Файловый менеджер - Редактировать - /var/www/html/perl.zip
Ðазад
PK ! 5.34.0nu ȯ�� PK ! :��,* * 5.34.0/JSON/PP/Boolean.pmnu �[��� package JSON::PP::Boolean; use strict; require overload; local $^W; overload::import('overload', "0+" => sub { ${$_[0]} }, "++" => sub { $_[0] = ${$_[0]} + 1 }, "--" => sub { $_[0] = ${$_[0]} - 1 }, fallback => 1, ); $JSON::PP::Boolean::VERSION = '4.06'; 1; __END__ =head1 NAME JSON::PP::Boolean - dummy module providing JSON::PP::Boolean =head1 SYNOPSIS # do not "use" yourself =head1 DESCRIPTION This module exists only to provide overload resolution for Storable and similar modules. See L<JSON::PP> for more info about this class. =head1 AUTHOR This idea is from L<JSON::XS::Boolean> written by Marc Lehmann <schmorp[at]schmorp.de> =head1 LICENSE This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut PK ! %���� �� 5.34.0/JSON/PP.pmnu �[��� package JSON::PP; # JSON-2.0 use 5.005; use strict; use Exporter (); BEGIN { @JSON::PP::ISA = ('Exporter') } use overload (); use JSON::PP::Boolean; use Carp (); #use Devel::Peek; $JSON::PP::VERSION = '4.06'; @JSON::PP::EXPORT = qw(encode_json decode_json from_json to_json); # instead of hash-access, i tried index-access for speed. # but this method is not faster than what i expected. so it will be changed. use constant P_ASCII => 0; use constant P_LATIN1 => 1; use constant P_UTF8 => 2; use constant P_INDENT => 3; use constant P_CANONICAL => 4; use constant P_SPACE_BEFORE => 5; use constant P_SPACE_AFTER => 6; use constant P_ALLOW_NONREF => 7; use constant P_SHRINK => 8; use constant P_ALLOW_BLESSED => 9; use constant P_CONVERT_BLESSED => 10; use constant P_RELAXED => 11; use constant P_LOOSE => 12; use constant P_ALLOW_BIGNUM => 13; use constant P_ALLOW_BAREKEY => 14; use constant P_ALLOW_SINGLEQUOTE => 15; use constant P_ESCAPE_SLASH => 16; use constant P_AS_NONBLESSED => 17; use constant P_ALLOW_UNKNOWN => 18; use constant P_ALLOW_TAGS => 19; use constant OLD_PERL => $] < 5.008 ? 1 : 0; use constant USE_B => $ENV{PERL_JSON_PP_USE_B} || 0; BEGIN { if (USE_B) { require B; } } BEGIN { my @xs_compati_bit_properties = qw( latin1 ascii utf8 indent canonical space_before space_after allow_nonref shrink allow_blessed convert_blessed relaxed allow_unknown allow_tags ); my @pp_bit_properties = qw( allow_singlequote allow_bignum loose allow_barekey escape_slash as_nonblessed ); # Perl version check, Unicode handling is enabled? # Helper module sets @JSON::PP::_properties. if ( OLD_PERL ) { my $helper = $] >= 5.006 ? 'JSON::PP::Compat5006' : 'JSON::PP::Compat5005'; eval qq| require $helper |; if ($@) { Carp::croak $@; } } for my $name (@xs_compati_bit_properties, @pp_bit_properties) { my $property_id = 'P_' . uc($name); eval qq/ sub $name { my \$enable = defined \$_[1] ? \$_[1] : 1; if (\$enable) { \$_[0]->{PROPS}->[$property_id] = 1; } else { \$_[0]->{PROPS}->[$property_id] = 0; } \$_[0]; } sub get_$name { \$_[0]->{PROPS}->[$property_id] ? 1 : ''; } /; } } # Functions my $JSON; # cache sub encode_json ($) { # encode ($JSON ||= __PACKAGE__->new->utf8)->encode(@_); } sub decode_json { # decode ($JSON ||= __PACKAGE__->new->utf8)->decode(@_); } # Obsoleted sub to_json($) { Carp::croak ("JSON::PP::to_json has been renamed to encode_json."); } sub from_json($) { Carp::croak ("JSON::PP::from_json has been renamed to decode_json."); } # Methods sub new { my $class = shift; my $self = { max_depth => 512, max_size => 0, indent_length => 3, }; $self->{PROPS}[P_ALLOW_NONREF] = 1; bless $self, $class; } sub encode { return $_[0]->PP_encode_json($_[1]); } sub decode { return $_[0]->PP_decode_json($_[1], 0x00000000); } sub decode_prefix { return $_[0]->PP_decode_json($_[1], 0x00000001); } # accessor # pretty printing sub pretty { my ($self, $v) = @_; my $enable = defined $v ? $v : 1; if ($enable) { # indent_length(3) for JSON::XS compatibility $self->indent(1)->space_before(1)->space_after(1); } else { $self->indent(0)->space_before(0)->space_after(0); } $self; } # etc sub max_depth { my $max = defined $_[1] ? $_[1] : 0x80000000; $_[0]->{max_depth} = $max; $_[0]; } sub get_max_depth { $_[0]->{max_depth}; } sub max_size { my $max = defined $_[1] ? $_[1] : 0; $_[0]->{max_size} = $max; $_[0]; } sub get_max_size { $_[0]->{max_size}; } sub boolean_values { my $self = shift; if (@_) { my ($false, $true) = @_; $self->{false} = $false; $self->{true} = $true; } else { delete $self->{false}; delete $self->{true}; } return $self; } sub get_boolean_values { my $self = shift; if (exists $self->{true} and exists $self->{false}) { return @$self{qw/false true/}; } return; } sub filter_json_object { if (defined $_[1] and ref $_[1] eq 'CODE') { $_[0]->{cb_object} = $_[1]; } else { delete $_[0]->{cb_object}; } $_[0]->{F_HOOK} = ($_[0]->{cb_object} or $_[0]->{cb_sk_object}) ? 1 : 0; $_[0]; } sub filter_json_single_key_object { if (@_ == 1 or @_ > 3) { Carp::croak("Usage: JSON::PP::filter_json_single_key_object(self, key, callback = undef)"); } if (defined $_[2] and ref $_[2] eq 'CODE') { $_[0]->{cb_sk_object}->{$_[1]} = $_[2]; } else { delete $_[0]->{cb_sk_object}->{$_[1]}; delete $_[0]->{cb_sk_object} unless %{$_[0]->{cb_sk_object} || {}}; } $_[0]->{F_HOOK} = ($_[0]->{cb_object} or $_[0]->{cb_sk_object}) ? 1 : 0; $_[0]; } sub indent_length { if (!defined $_[1] or $_[1] > 15 or $_[1] < 0) { Carp::carp "The acceptable range of indent_length() is 0 to 15."; } else { $_[0]->{indent_length} = $_[1]; } $_[0]; } sub get_indent_length { $_[0]->{indent_length}; } sub sort_by { $_[0]->{sort_by} = defined $_[1] ? $_[1] : 1; $_[0]; } sub allow_bigint { Carp::carp("allow_bigint() is obsoleted. use allow_bignum() instead."); $_[0]->allow_bignum; } ############################### ### ### Perl => JSON ### { # Convert my $max_depth; my $indent; my $ascii; my $latin1; my $utf8; my $space_before; my $space_after; my $canonical; my $allow_blessed; my $convert_blessed; my $indent_length; my $escape_slash; my $bignum; my $as_nonblessed; my $allow_tags; my $depth; my $indent_count; my $keysort; sub PP_encode_json { my $self = shift; my $obj = shift; $indent_count = 0; $depth = 0; my $props = $self->{PROPS}; ($ascii, $latin1, $utf8, $indent, $canonical, $space_before, $space_after, $allow_blessed, $convert_blessed, $escape_slash, $bignum, $as_nonblessed, $allow_tags) = @{$props}[P_ASCII .. P_SPACE_AFTER, P_ALLOW_BLESSED, P_CONVERT_BLESSED, P_ESCAPE_SLASH, P_ALLOW_BIGNUM, P_AS_NONBLESSED, P_ALLOW_TAGS]; ($max_depth, $indent_length) = @{$self}{qw/max_depth indent_length/}; $keysort = $canonical ? sub { $a cmp $b } : undef; if ($self->{sort_by}) { $keysort = ref($self->{sort_by}) eq 'CODE' ? $self->{sort_by} : $self->{sort_by} =~ /\D+/ ? $self->{sort_by} : sub { $a cmp $b }; } encode_error("hash- or arrayref expected (not a simple scalar, use allow_nonref to allow this)") if(!ref $obj and !$props->[ P_ALLOW_NONREF ]); my $str = $self->object_to_json($obj); $str .= "\n" if ( $indent ); # JSON::XS 2.26 compatible unless ($ascii or $latin1 or $utf8) { utf8::upgrade($str); } if ($props->[ P_SHRINK ]) { utf8::downgrade($str, 1); } return $str; } sub object_to_json { my ($self, $obj) = @_; my $type = ref($obj); if($type eq 'HASH'){ return $self->hash_to_json($obj); } elsif($type eq 'ARRAY'){ return $self->array_to_json($obj); } elsif ($type) { # blessed object? if (blessed($obj)) { return $self->value_to_json($obj) if ( $obj->isa('JSON::PP::Boolean') ); if ( $allow_tags and $obj->can('FREEZE') ) { my $obj_class = ref $obj || $obj; $obj = bless $obj, $obj_class; my @results = $obj->FREEZE('JSON'); if ( @results and ref $results[0] ) { if ( refaddr( $obj ) eq refaddr( $results[0] ) ) { encode_error( sprintf( "%s::FREEZE method returned same object as was passed instead of a new one", ref $obj ) ); } } return '("'.$obj_class.'")['.join(',', @results).']'; } if ( $convert_blessed and $obj->can('TO_JSON') ) { my $result = $obj->TO_JSON(); if ( defined $result and ref( $result ) ) { if ( refaddr( $obj ) eq refaddr( $result ) ) { encode_error( sprintf( "%s::TO_JSON method returned same object as was passed instead of a new one", ref $obj ) ); } } return $self->object_to_json( $result ); } return "$obj" if ( $bignum and _is_bignum($obj) ); if ($allow_blessed) { return $self->blessed_to_json($obj) if ($as_nonblessed); # will be removed. return 'null'; } encode_error( sprintf("encountered object '%s', but neither allow_blessed, convert_blessed nor allow_tags settings are enabled (or TO_JSON/FREEZE method missing)", $obj) ); } else { return $self->value_to_json($obj); } } else{ return $self->value_to_json($obj); } } sub hash_to_json { my ($self, $obj) = @_; my @res; encode_error("json text or perl structure exceeds maximum nesting level (max_depth set too low?)") if (++$depth > $max_depth); my ($pre, $post) = $indent ? $self->_up_indent() : ('', ''); my $del = ($space_before ? ' ' : '') . ':' . ($space_after ? ' ' : ''); for my $k ( _sort( $obj ) ) { if ( OLD_PERL ) { utf8::decode($k) } # key for Perl 5.6 / be optimized push @res, $self->string_to_json( $k ) . $del . ( ref $obj->{$k} ? $self->object_to_json( $obj->{$k} ) : $self->value_to_json( $obj->{$k} ) ); } --$depth; $self->_down_indent() if ($indent); return '{}' unless @res; return '{' . $pre . join( ",$pre", @res ) . $post . '}'; } sub array_to_json { my ($self, $obj) = @_; my @res; encode_error("json text or perl structure exceeds maximum nesting level (max_depth set too low?)") if (++$depth > $max_depth); my ($pre, $post) = $indent ? $self->_up_indent() : ('', ''); for my $v (@$obj){ push @res, ref($v) ? $self->object_to_json($v) : $self->value_to_json($v); } --$depth; $self->_down_indent() if ($indent); return '[]' unless @res; return '[' . $pre . join( ",$pre", @res ) . $post . ']'; } sub _looks_like_number { my $value = shift; if (USE_B) { my $b_obj = B::svref_2object(\$value); my $flags = $b_obj->FLAGS; return 1 if $flags & ( B::SVp_IOK() | B::SVp_NOK() ) and !( $flags & B::SVp_POK() ); return; } else { no warnings 'numeric'; # if the utf8 flag is on, it almost certainly started as a string return if utf8::is_utf8($value); # detect numbers # string & "" -> "" # number & "" -> 0 (with warning) # nan and inf can detect as numbers, so check with * 0 return unless length((my $dummy = "") & $value); return unless 0 + $value eq $value; return 1 if $value * 0 == 0; return -1; # inf/nan } } sub value_to_json { my ($self, $value) = @_; return 'null' if(!defined $value); my $type = ref($value); if (!$type) { if (_looks_like_number($value)) { return $value; } return $self->string_to_json($value); } elsif( blessed($value) and $value->isa('JSON::PP::Boolean') ){ return $$value == 1 ? 'true' : 'false'; } else { if ((overload::StrVal($value) =~ /=(\w+)/)[0]) { return $self->value_to_json("$value"); } if ($type eq 'SCALAR' and defined $$value) { return $$value eq '1' ? 'true' : $$value eq '0' ? 'false' : $self->{PROPS}->[ P_ALLOW_UNKNOWN ] ? 'null' : encode_error("cannot encode reference to scalar"); } if ( $self->{PROPS}->[ P_ALLOW_UNKNOWN ] ) { return 'null'; } else { if ( $type eq 'SCALAR' or $type eq 'REF' ) { encode_error("cannot encode reference to scalar"); } else { encode_error("encountered $value, but JSON can only represent references to arrays or hashes"); } } } } my %esc = ( "\n" => '\n', "\r" => '\r', "\t" => '\t', "\f" => '\f', "\b" => '\b', "\"" => '\"', "\\" => '\\\\', "\'" => '\\\'', ); sub string_to_json { my ($self, $arg) = @_; $arg =~ s/([\x22\x5c\n\r\t\f\b])/$esc{$1}/g; $arg =~ s/\//\\\//g if ($escape_slash); $arg =~ s/([\x00-\x08\x0b\x0e-\x1f])/'\\u00' . unpack('H2', $1)/eg; if ($ascii) { $arg = JSON_PP_encode_ascii($arg); } if ($latin1) { $arg = JSON_PP_encode_latin1($arg); } if ($utf8) { utf8::encode($arg); } return '"' . $arg . '"'; } sub blessed_to_json { my $reftype = reftype($_[1]) || ''; if ($reftype eq 'HASH') { return $_[0]->hash_to_json($_[1]); } elsif ($reftype eq 'ARRAY') { return $_[0]->array_to_json($_[1]); } else { return 'null'; } } sub encode_error { my $error = shift; Carp::croak "$error"; } sub _sort { defined $keysort ? (sort $keysort (keys %{$_[0]})) : keys %{$_[0]}; } sub _up_indent { my $self = shift; my $space = ' ' x $indent_length; my ($pre,$post) = ('',''); $post = "\n" . $space x $indent_count; $indent_count++; $pre = "\n" . $space x $indent_count; return ($pre,$post); } sub _down_indent { $indent_count--; } sub PP_encode_box { { depth => $depth, indent_count => $indent_count, }; } } # Convert sub _encode_ascii { join('', map { $_ <= 127 ? chr($_) : $_ <= 65535 ? sprintf('\u%04x', $_) : sprintf('\u%x\u%x', _encode_surrogates($_)); } unpack('U*', $_[0]) ); } sub _encode_latin1 { join('', map { $_ <= 255 ? chr($_) : $_ <= 65535 ? sprintf('\u%04x', $_) : sprintf('\u%x\u%x', _encode_surrogates($_)); } unpack('U*', $_[0]) ); } sub _encode_surrogates { # from perlunicode my $uni = $_[0] - 0x10000; return ($uni / 0x400 + 0xD800, $uni % 0x400 + 0xDC00); } sub _is_bignum { $_[0]->isa('Math::BigInt') or $_[0]->isa('Math::BigFloat'); } # # JSON => Perl # my $max_intsize; BEGIN { my $checkint = 1111; for my $d (5..64) { $checkint .= 1; my $int = eval qq| $checkint |; if ($int =~ /[eE]/) { $max_intsize = $d - 1; last; } } } { # PARSE my %escapes = ( # by Jeremy Muhlich <jmuhlich [at] bitflood.org> b => "\x8", t => "\x9", n => "\xA", f => "\xC", r => "\xD", '\\' => '\\', '"' => '"', '/' => '/', ); my $text; # json data my $at; # offset my $ch; # first character my $len; # text length (changed according to UTF8 or NON UTF8) # INTERNAL my $depth; # nest counter my $encoding; # json text encoding my $is_valid_utf8; # temp variable my $utf8_len; # utf8 byte length # FLAGS my $utf8; # must be utf8 my $max_depth; # max nest number of objects and arrays my $max_size; my $relaxed; my $cb_object; my $cb_sk_object; my $F_HOOK; my $allow_bignum; # using Math::BigInt/BigFloat my $singlequote; # loosely quoting my $loose; # my $allow_barekey; # bareKey my $allow_tags; my $alt_true; my $alt_false; sub _detect_utf_encoding { my $text = shift; my @octets = unpack('C4', $text); return 'unknown' unless defined $octets[3]; return ( $octets[0] and $octets[1]) ? 'UTF-8' : (!$octets[0] and $octets[1]) ? 'UTF-16BE' : (!$octets[0] and !$octets[1]) ? 'UTF-32BE' : ( $octets[2] ) ? 'UTF-16LE' : (!$octets[2] ) ? 'UTF-32LE' : 'unknown'; } sub PP_decode_json { my ($self, $want_offset); ($self, $text, $want_offset) = @_; ($at, $ch, $depth) = (0, '', 0); if ( !defined $text or ref $text ) { decode_error("malformed JSON string, neither array, object, number, string or atom"); } my $props = $self->{PROPS}; ($utf8, $relaxed, $loose, $allow_bignum, $allow_barekey, $singlequote, $allow_tags) = @{$props}[P_UTF8, P_RELAXED, P_LOOSE .. P_ALLOW_SINGLEQUOTE, P_ALLOW_TAGS]; ($alt_true, $alt_false) = @$self{qw/true false/}; if ( $utf8 ) { $encoding = _detect_utf_encoding($text); if ($encoding ne 'UTF-8' and $encoding ne 'unknown') { require Encode; Encode::from_to($text, $encoding, 'utf-8'); } else { utf8::downgrade( $text, 1 ) or Carp::croak("Wide character in subroutine entry"); } } else { utf8::upgrade( $text ); utf8::encode( $text ); } $len = length $text; ($max_depth, $max_size, $cb_object, $cb_sk_object, $F_HOOK) = @{$self}{qw/max_depth max_size cb_object cb_sk_object F_HOOK/}; if ($max_size > 1) { use bytes; my $bytes = length $text; decode_error( sprintf("attempted decode of JSON text of %s bytes size, but max_size is set to %s" , $bytes, $max_size), 1 ) if ($bytes > $max_size); } white(); # remove head white space decode_error("malformed JSON string, neither array, object, number, string or atom") unless defined $ch; # Is there a first character for JSON structure? my $result = value(); if ( !$props->[ P_ALLOW_NONREF ] and !ref $result ) { decode_error( 'JSON text must be an object or array (but found number, string, true, false or null,' . ' use allow_nonref to allow this)', 1); } Carp::croak('something wrong.') if $len < $at; # we won't arrive here. my $consumed = defined $ch ? $at - 1 : $at; # consumed JSON text length white(); # remove tail white space return ( $result, $consumed ) if $want_offset; # all right if decode_prefix decode_error("garbage after JSON object") if defined $ch; $result; } sub next_chr { return $ch = undef if($at >= $len); $ch = substr($text, $at++, 1); } sub value { white(); return if(!defined $ch); return object() if($ch eq '{'); return array() if($ch eq '['); return tag() if($ch eq '('); return string() if($ch eq '"' or ($singlequote and $ch eq "'")); return number() if($ch =~ /[0-9]/ or $ch eq '-'); return word(); } sub string { my $utf16; my $is_utf8; ($is_valid_utf8, $utf8_len) = ('', 0); my $s = ''; # basically UTF8 flag on if($ch eq '"' or ($singlequote and $ch eq "'")){ my $boundChar = $ch; OUTER: while( defined(next_chr()) ){ if($ch eq $boundChar){ next_chr(); if ($utf16) { decode_error("missing low surrogate character in surrogate pair"); } utf8::decode($s) if($is_utf8); return $s; } elsif($ch eq '\\'){ next_chr(); if(exists $escapes{$ch}){ $s .= $escapes{$ch}; } elsif($ch eq 'u'){ # UNICODE handling my $u = ''; for(1..4){ $ch = next_chr(); last OUTER if($ch !~ /[0-9a-fA-F]/); $u .= $ch; } # U+D800 - U+DBFF if ($u =~ /^[dD][89abAB][0-9a-fA-F]{2}/) { # UTF-16 high surrogate? $utf16 = $u; } # U+DC00 - U+DFFF elsif ($u =~ /^[dD][c-fC-F][0-9a-fA-F]{2}/) { # UTF-16 low surrogate? unless (defined $utf16) { decode_error("missing high surrogate character in surrogate pair"); } $is_utf8 = 1; $s .= JSON_PP_decode_surrogates($utf16, $u) || next; $utf16 = undef; } else { if (defined $utf16) { decode_error("surrogate pair expected"); } if ( ( my $hex = hex( $u ) ) > 127 ) { $is_utf8 = 1; $s .= JSON_PP_decode_unicode($u) || next; } else { $s .= chr $hex; } } } else{ unless ($loose) { $at -= 2; decode_error('illegal backslash escape sequence in string'); } $s .= $ch; } } else{ if ( ord $ch > 127 ) { unless( $ch = is_valid_utf8($ch) ) { $at -= 1; decode_error("malformed UTF-8 character in JSON string"); } else { $at += $utf8_len - 1; } $is_utf8 = 1; } if (!$loose) { if ($ch =~ /[\x00-\x1f\x22\x5c]/) { # '/' ok if (!$relaxed or $ch ne "\t") { $at--; decode_error('invalid character encountered while parsing JSON string'); } } } $s .= $ch; } } } decode_error("unexpected end of string while parsing JSON string"); } sub white { while( defined $ch ){ if($ch eq '' or $ch =~ /\A[ \t\r\n]\z/){ next_chr(); } elsif($relaxed and $ch eq '/'){ next_chr(); if(defined $ch and $ch eq '/'){ 1 while(defined(next_chr()) and $ch ne "\n" and $ch ne "\r"); } elsif(defined $ch and $ch eq '*'){ next_chr(); while(1){ if(defined $ch){ if($ch eq '*'){ if(defined(next_chr()) and $ch eq '/'){ next_chr(); last; } } else{ next_chr(); } } else{ decode_error("Unterminated comment"); } } next; } else{ $at--; decode_error("malformed JSON string, neither array, object, number, string or atom"); } } else{ if ($relaxed and $ch eq '#') { # correctly? pos($text) = $at; $text =~ /\G([^\n]*(?:\r\n|\r|\n|$))/g; $at = pos($text); next_chr; next; } last; } } } sub array { my $a = $_[0] || []; # you can use this code to use another array ref object. decode_error('json text or perl structure exceeds maximum nesting level (max_depth set too low?)') if (++$depth > $max_depth); next_chr(); white(); if(defined $ch and $ch eq ']'){ --$depth; next_chr(); return $a; } else { while(defined($ch)){ push @$a, value(); white(); if (!defined $ch) { last; } if($ch eq ']'){ --$depth; next_chr(); return $a; } if($ch ne ','){ last; } next_chr(); white(); if ($relaxed and $ch eq ']') { --$depth; next_chr(); return $a; } } } $at-- if defined $ch and $ch ne ''; decode_error(", or ] expected while parsing array"); } sub tag { decode_error('malformed JSON string, neither array, object, number, string or atom') unless $allow_tags; next_chr(); white(); my $tag = value(); return unless defined $tag; decode_error('malformed JSON string, (tag) must be a string') if ref $tag; white(); if (!defined $ch or $ch ne ')') { decode_error(') expected after tag'); } next_chr(); white(); my $val = value(); return unless defined $val; decode_error('malformed JSON string, tag value must be an array') unless ref $val eq 'ARRAY'; if (!eval { $tag->can('THAW') }) { decode_error('cannot decode perl-object (package does not exist)') if $@; decode_error('cannot decode perl-object (package does not have a THAW method)'); } $tag->THAW('JSON', @$val); } sub object { my $o = $_[0] || {}; # you can use this code to use another hash ref object. my $k; decode_error('json text or perl structure exceeds maximum nesting level (max_depth set too low?)') if (++$depth > $max_depth); next_chr(); white(); if(defined $ch and $ch eq '}'){ --$depth; next_chr(); if ($F_HOOK) { return _json_object_hook($o); } return $o; } else { while (defined $ch) { $k = ($allow_barekey and $ch ne '"' and $ch ne "'") ? bareKey() : string(); white(); if(!defined $ch or $ch ne ':'){ $at--; decode_error("':' expected"); } next_chr(); $o->{$k} = value(); white(); last if (!defined $ch); if($ch eq '}'){ --$depth; next_chr(); if ($F_HOOK) { return _json_object_hook($o); } return $o; } if($ch ne ','){ last; } next_chr(); white(); if ($relaxed and $ch eq '}') { --$depth; next_chr(); if ($F_HOOK) { return _json_object_hook($o); } return $o; } } } $at-- if defined $ch and $ch ne ''; decode_error(", or } expected while parsing object/hash"); } sub bareKey { # doesn't strictly follow Standard ECMA-262 3rd Edition my $key; while($ch =~ /[^\x00-\x23\x25-\x2F\x3A-\x40\x5B-\x5E\x60\x7B-\x7F]/){ $key .= $ch; next_chr(); } return $key; } sub word { my $word = substr($text,$at-1,4); if($word eq 'true'){ $at += 3; next_chr; return defined $alt_true ? $alt_true : $JSON::PP::true; } elsif($word eq 'null'){ $at += 3; next_chr; return undef; } elsif($word eq 'fals'){ $at += 3; if(substr($text,$at,1) eq 'e'){ $at++; next_chr; return defined $alt_false ? $alt_false : $JSON::PP::false; } } $at--; # for decode_error report decode_error("'null' expected") if ($word =~ /^n/); decode_error("'true' expected") if ($word =~ /^t/); decode_error("'false' expected") if ($word =~ /^f/); decode_error("malformed JSON string, neither array, object, number, string or atom"); } sub number { my $n = ''; my $v; my $is_dec; my $is_exp; if($ch eq '-'){ $n = '-'; next_chr; if (!defined $ch or $ch !~ /\d/) { decode_error("malformed number (no digits after initial minus)"); } } # According to RFC4627, hex or oct digits are invalid. if($ch eq '0'){ my $peek = substr($text,$at,1); if($peek =~ /^[0-9a-dfA-DF]/){ # e may be valid (exponential) decode_error("malformed number (leading zero must not be followed by another digit)"); } $n .= $ch; next_chr; } while(defined $ch and $ch =~ /\d/){ $n .= $ch; next_chr; } if(defined $ch and $ch eq '.'){ $n .= '.'; $is_dec = 1; next_chr; if (!defined $ch or $ch !~ /\d/) { decode_error("malformed number (no digits after decimal point)"); } else { $n .= $ch; } while(defined(next_chr) and $ch =~ /\d/){ $n .= $ch; } } if(defined $ch and ($ch eq 'e' or $ch eq 'E')){ $n .= $ch; $is_exp = 1; next_chr; if(defined($ch) and ($ch eq '+' or $ch eq '-')){ $n .= $ch; next_chr; if (!defined $ch or $ch =~ /\D/) { decode_error("malformed number (no digits after exp sign)"); } $n .= $ch; } elsif(defined($ch) and $ch =~ /\d/){ $n .= $ch; } else { decode_error("malformed number (no digits after exp sign)"); } while(defined(next_chr) and $ch =~ /\d/){ $n .= $ch; } } $v .= $n; if ($is_dec or $is_exp) { if ($allow_bignum) { require Math::BigFloat; return Math::BigFloat->new($v); } } else { if (length $v > $max_intsize) { if ($allow_bignum) { # from Adam Sussman require Math::BigInt; return Math::BigInt->new($v); } else { return "$v"; } } } return $is_dec ? $v/1.0 : 0+$v; } sub is_valid_utf8 { $utf8_len = $_[0] =~ /[\x00-\x7F]/ ? 1 : $_[0] =~ /[\xC2-\xDF]/ ? 2 : $_[0] =~ /[\xE0-\xEF]/ ? 3 : $_[0] =~ /[\xF0-\xF4]/ ? 4 : 0 ; return unless $utf8_len; my $is_valid_utf8 = substr($text, $at - 1, $utf8_len); return ( $is_valid_utf8 =~ /^(?: [\x00-\x7F] |[\xC2-\xDF][\x80-\xBF] |[\xE0][\xA0-\xBF][\x80-\xBF] |[\xE1-\xEC][\x80-\xBF][\x80-\xBF] |[\xED][\x80-\x9F][\x80-\xBF] |[\xEE-\xEF][\x80-\xBF][\x80-\xBF] |[\xF0][\x90-\xBF][\x80-\xBF][\x80-\xBF] |[\xF1-\xF3][\x80-\xBF][\x80-\xBF][\x80-\xBF] |[\xF4][\x80-\x8F][\x80-\xBF][\x80-\xBF] )$/x ) ? $is_valid_utf8 : ''; } sub decode_error { my $error = shift; my $no_rep = shift; my $str = defined $text ? substr($text, $at) : ''; my $mess = ''; my $type = 'U*'; if ( OLD_PERL ) { my $type = $] < 5.006 ? 'C*' : utf8::is_utf8( $str ) ? 'U*' # 5.6 : 'C*' ; } for my $c ( unpack( $type, $str ) ) { # emulate pv_uni_display() ? $mess .= $c == 0x07 ? '\a' : $c == 0x09 ? '\t' : $c == 0x0a ? '\n' : $c == 0x0d ? '\r' : $c == 0x0c ? '\f' : $c < 0x20 ? sprintf('\x{%x}', $c) : $c == 0x5c ? '\\\\' : $c < 0x80 ? chr($c) : sprintf('\x{%x}', $c) ; if ( length $mess >= 20 ) { $mess .= '...'; last; } } unless ( length $mess ) { $mess = '(end of string)'; } Carp::croak ( $no_rep ? "$error" : "$error, at character offset $at (before \"$mess\")" ); } sub _json_object_hook { my $o = $_[0]; my @ks = keys %{$o}; if ( $cb_sk_object and @ks == 1 and exists $cb_sk_object->{ $ks[0] } and ref $cb_sk_object->{ $ks[0] } ) { my @val = $cb_sk_object->{ $ks[0] }->( $o->{$ks[0]} ); if (@val == 0) { return $o; } elsif (@val == 1) { return $val[0]; } else { Carp::croak("filter_json_single_key_object callbacks must not return more than one scalar"); } } my @val = $cb_object->($o) if ($cb_object); if (@val == 0) { return $o; } elsif (@val == 1) { return $val[0]; } else { Carp::croak("filter_json_object callbacks must not return more than one scalar"); } } sub PP_decode_box { { text => $text, at => $at, ch => $ch, len => $len, depth => $depth, encoding => $encoding, is_valid_utf8 => $is_valid_utf8, }; } } # PARSE sub _decode_surrogates { # from perlunicode my $uni = 0x10000 + (hex($_[0]) - 0xD800) * 0x400 + (hex($_[1]) - 0xDC00); my $un = pack('U*', $uni); utf8::encode( $un ); return $un; } sub _decode_unicode { my $un = pack('U', hex shift); utf8::encode( $un ); return $un; } # # Setup for various Perl versions (the code from JSON::PP58) # BEGIN { unless ( defined &utf8::is_utf8 ) { require Encode; *utf8::is_utf8 = *Encode::is_utf8; } if ( !OLD_PERL ) { *JSON::PP::JSON_PP_encode_ascii = \&_encode_ascii; *JSON::PP::JSON_PP_encode_latin1 = \&_encode_latin1; *JSON::PP::JSON_PP_decode_surrogates = \&_decode_surrogates; *JSON::PP::JSON_PP_decode_unicode = \&_decode_unicode; if ($] < 5.008003) { # join() in 5.8.0 - 5.8.2 is broken. package JSON::PP; require subs; subs->import('join'); eval q| sub join { return '' if (@_ < 2); my $j = shift; my $str = shift; for (@_) { $str .= $j . $_; } return $str; } |; } } sub JSON::PP::incr_parse { local $Carp::CarpLevel = 1; ( $_[0]->{_incr_parser} ||= JSON::PP::IncrParser->new )->incr_parse( @_ ); } sub JSON::PP::incr_skip { ( $_[0]->{_incr_parser} ||= JSON::PP::IncrParser->new )->incr_skip; } sub JSON::PP::incr_reset { ( $_[0]->{_incr_parser} ||= JSON::PP::IncrParser->new )->incr_reset; } eval q{ sub JSON::PP::incr_text : lvalue { $_[0]->{_incr_parser} ||= JSON::PP::IncrParser->new; if ( $_[0]->{_incr_parser}->{incr_pos} ) { Carp::croak("incr_text cannot be called when the incremental parser already started parsing"); } $_[0]->{_incr_parser}->{incr_text}; } } if ( $] >= 5.006 ); } # Setup for various Perl versions (the code from JSON::PP58) ############################### # Utilities # BEGIN { eval 'require Scalar::Util'; unless($@){ *JSON::PP::blessed = \&Scalar::Util::blessed; *JSON::PP::reftype = \&Scalar::Util::reftype; *JSON::PP::refaddr = \&Scalar::Util::refaddr; } else{ # This code is from Scalar::Util. # warn $@; eval 'sub UNIVERSAL::a_sub_not_likely_to_be_here { ref($_[0]) }'; *JSON::PP::blessed = sub { local($@, $SIG{__DIE__}, $SIG{__WARN__}); ref($_[0]) ? eval { $_[0]->a_sub_not_likely_to_be_here } : undef; }; require B; my %tmap = qw( B::NULL SCALAR B::HV HASH B::AV ARRAY B::CV CODE B::IO IO B::GV GLOB B::REGEXP REGEXP ); *JSON::PP::reftype = sub { my $r = shift; return undef unless length(ref($r)); my $t = ref(B::svref_2object($r)); return exists $tmap{$t} ? $tmap{$t} : length(ref($$r)) ? 'REF' : 'SCALAR'; }; *JSON::PP::refaddr = sub { return undef unless length(ref($_[0])); my $addr; if(defined(my $pkg = blessed($_[0]))) { $addr .= bless $_[0], 'Scalar::Util::Fake'; bless $_[0], $pkg; } else { $addr .= $_[0] } $addr =~ /0x(\w+)/; local $^W; #no warnings 'portable'; hex($1); } } } # shamelessly copied and modified from JSON::XS code. $JSON::PP::true = do { bless \(my $dummy = 1), "JSON::PP::Boolean" }; $JSON::PP::false = do { bless \(my $dummy = 0), "JSON::PP::Boolean" }; sub is_bool { blessed $_[0] and ( $_[0]->isa("JSON::PP::Boolean") or $_[0]->isa("Types::Serialiser::BooleanBase") or $_[0]->isa("JSON::XS::Boolean") ); } sub true { $JSON::PP::true } sub false { $JSON::PP::false } sub null { undef; } ############################### package JSON::PP::IncrParser; use strict; use constant INCR_M_WS => 0; # initial whitespace skipping use constant INCR_M_STR => 1; # inside string use constant INCR_M_BS => 2; # inside backslash use constant INCR_M_JSON => 3; # outside anything, count nesting use constant INCR_M_C0 => 4; use constant INCR_M_C1 => 5; use constant INCR_M_TFN => 6; use constant INCR_M_NUM => 7; $JSON::PP::IncrParser::VERSION = '1.01'; sub new { my ( $class ) = @_; bless { incr_nest => 0, incr_text => undef, incr_pos => 0, incr_mode => 0, }, $class; } sub incr_parse { my ( $self, $coder, $text ) = @_; $self->{incr_text} = '' unless ( defined $self->{incr_text} ); if ( defined $text ) { if ( utf8::is_utf8( $text ) and !utf8::is_utf8( $self->{incr_text} ) ) { utf8::upgrade( $self->{incr_text} ) ; utf8::decode( $self->{incr_text} ) ; } $self->{incr_text} .= $text; } if ( defined wantarray ) { my $max_size = $coder->get_max_size; my $p = $self->{incr_pos}; my @ret; { do { unless ( $self->{incr_nest} <= 0 and $self->{incr_mode} == INCR_M_JSON ) { $self->_incr_parse( $coder ); if ( $max_size and $self->{incr_pos} > $max_size ) { Carp::croak("attempted decode of JSON text of $self->{incr_pos} bytes size, but max_size is set to $max_size"); } unless ( $self->{incr_nest} <= 0 and $self->{incr_mode} == INCR_M_JSON ) { # as an optimisation, do not accumulate white space in the incr buffer if ( $self->{incr_mode} == INCR_M_WS and $self->{incr_pos} ) { $self->{incr_pos} = 0; $self->{incr_text} = ''; } last; } } my ($obj, $offset) = $coder->PP_decode_json( $self->{incr_text}, 0x00000001 ); push @ret, $obj; use bytes; $self->{incr_text} = substr( $self->{incr_text}, $offset || 0 ); $self->{incr_pos} = 0; $self->{incr_nest} = 0; $self->{incr_mode} = 0; last unless wantarray; } while ( wantarray ); } if ( wantarray ) { return @ret; } else { # in scalar context return defined $ret[0] ? $ret[0] : undef; } } } sub _incr_parse { my ($self, $coder) = @_; my $text = $self->{incr_text}; my $len = length $text; my $p = $self->{incr_pos}; INCR_PARSE: while ( $len > $p ) { my $s = substr( $text, $p, 1 ); last INCR_PARSE unless defined $s; my $mode = $self->{incr_mode}; if ( $mode == INCR_M_WS ) { while ( $len > $p ) { $s = substr( $text, $p, 1 ); last INCR_PARSE unless defined $s; if ( ord($s) > 0x20 ) { if ( $s eq '#' ) { $self->{incr_mode} = INCR_M_C0; redo INCR_PARSE; } else { $self->{incr_mode} = INCR_M_JSON; redo INCR_PARSE; } } $p++; } } elsif ( $mode == INCR_M_BS ) { $p++; $self->{incr_mode} = INCR_M_STR; redo INCR_PARSE; } elsif ( $mode == INCR_M_C0 or $mode == INCR_M_C1 ) { while ( $len > $p ) { $s = substr( $text, $p, 1 ); last INCR_PARSE unless defined $s; if ( $s eq "\n" ) { $self->{incr_mode} = $self->{incr_mode} == INCR_M_C0 ? INCR_M_WS : INCR_M_JSON; last; } $p++; } next; } elsif ( $mode == INCR_M_TFN ) { while ( $len > $p ) { $s = substr( $text, $p++, 1 ); next if defined $s and $s =~ /[rueals]/; last; } $p--; $self->{incr_mode} = INCR_M_JSON; last INCR_PARSE unless $self->{incr_nest}; redo INCR_PARSE; } elsif ( $mode == INCR_M_NUM ) { while ( $len > $p ) { $s = substr( $text, $p++, 1 ); next if defined $s and $s =~ /[0-9eE.+\-]/; last; } $p--; $self->{incr_mode} = INCR_M_JSON; last INCR_PARSE unless $self->{incr_nest}; redo INCR_PARSE; } elsif ( $mode == INCR_M_STR ) { while ( $len > $p ) { $s = substr( $text, $p, 1 ); last INCR_PARSE unless defined $s; if ( $s eq '"' ) { $p++; $self->{incr_mode} = INCR_M_JSON; last INCR_PARSE unless $self->{incr_nest}; redo INCR_PARSE; } elsif ( $s eq '\\' ) { $p++; if ( !defined substr($text, $p, 1) ) { $self->{incr_mode} = INCR_M_BS; last INCR_PARSE; } } $p++; } } elsif ( $mode == INCR_M_JSON ) { while ( $len > $p ) { $s = substr( $text, $p++, 1 ); if ( $s eq "\x00" ) { $p--; last INCR_PARSE; } elsif ( $s eq "\x09" or $s eq "\x0a" or $s eq "\x0d" or $s eq "\x20" ) { if ( !$self->{incr_nest} ) { $p--; # do not eat the whitespace, let the next round do it last INCR_PARSE; } next; } elsif ( $s eq 't' or $s eq 'f' or $s eq 'n' ) { $self->{incr_mode} = INCR_M_TFN; redo INCR_PARSE; } elsif ( $s =~ /^[0-9\-]$/ ) { $self->{incr_mode} = INCR_M_NUM; redo INCR_PARSE; } elsif ( $s eq '"' ) { $self->{incr_mode} = INCR_M_STR; redo INCR_PARSE; } elsif ( $s eq '[' or $s eq '{' ) { if ( ++$self->{incr_nest} > $coder->get_max_depth ) { Carp::croak('json text or perl structure exceeds maximum nesting level (max_depth set too low?)'); } next; } elsif ( $s eq ']' or $s eq '}' ) { if ( --$self->{incr_nest} <= 0 ) { last INCR_PARSE; } } elsif ( $s eq '#' ) { $self->{incr_mode} = INCR_M_C1; redo INCR_PARSE; } } } } $self->{incr_pos} = $p; $self->{incr_parsing} = $p ? 1 : 0; # for backward compatibility } sub incr_text { if ( $_[0]->{incr_pos} ) { Carp::croak("incr_text cannot be called when the incremental parser already started parsing"); } $_[0]->{incr_text}; } sub incr_skip { my $self = shift; $self->{incr_text} = substr( $self->{incr_text}, $self->{incr_pos} ); $self->{incr_pos} = 0; $self->{incr_mode} = 0; $self->{incr_nest} = 0; } sub incr_reset { my $self = shift; $self->{incr_text} = undef; $self->{incr_pos} = 0; $self->{incr_mode} = 0; $self->{incr_nest} = 0; } ############################### 1; __END__ =pod =head1 NAME JSON::PP - JSON::XS compatible pure-Perl module. =head1 SYNOPSIS use JSON::PP; # exported functions, they croak on error # and expect/generate UTF-8 $utf8_encoded_json_text = encode_json $perl_hash_or_arrayref; $perl_hash_or_arrayref = decode_json $utf8_encoded_json_text; # OO-interface $json = JSON::PP->new->ascii->pretty->allow_nonref; $pretty_printed_json_text = $json->encode( $perl_scalar ); $perl_scalar = $json->decode( $json_text ); # Note that JSON version 2.0 and above will automatically use # JSON::XS or JSON::PP, so you should be able to just: use JSON; =head1 VERSION 4.05 =head1 DESCRIPTION JSON::PP is a pure perl JSON decoder/encoder, and (almost) compatible to much faster L<JSON::XS> written by Marc Lehmann in C. JSON::PP works as a fallback module when you use L<JSON> module without having installed JSON::XS. Because of this fallback feature of JSON.pm, JSON::PP tries not to be more JavaScript-friendly than JSON::XS (i.e. not to escape extra characters such as U+2028 and U+2029, etc), in order for you not to lose such JavaScript-friendliness silently when you use JSON.pm and install JSON::XS for speed or by accident. If you need JavaScript-friendly RFC7159-compliant pure perl module, try L<JSON::Tiny>, which is derived from L<Mojolicious> web framework and is also smaller and faster than JSON::PP. JSON::PP has been in the Perl core since Perl 5.14, mainly for CPAN toolchain modules to parse META.json. =head1 FUNCTIONAL INTERFACE This section is taken from JSON::XS almost verbatim. C<encode_json> and C<decode_json> are exported by default. =head2 encode_json $json_text = encode_json $perl_scalar Converts the given Perl data structure to a UTF-8 encoded, binary string (that is, the string contains octets only). Croaks on error. This function call is functionally identical to: $json_text = JSON::PP->new->utf8->encode($perl_scalar) Except being faster. =head2 decode_json $perl_scalar = decode_json $json_text The opposite of C<encode_json>: expects an UTF-8 (binary) string and tries to parse that as an UTF-8 encoded JSON text, returning the resulting reference. Croaks on error. This function call is functionally identical to: $perl_scalar = JSON::PP->new->utf8->decode($json_text) Except being faster. =head2 JSON::PP::is_bool $is_boolean = JSON::PP::is_bool($scalar) Returns true if the passed scalar represents either JSON::PP::true or JSON::PP::false, two constants that act like C<1> and C<0> respectively and are also used to represent JSON C<true> and C<false> in Perl strings. See L<MAPPING>, below, for more information on how JSON values are mapped to Perl. =head1 OBJECT-ORIENTED INTERFACE This section is also taken from JSON::XS. The object oriented interface lets you configure your own encoding or decoding style, within the limits of supported formats. =head2 new $json = JSON::PP->new Creates a new JSON::PP object that can be used to de/encode JSON strings. All boolean flags described below are by default I<disabled> (with the exception of C<allow_nonref>, which defaults to I<enabled> since version C<4.0>). The mutators for flags all return the JSON::PP object again and thus calls can be chained: my $json = JSON::PP->new->utf8->space_after->encode({a => [1,2]}) => {"a": [1, 2]} =head2 ascii $json = $json->ascii([$enable]) $enabled = $json->get_ascii If C<$enable> is true (or missing), then the C<encode> method will not generate characters outside the code range C<0..127> (which is ASCII). Any Unicode characters outside that range will be escaped using either a single \uXXXX (BMP characters) or a double \uHHHH\uLLLLL escape sequence, as per RFC4627. The resulting encoded JSON text can be treated as a native Unicode string, an ascii-encoded, latin1-encoded or UTF-8 encoded string, or any other superset of ASCII. If C<$enable> is false, then the C<encode> method will not escape Unicode characters unless required by the JSON syntax or other flags. This results in a faster and more compact format. See also the section I<ENCODING/CODESET FLAG NOTES> later in this document. The main use for this flag is to produce JSON texts that can be transmitted over a 7-bit channel, as the encoded JSON texts will not contain any 8 bit characters. JSON::PP->new->ascii(1)->encode([chr 0x10401]) => ["\ud801\udc01"] =head2 latin1 $json = $json->latin1([$enable]) $enabled = $json->get_latin1 If C<$enable> is true (or missing), then the C<encode> method will encode the resulting JSON text as latin1 (or iso-8859-1), escaping any characters outside the code range C<0..255>. The resulting string can be treated as a latin1-encoded JSON text or a native Unicode string. The C<decode> method will not be affected in any way by this flag, as C<decode> by default expects Unicode, which is a strict superset of latin1. If C<$enable> is false, then the C<encode> method will not escape Unicode characters unless required by the JSON syntax or other flags. See also the section I<ENCODING/CODESET FLAG NOTES> later in this document. The main use for this flag is efficiently encoding binary data as JSON text, as most octets will not be escaped, resulting in a smaller encoded size. The disadvantage is that the resulting JSON text is encoded in latin1 (and must correctly be treated as such when storing and transferring), a rare encoding for JSON. It is therefore most useful when you want to store data structures known to contain binary data efficiently in files or databases, not when talking to other JSON encoders/decoders. JSON::PP->new->latin1->encode (["\x{89}\x{abc}"] => ["\x{89}\\u0abc"] # (perl syntax, U+abc escaped, U+89 not) =head2 utf8 $json = $json->utf8([$enable]) $enabled = $json->get_utf8 If C<$enable> is true (or missing), then the C<encode> method will encode the JSON result into UTF-8, as required by many protocols, while the C<decode> method expects to be handled an UTF-8-encoded string. Please note that UTF-8-encoded strings do not contain any characters outside the range C<0..255>, they are thus useful for bytewise/binary I/O. In future versions, enabling this option might enable autodetection of the UTF-16 and UTF-32 encoding families, as described in RFC4627. If C<$enable> is false, then the C<encode> method will return the JSON string as a (non-encoded) Unicode string, while C<decode> expects thus a Unicode string. Any decoding or encoding (e.g. to UTF-8 or UTF-16) needs to be done yourself, e.g. using the Encode module. See also the section I<ENCODING/CODESET FLAG NOTES> later in this document. Example, output UTF-16BE-encoded JSON: use Encode; $jsontext = encode "UTF-16BE", JSON::PP->new->encode ($object); Example, decode UTF-32LE-encoded JSON: use Encode; $object = JSON::PP->new->decode (decode "UTF-32LE", $jsontext); =head2 pretty $json = $json->pretty([$enable]) This enables (or disables) all of the C<indent>, C<space_before> and C<space_after> (and in the future possibly more) flags in one call to generate the most readable (or most compact) form possible. =head2 indent $json = $json->indent([$enable]) $enabled = $json->get_indent If C<$enable> is true (or missing), then the C<encode> method will use a multiline format as output, putting every array member or object/hash key-value pair into its own line, indenting them properly. If C<$enable> is false, no newlines or indenting will be produced, and the resulting JSON text is guaranteed not to contain any C<newlines>. This setting has no effect when decoding JSON texts. The default indent space length is three. You can use C<indent_length> to change the length. =head2 space_before $json = $json->space_before([$enable]) $enabled = $json->get_space_before If C<$enable> is true (or missing), then the C<encode> method will add an extra optional space before the C<:> separating keys from values in JSON objects. If C<$enable> is false, then the C<encode> method will not add any extra space at those places. This setting has no effect when decoding JSON texts. You will also most likely combine this setting with C<space_after>. Example, space_before enabled, space_after and indent disabled: {"key" :"value"} =head2 space_after $json = $json->space_after([$enable]) $enabled = $json->get_space_after If C<$enable> is true (or missing), then the C<encode> method will add an extra optional space after the C<:> separating keys from values in JSON objects and extra whitespace after the C<,> separating key-value pairs and array members. If C<$enable> is false, then the C<encode> method will not add any extra space at those places. This setting has no effect when decoding JSON texts. Example, space_before and indent disabled, space_after enabled: {"key": "value"} =head2 relaxed $json = $json->relaxed([$enable]) $enabled = $json->get_relaxed If C<$enable> is true (or missing), then C<decode> will accept some extensions to normal JSON syntax (see below). C<encode> will not be affected in anyway. I<Be aware that this option makes you accept invalid JSON texts as if they were valid!>. I suggest only to use this option to parse application-specific files written by humans (configuration files, resource files etc.) If C<$enable> is false (the default), then C<decode> will only accept valid JSON texts. Currently accepted extensions are: =over 4 =item * list items can have an end-comma JSON I<separates> array elements and key-value pairs with commas. This can be annoying if you write JSON texts manually and want to be able to quickly append elements, so this extension accepts comma at the end of such items not just between them: [ 1, 2, <- this comma not normally allowed ] { "k1": "v1", "k2": "v2", <- this comma not normally allowed } =item * shell-style '#'-comments Whenever JSON allows whitespace, shell-style comments are additionally allowed. They are terminated by the first carriage-return or line-feed character, after which more white-space and comments are allowed. [ 1, # this comment not allowed in JSON # neither this one... ] =item * C-style multiple-line '/* */'-comments (JSON::PP only) Whenever JSON allows whitespace, C-style multiple-line comments are additionally allowed. Everything between C</*> and C<*/> is a comment, after which more white-space and comments are allowed. [ 1, /* this comment not allowed in JSON */ /* neither this one... */ ] =item * C++-style one-line '//'-comments (JSON::PP only) Whenever JSON allows whitespace, C++-style one-line comments are additionally allowed. They are terminated by the first carriage-return or line-feed character, after which more white-space and comments are allowed. [ 1, // this comment not allowed in JSON // neither this one... ] =item * literal ASCII TAB characters in strings Literal ASCII TAB characters are now allowed in strings (and treated as C<\t>). [ "Hello\tWorld", "Hello<TAB>World", # literal <TAB> would not normally be allowed ] =back =head2 canonical $json = $json->canonical([$enable]) $enabled = $json->get_canonical If C<$enable> is true (or missing), then the C<encode> method will output JSON objects by sorting their keys. This is adding a comparatively high overhead. If C<$enable> is false, then the C<encode> method will output key-value pairs in the order Perl stores them (which will likely change between runs of the same script, and can change even within the same run from 5.18 onwards). This option is useful if you want the same data structure to be encoded as the same JSON text (given the same overall settings). If it is disabled, the same hash might be encoded differently even if contains the same data, as key-value pairs have no inherent ordering in Perl. This setting has no effect when decoding JSON texts. This setting has currently no effect on tied hashes. =head2 allow_nonref $json = $json->allow_nonref([$enable]) $enabled = $json->get_allow_nonref Unlike other boolean options, this opotion is enabled by default beginning with version C<4.0>. If C<$enable> is true (or missing), then the C<encode> method can convert a non-reference into its corresponding string, number or null JSON value, which is an extension to RFC4627. Likewise, C<decode> will accept those JSON values instead of croaking. If C<$enable> is false, then the C<encode> method will croak if it isn't passed an arrayref or hashref, as JSON texts must either be an object or array. Likewise, C<decode> will croak if given something that is not a JSON object or array. Example, encode a Perl scalar as JSON value without enabled C<allow_nonref>, resulting in an error: JSON::PP->new->allow_nonref(0)->encode ("Hello, World!") => hash- or arrayref expected... =head2 allow_unknown $json = $json->allow_unknown([$enable]) $enabled = $json->get_allow_unknown If C<$enable> is true (or missing), then C<encode> will I<not> throw an exception when it encounters values it cannot represent in JSON (for example, filehandles) but instead will encode a JSON C<null> value. Note that blessed objects are not included here and are handled separately by c<allow_blessed>. If C<$enable> is false (the default), then C<encode> will throw an exception when it encounters anything it cannot encode as JSON. This option does not affect C<decode> in any way, and it is recommended to leave it off unless you know your communications partner. =head2 allow_blessed $json = $json->allow_blessed([$enable]) $enabled = $json->get_allow_blessed See L<OBJECT SERIALISATION> for details. If C<$enable> is true (or missing), then the C<encode> method will not barf when it encounters a blessed reference that it cannot convert otherwise. Instead, a JSON C<null> value is encoded instead of the object. If C<$enable> is false (the default), then C<encode> will throw an exception when it encounters a blessed object that it cannot convert otherwise. This setting has no effect on C<decode>. =head2 convert_blessed $json = $json->convert_blessed([$enable]) $enabled = $json->get_convert_blessed See L<OBJECT SERIALISATION> for details. If C<$enable> is true (or missing), then C<encode>, upon encountering a blessed object, will check for the availability of the C<TO_JSON> method on the object's class. If found, it will be called in scalar context and the resulting scalar will be encoded instead of the object. The C<TO_JSON> method may safely call die if it wants. If C<TO_JSON> returns other blessed objects, those will be handled in the same way. C<TO_JSON> must take care of not causing an endless recursion cycle (== crash) in this case. The name of C<TO_JSON> was chosen because other methods called by the Perl core (== not by the user of the object) are usually in upper case letters and to avoid collisions with any C<to_json> function or method. If C<$enable> is false (the default), then C<encode> will not consider this type of conversion. This setting has no effect on C<decode>. =head2 allow_tags $json = $json->allow_tags([$enable]) $enabled = $json->get_allow_tags See L<OBJECT SERIALISATION> for details. If C<$enable> is true (or missing), then C<encode>, upon encountering a blessed object, will check for the availability of the C<FREEZE> method on the object's class. If found, it will be used to serialise the object into a nonstandard tagged JSON value (that JSON decoders cannot decode). It also causes C<decode> to parse such tagged JSON values and deserialise them via a call to the C<THAW> method. If C<$enable> is false (the default), then C<encode> will not consider this type of conversion, and tagged JSON values will cause a parse error in C<decode>, as if tags were not part of the grammar. =head2 boolean_values $json->boolean_values([$false, $true]) ($false, $true) = $json->get_boolean_values By default, JSON booleans will be decoded as overloaded C<$JSON::PP::false> and C<$JSON::PP::true> objects. With this method you can specify your own boolean values for decoding - on decode, JSON C<false> will be decoded as a copy of C<$false>, and JSON C<true> will be decoded as C<$true> ("copy" here is the same thing as assigning a value to another variable, i.e. C<$copy = $false>). This is useful when you want to pass a decoded data structure directly to other serialisers like YAML, Data::MessagePack and so on. Note that this works only when you C<decode>. You can set incompatible boolean objects (like L<boolean>), but when you C<encode> a data structure with such boolean objects, you still need to enable C<convert_blessed> (and add a C<TO_JSON> method if necessary). Calling this method without any arguments will reset the booleans to their default values. C<get_boolean_values> will return both C<$false> and C<$true> values, or the empty list when they are set to the default. =head2 filter_json_object $json = $json->filter_json_object([$coderef]) When C<$coderef> is specified, it will be called from C<decode> each time it decodes a JSON object. The only argument is a reference to the newly-created hash. If the code references returns a single scalar (which need not be a reference), this value (or rather a copy of it) is inserted into the deserialised data structure. If it returns an empty list (NOTE: I<not> C<undef>, which is a valid scalar), the original deserialised hash will be inserted. This setting can slow down decoding considerably. When C<$coderef> is omitted or undefined, any existing callback will be removed and C<decode> will not change the deserialised hash in any way. Example, convert all JSON objects into the integer 5: my $js = JSON::PP->new->filter_json_object(sub { 5 }); # returns [5] $js->decode('[{}]'); # returns 5 $js->decode('{"a":1, "b":2}'); =head2 filter_json_single_key_object $json = $json->filter_json_single_key_object($key [=> $coderef]) Works remotely similar to C<filter_json_object>, but is only called for JSON objects having a single key named C<$key>. This C<$coderef> is called before the one specified via C<filter_json_object>, if any. It gets passed the single value in the JSON object. If it returns a single value, it will be inserted into the data structure. If it returns nothing (not even C<undef> but the empty list), the callback from C<filter_json_object> will be called next, as if no single-key callback were specified. If C<$coderef> is omitted or undefined, the corresponding callback will be disabled. There can only ever be one callback for a given key. As this callback gets called less often then the C<filter_json_object> one, decoding speed will not usually suffer as much. Therefore, single-key objects make excellent targets to serialise Perl objects into, especially as single-key JSON objects are as close to the type-tagged value concept as JSON gets (it's basically an ID/VALUE tuple). Of course, JSON does not support this in any way, so you need to make sure your data never looks like a serialised Perl hash. Typical names for the single object key are C<__class_whatever__>, or C<$__dollars_are_rarely_used__$> or C<}ugly_brace_placement>, or even things like C<__class_md5sum(classname)__>, to reduce the risk of clashing with real hashes. Example, decode JSON objects of the form C<< { "__widget__" => <id> } >> into the corresponding C<< $WIDGET{<id>} >> object: # return whatever is in $WIDGET{5}: JSON::PP ->new ->filter_json_single_key_object (__widget__ => sub { $WIDGET{ $_[0] } }) ->decode ('{"__widget__": 5') # this can be used with a TO_JSON method in some "widget" class # for serialisation to json: sub WidgetBase::TO_JSON { my ($self) = @_; unless ($self->{id}) { $self->{id} = ..get..some..id..; $WIDGET{$self->{id}} = $self; } { __widget__ => $self->{id} } } =head2 shrink $json = $json->shrink([$enable]) $enabled = $json->get_shrink If C<$enable> is true (or missing), the string returned by C<encode> will be shrunk (i.e. downgraded if possible). The actual definition of what shrink does might change in future versions, but it will always try to save space at the expense of time. If C<$enable> is false, then JSON::PP does nothing. =head2 max_depth $json = $json->max_depth([$maximum_nesting_depth]) $max_depth = $json->get_max_depth Sets the maximum nesting level (default C<512>) accepted while encoding or decoding. If a higher nesting level is detected in JSON text or a Perl data structure, then the encoder and decoder will stop and croak at that point. Nesting level is defined by number of hash- or arrayrefs that the encoder needs to traverse to reach a given point or the number of C<{> or C<[> characters without their matching closing parenthesis crossed to reach a given character in a string. Setting the maximum depth to one disallows any nesting, so that ensures that the object is only a single hash/object or array. If no argument is given, the highest possible setting will be used, which is rarely useful. See L<JSON::XS/SECURITY CONSIDERATIONS> for more info on why this is useful. =head2 max_size $json = $json->max_size([$maximum_string_size]) $max_size = $json->get_max_size Set the maximum length a JSON text may have (in bytes) where decoding is being attempted. The default is C<0>, meaning no limit. When C<decode> is called on a string that is longer then this many bytes, it will not attempt to decode the string but throw an exception. This setting has no effect on C<encode> (yet). If no argument is given, the limit check will be deactivated (same as when C<0> is specified). See L<JSON::XS/SECURITY CONSIDERATIONS> for more info on why this is useful. =head2 encode $json_text = $json->encode($perl_scalar) Converts the given Perl value or data structure to its JSON representation. Croaks on error. =head2 decode $perl_scalar = $json->decode($json_text) The opposite of C<encode>: expects a JSON text and tries to parse it, returning the resulting simple scalar or reference. Croaks on error. =head2 decode_prefix ($perl_scalar, $characters) = $json->decode_prefix($json_text) This works like the C<decode> method, but instead of raising an exception when there is trailing garbage after the first JSON object, it will silently stop parsing there and return the number of characters consumed so far. This is useful if your JSON texts are not delimited by an outer protocol and you need to know where the JSON text ends. JSON::PP->new->decode_prefix ("[1] the tail") => ([1], 3) =head1 FLAGS FOR JSON::PP ONLY The following flags and properties are for JSON::PP only. If you use any of these, you can't make your application run faster by replacing JSON::PP with JSON::XS. If you need these and also speed boost, you might want to try L<Cpanel::JSON::XS>, a fork of JSON::XS by Reini Urban, which supports some of these (with a different set of incompatibilities). Most of these historical flags are only kept for backward compatibility, and should not be used in a new application. =head2 allow_singlequote $json = $json->allow_singlequote([$enable]) $enabled = $json->get_allow_singlequote If C<$enable> is true (or missing), then C<decode> will accept invalid JSON texts that contain strings that begin and end with single quotation marks. C<encode> will not be affected in any way. I<Be aware that this option makes you accept invalid JSON texts as if they were valid!>. I suggest only to use this option to parse application-specific files written by humans (configuration files, resource files etc.) If C<$enable> is false (the default), then C<decode> will only accept valid JSON texts. $json->allow_singlequote->decode(qq|{"foo":'bar'}|); $json->allow_singlequote->decode(qq|{'foo':"bar"}|); $json->allow_singlequote->decode(qq|{'foo':'bar'}|); =head2 allow_barekey $json = $json->allow_barekey([$enable]) $enabled = $json->get_allow_barekey If C<$enable> is true (or missing), then C<decode> will accept invalid JSON texts that contain JSON objects whose names don't begin and end with quotation marks. C<encode> will not be affected in any way. I<Be aware that this option makes you accept invalid JSON texts as if they were valid!>. I suggest only to use this option to parse application-specific files written by humans (configuration files, resource files etc.) If C<$enable> is false (the default), then C<decode> will only accept valid JSON texts. $json->allow_barekey->decode(qq|{foo:"bar"}|); =head2 allow_bignum $json = $json->allow_bignum([$enable]) $enabled = $json->get_allow_bignum If C<$enable> is true (or missing), then C<decode> will convert big integers Perl cannot handle as integer into L<Math::BigInt> objects and convert floating numbers into L<Math::BigFloat> objects. C<encode> will convert C<Math::BigInt> and C<Math::BigFloat> objects into JSON numbers. $json->allow_nonref->allow_bignum; $bigfloat = $json->decode('2.000000000000000000000000001'); print $json->encode($bigfloat); # => 2.000000000000000000000000001 See also L<MAPPING>. =head2 loose $json = $json->loose([$enable]) $enabled = $json->get_loose If C<$enable> is true (or missing), then C<decode> will accept invalid JSON texts that contain unescaped [\x00-\x1f\x22\x5c] characters. C<encode> will not be affected in any way. I<Be aware that this option makes you accept invalid JSON texts as if they were valid!>. I suggest only to use this option to parse application-specific files written by humans (configuration files, resource files etc.) If C<$enable> is false (the default), then C<decode> will only accept valid JSON texts. $json->loose->decode(qq|["abc def"]|); =head2 escape_slash $json = $json->escape_slash([$enable]) $enabled = $json->get_escape_slash If C<$enable> is true (or missing), then C<encode> will explicitly escape I<slash> (solidus; C<U+002F>) characters to reduce the risk of XSS (cross site scripting) that may be caused by C<< </script> >> in a JSON text, with the cost of bloating the size of JSON texts. This option may be useful when you embed JSON in HTML, but embedding arbitrary JSON in HTML (by some HTML template toolkit or by string interpolation) is risky in general. You must escape necessary characters in correct order, depending on the context. C<decode> will not be affected in any way. =head2 indent_length $json = $json->indent_length($number_of_spaces) $length = $json->get_indent_length This option is only useful when you also enable C<indent> or C<pretty>. JSON::XS indents with three spaces when you C<encode> (if requested by C<indent> or C<pretty>), and the number cannot be changed. JSON::PP allows you to change/get the number of indent spaces with these mutator/accessor. The default number of spaces is three (the same as JSON::XS), and the acceptable range is from C<0> (no indentation; it'd be better to disable indentation by C<indent(0)>) to C<15>. =head2 sort_by $json = $json->sort_by($code_ref) $json = $json->sort_by($subroutine_name) If you just want to sort keys (names) in JSON objects when you C<encode>, enable C<canonical> option (see above) that allows you to sort object keys alphabetically. If you do need to sort non-alphabetically for whatever reasons, you can give a code reference (or a subroutine name) to C<sort_by>, then the argument will be passed to Perl's C<sort> built-in function. As the sorting is done in the JSON::PP scope, you usually need to prepend C<JSON::PP::> to the subroutine name, and the special variables C<$a> and C<$b> used in the subrontine used by C<sort> function. Example: my %ORDER = (id => 1, class => 2, name => 3); $json->sort_by(sub { ($ORDER{$JSON::PP::a} // 999) <=> ($ORDER{$JSON::PP::b} // 999) or $JSON::PP::a cmp $JSON::PP::b }); print $json->encode([ {name => 'CPAN', id => 1, href => 'http://cpan.org'} ]); # [{"id":1,"name":"CPAN","href":"http://cpan.org"}] Note that C<sort_by> affects all the plain hashes in the data structure. If you need finer control, C<tie> necessary hashes with a module that implements ordered hash (such as L<Hash::Ordered> and L<Tie::IxHash>). C<canonical> and C<sort_by> don't affect the key order in C<tie>d hashes. use Hash::Ordered; tie my %hash, 'Hash::Ordered', (name => 'CPAN', id => 1, href => 'http://cpan.org'); print $json->encode([\%hash]); # [{"name":"CPAN","id":1,"href":"http://cpan.org"}] # order is kept =head1 INCREMENTAL PARSING This section is also taken from JSON::XS. In some cases, there is the need for incremental parsing of JSON texts. While this module always has to keep both JSON text and resulting Perl data structure in memory at one time, it does allow you to parse a JSON stream incrementally. It does so by accumulating text until it has a full JSON object, which it then can decode. This process is similar to using C<decode_prefix> to see if a full JSON object is available, but is much more efficient (and can be implemented with a minimum of method calls). JSON::PP will only attempt to parse the JSON text once it is sure it has enough text to get a decisive result, using a very simple but truly incremental parser. This means that it sometimes won't stop as early as the full parser, for example, it doesn't detect mismatched parentheses. The only thing it guarantees is that it starts decoding as soon as a syntactically valid JSON text has been seen. This means you need to set resource limits (e.g. C<max_size>) to ensure the parser will stop parsing in the presence if syntax errors. The following methods implement this incremental parser. =head2 incr_parse $json->incr_parse( [$string] ) # void context $obj_or_undef = $json->incr_parse( [$string] ) # scalar context @obj_or_empty = $json->incr_parse( [$string] ) # list context This is the central parsing function. It can both append new text and extract objects from the stream accumulated so far (both of these functions are optional). If C<$string> is given, then this string is appended to the already existing JSON fragment stored in the C<$json> object. After that, if the function is called in void context, it will simply return without doing anything further. This can be used to add more text in as many chunks as you want. If the method is called in scalar context, then it will try to extract exactly I<one> JSON object. If that is successful, it will return this object, otherwise it will return C<undef>. If there is a parse error, this method will croak just as C<decode> would do (one can then use C<incr_skip> to skip the erroneous part). This is the most common way of using the method. And finally, in list context, it will try to extract as many objects from the stream as it can find and return them, or the empty list otherwise. For this to work, there must be no separators (other than whitespace) between the JSON objects or arrays, instead they must be concatenated back-to-back. If an error occurs, an exception will be raised as in the scalar context case. Note that in this case, any previously-parsed JSON texts will be lost. Example: Parse some JSON arrays/objects in a given string and return them. my @objs = JSON::PP->new->incr_parse ("[5][7][1,2]"); =head2 incr_text $lvalue_string = $json->incr_text This method returns the currently stored JSON fragment as an lvalue, that is, you can manipulate it. This I<only> works when a preceding call to C<incr_parse> in I<scalar context> successfully returned an object. Under all other circumstances you must not call this function (I mean it. although in simple tests it might actually work, it I<will> fail under real world conditions). As a special exception, you can also call this method before having parsed anything. That means you can only use this function to look at or manipulate text before or after complete JSON objects, not while the parser is in the middle of parsing a JSON object. This function is useful in two cases: a) finding the trailing text after a JSON object or b) parsing multiple JSON objects separated by non-JSON text (such as commas). =head2 incr_skip $json->incr_skip This will reset the state of the incremental parser and will remove the parsed text from the input buffer so far. This is useful after C<incr_parse> died, in which case the input buffer and incremental parser state is left unchanged, to skip the text parsed so far and to reset the parse state. The difference to C<incr_reset> is that only text until the parse error occurred is removed. =head2 incr_reset $json->incr_reset This completely resets the incremental parser, that is, after this call, it will be as if the parser had never parsed anything. This is useful if you want to repeatedly parse JSON objects and want to ignore any trailing data, which means you have to reset the parser after each successful decode. =head1 MAPPING Most of this section is also taken from JSON::XS. This section describes how JSON::PP maps Perl values to JSON values and vice versa. These mappings are designed to "do the right thing" in most circumstances automatically, preserving round-tripping characteristics (what you put in comes out as something equivalent). For the more enlightened: note that in the following descriptions, lowercase I<perl> refers to the Perl interpreter, while uppercase I<Perl> refers to the abstract Perl language itself. =head2 JSON -> PERL =over 4 =item object A JSON object becomes a reference to a hash in Perl. No ordering of object keys is preserved (JSON does not preserve object key ordering itself). =item array A JSON array becomes a reference to an array in Perl. =item string A JSON string becomes a string scalar in Perl - Unicode codepoints in JSON are represented by the same codepoints in the Perl string, so no manual decoding is necessary. =item number A JSON number becomes either an integer, numeric (floating point) or string scalar in perl, depending on its range and any fractional parts. On the Perl level, there is no difference between those as Perl handles all the conversion details, but an integer may take slightly less memory and might represent more values exactly than floating point numbers. If the number consists of digits only, JSON::PP will try to represent it as an integer value. If that fails, it will try to represent it as a numeric (floating point) value if that is possible without loss of precision. Otherwise it will preserve the number as a string value (in which case you lose roundtripping ability, as the JSON number will be re-encoded to a JSON string). Numbers containing a fractional or exponential part will always be represented as numeric (floating point) values, possibly at a loss of precision (in which case you might lose perfect roundtripping ability, but the JSON number will still be re-encoded as a JSON number). Note that precision is not accuracy - binary floating point values cannot represent most decimal fractions exactly, and when converting from and to floating point, JSON::PP only guarantees precision up to but not including the least significant bit. When C<allow_bignum> is enabled, big integer values and any numeric values will be converted into L<Math::BigInt> and L<Math::BigFloat> objects respectively, without becoming string scalars or losing precision. =item true, false These JSON atoms become C<JSON::PP::true> and C<JSON::PP::false>, respectively. They are overloaded to act almost exactly like the numbers C<1> and C<0>. You can check whether a scalar is a JSON boolean by using the C<JSON::PP::is_bool> function. =item null A JSON null atom becomes C<undef> in Perl. =item shell-style comments (C<< # I<text> >>) As a nonstandard extension to the JSON syntax that is enabled by the C<relaxed> setting, shell-style comments are allowed. They can start anywhere outside strings and go till the end of the line. =item tagged values (C<< (I<tag>)I<value> >>). Another nonstandard extension to the JSON syntax, enabled with the C<allow_tags> setting, are tagged values. In this implementation, the I<tag> must be a perl package/class name encoded as a JSON string, and the I<value> must be a JSON array encoding optional constructor arguments. See L<OBJECT SERIALISATION>, below, for details. =back =head2 PERL -> JSON The mapping from Perl to JSON is slightly more difficult, as Perl is a truly typeless language, so we can only guess which JSON type is meant by a Perl value. =over 4 =item hash references Perl hash references become JSON objects. As there is no inherent ordering in hash keys (or JSON objects), they will usually be encoded in a pseudo-random order. JSON::PP can optionally sort the hash keys (determined by the I<canonical> flag and/or I<sort_by> property), so the same data structure will serialise to the same JSON text (given same settings and version of JSON::PP), but this incurs a runtime overhead and is only rarely useful, e.g. when you want to compare some JSON text against another for equality. =item array references Perl array references become JSON arrays. =item other references Other unblessed references are generally not allowed and will cause an exception to be thrown, except for references to the integers C<0> and C<1>, which get turned into C<false> and C<true> atoms in JSON. You can also use C<JSON::PP::false> and C<JSON::PP::true> to improve readability. to_json [\0, JSON::PP::true] # yields [false,true] =item JSON::PP::true, JSON::PP::false These special values become JSON true and JSON false values, respectively. You can also use C<\1> and C<\0> directly if you want. =item JSON::PP::null This special value becomes JSON null. =item blessed objects Blessed objects are not directly representable in JSON, but C<JSON::PP> allows various ways of handling objects. See L<OBJECT SERIALISATION>, below, for details. =item simple scalars Simple Perl scalars (any scalar that is not a reference) are the most difficult objects to encode: JSON::PP will encode undefined scalars as JSON C<null> values, scalars that have last been used in a string context before encoding as JSON strings, and anything else as number value: # dump as number encode_json [2] # yields [2] encode_json [-3.0e17] # yields [-3e+17] my $value = 5; encode_json [$value] # yields [5] # used as string, so dump as string print $value; encode_json [$value] # yields ["5"] # undef becomes null encode_json [undef] # yields [null] You can force the type to be a JSON string by stringifying it: my $x = 3.1; # some variable containing a number "$x"; # stringified $x .= ""; # another, more awkward way to stringify print $x; # perl does it for you, too, quite often # (but for older perls) You can force the type to be a JSON number by numifying it: my $x = "3"; # some variable containing a string $x += 0; # numify it, ensuring it will be dumped as a number $x *= 1; # same thing, the choice is yours. You can not currently force the type in other, less obscure, ways. Since version 2.91_01, JSON::PP uses a different number detection logic that converts a scalar that is possible to turn into a number safely. The new logic is slightly faster, and tends to help people who use older perl or who want to encode complicated data structure. However, this may results in a different JSON text from the one JSON::XS encodes (and thus may break tests that compare entire JSON texts). If you do need the previous behavior for compatibility or for finer control, set PERL_JSON_PP_USE_B environmental variable to true before you C<use> JSON::PP (or JSON.pm). Note that numerical precision has the same meaning as under Perl (so binary to decimal conversion follows the same rules as in Perl, which can differ to other languages). Also, your perl interpreter might expose extensions to the floating point numbers of your platform, such as infinities or NaN's - these cannot be represented in JSON, and it is an error to pass those in. JSON::PP (and JSON::XS) trusts what you pass to C<encode> method (or C<encode_json> function) is a clean, validated data structure with values that can be represented as valid JSON values only, because it's not from an external data source (as opposed to JSON texts you pass to C<decode> or C<decode_json>, which JSON::PP considers tainted and doesn't trust). As JSON::PP doesn't know exactly what you and consumers of your JSON texts want the unexpected values to be (you may want to convert them into null, or to stringify them with or without normalisation (string representation of infinities/NaN may vary depending on platforms), or to croak without conversion), you're advised to do what you and your consumers need before you encode, and also not to numify values that may start with values that look like a number (including infinities/NaN), without validating. =back =head2 OBJECT SERIALISATION As JSON cannot directly represent Perl objects, you have to choose between a pure JSON representation (without the ability to deserialise the object automatically again), and a nonstandard extension to the JSON syntax, tagged values. =head3 SERIALISATION What happens when C<JSON::PP> encounters a Perl object depends on the C<allow_blessed>, C<convert_blessed>, C<allow_tags> and C<allow_bignum> settings, which are used in this order: =over 4 =item 1. C<allow_tags> is enabled and the object has a C<FREEZE> method. In this case, C<JSON::PP> creates a tagged JSON value, using a nonstandard extension to the JSON syntax. This works by invoking the C<FREEZE> method on the object, with the first argument being the object to serialise, and the second argument being the constant string C<JSON> to distinguish it from other serialisers. The C<FREEZE> method can return any number of values (i.e. zero or more). These values and the paclkage/classname of the object will then be encoded as a tagged JSON value in the following format: ("classname")[FREEZE return values...] e.g.: ("URI")["http://www.google.com/"] ("MyDate")[2013,10,29] ("ImageData::JPEG")["Z3...VlCg=="] For example, the hypothetical C<My::Object> C<FREEZE> method might use the objects C<type> and C<id> members to encode the object: sub My::Object::FREEZE { my ($self, $serialiser) = @_; ($self->{type}, $self->{id}) } =item 2. C<convert_blessed> is enabled and the object has a C<TO_JSON> method. In this case, the C<TO_JSON> method of the object is invoked in scalar context. It must return a single scalar that can be directly encoded into JSON. This scalar replaces the object in the JSON text. For example, the following C<TO_JSON> method will convert all L<URI> objects to JSON strings when serialised. The fact that these values originally were L<URI> objects is lost. sub URI::TO_JSON { my ($uri) = @_; $uri->as_string } =item 3. C<allow_bignum> is enabled and the object is a C<Math::BigInt> or C<Math::BigFloat>. The object will be serialised as a JSON number value. =item 4. C<allow_blessed> is enabled. The object will be serialised as a JSON null value. =item 5. none of the above If none of the settings are enabled or the respective methods are missing, C<JSON::PP> throws an exception. =back =head3 DESERIALISATION For deserialisation there are only two cases to consider: either nonstandard tagging was used, in which case C<allow_tags> decides, or objects cannot be automatically be deserialised, in which case you can use postprocessing or the C<filter_json_object> or C<filter_json_single_key_object> callbacks to get some real objects our of your JSON. This section only considers the tagged value case: a tagged JSON object is encountered during decoding and C<allow_tags> is disabled, a parse error will result (as if tagged values were not part of the grammar). If C<allow_tags> is enabled, C<JSON::PP> will look up the C<THAW> method of the package/classname used during serialisation (it will not attempt to load the package as a Perl module). If there is no such method, the decoding will fail with an error. Otherwise, the C<THAW> method is invoked with the classname as first argument, the constant string C<JSON> as second argument, and all the values from the JSON array (the values originally returned by the C<FREEZE> method) as remaining arguments. The method must then return the object. While technically you can return any Perl scalar, you might have to enable the C<allow_nonref> setting to make that work in all cases, so better return an actual blessed reference. As an example, let's implement a C<THAW> function that regenerates the C<My::Object> from the C<FREEZE> example earlier: sub My::Object::THAW { my ($class, $serialiser, $type, $id) = @_; $class->new (type => $type, id => $id) } =head1 ENCODING/CODESET FLAG NOTES This section is taken from JSON::XS. The interested reader might have seen a number of flags that signify encodings or codesets - C<utf8>, C<latin1> and C<ascii>. There seems to be some confusion on what these do, so here is a short comparison: C<utf8> controls whether the JSON text created by C<encode> (and expected by C<decode>) is UTF-8 encoded or not, while C<latin1> and C<ascii> only control whether C<encode> escapes character values outside their respective codeset range. Neither of these flags conflict with each other, although some combinations make less sense than others. Care has been taken to make all flags symmetrical with respect to C<encode> and C<decode>, that is, texts encoded with any combination of these flag values will be correctly decoded when the same flags are used - in general, if you use different flag settings while encoding vs. when decoding you likely have a bug somewhere. Below comes a verbose discussion of these flags. Note that a "codeset" is simply an abstract set of character-codepoint pairs, while an encoding takes those codepoint numbers and I<encodes> them, in our case into octets. Unicode is (among other things) a codeset, UTF-8 is an encoding, and ISO-8859-1 (= latin 1) and ASCII are both codesets I<and> encodings at the same time, which can be confusing. =over 4 =item C<utf8> flag disabled When C<utf8> is disabled (the default), then C<encode>/C<decode> generate and expect Unicode strings, that is, characters with high ordinal Unicode values (> 255) will be encoded as such characters, and likewise such characters are decoded as-is, no changes to them will be done, except "(re-)interpreting" them as Unicode codepoints or Unicode characters, respectively (to Perl, these are the same thing in strings unless you do funny/weird/dumb stuff). This is useful when you want to do the encoding yourself (e.g. when you want to have UTF-16 encoded JSON texts) or when some other layer does the encoding for you (for example, when printing to a terminal using a filehandle that transparently encodes to UTF-8 you certainly do NOT want to UTF-8 encode your data first and have Perl encode it another time). =item C<utf8> flag enabled If the C<utf8>-flag is enabled, C<encode>/C<decode> will encode all characters using the corresponding UTF-8 multi-byte sequence, and will expect your input strings to be encoded as UTF-8, that is, no "character" of the input string must have any value > 255, as UTF-8 does not allow that. The C<utf8> flag therefore switches between two modes: disabled means you will get a Unicode string in Perl, enabled means you get an UTF-8 encoded octet/binary string in Perl. =item C<latin1> or C<ascii> flags enabled With C<latin1> (or C<ascii>) enabled, C<encode> will escape characters with ordinal values > 255 (> 127 with C<ascii>) and encode the remaining characters as specified by the C<utf8> flag. If C<utf8> is disabled, then the result is also correctly encoded in those character sets (as both are proper subsets of Unicode, meaning that a Unicode string with all character values < 256 is the same thing as a ISO-8859-1 string, and a Unicode string with all character values < 128 is the same thing as an ASCII string in Perl). If C<utf8> is enabled, you still get a correct UTF-8-encoded string, regardless of these flags, just some more characters will be escaped using C<\uXXXX> then before. Note that ISO-8859-1-I<encoded> strings are not compatible with UTF-8 encoding, while ASCII-encoded strings are. That is because the ISO-8859-1 encoding is NOT a subset of UTF-8 (despite the ISO-8859-1 I<codeset> being a subset of Unicode), while ASCII is. Surprisingly, C<decode> will ignore these flags and so treat all input values as governed by the C<utf8> flag. If it is disabled, this allows you to decode ISO-8859-1- and ASCII-encoded strings, as both strict subsets of Unicode. If it is enabled, you can correctly decode UTF-8 encoded strings. So neither C<latin1> nor C<ascii> are incompatible with the C<utf8> flag - they only govern when the JSON output engine escapes a character or not. The main use for C<latin1> is to relatively efficiently store binary data as JSON, at the expense of breaking compatibility with most JSON decoders. The main use for C<ascii> is to force the output to not contain characters with values > 127, which means you can interpret the resulting string as UTF-8, ISO-8859-1, ASCII, KOI8-R or most about any character set and 8-bit-encoding, and still get the same data structure back. This is useful when your channel for JSON transfer is not 8-bit clean or the encoding might be mangled in between (e.g. in mail), and works because ASCII is a proper subset of most 8-bit and multibyte encodings in use in the world. =back =head1 BUGS Please report bugs on a specific behavior of this module to RT or GitHub issues (preferred): L<https://github.com/makamaka/JSON-PP/issues> L<https://rt.cpan.org/Public/Dist/Display.html?Queue=JSON-PP> As for new features and requests to change common behaviors, please ask the author of JSON::XS (Marc Lehmann, E<lt>schmorp[at]schmorp.deE<gt>) first, by email (important!), to keep compatibility among JSON.pm backends. Generally speaking, if you need something special for you, you are advised to create a new module, maybe based on L<JSON::Tiny>, which is smaller and written in a much cleaner way than this module. =head1 SEE ALSO The F<json_pp> command line utility for quick experiments. L<JSON::XS>, L<Cpanel::JSON::XS>, and L<JSON::Tiny> for faster alternatives. L<JSON> and L<JSON::MaybeXS> for easy migration. L<JSON::PP::Compat5005> and L<JSON::PP::Compat5006> for older perl users. RFC4627 (L<http://www.ietf.org/rfc/rfc4627.txt>) RFC7159 (L<http://www.ietf.org/rfc/rfc7159.txt>) RFC8259 (L<http://www.ietf.org/rfc/rfc8259.txt>) =head1 AUTHOR Makamaka Hannyaharamitu, E<lt>makamaka[at]cpan.orgE<gt> =head1 CURRENT MAINTAINER Kenichi Ishigaki, E<lt>ishigaki[at]cpan.orgE<gt> =head1 COPYRIGHT AND LICENSE Copyright 2007-2016 by Makamaka Hannyaharamitu Most of the documentation is taken from JSON::XS by Marc Lehmann This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut PK ! z�� � 5.34.0/vars.pmnu �[��� package vars; use 5.006; our $VERSION = '1.05'; use warnings::register; use strict qw(vars subs); sub import { my $callpack = caller; my (undef, @imports) = @_; my ($sym, $ch); foreach (@imports) { if (($ch, $sym) = /^([\$\@\%\*\&])(.+)/) { if ($sym =~ /\W/) { # time for a more-detailed check-up if ($sym =~ /^\w+[[{].*[]}]$/) { require Carp; Carp::croak("Can't declare individual elements of hash or array"); } elsif (warnings::enabled() and length($sym) == 1 and $sym !~ tr/a-zA-Z//) { warnings::warn("No need to declare built-in vars"); } elsif (($^H & strict::bits('vars'))) { require Carp; Carp::croak("'$_' is not a valid variable name under strict vars"); } } $sym = "${callpack}::$sym" unless $sym =~ /::/; *$sym = ( $ch eq "\$" ? \$$sym : $ch eq "\@" ? \@$sym : $ch eq "\%" ? \%$sym : $ch eq "\*" ? \*$sym : $ch eq "\&" ? \&$sym : do { require Carp; Carp::croak("'$_' is not a valid variable name"); }); } else { require Carp; Carp::croak("'$_' is not a valid variable name"); } } }; 1; __END__ =head1 NAME vars - Perl pragma to predeclare global variable names =head1 SYNOPSIS use vars qw($frob @mung %seen); =head1 DESCRIPTION NOTE: For use with variables in the current package for a single scope, the functionality provided by this pragma has been superseded by C<our> declarations, available in Perl v5.6.0 or later, and use of this pragma is discouraged. See L<perlfunc/our>. This pragma will predeclare all the variables whose names are in the list, allowing you to use them under C<use strict>, and disabling any typo warnings for them. Unlike pragmas that affect the C<$^H> hints variable, the C<use vars> and C<use subs> declarations are not lexically scoped to the block they appear in: they affect the entire package in which they appear. It is not possible to rescind these declarations with C<no vars> or C<no subs>. Packages such as the B<AutoLoader> and B<SelfLoader> that delay loading of subroutines within packages can create problems with package lexicals defined using C<my()>. While the B<vars> pragma cannot duplicate the effect of package lexicals (total transparency outside of the package), it can act as an acceptable substitute by pre-declaring global symbols, ensuring their availability to the later-loaded routines. See L<perlmodlib/Pragmatic Modules>. =cut PK ! Kƹ��# �# 5.34.0/Module/Load.pmnu �[��� package Module::Load; use strict; use warnings; use File::Spec (); our $VERSION = '0.36'; sub import { my $who = _who(); my $h; shift; { no strict 'refs'; @_ or ( *{"${who}::load"} = \&load, # compat to prev version *{"${who}::autoload"} = \&autoload, return ); map { $h->{$_} = () if defined $_ } @_; (exists $h->{none} or exists $h->{''}) and shift, last; ((exists $h->{autoload} and shift,1) or (exists $h->{all} and shift)) and *{"${who}::autoload"} = \&autoload; ((exists $h->{load} and shift,1) or exists $h->{all}) and *{"${who}::load"} = \&load; ((exists $h->{load_remote} and shift,1) or exists $h->{all}) and *{"${who}::load_remote"} = \&load_remote; ((exists $h->{autoload_remote} and shift,1) or exists $h->{all}) and *{"${who}::autoload_remote"} = \&autoload_remote; } } sub load(*;@){ goto &_load; } sub autoload(*;@){ unshift @_, 'autoimport'; goto &_load; } sub load_remote($$;@){ my ($dst, $src, @exp) = @_; eval "package $dst;Module::Load::load('$src', qw/@exp/);"; $@ && die "$@"; } sub autoload_remote($$;@){ my ($dst, $src, @exp) = @_; eval "package $dst;Module::Load::autoload('$src', qw/@exp/);"; $@ && die "$@"; } sub _load{ my $autoimport = $_[0] eq 'autoimport' and shift; my $mod = shift or return; my $who = _who(); if( _is_file( $mod ) ) { require $mod; } else { LOAD: { my $err; for my $flag ( qw[1 0] ) { my $file = _to_file( $mod, $flag); eval { require $file }; $@ ? $err .= $@ : last LOAD; } die $err if $err; } } ### This addresses #41883: Module::Load cannot import ### non-Exporter module. ->import() routines weren't ### properly called when load() was used. { no strict 'refs'; my $import; ((@_ or $autoimport) and ( $import = $mod->can('import') ) and ( unshift(@_, $mod), goto &$import ) ); } } sub _to_file{ local $_ = shift; my $pm = shift || ''; ## trailing blanks ignored by default. [rt #69886] my @parts = split /::|'/, $_, -1; ## make sure that we can't hop out of @INC shift @parts if @parts && !$parts[0]; ### because of [perl #19213], see caveats ### my $file = $^O eq 'MSWin32' ? join "/", @parts : File::Spec->catfile( @parts ); $file .= '.pm' if $pm; ### on perl's before 5.10 (5.9.5@31746) if you require ### a file in VMS format, it's stored in %INC in VMS ### format. Therefor, better unixify it first ### Patch in reply to John Malmbergs patch (as mentioned ### above) on p5p Tue 21 Aug 2007 04:55:07 $file = VMS::Filespec::unixify($file) if $^O eq 'VMS'; return $file; } sub _who { (caller(1))[0] } sub _is_file { local $_ = shift; return /^\./ ? 1 : /[^\w:']/ ? 1 : undef #' silly bbedit.. } 1; __END__ =pod =head1 NAME Module::Load - runtime require of both modules and files =head1 SYNOPSIS use Module::Load; my $module = 'Data::Dumper'; load Data::Dumper; # loads that module, but not import any functions # -> cannot use 'Dumper' function load 'Data::Dumper'; # ditto load $module # tritto autoload Data::Dumper; # loads that module and imports the default functions # -> can use 'Dumper' function my $script = 'some/script.pl' load $script; load 'some/script.pl'; # use quotes because of punctuations load thing; # try 'thing' first, then 'thing.pm' load CGI, ':all'; # like 'use CGI qw[:standard]' =head1 DESCRIPTION C<Module::Load> eliminates the need to know whether you are trying to require either a file or a module. If you consult C<perldoc -f require> you will see that C<require> will behave differently when given a bareword or a string. In the case of a string, C<require> assumes you are wanting to load a file. But in the case of a bareword, it assumes you mean a module. This gives nasty overhead when you are trying to dynamically require modules at runtime, since you will need to change the module notation (C<Acme::Comment>) to a file notation fitting the particular platform you are on. C<Module::Load> eliminates the need for this overhead and will just DWYM. =head2 Difference between C<load> and C<autoload> C<Module::Load> imports the two functions - C<load> and C<autoload> C<autoload> imports the default functions automatically, but C<load> do not import any functions. C<autoload> is usable under C<BEGIN{};>. Both the functions can import the functions that are specified. Following codes are same. load File::Spec::Functions, qw/splitpath/; autoload File::Spec::Functions, qw/splitpath/; =head1 FUNCTIONS =over 4 =item load Loads a specified module. See L</Rules> for detailed loading rule. =item autoload Loads a specified module and imports the default functions. Except importing the functions, 'autoload' is same as 'load'. =item load_remote Loads a specified module to the specified package. use Module::Load 'load_remote'; my $pkg = 'Other::Package'; load_remote $pkg, 'Data::Dumper'; # load a module to 'Other::Package' # but do not import 'Dumper' function A module for loading must be quoted. Except specifing the package and quoting module name, 'load_remote' is same as 'load'. =item autoload_remote Loads a specified module and imports the default functions to the specified package. use Module::Load 'autoload_remote'; my $pkg = 'Other::Package'; autoload_remote $pkg, 'Data::Dumper'; # load a module to 'Other::Package' # and imports 'Dumper' function A module for loading must be quoted. Except specifing the package and quoting module name, 'autoload_remote' is same as 'load_remote'. =back =head1 Rules All functions have the following rules to decide what it thinks you want: =over 4 =item * If the argument has any characters in it other than those matching C<\w>, C<:> or C<'>, it must be a file =item * If the argument matches only C<[\w:']>, it must be a module =item * If the argument matches only C<\w>, it could either be a module or a file. We will try to find C<file.pm> first in C<@INC> and if that fails, we will try to find C<file> in @INC. If both fail, we die with the respective error messages. =back =head1 IMPORTS THE FUNCTIONS 'load' and 'autoload' are imported by default, but 'load_remote' and 'autoload_remote' are not imported. To use 'load_remote' or 'autoload_remote', specify at 'use'. =over 4 =item "load","autoload","load_remote","autoload_remote" Imports the selected functions. # imports 'load' and 'autoload' (default) use Module::Load; # imports 'autoload' only use Module::Load 'autoload'; # imports 'autoload' and 'autoload_remote', but don't import 'load'; use Module::Load qw/autoload autoload_remote/; =item 'all' Imports all the functions. use Module::Load 'all'; # imports load, autoload, load_remote, autoload_remote =item '','none',undef Not import any functions (C<load> and C<autoload> are not imported). use Module::Load ''; use Module::Load 'none'; use Module::Load undef; =back =head1 Caveats Because of a bug in perl (#19213), at least in version 5.6.1, we have to hardcode the path separator for a require on Win32 to be C</>, like on Unix rather than the Win32 C<\>. Otherwise perl will not read its own %INC accurately double load files if they are required again, or in the worst case, core dump. C<Module::Load> cannot do implicit imports, only explicit imports. (in other words, you always have to specify explicitly what you wish to import from a module, even if the functions are in that modules' C<@EXPORT>) =head1 SEE ALSO L<Module::Runtime> provides functions for loading modules, checking the validity of a module name, converting a module name to partial C<.pm> path, and related utility functions. L<"require" in perlfunc|https://metacpan.org/pod/perlfunc#require> and L<"use" in perlfunc|https://metacpan.org/pod/perlfunc#use>. L<Mojo::Loader> is a "class loader and plugin framework", and is included in the L<Mojolicious|https://metacpan.org/release/Mojolicious> distribution. L<Module::Loader> is a module for finding and loading modules in a given namespace, inspired by C<Mojo::Loader>. =head1 ACKNOWLEDGEMENTS Thanks to Jonas B. Nielsen for making explicit imports work. =head1 BUG REPORTS Please report bugs or other issues to E<lt>bug-module-load@rt.cpan.orgE<gt>. =head1 AUTHOR This module by Jos Boumans E<lt>kane@cpan.orgE<gt>. =head1 COPYRIGHT This library is free software; you may redistribute and/or modify it under the same terms as Perl itself. =cut PK ! �<T <T 5.34.0/Module/CoreList.pmnu �[��� package Module::CoreList; use strict; our ( %released, %version, %families, %upstream, %bug_tracker, %deprecated, %delta ); use version; our $VERSION = '5.20210520'; sub PKG_PATTERN () { q#\A[a-zA-Z_][0-9a-zA-Z_]*(?:(::|')[0-9a-zA-Z_]+)*\z# } sub _looks_like_invocant ($) { local $@; !!eval { $_[0]->isa(__PACKAGE__) } } sub _undelta { my ($delta) = @_; my (%expanded, $delta_from, $base, $changed, $removed); for my $v (sort keys %$delta) { ($delta_from, $changed, $removed) = @{$delta->{$v}}{qw( delta_from changed removed )}; $base = $delta_from ? $expanded{$delta_from} : {}; my %full = ( %$base, %{$changed || {}} ); delete @full{ keys %$removed }; $expanded{$v} = \%full; } return %expanded; } sub _released_order { # Sort helper, to make '?' sort after everything else (substr($released{$a}, 0, 1) eq "?") ? ((substr($released{$b}, 0, 1) eq "?") ? 0 : 1) : ((substr($released{$b}, 0, 1) eq "?") ? -1 : $released{$a} cmp $released{$b} ) } my $dumpinc = 0; sub import { my $self = shift; my $what = shift || ''; if ($what eq 'dumpinc') { $dumpinc = 1; } } END { print "---INC---\n", join "\n" => keys %INC if $dumpinc; } sub first_release_raw { shift if defined $_[1] and $_[1] =~ PKG_PATTERN and _looks_like_invocant $_[0]; my $module = shift; my $version = shift; my @perls = $version ? grep { defined $version{$_}{ $module } && $version{$_}{ $module } ge $version } keys %version : grep { exists $version{$_}{ $module } } keys %version; return @perls; } sub first_release_by_date { my @perls = &first_release_raw; return unless @perls; return (sort _released_order @perls)[0]; } sub first_release { my @perls = &first_release_raw; return unless @perls; return (sort { $a cmp $b } @perls)[0]; } sub find_modules { shift if _looks_like_invocant $_[0]; my $regex = shift; my @perls = @_ ? @_ : keys %version; my %mods; foreach (@perls) { while (my ($k, $v) = each %{$version{$_}}) { $mods{$k}++ if $k =~ $regex; } } return sort keys %mods } sub find_version { shift if _looks_like_invocant $_[0]; my $v = shift; return $version{$v} if defined $v and defined $version{$v}; return; } sub is_deprecated { shift if defined $_[1] and $_[1] =~ PKG_PATTERN and _looks_like_invocant $_[0]; my $module = shift; my $perl_version = shift || $]; return unless $module && exists $deprecated{$perl_version}{$module}; return $deprecated{$perl_version}{$module}; } sub deprecated_in { shift if defined $_[1] and $_[1] =~ PKG_PATTERN and _looks_like_invocant $_[0]; my $module = shift or return; my @perls = grep { exists $deprecated{$_}{$module} } keys %deprecated; return unless @perls; require List::Util; return List::Util::minstr(@perls); } sub removed_from { my @perls = &removed_raw; return shift @perls; } sub removed_from_by_date { my @perls = sort _released_order &removed_raw; return shift @perls; } sub removed_raw { shift if defined $_[1] and $_[1] =~ PKG_PATTERN and _looks_like_invocant $_[0]; my $mod = shift; return unless my @perls = sort { $a cmp $b } first_release_raw($mod); my $last = pop @perls; my @removed = grep { $_ > $last } sort { $a cmp $b } keys %version; return @removed; } sub changes_between { shift if _looks_like_invocant $_[0]; my $left_ver = shift; my $right_ver = shift; my $left = $version{ $left_ver } || {}; my $right = $version{ $right_ver } || {}; my %uniq = (%$left, %$right); my %changes; for my $lib (keys %uniq) { my $lhs = exists $left->{ $lib } ? (defined $left->{ $lib } ? $left->{ $lib } : '(undef)') : '(absent)'; my $rhs = exists $right->{ $lib } ? (defined $right->{ $lib } ? $right->{ $lib } : '(undef)') : '(absent)'; next if $lhs eq $rhs; my $change = { (exists $left->{$lib} ? (left => $left->{$lib}) : ()), (exists $right->{$lib} ? (right => $right->{$lib}) : ()), }; $changes{$lib} = $change; } return %changes; } # When things escaped. # NB. If you put version numbers with trailing zeroes here, you # should also add an alias for the numerical ($]) version; see # just before the __END__ of this module. %released = ( 5.000 => '1994-10-17', 5.001 => '1995-03-14', 5.002 => '1996-02-29', 5.00307 => '1996-10-10', 5.004 => '1997-05-15', 5.005 => '1998-07-22', 5.00503 => '1999-03-28', 5.00405 => '1999-04-29', 5.006 => '2000-03-22', 5.006001 => '2001-04-08', 5.007003 => '2002-03-05', 5.008 => '2002-07-19', 5.008001 => '2003-09-25', 5.009 => '2003-10-27', 5.008002 => '2003-11-05', 5.006002 => '2003-11-15', 5.008003 => '2004-01-14', 5.00504 => '2004-02-23', 5.009001 => '2004-03-16', 5.008004 => '2004-04-21', 5.008005 => '2004-07-19', 5.008006 => '2004-11-27', 5.009002 => '2005-04-01', 5.008007 => '2005-05-30', 5.009003 => '2006-01-28', 5.008008 => '2006-01-31', 5.009004 => '2006-08-15', 5.009005 => '2007-07-07', 5.010000 => '2007-12-18', 5.008009 => '2008-12-14', 5.010001 => '2009-08-22', 5.011000 => '2009-10-02', 5.011001 => '2009-10-20', 5.011002 => '2009-11-20', 5.011003 => '2009-12-20', 5.011004 => '2010-01-20', 5.011005 => '2010-02-20', 5.012000 => '2010-04-12', 5.013000 => '2010-04-20', 5.012001 => '2010-05-16', 5.013001 => '2010-05-20', 5.013002 => '2010-06-22', 5.013003 => '2010-07-20', 5.013004 => '2010-08-20', 5.012002 => '2010-09-06', 5.013005 => '2010-09-19', 5.013006 => '2010-10-20', 5.013007 => '2010-11-20', 5.013008 => '2010-12-20', 5.012003 => '2011-01-21', 5.013009 => '2011-01-20', 5.013010 => '2011-02-20', 5.013011 => '2011-03-20', 5.014000 => '2011-05-14', 5.012004 => '2011-06-20', 5.012005 => '2012-11-10', 5.014001 => '2011-06-16', 5.015000 => '2011-06-20', 5.015001 => '2011-07-20', 5.015002 => '2011-08-20', 5.014002 => '2011-09-26', 5.015003 => '2011-09-20', 5.015004 => '2011-10-20', 5.015005 => '2011-11-20', 5.015006 => '2011-12-20', 5.015007 => '2012-01-20', 5.015008 => '2012-02-20', 5.015009 => '2012-03-20', 5.016000 => '2012-05-20', 5.016001 => '2012-08-08', 5.016002 => '2012-11-01', 5.017000 => '2012-05-26', 5.017001 => '2012-06-20', 5.017002 => '2012-07-20', 5.017003 => '2012-08-20', 5.017004 => '2012-09-20', 5.014003 => '2012-10-12', 5.017005 => '2012-10-20', 5.017006 => '2012-11-20', 5.017007 => '2012-12-18', 5.017008 => '2013-01-20', 5.017009 => '2013-02-20', 5.014004 => '2013-03-10', 5.016003 => '2013-03-11', 5.017010 => '2013-03-21', 5.017011 => '2013-04-20', 5.018000 => '2013-05-18', 5.019000 => '2013-05-20', 5.019001 => '2013-06-21', 5.019002 => '2013-07-22', 5.018001 => '2013-08-12', 5.019003 => '2013-08-20', 5.019004 => '2013-09-20', 5.019005 => '2013-10-20', 5.019006 => '2013-11-20', 5.019007 => '2013-12-20', 5.018002 => '2014-01-06', 5.018003 => '2014-10-01', 5.018004 => '2014-10-01', 5.019008 => '2014-01-20', 5.019009 => '2014-02-20', 5.01901 => '2014-03-20', 5.019011 => '2014-04-20', 5.020000 => '2014-05-27', 5.021000 => '2014-05-27', 5.021001 => '2014-06-20', 5.021002 => '2014-07-20', 5.021003 => '2014-08-20', 5.020001 => '2014-09-14', 5.021004 => '2014-09-20', 5.021005 => '2014-10-20', 5.021006 => '2014-11-20', 5.021007 => '2014-12-20', 5.021008 => '2015-01-20', 5.020002 => '2015-02-14', 5.021009 => '2015-02-21', 5.021010 => '2015-03-20', 5.021011 => '2015-04-20', 5.022000 => '2015-06-01', 5.023000 => '2015-06-20', 5.023001 => '2015-07-20', 5.023002 => '2015-08-20', 5.020003 => '2015-09-12', 5.023003 => '2015-09-20', 5.023004 => '2015-10-20', 5.023005 => '2015-11-20', 5.022001 => '2015-12-13', 5.023006 => '2015-12-21', 5.023007 => '2016-01-20', 5.023008 => '2016-02-20', 5.023009 => '2016-03-20', 5.022002 => '2016-04-29', 5.024000 => '2016-05-09', 5.025000 => '2016-05-09', 5.025001 => '2016-05-20', 5.025002 => '2016-06-20', 5.025003 => '2016-07-20', 5.025004 => '2016-08-20', 5.025005 => '2016-09-20', 5.025006 => '2016-10-20', 5.025007 => '2016-11-20', 5.025008 => '2016-12-20', 5.022003 => '2017-01-14', 5.024001 => '2017-01-14', 5.025009 => '2017-01-20', 5.025010 => '2017-02-20', 5.025011 => '2017-03-20', 5.025012 => '2017-04-20', 5.026000 => '2017-05-30', 5.027000 => '2017-05-31', 5.027001 => '2017-06-20', 5.022004 => '2017-07-15', 5.024002 => '2017-07-15', 5.027002 => '2017-07-20', 5.027003 => '2017-08-21', 5.027004 => '2017-09-20', 5.024003 => '2017-09-22', 5.026001 => '2017-09-22', 5.027005 => '2017-10-20', 5.027006 => '2017-11-20', 5.027007 => '2017-12-20', 5.027008 => '2018-01-20', 5.027009 => '2018-02-20', 5.027010 => '2018-03-20', 5.024004 => '2018-04-14', 5.026002 => '2018-04-14', 5.027011 => '2018-04-20', 5.028000 => '2018-06-22', 5.029000 => '2018-06-26', 5.029001 => '2018-07-20', 5.029002 => '2018-08-20', 5.029003 => '2018-09-20', 5.029004 => '2018-10-20', 5.029005 => '2018-11-20', 5.026003 => '2018-11-29', 5.028001 => '2018-11-29', 5.029006 => '2018-12-18', 5.029007 => '2019-01-20', 5.029008 => '2019-02-20', 5.029009 => '2019-03-20', 5.028002 => '2019-04-19', 5.029010 => '2019-04-20', 5.030000 => '2019-05-22', 5.031000 => '2019-05-24', 5.031001 => '2019-06-20', 5.031002 => '2019-07-20', 5.031003 => '2019-08-20', 5.031004 => '2019-09-20', 5.031005 => '2019-10-20', 5.030001 => '2019-11-10', 5.031006 => '2019-11-20', 5.031007 => '2019-12-20', 5.031008 => '2020-01-20', 5.031009 => '2020-02-20', 5.030002 => '2020-03-14', 5.031010 => '2020-03-20', 5.031011 => '2020-04-28', 5.028003 => '2020-06-01', 5.030003 => '2020-06-01', 5.032000 => '2020-06-20', 5.033000 => '2020-07-17', 5.033001 => '2020-08-20', 5.033002 => '2020-09-20', 5.033003 => '2020-10-20', 5.033004 => '2020-11-20', 5.033005 => '2020-12-20', 5.033006 => '2021-01-20', 5.032001 => '2021-01-23', 5.033007 => '2021-02-20', 5.033008 => '2021-03-20', 5.033009 => '2021-04-20', 5.034000 => '2021-05-20', ); for my $version ( sort { $a <=> $b } keys %released ) { my $family = int ($version * 1000) / 1000; push @{ $families{ $family }} , $version; } %delta = ( 5 => { changed => { 'AnyDBM_File' => undef, 'AutoLoader' => undef, 'AutoSplit' => undef, 'Benchmark' => undef, 'Carp' => undef, 'Cwd' => undef, 'DB_File' => undef, 'DynaLoader' => undef, 'English' => undef, 'Env' => undef, 'Exporter' => undef, 'ExtUtils::MakeMaker' => undef, 'Fcntl' => undef, 'File::Basename' => undef, 'File::CheckTree' => undef, 'File::Find' => undef, 'FileHandle' => undef, 'GDBM_File' => undef, 'Getopt::Long' => undef, 'Getopt::Std' => undef, 'I18N::Collate' => undef, 'IPC::Open2' => undef, 'IPC::Open3' => undef, 'Math::BigFloat' => undef, 'Math::BigInt' => undef, 'Math::Complex' => undef, 'NDBM_File' => undef, 'Net::Ping' => undef, 'ODBM_File' => undef, 'POSIX' => undef, 'SDBM_File' => undef, 'Search::Dict' => undef, 'Shell' => undef, 'Socket' => undef, 'Sys::Hostname' => undef, 'Sys::Syslog' => undef, 'Term::Cap' => undef, 'Term::Complete' => undef, 'Test::Harness' => undef, 'Text::Abbrev' => undef, 'Text::ParseWords' => undef, 'Text::Soundex' => undef, 'Text::Tabs' => undef, 'TieHash' => undef, 'Time::Local' => undef, 'integer' => undef, 'less' => undef, 'sigtrap' => undef, 'strict' => undef, 'subs' => undef, }, removed => { } }, 5.001 => { delta_from => 5, changed => { 'ExtUtils::Liblist' => undef, 'ExtUtils::Manifest' => undef, 'ExtUtils::Mkbootstrap' => undef, 'File::Path' => undef, 'SubstrHash' => undef, 'lib' => undef, }, removed => { } }, 5.002 => { delta_from => 5.001, changed => { 'DB_File' => '1.01', 'Devel::SelfStubber' => '1.01', 'DirHandle' => undef, 'DynaLoader' => '1.00', 'ExtUtils::Install' => undef, 'ExtUtils::MM_OS2' => undef, 'ExtUtils::MM_Unix' => undef, 'ExtUtils::MM_VMS' => undef, 'ExtUtils::MakeMaker' => '5.21', 'ExtUtils::Manifest' => '1.22', 'ExtUtils::Mksymlists' => '1.00', 'Fcntl' => '1.00', 'File::Copy' => '1.5', 'File::Path' => '1.01', 'FileCache' => undef, 'FileHandle' => '1.00', 'GDBM_File' => '1.00', 'Getopt::Long' => '2.01', 'NDBM_File' => '1.00', 'Net::Ping' => '1', 'ODBM_File' => '1.00', 'POSIX' => '1.00', 'Pod::Functions' => undef, 'Pod::Text' => undef, 'SDBM_File' => '1.00', 'Safe' => '1.00', 'SelectSaver' => undef, 'SelfLoader' => '1.06', 'Socket' => '1.5', 'Symbol' => undef, 'Term::ReadLine' => undef, 'Test::Harness' => '1.07', 'Text::Wrap' => undef, 'Tie::Hash' => undef, 'Tie::Scalar' => undef, 'Tie::SubstrHash' => undef, 'diagnostics' => undef, 'overload' => undef, 'vars' => undef, }, removed => { 'SubstrHash' => 1, 'TieHash' => 1, } }, 5.00307 => { delta_from => 5.002, changed => { 'Config' => undef, 'DB_File' => '1.03', 'ExtUtils::Embed' => '1.18', 'ExtUtils::Install' => '1.15', 'ExtUtils::Liblist' => '1.20', 'ExtUtils::MM_Unix' => '1.107', 'ExtUtils::MakeMaker' => '5.38', 'ExtUtils::Manifest' => '1.27', 'ExtUtils::Mkbootstrap' => '1.13', 'ExtUtils::Mksymlists' => '1.12', 'ExtUtils::testlib' => '1.11', 'Fatal' => undef, 'File::Basename' => '2.4', 'FindBin' => '1.04', 'Getopt::Long' => '2.04', 'IO' => undef, 'IO::File' => '1.05', 'IO::Handle' => '1.12', 'IO::Pipe' => '1.07', 'IO::Seekable' => '1.05', 'IO::Select' => '1.09', 'IO::Socket' => '1.13', 'Net::Ping' => '1.01', 'OS2::ExtAttr' => '0.01', 'OS2::PrfDB' => '0.02', 'OS2::Process' => undef, 'OS2::REXX' => undef, 'Opcode' => '1.01', 'Safe' => '2.06', 'Test::Harness' => '1.13', 'Text::Tabs' => '96.051501', 'Text::Wrap' => '96.041801', 'UNIVERSAL' => undef, 'VMS::Filespec' => undef, 'VMS::Stdio' => '2.0', 'ops' => undef, 'sigtrap' => '1.01', }, removed => { } }, 5.004 => { delta_from => 5.00307, changed => { 'Bundle::CPAN' => '0.02', 'CGI' => '2.36', 'CGI::Apache' => '1.01', 'CGI::Carp' => '1.06', 'CGI::Fast' => '1.00a', 'CGI::Push' => '1.00', 'CGI::Switch' => '0.05', 'CPAN' => '1.2401', 'CPAN::FirstTime' => '1.18', 'CPAN::Nox' => undef, 'Class::Struct' => undef, 'Cwd' => '2.00', 'DB_File' => '1.14', 'DynaLoader' => '1.02', 'ExtUtils::Command' => '1.00', 'ExtUtils::Embed' => '1.2501', 'ExtUtils::Install' => '1.16', 'ExtUtils::Liblist' => '1.2201', 'ExtUtils::MM_Unix' => '1.114', 'ExtUtils::MM_Win32' => undef, 'ExtUtils::MakeMaker' => '5.4002', 'ExtUtils::Manifest' => '1.33', 'ExtUtils::Mksymlists' => '1.13', 'ExtUtils::XSSymSet' => '1.0', 'Fcntl' => '1.03', 'File::Basename' => '2.5', 'File::Compare' => '1.1001', 'File::Copy' => '2.02', 'File::Path' => '1.04', 'File::stat' => undef, 'FileHandle' => '2.00', 'Getopt::Long' => '2.10', 'IO::File' => '1.0602', 'IO::Handle' => '1.1504', 'IO::Pipe' => '1.0901', 'IO::Seekable' => '1.06', 'IO::Select' => '1.10', 'IO::Socket' => '1.1602', 'IPC::Open2' => '1.01', 'IPC::Open3' => '1.0101', 'Math::Complex' => '1.01', 'Math::Trig' => '1', 'Net::Ping' => '2.02', 'Net::hostent' => undef, 'Net::netent' => undef, 'Net::protoent' => undef, 'Net::servent' => undef, 'Opcode' => '1.04', 'POSIX' => '1.02', 'Pod::Html' => undef, 'Pod::Text' => '1.0203', 'SelfLoader' => '1.07', 'Socket' => '1.6', 'Symbol' => '1.02', 'Test::Harness' => '1.1502', 'Text::Tabs' => '96.121201', 'Text::Wrap' => '97.011701', 'Tie::RefHash' => undef, 'Time::gmtime' => '1.01', 'Time::localtime' => '1.01', 'Time::tm' => undef, 'User::grent' => undef, 'User::pwent' => undef, 'VMS::DCLsym' => '1.01', 'VMS::Stdio' => '2.02', 'autouse' => '1.01', 'blib' => undef, 'constant' => '1.00', 'locale' => undef, 'sigtrap' => '1.02', 'vmsish' => undef, }, removed => { 'Fatal' => 1, } }, 5.00405 => { delta_from => 5.004, changed => { 'AutoLoader' => '5.56', 'AutoSplit' => '1.0303', 'Bundle::CPAN' => '0.03', 'CGI' => '2.42', 'CGI::Apache' => '1.1', 'CGI::Carp' => '1.10', 'CGI::Cookie' => '1.06', 'CGI::Push' => '1.01', 'CGI::Switch' => '0.06', 'CPAN' => '1.40', 'CPAN::FirstTime' => '1.30', 'Cwd' => '2.01', 'DB_File' => '1.15', 'DynaLoader' => '1.03', 'ExtUtils::Command' => '1.01', 'ExtUtils::Embed' => '1.2505', 'ExtUtils::Install' => '1.28', 'ExtUtils::Liblist' => '1.25', 'ExtUtils::MM_Unix' => '1.118', 'ExtUtils::MakeMaker' => '5.42', 'ExtUtils::Mkbootstrap' => '1.14', 'ExtUtils::Mksymlists' => '1.16', 'File::Basename' => '2.6', 'File::DosGlob' => undef, 'File::Path' => '1.0402', 'File::Spec' => '0.6', 'File::Spec::Mac' => '1.0', 'File::Spec::OS2' => undef, 'File::Spec::Unix' => undef, 'File::Spec::VMS' => undef, 'File::Spec::Win32' => undef, 'FindBin' => '1.41', 'Getopt::Long' => '2.19', 'IO::File' => '1.06021', 'IO::Socket' => '1.1603', 'IPC::Open3' => '1.0103', 'Math::Complex' => '1.25', 'NDBM_File' => '1.01', 'Pod::Html' => '1.0101', 'Pod::Text' => '1.0204', 'SelfLoader' => '1.08', 'Socket' => '1.7', 'Test' => '1.04', 'Test::Harness' => '1.1602', 'Text::ParseWords' => '3.1001', 'Text::Wrap' => '98.112902', 'Tie::Handle' => undef, 'attrs' => '0.1', 'base' => undef, 'blib' => '1.00', 're' => undef, 'strict' => '1.01', }, removed => { } }, 5.005 => { delta_from => 5.00405, changed => { 'AutoLoader' => undef, 'AutoSplit' => '1.0302', 'B' => undef, 'B::Asmdata' => undef, 'B::Assembler' => undef, 'B::Bblock' => undef, 'B::Bytecode' => undef, 'B::C' => undef, 'B::CC' => undef, 'B::Debug' => undef, 'B::Deparse' => '0.56', 'B::Disassembler' => undef, 'B::Lint' => undef, 'B::Showlex' => undef, 'B::Stackobj' => undef, 'B::Terse' => undef, 'B::Xref' => undef, 'CGI::Carp' => '1.101', 'CPAN' => '1.3901', 'CPAN::FirstTime' => '1.29', 'DB_File' => '1.60', 'Data::Dumper' => '2.09', 'Errno' => '1.09', 'ExtUtils::Installed' => '0.02', 'ExtUtils::MM_Unix' => '1.12601', 'ExtUtils::MakeMaker' => '5.4301', 'ExtUtils::Mkbootstrap' => '1.13', 'ExtUtils::Mksymlists' => '1.17', 'ExtUtils::Packlist' => '0.03', 'Fatal' => '1.02', 'File::Path' => '1.0401', 'Getopt::Long' => '2.17', 'IO::Handle' => '1.1505', 'IPC::Msg' => '1.00', 'IPC::Open3' => '1.0102', 'IPC::Semaphore' => '1.00', 'IPC::SysV' => '1.03', 'O' => undef, 'OS2::Process' => '0.2', 'Pod::Html' => '1.01', 'Pod::Text' => '1.0203', 'Text::ParseWords' => '3.1', 'Text::Wrap' => '97.02', 'Thread' => '1.0', 'Thread::Queue' => undef, 'Thread::Semaphore' => undef, 'Thread::Signal' => undef, 'Thread::Specific' => undef, 'Tie::Array' => '1.00', 'VMS::Stdio' => '2.1', 'attrs' => '1.0', 'fields' => '0.02', 're' => '0.02', }, removed => { 'Bundle::CPAN' => 1, } }, 5.00503 => { delta_from => 5.005, changed => { 'AutoSplit' => '1.0303', 'CGI' => '2.46', 'CGI::Carp' => '1.13', 'CGI::Fast' => '1.01', 'CPAN' => '1.48', 'CPAN::FirstTime' => '1.36', 'CPAN::Nox' => '1.00', 'DB_File' => '1.65', 'Data::Dumper' => '2.101', 'Dumpvalue' => undef, 'Errno' => '1.111', 'ExtUtils::Install' => '1.28', 'ExtUtils::Liblist' => '1.25', 'ExtUtils::MM_Unix' => '1.12602', 'ExtUtils::MakeMaker' => '5.4302', 'ExtUtils::Manifest' => '1.33', 'ExtUtils::Mkbootstrap' => '1.14', 'ExtUtils::Mksymlists' => '1.17', 'ExtUtils::testlib' => '1.11', 'FindBin' => '1.42', 'Getopt::Long' => '2.19', 'Getopt::Std' => '1.01', 'IO::Pipe' => '1.0902', 'IPC::Open3' => '1.0103', 'Math::Complex' => '1.26', 'Test' => '1.122', 'Text::Wrap' => '98.112902', }, removed => { } }, 5.00504 => { delta_from => 5.00503, changed => { 'CPAN::FirstTime' => '1.36', 'DB_File' => '1.807', 'ExtUtils::Install' => '1.28', 'ExtUtils::Liblist' => '1.25', 'ExtUtils::MM_Unix' => '1.12602', 'ExtUtils::Manifest' => '1.33', 'ExtUtils::Miniperl' => undef, 'ExtUtils::Mkbootstrap' => '1.14', 'ExtUtils::Mksymlists' => '1.17', 'ExtUtils::testlib' => '1.11', 'File::Compare' => '1.1002', 'File::Spec' => '0.8', 'File::Spec::Functions' => undef, 'File::Spec::Mac' => undef, 'Getopt::Long' => '2.20', 'Pod::Html' => '1.02', }, removed => { } }, 5.006 => { delta_from => 5.00504, changed => { 'AutoLoader' => '5.57', 'AutoSplit' => '1.0305', 'B::Deparse' => '0.59', 'B::Stash' => undef, 'Benchmark' => '1', 'ByteLoader' => '0.03', 'CGI' => '2.56', 'CGI::Apache' => undef, 'CGI::Carp' => '1.14', 'CGI::Cookie' => '1.12', 'CGI::Fast' => '1.02', 'CGI::Pretty' => '1.03', 'CGI::Switch' => undef, 'CPAN' => '1.52', 'CPAN::FirstTime' => '1.38', 'Carp::Heavy' => undef, 'Class::Struct' => '0.58', 'Cwd' => '2.02', 'DB' => '1.0', 'DB_File' => '1.72', 'Devel::DProf' => '20000000.00_00', 'Devel::Peek' => '1.00_01', 'DynaLoader' => '1.04', 'Exporter' => '5.562', 'Exporter::Heavy' => undef, 'ExtUtils::MM_Cygwin' => undef, 'ExtUtils::MM_Unix' => '1.12603', 'ExtUtils::MakeMaker' => '5.45', 'File::Copy' => '2.03', 'File::Glob' => '0.991', 'File::Path' => '1.0403', 'GDBM_File' => '1.03', 'Getopt::Long' => '2.23', 'Getopt::Std' => '1.02', 'IO' => '1.20', 'IO::Dir' => '1.03', 'IO::File' => '1.08', 'IO::Handle' => '1.21', 'IO::Pipe' => '1.121', 'IO::Poll' => '0.01', 'IO::Seekable' => '1.08', 'IO::Select' => '1.14', 'IO::Socket' => '1.26', 'IO::Socket::INET' => '1.25', 'IO::Socket::UNIX' => '1.20', 'JNI' => '0.01', 'JPL::AutoLoader' => undef, 'JPL::Class' => undef, 'JPL::Compile' => undef, 'NDBM_File' => '1.03', 'ODBM_File' => '1.02', 'OS2::DLL' => undef, 'POSIX' => '1.03', 'Pod::Checker' => '1.098', 'Pod::Find' => '0.12', 'Pod::Html' => '1.03', 'Pod::InputObjects' => '1.12', 'Pod::Man' => '1.02', 'Pod::ParseUtils' => '0.2', 'Pod::Parser' => '1.12', 'Pod::Plainer' => '0.01', 'Pod::Select' => '1.12', 'Pod::Text' => '2.03', 'Pod::Text::Color' => '0.05', 'Pod::Text::Termcap' => '0.04', 'Pod::Usage' => '1.12', 'SDBM_File' => '1.02', 'SelfLoader' => '1.0901', 'Shell' => '0.2', 'Socket' => '1.72', 'Sys::Hostname' => '1.1', 'Sys::Syslog' => '0.01', 'Term::ANSIColor' => '1.01', 'Test' => '1.13', 'Test::Harness' => '1.1604', 'Text::ParseWords' => '3.2', 'Text::Soundex' => '1.0', 'Text::Tabs' => '98.112801', 'Tie::Array' => '1.01', 'Tie::Handle' => '1.0', 'VMS::Stdio' => '2.2', 'XSLoader' => '0.01', 'attributes' => '0.03', 'autouse' => '1.02', 'base' => '1.01', 'bytes' => undef, 'charnames' => undef, 'constant' => '1.02', 'diagnostics' => '1.0', 'fields' => '1.01', 'filetest' => undef, 'lib' => '0.5564', 'open' => undef, 'utf8' => undef, 'warnings' => undef, 'warnings::register' => undef, }, removed => { } }, 5.006001 => { delta_from => 5.006, changed => { 'AutoLoader' => '5.58', 'B::Assembler' => '0.02', 'B::Concise' => '0.51', 'B::Deparse' => '0.6', 'ByteLoader' => '0.04', 'CGI' => '2.752', 'CGI::Carp' => '1.20', 'CGI::Cookie' => '1.18', 'CGI::Pretty' => '1.05', 'CGI::Push' => '1.04', 'CGI::Util' => '1.1', 'CPAN' => '1.59_54', 'CPAN::FirstTime' => '1.53', 'Class::Struct' => '0.59', 'Cwd' => '2.04', 'DB_File' => '1.75', 'Data::Dumper' => '2.102', 'ExtUtils::Install' => '1.28', 'ExtUtils::Liblist' => '1.26', 'ExtUtils::MM_Unix' => '1.12603', 'ExtUtils::Manifest' => '1.33', 'ExtUtils::Mkbootstrap' => '1.14', 'ExtUtils::Mksymlists' => '1.17', 'ExtUtils::testlib' => '1.11', 'File::Path' => '1.0404', 'File::Spec' => '0.82', 'File::Spec::Epoc' => undef, 'File::Spec::Functions' => '1.1', 'File::Spec::Mac' => '1.2', 'File::Spec::OS2' => '1.1', 'File::Spec::Unix' => '1.2', 'File::Spec::VMS' => '1.1', 'File::Spec::Win32' => '1.2', 'File::Temp' => '0.12', 'GDBM_File' => '1.05', 'Getopt::Long' => '2.25', 'IO::Poll' => '0.05', 'JNI' => '0.1', 'Math::BigFloat' => '0.02', 'Math::BigInt' => '0.01', 'Math::Complex' => '1.31', 'NDBM_File' => '1.04', 'ODBM_File' => '1.03', 'OS2::REXX' => '1.00', 'Pod::Checker' => '1.2', 'Pod::Find' => '0.21', 'Pod::InputObjects' => '1.13', 'Pod::LaTeX' => '0.53', 'Pod::Man' => '1.15', 'Pod::ParseUtils' => '0.22', 'Pod::Parser' => '1.13', 'Pod::Select' => '1.13', 'Pod::Text' => '2.08', 'Pod::Text::Color' => '0.06', 'Pod::Text::Overstrike' => '1.01', 'Pod::Text::Termcap' => '1', 'Pod::Usage' => '1.14', 'SDBM_File' => '1.03', 'SelfLoader' => '1.0902', 'Shell' => '0.3', 'Term::ANSIColor' => '1.03', 'Test' => '1.15', 'Text::Wrap' => '2001.0131', 'Tie::Handle' => '4.0', 'Tie::RefHash' => '1.3', }, removed => { } }, 5.006002 => { delta_from => 5.006001, changed => { 'CPAN::FirstTime' => '1.53', 'DB_File' => '1.806', 'Data::Dumper' => '2.121', 'ExtUtils::Command' => '1.05', 'ExtUtils::Command::MM' => '0.03', 'ExtUtils::Install' => '1.32', 'ExtUtils::Installed' => '0.08', 'ExtUtils::Liblist' => '1.01', 'ExtUtils::Liblist::Kid'=> '1.3', 'ExtUtils::MM' => '0.04', 'ExtUtils::MM_Any' => '0.07', 'ExtUtils::MM_BeOS' => '1.04', 'ExtUtils::MM_Cygwin' => '1.06', 'ExtUtils::MM_DOS' => '0.02', 'ExtUtils::MM_MacOS' => '1.07', 'ExtUtils::MM_NW5' => '2.06', 'ExtUtils::MM_OS2' => '1.04', 'ExtUtils::MM_UWIN' => '0.02', 'ExtUtils::MM_Unix' => '1.42', 'ExtUtils::MM_VMS' => '5.70', 'ExtUtils::MM_Win32' => '1.09', 'ExtUtils::MM_Win95' => '0.03', 'ExtUtils::MY' => '0.01', 'ExtUtils::MakeMaker' => '6.17', 'ExtUtils::MakeMaker::bytes'=> '0.01', 'ExtUtils::MakeMaker::vmsish'=> '0.01', 'ExtUtils::Manifest' => '1.42', 'ExtUtils::Mkbootstrap' => '1.15', 'ExtUtils::Mksymlists' => '1.19', 'ExtUtils::Packlist' => '0.04', 'ExtUtils::testlib' => '1.15', 'File::Spec' => '0.86', 'File::Spec::Cygwin' => '1.1', 'File::Spec::Epoc' => '1.1', 'File::Spec::Functions' => '1.3', 'File::Spec::Mac' => '1.4', 'File::Spec::OS2' => '1.2', 'File::Spec::Unix' => '1.5', 'File::Spec::VMS' => '1.4', 'File::Spec::Win32' => '1.4', 'File::Temp' => '0.14', 'Safe' => '2.10', 'Test' => '1.24', 'Test::Builder' => '0.17', 'Test::Harness' => '2.30', 'Test::Harness::Assert' => '0.01', 'Test::Harness::Iterator'=> '0.01', 'Test::Harness::Straps' => '0.15', 'Test::More' => '0.47', 'Test::Simple' => '0.47', 'Unicode' => '3.0.1', 'if' => '0.03', 'ops' => '1.00', }, removed => { } }, 5.007003 => { delta_from => 5.006001, changed => { 'AnyDBM_File' => '1.00', 'Attribute::Handlers' => '0.76', 'AutoLoader' => '5.59', 'AutoSplit' => '1.0307', 'B' => '1.00', 'B::Asmdata' => '1.00', 'B::Assembler' => '0.04', 'B::Bblock' => '1.00', 'B::Bytecode' => '1.00', 'B::C' => '1.01', 'B::CC' => '1.00', 'B::Concise' => '0.52', 'B::Debug' => '1.00', 'B::Deparse' => '0.63', 'B::Disassembler' => '1.01', 'B::Lint' => '1.00', 'B::Showlex' => '1.00', 'B::Stackobj' => '1.00', 'B::Stash' => '1.00', 'B::Terse' => '1.00', 'B::Xref' => '1.00', 'Benchmark' => '1.04', 'CGI' => '2.80', 'CGI::Apache' => '1.00', 'CGI::Carp' => '1.22', 'CGI::Cookie' => '1.20', 'CGI::Fast' => '1.04', 'CGI::Pretty' => '1.05_00', 'CGI::Switch' => '1.00', 'CGI::Util' => '1.3', 'CPAN' => '1.59_56', 'CPAN::FirstTime' => '1.54', 'CPAN::Nox' => '1.00_01', 'Carp' => '1.01', 'Carp::Heavy' => '1.01', 'Class::ISA' => '0.32', 'Class::Struct' => '0.61', 'Cwd' => '2.06', 'DB_File' => '1.804', 'Data::Dumper' => '2.12', 'Devel::DProf' => '20000000.00_01', 'Devel::PPPort' => '2.0002', 'Devel::Peek' => '1.00_03', 'Devel::SelfStubber' => '1.03', 'Digest' => '1.00', 'Digest::MD5' => '2.16', 'DirHandle' => '1.00', 'Dumpvalue' => '1.10', 'Encode' => '0.40', 'Encode::CN' => '0.02', 'Encode::CN::HZ' => undef, 'Encode::Encoding' => '0.02', 'Encode::Internal' => '0.30', 'Encode::JP' => '0.02', 'Encode::JP::Constants' => '1.02', 'Encode::JP::H2Z' => '0.77', 'Encode::JP::ISO_2022_JP'=> undef, 'Encode::JP::JIS' => undef, 'Encode::JP::Tr' => '0.77', 'Encode::KR' => '0.02', 'Encode::TW' => '0.02', 'Encode::Tcl' => '1.01', 'Encode::Tcl::Escape' => '1.01', 'Encode::Tcl::Extended' => '1.01', 'Encode::Tcl::HanZi' => '1.01', 'Encode::Tcl::Table' => '1.01', 'Encode::Unicode' => '0.30', 'Encode::XS' => '0.40', 'Encode::iso10646_1' => '0.30', 'Encode::usc2_le' => '0.30', 'Encode::utf8' => '0.30', 'English' => '1.00', 'Env' => '1.00', 'Exporter' => '5.566', 'Exporter::Heavy' => '5.562', 'ExtUtils::Command' => '1.02', 'ExtUtils::Constant' => '0.11', 'ExtUtils::Embed' => '1.250601', 'ExtUtils::Install' => '1.29', 'ExtUtils::Installed' => '0.04', 'ExtUtils::Liblist' => '1.2701', 'ExtUtils::MM_BeOS' => '1.00', 'ExtUtils::MM_Cygwin' => '1.00', 'ExtUtils::MM_OS2' => '1.00', 'ExtUtils::MM_Unix' => '1.12607', 'ExtUtils::MM_VMS' => '5.56', 'ExtUtils::MM_Win32' => '1.00_02', 'ExtUtils::MakeMaker' => '5.48_03', 'ExtUtils::Manifest' => '1.35', 'ExtUtils::Mkbootstrap' => '1.1401', 'ExtUtils::Mksymlists' => '1.18', 'ExtUtils::Packlist' => '0.04', 'ExtUtils::testlib' => '1.1201', 'Fatal' => '1.03', 'Fcntl' => '1.04', 'File::Basename' => '2.71', 'File::CheckTree' => '4.1', 'File::Compare' => '1.1003', 'File::Copy' => '2.05', 'File::DosGlob' => '1.00', 'File::Find' => '1.04', 'File::Glob' => '1.01', 'File::Path' => '1.05', 'File::Spec' => '0.83', 'File::Spec::Cygwin' => '1.0', 'File::Spec::Epoc' => '1.00', 'File::Spec::Functions' => '1.2', 'File::Spec::Mac' => '1.3', 'File::Spec::Unix' => '1.4', 'File::Spec::VMS' => '1.2', 'File::Spec::Win32' => '1.3', 'File::Temp' => '0.13', 'File::stat' => '1.00', 'FileCache' => '1.00', 'FileHandle' => '2.01', 'Filter::Simple' => '0.77', 'Filter::Util::Call' => '1.06', 'FindBin' => '1.43', 'GDBM_File' => '1.06', 'Getopt::Long' => '2.28', 'Getopt::Std' => '1.03', 'I18N::Collate' => '1.00', 'I18N::LangTags' => '0.27', 'I18N::LangTags::List' => '0.25', 'I18N::Langinfo' => '0.01', 'IO::Dir' => '1.03_00', 'IO::File' => '1.09', 'IO::Handle' => '1.21_00', 'IO::Pipe' => '1.122', 'IO::Poll' => '0.06', 'IO::Seekable' => '1.08_00', 'IO::Select' => '1.15', 'IO::Socket' => '1.27', 'IO::Socket::INET' => '1.26', 'IO::Socket::UNIX' => '1.20_00', 'IPC::Msg' => '1.00_00', 'IPC::Open3' => '1.0104', 'IPC::Semaphore' => '1.00_00', 'IPC::SysV' => '1.03_00', 'List::Util' => '1.06_00', 'Locale::Constants' => '2.01', 'Locale::Country' => '2.01', 'Locale::Currency' => '2.01', 'Locale::Language' => '2.01', 'Locale::Maketext' => '1.03', 'Locale::Script' => '2.01', 'MIME::Base64' => '2.12', 'MIME::QuotedPrint' => '2.03', 'Math::BigFloat' => '1.30', 'Math::BigInt' => '1.54', 'Math::BigInt::Calc' => '0.25', 'Math::Complex' => '1.34', 'Math::Trig' => '1.01', 'Memoize' => '0.66', 'Memoize::AnyDBM_File' => '0.65', 'Memoize::Expire' => '0.66', 'Memoize::ExpireFile' => '0.65', 'Memoize::ExpireTest' => '0.65', 'Memoize::NDBM_File' => '0.65', 'Memoize::SDBM_File' => '0.65', 'Memoize::Storable' => '0.65', 'NEXT' => '0.50', 'Net::Cmd' => '2.21', 'Net::Config' => '1.10', 'Net::Domain' => '2.17', 'Net::FTP' => '2.64', 'Net::FTP::A' => '1.15', 'Net::FTP::E' => '0.01', 'Net::FTP::I' => '1.12', 'Net::FTP::L' => '0.01', 'Net::FTP::dataconn' => '0.10', 'Net::NNTP' => '2.21', 'Net::Netrc' => '2.12', 'Net::POP3' => '2.23', 'Net::Ping' => '2.12', 'Net::SMTP' => '2.21', 'Net::Time' => '2.09', 'Net::hostent' => '1.00', 'Net::netent' => '1.00', 'Net::protoent' => '1.00', 'Net::servent' => '1.00', 'O' => '1.00', 'OS2::DLL' => '1.00', 'OS2::Process' => '1.0', 'OS2::REXX' => '1.01', 'Opcode' => '1.05', 'POSIX' => '1.05', 'PerlIO' => '1.00', 'PerlIO::Scalar' => '0.01', 'PerlIO::Via' => '0.01', 'Pod::Checker' => '1.3', 'Pod::Find' => '0.22', 'Pod::Functions' => '1.01', 'Pod::Html' => '1.04', 'Pod::LaTeX' => '0.54', 'Pod::Man' => '1.32', 'Pod::ParseLink' => '1.05', 'Pod::Text' => '2.18', 'Pod::Text::Color' => '1.03', 'Pod::Text::Overstrike' => '1.08', 'Pod::Text::Termcap' => '1.09', 'Safe' => '2.07', 'Scalar::Util' => '1.06_00', 'Search::Dict' => '1.02', 'SelectSaver' => '1.00', 'SelfLoader' => '1.0903', 'Shell' => '0.4', 'Socket' => '1.75', 'Storable' => '1.015', 'Switch' => '2.06', 'Symbol' => '1.04', 'Sys::Syslog' => '0.02', 'Term::ANSIColor' => '1.04', 'Term::Cap' => '1.07', 'Term::Complete' => '1.4', 'Term::ReadLine' => '1.00', 'Test' => '1.18', 'Test::Builder' => '0.11', 'Test::Harness' => '2.01', 'Test::Harness::Assert' => '0.01', 'Test::Harness::Iterator'=> '0.01', 'Test::Harness::Straps' => '0.08', 'Test::More' => '0.41', 'Test::Simple' => '0.41', 'Text::Abbrev' => '1.00', 'Text::Balanced' => '1.89', 'Text::ParseWords' => '3.21', 'Text::Soundex' => '1.01', 'Text::Wrap' => '2001.0929', 'Thread' => '2.00', 'Thread::Queue' => '1.00', 'Thread::Semaphore' => '1.00', 'Thread::Signal' => '1.00', 'Thread::Specific' => '1.00', 'Tie::Array' => '1.02', 'Tie::File' => '0.17', 'Tie::Handle' => '4.1', 'Tie::Hash' => '1.00', 'Tie::Memoize' => '1.0', 'Tie::RefHash' => '1.3_00', 'Tie::Scalar' => '1.00', 'Tie::SubstrHash' => '1.00', 'Time::HiRes' => '1.20_00', 'Time::Local' => '1.04', 'Time::gmtime' => '1.02', 'Time::localtime' => '1.02', 'Time::tm' => '1.00', 'UNIVERSAL' => '1.00', 'Unicode::Collate' => '0.10', 'Unicode::Normalize' => '0.14', 'Unicode::UCD' => '0.2', 'User::grent' => '1.00', 'User::pwent' => '1.00', 'VMS::DCLsym' => '1.02', 'VMS::Filespec' => '1.1', 'VMS::Stdio' => '2.3', 'XS::Typemap' => '0.01', 'attributes' => '0.04_01', 'attrs' => '1.01', 'autouse' => '1.03', 'base' => '1.02', 'blib' => '1.01', 'bytes' => '1.00', 'charnames' => '1.01', 'constant' => '1.04', 'diagnostics' => '1.1', 'encoding' => '1.00', 'fields' => '1.02', 'filetest' => '1.00', 'if' => '0.01', 'integer' => '1.00', 'less' => '0.01', 'locale' => '1.00', 'open' => '1.01', 'ops' => '1.00', 'overload' => '1.00', 're' => '0.03', 'sort' => '1.00', 'strict' => '1.02', 'subs' => '1.00', 'threads' => '0.05', 'threads::shared' => '0.90', 'utf8' => '1.00', 'vars' => '1.01', 'vmsish' => '1.00', 'warnings' => '1.00', 'warnings::register' => '1.00', }, removed => { } }, 5.008 => { delta_from => 5.007003, changed => { 'Attribute::Handlers' => '0.77', 'B' => '1.01', 'B::Lint' => '1.01', 'B::Xref' => '1.01', 'CGI' => '2.81', 'CGI::Carp' => '1.23', 'CPAN' => '1.61', 'CPAN::FirstTime' => '1.56', 'CPAN::Nox' => '1.02', 'Digest::MD5' => '2.20', 'Dumpvalue' => '1.11', 'Encode' => '1.75', 'Encode::Alias' => '1.32', 'Encode::Byte' => '1.22', 'Encode::CJKConstants' => '1.00', 'Encode::CN' => '1.24', 'Encode::CN::HZ' => '1.04', 'Encode::Config' => '1.06', 'Encode::EBCDIC' => '1.21', 'Encode::Encoder' => '0.05', 'Encode::Encoding' => '1.30', 'Encode::Guess' => '1.06', 'Encode::JP' => '1.25', 'Encode::JP::H2Z' => '1.02', 'Encode::JP::JIS7' => '1.08', 'Encode::KR' => '1.22', 'Encode::KR::2022_KR' => '1.05', 'Encode::MIME::Header' => '1.05', 'Encode::Symbol' => '1.22', 'Encode::TW' => '1.26', 'Encode::Unicode' => '1.37', 'Exporter::Heavy' => '5.566', 'ExtUtils::Command' => '1.04', 'ExtUtils::Command::MM' => '0.01', 'ExtUtils::Constant' => '0.12', 'ExtUtils::Installed' => '0.06', 'ExtUtils::Liblist' => '1.00', 'ExtUtils::Liblist::Kid'=> '1.29', 'ExtUtils::MM' => '0.04', 'ExtUtils::MM_Any' => '0.04', 'ExtUtils::MM_BeOS' => '1.03', 'ExtUtils::MM_Cygwin' => '1.04', 'ExtUtils::MM_DOS' => '0.01', 'ExtUtils::MM_MacOS' => '1.03', 'ExtUtils::MM_NW5' => '2.05', 'ExtUtils::MM_OS2' => '1.03', 'ExtUtils::MM_UWIN' => '0.01', 'ExtUtils::MM_Unix' => '1.33', 'ExtUtils::MM_VMS' => '5.65', 'ExtUtils::MM_Win32' => '1.05', 'ExtUtils::MM_Win95' => '0.02', 'ExtUtils::MY' => '0.01', 'ExtUtils::MakeMaker' => '6.03', 'ExtUtils::Manifest' => '1.38', 'ExtUtils::Mkbootstrap' => '1.15', 'ExtUtils::Mksymlists' => '1.19', 'ExtUtils::testlib' => '1.15', 'File::CheckTree' => '4.2', 'FileCache' => '1.021', 'Filter::Simple' => '0.78', 'Getopt::Long' => '2.32', 'Hash::Util' => '0.04', 'List::Util' => '1.07_00', 'Locale::Country' => '2.04', 'Math::BigFloat' => '1.35', 'Math::BigFloat::Trace' => '0.01', 'Math::BigInt' => '1.60', 'Math::BigInt::Calc' => '0.30', 'Math::BigInt::Trace' => '0.01', 'Math::BigRat' => '0.07', 'Memoize' => '1.01', 'Memoize::Expire' => '1.00', 'Memoize::ExpireFile' => '1.01', 'Net::FTP' => '2.65', 'Net::FTP::dataconn' => '0.11', 'Net::Ping' => '2.19', 'Net::SMTP' => '2.24', 'PerlIO' => '1.01', 'PerlIO::encoding' => '0.06', 'PerlIO::scalar' => '0.01', 'PerlIO::via' => '0.01', 'PerlIO::via::QuotedPrint'=> '0.04', 'Pod::Man' => '1.33', 'Pod::Text' => '2.19', 'Scalar::Util' => '1.07_00', 'Storable' => '2.04', 'Switch' => '2.09', 'Sys::Syslog' => '0.03', 'Test' => '1.20', 'Test::Builder' => '0.15', 'Test::Harness' => '2.26', 'Test::Harness::Straps' => '0.14', 'Test::More' => '0.45', 'Test::Simple' => '0.45', 'Thread::Queue' => '2.00', 'Thread::Semaphore' => '2.00', 'Tie::File' => '0.93', 'Tie::RefHash' => '1.30', 'Unicode' => '3.2.0', 'Unicode::Collate' => '0.12', 'Unicode::Normalize' => '0.17', 'XS::APItest' => '0.01', 'attributes' => '0.05', 'base' => '1.03', 'bigint' => '0.02', 'bignum' => '0.11', 'bigrat' => '0.04', 'blib' => '1.02', 'encoding' => '1.35', 'sort' => '1.01', 'threads' => '0.99', }, removed => { 'Encode::Internal' => 1, 'Encode::JP::Constants' => 1, 'Encode::JP::ISO_2022_JP'=> 1, 'Encode::JP::JIS' => 1, 'Encode::JP::Tr' => 1, 'Encode::Tcl' => 1, 'Encode::Tcl::Escape' => 1, 'Encode::Tcl::Extended' => 1, 'Encode::Tcl::HanZi' => 1, 'Encode::Tcl::Table' => 1, 'Encode::XS' => 1, 'Encode::iso10646_1' => 1, 'Encode::usc2_le' => 1, 'Encode::utf8' => 1, 'PerlIO::Scalar' => 1, 'PerlIO::Via' => 1, } }, 5.008001 => { delta_from => 5.008, changed => { 'Attribute::Handlers' => '0.78', 'AutoLoader' => '5.60', 'AutoSplit' => '1.04', 'B' => '1.02', 'B::Asmdata' => '1.01', 'B::Assembler' => '0.06', 'B::Bblock' => '1.02', 'B::Bytecode' => '1.01', 'B::C' => '1.02', 'B::Concise' => '0.56', 'B::Debug' => '1.01', 'B::Deparse' => '0.64', 'B::Disassembler' => '1.03', 'B::Lint' => '1.02', 'B::Terse' => '1.02', 'Benchmark' => '1.051', 'ByteLoader' => '0.05', 'CGI' => '3.00', 'CGI::Carp' => '1.26', 'CGI::Cookie' => '1.24', 'CGI::Fast' => '1.041', 'CGI::Pretty' => '1.07_00', 'CGI::Util' => '1.31', 'CPAN' => '1.76_01', 'CPAN::FirstTime' => '1.60', 'CPAN::Nox' => '1.03', 'Class::Struct' => '0.63', 'Cwd' => '2.08', 'DB_File' => '1.806', 'Data::Dumper' => '2.121', 'Devel::DProf' => '20030813.00', 'Devel::PPPort' => '2.007', 'Devel::Peek' => '1.01', 'Digest' => '1.02', 'Digest::MD5' => '2.27', 'Encode' => '1.9801', 'Encode::Alias' => '1.38', 'Encode::Byte' => '1.23', 'Encode::CJKConstants' => '1.02', 'Encode::CN::HZ' => '1.05', 'Encode::Config' => '1.07', 'Encode::Encoder' => '0.07', 'Encode::Encoding' => '1.33', 'Encode::Guess' => '1.09', 'Encode::JP::JIS7' => '1.12', 'Encode::KR' => '1.23', 'Encode::KR::2022_KR' => '1.06', 'Encode::MIME::Header' => '1.09', 'Encode::Unicode' => '1.40', 'Encode::Unicode::UTF7' => '0.02', 'English' => '1.01', 'Errno' => '1.09_00', 'Exporter' => '5.567', 'Exporter::Heavy' => '5.567', 'ExtUtils::Command' => '1.05', 'ExtUtils::Command::MM' => '0.03', 'ExtUtils::Constant' => '0.14', 'ExtUtils::Install' => '1.32', 'ExtUtils::Installed' => '0.08', 'ExtUtils::Liblist' => '1.01', 'ExtUtils::Liblist::Kid'=> '1.3', 'ExtUtils::MM_Any' => '0.07', 'ExtUtils::MM_BeOS' => '1.04', 'ExtUtils::MM_Cygwin' => '1.06', 'ExtUtils::MM_DOS' => '0.02', 'ExtUtils::MM_MacOS' => '1.07', 'ExtUtils::MM_NW5' => '2.06', 'ExtUtils::MM_OS2' => '1.04', 'ExtUtils::MM_UWIN' => '0.02', 'ExtUtils::MM_Unix' => '1.42', 'ExtUtils::MM_VMS' => '5.70', 'ExtUtils::MM_Win32' => '1.09', 'ExtUtils::MM_Win95' => '0.03', 'ExtUtils::MakeMaker' => '6.17', 'ExtUtils::MakeMaker::bytes'=> '0.01', 'ExtUtils::MakeMaker::vmsish'=> '0.01', 'ExtUtils::Manifest' => '1.42', 'Fcntl' => '1.05', 'File::Basename' => '2.72', 'File::Copy' => '2.06', 'File::Find' => '1.05', 'File::Glob' => '1.02', 'File::Path' => '1.06', 'File::Spec' => '0.86', 'File::Spec::Cygwin' => '1.1', 'File::Spec::Epoc' => '1.1', 'File::Spec::Functions' => '1.3', 'File::Spec::Mac' => '1.4', 'File::Spec::OS2' => '1.2', 'File::Spec::Unix' => '1.5', 'File::Spec::VMS' => '1.4', 'File::Spec::Win32' => '1.4', 'File::Temp' => '0.14', 'FileCache' => '1.03', 'Filter::Util::Call' => '1.0601', 'GDBM_File' => '1.07', 'Getopt::Long' => '2.34', 'Getopt::Std' => '1.04', 'Hash::Util' => '0.05', 'I18N::LangTags' => '0.28', 'I18N::LangTags::List' => '0.26', 'I18N::Langinfo' => '0.02', 'IO' => '1.21', 'IO::Dir' => '1.04', 'IO::File' => '1.10', 'IO::Handle' => '1.23', 'IO::Seekable' => '1.09', 'IO::Select' => '1.16', 'IO::Socket' => '1.28', 'IO::Socket::INET' => '1.27', 'IO::Socket::UNIX' => '1.21', 'IPC::Msg' => '1.02', 'IPC::Open3' => '1.0105', 'IPC::Semaphore' => '1.02', 'IPC::SysV' => '1.04', 'JNI' => '0.2', 'List::Util' => '1.13', 'Locale::Country' => '2.61', 'Locale::Currency' => '2.21', 'Locale::Language' => '2.21', 'Locale::Maketext' => '1.06', 'Locale::Maketext::Guts'=> undef, 'Locale::Maketext::GutsLoader'=> undef, 'Locale::Script' => '2.21', 'MIME::Base64' => '2.20', 'MIME::QuotedPrint' => '2.20', 'Math::BigFloat' => '1.40', 'Math::BigInt' => '1.66', 'Math::BigInt::Calc' => '0.36', 'Math::BigInt::Scalar' => '0.11', 'Math::BigRat' => '0.10', 'Math::Trig' => '1.02', 'NDBM_File' => '1.05', 'NEXT' => '0.60', 'Net::Cmd' => '2.24', 'Net::Domain' => '2.18', 'Net::FTP' => '2.71', 'Net::FTP::A' => '1.16', 'Net::NNTP' => '2.22', 'Net::POP3' => '2.24', 'Net::Ping' => '2.31', 'Net::SMTP' => '2.26', 'Net::hostent' => '1.01', 'Net::servent' => '1.01', 'ODBM_File' => '1.04', 'OS2::DLL' => '1.01', 'OS2::ExtAttr' => '0.02', 'OS2::PrfDB' => '0.03', 'OS2::Process' => '1.01', 'OS2::REXX' => '1.02', 'POSIX' => '1.06', 'PerlIO' => '1.02', 'PerlIO::encoding' => '0.07', 'PerlIO::scalar' => '0.02', 'PerlIO::via' => '0.02', 'PerlIO::via::QuotedPrint'=> '0.05', 'Pod::Checker' => '1.41', 'Pod::Find' => '0.24', 'Pod::Functions' => '1.02', 'Pod::Html' => '1.0501', 'Pod::InputObjects' => '1.14', 'Pod::LaTeX' => '0.55', 'Pod::Man' => '1.37', 'Pod::ParseLink' => '1.06', 'Pod::ParseUtils' => '0.3', 'Pod::Perldoc' => '3.10', 'Pod::Perldoc::BaseTo' => undef, 'Pod::Perldoc::GetOptsOO'=> undef, 'Pod::Perldoc::ToChecker'=> undef, 'Pod::Perldoc::ToMan' => undef, 'Pod::Perldoc::ToNroff' => undef, 'Pod::Perldoc::ToPod' => undef, 'Pod::Perldoc::ToRtf' => undef, 'Pod::Perldoc::ToText' => undef, 'Pod::Perldoc::ToTk' => undef, 'Pod::Perldoc::ToXml' => undef, 'Pod::PlainText' => '2.01', 'Pod::Text' => '2.21', 'Pod::Text::Color' => '1.04', 'Pod::Text::Overstrike' => '1.1', 'Pod::Text::Termcap' => '1.11', 'Pod::Usage' => '1.16', 'SDBM_File' => '1.04', 'Safe' => '2.10', 'Scalar::Util' => '1.13', 'SelfLoader' => '1.0904', 'Shell' => '0.5', 'Socket' => '1.76', 'Storable' => '2.08', 'Switch' => '2.10', 'Symbol' => '1.05', 'Sys::Hostname' => '1.11', 'Sys::Syslog' => '0.04', 'Term::ANSIColor' => '1.07', 'Term::Cap' => '1.08', 'Term::Complete' => '1.401', 'Term::ReadLine' => '1.01', 'Test' => '1.24', 'Test::Builder' => '0.17', 'Test::Harness' => '2.30', 'Test::Harness::Straps' => '0.15', 'Test::More' => '0.47', 'Test::Simple' => '0.47', 'Text::Abbrev' => '1.01', 'Text::Balanced' => '1.95', 'Text::Wrap' => '2001.09291', 'Thread::Semaphore' => '2.01', 'Tie::Array' => '1.03', 'Tie::File' => '0.97', 'Tie::RefHash' => '1.31', 'Time::HiRes' => '1.51', 'Time::Local' => '1.07', 'UNIVERSAL' => '1.01', 'Unicode' => '4.0.0', 'Unicode::Collate' => '0.28', 'Unicode::Normalize' => '0.23', 'Unicode::UCD' => '0.21', 'VMS::Filespec' => '1.11', 'XS::APItest' => '0.02', 'XSLoader' => '0.02', 'attributes' => '0.06', 'base' => '2.03', 'bigint' => '0.04', 'bignum' => '0.14', 'bigrat' => '0.06', 'bytes' => '1.01', 'charnames' => '1.02', 'diagnostics' => '1.11', 'encoding' => '1.47', 'fields' => '2.03', 'filetest' => '1.01', 'if' => '0.03', 'lib' => '0.5565', 'open' => '1.02', 'overload' => '1.01', 're' => '0.04', 'sort' => '1.02', 'strict' => '1.03', 'threads' => '1.00', 'threads::shared' => '0.91', 'utf8' => '1.02', 'vmsish' => '1.01', 'warnings' => '1.03', }, removed => { } }, 5.008002 => { delta_from => 5.008001, changed => { 'DB_File' => '1.807', 'Devel::PPPort' => '2.009', 'Digest::MD5' => '2.30', 'I18N::LangTags' => '0.29', 'I18N::LangTags::List' => '0.29', 'MIME::Base64' => '2.21', 'MIME::QuotedPrint' => '2.21', 'Net::Domain' => '2.19', 'Net::FTP' => '2.72', 'Pod::Perldoc' => '3.11', 'Time::HiRes' => '1.52', 'Unicode::Collate' => '0.30', 'Unicode::Normalize' => '0.25', }, removed => { } }, 5.008003 => { delta_from => 5.008002, changed => { 'Benchmark' => '1.052', 'CGI' => '3.01', 'CGI::Carp' => '1.27', 'CGI::Fast' => '1.05', 'CGI::Pretty' => '1.08', 'CGI::Util' => '1.4', 'Cwd' => '2.12', 'DB_File' => '1.808', 'Devel::PPPort' => '2.011', 'Digest' => '1.05', 'Digest::MD5' => '2.33', 'Digest::base' => '1.00', 'Encode' => '1.99', 'Exporter' => '5.57', 'File::CheckTree' => '4.3', 'File::Copy' => '2.07', 'File::Find' => '1.06', 'File::Spec' => '0.87', 'FindBin' => '1.44', 'Getopt::Std' => '1.05', 'Math::BigFloat' => '1.42', 'Math::BigInt' => '1.68', 'Math::BigInt::Calc' => '0.38', 'Math::BigInt::CalcEmu' => '0.02', 'OS2::DLL' => '1.02', 'POSIX' => '1.07', 'PerlIO' => '1.03', 'PerlIO::via::QuotedPrint'=> '0.06', 'Pod::Html' => '1.0502', 'Pod::Parser' => '1.14', 'Pod::Perldoc' => '3.12', 'Pod::PlainText' => '2.02', 'Storable' => '2.09', 'Test::Harness' => '2.40', 'Test::Harness::Assert' => '0.02', 'Test::Harness::Iterator'=> '0.02', 'Test::Harness::Straps' => '0.19', 'Tie::Hash' => '1.01', 'Unicode::Collate' => '0.33', 'Unicode::Normalize' => '0.28', 'XS::APItest' => '0.03', 'base' => '2.04', 'diagnostics' => '1.12', 'encoding' => '1.48', 'threads' => '1.01', 'threads::shared' => '0.92', }, removed => { 'Math::BigInt::Scalar' => 1, } }, 5.008004 => { delta_from => 5.008003, changed => { 'Attribute::Handlers' => '0.78_01', 'B::Assembler' => '0.07', 'B::Concise' => '0.60', 'B::Deparse' => '0.66', 'Benchmark' => '1.06', 'CGI' => '3.04', 'Carp' => '1.02', 'Cwd' => '2.17', 'DBM_Filter' => '0.01', 'DBM_Filter::compress' => '0.01', 'DBM_Filter::encode' => '0.01', 'DBM_Filter::int32' => '0.01', 'DBM_Filter::null' => '0.01', 'DBM_Filter::utf8' => '0.01', 'Digest' => '1.06', 'DynaLoader' => '1.05', 'Encode' => '1.99_01', 'Encode::CN::HZ' => '1.0501', 'Exporter' => '5.58', 'Exporter::Heavy' => '5.57', 'ExtUtils::Liblist::Kid'=> '1.3001', 'ExtUtils::MM_NW5' => '2.07_02', 'ExtUtils::MM_Win95' => '0.0301', 'File::Find' => '1.07', 'IO::Handle' => '1.24', 'IO::Pipe' => '1.123', 'IPC::Open3' => '1.0106', 'Locale::Maketext' => '1.08', 'MIME::Base64' => '3.01', 'MIME::QuotedPrint' => '3.01', 'Math::BigFloat' => '1.44', 'Math::BigInt' => '1.70', 'Math::BigInt::Calc' => '0.40', 'Math::BigInt::CalcEmu' => '0.04', 'Math::BigRat' => '0.12', 'ODBM_File' => '1.05', 'POSIX' => '1.08', 'Shell' => '0.5.2', 'Socket' => '1.77', 'Storable' => '2.12', 'Sys::Syslog' => '0.05', 'Term::ANSIColor' => '1.08', 'Time::HiRes' => '1.59', 'Unicode' => '4.0.1', 'Unicode::UCD' => '0.22', 'Win32' => '0.23', 'base' => '2.05', 'bigint' => '0.05', 'bignum' => '0.15', 'charnames' => '1.03', 'open' => '1.03', 'threads' => '1.03', 'utf8' => '1.03', }, removed => { } }, 5.008005 => { delta_from => 5.008004, changed => { 'B::Concise' => '0.61', 'B::Deparse' => '0.67', 'CGI' => '3.05', 'CGI::Carp' => '1.28', 'CGI::Util' => '1.5', 'Carp' => '1.03', 'Carp::Heavy' => '1.03', 'Cwd' => '2.19', 'DB_File' => '1.809', 'Digest' => '1.08', 'Encode' => '2.01', 'Encode::Alias' => '2.00', 'Encode::Byte' => '2.00', 'Encode::CJKConstants' => '2.00', 'Encode::CN' => '2.00', 'Encode::CN::HZ' => '2.01', 'Encode::Config' => '2.00', 'Encode::EBCDIC' => '2.00', 'Encode::Encoder' => '2.00', 'Encode::Encoding' => '2.00', 'Encode::Guess' => '2.00', 'Encode::JP' => '2.00', 'Encode::JP::H2Z' => '2.00', 'Encode::JP::JIS7' => '2.00', 'Encode::KR' => '2.00', 'Encode::KR::2022_KR' => '2.00', 'Encode::MIME::Header' => '2.00', 'Encode::Symbol' => '2.00', 'Encode::TW' => '2.00', 'Encode::Unicode' => '2.00', 'Encode::Unicode::UTF7' => '2.01', 'File::Basename' => '2.73', 'File::Copy' => '2.08', 'File::Glob' => '1.03', 'FileCache' => '1.04_01', 'I18N::LangTags' => '0.33', 'I18N::LangTags::Detect'=> '1.03', 'List::Util' => '1.14', 'Locale::Constants' => '2.07', 'Locale::Country' => '2.07', 'Locale::Currency' => '2.07', 'Locale::Language' => '2.07', 'Locale::Maketext' => '1.09', 'Locale::Script' => '2.07', 'Net::Cmd' => '2.26', 'Net::FTP' => '2.75', 'Net::NNTP' => '2.23', 'Net::POP3' => '2.28', 'Net::SMTP' => '2.29', 'Net::Time' => '2.10', 'Pod::Checker' => '1.42', 'Pod::Find' => '0.2401', 'Pod::LaTeX' => '0.56', 'Pod::ParseUtils' => '1.2', 'Pod::Perldoc' => '3.13', 'Safe' => '2.11', 'Scalar::Util' => '1.14', 'Shell' => '0.6', 'Storable' => '2.13', 'Term::Cap' => '1.09', 'Test' => '1.25', 'Test::Harness' => '2.42', 'Text::ParseWords' => '3.22', 'Text::Wrap' => '2001.09292', 'Time::Local' => '1.10', 'Unicode::Collate' => '0.40', 'Unicode::Normalize' => '0.30', 'XS::APItest' => '0.04', 'autouse' => '1.04', 'base' => '2.06', 'charnames' => '1.04', 'diagnostics' => '1.13', 'encoding' => '2.00', 'threads' => '1.05', 'utf8' => '1.04', }, removed => { } }, 5.008006 => { delta_from => 5.008005, changed => { 'B' => '1.07', 'B::C' => '1.04', 'B::Concise' => '0.64', 'B::Debug' => '1.02', 'B::Deparse' => '0.69', 'B::Lint' => '1.03', 'B::Showlex' => '1.02', 'Cwd' => '3.01', 'DB_File' => '1.810', 'Data::Dumper' => '2.121_02', 'Devel::PPPort' => '3.03', 'Devel::Peek' => '1.02', 'Encode' => '2.08', 'Encode::Alias' => '2.02', 'Encode::Encoding' => '2.02', 'Encode::JP' => '2.01', 'Encode::Unicode' => '2.02', 'Exporter::Heavy' => '5.58', 'ExtUtils::Constant' => '0.1401', 'File::Spec' => '3.01', 'File::Spec::Win32' => '1.5', 'I18N::LangTags' => '0.35', 'I18N::LangTags::List' => '0.35', 'MIME::Base64' => '3.05', 'MIME::QuotedPrint' => '3.03', 'Math::BigFloat' => '1.47', 'Math::BigInt' => '1.73', 'Math::BigInt::Calc' => '0.43', 'Math::BigRat' => '0.13', 'Text::ParseWords' => '3.23', 'Time::HiRes' => '1.65', 'XS::APItest' => '0.05', 'diagnostics' => '1.14', 'encoding' => '2.01', 'open' => '1.04', 'overload' => '1.02', }, removed => { } }, 5.008007 => { delta_from => 5.008006, changed => { 'B' => '1.09', 'B::Concise' => '0.65', 'B::Deparse' => '0.7', 'B::Disassembler' => '1.04', 'B::Terse' => '1.03', 'Benchmark' => '1.07', 'CGI' => '3.10', 'CGI::Carp' => '1.29', 'CGI::Cookie' => '1.25', 'Carp' => '1.04', 'Carp::Heavy' => '1.04', 'Class::ISA' => '0.33', 'Cwd' => '3.05', 'DB_File' => '1.811', 'Data::Dumper' => '2.121_04', 'Devel::DProf' => '20050310.00', 'Devel::PPPort' => '3.06', 'Digest' => '1.10', 'Digest::file' => '0.01', 'Encode' => '2.10', 'Encode::Alias' => '2.03', 'Errno' => '1.09_01', 'ExtUtils::Constant' => '0.16', 'ExtUtils::Constant::Base'=> '0.01', 'ExtUtils::Constant::Utils'=> '0.01', 'ExtUtils::Constant::XS'=> '0.01', 'File::Find' => '1.09', 'File::Glob' => '1.04', 'File::Path' => '1.07', 'File::Spec' => '3.05', 'File::Temp' => '0.16', 'FileCache' => '1.05', 'IO::File' => '1.11', 'IO::Socket::INET' => '1.28', 'Math::BigFloat' => '1.51', 'Math::BigInt' => '1.77', 'Math::BigInt::Calc' => '0.47', 'Math::BigInt::CalcEmu' => '0.05', 'Math::BigRat' => '0.15', 'Pod::Find' => '1.3', 'Pod::Html' => '1.0503', 'Pod::InputObjects' => '1.3', 'Pod::LaTeX' => '0.58', 'Pod::ParseUtils' => '1.3', 'Pod::Parser' => '1.3', 'Pod::Perldoc' => '3.14', 'Pod::Select' => '1.3', 'Pod::Usage' => '1.3', 'SelectSaver' => '1.01', 'Symbol' => '1.06', 'Sys::Syslog' => '0.06', 'Term::ANSIColor' => '1.09', 'Term::Complete' => '1.402', 'Test::Builder' => '0.22', 'Test::Harness' => '2.48', 'Test::Harness::Point' => '0.01', 'Test::Harness::Straps' => '0.23', 'Test::More' => '0.54', 'Test::Simple' => '0.54', 'Text::ParseWords' => '3.24', 'Text::Wrap' => '2001.09293', 'Tie::RefHash' => '1.32', 'Time::HiRes' => '1.66', 'Time::Local' => '1.11', 'Unicode' => '4.1.0', 'Unicode::Normalize' => '0.32', 'Unicode::UCD' => '0.23', 'Win32' => '0.24', 'XS::APItest' => '0.06', 'base' => '2.07', 'bigint' => '0.07', 'bignum' => '0.17', 'bigrat' => '0.08', 'bytes' => '1.02', 'constant' => '1.05', 'overload' => '1.03', 'threads::shared' => '0.93', 'utf8' => '1.05', }, removed => { 'JNI' => 1, 'JPL::AutoLoader' => 1, 'JPL::Class' => 1, 'JPL::Compile' => 1, } }, 5.008008 => { delta_from => 5.008007, changed => { 'Attribute::Handlers' => '0.78_02', 'B' => '1.09_01', 'B::Bblock' => '1.02_01', 'B::Bytecode' => '1.01_01', 'B::C' => '1.04_01', 'B::CC' => '1.00_01', 'B::Concise' => '0.66', 'B::Debug' => '1.02_01', 'B::Deparse' => '0.71', 'B::Disassembler' => '1.05', 'B::Terse' => '1.03_01', 'ByteLoader' => '0.06', 'CGI' => '3.15', 'CGI::Cookie' => '1.26', 'CPAN' => '1.76_02', 'Cwd' => '3.12', 'DB' => '1.01', 'DB_File' => '1.814', 'Data::Dumper' => '2.121_08', 'Devel::DProf' => '20050603.00', 'Devel::PPPort' => '3.06_01', 'Devel::Peek' => '1.03', 'Digest' => '1.14', 'Digest::MD5' => '2.36', 'Digest::file' => '1.00', 'Dumpvalue' => '1.12', 'Encode' => '2.12', 'Encode::Alias' => '2.04', 'Encode::Config' => '2.01', 'Encode::MIME::Header' => '2.01', 'Encode::MIME::Header::ISO_2022_JP'=> '1.01', 'English' => '1.02', 'ExtUtils::Command' => '1.09', 'ExtUtils::Command::MM' => '0.05', 'ExtUtils::Constant' => '0.17', 'ExtUtils::Embed' => '1.26', 'ExtUtils::Install' => '1.33', 'ExtUtils::Liblist::Kid'=> '1.3', 'ExtUtils::MM' => '0.05', 'ExtUtils::MM_AIX' => '0.03', 'ExtUtils::MM_Any' => '0.13', 'ExtUtils::MM_BeOS' => '1.05', 'ExtUtils::MM_Cygwin' => '1.08', 'ExtUtils::MM_MacOS' => '1.08', 'ExtUtils::MM_NW5' => '2.08', 'ExtUtils::MM_OS2' => '1.05', 'ExtUtils::MM_QNX' => '0.02', 'ExtUtils::MM_Unix' => '1.50', 'ExtUtils::MM_VMS' => '5.73', 'ExtUtils::MM_VOS' => '0.02', 'ExtUtils::MM_Win32' => '1.12', 'ExtUtils::MM_Win95' => '0.04', 'ExtUtils::MakeMaker' => '6.30', 'ExtUtils::MakeMaker::Config'=> '0.02', 'ExtUtils::Manifest' => '1.46', 'File::Basename' => '2.74', 'File::Copy' => '2.09', 'File::Find' => '1.10', 'File::Glob' => '1.05', 'File::Path' => '1.08', 'File::Spec' => '3.12', 'File::Spec::Win32' => '1.6', 'FileCache' => '1.06', 'Filter::Simple' => '0.82', 'FindBin' => '1.47', 'GDBM_File' => '1.08', 'Getopt::Long' => '2.35', 'IO' => '1.22', 'IO::Dir' => '1.05', 'IO::File' => '1.13', 'IO::Handle' => '1.25', 'IO::Pipe' => '1.13', 'IO::Poll' => '0.07', 'IO::Seekable' => '1.10', 'IO::Select' => '1.17', 'IO::Socket' => '1.29', 'IO::Socket::INET' => '1.29', 'IO::Socket::UNIX' => '1.22', 'IPC::Open2' => '1.02', 'IPC::Open3' => '1.02', 'List::Util' => '1.18', 'MIME::Base64' => '3.07', 'MIME::QuotedPrint' => '3.07', 'Math::Complex' => '1.35', 'Math::Trig' => '1.03', 'NDBM_File' => '1.06', 'ODBM_File' => '1.06', 'OS2::PrfDB' => '0.04', 'OS2::Process' => '1.02', 'OS2::REXX' => '1.03', 'Opcode' => '1.06', 'POSIX' => '1.09', 'PerlIO' => '1.04', 'PerlIO::encoding' => '0.09', 'PerlIO::scalar' => '0.04', 'PerlIO::via' => '0.03', 'Pod::Checker' => '1.43', 'Pod::Find' => '1.34', 'Pod::Functions' => '1.03', 'Pod::Html' => '1.0504', 'Pod::ParseUtils' => '1.33', 'Pod::Parser' => '1.32', 'Pod::Usage' => '1.33', 'SDBM_File' => '1.05', 'Safe' => '2.12', 'Scalar::Util' => '1.18', 'Socket' => '1.78', 'Storable' => '2.15', 'Switch' => '2.10_01', 'Sys::Syslog' => '0.13', 'Term::ANSIColor' => '1.10', 'Term::ReadLine' => '1.02', 'Test::Builder' => '0.32', 'Test::Builder::Module' => '0.02', 'Test::Builder::Tester' => '1.02', 'Test::Builder::Tester::Color'=> undef, 'Test::Harness' => '2.56', 'Test::Harness::Straps' => '0.26', 'Test::More' => '0.62', 'Test::Simple' => '0.62', 'Text::Tabs' => '2005.0824', 'Text::Wrap' => '2005.082401', 'Tie::Hash' => '1.02', 'Time::HiRes' => '1.86', 'Unicode::Collate' => '0.52', 'Unicode::UCD' => '0.24', 'User::grent' => '1.01', 'Win32' => '0.2601', 'XS::APItest' => '0.08', 'XS::Typemap' => '0.02', 'XSLoader' => '0.06', 'attrs' => '1.02', 'autouse' => '1.05', 'blib' => '1.03', 'charnames' => '1.05', 'diagnostics' => '1.15', 'encoding' => '2.02', 'if' => '0.05', 'open' => '1.05', 'ops' => '1.01', 'overload' => '1.04', 're' => '0.05', 'threads' => '1.07', 'threads::shared' => '0.94', 'utf8' => '1.06', 'vmsish' => '1.02', 'warnings' => '1.05', 'warnings::register' => '1.01', }, removed => { } }, 5.008009 => { delta_from => 5.008008, changed => { 'Attribute::Handlers' => '0.78_03', 'AutoLoader' => '5.67', 'AutoSplit' => '1.06', 'B' => '1.19', 'B::Asmdata' => '1.02', 'B::Assembler' => '0.08', 'B::C' => '1.05', 'B::Concise' => '0.76', 'B::Debug' => '1.05', 'B::Deparse' => '0.87', 'B::Lint' => '1.11', 'B::Lint::Debug' => undef, 'B::Terse' => '1.05', 'Benchmark' => '1.1', 'CGI' => '3.42', 'CGI::Carp' => '1.30_01', 'CGI::Cookie' => '1.29', 'CGI::Fast' => '1.07', 'CGI::Util' => '1.5_01', 'CPAN' => '1.9301', 'CPAN::Debug' => '5.5', 'CPAN::DeferedCode' => '5.50', 'CPAN::Distroprefs' => '6', 'CPAN::FirstTime' => '5.5_01', 'CPAN::HandleConfig' => '5.5', 'CPAN::Kwalify' => '5.50', 'CPAN::Nox' => '5.50', 'CPAN::Queue' => '5.5', 'CPAN::Tarzip' => '5.5', 'CPAN::Version' => '5.5', 'Carp' => '1.10', 'Carp::Heavy' => '1.10', 'Cwd' => '3.29', 'DBM_Filter' => '0.02', 'DBM_Filter::compress' => '0.02', 'DBM_Filter::encode' => '0.02', 'DBM_Filter::int32' => '0.02', 'DBM_Filter::null' => '0.02', 'DBM_Filter::utf8' => '0.02', 'DB_File' => '1.817', 'Data::Dumper' => '2.121_17', 'Devel::DProf' => '20080331.00', 'Devel::InnerPackage' => '0.3', 'Devel::PPPort' => '3.14', 'Devel::Peek' => '1.04', 'Digest' => '1.15', 'Digest::MD5' => '2.37', 'DirHandle' => '1.02', 'DynaLoader' => '1.09', 'Encode' => '2.26', 'Encode::Alias' => '2.10', 'Encode::Byte' => '2.03', 'Encode::CJKConstants' => '2.02', 'Encode::CN' => '2.02', 'Encode::CN::HZ' => '2.05', 'Encode::Config' => '2.05', 'Encode::EBCDIC' => '2.02', 'Encode::Encoder' => '2.01', 'Encode::Encoding' => '2.05', 'Encode::GSM0338' => '2.01', 'Encode::Guess' => '2.02', 'Encode::JP' => '2.03', 'Encode::JP::H2Z' => '2.02', 'Encode::JP::JIS7' => '2.04', 'Encode::KR' => '2.02', 'Encode::KR::2022_KR' => '2.02', 'Encode::MIME::Header' => '2.05', 'Encode::MIME::Header::ISO_2022_JP'=> '1.03', 'Encode::MIME::Name' => '1.01', 'Encode::Symbol' => '2.02', 'Encode::TW' => '2.02', 'Encode::Unicode' => '2.05', 'Encode::Unicode::UTF7' => '2.04', 'English' => '1.03', 'Errno' => '1.10', 'Exporter' => '5.63', 'Exporter::Heavy' => '5.63', 'ExtUtils::Command' => '1.15', 'ExtUtils::Command::MM' => '6.48', 'ExtUtils::Constant' => '0.21', 'ExtUtils::Constant::Base'=> '0.04', 'ExtUtils::Constant::ProxySubs'=> '0.06', 'ExtUtils::Constant::Utils'=> '0.02', 'ExtUtils::Constant::XS'=> '0.02', 'ExtUtils::Embed' => '1.28', 'ExtUtils::Install' => '1.50_01', 'ExtUtils::Installed' => '1.43', 'ExtUtils::Liblist' => '6.48', 'ExtUtils::Liblist::Kid'=> '6.48', 'ExtUtils::MM' => '6.48', 'ExtUtils::MM_AIX' => '6.48', 'ExtUtils::MM_Any' => '6.48', 'ExtUtils::MM_BeOS' => '6.48', 'ExtUtils::MM_Cygwin' => '6.48', 'ExtUtils::MM_DOS' => '6.48', 'ExtUtils::MM_Darwin' => '6.48', 'ExtUtils::MM_MacOS' => '6.48', 'ExtUtils::MM_NW5' => '6.48', 'ExtUtils::MM_OS2' => '6.48', 'ExtUtils::MM_QNX' => '6.48', 'ExtUtils::MM_UWIN' => '6.48', 'ExtUtils::MM_Unix' => '6.48', 'ExtUtils::MM_VMS' => '6.48', 'ExtUtils::MM_VOS' => '6.48', 'ExtUtils::MM_Win32' => '6.48', 'ExtUtils::MM_Win95' => '6.48', 'ExtUtils::MY' => '6.48', 'ExtUtils::MakeMaker' => '6.48', 'ExtUtils::MakeMaker::Config'=> '6.48', 'ExtUtils::MakeMaker::bytes'=> '6.48', 'ExtUtils::MakeMaker::vmsish'=> '6.48', 'ExtUtils::Manifest' => '1.55', 'ExtUtils::Mkbootstrap' => '6.48', 'ExtUtils::Mksymlists' => '6.48', 'ExtUtils::Packlist' => '1.43', 'ExtUtils::ParseXS' => '2.19', 'ExtUtils::XSSymSet' => '1.1', 'ExtUtils::testlib' => '6.48', 'Fatal' => '1.06', 'Fcntl' => '1.06', 'File::Basename' => '2.77', 'File::CheckTree' => '4.4', 'File::Compare' => '1.1005', 'File::Copy' => '2.13', 'File::DosGlob' => '1.01', 'File::Find' => '1.13', 'File::Glob' => '1.06', 'File::Path' => '2.07_02', 'File::Spec' => '3.29', 'File::Spec::Cygwin' => '3.29', 'File::Spec::Epoc' => '3.29', 'File::Spec::Functions' => '3.29', 'File::Spec::Mac' => '3.29', 'File::Spec::OS2' => '3.29', 'File::Spec::Unix' => '3.29', 'File::Spec::VMS' => '3.29', 'File::Spec::Win32' => '3.29', 'File::Temp' => '0.20', 'File::stat' => '1.01', 'FileCache' => '1.07', 'Filter::Simple' => '0.83', 'Filter::Util::Call' => '1.07', 'FindBin' => '1.49', 'GDBM_File' => '1.09', 'Getopt::Long' => '2.37', 'Getopt::Std' => '1.06', 'Hash::Util' => '0.06', 'IO' => '1.23', 'IO::Dir' => '1.06', 'IO::File' => '1.14', 'IO::Handle' => '1.27', 'IO::Socket' => '1.30', 'IO::Socket::INET' => '1.31', 'IO::Socket::UNIX' => '1.23', 'IPC::Msg' => '2.00', 'IPC::Open2' => '1.03', 'IPC::Open3' => '1.03', 'IPC::Semaphore' => '2.00', 'IPC::SharedMem' => '2.00', 'IPC::SysV' => '2.00', 'List::Util' => '1.19', 'Locale::Maketext' => '1.13', 'Locale::Maketext::Guts'=> '1.13', 'Locale::Maketext::GutsLoader'=> '1.13', 'Math::BigFloat' => '1.60', 'Math::BigInt' => '1.89', 'Math::BigInt::Calc' => '0.52', 'Math::BigRat' => '0.22', 'Math::Complex' => '1.54', 'Math::Trig' => '1.18', 'Module::CoreList' => '2.17', 'Module::Pluggable' => '3.8', 'Module::Pluggable::Object'=> '3.6', 'NDBM_File' => '1.07', 'NEXT' => '0.61', 'Net::Cmd' => '2.29', 'Net::Config' => '1.11', 'Net::Domain' => '2.20', 'Net::FTP' => '2.77', 'Net::FTP::A' => '1.18', 'Net::NNTP' => '2.24', 'Net::POP3' => '2.29', 'Net::Ping' => '2.35', 'Net::SMTP' => '2.31', 'O' => '1.01', 'ODBM_File' => '1.07', 'OS2::DLL' => '1.03', 'OS2::Process' => '1.03', 'Opcode' => '1.0601', 'POSIX' => '1.15', 'PerlIO' => '1.05', 'PerlIO::encoding' => '0.11', 'PerlIO::scalar' => '0.06', 'PerlIO::via' => '0.05', 'Pod::Html' => '1.09', 'Pod::ParseUtils' => '1.35', 'Pod::Parser' => '1.35', 'Pod::Select' => '1.35', 'Pod::Usage' => '1.35', 'SDBM_File' => '1.06', 'Safe' => '2.16', 'Scalar::Util' => '1.19', 'SelfLoader' => '1.17', 'Shell' => '0.72', 'Socket' => '1.81', 'Storable' => '2.19', 'Switch' => '2.13', 'Sys::Syslog' => '0.27', 'Sys::Syslog::win32::Win32'=> undef, 'Term::ANSIColor' => '1.12', 'Term::Cap' => '1.12', 'Term::ReadLine' => '1.03', 'Test::Builder' => '0.80', 'Test::Builder::Module' => '0.80', 'Test::Builder::Tester' => '1.13', 'Test::Harness' => '2.64', 'Test::Harness::Results'=> '0.01_01', 'Test::Harness::Straps' => '0.26_01', 'Test::Harness::Util' => '0.01', 'Test::More' => '0.80', 'Test::Simple' => '0.80', 'Text::Balanced' => '1.98', 'Text::ParseWords' => '3.27', 'Text::Soundex' => '3.03', 'Text::Tabs' => '2007.1117', 'Text::Wrap' => '2006.1117', 'Thread' => '2.01', 'Thread::Queue' => '2.11', 'Thread::Semaphore' => '2.09', 'Tie::Handle' => '4.2', 'Tie::Hash' => '1.03', 'Tie::Memoize' => '1.1', 'Tie::RefHash' => '1.38', 'Tie::Scalar' => '1.01', 'Tie::StdHandle' => '4.2', 'Time::HiRes' => '1.9715', 'Time::Local' => '1.1901', 'Time::gmtime' => '1.03', 'Unicode' => '5.1.0', 'Unicode::Normalize' => '1.02', 'Unicode::UCD' => '0.25', 'VMS::DCLsym' => '1.03', 'VMS::Stdio' => '2.4', 'Win32' => '0.38', 'Win32API::File' => '0.1001_01', 'Win32API::File::ExtUtils::Myconst2perl'=> '1', 'Win32CORE' => '0.02', 'XS::APItest' => '0.15', 'XS::Typemap' => '0.03', 'XSLoader' => '0.10', 'attributes' => '0.09', 'autouse' => '1.06', 'base' => '2.13', 'bigint' => '0.23', 'bignum' => '0.23', 'bigrat' => '0.23', 'blib' => '1.04', 'charnames' => '1.06', 'constant' => '1.17', 'diagnostics' => '1.16', 'encoding' => '2.6_01', 'fields' => '2.12', 'filetest' => '1.02', 'lib' => '0.61', 'open' => '1.06', 'ops' => '1.02', 'overload' => '1.06', 're' => '0.0601', 'sigtrap' => '1.04', 'threads' => '1.71', 'threads::shared' => '1.27', 'utf8' => '1.07', 'warnings' => '1.05_01', }, removed => { } }, 5.009 => { delta_from => 5.008002, changed => { 'B' => '1.03', 'B::C' => '1.03', 'B::Concise' => '0.57', 'B::Deparse' => '0.65', 'DB_File' => '1.806', 'Devel::PPPort' => '2.008', 'English' => '1.02', 'Fatal' => '1.04', 'OS2::DLL' => '1.02', 'Opcode' => '1.06', 'Time::HiRes' => '1.51', 'Unicode::Collate' => '0.28', 'Unicode::Normalize' => '0.23', 'XSLoader' => '0.03', 'assertions' => '0.01', 'assertions::activate' => '0.01', 'overload' => '1.02', 'version' => '0.29', }, removed => { } }, 5.009001 => { delta_from => 5.008004, changed => { 'B' => '1.05', 'B::Assembler' => '0.06', 'B::C' => '1.04', 'B::Concise' => '0.59', 'B::Debug' => '1.02', 'B::Deparse' => '0.65', 'DB_File' => '1.808_01', 'Devel::PPPort' => '2.011_01', 'Digest' => '1.05', 'DynaLoader' => '1.04', 'English' => '1.02', 'Exporter::Heavy' => '5.567', 'ExtUtils::Command' => '1.07', 'ExtUtils::Liblist::Kid'=> '1.3', 'ExtUtils::MM_Any' => '0.0901', 'ExtUtils::MM_Cygwin' => '1.07', 'ExtUtils::MM_NW5' => '2.07_01', 'ExtUtils::MM_Unix' => '1.45_01', 'ExtUtils::MM_VMS' => '5.71_01', 'ExtUtils::MM_Win32' => '1.10_01', 'ExtUtils::MM_Win95' => '0.03', 'ExtUtils::MakeMaker' => '6.21_02', 'ExtUtils::Manifest' => '1.43', 'Fatal' => '1.04', 'Getopt::Long' => '2.3401', 'IO::Handle' => '1.23', 'IO::Pipe' => '1.122', 'IPC::Open3' => '1.0105', 'MIME::Base64' => '3.00_01', 'MIME::QuotedPrint' => '3.00', 'Memoize' => '1.01_01', 'ODBM_File' => '1.04', 'Opcode' => '1.06', 'POSIX' => '1.07', 'Storable' => '2.11', 'Time::HiRes' => '1.56', 'Time::Local' => '1.07_94', 'UNIVERSAL' => '1.02', 'Unicode' => '4.0.0', 'Unicode::UCD' => '0.21', 'XSLoader' => '0.03', 'assertions' => '0.01', 'assertions::activate' => '0.01', 'base' => '2.04', 'if' => '0.0401', 'open' => '1.02', 'overload' => '1.02', 'threads' => '1.02', 'utf8' => '1.02', 'version' => '0.36', }, removed => { } }, 5.009002 => { delta_from => 5.008007, changed => { 'B' => '1.07', 'B::Concise' => '0.64', 'B::Deparse' => '0.69', 'B::Disassembler' => '1.03', 'B::Terse' => '1.02', 'CGI' => '3.07', 'Config::Extensions' => '0.01', 'Devel::DProf' => '20030813.00', 'DynaLoader' => '1.07', 'Encode' => '2.09', 'Encode::Alias' => '2.02', 'English' => '1.03', 'Exporter' => '5.59', 'Exporter::Heavy' => '5.59', 'ExtUtils::Command' => '1.07', 'ExtUtils::Command::MM' => '0.03_01', 'ExtUtils::Embed' => '1.26', 'ExtUtils::Liblist::Kid'=> '1.3', 'ExtUtils::MM_Any' => '0.10', 'ExtUtils::MM_Cygwin' => '1.07', 'ExtUtils::MM_MacOS' => '1.08', 'ExtUtils::MM_NW5' => '2.07', 'ExtUtils::MM_Unix' => '1.46_01', 'ExtUtils::MM_VMS' => '5.71', 'ExtUtils::MM_Win32' => '1.10', 'ExtUtils::MM_Win95' => '0.03', 'ExtUtils::MakeMaker' => '6.25', 'ExtUtils::Manifest' => '1.44', 'Fatal' => '1.04', 'File::Path' => '1.06', 'FileCache' => '1.04_01', 'Getopt::Long' => '2.3401', 'IO::File' => '1.10', 'IO::Socket::INET' => '1.27', 'Math::BigFloat' => '1.49', 'Math::BigInt' => '1.75', 'Math::BigInt::Calc' => '0.45', 'Math::BigRat' => '0.14', 'Memoize' => '1.01_01', 'Module::CoreList' => '1.99', 'NEXT' => '0.60_01', 'Opcode' => '1.06', 'Pod::Html' => '1.0502', 'Scalar::Util' => '1.14_1', 'Storable' => '2.14', 'Symbol' => '1.05', 'Test::Harness' => '2.46', 'Test::Harness::Straps' => '0.20_01', 'Text::Balanced' => '1.95_01', 'Text::Wrap' => '2001.09292', 'UNIVERSAL' => '1.02', 'Unicode' => '4.0.1', 'Unicode::Normalize' => '0.30', 'Unicode::UCD' => '0.22', 'Win32' => '0.23', 'XS::APItest' => '0.05', 'XSLoader' => '0.03', 'assertions' => '0.01', 'assertions::activate' => '0.01', 'base' => '2.06', 'bigint' => '0.06', 'bignum' => '0.16', 'bigrat' => '0.07', 'bytes' => '1.01', 'encoding::warnings' => '0.05', 'if' => '0.0401', 're' => '0.05', 'threads::shared' => '0.92', 'utf8' => '1.04', 'version' => '0.42', 'warnings' => '1.04', }, removed => { 'Test::Harness::Point' => 1, } }, 5.009003 => { delta_from => 5.008008, changed => { 'Archive::Tar' => '1.26_01', 'Archive::Tar::Constant'=> '0.02', 'Archive::Tar::File' => '0.02', 'AutoSplit' => '1.04_01', 'B' => '1.10', 'B::Bblock' => '1.02', 'B::Bytecode' => '1.01', 'B::C' => '1.04', 'B::CC' => '1.00', 'B::Concise' => '0.67', 'B::Debug' => '1.02', 'B::Deparse' => '0.73', 'B::Lint' => '1.04', 'B::Terse' => '1.03', 'CGI' => '3.15_01', 'CPAN' => '1.83_58', 'CPAN::Debug' => '4.44', 'CPAN::FirstTime' => '4.50', 'CPAN::HandleConfig' => '4.31', 'CPAN::Nox' => '2.31', 'CPAN::Tarzip' => '3.36', 'CPAN::Version' => '2.55', 'Carp' => '1.05', 'Carp::Heavy' => '1.05', 'Compress::Zlib' => '2.000_07', 'Compress::Zlib::Common'=> '2.000_07', 'Compress::Zlib::Compress::Gzip::Constants'=> '2.000_07', 'Compress::Zlib::Compress::Zip::Constants'=> '1.00', 'Compress::Zlib::CompressPlugin::Deflate'=> '2.000_05', 'Compress::Zlib::CompressPlugin::Identity'=> '2.000_05', 'Compress::Zlib::File::GlobMapper'=> '0.000_02', 'Compress::Zlib::FileConstants'=> '2.000_07', 'Compress::Zlib::IO::Compress::Base'=> '2.000_05', 'Compress::Zlib::IO::Compress::Deflate'=> '2.000_07', 'Compress::Zlib::IO::Compress::Gzip'=> '2.000_07', 'Compress::Zlib::IO::Compress::RawDeflate'=> '2.000_07', 'Compress::Zlib::IO::Compress::Zip'=> '2.000_04', 'Compress::Zlib::IO::Uncompress::AnyInflate'=> '2.000_07', 'Compress::Zlib::IO::Uncompress::AnyUncompress'=> '2.000_05', 'Compress::Zlib::IO::Uncompress::Base'=> '2.000_05', 'Compress::Zlib::IO::Uncompress::Gunzip'=> '2.000_07', 'Compress::Zlib::IO::Uncompress::Inflate'=> '2.000_07', 'Compress::Zlib::IO::Uncompress::RawInflate'=> '2.000_07', 'Compress::Zlib::IO::Uncompress::Unzip'=> '2.000_05', 'Compress::Zlib::ParseParameters'=> '2.000_07', 'Compress::Zlib::UncompressPlugin::Identity'=> '2.000_05', 'Compress::Zlib::UncompressPlugin::Inflate'=> '2.000_05', 'Config::Extensions' => '0.01', 'Cwd' => '3.15', 'Devel::PPPort' => '3.08', 'Digest::SHA' => '5.32', 'DirHandle' => '1.01', 'DynaLoader' => '1.07', 'Encode' => '2.14', 'Encode::CN::HZ' => '2.02', 'Encode::MIME::Header' => '2.02', 'English' => '1.04', 'Exporter' => '5.59', 'Exporter::Heavy' => '5.59', 'ExtUtils::CBuilder' => '0.15', 'ExtUtils::CBuilder::Base'=> '0.12', 'ExtUtils::CBuilder::Platform::Unix'=> '0.12', 'ExtUtils::CBuilder::Platform::VMS'=> '0.12', 'ExtUtils::CBuilder::Platform::Windows'=> '0.12', 'ExtUtils::CBuilder::Platform::aix'=> '0.12', 'ExtUtils::CBuilder::Platform::cygwin'=> '0.12', 'ExtUtils::CBuilder::Platform::darwin'=> '0.12', 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.01', 'ExtUtils::CBuilder::Platform::os2'=> '0.13', 'ExtUtils::Command::MM' => '0.05_01', 'ExtUtils::Constant' => '0.2', 'ExtUtils::Constant::Base'=> '0.02', 'ExtUtils::Constant::ProxySubs'=> '0.01', 'ExtUtils::Constant::XS'=> '0.02', 'ExtUtils::MM_Any' => '0.13_01', 'ExtUtils::MM_Unix' => '1.50_01', 'ExtUtils::MakeMaker' => '6.30_01', 'ExtUtils::ParseXS' => '2.15_02', 'Fatal' => '1.04', 'File::Compare' => '1.1005', 'File::Spec' => '3.15', 'File::Temp' => '0.16_01', 'IO::File' => '1.13_01', 'IO::Handle' => '1.26', 'IO::Socket' => '1.29_01', 'IO::Socket::INET' => '1.29_02', 'IO::Socket::UNIX' => '1.22_01', 'IO::Zlib' => '1.04_02', 'Locale::Maketext' => '1.10_01', 'Math::BigInt::FastCalc'=> '0.10', 'Memoize' => '1.01_01', 'Module::CoreList' => '2.02', 'Moped::Msg' => '0.01', 'NEXT' => '0.60_01', 'Net::Cmd' => '2.26_01', 'Net::Domain' => '2.19_01', 'Net::Ping' => '2.31_04', 'Opcode' => '1.08', 'POSIX' => '1.10', 'Pod::Escapes' => '1.04', 'Pod::Man' => '2.04', 'Pod::Perldoc' => '3.14_01', 'Pod::Simple' => '3.04', 'Pod::Simple::BlackBox' => undef, 'Pod::Simple::Checker' => '2.02', 'Pod::Simple::Debug' => undef, 'Pod::Simple::DumpAsText'=> '2.02', 'Pod::Simple::DumpAsXML'=> '2.02', 'Pod::Simple::HTML' => '3.03', 'Pod::Simple::HTMLBatch'=> '3.02', 'Pod::Simple::HTMLLegacy'=> '5.01', 'Pod::Simple::LinkSection'=> undef, 'Pod::Simple::Methody' => '2.02', 'Pod::Simple::Progress' => '1.01', 'Pod::Simple::PullParser'=> '2.02', 'Pod::Simple::PullParserEndToken'=> undef, 'Pod::Simple::PullParserStartToken'=> undef, 'Pod::Simple::PullParserTextToken'=> undef, 'Pod::Simple::PullParserToken'=> '2.02', 'Pod::Simple::RTF' => '2.02', 'Pod::Simple::Search' => '3.04', 'Pod::Simple::SimpleTree'=> '2.02', 'Pod::Simple::Text' => '2.02', 'Pod::Simple::TextContent'=> '2.02', 'Pod::Simple::TiedOutFH'=> undef, 'Pod::Simple::Transcode'=> undef, 'Pod::Simple::TranscodeDumb'=> '2.02', 'Pod::Simple::TranscodeSmart'=> undef, 'Pod::Simple::XMLOutStream'=> '2.02', 'Pod::Text' => '3.01', 'Pod::Text::Color' => '2.01', 'Pod::Text::Overstrike' => '2', 'Pod::Text::Termcap' => '2.01', 'Pod::Usage' => '1.33_01', 'SelfLoader' => '1.0905', 'Storable' => '2.15_02', 'Test::Builder::Module' => '0.03', 'Text::Balanced' => '1.95_01', 'Tie::File' => '0.97_01', 'UNIVERSAL' => '1.03', 'XS::APItest' => '0.09', 'assertions' => '0.02', 'assertions::activate' => '0.02', 'assertions::compat' => undef, 'constant' => '1.07', 'encoding::warnings' => '0.05', 'feature' => '1.00', 're' => '0.06', 'sort' => '2.00', 'version' => '0.53', }, removed => { } }, 5.009004 => { delta_from => 5.009003, changed => { 'Archive::Tar' => '1.30_01', 'AutoLoader' => '5.61', 'B' => '1.11', 'B::Bytecode' => '1.02', 'B::C' => '1.05', 'B::Concise' => '0.69', 'B::Deparse' => '0.76', 'B::Lint' => '1.08', 'Benchmark' => '1.08', 'CGI' => '3.20', 'CGI::Cookie' => '1.27', 'CGI::Fast' => '1.07', 'CPAN' => '1.87_55', 'CPAN::Debug' => '5.400561', 'CPAN::FirstTime' => '5.400742', 'CPAN::HandleConfig' => '5.400740', 'CPAN::Nox' => '5.400561', 'CPAN::Tarzip' => '5.400714', 'CPAN::Version' => '5.400561', 'Compress::Raw::Zlib' => '2.000_13', 'Compress::Zlib' => '2.000_13', 'Cwd' => '3.19', 'Devel::PPPort' => '3.10', 'Digest' => '1.15', 'Digest::SHA' => '5.43', 'Encode' => '2.18_01', 'Encode::Alias' => '2.06', 'Encode::Byte' => '2.02', 'Encode::CJKConstants' => '2.02', 'Encode::CN' => '2.02', 'Encode::CN::HZ' => '2.04', 'Encode::Config' => '2.03', 'Encode::EBCDIC' => '2.02', 'Encode::Encoder' => '2.01', 'Encode::Encoding' => '2.04', 'Encode::Guess' => '2.02', 'Encode::JP' => '2.03', 'Encode::JP::H2Z' => '2.02', 'Encode::JP::JIS7' => '2.02', 'Encode::KR' => '2.02', 'Encode::KR::2022_KR' => '2.02', 'Encode::MIME::Header' => '2.04', 'Encode::MIME::Header::ISO_2022_JP'=> '1.03', 'Encode::Symbol' => '2.02', 'Encode::TW' => '2.02', 'Encode::Unicode' => '2.03', 'Encode::Unicode::UTF7' => '2.04', 'ExtUtils::CBuilder' => '0.18', 'ExtUtils::CBuilder::Platform::Windows'=> '0.12_01', 'ExtUtils::Constant::Base'=> '0.03', 'ExtUtils::Constant::ProxySubs'=> '0.03', 'ExtUtils::Install' => '1.41', 'ExtUtils::Installed' => '1.41', 'ExtUtils::MM_Any' => '0.13_02', 'ExtUtils::MM_NW5' => '2.08_01', 'ExtUtils::MM_Unix' => '1.5003', 'ExtUtils::MM_VMS' => '5.73_03', 'ExtUtils::MM_Win32' => '1.12_02', 'ExtUtils::MM_Win95' => '0.04_01', 'ExtUtils::MakeMaker' => '6.30_02', 'ExtUtils::Manifest' => '1.46_01', 'ExtUtils::Mkbootstrap' => '1.15_01', 'ExtUtils::Mksymlists' => '1.19_01', 'ExtUtils::Packlist' => '1.41', 'File::Basename' => '2.75', 'File::Find' => '1.11', 'File::GlobMapper' => '0.000_02', 'File::Spec' => '3.19', 'FileCache' => '1.07', 'Getopt::Long' => '2.3501', 'Hash::Util' => '0.07', 'Hash::Util::FieldHash' => '0.01', 'IO' => '1.23_01', 'IO::Compress::Adapter::Deflate'=> '2.000_13', 'IO::Compress::Adapter::Identity'=> '2.000_13', 'IO::Compress::Base' => '2.000_13', 'IO::Compress::Base::Common'=> '2.000_13', 'IO::Compress::Deflate' => '2.000_13', 'IO::Compress::Gzip' => '2.000_13', 'IO::Compress::Gzip::Constants'=> '2.000_13', 'IO::Compress::RawDeflate'=> '2.000_13', 'IO::Compress::Zip' => '2.000_13', 'IO::Compress::Zip::Constants'=> '2.000_13', 'IO::Compress::Zlib::Constants'=> '2.000_13', 'IO::Compress::Zlib::Extra'=> '2.000_13', 'IO::Dir' => '1.06', 'IO::File' => '1.14', 'IO::Handle' => '1.27', 'IO::Socket' => '1.30_01', 'IO::Socket::INET' => '1.31', 'IO::Socket::UNIX' => '1.23', 'IO::Uncompress::Adapter::Identity'=> '2.000_13', 'IO::Uncompress::Adapter::Inflate'=> '2.000_13', 'IO::Uncompress::AnyInflate'=> '2.000_13', 'IO::Uncompress::AnyUncompress'=> '2.000_13', 'IO::Uncompress::Base' => '2.000_13', 'IO::Uncompress::Gunzip'=> '2.000_13', 'IO::Uncompress::Inflate'=> '2.000_13', 'IO::Uncompress::RawInflate'=> '2.000_13', 'IO::Uncompress::Unzip' => '2.000_13', 'MIME::Base64' => '3.07_01', 'Math::Complex' => '1.36', 'Math::Trig' => '1.04', 'Module::Build' => '0.2805', 'Module::Build::Base' => undef, 'Module::Build::Compat' => '0.03', 'Module::Build::ConfigData'=> undef, 'Module::Build::Cookbook'=> undef, 'Module::Build::ModuleInfo'=> undef, 'Module::Build::Notes' => undef, 'Module::Build::PPMMaker'=> undef, 'Module::Build::Platform::Amiga'=> undef, 'Module::Build::Platform::Default'=> undef, 'Module::Build::Platform::EBCDIC'=> undef, 'Module::Build::Platform::MPEiX'=> undef, 'Module::Build::Platform::MacOS'=> undef, 'Module::Build::Platform::RiscOS'=> undef, 'Module::Build::Platform::Unix'=> undef, 'Module::Build::Platform::VMS'=> undef, 'Module::Build::Platform::VOS'=> undef, 'Module::Build::Platform::Windows'=> undef, 'Module::Build::Platform::aix'=> undef, 'Module::Build::Platform::cygwin'=> undef, 'Module::Build::Platform::darwin'=> undef, 'Module::Build::Platform::os2'=> undef, 'Module::Build::PodParser'=> undef, 'Module::Build::Version'=> '0', 'Module::Build::YAML' => '0.50', 'Module::CoreList' => '2.08', 'Module::Load' => '0.10', 'Module::Loaded' => '0.01', 'Package::Constants' => '0.01', 'Pod::Html' => '1.07', 'Pod::Man' => '2.09', 'Pod::Text' => '3.07', 'Pod::Text::Color' => '2.03', 'Pod::Text::Termcap' => '2.03', 'SDBM_File' => '1.06', 'Shell' => '0.7', 'Sys::Syslog' => '0.17', 'Term::ANSIColor' => '1.11', 'Test::Builder' => '0.33', 'Test::Builder::Tester' => '1.04', 'Test::Harness' => '2.62', 'Test::Harness::Util' => '0.01', 'Test::More' => '0.64', 'Test::Simple' => '0.64', 'Text::Balanced' => '1.98_01', 'Text::ParseWords' => '3.25', 'Text::Tabs' => '2007.071101', 'Text::Wrap' => '2006.0711', 'Tie::RefHash' => '1.34_01', 'Time::HiRes' => '1.87', 'Time::Local' => '1.13', 'Time::gmtime' => '1.03', 'UNIVERSAL' => '1.04', 'Unicode::Normalize' => '1.01', 'Win32API::File' => '0.1001', 'Win32API::File::ExtUtils::Myconst2perl'=> '1', 'assertions' => '0.03', 'assertions::compat' => '0.02', 'autouse' => '1.06', 'diagnostics' => '1.16', 'encoding' => '2.04', 'encoding::warnings' => '0.10', 'feature' => '1.01', 're' => '0.0601', 'threads' => '1.38', 'threads::shared' => '0.94_01', 'version' => '0.67', }, removed => { 'Compress::Zlib::Common'=> 1, 'Compress::Zlib::Compress::Gzip::Constants'=> 1, 'Compress::Zlib::Compress::Zip::Constants'=> 1, 'Compress::Zlib::CompressPlugin::Deflate'=> 1, 'Compress::Zlib::CompressPlugin::Identity'=> 1, 'Compress::Zlib::File::GlobMapper'=> 1, 'Compress::Zlib::FileConstants'=> 1, 'Compress::Zlib::IO::Compress::Base'=> 1, 'Compress::Zlib::IO::Compress::Deflate'=> 1, 'Compress::Zlib::IO::Compress::Gzip'=> 1, 'Compress::Zlib::IO::Compress::RawDeflate'=> 1, 'Compress::Zlib::IO::Compress::Zip'=> 1, 'Compress::Zlib::IO::Uncompress::AnyInflate'=> 1, 'Compress::Zlib::IO::Uncompress::AnyUncompress'=> 1, 'Compress::Zlib::IO::Uncompress::Base'=> 1, 'Compress::Zlib::IO::Uncompress::Gunzip'=> 1, 'Compress::Zlib::IO::Uncompress::Inflate'=> 1, 'Compress::Zlib::IO::Uncompress::RawInflate'=> 1, 'Compress::Zlib::IO::Uncompress::Unzip'=> 1, 'Compress::Zlib::ParseParameters'=> 1, 'Compress::Zlib::UncompressPlugin::Identity'=> 1, 'Compress::Zlib::UncompressPlugin::Inflate'=> 1, } }, 5.009005 => { delta_from => 5.009004, changed => { 'Archive::Extract' => '0.22_01', 'Archive::Tar' => '1.32', 'Attribute::Handlers' => '0.78_06', 'AutoLoader' => '5.63', 'AutoSplit' => '1.05', 'B' => '1.16', 'B::Concise' => '0.72', 'B::Debug' => '1.05', 'B::Deparse' => '0.82', 'B::Lint' => '1.09', 'B::Terse' => '1.05', 'Benchmark' => '1.1', 'CGI' => '3.29', 'CGI::Cookie' => '1.28', 'CGI::Util' => '1.5_01', 'CPAN' => '1.9102', 'CPAN::Debug' => '5.400955', 'CPAN::FirstTime' => '5.401669', 'CPAN::HandleConfig' => '5.401744', 'CPAN::Kwalify' => '5.401418', 'CPAN::Nox' => '5.400844', 'CPAN::Queue' => '5.401704', 'CPAN::Tarzip' => '5.401717', 'CPAN::Version' => '5.401387', 'CPANPLUS' => '0.81_01', 'CPANPLUS::Backend' => undef, 'CPANPLUS::Backend::RV' => undef, 'CPANPLUS::Config' => undef, 'CPANPLUS::Configure' => undef, 'CPANPLUS::Configure::Setup'=> undef, 'CPANPLUS::Dist' => undef, 'CPANPLUS::Dist::Base' => '0.01', 'CPANPLUS::Dist::Build' => '0.06_01', 'CPANPLUS::Dist::Build::Constants'=> '0.01', 'CPANPLUS::Dist::MM' => undef, 'CPANPLUS::Dist::Sample'=> undef, 'CPANPLUS::Error' => undef, 'CPANPLUS::Internals' => '0.81_01', 'CPANPLUS::Internals::Constants'=> '0.01', 'CPANPLUS::Internals::Constants::Report'=> '0.01', 'CPANPLUS::Internals::Extract'=> undef, 'CPANPLUS::Internals::Fetch'=> undef, 'CPANPLUS::Internals::Report'=> undef, 'CPANPLUS::Internals::Search'=> undef, 'CPANPLUS::Internals::Source'=> undef, 'CPANPLUS::Internals::Utils'=> undef, 'CPANPLUS::Internals::Utils::Autoflush'=> undef, 'CPANPLUS::Module' => undef, 'CPANPLUS::Module::Author'=> undef, 'CPANPLUS::Module::Author::Fake'=> undef, 'CPANPLUS::Module::Checksums'=> undef, 'CPANPLUS::Module::Fake'=> undef, 'CPANPLUS::Module::Signature'=> undef, 'CPANPLUS::Selfupdate' => undef, 'CPANPLUS::Shell' => undef, 'CPANPLUS::Shell::Classic'=> '0.0562', 'CPANPLUS::Shell::Default'=> '0.81_01', 'CPANPLUS::Shell::Default::Plugins::Remote'=> undef, 'CPANPLUS::Shell::Default::Plugins::Source'=> undef, 'CPANPLUS::inc' => undef, 'Carp' => '1.07', 'Carp::Heavy' => '1.07', 'Compress::Raw::Zlib' => '2.005', 'Compress::Zlib' => '2.005', 'Cwd' => '3.25', 'DBM_Filter' => '0.02', 'DB_File' => '1.815', 'Data::Dumper' => '2.121_13', 'Devel::InnerPackage' => '0.3', 'Devel::PPPort' => '3.11_01', 'Digest::MD5' => '2.36_01', 'Digest::SHA' => '5.44', 'DynaLoader' => '1.08', 'Encode' => '2.23', 'Encode::Alias' => '2.07', 'Encode::Byte' => '2.03', 'Encode::Config' => '2.04', 'Encode::Encoding' => '2.05', 'Encode::GSM0338' => '2.00', 'Encode::JP::JIS7' => '2.03', 'Encode::MIME::Header' => '2.05', 'Encode::MIME::Name' => '1.01', 'Encode::Unicode' => '2.05', 'Errno' => '1.10', 'Exporter' => '5.60', 'Exporter::Heavy' => '5.60', 'ExtUtils::CBuilder' => '0.19', 'ExtUtils::CBuilder::Platform::Windows'=> '0.13', 'ExtUtils::Command' => '1.13', 'ExtUtils::Command::MM' => '0.07', 'ExtUtils::Constant::Base'=> '0.04', 'ExtUtils::Install' => '1.41_01', 'ExtUtils::Liblist' => '1.03', 'ExtUtils::Liblist::Kid'=> '1.33', 'ExtUtils::MM' => '0.07', 'ExtUtils::MM_AIX' => '0.05', 'ExtUtils::MM_Any' => '0.15', 'ExtUtils::MM_BeOS' => '1.07', 'ExtUtils::MM_Cygwin' => '1.1', 'ExtUtils::MM_DOS' => '0.04', 'ExtUtils::MM_MacOS' => '1.1', 'ExtUtils::MM_NW5' => '2.1', 'ExtUtils::MM_OS2' => '1.07', 'ExtUtils::MM_QNX' => '0.04', 'ExtUtils::MM_UWIN' => '0.04', 'ExtUtils::MM_Unix' => '1.54_01', 'ExtUtils::MM_VMS' => '5.76', 'ExtUtils::MM_VOS' => '0.04', 'ExtUtils::MM_Win32' => '1.15', 'ExtUtils::MM_Win95' => '0.06', 'ExtUtils::MY' => '0.03', 'ExtUtils::MakeMaker' => '6.36', 'ExtUtils::MakeMaker::Config'=> '0.04', 'ExtUtils::MakeMaker::bytes'=> '0.03', 'ExtUtils::MakeMaker::vmsish'=> '0.03', 'ExtUtils::Manifest' => '1.51_01', 'ExtUtils::Mkbootstrap' => '1.17', 'ExtUtils::Mksymlists' => '1.21', 'ExtUtils::ParseXS' => '2.18', 'ExtUtils::XSSymSet' => '1.1', 'ExtUtils::testlib' => '1.17', 'Fatal' => '1.05', 'Fcntl' => '1.06', 'File::Basename' => '2.76', 'File::Copy' => '2.10', 'File::Fetch' => '0.10', 'File::Glob' => '1.06', 'File::Path' => '2.01', 'File::Spec' => '3.25', 'File::Spec::Cygwin' => '1.1_01', 'File::Spec::VMS' => '1.4_01', 'File::Temp' => '0.18', 'Filter::Util::Call' => '1.0602', 'FindBin' => '1.49', 'Getopt::Long' => '2.36', 'Hash::Util::FieldHash' => '1.01', 'IO::Compress::Adapter::Deflate'=> '2.005', 'IO::Compress::Adapter::Identity'=> '2.005', 'IO::Compress::Base' => '2.005', 'IO::Compress::Base::Common'=> '2.005', 'IO::Compress::Deflate' => '2.005', 'IO::Compress::Gzip' => '2.005', 'IO::Compress::Gzip::Constants'=> '2.005', 'IO::Compress::RawDeflate'=> '2.005', 'IO::Compress::Zip' => '2.005', 'IO::Compress::Zip::Constants'=> '2.005', 'IO::Compress::Zlib::Constants'=> '2.005', 'IO::Compress::Zlib::Extra'=> '2.005', 'IO::Uncompress::Adapter::Identity'=> '2.005', 'IO::Uncompress::Adapter::Inflate'=> '2.005', 'IO::Uncompress::AnyInflate'=> '2.005', 'IO::Uncompress::AnyUncompress'=> '2.005', 'IO::Uncompress::Base' => '2.005', 'IO::Uncompress::Gunzip'=> '2.005', 'IO::Uncompress::Inflate'=> '2.005', 'IO::Uncompress::RawInflate'=> '2.005', 'IO::Uncompress::Unzip' => '2.005', 'IO::Zlib' => '1.05_01', 'IPC::Cmd' => '0.36_01', 'List::Util' => '1.19', 'Locale::Maketext::Simple'=> '0.18', 'Log::Message' => '0.01', 'Log::Message::Config' => '0.01', 'Log::Message::Handlers'=> undef, 'Log::Message::Item' => undef, 'Log::Message::Simple' => '0.0201', 'Math::BigFloat' => '1.58', 'Math::BigInt' => '1.87', 'Math::BigInt::Calc' => '0.51', 'Math::BigInt::FastCalc'=> '0.15_01', 'Math::BigRat' => '0.19', 'Math::Complex' => '1.37', 'Memoize' => '1.01_02', 'Module::Build' => '0.2808', 'Module::Build::Config' => undef, 'Module::Build::Version'=> '0.7203', 'Module::CoreList' => '2.12', 'Module::Load::Conditional'=> '0.16', 'Module::Pluggable' => '3.6', 'Module::Pluggable::Object'=> '3.6', 'NDBM_File' => '1.07', 'Net::Cmd' => '2.28', 'Net::Config' => '1.11', 'Net::Domain' => '2.20', 'Net::FTP' => '2.77', 'Net::FTP::A' => '1.18', 'Net::NNTP' => '2.24', 'Net::POP3' => '2.29', 'Net::SMTP' => '2.31', 'ODBM_File' => '1.07', 'OS2::DLL' => '1.03', 'Object::Accessor' => '0.32', 'Opcode' => '1.09', 'POSIX' => '1.13', 'Params::Check' => '0.26', 'PerlIO::encoding' => '0.10', 'PerlIO::scalar' => '0.05', 'PerlIO::via' => '0.04', 'Pod::Html' => '1.08', 'Pod::Man' => '2.12', 'Pod::ParseUtils' => '1.35', 'Pod::Parser' => '1.35', 'Pod::Select' => '1.35', 'Pod::Simple' => '3.05', 'Pod::Text' => '3.08', 'Pod::Usage' => '1.35', 'Scalar::Util' => '1.19', 'SelfLoader' => '1.11', 'Shell' => '0.72_01', 'Socket' => '1.79', 'Storable' => '2.16', 'Switch' => '2.13', 'Sys::Syslog' => '0.18_01', 'Term::ANSIColor' => '1.12', 'Term::UI' => '0.14_01', 'Term::UI::History' => undef, 'Test::Builder' => '0.70', 'Test::Builder::Module' => '0.68', 'Test::Builder::Tester' => '1.07', 'Test::Harness' => '2.64', 'Test::Harness::Results'=> '0.01', 'Test::More' => '0.70', 'Test::Simple' => '0.70', 'Text::Balanced' => '2.0.0', 'Text::Soundex' => '3.02', 'Text::Tabs' => '2007.1117', 'Text::Wrap' => '2006.1117', 'Thread' => '3.02', 'Tie::File' => '0.97_02', 'Tie::Hash::NamedCapture'=> '0.06', 'Tie::Memoize' => '1.1', 'Tie::RefHash' => '1.37', 'Time::HiRes' => '1.9707', 'Time::Local' => '1.17', 'Time::Piece' => '1.11_02', 'Time::Seconds' => undef, 'Unicode' => '5.0.0', 'Unicode::Normalize' => '1.02', 'Unicode::UCD' => '0.25', 'VMS::DCLsym' => '1.03', 'Win32' => '0.30', 'Win32API::File' => '0.1001_01', 'Win32CORE' => '0.02', 'XS::APItest' => '0.12', 'XSLoader' => '0.08', 'attributes' => '0.08', 'base' => '2.12', 'bigint' => '0.22', 'bignum' => '0.22', 'bigrat' => '0.22', 'bytes' => '1.03', 'charnames' => '1.06', 'constant' => '1.10', 'diagnostics' => '1.17', 'encoding' => '2.06', 'encoding::warnings' => '0.11', 'feature' => '1.10', 'fields' => '2.12', 'less' => '0.02', 'mro' => '1.00', 'overload' => '1.06', 're' => '0.08', 'sigtrap' => '1.04', 'sort' => '2.01', 'strict' => '1.04', 'threads' => '1.63', 'threads::shared' => '1.12', 'utf8' => '1.07', 'version' => '0.7203', 'warnings' => '1.06', }, removed => { 'B::Asmdata' => 1, 'B::Assembler' => 1, 'B::Bblock' => 1, 'B::Bytecode' => 1, 'B::C' => 1, 'B::CC' => 1, 'B::Disassembler' => 1, 'B::Stackobj' => 1, 'B::Stash' => 1, 'ByteLoader' => 1, 'Thread::Signal' => 1, 'Thread::Specific' => 1, 'assertions' => 1, 'assertions::activate' => 1, 'assertions::compat' => 1, } }, 5.01 => { delta_from => 5.009005, changed => { 'Archive::Extract' => '0.24', 'Archive::Tar' => '1.38', 'Attribute::Handlers' => '0.79', 'B' => '1.17', 'B::Concise' => '0.74', 'B::Deparse' => '0.83', 'CPAN' => '1.9205', 'CPAN::API::HOWTO' => undef, 'CPAN::Debug' => '5.402212', 'CPAN::DeferedCode' => '5.50', 'CPAN::FirstTime' => '5.402229', 'CPAN::HandleConfig' => '5.402212', 'CPAN::Nox' => '5.402411', 'CPAN::Queue' => '5.402212', 'CPAN::Tarzip' => '5.402213', 'CPAN::Version' => '5.5', 'CPANPLUS' => '0.84', 'CPANPLUS::Dist::Build' => '0.06_02', 'CPANPLUS::Internals' => '0.84', 'CPANPLUS::Shell::Default'=> '0.84', 'CPANPLUS::Shell::Default::Plugins::CustomSource'=> undef, 'Carp' => '1.08', 'Carp::Heavy' => '1.08', 'Compress::Raw::Zlib' => '2.008', 'Compress::Zlib' => '2.008', 'Cwd' => '3.2501', 'DB_File' => '1.816_1', 'Data::Dumper' => '2.121_14', 'Devel::PPPort' => '3.13', 'Digest::SHA' => '5.45', 'Exporter' => '5.62', 'Exporter::Heavy' => '5.62', 'ExtUtils::CBuilder' => '0.21', 'ExtUtils::CBuilder::Base'=> '0.21', 'ExtUtils::CBuilder::Platform::Unix'=> '0.21', 'ExtUtils::CBuilder::Platform::VMS'=> '0.22', 'ExtUtils::CBuilder::Platform::Windows'=> '0.21', 'ExtUtils::CBuilder::Platform::aix'=> '0.21', 'ExtUtils::CBuilder::Platform::cygwin'=> '0.21', 'ExtUtils::CBuilder::Platform::darwin'=> '0.21', 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.21', 'ExtUtils::CBuilder::Platform::os2'=> '0.21', 'ExtUtils::Command::MM' => '6.42', 'ExtUtils::Constant::ProxySubs'=> '0.05', 'ExtUtils::Embed' => '1.27', 'ExtUtils::Install' => '1.44', 'ExtUtils::Installed' => '1.43', 'ExtUtils::Liblist' => '6.42', 'ExtUtils::Liblist::Kid'=> '6.42', 'ExtUtils::MM' => '6.42', 'ExtUtils::MM_AIX' => '6.42', 'ExtUtils::MM_Any' => '6.42', 'ExtUtils::MM_BeOS' => '6.42', 'ExtUtils::MM_Cygwin' => '6.42', 'ExtUtils::MM_DOS' => '6.42', 'ExtUtils::MM_MacOS' => '6.42', 'ExtUtils::MM_NW5' => '6.42', 'ExtUtils::MM_OS2' => '6.42', 'ExtUtils::MM_QNX' => '6.42', 'ExtUtils::MM_UWIN' => '6.42', 'ExtUtils::MM_Unix' => '6.42', 'ExtUtils::MM_VMS' => '6.42', 'ExtUtils::MM_VOS' => '6.42', 'ExtUtils::MM_Win32' => '6.42', 'ExtUtils::MM_Win95' => '6.42', 'ExtUtils::MY' => '6.42', 'ExtUtils::MakeMaker' => '6.42', 'ExtUtils::MakeMaker::Config'=> '6.42', 'ExtUtils::MakeMaker::bytes'=> '6.42', 'ExtUtils::MakeMaker::vmsish'=> '6.42', 'ExtUtils::Mkbootstrap' => '6.42', 'ExtUtils::Mksymlists' => '6.42', 'ExtUtils::Packlist' => '1.43', 'ExtUtils::ParseXS' => '2.18_02', 'ExtUtils::testlib' => '6.42', 'File::Copy' => '2.11', 'File::Fetch' => '0.14', 'File::Find' => '1.12', 'File::Path' => '2.04', 'File::Spec' => '3.2501', 'File::Spec::Cygwin' => '3.2501', 'File::Spec::Epoc' => '3.2501', 'File::Spec::Functions' => '3.2501', 'File::Spec::Mac' => '3.2501', 'File::Spec::OS2' => '3.2501', 'File::Spec::Unix' => '3.2501', 'File::Spec::VMS' => '3.2501', 'File::Spec::Win32' => '3.2501', 'Filter::Util::Call' => '1.07', 'Getopt::Long' => '2.37', 'Hash::Util::FieldHash' => '1.03', 'IO::Compress::Adapter::Deflate'=> '2.008', 'IO::Compress::Adapter::Identity'=> '2.008', 'IO::Compress::Base' => '2.008', 'IO::Compress::Base::Common'=> '2.008', 'IO::Compress::Deflate' => '2.008', 'IO::Compress::Gzip' => '2.008', 'IO::Compress::Gzip::Constants'=> '2.008', 'IO::Compress::RawDeflate'=> '2.008', 'IO::Compress::Zip' => '2.008', 'IO::Compress::Zip::Constants'=> '2.008', 'IO::Compress::Zlib::Constants'=> '2.008', 'IO::Compress::Zlib::Extra'=> '2.008', 'IO::Uncompress::Adapter::Identity'=> '2.008', 'IO::Uncompress::Adapter::Inflate'=> '2.008', 'IO::Uncompress::AnyInflate'=> '2.008', 'IO::Uncompress::AnyUncompress'=> '2.008', 'IO::Uncompress::Base' => '2.008', 'IO::Uncompress::Gunzip'=> '2.008', 'IO::Uncompress::Inflate'=> '2.008', 'IO::Uncompress::RawInflate'=> '2.008', 'IO::Uncompress::Unzip' => '2.008', 'IO::Zlib' => '1.07', 'IPC::Cmd' => '0.40_1', 'IPC::SysV' => '1.05', 'Locale::Maketext' => '1.12', 'Log::Message::Simple' => '0.04', 'Math::BigFloat' => '1.59', 'Math::BigInt' => '1.88', 'Math::BigInt::Calc' => '0.52', 'Math::BigInt::FastCalc'=> '0.16', 'Math::BigRat' => '0.21', 'Module::Build' => '0.2808_01', 'Module::Build::Base' => '0.2808_01', 'Module::Build::Compat' => '0.2808_01', 'Module::Build::Config' => '0.2808_01', 'Module::Build::Dumper' => undef, 'Module::Build::ModuleInfo'=> '0.2808_01', 'Module::Build::Notes' => '0.2808_01', 'Module::Build::PPMMaker'=> '0.2808_01', 'Module::Build::Platform::Amiga'=> '0.2808_01', 'Module::Build::Platform::Default'=> '0.2808_01', 'Module::Build::Platform::EBCDIC'=> '0.2808_01', 'Module::Build::Platform::MPEiX'=> '0.2808_01', 'Module::Build::Platform::MacOS'=> '0.2808_01', 'Module::Build::Platform::RiscOS'=> '0.2808_01', 'Module::Build::Platform::Unix'=> '0.2808_01', 'Module::Build::Platform::VMS'=> '0.2808_01', 'Module::Build::Platform::VOS'=> '0.2808_01', 'Module::Build::Platform::Windows'=> '0.2808_01', 'Module::Build::Platform::aix'=> '0.2808_01', 'Module::Build::Platform::cygwin'=> '0.2808_01', 'Module::Build::Platform::darwin'=> '0.2808_01', 'Module::Build::Platform::os2'=> '0.2808_01', 'Module::Build::PodParser'=> '0.2808_01', 'Module::CoreList' => '2.13', 'Module::Load' => '0.12', 'Module::Load::Conditional'=> '0.22', 'Net::Cmd' => '2.29', 'Net::Ping' => '2.33', 'Opcode' => '1.11', 'Pod::Checker' => '1.43_01', 'Pod::Man' => '2.16', 'Pod::Perldoc' => '3.14_02', 'Socket' => '1.80', 'Storable' => '2.18', 'Sys::Syslog' => '0.22', 'Sys::Syslog::win32::Win32'=> undef, 'Term::Cap' => '1.12', 'Term::ReadLine' => '1.03', 'Term::UI' => '0.18', 'Test::Builder' => '0.72', 'Test::Builder::Module' => '0.72', 'Test::Builder::Tester' => '1.09', 'Test::Harness::Straps' => '0.26_01', 'Test::More' => '0.72', 'Test::Simple' => '0.72', 'Text::ParseWords' => '3.26', 'Text::Soundex' => '3.03', 'Tie::StdHandle' => undef, 'Time::HiRes' => '1.9711', 'Time::Local' => '1.18', 'Time::Piece' => '1.12', 'VMS::Filespec' => '1.12', 'Win32' => '0.34', 'base' => '2.13', 'constant' => '1.13', 'feature' => '1.11', 'fields' => '2.13', 'filetest' => '1.02', 'open' => '1.06', 'threads' => '1.67', 'threads::shared' => '1.14', 'version' => '0.74', }, removed => { } }, 5.010001 => { delta_from => 5.01, changed => { 'App::Prove' => '3.17', 'App::Prove::State' => '3.17', 'App::Prove::State::Result'=> '3.17', 'App::Prove::State::Result::Test'=> '3.17', 'Archive::Extract' => '0.34', 'Archive::Tar' => '1.52', 'Attribute::Handlers' => '0.85', 'AutoLoader' => '5.68', 'AutoSplit' => '1.06', 'B' => '1.22', 'B::Concise' => '0.76', 'B::Debug' => '1.11', 'B::Deparse' => '0.89', 'B::Lint' => '1.11', 'B::Lint::Debug' => undef, 'B::Xref' => '1.02', 'Benchmark' => '1.11', 'CGI' => '3.43', 'CGI::Carp' => '1.30_01', 'CGI::Cookie' => '1.29', 'CPAN' => '1.9402', 'CPAN::Author' => '5.5', 'CPAN::Bundle' => '5.5', 'CPAN::CacheMgr' => '5.5', 'CPAN::Complete' => '5.5', 'CPAN::Debug' => '5.5', 'CPAN::DeferredCode' => '5.50', 'CPAN::Distribution' => '1.93', 'CPAN::Distroprefs' => '6', 'CPAN::Distrostatus' => '5.5', 'CPAN::Exception::RecursiveDependency'=> '5.5', 'CPAN::Exception::blocked_urllist'=> '1.0', 'CPAN::Exception::yaml_not_installed'=> '5.5', 'CPAN::FTP' => '5.5001', 'CPAN::FTP::netrc' => '1.00', 'CPAN::FirstTime' => '5.53', 'CPAN::HandleConfig' => '5.5', 'CPAN::Index' => '1.93', 'CPAN::InfoObj' => '5.5', 'CPAN::Kwalify' => '5.50', 'CPAN::LWP::UserAgent' => '1.00', 'CPAN::Module' => '5.5', 'CPAN::Nox' => '5.50', 'CPAN::Prompt' => '5.5', 'CPAN::Queue' => '5.5', 'CPAN::Shell' => '5.5', 'CPAN::Tarzip' => '5.501', 'CPAN::URL' => '5.5', 'CPANPLUS' => '0.88', 'CPANPLUS::Dist::Autobundle'=> undef, 'CPANPLUS::Dist::Base' => undef, 'CPANPLUS::Dist::Build' => '0.36', 'CPANPLUS::Dist::Build::Constants'=> '0.36', 'CPANPLUS::Internals' => '0.88', 'CPANPLUS::Internals::Constants'=> undef, 'CPANPLUS::Internals::Constants::Report'=> undef, 'CPANPLUS::Internals::Source::Memory'=> undef, 'CPANPLUS::Internals::Source::SQLite'=> undef, 'CPANPLUS::Internals::Source::SQLite::Tie'=> undef, 'CPANPLUS::Shell::Default'=> '0.88', 'Carp' => '1.11', 'Carp::Heavy' => '1.11', 'Compress::Raw::Bzip2' => '2.020', 'Compress::Raw::Zlib' => '2.020', 'Compress::Zlib' => '2.020', 'Cwd' => '3.30', 'DB' => '1.02', 'DBM_Filter::compress' => '0.02', 'DBM_Filter::encode' => '0.02', 'DBM_Filter::int32' => '0.02', 'DBM_Filter::null' => '0.02', 'DBM_Filter::utf8' => '0.02', 'DB_File' => '1.820', 'Data::Dumper' => '2.124', 'Devel::DProf' => '20080331.00', 'Devel::PPPort' => '3.19', 'Devel::Peek' => '1.04', 'Digest' => '1.16', 'Digest::MD5' => '2.39', 'Digest::SHA' => '5.47', 'Digest::base' => '1.16', 'Digest::file' => '1.16', 'DirHandle' => '1.03', 'Dumpvalue' => '1.13', 'DynaLoader' => '1.10', 'Encode' => '2.35', 'Encode::Alias' => '2.12', 'Encode::CN::HZ' => '2.05', 'Encode::Config' => '2.05', 'Encode::GSM0338' => '2.01', 'Encode::Guess' => '2.03', 'Encode::JP::JIS7' => '2.04', 'Encode::MIME::Header' => '2.11', 'Encode::Unicode' => '2.06', 'Errno' => '1.11', 'Exporter' => '5.63', 'Exporter::Heavy' => '5.63', 'ExtUtils::CBuilder' => '0.2602', 'ExtUtils::CBuilder::Base'=> '0.2602', 'ExtUtils::CBuilder::Platform::Unix'=> '0.2602', 'ExtUtils::CBuilder::Platform::VMS'=> '0.2602', 'ExtUtils::CBuilder::Platform::Windows'=> '0.2602', 'ExtUtils::CBuilder::Platform::aix'=> '0.2602', 'ExtUtils::CBuilder::Platform::cygwin'=> '0.2602', 'ExtUtils::CBuilder::Platform::darwin'=> '0.2602', 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.2602', 'ExtUtils::CBuilder::Platform::os2'=> '0.2602', 'ExtUtils::Command' => '1.16', 'ExtUtils::Command::MM' => '6.55_02', 'ExtUtils::Constant' => '0.22', 'ExtUtils::Constant::ProxySubs'=> '0.06', 'ExtUtils::Constant::Utils'=> '0.02', 'ExtUtils::Constant::XS'=> '0.03', 'ExtUtils::Embed' => '1.28', 'ExtUtils::Install' => '1.54', 'ExtUtils::Installed' => '1.999_001', 'ExtUtils::Liblist' => '6.55_02', 'ExtUtils::Liblist::Kid'=> '6.5502', 'ExtUtils::MM' => '6.55_02', 'ExtUtils::MM_AIX' => '6.55_02', 'ExtUtils::MM_Any' => '6.55_02', 'ExtUtils::MM_BeOS' => '6.55_02', 'ExtUtils::MM_Cygwin' => '6.55_02', 'ExtUtils::MM_DOS' => '6.5502', 'ExtUtils::MM_Darwin' => '6.55_02', 'ExtUtils::MM_MacOS' => '6.5502', 'ExtUtils::MM_NW5' => '6.55_02', 'ExtUtils::MM_OS2' => '6.55_02', 'ExtUtils::MM_QNX' => '6.55_02', 'ExtUtils::MM_UWIN' => '6.5502', 'ExtUtils::MM_Unix' => '6.55_02', 'ExtUtils::MM_VMS' => '6.55_02', 'ExtUtils::MM_VOS' => '6.55_02', 'ExtUtils::MM_Win32' => '6.55_02', 'ExtUtils::MM_Win95' => '6.55_02', 'ExtUtils::MY' => '6.5502', 'ExtUtils::MakeMaker' => '6.55_02', 'ExtUtils::MakeMaker::Config'=> '6.55_02', 'ExtUtils::Manifest' => '1.56', 'ExtUtils::Mkbootstrap' => '6.55_02', 'ExtUtils::Mksymlists' => '6.55_02', 'ExtUtils::ParseXS' => '2.2002', 'ExtUtils::testlib' => '6.5502', 'Fatal' => '2.06_01', 'File::Basename' => '2.77', 'File::CheckTree' => '4.4', 'File::Compare' => '1.1006', 'File::Copy' => '2.14', 'File::DosGlob' => '1.01', 'File::Fetch' => '0.20', 'File::Find' => '1.14', 'File::GlobMapper' => '1.000', 'File::Path' => '2.07_03', 'File::Spec' => '3.30', 'File::Spec::Cygwin' => '3.30', 'File::Spec::Epoc' => '3.30', 'File::Spec::Functions' => '3.30', 'File::Spec::Mac' => '3.30', 'File::Spec::OS2' => '3.30', 'File::Spec::Unix' => '3.30', 'File::Spec::VMS' => '3.30', 'File::Spec::Win32' => '3.30', 'File::Temp' => '0.22', 'File::stat' => '1.01', 'FileCache' => '1.08', 'FileHandle' => '2.02', 'Filter::Simple' => '0.84', 'Filter::Util::Call' => '1.08', 'FindBin' => '1.50', 'GDBM_File' => '1.09', 'Getopt::Long' => '2.38', 'Getopt::Std' => '1.06', 'Hash::Util::FieldHash' => '1.04', 'I18N::Collate' => '1.01', 'IO' => '1.25', 'IO::Compress::Adapter::Bzip2'=> '2.020', 'IO::Compress::Adapter::Deflate'=> '2.020', 'IO::Compress::Adapter::Identity'=> '2.020', 'IO::Compress::Base' => '2.020', 'IO::Compress::Base::Common'=> '2.020', 'IO::Compress::Bzip2' => '2.020', 'IO::Compress::Deflate' => '2.020', 'IO::Compress::Gzip' => '2.020', 'IO::Compress::Gzip::Constants'=> '2.020', 'IO::Compress::RawDeflate'=> '2.020', 'IO::Compress::Zip' => '2.020', 'IO::Compress::Zip::Constants'=> '2.020', 'IO::Compress::Zlib::Constants'=> '2.020', 'IO::Compress::Zlib::Extra'=> '2.020', 'IO::Dir' => '1.07', 'IO::Handle' => '1.28', 'IO::Socket' => '1.31', 'IO::Uncompress::Adapter::Bunzip2'=> '2.020', 'IO::Uncompress::Adapter::Identity'=> '2.020', 'IO::Uncompress::Adapter::Inflate'=> '2.020', 'IO::Uncompress::AnyInflate'=> '2.020', 'IO::Uncompress::AnyUncompress'=> '2.020', 'IO::Uncompress::Base' => '2.020', 'IO::Uncompress::Bunzip2'=> '2.020', 'IO::Uncompress::Gunzip'=> '2.020', 'IO::Uncompress::Inflate'=> '2.020', 'IO::Uncompress::RawInflate'=> '2.020', 'IO::Uncompress::Unzip' => '2.020', 'IO::Zlib' => '1.09', 'IPC::Cmd' => '0.46', 'IPC::Msg' => '2.01', 'IPC::Open2' => '1.03', 'IPC::Open3' => '1.04', 'IPC::Semaphore' => '2.01', 'IPC::SharedMem' => '2.01', 'IPC::SysV' => '2.01', 'List::Util' => '1.21', 'List::Util::PP' => '1.21', 'List::Util::XS' => '1.21', 'Locale::Maketext' => '1.13', 'Locale::Maketext::Guts'=> '1.13', 'Locale::Maketext::GutsLoader'=> '1.13', 'Log::Message' => '0.02', 'MIME::Base64' => '3.08', 'MIME::QuotedPrint' => '3.08', 'Math::BigFloat' => '1.60', 'Math::BigInt' => '1.89', 'Math::BigInt::FastCalc'=> '0.19', 'Math::BigRat' => '0.22', 'Math::Complex' => '1.56', 'Math::Trig' => '1.2', 'Memoize' => '1.01_03', 'Module::Build' => '0.340201', 'Module::Build::Base' => '0.340201', 'Module::Build::Compat' => '0.340201', 'Module::Build::Config' => '0.340201', 'Module::Build::Cookbook'=> '0.340201', 'Module::Build::Dumper' => '0.340201', 'Module::Build::ModuleInfo'=> '0.340201', 'Module::Build::Notes' => '0.340201', 'Module::Build::PPMMaker'=> '0.340201', 'Module::Build::Platform::Amiga'=> '0.340201', 'Module::Build::Platform::Default'=> '0.340201', 'Module::Build::Platform::EBCDIC'=> '0.340201', 'Module::Build::Platform::MPEiX'=> '0.340201', 'Module::Build::Platform::MacOS'=> '0.340201', 'Module::Build::Platform::RiscOS'=> '0.340201', 'Module::Build::Platform::Unix'=> '0.340201', 'Module::Build::Platform::VMS'=> '0.340201', 'Module::Build::Platform::VOS'=> '0.340201', 'Module::Build::Platform::Windows'=> '0.340201', 'Module::Build::Platform::aix'=> '0.340201', 'Module::Build::Platform::cygwin'=> '0.340201', 'Module::Build::Platform::darwin'=> '0.340201', 'Module::Build::Platform::os2'=> '0.340201', 'Module::Build::PodParser'=> '0.340201', 'Module::Build::Version'=> '0.77', 'Module::CoreList' => '2.18', 'Module::Load' => '0.16', 'Module::Load::Conditional'=> '0.30', 'Module::Loaded' => '0.02', 'Module::Pluggable' => '3.9', 'Module::Pluggable::Object'=> '3.9', 'NDBM_File' => '1.08', 'NEXT' => '0.64', 'Net::Ping' => '2.36', 'O' => '1.01', 'OS2::Process' => '1.03', 'OS2::REXX' => '1.04', 'Object::Accessor' => '0.34', 'POSIX' => '1.17', 'Package::Constants' => '0.02', 'Parse::CPAN::Meta' => '1.39', 'PerlIO' => '1.06', 'PerlIO::encoding' => '0.11', 'PerlIO::scalar' => '0.07', 'PerlIO::via' => '0.07', 'Pod::Checker' => '1.45', 'Pod::Find' => '1.35', 'Pod::Html' => '1.09', 'Pod::InputObjects' => '1.31', 'Pod::Man' => '2.22', 'Pod::ParseLink' => '1.09', 'Pod::ParseUtils' => '1.36', 'Pod::Parser' => '1.37', 'Pod::Perldoc' => '3.14_04', 'Pod::PlainText' => '2.04', 'Pod::Select' => '1.36', 'Pod::Simple' => '3.07', 'Pod::Simple::XHTML' => '3.04', 'Pod::Text' => '3.13', 'Pod::Text::Color' => '2.05', 'Pod::Text::Overstrike' => '2.03', 'Pod::Text::Termcap' => '2.05', 'Pod::Usage' => '1.36', 'Safe' => '2.18', 'Scalar::Util' => '1.21', 'Scalar::Util::PP' => '1.21', 'SelectSaver' => '1.02', 'SelfLoader' => '1.17', 'Socket' => '1.82', 'Storable' => '2.20', 'Switch' => '2.14', 'Symbol' => '1.07', 'Sys::Syslog' => '0.27', 'TAP::Base' => '3.17', 'TAP::Formatter::Base' => '3.17', 'TAP::Formatter::Color' => '3.17', 'TAP::Formatter::Console'=> '3.17', 'TAP::Formatter::Console::ParallelSession'=> '3.17', 'TAP::Formatter::Console::Session'=> '3.17', 'TAP::Formatter::File' => '3.17', 'TAP::Formatter::File::Session'=> '3.17', 'TAP::Formatter::Session'=> '3.17', 'TAP::Harness' => '3.17', 'TAP::Object' => '3.17', 'TAP::Parser' => '3.17', 'TAP::Parser::Aggregator'=> '3.17', 'TAP::Parser::Grammar' => '3.17', 'TAP::Parser::Iterator' => '3.17', 'TAP::Parser::Iterator::Array'=> '3.17', 'TAP::Parser::Iterator::Process'=> '3.17', 'TAP::Parser::Iterator::Stream'=> '3.17', 'TAP::Parser::IteratorFactory'=> '3.17', 'TAP::Parser::Multiplexer'=> '3.17', 'TAP::Parser::Result' => '3.17', 'TAP::Parser::Result::Bailout'=> '3.17', 'TAP::Parser::Result::Comment'=> '3.17', 'TAP::Parser::Result::Plan'=> '3.17', 'TAP::Parser::Result::Pragma'=> '3.17', 'TAP::Parser::Result::Test'=> '3.17', 'TAP::Parser::Result::Unknown'=> '3.17', 'TAP::Parser::Result::Version'=> '3.17', 'TAP::Parser::Result::YAML'=> '3.17', 'TAP::Parser::ResultFactory'=> '3.17', 'TAP::Parser::Scheduler'=> '3.17', 'TAP::Parser::Scheduler::Job'=> '3.17', 'TAP::Parser::Scheduler::Spinner'=> '3.17', 'TAP::Parser::Source' => '3.17', 'TAP::Parser::Source::Perl'=> '3.17', 'TAP::Parser::Utils' => '3.17', 'TAP::Parser::YAMLish::Reader'=> '3.17', 'TAP::Parser::YAMLish::Writer'=> '3.17', 'Term::ANSIColor' => '2.00', 'Term::ReadLine' => '1.04', 'Term::UI' => '0.20', 'Test' => '1.25_02', 'Test::Builder' => '0.92', 'Test::Builder::Module' => '0.92', 'Test::Builder::Tester' => '1.18', 'Test::Builder::Tester::Color'=> '1.18', 'Test::Harness' => '3.17', 'Test::More' => '0.92', 'Test::Simple' => '0.92', 'Text::ParseWords' => '3.27', 'Text::Tabs' => '2009.0305', 'Text::Wrap' => '2009.0305', 'Thread::Queue' => '2.11', 'Thread::Semaphore' => '2.09', 'Tie::Handle' => '4.2', 'Tie::Hash' => '1.03', 'Tie::RefHash' => '1.38', 'Tie::Scalar' => '1.01', 'Tie::StdHandle' => '4.2', 'Time::HiRes' => '1.9719', 'Time::Local' => '1.1901', 'Time::Piece' => '1.15', 'UNIVERSAL' => '1.05', 'Unicode' => '5.1.0', 'Unicode::Normalize' => '1.03', 'Unicode::UCD' => '0.27', 'VMS::Stdio' => '2.4', 'Win32' => '0.39', 'Win32API::File' => '0.1101', 'XS::APItest' => '0.15', 'XS::Typemap' => '0.03', 'XSLoader' => '0.10', 'attributes' => '0.09', 'attrs' => '1.03', 'autodie' => '2.06_01', 'autodie::exception' => '2.06_01', 'autodie::exception::system'=> '2.06_01', 'autodie::hints' => '2.06_01', 'base' => '2.14', 'bigint' => '0.23', 'bignum' => '0.23', 'bigrat' => '0.23', 'blib' => '1.04', 'charnames' => '1.07', 'constant' => '1.17', 'encoding' => '2.6_01', 'feature' => '1.13', 'fields' => '2.14', 'lib' => '0.62', 'mro' => '1.01', 'open' => '1.07', 'ops' => '1.02', 'overload' => '1.07', 'overload::numbers' => undef, 'overloading' => '0.01', 'parent' => '0.221', 're' => '0.09', 'threads' => '1.72', 'threads::shared' => '1.29', 'version' => '0.77', }, removed => { 'CPAN::API::HOWTO' => 1, 'CPAN::DeferedCode' => 1, 'CPANPLUS::inc' => 1, 'ExtUtils::MakeMaker::bytes'=> 1, 'ExtUtils::MakeMaker::vmsish'=> 1, 'Test::Harness::Assert' => 1, 'Test::Harness::Iterator'=> 1, 'Test::Harness::Point' => 1, 'Test::Harness::Results'=> 1, 'Test::Harness::Straps' => 1, 'Test::Harness::Util' => 1, } }, 5.011 => { delta_from => 5.010001, changed => { 'Archive::Tar' => '1.54', 'Attribute::Handlers' => '0.87', 'AutoLoader' => '5.70', 'B::Deparse' => '0.91', 'B::Lint' => '1.11_01', 'B::Lint::Debug' => '0.01', 'CGI' => '3.45', 'CGI::Apache' => '1.01', 'CGI::Carp' => '3.45', 'CGI::Pretty' => '3.44', 'CGI::Switch' => '1.01', 'CGI::Util' => '3.45', 'CPAN' => '1.94_51', 'CPAN::Distribution' => '1.94', 'CPAN::FTP' => '5.5002', 'CPAN::Index' => '1.94', 'CPAN::LWP::UserAgent' => '1.94', 'CPANPLUS::Dist::Build' => '0.40', 'CPANPLUS::Dist::Build::Constants'=> '0.40', 'Carp' => '1.12', 'Carp::Heavy' => '1.12', 'Class::ISA' => '0.36', 'Compress::Raw::Bzip2' => '2.021', 'Compress::Raw::Zlib' => '2.021', 'Compress::Zlib' => '2.021', 'Cwd' => '3.3002', 'Data::Dumper' => '2.125', 'Encode' => '2.37', 'Exporter' => '5.64', 'Exporter::Heavy' => '5.64', 'ExtUtils::ParseXS' => '2.200403', 'File::Basename' => '2.78', 'File::Copy' => '2.16', 'File::stat' => '1.02', 'IO' => '1.25_01', 'IO::Compress::Adapter::Bzip2'=> '2.021', 'IO::Compress::Adapter::Deflate'=> '2.021', 'IO::Compress::Adapter::Identity'=> '2.021', 'IO::Compress::Base' => '2.021', 'IO::Compress::Base::Common'=> '2.021', 'IO::Compress::Bzip2' => '2.021', 'IO::Compress::Deflate' => '2.021', 'IO::Compress::Gzip' => '2.021', 'IO::Compress::Gzip::Constants'=> '2.021', 'IO::Compress::RawDeflate'=> '2.021', 'IO::Compress::Zip' => '2.021', 'IO::Compress::Zip::Constants'=> '2.021', 'IO::Compress::Zlib::Constants'=> '2.021', 'IO::Compress::Zlib::Extra'=> '2.021', 'IO::Uncompress::Adapter::Bunzip2'=> '2.021', 'IO::Uncompress::Adapter::Identity'=> '2.021', 'IO::Uncompress::Adapter::Inflate'=> '2.021', 'IO::Uncompress::AnyInflate'=> '2.021', 'IO::Uncompress::AnyUncompress'=> '2.021', 'IO::Uncompress::Base' => '2.021', 'IO::Uncompress::Bunzip2'=> '2.021', 'IO::Uncompress::Gunzip'=> '2.021', 'IO::Uncompress::Inflate'=> '2.021', 'IO::Uncompress::RawInflate'=> '2.021', 'IO::Uncompress::Unzip' => '2.021', 'IO::Zlib' => '1.10', 'IPC::Cmd' => '0.50', 'IPC::Open3' => '1.05', 'Locale::Maketext::Simple'=> '0.21', 'Log::Message::Simple' => '0.06', 'Math::BigInt' => '1.89_01', 'Math::BigRat' => '0.24', 'Module::Build' => '0.35', 'Module::Build::Base' => '0.35', 'Module::Build::Compat' => '0.35', 'Module::Build::Config' => '0.35', 'Module::Build::Cookbook'=> '0.35', 'Module::Build::Dumper' => '0.35', 'Module::Build::ModuleInfo'=> '0.35', 'Module::Build::Notes' => '0.35', 'Module::Build::PPMMaker'=> '0.35', 'Module::Build::Platform::Amiga'=> '0.35', 'Module::Build::Platform::Default'=> '0.35', 'Module::Build::Platform::EBCDIC'=> '0.35', 'Module::Build::Platform::MPEiX'=> '0.35', 'Module::Build::Platform::MacOS'=> '0.35', 'Module::Build::Platform::RiscOS'=> '0.35', 'Module::Build::Platform::Unix'=> '0.35', 'Module::Build::Platform::VMS'=> '0.35', 'Module::Build::Platform::VOS'=> '0.35', 'Module::Build::Platform::Windows'=> '0.35', 'Module::Build::Platform::aix'=> '0.35', 'Module::Build::Platform::cygwin'=> '0.35', 'Module::Build::Platform::darwin'=> '0.35', 'Module::Build::Platform::os2'=> '0.35', 'Module::Build::PodParser'=> '0.35', 'Module::CoreList' => '2.19', 'Module::Loaded' => '0.06', 'Opcode' => '1.13', 'PerlIO::via' => '0.08', 'Pod::Perldoc' => '3.15_01', 'Pod::Plainer' => '1.01', 'Safe' => '2.19', 'Socket' => '1.84', 'Switch' => '2.14_01', 'Term::ANSIColor' => '2.02', 'Term::ReadLine' => '1.05', 'Text::Balanced' => '2.02', 'Text::Soundex' => '3.03_01', 'Time::Local' => '1.1901_01', 'Unicode::Collate' => '0.52_01', 'attributes' => '0.12', 'constant' => '1.19', 'deprecate' => '0.01', 'overload' => '1.08', 'parent' => '0.223', 're' => '0.10', 'threads' => '1.74', 'threads::shared' => '1.31', 'warnings' => '1.07', }, removed => { 'attrs' => 1, } }, 5.011001 => { delta_from => 5.011, changed => { 'B' => '1.23', 'B::Concise' => '0.77', 'B::Deparse' => '0.92', 'CGI' => '3.48', 'CGI::Pretty' => '3.46', 'CGI::Util' => '3.48', 'CPANPLUS' => '0.89_03', 'CPANPLUS::Internals' => '0.89_03', 'CPANPLUS::Shell::Default'=> '0.89_03', 'Carp' => '1.13', 'Carp::Heavy' => '1.13', 'ExtUtils::CBuilder' => '0.260301', 'ExtUtils::CBuilder::Base'=> '0.260301', 'ExtUtils::CBuilder::Platform::Unix'=> '0.260301', 'ExtUtils::CBuilder::Platform::VMS'=> '0.260301', 'ExtUtils::CBuilder::Platform::Windows'=> '0.260301', 'ExtUtils::CBuilder::Platform::aix'=> '0.260301', 'ExtUtils::CBuilder::Platform::cygwin'=> '0.260301', 'ExtUtils::CBuilder::Platform::darwin'=> '0.260301', 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.260301', 'ExtUtils::CBuilder::Platform::os2'=> '0.260301', 'ExtUtils::Install' => '1.55', 'ExtUtils::Manifest' => '1.57', 'ExtUtils::Packlist' => '1.44', 'ExtUtils::ParseXS' => '2.21', 'File::Glob' => '1.07', 'File::Path' => '2.08', 'IO' => '1.25_02', 'Module::CoreList' => '2.21', 'OS2::DLL' => '1.04', 'OS2::Process' => '1.04', 'Object::Accessor' => '0.36', 'Opcode' => '1.15', 'POSIX' => '1.18', 'Parse::CPAN::Meta' => '1.40', 'PerlIO::via' => '0.09', 'Pod::Simple' => '3.08', 'Socket' => '1.85', 'Storable' => '2.22', 'Switch' => '2.15', 'Test::Builder' => '0.94', 'Test::Builder::Module' => '0.94', 'Test::More' => '0.94', 'Test::Simple' => '0.94', 'XS::APItest' => '0.16', 'mro' => '1.02', 'overload' => '1.09', 'threads::shared' => '1.32', }, removed => { } }, 5.011002 => { delta_from => 5.011001, changed => { 'B::Concise' => '0.78', 'B::Deparse' => '0.93', 'CPANPLUS' => '0.89_09', 'CPANPLUS::Dist::Build' => '0.44', 'CPANPLUS::Dist::Build::Constants'=> '0.44', 'CPANPLUS::Internals' => '0.89_09', 'CPANPLUS::Shell::Default'=> '0.89_09', 'Carp' => '1.14', 'Carp::Heavy' => '1.14', 'Compress::Zlib' => '2.022', 'DBM_Filter' => '0.03', 'Encode' => '2.38', 'Encode::Byte' => '2.04', 'Encode::CN' => '2.03', 'Encode::JP' => '2.04', 'Encode::KR' => '2.03', 'Encode::TW' => '2.03', 'Encode::Unicode' => '2.07', 'Env' => '1.01', 'Exporter' => '5.64_01', 'Exporter::Heavy' => '5.64_01', 'ExtUtils::CBuilder' => '0.27', 'ExtUtils::CBuilder::Base'=> '0.27', 'ExtUtils::CBuilder::Platform::Unix'=> '0.27', 'ExtUtils::CBuilder::Platform::VMS'=> '0.27', 'ExtUtils::CBuilder::Platform::Windows'=> '0.27', 'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.27', 'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.27', 'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.27', 'ExtUtils::CBuilder::Platform::aix'=> '0.27', 'ExtUtils::CBuilder::Platform::cygwin'=> '0.27', 'ExtUtils::CBuilder::Platform::darwin'=> '0.27', 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.27', 'ExtUtils::CBuilder::Platform::os2'=> '0.27', 'File::Fetch' => '0.22', 'I18N::LangTags::Detect'=> '1.04', 'I18N::Langinfo' => '0.03', 'IO::Compress::Adapter::Bzip2'=> '2.022', 'IO::Compress::Adapter::Deflate'=> '2.022', 'IO::Compress::Adapter::Identity'=> '2.022', 'IO::Compress::Base' => '2.022', 'IO::Compress::Base::Common'=> '2.022', 'IO::Compress::Bzip2' => '2.022', 'IO::Compress::Deflate' => '2.022', 'IO::Compress::Gzip' => '2.022', 'IO::Compress::Gzip::Constants'=> '2.022', 'IO::Compress::RawDeflate'=> '2.022', 'IO::Compress::Zip' => '2.022', 'IO::Compress::Zip::Constants'=> '2.022', 'IO::Compress::Zlib::Constants'=> '2.022', 'IO::Compress::Zlib::Extra'=> '2.022', 'IO::Uncompress::Adapter::Bunzip2'=> '2.022', 'IO::Uncompress::Adapter::Identity'=> '2.022', 'IO::Uncompress::Adapter::Inflate'=> '2.022', 'IO::Uncompress::AnyInflate'=> '2.022', 'IO::Uncompress::AnyUncompress'=> '2.022', 'IO::Uncompress::Base' => '2.022', 'IO::Uncompress::Bunzip2'=> '2.022', 'IO::Uncompress::Gunzip'=> '2.022', 'IO::Uncompress::Inflate'=> '2.022', 'IO::Uncompress::RawInflate'=> '2.022', 'IO::Uncompress::Unzip' => '2.022', 'IPC::Cmd' => '0.54', 'List::Util' => '1.22', 'List::Util::PP' => '1.22', 'List::Util::XS' => '1.22', 'Locale::Maketext' => '1.14', 'Module::Build' => '0.35_09', 'Module::Build::Base' => '0.35_09', 'Module::Build::Compat' => '0.35_09', 'Module::Build::Config' => '0.35_09', 'Module::Build::Cookbook'=> '0.35_09', 'Module::Build::Dumper' => '0.35_09', 'Module::Build::ModuleInfo'=> '0.35_09', 'Module::Build::Notes' => '0.35_09', 'Module::Build::PPMMaker'=> '0.35_09', 'Module::Build::Platform::Amiga'=> '0.35_09', 'Module::Build::Platform::Default'=> '0.35_09', 'Module::Build::Platform::EBCDIC'=> '0.35_09', 'Module::Build::Platform::MPEiX'=> '0.35_09', 'Module::Build::Platform::MacOS'=> '0.35_09', 'Module::Build::Platform::RiscOS'=> '0.35_09', 'Module::Build::Platform::Unix'=> '0.35_09', 'Module::Build::Platform::VMS'=> '0.35_09', 'Module::Build::Platform::VOS'=> '0.35_09', 'Module::Build::Platform::Windows'=> '0.35_09', 'Module::Build::Platform::aix'=> '0.35_09', 'Module::Build::Platform::cygwin'=> '0.35_09', 'Module::Build::Platform::darwin'=> '0.35_09', 'Module::Build::Platform::os2'=> '0.35_09', 'Module::Build::PodParser'=> '0.35_09', 'Module::Build::YAML' => '1.40', 'Module::CoreList' => '2.23', 'Module::Load::Conditional'=> '0.34', 'Pod::Simple' => '3.10', 'Pod::Simple::XHTML' => '3.10', 'Scalar::Util' => '1.22', 'Scalar::Util::PP' => '1.22', 'Switch' => '2.16', 'XS::APItest' => '0.17', 'XS::APItest::KeywordRPN'=> '0.003', 'base' => '2.15', 'diagnostics' => '1.18', 'fields' => '2.15', 'inc::latest' => '0.35_09', 'legacy' => '1.00', 'overload' => '1.10', }, removed => { } }, 5.011003 => { delta_from => 5.011002, changed => { 'App::Cpan' => '1.570001', 'Archive::Extract' => '0.36', 'CPAN' => '1.94_5301', 'CPAN::FTP' => '5.5004', 'CPAN::FirstTime' => '5.530001', 'CPAN::Mirrors' => '1.770001', 'CPANPLUS' => '0.90', 'CPANPLUS::Internals' => '0.90', 'CPANPLUS::Shell::Default'=> '0.90', 'Cwd' => '3.31', 'Encode' => '2.39', 'ExtUtils::Command::MM' => '6.56', 'ExtUtils::Liblist' => '6.56', 'ExtUtils::Liblist::Kid'=> '6.56', 'ExtUtils::MM' => '6.56', 'ExtUtils::MM_AIX' => '6.56', 'ExtUtils::MM_Any' => '6.56', 'ExtUtils::MM_BeOS' => '6.56', 'ExtUtils::MM_Cygwin' => '6.56', 'ExtUtils::MM_DOS' => '6.56', 'ExtUtils::MM_Darwin' => '6.56', 'ExtUtils::MM_MacOS' => '6.56', 'ExtUtils::MM_NW5' => '6.56', 'ExtUtils::MM_OS2' => '6.56', 'ExtUtils::MM_QNX' => '6.56', 'ExtUtils::MM_UWIN' => '6.56', 'ExtUtils::MM_Unix' => '6.56', 'ExtUtils::MM_VMS' => '6.56', 'ExtUtils::MM_VOS' => '6.56', 'ExtUtils::MM_Win32' => '6.56', 'ExtUtils::MM_Win95' => '6.56', 'ExtUtils::MY' => '6.56', 'ExtUtils::MakeMaker' => '6.56', 'ExtUtils::MakeMaker::Config'=> '6.56', 'ExtUtils::Mkbootstrap' => '6.56', 'ExtUtils::Mksymlists' => '6.56', 'ExtUtils::testlib' => '6.56', 'File::Find' => '1.15', 'File::Path' => '2.08_01', 'File::Spec' => '3.31', 'Module::Build' => '0.36', 'Module::Build::Base' => '0.36', 'Module::Build::Compat' => '0.36', 'Module::Build::Config' => '0.36', 'Module::Build::Cookbook'=> '0.36', 'Module::Build::Dumper' => '0.36', 'Module::Build::ModuleInfo'=> '0.36', 'Module::Build::Notes' => '0.36', 'Module::Build::PPMMaker'=> '0.36', 'Module::Build::Platform::Amiga'=> '0.36', 'Module::Build::Platform::Default'=> '0.36', 'Module::Build::Platform::EBCDIC'=> '0.36', 'Module::Build::Platform::MPEiX'=> '0.36', 'Module::Build::Platform::MacOS'=> '0.36', 'Module::Build::Platform::RiscOS'=> '0.36', 'Module::Build::Platform::Unix'=> '0.36', 'Module::Build::Platform::VMS'=> '0.36', 'Module::Build::Platform::VOS'=> '0.36', 'Module::Build::Platform::Windows'=> '0.36', 'Module::Build::Platform::aix'=> '0.36', 'Module::Build::Platform::cygwin'=> '0.36', 'Module::Build::Platform::darwin'=> '0.36', 'Module::Build::Platform::os2'=> '0.36', 'Module::Build::PodParser'=> '0.36', 'Module::CoreList' => '2.24', 'POSIX' => '1.19', 'Pod::Simple' => '3.13', 'Pod::Simple::BlackBox' => '3.13', 'Pod::Simple::Checker' => '3.13', 'Pod::Simple::Debug' => '3.13', 'Pod::Simple::DumpAsText'=> '3.13', 'Pod::Simple::DumpAsXML'=> '3.13', 'Pod::Simple::HTML' => '3.13', 'Pod::Simple::HTMLBatch'=> '3.13', 'Pod::Simple::LinkSection'=> '3.13', 'Pod::Simple::Methody' => '3.13', 'Pod::Simple::Progress' => '3.13', 'Pod::Simple::PullParser'=> '3.13', 'Pod::Simple::PullParserEndToken'=> '3.13', 'Pod::Simple::PullParserStartToken'=> '3.13', 'Pod::Simple::PullParserTextToken'=> '3.13', 'Pod::Simple::PullParserToken'=> '3.13', 'Pod::Simple::RTF' => '3.13', 'Pod::Simple::Search' => '3.13', 'Pod::Simple::SimpleTree'=> '3.13', 'Pod::Simple::Text' => '3.13', 'Pod::Simple::TextContent'=> '3.13', 'Pod::Simple::TiedOutFH'=> '3.13', 'Pod::Simple::Transcode'=> '3.13', 'Pod::Simple::TranscodeDumb'=> '3.13', 'Pod::Simple::TranscodeSmart'=> '3.13', 'Pod::Simple::XHTML' => '3.13', 'Pod::Simple::XMLOutStream'=> '3.13', 'Safe' => '2.20', 'Unicode' => '5.2.0', 'constant' => '1.20', 'diagnostics' => '1.19', 'feature' => '1.14', 'inc::latest' => '0.36', 'threads' => '1.75', 'warnings' => '1.08', }, removed => { 'legacy' => 1, } }, 5.011004 => { delta_from => 5.011003, changed => { 'App::Cpan' => '1.5701', 'Archive::Extract' => '0.38', 'B::Deparse' => '0.94', 'CPAN' => '1.94_54', 'CPAN::FirstTime' => '5.53', 'CPAN::Mirrors' => '1.77', 'Carp' => '1.15', 'Carp::Heavy' => '1.15', 'Compress::Raw::Bzip2' => '2.024', 'Compress::Raw::Zlib' => '2.024', 'Compress::Zlib' => '2.024', 'File::Copy' => '2.17', 'File::Fetch' => '0.24', 'GDBM_File' => '1.10', 'IO::Compress::Adapter::Bzip2'=> '2.024', 'IO::Compress::Adapter::Deflate'=> '2.024', 'IO::Compress::Adapter::Identity'=> '2.024', 'IO::Compress::Base' => '2.024', 'IO::Compress::Base::Common'=> '2.024', 'IO::Compress::Bzip2' => '2.024', 'IO::Compress::Deflate' => '2.024', 'IO::Compress::Gzip' => '2.024', 'IO::Compress::Gzip::Constants'=> '2.024', 'IO::Compress::RawDeflate'=> '2.024', 'IO::Compress::Zip' => '2.024', 'IO::Compress::Zip::Constants'=> '2.024', 'IO::Compress::Zlib::Constants'=> '2.024', 'IO::Compress::Zlib::Extra'=> '2.024', 'IO::Uncompress::Adapter::Bunzip2'=> '2.024', 'IO::Uncompress::Adapter::Identity'=> '2.024', 'IO::Uncompress::Adapter::Inflate'=> '2.024', 'IO::Uncompress::AnyInflate'=> '2.024', 'IO::Uncompress::AnyUncompress'=> '2.024', 'IO::Uncompress::Base' => '2.024', 'IO::Uncompress::Bunzip2'=> '2.024', 'IO::Uncompress::Gunzip'=> '2.024', 'IO::Uncompress::Inflate'=> '2.024', 'IO::Uncompress::RawInflate'=> '2.024', 'IO::Uncompress::Unzip' => '2.024', 'Module::Build' => '0.3603', 'Module::Build::Base' => '0.3603', 'Module::Build::Compat' => '0.3603', 'Module::Build::Config' => '0.3603', 'Module::Build::Cookbook'=> '0.3603', 'Module::Build::Dumper' => '0.3603', 'Module::Build::ModuleInfo'=> '0.3603', 'Module::Build::Notes' => '0.3603', 'Module::Build::PPMMaker'=> '0.3603', 'Module::Build::Platform::Amiga'=> '0.3603', 'Module::Build::Platform::Default'=> '0.3603', 'Module::Build::Platform::EBCDIC'=> '0.3603', 'Module::Build::Platform::MPEiX'=> '0.3603', 'Module::Build::Platform::MacOS'=> '0.3603', 'Module::Build::Platform::RiscOS'=> '0.3603', 'Module::Build::Platform::Unix'=> '0.3603', 'Module::Build::Platform::VMS'=> '0.3603', 'Module::Build::Platform::VOS'=> '0.3603', 'Module::Build::Platform::Windows'=> '0.3603', 'Module::Build::Platform::aix'=> '0.3603', 'Module::Build::Platform::cygwin'=> '0.3603', 'Module::Build::Platform::darwin'=> '0.3603', 'Module::Build::Platform::os2'=> '0.3603', 'Module::Build::PodParser'=> '0.3603', 'Module::CoreList' => '2.25', 'PerlIO::encoding' => '0.12', 'Safe' => '2.21', 'UNIVERSAL' => '1.06', 'feature' => '1.15', 'inc::latest' => '0.3603', 'less' => '0.03', 're' => '0.11', 'version' => '0.81', 'warnings' => '1.09', }, removed => { } }, 5.011005 => { delta_from => 5.011004, changed => { 'B::Debug' => '1.12', 'CPAN' => '1.94_56', 'CPAN::Debug' => '5.5001', 'CPAN::Distribution' => '1.9456', 'CPAN::FirstTime' => '5.5301', 'CPAN::HandleConfig' => '5.5001', 'CPAN::Shell' => '5.5001', 'CPAN::Tarzip' => '5.5011', 'CPANPLUS::Dist::Build' => '0.46', 'CPANPLUS::Dist::Build::Constants'=> '0.46', 'Module::CoreList' => '2.26', 'Pod::Man' => '2.23', 'Pod::ParseLink' => '1.10', 'Pod::Perldoc' => '3.15_02', 'Pod::Plainer' => '1.02', 'Pod::Text' => '3.14', 'Pod::Text::Color' => '2.06', 'Pod::Text::Overstrike' => '2.04', 'Pod::Text::Termcap' => '2.06', 'Safe' => '2.22', 'Socket' => '1.86', 'version' => '0.82', }, removed => { } }, 5.012 => { delta_from => 5.011005, changed => { 'B::Deparse' => '0.96', 'CPAN::Distribution' => '1.9456_01', 'Module::CoreList' => '2.29', 'Safe' => '2.25', 'Socket' => '1.87', 'Tie::Scalar' => '1.02', 'Time::Piece' => '1.15_01', 'bytes' => '1.04', 'feature' => '1.16', 'utf8' => '1.08', }, removed => { } }, 5.012001 => { delta_from => 5.012, changed => { 'B::Deparse' => '0.97', 'CGI' => '3.49', 'CGI::Fast' => '1.08', 'Carp' => '1.16', 'Carp::Heavy' => '1.16', 'File::Copy' => '2.18', 'Module::CoreList' => '2.32', 'Pod::Functions' => '1.04', 'Pod::Simple' => '3.14', 'Pod::Simple::BlackBox' => '3.14', 'Pod::Simple::Checker' => '3.14', 'Pod::Simple::Debug' => '3.14', 'Pod::Simple::DumpAsText'=> '3.14', 'Pod::Simple::DumpAsXML'=> '3.14', 'Pod::Simple::HTML' => '3.14', 'Pod::Simple::HTMLBatch'=> '3.14', 'Pod::Simple::LinkSection'=> '3.14', 'Pod::Simple::Methody' => '3.14', 'Pod::Simple::Progress' => '3.14', 'Pod::Simple::PullParser'=> '3.14', 'Pod::Simple::PullParserEndToken'=> '3.14', 'Pod::Simple::PullParserStartToken'=> '3.14', 'Pod::Simple::PullParserTextToken'=> '3.14', 'Pod::Simple::PullParserToken'=> '3.14', 'Pod::Simple::RTF' => '3.14', 'Pod::Simple::Search' => '3.14', 'Pod::Simple::SimpleTree'=> '3.14', 'Pod::Simple::Text' => '3.14', 'Pod::Simple::TextContent'=> '3.14', 'Pod::Simple::TiedOutFH'=> '3.14', 'Pod::Simple::Transcode'=> '3.14', 'Pod::Simple::TranscodeDumb'=> '3.14', 'Pod::Simple::TranscodeSmart'=> '3.14', 'Pod::Simple::XHTML' => '3.14', 'Pod::Simple::XMLOutStream'=> '3.14', 'Safe' => '2.27', }, removed => { } }, 5.012002 => { delta_from => 5.012001, changed => { 'Carp' => '1.17', 'Carp::Heavy' => '1.17', 'File::Spec' => '3.31_01', 'Module::CoreList' => '2.38', 'Module::Load::Conditional'=> '0.38', 'PerlIO::scalar' => '0.08', }, removed => { } }, 5.012003 => { delta_from => 5.012002, changed => { 'B::Deparse' => '0.9701', 'Module::Build::Platform::cygwin'=> '0.360301', 'Module::CoreList' => '2.43', 'Socket' => '1.87_01', }, removed => { } }, 5.012004 => { delta_from => 5.012003, changed => { 'Module::CoreList' => '2.50', }, removed => { } }, 5.012005 => { delta_from => 5.012004, changed => { 'B::Concise' => '0.78_01', 'Encode' => '2.39_01', 'File::Glob' => '1.07_01', 'Module::CoreList' => '2.50_02', 'Unicode::UCD' => '0.29', 'charnames' => '1.07_01', }, removed => { } }, 5.013 => { delta_from => 5.012, changed => { 'CGI' => '3.49', 'CGI::Fast' => '1.08', 'Data::Dumper' => '2.126', 'ExtUtils::MM_Unix' => '6.5601', 'ExtUtils::MakeMaker' => '6.5601', 'File::Copy' => '2.18', 'IPC::Open3' => '1.06', 'MIME::Base64' => '3.09', 'MIME::QuotedPrint' => '3.09', 'Module::CoreList' => '2.31', 'Pod::Functions' => '1.04', 'XS::APItest' => '0.18', 'XS::APItest::KeywordRPN'=> '0.004', 'feature' => '1.17', 'threads' => '1.77_01', 'threads::shared' => '1.33', }, removed => { } }, 5.013001 => { delta_from => 5.012001, changed => { 'Data::Dumper' => '2.126', 'Dumpvalue' => '1.14', 'Errno' => '1.12', 'ExtUtils::MM_Unix' => '6.5601', 'ExtUtils::MakeMaker' => '6.5601', 'ExtUtils::ParseXS' => '2.2205', 'File::Find' => '1.16', 'IPC::Cmd' => '0.58', 'IPC::Open3' => '1.06', 'List::Util' => '1.23', 'List::Util::PP' => '1.23', 'List::Util::XS' => '1.23', 'Locale::Codes' => '3.12', 'Locale::Codes::Country'=> '3.12', 'Locale::Codes::Currency'=> '3.12', 'Locale::Codes::Language'=> '3.12', 'Locale::Codes::Script' => '3.12', 'Locale::Constants' => '3.12', 'Locale::Country' => '3.12', 'Locale::Currency' => '3.12', 'Locale::Language' => '3.12', 'Locale::Script' => '3.12', 'MIME::Base64' => '3.09', 'MIME::QuotedPrint' => '3.09', 'Module::Build::Platform::cygwin'=> '0.360301', 'Module::CoreList' => '2.34', 'Module::Load::Conditional'=> '0.38', 'PerlIO::scalar' => '0.08', 'Scalar::Util' => '1.23', 'Scalar::Util::PP' => '1.23', 'Socket' => '1.88', 'Term::ReadLine' => '1.06', 'Unicode::UCD' => '0.28', 'XS::APItest' => '0.19', 'XS::APItest::KeywordRPN'=> '0.004', 'charnames' => '1.08', 'feature' => '1.17', 'threads' => '1.77_01', 'threads::shared' => '1.33', }, removed => { 'Class::ISA' => 1, 'Pod::Plainer' => 1, 'Switch' => 1, } }, 5.013002 => { delta_from => 5.013001, changed => { 'B::Concise' => '0.79', 'B::Deparse' => '0.98', 'CPAN' => '1.94_57', 'CPAN::Distribution' => '1.9600', 'Exporter' => '5.64_02', 'Exporter::Heavy' => '5.64_02', 'File::Copy' => '2.19', 'Hash::Util' => '0.08', 'IO::Socket' => '1.32', 'Locale::Codes' => '3.13', 'Locale::Codes::Country'=> '3.13', 'Locale::Codes::Currency'=> '3.13', 'Locale::Codes::Language'=> '3.13', 'Locale::Codes::Script' => '3.13', 'Locale::Constants' => '3.13', 'Locale::Country' => '3.13', 'Locale::Currency' => '3.13', 'Locale::Language' => '3.13', 'Locale::Script' => '3.13', 'Search::Dict' => '1.03', 'Socket' => '1.89', 'Thread::Semaphore' => '2.11', 'UNIVERSAL' => '1.07', 'VMS::DCLsym' => '1.04', 'mro' => '1.03', 'threads' => '1.77_02', 'threads::shared' => '1.33_01', }, removed => { } }, 5.013003 => { delta_from => 5.013002, changed => { 'App::Prove' => '3.21', 'App::Prove::State' => '3.21', 'App::Prove::State::Result'=> '3.21', 'App::Prove::State::Result::Test'=> '3.21', 'Archive::Extract' => '0.42', 'Archive::Tar' => '1.64', 'Archive::Tar::Constant'=> '1.64', 'Archive::Tar::File' => '1.64', 'Attribute::Handlers' => '0.88', 'CPANPLUS' => '0.9007', 'CPANPLUS::Internals' => '0.9007', 'CPANPLUS::Shell::Default'=> '0.9007', 'Compress::Raw::Bzip2' => '2.027', 'Compress::Raw::Zlib' => '2.027_01', 'Compress::Zlib' => '2.027', 'DB' => '1.03', 'Digest::MD5' => '2.40', 'Digest::SHA' => '5.48', 'Exporter' => '5.64_03', 'Exporter::Heavy' => '5.64_03', 'ExtUtils::CBuilder' => '0.2703', 'ExtUtils::CBuilder::Base'=> '0.2703_01', 'ExtUtils::CBuilder::Platform::Unix'=> '0.2703', 'ExtUtils::CBuilder::Platform::VMS'=> '0.2703', 'ExtUtils::CBuilder::Platform::Windows'=> '0.2703', 'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.2703', 'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.2703', 'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.2703', 'ExtUtils::CBuilder::Platform::aix'=> '0.2703', 'ExtUtils::CBuilder::Platform::cygwin'=> '0.2703', 'ExtUtils::CBuilder::Platform::darwin'=> '0.2703', 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.2703', 'ExtUtils::CBuilder::Platform::os2'=> '0.2703', 'ExtUtils::Manifest' => '1.58', 'ExtUtils::ParseXS' => '2.2206', 'Fatal' => '2.10', 'File::Basename' => '2.79', 'File::Copy' => '2.20', 'File::DosGlob' => '1.02', 'File::Find' => '1.17', 'File::Glob' => '1.08', 'File::stat' => '1.03', 'I18N::LangTags' => '0.35_01', 'I18N::LangTags::List' => '0.35_01', 'IO::Compress::Adapter::Bzip2'=> '2.027', 'IO::Compress::Adapter::Deflate'=> '2.027', 'IO::Compress::Adapter::Identity'=> '2.027', 'IO::Compress::Base' => '2.027', 'IO::Compress::Base::Common'=> '2.027', 'IO::Compress::Bzip2' => '2.027', 'IO::Compress::Deflate' => '2.027', 'IO::Compress::Gzip' => '2.027', 'IO::Compress::Gzip::Constants'=> '2.027', 'IO::Compress::RawDeflate'=> '2.027', 'IO::Compress::Zip' => '2.027', 'IO::Compress::Zip::Constants'=> '2.027', 'IO::Compress::Zlib::Constants'=> '2.027', 'IO::Compress::Zlib::Extra'=> '2.027', 'IO::Uncompress::Adapter::Bunzip2'=> '2.027', 'IO::Uncompress::Adapter::Identity'=> '2.027', 'IO::Uncompress::Adapter::Inflate'=> '2.027', 'IO::Uncompress::AnyInflate'=> '2.027', 'IO::Uncompress::AnyUncompress'=> '2.027', 'IO::Uncompress::Base' => '2.027', 'IO::Uncompress::Bunzip2'=> '2.027', 'IO::Uncompress::Gunzip'=> '2.027', 'IO::Uncompress::Inflate'=> '2.027', 'IO::Uncompress::RawInflate'=> '2.027', 'IO::Uncompress::Unzip' => '2.027', 'IPC::Cmd' => '0.60', 'IPC::Msg' => '2.03', 'IPC::Semaphore' => '2.03', 'IPC::SharedMem' => '2.03', 'IPC::SysV' => '2.03', 'Locale::Maketext' => '1.15', 'Locale::Maketext::Guts'=> undef, 'Locale::Maketext::GutsLoader'=> undef, 'Module::Build' => '0.3607', 'Module::Build::Base' => '0.3607', 'Module::Build::Compat' => '0.3607', 'Module::Build::Config' => '0.3607', 'Module::Build::Cookbook'=> '0.3607', 'Module::Build::Dumper' => '0.3607', 'Module::Build::ModuleInfo'=> '0.3607', 'Module::Build::Notes' => '0.3607', 'Module::Build::PPMMaker'=> '0.3607', 'Module::Build::Platform::Amiga'=> '0.3607', 'Module::Build::Platform::Default'=> '0.3607', 'Module::Build::Platform::EBCDIC'=> '0.3607', 'Module::Build::Platform::MPEiX'=> '0.3607', 'Module::Build::Platform::MacOS'=> '0.3607', 'Module::Build::Platform::RiscOS'=> '0.3607', 'Module::Build::Platform::Unix'=> '0.3607', 'Module::Build::Platform::VMS'=> '0.3607', 'Module::Build::Platform::VOS'=> '0.3607', 'Module::Build::Platform::Windows'=> '0.3607', 'Module::Build::Platform::aix'=> '0.3607', 'Module::Build::Platform::cygwin'=> '0.3607', 'Module::Build::Platform::darwin'=> '0.3607', 'Module::Build::Platform::os2'=> '0.3607', 'Module::Build::PodParser'=> '0.3607', 'Module::CoreList' => '2.36', 'Module::Load' => '0.18', 'TAP::Base' => '3.21', 'TAP::Formatter::Base' => '3.21', 'TAP::Formatter::Color' => '3.21', 'TAP::Formatter::Console'=> '3.21', 'TAP::Formatter::Console::ParallelSession'=> '3.21', 'TAP::Formatter::Console::Session'=> '3.21', 'TAP::Formatter::File' => '3.21', 'TAP::Formatter::File::Session'=> '3.21', 'TAP::Formatter::Session'=> '3.21', 'TAP::Harness' => '3.21', 'TAP::Object' => '3.21', 'TAP::Parser' => '3.21', 'TAP::Parser::Aggregator'=> '3.21', 'TAP::Parser::Grammar' => '3.21', 'TAP::Parser::Iterator' => '3.21', 'TAP::Parser::Iterator::Array'=> '3.21', 'TAP::Parser::Iterator::Process'=> '3.21', 'TAP::Parser::Iterator::Stream'=> '3.21', 'TAP::Parser::IteratorFactory'=> '3.21', 'TAP::Parser::Multiplexer'=> '3.21', 'TAP::Parser::Result' => '3.21', 'TAP::Parser::Result::Bailout'=> '3.21', 'TAP::Parser::Result::Comment'=> '3.21', 'TAP::Parser::Result::Plan'=> '3.21', 'TAP::Parser::Result::Pragma'=> '3.21', 'TAP::Parser::Result::Test'=> '3.21', 'TAP::Parser::Result::Unknown'=> '3.21', 'TAP::Parser::Result::Version'=> '3.21', 'TAP::Parser::Result::YAML'=> '3.21', 'TAP::Parser::ResultFactory'=> '3.21', 'TAP::Parser::Scheduler'=> '3.21', 'TAP::Parser::Scheduler::Job'=> '3.21', 'TAP::Parser::Scheduler::Spinner'=> '3.21', 'TAP::Parser::Source' => '3.21', 'TAP::Parser::SourceHandler'=> '3.21', 'TAP::Parser::SourceHandler::Executable'=> '3.21', 'TAP::Parser::SourceHandler::File'=> '3.21', 'TAP::Parser::SourceHandler::Handle'=> '3.21', 'TAP::Parser::SourceHandler::Perl'=> '3.21', 'TAP::Parser::SourceHandler::RawTAP'=> '3.21', 'TAP::Parser::SourceHandler::pgTAP'=> '3.21', 'TAP::Parser::Utils' => '3.21', 'TAP::Parser::YAMLish::Reader'=> '3.21', 'TAP::Parser::YAMLish::Writer'=> '3.21', 'Term::ANSIColor' => '3.00', 'Term::ReadLine' => '1.07', 'Test::Harness' => '3.21', 'Tie::Array' => '1.04', 'Time::HiRes' => '1.9721', 'Time::Piece' => '1.20_01', 'Unicode::Collate' => '0.53', 'Unicode::Normalize' => '1.06', 'Unicode::UCD' => '0.29', 'autodie' => '2.10', 'autodie::exception' => '2.10', 'autodie::exception::system'=> '2.10', 'autodie::hints' => '2.10', 'blib' => '1.05', 'charnames' => '1.11', 'diagnostics' => '1.20', 'inc::latest' => '0.3607', 'lib' => '0.63', 're' => '0.12', 'threads' => '1.77_03', 'threads::shared' => '1.33_02', 'vars' => '1.02', 'warnings' => '1.10', }, removed => { 'TAP::Parser::Source::Perl'=> 1, } }, 5.013004 => { delta_from => 5.013003, changed => { 'App::Prove' => '3.22', 'App::Prove::State' => '3.22', 'App::Prove::State::Result'=> '3.22', 'App::Prove::State::Result::Test'=> '3.22', 'Archive::Tar' => '1.68', 'Archive::Tar::Constant'=> '1.68', 'Archive::Tar::File' => '1.68', 'B::Lint' => '1.12', 'B::Lint::Debug' => '1.12', 'Carp' => '1.18', 'Carp::Heavy' => '1.18', 'Compress::Raw::Bzip2' => '2.030', 'Compress::Raw::Zlib' => '2.030', 'Compress::Zlib' => '2.030', 'ExtUtils::ParseXS' => '2.2207', 'File::Spec' => '3.31_01', 'I18N::Langinfo' => '0.04', 'IO::Compress::Adapter::Bzip2'=> '2.030', 'IO::Compress::Adapter::Deflate'=> '2.030', 'IO::Compress::Adapter::Identity'=> '2.030', 'IO::Compress::Base' => '2.030', 'IO::Compress::Base::Common'=> '2.030', 'IO::Compress::Bzip2' => '2.030', 'IO::Compress::Deflate' => '2.030', 'IO::Compress::Gzip' => '2.030', 'IO::Compress::Gzip::Constants'=> '2.030', 'IO::Compress::RawDeflate'=> '2.030', 'IO::Compress::Zip' => '2.030', 'IO::Compress::Zip::Constants'=> '2.030', 'IO::Compress::Zlib::Constants'=> '2.030', 'IO::Compress::Zlib::Extra'=> '2.030', 'IO::Uncompress::Adapter::Bunzip2'=> '2.030', 'IO::Uncompress::Adapter::Identity'=> '2.030', 'IO::Uncompress::Adapter::Inflate'=> '2.030', 'IO::Uncompress::AnyInflate'=> '2.030', 'IO::Uncompress::AnyUncompress'=> '2.030', 'IO::Uncompress::Base' => '2.030', 'IO::Uncompress::Bunzip2'=> '2.030', 'IO::Uncompress::Gunzip'=> '2.030', 'IO::Uncompress::Inflate'=> '2.030', 'IO::Uncompress::RawInflate'=> '2.030', 'IO::Uncompress::Unzip' => '2.030', 'Module::CoreList' => '2.37', 'TAP::Base' => '3.22', 'TAP::Formatter::Base' => '3.22', 'TAP::Formatter::Color' => '3.22', 'TAP::Formatter::Console'=> '3.22', 'TAP::Formatter::Console::ParallelSession'=> '3.22', 'TAP::Formatter::Console::Session'=> '3.22', 'TAP::Formatter::File' => '3.22', 'TAP::Formatter::File::Session'=> '3.22', 'TAP::Formatter::Session'=> '3.22', 'TAP::Harness' => '3.22', 'TAP::Object' => '3.22', 'TAP::Parser' => '3.22', 'TAP::Parser::Aggregator'=> '3.22', 'TAP::Parser::Grammar' => '3.22', 'TAP::Parser::Iterator' => '3.22', 'TAP::Parser::Iterator::Array'=> '3.22', 'TAP::Parser::Iterator::Process'=> '3.22', 'TAP::Parser::Iterator::Stream'=> '3.22', 'TAP::Parser::IteratorFactory'=> '3.22', 'TAP::Parser::Multiplexer'=> '3.22', 'TAP::Parser::Result' => '3.22', 'TAP::Parser::Result::Bailout'=> '3.22', 'TAP::Parser::Result::Comment'=> '3.22', 'TAP::Parser::Result::Plan'=> '3.22', 'TAP::Parser::Result::Pragma'=> '3.22', 'TAP::Parser::Result::Test'=> '3.22', 'TAP::Parser::Result::Unknown'=> '3.22', 'TAP::Parser::Result::Version'=> '3.22', 'TAP::Parser::Result::YAML'=> '3.22', 'TAP::Parser::ResultFactory'=> '3.22', 'TAP::Parser::Scheduler'=> '3.22', 'TAP::Parser::Scheduler::Job'=> '3.22', 'TAP::Parser::Scheduler::Spinner'=> '3.22', 'TAP::Parser::Source' => '3.22', 'TAP::Parser::SourceHandler'=> '3.22', 'TAP::Parser::SourceHandler::Executable'=> '3.22', 'TAP::Parser::SourceHandler::File'=> '3.22', 'TAP::Parser::SourceHandler::Handle'=> '3.22', 'TAP::Parser::SourceHandler::Perl'=> '3.22', 'TAP::Parser::SourceHandler::RawTAP'=> '3.22', 'TAP::Parser::Utils' => '3.22', 'TAP::Parser::YAMLish::Reader'=> '3.22', 'TAP::Parser::YAMLish::Writer'=> '3.22', 'Test::Builder' => '0.96', 'Test::Builder::Module' => '0.96', 'Test::Builder::Tester' => '1.20', 'Test::Builder::Tester::Color'=> '1.20', 'Test::Harness' => '3.22', 'Test::More' => '0.96', 'Test::Simple' => '0.96', 'Unicode::Collate' => '0.56', 'Unicode::Collate::Locale'=> '0.56', 'XS::APItest' => '0.20', 'charnames' => '1.15', 'feature' => '1.18', }, removed => { 'TAP::Parser::SourceHandler::pgTAP'=> 1, } }, 5.013005 => { delta_from => 5.013004, changed => { 'B::Debug' => '1.16', 'CPANPLUS::Dist::Build' => '0.48', 'CPANPLUS::Dist::Build::Constants'=> '0.48', 'Data::Dumper' => '2.128', 'Encode' => '2.40', 'Encode::Guess' => '2.04', 'Encode::MIME::Header' => '2.12', 'Encode::Unicode::UTF7' => '2.05', 'Errno' => '1.13', 'ExtUtils::Command::MM' => '6.57_05', 'ExtUtils::Liblist' => '6.57_05', 'ExtUtils::Liblist::Kid'=> '6.5705', 'ExtUtils::MM' => '6.57_05', 'ExtUtils::MM_AIX' => '6.57_05', 'ExtUtils::MM_Any' => '6.57_05', 'ExtUtils::MM_BeOS' => '6.57_05', 'ExtUtils::MM_Cygwin' => '6.57_05', 'ExtUtils::MM_DOS' => '6.5705', 'ExtUtils::MM_Darwin' => '6.57_05', 'ExtUtils::MM_MacOS' => '6.5705', 'ExtUtils::MM_NW5' => '6.57_05', 'ExtUtils::MM_OS2' => '6.57_05', 'ExtUtils::MM_QNX' => '6.57_05', 'ExtUtils::MM_UWIN' => '6.5705', 'ExtUtils::MM_Unix' => '6.57_05', 'ExtUtils::MM_VMS' => '6.57_05', 'ExtUtils::MM_VOS' => '6.57_05', 'ExtUtils::MM_Win32' => '6.57_05', 'ExtUtils::MM_Win95' => '6.57_05', 'ExtUtils::MY' => '6.5705', 'ExtUtils::MakeMaker' => '6.57_05', 'ExtUtils::MakeMaker::Config'=> '6.57_05', 'ExtUtils::MakeMaker::YAML'=> '1.44', 'ExtUtils::Mkbootstrap' => '6.57_05', 'ExtUtils::Mksymlists' => '6.57_05', 'ExtUtils::testlib' => '6.5705', 'Filter::Simple' => '0.85', 'Hash::Util' => '0.09', 'Math::BigFloat' => '1.62', 'Math::BigInt' => '1.95', 'Math::BigInt::Calc' => '0.54', 'Math::BigInt::CalcEmu' => '0.06', 'Math::BigInt::FastCalc'=> '0.22', 'Math::BigRat' => '0.26', 'Module::CoreList' => '2.39', 'POSIX' => '1.20', 'PerlIO::scalar' => '0.09', 'Safe' => '2.28', 'Test::Builder' => '0.97_01', 'Test::Builder::Module' => '0.97_01', 'Test::Builder::Tester' => '1.21_01', 'Test::Builder::Tester::Color'=> '1.21_01', 'Test::More' => '0.97_01', 'Test::Simple' => '0.97_01', 'Tie::Hash' => '1.04', 'Unicode::Collate' => '0.59', 'Unicode::Collate::Locale'=> '0.59', 'XS::APItest' => '0.21', 'XS::APItest::KeywordRPN'=> '0.005', 'XSLoader' => '0.11', 'bigint' => '0.25', 'bignum' => '0.25', 'bigrat' => '0.25', 'blib' => '1.06', 'open' => '1.08', 'threads::shared' => '1.33_03', 'warnings' => '1.11', 'warnings::register' => '1.02', }, removed => { } }, 5.013006 => { delta_from => 5.013005, changed => { 'Archive::Extract' => '0.44', 'B' => '1.24', 'B::Deparse' => '0.99', 'CPAN' => '1.94_61', 'CPAN::FTP' => '5.5005', 'CPAN::Queue' => '5.5001', 'CPAN::Version' => '5.5001', 'Carp' => '1.19', 'Carp::Heavy' => '1.19', 'Compress::Raw::Bzip2' => '2.031', 'Cwd' => '3.34', 'Data::Dumper' => '2.129', 'Devel::Peek' => '1.05', 'Digest::MD5' => '2.51', 'ExtUtils::Constant::Base'=> '0.05', 'ExtUtils::Constant::ProxySubs'=> '0.07', 'ExtUtils::Embed' => '1.29', 'ExtUtils::XSSymSet' => '1.2', 'Fcntl' => '1.09', 'File::DosGlob' => '1.03', 'File::Find' => '1.18', 'File::Glob' => '1.09', 'File::Spec' => '3.33', 'File::Spec::Cygwin' => '3.33', 'File::Spec::Epoc' => '3.33', 'File::Spec::Functions' => '3.33', 'File::Spec::Mac' => '3.33', 'File::Spec::OS2' => '3.33', 'File::Spec::Unix' => '3.33', 'File::Spec::VMS' => '3.33', 'File::Spec::Win32' => '3.33', 'GDBM_File' => '1.11', 'Hash::Util::FieldHash' => '1.05', 'I18N::Langinfo' => '0.06', 'IPC::Cmd' => '0.64', 'IPC::Open3' => '1.07', 'Locale::Codes' => '3.14', 'Locale::Codes::Country'=> '3.14', 'Locale::Codes::Currency'=> '3.14', 'Locale::Codes::Language'=> '3.14', 'Locale::Codes::Script' => '3.14', 'Locale::Constants' => '3.14', 'Locale::Country' => '3.14', 'Locale::Currency' => '3.14', 'Locale::Language' => '3.14', 'Locale::Maketext' => '1.16', 'Locale::Script' => '3.14', 'Math::BigFloat' => '1.63', 'Math::BigInt' => '1.97', 'Math::BigInt::Calc' => '0.55', 'Math::BigInt::CalcEmu' => '0.07', 'Module::CoreList' => '2.40', 'NDBM_File' => '1.09', 'NEXT' => '0.65', 'ODBM_File' => '1.08', 'Opcode' => '1.16', 'POSIX' => '1.21', 'PerlIO::encoding' => '0.13', 'PerlIO::scalar' => '0.10', 'PerlIO::via' => '0.10', 'Pod::Man' => '2.25', 'Pod::Text' => '3.15', 'SDBM_File' => '1.07', 'Socket' => '1.90', 'Sys::Hostname' => '1.13', 'Tie::Hash::NamedCapture'=> '0.07', 'Unicode::Collate' => '0.63', 'Unicode::Collate::Locale'=> '0.63', 'Unicode::Normalize' => '1.07', 'XS::APItest' => '0.23', 'XSLoader' => '0.13', 'attributes' => '0.13', 'charnames' => '1.16', 'if' => '0.06', 'mro' => '1.04', 'overload' => '1.11', 're' => '0.13', 'sigtrap' => '1.05', 'threads' => '1.81_01', 'threads::shared' => '1.34', }, removed => { 'XS::APItest::KeywordRPN'=> 1, } }, 5.013007 => { delta_from => 5.013006, changed => { 'Archive::Extract' => '0.46', 'Archive::Tar' => '1.72', 'Archive::Tar::Constant'=> '1.72', 'Archive::Tar::File' => '1.72', 'AutoLoader' => '5.71', 'B' => '1.26', 'B::Concise' => '0.81', 'B::Deparse' => '1.01', 'CGI' => '3.50', 'CPAN' => '1.94_62', 'CPANPLUS' => '0.9010', 'CPANPLUS::Dist::Build' => '0.50', 'CPANPLUS::Dist::Build::Constants'=> '0.50', 'CPANPLUS::Internals' => '0.9010', 'CPANPLUS::Shell::Default'=> '0.9010', 'Data::Dumper' => '2.130_01', 'DynaLoader' => '1.11', 'ExtUtils::Constant' => '0.23', 'ExtUtils::Constant::ProxySubs'=> '0.08', 'Fcntl' => '1.10', 'File::Fetch' => '0.28', 'File::Glob' => '1.10', 'File::stat' => '1.04', 'GDBM_File' => '1.12', 'Hash::Util' => '0.10', 'Hash::Util::FieldHash' => '1.06', 'I18N::Langinfo' => '0.07', 'Locale::Maketext' => '1.17', 'Locale::Maketext::Guts'=> '1.17', 'Locale::Maketext::GutsLoader'=> '1.17', 'MIME::Base64' => '3.10', 'MIME::QuotedPrint' => '3.10', 'Math::BigFloat' => '1.99_01', 'Math::BigInt' => '1.99_01', 'Math::BigInt::Calc' => '1.99_01', 'Math::BigInt::CalcEmu' => '1.99_01', 'Math::BigInt::FastCalc'=> '0.24_01', 'Math::BigRat' => '0.26_01', 'Module::CoreList' => '2.41', 'NDBM_File' => '1.10', 'ODBM_File' => '1.09', 'Opcode' => '1.17', 'POSIX' => '1.22', 'Pod::Simple' => '3.15', 'Pod::Simple::BlackBox' => '3.15', 'Pod::Simple::Checker' => '3.15', 'Pod::Simple::Debug' => '3.15', 'Pod::Simple::DumpAsText'=> '3.15', 'Pod::Simple::DumpAsXML'=> '3.15', 'Pod::Simple::HTML' => '3.15', 'Pod::Simple::HTMLBatch'=> '3.15', 'Pod::Simple::LinkSection'=> '3.15', 'Pod::Simple::Methody' => '3.15', 'Pod::Simple::Progress' => '3.15', 'Pod::Simple::PullParser'=> '3.15', 'Pod::Simple::PullParserEndToken'=> '3.15', 'Pod::Simple::PullParserStartToken'=> '3.15', 'Pod::Simple::PullParserTextToken'=> '3.15', 'Pod::Simple::PullParserToken'=> '3.15', 'Pod::Simple::RTF' => '3.15', 'Pod::Simple::Search' => '3.15', 'Pod::Simple::SimpleTree'=> '3.15', 'Pod::Simple::Text' => '3.15', 'Pod::Simple::TextContent'=> '3.15', 'Pod::Simple::TiedOutFH'=> '3.15', 'Pod::Simple::Transcode'=> '3.15', 'Pod::Simple::TranscodeDumb'=> '3.15', 'Pod::Simple::TranscodeSmart'=> '3.15', 'Pod::Simple::XHTML' => '3.15', 'Pod::Simple::XMLOutStream'=> '3.15', 'SDBM_File' => '1.08', 'Safe' => '2.29', 'SelfLoader' => '1.18', 'Socket' => '1.91', 'Storable' => '2.24', 'Sys::Hostname' => '1.14', 'Unicode' => '6.0.0', 'Unicode::Collate' => '0.67', 'Unicode::Collate::CJK::Big5'=> '0.65', 'Unicode::Collate::CJK::GB2312'=> '0.65', 'Unicode::Collate::CJK::JISX0208'=> '0.64', 'Unicode::Collate::CJK::Korean'=> '0.66', 'Unicode::Collate::CJK::Pinyin'=> '0.65', 'Unicode::Collate::CJK::Stroke'=> '0.65', 'Unicode::Collate::Locale'=> '0.67', 'XS::APItest' => '0.26', 'XS::Typemap' => '0.04', 'charnames' => '1.17', 'mro' => '1.05', 'parent' => '0.224', 're' => '0.14', 'threads' => '1.81_02', }, removed => { } }, 5.013008 => { delta_from => 5.013007, changed => { 'Archive::Tar' => '1.74', 'Archive::Tar::Constant'=> '1.74', 'Archive::Tar::File' => '1.74', 'B' => '1.27', 'B::Concise' => '0.82', 'B::Deparse' => '1.02', 'Carp::Heavy' => '1.17', 'Cwd' => '3.35', 'Data::Dumper' => '2.130_02', 'Devel::Peek' => '1.06', 'Devel::SelfStubber' => '1.05', 'Digest::SHA' => '5.50', 'Dumpvalue' => '1.15', 'DynaLoader' => '1.12', 'Env' => '1.02', 'Exporter::Heavy' => '5.64_01', 'ExtUtils::CBuilder' => '0.280201', 'ExtUtils::CBuilder::Base'=> '0.280201', 'ExtUtils::CBuilder::Platform::Unix'=> '0.280201', 'ExtUtils::CBuilder::Platform::VMS'=> '0.280201', 'ExtUtils::CBuilder::Platform::Windows'=> '0.280201', 'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280201', 'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280201', 'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280201', 'ExtUtils::CBuilder::Platform::aix'=> '0.280201', 'ExtUtils::CBuilder::Platform::cygwin'=> '0.280201', 'ExtUtils::CBuilder::Platform::darwin'=> '0.280201', 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280201', 'ExtUtils::CBuilder::Platform::os2'=> '0.280201', 'ExtUtils::Constant::Utils'=> '0.03', 'ExtUtils::Embed' => '1.30', 'ExtUtils::ParseXS' => '2.2208', 'Fatal' => '2.1001', 'Fcntl' => '1.11', 'File::CheckTree' => '4.41', 'File::Glob' => '1.11', 'GDBM_File' => '1.13', 'Hash::Util::FieldHash' => '1.07', 'I18N::Collate' => '1.02', 'IO' => '1.25_03', 'IPC::Cmd' => '0.66', 'IPC::Open3' => '1.08', 'Locale::Codes' => '3.15', 'Locale::Codes::Country'=> '3.15', 'Locale::Codes::Currency'=> '3.15', 'Locale::Codes::Language'=> '3.15', 'Locale::Codes::Script' => '3.15', 'Locale::Constants' => '3.15', 'Locale::Country' => '3.15', 'Locale::Currency' => '3.15', 'Locale::Language' => '3.15', 'Locale::Script' => '3.15', 'MIME::Base64' => '3.13', 'MIME::QuotedPrint' => '3.13', 'Math::BigFloat' => '1.99_02', 'Math::BigInt' => '1.99_02', 'Math::BigInt::Calc' => '1.99_02', 'Math::BigInt::CalcEmu' => '1.99_02', 'Memoize' => '1.02', 'Memoize::AnyDBM_File' => '1.02', 'Memoize::Expire' => '1.02', 'Memoize::ExpireFile' => '1.02', 'Memoize::ExpireTest' => '1.02', 'Memoize::NDBM_File' => '1.02', 'Memoize::SDBM_File' => '1.02', 'Memoize::Storable' => '1.02', 'Module::CoreList' => '2.43', 'NDBM_File' => '1.11', 'Net::Ping' => '2.37', 'ODBM_File' => '1.10', 'Opcode' => '1.18', 'POSIX' => '1.23', 'PerlIO::encoding' => '0.14', 'PerlIO::scalar' => '0.11', 'PerlIO::via' => '0.11', 'SDBM_File' => '1.09', 'Socket' => '1.92', 'Storable' => '2.25', 'Time::HiRes' => '1.9721_01', 'Unicode::Collate' => '0.6801', 'Unicode::Collate::Locale'=> '0.68', 'Unicode::Normalize' => '1.08', 'Unicode::UCD' => '0.30', 'Win32' => '0.41', 'XS::APItest' => '0.27', 'autodie' => '2.1001', 'autodie::exception' => '2.1001', 'autodie::exception::system'=> '2.1001', 'autodie::hints' => '2.1001', 'feature' => '1.19', 'if' => '0.0601', 'mro' => '1.06', 'overload' => '1.12', 're' => '0.15', 'threads' => '1.81_03', 'threads::shared' => '1.35', 'version' => '0.86', }, removed => { } }, 5.013009 => { delta_from => 5.013008, changed => { 'Archive::Extract' => '0.48', 'Archive::Tar' => '1.76', 'Archive::Tar::Constant'=> '1.76', 'Archive::Tar::File' => '1.76', 'B::Concise' => '0.83', 'B::Deparse' => '1.03', 'B::Lint' => '1.13', 'Benchmark' => '1.12', 'CGI' => '3.51', 'CGI::Carp' => '3.51', 'CGI::Cookie' => '1.30', 'CGI::Push' => '1.05', 'CGI::Util' => '3.51', 'CPAN' => '1.94_63', 'CPAN::HTTP::Client' => '1.94', 'CPAN::HTTP::Credentials'=> '1.94', 'CPAN::Meta::YAML' => '0.003', 'CPANPLUS' => '0.9011', 'CPANPLUS::Dist::Build' => '0.52', 'CPANPLUS::Dist::Build::Constants'=> '0.52', 'CPANPLUS::Internals' => '0.9011', 'CPANPLUS::Shell::Default'=> '0.9011', 'Carp::Heavy' => '1.19', 'Compress::Raw::Bzip2' => '2.033', 'Compress::Raw::Zlib' => '2.033', 'Compress::Zlib' => '2.033', 'Cwd' => '3.36', 'DBM_Filter' => '0.04', 'DB_File' => '1.821', 'Devel::Peek' => '1.07', 'DirHandle' => '1.04', 'Dumpvalue' => '1.16', 'Encode' => '2.42', 'Encode::Alias' => '2.13', 'Encode::MIME::Header' => '2.13', 'Exporter::Heavy' => '5.64_03', 'ExtUtils::Install' => '1.56', 'ExtUtils::ParseXS' => '2.2209', 'File::Basename' => '2.80', 'File::Copy' => '2.21', 'File::DosGlob' => '1.04', 'File::Fetch' => '0.32', 'File::Find' => '1.19', 'File::Spec::Mac' => '3.34', 'File::Spec::VMS' => '3.34', 'File::stat' => '1.05', 'HTTP::Tiny' => '0.009', 'Hash::Util::FieldHash' => '1.08', 'IO::Compress::Adapter::Bzip2'=> '2.033', 'IO::Compress::Adapter::Deflate'=> '2.033', 'IO::Compress::Adapter::Identity'=> '2.033', 'IO::Compress::Base' => '2.033', 'IO::Compress::Base::Common'=> '2.033', 'IO::Compress::Bzip2' => '2.033', 'IO::Compress::Deflate' => '2.033', 'IO::Compress::Gzip' => '2.033', 'IO::Compress::Gzip::Constants'=> '2.033', 'IO::Compress::RawDeflate'=> '2.033', 'IO::Compress::Zip' => '2.033', 'IO::Compress::Zip::Constants'=> '2.033', 'IO::Compress::Zlib::Constants'=> '2.033', 'IO::Compress::Zlib::Extra'=> '2.033', 'IO::Handle' => '1.29', 'IO::Uncompress::Adapter::Bunzip2'=> '2.033', 'IO::Uncompress::Adapter::Identity'=> '2.033', 'IO::Uncompress::Adapter::Inflate'=> '2.033', 'IO::Uncompress::AnyInflate'=> '2.033', 'IO::Uncompress::AnyUncompress'=> '2.033', 'IO::Uncompress::Base' => '2.033', 'IO::Uncompress::Bunzip2'=> '2.033', 'IO::Uncompress::Gunzip'=> '2.033', 'IO::Uncompress::Inflate'=> '2.033', 'IO::Uncompress::RawInflate'=> '2.033', 'IO::Uncompress::Unzip' => '2.033', 'IPC::Cmd' => '0.68', 'IPC::Open3' => '1.09', 'JSON::PP' => '2.27103', 'JSON::PP::Boolean' => undef, 'Locale::Maketext' => '1.18', 'Log::Message' => '0.04', 'Log::Message::Config' => '0.04', 'Log::Message::Handlers'=> '0.04', 'Log::Message::Item' => '0.04', 'Log::Message::Simple' => '0.08', 'Math::BigFloat' => '1.99_03', 'Math::BigInt' => '1.99_03', 'Math::BigInt::Calc' => '1.99_03', 'Math::BigInt::FastCalc'=> '0.24_02', 'Math::BigRat' => '0.26_02', 'Module::CoreList' => '2.42_01', 'Module::Load::Conditional'=> '0.40', 'Module::Metadata' => '1.000003', 'Net::Ping' => '2.38', 'OS2::Process' => '1.05', 'Object::Accessor' => '0.38', 'POSIX' => '1.24', 'Params::Check' => '0.28', 'Perl::OSType' => '1.002', 'Pod::LaTeX' => '0.59', 'Pod::Perldoc' => '3.15_03', 'Socket' => '1.93', 'Storable' => '2.26', 'Sys::Hostname' => '1.15', 'Term::UI' => '0.24', 'Thread::Queue' => '2.12', 'Thread::Semaphore' => '2.12', 'Time::Local' => '1.2000', 'UNIVERSAL' => '1.08', 'Unicode::Normalize' => '1.10', 'Win32' => '0.44', 'bigint' => '0.26', 'bignum' => '0.26', 'bigrat' => '0.26', 'charnames' => '1.18', 'diagnostics' => '1.21', 're' => '0.16', 'threads' => '1.83', 'threads::shared' => '1.36', 'version' => '0.88', }, removed => { } }, 5.01301 => { delta_from => 5.013009, changed => { 'Attribute::Handlers' => '0.89', 'B' => '1.28', 'B::Showlex' => '1.03', 'CGI' => '3.52', 'CPAN' => '1.94_65', 'CPAN::Distribution' => '1.9601', 'CPAN::FTP::netrc' => '1.01', 'CPAN::FirstTime' => '5.5303', 'CPAN::HandleConfig' => '5.5003', 'CPAN::Meta' => '2.110440', 'CPAN::Meta::Converter' => '2.110440', 'CPAN::Meta::Feature' => '2.110440', 'CPAN::Meta::History' => '2.110440', 'CPAN::Meta::Prereqs' => '2.110440', 'CPAN::Meta::Spec' => '2.110440', 'CPAN::Meta::Validator' => '2.110440', 'CPAN::Shell' => '5.5002', 'CPANPLUS' => '0.9101', 'CPANPLUS::Internals' => '0.9101', 'CPANPLUS::Shell::Default'=> '0.9101', 'Carp' => '1.20', 'Carp::Heavy' => '1.20', 'Cwd' => '3.37', 'Devel::DProf' => '20110217.00', 'DynaLoader' => '1.13', 'ExtUtils::CBuilder' => '0.280202', 'ExtUtils::CBuilder::Base'=> '0.280202', 'ExtUtils::CBuilder::Platform::Unix'=> '0.280202', 'ExtUtils::CBuilder::Platform::VMS'=> '0.280202', 'ExtUtils::CBuilder::Platform::Windows'=> '0.280202', 'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280202', 'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280202', 'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280202', 'ExtUtils::CBuilder::Platform::aix'=> '0.280202', 'ExtUtils::CBuilder::Platform::cygwin'=> '0.280202', 'ExtUtils::CBuilder::Platform::darwin'=> '0.280202', 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280202', 'ExtUtils::CBuilder::Platform::os2'=> '0.280202', 'File::Copy' => '2.22', 'Filter::Simple' => '0.86', 'HTTP::Tiny' => '0.010', 'I18N::LangTags::Detect'=> '1.05', 'IO::Select' => '1.18', 'IPC::Cmd' => '0.70', 'Locale::Maketext' => '1.19', 'Math::BigFloat' => '1.992', 'Math::BigInt' => '1.992', 'Math::BigInt::Calc' => '1.992', 'Math::BigInt::CalcEmu' => '1.992', 'Module::Build' => '0.37_05', 'Module::Build::Base' => '0.37_05', 'Module::Build::Compat' => '0.37_05', 'Module::Build::Config' => '0.37_05', 'Module::Build::Cookbook'=> '0.37_05', 'Module::Build::Dumper' => '0.37_05', 'Module::Build::ModuleInfo'=> '0.37_05', 'Module::Build::Notes' => '0.37_05', 'Module::Build::PPMMaker'=> '0.37_05', 'Module::Build::Platform::Amiga'=> '0.37_05', 'Module::Build::Platform::Default'=> '0.37_05', 'Module::Build::Platform::EBCDIC'=> '0.37_05', 'Module::Build::Platform::MPEiX'=> '0.37_05', 'Module::Build::Platform::MacOS'=> '0.37_05', 'Module::Build::Platform::RiscOS'=> '0.37_05', 'Module::Build::Platform::Unix'=> '0.37_05', 'Module::Build::Platform::VMS'=> '0.37_05', 'Module::Build::Platform::VOS'=> '0.37_05', 'Module::Build::Platform::Windows'=> '0.37_05', 'Module::Build::Platform::aix'=> '0.37_05', 'Module::Build::Platform::cygwin'=> '0.37_05', 'Module::Build::Platform::darwin'=> '0.37_05', 'Module::Build::Platform::os2'=> '0.37_05', 'Module::Build::PodParser'=> '0.37_05', 'Module::Build::Version'=> '0.87', 'Module::Build::YAML' => '1.41', 'Module::CoreList' => '2.45', 'Module::Load::Conditional'=> '0.44', 'Module::Metadata' => '1.000004', 'OS2::Process' => '1.06', 'Parse::CPAN::Meta' => '1.4401', 'Pod::Html' => '1.1', 'Socket' => '1.94', 'Term::UI' => '0.26', 'Unicode::Collate' => '0.72', 'Unicode::Collate::Locale'=> '0.71', 'Unicode::UCD' => '0.31', 'VMS::DCLsym' => '1.05', 'Version::Requirements' => '0.101020', 'bigrat' => '0.27', 'deprecate' => '0.02', 'diagnostics' => '1.22', 'inc::latest' => '0.37_05', 'overload' => '1.13', 're' => '0.17', 'utf8' => '1.09', 'warnings' => '1.12', }, removed => { } }, 5.013011 => { delta_from => 5.01301, changed => { 'App::Prove' => '3.23', 'App::Prove::State' => '3.23', 'App::Prove::State::Result'=> '3.23', 'App::Prove::State::Result::Test'=> '3.23', 'B' => '1.29', 'CPAN' => '1.9600', 'CPAN::Author' => '5.5001', 'CPAN::CacheMgr' => '5.5001', 'CPAN::Distribution' => '1.9602', 'CPAN::Exception::blocked_urllist'=> '1.001', 'CPAN::HTTP::Client' => '1.9600', 'CPAN::HTTP::Credentials'=> '1.9600', 'CPAN::Index' => '1.9600', 'CPAN::LWP::UserAgent' => '1.9600', 'CPAN::Mirrors' => '1.9600', 'CPAN::Module' => '5.5001', 'CPANPLUS' => '0.9103', 'CPANPLUS::Dist::Build' => '0.54', 'CPANPLUS::Dist::Build::Constants'=> '0.54', 'CPANPLUS::Internals' => '0.9103', 'CPANPLUS::Shell::Default'=> '0.9103', 'Cwd' => '3.36', 'Devel::DProf' => '20110228.00', 'Digest::SHA' => '5.61', 'ExtUtils::Command' => '1.17', 'File::Basename' => '2.81', 'File::Copy' => '2.21', 'File::Glob' => '1.12', 'GDBM_File' => '1.14', 'HTTP::Tiny' => '0.011', 'Hash::Util' => '0.11', 'Hash::Util::FieldHash' => '1.09', 'I18N::Langinfo' => '0.08', 'IO' => '1.25_04', 'IO::Dir' => '1.08', 'IO::File' => '1.15', 'IO::Handle' => '1.30', 'IO::Pipe' => '1.14', 'IO::Poll' => '0.08', 'IO::Select' => '1.20', 'JSON::PP' => '2.27105', 'Locale::Codes' => '3.16', 'Locale::Codes::Country'=> '3.16', 'Locale::Codes::Currency'=> '3.16', 'Locale::Codes::Language'=> '3.16', 'Locale::Codes::Script' => '3.16', 'Locale::Constants' => '3.16', 'Locale::Country' => '3.16', 'Locale::Currency' => '3.16', 'Locale::Language' => '3.16', 'Locale::Script' => '3.16', 'Math::BigFloat' => '1.993', 'Math::BigInt' => '1.994', 'Math::BigInt::Calc' => '1.993', 'Math::BigInt::CalcEmu' => '1.993', 'Math::BigInt::FastCalc'=> '0.28', 'Module::Build' => '0.3800', 'Module::Build::Base' => '0.3800', 'Module::Build::Compat' => '0.3800', 'Module::Build::Config' => '0.3800', 'Module::Build::Cookbook'=> '0.3800', 'Module::Build::Dumper' => '0.3800', 'Module::Build::ModuleInfo'=> '0.3800', 'Module::Build::Notes' => '0.3800', 'Module::Build::PPMMaker'=> '0.3800', 'Module::Build::Platform::Amiga'=> '0.3800', 'Module::Build::Platform::Default'=> '0.3800', 'Module::Build::Platform::EBCDIC'=> '0.3800', 'Module::Build::Platform::MPEiX'=> '0.3800', 'Module::Build::Platform::MacOS'=> '0.3800', 'Module::Build::Platform::RiscOS'=> '0.3800', 'Module::Build::Platform::Unix'=> '0.3800', 'Module::Build::Platform::VMS'=> '0.3800', 'Module::Build::Platform::VOS'=> '0.3800', 'Module::Build::Platform::Windows'=> '0.3800', 'Module::Build::Platform::aix'=> '0.3800', 'Module::Build::Platform::cygwin'=> '0.3800', 'Module::Build::Platform::darwin'=> '0.3800', 'Module::Build::Platform::os2'=> '0.3800', 'Module::Build::PodParser'=> '0.3800', 'Module::CoreList' => '2.46', 'NDBM_File' => '1.12', 'Pod::Simple' => '3.16', 'Pod::Simple::BlackBox' => '3.16', 'Pod::Simple::Checker' => '3.16', 'Pod::Simple::Debug' => '3.16', 'Pod::Simple::DumpAsText'=> '3.16', 'Pod::Simple::DumpAsXML'=> '3.16', 'Pod::Simple::HTML' => '3.16', 'Pod::Simple::HTMLBatch'=> '3.16', 'Pod::Simple::LinkSection'=> '3.16', 'Pod::Simple::Methody' => '3.16', 'Pod::Simple::Progress' => '3.16', 'Pod::Simple::PullParser'=> '3.16', 'Pod::Simple::PullParserEndToken'=> '3.16', 'Pod::Simple::PullParserStartToken'=> '3.16', 'Pod::Simple::PullParserTextToken'=> '3.16', 'Pod::Simple::PullParserToken'=> '3.16', 'Pod::Simple::RTF' => '3.16', 'Pod::Simple::Search' => '3.16', 'Pod::Simple::SimpleTree'=> '3.16', 'Pod::Simple::Text' => '3.16', 'Pod::Simple::TextContent'=> '3.16', 'Pod::Simple::TiedOutFH'=> '3.16', 'Pod::Simple::Transcode'=> '3.16', 'Pod::Simple::TranscodeDumb'=> '3.16', 'Pod::Simple::TranscodeSmart'=> '3.16', 'Pod::Simple::XHTML' => '3.16', 'Pod::Simple::XMLOutStream'=> '3.16', 'Storable' => '2.27', 'Sys::Hostname' => '1.16', 'TAP::Base' => '3.23', 'TAP::Formatter::Base' => '3.23', 'TAP::Formatter::Color' => '3.23', 'TAP::Formatter::Console'=> '3.23', 'TAP::Formatter::Console::ParallelSession'=> '3.23', 'TAP::Formatter::Console::Session'=> '3.23', 'TAP::Formatter::File' => '3.23', 'TAP::Formatter::File::Session'=> '3.23', 'TAP::Formatter::Session'=> '3.23', 'TAP::Harness' => '3.23', 'TAP::Object' => '3.23', 'TAP::Parser' => '3.23', 'TAP::Parser::Aggregator'=> '3.23', 'TAP::Parser::Grammar' => '3.23', 'TAP::Parser::Iterator' => '3.23', 'TAP::Parser::Iterator::Array'=> '3.23', 'TAP::Parser::Iterator::Process'=> '3.23', 'TAP::Parser::Iterator::Stream'=> '3.23', 'TAP::Parser::IteratorFactory'=> '3.23', 'TAP::Parser::Multiplexer'=> '3.23', 'TAP::Parser::Result' => '3.23', 'TAP::Parser::Result::Bailout'=> '3.23', 'TAP::Parser::Result::Comment'=> '3.23', 'TAP::Parser::Result::Plan'=> '3.23', 'TAP::Parser::Result::Pragma'=> '3.23', 'TAP::Parser::Result::Test'=> '3.23', 'TAP::Parser::Result::Unknown'=> '3.23', 'TAP::Parser::Result::Version'=> '3.23', 'TAP::Parser::Result::YAML'=> '3.23', 'TAP::Parser::ResultFactory'=> '3.23', 'TAP::Parser::Scheduler'=> '3.23', 'TAP::Parser::Scheduler::Job'=> '3.23', 'TAP::Parser::Scheduler::Spinner'=> '3.23', 'TAP::Parser::Source' => '3.23', 'TAP::Parser::SourceHandler'=> '3.23', 'TAP::Parser::SourceHandler::Executable'=> '3.23', 'TAP::Parser::SourceHandler::File'=> '3.23', 'TAP::Parser::SourceHandler::Handle'=> '3.23', 'TAP::Parser::SourceHandler::Perl'=> '3.23', 'TAP::Parser::SourceHandler::RawTAP'=> '3.23', 'TAP::Parser::Utils' => '3.23', 'TAP::Parser::YAMLish::Reader'=> '3.23', 'TAP::Parser::YAMLish::Writer'=> '3.23', 'Test::Builder' => '0.98', 'Test::Builder::Module' => '0.98', 'Test::Builder::Tester' => '1.22', 'Test::Builder::Tester::Color'=> '1.22', 'Test::Harness' => '3.23', 'Test::More' => '0.98', 'Test::Simple' => '0.98', 'Tie::Hash::NamedCapture'=> '0.08', 'Tie::RefHash' => '1.39', 'Unicode::Collate' => '0.73', 'Unicode::Collate::Locale'=> '0.73', 'Unicode::UCD' => '0.32', 'XS::Typemap' => '0.05', 'attributes' => '0.14', 'base' => '2.16', 'inc::latest' => '0.3800', 'mro' => '1.07', 'parent' => '0.225', }, removed => { } }, 5.014 => { delta_from => 5.013011, changed => { 'ExtUtils::CBuilder' => '0.280203', 'ExtUtils::CBuilder::Base'=> '0.280203', 'ExtUtils::CBuilder::Platform::Unix'=> '0.280203', 'ExtUtils::CBuilder::Platform::VMS'=> '0.280203', 'ExtUtils::CBuilder::Platform::Windows'=> '0.280203', 'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280203', 'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280203', 'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280203', 'ExtUtils::CBuilder::Platform::aix'=> '0.280203', 'ExtUtils::CBuilder::Platform::cygwin'=> '0.280203', 'ExtUtils::CBuilder::Platform::darwin'=> '0.280203', 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280203', 'ExtUtils::CBuilder::Platform::os2'=> '0.280203', 'ExtUtils::ParseXS' => '2.2210', 'File::Basename' => '2.82', 'HTTP::Tiny' => '0.012', 'IO::Handle' => '1.31', 'Module::CoreList' => '2.49', 'PerlIO' => '1.07', 'Pod::Html' => '1.11', 'XS::APItest' => '0.28', 'bigint' => '0.27', 'bignum' => '0.27', 'bigrat' => '0.28', 'constant' => '1.21', 'feature' => '1.20', 're' => '0.18', 'threads::shared' => '1.37', }, removed => { } }, 5.014001 => { delta_from => 5.014, changed => { 'B::Deparse' => '1.04', 'Module::CoreList' => '2.49_01', 'Pod::Perldoc' => '3.15_04', }, removed => { } }, 5.014002 => { delta_from => 5.014001, changed => { 'CPAN' => '1.9600_01', 'CPAN::Distribution' => '1.9602_01', 'Devel::DProf::dprof::V'=> undef, 'Encode' => '2.42_01', 'File::Glob' => '1.13', 'Module::CoreList' => '2.49_02', 'PerlIO::scalar' => '0.11_01', 'Time::Piece::Seconds' => undef, }, removed => { } }, 5.014003 => { delta_from => 5.014002, changed => { 'Digest' => '1.16_01', 'IPC::Open3' => '1.09_01', 'Module::CoreList' => '2.49_04', }, removed => { } }, 5.014004 => { delta_from => 5.014003, changed => { 'Encode' => '2.42_02', 'IPC::Open3' => '1.0901', 'Module::CoreList' => '2.49_06', }, removed => { } }, 5.015 => { delta_from => 5.014001, changed => { 'Archive::Extract' => '0.52', 'Attribute::Handlers' => '0.91', 'B' => '1.30', 'B::Concise' => '0.84', 'B::Deparse' => '1.05', 'Benchmark' => '1.13', 'CGI' => '3.54', 'CGI::Util' => '3.53', 'CPAN::Meta' => '2.110930', 'CPAN::Meta::Converter' => '2.110930', 'CPAN::Meta::Feature' => '2.110930', 'CPAN::Meta::History' => '2.110930', 'CPAN::Meta::Prereqs' => '2.110930', 'CPAN::Meta::Spec' => '2.110930', 'CPAN::Meta::Validator' => '2.110930', 'CPANPLUS' => '0.9105', 'CPANPLUS::Dist::Build' => '0.56', 'CPANPLUS::Dist::Build::Constants'=> '0.56', 'CPANPLUS::Internals' => '0.9105', 'CPANPLUS::Shell::Default'=> '0.9105', 'Compress::Raw::Bzip2' => '2.035', 'Compress::Raw::Zlib' => '2.035', 'Compress::Zlib' => '2.035', 'DB_File' => '1.822', 'Data::Dumper' => '2.131', 'Devel::Peek' => '1.08', 'Digest::SHA' => '5.62', 'Encode' => '2.43', 'Encode::Alias' => '2.14', 'ExtUtils::CBuilder' => '0.280204', 'ExtUtils::CBuilder::Base'=> '0.280204', 'Fatal' => '2.10', 'File::Spec::Win32' => '3.34', 'Filter::Simple' => '0.87', 'Filter::Util::Call' => '1.39', 'FindBin' => '1.51', 'Hash::Util::FieldHash' => '1.10', 'I18N::LangTags' => '0.36', 'IO::Compress::Adapter::Bzip2'=> '2.035', 'IO::Compress::Adapter::Deflate'=> '2.035', 'IO::Compress::Adapter::Identity'=> '2.035', 'IO::Compress::Base' => '2.035', 'IO::Compress::Base::Common'=> '2.035', 'IO::Compress::Bzip2' => '2.035', 'IO::Compress::Deflate' => '2.035', 'IO::Compress::Gzip' => '2.035', 'IO::Compress::Gzip::Constants'=> '2.035', 'IO::Compress::RawDeflate'=> '2.035', 'IO::Compress::Zip' => '2.035', 'IO::Compress::Zip::Constants'=> '2.035', 'IO::Compress::Zlib::Constants'=> '2.035', 'IO::Compress::Zlib::Extra'=> '2.035', 'IO::Uncompress::Adapter::Bunzip2'=> '2.035', 'IO::Uncompress::Adapter::Identity'=> '2.035', 'IO::Uncompress::Adapter::Inflate'=> '2.035', 'IO::Uncompress::AnyInflate'=> '2.035', 'IO::Uncompress::AnyUncompress'=> '2.035', 'IO::Uncompress::Base' => '2.035', 'IO::Uncompress::Bunzip2'=> '2.035', 'IO::Uncompress::Gunzip'=> '2.035', 'IO::Uncompress::Inflate'=> '2.035', 'IO::Uncompress::RawInflate'=> '2.035', 'IO::Uncompress::Unzip' => '2.035', 'IPC::Open2' => '1.04', 'IPC::Open3' => '1.11', 'JSON::PP' => '2.27200', 'Math::BigFloat' => '1.994', 'Math::BigInt' => '1.995', 'Math::Complex' => '1.57', 'Math::Trig' => '1.21', 'Module::CoreList' => '2.51', 'ODBM_File' => '1.11', 'Object::Accessor' => '0.42', 'Opcode' => '1.19', 'PerlIO::encoding' => '0.15', 'PerlIO::scalar' => '0.12', 'Pod::Perldoc' => '3.15_05', 'Storable' => '2.28', 'Sys::Syslog' => '0.29', 'Time::HiRes' => '1.9722', 'Unicode::Collate' => '0.76', 'Unicode::Collate::CJK::Pinyin'=> '0.76', 'Unicode::Collate::CJK::Stroke'=> '0.76', 'Unicode::Collate::Locale'=> '0.76', 'Unicode::Normalize' => '1.12', 'XS::APItest' => '0.29', 'XSLoader' => '0.15', 'autodie' => '2.10', 'autodie::exception' => '2.10', 'autodie::exception::system'=> '2.10', 'autodie::hints' => '2.10', 'base' => '2.17', 'charnames' => '1.22', 'constant' => '1.22', 'feature' => '1.21', 'mro' => '1.08', 'overload' => '1.14', 'threads::shared' => '1.38', 'vmsish' => '1.03', }, removed => { 'Devel::DProf' => 1, 'Shell' => 1, } }, 5.015001 => { delta_from => 5.015, changed => { 'B::Deparse' => '1.06', 'CGI' => '3.55', 'CPAN::Meta' => '2.110930001', 'CPAN::Meta::Converter' => '2.110930001', 'CPANPLUS' => '0.9108', 'CPANPLUS::Internals' => '0.9108', 'CPANPLUS::Shell::Default'=> '0.9108', 'Carp' => '1.21', 'Carp::Heavy' => '1.21', 'Compress::Raw::Bzip2' => '2.037', 'Compress::Raw::Zlib' => '2.037', 'Compress::Zlib' => '2.037', 'Cwd' => '3.37', 'Env' => '1.03', 'ExtUtils::Command::MM' => '6.58', 'ExtUtils::Liblist' => '6.58', 'ExtUtils::Liblist::Kid'=> '6.58', 'ExtUtils::MM' => '6.58', 'ExtUtils::MM_AIX' => '6.58', 'ExtUtils::MM_Any' => '6.58', 'ExtUtils::MM_BeOS' => '6.58', 'ExtUtils::MM_Cygwin' => '6.58', 'ExtUtils::MM_DOS' => '6.58', 'ExtUtils::MM_Darwin' => '6.58', 'ExtUtils::MM_MacOS' => '6.58', 'ExtUtils::MM_NW5' => '6.58', 'ExtUtils::MM_OS2' => '6.58', 'ExtUtils::MM_QNX' => '6.58', 'ExtUtils::MM_UWIN' => '6.58', 'ExtUtils::MM_Unix' => '6.58', 'ExtUtils::MM_VMS' => '6.58', 'ExtUtils::MM_VOS' => '6.58', 'ExtUtils::MM_Win32' => '6.58', 'ExtUtils::MM_Win95' => '6.58', 'ExtUtils::MY' => '6.58', 'ExtUtils::MakeMaker' => '6.58', 'ExtUtils::MakeMaker::Config'=> '6.58', 'ExtUtils::Mkbootstrap' => '6.58', 'ExtUtils::Mksymlists' => '6.58', 'ExtUtils::ParseXS' => '3.00_01', 'ExtUtils::ParseXS::Constants'=> undef, 'ExtUtils::ParseXS::CountLines'=> undef, 'ExtUtils::ParseXS::Utilities'=> undef, 'ExtUtils::Typemaps' => '1.00', 'ExtUtils::Typemaps::InputMap'=> undef, 'ExtUtils::Typemaps::OutputMap'=> undef, 'ExtUtils::Typemaps::Type'=> '0.05', 'ExtUtils::testlib' => '6.58', 'File::Basename' => '2.83', 'File::Find' => '1.20', 'HTTP::Tiny' => '0.013', 'I18N::Langinfo' => '0.08_02', 'IO::Compress::Adapter::Bzip2'=> '2.037', 'IO::Compress::Adapter::Deflate'=> '2.037', 'IO::Compress::Adapter::Identity'=> '2.037', 'IO::Compress::Base' => '2.037', 'IO::Compress::Base::Common'=> '2.037', 'IO::Compress::Bzip2' => '2.037', 'IO::Compress::Deflate' => '2.037', 'IO::Compress::Gzip' => '2.037', 'IO::Compress::Gzip::Constants'=> '2.037', 'IO::Compress::RawDeflate'=> '2.037', 'IO::Compress::Zip' => '2.037', 'IO::Compress::Zip::Constants'=> '2.037', 'IO::Compress::Zlib::Constants'=> '2.037', 'IO::Compress::Zlib::Extra'=> '2.037', 'IO::Uncompress::Adapter::Bunzip2'=> '2.037', 'IO::Uncompress::Adapter::Identity'=> '2.037', 'IO::Uncompress::Adapter::Inflate'=> '2.037', 'IO::Uncompress::AnyInflate'=> '2.037', 'IO::Uncompress::AnyUncompress'=> '2.037', 'IO::Uncompress::Base' => '2.037', 'IO::Uncompress::Bunzip2'=> '2.037', 'IO::Uncompress::Gunzip'=> '2.037', 'IO::Uncompress::Inflate'=> '2.037', 'IO::Uncompress::RawInflate'=> '2.037', 'IO::Uncompress::Unzip' => '2.037', 'IPC::Cmd' => '0.72', 'Locale::Codes' => '3.17', 'Locale::Codes::Constants'=> '3.17', 'Locale::Codes::Country'=> '3.17', 'Locale::Codes::Country_Codes'=> '3.17', 'Locale::Codes::Currency'=> '3.17', 'Locale::Codes::Currency_Codes'=> '3.17', 'Locale::Codes::LangExt'=> '3.17', 'Locale::Codes::LangExt_Codes'=> '3.17', 'Locale::Codes::LangVar'=> '3.17', 'Locale::Codes::LangVar_Codes'=> '3.17', 'Locale::Codes::Language'=> '3.17', 'Locale::Codes::Language_Codes'=> '3.17', 'Locale::Codes::Script' => '3.17', 'Locale::Codes::Script_Codes'=> '3.17', 'Locale::Country' => '3.17', 'Locale::Currency' => '3.17', 'Locale::Language' => '3.17', 'Locale::Script' => '3.17', 'Math::BigFloat::Trace' => '0.28', 'Math::BigInt::FastCalc'=> '0.29', 'Math::BigInt::Trace' => '0.28', 'Math::BigRat' => '0.2602', 'Math::Complex' => '1.58', 'Math::Trig' => '1.22', 'Module::CoreList' => '2.54', 'OS2::Process' => '1.07', 'Pod::Perldoc' => '3.15_06', 'Pod::Simple' => '3.18', 'Pod::Simple::BlackBox' => '3.18', 'Pod::Simple::Checker' => '3.18', 'Pod::Simple::Debug' => '3.18', 'Pod::Simple::DumpAsText'=> '3.18', 'Pod::Simple::DumpAsXML'=> '3.18', 'Pod::Simple::HTML' => '3.18', 'Pod::Simple::HTMLBatch'=> '3.18', 'Pod::Simple::LinkSection'=> '3.18', 'Pod::Simple::Methody' => '3.18', 'Pod::Simple::Progress' => '3.18', 'Pod::Simple::PullParser'=> '3.18', 'Pod::Simple::PullParserEndToken'=> '3.18', 'Pod::Simple::PullParserStartToken'=> '3.18', 'Pod::Simple::PullParserTextToken'=> '3.18', 'Pod::Simple::PullParserToken'=> '3.18', 'Pod::Simple::RTF' => '3.18', 'Pod::Simple::Search' => '3.18', 'Pod::Simple::SimpleTree'=> '3.18', 'Pod::Simple::Text' => '3.18', 'Pod::Simple::TextContent'=> '3.18', 'Pod::Simple::TiedOutFH'=> '3.18', 'Pod::Simple::Transcode'=> '3.18', 'Pod::Simple::TranscodeDumb'=> '3.18', 'Pod::Simple::TranscodeSmart'=> '3.18', 'Pod::Simple::XHTML' => '3.18', 'Pod::Simple::XMLOutStream'=> '3.18', 'Storable' => '2.31', 'Sys::Syslog::Win32' => undef, 'Time::HiRes' => '1.9724', 'Unicode::Collate' => '0.77', 'Unicode::UCD' => '0.33', 'Win32API::File' => '0.1200', 'XS::APItest' => '0.30', 'attributes' => '0.15', 'bigint' => '0.28', 'bignum' => '0.28', 'charnames' => '1.23', 'diagnostics' => '1.23', 'feature' => '1.22', 'overload' => '1.15', 'perlfaq' => '5.015000', 'threads' => '1.84', 'version' => '0.93', }, removed => { 'ExtUtils::MakeMaker::YAML'=> 1, 'Locale::Constants' => 1, 'Sys::Syslog::win32::Win32'=> 1, } }, 5.015002 => { delta_from => 5.015001, changed => { 'Attribute::Handlers' => '0.92', 'B' => '1.31', 'B::Concise' => '0.85', 'B::Deparse' => '1.07', 'B::Terse' => '1.06', 'B::Xref' => '1.03', 'CPAN' => '1.9800', 'CPAN::Exception::yaml_process_error'=> '5.5', 'CPAN::Meta' => '2.112150', 'CPAN::Meta::Converter' => '2.112150', 'CPAN::Meta::Feature' => '2.112150', 'CPAN::Meta::History' => '2.112150', 'CPAN::Meta::Prereqs' => '2.112150', 'CPAN::Meta::Spec' => '2.112150', 'CPAN::Meta::Validator' => '2.112150', 'CPANPLUS' => '0.9109', 'CPANPLUS::Internals' => '0.9109', 'CPANPLUS::Shell::Default'=> '0.9109', 'DB_File' => '1.824', 'Data::Dumper' => '2.132', 'Encode' => '2.44', 'Encode::Alias' => '2.15', 'Encode::Encoder' => '2.02', 'Encode::Guess' => '2.05', 'ExtUtils::Command::MM' => '6.59', 'ExtUtils::Install' => '1.57', 'ExtUtils::Installed' => '1.999002', 'ExtUtils::Liblist' => '6.59', 'ExtUtils::Liblist::Kid'=> '6.59', 'ExtUtils::MM' => '6.59', 'ExtUtils::MM_AIX' => '6.59', 'ExtUtils::MM_Any' => '6.59', 'ExtUtils::MM_BeOS' => '6.59', 'ExtUtils::MM_Cygwin' => '6.59', 'ExtUtils::MM_DOS' => '6.59', 'ExtUtils::MM_Darwin' => '6.59', 'ExtUtils::MM_MacOS' => '6.59', 'ExtUtils::MM_NW5' => '6.59', 'ExtUtils::MM_OS2' => '6.59', 'ExtUtils::MM_QNX' => '6.59', 'ExtUtils::MM_UWIN' => '6.59', 'ExtUtils::MM_Unix' => '6.59', 'ExtUtils::MM_VMS' => '6.59', 'ExtUtils::MM_VOS' => '6.59', 'ExtUtils::MM_Win32' => '6.59', 'ExtUtils::MM_Win95' => '6.59', 'ExtUtils::MY' => '6.59', 'ExtUtils::MakeMaker' => '6.59', 'ExtUtils::MakeMaker::Config'=> '6.59', 'ExtUtils::Manifest' => '1.60', 'ExtUtils::Mkbootstrap' => '6.59', 'ExtUtils::Mksymlists' => '6.59', 'ExtUtils::ParseXS' => '3.03_01', 'ExtUtils::Typemaps' => '1.01', 'ExtUtils::testlib' => '6.59', 'File::Spec' => '3.34', 'File::Spec::Mac' => '3.35', 'File::Spec::Unix' => '3.34', 'File::Spec::VMS' => '3.35', 'File::Spec::Win32' => '3.35', 'I18N::LangTags' => '0.37', 'IO' => '1.25_05', 'IO::Handle' => '1.32', 'IO::Socket' => '1.33', 'IO::Socket::INET' => '1.32', 'IPC::Open3' => '1.12', 'Math::BigFloat' => '1.995', 'Math::BigFloat::Trace' => '0.29', 'Math::BigInt' => '1.996', 'Math::BigInt::Trace' => '0.29', 'Module::Build' => '0.39_01', 'Module::Build::Base' => '0.39_01', 'Module::Build::Compat' => '0.39_01', 'Module::Build::Config' => '0.39_01', 'Module::Build::Cookbook'=> '0.39_01', 'Module::Build::Dumper' => '0.39_01', 'Module::Build::ModuleInfo'=> '0.39_01', 'Module::Build::Notes' => '0.39_01', 'Module::Build::PPMMaker'=> '0.39_01', 'Module::Build::Platform::Amiga'=> '0.39_01', 'Module::Build::Platform::Default'=> '0.39_01', 'Module::Build::Platform::EBCDIC'=> '0.39_01', 'Module::Build::Platform::MPEiX'=> '0.39_01', 'Module::Build::Platform::MacOS'=> '0.39_01', 'Module::Build::Platform::RiscOS'=> '0.39_01', 'Module::Build::Platform::Unix'=> '0.39_01', 'Module::Build::Platform::VMS'=> '0.39_01', 'Module::Build::Platform::VOS'=> '0.39_01', 'Module::Build::Platform::Windows'=> '0.39_01', 'Module::Build::Platform::aix'=> '0.39_01', 'Module::Build::Platform::cygwin'=> '0.39_01', 'Module::Build::Platform::darwin'=> '0.39_01', 'Module::Build::Platform::os2'=> '0.39_01', 'Module::Build::PodParser'=> '0.39_01', 'Module::CoreList' => '2.55', 'Module::Load' => '0.20', 'Module::Metadata' => '1.000005_01', 'Opcode' => '1.20', 'Params::Check' => '0.32', 'PerlIO::via' => '0.12', 'Term::ANSIColor' => '3.01', 'Unicode::Collate' => '0.78', 'Unicode::Normalize' => '1.13', 'Unicode::UCD' => '0.34', 'bigint' => '0.29', 'bignum' => '0.29', 'bigrat' => '0.29', 'diagnostics' => '1.24', 'fields' => '2.16', 'inc::latest' => '0.39_01', }, removed => { } }, 5.015003 => { delta_from => 5.015002, changed => { 'AnyDBM_File' => '1.01', 'Archive::Extract' => '0.56', 'Archive::Tar' => '1.78', 'Archive::Tar::Constant'=> '1.78', 'Archive::Tar::File' => '1.78', 'Attribute::Handlers' => '0.93', 'B' => '1.32', 'B::Concise' => '0.86', 'B::Deparse' => '1.08', 'CPAN::Meta' => '2.112621', 'CPAN::Meta::Converter' => '2.112621', 'CPAN::Meta::Feature' => '2.112621', 'CPAN::Meta::History' => '2.112621', 'CPAN::Meta::Prereqs' => '2.112621', 'CPAN::Meta::Spec' => '2.112621', 'CPAN::Meta::Validator' => '2.112621', 'CPAN::Meta::YAML' => '0.004', 'CPANPLUS' => '0.9111', 'CPANPLUS::Dist::Build' => '0.58', 'CPANPLUS::Dist::Build::Constants'=> '0.58', 'CPANPLUS::Internals' => '0.9111', 'CPANPLUS::Shell::Default'=> '0.9111', 'Carp' => '1.23', 'Carp::Heavy' => '1.23', 'Data::Dumper' => '2.134', 'Devel::PPPort' => '3.20', 'Errno' => '1.14', 'Exporter' => '5.65', 'Exporter::Heavy' => '5.65', 'ExtUtils::ParseXS' => '3.04_04', 'ExtUtils::ParseXS::Constants'=> '3.04_04', 'ExtUtils::ParseXS::CountLines'=> '3.04_04', 'ExtUtils::ParseXS::Utilities'=> '3.04_04', 'ExtUtils::Typemaps' => '1.02', 'File::Glob' => '1.13', 'Filter::Simple' => '0.88', 'IO' => '1.25_06', 'IO::Handle' => '1.33', 'Locale::Codes' => '3.18', 'Locale::Codes::Constants'=> '3.18', 'Locale::Codes::Country'=> '3.18', 'Locale::Codes::Country_Codes'=> '3.18', 'Locale::Codes::Currency'=> '3.18', 'Locale::Codes::Currency_Codes'=> '3.18', 'Locale::Codes::LangExt'=> '3.18', 'Locale::Codes::LangExt_Codes'=> '3.18', 'Locale::Codes::LangVar'=> '3.18', 'Locale::Codes::LangVar_Codes'=> '3.18', 'Locale::Codes::Language'=> '3.18', 'Locale::Codes::Language_Codes'=> '3.18', 'Locale::Codes::Script' => '3.18', 'Locale::Codes::Script_Codes'=> '3.18', 'Locale::Country' => '3.18', 'Locale::Currency' => '3.18', 'Locale::Language' => '3.18', 'Locale::Script' => '3.18', 'Math::BigFloat' => '1.997', 'Math::BigInt' => '1.997', 'Math::BigInt::Calc' => '1.997', 'Math::BigInt::CalcEmu' => '1.997', 'Math::BigInt::FastCalc'=> '0.30', 'Math::BigRat' => '0.2603', 'Module::CoreList' => '2.56', 'Module::Load::Conditional'=> '0.46', 'Module::Metadata' => '1.000007', 'ODBM_File' => '1.12', 'POSIX' => '1.26', 'Pod::Perldoc' => '3.15_07', 'Pod::Simple' => '3.19', 'Pod::Simple::BlackBox' => '3.19', 'Pod::Simple::Checker' => '3.19', 'Pod::Simple::Debug' => '3.19', 'Pod::Simple::DumpAsText'=> '3.19', 'Pod::Simple::DumpAsXML'=> '3.19', 'Pod::Simple::HTML' => '3.19', 'Pod::Simple::HTMLBatch'=> '3.19', 'Pod::Simple::LinkSection'=> '3.19', 'Pod::Simple::Methody' => '3.19', 'Pod::Simple::Progress' => '3.19', 'Pod::Simple::PullParser'=> '3.19', 'Pod::Simple::PullParserEndToken'=> '3.19', 'Pod::Simple::PullParserStartToken'=> '3.19', 'Pod::Simple::PullParserTextToken'=> '3.19', 'Pod::Simple::PullParserToken'=> '3.19', 'Pod::Simple::RTF' => '3.19', 'Pod::Simple::Search' => '3.19', 'Pod::Simple::SimpleTree'=> '3.19', 'Pod::Simple::Text' => '3.19', 'Pod::Simple::TextContent'=> '3.19', 'Pod::Simple::TiedOutFH'=> '3.19', 'Pod::Simple::Transcode'=> '3.19', 'Pod::Simple::TranscodeDumb'=> '3.19', 'Pod::Simple::TranscodeSmart'=> '3.19', 'Pod::Simple::XHTML' => '3.19', 'Pod::Simple::XMLOutStream'=> '3.19', 'Search::Dict' => '1.04', 'Socket' => '1.94_01', 'Storable' => '2.32', 'Text::Abbrev' => '1.02', 'Tie::Array' => '1.05', 'UNIVERSAL' => '1.09', 'Unicode::UCD' => '0.35', 'XS::APItest' => '0.31', 'XSLoader' => '0.16', 'attributes' => '0.16', 'diagnostics' => '1.25', 'open' => '1.09', 'perlfaq' => '5.0150034', 'threads' => '1.85', 'threads::shared' => '1.40', }, removed => { } }, 5.015004 => { delta_from => 5.015003, changed => { 'Archive::Tar' => '1.80', 'Archive::Tar::Constant'=> '1.80', 'Archive::Tar::File' => '1.80', 'Digest' => '1.17', 'DynaLoader' => '1.14', 'ExtUtils::Command::MM' => '6.61_01', 'ExtUtils::Liblist' => '6.61_01', 'ExtUtils::Liblist::Kid'=> '6.61_01', 'ExtUtils::MM' => '6.61_01', 'ExtUtils::MM_AIX' => '6.61_01', 'ExtUtils::MM_Any' => '6.61_01', 'ExtUtils::MM_BeOS' => '6.61_01', 'ExtUtils::MM_Cygwin' => '6.61_01', 'ExtUtils::MM_DOS' => '6.61_01', 'ExtUtils::MM_Darwin' => '6.61_01', 'ExtUtils::MM_MacOS' => '6.61_01', 'ExtUtils::MM_NW5' => '6.61_01', 'ExtUtils::MM_OS2' => '6.61_01', 'ExtUtils::MM_QNX' => '6.61_01', 'ExtUtils::MM_UWIN' => '6.61_01', 'ExtUtils::MM_Unix' => '6.61_01', 'ExtUtils::MM_VMS' => '6.61_01', 'ExtUtils::MM_VOS' => '6.61_01', 'ExtUtils::MM_Win32' => '6.61_01', 'ExtUtils::MM_Win95' => '6.61_01', 'ExtUtils::MY' => '6.61_01', 'ExtUtils::MakeMaker' => '6.61_01', 'ExtUtils::MakeMaker::Config'=> '6.61_01', 'ExtUtils::Mkbootstrap' => '6.61_01', 'ExtUtils::Mksymlists' => '6.61_01', 'ExtUtils::ParseXS' => '3.05', 'ExtUtils::ParseXS::Constants'=> '3.05', 'ExtUtils::ParseXS::CountLines'=> '3.05', 'ExtUtils::ParseXS::Utilities'=> '3.05', 'ExtUtils::testlib' => '6.61_01', 'File::DosGlob' => '1.05', 'Module::CoreList' => '2.57', 'Module::Load' => '0.22', 'Unicode::Collate' => '0.80', 'Unicode::Collate::Locale'=> '0.80', 'Unicode::UCD' => '0.36', 'XS::APItest' => '0.32', 'XS::Typemap' => '0.07', 'attributes' => '0.17', 'base' => '2.18', 'constant' => '1.23', 'mro' => '1.09', 'open' => '1.10', 'perlfaq' => '5.0150035', }, removed => { } }, 5.015005 => { delta_from => 5.015004, changed => { 'Archive::Extract' => '0.58', 'B::Concise' => '0.87', 'B::Deparse' => '1.09', 'CGI' => '3.58', 'CGI::Fast' => '1.09', 'CPANPLUS' => '0.9112', 'CPANPLUS::Dist::Build' => '0.60', 'CPANPLUS::Dist::Build::Constants'=> '0.60', 'CPANPLUS::Internals' => '0.9112', 'CPANPLUS::Shell::Default'=> '0.9112', 'Compress::Raw::Bzip2' => '2.042', 'Compress::Raw::Zlib' => '2.042', 'Compress::Zlib' => '2.042', 'Digest::SHA' => '5.63', 'Errno' => '1.15', 'ExtUtils::Command::MM' => '6.63_02', 'ExtUtils::Liblist' => '6.63_02', 'ExtUtils::Liblist::Kid'=> '6.63_02', 'ExtUtils::MM' => '6.63_02', 'ExtUtils::MM_AIX' => '6.63_02', 'ExtUtils::MM_Any' => '6.63_02', 'ExtUtils::MM_BeOS' => '6.63_02', 'ExtUtils::MM_Cygwin' => '6.63_02', 'ExtUtils::MM_DOS' => '6.63_02', 'ExtUtils::MM_Darwin' => '6.63_02', 'ExtUtils::MM_MacOS' => '6.63_02', 'ExtUtils::MM_NW5' => '6.63_02', 'ExtUtils::MM_OS2' => '6.63_02', 'ExtUtils::MM_QNX' => '6.63_02', 'ExtUtils::MM_UWIN' => '6.63_02', 'ExtUtils::MM_Unix' => '6.63_02', 'ExtUtils::MM_VMS' => '6.63_02', 'ExtUtils::MM_VOS' => '6.63_02', 'ExtUtils::MM_Win32' => '6.63_02', 'ExtUtils::MM_Win95' => '6.63_02', 'ExtUtils::MY' => '6.63_02', 'ExtUtils::MakeMaker' => '6.63_02', 'ExtUtils::MakeMaker::Config'=> '6.63_02', 'ExtUtils::Mkbootstrap' => '6.63_02', 'ExtUtils::Mksymlists' => '6.63_02', 'ExtUtils::testlib' => '6.63_02', 'File::DosGlob' => '1.06', 'File::Glob' => '1.14', 'HTTP::Tiny' => '0.016', 'IO::Compress::Adapter::Bzip2'=> '2.042', 'IO::Compress::Adapter::Deflate'=> '2.042', 'IO::Compress::Adapter::Identity'=> '2.042', 'IO::Compress::Base' => '2.042', 'IO::Compress::Base::Common'=> '2.042', 'IO::Compress::Bzip2' => '2.042', 'IO::Compress::Deflate' => '2.042', 'IO::Compress::Gzip' => '2.042', 'IO::Compress::Gzip::Constants'=> '2.042', 'IO::Compress::RawDeflate'=> '2.042', 'IO::Compress::Zip' => '2.042', 'IO::Compress::Zip::Constants'=> '2.042', 'IO::Compress::Zlib::Constants'=> '2.042', 'IO::Compress::Zlib::Extra'=> '2.042', 'IO::Uncompress::Adapter::Bunzip2'=> '2.042', 'IO::Uncompress::Adapter::Identity'=> '2.042', 'IO::Uncompress::Adapter::Inflate'=> '2.042', 'IO::Uncompress::AnyInflate'=> '2.042', 'IO::Uncompress::AnyUncompress'=> '2.042', 'IO::Uncompress::Base' => '2.042', 'IO::Uncompress::Bunzip2'=> '2.042', 'IO::Uncompress::Gunzip'=> '2.042', 'IO::Uncompress::Inflate'=> '2.042', 'IO::Uncompress::RawInflate'=> '2.042', 'IO::Uncompress::Unzip' => '2.042', 'Locale::Maketext' => '1.20', 'Locale::Maketext::Guts'=> '1.20', 'Locale::Maketext::GutsLoader'=> '1.20', 'Module::CoreList' => '2.58', 'Opcode' => '1.21', 'Socket' => '1.94_02', 'Storable' => '2.33', 'UNIVERSAL' => '1.10', 'Unicode::Collate' => '0.85', 'Unicode::Collate::CJK::Pinyin'=> '0.85', 'Unicode::Collate::CJK::Stroke'=> '0.85', 'Unicode::Collate::Locale'=> '0.85', 'Unicode::UCD' => '0.37', 'XS::APItest' => '0.33', 'arybase' => '0.01', 'charnames' => '1.24', 'feature' => '1.23', 'perlfaq' => '5.0150036', 'strict' => '1.05', 'unicore::Name' => undef, }, removed => { } }, 5.015006 => { delta_from => 5.015005, changed => { 'Archive::Tar' => '1.82', 'Archive::Tar::Constant'=> '1.82', 'Archive::Tar::File' => '1.82', 'AutoLoader' => '5.72', 'B::Concise' => '0.88', 'B::Debug' => '1.17', 'B::Deparse' => '1.10', 'CPAN::Meta::YAML' => '0.005', 'CPANPLUS' => '0.9113', 'CPANPLUS::Internals' => '0.9113', 'CPANPLUS::Shell::Default'=> '0.9113', 'Carp' => '1.24', 'Compress::Raw::Bzip2' => '2.045', 'Compress::Raw::Zlib' => '2.045', 'Compress::Zlib' => '2.045', 'Cwd' => '3.38', 'DB' => '1.04', 'Data::Dumper' => '2.135_01', 'Digest::SHA' => '5.70', 'Dumpvalue' => '1.17', 'Exporter' => '5.66', 'Exporter::Heavy' => '5.66', 'ExtUtils::CBuilder' => '0.280205', 'ExtUtils::CBuilder::Platform::os2'=> '0.280204', 'ExtUtils::Packlist' => '1.45', 'ExtUtils::ParseXS' => '3.08', 'ExtUtils::ParseXS::Constants'=> '3.08', 'ExtUtils::ParseXS::CountLines'=> '3.08', 'ExtUtils::ParseXS::Utilities'=> '3.08', 'File::Basename' => '2.84', 'File::Glob' => '1.15', 'File::Spec::Unix' => '3.35', 'Getopt::Std' => '1.07', 'I18N::LangTags' => '0.38', 'IO::Compress::Adapter::Bzip2'=> '2.045', 'IO::Compress::Adapter::Deflate'=> '2.045', 'IO::Compress::Adapter::Identity'=> '2.045', 'IO::Compress::Base' => '2.046', 'IO::Compress::Base::Common'=> '2.045', 'IO::Compress::Bzip2' => '2.045', 'IO::Compress::Deflate' => '2.045', 'IO::Compress::Gzip' => '2.045', 'IO::Compress::Gzip::Constants'=> '2.045', 'IO::Compress::RawDeflate'=> '2.045', 'IO::Compress::Zip' => '2.046', 'IO::Compress::Zip::Constants'=> '2.045', 'IO::Compress::Zlib::Constants'=> '2.045', 'IO::Compress::Zlib::Extra'=> '2.045', 'IO::Dir' => '1.09', 'IO::File' => '1.16', 'IO::Uncompress::Adapter::Bunzip2'=> '2.045', 'IO::Uncompress::Adapter::Identity'=> '2.045', 'IO::Uncompress::Adapter::Inflate'=> '2.045', 'IO::Uncompress::AnyInflate'=> '2.045', 'IO::Uncompress::AnyUncompress'=> '2.045', 'IO::Uncompress::Base' => '2.046', 'IO::Uncompress::Bunzip2'=> '2.045', 'IO::Uncompress::Gunzip'=> '2.045', 'IO::Uncompress::Inflate'=> '2.045', 'IO::Uncompress::RawInflate'=> '2.045', 'IO::Uncompress::Unzip' => '2.046', 'Locale::Codes' => '3.20', 'Locale::Codes::Constants'=> '3.20', 'Locale::Codes::Country'=> '3.20', 'Locale::Codes::Country_Codes'=> '3.20', 'Locale::Codes::Country_Retired'=> '3.20', 'Locale::Codes::Currency'=> '3.20', 'Locale::Codes::Currency_Codes'=> '3.20', 'Locale::Codes::Currency_Retired'=> '3.20', 'Locale::Codes::LangExt'=> '3.20', 'Locale::Codes::LangExt_Codes'=> '3.20', 'Locale::Codes::LangExt_Retired'=> '3.20', 'Locale::Codes::LangFam'=> '3.20', 'Locale::Codes::LangFam_Codes'=> '3.20', 'Locale::Codes::LangFam_Retired'=> '3.20', 'Locale::Codes::LangVar'=> '3.20', 'Locale::Codes::LangVar_Codes'=> '3.20', 'Locale::Codes::LangVar_Retired'=> '3.20', 'Locale::Codes::Language'=> '3.20', 'Locale::Codes::Language_Codes'=> '3.20', 'Locale::Codes::Language_Retired'=> '3.20', 'Locale::Codes::Script' => '3.20', 'Locale::Codes::Script_Codes'=> '3.20', 'Locale::Codes::Script_Retired'=> '3.20', 'Locale::Country' => '3.20', 'Locale::Currency' => '3.20', 'Locale::Language' => '3.20', 'Locale::Maketext' => '1.21', 'Locale::Script' => '3.20', 'Module::CoreList' => '2.59', 'Module::Loaded' => '0.08', 'Opcode' => '1.22', 'POSIX' => '1.27', 'Pod::Html' => '1.12', 'Pod::LaTeX' => '0.60', 'Pod::Perldoc' => '3.15_08', 'Safe' => '2.30', 'SelfLoader' => '1.20', 'Socket' => '1.97', 'Storable' => '2.34', 'UNIVERSAL' => '1.11', 'Unicode::Collate' => '0.87', 'Unicode::Collate::Locale'=> '0.87', 'XS::APItest' => '0.34', 'arybase' => '0.02', 'charnames' => '1.27', 'diagnostics' => '1.26', 'feature' => '1.24', 'if' => '0.0602', 'overload' => '1.16', 'sigtrap' => '1.06', 'strict' => '1.06', 'threads' => '1.86', 'version' => '0.96', }, removed => { } }, 5.015007 => { delta_from => 5.015006, changed => { 'B' => '1.33', 'B::Deparse' => '1.11', 'CGI' => '3.59', 'CPAN::Meta' => '2.113640', 'CPAN::Meta::Converter' => '2.113640', 'CPAN::Meta::Feature' => '2.113640', 'CPAN::Meta::History' => '2.113640', 'CPAN::Meta::Prereqs' => '2.113640', 'CPAN::Meta::Requirements'=> '2.113640', 'CPAN::Meta::Spec' => '2.113640', 'CPAN::Meta::Validator' => '2.113640', 'CPANPLUS' => '0.9116', 'CPANPLUS::Internals' => '0.9116', 'CPANPLUS::Shell::Default'=> '0.9116', 'Cwd' => '3.39_01', 'Data::Dumper' => '2.135_03', 'Devel::InnerPackage' => '0.4', 'ExtUtils::CBuilder::Base'=> '0.280205', 'ExtUtils::CBuilder::Platform::Unix'=> '0.280205', 'ExtUtils::CBuilder::Platform::VMS'=> '0.280205', 'ExtUtils::CBuilder::Platform::Windows'=> '0.280205', 'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280205', 'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280205', 'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280205', 'ExtUtils::CBuilder::Platform::aix'=> '0.280205', 'ExtUtils::CBuilder::Platform::cygwin'=> '0.280205', 'ExtUtils::CBuilder::Platform::darwin'=> '0.280205', 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280205', 'ExtUtils::CBuilder::Platform::os2'=> '0.280205', 'ExtUtils::Manifest' => '1.61', 'ExtUtils::Packlist' => '1.46', 'ExtUtils::ParseXS' => '3.12', 'ExtUtils::ParseXS::Constants'=> '3.12', 'ExtUtils::ParseXS::CountLines'=> '3.12', 'ExtUtils::ParseXS::Utilities'=> '3.12', 'ExtUtils::Typemaps' => '1.03', 'ExtUtils::Typemaps::Cmd'=> undef, 'ExtUtils::Typemaps::Type'=> '0.06', 'File::Glob' => '1.16', 'File::Spec' => '3.39_01', 'File::Spec::Cygwin' => '3.39_01', 'File::Spec::Epoc' => '3.39_01', 'File::Spec::Functions' => '3.39_01', 'File::Spec::Mac' => '3.39_01', 'File::Spec::OS2' => '3.39_01', 'File::Spec::Unix' => '3.39_01', 'File::Spec::VMS' => '3.39_01', 'File::Spec::Win32' => '3.39_01', 'IO::Dir' => '1.10', 'IO::Pipe' => '1.15', 'IO::Poll' => '0.09', 'IO::Select' => '1.21', 'IO::Socket' => '1.34', 'IO::Socket::INET' => '1.33', 'IO::Socket::UNIX' => '1.24', 'Locale::Maketext' => '1.22', 'Math::BigInt' => '1.998', 'Module::CoreList' => '2.60', 'Module::Pluggable' => '4.0', 'POSIX' => '1.28', 'PerlIO::scalar' => '0.13', 'Pod::Html' => '1.13', 'Pod::Perldoc' => '3.15_15', 'Pod::Perldoc::BaseTo' => '3.15_15', 'Pod::Perldoc::GetOptsOO'=> '3.15_15', 'Pod::Perldoc::ToANSI' => '3.15_15', 'Pod::Perldoc::ToChecker'=> '3.15_15', 'Pod::Perldoc::ToMan' => '3.15_15', 'Pod::Perldoc::ToNroff' => '3.15_15', 'Pod::Perldoc::ToPod' => '3.15_15', 'Pod::Perldoc::ToRtf' => '3.15_15', 'Pod::Perldoc::ToTerm' => '3.15_15', 'Pod::Perldoc::ToText' => '3.15_15', 'Pod::Perldoc::ToTk' => '3.15_15', 'Pod::Perldoc::ToXml' => '3.15_15', 'Term::UI' => '0.30', 'Tie::File' => '0.98', 'Unicode::UCD' => '0.39', 'Version::Requirements' => '0.101021', 'XS::APItest' => '0.35', '_charnames' => '1.28', 'arybase' => '0.03', 'autouse' => '1.07', 'charnames' => '1.28', 'diagnostics' => '1.27', 'feature' => '1.25', 'overload' => '1.17', 'overloading' => '0.02', 'perlfaq' => '5.0150038', }, removed => { } }, 5.015008 => { delta_from => 5.015007, changed => { 'B' => '1.34', 'B::Deparse' => '1.12', 'CPAN::Meta' => '2.120351', 'CPAN::Meta::Converter' => '2.120351', 'CPAN::Meta::Feature' => '2.120351', 'CPAN::Meta::History' => '2.120351', 'CPAN::Meta::Prereqs' => '2.120351', 'CPAN::Meta::Requirements'=> '2.120351', 'CPAN::Meta::Spec' => '2.120351', 'CPAN::Meta::Validator' => '2.120351', 'CPAN::Meta::YAML' => '0.007', 'CPANPLUS' => '0.9118', 'CPANPLUS::Dist::Build' => '0.62', 'CPANPLUS::Dist::Build::Constants'=> '0.62', 'CPANPLUS::Internals' => '0.9118', 'CPANPLUS::Shell::Default'=> '0.9118', 'Carp' => '1.25', 'Carp::Heavy' => '1.25', 'Compress::Raw::Bzip2' => '2.048', 'Compress::Raw::Zlib' => '2.048', 'Compress::Zlib' => '2.048', 'Cwd' => '3.39_02', 'DB_File' => '1.826', 'Data::Dumper' => '2.135_05', 'English' => '1.05', 'ExtUtils::Install' => '1.58', 'ExtUtils::ParseXS' => '3.16', 'ExtUtils::ParseXS::Constants'=> '3.16', 'ExtUtils::ParseXS::CountLines'=> '3.16', 'ExtUtils::ParseXS::Utilities'=> '3.16', 'ExtUtils::Typemaps' => '3.16', 'ExtUtils::Typemaps::Cmd'=> '3.16', 'ExtUtils::Typemaps::InputMap'=> '3.16', 'ExtUtils::Typemaps::OutputMap'=> '3.16', 'ExtUtils::Typemaps::Type'=> '3.16', 'File::Copy' => '2.23', 'File::Glob' => '1.17', 'File::Spec' => '3.39_02', 'File::Spec::Cygwin' => '3.39_02', 'File::Spec::Epoc' => '3.39_02', 'File::Spec::Functions' => '3.39_02', 'File::Spec::Mac' => '3.39_02', 'File::Spec::OS2' => '3.39_02', 'File::Spec::Unix' => '3.39_02', 'File::Spec::VMS' => '3.39_02', 'File::Spec::Win32' => '3.39_02', 'Filter::Util::Call' => '1.40', 'IO::Compress::Adapter::Bzip2'=> '2.048', 'IO::Compress::Adapter::Deflate'=> '2.048', 'IO::Compress::Adapter::Identity'=> '2.048', 'IO::Compress::Base' => '2.048', 'IO::Compress::Base::Common'=> '2.048', 'IO::Compress::Bzip2' => '2.048', 'IO::Compress::Deflate' => '2.048', 'IO::Compress::Gzip' => '2.048', 'IO::Compress::Gzip::Constants'=> '2.048', 'IO::Compress::RawDeflate'=> '2.048', 'IO::Compress::Zip' => '2.048', 'IO::Compress::Zip::Constants'=> '2.048', 'IO::Compress::Zlib::Constants'=> '2.048', 'IO::Compress::Zlib::Extra'=> '2.048', 'IO::Uncompress::Adapter::Bunzip2'=> '2.048', 'IO::Uncompress::Adapter::Identity'=> '2.048', 'IO::Uncompress::Adapter::Inflate'=> '2.048', 'IO::Uncompress::AnyInflate'=> '2.048', 'IO::Uncompress::AnyUncompress'=> '2.048', 'IO::Uncompress::Base' => '2.048', 'IO::Uncompress::Bunzip2'=> '2.048', 'IO::Uncompress::Gunzip'=> '2.048', 'IO::Uncompress::Inflate'=> '2.048', 'IO::Uncompress::RawInflate'=> '2.048', 'IO::Uncompress::Unzip' => '2.048', 'IPC::Cmd' => '0.76', 'Math::Complex' => '1.59', 'Math::Trig' => '1.23', 'Module::Metadata' => '1.000009', 'Opcode' => '1.23', 'POSIX' => '1.30', 'Parse::CPAN::Meta' => '1.4402', 'PerlIO::mmap' => '0.010', 'Pod::Checker' => '1.51', 'Pod::Find' => '1.51', 'Pod::Functions' => '1.05', 'Pod::Html' => '1.14', 'Pod::InputObjects' => '1.51', 'Pod::ParseUtils' => '1.51', 'Pod::Parser' => '1.51', 'Pod::PlainText' => '2.05', 'Pod::Select' => '1.51', 'Pod::Usage' => '1.51', 'Safe' => '2.31', 'Socket' => '1.98', 'Term::Cap' => '1.13', 'Term::ReadLine' => '1.08', 'Time::HiRes' => '1.9725', 'Unicode' => '6.1.0', 'Unicode::UCD' => '0.41', 'Version::Requirements' => '0.101022', 'XS::APItest' => '0.36', 'XS::Typemap' => '0.08', '_charnames' => '1.29', 'arybase' => '0.04', 'charnames' => '1.29', 'diagnostics' => '1.28', 'feature' => '1.26', 'locale' => '1.01', 'overload' => '1.18', 'perlfaq' => '5.0150039', 're' => '0.19', 'subs' => '1.01', 'warnings' => '1.13', }, removed => { } }, 5.015009 => { delta_from => 5.015008, changed => { 'B::Deparse' => '1.13', 'B::Lint' => '1.14', 'B::Lint::Debug' => '1.14', 'CPAN::Meta' => '2.120630', 'CPAN::Meta::Converter' => '2.120630', 'CPAN::Meta::Feature' => '2.120630', 'CPAN::Meta::History' => '2.120630', 'CPAN::Meta::Prereqs' => '2.120630', 'CPAN::Meta::Requirements'=> '2.120630', 'CPAN::Meta::Spec' => '2.120630', 'CPAN::Meta::Validator' => '2.120630', 'CPANPLUS' => '0.9121', 'CPANPLUS::Internals' => '0.9121', 'CPANPLUS::Shell::Default'=> '0.9121', 'Data::Dumper' => '2.135_06', 'Digest::SHA' => '5.71', 'ExtUtils::CBuilder' => '0.280206', 'ExtUtils::CBuilder::Base'=> '0.280206', 'ExtUtils::CBuilder::Platform::Unix'=> '0.280206', 'ExtUtils::CBuilder::Platform::VMS'=> '0.280206', 'ExtUtils::CBuilder::Platform::Windows'=> '0.280206', 'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280206', 'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280206', 'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280206', 'ExtUtils::CBuilder::Platform::aix'=> '0.280206', 'ExtUtils::CBuilder::Platform::cygwin'=> '0.280206', 'ExtUtils::CBuilder::Platform::darwin'=> '0.280206', 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280206', 'ExtUtils::CBuilder::Platform::os2'=> '0.280206', 'HTTP::Tiny' => '0.017', 'Locale::Codes' => '3.21', 'Locale::Codes::Constants'=> '3.21', 'Locale::Codes::Country'=> '3.21', 'Locale::Codes::Country_Codes'=> '3.21', 'Locale::Codes::Country_Retired'=> '3.21', 'Locale::Codes::Currency'=> '3.21', 'Locale::Codes::Currency_Codes'=> '3.21', 'Locale::Codes::Currency_Retired'=> '3.21', 'Locale::Codes::LangExt'=> '3.21', 'Locale::Codes::LangExt_Codes'=> '3.21', 'Locale::Codes::LangExt_Retired'=> '3.21', 'Locale::Codes::LangFam'=> '3.21', 'Locale::Codes::LangFam_Codes'=> '3.21', 'Locale::Codes::LangFam_Retired'=> '3.21', 'Locale::Codes::LangVar'=> '3.21', 'Locale::Codes::LangVar_Codes'=> '3.21', 'Locale::Codes::LangVar_Retired'=> '3.21', 'Locale::Codes::Language'=> '3.21', 'Locale::Codes::Language_Codes'=> '3.21', 'Locale::Codes::Language_Retired'=> '3.21', 'Locale::Codes::Script' => '3.21', 'Locale::Codes::Script_Codes'=> '3.21', 'Locale::Codes::Script_Retired'=> '3.21', 'Locale::Country' => '3.21', 'Locale::Currency' => '3.21', 'Locale::Language' => '3.21', 'Locale::Script' => '3.21', 'Module::CoreList' => '2.65', 'Pod::Html' => '1.1501', 'Pod::Perldoc' => '3.17', 'Pod::Perldoc::BaseTo' => '3.17', 'Pod::Perldoc::GetOptsOO'=> '3.17', 'Pod::Perldoc::ToANSI' => '3.17', 'Pod::Perldoc::ToChecker'=> '3.17', 'Pod::Perldoc::ToMan' => '3.17', 'Pod::Perldoc::ToNroff' => '3.17', 'Pod::Perldoc::ToPod' => '3.17', 'Pod::Perldoc::ToRtf' => '3.17', 'Pod::Perldoc::ToTerm' => '3.17', 'Pod::Perldoc::ToText' => '3.17', 'Pod::Perldoc::ToTk' => '3.17', 'Pod::Perldoc::ToXml' => '3.17', 'Pod::Simple' => '3.20', 'Pod::Simple::BlackBox' => '3.20', 'Pod::Simple::Checker' => '3.20', 'Pod::Simple::Debug' => '3.20', 'Pod::Simple::DumpAsText'=> '3.20', 'Pod::Simple::DumpAsXML'=> '3.20', 'Pod::Simple::HTML' => '3.20', 'Pod::Simple::HTMLBatch'=> '3.20', 'Pod::Simple::LinkSection'=> '3.20', 'Pod::Simple::Methody' => '3.20', 'Pod::Simple::Progress' => '3.20', 'Pod::Simple::PullParser'=> '3.20', 'Pod::Simple::PullParserEndToken'=> '3.20', 'Pod::Simple::PullParserStartToken'=> '3.20', 'Pod::Simple::PullParserTextToken'=> '3.20', 'Pod::Simple::PullParserToken'=> '3.20', 'Pod::Simple::RTF' => '3.20', 'Pod::Simple::Search' => '3.20', 'Pod::Simple::SimpleTree'=> '3.20', 'Pod::Simple::Text' => '3.20', 'Pod::Simple::TextContent'=> '3.20', 'Pod::Simple::TiedOutFH'=> '3.20', 'Pod::Simple::Transcode'=> '3.20', 'Pod::Simple::TranscodeDumb'=> '3.20', 'Pod::Simple::TranscodeSmart'=> '3.20', 'Pod::Simple::XHTML' => '3.20', 'Pod::Simple::XMLOutStream'=> '3.20', 'Socket' => '2.000', 'Term::ReadLine' => '1.09', 'Unicode::Collate' => '0.89', 'Unicode::Collate::CJK::Korean'=> '0.88', 'Unicode::Collate::Locale'=> '0.89', 'Unicode::Normalize' => '1.14', 'Unicode::UCD' => '0.42', 'XS::APItest' => '0.37', 'arybase' => '0.05', 'attributes' => '0.18', 'charnames' => '1.30', 'feature' => '1.27', }, removed => { } }, 5.016 => { delta_from => 5.015009, changed => { 'B::Concise' => '0.89', 'B::Deparse' => '1.14', 'Carp' => '1.26', 'Carp::Heavy' => '1.26', 'IO::Socket' => '1.35', 'Module::CoreList' => '2.66', 'PerlIO::scalar' => '0.14', 'Pod::Html' => '1.1502', 'Safe' => '2.31_01', 'Socket' => '2.001', 'Unicode::UCD' => '0.43', 'XS::APItest' => '0.38', '_charnames' => '1.31', 'attributes' => '0.19', 'strict' => '1.07', 'version' => '0.99', }, removed => { } }, 5.016001 => { delta_from => 5.016, changed => { 'B' => '1.35', 'B::Deparse' => '1.14_01', 'List::Util' => '1.25', 'List::Util::PP' => '1.25', 'List::Util::XS' => '1.25', 'Module::CoreList' => '2.70', 'PerlIO::scalar' => '0.14_01', 'Scalar::Util' => '1.25', 'Scalar::Util::PP' => '1.25', 're' => '0.19_01', }, removed => { } }, 5.016002 => { delta_from => 5.016001, changed => { 'Module::CoreList' => '2.76', }, removed => { } }, 5.016003 => { delta_from => 5.016002, changed => { 'Encode' => '2.44_01', 'Module::CoreList' => '2.76_02', 'XS::APItest' => '0.39', }, removed => { } }, 5.017 => { delta_from => 5.016, changed => { 'B' => '1.35', 'B::Concise' => '0.90', 'ExtUtils::ParseXS' => '3.17', 'ExtUtils::ParseXS::Utilities'=> '3.17', 'File::DosGlob' => '1.07', 'File::Find' => '1.21', 'File::stat' => '1.06', 'Hash::Util' => '0.12', 'IO::Socket' => '1.34', 'Module::CoreList' => '2.67', 'Pod::Functions' => '1.06', 'Storable' => '2.35', 'XS::APItest' => '0.39', 'diagnostics' => '1.29', 'feature' => '1.28', 'overload' => '1.19', 'utf8' => '1.10', }, removed => { 'Version::Requirements' => 1, } }, 5.017001 => { delta_from => 5.017, changed => { 'App::Prove' => '3.25', 'App::Prove::State' => '3.25', 'App::Prove::State::Result'=> '3.25', 'App::Prove::State::Result::Test'=> '3.25', 'Archive::Extract' => '0.60', 'Archive::Tar' => '1.88', 'Archive::Tar::Constant'=> '1.88', 'Archive::Tar::File' => '1.88', 'B' => '1.36', 'B::Deparse' => '1.15', 'CPAN::Meta' => '2.120921', 'CPAN::Meta::Converter' => '2.120921', 'CPAN::Meta::Feature' => '2.120921', 'CPAN::Meta::History' => '2.120921', 'CPAN::Meta::Prereqs' => '2.120921', 'CPAN::Meta::Requirements'=> '2.122', 'CPAN::Meta::Spec' => '2.120921', 'CPAN::Meta::Validator' => '2.120921', 'CPAN::Meta::YAML' => '0.008', 'CPANPLUS' => '0.9130', 'CPANPLUS::Config::HomeEnv'=> '0.04', 'CPANPLUS::Internals' => '0.9130', 'CPANPLUS::Shell::Default'=> '0.9130', 'Class::Struct' => '0.64', 'Compress::Raw::Bzip2' => '2.052', 'Compress::Raw::Zlib' => '2.054', 'Compress::Zlib' => '2.052', 'Digest::MD5' => '2.52', 'DynaLoader' => '1.15', 'ExtUtils::CBuilder' => '0.280208', 'ExtUtils::CBuilder::Base'=> '0.280208', 'ExtUtils::CBuilder::Platform::Unix'=> '0.280208', 'ExtUtils::CBuilder::Platform::VMS'=> '0.280208', 'ExtUtils::CBuilder::Platform::Windows'=> '0.280208', 'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280208', 'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280208', 'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280208', 'ExtUtils::CBuilder::Platform::aix'=> '0.280208', 'ExtUtils::CBuilder::Platform::cygwin'=> '0.280208', 'ExtUtils::CBuilder::Platform::darwin'=> '0.280208', 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280208', 'ExtUtils::CBuilder::Platform::os2'=> '0.280208', 'Fatal' => '2.11', 'File::DosGlob' => '1.08', 'File::Fetch' => '0.34', 'File::Spec::Unix' => '3.39_03', 'Filter::Util::Call' => '1.45', 'HTTP::Tiny' => '0.022', 'IO' => '1.25_07', 'IO::Compress::Adapter::Bzip2'=> '2.052', 'IO::Compress::Adapter::Deflate'=> '2.052', 'IO::Compress::Adapter::Identity'=> '2.052', 'IO::Compress::Base' => '2.052', 'IO::Compress::Base::Common'=> '2.052', 'IO::Compress::Bzip2' => '2.052', 'IO::Compress::Deflate' => '2.052', 'IO::Compress::Gzip' => '2.052', 'IO::Compress::Gzip::Constants'=> '2.052', 'IO::Compress::RawDeflate'=> '2.052', 'IO::Compress::Zip' => '2.052', 'IO::Compress::Zip::Constants'=> '2.052', 'IO::Compress::Zlib::Constants'=> '2.052', 'IO::Compress::Zlib::Extra'=> '2.052', 'IO::Uncompress::Adapter::Bunzip2'=> '2.052', 'IO::Uncompress::Adapter::Identity'=> '2.052', 'IO::Uncompress::Adapter::Inflate'=> '2.052', 'IO::Uncompress::AnyInflate'=> '2.052', 'IO::Uncompress::AnyUncompress'=> '2.052', 'IO::Uncompress::Base' => '2.052', 'IO::Uncompress::Bunzip2'=> '2.052', 'IO::Uncompress::Gunzip'=> '2.052', 'IO::Uncompress::Inflate'=> '2.052', 'IO::Uncompress::RawInflate'=> '2.052', 'IO::Uncompress::Unzip' => '2.052', 'IPC::Cmd' => '0.78', 'List::Util' => '1.25', 'List::Util::XS' => '1.25', 'Locale::Codes' => '3.22', 'Locale::Codes::Constants'=> '3.22', 'Locale::Codes::Country'=> '3.22', 'Locale::Codes::Country_Codes'=> '3.22', 'Locale::Codes::Country_Retired'=> '3.22', 'Locale::Codes::Currency'=> '3.22', 'Locale::Codes::Currency_Codes'=> '3.22', 'Locale::Codes::Currency_Retired'=> '3.22', 'Locale::Codes::LangExt'=> '3.22', 'Locale::Codes::LangExt_Codes'=> '3.22', 'Locale::Codes::LangExt_Retired'=> '3.22', 'Locale::Codes::LangFam'=> '3.22', 'Locale::Codes::LangFam_Codes'=> '3.22', 'Locale::Codes::LangFam_Retired'=> '3.22', 'Locale::Codes::LangVar'=> '3.22', 'Locale::Codes::LangVar_Codes'=> '3.22', 'Locale::Codes::LangVar_Retired'=> '3.22', 'Locale::Codes::Language'=> '3.22', 'Locale::Codes::Language_Codes'=> '3.22', 'Locale::Codes::Language_Retired'=> '3.22', 'Locale::Codes::Script' => '3.22', 'Locale::Codes::Script_Codes'=> '3.22', 'Locale::Codes::Script_Retired'=> '3.22', 'Locale::Country' => '3.22', 'Locale::Currency' => '3.22', 'Locale::Language' => '3.22', 'Locale::Script' => '3.22', 'Memoize' => '1.03', 'Memoize::AnyDBM_File' => '1.03', 'Memoize::Expire' => '1.03', 'Memoize::ExpireFile' => '1.03', 'Memoize::ExpireTest' => '1.03', 'Memoize::NDBM_File' => '1.03', 'Memoize::SDBM_File' => '1.03', 'Memoize::Storable' => '1.03', 'Module::Build' => '0.40', 'Module::Build::Base' => '0.40', 'Module::Build::Compat' => '0.40', 'Module::Build::Config' => '0.40', 'Module::Build::Cookbook'=> '0.40', 'Module::Build::Dumper' => '0.40', 'Module::Build::ModuleInfo'=> '0.40', 'Module::Build::Notes' => '0.40', 'Module::Build::PPMMaker'=> '0.40', 'Module::Build::Platform::Amiga'=> '0.40', 'Module::Build::Platform::Default'=> '0.40', 'Module::Build::Platform::EBCDIC'=> '0.40', 'Module::Build::Platform::MPEiX'=> '0.40', 'Module::Build::Platform::MacOS'=> '0.40', 'Module::Build::Platform::RiscOS'=> '0.40', 'Module::Build::Platform::Unix'=> '0.40', 'Module::Build::Platform::VMS'=> '0.40', 'Module::Build::Platform::VOS'=> '0.40', 'Module::Build::Platform::Windows'=> '0.40', 'Module::Build::Platform::aix'=> '0.40', 'Module::Build::Platform::cygwin'=> '0.40', 'Module::Build::Platform::darwin'=> '0.40', 'Module::Build::Platform::os2'=> '0.40', 'Module::Build::PodParser'=> '0.40', 'Module::CoreList' => '2.68', 'Module::Load::Conditional'=> '0.50', 'Object::Accessor' => '0.44', 'POSIX' => '1.31', 'Params::Check' => '0.36', 'Parse::CPAN::Meta' => '1.4404', 'PerlIO::mmap' => '0.011', 'PerlIO::via::QuotedPrint'=> '0.07', 'Pod::Html' => '1.16', 'Pod::Man' => '2.26', 'Pod::Text' => '3.16', 'Safe' => '2.33_01', 'Scalar::Util' => '1.25', 'Search::Dict' => '1.07', 'Storable' => '2.36', 'TAP::Base' => '3.25', 'TAP::Formatter::Base' => '3.25', 'TAP::Formatter::Color' => '3.25', 'TAP::Formatter::Console'=> '3.25', 'TAP::Formatter::Console::ParallelSession'=> '3.25', 'TAP::Formatter::Console::Session'=> '3.25', 'TAP::Formatter::File' => '3.25', 'TAP::Formatter::File::Session'=> '3.25', 'TAP::Formatter::Session'=> '3.25', 'TAP::Harness' => '3.25', 'TAP::Object' => '3.25', 'TAP::Parser' => '3.25', 'TAP::Parser::Aggregator'=> '3.25', 'TAP::Parser::Grammar' => '3.25', 'TAP::Parser::Iterator' => '3.25', 'TAP::Parser::Iterator::Array'=> '3.25', 'TAP::Parser::Iterator::Process'=> '3.25', 'TAP::Parser::Iterator::Stream'=> '3.25', 'TAP::Parser::IteratorFactory'=> '3.25', 'TAP::Parser::Multiplexer'=> '3.25', 'TAP::Parser::Result' => '3.25', 'TAP::Parser::Result::Bailout'=> '3.25', 'TAP::Parser::Result::Comment'=> '3.25', 'TAP::Parser::Result::Plan'=> '3.25', 'TAP::Parser::Result::Pragma'=> '3.25', 'TAP::Parser::Result::Test'=> '3.25', 'TAP::Parser::Result::Unknown'=> '3.25', 'TAP::Parser::Result::Version'=> '3.25', 'TAP::Parser::Result::YAML'=> '3.25', 'TAP::Parser::ResultFactory'=> '3.25', 'TAP::Parser::Scheduler'=> '3.25', 'TAP::Parser::Scheduler::Job'=> '3.25', 'TAP::Parser::Scheduler::Spinner'=> '3.25', 'TAP::Parser::Source' => '3.25', 'TAP::Parser::SourceHandler'=> '3.25', 'TAP::Parser::SourceHandler::Executable'=> '3.25', 'TAP::Parser::SourceHandler::File'=> '3.25', 'TAP::Parser::SourceHandler::Handle'=> '3.25', 'TAP::Parser::SourceHandler::Perl'=> '3.25', 'TAP::Parser::SourceHandler::RawTAP'=> '3.25', 'TAP::Parser::Utils' => '3.25', 'TAP::Parser::YAMLish::Reader'=> '3.25', 'TAP::Parser::YAMLish::Writer'=> '3.25', 'Term::ANSIColor' => '3.02', 'Test::Harness' => '3.25', 'Unicode' => '6.2.0', 'Unicode::UCD' => '0.44', 'XS::APItest' => '0.40', '_charnames' => '1.32', 'attributes' => '0.2', 'autodie' => '2.11', 'autodie::exception' => '2.11', 'autodie::exception::system'=> '2.11', 'autodie::hints' => '2.11', 'bigint' => '0.30', 'charnames' => '1.32', 'feature' => '1.29', 'inc::latest' => '0.40', 'perlfaq' => '5.0150040', 're' => '0.20', }, removed => { 'List::Util::PP' => 1, 'Scalar::Util::PP' => 1, } }, 5.017002 => { delta_from => 5.017001, changed => { 'App::Prove' => '3.25_01', 'App::Prove::State' => '3.25_01', 'App::Prove::State::Result'=> '3.25_01', 'App::Prove::State::Result::Test'=> '3.25_01', 'B::Concise' => '0.91', 'Compress::Raw::Bzip2' => '2.05201', 'Compress::Raw::Zlib' => '2.05401', 'Exporter' => '5.67', 'Exporter::Heavy' => '5.67', 'Fatal' => '2.12', 'File::Fetch' => '0.36', 'File::stat' => '1.07', 'IO' => '1.25_08', 'IO::Socket' => '1.35', 'Module::CoreList' => '2.69', 'PerlIO::scalar' => '0.15', 'Socket' => '2.002', 'Storable' => '2.37', 'TAP::Base' => '3.25_01', 'TAP::Formatter::Base' => '3.25_01', 'TAP::Formatter::Color' => '3.25_01', 'TAP::Formatter::Console'=> '3.25_01', 'TAP::Formatter::Console::ParallelSession'=> '3.25_01', 'TAP::Formatter::Console::Session'=> '3.25_01', 'TAP::Formatter::File' => '3.25_01', 'TAP::Formatter::File::Session'=> '3.25_01', 'TAP::Formatter::Session'=> '3.25_01', 'TAP::Harness' => '3.25_01', 'TAP::Object' => '3.25_01', 'TAP::Parser' => '3.25_01', 'TAP::Parser::Aggregator'=> '3.25_01', 'TAP::Parser::Grammar' => '3.25_01', 'TAP::Parser::Iterator' => '3.25_01', 'TAP::Parser::Iterator::Array'=> '3.25_01', 'TAP::Parser::Iterator::Process'=> '3.25_01', 'TAP::Parser::Iterator::Stream'=> '3.25_01', 'TAP::Parser::IteratorFactory'=> '3.25_01', 'TAP::Parser::Multiplexer'=> '3.25_01', 'TAP::Parser::Result' => '3.25_01', 'TAP::Parser::Result::Bailout'=> '3.25_01', 'TAP::Parser::Result::Comment'=> '3.25_01', 'TAP::Parser::Result::Plan'=> '3.25_01', 'TAP::Parser::Result::Pragma'=> '3.25_01', 'TAP::Parser::Result::Test'=> '3.25_01', 'TAP::Parser::Result::Unknown'=> '3.25_01', 'TAP::Parser::Result::Version'=> '3.25_01', 'TAP::Parser::Result::YAML'=> '3.25_01', 'TAP::Parser::ResultFactory'=> '3.25_01', 'TAP::Parser::Scheduler'=> '3.25_01', 'TAP::Parser::Scheduler::Job'=> '3.25_01', 'TAP::Parser::Scheduler::Spinner'=> '3.25_01', 'TAP::Parser::Source' => '3.25_01', 'TAP::Parser::SourceHandler'=> '3.25_01', 'TAP::Parser::SourceHandler::Executable'=> '3.25_01', 'TAP::Parser::SourceHandler::File'=> '3.25_01', 'TAP::Parser::SourceHandler::Handle'=> '3.25_01', 'TAP::Parser::SourceHandler::Perl'=> '3.25_01', 'TAP::Parser::SourceHandler::RawTAP'=> '3.25_01', 'TAP::Parser::Utils' => '3.25_01', 'TAP::Parser::YAMLish::Reader'=> '3.25_01', 'TAP::Parser::YAMLish::Writer'=> '3.25_01', 'Test::Harness' => '3.25_01', 'Tie::StdHandle' => '4.3', 'XS::APItest' => '0.41', 'autodie' => '2.12', 'autodie::exception' => '2.12', 'autodie::exception::system'=> '2.12', 'autodie::hints' => '2.12', 'diagnostics' => '1.30', 'overload' => '1.20', 're' => '0.21', 'vars' => '1.03', }, removed => { } }, 5.017003 => { delta_from => 5.017002, changed => { 'B' => '1.37', 'B::Concise' => '0.92', 'B::Debug' => '1.18', 'B::Deparse' => '1.16', 'CGI' => '3.60', 'Compress::Raw::Bzip2' => '2.055', 'Compress::Raw::Zlib' => '2.056', 'Compress::Zlib' => '2.055', 'Data::Dumper' => '2.135_07', 'Devel::Peek' => '1.09', 'Encode' => '2.47', 'Encode::Alias' => '2.16', 'Encode::GSM0338' => '2.02', 'Encode::Unicode::UTF7' => '2.06', 'IO::Compress::Adapter::Bzip2'=> '2.055', 'IO::Compress::Adapter::Deflate'=> '2.055', 'IO::Compress::Adapter::Identity'=> '2.055', 'IO::Compress::Base' => '2.055', 'IO::Compress::Base::Common'=> '2.055', 'IO::Compress::Bzip2' => '2.055', 'IO::Compress::Deflate' => '2.055', 'IO::Compress::Gzip' => '2.055', 'IO::Compress::Gzip::Constants'=> '2.055', 'IO::Compress::RawDeflate'=> '2.055', 'IO::Compress::Zip' => '2.055', 'IO::Compress::Zip::Constants'=> '2.055', 'IO::Compress::Zlib::Constants'=> '2.055', 'IO::Compress::Zlib::Extra'=> '2.055', 'IO::Uncompress::Adapter::Bunzip2'=> '2.055', 'IO::Uncompress::Adapter::Identity'=> '2.055', 'IO::Uncompress::Adapter::Inflate'=> '2.055', 'IO::Uncompress::AnyInflate'=> '2.055', 'IO::Uncompress::AnyUncompress'=> '2.055', 'IO::Uncompress::Base' => '2.055', 'IO::Uncompress::Bunzip2'=> '2.055', 'IO::Uncompress::Gunzip'=> '2.055', 'IO::Uncompress::Inflate'=> '2.055', 'IO::Uncompress::RawInflate'=> '2.055', 'IO::Uncompress::Unzip' => '2.055', 'Module::Build' => '0.4003', 'Module::Build::Base' => '0.4003', 'Module::Build::Compat' => '0.4003', 'Module::Build::Config' => '0.4003', 'Module::Build::Cookbook'=> '0.4003', 'Module::Build::Dumper' => '0.4003', 'Module::Build::ModuleInfo'=> '0.4003', 'Module::Build::Notes' => '0.4003', 'Module::Build::PPMMaker'=> '0.4003', 'Module::Build::Platform::Amiga'=> '0.4003', 'Module::Build::Platform::Default'=> '0.4003', 'Module::Build::Platform::EBCDIC'=> '0.4003', 'Module::Build::Platform::MPEiX'=> '0.4003', 'Module::Build::Platform::MacOS'=> '0.4003', 'Module::Build::Platform::RiscOS'=> '0.4003', 'Module::Build::Platform::Unix'=> '0.4003', 'Module::Build::Platform::VMS'=> '0.4003', 'Module::Build::Platform::VOS'=> '0.4003', 'Module::Build::Platform::Windows'=> '0.4003', 'Module::Build::Platform::aix'=> '0.4003', 'Module::Build::Platform::cygwin'=> '0.4003', 'Module::Build::Platform::darwin'=> '0.4003', 'Module::Build::Platform::os2'=> '0.4003', 'Module::Build::PodParser'=> '0.4003', 'Module::CoreList' => '2.71', 'Module::CoreList::TieHashDelta'=> '2.71', 'Module::Load::Conditional'=> '0.54', 'Module::Metadata' => '1.000011', 'Module::Pluggable' => '4.3', 'Module::Pluggable::Object'=> '4.3', 'Pod::Simple' => '3.23', 'Pod::Simple::BlackBox' => '3.23', 'Pod::Simple::Checker' => '3.23', 'Pod::Simple::Debug' => '3.23', 'Pod::Simple::DumpAsText'=> '3.23', 'Pod::Simple::DumpAsXML'=> '3.23', 'Pod::Simple::HTML' => '3.23', 'Pod::Simple::HTMLBatch'=> '3.23', 'Pod::Simple::LinkSection'=> '3.23', 'Pod::Simple::Methody' => '3.23', 'Pod::Simple::Progress' => '3.23', 'Pod::Simple::PullParser'=> '3.23', 'Pod::Simple::PullParserEndToken'=> '3.23', 'Pod::Simple::PullParserStartToken'=> '3.23', 'Pod::Simple::PullParserTextToken'=> '3.23', 'Pod::Simple::PullParserToken'=> '3.23', 'Pod::Simple::RTF' => '3.23', 'Pod::Simple::Search' => '3.23', 'Pod::Simple::SimpleTree'=> '3.23', 'Pod::Simple::Text' => '3.23', 'Pod::Simple::TextContent'=> '3.23', 'Pod::Simple::TiedOutFH'=> '3.23', 'Pod::Simple::Transcode'=> '3.23', 'Pod::Simple::TranscodeDumb'=> '3.23', 'Pod::Simple::TranscodeSmart'=> '3.23', 'Pod::Simple::XHTML' => '3.23', 'Pod::Simple::XMLOutStream'=> '3.23', 'Socket' => '2.004', 'Storable' => '2.38', 'Sys::Syslog' => '0.31', 'Term::ReadLine' => '1.10', 'Text::Tabs' => '2012.0818', 'Text::Wrap' => '2012.0818', 'Time::Local' => '1.2300', 'Unicode::UCD' => '0.45', 'Win32' => '0.45', 'Win32CORE' => '0.03', 'XS::APItest' => '0.42', 'inc::latest' => '0.4003', 'perlfaq' => '5.0150041', 're' => '0.22', }, removed => { } }, 5.017004 => { delta_from => 5.017003, changed => { 'Archive::Tar' => '1.90', 'Archive::Tar::Constant'=> '1.90', 'Archive::Tar::File' => '1.90', 'B' => '1.38', 'B::Concise' => '0.93', 'B::Deparse' => '1.17', 'B::Xref' => '1.04', 'CPANPLUS' => '0.9131', 'CPANPLUS::Internals' => '0.9131', 'CPANPLUS::Shell::Default'=> '0.9131', 'DB_File' => '1.827', 'Devel::Peek' => '1.10', 'DynaLoader' => '1.16', 'Errno' => '1.16', 'ExtUtils::ParseXS' => '3.18', 'ExtUtils::ParseXS::Constants'=> '3.18', 'ExtUtils::ParseXS::CountLines'=> '3.18', 'ExtUtils::ParseXS::Utilities'=> '3.18', 'File::Copy' => '2.24', 'File::Find' => '1.22', 'IPC::Open3' => '1.13', 'Locale::Codes' => '3.23', 'Locale::Codes::Constants'=> '3.23', 'Locale::Codes::Country'=> '3.23', 'Locale::Codes::Country_Codes'=> '3.23', 'Locale::Codes::Country_Retired'=> '3.23', 'Locale::Codes::Currency'=> '3.23', 'Locale::Codes::Currency_Codes'=> '3.23', 'Locale::Codes::Currency_Retired'=> '3.23', 'Locale::Codes::LangExt'=> '3.23', 'Locale::Codes::LangExt_Codes'=> '3.23', 'Locale::Codes::LangExt_Retired'=> '3.23', 'Locale::Codes::LangFam'=> '3.23', 'Locale::Codes::LangFam_Codes'=> '3.23', 'Locale::Codes::LangFam_Retired'=> '3.23', 'Locale::Codes::LangVar'=> '3.23', 'Locale::Codes::LangVar_Codes'=> '3.23', 'Locale::Codes::LangVar_Retired'=> '3.23', 'Locale::Codes::Language'=> '3.23', 'Locale::Codes::Language_Codes'=> '3.23', 'Locale::Codes::Language_Retired'=> '3.23', 'Locale::Codes::Script' => '3.23', 'Locale::Codes::Script_Codes'=> '3.23', 'Locale::Codes::Script_Retired'=> '3.23', 'Locale::Country' => '3.23', 'Locale::Currency' => '3.23', 'Locale::Language' => '3.23', 'Locale::Script' => '3.23', 'Math::BigFloat::Trace' => '0.30', 'Math::BigInt::Trace' => '0.30', 'Module::CoreList' => '2.73', 'Module::CoreList::TieHashDelta'=> '2.73', 'Opcode' => '1.24', 'Socket' => '2.006', 'Storable' => '2.39', 'Sys::Syslog' => '0.32', 'Unicode::UCD' => '0.46', 'XS::APItest' => '0.43', 'bignum' => '0.30', 'bigrat' => '0.30', 'constant' => '1.24', 'feature' => '1.30', 'threads::shared' => '1.41', 'version' => '0.9901', 'warnings' => '1.14', }, removed => { } }, 5.017005 => { delta_from => 5.017004, changed => { 'AutoLoader' => '5.73', 'B' => '1.39', 'B::Deparse' => '1.18', 'CPANPLUS' => '0.9133', 'CPANPLUS::Internals' => '0.9133', 'CPANPLUS::Shell::Default'=> '0.9133', 'Carp' => '1.27', 'Carp::Heavy' => '1.27', 'Data::Dumper' => '2.136', 'Digest::SHA' => '5.72', 'ExtUtils::CBuilder' => '0.280209', 'ExtUtils::CBuilder::Base'=> '0.280209', 'ExtUtils::CBuilder::Platform::Unix'=> '0.280209', 'ExtUtils::CBuilder::Platform::VMS'=> '0.280209', 'ExtUtils::CBuilder::Platform::Windows'=> '0.280209', 'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280209', 'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280209', 'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280209', 'ExtUtils::CBuilder::Platform::aix'=> '0.280209', 'ExtUtils::CBuilder::Platform::cygwin'=> '0.280209', 'ExtUtils::CBuilder::Platform::darwin'=> '0.280209', 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280209', 'ExtUtils::CBuilder::Platform::os2'=> '0.280209', 'File::Copy' => '2.25', 'File::Glob' => '1.18', 'HTTP::Tiny' => '0.024', 'Module::CoreList' => '2.75', 'Module::CoreList::TieHashDelta'=> '2.75', 'PerlIO::encoding' => '0.16', 'Unicode::Collate' => '0.90', 'Unicode::Collate::Locale'=> '0.90', 'Unicode::Normalize' => '1.15', 'Win32CORE' => '0.04', 'XS::APItest' => '0.44', 'attributes' => '0.21', 'bigint' => '0.31', 'bignum' => '0.31', 'bigrat' => '0.31', 'feature' => '1.31', 'threads::shared' => '1.42', 'warnings' => '1.15', }, removed => { } }, 5.017006 => { delta_from => 5.017005, changed => { 'B' => '1.40', 'B::Concise' => '0.94', 'B::Deparse' => '1.19', 'B::Xref' => '1.05', 'CGI' => '3.63', 'CGI::Util' => '3.62', 'CPAN' => '1.99_51', 'CPANPLUS::Dist::Build' => '0.64', 'CPANPLUS::Dist::Build::Constants'=> '0.64', 'Carp' => '1.28', 'Carp::Heavy' => '1.28', 'Compress::Raw::Bzip2' => '2.058', 'Compress::Raw::Zlib' => '2.058', 'Compress::Zlib' => '2.058', 'Data::Dumper' => '2.137', 'Digest::SHA' => '5.73', 'DynaLoader' => '1.17', 'Env' => '1.04', 'Errno' => '1.17', 'ExtUtils::Manifest' => '1.62', 'ExtUtils::Typemaps' => '3.18', 'ExtUtils::Typemaps::Cmd'=> '3.18', 'ExtUtils::Typemaps::InputMap'=> '3.18', 'ExtUtils::Typemaps::OutputMap'=> '3.18', 'ExtUtils::Typemaps::Type'=> '3.18', 'Fatal' => '2.13', 'File::Find' => '1.23', 'Hash::Util' => '0.13', 'IO::Compress::Adapter::Bzip2'=> '2.058', 'IO::Compress::Adapter::Deflate'=> '2.058', 'IO::Compress::Adapter::Identity'=> '2.058', 'IO::Compress::Base' => '2.058', 'IO::Compress::Base::Common'=> '2.058', 'IO::Compress::Bzip2' => '2.058', 'IO::Compress::Deflate' => '2.058', 'IO::Compress::Gzip' => '2.058', 'IO::Compress::Gzip::Constants'=> '2.058', 'IO::Compress::RawDeflate'=> '2.058', 'IO::Compress::Zip' => '2.058', 'IO::Compress::Zip::Constants'=> '2.058', 'IO::Compress::Zlib::Constants'=> '2.058', 'IO::Compress::Zlib::Extra'=> '2.058', 'IO::Uncompress::Adapter::Bunzip2'=> '2.058', 'IO::Uncompress::Adapter::Identity'=> '2.058', 'IO::Uncompress::Adapter::Inflate'=> '2.058', 'IO::Uncompress::AnyInflate'=> '2.058', 'IO::Uncompress::AnyUncompress'=> '2.058', 'IO::Uncompress::Base' => '2.058', 'IO::Uncompress::Bunzip2'=> '2.058', 'IO::Uncompress::Gunzip'=> '2.058', 'IO::Uncompress::Inflate'=> '2.058', 'IO::Uncompress::RawInflate'=> '2.058', 'IO::Uncompress::Unzip' => '2.058', 'Module::CoreList' => '2.78', 'Module::CoreList::TieHashDelta'=> '2.77', 'Module::Pluggable' => '4.5', 'Module::Pluggable::Object'=> '4.5', 'Opcode' => '1.25', 'Sys::Hostname' => '1.17', 'Term::UI' => '0.32', 'Thread::Queue' => '3.01', 'Tie::Hash::NamedCapture'=> '0.09', 'Unicode::Collate' => '0.93', 'Unicode::Collate::CJK::Korean'=> '0.93', 'Unicode::Collate::Locale'=> '0.93', 'Unicode::Normalize' => '1.16', 'Unicode::UCD' => '0.47', 'XS::APItest' => '0.46', '_charnames' => '1.33', 'autodie' => '2.13', 'autodie::exception' => '2.13', 'autodie::exception::system'=> '2.13', 'autodie::hints' => '2.13', 'charnames' => '1.33', 're' => '0.23', }, removed => { } }, 5.017007 => { delta_from => 5.017006, changed => { 'B' => '1.41', 'CPANPLUS::Dist::Build' => '0.68', 'CPANPLUS::Dist::Build::Constants'=> '0.68', 'Compress::Raw::Bzip2' => '2.059', 'Compress::Raw::Zlib' => '2.059', 'Compress::Zlib' => '2.059', 'Cwd' => '3.39_03', 'Data::Dumper' => '2.139', 'Devel::Peek' => '1.11', 'Digest::SHA' => '5.80', 'DynaLoader' => '1.18', 'English' => '1.06', 'Errno' => '1.18', 'ExtUtils::Command::MM' => '6.64', 'ExtUtils::Liblist' => '6.64', 'ExtUtils::Liblist::Kid'=> '6.64', 'ExtUtils::MM' => '6.64', 'ExtUtils::MM_AIX' => '6.64', 'ExtUtils::MM_Any' => '6.64', 'ExtUtils::MM_BeOS' => '6.64', 'ExtUtils::MM_Cygwin' => '6.64', 'ExtUtils::MM_DOS' => '6.64', 'ExtUtils::MM_Darwin' => '6.64', 'ExtUtils::MM_MacOS' => '6.64', 'ExtUtils::MM_NW5' => '6.64', 'ExtUtils::MM_OS2' => '6.64', 'ExtUtils::MM_QNX' => '6.64', 'ExtUtils::MM_UWIN' => '6.64', 'ExtUtils::MM_Unix' => '6.64', 'ExtUtils::MM_VMS' => '6.64', 'ExtUtils::MM_VOS' => '6.64', 'ExtUtils::MM_Win32' => '6.64', 'ExtUtils::MM_Win95' => '6.64', 'ExtUtils::MY' => '6.64', 'ExtUtils::MakeMaker' => '6.64', 'ExtUtils::MakeMaker::Config'=> '6.64', 'ExtUtils::Mkbootstrap' => '6.64', 'ExtUtils::Mksymlists' => '6.64', 'ExtUtils::testlib' => '6.64', 'File::DosGlob' => '1.09', 'File::Glob' => '1.19', 'GDBM_File' => '1.15', 'IO::Compress::Adapter::Bzip2'=> '2.059', 'IO::Compress::Adapter::Deflate'=> '2.059', 'IO::Compress::Adapter::Identity'=> '2.059', 'IO::Compress::Base' => '2.059', 'IO::Compress::Base::Common'=> '2.059', 'IO::Compress::Bzip2' => '2.059', 'IO::Compress::Deflate' => '2.059', 'IO::Compress::Gzip' => '2.059', 'IO::Compress::Gzip::Constants'=> '2.059', 'IO::Compress::RawDeflate'=> '2.059', 'IO::Compress::Zip' => '2.059', 'IO::Compress::Zip::Constants'=> '2.059', 'IO::Compress::Zlib::Constants'=> '2.059', 'IO::Compress::Zlib::Extra'=> '2.059', 'IO::Uncompress::Adapter::Bunzip2'=> '2.059', 'IO::Uncompress::Adapter::Identity'=> '2.059', 'IO::Uncompress::Adapter::Inflate'=> '2.059', 'IO::Uncompress::AnyInflate'=> '2.059', 'IO::Uncompress::AnyUncompress'=> '2.059', 'IO::Uncompress::Base' => '2.059', 'IO::Uncompress::Bunzip2'=> '2.059', 'IO::Uncompress::Gunzip'=> '2.059', 'IO::Uncompress::Inflate'=> '2.059', 'IO::Uncompress::RawInflate'=> '2.059', 'IO::Uncompress::Unzip' => '2.059', 'List::Util' => '1.26', 'List::Util::XS' => '1.26', 'Locale::Codes' => '3.24', 'Locale::Codes::Constants'=> '3.24', 'Locale::Codes::Country'=> '3.24', 'Locale::Codes::Country_Codes'=> '3.24', 'Locale::Codes::Country_Retired'=> '3.24', 'Locale::Codes::Currency'=> '3.24', 'Locale::Codes::Currency_Codes'=> '3.24', 'Locale::Codes::Currency_Retired'=> '3.24', 'Locale::Codes::LangExt'=> '3.24', 'Locale::Codes::LangExt_Codes'=> '3.24', 'Locale::Codes::LangExt_Retired'=> '3.24', 'Locale::Codes::LangFam'=> '3.24', 'Locale::Codes::LangFam_Codes'=> '3.24', 'Locale::Codes::LangFam_Retired'=> '3.24', 'Locale::Codes::LangVar'=> '3.24', 'Locale::Codes::LangVar_Codes'=> '3.24', 'Locale::Codes::LangVar_Retired'=> '3.24', 'Locale::Codes::Language'=> '3.24', 'Locale::Codes::Language_Codes'=> '3.24', 'Locale::Codes::Language_Retired'=> '3.24', 'Locale::Codes::Script' => '3.24', 'Locale::Codes::Script_Codes'=> '3.24', 'Locale::Codes::Script_Retired'=> '3.24', 'Locale::Country' => '3.24', 'Locale::Currency' => '3.24', 'Locale::Language' => '3.24', 'Locale::Maketext' => '1.23', 'Locale::Script' => '3.24', 'Module::CoreList' => '2.79', 'Module::CoreList::TieHashDelta'=> '2.79', 'POSIX' => '1.32', 'Scalar::Util' => '1.26', 'Socket' => '2.006_001', 'Storable' => '2.40', 'Term::ReadLine' => '1.11', 'Unicode::Collate' => '0.96', 'Unicode::Collate::CJK::Stroke'=> '0.94', 'Unicode::Collate::CJK::Zhuyin'=> '0.94', 'Unicode::Collate::Locale'=> '0.96', 'XS::APItest' => '0.48', 'XS::Typemap' => '0.09', '_charnames' => '1.34', 'charnames' => '1.34', 'feature' => '1.32', 'mro' => '1.10', 'sigtrap' => '1.07', 'sort' => '2.02', }, removed => { } }, 5.017008 => { delta_from => 5.017007, changed => { 'Archive::Extract' => '0.62', 'B' => '1.42', 'B::Concise' => '0.95', 'Compress::Raw::Bzip2' => '2.060', 'Compress::Raw::Zlib' => '2.060', 'Compress::Zlib' => '2.060', 'Cwd' => '3.40', 'Data::Dumper' => '2.141', 'Digest::SHA' => '5.81', 'ExtUtils::Install' => '1.59', 'File::Fetch' => '0.38', 'File::Path' => '2.09', 'File::Spec' => '3.40', 'File::Spec::Cygwin' => '3.40', 'File::Spec::Epoc' => '3.40', 'File::Spec::Functions' => '3.40', 'File::Spec::Mac' => '3.40', 'File::Spec::OS2' => '3.40', 'File::Spec::Unix' => '3.40', 'File::Spec::VMS' => '3.40', 'File::Spec::Win32' => '3.40', 'HTTP::Tiny' => '0.025', 'Hash::Util' => '0.14', 'I18N::LangTags' => '0.39', 'I18N::LangTags::List' => '0.39', 'I18N::Langinfo' => '0.09', 'IO' => '1.26', 'IO::Compress::Adapter::Bzip2'=> '2.060', 'IO::Compress::Adapter::Deflate'=> '2.060', 'IO::Compress::Adapter::Identity'=> '2.060', 'IO::Compress::Base' => '2.060', 'IO::Compress::Base::Common'=> '2.060', 'IO::Compress::Bzip2' => '2.060', 'IO::Compress::Deflate' => '2.060', 'IO::Compress::Gzip' => '2.060', 'IO::Compress::Gzip::Constants'=> '2.060', 'IO::Compress::RawDeflate'=> '2.060', 'IO::Compress::Zip' => '2.060', 'IO::Compress::Zip::Constants'=> '2.060', 'IO::Compress::Zlib::Constants'=> '2.060', 'IO::Compress::Zlib::Extra'=> '2.060', 'IO::Uncompress::Adapter::Bunzip2'=> '2.060', 'IO::Uncompress::Adapter::Identity'=> '2.060', 'IO::Uncompress::Adapter::Inflate'=> '2.060', 'IO::Uncompress::AnyInflate'=> '2.060', 'IO::Uncompress::AnyUncompress'=> '2.060', 'IO::Uncompress::Base' => '2.060', 'IO::Uncompress::Bunzip2'=> '2.060', 'IO::Uncompress::Gunzip'=> '2.060', 'IO::Uncompress::Inflate'=> '2.060', 'IO::Uncompress::RawInflate'=> '2.060', 'IO::Uncompress::Unzip' => '2.060', 'List::Util' => '1.27', 'List::Util::XS' => '1.27', 'Module::CoreList' => '2.80', 'Module::CoreList::TieHashDelta'=> '2.80', 'Pod::Html' => '1.17', 'Pod::LaTeX' => '0.61', 'Pod::Man' => '2.27', 'Pod::Text' => '3.17', 'Pod::Text::Color' => '2.07', 'Pod::Text::Overstrike' => '2.05', 'Pod::Text::Termcap' => '2.07', 'Safe' => '2.34', 'Scalar::Util' => '1.27', 'Socket' => '2.009', 'Term::ANSIColor' => '4.02', 'Test' => '1.26', 'Unicode::Collate' => '0.97', 'XS::APItest' => '0.51', 'XS::Typemap' => '0.10', '_charnames' => '1.35', 'charnames' => '1.35', 'constant' => '1.25', 'diagnostics' => '1.31', 'threads::shared' => '1.43', 'warnings' => '1.16', }, removed => { } }, 5.017009 => { delta_from => 5.017008, changed => { 'App::Cpan' => '1.60_02', 'App::Prove' => '3.26', 'App::Prove::State' => '3.26', 'App::Prove::State::Result'=> '3.26', 'App::Prove::State::Result::Test'=> '3.26', 'Archive::Extract' => '0.68', 'Attribute::Handlers' => '0.94', 'B::Lint' => '1.17', 'B::Lint::Debug' => '1.17', 'Benchmark' => '1.14', 'CPAN' => '2.00', 'CPAN::Distribution' => '2.00', 'CPAN::FirstTime' => '5.5304', 'CPAN::Nox' => '5.5001', 'CPANPLUS' => '0.9135', 'CPANPLUS::Backend' => '0.9135', 'CPANPLUS::Backend::RV' => '0.9135', 'CPANPLUS::Config' => '0.9135', 'CPANPLUS::Config::HomeEnv'=> '0.9135', 'CPANPLUS::Configure' => '0.9135', 'CPANPLUS::Configure::Setup'=> '0.9135', 'CPANPLUS::Dist' => '0.9135', 'CPANPLUS::Dist::Autobundle'=> '0.9135', 'CPANPLUS::Dist::Base' => '0.9135', 'CPANPLUS::Dist::Build' => '0.70', 'CPANPLUS::Dist::Build::Constants'=> '0.70', 'CPANPLUS::Dist::MM' => '0.9135', 'CPANPLUS::Dist::Sample'=> '0.9135', 'CPANPLUS::Error' => '0.9135', 'CPANPLUS::Internals' => '0.9135', 'CPANPLUS::Internals::Constants'=> '0.9135', 'CPANPLUS::Internals::Constants::Report'=> '0.9135', 'CPANPLUS::Internals::Extract'=> '0.9135', 'CPANPLUS::Internals::Fetch'=> '0.9135', 'CPANPLUS::Internals::Report'=> '0.9135', 'CPANPLUS::Internals::Search'=> '0.9135', 'CPANPLUS::Internals::Source'=> '0.9135', 'CPANPLUS::Internals::Source::Memory'=> '0.9135', 'CPANPLUS::Internals::Source::SQLite'=> '0.9135', 'CPANPLUS::Internals::Source::SQLite::Tie'=> '0.9135', 'CPANPLUS::Internals::Utils'=> '0.9135', 'CPANPLUS::Internals::Utils::Autoflush'=> '0.9135', 'CPANPLUS::Module' => '0.9135', 'CPANPLUS::Module::Author'=> '0.9135', 'CPANPLUS::Module::Author::Fake'=> '0.9135', 'CPANPLUS::Module::Checksums'=> '0.9135', 'CPANPLUS::Module::Fake'=> '0.9135', 'CPANPLUS::Module::Signature'=> '0.9135', 'CPANPLUS::Selfupdate' => '0.9135', 'CPANPLUS::Shell' => '0.9135', 'CPANPLUS::Shell::Classic'=> '0.9135', 'CPANPLUS::Shell::Default'=> '0.9135', 'CPANPLUS::Shell::Default::Plugins::CustomSource'=> '0.9135', 'CPANPLUS::Shell::Default::Plugins::Remote'=> '0.9135', 'CPANPLUS::Shell::Default::Plugins::Source'=> '0.9135', 'Config' => '5.017009', 'Config::Perl::V' => '0.17', 'DBM_Filter' => '0.05', 'Data::Dumper' => '2.142', 'Digest::SHA' => '5.82', 'Encode' => '2.48', 'ExtUtils::Installed' => '1.999003', 'ExtUtils::Manifest' => '1.63', 'ExtUtils::ParseXS::Utilities'=> '3.19', 'ExtUtils::Typemaps' => '3.19', 'File::CheckTree' => '4.42', 'File::DosGlob' => '1.10', 'File::Temp' => '0.22_90', 'Filter::Simple' => '0.89', 'IO' => '1.27', 'Log::Message' => '0.06', 'Log::Message::Config' => '0.06', 'Log::Message::Handlers'=> '0.06', 'Log::Message::Item' => '0.06', 'Log::Message::Simple' => '0.10', 'Math::BigInt' => '1.999', 'Module::CoreList' => '2.82', 'Module::CoreList::TieHashDelta'=> '2.82', 'Module::Load' => '0.24', 'Module::Pluggable' => '4.6', 'Module::Pluggable::Object'=> '4.6', 'OS2::DLL' => '1.05', 'OS2::ExtAttr' => '0.03', 'OS2::Process' => '1.08', 'Object::Accessor' => '0.46', 'PerlIO::scalar' => '0.16', 'Pod::Checker' => '1.60', 'Pod::Find' => '1.60', 'Pod::Html' => '1.18', 'Pod::InputObjects' => '1.60', 'Pod::ParseUtils' => '1.60', 'Pod::Parser' => '1.60', 'Pod::Perldoc' => '3.19', 'Pod::Perldoc::BaseTo' => '3.19', 'Pod::Perldoc::GetOptsOO'=> '3.19', 'Pod::Perldoc::ToANSI' => '3.19', 'Pod::Perldoc::ToChecker'=> '3.19', 'Pod::Perldoc::ToMan' => '3.19', 'Pod::Perldoc::ToNroff' => '3.19', 'Pod::Perldoc::ToPod' => '3.19', 'Pod::Perldoc::ToRtf' => '3.19', 'Pod::Perldoc::ToTerm' => '3.19', 'Pod::Perldoc::ToText' => '3.19', 'Pod::Perldoc::ToTk' => '3.19', 'Pod::Perldoc::ToXml' => '3.19', 'Pod::PlainText' => '2.06', 'Pod::Select' => '1.60', 'Pod::Usage' => '1.61', 'SelfLoader' => '1.21', 'TAP::Base' => '3.26', 'TAP::Formatter::Base' => '3.26', 'TAP::Formatter::Color' => '3.26', 'TAP::Formatter::Console'=> '3.26', 'TAP::Formatter::Console::ParallelSession'=> '3.26', 'TAP::Formatter::Console::Session'=> '3.26', 'TAP::Formatter::File' => '3.26', 'TAP::Formatter::File::Session'=> '3.26', 'TAP::Formatter::Session'=> '3.26', 'TAP::Harness' => '3.26', 'TAP::Object' => '3.26', 'TAP::Parser' => '3.26', 'TAP::Parser::Aggregator'=> '3.26', 'TAP::Parser::Grammar' => '3.26', 'TAP::Parser::Iterator' => '3.26', 'TAP::Parser::Iterator::Array'=> '3.26', 'TAP::Parser::Iterator::Process'=> '3.26', 'TAP::Parser::Iterator::Stream'=> '3.26', 'TAP::Parser::IteratorFactory'=> '3.26', 'TAP::Parser::Multiplexer'=> '3.26', 'TAP::Parser::Result' => '3.26', 'TAP::Parser::Result::Bailout'=> '3.26', 'TAP::Parser::Result::Comment'=> '3.26', 'TAP::Parser::Result::Plan'=> '3.26', 'TAP::Parser::Result::Pragma'=> '3.26', 'TAP::Parser::Result::Test'=> '3.26', 'TAP::Parser::Result::Unknown'=> '3.26', 'TAP::Parser::Result::Version'=> '3.26', 'TAP::Parser::Result::YAML'=> '3.26', 'TAP::Parser::ResultFactory'=> '3.26', 'TAP::Parser::Scheduler'=> '3.26', 'TAP::Parser::Scheduler::Job'=> '3.26', 'TAP::Parser::Scheduler::Spinner'=> '3.26', 'TAP::Parser::Source' => '3.26', 'TAP::Parser::SourceHandler'=> '3.26', 'TAP::Parser::SourceHandler::Executable'=> '3.26', 'TAP::Parser::SourceHandler::File'=> '3.26', 'TAP::Parser::SourceHandler::Handle'=> '3.26', 'TAP::Parser::SourceHandler::Perl'=> '3.26', 'TAP::Parser::SourceHandler::RawTAP'=> '3.26', 'TAP::Parser::Utils' => '3.26', 'TAP::Parser::YAMLish::Reader'=> '3.26', 'TAP::Parser::YAMLish::Writer'=> '3.26', 'Term::UI' => '0.34', 'Test::Harness' => '3.26', 'Text::Soundex' => '3.04', 'Thread::Queue' => '3.02', 'Unicode::UCD' => '0.50', 'Win32' => '0.46', 'Win32API::File' => '0.1201', '_charnames' => '1.36', 'arybase' => '0.06', 'bigint' => '0.32', 'bignum' => '0.32', 'charnames' => '1.36', 'filetest' => '1.03', 'locale' => '1.02', 'overload' => '1.21', 'warnings' => '1.17', }, removed => { } }, 5.017010 => { delta_from => 5.017009, changed => { 'Benchmark' => '1.15', 'Config' => '5.017009', 'Data::Dumper' => '2.145', 'Digest::SHA' => '5.84', 'Encode' => '2.49', 'ExtUtils::Command::MM' => '6.65_01', 'ExtUtils::Liblist' => '6.65_01', 'ExtUtils::Liblist::Kid'=> '6.65_01', 'ExtUtils::MM' => '6.65_01', 'ExtUtils::MM_AIX' => '6.65_01', 'ExtUtils::MM_Any' => '6.65_01', 'ExtUtils::MM_BeOS' => '6.65_01', 'ExtUtils::MM_Cygwin' => '6.65_01', 'ExtUtils::MM_DOS' => '6.65_01', 'ExtUtils::MM_Darwin' => '6.65_01', 'ExtUtils::MM_MacOS' => '6.65_01', 'ExtUtils::MM_NW5' => '6.65_01', 'ExtUtils::MM_OS2' => '6.65_01', 'ExtUtils::MM_QNX' => '6.65_01', 'ExtUtils::MM_UWIN' => '6.65_01', 'ExtUtils::MM_Unix' => '6.65_01', 'ExtUtils::MM_VMS' => '6.65_01', 'ExtUtils::MM_VOS' => '6.65_01', 'ExtUtils::MM_Win32' => '6.65_01', 'ExtUtils::MM_Win95' => '6.65_01', 'ExtUtils::MY' => '6.65_01', 'ExtUtils::MakeMaker' => '6.65_01', 'ExtUtils::MakeMaker::Config'=> '6.65_01', 'ExtUtils::Mkbootstrap' => '6.65_01', 'ExtUtils::Mksymlists' => '6.65_01', 'ExtUtils::testlib' => '6.65_01', 'File::Copy' => '2.26', 'File::Temp' => '0.23', 'Getopt::Long' => '2.39', 'Hash::Util' => '0.15', 'I18N::Langinfo' => '0.10', 'IPC::Cmd' => '0.80', 'JSON::PP' => '2.27202', 'Locale::Codes' => '3.25', 'Locale::Codes::Constants'=> '3.25', 'Locale::Codes::Country'=> '3.25', 'Locale::Codes::Country_Codes'=> '3.25', 'Locale::Codes::Country_Retired'=> '3.25', 'Locale::Codes::Currency'=> '3.25', 'Locale::Codes::Currency_Codes'=> '3.25', 'Locale::Codes::Currency_Retired'=> '3.25', 'Locale::Codes::LangExt'=> '3.25', 'Locale::Codes::LangExt_Codes'=> '3.25', 'Locale::Codes::LangExt_Retired'=> '3.25', 'Locale::Codes::LangFam'=> '3.25', 'Locale::Codes::LangFam_Codes'=> '3.25', 'Locale::Codes::LangFam_Retired'=> '3.25', 'Locale::Codes::LangVar'=> '3.25', 'Locale::Codes::LangVar_Codes'=> '3.25', 'Locale::Codes::LangVar_Retired'=> '3.25', 'Locale::Codes::Language'=> '3.25', 'Locale::Codes::Language_Codes'=> '3.25', 'Locale::Codes::Language_Retired'=> '3.25', 'Locale::Codes::Script' => '3.25', 'Locale::Codes::Script_Codes'=> '3.25', 'Locale::Codes::Script_Retired'=> '3.25', 'Locale::Country' => '3.25', 'Locale::Currency' => '3.25', 'Locale::Language' => '3.25', 'Locale::Script' => '3.25', 'Math::BigFloat' => '1.998', 'Math::BigFloat::Trace' => '0.32', 'Math::BigInt' => '1.9991', 'Math::BigInt::CalcEmu' => '1.998', 'Math::BigInt::Trace' => '0.32', 'Math::BigRat' => '0.2604', 'Module::CoreList' => '2.84', 'Module::CoreList::TieHashDelta'=> '2.84', 'Module::Pluggable' => '4.7', 'Net::Ping' => '2.41', 'Perl::OSType' => '1.003', 'Pod::Simple' => '3.26', 'Pod::Simple::BlackBox' => '3.26', 'Pod::Simple::Checker' => '3.26', 'Pod::Simple::Debug' => '3.26', 'Pod::Simple::DumpAsText'=> '3.26', 'Pod::Simple::DumpAsXML'=> '3.26', 'Pod::Simple::HTML' => '3.26', 'Pod::Simple::HTMLBatch'=> '3.26', 'Pod::Simple::LinkSection'=> '3.26', 'Pod::Simple::Methody' => '3.26', 'Pod::Simple::Progress' => '3.26', 'Pod::Simple::PullParser'=> '3.26', 'Pod::Simple::PullParserEndToken'=> '3.26', 'Pod::Simple::PullParserStartToken'=> '3.26', 'Pod::Simple::PullParserTextToken'=> '3.26', 'Pod::Simple::PullParserToken'=> '3.26', 'Pod::Simple::RTF' => '3.26', 'Pod::Simple::Search' => '3.26', 'Pod::Simple::SimpleTree'=> '3.26', 'Pod::Simple::Text' => '3.26', 'Pod::Simple::TextContent'=> '3.26', 'Pod::Simple::TiedOutFH'=> '3.26', 'Pod::Simple::Transcode'=> '3.26', 'Pod::Simple::TranscodeDumb'=> '3.26', 'Pod::Simple::TranscodeSmart'=> '3.26', 'Pod::Simple::XHTML' => '3.26', 'Pod::Simple::XMLOutStream'=> '3.26', 'Safe' => '2.35', 'Term::ReadLine' => '1.12', 'Text::ParseWords' => '3.28', 'Tie::File' => '0.99', 'Unicode::UCD' => '0.51', 'Win32' => '0.47', 'bigint' => '0.33', 'bignum' => '0.33', 'bigrat' => '0.33', 'constant' => '1.27', 'perlfaq' => '5.0150042', 'version' => '0.9902', }, removed => { } }, 5.017011 => { delta_from => 5.017010, changed => { 'App::Cpan' => '1.61', 'B::Deparse' => '1.20', 'Config' => '5.017009', 'Exporter' => '5.68', 'Exporter::Heavy' => '5.68', 'ExtUtils::CBuilder' => '0.280210', 'ExtUtils::Command::MM' => '6.66', 'ExtUtils::Liblist' => '6.66', 'ExtUtils::Liblist::Kid'=> '6.66', 'ExtUtils::MM' => '6.66', 'ExtUtils::MM_AIX' => '6.66', 'ExtUtils::MM_Any' => '6.66', 'ExtUtils::MM_BeOS' => '6.66', 'ExtUtils::MM_Cygwin' => '6.66', 'ExtUtils::MM_DOS' => '6.66', 'ExtUtils::MM_Darwin' => '6.66', 'ExtUtils::MM_MacOS' => '6.66', 'ExtUtils::MM_NW5' => '6.66', 'ExtUtils::MM_OS2' => '6.66', 'ExtUtils::MM_QNX' => '6.66', 'ExtUtils::MM_UWIN' => '6.66', 'ExtUtils::MM_Unix' => '6.66', 'ExtUtils::MM_VMS' => '6.66', 'ExtUtils::MM_VOS' => '6.66', 'ExtUtils::MM_Win32' => '6.66', 'ExtUtils::MM_Win95' => '6.66', 'ExtUtils::MY' => '6.66', 'ExtUtils::MakeMaker' => '6.66', 'ExtUtils::MakeMaker::Config'=> '6.66', 'ExtUtils::Mkbootstrap' => '6.66', 'ExtUtils::Mksymlists' => '6.66', 'ExtUtils::testlib' => '6.66', 'File::Glob' => '1.20', 'IO' => '1.28', 'Module::CoreList' => '2.87', 'Module::CoreList::TieHashDelta'=> '2.87', 'Storable' => '2.41', 'bigint' => '0.34', 'mro' => '1.11', 'overload' => '1.22', 'warnings' => '1.18', }, removed => { } }, 5.018000 => { delta_from => 5.017011, changed => { 'Carp' => '1.29', 'Carp::Heavy' => '1.29', 'Config' => '5.018000', 'Hash::Util' => '0.16', 'IO::Handle' => '1.34', 'IO::Socket' => '1.36', 'Module::CoreList' => '2.89', 'Module::CoreList::TieHashDelta'=> '2.89', 'Pod::Simple' => '3.28', 'Pod::Simple::BlackBox' => '3.28', 'Pod::Simple::Checker' => '3.28', 'Pod::Simple::Debug' => '3.28', 'Pod::Simple::DumpAsText'=> '3.28', 'Pod::Simple::DumpAsXML'=> '3.28', 'Pod::Simple::HTML' => '3.28', 'Pod::Simple::HTMLBatch'=> '3.28', 'Pod::Simple::LinkSection'=> '3.28', 'Pod::Simple::Methody' => '3.28', 'Pod::Simple::Progress' => '3.28', 'Pod::Simple::PullParser'=> '3.28', 'Pod::Simple::PullParserEndToken'=> '3.28', 'Pod::Simple::PullParserStartToken'=> '3.28', 'Pod::Simple::PullParserTextToken'=> '3.28', 'Pod::Simple::PullParserToken'=> '3.28', 'Pod::Simple::RTF' => '3.28', 'Pod::Simple::Search' => '3.28', 'Pod::Simple::SimpleTree'=> '3.28', 'Pod::Simple::Text' => '3.28', 'Pod::Simple::TextContent'=> '3.28', 'Pod::Simple::TiedOutFH'=> '3.28', 'Pod::Simple::Transcode'=> '3.28', 'Pod::Simple::TranscodeDumb'=> '3.28', 'Pod::Simple::TranscodeSmart'=> '3.28', 'Pod::Simple::XHTML' => '3.28', 'Pod::Simple::XMLOutStream'=> '3.28', }, removed => { } }, 5.018001 => { delta_from => 5.018000, changed => { 'B' => '1.42_01', 'Config' => '5.018001', 'Digest::SHA' => '5.84_01', 'Module::CoreList' => '2.96', 'Module::CoreList::TieHashDelta'=> '2.96', 'Module::CoreList::Utils'=> '2.96', }, removed => { 'VMS::Filespec' => 1, } }, 5.018002 => { delta_from => 5.018001, changed => { 'B' => '1.42_02', 'B::Concise' => '0.95_01', 'Config' => '5.018002', 'File::Glob' => '1.20_01', 'Module::CoreList' => '3.03', 'Module::CoreList::TieHashDelta'=> '3.03', 'Module::CoreList::Utils'=> '3.03', }, }, 5.018003 => { delta_from => 5.018002, changed => { 'Config' => '5.018003', 'Digest::SHA' => '5.84_02', 'Module::CoreList' => '3.12', 'Module::CoreList::TieHashDelta'=> '3.12', 'Module::CoreList::Utils'=> '3.12', }, }, 5.018004 => { delta_from => 5.018003, changed => { 'Config' => '5.018004', 'Module::CoreList' => '3.13', 'Module::CoreList::TieHashDelta'=> '3.13', 'Module::CoreList::Utils'=> '3.13', }, }, 5.019000 => { delta_from => 5.018000, changed => { 'Config' => '5.019000', 'Getopt::Std' => '1.08', 'Module::CoreList' => '2.91', 'Module::CoreList::TieHashDelta'=> '2.91', 'Storable' => '2.42', 'feature' => '1.33', 'utf8' => '1.11', }, removed => { 'Archive::Extract' => 1, 'B::Lint' => 1, 'B::Lint::Debug' => 1, 'CPANPLUS' => 1, 'CPANPLUS::Backend' => 1, 'CPANPLUS::Backend::RV' => 1, 'CPANPLUS::Config' => 1, 'CPANPLUS::Config::HomeEnv'=> 1, 'CPANPLUS::Configure' => 1, 'CPANPLUS::Configure::Setup'=> 1, 'CPANPLUS::Dist' => 1, 'CPANPLUS::Dist::Autobundle'=> 1, 'CPANPLUS::Dist::Base' => 1, 'CPANPLUS::Dist::Build' => 1, 'CPANPLUS::Dist::Build::Constants'=> 1, 'CPANPLUS::Dist::MM' => 1, 'CPANPLUS::Dist::Sample'=> 1, 'CPANPLUS::Error' => 1, 'CPANPLUS::Internals' => 1, 'CPANPLUS::Internals::Constants'=> 1, 'CPANPLUS::Internals::Constants::Report'=> 1, 'CPANPLUS::Internals::Extract'=> 1, 'CPANPLUS::Internals::Fetch'=> 1, 'CPANPLUS::Internals::Report'=> 1, 'CPANPLUS::Internals::Search'=> 1, 'CPANPLUS::Internals::Source'=> 1, 'CPANPLUS::Internals::Source::Memory'=> 1, 'CPANPLUS::Internals::Source::SQLite'=> 1, 'CPANPLUS::Internals::Source::SQLite::Tie'=> 1, 'CPANPLUS::Internals::Utils'=> 1, 'CPANPLUS::Internals::Utils::Autoflush'=> 1, 'CPANPLUS::Module' => 1, 'CPANPLUS::Module::Author'=> 1, 'CPANPLUS::Module::Author::Fake'=> 1, 'CPANPLUS::Module::Checksums'=> 1, 'CPANPLUS::Module::Fake'=> 1, 'CPANPLUS::Module::Signature'=> 1, 'CPANPLUS::Selfupdate' => 1, 'CPANPLUS::Shell' => 1, 'CPANPLUS::Shell::Classic'=> 1, 'CPANPLUS::Shell::Default'=> 1, 'CPANPLUS::Shell::Default::Plugins::CustomSource'=> 1, 'CPANPLUS::Shell::Default::Plugins::Remote'=> 1, 'CPANPLUS::Shell::Default::Plugins::Source'=> 1, 'Devel::InnerPackage' => 1, 'File::CheckTree' => 1, 'Log::Message' => 1, 'Log::Message::Config' => 1, 'Log::Message::Handlers'=> 1, 'Log::Message::Item' => 1, 'Log::Message::Simple' => 1, 'Module::Pluggable' => 1, 'Module::Pluggable::Object'=> 1, 'Object::Accessor' => 1, 'Pod::LaTeX' => 1, 'Term::UI' => 1, 'Term::UI::History' => 1, 'Text::Soundex' => 1, } }, 5.019001 => { delta_from => 5.019000, changed => { 'App::Prove' => '3.28', 'App::Prove::State' => '3.28', 'App::Prove::State::Result'=> '3.28', 'App::Prove::State::Result::Test'=> '3.28', 'Archive::Tar' => '1.92', 'Archive::Tar::Constant'=> '1.92', 'Archive::Tar::File' => '1.92', 'Attribute::Handlers' => '0.95', 'B' => '1.43', 'B::Concise' => '0.96', 'B::Deparse' => '1.21', 'B::Showlex' => '1.04', 'Benchmark' => '1.16', 'CPAN::Meta' => '2.131560', 'CPAN::Meta::Converter' => '2.131560', 'CPAN::Meta::Feature' => '2.131560', 'CPAN::Meta::History' => '2.131560', 'CPAN::Meta::Prereqs' => '2.131560', 'CPAN::Meta::Spec' => '2.131560', 'CPAN::Meta::Validator' => '2.131560', 'Carp' => '1.30', 'Carp::Heavy' => '1.30', 'Compress::Raw::Bzip2' => '2.061', 'Compress::Raw::Zlib' => '2.061', 'Compress::Zlib' => '2.061', 'Config' => '5.019001', 'Config::Perl::V' => '0.18', 'Cwd' => '3.41', 'DB' => '1.06', 'DB_File' => '1.828', 'Data::Dumper' => '2.146', 'Encode' => '2.51', 'Encode::CN::HZ' => '2.06', 'Encode::GSM0338' => '2.03', 'Encode::Unicode::UTF7' => '2.07', 'ExtUtils::CBuilder::Base'=> '0.280210', 'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280210', 'ExtUtils::Command::MM' => '6.68', 'ExtUtils::Install' => '1.60', 'ExtUtils::Liblist' => '6.68', 'ExtUtils::Liblist::Kid'=> '6.68', 'ExtUtils::MM' => '6.68', 'ExtUtils::MM_AIX' => '6.68', 'ExtUtils::MM_Any' => '6.68', 'ExtUtils::MM_BeOS' => '6.68', 'ExtUtils::MM_Cygwin' => '6.68', 'ExtUtils::MM_DOS' => '6.68', 'ExtUtils::MM_Darwin' => '6.68', 'ExtUtils::MM_MacOS' => '6.68', 'ExtUtils::MM_NW5' => '6.68', 'ExtUtils::MM_OS2' => '6.68', 'ExtUtils::MM_QNX' => '6.68', 'ExtUtils::MM_UWIN' => '6.68', 'ExtUtils::MM_Unix' => '6.68', 'ExtUtils::MM_VMS' => '6.68', 'ExtUtils::MM_VOS' => '6.68', 'ExtUtils::MM_Win32' => '6.68', 'ExtUtils::MM_Win95' => '6.68', 'ExtUtils::MY' => '6.68', 'ExtUtils::MakeMaker' => '6.68', 'ExtUtils::MakeMaker::Config'=> '6.68', 'ExtUtils::Mkbootstrap' => '6.68', 'ExtUtils::Mksymlists' => '6.68', 'ExtUtils::ParseXS' => '3.19', 'ExtUtils::testlib' => '6.68', 'Fatal' => '2.19', 'File::Copy' => '2.27', 'File::DosGlob' => '1.11', 'File::Fetch' => '0.42', 'File::Find' => '1.24', 'File::Spec' => '3.41', 'File::Spec::Cygwin' => '3.41', 'File::Spec::Epoc' => '3.41', 'File::Spec::Mac' => '3.41', 'File::Spec::OS2' => '3.41', 'File::Spec::Unix' => '3.41', 'File::Spec::VMS' => '3.41', 'File::Spec::Win32' => '3.41', 'File::Temp' => '0.2301', 'Filter::Simple' => '0.90', 'Filter::Util::Call' => '1.49', 'Getopt::Long' => '2.4', 'HTTP::Tiny' => '0.031', 'Hash::Util::FieldHash' => '1.11', 'IO::Compress::Adapter::Bzip2'=> '2.061', 'IO::Compress::Adapter::Deflate'=> '2.061', 'IO::Compress::Adapter::Identity'=> '2.061', 'IO::Compress::Base' => '2.061', 'IO::Compress::Base::Common'=> '2.061', 'IO::Compress::Bzip2' => '2.061', 'IO::Compress::Deflate' => '2.061', 'IO::Compress::Gzip' => '2.061', 'IO::Compress::Gzip::Constants'=> '2.061', 'IO::Compress::RawDeflate'=> '2.061', 'IO::Compress::Zip' => '2.061', 'IO::Compress::Zip::Constants'=> '2.061', 'IO::Compress::Zlib::Constants'=> '2.061', 'IO::Compress::Zlib::Extra'=> '2.061', 'IO::Handle' => '1.35', 'IO::Uncompress::Adapter::Bunzip2'=> '2.061', 'IO::Uncompress::Adapter::Identity'=> '2.061', 'IO::Uncompress::Adapter::Inflate'=> '2.061', 'IO::Uncompress::AnyInflate'=> '2.061', 'IO::Uncompress::AnyUncompress'=> '2.061', 'IO::Uncompress::Base' => '2.061', 'IO::Uncompress::Bunzip2'=> '2.061', 'IO::Uncompress::Gunzip'=> '2.061', 'IO::Uncompress::Inflate'=> '2.061', 'IO::Uncompress::RawInflate'=> '2.061', 'IO::Uncompress::Unzip' => '2.061', 'IPC::Open3' => '1.14', 'Locale::Codes' => '3.26', 'Locale::Codes::Constants'=> '3.26', 'Locale::Codes::Country'=> '3.26', 'Locale::Codes::Country_Codes'=> '3.26', 'Locale::Codes::Country_Retired'=> '3.26', 'Locale::Codes::Currency'=> '3.26', 'Locale::Codes::Currency_Codes'=> '3.26', 'Locale::Codes::Currency_Retired'=> '3.26', 'Locale::Codes::LangExt'=> '3.26', 'Locale::Codes::LangExt_Codes'=> '3.26', 'Locale::Codes::LangExt_Retired'=> '3.26', 'Locale::Codes::LangFam'=> '3.26', 'Locale::Codes::LangFam_Codes'=> '3.26', 'Locale::Codes::LangFam_Retired'=> '3.26', 'Locale::Codes::LangVar'=> '3.26', 'Locale::Codes::LangVar_Codes'=> '3.26', 'Locale::Codes::LangVar_Retired'=> '3.26', 'Locale::Codes::Language'=> '3.26', 'Locale::Codes::Language_Codes'=> '3.26', 'Locale::Codes::Language_Retired'=> '3.26', 'Locale::Codes::Script' => '3.26', 'Locale::Codes::Script_Codes'=> '3.26', 'Locale::Codes::Script_Retired'=> '3.26', 'Locale::Country' => '3.26', 'Locale::Currency' => '3.26', 'Locale::Language' => '3.26', 'Locale::Maketext' => '1.24', 'Locale::Script' => '3.26', 'Math::BigFloat' => '1.999', 'Math::BigInt' => '1.9992', 'Math::BigInt::Calc' => '1.998', 'Math::BigInt::CalcEmu' => '1.9991', 'Math::BigRat' => '0.2606', 'Module::Build' => '0.4005', 'Module::Build::Base' => '0.4005', 'Module::Build::Compat' => '0.4005', 'Module::Build::Config' => '0.4005', 'Module::Build::Cookbook'=> '0.4005', 'Module::Build::Dumper' => '0.4005', 'Module::Build::ModuleInfo'=> '0.4005', 'Module::Build::Notes' => '0.4005', 'Module::Build::PPMMaker'=> '0.4005', 'Module::Build::Platform::Amiga'=> '0.4005', 'Module::Build::Platform::Default'=> '0.4005', 'Module::Build::Platform::EBCDIC'=> '0.4005', 'Module::Build::Platform::MPEiX'=> '0.4005', 'Module::Build::Platform::MacOS'=> '0.4005', 'Module::Build::Platform::RiscOS'=> '0.4005', 'Module::Build::Platform::Unix'=> '0.4005', 'Module::Build::Platform::VMS'=> '0.4005', 'Module::Build::Platform::VOS'=> '0.4005', 'Module::Build::Platform::Windows'=> '0.4005', 'Module::Build::Platform::aix'=> '0.4005', 'Module::Build::Platform::cygwin'=> '0.4005', 'Module::Build::Platform::darwin'=> '0.4005', 'Module::Build::Platform::os2'=> '0.4005', 'Module::Build::PodParser'=> '0.4005', 'Module::CoreList' => '2.92', 'Module::CoreList::TieHashDelta'=> '2.92', 'Module::CoreList::Utils'=> '2.92', 'Module::Metadata' => '1.000014', 'Net::Ping' => '2.42', 'OS2::Process' => '1.09', 'POSIX' => '1.33', 'Pod::Find' => '1.61', 'Pod::Html' => '1.19', 'Pod::InputObjects' => '1.61', 'Pod::ParseUtils' => '1.61', 'Pod::Parser' => '1.61', 'Pod::Perldoc' => '3.20', 'Pod::Perldoc::BaseTo' => '3.20', 'Pod::Perldoc::GetOptsOO'=> '3.20', 'Pod::Perldoc::ToANSI' => '3.20', 'Pod::Perldoc::ToChecker'=> '3.20', 'Pod::Perldoc::ToMan' => '3.20', 'Pod::Perldoc::ToNroff' => '3.20', 'Pod::Perldoc::ToPod' => '3.20', 'Pod::Perldoc::ToRtf' => '3.20', 'Pod::Perldoc::ToTerm' => '3.20', 'Pod::Perldoc::ToText' => '3.20', 'Pod::Perldoc::ToTk' => '3.20', 'Pod::Perldoc::ToXml' => '3.20', 'Pod::Select' => '1.61', 'Pod::Usage' => '1.63', 'Safe' => '2.36', 'Storable' => '2.43', 'Sys::Hostname' => '1.18', 'Sys::Syslog' => '0.33', 'TAP::Base' => '3.28', 'TAP::Formatter::Base' => '3.28', 'TAP::Formatter::Color' => '3.28', 'TAP::Formatter::Console'=> '3.28', 'TAP::Formatter::Console::ParallelSession'=> '3.28', 'TAP::Formatter::Console::Session'=> '3.28', 'TAP::Formatter::File' => '3.28', 'TAP::Formatter::File::Session'=> '3.28', 'TAP::Formatter::Session'=> '3.28', 'TAP::Harness' => '3.28', 'TAP::Object' => '3.28', 'TAP::Parser' => '3.28', 'TAP::Parser::Aggregator'=> '3.28', 'TAP::Parser::Grammar' => '3.28', 'TAP::Parser::Iterator' => '3.28', 'TAP::Parser::Iterator::Array'=> '3.28', 'TAP::Parser::Iterator::Process'=> '3.28', 'TAP::Parser::Iterator::Stream'=> '3.28', 'TAP::Parser::IteratorFactory'=> '3.28', 'TAP::Parser::Multiplexer'=> '3.28', 'TAP::Parser::Result' => '3.28', 'TAP::Parser::Result::Bailout'=> '3.28', 'TAP::Parser::Result::Comment'=> '3.28', 'TAP::Parser::Result::Plan'=> '3.28', 'TAP::Parser::Result::Pragma'=> '3.28', 'TAP::Parser::Result::Test'=> '3.28', 'TAP::Parser::Result::Unknown'=> '3.28', 'TAP::Parser::Result::Version'=> '3.28', 'TAP::Parser::Result::YAML'=> '3.28', 'TAP::Parser::ResultFactory'=> '3.28', 'TAP::Parser::Scheduler'=> '3.28', 'TAP::Parser::Scheduler::Job'=> '3.28', 'TAP::Parser::Scheduler::Spinner'=> '3.28', 'TAP::Parser::Source' => '3.28', 'TAP::Parser::SourceHandler'=> '3.28', 'TAP::Parser::SourceHandler::Executable'=> '3.28', 'TAP::Parser::SourceHandler::File'=> '3.28', 'TAP::Parser::SourceHandler::Handle'=> '3.28', 'TAP::Parser::SourceHandler::Perl'=> '3.28', 'TAP::Parser::SourceHandler::RawTAP'=> '3.28', 'TAP::Parser::Utils' => '3.28', 'TAP::Parser::YAMLish::Reader'=> '3.28', 'TAP::Parser::YAMLish::Writer'=> '3.28', 'Term::ReadLine' => '1.13', 'Test::Harness' => '3.28', 'Text::Tabs' => '2013.0523', 'Text::Wrap' => '2013.0523', 'Thread' => '3.04', 'Tie::File' => '1.00', 'Time::Piece' => '1.2002', 'Unicode::Collate' => '0.98', 'Unicode::UCD' => '0.53', 'XS::APItest' => '0.53', '_charnames' => '1.37', 'autodie' => '2.19', 'autodie::exception' => '2.19', 'autodie::exception::system'=> '2.19', 'autodie::hints' => '2.19', 'autodie::skip' => '2.19', 'bigint' => '0.35', 'charnames' => '1.38', 'encoding' => '2.12', 'inc::latest' => '0.4005', 'mro' => '1.12', 'perlfaq' => '5.0150043', 're' => '0.25', 'threads' => '1.87', 'threads::shared' => '1.44', 'utf8' => '1.12', }, removed => { } }, 5.019002 => { delta_from => 5.019001, changed => { 'B' => '1.44', 'B::Concise' => '0.98', 'B::Deparse' => '1.22', 'Benchmark' => '1.17', 'Class::Struct' => '0.65', 'Config' => '5.019002', 'DB' => '1.07', 'DBM_Filter' => '0.06', 'DBM_Filter::compress' => '0.03', 'DBM_Filter::encode' => '0.03', 'DBM_Filter::int32' => '0.03', 'DBM_Filter::null' => '0.03', 'DBM_Filter::utf8' => '0.03', 'DB_File' => '1.829', 'Data::Dumper' => '2.147', 'Devel::Peek' => '1.12', 'Digest::MD5' => '2.53', 'Digest::SHA' => '5.85', 'English' => '1.07', 'Errno' => '1.19', 'ExtUtils::Embed' => '1.31', 'ExtUtils::Miniperl' => '1', 'ExtUtils::ParseXS' => '3.21', 'ExtUtils::ParseXS::Constants'=> '3.21', 'ExtUtils::ParseXS::CountLines'=> '3.21', 'ExtUtils::ParseXS::Eval'=> '3.19', 'ExtUtils::ParseXS::Utilities'=> '3.21', 'ExtUtils::Typemaps' => '3.21', 'ExtUtils::Typemaps::Cmd'=> '3.21', 'ExtUtils::Typemaps::InputMap'=> '3.21', 'ExtUtils::Typemaps::OutputMap'=> '3.21', 'ExtUtils::Typemaps::Type'=> '3.21', 'ExtUtils::XSSymSet' => '1.3', 'Fatal' => '2.20', 'File::Basename' => '2.85', 'File::Spec::VMS' => '3.43', 'File::Spec::Win32' => '3.42', 'Getopt::Long' => '2.41', 'Getopt::Std' => '1.09', 'HTTP::Tiny' => '0.034', 'Hash::Util::FieldHash' => '1.12', 'I18N::Langinfo' => '0.11', 'IO::Socket::INET' => '1.34', 'IO::Socket::UNIX' => '1.25', 'IPC::Cmd' => '0.82', 'MIME::Base64' => '3.14', 'Module::CoreList' => '2.94', 'Module::CoreList::TieHashDelta'=> '2.94', 'Module::CoreList::Utils'=> '2.94', 'POSIX' => '1.34', 'Params::Check' => '0.38', 'Parse::CPAN::Meta' => '1.4405', 'Pod::Functions' => '1.07', 'Pod::Html' => '1.2', 'Safe' => '2.37', 'Socket' => '2.010', 'Storable' => '2.45', 'Text::ParseWords' => '3.29', 'Tie::Array' => '1.06', 'Tie::Hash' => '1.05', 'Tie::Scalar' => '1.03', 'Time::Piece' => '1.21', 'Time::Seconds' => '1.21', 'XS::APItest' => '0.54', 'autodie' => '2.20', 'autodie::exception' => '2.20', 'autodie::exception::system'=> '2.20', 'autodie::hints' => '2.20', 'autodie::skip' => '2.20', 'base' => '2.19', 'deprecate' => '0.03', 'if' => '0.0603', 'integer' => '1.01', 'strict' => '1.08', 'subs' => '1.02', 'vmsish' => '1.04', }, removed => { } }, 5.019003 => { delta_from => 5.019002, changed => { 'B' => '1.45', 'CPAN::Meta' => '2.132140', 'CPAN::Meta::Converter' => '2.132140', 'CPAN::Meta::Feature' => '2.132140', 'CPAN::Meta::History' => '2.132140', 'CPAN::Meta::Prereqs' => '2.132140', 'CPAN::Meta::Spec' => '2.132140', 'CPAN::Meta::Validator' => '2.132140', 'Carp' => '1.31', 'Carp::Heavy' => '1.31', 'Compress::Raw::Bzip2' => '2.062', 'Compress::Raw::Zlib' => '2.062', 'Compress::Zlib' => '2.062', 'Config' => '5.019003', 'Config::Perl::V' => '0.19', 'Cwd' => '3.44', 'Data::Dumper' => '2.148', 'Devel::PPPort' => '3.21', 'Devel::Peek' => '1.13', 'DynaLoader' => '1.19', 'Encode' => '2.52', 'Encode::Alias' => '2.17', 'Encode::Encoding' => '2.06', 'Encode::GSM0338' => '2.04', 'Encode::MIME::Header' => '2.14', 'Encode::Unicode' => '2.08', 'English' => '1.08', 'Exporter' => '5.69', 'Exporter::Heavy' => '5.69', 'ExtUtils::Command::MM' => '6.72', 'ExtUtils::Liblist' => '6.72', 'ExtUtils::Liblist::Kid'=> '6.72', 'ExtUtils::MM' => '6.72', 'ExtUtils::MM_AIX' => '6.72', 'ExtUtils::MM_Any' => '6.72', 'ExtUtils::MM_BeOS' => '6.72', 'ExtUtils::MM_Cygwin' => '6.72', 'ExtUtils::MM_DOS' => '6.72', 'ExtUtils::MM_Darwin' => '6.72', 'ExtUtils::MM_MacOS' => '6.72', 'ExtUtils::MM_NW5' => '6.72', 'ExtUtils::MM_OS2' => '6.72', 'ExtUtils::MM_QNX' => '6.72', 'ExtUtils::MM_UWIN' => '6.72', 'ExtUtils::MM_Unix' => '6.72', 'ExtUtils::MM_VMS' => '6.72', 'ExtUtils::MM_VOS' => '6.72', 'ExtUtils::MM_Win32' => '6.72', 'ExtUtils::MM_Win95' => '6.72', 'ExtUtils::MY' => '6.72', 'ExtUtils::MakeMaker' => '6.72', 'ExtUtils::MakeMaker::Config'=> '6.72', 'ExtUtils::Mkbootstrap' => '6.72', 'ExtUtils::Mksymlists' => '6.72', 'ExtUtils::ParseXS::Eval'=> '3.21', 'ExtUtils::testlib' => '6.72', 'File::Spec' => '3.44', 'File::Spec::Cygwin' => '3.44', 'File::Spec::Epoc' => '3.44', 'File::Spec::Functions' => '3.44', 'File::Spec::Mac' => '3.44', 'File::Spec::OS2' => '3.44', 'File::Spec::Unix' => '3.44', 'File::Spec::VMS' => '3.44', 'File::Spec::Win32' => '3.44', 'Getopt::Std' => '1.10', 'IO::Compress::Adapter::Bzip2'=> '2.062', 'IO::Compress::Adapter::Deflate'=> '2.062', 'IO::Compress::Adapter::Identity'=> '2.062', 'IO::Compress::Base' => '2.062', 'IO::Compress::Base::Common'=> '2.062', 'IO::Compress::Bzip2' => '2.062', 'IO::Compress::Deflate' => '2.062', 'IO::Compress::Gzip' => '2.062', 'IO::Compress::Gzip::Constants'=> '2.062', 'IO::Compress::RawDeflate'=> '2.062', 'IO::Compress::Zip' => '2.062', 'IO::Compress::Zip::Constants'=> '2.062', 'IO::Compress::Zlib::Constants'=> '2.062', 'IO::Compress::Zlib::Extra'=> '2.062', 'IO::Uncompress::Adapter::Bunzip2'=> '2.062', 'IO::Uncompress::Adapter::Identity'=> '2.062', 'IO::Uncompress::Adapter::Inflate'=> '2.062', 'IO::Uncompress::AnyInflate'=> '2.062', 'IO::Uncompress::AnyUncompress'=> '2.062', 'IO::Uncompress::Base' => '2.062', 'IO::Uncompress::Bunzip2'=> '2.062', 'IO::Uncompress::Gunzip'=> '2.062', 'IO::Uncompress::Inflate'=> '2.062', 'IO::Uncompress::RawInflate'=> '2.062', 'IO::Uncompress::Unzip' => '2.062', 'IPC::Cmd' => '0.84', 'IPC::Msg' => '2.04', 'IPC::Open3' => '1.15', 'IPC::Semaphore' => '2.04', 'IPC::SharedMem' => '2.04', 'IPC::SysV' => '2.04', 'List::Util' => '1.31', 'List::Util::XS' => '1.31', 'Math::BigFloat::Trace' => '0.36', 'Math::BigInt::Trace' => '0.36', 'Module::Build' => '0.4007', 'Module::Build::Base' => '0.4007', 'Module::Build::Compat' => '0.4007', 'Module::Build::Config' => '0.4007', 'Module::Build::Cookbook'=> '0.4007', 'Module::Build::Dumper' => '0.4007', 'Module::Build::ModuleInfo'=> '0.4007', 'Module::Build::Notes' => '0.4007', 'Module::Build::PPMMaker'=> '0.4007', 'Module::Build::Platform::Default'=> '0.4007', 'Module::Build::Platform::MacOS'=> '0.4007', 'Module::Build::Platform::Unix'=> '0.4007', 'Module::Build::Platform::VMS'=> '0.4007', 'Module::Build::Platform::VOS'=> '0.4007', 'Module::Build::Platform::Windows'=> '0.4007', 'Module::Build::Platform::aix'=> '0.4007', 'Module::Build::Platform::cygwin'=> '0.4007', 'Module::Build::Platform::darwin'=> '0.4007', 'Module::Build::Platform::os2'=> '0.4007', 'Module::Build::PodParser'=> '0.4007', 'Module::CoreList' => '2.97', 'Module::CoreList::TieHashDelta'=> '2.97', 'Module::CoreList::Utils'=> '2.97', 'Net::Cmd' => '2.30', 'Net::Config' => '1.12', 'Net::Domain' => '2.22', 'Net::FTP' => '2.78', 'Net::FTP::dataconn' => '0.12', 'Net::NNTP' => '2.25', 'Net::Netrc' => '2.14', 'Net::POP3' => '2.30', 'Net::SMTP' => '2.32', 'PerlIO' => '1.08', 'Pod::Functions' => '1.08', 'Scalar::Util' => '1.31', 'Socket' => '2.011', 'Storable' => '2.46', 'Time::HiRes' => '1.9726', 'Time::Piece' => '1.22', 'Time::Seconds' => '1.22', 'XS::APItest' => '0.55', 'bigint' => '0.36', 'bignum' => '0.36', 'bigrat' => '0.36', 'constant' => '1.28', 'diagnostics' => '1.32', 'inc::latest' => '0.4007', 'mro' => '1.13', 'parent' => '0.226', 'utf8' => '1.13', 'version' => '0.9903', }, removed => { 'Module::Build::Platform::Amiga'=> 1, 'Module::Build::Platform::EBCDIC'=> 1, 'Module::Build::Platform::MPEiX'=> 1, 'Module::Build::Platform::RiscOS'=> 1, } }, 5.019004 => { delta_from => 5.019003, changed => { 'B' => '1.46', 'B::Concise' => '0.99', 'B::Deparse' => '1.23', 'CPAN' => '2.03', 'CPAN::Meta' => '2.132620', 'CPAN::Meta::Converter' => '2.132620', 'CPAN::Meta::Feature' => '2.132620', 'CPAN::Meta::History' => '2.132620', 'CPAN::Meta::Prereqs' => '2.132620', 'CPAN::Meta::Requirements'=> '2.123', 'CPAN::Meta::Spec' => '2.132620', 'CPAN::Meta::Validator' => '2.132620', 'Carp' => '1.32', 'Carp::Heavy' => '1.32', 'Config' => '5.019004', 'Data::Dumper' => '2.149', 'Devel::Peek' => '1.14', 'DynaLoader' => '1.20', 'Encode' => '2.55', 'Encode::Alias' => '2.18', 'Encode::CN::HZ' => '2.07', 'Encode::Encoder' => '2.03', 'Encode::Encoding' => '2.07', 'Encode::GSM0338' => '2.05', 'Encode::Guess' => '2.06', 'Encode::JP::JIS7' => '2.05', 'Encode::KR::2022_KR' => '2.03', 'Encode::MIME::Header' => '2.15', 'Encode::MIME::Header::ISO_2022_JP'=> '1.04', 'Encode::Unicode' => '2.09', 'Encode::Unicode::UTF7' => '2.08', 'Errno' => '1.20', 'Exporter' => '5.70', 'Exporter::Heavy' => '5.70', 'ExtUtils::CBuilder' => '0.280212', 'ExtUtils::CBuilder::Base'=> '0.280212', 'ExtUtils::CBuilder::Platform::Unix'=> '0.280212', 'ExtUtils::CBuilder::Platform::VMS'=> '0.280212', 'ExtUtils::CBuilder::Platform::Windows'=> '0.280212', 'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280212', 'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280212', 'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280212', 'ExtUtils::CBuilder::Platform::aix'=> '0.280212', 'ExtUtils::CBuilder::Platform::cygwin'=> '0.280212', 'ExtUtils::CBuilder::Platform::darwin'=> '0.280212', 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280212', 'ExtUtils::CBuilder::Platform::os2'=> '0.280212', 'ExtUtils::Command' => '1.18', 'ExtUtils::Command::MM' => '6.76', 'ExtUtils::Liblist' => '6.76', 'ExtUtils::Liblist::Kid'=> '6.76', 'ExtUtils::MM' => '6.76', 'ExtUtils::MM_AIX' => '6.76', 'ExtUtils::MM_Any' => '6.76', 'ExtUtils::MM_BeOS' => '6.76', 'ExtUtils::MM_Cygwin' => '6.76', 'ExtUtils::MM_DOS' => '6.76', 'ExtUtils::MM_Darwin' => '6.76', 'ExtUtils::MM_MacOS' => '6.76', 'ExtUtils::MM_NW5' => '6.76', 'ExtUtils::MM_OS2' => '6.76', 'ExtUtils::MM_QNX' => '6.76', 'ExtUtils::MM_UWIN' => '6.76', 'ExtUtils::MM_Unix' => '6.76', 'ExtUtils::MM_VMS' => '6.76', 'ExtUtils::MM_VOS' => '6.76', 'ExtUtils::MM_Win32' => '6.76', 'ExtUtils::MM_Win95' => '6.76', 'ExtUtils::MY' => '6.76', 'ExtUtils::MakeMaker' => '6.76', 'ExtUtils::MakeMaker::Config'=> '6.76', 'ExtUtils::Mkbootstrap' => '6.76', 'ExtUtils::Mksymlists' => '6.76', 'ExtUtils::ParseXS' => '3.23', 'ExtUtils::ParseXS::Constants'=> '3.23', 'ExtUtils::ParseXS::CountLines'=> '3.23', 'ExtUtils::ParseXS::Eval'=> '3.23', 'ExtUtils::ParseXS::Utilities'=> '3.23', 'ExtUtils::Typemaps' => '3.23', 'ExtUtils::Typemaps::Cmd'=> '3.23', 'ExtUtils::Typemaps::InputMap'=> '3.23', 'ExtUtils::Typemaps::OutputMap'=> '3.23', 'ExtUtils::Typemaps::Type'=> '3.23', 'ExtUtils::testlib' => '6.76', 'Fatal' => '2.21', 'File::Copy' => '2.28', 'File::Find' => '1.25', 'File::Glob' => '1.21', 'FileCache' => '1.09', 'HTTP::Tiny' => '0.035', 'Hash::Util::FieldHash' => '1.13', 'I18N::LangTags' => '0.40', 'IO' => '1.29', 'IO::Socket' => '1.37', 'IPC::Open3' => '1.16', 'JSON::PP' => '2.27202_01', 'List::Util' => '1.32', 'List::Util::XS' => '1.32', 'Locale::Codes' => '3.27', 'Locale::Codes::Constants'=> '3.27', 'Locale::Codes::Country'=> '3.27', 'Locale::Codes::Country_Codes'=> '3.27', 'Locale::Codes::Country_Retired'=> '3.27', 'Locale::Codes::Currency'=> '3.27', 'Locale::Codes::Currency_Codes'=> '3.27', 'Locale::Codes::Currency_Retired'=> '3.27', 'Locale::Codes::LangExt'=> '3.27', 'Locale::Codes::LangExt_Codes'=> '3.27', 'Locale::Codes::LangExt_Retired'=> '3.27', 'Locale::Codes::LangFam'=> '3.27', 'Locale::Codes::LangFam_Codes'=> '3.27', 'Locale::Codes::LangFam_Retired'=> '3.27', 'Locale::Codes::LangVar'=> '3.27', 'Locale::Codes::LangVar_Codes'=> '3.27', 'Locale::Codes::LangVar_Retired'=> '3.27', 'Locale::Codes::Language'=> '3.27', 'Locale::Codes::Language_Codes'=> '3.27', 'Locale::Codes::Language_Retired'=> '3.27', 'Locale::Codes::Script' => '3.27', 'Locale::Codes::Script_Codes'=> '3.27', 'Locale::Codes::Script_Retired'=> '3.27', 'Locale::Country' => '3.27', 'Locale::Currency' => '3.27', 'Locale::Language' => '3.27', 'Locale::Script' => '3.27', 'Math::BigFloat' => '1.9991', 'Math::BigInt' => '1.9993', 'Math::BigInt::FastCalc'=> '0.31', 'Module::CoreList' => '2.99', 'Module::CoreList::TieHashDelta'=> '2.99', 'Module::CoreList::Utils'=> '2.99', 'Module::Load::Conditional'=> '0.58', 'Module::Metadata' => '1.000018', 'Opcode' => '1.26', 'POSIX' => '1.35', 'Parse::CPAN::Meta' => '1.4407', 'Perl::OSType' => '1.005', 'Pod::Html' => '1.21', 'Scalar::Util' => '1.32', 'Socket' => '2.012', 'Storable' => '2.47', 'Term::ReadLine' => '1.14', 'Test::Builder' => '0.98_06', 'Test::Builder::Module' => '0.98_06', 'Test::More' => '0.98_06', 'Test::Simple' => '0.98_06', 'Time::Piece' => '1.23', 'Time::Seconds' => '1.23', 'Unicode::Collate' => '0.99', 'Unicode::UCD' => '0.54', 'XS::APItest' => '0.56', 'XS::Typemap' => '0.11', '_charnames' => '1.39', 'autodie' => '2.21', 'autodie::exception' => '2.21', 'autodie::exception::system'=> '2.21', 'autodie::hints' => '2.21', 'autodie::skip' => '2.21', 'charnames' => '1.39', 'diagnostics' => '1.33', 'mro' => '1.14', 'parent' => '0.228', 'perlfaq' => '5.0150044', 're' => '0.26', 'version' => '0.9904', 'warnings' => '1.19', }, removed => { } }, 5.019005 => { delta_from => 5.019004, changed => { 'App::Prove' => '3.29', 'App::Prove::State' => '3.29', 'App::Prove::State::Result'=> '3.29', 'App::Prove::State::Result::Test'=> '3.29', 'CPAN::Meta' => '2.132830', 'CPAN::Meta::Converter' => '2.132830', 'CPAN::Meta::Feature' => '2.132830', 'CPAN::Meta::History' => '2.132830', 'CPAN::Meta::Prereqs' => '2.132830', 'CPAN::Meta::Requirements'=> '2.125', 'CPAN::Meta::Spec' => '2.132830', 'CPAN::Meta::Validator' => '2.132830', 'CPAN::Meta::YAML' => '0.010', 'Config' => '5.019005', 'Cwd' => '3.45', 'ExtUtils::Command::MM' => '6.80', 'ExtUtils::Install' => '1.61', 'ExtUtils::Liblist' => '6.80', 'ExtUtils::Liblist::Kid'=> '6.80', 'ExtUtils::MM' => '6.80', 'ExtUtils::MM_AIX' => '6.80', 'ExtUtils::MM_Any' => '6.80', 'ExtUtils::MM_BeOS' => '6.80', 'ExtUtils::MM_Cygwin' => '6.80', 'ExtUtils::MM_DOS' => '6.80', 'ExtUtils::MM_Darwin' => '6.80', 'ExtUtils::MM_MacOS' => '6.80', 'ExtUtils::MM_NW5' => '6.80', 'ExtUtils::MM_OS2' => '6.80', 'ExtUtils::MM_QNX' => '6.80', 'ExtUtils::MM_UWIN' => '6.80', 'ExtUtils::MM_Unix' => '6.80', 'ExtUtils::MM_VMS' => '6.80', 'ExtUtils::MM_VOS' => '6.80', 'ExtUtils::MM_Win32' => '6.80', 'ExtUtils::MM_Win95' => '6.80', 'ExtUtils::MY' => '6.80', 'ExtUtils::MakeMaker' => '6.80', 'ExtUtils::MakeMaker::Config'=> '6.80', 'ExtUtils::Mkbootstrap' => '6.80', 'ExtUtils::Mksymlists' => '6.80', 'ExtUtils::testlib' => '6.80', 'Fatal' => '2.22', 'File::Fetch' => '0.44', 'File::Glob' => '1.22', 'File::Spec' => '3.45', 'File::Spec::Cygwin' => '3.45', 'File::Spec::Epoc' => '3.45', 'File::Spec::Functions' => '3.45', 'File::Spec::Mac' => '3.45', 'File::Spec::OS2' => '3.45', 'File::Spec::Unix' => '3.45', 'File::Spec::VMS' => '3.45', 'File::Spec::Win32' => '3.45', 'File::Temp' => '0.2304', 'Getopt::Long' => '2.42', 'HTTP::Tiny' => '0.036', 'IPC::Cmd' => '0.84_01', 'JSON::PP' => '2.27203', 'List::Util' => '1.35', 'List::Util::XS' => '1.35', 'Module::CoreList' => '3.00', 'Module::CoreList::TieHashDelta'=> '3.00', 'Module::CoreList::Utils'=> '3.00', 'Module::Metadata' => '1.000019', 'Parse::CPAN::Meta' => '1.4409', 'Perl::OSType' => '1.006', 'PerlIO::scalar' => '0.17', 'Pod::Man' => '2.28', 'Pod::Text' => '3.18', 'Pod::Text::Termcap' => '2.08', 'Scalar::Util' => '1.35', 'TAP::Base' => '3.29', 'TAP::Formatter::Base' => '3.29', 'TAP::Formatter::Color' => '3.29', 'TAP::Formatter::Console'=> '3.29', 'TAP::Formatter::Console::ParallelSession'=> '3.29', 'TAP::Formatter::Console::Session'=> '3.29', 'TAP::Formatter::File' => '3.29', 'TAP::Formatter::File::Session'=> '3.29', 'TAP::Formatter::Session'=> '3.29', 'TAP::Harness' => '3.29', 'TAP::Harness::Env' => '3.29', 'TAP::Object' => '3.29', 'TAP::Parser' => '3.29', 'TAP::Parser::Aggregator'=> '3.29', 'TAP::Parser::Grammar' => '3.29', 'TAP::Parser::Iterator' => '3.29', 'TAP::Parser::Iterator::Array'=> '3.29', 'TAP::Parser::Iterator::Process'=> '3.29', 'TAP::Parser::Iterator::Stream'=> '3.29', 'TAP::Parser::IteratorFactory'=> '3.29', 'TAP::Parser::Multiplexer'=> '3.29', 'TAP::Parser::Result' => '3.29', 'TAP::Parser::Result::Bailout'=> '3.29', 'TAP::Parser::Result::Comment'=> '3.29', 'TAP::Parser::Result::Plan'=> '3.29', 'TAP::Parser::Result::Pragma'=> '3.29', 'TAP::Parser::Result::Test'=> '3.29', 'TAP::Parser::Result::Unknown'=> '3.29', 'TAP::Parser::Result::Version'=> '3.29', 'TAP::Parser::Result::YAML'=> '3.29', 'TAP::Parser::ResultFactory'=> '3.29', 'TAP::Parser::Scheduler'=> '3.29', 'TAP::Parser::Scheduler::Job'=> '3.29', 'TAP::Parser::Scheduler::Spinner'=> '3.29', 'TAP::Parser::Source' => '3.29', 'TAP::Parser::SourceHandler'=> '3.29', 'TAP::Parser::SourceHandler::Executable'=> '3.29', 'TAP::Parser::SourceHandler::File'=> '3.29', 'TAP::Parser::SourceHandler::Handle'=> '3.29', 'TAP::Parser::SourceHandler::Perl'=> '3.29', 'TAP::Parser::SourceHandler::RawTAP'=> '3.29', 'TAP::Parser::YAMLish::Reader'=> '3.29', 'TAP::Parser::YAMLish::Writer'=> '3.29', 'Test::Builder' => '0.99', 'Test::Builder::Module' => '0.99', 'Test::Builder::Tester' => '1.23_002', 'Test::Builder::Tester::Color'=> '1.23_002', 'Test::Harness' => '3.29', 'Test::More' => '0.99', 'Test::Simple' => '0.99', 'Unicode' => '6.3.0', 'Unicode::Normalize' => '1.17', 'Unicode::UCD' => '0.55', 'attributes' => '0.22', 'autodie' => '2.22', 'autodie::exception' => '2.22', 'autodie::exception::system'=> '2.22', 'autodie::hints' => '2.22', 'autodie::skip' => '2.22', 'feature' => '1.34', 'threads' => '1.89', 'warnings' => '1.20', }, removed => { 'TAP::Parser::Utils' => 1, } }, 5.019006 => { delta_from => 5.019005, changed => { 'App::Prove' => '3.30', 'App::Prove::State' => '3.30', 'App::Prove::State::Result'=> '3.30', 'App::Prove::State::Result::Test'=> '3.30', 'Archive::Tar' => '1.96', 'Archive::Tar::Constant'=> '1.96', 'Archive::Tar::File' => '1.96', 'AutoLoader' => '5.74', 'B' => '1.47', 'B::Concise' => '0.991', 'B::Debug' => '1.19', 'B::Deparse' => '1.24', 'Benchmark' => '1.18', 'Compress::Raw::Bzip2' => '2.063', 'Compress::Raw::Zlib' => '2.063', 'Compress::Zlib' => '2.063', 'Config' => '5.019006', 'DB_File' => '1.831', 'Devel::Peek' => '1.15', 'DynaLoader' => '1.21', 'Errno' => '1.20_01', 'ExtUtils::Command::MM' => '6.82', 'ExtUtils::Liblist' => '6.82', 'ExtUtils::Liblist::Kid'=> '6.82', 'ExtUtils::MM' => '6.82', 'ExtUtils::MM_AIX' => '6.82', 'ExtUtils::MM_Any' => '6.82', 'ExtUtils::MM_BeOS' => '6.82', 'ExtUtils::MM_Cygwin' => '6.82', 'ExtUtils::MM_DOS' => '6.82', 'ExtUtils::MM_Darwin' => '6.82', 'ExtUtils::MM_MacOS' => '6.82', 'ExtUtils::MM_NW5' => '6.82', 'ExtUtils::MM_OS2' => '6.82', 'ExtUtils::MM_QNX' => '6.82', 'ExtUtils::MM_UWIN' => '6.82', 'ExtUtils::MM_Unix' => '6.82', 'ExtUtils::MM_VMS' => '6.82', 'ExtUtils::MM_VOS' => '6.82', 'ExtUtils::MM_Win32' => '6.82', 'ExtUtils::MM_Win95' => '6.82', 'ExtUtils::MY' => '6.82', 'ExtUtils::MakeMaker' => '6.82', 'ExtUtils::MakeMaker::Config'=> '6.82', 'ExtUtils::Mkbootstrap' => '6.82', 'ExtUtils::Mksymlists' => '6.82', 'ExtUtils::testlib' => '6.82', 'File::DosGlob' => '1.12', 'File::Find' => '1.26', 'File::Glob' => '1.23', 'HTTP::Tiny' => '0.038', 'IO' => '1.30', 'IO::Compress::Adapter::Bzip2'=> '2.063', 'IO::Compress::Adapter::Deflate'=> '2.063', 'IO::Compress::Adapter::Identity'=> '2.063', 'IO::Compress::Base' => '2.063', 'IO::Compress::Base::Common'=> '2.063', 'IO::Compress::Bzip2' => '2.063', 'IO::Compress::Deflate' => '2.063', 'IO::Compress::Gzip' => '2.063', 'IO::Compress::Gzip::Constants'=> '2.063', 'IO::Compress::RawDeflate'=> '2.063', 'IO::Compress::Zip' => '2.063', 'IO::Compress::Zip::Constants'=> '2.063', 'IO::Compress::Zlib::Constants'=> '2.063', 'IO::Compress::Zlib::Extra'=> '2.063', 'IO::Select' => '1.22', 'IO::Uncompress::Adapter::Bunzip2'=> '2.063', 'IO::Uncompress::Adapter::Identity'=> '2.063', 'IO::Uncompress::Adapter::Inflate'=> '2.063', 'IO::Uncompress::AnyInflate'=> '2.063', 'IO::Uncompress::AnyUncompress'=> '2.063', 'IO::Uncompress::Base' => '2.063', 'IO::Uncompress::Bunzip2'=> '2.063', 'IO::Uncompress::Gunzip'=> '2.063', 'IO::Uncompress::Inflate'=> '2.063', 'IO::Uncompress::RawInflate'=> '2.063', 'IO::Uncompress::Unzip' => '2.063', 'IPC::Cmd' => '0.90', 'Locale::Maketext' => '1.25', 'Module::Build' => '0.4202', 'Module::Build::Base' => '0.4202', 'Module::Build::Compat' => '0.4202', 'Module::Build::Config' => '0.4202', 'Module::Build::Cookbook'=> '0.4202', 'Module::Build::Dumper' => '0.4202', 'Module::Build::ModuleInfo'=> '0.4202', 'Module::Build::Notes' => '0.4202', 'Module::Build::PPMMaker'=> '0.4202', 'Module::Build::Platform::Default'=> '0.4202', 'Module::Build::Platform::MacOS'=> '0.4202', 'Module::Build::Platform::Unix'=> '0.4202', 'Module::Build::Platform::VMS'=> '0.4202', 'Module::Build::Platform::VOS'=> '0.4202', 'Module::Build::Platform::Windows'=> '0.4202', 'Module::Build::Platform::aix'=> '0.4202', 'Module::Build::Platform::cygwin'=> '0.4202', 'Module::Build::Platform::darwin'=> '0.4202', 'Module::Build::Platform::os2'=> '0.4202', 'Module::Build::PodParser'=> '0.4202', 'Module::CoreList' => '3.01', 'Module::CoreList::TieHashDelta'=> '3.01', 'Module::CoreList::Utils'=> '3.01', 'Opcode' => '1.27', 'POSIX' => '1.36', 'Package::Constants' => '0.04', 'PerlIO::scalar' => '0.18', 'PerlIO::via' => '0.13', 'SDBM_File' => '1.10', 'Socket' => '2.013', 'TAP::Base' => '3.30', 'TAP::Formatter::Base' => '3.30', 'TAP::Formatter::Color' => '3.30', 'TAP::Formatter::Console'=> '3.30', 'TAP::Formatter::Console::ParallelSession'=> '3.30', 'TAP::Formatter::Console::Session'=> '3.30', 'TAP::Formatter::File' => '3.30', 'TAP::Formatter::File::Session'=> '3.30', 'TAP::Formatter::Session'=> '3.30', 'TAP::Harness' => '3.30', 'TAP::Harness::Env' => '3.30', 'TAP::Object' => '3.30', 'TAP::Parser' => '3.30', 'TAP::Parser::Aggregator'=> '3.30', 'TAP::Parser::Grammar' => '3.30', 'TAP::Parser::Iterator' => '3.30', 'TAP::Parser::Iterator::Array'=> '3.30', 'TAP::Parser::Iterator::Process'=> '3.30', 'TAP::Parser::Iterator::Stream'=> '3.30', 'TAP::Parser::IteratorFactory'=> '3.30', 'TAP::Parser::Multiplexer'=> '3.30', 'TAP::Parser::Result' => '3.30', 'TAP::Parser::Result::Bailout'=> '3.30', 'TAP::Parser::Result::Comment'=> '3.30', 'TAP::Parser::Result::Plan'=> '3.30', 'TAP::Parser::Result::Pragma'=> '3.30', 'TAP::Parser::Result::Test'=> '3.30', 'TAP::Parser::Result::Unknown'=> '3.30', 'TAP::Parser::Result::Version'=> '3.30', 'TAP::Parser::Result::YAML'=> '3.30', 'TAP::Parser::ResultFactory'=> '3.30', 'TAP::Parser::Scheduler'=> '3.30', 'TAP::Parser::Scheduler::Job'=> '3.30', 'TAP::Parser::Scheduler::Spinner'=> '3.30', 'TAP::Parser::Source' => '3.30', 'TAP::Parser::SourceHandler'=> '3.30', 'TAP::Parser::SourceHandler::Executable'=> '3.30', 'TAP::Parser::SourceHandler::File'=> '3.30', 'TAP::Parser::SourceHandler::Handle'=> '3.30', 'TAP::Parser::SourceHandler::Perl'=> '3.30', 'TAP::Parser::SourceHandler::RawTAP'=> '3.30', 'TAP::Parser::YAMLish::Reader'=> '3.30', 'TAP::Parser::YAMLish::Writer'=> '3.30', 'Term::Cap' => '1.15', 'Test::Builder' => '1.001002', 'Test::Builder::Module' => '1.001002', 'Test::Harness' => '3.30', 'Test::More' => '1.001002', 'Test::Simple' => '1.001002', 'Tie::StdHandle' => '4.4', 'Unicode::Collate' => '1.02', 'Unicode::Collate::CJK::Korean'=> '1.02', 'Unicode::Collate::Locale'=> '1.02', 'XS::APItest' => '0.57', 'XS::Typemap' => '0.12', 'arybase' => '0.07', 'bignum' => '0.37', 'constant' => '1.29', 'fields' => '2.17', 'inc::latest' => '0.4202', 'threads' => '1.90', 'threads::shared' => '1.45', }, removed => { } }, 5.019007 => { delta_from => 5.019006, changed => { 'CGI' => '3.64', 'CGI::Apache' => '1.02', 'CGI::Carp' => '3.64', 'CGI::Cookie' => '1.31', 'CGI::Fast' => '1.10', 'CGI::Pretty' => '3.64', 'CGI::Push' => '1.06', 'CGI::Switch' => '1.02', 'CGI::Util' => '3.64', 'CPAN::Meta' => '2.133380', 'CPAN::Meta::Converter' => '2.133380', 'CPAN::Meta::Feature' => '2.133380', 'CPAN::Meta::History' => '2.133380', 'CPAN::Meta::Prereqs' => '2.133380', 'CPAN::Meta::Spec' => '2.133380', 'CPAN::Meta::Validator' => '2.133380', 'Config' => '5.019007', 'Data::Dumper' => '2.150', 'DynaLoader' => '1.22', 'ExtUtils::Command::MM' => '6.84', 'ExtUtils::Liblist' => '6.84', 'ExtUtils::Liblist::Kid'=> '6.84', 'ExtUtils::MM' => '6.84', 'ExtUtils::MM_AIX' => '6.84', 'ExtUtils::MM_Any' => '6.84', 'ExtUtils::MM_BeOS' => '6.84', 'ExtUtils::MM_Cygwin' => '6.84', 'ExtUtils::MM_DOS' => '6.84', 'ExtUtils::MM_Darwin' => '6.84', 'ExtUtils::MM_MacOS' => '6.84', 'ExtUtils::MM_NW5' => '6.84', 'ExtUtils::MM_OS2' => '6.84', 'ExtUtils::MM_QNX' => '6.84', 'ExtUtils::MM_UWIN' => '6.84', 'ExtUtils::MM_Unix' => '6.84', 'ExtUtils::MM_VMS' => '6.84', 'ExtUtils::MM_VOS' => '6.84', 'ExtUtils::MM_Win32' => '6.84', 'ExtUtils::MM_Win95' => '6.84', 'ExtUtils::MY' => '6.84', 'ExtUtils::MakeMaker' => '6.84', 'ExtUtils::MakeMaker::Config'=> '6.84', 'ExtUtils::Mkbootstrap' => '6.84', 'ExtUtils::Mksymlists' => '6.84', 'ExtUtils::testlib' => '6.84', 'File::Fetch' => '0.46', 'HTTP::Tiny' => '0.039', 'Locale::Codes' => '3.28', 'Locale::Codes::Constants'=> '3.28', 'Locale::Codes::Country'=> '3.28', 'Locale::Codes::Country_Codes'=> '3.28', 'Locale::Codes::Country_Retired'=> '3.28', 'Locale::Codes::Currency'=> '3.28', 'Locale::Codes::Currency_Codes'=> '3.28', 'Locale::Codes::Currency_Retired'=> '3.28', 'Locale::Codes::LangExt'=> '3.28', 'Locale::Codes::LangExt_Codes'=> '3.28', 'Locale::Codes::LangExt_Retired'=> '3.28', 'Locale::Codes::LangFam'=> '3.28', 'Locale::Codes::LangFam_Codes'=> '3.28', 'Locale::Codes::LangFam_Retired'=> '3.28', 'Locale::Codes::LangVar'=> '3.28', 'Locale::Codes::LangVar_Codes'=> '3.28', 'Locale::Codes::LangVar_Retired'=> '3.28', 'Locale::Codes::Language'=> '3.28', 'Locale::Codes::Language_Codes'=> '3.28', 'Locale::Codes::Language_Retired'=> '3.28', 'Locale::Codes::Script' => '3.28', 'Locale::Codes::Script_Codes'=> '3.28', 'Locale::Codes::Script_Retired'=> '3.28', 'Locale::Country' => '3.28', 'Locale::Currency' => '3.28', 'Locale::Language' => '3.28', 'Locale::Script' => '3.28', 'Module::Build' => '0.4203', 'Module::Build::Base' => '0.4203', 'Module::Build::Compat' => '0.4203', 'Module::Build::Config' => '0.4203', 'Module::Build::Cookbook'=> '0.4203', 'Module::Build::Dumper' => '0.4203', 'Module::Build::ModuleInfo'=> '0.4203', 'Module::Build::Notes' => '0.4203', 'Module::Build::PPMMaker'=> '0.4203', 'Module::Build::Platform::Default'=> '0.4203', 'Module::Build::Platform::MacOS'=> '0.4203', 'Module::Build::Platform::Unix'=> '0.4203', 'Module::Build::Platform::VMS'=> '0.4203', 'Module::Build::Platform::VOS'=> '0.4203', 'Module::Build::Platform::Windows'=> '0.4203', 'Module::Build::Platform::aix'=> '0.4203', 'Module::Build::Platform::cygwin'=> '0.4203', 'Module::Build::Platform::darwin'=> '0.4203', 'Module::Build::Platform::os2'=> '0.4203', 'Module::Build::PodParser'=> '0.4203', 'Module::CoreList' => '3.02', 'Module::CoreList::TieHashDelta'=> '3.02', 'Module::CoreList::Utils'=> '3.02', 'POSIX' => '1.37', 'PerlIO::encoding' => '0.17', 'PerlIO::via' => '0.14', 'SDBM_File' => '1.11', 'Storable' => '2.48', 'Time::Piece' => '1.24', 'Time::Seconds' => '1.24', 'Unicode::Collate' => '1.04', 'Win32' => '0.48', 'XS::APItest' => '0.58', 'base' => '2.20', 'constant' => '1.30', 'inc::latest' => '0.4203', 'threads' => '1.91', }, removed => { } }, 5.019008 => { delta_from => 5.019007, changed => { 'Config' => '5.019008', 'DynaLoader' => '1.24', 'Encode' => '2.57', 'Errno' => '1.20_02', 'ExtUtils::CBuilder' => '0.280213', 'ExtUtils::CBuilder::Base'=> '0.280213', 'ExtUtils::CBuilder::Platform::Unix'=> '0.280213', 'ExtUtils::CBuilder::Platform::VMS'=> '0.280213', 'ExtUtils::CBuilder::Platform::Windows'=> '0.280213', 'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280213', 'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280213', 'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280213', 'ExtUtils::CBuilder::Platform::aix'=> '0.280213', 'ExtUtils::CBuilder::Platform::cygwin'=> '0.280213', 'ExtUtils::CBuilder::Platform::darwin'=> '0.280213', 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280213', 'ExtUtils::CBuilder::Platform::os2'=> '0.280213', 'ExtUtils::Command::MM' => '6.86', 'ExtUtils::Liblist' => '6.86', 'ExtUtils::Liblist::Kid'=> '6.86', 'ExtUtils::MM' => '6.86', 'ExtUtils::MM_AIX' => '6.86', 'ExtUtils::MM_Any' => '6.86', 'ExtUtils::MM_BeOS' => '6.86', 'ExtUtils::MM_Cygwin' => '6.86', 'ExtUtils::MM_DOS' => '6.86', 'ExtUtils::MM_Darwin' => '6.86', 'ExtUtils::MM_MacOS' => '6.86', 'ExtUtils::MM_NW5' => '6.86', 'ExtUtils::MM_OS2' => '6.86', 'ExtUtils::MM_QNX' => '6.86', 'ExtUtils::MM_UWIN' => '6.86', 'ExtUtils::MM_Unix' => '6.86', 'ExtUtils::MM_VMS' => '6.86', 'ExtUtils::MM_VOS' => '6.86', 'ExtUtils::MM_Win32' => '6.86', 'ExtUtils::MM_Win95' => '6.86', 'ExtUtils::MY' => '6.86', 'ExtUtils::MakeMaker' => '6.86', 'ExtUtils::MakeMaker::Config'=> '6.86', 'ExtUtils::Mkbootstrap' => '6.86', 'ExtUtils::Mksymlists' => '6.86', 'ExtUtils::testlib' => '6.86', 'File::Copy' => '2.29', 'Hash::Util::FieldHash' => '1.14', 'IO::Socket::IP' => '0.26', 'IO::Socket::UNIX' => '1.26', 'List::Util' => '1.36', 'List::Util::XS' => '1.36', 'Module::Build' => '0.4204', 'Module::Build::Base' => '0.4204', 'Module::Build::Compat' => '0.4204', 'Module::Build::Config' => '0.4204', 'Module::Build::Cookbook'=> '0.4204', 'Module::Build::Dumper' => '0.4204', 'Module::Build::ModuleInfo'=> '0.4204', 'Module::Build::Notes' => '0.4204', 'Module::Build::PPMMaker'=> '0.4204', 'Module::Build::Platform::Default'=> '0.4204', 'Module::Build::Platform::MacOS'=> '0.4204', 'Module::Build::Platform::Unix'=> '0.4204', 'Module::Build::Platform::VMS'=> '0.4204', 'Module::Build::Platform::VOS'=> '0.4204', 'Module::Build::Platform::Windows'=> '0.4204', 'Module::Build::Platform::aix'=> '0.4204', 'Module::Build::Platform::cygwin'=> '0.4204', 'Module::Build::Platform::darwin'=> '0.4204', 'Module::Build::Platform::os2'=> '0.4204', 'Module::Build::PodParser'=> '0.4204', 'Module::CoreList' => '3.04', 'Module::CoreList::TieHashDelta'=> '3.04', 'Module::CoreList::Utils'=> '3.04', 'Module::Load' => '0.28', 'Module::Load::Conditional'=> '0.60', 'Net::Config' => '1.13', 'Net::FTP::A' => '1.19', 'POSIX' => '1.38_01', 'Perl::OSType' => '1.007', 'PerlIO::encoding' => '0.18', 'Pod::Perldoc' => '3.21', 'Pod::Perldoc::BaseTo' => '3.21', 'Pod::Perldoc::GetOptsOO'=> '3.21', 'Pod::Perldoc::ToANSI' => '3.21', 'Pod::Perldoc::ToChecker'=> '3.21', 'Pod::Perldoc::ToMan' => '3.21', 'Pod::Perldoc::ToNroff' => '3.21', 'Pod::Perldoc::ToPod' => '3.21', 'Pod::Perldoc::ToRtf' => '3.21', 'Pod::Perldoc::ToTerm' => '3.21', 'Pod::Perldoc::ToText' => '3.21', 'Pod::Perldoc::ToTk' => '3.21', 'Pod::Perldoc::ToXml' => '3.21', 'Scalar::Util' => '1.36', 'Time::Piece' => '1.27', 'Time::Seconds' => '1.27', 'Unicode::UCD' => '0.57', 'XS::APItest' => '0.59', 'XSLoader' => '0.17', 'base' => '2.21', 'constant' => '1.31', 'inc::latest' => '0.4204', 'threads::shared' => '1.46', 'version' => '0.9907', 'version::regex' => '0.9907', 'version::vpp' => '0.9907', 'warnings' => '1.21', }, removed => { } }, 5.019009 => { delta_from => 5.019008, changed => { 'B' => '1.48', 'B::Concise' => '0.992', 'B::Deparse' => '1.25', 'CGI' => '3.65', 'CPAN::Meta::YAML' => '0.011', 'Compress::Raw::Bzip2' => '2.064', 'Compress::Raw::Zlib' => '2.065', 'Compress::Zlib' => '2.064', 'Config' => '5.019009', 'Config::Perl::V' => '0.20', 'Cwd' => '3.47', 'Devel::Peek' => '1.16', 'Digest::SHA' => '5.87', 'DynaLoader' => '1.25', 'English' => '1.09', 'ExtUtils::CBuilder' => '0.280216', 'ExtUtils::CBuilder::Base'=> '0.280216', 'ExtUtils::CBuilder::Platform::Unix'=> '0.280216', 'ExtUtils::CBuilder::Platform::VMS'=> '0.280216', 'ExtUtils::CBuilder::Platform::Windows'=> '0.280216', 'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280216', 'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280216', 'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280216', 'ExtUtils::CBuilder::Platform::aix'=> '0.280216', 'ExtUtils::CBuilder::Platform::android'=> '0.280216', 'ExtUtils::CBuilder::Platform::cygwin'=> '0.280216', 'ExtUtils::CBuilder::Platform::darwin'=> '0.280216', 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280216', 'ExtUtils::CBuilder::Platform::os2'=> '0.280216', 'ExtUtils::Command::MM' => '6.88', 'ExtUtils::Embed' => '1.32', 'ExtUtils::Install' => '1.62', 'ExtUtils::Installed' => '1.999004', 'ExtUtils::Liblist' => '6.88', 'ExtUtils::Liblist::Kid'=> '6.88', 'ExtUtils::MM' => '6.88', 'ExtUtils::MM_AIX' => '6.88', 'ExtUtils::MM_Any' => '6.88', 'ExtUtils::MM_BeOS' => '6.88', 'ExtUtils::MM_Cygwin' => '6.88', 'ExtUtils::MM_DOS' => '6.88', 'ExtUtils::MM_Darwin' => '6.88', 'ExtUtils::MM_MacOS' => '6.88', 'ExtUtils::MM_NW5' => '6.88', 'ExtUtils::MM_OS2' => '6.88', 'ExtUtils::MM_QNX' => '6.88', 'ExtUtils::MM_UWIN' => '6.88', 'ExtUtils::MM_Unix' => '6.88', 'ExtUtils::MM_VMS' => '6.88', 'ExtUtils::MM_VOS' => '6.88', 'ExtUtils::MM_Win32' => '6.88', 'ExtUtils::MM_Win95' => '6.88', 'ExtUtils::MY' => '6.88', 'ExtUtils::MakeMaker' => '6.88', 'ExtUtils::MakeMaker::Config'=> '6.88', 'ExtUtils::Mkbootstrap' => '6.88', 'ExtUtils::Mksymlists' => '6.88', 'ExtUtils::Packlist' => '1.47', 'ExtUtils::testlib' => '6.88', 'Fatal' => '2.23', 'File::Fetch' => '0.48', 'File::Spec' => '3.47', 'File::Spec::Cygwin' => '3.47', 'File::Spec::Epoc' => '3.47', 'File::Spec::Functions' => '3.47', 'File::Spec::Mac' => '3.47', 'File::Spec::OS2' => '3.47', 'File::Spec::Unix' => '3.47', 'File::Spec::VMS' => '3.47', 'File::Spec::Win32' => '3.47', 'HTTP::Tiny' => '0.042', 'IO::Compress::Adapter::Bzip2'=> '2.064', 'IO::Compress::Adapter::Deflate'=> '2.064', 'IO::Compress::Adapter::Identity'=> '2.064', 'IO::Compress::Base' => '2.064', 'IO::Compress::Base::Common'=> '2.064', 'IO::Compress::Bzip2' => '2.064', 'IO::Compress::Deflate' => '2.064', 'IO::Compress::Gzip' => '2.064', 'IO::Compress::Gzip::Constants'=> '2.064', 'IO::Compress::RawDeflate'=> '2.064', 'IO::Compress::Zip' => '2.064', 'IO::Compress::Zip::Constants'=> '2.064', 'IO::Compress::Zlib::Constants'=> '2.064', 'IO::Compress::Zlib::Extra'=> '2.064', 'IO::Socket::INET' => '1.35', 'IO::Socket::IP' => '0.28', 'IO::Uncompress::Adapter::Bunzip2'=> '2.064', 'IO::Uncompress::Adapter::Identity'=> '2.064', 'IO::Uncompress::Adapter::Inflate'=> '2.064', 'IO::Uncompress::AnyInflate'=> '2.064', 'IO::Uncompress::AnyUncompress'=> '2.064', 'IO::Uncompress::Base' => '2.064', 'IO::Uncompress::Bunzip2'=> '2.064', 'IO::Uncompress::Gunzip'=> '2.064', 'IO::Uncompress::Inflate'=> '2.064', 'IO::Uncompress::RawInflate'=> '2.064', 'IO::Uncompress::Unzip' => '2.064', 'IPC::Cmd' => '0.92', 'List::Util' => '1.38', 'List::Util::XS' => '1.38', 'Locale::Codes' => '3.29', 'Locale::Codes::Constants'=> '3.29', 'Locale::Codes::Country'=> '3.29', 'Locale::Codes::Country_Codes'=> '3.29', 'Locale::Codes::Country_Retired'=> '3.29', 'Locale::Codes::Currency'=> '3.29', 'Locale::Codes::Currency_Codes'=> '3.29', 'Locale::Codes::Currency_Retired'=> '3.29', 'Locale::Codes::LangExt'=> '3.29', 'Locale::Codes::LangExt_Codes'=> '3.29', 'Locale::Codes::LangExt_Retired'=> '3.29', 'Locale::Codes::LangFam'=> '3.29', 'Locale::Codes::LangFam_Codes'=> '3.29', 'Locale::Codes::LangFam_Retired'=> '3.29', 'Locale::Codes::LangVar'=> '3.29', 'Locale::Codes::LangVar_Codes'=> '3.29', 'Locale::Codes::LangVar_Retired'=> '3.29', 'Locale::Codes::Language'=> '3.29', 'Locale::Codes::Language_Codes'=> '3.29', 'Locale::Codes::Language_Retired'=> '3.29', 'Locale::Codes::Script' => '3.29', 'Locale::Codes::Script_Codes'=> '3.29', 'Locale::Codes::Script_Retired'=> '3.29', 'Locale::Country' => '3.29', 'Locale::Currency' => '3.29', 'Locale::Language' => '3.29', 'Locale::Script' => '3.29', 'Module::Build' => '0.4205', 'Module::Build::Base' => '0.4205', 'Module::Build::Compat' => '0.4205', 'Module::Build::Config' => '0.4205', 'Module::Build::Cookbook'=> '0.4205', 'Module::Build::Dumper' => '0.4205', 'Module::Build::ModuleInfo'=> '0.4205', 'Module::Build::Notes' => '0.4205', 'Module::Build::PPMMaker'=> '0.4205', 'Module::Build::Platform::Default'=> '0.4205', 'Module::Build::Platform::MacOS'=> '0.4205', 'Module::Build::Platform::Unix'=> '0.4205', 'Module::Build::Platform::VMS'=> '0.4205', 'Module::Build::Platform::VOS'=> '0.4205', 'Module::Build::Platform::Windows'=> '0.4205', 'Module::Build::Platform::aix'=> '0.4205', 'Module::Build::Platform::cygwin'=> '0.4205', 'Module::Build::Platform::darwin'=> '0.4205', 'Module::Build::Platform::os2'=> '0.4205', 'Module::Build::PodParser'=> '0.4205', 'Module::CoreList' => '3.06', 'Module::CoreList::TieHashDelta'=> '3.06', 'Module::CoreList::Utils'=> '3.06', 'Module::Load' => '0.30', 'Module::Load::Conditional'=> '0.62', 'Net::Domain' => '2.23', 'Net::FTP' => '2.79', 'Net::NNTP' => '2.26', 'Net::POP3' => '2.31', 'Net::Ping' => '2.43', 'Net::SMTP' => '2.33', 'POSIX' => '1.38_02', 'Parse::CPAN::Meta' => '1.4413', 'Pod::Escapes' => '1.06', 'Pod::Find' => '1.62', 'Pod::InputObjects' => '1.62', 'Pod::ParseUtils' => '1.62', 'Pod::Parser' => '1.62', 'Pod::Select' => '1.62', 'Scalar::Util' => '1.38', 'autodie' => '2.23', 'autodie::exception' => '2.23', 'autodie::exception::system'=> '2.23', 'autodie::hints' => '2.23', 'autodie::skip' => '2.23', 'diagnostics' => '1.34', 'feature' => '1.35', 'inc::latest' => '0.4205', 'locale' => '1.03', 'mro' => '1.15', 'threads' => '1.92', 'version' => '0.9908', 'version::regex' => '0.9908', 'version::vpp' => '0.9908', 'warnings' => '1.22', }, removed => { } }, 5.01901 => { delta_from => 5.019009, changed => { 'App::Cpan' => '1.62', 'Attribute::Handlers' => '0.96', 'B::Deparse' => '1.26', 'CPAN' => '2.04', 'CPAN::Bundle' => '5.5001', 'CPAN::Complete' => '5.5001', 'CPAN::Distribution' => '2.01', 'CPAN::Distroprefs' => '6.0001', 'CPAN::FirstTime' => '5.5305', 'CPAN::Meta' => '2.140640', 'CPAN::Meta::Converter' => '2.140640', 'CPAN::Meta::Feature' => '2.140640', 'CPAN::Meta::History' => '2.140640', 'CPAN::Meta::Prereqs' => '2.140640', 'CPAN::Meta::Spec' => '2.140640', 'CPAN::Meta::Validator' => '2.140640', 'CPAN::Meta::YAML' => '0.012', 'CPAN::Queue' => '5.5002', 'CPAN::Shell' => '5.5003', 'CPAN::Tarzip' => '5.5012', 'CPAN::Version' => '5.5003', 'Carp' => '1.33', 'Carp::Heavy' => '1.33', 'Config' => '5.019010', 'Data::Dumper' => '2.151', 'Devel::PPPort' => '3.22', 'Digest::SHA' => '5.88', 'ExtUtils::Command::MM' => '6.92', 'ExtUtils::Install' => '1.63', 'ExtUtils::Installed' => '1.999005', 'ExtUtils::Liblist' => '6.92', 'ExtUtils::Liblist::Kid'=> '6.92', 'ExtUtils::MM' => '6.92', 'ExtUtils::MM_AIX' => '6.92', 'ExtUtils::MM_Any' => '6.92', 'ExtUtils::MM_BeOS' => '6.92', 'ExtUtils::MM_Cygwin' => '6.92', 'ExtUtils::MM_DOS' => '6.92', 'ExtUtils::MM_Darwin' => '6.92', 'ExtUtils::MM_MacOS' => '6.92', 'ExtUtils::MM_NW5' => '6.92', 'ExtUtils::MM_OS2' => '6.92', 'ExtUtils::MM_QNX' => '6.92', 'ExtUtils::MM_UWIN' => '6.92', 'ExtUtils::MM_Unix' => '6.92', 'ExtUtils::MM_VMS' => '6.92', 'ExtUtils::MM_VOS' => '6.92', 'ExtUtils::MM_Win32' => '6.92', 'ExtUtils::MM_Win95' => '6.92', 'ExtUtils::MY' => '6.92', 'ExtUtils::MakeMaker' => '6.92', 'ExtUtils::MakeMaker::Config'=> '6.92', 'ExtUtils::Mkbootstrap' => '6.92', 'ExtUtils::Mksymlists' => '6.92', 'ExtUtils::Packlist' => '1.48', 'ExtUtils::ParseXS' => '3.24', 'ExtUtils::ParseXS::Constants'=> '3.24', 'ExtUtils::ParseXS::CountLines'=> '3.24', 'ExtUtils::ParseXS::Eval'=> '3.24', 'ExtUtils::ParseXS::Utilities'=> '3.24', 'ExtUtils::Typemaps' => '3.24', 'ExtUtils::Typemaps::Cmd'=> '3.24', 'ExtUtils::Typemaps::InputMap'=> '3.24', 'ExtUtils::Typemaps::OutputMap'=> '3.24', 'ExtUtils::Typemaps::Type'=> '3.24', 'ExtUtils::testlib' => '6.92', 'File::Find' => '1.27', 'Filter::Simple' => '0.91', 'HTTP::Tiny' => '0.043', 'Hash::Util::FieldHash' => '1.15', 'IO' => '1.31', 'IO::Socket::IP' => '0.29', 'Locale::Codes' => '3.30', 'Locale::Codes::Constants'=> '3.30', 'Locale::Codes::Country'=> '3.30', 'Locale::Codes::Country_Codes'=> '3.30', 'Locale::Codes::Country_Retired'=> '3.30', 'Locale::Codes::Currency'=> '3.30', 'Locale::Codes::Currency_Codes'=> '3.30', 'Locale::Codes::Currency_Retired'=> '3.30', 'Locale::Codes::LangExt'=> '3.30', 'Locale::Codes::LangExt_Codes'=> '3.30', 'Locale::Codes::LangExt_Retired'=> '3.30', 'Locale::Codes::LangFam'=> '3.30', 'Locale::Codes::LangFam_Codes'=> '3.30', 'Locale::Codes::LangFam_Retired'=> '3.30', 'Locale::Codes::LangVar'=> '3.30', 'Locale::Codes::LangVar_Codes'=> '3.30', 'Locale::Codes::LangVar_Retired'=> '3.30', 'Locale::Codes::Language'=> '3.30', 'Locale::Codes::Language_Codes'=> '3.30', 'Locale::Codes::Language_Retired'=> '3.30', 'Locale::Codes::Script' => '3.30', 'Locale::Codes::Script_Codes'=> '3.30', 'Locale::Codes::Script_Retired'=> '3.30', 'Locale::Country' => '3.30', 'Locale::Currency' => '3.30', 'Locale::Language' => '3.30', 'Locale::Script' => '3.30', 'Module::CoreList' => '3.09', 'Module::CoreList::TieHashDelta'=> '3.09', 'Module::CoreList::Utils'=> '3.09', 'Module::Load' => '0.32', 'POSIX' => '1.38_03', 'Parse::CPAN::Meta' => '1.4414', 'Pod::Perldoc' => '3.23', 'Pod::Perldoc::BaseTo' => '3.23', 'Pod::Perldoc::GetOptsOO'=> '3.23', 'Pod::Perldoc::ToANSI' => '3.23', 'Pod::Perldoc::ToChecker'=> '3.23', 'Pod::Perldoc::ToMan' => '3.23', 'Pod::Perldoc::ToNroff' => '3.23', 'Pod::Perldoc::ToPod' => '3.23', 'Pod::Perldoc::ToRtf' => '3.23', 'Pod::Perldoc::ToTerm' => '3.23', 'Pod::Perldoc::ToText' => '3.23', 'Pod::Perldoc::ToTk' => '3.23', 'Pod::Perldoc::ToXml' => '3.23', 'Thread::Queue' => '3.05', 'XS::APItest' => '0.60', 'XS::Typemap' => '0.13', 'autouse' => '1.08', 'base' => '2.22', 'charnames' => '1.40', 'feature' => '1.36', 'mro' => '1.16', 'threads' => '1.93', 'warnings' => '1.23', 'warnings::register' => '1.03', }, removed => { } }, 5.019011 => { delta_from => 5.01901, changed => { 'CPAN' => '2.05', 'CPAN::Distribution' => '2.02', 'CPAN::FirstTime' => '5.5306', 'CPAN::Shell' => '5.5004', 'Carp' => '1.3301', 'Carp::Heavy' => '1.3301', 'Config' => '5.019011', 'ExtUtils::Command::MM' => '6.94', 'ExtUtils::Install' => '1.67', 'ExtUtils::Liblist' => '6.94', 'ExtUtils::Liblist::Kid'=> '6.94', 'ExtUtils::MM' => '6.94', 'ExtUtils::MM_AIX' => '6.94', 'ExtUtils::MM_Any' => '6.94', 'ExtUtils::MM_BeOS' => '6.94', 'ExtUtils::MM_Cygwin' => '6.94', 'ExtUtils::MM_DOS' => '6.94', 'ExtUtils::MM_Darwin' => '6.94', 'ExtUtils::MM_MacOS' => '6.94', 'ExtUtils::MM_NW5' => '6.94', 'ExtUtils::MM_OS2' => '6.94', 'ExtUtils::MM_QNX' => '6.94', 'ExtUtils::MM_UWIN' => '6.94', 'ExtUtils::MM_Unix' => '6.94', 'ExtUtils::MM_VMS' => '6.94', 'ExtUtils::MM_VOS' => '6.94', 'ExtUtils::MM_Win32' => '6.94', 'ExtUtils::MM_Win95' => '6.94', 'ExtUtils::MY' => '6.94', 'ExtUtils::MakeMaker' => '6.94', 'ExtUtils::MakeMaker::Config'=> '6.94', 'ExtUtils::Mkbootstrap' => '6.94', 'ExtUtils::Mksymlists' => '6.94', 'ExtUtils::testlib' => '6.94', 'Module::CoreList' => '3.10', 'Module::CoreList::TieHashDelta'=> '3.10', 'Module::CoreList::Utils'=> '3.10', 'PerlIO' => '1.09', 'Storable' => '2.49', 'Win32' => '0.49', 'experimental' => '0.007', }, removed => { } }, 5.020000 => { delta_from => 5.019011, changed => { 'Config' => '5.02', 'Devel::PPPort' => '3.21', 'Encode' => '2.60', 'Errno' => '1.20_03', 'ExtUtils::Command::MM' => '6.98', 'ExtUtils::Liblist' => '6.98', 'ExtUtils::Liblist::Kid'=> '6.98', 'ExtUtils::MM' => '6.98', 'ExtUtils::MM_AIX' => '6.98', 'ExtUtils::MM_Any' => '6.98', 'ExtUtils::MM_BeOS' => '6.98', 'ExtUtils::MM_Cygwin' => '6.98', 'ExtUtils::MM_DOS' => '6.98', 'ExtUtils::MM_Darwin' => '6.98', 'ExtUtils::MM_MacOS' => '6.98', 'ExtUtils::MM_NW5' => '6.98', 'ExtUtils::MM_OS2' => '6.98', 'ExtUtils::MM_QNX' => '6.98', 'ExtUtils::MM_UWIN' => '6.98', 'ExtUtils::MM_Unix' => '6.98', 'ExtUtils::MM_VMS' => '6.98', 'ExtUtils::MM_VOS' => '6.98', 'ExtUtils::MM_Win32' => '6.98', 'ExtUtils::MM_Win95' => '6.98', 'ExtUtils::MY' => '6.98', 'ExtUtils::MakeMaker' => '6.98', 'ExtUtils::MakeMaker::Config'=> '6.98', 'ExtUtils::Miniperl' => '1.01', 'ExtUtils::Mkbootstrap' => '6.98', 'ExtUtils::Mksymlists' => '6.98', 'ExtUtils::testlib' => '6.98', 'Pod::Functions::Functions'=> '1.08', }, removed => { } }, 5.021000 => { delta_from => 5.020000, changed => { 'Module::CoreList' => '5.021001', 'Module::CoreList::TieHashDelta'=> '5.021001', 'Module::CoreList::Utils'=> '5.021001', 'feature' => '1.37', }, removed => { 'CGI' => 1, 'CGI::Apache' => 1, 'CGI::Carp' => 1, 'CGI::Cookie' => 1, 'CGI::Fast' => 1, 'CGI::Pretty' => 1, 'CGI::Push' => 1, 'CGI::Switch' => 1, 'CGI::Util' => 1, 'Module::Build' => 1, 'Module::Build::Base' => 1, 'Module::Build::Compat' => 1, 'Module::Build::Config' => 1, 'Module::Build::ConfigData'=> 1, 'Module::Build::Cookbook'=> 1, 'Module::Build::Dumper' => 1, 'Module::Build::ModuleInfo'=> 1, 'Module::Build::Notes' => 1, 'Module::Build::PPMMaker'=> 1, 'Module::Build::Platform::Default'=> 1, 'Module::Build::Platform::MacOS'=> 1, 'Module::Build::Platform::Unix'=> 1, 'Module::Build::Platform::VMS'=> 1, 'Module::Build::Platform::VOS'=> 1, 'Module::Build::Platform::Windows'=> 1, 'Module::Build::Platform::aix'=> 1, 'Module::Build::Platform::cygwin'=> 1, 'Module::Build::Platform::darwin'=> 1, 'Module::Build::Platform::os2'=> 1, 'Module::Build::PodParser'=> 1, 'Module::Build::Version'=> 1, 'Module::Build::YAML' => 1, 'Package::Constants' => 1, 'inc::latest' => 1, } }, 5.021001 => { delta_from => 5.021000, changed => { 'App::Prove' => '3.32', 'App::Prove::State' => '3.32', 'App::Prove::State::Result'=> '3.32', 'App::Prove::State::Result::Test'=> '3.32', 'Archive::Tar' => '2.00', 'Archive::Tar::Constant'=> '2.00', 'Archive::Tar::File' => '2.00', 'B' => '1.49', 'B::Deparse' => '1.27', 'Benchmark' => '1.19', 'CPAN::Meta' => '2.141520', 'CPAN::Meta::Converter' => '2.141520', 'CPAN::Meta::Feature' => '2.141520', 'CPAN::Meta::History' => '2.141520', 'CPAN::Meta::Prereqs' => '2.141520', 'CPAN::Meta::Spec' => '2.141520', 'CPAN::Meta::Validator' => '2.141520', 'Carp' => '1.34', 'Carp::Heavy' => '1.34', 'Config' => '5.021001', 'Cwd' => '3.48', 'Data::Dumper' => '2.152', 'Devel::PPPort' => '3.24', 'Devel::Peek' => '1.17', 'Digest::SHA' => '5.92', 'DynaLoader' => '1.26', 'Encode' => '2.62', 'Errno' => '1.20_04', 'Exporter' => '5.71', 'Exporter::Heavy' => '5.71', 'ExtUtils::Install' => '1.68', 'ExtUtils::Miniperl' => '1.02', 'ExtUtils::ParseXS' => '3.25', 'ExtUtils::ParseXS::Constants'=> '3.25', 'ExtUtils::ParseXS::CountLines'=> '3.25', 'ExtUtils::ParseXS::Eval'=> '3.25', 'ExtUtils::ParseXS::Utilities'=> '3.25', 'ExtUtils::Typemaps' => '3.25', 'ExtUtils::Typemaps::Cmd'=> '3.25', 'ExtUtils::Typemaps::InputMap'=> '3.25', 'ExtUtils::Typemaps::OutputMap'=> '3.25', 'ExtUtils::Typemaps::Type'=> '3.25', 'Fatal' => '2.25', 'File::Spec' => '3.48', 'File::Spec::Cygwin' => '3.48', 'File::Spec::Epoc' => '3.48', 'File::Spec::Functions' => '3.48', 'File::Spec::Mac' => '3.48', 'File::Spec::OS2' => '3.48', 'File::Spec::Unix' => '3.48', 'File::Spec::VMS' => '3.48', 'File::Spec::Win32' => '3.48', 'Hash::Util' => '0.17', 'IO' => '1.32', 'List::Util' => '1.39', 'List::Util::XS' => '1.39', 'Locale::Codes' => '3.31', 'Locale::Codes::Constants'=> '3.31', 'Locale::Codes::Country'=> '3.31', 'Locale::Codes::Country_Codes'=> '3.31', 'Locale::Codes::Country_Retired'=> '3.31', 'Locale::Codes::Currency'=> '3.31', 'Locale::Codes::Currency_Codes'=> '3.31', 'Locale::Codes::Currency_Retired'=> '3.31', 'Locale::Codes::LangExt'=> '3.31', 'Locale::Codes::LangExt_Codes'=> '3.31', 'Locale::Codes::LangExt_Retired'=> '3.31', 'Locale::Codes::LangFam'=> '3.31', 'Locale::Codes::LangFam_Codes'=> '3.31', 'Locale::Codes::LangFam_Retired'=> '3.31', 'Locale::Codes::LangVar'=> '3.31', 'Locale::Codes::LangVar_Codes'=> '3.31', 'Locale::Codes::LangVar_Retired'=> '3.31', 'Locale::Codes::Language'=> '3.31', 'Locale::Codes::Language_Codes'=> '3.31', 'Locale::Codes::Language_Retired'=> '3.31', 'Locale::Codes::Script' => '3.31', 'Locale::Codes::Script_Codes'=> '3.31', 'Locale::Codes::Script_Retired'=> '3.31', 'Locale::Country' => '3.31', 'Locale::Currency' => '3.31', 'Locale::Language' => '3.31', 'Locale::Script' => '3.31', 'Math::BigFloat' => '1.9994', 'Math::BigInt' => '1.9995', 'Math::BigInt::Calc' => '1.9994', 'Math::BigInt::CalcEmu' => '1.9994', 'Math::BigRat' => '0.2608', 'Module::CoreList' => '5.021001_01', 'Module::CoreList::TieHashDelta'=> '5.021001_01', 'Module::CoreList::Utils'=> '5.021001_01', 'Module::Metadata' => '1.000024', 'NDBM_File' => '1.13', 'Net::Config' => '1.14', 'Net::SMTP' => '2.34', 'Net::Time' => '2.11', 'OS2::Process' => '1.10', 'POSIX' => '1.40', 'PerlIO::encoding' => '0.19', 'PerlIO::mmap' => '0.013', 'PerlIO::scalar' => '0.19', 'PerlIO::via' => '0.15', 'Pod::Html' => '1.22', 'Scalar::Util' => '1.39', 'SelfLoader' => '1.22', 'Socket' => '2.014', 'Storable' => '2.51', 'TAP::Base' => '3.32', 'TAP::Formatter::Base' => '3.32', 'TAP::Formatter::Color' => '3.32', 'TAP::Formatter::Console'=> '3.32', 'TAP::Formatter::Console::ParallelSession'=> '3.32', 'TAP::Formatter::Console::Session'=> '3.32', 'TAP::Formatter::File' => '3.32', 'TAP::Formatter::File::Session'=> '3.32', 'TAP::Formatter::Session'=> '3.32', 'TAP::Harness' => '3.32', 'TAP::Harness::Env' => '3.32', 'TAP::Object' => '3.32', 'TAP::Parser' => '3.32', 'TAP::Parser::Aggregator'=> '3.32', 'TAP::Parser::Grammar' => '3.32', 'TAP::Parser::Iterator' => '3.32', 'TAP::Parser::Iterator::Array'=> '3.32', 'TAP::Parser::Iterator::Process'=> '3.32', 'TAP::Parser::Iterator::Stream'=> '3.32', 'TAP::Parser::IteratorFactory'=> '3.32', 'TAP::Parser::Multiplexer'=> '3.32', 'TAP::Parser::Result' => '3.32', 'TAP::Parser::Result::Bailout'=> '3.32', 'TAP::Parser::Result::Comment'=> '3.32', 'TAP::Parser::Result::Plan'=> '3.32', 'TAP::Parser::Result::Pragma'=> '3.32', 'TAP::Parser::Result::Test'=> '3.32', 'TAP::Parser::Result::Unknown'=> '3.32', 'TAP::Parser::Result::Version'=> '3.32', 'TAP::Parser::Result::YAML'=> '3.32', 'TAP::Parser::ResultFactory'=> '3.32', 'TAP::Parser::Scheduler'=> '3.32', 'TAP::Parser::Scheduler::Job'=> '3.32', 'TAP::Parser::Scheduler::Spinner'=> '3.32', 'TAP::Parser::Source' => '3.32', 'TAP::Parser::SourceHandler'=> '3.32', 'TAP::Parser::SourceHandler::Executable'=> '3.32', 'TAP::Parser::SourceHandler::File'=> '3.32', 'TAP::Parser::SourceHandler::Handle'=> '3.32', 'TAP::Parser::SourceHandler::Perl'=> '3.32', 'TAP::Parser::SourceHandler::RawTAP'=> '3.32', 'TAP::Parser::YAMLish::Reader'=> '3.32', 'TAP::Parser::YAMLish::Writer'=> '3.32', 'Term::ANSIColor' => '4.03', 'Test::Builder' => '1.001003', 'Test::Builder::Module' => '1.001003', 'Test::Builder::Tester' => '1.23_003', 'Test::Harness' => '3.32', 'Test::More' => '1.001003', 'Test::Simple' => '1.001003', 'Tie::File' => '1.01', 'Unicode' => '7.0.0', 'Unicode::Collate' => '1.07', 'Unicode::Normalize' => '1.18', 'Unicode::UCD' => '0.58', 'XS::APItest' => '0.61', '_charnames' => '1.41', 'autodie' => '2.25', 'autodie::Scope::Guard' => '2.25', 'autodie::Scope::GuardStack'=> '2.25', 'autodie::ScopeUtil' => '2.25', 'autodie::exception' => '2.25', 'autodie::exception::system'=> '2.25', 'autodie::hints' => '2.25', 'autodie::skip' => '2.25', 'charnames' => '1.41', 'locale' => '1.04', 'threads' => '1.94', 'utf8' => '1.14', 'warnings' => '1.24', }, removed => { } }, 5.021002 => { delta_from => 5.021001, changed => { 'B' => '1.50', 'Config' => '5.021002', 'Cwd' => '3.49', 'Devel::Peek' => '1.18', 'ExtUtils::Manifest' => '1.64', 'File::Copy' => '2.30', 'File::Spec' => '3.49', 'File::Spec::Cygwin' => '3.49', 'File::Spec::Epoc' => '3.49', 'File::Spec::Functions' => '3.49', 'File::Spec::Mac' => '3.49', 'File::Spec::OS2' => '3.49', 'File::Spec::Unix' => '3.49', 'File::Spec::VMS' => '3.49', 'File::Spec::Win32' => '3.49', 'Filter::Simple' => '0.92', 'Hash::Util' => '0.18', 'IO' => '1.33', 'IO::Socket::IP' => '0.31', 'IPC::Open3' => '1.17', 'Math::BigFloat' => '1.9996', 'Math::BigInt' => '1.9996', 'Math::BigInt::Calc' => '1.9996', 'Math::BigInt::CalcEmu' => '1.9996', 'Module::CoreList' => '5.021002', 'Module::CoreList::TieHashDelta'=> '5.021002', 'Module::CoreList::Utils'=> '5.021002', 'POSIX' => '1.41', 'Pod::Usage' => '1.64', 'XS::APItest' => '0.62', 'arybase' => '0.08', 'experimental' => '0.008', 'threads' => '1.95', 'warnings' => '1.26', }, removed => { } }, 5.021003 => { delta_from => 5.021002, changed => { 'B::Debug' => '1.21', 'CPAN::Meta' => '2.142060', 'CPAN::Meta::Converter' => '2.142060', 'CPAN::Meta::Feature' => '2.142060', 'CPAN::Meta::History' => '2.142060', 'CPAN::Meta::Merge' => '2.142060', 'CPAN::Meta::Prereqs' => '2.142060', 'CPAN::Meta::Requirements'=> '2.126', 'CPAN::Meta::Spec' => '2.142060', 'CPAN::Meta::Validator' => '2.142060', 'Config' => '5.021003', 'Config::Perl::V' => '0.22', 'ExtUtils::CBuilder' => '0.280217', 'ExtUtils::CBuilder::Base'=> '0.280217', 'ExtUtils::CBuilder::Platform::Unix'=> '0.280217', 'ExtUtils::CBuilder::Platform::VMS'=> '0.280217', 'ExtUtils::CBuilder::Platform::Windows'=> '0.280217', 'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280217', 'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280217', 'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280217', 'ExtUtils::CBuilder::Platform::aix'=> '0.280217', 'ExtUtils::CBuilder::Platform::android'=> '0.280217', 'ExtUtils::CBuilder::Platform::cygwin'=> '0.280217', 'ExtUtils::CBuilder::Platform::darwin'=> '0.280217', 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280217', 'ExtUtils::CBuilder::Platform::os2'=> '0.280217', 'ExtUtils::Manifest' => '1.65', 'HTTP::Tiny' => '0.047', 'IPC::Open3' => '1.18', 'Module::CoreList' => '5.021003', 'Module::CoreList::TieHashDelta'=> '5.021003', 'Module::CoreList::Utils'=> '5.021003', 'Opcode' => '1.28', 'POSIX' => '1.42', 'Safe' => '2.38', 'Socket' => '2.015', 'Sys::Hostname' => '1.19', 'UNIVERSAL' => '1.12', 'XS::APItest' => '0.63', 'perlfaq' => '5.0150045', }, removed => { } }, 5.020001 => { delta_from => 5.020000, changed => { 'Config' => '5.020001', 'Config::Perl::V' => '0.22', 'Cwd' => '3.48', 'Exporter' => '5.71', 'Exporter::Heavy' => '5.71', 'ExtUtils::CBuilder' => '0.280217', 'ExtUtils::CBuilder::Base'=> '0.280217', 'ExtUtils::CBuilder::Platform::Unix'=> '0.280217', 'ExtUtils::CBuilder::Platform::VMS'=> '0.280217', 'ExtUtils::CBuilder::Platform::Windows'=> '0.280217', 'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280217', 'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280217', 'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280217', 'ExtUtils::CBuilder::Platform::aix'=> '0.280217', 'ExtUtils::CBuilder::Platform::android'=> '0.280217', 'ExtUtils::CBuilder::Platform::cygwin'=> '0.280217', 'ExtUtils::CBuilder::Platform::darwin'=> '0.280217', 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280217', 'ExtUtils::CBuilder::Platform::os2'=> '0.280217', 'File::Copy' => '2.30', 'File::Spec' => '3.48', 'File::Spec::Cygwin' => '3.48', 'File::Spec::Epoc' => '3.48', 'File::Spec::Functions' => '3.48', 'File::Spec::Mac' => '3.48', 'File::Spec::OS2' => '3.48', 'File::Spec::Unix' => '3.48', 'File::Spec::VMS' => '3.48', 'File::Spec::Win32' => '3.48', 'Module::CoreList' => '5.020001', 'Module::CoreList::TieHashDelta'=> '5.020001', 'Module::CoreList::Utils'=> '5.020001', 'PerlIO::via' => '0.15', 'Unicode::UCD' => '0.58', 'XS::APItest' => '0.60_01', 'utf8' => '1.13_01', 'version' => '0.9909', 'version::regex' => '0.9909', 'version::vpp' => '0.9909', }, removed => { } }, 5.021004 => { delta_from => 5.021003, changed => { 'App::Prove' => '3.33', 'App::Prove::State' => '3.33', 'App::Prove::State::Result'=> '3.33', 'App::Prove::State::Result::Test'=> '3.33', 'Archive::Tar' => '2.02', 'Archive::Tar::Constant'=> '2.02', 'Archive::Tar::File' => '2.02', 'Attribute::Handlers' => '0.97', 'B' => '1.51', 'B::Concise' => '0.993', 'B::Deparse' => '1.28', 'B::Op_private' => '5.021004', 'CPAN::Meta::Requirements'=> '2.128', 'Config' => '5.021004', 'Cwd' => '3.50', 'Data::Dumper' => '2.154', 'ExtUtils::CBuilder' => '0.280219', 'ExtUtils::CBuilder::Base'=> '0.280219', 'ExtUtils::CBuilder::Platform::Unix'=> '0.280219', 'ExtUtils::CBuilder::Platform::VMS'=> '0.280219', 'ExtUtils::CBuilder::Platform::Windows'=> '0.280219', 'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280219', 'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280219', 'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280219', 'ExtUtils::CBuilder::Platform::aix'=> '0.280219', 'ExtUtils::CBuilder::Platform::android'=> '0.280219', 'ExtUtils::CBuilder::Platform::cygwin'=> '0.280219', 'ExtUtils::CBuilder::Platform::darwin'=> '0.280219', 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280219', 'ExtUtils::CBuilder::Platform::os2'=> '0.280219', 'ExtUtils::Install' => '2.04', 'ExtUtils::Installed' => '2.04', 'ExtUtils::Liblist::Kid'=> '6.98_01', 'ExtUtils::Manifest' => '1.68', 'ExtUtils::Packlist' => '2.04', 'File::Find' => '1.28', 'File::Spec' => '3.50', 'File::Spec::Cygwin' => '3.50', 'File::Spec::Epoc' => '3.50', 'File::Spec::Functions' => '3.50', 'File::Spec::Mac' => '3.50', 'File::Spec::OS2' => '3.50', 'File::Spec::Unix' => '3.50', 'File::Spec::VMS' => '3.50', 'File::Spec::Win32' => '3.50', 'Getopt::Std' => '1.11', 'HTTP::Tiny' => '0.049', 'IO' => '1.34', 'IO::Socket::IP' => '0.32', 'List::Util' => '1.41', 'List::Util::XS' => '1.41', 'Locale::Codes' => '3.32', 'Locale::Codes::Constants'=> '3.32', 'Locale::Codes::Country'=> '3.32', 'Locale::Codes::Country_Codes'=> '3.32', 'Locale::Codes::Country_Retired'=> '3.32', 'Locale::Codes::Currency'=> '3.32', 'Locale::Codes::Currency_Codes'=> '3.32', 'Locale::Codes::Currency_Retired'=> '3.32', 'Locale::Codes::LangExt'=> '3.32', 'Locale::Codes::LangExt_Codes'=> '3.32', 'Locale::Codes::LangExt_Retired'=> '3.32', 'Locale::Codes::LangFam'=> '3.32', 'Locale::Codes::LangFam_Codes'=> '3.32', 'Locale::Codes::LangFam_Retired'=> '3.32', 'Locale::Codes::LangVar'=> '3.32', 'Locale::Codes::LangVar_Codes'=> '3.32', 'Locale::Codes::LangVar_Retired'=> '3.32', 'Locale::Codes::Language'=> '3.32', 'Locale::Codes::Language_Codes'=> '3.32', 'Locale::Codes::Language_Retired'=> '3.32', 'Locale::Codes::Script' => '3.32', 'Locale::Codes::Script_Codes'=> '3.32', 'Locale::Codes::Script_Retired'=> '3.32', 'Locale::Country' => '3.32', 'Locale::Currency' => '3.32', 'Locale::Language' => '3.32', 'Locale::Script' => '3.32', 'Math::BigFloat' => '1.9997', 'Math::BigInt' => '1.9997', 'Math::BigInt::Calc' => '1.9997', 'Math::BigInt::CalcEmu' => '1.9997', 'Module::CoreList' => '5.20140920', 'Module::CoreList::TieHashDelta'=> '5.20140920', 'Module::CoreList::Utils'=> '5.20140920', 'POSIX' => '1.43', 'Pod::Perldoc' => '3.24', 'Pod::Perldoc::BaseTo' => '3.24', 'Pod::Perldoc::GetOptsOO'=> '3.24', 'Pod::Perldoc::ToANSI' => '3.24', 'Pod::Perldoc::ToChecker'=> '3.24', 'Pod::Perldoc::ToMan' => '3.24', 'Pod::Perldoc::ToNroff' => '3.24', 'Pod::Perldoc::ToPod' => '3.24', 'Pod::Perldoc::ToRtf' => '3.24', 'Pod::Perldoc::ToTerm' => '3.24', 'Pod::Perldoc::ToText' => '3.24', 'Pod::Perldoc::ToTk' => '3.24', 'Pod::Perldoc::ToXml' => '3.24', 'Scalar::Util' => '1.41', 'Sub::Util' => '1.41', 'TAP::Base' => '3.33', 'TAP::Formatter::Base' => '3.33', 'TAP::Formatter::Color' => '3.33', 'TAP::Formatter::Console'=> '3.33', 'TAP::Formatter::Console::ParallelSession'=> '3.33', 'TAP::Formatter::Console::Session'=> '3.33', 'TAP::Formatter::File' => '3.33', 'TAP::Formatter::File::Session'=> '3.33', 'TAP::Formatter::Session'=> '3.33', 'TAP::Harness' => '3.33', 'TAP::Harness::Env' => '3.33', 'TAP::Object' => '3.33', 'TAP::Parser' => '3.33', 'TAP::Parser::Aggregator'=> '3.33', 'TAP::Parser::Grammar' => '3.33', 'TAP::Parser::Iterator' => '3.33', 'TAP::Parser::Iterator::Array'=> '3.33', 'TAP::Parser::Iterator::Process'=> '3.33', 'TAP::Parser::Iterator::Stream'=> '3.33', 'TAP::Parser::IteratorFactory'=> '3.33', 'TAP::Parser::Multiplexer'=> '3.33', 'TAP::Parser::Result' => '3.33', 'TAP::Parser::Result::Bailout'=> '3.33', 'TAP::Parser::Result::Comment'=> '3.33', 'TAP::Parser::Result::Plan'=> '3.33', 'TAP::Parser::Result::Pragma'=> '3.33', 'TAP::Parser::Result::Test'=> '3.33', 'TAP::Parser::Result::Unknown'=> '3.33', 'TAP::Parser::Result::Version'=> '3.33', 'TAP::Parser::Result::YAML'=> '3.33', 'TAP::Parser::ResultFactory'=> '3.33', 'TAP::Parser::Scheduler'=> '3.33', 'TAP::Parser::Scheduler::Job'=> '3.33', 'TAP::Parser::Scheduler::Spinner'=> '3.33', 'TAP::Parser::Source' => '3.33', 'TAP::Parser::SourceHandler'=> '3.33', 'TAP::Parser::SourceHandler::Executable'=> '3.33', 'TAP::Parser::SourceHandler::File'=> '3.33', 'TAP::Parser::SourceHandler::Handle'=> '3.33', 'TAP::Parser::SourceHandler::Perl'=> '3.33', 'TAP::Parser::SourceHandler::RawTAP'=> '3.33', 'TAP::Parser::YAMLish::Reader'=> '3.33', 'TAP::Parser::YAMLish::Writer'=> '3.33', 'Term::ReadLine' => '1.15', 'Test::Builder' => '1.001006', 'Test::Builder::Module' => '1.001006', 'Test::Builder::Tester' => '1.24', 'Test::Builder::Tester::Color'=> '1.24', 'Test::Harness' => '3.33', 'Test::More' => '1.001006', 'Test::Simple' => '1.001006', 'Time::Piece' => '1.29', 'Time::Seconds' => '1.29', 'XS::APItest' => '0.64', '_charnames' => '1.42', 'attributes' => '0.23', 'bigint' => '0.37', 'bignum' => '0.38', 'bigrat' => '0.37', 'constant' => '1.32', 'experimental' => '0.010', 'overload' => '1.23', 'threads' => '1.96', 'version' => '0.9909', 'version::regex' => '0.9909', 'version::vpp' => '0.9909', }, removed => { } }, 5.021005 => { delta_from => 5.021004, changed => { 'B' => '1.52', 'B::Concise' => '0.994', 'B::Debug' => '1.22', 'B::Deparse' => '1.29', 'B::Op_private' => '5.021005', 'CPAN::Meta' => '2.142690', 'CPAN::Meta::Converter' => '2.142690', 'CPAN::Meta::Feature' => '2.142690', 'CPAN::Meta::History' => '2.142690', 'CPAN::Meta::Merge' => '2.142690', 'CPAN::Meta::Prereqs' => '2.142690', 'CPAN::Meta::Spec' => '2.142690', 'CPAN::Meta::Validator' => '2.142690', 'Compress::Raw::Bzip2' => '2.066', 'Compress::Raw::Zlib' => '2.066', 'Compress::Zlib' => '2.066', 'Config' => '5.021005', 'Cwd' => '3.51', 'DynaLoader' => '1.27', 'Errno' => '1.21', 'ExtUtils::CBuilder' => '0.280220', 'ExtUtils::CBuilder::Base'=> '0.280220', 'ExtUtils::CBuilder::Platform::Unix'=> '0.280220', 'ExtUtils::CBuilder::Platform::VMS'=> '0.280220', 'ExtUtils::CBuilder::Platform::Windows'=> '0.280220', 'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280220', 'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280220', 'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280220', 'ExtUtils::CBuilder::Platform::aix'=> '0.280220', 'ExtUtils::CBuilder::Platform::android'=> '0.280220', 'ExtUtils::CBuilder::Platform::cygwin'=> '0.280220', 'ExtUtils::CBuilder::Platform::darwin'=> '0.280220', 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280220', 'ExtUtils::CBuilder::Platform::os2'=> '0.280220', 'ExtUtils::Miniperl' => '1.03', 'Fcntl' => '1.13', 'File::Find' => '1.29', 'File::Spec' => '3.51', 'File::Spec::Cygwin' => '3.51', 'File::Spec::Epoc' => '3.51', 'File::Spec::Functions' => '3.51', 'File::Spec::Mac' => '3.51', 'File::Spec::OS2' => '3.51', 'File::Spec::Unix' => '3.51', 'File::Spec::VMS' => '3.51', 'File::Spec::Win32' => '3.51', 'HTTP::Tiny' => '0.050', 'IO::Compress::Adapter::Bzip2'=> '2.066', 'IO::Compress::Adapter::Deflate'=> '2.066', 'IO::Compress::Adapter::Identity'=> '2.066', 'IO::Compress::Base' => '2.066', 'IO::Compress::Base::Common'=> '2.066', 'IO::Compress::Bzip2' => '2.066', 'IO::Compress::Deflate' => '2.066', 'IO::Compress::Gzip' => '2.066', 'IO::Compress::Gzip::Constants'=> '2.066', 'IO::Compress::RawDeflate'=> '2.066', 'IO::Compress::Zip' => '2.066', 'IO::Compress::Zip::Constants'=> '2.066', 'IO::Compress::Zlib::Constants'=> '2.066', 'IO::Compress::Zlib::Extra'=> '2.066', 'IO::Uncompress::Adapter::Bunzip2'=> '2.066', 'IO::Uncompress::Adapter::Identity'=> '2.066', 'IO::Uncompress::Adapter::Inflate'=> '2.066', 'IO::Uncompress::AnyInflate'=> '2.066', 'IO::Uncompress::AnyUncompress'=> '2.066', 'IO::Uncompress::Base' => '2.066', 'IO::Uncompress::Bunzip2'=> '2.066', 'IO::Uncompress::Gunzip'=> '2.066', 'IO::Uncompress::Inflate'=> '2.066', 'IO::Uncompress::RawInflate'=> '2.066', 'IO::Uncompress::Unzip' => '2.066', 'JSON::PP' => '2.27300', 'Module::CoreList' => '5.20141020', 'Module::CoreList::TieHashDelta'=> '5.20141020', 'Module::CoreList::Utils'=> '5.20141020', 'Net::Cmd' => '3.02', 'Net::Config' => '3.02', 'Net::Domain' => '3.02', 'Net::FTP' => '3.02', 'Net::FTP::A' => '3.02', 'Net::FTP::E' => '3.02', 'Net::FTP::I' => '3.02', 'Net::FTP::L' => '3.02', 'Net::FTP::dataconn' => '3.02', 'Net::NNTP' => '3.02', 'Net::Netrc' => '3.02', 'Net::POP3' => '3.02', 'Net::SMTP' => '3.02', 'Net::Time' => '3.02', 'Opcode' => '1.29', 'POSIX' => '1.45', 'Socket' => '2.016', 'Test::Builder' => '1.001008', 'Test::Builder::Module' => '1.001008', 'Test::More' => '1.001008', 'Test::Simple' => '1.001008', 'XS::APItest' => '0.65', 'XSLoader' => '0.18', 'attributes' => '0.24', 'experimental' => '0.012', 'feature' => '1.38', 'perlfaq' => '5.0150046', 're' => '0.27', 'threads::shared' => '1.47', 'warnings' => '1.28', 'warnings::register' => '1.04', }, removed => { } }, 5.021006 => { delta_from => 5.021005, changed => { 'App::Prove' => '3.34', 'App::Prove::State' => '3.34', 'App::Prove::State::Result'=> '3.34', 'App::Prove::State::Result::Test'=> '3.34', 'B' => '1.53', 'B::Concise' => '0.995', 'B::Deparse' => '1.30', 'B::Op_private' => '5.021006', 'CPAN::Meta' => '2.143240', 'CPAN::Meta::Converter' => '2.143240', 'CPAN::Meta::Feature' => '2.143240', 'CPAN::Meta::History' => '2.143240', 'CPAN::Meta::Merge' => '2.143240', 'CPAN::Meta::Prereqs' => '2.143240', 'CPAN::Meta::Requirements'=> '2.130', 'CPAN::Meta::Spec' => '2.143240', 'CPAN::Meta::Validator' => '2.143240', 'Config' => '5.021006', 'Devel::Peek' => '1.19', 'Digest::SHA' => '5.93', 'DynaLoader' => '1.28', 'Encode' => '2.64', 'Exporter' => '5.72', 'Exporter::Heavy' => '5.72', 'ExtUtils::Command::MM' => '7.02', 'ExtUtils::Liblist' => '7.02', 'ExtUtils::Liblist::Kid'=> '7.02', 'ExtUtils::MM' => '7.02', 'ExtUtils::MM_AIX' => '7.02', 'ExtUtils::MM_Any' => '7.02', 'ExtUtils::MM_BeOS' => '7.02', 'ExtUtils::MM_Cygwin' => '7.02', 'ExtUtils::MM_DOS' => '7.02', 'ExtUtils::MM_Darwin' => '7.02', 'ExtUtils::MM_MacOS' => '7.02', 'ExtUtils::MM_NW5' => '7.02', 'ExtUtils::MM_OS2' => '7.02', 'ExtUtils::MM_QNX' => '7.02', 'ExtUtils::MM_UWIN' => '7.02', 'ExtUtils::MM_Unix' => '7.02', 'ExtUtils::MM_VMS' => '7.02', 'ExtUtils::MM_VOS' => '7.02', 'ExtUtils::MM_Win32' => '7.02', 'ExtUtils::MM_Win95' => '7.02', 'ExtUtils::MY' => '7.02', 'ExtUtils::MakeMaker' => '7.02', 'ExtUtils::MakeMaker::Config'=> '7.02', 'ExtUtils::MakeMaker::Locale'=> '7.02', 'ExtUtils::MakeMaker::version'=> '7.02', 'ExtUtils::MakeMaker::version::regex'=> '7.02', 'ExtUtils::MakeMaker::version::vpp'=> '7.02', 'ExtUtils::Manifest' => '1.69', 'ExtUtils::Mkbootstrap' => '7.02', 'ExtUtils::Mksymlists' => '7.02', 'ExtUtils::ParseXS' => '3.26', 'ExtUtils::ParseXS::Constants'=> '3.26', 'ExtUtils::ParseXS::CountLines'=> '3.26', 'ExtUtils::ParseXS::Eval'=> '3.26', 'ExtUtils::ParseXS::Utilities'=> '3.26', 'ExtUtils::testlib' => '7.02', 'File::Spec::VMS' => '3.52', 'HTTP::Tiny' => '0.051', 'I18N::Langinfo' => '0.12', 'IO::Socket' => '1.38', 'Module::CoreList' => '5.20141120', 'Module::CoreList::TieHashDelta'=> '5.20141120', 'Module::CoreList::Utils'=> '5.20141120', 'POSIX' => '1.46', 'PerlIO::encoding' => '0.20', 'PerlIO::scalar' => '0.20', 'TAP::Base' => '3.34', 'TAP::Formatter::Base' => '3.34', 'TAP::Formatter::Color' => '3.34', 'TAP::Formatter::Console'=> '3.34', 'TAP::Formatter::Console::ParallelSession'=> '3.34', 'TAP::Formatter::Console::Session'=> '3.34', 'TAP::Formatter::File' => '3.34', 'TAP::Formatter::File::Session'=> '3.34', 'TAP::Formatter::Session'=> '3.34', 'TAP::Harness' => '3.34', 'TAP::Harness::Env' => '3.34', 'TAP::Object' => '3.34', 'TAP::Parser' => '3.34', 'TAP::Parser::Aggregator'=> '3.34', 'TAP::Parser::Grammar' => '3.34', 'TAP::Parser::Iterator' => '3.34', 'TAP::Parser::Iterator::Array'=> '3.34', 'TAP::Parser::Iterator::Process'=> '3.34', 'TAP::Parser::Iterator::Stream'=> '3.34', 'TAP::Parser::IteratorFactory'=> '3.34', 'TAP::Parser::Multiplexer'=> '3.34', 'TAP::Parser::Result' => '3.34', 'TAP::Parser::Result::Bailout'=> '3.34', 'TAP::Parser::Result::Comment'=> '3.34', 'TAP::Parser::Result::Plan'=> '3.34', 'TAP::Parser::Result::Pragma'=> '3.34', 'TAP::Parser::Result::Test'=> '3.34', 'TAP::Parser::Result::Unknown'=> '3.34', 'TAP::Parser::Result::Version'=> '3.34', 'TAP::Parser::Result::YAML'=> '3.34', 'TAP::Parser::ResultFactory'=> '3.34', 'TAP::Parser::Scheduler'=> '3.34', 'TAP::Parser::Scheduler::Job'=> '3.34', 'TAP::Parser::Scheduler::Spinner'=> '3.34', 'TAP::Parser::Source' => '3.34', 'TAP::Parser::SourceHandler'=> '3.34', 'TAP::Parser::SourceHandler::Executable'=> '3.34', 'TAP::Parser::SourceHandler::File'=> '3.34', 'TAP::Parser::SourceHandler::Handle'=> '3.34', 'TAP::Parser::SourceHandler::Perl'=> '3.34', 'TAP::Parser::SourceHandler::RawTAP'=> '3.34', 'TAP::Parser::YAMLish::Reader'=> '3.34', 'TAP::Parser::YAMLish::Writer'=> '3.34', 'Test::Builder' => '1.301001_075', 'Test::Builder::Module' => '1.301001_075', 'Test::Builder::Tester' => '1.301001_075', 'Test::Builder::Tester::Color'=> '1.301001_075', 'Test::Harness' => '3.34', 'Test::More' => '1.301001_075', 'Test::More::DeepCheck' => undef, 'Test::More::DeepCheck::Strict'=> undef, 'Test::More::DeepCheck::Tolerant'=> undef, 'Test::More::Tools' => undef, 'Test::MostlyLike' => undef, 'Test::Simple' => '1.301001_075', 'Test::Stream' => '1.301001_075', 'Test::Stream::ArrayBase'=> undef, 'Test::Stream::ArrayBase::Meta'=> undef, 'Test::Stream::Carp' => undef, 'Test::Stream::Context' => undef, 'Test::Stream::Event' => undef, 'Test::Stream::Event::Bail'=> undef, 'Test::Stream::Event::Child'=> undef, 'Test::Stream::Event::Diag'=> undef, 'Test::Stream::Event::Finish'=> undef, 'Test::Stream::Event::Note'=> undef, 'Test::Stream::Event::Ok'=> undef, 'Test::Stream::Event::Plan'=> undef, 'Test::Stream::Event::Subtest'=> undef, 'Test::Stream::ExitMagic'=> undef, 'Test::Stream::ExitMagic::Context'=> undef, 'Test::Stream::Exporter'=> undef, 'Test::Stream::Exporter::Meta'=> undef, 'Test::Stream::IOSets' => undef, 'Test::Stream::Meta' => undef, 'Test::Stream::PackageUtil'=> undef, 'Test::Stream::Tester' => undef, 'Test::Stream::Tester::Checks'=> undef, 'Test::Stream::Tester::Checks::Event'=> undef, 'Test::Stream::Tester::Events'=> undef, 'Test::Stream::Tester::Events::Event'=> undef, 'Test::Stream::Tester::Grab'=> undef, 'Test::Stream::Threads' => undef, 'Test::Stream::Toolset' => undef, 'Test::Stream::Util' => undef, 'Test::Tester' => '1.301001_075', 'Test::Tester::Capture' => undef, 'Test::use::ok' => '1.301001_075', 'Unicode::UCD' => '0.59', 'XS::APItest' => '0.68', 'XSLoader' => '0.19', 'experimental' => '0.013', 'locale' => '1.05', 'ok' => '1.301001_075', 'overload' => '1.24', 're' => '0.28', 'warnings' => '1.29', }, removed => { } }, 5.021007 => { delta_from => 5.021006, changed => { 'Archive::Tar' => '2.04', 'Archive::Tar::Constant'=> '2.04', 'Archive::Tar::File' => '2.04', 'B' => '1.54', 'B::Concise' => '0.996', 'B::Deparse' => '1.31', 'B::Op_private' => '5.021007', 'B::Showlex' => '1.05', 'Compress::Raw::Bzip2' => '2.067', 'Compress::Raw::Zlib' => '2.067', 'Compress::Zlib' => '2.067', 'Config' => '5.021007', 'Cwd' => '3.54', 'DB_File' => '1.834', 'Data::Dumper' => '2.155', 'Devel::PPPort' => '3.25', 'Devel::Peek' => '1.20', 'DynaLoader' => '1.29', 'Encode' => '2.67', 'Errno' => '1.22', 'ExtUtils::CBuilder' => '0.280221', 'ExtUtils::CBuilder::Base'=> '0.280221', 'ExtUtils::CBuilder::Platform::Unix'=> '0.280221', 'ExtUtils::CBuilder::Platform::VMS'=> '0.280221', 'ExtUtils::CBuilder::Platform::Windows'=> '0.280221', 'ExtUtils::CBuilder::Platform::aix'=> '0.280221', 'ExtUtils::CBuilder::Platform::android'=> '0.280221', 'ExtUtils::CBuilder::Platform::cygwin'=> '0.280221', 'ExtUtils::CBuilder::Platform::darwin'=> '0.280221', 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280221', 'ExtUtils::CBuilder::Platform::os2'=> '0.280221', 'ExtUtils::Command::MM' => '7.04', 'ExtUtils::Liblist' => '7.04', 'ExtUtils::Liblist::Kid'=> '7.04', 'ExtUtils::MM' => '7.04', 'ExtUtils::MM_AIX' => '7.04', 'ExtUtils::MM_Any' => '7.04', 'ExtUtils::MM_BeOS' => '7.04', 'ExtUtils::MM_Cygwin' => '7.04', 'ExtUtils::MM_DOS' => '7.04', 'ExtUtils::MM_Darwin' => '7.04', 'ExtUtils::MM_MacOS' => '7.04', 'ExtUtils::MM_NW5' => '7.04', 'ExtUtils::MM_OS2' => '7.04', 'ExtUtils::MM_QNX' => '7.04', 'ExtUtils::MM_UWIN' => '7.04', 'ExtUtils::MM_Unix' => '7.04', 'ExtUtils::MM_VMS' => '7.04', 'ExtUtils::MM_VOS' => '7.04', 'ExtUtils::MM_Win32' => '7.04', 'ExtUtils::MM_Win95' => '7.04', 'ExtUtils::MY' => '7.04', 'ExtUtils::MakeMaker' => '7.04', 'ExtUtils::MakeMaker::Config'=> '7.04', 'ExtUtils::MakeMaker::Locale'=> '7.04', 'ExtUtils::MakeMaker::version'=> '7.04', 'ExtUtils::MakeMaker::version::regex'=> '7.04', 'ExtUtils::MakeMaker::version::vpp'=> '7.04', 'ExtUtils::Mkbootstrap' => '7.04', 'ExtUtils::Mksymlists' => '7.04', 'ExtUtils::ParseXS' => '3.27', 'ExtUtils::ParseXS::Constants'=> '3.27', 'ExtUtils::ParseXS::CountLines'=> '3.27', 'ExtUtils::ParseXS::Eval'=> '3.27', 'ExtUtils::ParseXS::Utilities'=> '3.27', 'ExtUtils::testlib' => '7.04', 'File::Spec' => '3.53', 'File::Spec::Cygwin' => '3.54', 'File::Spec::Epoc' => '3.54', 'File::Spec::Functions' => '3.54', 'File::Spec::Mac' => '3.54', 'File::Spec::OS2' => '3.54', 'File::Spec::Unix' => '3.54', 'File::Spec::VMS' => '3.54', 'File::Spec::Win32' => '3.54', 'Filter::Util::Call' => '1.51', 'HTTP::Tiny' => '0.053', 'IO' => '1.35', 'IO::Compress::Adapter::Bzip2'=> '2.067', 'IO::Compress::Adapter::Deflate'=> '2.067', 'IO::Compress::Adapter::Identity'=> '2.067', 'IO::Compress::Base' => '2.067', 'IO::Compress::Base::Common'=> '2.067', 'IO::Compress::Bzip2' => '2.067', 'IO::Compress::Deflate' => '2.067', 'IO::Compress::Gzip' => '2.067', 'IO::Compress::Gzip::Constants'=> '2.067', 'IO::Compress::RawDeflate'=> '2.067', 'IO::Compress::Zip' => '2.067', 'IO::Compress::Zip::Constants'=> '2.067', 'IO::Compress::Zlib::Constants'=> '2.067', 'IO::Compress::Zlib::Extra'=> '2.067', 'IO::Socket::IP' => '0.34', 'IO::Uncompress::Adapter::Bunzip2'=> '2.067', 'IO::Uncompress::Adapter::Identity'=> '2.067', 'IO::Uncompress::Adapter::Inflate'=> '2.067', 'IO::Uncompress::AnyInflate'=> '2.067', 'IO::Uncompress::AnyUncompress'=> '2.067', 'IO::Uncompress::Base' => '2.067', 'IO::Uncompress::Bunzip2'=> '2.067', 'IO::Uncompress::Gunzip'=> '2.067', 'IO::Uncompress::Inflate'=> '2.067', 'IO::Uncompress::RawInflate'=> '2.067', 'IO::Uncompress::Unzip' => '2.067', 'Locale::Codes' => '3.33', 'Locale::Codes::Constants'=> '3.33', 'Locale::Codes::Country'=> '3.33', 'Locale::Codes::Country_Codes'=> '3.33', 'Locale::Codes::Country_Retired'=> '3.33', 'Locale::Codes::Currency'=> '3.33', 'Locale::Codes::Currency_Codes'=> '3.33', 'Locale::Codes::Currency_Retired'=> '3.33', 'Locale::Codes::LangExt'=> '3.33', 'Locale::Codes::LangExt_Codes'=> '3.33', 'Locale::Codes::LangExt_Retired'=> '3.33', 'Locale::Codes::LangFam'=> '3.33', 'Locale::Codes::LangFam_Codes'=> '3.33', 'Locale::Codes::LangFam_Retired'=> '3.33', 'Locale::Codes::LangVar'=> '3.33', 'Locale::Codes::LangVar_Codes'=> '3.33', 'Locale::Codes::LangVar_Retired'=> '3.33', 'Locale::Codes::Language'=> '3.33', 'Locale::Codes::Language_Codes'=> '3.33', 'Locale::Codes::Language_Retired'=> '3.33', 'Locale::Codes::Script' => '3.33', 'Locale::Codes::Script_Codes'=> '3.33', 'Locale::Codes::Script_Retired'=> '3.33', 'Locale::Country' => '3.33', 'Locale::Currency' => '3.33', 'Locale::Language' => '3.33', 'Locale::Maketext' => '1.26', 'Locale::Script' => '3.33', 'Module::CoreList' => '5.20141220', 'Module::CoreList::TieHashDelta'=> '5.20141220', 'Module::CoreList::Utils'=> '5.20141220', 'NDBM_File' => '1.14', 'Net::Cmd' => '3.04', 'Net::Config' => '3.04', 'Net::Domain' => '3.04', 'Net::FTP' => '3.04', 'Net::FTP::A' => '3.04', 'Net::FTP::E' => '3.04', 'Net::FTP::I' => '3.04', 'Net::FTP::L' => '3.04', 'Net::FTP::dataconn' => '3.04', 'Net::NNTP' => '3.04', 'Net::Netrc' => '3.04', 'Net::POP3' => '3.04', 'Net::SMTP' => '3.04', 'Net::Time' => '3.04', 'Opcode' => '1.30', 'POSIX' => '1.48', 'PerlIO::scalar' => '0.21', 'Pod::Escapes' => '1.07', 'SDBM_File' => '1.12', 'Storable' => '2.52', 'Sys::Hostname' => '1.20', 'Test::Builder' => '1.301001_090', 'Test::Builder::Module' => '1.301001_090', 'Test::Builder::Tester' => '1.301001_090', 'Test::Builder::Tester::Color'=> '1.301001_090', 'Test::CanFork' => undef, 'Test::CanThread' => undef, 'Test::More' => '1.301001_090', 'Test::Simple' => '1.301001_090', 'Test::Stream' => '1.301001_090', 'Test::Stream::API' => undef, 'Test::Stream::ForceExit'=> undef, 'Test::Stream::Subtest' => undef, 'Test::Tester' => '1.301001_090', 'Test::use::ok' => '1.301001_090', 'Unicode::Collate' => '1.09', 'Unicode::Collate::CJK::Big5'=> '1.09', 'Unicode::Collate::CJK::GB2312'=> '1.09', 'Unicode::Collate::CJK::JISX0208'=> '1.09', 'Unicode::Collate::CJK::Korean'=> '1.09', 'Unicode::Collate::CJK::Pinyin'=> '1.09', 'Unicode::Collate::CJK::Stroke'=> '1.09', 'Unicode::Collate::CJK::Zhuyin'=> '1.09', 'Unicode::Collate::Locale'=> '1.09', 'XS::APItest' => '0.69', 'XSLoader' => '0.20', '_charnames' => '1.43', 'arybase' => '0.09', 'charnames' => '1.43', 'feature' => '1.39', 'mro' => '1.17', 'ok' => '1.301001_090', 'strict' => '1.09', 'threads' => '1.96_001', }, removed => { } }, 5.021008 => { delta_from => 5.021007, changed => { 'App::Prove' => '3.35', 'App::Prove::State' => '3.35', 'App::Prove::State::Result'=> '3.35', 'App::Prove::State::Result::Test'=> '3.35', 'B' => '1.55', 'B::Deparse' => '1.32', 'B::Op_private' => '5.021008', 'CPAN::Meta::Requirements'=> '2.131', 'Compress::Raw::Bzip2' => '2.068', 'Compress::Raw::Zlib' => '2.068', 'Compress::Zlib' => '2.068', 'Config' => '5.021008', 'DB_File' => '1.835', 'Data::Dumper' => '2.156', 'Devel::PPPort' => '3.28', 'Devel::Peek' => '1.21', 'Digest::MD5' => '2.54', 'Digest::SHA' => '5.95', 'DynaLoader' => '1.30', 'ExtUtils::Command' => '1.20', 'ExtUtils::Manifest' => '1.70', 'Fatal' => '2.26', 'File::Glob' => '1.24', 'Filter::Util::Call' => '1.54', 'Getopt::Long' => '2.43', 'IO::Compress::Adapter::Bzip2'=> '2.068', 'IO::Compress::Adapter::Deflate'=> '2.068', 'IO::Compress::Adapter::Identity'=> '2.068', 'IO::Compress::Base' => '2.068', 'IO::Compress::Base::Common'=> '2.068', 'IO::Compress::Bzip2' => '2.068', 'IO::Compress::Deflate' => '2.068', 'IO::Compress::Gzip' => '2.068', 'IO::Compress::Gzip::Constants'=> '2.068', 'IO::Compress::RawDeflate'=> '2.068', 'IO::Compress::Zip' => '2.068', 'IO::Compress::Zip::Constants'=> '2.068', 'IO::Compress::Zlib::Constants'=> '2.068', 'IO::Compress::Zlib::Extra'=> '2.068', 'IO::Socket::IP' => '0.36', 'IO::Uncompress::Adapter::Bunzip2'=> '2.068', 'IO::Uncompress::Adapter::Identity'=> '2.068', 'IO::Uncompress::Adapter::Inflate'=> '2.068', 'IO::Uncompress::AnyInflate'=> '2.068', 'IO::Uncompress::AnyUncompress'=> '2.068', 'IO::Uncompress::Base' => '2.068', 'IO::Uncompress::Bunzip2'=> '2.068', 'IO::Uncompress::Gunzip'=> '2.068', 'IO::Uncompress::Inflate'=> '2.068', 'IO::Uncompress::RawInflate'=> '2.068', 'IO::Uncompress::Unzip' => '2.068', 'MIME::Base64' => '3.15', 'Module::CoreList' => '5.20150220', 'Module::CoreList::TieHashDelta'=> '5.20150220', 'Module::CoreList::Utils'=> '5.20150220', 'Module::Load::Conditional'=> '0.64', 'Module::Metadata' => '1.000026', 'Net::Cmd' => '3.05', 'Net::Config' => '3.05', 'Net::Domain' => '3.05', 'Net::FTP' => '3.05', 'Net::FTP::A' => '3.05', 'Net::FTP::E' => '3.05', 'Net::FTP::I' => '3.05', 'Net::FTP::L' => '3.05', 'Net::FTP::dataconn' => '3.05', 'Net::NNTP' => '3.05', 'Net::Netrc' => '3.05', 'Net::POP3' => '3.05', 'Net::SMTP' => '3.05', 'Net::Time' => '3.05', 'Opcode' => '1.31', 'POSIX' => '1.49', 'PerlIO::encoding' => '0.21', 'Pod::Simple' => '3.29', 'Pod::Simple::BlackBox' => '3.29', 'Pod::Simple::Checker' => '3.29', 'Pod::Simple::Debug' => '3.29', 'Pod::Simple::DumpAsText'=> '3.29', 'Pod::Simple::DumpAsXML'=> '3.29', 'Pod::Simple::HTML' => '3.29', 'Pod::Simple::HTMLBatch'=> '3.29', 'Pod::Simple::LinkSection'=> '3.29', 'Pod::Simple::Methody' => '3.29', 'Pod::Simple::Progress' => '3.29', 'Pod::Simple::PullParser'=> '3.29', 'Pod::Simple::PullParserEndToken'=> '3.29', 'Pod::Simple::PullParserStartToken'=> '3.29', 'Pod::Simple::PullParserTextToken'=> '3.29', 'Pod::Simple::PullParserToken'=> '3.29', 'Pod::Simple::RTF' => '3.29', 'Pod::Simple::Search' => '3.29', 'Pod::Simple::SimpleTree'=> '3.29', 'Pod::Simple::Text' => '3.29', 'Pod::Simple::TextContent'=> '3.29', 'Pod::Simple::TiedOutFH'=> '3.29', 'Pod::Simple::Transcode'=> '3.29', 'Pod::Simple::TranscodeDumb'=> '3.29', 'Pod::Simple::TranscodeSmart'=> '3.29', 'Pod::Simple::XHTML' => '3.29', 'Pod::Simple::XMLOutStream'=> '3.29', 'SDBM_File' => '1.13', 'Safe' => '2.39', 'TAP::Base' => '3.35', 'TAP::Formatter::Base' => '3.35', 'TAP::Formatter::Color' => '3.35', 'TAP::Formatter::Console'=> '3.35', 'TAP::Formatter::Console::ParallelSession'=> '3.35', 'TAP::Formatter::Console::Session'=> '3.35', 'TAP::Formatter::File' => '3.35', 'TAP::Formatter::File::Session'=> '3.35', 'TAP::Formatter::Session'=> '3.35', 'TAP::Harness' => '3.35', 'TAP::Harness::Env' => '3.35', 'TAP::Object' => '3.35', 'TAP::Parser' => '3.35', 'TAP::Parser::Aggregator'=> '3.35', 'TAP::Parser::Grammar' => '3.35', 'TAP::Parser::Iterator' => '3.35', 'TAP::Parser::Iterator::Array'=> '3.35', 'TAP::Parser::Iterator::Process'=> '3.35', 'TAP::Parser::Iterator::Stream'=> '3.35', 'TAP::Parser::IteratorFactory'=> '3.35', 'TAP::Parser::Multiplexer'=> '3.35', 'TAP::Parser::Result' => '3.35', 'TAP::Parser::Result::Bailout'=> '3.35', 'TAP::Parser::Result::Comment'=> '3.35', 'TAP::Parser::Result::Plan'=> '3.35', 'TAP::Parser::Result::Pragma'=> '3.35', 'TAP::Parser::Result::Test'=> '3.35', 'TAP::Parser::Result::Unknown'=> '3.35', 'TAP::Parser::Result::Version'=> '3.35', 'TAP::Parser::Result::YAML'=> '3.35', 'TAP::Parser::ResultFactory'=> '3.35', 'TAP::Parser::Scheduler'=> '3.35', 'TAP::Parser::Scheduler::Job'=> '3.35', 'TAP::Parser::Scheduler::Spinner'=> '3.35', 'TAP::Parser::Source' => '3.35', 'TAP::Parser::SourceHandler'=> '3.35', 'TAP::Parser::SourceHandler::Executable'=> '3.35', 'TAP::Parser::SourceHandler::File'=> '3.35', 'TAP::Parser::SourceHandler::Handle'=> '3.35', 'TAP::Parser::SourceHandler::Perl'=> '3.35', 'TAP::Parser::SourceHandler::RawTAP'=> '3.35', 'TAP::Parser::YAMLish::Reader'=> '3.35', 'TAP::Parser::YAMLish::Writer'=> '3.35', 'Test::Builder' => '1.301001_097', 'Test::Builder::Module' => '1.301001_097', 'Test::Builder::Tester' => '1.301001_097', 'Test::Builder::Tester::Color'=> '1.301001_097', 'Test::Harness' => '3.35', 'Test::More' => '1.301001_097', 'Test::Simple' => '1.301001_097', 'Test::Stream' => '1.301001_097', 'Test::Stream::Block' => undef, 'Test::Tester' => '1.301001_097', 'Test::Tester::CaptureRunner'=> undef, 'Test::Tester::Delegate'=> undef, 'Test::use::ok' => '1.301001_097', 'Unicode::Collate' => '1.10', 'Unicode::Collate::CJK::Big5'=> '1.10', 'Unicode::Collate::CJK::GB2312'=> '1.10', 'Unicode::Collate::CJK::JISX0208'=> '1.10', 'Unicode::Collate::CJK::Korean'=> '1.10', 'Unicode::Collate::CJK::Pinyin'=> '1.10', 'Unicode::Collate::CJK::Stroke'=> '1.10', 'Unicode::Collate::CJK::Zhuyin'=> '1.10', 'Unicode::Collate::Locale'=> '1.10', 'VMS::DCLsym' => '1.06', 'XS::APItest' => '0.70', 'arybase' => '0.10', 'attributes' => '0.25', 'autodie' => '2.26', 'autodie::Scope::Guard' => '2.26', 'autodie::Scope::GuardStack'=> '2.26', 'autodie::ScopeUtil' => '2.26', 'autodie::exception' => '2.26', 'autodie::exception::system'=> '2.26', 'autodie::hints' => '2.26', 'autodie::skip' => '2.26', 'ok' => '1.301001_097', 're' => '0.30', 'warnings' => '1.30', }, removed => { } }, 5.020002 => { delta_from => 5.020001, changed => { 'CPAN::Author' => '5.5002', 'CPAN::CacheMgr' => '5.5002', 'CPAN::FTP' => '5.5006', 'CPAN::HTTP::Client' => '1.9601', 'CPAN::HandleConfig' => '5.5005', 'CPAN::Index' => '1.9601', 'CPAN::LWP::UserAgent' => '1.9601', 'CPAN::Mirrors' => '1.9601', 'Config' => '5.020002', 'Cwd' => '3.48_01', 'Data::Dumper' => '2.151_01', 'Errno' => '1.20_05', 'File::Spec' => '3.48_01', 'File::Spec::Cygwin' => '3.48_01', 'File::Spec::Epoc' => '3.48_01', 'File::Spec::Functions' => '3.48_01', 'File::Spec::Mac' => '3.48_01', 'File::Spec::OS2' => '3.48_01', 'File::Spec::Unix' => '3.48_01', 'File::Spec::VMS' => '3.48_01', 'File::Spec::Win32' => '3.48_01', 'IO::Socket' => '1.38', 'Module::CoreList' => '5.20150214', 'Module::CoreList::TieHashDelta'=> '5.20150214', 'Module::CoreList::Utils'=> '5.20150214', 'PerlIO::scalar' => '0.18_01', 'Pod::PlainText' => '2.07', 'Storable' => '2.49_01', 'VMS::DCLsym' => '1.05_01', 'VMS::Stdio' => '2.41', 'attributes' => '0.23', 'feature' => '1.36_01', }, removed => { } }, 5.021009 => { delta_from => 5.021008, changed => { 'B' => '1.56', 'B::Debug' => '1.23', 'B::Deparse' => '1.33', 'B::Op_private' => '5.021009', 'Benchmark' => '1.20', 'CPAN::Author' => '5.5002', 'CPAN::CacheMgr' => '5.5002', 'CPAN::FTP' => '5.5006', 'CPAN::HTTP::Client' => '1.9601', 'CPAN::HandleConfig' => '5.5005', 'CPAN::Index' => '1.9601', 'CPAN::LWP::UserAgent' => '1.9601', 'CPAN::Meta::Requirements'=> '2.132', 'CPAN::Mirrors' => '1.9601', 'Carp' => '1.35', 'Carp::Heavy' => '1.35', 'Config' => '5.021009', 'Config::Perl::V' => '0.23', 'Data::Dumper' => '2.157', 'Devel::Peek' => '1.22', 'DynaLoader' => '1.31', 'Encode' => '2.70', 'Encode::MIME::Header' => '2.16', 'Errno' => '1.23', 'ExtUtils::Miniperl' => '1.04', 'HTTP::Tiny' => '0.054', 'Module::CoreList' => '5.20150220', 'Module::CoreList::TieHashDelta'=> '5.20150220', 'Module::CoreList::Utils'=> '5.20150220', 'Opcode' => '1.32', 'POSIX' => '1.51', 'Perl::OSType' => '1.008', 'PerlIO::scalar' => '0.22', 'Pod::Find' => '1.63', 'Pod::InputObjects' => '1.63', 'Pod::ParseUtils' => '1.63', 'Pod::Parser' => '1.63', 'Pod::Perldoc' => '3.25', 'Pod::Perldoc::BaseTo' => '3.25', 'Pod::Perldoc::GetOptsOO'=> '3.25', 'Pod::Perldoc::ToANSI' => '3.25', 'Pod::Perldoc::ToChecker'=> '3.25', 'Pod::Perldoc::ToMan' => '3.25', 'Pod::Perldoc::ToNroff' => '3.25', 'Pod::Perldoc::ToPod' => '3.25', 'Pod::Perldoc::ToRtf' => '3.25', 'Pod::Perldoc::ToTerm' => '3.25', 'Pod::Perldoc::ToText' => '3.25', 'Pod::Perldoc::ToTk' => '3.25', 'Pod::Perldoc::ToXml' => '3.25', 'Pod::PlainText' => '2.07', 'Pod::Select' => '1.63', 'Socket' => '2.018', 'Storable' => '2.53', 'Test::Builder' => '1.301001_098', 'Test::Builder::Module' => '1.301001_098', 'Test::Builder::Tester' => '1.301001_098', 'Test::Builder::Tester::Color'=> '1.301001_098', 'Test::More' => '1.301001_098', 'Test::Simple' => '1.301001_098', 'Test::Stream' => '1.301001_098', 'Test::Tester' => '1.301001_098', 'Test::use::ok' => '1.301001_098', 'Unicode::Collate' => '1.11', 'Unicode::Collate::CJK::Big5'=> '1.11', 'Unicode::Collate::CJK::GB2312'=> '1.11', 'Unicode::Collate::CJK::JISX0208'=> '1.11', 'Unicode::Collate::CJK::Korean'=> '1.11', 'Unicode::Collate::CJK::Pinyin'=> '1.11', 'Unicode::Collate::CJK::Stroke'=> '1.11', 'Unicode::Collate::CJK::Zhuyin'=> '1.11', 'Unicode::Collate::Locale'=> '1.11', 'Unicode::UCD' => '0.61', 'VMS::Stdio' => '2.41', 'Win32' => '0.51', 'Win32API::File' => '0.1202', 'attributes' => '0.26', 'bigint' => '0.39', 'bignum' => '0.39', 'bigrat' => '0.39', 'constant' => '1.33', 'encoding' => '2.13', 'feature' => '1.40', 'ok' => '1.301001_098', 'overload' => '1.25', 'perlfaq' => '5.021009', 're' => '0.31', 'threads::shared' => '1.48', 'warnings' => '1.31', }, removed => { } }, 5.021010 => { delta_from => 5.021009, changed => { 'App::Cpan' => '1.63', 'B' => '1.57', 'B::Deparse' => '1.34', 'B::Op_private' => '5.021010', 'Benchmark' => '1.2', 'CPAN' => '2.10', 'CPAN::Distribution' => '2.04', 'CPAN::FirstTime' => '5.5307', 'CPAN::HTTP::Credentials'=> '1.9601', 'CPAN::HandleConfig' => '5.5006', 'CPAN::Meta' => '2.150001', 'CPAN::Meta::Converter' => '2.150001', 'CPAN::Meta::Feature' => '2.150001', 'CPAN::Meta::History' => '2.150001', 'CPAN::Meta::Merge' => '2.150001', 'CPAN::Meta::Prereqs' => '2.150001', 'CPAN::Meta::Spec' => '2.150001', 'CPAN::Meta::Validator' => '2.150001', 'CPAN::Module' => '5.5002', 'CPAN::Plugin' => '0.95', 'CPAN::Plugin::Specfile'=> '0.01', 'CPAN::Shell' => '5.5005', 'Carp' => '1.36', 'Carp::Heavy' => '1.36', 'Config' => '5.02101', 'Cwd' => '3.55', 'DB' => '1.08', 'Data::Dumper' => '2.158', 'Devel::PPPort' => '3.31', 'DynaLoader' => '1.32', 'Encode' => '2.72', 'Encode::Alias' => '2.19', 'File::Spec' => '3.55', 'File::Spec::Cygwin' => '3.55', 'File::Spec::Epoc' => '3.55', 'File::Spec::Functions' => '3.55', 'File::Spec::Mac' => '3.55', 'File::Spec::OS2' => '3.55', 'File::Spec::Unix' => '3.55', 'File::Spec::VMS' => '3.55', 'File::Spec::Win32' => '3.55', 'Getopt::Long' => '2.45', 'Locale::Codes' => '3.34', 'Locale::Codes::Constants'=> '3.34', 'Locale::Codes::Country'=> '3.34', 'Locale::Codes::Country_Codes'=> '3.34', 'Locale::Codes::Country_Retired'=> '3.34', 'Locale::Codes::Currency'=> '3.34', 'Locale::Codes::Currency_Codes'=> '3.34', 'Locale::Codes::Currency_Retired'=> '3.34', 'Locale::Codes::LangExt'=> '3.34', 'Locale::Codes::LangExt_Codes'=> '3.34', 'Locale::Codes::LangExt_Retired'=> '3.34', 'Locale::Codes::LangFam'=> '3.34', 'Locale::Codes::LangFam_Codes'=> '3.34', 'Locale::Codes::LangFam_Retired'=> '3.34', 'Locale::Codes::LangVar'=> '3.34', 'Locale::Codes::LangVar_Codes'=> '3.34', 'Locale::Codes::LangVar_Retired'=> '3.34', 'Locale::Codes::Language'=> '3.34', 'Locale::Codes::Language_Codes'=> '3.34', 'Locale::Codes::Language_Retired'=> '3.34', 'Locale::Codes::Script' => '3.34', 'Locale::Codes::Script_Codes'=> '3.34', 'Locale::Codes::Script_Retired'=> '3.34', 'Locale::Country' => '3.34', 'Locale::Currency' => '3.34', 'Locale::Language' => '3.34', 'Locale::Script' => '3.34', 'Module::CoreList' => '5.20150320', 'Module::CoreList::TieHashDelta'=> '5.20150320', 'Module::CoreList::Utils'=> '5.20150320', 'POSIX' => '1.52', 'Pod::Functions' => '1.09', 'Pod::Functions::Functions'=> '1.09', 'Term::Complete' => '1.403', 'Test::Builder' => '1.001014', 'Test::Builder::IO::Scalar'=> '2.113', 'Test::Builder::Module' => '1.001014', 'Test::Builder::Tester' => '1.28', 'Test::Builder::Tester::Color'=> '1.290001', 'Test::More' => '1.001014', 'Test::Simple' => '1.001014', 'Test::Tester' => '0.114', 'Test::use::ok' => '0.16', 'Text::Balanced' => '2.03', 'Text::ParseWords' => '3.30', 'Unicode::Collate' => '1.12', 'Unicode::Collate::CJK::Big5'=> '1.12', 'Unicode::Collate::CJK::GB2312'=> '1.12', 'Unicode::Collate::CJK::JISX0208'=> '1.12', 'Unicode::Collate::CJK::Korean'=> '1.12', 'Unicode::Collate::CJK::Pinyin'=> '1.12', 'Unicode::Collate::CJK::Stroke'=> '1.12', 'Unicode::Collate::CJK::Zhuyin'=> '1.12', 'Unicode::Collate::Locale'=> '1.12', 'XS::APItest' => '0.71', 'encoding' => '2.14', 'locale' => '1.06', 'meta_notation' => undef, 'ok' => '0.16', 'parent' => '0.232', 're' => '0.32', 'sigtrap' => '1.08', 'threads' => '2.01', 'utf8' => '1.15', }, removed => { 'Test::CanFork' => 1, 'Test::CanThread' => 1, 'Test::More::DeepCheck' => 1, 'Test::More::DeepCheck::Strict'=> 1, 'Test::More::DeepCheck::Tolerant'=> 1, 'Test::More::Tools' => 1, 'Test::MostlyLike' => 1, 'Test::Stream' => 1, 'Test::Stream::API' => 1, 'Test::Stream::ArrayBase'=> 1, 'Test::Stream::ArrayBase::Meta'=> 1, 'Test::Stream::Block' => 1, 'Test::Stream::Carp' => 1, 'Test::Stream::Context' => 1, 'Test::Stream::Event' => 1, 'Test::Stream::Event::Bail'=> 1, 'Test::Stream::Event::Child'=> 1, 'Test::Stream::Event::Diag'=> 1, 'Test::Stream::Event::Finish'=> 1, 'Test::Stream::Event::Note'=> 1, 'Test::Stream::Event::Ok'=> 1, 'Test::Stream::Event::Plan'=> 1, 'Test::Stream::Event::Subtest'=> 1, 'Test::Stream::ExitMagic'=> 1, 'Test::Stream::ExitMagic::Context'=> 1, 'Test::Stream::Exporter'=> 1, 'Test::Stream::Exporter::Meta'=> 1, 'Test::Stream::ForceExit'=> 1, 'Test::Stream::IOSets' => 1, 'Test::Stream::Meta' => 1, 'Test::Stream::PackageUtil'=> 1, 'Test::Stream::Subtest' => 1, 'Test::Stream::Tester' => 1, 'Test::Stream::Tester::Checks'=> 1, 'Test::Stream::Tester::Checks::Event'=> 1, 'Test::Stream::Tester::Events'=> 1, 'Test::Stream::Tester::Events::Event'=> 1, 'Test::Stream::Tester::Grab'=> 1, 'Test::Stream::Threads' => 1, 'Test::Stream::Toolset' => 1, 'Test::Stream::Util' => 1, } }, 5.021011 => { delta_from => 5.021010, changed => { 'B' => '1.58', 'B::Deparse' => '1.35', 'B::Op_private' => '5.021011', 'CPAN' => '2.11', 'Config' => '5.021011', 'Config::Perl::V' => '0.24', 'Cwd' => '3.56', 'ExtUtils::Miniperl' => '1.05', 'ExtUtils::ParseXS' => '3.28', 'ExtUtils::ParseXS::Constants'=> '3.28', 'ExtUtils::ParseXS::CountLines'=> '3.28', 'ExtUtils::ParseXS::Eval'=> '3.28', 'ExtUtils::ParseXS::Utilities'=> '3.28', 'ExtUtils::Typemaps' => '3.28', 'ExtUtils::Typemaps::Cmd'=> '3.28', 'ExtUtils::Typemaps::InputMap'=> '3.28', 'ExtUtils::Typemaps::OutputMap'=> '3.28', 'ExtUtils::Typemaps::Type'=> '3.28', 'File::Spec' => '3.56', 'File::Spec::Cygwin' => '3.56', 'File::Spec::Epoc' => '3.56', 'File::Spec::Functions' => '3.56', 'File::Spec::Mac' => '3.56', 'File::Spec::OS2' => '3.56', 'File::Spec::Unix' => '3.56', 'File::Spec::VMS' => '3.56', 'File::Spec::Win32' => '3.56', 'IO::Socket::IP' => '0.37', 'Module::CoreList' => '5.20150420', 'Module::CoreList::TieHashDelta'=> '5.20150420', 'Module::CoreList::Utils'=> '5.20150420', 'PerlIO::mmap' => '0.014', 'XS::APItest' => '0.72', 'attributes' => '0.27', 'if' => '0.0604', 'utf8' => '1.16', 'warnings' => '1.32', }, removed => { } }, 5.022000 => { delta_from => 5.021011, changed => { 'B::Op_private' => '5.022000', 'Config' => '5.022', 'ExtUtils::Command::MM' => '7.04_01', 'ExtUtils::Liblist' => '7.04_01', 'ExtUtils::Liblist::Kid'=> '7.04_01', 'ExtUtils::MM' => '7.04_01', 'ExtUtils::MM_AIX' => '7.04_01', 'ExtUtils::MM_Any' => '7.04_01', 'ExtUtils::MM_BeOS' => '7.04_01', 'ExtUtils::MM_Cygwin' => '7.04_01', 'ExtUtils::MM_DOS' => '7.04_01', 'ExtUtils::MM_Darwin' => '7.04_01', 'ExtUtils::MM_MacOS' => '7.04_01', 'ExtUtils::MM_NW5' => '7.04_01', 'ExtUtils::MM_OS2' => '7.04_01', 'ExtUtils::MM_QNX' => '7.04_01', 'ExtUtils::MM_UWIN' => '7.04_01', 'ExtUtils::MM_Unix' => '7.04_01', 'ExtUtils::MM_VMS' => '7.04_01', 'ExtUtils::MM_VOS' => '7.04_01', 'ExtUtils::MM_Win32' => '7.04_01', 'ExtUtils::MM_Win95' => '7.04_01', 'ExtUtils::MY' => '7.04_01', 'ExtUtils::MakeMaker' => '7.04_01', 'ExtUtils::MakeMaker::Config'=> '7.04_01', 'ExtUtils::MakeMaker::Locale'=> '7.04_01', 'ExtUtils::MakeMaker::version'=> '7.04_01', 'ExtUtils::MakeMaker::version::regex'=> '7.04_01', 'ExtUtils::MakeMaker::version::vpp'=> '7.04_01', 'ExtUtils::Mkbootstrap' => '7.04_01', 'ExtUtils::Mksymlists' => '7.04_01', 'ExtUtils::testlib' => '7.04_01', 'Module::CoreList' => '5.20150520', 'Module::CoreList::TieHashDelta'=> '5.20150520', 'Module::CoreList::Utils'=> '5.20150520', 'POSIX' => '1.53', 'PerlIO::via::QuotedPrint'=> '0.08', 'overload' => '1.26', 'utf8' => '1.17', }, removed => { } }, 5.023000 => { delta_from => 5.022000, changed => { 'B::Op_private' => '5.023000', 'CPAN::Meta' => '2.150005', 'CPAN::Meta::Converter' => '2.150005', 'CPAN::Meta::Feature' => '2.150005', 'CPAN::Meta::History' => '2.150005', 'CPAN::Meta::Merge' => '2.150005', 'CPAN::Meta::Prereqs' => '2.150005', 'CPAN::Meta::Requirements'=> '2.133', 'CPAN::Meta::Spec' => '2.150005', 'CPAN::Meta::Validator' => '2.150005', 'CPAN::Meta::YAML' => '0.016', 'Config' => '5.023', 'Encode' => '2.73', 'ExtUtils::CBuilder' => '0.280223', 'ExtUtils::CBuilder::Base'=> '0.280223', 'ExtUtils::CBuilder::Platform::Unix'=> '0.280223', 'ExtUtils::CBuilder::Platform::VMS'=> '0.280223', 'ExtUtils::CBuilder::Platform::Windows'=> '0.280223', 'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280223', 'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280223', 'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280223', 'ExtUtils::CBuilder::Platform::aix'=> '0.280223', 'ExtUtils::CBuilder::Platform::android'=> '0.280223', 'ExtUtils::CBuilder::Platform::cygwin'=> '0.280223', 'ExtUtils::CBuilder::Platform::darwin'=> '0.280223', 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280223', 'ExtUtils::CBuilder::Platform::os2'=> '0.280223', 'Fatal' => '2.27', 'Getopt::Long' => '2.46', 'HTTP::Tiny' => '0.056', 'List::Util' => '1.42_01', 'List::Util::XS' => '1.42_01', 'Locale::Codes' => '3.35', 'Locale::Codes::Constants'=> '3.35', 'Locale::Codes::Country'=> '3.35', 'Locale::Codes::Country_Codes'=> '3.35', 'Locale::Codes::Country_Retired'=> '3.35', 'Locale::Codes::Currency'=> '3.35', 'Locale::Codes::Currency_Codes'=> '3.35', 'Locale::Codes::Currency_Retired'=> '3.35', 'Locale::Codes::LangExt'=> '3.35', 'Locale::Codes::LangExt_Codes'=> '3.35', 'Locale::Codes::LangExt_Retired'=> '3.35', 'Locale::Codes::LangFam'=> '3.35', 'Locale::Codes::LangFam_Codes'=> '3.35', 'Locale::Codes::LangFam_Retired'=> '3.35', 'Locale::Codes::LangVar'=> '3.35', 'Locale::Codes::LangVar_Codes'=> '3.35', 'Locale::Codes::LangVar_Retired'=> '3.35', 'Locale::Codes::Language'=> '3.35', 'Locale::Codes::Language_Codes'=> '3.35', 'Locale::Codes::Language_Retired'=> '3.35', 'Locale::Codes::Script' => '3.35', 'Locale::Codes::Script_Codes'=> '3.35', 'Locale::Codes::Script_Retired'=> '3.35', 'Locale::Country' => '3.35', 'Locale::Currency' => '3.35', 'Locale::Language' => '3.35', 'Locale::Script' => '3.35', 'Math::BigFloat' => '1.999701', 'Math::BigInt' => '1.999701', 'Math::BigInt::Calc' => '1.999701', 'Math::BigInt::CalcEmu' => '1.999701', 'Math::BigRat' => '0.260801', 'Module::CoreList' => '5.20150620', 'Module::CoreList::TieHashDelta'=> '5.20150620', 'Module::CoreList::Utils'=> '5.20150620', 'Module::Metadata' => '1.000027', 'Net::Cmd' => '3.06', 'Net::Config' => '3.06', 'Net::Domain' => '3.06', 'Net::FTP' => '3.06', 'Net::FTP::A' => '3.06', 'Net::FTP::E' => '3.06', 'Net::FTP::I' => '3.06', 'Net::FTP::L' => '3.06', 'Net::FTP::dataconn' => '3.06', 'Net::NNTP' => '3.06', 'Net::Netrc' => '3.06', 'Net::POP3' => '3.06', 'Net::SMTP' => '3.06', 'Net::Time' => '3.06', 'POSIX' => '1.54', 'Parse::CPAN::Meta' => '1.4417', 'Pod::Simple' => '3.30', 'Pod::Simple::BlackBox' => '3.30', 'Pod::Simple::Checker' => '3.30', 'Pod::Simple::Debug' => '3.30', 'Pod::Simple::DumpAsText'=> '3.30', 'Pod::Simple::DumpAsXML'=> '3.30', 'Pod::Simple::HTML' => '3.30', 'Pod::Simple::HTMLBatch'=> '3.30', 'Pod::Simple::LinkSection'=> '3.30', 'Pod::Simple::Methody' => '3.30', 'Pod::Simple::Progress' => '3.30', 'Pod::Simple::PullParser'=> '3.30', 'Pod::Simple::PullParserEndToken'=> '3.30', 'Pod::Simple::PullParserStartToken'=> '3.30', 'Pod::Simple::PullParserTextToken'=> '3.30', 'Pod::Simple::PullParserToken'=> '3.30', 'Pod::Simple::RTF' => '3.30', 'Pod::Simple::Search' => '3.30', 'Pod::Simple::SimpleTree'=> '3.30', 'Pod::Simple::Text' => '3.30', 'Pod::Simple::TextContent'=> '3.30', 'Pod::Simple::TiedOutFH'=> '3.30', 'Pod::Simple::Transcode'=> '3.30', 'Pod::Simple::TranscodeDumb'=> '3.30', 'Pod::Simple::TranscodeSmart'=> '3.30', 'Pod::Simple::XHTML' => '3.30', 'Pod::Simple::XMLOutStream'=> '3.30', 'Pod::Usage' => '1.67', 'Scalar::Util' => '1.42_01', 'Socket' => '2.019', 'Sub::Util' => '1.42_01', 'Time::Piece' => '1.30', 'Time::Seconds' => '1.30', 'UNIVERSAL' => '1.13', 'Unicode' => '8.0.0', 'XS::APItest' => '0.73', 'autodie' => '2.27', 'autodie::Scope::Guard' => '2.27', 'autodie::Scope::GuardStack'=> '2.27', 'autodie::Util' => '2.27', 'autodie::exception' => '2.27', 'autodie::exception::system'=> '2.27', 'autodie::hints' => '2.27', 'autodie::skip' => '2.27', 'encoding' => '2.15', 'feature' => '1.41', 'parent' => '0.234', 'threads' => '2.02', }, removed => { } }, 5.023001 => { delta_from => 5.023000, changed => { 'B::Op_private' => '5.023001', 'Config' => '5.023001', 'DynaLoader' => '1.33', 'Encode' => '2.75', 'Encode::MIME::Header' => '2.17', 'Encode::Unicode' => '2.13', 'Fatal' => '2.29', 'File::Path' => '2.11', 'Getopt::Long' => '2.47', 'I18N::Langinfo' => '0.13', 'IPC::Open3' => '1.19', 'Module::CoreList' => '5.20150720', 'Module::CoreList::TieHashDelta'=> '5.20150720', 'Module::CoreList::Utils'=> '5.20150720', 'Net::Cmd' => '3.07', 'Net::Config' => '3.07', 'Net::Domain' => '3.07', 'Net::FTP' => '3.07', 'Net::FTP::A' => '3.07', 'Net::FTP::E' => '3.07', 'Net::FTP::I' => '3.07', 'Net::FTP::L' => '3.07', 'Net::FTP::dataconn' => '3.07', 'Net::NNTP' => '3.07', 'Net::Netrc' => '3.07', 'Net::POP3' => '3.07', 'Net::SMTP' => '3.07', 'Net::Time' => '3.07', 'Opcode' => '1.33', 'POSIX' => '1.55', 'PerlIO::scalar' => '0.23', 'Socket' => '2.020', 'Storable' => '2.54', 'Unicode::Collate' => '1.14', 'Unicode::Collate::CJK::Big5'=> '1.14', 'Unicode::Collate::CJK::GB2312'=> '1.14', 'Unicode::Collate::CJK::JISX0208'=> '1.14', 'Unicode::Collate::CJK::Korean'=> '1.14', 'Unicode::Collate::CJK::Pinyin'=> '1.14', 'Unicode::Collate::CJK::Stroke'=> '1.14', 'Unicode::Collate::CJK::Zhuyin'=> '1.14', 'Unicode::Collate::Locale'=> '1.14', 'Unicode::Normalize' => '1.19', 'XS::APItest' => '0.74', 'XS::Typemap' => '0.14', 'autodie' => '2.29', 'autodie::Scope::Guard' => '2.29', 'autodie::Scope::GuardStack'=> '2.29', 'autodie::Util' => '2.29', 'autodie::exception' => '2.29', 'autodie::exception::system'=> '2.29', 'autodie::hints' => '2.29', 'autodie::skip' => '2.29', 'encoding' => '2.16', 'feature' => '1.42', 'warnings' => '1.33', }, removed => { 'autodie::ScopeUtil' => 1, } }, 5.023002 => { delta_from => 5.023001, changed => { 'Attribute::Handlers' => '0.99', 'B::Op_private' => '5.023002', 'CPAN::Meta::YAML' => '0.017', 'Config' => '5.023002', 'Cwd' => '3.57', 'Encode' => '2.76', 'ExtUtils::ParseXS' => '3.29', 'ExtUtils::ParseXS::Constants'=> '3.29', 'ExtUtils::ParseXS::CountLines'=> '3.29', 'ExtUtils::ParseXS::Eval'=> '3.29', 'ExtUtils::ParseXS::Utilities'=> '3.29', 'ExtUtils::Typemaps' => '3.29', 'File::Find' => '1.30', 'File::Spec' => '3.57', 'File::Spec::Cygwin' => '3.57', 'File::Spec::Epoc' => '3.57', 'File::Spec::Functions' => '3.57', 'File::Spec::Mac' => '3.57', 'File::Spec::OS2' => '3.57', 'File::Spec::Unix' => '3.57', 'File::Spec::VMS' => '3.57', 'File::Spec::Win32' => '3.57', 'Filter::Util::Call' => '1.55', 'Hash::Util' => '0.19', 'Module::CoreList' => '5.20150820', 'Module::CoreList::TieHashDelta'=> '5.20150820', 'Module::CoreList::Utils'=> '5.20150820', 'POSIX' => '1.56', 'Term::Cap' => '1.17', 'Unicode::UCD' => '0.62', 'perlfaq' => '5.021010', }, removed => { } }, 5.020003 => { delta_from => 5.020002, changed => { 'Config' => '5.020003', 'Errno' => '1.20_06', 'Module::CoreList' => '5.20150912', 'Module::CoreList::TieHashDelta'=> '5.20150912', 'Module::CoreList::Utils'=> '5.20150912', }, removed => { } }, 5.023003 => { delta_from => 5.023002, changed => { 'Amiga::ARexx' => '0.02', 'Amiga::Exec' => '0.01', 'B' => '1.59', 'B::Op_private' => '5.023003', 'Carp' => '1.37', 'Carp::Heavy' => '1.37', 'Compress::Raw::Zlib' => '2.068_01', 'Config' => '5.023003', 'Cwd' => '3.58', 'DynaLoader' => '1.34', 'Encode' => '2.77', 'Encode::Unicode' => '2.14', 'English' => '1.10', 'Errno' => '1.24', 'ExtUtils::Command' => '7.10', 'ExtUtils::Command::MM' => '7.10', 'ExtUtils::Liblist' => '7.10', 'ExtUtils::Liblist::Kid'=> '7.10', 'ExtUtils::MM' => '7.10', 'ExtUtils::MM_AIX' => '7.10', 'ExtUtils::MM_Any' => '7.10', 'ExtUtils::MM_BeOS' => '7.10', 'ExtUtils::MM_Cygwin' => '7.10', 'ExtUtils::MM_DOS' => '7.10', 'ExtUtils::MM_Darwin' => '7.10', 'ExtUtils::MM_MacOS' => '7.10', 'ExtUtils::MM_NW5' => '7.10', 'ExtUtils::MM_OS2' => '7.10', 'ExtUtils::MM_QNX' => '7.10', 'ExtUtils::MM_UWIN' => '7.10', 'ExtUtils::MM_Unix' => '7.10', 'ExtUtils::MM_VMS' => '7.10', 'ExtUtils::MM_VOS' => '7.10', 'ExtUtils::MM_Win32' => '7.10', 'ExtUtils::MM_Win95' => '7.10', 'ExtUtils::MY' => '7.10', 'ExtUtils::MakeMaker' => '7.10', 'ExtUtils::MakeMaker::Config'=> '7.10', 'ExtUtils::MakeMaker::Locale'=> '7.10', 'ExtUtils::MakeMaker::version'=> '7.10', 'ExtUtils::MakeMaker::version::regex'=> '7.10', 'ExtUtils::MakeMaker::version::vpp'=> '7.10', 'ExtUtils::Mkbootstrap' => '7.10', 'ExtUtils::Mksymlists' => '7.10', 'ExtUtils::ParseXS' => '3.30', 'ExtUtils::ParseXS::Constants'=> '3.30', 'ExtUtils::ParseXS::CountLines'=> '3.30', 'ExtUtils::ParseXS::Eval'=> '3.30', 'ExtUtils::ParseXS::Utilities'=> '3.30', 'ExtUtils::Typemaps' => '3.30', 'ExtUtils::Typemaps::Cmd'=> '3.30', 'ExtUtils::Typemaps::InputMap'=> '3.30', 'ExtUtils::Typemaps::OutputMap'=> '3.30', 'ExtUtils::Typemaps::Type'=> '3.30', 'ExtUtils::testlib' => '7.10', 'File::Find' => '1.31', 'File::Glob' => '1.25', 'File::Spec' => '3.58', 'File::Spec::AmigaOS' => '3.58', 'File::Spec::Cygwin' => '3.58', 'File::Spec::Epoc' => '3.58', 'File::Spec::Functions' => '3.58', 'File::Spec::Mac' => '3.58', 'File::Spec::OS2' => '3.58', 'File::Spec::Unix' => '3.58', 'File::Spec::VMS' => '3.58', 'File::Spec::Win32' => '3.58', 'Hash::Util::FieldHash' => '1.17', 'Locale::Codes' => '3.36', 'Locale::Codes::Constants'=> '3.36', 'Locale::Codes::Country'=> '3.36', 'Locale::Codes::Country_Codes'=> '3.36', 'Locale::Codes::Country_Retired'=> '3.36', 'Locale::Codes::Currency'=> '3.36', 'Locale::Codes::Currency_Codes'=> '3.36', 'Locale::Codes::Currency_Retired'=> '3.36', 'Locale::Codes::LangExt'=> '3.36', 'Locale::Codes::LangExt_Codes'=> '3.36', 'Locale::Codes::LangExt_Retired'=> '3.36', 'Locale::Codes::LangFam'=> '3.36', 'Locale::Codes::LangFam_Codes'=> '3.36', 'Locale::Codes::LangFam_Retired'=> '3.36', 'Locale::Codes::LangVar'=> '3.36', 'Locale::Codes::LangVar_Codes'=> '3.36', 'Locale::Codes::LangVar_Retired'=> '3.36', 'Locale::Codes::Language'=> '3.36', 'Locale::Codes::Language_Codes'=> '3.36', 'Locale::Codes::Language_Retired'=> '3.36', 'Locale::Codes::Script' => '3.36', 'Locale::Codes::Script_Codes'=> '3.36', 'Locale::Codes::Script_Retired'=> '3.36', 'Locale::Country' => '3.36', 'Locale::Currency' => '3.36', 'Locale::Language' => '3.36', 'Locale::Script' => '3.36', 'Math::BigFloat::Trace' => '0.40', 'Math::BigInt::Trace' => '0.40', 'Module::CoreList' => '5.20150920', 'Module::CoreList::TieHashDelta'=> '5.20150920', 'Module::CoreList::Utils'=> '5.20150920', 'OS2::DLL' => '1.06', 'OS2::ExtAttr' => '0.04', 'OS2::Process' => '1.11', 'OS2::REXX' => '1.05', 'POSIX' => '1.57', 'Pod::Perldoc' => '3.25_01', 'Socket' => '2.020_01', 'Test' => '1.27', 'Thread::Queue' => '3.06', 'Time::HiRes' => '1.9727_02', 'Unicode::UCD' => '0.63', 'Win32' => '0.52', 'XS::APItest' => '0.75', 'bigint' => '0.40', 'bignum' => '0.40', 'bigrat' => '0.40', 'encoding' => '2.17', 'experimental' => '0.014', 'if' => '0.0605', 'locale' => '1.07', 'mro' => '1.18', 'threads' => '2.03', }, removed => { } }, 5.023004 => { delta_from => 5.023003, changed => { 'B' => '1.60', 'B::Op_private' => '5.023004', 'Compress::Raw::Bzip2' => '2.069', 'Compress::Raw::Zlib' => '2.069', 'Compress::Zlib' => '2.069', 'Config' => '5.023004', 'Devel::PPPort' => '3.32', 'DynaLoader' => '1.35', 'Encode' => '2.78', 'ExtUtils::CBuilder' => '0.280224', 'ExtUtils::CBuilder::Base'=> '0.280224', 'ExtUtils::CBuilder::Platform::Unix'=> '0.280224', 'ExtUtils::CBuilder::Platform::VMS'=> '0.280224', 'ExtUtils::CBuilder::Platform::Windows'=> '0.280224', 'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280224', 'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280224', 'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280224', 'ExtUtils::CBuilder::Platform::aix'=> '0.280224', 'ExtUtils::CBuilder::Platform::android'=> '0.280224', 'ExtUtils::CBuilder::Platform::cygwin'=> '0.280224', 'ExtUtils::CBuilder::Platform::darwin'=> '0.280224', 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280224', 'ExtUtils::CBuilder::Platform::os2'=> '0.280224', 'File::Path' => '2.12', 'IO' => '1.36', 'IO::Compress::Adapter::Bzip2'=> '2.069', 'IO::Compress::Adapter::Deflate'=> '2.069', 'IO::Compress::Adapter::Identity'=> '2.069', 'IO::Compress::Base' => '2.069', 'IO::Compress::Base::Common'=> '2.069', 'IO::Compress::Bzip2' => '2.069', 'IO::Compress::Deflate' => '2.069', 'IO::Compress::Gzip' => '2.069', 'IO::Compress::Gzip::Constants'=> '2.069', 'IO::Compress::RawDeflate'=> '2.069', 'IO::Compress::Zip' => '2.069', 'IO::Compress::Zip::Constants'=> '2.069', 'IO::Compress::Zlib::Constants'=> '2.069', 'IO::Compress::Zlib::Extra'=> '2.069', 'IO::Poll' => '0.10', 'IO::Uncompress::Adapter::Bunzip2'=> '2.069', 'IO::Uncompress::Adapter::Identity'=> '2.069', 'IO::Uncompress::Adapter::Inflate'=> '2.069', 'IO::Uncompress::AnyInflate'=> '2.069', 'IO::Uncompress::AnyUncompress'=> '2.069', 'IO::Uncompress::Base' => '2.069', 'IO::Uncompress::Bunzip2'=> '2.069', 'IO::Uncompress::Gunzip'=> '2.069', 'IO::Uncompress::Inflate'=> '2.069', 'IO::Uncompress::RawInflate'=> '2.069', 'IO::Uncompress::Unzip' => '2.069', 'Math::BigFloat' => '1.999704', 'Math::BigFloat::Trace' => '0.41', 'Math::BigInt' => '1.999704', 'Math::BigInt::Calc' => '1.999704', 'Math::BigInt::CalcEmu' => '1.999704', 'Math::BigInt::FastCalc'=> '0.34', 'Math::BigInt::Trace' => '0.41', 'Module::CoreList' => '5.20151020', 'Module::CoreList::TieHashDelta'=> '5.20151020', 'Module::CoreList::Utils'=> '5.20151020', 'Module::Metadata' => '1.000029', 'POSIX' => '1.58', 'Perl::OSType' => '1.009', 'PerlIO::encoding' => '0.22', 'Socket' => '2.020_02', 'Unicode::Normalize' => '1.21', 'XS::APItest' => '0.76', 'bigint' => '0.41', 'bignum' => '0.41', 'bigrat' => '0.41', 'experimental' => '0.016', 'if' => '0.0606', 'warnings' => '1.35', }, removed => { } }, 5.023005 => { delta_from => 5.023004, changed => { 'B' => '1.61', 'B::Op_private' => '5.023005', 'Carp' => '1.38', 'Carp::Heavy' => '1.38', 'Config' => '5.023005', 'Config::Perl::V' => '0.25', 'Cwd' => '3.59', 'Devel::Peek' => '1.23', 'Dumpvalue' => '1.18', 'DynaLoader' => '1.36', 'File::Find' => '1.32', 'File::Spec' => '3.59', 'File::Spec::AmigaOS' => '3.59', 'File::Spec::Cygwin' => '3.59', 'File::Spec::Epoc' => '3.59', 'File::Spec::Functions' => '3.59', 'File::Spec::Mac' => '3.59', 'File::Spec::OS2' => '3.59', 'File::Spec::Unix' => '3.59', 'File::Spec::VMS' => '3.59', 'File::Spec::Win32' => '3.59', 'Getopt::Long' => '2.48', 'Hash::Util::FieldHash' => '1.18', 'IPC::Open3' => '1.20', 'Math::BigFloat' => '1.999710', 'Math::BigInt' => '1.999710', 'Math::BigInt::Calc' => '1.999710', 'Math::BigInt::CalcEmu' => '1.999710', 'Math::BigInt::FastCalc'=> '0.37', 'Module::CoreList' => '5.20151120', 'Module::CoreList::TieHashDelta'=> '5.20151120', 'Module::CoreList::Utils'=> '5.20151120', 'Module::Metadata' => '1.000030', 'POSIX' => '1.59', 'PerlIO::encoding' => '0.23', 'PerlIO::mmap' => '0.015', 'PerlIO::scalar' => '0.24', 'PerlIO::via' => '0.16', 'Pod::Simple' => '3.32', 'Pod::Simple::BlackBox' => '3.32', 'Pod::Simple::Checker' => '3.32', 'Pod::Simple::Debug' => '3.32', 'Pod::Simple::DumpAsText'=> '3.32', 'Pod::Simple::DumpAsXML'=> '3.32', 'Pod::Simple::HTML' => '3.32', 'Pod::Simple::HTMLBatch'=> '3.32', 'Pod::Simple::LinkSection'=> '3.32', 'Pod::Simple::Methody' => '3.32', 'Pod::Simple::Progress' => '3.32', 'Pod::Simple::PullParser'=> '3.32', 'Pod::Simple::PullParserEndToken'=> '3.32', 'Pod::Simple::PullParserStartToken'=> '3.32', 'Pod::Simple::PullParserTextToken'=> '3.32', 'Pod::Simple::PullParserToken'=> '3.32', 'Pod::Simple::RTF' => '3.32', 'Pod::Simple::Search' => '3.32', 'Pod::Simple::SimpleTree'=> '3.32', 'Pod::Simple::Text' => '3.32', 'Pod::Simple::TextContent'=> '3.32', 'Pod::Simple::TiedOutFH'=> '3.32', 'Pod::Simple::Transcode'=> '3.32', 'Pod::Simple::TranscodeDumb'=> '3.32', 'Pod::Simple::TranscodeSmart'=> '3.32', 'Pod::Simple::XHTML' => '3.32', 'Pod::Simple::XMLOutStream'=> '3.32', 'Thread::Queue' => '3.07', 'Tie::Scalar' => '1.04', 'Time::HiRes' => '1.9728', 'Time::Piece' => '1.31', 'Time::Seconds' => '1.31', 'Unicode::Normalize' => '1.23', 'XSLoader' => '0.21', 'arybase' => '0.11', 'base' => '2.22_01', 'fields' => '2.22_01', 'threads' => '2.04', 'threads::shared' => '1.49', }, removed => { 'ExtUtils::MakeMaker::version::vpp'=> 1, 'version::vpp' => 1, } }, 5.022001 => { delta_from => 5.022, changed => { 'B::Op_private' => '5.022001', 'Config' => '5.022001', 'Module::CoreList' => '5.20151213', 'Module::CoreList::TieHashDelta'=> '5.20151213', 'Module::CoreList::Utils'=> '5.20151213', 'POSIX' => '1.53_01', 'PerlIO::scalar' => '0.23', 'Storable' => '2.53_01', 'Win32' => '0.52', 'warnings' => '1.34', }, removed => { } }, 5.023006 => { delta_from => 5.023005, changed => { 'B::Deparse' => '1.36', 'B::Op_private' => '5.023006', 'Benchmark' => '1.21', 'CPAN::Meta::Requirements'=> '2.140', 'CPAN::Meta::YAML' => '0.018', 'Config' => '5.023006', 'Cwd' => '3.60', 'Data::Dumper' => '2.159', 'DynaLoader' => '1.37', 'File::Spec' => '3.60', 'File::Spec::AmigaOS' => '3.60', 'File::Spec::Cygwin' => '3.60', 'File::Spec::Epoc' => '3.60', 'File::Spec::Functions' => '3.60', 'File::Spec::Mac' => '3.60', 'File::Spec::OS2' => '3.60', 'File::Spec::Unix' => '3.60', 'File::Spec::VMS' => '3.60', 'File::Spec::Win32' => '3.60', 'Hash::Util::FieldHash' => '1.19', 'Locale::Codes' => '3.37', 'Locale::Codes::Constants'=> '3.37', 'Locale::Codes::Country'=> '3.37', 'Locale::Codes::Country_Codes'=> '3.37', 'Locale::Codes::Country_Retired'=> '3.37', 'Locale::Codes::Currency'=> '3.37', 'Locale::Codes::Currency_Codes'=> '3.37', 'Locale::Codes::Currency_Retired'=> '3.37', 'Locale::Codes::LangExt'=> '3.37', 'Locale::Codes::LangExt_Codes'=> '3.37', 'Locale::Codes::LangExt_Retired'=> '3.37', 'Locale::Codes::LangFam'=> '3.37', 'Locale::Codes::LangFam_Codes'=> '3.37', 'Locale::Codes::LangFam_Retired'=> '3.37', 'Locale::Codes::LangVar'=> '3.37', 'Locale::Codes::LangVar_Codes'=> '3.37', 'Locale::Codes::LangVar_Retired'=> '3.37', 'Locale::Codes::Language'=> '3.37', 'Locale::Codes::Language_Codes'=> '3.37', 'Locale::Codes::Language_Retired'=> '3.37', 'Locale::Codes::Script' => '3.37', 'Locale::Codes::Script_Codes'=> '3.37', 'Locale::Codes::Script_Retired'=> '3.37', 'Locale::Country' => '3.37', 'Locale::Currency' => '3.37', 'Locale::Language' => '3.37', 'Locale::Script' => '3.37', 'Math::BigInt::FastCalc'=> '0.38', 'Module::CoreList' => '5.20151220', 'Module::CoreList::TieHashDelta'=> '5.20151220', 'Module::CoreList::Utils'=> '5.20151220', 'Module::Metadata' => '1.000031', 'Opcode' => '1.34', 'PerlIO::mmap' => '0.016', 'Pod::Perldoc' => '3.25_02', 'SDBM_File' => '1.14', 'Term::ANSIColor' => '4.04', 'Test' => '1.28', 'Unicode::Normalize' => '1.24', 'XS::APItest' => '0.77', 'base' => '2.23', 'encoding::warnings' => '0.12', 'fields' => '2.23', 'locale' => '1.08', 'strict' => '1.10', 'threads' => '2.05', 'threads::shared' => '1.50', 'utf8' => '1.18', }, removed => { } }, 5.023007 => { delta_from => 5.023006, changed => { 'App::Prove' => '3.36', 'App::Prove::State' => '3.36', 'App::Prove::State::Result'=> '3.36', 'App::Prove::State::Result::Test'=> '3.36', 'B' => '1.62', 'B::Deparse' => '1.37', 'B::Op_private' => '5.023007', 'Benchmark' => '1.22', 'Config' => '5.023007', 'Cwd' => '3.62', 'Data::Dumper' => '2.160', 'ExtUtils::ParseXS' => '3.31', 'ExtUtils::ParseXS::Constants'=> '3.31', 'ExtUtils::ParseXS::CountLines'=> '3.31', 'ExtUtils::ParseXS::Eval'=> '3.31', 'ExtUtils::ParseXS::Utilities'=> '3.31', 'ExtUtils::Typemaps' => '3.31', 'ExtUtils::Typemaps::Cmd'=> '3.31', 'ExtUtils::Typemaps::InputMap'=> '3.31', 'ExtUtils::Typemaps::OutputMap'=> '3.31', 'ExtUtils::Typemaps::Type'=> '3.31', 'File::Find' => '1.33', 'File::Spec' => '3.62', 'File::Spec::AmigaOS' => '3.62', 'File::Spec::Cygwin' => '3.62', 'File::Spec::Epoc' => '3.62', 'File::Spec::Functions' => '3.62', 'File::Spec::Mac' => '3.62', 'File::Spec::OS2' => '3.62', 'File::Spec::Unix' => '3.62', 'File::Spec::VMS' => '3.62', 'File::Spec::Win32' => '3.62', 'Math::BigFloat' => '1.999715', 'Math::BigFloat::Trace' => '0.42', 'Math::BigInt' => '1.999715', 'Math::BigInt::Calc' => '1.999715', 'Math::BigInt::CalcEmu' => '1.999715', 'Math::BigInt::FastCalc'=> '0.40', 'Math::BigInt::Trace' => '0.42', 'Math::BigRat' => '0.260802', 'Module::CoreList' => '5.20160120', 'Module::CoreList::TieHashDelta'=> '5.20160120', 'Module::CoreList::Utils'=> '5.20160120', 'Net::Cmd' => '3.08', 'Net::Config' => '3.08', 'Net::Domain' => '3.08', 'Net::FTP' => '3.08', 'Net::FTP::A' => '3.08', 'Net::FTP::E' => '3.08', 'Net::FTP::I' => '3.08', 'Net::FTP::L' => '3.08', 'Net::FTP::dataconn' => '3.08', 'Net::NNTP' => '3.08', 'Net::Netrc' => '3.08', 'Net::POP3' => '3.08', 'Net::SMTP' => '3.08', 'Net::Time' => '3.08', 'Pod::Man' => '4.04', 'Pod::ParseLink' => '4.04', 'Pod::Text' => '4.04', 'Pod::Text::Color' => '4.04', 'Pod::Text::Overstrike' => '4.04', 'Pod::Text::Termcap' => '4.04', 'Pod::Usage' => '1.68', 'TAP::Base' => '3.36', 'TAP::Formatter::Base' => '3.36', 'TAP::Formatter::Color' => '3.36', 'TAP::Formatter::Console'=> '3.36', 'TAP::Formatter::Console::ParallelSession'=> '3.36', 'TAP::Formatter::Console::Session'=> '3.36', 'TAP::Formatter::File' => '3.36', 'TAP::Formatter::File::Session'=> '3.36', 'TAP::Formatter::Session'=> '3.36', 'TAP::Harness' => '3.36', 'TAP::Harness::Env' => '3.36', 'TAP::Object' => '3.36', 'TAP::Parser' => '3.36', 'TAP::Parser::Aggregator'=> '3.36', 'TAP::Parser::Grammar' => '3.36', 'TAP::Parser::Iterator' => '3.36', 'TAP::Parser::Iterator::Array'=> '3.36', 'TAP::Parser::Iterator::Process'=> '3.36', 'TAP::Parser::Iterator::Stream'=> '3.36', 'TAP::Parser::IteratorFactory'=> '3.36', 'TAP::Parser::Multiplexer'=> '3.36', 'TAP::Parser::Result' => '3.36', 'TAP::Parser::Result::Bailout'=> '3.36', 'TAP::Parser::Result::Comment'=> '3.36', 'TAP::Parser::Result::Plan'=> '3.36', 'TAP::Parser::Result::Pragma'=> '3.36', 'TAP::Parser::Result::Test'=> '3.36', 'TAP::Parser::Result::Unknown'=> '3.36', 'TAP::Parser::Result::Version'=> '3.36', 'TAP::Parser::Result::YAML'=> '3.36', 'TAP::Parser::ResultFactory'=> '3.36', 'TAP::Parser::Scheduler'=> '3.36', 'TAP::Parser::Scheduler::Job'=> '3.36', 'TAP::Parser::Scheduler::Spinner'=> '3.36', 'TAP::Parser::Source' => '3.36', 'TAP::Parser::SourceHandler'=> '3.36', 'TAP::Parser::SourceHandler::Executable'=> '3.36', 'TAP::Parser::SourceHandler::File'=> '3.36', 'TAP::Parser::SourceHandler::Handle'=> '3.36', 'TAP::Parser::SourceHandler::Perl'=> '3.36', 'TAP::Parser::SourceHandler::RawTAP'=> '3.36', 'TAP::Parser::YAMLish::Reader'=> '3.36', 'TAP::Parser::YAMLish::Writer'=> '3.36', 'Test::Harness' => '3.36', 'Unicode::Normalize' => '1.25', 'Unicode::UCD' => '0.64', 'XS::APItest' => '0.78', 'bigint' => '0.42', 'bignum' => '0.42', 'bigrat' => '0.42', 'utf8' => '1.19', }, removed => { } }, 5.023008 => { delta_from => 5.023007, changed => { 'B::Op_private' => '5.023008', 'Config' => '5.023008', 'Cwd' => '3.63', 'DynaLoader' => '1.38', 'Encode' => '2.80', 'Encode::Alias' => '2.20', 'Encode::MIME::Header' => '2.19', 'Encode::Unicode' => '2.15', 'ExtUtils::CBuilder' => '0.280225', 'ExtUtils::CBuilder::Base'=> '0.280225', 'ExtUtils::CBuilder::Platform::Unix'=> '0.280225', 'ExtUtils::CBuilder::Platform::VMS'=> '0.280225', 'ExtUtils::CBuilder::Platform::Windows'=> '0.280225', 'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280225', 'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280225', 'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280225', 'ExtUtils::CBuilder::Platform::aix'=> '0.280225', 'ExtUtils::CBuilder::Platform::android'=> '0.280225', 'ExtUtils::CBuilder::Platform::cygwin'=> '0.280225', 'ExtUtils::CBuilder::Platform::darwin'=> '0.280225', 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280225', 'ExtUtils::CBuilder::Platform::os2'=> '0.280225', 'ExtUtils::Command::MM' => '7.10_01', 'ExtUtils::Liblist' => '7.10_01', 'ExtUtils::Liblist::Kid'=> '7.10_01', 'ExtUtils::MM' => '7.10_01', 'ExtUtils::MM_AIX' => '7.10_01', 'ExtUtils::MM_Any' => '7.10_01', 'ExtUtils::MM_BeOS' => '7.10_01', 'ExtUtils::MM_Cygwin' => '7.10_01', 'ExtUtils::MM_DOS' => '7.10_01', 'ExtUtils::MM_Darwin' => '7.10_01', 'ExtUtils::MM_MacOS' => '7.10_01', 'ExtUtils::MM_NW5' => '7.10_01', 'ExtUtils::MM_OS2' => '7.10_01', 'ExtUtils::MM_QNX' => '7.10_01', 'ExtUtils::MM_UWIN' => '7.10_01', 'ExtUtils::MM_Unix' => '7.10_01', 'ExtUtils::MM_VMS' => '7.10_01', 'ExtUtils::MM_VOS' => '7.10_01', 'ExtUtils::MM_Win32' => '7.10_01', 'ExtUtils::MM_Win95' => '7.10_01', 'ExtUtils::MY' => '7.10_01', 'ExtUtils::MakeMaker' => '7.10_01', 'ExtUtils::MakeMaker::Config'=> '7.10_01', 'ExtUtils::MakeMaker::version'=> '7.10_01', 'ExtUtils::MakeMaker::version::regex'=> '7.10_01', 'ExtUtils::Mkbootstrap' => '7.10_01', 'ExtUtils::Mksymlists' => '7.10_01', 'ExtUtils::testlib' => '7.10_01', 'File::Spec' => '3.63', 'File::Spec::AmigaOS' => '3.63', 'File::Spec::Cygwin' => '3.63', 'File::Spec::Epoc' => '3.63', 'File::Spec::Functions' => '3.63', 'File::Spec::Mac' => '3.63', 'File::Spec::OS2' => '3.63', 'File::Spec::Unix' => '3.63', 'File::Spec::VMS' => '3.63', 'File::Spec::Win32' => '3.63', 'IPC::Msg' => '2.05', 'IPC::Semaphore' => '2.05', 'IPC::SharedMem' => '2.05', 'IPC::SysV' => '2.05', 'Module::CoreList' => '5.20160121', 'Module::CoreList::TieHashDelta'=> '5.20160121', 'Module::CoreList::Utils'=> '5.20160121', 'ODBM_File' => '1.13', 'POSIX' => '1.63', 'PerlIO::encoding' => '0.24', 'Pod::Man' => '4.06', 'Pod::ParseLink' => '4.06', 'Pod::Text' => '4.06', 'Pod::Text::Color' => '4.06', 'Pod::Text::Overstrike' => '4.06', 'Pod::Text::Termcap' => '4.06', 'Storable' => '2.55', 'Time::HiRes' => '1.9730', 'XS::APItest' => '0.79', }, removed => { } }, 5.023009 => { delta_from => 5.023008, changed => { 'Amiga::ARexx' => '0.04', 'Amiga::Exec' => '0.02', 'B::Op_private' => '5.023009', 'Carp' => '1.40', 'Carp::Heavy' => '1.40', 'Config' => '5.023009', 'Errno' => '1.25', 'ExtUtils::Embed' => '1.33', 'File::Find' => '1.34', 'File::Glob' => '1.26', 'File::Spec::AmigaOS' => ';.64', 'IPC::Msg' => '2.06_01', 'IPC::Semaphore' => '2.06_01', 'IPC::SharedMem' => '2.06_01', 'IPC::SysV' => '2.06_01', 'List::Util' => '1.42_02', 'List::Util::XS' => '1.42_02', 'Module::CoreList' => '5.20160320', 'Module::CoreList::TieHashDelta'=> '5.20160320', 'Module::CoreList::Utils'=> '5.20160320', 'POSIX' => '1.64', 'Pod::Functions' => '1.10', 'Pod::Functions::Functions'=> '1.10', 'Scalar::Util' => '1.42_02', 'SelfLoader' => '1.23', 'Socket' => '2.020_03', 'Storable' => '2.56', 'Sub::Util' => '1.42_02', 'Thread::Queue' => '3.08', 'Tie::File' => '1.02', 'Time::HiRes' => '1.9732', 'Win32API::File' => '0.1203', 'XS::APItest' => '0.80', 'autouse' => '1.11', 'bytes' => '1.05', 'strict' => '1.11', 'threads' => '2.06', 'version' => '0.9916', 'version::regex' => '0.9916', 'warnings' => '1.36', }, removed => { 'Win32API::File::ExtUtils::Myconst2perl'=> 1, } }, 5.022002 => { delta_from => 5.022001, changed => { 'B::Op_private' => '5.022002', 'Config' => '5.022002', 'Cwd' => '3.56_01', 'File::Spec' => '3.56_01', 'File::Spec::Cygwin' => '3.56_01', 'File::Spec::Epoc' => '3.56_01', 'File::Spec::Functions' => '3.56_01', 'File::Spec::Mac' => '3.56_01', 'File::Spec::OS2' => '3.56_01', 'File::Spec::Unix' => '3.56_01', 'File::Spec::VMS' => '3.56_01', 'File::Spec::Win32' => '3.56_01', 'Module::CoreList' => '5.20160429', 'Module::CoreList::TieHashDelta'=> '5.20160429', 'Module::CoreList::Utils'=> '5.20160429', 'XS::APItest' => '0.72_01', }, removed => { } }, 5.024000 => { delta_from => 5.023009, changed => { 'B::Op_private' => '5.024000', 'Config' => '5.024', 'File::Copy' => '2.31', 'File::Path' => '2.12_01', 'File::Spec::AmigaOS' => '3.64', 'IO::Handle' => '1.36', 'Module::CoreList' => '5.20160506', 'Module::CoreList::TieHashDelta'=> '5.20160506', 'Module::CoreList::Utils'=> '5.20160506', 'ODBM_File' => '1.14', 'POSIX' => '1.65', 'Pod::Man' => '4.07', 'Pod::ParseLink' => '4.07', 'Pod::Text' => '4.07', 'Pod::Text::Color' => '4.07', 'Pod::Text::Overstrike' => '4.07', 'Pod::Text::Termcap' => '4.07', 'Thread::Queue' => '3.09', 'Time::HiRes' => '1.9733', 'threads' => '2.07', 'threads::shared' => '1.51', 'locale' => '1.09', }, removed => { } }, 5.025000 => { delta_from => 5.024, changed => { 'B::Op_private' => '5.025000', 'Config' => '5.025', 'Module::CoreList' => '5.20160507', 'Module::CoreList::TieHashDelta'=> '5.20160507', 'Module::CoreList::Utils'=> '5.20160507', 'feature' => '1.43', }, removed => { } }, 5.025001 => { delta_from => 5.025, changed => { 'Archive::Tar' => '2.08', 'Archive::Tar::Constant'=> '2.08', 'Archive::Tar::File' => '2.08', 'B::Op_private' => '5.025001', 'Carp' => '1.41', 'Carp::Heavy' => '1.41', 'Config' => '5.025001', 'Config::Perl::V' => '0.26', 'DB_File' => '1.838', 'Digest::MD5' => '2.55', 'IPC::Cmd' => '0.94', 'IPC::Msg' => '2.07', 'IPC::Semaphore' => '2.07', 'IPC::SharedMem' => '2.07', 'IPC::SysV' => '2.07', 'List::Util' => '1.45_01', 'List::Util::XS' => '1.45_01', 'Locale::Codes' => '3.38', 'Locale::Codes::Constants'=> '3.38', 'Locale::Codes::Country'=> '3.38', 'Locale::Codes::Country_Codes'=> '3.38', 'Locale::Codes::Country_Retired'=> '3.38', 'Locale::Codes::Currency'=> '3.38', 'Locale::Codes::Currency_Codes'=> '3.38', 'Locale::Codes::Currency_Retired'=> '3.38', 'Locale::Codes::LangExt'=> '3.38', 'Locale::Codes::LangExt_Codes'=> '3.38', 'Locale::Codes::LangExt_Retired'=> '3.38', 'Locale::Codes::LangFam'=> '3.38', 'Locale::Codes::LangFam_Codes'=> '3.38', 'Locale::Codes::LangFam_Retired'=> '3.38', 'Locale::Codes::LangVar'=> '3.38', 'Locale::Codes::LangVar_Codes'=> '3.38', 'Locale::Codes::LangVar_Retired'=> '3.38', 'Locale::Codes::Language'=> '3.38', 'Locale::Codes::Language_Codes'=> '3.38', 'Locale::Codes::Language_Retired'=> '3.38', 'Locale::Codes::Script' => '3.38', 'Locale::Codes::Script_Codes'=> '3.38', 'Locale::Codes::Script_Retired'=> '3.38', 'Locale::Country' => '3.38', 'Locale::Currency' => '3.38', 'Locale::Language' => '3.38', 'Locale::Maketext' => '1.27', 'Locale::Script' => '3.38', 'Module::CoreList' => '5.20160520', 'Module::CoreList::TieHashDelta'=> '5.20160520', 'Module::CoreList::Utils'=> '5.20160520', 'Module::Metadata' => '1.000032', 'POSIX' => '1.69', 'Scalar::Util' => '1.45_01', 'Sub::Util' => '1.45_01', 'Sys::Syslog' => '0.34', 'Term::ANSIColor' => '4.05', 'Test2' => '1.302015', 'Test2::API' => '1.302015', 'Test2::API::Breakage' => '1.302015', 'Test2::API::Context' => '1.302015', 'Test2::API::Instance' => '1.302015', 'Test2::API::Stack' => '1.302015', 'Test2::Event' => '1.302015', 'Test2::Event::Bail' => '1.302015', 'Test2::Event::Diag' => '1.302015', 'Test2::Event::Exception'=> '1.302015', 'Test2::Event::Note' => '1.302015', 'Test2::Event::Ok' => '1.302015', 'Test2::Event::Plan' => '1.302015', 'Test2::Event::Skip' => '1.302015', 'Test2::Event::Subtest' => '1.302015', 'Test2::Event::Waiting' => '1.302015', 'Test2::Formatter' => '1.302015', 'Test2::Formatter::TAP' => '1.302015', 'Test2::Hub' => '1.302015', 'Test2::Hub::Interceptor'=> '1.302015', 'Test2::Hub::Interceptor::Terminator'=> '1.302015', 'Test2::Hub::Subtest' => '1.302015', 'Test2::IPC' => '1.302015', 'Test2::IPC::Driver' => '1.302015', 'Test2::IPC::Driver::Files'=> '1.302015', 'Test2::Util' => '1.302015', 'Test2::Util::ExternalMeta'=> '1.302015', 'Test2::Util::HashBase' => '1.302015', 'Test2::Util::Trace' => '1.302015', 'Test::Builder' => '1.302015', 'Test::Builder::Formatter'=> '1.302015', 'Test::Builder::Module' => '1.302015', 'Test::Builder::Tester' => '1.302015', 'Test::Builder::Tester::Color'=> '1.302015', 'Test::Builder::TodoDiag'=> '1.302015', 'Test::More' => '1.302015', 'Test::Simple' => '1.302015', 'Test::Tester' => '1.302015', 'Test::Tester::Capture' => '1.302015', 'Test::Tester::CaptureRunner'=> '1.302015', 'Test::Tester::Delegate'=> '1.302015', 'Test::use::ok' => '1.302015', 'XS::APItest' => '0.81', '_charnames' => '1.44', 'charnames' => '1.44', 'ok' => '1.302015', 'perlfaq' => '5.021011', 're' => '0.33', 'threads' => '2.08', 'threads::shared' => '1.52', }, removed => { } }, 5.025002 => { delta_from => 5.025001, changed => { 'App::Cpan' => '1.64', 'B::Op_private' => '5.025002', 'CPAN' => '2.14', 'CPAN::Distribution' => '2.12', 'CPAN::FTP' => '5.5007', 'CPAN::FirstTime' => '5.5309', 'CPAN::HandleConfig' => '5.5007', 'CPAN::Index' => '2.12', 'CPAN::Mirrors' => '2.12', 'CPAN::Plugin' => '0.96', 'CPAN::Shell' => '5.5006', 'Config' => '5.025002', 'Cwd' => '3.64', 'Devel::Peek' => '1.24', 'DynaLoader' => '1.39', 'ExtUtils::Command' => '7.18', 'ExtUtils::Command::MM' => '7.18', 'ExtUtils::Liblist' => '7.18', 'ExtUtils::Liblist::Kid'=> '7.18', 'ExtUtils::MM' => '7.18', 'ExtUtils::MM_AIX' => '7.18', 'ExtUtils::MM_Any' => '7.18', 'ExtUtils::MM_BeOS' => '7.18', 'ExtUtils::MM_Cygwin' => '7.18', 'ExtUtils::MM_DOS' => '7.18', 'ExtUtils::MM_Darwin' => '7.18', 'ExtUtils::MM_MacOS' => '7.18', 'ExtUtils::MM_NW5' => '7.18', 'ExtUtils::MM_OS2' => '7.18', 'ExtUtils::MM_QNX' => '7.18', 'ExtUtils::MM_UWIN' => '7.18', 'ExtUtils::MM_Unix' => '7.18', 'ExtUtils::MM_VMS' => '7.18', 'ExtUtils::MM_VOS' => '7.18', 'ExtUtils::MM_Win32' => '7.18', 'ExtUtils::MM_Win95' => '7.18', 'ExtUtils::MY' => '7.18', 'ExtUtils::MakeMaker' => '7.18', 'ExtUtils::MakeMaker::Config'=> '7.18', 'ExtUtils::MakeMaker::Locale'=> '7.18', 'ExtUtils::MakeMaker::version'=> '7.18', 'ExtUtils::MakeMaker::version::regex'=> '7.18', 'ExtUtils::Miniperl' => '1.06', 'ExtUtils::Mkbootstrap' => '7.18', 'ExtUtils::Mksymlists' => '7.18', 'ExtUtils::ParseXS' => '3.32', 'ExtUtils::ParseXS::Constants'=> '3.32', 'ExtUtils::ParseXS::CountLines'=> '3.32', 'ExtUtils::ParseXS::Eval'=> '3.32', 'ExtUtils::ParseXS::Utilities'=> '3.32', 'ExtUtils::Typemaps' => '3.32', 'ExtUtils::Typemaps::Cmd'=> '3.32', 'ExtUtils::Typemaps::InputMap'=> '3.32', 'ExtUtils::Typemaps::OutputMap'=> '3.32', 'ExtUtils::Typemaps::Type'=> '3.32', 'ExtUtils::testlib' => '7.18', 'File::Copy' => '2.32', 'File::Glob' => '1.27', 'File::Spec' => '3.64', 'File::Spec::Cygwin' => '3.64', 'File::Spec::Epoc' => '3.64', 'File::Spec::Functions' => '3.64', 'File::Spec::Mac' => '3.64', 'File::Spec::OS2' => '3.64', 'File::Spec::Unix' => '3.64', 'File::Spec::VMS' => '3.64', 'File::Spec::Win32' => '3.64', 'FileHandle' => '2.03', 'Getopt::Long' => '2.49', 'HTTP::Tiny' => '0.058', 'JSON::PP' => '2.27400', 'Locale::Codes' => '3.39', 'Locale::Codes::Constants'=> '3.39', 'Locale::Codes::Country'=> '3.39', 'Locale::Codes::Country_Codes'=> '3.39', 'Locale::Codes::Country_Retired'=> '3.39', 'Locale::Codes::Currency'=> '3.39', 'Locale::Codes::Currency_Codes'=> '3.39', 'Locale::Codes::Currency_Retired'=> '3.39', 'Locale::Codes::LangExt'=> '3.39', 'Locale::Codes::LangExt_Codes'=> '3.39', 'Locale::Codes::LangExt_Retired'=> '3.39', 'Locale::Codes::LangFam'=> '3.39', 'Locale::Codes::LangFam_Codes'=> '3.39', 'Locale::Codes::LangFam_Retired'=> '3.39', 'Locale::Codes::LangVar'=> '3.39', 'Locale::Codes::LangVar_Codes'=> '3.39', 'Locale::Codes::LangVar_Retired'=> '3.39', 'Locale::Codes::Language'=> '3.39', 'Locale::Codes::Language_Codes'=> '3.39', 'Locale::Codes::Language_Retired'=> '3.39', 'Locale::Codes::Script' => '3.39', 'Locale::Codes::Script_Codes'=> '3.39', 'Locale::Codes::Script_Retired'=> '3.39', 'Locale::Country' => '3.39', 'Locale::Currency' => '3.39', 'Locale::Language' => '3.39', 'Locale::Script' => '3.39', 'Module::CoreList' => '5.20160620', 'Module::CoreList::TieHashDelta'=> '5.20160620', 'Module::CoreList::Utils'=> '5.20160620', 'Opcode' => '1.35', 'POSIX' => '1.70', 'Pod::Checker' => '1.73', 'Pod::Functions' => '1.11', 'Pod::Functions::Functions'=> '1.11', 'Pod::Usage' => '1.69', 'Test2' => '1.302026', 'Test2::API' => '1.302026', 'Test2::API::Breakage' => '1.302026', 'Test2::API::Context' => '1.302026', 'Test2::API::Instance' => '1.302026', 'Test2::API::Stack' => '1.302026', 'Test2::Event' => '1.302026', 'Test2::Event::Bail' => '1.302026', 'Test2::Event::Diag' => '1.302026', 'Test2::Event::Exception'=> '1.302026', 'Test2::Event::Generic' => '1.302026', 'Test2::Event::Note' => '1.302026', 'Test2::Event::Ok' => '1.302026', 'Test2::Event::Plan' => '1.302026', 'Test2::Event::Skip' => '1.302026', 'Test2::Event::Subtest' => '1.302026', 'Test2::Event::Waiting' => '1.302026', 'Test2::Formatter' => '1.302026', 'Test2::Formatter::TAP' => '1.302026', 'Test2::Hub' => '1.302026', 'Test2::Hub::Interceptor'=> '1.302026', 'Test2::Hub::Interceptor::Terminator'=> '1.302026', 'Test2::Hub::Subtest' => '1.302026', 'Test2::IPC' => '1.302026', 'Test2::IPC::Driver' => '1.302026', 'Test2::IPC::Driver::Files'=> '1.302026', 'Test2::Util' => '1.302026', 'Test2::Util::ExternalMeta'=> '1.302026', 'Test2::Util::HashBase' => '1.302026', 'Test2::Util::Trace' => '1.302026', 'Test::Builder' => '1.302026', 'Test::Builder::Formatter'=> '1.302026', 'Test::Builder::Module' => '1.302026', 'Test::Builder::Tester' => '1.302026', 'Test::Builder::Tester::Color'=> '1.302026', 'Test::Builder::TodoDiag'=> '1.302026', 'Test::More' => '1.302026', 'Test::Simple' => '1.302026', 'Test::Tester' => '1.302026', 'Test::Tester::Capture' => '1.302026', 'Test::Tester::CaptureRunner'=> '1.302026', 'Test::Tester::Delegate'=> '1.302026', 'Test::use::ok' => '1.302026', 'Thread::Queue' => '3.11', 'Time::HiRes' => '1.9734', 'Unicode::UCD' => '0.65', 'VMS::DCLsym' => '1.07', 'XS::APItest' => '0.82', 'diagnostics' => '1.35', 'feature' => '1.44', 'ok' => '1.302026', 'threads' => '2.09', }, removed => { } }, 5.025003 => { delta_from => 5.025002, changed => { 'B::Op_private' => '5.025003', 'Config' => '5.025003', 'Data::Dumper' => '2.161', 'Devel::PPPort' => '3.35', 'Encode' => '2.84', 'Encode::MIME::Header' => '2.23', 'Encode::MIME::Header::ISO_2022_JP'=> '1.07', 'ExtUtils::ParseXS' => '3.33', 'ExtUtils::ParseXS::Constants'=> '3.33', 'ExtUtils::ParseXS::CountLines'=> '3.33', 'ExtUtils::ParseXS::Eval'=> '3.33', 'ExtUtils::ParseXS::Utilities'=> '3.33', 'ExtUtils::Typemaps' => '3.33', 'ExtUtils::Typemaps::Cmd'=> '3.33', 'ExtUtils::Typemaps::InputMap'=> '3.33', 'ExtUtils::Typemaps::OutputMap'=> '3.33', 'ExtUtils::Typemaps::Type'=> '3.33', 'Hash::Util' => '0.20', 'Math::BigFloat' => '1.999726', 'Math::BigFloat::Trace' => '0.43', 'Math::BigInt' => '1.999726', 'Math::BigInt::Calc' => '1.999726', 'Math::BigInt::CalcEmu' => '1.999726', 'Math::BigInt::FastCalc'=> '0.42', 'Math::BigInt::Trace' => '0.43', 'Math::BigRat' => '0.260804', 'Module::CoreList' => '5.20160720', 'Module::CoreList::TieHashDelta'=> '5.20160720', 'Module::CoreList::Utils'=> '5.20160720', 'Net::Cmd' => '3.09', 'Net::Config' => '3.09', 'Net::Domain' => '3.09', 'Net::FTP' => '3.09', 'Net::FTP::A' => '3.09', 'Net::FTP::E' => '3.09', 'Net::FTP::I' => '3.09', 'Net::FTP::L' => '3.09', 'Net::FTP::dataconn' => '3.09', 'Net::NNTP' => '3.09', 'Net::Netrc' => '3.09', 'Net::POP3' => '3.09', 'Net::SMTP' => '3.09', 'Net::Time' => '3.09', 'Parse::CPAN::Meta' => '1.4422', 'Perl::OSType' => '1.010', 'Test2' => '1.302045', 'Test2::API' => '1.302045', 'Test2::API::Breakage' => '1.302045', 'Test2::API::Context' => '1.302045', 'Test2::API::Instance' => '1.302045', 'Test2::API::Stack' => '1.302045', 'Test2::Event' => '1.302045', 'Test2::Event::Bail' => '1.302045', 'Test2::Event::Diag' => '1.302045', 'Test2::Event::Exception'=> '1.302045', 'Test2::Event::Generic' => '1.302045', 'Test2::Event::Info' => '1.302045', 'Test2::Event::Note' => '1.302045', 'Test2::Event::Ok' => '1.302045', 'Test2::Event::Plan' => '1.302045', 'Test2::Event::Skip' => '1.302045', 'Test2::Event::Subtest' => '1.302045', 'Test2::Event::Waiting' => '1.302045', 'Test2::Formatter' => '1.302045', 'Test2::Formatter::TAP' => '1.302045', 'Test2::Hub' => '1.302045', 'Test2::Hub::Interceptor'=> '1.302045', 'Test2::Hub::Interceptor::Terminator'=> '1.302045', 'Test2::Hub::Subtest' => '1.302045', 'Test2::IPC' => '1.302045', 'Test2::IPC::Driver' => '1.302045', 'Test2::IPC::Driver::Files'=> '1.302045', 'Test2::Util' => '1.302045', 'Test2::Util::ExternalMeta'=> '1.302045', 'Test2::Util::HashBase' => '1.302045', 'Test2::Util::Trace' => '1.302045', 'Test::Builder' => '1.302045', 'Test::Builder::Formatter'=> '1.302045', 'Test::Builder::Module' => '1.302045', 'Test::Builder::Tester' => '1.302045', 'Test::Builder::Tester::Color'=> '1.302045', 'Test::Builder::TodoDiag'=> '1.302045', 'Test::More' => '1.302045', 'Test::Simple' => '1.302045', 'Test::Tester' => '1.302045', 'Test::Tester::Capture' => '1.302045', 'Test::Tester::CaptureRunner'=> '1.302045', 'Test::Tester::Delegate'=> '1.302045', 'Test::use::ok' => '1.302045', 'Time::HiRes' => '1.9739', 'Unicode' => '9.0.0', 'Unicode::UCD' => '0.66', 'XSLoader' => '0.22', 'bigint' => '0.43', 'bignum' => '0.43', 'bigrat' => '0.43', 'encoding' => '2.17_01', 'encoding::warnings' => '0.13', 'feature' => '1.45', 'ok' => '1.302045', 'version' => '0.9917', 'version::regex' => '0.9917', 'warnings' => '1.37', }, removed => { } }, 5.025004 => { delta_from => 5.025003, changed => { 'App::Cpan' => '1.64_01', 'App::Prove' => '3.36_01', 'App::Prove::State' => '3.36_01', 'App::Prove::State::Result'=> '3.36_01', 'App::Prove::State::Result::Test'=> '3.36_01', 'Archive::Tar' => '2.10', 'Archive::Tar::Constant'=> '2.10', 'Archive::Tar::File' => '2.10', 'B' => '1.63', 'B::Concise' => '0.998', 'B::Deparse' => '1.38', 'B::Op_private' => '5.025004', 'CPAN' => '2.14_01', 'CPAN::Meta' => '2.150010', 'CPAN::Meta::Converter' => '2.150010', 'CPAN::Meta::Feature' => '2.150010', 'CPAN::Meta::History' => '2.150010', 'CPAN::Meta::Merge' => '2.150010', 'CPAN::Meta::Prereqs' => '2.150010', 'CPAN::Meta::Spec' => '2.150010', 'CPAN::Meta::Validator' => '2.150010', 'Carp' => '1.42', 'Carp::Heavy' => '1.42', 'Compress::Zlib' => '2.069_01', 'Config' => '5.025004', 'Config::Perl::V' => '0.27', 'Cwd' => '3.65', 'Digest' => '1.17_01', 'Digest::SHA' => '5.96', 'Encode' => '2.86', 'Errno' => '1.26', 'ExtUtils::Command' => '7.24', 'ExtUtils::Command::MM' => '7.24', 'ExtUtils::Liblist' => '7.24', 'ExtUtils::Liblist::Kid'=> '7.24', 'ExtUtils::MM' => '7.24', 'ExtUtils::MM_AIX' => '7.24', 'ExtUtils::MM_Any' => '7.24', 'ExtUtils::MM_BeOS' => '7.24', 'ExtUtils::MM_Cygwin' => '7.24', 'ExtUtils::MM_DOS' => '7.24', 'ExtUtils::MM_Darwin' => '7.24', 'ExtUtils::MM_MacOS' => '7.24', 'ExtUtils::MM_NW5' => '7.24', 'ExtUtils::MM_OS2' => '7.24', 'ExtUtils::MM_QNX' => '7.24', 'ExtUtils::MM_UWIN' => '7.24', 'ExtUtils::MM_Unix' => '7.24', 'ExtUtils::MM_VMS' => '7.24', 'ExtUtils::MM_VOS' => '7.24', 'ExtUtils::MM_Win32' => '7.24', 'ExtUtils::MM_Win95' => '7.24', 'ExtUtils::MY' => '7.24', 'ExtUtils::MakeMaker' => '7.24', 'ExtUtils::MakeMaker::Config'=> '7.24', 'ExtUtils::MakeMaker::Locale'=> '7.24', 'ExtUtils::MakeMaker::version'=> '7.24', 'ExtUtils::MakeMaker::version::regex'=> '7.24', 'ExtUtils::Mkbootstrap' => '7.24', 'ExtUtils::Mksymlists' => '7.24', 'ExtUtils::testlib' => '7.24', 'File::Fetch' => '0.52', 'File::Spec' => '3.65', 'File::Spec::AmigaOS' => '3.65', 'File::Spec::Cygwin' => '3.65', 'File::Spec::Epoc' => '3.65', 'File::Spec::Functions' => '3.65', 'File::Spec::Mac' => '3.65', 'File::Spec::OS2' => '3.65', 'File::Spec::Unix' => '3.65', 'File::Spec::VMS' => '3.65', 'File::Spec::Win32' => '3.65', 'HTTP::Tiny' => '0.064', 'Hash::Util' => '0.21', 'I18N::LangTags' => '0.41', 'I18N::LangTags::Detect'=> '1.06', 'IO' => '1.37', 'IO::Compress::Adapter::Bzip2'=> '2.069_01', 'IO::Compress::Adapter::Deflate'=> '2.069_01', 'IO::Compress::Adapter::Identity'=> '2.069_01', 'IO::Compress::Base' => '2.069_01', 'IO::Compress::Base::Common'=> '2.069_01', 'IO::Compress::Bzip2' => '2.069_01', 'IO::Compress::Deflate' => '2.069_01', 'IO::Compress::Gzip' => '2.069_01', 'IO::Compress::Gzip::Constants'=> '2.069_01', 'IO::Compress::RawDeflate'=> '2.069_01', 'IO::Compress::Zip' => '2.069_01', 'IO::Compress::Zip::Constants'=> '2.069_01', 'IO::Compress::Zlib::Constants'=> '2.069_01', 'IO::Compress::Zlib::Extra'=> '2.069_01', 'IO::Socket::IP' => '0.38', 'IO::Uncompress::Adapter::Bunzip2'=> '2.069_01', 'IO::Uncompress::Adapter::Identity'=> '2.069_01', 'IO::Uncompress::Adapter::Inflate'=> '2.069_01', 'IO::Uncompress::AnyInflate'=> '2.069_01', 'IO::Uncompress::AnyUncompress'=> '2.069_01', 'IO::Uncompress::Base' => '2.069_01', 'IO::Uncompress::Bunzip2'=> '2.069_01', 'IO::Uncompress::Gunzip'=> '2.069_01', 'IO::Uncompress::Inflate'=> '2.069_01', 'IO::Uncompress::RawInflate'=> '2.069_01', 'IO::Uncompress::Unzip' => '2.069_01', 'IPC::Cmd' => '0.96', 'JSON::PP' => '2.27400_01', 'Locale::Maketext' => '1.28', 'Locale::Maketext::Simple'=> '0.21_01', 'Math::BigFloat::Trace' => '0.43_01', 'Math::BigInt::Trace' => '0.43_01', 'Memoize' => '1.03_01', 'Module::CoreList' => '5.20160820', 'Module::CoreList::TieHashDelta'=> '5.20160820', 'Module::CoreList::Utils'=> '5.20160820', 'Module::Load::Conditional'=> '0.68', 'Module::Metadata' => '1.000033', 'NEXT' => '0.67', 'Net::Cmd' => '3.10', 'Net::Config' => '3.10', 'Net::Domain' => '3.10', 'Net::FTP' => '3.10', 'Net::FTP::A' => '3.10', 'Net::FTP::E' => '3.10', 'Net::FTP::I' => '3.10', 'Net::FTP::L' => '3.10', 'Net::FTP::dataconn' => '3.10', 'Net::NNTP' => '3.10', 'Net::Netrc' => '3.10', 'Net::POP3' => '3.10', 'Net::Ping' => '2.44', 'Net::SMTP' => '3.10', 'Net::Time' => '3.10', 'Opcode' => '1.37', 'POSIX' => '1.71', 'Parse::CPAN::Meta' => '2.150010', 'Pod::Html' => '1.2201', 'Pod::Perldoc' => '3.27', 'Pod::Perldoc::BaseTo' => '3.27', 'Pod::Perldoc::GetOptsOO'=> '3.27', 'Pod::Perldoc::ToANSI' => '3.27', 'Pod::Perldoc::ToChecker'=> '3.27', 'Pod::Perldoc::ToMan' => '3.27', 'Pod::Perldoc::ToNroff' => '3.27', 'Pod::Perldoc::ToPod' => '3.27', 'Pod::Perldoc::ToRtf' => '3.27', 'Pod::Perldoc::ToTerm' => '3.27', 'Pod::Perldoc::ToText' => '3.27', 'Pod::Perldoc::ToTk' => '3.27', 'Pod::Perldoc::ToXml' => '3.27', 'Storable' => '2.57', 'Sys::Syslog' => '0.34_01', 'TAP::Base' => '3.36_01', 'TAP::Formatter::Base' => '3.36_01', 'TAP::Formatter::Color' => '3.36_01', 'TAP::Formatter::Console'=> '3.36_01', 'TAP::Formatter::Console::ParallelSession'=> '3.36_01', 'TAP::Formatter::Console::Session'=> '3.36_01', 'TAP::Formatter::File' => '3.36_01', 'TAP::Formatter::File::Session'=> '3.36_01', 'TAP::Formatter::Session'=> '3.36_01', 'TAP::Harness' => '3.36_01', 'TAP::Harness::Env' => '3.36_01', 'TAP::Object' => '3.36_01', 'TAP::Parser' => '3.36_01', 'TAP::Parser::Aggregator'=> '3.36_01', 'TAP::Parser::Grammar' => '3.36_01', 'TAP::Parser::Iterator' => '3.36_01', 'TAP::Parser::Iterator::Array'=> '3.36_01', 'TAP::Parser::Iterator::Process'=> '3.36_01', 'TAP::Parser::Iterator::Stream'=> '3.36_01', 'TAP::Parser::IteratorFactory'=> '3.36_01', 'TAP::Parser::Multiplexer'=> '3.36_01', 'TAP::Parser::Result' => '3.36_01', 'TAP::Parser::Result::Bailout'=> '3.36_01', 'TAP::Parser::Result::Comment'=> '3.36_01', 'TAP::Parser::Result::Plan'=> '3.36_01', 'TAP::Parser::Result::Pragma'=> '3.36_01', 'TAP::Parser::Result::Test'=> '3.36_01', 'TAP::Parser::Result::Unknown'=> '3.36_01', 'TAP::Parser::Result::Version'=> '3.36_01', 'TAP::Parser::Result::YAML'=> '3.36_01', 'TAP::Parser::ResultFactory'=> '3.36_01', 'TAP::Parser::Scheduler'=> '3.36_01', 'TAP::Parser::Scheduler::Job'=> '3.36_01', 'TAP::Parser::Scheduler::Spinner'=> '3.36_01', 'TAP::Parser::Source' => '3.36_01', 'TAP::Parser::SourceHandler'=> '3.36_01', 'TAP::Parser::SourceHandler::Executable'=> '3.36_01', 'TAP::Parser::SourceHandler::File'=> '3.36_01', 'TAP::Parser::SourceHandler::Handle'=> '3.36_01', 'TAP::Parser::SourceHandler::Perl'=> '3.36_01', 'TAP::Parser::SourceHandler::RawTAP'=> '3.36_01', 'TAP::Parser::YAMLish::Reader'=> '3.36_01', 'TAP::Parser::YAMLish::Writer'=> '3.36_01', 'Test' => '1.29', 'Test2' => '1.302052', 'Test2::API' => '1.302052', 'Test2::API::Breakage' => '1.302052', 'Test2::API::Context' => '1.302052', 'Test2::API::Instance' => '1.302052', 'Test2::API::Stack' => '1.302052', 'Test2::Event' => '1.302052', 'Test2::Event::Bail' => '1.302052', 'Test2::Event::Diag' => '1.302052', 'Test2::Event::Exception'=> '1.302052', 'Test2::Event::Generic' => '1.302052', 'Test2::Event::Info' => '1.302052', 'Test2::Event::Note' => '1.302052', 'Test2::Event::Ok' => '1.302052', 'Test2::Event::Plan' => '1.302052', 'Test2::Event::Skip' => '1.302052', 'Test2::Event::Subtest' => '1.302052', 'Test2::Event::Waiting' => '1.302052', 'Test2::Formatter' => '1.302052', 'Test2::Formatter::TAP' => '1.302052', 'Test2::Hub' => '1.302052', 'Test2::Hub::Interceptor'=> '1.302052', 'Test2::Hub::Interceptor::Terminator'=> '1.302052', 'Test2::Hub::Subtest' => '1.302052', 'Test2::IPC' => '1.302052', 'Test2::IPC::Driver' => '1.302052', 'Test2::IPC::Driver::Files'=> '1.302052', 'Test2::Util' => '1.302052', 'Test2::Util::ExternalMeta'=> '1.302052', 'Test2::Util::HashBase' => '1.302052', 'Test2::Util::Trace' => '1.302052', 'Test::Builder' => '1.302052', 'Test::Builder::Formatter'=> '1.302052', 'Test::Builder::Module' => '1.302052', 'Test::Builder::Tester' => '1.302052', 'Test::Builder::Tester::Color'=> '1.302052', 'Test::Builder::TodoDiag'=> '1.302052', 'Test::Harness' => '3.36_01', 'Test::More' => '1.302052', 'Test::Simple' => '1.302052', 'Test::Tester' => '1.302052', 'Test::Tester::Capture' => '1.302052', 'Test::Tester::CaptureRunner'=> '1.302052', 'Test::Tester::Delegate'=> '1.302052', 'Test::use::ok' => '1.302052', 'Tie::Hash::NamedCapture'=> '0.10', 'Time::Local' => '1.24', 'XS::APItest' => '0.83', 'arybase' => '0.12', 'base' => '2.24', 'bigint' => '0.43_01', 'bignum' => '0.43_01', 'bigrat' => '0.43_01', 'encoding' => '2.18', 'ok' => '1.302052', }, removed => { } }, 5.025005 => { delta_from => 5.025004, changed => { 'B::Op_private' => '5.025005', 'Config' => '5.025005', 'Filter::Simple' => '0.93', 'Locale::Codes' => '3.40', 'Locale::Codes::Constants'=> '3.40', 'Locale::Codes::Country'=> '3.40', 'Locale::Codes::Country_Codes'=> '3.40', 'Locale::Codes::Country_Retired'=> '3.40', 'Locale::Codes::Currency'=> '3.40', 'Locale::Codes::Currency_Codes'=> '3.40', 'Locale::Codes::Currency_Retired'=> '3.40', 'Locale::Codes::LangExt'=> '3.40', 'Locale::Codes::LangExt_Codes'=> '3.40', 'Locale::Codes::LangExt_Retired'=> '3.40', 'Locale::Codes::LangFam'=> '3.40', 'Locale::Codes::LangFam_Codes'=> '3.40', 'Locale::Codes::LangFam_Retired'=> '3.40', 'Locale::Codes::LangVar'=> '3.40', 'Locale::Codes::LangVar_Codes'=> '3.40', 'Locale::Codes::LangVar_Retired'=> '3.40', 'Locale::Codes::Language'=> '3.40', 'Locale::Codes::Language_Codes'=> '3.40', 'Locale::Codes::Language_Retired'=> '3.40', 'Locale::Codes::Script' => '3.40', 'Locale::Codes::Script_Codes'=> '3.40', 'Locale::Codes::Script_Retired'=> '3.40', 'Locale::Country' => '3.40', 'Locale::Currency' => '3.40', 'Locale::Language' => '3.40', 'Locale::Script' => '3.40', 'Module::CoreList' => '5.20160920', 'Module::CoreList::TieHashDelta'=> '5.20160920', 'Module::CoreList::Utils'=> '5.20160920', 'POSIX' => '1.72', 'Sys::Syslog' => '0.35', 'Test2' => '1.302056', 'Test2::API' => '1.302056', 'Test2::API::Breakage' => '1.302056', 'Test2::API::Context' => '1.302056', 'Test2::API::Instance' => '1.302056', 'Test2::API::Stack' => '1.302056', 'Test2::Event' => '1.302056', 'Test2::Event::Bail' => '1.302056', 'Test2::Event::Diag' => '1.302056', 'Test2::Event::Exception'=> '1.302056', 'Test2::Event::Generic' => '1.302056', 'Test2::Event::Info' => '1.302056', 'Test2::Event::Note' => '1.302056', 'Test2::Event::Ok' => '1.302056', 'Test2::Event::Plan' => '1.302056', 'Test2::Event::Skip' => '1.302056', 'Test2::Event::Subtest' => '1.302056', 'Test2::Event::Waiting' => '1.302056', 'Test2::Formatter' => '1.302056', 'Test2::Formatter::TAP' => '1.302056', 'Test2::Hub' => '1.302056', 'Test2::Hub::Interceptor'=> '1.302056', 'Test2::Hub::Interceptor::Terminator'=> '1.302056', 'Test2::Hub::Subtest' => '1.302056', 'Test2::IPC' => '1.302056', 'Test2::IPC::Driver' => '1.302056', 'Test2::IPC::Driver::Files'=> '1.302056', 'Test2::Util' => '1.302056', 'Test2::Util::ExternalMeta'=> '1.302056', 'Test2::Util::HashBase' => '1.302056', 'Test2::Util::Trace' => '1.302056', 'Test::Builder' => '1.302056', 'Test::Builder::Formatter'=> '1.302056', 'Test::Builder::Module' => '1.302056', 'Test::Builder::Tester' => '1.302056', 'Test::Builder::Tester::Color'=> '1.302056', 'Test::Builder::TodoDiag'=> '1.302056', 'Test::More' => '1.302056', 'Test::Simple' => '1.302056', 'Test::Tester' => '1.302056', 'Test::Tester::Capture' => '1.302056', 'Test::Tester::CaptureRunner'=> '1.302056', 'Test::Tester::Delegate'=> '1.302056', 'Test::use::ok' => '1.302056', 'Thread::Semaphore' => '2.13', 'XS::APItest' => '0.84', 'XSLoader' => '0.24', 'ok' => '1.302056', }, removed => { } }, 5.025006 => { delta_from => 5.025005, changed => { 'Archive::Tar' => '2.14', 'Archive::Tar::Constant'=> '2.14', 'Archive::Tar::File' => '2.14', 'B' => '1.64', 'B::Concise' => '0.999', 'B::Deparse' => '1.39', 'B::Op_private' => '5.025006', 'Config' => '5.025006', 'Data::Dumper' => '2.162', 'Devel::Peek' => '1.25', 'HTTP::Tiny' => '0.070', 'List::Util' => '1.46', 'List::Util::XS' => '1.46', 'Module::CoreList' => '5.20161020', 'Module::CoreList::TieHashDelta'=> '5.20161020', 'Module::CoreList::Utils'=> '5.20161020', 'Net::Ping' => '2.51', 'OS2::DLL' => '1.07', 'Opcode' => '1.38', 'POSIX' => '1.73', 'PerlIO::encoding' => '0.25', 'Pod::Man' => '4.08', 'Pod::ParseLink' => '4.08', 'Pod::Text' => '4.08', 'Pod::Text::Color' => '4.08', 'Pod::Text::Overstrike' => '4.08', 'Pod::Text::Termcap' => '4.08', 'Scalar::Util' => '1.46', 'Storable' => '2.58', 'Sub::Util' => '1.46', 'Test2' => '1.302059', 'Test2::API' => '1.302059', 'Test2::API::Breakage' => '1.302059', 'Test2::API::Context' => '1.302059', 'Test2::API::Instance' => '1.302059', 'Test2::API::Stack' => '1.302059', 'Test2::Event' => '1.302059', 'Test2::Event::Bail' => '1.302059', 'Test2::Event::Diag' => '1.302059', 'Test2::Event::Exception'=> '1.302059', 'Test2::Event::Generic' => '1.302059', 'Test2::Event::Info' => '1.302059', 'Test2::Event::Note' => '1.302059', 'Test2::Event::Ok' => '1.302059', 'Test2::Event::Plan' => '1.302059', 'Test2::Event::Skip' => '1.302059', 'Test2::Event::Subtest' => '1.302059', 'Test2::Event::Waiting' => '1.302059', 'Test2::Formatter' => '1.302059', 'Test2::Formatter::TAP' => '1.302059', 'Test2::Hub' => '1.302059', 'Test2::Hub::Interceptor'=> '1.302059', 'Test2::Hub::Interceptor::Terminator'=> '1.302059', 'Test2::Hub::Subtest' => '1.302059', 'Test2::IPC' => '1.302059', 'Test2::IPC::Driver' => '1.302059', 'Test2::IPC::Driver::Files'=> '1.302059', 'Test2::Util' => '1.302059', 'Test2::Util::ExternalMeta'=> '1.302059', 'Test2::Util::HashBase' => '1.302059', 'Test2::Util::Trace' => '1.302059', 'Test::Builder' => '1.302059', 'Test::Builder::Formatter'=> '1.302059', 'Test::Builder::Module' => '1.302059', 'Test::Builder::Tester' => '1.302059', 'Test::Builder::Tester::Color'=> '1.302059', 'Test::Builder::TodoDiag'=> '1.302059', 'Test::More' => '1.302059', 'Test::Simple' => '1.302059', 'Test::Tester' => '1.302059', 'Test::Tester::Capture' => '1.302059', 'Test::Tester::CaptureRunner'=> '1.302059', 'Test::Tester::Delegate'=> '1.302059', 'Test::use::ok' => '1.302059', 'Time::HiRes' => '1.9740_01', 'VMS::Stdio' => '2.42', 'XS::APItest' => '0.86', 'attributes' => '0.28', 'mro' => '1.19', 'ok' => '1.302059', 'overload' => '1.27', 'parent' => '0.236', }, removed => { } }, 5.025007 => { delta_from => 5.025006, changed => { 'Archive::Tar' => '2.18', 'Archive::Tar::Constant'=> '2.18', 'Archive::Tar::File' => '2.18', 'B' => '1.65', 'B::Op_private' => '5.025007', 'Config' => '5.025007', 'Cwd' => '3.66', 'Data::Dumper' => '2.165', 'Devel::Peek' => '1.26', 'DynaLoader' => '1.40', 'Errno' => '1.27', 'ExtUtils::ParseXS::Utilities'=> '3.34', 'File::Spec' => '3.66', 'File::Spec::AmigaOS' => '3.66', 'File::Spec::Cygwin' => '3.66', 'File::Spec::Epoc' => '3.66', 'File::Spec::Functions' => '3.66', 'File::Spec::Mac' => '3.66', 'File::Spec::OS2' => '3.66', 'File::Spec::Unix' => '3.66', 'File::Spec::VMS' => '3.66', 'File::Spec::Win32' => '3.66', 'Hash::Util' => '0.22', 'JSON::PP' => '2.27400_02', 'List::Util' => '1.46_02', 'List::Util::XS' => '1.46_02', 'Math::BigFloat' => '1.999727', 'Math::BigInt' => '1.999727', 'Math::BigInt::Calc' => '1.999727', 'Math::BigInt::CalcEmu' => '1.999727', 'Math::Complex' => '1.5901', 'Module::CoreList' => '5.20161120', 'Module::CoreList::TieHashDelta'=> '5.20161120', 'Module::CoreList::Utils'=> '5.20161120', 'Net::Ping' => '2.55', 'Opcode' => '1.39', 'POSIX' => '1.75', 'Pod::Man' => '4.09', 'Pod::ParseLink' => '4.09', 'Pod::Text' => '4.09', 'Pod::Text::Color' => '4.09', 'Pod::Text::Overstrike' => '4.09', 'Pod::Text::Termcap' => '4.09', 'Scalar::Util' => '1.46_02', 'Storable' => '2.59', 'Sub::Util' => '1.46_02', 'Term::ANSIColor' => '4.06', 'Test2' => '1.302062', 'Test2::API' => '1.302062', 'Test2::API::Breakage' => '1.302062', 'Test2::API::Context' => '1.302062', 'Test2::API::Instance' => '1.302062', 'Test2::API::Stack' => '1.302062', 'Test2::Event' => '1.302062', 'Test2::Event::Bail' => '1.302062', 'Test2::Event::Diag' => '1.302062', 'Test2::Event::Exception'=> '1.302062', 'Test2::Event::Generic' => '1.302062', 'Test2::Event::Info' => '1.302062', 'Test2::Event::Note' => '1.302062', 'Test2::Event::Ok' => '1.302062', 'Test2::Event::Plan' => '1.302062', 'Test2::Event::Skip' => '1.302062', 'Test2::Event::Subtest' => '1.302062', 'Test2::Event::Waiting' => '1.302062', 'Test2::Formatter' => '1.302062', 'Test2::Formatter::TAP' => '1.302062', 'Test2::Hub' => '1.302062', 'Test2::Hub::Interceptor'=> '1.302062', 'Test2::Hub::Interceptor::Terminator'=> '1.302062', 'Test2::Hub::Subtest' => '1.302062', 'Test2::IPC' => '1.302062', 'Test2::IPC::Driver' => '1.302062', 'Test2::IPC::Driver::Files'=> '1.302062', 'Test2::Util' => '1.302062', 'Test2::Util::ExternalMeta'=> '1.302062', 'Test2::Util::HashBase' => '1.302062', 'Test2::Util::Trace' => '1.302062', 'Test::Builder' => '1.302062', 'Test::Builder::Formatter'=> '1.302062', 'Test::Builder::Module' => '1.302062', 'Test::Builder::Tester' => '1.302062', 'Test::Builder::Tester::Color'=> '1.302062', 'Test::Builder::TodoDiag'=> '1.302062', 'Test::More' => '1.302062', 'Test::Simple' => '1.302062', 'Test::Tester' => '1.302062', 'Test::Tester::Capture' => '1.302062', 'Test::Tester::CaptureRunner'=> '1.302062', 'Test::Tester::Delegate'=> '1.302062', 'Test::use::ok' => '1.302062', 'Time::HiRes' => '1.9740_03', 'Unicode::Collate' => '1.18', 'Unicode::Collate::CJK::Big5'=> '1.18', 'Unicode::Collate::CJK::GB2312'=> '1.18', 'Unicode::Collate::CJK::JISX0208'=> '1.18', 'Unicode::Collate::CJK::Korean'=> '1.18', 'Unicode::Collate::CJK::Pinyin'=> '1.18', 'Unicode::Collate::CJK::Stroke'=> '1.18', 'Unicode::Collate::CJK::Zhuyin'=> '1.18', 'Unicode::Collate::Locale'=> '1.18', 'Unicode::UCD' => '0.67', 'XS::APItest' => '0.87', 'XS::Typemap' => '0.15', 'mro' => '1.20', 'ok' => '1.302062', 'threads' => '2.10', }, removed => { } }, 5.025008 => { delta_from => 5.025007, changed => { 'Archive::Tar' => '2.24', 'Archive::Tar::Constant'=> '2.24', 'Archive::Tar::File' => '2.24', 'B::Debug' => '1.24', 'B::Op_private' => '5.025008', 'Config' => '5.025008', 'Data::Dumper' => '2.166', 'Encode' => '2.88', 'Encode::Alias' => '2.21', 'Encode::CN::HZ' => '2.08', 'Encode::MIME::Header' => '2.24', 'Encode::MIME::Name' => '1.02', 'Encode::Unicode' => '2.1501', 'IO' => '1.38', 'Locale::Codes' => '3.42', 'Locale::Codes::Constants'=> '3.42', 'Locale::Codes::Country'=> '3.42', 'Locale::Codes::Country_Codes'=> '3.42', 'Locale::Codes::Country_Retired'=> '3.42', 'Locale::Codes::Currency'=> '3.42', 'Locale::Codes::Currency_Codes'=> '3.42', 'Locale::Codes::Currency_Retired'=> '3.42', 'Locale::Codes::LangExt'=> '3.42', 'Locale::Codes::LangExt_Codes'=> '3.42', 'Locale::Codes::LangExt_Retired'=> '3.42', 'Locale::Codes::LangFam'=> '3.42', 'Locale::Codes::LangFam_Codes'=> '3.42', 'Locale::Codes::LangFam_Retired'=> '3.42', 'Locale::Codes::LangVar'=> '3.42', 'Locale::Codes::LangVar_Codes'=> '3.42', 'Locale::Codes::LangVar_Retired'=> '3.42', 'Locale::Codes::Language'=> '3.42', 'Locale::Codes::Language_Codes'=> '3.42', 'Locale::Codes::Language_Retired'=> '3.42', 'Locale::Codes::Script' => '3.42', 'Locale::Codes::Script_Codes'=> '3.42', 'Locale::Codes::Script_Retired'=> '3.42', 'Locale::Country' => '3.42', 'Locale::Currency' => '3.42', 'Locale::Language' => '3.42', 'Locale::Script' => '3.42', 'Math::BigFloat' => '1.999806', 'Math::BigFloat::Trace' => '0.47', 'Math::BigInt' => '1.999806', 'Math::BigInt::Calc' => '1.999806', 'Math::BigInt::CalcEmu' => '1.999806', 'Math::BigInt::FastCalc'=> '0.5005', 'Math::BigInt::Lib' => '1.999806', 'Math::BigInt::Trace' => '0.47', 'Math::BigRat' => '0.2611', 'Module::CoreList' => '5.20161220', 'Module::CoreList::TieHashDelta'=> '5.20161220', 'Module::CoreList::Utils'=> '5.20161220', 'POSIX' => '1.76', 'PerlIO::scalar' => '0.25', 'Pod::Simple' => '3.35', 'Pod::Simple::BlackBox' => '3.35', 'Pod::Simple::Checker' => '3.35', 'Pod::Simple::Debug' => '3.35', 'Pod::Simple::DumpAsText'=> '3.35', 'Pod::Simple::DumpAsXML'=> '3.35', 'Pod::Simple::HTML' => '3.35', 'Pod::Simple::HTMLBatch'=> '3.35', 'Pod::Simple::LinkSection'=> '3.35', 'Pod::Simple::Methody' => '3.35', 'Pod::Simple::Progress' => '3.35', 'Pod::Simple::PullParser'=> '3.35', 'Pod::Simple::PullParserEndToken'=> '3.35', 'Pod::Simple::PullParserStartToken'=> '3.35', 'Pod::Simple::PullParserTextToken'=> '3.35', 'Pod::Simple::PullParserToken'=> '3.35', 'Pod::Simple::RTF' => '3.35', 'Pod::Simple::Search' => '3.35', 'Pod::Simple::SimpleTree'=> '3.35', 'Pod::Simple::Text' => '3.35', 'Pod::Simple::TextContent'=> '3.35', 'Pod::Simple::TiedOutFH'=> '3.35', 'Pod::Simple::Transcode'=> '3.35', 'Pod::Simple::TranscodeDumb'=> '3.35', 'Pod::Simple::TranscodeSmart'=> '3.35', 'Pod::Simple::XHTML' => '3.35', 'Pod::Simple::XMLOutStream'=> '3.35', 'Test2' => '1.302073', 'Test2::API' => '1.302073', 'Test2::API::Breakage' => '1.302073', 'Test2::API::Context' => '1.302073', 'Test2::API::Instance' => '1.302073', 'Test2::API::Stack' => '1.302073', 'Test2::Event' => '1.302073', 'Test2::Event::Bail' => '1.302073', 'Test2::Event::Diag' => '1.302073', 'Test2::Event::Encoding'=> '1.302073', 'Test2::Event::Exception'=> '1.302073', 'Test2::Event::Generic' => '1.302073', 'Test2::Event::Info' => '1.302073', 'Test2::Event::Note' => '1.302073', 'Test2::Event::Ok' => '1.302073', 'Test2::Event::Plan' => '1.302073', 'Test2::Event::Skip' => '1.302073', 'Test2::Event::Subtest' => '1.302073', 'Test2::Event::TAP::Version'=> '1.302073', 'Test2::Event::Waiting' => '1.302073', 'Test2::Formatter' => '1.302073', 'Test2::Formatter::TAP' => '1.302073', 'Test2::Hub' => '1.302073', 'Test2::Hub::Interceptor'=> '1.302073', 'Test2::Hub::Interceptor::Terminator'=> '1.302073', 'Test2::Hub::Subtest' => '1.302073', 'Test2::IPC' => '1.302073', 'Test2::IPC::Driver' => '1.302073', 'Test2::IPC::Driver::Files'=> '1.302073', 'Test2::Tools::Tiny' => '1.302073', 'Test2::Util' => '1.302073', 'Test2::Util::ExternalMeta'=> '1.302073', 'Test2::Util::HashBase' => '0.002', 'Test2::Util::Trace' => '1.302073', 'Test::Builder' => '1.302073', 'Test::Builder::Formatter'=> '1.302073', 'Test::Builder::Module' => '1.302073', 'Test::Builder::Tester' => '1.302073', 'Test::Builder::Tester::Color'=> '1.302073', 'Test::Builder::TodoDiag'=> '1.302073', 'Test::More' => '1.302073', 'Test::Simple' => '1.302073', 'Test::Tester' => '1.302073', 'Test::Tester::Capture' => '1.302073', 'Test::Tester::CaptureRunner'=> '1.302073', 'Test::Tester::Delegate'=> '1.302073', 'Test::use::ok' => '1.302073', 'Time::HiRes' => '1.9741', 'Time::Local' => '1.25', 'Unicode::Collate' => '1.19', 'Unicode::Collate::CJK::Big5'=> '1.19', 'Unicode::Collate::CJK::GB2312'=> '1.19', 'Unicode::Collate::CJK::JISX0208'=> '1.19', 'Unicode::Collate::CJK::Korean'=> '1.19', 'Unicode::Collate::CJK::Pinyin'=> '1.19', 'Unicode::Collate::CJK::Stroke'=> '1.19', 'Unicode::Collate::CJK::Zhuyin'=> '1.19', 'Unicode::Collate::Locale'=> '1.19', 'bigint' => '0.47', 'bignum' => '0.47', 'bigrat' => '0.47', 'encoding' => '2.19', 'ok' => '1.302073', }, removed => { } }, 5.022003 => { delta_from => 5.022002, changed => { 'App::Cpan' => '1.63_01', 'App::Prove' => '3.35_01', 'App::Prove::State' => '3.35_01', 'App::Prove::State::Result'=> '3.35_01', 'App::Prove::State::Result::Test'=> '3.35_01', 'Archive::Tar' => '2.04_01', 'Archive::Tar::Constant'=> '2.04_01', 'Archive::Tar::File' => '2.04_01', 'B::Op_private' => '5.022003', 'CPAN' => '2.11_01', 'Compress::Zlib' => '2.068_001', 'Config' => '5.022003', 'Cwd' => '3.56_02', 'Digest' => '1.17_01', 'Digest::SHA' => '5.95_01', 'Encode' => '2.72_01', 'ExtUtils::Command' => '1.20_01', 'ExtUtils::Command::MM' => '7.04_02', 'ExtUtils::Liblist' => '7.04_02', 'ExtUtils::Liblist::Kid'=> '7.04_02', 'ExtUtils::MM' => '7.04_02', 'ExtUtils::MM_AIX' => '7.04_02', 'ExtUtils::MM_Any' => '7.04_02', 'ExtUtils::MM_BeOS' => '7.04_02', 'ExtUtils::MM_Cygwin' => '7.04_02', 'ExtUtils::MM_DOS' => '7.04_02', 'ExtUtils::MM_Darwin' => '7.04_02', 'ExtUtils::MM_MacOS' => '7.04_02', 'ExtUtils::MM_NW5' => '7.04_02', 'ExtUtils::MM_OS2' => '7.04_02', 'ExtUtils::MM_QNX' => '7.04_02', 'ExtUtils::MM_UWIN' => '7.04_02', 'ExtUtils::MM_Unix' => '7.04_02', 'ExtUtils::MM_VMS' => '7.04_02', 'ExtUtils::MM_VOS' => '7.04_02', 'ExtUtils::MM_Win32' => '7.04_02', 'ExtUtils::MM_Win95' => '7.04_02', 'ExtUtils::MY' => '7.04_02', 'ExtUtils::MakeMaker' => '7.04_02', 'ExtUtils::MakeMaker::Config'=> '7.04_02', 'ExtUtils::Mkbootstrap' => '7.04_02', 'ExtUtils::Mksymlists' => '7.04_02', 'ExtUtils::testlib' => '7.04_02', 'File::Fetch' => '0.48_01', 'File::Spec' => '3.56_02', 'File::Spec::Cygwin' => '3.56_02', 'File::Spec::Epoc' => '3.56_02', 'File::Spec::Functions' => '3.56_02', 'File::Spec::Mac' => '3.56_02', 'File::Spec::OS2' => '3.56_02', 'File::Spec::Unix' => '3.56_02', 'File::Spec::VMS' => '3.56_02', 'File::Spec::Win32' => '3.56_02', 'HTTP::Tiny' => '0.054_01', 'I18N::LangTags::Detect'=> '1.05_01', 'IO' => '1.35_01', 'IO::Compress::Adapter::Bzip2'=> '2.068_001', 'IO::Compress::Adapter::Deflate'=> '2.068_001', 'IO::Compress::Adapter::Identity'=> '2.068_001', 'IO::Compress::Base' => '2.068_001', 'IO::Compress::Base::Common'=> '2.068_001', 'IO::Compress::Bzip2' => '2.068_001', 'IO::Compress::Deflate' => '2.068_001', 'IO::Compress::Gzip' => '2.068_001', 'IO::Compress::Gzip::Constants'=> '2.068_001', 'IO::Compress::RawDeflate'=> '2.068_001', 'IO::Compress::Zip' => '2.068_001', 'IO::Compress::Zip::Constants'=> '2.068_001', 'IO::Compress::Zlib::Constants'=> '2.068_001', 'IO::Compress::Zlib::Extra'=> '2.068_001', 'IO::Uncompress::Adapter::Bunzip2'=> '2.068_001', 'IO::Uncompress::Adapter::Identity'=> '2.068_001', 'IO::Uncompress::Adapter::Inflate'=> '2.068_001', 'IO::Uncompress::AnyInflate'=> '2.068_001', 'IO::Uncompress::AnyUncompress'=> '2.068_001', 'IO::Uncompress::Base' => '2.068_001', 'IO::Uncompress::Bunzip2'=> '2.068_001', 'IO::Uncompress::Gunzip'=> '2.068_001', 'IO::Uncompress::Inflate'=> '2.068_001', 'IO::Uncompress::RawInflate'=> '2.068_001', 'IO::Uncompress::Unzip' => '2.068_001', 'IPC::Cmd' => '0.92_01', 'JSON::PP' => '2.27300_01', 'Locale::Maketext' => '1.26_01', 'Locale::Maketext::Simple'=> '0.21_01', 'Memoize' => '1.03_01', 'Module::CoreList' => '5.20170114_22', 'Module::CoreList::TieHashDelta'=> '5.20170114_22', 'Module::CoreList::Utils'=> '5.20170114_22', 'Module::Metadata::corpus::BOMTest::UTF16BE'=> undef, 'Module::Metadata::corpus::BOMTest::UTF16LE'=> undef, 'Module::Metadata::corpus::BOMTest::UTF8'=> '1', 'Net::Cmd' => '3.05_01', 'Net::Config' => '3.05_01', 'Net::Domain' => '3.05_01', 'Net::FTP' => '3.05_01', 'Net::FTP::A' => '3.05_01', 'Net::FTP::E' => '3.05_01', 'Net::FTP::I' => '3.05_01', 'Net::FTP::L' => '3.05_01', 'Net::FTP::dataconn' => '3.05_01', 'Net::NNTP' => '3.05_01', 'Net::Netrc' => '3.05_01', 'Net::POP3' => '3.05_01', 'Net::Ping' => '2.43_01', 'Net::SMTP' => '3.05_01', 'Net::Time' => '3.05_01', 'Parse::CPAN::Meta' => '1.4414_001', 'Pod::Html' => '1.2201', 'Pod::Perldoc' => '3.25_01', 'Storable' => '2.53_02', 'Sys::Syslog' => '0.33_01', 'TAP::Base' => '3.35_01', 'TAP::Formatter::Base' => '3.35_01', 'TAP::Formatter::Color' => '3.35_01', 'TAP::Formatter::Console'=> '3.35_01', 'TAP::Formatter::Console::ParallelSession'=> '3.35_01', 'TAP::Formatter::Console::Session'=> '3.35_01', 'TAP::Formatter::File' => '3.35_01', 'TAP::Formatter::File::Session'=> '3.35_01', 'TAP::Formatter::Session'=> '3.35_01', 'TAP::Harness' => '3.35_01', 'TAP::Harness::Env' => '3.35_01', 'TAP::Object' => '3.35_01', 'TAP::Parser' => '3.35_01', 'TAP::Parser::Aggregator'=> '3.35_01', 'TAP::Parser::Grammar' => '3.35_01', 'TAP::Parser::Iterator' => '3.35_01', 'TAP::Parser::Iterator::Array'=> '3.35_01', 'TAP::Parser::Iterator::Process'=> '3.35_01', 'TAP::Parser::Iterator::Stream'=> '3.35_01', 'TAP::Parser::IteratorFactory'=> '3.35_01', 'TAP::Parser::Multiplexer'=> '3.35_01', 'TAP::Parser::Result' => '3.35_01', 'TAP::Parser::Result::Bailout'=> '3.35_01', 'TAP::Parser::Result::Comment'=> '3.35_01', 'TAP::Parser::Result::Plan'=> '3.35_01', 'TAP::Parser::Result::Pragma'=> '3.35_01', 'TAP::Parser::Result::Test'=> '3.35_01', 'TAP::Parser::Result::Unknown'=> '3.35_01', 'TAP::Parser::Result::Version'=> '3.35_01', 'TAP::Parser::Result::YAML'=> '3.35_01', 'TAP::Parser::ResultFactory'=> '3.35_01', 'TAP::Parser::Scheduler'=> '3.35_01', 'TAP::Parser::Scheduler::Job'=> '3.35_01', 'TAP::Parser::Scheduler::Spinner'=> '3.35_01', 'TAP::Parser::Source' => '3.35_01', 'TAP::Parser::SourceHandler'=> '3.35_01', 'TAP::Parser::SourceHandler::Executable'=> '3.35_01', 'TAP::Parser::SourceHandler::File'=> '3.35_01', 'TAP::Parser::SourceHandler::Handle'=> '3.35_01', 'TAP::Parser::SourceHandler::Perl'=> '3.35_01', 'TAP::Parser::SourceHandler::RawTAP'=> '3.35_01', 'TAP::Parser::YAMLish::Reader'=> '3.35_01', 'TAP::Parser::YAMLish::Writer'=> '3.35_01', 'Test' => '1.26_01', 'Test::Harness' => '3.35_01', 'XSLoader' => '0.20_01', 'bigint' => '0.39_01', 'bignum' => '0.39_01', 'bigrat' => '0.39_01', }, removed => { } }, 5.024001 => { delta_from => 5.024000, changed => { 'App::Cpan' => '1.63_01', 'App::Prove' => '3.36_01', 'App::Prove::State' => '3.36_01', 'App::Prove::State::Result'=> '3.36_01', 'App::Prove::State::Result::Test'=> '3.36_01', 'Archive::Tar' => '2.04_01', 'Archive::Tar::Constant'=> '2.04_01', 'Archive::Tar::File' => '2.04_01', 'B::Op_private' => '5.024001', 'CPAN' => '2.11_01', 'Compress::Zlib' => '2.069_001', 'Config' => '5.024001', 'Cwd' => '3.63_01', 'Digest' => '1.17_01', 'Digest::SHA' => '5.95_01', 'Encode' => '2.80_01', 'ExtUtils::Command' => '7.10_02', 'ExtUtils::Command::MM' => '7.10_02', 'ExtUtils::Liblist' => '7.10_02', 'ExtUtils::Liblist::Kid'=> '7.10_02', 'ExtUtils::MM' => '7.10_02', 'ExtUtils::MM_AIX' => '7.10_02', 'ExtUtils::MM_Any' => '7.10_02', 'ExtUtils::MM_BeOS' => '7.10_02', 'ExtUtils::MM_Cygwin' => '7.10_02', 'ExtUtils::MM_DOS' => '7.10_02', 'ExtUtils::MM_Darwin' => '7.10_02', 'ExtUtils::MM_MacOS' => '7.10_02', 'ExtUtils::MM_NW5' => '7.10_02', 'ExtUtils::MM_OS2' => '7.10_02', 'ExtUtils::MM_QNX' => '7.10_02', 'ExtUtils::MM_UWIN' => '7.10_02', 'ExtUtils::MM_Unix' => '7.10_02', 'ExtUtils::MM_VMS' => '7.10_02', 'ExtUtils::MM_VOS' => '7.10_02', 'ExtUtils::MM_Win32' => '7.10_02', 'ExtUtils::MM_Win95' => '7.10_02', 'ExtUtils::MY' => '7.10_02', 'ExtUtils::MakeMaker' => '7.10_02', 'ExtUtils::MakeMaker::Config'=> '7.10_02', 'ExtUtils::Mkbootstrap' => '7.10_02', 'ExtUtils::Mksymlists' => '7.10_02', 'ExtUtils::testlib' => '7.10_02', 'File::Fetch' => '0.48_01', 'File::Spec' => '3.63_01', 'File::Spec::Cygwin' => '3.63_01', 'File::Spec::Epoc' => '3.63_01', 'File::Spec::Functions' => '3.63_01', 'File::Spec::Mac' => '3.63_01', 'File::Spec::OS2' => '3.63_01', 'File::Spec::Unix' => '3.63_01', 'File::Spec::VMS' => '3.63_01', 'File::Spec::Win32' => '3.63_01', 'HTTP::Tiny' => '0.056_001', 'I18N::LangTags::Detect'=> '1.05_01', 'IO' => '1.36_01', 'IO::Compress::Adapter::Bzip2'=> '2.069_001', 'IO::Compress::Adapter::Deflate'=> '2.069_001', 'IO::Compress::Adapter::Identity'=> '2.069_001', 'IO::Compress::Base' => '2.069_001', 'IO::Compress::Base::Common'=> '2.069_001', 'IO::Compress::Bzip2' => '2.069_001', 'IO::Compress::Deflate' => '2.069_001', 'IO::Compress::Gzip' => '2.069_001', 'IO::Compress::Gzip::Constants'=> '2.069_001', 'IO::Compress::RawDeflate'=> '2.069_001', 'IO::Compress::Zip' => '2.069_001', 'IO::Compress::Zip::Constants'=> '2.069_001', 'IO::Compress::Zlib::Constants'=> '2.069_001', 'IO::Compress::Zlib::Extra'=> '2.069_001', 'IO::Uncompress::Adapter::Bunzip2'=> '2.069_001', 'IO::Uncompress::Adapter::Identity'=> '2.069_001', 'IO::Uncompress::Adapter::Inflate'=> '2.069_001', 'IO::Uncompress::AnyInflate'=> '2.069_001', 'IO::Uncompress::AnyUncompress'=> '2.069_001', 'IO::Uncompress::Base' => '2.069_001', 'IO::Uncompress::Bunzip2'=> '2.069_001', 'IO::Uncompress::Gunzip'=> '2.069_001', 'IO::Uncompress::Inflate'=> '2.069_001', 'IO::Uncompress::RawInflate'=> '2.069_001', 'IO::Uncompress::Unzip' => '2.069_001', 'IPC::Cmd' => '0.92_01', 'JSON::PP' => '2.27300_01', 'Locale::Maketext' => '1.26_01', 'Locale::Maketext::Simple'=> '0.21_01', 'Math::BigFloat::Trace' => '0.42_01', 'Math::BigInt::Trace' => '0.42_01', 'Memoize' => '1.03_01', 'Module::CoreList' => '5.20170114_24', 'Module::CoreList::TieHashDelta'=> '5.20170114_24', 'Module::CoreList::Utils'=> '5.20170114_24', 'Module::Metadata::corpus::BOMTest::UTF16BE'=> undef, 'Module::Metadata::corpus::BOMTest::UTF16LE'=> undef, 'Module::Metadata::corpus::BOMTest::UTF8'=> '1', 'Net::Cmd' => '3.08_01', 'Net::Config' => '3.08_01', 'Net::Domain' => '3.08_01', 'Net::FTP' => '3.08_01', 'Net::FTP::A' => '3.08_01', 'Net::FTP::E' => '3.08_01', 'Net::FTP::I' => '3.08_01', 'Net::FTP::L' => '3.08_01', 'Net::FTP::dataconn' => '3.08_01', 'Net::NNTP' => '3.08_01', 'Net::Netrc' => '3.08_01', 'Net::POP3' => '3.08_01', 'Net::Ping' => '2.43_01', 'Net::SMTP' => '3.08_01', 'Net::Time' => '3.08_01', 'Parse::CPAN::Meta' => '1.4417_001', 'Pod::Html' => '1.2201', 'Pod::Perldoc' => '3.25_03', 'Storable' => '2.56_01', 'Sys::Syslog' => '0.33_01', 'TAP::Base' => '3.36_01', 'TAP::Formatter::Base' => '3.36_01', 'TAP::Formatter::Color' => '3.36_01', 'TAP::Formatter::Console'=> '3.36_01', 'TAP::Formatter::Console::ParallelSession'=> '3.36_01', 'TAP::Formatter::Console::Session'=> '3.36_01', 'TAP::Formatter::File' => '3.36_01', 'TAP::Formatter::File::Session'=> '3.36_01', 'TAP::Formatter::Session'=> '3.36_01', 'TAP::Harness' => '3.36_01', 'TAP::Harness::Env' => '3.36_01', 'TAP::Object' => '3.36_01', 'TAP::Parser' => '3.36_01', 'TAP::Parser::Aggregator'=> '3.36_01', 'TAP::Parser::Grammar' => '3.36_01', 'TAP::Parser::Iterator' => '3.36_01', 'TAP::Parser::Iterator::Array'=> '3.36_01', 'TAP::Parser::Iterator::Process'=> '3.36_01', 'TAP::Parser::Iterator::Stream'=> '3.36_01', 'TAP::Parser::IteratorFactory'=> '3.36_01', 'TAP::Parser::Multiplexer'=> '3.36_01', 'TAP::Parser::Result' => '3.36_01', 'TAP::Parser::Result::Bailout'=> '3.36_01', 'TAP::Parser::Result::Comment'=> '3.36_01', 'TAP::Parser::Result::Plan'=> '3.36_01', 'TAP::Parser::Result::Pragma'=> '3.36_01', 'TAP::Parser::Result::Test'=> '3.36_01', 'TAP::Parser::Result::Unknown'=> '3.36_01', 'TAP::Parser::Result::Version'=> '3.36_01', 'TAP::Parser::Result::YAML'=> '3.36_01', 'TAP::Parser::ResultFactory'=> '3.36_01', 'TAP::Parser::Scheduler'=> '3.36_01', 'TAP::Parser::Scheduler::Job'=> '3.36_01', 'TAP::Parser::Scheduler::Spinner'=> '3.36_01', 'TAP::Parser::Source' => '3.36_01', 'TAP::Parser::SourceHandler'=> '3.36_01', 'TAP::Parser::SourceHandler::Executable'=> '3.36_01', 'TAP::Parser::SourceHandler::File'=> '3.36_01', 'TAP::Parser::SourceHandler::Handle'=> '3.36_01', 'TAP::Parser::SourceHandler::Perl'=> '3.36_01', 'TAP::Parser::SourceHandler::RawTAP'=> '3.36_01', 'TAP::Parser::YAMLish::Reader'=> '3.36_01', 'TAP::Parser::YAMLish::Writer'=> '3.36_01', 'Test' => '1.28_01', 'Test::Harness' => '3.36_01', 'XSLoader' => '0.22', 'bigint' => '0.42_01', 'bignum' => '0.42_01', 'bigrat' => '0.42_01', }, removed => { } }, 5.025009 => { delta_from => 5.025008, changed => { 'App::Cpan' => '1.66', 'B::Deparse' => '1.40', 'B::Op_private' => '5.025009', 'B::Terse' => '1.07', 'B::Xref' => '1.06', 'CPAN' => '2.16', 'CPAN::Bundle' => '5.5002', 'CPAN::Distribution' => '2.16', 'CPAN::Exception::RecursiveDependency'=> '5.5001', 'CPAN::FTP' => '5.5008', 'CPAN::FirstTime' => '5.5310', 'CPAN::HandleConfig' => '5.5008', 'CPAN::Module' => '5.5003', 'Compress::Raw::Bzip2' => '2.070', 'Compress::Raw::Zlib' => '2.070', 'Config' => '5.025009', 'DB_File' => '1.840', 'Data::Dumper' => '2.167', 'Devel::SelfStubber' => '1.06', 'DynaLoader' => '1.41', 'Errno' => '1.28', 'ExtUtils::Embed' => '1.34', 'File::Glob' => '1.28', 'I18N::LangTags' => '0.42', 'Module::CoreList' => '5.20170120', 'Module::CoreList::TieHashDelta'=> '5.20170120', 'Module::CoreList::Utils'=> '5.20170120', 'OS2::Process' => '1.12', 'PerlIO::scalar' => '0.26', 'Pod::Html' => '1.2202', 'Storable' => '2.61', 'Symbol' => '1.08', 'Term::ReadLine' => '1.16', 'Test' => '1.30', 'Unicode::UCD' => '0.68', 'VMS::DCLsym' => '1.08', 'XS::APItest' => '0.88', 'XSLoader' => '0.26', 'attributes' => '0.29', 'diagnostics' => '1.36', 'feature' => '1.46', 'lib' => '0.64', 'overload' => '1.28', 're' => '0.34', 'threads' => '2.12', 'threads::shared' => '1.54', }, removed => { } }, 5.025010 => { delta_from => 5.025009, changed => { 'B' => '1.68', 'B::Op_private' => '5.025010', 'CPAN' => '2.17', 'CPAN::Distribution' => '2.17', 'Config' => '5.02501', 'Getopt::Std' => '1.12', 'Module::CoreList' => '5.20170220', 'Module::CoreList::TieHashDelta'=> '5.20170220', 'Module::CoreList::Utils'=> '5.20170220', 'PerlIO' => '1.10', 'Storable' => '2.62', 'Thread::Queue' => '3.12', 'feature' => '1.47', 'open' => '1.11', 'threads' => '2.13', }, removed => { } }, 5.025011 => { delta_from => 5.025010, changed => { 'App::Prove' => '3.38', 'App::Prove::State' => '3.38', 'App::Prove::State::Result'=> '3.38', 'App::Prove::State::Result::Test'=> '3.38', 'B::Op_private' => '5.025011', 'Compress::Raw::Bzip2' => '2.074', 'Compress::Raw::Zlib' => '2.074', 'Compress::Zlib' => '2.074', 'Config' => '5.025011', 'Config::Perl::V' => '0.28', 'Cwd' => '3.67', 'ExtUtils::ParseXS' => '3.34', 'ExtUtils::ParseXS::Constants'=> '3.34', 'ExtUtils::ParseXS::CountLines'=> '3.34', 'ExtUtils::ParseXS::Eval'=> '3.34', 'ExtUtils::Typemaps' => '3.34', 'ExtUtils::Typemaps::Cmd'=> '3.34', 'ExtUtils::Typemaps::InputMap'=> '3.34', 'ExtUtils::Typemaps::OutputMap'=> '3.34', 'ExtUtils::Typemaps::Type'=> '3.34', 'File::Spec' => '3.67', 'File::Spec::AmigaOS' => '3.67', 'File::Spec::Cygwin' => '3.67', 'File::Spec::Epoc' => '3.67', 'File::Spec::Functions' => '3.67', 'File::Spec::Mac' => '3.67', 'File::Spec::OS2' => '3.67', 'File::Spec::Unix' => '3.67', 'File::Spec::VMS' => '3.67', 'File::Spec::Win32' => '3.67', 'IO::Compress::Adapter::Bzip2'=> '2.074', 'IO::Compress::Adapter::Deflate'=> '2.074', 'IO::Compress::Adapter::Identity'=> '2.074', 'IO::Compress::Base' => '2.074', 'IO::Compress::Base::Common'=> '2.074', 'IO::Compress::Bzip2' => '2.074', 'IO::Compress::Deflate' => '2.074', 'IO::Compress::Gzip' => '2.074', 'IO::Compress::Gzip::Constants'=> '2.074', 'IO::Compress::RawDeflate'=> '2.074', 'IO::Compress::Zip' => '2.074', 'IO::Compress::Zip::Constants'=> '2.074', 'IO::Compress::Zlib::Constants'=> '2.074', 'IO::Compress::Zlib::Extra'=> '2.074', 'IO::Uncompress::Adapter::Bunzip2'=> '2.074', 'IO::Uncompress::Adapter::Identity'=> '2.074', 'IO::Uncompress::Adapter::Inflate'=> '2.074', 'IO::Uncompress::AnyInflate'=> '2.074', 'IO::Uncompress::AnyUncompress'=> '2.074', 'IO::Uncompress::Base' => '2.074', 'IO::Uncompress::Bunzip2'=> '2.074', 'IO::Uncompress::Gunzip'=> '2.074', 'IO::Uncompress::Inflate'=> '2.074', 'IO::Uncompress::RawInflate'=> '2.074', 'IO::Uncompress::Unzip' => '2.074', 'Module::CoreList' => '5.20170320', 'Module::CoreList::TieHashDelta'=> '5.20170230', 'Module::CoreList::Utils'=> '5.20170320', 'Pod::Perldoc' => '3.28', 'Pod::Perldoc::BaseTo' => '3.28', 'Pod::Perldoc::GetOptsOO'=> '3.28', 'Pod::Perldoc::ToANSI' => '3.28', 'Pod::Perldoc::ToChecker'=> '3.28', 'Pod::Perldoc::ToMan' => '3.28', 'Pod::Perldoc::ToNroff' => '3.28', 'Pod::Perldoc::ToPod' => '3.28', 'Pod::Perldoc::ToRtf' => '3.28', 'Pod::Perldoc::ToTerm' => '3.28', 'Pod::Perldoc::ToText' => '3.28', 'Pod::Perldoc::ToTk' => '3.28', 'Pod::Perldoc::ToXml' => '3.28', 'TAP::Base' => '3.38', 'TAP::Formatter::Base' => '3.38', 'TAP::Formatter::Color' => '3.38', 'TAP::Formatter::Console'=> '3.38', 'TAP::Formatter::Console::ParallelSession'=> '3.38', 'TAP::Formatter::Console::Session'=> '3.38', 'TAP::Formatter::File' => '3.38', 'TAP::Formatter::File::Session'=> '3.38', 'TAP::Formatter::Session'=> '3.38', 'TAP::Harness' => '3.38', 'TAP::Harness::Env' => '3.38', 'TAP::Object' => '3.38', 'TAP::Parser' => '3.38', 'TAP::Parser::Aggregator'=> '3.38', 'TAP::Parser::Grammar' => '3.38', 'TAP::Parser::Iterator' => '3.38', 'TAP::Parser::Iterator::Array'=> '3.38', 'TAP::Parser::Iterator::Process'=> '3.38', 'TAP::Parser::Iterator::Stream'=> '3.38', 'TAP::Parser::IteratorFactory'=> '3.38', 'TAP::Parser::Multiplexer'=> '3.38', 'TAP::Parser::Result' => '3.38', 'TAP::Parser::Result::Bailout'=> '3.38', 'TAP::Parser::Result::Comment'=> '3.38', 'TAP::Parser::Result::Plan'=> '3.38', 'TAP::Parser::Result::Pragma'=> '3.38', 'TAP::Parser::Result::Test'=> '3.38', 'TAP::Parser::Result::Unknown'=> '3.38', 'TAP::Parser::Result::Version'=> '3.38', 'TAP::Parser::Result::YAML'=> '3.38', 'TAP::Parser::ResultFactory'=> '3.38', 'TAP::Parser::Scheduler'=> '3.38', 'TAP::Parser::Scheduler::Job'=> '3.38', 'TAP::Parser::Scheduler::Spinner'=> '3.38', 'TAP::Parser::Source' => '3.38', 'TAP::Parser::SourceHandler'=> '3.38', 'TAP::Parser::SourceHandler::Executable'=> '3.38', 'TAP::Parser::SourceHandler::File'=> '3.38', 'TAP::Parser::SourceHandler::Handle'=> '3.38', 'TAP::Parser::SourceHandler::Perl'=> '3.38', 'TAP::Parser::SourceHandler::RawTAP'=> '3.38', 'TAP::Parser::YAMLish::Reader'=> '3.38', 'TAP::Parser::YAMLish::Writer'=> '3.38', 'Test::Harness' => '3.38', 'VMS::Stdio' => '2.41', 'threads' => '2.15', 'threads::shared' => '1.55', }, removed => { } }, 5.025012 => { delta_from => 5.025011, changed => { 'B::Op_private' => '5.025012', 'CPAN' => '2.18', 'CPAN::Bundle' => '5.5003', 'CPAN::Distribution' => '2.18', 'Config' => '5.025012', 'DynaLoader' => '1.42', 'Module::CoreList' => '5.20170420', 'Module::CoreList::TieHashDelta'=> '5.20170420', 'Module::CoreList::Utils'=> '5.20170420', 'Safe' => '2.40', 'XSLoader' => '0.27', 'base' => '2.25', 'threads::shared' => '1.56', }, removed => { } }, 5.026000 => { delta_from => 5.025012, changed => { 'B::Op_private' => '5.026000', 'Config' => '5.026', 'Module::CoreList' => '5.20170530', 'Module::CoreList::TieHashDelta'=> '5.20170530', 'Module::CoreList::Utils'=> '5.20170530', }, removed => { } }, 5.027000 => { delta_from => 5.026000, changed => { 'Attribute::Handlers' => '1.00', 'B::Concise' => '1.000', 'B::Deparse' => '1.41', 'B::Op_private' => '5.027000', 'Config' => '5.027', 'Module::CoreList' => '5.20170531', 'Module::CoreList::TieHashDelta'=> '5.20170531', 'Module::CoreList::Utils'=> '5.20170531', 'O' => '1.02', 'attributes' => '0.3', 'feature' => '1.48', }, removed => { } }, 5.027001 => { delta_from => 5.027, changed => { 'App::Prove' => '3.39', 'App::Prove::State' => '3.39', 'App::Prove::State::Result'=> '3.39', 'App::Prove::State::Result::Test'=> '3.39', 'Archive::Tar' => '2.26', 'Archive::Tar::Constant'=> '2.26', 'Archive::Tar::File' => '2.26', 'B::Op_private' => '5.027001', 'B::Terse' => '1.08', 'Config' => '5.027001', 'Devel::PPPort' => '3.36', 'DirHandle' => '1.05', 'ExtUtils::Command' => '7.30', 'ExtUtils::Command::MM' => '7.30', 'ExtUtils::Install' => '2.14', 'ExtUtils::Installed' => '2.14', 'ExtUtils::Liblist' => '7.30', 'ExtUtils::Liblist::Kid'=> '7.30', 'ExtUtils::MM' => '7.30', 'ExtUtils::MM_AIX' => '7.30', 'ExtUtils::MM_Any' => '7.30', 'ExtUtils::MM_BeOS' => '7.30', 'ExtUtils::MM_Cygwin' => '7.30', 'ExtUtils::MM_DOS' => '7.30', 'ExtUtils::MM_Darwin' => '7.30', 'ExtUtils::MM_MacOS' => '7.30', 'ExtUtils::MM_NW5' => '7.30', 'ExtUtils::MM_OS2' => '7.30', 'ExtUtils::MM_QNX' => '7.30', 'ExtUtils::MM_UWIN' => '7.30', 'ExtUtils::MM_Unix' => '7.30', 'ExtUtils::MM_VMS' => '7.30', 'ExtUtils::MM_VOS' => '7.30', 'ExtUtils::MM_Win32' => '7.30', 'ExtUtils::MM_Win95' => '7.30', 'ExtUtils::MY' => '7.30', 'ExtUtils::MakeMaker' => '7.30', 'ExtUtils::MakeMaker::Config'=> '7.30', 'ExtUtils::MakeMaker::Locale'=> '7.30', 'ExtUtils::MakeMaker::version'=> '7.30', 'ExtUtils::MakeMaker::version::regex'=> '7.30', 'ExtUtils::Mkbootstrap' => '7.30', 'ExtUtils::Mksymlists' => '7.30', 'ExtUtils::Packlist' => '2.14', 'ExtUtils::testlib' => '7.30', 'File::Path' => '2.14', 'Filter::Util::Call' => '1.57', 'GDBM_File' => '1.16', 'Getopt::Long' => '2.5', 'IO::Socket::IP' => '0.39', 'IPC::Cmd' => '0.98', 'JSON::PP' => '2.94', 'JSON::PP::Boolean' => '2.94', 'Locale::Codes' => '3.52', 'Locale::Codes::Constants'=> '3.52', 'Locale::Codes::Country'=> '3.52', 'Locale::Codes::Country_Codes'=> '3.52', 'Locale::Codes::Country_Retired'=> '3.52', 'Locale::Codes::Currency'=> '3.52', 'Locale::Codes::Currency_Codes'=> '3.52', 'Locale::Codes::Currency_Retired'=> '3.52', 'Locale::Codes::LangExt'=> '3.52', 'Locale::Codes::LangExt_Codes'=> '3.52', 'Locale::Codes::LangExt_Retired'=> '3.52', 'Locale::Codes::LangFam'=> '3.52', 'Locale::Codes::LangFam_Codes'=> '3.52', 'Locale::Codes::LangFam_Retired'=> '3.52', 'Locale::Codes::LangVar'=> '3.52', 'Locale::Codes::LangVar_Codes'=> '3.52', 'Locale::Codes::LangVar_Retired'=> '3.52', 'Locale::Codes::Language'=> '3.52', 'Locale::Codes::Language_Codes'=> '3.52', 'Locale::Codes::Language_Retired'=> '3.52', 'Locale::Codes::Script' => '3.52', 'Locale::Codes::Script_Codes'=> '3.52', 'Locale::Codes::Script_Retired'=> '3.52', 'Locale::Country' => '3.52', 'Locale::Currency' => '3.52', 'Locale::Language' => '3.52', 'Locale::Script' => '3.52', 'Module::CoreList' => '5.20170621', 'Module::CoreList::TieHashDelta'=> '5.20170621', 'Module::CoreList::Utils'=> '5.20170621', 'PerlIO::scalar' => '0.27', 'PerlIO::via' => '0.17', 'Storable' => '2.63', 'TAP::Base' => '3.39', 'TAP::Formatter::Base' => '3.39', 'TAP::Formatter::Color' => '3.39', 'TAP::Formatter::Console'=> '3.39', 'TAP::Formatter::Console::ParallelSession'=> '3.39', 'TAP::Formatter::Console::Session'=> '3.39', 'TAP::Formatter::File' => '3.39', 'TAP::Formatter::File::Session'=> '3.39', 'TAP::Formatter::Session'=> '3.39', 'TAP::Harness' => '3.39', 'TAP::Harness::Env' => '3.39', 'TAP::Object' => '3.39', 'TAP::Parser' => '3.39', 'TAP::Parser::Aggregator'=> '3.39', 'TAP::Parser::Grammar' => '3.39', 'TAP::Parser::Iterator' => '3.39', 'TAP::Parser::Iterator::Array'=> '3.39', 'TAP::Parser::Iterator::Process'=> '3.39', 'TAP::Parser::Iterator::Stream'=> '3.39', 'TAP::Parser::IteratorFactory'=> '3.39', 'TAP::Parser::Multiplexer'=> '3.39', 'TAP::Parser::Result' => '3.39', 'TAP::Parser::Result::Bailout'=> '3.39', 'TAP::Parser::Result::Comment'=> '3.39', 'TAP::Parser::Result::Plan'=> '3.39', 'TAP::Parser::Result::Pragma'=> '3.39', 'TAP::Parser::Result::Test'=> '3.39', 'TAP::Parser::Result::Unknown'=> '3.39', 'TAP::Parser::Result::Version'=> '3.39', 'TAP::Parser::Result::YAML'=> '3.39', 'TAP::Parser::ResultFactory'=> '3.39', 'TAP::Parser::Scheduler'=> '3.39', 'TAP::Parser::Scheduler::Job'=> '3.39', 'TAP::Parser::Scheduler::Spinner'=> '3.39', 'TAP::Parser::Source' => '3.39', 'TAP::Parser::SourceHandler'=> '3.39', 'TAP::Parser::SourceHandler::Executable'=> '3.39', 'TAP::Parser::SourceHandler::File'=> '3.39', 'TAP::Parser::SourceHandler::Handle'=> '3.39', 'TAP::Parser::SourceHandler::Perl'=> '3.39', 'TAP::Parser::SourceHandler::RawTAP'=> '3.39', 'TAP::Parser::YAMLish::Reader'=> '3.39', 'TAP::Parser::YAMLish::Writer'=> '3.39', 'Test::Harness' => '3.39', 'XS::APItest' => '0.89', '_charnames' => '1.45', 'charnames' => '1.45', 'if' => '0.0607', 'mro' => '1.21', 'threads' => '2.16', 'threads::shared' => '1.57', 'version' => '0.9918', 'version::regex' => '0.9918', }, removed => { } }, 5.022004 => { delta_from => 5.022003, changed => { 'B::Op_private' => '5.022004', 'Config' => '5.022004', 'Module::CoreList' => '5.20170715_22', 'Module::CoreList::TieHashDelta'=> '5.20170715_22', 'Module::CoreList::Utils'=> '5.20170715_22', 'base' => '2.22_01', }, removed => { } }, 5.024002 => { delta_from => 5.024001, changed => { 'B::Op_private' => '5.024002', 'Config' => '5.024002', 'Module::CoreList' => '5.20170715_24', 'Module::CoreList::TieHashDelta'=> '5.20170715_24', 'Module::CoreList::Utils'=> '5.20170715_24', 'base' => '2.23_01', }, removed => { } }, 5.027002 => { delta_from => 5.027001, changed => { 'B::Op_private' => '5.027002', 'Carp' => '1.43', 'Carp::Heavy' => '1.43', 'Config' => '5.027002', 'Cwd' => '3.68', 'Encode' => '2.92', 'Encode::Alias' => '2.23', 'Encode::CN::HZ' => '2.09', 'Encode::Encoding' => '2.08', 'Encode::GSM0338' => '2.07', 'Encode::Guess' => '2.07', 'Encode::JP::JIS7' => '2.07', 'Encode::KR::2022_KR' => '2.04', 'Encode::MIME::Header' => '2.27', 'Encode::MIME::Header::ISO_2022_JP'=> '1.09', 'Encode::Unicode' => '2.16', 'Encode::Unicode::UTF7' => '2.10', 'ExtUtils::CBuilder' => '0.280228', 'ExtUtils::CBuilder::Base'=> '0.280228', 'ExtUtils::CBuilder::Platform::Unix'=> '0.280228', 'ExtUtils::CBuilder::Platform::VMS'=> '0.280228', 'ExtUtils::CBuilder::Platform::Windows'=> '0.280228', 'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280228', 'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280228', 'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280228', 'ExtUtils::CBuilder::Platform::aix'=> '0.280228', 'ExtUtils::CBuilder::Platform::android'=> '0.280228', 'ExtUtils::CBuilder::Platform::cygwin'=> '0.280228', 'ExtUtils::CBuilder::Platform::darwin'=> '0.280228', 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280228', 'ExtUtils::CBuilder::Platform::os2'=> '0.280228', 'File::Glob' => '1.29', 'File::Spec' => '3.68', 'File::Spec::AmigaOS' => '3.68', 'File::Spec::Cygwin' => '3.68', 'File::Spec::Epoc' => '3.68', 'File::Spec::Functions' => '3.68', 'File::Spec::Mac' => '3.68', 'File::Spec::OS2' => '3.68', 'File::Spec::Unix' => '3.68', 'File::Spec::VMS' => '3.68', 'File::Spec::Win32' => '3.68', 'List::Util' => '1.48', 'List::Util::XS' => '1.48', 'Math::BigRat' => '0.2613', 'Module::CoreList' => '5.20170720', 'Module::CoreList::TieHashDelta'=> '5.20170720', 'Module::CoreList::Utils'=> '5.20170720', 'Opcode' => '1.40', 'POSIX' => '1.77', 'PerlIO::scalar' => '0.29', 'Scalar::Util' => '1.48', 'Sub::Util' => '1.48', 'Time::HiRes' => '1.9743', 'Time::Piece' => '1.3201', 'Time::Seconds' => '1.3201', 'Unicode' => '10.0.0', 'XS::APItest' => '0.90', 'arybase' => '0.13', 'encoding' => '2.20', 'feature' => '1.49', 're' => '0.35', }, removed => { } }, 5.027003 => { delta_from => 5.027002, changed => { 'B' => '1.69', 'B::Concise' => '1.001', 'B::Debug' => '1.25', 'B::Deparse' => '1.42', 'B::Op_private' => '5.027003', 'Config' => '5.027003', 'Data::Dumper' => '2.167_02', 'Devel::Peek' => '1.27', 'ExtUtils::Constant' => '0.24', 'ExtUtils::Constant::Base'=> '0.06', 'ExtUtils::Constant::ProxySubs'=> '0.09', 'ExtUtils::Constant::Utils'=> '0.04', 'ExtUtils::ParseXS' => '3.35', 'ExtUtils::ParseXS::Constants'=> '3.35', 'ExtUtils::ParseXS::CountLines'=> '3.35', 'ExtUtils::ParseXS::Eval'=> '3.35', 'ExtUtils::ParseXS::Utilities'=> '3.35', 'ExtUtils::Typemaps' => '3.35', 'ExtUtils::Typemaps::Cmd'=> '3.35', 'ExtUtils::Typemaps::InputMap'=> '3.35', 'ExtUtils::Typemaps::OutputMap'=> '3.35', 'ExtUtils::Typemaps::Type'=> '3.35', 'Filter::Simple' => '0.94', 'Module::CoreList' => '5.20170821', 'Module::CoreList::TieHashDelta'=> '5.20170821', 'Module::CoreList::Utils'=> '5.20170821', 'SelfLoader' => '1.24', 'Storable' => '2.64', 'XS::APItest' => '0.91', 'base' => '2.26', 'threads' => '2.17', 'utf8' => '1.20', }, removed => { } }, 5.027004 => { delta_from => 5.027003, changed => { 'B::Op_private' => '5.027004', 'Config' => '5.027004', 'File::Glob' => '1.30', 'I18N::Langinfo' => '0.14', 'Module::CoreList' => '5.20170920', 'Module::CoreList::TieHashDelta'=> '5.20170920', 'Module::CoreList::Utils'=> '5.20170920', 'Term::ReadLine' => '1.17', 'VMS::Stdio' => '2.42', 'XS::APItest' => '0.92', 'attributes' => '0.31', 'sort' => '2.03', 'threads' => '2.18', }, removed => { } }, 5.024003 => { delta_from => 5.024002, changed => { 'B::Op_private' => '5.024003', 'Config' => '5.024003', 'Module::CoreList' => '5.20170922_24', 'Module::CoreList::TieHashDelta'=> '5.20170922_24', 'Module::CoreList::Utils'=> '5.20170922_24', 'POSIX' => '1.65_01', 'Time::HiRes' => '1.9741', }, removed => { } }, 5.026001 => { delta_from => 5.026000, changed => { 'B::Op_private' => '5.026001', 'Config' => '5.026001', 'Module::CoreList' => '5.20170922_26', 'Module::CoreList::TieHashDelta'=> '5.20170922_26', 'Module::CoreList::Utils'=> '5.20170922_26', '_charnames' => '1.45', 'base' => '2.26', 'charnames' => '1.45', }, removed => { } }, 5.027005 => { delta_from => 5.027004, changed => { 'B' => '1.70', 'B::Concise' => '1.002', 'B::Deparse' => '1.43', 'B::Op_private' => '5.027005', 'B::Xref' => '1.07', 'Config' => '5.027005', 'Config::Perl::V' => '0.29', 'Digest::SHA' => '5.98', 'Encode' => '2.93', 'Encode::CN::HZ' => '2.10', 'Encode::JP::JIS7' => '2.08', 'Encode::MIME::Header' => '2.28', 'Encode::MIME::Name' => '1.03', 'File::Fetch' => '0.54', 'File::Path' => '2.15', 'List::Util' => '1.49', 'List::Util::XS' => '1.49', 'Locale::Codes' => '3.54', 'Locale::Codes::Constants'=> '3.54', 'Locale::Codes::Country'=> '3.54', 'Locale::Codes::Country_Codes'=> '3.54', 'Locale::Codes::Country_Retired'=> '3.54', 'Locale::Codes::Currency'=> '3.54', 'Locale::Codes::Currency_Codes'=> '3.54', 'Locale::Codes::Currency_Retired'=> '3.54', 'Locale::Codes::LangExt'=> '3.54', 'Locale::Codes::LangExt_Codes'=> '3.54', 'Locale::Codes::LangExt_Retired'=> '3.54', 'Locale::Codes::LangFam'=> '3.54', 'Locale::Codes::LangFam_Codes'=> '3.54', 'Locale::Codes::LangFam_Retired'=> '3.54', 'Locale::Codes::LangVar'=> '3.54', 'Locale::Codes::LangVar_Codes'=> '3.54', 'Locale::Codes::LangVar_Retired'=> '3.54', 'Locale::Codes::Language'=> '3.54', 'Locale::Codes::Language_Codes'=> '3.54', 'Locale::Codes::Language_Retired'=> '3.54', 'Locale::Codes::Script' => '3.54', 'Locale::Codes::Script_Codes'=> '3.54', 'Locale::Codes::Script_Retired'=> '3.54', 'Locale::Country' => '3.54', 'Locale::Currency' => '3.54', 'Locale::Language' => '3.54', 'Locale::Script' => '3.54', 'Math::BigFloat' => '1.999811', 'Math::BigInt' => '1.999811', 'Math::BigInt::Calc' => '1.999811', 'Math::BigInt::CalcEmu' => '1.999811', 'Math::BigInt::FastCalc'=> '0.5006', 'Math::BigInt::Lib' => '1.999811', 'Module::CoreList' => '5.20171020', 'Module::CoreList::TieHashDelta'=> '5.20171020', 'Module::CoreList::Utils'=> '5.20171020', 'NEXT' => '0.67_01', 'POSIX' => '1.78', 'Pod::Perldoc' => '3.2801', 'Scalar::Util' => '1.49', 'Sub::Util' => '1.49', 'Sys::Hostname' => '1.21', 'Test2' => '1.302103', 'Test2::API' => '1.302103', 'Test2::API::Breakage' => '1.302103', 'Test2::API::Context' => '1.302103', 'Test2::API::Instance' => '1.302103', 'Test2::API::Stack' => '1.302103', 'Test2::Event' => '1.302103', 'Test2::Event::Bail' => '1.302103', 'Test2::Event::Diag' => '1.302103', 'Test2::Event::Encoding'=> '1.302103', 'Test2::Event::Exception'=> '1.302103', 'Test2::Event::Fail' => '1.302103', 'Test2::Event::Generic' => '1.302103', 'Test2::Event::Note' => '1.302103', 'Test2::Event::Ok' => '1.302103', 'Test2::Event::Pass' => '1.302103', 'Test2::Event::Plan' => '1.302103', 'Test2::Event::Skip' => '1.302103', 'Test2::Event::Subtest' => '1.302103', 'Test2::Event::TAP::Version'=> '1.302103', 'Test2::Event::Waiting' => '1.302103', 'Test2::EventFacet' => '1.302103', 'Test2::EventFacet::About'=> '1.302103', 'Test2::EventFacet::Amnesty'=> '1.302103', 'Test2::EventFacet::Assert'=> '1.302103', 'Test2::EventFacet::Control'=> '1.302103', 'Test2::EventFacet::Error'=> '1.302103', 'Test2::EventFacet::Info'=> '1.302103', 'Test2::EventFacet::Meta'=> '1.302103', 'Test2::EventFacet::Parent'=> '1.302103', 'Test2::EventFacet::Plan'=> '1.302103', 'Test2::EventFacet::Trace'=> '1.302103', 'Test2::Formatter' => '1.302103', 'Test2::Formatter::TAP' => '1.302103', 'Test2::Hub' => '1.302103', 'Test2::Hub::Interceptor'=> '1.302103', 'Test2::Hub::Interceptor::Terminator'=> '1.302103', 'Test2::Hub::Subtest' => '1.302103', 'Test2::IPC' => '1.302103', 'Test2::IPC::Driver' => '1.302103', 'Test2::IPC::Driver::Files'=> '1.302103', 'Test2::Tools::Tiny' => '1.302103', 'Test2::Util' => '1.302103', 'Test2::Util::ExternalMeta'=> '1.302103', 'Test2::Util::Facets2Legacy'=> '1.302103', 'Test2::Util::HashBase' => '0.005', 'Test2::Util::Trace' => '1.302103', 'Test::Builder' => '1.302103', 'Test::Builder::Formatter'=> '1.302103', 'Test::Builder::IO::Scalar'=> '2.114', 'Test::Builder::Module' => '1.302103', 'Test::Builder::Tester' => '1.302103', 'Test::Builder::Tester::Color'=> '1.302103', 'Test::Builder::TodoDiag'=> '1.302103', 'Test::More' => '1.302103', 'Test::Simple' => '1.302103', 'Test::Tester' => '1.302103', 'Test::Tester::Capture' => '1.302103', 'Test::Tester::CaptureRunner'=> '1.302103', 'Test::Tester::Delegate'=> '1.302103', 'Test::use::ok' => '1.302103', 'Time::HiRes' => '1.9746', 'Time::Piece' => '1.3202', 'Time::Seconds' => '1.3202', 'arybase' => '0.14', 'encoding' => '2.21', 'ok' => '1.302103', }, removed => { 'Test2::Event::Info' => 1, } }, 5.027006 => { delta_from => 5.027005, changed => { 'Attribute::Handlers' => '1.01', 'B' => '1.72', 'B::Concise' => '1.003', 'B::Deparse' => '1.45', 'B::Op_private' => '5.027006', 'Carp' => '1.44', 'Carp::Heavy' => '1.44', 'Compress::Raw::Zlib' => '2.075', 'Config' => '5.027006', 'Config::Extensions' => '0.02', 'Cwd' => '3.70', 'DynaLoader' => '1.44', 'ExtUtils::CBuilder' => '0.280229', 'ExtUtils::CBuilder::Platform::Unix'=> '0.280229', 'ExtUtils::CBuilder::Platform::VMS'=> '0.280229', 'ExtUtils::CBuilder::Platform::Windows'=> '0.280229', 'ExtUtils::CBuilder::Platform::aix'=> '0.280229', 'ExtUtils::CBuilder::Platform::android'=> '0.280229', 'ExtUtils::CBuilder::Platform::cygwin'=> '0.280229', 'ExtUtils::CBuilder::Platform::darwin'=> '0.280229', 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280229', 'ExtUtils::CBuilder::Platform::os2'=> '0.280229', 'ExtUtils::Embed' => '1.35', 'ExtUtils::Miniperl' => '1.07', 'ExtUtils::ParseXS' => '3.36', 'ExtUtils::ParseXS::Constants'=> '3.36', 'ExtUtils::ParseXS::CountLines'=> '3.36', 'ExtUtils::ParseXS::Eval'=> '3.36', 'ExtUtils::ParseXS::Utilities'=> '3.36', 'ExtUtils::Typemaps' => '3.36', 'ExtUtils::Typemaps::Cmd'=> '3.36', 'ExtUtils::Typemaps::InputMap'=> '3.36', 'ExtUtils::Typemaps::OutputMap'=> '3.36', 'ExtUtils::Typemaps::Type'=> '3.36', 'ExtUtils::XSSymSet' => '1.4', 'File::Copy' => '2.33', 'File::Spec' => '3.69', 'File::Spec::AmigaOS' => '3.69', 'File::Spec::Cygwin' => '3.69', 'File::Spec::Epoc' => '3.69', 'File::Spec::Functions' => '3.69', 'File::Spec::Mac' => '3.69', 'File::Spec::OS2' => '3.69', 'File::Spec::Unix' => '3.69', 'File::Spec::VMS' => '3.69', 'File::Spec::Win32' => '3.69', 'File::stat' => '1.08', 'FileCache' => '1.10', 'Filter::Simple' => '0.95', 'Hash::Util::FieldHash' => '1.20', 'I18N::LangTags' => '0.43', 'I18N::LangTags::Detect'=> '1.07', 'I18N::LangTags::List' => '0.40', 'I18N::Langinfo' => '0.15', 'IO::Handle' => '1.37', 'IO::Select' => '1.23', 'Locale::Maketext' => '1.29', 'Module::CoreList' => '5.20171120', 'Module::CoreList::TieHashDelta'=> '5.20171120', 'Module::CoreList::Utils'=> '5.20171120', 'Net::Cmd' => '3.11', 'Net::Config' => '3.11', 'Net::Domain' => '3.11', 'Net::FTP' => '3.11', 'Net::FTP::A' => '3.11', 'Net::FTP::E' => '3.11', 'Net::FTP::I' => '3.11', 'Net::FTP::L' => '3.11', 'Net::FTP::dataconn' => '3.11', 'Net::NNTP' => '3.11', 'Net::Netrc' => '3.11', 'Net::POP3' => '3.11', 'Net::Ping' => '2.62', 'Net::SMTP' => '3.11', 'Net::Time' => '3.11', 'Net::hostent' => '1.02', 'Net::netent' => '1.01', 'Net::protoent' => '1.01', 'Net::servent' => '1.02', 'O' => '1.03', 'ODBM_File' => '1.15', 'Opcode' => '1.41', 'POSIX' => '1.80', 'Pod::Html' => '1.2203', 'SelfLoader' => '1.25', 'Socket' => '2.020_04', 'Storable' => '2.65', 'Test' => '1.31', 'Test2' => '1.302111', 'Test2::API' => '1.302111', 'Test2::API::Breakage' => '1.302111', 'Test2::API::Context' => '1.302111', 'Test2::API::Instance' => '1.302111', 'Test2::API::Stack' => '1.302111', 'Test2::Event' => '1.302111', 'Test2::Event::Bail' => '1.302111', 'Test2::Event::Diag' => '1.302111', 'Test2::Event::Encoding'=> '1.302111', 'Test2::Event::Exception'=> '1.302111', 'Test2::Event::Fail' => '1.302111', 'Test2::Event::Generic' => '1.302111', 'Test2::Event::Note' => '1.302111', 'Test2::Event::Ok' => '1.302111', 'Test2::Event::Pass' => '1.302111', 'Test2::Event::Plan' => '1.302111', 'Test2::Event::Skip' => '1.302111', 'Test2::Event::Subtest' => '1.302111', 'Test2::Event::TAP::Version'=> '1.302111', 'Test2::Event::Waiting' => '1.302111', 'Test2::EventFacet' => '1.302111', 'Test2::EventFacet::About'=> '1.302111', 'Test2::EventFacet::Amnesty'=> '1.302111', 'Test2::EventFacet::Assert'=> '1.302111', 'Test2::EventFacet::Control'=> '1.302111', 'Test2::EventFacet::Error'=> '1.302111', 'Test2::EventFacet::Info'=> '1.302111', 'Test2::EventFacet::Meta'=> '1.302111', 'Test2::EventFacet::Parent'=> '1.302111', 'Test2::EventFacet::Plan'=> '1.302111', 'Test2::EventFacet::Trace'=> '1.302111', 'Test2::Formatter' => '1.302111', 'Test2::Formatter::TAP' => '1.302111', 'Test2::Hub' => '1.302111', 'Test2::Hub::Interceptor'=> '1.302111', 'Test2::Hub::Interceptor::Terminator'=> '1.302111', 'Test2::Hub::Subtest' => '1.302111', 'Test2::IPC' => '1.302111', 'Test2::IPC::Driver' => '1.302111', 'Test2::IPC::Driver::Files'=> '1.302111', 'Test2::Tools::Tiny' => '1.302111', 'Test2::Util' => '1.302111', 'Test2::Util::ExternalMeta'=> '1.302111', 'Test2::Util::Facets2Legacy'=> '1.302111', 'Test2::Util::HashBase' => '1.302111', 'Test2::Util::Trace' => '1.302111', 'Test::Builder' => '1.302111', 'Test::Builder::Formatter'=> '1.302111', 'Test::Builder::Module' => '1.302111', 'Test::Builder::Tester' => '1.302111', 'Test::Builder::Tester::Color'=> '1.302111', 'Test::Builder::TodoDiag'=> '1.302111', 'Test::More' => '1.302111', 'Test::Simple' => '1.302111', 'Test::Tester' => '1.302111', 'Test::Tester::Capture' => '1.302111', 'Test::Tester::CaptureRunner'=> '1.302111', 'Test::Tester::Delegate'=> '1.302111', 'Test::use::ok' => '1.302111', 'Tie::Array' => '1.07', 'Tie::StdHandle' => '4.5', 'Time::HiRes' => '1.9747', 'Time::gmtime' => '1.04', 'Time::localtime' => '1.03', 'Unicode::Collate' => '1.23', 'Unicode::Collate::CJK::Big5'=> '1.23', 'Unicode::Collate::CJK::GB2312'=> '1.23', 'Unicode::Collate::CJK::JISX0208'=> '1.23', 'Unicode::Collate::CJK::Korean'=> '1.23', 'Unicode::Collate::CJK::Pinyin'=> '1.23', 'Unicode::Collate::CJK::Stroke'=> '1.23', 'Unicode::Collate::CJK::Zhuyin'=> '1.23', 'Unicode::Collate::Locale'=> '1.23', 'Unicode::Normalize' => '1.26', 'User::grent' => '1.02', 'User::pwent' => '1.01', 'VMS::DCLsym' => '1.09', 'VMS::Stdio' => '2.44', 'XS::APItest' => '0.93', 'XS::Typemap' => '0.16', 'XSLoader' => '0.28', 'attributes' => '0.32', 'base' => '2.27', 'blib' => '1.07', 'experimental' => '0.017', 'fields' => '2.24', 'ok' => '1.302111', 're' => '0.36', 'sort' => '2.04', 'threads' => '2.19', 'warnings' => '1.38', }, removed => { } }, 5.027007 => { delta_from => 5.027006, changed => { 'App::Cpan' => '1.67', 'B' => '1.73', 'B::Debug' => '1.26', 'B::Deparse' => '1.46', 'B::Op_private' => '5.027007', 'CPAN' => '2.20', 'CPAN::Distribution' => '2.19', 'CPAN::FTP' => '5.5011', 'CPAN::FirstTime' => '5.5311', 'CPAN::Shell' => '5.5007', 'Carp' => '1.45', 'Carp::Heavy' => '1.45', 'Compress::Raw::Zlib' => '2.076', 'Config' => '5.027007', 'Cwd' => '3.71', 'Data::Dumper' => '2.169', 'Devel::PPPort' => '3.37', 'Digest::SHA' => '6.00', 'DynaLoader' => '1.45', 'ExtUtils::CBuilder' => '0.280230', 'ExtUtils::CBuilder::Base'=> '0.280230', 'ExtUtils::CBuilder::Platform::Unix'=> '0.280230', 'ExtUtils::CBuilder::Platform::VMS'=> '0.280230', 'ExtUtils::CBuilder::Platform::Windows'=> '0.280230', 'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280230', 'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280230', 'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280230', 'ExtUtils::CBuilder::Platform::aix'=> '0.280230', 'ExtUtils::CBuilder::Platform::android'=> '0.280230', 'ExtUtils::CBuilder::Platform::cygwin'=> '0.280230', 'ExtUtils::CBuilder::Platform::darwin'=> '0.280230', 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280230', 'ExtUtils::CBuilder::Platform::os2'=> '0.280230', 'ExtUtils::Typemaps' => '3.37', 'File::Fetch' => '0.56', 'File::Spec' => '3.71', 'File::Spec::AmigaOS' => '3.71', 'File::Spec::Cygwin' => '3.71', 'File::Spec::Epoc' => '3.71', 'File::Spec::Functions' => '3.71', 'File::Spec::Mac' => '3.71', 'File::Spec::OS2' => '3.71', 'File::Spec::Unix' => '3.71', 'File::Spec::VMS' => '3.71', 'File::Spec::Win32' => '3.71', 'Filter::Util::Call' => '1.58', 'GDBM_File' => '1.17', 'JSON::PP' => '2.97000', 'JSON::PP::Boolean' => '2.97000', 'Locale::Codes' => '3.55', 'Locale::Codes::Constants'=> '3.55', 'Locale::Codes::Country'=> '3.55', 'Locale::Codes::Country_Codes'=> '3.55', 'Locale::Codes::Country_Retired'=> '3.55', 'Locale::Codes::Currency'=> '3.55', 'Locale::Codes::Currency_Codes'=> '3.55', 'Locale::Codes::Currency_Retired'=> '3.55', 'Locale::Codes::LangExt'=> '3.55', 'Locale::Codes::LangExt_Codes'=> '3.55', 'Locale::Codes::LangExt_Retired'=> '3.55', 'Locale::Codes::LangFam'=> '3.55', 'Locale::Codes::LangFam_Codes'=> '3.55', 'Locale::Codes::LangFam_Retired'=> '3.55', 'Locale::Codes::LangVar'=> '3.55', 'Locale::Codes::LangVar_Codes'=> '3.55', 'Locale::Codes::LangVar_Retired'=> '3.55', 'Locale::Codes::Language'=> '3.55', 'Locale::Codes::Language_Codes'=> '3.55', 'Locale::Codes::Language_Retired'=> '3.55', 'Locale::Codes::Script' => '3.55', 'Locale::Codes::Script_Codes'=> '3.55', 'Locale::Codes::Script_Retired'=> '3.55', 'Locale::Country' => '3.55', 'Locale::Currency' => '3.55', 'Locale::Language' => '3.55', 'Locale::Script' => '3.55', 'Module::CoreList' => '5.20171220', 'Module::CoreList::TieHashDelta'=> '5.20171220', 'Module::CoreList::Utils'=> '5.20171220', 'Opcode' => '1.42', 'POSIX' => '1.81', 'Pod::Functions' => '1.12', 'Pod::Functions::Functions'=> '1.12', 'Pod::Html' => '1.23', 'Sys::Hostname' => '1.22', 'Test2' => '1.302120', 'Test2::API' => '1.302120', 'Test2::API::Breakage' => '1.302120', 'Test2::API::Context' => '1.302120', 'Test2::API::Instance' => '1.302120', 'Test2::API::Stack' => '1.302120', 'Test2::Event' => '1.302120', 'Test2::Event::Bail' => '1.302120', 'Test2::Event::Diag' => '1.302120', 'Test2::Event::Encoding'=> '1.302120', 'Test2::Event::Exception'=> '1.302120', 'Test2::Event::Fail' => '1.302120', 'Test2::Event::Generic' => '1.302120', 'Test2::Event::Note' => '1.302120', 'Test2::Event::Ok' => '1.302120', 'Test2::Event::Pass' => '1.302120', 'Test2::Event::Plan' => '1.302120', 'Test2::Event::Skip' => '1.302120', 'Test2::Event::Subtest' => '1.302120', 'Test2::Event::TAP::Version'=> '1.302120', 'Test2::Event::Waiting' => '1.302120', 'Test2::EventFacet' => '1.302120', 'Test2::EventFacet::About'=> '1.302120', 'Test2::EventFacet::Amnesty'=> '1.302120', 'Test2::EventFacet::Assert'=> '1.302120', 'Test2::EventFacet::Control'=> '1.302120', 'Test2::EventFacet::Error'=> '1.302120', 'Test2::EventFacet::Info'=> '1.302120', 'Test2::EventFacet::Meta'=> '1.302120', 'Test2::EventFacet::Parent'=> '1.302120', 'Test2::EventFacet::Plan'=> '1.302120', 'Test2::EventFacet::Trace'=> '1.302120', 'Test2::Formatter' => '1.302120', 'Test2::Formatter::TAP' => '1.302120', 'Test2::Hub' => '1.302120', 'Test2::Hub::Interceptor'=> '1.302120', 'Test2::Hub::Interceptor::Terminator'=> '1.302120', 'Test2::Hub::Subtest' => '1.302120', 'Test2::IPC' => '1.302120', 'Test2::IPC::Driver' => '1.302120', 'Test2::IPC::Driver::Files'=> '1.302120', 'Test2::Tools::Tiny' => '1.302120', 'Test2::Util' => '1.302120', 'Test2::Util::ExternalMeta'=> '1.302120', 'Test2::Util::Facets2Legacy'=> '1.302120', 'Test2::Util::HashBase' => '1.302120', 'Test2::Util::Trace' => '1.302120', 'Test::Builder' => '1.302120', 'Test::Builder::Formatter'=> '1.302120', 'Test::Builder::Module' => '1.302120', 'Test::Builder::Tester' => '1.302120', 'Test::Builder::Tester::Color'=> '1.302120', 'Test::Builder::TodoDiag'=> '1.302120', 'Test::More' => '1.302120', 'Test::Simple' => '1.302120', 'Test::Tester' => '1.302120', 'Test::Tester::Capture' => '1.302120', 'Test::Tester::CaptureRunner'=> '1.302120', 'Test::Tester::Delegate'=> '1.302120', 'Test::use::ok' => '1.302120', 'Time::HiRes' => '1.9748', 'Time::Piece' => '1.3203', 'Time::Seconds' => '1.3203', 'Unicode::Collate' => '1.25', 'Unicode::Collate::CJK::Big5'=> '1.25', 'Unicode::Collate::CJK::GB2312'=> '1.25', 'Unicode::Collate::CJK::JISX0208'=> '1.25', 'Unicode::Collate::CJK::Korean'=> '1.25', 'Unicode::Collate::CJK::Pinyin'=> '1.25', 'Unicode::Collate::CJK::Stroke'=> '1.25', 'Unicode::Collate::CJK::Zhuyin'=> '1.25', 'Unicode::Collate::Locale'=> '1.25', 'Unicode::UCD' => '0.69', 'XS::APItest' => '0.94', 'XSLoader' => '0.29', 'arybase' => '0.15', 'autodie::exception' => '2.29001', 'autodie::hints' => '2.29001', 'experimental' => '0.019', 'feature' => '1.50', 'ok' => '1.302120', 'overload' => '1.29', 'threads' => '2.21', 'threads::shared' => '1.58', 'warnings' => '1.39', }, removed => { } }, 5.027008 => { delta_from => 5.027007, changed => { 'B' => '1.74', 'B::Deparse' => '1.47', 'B::Op_private' => '5.027008', 'Config' => '5.027008', 'Cwd' => '3.72', 'Data::Dumper' => '2.170', 'Devel::PPPort' => '3.38', 'Digest::SHA' => '6.01', 'Encode' => '2.94', 'Encode::Alias' => '2.24', 'ExtUtils::Miniperl' => '1.08', 'File::Spec' => '3.72', 'File::Spec::AmigaOS' => '3.72', 'File::Spec::Cygwin' => '3.72', 'File::Spec::Epoc' => '3.72', 'File::Spec::Functions' => '3.72', 'File::Spec::Mac' => '3.72', 'File::Spec::OS2' => '3.72', 'File::Spec::Unix' => '3.72', 'File::Spec::VMS' => '3.72', 'File::Spec::Win32' => '3.72', 'JSON::PP' => '2.97001', 'JSON::PP::Boolean' => '2.97001', 'Module::CoreList' => '5.20180120', 'Module::CoreList::TieHashDelta'=> '5.20180120', 'Module::CoreList::Utils'=> '5.20180120', 'Opcode' => '1.43', 'Pod::Functions' => '1.13', 'Pod::Functions::Functions'=> '1.13', 'Pod::Html' => '1.24', 'Pod::Man' => '4.10', 'Pod::ParseLink' => '4.10', 'Pod::Text' => '4.10', 'Pod::Text::Color' => '4.10', 'Pod::Text::Overstrike' => '4.10', 'Pod::Text::Termcap' => '4.10', 'Socket' => '2.027', 'Time::HiRes' => '1.9752', 'Unicode::UCD' => '0.70', 'XS::APItest' => '0.95', 'XSLoader' => '0.30', 'autodie::exception' => '2.29002', 'feature' => '1.51', 'overload' => '1.30', 'utf8' => '1.21', 'warnings' => '1.40', }, removed => { } }, 5.027009 => { delta_from => 5.027008, changed => { 'B::Op_private' => '5.027009', 'Carp' => '1.46', 'Carp::Heavy' => '1.46', 'Config' => '5.027009', 'Cwd' => '3.74', 'Devel::PPPort' => '3.39', 'Encode' => '2.96', 'Encode::Unicode' => '2.17', 'Errno' => '1.29', 'ExtUtils::Command' => '7.32', 'ExtUtils::Command::MM' => '7.32', 'ExtUtils::Liblist' => '7.32', 'ExtUtils::Liblist::Kid'=> '7.32', 'ExtUtils::MM' => '7.32', 'ExtUtils::MM_AIX' => '7.32', 'ExtUtils::MM_Any' => '7.32', 'ExtUtils::MM_BeOS' => '7.32', 'ExtUtils::MM_Cygwin' => '7.32', 'ExtUtils::MM_DOS' => '7.32', 'ExtUtils::MM_Darwin' => '7.32', 'ExtUtils::MM_MacOS' => '7.32', 'ExtUtils::MM_NW5' => '7.32', 'ExtUtils::MM_OS2' => '7.32', 'ExtUtils::MM_QNX' => '7.32', 'ExtUtils::MM_UWIN' => '7.32', 'ExtUtils::MM_Unix' => '7.32', 'ExtUtils::MM_VMS' => '7.32', 'ExtUtils::MM_VOS' => '7.32', 'ExtUtils::MM_Win32' => '7.32', 'ExtUtils::MM_Win95' => '7.32', 'ExtUtils::MY' => '7.32', 'ExtUtils::MakeMaker' => '7.32', 'ExtUtils::MakeMaker::Config'=> '7.32', 'ExtUtils::MakeMaker::Locale'=> '7.32', 'ExtUtils::MakeMaker::version'=> '7.32', 'ExtUtils::MakeMaker::version::regex'=> '7.32', 'ExtUtils::Mkbootstrap' => '7.32', 'ExtUtils::Mksymlists' => '7.32', 'ExtUtils::ParseXS' => '3.38', 'ExtUtils::ParseXS::Constants'=> '3.38', 'ExtUtils::ParseXS::CountLines'=> '3.38', 'ExtUtils::ParseXS::Eval'=> '3.38', 'ExtUtils::ParseXS::Utilities'=> '3.38', 'ExtUtils::Typemaps' => '3.38', 'ExtUtils::Typemaps::Cmd'=> '3.38', 'ExtUtils::Typemaps::InputMap'=> '3.38', 'ExtUtils::Typemaps::OutputMap'=> '3.38', 'ExtUtils::Typemaps::Type'=> '3.38', 'ExtUtils::testlib' => '7.32', 'File::Spec' => '3.74', 'File::Spec::AmigaOS' => '3.74', 'File::Spec::Cygwin' => '3.74', 'File::Spec::Epoc' => '3.74', 'File::Spec::Functions' => '3.74', 'File::Spec::Mac' => '3.74', 'File::Spec::OS2' => '3.74', 'File::Spec::Unix' => '3.74', 'File::Spec::VMS' => '3.74', 'File::Spec::Win32' => '3.74', 'IPC::Cmd' => '1.00', 'Math::BigFloat::Trace' => '0.49', 'Math::BigInt::Trace' => '0.49', 'Module::CoreList' => '5.20180220', 'Module::CoreList::Utils'=> '5.20180220', 'POSIX' => '1.82', 'PerlIO::encoding' => '0.26', 'Storable' => '3.06', 'Storable::Limit' => undef, 'Test2' => '1.302122', 'Test2::API' => '1.302122', 'Test2::API::Breakage' => '1.302122', 'Test2::API::Context' => '1.302122', 'Test2::API::Instance' => '1.302122', 'Test2::API::Stack' => '1.302122', 'Test2::Event' => '1.302122', 'Test2::Event::Bail' => '1.302122', 'Test2::Event::Diag' => '1.302122', 'Test2::Event::Encoding'=> '1.302122', 'Test2::Event::Exception'=> '1.302122', 'Test2::Event::Fail' => '1.302122', 'Test2::Event::Generic' => '1.302122', 'Test2::Event::Note' => '1.302122', 'Test2::Event::Ok' => '1.302122', 'Test2::Event::Pass' => '1.302122', 'Test2::Event::Plan' => '1.302122', 'Test2::Event::Skip' => '1.302122', 'Test2::Event::Subtest' => '1.302122', 'Test2::Event::TAP::Version'=> '1.302122', 'Test2::Event::Waiting' => '1.302122', 'Test2::EventFacet' => '1.302122', 'Test2::EventFacet::About'=> '1.302122', 'Test2::EventFacet::Amnesty'=> '1.302122', 'Test2::EventFacet::Assert'=> '1.302122', 'Test2::EventFacet::Control'=> '1.302122', 'Test2::EventFacet::Error'=> '1.302122', 'Test2::EventFacet::Info'=> '1.302122', 'Test2::EventFacet::Meta'=> '1.302122', 'Test2::EventFacet::Parent'=> '1.302122', 'Test2::EventFacet::Plan'=> '1.302122', 'Test2::EventFacet::Render'=> '1.302122', 'Test2::EventFacet::Trace'=> '1.302122', 'Test2::Formatter' => '1.302122', 'Test2::Formatter::TAP' => '1.302122', 'Test2::Hub' => '1.302122', 'Test2::Hub::Interceptor'=> '1.302122', 'Test2::Hub::Interceptor::Terminator'=> '1.302122', 'Test2::Hub::Subtest' => '1.302122', 'Test2::IPC' => '1.302122', 'Test2::IPC::Driver' => '1.302122', 'Test2::IPC::Driver::Files'=> '1.302122', 'Test2::Tools::Tiny' => '1.302122', 'Test2::Util' => '1.302122', 'Test2::Util::ExternalMeta'=> '1.302122', 'Test2::Util::Facets2Legacy'=> '1.302122', 'Test2::Util::HashBase' => '1.302122', 'Test2::Util::Trace' => '1.302122', 'Test::Builder' => '1.302122', 'Test::Builder::Formatter'=> '1.302122', 'Test::Builder::Module' => '1.302122', 'Test::Builder::Tester' => '1.302122', 'Test::Builder::Tester::Color'=> '1.302122', 'Test::Builder::TodoDiag'=> '1.302122', 'Test::More' => '1.302122', 'Test::Simple' => '1.302122', 'Test::Tester' => '1.302122', 'Test::Tester::Capture' => '1.302122', 'Test::Tester::CaptureRunner'=> '1.302122', 'Test::Tester::Delegate'=> '1.302122', 'Test::use::ok' => '1.302122', 'Time::HiRes' => '1.9753', 'XS::APItest' => '0.96', 'bigint' => '0.49', 'bignum' => '0.49', 'bigrat' => '0.49', 'encoding' => '2.22', 'if' => '0.0608', 'mro' => '1.22', 'ok' => '1.302122', 'threads' => '2.22', 'warnings' => '1.41', }, removed => { 'Module::CoreList::TieHashDelta'=> 1, } }, 5.027010 => { delta_from => 5.027009, changed => { 'App::Prove' => '3.42', 'App::Prove::State' => '3.42', 'App::Prove::State::Result'=> '3.42', 'App::Prove::State::Result::Test'=> '3.42', 'B::Deparse' => '1.48', 'B::Op_private' => '5.027010', 'Carp' => '1.49', 'Carp::Heavy' => '1.49', 'Config' => '5.02701', 'Encode' => '2.97', 'ExtUtils::Command' => '7.34', 'ExtUtils::Command::MM' => '7.34', 'ExtUtils::Liblist' => '7.34', 'ExtUtils::Liblist::Kid'=> '7.34', 'ExtUtils::MM' => '7.34', 'ExtUtils::MM_AIX' => '7.34', 'ExtUtils::MM_Any' => '7.34', 'ExtUtils::MM_BeOS' => '7.34', 'ExtUtils::MM_Cygwin' => '7.34', 'ExtUtils::MM_DOS' => '7.34', 'ExtUtils::MM_Darwin' => '7.34', 'ExtUtils::MM_MacOS' => '7.34', 'ExtUtils::MM_NW5' => '7.34', 'ExtUtils::MM_OS2' => '7.34', 'ExtUtils::MM_QNX' => '7.34', 'ExtUtils::MM_UWIN' => '7.34', 'ExtUtils::MM_Unix' => '7.34', 'ExtUtils::MM_VMS' => '7.34', 'ExtUtils::MM_VOS' => '7.34', 'ExtUtils::MM_Win32' => '7.34', 'ExtUtils::MM_Win95' => '7.34', 'ExtUtils::MY' => '7.34', 'ExtUtils::MakeMaker' => '7.34', 'ExtUtils::MakeMaker::Config'=> '7.34', 'ExtUtils::MakeMaker::Locale'=> '7.34', 'ExtUtils::MakeMaker::version'=> '7.34', 'ExtUtils::MakeMaker::version::regex'=> '7.34', 'ExtUtils::Mkbootstrap' => '7.34', 'ExtUtils::Mksymlists' => '7.34', 'ExtUtils::ParseXS' => '3.39', 'ExtUtils::ParseXS::Constants'=> '3.39', 'ExtUtils::ParseXS::CountLines'=> '3.39', 'ExtUtils::ParseXS::Eval'=> '3.39', 'ExtUtils::ParseXS::Utilities'=> '3.39', 'ExtUtils::testlib' => '7.34', 'File::Glob' => '1.31', 'I18N::Langinfo' => '0.16', 'List::Util' => '1.50', 'List::Util::XS' => '1.50', 'Locale::Codes' => '3.56', 'Locale::Codes::Constants'=> '3.56', 'Locale::Codes::Country'=> '3.56', 'Locale::Codes::Country_Codes'=> '3.56', 'Locale::Codes::Country_Retired'=> '3.56', 'Locale::Codes::Currency'=> '3.56', 'Locale::Codes::Currency_Codes'=> '3.56', 'Locale::Codes::Currency_Retired'=> '3.56', 'Locale::Codes::LangExt'=> '3.56', 'Locale::Codes::LangExt_Codes'=> '3.56', 'Locale::Codes::LangExt_Retired'=> '3.56', 'Locale::Codes::LangFam'=> '3.56', 'Locale::Codes::LangFam_Codes'=> '3.56', 'Locale::Codes::LangFam_Retired'=> '3.56', 'Locale::Codes::LangVar'=> '3.56', 'Locale::Codes::LangVar_Codes'=> '3.56', 'Locale::Codes::LangVar_Retired'=> '3.56', 'Locale::Codes::Language'=> '3.56', 'Locale::Codes::Language_Codes'=> '3.56', 'Locale::Codes::Language_Retired'=> '3.56', 'Locale::Codes::Script' => '3.56', 'Locale::Codes::Script_Codes'=> '3.56', 'Locale::Codes::Script_Retired'=> '3.56', 'Locale::Country' => '3.56', 'Locale::Currency' => '3.56', 'Locale::Language' => '3.56', 'Locale::Script' => '3.56', 'Module::CoreList' => '5.20180221', 'Module::CoreList::Utils'=> '5.20180221', 'POSIX' => '1.83', 'Scalar::Util' => '1.50', 'Sub::Util' => '1.50', 'TAP::Base' => '3.42', 'TAP::Formatter::Base' => '3.42', 'TAP::Formatter::Color' => '3.42', 'TAP::Formatter::Console'=> '3.42', 'TAP::Formatter::Console::ParallelSession'=> '3.42', 'TAP::Formatter::Console::Session'=> '3.42', 'TAP::Formatter::File' => '3.42', 'TAP::Formatter::File::Session'=> '3.42', 'TAP::Formatter::Session'=> '3.42', 'TAP::Harness' => '3.42', 'TAP::Harness::Env' => '3.42', 'TAP::Object' => '3.42', 'TAP::Parser' => '3.42', 'TAP::Parser::Aggregator'=> '3.42', 'TAP::Parser::Grammar' => '3.42', 'TAP::Parser::Iterator' => '3.42', 'TAP::Parser::Iterator::Array'=> '3.42', 'TAP::Parser::Iterator::Process'=> '3.42', 'TAP::Parser::Iterator::Stream'=> '3.42', 'TAP::Parser::IteratorFactory'=> '3.42', 'TAP::Parser::Multiplexer'=> '3.42', 'TAP::Parser::Result' => '3.42', 'TAP::Parser::Result::Bailout'=> '3.42', 'TAP::Parser::Result::Comment'=> '3.42', 'TAP::Parser::Result::Plan'=> '3.42', 'TAP::Parser::Result::Pragma'=> '3.42', 'TAP::Parser::Result::Test'=> '3.42', 'TAP::Parser::Result::Unknown'=> '3.42', 'TAP::Parser::Result::Version'=> '3.42', 'TAP::Parser::Result::YAML'=> '3.42', 'TAP::Parser::ResultFactory'=> '3.42', 'TAP::Parser::Scheduler'=> '3.42', 'TAP::Parser::Scheduler::Job'=> '3.42', 'TAP::Parser::Scheduler::Spinner'=> '3.42', 'TAP::Parser::Source' => '3.42', 'TAP::Parser::SourceHandler'=> '3.42', 'TAP::Parser::SourceHandler::Executable'=> '3.42', 'TAP::Parser::SourceHandler::File'=> '3.42', 'TAP::Parser::SourceHandler::Handle'=> '3.42', 'TAP::Parser::SourceHandler::Perl'=> '3.42', 'TAP::Parser::SourceHandler::RawTAP'=> '3.42', 'TAP::Parser::YAMLish::Reader'=> '3.42', 'TAP::Parser::YAMLish::Writer'=> '3.42', 'Test2' => '1.302133', 'Test2::API' => '1.302133', 'Test2::API::Breakage' => '1.302133', 'Test2::API::Context' => '1.302133', 'Test2::API::Instance' => '1.302133', 'Test2::API::Stack' => '1.302133', 'Test2::Event' => '1.302133', 'Test2::Event::Bail' => '1.302133', 'Test2::Event::Diag' => '1.302133', 'Test2::Event::Encoding'=> '1.302133', 'Test2::Event::Exception'=> '1.302133', 'Test2::Event::Fail' => '1.302133', 'Test2::Event::Generic' => '1.302133', 'Test2::Event::Note' => '1.302133', 'Test2::Event::Ok' => '1.302133', 'Test2::Event::Pass' => '1.302133', 'Test2::Event::Plan' => '1.302133', 'Test2::Event::Skip' => '1.302133', 'Test2::Event::Subtest' => '1.302133', 'Test2::Event::TAP::Version'=> '1.302133', 'Test2::Event::V2' => '1.302133', 'Test2::Event::Waiting' => '1.302133', 'Test2::EventFacet' => '1.302133', 'Test2::EventFacet::About'=> '1.302133', 'Test2::EventFacet::Amnesty'=> '1.302133', 'Test2::EventFacet::Assert'=> '1.302133', 'Test2::EventFacet::Control'=> '1.302133', 'Test2::EventFacet::Error'=> '1.302133', 'Test2::EventFacet::Hub'=> '1.302133', 'Test2::EventFacet::Info'=> '1.302133', 'Test2::EventFacet::Meta'=> '1.302133', 'Test2::EventFacet::Parent'=> '1.302133', 'Test2::EventFacet::Plan'=> '1.302133', 'Test2::EventFacet::Render'=> '1.302133', 'Test2::EventFacet::Trace'=> '1.302133', 'Test2::Formatter' => '1.302133', 'Test2::Formatter::TAP' => '1.302133', 'Test2::Hub' => '1.302133', 'Test2::Hub::Interceptor'=> '1.302133', 'Test2::Hub::Interceptor::Terminator'=> '1.302133', 'Test2::Hub::Subtest' => '1.302133', 'Test2::IPC' => '1.302133', 'Test2::IPC::Driver' => '1.302133', 'Test2::IPC::Driver::Files'=> '1.302133', 'Test2::Tools::Tiny' => '1.302133', 'Test2::Util' => '1.302133', 'Test2::Util::ExternalMeta'=> '1.302133', 'Test2::Util::Facets2Legacy'=> '1.302133', 'Test2::Util::HashBase' => '1.302133', 'Test2::Util::Trace' => '1.302133', 'Test::Builder' => '1.302133', 'Test::Builder::Formatter'=> '1.302133', 'Test::Builder::Module' => '1.302133', 'Test::Builder::Tester' => '1.302133', 'Test::Builder::Tester::Color'=> '1.302133', 'Test::Builder::TodoDiag'=> '1.302133', 'Test::Harness' => '3.42', 'Test::More' => '1.302133', 'Test::Simple' => '1.302133', 'Test::Tester' => '1.302133', 'Test::Tester::Capture' => '1.302133', 'Test::Tester::CaptureRunner'=> '1.302133', 'Test::Tester::Delegate'=> '1.302133', 'Test::use::ok' => '1.302133', 'Time::HiRes' => '1.9757', 'Time::Piece' => '1.3204', 'Time::Seconds' => '1.3204', 'attributes' => '0.33', 'ok' => '1.302133', 'warnings' => '1.42', }, removed => { } }, 5.024004 => { delta_from => 5.024003, changed => { 'B::Op_private' => '5.024004', 'Config' => '5.024004', 'Module::CoreList' => '5.20180414_24', 'Module::CoreList::TieHashDelta'=> '5.20180414_24', 'Module::CoreList::Utils'=> '5.20180414_24', }, removed => { } }, 5.026002 => { delta_from => 5.026001, changed => { 'B::Op_private' => '5.026002', 'Config' => '5.026002', 'Module::CoreList' => '5.20180414_26', 'Module::CoreList::TieHashDelta'=> '5.20180414_26', 'Module::CoreList::Utils'=> '5.20180414_26', 'PerlIO::via' => '0.17', 'Term::ReadLine' => '1.17', 'Unicode::UCD' => '0.69', }, removed => { } }, 5.027011 => { delta_from => 5.027010, changed => { 'B::Op_private' => '5.027011', 'Carp' => '1.50', 'Carp::Heavy' => '1.50', 'Config' => '5.027011', 'Devel::PPPort' => '3.40', 'Exporter' => '5.73', 'Exporter::Heavy' => '5.73', 'ExtUtils::Constant' => '0.25', 'I18N::Langinfo' => '0.17', 'IO' => '1.39', 'IO::Dir' => '1.39', 'IO::File' => '1.39', 'IO::Handle' => '1.39', 'IO::Pipe' => '1.39', 'IO::Poll' => '1.39', 'IO::Seekable' => '1.39', 'IO::Select' => '1.39', 'IO::Socket' => '1.39', 'IO::Socket::INET' => '1.39', 'IO::Socket::UNIX' => '1.39', 'Module::CoreList' => '5.20180420', 'Module::CoreList::Utils'=> '5.20180420', 'POSIX' => '1.84', 'Time::HiRes' => '1.9759', 'XS::APItest' => '0.97', 'bytes' => '1.06', 'subs' => '1.03', 'vars' => '1.04', 'version' => '0.9923', 'version::regex' => '0.9923', }, removed => { } }, 5.028000 => { delta_from => 5.027011, changed => { 'Archive::Tar' => '2.30', 'Archive::Tar::Constant'=> '2.30', 'Archive::Tar::File' => '2.30', 'B::Op_private' => '5.028000', 'Config' => '5.028', 'Module::CoreList' => '5.20180622', 'Module::CoreList::Utils'=> '5.20180622', 'Storable' => '3.08', 'XS::APItest' => '0.98', 'feature' => '1.52', }, removed => { } }, 5.029000 => { delta_from => 5.028, changed => { 'B::Op_private' => '5.029000', 'Config' => '5.029', 'Module::CoreList' => '5.20180626', 'Module::CoreList::Utils'=> '5.20180626', 'Unicode::UCD' => '0.71', 'XS::APItest' => '0.99', 'feature' => '1.53', }, removed => { } }, 5.029001 => { delta_from => 5.029000, changed => { 'B::Op_private' => '5.029001', 'Compress::Raw::Bzip2' => '2.081', 'Compress::Raw::Zlib' => '2.081', 'Compress::Zlib' => '2.081', 'Config' => '5.029001', 'Config::Perl::V' => '0.30', 'DB_File' => '1.842', 'Devel::PPPort' => '3.42', 'Digest::SHA' => '6.02', 'ExtUtils::Manifest' => '1.71', 'File::GlobMapper' => '1.001', 'File::Temp' => '0.2308', 'IO::Compress::Adapter::Bzip2'=> '2.081', 'IO::Compress::Adapter::Deflate'=> '2.081', 'IO::Compress::Adapter::Identity'=> '2.081', 'IO::Compress::Base' => '2.081', 'IO::Compress::Base::Common'=> '2.081', 'IO::Compress::Bzip2' => '2.081', 'IO::Compress::Deflate' => '2.081', 'IO::Compress::Gzip' => '2.081', 'IO::Compress::Gzip::Constants'=> '2.081', 'IO::Compress::RawDeflate'=> '2.081', 'IO::Compress::Zip' => '2.081', 'IO::Compress::Zip::Constants'=> '2.081', 'IO::Compress::Zlib::Constants'=> '2.081', 'IO::Compress::Zlib::Extra'=> '2.081', 'IO::Uncompress::Adapter::Bunzip2'=> '2.081', 'IO::Uncompress::Adapter::Identity'=> '2.081', 'IO::Uncompress::Adapter::Inflate'=> '2.081', 'IO::Uncompress::AnyInflate'=> '2.081', 'IO::Uncompress::AnyUncompress'=> '2.081', 'IO::Uncompress::Base' => '2.081', 'IO::Uncompress::Bunzip2'=> '2.081', 'IO::Uncompress::Gunzip'=> '2.081', 'IO::Uncompress::Inflate'=> '2.081', 'IO::Uncompress::RawInflate'=> '2.081', 'IO::Uncompress::Unzip' => '2.081', 'IPC::Cmd' => '1.02', 'Locale::Codes' => '3.57', 'Locale::Codes::Constants'=> '3.57', 'Locale::Codes::Country'=> '3.57', 'Locale::Codes::Country_Codes'=> '3.57', 'Locale::Codes::Country_Retired'=> '3.57', 'Locale::Codes::Currency'=> '3.57', 'Locale::Codes::Currency_Codes'=> '3.57', 'Locale::Codes::Currency_Retired'=> '3.57', 'Locale::Codes::LangExt'=> '3.57', 'Locale::Codes::LangExt_Codes'=> '3.57', 'Locale::Codes::LangExt_Retired'=> '3.57', 'Locale::Codes::LangFam'=> '3.57', 'Locale::Codes::LangFam_Codes'=> '3.57', 'Locale::Codes::LangFam_Retired'=> '3.57', 'Locale::Codes::LangVar'=> '3.57', 'Locale::Codes::LangVar_Codes'=> '3.57', 'Locale::Codes::LangVar_Retired'=> '3.57', 'Locale::Codes::Language'=> '3.57', 'Locale::Codes::Language_Codes'=> '3.57', 'Locale::Codes::Language_Retired'=> '3.57', 'Locale::Codes::Script' => '3.57', 'Locale::Codes::Script_Codes'=> '3.57', 'Locale::Codes::Script_Retired'=> '3.57', 'Locale::Country' => '3.57', 'Locale::Currency' => '3.57', 'Locale::Language' => '3.57', 'Locale::Script' => '3.57', 'Math::BigFloat' => '1.999813', 'Math::BigFloat::Trace' => '0.50', 'Math::BigInt' => '1.999813', 'Math::BigInt::Calc' => '1.999813', 'Math::BigInt::CalcEmu' => '1.999813', 'Math::BigInt::FastCalc'=> '0.5007', 'Math::BigInt::Lib' => '1.999813', 'Math::BigInt::Trace' => '0.50', 'Math::BigRat' => '0.2614', 'Module::CoreList' => '5.20180720', 'Module::CoreList::Utils'=> '5.20180720', 'Pod::Man' => '4.11', 'Pod::ParseLink' => '4.11', 'Pod::Text' => '4.11', 'Pod::Text::Color' => '4.11', 'Pod::Text::Overstrike' => '4.11', 'Pod::Text::Termcap' => '4.11', 'Storable' => '3.11', 'Test2' => '1.302138', 'Test2::API' => '1.302138', 'Test2::API::Breakage' => '1.302138', 'Test2::API::Context' => '1.302138', 'Test2::API::Instance' => '1.302138', 'Test2::API::Stack' => '1.302138', 'Test2::Event' => '1.302138', 'Test2::Event::Bail' => '1.302138', 'Test2::Event::Diag' => '1.302138', 'Test2::Event::Encoding'=> '1.302138', 'Test2::Event::Exception'=> '1.302138', 'Test2::Event::Fail' => '1.302138', 'Test2::Event::Generic' => '1.302138', 'Test2::Event::Note' => '1.302138', 'Test2::Event::Ok' => '1.302138', 'Test2::Event::Pass' => '1.302138', 'Test2::Event::Plan' => '1.302138', 'Test2::Event::Skip' => '1.302138', 'Test2::Event::Subtest' => '1.302138', 'Test2::Event::TAP::Version'=> '1.302138', 'Test2::Event::V2' => '1.302138', 'Test2::Event::Waiting' => '1.302138', 'Test2::EventFacet' => '1.302138', 'Test2::EventFacet::About'=> '1.302138', 'Test2::EventFacet::Amnesty'=> '1.302138', 'Test2::EventFacet::Assert'=> '1.302138', 'Test2::EventFacet::Control'=> '1.302138', 'Test2::EventFacet::Error'=> '1.302138', 'Test2::EventFacet::Hub'=> '1.302138', 'Test2::EventFacet::Info'=> '1.302138', 'Test2::EventFacet::Meta'=> '1.302138', 'Test2::EventFacet::Parent'=> '1.302138', 'Test2::EventFacet::Plan'=> '1.302138', 'Test2::EventFacet::Render'=> '1.302138', 'Test2::EventFacet::Trace'=> '1.302138', 'Test2::Formatter' => '1.302138', 'Test2::Formatter::TAP' => '1.302138', 'Test2::Hub' => '1.302138', 'Test2::Hub::Interceptor'=> '1.302138', 'Test2::Hub::Interceptor::Terminator'=> '1.302138', 'Test2::Hub::Subtest' => '1.302138', 'Test2::IPC' => '1.302138', 'Test2::IPC::Driver' => '1.302138', 'Test2::IPC::Driver::Files'=> '1.302138', 'Test2::Tools::Tiny' => '1.302138', 'Test2::Util' => '1.302138', 'Test2::Util::ExternalMeta'=> '1.302138', 'Test2::Util::Facets2Legacy'=> '1.302138', 'Test2::Util::HashBase' => '1.302138', 'Test2::Util::Trace' => '1.302138', 'Test::Builder' => '1.302138', 'Test::Builder::Formatter'=> '1.302138', 'Test::Builder::Module' => '1.302138', 'Test::Builder::Tester' => '1.302138', 'Test::Builder::Tester::Color'=> '1.302138', 'Test::Builder::TodoDiag'=> '1.302138', 'Test::More' => '1.302138', 'Test::Simple' => '1.302138', 'Test::Tester' => '1.302138', 'Test::Tester::Capture' => '1.302138', 'Test::Tester::CaptureRunner'=> '1.302138', 'Test::Tester::Delegate'=> '1.302138', 'Test::use::ok' => '1.302138', 'Thread::Queue' => '3.13', 'Time::Local' => '1.28', 'bigint' => '0.50', 'bignum' => '0.50', 'bigrat' => '0.50', 'experimental' => '0.020', 'ok' => '1.302138', 'parent' => '0.237', 'perlfaq' => '5.20180605', 'version' => '0.9924', 'version::regex' => '0.9924', }, removed => { } }, 5.029002 => { delta_from => 5.029001, changed => { 'B::Op_private' => '5.029002', 'Config' => '5.029002', 'Config::Extensions' => '0.03', 'Cwd' => '3.75', 'Data::Dumper' => '2.171', 'Filter::Util::Call' => '1.59', 'HTTP::Tiny' => '0.076', 'Module::CoreList' => '5.20180820', 'Module::CoreList::Utils'=> '5.20180820', 'PerlIO::scalar' => '0.30', 'Storable' => '3.12', 'Test2' => '1.302140', 'Test2::API' => '1.302140', 'Test2::API::Breakage' => '1.302140', 'Test2::API::Context' => '1.302140', 'Test2::API::Instance' => '1.302140', 'Test2::API::Stack' => '1.302140', 'Test2::Event' => '1.302140', 'Test2::Event::Bail' => '1.302140', 'Test2::Event::Diag' => '1.302140', 'Test2::Event::Encoding'=> '1.302140', 'Test2::Event::Exception'=> '1.302140', 'Test2::Event::Fail' => '1.302140', 'Test2::Event::Generic' => '1.302140', 'Test2::Event::Note' => '1.302140', 'Test2::Event::Ok' => '1.302140', 'Test2::Event::Pass' => '1.302140', 'Test2::Event::Plan' => '1.302140', 'Test2::Event::Skip' => '1.302140', 'Test2::Event::Subtest' => '1.302140', 'Test2::Event::TAP::Version'=> '1.302140', 'Test2::Event::V2' => '1.302140', 'Test2::Event::Waiting' => '1.302140', 'Test2::EventFacet' => '1.302140', 'Test2::EventFacet::About'=> '1.302140', 'Test2::EventFacet::Amnesty'=> '1.302140', 'Test2::EventFacet::Assert'=> '1.302140', 'Test2::EventFacet::Control'=> '1.302140', 'Test2::EventFacet::Error'=> '1.302140', 'Test2::EventFacet::Hub'=> '1.302140', 'Test2::EventFacet::Info'=> '1.302140', 'Test2::EventFacet::Meta'=> '1.302140', 'Test2::EventFacet::Parent'=> '1.302140', 'Test2::EventFacet::Plan'=> '1.302140', 'Test2::EventFacet::Render'=> '1.302140', 'Test2::EventFacet::Trace'=> '1.302140', 'Test2::Formatter' => '1.302140', 'Test2::Formatter::TAP' => '1.302140', 'Test2::Hub' => '1.302140', 'Test2::Hub::Interceptor'=> '1.302140', 'Test2::Hub::Interceptor::Terminator'=> '1.302140', 'Test2::Hub::Subtest' => '1.302140', 'Test2::IPC' => '1.302140', 'Test2::IPC::Driver' => '1.302140', 'Test2::IPC::Driver::Files'=> '1.302140', 'Test2::Tools::Tiny' => '1.302140', 'Test2::Util' => '1.302140', 'Test2::Util::ExternalMeta'=> '1.302140', 'Test2::Util::Facets2Legacy'=> '1.302140', 'Test2::Util::HashBase' => '1.302140', 'Test2::Util::Trace' => '1.302140', 'Test::Builder' => '1.302140', 'Test::Builder::Formatter'=> '1.302140', 'Test::Builder::Module' => '1.302140', 'Test::Builder::Tester' => '1.302140', 'Test::Builder::Tester::Color'=> '1.302140', 'Test::Builder::TodoDiag'=> '1.302140', 'Test::More' => '1.302140', 'Test::Simple' => '1.302140', 'Test::Tester' => '1.302140', 'Test::Tester::Capture' => '1.302140', 'Test::Tester::CaptureRunner'=> '1.302140', 'Test::Tester::Delegate'=> '1.302140', 'Test::use::ok' => '1.302140', 'Time::HiRes' => '1.9760', 'Time::Piece' => '1.33', 'Time::Seconds' => '1.33', 'Unicode' => '11.0.0', 'ok' => '1.302140', 'warnings' => '1.43', }, removed => { } }, 5.029003 => { delta_from => 5.029002, changed => { 'Archive::Tar' => '2.32', 'Archive::Tar::Constant'=> '2.32', 'Archive::Tar::File' => '2.32', 'B::Op_private' => '5.029003', 'Config' => '5.029003', 'Data::Dumper' => '2.172', 'Devel::PPPort' => '3.43', 'File::Path' => '2.16', 'File::Spec' => '3.75', 'File::Spec::AmigaOS' => '3.75', 'File::Spec::Cygwin' => '3.75', 'File::Spec::Epoc' => '3.75', 'File::Spec::Functions' => '3.75', 'File::Spec::Mac' => '3.75', 'File::Spec::OS2' => '3.75', 'File::Spec::Unix' => '3.75', 'File::Spec::VMS' => '3.75', 'File::Spec::Win32' => '3.75', 'Module::CoreList' => '5.20180920', 'Module::CoreList::Utils'=> '5.20180920', 'POSIX' => '1.85', 'Storable' => '3.13', 'User::grent' => '1.03', 'perlfaq' => '5.20180915', }, removed => { 'Locale::Codes' => 1, 'Locale::Codes::Constants'=> 1, 'Locale::Codes::Country'=> 1, 'Locale::Codes::Country_Codes'=> 1, 'Locale::Codes::Country_Retired'=> 1, 'Locale::Codes::Currency'=> 1, 'Locale::Codes::Currency_Codes'=> 1, 'Locale::Codes::Currency_Retired'=> 1, 'Locale::Codes::LangExt'=> 1, 'Locale::Codes::LangExt_Codes'=> 1, 'Locale::Codes::LangExt_Retired'=> 1, 'Locale::Codes::LangFam'=> 1, 'Locale::Codes::LangFam_Codes'=> 1, 'Locale::Codes::LangFam_Retired'=> 1, 'Locale::Codes::LangVar'=> 1, 'Locale::Codes::LangVar_Codes'=> 1, 'Locale::Codes::LangVar_Retired'=> 1, 'Locale::Codes::Language'=> 1, 'Locale::Codes::Language_Codes'=> 1, 'Locale::Codes::Language_Retired'=> 1, 'Locale::Codes::Script' => 1, 'Locale::Codes::Script_Codes'=> 1, 'Locale::Codes::Script_Retired'=> 1, 'Locale::Country' => 1, 'Locale::Currency' => 1, 'Locale::Language' => 1, 'Locale::Script' => 1, } }, 5.029004 => { delta_from => 5.029003, changed => { 'App::Cpan' => '1.671', 'B' => '1.75', 'B::Concise' => '1.004', 'B::Deparse' => '1.49', 'B::Op_private' => '5.029004', 'B::Terse' => '1.09', 'CPAN' => '2.21', 'CPAN::Distribution' => '2.21', 'CPAN::Mirrors' => '2.21', 'CPAN::Plugin' => '0.97', 'CPAN::Shell' => '5.5008', 'Config' => '5.029004', 'Devel::Peek' => '1.28', 'File::Copy' => '2.34', 'File::Glob' => '1.32', 'Math::BigFloat::Trace' => '0.51', 'Math::BigInt::Trace' => '0.51', 'Module::CoreList' => '5.20181020', 'Module::CoreList::Utils'=> '5.20181020', 'Unicode::UCD' => '0.72', 'bigint' => '0.51', 'bignum' => '0.51', 'bigrat' => '0.51', 'bytes' => '1.07', 'feature' => '1.54', 'sigtrap' => '1.09', 'vars' => '1.05', }, removed => { 'B::Debug' => 1, 'arybase' => 1, } }, 5.029005 => { delta_from => 5.029004, changed => { 'B::Op_private' => '5.029005', 'Config' => '5.029005', 'Cwd' => '3.76', 'Data::Dumper' => '2.173', 'Errno' => '1.30', 'File::Spec' => '3.76', 'File::Spec::AmigaOS' => '3.76', 'File::Spec::Cygwin' => '3.76', 'File::Spec::Epoc' => '3.76', 'File::Spec::Functions' => '3.76', 'File::Spec::Mac' => '3.76', 'File::Spec::OS2' => '3.76', 'File::Spec::Unix' => '3.76', 'File::Spec::VMS' => '3.76', 'File::Spec::Win32' => '3.76', 'GDBM_File' => '1.18', 'Module::CoreList' => '5.20181120', 'Module::CoreList::Utils'=> '5.20181120', 'NDBM_File' => '1.15', 'ODBM_File' => '1.16', 'SDBM_File' => '1.15', 're' => '0.37', }, removed => { } }, 5.026003 => { delta_from => 5.026002, changed => { 'Archive::Tar' => '2.24_01', 'B::Op_private' => '5.026003', 'Config' => '5.026003', 'Module::CoreList' => '5.20181129_26', 'Module::CoreList::TieHashDelta'=> '5.20181129_26', 'Module::CoreList::Utils'=> '5.20181129_26', }, removed => { } }, 5.028001 => { delta_from => 5.028, changed => { 'B::Op_private' => '5.028001', 'Config' => '5.028001', 'Module::CoreList' => '5.20181129_28', 'Module::CoreList::Utils'=> '5.20181129_28', }, removed => { } }, 5.029006 => { delta_from => 5.029005, changed => { 'B::Op_private' => '5.029006', 'Config' => '5.029006', 'Config::Perl::V' => '0.32', 'ExtUtils::ParseXS' => '3.40', 'ExtUtils::ParseXS::Constants'=> '3.40', 'ExtUtils::ParseXS::CountLines'=> '3.40', 'ExtUtils::ParseXS::Eval'=> '3.40', 'ExtUtils::ParseXS::Utilities'=> '3.40', 'File::Find' => '1.35', 'Module::CoreList' => '5.20181218', 'Module::CoreList::Utils'=> '5.20181218', 'POSIX' => '1.86', 'Storable' => '3.14', 'Test2' => '1.302141', 'Test2::API' => '1.302141', 'Test2::API::Breakage' => '1.302141', 'Test2::API::Context' => '1.302141', 'Test2::API::Instance' => '1.302141', 'Test2::API::Stack' => '1.302141', 'Test2::Event' => '1.302141', 'Test2::Event::Bail' => '1.302141', 'Test2::Event::Diag' => '1.302141', 'Test2::Event::Encoding'=> '1.302141', 'Test2::Event::Exception'=> '1.302141', 'Test2::Event::Fail' => '1.302141', 'Test2::Event::Generic' => '1.302141', 'Test2::Event::Note' => '1.302141', 'Test2::Event::Ok' => '1.302141', 'Test2::Event::Pass' => '1.302141', 'Test2::Event::Plan' => '1.302141', 'Test2::Event::Skip' => '1.302141', 'Test2::Event::Subtest' => '1.302141', 'Test2::Event::TAP::Version'=> '1.302141', 'Test2::Event::V2' => '1.302141', 'Test2::Event::Waiting' => '1.302141', 'Test2::EventFacet' => '1.302141', 'Test2::EventFacet::About'=> '1.302141', 'Test2::EventFacet::Amnesty'=> '1.302141', 'Test2::EventFacet::Assert'=> '1.302141', 'Test2::EventFacet::Control'=> '1.302141', 'Test2::EventFacet::Error'=> '1.302141', 'Test2::EventFacet::Hub'=> '1.302141', 'Test2::EventFacet::Info'=> '1.302141', 'Test2::EventFacet::Meta'=> '1.302141', 'Test2::EventFacet::Parent'=> '1.302141', 'Test2::EventFacet::Plan'=> '1.302141', 'Test2::EventFacet::Render'=> '1.302141', 'Test2::EventFacet::Trace'=> '1.302141', 'Test2::Formatter' => '1.302141', 'Test2::Formatter::TAP' => '1.302141', 'Test2::Hub' => '1.302141', 'Test2::Hub::Interceptor'=> '1.302141', 'Test2::Hub::Interceptor::Terminator'=> '1.302141', 'Test2::Hub::Subtest' => '1.302141', 'Test2::IPC' => '1.302141', 'Test2::IPC::Driver' => '1.302141', 'Test2::IPC::Driver::Files'=> '1.302141', 'Test2::Tools::Tiny' => '1.302141', 'Test2::Util' => '1.302141', 'Test2::Util::ExternalMeta'=> '1.302141', 'Test2::Util::Facets2Legacy'=> '1.302141', 'Test2::Util::HashBase' => '1.302141', 'Test2::Util::Trace' => '1.302141', 'Test::Builder' => '1.302141', 'Test::Builder::Formatter'=> '1.302141', 'Test::Builder::Module' => '1.302141', 'Test::Builder::Tester' => '1.302141', 'Test::Builder::Tester::Color'=> '1.302141', 'Test::Builder::TodoDiag'=> '1.302141', 'Test::More' => '1.302141', 'Test::Simple' => '1.302141', 'Test::Tester' => '1.302141', 'Test::Tester::Capture' => '1.302141', 'Test::Tester::CaptureRunner'=> '1.302141', 'Test::Tester::Delegate'=> '1.302141', 'Test::use::ok' => '1.302141', 'ok' => '1.302141', 'threads::shared' => '1.59', }, removed => { 'Storable::Limit' => 1, } }, 5.029007 => { delta_from => 5.029006, changed => { 'App::Cpan' => '1.672', 'B::Op_private' => '5.029007', 'CPAN' => '2.22', 'CPAN::Distribution' => '2.22', 'CPAN::Plugin::Specfile'=> '0.02', 'Compress::Raw::Bzip2' => '2.084', 'Compress::Raw::Zlib' => '2.084', 'Compress::Zlib' => '2.084', 'Config' => '5.029007', 'Cwd' => '3.77', 'DB_File' => '1.843', 'File::Find' => '1.36', 'File::Spec' => '3.77', 'File::Spec::AmigaOS' => '3.77', 'File::Spec::Cygwin' => '3.77', 'File::Spec::Epoc' => '3.77', 'File::Spec::Functions' => '3.77', 'File::Spec::Mac' => '3.77', 'File::Spec::OS2' => '3.77', 'File::Spec::Unix' => '3.77', 'File::Spec::VMS' => '3.77', 'File::Spec::Win32' => '3.77', 'File::Temp' => '0.2309', 'IO::Compress::Adapter::Bzip2'=> '2.084', 'IO::Compress::Adapter::Deflate'=> '2.084', 'IO::Compress::Adapter::Identity'=> '2.084', 'IO::Compress::Base' => '2.084', 'IO::Compress::Base::Common'=> '2.084', 'IO::Compress::Bzip2' => '2.084', 'IO::Compress::Deflate' => '2.084', 'IO::Compress::Gzip' => '2.084', 'IO::Compress::Gzip::Constants'=> '2.084', 'IO::Compress::RawDeflate'=> '2.084', 'IO::Compress::Zip' => '2.084', 'IO::Compress::Zip::Constants'=> '2.084', 'IO::Compress::Zlib::Constants'=> '2.084', 'IO::Compress::Zlib::Extra'=> '2.084', 'IO::Uncompress::Adapter::Bunzip2'=> '2.084', 'IO::Uncompress::Adapter::Identity'=> '2.084', 'IO::Uncompress::Adapter::Inflate'=> '2.084', 'IO::Uncompress::AnyInflate'=> '2.084', 'IO::Uncompress::AnyUncompress'=> '2.084', 'IO::Uncompress::Base' => '2.084', 'IO::Uncompress::Bunzip2'=> '2.084', 'IO::Uncompress::Gunzip'=> '2.084', 'IO::Uncompress::Inflate'=> '2.084', 'IO::Uncompress::RawInflate'=> '2.084', 'IO::Uncompress::Unzip' => '2.084', 'Math::BigFloat' => '1.999816', 'Math::BigInt' => '1.999816', 'Math::BigInt::Calc' => '1.999816', 'Math::BigInt::FastCalc'=> '0.5008', 'Math::BigInt::Lib' => '1.999816', 'Module::CoreList' => '5.20190120', 'Module::CoreList::Utils'=> '5.20190120', 'Test2' => '1.302160', 'Test2::API' => '1.302160', 'Test2::API::Breakage' => '1.302160', 'Test2::API::Context' => '1.302160', 'Test2::API::Instance' => '1.302160', 'Test2::API::Stack' => '1.302160', 'Test2::Event' => '1.302160', 'Test2::Event::Bail' => '1.302160', 'Test2::Event::Diag' => '1.302160', 'Test2::Event::Encoding'=> '1.302160', 'Test2::Event::Exception'=> '1.302160', 'Test2::Event::Fail' => '1.302160', 'Test2::Event::Generic' => '1.302160', 'Test2::Event::Note' => '1.302160', 'Test2::Event::Ok' => '1.302160', 'Test2::Event::Pass' => '1.302160', 'Test2::Event::Plan' => '1.302160', 'Test2::Event::Skip' => '1.302160', 'Test2::Event::Subtest' => '1.302160', 'Test2::Event::TAP::Version'=> '1.302160', 'Test2::Event::V2' => '1.302160', 'Test2::Event::Waiting' => '1.302160', 'Test2::EventFacet' => '1.302160', 'Test2::EventFacet::About'=> '1.302160', 'Test2::EventFacet::Amnesty'=> '1.302160', 'Test2::EventFacet::Assert'=> '1.302160', 'Test2::EventFacet::Control'=> '1.302160', 'Test2::EventFacet::Error'=> '1.302160', 'Test2::EventFacet::Hub'=> '1.302160', 'Test2::EventFacet::Info'=> '1.302160', 'Test2::EventFacet::Info::Table'=> undef, 'Test2::EventFacet::Meta'=> '1.302160', 'Test2::EventFacet::Parent'=> '1.302160', 'Test2::EventFacet::Plan'=> '1.302160', 'Test2::EventFacet::Render'=> '1.302160', 'Test2::EventFacet::Trace'=> '1.302160', 'Test2::Formatter' => '1.302160', 'Test2::Formatter::TAP' => '1.302160', 'Test2::Hub' => '1.302160', 'Test2::Hub::Interceptor'=> '1.302160', 'Test2::Hub::Interceptor::Terminator'=> '1.302160', 'Test2::Hub::Subtest' => '1.302160', 'Test2::IPC' => '1.302160', 'Test2::IPC::Driver' => '1.302160', 'Test2::IPC::Driver::Files'=> '1.302160', 'Test2::Tools::Tiny' => '1.302160', 'Test2::Util' => '1.302160', 'Test2::Util::ExternalMeta'=> '1.302160', 'Test2::Util::Facets2Legacy'=> '1.302160', 'Test2::Util::HashBase' => '1.302160', 'Test2::Util::Trace' => '1.302160', 'Test::Builder' => '1.302160', 'Test::Builder::Formatter'=> '1.302160', 'Test::Builder::Module' => '1.302160', 'Test::Builder::Tester' => '1.302160', 'Test::Builder::Tester::Color'=> '1.302160', 'Test::Builder::TodoDiag'=> '1.302160', 'Test::More' => '1.302160', 'Test::Simple' => '1.302160', 'Test::Tester' => '1.302160', 'Test::Tester::Capture' => '1.302160', 'Test::Tester::CaptureRunner'=> '1.302160', 'Test::Tester::Delegate'=> '1.302160', 'Test::use::ok' => '1.302160', 'Unicode::Collate' => '1.27', 'Unicode::Collate::CJK::Big5'=> '1.27', 'Unicode::Collate::CJK::GB2312'=> '1.27', 'Unicode::Collate::CJK::JISX0208'=> '1.27', 'Unicode::Collate::CJK::Korean'=> '1.27', 'Unicode::Collate::CJK::Pinyin'=> '1.27', 'Unicode::Collate::CJK::Stroke'=> '1.27', 'Unicode::Collate::CJK::Zhuyin'=> '1.27', 'Unicode::Collate::Locale'=> '1.27', 'lib' => '0.65', 'ok' => '1.302160', }, removed => { 'Math::BigInt::CalcEmu' => 1, } }, 5.029008 => { delta_from => 5.029007, changed => { 'B' => '1.76', 'B::Op_private' => '5.029008', 'Config' => '5.029008', 'Devel::PPPort' => '3.44', 'Encode' => '3.00', 'Encode::Unicode' => '2.18', 'ExtUtils::Miniperl' => '1.09', 'IO' => '1.40', 'IO::Dir' => '1.40', 'IO::File' => '1.40', 'IO::Handle' => '1.40', 'IO::Pipe' => '1.40', 'IO::Poll' => '1.40', 'IO::Seekable' => '1.40', 'IO::Select' => '1.40', 'IO::Socket' => '1.40', 'IO::Socket::INET' => '1.40', 'IO::Socket::UNIX' => '1.40', 'JSON::PP' => '4.00', 'JSON::PP::Boolean' => '4.00', 'Module::CoreList' => '5.20190220', 'Module::CoreList::Utils'=> '5.20190220', 'Module::Load' => '0.34', 'Net::Ping' => '2.71', 'POSIX' => '1.87', 'Test2' => '1.302162', 'Test2::API' => '1.302162', 'Test2::API::Breakage' => '1.302162', 'Test2::API::Context' => '1.302162', 'Test2::API::Instance' => '1.302162', 'Test2::API::Stack' => '1.302162', 'Test2::Event' => '1.302162', 'Test2::Event::Bail' => '1.302162', 'Test2::Event::Diag' => '1.302162', 'Test2::Event::Encoding'=> '1.302162', 'Test2::Event::Exception'=> '1.302162', 'Test2::Event::Fail' => '1.302162', 'Test2::Event::Generic' => '1.302162', 'Test2::Event::Note' => '1.302162', 'Test2::Event::Ok' => '1.302162', 'Test2::Event::Pass' => '1.302162', 'Test2::Event::Plan' => '1.302162', 'Test2::Event::Skip' => '1.302162', 'Test2::Event::Subtest' => '1.302162', 'Test2::Event::TAP::Version'=> '1.302162', 'Test2::Event::V2' => '1.302162', 'Test2::Event::Waiting' => '1.302162', 'Test2::EventFacet' => '1.302162', 'Test2::EventFacet::About'=> '1.302162', 'Test2::EventFacet::Amnesty'=> '1.302162', 'Test2::EventFacet::Assert'=> '1.302162', 'Test2::EventFacet::Control'=> '1.302162', 'Test2::EventFacet::Error'=> '1.302162', 'Test2::EventFacet::Hub'=> '1.302162', 'Test2::EventFacet::Info'=> '1.302162', 'Test2::EventFacet::Meta'=> '1.302162', 'Test2::EventFacet::Parent'=> '1.302162', 'Test2::EventFacet::Plan'=> '1.302162', 'Test2::EventFacet::Render'=> '1.302162', 'Test2::EventFacet::Trace'=> '1.302162', 'Test2::Formatter' => '1.302162', 'Test2::Formatter::TAP' => '1.302162', 'Test2::Hub' => '1.302162', 'Test2::Hub::Interceptor'=> '1.302162', 'Test2::Hub::Interceptor::Terminator'=> '1.302162', 'Test2::Hub::Subtest' => '1.302162', 'Test2::IPC' => '1.302162', 'Test2::IPC::Driver' => '1.302162', 'Test2::IPC::Driver::Files'=> '1.302162', 'Test2::Tools::Tiny' => '1.302162', 'Test2::Util' => '1.302162', 'Test2::Util::ExternalMeta'=> '1.302162', 'Test2::Util::Facets2Legacy'=> '1.302162', 'Test2::Util::HashBase' => '1.302162', 'Test2::Util::Trace' => '1.302162', 'Test::Builder' => '1.302162', 'Test::Builder::Formatter'=> '1.302162', 'Test::Builder::Module' => '1.302162', 'Test::Builder::Tester' => '1.302162', 'Test::Builder::Tester::Color'=> '1.302162', 'Test::Builder::TodoDiag'=> '1.302162', 'Test::More' => '1.302162', 'Test::Simple' => '1.302162', 'Test::Tester' => '1.302162', 'Test::Tester::Capture' => '1.302162', 'Test::Tester::CaptureRunner'=> '1.302162', 'Test::Tester::Delegate'=> '1.302162', 'Test::use::ok' => '1.302162', 'XS::APItest' => '1.00', 'deprecate' => '0.04', 'ok' => '1.302162', 'perlfaq' => '5.20190126', }, removed => { } }, 5.029009 => { delta_from => 5.029008, changed => { 'B::Op_private' => '5.029009', 'Config' => '5.029009', 'Devel::PPPort' => '3.45', 'Encode' => '3.01', 'ExtUtils::Manifest' => '1.72', 'JSON::PP' => '4.02', 'JSON::PP::Boolean' => '4.02', 'Module::CoreList' => '5.20190320', 'Module::CoreList::Utils'=> '5.20190320', 'PerlIO::encoding' => '0.27', 'Unicode' => '12.0.0', 'threads::shared' => '1.60', 'utf8' => '1.22', 'warnings' => '1.44', }, removed => { } }, 5.028002 => { delta_from => 5.028001, changed => { 'B::Op_private' => '5.028002', 'Config' => '5.028002', 'Module::CoreList' => '5.20190419', 'Module::CoreList::Utils'=> '5.20190419', 'PerlIO::scalar' => '0.30', 'Storable' => '3.08_01', }, removed => { } }, 5.029010 => { delta_from => 5.029009, changed => { 'B::Op_private' => '5.029010', 'Config' => '5.02901', 'Cwd' => '3.78', 'Data::Dumper' => '2.174', 'ExtUtils::CBuilder' => '0.280231', 'ExtUtils::CBuilder::Base'=> '0.280231', 'ExtUtils::CBuilder::Platform::Unix'=> '0.280231', 'ExtUtils::CBuilder::Platform::VMS'=> '0.280231', 'ExtUtils::CBuilder::Platform::Windows'=> '0.280231', 'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280231', 'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280231', 'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280231', 'ExtUtils::CBuilder::Platform::aix'=> '0.280231', 'ExtUtils::CBuilder::Platform::android'=> '0.280231', 'ExtUtils::CBuilder::Platform::cygwin'=> '0.280231', 'ExtUtils::CBuilder::Platform::darwin'=> '0.280231', 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280231', 'ExtUtils::CBuilder::Platform::os2'=> '0.280231', 'File::Spec' => '3.78', 'File::Spec::AmigaOS' => '3.78', 'File::Spec::Cygwin' => '3.78', 'File::Spec::Epoc' => '3.78', 'File::Spec::Functions' => '3.78', 'File::Spec::Mac' => '3.78', 'File::Spec::OS2' => '3.78', 'File::Spec::Unix' => '3.78', 'File::Spec::VMS' => '3.78', 'File::Spec::Win32' => '3.78', 'I18N::Langinfo' => '0.18', 'Module::CoreList' => '5.20190420', 'Module::CoreList::Utils'=> '5.20190420', 'Module::Metadata' => '1.000036', 'POSIX' => '1.88', 'Storable' => '3.15', 'Unicode' => '12.1.0', }, removed => { } }, 5.030000 => { delta_from => 5.02901, changed => { 'B::Op_private' => '5.030000', 'Config' => '5.03', 'Devel::PPPort' => '3.52', 'Module::CoreList' => '5.20190522', 'Module::CoreList::Utils'=> '5.20190522', 'XS::Typemap' => '0.17', }, removed => { } }, 5.031000 => { delta_from => 5.03, changed => { 'B::Op_private' => '5.031000', 'Config' => '5.031', 'Module::CoreList' => '5.20190524', 'Module::CoreList::Utils'=> '5.20190524', 'Pod::Simple' => '3.36', 'Pod::Simple::BlackBox' => '3.36', 'Pod::Simple::Checker' => '3.36', 'Pod::Simple::Debug' => '3.36', 'Pod::Simple::DumpAsText'=> '3.36', 'Pod::Simple::DumpAsXML'=> '3.36', 'Pod::Simple::HTML' => '3.36', 'Pod::Simple::HTMLBatch'=> '3.36', 'Pod::Simple::JustPod' => undef, 'Pod::Simple::LinkSection'=> '3.36', 'Pod::Simple::Methody' => '3.36', 'Pod::Simple::Progress' => '3.36', 'Pod::Simple::PullParser'=> '3.36', 'Pod::Simple::PullParserEndToken'=> '3.36', 'Pod::Simple::PullParserStartToken'=> '3.36', 'Pod::Simple::PullParserTextToken'=> '3.36', 'Pod::Simple::PullParserToken'=> '3.36', 'Pod::Simple::RTF' => '3.36', 'Pod::Simple::Search' => '3.36', 'Pod::Simple::SimpleTree'=> '3.36', 'Pod::Simple::Text' => '3.36', 'Pod::Simple::TextContent'=> '3.36', 'Pod::Simple::TiedOutFH'=> '3.36', 'Pod::Simple::Transcode'=> '3.36', 'Pod::Simple::TranscodeDumb'=> '3.36', 'Pod::Simple::TranscodeSmart'=> '3.36', 'Pod::Simple::XHTML' => '3.36', 'Pod::Simple::XMLOutStream'=> '3.36', 'Socket' => '2.029', 'feature' => '1.55', }, removed => { } }, 5.031001 => { delta_from => 5.031000, changed => { 'App::Cpan' => '1.675', 'B::Op_private' => '5.031001', 'CPAN' => '2.27', 'CPAN::Bundle' => '5.5005', 'CPAN::Distribution' => '2.27', 'CPAN::FTP' => '5.5012', 'CPAN::FirstTime' => '5.5314', 'CPAN::HandleConfig' => '5.5011', 'CPAN::Mirrors' => '2.27', 'CPAN::Queue' => '5.5003', 'CPAN::Shell' => '5.5009', 'CPAN::Tarzip' => '5.5013', 'Class::Struct' => '0.66', 'Compress::Raw::Bzip2' => '2.086', 'Compress::Raw::Zlib' => '2.086', 'Compress::Zlib' => '2.086', 'Config' => '5.031001', 'DB_File' => '1.852', 'Devel::PPPort' => '3.53', 'ExtUtils::CBuilder' => '0.280232', 'ExtUtils::Command' => '7.36', 'ExtUtils::Command::MM' => '7.36', 'ExtUtils::Liblist' => '7.36', 'ExtUtils::Liblist::Kid'=> '7.36', 'ExtUtils::MM' => '7.36', 'ExtUtils::MM_AIX' => '7.36', 'ExtUtils::MM_Any' => '7.36', 'ExtUtils::MM_BeOS' => '7.36', 'ExtUtils::MM_Cygwin' => '7.36', 'ExtUtils::MM_DOS' => '7.36', 'ExtUtils::MM_Darwin' => '7.36', 'ExtUtils::MM_MacOS' => '7.36', 'ExtUtils::MM_NW5' => '7.36', 'ExtUtils::MM_OS2' => '7.36', 'ExtUtils::MM_QNX' => '7.36', 'ExtUtils::MM_UWIN' => '7.36', 'ExtUtils::MM_Unix' => '7.36', 'ExtUtils::MM_VMS' => '7.36', 'ExtUtils::MM_VOS' => '7.36', 'ExtUtils::MM_Win32' => '7.36', 'ExtUtils::MM_Win95' => '7.36', 'ExtUtils::MY' => '7.36', 'ExtUtils::MakeMaker' => '7.36', 'ExtUtils::MakeMaker::Config'=> '7.36', 'ExtUtils::MakeMaker::Locale'=> '7.36', 'ExtUtils::MakeMaker::version'=> '7.36', 'ExtUtils::MakeMaker::version::regex'=> '7.36', 'ExtUtils::Mkbootstrap' => '7.36', 'ExtUtils::Mksymlists' => '7.36', 'ExtUtils::testlib' => '7.36', 'File::Spec::Win32' => '3.79', 'I18N::LangTags' => '0.44', 'IO' => '1.41', 'IO::Compress::Adapter::Bzip2'=> '2.086', 'IO::Compress::Adapter::Deflate'=> '2.086', 'IO::Compress::Adapter::Identity'=> '2.086', 'IO::Compress::Base' => '2.086', 'IO::Compress::Base::Common'=> '2.086', 'IO::Compress::Bzip2' => '2.086', 'IO::Compress::Deflate' => '2.086', 'IO::Compress::Gzip' => '2.086', 'IO::Compress::Gzip::Constants'=> '2.086', 'IO::Compress::RawDeflate'=> '2.086', 'IO::Compress::Zip' => '2.086', 'IO::Compress::Zip::Constants'=> '2.086', 'IO::Compress::Zlib::Constants'=> '2.086', 'IO::Compress::Zlib::Extra'=> '2.086', 'IO::Dir' => '1.41', 'IO::File' => '1.41', 'IO::Handle' => '1.41', 'IO::Pipe' => '1.41', 'IO::Poll' => '1.41', 'IO::Seekable' => '1.41', 'IO::Select' => '1.41', 'IO::Socket' => '1.41', 'IO::Socket::INET' => '1.41', 'IO::Socket::UNIX' => '1.41', 'IO::Uncompress::Adapter::Bunzip2'=> '2.086', 'IO::Uncompress::Adapter::Identity'=> '2.086', 'IO::Uncompress::Adapter::Inflate'=> '2.086', 'IO::Uncompress::AnyInflate'=> '2.086', 'IO::Uncompress::AnyUncompress'=> '2.086', 'IO::Uncompress::Base' => '2.086', 'IO::Uncompress::Bunzip2'=> '2.086', 'IO::Uncompress::Gunzip'=> '2.086', 'IO::Uncompress::Inflate'=> '2.086', 'IO::Uncompress::RawInflate'=> '2.086', 'IO::Uncompress::Unzip' => '2.086', 'Module::CoreList' => '5.20190620', 'Module::CoreList::Utils'=> '5.20190620', 'POSIX' => '1.89', 'Pod::Man' => '4.12', 'Pod::ParseLink' => '4.12', 'Pod::Simple' => '3.38', 'Pod::Simple::BlackBox' => '3.38', 'Pod::Simple::Checker' => '3.38', 'Pod::Simple::Debug' => '3.38', 'Pod::Simple::DumpAsText'=> '3.38', 'Pod::Simple::DumpAsXML'=> '3.38', 'Pod::Simple::HTML' => '3.38', 'Pod::Simple::HTMLBatch'=> '3.38', 'Pod::Simple::LinkSection'=> '3.38', 'Pod::Simple::Methody' => '3.38', 'Pod::Simple::Progress' => '3.38', 'Pod::Simple::PullParser'=> '3.38', 'Pod::Simple::PullParserEndToken'=> '3.38', 'Pod::Simple::PullParserStartToken'=> '3.38', 'Pod::Simple::PullParserTextToken'=> '3.38', 'Pod::Simple::PullParserToken'=> '3.38', 'Pod::Simple::RTF' => '3.38', 'Pod::Simple::Search' => '3.38', 'Pod::Simple::SimpleTree'=> '3.38', 'Pod::Simple::Text' => '3.38', 'Pod::Simple::TextContent'=> '3.38', 'Pod::Simple::TiedOutFH'=> '3.38', 'Pod::Simple::Transcode'=> '3.38', 'Pod::Simple::TranscodeDumb'=> '3.38', 'Pod::Simple::TranscodeSmart'=> '3.38', 'Pod::Simple::XHTML' => '3.38', 'Pod::Simple::XMLOutStream'=> '3.38', 'Pod::Text' => '4.12', 'Pod::Text::Color' => '4.12', 'Pod::Text::Overstrike' => '4.12', 'Pod::Text::Termcap' => '4.12', 'SelfLoader' => '1.26', 'Storable' => '3.16', 'Sys::Hostname' => '1.23', 'Test2' => '1.302164', 'Test2::API' => '1.302164', 'Test2::API::Breakage' => '1.302164', 'Test2::API::Context' => '1.302164', 'Test2::API::Instance' => '1.302164', 'Test2::API::Stack' => '1.302164', 'Test2::Event' => '1.302164', 'Test2::Event::Bail' => '1.302164', 'Test2::Event::Diag' => '1.302164', 'Test2::Event::Encoding'=> '1.302164', 'Test2::Event::Exception'=> '1.302164', 'Test2::Event::Fail' => '1.302164', 'Test2::Event::Generic' => '1.302164', 'Test2::Event::Note' => '1.302164', 'Test2::Event::Ok' => '1.302164', 'Test2::Event::Pass' => '1.302164', 'Test2::Event::Plan' => '1.302164', 'Test2::Event::Skip' => '1.302164', 'Test2::Event::Subtest' => '1.302164', 'Test2::Event::TAP::Version'=> '1.302164', 'Test2::Event::V2' => '1.302164', 'Test2::Event::Waiting' => '1.302164', 'Test2::EventFacet' => '1.302164', 'Test2::EventFacet::About'=> '1.302164', 'Test2::EventFacet::Amnesty'=> '1.302164', 'Test2::EventFacet::Assert'=> '1.302164', 'Test2::EventFacet::Control'=> '1.302164', 'Test2::EventFacet::Error'=> '1.302164', 'Test2::EventFacet::Hub'=> '1.302164', 'Test2::EventFacet::Info'=> '1.302164', 'Test2::EventFacet::Info::Table'=> '1.302164', 'Test2::EventFacet::Meta'=> '1.302164', 'Test2::EventFacet::Parent'=> '1.302164', 'Test2::EventFacet::Plan'=> '1.302164', 'Test2::EventFacet::Render'=> '1.302164', 'Test2::EventFacet::Trace'=> '1.302164', 'Test2::Formatter' => '1.302164', 'Test2::Formatter::TAP' => '1.302164', 'Test2::Hub' => '1.302164', 'Test2::Hub::Interceptor'=> '1.302164', 'Test2::Hub::Interceptor::Terminator'=> '1.302164', 'Test2::Hub::Subtest' => '1.302164', 'Test2::IPC' => '1.302164', 'Test2::IPC::Driver' => '1.302164', 'Test2::IPC::Driver::Files'=> '1.302164', 'Test2::Tools::Tiny' => '1.302164', 'Test2::Util' => '1.302164', 'Test2::Util::ExternalMeta'=> '1.302164', 'Test2::Util::Facets2Legacy'=> '1.302164', 'Test2::Util::HashBase' => '1.302164', 'Test2::Util::Trace' => '1.302164', 'Test::Builder' => '1.302164', 'Test::Builder::Formatter'=> '1.302164', 'Test::Builder::Module' => '1.302164', 'Test::Builder::Tester' => '1.302164', 'Test::Builder::Tester::Color'=> '1.302164', 'Test::Builder::TodoDiag'=> '1.302164', 'Test::More' => '1.302164', 'Test::Simple' => '1.302164', 'Test::Tester' => '1.302164', 'Test::Tester::Capture' => '1.302164', 'Test::Tester::CaptureRunner'=> '1.302164', 'Test::Tester::Delegate'=> '1.302164', 'Test::use::ok' => '1.302164', 'Tie::File' => '1.03', 'Tie::Hash::NamedCapture'=> '0.11', 'Time::HiRes' => '1.9761', 'Unicode::Normalize' => '1.27', 'Unicode::UCD' => '0.73', 'XS::APItest' => '1.01', 'ok' => '1.302164', 'overload' => '1.31', 'warnings' => '1.45', }, removed => { 'Pod::Find' => 1, 'Pod::InputObjects' => 1, 'Pod::ParseUtils' => 1, 'Pod::Parser' => 1, 'Pod::PlainText' => 1, 'Pod::Select' => 1, } }, 5.031002 => { delta_from => 5.031001, changed => { 'B::Op_private' => '5.031002', 'Config' => '5.031002', 'Devel::PPPort' => '3.54', 'Exporter' => '5.74', 'Exporter::Heavy' => '5.74', 'IPC::Cmd' => '1.04', 'JSON::PP' => '4.04', 'JSON::PP::Boolean' => '4.04', 'Module::CoreList' => '5.20190720', 'Module::CoreList::Utils'=> '5.20190720', 'Opcode' => '1.44', 'PerlIO::encoding' => '0.28', 'Pod::Simple' => '3.39', 'Pod::Simple::BlackBox' => '3.39', 'Pod::Simple::Checker' => '3.39', 'Pod::Simple::Debug' => '3.39', 'Pod::Simple::DumpAsText'=> '3.39', 'Pod::Simple::DumpAsXML'=> '3.39', 'Pod::Simple::HTML' => '3.39', 'Pod::Simple::HTMLBatch'=> '3.39', 'Pod::Simple::LinkSection'=> '3.39', 'Pod::Simple::Methody' => '3.39', 'Pod::Simple::Progress' => '3.39', 'Pod::Simple::PullParser'=> '3.39', 'Pod::Simple::PullParserEndToken'=> '3.39', 'Pod::Simple::PullParserStartToken'=> '3.39', 'Pod::Simple::PullParserTextToken'=> '3.39', 'Pod::Simple::PullParserToken'=> '3.39', 'Pod::Simple::RTF' => '3.39', 'Pod::Simple::Search' => '3.39', 'Pod::Simple::SimpleTree'=> '3.39', 'Pod::Simple::Text' => '3.39', 'Pod::Simple::TextContent'=> '3.39', 'Pod::Simple::TiedOutFH'=> '3.39', 'Pod::Simple::Transcode'=> '3.39', 'Pod::Simple::TranscodeDumb'=> '3.39', 'Pod::Simple::TranscodeSmart'=> '3.39', 'Pod::Simple::XHTML' => '3.39', 'Pod::Simple::XMLOutStream'=> '3.39', 'threads::shared' => '1.61', }, removed => { } }, 5.031003 => { delta_from => 5.031002, changed => { 'B::Op_private' => '5.031003', 'Compress::Raw::Bzip2' => '2.087', 'Compress::Raw::Zlib' => '2.087', 'Compress::Zlib' => '2.087', 'Config' => '5.031003', 'Devel::PPPort' => '3.55', 'File::Find' => '1.37', 'Getopt::Long' => '2.51', 'I18N::LangTags::Detect'=> '1.08', 'IO::Compress::Adapter::Bzip2'=> '2.087', 'IO::Compress::Adapter::Deflate'=> '2.087', 'IO::Compress::Adapter::Identity'=> '2.087', 'IO::Compress::Base' => '2.087', 'IO::Compress::Base::Common'=> '2.087', 'IO::Compress::Bzip2' => '2.087', 'IO::Compress::Deflate' => '2.087', 'IO::Compress::Gzip' => '2.087', 'IO::Compress::Gzip::Constants'=> '2.087', 'IO::Compress::RawDeflate'=> '2.087', 'IO::Compress::Zip' => '2.087', 'IO::Compress::Zip::Constants'=> '2.087', 'IO::Compress::Zlib::Constants'=> '2.087', 'IO::Compress::Zlib::Extra'=> '2.087', 'IO::Uncompress::Adapter::Bunzip2'=> '2.087', 'IO::Uncompress::Adapter::Identity'=> '2.087', 'IO::Uncompress::Adapter::Inflate'=> '2.087', 'IO::Uncompress::AnyInflate'=> '2.087', 'IO::Uncompress::AnyUncompress'=> '2.087', 'IO::Uncompress::Base' => '2.087', 'IO::Uncompress::Bunzip2'=> '2.087', 'IO::Uncompress::Gunzip'=> '2.087', 'IO::Uncompress::Inflate'=> '2.087', 'IO::Uncompress::RawInflate'=> '2.087', 'IO::Uncompress::Unzip' => '2.087', 'Module::CoreList' => '5.20190820', 'Module::CoreList::Utils'=> '5.20190820', 'PerlIO::via' => '0.18', 'Storable' => '3.17', 'Test2' => '1.302166', 'Test2::API' => '1.302166', 'Test2::API::Breakage' => '1.302166', 'Test2::API::Context' => '1.302166', 'Test2::API::Instance' => '1.302166', 'Test2::API::Stack' => '1.302166', 'Test2::Event' => '1.302166', 'Test2::Event::Bail' => '1.302166', 'Test2::Event::Diag' => '1.302166', 'Test2::Event::Encoding'=> '1.302166', 'Test2::Event::Exception'=> '1.302166', 'Test2::Event::Fail' => '1.302166', 'Test2::Event::Generic' => '1.302166', 'Test2::Event::Note' => '1.302166', 'Test2::Event::Ok' => '1.302166', 'Test2::Event::Pass' => '1.302166', 'Test2::Event::Plan' => '1.302166', 'Test2::Event::Skip' => '1.302166', 'Test2::Event::Subtest' => '1.302166', 'Test2::Event::TAP::Version'=> '1.302166', 'Test2::Event::V2' => '1.302166', 'Test2::Event::Waiting' => '1.302166', 'Test2::EventFacet' => '1.302166', 'Test2::EventFacet::About'=> '1.302166', 'Test2::EventFacet::Amnesty'=> '1.302166', 'Test2::EventFacet::Assert'=> '1.302166', 'Test2::EventFacet::Control'=> '1.302166', 'Test2::EventFacet::Error'=> '1.302166', 'Test2::EventFacet::Hub'=> '1.302166', 'Test2::EventFacet::Info'=> '1.302166', 'Test2::EventFacet::Info::Table'=> '1.302166', 'Test2::EventFacet::Meta'=> '1.302166', 'Test2::EventFacet::Parent'=> '1.302166', 'Test2::EventFacet::Plan'=> '1.302166', 'Test2::EventFacet::Render'=> '1.302166', 'Test2::EventFacet::Trace'=> '1.302166', 'Test2::Formatter' => '1.302166', 'Test2::Formatter::TAP' => '1.302166', 'Test2::Hub' => '1.302166', 'Test2::Hub::Interceptor'=> '1.302166', 'Test2::Hub::Interceptor::Terminator'=> '1.302166', 'Test2::Hub::Subtest' => '1.302166', 'Test2::IPC' => '1.302166', 'Test2::IPC::Driver' => '1.302166', 'Test2::IPC::Driver::Files'=> '1.302166', 'Test2::Tools::Tiny' => '1.302166', 'Test2::Util' => '1.302166', 'Test2::Util::ExternalMeta'=> '1.302166', 'Test2::Util::Facets2Legacy'=> '1.302166', 'Test2::Util::HashBase' => '1.302166', 'Test2::Util::Trace' => '1.302166', 'Test::Builder' => '1.302166', 'Test::Builder::Formatter'=> '1.302166', 'Test::Builder::Module' => '1.302166', 'Test::Builder::Tester' => '1.302166', 'Test::Builder::Tester::Color'=> '1.302166', 'Test::Builder::TodoDiag'=> '1.302166', 'Test::More' => '1.302166', 'Test::Simple' => '1.302166', 'Test::Tester' => '1.302166', 'Test::Tester::Capture' => '1.302166', 'Test::Tester::CaptureRunner'=> '1.302166', 'Test::Tester::Delegate'=> '1.302166', 'Test::use::ok' => '1.302166', 'Thread' => '3.05', 'Time::HiRes' => '1.9762', 'Win32' => '0.53', 'XS::APItest' => '1.02', 'ok' => '1.302166', }, removed => { } }, 5.031004 => { delta_from => 5.031003, changed => { 'B::Op_private' => '5.031004', 'Config' => '5.031004', 'ExtUtils::Command' => '7.38', 'ExtUtils::Command::MM' => '7.38', 'ExtUtils::Liblist' => '7.38', 'ExtUtils::Liblist::Kid'=> '7.38', 'ExtUtils::MM' => '7.38', 'ExtUtils::MM_AIX' => '7.38', 'ExtUtils::MM_Any' => '7.38', 'ExtUtils::MM_BeOS' => '7.38', 'ExtUtils::MM_Cygwin' => '7.38', 'ExtUtils::MM_DOS' => '7.38', 'ExtUtils::MM_Darwin' => '7.38', 'ExtUtils::MM_MacOS' => '7.38', 'ExtUtils::MM_NW5' => '7.38', 'ExtUtils::MM_OS2' => '7.38', 'ExtUtils::MM_QNX' => '7.38', 'ExtUtils::MM_UWIN' => '7.38', 'ExtUtils::MM_Unix' => '7.38', 'ExtUtils::MM_VMS' => '7.38', 'ExtUtils::MM_VOS' => '7.38', 'ExtUtils::MM_Win32' => '7.38', 'ExtUtils::MM_Win95' => '7.38', 'ExtUtils::MY' => '7.38', 'ExtUtils::MakeMaker' => '7.38', 'ExtUtils::MakeMaker::Config'=> '7.38', 'ExtUtils::MakeMaker::Locale'=> '7.38', 'ExtUtils::MakeMaker::version'=> '7.38', 'ExtUtils::MakeMaker::version::regex'=> '7.38', 'ExtUtils::Mkbootstrap' => '7.38', 'ExtUtils::Mksymlists' => '7.38', 'ExtUtils::testlib' => '7.38', 'I18N::Langinfo' => '0.19', 'List::Util' => '1.52', 'List::Util::XS' => '1.52', 'Module::CoreList' => '5.20190920', 'Module::CoreList::Utils'=> '5.20190920', 'Module::Metadata' => '1.000037', 'Scalar::Util' => '1.52', 'Sub::Util' => '1.52', 'Test2' => '1.302168', 'Test2::API' => '1.302168', 'Test2::API::Breakage' => '1.302168', 'Test2::API::Context' => '1.302168', 'Test2::API::Instance' => '1.302168', 'Test2::API::Stack' => '1.302168', 'Test2::Event' => '1.302168', 'Test2::Event::Bail' => '1.302168', 'Test2::Event::Diag' => '1.302168', 'Test2::Event::Encoding'=> '1.302168', 'Test2::Event::Exception'=> '1.302168', 'Test2::Event::Fail' => '1.302168', 'Test2::Event::Generic' => '1.302168', 'Test2::Event::Note' => '1.302168', 'Test2::Event::Ok' => '1.302168', 'Test2::Event::Pass' => '1.302168', 'Test2::Event::Plan' => '1.302168', 'Test2::Event::Skip' => '1.302168', 'Test2::Event::Subtest' => '1.302168', 'Test2::Event::TAP::Version'=> '1.302168', 'Test2::Event::V2' => '1.302168', 'Test2::Event::Waiting' => '1.302168', 'Test2::EventFacet' => '1.302168', 'Test2::EventFacet::About'=> '1.302168', 'Test2::EventFacet::Amnesty'=> '1.302168', 'Test2::EventFacet::Assert'=> '1.302168', 'Test2::EventFacet::Control'=> '1.302168', 'Test2::EventFacet::Error'=> '1.302168', 'Test2::EventFacet::Hub'=> '1.302168', 'Test2::EventFacet::Info'=> '1.302168', 'Test2::EventFacet::Info::Table'=> '1.302168', 'Test2::EventFacet::Meta'=> '1.302168', 'Test2::EventFacet::Parent'=> '1.302168', 'Test2::EventFacet::Plan'=> '1.302168', 'Test2::EventFacet::Render'=> '1.302168', 'Test2::EventFacet::Trace'=> '1.302168', 'Test2::Formatter' => '1.302168', 'Test2::Formatter::TAP' => '1.302168', 'Test2::Hub' => '1.302168', 'Test2::Hub::Interceptor'=> '1.302168', 'Test2::Hub::Interceptor::Terminator'=> '1.302168', 'Test2::Hub::Subtest' => '1.302168', 'Test2::IPC' => '1.302168', 'Test2::IPC::Driver' => '1.302168', 'Test2::IPC::Driver::Files'=> '1.302168', 'Test2::Tools::Tiny' => '1.302168', 'Test2::Util' => '1.302168', 'Test2::Util::ExternalMeta'=> '1.302168', 'Test2::Util::Facets2Legacy'=> '1.302168', 'Test2::Util::HashBase' => '1.302168', 'Test2::Util::Trace' => '1.302168', 'Test::Builder' => '1.302168', 'Test::Builder::Formatter'=> '1.302168', 'Test::Builder::Module' => '1.302168', 'Test::Builder::Tester' => '1.302168', 'Test::Builder::Tester::Color'=> '1.302168', 'Test::Builder::TodoDiag'=> '1.302168', 'Test::More' => '1.302168', 'Test::Simple' => '1.302168', 'Test::Tester' => '1.302168', 'Test::Tester::Capture' => '1.302168', 'Test::Tester::CaptureRunner'=> '1.302168', 'Test::Tester::Delegate'=> '1.302168', 'Test::use::ok' => '1.302168', 'Time::HiRes' => '1.9763', 'XS::APItest' => '1.03', 'ok' => '1.302168', 're' => '0.38', }, removed => { } }, 5.031005 => { delta_from => 5.031004, changed => { 'B' => '1.77', 'B::Deparse' => '1.50', 'B::Op_private' => '5.031005', 'Config' => '5.031005', 'Devel::PPPort' => '3.54', 'Digest::MD5' => '2.55_01', 'Dumpvalue' => '1.21', 'ExtUtils::CBuilder' => '0.280233', 'Math::BigFloat' => '1.999817_01', 'Math::BigInt' => '1.999817_01', 'Math::BigInt::Calc' => '1.999817_01', 'Math::BigInt::FastCalc'=> '0.5009', 'Math::BigInt::Lib' => '1.999817_01', 'Module::CoreList' => '5.20191020', 'Module::CoreList::Utils'=> '5.20191020', 'Safe' => '2.41', 'Time::HiRes' => '1.9764', 'XS::APItest' => '1.04', 'threads' => '2.23', }, removed => { } }, 5.030001 => { delta_from => 5.030000, changed => { 'B::Op_private' => '5.030001', 'Config' => '5.030001', 'Module::CoreList' => '5.20191110', 'Module::CoreList::Utils'=> '5.20191110', }, removed => { } }, 5.031006 => { delta_from => 5.031005, changed => { 'B::Deparse' => '1.51', 'B::Op_private' => '5.031006', 'Compress::Raw::Bzip2' => '2.090', 'Compress::Raw::Zlib' => '2.090', 'Compress::Zlib' => '2.090', 'Config' => '5.031006', 'Devel::PPPort' => '3.55', 'DynaLoader' => '1.46', 'IO::Compress::Adapter::Bzip2'=> '2.090', 'IO::Compress::Adapter::Deflate'=> '2.090', 'IO::Compress::Adapter::Identity'=> '2.090', 'IO::Compress::Base' => '2.090', 'IO::Compress::Base::Common'=> '2.090', 'IO::Compress::Bzip2' => '2.090', 'IO::Compress::Deflate' => '2.090', 'IO::Compress::Gzip' => '2.090', 'IO::Compress::Gzip::Constants'=> '2.090', 'IO::Compress::RawDeflate'=> '2.090', 'IO::Compress::Zip' => '2.090', 'IO::Compress::Zip::Constants'=> '2.090', 'IO::Compress::Zlib::Constants'=> '2.090', 'IO::Compress::Zlib::Extra'=> '2.090', 'IO::Uncompress::Adapter::Bunzip2'=> '2.090', 'IO::Uncompress::Adapter::Identity'=> '2.090', 'IO::Uncompress::Adapter::Inflate'=> '2.090', 'IO::Uncompress::AnyInflate'=> '2.090', 'IO::Uncompress::AnyUncompress'=> '2.090', 'IO::Uncompress::Base' => '2.090', 'IO::Uncompress::Bunzip2'=> '2.090', 'IO::Uncompress::Gunzip'=> '2.090', 'IO::Uncompress::Inflate'=> '2.090', 'IO::Uncompress::RawInflate'=> '2.090', 'IO::Uncompress::Unzip' => '2.090', 'List::Util' => '1.53', 'List::Util::XS' => '1.53', 'Math::BigFloat' => '1.999818', 'Math::BigInt' => '1.999818', 'Math::BigInt::Calc' => '1.999818', 'Math::BigInt::Lib' => '1.999818', 'Module::CoreList' => '5.20191120', 'Module::CoreList::Utils'=> '5.20191120', 'Module::Load::Conditional'=> '0.70', 'POSIX' => '1.90', 'Pod::Simple' => '3.40', 'Pod::Simple::BlackBox' => '3.40', 'Pod::Simple::Checker' => '3.40', 'Pod::Simple::Debug' => '3.40', 'Pod::Simple::DumpAsText'=> '3.40', 'Pod::Simple::DumpAsXML'=> '3.40', 'Pod::Simple::HTML' => '3.40', 'Pod::Simple::HTMLBatch'=> '3.40', 'Pod::Simple::LinkSection'=> '3.40', 'Pod::Simple::Methody' => '3.40', 'Pod::Simple::Progress' => '3.40', 'Pod::Simple::PullParser'=> '3.40', 'Pod::Simple::PullParserEndToken'=> '3.40', 'Pod::Simple::PullParserStartToken'=> '3.40', 'Pod::Simple::PullParserTextToken'=> '3.40', 'Pod::Simple::PullParserToken'=> '3.40', 'Pod::Simple::RTF' => '3.40', 'Pod::Simple::Search' => '3.40', 'Pod::Simple::SimpleTree'=> '3.40', 'Pod::Simple::Text' => '3.40', 'Pod::Simple::TextContent'=> '3.40', 'Pod::Simple::TiedOutFH'=> '3.40', 'Pod::Simple::Transcode'=> '3.40', 'Pod::Simple::TranscodeDumb'=> '3.40', 'Pod::Simple::TranscodeSmart'=> '3.40', 'Pod::Simple::XHTML' => '3.40', 'Pod::Simple::XMLOutStream'=> '3.40', 'Scalar::Util' => '1.53', 'Sub::Util' => '1.53', 'Sys::Syslog' => '0.36', 'Test2' => '1.302169', 'Test2::API' => '1.302169', 'Test2::API::Breakage' => '1.302169', 'Test2::API::Context' => '1.302169', 'Test2::API::Instance' => '1.302169', 'Test2::API::Stack' => '1.302169', 'Test2::Event' => '1.302169', 'Test2::Event::Bail' => '1.302169', 'Test2::Event::Diag' => '1.302169', 'Test2::Event::Encoding'=> '1.302169', 'Test2::Event::Exception'=> '1.302169', 'Test2::Event::Fail' => '1.302169', 'Test2::Event::Generic' => '1.302169', 'Test2::Event::Note' => '1.302169', 'Test2::Event::Ok' => '1.302169', 'Test2::Event::Pass' => '1.302169', 'Test2::Event::Plan' => '1.302169', 'Test2::Event::Skip' => '1.302169', 'Test2::Event::Subtest' => '1.302169', 'Test2::Event::TAP::Version'=> '1.302169', 'Test2::Event::V2' => '1.302169', 'Test2::Event::Waiting' => '1.302169', 'Test2::EventFacet' => '1.302169', 'Test2::EventFacet::About'=> '1.302169', 'Test2::EventFacet::Amnesty'=> '1.302169', 'Test2::EventFacet::Assert'=> '1.302169', 'Test2::EventFacet::Control'=> '1.302169', 'Test2::EventFacet::Error'=> '1.302169', 'Test2::EventFacet::Hub'=> '1.302169', 'Test2::EventFacet::Info'=> '1.302169', 'Test2::EventFacet::Info::Table'=> '1.302169', 'Test2::EventFacet::Meta'=> '1.302169', 'Test2::EventFacet::Parent'=> '1.302169', 'Test2::EventFacet::Plan'=> '1.302169', 'Test2::EventFacet::Render'=> '1.302169', 'Test2::EventFacet::Trace'=> '1.302169', 'Test2::Formatter' => '1.302169', 'Test2::Formatter::TAP' => '1.302169', 'Test2::Hub' => '1.302169', 'Test2::Hub::Interceptor'=> '1.302169', 'Test2::Hub::Interceptor::Terminator'=> '1.302169', 'Test2::Hub::Subtest' => '1.302169', 'Test2::IPC' => '1.302169', 'Test2::IPC::Driver' => '1.302169', 'Test2::IPC::Driver::Files'=> '1.302169', 'Test2::Tools::Tiny' => '1.302169', 'Test2::Util' => '1.302169', 'Test2::Util::ExternalMeta'=> '1.302169', 'Test2::Util::Facets2Legacy'=> '1.302169', 'Test2::Util::HashBase' => '1.302169', 'Test2::Util::Trace' => '1.302169', 'Test::Builder' => '1.302169', 'Test::Builder::Formatter'=> '1.302169', 'Test::Builder::Module' => '1.302169', 'Test::Builder::Tester' => '1.302169', 'Test::Builder::Tester::Color'=> '1.302169', 'Test::Builder::TodoDiag'=> '1.302169', 'Test::More' => '1.302169', 'Test::Simple' => '1.302169', 'Test::Tester' => '1.302169', 'Test::Tester::Capture' => '1.302169', 'Test::Tester::CaptureRunner'=> '1.302169', 'Test::Tester::Delegate'=> '1.302169', 'Test::use::ok' => '1.302169', 'Tie::StdHandle' => '4.6', 'Unicode::UCD' => '0.74', 'Win32API::File' => '0.1203_01', 'feature' => '1.56', 'mro' => '1.23', 'ok' => '1.302169', 'perlfaq' => '5.20191102', }, removed => { } }, 5.031007 => { delta_from => 5.031006, changed => { 'B' => '1.78', 'B::Deparse' => '1.52', 'B::Op_private' => '5.031007', 'Compress::Raw::Bzip2' => '2.093', 'Compress::Raw::Zlib' => '2.093', 'Compress::Zlib' => '2.093', 'Config' => '5.031007', 'Devel::PPPort' => '3.56', 'English' => '1.11', 'ExtUtils::Command' => '7.42', 'ExtUtils::Command::MM' => '7.42', 'ExtUtils::Liblist' => '7.42', 'ExtUtils::Liblist::Kid'=> '7.42', 'ExtUtils::MM' => '7.42', 'ExtUtils::MM_AIX' => '7.42', 'ExtUtils::MM_Any' => '7.42', 'ExtUtils::MM_BeOS' => '7.42', 'ExtUtils::MM_Cygwin' => '7.42', 'ExtUtils::MM_DOS' => '7.42', 'ExtUtils::MM_Darwin' => '7.42', 'ExtUtils::MM_MacOS' => '7.42', 'ExtUtils::MM_NW5' => '7.42', 'ExtUtils::MM_OS2' => '7.42', 'ExtUtils::MM_QNX' => '7.42', 'ExtUtils::MM_UWIN' => '7.42', 'ExtUtils::MM_Unix' => '7.42', 'ExtUtils::MM_VMS' => '7.42', 'ExtUtils::MM_VOS' => '7.42', 'ExtUtils::MM_Win32' => '7.42', 'ExtUtils::MM_Win95' => '7.42', 'ExtUtils::MY' => '7.42', 'ExtUtils::MakeMaker' => '7.42', 'ExtUtils::MakeMaker::Config'=> '7.42', 'ExtUtils::MakeMaker::Locale'=> '7.42', 'ExtUtils::MakeMaker::version'=> '7.42', 'ExtUtils::MakeMaker::version::regex'=> '7.42', 'ExtUtils::Mkbootstrap' => '7.42', 'ExtUtils::Mksymlists' => '7.42', 'ExtUtils::testlib' => '7.42', 'File::stat' => '1.09', 'Filter::Simple' => '0.96', 'IO::Compress::Adapter::Bzip2'=> '2.093', 'IO::Compress::Adapter::Deflate'=> '2.093', 'IO::Compress::Adapter::Identity'=> '2.093', 'IO::Compress::Base' => '2.093', 'IO::Compress::Base::Common'=> '2.093', 'IO::Compress::Bzip2' => '2.093', 'IO::Compress::Deflate' => '2.093', 'IO::Compress::Gzip' => '2.093', 'IO::Compress::Gzip::Constants'=> '2.093', 'IO::Compress::RawDeflate'=> '2.093', 'IO::Compress::Zip' => '2.093', 'IO::Compress::Zip::Constants'=> '2.093', 'IO::Compress::Zlib::Constants'=> '2.093', 'IO::Compress::Zlib::Extra'=> '2.093', 'IO::Uncompress::Adapter::Bunzip2'=> '2.093', 'IO::Uncompress::Adapter::Identity'=> '2.093', 'IO::Uncompress::Adapter::Inflate'=> '2.093', 'IO::Uncompress::AnyInflate'=> '2.093', 'IO::Uncompress::AnyUncompress'=> '2.093', 'IO::Uncompress::Base' => '2.093', 'IO::Uncompress::Bunzip2'=> '2.093', 'IO::Uncompress::Gunzip'=> '2.093', 'IO::Uncompress::Inflate'=> '2.093', 'IO::Uncompress::RawInflate'=> '2.093', 'IO::Uncompress::Unzip' => '2.093', 'Module::CoreList' => '5.20191220', 'Module::CoreList::Utils'=> '5.20191220', 'Net::Ping' => '2.72', 'Opcode' => '1.45', 'Storable' => '3.18', 'Test2' => '1.302170', 'Test2::API' => '1.302170', 'Test2::API::Breakage' => '1.302170', 'Test2::API::Context' => '1.302170', 'Test2::API::Instance' => '1.302170', 'Test2::API::Stack' => '1.302170', 'Test2::Event' => '1.302170', 'Test2::Event::Bail' => '1.302170', 'Test2::Event::Diag' => '1.302170', 'Test2::Event::Encoding'=> '1.302170', 'Test2::Event::Exception'=> '1.302170', 'Test2::Event::Fail' => '1.302170', 'Test2::Event::Generic' => '1.302170', 'Test2::Event::Note' => '1.302170', 'Test2::Event::Ok' => '1.302170', 'Test2::Event::Pass' => '1.302170', 'Test2::Event::Plan' => '1.302170', 'Test2::Event::Skip' => '1.302170', 'Test2::Event::Subtest' => '1.302170', 'Test2::Event::TAP::Version'=> '1.302170', 'Test2::Event::V2' => '1.302170', 'Test2::Event::Waiting' => '1.302170', 'Test2::EventFacet' => '1.302170', 'Test2::EventFacet::About'=> '1.302170', 'Test2::EventFacet::Amnesty'=> '1.302170', 'Test2::EventFacet::Assert'=> '1.302170', 'Test2::EventFacet::Control'=> '1.302170', 'Test2::EventFacet::Error'=> '1.302170', 'Test2::EventFacet::Hub'=> '1.302170', 'Test2::EventFacet::Info'=> '1.302170', 'Test2::EventFacet::Info::Table'=> '1.302170', 'Test2::EventFacet::Meta'=> '1.302170', 'Test2::EventFacet::Parent'=> '1.302170', 'Test2::EventFacet::Plan'=> '1.302170', 'Test2::EventFacet::Render'=> '1.302170', 'Test2::EventFacet::Trace'=> '1.302170', 'Test2::Formatter' => '1.302170', 'Test2::Formatter::TAP' => '1.302170', 'Test2::Hub' => '1.302170', 'Test2::Hub::Interceptor'=> '1.302170', 'Test2::Hub::Interceptor::Terminator'=> '1.302170', 'Test2::Hub::Subtest' => '1.302170', 'Test2::IPC' => '1.302170', 'Test2::IPC::Driver' => '1.302170', 'Test2::IPC::Driver::Files'=> '1.302170', 'Test2::Tools::Tiny' => '1.302170', 'Test2::Util' => '1.302170', 'Test2::Util::ExternalMeta'=> '1.302170', 'Test2::Util::Facets2Legacy'=> '1.302170', 'Test2::Util::HashBase' => '1.302170', 'Test2::Util::Trace' => '1.302170', 'Test::Builder' => '1.302170', 'Test::Builder::Formatter'=> '1.302170', 'Test::Builder::Module' => '1.302170', 'Test::Builder::Tester' => '1.302170', 'Test::Builder::Tester::Color'=> '1.302170', 'Test::Builder::TodoDiag'=> '1.302170', 'Test::More' => '1.302170', 'Test::Simple' => '1.302170', 'Test::Tester' => '1.302170', 'Test::Tester::Capture' => '1.302170', 'Test::Tester::CaptureRunner'=> '1.302170', 'Test::Tester::Delegate'=> '1.302170', 'Test::use::ok' => '1.302170', 'Tie::Hash::NamedCapture'=> '0.13', 'VMS::Stdio' => '2.45', 'XS::APItest' => '1.05', 'feature' => '1.57', 'ok' => '1.302170', 'warnings' => '1.46', }, removed => { } }, 5.031008 => { delta_from => 5.031007, changed => { 'B::Op_private' => '5.031008', 'Config' => '5.031008', 'DB_File' => '1.853', 'Encode' => '3.02', 'ExtUtils::Command' => '7.44', 'ExtUtils::Command::MM' => '7.44', 'ExtUtils::Liblist' => '7.44', 'ExtUtils::Liblist::Kid'=> '7.44', 'ExtUtils::MM' => '7.44', 'ExtUtils::MM_AIX' => '7.44', 'ExtUtils::MM_Any' => '7.44', 'ExtUtils::MM_BeOS' => '7.44', 'ExtUtils::MM_Cygwin' => '7.44', 'ExtUtils::MM_DOS' => '7.44', 'ExtUtils::MM_Darwin' => '7.44', 'ExtUtils::MM_MacOS' => '7.44', 'ExtUtils::MM_NW5' => '7.44', 'ExtUtils::MM_OS2' => '7.44', 'ExtUtils::MM_QNX' => '7.44', 'ExtUtils::MM_UWIN' => '7.44', 'ExtUtils::MM_Unix' => '7.44', 'ExtUtils::MM_VMS' => '7.44', 'ExtUtils::MM_VOS' => '7.44', 'ExtUtils::MM_Win32' => '7.44', 'ExtUtils::MM_Win95' => '7.44', 'ExtUtils::MY' => '7.44', 'ExtUtils::MakeMaker' => '7.44', 'ExtUtils::MakeMaker::Config'=> '7.44', 'ExtUtils::MakeMaker::Locale'=> '7.44', 'ExtUtils::MakeMaker::version'=> '7.44', 'ExtUtils::MakeMaker::version::regex'=> '7.44', 'ExtUtils::Mkbootstrap' => '7.44', 'ExtUtils::Mksymlists' => '7.44', 'ExtUtils::testlib' => '7.44', 'Fatal' => '2.32', 'Hash::Util' => '0.23', 'IO' => '1.42', 'IO::Handle' => '1.42', 'IO::Socket' => '1.42', 'Module::CoreList' => '5.20200120', 'Module::CoreList::Utils'=> '5.20200120', 'POSIX' => '1.91', 'Pod::Man' => '4.14', 'Pod::ParseLink' => '4.14', 'Pod::Text' => '4.14', 'Pod::Text::Color' => '4.14', 'Pod::Text::Overstrike' => '4.14', 'Pod::Text::Termcap' => '4.14', 'Term::ANSIColor' => '5.01', 'Test2' => '1.302171', 'Test2::API' => '1.302171', 'Test2::API::Breakage' => '1.302171', 'Test2::API::Context' => '1.302171', 'Test2::API::Instance' => '1.302171', 'Test2::API::Stack' => '1.302171', 'Test2::Event' => '1.302171', 'Test2::Event::Bail' => '1.302171', 'Test2::Event::Diag' => '1.302171', 'Test2::Event::Encoding'=> '1.302171', 'Test2::Event::Exception'=> '1.302171', 'Test2::Event::Fail' => '1.302171', 'Test2::Event::Generic' => '1.302171', 'Test2::Event::Note' => '1.302171', 'Test2::Event::Ok' => '1.302171', 'Test2::Event::Pass' => '1.302171', 'Test2::Event::Plan' => '1.302171', 'Test2::Event::Skip' => '1.302171', 'Test2::Event::Subtest' => '1.302171', 'Test2::Event::TAP::Version'=> '1.302171', 'Test2::Event::V2' => '1.302171', 'Test2::Event::Waiting' => '1.302171', 'Test2::EventFacet' => '1.302171', 'Test2::EventFacet::About'=> '1.302171', 'Test2::EventFacet::Amnesty'=> '1.302171', 'Test2::EventFacet::Assert'=> '1.302171', 'Test2::EventFacet::Control'=> '1.302171', 'Test2::EventFacet::Error'=> '1.302171', 'Test2::EventFacet::Hub'=> '1.302171', 'Test2::EventFacet::Info'=> '1.302171', 'Test2::EventFacet::Info::Table'=> '1.302171', 'Test2::EventFacet::Meta'=> '1.302171', 'Test2::EventFacet::Parent'=> '1.302171', 'Test2::EventFacet::Plan'=> '1.302171', 'Test2::EventFacet::Render'=> '1.302171', 'Test2::EventFacet::Trace'=> '1.302171', 'Test2::Formatter' => '1.302171', 'Test2::Formatter::TAP' => '1.302171', 'Test2::Hub' => '1.302171', 'Test2::Hub::Interceptor'=> '1.302171', 'Test2::Hub::Interceptor::Terminator'=> '1.302171', 'Test2::Hub::Subtest' => '1.302171', 'Test2::IPC' => '1.302171', 'Test2::IPC::Driver' => '1.302171', 'Test2::IPC::Driver::Files'=> '1.302171', 'Test2::Tools::Tiny' => '1.302171', 'Test2::Util' => '1.302171', 'Test2::Util::ExternalMeta'=> '1.302171', 'Test2::Util::Facets2Legacy'=> '1.302171', 'Test2::Util::HashBase' => '1.302171', 'Test2::Util::Trace' => '1.302171', 'Test::Builder' => '1.302171', 'Test::Builder::Formatter'=> '1.302171', 'Test::Builder::Module' => '1.302171', 'Test::Builder::Tester' => '1.302171', 'Test::Builder::Tester::Color'=> '1.302171', 'Test::Builder::TodoDiag'=> '1.302171', 'Test::More' => '1.302171', 'Test::Simple' => '1.302171', 'Test::Tester' => '1.302171', 'Test::Tester::Capture' => '1.302171', 'Test::Tester::CaptureRunner'=> '1.302171', 'Test::Tester::Delegate'=> '1.302171', 'Test::use::ok' => '1.302171', 'XS::APItest' => '1.06', 'autodie' => '2.32', 'autodie::Scope::Guard' => '2.32', 'autodie::Scope::GuardStack'=> '2.32', 'autodie::Util' => '2.32', 'autodie::exception' => '2.32', 'autodie::exception::system'=> '2.32', 'autodie::hints' => '2.32', 'autodie::skip' => '2.32', 'ok' => '1.302171', }, removed => { } }, 5.031009 => { delta_from => 5.031008, changed => { 'Archive::Tar' => '2.36', 'Archive::Tar::Constant'=> '2.36', 'Archive::Tar::File' => '2.36', 'B' => '1.80', 'B::Op_private' => '5.031009', 'Config' => '5.031009', 'Devel::PPPort' => '3.57', 'Encode' => '3.03', 'ExtUtils::CBuilder' => '0.280234', 'ExtUtils::CBuilder::Base'=> '0.280234', 'ExtUtils::CBuilder::Platform::Unix'=> '0.280234', 'ExtUtils::CBuilder::Platform::VMS'=> '0.280234', 'ExtUtils::CBuilder::Platform::Windows'=> '0.280234', 'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280234', 'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280234', 'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280234', 'ExtUtils::CBuilder::Platform::aix'=> '0.280234', 'ExtUtils::CBuilder::Platform::android'=> '0.280234', 'ExtUtils::CBuilder::Platform::cygwin'=> '0.280234', 'ExtUtils::CBuilder::Platform::darwin'=> '0.280234', 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280234', 'ExtUtils::CBuilder::Platform::os2'=> '0.280234', 'IO' => '1.43', 'IO::Select' => '1.42', 'IO::Socket' => '1.43', 'Module::CoreList' => '5.20200220', 'Module::CoreList::Utils'=> '5.20200220', 'POSIX' => '1.92', 'Pod::Html' => '1.25', 'Storable' => '3.19', 'Tie::File' => '1.06', 'Unicode' => '13.0.0', 'XS::APItest' => '1.07', '_charnames' => '1.46', 'charnames' => '1.46', 'diagnostics' => '1.37', 'feature' => '1.58', 'parent' => '0.238', 'perlfaq' => '5.20200125', 'threads' => '2.24', }, removed => { } }, 5.030002 => { delta_from => 5.030001, changed => { 'B::Op_private' => '5.030002', 'Compress::Raw::Bzip2' => '2.089', 'Config' => '5.030002', 'Module::CoreList' => '5.20200314', 'Module::CoreList::Utils'=> '5.20200314', }, removed => { } }, 5.031010 => { delta_from => 5.031009, changed => { 'B::Op_private' => '5.031010', 'Config' => '5.03101', }, removed => { } }, 5.031011 => { delta_from => 5.031010, changed => { 'B::Deparse' => '1.53', 'B::Op_private' => '5.031011', 'Config' => '5.031011', 'DynaLoader' => '1.47', 'Encode' => '3.04', 'IPC::Open2' => '1.05', 'IPC::Open3' => '1.21', 'Module::CoreList' => '5.20200428', 'Module::CoreList::Utils'=> '5.20200428', 'Opcode' => '1.47', 'POSIX' => '1.93', 'PerlIO' => '1.11', 'Storable' => '3.20', 'Test2' => '1.302175', 'Test2::API' => '1.302175', 'Test2::API::Breakage' => '1.302175', 'Test2::API::Context' => '1.302175', 'Test2::API::Instance' => '1.302175', 'Test2::API::Stack' => '1.302175', 'Test2::Event' => '1.302175', 'Test2::Event::Bail' => '1.302175', 'Test2::Event::Diag' => '1.302175', 'Test2::Event::Encoding'=> '1.302175', 'Test2::Event::Exception'=> '1.302175', 'Test2::Event::Fail' => '1.302175', 'Test2::Event::Generic' => '1.302175', 'Test2::Event::Note' => '1.302175', 'Test2::Event::Ok' => '1.302175', 'Test2::Event::Pass' => '1.302175', 'Test2::Event::Plan' => '1.302175', 'Test2::Event::Skip' => '1.302175', 'Test2::Event::Subtest' => '1.302175', 'Test2::Event::TAP::Version'=> '1.302175', 'Test2::Event::V2' => '1.302175', 'Test2::Event::Waiting' => '1.302175', 'Test2::EventFacet' => '1.302175', 'Test2::EventFacet::About'=> '1.302175', 'Test2::EventFacet::Amnesty'=> '1.302175', 'Test2::EventFacet::Assert'=> '1.302175', 'Test2::EventFacet::Control'=> '1.302175', 'Test2::EventFacet::Error'=> '1.302175', 'Test2::EventFacet::Hub'=> '1.302175', 'Test2::EventFacet::Info'=> '1.302175', 'Test2::EventFacet::Info::Table'=> '1.302175', 'Test2::EventFacet::Meta'=> '1.302175', 'Test2::EventFacet::Parent'=> '1.302175', 'Test2::EventFacet::Plan'=> '1.302175', 'Test2::EventFacet::Render'=> '1.302175', 'Test2::EventFacet::Trace'=> '1.302175', 'Test2::Formatter' => '1.302175', 'Test2::Formatter::TAP' => '1.302175', 'Test2::Hub' => '1.302175', 'Test2::Hub::Interceptor'=> '1.302175', 'Test2::Hub::Interceptor::Terminator'=> '1.302175', 'Test2::Hub::Subtest' => '1.302175', 'Test2::IPC' => '1.302175', 'Test2::IPC::Driver' => '1.302175', 'Test2::IPC::Driver::Files'=> '1.302175', 'Test2::Tools::Tiny' => '1.302175', 'Test2::Util' => '1.302175', 'Test2::Util::ExternalMeta'=> '1.302175', 'Test2::Util::Facets2Legacy'=> '1.302175', 'Test2::Util::HashBase' => '1.302175', 'Test2::Util::Trace' => '1.302175', 'Test::Builder' => '1.302175', 'Test::Builder::Formatter'=> '1.302175', 'Test::Builder::Module' => '1.302175', 'Test::Builder::Tester' => '1.302175', 'Test::Builder::Tester::Color'=> '1.302175', 'Test::Builder::TodoDiag'=> '1.302175', 'Test::More' => '1.302175', 'Test::Simple' => '1.302175', 'Test::Tester' => '1.302175', 'Test::Tester::Capture' => '1.302175', 'Test::Tester::CaptureRunner'=> '1.302175', 'Test::Tester::Delegate'=> '1.302175', 'Test::use::ok' => '1.302175', 'Time::Piece' => '1.3401', 'Time::Seconds' => '1.3401', 'Unicode::UCD' => '0.75', 'XS::APItest' => '1.09', '_charnames' => '1.47', 'charnames' => '1.47', 'ok' => '1.302175', 'open' => '1.12', 're' => '0.39', 'warnings' => '1.47', }, removed => { } }, 5.028003 => { delta_from => 5.028002, changed => { 'B::Op_private' => '5.028003', 'Config' => '5.028003', 'Module::CoreList' => '5.20200601_28', 'Module::CoreList::Utils'=> '5.20200601_28', }, removed => { } }, 5.030003 => { delta_from => 5.030002, changed => { 'B::Op_private' => '5.030003', 'Config' => '5.030003', 'Module::CoreList' => '5.20200601_30', 'Module::CoreList::Utils'=> '5.20200601_30', }, removed => { } }, 5.032000 => { delta_from => 5.031011, changed => { 'B::Deparse' => '1.54', 'B::Op_private' => '5.032000', 'Benchmark' => '1.23', 'Config' => '5.032', 'Encode' => '3.06', 'Encode::Guess' => '2.08', 'File::Glob' => '1.33', 'List::Util' => '1.55', 'List::Util::XS' => '1.55', 'Module::CoreList' => '5.20200620', 'Module::CoreList::Utils'=> '5.20200620', 'POSIX' => '1.94', 'Scalar::Util' => '1.55', 'Storable' => '3.21', 'Sub::Util' => '1.55', 'Thread::Queue' => '3.14', 'Tie::Scalar' => '1.05', '_charnames' => '1.48', 'charnames' => '1.48', 'encoding' => '3.00', 'perlfaq' => '5.20200523', 're' => '0.40', 'threads' => '2.25', }, removed => { } }, 5.033000 => { delta_from => 5.032000, changed => { 'B::Op_private' => '5.033000', 'Config' => '5.033', 'Module::CoreList' => '5.20200717', 'Module::CoreList::Utils'=> '5.20200717', 'feature' => '1.59', }, removed => { } }, 5.033001 => { delta_from => 5.033, changed => { 'B' => '1.81', 'B::Deparse' => '1.55', 'B::Op_private' => '5.033001', 'Config' => '5.033001', 'Data::Dumper' => '2.175', 'Devel::PPPort' => '3.60', 'Devel::Peek' => '1.29', 'DynaLoader' => '1.48', 'Errno' => '1.31', 'Exporter' => '5.75', 'Exporter::Heavy' => '5.75', 'ExtUtils::Miniperl' => '1.10', 'ExtUtils::PL2Bat' => '0.002', 'ExtUtils::ParseXS' => '3.41', 'ExtUtils::ParseXS::Constants'=> '3.41', 'ExtUtils::ParseXS::CountLines'=> '3.41', 'ExtUtils::ParseXS::Eval'=> '3.41', 'ExtUtils::ParseXS::Utilities'=> '3.41', 'Fcntl' => '1.14', 'File::Path' => '2.17', 'Hash::Util' => '0.24', 'Hash::Util::FieldHash' => '1.21', 'IO' => '1.44', 'IO::Socket' => '1.44', 'IO::Socket::UNIX' => '1.42', 'IPC::Msg' => '2.08', 'IPC::Semaphore' => '2.08', 'IPC::SharedMem' => '2.08', 'IPC::SysV' => '2.08', 'JSON::PP' => '4.05', 'JSON::PP::Boolean' => '4.05', 'Math::Complex' => '1.5902', 'Module::CoreList' => '5.20200820', 'Module::CoreList::Utils'=> '5.20200820', 'Net::Ping' => '2.73_01', 'POSIX' => '1.95', 'PerlIO::mmap' => '0.017', 'Pod::Usage' => '1.70', 'Safe' => '2.42', 'Socket' => '2.030', 'Storable' => '3.22', 'Time::HiRes' => '1.9765', 'Unicode::Normalize' => '1.28', 'XS::APItest' => '1.11', 'XS::Typemap' => '0.18', 'feature' => '1.60', 'mro' => '1.24', 'strict' => '1.12', 'threads' => '2.26', 'threads::shared' => '1.62', 'warnings' => '1.48', }, removed => { 'Moped::Msg' => 1, } }, 5.033002 => { delta_from => 5.033001, changed => { 'Archive::Tar' => '2.38', 'Archive::Tar::Constant'=> '2.38', 'Archive::Tar::File' => '2.38', 'B::Op_private' => '5.033002', 'Compress::Raw::Bzip2' => '2.096', 'Compress::Raw::Zlib' => '2.096', 'Compress::Zlib' => '2.096', 'Config' => '5.033002', 'DB_File' => '1.854', 'Env' => '1.05', 'Errno' => '1.32', 'ExtUtils::Install' => '2.18', 'ExtUtils::Installed' => '2.18', 'ExtUtils::Packlist' => '2.18', 'Filter::Util::Call' => '1.60', 'IO::Compress::Adapter::Bzip2'=> '2.096', 'IO::Compress::Adapter::Deflate'=> '2.096', 'IO::Compress::Adapter::Identity'=> '2.096', 'IO::Compress::Base' => '2.096', 'IO::Compress::Base::Common'=> '2.096', 'IO::Compress::Bzip2' => '2.096', 'IO::Compress::Deflate' => '2.096', 'IO::Compress::Gzip' => '2.096', 'IO::Compress::Gzip::Constants'=> '2.096', 'IO::Compress::RawDeflate'=> '2.096', 'IO::Compress::Zip' => '2.096', 'IO::Compress::Zip::Constants'=> '2.096', 'IO::Compress::Zlib::Constants'=> '2.096', 'IO::Compress::Zlib::Extra'=> '2.096', 'IO::Socket::IP' => '0.41', 'IO::Uncompress::Adapter::Bunzip2'=> '2.096', 'IO::Uncompress::Adapter::Identity'=> '2.096', 'IO::Uncompress::Adapter::Inflate'=> '2.096', 'IO::Uncompress::AnyInflate'=> '2.096', 'IO::Uncompress::AnyUncompress'=> '2.096', 'IO::Uncompress::Base' => '2.096', 'IO::Uncompress::Bunzip2'=> '2.096', 'IO::Uncompress::Gunzip'=> '2.096', 'IO::Uncompress::Inflate'=> '2.096', 'IO::Uncompress::RawInflate'=> '2.096', 'IO::Uncompress::Unzip' => '2.096', 'IO::Zlib' => '1.11', 'Module::CoreList' => '5.20200920', 'Module::CoreList::Utils'=> '5.20200920', 'Module::Load::Conditional'=> '0.74', 'Opcode' => '1.48', 'PerlIO::scalar' => '0.31', 'Safe' => '2.43', 'Test2' => '1.302181', 'Test2::API' => '1.302181', 'Test2::API::Breakage' => '1.302181', 'Test2::API::Context' => '1.302181', 'Test2::API::Instance' => '1.302181', 'Test2::API::InterceptResult'=> '1.302181', 'Test2::API::InterceptResult::Event'=> '1.302181', 'Test2::API::InterceptResult::Facet'=> '1.302181', 'Test2::API::InterceptResult::Hub'=> '1.302181', 'Test2::API::InterceptResult::Squasher'=> '1.302181', 'Test2::API::Stack' => '1.302181', 'Test2::Event' => '1.302181', 'Test2::Event::Bail' => '1.302181', 'Test2::Event::Diag' => '1.302181', 'Test2::Event::Encoding'=> '1.302181', 'Test2::Event::Exception'=> '1.302181', 'Test2::Event::Fail' => '1.302181', 'Test2::Event::Generic' => '1.302181', 'Test2::Event::Note' => '1.302181', 'Test2::Event::Ok' => '1.302181', 'Test2::Event::Pass' => '1.302181', 'Test2::Event::Plan' => '1.302181', 'Test2::Event::Skip' => '1.302181', 'Test2::Event::Subtest' => '1.302181', 'Test2::Event::TAP::Version'=> '1.302181', 'Test2::Event::V2' => '1.302181', 'Test2::Event::Waiting' => '1.302181', 'Test2::EventFacet' => '1.302181', 'Test2::EventFacet::About'=> '1.302181', 'Test2::EventFacet::Amnesty'=> '1.302181', 'Test2::EventFacet::Assert'=> '1.302181', 'Test2::EventFacet::Control'=> '1.302181', 'Test2::EventFacet::Error'=> '1.302181', 'Test2::EventFacet::Hub'=> '1.302181', 'Test2::EventFacet::Info'=> '1.302181', 'Test2::EventFacet::Info::Table'=> '1.302181', 'Test2::EventFacet::Meta'=> '1.302181', 'Test2::EventFacet::Parent'=> '1.302181', 'Test2::EventFacet::Plan'=> '1.302181', 'Test2::EventFacet::Render'=> '1.302181', 'Test2::EventFacet::Trace'=> '1.302181', 'Test2::Formatter' => '1.302181', 'Test2::Formatter::TAP' => '1.302181', 'Test2::Hub' => '1.302181', 'Test2::Hub::Interceptor'=> '1.302181', 'Test2::Hub::Interceptor::Terminator'=> '1.302181', 'Test2::Hub::Subtest' => '1.302181', 'Test2::IPC' => '1.302181', 'Test2::IPC::Driver' => '1.302181', 'Test2::IPC::Driver::Files'=> '1.302181', 'Test2::Tools::Tiny' => '1.302181', 'Test2::Util' => '1.302181', 'Test2::Util::ExternalMeta'=> '1.302181', 'Test2::Util::Facets2Legacy'=> '1.302181', 'Test2::Util::HashBase' => '1.302181', 'Test2::Util::Trace' => '1.302181', 'Test::Builder' => '1.302181', 'Test::Builder::Formatter'=> '1.302181', 'Test::Builder::Module' => '1.302181', 'Test::Builder::Tester' => '1.302181', 'Test::Builder::Tester::Color'=> '1.302181', 'Test::Builder::TodoDiag'=> '1.302181', 'Test::More' => '1.302181', 'Test::Simple' => '1.302181', 'Test::Tester' => '1.302181', 'Test::Tester::Capture' => '1.302181', 'Test::Tester::CaptureRunner'=> '1.302181', 'Test::Tester::Delegate'=> '1.302181', 'Test::use::ok' => '1.302181', 'ok' => '1.302181', 'overload' => '1.32', }, removed => { } }, 5.033003 => { delta_from => 5.033002, changed => { 'Amiga::ARexx' => '0.05', 'App::Cpan' => '1.676', 'B::Op_private' => '5.033003', 'CPAN' => '2.28', 'CPAN::FTP' => '5.5013', 'CPAN::FirstTime' => '5.5315', 'Config' => '5.033003', 'DB_File' => '1.855', 'Data::Dumper' => '2.176', 'Devel::PPPort' => '3.62', 'Devel::Peek' => '1.30', 'Digest' => '1.19', 'Digest::MD5' => '2.58', 'Digest::base' => '1.19', 'Digest::file' => '1.19', 'Encode' => '3.07', 'Encode::GSM0338' => '2.08', 'Errno' => '1.33', 'Exporter' => '5.76', 'Exporter::Heavy' => '5.76', 'ExtUtils::Command' => '7.48', 'ExtUtils::Command::MM' => '7.48', 'ExtUtils::Liblist' => '7.48', 'ExtUtils::Liblist::Kid'=> '7.48', 'ExtUtils::MM' => '7.48', 'ExtUtils::MM_AIX' => '7.48', 'ExtUtils::MM_Any' => '7.48', 'ExtUtils::MM_BeOS' => '7.48', 'ExtUtils::MM_Cygwin' => '7.48', 'ExtUtils::MM_DOS' => '7.48', 'ExtUtils::MM_Darwin' => '7.48', 'ExtUtils::MM_MacOS' => '7.48', 'ExtUtils::MM_NW5' => '7.48', 'ExtUtils::MM_OS2' => '7.48', 'ExtUtils::MM_OS390' => '7.48', 'ExtUtils::MM_QNX' => '7.48', 'ExtUtils::MM_UWIN' => '7.48', 'ExtUtils::MM_Unix' => '7.48', 'ExtUtils::MM_VMS' => '7.48', 'ExtUtils::MM_VOS' => '7.48', 'ExtUtils::MM_Win32' => '7.48', 'ExtUtils::MM_Win95' => '7.48', 'ExtUtils::MY' => '7.48', 'ExtUtils::MakeMaker' => '7.48', 'ExtUtils::MakeMaker::Config'=> '7.48', 'ExtUtils::MakeMaker::Locale'=> '7.48', 'ExtUtils::MakeMaker::version'=> '7.48', 'ExtUtils::MakeMaker::version::regex'=> '7.48', 'ExtUtils::Mkbootstrap' => '7.48', 'ExtUtils::Mksymlists' => '7.48', 'ExtUtils::PL2Bat' => '0.003', 'ExtUtils::testlib' => '7.48', 'File::Temp' => '0.2311', 'FindBin' => '1.52', 'Getopt::Long' => '2.52', 'Getopt::Std' => '1.13', 'I18N::LangTags' => '0.45', 'MIME::Base64' => '3.16', 'MIME::QuotedPrint' => '3.16', 'Module::CoreList' => '5.20201020', 'Module::CoreList::Utils'=> '5.20201020', 'Module::Load' => '0.36', 'Pod::Checker' => '1.74', 'Pod::Simple' => '3.41', 'Pod::Simple::BlackBox' => '3.41', 'Pod::Simple::Checker' => '3.41', 'Pod::Simple::Debug' => '3.41', 'Pod::Simple::DumpAsText'=> '3.41', 'Pod::Simple::DumpAsXML'=> '3.41', 'Pod::Simple::HTML' => '3.41', 'Pod::Simple::HTMLBatch'=> '3.41', 'Pod::Simple::LinkSection'=> '3.41', 'Pod::Simple::Methody' => '3.41', 'Pod::Simple::Progress' => '3.41', 'Pod::Simple::PullParser'=> '3.41', 'Pod::Simple::PullParserEndToken'=> '3.41', 'Pod::Simple::PullParserStartToken'=> '3.41', 'Pod::Simple::PullParserTextToken'=> '3.41', 'Pod::Simple::PullParserToken'=> '3.41', 'Pod::Simple::RTF' => '3.41', 'Pod::Simple::Search' => '3.41', 'Pod::Simple::SimpleTree'=> '3.41', 'Pod::Simple::Text' => '3.41', 'Pod::Simple::TextContent'=> '3.41', 'Pod::Simple::TiedOutFH'=> '3.41', 'Pod::Simple::Transcode'=> '3.41', 'Pod::Simple::TranscodeDumb'=> '3.41', 'Pod::Simple::TranscodeSmart'=> '3.41', 'Pod::Simple::XHTML' => '3.41', 'Pod::Simple::XMLOutStream'=> '3.41', 'Pod::Usage' => '2.01', 'Storable' => '3.23', 'Symbol' => '1.09', 'Test2' => '1.302182', 'Test2::API' => '1.302182', 'Test2::API::Breakage' => '1.302182', 'Test2::API::Context' => '1.302182', 'Test2::API::Instance' => '1.302182', 'Test2::API::InterceptResult'=> '1.302182', 'Test2::API::InterceptResult::Event'=> '1.302182', 'Test2::API::InterceptResult::Facet'=> '1.302182', 'Test2::API::InterceptResult::Hub'=> '1.302182', 'Test2::API::InterceptResult::Squasher'=> '1.302182', 'Test2::API::Stack' => '1.302182', 'Test2::Event' => '1.302182', 'Test2::Event::Bail' => '1.302182', 'Test2::Event::Diag' => '1.302182', 'Test2::Event::Encoding'=> '1.302182', 'Test2::Event::Exception'=> '1.302182', 'Test2::Event::Fail' => '1.302182', 'Test2::Event::Generic' => '1.302182', 'Test2::Event::Note' => '1.302182', 'Test2::Event::Ok' => '1.302182', 'Test2::Event::Pass' => '1.302182', 'Test2::Event::Plan' => '1.302182', 'Test2::Event::Skip' => '1.302182', 'Test2::Event::Subtest' => '1.302182', 'Test2::Event::TAP::Version'=> '1.302182', 'Test2::Event::V2' => '1.302182', 'Test2::Event::Waiting' => '1.302182', 'Test2::EventFacet' => '1.302182', 'Test2::EventFacet::About'=> '1.302182', 'Test2::EventFacet::Amnesty'=> '1.302182', 'Test2::EventFacet::Assert'=> '1.302182', 'Test2::EventFacet::Control'=> '1.302182', 'Test2::EventFacet::Error'=> '1.302182', 'Test2::EventFacet::Hub'=> '1.302182', 'Test2::EventFacet::Info'=> '1.302182', 'Test2::EventFacet::Info::Table'=> '1.302182', 'Test2::EventFacet::Meta'=> '1.302182', 'Test2::EventFacet::Parent'=> '1.302182', 'Test2::EventFacet::Plan'=> '1.302182', 'Test2::EventFacet::Render'=> '1.302182', 'Test2::EventFacet::Trace'=> '1.302182', 'Test2::Formatter' => '1.302182', 'Test2::Formatter::TAP' => '1.302182', 'Test2::Hub' => '1.302182', 'Test2::Hub::Interceptor'=> '1.302182', 'Test2::Hub::Interceptor::Terminator'=> '1.302182', 'Test2::Hub::Subtest' => '1.302182', 'Test2::IPC' => '1.302182', 'Test2::IPC::Driver' => '1.302182', 'Test2::IPC::Driver::Files'=> '1.302182', 'Test2::Tools::Tiny' => '1.302182', 'Test2::Util' => '1.302182', 'Test2::Util::ExternalMeta'=> '1.302182', 'Test2::Util::Facets2Legacy'=> '1.302182', 'Test2::Util::HashBase' => '1.302182', 'Test2::Util::Trace' => '1.302182', 'Test::Builder' => '1.302182', 'Test::Builder::Formatter'=> '1.302182', 'Test::Builder::Module' => '1.302182', 'Test::Builder::Tester' => '1.302182', 'Test::Builder::Tester::Color'=> '1.302182', 'Test::Builder::TodoDiag'=> '1.302182', 'Test::More' => '1.302182', 'Test::Simple' => '1.302182', 'Test::Tester' => '1.302182', 'Test::Tester::Capture' => '1.302182', 'Test::Tester::CaptureRunner'=> '1.302182', 'Test::Tester::Delegate'=> '1.302182', 'Test::use::ok' => '1.302182', 'Tie::RefHash' => '1.40', 'Time::Local' => '1.30', 'Unicode::Collate' => '1.29', 'Unicode::Collate::CJK::Big5'=> '1.29', 'Unicode::Collate::CJK::GB2312'=> '1.29', 'Unicode::Collate::CJK::JISX0208'=> '1.29', 'Unicode::Collate::CJK::Korean'=> '1.29', 'Unicode::Collate::CJK::Pinyin'=> '1.29', 'Unicode::Collate::CJK::Stroke'=> '1.29', 'Unicode::Collate::CJK::Zhuyin'=> '1.29', 'Unicode::Collate::Locale'=> '1.29', 'Win32' => '0.54', 'XS::APItest' => '1.12', 'bytes' => '1.08', 'experimental' => '0.022', 'feature' => '1.61', 'if' => '0.0609', 'locale' => '1.10', 'mro' => '1.25', 'ok' => '1.302182', 'overload' => '1.33', 're' => '0.41', 'subs' => '1.04', 'utf8' => '1.24', 'version' => '0.9928', 'version::regex' => '0.9928', }, removed => { } }, 5.033004 => { delta_from => 5.033003, changed => { 'B' => '1.82', 'B::Op_private' => '5.033004', 'Config' => '5.033004', 'Cwd' => '3.79', 'ExtUtils::CBuilder' => '0.280235', 'ExtUtils::CBuilder::Base'=> '0.280235', 'ExtUtils::CBuilder::Platform::Unix'=> '0.280235', 'ExtUtils::CBuilder::Platform::VMS'=> '0.280235', 'ExtUtils::CBuilder::Platform::Windows'=> '0.280235', 'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280235', 'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280235', 'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280235', 'ExtUtils::CBuilder::Platform::aix'=> '0.280235', 'ExtUtils::CBuilder::Platform::android'=> '0.280235', 'ExtUtils::CBuilder::Platform::cygwin'=> '0.280235', 'ExtUtils::CBuilder::Platform::darwin'=> '0.280235', 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280235', 'ExtUtils::CBuilder::Platform::os2'=> '0.280235', 'ExtUtils::Command' => '7.56', 'ExtUtils::Command::MM' => '7.56', 'ExtUtils::Liblist' => '7.56', 'ExtUtils::Liblist::Kid'=> '7.56', 'ExtUtils::MM' => '7.56', 'ExtUtils::MM_AIX' => '7.56', 'ExtUtils::MM_Any' => '7.56', 'ExtUtils::MM_BeOS' => '7.56', 'ExtUtils::MM_Cygwin' => '7.56', 'ExtUtils::MM_DOS' => '7.56', 'ExtUtils::MM_Darwin' => '7.56', 'ExtUtils::MM_MacOS' => '7.56', 'ExtUtils::MM_NW5' => '7.56', 'ExtUtils::MM_OS2' => '7.56', 'ExtUtils::MM_OS390' => '7.56', 'ExtUtils::MM_QNX' => '7.56', 'ExtUtils::MM_UWIN' => '7.56', 'ExtUtils::MM_Unix' => '7.56', 'ExtUtils::MM_VMS' => '7.56', 'ExtUtils::MM_VOS' => '7.56', 'ExtUtils::MM_Win32' => '7.56', 'ExtUtils::MM_Win95' => '7.56', 'ExtUtils::MY' => '7.56', 'ExtUtils::MakeMaker' => '7.56', 'ExtUtils::MakeMaker::Config'=> '7.56', 'ExtUtils::MakeMaker::Locale'=> '7.56', 'ExtUtils::MakeMaker::version'=> '7.56', 'ExtUtils::MakeMaker::version::regex'=> '7.56', 'ExtUtils::Mkbootstrap' => '7.56', 'ExtUtils::Mksymlists' => '7.56', 'ExtUtils::testlib' => '7.56', 'File::Fetch' => '1.00', 'File::Path' => '2.18', 'File::Spec' => '3.79', 'File::Spec::AmigaOS' => '3.79', 'File::Spec::Cygwin' => '3.79', 'File::Spec::Epoc' => '3.79', 'File::Spec::Functions' => '3.79', 'File::Spec::Mac' => '3.79', 'File::Spec::OS2' => '3.79', 'File::Spec::Unix' => '3.79', 'File::Spec::VMS' => '3.79', 'IPC::Msg' => '2.09', 'IPC::Semaphore' => '2.09', 'IPC::SharedMem' => '2.09', 'IPC::SysV' => '2.09', 'Module::CoreList' => '5.20201120', 'Module::CoreList::Utils'=> '5.20201120', 'Net::Ping' => '2.74', 'Pod::Html' => '1.26', 'Pod::Simple' => '3.42', 'Pod::Simple::BlackBox' => '3.42', 'Pod::Simple::Checker' => '3.42', 'Pod::Simple::Debug' => '3.42', 'Pod::Simple::DumpAsText'=> '3.42', 'Pod::Simple::DumpAsXML'=> '3.42', 'Pod::Simple::HTML' => '3.42', 'Pod::Simple::HTMLBatch'=> '3.42', 'Pod::Simple::LinkSection'=> '3.42', 'Pod::Simple::Methody' => '3.42', 'Pod::Simple::Progress' => '3.42', 'Pod::Simple::PullParser'=> '3.42', 'Pod::Simple::PullParserEndToken'=> '3.42', 'Pod::Simple::PullParserStartToken'=> '3.42', 'Pod::Simple::PullParserTextToken'=> '3.42', 'Pod::Simple::PullParserToken'=> '3.42', 'Pod::Simple::RTF' => '3.42', 'Pod::Simple::Search' => '3.42', 'Pod::Simple::SimpleTree'=> '3.42', 'Pod::Simple::Text' => '3.42', 'Pod::Simple::TextContent'=> '3.42', 'Pod::Simple::TiedOutFH'=> '3.42', 'Pod::Simple::Transcode'=> '3.42', 'Pod::Simple::TranscodeDumb'=> '3.42', 'Pod::Simple::TranscodeSmart'=> '3.42', 'Pod::Simple::XHTML' => '3.42', 'Pod::Simple::XMLOutStream'=> '3.42', 'Test2' => '1.302183', 'Test2::API' => '1.302183', 'Test2::API::Breakage' => '1.302183', 'Test2::API::Context' => '1.302183', 'Test2::API::Instance' => '1.302183', 'Test2::API::InterceptResult'=> '1.302183', 'Test2::API::InterceptResult::Event'=> '1.302183', 'Test2::API::InterceptResult::Facet'=> '1.302183', 'Test2::API::InterceptResult::Hub'=> '1.302183', 'Test2::API::InterceptResult::Squasher'=> '1.302183', 'Test2::API::Stack' => '1.302183', 'Test2::Event' => '1.302183', 'Test2::Event::Bail' => '1.302183', 'Test2::Event::Diag' => '1.302183', 'Test2::Event::Encoding'=> '1.302183', 'Test2::Event::Exception'=> '1.302183', 'Test2::Event::Fail' => '1.302183', 'Test2::Event::Generic' => '1.302183', 'Test2::Event::Note' => '1.302183', 'Test2::Event::Ok' => '1.302183', 'Test2::Event::Pass' => '1.302183', 'Test2::Event::Plan' => '1.302183', 'Test2::Event::Skip' => '1.302183', 'Test2::Event::Subtest' => '1.302183', 'Test2::Event::TAP::Version'=> '1.302183', 'Test2::Event::V2' => '1.302183', 'Test2::Event::Waiting' => '1.302183', 'Test2::EventFacet' => '1.302183', 'Test2::EventFacet::About'=> '1.302183', 'Test2::EventFacet::Amnesty'=> '1.302183', 'Test2::EventFacet::Assert'=> '1.302183', 'Test2::EventFacet::Control'=> '1.302183', 'Test2::EventFacet::Error'=> '1.302183', 'Test2::EventFacet::Hub'=> '1.302183', 'Test2::EventFacet::Info'=> '1.302183', 'Test2::EventFacet::Info::Table'=> '1.302183', 'Test2::EventFacet::Meta'=> '1.302183', 'Test2::EventFacet::Parent'=> '1.302183', 'Test2::EventFacet::Plan'=> '1.302183', 'Test2::EventFacet::Render'=> '1.302183', 'Test2::EventFacet::Trace'=> '1.302183', 'Test2::Formatter' => '1.302183', 'Test2::Formatter::TAP' => '1.302183', 'Test2::Hub' => '1.302183', 'Test2::Hub::Interceptor'=> '1.302183', 'Test2::Hub::Interceptor::Terminator'=> '1.302183', 'Test2::Hub::Subtest' => '1.302183', 'Test2::IPC' => '1.302183', 'Test2::IPC::Driver' => '1.302183', 'Test2::IPC::Driver::Files'=> '1.302183', 'Test2::Tools::Tiny' => '1.302183', 'Test2::Util' => '1.302183', 'Test2::Util::ExternalMeta'=> '1.302183', 'Test2::Util::Facets2Legacy'=> '1.302183', 'Test2::Util::HashBase' => '1.302183', 'Test2::Util::Trace' => '1.302183', 'Test::Builder' => '1.302183', 'Test::Builder::Formatter'=> '1.302183', 'Test::Builder::Module' => '1.302183', 'Test::Builder::Tester' => '1.302183', 'Test::Builder::Tester::Color'=> '1.302183', 'Test::Builder::TodoDiag'=> '1.302183', 'Test::More' => '1.302183', 'Test::Simple' => '1.302183', 'Test::Tester' => '1.302183', 'Test::Tester::Capture' => '1.302183', 'Test::Tester::CaptureRunner'=> '1.302183', 'Test::Tester::Delegate'=> '1.302183', 'Test::use::ok' => '1.302183', 'XS::APItest' => '1.13', 'ok' => '1.302183', 'perlfaq' => '5.20201107', }, removed => { } }, 5.033005 => { delta_from => 5.033004, changed => { 'App::Prove' => '3.43', 'App::Prove::State' => '3.43', 'App::Prove::State::Result'=> '3.43', 'App::Prove::State::Result::Test'=> '3.43', 'B::Op_private' => '5.033005', 'Carp' => '1.51', 'Carp::Heavy' => '1.51', 'Config' => '5.033005', 'Config::Perl::V' => '0.33', 'Cwd' => '3.80', 'DynaLoader' => '1.49', 'Encode' => '3.08', 'Encode::GSM0338' => '2.09', 'ExtUtils::Install' => '2.20', 'ExtUtils::Installed' => '2.20', 'ExtUtils::Packlist' => '2.20', 'ExtUtils::ParseXS' => '3.42', 'ExtUtils::ParseXS::Constants'=> '3.42', 'ExtUtils::ParseXS::CountLines'=> '3.42', 'ExtUtils::ParseXS::Eval'=> '3.42', 'ExtUtils::ParseXS::Utilities'=> '3.42', 'File::Copy' => '2.35', 'File::Find' => '1.38', 'File::Spec' => '3.80', 'File::Spec::AmigaOS' => '3.80', 'File::Spec::Cygwin' => '3.80', 'File::Spec::Epoc' => '3.80', 'File::Spec::Functions' => '3.80', 'File::Spec::Mac' => '3.80', 'File::Spec::OS2' => '3.80', 'File::Spec::Unix' => '3.80', 'File::Spec::VMS' => '3.80', 'File::Spec::Win32' => '3.80', 'Module::CoreList' => '5.20201220', 'Module::CoreList::Utils'=> '5.20201220', 'Net::Cmd' => '3.12', 'Net::Config' => '3.12', 'Net::Domain' => '3.12', 'Net::FTP' => '3.12', 'Net::FTP::A' => '3.12', 'Net::FTP::E' => '3.12', 'Net::FTP::I' => '3.12', 'Net::FTP::L' => '3.12', 'Net::FTP::dataconn' => '3.12', 'Net::NNTP' => '3.12', 'Net::Netrc' => '3.12', 'Net::POP3' => '3.12', 'Net::SMTP' => '3.12', 'Net::Time' => '3.12', 'ODBM_File' => '1.17', 'Opcode' => '1.49', 'POSIX' => '1.96', 'PerlIO::via::QuotedPrint'=> '0.09', 'TAP::Base' => '3.43', 'TAP::Formatter::Base' => '3.43', 'TAP::Formatter::Color' => '3.43', 'TAP::Formatter::Console'=> '3.43', 'TAP::Formatter::Console::ParallelSession'=> '3.43', 'TAP::Formatter::Console::Session'=> '3.43', 'TAP::Formatter::File' => '3.43', 'TAP::Formatter::File::Session'=> '3.43', 'TAP::Formatter::Session'=> '3.43', 'TAP::Harness' => '3.43', 'TAP::Harness::Env' => '3.43', 'TAP::Object' => '3.43', 'TAP::Parser' => '3.43', 'TAP::Parser::Aggregator'=> '3.43', 'TAP::Parser::Grammar' => '3.43', 'TAP::Parser::Iterator' => '3.43', 'TAP::Parser::Iterator::Array'=> '3.43', 'TAP::Parser::Iterator::Process'=> '3.43', 'TAP::Parser::Iterator::Stream'=> '3.43', 'TAP::Parser::IteratorFactory'=> '3.43', 'TAP::Parser::Multiplexer'=> '3.43', 'TAP::Parser::Result' => '3.43', 'TAP::Parser::Result::Bailout'=> '3.43', 'TAP::Parser::Result::Comment'=> '3.43', 'TAP::Parser::Result::Plan'=> '3.43', 'TAP::Parser::Result::Pragma'=> '3.43', 'TAP::Parser::Result::Test'=> '3.43', 'TAP::Parser::Result::Unknown'=> '3.43', 'TAP::Parser::Result::Version'=> '3.43', 'TAP::Parser::Result::YAML'=> '3.43', 'TAP::Parser::ResultFactory'=> '3.43', 'TAP::Parser::Scheduler'=> '3.43', 'TAP::Parser::Scheduler::Job'=> '3.43', 'TAP::Parser::Scheduler::Spinner'=> '3.43', 'TAP::Parser::Source' => '3.43', 'TAP::Parser::SourceHandler'=> '3.43', 'TAP::Parser::SourceHandler::Executable'=> '3.43', 'TAP::Parser::SourceHandler::File'=> '3.43', 'TAP::Parser::SourceHandler::Handle'=> '3.43', 'TAP::Parser::SourceHandler::Perl'=> '3.43', 'TAP::Parser::SourceHandler::RawTAP'=> '3.43', 'TAP::Parser::YAMLish::Reader'=> '3.43', 'TAP::Parser::YAMLish::Writer'=> '3.43', 'Test::Harness' => '3.43', 'Text::Balanced' => '2.04', 'Time::HiRes' => '1.9766', 'XS::APItest' => '1.14', 'warnings' => '1.49', }, removed => { } }, 5.033006 => { delta_from => 5.033005, changed => { 'B::Op_private' => '5.033006', 'Carp' => '1.52', 'Carp::Heavy' => '1.52', 'Compress::Raw::Bzip2' => '2.100', 'Compress::Raw::Zlib' => '2.100', 'Compress::Zlib' => '2.100', 'Config' => '5.033006', 'DynaLoader' => '1.50', 'ExtUtils::Command' => '7.58', 'ExtUtils::Command::MM' => '7.58', 'ExtUtils::Liblist' => '7.58', 'ExtUtils::Liblist::Kid'=> '7.58', 'ExtUtils::MM' => '7.58', 'ExtUtils::MM_AIX' => '7.58', 'ExtUtils::MM_Any' => '7.58', 'ExtUtils::MM_BeOS' => '7.58', 'ExtUtils::MM_Cygwin' => '7.58', 'ExtUtils::MM_DOS' => '7.58', 'ExtUtils::MM_Darwin' => '7.58', 'ExtUtils::MM_MacOS' => '7.58', 'ExtUtils::MM_NW5' => '7.58', 'ExtUtils::MM_OS2' => '7.58', 'ExtUtils::MM_OS390' => '7.58', 'ExtUtils::MM_QNX' => '7.58', 'ExtUtils::MM_UWIN' => '7.58', 'ExtUtils::MM_Unix' => '7.58', 'ExtUtils::MM_VMS' => '7.58', 'ExtUtils::MM_VOS' => '7.58', 'ExtUtils::MM_Win32' => '7.58', 'ExtUtils::MM_Win95' => '7.58', 'ExtUtils::MY' => '7.58', 'ExtUtils::MakeMaker' => '7.58', 'ExtUtils::MakeMaker::Config'=> '7.58', 'ExtUtils::MakeMaker::Locale'=> '7.58', 'ExtUtils::MakeMaker::version'=> '7.58', 'ExtUtils::MakeMaker::version::regex'=> '7.58', 'ExtUtils::Manifest' => '1.73', 'ExtUtils::Mkbootstrap' => '7.58', 'ExtUtils::Mksymlists' => '7.58', 'ExtUtils::testlib' => '7.58', 'GDBM_File' => '1.19', 'IO' => '1.45', 'IO::Compress::Adapter::Bzip2'=> '2.100', 'IO::Compress::Adapter::Deflate'=> '2.100', 'IO::Compress::Adapter::Identity'=> '2.100', 'IO::Compress::Base' => '2.100', 'IO::Compress::Base::Common'=> '2.100', 'IO::Compress::Bzip2' => '2.100', 'IO::Compress::Deflate' => '2.100', 'IO::Compress::Gzip' => '2.100', 'IO::Compress::Gzip::Constants'=> '2.100', 'IO::Compress::RawDeflate'=> '2.100', 'IO::Compress::Zip' => '2.100', 'IO::Compress::Zip::Constants'=> '2.100', 'IO::Compress::Zlib::Constants'=> '2.100', 'IO::Compress::Zlib::Extra'=> '2.100', 'IO::Dir' => '1.45', 'IO::File' => '1.45', 'IO::Handle' => '1.45', 'IO::Pipe' => '1.45', 'IO::Poll' => '1.45', 'IO::Seekable' => '1.45', 'IO::Select' => '1.45', 'IO::Socket' => '1.45', 'IO::Socket::INET' => '1.45', 'IO::Socket::UNIX' => '1.45', 'IO::Uncompress::Adapter::Bunzip2'=> '2.100', 'IO::Uncompress::Adapter::Identity'=> '2.100', 'IO::Uncompress::Adapter::Inflate'=> '2.100', 'IO::Uncompress::AnyInflate'=> '2.100', 'IO::Uncompress::AnyUncompress'=> '2.100', 'IO::Uncompress::Base' => '2.100', 'IO::Uncompress::Bunzip2'=> '2.100', 'IO::Uncompress::Gunzip'=> '2.100', 'IO::Uncompress::Inflate'=> '2.100', 'IO::Uncompress::RawInflate'=> '2.100', 'IO::Uncompress::Unzip' => '2.100', 'Module::CoreList' => '5.20210120', 'Module::CoreList::Utils'=> '5.20210120', 'Net::Cmd' => '3.13', 'Net::Config' => '3.13', 'Net::Domain' => '3.13', 'Net::FTP' => '3.13', 'Net::FTP::A' => '3.13', 'Net::FTP::E' => '3.13', 'Net::FTP::I' => '3.13', 'Net::FTP::L' => '3.13', 'Net::FTP::dataconn' => '3.13', 'Net::NNTP' => '3.13', 'Net::Netrc' => '3.13', 'Net::POP3' => '3.13', 'Net::SMTP' => '3.13', 'Net::Time' => '3.13', 'POSIX' => '1.97', 'Socket' => '2.031', 'XS::APItest' => '1.15', 'feature' => '1.62', 'warnings' => '1.50', }, removed => { } }, 5.032001 => { delta_from => 5.032000, changed => { 'B::Op_private' => '5.032001', 'Config' => '5.032001', 'Data::Dumper' => '2.174_01', 'DynaLoader' => '1.47_01', 'ExtUtils::Liblist::Kid'=> '7.44_01', 'Module::CoreList' => '5.20210123', 'Module::CoreList::Utils'=> '5.20210123', 'Opcode' => '1.48', 'Safe' => '2.41_01', 'Win32API::File::inc::ExtUtils::Myconst2perl'=> '1', }, removed => { } }, 5.033007 => { delta_from => 5.033006, changed => { 'B::Deparse' => '1.56', 'B::Op_private' => '5.033007', 'Config' => '5.033007', 'ExtUtils::CBuilder' => '0.280236', 'ExtUtils::CBuilder::Base'=> '0.280236', 'ExtUtils::CBuilder::Platform::Unix'=> '0.280236', 'ExtUtils::CBuilder::Platform::VMS'=> '0.280236', 'ExtUtils::CBuilder::Platform::Windows'=> '0.280236', 'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280236', 'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280236', 'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280236', 'ExtUtils::CBuilder::Platform::aix'=> '0.280236', 'ExtUtils::CBuilder::Platform::android'=> '0.280236', 'ExtUtils::CBuilder::Platform::cygwin'=> '0.280236', 'ExtUtils::CBuilder::Platform::darwin'=> '0.280236', 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280236', 'ExtUtils::CBuilder::Platform::os2'=> '0.280236', 'ExtUtils::Command' => '7.60', 'ExtUtils::Command::MM' => '7.60', 'ExtUtils::Liblist' => '7.60', 'ExtUtils::Liblist::Kid'=> '7.60', 'ExtUtils::MM' => '7.60', 'ExtUtils::MM_AIX' => '7.60', 'ExtUtils::MM_Any' => '7.60', 'ExtUtils::MM_BeOS' => '7.60', 'ExtUtils::MM_Cygwin' => '7.60', 'ExtUtils::MM_DOS' => '7.60', 'ExtUtils::MM_Darwin' => '7.60', 'ExtUtils::MM_MacOS' => '7.60', 'ExtUtils::MM_NW5' => '7.60', 'ExtUtils::MM_OS2' => '7.60', 'ExtUtils::MM_OS390' => '7.60', 'ExtUtils::MM_QNX' => '7.60', 'ExtUtils::MM_UWIN' => '7.60', 'ExtUtils::MM_Unix' => '7.60', 'ExtUtils::MM_VMS' => '7.60', 'ExtUtils::MM_VOS' => '7.60', 'ExtUtils::MM_Win32' => '7.60', 'ExtUtils::MM_Win95' => '7.60', 'ExtUtils::MY' => '7.60', 'ExtUtils::MakeMaker' => '7.60', 'ExtUtils::MakeMaker::Config'=> '7.60', 'ExtUtils::MakeMaker::Locale'=> '7.60', 'ExtUtils::MakeMaker::version'=> '7.60', 'ExtUtils::MakeMaker::version::regex'=> '7.60', 'ExtUtils::Mkbootstrap' => '7.60', 'ExtUtils::Mksymlists' => '7.60', 'ExtUtils::PL2Bat' => '0.004', 'ExtUtils::testlib' => '7.60', 'Fatal' => '2.34', 'File::Find' => '1.39', 'Hash::Util' => '0.25', 'IO' => '1.46', 'IO::Dir' => '1.46', 'IO::File' => '1.46', 'IO::Handle' => '1.46', 'IO::Pipe' => '1.46', 'IO::Poll' => '1.46', 'IO::Seekable' => '1.46', 'IO::Select' => '1.46', 'IO::Socket' => '1.46', 'IO::Socket::INET' => '1.46', 'IO::Socket::UNIX' => '1.46', 'JSON::PP' => '4.06', 'JSON::PP::Boolean' => '4.06', 'Module::CoreList' => '5.20210220', 'Module::CoreList::Utils'=> '5.20210220', 'Opcode' => '1.50', 'PerlIO::encoding' => '0.30', 'Time::HiRes' => '1.9767', 'autodie' => '2.34', 'autodie::Scope::Guard' => '2.34', 'autodie::Scope::GuardStack'=> '2.34', 'autodie::Util' => '2.34', 'autodie::exception' => '2.34', 'autodie::exception::system'=> '2.34', 'autodie::hints' => '2.34', 'autodie::skip' => '2.34', 'feature' => '1.63', 'mro' => '1.25_001', 'warnings' => '1.51', }, removed => { } }, 5.033008 => { delta_from => 5.033007, changed => { 'B::Op_private' => '5.033008', 'Compress::Raw::Bzip2' => '2.101', 'Compress::Raw::Zlib' => '2.101', 'Compress::Zlib' => '2.102', 'Config' => '5.033008', 'Data::Dumper' => '2.177', 'IO::Compress::Adapter::Bzip2'=> '2.102', 'IO::Compress::Adapter::Deflate'=> '2.102', 'IO::Compress::Adapter::Identity'=> '2.102', 'IO::Compress::Base' => '2.102', 'IO::Compress::Base::Common'=> '2.102', 'IO::Compress::Bzip2' => '2.102', 'IO::Compress::Deflate' => '2.102', 'IO::Compress::Gzip' => '2.102', 'IO::Compress::Gzip::Constants'=> '2.102', 'IO::Compress::RawDeflate'=> '2.102', 'IO::Compress::Zip' => '2.102', 'IO::Compress::Zip::Constants'=> '2.102', 'IO::Compress::Zlib::Constants'=> '2.102', 'IO::Compress::Zlib::Extra'=> '2.102', 'IO::Uncompress::Adapter::Bunzip2'=> '2.102', 'IO::Uncompress::Adapter::Identity'=> '2.102', 'IO::Uncompress::Adapter::Inflate'=> '2.102', 'IO::Uncompress::AnyInflate'=> '2.102', 'IO::Uncompress::AnyUncompress'=> '2.102', 'IO::Uncompress::Base' => '2.102', 'IO::Uncompress::Bunzip2'=> '2.102', 'IO::Uncompress::Gunzip'=> '2.102', 'IO::Uncompress::Inflate'=> '2.102', 'IO::Uncompress::RawInflate'=> '2.102', 'IO::Uncompress::Unzip' => '2.102', 'Module::CoreList' => '5.20210320', 'Module::CoreList::Utils'=> '5.20210320', 'Pod::Html' => '1.27', 'Win32' => '0.57', }, removed => { } }, 5.033009 => { delta_from => 5.033008, changed => { 'B::Op_private' => '5.033009', 'Config' => '5.033009', 'Data::Dumper' => '2.178', 'ExtUtils::Command' => '7.62', 'ExtUtils::Command::MM' => '7.62', 'ExtUtils::Liblist' => '7.62', 'ExtUtils::Liblist::Kid'=> '7.62', 'ExtUtils::MM' => '7.62', 'ExtUtils::MM_AIX' => '7.62', 'ExtUtils::MM_Any' => '7.62', 'ExtUtils::MM_BeOS' => '7.62', 'ExtUtils::MM_Cygwin' => '7.62', 'ExtUtils::MM_DOS' => '7.62', 'ExtUtils::MM_Darwin' => '7.62', 'ExtUtils::MM_MacOS' => '7.62', 'ExtUtils::MM_NW5' => '7.62', 'ExtUtils::MM_OS2' => '7.62', 'ExtUtils::MM_OS390' => '7.62', 'ExtUtils::MM_QNX' => '7.62', 'ExtUtils::MM_UWIN' => '7.62', 'ExtUtils::MM_Unix' => '7.62', 'ExtUtils::MM_VMS' => '7.62', 'ExtUtils::MM_VOS' => '7.62', 'ExtUtils::MM_Win32' => '7.62', 'ExtUtils::MM_Win95' => '7.62', 'ExtUtils::MY' => '7.62', 'ExtUtils::MakeMaker' => '7.62', 'ExtUtils::MakeMaker::Config'=> '7.62', 'ExtUtils::MakeMaker::Locale'=> '7.62', 'ExtUtils::MakeMaker::version'=> '7.62', 'ExtUtils::MakeMaker::version::regex'=> '7.62', 'ExtUtils::Mkbootstrap' => '7.62', 'ExtUtils::Mksymlists' => '7.62', 'ExtUtils::ParseXS' => '3.43', 'ExtUtils::ParseXS::Constants'=> '3.43', 'ExtUtils::ParseXS::CountLines'=> '3.43', 'ExtUtils::ParseXS::Eval'=> '3.43', 'ExtUtils::ParseXS::Utilities'=> '3.43', 'ExtUtils::Typemaps' => '3.43', 'ExtUtils::Typemaps::Cmd'=> '3.43', 'ExtUtils::Typemaps::InputMap'=> '3.43', 'ExtUtils::Typemaps::OutputMap'=> '3.43', 'ExtUtils::Typemaps::Type'=> '3.43', 'ExtUtils::testlib' => '7.62', 'Module::CoreList' => '5.20210420', 'Module::CoreList::Utils'=> '5.20210420', 'NEXT' => '0.68', 'XS::APItest' => '1.16', 'feature' => '1.64', 'perlfaq' => '5.20210411', }, removed => { } }, 5.034000 => { delta_from => 5.033009, changed => { 'B::Op_private' => '5.034000', 'Config' => '5.034', 'Data::Dumper' => '2.179', 'Module::CoreList' => '5.20210520', 'Module::CoreList::Utils'=> '5.20210520', 'experimental' => '0.024', }, removed => { } }, ); sub is_core { shift if defined $_[1] and $_[1] =~ /^\w/ and _looks_like_invocant $_[0]; my $module = shift; my $module_version = @_ > 0 ? shift : undef; my $perl_version = @_ > 0 ? shift : $]; my $first_release = first_release($module); return 0 if !defined($first_release) || $first_release > $perl_version; my $final_release = removed_from($module); return 0 if defined($final_release) && $perl_version >= $final_release; # If a minimum version of the module was specified: # Step through all perl releases ($prn) # so we can find what version of the module # was included in the specified version of perl. # On the way if we pass the required module version, we can # short-circuit and return true if (defined($module_version)) { my $module_version_object = eval { version->parse($module_version) }; if (!defined($module_version_object)) { (my $err = $@) =~ s/^Invalid version format\b/Invalid version '$module_version' specified/; die $err; } # The Perl releases aren't a linear sequence, but a tree. We need to build the path # of releases from 5 to the specified release, and follow the module's version(s) # along that path. my @releases = ($perl_version); my $rel = $perl_version; while (defined($rel)) { # XXX: This line is a sign of failure. -- rjbs, 2015-04-15 my $this_delta = $delta{$rel} || $delta{ sprintf '%0.6f', $rel }; $rel = $this_delta->{delta_from}; unshift(@releases, $rel) if defined($rel); } RELEASE: foreach my $prn (@releases) { next RELEASE if $prn < $first_release; last RELEASE if $prn > $perl_version; next unless defined(my $next_module_version = $delta{$prn}->{changed}->{$module}); return 1 if eval { version->parse($next_module_version) >= $module_version_object }; } return 0; } return 1 if !defined($final_release); return $perl_version <= $final_release; } %version = _undelta(\%delta); %deprecated = ( 5.011 => { changed => { map { $_ => 1 } qw/ Class::ISA Pod::Plainer Shell Switch /}, }, 5.011001 => { delta_from => 5.011 }, 5.011002 => { delta_from => 5.011001 }, 5.011003 => { delta_from => 5.011002 }, 5.011004 => { delta_from => 5.011003 }, 5.011005 => { delta_from => 5.011004 }, 5.012 => { delta_from => 5.011005 }, 5.012001 => { delta_from => 5.012 }, 5.012002 => { delta_from => 5.012001 }, 5.012003 => { delta_from => 5.012002 }, 5.012004 => { delta_from => 5.012003 }, 5.012005 => { delta_from => 5.012004 }, 5.013 => { delta_from => 5.012005 }, 5.013001 => { delta_from => 5.013, removed => { map { $_ => 1 } qw/ Class::ISA Pod::Plainer Switch /}, }, 5.013002 => { delta_from => 5.013001 }, 5.013003 => { delta_from => 5.013002 }, 5.013004 => { delta_from => 5.013003 }, 5.013005 => { delta_from => 5.013004 }, 5.013006 => { delta_from => 5.013005 }, 5.013007 => { delta_from => 5.013006 }, 5.013008 => { delta_from => 5.013007 }, 5.013009 => { delta_from => 5.013008 }, 5.01301 => { delta_from => 5.013009 }, 5.013011 => { delta_from => 5.01301 }, 5.014 => { delta_from => 5.013011 }, 5.014001 => { delta_from => 5.014 }, 5.014002 => { delta_from => 5.014001 }, 5.014003 => { delta_from => 5.014002 }, 5.014004 => { delta_from => 5.014003 }, 5.015 => { delta_from => 5.014004, removed => { Shell => 1 }, }, 5.015001 => { delta_from => 5.015 }, 5.015002 => { delta_from => 5.015001 }, 5.015003 => { delta_from => 5.015002 }, 5.015004 => { delta_from => 5.015003 }, 5.015005 => { delta_from => 5.015004 }, 5.015006 => { delta_from => 5.015005 }, 5.015007 => { delta_from => 5.015006 }, 5.015008 => { delta_from => 5.015007 }, 5.015009 => { delta_from => 5.015008 }, 5.016 => { delta_from => 5.015009 }, 5.016001 => { delta_from => 5.016 }, 5.016002 => { delta_from => 5.016001 }, 5.016003 => { delta_from => 5.016002 }, 5.017 => { delta_from => 5.016003 }, 5.017001 => { delta_from => 5.017 }, 5.017002 => { delta_from => 5.017001 }, 5.017003 => { delta_from => 5.017002 }, 5.017004 => { delta_from => 5.017003 }, 5.017005 => { delta_from => 5.017004 }, 5.017006 => { delta_from => 5.017005 }, 5.017007 => { delta_from => 5.017006 }, 5.017008 => { delta_from => 5.017007, changed => { 'Pod::LaTeX' => 1 }, }, 5.017009 => { delta_from => 5.017008, changed => { map { $_ => 1 } qw/ Archive::Extract B::Lint B::Lint::Debug CPANPLUS CPANPLUS::Backend CPANPLUS::Backend::RV CPANPLUS::Config CPANPLUS::Config::HomeEnv CPANPLUS::Configure CPANPLUS::Configure::Setup CPANPLUS::Dist CPANPLUS::Dist::Autobundle CPANPLUS::Dist::Base CPANPLUS::Dist::Build CPANPLUS::Dist::Build::Constants CPANPLUS::Dist::MM CPANPLUS::Dist::Sample CPANPLUS::Error CPANPLUS::Internals CPANPLUS::Internals::Constants CPANPLUS::Internals::Constants::Report CPANPLUS::Internals::Extract CPANPLUS::Internals::Fetch CPANPLUS::Internals::Report CPANPLUS::Internals::Search CPANPLUS::Internals::Source CPANPLUS::Internals::Source::Memory CPANPLUS::Internals::Source::SQLite CPANPLUS::Internals::Source::SQLite::Tie CPANPLUS::Internals::Utils CPANPLUS::Internals::Utils::Autoflush CPANPLUS::Module CPANPLUS::Module::Author CPANPLUS::Module::Author::Fake CPANPLUS::Module::Checksums CPANPLUS::Module::Fake CPANPLUS::Module::Signature CPANPLUS::Selfupdate CPANPLUS::Shell CPANPLUS::Shell::Classic CPANPLUS::Shell::Default CPANPLUS::Shell::Default::Plugins::CustomSource CPANPLUS::Shell::Default::Plugins::Remote CPANPLUS::Shell::Default::Plugins::Source Devel::InnerPackage File::CheckTree Log::Message Log::Message::Config Log::Message::Handlers Log::Message::Item Log::Message::Simple Module::Pluggable Module::Pluggable::Object Object::Accessor Term::UI Term::UI::History Text::Soundex /}, }, 5.01701 => { delta_from => 5.017009 }, 5.017011 => { delta_from => 5.01701 }, 5.018 => { delta_from => 5.017011 }, 5.018001 => { delta_from => 5.018, changed => { }, removed => { } }, 5.018002 => { delta_from => 5.018001, changed => { }, removed => { } }, 5.018003 => { delta_from => 5.018, changed => { }, removed => { } }, 5.018004 => { delta_from => 5.018, changed => { }, removed => { } }, 5.019 => { delta_from => 5.018, changed => { 'Module::Build' => 1 }, removed => { map { $_ => 1 } qw/ Archive::Extract B::Lint B::Lint::Debug CPANPLUS CPANPLUS::Backend CPANPLUS::Backend::RV CPANPLUS::Config CPANPLUS::Config::HomeEnv CPANPLUS::Configure CPANPLUS::Configure::Setup CPANPLUS::Dist CPANPLUS::Dist::Autobundle CPANPLUS::Dist::Base CPANPLUS::Dist::Build CPANPLUS::Dist::Build::Constants CPANPLUS::Dist::MM CPANPLUS::Dist::Sample CPANPLUS::Error CPANPLUS::Internals CPANPLUS::Internals::Constants CPANPLUS::Internals::Constants::Report CPANPLUS::Internals::Extract CPANPLUS::Internals::Fetch CPANPLUS::Internals::Report CPANPLUS::Internals::Search CPANPLUS::Internals::Source CPANPLUS::Internals::Source::Memory CPANPLUS::Internals::Source::SQLite CPANPLUS::Internals::Source::SQLite::Tie CPANPLUS::Internals::Utils CPANPLUS::Internals::Utils::Autoflush CPANPLUS::Module CPANPLUS::Module::Author CPANPLUS::Module::Author::Fake CPANPLUS::Module::Checksums CPANPLUS::Module::Fake CPANPLUS::Module::Signature CPANPLUS::Selfupdate CPANPLUS::Shell CPANPLUS::Shell::Classic CPANPLUS::Shell::Default CPANPLUS::Shell::Default::Plugins::CustomSource CPANPLUS::Shell::Default::Plugins::Remote CPANPLUS::Shell::Default::Plugins::Source Devel::InnerPackage File::CheckTree Log::Message Log::Message::Config Log::Message::Handlers Log::Message::Item Log::Message::Simple Module::Pluggable Module::Pluggable::Object Object::Accessor Pod::LaTeX Term::UI Term::UI::History Text::Soundex /} }, 5.019001 => { delta_from => 5.019, changed => { }, removed => { } }, 5.019002 => { delta_from => 5.019001, changed => { }, removed => { } }, 5.019003 => { delta_from => 5.019002, changed => { }, removed => { } }, 5.019004 => { delta_from => 5.019003, changed => { 'Module::Build::Base' => '1', 'Module::Build::Compat' => '1', 'Module::Build::Config' => '1', 'Module::Build::ConfigData'=> '1', 'Module::Build::Cookbook'=> '1', 'Module::Build::Dumper' => '1', 'Module::Build::ModuleInfo'=> '1', 'Module::Build::Notes' => '1', 'Module::Build::PPMMaker'=> '1', 'Module::Build::Platform::Default'=> '1', 'Module::Build::Platform::MacOS'=> '1', 'Module::Build::Platform::Unix'=> '1', 'Module::Build::Platform::VMS'=> '1', 'Module::Build::Platform::VOS'=> '1', 'Module::Build::Platform::Windows'=> '1', 'Module::Build::Platform::aix'=> '1', 'Module::Build::Platform::cygwin'=> '1', 'Module::Build::Platform::darwin'=> '1', 'Module::Build::Platform::os2'=> '1', 'Module::Build::PodParser'=> '1', 'Module::Build::Version'=> '1', 'Module::Build::YAML' => '1', 'inc::latest' => '1', }, removed => { } }, 5.019005 => { delta_from => 5.019004, changed => { }, removed => { } }, 5.019006 => { delta_from => 5.019005, changed => { 'Package::Constants' => '1', }, removed => { } }, 5.019007 => { delta_from => 5.019006, changed => { 'CGI' => '1', 'CGI::Apache' => '1', 'CGI::Carp' => '1', 'CGI::Cookie' => '1', 'CGI::Fast' => '1', 'CGI::Pretty' => '1', 'CGI::Push' => '1', 'CGI::Switch' => '1', 'CGI::Util' => '1', }, removed => { } }, 5.019008 => { delta_from => 5.019007, changed => { }, removed => { } }, 5.019009 => { delta_from => 5.019008, changed => { }, removed => { } }, 5.01901 => { delta_from => 5.019009, changed => { }, removed => { } }, 5.019011 => { delta_from => 5.019010, changed => { }, removed => { } }, 5.020000 => { delta_from => 5.019011, changed => { }, removed => { } }, 5.021000 => { delta_from => 5.020000, changed => { }, removed => { 'CGI' => 1, 'CGI::Apache' => 1, 'CGI::Carp' => 1, 'CGI::Cookie' => 1, 'CGI::Fast' => 1, 'CGI::Pretty' => 1, 'CGI::Push' => 1, 'CGI::Switch' => 1, 'CGI::Util' => 1, 'Module::Build' => 1, 'Module::Build::Base' => 1, 'Module::Build::Compat' => 1, 'Module::Build::Config' => 1, 'Module::Build::ConfigData'=> 1, 'Module::Build::Cookbook'=> 1, 'Module::Build::Dumper' => 1, 'Module::Build::ModuleInfo'=> 1, 'Module::Build::Notes' => 1, 'Module::Build::PPMMaker'=> 1, 'Module::Build::Platform::Default'=> 1, 'Module::Build::Platform::MacOS'=> 1, 'Module::Build::Platform::Unix'=> 1, 'Module::Build::Platform::VMS'=> 1, 'Module::Build::Platform::VOS'=> 1, 'Module::Build::Platform::Windows'=> 1, 'Module::Build::Platform::aix'=> 1, 'Module::Build::Platform::cygwin'=> 1, 'Module::Build::Platform::darwin'=> 1, 'Module::Build::Platform::os2'=> 1, 'Module::Build::PodParser'=> 1, 'Module::Build::Version'=> 1, 'Module::Build::YAML' => 1, 'Package::Constants' => 1, 'inc::latest' => 1, } }, 5.021001 => { delta_from => 5.021000, changed => { }, removed => { } }, 5.021002 => { delta_from => 5.021001, changed => { }, removed => { } }, 5.021003 => { delta_from => 5.021002, changed => { }, removed => { } }, 5.020001 => { delta_from => 5.020000, changed => { }, removed => { } }, 5.021004 => { delta_from => 5.021003, changed => { }, removed => { } }, 5.021005 => { delta_from => 5.021004, changed => { }, removed => { } }, 5.021006 => { delta_from => 5.021005, changed => { }, removed => { } }, 5.021007 => { delta_from => 5.021006, changed => { }, removed => { } }, 5.021008 => { delta_from => 5.021007, changed => { }, removed => { } }, 5.020002 => { delta_from => 5.020001, changed => { }, removed => { } }, 5.021009 => { delta_from => 5.021008, changed => { }, removed => { } }, 5.021010 => { delta_from => 5.021009, changed => { }, removed => { } }, 5.021011 => { delta_from => 5.02101, changed => { }, removed => { } }, 5.022000 => { delta_from => 5.021011, changed => { }, removed => { } }, 5.023000 => { delta_from => 5.022000, changed => { }, removed => { } }, 5.023001 => { delta_from => 5.023000, changed => { }, removed => { } }, 5.023002 => { delta_from => 5.023001, changed => { }, removed => { } }, 5.020003 => { delta_from => 5.020002, changed => { }, removed => { } }, 5.023003 => { delta_from => 5.023002, changed => { }, removed => { } }, 5.023004 => { delta_from => 5.023003, changed => { }, removed => { } }, 5.023005 => { delta_from => 5.023004, changed => { }, removed => { } }, 5.022001 => { delta_from => 5.022, changed => { }, removed => { } }, 5.023006 => { delta_from => 5.023005, changed => { }, removed => { } }, 5.023007 => { delta_from => 5.023006, changed => { }, removed => { } }, 5.023008 => { delta_from => 5.023007, changed => { }, removed => { } }, 5.023009 => { delta_from => 5.023008, changed => { }, removed => { } }, 5.022002 => { delta_from => 5.022001, changed => { }, removed => { } }, 5.024000 => { delta_from => 5.023009, changed => { }, removed => { } }, 5.025000 => { delta_from => 5.024, changed => { }, removed => { } }, 5.025001 => { delta_from => 5.025, changed => { }, removed => { } }, 5.025002 => { delta_from => 5.025001, changed => { }, removed => { } }, 5.025003 => { delta_from => 5.025002, changed => { }, removed => { } }, 5.025004 => { delta_from => 5.025003, changed => { }, removed => { } }, 5.025005 => { delta_from => 5.025004, changed => { }, removed => { } }, 5.025006 => { delta_from => 5.025005, changed => { }, removed => { } }, 5.025007 => { delta_from => 5.025006, changed => { }, removed => { } }, 5.025008 => { delta_from => 5.025007, changed => { }, removed => { } }, 5.022003 => { delta_from => 5.022002, changed => { }, removed => { } }, 5.024001 => { delta_from => 5.024000, changed => { }, removed => { } }, 5.025009 => { delta_from => 5.025008, changed => { }, removed => { } }, 5.025010 => { delta_from => 5.025009, changed => { }, removed => { } }, 5.025011 => { delta_from => 5.025010, changed => { }, removed => { } }, 5.025012 => { delta_from => 5.025011, changed => { }, removed => { } }, 5.026000 => { delta_from => 5.025012, changed => { }, removed => { } }, 5.027000 => { delta_from => 5.026, changed => { }, removed => { } }, 5.027001 => { delta_from => 5.027, changed => { }, removed => { } }, 5.022004 => { delta_from => 5.022003, changed => { }, removed => { } }, 5.024002 => { delta_from => 5.024001, changed => { }, removed => { } }, 5.027002 => { delta_from => 5.027001, changed => { }, removed => { } }, 5.027003 => { delta_from => 5.027002, changed => { 'B::Debug' => '1', }, removed => { } }, 5.027004 => { delta_from => 5.027003, changed => { }, removed => { } }, 5.024003 => { delta_from => 5.024002, changed => { }, removed => { } }, 5.026001 => { delta_from => 5.026000, changed => { }, removed => { } }, 5.027005 => { delta_from => 5.027004, changed => { }, removed => { } }, 5.027006 => { delta_from => 5.027005, changed => { }, removed => { } }, 5.027007 => { delta_from => 5.027006, changed => { }, removed => { } }, 5.027008 => { delta_from => 5.027007, changed => { }, removed => { } }, 5.027009 => { delta_from => 5.027008, changed => { }, removed => { } }, 5.027010 => { delta_from => 5.027009, changed => { }, removed => { } }, 5.024004 => { delta_from => 5.024003, changed => { }, removed => { } }, 5.026002 => { delta_from => 5.026001, changed => { }, removed => { } }, 5.027011 => { delta_from => 5.02701, changed => { }, removed => { } }, 5.028000 => { delta_from => 5.027011, changed => { }, removed => { } }, 5.029000 => { delta_from => 5.028, changed => { }, removed => { } }, 5.029001 => { delta_from => 5.029, changed => { }, removed => { } }, 5.029002 => { delta_from => 5.029001, changed => { }, removed => { } }, 5.029003 => { delta_from => 5.029002, changed => { }, removed => { } }, 5.029004 => { delta_from => 5.029003, changed => { }, removed => { arybase => '1', } }, 5.029005 => { delta_from => 5.027002, changed => { }, removed => { } }, 5.026003 => { delta_from => 5.026002, changed => { }, removed => { } }, 5.028001 => { delta_from => 5.028000, changed => { }, removed => { } }, 5.029006 => { delta_from => 5.029005, changed => { }, removed => { } }, 5.029007 => { delta_from => 5.029006, changed => { }, removed => { } }, 5.029008 => { delta_from => 5.029007, changed => { }, removed => { } }, 5.029009 => { delta_from => 5.029008, changed => { }, removed => { } }, 5.028002 => { delta_from => 5.028001, changed => { }, removed => { } }, 5.029010 => { delta_from => 5.029009, changed => { }, removed => { } }, 5.030000 => { delta_from => 5.02901, changed => { }, removed => { } }, 5.031000 => { delta_from => 5.030000, changed => { }, removed => { } }, 5.031001 => { delta_from => 5.031000, changed => { }, removed => { } }, 5.031002 => { delta_from => 5.031001, changed => { }, removed => { } }, 5.031003 => { delta_from => 5.031002, changed => { }, removed => { } }, 5.031004 => { delta_from => 5.031003, changed => { }, removed => { } }, 5.031005 => { delta_from => 5.031004, changed => { }, removed => { } }, 5.030001 => { delta_from => 5.030000, changed => { }, removed => { } }, 5.031006 => { delta_from => 5.031005, changed => { }, removed => { } }, 5.031007 => { delta_from => 5.031006, changed => { }, removed => { } }, 5.031008 => { delta_from => 5.031007, changed => { }, removed => { } }, 5.031009 => { delta_from => 5.031008, changed => { }, removed => { } }, 5.030002 => { delta_from => 5.030001, changed => { }, removed => { } }, 5.031010 => { delta_from => 5.031009, changed => { }, removed => { } }, 5.031011 => { delta_from => 5.03101, changed => { }, removed => { } }, 5.028003 => { delta_from => 5.028002, changed => { }, removed => { } }, 5.030003 => { delta_from => 5.030002, changed => { }, removed => { } }, 5.032000 => { delta_from => 5.031011, changed => { }, removed => { } }, 5.033000 => { delta_from => 5.032, changed => { }, removed => { } }, 5.033001 => { delta_from => 5.033000, changed => { }, removed => { } }, 5.033002 => { delta_from => 5.033001, changed => { }, removed => { } }, 5.033003 => { delta_from => 5.033002, changed => { }, removed => { } }, 5.033004 => { delta_from => 5.033003, changed => { }, removed => { } }, 5.033005 => { delta_from => 5.033004, changed => { }, removed => { } }, 5.033006 => { delta_from => 5.033005, changed => { }, removed => { } }, 5.032001 => { delta_from => 5.032, changed => { }, removed => { } }, 5.033007 => { delta_from => 5.033006, changed => { }, removed => { } }, 5.033008 => { delta_from => 5.033007, changed => { }, removed => { } }, 5.033009 => { delta_from => 5.033008, changed => { }, removed => { } }, 5.034000 => { delta_from => 5.033009, changed => { }, removed => { } }, ); %deprecated = _undelta(\%deprecated); %upstream = ( 'App::Cpan' => 'cpan', 'App::Prove' => 'cpan', 'App::Prove::State' => 'cpan', 'App::Prove::State::Result'=> 'cpan', 'App::Prove::State::Result::Test'=> 'cpan', 'Archive::Tar' => 'cpan', 'Archive::Tar::Constant'=> 'cpan', 'Archive::Tar::File' => 'cpan', 'AutoLoader' => 'cpan', 'AutoSplit' => 'cpan', 'CPAN' => 'cpan', 'CPAN::Author' => 'cpan', 'CPAN::Bundle' => 'cpan', 'CPAN::CacheMgr' => 'cpan', 'CPAN::Complete' => 'cpan', 'CPAN::Debug' => 'cpan', 'CPAN::DeferredCode' => 'cpan', 'CPAN::Distribution' => 'cpan', 'CPAN::Distroprefs' => 'cpan', 'CPAN::Distrostatus' => 'cpan', 'CPAN::Exception::RecursiveDependency'=> 'cpan', 'CPAN::Exception::blocked_urllist'=> 'cpan', 'CPAN::Exception::yaml_not_installed'=> 'cpan', 'CPAN::Exception::yaml_process_error'=> 'cpan', 'CPAN::FTP' => 'cpan', 'CPAN::FTP::netrc' => 'cpan', 'CPAN::FirstTime' => 'cpan', 'CPAN::HTTP::Client' => 'cpan', 'CPAN::HTTP::Credentials'=> 'cpan', 'CPAN::HandleConfig' => 'cpan', 'CPAN::Index' => 'cpan', 'CPAN::InfoObj' => 'cpan', 'CPAN::Kwalify' => 'cpan', 'CPAN::LWP::UserAgent' => 'cpan', 'CPAN::Meta' => 'cpan', 'CPAN::Meta::Converter' => 'cpan', 'CPAN::Meta::Feature' => 'cpan', 'CPAN::Meta::History' => 'cpan', 'CPAN::Meta::Merge' => 'cpan', 'CPAN::Meta::Prereqs' => 'cpan', 'CPAN::Meta::Requirements'=> 'cpan', 'CPAN::Meta::Spec' => 'cpan', 'CPAN::Meta::Validator' => 'cpan', 'CPAN::Meta::YAML' => 'cpan', 'CPAN::Mirrors' => 'cpan', 'CPAN::Module' => 'cpan', 'CPAN::Nox' => 'cpan', 'CPAN::Plugin' => 'cpan', 'CPAN::Plugin::Specfile'=> 'cpan', 'CPAN::Prompt' => 'cpan', 'CPAN::Queue' => 'cpan', 'CPAN::Shell' => 'cpan', 'CPAN::Tarzip' => 'cpan', 'CPAN::URL' => 'cpan', 'CPAN::Version' => 'cpan', 'Compress::Raw::Bzip2' => 'cpan', 'Compress::Raw::Zlib' => 'cpan', 'Compress::Zlib' => 'cpan', 'Config::Perl::V' => 'cpan', 'DB_File' => 'cpan', 'Digest' => 'cpan', 'Digest::MD5' => 'cpan', 'Digest::SHA' => 'cpan', 'Digest::base' => 'cpan', 'Digest::file' => 'cpan', 'Encode' => 'cpan', 'Encode::Alias' => 'cpan', 'Encode::Byte' => 'cpan', 'Encode::CJKConstants' => 'cpan', 'Encode::CN' => 'cpan', 'Encode::CN::HZ' => 'cpan', 'Encode::Config' => 'cpan', 'Encode::EBCDIC' => 'cpan', 'Encode::Encoder' => 'cpan', 'Encode::Encoding' => 'cpan', 'Encode::GSM0338' => 'cpan', 'Encode::Guess' => 'cpan', 'Encode::JP' => 'cpan', 'Encode::JP::H2Z' => 'cpan', 'Encode::JP::JIS7' => 'cpan', 'Encode::KR' => 'cpan', 'Encode::KR::2022_KR' => 'cpan', 'Encode::MIME::Header' => 'cpan', 'Encode::MIME::Header::ISO_2022_JP'=> 'cpan', 'Encode::MIME::Name' => 'cpan', 'Encode::Symbol' => 'cpan', 'Encode::TW' => 'cpan', 'Encode::Unicode' => 'cpan', 'Encode::Unicode::UTF7' => 'cpan', 'ExtUtils::Command' => 'cpan', 'ExtUtils::Command::MM' => 'cpan', 'ExtUtils::Constant' => 'cpan', 'ExtUtils::Constant::Base'=> 'cpan', 'ExtUtils::Constant::ProxySubs'=> 'cpan', 'ExtUtils::Constant::Utils'=> 'cpan', 'ExtUtils::Constant::XS'=> 'cpan', 'ExtUtils::Install' => 'cpan', 'ExtUtils::Installed' => 'cpan', 'ExtUtils::Liblist' => 'cpan', 'ExtUtils::Liblist::Kid'=> 'cpan', 'ExtUtils::MM' => 'cpan', 'ExtUtils::MM_AIX' => 'cpan', 'ExtUtils::MM_Any' => 'cpan', 'ExtUtils::MM_BeOS' => 'cpan', 'ExtUtils::MM_Cygwin' => 'cpan', 'ExtUtils::MM_DOS' => 'cpan', 'ExtUtils::MM_Darwin' => 'cpan', 'ExtUtils::MM_MacOS' => 'cpan', 'ExtUtils::MM_NW5' => 'cpan', 'ExtUtils::MM_OS2' => 'cpan', 'ExtUtils::MM_OS390' => 'cpan', 'ExtUtils::MM_QNX' => 'cpan', 'ExtUtils::MM_UWIN' => 'cpan', 'ExtUtils::MM_Unix' => 'cpan', 'ExtUtils::MM_VMS' => 'cpan', 'ExtUtils::MM_VOS' => 'cpan', 'ExtUtils::MM_Win32' => 'cpan', 'ExtUtils::MM_Win95' => 'cpan', 'ExtUtils::MY' => 'cpan', 'ExtUtils::MakeMaker' => 'cpan', 'ExtUtils::MakeMaker::Config'=> 'cpan', 'ExtUtils::MakeMaker::Locale'=> 'cpan', 'ExtUtils::MakeMaker::version'=> 'cpan', 'ExtUtils::MakeMaker::version::regex'=> 'cpan', 'ExtUtils::Manifest' => 'cpan', 'ExtUtils::Mkbootstrap' => 'cpan', 'ExtUtils::Mksymlists' => 'cpan', 'ExtUtils::PL2Bat' => 'cpan', 'ExtUtils::Packlist' => 'cpan', 'ExtUtils::testlib' => 'cpan', 'Fatal' => 'cpan', 'File::Fetch' => 'cpan', 'File::GlobMapper' => 'cpan', 'File::Path' => 'cpan', 'File::Temp' => 'cpan', 'Filter::Util::Call' => 'cpan', 'Getopt::Long' => 'cpan', 'HTTP::Tiny' => 'cpan', 'IO::Compress::Adapter::Bzip2'=> 'cpan', 'IO::Compress::Adapter::Deflate'=> 'cpan', 'IO::Compress::Adapter::Identity'=> 'cpan', 'IO::Compress::Base' => 'cpan', 'IO::Compress::Base::Common'=> 'cpan', 'IO::Compress::Bzip2' => 'cpan', 'IO::Compress::Deflate' => 'cpan', 'IO::Compress::Gzip' => 'cpan', 'IO::Compress::Gzip::Constants'=> 'cpan', 'IO::Compress::RawDeflate'=> 'cpan', 'IO::Compress::Zip' => 'cpan', 'IO::Compress::Zip::Constants'=> 'cpan', 'IO::Compress::Zlib::Constants'=> 'cpan', 'IO::Compress::Zlib::Extra'=> 'cpan', 'IO::Socket::IP' => 'cpan', 'IO::Uncompress::Adapter::Bunzip2'=> 'cpan', 'IO::Uncompress::Adapter::Identity'=> 'cpan', 'IO::Uncompress::Adapter::Inflate'=> 'cpan', 'IO::Uncompress::AnyInflate'=> 'cpan', 'IO::Uncompress::AnyUncompress'=> 'cpan', 'IO::Uncompress::Base' => 'cpan', 'IO::Uncompress::Bunzip2'=> 'cpan', 'IO::Uncompress::Gunzip'=> 'cpan', 'IO::Uncompress::Inflate'=> 'cpan', 'IO::Uncompress::RawInflate'=> 'cpan', 'IO::Uncompress::Unzip' => 'cpan', 'IO::Zlib' => 'cpan', 'IPC::Cmd' => 'cpan', 'IPC::Msg' => 'cpan', 'IPC::Semaphore' => 'cpan', 'IPC::SharedMem' => 'cpan', 'IPC::SysV' => 'cpan', 'JSON::PP' => 'cpan', 'JSON::PP::Boolean' => 'cpan', 'List::Util' => 'cpan', 'List::Util::XS' => 'cpan', 'Locale::Maketext::Simple'=> 'cpan', 'MIME::Base64' => 'cpan', 'MIME::QuotedPrint' => 'cpan', 'Math::BigFloat' => 'cpan', 'Math::BigFloat::Trace' => 'cpan', 'Math::BigInt' => 'cpan', 'Math::BigInt::Calc' => 'cpan', 'Math::BigInt::FastCalc'=> 'cpan', 'Math::BigInt::Lib' => 'cpan', 'Math::BigInt::Trace' => 'cpan', 'Math::BigRat' => 'cpan', 'Math::Complex' => 'cpan', 'Math::Trig' => 'cpan', 'Memoize' => 'cpan', 'Memoize::AnyDBM_File' => 'cpan', 'Memoize::Expire' => 'cpan', 'Memoize::ExpireFile' => 'cpan', 'Memoize::ExpireTest' => 'cpan', 'Memoize::NDBM_File' => 'cpan', 'Memoize::SDBM_File' => 'cpan', 'Memoize::Storable' => 'cpan', 'Module::Load' => 'cpan', 'Module::Load::Conditional'=> 'cpan', 'Module::Loaded' => 'cpan', 'Module::Metadata' => 'cpan', 'NEXT' => 'cpan', 'Net::Cmd' => 'cpan', 'Net::Config' => 'cpan', 'Net::Domain' => 'cpan', 'Net::FTP' => 'cpan', 'Net::FTP::A' => 'cpan', 'Net::FTP::E' => 'cpan', 'Net::FTP::I' => 'cpan', 'Net::FTP::L' => 'cpan', 'Net::FTP::dataconn' => 'cpan', 'Net::NNTP' => 'cpan', 'Net::Netrc' => 'cpan', 'Net::POP3' => 'cpan', 'Net::SMTP' => 'cpan', 'Net::Time' => 'cpan', 'Params::Check' => 'cpan', 'Parse::CPAN::Meta' => 'cpan', 'Perl::OSType' => 'cpan', 'PerlIO::via::QuotedPrint'=> 'cpan', 'Pod::Checker' => 'cpan', 'Pod::Escapes' => 'cpan', 'Pod::Man' => 'cpan', 'Pod::ParseLink' => 'cpan', 'Pod::Perldoc' => 'cpan', 'Pod::Perldoc::BaseTo' => 'cpan', 'Pod::Perldoc::GetOptsOO'=> 'cpan', 'Pod::Perldoc::ToANSI' => 'cpan', 'Pod::Perldoc::ToChecker'=> 'cpan', 'Pod::Perldoc::ToMan' => 'cpan', 'Pod::Perldoc::ToNroff' => 'cpan', 'Pod::Perldoc::ToPod' => 'cpan', 'Pod::Perldoc::ToRtf' => 'cpan', 'Pod::Perldoc::ToTerm' => 'cpan', 'Pod::Perldoc::ToText' => 'cpan', 'Pod::Perldoc::ToTk' => 'cpan', 'Pod::Perldoc::ToXml' => 'cpan', 'Pod::Simple' => 'cpan', 'Pod::Simple::BlackBox' => 'cpan', 'Pod::Simple::Checker' => 'cpan', 'Pod::Simple::Debug' => 'cpan', 'Pod::Simple::DumpAsText'=> 'cpan', 'Pod::Simple::DumpAsXML'=> 'cpan', 'Pod::Simple::HTML' => 'cpan', 'Pod::Simple::HTMLBatch'=> 'cpan', 'Pod::Simple::HTMLLegacy'=> 'cpan', 'Pod::Simple::JustPod' => 'cpan', 'Pod::Simple::LinkSection'=> 'cpan', 'Pod::Simple::Methody' => 'cpan', 'Pod::Simple::Progress' => 'cpan', 'Pod::Simple::PullParser'=> 'cpan', 'Pod::Simple::PullParserEndToken'=> 'cpan', 'Pod::Simple::PullParserStartToken'=> 'cpan', 'Pod::Simple::PullParserTextToken'=> 'cpan', 'Pod::Simple::PullParserToken'=> 'cpan', 'Pod::Simple::RTF' => 'cpan', 'Pod::Simple::Search' => 'cpan', 'Pod::Simple::SimpleTree'=> 'cpan', 'Pod::Simple::Text' => 'cpan', 'Pod::Simple::TextContent'=> 'cpan', 'Pod::Simple::TiedOutFH'=> 'cpan', 'Pod::Simple::Transcode'=> 'cpan', 'Pod::Simple::TranscodeDumb'=> 'cpan', 'Pod::Simple::TranscodeSmart'=> 'cpan', 'Pod::Simple::XHTML' => 'cpan', 'Pod::Simple::XMLOutStream'=> 'cpan', 'Pod::Text' => 'cpan', 'Pod::Text::Color' => 'cpan', 'Pod::Text::Overstrike' => 'cpan', 'Pod::Text::Termcap' => 'cpan', 'Pod::Usage' => 'cpan', 'Scalar::Util' => 'cpan', 'Socket' => 'cpan', 'Sub::Util' => 'cpan', 'Sys::Syslog' => 'cpan', 'Sys::Syslog::Win32' => 'cpan', 'TAP::Base' => 'cpan', 'TAP::Formatter::Base' => 'cpan', 'TAP::Formatter::Color' => 'cpan', 'TAP::Formatter::Console'=> 'cpan', 'TAP::Formatter::Console::ParallelSession'=> 'cpan', 'TAP::Formatter::Console::Session'=> 'cpan', 'TAP::Formatter::File' => 'cpan', 'TAP::Formatter::File::Session'=> 'cpan', 'TAP::Formatter::Session'=> 'cpan', 'TAP::Harness' => 'cpan', 'TAP::Harness::Env' => 'cpan', 'TAP::Object' => 'cpan', 'TAP::Parser' => 'cpan', 'TAP::Parser::Aggregator'=> 'cpan', 'TAP::Parser::Grammar' => 'cpan', 'TAP::Parser::Iterator' => 'cpan', 'TAP::Parser::Iterator::Array'=> 'cpan', 'TAP::Parser::Iterator::Process'=> 'cpan', 'TAP::Parser::Iterator::Stream'=> 'cpan', 'TAP::Parser::IteratorFactory'=> 'cpan', 'TAP::Parser::Multiplexer'=> 'cpan', 'TAP::Parser::Result' => 'cpan', 'TAP::Parser::Result::Bailout'=> 'cpan', 'TAP::Parser::Result::Comment'=> 'cpan', 'TAP::Parser::Result::Plan'=> 'cpan', 'TAP::Parser::Result::Pragma'=> 'cpan', 'TAP::Parser::Result::Test'=> 'cpan', 'TAP::Parser::Result::Unknown'=> 'cpan', 'TAP::Parser::Result::Version'=> 'cpan', 'TAP::Parser::Result::YAML'=> 'cpan', 'TAP::Parser::ResultFactory'=> 'cpan', 'TAP::Parser::Scheduler'=> 'cpan', 'TAP::Parser::Scheduler::Job'=> 'cpan', 'TAP::Parser::Scheduler::Spinner'=> 'cpan', 'TAP::Parser::Source' => 'cpan', 'TAP::Parser::SourceHandler'=> 'cpan', 'TAP::Parser::SourceHandler::Executable'=> 'cpan', 'TAP::Parser::SourceHandler::File'=> 'cpan', 'TAP::Parser::SourceHandler::Handle'=> 'cpan', 'TAP::Parser::SourceHandler::Perl'=> 'cpan', 'TAP::Parser::SourceHandler::RawTAP'=> 'cpan', 'TAP::Parser::YAMLish::Reader'=> 'cpan', 'TAP::Parser::YAMLish::Writer'=> 'cpan', 'Term::ANSIColor' => 'cpan', 'Term::Cap' => 'cpan', 'Test2' => 'cpan', 'Test2::API' => 'cpan', 'Test2::API::Breakage' => 'cpan', 'Test2::API::Context' => 'cpan', 'Test2::API::Instance' => 'cpan', 'Test2::API::InterceptResult'=> 'cpan', 'Test2::API::InterceptResult::Event'=> 'cpan', 'Test2::API::InterceptResult::Facet'=> 'cpan', 'Test2::API::InterceptResult::Hub'=> 'cpan', 'Test2::API::InterceptResult::Squasher'=> 'cpan', 'Test2::API::Stack' => 'cpan', 'Test2::Event' => 'cpan', 'Test2::Event::Bail' => 'cpan', 'Test2::Event::Diag' => 'cpan', 'Test2::Event::Encoding'=> 'cpan', 'Test2::Event::Exception'=> 'cpan', 'Test2::Event::Fail' => 'cpan', 'Test2::Event::Generic' => 'cpan', 'Test2::Event::Note' => 'cpan', 'Test2::Event::Ok' => 'cpan', 'Test2::Event::Pass' => 'cpan', 'Test2::Event::Plan' => 'cpan', 'Test2::Event::Skip' => 'cpan', 'Test2::Event::Subtest' => 'cpan', 'Test2::Event::TAP::Version'=> 'cpan', 'Test2::Event::V2' => 'cpan', 'Test2::Event::Waiting' => 'cpan', 'Test2::EventFacet' => 'cpan', 'Test2::EventFacet::About'=> 'cpan', 'Test2::EventFacet::Amnesty'=> 'cpan', 'Test2::EventFacet::Assert'=> 'cpan', 'Test2::EventFacet::Control'=> 'cpan', 'Test2::EventFacet::Error'=> 'cpan', 'Test2::EventFacet::Hub'=> 'cpan', 'Test2::EventFacet::Info'=> 'cpan', 'Test2::EventFacet::Info::Table'=> 'cpan', 'Test2::EventFacet::Meta'=> 'cpan', 'Test2::EventFacet::Parent'=> 'cpan', 'Test2::EventFacet::Plan'=> 'cpan', 'Test2::EventFacet::Render'=> 'cpan', 'Test2::EventFacet::Trace'=> 'cpan', 'Test2::Formatter' => 'cpan', 'Test2::Formatter::TAP' => 'cpan', 'Test2::Hub' => 'cpan', 'Test2::Hub::Interceptor'=> 'cpan', 'Test2::Hub::Interceptor::Terminator'=> 'cpan', 'Test2::Hub::Subtest' => 'cpan', 'Test2::IPC' => 'cpan', 'Test2::IPC::Driver' => 'cpan', 'Test2::IPC::Driver::Files'=> 'cpan', 'Test2::Tools::Tiny' => 'cpan', 'Test2::Util' => 'cpan', 'Test2::Util::ExternalMeta'=> 'cpan', 'Test2::Util::Facets2Legacy'=> 'cpan', 'Test2::Util::HashBase' => 'cpan', 'Test2::Util::Trace' => 'cpan', 'Test::Builder' => 'cpan', 'Test::Builder::Formatter'=> 'cpan', 'Test::Builder::IO::Scalar'=> 'cpan', 'Test::Builder::Module' => 'cpan', 'Test::Builder::Tester' => 'cpan', 'Test::Builder::Tester::Color'=> 'cpan', 'Test::Builder::TodoDiag'=> 'cpan', 'Test::Harness' => 'cpan', 'Test::More' => 'cpan', 'Test::Simple' => 'cpan', 'Test::Tester' => 'cpan', 'Test::Tester::Capture' => 'cpan', 'Test::Tester::CaptureRunner'=> 'cpan', 'Test::Tester::Delegate'=> 'cpan', 'Test::use::ok' => 'cpan', 'Text::Balanced' => 'cpan', 'Text::ParseWords' => 'cpan', 'Text::Tabs' => 'cpan', 'Text::Wrap' => 'cpan', 'Tie::RefHash' => 'cpan', 'Time::Local' => 'cpan', 'Time::Piece' => 'cpan', 'Time::Seconds' => 'cpan', 'Unicode::Collate' => 'cpan', 'Unicode::Collate::CJK::Big5'=> 'cpan', 'Unicode::Collate::CJK::GB2312'=> 'cpan', 'Unicode::Collate::CJK::JISX0208'=> 'cpan', 'Unicode::Collate::CJK::Korean'=> 'cpan', 'Unicode::Collate::CJK::Pinyin'=> 'cpan', 'Unicode::Collate::CJK::Stroke'=> 'cpan', 'Unicode::Collate::CJK::Zhuyin'=> 'cpan', 'Unicode::Collate::Locale'=> 'cpan', 'Win32' => 'cpan', 'Win32API::File' => 'cpan', 'autodie' => 'cpan', 'autodie::Scope::Guard' => 'cpan', 'autodie::Scope::GuardStack'=> 'cpan', 'autodie::Util' => 'cpan', 'autodie::exception' => 'cpan', 'autodie::exception::system'=> 'cpan', 'autodie::hints' => 'cpan', 'autodie::skip' => 'cpan', 'bigint' => 'cpan', 'bignum' => 'cpan', 'bigrat' => 'cpan', 'encoding' => 'cpan', 'experimental' => 'cpan', 'ok' => 'cpan', 'parent' => 'cpan', 'perlfaq' => 'cpan', 'version' => 'cpan', 'version::regex' => 'cpan', ); %bug_tracker = ( 'App::Cpan' => undef, 'App::Prove' => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'App::Prove::State' => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'App::Prove::State::Result'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'App::Prove::State::Result::Test'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'Archive::Tar' => undef, 'Archive::Tar::Constant'=> undef, 'Archive::Tar::File' => undef, 'CPAN' => undef, 'CPAN::Author' => undef, 'CPAN::Bundle' => undef, 'CPAN::CacheMgr' => undef, 'CPAN::Complete' => undef, 'CPAN::Debug' => undef, 'CPAN::DeferredCode' => undef, 'CPAN::Distribution' => undef, 'CPAN::Distroprefs' => undef, 'CPAN::Distrostatus' => undef, 'CPAN::Exception::RecursiveDependency'=> undef, 'CPAN::Exception::blocked_urllist'=> undef, 'CPAN::Exception::yaml_not_installed'=> undef, 'CPAN::Exception::yaml_process_error'=> undef, 'CPAN::FTP' => undef, 'CPAN::FTP::netrc' => undef, 'CPAN::FirstTime' => undef, 'CPAN::HTTP::Client' => undef, 'CPAN::HTTP::Credentials'=> undef, 'CPAN::HandleConfig' => undef, 'CPAN::Index' => undef, 'CPAN::InfoObj' => undef, 'CPAN::Kwalify' => undef, 'CPAN::LWP::UserAgent' => undef, 'CPAN::Meta' => 'https://github.com/Perl-Toolchain-Gang/CPAN-Meta/issues', 'CPAN::Meta::Converter' => 'https://github.com/Perl-Toolchain-Gang/CPAN-Meta/issues', 'CPAN::Meta::Feature' => 'https://github.com/Perl-Toolchain-Gang/CPAN-Meta/issues', 'CPAN::Meta::History' => 'https://github.com/Perl-Toolchain-Gang/CPAN-Meta/issues', 'CPAN::Meta::Merge' => 'https://github.com/Perl-Toolchain-Gang/CPAN-Meta/issues', 'CPAN::Meta::Prereqs' => 'https://github.com/Perl-Toolchain-Gang/CPAN-Meta/issues', 'CPAN::Meta::Requirements'=> 'https://github.com/Perl-Toolchain-Gang/CPAN-Meta-Requirements/issues', 'CPAN::Meta::Spec' => 'https://github.com/Perl-Toolchain-Gang/CPAN-Meta/issues', 'CPAN::Meta::Validator' => 'https://github.com/Perl-Toolchain-Gang/CPAN-Meta/issues', 'CPAN::Meta::YAML' => 'https://github.com/Perl-Toolchain-Gang/YAML-Tiny/issues', 'CPAN::Mirrors' => undef, 'CPAN::Module' => undef, 'CPAN::Nox' => undef, 'CPAN::Plugin' => undef, 'CPAN::Plugin::Specfile'=> undef, 'CPAN::Prompt' => undef, 'CPAN::Queue' => undef, 'CPAN::Shell' => undef, 'CPAN::Tarzip' => undef, 'CPAN::URL' => undef, 'CPAN::Version' => undef, 'Compress::Raw::Bzip2' => 'https://github.com/pmqs/Compress-Raw-Bzip2/issues', 'Compress::Raw::Zlib' => 'https://github.com/pmqs/Compress-Raw-Zlib/issues', 'Compress::Zlib' => 'https://github.com/pmqs/IO-Compress/issues', 'Config::Perl::V' => 'https://github.com/Tux/Config-Perl-V/issues', 'DB_File' => 'https://github.com/pmqs/DB_File/issues', 'Digest' => 'https://github.com/Dual-Life/digest/issues', 'Digest::MD5' => 'https://github.com/Dual-Life/digest-md5/issues', 'Digest::SHA' => undef, 'Digest::base' => 'https://github.com/Dual-Life/digest/issues', 'Digest::file' => 'https://github.com/Dual-Life/digest/issues', 'Encode' => undef, 'Encode::Alias' => undef, 'Encode::Byte' => undef, 'Encode::CJKConstants' => undef, 'Encode::CN' => undef, 'Encode::CN::HZ' => undef, 'Encode::Config' => undef, 'Encode::EBCDIC' => undef, 'Encode::Encoder' => undef, 'Encode::Encoding' => undef, 'Encode::GSM0338' => undef, 'Encode::Guess' => undef, 'Encode::JP' => undef, 'Encode::JP::H2Z' => undef, 'Encode::JP::JIS7' => undef, 'Encode::KR' => undef, 'Encode::KR::2022_KR' => undef, 'Encode::MIME::Header' => undef, 'Encode::MIME::Header::ISO_2022_JP'=> undef, 'Encode::MIME::Name' => undef, 'Encode::Symbol' => undef, 'Encode::TW' => undef, 'Encode::Unicode' => undef, 'Encode::Unicode::UTF7' => undef, 'ExtUtils::Command' => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker', 'ExtUtils::Command::MM' => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker', 'ExtUtils::Constant' => undef, 'ExtUtils::Constant::Base'=> undef, 'ExtUtils::Constant::ProxySubs'=> undef, 'ExtUtils::Constant::Utils'=> undef, 'ExtUtils::Constant::XS'=> undef, 'ExtUtils::Install' => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-Install', 'ExtUtils::Installed' => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-Install', 'ExtUtils::Liblist' => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker', 'ExtUtils::Liblist::Kid'=> 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker', 'ExtUtils::MM' => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker', 'ExtUtils::MM_AIX' => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker', 'ExtUtils::MM_Any' => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker', 'ExtUtils::MM_BeOS' => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker', 'ExtUtils::MM_Cygwin' => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker', 'ExtUtils::MM_DOS' => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker', 'ExtUtils::MM_Darwin' => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker', 'ExtUtils::MM_MacOS' => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker', 'ExtUtils::MM_NW5' => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker', 'ExtUtils::MM_OS2' => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker', 'ExtUtils::MM_OS390' => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker', 'ExtUtils::MM_QNX' => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker', 'ExtUtils::MM_UWIN' => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker', 'ExtUtils::MM_Unix' => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker', 'ExtUtils::MM_VMS' => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker', 'ExtUtils::MM_VOS' => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker', 'ExtUtils::MM_Win32' => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker', 'ExtUtils::MM_Win95' => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker', 'ExtUtils::MY' => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker', 'ExtUtils::MakeMaker' => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker', 'ExtUtils::MakeMaker::Config'=> 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker', 'ExtUtils::MakeMaker::Locale'=> 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker', 'ExtUtils::MakeMaker::version'=> 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker', 'ExtUtils::MakeMaker::version::regex'=> 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker', 'ExtUtils::Manifest' => 'http://github.com/Perl-Toolchain-Gang/ExtUtils-Manifest/issues', 'ExtUtils::Mkbootstrap' => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker', 'ExtUtils::Mksymlists' => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker', 'ExtUtils::PL2Bat' => 'https://github.com/Perl-Toolchain-Gang/extutils-pl2bat/issues', 'ExtUtils::Packlist' => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-Install', 'ExtUtils::testlib' => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker', 'Fatal' => 'https://github.com/pjf/autodie/issues', 'File::Fetch' => undef, 'File::GlobMapper' => 'https://github.com/pmqs/IO-Compress/issues', 'File::Path' => undef, 'File::Temp' => 'https://rt.cpan.org/Public/Dist/Display.html?Name=File-Temp', 'Filter::Util::Call' => undef, 'Getopt::Long' => undef, 'HTTP::Tiny' => 'https://github.com/chansen/p5-http-tiny/issues', 'IO::Compress::Adapter::Bzip2'=> 'https://github.com/pmqs/IO-Compress/issues', 'IO::Compress::Adapter::Deflate'=> 'https://github.com/pmqs/IO-Compress/issues', 'IO::Compress::Adapter::Identity'=> 'https://github.com/pmqs/IO-Compress/issues', 'IO::Compress::Base' => 'https://github.com/pmqs/IO-Compress/issues', 'IO::Compress::Base::Common'=> 'https://github.com/pmqs/IO-Compress/issues', 'IO::Compress::Bzip2' => 'https://github.com/pmqs/IO-Compress/issues', 'IO::Compress::Deflate' => 'https://github.com/pmqs/IO-Compress/issues', 'IO::Compress::Gzip' => 'https://github.com/pmqs/IO-Compress/issues', 'IO::Compress::Gzip::Constants'=> 'https://github.com/pmqs/IO-Compress/issues', 'IO::Compress::RawDeflate'=> 'https://github.com/pmqs/IO-Compress/issues', 'IO::Compress::Zip' => 'https://github.com/pmqs/IO-Compress/issues', 'IO::Compress::Zip::Constants'=> 'https://github.com/pmqs/IO-Compress/issues', 'IO::Compress::Zlib::Constants'=> 'https://github.com/pmqs/IO-Compress/issues', 'IO::Compress::Zlib::Extra'=> 'https://github.com/pmqs/IO-Compress/issues', 'IO::Socket::IP' => undef, 'IO::Uncompress::Adapter::Bunzip2'=> 'https://github.com/pmqs/IO-Compress/issues', 'IO::Uncompress::Adapter::Identity'=> 'https://github.com/pmqs/IO-Compress/issues', 'IO::Uncompress::Adapter::Inflate'=> 'https://github.com/pmqs/IO-Compress/issues', 'IO::Uncompress::AnyInflate'=> 'https://github.com/pmqs/IO-Compress/issues', 'IO::Uncompress::AnyUncompress'=> 'https://github.com/pmqs/IO-Compress/issues', 'IO::Uncompress::Base' => 'https://github.com/pmqs/IO-Compress/issues', 'IO::Uncompress::Bunzip2'=> 'https://github.com/pmqs/IO-Compress/issues', 'IO::Uncompress::Gunzip'=> 'https://github.com/pmqs/IO-Compress/issues', 'IO::Uncompress::Inflate'=> 'https://github.com/pmqs/IO-Compress/issues', 'IO::Uncompress::RawInflate'=> 'https://github.com/pmqs/IO-Compress/issues', 'IO::Uncompress::Unzip' => 'https://github.com/pmqs/IO-Compress/issues', 'IO::Zlib' => 'https://github.com/tomhughes/IO-Zlib/issues', 'IPC::Cmd' => undef, 'IPC::Msg' => undef, 'IPC::Semaphore' => undef, 'IPC::SharedMem' => undef, 'IPC::SysV' => undef, 'JSON::PP' => 'https://github.com/makamaka/JSON-PP/issues', 'JSON::PP::Boolean' => 'https://github.com/makamaka/JSON-PP/issues', 'List::Util' => 'https://rt.cpan.org/Public/Dist/Display.html?Name=Scalar-List-Utils', 'List::Util::XS' => 'https://rt.cpan.org/Public/Dist/Display.html?Name=Scalar-List-Utils', 'Locale::Maketext::Simple'=> undef, 'MIME::Base64' => 'https://github.com/Dual-Life/mime-base64/issues', 'MIME::QuotedPrint' => 'https://github.com/Dual-Life/mime-base64/issues', 'Math::BigFloat' => undef, 'Math::BigFloat::Trace' => undef, 'Math::BigInt' => undef, 'Math::BigInt::Calc' => undef, 'Math::BigInt::FastCalc'=> undef, 'Math::BigInt::Lib' => undef, 'Math::BigInt::Trace' => undef, 'Math::BigRat' => undef, 'Math::Complex' => undef, 'Math::Trig' => undef, 'Memoize' => undef, 'Memoize::AnyDBM_File' => undef, 'Memoize::Expire' => undef, 'Memoize::ExpireFile' => undef, 'Memoize::ExpireTest' => undef, 'Memoize::NDBM_File' => undef, 'Memoize::SDBM_File' => undef, 'Memoize::Storable' => undef, 'Module::Load' => undef, 'Module::Load::Conditional'=> undef, 'Module::Loaded' => undef, 'Module::Metadata' => 'https://rt.cpan.org/Public/Dist/Display.html?Name=Module-Metadata', 'NEXT' => undef, 'Net::Cmd' => undef, 'Net::Config' => undef, 'Net::Domain' => undef, 'Net::FTP' => undef, 'Net::FTP::A' => undef, 'Net::FTP::E' => undef, 'Net::FTP::I' => undef, 'Net::FTP::L' => undef, 'Net::FTP::dataconn' => undef, 'Net::NNTP' => undef, 'Net::Netrc' => undef, 'Net::POP3' => undef, 'Net::SMTP' => undef, 'Net::Time' => undef, 'Params::Check' => undef, 'Parse::CPAN::Meta' => 'https://github.com/Perl-Toolchain-Gang/CPAN-Meta/issues', 'Perl::OSType' => 'https://github.com/Perl-Toolchain-Gang/Perl-OSType/issues', 'PerlIO::via::QuotedPrint'=> undef, 'Pod::Checker' => undef, 'Pod::Escapes' => undef, 'Pod::Man' => 'https://rt.cpan.org/Dist/Display.html?Name=podlators', 'Pod::ParseLink' => 'https://rt.cpan.org/Dist/Display.html?Name=podlators', 'Pod::Perldoc' => undef, 'Pod::Perldoc::BaseTo' => undef, 'Pod::Perldoc::GetOptsOO'=> undef, 'Pod::Perldoc::ToANSI' => undef, 'Pod::Perldoc::ToChecker'=> undef, 'Pod::Perldoc::ToMan' => undef, 'Pod::Perldoc::ToNroff' => undef, 'Pod::Perldoc::ToPod' => undef, 'Pod::Perldoc::ToRtf' => undef, 'Pod::Perldoc::ToTerm' => undef, 'Pod::Perldoc::ToText' => undef, 'Pod::Perldoc::ToTk' => undef, 'Pod::Perldoc::ToXml' => undef, 'Pod::Simple' => 'https://github.com/perl-pod/pod-simple/issues', 'Pod::Simple::BlackBox' => 'https://github.com/perl-pod/pod-simple/issues', 'Pod::Simple::Checker' => 'https://github.com/perl-pod/pod-simple/issues', 'Pod::Simple::Debug' => 'https://github.com/perl-pod/pod-simple/issues', 'Pod::Simple::DumpAsText'=> 'https://github.com/perl-pod/pod-simple/issues', 'Pod::Simple::DumpAsXML'=> 'https://github.com/perl-pod/pod-simple/issues', 'Pod::Simple::HTML' => 'https://github.com/perl-pod/pod-simple/issues', 'Pod::Simple::HTMLBatch'=> 'https://github.com/perl-pod/pod-simple/issues', 'Pod::Simple::HTMLLegacy'=> 'https://github.com/perl-pod/pod-simple/issues', 'Pod::Simple::JustPod' => 'https://github.com/perl-pod/pod-simple/issues', 'Pod::Simple::LinkSection'=> 'https://github.com/perl-pod/pod-simple/issues', 'Pod::Simple::Methody' => 'https://github.com/perl-pod/pod-simple/issues', 'Pod::Simple::Progress' => 'https://github.com/perl-pod/pod-simple/issues', 'Pod::Simple::PullParser'=> 'https://github.com/perl-pod/pod-simple/issues', 'Pod::Simple::PullParserEndToken'=> 'https://github.com/perl-pod/pod-simple/issues', 'Pod::Simple::PullParserStartToken'=> 'https://github.com/perl-pod/pod-simple/issues', 'Pod::Simple::PullParserTextToken'=> 'https://github.com/perl-pod/pod-simple/issues', 'Pod::Simple::PullParserToken'=> 'https://github.com/perl-pod/pod-simple/issues', 'Pod::Simple::RTF' => 'https://github.com/perl-pod/pod-simple/issues', 'Pod::Simple::Search' => 'https://github.com/perl-pod/pod-simple/issues', 'Pod::Simple::SimpleTree'=> 'https://github.com/perl-pod/pod-simple/issues', 'Pod::Simple::Text' => 'https://github.com/perl-pod/pod-simple/issues', 'Pod::Simple::TextContent'=> 'https://github.com/perl-pod/pod-simple/issues', 'Pod::Simple::TiedOutFH'=> 'https://github.com/perl-pod/pod-simple/issues', 'Pod::Simple::Transcode'=> 'https://github.com/perl-pod/pod-simple/issues', 'Pod::Simple::TranscodeDumb'=> 'https://github.com/perl-pod/pod-simple/issues', 'Pod::Simple::TranscodeSmart'=> 'https://github.com/perl-pod/pod-simple/issues', 'Pod::Simple::XHTML' => 'https://github.com/perl-pod/pod-simple/issues', 'Pod::Simple::XMLOutStream'=> 'https://github.com/perl-pod/pod-simple/issues', 'Pod::Text' => 'https://rt.cpan.org/Dist/Display.html?Name=podlators', 'Pod::Text::Color' => 'https://rt.cpan.org/Dist/Display.html?Name=podlators', 'Pod::Text::Overstrike' => 'https://rt.cpan.org/Dist/Display.html?Name=podlators', 'Pod::Text::Termcap' => 'https://rt.cpan.org/Dist/Display.html?Name=podlators', 'Pod::Usage' => 'https://github.com/Dual-Life/Pod-Usage/issues', 'Scalar::Util' => 'https://rt.cpan.org/Public/Dist/Display.html?Name=Scalar-List-Utils', 'Socket' => undef, 'Sub::Util' => 'https://rt.cpan.org/Public/Dist/Display.html?Name=Scalar-List-Utils', 'Sys::Syslog' => undef, 'Sys::Syslog::Win32' => undef, 'TAP::Base' => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Formatter::Base' => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Formatter::Color' => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Formatter::Console'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Formatter::Console::ParallelSession'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Formatter::Console::Session'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Formatter::File' => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Formatter::File::Session'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Formatter::Session'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Harness' => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Harness::Env' => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Object' => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser' => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::Aggregator'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::Grammar' => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::Iterator' => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::Iterator::Array'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::Iterator::Process'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::Iterator::Stream'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::IteratorFactory'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::Multiplexer'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::Result' => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::Result::Bailout'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::Result::Comment'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::Result::Plan'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::Result::Pragma'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::Result::Test'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::Result::Unknown'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::Result::Version'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::Result::YAML'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::ResultFactory'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::Scheduler'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::Scheduler::Job'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::Scheduler::Spinner'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::Source' => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::SourceHandler'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::SourceHandler::Executable'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::SourceHandler::File'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::SourceHandler::Handle'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::SourceHandler::Perl'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::SourceHandler::RawTAP'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::YAMLish::Reader'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::YAMLish::Writer'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'Term::ANSIColor' => 'https://rt.cpan.org/Dist/Display.html?Name=Term-ANSIColor', 'Term::Cap' => undef, 'Test2' => 'http://github.com/Test-More/test-more/issues', 'Test2::API' => 'http://github.com/Test-More/test-more/issues', 'Test2::API::Breakage' => 'http://github.com/Test-More/test-more/issues', 'Test2::API::Context' => 'http://github.com/Test-More/test-more/issues', 'Test2::API::Instance' => 'http://github.com/Test-More/test-more/issues', 'Test2::API::InterceptResult'=> 'http://github.com/Test-More/test-more/issues', 'Test2::API::InterceptResult::Event'=> 'http://github.com/Test-More/test-more/issues', 'Test2::API::InterceptResult::Facet'=> 'http://github.com/Test-More/test-more/issues', 'Test2::API::InterceptResult::Hub'=> 'http://github.com/Test-More/test-more/issues', 'Test2::API::InterceptResult::Squasher'=> 'http://github.com/Test-More/test-more/issues', 'Test2::API::Stack' => 'http://github.com/Test-More/test-more/issues', 'Test2::Event' => 'http://github.com/Test-More/test-more/issues', 'Test2::Event::Bail' => 'http://github.com/Test-More/test-more/issues', 'Test2::Event::Diag' => 'http://github.com/Test-More/test-more/issues', 'Test2::Event::Encoding'=> 'http://github.com/Test-More/test-more/issues', 'Test2::Event::Exception'=> 'http://github.com/Test-More/test-more/issues', 'Test2::Event::Fail' => 'http://github.com/Test-More/test-more/issues', 'Test2::Event::Generic' => 'http://github.com/Test-More/test-more/issues', 'Test2::Event::Note' => 'http://github.com/Test-More/test-more/issues', 'Test2::Event::Ok' => 'http://github.com/Test-More/test-more/issues', 'Test2::Event::Pass' => 'http://github.com/Test-More/test-more/issues', 'Test2::Event::Plan' => 'http://github.com/Test-More/test-more/issues', 'Test2::Event::Skip' => 'http://github.com/Test-More/test-more/issues', 'Test2::Event::Subtest' => 'http://github.com/Test-More/test-more/issues', 'Test2::Event::TAP::Version'=> 'http://github.com/Test-More/test-more/issues', 'Test2::Event::V2' => 'http://github.com/Test-More/test-more/issues', 'Test2::Event::Waiting' => 'http://github.com/Test-More/test-more/issues', 'Test2::EventFacet' => 'http://github.com/Test-More/test-more/issues', 'Test2::EventFacet::About'=> 'http://github.com/Test-More/test-more/issues', 'Test2::EventFacet::Amnesty'=> 'http://github.com/Test-More/test-more/issues', 'Test2::EventFacet::Assert'=> 'http://github.com/Test-More/test-more/issues', 'Test2::EventFacet::Control'=> 'http://github.com/Test-More/test-more/issues', 'Test2::EventFacet::Error'=> 'http://github.com/Test-More/test-more/issues', 'Test2::EventFacet::Hub'=> 'http://github.com/Test-More/test-more/issues', 'Test2::EventFacet::Info'=> 'http://github.com/Test-More/test-more/issues', 'Test2::EventFacet::Info::Table'=> 'http://github.com/Test-More/test-more/issues', 'Test2::EventFacet::Meta'=> 'http://github.com/Test-More/test-more/issues', 'Test2::EventFacet::Parent'=> 'http://github.com/Test-More/test-more/issues', 'Test2::EventFacet::Plan'=> 'http://github.com/Test-More/test-more/issues', 'Test2::EventFacet::Render'=> 'http://github.com/Test-More/test-more/issues', 'Test2::EventFacet::Trace'=> 'http://github.com/Test-More/test-more/issues', 'Test2::Formatter' => 'http://github.com/Test-More/test-more/issues', 'Test2::Formatter::TAP' => 'http://github.com/Test-More/test-more/issues', 'Test2::Hub' => 'http://github.com/Test-More/test-more/issues', 'Test2::Hub::Interceptor'=> 'http://github.com/Test-More/test-more/issues', 'Test2::Hub::Interceptor::Terminator'=> 'http://github.com/Test-More/test-more/issues', 'Test2::Hub::Subtest' => 'http://github.com/Test-More/test-more/issues', 'Test2::IPC' => 'http://github.com/Test-More/test-more/issues', 'Test2::IPC::Driver' => 'http://github.com/Test-More/test-more/issues', 'Test2::IPC::Driver::Files'=> 'http://github.com/Test-More/test-more/issues', 'Test2::Tools::Tiny' => 'http://github.com/Test-More/test-more/issues', 'Test2::Util' => 'http://github.com/Test-More/test-more/issues', 'Test2::Util::ExternalMeta'=> 'http://github.com/Test-More/test-more/issues', 'Test2::Util::Facets2Legacy'=> 'http://github.com/Test-More/test-more/issues', 'Test2::Util::HashBase' => 'http://github.com/Test-More/test-more/issues', 'Test2::Util::Trace' => 'http://github.com/Test-More/test-more/issues', 'Test::Builder' => 'http://github.com/Test-More/test-more/issues', 'Test::Builder::Formatter'=> 'http://github.com/Test-More/test-more/issues', 'Test::Builder::IO::Scalar'=> 'http://github.com/Test-More/test-more/issues', 'Test::Builder::Module' => 'http://github.com/Test-More/test-more/issues', 'Test::Builder::Tester' => 'http://github.com/Test-More/test-more/issues', 'Test::Builder::Tester::Color'=> 'http://github.com/Test-More/test-more/issues', 'Test::Builder::TodoDiag'=> 'http://github.com/Test-More/test-more/issues', 'Test::Harness' => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'Test::More' => 'http://github.com/Test-More/test-more/issues', 'Test::Simple' => 'http://github.com/Test-More/test-more/issues', 'Test::Tester' => 'http://github.com/Test-More/test-more/issues', 'Test::Tester::Capture' => 'http://github.com/Test-More/test-more/issues', 'Test::Tester::CaptureRunner'=> 'http://github.com/Test-More/test-more/issues', 'Test::Tester::Delegate'=> 'http://github.com/Test-More/test-more/issues', 'Test::use::ok' => 'http://github.com/Test-More/test-more/issues', 'Text::Balanced' => undef, 'Text::ParseWords' => undef, 'Text::Tabs' => undef, 'Text::Wrap' => undef, 'Tie::RefHash' => 'https://rt.cpan.org/Public/Dist/Display.html?Name=Tie-RefHash', 'Time::Local' => 'https://github.com/houseabsolute/Time-Local/issues', 'Time::Piece' => undef, 'Time::Seconds' => undef, 'Unicode::Collate' => undef, 'Unicode::Collate::CJK::Big5'=> undef, 'Unicode::Collate::CJK::GB2312'=> undef, 'Unicode::Collate::CJK::JISX0208'=> undef, 'Unicode::Collate::CJK::Korean'=> undef, 'Unicode::Collate::CJK::Pinyin'=> undef, 'Unicode::Collate::CJK::Stroke'=> undef, 'Unicode::Collate::CJK::Zhuyin'=> undef, 'Unicode::Collate::Locale'=> undef, 'Win32' => 'https://github.com/perl-libwin32/win32/issues', 'Win32API::File' => undef, 'autodie' => 'https://github.com/pjf/autodie/issues', 'autodie::Scope::Guard' => 'https://github.com/pjf/autodie/issues', 'autodie::Scope::GuardStack'=> 'https://github.com/pjf/autodie/issues', 'autodie::Util' => 'https://github.com/pjf/autodie/issues', 'autodie::exception' => 'https://github.com/pjf/autodie/issues', 'autodie::exception::system'=> 'https://github.com/pjf/autodie/issues', 'autodie::hints' => 'https://github.com/pjf/autodie/issues', 'autodie::skip' => 'https://github.com/pjf/autodie/issues', 'bigint' => undef, 'bignum' => undef, 'bigrat' => undef, 'encoding' => undef, 'experimental' => 'http://rt.cpan.org/Public/Dist/Display.html?Name=experimental', 'ok' => 'http://github.com/Test-More/test-more/issues', 'parent' => undef, 'perlfaq' => 'https://github.com/perl-doc-cats/perlfaq/issues', 'version' => 'https://rt.cpan.org/Public/Dist/Display.html?Name=version', 'version::regex' => 'https://rt.cpan.org/Public/Dist/Display.html?Name=version', ); # Create aliases with trailing zeros for $] use $released{'5.000'} = $released{5}; $version{'5.000'} = $version{5}; _create_aliases(\%delta); _create_aliases(\%released); _create_aliases(\%version); _create_aliases(\%deprecated); sub _create_aliases { my ($hash) = @_; for my $version (keys %$hash) { next unless $version >= 5.006; my $padded = sprintf "%0.6f", $version; # If the version in string form isn't the same as the numeric version, # alias it. if ($padded ne $version && $version == $padded) { $hash->{$padded} = $hash->{$version}; } } } 1; __END__ PK ! ���� 5.34.0/Module/Loaded.pmnu �[��� package Module::Loaded; use strict; use Carp qw[carp]; BEGIN { use base 'Exporter'; use vars qw[@EXPORT $VERSION]; $VERSION = '0.08'; @EXPORT = qw[mark_as_loaded mark_as_unloaded is_loaded]; } =head1 NAME Module::Loaded - mark modules as loaded or unloaded =head1 SYNOPSIS use Module::Loaded; $bool = mark_as_loaded('Foo'); # Foo.pm is now marked as loaded $loc = is_loaded('Foo'); # location of Foo.pm set to the # loaders location eval "require 'Foo'"; # is now a no-op $bool = mark_as_unloaded('Foo'); # Foo.pm no longer marked as loaded eval "require 'Foo'"; # Will try to find Foo.pm in @INC =head1 DESCRIPTION When testing applications, often you find yourself needing to provide functionality in your test environment that would usually be provided by external modules. Rather than munging the C<%INC> by hand to mark these external modules as loaded, so they are not attempted to be loaded by perl, this module offers you a very simple way to mark modules as loaded and/or unloaded. =head1 FUNCTIONS =head2 $bool = mark_as_loaded( PACKAGE ); Marks the package as loaded to perl. C<PACKAGE> can be a bareword or string. If the module is already loaded, C<mark_as_loaded> will carp about this and tell you from where the C<PACKAGE> has been loaded already. =cut sub mark_as_loaded (*) { my $pm = shift; my $file = __PACKAGE__->_pm_to_file( $pm ) or return; my $who = [caller]->[1]; my $where = is_loaded( $pm ); if ( defined $where ) { carp "'$pm' already marked as loaded ('$where')"; } else { $INC{$file} = $who; } return 1; } =head2 $bool = mark_as_unloaded( PACKAGE ); Marks the package as unloaded to perl, which is the exact opposite of C<mark_as_loaded>. C<PACKAGE> can be a bareword or string. If the module is already unloaded, C<mark_as_unloaded> will carp about this and tell you the C<PACKAGE> has been unloaded already. =cut sub mark_as_unloaded (*) { my $pm = shift; my $file = __PACKAGE__->_pm_to_file( $pm ) or return; unless( defined is_loaded( $pm ) ) { carp "'$pm' already marked as unloaded"; } else { delete $INC{ $file }; } return 1; } =head2 $loc = is_loaded( PACKAGE ); C<is_loaded> tells you if C<PACKAGE> has been marked as loaded yet. C<PACKAGE> can be a bareword or string. It returns falls if C<PACKAGE> has not been loaded yet and the location from where it is said to be loaded on success. =cut sub is_loaded (*) { my $pm = shift; my $file = __PACKAGE__->_pm_to_file( $pm ) or return; return $INC{$file} if exists $INC{$file}; return; } sub _pm_to_file { my $pkg = shift; my $pm = shift or return; my $file = join '/', split '::', $pm; $file .= '.pm'; return $file; } =head1 BUG REPORTS Please report bugs or other issues to E<lt>bug-module-loaded@rt.cpan.org<gt>. =head1 AUTHOR This module by Jos Boumans E<lt>kane@cpan.orgE<gt>. =head1 COPYRIGHT This library is free software; you may redistribute and/or modify it under the same terms as Perl itself. =cut # Local variables: # c-indentation-style: bsd # c-basic-offset: 4 # indent-tabs-mode: nil # End: # vim: expandtab shiftwidth=4: 1; PK ! ⒙3� � 5.34.0/Module/CoreList.podnu �[��� =head1 NAME Module::CoreList - what modules shipped with versions of perl =head1 SYNOPSIS use Module::CoreList; print $Module::CoreList::version{5.00503}{CPAN}; # prints 1.48 print Module::CoreList->first_release('File::Spec'); # prints 5.00405 print Module::CoreList->first_release_by_date('File::Spec'); # prints 5.005 print Module::CoreList->first_release('File::Spec', 0.82); # prints 5.006001 if (Module::CoreList::is_core('File::Spec')) { print "File::Spec is a core module\n"; } print join ', ', Module::CoreList->find_modules(qr/Data/); # prints 'Data::Dumper' print join ', ', Module::CoreList->find_modules(qr/test::h.*::.*s/i, 5.008008); # prints 'Test::Harness::Assert, Test::Harness::Straps' print join ", ", @{ $Module::CoreList::families{5.005} }; # prints "5.005, 5.00503, 5.00504" =head1 DESCRIPTION Module::CoreList provides information on which core and dual-life modules shipped with each version of L<perl>. It provides a number of mechanisms for querying this information. There is a utility called L<corelist> provided with this module which is a convenient way of querying from the command-line. There is a functional programming API available for programmers to query information. Programmers may also query the contained hash structures to find relevant information. =head1 FUNCTIONS API These are the functions that are available, they may either be called as functions or class methods: Module::CoreList::first_release('File::Spec'); # as a function Module::CoreList->first_release('File::Spec'); # class method =over =item C<first_release( MODULE )> Behaviour since version 2.11 Requires a MODULE name as an argument, returns the perl version when that module first appeared in core as ordered by perl version number or undef ( in scalar context ) or an empty list ( in list context ) if that module is not in core. =item C<first_release_by_date( MODULE )> Requires a MODULE name as an argument, returns the perl version when that module first appeared in core as ordered by release date or undef ( in scalar context ) or an empty list ( in list context ) if that module is not in core. =item C<find_modules( REGEX, [ LIST OF PERLS ] )> Takes a regex as an argument, returns a list of modules that match the regex given. If only a regex is provided applies to all modules in all perl versions. Optionally you may provide a list of perl versions to limit the regex search. =item C<find_version( PERL_VERSION )> Takes a perl version as an argument. Upon successful completion, returns a reference to a hash. Each element of that hash has a key which is the name of a module (I<e.g.,> 'File::Path') shipped with that version of perl and a value which is the version number (I<e.g.,> '2.09') of that module which shipped with that version of perl . Returns C<undef> otherwise. =item C<is_core( MODULE, [ MODULE_VERSION, [ PERL_VERSION ] ] )> Available in version 2.99 and above. Returns true if MODULE was bundled with the specified version of Perl. You can optionally specify a minimum version of the module, and can also specify a version of Perl. If a version of Perl isn't specified, C<is_core()> will use the numeric version of Perl that is running (ie C<$]>). If you want to specify the version of Perl, but don't care about the version of the module, pass C<undef> for the module version: =item C<is_deprecated( MODULE, PERL_VERSION )> Available in version 2.22 and above. Returns true if MODULE is marked as deprecated in PERL_VERSION. If PERL_VERSION is omitted, it defaults to the current version of Perl. =item C<deprecated_in( MODULE )> Available in version 2.77 and above. Returns the first perl version where the MODULE was marked as deprecated. Returns C<undef> if the MODULE has not been marked as deprecated. =item C<removed_from( MODULE )> Available in version 2.32 and above Takes a module name as an argument, returns the first perl version where that module was removed from core. Returns undef if the given module was never in core or remains in core. =item C<removed_from_by_date( MODULE )> Available in version 2.32 and above Takes a module name as an argument, returns the first perl version by release date where that module was removed from core. Returns undef if the given module was never in core or remains in core. =item C<changes_between( PERL_VERSION, PERL_VERSION )> Available in version 2.66 and above. Given two perl versions, this returns a list of pairs describing the changes in core module content between them. The list is suitable for storing in a hash. The keys are library names and the values are hashrefs. Each hashref has an entry for one or both of C<left> and C<right>, giving the versions of the library in each of the left and right perl distributions. For example, it might return these data (among others) for the difference between 5.008000 and 5.008001: 'Pod::ParseLink' => { left => '1.05', right => '1.06' }, 'Pod::ParseUtils' => { left => '0.22', right => '0.3' }, 'Pod::Perldoc' => { right => '3.10' }, 'Pod::Perldoc::BaseTo' => { right => undef }, This shows us two libraries being updated and two being added, one of which has an undefined version in the right-hand side version. =back =head1 DATA STRUCTURES These are the hash data structures that are available: =over =item C<%Module::CoreList::version> A hash of hashes that is keyed on perl version as indicated in $]. The second level hash is module => version pairs. Note, it is possible for the version of a module to be unspecified, whereby the value is C<undef>, so use C<exists $version{$foo}{$bar}> if that's what you're testing for. Starting with 2.10, the special module name C<Unicode> refers to the version of the Unicode Character Database bundled with Perl. =item C<%Module::CoreList::delta> Available in version 3.00 and above. It is a hash of hashes that is keyed on perl version. Each keyed hash will have the following keys: delta_from - a previous perl version that the changes are based on changed - a hash of module/versions that have changed removed - a hash of modules that have been removed =item C<%Module::CoreList::released> Keyed on perl version this contains ISO formatted versions of the release dates, as gleaned from L<perlhist>. =item C<%Module::CoreList::families> New, in 1.96, a hash that clusters known perl releases by their major versions. =item C<%Module::CoreList::deprecated> A hash of hashes keyed on perl version and on module name. If a module is defined it indicates that that module is deprecated in that perl version and is scheduled for removal from core at some future point. =item C<%Module::CoreList::upstream> A hash that contains information on where patches should be directed for each core module. UPSTREAM indicates where patches should go. C<undef> implies that this hasn't been discussed for the module at hand. C<blead> indicates that the copy of the module in the blead sources is to be considered canonical, C<cpan> means that the module on CPAN is to be patched first. C<first-come> means that blead can be patched freely if it is in sync with the latest release on CPAN. =item C<%Module::CoreList::bug_tracker> A hash that contains information on the appropriate bug tracker for each core module. BUGS is an email or url to post bug reports. For modules with UPSTREAM => 'blead', use L<mailto:perl5-porters@perl.org>. rt.cpan.org appears to automatically provide a URL for CPAN modules; any value given here overrides the default: L<http://rt.cpan.org/Public/Dist/Display.html?Name=$ModuleName> =back =head1 CAVEATS Module::CoreList currently covers the 5.000, 5.001, 5.002, 5.003_07, 5.004, 5.004_05, 5.005, 5.005_03, 5.005_04 and 5.7.3 releases of perl. All stable releases of perl since 5.6.0 are covered. All development releases of perl since 5.9.0 are covered. =head1 HISTORY Moved to Changes file. =head1 AUTHOR Richard Clamp E<lt>richardc@unixbeard.netE<gt> Currently maintained by the perl 5 porters E<lt>perl5-porters@perl.orgE<gt>. =head1 LICENSE Copyright (C) 2002-2009 Richard Clamp. All Rights Reserved. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO L<corelist>, L<Module::Info>, L<perl>, L<http://perlpunks.de/corelist> =cut PK ! ������ �� 5.34.0/Module/Metadata.pmnu �[��� # -*- mode: cperl; tab-width: 8; indent-tabs-mode: nil; basic-offset: 2 -*- # vim:ts=8:sw=2:et:sta:sts=2:tw=78 package Module::Metadata; # git description: v1.000036-4-g435a294 # ABSTRACT: Gather package and POD information from perl module files # Adapted from Perl-licensed code originally distributed with # Module-Build by Ken Williams # This module provides routines to gather information about # perl modules (assuming this may be expanded in the distant # parrot future to look at other types of modules). sub __clean_eval { eval $_[0] } use strict; use warnings; our $VERSION = '1.000037'; use Carp qw/croak/; use File::Spec; BEGIN { # Try really hard to not depend ony any DynaLoaded module, such as IO::File or Fcntl eval { require Fcntl; Fcntl->import('SEEK_SET'); 1; } or *SEEK_SET = sub { 0 } } use version 0.87; BEGIN { if ($INC{'Log/Contextual.pm'}) { require "Log/Contextual/WarnLogger.pm"; # Hide from AutoPrereqs Log::Contextual->import('log_info', '-default_logger' => Log::Contextual::WarnLogger->new({ env_prefix => 'MODULE_METADATA', }), ); } else { *log_info = sub (&) { warn $_[0]->() }; } } use File::Find qw(find); my $V_NUM_REGEXP = qr{v?[0-9._]+}; # crudely, a v-string or decimal my $PKG_FIRST_WORD_REGEXP = qr{ # the FIRST word in a package name [a-zA-Z_] # the first word CANNOT start with a digit (?: [\w']? # can contain letters, digits, _, or ticks \w # But, NO multi-ticks or trailing ticks )* }x; my $PKG_ADDL_WORD_REGEXP = qr{ # the 2nd+ word in a package name \w # the 2nd+ word CAN start with digits (?: [\w']? # and can contain letters or ticks \w # But, NO multi-ticks or trailing ticks )* }x; my $PKG_NAME_REGEXP = qr{ # match a package name (?: :: )? # a pkg name can start with arisdottle $PKG_FIRST_WORD_REGEXP # a package word (?: (?: :: )+ ### arisdottle (allow one or many times) $PKG_ADDL_WORD_REGEXP ### a package word )* # ^ zero, one or many times (?: :: # allow trailing arisdottle )? }x; my $PKG_REGEXP = qr{ # match a package declaration ^[\s\{;]* # intro chars on a line package # the word 'package' \s+ # whitespace ($PKG_NAME_REGEXP) # a package name \s* # optional whitespace ($V_NUM_REGEXP)? # optional version number \s* # optional whitesapce [;\{] # semicolon line terminator or block start (since 5.16) }x; my $VARNAME_REGEXP = qr{ # match fully-qualified VERSION name ([\$*]) # sigil - $ or * ( ( # optional leading package name (?:::|\')? # possibly starting like just :: (a la $::VERSION) (?:\w+(?:::|\'))* # Foo::Bar:: ... )? VERSION )\b }x; my $VERS_REGEXP = qr{ # match a VERSION definition (?: \(\s*$VARNAME_REGEXP\s*\) # with parens | $VARNAME_REGEXP # without parens ) \s* =[^=~>] # = but not ==, nor =~, nor => }x; sub new_from_file { my $class = shift; my $filename = File::Spec->rel2abs( shift ); return undef unless defined( $filename ) && -f $filename; return $class->_init(undef, $filename, @_); } sub new_from_handle { my $class = shift; my $handle = shift; my $filename = shift; return undef unless defined($handle) && defined($filename); $filename = File::Spec->rel2abs( $filename ); return $class->_init(undef, $filename, @_, handle => $handle); } sub new_from_module { my $class = shift; my $module = shift; my %props = @_; $props{inc} ||= \@INC; my $filename = $class->find_module_by_name( $module, $props{inc} ); return undef unless defined( $filename ) && -f $filename; return $class->_init($module, $filename, %props); } { my $compare_versions = sub { my ($v1, $op, $v2) = @_; $v1 = version->new($v1) unless UNIVERSAL::isa($v1,'version'); my $eval_str = "\$v1 $op \$v2"; my $result = eval $eval_str; log_info { "error comparing versions: '$eval_str' $@" } if $@; return $result; }; my $normalize_version = sub { my ($version) = @_; if ( $version =~ /[=<>!,]/ ) { # logic, not just version # take as is without modification } elsif ( ref $version eq 'version' ) { # version objects $version = $version->is_qv ? $version->normal : $version->stringify; } elsif ( $version =~ /^[^v][^.]*\.[^.]+\./ ) { # no leading v, multiple dots # normalize string tuples without "v": "1.2.3" -> "v1.2.3" $version = "v$version"; } else { # leave alone } return $version; }; # separate out some of the conflict resolution logic my $resolve_module_versions = sub { my $packages = shift; my( $file, $version ); my $err = ''; foreach my $p ( @$packages ) { if ( defined( $p->{version} ) ) { if ( defined( $version ) ) { if ( $compare_versions->( $version, '!=', $p->{version} ) ) { $err .= " $p->{file} ($p->{version})\n"; } else { # same version declared multiple times, ignore } } else { $file = $p->{file}; $version = $p->{version}; } } $file ||= $p->{file} if defined( $p->{file} ); } if ( $err ) { $err = " $file ($version)\n" . $err; } my %result = ( file => $file, version => $version, err => $err ); return \%result; }; sub provides { my $class = shift; croak "provides() requires key/value pairs \n" if @_ % 2; my %args = @_; croak "provides() takes only one of 'dir' or 'files'\n" if $args{dir} && $args{files}; croak "provides() requires a 'version' argument" unless defined $args{version}; croak "provides() does not support version '$args{version}' metadata" unless grep $args{version} eq $_, qw/1.4 2/; $args{prefix} = 'lib' unless defined $args{prefix}; my $p; if ( $args{dir} ) { $p = $class->package_versions_from_directory($args{dir}); } else { croak "provides() requires 'files' to be an array reference\n" unless ref $args{files} eq 'ARRAY'; $p = $class->package_versions_from_directory($args{files}); } # Now, fix up files with prefix if ( length $args{prefix} ) { # check in case disabled with q{} $args{prefix} =~ s{/$}{}; for my $v ( values %$p ) { $v->{file} = "$args{prefix}/$v->{file}"; } } return $p } sub package_versions_from_directory { my ( $class, $dir, $files ) = @_; my @files; if ( $files ) { @files = @$files; } else { find( { wanted => sub { push @files, $_ if -f $_ && /\.pm$/; }, no_chdir => 1, }, $dir ); } # First, we enumerate all packages & versions, # separating into primary & alternative candidates my( %prime, %alt ); foreach my $file (@files) { my $mapped_filename = File::Spec->abs2rel( $file, $dir ); my @path = File::Spec->splitdir( $mapped_filename ); (my $prime_package = join( '::', @path )) =~ s/\.pm$//; my $pm_info = $class->new_from_file( $file ); foreach my $package ( $pm_info->packages_inside ) { next if $package eq 'main'; # main can appear numerous times, ignore next if $package eq 'DB'; # special debugging package, ignore next if grep /^_/, split( /::/, $package ); # private package, ignore my $version = $pm_info->version( $package ); $prime_package = $package if lc($prime_package) eq lc($package); if ( $package eq $prime_package ) { if ( exists( $prime{$package} ) ) { croak "Unexpected conflict in '$package'; multiple versions found.\n"; } else { $mapped_filename = "$package.pm" if lc("$package.pm") eq lc($mapped_filename); $prime{$package}{file} = $mapped_filename; $prime{$package}{version} = $version if defined( $version ); } } else { push( @{$alt{$package}}, { file => $mapped_filename, version => $version, } ); } } } # Then we iterate over all the packages found above, identifying conflicts # and selecting the "best" candidate for recording the file & version # for each package. foreach my $package ( keys( %alt ) ) { my $result = $resolve_module_versions->( $alt{$package} ); if ( exists( $prime{$package} ) ) { # primary package selected if ( $result->{err} ) { # Use the selected primary package, but there are conflicting # errors among multiple alternative packages that need to be # reported log_info { "Found conflicting versions for package '$package'\n" . " $prime{$package}{file} ($prime{$package}{version})\n" . $result->{err} }; } elsif ( defined( $result->{version} ) ) { # There is a primary package selected, and exactly one # alternative package if ( exists( $prime{$package}{version} ) && defined( $prime{$package}{version} ) ) { # Unless the version of the primary package agrees with the # version of the alternative package, report a conflict if ( $compare_versions->( $prime{$package}{version}, '!=', $result->{version} ) ) { log_info { "Found conflicting versions for package '$package'\n" . " $prime{$package}{file} ($prime{$package}{version})\n" . " $result->{file} ($result->{version})\n" }; } } else { # The prime package selected has no version so, we choose to # use any alternative package that does have a version $prime{$package}{file} = $result->{file}; $prime{$package}{version} = $result->{version}; } } else { # no alt package found with a version, but we have a prime # package so we use it whether it has a version or not } } else { # No primary package was selected, use the best alternative if ( $result->{err} ) { log_info { "Found conflicting versions for package '$package'\n" . $result->{err} }; } # Despite possible conflicting versions, we choose to record # something rather than nothing $prime{$package}{file} = $result->{file}; $prime{$package}{version} = $result->{version} if defined( $result->{version} ); } } # Normalize versions. Can't use exists() here because of bug in YAML::Node. # XXX "bug in YAML::Node" comment seems irrelevant -- dagolden, 2009-05-18 for (grep defined $_->{version}, values %prime) { $_->{version} = $normalize_version->( $_->{version} ); } return \%prime; } } sub _init { my $class = shift; my $module = shift; my $filename = shift; my %props = @_; my $handle = delete $props{handle}; my( %valid_props, @valid_props ); @valid_props = qw( collect_pod inc decode_pod ); @valid_props{@valid_props} = delete( @props{@valid_props} ); warn "Unknown properties: @{[keys %props]}\n" if scalar( %props ); my %data = ( module => $module, filename => $filename, version => undef, packages => [], versions => {}, pod => {}, pod_headings => [], collect_pod => 0, %valid_props, ); my $self = bless(\%data, $class); if ( not $handle ) { my $filename = $self->{filename}; open $handle, '<', $filename or croak( "Can't open '$filename': $!" ); $self->_handle_bom($handle, $filename); } $self->_parse_fh($handle); @{$self->{packages}} = __uniq(@{$self->{packages}}); unless($self->{module} and length($self->{module})) { # CAVEAT (possible TODO): .pmc files not treated the same as .pm if ($self->{filename} =~ /\.pm$/) { my ($v, $d, $f) = File::Spec->splitpath($self->{filename}); $f =~ s/\..+$//; my @candidates = grep /(^|::)$f$/, @{$self->{packages}}; $self->{module} = shift(@candidates); # this may be undef } else { # this seems like an atrocious heuristic, albeit marginally better than # what was here before. It should be rewritten entirely to be more like # "if it's not a .pm file, it's not require()able as a name, therefore # name() should be undef." if ((grep /main/, @{$self->{packages}}) or (grep /main/, keys %{$self->{versions}})) { $self->{module} = 'main'; } else { # TODO: this should maybe default to undef instead $self->{module} = $self->{packages}[0] || ''; } } } $self->{version} = $self->{versions}{$self->{module}} if defined( $self->{module} ); return $self; } # class method sub _do_find_module { my $class = shift; my $module = shift || croak 'find_module_by_name() requires a package name'; my $dirs = shift || \@INC; my $file = File::Spec->catfile(split( /::/, $module)); foreach my $dir ( @$dirs ) { my $testfile = File::Spec->catfile($dir, $file); return [ File::Spec->rel2abs( $testfile ), $dir ] if -e $testfile and !-d _; # For stuff like ExtUtils::xsubpp # CAVEAT (possible TODO): .pmc files are not discoverable here $testfile .= '.pm'; return [ File::Spec->rel2abs( $testfile ), $dir ] if -e $testfile; } return; } # class method sub find_module_by_name { my $found = shift()->_do_find_module(@_) or return; return $found->[0]; } # class method sub find_module_dir_by_name { my $found = shift()->_do_find_module(@_) or return; return $found->[1]; } # given a line of perl code, attempt to parse it if it looks like a # $VERSION assignment, returning sigil, full name, & package name sub _parse_version_expression { my $self = shift; my $line = shift; my( $sigil, $variable_name, $package); if ( $line =~ /$VERS_REGEXP/o ) { ( $sigil, $variable_name, $package) = $2 ? ( $1, $2, $3 ) : ( $4, $5, $6 ); if ( $package ) { $package = ($package eq '::') ? 'main' : $package; $package =~ s/::$//; } } return ( $sigil, $variable_name, $package ); } # Look for a UTF-8/UTF-16BE/UTF-16LE BOM at the beginning of the stream. # If there's one, then skip it and set the :encoding layer appropriately. sub _handle_bom { my ($self, $fh, $filename) = @_; my $pos = tell $fh; return unless defined $pos; my $buf = ' ' x 2; my $count = read $fh, $buf, length $buf; return unless defined $count and $count >= 2; my $encoding; if ( $buf eq "\x{FE}\x{FF}" ) { $encoding = 'UTF-16BE'; } elsif ( $buf eq "\x{FF}\x{FE}" ) { $encoding = 'UTF-16LE'; } elsif ( $buf eq "\x{EF}\x{BB}" ) { $buf = ' '; $count = read $fh, $buf, length $buf; if ( defined $count and $count >= 1 and $buf eq "\x{BF}" ) { $encoding = 'UTF-8'; } } if ( defined $encoding ) { if ( "$]" >= 5.008 ) { binmode( $fh, ":encoding($encoding)" ); } } else { seek $fh, $pos, SEEK_SET or croak( sprintf "Can't reset position to the top of '$filename'" ); } return $encoding; } sub _parse_fh { my ($self, $fh) = @_; my( $in_pod, $seen_end, $need_vers ) = ( 0, 0, 0 ); my( @packages, %vers, %pod, @pod ); my $package = 'main'; my $pod_sect = ''; my $pod_data = ''; my $in_end = 0; my $encoding = ''; while (defined( my $line = <$fh> )) { my $line_num = $.; chomp( $line ); # From toke.c : any line that begins by "=X", where X is an alphabetic # character, introduces a POD segment. my $is_cut; if ( $line =~ /^=([a-zA-Z].*)/ ) { my $cmd = $1; # Then it goes back to Perl code for "=cutX" where X is a non-alphabetic # character (which includes the newline, but here we chomped it away). $is_cut = $cmd =~ /^cut(?:[^a-zA-Z]|$)/; $in_pod = !$is_cut; } if ( $in_pod ) { if ( $line =~ /^=head[1-4]\s+(.+)\s*$/ ) { push( @pod, $1 ); if ( $self->{collect_pod} && length( $pod_data ) ) { $pod{$pod_sect} = $pod_data; $pod_data = ''; } $pod_sect = $1; } elsif ( $self->{collect_pod} ) { if ( $self->{decode_pod} && $line =~ /^=encoding ([\w-]+)/ ) { $encoding = $1; } $pod_data .= "$line\n"; } next; } elsif ( $is_cut ) { if ( $self->{collect_pod} && length( $pod_data ) ) { $pod{$pod_sect} = $pod_data; $pod_data = ''; } $pod_sect = ''; next; } # Skip after __END__ next if $in_end; # Skip comments in code next if $line =~ /^\s*#/; # Would be nice if we could also check $in_string or something too if ($line eq '__END__') { $in_end++; next; } last if $line eq '__DATA__'; # parse $line to see if it's a $VERSION declaration my( $version_sigil, $version_fullname, $version_package ) = index($line, 'VERSION') >= 1 ? $self->_parse_version_expression( $line ) : (); if ( $line =~ /$PKG_REGEXP/o ) { $package = $1; my $version = $2; push( @packages, $package ) unless grep( $package eq $_, @packages ); $need_vers = defined $version ? 0 : 1; if ( not exists $vers{$package} and defined $version ){ # Upgrade to a version object. my $dwim_version = eval { _dwim_version($version) }; croak "Version '$version' from $self->{filename} does not appear to be valid:\n$line\n\nThe fatal error was: $@\n" unless defined $dwim_version; # "0" is OK! $vers{$package} = $dwim_version; } } # VERSION defined with full package spec, i.e. $Module::VERSION elsif ( $version_fullname && $version_package ) { # we do NOT save this package in found @packages $need_vers = 0 if $version_package eq $package; unless ( defined $vers{$version_package} && length $vers{$version_package} ) { $vers{$version_package} = $self->_evaluate_version_line( $version_sigil, $version_fullname, $line ); } } # first non-comment line in undeclared package main is VERSION elsif ( $package eq 'main' && $version_fullname && !exists($vers{main}) ) { $need_vers = 0; my $v = $self->_evaluate_version_line( $version_sigil, $version_fullname, $line ); $vers{$package} = $v; push( @packages, 'main' ); } # first non-comment line in undeclared package defines package main elsif ( $package eq 'main' && !exists($vers{main}) && $line =~ /\w/ ) { $need_vers = 1; $vers{main} = ''; push( @packages, 'main' ); } # only keep if this is the first $VERSION seen elsif ( $version_fullname && $need_vers ) { $need_vers = 0; my $v = $self->_evaluate_version_line( $version_sigil, $version_fullname, $line ); unless ( defined $vers{$package} && length $vers{$package} ) { $vers{$package} = $v; } } } # end loop over each line if ( $self->{collect_pod} && length($pod_data) ) { $pod{$pod_sect} = $pod_data; } if ( $self->{decode_pod} && $encoding ) { require Encode; $_ = Encode::decode( $encoding, $_ ) for values %pod; } $self->{versions} = \%vers; $self->{packages} = \@packages; $self->{pod} = \%pod; $self->{pod_headings} = \@pod; } sub __uniq (@) { my (%seen, $key); grep !$seen{ $key = $_ }++, @_; } { my $pn = 0; sub _evaluate_version_line { my $self = shift; my( $sigil, $variable_name, $line ) = @_; # We compile into a local sub because 'use version' would cause # compiletime/runtime issues with local() $pn++; # everybody gets their own package my $eval = qq{ my \$dummy = q# Hide from _packages_inside() #; package Module::Metadata::_version::p${pn}; use version; sub { local $sigil$variable_name; $line; return \$$variable_name if defined \$$variable_name; return \$Module::Metadata::_version::p${pn}::$variable_name; }; }; $eval = $1 if $eval =~ m{^(.+)}s; local $^W; # Try to get the $VERSION my $vsub = __clean_eval($eval); # some modules say $VERSION <equal sign> $Foo::Bar::VERSION, but Foo::Bar isn't # installed, so we need to hunt in ./lib for it if ( $@ =~ /Can't locate/ && -d 'lib' ) { local @INC = ('lib',@INC); $vsub = __clean_eval($eval); } warn "Error evaling version line '$eval' in $self->{filename}: $@\n" if $@; (ref($vsub) eq 'CODE') or croak "failed to build version sub for $self->{filename}"; my $result = eval { $vsub->() }; # FIXME: $eval is not the right thing to print here croak "Could not get version from $self->{filename} by executing:\n$eval\n\nThe fatal error was: $@\n" if $@; # Upgrade it into a version object my $version = eval { _dwim_version($result) }; # FIXME: $eval is not the right thing to print here croak "Version '$result' from $self->{filename} does not appear to be valid:\n$eval\n\nThe fatal error was: $@\n" unless defined $version; # "0" is OK! return $version; } } # Try to DWIM when things fail the lax version test in obvious ways { my @version_prep = ( # Best case, it just works sub { return shift }, # If we still don't have a version, try stripping any # trailing junk that is prohibited by lax rules sub { my $v = shift; $v =~ s{([0-9])[a-z-].*$}{$1}i; # 1.23-alpha or 1.23b return $v; }, # Activestate apparently creates custom versions like '1.23_45_01', which # cause version.pm to think it's an invalid alpha. So check for that # and strip them sub { my $v = shift; my $num_dots = () = $v =~ m{(\.)}g; my $num_unders = () = $v =~ m{(_)}g; my $leading_v = substr($v,0,1) eq 'v'; if ( ! $leading_v && $num_dots < 2 && $num_unders > 1 ) { $v =~ s{_}{}g; $num_unders = () = $v =~ m{(_)}g; } return $v; }, # Worst case, try numifying it like we would have before version objects sub { my $v = shift; no warnings 'numeric'; return 0 + $v; }, ); sub _dwim_version { my ($result) = shift; return $result if ref($result) eq 'version'; my ($version, $error); for my $f (@version_prep) { $result = $f->($result); $version = eval { version->new($result) }; $error ||= $@ if $@; # capture first failure last if defined $version; } croak $error unless defined $version; return $version; } } ############################################################ # accessors sub name { $_[0]->{module} } sub filename { $_[0]->{filename} } sub packages_inside { @{$_[0]->{packages}} } sub pod_inside { @{$_[0]->{pod_headings}} } sub contains_pod { 0+@{$_[0]->{pod_headings}} } sub version { my $self = shift; my $mod = shift || $self->{module}; my $vers; if ( defined( $mod ) && length( $mod ) && exists( $self->{versions}{$mod} ) ) { return $self->{versions}{$mod}; } else { return undef; } } sub pod { my $self = shift; my $sect = shift; if ( defined( $sect ) && length( $sect ) && exists( $self->{pod}{$sect} ) ) { return $self->{pod}{$sect}; } else { return undef; } } sub is_indexable { my ($self, $package) = @_; my @indexable_packages = grep $_ ne 'main', $self->packages_inside; # check for specific package, if provided return !! grep $_ eq $package, @indexable_packages if $package; # otherwise, check for any indexable packages at all return !! @indexable_packages; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Module::Metadata - Gather package and POD information from perl module files =head1 VERSION version 1.000037 =head1 SYNOPSIS use Module::Metadata; # information about a .pm file my $info = Module::Metadata->new_from_file( $file ); my $version = $info->version; # CPAN META 'provides' field for .pm files in a directory my $provides = Module::Metadata->provides( dir => 'lib', version => 2 ); =head1 DESCRIPTION This module provides a standard way to gather metadata about a .pm file through (mostly) static analysis and (some) code execution. When determining the version of a module, the C<$VERSION> assignment is C<eval>ed, as is traditional in the CPAN toolchain. =head1 CLASS METHODS =head2 C<< new_from_file($filename, collect_pod => 1, decode_pod => 1) >> Constructs a C<Module::Metadata> object given the path to a file. Returns undef if the filename does not exist. C<collect_pod> is a optional boolean argument that determines whether POD data is collected and stored for reference. POD data is not collected by default. POD headings are always collected. If the file begins by an UTF-8, UTF-16BE or UTF-16LE byte-order mark, then it is skipped before processing, and the content of the file is also decoded appropriately starting from perl 5.8. Alternatively, if C<decode_pod> is set, it will decode the collected pod sections according to the C<=encoding> declaration. =head2 C<< new_from_handle($handle, $filename, collect_pod => 1, decode_pod => 1) >> This works just like C<new_from_file>, except that a handle can be provided as the first argument. Note that there is no validation to confirm that the handle is a handle or something that can act like one. Passing something that isn't a handle will cause a exception when trying to read from it. The C<filename> argument is mandatory or undef will be returned. You are responsible for setting the decoding layers on C<$handle> if required. =head2 C<< new_from_module($module, collect_pod => 1, inc => \@dirs, decode_pod => 1) >> Constructs a C<Module::Metadata> object given a module or package name. Returns undef if the module cannot be found. In addition to accepting the C<collect_pod> and C<decode_pod> arguments as described above, this method accepts a C<inc> argument which is a reference to an array of directories to search for the module. If none are given, the default is @INC. If the file that contains the module begins by an UTF-8, UTF-16BE or UTF-16LE byte-order mark, then it is skipped before processing, and the content of the file is also decoded appropriately starting from perl 5.8. =head2 C<< find_module_by_name($module, \@dirs) >> Returns the path to a module given the module or package name. A list of directories can be passed in as an optional parameter, otherwise @INC is searched. Can be called as either an object or a class method. =head2 C<< find_module_dir_by_name($module, \@dirs) >> Returns the entry in C<@dirs> (or C<@INC> by default) that contains the module C<$module>. A list of directories can be passed in as an optional parameter, otherwise @INC is searched. Can be called as either an object or a class method. =head2 C<< provides( %options ) >> This is a convenience wrapper around C<package_versions_from_directory> to generate a CPAN META C<provides> data structure. It takes key/value pairs. Valid option keys include: =over =item version B<(required)> Specifies which version of the L<CPAN::Meta::Spec> should be used as the format of the C<provides> output. Currently only '1.4' and '2' are supported (and their format is identical). This may change in the future as the definition of C<provides> changes. The C<version> option is required. If it is omitted or if an unsupported version is given, then C<provides> will throw an error. =item dir Directory to search recursively for F<.pm> files. May not be specified with C<files>. =item files Array reference of files to examine. May not be specified with C<dir>. =item prefix String to prepend to the C<file> field of the resulting output. This defaults to F<lib>, which is the common case for most CPAN distributions with their F<.pm> files in F<lib>. This option ensures the META information has the correct relative path even when the C<dir> or C<files> arguments are absolute or have relative paths from a location other than the distribution root. =back For example, given C<dir> of 'lib' and C<prefix> of 'lib', the return value is a hashref of the form: { 'Package::Name' => { version => '0.123', file => 'lib/Package/Name.pm' }, 'OtherPackage::Name' => ... } =head2 C<< package_versions_from_directory($dir, \@files?) >> Scans C<$dir> for .pm files (unless C<@files> is given, in which case looks for those files in C<$dir> - and reads each file for packages and versions, returning a hashref of the form: { 'Package::Name' => { version => '0.123', file => 'Package/Name.pm' }, 'OtherPackage::Name' => ... } The C<DB> and C<main> packages are always omitted, as are any "private" packages that have leading underscores in the namespace (e.g. C<Foo::_private>) Note that the file path is relative to C<$dir> if that is specified. This B<must not> be used directly for CPAN META C<provides>. See the C<provides> method instead. =head2 C<< log_info (internal) >> Used internally to perform logging; imported from Log::Contextual if Log::Contextual has already been loaded, otherwise simply calls warn. =head1 OBJECT METHODS =head2 C<< name() >> Returns the name of the package represented by this module. If there is more than one package, it makes a best guess based on the filename. If it's a script (i.e. not a *.pm) the package name is 'main'. =head2 C<< version($package) >> Returns the version as defined by the $VERSION variable for the package as returned by the C<name> method if no arguments are given. If given the name of a package it will attempt to return the version of that package if it is specified in the file. =head2 C<< filename() >> Returns the absolute path to the file. Note that this file may not actually exist on disk yet, e.g. if the module was read from an in-memory filehandle. =head2 C<< packages_inside() >> Returns a list of packages. Note: this is a raw list of packages discovered (or assumed, in the case of C<main>). It is not filtered for C<DB>, C<main> or private packages the way the C<provides> method does. Invalid package names are not returned, for example "Foo:Bar". Strange but valid package names are returned, for example "Foo::Bar::", and are left up to the caller on how to handle. =head2 C<< pod_inside() >> Returns a list of POD sections. =head2 C<< contains_pod() >> Returns true if there is any POD in the file. =head2 C<< pod($section) >> Returns the POD data in the given section. =head2 C<< is_indexable($package) >> or C<< is_indexable() >> Available since version 1.000020. Returns a boolean indicating whether the package (if provided) or any package (otherwise) is eligible for indexing by PAUSE, the Perl Authors Upload Server. Note This only checks for valid C<package> declarations, and does not take any ownership information into account. =head1 SUPPORT Bugs may be submitted through L<the RT bug tracker|https://rt.cpan.org/Public/Dist/Display.html?Name=Module-Metadata> (or L<bug-Module-Metadata@rt.cpan.org|mailto:bug-Module-Metadata@rt.cpan.org>). There is also a mailing list available for users of this distribution, at L<http://lists.perl.org/list/cpan-workers.html>. There is also an irc channel available for users of this distribution, at L<C<#toolchain> on C<irc.perl.org>|irc://irc.perl.org/#toolchain>. =head1 AUTHOR Original code from Module::Build::ModuleInfo by Ken Williams <kwilliams@cpan.org>, Randy W. Sims <RandyS@ThePierianSpring.org> Released as Module::Metadata by Matt S Trout (mst) <mst@shadowcat.co.uk> with assistance from David Golden (xdg) <dagolden@cpan.org>. =head1 CONTRIBUTORS =for stopwords Karen Etheridge David Golden Vincent Pit Matt S Trout Chris Nehren Tomas Doran Olivier Mengué Graham Knop tokuhirom Tatsuhiko Miyagawa Christian Walde Leon Timmermans Peter Rabbitson Steve Hay Jerry D. Hedden Craig A. Berry Mitchell Steinbrunner Edward Zborowski Gareth Harper James Raspass 'BinGOs' Williams Josh Jore Kent Fredric =over 4 =item * Karen Etheridge <ether@cpan.org> =item * David Golden <dagolden@cpan.org> =item * Vincent Pit <perl@profvince.com> =item * Matt S Trout <mst@shadowcat.co.uk> =item * Chris Nehren <apeiron@cpan.org> =item * Tomas Doran <bobtfish@bobtfish.net> =item * Olivier Mengué <dolmen@cpan.org> =item * Graham Knop <haarg@haarg.org> =item * tokuhirom <tokuhirom@gmail.com> =item * Tatsuhiko Miyagawa <miyagawa@bulknews.net> =item * Christian Walde <walde.christian@googlemail.com> =item * Leon Timmermans <fawaka@gmail.com> =item * Peter Rabbitson <ribasushi@cpan.org> =item * Steve Hay <steve.m.hay@googlemail.com> =item * Jerry D. Hedden <jdhedden@cpan.org> =item * Craig A. Berry <cberry@cpan.org> =item * Craig A. Berry <craigberry@mac.com> =item * David Mitchell <davem@iabyn.com> =item * David Steinbrunner <dsteinbrunner@pobox.com> =item * Edward Zborowski <ed@rubensteintech.com> =item * Gareth Harper <gareth@broadbean.com> =item * James Raspass <jraspass@gmail.com> =item * Chris 'BinGOs' Williams <chris@bingosnet.co.uk> =item * Josh Jore <jjore@cpan.org> =item * Kent Fredric <kentnl@cpan.org> =back =head1 COPYRIGHT & LICENSE Original code Copyright (c) 2001-2011 Ken Williams. Additional code Copyright (c) 2010-2011 Matt Trout and David Golden. All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut PK ! =n�_� _� 5.34.0/Module/CoreList/Utils.pmnu �[��� package Module::CoreList::Utils; use strict; use warnings; use Module::CoreList; our $VERSION = '5.20210520'; our %utilities; sub utilities { my $perl = shift; $perl = shift if eval { $perl->isa(__PACKAGE__) }; return unless $perl or exists $utilities{$perl}; return sort keys %{ $utilities{$perl} }; } sub _released_order { # Sort helper, to make '?' sort after everything else (substr($Module::CoreList::released{$a}, 0, 1) eq "?") ? ((substr($Module::CoreList::released{$b}, 0, 1) eq "?") ? 0 : 1) : ((substr($Module::CoreList::released{$b}, 0, 1) eq "?") ? -1 : $Module::CoreList::released{$a} cmp $Module::CoreList::released{$b} ) } sub first_release_raw { my $util = shift; $util = shift if eval { $util->isa(__PACKAGE__) }; #and scalar @_ and $_[0] =~ m#\A[a-zA-Z_][0-9a-zA-Z_]*(?:(::|')[0-9a-zA-Z_]+)*\z#; my $version = shift; my @perls = $version ? grep { exists $utilities{$_}{ $util } && $utilities{$_}{ $util } ge $version } keys %utilities : grep { exists $utilities{$_}{ $util } } keys %utilities; return grep { exists $Module::CoreList::released{$_} } @perls; } sub first_release_by_date { my @perls = &first_release_raw; return unless @perls; return (sort _released_order @perls)[0]; } sub first_release { my @perls = &first_release_raw; return unless @perls; return (sort { $a cmp $b } @perls)[0]; } sub removed_from { my @perls = &removed_raw; return shift @perls; } sub removed_from_by_date { my @perls = sort _released_order &removed_raw; return shift @perls; } sub removed_raw { my $util = shift; $util = shift if eval { $util->isa(__PACKAGE__) }; return unless my @perls = sort { $a cmp $b } first_release_raw($util); @perls = grep { exists $Module::CoreList::released{$_} } @perls; my $last = pop @perls; my @removed = grep { $_ > $last } sort { $a cmp $b } keys %utilities; return @removed; } my %delta = ( 5 => { changed => { 'a2p' => '1', 'c2ph' => '1', 'cppstdin' => '1', 'find2perl' => '1', 'pstruct' => '1', 's2p' => '1', }, removed => { } }, 5.001 => { delta_from => 5, changed => { 'h2xs' => '1', }, removed => { } }, 5.002 => { delta_from => 5.001, changed => { 'h2ph' => '1', 'perlbug' => '1', 'perldoc' => '1', 'pod2html' => '1', 'pod2latex' => '1', 'pod2man' => '1', 'pod2text' => '1', }, removed => { } }, 5.00307 => { delta_from => 5.002, changed => { 'pl2pm' => '1', }, removed => { 'cppstdin' => 1, 'pstruct' => 1, } }, 5.004 => { delta_from => 5.00307, changed => { 'splain' => '1', }, removed => { } }, 5.005 => { delta_from => 5.00405, changed => { 'perlcc' => '1', }, removed => { } }, 5.00503 => { delta_from => 5.005, changed => { }, removed => { } }, 5.00405 => { delta_from => 5.004, changed => { }, removed => { } }, 5.006 => { delta_from => 5.00504, changed => { 'dprofpp' => '1', 'pod2usage' => '1', 'podchecker' => '1', 'podselect' => '1', 'pstruct' => '1', }, removed => { } }, 5.006001 => { delta_from => 5.006, changed => { }, removed => { } }, 5.007003 => { delta_from => 5.006002, changed => { 'libnetcfg' => '1', 'perlivp' => '1', 'psed' => '1', 'xsubpp' => '1', }, removed => { } }, 5.008 => { delta_from => 5.007003, changed => { 'enc2xs' => '1', 'piconv' => '1', }, removed => { } }, 5.008001 => { delta_from => 5.008, changed => { 'cpan' => '1', }, removed => { } }, 5.009 => { delta_from => 5.008009, changed => { }, removed => { 'corelist' => 1, 'instmodsh' => 1, 'prove' => 1, } }, 5.008002 => { delta_from => 5.008001, changed => { }, removed => { } }, 5.006002 => { delta_from => 5.006001, changed => { }, removed => { } }, 5.008003 => { delta_from => 5.008002, changed => { 'instmodsh' => '1', 'prove' => '1', }, removed => { } }, 5.00504 => { delta_from => 5.00503, changed => { }, removed => { } }, 5.009001 => { delta_from => 5.009, changed => { 'instmodsh' => '1', 'prove' => '1', }, removed => { } }, 5.008004 => { delta_from => 5.008003, changed => { }, removed => { } }, 5.008005 => { delta_from => 5.008004, changed => { }, removed => { } }, 5.008006 => { delta_from => 5.008005, changed => { }, removed => { } }, 5.009002 => { delta_from => 5.009001, changed => { 'corelist' => '1', }, removed => { } }, 5.008007 => { delta_from => 5.008006, changed => { }, removed => { } }, 5.009003 => { delta_from => 5.009002, changed => { 'ptar' => '1', 'ptardiff' => '1', 'shasum' => '1', }, removed => { } }, 5.008008 => { delta_from => 5.008007, changed => { }, removed => { } }, 5.009004 => { delta_from => 5.009003, changed => { 'config_data' => '1', }, removed => { } }, 5.009005 => { delta_from => 5.009004, changed => { 'cpan2dist' => '1', 'cpanp' => '1', 'cpanp-run-perl' => '1', }, removed => { 'perlcc' => 1, } }, 5.010000 => { delta_from => 5.009005, changed => { }, removed => { } }, 5.008009 => { delta_from => 5.008008, changed => { 'corelist' => '1', }, removed => { } }, 5.010001 => { delta_from => 5.010000, changed => { }, removed => { } }, 5.011 => { delta_from => 5.010001, changed => { }, removed => { } }, 5.011001 => { delta_from => 5.011, changed => { }, removed => { } }, 5.011002 => { delta_from => 5.011001, changed => { 'perlthanks' => '1', }, removed => { } }, 5.011003 => { delta_from => 5.011002, changed => { }, removed => { } }, 5.011004 => { delta_from => 5.011003, changed => { }, removed => { } }, 5.011005 => { delta_from => 5.011004, changed => { }, removed => { } }, 5.012 => { delta_from => 5.011005, changed => { }, removed => { } }, 5.013 => { delta_from => 5.012005, changed => { }, removed => { } }, 5.012001 => { delta_from => 5.012, changed => { }, removed => { } }, 5.013001 => { delta_from => 5.013, changed => { }, removed => { } }, 5.013002 => { delta_from => 5.013001, changed => { }, removed => { } }, 5.013003 => { delta_from => 5.013002, changed => { }, removed => { } }, 5.013004 => { delta_from => 5.013003, changed => { }, removed => { } }, 5.012002 => { delta_from => 5.012001, changed => { }, removed => { } }, 5.013005 => { delta_from => 5.013004, changed => { }, removed => { } }, 5.013006 => { delta_from => 5.013005, changed => { }, removed => { } }, 5.013007 => { delta_from => 5.013006, changed => { 'ptargrep' => '1', }, removed => { } }, 5.013008 => { delta_from => 5.013007, changed => { }, removed => { } }, 5.013009 => { delta_from => 5.013008, changed => { 'json_pp' => '1', }, removed => { } }, 5.012003 => { delta_from => 5.012002, changed => { }, removed => { } }, 5.013010 => { delta_from => 5.013009, changed => { }, removed => { } }, 5.013011 => { delta_from => 5.013010, changed => { }, removed => { } }, 5.014 => { delta_from => 5.013011, changed => { }, removed => { } }, 5.014001 => { delta_from => 5.014, changed => { }, removed => { } }, 5.015 => { delta_from => 5.014004, changed => { }, removed => { 'dprofpp' => 1, } }, 5.012004 => { delta_from => 5.012003, changed => { }, removed => { } }, 5.015001 => { delta_from => 5.015, changed => { }, removed => { } }, 5.015002 => { delta_from => 5.015001, changed => { }, removed => { } }, 5.015003 => { delta_from => 5.015002, changed => { }, removed => { } }, 5.014002 => { delta_from => 5.014001, changed => { }, removed => { } }, 5.015004 => { delta_from => 5.015003, changed => { }, removed => { } }, 5.015005 => { delta_from => 5.015004, changed => { }, removed => { } }, 5.015006 => { delta_from => 5.015005, changed => { 'zipdetails' => '1', }, removed => { } }, 5.015007 => { delta_from => 5.015006, changed => { }, removed => { } }, 5.015008 => { delta_from => 5.015007, changed => { }, removed => { } }, 5.015009 => { delta_from => 5.015008, changed => { }, removed => { } }, 5.016 => { delta_from => 5.015009, changed => { }, removed => { } }, 5.017 => { delta_from => 5.016003, changed => { }, removed => { } }, 5.017001 => { delta_from => 5.017, changed => { }, removed => { } }, 5.017002 => { delta_from => 5.017001, changed => { }, removed => { } }, 5.016001 => { delta_from => 5.016, changed => { }, removed => { } }, 5.017003 => { delta_from => 5.017002, changed => { }, removed => { } }, 5.017004 => { delta_from => 5.017003, changed => { }, removed => { } }, 5.014003 => { delta_from => 5.014002, changed => { }, removed => { } }, 5.017005 => { delta_from => 5.017004, changed => { }, removed => { } }, 5.016002 => { delta_from => 5.016001, changed => { }, removed => { } }, 5.012005 => { delta_from => 5.012004, changed => { }, removed => { } }, 5.017006 => { delta_from => 5.017005, changed => { }, removed => { } }, 5.017007 => { delta_from => 5.017006, changed => { }, removed => { } }, 5.017008 => { delta_from => 5.017007, changed => { }, removed => { } }, 5.017009 => { delta_from => 5.017008, changed => { }, removed => { } }, 5.014004 => { delta_from => 5.014003, changed => { }, removed => { } }, 5.016003 => { delta_from => 5.016002, changed => { }, removed => { } }, 5.017010 => { delta_from => 5.017009, changed => { }, removed => { } }, 5.017011 => { delta_from => 5.017010, changed => { }, removed => { } }, 5.018000 => { delta_from => 5.017011, changed => { }, removed => { } }, 5.018001 => { delta_from => 5.018000, changed => { }, removed => { } }, 5.018002 => { delta_from => 5.018001, changed => { }, removed => { } }, 5.018003 => { delta_from => 5.018000, changed => { }, removed => { } }, 5.018004 => { delta_from => 5.018000, changed => { }, removed => { } }, 5.019000 => { delta_from => 5.018000, changed => { }, removed => { 'cpan2dist' => '1', 'cpanp' => '1', 'cpanp-run-perl' => '1', 'pod2latex' => '1', } }, 5.019001 => { delta_from => 5.019000, changed => { }, removed => { } }, 5.019002 => { delta_from => 5.019001, changed => { }, removed => { } }, 5.019003 => { delta_from => 5.019002, changed => { }, removed => { } }, 5.019004 => { delta_from => 5.019003, changed => { }, removed => { } }, 5.019005 => { delta_from => 5.019004, changed => { }, removed => { } }, 5.019006 => { delta_from => 5.019005, changed => { }, removed => { } }, 5.019007 => { delta_from => 5.019006, changed => { }, removed => { } }, 5.019008 => { delta_from => 5.019007, changed => { }, removed => { } }, 5.019009 => { delta_from => 5.019008, changed => { }, removed => { } }, 5.019010 => { delta_from => 5.019009, changed => { }, removed => { } }, 5.019011 => { delta_from => 5.019010, changed => { }, removed => { } }, 5.020000 => { delta_from => 5.019011, changed => { }, removed => { } }, 5.021000 => { delta_from => 5.020000, changed => { }, removed => { } }, 5.021001 => { delta_from => 5.021000, changed => { }, removed => { 'a2p' => 1, 'config_data' => 1, 'find2perl' => 1, 'psed' => 1, 's2p' => 1, } }, 5.021002 => { delta_from => 5.021001, changed => { }, removed => { } }, 5.021003 => { delta_from => 5.021002, changed => { }, removed => { } }, 5.020001 => { delta_from => 5.02, changed => { }, removed => { } }, 5.021004 => { delta_from => 5.021003, changed => { }, removed => { } }, 5.021005 => { delta_from => 5.021004, changed => { }, removed => { } }, 5.021006 => { delta_from => 5.021005, changed => { }, removed => { } }, 5.021007 => { delta_from => 5.021006, changed => { }, removed => { } }, 5.021008 => { delta_from => 5.021007, changed => { }, removed => { } }, 5.020002 => { delta_from => 5.020001, changed => { }, removed => { } }, 5.021009 => { delta_from => 5.021008, changed => { 'encguess' => '1', }, removed => { } }, 5.021010 => { delta_from => 5.021009, changed => { }, removed => { } }, 5.021011 => { delta_from => 5.02101, changed => { }, removed => { } }, 5.022000 => { delta_from => 5.021011, changed => { }, removed => { } }, 5.023000 => { delta_from => 5.022000, changed => { }, removed => { } }, 5.023001 => { delta_from => 5.023, changed => { }, removed => { } }, 5.023002 => { delta_from => 5.023001, changed => { }, removed => { } }, 5.020003 => { delta_from => 5.020002, changed => { }, removed => { } }, 5.023003 => { delta_from => 5.023002, changed => { }, removed => { } }, 5.023004 => { delta_from => 5.023003, changed => { }, removed => { } }, 5.023005 => { delta_from => 5.023004, changed => { }, removed => { } }, 5.022001 => { delta_from => 5.022, changed => { }, removed => { } }, 5.023006 => { delta_from => 5.023005, changed => { }, removed => { } }, 5.023007 => { delta_from => 5.023006, changed => { }, removed => { } }, 5.023008 => { delta_from => 5.023007, changed => { }, removed => { } }, 5.023009 => { delta_from => 5.023008, changed => { }, removed => { } }, 5.022002 => { delta_from => 5.022001, changed => { }, removed => { } }, 5.024000 => { delta_from => 5.023009, changed => { }, removed => { } }, 5.025000 => { delta_from => 5.024000, changed => { }, removed => { } }, 5.025001 => { delta_from => 5.025000, changed => { }, removed => { } }, 5.025002 => { delta_from => 5.025001, changed => { }, removed => { } }, 5.025003 => { delta_from => 5.025002, changed => { }, removed => { } }, 5.025004 => { delta_from => 5.025003, changed => { }, removed => { } }, 5.025005 => { delta_from => 5.025004, changed => { }, removed => { } }, 5.025006 => { delta_from => 5.025005, changed => { }, removed => { } }, 5.025007 => { delta_from => 5.025006, changed => { }, removed => { } }, 5.025008 => { delta_from => 5.025007, changed => { }, removed => { } }, 5.022003 => { delta_from => 5.022002, changed => { }, removed => { } }, 5.024001 => { delta_from => 5.024000, changed => { }, removed => { } }, 5.025009 => { delta_from => 5.025008, changed => { }, removed => { 'c2ph' => 1, 'pstruct' => 1, } }, 5.025010 => { delta_from => 5.025009, changed => { }, removed => { } }, 5.025011 => { delta_from => 5.025010, changed => { }, removed => { } }, 5.025012 => { delta_from => 5.025011, changed => { }, removed => { } }, 5.026000 => { delta_from => 5.025012, changed => { }, removed => { } }, 5.027000 => { delta_from => 5.026000, changed => { }, removed => { } }, 5.027001 => { delta_from => 5.027000, changed => { }, removed => { } }, 5.022004 => { delta_from => 5.022003, changed => { }, removed => { } }, 5.024002 => { delta_from => 5.024001, changed => { }, removed => { } }, 5.027002 => { delta_from => 5.027001, changed => { }, removed => { } }, 5.027003 => { delta_from => 5.027002, changed => { }, removed => { } }, 5.027004 => { delta_from => 5.027003, changed => { }, removed => { } }, 5.024003 => { delta_from => 5.024002, changed => { }, removed => { } }, 5.026001 => { delta_from => 5.026000, changed => { }, removed => { } }, 5.027005 => { delta_from => 5.027004, changed => { }, removed => { } }, 5.027006 => { delta_from => 5.027005, changed => { }, removed => { } }, 5.027007 => { delta_from => 5.027006, changed => { }, removed => { } }, 5.027008 => { delta_from => 5.027007, changed => { }, removed => { } }, 5.027009 => { delta_from => 5.027008, changed => { }, removed => { } }, 5.027010 => { delta_from => 5.027009, changed => { }, removed => { } }, 5.024004 => { delta_from => 5.024003, changed => { }, removed => { } }, 5.026002 => { delta_from => 5.026001, changed => { }, removed => { } }, 5.027011 => { delta_from => 5.027010, changed => { }, removed => { } }, 5.028000 => { delta_from => 5.027011, changed => { }, removed => { } }, 5.029000 => { delta_from => 5.028, changed => { }, removed => { } }, 5.029001 => { delta_from => 5.029000, changed => { }, removed => { } }, 5.029002 => { delta_from => 5.029001, changed => { }, removed => { } }, 5.029003 => { delta_from => 5.029002, changed => { }, removed => { } }, 5.029004 => { delta_from => 5.029003, changed => { }, removed => { } }, 5.029005 => { delta_from => 5.029004, changed => { }, removed => { } }, 5.026003 => { delta_from => 5.026002, changed => { }, removed => { } }, 5.028001 => { delta_from => 5.028000, changed => { }, removed => { } }, 5.029006 => { delta_from => 5.029005, changed => { }, removed => { } }, 5.029007 => { delta_from => 5.029006, changed => { }, removed => { } }, 5.029008 => { delta_from => 5.029007, changed => { }, removed => { } }, 5.029009 => { delta_from => 5.029008, changed => { }, removed => { } }, 5.028002 => { delta_from => 5.028001, changed => { }, removed => { } }, 5.029010 => { delta_from => 5.029009, changed => { }, removed => { } }, 5.030000 => { delta_from => 5.029010, changed => { }, removed => { } }, 5.031000 => { delta_from => 5.03, changed => { }, removed => { } }, 5.031001 => { delta_from => 5.031, changed => { }, removed => { 'podselect' => 1, } }, 5.031002 => { delta_from => 5.031001, changed => { }, removed => { } }, 5.031003 => { delta_from => 5.031002, changed => { }, removed => { } }, 5.031004 => { delta_from => 5.031003, changed => { }, removed => { } }, 5.031005 => { delta_from => 5.031004, changed => { }, removed => { } }, 5.030001 => { delta_from => 5.03, changed => { }, removed => { } }, 5.031006 => { delta_from => 5.031005, changed => { 'streamzip' => '1', }, removed => { } }, 5.031007 => { delta_from => 5.031006, changed => { }, removed => { } }, 5.031008 => { delta_from => 5.031007, changed => { }, removed => { } }, 5.031009 => { delta_from => 5.031008, changed => { }, removed => { } }, 5.030002 => { delta_from => 5.030001, changed => { }, removed => { } }, 5.031010 => { delta_from => 5.031009, changed => { }, removed => { } }, 5.031011 => { delta_from => 5.031010, changed => { }, removed => { } }, 5.028003 => { delta_from => 5.028002, changed => { }, removed => { } }, 5.030003 => { delta_from => 5.030002, changed => { }, removed => { } }, 5.032000 => { delta_from => 5.031011, changed => { }, removed => { } }, 5.033000 => { delta_from => 5.032, changed => { }, removed => { } }, 5.033001 => { delta_from => 5.033000, changed => { }, removed => { } }, 5.033002 => { delta_from => 5.033001, changed => { }, removed => { } }, 5.033003 => { delta_from => 5.033002, changed => { }, removed => { } }, 5.033004 => { delta_from => 5.033003, changed => { }, removed => { } }, 5.033005 => { delta_from => 5.033004, changed => { }, removed => { } }, 5.033006 => { delta_from => 5.033005, changed => { }, removed => { } }, 5.032001 => { delta_from => 5.032000, changed => { }, removed => { } }, 5.033007 => { delta_from => 5.033006, changed => { }, removed => { } }, 5.033008 => { delta_from => 5.033007, changed => { }, removed => { } }, 5.033009 => { delta_from => 5.033008, changed => { }, removed => { } }, 5.034000 => { delta_from => 5.033009, changed => { }, removed => { } }, ); %utilities = Module::CoreList::_undelta(\%delta); # Create aliases with trailing zeros for $] use $utilities{'5.000'} = $utilities{5}; _create_aliases(\%utilities); sub _create_aliases { my ($hash) = @_; for my $version (keys %$hash) { next unless $version >= 5.010; my $padded = sprintf "%0.6f", $version; # If the version in string form isn't the same as the numeric version, # alias it. if ($padded ne $version && $version == $padded) { $hash->{$padded} = $hash->{$version}; } } } 'foo'; =pod =head1 NAME Module::CoreList::Utils - what utilities shipped with versions of perl =head1 SYNOPSIS use Module::CoreList::Utils; print $Module::CoreList::Utils::utilities{5.009003}{ptar}; # prints 1 print Module::CoreList::Utils->first_release('corelist'); # prints 5.008009 print Module::CoreList::Utils->first_release_by_date('corelist'); # prints 5.009002 =head1 DESCRIPTION Module::CoreList::Utils provides information on which core and dual-life utilities shipped with each version of L<perl>. It provides a number of mechanisms for querying this information. There is a functional programming API available for programmers to query information. Programmers may also query the contained hash structure to find relevant information. =head1 FUNCTIONS API These are the functions that are available, they may either be called as functions or class methods: Module::CoreList::Utils::first_release('corelist'); # as a function Module::CoreList::Utils->first_release('corelist'); # class method =over =item C<utilities> Requires a perl version as an argument, returns a list of utilities that shipped with that version of perl, or undef/empty list if that perl doesn't exist. =item C<first_release( UTILITY )> Requires a UTILITY name as an argument, returns the perl version when that utility first appeared in core as ordered by perl version number or undef ( in scalar context ) or an empty list ( in list context ) if that utility is not in core. =item C<first_release_by_date( UTILITY )> Requires a UTILITY name as an argument, returns the perl version when that utility first appeared in core as ordered by release date or undef ( in scalar context ) or an empty list ( in list context ) if that utility is not in core. =item C<removed_from( UTILITY )> Takes a UTILITY name as an argument, returns the first perl version where that utility was removed from core. Returns undef if the given utility was never in core or remains in core. =item C<removed_from_by_date( UTILITY )> Takes a UTILITY name as an argument, returns the first perl version by release date where that utility was removed from core. Returns undef if the given utility was never in core or remains in core. =back =head1 DATA STRUCTURES These are the hash data structures that are available: =over =item C<%Module::CoreList::Utils::utilities> A hash of hashes that is keyed on perl version as indicated in $]. The second level hash is utility / defined pairs. =back =head1 AUTHOR Chris C<BinGOs> Williams <chris@bingosnet.co.uk> Currently maintained by the perl 5 porters E<lt>perl5-porters@perl.orgE<gt>. This module is the result of archaeology undertaken during QA Hackathon in Lancaster, April 2013. =head1 LICENSE Copyright (C) 2013 Chris Williams. All Rights Reserved. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO L<corelist>, L<Module::CoreList>, L<perl>, L<http://perlpunks.de/corelist> =cut PK ! Ņ�sK sK ! 5.34.0/Module/Load/Conditional.pmnu �[��� package Module::Load::Conditional; use strict; use Module::Load qw/load autoload_remote/; use Params::Check qw[check]; use Locale::Maketext::Simple Style => 'gettext'; use Carp (); use File::Spec (); use FileHandle (); use version; use Module::Metadata (); use constant ON_VMS => $^O eq 'VMS'; use constant ON_WIN32 => $^O eq 'MSWin32' ? 1 : 0; use constant QUOTE => do { ON_WIN32 ? q["] : q['] }; BEGIN { use vars qw[ $VERSION @ISA $VERBOSE $CACHE @EXPORT_OK $DEPRECATED $FIND_VERSION $ERROR $CHECK_INC_HASH $FORCE_SAFE_INC ]; use Exporter; @ISA = qw[Exporter]; $VERSION = '0.74'; $VERBOSE = 0; $DEPRECATED = 0; $FIND_VERSION = 1; $CHECK_INC_HASH = 0; $FORCE_SAFE_INC = 0; @EXPORT_OK = qw[check_install can_load requires]; } =pod =head1 NAME Module::Load::Conditional - Looking up module information / loading at runtime =head1 SYNOPSIS use Module::Load::Conditional qw[can_load check_install requires]; my $use_list = { CPANPLUS => 0.05, LWP => 5.60, 'Test::More' => undef, }; print can_load( modules => $use_list ) ? 'all modules loaded successfully' : 'failed to load required modules'; my $rv = check_install( module => 'LWP', version => 5.60 ) or print 'LWP is not installed!'; print 'LWP up to date' if $rv->{uptodate}; print "LWP version is $rv->{version}\n"; print "LWP is installed as file $rv->{file}\n"; print "LWP requires the following modules to be installed:\n"; print join "\n", requires('LWP'); ### allow M::L::C to peek in your %INC rather than just ### scanning @INC $Module::Load::Conditional::CHECK_INC_HASH = 1; ### reset the 'can_load' cache undef $Module::Load::Conditional::CACHE; ### don't have Module::Load::Conditional issue warnings -- ### default is '1' $Module::Load::Conditional::VERBOSE = 0; ### The last error that happened during a call to 'can_load' my $err = $Module::Load::Conditional::ERROR; =head1 DESCRIPTION Module::Load::Conditional provides simple ways to query and possibly load any of the modules you have installed on your system during runtime. It is able to load multiple modules at once or none at all if one of them was not able to load. It also takes care of any error checking and so forth. =head1 Methods =head2 $href = check_install( module => NAME [, version => VERSION, verbose => BOOL ] ); C<check_install> allows you to verify if a certain module is installed or not. You may call it with the following arguments: =over 4 =item module The name of the module you wish to verify -- this is a required key =item version The version this module needs to be -- this is optional =item verbose Whether or not to be verbose about what it is doing -- it will default to $Module::Load::Conditional::VERBOSE =back It will return undef if it was not able to find where the module was installed, or a hash reference with the following keys if it was able to find the file: =over 4 =item file Full path to the file that contains the module =item dir Directory, or more exact the C<@INC> entry, where the module was loaded from. =item version The version number of the installed module - this will be C<undef> if the module had no (or unparsable) version number, or if the variable C<$Module::Load::Conditional::FIND_VERSION> was set to true. (See the C<GLOBAL VARIABLES> section below for details) =item uptodate A boolean value indicating whether or not the module was found to be at least the version you specified. If you did not specify a version, uptodate will always be true if the module was found. If no parsable version was found in the module, uptodate will also be true, since C<check_install> had no way to verify clearly. See also C<$Module::Load::Conditional::DEPRECATED>, which affects the outcome of this value. =back =cut ### this checks if a certain module is installed already ### ### if it returns true, the module in question is already installed ### or we found the file, but couldn't open it, OR there was no version ### to be found in the module ### it will return 0 if the version in the module is LOWER then the one ### we are looking for, or if we couldn't find the desired module to begin with ### if the installed version is higher or equal to the one we want, it will return ### a hashref with he module name and version in it.. so 'true' as well. sub check_install { my %hash = @_; my $tmpl = { version => { default => '0.0' }, module => { required => 1 }, verbose => { default => $VERBOSE }, }; my $args; unless( $args = check( $tmpl, \%hash, $VERBOSE ) ) { warn loc( q[A problem occurred checking arguments] ) if $VERBOSE; return; } my $file = File::Spec->catfile( split /::/, $args->{module} ) . '.pm'; my $file_inc = File::Spec::Unix->catfile( split /::/, $args->{module} ) . '.pm'; ### where we store the return value ### my $href = { file => undef, version => undef, uptodate => undef, }; my $filename; ### check the inc hash if we're allowed to if( $CHECK_INC_HASH ) { $filename = $href->{'file'} = $INC{ $file_inc } if defined $INC{ $file_inc }; ### find the version by inspecting the package if( defined $filename && $FIND_VERSION ) { no strict 'refs'; $href->{version} = ${ "$args->{module}"."::VERSION" }; } } ### we didn't find the filename yet by looking in %INC, ### so scan the dirs unless( $filename ) { local @INC = @INC[0..$#INC-1] if $FORCE_SAFE_INC && $INC[-1] eq '.'; DIR: for my $dir ( @INC ) { my $fh; if ( ref $dir ) { ### @INC hook -- we invoke it and get the filehandle back ### this is actually documented behaviour as of 5.8 ;) my $existed_in_inc = $INC{$file_inc}; if (UNIVERSAL::isa($dir, 'CODE')) { ($fh) = $dir->($dir, $file); } elsif (UNIVERSAL::isa($dir, 'ARRAY')) { ($fh) = $dir->[0]->($dir, $file, @{$dir}{1..$#{$dir}}) } elsif (UNIVERSAL::can($dir, 'INC')) { ($fh) = $dir->INC($file); } if (!UNIVERSAL::isa($fh, 'GLOB')) { warn loc(q[Cannot open file '%1': %2], $file, $!) if $args->{verbose}; next; } $filename = $INC{$file_inc} || $file; delete $INC{$file_inc} if not $existed_in_inc; } else { $filename = File::Spec->catfile($dir, $file); next unless -e $filename; $fh = FileHandle->new(); if (!$fh->open($filename)) { warn loc(q[Cannot open file '%1': %2], $file, $!) if $args->{verbose}; next; } } ### store the directory we found the file in $href->{dir} = $dir; ### files need to be in unix format under vms, ### or they might be loaded twice $href->{file} = ON_VMS ? VMS::Filespec::unixify( $filename ) : $filename; ### if we don't need the version, we're done last DIR unless $FIND_VERSION; ### otherwise, the user wants us to find the version from files { local $SIG{__WARN__} = sub {}; my $ver = eval { my $mod_info = Module::Metadata->new_from_handle( $fh, $filename ); $mod_info->version( $args->{module} ); }; if( defined $ver ) { $href->{version} = $ver; last DIR; } } } } ### if we couldn't find the file, return undef ### return unless defined $href->{file}; ### only complain if we're expected to find a version higher than 0.0 anyway if( $FIND_VERSION and not defined $href->{version} ) { { ### don't warn about the 'not numeric' stuff ### local $^W; ### if we got here, we didn't find the version warn loc(q[Could not check version on '%1'], $args->{module} ) if $args->{verbose} and $args->{version} > 0; } $href->{uptodate} = 1; } else { ### don't warn about the 'not numeric' stuff ### local $^W; ### use qv(), as it will deal with developer release number ### ie ones containing _ as well. This addresses bug report ### #29348: Version compare logic doesn't handle alphas? ### ### Update from JPeacock: apparently qv() and version->new ### are different things, and we *must* use version->new ### here, or things like #30056 might start happening ### We have to wrap this in an eval as version-0.82 raises ### exceptions and not warnings now *sigh* eval { $href->{uptodate} = version->new( $args->{version} ) <= version->new( $href->{version} ) ? 1 : 0; }; } if ( $DEPRECATED and "$]" >= 5.011 ) { local @INC = @INC[0..$#INC-1] if $FORCE_SAFE_INC && $INC[-1] eq '.'; require Module::CoreList; require Config; no warnings 'once'; $href->{uptodate} = 0 if exists $Module::CoreList::version{ 0+$] }{ $args->{module} } and Module::CoreList::is_deprecated( $args->{module} ) and $Config::Config{privlibexp} eq $href->{dir} and $Config::Config{privlibexp} ne $Config::Config{sitelibexp}; } return $href; } =head2 $bool = can_load( modules => { NAME => VERSION [,NAME => VERSION] }, [verbose => BOOL, nocache => BOOL, autoload => BOOL] ) C<can_load> will take a list of modules, optionally with version numbers and determine if it is able to load them. If it can load *ALL* of them, it will. If one or more are unloadable, none will be loaded. This is particularly useful if you have More Than One Way (tm) to solve a problem in a program, and only wish to continue down a path if all modules could be loaded, and not load them if they couldn't. This function uses the C<load> function or the C<autoload_remote> function from Module::Load under the hood. C<can_load> takes the following arguments: =over 4 =item modules This is a hashref of module/version pairs. The version indicates the minimum version to load. If no version is provided, any version is assumed to be good enough. =item verbose This controls whether warnings should be printed if a module failed to load. The default is to use the value of $Module::Load::Conditional::VERBOSE. =item nocache C<can_load> keeps its results in a cache, so it will not load the same module twice, nor will it attempt to load a module that has already failed to load before. By default, C<can_load> will check its cache, but you can override that by setting C<nocache> to true. =item autoload This controls whether imports the functions of a loaded modules to the caller package. The default is no importing any functions. See the C<autoload> function and the C<autoload_remote> function from L<Module::Load> for details. =cut sub can_load { my %hash = @_; my $tmpl = { modules => { default => {}, strict_type => 1 }, verbose => { default => $VERBOSE }, nocache => { default => 0 }, autoload => { default => 0 }, }; my $args; unless( $args = check( $tmpl, \%hash, $VERBOSE ) ) { $ERROR = loc(q[Problem validating arguments!]); warn $ERROR if $VERBOSE; return; } ### layout of $CACHE: ### $CACHE = { ### $ module => { ### usable => BOOL, ### version => \d, ### file => /path/to/file, ### }, ### }; $CACHE ||= {}; # in case it was undef'd my $error; BLOCK: { my $href = $args->{modules}; my @load; for my $mod ( keys %$href ) { next if $CACHE->{$mod}->{usable} && !$args->{nocache}; ### else, check if the hash key is defined already, ### meaning $mod => 0, ### indicating UNSUCCESSFUL prior attempt of usage ### use qv(), as it will deal with developer release number ### ie ones containing _ as well. This addresses bug report ### #29348: Version compare logic doesn't handle alphas? ### ### Update from JPeacock: apparently qv() and version->new ### are different things, and we *must* use version->new ### here, or things like #30056 might start happening if ( !$args->{nocache} && defined $CACHE->{$mod}->{usable} && (version->new( $CACHE->{$mod}->{version}||0 ) >= version->new( $href->{$mod} ) ) ) { $error = loc( q[Already tried to use '%1', which was unsuccessful], $mod); last BLOCK; } my $mod_data = check_install( module => $mod, version => $href->{$mod} ); if( !$mod_data or !defined $mod_data->{file} ) { $error = loc(q[Could not find or check module '%1'], $mod); $CACHE->{$mod}->{usable} = 0; last BLOCK; } map { $CACHE->{$mod}->{$_} = $mod_data->{$_} } qw[version file uptodate]; push @load, $mod; } for my $mod ( @load ) { if ( $CACHE->{$mod}->{uptodate} ) { local @INC = @INC[0..$#INC-1] if $FORCE_SAFE_INC && $INC[-1] eq '.'; if ( $args->{autoload} ) { my $who = (caller())[0]; eval { autoload_remote $who, $mod }; } else { eval { load $mod }; } ### in case anything goes wrong, log the error, the fact ### we tried to use this module and return 0; if( $@ ) { $error = $@; $CACHE->{$mod}->{usable} = 0; last BLOCK; } else { $CACHE->{$mod}->{usable} = 1; } ### module not found in @INC, store the result in ### $CACHE and return 0 } else { $error = loc(q[Module '%1' is not uptodate!], $mod); $CACHE->{$mod}->{usable} = 0; last BLOCK; } } } # BLOCK if( defined $error ) { $ERROR = $error; Carp::carp( loc(q|%1 [THIS MAY BE A PROBLEM!]|,$error) ) if $args->{verbose}; return; } else { return 1; } } =back =head2 @list = requires( MODULE ); C<requires> can tell you what other modules a particular module requires. This is particularly useful when you're intending to write a module for public release and are listing its prerequisites. C<requires> takes but one argument: the name of a module. It will then first check if it can actually load this module, and return undef if it can't. Otherwise, it will return a list of modules and pragmas that would have been loaded on the module's behalf. Note: The list C<require> returns has originated from your current perl and your current install. =cut sub requires { my $who = shift; unless( check_install( module => $who ) ) { warn loc(q[You do not have module '%1' installed], $who) if $VERBOSE; return undef; } local @INC = @INC[0..$#INC-1] if $FORCE_SAFE_INC && $INC[-1] eq '.'; my $lib = join " ", map { qq["-I$_"] } @INC; my $oneliner = 'print(join(qq[\n],map{qq[BONG=$_]}keys(%INC)),qq[\n])'; my $cmd = join '', qq["$^X" $lib -M$who -e], QUOTE, $oneliner, QUOTE; return sort grep { !/^$who$/ } map { chomp; s|/|::|g; $_ } grep { s|\.pm$||i; } map { s!^BONG\=!!; $_ } grep { m!^BONG\=! } `$cmd`; } 1; __END__ =head1 Global Variables The behaviour of Module::Load::Conditional can be altered by changing the following global variables: =head2 $Module::Load::Conditional::VERBOSE This controls whether Module::Load::Conditional will issue warnings and explanations as to why certain things may have failed. If you set it to 0, Module::Load::Conditional will not output any warnings. The default is 0; =head2 $Module::Load::Conditional::FIND_VERSION This controls whether Module::Load::Conditional will try to parse (and eval) the version from the module you're trying to load. If you don't wish to do this, set this variable to C<false>. Understand then that version comparisons are not possible, and Module::Load::Conditional can not tell you what module version you have installed. This may be desirable from a security or performance point of view. Note that C<$FIND_VERSION> code runs safely under C<taint mode>. The default is 1; =head2 $Module::Load::Conditional::CHECK_INC_HASH This controls whether C<Module::Load::Conditional> checks your C<%INC> hash to see if a module is available. By default, only C<@INC> is scanned to see if a module is physically on your filesystem, or available via an C<@INC-hook>. Setting this variable to C<true> will trust any entries in C<%INC> and return them for you. The default is 0; =head2 $Module::Load::Conditional::FORCE_SAFE_INC This controls whether C<Module::Load::Conditional> sanitises C<@INC> by removing "C<.>". The current default setting is C<0>, but this may change in a future release. =head2 $Module::Load::Conditional::CACHE This holds the cache of the C<can_load> function. If you explicitly want to remove the current cache, you can set this variable to C<undef> =head2 $Module::Load::Conditional::ERROR This holds a string of the last error that happened during a call to C<can_load>. It is useful to inspect this when C<can_load> returns C<undef>. =head2 $Module::Load::Conditional::DEPRECATED This controls whether C<Module::Load::Conditional> checks if a dual-life core module has been deprecated. If this is set to true C<check_install> will return false to C<uptodate>, if a dual-life module is found to be loaded from C<$Config{privlibexp}> The default is 0; =head1 See Also C<Module::Load> =head1 BUG REPORTS Please report bugs or other issues to E<lt>bug-module-load-conditional@rt.cpan.orgE<gt>. =head1 AUTHOR This module by Jos Boumans E<lt>kane@cpan.orgE<gt>. =head1 COPYRIGHT This library is free software; you may redistribute and/or modify it under the same terms as Perl itself. =cut PK ! .JK�R �R 5.34.0/bignum.pmnu �[��� package bignum; use 5.010; use strict; use warnings; our $VERSION = '0.51'; use Exporter; our @ISA = qw( bigint ); our @EXPORT_OK = qw( PI e bpi bexp hex oct ); our @EXPORT = qw( inf NaN ); use overload; use bigint (); ############################################################################## BEGIN { *inf = \&bigint::inf; *NaN = \&bigint::NaN; *hex = \&bigint::hex; *oct = \&bigint::oct; } # These are all alike, and thus faked by AUTOLOAD my @faked = qw/round_mode accuracy precision div_scale/; our ($AUTOLOAD, $_lite); # _lite for testsuite sub AUTOLOAD { my $name = $AUTOLOAD; $name =~ s/.*:://; # split package no strict 'refs'; foreach my $n (@faked) { if ($n eq $name) { *{"bignum::$name"} = sub { my $self = shift; no strict 'refs'; if (defined $_[0]) { Math::BigInt->$name($_[0]); return Math::BigFloat->$name($_[0]); } return Math::BigInt->$name(); }; return &$name; } } # delayed load of Carp and avoid recursion require Carp; Carp::croak ("Can't call bignum\-\>$name, not a valid method"); } sub unimport { $^H{bignum} = undef; # no longer in effect overload::remove_constant('binary', '', 'float', '', 'integer'); } sub in_effect { my $level = shift || 0; my $hinthash = (caller($level))[10]; $hinthash->{bignum}; } ############################################################################# sub import { my $self = shift; $^H{bignum} = 1; # we are in effect # for newer Perls override hex() and oct() with a lexical version: if ($] > 5.009004) { bigint::_override(); } # some defaults my $lib = ''; my $lib_kind = 'try'; my $upgrade = 'Math::BigFloat'; my $downgrade = 'Math::BigInt'; my @import = (':constant'); # drive it w/ constant my @a = @_; my $l = scalar @_; my $j = 0; my ($ver, $trace); # version? trace? my ($a, $p); # accuracy, precision for (my $i = 0; $i < $l; $i++, $j++) { if ($_[$i] eq 'upgrade') { # this causes upgrading $upgrade = $_[$i + 1]; # or undef to disable my $s = 2; $s = 1 if @a - $j < 2; # avoid "can not modify non-existent..." splice @a, $j, $s; $j -= $s; $i++; } elsif ($_[$i] eq 'downgrade') { # this causes downgrading $downgrade = $_[$i + 1]; # or undef to disable my $s = 2; $s = 1 if @a - $j < 2; # avoid "can not modify non-existent..." splice @a, $j, $s; $j -= $s; $i++; } elsif ($_[$i] =~ /^(l|lib|try|only)$/) { # this causes a different low lib to take care... $lib_kind = $1; $lib_kind = 'lib' if $lib_kind eq 'l'; $lib = $_[$i + 1] || ''; my $s = 2; $s = 1 if @a - $j < 2; # avoid "can not modify non-existent..." splice @a, $j, $s; $j -= $s; $i++; } elsif ($_[$i] =~ /^(a|accuracy)$/) { $a = $_[$i + 1]; my $s = 2; $s = 1 if @a - $j < 2; # avoid "can not modify non-existent..." splice @a, $j, $s; $j -= $s; $i++; } elsif ($_[$i] =~ /^(p|precision)$/) { $p = $_[$i + 1]; my $s = 2; $s = 1 if @a - $j < 2; # avoid "can not modify non-existent..." splice @a, $j, $s; $j -= $s; $i++; } elsif ($_[$i] =~ /^(v|version)$/) { $ver = 1; splice @a, $j, 1; $j--; } elsif ($_[$i] =~ /^(t|trace)$/) { $trace = 1; splice @a, $j, 1; $j--; } elsif ($_[$i] !~ /^(PI|e|bexp|bpi|hex|oct)\z/) { die ("unknown option $_[$i]"); } } my $class; $_lite = 0; # using M::BI::L ? if ($trace) { require Math::BigInt::Trace; $class = 'Math::BigInt::Trace'; $upgrade = 'Math::BigFloat::Trace'; } else { # see if we can find Math::BigInt::Lite if (!defined $a && !defined $p) { # rounding won't work to well local @INC = @INC; pop @INC if $INC[-1] eq '.'; if (eval { require Math::BigInt::Lite; 1 }) { @import = (); # :constant in Lite, not MBI Math::BigInt::Lite->import(':constant'); $_lite = 1; # signal okay } } require Math::BigInt if $_lite == 0; # not already loaded? $class = 'Math::BigInt'; # regardless of MBIL or not } push @import, $lib_kind => $lib if $lib ne ''; # Math::BigInt::Trace or plain Math::BigInt $class->import(@import, upgrade => $upgrade); if ($trace) { require Math::BigFloat::Trace; $class = 'Math::BigFloat::Trace'; $downgrade = 'Math::BigInt::Trace'; } else { require Math::BigFloat; $class = 'Math::BigFloat'; } $class->import(':constant', 'downgrade', $downgrade); bignum->accuracy($a) if defined $a; bignum->precision($p) if defined $p; if ($ver) { print "bignum\t\t\t v$VERSION\n"; print "Math::BigInt::Lite\t v$Math::BigInt::Lite::VERSION\n" if $_lite; print "Math::BigInt\t\t v$Math::BigInt::VERSION"; my $config = Math::BigInt->config(); print " lib => $config->{lib} v$config->{lib_version}\n"; print "Math::BigFloat\t\t v$Math::BigFloat::VERSION\n"; exit; } # Take care of octal/hexadecimal constants overload::constant binary => sub { bigint::_binary_constant(shift); }; # if another big* was already loaded: my ($package) = caller(); no strict 'refs'; if (!defined *{"${package}::inf"}) { $self->export_to_level(1, $self, @a); # export inf and NaN } } sub PI () { Math::BigFloat->new('3.141592653589793238462643383279502884197'); } sub e () { Math::BigFloat->new('2.718281828459045235360287471352662497757'); } sub bpi ($) { Math::BigFloat->bpi(@_); } sub bexp ($$) { my $x = Math::BigFloat->new($_[0]); $x->bexp($_[1]); } 1; __END__ =pod =head1 NAME bignum - Transparent BigNumber support for Perl =head1 SYNOPSIS use bignum; $x = 2 + 4.5,"\n"; # BigFloat 6.5 print 2 ** 512 * 0.1,"\n"; # really is what you think it is print inf * inf,"\n"; # prints inf print NaN * 3,"\n"; # prints NaN { no bignum; print 2 ** 256,"\n"; # a normal Perl scalar now } # for older Perls, import into current package: use bignum qw/hex oct/; print hex("0x1234567890123490"),"\n"; print oct("01234567890123490"),"\n"; =head1 DESCRIPTION All operators (including basic math operations) are overloaded. Integer and floating-point constants are created as proper BigInts or BigFloats, respectively. If you do use bignum; at the top of your script, Math::BigFloat and Math::BigInt will be loaded and any constant number will be converted to an object (Math::BigFloat for floats like 3.1415 and Math::BigInt for integers like 1234). So, the following line: $x = 1234; creates actually a Math::BigInt and stores a reference to in $x. This happens transparently and behind your back, so to speak. You can see this with the following: perl -Mbignum -le 'print ref(1234)' Don't worry if it says Math::BigInt::Lite, bignum and friends will use Lite if it is installed since it is faster for some operations. It will be automatically upgraded to BigInt whenever necessary: perl -Mbignum -le 'print ref(2**255)' This also means it is a bad idea to check for some specific package, since the actual contents of $x might be something unexpected. Due to the transparent way of bignum C<ref()> should not be necessary, anyway. Since Math::BigInt and BigFloat also overload the normal math operations, the following line will still work: perl -Mbignum -le 'print ref(1234+1234)' Since numbers are actually objects, you can call all the usual methods from BigInt/BigFloat on them. This even works to some extent on expressions: perl -Mbignum -le '$x = 1234; print $x->bdec()' perl -Mbignum -le 'print 1234->copy()->binc();' perl -Mbignum -le 'print 1234->copy()->binc->badd(6);' perl -Mbignum -le 'print +(1234)->copy()->binc()' (Note that print doesn't do what you expect if the expression starts with '(' hence the C<+>) You can even chain the operations together as usual: perl -Mbignum -le 'print 1234->copy()->binc->badd(6);' 1241 Under bignum (or bigint or bigrat), Perl will "upgrade" the numbers appropriately. This means that: perl -Mbignum -le 'print 1234+4.5' 1238.5 will work correctly. These mixed cases don't do always work when using Math::BigInt or Math::BigFloat alone, or at least not in the way normal Perl scalars work. If you do want to work with large integers like under C<use integer;>, try C<use bigint;>: perl -Mbigint -le 'print 1234.5+4.5' 1238 There is also C<use bigrat;> which gives you big rationals: perl -Mbigrat -le 'print 1234+4.1' 12381/10 The entire upgrading/downgrading is still experimental and might not work as you expect or may even have bugs. You might get errors like this: Can't use an undefined value as an ARRAY reference at /usr/local/lib/perl5/5.8.0/Math/BigInt/Calc.pm line 864 This means somewhere a routine got a BigFloat/Lite but expected a BigInt (or vice versa) and the upgrade/downgrad path was missing. This is a bug, please report it so that we can fix it. You might consider using just Math::BigInt or Math::BigFloat, since they allow you finer control over what get's done in which module/space. For instance, simple loop counters will be Math::BigInts under C<use bignum;> and this is slower than keeping them as Perl scalars: perl -Mbignum -le 'for ($i = 0; $i < 10; $i++) { print ref($i); }' Please note the following does not work as expected (prints nothing), since overloading of '..' is not yet possible in Perl (as of v5.8.0): perl -Mbignum -le 'for (1..2) { print ref($_); }' =head2 Options bignum recognizes some options that can be passed while loading it via use. The options can (currently) be either a single letter form, or the long form. The following options exist: =over 2 =item a or accuracy This sets the accuracy for all math operations. The argument must be greater than or equal to zero. See Math::BigInt's bround() function for details. perl -Mbignum=a,50 -le 'print sqrt(20)' Note that setting precision and accuracy at the same time is not possible. =item p or precision This sets the precision for all math operations. The argument can be any integer. Negative values mean a fixed number of digits after the dot, while a positive value rounds to this digit left from the dot. 0 or 1 mean round to integer. See Math::BigInt's bfround() function for details. perl -Mbignum=p,-50 -le 'print sqrt(20)' Note that setting precision and accuracy at the same time is not possible. =item t or trace This enables a trace mode and is primarily for debugging bignum or Math::BigInt/Math::BigFloat. =item l or lib Load a different math lib, see L<Math Library>. perl -Mbignum=l,GMP -e 'print 2 ** 512' Currently there is no way to specify more than one library on the command line. This means the following does not work: perl -Mbignum=l,GMP,Pari -e 'print 2 ** 512' This will be hopefully fixed soon ;) =item hex Override the built-in hex() method with a version that can handle big numbers. This overrides it by exporting it to the current package. Under Perl v5.10.0 and higher, this is not so necessary, as hex() is lexically overridden in the current scope whenever the bignum pragma is active. =item oct Override the built-in oct() method with a version that can handle big numbers. This overrides it by exporting it to the current package. Under Perl v5.10.0 and higher, this is not so necessary, as oct() is lexically overridden in the current scope whenever the bigint pragma is active. =item v or version This prints out the name and version of all modules used and then exits. perl -Mbignum=v =back =head2 Methods Beside import() and AUTOLOAD() there are only a few other methods. Since all numbers are now objects, you can use all functions that are part of the BigInt or BigFloat API. It is wise to use only the bxxx() notation, and not the fxxx() notation, though. This makes it possible that the underlying object might morph into a different class than BigFloat. =head2 Caveats But a warning is in order. When using the following to make a copy of a number, only a shallow copy will be made. $x = 9; $y = $x; $x = $y = 7; If you want to make a real copy, use the following: $y = $x->copy(); Using the copy or the original with overloaded math is okay, e.g. the following work: $x = 9; $y = $x; print $x + 1, " ", $y,"\n"; # prints 10 9 but calling any method that modifies the number directly will result in B<both> the original and the copy being destroyed: $x = 9; $y = $x; print $x->badd(1), " ", $y,"\n"; # prints 10 10 $x = 9; $y = $x; print $x->binc(1), " ", $y,"\n"; # prints 10 10 $x = 9; $y = $x; print $x->bmul(2), " ", $y,"\n"; # prints 18 18 Using methods that do not modify, but test the contents works: $x = 9; $y = $x; $z = 9 if $x->is_zero(); # works fine See the documentation about the copy constructor and C<=> in overload, as well as the documentation in BigInt for further details. =over 2 =item inf() A shortcut to return Math::BigInt->binf(). Useful because Perl does not always handle bareword C<inf> properly. =item NaN() A shortcut to return Math::BigInt->bnan(). Useful because Perl does not always handle bareword C<NaN> properly. =item e # perl -Mbignum=e -wle 'print e' Returns Euler's number C<e>, aka exp(1). =item PI() # perl -Mbignum=PI -wle 'print PI' Returns PI. =item bexp() bexp($power,$accuracy); Returns Euler's number C<e> raised to the appropriate power, to the wanted accuracy. Example: # perl -Mbignum=bexp -wle 'print bexp(1,80)' =item bpi() bpi($accuracy); Returns PI to the wanted accuracy. Example: # perl -Mbignum=bpi -wle 'print bpi(80)' =item upgrade() Return the class that numbers are upgraded to, is in fact returning C<$Math::BigInt::upgrade>. =item in_effect() use bignum; print "in effect\n" if bignum::in_effect; # true { no bignum; print "in effect\n" if bignum::in_effect; # false } Returns true or false if C<bignum> is in effect in the current scope. This method only works on Perl v5.9.4 or later. =back =head2 Math Library Math with the numbers is done (by default) by a module called Math::BigInt::Calc. This is equivalent to saying: use bignum lib => 'Calc'; You can change this by using: use bignum lib => 'GMP'; The following would first try to find Math::BigInt::Foo, then Math::BigInt::Bar, and when this also fails, revert to Math::BigInt::Calc: use bignum lib => 'Foo,Math::BigInt::Bar'; Please see respective module documentation for further details. Using C<lib> warns if none of the specified libraries can be found and L<Math::BigInt> did fall back to one of the default libraries. To suppress this warning, use C<try> instead: use bignum try => 'GMP'; If you want the code to die instead of falling back, use C<only> instead: use bignum only => 'GMP'; =head2 INTERNAL FORMAT The numbers are stored as objects, and their internals might change at anytime, especially between math operations. The objects also might belong to different classes, like Math::BigInt, or Math::BigFloat. Mixing them together, even with normal scalars is not extraordinary, but normal and expected. You should not depend on the internal format, all accesses must go through accessor methods. E.g. looking at $x->{sign} is not a bright idea since there is no guaranty that the object in question has such a hashkey, nor is a hash underneath at all. =head2 SIGN The sign is either '+', '-', 'NaN', '+inf' or '-inf' and stored separately. You can access it with the sign() method. A sign of 'NaN' is used to represent the result when input arguments are not numbers or as a result of 0/0. '+inf' and '-inf' represent plus respectively minus infinity. You will get '+inf' when dividing a positive number by 0, and '-inf' when dividing any negative number by 0. =head1 CAVEATS =over 2 =item Operator vs literal overloading C<bignum> works by overloading handling of integer and floating point literals, converting them to L<Math::BigInt> or L<Math::BigFloat> objects. This means that arithmetic involving only string values or string literals will be performed using Perl's built-in operators. For example: use bignum; my $x = "900000000000000009"; my $y = "900000000000000007"; print $x - $y; will output C<0> on default 32-bit builds, since C<bigrat> never sees the string literals. To ensure the expression is all treated as C<Math::BigInt> or C<BigFloat> objects, use a literal number in the expression: print +(0+$x) - $y; =item in_effect() This method only works on Perl v5.9.4 or later. =item hex()/oct() C<bigint> overrides these routines with versions that can also handle big integer values. Under Perl prior to version v5.9.4, however, this will not happen unless you specifically ask for it with the two import tags "hex" and "oct" - and then it will be global and cannot be disabled inside a scope with "no bigint": use bigint qw/hex oct/; print hex("0x1234567890123456"); { no bigint; print hex("0x1234567890123456"); } The second call to hex() will warn about a non-portable constant. Compare this to: use bigint; # will warn only under older than v5.9.4 print hex("0x1234567890123456"); =back =head1 MODULES USED C<bignum> is just a thin wrapper around various modules of the Math::BigInt family. Think of it as the head of the family, who runs the shop, and orders the others to do the work. The following modules are currently used by bignum: Math::BigInt::Lite (for speed, and only if it is loadable) Math::BigInt Math::BigFloat =head1 EXAMPLES Some cool command line examples to impress the Python crowd ;) perl -Mbignum -le 'print sqrt(33)' perl -Mbignum -le 'print 2*255' perl -Mbignum -le 'print 4.5+2*255' perl -Mbignum -le 'print 3/7 + 5/7 + 8/3' perl -Mbignum -le 'print 123->is_odd()' perl -Mbignum -le 'print log(2)' perl -Mbignum -le 'print exp(1)' perl -Mbignum -le 'print 2 ** 0.5' perl -Mbignum=a,65 -le 'print 2 ** 0.2' perl -Mbignum=a,65,l,GMP -le 'print 7 ** 7777' =head1 BUGS Please report any bugs or feature requests to C<bug-math-bigint at rt.cpan.org>, or through the web interface at L<https://rt.cpan.org/Ticket/Create.html?Queue=bignum> (requires login). We will be notified, and then you'll automatically be notified of progress on your bug as I make changes. =head1 SUPPORT You can find documentation for this module with the perldoc command. perldoc bignum You can also look for information at: =over 4 =item * RT: CPAN's request tracker L<https://rt.cpan.org/Public/Dist/Display.html?Name=bignum> =item * AnnoCPAN: Annotated CPAN documentation L<http://annocpan.org/dist/bignum> =item * CPAN Ratings L<http://cpanratings.perl.org/dist/bignum> =item * Search CPAN L<http://search.cpan.org/dist/bignum/> =item * CPAN Testers Matrix L<http://matrix.cpantesters.org/?dist=bignum> =back =head1 LICENSE This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO L<bigint> and L<bigrat>. L<Math::BigInt>, L<Math::BigFloat>, L<Math::BigRat> and L<Math::Big> as well as L<Math::BigInt::FastCalc>, L<Math::BigInt::Pari> and L<Math::BigInt::GMP>. =head1 AUTHORS =over 4 =item * (C) by Tels L<http://bloodgate.com/> in early 2002 - 2007. =item * Maintained by Peter John Acklam E<lt>pjacklam@gmail.com<gt>, 2014-. =back =cut PK ! �Q@Zu Zu 5.34.0/Test.pmnu �[��� require 5.004; package Test; use strict; use Carp; our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, $ntest, $TestLevel); #public-is our ($TESTOUT, $TESTERR, %Program_Lines, $told_about_diff, $ONFAIL, %todo, %history, $planned, @FAILDETAIL); #private-ish # In case a test is run in a persistent environment. sub _reset_globals { %todo = (); %history = (); @FAILDETAIL = (); $ntest = 1; $TestLevel = 0; # how many extra stack frames to skip $planned = 0; } $VERSION = '1.31'; require Exporter; @ISA=('Exporter'); @EXPORT = qw(&plan &ok &skip); @EXPORT_OK = qw($ntest $TESTOUT $TESTERR); $|=1; $TESTOUT = *STDOUT{IO}; $TESTERR = *STDERR{IO}; # Use of this variable is strongly discouraged. It is set mainly to # help test coverage analyzers know which test is running. $ENV{REGRESSION_TEST} = $0; =head1 NAME Test - provides a simple framework for writing test scripts =head1 SYNOPSIS use strict; use Test; # use a BEGIN block so we print our plan before MyModule is loaded BEGIN { plan tests => 14, todo => [3,4] } # load your module... use MyModule; # Helpful notes. All note-lines must start with a "#". print "# I'm testing MyModule version $MyModule::VERSION\n"; ok(0); # failure ok(1); # success ok(0); # ok, expected failure (see todo list, above) ok(1); # surprise success! ok(0,1); # failure: '0' ne '1' ok('broke','fixed'); # failure: 'broke' ne 'fixed' ok('fixed','fixed'); # success: 'fixed' eq 'fixed' ok('fixed',qr/x/); # success: 'fixed' =~ qr/x/ ok(sub { 1+1 }, 2); # success: '2' eq '2' ok(sub { 1+1 }, 3); # failure: '2' ne '3' my @list = (0,0); ok @list, 3, "\@list=".join(',',@list); #extra notes ok 'segmentation fault', '/(?i)success/'; #regex match skip( $^O =~ m/MSWin/ ? "Skip if MSWin" : 0, # whether to skip $foo, $bar # arguments just like for ok(...) ); skip( $^O =~ m/MSWin/ ? 0 : "Skip unless MSWin", # whether to skip $foo, $bar # arguments just like for ok(...) ); =head1 DESCRIPTION This module simplifies the task of writing test files for Perl modules, such that their output is in the format that L<Test::Harness|Test::Harness> expects to see. =head1 QUICK START GUIDE To write a test for your new (and probably not even done) module, create a new file called F<t/test.t> (in a new F<t> directory). If you have multiple test files, to test the "foo", "bar", and "baz" feature sets, then feel free to call your files F<t/foo.t>, F<t/bar.t>, and F<t/baz.t> =head2 Functions This module defines three public functions, C<plan(...)>, C<ok(...)>, and C<skip(...)>. By default, all three are exported by the C<use Test;> statement. =over 4 =item C<plan(...)> BEGIN { plan %theplan; } This should be the first thing you call in your test script. It declares your testing plan, how many there will be, if any of them should be allowed to fail, and so on. Typical usage is just: use Test; BEGIN { plan tests => 23 } These are the things that you can put in the parameters to plan: =over =item C<tests =E<gt> I<number>> The number of tests in your script. This means all ok() and skip() calls. =item C<todo =E<gt> [I<1,5,14>]> A reference to a list of tests which are allowed to fail. See L</TODO TESTS>. =item C<onfail =E<gt> sub { ... }> =item C<onfail =E<gt> \&some_sub> A subroutine reference to be run at the end of the test script, if any of the tests fail. See L</ONFAIL>. =back You must call C<plan(...)> once and only once. You should call it in a C<BEGIN {...}> block, like so: BEGIN { plan tests => 23 } =cut sub plan { croak "Test::plan(%args): odd number of arguments" if @_ & 1; croak "Test::plan(): should not be called more than once" if $planned; local($\, $,); # guard against -l and other things that screw with # print _reset_globals(); _read_program( (caller)[1] ); my $max=0; while (@_) { my ($k,$v) = splice(@_, 0, 2); if ($k =~ /^test(s)?$/) { $max = $v; } elsif ($k eq 'todo' or $k eq 'failok') { for (@$v) { $todo{$_}=1; }; } elsif ($k eq 'onfail') { ref $v eq 'CODE' or croak "Test::plan(onfail => $v): must be CODE"; $ONFAIL = $v; } else { carp "Test::plan(): skipping unrecognized directive '$k'" } } my @todo = sort { $a <=> $b } keys %todo; if (@todo) { print $TESTOUT "1..$max todo ".join(' ', @todo).";\n"; } else { print $TESTOUT "1..$max\n"; } ++$planned; print $TESTOUT "# Running under perl version $] for $^O", (chr(65) eq 'A') ? "\n" : " in a non-ASCII world\n"; print $TESTOUT "# Win32::BuildNumber ", &Win32::BuildNumber(), "\n" if defined(&Win32::BuildNumber) and defined &Win32::BuildNumber(); print $TESTOUT "# MacPerl version $MacPerl::Version\n" if defined $MacPerl::Version; printf $TESTOUT "# Current time local: %s\n# Current time GMT: %s\n", scalar(localtime($^T)), scalar(gmtime($^T)); print $TESTOUT "# Using Test.pm version $VERSION\n"; # Retval never used: return undef; } sub _read_program { my($file) = shift; return unless defined $file and length $file and -e $file and -f _ and -r _; open(SOURCEFILE, '<', $file) || return; $Program_Lines{$file} = [<SOURCEFILE>]; close(SOURCEFILE); foreach my $x (@{$Program_Lines{$file}}) { $x =~ tr/\cm\cj\n\r//d } unshift @{$Program_Lines{$file}}, ''; return 1; } =begin _private =item B<_to_value> my $value = _to_value($input); Converts an C<ok> parameter to its value. Typically this just means running it, if it's a code reference. You should run all inputted values through this. =cut sub _to_value { my ($v) = @_; return ref $v eq 'CODE' ? $v->() : $v; } sub _quote { my $str = $_[0]; return "<UNDEF>" unless defined $str; $str =~ s/\\/\\\\/g; $str =~ s/"/\\"/g; $str =~ s/\a/\\a/g; $str =~ s/[\b]/\\b/g; $str =~ s/\e/\\e/g; $str =~ s/\f/\\f/g; $str =~ s/\n/\\n/g; $str =~ s/\r/\\r/g; $str =~ s/\t/\\t/g; if (defined $^V && $^V ge v5.6) { $str =~ s/([[:cntrl:]])(?!\d)/sprintf('\\%o',ord($1))/eg; $str =~ s/([[:^print:]])/sprintf('\\x%02X',ord($1))/eg; $str =~ s/([[:^ascii:]])/sprintf('\\x{%X}',ord($1))/eg; } elsif (ord("A") == 65) { $str =~ s/([\0-\037])(?!\d)/sprintf('\\%o',ord($1))/eg; $str =~ s/([\0-\037\177-\377])/sprintf('\\x%02X',ord($1))/eg; $str =~ s/([^\0-\176])/sprintf('\\x{%X}',ord($1))/eg; } else { # Assuming EBCDIC on this ancient Perl # The controls except for one are 0-\077, so almost all controls on # EBCDIC platforms will be expressed in octal, instead of just the C0 # ones. $str =~ s/([\0-\077])(?!\d)/sprintf('\\%o',ord($1))/eg; $str =~ s/([\0-\077])/sprintf('\\x%02X',ord($1))/eg; $str =~ s/([^\0-\xFF])/sprintf('\\x{%X}',ord($1))/eg; # What remains to be escaped are the non-ASCII-range characters, # including the one control that isn't in the 0-077 range. # (We don't escape further any ASCII printables.) $str =~ s<[^ !"\$\%#'()*+,\-./0123456789:;\<=\>?\@ABCDEFGHIJKLMNOPQRSTUVWXYZ\[\\\]^_`abcdefghijklmnopqrstuvwxyz{|}~]><sprintf('\\x%02X',ord($1))>eg; } #if( $_[1] ) { # substr( $str , 218-3 ) = "..." # if length($str) >= 218 and !$ENV{PERL_TEST_NO_TRUNC}; #} return qq("$str"); } =end _private =item C<ok(...)> ok(1 + 1 == 2); ok($have, $expect); ok($have, $expect, $diagnostics); This function is the reason for C<Test>'s existence. It's the basic function that handles printing "C<ok>" or "C<not ok>", along with the current test number. (That's what C<Test::Harness> wants to see.) In its most basic usage, C<ok(...)> simply takes a single scalar expression. If its value is true, the test passes; if false, the test fails. Examples: # Examples of ok(scalar) ok( 1 + 1 == 2 ); # ok if 1 + 1 == 2 ok( $foo =~ /bar/ ); # ok if $foo contains 'bar' ok( baz($x + $y) eq 'Armondo' ); # ok if baz($x + $y) returns # 'Armondo' ok( @a == @b ); # ok if @a and @b are the same # length The expression is evaluated in scalar context. So the following will work: ok( @stuff ); # ok if @stuff has any # elements ok( !grep !defined $_, @stuff ); # ok if everything in @stuff # is defined. A special case is if the expression is a subroutine reference (in either C<sub {...}> syntax or C<\&foo> syntax). In that case, it is executed and its value (true or false) determines if the test passes or fails. For example, ok( sub { # See whether sleep works at least passably my $start_time = time; sleep 5; time() - $start_time >= 4 }); In its two-argument form, C<ok(I<arg1>, I<arg2>)> compares the two scalar values to see if they match. They match if both are undefined, or if I<arg2> is a regex that matches I<arg1>, or if they compare equal with C<eq>. # Example of ok(scalar, scalar) ok( "this", "that" ); # not ok, 'this' ne 'that' ok( "", undef ); # not ok, "" is defined The second argument is considered a regex if it is either a regex object or a string that looks like a regex. Regex objects are constructed with the qr// operator in recent versions of perl. A string is considered to look like a regex if its first and last characters are "/", or if the first character is "m" and its second and last characters are both the same non-alphanumeric non-whitespace character. These regexp Regex examples: ok( 'JaffO', '/Jaff/' ); # ok, 'JaffO' =~ /Jaff/ ok( 'JaffO', 'm|Jaff|' ); # ok, 'JaffO' =~ m|Jaff| ok( 'JaffO', qr/Jaff/ ); # ok, 'JaffO' =~ qr/Jaff/; ok( 'JaffO', '/(?i)jaff/ ); # ok, 'JaffO' =~ /jaff/i; If either (or both!) is a subroutine reference, it is run and used as the value for comparing. For example: ok sub { open(OUT, '>', 'x.dat') || die $!; print OUT "\x{e000}"; close OUT; my $bytecount = -s 'x.dat'; unlink 'x.dat' or warn "Can't unlink : $!"; return $bytecount; }, 4 ; The above test passes two values to C<ok(arg1, arg2)> -- the first a coderef, and the second is the number 4. Before C<ok> compares them, it calls the coderef, and uses its return value as the real value of this parameter. Assuming that C<$bytecount> returns 4, C<ok> ends up testing C<4 eq 4>. Since that's true, this test passes. Finally, you can append an optional third argument, in C<ok(I<arg1>,I<arg2>, I<note>)>, where I<note> is a string value that will be printed if the test fails. This should be some useful information about the test, pertaining to why it failed, and/or a description of the test. For example: ok( grep($_ eq 'something unique', @stuff), 1, "Something that should be unique isn't!\n". '@stuff = '.join ', ', @stuff ); Unfortunately, a note cannot be used with the single argument style of C<ok()>. That is, if you try C<ok(I<arg1>, I<note>)>, then C<Test> will interpret this as C<ok(I<arg1>, I<arg2>)>, and probably end up testing C<I<arg1> eq I<arg2>> -- and that's not what you want! All of the above special cases can occasionally cause some problems. See L</BUGS and CAVEATS>. =cut # A past maintainer of this module said: # <<ok(...)'s special handling of subroutine references is an unfortunate # "feature" that can't be removed due to compatibility.>> # sub ok ($;$$) { croak "ok: plan before you test!" if !$planned; local($\,$,); # guard against -l and other things that screw with # print my ($pkg,$file,$line) = caller($TestLevel); my $repetition = ++$history{"$file:$line"}; my $context = ("$file at line $line". ($repetition > 1 ? " fail \#$repetition" : '')); # Are we comparing two values? my $compare = 0; my $ok=0; my $result = _to_value(shift); my ($expected, $isregex, $regex); if (@_ == 0) { $ok = $result; } else { $compare = 1; $expected = _to_value(shift); if (!defined $expected) { $ok = !defined $result; } elsif (!defined $result) { $ok = 0; } elsif (ref($expected) eq 'Regexp') { $ok = $result =~ /$expected/; $regex = $expected; } elsif (($regex) = ($expected =~ m,^ / (.+) / $,sx) or (undef, $regex) = ($expected =~ m,^ m([^\w\s]) (.+) \1 $,sx)) { $ok = $result =~ /$regex/; } else { $ok = $result eq $expected; } } my $todo = $todo{$ntest}; if ($todo and $ok) { $context .= ' TODO?!' if $todo; print $TESTOUT "ok $ntest # ($context)\n"; } else { # Issuing two seperate prints() causes problems on VMS. if (!$ok) { print $TESTOUT "not ok $ntest\n"; } else { print $TESTOUT "ok $ntest\n"; } $ok or _complain($result, $expected, { 'repetition' => $repetition, 'package' => $pkg, 'result' => $result, 'todo' => $todo, 'file' => $file, 'line' => $line, 'context' => $context, 'compare' => $compare, @_ ? ('diagnostic' => _to_value(shift)) : (), }); } ++ $ntest; $ok; } sub _complain { my($result, $expected, $detail) = @_; $$detail{expected} = $expected if defined $expected; # Get the user's diagnostic, protecting against multi-line # diagnostics. my $diag = $$detail{diagnostic}; $diag =~ s/\n/\n#/g if defined $diag; my $out = $$detail{todo} ? $TESTOUT : $TESTERR; $$detail{context} .= ' *TODO*' if $$detail{todo}; if (!$$detail{compare}) { if (!$diag) { print $out "# Failed test $ntest in $$detail{context}\n"; } else { print $out "# Failed test $ntest in $$detail{context}: $diag\n"; } } else { my $prefix = "Test $ntest"; print $out "# $prefix got: " . _quote($result) . " ($$detail{context})\n"; $prefix = ' ' x (length($prefix) - 5); my $expected_quoted = (defined $$detail{regex}) ? 'qr{'.($$detail{regex}).'}' : _quote($expected); print $out "# $prefix Expected: $expected_quoted", $diag ? " ($diag)" : (), "\n"; _diff_complain( $result, $expected, $detail, $prefix ) if defined($expected) and 2 < ($expected =~ tr/\n//); } if(defined $Program_Lines{ $$detail{file} }[ $$detail{line} ]) { print $out "# $$detail{file} line $$detail{line} is: $Program_Lines{ $$detail{file} }[ $$detail{line} ]\n" if $Program_Lines{ $$detail{file} }[ $$detail{line} ] =~ m/[^\s\#\(\)\{\}\[\]\;]/; # Otherwise it's uninformative undef $Program_Lines{ $$detail{file} }[ $$detail{line} ]; # So we won't repeat it. } push @FAILDETAIL, $detail; return; } sub _diff_complain { my($result, $expected, $detail, $prefix) = @_; return _diff_complain_external(@_) if $ENV{PERL_TEST_DIFF}; return _diff_complain_algdiff(@_) if eval { local @INC = @INC; pop @INC if $INC[-1] eq '.'; require Algorithm::Diff; Algorithm::Diff->VERSION(1.15); 1; }; $told_about_diff++ or print $TESTERR <<"EOT"; # $prefix (Install the Algorithm::Diff module to have differences in multiline # $prefix output explained. You might also set the PERL_TEST_DIFF environment # $prefix variable to run a diff program on the output.) EOT ; return; } sub _diff_complain_external { my($result, $expected, $detail, $prefix) = @_; my $diff = $ENV{PERL_TEST_DIFF} || die "WHAAAA?"; require File::Temp; my($got_fh, $got_filename) = File::Temp::tempfile("test-got-XXXXX"); my($exp_fh, $exp_filename) = File::Temp::tempfile("test-exp-XXXXX"); unless ($got_fh && $exp_fh) { warn "Can't get tempfiles"; return; } print $got_fh $result; print $exp_fh $expected; if (close($got_fh) && close($exp_fh)) { my $diff_cmd = "$diff $exp_filename $got_filename"; print $TESTERR "#\n# $prefix $diff_cmd\n"; if (open(DIFF, '-|', $diff_cmd)) { local $_; while (<DIFF>) { print $TESTERR "# $prefix $_"; } close(DIFF); } else { warn "Can't run diff: $!"; } } else { warn "Can't write to tempfiles: $!"; } unlink($got_filename); unlink($exp_filename); return; } sub _diff_complain_algdiff { my($result, $expected, $detail, $prefix) = @_; my @got = split(/^/, $result); my @exp = split(/^/, $expected); my $diff_kind; my @diff_lines; my $diff_flush = sub { return unless $diff_kind; my $count_lines = @diff_lines; my $s = $count_lines == 1 ? "" : "s"; my $first_line = $diff_lines[0][0] + 1; print $TESTERR "# $prefix "; if ($diff_kind eq "GOT") { print $TESTERR "Got $count_lines extra line$s at line $first_line:\n"; for my $i (@diff_lines) { print $TESTERR "# $prefix + " . _quote($got[$i->[0]]) . "\n"; } } elsif ($diff_kind eq "EXP") { if ($count_lines > 1) { my $last_line = $diff_lines[-1][0] + 1; print $TESTERR "Lines $first_line-$last_line are"; } else { print $TESTERR "Line $first_line is"; } print $TESTERR " missing:\n"; for my $i (@diff_lines) { print $TESTERR "# $prefix - " . _quote($exp[$i->[1]]) . "\n"; } } elsif ($diff_kind eq "CH") { if ($count_lines > 1) { my $last_line = $diff_lines[-1][0] + 1; print $TESTERR "Lines $first_line-$last_line are"; } else { print $TESTERR "Line $first_line is"; } print $TESTERR " changed:\n"; for my $i (@diff_lines) { print $TESTERR "# $prefix - " . _quote($exp[$i->[1]]) . "\n"; print $TESTERR "# $prefix + " . _quote($got[$i->[0]]) . "\n"; } } # reset $diff_kind = undef; @diff_lines = (); }; my $diff_collect = sub { my $kind = shift; &$diff_flush() if $diff_kind && $diff_kind ne $kind; $diff_kind = $kind; push(@diff_lines, [@_]); }; Algorithm::Diff::traverse_balanced( \@got, \@exp, { DISCARD_A => sub { &$diff_collect("GOT", @_) }, DISCARD_B => sub { &$diff_collect("EXP", @_) }, CHANGE => sub { &$diff_collect("CH", @_) }, MATCH => sub { &$diff_flush() }, }, ); &$diff_flush(); return; } #~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~ =item C<skip(I<skip_if_true>, I<args...>)> This is used for tests that under some conditions can be skipped. It's basically equivalent to: if( $skip_if_true ) { ok(1); } else { ok( args... ); } ...except that the C<ok(1)> emits not just "C<ok I<testnum>>" but actually "C<ok I<testnum> # I<skip_if_true_value>>". The arguments after the I<skip_if_true> are what is fed to C<ok(...)> if this test isn't skipped. Example usage: my $if_MSWin = $^O =~ m/MSWin/ ? 'Skip if under MSWin' : ''; # A test to be skipped if under MSWin (i.e., run except under # MSWin) skip($if_MSWin, thing($foo), thing($bar) ); Or, going the other way: my $unless_MSWin = $^O =~ m/MSWin/ ? '' : 'Skip unless under MSWin'; # A test to be skipped unless under MSWin (i.e., run only under # MSWin) skip($unless_MSWin, thing($foo), thing($bar) ); The tricky thing to remember is that the first parameter is true if you want to I<skip> the test, not I<run> it; and it also doubles as a note about why it's being skipped. So in the first codeblock above, read the code as "skip if MSWin -- (otherwise) test whether C<thing($foo)> is C<thing($bar)>" or for the second case, "skip unless MSWin...". Also, when your I<skip_if_reason> string is true, it really should (for backwards compatibility with older Test.pm versions) start with the string "Skip", as shown in the above examples. Note that in the above cases, C<thing($foo)> and C<thing($bar)> I<are> evaluated -- but as long as the C<skip_if_true> is true, then we C<skip(...)> just tosses out their value (i.e., not bothering to treat them like values to C<ok(...)>. But if you need to I<not> eval the arguments when skipping the test, use this format: skip( $unless_MSWin, sub { # This code returns true if the test passes. # (But it doesn't even get called if the test is skipped.) thing($foo) eq thing($bar) } ); or even this, which is basically equivalent: skip( $unless_MSWin, sub { thing($foo) }, sub { thing($bar) } ); That is, both are like this: if( $unless_MSWin ) { ok(1); # but it actually appends "# $unless_MSWin" # so that Test::Harness can tell it's a skip } else { # Not skipping, so actually call and evaluate... ok( sub { thing($foo) }, sub { thing($bar) } ); } =cut sub skip ($;$$$) { local($\, $,); # guard against -l and other things that screw with # print my $whyskip = _to_value(shift); if (!@_ or $whyskip) { $whyskip = '' if $whyskip =~ m/^\d+$/; $whyskip =~ s/^[Ss]kip(?:\s+|$)//; # backwards compatibility, old # versions required the reason # to start with 'skip' # We print in one shot for VMSy reasons. my $ok = "ok $ntest # skip"; $ok .= " $whyskip" if length $whyskip; $ok .= "\n"; print $TESTOUT $ok; ++ $ntest; return 1; } else { # backwards compatibility (I think). skip() used to be # called like ok(), which is weird. I haven't decided what to do with # this yet. # warn <<WARN if $^W; #This looks like a skip() using the very old interface. Please upgrade to #the documented interface as this has been deprecated. #WARN local($TestLevel) = $TestLevel+1; #to ignore this stack frame return &ok(@_); } } =back =cut END { $ONFAIL->(\@FAILDETAIL) if @FAILDETAIL && $ONFAIL; } 1; __END__ =head1 TEST TYPES =over 4 =item * NORMAL TESTS These tests are expected to succeed. Usually, most or all of your tests are in this category. If a normal test doesn't succeed, then that means that something is I<wrong>. =item * SKIPPED TESTS The C<skip(...)> function is for tests that might or might not be possible to run, depending on the availability of platform-specific features. The first argument should evaluate to true (think "yes, please skip") if the required feature is I<not> available. After the first argument, C<skip(...)> works exactly the same way as C<ok(...)> does. =item * TODO TESTS TODO tests are designed for maintaining an B<executable TODO list>. These tests are I<expected to fail.> If a TODO test does succeed, then the feature in question shouldn't be on the TODO list, now should it? Packages should NOT be released with succeeding TODO tests. As soon as a TODO test starts working, it should be promoted to a normal test, and the newly working feature should be documented in the release notes or in the change log. =back =head1 ONFAIL BEGIN { plan test => 4, onfail => sub { warn "CALL 911!" } } Although test failures should be enough, extra diagnostics can be triggered at the end of a test run. C<onfail> is passed an array ref of hash refs that describe each test failure. Each hash will contain at least the following fields: C<package>, C<repetition>, and C<result>. (You shouldn't rely on any other fields being present.) If the test had an expected value or a diagnostic (or "note") string, these will also be included. The I<optional> C<onfail> hook might be used simply to print out the version of your package and/or how to report problems. It might also be used to generate extremely sophisticated diagnostics for a particularly bizarre test failure. However it's not a panacea. Core dumps or other unrecoverable errors prevent the C<onfail> hook from running. (It is run inside an C<END> block.) Besides, C<onfail> is probably over-kill in most cases. (Your test code should be simpler than the code it is testing, yes?) =head1 BUGS and CAVEATS =over =item * C<ok(...)>'s special handing of strings which look like they might be regexes can also cause unexpected behavior. An innocent: ok( $fileglob, '/path/to/some/*stuff/' ); will fail, since Test.pm considers the second argument to be a regex! The best bet is to use the one-argument form: ok( $fileglob eq '/path/to/some/*stuff/' ); =item * C<ok(...)>'s use of string C<eq> can sometimes cause odd problems when comparing numbers, especially if you're casting a string to a number: $foo = "1.0"; ok( $foo, 1 ); # not ok, "1.0" ne 1 Your best bet is to use the single argument form: ok( $foo == 1 ); # ok "1.0" == 1 =item * As you may have inferred from the above documentation and examples, C<ok>'s prototype is C<($;$$)> (and, incidentally, C<skip>'s is C<($;$$$)>). This means, for example, that you can do C<ok @foo, @bar> to compare the I<size> of the two arrays. But don't be fooled into thinking that C<ok @foo, @bar> means a comparison of the contents of two arrays -- you're comparing I<just> the number of elements of each. It's so easy to make that mistake in reading C<ok @foo, @bar> that you might want to be very explicit about it, and instead write C<ok scalar(@foo), scalar(@bar)>. =item * This almost definitely doesn't do what you expect: ok $thingy->can('some_method'); Why? Because C<can> returns a coderef to mean "yes it can (and the method is this...)", and then C<ok> sees a coderef and thinks you're passing a function that you want it to call and consider the truth of the result of! I.e., just like: ok $thingy->can('some_method')->(); What you probably want instead is this: ok $thingy->can('some_method') && 1; If the C<can> returns false, then that is passed to C<ok>. If it returns true, then the larger expression S<< C<< $thingy->can('some_method') && 1 >> >> returns 1, which C<ok> sees as a simple signal of success, as you would expect. =item * The syntax for C<skip> is about the only way it can be, but it's still quite confusing. Just start with the above examples and you'll be okay. Moreover, users may expect this: skip $unless_mswin, foo($bar), baz($quux); to not evaluate C<foo($bar)> and C<baz($quux)> when the test is being skipped. But in reality, they I<are> evaluated, but C<skip> just won't bother comparing them if C<$unless_mswin> is true. You could do this: skip $unless_mswin, sub{foo($bar)}, sub{baz($quux)}; But that's not terribly pretty. You may find it simpler or clearer in the long run to just do things like this: if( $^O =~ m/MSWin/ ) { print "# Yay, we're under $^O\n"; ok foo($bar), baz($quux); ok thing($whatever), baz($stuff); ok blorp($quux, $whatever); ok foo($barzbarz), thang($quux); } else { print "# Feh, we're under $^O. Watch me skip some tests...\n"; for(1 .. 4) { skip "Skip unless under MSWin" } } But be quite sure that C<ok> is called exactly as many times in the first block as C<skip> is called in the second block. =back =head1 ENVIRONMENT If C<PERL_TEST_DIFF> environment variable is set, it will be used as a command for comparing unexpected multiline results. If you have GNU diff installed, you might want to set C<PERL_TEST_DIFF> to C<diff -u>. If you don't have a suitable program, you might install the C<Text::Diff> module and then set C<PERL_TEST_DIFF> to be C<perl -MText::Diff -e 'print diff(@ARGV)'>. If C<PERL_TEST_DIFF> isn't set but the C<Algorithm::Diff> module is available, then it will be used to show the differences in multiline results. =for comment If C<PERL_TEST_NO_TRUNC> is set, then the initial "Got 'something' but expected 'something_else'" readings for long multiline output values aren't truncated at about the 230th column, as they normally could be in some cases. Normally you won't need to use this, unless you were carefully parsing the output of your test programs. =head1 NOTE A past developer of this module once said that it was no longer being actively developed. However, rumors of its demise were greatly exaggerated. Feedback and suggestions are quite welcome. Be aware that the main value of this module is its simplicity. Note that there are already more ambitious modules out there, such as L<Test::More> and L<Test::Unit>. Some earlier versions of this module had docs with some confusing typos in the description of C<skip(...)>. =head1 SEE ALSO L<Test::Harness> L<Test::Simple>, L<Test::More>, L<Devel::Cover> L<Test::Builder> for building your own testing library. L<Test::Unit> is an interesting XUnit-style testing library. L<Test::Inline> lets you embed tests in code. =head1 AUTHOR Copyright (c) 1998-2000 Joshua Nathaniel Pritikin. Copyright (c) 2001-2002 Michael G. Schwern. Copyright (c) 2002-2004 Sean M. Burke. Current maintainer: Jesse Vincent. E<lt>jesse@bestpractical.comE<gt> This package is free software and is provided "as is" without express or implied warranty. It may be used, redistributed and/or modified under the same terms as Perl itself. =cut # "Your mistake was a hidden intention." # -- /Oblique Strategies/, Brian Eno and Peter Schmidt PK ! R}��� �� 5.34.0/Carp.pmnu �[��� package Carp; { use 5.006; } use strict; use warnings; BEGIN { # Very old versions of warnings.pm load Carp. This can go wrong due # to the circular dependency. If warnings is invoked before Carp, # then warnings starts by loading Carp, then Carp (above) tries to # invoke warnings, and gets nothing because warnings is in the process # of loading and hasn't defined its import method yet. If we were # only turning on warnings ("use warnings" above) this wouldn't be too # bad, because Carp would just gets the state of the -w switch and so # might not get some warnings that it wanted. The real problem is # that we then want to turn off Unicode warnings, but "no warnings # 'utf8'" won't be effective if we're in this circular-dependency # situation. So, if warnings.pm is an affected version, we turn # off all warnings ourselves by directly setting ${^WARNING_BITS}. # On unaffected versions, we turn off just Unicode warnings, via # the proper API. if(!defined($warnings::VERSION) || eval($warnings::VERSION) < 1.06) { ${^WARNING_BITS} = ""; } else { "warnings"->unimport("utf8"); } } sub _fetch_sub { # fetch sub without autovivifying my($pack, $sub) = @_; $pack .= '::'; # only works with top-level packages return unless exists($::{$pack}); for ($::{$pack}) { return unless ref \$_ eq 'GLOB' && *$_{HASH} && exists $$_{$sub}; for ($$_{$sub}) { return ref \$_ eq 'GLOB' ? *$_{CODE} : undef } } } # UTF8_REGEXP_PROBLEM is a compile-time constant indicating whether Carp # must avoid applying a regular expression to an upgraded (is_utf8) # string. There are multiple problems, on different Perl versions, # that require this to be avoided. All versions prior to 5.13.8 will # load utf8_heavy.pl for the swash system, even if the regexp doesn't # use character classes. Perl 5.6 and Perls [5.11.2, 5.13.11) exhibit # specific problems when Carp is being invoked in the aftermath of a # syntax error. BEGIN { if("$]" < 5.013011) { *UTF8_REGEXP_PROBLEM = sub () { 1 }; } else { *UTF8_REGEXP_PROBLEM = sub () { 0 }; } } # is_utf8() is essentially the utf8::is_utf8() function, which indicates # whether a string is represented in the upgraded form (using UTF-8 # internally). As utf8::is_utf8() is only available from Perl 5.8 # onwards, extra effort is required here to make it work on Perl 5.6. BEGIN { if(defined(my $sub = _fetch_sub utf8 => 'is_utf8')) { *is_utf8 = $sub; } else { # black magic for perl 5.6 *is_utf8 = sub { unpack("C", "\xaa".$_[0]) != 170 }; } } # The downgrade() function defined here is to be used for attempts to # downgrade where it is acceptable to fail. It must be called with a # second argument that is a true value. BEGIN { if(defined(my $sub = _fetch_sub utf8 => 'downgrade')) { *downgrade = \&{"utf8::downgrade"}; } else { *downgrade = sub { my $r = ""; my $l = length($_[0]); for(my $i = 0; $i != $l; $i++) { my $o = ord(substr($_[0], $i, 1)); return if $o > 255; $r .= chr($o); } $_[0] = $r; }; } } # is_safe_printable_codepoint() indicates whether a character, specified # by integer codepoint, is OK to output literally in a trace. Generally # this is if it is a printable character in the ancestral character set # (ASCII or EBCDIC). This is used on some Perls in situations where a # regexp can't be used. BEGIN { *is_safe_printable_codepoint = "$]" >= 5.007_003 ? eval(q(sub ($) { my $u = utf8::native_to_unicode($_[0]); $u >= 0x20 && $u <= 0x7e; })) : ord("A") == 65 ? sub ($) { $_[0] >= 0x20 && $_[0] <= 0x7e } : sub ($) { # Early EBCDIC # 3 EBCDIC code pages supported then; all controls but one # are the code points below SPACE. The other one is 0x5F on # POSIX-BC; FF on the other two. # FIXME: there are plenty of unprintable codepoints other # than those that this code and the comment above identifies # as "controls". $_[0] >= ord(" ") && $_[0] <= 0xff && $_[0] != (ord ("^") == 106 ? 0x5f : 0xff); } ; } sub _univ_mod_loaded { return 0 unless exists($::{"UNIVERSAL::"}); for ($::{"UNIVERSAL::"}) { return 0 unless ref \$_ eq "GLOB" && *$_{HASH} && exists $$_{"$_[0]::"}; for ($$_{"$_[0]::"}) { return 0 unless ref \$_ eq "GLOB" && *$_{HASH} && exists $$_{"VERSION"}; for ($$_{"VERSION"}) { return 0 unless ref \$_ eq "GLOB"; return ${*$_{SCALAR}}; } } } } # _maybe_isa() is usually the UNIVERSAL::isa function. We have to avoid # the latter if the UNIVERSAL::isa module has been loaded, to avoid infi- # nite recursion; in that case _maybe_isa simply returns true. my $isa; BEGIN { if (_univ_mod_loaded('isa')) { *_maybe_isa = sub { 1 } } else { # Since we have already done the check, record $isa for use below # when defining _StrVal. *_maybe_isa = $isa = _fetch_sub(UNIVERSAL => "isa"); } } # We need an overload::StrVal or equivalent function, but we must avoid # loading any modules on demand, as Carp is used from __DIE__ handlers and # may be invoked after a syntax error. # We can copy recent implementations of overload::StrVal and use # overloading.pm, which is the fastest implementation, so long as # overloading is available. If it is not available, we use our own pure- # Perl StrVal. We never actually use overload::StrVal, for various rea- # sons described below. # overload versions are as follows: # undef-1.00 (up to perl 5.8.0) uses bless (avoid!) # 1.01-1.17 (perl 5.8.1 to 5.14) uses Scalar::Util # 1.18+ (perl 5.16+) uses overloading # The ancient 'bless' implementation (that inspires our pure-Perl version) # blesses unblessed references and must be avoided. Those using # Scalar::Util use refaddr, possibly the pure-Perl implementation, which # has the same blessing bug, and must be avoided. Also, Scalar::Util is # loaded on demand. Since we avoid the Scalar::Util implementations, we # end up having to implement our own overloading.pm-based version for perl # 5.10.1 to 5.14. Since it also works just as well in more recent ver- # sions, we use it there, too. BEGIN { if (eval { require "overloading.pm" }) { *_StrVal = eval 'sub { no overloading; "$_[0]" }' } else { # Work around the UNIVERSAL::can/isa modules to avoid recursion. # _mycan is either UNIVERSAL::can, or, in the presence of an # override, overload::mycan. *_mycan = _univ_mod_loaded('can') ? do { require "overload.pm"; _fetch_sub overload => 'mycan' } : \&UNIVERSAL::can; # _blessed is either UNIVERAL::isa(...), or, in the presence of an # override, a hideous, but fairly reliable, workaround. *_blessed = $isa ? sub { &$isa($_[0], "UNIVERSAL") } : sub { my $probe = "UNIVERSAL::Carp_probe_" . rand; no strict 'refs'; local *$probe = sub { "unlikely string" }; local $@; local $SIG{__DIE__} = sub{}; (eval { $_[0]->$probe } || '') eq 'unlikely string' }; *_StrVal = sub { my $pack = ref $_[0]; # Perl's overload mechanism uses the presence of a special # "method" named "((" or "()" to signal it is in effect. # This test seeks to see if it has been set up. "((" post- # dates overloading.pm, so we can skip it. return "$_[0]" unless _mycan($pack, "()"); # Even at this point, the invocant may not be blessed, so # check for that. return "$_[0]" if not _blessed($_[0]); bless $_[0], "Carp"; my $str = "$_[0]"; bless $_[0], $pack; $pack . substr $str, index $str, "="; } } } our $VERSION = '1.52'; $VERSION =~ tr/_//d; our $MaxEvalLen = 0; our $Verbose = 0; our $CarpLevel = 0; our $MaxArgLen = 64; # How much of each argument to print. 0 = all. our $MaxArgNums = 8; # How many arguments to print. 0 = all. our $RefArgFormatter = undef; # allow caller to format reference arguments require Exporter; our @ISA = ('Exporter'); our @EXPORT = qw(confess croak carp); our @EXPORT_OK = qw(cluck verbose longmess shortmess); our @EXPORT_FAIL = qw(verbose); # hook to enable verbose mode # The members of %Internal are packages that are internal to perl. # Carp will not report errors from within these packages if it # can. The members of %CarpInternal are internal to Perl's warning # system. Carp will not report errors from within these packages # either, and will not report calls *to* these packages for carp and # croak. They replace $CarpLevel, which is deprecated. The # $Max(EvalLen|(Arg(Len|Nums)) variables are used to specify how the eval # text and function arguments should be formatted when printed. our %CarpInternal; our %Internal; # disable these by default, so they can live w/o require Carp $CarpInternal{Carp}++; $CarpInternal{warnings}++; $Internal{Exporter}++; $Internal{'Exporter::Heavy'}++; # if the caller specifies verbose usage ("perl -MCarp=verbose script.pl") # then the following method will be called by the Exporter which knows # to do this thanks to @EXPORT_FAIL, above. $_[1] will contain the word # 'verbose'. sub export_fail { shift; $Verbose = shift if $_[0] eq 'verbose'; @_ } sub _cgc { no strict 'refs'; return \&{"CORE::GLOBAL::caller"} if defined &{"CORE::GLOBAL::caller"}; return; } sub longmess { local($!, $^E); # Icky backwards compatibility wrapper. :-( # # The story is that the original implementation hard-coded the # number of call levels to go back, so calls to longmess were off # by one. Other code began calling longmess and expecting this # behaviour, so the replacement has to emulate that behaviour. my $cgc = _cgc(); my $call_pack = $cgc ? $cgc->() : caller(); if ( $Internal{$call_pack} or $CarpInternal{$call_pack} ) { return longmess_heavy(@_); } else { local $CarpLevel = $CarpLevel + 1; return longmess_heavy(@_); } } our @CARP_NOT; sub shortmess { local($!, $^E); my $cgc = _cgc(); # Icky backwards compatibility wrapper. :-( local @CARP_NOT = scalar( $cgc ? $cgc->() : caller() ); shortmess_heavy(@_); } sub croak { die shortmess @_ } sub confess { die longmess @_ } sub carp { warn shortmess @_ } sub cluck { warn longmess @_ } BEGIN { if("$]" >= 5.015002 || ("$]" >= 5.014002 && "$]" < 5.015) || ("$]" >= 5.012005 && "$]" < 5.013)) { *CALLER_OVERRIDE_CHECK_OK = sub () { 1 }; } else { *CALLER_OVERRIDE_CHECK_OK = sub () { 0 }; } } sub caller_info { my $i = shift(@_) + 1; my %call_info; my $cgc = _cgc(); { # Some things override caller() but forget to implement the # @DB::args part of it, which we need. We check for this by # pre-populating @DB::args with a sentinel which no-one else # has the address of, so that we can detect whether @DB::args # has been properly populated. However, on earlier versions # of perl this check tickles a bug in CORE::caller() which # leaks memory. So we only check on fixed perls. @DB::args = \$i if CALLER_OVERRIDE_CHECK_OK; package DB; @call_info{ qw(pack file line sub has_args wantarray evaltext is_require) } = $cgc ? $cgc->($i) : caller($i); } unless ( defined $call_info{file} ) { return (); } my $sub_name = Carp::get_subname( \%call_info ); if ( $call_info{has_args} ) { # Guard our serialization of the stack from stack refcounting bugs # NOTE this is NOT a complete solution, we cannot 100% guard against # these bugs. However in many cases Perl *is* capable of detecting # them and throws an error when it does. Unfortunately serializing # the arguments on the stack is a perfect way of finding these bugs, # even when they would not affect normal program flow that did not # poke around inside the stack. Inside of Carp.pm it makes little # sense reporting these bugs, as Carp's job is to report the callers # errors, not the ones it might happen to tickle while doing so. # See: https://rt.perl.org/Public/Bug/Display.html?id=131046 # and: https://rt.perl.org/Public/Bug/Display.html?id=52610 # for more details and discussion. - Yves my @args = map { my $arg; local $@= $@; eval { $arg = $_; 1; } or do { $arg = '** argument not available anymore **'; }; $arg; } @DB::args; if (CALLER_OVERRIDE_CHECK_OK && @args == 1 && ref $args[0] eq ref \$i && $args[0] == \$i ) { @args = (); # Don't let anyone see the address of $i local $@; my $where = eval { my $func = $cgc or return ''; my $gv = (_fetch_sub B => 'svref_2object' or return '') ->($func)->GV; my $package = $gv->STASH->NAME; my $subname = $gv->NAME; return unless defined $package && defined $subname; # returning CORE::GLOBAL::caller isn't useful for tracing the cause: return if $package eq 'CORE::GLOBAL' && $subname eq 'caller'; " in &${package}::$subname"; } || ''; @args = "** Incomplete caller override detected$where; \@DB::args were not set **"; } else { my $overflow; if ( $MaxArgNums and @args > $MaxArgNums ) { # More than we want to show? $#args = $MaxArgNums - 1; $overflow = 1; } @args = map { Carp::format_arg($_) } @args; if ($overflow) { push @args, '...'; } } # Push the args onto the subroutine $sub_name .= '(' . join( ', ', @args ) . ')'; } $call_info{sub_name} = $sub_name; return wantarray() ? %call_info : \%call_info; } # Transform an argument to a function into a string. our $in_recurse; sub format_arg { my $arg = shift; if ( my $pack= ref($arg) ) { # legitimate, let's not leak it. if (!$in_recurse && _maybe_isa( $arg, 'UNIVERSAL' ) && do { local $@; local $in_recurse = 1; local $SIG{__DIE__} = sub{}; eval {$arg->can('CARP_TRACE') } }) { return $arg->CARP_TRACE(); } elsif (!$in_recurse && defined($RefArgFormatter) && do { local $@; local $in_recurse = 1; local $SIG{__DIE__} = sub{}; eval {$arg = $RefArgFormatter->($arg); 1} }) { return $arg; } else { # Argument may be blessed into a class with overloading, and so # might have an overloaded stringification. We don't want to # risk getting the overloaded stringification, so we need to # use _StrVal, our overload::StrVal()-equivalent. return _StrVal $arg; } } return "undef" if !defined($arg); downgrade($arg, 1); return $arg if !(UTF8_REGEXP_PROBLEM && is_utf8($arg)) && $arg =~ /\A-?[0-9]+(?:\.[0-9]*)?(?:[eE][-+]?[0-9]+)?\z/; my $suffix = ""; if ( 2 < $MaxArgLen and $MaxArgLen < length($arg) ) { substr ( $arg, $MaxArgLen - 3 ) = ""; $suffix = "..."; } if(UTF8_REGEXP_PROBLEM && is_utf8($arg)) { for(my $i = length($arg); $i--; ) { my $c = substr($arg, $i, 1); my $x = substr($arg, 0, 0); # work around bug on Perl 5.8.{1,2} if($c eq "\"" || $c eq "\\" || $c eq "\$" || $c eq "\@") { substr $arg, $i, 0, "\\"; next; } my $o = ord($c); substr $arg, $i, 1, sprintf("\\x{%x}", $o) unless is_safe_printable_codepoint($o); } } else { $arg =~ s/([\"\\\$\@])/\\$1/g; # This is all the ASCII printables spelled-out. It is portable to all # Perl versions and platforms (such as EBCDIC). There are other more # compact ways to do this, but may not work everywhere every version. $arg =~ s/([^ !"#\$\%\&'()*+,\-.\/0123456789:;<=>?\@ABCDEFGHIJKLMNOPQRSTUVWXYZ\[\\\]^_`abcdefghijklmnopqrstuvwxyz\{|}~])/sprintf("\\x{%x}",ord($1))/eg; } downgrade($arg, 1); return "\"".$arg."\"".$suffix; } sub Regexp::CARP_TRACE { my $arg = "$_[0]"; downgrade($arg, 1); if(UTF8_REGEXP_PROBLEM && is_utf8($arg)) { for(my $i = length($arg); $i--; ) { my $o = ord(substr($arg, $i, 1)); my $x = substr($arg, 0, 0); # work around bug on Perl 5.8.{1,2} substr $arg, $i, 1, sprintf("\\x{%x}", $o) unless is_safe_printable_codepoint($o); } } else { # See comment in format_arg() about this same regex. $arg =~ s/([^ !"#\$\%\&'()*+,\-.\/0123456789:;<=>?\@ABCDEFGHIJKLMNOPQRSTUVWXYZ\[\\\]^_`abcdefghijklmnopqrstuvwxyz\{|}~])/sprintf("\\x{%x}",ord($1))/eg; } downgrade($arg, 1); my $suffix = ""; if($arg =~ /\A\(\?\^?([a-z]*)(?:-[a-z]*)?:(.*)\)\z/s) { ($suffix, $arg) = ($1, $2); } if ( 2 < $MaxArgLen and $MaxArgLen < length($arg) ) { substr ( $arg, $MaxArgLen - 3 ) = ""; $suffix = "...".$suffix; } return "qr($arg)$suffix"; } # Takes an inheritance cache and a package and returns # an anon hash of known inheritances and anon array of # inheritances which consequences have not been figured # for. sub get_status { my $cache = shift; my $pkg = shift; $cache->{$pkg} ||= [ { $pkg => $pkg }, [ trusts_directly($pkg) ] ]; return @{ $cache->{$pkg} }; } # Takes the info from caller() and figures out the name of # the sub/require/eval sub get_subname { my $info = shift; if ( defined( $info->{evaltext} ) ) { my $eval = $info->{evaltext}; if ( $info->{is_require} ) { return "require $eval"; } else { $eval =~ s/([\\\'])/\\$1/g; return "eval '" . str_len_trim( $eval, $MaxEvalLen ) . "'"; } } # this can happen on older perls when the sub (or the stash containing it) # has been deleted if ( !defined( $info->{sub} ) ) { return '__ANON__::__ANON__'; } return ( $info->{sub} eq '(eval)' ) ? 'eval {...}' : $info->{sub}; } # Figures out what call (from the point of view of the caller) # the long error backtrace should start at. sub long_error_loc { my $i; my $lvl = $CarpLevel; { ++$i; my $cgc = _cgc(); my @caller = $cgc ? $cgc->($i) : caller($i); my $pkg = $caller[0]; unless ( defined($pkg) ) { # This *shouldn't* happen. if (%Internal) { local %Internal; $i = long_error_loc(); last; } elsif (defined $caller[2]) { # this can happen when the stash has been deleted # in that case, just assume that it's a reasonable place to # stop (the file and line data will still be intact in any # case) - the only issue is that we can't detect if the # deleted package was internal (so don't do that then) # -doy redo unless 0 > --$lvl; last; } else { return 2; } } redo if $CarpInternal{$pkg}; redo unless 0 > --$lvl; redo if $Internal{$pkg}; } return $i - 1; } sub longmess_heavy { if ( ref( $_[0] ) ) { # don't break references as exceptions return wantarray ? @_ : $_[0]; } my $i = long_error_loc(); return ret_backtrace( $i, @_ ); } BEGIN { if("$]" >= 5.017004) { # The LAST_FH constant is a reference to the variable. $Carp::{LAST_FH} = \eval '\${^LAST_FH}'; } else { eval '*LAST_FH = sub () { 0 }'; } } # Returns a full stack backtrace starting from where it is # told. sub ret_backtrace { my ( $i, @error ) = @_; my $mess; my $err = join '', @error; $i++; my $tid_msg = ''; if ( defined &threads::tid ) { my $tid = threads->tid; $tid_msg = " thread $tid" if $tid; } my %i = caller_info($i); $mess = "$err at $i{file} line $i{line}$tid_msg"; if( $. ) { # Use ${^LAST_FH} if available. if (LAST_FH) { if (${+LAST_FH}) { $mess .= sprintf ", <%s> %s %d", *${+LAST_FH}{NAME}, ($/ eq "\n" ? "line" : "chunk"), $. } } else { local $@ = ''; local $SIG{__DIE__}; eval { CORE::die; }; if($@ =~ /^Died at .*(, <.*?> (?:line|chunk) \d+).$/ ) { $mess .= $1; } } } $mess .= "\.\n"; while ( my %i = caller_info( ++$i ) ) { $mess .= "\t$i{sub_name} called at $i{file} line $i{line}$tid_msg\n"; } return $mess; } sub ret_summary { my ( $i, @error ) = @_; my $err = join '', @error; $i++; my $tid_msg = ''; if ( defined &threads::tid ) { my $tid = threads->tid; $tid_msg = " thread $tid" if $tid; } my %i = caller_info($i); return "$err at $i{file} line $i{line}$tid_msg\.\n"; } sub short_error_loc { # You have to create your (hash)ref out here, rather than defaulting it # inside trusts *on a lexical*, as you want it to persist across calls. # (You can default it on $_[2], but that gets messy) my $cache = {}; my $i = 1; my $lvl = $CarpLevel; { my $cgc = _cgc(); my $called = $cgc ? $cgc->($i) : caller($i); $i++; my $caller = $cgc ? $cgc->($i) : caller($i); if (!defined($caller)) { my @caller = $cgc ? $cgc->($i) : caller($i); if (@caller) { # if there's no package but there is other caller info, then # the package has been deleted - treat this as a valid package # in this case redo if defined($called) && $CarpInternal{$called}; redo unless 0 > --$lvl; last; } else { return 0; } } redo if $Internal{$caller}; redo if $CarpInternal{$caller}; redo if $CarpInternal{$called}; redo if trusts( $called, $caller, $cache ); redo if trusts( $caller, $called, $cache ); redo unless 0 > --$lvl; } return $i - 1; } sub shortmess_heavy { return longmess_heavy(@_) if $Verbose; return @_ if ref( $_[0] ); # don't break references as exceptions my $i = short_error_loc(); if ($i) { ret_summary( $i, @_ ); } else { longmess_heavy(@_); } } # If a string is too long, trims it with ... sub str_len_trim { my $str = shift; my $max = shift || 0; if ( 2 < $max and $max < length($str) ) { substr( $str, $max - 3 ) = '...'; } return $str; } # Takes two packages and an optional cache. Says whether the # first inherits from the second. # # Recursive versions of this have to work to avoid certain # possible endless loops, and when following long chains of # inheritance are less efficient. sub trusts { my $child = shift; my $parent = shift; my $cache = shift; my ( $known, $partial ) = get_status( $cache, $child ); # Figure out consequences until we have an answer while ( @$partial and not exists $known->{$parent} ) { my $anc = shift @$partial; next if exists $known->{$anc}; $known->{$anc}++; my ( $anc_knows, $anc_partial ) = get_status( $cache, $anc ); my @found = keys %$anc_knows; @$known{@found} = (); push @$partial, @$anc_partial; } return exists $known->{$parent}; } # Takes a package and gives a list of those trusted directly sub trusts_directly { my $class = shift; no strict 'refs'; my $stash = \%{"$class\::"}; for my $var (qw/ CARP_NOT ISA /) { # Don't try using the variable until we know it exists, # to avoid polluting the caller's namespace. if ( $stash->{$var} && ref \$stash->{$var} eq 'GLOB' && *{$stash->{$var}}{ARRAY} && @{$stash->{$var}} ) { return @{$stash->{$var}} } } return; } if(!defined($warnings::VERSION) || do { no warnings "numeric"; $warnings::VERSION < 1.03 }) { # Very old versions of warnings.pm import from Carp. This can go # wrong due to the circular dependency. If Carp is invoked before # warnings, then Carp starts by loading warnings, then warnings # tries to import from Carp, and gets nothing because Carp is in # the process of loading and hasn't defined its import method yet. # So we work around that by manually exporting to warnings here. no strict "refs"; *{"warnings::$_"} = \&$_ foreach @EXPORT; } 1; __END__ =head1 NAME Carp - alternative warn and die for modules =head1 SYNOPSIS use Carp; # warn user (from perspective of caller) carp "string trimmed to 80 chars"; # die of errors (from perspective of caller) croak "We're outta here!"; # die of errors with stack backtrace confess "not implemented"; # cluck, longmess and shortmess not exported by default use Carp qw(cluck longmess shortmess); cluck "This is how we got here!"; # warn with stack backtrace $long_message = longmess( "message from cluck() or confess()" ); $short_message = shortmess( "message from carp() or croak()" ); =head1 DESCRIPTION The Carp routines are useful in your own modules because they act like C<die()> or C<warn()>, but with a message which is more likely to be useful to a user of your module. In the case of C<cluck()> and C<confess()>, that context is a summary of every call in the call-stack; C<longmess()> returns the contents of the error message. For a shorter message you can use C<carp()> or C<croak()> which report the error as being from where your module was called. C<shortmess()> returns the contents of this error message. There is no guarantee that that is where the error was, but it is a good educated guess. C<Carp> takes care not to clobber the status variables C<$!> and C<$^E> in the course of assembling its error messages. This means that a C<$SIG{__DIE__}> or C<$SIG{__WARN__}> handler can capture the error information held in those variables, if it is required to augment the error message, and if the code calling C<Carp> left useful values there. Of course, C<Carp> can't guarantee the latter. You can also alter the way the output and logic of C<Carp> works, by changing some global variables in the C<Carp> namespace. See the section on C<GLOBAL VARIABLES> below. Here is a more complete description of how C<carp> and C<croak> work. What they do is search the call-stack for a function call stack where they have not been told that there shouldn't be an error. If every call is marked safe, they give up and give a full stack backtrace instead. In other words they presume that the first likely looking potential suspect is guilty. Their rules for telling whether a call shouldn't generate errors work as follows: =over 4 =item 1. Any call from a package to itself is safe. =item 2. Packages claim that there won't be errors on calls to or from packages explicitly marked as safe by inclusion in C<@CARP_NOT>, or (if that array is empty) C<@ISA>. The ability to override what @ISA says is new in 5.8. =item 3. The trust in item 2 is transitive. If A trusts B, and B trusts C, then A trusts C. So if you do not override C<@ISA> with C<@CARP_NOT>, then this trust relationship is identical to, "inherits from". =item 4. Any call from an internal Perl module is safe. (Nothing keeps user modules from marking themselves as internal to Perl, but this practice is discouraged.) =item 5. Any call to Perl's warning system (eg Carp itself) is safe. (This rule is what keeps it from reporting the error at the point where you call C<carp> or C<croak>.) =item 6. C<$Carp::CarpLevel> can be set to skip a fixed number of additional call levels. Using this is not recommended because it is very difficult to get it to behave correctly. =back =head2 Forcing a Stack Trace As a debugging aid, you can force Carp to treat a croak as a confess and a carp as a cluck across I<all> modules. In other words, force a detailed stack trace to be given. This can be very helpful when trying to understand why, or from where, a warning or error is being generated. This feature is enabled by 'importing' the non-existent symbol 'verbose'. You would typically enable it by saying perl -MCarp=verbose script.pl or by including the string C<-MCarp=verbose> in the PERL5OPT environment variable. Alternately, you can set the global variable C<$Carp::Verbose> to true. See the C<GLOBAL VARIABLES> section below. =head2 Stack Trace formatting At each stack level, the subroutine's name is displayed along with its parameters. For simple scalars, this is sufficient. For complex data types, such as objects and other references, this can simply display C<'HASH(0x1ab36d8)'>. Carp gives two ways to control this. =over 4 =item 1. For objects, a method, C<CARP_TRACE>, will be called, if it exists. If this method doesn't exist, or it recurses into C<Carp>, or it otherwise throws an exception, this is skipped, and Carp moves on to the next option, otherwise checking stops and the string returned is used. It is recommended that the object's type is part of the string to make debugging easier. =item 2. For any type of reference, C<$Carp::RefArgFormatter> is checked (see below). This variable is expected to be a code reference, and the current parameter is passed in. If this function doesn't exist (the variable is undef), or it recurses into C<Carp>, or it otherwise throws an exception, this is skipped, and Carp moves on to the next option, otherwise checking stops and the string returned is used. =item 3. Otherwise, if neither C<CARP_TRACE> nor C<$Carp::RefArgFormatter> is available, stringify the value ignoring any overloading. =back =head1 GLOBAL VARIABLES =head2 $Carp::MaxEvalLen This variable determines how many characters of a string-eval are to be shown in the output. Use a value of C<0> to show all text. Defaults to C<0>. =head2 $Carp::MaxArgLen This variable determines how many characters of each argument to a function to print. Use a value of C<0> to show the full length of the argument. Defaults to C<64>. =head2 $Carp::MaxArgNums This variable determines how many arguments to each function to show. Use a false value to show all arguments to a function call. To suppress all arguments, use C<-1> or C<'0 but true'>. Defaults to C<8>. =head2 $Carp::Verbose This variable makes C<carp()> and C<croak()> generate stack backtraces just like C<cluck()> and C<confess()>. This is how C<use Carp 'verbose'> is implemented internally. Defaults to C<0>. =head2 $Carp::RefArgFormatter This variable sets a general argument formatter to display references. Plain scalars and objects that implement C<CARP_TRACE> will not go through this formatter. Calling C<Carp> from within this function is not supported. local $Carp::RefArgFormatter = sub { require Data::Dumper; Data::Dumper->Dump($_[0]); # not necessarily safe }; =head2 @CARP_NOT This variable, I<in your package>, says which packages are I<not> to be considered as the location of an error. The C<carp()> and C<cluck()> functions will skip over callers when reporting where an error occurred. NB: This variable must be in the package's symbol table, thus: # These work our @CARP_NOT; # file scope use vars qw(@CARP_NOT); # package scope @My::Package::CARP_NOT = ... ; # explicit package variable # These don't work sub xyz { ... @CARP_NOT = ... } # w/o declarations above my @CARP_NOT; # even at top-level Example of use: package My::Carping::Package; use Carp; our @CARP_NOT; sub bar { .... or _error('Wrong input') } sub _error { # temporary control of where'ness, __PACKAGE__ is implicit local @CARP_NOT = qw(My::Friendly::Caller); carp(@_) } This would make C<Carp> report the error as coming from a caller not in C<My::Carping::Package>, nor from C<My::Friendly::Caller>. Also read the L</DESCRIPTION> section above, about how C<Carp> decides where the error is reported from. Use C<@CARP_NOT>, instead of C<$Carp::CarpLevel>. Overrides C<Carp>'s use of C<@ISA>. =head2 %Carp::Internal This says what packages are internal to Perl. C<Carp> will never report an error as being from a line in a package that is internal to Perl. For example: $Carp::Internal{ (__PACKAGE__) }++; # time passes... sub foo { ... or confess("whatever") }; would give a full stack backtrace starting from the first caller outside of __PACKAGE__. (Unless that package was also internal to Perl.) =head2 %Carp::CarpInternal This says which packages are internal to Perl's warning system. For generating a full stack backtrace this is the same as being internal to Perl, the stack backtrace will not start inside packages that are listed in C<%Carp::CarpInternal>. But it is slightly different for the summary message generated by C<carp> or C<croak>. There errors will not be reported on any lines that are calling packages in C<%Carp::CarpInternal>. For example C<Carp> itself is listed in C<%Carp::CarpInternal>. Therefore the full stack backtrace from C<confess> will not start inside of C<Carp>, and the short message from calling C<croak> is not placed on the line where C<croak> was called. =head2 $Carp::CarpLevel This variable determines how many additional call frames are to be skipped that would not otherwise be when reporting where an error occurred on a call to one of C<Carp>'s functions. It is fairly easy to count these call frames on calls that generate a full stack backtrace. However it is much harder to do this accounting for calls that generate a short message. Usually people skip too many call frames. If they are lucky they skip enough that C<Carp> goes all of the way through the call stack, realizes that something is wrong, and then generates a full stack backtrace. If they are unlucky then the error is reported from somewhere misleading very high in the call stack. Therefore it is best to avoid C<$Carp::CarpLevel>. Instead use C<@CARP_NOT>, C<%Carp::Internal> and C<%Carp::CarpInternal>. Defaults to C<0>. =head1 BUGS The Carp routines don't handle exception objects currently. If called with a first argument that is a reference, they simply call die() or warn(), as appropriate. =head1 SEE ALSO L<Carp::Always>, L<Carp::Clan> =head1 CONTRIBUTING L<Carp> is maintained by the perl 5 porters as part of the core perl 5 version control repository. Please see the L<perlhack> perldoc for how to submit patches and contribute to it. =head1 AUTHOR The Carp module first appeared in Larry Wall's perl 5.000 distribution. Since then it has been modified by several of the perl 5 porters. Andrew Main (Zefram) <zefram@fysh.org> divested Carp into an independent distribution. =head1 COPYRIGHT Copyright (C) 1994-2013 Larry Wall Copyright (C) 2011, 2012, 2013 Andrew Main (Zefram) <zefram@fysh.org> =head1 LICENSE This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. PK ! .�N�� � 5.34.0/version/regex.pmnu �[��� package version::regex; use strict; our $VERSION = 0.9928; #--------------------------------------------------------------------------# # Version regexp components #--------------------------------------------------------------------------# # Fraction part of a decimal version number. This is a common part of # both strict and lax decimal versions my $FRACTION_PART = qr/\.[0-9]+/; # First part of either decimal or dotted-decimal strict version number. # Unsigned integer with no leading zeroes (except for zero itself) to # avoid confusion with octal. my $STRICT_INTEGER_PART = qr/0|[1-9][0-9]*/; # First part of either decimal or dotted-decimal lax version number. # Unsigned integer, but allowing leading zeros. Always interpreted # as decimal. However, some forms of the resulting syntax give odd # results if used as ordinary Perl expressions, due to how perl treats # octals. E.g. # version->new("010" ) == 10 # version->new( 010 ) == 8 # version->new( 010.2) == 82 # "8" . "2" my $LAX_INTEGER_PART = qr/[0-9]+/; # Second and subsequent part of a strict dotted-decimal version number. # Leading zeroes are permitted, and the number is always decimal. # Limited to three digits to avoid overflow when converting to decimal # form and also avoid problematic style with excessive leading zeroes. my $STRICT_DOTTED_DECIMAL_PART = qr/\.[0-9]{1,3}/; # Second and subsequent part of a lax dotted-decimal version number. # Leading zeroes are permitted, and the number is always decimal. No # limit on the numerical value or number of digits, so there is the # possibility of overflow when converting to decimal form. my $LAX_DOTTED_DECIMAL_PART = qr/\.[0-9]+/; # Alpha suffix part of lax version number syntax. Acts like a # dotted-decimal part. my $LAX_ALPHA_PART = qr/_[0-9]+/; #--------------------------------------------------------------------------# # Strict version regexp definitions #--------------------------------------------------------------------------# # Strict decimal version number. our $STRICT_DECIMAL_VERSION = qr/ $STRICT_INTEGER_PART $FRACTION_PART? /x; # Strict dotted-decimal version number. Must have both leading "v" and # at least three parts, to avoid confusion with decimal syntax. our $STRICT_DOTTED_DECIMAL_VERSION = qr/ v $STRICT_INTEGER_PART $STRICT_DOTTED_DECIMAL_PART{2,} /x; # Complete strict version number syntax -- should generally be used # anchored: qr/ \A $STRICT \z /x our $STRICT = qr/ $STRICT_DECIMAL_VERSION | $STRICT_DOTTED_DECIMAL_VERSION /x; #--------------------------------------------------------------------------# # Lax version regexp definitions #--------------------------------------------------------------------------# # Lax decimal version number. Just like the strict one except for # allowing an alpha suffix or allowing a leading or trailing # decimal-point our $LAX_DECIMAL_VERSION = qr/ $LAX_INTEGER_PART (?: $FRACTION_PART | \. )? $LAX_ALPHA_PART? | $FRACTION_PART $LAX_ALPHA_PART? /x; # Lax dotted-decimal version number. Distinguished by having either # leading "v" or at least three non-alpha parts. Alpha part is only # permitted if there are at least two non-alpha parts. Strangely # enough, without the leading "v", Perl takes .1.2 to mean v0.1.2, # so when there is no "v", the leading part is optional our $LAX_DOTTED_DECIMAL_VERSION = qr/ v $LAX_INTEGER_PART (?: $LAX_DOTTED_DECIMAL_PART+ $LAX_ALPHA_PART? )? | $LAX_INTEGER_PART? $LAX_DOTTED_DECIMAL_PART{2,} $LAX_ALPHA_PART? /x; # Complete lax version number syntax -- should generally be used # anchored: qr/ \A $LAX \z /x # # The string 'undef' is a special case to make for easier handling # of return values from ExtUtils::MM->parse_version our $LAX = qr/ undef | $LAX_DOTTED_DECIMAL_VERSION | $LAX_DECIMAL_VERSION /x; #--------------------------------------------------------------------------# # Preloaded methods go here. sub is_strict { defined $_[0] && $_[0] =~ qr/ \A $STRICT \z /x } sub is_lax { defined $_[0] && $_[0] =~ qr/ \A $LAX \z /x } 1; PK ! �����a �a 5.34.0/version/Internals.podnu �[��� =head1 NAME version::Internals - Perl extension for Version Objects =head1 DESCRIPTION Overloaded version objects for all modern versions of Perl. This documents the internal data representation and underlying code for version.pm. See F<version.pod> for daily usage. This document is only useful for users interested in the gory details. =head1 WHAT IS A VERSION? For the purposes of this module, a version "number" is a sequence of positive integer values separated by one or more decimal points and optionally a single underscore. This corresponds to what Perl itself uses for a version, as well as extending the "version as number" that is discussed in the various editions of the Camel book. There are actually two distinct kinds of version objects: =over 4 =item Decimal versions Any version which "looks like a number", see L<Decimal Versions>. This also includes versions with a single decimal point and a single embedded underscore, see L<Alpha Versions>, even though these must be quoted to preserve the underscore formatting. =item Dotted-Decimal versions Also referred to as "Dotted-Integer", these contains more than one decimal point and may have an optional embedded underscore, see L<Dotted-Decimal Versions>. This is what is commonly used in most open source software as the "external" version (the one used as part of the tag or tarfile name). A leading 'v' character is now required and will warn if it missing. =back Both of these methods will produce similar version objects, in that the default stringification will yield the version L<Normal Form> only if required: $v = version->new(1.002); # 1.002, but compares like 1.2.0 $v = version->new(1.002003); # 1.002003 $v2 = version->new("v1.2.3"); # v1.2.3 In specific, version numbers initialized as L<Decimal Versions> will stringify as they were originally created (i.e. the same string that was passed to C<new()>. Version numbers initialized as L<Dotted-Decimal Versions> will be stringified as L<Normal Form>. =head2 Decimal Versions These correspond to historical versions of Perl itself prior to 5.6.0, as well as all other modules which follow the Camel rules for the $VERSION scalar. A Decimal version is initialized with what looks like a floating point number. Leading zeros B<are> significant and trailing zeros are implied so that a minimum of three places is maintained between subversions. What this means is that any subversion (digits to the right of the decimal place) that contains less than three digits will have trailing zeros added to make up the difference, but only for purposes of comparison with other version objects. For example: # Prints Equivalent to $v = version->new( 1.2); # 1.2 v1.200.0 $v = version->new( 1.02); # 1.02 v1.20.0 $v = version->new( 1.002); # 1.002 v1.2.0 $v = version->new( 1.0023); # 1.0023 v1.2.300 $v = version->new( 1.00203); # 1.00203 v1.2.30 $v = version->new( 1.002003); # 1.002003 v1.2.3 All of the preceding examples are true whether or not the input value is quoted. The important feature is that the input value contains only a single decimal. See also L<Alpha Versions>. IMPORTANT NOTE: As shown above, if your Decimal version contains more than 3 significant digits after the decimal place, it will be split on each multiple of 3, so 1.0003 is equivalent to v1.0.300, due to the need to remain compatible with Perl's own 5.005_03 == 5.5.30 interpretation. Any trailing zeros are ignored for mathematical comparison purposes. =head2 Dotted-Decimal Versions These are the newest form of versions, and correspond to Perl's own version style beginning with 5.6.0. Starting with Perl 5.10.0, and most likely Perl 6, this is likely to be the preferred form. This method normally requires that the input parameter be quoted, although Perl's after 5.8.1 can use v-strings as a special form of quoting, but this is highly discouraged. Unlike L<Decimal Versions>, Dotted-Decimal Versions have more than a single decimal point, e.g.: # Prints $v = version->new( "v1.200"); # v1.200.0 $v = version->new("v1.20.0"); # v1.20.0 $v = qv("v1.2.3"); # v1.2.3 $v = qv("1.2.3"); # v1.2.3 $v = qv("1.20"); # v1.20.0 In general, Dotted-Decimal Versions permit the greatest amount of freedom to specify a version, whereas Decimal Versions enforce a certain uniformity. Just like L</Decimal Versions>, Dotted-Decimal Versions can be used as L</Alpha Versions>. =head2 Alpha Versions For module authors using CPAN, the convention has been to note unstable releases with an underscore in the version string. (See L<CPAN>.) version.pm follows this convention and alpha releases will test as being newer than the more recent stable release, and less than the next stable release. Only the last element may be separated by an underscore: # Declaring use version 0.77; our $VERSION = version->declare("v1.2_3"); # Parsing $v1 = version->parse("v1.2_3"); $v1 = version->parse("1.002_003"); Note that you B<must> quote the version when writing an alpha Decimal version. The stringified form of Decimal versions will always be the same string that was used to initialize the version object. =head2 Regular Expressions for Version Parsing A formalized definition of the legal forms for version strings is included in the C<version::regex> class. Primitives are included for common elements, although they are scoped to the file so they are useful for reference purposes only. There are two publicly accessible scalars that can be used in other code (not exported): =over 4 =item C<$version::LAX> This regexp covers all of the legal forms allowed under the current version string parser. This is not to say that all of these forms are recommended, and some of them can only be used when quoted. For dotted decimals: v1.2 1.2345.6 v1.23_4 The leading 'v' is optional if two or more decimals appear. If only a single decimal is included, then the leading 'v' is required to trigger the dotted-decimal parsing. A leading zero is permitted, though not recommended except when quoted, because of the risk that Perl will treat the number as octal. A trailing underscore plus one or more digits denotes an alpha or development release (and must be quoted to be parsed properly). For decimal versions: 1 1.2345 1.2345_01 an integer portion, an optional decimal point, and optionally one or more digits to the right of the decimal are all required. A trailing underscore is permitted and a leading zero is permitted. Just like the lax dotted-decimal version, quoting the values is required for alpha/development forms to be parsed correctly. =item C<$version::STRICT> This regexp covers a much more limited set of formats and constitutes the best practices for initializing version objects. Whether you choose to employ decimal or dotted-decimal for is a personal preference however. =over 4 =item v1.234.5 For dotted-decimal versions, a leading 'v' is required, with three or more sub-versions of no more than three digits. A leading 0 (zero) before the first sub-version (in the above example, '1') is also prohibited. =item 2.3456 For decimal versions, an integer portion (no leading 0), a decimal point, and one or more digits to the right of the decimal are all required. =back =back Both of the provided scalars are already compiled as regular expressions and do not contain either anchors or implicit groupings, so they can be included in your own regular expressions freely. For example, consider the following code: ($pkg, $ver) =~ / ^[ \t]* use [ \t]+($PKGNAME) (?:[ \t]+($version::STRICT))? [ \t]*; /x; This would match a line of the form: use Foo::Bar::Baz v1.2.3; # legal only in Perl 5.8.1+ where C<$PKGNAME> is another regular expression that defines the legal forms for package names. =head1 IMPLEMENTATION DETAILS =head2 Equivalence between Decimal and Dotted-Decimal Versions When Perl 5.6.0 was released, the decision was made to provide a transformation between the old-style decimal versions and new-style dotted-decimal versions: 5.6.0 == 5.006000 5.005_04 == 5.5.40 The floating point number is taken and split first on the single decimal place, then each group of three digits to the right of the decimal makes up the next digit, and so on until the number of significant digits is exhausted, B<plus> enough trailing zeros to reach the next multiple of three. This was the method that version.pm adopted as well. Some examples may be helpful: equivalent decimal zero-padded dotted-decimal ------- ----------- -------------- 1.2 1.200 v1.200.0 1.02 1.020 v1.20.0 1.002 1.002 v1.2.0 1.0023 1.002300 v1.2.300 1.00203 1.002030 v1.2.30 1.002003 1.002003 v1.2.3 =head2 Quoting Rules Because of the nature of the Perl parsing and tokenizing routines, certain initialization values B<must> be quoted in order to correctly parse as the intended version, especially when using the C<declare> or L</qv()> methods. While you do not have to quote decimal numbers when creating version objects, it is always safe to quote B<all> initial values when using version.pm methods, as this will ensure that what you type is what is used. Additionally, if you quote your initializer, then the quoted value that goes B<in> will be exactly what comes B<out> when your $VERSION is printed (stringified). If you do not quote your value, Perl's normal numeric handling comes into play and you may not get back what you were expecting. If you use a mathematic formula that resolves to a floating point number, you are dependent on Perl's conversion routines to yield the version you expect. You are pretty safe by dividing by a power of 10, for example, but other operations are not likely to be what you intend. For example: $VERSION = version->new((qw$Revision: 1.4)[1]/10); print $VERSION; # yields 0.14 $V2 = version->new(100/9); # Integer overflow in decimal number print $V2; # yields something like 11.111.111.100 Perl 5.8.1 and beyond are able to automatically quote v-strings but that is not possible in earlier versions of Perl. In other words: $version = version->new("v2.5.4"); # legal in all versions of Perl $newvers = version->new(v2.5.4); # legal only in Perl >= 5.8.1 =head2 What about v-strings? There are two ways to enter v-strings: a bare number with two or more decimal points, or a bare number with one or more decimal points and a leading 'v' character (also bare). For example: $vs1 = 1.2.3; # encoded as \1\2\3 $vs2 = v1.2; # encoded as \1\2 However, the use of bare v-strings to initialize version objects is B<strongly> discouraged in all circumstances. Also, bare v-strings are not completely supported in any version of Perl prior to 5.8.1. If you insist on using bare v-strings with Perl > 5.6.0, be aware of the following limitations: 1) For Perl releases 5.6.0 through 5.8.0, the v-string code merely guesses, based on some characteristics of v-strings. You B<must> use a three part version, e.g. 1.2.3 or v1.2.3 in order for this heuristic to be successful. 2) For Perl releases 5.8.1 and later, v-strings have changed in the Perl core to be magical, which means that the version.pm code can automatically determine whether the v-string encoding was used. 3) In all cases, a version created using v-strings will have a stringified form that has a leading 'v' character, for the simple reason that sometimes it is impossible to tell whether one was present initially. =head2 Version Object Internals version.pm provides an overloaded version object that is designed to both encapsulate the author's intended $VERSION assignment as well as make it completely natural to use those objects as if they were numbers (e.g. for comparisons). To do this, a version object contains both the original representation as typed by the author, as well as a parsed representation to ease comparisons. Version objects employ L<overload> methods to simplify code that needs to compare, print, etc the objects. The internal structure of version objects is a blessed hash with several components: bless( { 'original' => 'v1.2.3_4', 'alpha' => 1, 'qv' => 1, 'version' => [ 1, 2, 3, 4 ] }, 'version' ); =over 4 =item original A faithful representation of the value used to initialize this version object. The only time this will not be precisely the same characters that exist in the source file is if a short dotted-decimal version like v1.2 was used (in which case it will contain 'v1.2'). This form is B<STRONGLY> discouraged, in that it will confuse you and your users. =item qv A boolean that denotes whether this is a decimal or dotted-decimal version. See L<version/is_qv()>. =item alpha A boolean that denotes whether this is an alpha version. NOTE: that the underscore can only appear in the last position. See L<version/is_alpha()>. =item version An array of non-negative integers that is used for comparison purposes with other version objects. =back =head2 Replacement UNIVERSAL::VERSION In addition to the version objects, this modules also replaces the core UNIVERSAL::VERSION function with one that uses version objects for its comparisons. The return from this operator is always the stringified form as a simple scalar (i.e. not an object), but the warning message generated includes either the stringified form or the normal form, depending on how it was called. For example: package Foo; $VERSION = 1.2; package Bar; $VERSION = "v1.3.5"; # works with all Perl's (since it is quoted) package main; use version; print $Foo::VERSION; # prints 1.2 print $Bar::VERSION; # prints 1.003005 eval "use foo 10"; print $@; # prints "foo version 10 required..." eval "use foo 1.3.5; # work in Perl 5.6.1 or better print $@; # prints "foo version 1.3.5 required..." eval "use bar 1.3.6"; print $@; # prints "bar version 1.3.6 required..." eval "use bar 1.004"; # note Decimal version print $@; # prints "bar version 1.004 required..." IMPORTANT NOTE: This may mean that code which searches for a specific string (to determine whether a given module is available) may need to be changed. It is always better to use the built-in comparison implicit in C<use> or C<require>, rather than manually poking at C<< class->VERSION >> and then doing a comparison yourself. The replacement UNIVERSAL::VERSION, when used as a function, like this: print $module->VERSION; will also exclusively return the stringified form. See L</Stringification> for more details. =head1 USAGE DETAILS =head2 Using modules that use version.pm As much as possible, the version.pm module remains compatible with all current code. However, if your module is using a module that has defined C<$VERSION> using the version class, there are a couple of things to be aware of. For purposes of discussion, we will assume that we have the following module installed: package Example; use version; $VERSION = qv('1.2.2'); ...module code here... 1; =over 4 =item Decimal versions always work Code of the form: use Example 1.002003; will always work correctly. The C<use> will perform an automatic C<$VERSION> comparison using the floating point number given as the first term after the module name (e.g. above 1.002.003). In this case, the installed module is too old for the requested line, so you would see an error like: Example version 1.002003 (v1.2.3) required--this is only version 1.002002 (v1.2.2)... =item Dotted-Decimal version work sometimes With Perl >= 5.6.2, you can also use a line like this: use Example 1.2.3; and it will again work (i.e. give the error message as above), even with releases of Perl which do not normally support v-strings (see L<What about v-strings?> above). This has to do with that fact that C<use> only checks to see if the second term I<looks like a number> and passes that to the replacement L<UNIVERSAL::VERSION|UNIVERSAL/VERSION>. This is not true in Perl 5.005_04, however, so you are B<strongly encouraged> to always use a Decimal version in your code, even for those versions of Perl which support the Dotted-Decimal version. =back =head2 Object Methods =over 4 =item new() Like many OO interfaces, the new() method is used to initialize version objects. If two arguments are passed to C<new()>, the B<second> one will be used as if it were prefixed with "v". This is to support historical use of the C<qw> operator with the CVS variable $Revision, which is automatically incremented by CVS every time the file is committed to the repository. In order to facilitate this feature, the following code can be employed: $VERSION = version->new(qw$Revision: 2.7 $); and the version object will be created as if the following code were used: $VERSION = version->new("v2.7"); In other words, the version will be automatically parsed out of the string, and it will be quoted to preserve the meaning CVS normally carries for versions. The CVS $Revision$ increments differently from Decimal versions (i.e. 1.10 follows 1.9), so it must be handled as if it were a Dotted-Decimal Version. A new version object can be created as a copy of an existing version object, either as a class method: $v1 = version->new(12.3); $v2 = version->new($v1); or as an object method: $v1 = version->new(12.3); $v2 = $v1->new(12.3); and in each case, $v1 and $v2 will be identical. NOTE: if you create a new object using an existing object like this: $v2 = $v1->new(); the new object B<will not> be a clone of the existing object. In the example case, $v2 will be an empty object of the same type as $v1. =back =over 4 =item qv() An alternate way to create a new version object is through the exported qv() sub. This is not strictly like other q? operators (like qq, qw), in that the only delimiters supported are parentheses (or spaces). It is the best way to initialize a short version without triggering the floating point interpretation. For example: $v1 = qv(1.2); # v1.2.0 $v2 = qv("1.2"); # also v1.2.0 As you can see, either a bare number or a quoted string can usually be used interchangeably, except in the case of a trailing zero, which must be quoted to be converted properly. For this reason, it is strongly recommended that all initializers to qv() be quoted strings instead of bare numbers. To prevent the C<qv()> function from being exported to the caller's namespace, either use version with a null parameter: use version (); or just require version, like this: require version; Both methods will prevent the import() method from firing and exporting the C<qv()> sub. =back For the subsequent examples, the following three objects will be used: $ver = version->new("1.2.3.4"); # see "Quoting Rules" $alpha = version->new("1.2.3_4"); # see "Alpha Versions" $nver = version->new(1.002); # see "Decimal Versions" =over 4 =item Normal Form For any version object which is initialized with multiple decimal places (either quoted or if possible v-string), or initialized using the L<qv()|version/qv()> operator, the stringified representation is returned in a normalized or reduced form (no extraneous zeros), and with a leading 'v': print $ver->normal; # prints as v1.2.3.4 print $ver->stringify; # ditto print $ver; # ditto print $nver->normal; # prints as v1.2.0 print $nver->stringify; # prints as 1.002, # see "Stringification" In order to preserve the meaning of the processed version, the normalized representation will always contain at least three sub terms. In other words, the following is guaranteed to always be true: my $newver = version->new($ver->stringify); if ($newver eq $ver ) # always true {...} =back =over 4 =item Numification Although all mathematical operations on version objects are forbidden by default, it is possible to retrieve a number which corresponds to the version object through the use of the $obj->numify method. For formatting purposes, when displaying a number which corresponds a version object, all sub versions are assumed to have three decimal places. So for example: print $ver->numify; # prints 1.002003004 print $nver->numify; # prints 1.002 Unlike the stringification operator, there is never any need to append trailing zeros to preserve the correct version value. =back =over 4 =item Stringification The default stringification for version objects returns exactly the same string as was used to create it, whether you used C<new()> or C<qv()>, with one exception. The sole exception is if the object was created using C<qv()> and the initializer did not have two decimal places or a leading 'v' (both optional), then the stringified form will have a leading 'v' prepended, in order to support round-trip processing. For example: Initialized as Stringifies to ============== ============== version->new("1.2") 1.2 version->new("v1.2") v1.2 qv("1.2.3") 1.2.3 qv("v1.3.5") v1.3.5 qv("1.2") v1.2 ### exceptional case See also L<UNIVERSAL::VERSION|UNIVERSAL/VERSION>, as this also returns the stringified form when used as a class method. IMPORTANT NOTE: There is one exceptional cases shown in the above table where the "initializer" is not stringwise equivalent to the stringified representation. If you use the C<qv>() operator on a version without a leading 'v' B<and> with only a single decimal place, the stringified output will have a leading 'v', to preserve the sense. See the L</qv()> operator for more details. IMPORTANT NOTE 2: Attempting to bypass the normal stringification rules by manually applying L<numify()|version/numify()> and L<normal()|version/normal()> will sometimes yield surprising results: print version->new(version->new("v1.0")->numify)->normal; # v1.0.0 The reason for this is that the L<numify()|version/numify()> operator will turn "v1.0" into the equivalent string "1.000000". Forcing the outer version object to L<normal()|version/normal()> form will display the mathematically equivalent "v1.0.0". As the example in L</new()> shows, you can always create a copy of an existing version object with the same value by the very compact: $v2 = $v1->new($v1); and be assured that both C<$v1> and C<$v2> will be completely equivalent, down to the same internal representation as well as stringification. =back =over 4 =item Comparison operators Both C<cmp> and C<E<lt>=E<gt>> operators perform the same comparison between terms (upgrading to a version object automatically). Perl automatically generates all of the other comparison operators based on those two. In addition to the obvious equalities listed below, appending a single trailing 0 term does not change the value of a version for comparison purposes. In other words "v1.2" and "1.2.0" will compare as identical. For example, the following relations hold: As Number As String Truth Value ------------- ---------------- ----------- $ver > 1.0 $ver gt "1.0" true $ver < 2.5 $ver lt true $ver != 1.3 $ver ne "1.3" true $ver == 1.2 $ver eq "1.2" false $ver == 1.2.3.4 $ver eq "1.2.3.4" see discussion below It is probably best to chose either the Decimal notation or the string notation and stick with it, to reduce confusion. Perl6 version objects B<may> only support Decimal comparisons. See also L<Quoting Rules>. WARNING: Comparing version with unequal numbers of decimal points (whether explicitly or implicitly initialized), may yield unexpected results at first glance. For example, the following inequalities hold: version->new(0.96) > version->new(0.95); # 0.960.0 > 0.950.0 version->new("0.96.1") < version->new(0.95); # 0.096.1 < 0.950.0 For this reason, it is best to use either exclusively L<Decimal Versions> or L<Dotted-Decimal Versions> with multiple decimal points. =back =over 4 =item Logical Operators If you need to test whether a version object has been initialized, you can simply test it directly: $vobj = version->new($something); if ( $vobj ) # true only if $something was non-blank You can also test whether a version object is an alpha version, for example to prevent the use of some feature not present in the main release: $vobj = version->new("1.2_3"); # MUST QUOTE ...later... if ( $vobj->is_alpha ) # True =back =head1 AUTHOR John Peacock E<lt>jpeacock@cpan.orgE<gt> =head1 SEE ALSO L<perl>. =cut PK ! ���, , 5.34.0/Devel/SelfStubber.pmnu �[��� package Devel::SelfStubber; use File::Spec; require SelfLoader; @ISA = qw(SelfLoader); @EXPORT = 'AUTOLOAD'; $JUST_STUBS = 1; $VERSION = 1.06; sub Version {$VERSION} # Use as # perl -e 'use Devel::SelfStubber;Devel::SelfStubber->stub(MODULE_NAME,LIB)' # (LIB defaults to '.') e.g. # perl -e 'use Devel::SelfStubber;Devel::SelfStubber->stub('Math::BigInt')' # would print out stubs needed if you added a __DATA__ before the subs. # Setting $Devel::SelfStubber::JUST_STUBS to 0 will print out the whole # module with the stubs entered just before the __DATA__ sub _add_to_cache { my($self,$fullname,$pack,$lines, $prototype) = @_; push(@DATA,@{$lines}); if($fullname){push(@STUBS,"sub $fullname $prototype;\n")}; # stubs '1;'; } sub _package_defined { my($self,$line) = @_; push(@DATA,$line); } sub stub { my($self,$module,$lib) = @_; my($line,$end_data,$fh,$mod_file,$found_selfloader); $lib ||= File::Spec->curdir(); ($mod_file = $module) =~ s,::,/,g; $mod_file =~ tr|/|:| if $^O eq 'MacOS'; $mod_file = File::Spec->catfile($lib, "$mod_file.pm"); $fh = "${module}::DATA"; my (@BEFORE_DATA, @AFTER_DATA, @AFTER_END); @DATA = @STUBS = (); open($fh,'<',$mod_file) || die "Unable to open $mod_file"; local $/ = "\n"; while(defined ($line = <$fh>) and $line !~ m/^__DATA__/) { push(@BEFORE_DATA,$line); $line =~ /use\s+SelfLoader/ && $found_selfloader++; } (defined ($line) && $line =~ m/^__DATA__/) || die "$mod_file doesn't contain a __DATA__ token"; $found_selfloader || print 'die "\'use SelfLoader;\' statement NOT FOUND!!\n"',"\n"; if ($JUST_STUBS) { $self->_load_stubs($module); } else { $self->_load_stubs($module, \@AFTER_END); } if ( fileno($fh) ) { $end_data = 1; while(defined($line = <$fh>)) { push(@AFTER_DATA,$line); } } close($fh); unless ($JUST_STUBS) { print @BEFORE_DATA; } print @STUBS; unless ($JUST_STUBS) { print "1;\n__DATA__\n",@DATA; if($end_data) { print "__END__ DATA\n",@AFTER_DATA; } if(@AFTER_END) { print "__END__\n",@AFTER_END; } } } 1; __END__ =head1 NAME Devel::SelfStubber - generate stubs for a SelfLoading module =head1 SYNOPSIS To generate just the stubs: use Devel::SelfStubber; Devel::SelfStubber->stub('MODULENAME','MY_LIB_DIR'); or to generate the whole module with stubs inserted correctly use Devel::SelfStubber; $Devel::SelfStubber::JUST_STUBS=0; Devel::SelfStubber->stub('MODULENAME','MY_LIB_DIR'); MODULENAME is the Perl module name, e.g. Devel::SelfStubber, NOT 'Devel/SelfStubber' or 'Devel/SelfStubber.pm'. MY_LIB_DIR defaults to '.' if not present. =head1 DESCRIPTION Devel::SelfStubber prints the stubs you need to put in the module before the __DATA__ token (or you can get it to print the entire module with stubs correctly placed). The stubs ensure that if a method is called, it will get loaded. They are needed specifically for inherited autoloaded methods. This is best explained using the following example: Assume four classes, A,B,C & D. A is the root class, B is a subclass of A, C is a subclass of B, and D is another subclass of A. A / \ B D / C If D calls an autoloaded method 'foo' which is defined in class A, then the method is loaded into class A, then executed. If C then calls method 'foo', and that method was reimplemented in class B, but set to be autoloaded, then the lookup mechanism never gets to the AUTOLOAD mechanism in B because it first finds the method already loaded in A, and so erroneously uses that. If the method foo had been stubbed in B, then the lookup mechanism would have found the stub, and correctly loaded and used the sub from B. So, for classes and subclasses to have inheritance correctly work with autoloading, you need to ensure stubs are loaded. The SelfLoader can load stubs automatically at module initialization with the statement 'SelfLoader-E<gt>load_stubs()';, but you may wish to avoid having the stub loading overhead associated with your initialization (though note that the SelfLoader::load_stubs method will be called sooner or later - at latest when the first sub is being autoloaded). In this case, you can put the sub stubs before the __DATA__ token. This can be done manually, but this module allows automatic generation of the stubs. By default it just prints the stubs, but you can set the global $Devel::SelfStubber::JUST_STUBS to 0 and it will print out the entire module with the stubs positioned correctly. At the very least, this is useful to see what the SelfLoader thinks are stubs - in order to ensure future versions of the SelfStubber remain in step with the SelfLoader, the SelfStubber actually uses the SelfLoader to determine which stubs are needed. =cut PK ! ^>� �4 �4 5.34.0/Test2/Transition.podnu �[��� =pod =head1 NAME Test2::Transition - Transition notes when upgrading to Test2 =head1 DESCRIPTION This is where gotchas and breakages related to the Test2 upgrade are documented. The upgrade causes Test::Builder to defer to Test2 under the hood. This transition is mostly transparent, but there are a few cases that can trip you up. =head1 THINGS THAT BREAK This is the list of scenarios that break with the new internals. =head2 Test::Builder1.5/2 conditionals =head3 The Problem a few years back there were two attempts to upgrade/replace Test::Builder. Confusingly these were called Test::Builder2 and Test::Builder1.5, in that order. Many people put conditionals in their code to check the Test::Builder version number and adapt their code accordingly. The Test::Builder2/1.5 projects both died out. Now the conditional code people added has become a mine field. A vast majority of modules broken by Test2 fall into this category. =head3 The Fix The fix is to remove all Test::Builder1.5/2 related code. Either use the legacy Test::Builder API, or use Test2 directly. =head2 Replacing the Test::Builder singleton =head3 The Problem Some test modules would replace the Test::Builder singleton instance with their own instance or subclass. This was usually done to intercept or modify results as they happened. The Test::Builder singleton is now a simple compatibility wrapper around Test2. The Test::Builder singleton is no longer the central place for results. Many results bypass the Test::Builder singleton completely, which breaks and behavior intended when replacing the singleton. =head3 The Fix If you simply want to intercept all results instead of letting them go to TAP, you should look at the L<Test2::API> docs and read about pushing a new hub onto the hub stack. Replacing the hub temporarily is now the correct way to intercept results. If your goal is purely monitoring of events use the C<< Test2::Hub->listen() >> method exported by Test::More to watch events as they are fired. If you wish to modify results before they go to TAP look at the C<< Test2::Hub->filter() >> method. =head2 Directly Accessing Hash Elements =head3 The Problem Some modules look directly at hash keys on the Test::Builder singleton. The problem here is that the Test::Builder singleton no longer holds anything important. =head3 The Fix The fix is to use the API specified in L<Test2::API> to look at or modify state as needed. =head2 Subtest indentation =head3 The Problem An early change, in fact the change that made Test2 an idea, was a change to the indentation of the subtest note. It was decided it would be more readable to outdent the subtest note instead of having it inline with the subtest: # subtest foo ok 1 - blah 1..1 ok 1 - subtest foo The old style indented the note: # subtest foo ok 1 - blah 1..1 ok 1 - subtest foo This breaks tests that do string comparison of TAP output. =head3 The Fix my $indent = $INC{'Test2/API.pm'} ? '' : ' '; is( $subtest_output, "${indent}# subtest foo", "Got subtest note" ); Check if C<$INC{'Test2/API.pm'}> is set, if it is then no indentation should be expected. If it is not set, then the old Test::Builder is in use, indentation should be expected. =head1 DISTRIBUTIONS THAT BREAK OR NEED TO BE UPGRADED This is a list of cpan modules that have been known to have been broken by the upgrade at one point. =head2 WORKS BUT TESTS WILL FAIL These modules still function correctly, but their test suites will not pass. If you already have these modules installed then you can continue to use them. If you are trying to install them after upgrading Test::Builder you will need to force installation, or bypass the broken tests. =over 4 =item Test::DBIx::Class::Schema This module has a test that appears to work around a Test::Builder bug. The bug appears to have been fixed by Test2, which means the workaround causes a failure. This can be easily updated, but nobody has done so yet. Known broken in versions: 1.0.9 and older =item Device::Chip Tests break due to subtest indentation. Known broken in version 0.07. Apparently works fine in 0.06 though. Patch has been submitted to fix the issue. =back =head2 UPGRADE SUGGESTED These are modules that did not break, but had broken test suites that have since been fixed. =over 4 =item Test::Exception Old versions work fine, but have a minor test name behavior that breaks with Test2. Old versions will no longer install because of this. The latest version on CPAN will install just fine. Upgrading is not required, but is recommended. Fixed in version: 0.43 =item Data::Peek Some tests depended on C<$!> and C<$?> being modified in subtle ways. A patch was applied to correct things that changed. The module itself works fine, there is no need to upgrade. Fixed in version: 0.45 =item circular::require Some tests were fragile and required base.pm to be loaded at a late stage. Test2 was loading base.pm too early. The tests were updated to fix this. The module itself never broke, you do not need to upgrade. Fixed in version: 0.12 =item Test::Module::Used A test worked around a now-fixed planning bug. There is no need to upgrade if you have an old version installed. New versions install fine if you want them. Fixed in version: 0.2.5 =item Test::Moose::More Some tests were fragile, but have been fixed. The actual breakage was from the subtest comment indentation change. No need to upgrade, old versions work fine. Only new versions will install. Fixed in version: 0.025 =item Test::FITesque This was broken by a bugfix to how planning is done. The test was updated after the bugfix. Fixed in version: 0.04 =item Test::Kit Old versions work fine, but would not install because L<Test::Aggregate> was in the dependency chain. An upgrade should not be needed. Fixed in version: 2.15 =item autouse A test broke because it depended on Scalar::Util not being loaded. Test2 loads Scalar::Util. The test was updated to load Test2 after checking Scalar::Util's load status. There is no need to upgrade if you already have it installed. Fixed in version: 1.11 =back =head2 NEED TO UPGRADE =over 4 =item Test::SharedFork Old versions need to directly access Test::Builder singleton hash elements. The latest version on CPAN will still do this on old Test::Builder, but will defer to L<Test2::IPC> on Test2. Fixed in version: 0.35 =item Test::Builder::Clutch This works by doing overriding methods on the singleton, and directly accessing hash values on the singleton. A new version has been released that uses the Test2 API to accomplish the same result in a saner way. Fixed in version: 0.07 =item Test::Dist::VersionSync This had Test::Builder2 conditionals. This was fixed by removing the conditionals. Fixed in version: 1.1.4 =item Test::Modern This relied on C<< Test::Builder->_try() >> which was a private method, documented as something nobody should use. This was fixed by using a different tool. Fixed in version: 0.012 =item Test::UseAllModules Version 0.14 relied on C<< Test::Builder->history >> which was available in Test::Builder 1.5. Versions 0.12 and 0.13 relied on other Test::Builder internals. Fixed in version: 0.15 =item Test::More::Prefix Worked by applying a role that wrapped C<< Test::Builder->_print_comment >>. Fixed by adding an event filter that modifies the message instead when running under Test2. Fixed in version: 0.007 =back =head2 STILL BROKEN =over 4 =item Test::Aggregate This distribution directly accesses the hash keys in the L<Test::Builder> singleton. It also approaches the problem from the wrong angle, please consider using L<Test2::Aggregate> for similar functionality and L<Test2::Harness> which allows module preloading at the harness level. Still broken as of version: 0.373 =item Test::Wrapper This module directly uses hash keys in the L<Test::Builder> singleton. This module is also obsolete thanks to the benefits of L<Test2>. Use C<intercept()> from L<Test2::API> to achieve a similar result. Still broken as of version: 0.3.0 =item Test::ParallelSubtest This module overrides C<Test::Builder::subtest()> and C<Test::Builder::done_testing()>. It also directly accesses hash elements of the singleton. It has not yet been fixed. Alternatives: L<Test2::AsyncSubtest> and L<Test2::Workflow> (not stable). Still broken as of version: 0.05 =item Test::Pretty See https://github.com/tokuhirom/Test-Pretty/issues/25 The author admits the module is crazy, and he is awaiting a stable release of something new (Test2) to completely rewrite it in a sane way. Still broken as of version: 0.32 =item Net::BitTorrent The tests for this module directly access L<Test::Builder> hash keys. Most, if not all of these hash keys have public API methods that could be used instead to avoid the problem. Still broken in version: 0.052 =item Test::Group It monkeypatches Test::Builder, and calls it "black magic" in the code. Still broken as of version: 0.20 =item Test::Flatten This modifies the Test::Builder internals in many ways. A better was to accomplish the goal of this module is to write your own subtest function. Still broken as of version: 0.11 =item Log::Dispatch::Config::TestLog Modifies Test::Builder internals. Still broken as of version: 0.02 =item Test::Able Modifies Test::Builder internals. Still broken as of version: 0.11 =back =head1 MAKE ASSERTIONS -> SEND EVENTS =head2 LEGACY use Test::Builder; # A majority of tools out there do this: # my $TB = Test::Builder->new; # This works, but has always been wrong, forcing Test::Builder to implement # subtests as a horrific hack. It also causes problems for tools that try # to replace the singleton (also discouraged). sub my_ok($;$) { my ($bool, $name) = @_; my $TB = Test::Builder->new; $TB->ok($bool, $name); } sub my_diag($) { my ($msg) = @_; my $TB = Test::Builder->new; $TB->diag($msg); } =head2 TEST2 use Test2::API qw/context/; sub my_ok($;$) { my ($bool, $name) = @_; my $ctx = context(); $ctx->ok($bool, $name); $ctx->release; } sub my_diag($) { my ($msg) = @_; my $ctx = context(); $ctx->diag($msg); $ctx->release; } The context object has API compatible implementations of the following methods: =over 4 =item ok($bool, $name) =item diag(@messages) =item note(@messages) =item subtest($name, $code) =back If you are looking for helpers with C<is>, C<like>, and others, see L<Test2::Suite>. =head1 WRAP EXISTING TOOLS =head2 LEGACY use Test::More; sub exclusive_ok { my ($bool1, $bool2, $name) = @_; # Ensure errors are reported 1 level higher local $Test::Builder::Level = $Test::Builder::Level + 1; $ok = $bool1 || $bool2; $ok &&= !($bool1 && $bool2); ok($ok, $name); return $bool; } Every single tool in the chain from this, to C<ok>, to anything C<ok> calls needs to increment the C<$Level> variable. When an error occurs Test::Builder will do a trace to the stack frame determined by C<$Level>, and report that file+line as the one where the error occurred. If you or any other tool you use forgets to set C<$Level> then errors will be reported to the wrong place. =head2 TEST2 use Test::More; sub exclusive_ok { my ($bool1, $bool2, $name) = @_; # Grab and store the context, even if you do not need to use it # directly. my $ctx = context(); $ok = $bool1 || $bool2; $ok &&= !($bool1 && $bool2); ok($ok, $name); $ctx->release; return $bool; } Instead of using C<$Level> to perform a backtrace, Test2 uses a context object. In this sample you create a context object and store it. This locks the context (errors report 1 level up from here) for all wrapped tools to find. You do not need to use the context object, but you do need to store it in a variable. Once the sub ends the C<$ctx> variable is destroyed which lets future tools find their own. =head1 USING UTF8 =head2 LEGACY # Set the mode BEFORE anything loads Test::Builder use open ':std', ':encoding(utf8)'; use Test::More; Or # Modify the filehandles my $builder = Test::More->builder; binmode $builder->output, ":encoding(utf8)"; binmode $builder->failure_output, ":encoding(utf8)"; binmode $builder->todo_output, ":encoding(utf8)"; =head2 TEST2 use Test2::API qw/test2_stack/; test2_stack->top->format->encoding('utf8'); Though a much better way is to use the L<Test2::Plugin::UTF8> plugin, which is part of L<Test2::Suite>. =head1 AUTHORS, CONTRIBUTORS AND REVIEWERS The following people have all contributed to this document in some way, even if only for review. =over 4 =item Chad Granum (EXODIST) E<lt>exodist@cpan.orgE<gt> =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINER =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://www.perl.com/perl/misc/Artistic.html> =cut PK ! ��.) ) 5.34.0/Test2/Util.pmnu �[��� package Test2::Util; use strict; use warnings; our $VERSION = '1.302183'; use POSIX(); use Config qw/%Config/; use Carp qw/croak/; BEGIN { local ($@, $!, $SIG{__DIE__}); *HAVE_PERLIO = eval { require PerlIO; PerlIO->VERSION(1.02); } ? sub() { 1 } : sub() { 0 }; } our @EXPORT_OK = qw{ try pkg_to_file get_tid USE_THREADS CAN_THREAD CAN_REALLY_FORK CAN_FORK CAN_SIGSYS IS_WIN32 ipc_separator gen_uid do_rename do_unlink try_sig_mask clone_io }; BEGIN { require Exporter; our @ISA = qw(Exporter) } BEGIN { *IS_WIN32 = ($^O eq 'MSWin32') ? sub() { 1 } : sub() { 0 }; } sub _can_thread { return 0 unless $] >= 5.008001; return 0 unless $Config{'useithreads'}; # Threads are broken on perl 5.10.0 built with gcc 4.8+ if ($] == 5.010000 && $Config{'ccname'} eq 'gcc' && $Config{'gccversion'}) { my @parts = split /\./, $Config{'gccversion'}; return 0 if $parts[0] > 4 || ($parts[0] == 4 && $parts[1] >= 8); } # Change to a version check if this ever changes return 0 if $INC{'Devel/Cover.pm'}; return 1; } sub _can_fork { return 1 if $Config{d_fork}; return 0 unless IS_WIN32 || $^O eq 'NetWare'; return 0 unless $Config{useithreads}; return 0 unless $Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/; return _can_thread(); } BEGIN { no warnings 'once'; *CAN_THREAD = _can_thread() ? sub() { 1 } : sub() { 0 }; } my $can_fork; sub CAN_FORK () { return $can_fork if defined $can_fork; $can_fork = !!_can_fork(); no warnings 'redefine'; *CAN_FORK = $can_fork ? sub() { 1 } : sub() { 0 }; $can_fork; } my $can_really_fork; sub CAN_REALLY_FORK () { return $can_really_fork if defined $can_really_fork; $can_really_fork = !!$Config{d_fork}; no warnings 'redefine'; *CAN_REALLY_FORK = $can_really_fork ? sub() { 1 } : sub() { 0 }; $can_really_fork; } sub _manual_try(&;@) { my $code = shift; my $args = \@_; my $err; my $die = delete $SIG{__DIE__}; eval { $code->(@$args); 1 } or $err = $@ || "Error was squashed!\n"; $die ? $SIG{__DIE__} = $die : delete $SIG{__DIE__}; return (!defined($err), $err); } sub _local_try(&;@) { my $code = shift; my $args = \@_; my $err; no warnings; local $SIG{__DIE__}; eval { $code->(@$args); 1 } or $err = $@ || "Error was squashed!\n"; return (!defined($err), $err); } # Older versions of perl have a nasty bug on win32 when localizing a variable # before forking or starting a new thread. So for those systems we use the # non-local form. When possible though we use the faster 'local' form. BEGIN { if (IS_WIN32 && $] < 5.020002) { *try = \&_manual_try; } else { *try = \&_local_try; } } BEGIN { if (CAN_THREAD) { if ($INC{'threads.pm'}) { # Threads are already loaded, so we do not need to check if they # are loaded each time *USE_THREADS = sub() { 1 }; *get_tid = sub() { threads->tid() }; } else { # :-( Need to check each time to see if they have been loaded. *USE_THREADS = sub() { $INC{'threads.pm'} ? 1 : 0 }; *get_tid = sub() { $INC{'threads.pm'} ? threads->tid() : 0 }; } } else { # No threads, not now, not ever! *USE_THREADS = sub() { 0 }; *get_tid = sub() { 0 }; } } sub pkg_to_file { my $pkg = shift; my $file = $pkg; $file =~ s{(::|')}{/}g; $file .= '.pm'; return $file; } sub ipc_separator() { "~" } my $UID = 1; sub gen_uid() { join ipc_separator() => ($$, get_tid(), time, $UID++) } sub _check_for_sig_sys { my $sig_list = shift; return $sig_list =~ m/\bSYS\b/; } BEGIN { if (_check_for_sig_sys($Config{sig_name})) { *CAN_SIGSYS = sub() { 1 }; } else { *CAN_SIGSYS = sub() { 0 }; } } my %PERLIO_SKIP = ( unix => 1, via => 1, ); sub clone_io { my ($fh) = @_; my $fileno = eval { fileno($fh) }; return $fh if !defined($fileno) || !length($fileno) || $fileno < 0; open(my $out, '>&' . $fileno) or die "Can't dup fileno $fileno: $!"; my %seen; my @layers = HAVE_PERLIO ? grep { !$PERLIO_SKIP{$_} and !$seen{$_}++ } PerlIO::get_layers($fh) : (); binmode($out, join(":", "", "raw", @layers)); my $old = select $fh; my $af = $|; select $out; $| = $af; select $old; return $out; } BEGIN { if (IS_WIN32) { my $max_tries = 5; *do_rename = sub { my ($from, $to) = @_; my $err; for (1 .. $max_tries) { return (1) if rename($from, $to); $err = "$!"; last if $_ == $max_tries; sleep 1; } return (0, $err); }; *do_unlink = sub { my ($file) = @_; my $err; for (1 .. $max_tries) { return (1) if unlink($file); $err = "$!"; last if $_ == $max_tries; sleep 1; } return (0, "$!"); }; } else { *do_rename = sub { my ($from, $to) = @_; return (1) if rename($from, $to); return (0, "$!"); }; *do_unlink = sub { my ($file) = @_; return (1) if unlink($file); return (0, "$!"); }; } } sub try_sig_mask(&) { my $code = shift; my ($old, $blocked); unless(IS_WIN32) { my $to_block = POSIX::SigSet->new( POSIX::SIGINT(), POSIX::SIGALRM(), POSIX::SIGHUP(), POSIX::SIGTERM(), POSIX::SIGUSR1(), POSIX::SIGUSR2(), ); $old = POSIX::SigSet->new; $blocked = POSIX::sigprocmask(POSIX::SIG_BLOCK(), $to_block, $old); # Silently go on if we failed to log signals, not much we can do. } my ($ok, $err) = &try($code); # If our block was successful we want to restore the old mask. POSIX::sigprocmask(POSIX::SIG_SETMASK(), $old, POSIX::SigSet->new()) if defined $blocked; return ($ok, $err); } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::Util - Tools used by Test2 and friends. =head1 DESCRIPTION Collection of tools used by L<Test2> and friends. =head1 EXPORTS All exports are optional. You must specify subs to import. =over 4 =item ($success, $error) = try { ... } Eval the codeblock, return success or failure, and the error message. This code protects $@ and $!, they will be restored by the end of the run. This code also temporarily blocks $SIG{DIE} handlers. =item protect { ... } Similar to try, except that it does not catch exceptions. The idea here is to protect $@ and $! from changes. $@ and $! will be restored to whatever they were before the run so long as it is successful. If the run fails $! will still be restored, but $@ will contain the exception being thrown. =item CAN_FORK True if this system is capable of true or pseudo-fork. =item CAN_REALLY_FORK True if the system can really fork. This will be false for systems where fork is emulated. =item CAN_THREAD True if this system is capable of using threads. =item USE_THREADS Returns true if threads are enabled, false if they are not. =item get_tid This will return the id of the current thread when threads are enabled, otherwise it returns 0. =item my $file = pkg_to_file($package) Convert a package name to a filename. =item $string = ipc_separator() Get the IPC separator. Currently this is always the string C<'~'>. =item $string = gen_uid() Generate a unique id (NOT A UUID). This will typically be the process id, the thread id, the time, and an incrementing integer all joined with the C<ipc_separator()>. These ID's are unique enough for most purposes. For identical ids to be generated you must have 2 processes with the same PID generate IDs at the same time with the same current state of the incrementing integer. This is a perfectly reasonable thing to expect to happen across multiple machines, but is quite unlikely to happen on one machine. This can fail to be unique if a process generates an id, calls exec, and does it again after the exec and it all happens in less than a second. It can also happen if the systems process id's cycle in less than a second allowing 2 different programs that use this generator to run with the same PID in less than a second. Both these cases are sufficiently unlikely. If you need universally unique ids, or ids that are unique in these conditions, look at L<Data::UUID>. =item ($ok, $err) = do_rename($old_name, $new_name) Rename a file, this wraps C<rename()> in a way that makes it more reliable cross-platform when trying to rename files you recently altered. =item ($ok, $err) = do_unlink($filename) Unlink a file, this wraps C<unlink()> in a way that makes it more reliable cross-platform when trying to unlink files you recently altered. =item ($ok, $err) = try_sig_mask { ... } Complete an action with several signals masked, they will be unmasked at the end allowing any signals that were intercepted to get handled. This is primarily used when you need to make several actions atomic (against some signals anyway). Signals that are intercepted: =over 4 =item SIGINT =item SIGALRM =item SIGHUP =item SIGTERM =item SIGUSR1 =item SIGUSR2 =back =back =head1 NOTES && CAVEATS =over 4 =item 5.10.0 Perl 5.10.0 has a bug when compiled with newer gcc versions. This bug causes a segfault whenever a new thread is launched. Test2 will attempt to detect this, and note that the system is not capable of forking when it is detected. =item Devel::Cover Devel::Cover does not support threads. CAN_THREAD will return false if Devel::Cover is loaded before the check is first run. =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =item Kent Fredric E<lt>kentnl@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! c�.�oX oX 5.34.0/Test2/Event.pmnu �[��� package Test2::Event; use strict; use warnings; our $VERSION = '1.302183'; use Scalar::Util qw/blessed reftype/; use Carp qw/croak/; use Test2::Util::HashBase qw/trace -amnesty uuid -_eid -hubs/; use Test2::Util::ExternalMeta qw/meta get_meta set_meta delete_meta/; use Test2::Util qw/pkg_to_file gen_uid/; use Test2::EventFacet::About(); use Test2::EventFacet::Amnesty(); use Test2::EventFacet::Assert(); use Test2::EventFacet::Control(); use Test2::EventFacet::Error(); use Test2::EventFacet::Info(); use Test2::EventFacet::Meta(); use Test2::EventFacet::Parent(); use Test2::EventFacet::Plan(); use Test2::EventFacet::Trace(); use Test2::EventFacet::Hub(); # Legacy tools will expect this to be loaded now require Test2::Util::Trace; my %LOADED_FACETS = ( 'about' => 'Test2::EventFacet::About', 'amnesty' => 'Test2::EventFacet::Amnesty', 'assert' => 'Test2::EventFacet::Assert', 'control' => 'Test2::EventFacet::Control', 'errors' => 'Test2::EventFacet::Error', 'info' => 'Test2::EventFacet::Info', 'meta' => 'Test2::EventFacet::Meta', 'parent' => 'Test2::EventFacet::Parent', 'plan' => 'Test2::EventFacet::Plan', 'trace' => 'Test2::EventFacet::Trace', 'hubs' => 'Test2::EventFacet::Hub', ); sub FACET_TYPES { sort values %LOADED_FACETS } sub load_facet { my $class = shift; my ($facet) = @_; return $LOADED_FACETS{$facet} if exists $LOADED_FACETS{$facet}; my @check = ($facet); if ('s' eq substr($facet, -1, 1)) { push @check => substr($facet, 0, -1); } else { push @check => $facet . 's'; } my $found; for my $check (@check) { my $mod = "Test2::EventFacet::" . ucfirst($facet); my $file = pkg_to_file($mod); next unless eval { require $file; 1 }; $found = $mod; last; } return undef unless $found; $LOADED_FACETS{$facet} = $found; } sub causes_fail { 0 } sub increments_count { 0 } sub diagnostics { 0 } sub no_display { 0 } sub subtest_id { undef } sub callback { } sub terminate { () } sub global { () } sub sets_plan { () } sub summary { ref($_[0]) } sub related { my $self = shift; my ($event) = @_; my $tracea = $self->trace or return undef; my $traceb = $event->trace or return undef; my $uuida = $tracea->uuid; my $uuidb = $traceb->uuid; if ($uuida && $uuidb) { return 1 if $uuida eq $uuidb; return 0; } my $siga = $tracea->signature or return undef; my $sigb = $traceb->signature or return undef; return 1 if $siga eq $sigb; return 0; } sub add_hub { my $self = shift; unshift @{$self->{+HUBS}} => @_; } sub add_amnesty { my $self = shift; for my $am (@_) { $am = {%$am} if ref($am) ne 'ARRAY'; $am = Test2::EventFacet::Amnesty->new($am); push @{$self->{+AMNESTY}} => $am; } } sub eid { $_[0]->{+_EID} ||= gen_uid() } sub common_facet_data { my $self = shift; my %out; $out{about} = {package => ref($self) || undef}; if (my $uuid = $self->uuid) { $out{about}->{uuid} = $uuid; } $out{about}->{eid} = $self->{+_EID} || $self->eid; if (my $trace = $self->trace) { $out{trace} = { %$trace }; } if (my $hubs = $self->hubs) { $out{hubs} = $hubs; } $out{amnesty} = [map {{ %{$_} }} @{$self->{+AMNESTY}}] if $self->{+AMNESTY}; if (my $meta = $self->meta_facet_data) { $out{meta} = $meta; } return \%out; } sub meta_facet_data { my $self = shift; my $key = Test2::Util::ExternalMeta::META_KEY(); my $hash = $self->{$key} or return undef; return {%$hash}; } sub facet_data { my $self = shift; my $out = $self->common_facet_data; $out->{about}->{details} = $self->summary || undef; $out->{about}->{no_display} = $self->no_display || undef; # Might be undef, we want to preserve that my $terminate = $self->terminate; $out->{control} = { global => $self->global || 0, terminate => $terminate, has_callback => $self->can('callback') == \&callback ? 0 : 1, }; $out->{assert} = { no_debug => 1, # Legacy behavior pass => $self->causes_fail ? 0 : 1, details => $self->summary, } if $self->increments_count; $out->{parent} = {hid => $self->subtest_id} if $self->subtest_id; if (my @plan = $self->sets_plan) { $out->{plan} = {}; $out->{plan}->{count} = $plan[0] if defined $plan[0]; $out->{plan}->{details} = $plan[2] if defined $plan[2]; if ($plan[1]) { $out->{plan}->{skip} = 1 if $plan[1] eq 'SKIP'; $out->{plan}->{none} = 1 if $plan[1] eq 'NO PLAN'; } $out->{control}->{terminate} ||= 0 if $out->{plan}->{skip}; } if ($self->causes_fail && !$out->{assert}) { $out->{errors} = [ { tag => 'FAIL', fail => 1, details => $self->summary, } ]; } my %IGNORE = (trace => 1, about => 1, control => 1); my $do_info = !grep { !$IGNORE{$_} } keys %$out; if ($do_info && !$self->no_display && $self->diagnostics) { $out->{info} = [ { tag => 'DIAG', debug => 1, details => $self->summary, } ]; } return $out; } sub facets { my $self = shift; my %out; my $data = $self->facet_data; my @errors = $self->validate_facet_data($data); die join "\n" => @errors if @errors; for my $facet (keys %$data) { my $class = $self->load_facet($facet); my $val = $data->{$facet}; unless($class) { $out{$facet} = $val; next; } my $is_list = reftype($val) eq 'ARRAY' ? 1 : 0; if ($is_list) { $out{$facet} = [map { $class->new($_) } @$val]; } else { $out{$facet} = $class->new($val); } } return \%out; } sub validate_facet_data { my $class_or_self = shift; my ($f, %params); $f = shift if @_ && (reftype($_[0]) || '') eq 'HASH'; %params = @_; $f ||= $class_or_self->facet_data if blessed($class_or_self); croak "No facet data" unless $f; my @errors; for my $k (sort keys %$f) { my $fclass = $class_or_self->load_facet($k); push @errors => "Could not find a facet class for facet '$k'" if $params{require_facet_class} && !$fclass; next unless $fclass; my $v = $f->{$k}; next unless defined($v); # undef is always fine my $is_list = $fclass->is_list(); my $got_list = reftype($v) eq 'ARRAY' ? 1 : 0; push @errors => "Facet '$k' should be a list, but got a single item ($v)" if $is_list && !$got_list; push @errors => "Facet '$k' should not be a list, but got a a list ($v)" if $got_list && !$is_list; } return @errors; } sub nested { my $self = shift; Carp::cluck("Use of Test2::Event->nested() is deprecated, use Test2::Event->trace->nested instead") if $ENV{AUTHOR_TESTING}; if (my $hubs = $self->{+HUBS}) { return $hubs->[0]->{nested} if @$hubs; } my $trace = $self->{+TRACE} or return undef; return $trace->{nested}; } sub in_subtest { my $self = shift; Carp::cluck("Use of Test2::Event->in_subtest() is deprecated, use Test2::Event->trace->hid instead") if $ENV{AUTHOR_TESTING}; my $hubs = $self->{+HUBS}; if ($hubs && @$hubs) { return undef unless $hubs->[0]->{nested}; return $hubs->[0]->{hid} } my $trace = $self->{+TRACE} or return undef; return undef unless $trace->{nested}; return $trace->{hid}; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::Event - Base class for events =head1 DESCRIPTION Base class for all event objects that get passed through L<Test2>. =head1 SYNOPSIS package Test2::Event::MyEvent; use strict; use warnings; # This will make our class an event subclass (required) use base 'Test2::Event'; # Add some accessors (optional) # You are not obligated to use HashBase, you can use any object tool you # want, or roll your own accessors. use Test2::Util::HashBase qw/foo bar baz/; # Use this if you want the legacy API to be written for you, for this to # work you will need to implement a facet_data() method. use Test2::Util::Facets2Legacy; # Chance to initialize some defaults sub init { my $self = shift; # no other args in @_ $self->set_foo('xxx') unless defined $self->foo; ... } # This is the new way for events to convey data to the Test2 system sub facet_data { my $self = shift; # Get common facets such as 'about', 'trace' 'amnesty', and 'meta' my $facet_data = $self->common_facet_data(); # Are you making an assertion? $facet_data->{assert} = {pass => 1, details => 'my assertion'}; ... return $facet_data; } 1; =head1 METHODS =head2 GENERAL =over 4 =item $trace = $e->trace Get a snapshot of the L<Test2::EventFacet::Trace> as it was when this event was generated =item $bool_or_undef = $e->related($e2) Check if 2 events are related. In this case related means their traces share a signature meaning they were created with the same context (or at the very least by contexts which share an id, which is the same thing unless someone is doing something very bad). This can be used to reliably link multiple events created by the same tool. For instance a failing test like C<ok(0, "fail"> will generate 2 events, one being a L<Test2::Event::Ok>, the other being a L<Test2::Event::Diag>, both of these events are related having been created under the same context and by the same initial tool (though multiple tools may have been nested under the initial one). This will return C<undef> if the relationship cannot be checked, which happens if either event has an incomplete or missing trace. This will return C<0> if the traces are complete, but do not match. C<1> will be returned if there is a match. =item $e->add_amnesty({tag => $TAG, details => $DETAILS}); This can be used to add amnesty to this event. Amnesty only effects failing assertions in most cases, but some formatters may display them for passing assertions, or even non-assertions as well. Amnesty will prevent a failed assertion from causing the overall test to fail. In other words it marks a failure as expected and allowed. B<Note:> This is how 'TODO' is implemented under the hood. TODO is essentially amnesty with the 'TODO' tag. The details are the reason for the TODO. =item $uuid = $e->uuid If UUID tagging is enabled (See L<Test::API>) then any event that has made its way through a hub will be tagged with a UUID. A newly created event will not yet be tagged in most cases. =item $class = $e->load_facet($name) This method is used to load a facet by name (or key). It will attempt to load the facet class, if it succeeds it will return the class it loaded. If it fails it will return C<undef>. This caches the result at the class level so that future calls will be faster. The C<$name> variable should be the key used to access the facet in a facets hashref. For instance the assertion facet has the key 'assert', the information facet has the 'info' key, and the error facet has the key 'errors'. You may include or omit the 's' at the end of the name, the method is smart enough to try both the 's' and no-'s' forms, it will check what you provided first, and if that is not found it will add or strip the 's and try again. =item @classes = $e->FACET_TYPES() =item @classes = Test2::Event->FACET_TYPES() This returns a list of all facets that have been loaded using the C<load_facet()> method. This will not return any classes that have not been loaded, or have been loaded directly without a call to C<load_facet()>. B<Note:> The core facet types are automatically loaded and populated in this list. =back =head2 NEW API =over 4 =item $hashref = $e->common_facet_data(); This can be used by subclasses to generate a starting facet data hashref. This will populate the hashref with the trace, meta, amnesty, and about facets. These facets are nearly always produced the same way for all events. =item $hashref = $e->facet_data() If you do not override this then the default implementation will attempt to generate facets from the legacy API. This generation is limited only to what the legacy API can provide. It is recommended that you override this method and write out explicit facet data. =item $hashref = $e->facets() This takes the hashref from C<facet_data()> and blesses each facet into the proper C<Test2::EventFacet::*> subclass. If no class can be found for any given facet it will be passed along unchanged. =item @errors = $e->validate_facet_data(); =item @errors = $e->validate_facet_data(%params); =item @errors = $e->validate_facet_data(\%facets, %params); =item @errors = Test2::Event->validate_facet_data(%params); =item @errors = Test2::Event->validate_facet_data(\%facets, %params); This method will validate facet data and return a list of errors. If no errors are found this will return an empty list. This can be called as an object method with no arguments, in which case the C<facet_data()> method will be called to get the facet data to be validated. When used as an object method the C<\%facet_data> argument may be omitted. When used as a class method the C<\%facet_data> argument is required. Remaining arguments will be slurped into a C<%params> hash. Currently only 1 parameter is defined: =over 4 =item require_facet_class => $BOOL When set to true (default is false) this will reject any facets where a facet class cannot be found. Normally facets without classes are assumed to be custom and are ignored. =back =back =head3 WHAT ARE FACETS? Facets are how events convey their purpose to the Test2 internals and formatters. An event without facets will have no intentional effect on the overall test state, and will not be displayed at all by most formatters, except perhaps to say that an event of an unknown type was seen. Facets are produced by the C<facet_data()> subroutine, which you should nearly-always override. C<facet_data()> is expected to return a hashref where each key is the facet type, and the value is either a hashref with the data for that facet, or an array of hashrefs. Some facets must be defined as single hashrefs, some must be defined as an array of hashrefs, No facets allow both. C<facet_data()> B<MUST NOT> bless the data it returns, the main hashref, and nested facet hashrefs B<MUST> be bare, though items contained within each facet may be blessed. The data returned by this method B<should> also be copies of the internal data in order to prevent accidental state modification. C<facets()> takes the data from C<facet_data()> and blesses it into the C<Test2::EventFacet::*> packages. This is rarely used however, the EventFacet packages are primarily for convenience and documentation. The EventFacet classes are not used at all internally, instead the raw data is used. Here is a list of facet types by package. The packages are not used internally, but are where the documentation for each type is kept. B<Note:> Every single facet type has the C<'details'> field. This field is always intended for human consumption, and when provided, should explain the 'why' for the facet. All other fields are facet specific. =over 4 =item about => {...} L<Test2::EventFacet::About> This contains information about the event itself such as the event package name. The C<details> field for this facet is an overall summary of the event. =item assert => {...} L<Test2::EventFacet::Assert> This facet is used if an assertion was made. The C<details> field of this facet is the description of the assertion. =item control => {...} L<Test2::EventFacet::Control> This facet is used to tell the L<Test2::Event::Hub> about special actions the event causes. Things like halting all testing, terminating the current test, etc. In this facet the C<details> field explains why any special action was taken. B<Note:> This is how bail-out is implemented. =item meta => {...} L<Test2::EventFacet::Meta> The meta facet contains all the meta-data attached to the event. In this case the C<details> field has no special meaning, but may be present if something sets the 'details' meta-key on the event. =item parent => {...} L<Test2::EventFacet::Parent> This facet contains nested events and similar details for subtests. In this facet the C<details> field will typically be the name of the subtest. =item plan => {...} L<Test2::EventFacet::Plan> This facet tells the system that a plan has been set. The C<details> field of this is usually left empty, but when present explains why the plan is what it is, this is most useful if the plan is to skip-all. =item trace => {...} L<Test2::EventFacet::Trace> This facet contains information related to when and where the event was generated. This is how the test file and line number of a failure is known. This facet can also help you to tell if tests are related. In this facet the C<details> field overrides the "failed at test_file.t line 42." message provided on assertion failure. =item amnesty => [{...}, ...] L<Test2::EventFacet::Amnesty> The amnesty facet is a list instead of a single item, this is important as amnesty can come from multiple places at once. For each instance of amnesty the C<details> field explains why amnesty was granted. B<Note:> Outside of formatters amnesty only acts to forgive a failing assertion. =item errors => [{...}, ...] L<Test2::EventFacet::Error> The errors facet is a list instead of a single item, any number of errors can be listed. In this facet C<details> describes the error, or may contain the raw error message itself (such as an exception). In perl exception may be blessed objects, as such the raw data for this facet may contain nested items which are blessed. Not all errors are considered fatal, there is a C<fail> field that must be set for an error to cause the test to fail. B<Note:> This facet is unique in that the field name is 'errors' while the package is 'Error'. This is because this is the only facet type that is both a list, and has a name where the plural is not the same as the singular. This may cause some confusion, but I feel it will be less confusing than the alternative. =item info => [{...}, ...] L<Test2::EventFacet::Info> The 'info' facet is a list instead of a single item, any quantity of extra information can be attached to an event. Some information may be critical diagnostics, others may be simply commentary in nature, this is determined by the C<debug> flag. For this facet the C<details> flag is the info itself. This info may be a string, or it may be a data structure to display. This is one of the few facet types that may contain blessed items. =back =head2 LEGACY API =over 4 =item $bool = $e->causes_fail Returns true if this event should result in a test failure. In general this should be false. =item $bool = $e->increments_count Should be true if this event should result in a test count increment. =item $e->callback($hub) If your event needs to have extra effects on the L<Test2::Hub> you can override this method. This is called B<BEFORE> your event is passed to the formatter. =item $num = $e->nested If this event is nested inside of other events, this should be the depth of nesting. (This is mainly for subtests) =item $bool = $e->global Set this to true if your event is global, that is ALL threads and processes should see it no matter when or where it is generated. This is not a common thing to want, it is used by bail-out and skip_all to end testing. =item $code = $e->terminate This is called B<AFTER> your event has been passed to the formatter. This should normally return undef, only change this if your event should cause the test to exit immediately. If you want this event to cause the test to exit you should return the exit code here. Exit code of 0 means exit success, any other integer means exit with failure. This is used by L<Test2::Event::Plan> to exit 0 when the plan is 'skip_all'. This is also used by L<Test2::Event:Bail> to force the test to exit with a failure. This is called after the event has been sent to the formatter in order to ensure the event is seen and understood. =item $msg = $e->summary This is intended to be a human readable summary of the event. This should ideally only be one line long, but you can use multiple lines if necessary. This is intended for human consumption. You do not need to make it easy for machines to understand. The default is to simply return the event package name. =item ($count, $directive, $reason) = $e->sets_plan() Check if this event sets the testing plan. It will return an empty list if it does not. If it does set the plan it will return a list of 1 to 3 items in order: Expected Test Count, Test Directive, Reason for directive. =item $bool = $e->diagnostics True if the event contains diagnostics info. This is useful because a non-verbose harness may choose to hide events that are not in this category. Some formatters may choose to send these to STDERR instead of STDOUT to ensure they are seen. =item $bool = $e->no_display False by default. This will return true on events that should not be displayed by formatters. =item $id = $e->in_subtest If the event is inside a subtest this should have the subtest ID. =item $id = $e->subtest_id If the event is a final subtest event, this should contain the subtest ID. =back =head1 THIRD PARTY META-DATA This object consumes L<Test2::Util::ExternalMeta> which provides a consistent way for you to attach meta-data to instances of this class. This is useful for tools, plugins, and other extensions. =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! �5�z z 5.34.0/Test2/IPC/Driver.pmnu �[��� package Test2::IPC::Driver; use strict; use warnings; our $VERSION = '1.302183'; use Carp qw/confess/; use Test2::Util::HashBase qw{no_fatal no_bail}; use Test2::API qw/test2_ipc_add_driver/; my %ADDED; sub import { my $class = shift; return if $class eq __PACKAGE__; return if $ADDED{$class}++; test2_ipc_add_driver($class); } sub pending { -1 } sub set_pending { -1 } for my $meth (qw/send cull add_hub drop_hub waiting is_viable/) { no strict 'refs'; *$meth = sub { my $thing = shift; confess "'$thing' did not define the required method '$meth'." }; } # Print the error and call exit. We are not using 'die' cause this is a # catastrophic error that should never be caught. If we get here it # means some serious shit has happened in a child process, the only way # to inform the parent may be to exit false. sub abort { my $self = shift; chomp(my ($msg) = @_); $self->driver_abort($msg) if $self->can('driver_abort'); print STDERR "IPC Fatal Error: $msg\n"; print STDOUT "Bail out! IPC Fatal Error: $msg\n" unless $self->no_bail; CORE::exit(255) unless $self->no_fatal; } sub abort_trace { my $self = shift; my ($msg) = @_; # Older versions of Carp do not export longmess() function, so it needs to be called with package name $self->abort(Carp::longmess($msg)); } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::IPC::Driver - Base class for Test2 IPC drivers. =head1 SYNOPSIS package Test2::IPC::Driver::MyDriver; use base 'Test2::IPC::Driver'; ... =head1 METHODS =over 4 =item $self->abort($msg) If an IPC encounters a fatal error it should use this. This will print the message to STDERR with C<'IPC Fatal Error: '> prefixed to it, then it will forcefully exit 255. IPC errors may occur in threads or processes other than the main one, this method provides the best chance of the harness noticing the error. =item $self->abort_trace($msg) This is the same as C<< $ipc->abort($msg) >> except that it uses C<Carp::longmess> to add a stack trace to the message. =back =head1 LOADING DRIVERS Test2::IPC::Driver has an C<import()> method. All drivers inherit this import method. This import method registers the driver. In most cases you just need to load the desired IPC driver to make it work. You should load this driver as early as possible. A warning will be issued if you load it too late for it to be effective. use Test2::IPC::Driver::MyDriver; ... =head1 WRITING DRIVERS package Test2::IPC::Driver::MyDriver; use strict; use warnings; use base 'Test2::IPC::Driver'; sub is_viable { return 0 if $^O eq 'win32'; # Will not work on windows. return 1; } sub add_hub { my $self = shift; my ($hid) = @_; ... # Make it possible to contact the hub } sub drop_hub { my $self = shift; my ($hid) = @_; ... # Nothing should try to reach the hub anymore. } sub send { my $self = shift; my ($hid, $e, $global) = @_; ... # Send the event to the proper hub. # This may notify other procs/threads that there is a pending event. Test2::API::test2_ipc_set_pending($uniq_val); } sub cull { my $self = shift; my ($hid) = @_; my @events = ...; # Here is where you get the events for the hub return @events; } sub waiting { my $self = shift; ... # Notify all listening procs and threads that the main ... # process/thread is waiting for them to finish. } 1; =head2 METHODS SUBCLASSES MUST IMPLEMENT =over 4 =item $ipc->is_viable This should return true if the driver works in the current environment. This should return false if it does not. This is a CLASS method. =item $ipc->add_hub($hid) This is used to alert the driver that a new hub is expecting events. The driver should keep track of the process and thread ids, the hub should only be dropped by the proc+thread that started it. sub add_hub { my $self = shift; my ($hid) = @_; ... # Make it possible to contact the hub } =item $ipc->drop_hub($hid) This is used to alert the driver that a hub is no longer accepting events. The driver should keep track of the process and thread ids, the hub should only be dropped by the proc+thread that started it (This is the drivers responsibility to enforce). sub drop_hub { my $self = shift; my ($hid) = @_; ... # Nothing should try to reach the hub anymore. } =item $ipc->send($hid, $event); =item $ipc->send($hid, $event, $global); Used to send events from the current process/thread to the specified hub in its process+thread. sub send { my $self = shift; my ($hid, $e) = @_; ... # Send the event to the proper hub. # This may notify other procs/threads that there is a pending event. Test2::API::test2_ipc_set_pending($uniq_val); } If C<$global> is true then the driver should send the event to all hubs in all processes and threads. =item @events = $ipc->cull($hid) Used to collect events that have been sent to the specified hub. sub cull { my $self = shift; my ($hid) = @_; my @events = ...; # Here is where you get the events for the hub return @events; } =item $ipc->waiting() This is called in the parent process when it is complete and waiting for all child processes and threads to complete. sub waiting { my $self = shift; ... # Notify all listening procs and threads that the main ... # process/thread is waiting for them to finish. } =back =head2 METHODS SUBCLASSES MAY IMPLEMENT OR OVERRIDE =over 4 =item $ipc->driver_abort($msg) This is a hook called by C<< Test2::IPC::Driver->abort() >>. This is your chance to cleanup when an abort happens. You cannot prevent the abort, but you can gracefully except it. =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! U�\�4 �4 5.34.0/Test2/IPC/Driver/Files.pmnu �[��� package Test2::IPC::Driver::Files; use strict; use warnings; our $VERSION = '1.302183'; BEGIN { require Test2::IPC::Driver; our @ISA = qw(Test2::IPC::Driver) } use Test2::Util::HashBase qw{tempdir event_ids read_ids timeouts tid pid globals}; use Scalar::Util qw/blessed/; use File::Temp(); use Storable(); use File::Spec(); use POSIX(); use Test2::Util qw/try get_tid pkg_to_file IS_WIN32 ipc_separator do_rename do_unlink try_sig_mask/; use Test2::API qw/test2_ipc_set_pending/; sub is_viable { 1 } sub init { my $self = shift; my $tmpdir = File::Temp::tempdir( $ENV{T2_TEMPDIR_TEMPLATE} || "test2" . ipc_separator . $$ . ipc_separator . "XXXXXX", CLEANUP => 0, TMPDIR => 1, ); $self->abort_trace("Could not get a temp dir") unless $tmpdir; $self->{+TEMPDIR} = File::Spec->canonpath($tmpdir); print STDERR "\nIPC Temp Dir: $tmpdir\n\n" if $ENV{T2_KEEP_TEMPDIR}; $self->{+EVENT_IDS} = {}; $self->{+READ_IDS} = {}; $self->{+TIMEOUTS} = {}; $self->{+TID} = get_tid(); $self->{+PID} = $$; $self->{+GLOBALS} = {}; return $self; } sub hub_file { my $self = shift; my ($hid) = @_; my $tdir = $self->{+TEMPDIR}; return File::Spec->catfile($tdir, "HUB" . ipc_separator . $hid); } sub event_file { my $self = shift; my ($hid, $e) = @_; my $tempdir = $self->{+TEMPDIR}; my $type = blessed($e) or $self->abort("'$e' is not a blessed object!"); $self->abort("'$e' is not an event object!") unless $type->isa('Test2::Event'); my $tid = get_tid(); my $eid = $self->{+EVENT_IDS}->{$hid}->{$$}->{$tid} += 1; my @type = split '::', $type; my $name = join(ipc_separator, $hid, $$, $tid, $eid, @type); return File::Spec->catfile($tempdir, $name); } sub add_hub { my $self = shift; my ($hid) = @_; my $hfile = $self->hub_file($hid); $self->abort_trace("File for hub '$hid' already exists") if -e $hfile; open(my $fh, '>', $hfile) or $self->abort_trace("Could not create hub file '$hid': $!"); print $fh "$$\n" . get_tid() . "\n"; close($fh); } sub drop_hub { my $self = shift; my ($hid) = @_; my $tdir = $self->{+TEMPDIR}; my $hfile = $self->hub_file($hid); $self->abort_trace("File for hub '$hid' does not exist") unless -e $hfile; open(my $fh, '<', $hfile) or $self->abort_trace("Could not open hub file '$hid': $!"); my ($pid, $tid) = <$fh>; close($fh); $self->abort_trace("A hub file can only be closed by the process that started it\nExpected $pid, got $$") unless $pid == $$; $self->abort_trace("A hub file can only be closed by the thread that started it\nExpected $tid, got " . get_tid()) unless get_tid() == $tid; if ($ENV{T2_KEEP_TEMPDIR}) { my ($ok, $err) = do_rename($hfile, File::Spec->canonpath("$hfile.complete")); $self->abort_trace("Could not rename file '$hfile' -> '$hfile.complete': $err") unless $ok } else { my ($ok, $err) = do_unlink($hfile); $self->abort_trace("Could not remove file for hub '$hid': $err") unless $ok } opendir(my $dh, $tdir) or $self->abort_trace("Could not open temp dir!"); my %bad; for my $file (readdir($dh)) { next if $file =~ m{\.complete$}; next unless $file =~ m{^$hid}; eval { $bad{$file} = $self->read_event_file(File::Spec->catfile($tdir, $file)); 1 } or $bad{$file} = $@ || "Unknown error reading file"; } closedir($dh); return unless keys %bad; my $data; my $ok = eval { require JSON::PP; local *UNIVERSAL::TO_JSON = sub { +{ %{$_[0]} } }; my $json = JSON::PP->new->ascii->pretty->canonical->allow_unknown->allow_blessed->convert_blessed; $data = $json->encode(\%bad); 1; }; $ok ||= eval { require Data::Dumper; local $Data::Dumper::Sortkeys = 1; $data = Data::Dumper::Dumper(\%bad); 1; }; $data = "Could not dump data... sorry." unless defined $data; $self->abort_trace("Not all files from hub '$hid' have been collected!\nHere is the leftover data:\n========================\n$data\n===================\n"); } sub send { my $self = shift; my ($hid, $e, $global) = @_; my $tempdir = $self->{+TEMPDIR}; my $hfile = $self->hub_file($hid); my $dest = $global ? 'GLOBAL' : $hid; $self->abort(<<" EOT") unless $global || -f $hfile; hub '$hid' is not available, failed to send event! There was an attempt to send an event to a hub in a parent process or thread, but that hub appears to be gone. This can happen if you fork, or start a new thread from inside subtest, and the parent finishes the subtest before the child returns. This can also happen if the parent process is done testing before the child finishes. Test2 normally waits automatically in the root process, but will not do so if Test::Builder is loaded for legacy reasons. EOT my $file = $self->event_file($dest, $e); my $ready = File::Spec->canonpath("$file.ready"); if ($global) { my $name = $ready; $name =~ s{^.*(GLOBAL)}{GLOBAL}; $self->{+GLOBALS}->{$hid}->{$name}++; } # Write and rename the file. my ($ren_ok, $ren_err); my ($ok, $err) = try_sig_mask(sub { Storable::store($e, $file); ($ren_ok, $ren_err) = do_rename("$file", $ready); }); if ($ok) { $self->abort("Could not rename file '$file' -> '$ready': $ren_err") unless $ren_ok; test2_ipc_set_pending($file); } else { my $src_file = __FILE__; $err =~ s{ at \Q$src_file\E.*$}{}; chomp($err); my $tid = get_tid(); my $trace = $e->trace->debug; my $type = blessed($e); $self->abort(<<" EOT"); ******************************************************************************* There was an error writing an event: Destination: $dest Origin PID: $$ Origin TID: $tid Event Type: $type Event Trace: $trace File Name: $file Ready Name: $ready Error: $err ******************************************************************************* EOT } return 1; } sub driver_abort { my $self = shift; my ($msg) = @_; local ($@, $!, $?, $^E); eval { my $abort = File::Spec->catfile($self->{+TEMPDIR}, "ABORT"); open(my $fh, '>>', $abort) or die "Could not open abort file: $!"; print $fh $msg, "\n"; close($fh) or die "Could not close abort file: $!"; 1; } or warn $@; } sub cull { my $self = shift; my ($hid) = @_; my $tempdir = $self->{+TEMPDIR}; opendir(my $dh, $tempdir) or $self->abort("could not open IPC temp dir ($tempdir)!"); my $read = $self->{+READ_IDS}; my $timeouts = $self->{+TIMEOUTS}; my @out; for my $info (sort cmp_events map { $self->should_read_event($hid, $_) } readdir($dh)) { unless ($info->{global}) { my $next = $self->{+READ_IDS}->{$info->{hid}}->{$info->{pid}}->{$info->{tid}} ||= 1; $timeouts->{$info->{file}} ||= time; if ($next != $info->{eid}) { # Wait up to N seconds for missing events next unless 5 < time - $timeouts->{$info->{file}}; $self->abort("Missing event HID: $info->{hid}, PID: $info->{pid}, TID: $info->{tid}, EID: $info->{eid}."); } $self->{+READ_IDS}->{$info->{hid}}->{$info->{pid}}->{$info->{tid}} = $info->{eid} + 1; } my $full = $info->{full_path}; my $obj = $self->read_event_file($full); push @out => $obj; # Do not remove global events next if $info->{global}; if ($ENV{T2_KEEP_TEMPDIR}) { my $complete = File::Spec->canonpath("$full.complete"); my ($ok, $err) = do_rename($full, $complete); $self->abort("Could not rename IPC file '$full', '$complete': $err") unless $ok; } else { my ($ok, $err) = do_unlink("$full"); $self->abort("Could not unlink IPC file '$full': $err") unless $ok; } } closedir($dh); return @out; } sub parse_event_filename { my $self = shift; my ($file) = @_; # The || is to force 0 in false my $complete = substr($file, -9, 9) eq '.complete' || 0 and substr($file, -9, 9, ""); my $ready = substr($file, -6, 6) eq '.ready' || 0 and substr($file, -6, 6, ""); my @parts = split ipc_separator, $file; my ($global, $hid) = $parts[0] eq 'GLOBAL' ? (1, shift @parts) : (0, join ipc_separator, splice(@parts, 0, 4)); my ($pid, $tid, $eid) = splice(@parts, 0, 3); my $type = join '::' => @parts; return { file => $file, ready => $ready, complete => $complete, global => $global, type => $type, hid => $hid, pid => $pid, tid => $tid, eid => $eid, }; } sub should_read_event { my $self = shift; my ($hid, $file) = @_; return if substr($file, 0, 1) eq '.'; return if substr($file, 0, 3) eq 'HUB'; CORE::exit(255) if $file eq 'ABORT'; my $parsed = $self->parse_event_filename($file); return if $parsed->{complete}; return unless $parsed->{ready}; return unless $parsed->{global} || $parsed->{hid} eq $hid; return if $parsed->{global} && $self->{+GLOBALS}->{$hid}->{$file}++; # Untaint the path. my $full = File::Spec->catfile($self->{+TEMPDIR}, $file); ($full) = ($full =~ m/^(.*)$/gs) if ${^TAINT}; $parsed->{full_path} = $full; return $parsed; } sub cmp_events { # Globals first return -1 if $a->{global} && !$b->{global}; return 1 if $b->{global} && !$a->{global}; return $a->{pid} <=> $b->{pid} || $a->{tid} <=> $b->{tid} || $a->{eid} <=> $b->{eid}; } sub read_event_file { my $self = shift; my ($file) = @_; my $obj = Storable::retrieve($file); $self->abort("Got an unblessed object: '$obj'") unless blessed($obj); unless ($obj->isa('Test2::Event')) { my $pkg = blessed($obj); my $mod_file = pkg_to_file($pkg); my ($ok, $err) = try { require $mod_file }; $self->abort("Event has unknown type ($pkg), tried to load '$mod_file' but failed: $err") unless $ok; $self->abort("'$obj' is not a 'Test2::Event' object") unless $obj->isa('Test2::Event'); } return $obj; } sub waiting { my $self = shift; require Test2::Event::Waiting; $self->send( GLOBAL => Test2::Event::Waiting->new( trace => Test2::EventFacet::Trace->new(frame => [caller()]), ), 'GLOBAL' ); return; } sub DESTROY { my $self = shift; return unless defined $self->pid; return unless defined $self->tid; return unless $$ == $self->pid; return unless get_tid() == $self->tid; my $tempdir = $self->{+TEMPDIR}; my $aborted = 0; my $abort_file = File::Spec->catfile($self->{+TEMPDIR}, "ABORT"); if (-e $abort_file) { $aborted = 1; my ($ok, $err) = do_unlink($abort_file); warn $err unless $ok; } opendir(my $dh, $tempdir) or $self->abort("Could not open temp dir! ($tempdir)"); while(my $file = readdir($dh)) { next if $file =~ m/^\.+$/; next if $file =~ m/\.complete$/; my $full = File::Spec->catfile($tempdir, $file); my $sep = ipc_separator; if ($aborted || $file =~ m/^(GLOBAL|HUB$sep)/) { $full =~ m/^(.*)$/; $full = $1; # Untaint it next if $ENV{T2_KEEP_TEMPDIR}; my ($ok, $err) = do_unlink($full); $self->abort("Could not unlink IPC file '$full': $err") unless $ok; next; } $self->abort("Leftover files in the directory ($full)!\n"); } closedir($dh); if ($ENV{T2_KEEP_TEMPDIR}) { print STDERR "# Not removing temp dir: $tempdir\n"; return; } my $abort = File::Spec->catfile($self->{+TEMPDIR}, "ABORT"); unlink($abort) if -e $abort; rmdir($tempdir) or warn "Could not remove IPC temp dir ($tempdir)"; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::IPC::Driver::Files - Temp dir + Files concurrency model. =head1 DESCRIPTION This is the default, and fallback concurrency model for L<Test2>. This sends events between processes and threads using serialized files in a temporary directory. This is not particularly fast, but it works everywhere. =head1 SYNOPSIS use Test2::IPC::Driver::Files; # IPC is now enabled =head1 ENVIRONMENT VARIABLES =over 4 =item T2_KEEP_TEMPDIR=0 When true, the tempdir used by the IPC driver will not be deleted when the test is done. =item T2_TEMPDIR_TEMPLATE='test2-XXXXXX' This can be used to set the template for the IPC temp dir. The template should follow template specifications from L<File::Temp>. =back =head1 SEE ALSO See L<Test2::IPC::Driver> for methods. =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! ���q q 5.34.0/Test2/Formatter.pmnu �[��� package Test2::Formatter; use strict; use warnings; our $VERSION = '1.302183'; my %ADDED; sub import { my $class = shift; return if $class eq __PACKAGE__; return if $ADDED{$class}++; require Test2::API; Test2::API::test2_formatter_add($class); } sub new_root { my $class = shift; return $class->new(@_); } sub supports_tables { 0 } sub hide_buffered { 1 } sub terminate { } sub finalize { } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::Formatter - Namespace for formatters. =head1 DESCRIPTION This is the namespace for formatters. This is an empty package. =head1 CREATING FORMATTERS A formatter is any package or object with a C<write($event, $num)> method. package Test2::Formatter::Foo; use strict; use warnings; sub write { my $self_or_class = shift; my ($event, $assert_num) = @_; ... } sub hide_buffered { 1 } sub terminate { } sub finalize { } sub supports_tables { return $BOOL } sub new_root { my $class = shift; ... $class->new(@_); } 1; The C<write> method is a method, so it either gets a class or instance. The two arguments are the C<$event> object it should record, and the C<$assert_num> which is the number of the current assertion (ok), or the last assertion if this event is not itself an assertion. The assertion number may be any integer 0 or greater, and may be undefined in some cases. The C<hide_buffered()> method must return a boolean. This is used to tell buffered subtests whether or not to send it events as they are being buffered. See L<Test2::API/"run_subtest(...)"> for more information. The C<terminate> and C<finalize> methods are optional methods called that you can implement if the format you're generating needs to handle these cases, for example if you are generating XML and need close open tags. The C<terminate> method is called when an event's C<terminate> method returns true, for example when a L<Test2::Event::Plan> has a C<'skip_all'> plan, or when a L<Test2::Event::Bail> event is sent. The C<terminate> method is passed a single argument, the L<Test2::Event> object which triggered the terminate. The C<finalize> method is always the last thing called on the formatter, I<< except when C<terminate> is called for a Bail event >>. It is passed the following arguments: The C<supports_tables> method should be true if the formatter supports directly rendering table data from the C<info> facets. This is a newer feature and many older formatters may not support it. When not supported the formatter falls back to rendering C<detail> instead of the C<table> data. The C<new_root> method is used when constructing a root formatter. The default is to just delegate to the regular C<new()> method, most formatters can ignore this. =over 4 =item * The number of tests that were planned =item * The number of tests actually seen =item * The number of tests which failed =item * A boolean indicating whether or not the test suite passed =item * A boolean indicating whether or not this call is for a subtest =back The C<new_root> method is called when C<Test2::API::Stack> Initializes the root hub for the first time. Most formatters will simply have this call C<< $class->new >>, which is the default behavior. Some formatters however may want to take extra action during construction of the root formatter, this is where they can do that. =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! g�s s 5.34.0/Test2/Util/Trace.pmnu �[��� package Test2::Util::Trace; require Test2::EventFacet::Trace; use warnings; use strict; our @ISA = ('Test2::EventFacet::Trace'); our $VERSION = '1.302183'; 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::Util::Trace - Legacy wrapper fro L<Test2::EventFacet::Trace>. =head1 DESCRIPTION All the functionality for this class has been moved to L<Test2::EventFacet::Trace>. =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! }� � " 5.34.0/Test2/Util/Facets2Legacy.pmnu �[��� package Test2::Util::Facets2Legacy; use strict; use warnings; our $VERSION = '1.302183'; use Carp qw/croak confess/; use Scalar::Util qw/blessed/; use base 'Exporter'; our @EXPORT_OK = qw{ causes_fail diagnostics global increments_count no_display sets_plan subtest_id summary terminate uuid }; our %EXPORT_TAGS = ( ALL => \@EXPORT_OK ); our $CYCLE_DETECT = 0; sub _get_facet_data { my $in = shift; if (blessed($in) && $in->isa('Test2::Event')) { confess "Cycle between Facets2Legacy and $in\->facet_data() (Did you forget to override the facet_data() method?)" if $CYCLE_DETECT; local $CYCLE_DETECT = 1; return $in->facet_data; } return $in if ref($in) eq 'HASH'; croak "'$in' Does not appear to be either a Test::Event or an EventFacet hashref"; } sub causes_fail { my $facet_data = _get_facet_data(shift @_); return 1 if $facet_data->{errors} && grep { $_->{fail} } @{$facet_data->{errors}}; if (my $control = $facet_data->{control}) { return 1 if $control->{halt}; return 1 if $control->{terminate}; } return 0 if $facet_data->{amnesty} && @{$facet_data->{amnesty}}; return 1 if $facet_data->{assert} && !$facet_data->{assert}->{pass}; return 0; } sub diagnostics { my $facet_data = _get_facet_data(shift @_); return 1 if $facet_data->{errors} && @{$facet_data->{errors}}; return 0 unless $facet_data->{info} && @{$facet_data->{info}}; return (grep { $_->{debug} } @{$facet_data->{info}}) ? 1 : 0; } sub global { my $facet_data = _get_facet_data(shift @_); return 0 unless $facet_data->{control}; return $facet_data->{control}->{global}; } sub increments_count { my $facet_data = _get_facet_data(shift @_); return $facet_data->{assert} ? 1 : 0; } sub no_display { my $facet_data = _get_facet_data(shift @_); return 0 unless $facet_data->{about}; return $facet_data->{about}->{no_display}; } sub sets_plan { my $facet_data = _get_facet_data(shift @_); my $plan = $facet_data->{plan} or return; my @out = ($plan->{count} || 0); if ($plan->{skip}) { push @out => 'SKIP'; push @out => $plan->{details} if defined $plan->{details}; } elsif ($plan->{none}) { push @out => 'NO PLAN' } return @out; } sub subtest_id { my $facet_data = _get_facet_data(shift @_); return undef unless $facet_data->{parent}; return $facet_data->{parent}->{hid}; } sub summary { my $facet_data = _get_facet_data(shift @_); return '' unless $facet_data->{about} && $facet_data->{about}->{details}; return $facet_data->{about}->{details}; } sub terminate { my $facet_data = _get_facet_data(shift @_); return undef unless $facet_data->{control}; return $facet_data->{control}->{terminate}; } sub uuid { my $in = shift; if ($CYCLE_DETECT) { if (blessed($in) && $in->isa('Test2::Event')) { my $meth = $in->can('uuid'); $meth = $in->can('SUPER::uuid') if $meth == \&uuid; my $uuid = $in->$meth if $meth && $meth != \&uuid; return $uuid if $uuid; } return undef; } my $facet_data = _get_facet_data($in); return $facet_data->{about}->{uuid} if $facet_data->{about} && $facet_data->{about}->{uuid}; return undef; } 1; =pod =encoding UTF-8 =head1 NAME Test2::Util::Facets2Legacy - Convert facet data to the legacy event API. =head1 DESCRIPTION This module exports several subroutines from the older event API (see L<Test2::Event>). These subroutines can be used as methods on any object that provides a custom C<facet_data()> method. These subroutines can also be used as functions that take a facet data hashref as arguments. =head1 SYNOPSIS =head2 AS METHODS package My::Event; use Test2::Util::Facets2Legacy ':ALL'; sub facet_data { return { ... } } Then to use it: my $e = My::Event->new(...); my $causes_fail = $e->causes_fail; my $summary = $e->summary; .... =head2 AS FUNCTIONS use Test2::Util::Facets2Legacy ':ALL'; my $f = { assert => { ... }, info => [{...}, ...], control => {...}, ... }; my $causes_fail = causes_fail($f); my $summary = summary($f); =head1 NOTE ON CYCLES When used as methods, all these subroutines call C<< $e->facet_data() >>. The default C<facet_data()> method in L<Test2::Event> relies on the legacy methods this module emulates in order to work. As a result of this it is very easy to create infinite recursion bugs. These methods have cycle detection and will throw an exception early if a cycle is detected. C<uuid()> is currently the only subroutine in this library that has a fallback behavior when cycles are detected. =head1 EXPORTS Nothing is exported by default. You must specify which methods to import, or use the ':ALL' tag. =over 4 =item $bool = $e->causes_fail() =item $bool = causes_fail($f) Check if the event or facets result in a failing state. =item $bool = $e->diagnostics() =item $bool = diagnostics($f) Check if the event or facets contain any diagnostics information. =item $bool = $e->global() =item $bool = global($f) Check if the event or facets need to be globally processed. =item $bool = $e->increments_count() =item $bool = increments_count($f) Check if the event or facets make an assertion. =item $bool = $e->no_display() =item $bool = no_display($f) Check if the event or facets should be rendered or hidden. =item ($max, $directive, $reason) = $e->sets_plan() =item ($max, $directive, $reason) = sets_plan($f) Check if the event or facets set a plan, and return the plan details. =item $id = $e->subtest_id() =item $id = subtest_id($f) Get the subtest id, if any. =item $string = $e->summary() =item $string = summary($f) Get the summary of the event or facets hash, if any. =item $undef_or_int = $e->terminate() =item $undef_or_int = terminate($f) Check if the event or facets should result in process termination, if so the exit code is returned (which could be 0). undef is returned if no termination is requested. =item $uuid = $e->uuid() =item $uuid = uuid($f) Get the UUID of the facets or event. B<Note:> This will fall back to C<< $e->SUPER::uuid() >> if a cycle is detected and an event is used as the argument. =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! �%�d�3 �3 5.34.0/Test2/Util/HashBase.pmnu �[��� package Test2::Util::HashBase; use strict; use warnings; our $VERSION = '1.302183'; ################################################################# # # # This is a generated file! Do not modify this file directly! # # Use hashbase_inc.pl script to regenerate this file. # # The script is part of the Object::HashBase distribution. # # Note: You can modify the version number above this comment # # if needed, that is fine. # # # ################################################################# { no warnings 'once'; $Test2::Util::HashBase::HB_VERSION = '0.009'; *Test2::Util::HashBase::ATTR_SUBS = \%Object::HashBase::ATTR_SUBS; *Test2::Util::HashBase::ATTR_LIST = \%Object::HashBase::ATTR_LIST; *Test2::Util::HashBase::VERSION = \%Object::HashBase::VERSION; *Test2::Util::HashBase::CAN_CACHE = \%Object::HashBase::CAN_CACHE; } require Carp; { no warnings 'once'; $Carp::Internal{+__PACKAGE__} = 1; } BEGIN { # these are not strictly equivalent, but for out use we don't care # about order *_isa = ($] >= 5.010 && require mro) ? \&mro::get_linear_isa : sub { no strict 'refs'; my @packages = ($_[0]); my %seen; for my $package (@packages) { push @packages, grep !$seen{$_}++, @{"$package\::ISA"}; } return \@packages; } } my %SPEC = ( '^' => {reader => 1, writer => 0, dep_writer => 1, read_only => 0, strip => 1}, '-' => {reader => 1, writer => 0, dep_writer => 0, read_only => 1, strip => 1}, '>' => {reader => 0, writer => 1, dep_writer => 0, read_only => 0, strip => 1}, '<' => {reader => 1, writer => 0, dep_writer => 0, read_only => 0, strip => 1}, '+' => {reader => 0, writer => 0, dep_writer => 0, read_only => 0, strip => 1}, ); sub import { my $class = shift; my $into = caller; # Make sure we list the OLDEST version used to create this class. my $ver = $Test2::Util::HashBase::HB_VERSION || $Test2::Util::HashBase::VERSION; $Test2::Util::HashBase::VERSION{$into} = $ver if !$Test2::Util::HashBase::VERSION{$into} || $Test2::Util::HashBase::VERSION{$into} > $ver; my $isa = _isa($into); my $attr_list = $Test2::Util::HashBase::ATTR_LIST{$into} ||= []; my $attr_subs = $Test2::Util::HashBase::ATTR_SUBS{$into} ||= {}; my %subs = ( ($into->can('new') ? () : (new => \&_new)), (map %{$Test2::Util::HashBase::ATTR_SUBS{$_} || {}}, @{$isa}[1 .. $#$isa]), ( map { my $p = substr($_, 0, 1); my $x = $_; my $spec = $SPEC{$p} || {reader => 1, writer => 1}; substr($x, 0, 1) = '' if $spec->{strip}; push @$attr_list => $x; my ($sub, $attr) = (uc $x, $x); $attr_subs->{$sub} = sub() { $attr }; my %out = ($sub => $attr_subs->{$sub}); $out{$attr} = sub { $_[0]->{$attr} } if $spec->{reader}; $out{"set_$attr"} = sub { $_[0]->{$attr} = $_[1] } if $spec->{writer}; $out{"set_$attr"} = sub { Carp::croak("'$attr' is read-only") } if $spec->{read_only}; $out{"set_$attr"} = sub { Carp::carp("set_$attr() is deprecated"); $_[0]->{$attr} = $_[1] } if $spec->{dep_writer}; %out; } @_ ), ); no strict 'refs'; *{"$into\::$_"} = $subs{$_} for keys %subs; } sub attr_list { my $class = shift; my $isa = _isa($class); my %seen; my @list = grep { !$seen{$_}++ } map { my @out; if (0.004 > ($Test2::Util::HashBase::VERSION{$_} || 0)) { Carp::carp("$_ uses an inlined version of Test2::Util::HashBase too old to support attr_list()"); } else { my $list = $Test2::Util::HashBase::ATTR_LIST{$_}; @out = $list ? @$list : () } @out; } reverse @$isa; return @list; } sub _new { my $class = shift; my $self; if (@_ == 1) { my $arg = shift; my $type = ref($arg); if ($type eq 'HASH') { $self = bless({%$arg}, $class) } else { Carp::croak("Not sure what to do with '$type' in $class constructor") unless $type eq 'ARRAY'; my %proto; my @attributes = attr_list($class); while (@$arg) { my $val = shift @$arg; my $key = shift @attributes or Carp::croak("Too many arguments for $class constructor"); $proto{$key} = $val; } $self = bless(\%proto, $class); } } else { $self = bless({@_}, $class); } $Test2::Util::HashBase::CAN_CACHE{$class} = $self->can('init') unless exists $Test2::Util::HashBase::CAN_CACHE{$class}; $self->init if $Test2::Util::HashBase::CAN_CACHE{$class}; $self; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::Util::HashBase - Build hash based classes. =head1 SYNOPSIS A class: package My::Class; use strict; use warnings; # Generate 3 accessors use Test2::Util::HashBase qw/foo -bar ^baz <bat >ban +boo/; # Chance to initialize defaults sub init { my $self = shift; # No other args $self->{+FOO} ||= "foo"; $self->{+BAR} ||= "bar"; $self->{+BAZ} ||= "baz"; $self->{+BAT} ||= "bat"; $self->{+BAN} ||= "ban"; $self->{+BOO} ||= "boo"; } sub print { print join ", " => map { $self->{$_} } FOO, BAR, BAZ, BAT, BAN, BOO; } Subclass it package My::Subclass; use strict; use warnings; # Note, you should subclass before loading HashBase. use base 'My::Class'; use Test2::Util::HashBase qw/bub/; sub init { my $self = shift; # We get the constants from the base class for free. $self->{+FOO} ||= 'SubFoo'; $self->{+BUB} ||= 'bub'; $self->SUPER::init(); } use it: package main; use strict; use warnings; use My::Class; # These are all functionally identical my $one = My::Class->new(foo => 'MyFoo', bar => 'MyBar'); my $two = My::Class->new({foo => 'MyFoo', bar => 'MyBar'}); my $three = My::Class->new(['MyFoo', 'MyBar']); # Readers! my $foo = $one->foo; # 'MyFoo' my $bar = $one->bar; # 'MyBar' my $baz = $one->baz; # Defaulted to: 'baz' my $bat = $one->bat; # Defaulted to: 'bat' # '>ban' means setter only, no reader # '+boo' means no setter or reader, just the BOO constant # Setters! $one->set_foo('A Foo'); #'-bar' means read-only, so the setter will throw an exception (but is defined). $one->set_bar('A bar'); # '^baz' means deprecated setter, this will warn about the setter being # deprecated. $one->set_baz('A Baz'); # '<bat' means no setter defined at all # '+boo' means no setter or reader, just the BOO constant $one->{+FOO} = 'xxx'; =head1 DESCRIPTION This package is used to generate classes based on hashrefs. Using this class will give you a C<new()> method, as well as generating accessors you request. Generated accessors will be getters, C<set_ACCESSOR> setters will also be generated for you. You also get constants for each accessor (all caps) which return the key into the hash for that accessor. Single inheritance is also supported. =head1 THIS IS A BUNDLED COPY OF HASHBASE This is a bundled copy of L<Object::HashBase>. This file was generated using the C</home/exodist/perl5/perlbrew/perls/main/bin/hashbase_inc.pl> script. =head1 METHODS =head2 PROVIDED BY HASH BASE =over 4 =item $it = $class->new(%PAIRS) =item $it = $class->new(\%PAIRS) =item $it = $class->new(\@ORDERED_VALUES) Create a new instance. HashBase will not export C<new()> if there is already a C<new()> method in your packages inheritance chain. B<If you do not want this method you can define your own> you just have to declare it before loading L<Test2::Util::HashBase>. package My::Package; # predeclare new() so that HashBase does not give us one. sub new; use Test2::Util::HashBase qw/foo bar baz/; # Now we define our own new method. sub new { ... } This makes it so that HashBase sees that you have your own C<new()> method. Alternatively you can define the method before loading HashBase instead of just declaring it, but that scatters your use statements. The most common way to create an object is to pass in key/value pairs where each key is an attribute and each value is what you want assigned to that attribute. No checking is done to verify the attributes or values are valid, you may do that in C<init()> if desired. If you would like, you can pass in a hashref instead of pairs. When you do so the hashref will be copied, and the copy will be returned blessed as an object. There is no way to ask HashBase to bless a specific hashref. In some cases an object may only have 1 or 2 attributes, in which case a hashref may be too verbose for your liking. In these cases you can pass in an arrayref with only values. The values will be assigned to attributes in the order the attributes were listed. When there is inheritance involved the attributes from parent classes will come before subclasses. =back =head2 HOOKS =over 4 =item $self->init() This gives you the chance to set some default values to your fields. The only argument is C<$self> with its indexes already set from the constructor. B<Note:> Test2::Util::HashBase checks for an init using C<< $class->can('init') >> during construction. It DOES NOT call C<can()> on the created object. Also note that the result of the check is cached, it is only ever checked once, the first time an instance of your class is created. This means that adding an C<init()> method AFTER the first construction will result in it being ignored. =back =head1 ACCESSORS =head2 READ/WRITE To generate accessors you list them when using the module: use Test2::Util::HashBase qw/foo/; This will generate the following subs in your namespace: =over 4 =item foo() Getter, used to get the value of the C<foo> field. =item set_foo() Setter, used to set the value of the C<foo> field. =item FOO() Constant, returns the field C<foo>'s key into the class hashref. Subclasses will also get this function as a constant, not simply a method, that means it is copied into the subclass namespace. The main reason for using these constants is to help avoid spelling mistakes and similar typos. It will not help you if you forget to prefix the '+' though. =back =head2 READ ONLY use Test2::Util::HashBase qw/-foo/; =over 4 =item set_foo() Throws an exception telling you the attribute is read-only. This is exported to override any active setters for the attribute in a parent class. =back =head2 DEPRECATED SETTER use Test2::Util::HashBase qw/^foo/; =over 4 =item set_foo() This will set the value, but it will also warn you that the method is deprecated. =back =head2 NO SETTER use Test2::Util::HashBase qw/<foo/; Only gives you a reader, no C<set_foo> method is defined at all. =head2 NO READER use Test2::Util::HashBase qw/>foo/; Only gives you a write (C<set_foo>), no C<foo> method is defined at all. =head2 CONSTANT ONLY use Test2::Util::HashBase qw/+foo/; This does not create any methods for you, it just adds the C<FOO> constant. =head1 SUBCLASSING You can subclass an existing HashBase class. use base 'Another::HashBase::Class'; use Test2::Util::HashBase qw/foo bar baz/; The base class is added to C<@ISA> for you, and all constants from base classes are added to subclasses automatically. =head1 GETTING A LIST OF ATTRIBUTES FOR A CLASS Test2::Util::HashBase provides a function for retrieving a list of attributes for an Test2::Util::HashBase class. =over 4 =item @list = Test2::Util::HashBase::attr_list($class) =item @list = $class->Test2::Util::HashBase::attr_list() Either form above will work. This will return a list of attributes defined on the object. This list is returned in the attribute definition order, parent class attributes are listed before subclass attributes. Duplicate attributes will be removed before the list is returned. B<Note:> This list is used in the C<< $class->new(\@ARRAY) >> constructor to determine the attribute to which each value will be paired. =back =head1 SOURCE The source code repository for HashBase can be found at F<http://github.com/Test-More/HashBase/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2017 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! �z5�� � ! 5.34.0/Test2/Util/ExternalMeta.pmnu �[��� package Test2::Util::ExternalMeta; use strict; use warnings; our $VERSION = '1.302183'; use Carp qw/croak/; sub META_KEY() { '_meta' } our @EXPORT = qw/meta set_meta get_meta delete_meta/; BEGIN { require Exporter; our @ISA = qw(Exporter) } sub set_meta { my $self = shift; my ($key, $value) = @_; validate_key($key); $self->{+META_KEY} ||= {}; $self->{+META_KEY}->{$key} = $value; } sub get_meta { my $self = shift; my ($key) = @_; validate_key($key); my $meta = $self->{+META_KEY} or return undef; return $meta->{$key}; } sub delete_meta { my $self = shift; my ($key) = @_; validate_key($key); my $meta = $self->{+META_KEY} or return undef; delete $meta->{$key}; } sub meta { my $self = shift; my ($key, $default) = @_; validate_key($key); my $meta = $self->{+META_KEY}; return undef unless $meta || defined($default); unless($meta) { $meta = {}; $self->{+META_KEY} = $meta; } $meta->{$key} = $default if defined($default) && !defined($meta->{$key}); return $meta->{$key}; } sub validate_key { my $key = shift; return if $key && !ref($key); my $render_key = defined($key) ? "'$key'" : 'undef'; croak "Invalid META key: $render_key, keys must be true, and may not be references"; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::Util::ExternalMeta - Allow third party tools to safely attach meta-data to your instances. =head1 DESCRIPTION This package lets you define a clear, and consistent way to allow third party tools to attach meta-data to your instances. If your object consumes this package, and imports its methods, then third party meta-data has a safe place to live. =head1 SYNOPSIS package My::Object; use strict; use warnings; use Test2::Util::ExternalMeta qw/meta get_meta set_meta delete_meta/; ... Now to use it: my $inst = My::Object->new; $inst->set_meta(foo => 'bar'); my $val = $inst->get_meta('foo'); =head1 WHERE IS THE DATA STORED? This package assumes your instances are blessed hashrefs, it will not work if that is not true. It will store all meta-data in the C<_meta> key on your objects hash. If your object makes use of the C<_meta> key in its underlying hash, then there is a conflict and you cannot use this package. =head1 EXPORTS =over 4 =item $val = $obj->meta($key) =item $val = $obj->meta($key, $default) This will get the value for a specified meta C<$key>. Normally this will return C<undef> when there is no value for the C<$key>, however you can specify a C<$default> value to set when no value is already set. =item $val = $obj->get_meta($key) This will get the value for a specified meta C<$key>. This does not have the C<$default> overhead that C<meta()> does. =item $val = $obj->delete_meta($key) This will remove the value of a specified meta C<$key>. The old C<$val> will be returned. =item $obj->set_meta($key, $val) Set the value of a specified meta C<$key>. =back =head1 META-KEY RESTRICTIONS Meta keys must be defined, and must be true when used as a boolean. Keys may not be references. You are free to stringify a reference C<"$ref"> for use as a key, but this package will not stringify it for you. =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! �r�f f 5.34.0/Test2/IPC.pmnu �[��� package Test2::IPC; use strict; use warnings; our $VERSION = '1.302183'; use Test2::API::Instance; use Test2::Util qw/get_tid/; use Test2::API qw{ test2_in_preload test2_init_done test2_ipc test2_has_ipc test2_ipc_enable_polling test2_pid test2_stack test2_tid context }; # Make sure stuff is finalized before anyone tried to fork or start a new thread. { # Avoid warnings if things are loaded at run-time no warnings 'void'; INIT { use warnings 'void'; context()->release() unless test2_in_preload(); } } use Carp qw/confess/; our @EXPORT_OK = qw/cull/; BEGIN { require Exporter; our @ISA = qw(Exporter) } sub unimport { Test2::API::test2_ipc_disable() } sub import { goto &Exporter::import if test2_has_ipc || !test2_init_done(); confess "IPC is disabled" if Test2::API::test2_ipc_disabled(); confess "Cannot add IPC in a child process (" . test2_pid() . " vs $$)" if test2_pid() != $$; confess "Cannot add IPC in a child thread (" . test2_tid() . " vs " . get_tid() . ")" if test2_tid() != get_tid(); Test2::API::_set_ipc(_make_ipc()); apply_ipc(test2_stack()); goto &Exporter::import; } sub _make_ipc { # Find a driver my ($driver) = Test2::API::test2_ipc_drivers(); unless ($driver) { require Test2::IPC::Driver::Files; $driver = 'Test2::IPC::Driver::Files'; } return $driver->new(); } sub apply_ipc { my $stack = shift; my ($root) = @$stack; return unless $root; confess "Cannot add IPC in a child process" if $root->pid != $$; confess "Cannot add IPC in a child thread" if $root->tid != get_tid(); my $ipc = $root->ipc || test2_ipc() || _make_ipc(); # Add the IPC to all hubs for my $hub (@$stack) { my $has = $hub->ipc; confess "IPC Mismatch!" if $has && $has != $ipc; next if $has; $hub->set_ipc($ipc); $ipc->add_hub($hub->hid); } test2_ipc_enable_polling(); return $ipc; } sub cull { my $ctx = context(); $ctx->hub->cull; $ctx->release; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::IPC - Turn on IPC for threading or forking support. =head1 SYNOPSIS You should C<use Test2::IPC;> as early as possible in your test file. If you import this module after API initialization it will attempt to retrofit IPC onto the existing hubs. =head2 DISABLING IT You can use C<no Test2::IPC;> to disable IPC for good. You can also use the T2_NO_IPC env var. =head1 EXPORTS All exports are optional. =over 4 =item cull() Cull allows you to collect results from other processes or threads on demand. =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! ~�Լ�5 �5 5.34.0/Test2/Formatter/TAP.pmnu �[��� package Test2::Formatter::TAP; use strict; use warnings; our $VERSION = '1.302183'; use Test2::Util qw/clone_io/; use Test2::Util::HashBase qw{ no_numbers handles _encoding _last_fh -made_assertion }; sub OUT_STD() { 0 } sub OUT_ERR() { 1 } BEGIN { require Test2::Formatter; our @ISA = qw(Test2::Formatter) } my $supports_tables; sub supports_tables { if (!defined $supports_tables) { local $SIG{__DIE__} = 'DEFAULT'; local $@; $supports_tables = ($INC{'Term/Table.pm'} && $INC{'Term/Table/Util.pm'}) || eval { require Term::Table; require Term::Table::Util; 1 } || 0; } return $supports_tables; } sub _autoflush { my($fh) = pop; my $old_fh = select $fh; $| = 1; select $old_fh; } _autoflush(\*STDOUT); _autoflush(\*STDERR); sub hide_buffered { 1 } sub init { my $self = shift; $self->{+HANDLES} ||= $self->_open_handles; if(my $enc = delete $self->{encoding}) { $self->encoding($enc); } } sub _open_handles { my $self = shift; require Test2::API; my $out = clone_io(Test2::API::test2_stdout()); my $err = clone_io(Test2::API::test2_stderr()); _autoflush($out); _autoflush($err); return [$out, $err]; } sub encoding { my $self = shift; if ($] ge "5.007003" and @_) { my ($enc) = @_; my $handles = $self->{+HANDLES}; # https://rt.perl.org/Public/Bug/Display.html?id=31923 # If utf8 is requested we use ':utf8' instead of ':encoding(utf8)' in # order to avoid the thread segfault. if ($enc =~ m/^utf-?8$/i) { binmode($_, ":utf8") for @$handles; } else { binmode($_, ":encoding($enc)") for @$handles; } $self->{+_ENCODING} = $enc; } return $self->{+_ENCODING}; } if ($^C) { no warnings 'redefine'; *write = sub {}; } sub write { my ($self, $e, $num, $f) = @_; # The most common case, a pass event with no amnesty and a normal name. return if $self->print_optimal_pass($e, $num); $f ||= $e->facet_data; $self->encoding($f->{control}->{encoding}) if $f->{control}->{encoding}; my @tap = $self->event_tap($f, $num) or return; $self->{+MADE_ASSERTION} = 1 if $f->{assert}; my $nesting = $f->{trace}->{nested} || 0; my $handles = $self->{+HANDLES}; my $indent = ' ' x $nesting; # Local is expensive! Only do it if we really need to. local($\, $,) = (undef, '') if $\ || $,; for my $set (@tap) { no warnings 'uninitialized'; my ($hid, $msg) = @$set; next unless $msg; my $io = $handles->[$hid] or next; print $io "\n" if $ENV{HARNESS_ACTIVE} && $hid == OUT_ERR && $self->{+_LAST_FH} != $io && $msg =~ m/^#\s*Failed( \(TODO\))? test /; $msg =~ s/^/$indent/mg if $nesting; print $io $msg; $self->{+_LAST_FH} = $io; } } sub print_optimal_pass { my ($self, $e, $num) = @_; my $type = ref($e); # Only optimal if this is a Pass or a passing Ok return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); # Amnesty requires further processing (todo is a form of amnesty) return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); # A name with a newline or hash symbol needs extra processing return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); my $ok = 'ok'; $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; if (my $nesting = $e->{trace}->{nested}) { my $indent = ' ' x $nesting; $ok = "$indent$ok"; } my $io = $self->{+HANDLES}->[OUT_STD]; local($\, $,) = (undef, '') if $\ || $,; print $io $ok; $self->{+_LAST_FH} = $io; return 1; } sub event_tap { my ($self, $f, $num) = @_; my @tap; # If this IS the first event the plan should come first # (plan must be before or after assertions, not in the middle) push @tap => $self->plan_tap($f) if $f->{plan} && !$self->{+MADE_ASSERTION}; # The assertion is most important, if present. if ($f->{assert}) { push @tap => $self->assert_tap($f, $num); push @tap => $self->debug_tap($f, $num) unless $f->{assert}->{no_debug} || $f->{assert}->{pass}; } # Almost as important as an assertion push @tap => $self->error_tap($f) if $f->{errors}; # Now lets see the diagnostics messages push @tap => $self->info_tap($f) if $f->{info}; # If this IS NOT the first event the plan should come last # (plan must be before or after assertions, not in the middle) push @tap => $self->plan_tap($f) if $self->{+MADE_ASSERTION} && $f->{plan}; # Bail out push @tap => $self->halt_tap($f) if $f->{control}->{halt}; return @tap if @tap; return @tap if $f->{control}->{halt}; return @tap if grep { $f->{$_} } qw/assert plan info errors/; # Use the summary as a fallback if nothing else is usable. return $self->summary_tap($f, $num); } sub error_tap { my $self = shift; my ($f) = @_; my $IO = ($f->{amnesty} && @{$f->{amnesty}}) ? OUT_STD : OUT_ERR; return map { my $details = $_->{details}; my $msg; if (ref($details)) { require Data::Dumper; my $dumper = Data::Dumper->new([$details])->Indent(2)->Terse(1)->Pad('# ')->Useqq(1)->Sortkeys(1); chomp($msg = $dumper->Dump); } else { chomp($msg = $details); $msg =~ s/^/# /; $msg =~ s/\n/\n# /g; } [$IO, "$msg\n"]; } @{$f->{errors}}; } sub plan_tap { my $self = shift; my ($f) = @_; my $plan = $f->{plan} or return; return if $plan->{none}; if ($plan->{skip}) { my $reason = $plan->{details} or return [OUT_STD, "1..0 # SKIP\n"]; chomp($reason); return [OUT_STD, '1..0 # SKIP ' . $reason . "\n"]; } return [OUT_STD, "1.." . $plan->{count} . "\n"]; } sub no_subtest_space { 0 } sub assert_tap { my $self = shift; my ($f, $num) = @_; my $assert = $f->{assert} or return; my $pass = $assert->{pass}; my $name = $assert->{details}; my $ok = $pass ? 'ok' : 'not ok'; $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; # The regex form is ~250ms, the index form is ~50ms my @extra; defined($name) && ( (index($name, "\n") != -1 && (($name, @extra) = split(/\n\r?/, $name, -1))), ((index($name, "#" ) != -1 || substr($name, -1) eq '\\') && (($name =~ s|\\|\\\\|g), ($name =~ s|#|\\#|g))) ); my $extra_space = @extra ? ' ' x (length($ok) + 2) : ''; my $extra_indent = ''; my ($directives, $reason, $is_skip); if ($f->{amnesty}) { my %directives; for my $am (@{$f->{amnesty}}) { next if $am->{inherited}; my $tag = $am->{tag} or next; $is_skip = 1 if $tag eq 'skip'; $directives{$tag} ||= $am->{details}; } my %seen; # Sort so that TODO comes before skip even on systems where lc sorts # before uc, as other code depends on that ordering. my @order = grep { !$seen{$_}++ } sort { lc $b cmp lc $a } keys %directives; $directives = ' # ' . join ' & ' => @order; for my $tag ('skip', @order) { next unless defined($directives{$tag}) && length($directives{$tag}); $reason = $directives{$tag}; last; } } $ok .= " - $name" if defined $name && !($is_skip && !$name); my @subtap; if ($f->{parent} && $f->{parent}->{buffered}) { $ok .= ' {'; # In a verbose harness we indent the extra since they will appear # inside the subtest braces. This helps readability. In a non-verbose # harness we do not do this because it is less readable. if ($ENV{HARNESS_IS_VERBOSE} || !$ENV{HARNESS_ACTIVE}) { $extra_indent = " "; $extra_space = ' '; } # Render the sub-events, we use our own counter for these. my $count = 0; @subtap = map { my $f2 = $_; # Bump the count for any event that should bump it. $count++ if $f2->{assert}; # This indents all output lines generated for the sub-events. # index 0 is the filehandle, index 1 is the message we want to indent. map { $_->[1] =~ s/^(.*\S.*)$/ $1/mg; $_ } $self->event_tap($f2, $count); } @{$f->{parent}->{children}}; push @subtap => [OUT_STD, "}\n"]; } if ($directives) { $directives = ' # TODO & SKIP' if $directives eq ' # TODO & skip'; $ok .= $directives; $ok .= " $reason" if defined($reason); } $extra_space = ' ' if $self->no_subtest_space; my @out = ([OUT_STD, "$ok\n"]); push @out => map {[OUT_STD, "${extra_indent}#${extra_space}$_\n"]} @extra if @extra; push @out => @subtap; return @out; } sub debug_tap { my ($self, $f, $num) = @_; # Figure out the debug info, this is typically the file name and line # number, but can also be a custom message. If no trace object is provided # then we have nothing useful to display. my $name = $f->{assert}->{details}; my $trace = $f->{trace}; my $debug = "[No trace info available]"; if ($trace->{details}) { $debug = $trace->{details}; } elsif ($trace->{frame}) { my ($pkg, $file, $line) = @{$trace->{frame}}; $debug = "at $file line $line." if $file && $line; } my $amnesty = $f->{amnesty} && @{$f->{amnesty}} ? ' (with amnesty)' : ''; # Create the initial diagnostics. If the test has a name we put the debug # info on a second line, this behavior is inherited from Test::Builder. my $msg = defined($name) ? qq[# Failed test${amnesty} '$name'\n# $debug\n] : qq[# Failed test${amnesty} $debug\n]; my $IO = $f->{amnesty} && @{$f->{amnesty}} ? OUT_STD : OUT_ERR; return [$IO, $msg]; } sub halt_tap { my ($self, $f) = @_; return if $f->{trace}->{nested} && !$f->{trace}->{buffered}; my $details = $f->{control}->{details}; return [OUT_STD, "Bail out!\n"] unless defined($details) && length($details); return [OUT_STD, "Bail out! $details\n"]; } sub info_tap { my ($self, $f) = @_; return map { my $details = $_->{details}; my $table = $_->{table}; my $IO = $_->{debug} && !($f->{amnesty} && @{$f->{amnesty}}) ? OUT_ERR : OUT_STD; my $msg; if ($table && $self->supports_tables) { $msg = join "\n" => map { "# $_" } Term::Table->new( header => $table->{header}, rows => $table->{rows}, collapse => $table->{collapse}, no_collapse => $table->{no_collapse}, sanitize => 1, mark_tail => 1, max_width => $self->calc_table_size($f), )->render(); } elsif (ref($details)) { require Data::Dumper; my $dumper = Data::Dumper->new([$details])->Indent(2)->Terse(1)->Pad('# ')->Useqq(1)->Sortkeys(1); chomp($msg = $dumper->Dump); } else { chomp($msg = $details); $msg =~ s/^/# /; $msg =~ s/\n/\n# /g; } [$IO, "$msg\n"]; } @{$f->{info}}; } sub summary_tap { my ($self, $f, $num) = @_; return if $f->{about}->{no_display}; my $summary = $f->{about}->{details} or return; chomp($summary); $summary =~ s/^/# /smg; return [OUT_STD, "$summary\n"]; } sub calc_table_size { my $self = shift; my ($f) = @_; my $term = Term::Table::Util::term_size(); my $nesting = 2 + (($f->{trace}->{nested} || 0) * 4); # 4 spaces per level, also '# ' prefix my $total = $term - $nesting; # Sane minimum width, any smaller and we are asking for pain return 50 if $total < 50; return $total; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::Formatter::TAP - Standard TAP formatter =head1 DESCRIPTION This is what takes events and turns them into TAP. =head1 SYNOPSIS use Test2::Formatter::TAP; my $tap = Test2::Formatter::TAP->new(); # Switch to utf8 $tap->encoding('utf8'); $tap->write($event, $number); # Output an event =head1 METHODS =over 4 =item $bool = $tap->no_numbers =item $tap->set_no_numbers($bool) Use to turn numbers on and off. =item $arrayref = $tap->handles =item $tap->set_handles(\@handles); Can be used to get/set the filehandles. Indexes are identified by the C<OUT_STD> and C<OUT_ERR> constants. =item $encoding = $tap->encoding =item $tap->encoding($encoding) Get or set the encoding. By default no encoding is set, the original settings of STDOUT and STDERR are used. This directly modifies the stored filehandles, it does not create new ones. =item $tap->write($e, $num) Write an event to the console. =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =item Kent Fredric E<lt>kentnl@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! u�ge�F �F # 5.34.0/Test2/API/InterceptResult.pmnu �[��� package Test2::API::InterceptResult; use strict; use warnings; our $VERSION = '1.302183'; use Scalar::Util qw/blessed/; use Test2::Util qw/pkg_to_file/; use Storable qw/dclone/; use Carp qw/croak/; use Test2::API::InterceptResult::Squasher; use Test2::API::InterceptResult::Event; use Test2::API::InterceptResult::Hub; sub new { croak "Called a method that creates a new instance in void context" unless defined wantarray; my $class = shift; bless([@_], $class); } sub new_from_ref { croak "Called a method that creates a new instance in void context" unless defined wantarray; bless($_[1], $_[0]); } sub clone { blessed($_[0])->new(@{dclone($_[0])}) } sub event_list { @{$_[0]} } sub _upgrade { my $self = shift; my ($event, %params) = @_; my $blessed = blessed($event); my $upgrade_class = $params{upgrade_class} ||= 'Test2::API::InterceptResult::Event'; return $event if $blessed && $event->isa($upgrade_class) && !$params{_upgrade_clone}; my $fd = dclone($blessed ? $event->facet_data : $event); my $class = $params{result_class} ||= blessed($self); if (my $parent = $fd->{parent}) { $parent->{children} = $class->new_from_ref($parent->{children} || [])->upgrade(%params); } my $uc_file = pkg_to_file($upgrade_class); require($uc_file) unless $INC{$uc_file}; return $upgrade_class->new(facet_data => $fd, result_class => $class); } sub hub { my $self = shift; my $hub = Test2::API::InterceptResult::Hub->new(); $hub->process($_) for @$self; $hub->set_ended(1); return $hub; } sub state { my $self = shift; my %params = @_; my $hub = $self->hub; my $out = { map {($_ => scalar $hub->$_)} qw/count failed is_passing plan bailed_out skip_reason/ }; $out->{bailed_out} = $self->_upgrade($out->{bailed_out}, %params)->bailout_reason || 1 if $out->{bailed_out}; $out->{follows_plan} = $hub->check_plan; return $out; } sub upgrade { my $self = shift; my %params = @_; my @out = map { $self->_upgrade($_, %params, _upgrade_clone => 1) } @$self; return blessed($self)->new_from_ref(\@out) unless $params{in_place}; @$self = @out; return $self; } sub squash_info { my $self = shift; my %params = @_; my @out; { my $squasher = Test2::API::InterceptResult::Squasher->new(events => \@out); # Clone to make sure we do not indirectly modify an existing one if it # is already upgraded $squasher->process($self->_upgrade($_, %params)->clone) for @$self; $squasher->flush_down(); } return blessed($self)->new_from_ref(\@out) unless $params{in_place}; @$self = @out; return $self; } sub asserts { shift->grep(has_assert => @_) } sub subtests { shift->grep(has_subtest => @_) } sub diags { shift->grep(has_diags => @_) } sub notes { shift->grep(has_notes => @_) } sub errors { shift->grep(has_errors => @_) } sub plans { shift->grep(has_plan => @_) } sub causes_fail { shift->grep(causes_fail => @_) } sub causes_failure { shift->grep(causes_failure => @_) } sub flatten { shift->map(flatten => @_) } sub briefs { shift->map(brief => @_) } sub summaries { shift->map(summary => @_) } sub subtest_results { shift->map(subtest_result => @_) } sub diag_messages { shift->map(diag_messages => @_) } sub note_messages { shift->map(note_messages => @_) } sub error_messages { shift->map(error_messages => @_) } no warnings 'once'; *map = sub { my $self = shift; my ($call, %params) = @_; my $args = $params{args} ||= []; return [map { local $_ = $self->_upgrade($_, %params); $_->$call(@$args) } @$self]; }; *grep = sub { my $self = shift; my ($call, %params) = @_; my $args = $params{args} ||= []; my @out = grep { local $_ = $self->_upgrade($_, %params); $_->$call(@$args) } @$self; return blessed($self)->new_from_ref(\@out) unless $params{in_place}; @$self = @out; return $self; }; 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::API::InterceptResult - Representation of a list of events. =head1 DESCRIPTION This class represents a list of events, normally obtained using C<intercept()> from L<Test2::API>. This class is intended for people who with to verify the results of test tools they write. This class provides methods to normalize, summarize, or map the list of events. The output of these operations makes verifying your testing tools and the events they generate significantly easier. In most cases this spares you from needing a deep understanding of the event/facet model. =head1 SYNOPSIS Usually you get an instance of this class when you use C<intercept()> from L<Test2::API>. use Test2::V0; use Test2::API qw/intercept/; my $events = intercept { ok(1, "pass"); ok(0, "fail"); todo "broken" => sub { ok(0, "fixme") }; plan 3; }; # This is typically the most useful construct # squash_info() merges assertions and diagnostics that are associated # (and returns a new instance with the modifications) # flatten() condenses the facet data into the key details for each event # (and returns those structures in an arrayref) is( $events->squash_info->flatten(), [ { causes_failure => 0, name => 'pass', pass => 1, trace_file => 'xxx.t', trace_line => 5, }, { causes_failure => 1, name => 'fail', pass => 0, trace_file => 'xxx.t', trace_line => 6, # There can be more than one diagnostics message so this is # always an array when present. diag => ["Failed test 'fail'\nat xxx.t line 6."], }, { causes_failure => 0, name => 'fixme', pass => 0, trace_file => 'xxx.t', trace_line => 7, # There can be more than one diagnostics message or todo # reason, so these are always an array when present. todo => ['broken'], # Diag message was turned into a note since the assertion was # TODO note => ["Failed test 'fixme'\nat xxx.t line 7."], }, { causes_failure => 0, plan => 3, trace_file => 'xxx.t', trace_line => 8, }, ], "Flattened events look like we expect" ); See L<Test2::API::InterceptResult::Event> for a full description of what C<flatten()> provides for each event. =head1 METHODS Please note that no methods modify the original instance unless asked to do so. =head2 CONSTRUCTION =over 4 =item $events = Test2::API::InterceptResult->new(@EVENTS) =item $events = Test2::API::InterceptResult->new_from_ref(\@EVENTS) These create a new instance of Test2::API::InterceptResult from the given events. In the first form a new blessed arrayref is returned. In the 'new_from_ref' form the reference you pass in is directly blessed. Both of these will throw an exception if called in void context. This is mainly important for the 'filtering' methods listed below which normally return a new instance, they throw an exception in such cases as it probably means someone meant to filter the original in place. =item $clone = $events->clone() Make a clone of the original events. Note that this is a deep copy, the entire structure is duplicated. This uses C<dclone> from L<Storable> to achieve the deep clone. =back =head2 NORMALIZATION =over 4 =item @events = $events->event_list This returns all the events in list-form. =item $hub = $events->hub This returns a new L<Test2::Hub> instance that has processed all the events contained in the instance. This gives you a simple way to inspect the state changes your events cause. =item $state = $events->state This returns a summary of the state of a hub after processing all the events. { count => 2, # Number of assertions made failed => 1, # Number of test failures seen is_passing => 0, # Boolean, true if the test would be passing # after the events are processed. plan => 2, # Plan, either a number, undef, 'SKIP', or 'NO PLAN' follows_plan => 1, # True if there is a plan and it was followed. # False if the plan and assertions did not # match, undef if no plan was present in the # event list. bailed_out => undef, # undef unless there was a bail-out in the # events in which case this will be a string # explaining why there was a bailout, if no # reason was given this will simply be set to # true (1). skip_reason => undef, # If there was a skip_all this will give the # reason. } =item $new = $events->upgrade =item $events->upgrade(in_place => $BOOL) B<Note:> This normally returns a new instance, leaving the original unchanged. If you call it in void context it will throw an exception. If you want to modify the original you must pass in the C<< in_place => 1 >> option. You may call this in void context when you ask to modify it in place. The in-place form returns the instance that was modified so you can chain methods. This will create a clone of the list where all events have been converted into L<Test2::API::InterceptResult::Event> instances. This is extremely helpful as L<Test2::API::InterceptResult::Event> provide a much better interface for working with events. This allows you to avoid thinking about legacy event types. This also means your tests against the list are not fragile if the tool you are testing randomly changes what type of events it generates (IE Changing from L<Test2::Event::Ok> to L<Test2::Event::Pass>, both make assertions and both will normalize to identical (or close enough) L<Test2::API::InterceptResult::Event> instances. Really you almost always want this, the only reason it is not done automatically is to make sure the C<intercept()> tool is backwards compatible. =item $new = $events->squash_info =item $events->squash_info(in_place => $BOOL) B<Note:> This normally returns a new instance, leaving the original unchanged. If you call it in void context it will throw an exception. If you want to modify the original you must pass in the C<< in_place => 1 >> option. You may call this in void context when you ask to modify it in place. The in-place form returns the instance that was modified so you can chain methods. B<Note:> All events in the new or modified instance will be converted to L<Test2::API::InterceptResult::Event> instances. There is no way to avoid this, the squash operation requires the upgraded event class. L<Test::More> and many other legacy tools would send notes, diags, and assertions as seperate events. A subtest in L<Test::More> would send a note with the subtest name, the subtest assertion, and finally a diagnostics event if the subtest failed. This method will normalize things by squashing the note and diag into the same event as the subtest (This is different from putting them into the subtest, which is not what happens). =back =head2 FILTERING B<Note:> These normally return new instances, leaving the originals unchanged. If you call them in void context they will throw exceptions. If you want to modify the originals you must pass in the C<< in_place => 1 >> option. You may call these in void context when you ask to modify them in place. The in-place forms return the instance that was modified so you can chain methods. =head3 %PARAMS These all accept the same 2 optional parameters: =over 4 =item in_place => $BOOL When true the method will modify the instance in place instead of returning a new instance. =item args => \@ARGS If you wish to pass parameters into the event method being used for filtering, you may do so here. =back =head3 METHODS =over 4 =item $events->grep($CALL, %PARAMS) This is essentially: Test2::API::InterceptResult->new( grep { $_->$CALL( @{$PARAMS{args}} ) } $self->event_list, ); B<Note:> that $CALL is called on an upgraded version of the event, though the events returned will be the original ones, not the upgraded ones. $CALL may be either the name of a method on L<Test2::API::InterceptResult::Event>, or a coderef. =item $events->asserts(%PARAMS) This is essentially: $events->grep(has_assert => @{$PARAMS{args}}) It returns a new instance containing only the events that made assertions. =item $events->subtests(%PARAMS) This is essentially: $events->grep(has_subtest => @{$PARAMS{args}}) It returns a new instance containing only the events that have subtests. =item $events->diags(%PARAMS) This is essentially: $events->grep(has_diags => @{$PARAMS{args}}) It returns a new instance containing only the events that have diags. =item $events->notes(%PARAMS) This is essentially: $events->grep(has_notes => @{$PARAMS{args}}) It returns a new instance containing only the events that have notes. =item $events->errors(%PARAMS) B<Note:> Errors are NOT failing assertions. Failing assertions are a different thing. This is essentially: $events->grep(has_errors => @{$PARAMS{args}}) It returns a new instance containing only the events that have errors. =item $events->plans(%PARAMS) This is essentially: $events->grep(has_plan => @{$PARAMS{args}}) It returns a new instance containing only the events that set the plan. =item $events->causes_fail(%PARAMS) =item $events->causes_failure(%PARAMS) These are essentially: $events->grep(causes_fail => @{$PARAMS{args}}) $events->grep(causes_failure => @{$PARAMS{args}}) B<Note:> C<causes_fail()> and C<causes_failure()> are both aliases for eachother in events, so these methods are effectively aliases here as well. It returns a new instance containing only the events that cause failure. =back =head2 MAPPING These methods B<ALWAYS> return an arrayref. B<Note:> No methods on L<Test2::API::InterceptResult::Event> alter the event in any way. B<Important Notes about Events>: L<Test2::API::InterceptResult::Event> was tailor-made to be used in event-lists. Most methods that are not applicable to a given event will return an empty list, so you normally do not need to worry about unwanted C<undef> values or exceptions being thrown. Mapping over event methods is an entended use, so it works well to produce lists. B<Exceptions to the rule:> Some methods such as C<causes_fail> always return a boolean true or false for all events. Any method prefixed with C<the_> conveys the intent that the event should have exactly 1 of something, so those will throw an exception when that condition is not true. =over 4 =item $arrayref = $events->map($CALL, %PARAMS) This is essentially: [ map { $_->$CALL(@{ $PARAMS{args} }) } $events->upgrade->event_list ]; $CALL may be either the name of a method on L<Test2::API::InterceptResult::Event>, or a coderef. =item $arrayref = $events->flatten(%PARAMS) This is essentially: [ map { $_->flatten(@{ $PARAMS{args} }) } $events->upgrade->event_list ]; It returns a new list of flattened structures. See L<Test2::API::InterceptResult::Event> for details on what C<flatten()> returns. =item $arrayref = $events->briefs(%PARAMS) This is essentially: [ map { $_->briefs(@{ $PARAMS{args} }) } $events->upgrade->event_list ]; It returns a new list of event briefs. See L<Test2::API::InterceptResult::Event> for details on what C<brief()> returns. =item $arrayref = $events->summaries(%PARAMS) This is essentially: [ map { $_->summaries(@{ $PARAMS{args} }) } $events->upgrade->event_list ]; It returns a new list of event summaries. See L<Test2::API::InterceptResult::Event> for details on what C<summary()> returns. =item $arrayref = $events->subtest_results(%PARAMS) This is essentially: [ map { $_->subtest_result(@{ $PARAMS{args} }) } $events->upgrade->event_list ]; It returns a new list of event summaries. See L<Test2::API::InterceptResult::Event> for details on what C<subtest_result()> returns. =item $arrayref = $events->diag_messages(%PARAMS) This is essentially: [ map { $_->diag_messages(@{ $PARAMS{args} }) } $events->upgrade->event_list ]; It returns a new list of diagnostic messages (strings). See L<Test2::API::InterceptResult::Event> for details on what C<diag_messages()> returns. =item $arrayref = $events->note_messages(%PARAMS) This is essentially: [ map { $_->note_messages(@{ $PARAMS{args} }) } $events->upgrade->event_list ]; It returns a new list of notification messages (strings). See L<Test2::API::InterceptResult::Event> for details on what C<note_messages()> returns. =item $arrayref = $events->error_messages(%PARAMS) This is essentially: [ map { $_->error_messages(@{ $PARAMS{args} }) } $events->upgrade->event_list ]; It returns a new list of error messages (strings). See L<Test2::API::InterceptResult::Event> for details on what C<error_messages()> returns. =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! �U� � 5.34.0/Test2/API/Stack.pmnu �[��� package Test2::API::Stack; use strict; use warnings; our $VERSION = '1.302183'; use Test2::Hub(); use Carp qw/confess/; sub new { my $class = shift; return bless [], $class; } sub new_hub { my $self = shift; my %params = @_; my $class = delete $params{class} || 'Test2::Hub'; my $hub = $class->new(%params); if (@$self) { $hub->inherit($self->[-1], %params); } else { require Test2::API; $hub->format(Test2::API::test2_formatter()->new_root) unless $hub->format || exists($params{formatter}); my $ipc = Test2::API::test2_ipc(); if ($ipc && !$hub->ipc && !exists($params{ipc})) { $hub->set_ipc($ipc); $ipc->add_hub($hub->hid); } } push @$self => $hub; $hub; } sub top { my $self = shift; return $self->new_hub unless @$self; return $self->[-1]; } sub peek { my $self = shift; return @$self ? $self->[-1] : undef; } sub cull { my $self = shift; $_->cull for reverse @$self; } sub all { my $self = shift; return @$self; } sub root { my $self = shift; return unless @$self; return $self->[0]; } sub clear { my $self = shift; @$self = (); } # Do these last without keywords in order to prevent them from getting used # when we want the real push/pop. { no warnings 'once'; *push = sub { my $self = shift; my ($hub) = @_; $hub->inherit($self->[-1]) if @$self; push @$self => $hub; }; *pop = sub { my $self = shift; my ($hub) = @_; confess "No hubs on the stack" unless @$self; confess "You cannot pop the root hub" if 1 == @$self; confess "Hub stack mismatch, attempted to pop incorrect hub" unless $self->[-1] == $hub; pop @$self; }; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::API::Stack - Object to manage a stack of L<Test2::Hub> instances. =head1 ***INTERNALS NOTE*** B<The internals of this package are subject to change at any time!> The public methods provided will not change in backwards incompatible ways, but the underlying implementation details might. B<Do not break encapsulation here!> =head1 DESCRIPTION This module is used to represent and manage a stack of L<Test2::Hub> objects. Hubs are usually in a stack so that you can push a new hub into place that can intercept and handle events differently than the primary hub. =head1 SYNOPSIS my $stack = Test2::API::Stack->new; my $hub = $stack->top; =head1 METHODS =over 4 =item $stack = Test2::API::Stack->new() This will create a new empty stack instance. All arguments are ignored. =item $hub = $stack->new_hub() =item $hub = $stack->new_hub(%params) =item $hub = $stack->new_hub(%params, class => $class) This will generate a new hub and push it to the top of the stack. Optionally you can provide arguments that will be passed into the constructor for the L<Test2::Hub> object. If you specify the C<< 'class' => $class >> argument, the new hub will be an instance of the specified class. Unless your parameters specify C<'formatter'> or C<'ipc'> arguments, the formatter and IPC instance will be inherited from the current top hub. You can set the parameters to C<undef> to avoid having a formatter or IPC instance. If there is no top hub, and you do not ask to leave IPC and formatter undef, then a new formatter will be created, and the IPC instance from L<Test2::API> will be used. =item $hub = $stack->top() This will return the top hub from the stack. If there is no top hub yet this will create it. =item $hub = $stack->peek() This will return the top hub from the stack. If there is no top hub yet this will return undef. =item $stack->cull This will call C<< $hub->cull >> on all hubs in the stack. =item @hubs = $stack->all This will return all the hubs in the stack as a list. =item $stack->clear This will completely remove all hubs from the stack. Normally you do not want to do this, but there are a few valid reasons for it. =item $stack->push($hub) This will push the new hub onto the stack. =item $stack->pop($hub) This will pop a hub from the stack, if the hub at the top of the stack does not match the hub you expect (passed in as an argument) it will throw an exception. =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! u��S�S �S 5.34.0/Test2/API/Instance.pmnu �[��� package Test2::API::Instance; use strict; use warnings; our $VERSION = '1.302183'; our @CARP_NOT = qw/Test2::API Test2::API::Instance Test2::IPC::Driver Test2::Formatter/; use Carp qw/confess carp/; use Scalar::Util qw/reftype/; use Test2::Util qw/get_tid USE_THREADS CAN_FORK pkg_to_file try CAN_SIGSYS/; use Test2::EventFacet::Trace(); use Test2::API::Stack(); use Test2::Util::HashBase qw{ _pid _tid no_wait finalized loaded ipc stack formatter contexts add_uuid_via -preload ipc_disabled ipc_polling ipc_drivers ipc_timeout formatters exit_callbacks post_load_callbacks context_acquire_callbacks context_init_callbacks context_release_callbacks pre_subtest_callbacks }; sub DEFAULT_IPC_TIMEOUT() { 30 } sub pid { $_[0]->{+_PID} } sub tid { $_[0]->{+_TID} } # Wrap around the getters that should call _finalize. BEGIN { for my $finalizer (IPC, FORMATTER) { my $orig = __PACKAGE__->can($finalizer); my $new = sub { my $self = shift; $self->_finalize unless $self->{+FINALIZED}; $self->$orig; }; no strict 'refs'; no warnings 'redefine'; *{$finalizer} = $new; } } sub has_ipc { !!$_[0]->{+IPC} } sub import { my $class = shift; return unless @_; my ($ref) = @_; $$ref = $class->new; } sub init { $_[0]->reset } sub start_preload { my $self = shift; confess "preload cannot be started, Test2::API has already been initialized" if $self->{+FINALIZED} || $self->{+LOADED}; return $self->{+PRELOAD} = 1; } sub stop_preload { my $self = shift; return 0 unless $self->{+PRELOAD}; $self->{+PRELOAD} = 0; $self->post_preload_reset(); return 1; } sub post_preload_reset { my $self = shift; delete $self->{+_PID}; delete $self->{+_TID}; $self->{+ADD_UUID_VIA} = undef unless exists $self->{+ADD_UUID_VIA}; $self->{+CONTEXTS} = {}; $self->{+FORMATTERS} = []; $self->{+FINALIZED} = undef; $self->{+IPC} = undef; $self->{+IPC_DISABLED} = $ENV{T2_NO_IPC} ? 1 : 0; $self->{+IPC_TIMEOUT} = DEFAULT_IPC_TIMEOUT() unless defined $self->{+IPC_TIMEOUT}; $self->{+LOADED} = 0; $self->{+STACK} ||= Test2::API::Stack->new; } sub reset { my $self = shift; delete $self->{+_PID}; delete $self->{+_TID}; $self->{+ADD_UUID_VIA} = undef; $self->{+CONTEXTS} = {}; $self->{+IPC_DRIVERS} = []; $self->{+IPC_POLLING} = undef; $self->{+FORMATTERS} = []; $self->{+FORMATTER} = undef; $self->{+FINALIZED} = undef; $self->{+IPC} = undef; $self->{+IPC_DISABLED} = $ENV{T2_NO_IPC} ? 1 : 0; $self->{+IPC_TIMEOUT} = DEFAULT_IPC_TIMEOUT() unless defined $self->{+IPC_TIMEOUT}; $self->{+NO_WAIT} = 0; $self->{+LOADED} = 0; $self->{+EXIT_CALLBACKS} = []; $self->{+POST_LOAD_CALLBACKS} = []; $self->{+CONTEXT_ACQUIRE_CALLBACKS} = []; $self->{+CONTEXT_INIT_CALLBACKS} = []; $self->{+CONTEXT_RELEASE_CALLBACKS} = []; $self->{+PRE_SUBTEST_CALLBACKS} = []; $self->{+STACK} = Test2::API::Stack->new; } sub _finalize { my $self = shift; my ($caller) = @_; $caller ||= [caller(1)]; confess "Attempt to initialize Test2::API during preload" if $self->{+PRELOAD}; $self->{+FINALIZED} = $caller; $self->{+_PID} = $$ unless defined $self->{+_PID}; $self->{+_TID} = get_tid() unless defined $self->{+_TID}; unless ($self->{+FORMATTER}) { my ($formatter, $source); if ($ENV{T2_FORMATTER}) { $source = "set by the 'T2_FORMATTER' environment variable"; if ($ENV{T2_FORMATTER} =~ m/^(\+)?(.*)$/) { $formatter = $1 ? $2 : "Test2::Formatter::$2" } else { $formatter = ''; } } elsif (@{$self->{+FORMATTERS}}) { ($formatter) = @{$self->{+FORMATTERS}}; $source = "Most recently added"; } else { $formatter = 'Test2::Formatter::TAP'; $source = 'default formatter'; } unless (ref($formatter) || $formatter->can('write')) { my $file = pkg_to_file($formatter); my ($ok, $err) = try { require $file }; unless ($ok) { my $line = "* COULD NOT LOAD FORMATTER '$formatter' ($source) *"; my $border = '*' x length($line); die "\n\n $border\n $line\n $border\n\n$err"; } } $self->{+FORMATTER} = $formatter; } # Turn on IPC if threads are on, drivers are registered, or the Test2::IPC # module is loaded. return if $self->{+IPC_DISABLED}; return unless USE_THREADS || $INC{'Test2/IPC.pm'} || @{$self->{+IPC_DRIVERS}}; # Turn on polling by default, people expect it. $self->enable_ipc_polling; unless (@{$self->{+IPC_DRIVERS}}) { my ($ok, $error) = try { require Test2::IPC::Driver::Files }; die $error unless $ok; push @{$self->{+IPC_DRIVERS}} => 'Test2::IPC::Driver::Files'; } for my $driver (@{$self->{+IPC_DRIVERS}}) { next unless $driver->can('is_viable') && $driver->is_viable; $self->{+IPC} = $driver->new or next; return; } die "IPC has been requested, but no viable drivers were found. Aborting...\n"; } sub formatter_set { $_[0]->{+FORMATTER} ? 1 : 0 } sub add_formatter { my $self = shift; my ($formatter) = @_; unshift @{$self->{+FORMATTERS}} => $formatter; return unless $self->{+FINALIZED}; # Why is the @CARP_NOT entry not enough? local %Carp::Internal = %Carp::Internal; $Carp::Internal{'Test2::Formatter'} = 1; carp "Formatter $formatter loaded too late to be used as the global formatter"; } sub add_context_acquire_callback { my $self = shift; my ($code) = @_; my $rtype = reftype($code) || ""; confess "Context-acquire callbacks must be coderefs" unless $code && $rtype eq 'CODE'; push @{$self->{+CONTEXT_ACQUIRE_CALLBACKS}} => $code; } sub add_context_init_callback { my $self = shift; my ($code) = @_; my $rtype = reftype($code) || ""; confess "Context-init callbacks must be coderefs" unless $code && $rtype eq 'CODE'; push @{$self->{+CONTEXT_INIT_CALLBACKS}} => $code; } sub add_context_release_callback { my $self = shift; my ($code) = @_; my $rtype = reftype($code) || ""; confess "Context-release callbacks must be coderefs" unless $code && $rtype eq 'CODE'; push @{$self->{+CONTEXT_RELEASE_CALLBACKS}} => $code; } sub add_post_load_callback { my $self = shift; my ($code) = @_; my $rtype = reftype($code) || ""; confess "Post-load callbacks must be coderefs" unless $code && $rtype eq 'CODE'; push @{$self->{+POST_LOAD_CALLBACKS}} => $code; $code->() if $self->{+LOADED}; } sub add_pre_subtest_callback { my $self = shift; my ($code) = @_; my $rtype = reftype($code) || ""; confess "Pre-subtest callbacks must be coderefs" unless $code && $rtype eq 'CODE'; push @{$self->{+PRE_SUBTEST_CALLBACKS}} => $code; } sub load { my $self = shift; unless ($self->{+LOADED}) { confess "Attempt to initialize Test2::API during preload" if $self->{+PRELOAD}; $self->{+_PID} = $$ unless defined $self->{+_PID}; $self->{+_TID} = get_tid() unless defined $self->{+_TID}; # This is for https://github.com/Test-More/test-more/issues/16 # and https://rt.perl.org/Public/Bug/Display.html?id=127774 # END blocks run in reverse order. This insures the END block is loaded # as late as possible. It will not solve all cases, but it helps. eval "END { Test2::API::test2_set_is_end() }; 1" or die $@; $self->{+LOADED} = 1; $_->() for @{$self->{+POST_LOAD_CALLBACKS}}; } return $self->{+LOADED}; } sub add_exit_callback { my $self = shift; my ($code) = @_; my $rtype = reftype($code) || ""; confess "End callbacks must be coderefs" unless $code && $rtype eq 'CODE'; push @{$self->{+EXIT_CALLBACKS}} => $code; } sub ipc_disable { my $self = shift; confess "Attempt to disable IPC after it has been initialized" if $self->{+IPC}; $self->{+IPC_DISABLED} = 1; } sub add_ipc_driver { my $self = shift; my ($driver) = @_; unshift @{$self->{+IPC_DRIVERS}} => $driver; return unless $self->{+FINALIZED}; # Why is the @CARP_NOT entry not enough? local %Carp::Internal = %Carp::Internal; $Carp::Internal{'Test2::IPC::Driver'} = 1; carp "IPC driver $driver loaded too late to be used as the global ipc driver"; } sub enable_ipc_polling { my $self = shift; $self->{+_PID} = $$ unless defined $self->{+_PID}; $self->{+_TID} = get_tid() unless defined $self->{+_TID}; $self->add_context_init_callback( # This is called every time a context is created, it needs to be fast. # $_[0] is a context object sub { return unless $self->{+IPC_POLLING}; return unless $self->{+IPC}; return unless $self->{+IPC}->pending(); return $_[0]->{hub}->cull; } ) unless defined $self->ipc_polling; $self->set_ipc_polling(1); } sub get_ipc_pending { my $self = shift; return -1 unless $self->{+IPC}; $self->{+IPC}->pending(); } sub _check_pid { my $self = shift; my ($pid) = @_; return kill(0, $pid); } sub set_ipc_pending { my $self = shift; return unless $self->{+IPC}; my ($val) = @_; confess "value is required for set_ipc_pending" unless $val; $self->{+IPC}->set_pending($val); } sub disable_ipc_polling { my $self = shift; return unless defined $self->{+IPC_POLLING}; $self->{+IPC_POLLING} = 0; } sub _ipc_wait { my ($timeout) = @_; my $fail = 0; $timeout = DEFAULT_IPC_TIMEOUT() unless defined $timeout; my $ok = eval { if (CAN_FORK) { local $SIG{ALRM} = sub { die "Timeout waiting on child processes" }; alarm $timeout; while (1) { my $pid = CORE::wait(); my $err = $?; last if $pid == -1; next unless $err; $fail++; my $sig = $err & 127; my $exit = $err >> 8; warn "Process $pid did not exit cleanly (wstat: $err, exit: $exit, sig: $sig)\n"; } alarm 0; } if (USE_THREADS) { my $start = time; while (1) { last unless threads->list(); die "Timeout waiting on child thread" if time - $start >= $timeout; sleep 1; for my $t (threads->list) { # threads older than 1.34 do not have this :-( next if $t->can('is_joinable') && !$t->is_joinable; $t->join; # In older threads we cannot check if a thread had an error unless # we control it and its return. my $err = $t->can('error') ? $t->error : undef; next unless $err; my $tid = $t->tid(); $fail++; chomp($err); warn "Thread $tid did not end cleanly: $err\n"; } } } 1; }; my $error = $@; return 0 if $ok && !$fail; warn $error unless $ok; return 255; } sub set_exit { my $self = shift; return if $self->{+PRELOAD}; my $exit = $?; my $new_exit = $exit; if ($INC{'Test/Builder.pm'} && $Test::Builder::VERSION ne $Test2::API::VERSION) { print STDERR <<" EOT"; ******************************************************************************** * * * Test::Builder -- Test2::API version mismatch detected * * * ******************************************************************************** Test2::API Version: $Test2::API::VERSION Test::Builder Version: $Test::Builder::VERSION This is not a supported configuration, you will have problems. EOT } for my $ctx (values %{$self->{+CONTEXTS}}) { next unless $ctx; next if $ctx->_aborted && ${$ctx->_aborted}; # Only worry about contexts in this PID my $trace = $ctx->trace || next; next unless $trace->pid && $trace->pid == $$; # Do not worry about contexts that have no hub my $hub = $ctx->hub || next; # Do not worry if the state came to a sudden end. next if $hub->bailed_out; next if defined $hub->skip_reason; # now we worry $trace->alert("context object was never released! This means a testing tool is behaving very badly"); $exit = 255; $new_exit = 255; } if (!defined($self->{+_PID}) or !defined($self->{+_TID}) or $self->{+_PID} != $$ or $self->{+_TID} != get_tid()) { $? = $exit; return; } my @hubs = $self->{+STACK} ? $self->{+STACK}->all : (); if (@hubs and $self->{+IPC} and !$self->{+NO_WAIT}) { local $?; my %seen; for my $hub (reverse @hubs) { my $ipc = $hub->ipc or next; next if $seen{$ipc}++; $ipc->waiting(); } my $ipc_exit = _ipc_wait($self->{+IPC_TIMEOUT}); $new_exit ||= $ipc_exit; } # None of this is necessary if we never got a root hub if(my $root = shift @hubs) { my $trace = Test2::EventFacet::Trace->new( frame => [__PACKAGE__, __FILE__, 0, __PACKAGE__ . '::END'], detail => __PACKAGE__ . ' END Block finalization', ); my $ctx = Test2::API::Context->new( trace => $trace, hub => $root, ); if (@hubs) { $ctx->diag("Test ended with extra hubs on the stack!"); $new_exit = 255; } unless ($root->no_ending) { local $?; $root->finalize($trace) unless $root->ended; $_->($ctx, $exit, \$new_exit) for @{$self->{+EXIT_CALLBACKS}}; $new_exit ||= $root->failed; $new_exit ||= 255 unless $root->is_passing; } } $new_exit = 255 if $new_exit > 255; if ($new_exit && eval { require Test2::API::Breakage; 1 }) { my @warn = Test2::API::Breakage->report(); if (@warn) { print STDERR "\nYou have loaded versions of test modules known to have problems with Test2.\nThis could explain some test failures.\n"; print STDERR "$_\n" for @warn; print STDERR "\n"; } } $? = $new_exit; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::API::Instance - Object used by Test2::API under the hood =head1 DESCRIPTION This object encapsulates the global shared state tracked by L<Test2>. A single global instance of this package is stored (and obscured) by the L<Test2::API> package. There is no reason to directly use this package. This package is documented for completeness. This package can change, or go away completely at any time. Directly using, or monkeypatching this package is not supported in any way shape or form. =head1 SYNOPSIS use Test2::API::Instance; my $obj = Test2::API::Instance->new; =over 4 =item $pid = $obj->pid PID of this instance. =item $obj->tid Thread ID of this instance. =item $obj->reset() Reset the object to defaults. =item $obj->load() Set the internal state to loaded, and run and stored post-load callbacks. =item $bool = $obj->loaded Check if the state is set to loaded. =item $arrayref = $obj->post_load_callbacks Get the post-load callbacks. =item $obj->add_post_load_callback(sub { ... }) Add a post-load callback. If C<load()> has already been called then the callback will be immediately executed. If C<load()> has not been called then the callback will be stored and executed later when C<load()> is called. =item $hashref = $obj->contexts() Get a hashref of all active contexts keyed by hub id. =item $arrayref = $obj->context_acquire_callbacks Get all context acquire callbacks. =item $arrayref = $obj->context_init_callbacks Get all context init callbacks. =item $arrayref = $obj->context_release_callbacks Get all context release callbacks. =item $arrayref = $obj->pre_subtest_callbacks Get all pre-subtest callbacks. =item $obj->add_context_init_callback(sub { ... }) Add a context init callback. Subs are called every time a context is created. Subs get the newly created context as their only argument. =item $obj->add_context_release_callback(sub { ... }) Add a context release callback. Subs are called every time a context is released. Subs get the released context as their only argument. These callbacks should not call release on the context. =item $obj->add_pre_subtest_callback(sub { ... }) Add a pre-subtest callback. Subs are called every time a subtest is going to be run. Subs get the subtest name, coderef, and any arguments. =item $obj->set_exit() This is intended to be called in an C<END { ... }> block. This will look at test state and set $?. This will also call any end callbacks, and wait on child processes/threads. =item $obj->set_ipc_pending($val) Tell other processes and threads there is a pending event. C<$val> should be a unique value no other thread/process will generate. B<Note:> This will also make the current process see a pending event. =item $pending = $obj->get_ipc_pending() This returns -1 if it is not possible to know. This returns 0 if there are no pending events. This returns 1 if there are pending events. =item $timeout = $obj->ipc_timeout; =item $obj->set_ipc_timeout($timeout); How long to wait for child processes and threads before aborting. =item $drivers = $obj->ipc_drivers Get the list of IPC drivers. =item $obj->add_ipc_driver($DRIVER_CLASS) Add an IPC driver to the list. The most recently added IPC driver will become the global one during initialization. If a driver is added after initialization has occurred a warning will be generated: "IPC driver $driver loaded too late to be used as the global ipc driver" =item $bool = $obj->ipc_polling Check if polling is enabled. =item $obj->enable_ipc_polling Turn on polling. This will cull events from other processes and threads every time a context is created. =item $obj->disable_ipc_polling Turn off IPC polling. =item $bool = $obj->no_wait =item $bool = $obj->set_no_wait($bool) Get/Set no_wait. This option is used to turn off process/thread waiting at exit. =item $arrayref = $obj->exit_callbacks Get the exit callbacks. =item $obj->add_exit_callback(sub { ... }) Add an exit callback. This callback will be called by C<set_exit()>. =item $bool = $obj->finalized Check if the object is finalized. Finalization happens when either C<ipc()>, C<stack()>, or C<format()> are called on the object. Once finalization happens these fields are considered unchangeable (not enforced here, enforced by L<Test2>). =item $ipc = $obj->ipc Get the one true IPC instance. =item $obj->ipc_disable Turn IPC off =item $bool = $obj->ipc_disabled Check if IPC is disabled =item $stack = $obj->stack Get the one true hub stack. =item $formatter = $obj->formatter Get the global formatter. By default this is the C<'Test2::Formatter::TAP'> package. This could be any package that implements the C<write()> method. This can also be an instantiated object. =item $bool = $obj->formatter_set() Check if a formatter has been set. =item $obj->add_formatter($class) =item $obj->add_formatter($obj) Add a formatter. The most recently added formatter will become the global one during initialization. If a formatter is added after initialization has occurred a warning will be generated: "Formatter $formatter loaded too late to be used as the global formatter" =item $obj->set_add_uuid_via(sub { ... }) =item $sub = $obj->add_uuid_via() This allows you to provide a UUID generator. If provided UUIDs will be attached to all events, hubs, and contexts. This is useful for storing, tracking, and linking these objects. The sub you provide should always return a unique identifier. Most things will expect a proper UUID string, however nothing in Test2::API enforces this. The sub will receive exactly 1 argument, the type of thing being tagged 'context', 'hub', or 'event'. In the future additional things may be tagged, in which case new strings will be passed in. These are purely informative, you can (and usually should) ignore them. =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! ��o��o �o ) 5.34.0/Test2/API/InterceptResult/Event.pmnu �[��� package Test2::API::InterceptResult::Event; use strict; use warnings; our $VERSION = '1.302183'; use List::Util qw/first/; use Test2::Util qw/pkg_to_file/; use Scalar::Util qw/reftype blessed/; use Storable qw/dclone/; use Carp qw/confess croak/; use Test2::API::InterceptResult::Facet; use Test2::API::InterceptResult::Hub; use Test2::Util::HashBase qw{ +causes_failure <facet_data <result_class }; my %FACETS; BEGIN { local $@; local *plugins; if (eval { require Module::Pluggable; 1 }) { Module::Pluggable->import( # We will replace the sub later require => 1, on_require_error => sub { 1 }, search_path => ['Test2::EventFacet'], max_depth => 3, min_depth => 3, ); for my $facet_type (__PACKAGE__->plugins) { my ($key, $list); eval { $key = $facet_type->facet_key; $list = $facet_type->is_list; }; next unless $key && defined($list); $FACETS{$key} = {list => $list, class => $facet_type, loaded => 1}; } } $FACETS{__GENERIC__} = {class => 'Test2::API::InterceptResult::Facet', loaded => 1}; } sub facet_map { \%FACETS } sub facet_info { my $facet = pop; return $FACETS{$facet} if exists $FACETS{$facet}; my $mname = ucfirst(lc($facet)); $mname =~ s/s$//; for my $name ($mname, "${mname}s") { my $file = "Test2/EventFacet/$name.pm"; my $class = "Test2::EventFacet::$name"; local $@; my $ok = eval { require $file; my $key = $class->facet_key; my $list = $class->is_list; $FACETS{$key} = {list => $list, class => $class, loaded => 1}; $FACETS{$facet} = $FACETS{$key} if $facet ne $key; 1; }; return $FACETS{$facet} if $ok && $FACETS{$facet}; } return $FACETS{$facet} = $FACETS{__GENERIC__}; } sub init { my $self = shift; my $rc = $self->{+RESULT_CLASS} ||= 'Test2::API::InterceptResult'; my $rc_file = pkg_to_file($rc); require($rc_file) unless $INC{$rc_file}; my $fd = $self->{+FACET_DATA} ||= {}; for my $facet (keys %$fd) { my $finfo = $self->facet_info($facet); my $is_list = $finfo->{list}; next unless defined $is_list; my $type = reftype($fd->{$facet}); if ($is_list) { confess "Facet '$facet' is a list facet, but got '$type' instead of an arrayref" unless $type eq 'ARRAY'; for my $item (@{$fd->{$facet}}) { my $itype = reftype($item); next if $itype eq 'HASH'; confess "Got item type '$itype' in list-facet '$facet', all items must be hashrefs"; } } else { confess "Facet '$facet' is an only-one facet, but got '$type' instead of a hashref" unless $type eq 'HASH'; } } } sub clone { my $self = shift; my $class = blessed($self); my %data = %$self; $data{+FACET_DATA} = dclone($data{+FACET_DATA}); return bless(\%data, $class); } sub _facet_class { my $self = shift; my ($name) = @_; my $spec = $self->facet_info($name); my $class = $spec->{class}; unless ($spec->{loaded}) { my $file = pkg_to_file($class); require $file unless $INC{$file}; $spec->{loaded} = 1; } return $class; } sub the_facet { my $self = shift; my ($name) = @_; return undef unless defined $self->{+FACET_DATA}->{$name}; my $data = $self->{+FACET_DATA}->{$name}; my $type = reftype($data) or confess "Facet '$name' has a value that is not a reference, this should not happen"; return $self->_facet_class($name)->new(%{dclone($data)}) if $type eq 'HASH'; if ($type eq 'ARRAY') { return undef unless @$data; croak "'the_facet' called for facet '$name', but '$name' has '" . @$data . "' items" if @$data != 1; return $self->_facet_class($name)->new(%{dclone($data->[0])}); } die "Invalid facet data type: $type"; } sub facet { my $self = shift; my ($name) = @_; return () unless exists $self->{+FACET_DATA}->{$name}; my $data = $self->{+FACET_DATA}->{$name}; my $type = reftype($data) or confess "Facet '$name' has a value that is not a reference, this should not happen"; my @out; @out = ($data) if $type eq 'HASH'; @out = (@$data) if $type eq 'ARRAY'; my $class = $self->_facet_class($name); return map { $class->new(%{dclone($_)}) } @out; } sub causes_failure { my $self = shift; return $self->{+CAUSES_FAILURE} if exists $self->{+CAUSES_FAILURE}; my $hub = Test2::API::InterceptResult::Hub->new(); $hub->process($self); return $self->{+CAUSES_FAILURE} = ($hub->is_passing ? 0 : 1); } sub causes_fail { shift->causes_failure } sub trace { $_[0]->facet('trace') } sub the_trace { $_[0]->the_facet('trace') } sub frame { my $t = $_[0]->the_trace or return undef; $t->{frame} || undef } sub trace_details { my $t = $_[0]->the_trace or return undef; $t->{details} || undef } sub trace_package { my $f = $_[0]->frame or return undef; $f->[0] || undef } sub trace_file { my $f = $_[0]->frame or return undef; $f->[1] || undef } sub trace_line { my $f = $_[0]->frame or return undef; $f->[2] || undef } sub trace_subname { my $f = $_[0]->frame or return undef; $f->[3] || undef } sub trace_tool { my $f = $_[0]->frame or return undef; $f->[3] || undef } sub trace_signature { my $t = $_[0]->the_trace or return undef; Test2::EventFacet::Trace::signature($t) || undef } sub brief { my $self = shift; my @try = qw{ bailout_brief error_brief assert_brief plan_brief }; for my $meth (@try) { my $got = $self->$meth or next; return $got; } return; } sub flatten { my $self = shift; my %params = @_; my $todo = {%{$self->{+FACET_DATA}}}; delete $todo->{hubs}; delete $todo->{meta}; delete $todo->{trace}; my $out = $self->summary; delete $out->{brief}; delete $out->{facets}; delete $out->{trace_tool}; delete $out->{trace_details} unless defined($out->{trace_details}); for my $tagged (grep { my $finfo = $self->facet_info($_); $finfo->{list} && $finfo->{class}->can('tag') } keys %FACETS, keys %$todo) { my $set = delete $todo->{$tagged} or next; my $fd = $self->{+FACET_DATA}; my $has_assert = $self->has_assert; my $has_parent = $self->has_subtest; my $has_fatal_error = $self->has_errors && grep { $_->{fail} } $self->errors; next if $tagged eq 'amnesty' && !($has_assert || $has_parent || $has_fatal_error); for my $item (@$set) { push @{$out->{lc($item->{tag})}} => $item->{fail} ? "FATAL: $item->{details}" : $item->{details}; } } if (my $assert = delete $todo->{assert}) { $out->{pass} = $assert->{pass}; $out->{name} = $assert->{details}; } if (my $parent = delete $todo->{parent}) { delete $out->{subtest}->{bailed_out} unless defined $out->{subtest}->{bailed_out}; delete $out->{subtest}->{skip_reason} unless defined $out->{subtest}->{skip_reason}; if (my $res = $self->subtest_result) { my $state = $res->state; delete $state->{$_} for grep { !defined($state->{$_}) } keys %$state; $out->{subtest} = $state; $out->{subevents} = $res->flatten(%params) if $params{include_subevents}; } } if (my $control = delete $todo->{control}) { if ($control->{halt}) { $out->{bailed_out} = $control->{details} || 1; } elsif(defined $control->{details}) { $out->{control} = $control->{details}; } } if (my $plan = delete $todo->{plan}) { $out->{plan} = $self->plan_brief; $out->{plan} =~ s/^PLAN\s*//; } for my $other (keys %$todo) { my $data = $todo->{$other} or next; if (reftype($data) eq 'ARRAY') { if (!$out->{$other} || reftype($out->{$other}) eq 'ARRAY') { for my $item (@$data) { push @{$out->{$other}} => $item->{details} if defined $item->{details}; } } } else { $out->{$other} = $data->{details} if defined($data->{details}) && !defined($out->{$other}); } } if (my $fields = $params{fields}) { $out = { map {exists($out->{$_}) ? ($_ => $out->{$_}) : ()} @$fields }; } if (my $remove = $params{remove}) { delete $out->{$_} for @$remove; } return $out; } sub summary { my $self = shift; my %params = @_; my $out = { brief => $self->brief || '', causes_failure => $self->causes_failure, trace_line => $self->trace_line, trace_file => $self->trace_file, trace_tool => $self->trace_subname, trace_details => $self->trace_details, facets => [ sort keys(%{$self->{+FACET_DATA}}) ], }; if (my $fields = $params{fields}) { $out = { map {exists($out->{$_}) ? ($_ => $out->{$_}) : ()} @$fields }; } if (my $remove = $params{remove}) { delete $out->{$_} for @$remove; } return $out; } sub has_assert { $_[0]->{+FACET_DATA}->{assert} ? 1 : 0 } sub the_assert { $_[0]->the_facet('assert') } sub assert { $_[0]->facet('assert') } sub assert_brief { my $self = shift; my $fd = $self->{+FACET_DATA}; my $as = $fd->{assert} or return; my $am = $fd->{amnesty}; my $out = $as->{pass} ? "PASS" : "FAIL"; $out .= " with amnesty" if $am; return $out; } sub has_subtest { $_[0]->{+FACET_DATA}->{parent} ? 1 : 0 } sub the_subtest { $_[0]->the_facet('parent') } sub subtest { $_[0]->facet('parent') } sub subtest_result { my $self = shift; my $parent = $self->{+FACET_DATA}->{parent} or return; my $children = $parent->{children} || []; $children = $self->{+RESULT_CLASS}->new(@$children)->upgrade unless blessed($children) && $children->isa($self->{+RESULT_CLASS}); return $children; } sub has_bailout { $_[0]->bailout ? 1 : 0 } sub the_bailout { my ($b) = $_[0]->bailout; $b } sub bailout { my $self = shift; my $control = $self->{+FACET_DATA}->{control} or return; return $control if $control->{halt}; return; } sub bailout_brief { my $self = shift; my $bo = $self->bailout or return; my $reason = $bo->{details} or return "BAILED OUT"; return "BAILED OUT: $reason"; } sub bailout_reason { my $self = shift; my $bo = $self->bailout or return; return $bo->{details} || ''; } sub has_plan { $_[0]->{+FACET_DATA}->{plan} ? 1 : 0 } sub the_plan { $_[0]->the_facet('plan') } sub plan { $_[0]->facet('plan') } sub plan_brief { my $self = shift; my $plan = $self->{+FACET_DATA}->{plan} or return; my $base = $self->_plan_brief($plan); my $reason = $plan->{details} or return $base; return "$base: $reason"; } sub _plan_brief { my $self = shift; my ($plan) = @_; return 'NO PLAN' if $plan->{none}; return "SKIP ALL" if $plan->{skip} || !$plan->{count}; return "PLAN $plan->{count}"; } sub has_amnesty { $_[0]->{+FACET_DATA}->{amnesty} ? 1 : 0 } sub the_amnesty { $_[0]->the_facet('amnesty') } sub amnesty { $_[0]->facet('amnesty') } sub amnesty_reasons { map { $_->{details} } $_[0]->amnesty } sub has_todos { &first(sub { uc($_->{tag}) eq 'TODO' }, $_[0]->amnesty) ? 1 : 0 } sub todos { grep { uc($_->{tag}) eq 'TODO' } $_[0]->amnesty } sub todo_reasons { map { $_->{details} || 'TODO' } $_[0]->todos } sub has_skips { &first(sub { uc($_->{tag}) eq 'SKIP' }, $_[0]->amnesty) ? 1 : 0 } sub skips { grep { uc($_->{tag}) eq 'SKIP' } $_[0]->amnesty } sub skip_reasons { map { $_->{details} || 'SKIP' } $_[0]->skips } my %TODO_OR_SKIP = (SKIP => 1, TODO => 1); sub has_other_amnesty { &first( sub { !$TODO_OR_SKIP{uc($_->{tag})} }, $_[0]->amnesty) ? 1 : 0 } sub other_amnesty { grep { !$TODO_OR_SKIP{uc($_->{tag})} } $_[0]->amnesty } sub other_amnesty_reasons { map { $_->{details} || $_->{tag} || 'AMNESTY' } $_[0]->other_amnesty } sub has_errors { $_[0]->{+FACET_DATA}->{errors} ? 1 : 0 } sub the_errors { $_[0]->the_facet('errors') } sub errors { $_[0]->facet('errors') } sub error_messages { map { $_->{details} || $_->{tag} || 'ERROR' } $_[0]->errors } sub error_brief { my $self = shift; my $errors = $self->{+FACET_DATA}->{errors} or return; my $base = @$errors > 1 ? "ERRORS" : "ERROR"; return $base unless @$errors; my ($msg, @extra) = split /[\n\r]+/, $errors->[0]->{details}; my $out = "$base: $msg"; $out .= " [...]" if @extra || @$errors > 1; return $out; } sub has_info { $_[0]->{+FACET_DATA}->{info} ? 1 : 0 } sub the_info { $_[0]->the_facet('info') } sub info { $_[0]->facet('info') } sub info_messages { map { $_->{details} } $_[0]->info } sub has_diags { &first(sub { uc($_->{tag}) eq 'DIAG' }, $_[0]->info) ? 1 : 0 } sub diags { grep { uc($_->{tag}) eq 'DIAG' } $_[0]->info } sub diag_messages { map { $_->{details} || 'DIAG' } $_[0]->diags } sub has_notes { &first(sub { uc($_->{tag}) eq 'NOTE' }, $_[0]->info) ? 1 : 0 } sub notes { grep { uc($_->{tag}) eq 'NOTE' } $_[0]->info } sub note_messages { map { $_->{details} || 'NOTE' } $_[0]->notes } my %NOTE_OR_DIAG = (NOTE => 1, DIAG => 1); sub has_other_info { &first(sub { !$NOTE_OR_DIAG{uc($_->{tag})} }, $_[0]->info) ? 1 : 0 } sub other_info { grep { !$NOTE_OR_DIAG{uc($_->{tag})} } $_[0]->info } sub other_info_messages { map { $_->{details} || $_->{tag} || 'INFO' } $_[0]->other_info } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::API::InterceptResult::Event - Representation of an event for use in testing other test tools. =head1 DESCRIPTION C<intercept { ... }> from L<Test2::API> returns an instance of L<Test2::API::InterceptResult> which is a blessed arrayref of L<Test2::API::InterceptResult::Event> objects. This POD documents the methods of these events, which are mainly provided for you to use when testing your test tools. =head1 SYNOPSIS use Test2::V0; use Test2::API qw/intercept/; my $events = intercept { ok(1, "A passing assertion"); plan(1); }; # This will convert all events into instances of # Test2::API::InterceptResult::Event. Until we do this they are the # original Test::Event::* instances $events->upgrade(in_place => 1); # Now we can get individual events in this form my $assert = $events->[0]; my $plan = $events->[1]; # Or we can operate on all events at once: my $flattened = $events->flatten; is( $flattened, [ { causes_failure => 0, name => 'A passing assertion', pass => 1, trace_file => 'xxx.t', trace_line => 5, }, { causes_failure => 0, plan => 1, trace_file => 'xxx.t', trace_line => 6, }, ], "Flattened both events and returned an arrayref of the results ); =head1 METHODS =head2 !!! IMPORTANT NOTES ON DESIGN !!! Please pay attention to what these return, many return a scalar when applicable or an empty list when not (as opposed to undef). Many also always return a list of 0 or more items. Some always return a scalar. Note that none of the methods care about context, their behavior is consistent regardless of scalar, list, or void context. This was done because this class was specifically designed to be used in a list and generate more lists in bulk operations. Sometimes in a map you want nothing to show up for the event, and you do not want an undef in its place. In general single event instances are not going to be used alone, though that is allowed. As a general rule any method prefixed with C<the_> implies the event should have exactly 1 of the specified item, and and exception will be thrown if there are 0, or more than 1 of the item. =head2 ATTRIBUTES =over 4 =item $hashref = $event->facet_data This will return the facet data hashref, which is all Test2 cares about for any given event. =item $class = $event->result_class This is normally L<Test2::API::InterceptResult>. This is set at construction so that subtest results can be turned into instances of it on demand. =back =head2 DUPLICATION =over 4 =item $copy = $event->clone Create a deep copy of the event. Modifying either event will not effect the other. =back =head2 CONDENSED MULTI-FACET DATA =over 4 =item $bool = $event->causes_failure =item $bool = $event->causes_fail These are both aliases of the same functionality. This will always return either a true value, or a false value. This never returns a list. This method may be relatively slow (still super fast) because it determines pass or fail by creating an instance of L<Test2::Hub> and asking it to process the event, and then asks the hub for its pass/fail state. This is slower than bulding in logic to do the check, but it is more reliable as it will always tell you what the hub thinks, so the logic will never be out of date relative to the Test2 logic that actually cares. =item STRING_OR_EMPTY_LIST = $event->brief Not all events have a brief, some events are not rendered by the formatter, others have no "brief" data worth seeing. When this is the case an empty list is returned. This is done intentionally so it can be used in a map operation without having C<undef> being included in the result. When a brief can be generated it is always a single 1-line string, and is returned as-is, not in a list. Possible briefs: # From control facets "BAILED OUT" "BAILED OUT: $why" # From error facets "ERROR" "ERROR: $message" "ERROR: $partial_message [...]" "ERRORS: $first_error_message [...]" # From assert facets "PASS" "FAIL" "PASS with amnesty" "FAIL with amnesty" # From plan facets "PLAN $count" "NO PLAN" "SKIP ALL" "SKIP ALL: $why" Note that only the first applicable brief is returned. This is essnetially a poor-mans TAP that only includes facets that could (but not necessarily do) cause a failure. =item $hashref = $event->flatten =item $hashref = $event->flatten(include_subevents => 1) This ALWAYS returns a hashref. This puts all the most useful data for the most interesting facets into a single hashref for easy validation. If there are no meaningful facets this will return an empty hashref. If given the 'include_subevents' parameter it will also include subtest data: Here is a list of EVERY possible field. If a field is not applicable it will not be present. =over 4 =item always present causes_failure => 1, # Always present =item Present if the event has a trace facet trace_line => 42, trace_file => 'Foo/Bar.pm', trace_details => 'Extra trace details', # usually not present =item If an assertion is present pass => 0, name => "1 + 1 = 2, so math works", =item If a plan is present: plan => $count_or_SKIP_ALL_or_NO_PLAN, =item If amnesty facets are present You get an array for each type that is present. todo => [ # Yes you could be under multiple todos, this will list them all. "I will fix this later", "I promise to fix these", ], skip => ["This will format the main drive, do not run"], ... => ["Other amnesty"] =item If Info (note/diag) facets are present You get an arrayref for any that are present, the key is not defined if they are not present. diag => [ "Test failed at Foo/Bar.pm line 42", "You forgot to tie your boots", ], note => ["Your boots are red"], ... => ["Other info"], =item If error facets are present Always an arrayref error => [ "non fatal error (does not cause test failure, just an FYI", "FATAL: This is a fatal error (causes failure)", ], # Errors can have alternative tags, but in practice are always 'error', # listing this for completeness. ... => [ ... ] =item Present if the event is a subtest subtest => { count => 2, # Number of assertions made failed => 1, # Number of test failures seen is_passing => 0, # Boolean, true if the test would be passing # after the events are processed. plan => 2, # Plan, either a number, undef, 'SKIP', or 'NO PLAN' follows_plan => 1, # True if there is a plan and it was followed. # False if the plan and assertions did not # match, undef if no plan was present in the # event list. bailed_out => "foo", # if there was a bail-out in the # events in this will be a string explaining # why there was a bailout, if no reason was # given this will simply be set to true (1). skip_reason => "foo", # If there was a skip_all this will give the # reason. }, if C<< (include_subtest => 1) >> was provided as a parameter then the following will be included. This is the result of turning all subtest child events into an L<Test2::API::InterceptResult> instance and calling the C<flatten> method on it. subevents => Test2::API::InterceptResult->new(@child_events)->flatten(...), =item If a bail-out is being requested If no reason was given this will be set to 1. bailed_out => "reason", =back =item $hashref = $event->summary() This returns a limited summary. See C<flatten()>, which is usually a better option. { brief => $event->brief || '', causes_failure => $event->causes_failure, trace_line => $event->trace_line, trace_file => $event->trace_file, trace_tool => $event->trace_subname, trace_details => $event->trace_details, facets => [ sort keys(%{$event->{+FACET_DATA}}) ], } =back =head2 DIRECT ARBITRARY FACET ACCESS =over 4 =item @list_of_facets = $event->facet($name) This always returns a list of 0 or more items. This fetches the facet instances from the event. For facets like 'assert' this will always return 0 or 1 item. For events like 'info' (diags, notes) this will return 0 or more instances, once for each instance of the facet. These will be blessed into the proper L<Test2::EventFacet> subclass. If no subclass can be found it will be blessed as an L<Test2::API::InterceptResult::Facet> generic facet class. =item $undef_or_facet = $event->the_facet($name) If you know you will have exactly 1 instance of a facet you can call this. If you are correct and there is exactly one instance of the facet it will always return the hashref. If there are 0 instances of the facet this will reutrn undef, not an empty list. If there are more than 1 instance this will throw an exception because your assumption was incorrect. =back =head2 TRACE FACET =over 4 =item @list_of_facets = $event->trace TODO =item $undef_or_hashref = $event->the_trace This returns the trace hashref, or undef if it is not present. =item $undef_or_arrayref = $event->frame If a trace is present, and has a caller frame, this will be an arrayref: [$package, $file, $line, $subname] If the trace is not present, or has no caller frame this will return undef. =item $undef_or_string = $event->trace_details This is usually undef, but occasionally has a string that overrides the file/line number debugging a trace usually provides on test failure. =item $undef_or_string = $event->trace_package Same as C<(caller())[0]>, the first element of the trace frame. Will be undef if not present. =item $undef_or_string = $event->trace_file Same as C<(caller())[1]>, the second element of the trace frame. Will be undef if not present. =item $undef_or_integer = $event->trace_line Same as C<(caller())[2]>, the third element of the trace frame. Will be undef if not present. =item $undef_or_string = $event->trace_subname =item $undef_or_string = $event->trace_tool Aliases for the same thing Same as C<(caller($level))[4]>, the fourth element of the trace frame. Will be undef if not present. =item $undef_or_string = $event->trace_signature A string that is a unique signature for the trace. If a single context generates multiple events they will all have the same signature. This can be used to tie assertions and diagnostics sent as seperate events together after the fact. =back =head2 ASSERT FACET =over 4 =item $bool = $event->has_assert Returns true if the event has an assert facet, false if it does not. =item $undef_or_hashref = $event->the_assert Returns the assert facet if present, undef if it is not. =item @list_of_facets = $event->assert TODO =item EMPTY_LIST_OR_STRING = $event->assert_brief Returns a string giving a brief of the assertion if an assertion is present. Returns an empty list if no assertion is present. =back =head2 SUBTESTS (PARENT FACET) =over 4 =item $bool = $event->has_subtest True if a subetest is present in this event. =item $undef_or_hashref = $event->the_subtest Get the one subtest if present, otherwise undef. =item @list_of_facets = $event->subtest TODO =item EMPTY_LIST_OR_OBJECT = $event->subtest_result Returns an empty list if there is no subtest. Get an instance of L<Test2::API::InterceptResult> representing the subtest. =back =head2 CONTROL FACET (BAILOUT, ENCODING) =over 4 =item $bool = $event->has_bailout True if there was a bailout =item $undef_hashref = $event->the_bailout Return the control facet if it requested a bailout. =item EMPTY_LIST_OR_HASHREF = $event->bailout Get a list of 0 or 1 hashrefs. The hashref will be the control facet if a bail-out was requested. =item EMPTY_LIST_OR_STRING = $event->bailout_brief Get the brief of the balout if present. =item EMPTY_LIST_OR_STRING = $event->bailout_reason Get the reason for the bailout, an empty string if no reason was provided, or an empty list if there was no bailout. =back =head2 PLAN FACET TODO =over 4 =item $bool = $event->has_plan =item $undef_or_hashref = $event->the_plan =item @list_if_hashrefs = $event->plan =item EMPTY_LIST_OR_STRING $event->plan_brief =back =head2 AMNESTY FACET (TODO AND SKIP) TODO =over 4 =item $event->has_amnesty =item $event->the_amnesty =item $event->amnesty =item $event->amnesty_reasons =item $event->has_todos =item $event->todos =item $event->todo_reasons =item $event->has_skips =item $event->skips =item $event->skip_reasons =item $event->has_other_amnesty =item $event->other_amnesty =item $event->other_amnesty_reasons =back =head2 ERROR FACET (CAPTURED EXCEPTIONS) TODO =over 4 =item $event->has_errors =item $event->the_errors =item $event->errors =item $event->error_messages =item $event->error_brief =back =head2 INFO FACET (DIAG, NOTE) TODO =over 4 =item $event->has_info =item $event->the_info =item $event->info =item $event->info_messages =item $event->has_diags =item $event->diags =item $event->diag_messages =item $event->has_notes =item $event->notes =item $event->note_messages =item $event->has_other_info =item $event->other_info =item $event->other_info_messages =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! ��:`Z Z , 5.34.0/Test2/API/InterceptResult/Squasher.pmnu �[��� package Test2::API::InterceptResult::Squasher; use strict; use warnings; our $VERSION = '1.302183'; use Carp qw/croak/; use List::Util qw/first/; use Test2::Util::HashBase qw{ <events +down_sig +down_buffer +up_into +up_sig +up_clear }; sub init { my $self = shift; croak "'events' is a required attribute" unless $self->{+EVENTS}; } sub can_squash { my $self = shift; my ($event) = @_; # No info, no squash return unless $event->has_info; # Do not merge up if one of these is true return if first { $event->$_ } 'causes_fail', 'has_assert', 'has_bailout', 'has_errors', 'has_plan', 'has_subtest'; # Signature if we can squash return $event->trace_signature; } sub process { my $self = shift; my ($event) = @_; return if $self->squash_up($event); return if $self->squash_down($event); $self->flush_down($event); push @{$self->{+EVENTS}} => $event; return; } sub squash_down { my $self = shift; my ($event) = @_; my $sig = $self->can_squash($event) or return; $self->flush_down() if $self->{+DOWN_SIG} && $self->{+DOWN_SIG} ne $sig; $self->{+DOWN_SIG} ||= $sig; push @{$self->{+DOWN_BUFFER}} => $event; return 1; } sub flush_down { my $self = shift; my ($into) = @_; my $sig = delete $self->{+DOWN_SIG}; my $buffer = delete $self->{+DOWN_BUFFER}; return unless $buffer && @$buffer; my $fsig = $into ? $into->trace_signature : undef; if ($fsig && $fsig eq $sig) { $self->squash($into, @$buffer); } else { push @{$self->{+EVENTS}} => @$buffer if $buffer; } } sub clear_up { my $self = shift; return unless $self->{+UP_CLEAR}; delete $self->{+UP_INTO}; delete $self->{+UP_SIG}; delete $self->{+UP_CLEAR}; } sub squash_up { my $self = shift; my ($event) = @_; no warnings 'uninitialized'; $self->clear_up; if ($event->has_assert) { if(my $sig = $event->trace_signature) { $self->{+UP_INTO} = $event; $self->{+UP_SIG} = $sig; $self->{+UP_CLEAR} = 0; } else { $self->{+UP_CLEAR} = 1; $self->clear_up; } return; } my $into = $self->{+UP_INTO} or return; # Next iteration should clear unless something below changes that $self->{+UP_CLEAR} = 1; # Only merge into matching trace signatres my $sig = $self->can_squash($event); return unless $sig eq $self->{+UP_SIG}; # OK Merge! Do not clear merge in case the return event is also a matching sig diag-only $self->{+UP_CLEAR} = 0; $self->squash($into, $event); return 1; } sub squash { my $self = shift; my ($into, @from) = @_; push @{$into->facet_data->{info}} => $_->info for @from; } sub DESTROY { my $self = shift; return unless $self->{+EVENTS}; $self->flush_down(); return; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::API::InterceptResult::Squasher - Encapsulation of the algorithm that squashes diags into assertions. =head1 DESCRIPTION Internal use only, please ignore. =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! ����� � ' 5.34.0/Test2/API/InterceptResult/Hub.pmnu �[��� package Test2::API::InterceptResult::Hub; use strict; use warnings; our $VERSION = '1.302183'; BEGIN { require Test2::Hub; our @ISA = qw(Test2::Hub) } use Test2::Util::HashBase; sub init { my $self = shift; $self->SUPER::init(); $self->{+NESTED} = 0; } sub inherit { my $self = shift; $self->{+NESTED} = 0; } sub terminate { } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::API::InterceptResult::Hub - Hub used by InterceptResult. =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! &RI| | ) 5.34.0/Test2/API/InterceptResult/Facet.pmnu �[��� package Test2::API::InterceptResult::Facet; use strict; use warnings; our $VERSION = '1.302183'; BEGIN { require Test2::EventFacet; our @ISA = ('Test2::EventFacet'); } our $AUTOLOAD; sub AUTOLOAD { my $self = shift; my $name = $AUTOLOAD; $name =~ s/^.*:://g; return undef unless exists $self->{$name}; return $self->{$name}; } sub DESTROY {} 1; PK ! R�SH�k �k 5.34.0/Test2/API/Context.pmnu �[��� package Test2::API::Context; use strict; use warnings; our $VERSION = '1.302183'; use Carp qw/confess croak/; use Scalar::Util qw/weaken blessed/; use Test2::Util qw/get_tid try pkg_to_file get_tid/; use Test2::EventFacet::Trace(); use Test2::API(); # Preload some key event types my %LOADED = ( map { my $pkg = "Test2::Event::$_"; my $file = "Test2/Event/$_.pm"; require $file unless $INC{$file}; ( $pkg => $pkg, $_ => $pkg ) } qw/Ok Diag Note Plan Bail Exception Waiting Skip Subtest Pass Fail V2/ ); use Test2::Util::ExternalMeta qw/meta get_meta set_meta delete_meta/; use Test2::Util::HashBase qw{ stack hub trace _on_release _depth _is_canon _is_spawn _aborted errno eval_error child_error thrown }; # Private, not package vars # It is safe to cache these. my $ON_RELEASE = Test2::API::_context_release_callbacks_ref(); my $CONTEXTS = Test2::API::_contexts_ref(); sub init { my $self = shift; confess "The 'trace' attribute is required" unless $self->{+TRACE}; confess "The 'hub' attribute is required" unless $self->{+HUB}; $self->{+_DEPTH} = 0 unless defined $self->{+_DEPTH}; $self->{+ERRNO} = $! unless exists $self->{+ERRNO}; $self->{+EVAL_ERROR} = $@ unless exists $self->{+EVAL_ERROR}; $self->{+CHILD_ERROR} = $? unless exists $self->{+CHILD_ERROR}; } sub snapshot { bless {%{$_[0]}, _is_canon => undef, _is_spawn => undef, _aborted => undef}, __PACKAGE__ } sub restore_error_vars { my $self = shift; ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; } sub DESTROY { return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; return if $_[0]->{+_ABORTED} && ${$_[0]->{+_ABORTED}}; my ($self) = @_; my $hub = $self->{+HUB}; my $hid = $hub->{hid}; # Do not show the warning if it looks like an exception has been thrown, or # if the context is not local to this process or thread. { # Sometimes $@ is uninitialized, not a problem in this case so do not # show the warning about using eq. no warnings 'uninitialized'; if($self->{+EVAL_ERROR} eq $@ && $hub->is_local) { require Carp; my $mess = Carp::longmess("Context destroyed"); my $frame = $self->{+_IS_SPAWN} || $self->{+TRACE}->frame; warn <<" EOT"; A context appears to have been destroyed without first calling release(). Based on \$@ it does not look like an exception was thrown (this is not always a reliable test) This is a problem because the global error variables (\$!, \$@, and \$?) will not be restored. In addition some release callbacks will not work properly from inside a DESTROY method. Here are the context creation details, just in case a tool forgot to call release(): File: $frame->[1] Line: $frame->[2] Tool: $frame->[3] Here is a trace to the code that caused the context to be destroyed, this could be an exit(), a goto, or simply the end of a scope: $mess Cleaning up the CONTEXT stack... EOT } } return if $self->{+_IS_SPAWN}; # Remove the key itself to avoid a slow memory leak delete $CONTEXTS->{$hid}; $self->{+_IS_CANON} = undef; if (my $cbk = $self->{+_ON_RELEASE}) { $_->($self) for reverse @$cbk; } if (my $hcbk = $hub->{_context_release}) { $_->($self) for reverse @$hcbk; } $_->($self) for reverse @$ON_RELEASE; } # release exists to implement behaviors like die-on-fail. In die-on-fail you # want to die after a failure, but only after diagnostics have been reported. # The ideal time for the die to happen is when the context is released. # Unfortunately die does not work in a DESTROY block. sub release { my ($self) = @_; ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return $self->{+_IS_SPAWN} = undef if $self->{+_IS_SPAWN}; croak "release() should not be called on context that is neither canon nor a child" unless $self->{+_IS_CANON}; my $hub = $self->{+HUB}; my $hid = $hub->{hid}; croak "context thinks it is canon, but it is not" unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; # Remove the key itself to avoid a slow memory leak $self->{+_IS_CANON} = undef; delete $CONTEXTS->{$hid}; if (my $cbk = $self->{+_ON_RELEASE}) { $_->($self) for reverse @$cbk; } if (my $hcbk = $hub->{_context_release}) { $_->($self) for reverse @$hcbk; } $_->($self) for reverse @$ON_RELEASE; # Do this last so that nothing else changes them. # If one of the hooks dies then these do not get restored, this is # intentional ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; return; } sub do_in_context { my $self = shift; my ($sub, @args) = @_; # We need to update the pid/tid and error vars. my $clone = $self->snapshot; @$clone{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} = ($!, $@, $?); $clone->{+TRACE} = $clone->{+TRACE}->snapshot(pid => $$, tid => get_tid()); my $hub = $clone->{+HUB}; my $hid = $hub->hid; my $old = $CONTEXTS->{$hid}; $clone->{+_IS_CANON} = 1; $CONTEXTS->{$hid} = $clone; weaken($CONTEXTS->{$hid}); my ($ok, $err) = &try($sub, @args); my ($rok, $rerr) = try { $clone->release }; delete $clone->{+_IS_CANON}; if ($old) { $CONTEXTS->{$hid} = $old; weaken($CONTEXTS->{$hid}); } else { delete $CONTEXTS->{$hid}; } die $err unless $ok; die $rerr unless $rok; } sub done_testing { my $self = shift; $self->hub->finalize($self->trace, 1); return; } sub throw { my ($self, $msg) = @_; $self->{+THROWN} = 1; ${$self->{+_ABORTED}}++ if $self->{+_ABORTED}; $self->release if $self->{+_IS_CANON} || $self->{+_IS_SPAWN}; $self->trace->throw($msg); } sub alert { my ($self, $msg) = @_; $self->trace->alert($msg); } sub send_ev2_and_release { my $self = shift; my $out = $self->send_ev2(@_); $self->release; return $out; } sub send_ev2 { my $self = shift; my $e; { local $Carp::CarpLevel = $Carp::CarpLevel + 1; $e = Test2::Event::V2->new( trace => $self->{+TRACE}->snapshot, @_, ); } if ($self->{+_ABORTED}) { my $f = $e->facet_data; ${$self->{+_ABORTED}}++ if $f->{control}->{halt} || defined($f->{control}->{terminate}) || defined($e->terminate); } $self->{+HUB}->send($e); } sub build_ev2 { my $self = shift; local $Carp::CarpLevel = $Carp::CarpLevel + 1; Test2::Event::V2->new( trace => $self->{+TRACE}->snapshot, @_, ); } sub send_event_and_release { my $self = shift; my $out = $self->send_event(@_); $self->release; return $out; } sub send_event { my $self = shift; my $event = shift; my %args = @_; my $pkg = $LOADED{$event} || $self->_parse_event($event); my $e; { local $Carp::CarpLevel = $Carp::CarpLevel + 1; $e = $pkg->new( trace => $self->{+TRACE}->snapshot, %args, ); } if ($self->{+_ABORTED}) { my $f = $e->facet_data; ${$self->{+_ABORTED}}++ if $f->{control}->{halt} || defined($f->{control}->{terminate}) || defined($e->terminate); } $self->{+HUB}->send($e); } sub build_event { my $self = shift; my $event = shift; my %args = @_; my $pkg = $LOADED{$event} || $self->_parse_event($event); local $Carp::CarpLevel = $Carp::CarpLevel + 1; $pkg->new( trace => $self->{+TRACE}->snapshot, %args, ); } sub pass { my $self = shift; my ($name) = @_; my $e = bless( { trace => bless({%{$self->{+TRACE}}}, 'Test2::EventFacet::Trace'), name => $name, }, "Test2::Event::Pass" ); $self->{+HUB}->send($e); return $e; } sub pass_and_release { my $self = shift; my ($name) = @_; my $e = bless( { trace => bless({%{$self->{+TRACE}}}, 'Test2::EventFacet::Trace'), name => $name, }, "Test2::Event::Pass" ); $self->{+HUB}->send($e); $self->release; return 1; } sub fail { my $self = shift; my ($name, @diag) = @_; my $e = bless( { trace => bless({%{$self->{+TRACE}}}, 'Test2::EventFacet::Trace'), name => $name, }, "Test2::Event::Fail" ); for my $msg (@diag) { if (ref($msg) eq 'Test2::EventFacet::Info::Table') { $e->add_info({tag => 'DIAG', debug => 1, $msg->info_args}); } else { $e->add_info({tag => 'DIAG', debug => 1, details => $msg}); } } $self->{+HUB}->send($e); return $e; } sub fail_and_release { my $self = shift; my ($name, @diag) = @_; my $e = bless( { trace => bless({%{$self->{+TRACE}}}, 'Test2::EventFacet::Trace'), name => $name, }, "Test2::Event::Fail" ); for my $msg (@diag) { if (ref($msg) eq 'Test2::EventFacet::Info::Table') { $e->add_info({tag => 'DIAG', debug => 1, $msg->info_args}); } else { $e->add_info({tag => 'DIAG', debug => 1, details => $msg}); } } $self->{+HUB}->send($e); $self->release; return 0; } sub ok { my $self = shift; my ($pass, $name, $on_fail) = @_; my $hub = $self->{+HUB}; my $e = bless { trace => bless( {%{$self->{+TRACE}}}, 'Test2::EventFacet::Trace'), pass => $pass, name => $name, }, 'Test2::Event::Ok'; $e->init; $hub->send($e); return $e if $pass; $self->failure_diag($e); if ($on_fail && @$on_fail) { $self->diag($_) for @$on_fail; } return $e; } sub failure_diag { my $self = shift; my ($e) = @_; # Figure out the debug info, this is typically the file name and line # number, but can also be a custom message. If no trace object is provided # then we have nothing useful to display. my $name = $e->name; my $trace = $e->trace; my $debug = $trace ? $trace->debug : "[No trace info available]"; # Create the initial diagnostics. If the test has a name we put the debug # info on a second line, this behavior is inherited from Test::Builder. my $msg = defined($name) ? qq[Failed test '$name'\n$debug.\n] : qq[Failed test $debug.\n]; $self->diag($msg); } sub skip { my $self = shift; my ($name, $reason, @extra) = @_; $self->send_event( 'Skip', name => $name, reason => $reason, pass => 1, @extra, ); } sub note { my $self = shift; my ($message) = @_; $self->send_event('Note', message => $message); } sub diag { my $self = shift; my ($message) = @_; my $hub = $self->{+HUB}; $self->send_event( 'Diag', message => $message, ); } sub plan { my ($self, $max, $directive, $reason) = @_; $self->send_event('Plan', max => $max, directive => $directive, reason => $reason); } sub bail { my ($self, $reason) = @_; $self->send_event('Bail', reason => $reason); } sub _parse_event { my $self = shift; my $event = shift; my $pkg; if ($event =~ m/^\+(.*)/) { $pkg = $1; } else { $pkg = "Test2::Event::$event"; } unless ($LOADED{$pkg}) { my $file = pkg_to_file($pkg); my ($ok, $err) = try { require $file }; $self->throw("Could not load event module '$pkg': $err") unless $ok; $LOADED{$pkg} = $pkg; } confess "'$pkg' is not a subclass of 'Test2::Event'" unless $pkg->isa('Test2::Event'); $LOADED{$event} = $pkg; return $pkg; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::API::Context - Object to represent a testing context. =head1 DESCRIPTION The context object is the primary interface for authors of testing tools written with L<Test2>. The context object represents the context in which a test takes place (File and Line Number), and provides a quick way to generate events from that context. The context object also takes care of sending events to the correct L<Test2::Hub> instance. =head1 SYNOPSIS In general you will not be creating contexts directly. To obtain a context you should always use C<context()> which is exported by the L<Test2::API> module. use Test2::API qw/context/; sub my_ok { my ($bool, $name) = @_; my $ctx = context(); if ($bool) { $ctx->pass($name); } else { $ctx->fail($name); } $ctx->release; # You MUST do this! return $bool; } Context objects make it easy to wrap other tools that also use context. Once you grab a context, any tool you call before releasing your context will inherit it: sub wrapper { my ($bool, $name) = @_; my $ctx = context(); $ctx->diag("wrapping my_ok"); my $out = my_ok($bool, $name); $ctx->release; # You MUST do this! return $out; } =head1 CRITICAL DETAILS =over 4 =item you MUST always use the context() sub from Test2::API Creating your own context via C<< Test2::API::Context->new() >> will almost never produce a desirable result. Use C<context()> which is exported by L<Test2::API>. There are a handful of cases where a tool author may want to create a new context by hand, which is why the C<new> method exists. Unless you really know what you are doing you should avoid this. =item You MUST always release the context when done with it Releasing the context tells the system you are done with it. This gives it a chance to run any necessary callbacks or cleanup tasks. If you forget to release the context it will try to detect the problem and warn you about it. =item You MUST NOT pass context objects around When you obtain a context object it is made specifically for your tool and any tools nested within. If you pass a context around you run the risk of polluting other tools with incorrect context information. If you are certain that you want a different tool to use the same context you may pass it a snapshot. C<< $ctx->snapshot >> will give you a shallow clone of the context that is safe to pass around or store. =item You MUST NOT store or cache a context for later As long as a context exists for a given hub, all tools that try to get a context will get the existing instance. If you try to store the context you will pollute other tools with incorrect context information. If you are certain that you want to save the context for later, you can use a snapshot. C<< $ctx->snapshot >> will give you a shallow clone of the context that is safe to pass around or store. C<context()> has some mechanisms to protect you if you do cause a context to persist beyond the scope in which it was obtained. In practice you should not rely on these protections, and they are fairly noisy with warnings. =item You SHOULD obtain your context as soon as possible in a given tool You never know what tools you call from within your own tool will need a context. Obtaining the context early ensures that nested tools can find the context you want them to find. =back =head1 METHODS =over 4 =item $ctx->done_testing; Note that testing is finished. If no plan has been set this will generate a Plan event. =item $clone = $ctx->snapshot() This will return a shallow clone of the context. The shallow clone is safe to store for later. =item $ctx->release() This will release the context. This runs cleanup tasks, and several important hooks. It will also restore C<$!>, C<$?>, and C<$@> to what they were when the context was created. B<Note:> If a context is acquired more than once an internal refcount is kept. C<release()> decrements the ref count, none of the other actions of C<release()> will occur unless the refcount hits 0. This means only the last call to C<release()> will reset C<$?>, C<$!>, C<$@>,and run the cleanup tasks. =item $ctx->throw($message) This will throw an exception reporting to the file and line number of the context. This will also release the context for you. =item $ctx->alert($message) This will issue a warning from the file and line number of the context. =item $stack = $ctx->stack() This will return the L<Test2::API::Stack> instance the context used to find the current hub. =item $hub = $ctx->hub() This will return the L<Test2::Hub> instance the context recognizes as the current one to which all events should be sent. =item $dbg = $ctx->trace() This will return the L<Test2::EventFacet::Trace> instance used by the context. =item $ctx->do_in_context(\&code, @args); Sometimes you have a context that is not current, and you want things to use it as the current one. In these cases you can call C<< $ctx->do_in_context(sub { ... }) >>. The codeblock will be run, and anything inside of it that looks for a context will find the one on which the method was called. This B<DOES NOT> affect context on other hubs, only the hub used by the context will be affected. my $ctx = ...; $ctx->do_in_context(sub { my $ctx = context(); # returns the $ctx the sub is called on }); B<Note:> The context will actually be cloned, the clone will be used instead of the original. This allows the thread id, process id, and error variables to be correct without modifying the original context. =item $ctx->restore_error_vars() This will set C<$!>, C<$?>, and C<$@> to what they were when the context was created. There is no localization or anything done here, calling this method will actually set these vars. =item $! = $ctx->errno() The (numeric) value of C<$!> when the context was created. =item $? = $ctx->child_error() The value of C<$?> when the context was created. =item $@ = $ctx->eval_error() The value of C<$@> when the context was created. =back =head2 EVENT PRODUCTION METHODS B<Which one do I use?> The C<pass*> and C<fail*> are optimal if they meet your situation, using one of them will always be the most optimal. That said they are optimal by eliminating many features. Method such as C<ok>, and C<note> are shortcuts for generating common 1-task events based on the old API, however they are forward compatible, and easy to use. If these meet your needs then go ahead and use them, but please check back often for alternatives that may be added. If you want to generate new style events, events that do many things at once, then you want the C<*ev2*> methods. These let you directly specify which facets you wish to use. =over 4 =item $event = $ctx->pass() =item $event = $ctx->pass($name) This will send and return an L<Test2::Event::Pass> event. You may optionally provide a C<$name> for the assertion. The L<Test2::Event::Pass> is a specially crafted and optimized event, using this will help the performance of passing tests. =item $true = $ctx->pass_and_release() =item $true = $ctx->pass_and_release($name) This is a combination of C<pass()> and C<release()>. You can use this if you do not plan to do anything with the context after sending the event. This helps write more clear and compact code. sub shorthand { my ($bool, $name) = @_; my $ctx = context(); return $ctx->pass_and_release($name) if $bool; ... Handle a failure ... } sub longform { my ($bool, $name) = @_; my $ctx = context(); if ($bool) { $ctx->pass($name); $ctx->release; return 1; } ... Handle a failure ... } =item my $event = $ctx->fail() =item my $event = $ctx->fail($name) =item my $event = $ctx->fail($name, @diagnostics) This lets you send an L<Test2::Event::Fail> event. You may optionally provide a C<$name> and C<@diagnostics> messages. Diagnostics messages can be simple strings, data structures, or instances of L<Test2::EventFacet::Info::Table> (which are converted inline into the L<Test2::EventFacet::Info> structure). =item my $false = $ctx->fail_and_release() =item my $false = $ctx->fail_and_release($name) =item my $false = $ctx->fail_and_release($name, @diagnostics) This is a combination of C<fail()> and C<release()>. This can be used to write clearer and shorter code. sub shorthand { my ($bool, $name) = @_; my $ctx = context(); return $ctx->fail_and_release($name) unless $bool; ... Handle a success ... } sub longform { my ($bool, $name) = @_; my $ctx = context(); unless ($bool) { $ctx->pass($name); $ctx->release; return 1; } ... Handle a success ... } =item $event = $ctx->ok($bool, $name) =item $event = $ctx->ok($bool, $name, \@on_fail) B<NOTE:> Use of this method is discouraged in favor of C<pass()> and C<fail()> which produce L<Test2::Event::Pass> and L<Test2::Event::Fail> events. These newer event types are faster and less crufty. This will create an L<Test2::Event::Ok> object for you. If C<$bool> is false then an L<Test2::Event::Diag> event will be sent as well with details about the failure. If you do not want automatic diagnostics you should use the C<send_event()> method directly. The third argument C<\@on_fail>) is an optional set of diagnostics to be sent in the event of a test failure. Unlike with C<fail()> these diagnostics must be plain strings, data structures are not supported. =item $event = $ctx->note($message) Send an L<Test2::Event::Note>. This event prints a message to STDOUT. =item $event = $ctx->diag($message) Send an L<Test2::Event::Diag>. This event prints a message to STDERR. =item $event = $ctx->plan($max) =item $event = $ctx->plan(0, 'SKIP', $reason) This can be used to send an L<Test2::Event::Plan> event. This event usually takes either a number of tests you expect to run. Optionally you can set the expected count to 0 and give the 'SKIP' directive with a reason to cause all tests to be skipped. =item $event = $ctx->skip($name, $reason); Send an L<Test2::Event::Skip> event. =item $event = $ctx->bail($reason) This sends an L<Test2::Event::Bail> event. This event will completely terminate all testing. =item $event = $ctx->send_ev2(%facets) This lets you build and send a V2 event directly from facets. The event is returned after it is sent. This example sends a single assertion, a note (comment for stdout in Test::Builder talk) and sets the plan to 1. my $event = $ctx->send_event( plan => {count => 1}, assert => {pass => 1, details => "A passing assert"}, info => [{tag => 'NOTE', details => "This is a note"}], ); =item $event = $ctx->build_e2(%facets) This is the same as C<send_ev2()>, except it builds and returns the event without sending it. =item $event = $ctx->send_ev2_and_release($Type, %parameters) This is a combination of C<send_ev2()> and C<release()>. sub shorthand { my $ctx = context(); return $ctx->send_ev2_and_release(assert => {pass => 1, details => 'foo'}); } sub longform { my $ctx = context(); my $event = $ctx->send_ev2(assert => {pass => 1, details => 'foo'}); $ctx->release; return $event; } =item $event = $ctx->send_event($Type, %parameters) B<It is better to use send_ev2() in new code.> This lets you build and send an event of any type. The C<$Type> argument should be the event package name with C<Test2::Event::> left off, or a fully qualified package name prefixed with a '+'. The event is returned after it is sent. my $event = $ctx->send_event('Ok', ...); or my $event = $ctx->send_event('+Test2::Event::Ok', ...); =item $event = $ctx->build_event($Type, %parameters) B<It is better to use build_ev2() in new code.> This is the same as C<send_event()>, except it builds and returns the event without sending it. =item $event = $ctx->send_event_and_release($Type, %parameters) B<It is better to use send_ev2_and_release() in new code.> This is a combination of C<send_event()> and C<release()>. sub shorthand { my $ctx = context(); return $ctx->send_event_and_release(Pass => { name => 'foo' }); } sub longform { my $ctx = context(); my $event = $ctx->send_event(Pass => { name => 'foo' }); $ctx->release; return $event; } =back =head1 HOOKS There are 2 types of hooks, init hooks, and release hooks. As the names suggest, these hooks are triggered when contexts are created or released. =head2 INIT HOOKS These are called whenever a context is initialized. That means when a new instance is created. These hooks are B<NOT> called every time something requests a context, just when a new one is created. =head3 GLOBAL This is how you add a global init callback. Global callbacks happen for every context for any hub or stack. Test2::API::test2_add_callback_context_init(sub { my $ctx = shift; ... }); =head3 PER HUB This is how you add an init callback for all contexts created for a given hub. These callbacks will not run for other hubs. $hub->add_context_init(sub { my $ctx = shift; ... }); =head3 PER CONTEXT This is how you specify an init hook that will only run if your call to C<context()> generates a new context. The callback will be ignored if C<context()> is returning an existing context. my $ctx = context(on_init => sub { my $ctx = shift; ... }); =head2 RELEASE HOOKS These are called whenever a context is released. That means when the last reference to the instance is about to be destroyed. These hooks are B<NOT> called every time C<< $ctx->release >> is called. =head3 GLOBAL This is how you add a global release callback. Global callbacks happen for every context for any hub or stack. Test2::API::test2_add_callback_context_release(sub { my $ctx = shift; ... }); =head3 PER HUB This is how you add a release callback for all contexts created for a given hub. These callbacks will not run for other hubs. $hub->add_context_release(sub { my $ctx = shift; ... }); =head3 PER CONTEXT This is how you add release callbacks directly to a context. The callback will B<ALWAYS> be added to the context that gets returned, it does not matter if a new one is generated, or if an existing one is returned. my $ctx = context(on_release => sub { my $ctx = shift; ... }); =head1 THIRD PARTY META-DATA This object consumes L<Test2::Util::ExternalMeta> which provides a consistent way for you to attach meta-data to instances of this class. This is useful for tools, plugins, and other extensions. =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =item Kent Fredric E<lt>kentnl@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! BV3� � 5.34.0/Test2/API/Breakage.pmnu �[��� package Test2::API::Breakage; use strict; use warnings; our $VERSION = '1.302183'; use Test2::Util qw/pkg_to_file/; our @EXPORT_OK = qw{ upgrade_suggested upgrade_required known_broken }; BEGIN { require Exporter; our @ISA = qw(Exporter) } sub upgrade_suggested { return ( 'Test::Exception' => '0.42', 'Test::FITesque' => '0.04', 'Test::Module::Used' => '0.2.5', 'Test::Moose::More' => '0.025', ); } sub upgrade_required { return ( 'Test::Builder::Clutch' => '0.07', 'Test::Dist::VersionSync' => '1.1.4', 'Test::Modern' => '0.012', 'Test::SharedFork' => '0.34', 'Test::Alien' => '0.04', 'Test::UseAllModules' => '0.14', 'Test::More::Prefix' => '0.005', 'Test2::Tools::EventDumper' => 0.000007, 'Test2::Harness' => 0.000013, 'Test::DBIx::Class::Schema' => '1.0.9', 'Test::Clustericious::Cluster' => '0.30', ); } sub known_broken { return ( 'Net::BitTorrent' => '0.052', 'Test::Able' => '0.11', 'Test::Aggregate' => '0.373', 'Test::Flatten' => '0.11', 'Test::Group' => '0.20', 'Test::ParallelSubtest' => '0.05', 'Test::Pretty' => '0.32', 'Test::Wrapper' => '0.3.0', 'Log::Dispatch::Config::TestLog' => '0.02', ); } # Not reportable: # Device::Chip => 0.07 - Tests will not pass, but not broken if already installed, also no fixed version we can upgrade to. sub report { my $class = shift; my ($require) = @_; my %suggest = __PACKAGE__->upgrade_suggested(); my %required = __PACKAGE__->upgrade_required(); my %broken = __PACKAGE__->known_broken(); my @warn; for my $mod (keys %suggest) { my $file = pkg_to_file($mod); next unless $INC{$file} || ($require && eval { require $file; 1 }); my $want = $suggest{$mod}; next if eval { $mod->VERSION($want); 1 }; my $error = $@; chomp $error; push @warn => " * Module '$mod' is outdated, we recommed updating above $want. error was: '$error'; INC is $INC{$file}"; } for my $mod (keys %required) { my $file = pkg_to_file($mod); next unless $INC{$file} || ($require && eval { require $file; 1 }); my $want = $required{$mod}; next if eval { $mod->VERSION($want); 1 }; push @warn => " * Module '$mod' is outdated and known to be broken, please update to $want or higher."; } for my $mod (keys %broken) { my $file = pkg_to_file($mod); next unless $INC{$file} || ($require && eval { require $file; 1 }); my $tested = $broken{$mod}; push @warn => " * Module '$mod' is known to be broken in version $tested and below, newer versions have not been tested. You have: " . $mod->VERSION; } return @warn; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::API::Breakage - What breaks at what version =head1 DESCRIPTION This module provides lists of modules that are broken, or have been broken in the past, when upgrading L<Test::Builder> to use L<Test2>. =head1 FUNCTIONS These can be imported, or called as methods on the class. =over 4 =item %mod_ver = upgrade_suggested() =item %mod_ver = Test2::API::Breakage->upgrade_suggested() This returns key/value pairs. The key is the module name, the value is the version number. If the installed version of the module is at or below the specified one then an upgrade would be a good idea, but not strictly necessary. =item %mod_ver = upgrade_required() =item %mod_ver = Test2::API::Breakage->upgrade_required() This returns key/value pairs. The key is the module name, the value is the version number. If the installed version of the module is at or below the specified one then an upgrade is required for the module to work properly. =item %mod_ver = known_broken() =item %mod_ver = Test2::API::Breakage->known_broken() This returns key/value pairs. The key is the module name, the value is the version number. If the installed version of the module is at or below the specified one then the module will not work. A newer version may work, but is not tested or verified. =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! .4�=P P 5.34.0/Test2/Hub/Subtest.pmnu �[��� package Test2::Hub::Subtest; use strict; use warnings; our $VERSION = '1.302183'; BEGIN { require Test2::Hub; our @ISA = qw(Test2::Hub) } use Test2::Util::HashBase qw/nested exit_code manual_skip_all/; use Test2::Util qw/get_tid/; sub is_subtest { 1 } sub inherit { my $self = shift; my ($from) = @_; $self->SUPER::inherit($from); $self->{+NESTED} = $from->nested + 1; } { # Legacy no warnings 'once'; *ID = \&Test2::Hub::HID; *id = \&Test2::Hub::hid; *set_id = \&Test2::Hub::set_hid; } sub send { my $self = shift; my ($e) = @_; my $out = $self->SUPER::send($e); return $out if $self->{+MANUAL_SKIP_ALL}; my $f = $e->facet_data; my $plan = $f->{plan} or return $out; return $out unless $plan->{skip}; my $trace = $f->{trace} or die "Missing Trace!"; return $out unless $trace->{pid} != $self->pid || $trace->{tid} != $self->tid; no warnings 'exiting'; last T2_SUBTEST_WRAPPER; } sub terminate { my $self = shift; my ($code, $e, $f) = @_; $self->set_exit_code($code); return if $self->{+MANUAL_SKIP_ALL}; $f ||= $e->facet_data; if(my $plan = $f->{plan}) { my $trace = $f->{trace} or die "Missing Trace!"; return if $plan->{skip} && ($trace->{pid} != $$ || $trace->{tid} != get_tid); } no warnings 'exiting'; last T2_SUBTEST_WRAPPER; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::Hub::Subtest - Hub used by subtests =head1 DESCRIPTION Subtests make use of this hub to route events. =head1 TOGGLES =over 4 =item $bool = $hub->manual_skip_all =item $hub->set_manual_skip_all($bool) The default is false. Normally a skip-all plan event will cause a subtest to stop executing. This is accomplished via C<last LABEL> to a label inside the subtest code. Most of the time this is perfectly fine. There are times however where this flow control causes bad things to happen. This toggle lets you turn off the abort logic for the hub. When this is toggled to true B<you> are responsible for ensuring no additional events are generated. =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! ��Tݦ � 5.34.0/Test2/Hub/Interceptor.pmnu �[��� package Test2::Hub::Interceptor; use strict; use warnings; our $VERSION = '1.302183'; use Test2::Hub::Interceptor::Terminator(); BEGIN { require Test2::Hub; our @ISA = qw(Test2::Hub) } use Test2::Util::HashBase; sub init { my $self = shift; $self->SUPER::init(); $self->{+NESTED} = 0; } sub inherit { my $self = shift; my ($from, %params) = @_; $self->{+NESTED} = 0; if ($from->{+IPC} && !$self->{+IPC} && !exists($params{ipc})) { my $ipc = $from->{+IPC}; $self->{+IPC} = $ipc; $ipc->add_hub($self->{+HID}); } if (my $ls = $from->{+_LISTENERS}) { push @{$self->{+_LISTENERS}} => grep { $_->{intercept_inherit} } @$ls; } if (my $pfs = $from->{+_PRE_FILTERS}) { push @{$self->{+_PRE_FILTERS}} => grep { $_->{intercept_inherit} } @$pfs; } if (my $fs = $from->{+_FILTERS}) { push @{$self->{+_FILTERS}} => grep { $_->{intercept_inherit} } @$fs; } } sub clean_inherited { my $self = shift; my %params = @_; my @sets = ( $self->{+_LISTENERS}, $self->{+_PRE_FILTERS}, $self->{+_FILTERS}, ); for my $set (@sets) { next unless $set; for my $i (@$set) { my $cbs = $i->{intercept_inherit} or next; next unless ref($cbs) eq 'HASH'; my $cb = $cbs->{clean} or next; $cb->(%params); } } } sub restore_inherited { my $self = shift; my %params = @_; my @sets = ( $self->{+_FILTERS}, $self->{+_PRE_FILTERS}, $self->{+_LISTENERS}, ); for my $set (@sets) { next unless $set; for my $i (@$set) { my $cbs = $i->{intercept_inherit} or next; next unless ref($cbs) eq 'HASH'; my $cb = $cbs->{restore} or next; $cb->(%params); } } } sub terminate { my $self = shift; my ($code) = @_; eval { no warnings 'exiting'; last T2_SUBTEST_WRAPPER; }; my $err = $@; # Fallback die bless(\$err, 'Test2::Hub::Interceptor::Terminator'); } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::Hub::Interceptor - Hub used by interceptor to grab results. =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! Cd�I� � * 5.34.0/Test2/Hub/Interceptor/Terminator.pmnu �[��� package Test2::Hub::Interceptor::Terminator; use strict; use warnings; our $VERSION = '1.302183'; 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::Hub::Interceptor::Terminator - Exception class used by Test2::Hub::Interceptor =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! ag�o� � 5.34.0/Test2/API.pmnu �[��� package Test2::API; use strict; use warnings; use Test2::Util qw/USE_THREADS/; BEGIN { $ENV{TEST_ACTIVE} ||= 1; $ENV{TEST2_ACTIVE} = 1; } our $VERSION = '1.302183'; my $INST; my $ENDING = 0; sub test2_unset_is_end { $ENDING = 0 } sub test2_get_is_end { $ENDING } sub test2_set_is_end { my $before = $ENDING; ($ENDING) = @_ ? @_ : (1); # Only send the event in a transition from false to true return if $before; return unless $ENDING; return unless $INST; my $stack = $INST->stack or return; my $root = $stack->root or return; return unless $root->count; return unless $$ == $INST->pid; return unless get_tid() == $INST->tid; my $trace = Test2::EventFacet::Trace->new( frame => [__PACKAGE__, __FILE__, __LINE__, __PACKAGE__ . '::test2_set_is_end'], ); my $ctx = Test2::API::Context->new( trace => $trace, hub => $root, ); $ctx->send_ev2(control => { phase => 'END', details => 'Transition to END phase' }); 1; } use Test2::API::Instance(\$INST); # Set the exit status END { test2_set_is_end(); # See gh #16 $INST->set_exit(); } sub CLONE { my $init = test2_init_done(); my $load = test2_load_done(); return if $init && $load; require Carp; Carp::croak "Test2 must be fully loaded before you start a new thread!\n"; } # See gh #16 { no warnings; INIT { eval 'END { test2_set_is_end() }; 1' or die $@ } } BEGIN { no warnings 'once'; if($] ge '5.014' || $ENV{T2_CHECK_DEPTH} || $Test2::API::DO_DEPTH_CHECK) { *DO_DEPTH_CHECK = sub() { 1 }; } else { *DO_DEPTH_CHECK = sub() { 0 }; } } use Test2::EventFacet::Trace(); use Test2::Util::Trace(); # Legacy use Test2::Hub::Subtest(); use Test2::Hub::Interceptor(); use Test2::Hub::Interceptor::Terminator(); use Test2::Event::Ok(); use Test2::Event::Diag(); use Test2::Event::Note(); use Test2::Event::Plan(); use Test2::Event::Bail(); use Test2::Event::Exception(); use Test2::Event::Waiting(); use Test2::Event::Skip(); use Test2::Event::Subtest(); use Carp qw/carp croak confess/; use Scalar::Util qw/blessed weaken/; use Test2::Util qw/get_tid clone_io pkg_to_file gen_uid/; our @EXPORT_OK = qw{ context release context_do no_context intercept intercept_deep run_subtest test2_init_done test2_load_done test2_load test2_start_preload test2_stop_preload test2_in_preload test2_is_testing_done test2_set_is_end test2_unset_is_end test2_get_is_end test2_pid test2_tid test2_stack test2_no_wait test2_ipc_wait_enable test2_ipc_wait_disable test2_ipc_wait_enabled test2_add_uuid_via test2_add_callback_testing_done test2_add_callback_context_aquire test2_add_callback_context_acquire test2_add_callback_context_init test2_add_callback_context_release test2_add_callback_exit test2_add_callback_post_load test2_add_callback_pre_subtest test2_list_context_aquire_callbacks test2_list_context_acquire_callbacks test2_list_context_init_callbacks test2_list_context_release_callbacks test2_list_exit_callbacks test2_list_post_load_callbacks test2_list_pre_subtest_callbacks test2_ipc test2_has_ipc test2_ipc_disable test2_ipc_disabled test2_ipc_drivers test2_ipc_add_driver test2_ipc_polling test2_ipc_disable_polling test2_ipc_enable_polling test2_ipc_get_pending test2_ipc_set_pending test2_ipc_get_timeout test2_ipc_set_timeout test2_formatter test2_formatters test2_formatter_add test2_formatter_set test2_stdout test2_stderr test2_reset_io }; BEGIN { require Exporter; our @ISA = qw(Exporter) } my $STACK = $INST->stack; my $CONTEXTS = $INST->contexts; my $INIT_CBS = $INST->context_init_callbacks; my $ACQUIRE_CBS = $INST->context_acquire_callbacks; my $STDOUT = clone_io(\*STDOUT); my $STDERR = clone_io(\*STDERR); sub test2_stdout { $STDOUT ||= clone_io(\*STDOUT) } sub test2_stderr { $STDERR ||= clone_io(\*STDERR) } sub test2_post_preload_reset { test2_reset_io(); $INST->post_preload_reset; } sub test2_reset_io { $STDOUT = clone_io(\*STDOUT); $STDERR = clone_io(\*STDERR); } sub test2_init_done { $INST->finalized } sub test2_load_done { $INST->loaded } sub test2_load { $INST->load } sub test2_start_preload { $ENV{T2_IN_PRELOAD} = 1; $INST->start_preload } sub test2_stop_preload { $ENV{T2_IN_PRELOAD} = 0; $INST->stop_preload } sub test2_in_preload { $INST->preload } sub test2_pid { $INST->pid } sub test2_tid { $INST->tid } sub test2_stack { $INST->stack } sub test2_ipc_wait_enable { $INST->set_no_wait(0) } sub test2_ipc_wait_disable { $INST->set_no_wait(1) } sub test2_ipc_wait_enabled { !$INST->no_wait } sub test2_is_testing_done { # No instance? VERY DONE! return 1 unless $INST; # No stack? tests must be done, it is created pretty early my $stack = $INST->stack or return 1; # Nothing on the stack, no root hub yet, likely have not started testing return 0 unless @$stack; # Stack has a slot for the root hub (see above) but it is undefined, likely # garbage collected, test is done my $root_hub = $stack->[0] or return 1; # If the root hub is ended than testing is done. return 1 if $root_hub->ended; # Looks like we are still testing! return 0; } sub test2_no_wait { $INST->set_no_wait(@_) if @_; $INST->no_wait; } sub test2_add_callback_testing_done { my $cb = shift; test2_add_callback_post_load(sub { my $stack = test2_stack(); $stack->top; # Insure we have a hub my ($hub) = Test2::API::test2_stack->all; $hub->set_active(1); $hub->follow_up($cb); }); return; } sub test2_add_callback_context_acquire { $INST->add_context_acquire_callback(@_) } sub test2_add_callback_context_aquire { $INST->add_context_acquire_callback(@_) } sub test2_add_callback_context_init { $INST->add_context_init_callback(@_) } sub test2_add_callback_context_release { $INST->add_context_release_callback(@_) } sub test2_add_callback_exit { $INST->add_exit_callback(@_) } sub test2_add_callback_post_load { $INST->add_post_load_callback(@_) } sub test2_add_callback_pre_subtest { $INST->add_pre_subtest_callback(@_) } sub test2_list_context_aquire_callbacks { @{$INST->context_acquire_callbacks} } sub test2_list_context_acquire_callbacks { @{$INST->context_acquire_callbacks} } sub test2_list_context_init_callbacks { @{$INST->context_init_callbacks} } sub test2_list_context_release_callbacks { @{$INST->context_release_callbacks} } sub test2_list_exit_callbacks { @{$INST->exit_callbacks} } sub test2_list_post_load_callbacks { @{$INST->post_load_callbacks} } sub test2_list_pre_subtest_callbacks { @{$INST->pre_subtest_callbacks} } sub test2_add_uuid_via { $INST->set_add_uuid_via(@_) if @_; $INST->add_uuid_via(); } sub test2_ipc { $INST->ipc } sub test2_has_ipc { $INST->has_ipc } sub test2_ipc_disable { $INST->ipc_disable } sub test2_ipc_disabled { $INST->ipc_disabled } sub test2_ipc_add_driver { $INST->add_ipc_driver(@_) } sub test2_ipc_drivers { @{$INST->ipc_drivers} } sub test2_ipc_polling { $INST->ipc_polling } sub test2_ipc_enable_polling { $INST->enable_ipc_polling } sub test2_ipc_disable_polling { $INST->disable_ipc_polling } sub test2_ipc_get_pending { $INST->get_ipc_pending } sub test2_ipc_set_pending { $INST->set_ipc_pending(@_) } sub test2_ipc_set_timeout { $INST->set_ipc_timeout(@_) } sub test2_ipc_get_timeout { $INST->ipc_timeout() } sub test2_ipc_enable_shm { 0 } sub test2_formatter { if ($ENV{T2_FORMATTER} && $ENV{T2_FORMATTER} =~ m/^(\+)?(.*)$/) { my $formatter = $1 ? $2 : "Test2::Formatter::$2"; my $file = pkg_to_file($formatter); require $file; return $formatter; } return $INST->formatter; } sub test2_formatters { @{$INST->formatters} } sub test2_formatter_add { $INST->add_formatter(@_) } sub test2_formatter_set { my ($formatter) = @_; croak "No formatter specified" unless $formatter; croak "Global Formatter already set" if $INST->formatter_set; $INST->set_formatter($formatter); } # Private, for use in Test2::API::Context sub _contexts_ref { $INST->contexts } sub _context_acquire_callbacks_ref { $INST->context_acquire_callbacks } sub _context_init_callbacks_ref { $INST->context_init_callbacks } sub _context_release_callbacks_ref { $INST->context_release_callbacks } sub _add_uuid_via_ref { \($INST->{Test2::API::Instance::ADD_UUID_VIA()}) } # Private, for use in Test2::IPC sub _set_ipc { $INST->set_ipc(@_) } sub context_do(&;@) { my $code = shift; my @args = @_; my $ctx = context(level => 1); my $want = wantarray; my @out; my $ok = eval { $want ? @out = $code->($ctx, @args) : defined($want) ? $out[0] = $code->($ctx, @args) : $code->($ctx, @args) ; 1; }; my $err = $@; $ctx->release; die $err unless $ok; return @out if $want; return $out[0] if defined $want; return; } sub no_context(&;$) { my ($code, $hid) = @_; $hid ||= $STACK->top->hid; my $ctx = $CONTEXTS->{$hid}; delete $CONTEXTS->{$hid}; my $ok = eval { $code->(); 1 }; my $err = $@; $CONTEXTS->{$hid} = $ctx; weaken($CONTEXTS->{$hid}); die $err unless $ok; return; }; my $UUID_VIA = _add_uuid_via_ref(); sub context { # We need to grab these before anything else to ensure they are not # changed. my ($errno, $eval_error, $child_error, $extended_error) = (0 + $!, $@, $?, $^E); my %params = (level => 0, wrapped => 0, @_); # If something is getting a context then the sync system needs to be # considered loaded... $INST->load unless $INST->{loaded}; croak "context() called, but return value is ignored" unless defined wantarray; my $stack = $params{stack} || $STACK; my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); # Catch an edge case where we try to get context after the root hub has # been garbage collected resulting in a stack that has a single undef # hub if (!$hub && !exists($params{hub}) && @$stack) { my $msg = Carp::longmess("Attempt to get Test2 context after testing has completed (did you attempt a testing event after done_testing?)"); # The error message is usually masked by the global destruction, so we have to print to STDER print STDERR $msg; # Make sure this is a failure, we are probably already in END, so set $? to change the exit code $? = 1; # Now we actually die to interrupt the program flow and avoid undefined his warnings die $msg; } my $hid = $hub->{hid}; my $current = $CONTEXTS->{$hid}; $_->(\%params) for @$ACQUIRE_CBS; map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; # This is for https://github.com/Test-More/test-more/issues/16 # and https://rt.perl.org/Public/Bug/Display.html?id=127774 my $phase = ${^GLOBAL_PHASE} || 'NA'; my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; my $level = 1 + $params{level}; my ($pkg, $file, $line, $sub, @other) = $end_phase ? caller(0) : caller($level); unless ($pkg || $end_phase) { confess "Could not find context at depth $level" unless $params{fudge}; ($pkg, $file, $line, $sub, @other) = caller(--$level) while ($level >= 0 && !$pkg); } my $depth = $level; $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); $depth -= $params{wrapped}; my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; if ($current && $params{on_release} && $depth_ok) { $current->{_on_release} ||= []; push @{$current->{_on_release}} => $params{on_release}; } # I know this is ugly.... ($!, $@, $?, $^E) = ($errno, $eval_error, $child_error, $extended_error) and return bless( { %$current, _is_canon => undef, errno => $errno, eval_error => $eval_error, child_error => $child_error, _is_spawn => [$pkg, $file, $line, $sub], }, 'Test2::API::Context' ) if $current && $depth_ok; # Handle error condition of bad level if ($current) { unless (${$current->{_aborted}}) { _canon_error($current, [$pkg, $file, $line, $sub, $depth]) unless $current->{_is_canon}; _depth_error($current, [$pkg, $file, $line, $sub, $depth]) unless $depth_ok; } $current->release if $current->{_is_canon}; delete $CONTEXTS->{$hid}; } # Directly bless the object here, calling new is a noticeable performance # hit with how often this needs to be called. my $trace = bless( { frame => [$pkg, $file, $line, $sub], pid => $$, tid => get_tid(), cid => gen_uid(), hid => $hid, nested => $hub->{nested}, buffered => $hub->{buffered}, full_caller => [$pkg, $file, $line, $sub, @other], $$UUID_VIA ? ( huuid => $hub->{uuid}, uuid => ${$UUID_VIA}->('context'), ) : (), }, 'Test2::EventFacet::Trace' ); # Directly bless the object here, calling new is a noticeable performance # hit with how often this needs to be called. my $aborted = 0; $current = bless( { _aborted => \$aborted, stack => $stack, hub => $hub, trace => $trace, _is_canon => 1, _depth => $depth, errno => $errno, eval_error => $eval_error, child_error => $child_error, $params{on_release} ? (_on_release => [$params{on_release}]) : (), }, 'Test2::API::Context' ); $CONTEXTS->{$hid} = $current; weaken($CONTEXTS->{$hid}); $_->($current) for @$INIT_CBS; map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; $params{on_init}->($current) if $params{on_init}; ($!, $@, $?, $^E) = ($errno, $eval_error, $child_error, $extended_error); return $current; } sub _depth_error { _existing_error(@_, <<" EOT"); context() was called to retrieve an existing context, however the existing context was created in a stack frame at the same, or deeper level. This usually means that a tool failed to release the context when it was finished. EOT } sub _canon_error { _existing_error(@_, <<" EOT"); context() was called to retrieve an existing context, however the existing context has an invalid internal state (!_canon_count). This should not normally happen unless something is mucking about with internals... EOT } sub _existing_error { my ($ctx, $details, $msg) = @_; my ($pkg, $file, $line, $sub, $depth) = @$details; my $oldframe = $ctx->{trace}->frame; my $olddepth = $ctx->{_depth}; # Older versions of Carp do not export longmess() function, so it needs to be called with package name my $mess = Carp::longmess(); warn <<" EOT"; $msg Old context details: File: $oldframe->[1] Line: $oldframe->[2] Tool: $oldframe->[3] Depth: $olddepth New context details: File: $file Line: $line Tool: $sub Depth: $depth Trace: $mess Removing the old context and creating a new one... EOT } sub release($;$) { $_[0]->release; return $_[1]; } sub intercept(&) { my $code = shift; my $ctx = context(); my $events = _intercept($code, deep => 0); $ctx->release; return $events; } sub intercept_deep(&) { my $code = shift; my $ctx = context(); my $events = _intercept($code, deep => 1); $ctx->release; return $events; } sub _intercept { my $code = shift; my %params = @_; my $ctx = context(); my $ipc; if (my $global_ipc = test2_ipc()) { my $driver = blessed($global_ipc); $ipc = $driver->new; } my $hub = Test2::Hub::Interceptor->new( ipc => $ipc, no_ending => 1, ); my @events; $hub->listen(sub { push @events => $_[1] }, inherit => $params{deep}); $ctx->stack->top; # Make sure there is a top hub before we begin. $ctx->stack->push($hub); my $trace = $ctx->trace; my $state = {}; $hub->clean_inherited(trace => $trace, state => $state); my ($ok, $err) = (1, undef); T2_SUBTEST_WRAPPER: { # Do not use 'try' cause it localizes __DIE__ $ok = eval { $code->(hub => $hub, context => $ctx->snapshot); 1 }; $err = $@; # They might have done 'BEGIN { skip_all => "whatever" }' if (!$ok && $err =~ m/Label not found for "last T2_SUBTEST_WRAPPER"/ || (blessed($err) && $err->isa('Test2::Hub::Interceptor::Terminator'))) { $ok = 1; $err = undef; } } $hub->cull; $ctx->stack->pop($hub); $hub->restore_inherited(trace => $trace, state => $state); $ctx->release; die $err unless $ok; $hub->finalize($trace, 1) if $ok && !$hub->no_ending && !$hub->ended; require Test2::API::InterceptResult; return Test2::API::InterceptResult->new_from_ref(\@events); } sub run_subtest { my ($name, $code, $params, @args) = @_; $_->($name,$code,@args) for Test2::API::test2_list_pre_subtest_callbacks(); $params = {buffered => $params} unless ref $params; my $inherit_trace = delete $params->{inherit_trace}; my $ctx = context(); my $parent = $ctx->hub; # If a parent is buffered then the child must be as well. my $buffered = $params->{buffered} || $parent->{buffered}; $ctx->note($name) unless $buffered; my $stack = $ctx->stack || $STACK; my $hub = $stack->new_hub( class => 'Test2::Hub::Subtest', %$params, buffered => $buffered, ); my @events; $hub->listen(sub { push @events => $_[1] }); if ($buffered) { if (my $format = $hub->format) { my $hide = $format->can('hide_buffered') ? $format->hide_buffered : 1; $hub->format(undef) if $hide; } } if ($inherit_trace) { my $orig = $code; $code = sub { my $base_trace = $ctx->trace; my $trace = $base_trace->snapshot(nested => 1 + $base_trace->nested); my $st_ctx = Test2::API::Context->new( trace => $trace, hub => $hub, ); $st_ctx->do_in_context($orig, @args); }; } my ($ok, $err, $finished); T2_SUBTEST_WRAPPER: { # Do not use 'try' cause it localizes __DIE__ $ok = eval { $code->(@args); 1 }; $err = $@; # They might have done 'BEGIN { skip_all => "whatever" }' if (!$ok && $err =~ m/Label not found for "last T2_SUBTEST_WRAPPER"/ || (blessed($err) && blessed($err) eq 'Test::Builder::Exception')) { $ok = undef; $err = undef; } else { $finished = 1; } } if ($params->{no_fork}) { if ($$ != $ctx->trace->pid) { warn $ok ? "Forked inside subtest, but subtest never finished!\n" : $err; exit 255; } if (get_tid() != $ctx->trace->tid) { warn $ok ? "Started new thread inside subtest, but thread never finished!\n" : $err; exit 255; } } elsif (!$parent->is_local && !$parent->ipc) { warn $ok ? "A new process or thread was started inside subtest, but IPC is not enabled!\n" : $err; exit 255; } $stack->pop($hub); my $trace = $ctx->trace; my $bailed = $hub->bailed_out; if (!$finished) { if ($bailed && !$buffered) { $ctx->bail($bailed->reason); } elsif ($bailed && $buffered) { $ok = 1; } else { my $code = $hub->exit_code; $ok = !$code; $err = "Subtest ended with exit code $code" if $code; } } $hub->finalize($trace->snapshot(huuid => $hub->uuid, hid => $hub->hid, nested => $hub->nested, buffered => $buffered), 1) if $ok && !$hub->no_ending && !$hub->ended; my $pass = $ok && $hub->is_passing; my $e = $ctx->build_event( 'Subtest', pass => $pass, name => $name, subtest_id => $hub->id, subtest_uuid => $hub->uuid, buffered => $buffered, subevents => \@events, ); my $plan_ok = $hub->check_plan; $ctx->hub->send($e); $ctx->failure_diag($e) unless $e->pass; $ctx->diag("Caught exception in subtest: $err") unless $ok; $ctx->diag("Bad subtest plan, expected " . $hub->plan . " but ran " . $hub->count) if defined($plan_ok) && !$plan_ok; $ctx->bail($bailed->reason) if $bailed && $buffered; $ctx->release; return $pass; } # There is a use-cycle between API and API/Context. Context needs to use some # API functions as the package is compiling. Test2::API::context() needs # Test2::API::Context to be loaded, but we cannot 'require' the module there as # it causes a very noticeable performance impact with how often context() is # called. require Test2::API::Context; 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::API - Primary interface for writing Test2 based testing tools. =head1 ***INTERNALS NOTE*** B<The internals of this package are subject to change at any time!> The public methods provided will not change in backwards-incompatible ways (once there is a stable release), but the underlying implementation details might. B<Do not break encapsulation here!> Currently the implementation is to create a single instance of the L<Test2::API::Instance> Object. All class methods defer to the single instance. There is no public access to the singleton, and that is intentional. The class methods provided by this package provide the only functionality publicly exposed. This is done primarily to avoid the problems Test::Builder had by exposing its singleton. We do not want anyone to replace this singleton, rebless it, or directly muck with its internals. If you need to do something and cannot because of the restrictions placed here, then please report it as an issue. If possible, we will create a way for you to implement your functionality without exposing things that should not be exposed. =head1 DESCRIPTION This package exports all the functions necessary to write and/or verify testing tools. Using these building blocks you can begin writing test tools very quickly. You are also provided with tools that help you to test the tools you write. =head1 SYNOPSIS =head2 WRITING A TOOL The C<context()> method is your primary interface into the Test2 framework. package My::Ok; use Test2::API qw/context/; our @EXPORT = qw/my_ok/; use base 'Exporter'; # Just like ok() from Test::More sub my_ok($;$) { my ($bool, $name) = @_; my $ctx = context(); # Get a context $ctx->ok($bool, $name); $ctx->release; # Release the context return $bool; } See L<Test2::API::Context> for a list of methods available on the context object. =head2 TESTING YOUR TOOLS The C<intercept { ... }> tool lets you temporarily intercept all events generated by the test system: use Test2::API qw/intercept/; use My::Ok qw/my_ok/; my $events = intercept { # These events are not displayed my_ok(1, "pass"); my_ok(0, "fail"); }; As of version 1.302178 this now returns an arrayref that is also an instance of L<Test2::API::InterceptResult>. See the L<Test2::API::InterceptResult> documentation for details on how to best use it. =head2 OTHER API FUNCTIONS use Test2::API qw{ test2_init_done test2_stack test2_set_is_end test2_get_is_end test2_ipc test2_formatter_set test2_formatter test2_is_testing_done }; my $init = test2_init_done(); my $stack = test2_stack(); my $ipc = test2_ipc(); test2_formatter_set($FORMATTER) my $formatter = test2_formatter(); ... And others ... =head1 MAIN API EXPORTS All exports are optional. You must specify subs to import. use Test2::API qw/context intercept run_subtest/; This is the list of exports that are most commonly needed. If you are simply writing a tool, then this is probably all you need. If you need something and you cannot find it here, then you can also look at L</OTHER API EXPORTS>. These exports lack the 'test2_' prefix because of how important/common they are. Exports in the L</OTHER API EXPORTS> section have the 'test2_' prefix to ensure they stand out. =head2 context(...) Usage: =over 4 =item $ctx = context() =item $ctx = context(%params) =back The C<context()> function will always return the current context. If there is already a context active, it will be returned. If there is not an active context, one will be generated. When a context is generated it will default to using the file and line number where the currently running sub was called from. Please see L<Test2::API::Context/"CRITICAL DETAILS"> for important rules about what you can and cannot do with a context once it is obtained. B<Note> This function will throw an exception if you ignore the context object it returns. B<Note> On perls 5.14+ a depth check is used to insure there are no context leaks. This cannot be safely done on older perls due to L<https://rt.perl.org/Public/Bug/Display.html?id=127774> You can forcefully enable it either by setting C<$ENV{T2_CHECK_DEPTH} = 1> or C<$Test2::API::DO_DEPTH_CHECK = 1> B<BEFORE> loading L<Test2::API>. =head3 OPTIONAL PARAMETERS All parameters to C<context> are optional. =over 4 =item level => $int If you must obtain a context in a sub deeper than your entry point you can use this to tell it how many EXTRA stack frames to look back. If this option is not provided the default of C<0> is used. sub third_party_tool { my $sub = shift; ... # Does not obtain a context $sub->(); ... } third_party_tool(sub { my $ctx = context(level => 1); ... $ctx->release; }); =item wrapped => $int Use this if you need to write your own tool that wraps a call to C<context()> with the intent that it should return a context object. sub my_context { my %params = ( wrapped => 0, @_ ); $params{wrapped}++; my $ctx = context(%params); ... return $ctx; } sub my_tool { my $ctx = my_context(); ... $ctx->release; } If you do not do this, then tools you call that also check for a context will notice that the context they grabbed was created at the same stack depth, which will trigger protective measures that warn you and destroy the existing context. =item stack => $stack Normally C<context()> looks at the global hub stack. If you are maintaining your own L<Test2::API::Stack> instance you may pass it in to be used instead of the global one. =item hub => $hub Use this parameter if you want to obtain the context for a specific hub instead of whatever one happens to be at the top of the stack. =item on_init => sub { ... } This lets you provide a callback sub that will be called B<ONLY> if your call to C<context()> generated a new context. The callback B<WILL NOT> be called if C<context()> is returning an existing context. The only argument passed into the callback will be the context object itself. sub foo { my $ctx = context(on_init => sub { 'will run' }); my $inner = sub { # This callback is not run since we are getting the existing # context from our parent sub. my $ctx = context(on_init => sub { 'will NOT run' }); $ctx->release; } $inner->(); $ctx->release; } =item on_release => sub { ... } This lets you provide a callback sub that will be called when the context instance is released. This callback will be added to the returned context even if an existing context is returned. If multiple calls to context add callbacks, then all will be called in reverse order when the context is finally released. sub foo { my $ctx = context(on_release => sub { 'will run second' }); my $inner = sub { my $ctx = context(on_release => sub { 'will run first' }); # Neither callback runs on this release $ctx->release; } $inner->(); # Both callbacks run here. $ctx->release; } =back =head2 release($;$) Usage: =over 4 =item release $ctx; =item release $ctx, ...; =back This is intended as a shortcut that lets you release your context and return a value in one statement. This function will get your context, and an optional return value. It will release your context, then return your value. Scalar context is always assumed. sub tool { my $ctx = context(); ... return release $ctx, 1; } This tool is most useful when you want to return the value you get from calling a function that needs to see the current context: my $ctx = context(); my $out = some_tool(...); $ctx->release; return $out; We can combine the last 3 lines of the above like so: my $ctx = context(); release $ctx, some_tool(...); =head2 context_do(&;@) Usage: sub my_tool { context_do { my $ctx = shift; my (@args) = @_; $ctx->ok(1, "pass"); ... # No need to call $ctx->release, done for you on scope exit. } @_; } Using this inside your test tool takes care of a lot of boilerplate for you. It will ensure a context is acquired. It will capture and rethrow any exception. It will insure the context is released when you are done. It preserves the subroutine call context (array, scalar, void). This is the safest way to write a test tool. The only two downsides to this are a slight performance decrease, and some extra indentation in your source. If the indentation is a problem for you then you can take a peek at the next section. =head2 no_context(&;$) Usage: =over 4 =item no_context { ... }; =item no_context { ... } $hid; sub my_tool(&) { my $code = shift; my $ctx = context(); ... no_context { # Things in here will not see our current context, they get a new # one. $code->(); }; ... $ctx->release; }; =back This tool will hide a context for the provided block of code. This means any tools run inside the block will get a completely new context if they acquire one. The new context will be inherited by tools nested below the one that acquired it. This will normally hide the current context for the top hub. If you need to hide the context for a different hub you can pass in the optional C<$hid> parameter. =head2 intercept(&) Usage: my $events = intercept { ok(1, "pass"); ok(0, "fail"); ... }; This function takes a codeblock as its only argument, and it has a prototype. It will execute the codeblock, intercepting any generated events in the process. It will return an array reference with all the generated event objects. All events should be subclasses of L<Test2::Event>. As of version 1.302178 the events array that is returned is blssed as an L<Test2::API::InterceptResult> instance. L<Test2::API::InterceptResult> Provides a helpful interface for filtering and/or inspecting the events list overall, or individual events within the list. This is intended to help you test your test code. This is not intended for people simply writing tests. =head2 run_subtest(...) Usage: run_subtest($NAME, \&CODE, $BUFFERED, @ARGS) # or run_subtest($NAME, \&CODE, \%PARAMS, @ARGS) This will run the provided codeblock with the args in C<@args>. This codeblock will be run as a subtest. A subtest is an isolated test state that is condensed into a single L<Test2::Event::Subtest> event, which contains all events generated inside the subtest. =head3 ARGUMENTS: =over 4 =item $NAME The name of the subtest. =item \&CODE The code to run inside the subtest. =item $BUFFERED or \%PARAMS If this is a simple scalar then it will be treated as a boolean for the 'buffered' setting. If this is a hash reference then it will be used as a parameters hash. The param hash will be used for hub construction (with the specified keys removed). Keys that are removed and used by run_subtest: =over 4 =item 'buffered' => $bool Toggle buffered status. =item 'inherit_trace' => $bool Normally the subtest hub is pushed and the sub is allowed to generate its own root context for the hub. When this setting is turned on a root context will be created for the hub that shares the same trace as the current context. Set this to true if your tool is producing subtests without user-specified subs. =item 'no_fork' => $bool Defaults to off. Normally forking inside a subtest will actually fork the subtest, resulting in 2 final subtest events. This parameter will turn off that behavior, only the original process/thread will return a final subtest event. =back =item @ARGS Any extra arguments you want passed into the subtest code. =back =head3 BUFFERED VS UNBUFFERED (OR STREAMED) Normally all events inside and outside a subtest are sent to the formatter immediately by the hub. Sometimes it is desirable to hold off sending events within a subtest until the subtest is complete. This usually depends on the formatter being used. =over 4 =item Things not effected by this flag In both cases events are generated and stored in an array. This array is eventually used to populate the C<subevents> attribute on the L<Test2::Event::Subtest> event that is generated at the end of the subtest. This flag has no effect on this part, it always happens. At the end of the subtest, the final L<Test2::Event::Subtest> event is sent to the formatter. =item Things that are effected by this flag The C<buffered> attribute of the L<Test2::Event::Subtest> event will be set to the value of this flag. This means any formatter, listener, etc which looks at the event will know if it was buffered. =item Things that are formatter dependant Events within a buffered subtest may or may not be sent to the formatter as they happen. If a formatter fails to specify then the default is to B<NOT SEND> the events as they are generated, instead the formatter can pull them from the C<subevents> attribute. A formatter can specify by implementing the C<hide_buffered()> method. If this method returns true then events generated inside a buffered subtest will not be sent independently of the final subtest event. =back An example of how this is used is the L<Test2::Formatter::TAP> formatter. For unbuffered subtests the events are rendered as they are generated. At the end of the subtest, the final subtest event is rendered, but the C<subevents> attribute is ignored. For buffered subtests the opposite occurs, the events are NOT rendered as they are generated, instead the C<subevents> attribute is used to render them all at once. This is useful when running subtests tests in parallel, since without it the output from subtests would be interleaved together. =head1 OTHER API EXPORTS Exports in this section are not commonly needed. These all have the 'test2_' prefix to help ensure they stand out. You should look at the L</MAIN API EXPORTS> section before looking here. This section is one where "Great power comes with great responsibility". It is possible to break things badly if you are not careful with these. All exports are optional. You need to list which ones you want at import time: use Test2::API qw/test2_init_done .../; =head2 STATUS AND INITIALIZATION STATE These provide access to internal state and object instances. =over 4 =item $bool = test2_init_done() This will return true if the stack and IPC instances have already been initialized. It will return false if they have not. Init happens as late as possible. It happens as soon as a tool requests the IPC instance, the formatter, or the stack. =item $bool = test2_load_done() This will simply return the boolean value of the loaded flag. If Test2 has finished loading this will be true, otherwise false. Loading is considered complete the first time a tool requests a context. =item test2_set_is_end() =item test2_set_is_end($bool) This is used to toggle Test2's belief that the END phase has already started. With no arguments this will set it to true. With arguments it will set it to the first argument's value. This is used to prevent the use of C<caller()> in END blocks which can cause segfaults. This is only necessary in some persistent environments that may have multiple END phases. =item $bool = test2_get_is_end() Check if Test2 believes it is the END phase. =item $stack = test2_stack() This will return the global L<Test2::API::Stack> instance. If this has not yet been initialized it will be initialized now. =item $bool = test2_is_testing_done() This will return true if testing is complete and no other events should be sent. This is useful in things like warning handlers where you might want to turn warnings into events, but need them to start acting like normal warnings when testing is done. $SIG{__WARN__} = sub { my ($warning) = @_; if (test2_is_testing_done()) { warn @_; } else { my $ctx = context(); ... $ctx->release } } =item test2_ipc_disable Disable IPC. =item $bool = test2_ipc_diabled Check if IPC is disabled. =item test2_ipc_wait_enable() =item test2_ipc_wait_disable() =item $bool = test2_ipc_wait_enabled() These can be used to turn IPC waiting on and off, or check the current value of the flag. Waiting is turned on by default. Waiting will cause the parent process/thread to wait until all child processes and threads are finished before exiting. You will almost never want to turn this off. =item $bool = test2_no_wait() =item test2_no_wait($bool) B<DISCOURAGED>: This is a confusing interface, it is better to use C<test2_ipc_wait_enable()>, C<test2_ipc_wait_disable()> and C<test2_ipc_wait_enabled()>. This can be used to get/set the no_wait status. Waiting is turned on by default. Waiting will cause the parent process/thread to wait until all child processes and threads are finished before exiting. You will almost never want to turn this off. =item $fh = test2_stdout() =item $fh = test2_stderr() These functions return the filehandles that test output should be written to. They are primarily useful when writing a custom formatter and code that turns events into actual output (TAP, etc.). They will return a dupe of the original filehandles that formatted output can be sent to regardless of whatever state the currently running test may have left STDOUT and STDERR in. =item test2_reset_io() Re-dupe the internal filehandles returned by C<test2_stdout()> and C<test2_stderr()> from the current STDOUT and STDERR. You shouldn't need to do this except in very peculiar situations (for example, you're testing a new formatter and you need control over where the formatter is sending its output.) =back =head2 BEHAVIOR HOOKS These are hooks that allow you to add custom behavior to actions taken by Test2 and tools built on top of it. =over 4 =item test2_add_callback_exit(sub { ... }) This can be used to add a callback that is called after all testing is done. This is too late to add additional results, the main use of this callback is to set the exit code. test2_add_callback_exit( sub { my ($context, $exit, \$new_exit) = @_; ... } ); The C<$context> passed in will be an instance of L<Test2::API::Context>. The C<$exit> argument will be the original exit code before anything modified it. C<$$new_exit> is a reference to the new exit code. You may modify this to change the exit code. Please note that C<$$new_exit> may already be different from C<$exit> =item test2_add_callback_post_load(sub { ... }) Add a callback that will be called when Test2 is finished loading. This means the callback will be run once, the first time a context is obtained. If Test2 has already finished loading then the callback will be run immediately. =item test2_add_callback_testing_done(sub { ... }) This adds your coderef as a follow-up to the root hub after Test2 is finished loading. This is essentially a helper to do the following: test2_add_callback_post_load(sub { my $stack = test2_stack(); $stack->top; # Insure we have a hub my ($hub) = Test2::API::test2_stack->all; $hub->set_active(1); $hub->follow_up(sub { ... }); # <-- Your coderef here }); =item test2_add_callback_context_acquire(sub { ... }) Add a callback that will be called every time someone tries to acquire a context. This will be called on EVERY call to C<context()>. It gets a single argument, a reference to the hash of parameters being used the construct the context. This is your chance to change the parameters by directly altering the hash. test2_add_callback_context_acquire(sub { my $params = shift; $params->{level}++; }); This is a very scary API function. Please do not use this unless you need to. This is here for L<Test::Builder> and backwards compatibility. This has you directly manipulate the hash instead of returning a new one for performance reasons. =item test2_add_callback_context_init(sub { ... }) Add a callback that will be called every time a new context is created. The callback will receive the newly created context as its only argument. =item test2_add_callback_context_release(sub { ... }) Add a callback that will be called every time a context is released. The callback will receive the released context as its only argument. =item test2_add_callback_pre_subtest(sub { ... }) Add a callback that will be called every time a subtest is going to be run. The callback will receive the subtest name, coderef, and any arguments. =item @list = test2_list_context_acquire_callbacks() Return all the context acquire callback references. =item @list = test2_list_context_init_callbacks() Returns all the context init callback references. =item @list = test2_list_context_release_callbacks() Returns all the context release callback references. =item @list = test2_list_exit_callbacks() Returns all the exit callback references. =item @list = test2_list_post_load_callbacks() Returns all the post load callback references. =item @list = test2_list_pre_subtest_callbacks() Returns all the pre-subtest callback references. =item test2_add_uuid_via(sub { ... }) =item $sub = test2_add_uuid_via() This allows you to provide a UUID generator. If provided UUIDs will be attached to all events, hubs, and contexts. This is useful for storing, tracking, and linking these objects. The sub you provide should always return a unique identifier. Most things will expect a proper UUID string, however nothing in Test2::API enforces this. The sub will receive exactly 1 argument, the type of thing being tagged 'context', 'hub', or 'event'. In the future additional things may be tagged, in which case new strings will be passed in. These are purely informative, you can (and usually should) ignore them. =back =head2 IPC AND CONCURRENCY These let you access, or specify, the IPC system internals. =over 4 =item $bool = test2_has_ipc() Check if IPC is enabled. =item $ipc = test2_ipc() This will return the global L<Test2::IPC::Driver> instance. If this has not yet been initialized it will be initialized now. =item test2_ipc_add_driver($DRIVER) Add an IPC driver to the list. This will add the driver to the start of the list. =item @drivers = test2_ipc_drivers() Get the list of IPC drivers. =item $bool = test2_ipc_polling() Check if polling is enabled. =item test2_ipc_enable_polling() Turn on polling. This will cull events from other processes and threads every time a context is created. =item test2_ipc_disable_polling() Turn off IPC polling. =item test2_ipc_enable_shm() Legacy, this is currently a no-op that returns 0; =item test2_ipc_set_pending($uniq_val) Tell other processes and events that an event is pending. C<$uniq_val> should be a unique value no other thread/process will generate. B<Note:> After calling this C<test2_ipc_get_pending()> will return 1. This is intentional, and not avoidable. =item $pending = test2_ipc_get_pending() This returns -1 if there is no way to check (assume yes) This returns 0 if there are (most likely) no pending events. This returns 1 if there are (likely) pending events. Upon return it will reset, nothing else will be able to see that there were pending events. =item $timeout = test2_ipc_get_timeout() =item test2_ipc_set_timeout($timeout) Get/Set the timeout value for the IPC system. This timeout is how long the IPC system will wait for child processes and threads to finish before aborting. The default value is C<30> seconds. =back =head2 MANAGING FORMATTERS These let you access, or specify, the formatters that can/should be used. =over 4 =item $formatter = test2_formatter This will return the global formatter class. This is not an instance. By default the formatter is set to L<Test2::Formatter::TAP>. You can override this default using the C<T2_FORMATTER> environment variable. Normally 'Test2::Formatter::' is prefixed to the value in the environment variable: $ T2_FORMATTER='TAP' perl test.t # Use the Test2::Formatter::TAP formatter $ T2_FORMATTER='Foo' perl test.t # Use the Test2::Formatter::Foo formatter If you want to specify a full module name you use the '+' prefix: $ T2_FORMATTER='+Foo::Bar' perl test.t # Use the Foo::Bar formatter =item test2_formatter_set($class_or_instance) Set the global formatter class. This can only be set once. B<Note:> This will override anything specified in the 'T2_FORMATTER' environment variable. =item @formatters = test2_formatters() Get a list of all loaded formatters. =item test2_formatter_add($class_or_instance) Add a formatter to the list. Last formatter added is used at initialization. If this is called after initialization a warning will be issued. =back =head1 OTHER EXAMPLES See the C</Examples/> directory included in this distribution. =head1 SEE ALSO L<Test2::API::Context> - Detailed documentation of the context object. L<Test2::IPC> - The IPC system used for threading/fork support. L<Test2::Formatter> - Formatters such as TAP live here. L<Test2::Event> - Events live in this namespace. L<Test2::Hub> - All events eventually funnel through a hub. Custom hubs are how C<intercept()> and C<run_subtest()> are implemented. =head1 MAGIC This package has an END block. This END block is responsible for setting the exit code based on the test results. This end block also calls the callbacks that can be added to this package. =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! �a� �# �# 5.34.0/Test2/Tools/Tiny.pmnu �[��� package Test2::Tools::Tiny; use strict; use warnings; BEGIN { if ($] lt "5.008") { require Test::Builder::IO::Scalar; } } use Scalar::Util qw/blessed/; use Test2::Util qw/try/; use Test2::API qw/context run_subtest test2_stack/; use Test2::Hub::Interceptor(); use Test2::Hub::Interceptor::Terminator(); our $VERSION = '1.302183'; BEGIN { require Exporter; our @ISA = qw(Exporter) } our @EXPORT = qw{ ok is isnt like unlike is_deeply diag note skip_all todo plan done_testing warnings exception tests capture }; sub ok($;$@) { my ($bool, $name, @diag) = @_; my $ctx = context(); return $ctx->pass_and_release($name) if $bool; return $ctx->fail_and_release($name, @diag); } sub is($$;$@) { my ($got, $want, $name, @diag) = @_; my $ctx = context(); my $bool; if (defined($got) && defined($want)) { $bool = "$got" eq "$want"; } elsif (defined($got) xor defined($want)) { $bool = 0; } else { # Both are undef $bool = 1; } return $ctx->pass_and_release($name) if $bool; $got = '*NOT DEFINED*' unless defined $got; $want = '*NOT DEFINED*' unless defined $want; unshift @diag => ( "GOT: $got", "EXPECTED: $want", ); return $ctx->fail_and_release($name, @diag); } sub isnt($$;$@) { my ($got, $want, $name, @diag) = @_; my $ctx = context(); my $bool; if (defined($got) && defined($want)) { $bool = "$got" ne "$want"; } elsif (defined($got) xor defined($want)) { $bool = 1; } else { # Both are undef $bool = 0; } return $ctx->pass_and_release($name) if $bool; unshift @diag => "Strings are the same (they should not be)" unless $bool; return $ctx->fail_and_release($name, @diag); } sub like($$;$@) { my ($thing, $pattern, $name, @diag) = @_; my $ctx = context(); my $bool; if (defined($thing)) { $bool = "$thing" =~ $pattern; unshift @diag => ( "Value: $thing", "Does not match: $pattern" ) unless $bool; } else { $bool = 0; unshift @diag => "Got an undefined value."; } return $ctx->pass_and_release($name) if $bool; return $ctx->fail_and_release($name, @diag); } sub unlike($$;$@) { my ($thing, $pattern, $name, @diag) = @_; my $ctx = context(); my $bool; if (defined($thing)) { $bool = "$thing" !~ $pattern; unshift @diag => ( "Unexpected pattern match (it should not match)", "Value: $thing", "Matches: $pattern" ) unless $bool; } else { $bool = 0; unshift @diag => "Got an undefined value."; } return $ctx->pass_and_release($name) if $bool; return $ctx->fail_and_release($name, @diag); } sub is_deeply($$;$@) { my ($got, $want, $name, @diag) = @_; my $ctx = context(); no warnings 'once'; require Data::Dumper; # Otherwise numbers might be unquoted local $Data::Dumper::Useperl = 1; local $Data::Dumper::Sortkeys = 1; local $Data::Dumper::Deparse = 1; local $Data::Dumper::Freezer = 'XXX'; local *UNIVERSAL::XXX = sub { my ($thing) = @_; if (ref($thing)) { $thing = {%$thing} if "$thing" =~ m/=HASH/; $thing = [@$thing] if "$thing" =~ m/=ARRAY/; $thing = \"$$thing" if "$thing" =~ m/=SCALAR/; } $_[0] = $thing; }; my $g = Data::Dumper::Dumper($got); my $w = Data::Dumper::Dumper($want); my $bool = $g eq $w; return $ctx->pass_and_release($name) if $bool; return $ctx->fail_and_release($name, $g, $w, @diag); } sub diag { my $ctx = context(); $ctx->diag(join '', @_); $ctx->release; } sub note { my $ctx = context(); $ctx->note(join '', @_); $ctx->release; } sub skip_all { my ($reason) = @_; my $ctx = context(); $ctx->plan(0, SKIP => $reason); $ctx->release if $ctx; } sub todo { my ($reason, $sub) = @_; my $ctx = context(); # This code is mostly copied from Test2::Todo in the Test2-Suite # distribution. my $hub = test2_stack->top; my $filter = $hub->pre_filter( sub { my ($active_hub, $event) = @_; if ($active_hub == $hub) { $event->set_todo($reason) if $event->can('set_todo'); $event->add_amnesty({tag => 'TODO', details => $reason}); } else { $event->add_amnesty({tag => 'TODO', details => $reason, inherited => 1}); } return $event; }, inherit => 1, todo => $reason, ); $sub->(); $hub->pre_unfilter($filter); $ctx->release if $ctx; } sub plan { my ($max) = @_; my $ctx = context(); $ctx->plan($max); $ctx->release; } sub done_testing { my $ctx = context(); $ctx->done_testing; $ctx->release; } sub warnings(&) { my $code = shift; my @warnings; local $SIG{__WARN__} = sub { push @warnings => @_ }; $code->(); return \@warnings; } sub exception(&) { my $code = shift; local ($@, $!, $SIG{__DIE__}); my $ok = eval { $code->(); 1 }; my $error = $@ || 'SQUASHED ERROR'; return $ok ? undef : $error; } sub tests { my ($name, $code) = @_; my $ctx = context(); my $be = caller->can('before_each'); $be->($name) if $be; my $bool = run_subtest($name, $code, 1); $ctx->release; return $bool; } sub capture(&) { my $code = shift; my ($err, $out) = ("", ""); my $handles = test2_stack->top->format->handles; my ($ok, $e); { my ($out_fh, $err_fh); ($ok, $e) = try { # Scalar refs as filehandles were added in 5.8. if ($] ge "5.008") { open($out_fh, '>', \$out) or die "Failed to open a temporary STDOUT: $!"; open($err_fh, '>', \$err) or die "Failed to open a temporary STDERR: $!"; } # Emulate scalar ref filehandles with a tie. else { $out_fh = Test::Builder::IO::Scalar->new(\$out) or die "Failed to open a temporary STDOUT"; $err_fh = Test::Builder::IO::Scalar->new(\$err) or die "Failed to open a temporary STDERR"; } test2_stack->top->format->set_handles([$out_fh, $err_fh, $out_fh]); $code->(); }; } test2_stack->top->format->set_handles($handles); die $e unless $ok; $err =~ s/ $/_/mg; $out =~ s/ $/_/mg; return { STDOUT => $out, STDERR => $err, }; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::Tools::Tiny - Tiny set of tools for unfortunate souls who cannot use L<Test2::Suite>. =head1 DESCRIPTION You should really look at L<Test2::Suite>. This package is some very basic essential tools implemented using L<Test2>. This exists only so that L<Test2> and other tools required by L<Test2::Suite> can be tested. This is the package L<Test2> uses to test itself. =head1 USE Test2::Suite INSTEAD Use L<Test2::Suite> if at all possible. =head1 EXPORTS =over 4 =item ok($bool, $name) =item ok($bool, $name, @diag) Run a simple assertion. =item is($got, $want, $name) =item is($got, $want, $name, @diag) Assert that 2 strings are the same. =item isnt($got, $do_not_want, $name) =item isnt($got, $do_not_want, $name, @diag) Assert that 2 strings are not the same. =item like($got, $regex, $name) =item like($got, $regex, $name, @diag) Check that the input string matches the regex. =item unlike($got, $regex, $name) =item unlike($got, $regex, $name, @diag) Check that the input string does not match the regex. =item is_deeply($got, $want, $name) =item is_deeply($got, $want, $name, @diag) Check 2 data structures. Please note that this is a I<DUMB> implementation that compares the output of L<Data::Dumper> against both structures. =item diag($msg) Issue a diagnostics message to STDERR. =item note($msg) Issue a diagnostics message to STDOUT. =item skip_all($reason) Skip all tests. =item todo $reason => sub { ... } Run a block in TODO mode. =item plan($count) Set the plan. =item done_testing() Set the plan to the current test count. =item $warnings = warnings { ... } Capture an arrayref of warnings from the block. =item $exception = exception { ... } Capture an exception. =item tests $name => sub { ... } Run a subtest. =item $output = capture { ... } Capture STDOUT and STDERR output. Result looks like this: { STDOUT => "...", STDERR => "...", } =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! :vO�' ' % 5.34.0/Test2/EventFacet/Info/Table.pmnu �[��� package Test2::EventFacet::Info::Table; use strict; use warnings; our $VERSION = '1.302183'; use Carp qw/confess/; use Test2::Util::HashBase qw{-header -rows -collapse -no_collapse -as_string}; sub init { my $self = shift; confess "Table may not be empty" unless ref($self->{+ROWS}) eq 'ARRAY' && @{$self->{+ROWS}}; $self->{+AS_STRING} ||= '<TABLE NOT DISPLAYED>'; } sub as_hash { my $out = +{%{$_[0]}}; delete $out->{as_string}; $out } sub info_args { my $self = shift; my $hash = $self->as_hash; my $desc = $self->as_string; return (table => $hash, details => $desc); } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::EventFacet::Info::Table - Intermediary representation of a table. =head1 DESCRIPTION Intermediary representation of a table for use in specialized L<Test::API::Context> methods which generate L<Test2::EventFacet::Info> facets. =head1 SYNOPSIS use Test2::EventFacet::Info::Table; use Test2::API qw/context/; sub my_tool { my $ctx = context(); ... $ctx->fail( $name, "failure diag message", Test2::EventFacet::Info::Table->new( # Required rows => [['a', 'b'], ['c', 'd'], ...], # Strongly Recommended as_string => "... string to print when table cannot be rendered ...", # Optional header => ['col1', 'col2'], collapse => $bool, no_collapse => ['col1', ...], ), ); ... $ctx->release; } my_tool(); =head1 ATTRIBUTES =over 4 =item $header_aref = $t->header() =item $rows_aref = $t->rows() =item $bool = $t->collapse() =item $aref = $t->no_collapse() The above are all directly tied to the table hashref structure described in L<Test2::EventFacet::Info>. =item $str = $t->as_string() This returns the string form of the table if it was set, otherwise it returns the string C<< "<TABLE NOT DISPLAYED>" >>. =item $href = $t->as_hash() This returns the data structure used for tables by L<Test2::EventFacet::Info>. =item %args = $t->info_args() This returns the arguments that should be used to construct the proper L<Test2::EventFacet::Info> structure. return (table => $t->as_hash(), details => $t->as_string()); =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! Ј�Pk k " 5.34.0/Test2/EventFacet/Amnesty.pmnu �[��� package Test2::EventFacet::Amnesty; use strict; use warnings; our $VERSION = '1.302183'; sub is_list { 1 } BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) } use Test2::Util::HashBase qw{ -tag -inherited }; 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::EventFacet::Amnesty - Facet for assertion amnesty. =head1 DESCRIPTION This package represents what is expected in units of amnesty. =head1 NOTES This facet appears in a list instead of being a single item. =head1 FIELDS =over 4 =item $string = $amnesty->{details} =item $string = $amnesty->details() Human readable explanation of why amnesty was granted. Example: I<Not implemented yet, will fix> =item $short_string = $amnesty->{tag} =item $short_string = $amnesty->tag() Short string (usually 10 characters or less, not enforced, but may be truncated by renderers) categorizing the amnesty. =item $bool = $amnesty->{inherited} =item $bool = $amnesty->inherited() This will be true if the amnesty was granted to a parent event and inherited by this event, which is a child, such as an assertion within a subtest that is marked todo. =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! �E�ص � 5.34.0/Test2/EventFacet/Trace.pmnu �[��� package Test2::EventFacet::Trace; use strict; use warnings; our $VERSION = '1.302183'; BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) } use Test2::Util qw/get_tid pkg_to_file gen_uid/; use Carp qw/confess/; use Test2::Util::HashBase qw{^frame ^pid ^tid ^cid -hid -nested details -buffered -uuid -huuid <full_caller}; { no warnings 'once'; *DETAIL = \&DETAILS; *detail = \&details; *set_detail = \&set_details; } sub init { confess "The 'frame' attribute is required" unless $_[0]->{+FRAME}; $_[0]->{+DETAILS} = delete $_[0]->{detail} if $_[0]->{detail}; unless (defined($_[0]->{+PID}) || defined($_[0]->{+TID}) || defined($_[0]->{+CID})) { $_[0]->{+PID} = $$ unless defined $_[0]->{+PID}; $_[0]->{+TID} = get_tid() unless defined $_[0]->{+TID}; } } sub snapshot { my ($orig, @override) = @_; bless {%$orig, @override}, __PACKAGE__; } sub signature { my $self = shift; # Signature is only valid if all of these fields are defined, there is no # signature if any is missing. '0' is ok, but '' is not. return join ':' => map { (defined($_) && length($_)) ? $_ : return undef } ( $self->{+CID}, $self->{+PID}, $self->{+TID}, $self->{+FRAME}->[1], $self->{+FRAME}->[2], ); } sub debug { my $self = shift; return $self->{+DETAILS} if $self->{+DETAILS}; my ($pkg, $file, $line) = $self->call; return "at $file line $line"; } sub alert { my $self = shift; my ($msg) = @_; warn $msg . ' ' . $self->debug . ".\n"; } sub throw { my $self = shift; my ($msg) = @_; die $msg . ' ' . $self->debug . ".\n"; } sub call { @{$_[0]->{+FRAME}} } sub full_call { @{$_[0]->{+FULL_CALLER}} } sub package { $_[0]->{+FRAME}->[0] } sub file { $_[0]->{+FRAME}->[1] } sub line { $_[0]->{+FRAME}->[2] } sub subname { $_[0]->{+FRAME}->[3] } sub warning_bits { $_[0]->{+FULL_CALLER} ? $_[0]->{+FULL_CALLER}->[9] : undef } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::EventFacet::Trace - Debug information for events =head1 DESCRIPTION The L<Test2::API::Context> object, as well as all L<Test2::Event> types need to have access to information about where they were created. This object represents that information. =head1 SYNOPSIS use Test2::EventFacet::Trace; my $trace = Test2::EventFacet::Trace->new( frame => [$package, $file, $line, $subname], ); =head1 FACET FIELDS =over 4 =item $string = $trace->{details} =item $string = $trace->details() Used as a custom trace message that will be used INSTEAD of C<< at <FILE> line <LINE> >> when calling C<< $trace->debug >>. =item $frame = $trace->{frame} =item $frame = $trace->frame() Get the call frame arrayref. [$package, $file, $line, $subname] =item $int = $trace->{pid} =item $int = $trace->pid() The process ID in which the event was generated. =item $int = $trace->{tid} =item $int = $trace->tid() The thread ID in which the event was generated. =item $id = $trace->{cid} =item $id = $trace->cid() The ID of the context that was used to create the event. =item $uuid = $trace->{uuid} =item $uuid = $trace->uuid() The UUID of the context that was used to create the event. (If uuid tagging was enabled) =item ($pkg, $file, $line, $subname) = $trace->call Get the basic call info as a list. =item @caller = $trace->full_call Get the full caller(N) results. =item $warning_bits = $trace->warning_bits Get index 9 from the full caller info. This is the warnings_bits field. The value of this is not portable across perl versions or even processes. However it can be used in the process that generated it to reproduce the warnings settings in a new scope. eval <<EOT; BEGIN { ${^WARNING_BITS} = $trace->warning_bits }; ... context's warning settings apply here ... EOT =back =head2 DISCOURAGED HUB RELATED FIELDS These fields were not always set properly by tools. These are B<MOSTLY> deprecated by the L<Test2::EventFacet::Hub> facets. These fields are not required, and may only reflect the hub that was current when the event was created, which is not necessarily the same as the hub the event was sent through. Some tools did do a good job setting these to the correct hub, but you cannot always rely on that. Use the 'hubs' facet list instead. =over 4 =item $hid = $trace->{hid} =item $hid = $trace->hid() The ID of the hub that was current when the event was created. =item $huuid = $trace->{huuid} =item $huuid = $trace->huuid() The UUID of the hub that was current when the event was created. (If uuid tagging was enabled). =item $int = $trace->{nested} =item $int = $trace->nested() How deeply nested the event is. =item $bool = $trace->{buffered} =item $bool = $trace->buffered() True if the event was buffered and not sent to the formatter independent of a parent (This should never be set when nested is C<0> or C<undef>). =back =head1 METHODS B<Note:> All facet frames are also methods. =over 4 =item $trace->set_detail($msg) =item $msg = $trace->detail Used to get/set a custom trace message that will be used INSTEAD of C<< at <FILE> line <LINE> >> when calling C<< $trace->debug >>. C<detail()> is an alias to the C<details> facet field for backwards compatibility. =item $str = $trace->debug Typically returns the string C<< at <FILE> line <LINE> >>. If C<detail> is set then its value will be returned instead. =item $trace->alert($MESSAGE) This issues a warning at the frame (filename and line number where errors should be reported). =item $trace->throw($MESSAGE) This throws an exception at the frame (filename and line number where errors should be reported). =item ($package, $file, $line, $subname) = $trace->call() Get the caller details for the debug-info. This is where errors should be reported. =item $pkg = $trace->package Get the debug-info package. =item $file = $trace->file Get the debug-info filename. =item $line = $trace->line Get the debug-info line number. =item $subname = $trace->subname Get the debug-info subroutine name. =item $sig = trace->signature Get a signature string that identifies this trace. This is used to check if multiple events are related. The signature includes pid, tid, file, line number, and the cid. =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! ~$��F F 5.34.0/Test2/EventFacet/Meta.pmnu �[��� package Test2::EventFacet::Meta; use strict; use warnings; our $VERSION = '1.302183'; BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) } use vars qw/$AUTOLOAD/; # replace set_details { no warnings 'redefine'; sub set_details { $_[0]->{'set_details'} } } sub can { my $self = shift; my ($name) = @_; my $existing = $self->SUPER::can($name); return $existing if $existing; # Only vivify when called on an instance, do not vivify for a class. There # are a lot of magic class methods used in things like serialization (or # the forks.pm module) which cause problems when vivified. return undef unless ref($self); my $sub = sub { $_[0]->{$name} }; { no strict 'refs'; *$name = $sub; } return $sub; } sub AUTOLOAD { my $name = $AUTOLOAD; $name =~ s/^.*:://g; my $sub = $_[0]->can($name); goto &$sub; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::EventFacet::Meta - Facet for meta-data =head1 DESCRIPTION This facet can contain any random meta-data that has been attached to the event. =head1 METHODS AND FIELDS Any/all fields and accessors are autovivified into existence. There is no way to know what metadata may be added, so any is allowed. =over 4 =item $anything = $meta->{anything} =item $anything = $meta->anything() =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! 19� 6 6 5.34.0/Test2/EventFacet/Info.pmnu �[��� package Test2::EventFacet::Info; use strict; use warnings; our $VERSION = '1.302183'; sub is_list { 1 } BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) } use Test2::Util::HashBase qw{-tag -debug -important -table}; 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::EventFacet::Info - Facet for information a developer might care about. =head1 DESCRIPTION This facet represents messages intended for humans that will help them either understand a result, or diagnose a failure. =head1 NOTES This facet appears in a list instead of being a single item. =head1 FIELDS =over 4 =item $string_or_structure = $info->{details} =item $string_or_structure = $info->details() Human readable string or data structure, this is the information to display. Formatters are free to render the structures however they please. This may contain a blessed object. If the C<table> attribute (see below) is set then a renderer may choose to display the table instead of the details. =item $structure = $info->{table} =item $structure = $info->table() If the data the C<info> facet needs to convey can be represented as a table then the data may be placed in this attribute in a more raw form for better display. The data must also be represented in the C<details> attribute for renderers which do not support rendering tables directly. The table structure: my %table = { header => [ 'column 1 header', 'column 2 header', ... ], # Optional rows => [ ['row 1 column 1', 'row 1, column 2', ... ], ['row 2 column 1', 'row 2, column 2', ... ], ... ], # Allow the renderer to hide empty columns when true, Optional collapse => $BOOL, # List by name or number columns that should never be collapsed no_collapse => \@LIST, } =item $short_string = $info->{tag} =item $short_string = $info->tag() Short tag to categorize the info. This is usually 10 characters or less, formatters may truncate longer tags. =item $bool = $info->{debug} =item $bool = $info->debug() Set this to true if the message is critical, or explains a failure. This is info that should be displayed by formatters even in less-verbose modes. When false the information is not considered critical and may not be rendered in less-verbose modes. =item $bool = $info->{important} =item $bool = $info->important This should be set for non debug messages that are still important enough to show when a formatter is in quiet mode. A formatter should send these to STDOUT not STDERR, but should show them even in non-verbose mode. =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! �O9h� � ! 5.34.0/Test2/EventFacet/Render.pmnu �[��� package Test2::EventFacet::Render; use strict; use warnings; our $VERSION = '1.302183'; sub is_list { 1 } BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) } use Test2::Util::HashBase qw{ -tag -facet -mode }; 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::EventFacet::Render - Facet that dictates how to render an event. =head1 DESCRIPTION This facet is used to dictate how the event should be rendered by the standard test2 rendering tools. If this facet is present then ONLY what is specified by it will be rendered. It is assumed that anything important or note-worthy will be present here, no other facets will be considered for rendering/display. This facet is a list type, you can add as many items as needed. =head1 FIELDS =over 4 =item $string = $render->[#]->{details} =item $string = $render->[#]->details() Human readable text for display. =item $string = $render->[#]->{tag} =item $string = $render->[#]->tag() Tag that should prefix/identify the main text. =item $string = $render->[#]->{facet} =item $string = $render->[#]->facet() Optional, if the display text was generated from another facet this should state what facet it was. =item $mode = $render->[#]->{mode} =item $mode = $render->[#]->mode() =over 4 =item calculated Calculated means the facet was generated from another facet. Calculated facets may be cleared and regenerated whenever the event state changes. =item replace Replace means the facet is intended to replace the normal rendering of the event. =back =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! �D�O� � 5.34.0/Test2/EventFacet/About.pmnu �[��� package Test2::EventFacet::About; use strict; use warnings; our $VERSION = '1.302183'; BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) } use Test2::Util::HashBase qw{ -package -no_display -uuid -eid }; 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::EventFacet::About - Facet with event details. =head1 DESCRIPTION This facet has information about the event, such as event package. =head1 FIELDS =over 4 =item $string = $about->{details} =item $string = $about->details() Summary about the event. =item $package = $about->{package} =item $package = $about->package() Event package name. =item $bool = $about->{no_display} =item $bool = $about->no_display() True if the event should be skipped by formatters. =item $uuid = $about->{uuid} =item $uuid = $about->uuid() Will be set to a uuid if uuid tagging was enabled. =item $uuid = $about->{eid} =item $uuid = $about->eid() A unique (for the test job) identifier for the event. =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! n�*� � ! 5.34.0/Test2/EventFacet/Assert.pmnu �[��� package Test2::EventFacet::Assert; use strict; use warnings; our $VERSION = '1.302183'; BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) } use Test2::Util::HashBase qw{ -pass -no_debug -number }; 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::EventFacet::Assert - Facet representing an assertion. =head1 DESCRIPTION The assertion facet is provided by any event representing an assertion that was made. =head1 FIELDS =over 4 =item $string = $assert->{details} =item $string = $assert->details() Human readable description of the assertion. =item $bool = $assert->{pass} =item $bool = $assert->pass() True if the assertion passed. =item $bool = $assert->{no_debug} =item $bool = $assert->no_debug() Set this to true if you have provided custom diagnostics and do not want the defaults to be displayed. =item $int = $assert->{number} =item $int = $assert->number() (Optional) assertion number. This may be omitted or ignored. This is usually only useful when parsing/processing TAP. B<Note>: This is not set by the Test2 system, assertion number is not known until AFTER the assertion has been processed. This attribute is part of the spec only for harnesses. =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! �&��� � " 5.34.0/Test2/EventFacet/Control.pmnu �[��� package Test2::EventFacet::Control; use strict; use warnings; our $VERSION = '1.302183'; BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) } use Test2::Util::HashBase qw{ -global -terminate -halt -has_callback -encoding -phase }; 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::EventFacet::Control - Facet for hub actions and behaviors. =head1 DESCRIPTION This facet is used when the event needs to give instructions to the Test2 internals. =head1 FIELDS =over 4 =item $string = $control->{details} =item $string = $control->details() Human readable explanation for the special behavior. =item $bool = $control->{global} =item $bool = $control->global() True if the event is global in nature and should be seen by all hubs. =item $exit = $control->{terminate} =item $exit = $control->terminate() Defined if the test should immediately exit, the value is the exit code and may be C<0>. =item $bool = $control->{halt} =item $bool = $control->halt() True if all testing should be halted immediately. =item $bool = $control->{has_callback} =item $bool = $control->has_callback() True if the C<callback($hub)> method on the event should be called. =item $encoding = $control->{encoding} =item $encoding = $control->encoding() This can be used to change the encoding from this event onward. =item $phase = $control->{phase} =item $phase = $control->phase() Used to signal that a phase change has occurred. Currently only the perl END phase is signaled. =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! ]zՑ� � ! 5.34.0/Test2/EventFacet/Parent.pmnu �[��� package Test2::EventFacet::Parent; use strict; use warnings; our $VERSION = '1.302183'; use Carp qw/confess/; BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) } use Test2::Util::HashBase qw{ -hid -children -buffered }; sub init { confess "Attribute 'hid' must be set" unless defined $_[0]->{+HID}; $_[0]->{+CHILDREN} ||= []; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::EventFacet::Parent - Facet for events contains other events =head1 DESCRIPTION This facet is used when an event contains other events, such as a subtest. =head1 FIELDS =over 4 =item $string = $parent->{details} =item $string = $parent->details() Human readable description of the event. =item $hid = $parent->{hid} =item $hid = $parent->hid() Hub ID of the hub that is represented in the parent-child relationship. =item $arrayref = $parent->{children} =item $arrayref = $parent->children() Arrayref containing the facet-data hashes of events nested under this one. I<To get the actual events you need to get them from the parent event directly> =item $bool = $parent->{buffered} =item $bool = $parent->buffered() True if the subtest is buffered (meaning the formatter has probably not seen them yet). =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! � �^ ^ 5.34.0/Test2/EventFacet/Plan.pmnu �[��� package Test2::EventFacet::Plan; use strict; use warnings; our $VERSION = '1.302183'; BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) } use Test2::Util::HashBase qw{ -count -skip -none }; 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::EventFacet::Plan - Facet for setting the plan =head1 DESCRIPTION Events use this facet when they need to set the plan. =head1 FIELDS =over 4 =item $string = $plan->{details} =item $string = $plan->details() Human readable explanation for the plan being set. This is normally not rendered by most formatters except when the C<skip> field is also set. =item $positive_int = $plan->{count} =item $positive_int = $plan->count() Set the number of expected assertions. This should usually be set to C<0> when C<skip> or C<none> are also set. =item $bool = $plan->{skip} =item $bool = $plan->skip() When true the entire test should be skipped. This is usually paired with an explanation in the C<details> field, and a C<control> facet that has C<terminate> set to C<0>. =item $bool = $plan->{none} =item $bool = $plan->none() This is mainly used by legacy L<Test::Builder> tests which set the plan to C<no plan>, a construct that predates the much better C<done_testing()>. If you are using this in non-legacy code you may need to reconsider the course of your life, maybe a hermitage would suite you? =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! ,��U U 5.34.0/Test2/EventFacet/Hub.pmnu �[��� package Test2::EventFacet::Hub; use strict; use warnings; our $VERSION = '1.302183'; sub is_list { 1 } sub facet_key { 'hubs' } BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) } use Test2::Util::HashBase qw{-pid -tid -hid -nested -buffered -uuid -ipc}; 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::EventFacet::Hub - Facet for the hubs an event passes through. =head1 DESCRIPTION These are a record of the hubs an event passes through. Most recent hub is the first one in the list. =head1 FACET FIELDS =over 4 =item $string = $trace->{details} =item $string = $trace->details() The hub class or subclass =item $int = $trace->{pid} =item $int = $trace->pid() PID of the hub this event was sent to. =item $int = $trace->{tid} =item $int = $trace->tid() The thread ID of the hub the event was sent to. =item $hid = $trace->{hid} =item $hid = $trace->hid() The ID of the hub that the event was send to. =item $huuid = $trace->{huuid} =item $huuid = $trace->huuid() The UUID of the hub that the event was sent to. =item $int = $trace->{nested} =item $int = $trace->nested() How deeply nested the hub was. =item $bool = $trace->{buffered} =item $bool = $trace->buffered() True if the event was buffered and not sent to the formatter independent of a parent (This should never be set when nested is C<0> or C<undef>). =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! JF� 5.34.0/Test2/EventFacet/Error.pmnu �[��� package Test2::EventFacet::Error; use strict; use warnings; our $VERSION = '1.302183'; sub facet_key { 'errors' } sub is_list { 1 } BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) } use Test2::Util::HashBase qw{ -tag -fail }; 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::EventFacet::Error - Facet for errors that need to be shown. =head1 DESCRIPTION This facet is used when an event needs to convey errors. =head1 NOTES This facet has the hash key C<'errors'>, and is a list of facets instead of a single item. =head1 FIELDS =over 4 =item $string = $error->{details} =item $string = $error->details() Explanation of the error, or the error itself (such as an exception). In perl exceptions may be blessed objects, so this field may contain a blessed object. =item $short_string = $error->{tag} =item $short_string = $error->tag() Short tag to categorize the error. This is usually 10 characters or less, formatters may truncate longer tags. =item $bool = $error->{fail} =item $bool = $error->fail() Not all errors are fatal, some are displayed having already been handled. Set this to true if you want the error to cause the test to fail. Without this the error is simply a diagnostics message that has no effect on the overall pass/fail result. =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! �Xv�,Y ,Y 5.34.0/Test2/Hub.pmnu �[��� package Test2::Hub; use strict; use warnings; our $VERSION = '1.302183'; use Carp qw/carp croak confess/; use Test2::Util qw/get_tid gen_uid/; use Scalar::Util qw/weaken/; use List::Util qw/first/; use Test2::Util::ExternalMeta qw/meta get_meta set_meta delete_meta/; use Test2::Util::HashBase qw{ pid tid hid ipc nested buffered no_ending _filters _pre_filters _listeners _follow_ups _formatter _context_acquire _context_init _context_release uuid active count failed ended bailed_out _passing _plan skip_reason }; my $UUID_VIA; sub init { my $self = shift; $self->{+PID} = $$; $self->{+TID} = get_tid(); $self->{+HID} = gen_uid(); $UUID_VIA ||= Test2::API::_add_uuid_via_ref(); $self->{+UUID} = ${$UUID_VIA}->('hub') if $$UUID_VIA; $self->{+NESTED} = 0 unless defined $self->{+NESTED}; $self->{+BUFFERED} = 0 unless defined $self->{+BUFFERED}; $self->{+COUNT} = 0; $self->{+FAILED} = 0; $self->{+_PASSING} = 1; if (my $formatter = delete $self->{formatter}) { $self->format($formatter); } if (my $ipc = $self->{+IPC}) { $ipc->add_hub($self->{+HID}); } } sub is_subtest { 0 } sub _tb_reset { my $self = shift; # Nothing to do return if $self->{+PID} == $$ && $self->{+TID} == get_tid(); $self->{+PID} = $$; $self->{+TID} = get_tid(); $self->{+HID} = gen_uid(); if (my $ipc = $self->{+IPC}) { $ipc->add_hub($self->{+HID}); } } sub reset_state { my $self = shift; $self->{+COUNT} = 0; $self->{+FAILED} = 0; $self->{+_PASSING} = 1; delete $self->{+_PLAN}; delete $self->{+ENDED}; delete $self->{+BAILED_OUT}; delete $self->{+SKIP_REASON}; } sub inherit { my $self = shift; my ($from, %params) = @_; $self->{+NESTED} ||= 0; $self->{+_FORMATTER} = $from->{+_FORMATTER} unless $self->{+_FORMATTER} || exists($params{formatter}); if ($from->{+IPC} && !$self->{+IPC} && !exists($params{ipc})) { my $ipc = $from->{+IPC}; $self->{+IPC} = $ipc; $ipc->add_hub($self->{+HID}); } if (my $ls = $from->{+_LISTENERS}) { push @{$self->{+_LISTENERS}} => grep { $_->{inherit} } @$ls; } if (my $pfs = $from->{+_PRE_FILTERS}) { push @{$self->{+_PRE_FILTERS}} => grep { $_->{inherit} } @$pfs; } if (my $fs = $from->{+_FILTERS}) { push @{$self->{+_FILTERS}} => grep { $_->{inherit} } @$fs; } } sub format { my $self = shift; my $old = $self->{+_FORMATTER}; ($self->{+_FORMATTER}) = @_ if @_; return $old; } sub is_local { my $self = shift; return $$ == $self->{+PID} && get_tid() == $self->{+TID}; } sub listen { my $self = shift; my ($sub, %params) = @_; carp "Useless addition of a listener in a child process or thread!" if $$ != $self->{+PID} || get_tid() != $self->{+TID}; croak "listen only takes coderefs for arguments, got '$sub'" unless ref $sub && ref $sub eq 'CODE'; push @{$self->{+_LISTENERS}} => { %params, code => $sub }; $sub; # Intentional return. } sub unlisten { my $self = shift; carp "Useless removal of a listener in a child process or thread!" if $$ != $self->{+PID} || get_tid() != $self->{+TID}; my %subs = map {$_ => $_} @_; @{$self->{+_LISTENERS}} = grep { !$subs{$_->{code}} } @{$self->{+_LISTENERS}}; } sub filter { my $self = shift; my ($sub, %params) = @_; carp "Useless addition of a filter in a child process or thread!" if $$ != $self->{+PID} || get_tid() != $self->{+TID}; croak "filter only takes coderefs for arguments, got '$sub'" unless ref $sub && ref $sub eq 'CODE'; push @{$self->{+_FILTERS}} => { %params, code => $sub }; $sub; # Intentional Return } sub unfilter { my $self = shift; carp "Useless removal of a filter in a child process or thread!" if $$ != $self->{+PID} || get_tid() != $self->{+TID}; my %subs = map {$_ => $_} @_; @{$self->{+_FILTERS}} = grep { !$subs{$_->{code}} } @{$self->{+_FILTERS}}; } sub pre_filter { my $self = shift; my ($sub, %params) = @_; croak "pre_filter only takes coderefs for arguments, got '$sub'" unless ref $sub && ref $sub eq 'CODE'; push @{$self->{+_PRE_FILTERS}} => { %params, code => $sub }; $sub; # Intentional Return } sub pre_unfilter { my $self = shift; my %subs = map {$_ => $_} @_; @{$self->{+_PRE_FILTERS}} = grep { !$subs{$_->{code}} } @{$self->{+_PRE_FILTERS}}; } sub follow_up { my $self = shift; my ($sub) = @_; carp "Useless addition of a follow-up in a child process or thread!" if $$ != $self->{+PID} || get_tid() != $self->{+TID}; croak "follow_up only takes coderefs for arguments, got '$sub'" unless ref $sub && ref $sub eq 'CODE'; push @{$self->{+_FOLLOW_UPS}} => $sub; } *add_context_aquire = \&add_context_acquire; sub add_context_acquire { my $self = shift; my ($sub) = @_; croak "add_context_acquire only takes coderefs for arguments, got '$sub'" unless ref $sub && ref $sub eq 'CODE'; push @{$self->{+_CONTEXT_ACQUIRE}} => $sub; $sub; # Intentional return. } *remove_context_aquire = \&remove_context_acquire; sub remove_context_acquire { my $self = shift; my %subs = map {$_ => $_} @_; @{$self->{+_CONTEXT_ACQUIRE}} = grep { !$subs{$_} == $_ } @{$self->{+_CONTEXT_ACQUIRE}}; } sub add_context_init { my $self = shift; my ($sub) = @_; croak "add_context_init only takes coderefs for arguments, got '$sub'" unless ref $sub && ref $sub eq 'CODE'; push @{$self->{+_CONTEXT_INIT}} => $sub; $sub; # Intentional return. } sub remove_context_init { my $self = shift; my %subs = map {$_ => $_} @_; @{$self->{+_CONTEXT_INIT}} = grep { !$subs{$_} == $_ } @{$self->{+_CONTEXT_INIT}}; } sub add_context_release { my $self = shift; my ($sub) = @_; croak "add_context_release only takes coderefs for arguments, got '$sub'" unless ref $sub && ref $sub eq 'CODE'; push @{$self->{+_CONTEXT_RELEASE}} => $sub; $sub; # Intentional return. } sub remove_context_release { my $self = shift; my %subs = map {$_ => $_} @_; @{$self->{+_CONTEXT_RELEASE}} = grep { !$subs{$_} == $_ } @{$self->{+_CONTEXT_RELEASE}}; } sub send { my $self = shift; my ($e) = @_; $e->eid; $e->add_hub( { details => ref($self), buffered => $self->{+BUFFERED}, hid => $self->{+HID}, nested => $self->{+NESTED}, pid => $self->{+PID}, tid => $self->{+TID}, uuid => $self->{+UUID}, ipc => $self->{+IPC} ? 1 : 0, } ); $e->set_uuid(${$UUID_VIA}->('event')) if $$UUID_VIA; if ($self->{+_PRE_FILTERS}) { for (@{$self->{+_PRE_FILTERS}}) { $e = $_->{code}->($self, $e); return unless $e; } } my $ipc = $self->{+IPC} || return $self->process($e); if($e->global) { $ipc->send($self->{+HID}, $e, 'GLOBAL'); return $self->process($e); } return $ipc->send($self->{+HID}, $e) if $$ != $self->{+PID} || get_tid() != $self->{+TID}; $self->process($e); } sub process { my $self = shift; my ($e) = @_; if ($self->{+_FILTERS}) { for (@{$self->{+_FILTERS}}) { $e = $_->{code}->($self, $e); return unless $e; } } # Optimize the most common case my $type = ref($e); if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { my $count = ++($self->{+COUNT}); $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; if ($self->{+_LISTENERS}) { $_->{code}->($self, $e, $count) for @{$self->{+_LISTENERS}}; } return $e; } my $f = $e->facet_data; my $fail = 0; $fail = 1 if $f->{assert} && !$f->{assert}->{pass}; $fail = 1 if $f->{errors} && grep { $_->{fail} } @{$f->{errors}}; $fail = 0 if $f->{amnesty}; $self->{+COUNT}++ if $f->{assert}; $self->{+FAILED}++ if $fail && $f->{assert}; $self->{+_PASSING} = 0 if $fail; my $code = $f->{control} ? $f->{control}->{terminate} : undef; my $count = $self->{+COUNT}; if (my $plan = $f->{plan}) { if ($plan->{skip}) { $self->plan('SKIP'); $self->set_skip_reason($plan->{details} || 1); $code ||= 0; } elsif ($plan->{none}) { $self->plan('NO PLAN'); } else { $self->plan($plan->{count}); } } $e->callback($self) if $f->{control} && $f->{control}->{has_callback}; $self->{+_FORMATTER}->write($e, $count, $f) if $self->{+_FORMATTER}; if ($self->{+_LISTENERS}) { $_->{code}->($self, $e, $count, $f) for @{$self->{+_LISTENERS}}; } if ($f->{control} && $f->{control}->{halt}) { $code ||= 255; $self->set_bailed_out($e); } if (defined $code) { $self->{+_FORMATTER}->terminate($e, $f) if $self->{+_FORMATTER}; $self->terminate($code, $e, $f); } return $e; } sub terminate { my $self = shift; my ($code) = @_; exit($code); } sub cull { my $self = shift; my $ipc = $self->{+IPC} || return; return if $self->{+PID} != $$ || $self->{+TID} != get_tid(); # No need to do IPC checks on culled events $self->process($_) for $ipc->cull($self->{+HID}); } sub finalize { my $self = shift; my ($trace, $do_plan) = @_; $self->cull(); my $plan = $self->{+_PLAN}; my $count = $self->{+COUNT}; my $failed = $self->{+FAILED}; my $active = $self->{+ACTIVE}; # return if NOTHING was done. unless ($active || $do_plan || defined($plan) || $count || $failed) { $self->{+_FORMATTER}->finalize($plan, $count, $failed, 0, $self->is_subtest) if $self->{+_FORMATTER}; return; } unless ($self->{+ENDED}) { if ($self->{+_FOLLOW_UPS}) { $_->($trace, $self) for reverse @{$self->{+_FOLLOW_UPS}}; } # These need to be refreshed now $plan = $self->{+_PLAN}; $count = $self->{+COUNT}; $failed = $self->{+FAILED}; if (($plan && $plan eq 'NO PLAN') || ($do_plan && !$plan)) { $self->send( Test2::Event::Plan->new( trace => $trace, max => $count, ) ); } $plan = $self->{+_PLAN}; } my $frame = $trace->frame; if($self->{+ENDED}) { my (undef, $ffile, $fline) = @{$self->{+ENDED}}; my (undef, $sfile, $sline) = @$frame; die <<" EOT" Test already ended! First End: $ffile line $fline Second End: $sfile line $sline EOT } $self->{+ENDED} = $frame; my $pass = $self->is_passing(); # Generate the final boolean. $self->{+_FORMATTER}->finalize($plan, $count, $failed, $pass, $self->is_subtest) if $self->{+_FORMATTER}; return $pass; } sub is_passing { my $self = shift; ($self->{+_PASSING}) = @_ if @_; # If we already failed just return 0. my $pass = $self->{+_PASSING} or return 0; return $self->{+_PASSING} = 0 if $self->{+FAILED}; my $count = $self->{+COUNT}; my $ended = $self->{+ENDED}; my $plan = $self->{+_PLAN}; return $pass if !$count && $plan && $plan =~ m/^SKIP$/; return $self->{+_PASSING} = 0 if $ended && (!$count || !$plan); return $pass unless $plan && $plan =~ m/^\d+$/; if ($ended) { return $self->{+_PASSING} = 0 if $count != $plan; } else { return $self->{+_PASSING} = 0 if $count > $plan; } return $pass; } sub plan { my $self = shift; return $self->{+_PLAN} unless @_; my ($plan) = @_; confess "You cannot unset the plan" unless defined $plan; confess "You cannot change the plan" if $self->{+_PLAN} && $self->{+_PLAN} !~ m/^NO PLAN$/; confess "'$plan' is not a valid plan! Plan must be an integer greater than 0, 'NO PLAN', or 'SKIP'" unless $plan =~ m/^(\d+|NO PLAN|SKIP)$/; $self->{+_PLAN} = $plan; } sub check_plan { my $self = shift; return undef unless $self->{+ENDED}; my $plan = $self->{+_PLAN} || return undef; return 1 if $plan !~ m/^\d+$/; return 1 if $plan == $self->{+COUNT}; return 0; } sub DESTROY { my $self = shift; my $ipc = $self->{+IPC} || return; return unless $$ == $self->{+PID}; return unless get_tid() == $self->{+TID}; $ipc->drop_hub($self->{+HID}); } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::Hub - The conduit through which all events flow. =head1 SYNOPSIS use Test2::Hub; my $hub = Test2::Hub->new(); $hub->send(...); =head1 DESCRIPTION The hub is the place where all events get processed and handed off to the formatter. The hub also tracks test state, and provides several hooks into the event pipeline. =head1 COMMON TASKS =head2 SENDING EVENTS $hub->send($event) The C<send()> method is used to issue an event to the hub. This method will handle thread/fork sync, filters, listeners, TAP output, etc. =head2 ALTERING OR REMOVING EVENTS You can use either C<filter()> or C<pre_filter()>, depending on your needs. Both have identical syntax, so only C<filter()> is shown here. $hub->filter(sub { my ($hub, $event) = @_; my $action = get_action($event); # No action should be taken return $event if $action eq 'none'; # You want your filter to remove the event return undef if $action eq 'delete'; if ($action eq 'do_it') { my $new_event = copy_event($event); ... Change your copy of the event ... return $new_event; } die "Should not happen"; }); By default, filters are not inherited by child hubs. That means if you start a subtest, the subtest will not inherit the filter. You can change this behavior with the C<inherit> parameter: $hub->filter(sub { ... }, inherit => 1); =head2 LISTENING FOR EVENTS $hub->listen(sub { my ($hub, $event, $number) = @_; ... do whatever you want with the event ... # return is ignored }); By default listeners are not inherited by child hubs. That means if you start a subtest, the subtest will not inherit the listener. You can change this behavior with the C<inherit> parameter: $hub->listen(sub { ... }, inherit => 1); =head2 POST-TEST BEHAVIORS $hub->follow_up(sub { my ($trace, $hub) = @_; ... do whatever you need to ... # Return is ignored }); follow_up subs are called only once, either when done_testing is called, or in an END block. =head2 SETTING THE FORMATTER By default an instance of L<Test2::Formatter::TAP> is created and used. my $old = $hub->format(My::Formatter->new); Setting the formatter will REPLACE any existing formatter. You may set the formatter to undef to prevent output. The old formatter will be returned if one was already set. Only one formatter is allowed at a time. =head1 METHODS =over 4 =item $hub->send($event) This is where all events enter the hub for processing. =item $hub->process($event) This is called by send after it does any IPC handling. You can use this to bypass the IPC process, but in general you should avoid using this. =item $old = $hub->format($formatter) Replace the existing formatter instance with a new one. Formatters must be objects that implement a C<< $formatter->write($event) >> method. =item $sub = $hub->listen(sub { ... }, %optional_params) You can use this to record all events AFTER they have been sent to the formatter. No changes made here will be meaningful, except possibly to other listeners. $hub->listen(sub { my ($hub, $event, $number) = @_; ... do whatever you want with the event ... # return is ignored }); Normally listeners are not inherited by child hubs such as subtests. You can add the C<< inherit => 1 >> parameter to allow a listener to be inherited. =item $hub->unlisten($sub) You can use this to remove a listen callback. You must pass in the coderef returned by the C<listen()> method. =item $sub = $hub->filter(sub { ... }, %optional_params) =item $sub = $hub->pre_filter(sub { ... }, %optional_params) These can be used to add filters. Filters can modify, replace, or remove events before anything else can see them. $hub->filter( sub { my ($hub, $event) = @_; return $event; # No Changes return; # Remove the event # Or you can modify an event before returning it. $event->modify; return $event; } ); If you are not using threads, forking, or IPC then the only difference between a C<filter> and a C<pre_filter> is that C<pre_filter> subs run first. When you are using threads, forking, or IPC, pre_filters happen to events before they are sent to their destination proc/thread, ordinary filters happen only in the destination hub/thread. You cannot add a regular filter to a hub if the hub was created in another process or thread. You can always add a pre_filter. =item $hub->unfilter($sub) =item $hub->pre_unfilter($sub) These can be used to remove filters and pre_filters. The C<$sub> argument is the reference returned by C<filter()> or C<pre_filter()>. =item $hub->follow_op(sub { ... }) Use this to add behaviors that are called just before the hub is finalized. The only argument to your codeblock will be a L<Test2::EventFacet::Trace> instance. $hub->follow_up(sub { my ($trace, $hub) = @_; ... do whatever you need to ... # Return is ignored }); follow_up subs are called only once, ether when done_testing is called, or in an END block. =item $sub = $hub->add_context_acquire(sub { ... }); Add a callback that will be called every time someone tries to acquire a context. It gets a single argument, a reference of the hash of parameters being used the construct the context. This is your chance to change the parameters by directly altering the hash. test2_add_callback_context_acquire(sub { my $params = shift; $params->{level}++; }); This is a very scary API function. Please do not use this unless you need to. This is here for L<Test::Builder> and backwards compatibility. This has you directly manipulate the hash instead of returning a new one for performance reasons. B<Note> Using this hook could have a huge performance impact. The coderef you provide is returned and can be used to remove the hook later. =item $hub->remove_context_acquire($sub); This can be used to remove a context acquire hook. =item $sub = $hub->add_context_init(sub { ... }); This allows you to add callbacks that will trigger every time a new context is created for the hub. The only argument to the sub will be the L<Test2::API::Context> instance that was created. B<Note> Using this hook could have a huge performance impact. The coderef you provide is returned and can be used to remove the hook later. =item $hub->remove_context_init($sub); This can be used to remove a context init hook. =item $sub = $hub->add_context_release(sub { ... }); This allows you to add callbacks that will trigger every time a context for this hub is released. The only argument to the sub will be the L<Test2::API::Context> instance that was released. These will run in reverse order. B<Note> Using this hook could have a huge performance impact. The coderef you provide is returned and can be used to remove the hook later. =item $hub->remove_context_release($sub); This can be used to remove a context release hook. =item $hub->cull() Cull any IPC events (and process them). =item $pid = $hub->pid() Get the process id under which the hub was created. =item $tid = $hub->tid() Get the thread id under which the hub was created. =item $hud = $hub->hid() Get the identifier string of the hub. =item $uuid = $hub->uuid() If UUID tagging is enabled (see L<Test2::API>) then the hub will have a UUID. =item $ipc = $hub->ipc() Get the IPC object used by the hub. =item $hub->set_no_ending($bool) =item $bool = $hub->no_ending This can be used to disable auto-ending behavior for a hub. The auto-ending behavior is triggered by an end block and is used to cull IPC events, and output the final plan if the plan was 'NO PLAN'. =item $bool = $hub->active =item $hub->set_active($bool) These are used to get/set the 'active' attribute. When true this attribute will force C<< hub->finalize() >> to take action even if there is no plan, and no tests have been run. This flag is useful for plugins that add follow-up behaviors that need to run even if no events are seen. =back =head2 STATE METHODS =over 4 =item $hub->reset_state() Reset all state to the start. This sets the test count to 0, clears the plan, removes the failures, etc. =item $num = $hub->count Get the number of tests that have been run. =item $num = $hub->failed Get the number of failures (Not all failures come from a test fail, so this number can be larger than the count). =item $bool = $hub->ended True if the testing has ended. This MAY return the stack frame of the tool that ended the test, but that is not guaranteed. =item $bool = $hub->is_passing =item $hub->is_passing($bool) Check if the overall test run is a failure. Can also be used to set the pass/fail status. =item $hub->plan($plan) =item $plan = $hub->plan Get or set the plan. The plan must be an integer larger than 0, the string 'NO PLAN', or the string 'SKIP'. =item $bool = $hub->check_plan Check if the plan and counts match, but only if the tests have ended. If tests have not ended this will return undef, otherwise it will be a true/false. =back =head1 THIRD PARTY META-DATA This object consumes L<Test2::Util::ExternalMeta> which provides a consistent way for you to attach meta-data to instances of this class. This is useful for tools, plugins, and other extensions. =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! �?0q� � 5.34.0/Test2/EventFacet.pmnu �[��� package Test2::EventFacet; use strict; use warnings; our $VERSION = '1.302183'; use Test2::Util::HashBase qw/-details/; use Carp qw/croak/; my $SUBLEN = length(__PACKAGE__ . '::'); sub facet_key { my $key = ref($_[0]) || $_[0]; substr($key, 0, $SUBLEN, ''); return lc($key); } sub is_list { 0 } sub clone { my $self = shift; my $type = ref($self); return bless {%$self, @_}, $type; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::EventFacet - Base class for all event facets. =head1 DESCRIPTION Base class for all event facets. =head1 METHODS =over 4 =item $key = $facet_class->facet_key() This will return the key for the facet in the facet data hash. =item $bool = $facet_class->is_list() This will return true if the facet should be in a list instead of a single item. =item $clone = $facet->clone() =item $clone = $facet->clone(%replace) This will make a shallow clone of the facet. You may specify fields to override as arguments. =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! ���} } 5.34.0/Test2/Event/Subtest.pmnu �[��� package Test2::Event::Subtest; use strict; use warnings; our $VERSION = '1.302183'; BEGIN { require Test2::Event::Ok; our @ISA = qw(Test2::Event::Ok) } use Test2::Util::HashBase qw{subevents buffered subtest_id subtest_uuid}; sub init { my $self = shift; $self->SUPER::init(); $self->{+SUBEVENTS} ||= []; if ($self->{+EFFECTIVE_PASS}) { $_->set_effective_pass(1) for grep { $_->can('effective_pass') } @{$self->{+SUBEVENTS}}; } } { no warnings 'redefine'; sub set_subevents { my $self = shift; my @subevents = @_; if ($self->{+EFFECTIVE_PASS}) { $_->set_effective_pass(1) for grep { $_->can('effective_pass') } @subevents; } $self->{+SUBEVENTS} = \@subevents; } sub set_effective_pass { my $self = shift; my ($pass) = @_; if ($pass) { $_->set_effective_pass(1) for grep { $_->can('effective_pass') } @{$self->{+SUBEVENTS}}; } elsif ($self->{+EFFECTIVE_PASS} && !$pass) { for my $s (grep { $_->can('effective_pass') } @{$self->{+SUBEVENTS}}) { $_->set_effective_pass(0) unless $s->can('todo') && defined $s->todo; } } $self->{+EFFECTIVE_PASS} = $pass; } } sub summary { my $self = shift; my $name = $self->{+NAME} || "Nameless Subtest"; my $todo = $self->{+TODO}; if ($todo) { $name .= " (TODO: $todo)"; } elsif (defined $todo) { $name .= " (TODO)"; } return $name; } sub facet_data { my $self = shift; my $out = $self->SUPER::facet_data(); $out->{parent} = { hid => $self->subtest_id, children => [map {$_->facet_data} @{$self->{+SUBEVENTS}}], buffered => $self->{+BUFFERED}, }; return $out; } sub add_amnesty { my $self = shift; for my $am (@_) { $am = {%$am} if ref($am) ne 'ARRAY'; $am = Test2::EventFacet::Amnesty->new($am); push @{$self->{+AMNESTY}} => $am; for my $e (@{$self->{+SUBEVENTS}}) { $e->add_amnesty($am->clone(inherited => 1)); } } } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::Event::Subtest - Event for subtest types =head1 DESCRIPTION This class represents a subtest. This class is a subclass of L<Test2::Event::Ok>. =head1 ACCESSORS This class inherits from L<Test2::Event::Ok>. =over 4 =item $arrayref = $e->subevents Returns the arrayref containing all the events from the subtest =item $bool = $e->buffered True if the subtest is buffered, that is all subevents render at once. If this is false it means all subevents render as they are produced. =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! H9�� 5.34.0/Test2/Event/Generic.pmnu �[��� package Test2::Event::Generic; use strict; use warnings; use Carp qw/croak/; use Scalar::Util qw/reftype/; our $VERSION = '1.302183'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } use Test2::Util::HashBase; my @FIELDS = qw{ causes_fail increments_count diagnostics no_display callback terminate global sets_plan summary facet_data }; my %DEFAULTS = ( causes_fail => 0, increments_count => 0, diagnostics => 0, no_display => 0, ); sub init { my $self = shift; for my $field (@FIELDS) { my $val = defined $self->{$field} ? delete $self->{$field} : $DEFAULTS{$field}; next unless defined $val; my $set = "set_$field"; $self->$set($val); } } for my $field (@FIELDS) { no strict 'refs'; *$field = sub { exists $_[0]->{$field} ? $_[0]->{$field} : () } unless exists &{$field}; *{"set_$field"} = sub { $_[0]->{$field} = $_[1] } unless exists &{"set_$field"}; } sub can { my $self = shift; my ($name) = @_; return $self->SUPER::can($name) unless $name eq 'callback'; return $self->{callback} || \&Test2::Event::callback; } sub facet_data { my $self = shift; return $self->{facet_data} || $self->SUPER::facet_data(); } sub summary { my $self = shift; return $self->{summary} if defined $self->{summary}; $self->SUPER::summary(); } sub sets_plan { my $self = shift; return unless $self->{sets_plan}; return @{$self->{sets_plan}}; } sub callback { my $self = shift; my $cb = $self->{callback} || return; $self->$cb(@_); } sub set_global { my $self = shift; my ($bool) = @_; if(!defined $bool) { delete $self->{global}; return undef; } $self->{global} = $bool; } sub set_callback { my $self = shift; my ($cb) = @_; if(!defined $cb) { delete $self->{callback}; return undef; } croak "callback must be a code reference" unless ref($cb) && reftype($cb) eq 'CODE'; $self->{callback} = $cb; } sub set_terminate { my $self = shift; my ($exit) = @_; if(!defined $exit) { delete $self->{terminate}; return undef; } croak "terminate must be a positive integer" unless $exit =~ m/^\d+$/; $self->{terminate} = $exit; } sub set_sets_plan { my $self = shift; my ($plan) = @_; if(!defined $plan) { delete $self->{sets_plan}; return undef; } croak "'sets_plan' must be an array reference" unless ref($plan) && reftype($plan) eq 'ARRAY'; $self->{sets_plan} = $plan; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::Event::Generic - Generic event type. =head1 DESCRIPTION This is a generic event that lets you customize all fields in the event API. This is useful if you have need for a custom event that does not make sense as a published reusable event subclass. =head1 SYNOPSIS use Test2::API qw/context/; sub send_custom_fail { my $ctx = shift; $ctx->send_event('Generic', causes_fail => 1, summary => 'The sky is falling'); $ctx->release; } send_custom_fail(); =head1 METHODS =over 4 =item $e->facet_data($data) =item $data = $e->facet_data Get or set the facet data (see L<Test2::Event>). If no facet_data is set then C<< Test2::Event->facet_data >> will be called to produce facets from the other data. =item $e->callback($hub) Call the custom callback if one is set, otherwise this does nothing. =item $e->set_callback(sub { ... }) Set the custom callback. The custom callback must be a coderef. The first argument to your callback will be the event itself, the second will be the L<Test2::Event::Hub> that is using the callback. =item $bool = $e->causes_fail =item $e->set_causes_fail($bool) Get/Set the C<causes_fail> attribute. This defaults to C<0>. =item $bool = $e->diagnostics =item $e->set_diagnostics($bool) Get/Set the C<diagnostics> attribute. This defaults to C<0>. =item $bool_or_undef = $e->global =item @bool_or_empty = $e->global =item $e->set_global($bool_or_undef) Get/Set the C<diagnostics> attribute. This defaults to an empty list which is undef in scalar context. =item $bool = $e->increments_count =item $e->set_increments_count($bool) Get/Set the C<increments_count> attribute. This defaults to C<0>. =item $bool = $e->no_display =item $e->set_no_display($bool) Get/Set the C<no_display> attribute. This defaults to C<0>. =item @plan = $e->sets_plan Get the plan if this event sets one. The plan is a list of up to 3 items: C<($count, $directive, $reason)>. C<$count> must be defined, the others may be undef, or may not exist at all. =item $e->set_sets_plan(\@plan) Set the plan. You must pass in an arrayref with up to 3 elements. =item $summary = $e->summary =item $e->set_summary($summary_or_undef) Get/Set the summary. This will default to the event package C<'Test2::Event::Generic'>. You can set it to any value. Setting this to C<undef> will reset it to the default. =item $int_or_undef = $e->terminate =item @int_or_empty = $e->terminate =item $e->set_terminate($int_or_undef) This will get/set the C<terminate> attribute. This defaults to undef in scalar context, or an empty list in list context. Setting this to undef will clear it completely. This must be set to a positive integer (0 or larger). =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! 7øډ � 5.34.0/Test2/Event/Note.pmnu �[��� package Test2::Event::Note; use strict; use warnings; our $VERSION = '1.302183'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } use Test2::Util::HashBase qw/message/; sub init { $_[0]->{+MESSAGE} = 'undef' unless defined $_[0]->{+MESSAGE}; } sub summary { $_[0]->{+MESSAGE} } sub facet_data { my $self = shift; my $out = $self->common_facet_data; $out->{info} = [ { tag => 'NOTE', debug => 0, details => $self->{+MESSAGE}, } ]; return $out; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::Event::Note - Note event type =head1 DESCRIPTION Notes, typically rendered to STDOUT. =head1 SYNOPSIS use Test2::API qw/context/; use Test2::Event::Note; my $ctx = context(); my $event = $ctx->Note($message); =head1 ACCESSORS =over 4 =item $note->message The message for the note. =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! Dڑ�� � 5.34.0/Test2/Event/Exception.pmnu �[��� package Test2::Event::Exception; use strict; use warnings; our $VERSION = '1.302183'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } use Test2::Util::HashBase qw{error}; sub init { my $self = shift; $self->{+ERROR} = "$self->{+ERROR}"; } sub causes_fail { 1 } sub summary { my $self = shift; chomp(my $msg = "Exception: " . $self->{+ERROR}); return $msg; } sub diagnostics { 1 } sub facet_data { my $self = shift; my $out = $self->common_facet_data; $out->{errors} = [ { tag => 'ERROR', fail => 1, details => $self->{+ERROR}, } ]; return $out; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::Event::Exception - Exception event =head1 DESCRIPTION An exception event will display to STDERR, and will prevent the overall test file from passing. =head1 SYNOPSIS use Test2::API qw/context/; use Test2::Event::Exception; my $ctx = context(); my $event = $ctx->send_event('Exception', error => 'Stuff is broken'); =head1 METHODS Inherits from L<Test2::Event>. Also defines: =over 4 =item $reason = $e->error The reason for the exception. =back =head1 CAVEATS Be aware that all exceptions are stringified during construction. =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! QAx� � 5.34.0/Test2/Event/Diag.pmnu �[��� package Test2::Event::Diag; use strict; use warnings; our $VERSION = '1.302183'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } use Test2::Util::HashBase qw/message/; sub init { $_[0]->{+MESSAGE} = 'undef' unless defined $_[0]->{+MESSAGE}; } sub summary { $_[0]->{+MESSAGE} } sub diagnostics { 1 } sub facet_data { my $self = shift; my $out = $self->common_facet_data; $out->{info} = [ { tag => 'DIAG', debug => 1, details => $self->{+MESSAGE}, } ]; return $out; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::Event::Diag - Diag event type =head1 DESCRIPTION Diagnostics messages, typically rendered to STDERR. =head1 SYNOPSIS use Test2::API qw/context/; use Test2::Event::Diag; my $ctx = context(); my $event = $ctx->diag($message); =head1 ACCESSORS =over 4 =item $diag->message The message for the diag. =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! [���� � 5.34.0/Test2/Event/Fail.pmnu �[��� package Test2::Event::Fail; use strict; use warnings; our $VERSION = '1.302183'; use Test2::EventFacet::Info; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event); *META_KEY = \&Test2::Util::ExternalMeta::META_KEY; } use Test2::Util::HashBase qw{ -name -info }; ############# # Old API sub summary { "fail" } sub increments_count { 1 } sub diagnostics { 0 } sub no_display { 0 } sub subtest_id { undef } sub terminate { () } sub global { () } sub sets_plan { () } sub causes_fail { my $self = shift; return 0 if $self->{+AMNESTY} && @{$self->{+AMNESTY}}; return 1; } ############# # New API sub add_info { my $self = shift; for my $in (@_) { $in = {%$in} if ref($in) ne 'ARRAY'; $in = Test2::EventFacet::Info->new($in); push @{$self->{+INFO}} => $in; } } sub facet_data { my $self = shift; my $out = $self->common_facet_data; $out->{about}->{details} = 'fail'; $out->{assert} = {pass => 0, details => $self->{+NAME}}; $out->{info} = [map {{ %{$_} }} @{$self->{+INFO}}] if $self->{+INFO}; return $out; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::Event::Fail - Event for a simple failed assertion =head1 DESCRIPTION This is an optimal representation of a failed assertion. =head1 SYNOPSIS use Test2::API qw/context/; sub fail { my ($name) = @_; my $ctx = context(); $ctx->fail($name); $ctx->release; } =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! ���U� � 5.34.0/Test2/Event/Pass.pmnu �[��� package Test2::Event::Pass; use strict; use warnings; our $VERSION = '1.302183'; use Test2::EventFacet::Info; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event); *META_KEY = \&Test2::Util::ExternalMeta::META_KEY; } use Test2::Util::HashBase qw{ -name -info }; ############## # Old API sub summary { "pass" } sub increments_count { 1 } sub causes_fail { 0 } sub diagnostics { 0 } sub no_display { 0 } sub subtest_id { undef } sub terminate { () } sub global { () } sub sets_plan { () } ############## # New API sub add_info { my $self = shift; for my $in (@_) { $in = {%$in} if ref($in) ne 'ARRAY'; $in = Test2::EventFacet::Info->new($in); push @{$self->{+INFO}} => $in; } } sub facet_data { my $self = shift; my $out = $self->common_facet_data; $out->{about}->{details} = 'pass'; $out->{assert} = {pass => 1, details => $self->{+NAME}}; $out->{info} = [map {{ %{$_} }} @{$self->{+INFO}}] if $self->{+INFO}; return $out; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::Event::Pass - Event for a simple passing assertion =head1 DESCRIPTION This is an optimal representation of a passing assertion. =head1 SYNOPSIS use Test2::API qw/context/; sub pass { my ($name) = @_; my $ctx = context(); $ctx->pass($name); $ctx->release; } =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! ��Ry� � 5.34.0/Test2/Event/Waiting.pmnu �[��� package Test2::Event::Waiting; use strict; use warnings; our $VERSION = '1.302183'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } use Test2::Util::HashBase; sub global { 1 }; sub summary { "IPC is waiting for children to finish..." } sub facet_data { my $self = shift; my $out = $self->common_facet_data; push @{$out->{info}} => { tag => 'INFO', debug => 0, details => $self->summary, }; return $out; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::Event::Waiting - Tell all procs/threads it is time to be done =head1 DESCRIPTION This event has no data of its own. This event is sent out by the IPC system when the main process/thread is ready to end. =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! 8��� � 5.34.0/Test2/Event/Encoding.pmnu �[��� package Test2::Event::Encoding; use strict; use warnings; our $VERSION = '1.302183'; use Carp qw/croak/; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } use Test2::Util::HashBase qw/encoding/; sub init { my $self = shift; defined $self->{+ENCODING} or croak "'encoding' is a required attribute"; } sub summary { 'Encoding set to ' . $_[0]->{+ENCODING} } sub facet_data { my $self = shift; my $out = $self->common_facet_data; $out->{control}->{encoding} = $self->{+ENCODING}; $out->{about}->{details} = $self->summary; return $out; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::Event::Encoding - Set the encoding for the output stream =head1 DESCRIPTION The encoding event is generated when a test file wants to specify the encoding to be used when formatting its output. This event is intended to be produced by formatter classes and used for interpreting test names, message contents, etc. =head1 SYNOPSIS use Test2::API qw/context/; use Test2::Event::Encoding; my $ctx = context(); my $event = $ctx->send_event('Encoding', encoding => 'UTF-8'); =head1 METHODS Inherits from L<Test2::Event>. Also defines: =over 4 =item $encoding = $e->encoding The encoding being specified. =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! ��Ll l ! 5.34.0/Test2/Event/TAP/Version.pmnu �[��� package Test2::Event::TAP::Version; use strict; use warnings; our $VERSION = '1.302183'; use Carp qw/croak/; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } use Test2::Util::HashBase qw/version/; sub init { my $self = shift; defined $self->{+VERSION} or croak "'version' is a required attribute"; } sub summary { 'TAP version ' . $_[0]->{+VERSION} } sub facet_data { my $self = shift; my $out = $self->common_facet_data; $out->{about}->{details} = $self->summary; push @{$out->{info}} => { tag => 'INFO', debug => 0, details => $self->summary, }; return $out; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::Event::TAP::Version - Event for TAP version. =head1 DESCRIPTION This event is used if a TAP formatter wishes to set a version. =head1 SYNOPSIS use Test2::API qw/context/; use Test2::Event::Encoding; my $ctx = context(); my $event = $ctx->send_event('TAP::Version', version => 42); =head1 METHODS Inherits from L<Test2::Event>. Also defines: =over 4 =item $version = $e->version The TAP version being parsed. =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! v]_�< < 5.34.0/Test2/Event/Plan.pmnu �[��� package Test2::Event::Plan; use strict; use warnings; our $VERSION = '1.302183'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } use Test2::Util::HashBase qw{max directive reason}; use Carp qw/confess/; my %ALLOWED = ( 'SKIP' => 1, 'NO PLAN' => 1, ); sub init { if ($_[0]->{+DIRECTIVE}) { $_[0]->{+DIRECTIVE} = 'SKIP' if $_[0]->{+DIRECTIVE} eq 'skip_all'; $_[0]->{+DIRECTIVE} = 'NO PLAN' if $_[0]->{+DIRECTIVE} eq 'no_plan'; confess "'" . $_[0]->{+DIRECTIVE} . "' is not a valid plan directive" unless $ALLOWED{$_[0]->{+DIRECTIVE}}; } else { confess "Cannot have a reason without a directive!" if defined $_[0]->{+REASON}; confess "No number of tests specified" unless defined $_[0]->{+MAX}; confess "Plan test count '" . $_[0]->{+MAX} . "' does not appear to be a valid positive integer" unless $_[0]->{+MAX} =~ m/^\d+$/; $_[0]->{+DIRECTIVE} = ''; } } sub sets_plan { my $self = shift; return ( $self->{+MAX}, $self->{+DIRECTIVE}, $self->{+REASON}, ); } sub terminate { my $self = shift; # On skip_all we want to terminate the hub return 0 if $self->{+DIRECTIVE} && $self->{+DIRECTIVE} eq 'SKIP'; return undef; } sub summary { my $self = shift; my $max = $self->{+MAX}; my $directive = $self->{+DIRECTIVE}; my $reason = $self->{+REASON}; return "Plan is $max assertions" if $max || !$directive; return "Plan is '$directive', $reason" if $reason; return "Plan is '$directive'"; } sub facet_data { my $self = shift; my $out = $self->common_facet_data; $out->{control}->{terminate} = $self->{+DIRECTIVE} eq 'SKIP' ? 0 : undef unless defined $out->{control}->{terminate}; $out->{plan} = {count => $self->{+MAX}}; $out->{plan}->{details} = $self->{+REASON} if defined $self->{+REASON}; if (my $dir = $self->{+DIRECTIVE}) { $out->{plan}->{skip} = 1 if $dir eq 'SKIP'; $out->{plan}->{none} = 1 if $dir eq 'NO PLAN'; } return $out; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::Event::Plan - The event of a plan =head1 DESCRIPTION Plan events are fired off whenever a plan is declared, done testing is called, or a subtext completes. =head1 SYNOPSIS use Test2::API qw/context/; use Test2::Event::Plan; my $ctx = context(); # Plan for 10 tests to run my $event = $ctx->plan(10); # Plan to skip all tests (will exit 0) $ctx->plan(0, skip_all => "These tests need to be skipped"); =head1 ACCESSORS =over 4 =item $num = $plan->max Get the number of expected tests =item $dir = $plan->directive Get the directive (such as TODO, skip_all, or no_plan). =item $reason = $plan->reason Get the reason for the directive. =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! +��~� � 5.34.0/Test2/Event/Skip.pmnu �[��� package Test2::Event::Skip; use strict; use warnings; our $VERSION = '1.302183'; BEGIN { require Test2::Event::Ok; our @ISA = qw(Test2::Event::Ok) } use Test2::Util::HashBase qw{reason}; sub init { my $self = shift; $self->SUPER::init; $self->{+EFFECTIVE_PASS} = 1; } sub causes_fail { 0 } sub summary { my $self = shift; my $out = $self->SUPER::summary(@_); if (my $reason = $self->reason) { $out .= " (SKIP: $reason)"; } else { $out .= " (SKIP)"; } return $out; } sub extra_amnesty { my $self = shift; my @out; push @out => { tag => 'TODO', details => $self->{+TODO}, } if defined $self->{+TODO}; push @out => { tag => 'skip', details => $self->{+REASON}, inherited => 0, }; return @out; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::Event::Skip - Skip event type =head1 DESCRIPTION Skip events bump test counts just like L<Test2::Event::Ok> events, but they can never fail. =head1 SYNOPSIS use Test2::API qw/context/; use Test2::Event::Skip; my $ctx = context(); my $event = $ctx->skip($name, $reason); or: my $ctx = context(); my $event = $ctx->send_event( 'Skip', name => $name, reason => $reason, ); =head1 ACCESSORS =over 4 =item $reason = $e->reason The original true/false value of whatever was passed into the event (but reduced down to 1 or 0). =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://www.perl.com/perl/misc/Artistic.html> =cut PK ! ���H+ + 5.34.0/Test2/Event/V2.pmnu �[��� package Test2::Event::V2; use strict; use warnings; our $VERSION = '1.302183'; use Scalar::Util qw/reftype/; use Carp qw/croak/; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } use Test2::Util::Facets2Legacy qw{ causes_fail diagnostics global increments_count no_display sets_plan subtest_id summary terminate }; use Test2::Util::HashBase qw/-about/; sub non_facet_keys { return ( +UUID, Test2::Util::ExternalMeta::META_KEY(), ); } sub init { my $self = shift; my $uuid; if ($uuid = $self->{+UUID}) { croak "uuid '$uuid' passed to constructor, but uuid '$self->{+ABOUT}->{uuid}' is already set in the 'about' facet" if $self->{+ABOUT}->{uuid} && $self->{+ABOUT}->{uuid} ne $uuid; $self->{+ABOUT}->{uuid} = $uuid; } elsif ($self->{+ABOUT} && $self->{+ABOUT}->{uuid}) { $uuid = $self->{+ABOUT}->{uuid}; $self->SUPER::set_uuid($uuid); } # Clone the trace, make sure it is blessed if (my $trace = $self->{+TRACE}) { $self->{+TRACE} = Test2::EventFacet::Trace->new(%$trace); } } sub set_uuid { my $self = shift; my ($uuid) = @_; $self->{+ABOUT}->{uuid} = $uuid; $self->SUPER::set_uuid($uuid); } sub facet_data { my $self = shift; my $f = { %{$self} }; delete $f->{$_} for $self->non_facet_keys; my %out; for my $k (keys %$f) { next if substr($k, 0, 1) eq '_'; my $data = $f->{$k} or next; # Key is there, but no facet my $is_list = 'ARRAY' eq (reftype($data) || ''); $out{$k} = $is_list ? [ map { {%{$_}} } @$data ] : {%$data}; } if (my $meta = $self->meta_facet_data) { $out{meta} = {%$meta, %{$out{meta} || {}}}; } return \%out; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::Event::V2 - Second generation event. =head1 DESCRIPTION This is the event type that should be used instead of L<Test2::Event> or its legacy subclasses. =head1 SYNOPSIS =head2 USING A CONTEXT use Test2::API qw/context/; sub my_tool { my $ctx = context(); my $event = $ctx->send_ev2(info => [{tag => 'NOTE', details => "This is a note"}]); $ctx->release; return $event; } =head2 USING THE CONSTRUCTOR use Test2::Event::V2; my $e = Test2::Event::V2->new( trace => {frame => [$PKG, $FILE, $LINE, $SUBNAME]}, info => [{tag => 'NOTE', details => "This is a note"}], ); =head1 METHODS This class inherits from L<Test2::Event>. =over 4 =item $fd = $e->facet_data() This will return a hashref of facet data. Each facet hash will be a shallow copy of the original. =item $about = $e->about() This will return the 'about' facet hashref. B<NOTE:> This will return the internal hashref, not a copy. =item $trace = $e->trace() This will return the 'trace' facet, normally blessed (but this is not enforced when the trace is set using C<set_trace()>. B<NOTE:> This will return the internal trace, not a copy. =back =head2 MUTATION =over 4 =item $e->add_amnesty({...}) Inherited from L<Test2::Event>. This can be used to add 'amnesty' facets to an existing event. Each new item is added to the B<END> of the list. B<NOTE:> Items B<ARE> blessed when added. =item $e->add_hub({...}) Inherited from L<Test2::Event>. This is used by hubs to stamp events as they pass through. New items are added to the B<START> of the list. B<NOTE:> Items B<ARE NOT> blessed when added. =item $e->set_uuid($UUID) Inherited from L<Test2::Event>, overridden to also vivify/mutate the 'about' facet. =item $e->set_trace($trace) Inherited from L<Test2::Event> which allows you to change the trace. B<Note:> This method does not bless/clone the trace for you. Many things will expect the trace to be blessed, so you should probably do that. =back =head2 LEGACY SUPPORT METHODS These are all imported from L<Test2::Util::Facets2Legacy>, see that module or L<Test2::Event> for documentation on what they do. =over 4 =item causes_fail =item diagnostics =item global =item increments_count =item no_display =item sets_plan =item subtest_id =item summary =item terminate =back =head1 THIRD PARTY META-DATA This object consumes L<Test2::Util::ExternalMeta> which provides a consistent way for you to attach meta-data to instances of this class. This is useful for tools, plugins, and other extensions. =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! �#�� � 5.34.0/Test2/Event/Bail.pmnu �[��� package Test2::Event::Bail; use strict; use warnings; our $VERSION = '1.302183'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } use Test2::Util::HashBase qw{reason buffered}; # Make sure the tests terminate sub terminate { 255 }; sub global { 1 }; sub causes_fail { 1 } sub summary { my $self = shift; return "Bail out! " . $self->{+REASON} if $self->{+REASON}; return "Bail out!"; } sub diagnostics { 1 } sub facet_data { my $self = shift; my $out = $self->common_facet_data; $out->{control} = { global => 1, halt => 1, details => $self->{+REASON}, terminate => 255, }; return $out; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::Event::Bail - Bailout! =head1 DESCRIPTION The bailout event is generated when things go horribly wrong and you need to halt all testing in the current file. =head1 SYNOPSIS use Test2::API qw/context/; use Test2::Event::Bail; my $ctx = context(); my $event = $ctx->bail('Stuff is broken'); =head1 METHODS Inherits from L<Test2::Event>. Also defines: =over 4 =item $reason = $e->reason The reason for the bailout. =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! p�i�Z Z 5.34.0/Test2/Event/Ok.pmnu �[��� package Test2::Event::Ok; use strict; use warnings; our $VERSION = '1.302183'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } use Test2::Util::HashBase qw{ pass effective_pass name todo }; sub init { my $self = shift; # Do not store objects here, only true or false $self->{+PASS} = $self->{+PASS} ? 1 : 0; $self->{+EFFECTIVE_PASS} = $self->{+PASS} || (defined($self->{+TODO}) ? 1 : 0); } { no warnings 'redefine'; sub set_todo { my $self = shift; my ($todo) = @_; $self->{+TODO} = $todo; $self->{+EFFECTIVE_PASS} = defined($todo) ? 1 : $self->{+PASS}; } } sub increments_count { 1 }; sub causes_fail { !$_[0]->{+EFFECTIVE_PASS} } sub summary { my $self = shift; my $name = $self->{+NAME} || "Nameless Assertion"; my $todo = $self->{+TODO}; if ($todo) { $name .= " (TODO: $todo)"; } elsif (defined $todo) { $name .= " (TODO)" } return $name; } sub extra_amnesty { my $self = shift; return unless defined($self->{+TODO}) || ($self->{+EFFECTIVE_PASS} && !$self->{+PASS}); return { tag => 'TODO', details => $self->{+TODO}, }; } sub facet_data { my $self = shift; my $out = $self->common_facet_data; $out->{assert} = { no_debug => 1, # Legacy behavior pass => $self->{+PASS}, details => $self->{+NAME}, }; if (my @exra_amnesty = $self->extra_amnesty) { my %seen; # It is possible the extra amnesty can be a duplicate, so filter it. $out->{amnesty} = [ grep { !$seen{defined($_->{tag}) ? $_->{tag} : ''}->{defined($_->{details}) ? $_->{details} : ''}++ } @exra_amnesty, @{$out->{amnesty}}, ]; } return $out; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::Event::Ok - Ok event type =head1 DESCRIPTION Ok events are generated whenever you run a test that produces a result. Examples are C<ok()>, and C<is()>. =head1 SYNOPSIS use Test2::API qw/context/; use Test2::Event::Ok; my $ctx = context(); my $event = $ctx->ok($bool, $name, \@diag); or: my $ctx = context(); my $event = $ctx->send_event( 'Ok', pass => $bool, name => $name, ); =head1 ACCESSORS =over 4 =item $rb = $e->pass The original true/false value of whatever was passed into the event (but reduced down to 1 or 0). =item $name = $e->name Name of the test. =item $b = $e->effective_pass This is the true/false value of the test after TODO and similar modifiers are taken into account. =back =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! 3�w�+ �+ 5.34.0/File/Basename.pmnu �[��� =head1 NAME File::Basename - Parse file paths into directory, filename and suffix. =head1 SYNOPSIS use File::Basename; ($name,$path,$suffix) = fileparse($fullname,@suffixlist); $name = fileparse($fullname,@suffixlist); $basename = basename($fullname,@suffixlist); $dirname = dirname($fullname); =head1 DESCRIPTION These routines allow you to parse file paths into their directory, filename and suffix. B<NOTE>: C<dirname()> and C<basename()> emulate the behaviours, and quirks, of the shell and C functions of the same name. See each function's documentation for details. If your concern is just parsing paths it is safer to use L<File::Spec>'s C<splitpath()> and C<splitdir()> methods. It is guaranteed that # Where $path_separator is / for Unix, \ for Windows, etc... dirname($path) . $path_separator . basename($path); is equivalent to the original path for all systems but VMS. =cut package File::Basename; # File::Basename is used during the Perl build, when the re extension may # not be available, but we only actually need it if running under tainting. BEGIN { if (${^TAINT}) { require re; re->import('taint'); } } use strict; use 5.006; use warnings; our(@ISA, @EXPORT, $VERSION, $Fileparse_fstype, $Fileparse_igncase); require Exporter; @ISA = qw(Exporter); @EXPORT = qw(fileparse fileparse_set_fstype basename dirname); $VERSION = "2.85"; fileparse_set_fstype($^O); =over 4 =item C<fileparse> X<fileparse> my($filename, $dirs, $suffix) = fileparse($path); my($filename, $dirs, $suffix) = fileparse($path, @suffixes); my $filename = fileparse($path, @suffixes); The C<fileparse()> routine divides a file path into its $dirs, $filename and (optionally) the filename $suffix. $dirs contains everything up to and including the last directory separator in the $path including the volume (if applicable). The remainder of the $path is the $filename. # On Unix returns ("baz", "/foo/bar/", "") fileparse("/foo/bar/baz"); # On Windows returns ("baz", 'C:\foo\bar\', "") fileparse('C:\foo\bar\baz'); # On Unix returns ("", "/foo/bar/baz/", "") fileparse("/foo/bar/baz/"); If @suffixes are given each element is a pattern (either a string or a C<qr//>) matched against the end of the $filename. The matching portion is removed and becomes the $suffix. # On Unix returns ("baz", "/foo/bar/", ".txt") fileparse("/foo/bar/baz.txt", qr/\.[^.]*/); If type is non-Unix (see L</fileparse_set_fstype>) then the pattern matching for suffix removal is performed case-insensitively, since those systems are not case-sensitive when opening existing files. You are guaranteed that C<$dirs . $filename . $suffix> will denote the same location as the original $path. =cut sub fileparse { my($fullname,@suffices) = @_; unless (defined $fullname) { require Carp; Carp::croak("fileparse(): need a valid pathname"); } my $orig_type = ''; my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase); my($taint) = substr($fullname,0,0); # Is $fullname tainted? if ($type eq "VMS" and $fullname =~ m{/} ) { # We're doing Unix emulation $orig_type = $type; $type = 'Unix'; } my($dirpath, $basename); if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) { ($dirpath,$basename) = ($fullname =~ /^((?:.*[:\\\/])?)(.*)/s); $dirpath .= '.\\' unless $dirpath =~ /[\\\/]\z/; } elsif ($type eq "OS2") { ($dirpath,$basename) = ($fullname =~ m#^((?:.*[:\\/])?)(.*)#s); $dirpath = './' unless $dirpath; # Can't be 0 $dirpath .= '/' unless $dirpath =~ m#[\\/]\z#; } elsif ($type eq "MacOS") { ($dirpath,$basename) = ($fullname =~ /^(.*:)?(.*)/s); $dirpath = ':' unless $dirpath; } elsif ($type eq "AmigaOS") { ($dirpath,$basename) = ($fullname =~ /(.*[:\/])?(.*)/s); $dirpath = './' unless $dirpath; } elsif ($type eq 'VMS' ) { ($dirpath,$basename) = ($fullname =~ /^(.*[:>\]])?(.*)/s); $dirpath ||= ''; # should always be defined } else { # Default to Unix semantics. ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s); if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) { # dev:[000000] is top of VMS tree, similar to Unix '/' # so strip it off and treat the rest as "normal" my $devspec = $1; my $remainder = $3; ($dirpath,$basename) = ($remainder =~ m{^(.*/)?(.*)}s); $dirpath ||= ''; # should always be defined $dirpath = $devspec.$dirpath; } $dirpath = './' unless $dirpath; } my $tail = ''; my $suffix = ''; if (@suffices) { foreach $suffix (@suffices) { my $pat = ($igncase ? '(?i)' : '') . "($suffix)\$"; if ($basename =~ s/$pat//s) { $taint .= substr($suffix,0,0); $tail = $1 . $tail; } } } # Ensure taint is propagated from the path to its pieces. $tail .= $taint; wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail) : ($basename .= $taint); } =item C<basename> X<basename> X<filename> my $filename = basename($path); my $filename = basename($path, @suffixes); This function is provided for compatibility with the Unix shell command C<basename(1)>. It does B<NOT> always return the file name portion of a path as you might expect. To be safe, if you want the file name portion of a path use C<fileparse()>. C<basename()> returns the last level of a filepath even if the last level is clearly directory. In effect, it is acting like C<pop()> for paths. This differs from C<fileparse()>'s behaviour. # Both return "bar" basename("/foo/bar"); basename("/foo/bar/"); @suffixes work as in C<fileparse()> except all regex metacharacters are quoted. # These two function calls are equivalent. my $filename = basename("/foo/bar/baz.txt", ".txt"); my $filename = fileparse("/foo/bar/baz.txt", qr/\Q.txt\E/); Also note that in order to be compatible with the shell command, C<basename()> does not strip off a suffix if it is identical to the remaining characters in the filename. =cut sub basename { my($path) = shift; # From BSD basename(1) # The basename utility deletes any prefix ending with the last slash '/' # character present in string (after first stripping trailing slashes) _strip_trailing_sep($path); my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) ); # From BSD basename(1) # The suffix is not stripped if it is identical to the remaining # characters in string. if( length $suffix and !length $basename ) { $basename = $suffix; } # Ensure that basename '/' == '/' if( !length $basename ) { $basename = $dirname; } return $basename; } =item C<dirname> X<dirname> This function is provided for compatibility with the Unix shell command C<dirname(1)> and has inherited some of its quirks. In spite of its name it does B<NOT> always return the directory name as you might expect. To be safe, if you want the directory name of a path use C<fileparse()>. Only on VMS (where there is no ambiguity between the file and directory portions of a path) and AmigaOS (possibly due to an implementation quirk in this module) does C<dirname()> work like C<fileparse($path)>, returning just the $dirs. # On VMS and AmigaOS my $dirs = dirname($path); When using Unix or MSDOS syntax this emulates the C<dirname(1)> shell function which is subtly different from how C<fileparse()> works. It returns all but the last level of a file path even if the last level is clearly a directory. In effect, it is not returning the directory portion but simply the path one level up acting like C<chop()> for file paths. Also unlike C<fileparse()>, C<dirname()> does not include a trailing slash on its returned path. # returns /foo/bar. fileparse() would return /foo/bar/ dirname("/foo/bar/baz"); # also returns /foo/bar despite the fact that baz is clearly a # directory. fileparse() would return /foo/bar/baz/ dirname("/foo/bar/baz/"); # returns '.'. fileparse() would return 'foo/' dirname("foo/"); Under VMS, if there is no directory information in the $path, then the current default device and directory is used. =cut sub dirname { my $path = shift; my($type) = $Fileparse_fstype; if( $type eq 'VMS' and $path =~ m{/} ) { # Parse as Unix local($File::Basename::Fileparse_fstype) = ''; return dirname($path); } my($basename, $dirname) = fileparse($path); if ($type eq 'VMS') { $dirname ||= $ENV{DEFAULT}; } elsif ($type eq 'MacOS') { if( !length($basename) && $dirname !~ /^[^:]+:\z/) { _strip_trailing_sep($dirname); ($basename,$dirname) = fileparse $dirname; } $dirname .= ":" unless $dirname =~ /:\z/; } elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { _strip_trailing_sep($dirname); unless( length($basename) ) { ($basename,$dirname) = fileparse $dirname; _strip_trailing_sep($dirname); } } elsif ($type eq 'AmigaOS') { if ( $dirname =~ /:\z/) { return $dirname } chop $dirname; $dirname =~ s{[^:/]+\z}{} unless length($basename); } else { _strip_trailing_sep($dirname); unless( length($basename) ) { ($basename,$dirname) = fileparse $dirname; _strip_trailing_sep($dirname); } } $dirname; } # Strip the trailing path separator. sub _strip_trailing_sep { my $type = $Fileparse_fstype; if ($type eq 'MacOS') { $_[0] =~ s/([^:]):\z/$1/s; } elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { $_[0] =~ s/([^:])[\\\/]*\z/$1/; } else { $_[0] =~ s{(.)/*\z}{$1}s; } } =item C<fileparse_set_fstype> X<filesystem> my $type = fileparse_set_fstype(); my $previous_type = fileparse_set_fstype($type); Normally File::Basename will assume a file path type native to your current operating system (ie. /foo/bar style on Unix, \foo\bar on Windows, etc...). With this function you can override that assumption. Valid $types are "MacOS", "VMS", "AmigaOS", "OS2", "RISCOS", "MSWin32", "DOS" (also "MSDOS" for backwards bug compatibility), "Epoc" and "Unix" (all case-insensitive). If an unrecognized $type is given "Unix" will be assumed. If you've selected VMS syntax, and the file specification you pass to one of these routines contains a "/", they assume you are using Unix emulation and apply the Unix syntax rules instead, for that function call only. =back =cut BEGIN { my @Ignore_Case = qw(MacOS VMS AmigaOS OS2 RISCOS MSWin32 MSDOS DOS Epoc); my @Types = (@Ignore_Case, qw(Unix)); sub fileparse_set_fstype { my $old = $Fileparse_fstype; if (@_) { my $new_type = shift; $Fileparse_fstype = 'Unix'; # default foreach my $type (@Types) { $Fileparse_fstype = $type if $new_type =~ /^$type/i; } $Fileparse_igncase = (grep $Fileparse_fstype eq $_, @Ignore_Case) ? 1 : 0; } return $old; } } 1; =head1 SEE ALSO L<dirname(1)>, L<basename(1)>, L<File::Spec> PK ! �tڪ� � 5.34.0/File/Compare.pmnu �[��� package File::Compare; use 5.006; use strict; use warnings; our($VERSION, @ISA, @EXPORT, @EXPORT_OK, $Too_Big); require Exporter; $VERSION = '1.1006'; @ISA = qw(Exporter); @EXPORT = qw(compare); @EXPORT_OK = qw(cmp compare_text); $Too_Big = 1024 * 1024 * 2; sub croak { require Carp; goto &Carp::croak; } sub compare { croak("Usage: compare( file1, file2 [, buffersize]) ") unless(@_ == 2 || @_ == 3); my ($from,$to,$size) = @_; my $text_mode = defined($size) && (ref($size) eq 'CODE' || $size < 0); my ($fromsize,$closefrom,$closeto); local (*FROM, *TO); croak("from undefined") unless (defined $from); croak("to undefined") unless (defined $to); if (ref($from) && (UNIVERSAL::isa($from,'GLOB') || UNIVERSAL::isa($from,'IO::Handle'))) { *FROM = *$from; } elsif (ref(\$from) eq 'GLOB') { *FROM = $from; } else { open(FROM,"<",$from) or goto fail_open1; unless ($text_mode) { binmode FROM; $fromsize = -s FROM; } $closefrom = 1; } if (ref($to) && (UNIVERSAL::isa($to,'GLOB') || UNIVERSAL::isa($to,'IO::Handle'))) { *TO = *$to; } elsif (ref(\$to) eq 'GLOB') { *TO = $to; } else { open(TO,"<",$to) or goto fail_open2; binmode TO unless $text_mode; $closeto = 1; } if (!$text_mode && $closefrom && $closeto) { # If both are opened files we know they differ if their size differ goto fail_inner if $fromsize != -s TO; } if ($text_mode) { local $/ = "\n"; my ($fline,$tline); while (defined($fline = <FROM>)) { goto fail_inner unless defined($tline = <TO>); if (ref $size) { # $size contains ref to comparison function goto fail_inner if &$size($fline, $tline); } else { goto fail_inner if $fline ne $tline; } } goto fail_inner if defined($tline = <TO>); } else { unless (defined($size) && $size > 0) { $size = $fromsize || -s TO || 0; $size = 1024 if $size < 512; $size = $Too_Big if $size > $Too_Big; } my ($fr,$tr,$fbuf,$tbuf); $fbuf = $tbuf = ''; while(defined($fr = read(FROM,$fbuf,$size)) && $fr > 0) { unless (defined($tr = read(TO,$tbuf,$fr)) && $tbuf eq $fbuf) { goto fail_inner; } } goto fail_inner if defined($tr = read(TO,$tbuf,$size)) && $tr > 0; } close(TO) || goto fail_open2 if $closeto; close(FROM) || goto fail_open1 if $closefrom; return 0; # All of these contortions try to preserve error messages... fail_inner: close(TO) || goto fail_open2 if $closeto; close(FROM) || goto fail_open1 if $closefrom; return 1; fail_open2: if ($closefrom) { my $status = $!; $! = 0; close FROM; $! = $status unless $!; } fail_open1: return -1; } sub cmp; *cmp = \&compare; sub compare_text { my ($from,$to,$cmp) = @_; croak("Usage: compare_text( file1, file2 [, cmp-function])") unless @_ == 2 || @_ == 3; croak("Third arg to compare_text() function must be a code reference") if @_ == 3 && ref($cmp) ne 'CODE'; # Using a negative buffer size puts compare into text_mode too $cmp = -1 unless defined $cmp; compare($from, $to, $cmp); } 1; __END__ =head1 NAME File::Compare - Compare files or filehandles =head1 SYNOPSIS use File::Compare; if (compare("file1","file2") == 0) { print "They're equal\n"; } =head1 DESCRIPTION The File::Compare::compare function compares the contents of two sources, each of which can be a file or a file handle. It is exported from File::Compare by default. File::Compare::cmp is a synonym for File::Compare::compare. It is exported from File::Compare only by request. File::Compare::compare_text does a line by line comparison of the two files. It stops as soon as a difference is detected. compare_text() accepts an optional third argument: This must be a CODE reference to a line comparison function, which returns 0 when both lines are considered equal. For example: compare_text($file1, $file2) is basically equivalent to compare_text($file1, $file2, sub {$_[0] ne $_[1]} ) =head1 RETURN File::Compare::compare and its sibling functions return 0 if the files are equal, 1 if the files are unequal, or -1 if an error was encountered. =head1 AUTHOR File::Compare was written by Nick Ing-Simmons. Its original documentation was written by Chip Salzenberg. =cut PK ! nh��� �� 5.34.0/File/Path.pmnu �[��� package File::Path; use 5.005_04; use strict; use Cwd 'getcwd'; use File::Basename (); use File::Spec (); BEGIN { if ( $] < 5.006 ) { # can't say 'opendir my $dh, $dirname' # need to initialise $dh eval 'use Symbol'; } } use Exporter (); use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); $VERSION = '2.18'; $VERSION = eval $VERSION; @ISA = qw(Exporter); @EXPORT = qw(mkpath rmtree); @EXPORT_OK = qw(make_path remove_tree); BEGIN { for (qw(VMS MacOS MSWin32 os2)) { no strict 'refs'; *{"_IS_\U$_"} = $^O eq $_ ? sub () { 1 } : sub () { 0 }; } # These OSes complain if you want to remove a file that you have no # write permission to: *_FORCE_WRITABLE = ( grep { $^O eq $_ } qw(amigaos dos epoc MSWin32 MacOS os2) ) ? sub () { 1 } : sub () { 0 }; # Unix-like systems need to stat each directory in order to detect # race condition. MS-Windows is immune to this particular attack. *_NEED_STAT_CHECK = !(_IS_MSWIN32()) ? sub () { 1 } : sub () { 0 }; } sub _carp { require Carp; goto &Carp::carp; } sub _croak { require Carp; goto &Carp::croak; } sub _error { my $arg = shift; my $message = shift; my $object = shift; if ( $arg->{error} ) { $object = '' unless defined $object; $message .= ": $!" if $!; push @{ ${ $arg->{error} } }, { $object => $message }; } else { _carp( defined($object) ? "$message for $object: $!" : "$message: $!" ); } } sub __is_arg { my ($arg) = @_; # If client code blessed an array ref to HASH, this will not work # properly. We could have done $arg->isa() wrapped in eval, but # that would be expensive. This implementation should suffice. # We could have also used Scalar::Util:blessed, but we choose not # to add this dependency return ( ref $arg eq 'HASH' ); } sub make_path { push @_, {} unless @_ and __is_arg( $_[-1] ); goto &mkpath; } sub mkpath { my $old_style = !( @_ and __is_arg( $_[-1] ) ); my $data; my $paths; if ($old_style) { my ( $verbose, $mode ); ( $paths, $verbose, $mode ) = @_; $paths = [$paths] unless UNIVERSAL::isa( $paths, 'ARRAY' ); $data->{verbose} = $verbose; $data->{mode} = defined $mode ? $mode : oct '777'; } else { my %args_permitted = map { $_ => 1 } ( qw| chmod error group mask mode owner uid user verbose | ); my %not_on_win32_args = map { $_ => 1 } ( qw| group owner uid user | ); my @bad_args = (); my @win32_implausible_args = (); my $arg = pop @_; for my $k (sort keys %{$arg}) { if (! $args_permitted{$k}) { push @bad_args, $k; } elsif ($not_on_win32_args{$k} and _IS_MSWIN32) { push @win32_implausible_args, $k; } else { $data->{$k} = $arg->{$k}; } } _carp("Unrecognized option(s) passed to mkpath() or make_path(): @bad_args") if @bad_args; _carp("Option(s) implausible on Win32 passed to mkpath() or make_path(): @win32_implausible_args") if @win32_implausible_args; $data->{mode} = delete $data->{mask} if exists $data->{mask}; $data->{mode} = oct '777' unless exists $data->{mode}; ${ $data->{error} } = [] if exists $data->{error}; unless (@win32_implausible_args) { $data->{owner} = delete $data->{user} if exists $data->{user}; $data->{owner} = delete $data->{uid} if exists $data->{uid}; if ( exists $data->{owner} and $data->{owner} =~ /\D/ ) { my $uid = ( getpwnam $data->{owner} )[2]; if ( defined $uid ) { $data->{owner} = $uid; } else { _error( $data, "unable to map $data->{owner} to a uid, ownership not changed" ); delete $data->{owner}; } } if ( exists $data->{group} and $data->{group} =~ /\D/ ) { my $gid = ( getgrnam $data->{group} )[2]; if ( defined $gid ) { $data->{group} = $gid; } else { _error( $data, "unable to map $data->{group} to a gid, group ownership not changed" ); delete $data->{group}; } } if ( exists $data->{owner} and not exists $data->{group} ) { $data->{group} = -1; # chown will leave group unchanged } if ( exists $data->{group} and not exists $data->{owner} ) { $data->{owner} = -1; # chown will leave owner unchanged } } $paths = [@_]; } return _mkpath( $data, $paths ); } sub _mkpath { my $data = shift; my $paths = shift; my ( @created ); foreach my $path ( @{$paths} ) { next unless defined($path) and length($path); $path .= '/' if _IS_OS2 and $path =~ /^\w:\z/s; # feature of CRT # Logic wants Unix paths, so go with the flow. if (_IS_VMS) { next if $path eq '/'; $path = VMS::Filespec::unixify($path); } next if -d $path; my $parent = File::Basename::dirname($path); # Coverage note: It's not clear how we would test the condition: # '-d $parent or $path eq $parent' unless ( -d $parent or $path eq $parent ) { push( @created, _mkpath( $data, [$parent] ) ); } print "mkdir $path\n" if $data->{verbose}; if ( mkdir( $path, $data->{mode} ) ) { push( @created, $path ); if ( exists $data->{owner} ) { # NB: $data->{group} guaranteed to be set during initialisation if ( !chown $data->{owner}, $data->{group}, $path ) { _error( $data, "Cannot change ownership of $path to $data->{owner}:$data->{group}" ); } } if ( exists $data->{chmod} ) { # Coverage note: It's not clear how we would trigger the next # 'if' block. Failure of 'chmod' might first result in a # system error: "Permission denied". if ( !chmod $data->{chmod}, $path ) { _error( $data, "Cannot change permissions of $path to $data->{chmod}" ); } } } else { my $save_bang = $!; # From 'perldoc perlvar': $EXTENDED_OS_ERROR ($^E) is documented # as: # Error information specific to the current operating system. At the # moment, this differs from "$!" under only VMS, OS/2, and Win32 # (and for MacPerl). On all other platforms, $^E is always just the # same as $!. my ( $e, $e1 ) = ( $save_bang, $^E ); $e .= "; $e1" if $e ne $e1; # allow for another process to have created it meanwhile if ( ! -d $path ) { $! = $save_bang; if ( $data->{error} ) { push @{ ${ $data->{error} } }, { $path => $e }; } else { _croak("mkdir $path: $e"); } } } } return @created; } sub remove_tree { push @_, {} unless @_ and __is_arg( $_[-1] ); goto &rmtree; } sub _is_subdir { my ( $dir, $test ) = @_; my ( $dv, $dd ) = File::Spec->splitpath( $dir, 1 ); my ( $tv, $td ) = File::Spec->splitpath( $test, 1 ); # not on same volume return 0 if $dv ne $tv; my @d = File::Spec->splitdir($dd); my @t = File::Spec->splitdir($td); # @t can't be a subdir if it's shorter than @d return 0 if @t < @d; return join( '/', @d ) eq join( '/', splice @t, 0, +@d ); } sub rmtree { my $old_style = !( @_ and __is_arg( $_[-1] ) ); my ($arg, $data, $paths); if ($old_style) { my ( $verbose, $safe ); ( $paths, $verbose, $safe ) = @_; $data->{verbose} = $verbose; $data->{safe} = defined $safe ? $safe : 0; if ( defined($paths) and length($paths) ) { $paths = [$paths] unless UNIVERSAL::isa( $paths, 'ARRAY' ); } else { _carp("No root path(s) specified\n"); return 0; } } else { my %args_permitted = map { $_ => 1 } ( qw| error keep_root result safe verbose | ); my @bad_args = (); my $arg = pop @_; for my $k (sort keys %{$arg}) { if (! $args_permitted{$k}) { push @bad_args, $k; } else { $data->{$k} = $arg->{$k}; } } _carp("Unrecognized option(s) passed to remove_tree(): @bad_args") if @bad_args; ${ $data->{error} } = [] if exists $data->{error}; ${ $data->{result} } = [] if exists $data->{result}; # Wouldn't it make sense to do some validation on @_ before assigning # to $paths here? # In the $old_style case we guarantee that each path is both defined # and non-empty. We don't check that here, which means we have to # check it later in the first condition in this line: # if ( $ortho_root_length && _is_subdir( $ortho_root, $ortho_cwd ) ) { # Granted, that would be a change in behavior for the two # non-old-style interfaces. $paths = [@_]; } $data->{prefix} = ''; $data->{depth} = 0; my @clean_path; $data->{cwd} = getcwd() or do { _error( $data, "cannot fetch initial working directory" ); return 0; }; for ( $data->{cwd} ) { /\A(.*)\Z/s; $_ = $1 } # untaint for my $p (@$paths) { # need to fixup case and map \ to / on Windows my $ortho_root = _IS_MSWIN32 ? _slash_lc($p) : $p; my $ortho_cwd = _IS_MSWIN32 ? _slash_lc( $data->{cwd} ) : $data->{cwd}; my $ortho_root_length = length($ortho_root); $ortho_root_length-- if _IS_VMS; # don't compare '.' with ']' if ( $ortho_root_length && _is_subdir( $ortho_root, $ortho_cwd ) ) { local $! = 0; _error( $data, "cannot remove path when cwd is $data->{cwd}", $p ); next; } if (_IS_MACOS) { $p = ":$p" unless $p =~ /:/; $p .= ":" unless $p =~ /:\z/; } elsif ( _IS_MSWIN32 ) { $p =~ s{[/\\]\z}{}; } else { $p =~ s{/\z}{}; } push @clean_path, $p; } @{$data}{qw(device inode)} = ( lstat $data->{cwd} )[ 0, 1 ] or do { _error( $data, "cannot stat initial working directory", $data->{cwd} ); return 0; }; return _rmtree( $data, \@clean_path ); } sub _rmtree { my $data = shift; my $paths = shift; my $count = 0; my $curdir = File::Spec->curdir(); my $updir = File::Spec->updir(); my ( @files, $root ); ROOT_DIR: foreach my $root (@$paths) { # since we chdir into each directory, it may not be obvious # to figure out where we are if we generate a message about # a file name. We therefore construct a semi-canonical # filename, anchored from the directory being unlinked (as # opposed to being truly canonical, anchored from the root (/). my $canon = $data->{prefix} ? File::Spec->catfile( $data->{prefix}, $root ) : $root; my ( $ldev, $lino, $perm ) = ( lstat $root )[ 0, 1, 2 ] or next ROOT_DIR; if ( -d _ ) { $root = VMS::Filespec::vmspath( VMS::Filespec::pathify($root) ) if _IS_VMS; if ( !chdir($root) ) { # see if we can escalate privileges to get in # (e.g. funny protection mask such as -w- instead of rwx) # This uses fchmod to avoid traversing outside of the proper # location (CVE-2017-6512) my $root_fh; if (open($root_fh, '<', $root)) { my ($fh_dev, $fh_inode) = (stat $root_fh )[0,1]; $perm &= oct '7777'; my $nperm = $perm | oct '700'; local $@; if ( !( $data->{safe} or $nperm == $perm or !-d _ or $fh_dev ne $ldev or $fh_inode ne $lino or eval { chmod( $nperm, $root_fh ) } ) ) { _error( $data, "cannot make child directory read-write-exec", $canon ); next ROOT_DIR; } close $root_fh; } if ( !chdir($root) ) { _error( $data, "cannot chdir to child", $canon ); next ROOT_DIR; } } my ( $cur_dev, $cur_inode, $perm ) = ( stat $curdir )[ 0, 1, 2 ] or do { _error( $data, "cannot stat current working directory", $canon ); next ROOT_DIR; }; if (_NEED_STAT_CHECK) { ( $ldev eq $cur_dev and $lino eq $cur_inode ) or _croak( "directory $canon changed before chdir, expected dev=$ldev ino=$lino, actual dev=$cur_dev ino=$cur_inode, aborting." ); } $perm &= oct '7777'; # don't forget setuid, setgid, sticky bits my $nperm = $perm | oct '700'; # notabene: 0700 is for making readable in the first place, # it's also intended to change it to writable in case we have # to recurse in which case we are better than rm -rf for # subtrees with strange permissions if ( !( $data->{safe} or $nperm == $perm or chmod( $nperm, $curdir ) ) ) { _error( $data, "cannot make directory read+writeable", $canon ); $nperm = $perm; } my $d; $d = gensym() if $] < 5.006; if ( !opendir $d, $curdir ) { _error( $data, "cannot opendir", $canon ); @files = (); } else { if ( !defined ${^TAINT} or ${^TAINT} ) { # Blindly untaint dir names if taint mode is active @files = map { /\A(.*)\z/s; $1 } readdir $d; } else { @files = readdir $d; } closedir $d; } if (_IS_VMS) { # Deleting large numbers of files from VMS Files-11 # filesystems is faster if done in reverse ASCIIbetical order. # include '.' to '.;' from blead patch #31775 @files = map { $_ eq '.' ? '.;' : $_ } reverse @files; } @files = grep { $_ ne $updir and $_ ne $curdir } @files; if (@files) { # remove the contained files before the directory itself my $narg = {%$data}; @{$narg}{qw(device inode cwd prefix depth)} = ( $cur_dev, $cur_inode, $updir, $canon, $data->{depth} + 1 ); $count += _rmtree( $narg, \@files ); } # restore directory permissions of required now (in case the rmdir # below fails), while we are still in the directory and may do so # without a race via '.' if ( $nperm != $perm and not chmod( $perm, $curdir ) ) { _error( $data, "cannot reset chmod", $canon ); } # don't leave the client code in an unexpected directory chdir( $data->{cwd} ) or _croak("cannot chdir to $data->{cwd} from $canon: $!, aborting."); # ensure that a chdir upwards didn't take us somewhere other # than we expected (see CVE-2002-0435) ( $cur_dev, $cur_inode ) = ( stat $curdir )[ 0, 1 ] or _croak( "cannot stat prior working directory $data->{cwd}: $!, aborting." ); if (_NEED_STAT_CHECK) { ( $data->{device} eq $cur_dev and $data->{inode} eq $cur_inode ) or _croak( "previous directory $data->{cwd} " . "changed before entering $canon, " . "expected dev=$ldev ino=$lino, " . "actual dev=$cur_dev ino=$cur_inode, aborting." ); } if ( $data->{depth} or !$data->{keep_root} ) { if ( $data->{safe} && ( _IS_VMS ? !&VMS::Filespec::candelete($root) : !-w $root ) ) { print "skipped $root\n" if $data->{verbose}; next ROOT_DIR; } if ( _FORCE_WRITABLE and !chmod $perm | oct '700', $root ) { _error( $data, "cannot make directory writeable", $canon ); } print "rmdir $root\n" if $data->{verbose}; if ( rmdir $root ) { push @{ ${ $data->{result} } }, $root if $data->{result}; ++$count; } else { _error( $data, "cannot remove directory", $canon ); if ( _FORCE_WRITABLE && !chmod( $perm, ( _IS_VMS ? VMS::Filespec::fileify($root) : $root ) ) ) { _error( $data, sprintf( "cannot restore permissions to 0%o", $perm ), $canon ); } } } } else { # not a directory $root = VMS::Filespec::vmsify("./$root") if _IS_VMS && !File::Spec->file_name_is_absolute($root) && ( $root !~ m/(?<!\^)[\]>]+/ ); # not already in VMS syntax if ( $data->{safe} && ( _IS_VMS ? !&VMS::Filespec::candelete($root) : !( -l $root || -w $root ) ) ) { print "skipped $root\n" if $data->{verbose}; next ROOT_DIR; } my $nperm = $perm & oct '7777' | oct '600'; if ( _FORCE_WRITABLE and $nperm != $perm and not chmod $nperm, $root ) { _error( $data, "cannot make file writeable", $canon ); } print "unlink $canon\n" if $data->{verbose}; # delete all versions under VMS for ( ; ; ) { if ( unlink $root ) { push @{ ${ $data->{result} } }, $root if $data->{result}; } else { _error( $data, "cannot unlink file", $canon ); _FORCE_WRITABLE and chmod( $perm, $root ) or _error( $data, sprintf( "cannot restore permissions to 0%o", $perm ), $canon ); last; } ++$count; last unless _IS_VMS && lstat $root; } } } return $count; } sub _slash_lc { # fix up slashes and case on MSWin32 so that we can determine that # c:\path\to\dir is underneath C:/Path/To my $path = shift; $path =~ tr{\\}{/}; return lc($path); } 1; __END__ =head1 NAME File::Path - Create or remove directory trees =head1 VERSION 2.18 - released November 4 2020. =head1 SYNOPSIS use File::Path qw(make_path remove_tree); @created = make_path('foo/bar/baz', '/zug/zwang'); @created = make_path('foo/bar/baz', '/zug/zwang', { verbose => 1, mode => 0711, }); make_path('foo/bar/baz', '/zug/zwang', { chmod => 0777, }); $removed_count = remove_tree('foo/bar/baz', '/zug/zwang', { verbose => 1, error => \my $err_list, safe => 1, }); # legacy (interface promoted before v2.00) @created = mkpath('/foo/bar/baz'); @created = mkpath('/foo/bar/baz', 1, 0711); @created = mkpath(['/foo/bar/baz', 'blurfl/quux'], 1, 0711); $removed_count = rmtree('foo/bar/baz', 1, 1); $removed_count = rmtree(['foo/bar/baz', 'blurfl/quux'], 1, 1); # legacy (interface promoted before v2.06) @created = mkpath('foo/bar/baz', '/zug/zwang', { verbose => 1, mode => 0711 }); $removed_count = rmtree('foo/bar/baz', '/zug/zwang', { verbose => 1, mode => 0711 }); =head1 DESCRIPTION This module provides a convenient way to create directories of arbitrary depth and to delete an entire directory subtree from the filesystem. The following functions are provided: =over =item make_path( $dir1, $dir2, .... ) =item make_path( $dir1, $dir2, ...., \%opts ) The C<make_path> function creates the given directories if they don't exist before, much like the Unix command C<mkdir -p>. The function accepts a list of directories to be created. Its behaviour may be tuned by an optional hashref appearing as the last parameter on the call. The function returns the list of directories actually created during the call; in scalar context the number of directories created. The following keys are recognised in the option hash: =over =item mode => $num The numeric permissions mode to apply to each created directory (defaults to C<0777>), to be modified by the current C<umask>. If the directory already exists (and thus does not need to be created), the permissions will not be modified. C<mask> is recognised as an alias for this parameter. =item chmod => $num Takes a numeric mode to apply to each created directory (not modified by the current C<umask>). If the directory already exists (and thus does not need to be created), the permissions will not be modified. =item verbose => $bool If present, will cause C<make_path> to print the name of each directory as it is created. By default nothing is printed. =item error => \$err If present, it should be a reference to a scalar. This scalar will be made to reference an array, which will be used to store any errors that are encountered. See the L</"ERROR HANDLING"> section for more information. If this parameter is not used, certain error conditions may raise a fatal error that will cause the program to halt, unless trapped in an C<eval> block. =item owner => $owner =item user => $owner =item uid => $owner If present, will cause any created directory to be owned by C<$owner>. If the value is numeric, it will be interpreted as a uid; otherwise a username is assumed. An error will be issued if the username cannot be mapped to a uid, the uid does not exist or the process lacks the privileges to change ownership. Ownership of directories that already exist will not be changed. C<user> and C<uid> are aliases of C<owner>. =item group => $group If present, will cause any created directory to be owned by the group C<$group>. If the value is numeric, it will be interpreted as a gid; otherwise a group name is assumed. An error will be issued if the group name cannot be mapped to a gid, the gid does not exist or the process lacks the privileges to change group ownership. Group ownership of directories that already exist will not be changed. make_path '/var/tmp/webcache', {owner=>'nobody', group=>'nogroup'}; =back =item mkpath( $dir ) =item mkpath( $dir, $verbose, $mode ) =item mkpath( [$dir1, $dir2,...], $verbose, $mode ) =item mkpath( $dir1, $dir2,..., \%opt ) The C<mkpath()> function provide the legacy interface of C<make_path()> with a different interpretation of the arguments passed. The behaviour and return value of the function is otherwise identical to C<make_path()>. =item remove_tree( $dir1, $dir2, .... ) =item remove_tree( $dir1, $dir2, ...., \%opts ) The C<remove_tree> function deletes the given directories and any files and subdirectories they might contain, much like the Unix command C<rm -rf> or the Windows commands C<rmdir /s> and C<rd /s>. The function accepts a list of directories to be removed. (In point of fact, it will also accept filesystem entries which are not directories, such as regular files and symlinks. But, as its name suggests, its intent is to remove trees rather than individual files.) C<remove_tree()>'s behaviour may be tuned by an optional hashref appearing as the last parameter on the call. If an empty string is passed to C<remove_tree>, an error will occur. B<NOTE:> For security reasons, we strongly advise use of the hashref-as-final-argument syntax -- specifically, with a setting of the C<safe> element to a true value. remove_tree( $dir1, $dir2, ...., { safe => 1, ... # other key-value pairs }, ); The function returns the number of files successfully deleted. The following keys are recognised in the option hash: =over =item verbose => $bool If present, will cause C<remove_tree> to print the name of each file as it is unlinked. By default nothing is printed. =item safe => $bool When set to a true value, will cause C<remove_tree> to skip the files for which the process lacks the required privileges needed to delete files, such as delete privileges on VMS. In other words, the code will make no attempt to alter file permissions. Thus, if the process is interrupted, no filesystem object will be left in a more permissive mode. =item keep_root => $bool When set to a true value, will cause all files and subdirectories to be removed, except the initially specified directories. This comes in handy when cleaning out an application's scratch directory. remove_tree( '/tmp', {keep_root => 1} ); =item result => \$res If present, it should be a reference to a scalar. This scalar will be made to reference an array, which will be used to store all files and directories unlinked during the call. If nothing is unlinked, the array will be empty. remove_tree( '/tmp', {result => \my $list} ); print "unlinked $_\n" for @$list; This is a useful alternative to the C<verbose> key. =item error => \$err If present, it should be a reference to a scalar. This scalar will be made to reference an array, which will be used to store any errors that are encountered. See the L</"ERROR HANDLING"> section for more information. Removing things is a much more dangerous proposition than creating things. As such, there are certain conditions that C<remove_tree> may encounter that are so dangerous that the only sane action left is to kill the program. Use C<error> to trap all that is reasonable (problems with permissions and the like), and let it die if things get out of hand. This is the safest course of action. =back =item rmtree( $dir ) =item rmtree( $dir, $verbose, $safe ) =item rmtree( [$dir1, $dir2,...], $verbose, $safe ) =item rmtree( $dir1, $dir2,..., \%opt ) The C<rmtree()> function provide the legacy interface of C<remove_tree()> with a different interpretation of the arguments passed. The behaviour and return value of the function is otherwise identical to C<remove_tree()>. B<NOTE:> For security reasons, we strongly advise use of the hashref-as-final-argument syntax, specifically with a setting of the C<safe> element to a true value. rmtree( $dir1, $dir2, ...., { safe => 1, ... # other key-value pairs }, ); =back =head2 ERROR HANDLING =over 4 =item B<NOTE:> The following error handling mechanism is consistent throughout all code paths EXCEPT in cases where the ROOT node is nonexistent. In version 2.11 the maintainers attempted to rectify this inconsistency but too many downstream modules encountered problems. In such case, if you require root node evaluation or error checking prior to calling C<make_path> or C<remove_tree>, you should take additional precautions. =back If C<make_path> or C<remove_tree> encounters an error, a diagnostic message will be printed to C<STDERR> via C<carp> (for non-fatal errors) or via C<croak> (for fatal errors). If this behaviour is not desirable, the C<error> attribute may be used to hold a reference to a variable, which will be used to store the diagnostics. The variable is made a reference to an array of hash references. Each hash contain a single key/value pair where the key is the name of the file, and the value is the error message (including the contents of C<$!> when appropriate). If a general error is encountered the diagnostic key will be empty. An example usage looks like: remove_tree( 'foo/bar', 'bar/rat', {error => \my $err} ); if ($err && @$err) { for my $diag (@$err) { my ($file, $message) = %$diag; if ($file eq '') { print "general error: $message\n"; } else { print "problem unlinking $file: $message\n"; } } } else { print "No error encountered\n"; } Note that if no errors are encountered, C<$err> will reference an empty array. This means that C<$err> will always end up TRUE; so you need to test C<@$err> to determine if errors occurred. =head2 NOTES C<File::Path> blindly exports C<mkpath> and C<rmtree> into the current namespace. These days, this is considered bad style, but to change it now would break too much code. Nonetheless, you are invited to specify what it is you are expecting to use: use File::Path 'rmtree'; The routines C<make_path> and C<remove_tree> are B<not> exported by default. You must specify which ones you want to use. use File::Path 'remove_tree'; Note that a side-effect of the above is that C<mkpath> and C<rmtree> are no longer exported at all. This is due to the way the C<Exporter> module works. If you are migrating a codebase to use the new interface, you will have to list everything explicitly. But that's just good practice anyway. use File::Path qw(remove_tree rmtree); =head3 API CHANGES The API was changed in the 2.0 branch. For a time, C<mkpath> and C<rmtree> tried, unsuccessfully, to deal with the two different calling mechanisms. This approach was considered a failure. The new semantics are now only available with C<make_path> and C<remove_tree>. The old semantics are only available through C<mkpath> and C<rmtree>. Users are strongly encouraged to upgrade to at least 2.08 in order to avoid surprises. =head3 SECURITY CONSIDERATIONS There were race conditions in the 1.x implementations of File::Path's C<rmtree> function (although sometimes patched depending on the OS distribution or platform). The 2.0 version contains code to avoid the problem mentioned in CVE-2002-0435. See the following pages for more information: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=286905 http://www.nntp.perl.org/group/perl.perl5.porters/2005/01/msg97623.html http://www.debian.org/security/2005/dsa-696 Additionally, unless the C<safe> parameter is set (or the third parameter in the traditional interface is TRUE), should a C<remove_tree> be interrupted, files that were originally in read-only mode may now have their permissions set to a read-write (or "delete OK") mode. The following CVE reports were previously filed against File-Path and are believed to have been addressed: =over 4 =item * L<http://cve.circl.lu/cve/CVE-2004-0452> =item * L<http://cve.circl.lu/cve/CVE-2005-0448> =back In February 2017 the cPanel Security Team reported an additional vulnerability in File-Path. The C<chmod()> logic to make directories traversable can be abused to set the mode on an attacker-chosen file to an attacker-chosen value. This is due to the time-of-check-to-time-of-use (TOCTTOU) race condition (L<https://en.wikipedia.org/wiki/Time_of_check_to_time_of_use>) between the C<stat()> that decides the inode is a directory and the C<chmod()> that tries to make it user-rwx. CPAN versions 2.13 and later incorporate a patch provided by John Lightsey to address this problem. This vulnerability has been reported as CVE-2017-6512. =head1 DIAGNOSTICS FATAL errors will cause the program to halt (C<croak>), since the problem is so severe that it would be dangerous to continue. (This can always be trapped with C<eval>, but it's not a good idea. Under the circumstances, dying is the best thing to do). SEVERE errors may be trapped using the modern interface. If the they are not trapped, or if the old interface is used, such an error will cause the program will halt. All other errors may be trapped using the modern interface, otherwise they will be C<carp>ed about. Program execution will not be halted. =over 4 =item mkdir [path]: [errmsg] (SEVERE) C<make_path> was unable to create the path. Probably some sort of permissions error at the point of departure or insufficient resources (such as free inodes on Unix). =item No root path(s) specified C<make_path> was not given any paths to create. This message is only emitted if the routine is called with the traditional interface. The modern interface will remain silent if given nothing to do. =item No such file or directory On Windows, if C<make_path> gives you this warning, it may mean that you have exceeded your filesystem's maximum path length. =item cannot fetch initial working directory: [errmsg] C<remove_tree> attempted to determine the initial directory by calling C<Cwd::getcwd>, but the call failed for some reason. No attempt will be made to delete anything. =item cannot stat initial working directory: [errmsg] C<remove_tree> attempted to stat the initial directory (after having successfully obtained its name via C<getcwd>), however, the call failed for some reason. No attempt will be made to delete anything. =item cannot chdir to [dir]: [errmsg] C<remove_tree> attempted to set the working directory in order to begin deleting the objects therein, but was unsuccessful. This is usually a permissions issue. The routine will continue to delete other things, but this directory will be left intact. =item directory [dir] changed before chdir, expected dev=[n] ino=[n], actual dev=[n] ino=[n], aborting. (FATAL) C<remove_tree> recorded the device and inode of a directory, and then moved into it. It then performed a C<stat> on the current directory and detected that the device and inode were no longer the same. As this is at the heart of the race condition problem, the program will die at this point. =item cannot make directory [dir] read+writeable: [errmsg] C<remove_tree> attempted to change the permissions on the current directory to ensure that subsequent unlinkings would not run into problems, but was unable to do so. The permissions remain as they were, and the program will carry on, doing the best it can. =item cannot read [dir]: [errmsg] C<remove_tree> tried to read the contents of the directory in order to acquire the names of the directory entries to be unlinked, but was unsuccessful. This is usually a permissions issue. The program will continue, but the files in this directory will remain after the call. =item cannot reset chmod [dir]: [errmsg] C<remove_tree>, after having deleted everything in a directory, attempted to restore its permissions to the original state but failed. The directory may wind up being left behind. =item cannot remove [dir] when cwd is [dir] The current working directory of the program is F</some/path/to/here> and you are attempting to remove an ancestor, such as F</some/path>. The directory tree is left untouched. The solution is to C<chdir> out of the child directory to a place outside the directory tree to be removed. =item cannot chdir to [parent-dir] from [child-dir]: [errmsg], aborting. (FATAL) C<remove_tree>, after having deleted everything and restored the permissions of a directory, was unable to chdir back to the parent. The program halts to avoid a race condition from occurring. =item cannot stat prior working directory [dir]: [errmsg], aborting. (FATAL) C<remove_tree> was unable to stat the parent directory after having returned from the child. Since there is no way of knowing if we returned to where we think we should be (by comparing device and inode) the only way out is to C<croak>. =item previous directory [parent-dir] changed before entering [child-dir], expected dev=[n] ino=[n], actual dev=[n] ino=[n], aborting. (FATAL) When C<remove_tree> returned from deleting files in a child directory, a check revealed that the parent directory it returned to wasn't the one it started out from. This is considered a sign of malicious activity. =item cannot make directory [dir] writeable: [errmsg] Just before removing a directory (after having successfully removed everything it contained), C<remove_tree> attempted to set the permissions on the directory to ensure it could be removed and failed. Program execution continues, but the directory may possibly not be deleted. =item cannot remove directory [dir]: [errmsg] C<remove_tree> attempted to remove a directory, but failed. This may be because some objects that were unable to be removed remain in the directory, or it could be a permissions issue. The directory will be left behind. =item cannot restore permissions of [dir] to [0nnn]: [errmsg] After having failed to remove a directory, C<remove_tree> was unable to restore its permissions from a permissive state back to a possibly more restrictive setting. (Permissions given in octal). =item cannot make file [file] writeable: [errmsg] C<remove_tree> attempted to force the permissions of a file to ensure it could be deleted, but failed to do so. It will, however, still attempt to unlink the file. =item cannot unlink file [file]: [errmsg] C<remove_tree> failed to remove a file. Probably a permissions issue. =item cannot restore permissions of [file] to [0nnn]: [errmsg] After having failed to remove a file, C<remove_tree> was also unable to restore the permissions on the file to a possibly less permissive setting. (Permissions given in octal). =item unable to map [owner] to a uid, ownership not changed"); C<make_path> was instructed to give the ownership of created directories to the symbolic name [owner], but C<getpwnam> did not return the corresponding numeric uid. The directory will be created, but ownership will not be changed. =item unable to map [group] to a gid, group ownership not changed C<make_path> was instructed to give the group ownership of created directories to the symbolic name [group], but C<getgrnam> did not return the corresponding numeric gid. The directory will be created, but group ownership will not be changed. =back =head1 SEE ALSO =over 4 =item * L<File::Remove> Allows files and directories to be moved to the Trashcan/Recycle Bin (where they may later be restored if necessary) if the operating system supports such functionality. This feature may one day be made available directly in C<File::Path>. =item * L<File::Find::Rule> When removing directory trees, if you want to examine each file to decide whether to delete it (and possibly leaving large swathes alone), F<File::Find::Rule> offers a convenient and flexible approach to examining directory trees. =back =head1 BUGS AND LIMITATIONS The following describes F<File::Path> limitations and how to report bugs. =head2 MULTITHREADED APPLICATIONS F<File::Path> C<rmtree> and C<remove_tree> will not work with multithreaded applications due to its use of C<chdir>. At this time, no warning or error is generated in this situation. You will certainly encounter unexpected results. The implementation that surfaces this limitation will not be changed. See the F<File::Path::Tiny> module for functionality similar to F<File::Path> but which does not C<chdir>. =head2 NFS Mount Points F<File::Path> is not responsible for triggering the automounts, mirror mounts, and the contents of network mounted filesystems. If your NFS implementation requires an action to be performed on the filesystem in order for F<File::Path> to perform operations, it is strongly suggested you assure filesystem availability by reading the root of the mounted filesystem. =head2 REPORTING BUGS Please report all bugs on the RT queue, either via the web interface: L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=File-Path> or by email: bug-File-Path@rt.cpan.org In either case, please B<attach> patches to the bug report rather than including them inline in the web post or the body of the email. You can also send pull requests to the Github repository: L<https://github.com/rpcme/File-Path> =head1 ACKNOWLEDGEMENTS Paul Szabo identified the race condition originally, and Brendan O'Dea wrote an implementation for Debian that addressed the problem. That code was used as a basis for the current code. Their efforts are greatly appreciated. Gisle Aas made a number of improvements to the documentation for 2.07 and his advice and assistance is also greatly appreciated. =head1 AUTHORS Prior authors and maintainers: Tim Bunce, Charles Bailey, and David Landgren <F<david@landgren.net>>. Current maintainers are Richard Elberger <F<riche@cpan.org>> and James (Jim) Keenan <F<jkeenan@cpan.org>>. =head1 CONTRIBUTORS Contributors to File::Path, in alphabetical order by first name. =over 1 =item <F<bulkdd@cpan.org>> =item Charlie Gonzalez <F<itcharlie@cpan.org>> =item Craig A. Berry <F<craigberry@mac.com>> =item James E Keenan <F<jkeenan@cpan.org>> =item John Lightsey <F<john@perlsec.org>> =item Nigel Horne <F<njh@bandsman.co.uk>> =item Richard Elberger <F<riche@cpan.org>> =item Ryan Yee <F<ryee@cpan.org>> =item Skye Shaw <F<shaw@cpan.org>> =item Tom Lutz <F<tommylutz@gmail.com>> =item Will Sheppard <F<willsheppard@github>> =back =head1 COPYRIGHT This module is copyright (C) Charles Bailey, Tim Bunce, David Landgren, James Keenan and Richard Elberger 1995-2020. All rights reserved. =head1 LICENSE This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut PK ! ��f]� ]� 5.34.0/File/Temp.pmnu �[��� package File::Temp; # git description: v0.2310-3-gc7148fe # ABSTRACT: return name and handle of a temporary file safely our $VERSION = '0.2311'; #pod =begin :__INTERNALS #pod #pod =head1 PORTABILITY #pod #pod This section is at the top in order to provide easier access to #pod porters. It is not expected to be rendered by a standard pod #pod formatting tool. Please skip straight to the SYNOPSIS section if you #pod are not trying to port this module to a new platform. #pod #pod This module is designed to be portable across operating systems and it #pod currently supports Unix, VMS, DOS, OS/2, Windows and Mac OS #pod (Classic). When porting to a new OS there are generally three main #pod issues that have to be solved: #pod #pod =over 4 #pod #pod =item * #pod #pod Can the OS unlink an open file? If it can not then the #pod C<_can_unlink_opened_file> method should be modified. #pod #pod =item * #pod #pod Are the return values from C<stat> reliable? By default all the #pod return values from C<stat> are compared when unlinking a temporary #pod file using the filename and the handle. Operating systems other than #pod unix do not always have valid entries in all fields. If utility function #pod C<File::Temp::unlink0> fails then the C<stat> comparison should be #pod modified accordingly. #pod #pod =item * #pod #pod Security. Systems that can not support a test for the sticky bit #pod on a directory can not use the MEDIUM and HIGH security tests. #pod The C<_can_do_level> method should be modified accordingly. #pod #pod =back #pod #pod =end :__INTERNALS #pod #pod =head1 SYNOPSIS #pod #pod use File::Temp qw/ tempfile tempdir /; #pod #pod $fh = tempfile(); #pod ($fh, $filename) = tempfile(); #pod #pod ($fh, $filename) = tempfile( $template, DIR => $dir); #pod ($fh, $filename) = tempfile( $template, SUFFIX => '.dat'); #pod ($fh, $filename) = tempfile( $template, TMPDIR => 1 ); #pod #pod binmode( $fh, ":utf8" ); #pod #pod $dir = tempdir( CLEANUP => 1 ); #pod ($fh, $filename) = tempfile( DIR => $dir ); #pod #pod Object interface: #pod #pod require File::Temp; #pod use File::Temp (); #pod use File::Temp qw/ :seekable /; #pod #pod $fh = File::Temp->new(); #pod $fname = $fh->filename; #pod #pod $fh = File::Temp->new(TEMPLATE => $template); #pod $fname = $fh->filename; #pod #pod $tmp = File::Temp->new( UNLINK => 0, SUFFIX => '.dat' ); #pod print $tmp "Some data\n"; #pod print "Filename is $tmp\n"; #pod $tmp->seek( 0, SEEK_END ); #pod #pod $dir = File::Temp->newdir(); # CLEANUP => 1 by default #pod #pod The following interfaces are provided for compatibility with #pod existing APIs. They should not be used in new code. #pod #pod MkTemp family: #pod #pod use File::Temp qw/ :mktemp /; #pod #pod ($fh, $file) = mkstemp( "tmpfileXXXXX" ); #pod ($fh, $file) = mkstemps( "tmpfileXXXXXX", $suffix); #pod #pod $tmpdir = mkdtemp( $template ); #pod #pod $unopened_file = mktemp( $template ); #pod #pod POSIX functions: #pod #pod use File::Temp qw/ :POSIX /; #pod #pod $file = tmpnam(); #pod $fh = tmpfile(); #pod #pod ($fh, $file) = tmpnam(); #pod #pod Compatibility functions: #pod #pod $unopened_file = File::Temp::tempnam( $dir, $pfx ); #pod #pod =head1 DESCRIPTION #pod #pod C<File::Temp> can be used to create and open temporary files in a safe #pod way. There is both a function interface and an object-oriented #pod interface. The File::Temp constructor or the tempfile() function can #pod be used to return the name and the open filehandle of a temporary #pod file. The tempdir() function can be used to create a temporary #pod directory. #pod #pod The security aspect of temporary file creation is emphasized such that #pod a filehandle and filename are returned together. This helps guarantee #pod that a race condition can not occur where the temporary file is #pod created by another process between checking for the existence of the #pod file and its opening. Additional security levels are provided to #pod check, for example, that the sticky bit is set on world writable #pod directories. See L<"safe_level"> for more information. #pod #pod For compatibility with popular C library functions, Perl implementations of #pod the mkstemp() family of functions are provided. These are, mkstemp(), #pod mkstemps(), mkdtemp() and mktemp(). #pod #pod Additionally, implementations of the standard L<POSIX|POSIX> #pod tmpnam() and tmpfile() functions are provided if required. #pod #pod Implementations of mktemp(), tmpnam(), and tempnam() are provided, #pod but should be used with caution since they return only a filename #pod that was valid when function was called, so cannot guarantee #pod that the file will not exist by the time the caller opens the filename. #pod #pod Filehandles returned by these functions support the seekable methods. #pod #pod =cut # Toolchain targets v5.8.1, but we'll try to support back to v5.6 anyway. # It might be possible to make this v5.5, but many v5.6isms are creeping # into the code and tests. use 5.006; use strict; use Carp; use File::Spec 0.8; use Cwd (); use File::Path 2.06 qw/ rmtree /; use Fcntl 1.03; use IO::Seekable; # For SEEK_* use Errno; use Scalar::Util 'refaddr'; require VMS::Stdio if $^O eq 'VMS'; # pre-emptively load Carp::Heavy. If we don't when we run out of file # handles and attempt to call croak() we get an error message telling # us that Carp::Heavy won't load rather than an error telling us we # have run out of file handles. We either preload croak() or we # switch the calls to croak from _gettemp() to use die. eval { require Carp::Heavy; }; # Need the Symbol package if we are running older perl require Symbol if $] < 5.006; ### For the OO interface use parent 0.221 qw/ IO::Handle IO::Seekable /; use overload '""' => "STRINGIFY", '0+' => "NUMIFY", fallback => 1; our $DEBUG = 0; our $KEEP_ALL = 0; # We are exporting functions use Exporter 5.57 'import'; # 5.57 lets us import 'import' # Export list - to allow fine tuning of export table our @EXPORT_OK = qw{ tempfile tempdir tmpnam tmpfile mktemp mkstemp mkstemps mkdtemp unlink0 cleanup SEEK_SET SEEK_CUR SEEK_END }; # Groups of functions for export our %EXPORT_TAGS = ( 'POSIX' => [qw/ tmpnam tmpfile /], 'mktemp' => [qw/ mktemp mkstemp mkstemps mkdtemp/], 'seekable' => [qw/ SEEK_SET SEEK_CUR SEEK_END /], ); # add contents of these tags to @EXPORT Exporter::export_tags('POSIX','mktemp','seekable'); # This is a list of characters that can be used in random filenames my @CHARS = (qw/ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i j k l m n o p q r s t u v w x y z 0 1 2 3 4 5 6 7 8 9 _ /); # Maximum number of tries to make a temp file before failing use constant MAX_TRIES => 1000; # Minimum number of X characters that should be in a template use constant MINX => 4; # Default template when no template supplied use constant TEMPXXX => 'X' x 10; # Constants for the security level use constant STANDARD => 0; use constant MEDIUM => 1; use constant HIGH => 2; # OPENFLAGS. If we defined the flag to use with Sysopen here this gives # us an optimisation when many temporary files are requested my $OPENFLAGS = O_CREAT | O_EXCL | O_RDWR; my $LOCKFLAG; unless ($^O eq 'MacOS') { for my $oflag (qw/ NOFOLLOW BINARY LARGEFILE NOINHERIT /) { my ($bit, $func) = (0, "Fcntl::O_" . $oflag); no strict 'refs'; $OPENFLAGS |= $bit if eval { # Make sure that redefined die handlers do not cause problems # e.g. CGI::Carp local $SIG{__DIE__} = sub {}; local $SIG{__WARN__} = sub {}; $bit = &$func(); 1; }; } # Special case O_EXLOCK $LOCKFLAG = eval { local $SIG{__DIE__} = sub {}; local $SIG{__WARN__} = sub {}; &Fcntl::O_EXLOCK(); }; } # On some systems the O_TEMPORARY flag can be used to tell the OS # to automatically remove the file when it is closed. This is fine # in most cases but not if tempfile is called with UNLINK=>0 and # the filename is requested -- in the case where the filename is to # be passed to another routine. This happens on windows. We overcome # this by using a second open flags variable my $OPENTEMPFLAGS = $OPENFLAGS; unless ($^O eq 'MacOS') { for my $oflag (qw/ TEMPORARY /) { my ($bit, $func) = (0, "Fcntl::O_" . $oflag); local($@); no strict 'refs'; $OPENTEMPFLAGS |= $bit if eval { # Make sure that redefined die handlers do not cause problems # e.g. CGI::Carp local $SIG{__DIE__} = sub {}; local $SIG{__WARN__} = sub {}; $bit = &$func(); 1; }; } } # Private hash tracking which files have been created by each process id via the OO interface my %FILES_CREATED_BY_OBJECT; # INTERNAL ROUTINES - not to be used outside of package # Generic routine for getting a temporary filename # modelled on OpenBSD _gettemp() in mktemp.c # The template must contain X's that are to be replaced # with the random values # Arguments: # TEMPLATE - string containing the XXXXX's that is converted # to a random filename and opened if required # Optionally, a hash can also be supplied containing specific options # "open" => if true open the temp file, else just return the name # default is 0 # "mkdir"=> if true, we are creating a temp directory rather than tempfile # default is 0 # "suffixlen" => number of characters at end of PATH to be ignored. # default is 0. # "unlink_on_close" => indicates that, if possible, the OS should remove # the file as soon as it is closed. Usually indicates # use of the O_TEMPORARY flag to sysopen. # Usually irrelevant on unix # "use_exlock" => Indicates that O_EXLOCK should be used. Default is false. # "file_permissions" => file permissions for sysopen(). Default is 0600. # Optionally a reference to a scalar can be passed into the function # On error this will be used to store the reason for the error # "ErrStr" => \$errstr # "open" and "mkdir" can not both be true # "unlink_on_close" is not used when "mkdir" is true. # The default options are equivalent to mktemp(). # Returns: # filehandle - open file handle (if called with doopen=1, else undef) # temp name - name of the temp file or directory # For example: # ($fh, $name) = _gettemp($template, "open" => 1); # for the current version, failures are associated with # stored in an error string and returned to give the reason whilst debugging # This routine is not called by any external function sub _gettemp { croak 'Usage: ($fh, $name) = _gettemp($template, OPTIONS);' unless scalar(@_) >= 1; # the internal error string - expect it to be overridden # Need this in case the caller decides not to supply us a value # need an anonymous scalar my $tempErrStr; # Default options my %options = ( "open" => 0, "mkdir" => 0, "suffixlen" => 0, "unlink_on_close" => 0, "use_exlock" => 0, "ErrStr" => \$tempErrStr, "file_permissions" => undef, ); # Read the template my $template = shift; if (ref($template)) { # Use a warning here since we have not yet merged ErrStr carp "File::Temp::_gettemp: template must not be a reference"; return (); } # Check that the number of entries on stack are even if (scalar(@_) % 2 != 0) { # Use a warning here since we have not yet merged ErrStr carp "File::Temp::_gettemp: Must have even number of options"; return (); } # Read the options and merge with defaults %options = (%options, @_) if @_; # Make sure the error string is set to undef ${$options{ErrStr}} = undef; # Can not open the file and make a directory in a single call if ($options{"open"} && $options{"mkdir"}) { ${$options{ErrStr}} = "doopen and domkdir can not both be true\n"; return (); } # Find the start of the end of the Xs (position of last X) # Substr starts from 0 my $start = length($template) - 1 - $options{"suffixlen"}; # Check that we have at least MINX x X (e.g. 'XXXX") at the end of the string # (taking suffixlen into account). Any fewer is insecure. # Do it using substr - no reason to use a pattern match since # we know where we are looking and what we are looking for if (substr($template, $start - MINX + 1, MINX) ne 'X' x MINX) { ${$options{ErrStr}} = "The template must end with at least ". MINX . " 'X' characters\n"; return (); } # Replace all the X at the end of the substring with a # random character or just all the XX at the end of a full string. # Do it as an if, since the suffix adjusts which section to replace # and suffixlen=0 returns nothing if used in the substr directly # and generate a full path from the template my $path = _replace_XX($template, $options{"suffixlen"}); # Split the path into constituent parts - eventually we need to check # whether the directory exists # We need to know whether we are making a temp directory # or a tempfile my ($volume, $directories, $file); my $parent; # parent directory if ($options{"mkdir"}) { # There is no filename at the end ($volume, $directories, $file) = File::Spec->splitpath( $path, 1); # The parent is then $directories without the last directory # Split the directory and put it back together again my @dirs = File::Spec->splitdir($directories); # If @dirs only has one entry (i.e. the directory template) that means # we are in the current directory if ($#dirs == 0) { $parent = File::Spec->curdir; } else { if ($^O eq 'VMS') { # need volume to avoid relative dir spec $parent = File::Spec->catdir($volume, @dirs[0..$#dirs-1]); $parent = 'sys$disk:[]' if $parent eq ''; } else { # Put it back together without the last one $parent = File::Spec->catdir(@dirs[0..$#dirs-1]); # ...and attach the volume (no filename) $parent = File::Spec->catpath($volume, $parent, ''); } } } else { # Get rid of the last filename (use File::Basename for this?) ($volume, $directories, $file) = File::Spec->splitpath( $path ); # Join up without the file part $parent = File::Spec->catpath($volume,$directories,''); # If $parent is empty replace with curdir $parent = File::Spec->curdir unless $directories ne ''; } # Check that the parent directories exist # Do this even for the case where we are simply returning a name # not a file -- no point returning a name that includes a directory # that does not exist or is not writable unless (-e $parent) { ${$options{ErrStr}} = "Parent directory ($parent) does not exist"; return (); } unless (-d $parent) { ${$options{ErrStr}} = "Parent directory ($parent) is not a directory"; return (); } # Check the stickiness of the directory and chown giveaway if required # If the directory is world writable the sticky bit # must be set if (File::Temp->safe_level == MEDIUM) { my $safeerr; unless (_is_safe($parent,\$safeerr)) { ${$options{ErrStr}} = "Parent directory ($parent) is not safe ($safeerr)"; return (); } } elsif (File::Temp->safe_level == HIGH) { my $safeerr; unless (_is_verysafe($parent, \$safeerr)) { ${$options{ErrStr}} = "Parent directory ($parent) is not safe ($safeerr)"; return (); } } my $perms = $options{file_permissions}; my $has_perms = defined $perms; $perms = 0600 unless $has_perms; # Now try MAX_TRIES time to open the file for (my $i = 0; $i < MAX_TRIES; $i++) { # Try to open the file if requested if ($options{"open"}) { my $fh; # If we are running before perl5.6.0 we can not auto-vivify if ($] < 5.006) { $fh = &Symbol::gensym; } # Try to make sure this will be marked close-on-exec # XXX: Win32 doesn't respect this, nor the proper fcntl, # but may have O_NOINHERIT. This may or may not be in Fcntl. local $^F = 2; # Attempt to open the file my $open_success = undef; if ( $^O eq 'VMS' and $options{"unlink_on_close"} && !$KEEP_ALL) { # make it auto delete on close by setting FAB$V_DLT bit $fh = VMS::Stdio::vmssysopen($path, $OPENFLAGS, $perms, 'fop=dlt'); $open_success = $fh; } else { my $flags = ( ($options{"unlink_on_close"} && !$KEEP_ALL) ? $OPENTEMPFLAGS : $OPENFLAGS ); $flags |= $LOCKFLAG if (defined $LOCKFLAG && $options{use_exlock}); $open_success = sysopen($fh, $path, $flags, $perms); } if ( $open_success ) { # in case of odd umask force rw chmod($perms, $path) unless $has_perms; # Opened successfully - return file handle and name return ($fh, $path); } else { # Error opening file - abort with error # if the reason was anything but EEXIST unless ($!{EEXIST}) { ${$options{ErrStr}} = "Could not create temp file $path: $!"; return (); } # Loop round for another try } } elsif ($options{"mkdir"}) { # Open the temp directory if (mkdir( $path, 0700)) { # in case of odd umask chmod(0700, $path); return undef, $path; } else { # Abort with error if the reason for failure was anything # except EEXIST unless ($!{EEXIST}) { ${$options{ErrStr}} = "Could not create directory $path: $!"; return (); } # Loop round for another try } } else { # Return true if the file can not be found # Directory has been checked previously return (undef, $path) unless -e $path; # Try again until MAX_TRIES } # Did not successfully open the tempfile/dir # so try again with a different set of random letters # No point in trying to increment unless we have only # 1 X say and the randomness could come up with the same # file MAX_TRIES in a row. # Store current attempt - in principle this implies that the # 3rd time around the open attempt that the first temp file # name could be generated again. Probably should store each # attempt and make sure that none are repeated my $original = $path; my $counter = 0; # Stop infinite loop my $MAX_GUESS = 50; do { # Generate new name from original template $path = _replace_XX($template, $options{"suffixlen"}); $counter++; } until ($path ne $original || $counter > $MAX_GUESS); # Check for out of control looping if ($counter > $MAX_GUESS) { ${$options{ErrStr}} = "Tried to get a new temp name different to the previous value $MAX_GUESS times.\nSomething wrong with template?? ($template)"; return (); } } # If we get here, we have run out of tries ${ $options{ErrStr} } = "Have exceeded the maximum number of attempts (" . MAX_TRIES . ") to open temp file/dir"; return (); } # Internal routine to replace the XXXX... with random characters # This has to be done by _gettemp() every time it fails to # open a temp file/dir # Arguments: $template (the template with XXX), # $ignore (number of characters at end to ignore) # Returns: modified template sub _replace_XX { croak 'Usage: _replace_XX($template, $ignore)' unless scalar(@_) == 2; my ($path, $ignore) = @_; # Do it as an if, since the suffix adjusts which section to replace # and suffixlen=0 returns nothing if used in the substr directly # Alternatively, could simply set $ignore to length($path)-1 # Don't want to always use substr when not required though. my $end = ( $] >= 5.006 ? "\\z" : "\\Z" ); if ($ignore) { substr($path, 0, - $ignore) =~ s/X(?=X*$end)/$CHARS[ int( rand( @CHARS ) ) ]/ge; } else { $path =~ s/X(?=X*$end)/$CHARS[ int( rand( @CHARS ) ) ]/ge; } return $path; } # Internal routine to force a temp file to be writable after # it is created so that we can unlink it. Windows seems to occasionally # force a file to be readonly when written to certain temp locations sub _force_writable { my $file = shift; chmod 0600, $file; } # internal routine to check to see if the directory is safe # First checks to see if the directory is not owned by the # current user or root. Then checks to see if anyone else # can write to the directory and if so, checks to see if # it has the sticky bit set # Will not work on systems that do not support sticky bit #Args: directory path to check # Optionally: reference to scalar to contain error message # Returns true if the path is safe and false otherwise. # Returns undef if can not even run stat() on the path # This routine based on version written by Tom Christiansen # Presumably, by the time we actually attempt to create the # file or directory in this directory, it may not be safe # anymore... Have to run _is_safe directly after the open. sub _is_safe { my $path = shift; my $err_ref = shift; # Stat path my @info = stat($path); unless (scalar(@info)) { $$err_ref = "stat(path) returned no values"; return 0; } ; return 1 if $^O eq 'VMS'; # owner delete control at file level # Check to see whether owner is neither superuser (or a system uid) nor me # Use the effective uid from the $> variable # UID is in [4] if ($info[4] > File::Temp->top_system_uid() && $info[4] != $>) { Carp::cluck(sprintf "uid=$info[4] topuid=%s euid=$> path='$path'", File::Temp->top_system_uid()); $$err_ref = "Directory owned neither by root nor the current user" if ref($err_ref); return 0; } # check whether group or other can write file # use 066 to detect either reading or writing # use 022 to check writability # Do it with S_IWOTH and S_IWGRP for portability (maybe) # mode is in info[2] if (($info[2] & &Fcntl::S_IWGRP) || # Is group writable? ($info[2] & &Fcntl::S_IWOTH) ) { # Is world writable? # Must be a directory unless (-d $path) { $$err_ref = "Path ($path) is not a directory" if ref($err_ref); return 0; } # Must have sticky bit set unless (-k $path) { $$err_ref = "Sticky bit not set on $path when dir is group|world writable" if ref($err_ref); return 0; } } return 1; } # Internal routine to check whether a directory is safe # for temp files. Safer than _is_safe since it checks for # the possibility of chown giveaway and if that is a possibility # checks each directory in the path to see if it is safe (with _is_safe) # If _PC_CHOWN_RESTRICTED is not set, does the full test of each # directory anyway. # Takes optional second arg as scalar ref to error reason sub _is_verysafe { # Need POSIX - but only want to bother if really necessary due to overhead require POSIX; my $path = shift; print "_is_verysafe testing $path\n" if $DEBUG; return 1 if $^O eq 'VMS'; # owner delete control at file level my $err_ref = shift; # Should Get the value of _PC_CHOWN_RESTRICTED if it is defined # and If it is not there do the extensive test local($@); my $chown_restricted; $chown_restricted = &POSIX::_PC_CHOWN_RESTRICTED() if eval { &POSIX::_PC_CHOWN_RESTRICTED(); 1}; # If chown_resticted is set to some value we should test it if (defined $chown_restricted) { # Return if the current directory is safe return _is_safe($path,$err_ref) if POSIX::sysconf( $chown_restricted ); } # To reach this point either, the _PC_CHOWN_RESTRICTED symbol # was not available or the symbol was there but chown giveaway # is allowed. Either way, we now have to test the entire tree for # safety. # Convert path to an absolute directory if required unless (File::Spec->file_name_is_absolute($path)) { $path = File::Spec->rel2abs($path); } # Split directory into components - assume no file my ($volume, $directories, undef) = File::Spec->splitpath( $path, 1); # Slightly less efficient than having a function in File::Spec # to chop off the end of a directory or even a function that # can handle ../ in a directory tree # Sometimes splitdir() returns a blank at the end # so we will probably check the bottom directory twice in some cases my @dirs = File::Spec->splitdir($directories); # Concatenate one less directory each time around foreach my $pos (0.. $#dirs) { # Get a directory name my $dir = File::Spec->catpath($volume, File::Spec->catdir(@dirs[0.. $#dirs - $pos]), '' ); print "TESTING DIR $dir\n" if $DEBUG; # Check the directory return 0 unless _is_safe($dir,$err_ref); } return 1; } # internal routine to determine whether unlink works on this # platform for files that are currently open. # Returns true if we can, false otherwise. # Currently WinNT, OS/2 and VMS can not unlink an opened file # On VMS this is because the O_EXCL flag is used to open the # temporary file. Currently I do not know enough about the issues # on VMS to decide whether O_EXCL is a requirement. sub _can_unlink_opened_file { if (grep $^O eq $_, qw/MSWin32 os2 VMS dos MacOS haiku/) { return 0; } else { return 1; } } # internal routine to decide which security levels are allowed # see safe_level() for more information on this # Controls whether the supplied security level is allowed # $cando = _can_do_level( $level ) sub _can_do_level { # Get security level my $level = shift; # Always have to be able to do STANDARD return 1 if $level == STANDARD; # Currently, the systems that can do HIGH or MEDIUM are identical if ( $^O eq 'MSWin32' || $^O eq 'os2' || $^O eq 'cygwin' || $^O eq 'dos' || $^O eq 'MacOS' || $^O eq 'mpeix') { return 0; } else { return 1; } } # This routine sets up a deferred unlinking of a specified # filename and filehandle. It is used in the following cases: # - Called by unlink0 if an opened file can not be unlinked # - Called by tempfile() if files are to be removed on shutdown # - Called by tempdir() if directories are to be removed on shutdown # Arguments: # _deferred_unlink( $fh, $fname, $isdir ); # # - filehandle (so that it can be explicitly closed if open # - filename (the thing we want to remove) # - isdir (flag to indicate that we are being given a directory) # [and hence no filehandle] # Status is not referred to since all the magic is done with an END block { # Will set up two lexical variables to contain all the files to be # removed. One array for files, another for directories They will # only exist in this block. # This means we only have to set up a single END block to remove # all files. # in order to prevent child processes inadvertently deleting the parent # temp files we use a hash to store the temp files and directories # created by a particular process id. # %files_to_unlink contains values that are references to an array of # array references containing the filehandle and filename associated with # the temp file. my (%files_to_unlink, %dirs_to_unlink); # Set up an end block to use these arrays END { local($., $@, $!, $^E, $?); cleanup(at_exit => 1); } # Cleanup function. Always triggered on END (with at_exit => 1) but # can be invoked manually. sub cleanup { my %h = @_; my $at_exit = delete $h{at_exit}; $at_exit = 0 if not defined $at_exit; { my @k = sort keys %h; die "unrecognized parameters: @k" if @k } if (!$KEEP_ALL) { # Files my @files = (exists $files_to_unlink{$$} ? @{ $files_to_unlink{$$} } : () ); foreach my $file (@files) { # close the filehandle without checking its state # in order to make real sure that this is closed # if its already closed then I don't care about the answer # probably a better way to do this close($file->[0]); # file handle is [0] if (-f $file->[1]) { # file name is [1] _force_writable( $file->[1] ); # for windows unlink $file->[1] or warn "Error removing ".$file->[1]; } } # Dirs my @dirs = (exists $dirs_to_unlink{$$} ? @{ $dirs_to_unlink{$$} } : () ); my ($cwd, $cwd_to_remove); foreach my $dir (@dirs) { if (-d $dir) { # Some versions of rmtree will abort if you attempt to remove # the directory you are sitting in. For automatic cleanup # at program exit, we avoid this by chdir()ing out of the way # first. If not at program exit, it's best not to mess with the # current directory, so just let it fail with a warning. if ($at_exit) { $cwd = Cwd::abs_path(File::Spec->curdir) if not defined $cwd; my $abs = Cwd::abs_path($dir); if ($abs eq $cwd) { $cwd_to_remove = $dir; next; } } eval { rmtree($dir, $DEBUG, 0); }; warn $@ if ($@ && $^W); } } if (defined $cwd_to_remove) { # We do need to clean up the current directory, and everything # else is done, so get out of there and remove it. chdir $cwd_to_remove or die "cannot chdir to $cwd_to_remove: $!"; my $updir = File::Spec->updir; chdir $updir or die "cannot chdir to $updir: $!"; eval { rmtree($cwd_to_remove, $DEBUG, 0); }; warn $@ if ($@ && $^W); } # clear the arrays @{ $files_to_unlink{$$} } = () if exists $files_to_unlink{$$}; @{ $dirs_to_unlink{$$} } = () if exists $dirs_to_unlink{$$}; } } # This is the sub called to register a file for deferred unlinking # This could simply store the input parameters and defer everything # until the END block. For now we do a bit of checking at this # point in order to make sure that (1) we have a file/dir to delete # and (2) we have been called with the correct arguments. sub _deferred_unlink { croak 'Usage: _deferred_unlink($fh, $fname, $isdir)' unless scalar(@_) == 3; my ($fh, $fname, $isdir) = @_; warn "Setting up deferred removal of $fname\n" if $DEBUG; # make sure we save the absolute path for later cleanup # OK to untaint because we only ever use this internally # as a file path, never interpolating into the shell $fname = Cwd::abs_path($fname); ($fname) = $fname =~ /^(.*)$/; # If we have a directory, check that it is a directory if ($isdir) { if (-d $fname) { # Directory exists so store it # first on VMS turn []foo into [.foo] for rmtree $fname = VMS::Filespec::vmspath($fname) if $^O eq 'VMS'; $dirs_to_unlink{$$} = [] unless exists $dirs_to_unlink{$$}; push (@{ $dirs_to_unlink{$$} }, $fname); } else { carp "Request to remove directory $fname could not be completed since it does not exist!\n" if $^W; } } else { if (-f $fname) { # file exists so store handle and name for later removal $files_to_unlink{$$} = [] unless exists $files_to_unlink{$$}; push(@{ $files_to_unlink{$$} }, [$fh, $fname]); } else { carp "Request to remove file $fname could not be completed since it is not there!\n" if $^W; } } } } # normalize argument keys to upper case and do consistent handling # of leading template vs TEMPLATE sub _parse_args { my $leading_template = (scalar(@_) % 2 == 1 ? shift(@_) : '' ); my %args = @_; %args = map +(uc($_) => $args{$_}), keys %args; # template (store it in an array so that it will # disappear from the arg list of tempfile) my @template = ( exists $args{TEMPLATE} ? $args{TEMPLATE} : $leading_template ? $leading_template : () ); delete $args{TEMPLATE}; return( \@template, \%args ); } #pod =head1 OBJECT-ORIENTED INTERFACE #pod #pod This is the primary interface for interacting with #pod C<File::Temp>. Using the OO interface a temporary file can be created #pod when the object is constructed and the file can be removed when the #pod object is no longer required. #pod #pod Note that there is no method to obtain the filehandle from the #pod C<File::Temp> object. The object itself acts as a filehandle. The object #pod isa C<IO::Handle> and isa C<IO::Seekable> so all those methods are #pod available. #pod #pod Also, the object is configured such that it stringifies to the name of the #pod temporary file and so can be compared to a filename directly. It numifies #pod to the C<refaddr> the same as other handles and so can be compared to other #pod handles with C<==>. #pod #pod $fh eq $filename # as a string #pod $fh != \*STDOUT # as a number #pod #pod Available since 0.14. #pod #pod =over 4 #pod #pod =item B<new> #pod #pod Create a temporary file object. #pod #pod my $tmp = File::Temp->new(); #pod #pod by default the object is constructed as if C<tempfile> #pod was called without options, but with the additional behaviour #pod that the temporary file is removed by the object destructor #pod if UNLINK is set to true (the default). #pod #pod Supported arguments are the same as for C<tempfile>: UNLINK #pod (defaulting to true), DIR, EXLOCK, PERMS and SUFFIX. #pod Additionally, the filename #pod template is specified using the TEMPLATE option. The OPEN option #pod is not supported (the file is always opened). #pod #pod $tmp = File::Temp->new( TEMPLATE => 'tempXXXXX', #pod DIR => 'mydir', #pod SUFFIX => '.dat'); #pod #pod Arguments are case insensitive. #pod #pod Can call croak() if an error occurs. #pod #pod Available since 0.14. #pod #pod TEMPLATE available since 0.23 #pod #pod =cut sub new { my $proto = shift; my $class = ref($proto) || $proto; my ($maybe_template, $args) = _parse_args(@_); # see if they are unlinking (defaulting to yes) my $unlink = (exists $args->{UNLINK} ? $args->{UNLINK} : 1 ); delete $args->{UNLINK}; # Protect OPEN delete $args->{OPEN}; # Open the file and retain file handle and file name my ($fh, $path) = tempfile( @$maybe_template, %$args ); print "Tmp: $fh - $path\n" if $DEBUG; # Store the filename in the scalar slot ${*$fh} = $path; # Cache the filename by pid so that the destructor can decide whether to remove it $FILES_CREATED_BY_OBJECT{$$}{$path} = 1; # Store unlink information in hash slot (plus other constructor info) %{*$fh} = %$args; # create the object bless $fh, $class; # final method-based configuration $fh->unlink_on_destroy( $unlink ); return $fh; } #pod =item B<newdir> #pod #pod Create a temporary directory using an object oriented interface. #pod #pod $dir = File::Temp->newdir(); #pod #pod By default the directory is deleted when the object goes out of scope. #pod #pod Supports the same options as the C<tempdir> function. Note that directories #pod created with this method default to CLEANUP => 1. #pod #pod $dir = File::Temp->newdir( $template, %options ); #pod #pod A template may be specified either with a leading template or #pod with a TEMPLATE argument. #pod #pod Available since 0.19. #pod #pod TEMPLATE available since 0.23. #pod #pod =cut sub newdir { my $self = shift; my ($maybe_template, $args) = _parse_args(@_); # handle CLEANUP without passing CLEANUP to tempdir my $cleanup = (exists $args->{CLEANUP} ? $args->{CLEANUP} : 1 ); delete $args->{CLEANUP}; my $tempdir = tempdir( @$maybe_template, %$args); # get a safe absolute path for cleanup, just like # happens in _deferred_unlink my $real_dir = Cwd::abs_path( $tempdir ); ($real_dir) = $real_dir =~ /^(.*)$/; return bless { DIRNAME => $tempdir, REALNAME => $real_dir, CLEANUP => $cleanup, LAUNCHPID => $$, }, "File::Temp::Dir"; } #pod =item B<filename> #pod #pod Return the name of the temporary file associated with this object #pod (if the object was created using the "new" constructor). #pod #pod $filename = $tmp->filename; #pod #pod This method is called automatically when the object is used as #pod a string. #pod #pod Current API available since 0.14 #pod #pod =cut sub filename { my $self = shift; return ${*$self}; } sub STRINGIFY { my $self = shift; return $self->filename; } # For reference, can't use '0+'=>\&Scalar::Util::refaddr directly because # refaddr() demands one parameter only, whereas overload.pm calls with three # even for unary operations like '0+'. sub NUMIFY { return refaddr($_[0]); } #pod =item B<dirname> #pod #pod Return the name of the temporary directory associated with this #pod object (if the object was created using the "newdir" constructor). #pod #pod $dirname = $tmpdir->dirname; #pod #pod This method is called automatically when the object is used in string context. #pod #pod =item B<unlink_on_destroy> #pod #pod Control whether the file is unlinked when the object goes out of scope. #pod The file is removed if this value is true and $KEEP_ALL is not. #pod #pod $fh->unlink_on_destroy( 1 ); #pod #pod Default is for the file to be removed. #pod #pod Current API available since 0.15 #pod #pod =cut sub unlink_on_destroy { my $self = shift; if (@_) { ${*$self}{UNLINK} = shift; } return ${*$self}{UNLINK}; } #pod =item B<DESTROY> #pod #pod When the object goes out of scope, the destructor is called. This #pod destructor will attempt to unlink the file (using L<unlink1|"unlink1">) #pod if the constructor was called with UNLINK set to 1 (the default state #pod if UNLINK is not specified). #pod #pod No error is given if the unlink fails. #pod #pod If the object has been passed to a child process during a fork, the #pod file will be deleted when the object goes out of scope in the parent. #pod #pod For a temporary directory object the directory will be removed unless #pod the CLEANUP argument was used in the constructor (and set to false) or #pod C<unlink_on_destroy> was modified after creation. Note that if a temp #pod directory is your current directory, it cannot be removed - a warning #pod will be given in this case. C<chdir()> out of the directory before #pod letting the object go out of scope. #pod #pod If the global variable $KEEP_ALL is true, the file or directory #pod will not be removed. #pod #pod =cut sub DESTROY { local($., $@, $!, $^E, $?); my $self = shift; # Make sure we always remove the file from the global hash # on destruction. This prevents the hash from growing uncontrollably # and post-destruction there is no reason to know about the file. my $file = $self->filename; my $was_created_by_proc; if (exists $FILES_CREATED_BY_OBJECT{$$}{$file}) { $was_created_by_proc = 1; delete $FILES_CREATED_BY_OBJECT{$$}{$file}; } if (${*$self}{UNLINK} && !$KEEP_ALL) { print "# ---------> Unlinking $self\n" if $DEBUG; # only delete if this process created it return unless $was_created_by_proc; # The unlink1 may fail if the file has been closed # by the caller. This leaves us with the decision # of whether to refuse to remove the file or simply # do an unlink without test. Seems to be silly # to do this when we are trying to be careful # about security _force_writable( $file ); # for windows unlink1( $self, $file ) or unlink($file); } } #pod =back #pod #pod =head1 FUNCTIONS #pod #pod This section describes the recommended interface for generating #pod temporary files and directories. #pod #pod =over 4 #pod #pod =item B<tempfile> #pod #pod This is the basic function to generate temporary files. #pod The behaviour of the file can be changed using various options: #pod #pod $fh = tempfile(); #pod ($fh, $filename) = tempfile(); #pod #pod Create a temporary file in the directory specified for temporary #pod files, as specified by the tmpdir() function in L<File::Spec>. #pod #pod ($fh, $filename) = tempfile($template); #pod #pod Create a temporary file in the current directory using the supplied #pod template. Trailing `X' characters are replaced with random letters to #pod generate the filename. At least four `X' characters must be present #pod at the end of the template. #pod #pod ($fh, $filename) = tempfile($template, SUFFIX => $suffix) #pod #pod Same as previously, except that a suffix is added to the template #pod after the `X' translation. Useful for ensuring that a temporary #pod filename has a particular extension when needed by other applications. #pod But see the WARNING at the end. #pod #pod ($fh, $filename) = tempfile($template, DIR => $dir); #pod #pod Translates the template as before except that a directory name #pod is specified. #pod #pod ($fh, $filename) = tempfile($template, TMPDIR => 1); #pod #pod Equivalent to specifying a DIR of "File::Spec->tmpdir", writing the file #pod into the same temporary directory as would be used if no template was #pod specified at all. #pod #pod ($fh, $filename) = tempfile($template, UNLINK => 1); #pod #pod Return the filename and filehandle as before except that the file is #pod automatically removed when the program exits (dependent on #pod $KEEP_ALL). Default is for the file to be removed if a file handle is #pod requested and to be kept if the filename is requested. In a scalar #pod context (where no filename is returned) the file is always deleted #pod either (depending on the operating system) on exit or when it is #pod closed (unless $KEEP_ALL is true when the temp file is created). #pod #pod Use the object-oriented interface if fine-grained control of when #pod a file is removed is required. #pod #pod If the template is not specified, a template is always #pod automatically generated. This temporary file is placed in tmpdir() #pod (L<File::Spec>) unless a directory is specified explicitly with the #pod DIR option. #pod #pod $fh = tempfile( DIR => $dir ); #pod #pod If called in scalar context, only the filehandle is returned and the #pod file will automatically be deleted when closed on operating systems #pod that support this (see the description of tmpfile() elsewhere in this #pod document). This is the preferred mode of operation, as if you only #pod have a filehandle, you can never create a race condition by fumbling #pod with the filename. On systems that can not unlink an open file or can #pod not mark a file as temporary when it is opened (for example, Windows #pod NT uses the C<O_TEMPORARY> flag) the file is marked for deletion when #pod the program ends (equivalent to setting UNLINK to 1). The C<UNLINK> #pod flag is ignored if present. #pod #pod (undef, $filename) = tempfile($template, OPEN => 0); #pod #pod This will return the filename based on the template but #pod will not open this file. Cannot be used in conjunction with #pod UNLINK set to true. Default is to always open the file #pod to protect from possible race conditions. A warning is issued #pod if warnings are turned on. Consider using the tmpnam() #pod and mktemp() functions described elsewhere in this document #pod if opening the file is not required. #pod #pod To open the temporary filehandle with O_EXLOCK (open with exclusive #pod file lock) use C<< EXLOCK=>1 >>. This is supported only by some #pod operating systems (most notably BSD derived systems). By default #pod EXLOCK will be false. Former C<File::Temp> versions set EXLOCK to #pod true, so to be sure to get an unlocked filehandle also with older #pod versions, explicitly set C<< EXLOCK=>0 >>. #pod #pod ($fh, $filename) = tempfile($template, EXLOCK => 1); #pod #pod By default, the temp file is created with 0600 file permissions. #pod Use C<PERMS> to change this: #pod #pod ($fh, $filename) = tempfile($template, PERMS => 0666); #pod #pod Options can be combined as required. #pod #pod Will croak() if there is an error. #pod #pod Available since 0.05. #pod #pod UNLINK flag available since 0.10. #pod #pod TMPDIR flag available since 0.19. #pod #pod EXLOCK flag available since 0.19. #pod #pod PERMS flag available since 0.2310. #pod #pod =cut sub tempfile { if ( @_ && $_[0] eq 'File::Temp' ) { croak "'tempfile' can't be called as a method"; } # Can not check for argument count since we can have any # number of args # Default options my %options = ( "DIR" => undef, # Directory prefix "SUFFIX" => '', # Template suffix "UNLINK" => 0, # Do not unlink file on exit "OPEN" => 1, # Open file "TMPDIR" => 0, # Place tempfile in tempdir if template specified "EXLOCK" => 0, # Open file with O_EXLOCK "PERMS" => undef, # File permissions ); # Check to see whether we have an odd or even number of arguments my ($maybe_template, $args) = _parse_args(@_); my $template = @$maybe_template ? $maybe_template->[0] : undef; # Read the options and merge with defaults %options = (%options, %$args); # First decision is whether or not to open the file if (! $options{"OPEN"}) { warn "tempfile(): temporary filename requested but not opened.\nPossibly unsafe, consider using tempfile() with OPEN set to true\n" if $^W; } if ($options{"DIR"} and $^O eq 'VMS') { # on VMS turn []foo into [.foo] for concatenation $options{"DIR"} = VMS::Filespec::vmspath($options{"DIR"}); } # Construct the template # Have a choice of trying to work around the mkstemp/mktemp/tmpnam etc # functions or simply constructing a template and using _gettemp() # explicitly. Go for the latter # First generate a template if not defined and prefix the directory # If no template must prefix the temp directory if (defined $template) { # End up with current directory if neither DIR not TMPDIR are set if ($options{"DIR"}) { $template = File::Spec->catfile($options{"DIR"}, $template); } elsif ($options{TMPDIR}) { $template = File::Spec->catfile(_wrap_file_spec_tmpdir(), $template ); } } else { if ($options{"DIR"}) { $template = File::Spec->catfile($options{"DIR"}, TEMPXXX); } else { $template = File::Spec->catfile(_wrap_file_spec_tmpdir(), TEMPXXX); } } # Now add a suffix $template .= $options{"SUFFIX"}; # Determine whether we should tell _gettemp to unlink the file # On unix this is irrelevant and can be worked out after the file is # opened (simply by unlinking the open filehandle). On Windows or VMS # we have to indicate temporary-ness when we open the file. In general # we only want a true temporary file if we are returning just the # filehandle - if the user wants the filename they probably do not # want the file to disappear as soon as they close it (which may be # important if they want a child process to use the file) # For this reason, tie unlink_on_close to the return context regardless # of OS. my $unlink_on_close = ( wantarray ? 0 : 1); # Create the file my ($fh, $path, $errstr); croak "Error in tempfile() using template $template: $errstr" unless (($fh, $path) = _gettemp($template, "open" => $options{OPEN}, "mkdir" => 0, "unlink_on_close" => $unlink_on_close, "suffixlen" => length($options{SUFFIX}), "ErrStr" => \$errstr, "use_exlock" => $options{EXLOCK}, "file_permissions" => $options{PERMS}, ) ); # Set up an exit handler that can do whatever is right for the # system. This removes files at exit when requested explicitly or when # system is asked to unlink_on_close but is unable to do so because # of OS limitations. # The latter should be achieved by using a tied filehandle. # Do not check return status since this is all done with END blocks. _deferred_unlink($fh, $path, 0) if $options{"UNLINK"}; # Return if (wantarray()) { if ($options{'OPEN'}) { return ($fh, $path); } else { return (undef, $path); } } else { # Unlink the file. It is up to unlink0 to decide what to do with # this (whether to unlink now or to defer until later) unlink0($fh, $path) or croak "Error unlinking file $path using unlink0"; # Return just the filehandle. return $fh; } } # On Windows under taint mode, File::Spec could suggest "C:\" as a tempdir # which might not be writable. If that is the case, we fallback to a # user directory. See https://rt.cpan.org/Ticket/Display.html?id=60340 { my ($alt_tmpdir, $checked); sub _wrap_file_spec_tmpdir { return File::Spec->tmpdir unless $^O eq "MSWin32" && ${^TAINT}; if ( $checked ) { return $alt_tmpdir ? $alt_tmpdir : File::Spec->tmpdir; } # probe what File::Spec gives and find a fallback my $xxpath = _replace_XX( "X" x 10, 0 ); # First, see if File::Spec->tmpdir is writable my $tmpdir = File::Spec->tmpdir; my $testpath = File::Spec->catdir( $tmpdir, $xxpath ); if (mkdir( $testpath, 0700) ) { $checked = 1; rmdir $testpath; return $tmpdir; } # Next, see if CSIDL_LOCAL_APPDATA is writable require Win32; my $local_app = File::Spec->catdir( Win32::GetFolderPath( Win32::CSIDL_LOCAL_APPDATA() ), 'Temp' ); $testpath = File::Spec->catdir( $local_app, $xxpath ); if ( -e $local_app or mkdir( $local_app, 0700 ) ) { if (mkdir( $testpath, 0700) ) { $checked = 1; rmdir $testpath; return $alt_tmpdir = $local_app; } } # Can't find something writable croak << "HERE"; Couldn't find a writable temp directory in taint mode. Tried: $tmpdir $local_app Try setting and untainting the TMPDIR environment variable. HERE } } #pod =item B<tempdir> #pod #pod This is the recommended interface for creation of temporary #pod directories. By default the directory will not be removed on exit #pod (that is, it won't be temporary; this behaviour can not be changed #pod because of issues with backwards compatibility). To enable removal #pod either use the CLEANUP option which will trigger removal on program #pod exit, or consider using the "newdir" method in the object interface which #pod will allow the directory to be cleaned up when the object goes out of #pod scope. #pod #pod The behaviour of the function depends on the arguments: #pod #pod $tempdir = tempdir(); #pod #pod Create a directory in tmpdir() (see L<File::Spec|File::Spec>). #pod #pod $tempdir = tempdir( $template ); #pod #pod Create a directory from the supplied template. This template is #pod similar to that described for tempfile(). `X' characters at the end #pod of the template are replaced with random letters to construct the #pod directory name. At least four `X' characters must be in the template. #pod #pod $tempdir = tempdir ( DIR => $dir ); #pod #pod Specifies the directory to use for the temporary directory. #pod The temporary directory name is derived from an internal template. #pod #pod $tempdir = tempdir ( $template, DIR => $dir ); #pod #pod Prepend the supplied directory name to the template. The template #pod should not include parent directory specifications itself. Any parent #pod directory specifications are removed from the template before #pod prepending the supplied directory. #pod #pod $tempdir = tempdir ( $template, TMPDIR => 1 ); #pod #pod Using the supplied template, create the temporary directory in #pod a standard location for temporary files. Equivalent to doing #pod #pod $tempdir = tempdir ( $template, DIR => File::Spec->tmpdir); #pod #pod but shorter. Parent directory specifications are stripped from the #pod template itself. The C<TMPDIR> option is ignored if C<DIR> is set #pod explicitly. Additionally, C<TMPDIR> is implied if neither a template #pod nor a directory are supplied. #pod #pod $tempdir = tempdir( $template, CLEANUP => 1); #pod #pod Create a temporary directory using the supplied template, but #pod attempt to remove it (and all files inside it) when the program #pod exits. Note that an attempt will be made to remove all files from #pod the directory even if they were not created by this module (otherwise #pod why ask to clean it up?). The directory removal is made with #pod the rmtree() function from the L<File::Path|File::Path> module. #pod Of course, if the template is not specified, the temporary directory #pod will be created in tmpdir() and will also be removed at program exit. #pod #pod Will croak() if there is an error. #pod #pod Current API available since 0.05. #pod #pod =cut # ' sub tempdir { if ( @_ && $_[0] eq 'File::Temp' ) { croak "'tempdir' can't be called as a method"; } # Can not check for argument count since we can have any # number of args # Default options my %options = ( "CLEANUP" => 0, # Remove directory on exit "DIR" => '', # Root directory "TMPDIR" => 0, # Use tempdir with template ); # Check to see whether we have an odd or even number of arguments my ($maybe_template, $args) = _parse_args(@_); my $template = @$maybe_template ? $maybe_template->[0] : undef; # Read the options and merge with defaults %options = (%options, %$args); # Modify or generate the template # Deal with the DIR and TMPDIR options if (defined $template) { # Need to strip directory path if using DIR or TMPDIR if ($options{'TMPDIR'} || $options{'DIR'}) { # Strip parent directory from the filename # # There is no filename at the end $template = VMS::Filespec::vmspath($template) if $^O eq 'VMS'; my ($volume, $directories, undef) = File::Spec->splitpath( $template, 1); # Last directory is then our template $template = (File::Spec->splitdir($directories))[-1]; # Prepend the supplied directory or temp dir if ($options{"DIR"}) { $template = File::Spec->catdir($options{"DIR"}, $template); } elsif ($options{TMPDIR}) { # Prepend tmpdir $template = File::Spec->catdir(_wrap_file_spec_tmpdir(), $template); } } } else { if ($options{"DIR"}) { $template = File::Spec->catdir($options{"DIR"}, TEMPXXX); } else { $template = File::Spec->catdir(_wrap_file_spec_tmpdir(), TEMPXXX); } } # Create the directory my $tempdir; my $suffixlen = 0; if ($^O eq 'VMS') { # dir names can end in delimiters $template =~ m/([\.\]:>]+)$/; $suffixlen = length($1); } if ( ($^O eq 'MacOS') && (substr($template, -1) eq ':') ) { # dir name has a trailing ':' ++$suffixlen; } my $errstr; croak "Error in tempdir() using $template: $errstr" unless ((undef, $tempdir) = _gettemp($template, "open" => 0, "mkdir"=> 1 , "suffixlen" => $suffixlen, "ErrStr" => \$errstr, ) ); # Install exit handler; must be dynamic to get lexical if ( $options{'CLEANUP'} && -d $tempdir) { _deferred_unlink(undef, $tempdir, 1); } # Return the dir name return $tempdir; } #pod =back #pod #pod =head1 MKTEMP FUNCTIONS #pod #pod The following functions are Perl implementations of the #pod mktemp() family of temp file generation system calls. #pod #pod =over 4 #pod #pod =item B<mkstemp> #pod #pod Given a template, returns a filehandle to the temporary file and the name #pod of the file. #pod #pod ($fh, $name) = mkstemp( $template ); #pod #pod In scalar context, just the filehandle is returned. #pod #pod The template may be any filename with some number of X's appended #pod to it, for example F</tmp/temp.XXXX>. The trailing X's are replaced #pod with unique alphanumeric combinations. #pod #pod Will croak() if there is an error. #pod #pod Current API available since 0.05. #pod #pod =cut sub mkstemp { croak "Usage: mkstemp(template)" if scalar(@_) != 1; my $template = shift; my ($fh, $path, $errstr); croak "Error in mkstemp using $template: $errstr" unless (($fh, $path) = _gettemp($template, "open" => 1, "mkdir"=> 0 , "suffixlen" => 0, "ErrStr" => \$errstr, ) ); if (wantarray()) { return ($fh, $path); } else { return $fh; } } #pod =item B<mkstemps> #pod #pod Similar to mkstemp(), except that an extra argument can be supplied #pod with a suffix to be appended to the template. #pod #pod ($fh, $name) = mkstemps( $template, $suffix ); #pod #pod For example a template of C<testXXXXXX> and suffix of C<.dat> #pod would generate a file similar to F<testhGji_w.dat>. #pod #pod Returns just the filehandle alone when called in scalar context. #pod #pod Will croak() if there is an error. #pod #pod Current API available since 0.05. #pod #pod =cut sub mkstemps { croak "Usage: mkstemps(template, suffix)" if scalar(@_) != 2; my $template = shift; my $suffix = shift; $template .= $suffix; my ($fh, $path, $errstr); croak "Error in mkstemps using $template: $errstr" unless (($fh, $path) = _gettemp($template, "open" => 1, "mkdir"=> 0 , "suffixlen" => length($suffix), "ErrStr" => \$errstr, ) ); if (wantarray()) { return ($fh, $path); } else { return $fh; } } #pod =item B<mkdtemp> #pod #pod Create a directory from a template. The template must end in #pod X's that are replaced by the routine. #pod #pod $tmpdir_name = mkdtemp($template); #pod #pod Returns the name of the temporary directory created. #pod #pod Directory must be removed by the caller. #pod #pod Will croak() if there is an error. #pod #pod Current API available since 0.05. #pod #pod =cut #' # for emacs sub mkdtemp { croak "Usage: mkdtemp(template)" if scalar(@_) != 1; my $template = shift; my $suffixlen = 0; if ($^O eq 'VMS') { # dir names can end in delimiters $template =~ m/([\.\]:>]+)$/; $suffixlen = length($1); } if ( ($^O eq 'MacOS') && (substr($template, -1) eq ':') ) { # dir name has a trailing ':' ++$suffixlen; } my ($junk, $tmpdir, $errstr); croak "Error creating temp directory from template $template\: $errstr" unless (($junk, $tmpdir) = _gettemp($template, "open" => 0, "mkdir"=> 1 , "suffixlen" => $suffixlen, "ErrStr" => \$errstr, ) ); return $tmpdir; } #pod =item B<mktemp> #pod #pod Returns a valid temporary filename but does not guarantee #pod that the file will not be opened by someone else. #pod #pod $unopened_file = mktemp($template); #pod #pod Template is the same as that required by mkstemp(). #pod #pod Will croak() if there is an error. #pod #pod Current API available since 0.05. #pod #pod =cut sub mktemp { croak "Usage: mktemp(template)" if scalar(@_) != 1; my $template = shift; my ($tmpname, $junk, $errstr); croak "Error getting name to temp file from template $template: $errstr" unless (($junk, $tmpname) = _gettemp($template, "open" => 0, "mkdir"=> 0 , "suffixlen" => 0, "ErrStr" => \$errstr, ) ); return $tmpname; } #pod =back #pod #pod =head1 POSIX FUNCTIONS #pod #pod This section describes the re-implementation of the tmpnam() #pod and tmpfile() functions described in L<POSIX> #pod using the mkstemp() from this module. #pod #pod Unlike the L<POSIX|POSIX> implementations, the directory used #pod for the temporary file is not specified in a system include #pod file (C<P_tmpdir>) but simply depends on the choice of tmpdir() #pod returned by L<File::Spec|File::Spec>. On some implementations this #pod location can be set using the C<TMPDIR> environment variable, which #pod may not be secure. #pod If this is a problem, simply use mkstemp() and specify a template. #pod #pod =over 4 #pod #pod =item B<tmpnam> #pod #pod When called in scalar context, returns the full name (including path) #pod of a temporary file (uses mktemp()). The only check is that the file does #pod not already exist, but there is no guarantee that that condition will #pod continue to apply. #pod #pod $file = tmpnam(); #pod #pod When called in list context, a filehandle to the open file and #pod a filename are returned. This is achieved by calling mkstemp() #pod after constructing a suitable template. #pod #pod ($fh, $file) = tmpnam(); #pod #pod If possible, this form should be used to prevent possible #pod race conditions. #pod #pod See L<File::Spec/tmpdir> for information on the choice of temporary #pod directory for a particular operating system. #pod #pod Will croak() if there is an error. #pod #pod Current API available since 0.05. #pod #pod =cut sub tmpnam { # Retrieve the temporary directory name my $tmpdir = _wrap_file_spec_tmpdir(); # XXX I don't know under what circumstances this occurs, -- xdg 2016-04-02 croak "Error temporary directory is not writable" if $tmpdir eq ''; # Use a ten character template and append to tmpdir my $template = File::Spec->catfile($tmpdir, TEMPXXX); if (wantarray() ) { return mkstemp($template); } else { return mktemp($template); } } #pod =item B<tmpfile> #pod #pod Returns the filehandle of a temporary file. #pod #pod $fh = tmpfile(); #pod #pod The file is removed when the filehandle is closed or when the program #pod exits. No access to the filename is provided. #pod #pod If the temporary file can not be created undef is returned. #pod Currently this command will probably not work when the temporary #pod directory is on an NFS file system. #pod #pod Will croak() if there is an error. #pod #pod Available since 0.05. #pod #pod Returning undef if unable to create file added in 0.12. #pod #pod =cut sub tmpfile { # Simply call tmpnam() in a list context my ($fh, $file) = tmpnam(); # Make sure file is removed when filehandle is closed # This will fail on NFS unlink0($fh, $file) or return undef; return $fh; } #pod =back #pod #pod =head1 ADDITIONAL FUNCTIONS #pod #pod These functions are provided for backwards compatibility #pod with common tempfile generation C library functions. #pod #pod They are not exported and must be addressed using the full package #pod name. #pod #pod =over 4 #pod #pod =item B<tempnam> #pod #pod Return the name of a temporary file in the specified directory #pod using a prefix. The file is guaranteed not to exist at the time #pod the function was called, but such guarantees are good for one #pod clock tick only. Always use the proper form of C<sysopen> #pod with C<O_CREAT | O_EXCL> if you must open such a filename. #pod #pod $filename = File::Temp::tempnam( $dir, $prefix ); #pod #pod Equivalent to running mktemp() with $dir/$prefixXXXXXXXX #pod (using unix file convention as an example) #pod #pod Because this function uses mktemp(), it can suffer from race conditions. #pod #pod Will croak() if there is an error. #pod #pod Current API available since 0.05. #pod #pod =cut sub tempnam { croak 'Usage tempnam($dir, $prefix)' unless scalar(@_) == 2; my ($dir, $prefix) = @_; # Add a string to the prefix $prefix .= 'XXXXXXXX'; # Concatenate the directory to the file my $template = File::Spec->catfile($dir, $prefix); return mktemp($template); } #pod =back #pod #pod =head1 UTILITY FUNCTIONS #pod #pod Useful functions for dealing with the filehandle and filename. #pod #pod =over 4 #pod #pod =item B<unlink0> #pod #pod Given an open filehandle and the associated filename, make a safe #pod unlink. This is achieved by first checking that the filename and #pod filehandle initially point to the same file and that the number of #pod links to the file is 1 (all fields returned by stat() are compared). #pod Then the filename is unlinked and the filehandle checked once again to #pod verify that the number of links on that file is now 0. This is the #pod closest you can come to making sure that the filename unlinked was the #pod same as the file whose descriptor you hold. #pod #pod unlink0($fh, $path) #pod or die "Error unlinking file $path safely"; #pod #pod Returns false on error but croaks() if there is a security #pod anomaly. The filehandle is not closed since on some occasions this is #pod not required. #pod #pod On some platforms, for example Windows NT, it is not possible to #pod unlink an open file (the file must be closed first). On those #pod platforms, the actual unlinking is deferred until the program ends and #pod good status is returned. A check is still performed to make sure that #pod the filehandle and filename are pointing to the same thing (but not at #pod the time the end block is executed since the deferred removal may not #pod have access to the filehandle). #pod #pod Additionally, on Windows NT not all the fields returned by stat() can #pod be compared. For example, the C<dev> and C<rdev> fields seem to be #pod different. Also, it seems that the size of the file returned by stat() #pod does not always agree, with C<stat(FH)> being more accurate than #pod C<stat(filename)>, presumably because of caching issues even when #pod using autoflush (this is usually overcome by waiting a while after #pod writing to the tempfile before attempting to C<unlink0> it). #pod #pod Finally, on NFS file systems the link count of the file handle does #pod not always go to zero immediately after unlinking. Currently, this #pod command is expected to fail on NFS disks. #pod #pod This function is disabled if the global variable $KEEP_ALL is true #pod and an unlink on open file is supported. If the unlink is to be deferred #pod to the END block, the file is still registered for removal. #pod #pod This function should not be called if you are using the object oriented #pod interface since the it will interfere with the object destructor deleting #pod the file. #pod #pod Available Since 0.05. #pod #pod If can not unlink open file, defer removal until later available since 0.06. #pod #pod =cut sub unlink0 { croak 'Usage: unlink0(filehandle, filename)' unless scalar(@_) == 2; # Read args my ($fh, $path) = @_; cmpstat($fh, $path) or return 0; # attempt remove the file (does not work on some platforms) if (_can_unlink_opened_file()) { # return early (Without unlink) if we have been instructed to retain files. return 1 if $KEEP_ALL; # XXX: do *not* call this on a directory; possible race # resulting in recursive removal croak "unlink0: $path has become a directory!" if -d $path; unlink($path) or return 0; # Stat the filehandle my @fh = stat $fh; print "Link count = $fh[3] \n" if $DEBUG; # Make sure that the link count is zero # - Cygwin provides deferred unlinking, however, # on Win9x the link count remains 1 # On NFS the link count may still be 1 but we can't know that # we are on NFS. Since we can't be sure, we'll defer it return 1 if $fh[3] == 0 || $^O eq 'cygwin'; } # fall-through if we can't unlink now _deferred_unlink($fh, $path, 0); return 1; } #pod =item B<cmpstat> #pod #pod Compare C<stat> of filehandle with C<stat> of provided filename. This #pod can be used to check that the filename and filehandle initially point #pod to the same file and that the number of links to the file is 1 (all #pod fields returned by stat() are compared). #pod #pod cmpstat($fh, $path) #pod or die "Error comparing handle with file"; #pod #pod Returns false if the stat information differs or if the link count is #pod greater than 1. Calls croak if there is a security anomaly. #pod #pod On certain platforms, for example Windows, not all the fields returned by stat() #pod can be compared. For example, the C<dev> and C<rdev> fields seem to be #pod different in Windows. Also, it seems that the size of the file #pod returned by stat() does not always agree, with C<stat(FH)> being more #pod accurate than C<stat(filename)>, presumably because of caching issues #pod even when using autoflush (this is usually overcome by waiting a while #pod after writing to the tempfile before attempting to C<unlink0> it). #pod #pod Not exported by default. #pod #pod Current API available since 0.14. #pod #pod =cut sub cmpstat { croak 'Usage: cmpstat(filehandle, filename)' unless scalar(@_) == 2; # Read args my ($fh, $path) = @_; warn "Comparing stat\n" if $DEBUG; # Stat the filehandle - which may be closed if someone has manually # closed the file. Can not turn off warnings without using $^W # unless we upgrade to 5.006 minimum requirement my @fh; { local ($^W) = 0; @fh = stat $fh; } return unless @fh; if ($fh[3] > 1 && $^W) { carp "unlink0: fstat found too many links; SB=@fh" if $^W; } # Stat the path my @path = stat $path; unless (@path) { carp "unlink0: $path is gone already" if $^W; return; } # this is no longer a file, but may be a directory, or worse unless (-f $path) { confess "panic: $path is no longer a file: SB=@fh"; } # Do comparison of each member of the array # On WinNT dev and rdev seem to be different # depending on whether it is a file or a handle. # Cannot simply compare all members of the stat return # Select the ones we can use my @okstat = (0..$#fh); # Use all by default if ($^O eq 'MSWin32') { @okstat = (1,2,3,4,5,7,8,9,10); } elsif ($^O eq 'os2') { @okstat = (0, 2..$#fh); } elsif ($^O eq 'VMS') { # device and file ID are sufficient @okstat = (0, 1); } elsif ($^O eq 'dos') { @okstat = (0,2..7,11..$#fh); } elsif ($^O eq 'mpeix') { @okstat = (0..4,8..10); } # Now compare each entry explicitly by number for (@okstat) { print "Comparing: $_ : $fh[$_] and $path[$_]\n" if $DEBUG; # Use eq rather than == since rdev, blksize, and blocks (6, 11, # and 12) will be '' on platforms that do not support them. This # is fine since we are only comparing integers. unless ($fh[$_] eq $path[$_]) { warn "Did not match $_ element of stat\n" if $DEBUG; return 0; } } return 1; } #pod =item B<unlink1> #pod #pod Similar to C<unlink0> except after file comparison using cmpstat, the #pod filehandle is closed prior to attempting to unlink the file. This #pod allows the file to be removed without using an END block, but does #pod mean that the post-unlink comparison of the filehandle state provided #pod by C<unlink0> is not available. #pod #pod unlink1($fh, $path) #pod or die "Error closing and unlinking file"; #pod #pod Usually called from the object destructor when using the OO interface. #pod #pod Not exported by default. #pod #pod This function is disabled if the global variable $KEEP_ALL is true. #pod #pod Can call croak() if there is a security anomaly during the stat() #pod comparison. #pod #pod Current API available since 0.14. #pod #pod =cut sub unlink1 { croak 'Usage: unlink1(filehandle, filename)' unless scalar(@_) == 2; # Read args my ($fh, $path) = @_; cmpstat($fh, $path) or return 0; # Close the file close( $fh ) or return 0; # Make sure the file is writable (for windows) _force_writable( $path ); # return early (without unlink) if we have been instructed to retain files. return 1 if $KEEP_ALL; # remove the file return unlink($path); } #pod =item B<cleanup> #pod #pod Calling this function will cause any temp files or temp directories #pod that are registered for removal to be removed. This happens automatically #pod when the process exits but can be triggered manually if the caller is sure #pod that none of the temp files are required. This method can be registered as #pod an Apache callback. #pod #pod Note that if a temp directory is your current directory, it cannot be #pod removed. C<chdir()> out of the directory first before calling #pod C<cleanup()>. (For the cleanup at program exit when the CLEANUP flag #pod is set, this happens automatically.) #pod #pod On OSes where temp files are automatically removed when the temp file #pod is closed, calling this function will have no effect other than to remove #pod temporary directories (which may include temporary files). #pod #pod File::Temp::cleanup(); #pod #pod Not exported by default. #pod #pod Current API available since 0.15. #pod #pod =back #pod #pod =head1 PACKAGE VARIABLES #pod #pod These functions control the global state of the package. #pod #pod =over 4 #pod #pod =item B<safe_level> #pod #pod Controls the lengths to which the module will go to check the safety of the #pod temporary file or directory before proceeding. #pod Options are: #pod #pod =over 8 #pod #pod =item STANDARD #pod #pod Do the basic security measures to ensure the directory exists and is #pod writable, that temporary files are opened only if they do not already #pod exist, and that possible race conditions are avoided. Finally the #pod L<unlink0|"unlink0"> function is used to remove files safely. #pod #pod =item MEDIUM #pod #pod In addition to the STANDARD security, the output directory is checked #pod to make sure that it is owned either by root or the user running the #pod program. If the directory is writable by group or by other, it is then #pod checked to make sure that the sticky bit is set. #pod #pod Will not work on platforms that do not support the C<-k> test #pod for sticky bit. #pod #pod =item HIGH #pod #pod In addition to the MEDIUM security checks, also check for the #pod possibility of ``chown() giveaway'' using the L<POSIX|POSIX> #pod sysconf() function. If this is a possibility, each directory in the #pod path is checked in turn for safeness, recursively walking back to the #pod root directory. #pod #pod For platforms that do not support the L<POSIX|POSIX> #pod C<_PC_CHOWN_RESTRICTED> symbol (for example, Windows NT) it is #pod assumed that ``chown() giveaway'' is possible and the recursive test #pod is performed. #pod #pod =back #pod #pod The level can be changed as follows: #pod #pod File::Temp->safe_level( File::Temp::HIGH ); #pod #pod The level constants are not exported by the module. #pod #pod Currently, you must be running at least perl v5.6.0 in order to #pod run with MEDIUM or HIGH security. This is simply because the #pod safety tests use functions from L<Fcntl|Fcntl> that are not #pod available in older versions of perl. The problem is that the version #pod number for Fcntl is the same in perl 5.6.0 and in 5.005_03 even though #pod they are different versions. #pod #pod On systems that do not support the HIGH or MEDIUM safety levels #pod (for example Win NT or OS/2) any attempt to change the level will #pod be ignored. The decision to ignore rather than raise an exception #pod allows portable programs to be written with high security in mind #pod for the systems that can support this without those programs failing #pod on systems where the extra tests are irrelevant. #pod #pod If you really need to see whether the change has been accepted #pod simply examine the return value of C<safe_level>. #pod #pod $newlevel = File::Temp->safe_level( File::Temp::HIGH ); #pod die "Could not change to high security" #pod if $newlevel != File::Temp::HIGH; #pod #pod Available since 0.05. #pod #pod =cut { # protect from using the variable itself my $LEVEL = STANDARD; sub safe_level { my $self = shift; if (@_) { my $level = shift; if (($level != STANDARD) && ($level != MEDIUM) && ($level != HIGH)) { carp "safe_level: Specified level ($level) not STANDARD, MEDIUM or HIGH - ignoring\n" if $^W; } else { # Don't allow this on perl 5.005 or earlier if ($] < 5.006 && $level != STANDARD) { # Cant do MEDIUM or HIGH checks croak "Currently requires perl 5.006 or newer to do the safe checks"; } # Check that we are allowed to change level # Silently ignore if we can not. $LEVEL = $level if _can_do_level($level); } } return $LEVEL; } } #pod =item TopSystemUID #pod #pod This is the highest UID on the current system that refers to a root #pod UID. This is used to make sure that the temporary directory is #pod owned by a system UID (C<root>, C<bin>, C<sys> etc) rather than #pod simply by root. #pod #pod This is required since on many unix systems C</tmp> is not owned #pod by root. #pod #pod Default is to assume that any UID less than or equal to 10 is a root #pod UID. #pod #pod File::Temp->top_system_uid(10); #pod my $topid = File::Temp->top_system_uid; #pod #pod This value can be adjusted to reduce security checking if required. #pod The value is only relevant when C<safe_level> is set to MEDIUM or higher. #pod #pod Available since 0.05. #pod #pod =cut { my $TopSystemUID = 10; $TopSystemUID = 197108 if $^O eq 'interix'; # "Administrator" sub top_system_uid { my $self = shift; if (@_) { my $newuid = shift; croak "top_system_uid: UIDs should be numeric" unless $newuid =~ /^\d+$/s; $TopSystemUID = $newuid; } return $TopSystemUID; } } #pod =item B<$KEEP_ALL> #pod #pod Controls whether temporary files and directories should be retained #pod regardless of any instructions in the program to remove them #pod automatically. This is useful for debugging but should not be used in #pod production code. #pod #pod $File::Temp::KEEP_ALL = 1; #pod #pod Default is for files to be removed as requested by the caller. #pod #pod In some cases, files will only be retained if this variable is true #pod when the file is created. This means that you can not create a temporary #pod file, set this variable and expect the temp file to still be around #pod when the program exits. #pod #pod =item B<$DEBUG> #pod #pod Controls whether debugging messages should be enabled. #pod #pod $File::Temp::DEBUG = 1; #pod #pod Default is for debugging mode to be disabled. #pod #pod Available since 0.15. #pod #pod =back #pod #pod =head1 WARNING #pod #pod For maximum security, endeavour always to avoid ever looking at, #pod touching, or even imputing the existence of the filename. You do not #pod know that that filename is connected to the same file as the handle #pod you have, and attempts to check this can only trigger more race #pod conditions. It's far more secure to use the filehandle alone and #pod dispense with the filename altogether. #pod #pod If you need to pass the handle to something that expects a filename #pod then on a unix system you can use C<"/dev/fd/" . fileno($fh)> for #pod arbitrary programs. Perl code that uses the 2-argument version of #pod C<< open >> can be passed C<< "+<=&" . fileno($fh) >>. Otherwise you #pod will need to pass the filename. You will have to clear the #pod close-on-exec bit on that file descriptor before passing it to another #pod process. #pod #pod use Fcntl qw/F_SETFD F_GETFD/; #pod fcntl($tmpfh, F_SETFD, 0) #pod or die "Can't clear close-on-exec flag on temp fh: $!\n"; #pod #pod =head2 Temporary files and NFS #pod #pod Some problems are associated with using temporary files that reside #pod on NFS file systems and it is recommended that a local filesystem #pod is used whenever possible. Some of the security tests will most probably #pod fail when the temp file is not local. Additionally, be aware that #pod the performance of I/O operations over NFS will not be as good as for #pod a local disk. #pod #pod =head2 Forking #pod #pod In some cases files created by File::Temp are removed from within an #pod END block. Since END blocks are triggered when a child process exits #pod (unless C<POSIX::_exit()> is used by the child) File::Temp takes care #pod to only remove those temp files created by a particular process ID. This #pod means that a child will not attempt to remove temp files created by the #pod parent process. #pod #pod If you are forking many processes in parallel that are all creating #pod temporary files, you may need to reset the random number seed using #pod srand(EXPR) in each child else all the children will attempt to walk #pod through the same set of random file names and may well cause #pod themselves to give up if they exceed the number of retry attempts. #pod #pod =head2 Directory removal #pod #pod Note that if you have chdir'ed into the temporary directory and it is #pod subsequently cleaned up (either in the END block or as part of object #pod destruction), then you will get a warning from File::Path::rmtree(). #pod #pod =head2 Taint mode #pod #pod If you need to run code under taint mode, updating to the latest #pod L<File::Spec> is highly recommended. On Windows, if the directory #pod given by L<File::Spec::tmpdir> isn't writable, File::Temp will attempt #pod to fallback to the user's local application data directory or croak #pod with an error. #pod #pod =head2 BINMODE #pod #pod The file returned by File::Temp will have been opened in binary mode #pod if such a mode is available. If that is not correct, use the C<binmode()> #pod function to change the mode of the filehandle. #pod #pod Note that you can modify the encoding of a file opened by File::Temp #pod also by using C<binmode()>. #pod #pod =head1 HISTORY #pod #pod Originally began life in May 1999 as an XS interface to the system #pod mkstemp() function. In March 2000, the OpenBSD mkstemp() code was #pod translated to Perl for total control of the code's #pod security checking, to ensure the presence of the function regardless of #pod operating system and to help with portability. The module was shipped #pod as a standard part of perl from v5.6.1. #pod #pod Thanks to Tom Christiansen for suggesting that this module #pod should be written and providing ideas for code improvements and #pod security enhancements. #pod #pod =head1 SEE ALSO #pod #pod L<POSIX/tmpnam>, L<POSIX/tmpfile>, L<File::Spec>, L<File::Path> #pod #pod See L<IO::File> and L<File::MkTemp>, L<Apache::TempFile> for #pod different implementations of temporary file handling. #pod #pod See L<File::Tempdir> for an alternative object-oriented wrapper for #pod the C<tempdir> function. #pod #pod =cut package ## hide from PAUSE File::Temp::Dir; our $VERSION = '0.2311'; use File::Path qw/ rmtree /; use strict; use overload '""' => "STRINGIFY", '0+' => \&File::Temp::NUMIFY, fallback => 1; # private class specifically to support tempdir objects # created by File::Temp->newdir # ostensibly the same method interface as File::Temp but without # inheriting all the IO::Seekable methods and other cruft # Read-only - returns the name of the temp directory sub dirname { my $self = shift; return $self->{DIRNAME}; } sub STRINGIFY { my $self = shift; return $self->dirname; } sub unlink_on_destroy { my $self = shift; if (@_) { $self->{CLEANUP} = shift; } return $self->{CLEANUP}; } sub DESTROY { my $self = shift; local($., $@, $!, $^E, $?); if ($self->unlink_on_destroy && $$ == $self->{LAUNCHPID} && !$File::Temp::KEEP_ALL) { if (-d $self->{REALNAME}) { # Some versions of rmtree will abort if you attempt to remove # the directory you are sitting in. We protect that and turn it # into a warning. We do this because this occurs during object # destruction and so can not be caught by the user. eval { rmtree($self->{REALNAME}, $File::Temp::DEBUG, 0); }; warn $@ if ($@ && $^W); } } } 1; # vim: ts=2 sts=2 sw=2 et: __END__ =pod =encoding UTF-8 =head1 NAME File::Temp - return name and handle of a temporary file safely =head1 VERSION version 0.2311 =head1 SYNOPSIS use File::Temp qw/ tempfile tempdir /; $fh = tempfile(); ($fh, $filename) = tempfile(); ($fh, $filename) = tempfile( $template, DIR => $dir); ($fh, $filename) = tempfile( $template, SUFFIX => '.dat'); ($fh, $filename) = tempfile( $template, TMPDIR => 1 ); binmode( $fh, ":utf8" ); $dir = tempdir( CLEANUP => 1 ); ($fh, $filename) = tempfile( DIR => $dir ); Object interface: require File::Temp; use File::Temp (); use File::Temp qw/ :seekable /; $fh = File::Temp->new(); $fname = $fh->filename; $fh = File::Temp->new(TEMPLATE => $template); $fname = $fh->filename; $tmp = File::Temp->new( UNLINK => 0, SUFFIX => '.dat' ); print $tmp "Some data\n"; print "Filename is $tmp\n"; $tmp->seek( 0, SEEK_END ); $dir = File::Temp->newdir(); # CLEANUP => 1 by default The following interfaces are provided for compatibility with existing APIs. They should not be used in new code. MkTemp family: use File::Temp qw/ :mktemp /; ($fh, $file) = mkstemp( "tmpfileXXXXX" ); ($fh, $file) = mkstemps( "tmpfileXXXXXX", $suffix); $tmpdir = mkdtemp( $template ); $unopened_file = mktemp( $template ); POSIX functions: use File::Temp qw/ :POSIX /; $file = tmpnam(); $fh = tmpfile(); ($fh, $file) = tmpnam(); Compatibility functions: $unopened_file = File::Temp::tempnam( $dir, $pfx ); =head1 DESCRIPTION C<File::Temp> can be used to create and open temporary files in a safe way. There is both a function interface and an object-oriented interface. The File::Temp constructor or the tempfile() function can be used to return the name and the open filehandle of a temporary file. The tempdir() function can be used to create a temporary directory. The security aspect of temporary file creation is emphasized such that a filehandle and filename are returned together. This helps guarantee that a race condition can not occur where the temporary file is created by another process between checking for the existence of the file and its opening. Additional security levels are provided to check, for example, that the sticky bit is set on world writable directories. See L<"safe_level"> for more information. For compatibility with popular C library functions, Perl implementations of the mkstemp() family of functions are provided. These are, mkstemp(), mkstemps(), mkdtemp() and mktemp(). Additionally, implementations of the standard L<POSIX|POSIX> tmpnam() and tmpfile() functions are provided if required. Implementations of mktemp(), tmpnam(), and tempnam() are provided, but should be used with caution since they return only a filename that was valid when function was called, so cannot guarantee that the file will not exist by the time the caller opens the filename. Filehandles returned by these functions support the seekable methods. =begin :__INTERNALS =head1 PORTABILITY This section is at the top in order to provide easier access to porters. It is not expected to be rendered by a standard pod formatting tool. Please skip straight to the SYNOPSIS section if you are not trying to port this module to a new platform. This module is designed to be portable across operating systems and it currently supports Unix, VMS, DOS, OS/2, Windows and Mac OS (Classic). When porting to a new OS there are generally three main issues that have to be solved: =over 4 =item * Can the OS unlink an open file? If it can not then the C<_can_unlink_opened_file> method should be modified. =item * Are the return values from C<stat> reliable? By default all the return values from C<stat> are compared when unlinking a temporary file using the filename and the handle. Operating systems other than unix do not always have valid entries in all fields. If utility function C<File::Temp::unlink0> fails then the C<stat> comparison should be modified accordingly. =item * Security. Systems that can not support a test for the sticky bit on a directory can not use the MEDIUM and HIGH security tests. The C<_can_do_level> method should be modified accordingly. =back =end :__INTERNALS =head1 OBJECT-ORIENTED INTERFACE This is the primary interface for interacting with C<File::Temp>. Using the OO interface a temporary file can be created when the object is constructed and the file can be removed when the object is no longer required. Note that there is no method to obtain the filehandle from the C<File::Temp> object. The object itself acts as a filehandle. The object isa C<IO::Handle> and isa C<IO::Seekable> so all those methods are available. Also, the object is configured such that it stringifies to the name of the temporary file and so can be compared to a filename directly. It numifies to the C<refaddr> the same as other handles and so can be compared to other handles with C<==>. $fh eq $filename # as a string $fh != \*STDOUT # as a number Available since 0.14. =over 4 =item B<new> Create a temporary file object. my $tmp = File::Temp->new(); by default the object is constructed as if C<tempfile> was called without options, but with the additional behaviour that the temporary file is removed by the object destructor if UNLINK is set to true (the default). Supported arguments are the same as for C<tempfile>: UNLINK (defaulting to true), DIR, EXLOCK, PERMS and SUFFIX. Additionally, the filename template is specified using the TEMPLATE option. The OPEN option is not supported (the file is always opened). $tmp = File::Temp->new( TEMPLATE => 'tempXXXXX', DIR => 'mydir', SUFFIX => '.dat'); Arguments are case insensitive. Can call croak() if an error occurs. Available since 0.14. TEMPLATE available since 0.23 =item B<newdir> Create a temporary directory using an object oriented interface. $dir = File::Temp->newdir(); By default the directory is deleted when the object goes out of scope. Supports the same options as the C<tempdir> function. Note that directories created with this method default to CLEANUP => 1. $dir = File::Temp->newdir( $template, %options ); A template may be specified either with a leading template or with a TEMPLATE argument. Available since 0.19. TEMPLATE available since 0.23. =item B<filename> Return the name of the temporary file associated with this object (if the object was created using the "new" constructor). $filename = $tmp->filename; This method is called automatically when the object is used as a string. Current API available since 0.14 =item B<dirname> Return the name of the temporary directory associated with this object (if the object was created using the "newdir" constructor). $dirname = $tmpdir->dirname; This method is called automatically when the object is used in string context. =item B<unlink_on_destroy> Control whether the file is unlinked when the object goes out of scope. The file is removed if this value is true and $KEEP_ALL is not. $fh->unlink_on_destroy( 1 ); Default is for the file to be removed. Current API available since 0.15 =item B<DESTROY> When the object goes out of scope, the destructor is called. This destructor will attempt to unlink the file (using L<unlink1|"unlink1">) if the constructor was called with UNLINK set to 1 (the default state if UNLINK is not specified). No error is given if the unlink fails. If the object has been passed to a child process during a fork, the file will be deleted when the object goes out of scope in the parent. For a temporary directory object the directory will be removed unless the CLEANUP argument was used in the constructor (and set to false) or C<unlink_on_destroy> was modified after creation. Note that if a temp directory is your current directory, it cannot be removed - a warning will be given in this case. C<chdir()> out of the directory before letting the object go out of scope. If the global variable $KEEP_ALL is true, the file or directory will not be removed. =back =head1 FUNCTIONS This section describes the recommended interface for generating temporary files and directories. =over 4 =item B<tempfile> This is the basic function to generate temporary files. The behaviour of the file can be changed using various options: $fh = tempfile(); ($fh, $filename) = tempfile(); Create a temporary file in the directory specified for temporary files, as specified by the tmpdir() function in L<File::Spec>. ($fh, $filename) = tempfile($template); Create a temporary file in the current directory using the supplied template. Trailing `X' characters are replaced with random letters to generate the filename. At least four `X' characters must be present at the end of the template. ($fh, $filename) = tempfile($template, SUFFIX => $suffix) Same as previously, except that a suffix is added to the template after the `X' translation. Useful for ensuring that a temporary filename has a particular extension when needed by other applications. But see the WARNING at the end. ($fh, $filename) = tempfile($template, DIR => $dir); Translates the template as before except that a directory name is specified. ($fh, $filename) = tempfile($template, TMPDIR => 1); Equivalent to specifying a DIR of "File::Spec->tmpdir", writing the file into the same temporary directory as would be used if no template was specified at all. ($fh, $filename) = tempfile($template, UNLINK => 1); Return the filename and filehandle as before except that the file is automatically removed when the program exits (dependent on $KEEP_ALL). Default is for the file to be removed if a file handle is requested and to be kept if the filename is requested. In a scalar context (where no filename is returned) the file is always deleted either (depending on the operating system) on exit or when it is closed (unless $KEEP_ALL is true when the temp file is created). Use the object-oriented interface if fine-grained control of when a file is removed is required. If the template is not specified, a template is always automatically generated. This temporary file is placed in tmpdir() (L<File::Spec>) unless a directory is specified explicitly with the DIR option. $fh = tempfile( DIR => $dir ); If called in scalar context, only the filehandle is returned and the file will automatically be deleted when closed on operating systems that support this (see the description of tmpfile() elsewhere in this document). This is the preferred mode of operation, as if you only have a filehandle, you can never create a race condition by fumbling with the filename. On systems that can not unlink an open file or can not mark a file as temporary when it is opened (for example, Windows NT uses the C<O_TEMPORARY> flag) the file is marked for deletion when the program ends (equivalent to setting UNLINK to 1). The C<UNLINK> flag is ignored if present. (undef, $filename) = tempfile($template, OPEN => 0); This will return the filename based on the template but will not open this file. Cannot be used in conjunction with UNLINK set to true. Default is to always open the file to protect from possible race conditions. A warning is issued if warnings are turned on. Consider using the tmpnam() and mktemp() functions described elsewhere in this document if opening the file is not required. To open the temporary filehandle with O_EXLOCK (open with exclusive file lock) use C<< EXLOCK=>1 >>. This is supported only by some operating systems (most notably BSD derived systems). By default EXLOCK will be false. Former C<File::Temp> versions set EXLOCK to true, so to be sure to get an unlocked filehandle also with older versions, explicitly set C<< EXLOCK=>0 >>. ($fh, $filename) = tempfile($template, EXLOCK => 1); By default, the temp file is created with 0600 file permissions. Use C<PERMS> to change this: ($fh, $filename) = tempfile($template, PERMS => 0666); Options can be combined as required. Will croak() if there is an error. Available since 0.05. UNLINK flag available since 0.10. TMPDIR flag available since 0.19. EXLOCK flag available since 0.19. PERMS flag available since 0.2310. =item B<tempdir> This is the recommended interface for creation of temporary directories. By default the directory will not be removed on exit (that is, it won't be temporary; this behaviour can not be changed because of issues with backwards compatibility). To enable removal either use the CLEANUP option which will trigger removal on program exit, or consider using the "newdir" method in the object interface which will allow the directory to be cleaned up when the object goes out of scope. The behaviour of the function depends on the arguments: $tempdir = tempdir(); Create a directory in tmpdir() (see L<File::Spec|File::Spec>). $tempdir = tempdir( $template ); Create a directory from the supplied template. This template is similar to that described for tempfile(). `X' characters at the end of the template are replaced with random letters to construct the directory name. At least four `X' characters must be in the template. $tempdir = tempdir ( DIR => $dir ); Specifies the directory to use for the temporary directory. The temporary directory name is derived from an internal template. $tempdir = tempdir ( $template, DIR => $dir ); Prepend the supplied directory name to the template. The template should not include parent directory specifications itself. Any parent directory specifications are removed from the template before prepending the supplied directory. $tempdir = tempdir ( $template, TMPDIR => 1 ); Using the supplied template, create the temporary directory in a standard location for temporary files. Equivalent to doing $tempdir = tempdir ( $template, DIR => File::Spec->tmpdir); but shorter. Parent directory specifications are stripped from the template itself. The C<TMPDIR> option is ignored if C<DIR> is set explicitly. Additionally, C<TMPDIR> is implied if neither a template nor a directory are supplied. $tempdir = tempdir( $template, CLEANUP => 1); Create a temporary directory using the supplied template, but attempt to remove it (and all files inside it) when the program exits. Note that an attempt will be made to remove all files from the directory even if they were not created by this module (otherwise why ask to clean it up?). The directory removal is made with the rmtree() function from the L<File::Path|File::Path> module. Of course, if the template is not specified, the temporary directory will be created in tmpdir() and will also be removed at program exit. Will croak() if there is an error. Current API available since 0.05. =back =head1 MKTEMP FUNCTIONS The following functions are Perl implementations of the mktemp() family of temp file generation system calls. =over 4 =item B<mkstemp> Given a template, returns a filehandle to the temporary file and the name of the file. ($fh, $name) = mkstemp( $template ); In scalar context, just the filehandle is returned. The template may be any filename with some number of X's appended to it, for example F</tmp/temp.XXXX>. The trailing X's are replaced with unique alphanumeric combinations. Will croak() if there is an error. Current API available since 0.05. =item B<mkstemps> Similar to mkstemp(), except that an extra argument can be supplied with a suffix to be appended to the template. ($fh, $name) = mkstemps( $template, $suffix ); For example a template of C<testXXXXXX> and suffix of C<.dat> would generate a file similar to F<testhGji_w.dat>. Returns just the filehandle alone when called in scalar context. Will croak() if there is an error. Current API available since 0.05. =item B<mkdtemp> Create a directory from a template. The template must end in X's that are replaced by the routine. $tmpdir_name = mkdtemp($template); Returns the name of the temporary directory created. Directory must be removed by the caller. Will croak() if there is an error. Current API available since 0.05. =item B<mktemp> Returns a valid temporary filename but does not guarantee that the file will not be opened by someone else. $unopened_file = mktemp($template); Template is the same as that required by mkstemp(). Will croak() if there is an error. Current API available since 0.05. =back =head1 POSIX FUNCTIONS This section describes the re-implementation of the tmpnam() and tmpfile() functions described in L<POSIX> using the mkstemp() from this module. Unlike the L<POSIX|POSIX> implementations, the directory used for the temporary file is not specified in a system include file (C<P_tmpdir>) but simply depends on the choice of tmpdir() returned by L<File::Spec|File::Spec>. On some implementations this location can be set using the C<TMPDIR> environment variable, which may not be secure. If this is a problem, simply use mkstemp() and specify a template. =over 4 =item B<tmpnam> When called in scalar context, returns the full name (including path) of a temporary file (uses mktemp()). The only check is that the file does not already exist, but there is no guarantee that that condition will continue to apply. $file = tmpnam(); When called in list context, a filehandle to the open file and a filename are returned. This is achieved by calling mkstemp() after constructing a suitable template. ($fh, $file) = tmpnam(); If possible, this form should be used to prevent possible race conditions. See L<File::Spec/tmpdir> for information on the choice of temporary directory for a particular operating system. Will croak() if there is an error. Current API available since 0.05. =item B<tmpfile> Returns the filehandle of a temporary file. $fh = tmpfile(); The file is removed when the filehandle is closed or when the program exits. No access to the filename is provided. If the temporary file can not be created undef is returned. Currently this command will probably not work when the temporary directory is on an NFS file system. Will croak() if there is an error. Available since 0.05. Returning undef if unable to create file added in 0.12. =back =head1 ADDITIONAL FUNCTIONS These functions are provided for backwards compatibility with common tempfile generation C library functions. They are not exported and must be addressed using the full package name. =over 4 =item B<tempnam> Return the name of a temporary file in the specified directory using a prefix. The file is guaranteed not to exist at the time the function was called, but such guarantees are good for one clock tick only. Always use the proper form of C<sysopen> with C<O_CREAT | O_EXCL> if you must open such a filename. $filename = File::Temp::tempnam( $dir, $prefix ); Equivalent to running mktemp() with $dir/$prefixXXXXXXXX (using unix file convention as an example) Because this function uses mktemp(), it can suffer from race conditions. Will croak() if there is an error. Current API available since 0.05. =back =head1 UTILITY FUNCTIONS Useful functions for dealing with the filehandle and filename. =over 4 =item B<unlink0> Given an open filehandle and the associated filename, make a safe unlink. This is achieved by first checking that the filename and filehandle initially point to the same file and that the number of links to the file is 1 (all fields returned by stat() are compared). Then the filename is unlinked and the filehandle checked once again to verify that the number of links on that file is now 0. This is the closest you can come to making sure that the filename unlinked was the same as the file whose descriptor you hold. unlink0($fh, $path) or die "Error unlinking file $path safely"; Returns false on error but croaks() if there is a security anomaly. The filehandle is not closed since on some occasions this is not required. On some platforms, for example Windows NT, it is not possible to unlink an open file (the file must be closed first). On those platforms, the actual unlinking is deferred until the program ends and good status is returned. A check is still performed to make sure that the filehandle and filename are pointing to the same thing (but not at the time the end block is executed since the deferred removal may not have access to the filehandle). Additionally, on Windows NT not all the fields returned by stat() can be compared. For example, the C<dev> and C<rdev> fields seem to be different. Also, it seems that the size of the file returned by stat() does not always agree, with C<stat(FH)> being more accurate than C<stat(filename)>, presumably because of caching issues even when using autoflush (this is usually overcome by waiting a while after writing to the tempfile before attempting to C<unlink0> it). Finally, on NFS file systems the link count of the file handle does not always go to zero immediately after unlinking. Currently, this command is expected to fail on NFS disks. This function is disabled if the global variable $KEEP_ALL is true and an unlink on open file is supported. If the unlink is to be deferred to the END block, the file is still registered for removal. This function should not be called if you are using the object oriented interface since the it will interfere with the object destructor deleting the file. Available Since 0.05. If can not unlink open file, defer removal until later available since 0.06. =item B<cmpstat> Compare C<stat> of filehandle with C<stat> of provided filename. This can be used to check that the filename and filehandle initially point to the same file and that the number of links to the file is 1 (all fields returned by stat() are compared). cmpstat($fh, $path) or die "Error comparing handle with file"; Returns false if the stat information differs or if the link count is greater than 1. Calls croak if there is a security anomaly. On certain platforms, for example Windows, not all the fields returned by stat() can be compared. For example, the C<dev> and C<rdev> fields seem to be different in Windows. Also, it seems that the size of the file returned by stat() does not always agree, with C<stat(FH)> being more accurate than C<stat(filename)>, presumably because of caching issues even when using autoflush (this is usually overcome by waiting a while after writing to the tempfile before attempting to C<unlink0> it). Not exported by default. Current API available since 0.14. =item B<unlink1> Similar to C<unlink0> except after file comparison using cmpstat, the filehandle is closed prior to attempting to unlink the file. This allows the file to be removed without using an END block, but does mean that the post-unlink comparison of the filehandle state provided by C<unlink0> is not available. unlink1($fh, $path) or die "Error closing and unlinking file"; Usually called from the object destructor when using the OO interface. Not exported by default. This function is disabled if the global variable $KEEP_ALL is true. Can call croak() if there is a security anomaly during the stat() comparison. Current API available since 0.14. =item B<cleanup> Calling this function will cause any temp files or temp directories that are registered for removal to be removed. This happens automatically when the process exits but can be triggered manually if the caller is sure that none of the temp files are required. This method can be registered as an Apache callback. Note that if a temp directory is your current directory, it cannot be removed. C<chdir()> out of the directory first before calling C<cleanup()>. (For the cleanup at program exit when the CLEANUP flag is set, this happens automatically.) On OSes where temp files are automatically removed when the temp file is closed, calling this function will have no effect other than to remove temporary directories (which may include temporary files). File::Temp::cleanup(); Not exported by default. Current API available since 0.15. =back =head1 PACKAGE VARIABLES These functions control the global state of the package. =over 4 =item B<safe_level> Controls the lengths to which the module will go to check the safety of the temporary file or directory before proceeding. Options are: =over 8 =item STANDARD Do the basic security measures to ensure the directory exists and is writable, that temporary files are opened only if they do not already exist, and that possible race conditions are avoided. Finally the L<unlink0|"unlink0"> function is used to remove files safely. =item MEDIUM In addition to the STANDARD security, the output directory is checked to make sure that it is owned either by root or the user running the program. If the directory is writable by group or by other, it is then checked to make sure that the sticky bit is set. Will not work on platforms that do not support the C<-k> test for sticky bit. =item HIGH In addition to the MEDIUM security checks, also check for the possibility of ``chown() giveaway'' using the L<POSIX|POSIX> sysconf() function. If this is a possibility, each directory in the path is checked in turn for safeness, recursively walking back to the root directory. For platforms that do not support the L<POSIX|POSIX> C<_PC_CHOWN_RESTRICTED> symbol (for example, Windows NT) it is assumed that ``chown() giveaway'' is possible and the recursive test is performed. =back The level can be changed as follows: File::Temp->safe_level( File::Temp::HIGH ); The level constants are not exported by the module. Currently, you must be running at least perl v5.6.0 in order to run with MEDIUM or HIGH security. This is simply because the safety tests use functions from L<Fcntl|Fcntl> that are not available in older versions of perl. The problem is that the version number for Fcntl is the same in perl 5.6.0 and in 5.005_03 even though they are different versions. On systems that do not support the HIGH or MEDIUM safety levels (for example Win NT or OS/2) any attempt to change the level will be ignored. The decision to ignore rather than raise an exception allows portable programs to be written with high security in mind for the systems that can support this without those programs failing on systems where the extra tests are irrelevant. If you really need to see whether the change has been accepted simply examine the return value of C<safe_level>. $newlevel = File::Temp->safe_level( File::Temp::HIGH ); die "Could not change to high security" if $newlevel != File::Temp::HIGH; Available since 0.05. =item TopSystemUID This is the highest UID on the current system that refers to a root UID. This is used to make sure that the temporary directory is owned by a system UID (C<root>, C<bin>, C<sys> etc) rather than simply by root. This is required since on many unix systems C</tmp> is not owned by root. Default is to assume that any UID less than or equal to 10 is a root UID. File::Temp->top_system_uid(10); my $topid = File::Temp->top_system_uid; This value can be adjusted to reduce security checking if required. The value is only relevant when C<safe_level> is set to MEDIUM or higher. Available since 0.05. =item B<$KEEP_ALL> Controls whether temporary files and directories should be retained regardless of any instructions in the program to remove them automatically. This is useful for debugging but should not be used in production code. $File::Temp::KEEP_ALL = 1; Default is for files to be removed as requested by the caller. In some cases, files will only be retained if this variable is true when the file is created. This means that you can not create a temporary file, set this variable and expect the temp file to still be around when the program exits. =item B<$DEBUG> Controls whether debugging messages should be enabled. $File::Temp::DEBUG = 1; Default is for debugging mode to be disabled. Available since 0.15. =back =head1 WARNING For maximum security, endeavour always to avoid ever looking at, touching, or even imputing the existence of the filename. You do not know that that filename is connected to the same file as the handle you have, and attempts to check this can only trigger more race conditions. It's far more secure to use the filehandle alone and dispense with the filename altogether. If you need to pass the handle to something that expects a filename then on a unix system you can use C<"/dev/fd/" . fileno($fh)> for arbitrary programs. Perl code that uses the 2-argument version of C<< open >> can be passed C<< "+<=&" . fileno($fh) >>. Otherwise you will need to pass the filename. You will have to clear the close-on-exec bit on that file descriptor before passing it to another process. use Fcntl qw/F_SETFD F_GETFD/; fcntl($tmpfh, F_SETFD, 0) or die "Can't clear close-on-exec flag on temp fh: $!\n"; =head2 Temporary files and NFS Some problems are associated with using temporary files that reside on NFS file systems and it is recommended that a local filesystem is used whenever possible. Some of the security tests will most probably fail when the temp file is not local. Additionally, be aware that the performance of I/O operations over NFS will not be as good as for a local disk. =head2 Forking In some cases files created by File::Temp are removed from within an END block. Since END blocks are triggered when a child process exits (unless C<POSIX::_exit()> is used by the child) File::Temp takes care to only remove those temp files created by a particular process ID. This means that a child will not attempt to remove temp files created by the parent process. If you are forking many processes in parallel that are all creating temporary files, you may need to reset the random number seed using srand(EXPR) in each child else all the children will attempt to walk through the same set of random file names and may well cause themselves to give up if they exceed the number of retry attempts. =head2 Directory removal Note that if you have chdir'ed into the temporary directory and it is subsequently cleaned up (either in the END block or as part of object destruction), then you will get a warning from File::Path::rmtree(). =head2 Taint mode If you need to run code under taint mode, updating to the latest L<File::Spec> is highly recommended. On Windows, if the directory given by L<File::Spec::tmpdir> isn't writable, File::Temp will attempt to fallback to the user's local application data directory or croak with an error. =head2 BINMODE The file returned by File::Temp will have been opened in binary mode if such a mode is available. If that is not correct, use the C<binmode()> function to change the mode of the filehandle. Note that you can modify the encoding of a file opened by File::Temp also by using C<binmode()>. =head1 HISTORY Originally began life in May 1999 as an XS interface to the system mkstemp() function. In March 2000, the OpenBSD mkstemp() code was translated to Perl for total control of the code's security checking, to ensure the presence of the function regardless of operating system and to help with portability. The module was shipped as a standard part of perl from v5.6.1. Thanks to Tom Christiansen for suggesting that this module should be written and providing ideas for code improvements and security enhancements. =head1 SEE ALSO L<POSIX/tmpnam>, L<POSIX/tmpfile>, L<File::Spec>, L<File::Path> See L<IO::File> and L<File::MkTemp>, L<Apache::TempFile> for different implementations of temporary file handling. See L<File::Tempdir> for an alternative object-oriented wrapper for the C<tempdir> function. =for Pod::Coverage STRINGIFY NUMIFY top_system_uid =head1 SUPPORT Bugs may be submitted through L<the RT bug tracker|https://rt.cpan.org/Public/Dist/Display.html?Name=File-Temp> (or L<bug-File-Temp@rt.cpan.org|mailto:bug-File-Temp@rt.cpan.org>). There is also a mailing list available for users of this distribution, at L<http://lists.perl.org/list/cpan-workers.html>. There is also an irc channel available for users of this distribution, at L<C<#toolchain> on C<irc.perl.org>|irc://irc.perl.org/#toolchain>. =head1 AUTHOR Tim Jenness <tjenness@cpan.org> =head1 CONTRIBUTORS =for stopwords Tim Jenness Karen Etheridge David Golden Slaven Rezic mohawk2 Roy Ivy III Peter Rabbitson Olivier Mengué John Acklam Gim Yee Nicolas R Brian Mowrey Dagfinn Ilmari Mannsåker Steinbrunner Ed Avis Guillem Jover James E. Keenan Kevin Ryde Ben Tilly =over 4 =item * Tim Jenness <t.jenness@jach.hawaii.edu> =item * Karen Etheridge <ether@cpan.org> =item * David Golden <dagolden@cpan.org> =item * Slaven Rezic <srezic@cpan.org> =item * mohawk2 <mohawk2@users.noreply.github.com> =item * Roy Ivy III <rivy.dev@gmail.com> =item * Peter Rabbitson <ribasushi@cpan.org> =item * Olivier Mengué <dolmen@cpan.org> =item * Peter John Acklam <pjacklam@online.no> =item * Tim Gim Yee <tim.gim.yee@gmail.com> =item * Nicolas R <atoomic@cpan.org> =item * Brian Mowrey <brian@drlabs.org> =item * Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> =item * David Steinbrunner <dsteinbrunner@pobox.com> =item * Ed Avis <eda@linux01.wcl.local> =item * Guillem Jover <guillem@hadrons.org> =item * James E. Keenan <jkeen@verizon.net> =item * Kevin Ryde <user42@zip.com.au> =item * Ben Tilly <btilly@gmail.com> =back =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2020 by Tim Jenness and the UK Particle Physics and Astronomy Research Council. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut PK ! � U�y� y� 5.34.0/File/Fetch.pmnu �[��� package File::Fetch; use strict; use FileHandle; use File::Temp; use File::Copy; use File::Spec; use File::Spec::Unix; use File::Basename qw[dirname]; use Cwd qw[cwd]; use Carp qw[carp]; use IPC::Cmd qw[can_run run QUOTE]; use File::Path qw[mkpath]; use File::Temp qw[tempdir]; use Params::Check qw[check]; use Module::Load::Conditional qw[can_load]; use Locale::Maketext::Simple Style => 'gettext'; use vars qw[ $VERBOSE $PREFER_BIN $FROM_EMAIL $USER_AGENT $BLACKLIST $METHOD_FAIL $VERSION $METHODS $FTP_PASSIVE $TIMEOUT $DEBUG $WARN $FORCEIPV4 ]; $VERSION = '1.00'; $VERSION = eval $VERSION; # avoid warnings with development releases $PREFER_BIN = 0; # XXX TODO implement $FROM_EMAIL = 'File-Fetch@example.com'; $USER_AGENT = "File::Fetch/$VERSION"; $BLACKLIST = [qw|ftp|]; push @$BLACKLIST, qw|lftp| if $^O eq 'dragonfly' || $^O eq 'hpux'; $METHOD_FAIL = { }; $FTP_PASSIVE = 1; $TIMEOUT = 0; $DEBUG = 0; $WARN = 1; $FORCEIPV4 = 0; ### methods available to fetch the file depending on the scheme $METHODS = { http => [ qw|lwp httptiny wget curl lftp fetch httplite lynx iosock| ], https => [ qw|lwp wget curl| ], ftp => [ qw|lwp netftp wget curl lftp fetch ncftp ftp| ], file => [ qw|lwp lftp file| ], rsync => [ qw|rsync| ], git => [ qw|git| ], }; ### silly warnings ### local $Params::Check::VERBOSE = 1; local $Params::Check::VERBOSE = 1; local $Module::Load::Conditional::VERBOSE = 0; local $Module::Load::Conditional::VERBOSE = 0; ### see what OS we are on, important for file:// uris ### use constant ON_WIN => ($^O eq 'MSWin32'); use constant ON_VMS => ($^O eq 'VMS'); use constant ON_UNIX => (!ON_WIN); use constant HAS_VOL => (ON_WIN); use constant HAS_SHARE => (ON_WIN); use constant HAS_FETCH => ( $^O =~ m!^(freebsd|netbsd|dragonfly)$! ); =pod =head1 NAME File::Fetch - A generic file fetching mechanism =head1 SYNOPSIS use File::Fetch; ### build a File::Fetch object ### my $ff = File::Fetch->new(uri => 'http://some.where.com/dir/a.txt'); ### fetch the uri to cwd() ### my $where = $ff->fetch() or die $ff->error; ### fetch the uri to /tmp ### my $where = $ff->fetch( to => '/tmp' ); ### parsed bits from the uri ### $ff->uri; $ff->scheme; $ff->host; $ff->path; $ff->file; =head1 DESCRIPTION File::Fetch is a generic file fetching mechanism. It allows you to fetch any file pointed to by a C<ftp>, C<http>, C<file>, C<git> or C<rsync> uri by a number of different means. See the C<HOW IT WORKS> section further down for details. =head1 ACCESSORS A C<File::Fetch> object has the following accessors =over 4 =item $ff->uri The uri you passed to the constructor =item $ff->scheme The scheme from the uri (like 'file', 'http', etc) =item $ff->host The hostname in the uri. Will be empty if host was originally 'localhost' for a 'file://' url. =item $ff->vol On operating systems with the concept of a volume the second element of a file:// is considered to the be volume specification for the file. Thus on Win32 this routine returns the volume, on other operating systems this returns nothing. On Windows this value may be empty if the uri is to a network share, in which case the 'share' property will be defined. Additionally, volume specifications that use '|' as ':' will be converted on read to use ':'. On VMS, which has a volume concept, this field will be empty because VMS file specifications are converted to absolute UNIX format and the volume information is transparently included. =item $ff->share On systems with the concept of a network share (currently only Windows) returns the sharename from a file://// url. On other operating systems returns empty. =item $ff->path The path from the uri, will be at least a single '/'. =item $ff->file The name of the remote file. For the local file name, the result of $ff->output_file will be used. =item $ff->file_default The name of the default local file, that $ff->output_file falls back to if it would otherwise return no filename. For example when fetching a URI like http://www.abc.net.au/ the contents retrieved may be from a remote file called 'index.html'. The default value of this attribute is literally 'file_default'. =cut ########################## ### Object & Accessors ### ########################## { ### template for autogenerated accessors ### my $Tmpl = { scheme => { default => 'http' }, host => { default => 'localhost' }, path => { default => '/' }, file => { required => 1 }, uri => { required => 1 }, userinfo => { default => '' }, vol => { default => '' }, # windows for file:// uris share => { default => '' }, # windows for file:// uris file_default => { default => 'file_default' }, tempdir_root => { required => 1 }, # Should be lazy-set at ->new() _error_msg => { no_override => 1 }, _error_msg_long => { no_override => 1 }, }; for my $method ( keys %$Tmpl ) { no strict 'refs'; *$method = sub { my $self = shift; $self->{$method} = $_[0] if @_; return $self->{$method}; } } sub _create { my $class = shift; my %hash = @_; my $args = check( $Tmpl, \%hash ) or return; bless $args, $class; if( lc($args->scheme) ne 'file' and not $args->host ) { return $class->_error(loc( "Hostname required when fetching from '%1'",$args->scheme)); } for (qw[path]) { unless( $args->$_() ) { # 5.5.x needs the () return $class->_error(loc("No '%1' specified",$_)); } } return $args; } } =item $ff->output_file The name of the output file. This is the same as $ff->file, but any query parameters are stripped off. For example: http://example.com/index.html?x=y would make the output file be C<index.html> rather than C<index.html?x=y>. =back =cut sub output_file { my $self = shift; my $file = $self->file; $file =~ s/\?.*$//g; $file ||= $self->file_default; return $file; } ### XXX do this or just point to URI::Escape? # =head2 $esc_uri = $ff->escaped_uri # # =cut # # ### most of this is stolen straight from URI::escape # { ### Build a char->hex map # my %escapes = map { chr($_) => sprintf("%%%02X", $_) } 0..255; # # sub escaped_uri { # my $self = shift; # my $uri = $self->uri; # # ### Default unsafe characters. RFC 2732 ^(uric - reserved) # $uri =~ s/([^A-Za-z0-9\-_.!~*'()])/ # $escapes{$1} || $self->_fail_hi($1)/ge; # # return $uri; # } # # sub _fail_hi { # my $self = shift; # my $char = shift; # # $self->_error(loc( # "Can't escape '%1', try using the '%2' module instead", # sprintf("\\x{%04X}", ord($char)), 'URI::Escape' # )); # } # # sub output_file { # # } # # # } =head1 METHODS =head2 $ff = File::Fetch->new( uri => 'http://some.where.com/dir/file.txt' ); Parses the uri and creates a corresponding File::Fetch::Item object, that is ready to be C<fetch>ed and returns it. Returns false on failure. =cut sub new { my $class = shift; my %hash = @_; my ($uri, $file_default, $tempdir_root); my $tmpl = { uri => { required => 1, store => \$uri }, file_default => { required => 0, store => \$file_default }, tempdir_root => { required => 0, store => \$tempdir_root }, }; check( $tmpl, \%hash ) or return; ### parse the uri to usable parts ### my $href = $class->_parse_uri( $uri ) or return; $href->{file_default} = $file_default if $file_default; $href->{tempdir_root} = File::Spec->rel2abs( $tempdir_root ) if $tempdir_root; $href->{tempdir_root} = File::Spec->rel2abs( Cwd::cwd ) if not $href->{tempdir_root}; ### make it into a FFI object ### my $ff = $class->_create( %$href ) or return; ### return the object ### return $ff; } ### parses an uri to a hash structure: ### ### $class->_parse_uri( 'ftp://ftp.cpan.org/pub/mirror/index.txt' ) ### ### becomes: ### ### $href = { ### scheme => 'ftp', ### host => 'ftp.cpan.org', ### path => '/pub/mirror', ### file => 'index.html' ### }; ### ### In the case of file:// urls there maybe be additional fields ### ### For systems with volume specifications such as Win32 there will be ### a volume specifier provided in the 'vol' field. ### ### 'vol' => 'volumename' ### ### For windows file shares there may be a 'share' key specified ### ### 'share' => 'sharename' ### ### Note that the rules of what a file:// url means vary by the operating system ### of the host being addressed. Thus file:///d|/foo/bar.txt means the obvious ### 'D:\foo\bar.txt' on windows, but on unix it means '/d|/foo/bar.txt' and ### not '/foo/bar.txt' ### ### Similarly if the host interpreting the url is VMS then ### file:///disk$user/my/notes/note12345.txt' means ### 'DISK$USER:[MY.NOTES]NOTE123456.TXT' but will be returned the same as ### if it is unix where it means /disk$user/my/notes/note12345.txt'. ### Except for some cases in the File::Spec methods, Perl on VMS will generally ### handle UNIX format file specifications. ### ### This means it is impossible to serve certain file:// urls on certain systems. ### ### Thus are the problems with a protocol-less specification. :-( ### sub _parse_uri { my $self = shift; my $uri = shift or return; my $href = { uri => $uri }; ### find the scheme ### $uri =~ s|^(\w+)://||; $href->{scheme} = $1; ### See rfc 1738 section 3.10 ### http://www.faqs.org/rfcs/rfc1738.html ### And wikipedia for more on windows file:// urls ### http://en.wikipedia.org/wiki/File:// if( $href->{scheme} eq 'file' ) { my @parts = split '/',$uri; ### file://hostname/... ### file://hostname/... ### normalize file://localhost with file:/// $href->{host} = $parts[0] || ''; ### index in @parts where the path components begin; my $index = 1; ### file:////hostname/sharename/blah.txt if ( HAS_SHARE and not length $parts[0] and not length $parts[1] ) { $href->{host} = $parts[2] || ''; # avoid warnings $href->{share} = $parts[3] || ''; # avoid warnings $index = 4 # index after the share ### file:///D|/blah.txt ### file:///D:/blah.txt } elsif (HAS_VOL) { ### this code comes from dmq's patch, but: ### XXX if volume is empty, wouldn't that be an error? --kane ### if so, our file://localhost test needs to be fixed as wel $href->{vol} = $parts[1] || ''; ### correct D| style colume descriptors $href->{vol} =~ s/\A([A-Z])\|\z/$1:/i if ON_WIN; $index = 2; # index after the volume } ### rebuild the path from the leftover parts; $href->{path} = join '/', '', splice( @parts, $index, $#parts ); } else { ### using anything but qw() in hash slices may produce warnings ### in older perls :-( @{$href}{ qw(userinfo host path) } = $uri =~ m|(?:([^\@:]*:[^\:\@]*)@)?([^/]*)(/.*)$|s; } ### split the path into file + dir ### { my @parts = File::Spec::Unix->splitpath( delete $href->{path} ); $href->{path} = $parts[1]; $href->{file} = $parts[2]; } ### host will be empty if the target was 'localhost' and the ### scheme was 'file' $href->{host} = '' if ($href->{host} eq 'localhost') and ($href->{scheme} eq 'file'); return $href; } =head2 $where = $ff->fetch( [to => /my/output/dir/ | \$scalar] ) Fetches the file you requested and returns the full path to the file. By default it writes to C<cwd()>, but you can override that by specifying the C<to> argument: ### file fetch to /tmp, full path to the file in $where $where = $ff->fetch( to => '/tmp' ); ### file slurped into $scalar, full path to the file in $where ### file is downloaded to a temp directory and cleaned up at exit time $where = $ff->fetch( to => \$scalar ); Returns the full path to the downloaded file on success, and false on failure. =cut sub fetch { my $self = shift or return; my %hash = @_; my $target; my $tmpl = { to => { default => cwd(), store => \$target }, }; check( $tmpl, \%hash ) or return; my ($to, $fh); ### you want us to slurp the contents if( ref $target and UNIVERSAL::isa( $target, 'SCALAR' ) ) { $to = tempdir( 'FileFetch.XXXXXX', DIR => $self->tempdir_root, CLEANUP => 1 ); ### plain old fetch } else { $to = $target; ### On VMS force to VMS format so File::Spec will work. $to = VMS::Filespec::vmspath($to) if ON_VMS; ### create the path if it doesn't exist yet ### unless( -d $to ) { eval { mkpath( $to ) }; return $self->_error(loc("Could not create path '%1'",$to)) if $@; } } ### set passive ftp if required ### local $ENV{FTP_PASSIVE} = $FTP_PASSIVE; ### we dont use catfile on win32 because if we are using a cygwin tool ### under cmd.exe they wont understand windows style separators. my $out_to = ON_WIN ? $to.'/'.$self->output_file : File::Spec->catfile( $to, $self->output_file ); for my $method ( @{ $METHODS->{$self->scheme} } ) { my $sub = '_'.$method.'_fetch'; unless( __PACKAGE__->can($sub) ) { $self->_error(loc("Cannot call method for '%1' -- WEIRD!", $method)); next; } ### method is blacklisted ### next if grep { lc $_ eq $method } @$BLACKLIST; ### method is known to fail ### next if $METHOD_FAIL->{$method}; ### there's serious issues with IPC::Run and quoting of command ### line arguments. using quotes in the wrong place breaks things, ### and in the case of say, ### C:\cygwin\bin\wget.EXE --quiet --passive-ftp --output-document ### "index.html" "http://www.cpan.org/index.html?q=1&y=2" ### it doesn't matter how you quote, it always fails. local $IPC::Cmd::USE_IPC_RUN = 0; if( my $file = $self->$sub( to => $out_to )){ unless( -e $file && -s _ ) { $self->_error(loc("'%1' said it fetched '%2', ". "but it was not created",$method,$file)); ### mark the failure ### $METHOD_FAIL->{$method} = 1; next; } else { ### slurp mode? if( ref $target and UNIVERSAL::isa( $target, 'SCALAR' ) ) { ### open the file open my $fh, "<$file" or do { $self->_error( loc("Could not open '%1': %2", $file, $!)); return; }; ### slurp $$target = do { local $/; <$fh> }; } my $abs = File::Spec->rel2abs( $file ); return $abs; } } } ### if we got here, we looped over all methods, but we weren't able ### to fetch it. return; } ######################## ### _*_fetch methods ### ######################## ### LWP fetching ### sub _lwp_fetch { my $self = shift; my %hash = @_; my ($to); my $tmpl = { to => { required => 1, store => \$to } }; check( $tmpl, \%hash ) or return; ### modules required to download with lwp ### my $use_list = { LWP => '0.0', 'LWP::UserAgent' => '0.0', 'HTTP::Request' => '0.0', 'HTTP::Status' => '0.0', URI => '0.0', }; if ($self->scheme eq 'https') { $use_list->{'LWP::Protocol::https'} = '0'; } ### Fix CVE-2016-1238 ### local $Module::Load::Conditional::FORCE_SAFE_INC = 1; unless( can_load( modules => $use_list ) ) { $METHOD_FAIL->{'lwp'} = 1; return; } ### setup the uri object my $uri = URI->new( File::Spec::Unix->catfile( $self->path, $self->file ) ); ### special rules apply for file:// uris ### $uri->scheme( $self->scheme ); $uri->host( $self->scheme eq 'file' ? '' : $self->host ); if ($self->userinfo) { $uri->userinfo($self->userinfo); } elsif ($self->scheme ne 'file') { $uri->userinfo("anonymous:$FROM_EMAIL"); } ### set up the useragent object my $ua = LWP::UserAgent->new(); $ua->timeout( $TIMEOUT ) if $TIMEOUT; $ua->agent( $USER_AGENT ); $ua->from( $FROM_EMAIL ); $ua->env_proxy; my $res = $ua->mirror($uri, $to) or return; ### uptodate or fetched ok ### if ( $res->code == 304 or $res->code == 200 ) { return $to; } else { return $self->_error(loc("Fetch failed! HTTP response: %1 %2 [%3]", $res->code, HTTP::Status::status_message($res->code), $res->status_line)); } } ### HTTP::Tiny fetching ### sub _httptiny_fetch { my $self = shift; my %hash = @_; my ($to); my $tmpl = { to => { required => 1, store => \$to } }; check( $tmpl, \%hash ) or return; my $use_list = { 'HTTP::Tiny' => '0.008', }; ### Fix CVE-2016-1238 ### local $Module::Load::Conditional::FORCE_SAFE_INC = 1; unless( can_load(modules => $use_list) ) { $METHOD_FAIL->{'httptiny'} = 1; return; } my $uri = $self->uri; my $http = HTTP::Tiny->new( ( $TIMEOUT ? ( timeout => $TIMEOUT ) : () ) ); my $rc = $http->mirror( $uri, $to ); unless ( $rc->{success} ) { return $self->_error(loc( "Fetch failed! HTTP response: %1 [%2]", $rc->{status}, $rc->{reason} ) ); } return $to; } ### HTTP::Lite fetching ### sub _httplite_fetch { my $self = shift; my %hash = @_; my ($to); my $tmpl = { to => { required => 1, store => \$to } }; check( $tmpl, \%hash ) or return; ### modules required to download with lwp ### my $use_list = { 'HTTP::Lite' => '2.2', 'MIME::Base64' => '0', }; ### Fix CVE-2016-1238 ### local $Module::Load::Conditional::FORCE_SAFE_INC = 1; unless( can_load(modules => $use_list) ) { $METHOD_FAIL->{'httplite'} = 1; return; } my $uri = $self->uri; my $retries = 0; RETRIES: while ( $retries++ < 5 ) { my $http = HTTP::Lite->new(); # Naughty naughty but there isn't any accessor/setter $http->{timeout} = $TIMEOUT if $TIMEOUT; $http->http11_mode(1); if ($self->userinfo) { my $encoded = MIME::Base64::encode($self->userinfo, ''); $http->add_req_header("Authorization", "Basic $encoded"); } my $fh = FileHandle->new; unless ( $fh->open($to,'>') ) { return $self->_error(loc( "Could not open '%1' for writing: %2",$to,$!)); } $fh->autoflush(1); binmode $fh; my $rc = $http->request( $uri, sub { my ($self,$dref,$cbargs) = @_; local $\; print {$cbargs} $$dref }, $fh ); close $fh; if ( $rc == 301 || $rc == 302 ) { my $loc; HEADERS: for ($http->headers_array) { /Location: (\S+)/ and $loc = $1, last HEADERS; } #$loc or last; # Think we should squeal here. if ($loc =~ m!^/!) { $uri =~ s{^(\w+?://[^/]+)/.*$}{$1}; $uri .= $loc; } else { $uri = $loc; } next RETRIES; } elsif ( $rc == 200 ) { return $to; } else { return $self->_error(loc("Fetch failed! HTTP response: %1 [%2]", $rc, $http->status_message)); } } # Loop for 5 retries. return $self->_error("Fetch failed! Gave up after 5 tries"); } ### Simple IO::Socket::INET fetching ### sub _iosock_fetch { my $self = shift; my %hash = @_; my ($to); my $tmpl = { to => { required => 1, store => \$to } }; check( $tmpl, \%hash ) or return; my $use_list = { 'IO::Socket::INET' => '0.0', 'IO::Select' => '0.0', }; ### Fix CVE-2016-1238 ### local $Module::Load::Conditional::FORCE_SAFE_INC = 1; unless( can_load(modules => $use_list) ) { $METHOD_FAIL->{'iosock'} = 1; return; } my $sock = IO::Socket::INET->new( PeerHost => $self->host, ( $self->host =~ /:/ ? () : ( PeerPort => 80 ) ), ); unless ( $sock ) { return $self->_error(loc("Could not open socket to '%1', '%2'",$self->host,$!)); } my $fh = FileHandle->new; # Check open() unless ( $fh->open($to,'>') ) { return $self->_error(loc( "Could not open '%1' for writing: %2",$to,$!)); } $fh->autoflush(1); binmode $fh; my $path = File::Spec::Unix->catfile( $self->path, $self->file ); my $req = "GET $path HTTP/1.0\x0d\x0aHost: " . $self->host . "\x0d\x0a\x0d\x0a"; $sock->send( $req ); my $select = IO::Select->new( $sock ); my $resp = ''; my $normal = 0; while ( $select->can_read( $TIMEOUT || 60 ) ) { my $ret = $sock->sysread( $resp, 4096, length($resp) ); if ( !defined $ret or $ret == 0 ) { $select->remove( $sock ); $normal++; } } close $sock; unless ( $normal ) { return $self->_error(loc("Socket timed out after '%1' seconds", ( $TIMEOUT || 60 ))); } # Check the "response" # Strip preceding blank lines apparently they are allowed (RFC 2616 4.1) $resp =~ s/^(\x0d?\x0a)+//; # Check it is an HTTP response unless ( $resp =~ m!^HTTP/(\d+)\.(\d+)!i ) { return $self->_error(loc("Did not get a HTTP response from '%1'",$self->host)); } # Check for OK my ($code) = $resp =~ m!^HTTP/\d+\.\d+\s+(\d+)!i; unless ( $code eq '200' ) { return $self->_error(loc("Got a '%1' from '%2' expected '200'",$code,$self->host)); } { local $\; print $fh +($resp =~ m/\x0d\x0a\x0d\x0a(.*)$/s )[0]; } close $fh; return $to; } ### Net::FTP fetching sub _netftp_fetch { my $self = shift; my %hash = @_; my ($to); my $tmpl = { to => { required => 1, store => \$to } }; check( $tmpl, \%hash ) or return; ### required modules ### my $use_list = { 'Net::FTP' => 0 }; ### Fix CVE-2016-1238 ### local $Module::Load::Conditional::FORCE_SAFE_INC = 1; unless( can_load( modules => $use_list ) ) { $METHOD_FAIL->{'netftp'} = 1; return; } ### make connection ### my $ftp; my @options = ($self->host); push(@options, Timeout => $TIMEOUT) if $TIMEOUT; unless( $ftp = Net::FTP->new( @options ) ) { return $self->_error(loc("Ftp creation failed: %1",$@)); } ### login ### unless( $ftp->login( anonymous => $FROM_EMAIL ) ) { return $self->_error(loc("Could not login to '%1'",$self->host)); } ### set binary mode, just in case ### $ftp->binary; ### create the remote path ### remember remote paths are unix paths! [#11483] my $remote = File::Spec::Unix->catfile( $self->path, $self->file ); ### fetch the file ### my $target; unless( $target = $ftp->get( $remote, $to ) ) { return $self->_error(loc("Could not fetch '%1' from '%2'", $remote, $self->host)); } ### log out ### $ftp->quit; return $target; } ### /bin/wget fetch ### sub _wget_fetch { my $self = shift; my %hash = @_; my ($to); my $tmpl = { to => { required => 1, store => \$to } }; check( $tmpl, \%hash ) or return; my $wget; ### see if we have a wget binary ### unless( $wget = can_run('wget') ) { $METHOD_FAIL->{'wget'} = 1; return; } ### no verboseness, thanks ### my $cmd = [ $wget, '--quiet' ]; ### if a timeout is set, add it ### push(@$cmd, '--timeout=' . $TIMEOUT) if $TIMEOUT; ### run passive if specified ### push @$cmd, '--passive-ftp' if $FTP_PASSIVE; ### set the output document, add the uri ### push @$cmd, '--output-document', $to, $self->uri; ### with IPC::Cmd > 0.41, this is fixed in teh library, ### and there's no need for special casing any more. ### DO NOT quote things for IPC::Run, it breaks stuff. # $IPC::Cmd::USE_IPC_RUN # ? ($to, $self->uri) # : (QUOTE. $to .QUOTE, QUOTE. $self->uri .QUOTE); ### shell out ### my $captured; unless(run( command => $cmd, buffer => \$captured, verbose => $DEBUG )) { ### wget creates the output document always, even if the fetch ### fails.. so unlink it in that case 1 while unlink $to; return $self->_error(loc( "Command failed: %1", $captured || '' )); } return $to; } ### /bin/lftp fetch ### sub _lftp_fetch { my $self = shift; my %hash = @_; my ($to); my $tmpl = { to => { required => 1, store => \$to } }; check( $tmpl, \%hash ) or return; ### see if we have a lftp binary ### my $lftp; unless( $lftp = can_run('lftp') ) { $METHOD_FAIL->{'lftp'} = 1; return; } ### no verboseness, thanks ### my $cmd = [ $lftp, '-f' ]; my $fh = File::Temp->new; my $str; ### if a timeout is set, add it ### $str .= "set net:timeout $TIMEOUT;\n" if $TIMEOUT; ### run passive if specified ### $str .= "set ftp:passive-mode 1;\n" if $FTP_PASSIVE; ### set the output document, add the uri ### ### quote the URI, because lftp supports certain shell ### expansions, most notably & for backgrounding. ### ' quote does nto work, must be " $str .= q[get ']. $self->uri .q[' -o ]. $to . $/; if( $DEBUG ) { my $pp_str = join ' ', split $/, $str; print "# lftp command: $pp_str\n"; } ### write straight to the file. $fh->autoflush(1); print $fh $str; ### the command needs to be 1 string to be executed push @$cmd, $fh->filename; ### with IPC::Cmd > 0.41, this is fixed in teh library, ### and there's no need for special casing any more. ### DO NOT quote things for IPC::Run, it breaks stuff. # $IPC::Cmd::USE_IPC_RUN # ? ($to, $self->uri) # : (QUOTE. $to .QUOTE, QUOTE. $self->uri .QUOTE); ### shell out ### my $captured; unless(run( command => $cmd, buffer => \$captured, verbose => $DEBUG )) { ### wget creates the output document always, even if the fetch ### fails.. so unlink it in that case 1 while unlink $to; return $self->_error(loc( "Command failed: %1", $captured || '' )); } return $to; } ### /bin/ftp fetch ### sub _ftp_fetch { my $self = shift; my %hash = @_; my ($to); my $tmpl = { to => { required => 1, store => \$to } }; check( $tmpl, \%hash ) or return; ### see if we have a ftp binary ### my $ftp; unless( $ftp = can_run('ftp') ) { $METHOD_FAIL->{'ftp'} = 1; return; } my $fh = FileHandle->new; local $SIG{CHLD} = 'IGNORE'; unless ($fh->open("$ftp -n", '|-')) { return $self->_error(loc("%1 creation failed: %2", $ftp, $!)); } my @dialog = ( "lcd " . dirname($to), "open " . $self->host, "user anonymous $FROM_EMAIL", "cd /", "cd " . $self->path, "binary", "get " . $self->file . " " . $self->output_file, "quit", ); foreach (@dialog) { $fh->print($_, "\n") } $fh->close or return; return $to; } ### lynx is stupid - it decompresses any .gz file it finds to be text ### use /bin/lynx to fetch files sub _lynx_fetch { my $self = shift; my %hash = @_; my ($to); my $tmpl = { to => { required => 1, store => \$to } }; check( $tmpl, \%hash ) or return; ### see if we have a lynx binary ### my $lynx; unless ( $lynx = can_run('lynx') ){ $METHOD_FAIL->{'lynx'} = 1; return; } unless( IPC::Cmd->can_capture_buffer ) { $METHOD_FAIL->{'lynx'} = 1; return $self->_error(loc( "Can not capture buffers. Can not use '%1' to fetch files", 'lynx' )); } ### check if the HTTP resource exists ### if ($self->uri =~ /^https?:\/\//i) { my $cmd = [ $lynx, '-head', '-source', "-auth=anonymous:$FROM_EMAIL", ]; push @$cmd, "-connect_timeout=$TIMEOUT" if $TIMEOUT; push @$cmd, $self->uri; ### shell out ### my $head; unless(run( command => $cmd, buffer => \$head, verbose => $DEBUG ) ) { return $self->_error(loc("Command failed: %1", $head || '')); } unless($head =~ /^HTTP\/\d+\.\d+ 200\b/) { return $self->_error(loc("Command failed: %1", $head || '')); } } ### write to the output file ourselves, since lynx ass_u_mes to much my $local = FileHandle->new( $to, 'w' ) or return $self->_error(loc( "Could not open '%1' for writing: %2",$to,$!)); ### dump to stdout ### my $cmd = [ $lynx, '-source', "-auth=anonymous:$FROM_EMAIL", ]; push @$cmd, "-connect_timeout=$TIMEOUT" if $TIMEOUT; ### DO NOT quote things for IPC::Run, it breaks stuff. push @$cmd, $self->uri; ### with IPC::Cmd > 0.41, this is fixed in teh library, ### and there's no need for special casing any more. ### DO NOT quote things for IPC::Run, it breaks stuff. # $IPC::Cmd::USE_IPC_RUN # ? $self->uri # : QUOTE. $self->uri .QUOTE; ### shell out ### my $captured; unless(run( command => $cmd, buffer => \$captured, verbose => $DEBUG ) ) { return $self->_error(loc("Command failed: %1", $captured || '')); } ### print to local file ### ### XXX on a 404 with a special error page, $captured will actually ### hold the contents of that page, and make it *appear* like the ### request was a success, when really it wasn't :( ### there doesn't seem to be an option for lynx to change the exit ### code based on a 4XX status or so. ### the closest we can come is using --error_file and parsing that, ### which is very unreliable ;( $local->print( $captured ); $local->close or return; return $to; } ### use /bin/ncftp to fetch files sub _ncftp_fetch { my $self = shift; my %hash = @_; my ($to); my $tmpl = { to => { required => 1, store => \$to } }; check( $tmpl, \%hash ) or return; ### we can only set passive mode in interactive sessions, so bail out ### if $FTP_PASSIVE is set return if $FTP_PASSIVE; ### see if we have a ncftp binary ### my $ncftp; unless( $ncftp = can_run('ncftp') ) { $METHOD_FAIL->{'ncftp'} = 1; return; } my $cmd = [ $ncftp, '-V', # do not be verbose '-p', $FROM_EMAIL, # email as password $self->host, # hostname dirname($to), # local dir for the file # remote path to the file ### DO NOT quote things for IPC::Run, it breaks stuff. $IPC::Cmd::USE_IPC_RUN ? File::Spec::Unix->catdir( $self->path, $self->file ) : QUOTE. File::Spec::Unix->catdir( $self->path, $self->file ) .QUOTE ]; ### shell out ### my $captured; unless(run( command => $cmd, buffer => \$captured, verbose => $DEBUG ) ) { return $self->_error(loc("Command failed: %1", $captured || '')); } return $to; } ### use /bin/curl to fetch files sub _curl_fetch { my $self = shift; my %hash = @_; my ($to); my $tmpl = { to => { required => 1, store => \$to } }; check( $tmpl, \%hash ) or return; my $curl; unless ( $curl = can_run('curl') ) { $METHOD_FAIL->{'curl'} = 1; return; } ### these long opts are self explanatory - I like that -jmb my $cmd = [ $curl, '-q' ]; push(@$cmd, '-4') if $^O eq 'netbsd' && $FORCEIPV4; # only seen this on NetBSD so far push(@$cmd, '--connect-timeout', $TIMEOUT) if $TIMEOUT; push(@$cmd, '--silent') unless $DEBUG; ### curl does the right thing with passive, regardless ### if ($self->scheme eq 'ftp') { push(@$cmd, '--user', "anonymous:$FROM_EMAIL"); } ### curl doesn't follow 302 (temporarily moved) etc automatically ### so we add --location to enable that. push @$cmd, '--fail', '--location', '--output', $to, $self->uri; ### with IPC::Cmd > 0.41, this is fixed in teh library, ### and there's no need for special casing any more. ### DO NOT quote things for IPC::Run, it breaks stuff. # $IPC::Cmd::USE_IPC_RUN # ? ($to, $self->uri) # : (QUOTE. $to .QUOTE, QUOTE. $self->uri .QUOTE); my $captured; unless(run( command => $cmd, buffer => \$captured, verbose => $DEBUG ) ) { return $self->_error(loc("Command failed: %1", $captured || '')); } return $to; } ### /usr/bin/fetch fetch! ### sub _fetch_fetch { my $self = shift; my %hash = @_; my ($to); my $tmpl = { to => { required => 1, store => \$to } }; check( $tmpl, \%hash ) or return; ### see if we have a fetch binary ### my $fetch; unless( HAS_FETCH and $fetch = can_run('fetch') ) { $METHOD_FAIL->{'fetch'} = 1; return; } ### no verboseness, thanks ### my $cmd = [ $fetch, '-q' ]; ### if a timeout is set, add it ### push(@$cmd, '-T', $TIMEOUT) if $TIMEOUT; ### run passive if specified ### #push @$cmd, '-p' if $FTP_PASSIVE; local $ENV{'FTP_PASSIVE_MODE'} = 1 if $FTP_PASSIVE; ### set the output document, add the uri ### push @$cmd, '-o', $to, $self->uri; ### with IPC::Cmd > 0.41, this is fixed in teh library, ### and there's no need for special casing any more. ### DO NOT quote things for IPC::Run, it breaks stuff. # $IPC::Cmd::USE_IPC_RUN # ? ($to, $self->uri) # : (QUOTE. $to .QUOTE, QUOTE. $self->uri .QUOTE); ### shell out ### my $captured; unless(run( command => $cmd, buffer => \$captured, verbose => $DEBUG )) { ### wget creates the output document always, even if the fetch ### fails.. so unlink it in that case 1 while unlink $to; return $self->_error(loc( "Command failed: %1", $captured || '' )); } return $to; } ### use File::Copy for fetching file:// urls ### ### ### See section 3.10 of RFC 1738 (http://www.faqs.org/rfcs/rfc1738.html) ### Also see wikipedia on file:// (http://en.wikipedia.org/wiki/File://) ### sub _file_fetch { my $self = shift; my %hash = @_; my ($to); my $tmpl = { to => { required => 1, store => \$to } }; check( $tmpl, \%hash ) or return; ### prefix a / on unix systems with a file uri, since it would ### look somewhat like this: ### file:///home/kane/file ### whereas windows file uris for 'c:\some\dir\file' might look like: ### file:///C:/some/dir/file ### file:///C|/some/dir/file ### or for a network share '\\host\share\some\dir\file': ### file:////host/share/some/dir/file ### ### VMS file uri's for 'DISK$USER:[MY.NOTES]NOTE123456.TXT' might look like: ### file://vms.host.edu/disk$user/my/notes/note12345.txt ### my $path = $self->path; my $vol = $self->vol; my $share = $self->share; my $remote; if (!$share and $self->host) { return $self->_error(loc( "Currently %1 cannot handle hosts in %2 urls", 'File::Fetch', 'file://' )); } if( $vol ) { $path = File::Spec->catdir( split /\//, $path ); $remote = File::Spec->catpath( $vol, $path, $self->file); } elsif( $share ) { ### win32 specific, and a share name, so we wont bother with File::Spec $path =~ s|/+|\\|g; $remote = "\\\\".$self->host."\\$share\\$path"; } else { ### File::Spec on VMS can not currently handle UNIX syntax. my $file_class = ON_VMS ? 'File::Spec::Unix' : 'File::Spec'; $remote = $file_class->catfile( $path, $self->file ); } ### File::Copy is littered with 'die' statements :( ### my $rv = eval { File::Copy::copy( $remote, $to ) }; ### something went wrong ### if( !$rv or $@ ) { return $self->_error(loc("Could not copy '%1' to '%2': %3 %4", $remote, $to, $!, $@)); } return $to; } ### use /usr/bin/rsync to fetch files sub _rsync_fetch { my $self = shift; my %hash = @_; my ($to); my $tmpl = { to => { required => 1, store => \$to } }; check( $tmpl, \%hash ) or return; my $rsync; unless ( $rsync = can_run('rsync') ) { $METHOD_FAIL->{'rsync'} = 1; return; } my $cmd = [ $rsync ]; ### XXX: rsync has no I/O timeouts at all, by default push(@$cmd, '--timeout=' . $TIMEOUT) if $TIMEOUT; push(@$cmd, '--quiet') unless $DEBUG; ### DO NOT quote things for IPC::Run, it breaks stuff. push @$cmd, $self->uri, $to; ### with IPC::Cmd > 0.41, this is fixed in teh library, ### and there's no need for special casing any more. ### DO NOT quote things for IPC::Run, it breaks stuff. # $IPC::Cmd::USE_IPC_RUN # ? ($to, $self->uri) # : (QUOTE. $to .QUOTE, QUOTE. $self->uri .QUOTE); my $captured; unless(run( command => $cmd, buffer => \$captured, verbose => $DEBUG ) ) { return $self->_error(loc("Command %1 failed: %2", "@$cmd" || '', $captured || '')); } return $to; } ### use git to fetch files sub _git_fetch { my $self = shift; my %hash = @_; my ($to); my $tmpl = { to => { required => 1, store => \$to } }; check( $tmpl, \%hash ) or return; my $git; unless ( $git = can_run('git') ) { $METHOD_FAIL->{'git'} = 1; return; } my $cmd = [ $git, 'clone' ]; #push(@$cmd, '--timeout=' . $TIMEOUT) if $TIMEOUT; push(@$cmd, '--quiet') unless $DEBUG; ### DO NOT quote things for IPC::Run, it breaks stuff. push @$cmd, $self->uri, $to; ### with IPC::Cmd > 0.41, this is fixed in teh library, ### and there's no need for special casing any more. ### DO NOT quote things for IPC::Run, it breaks stuff. # $IPC::Cmd::USE_IPC_RUN # ? ($to, $self->uri) # : (QUOTE. $to .QUOTE, QUOTE. $self->uri .QUOTE); my $captured; unless(run( command => $cmd, buffer => \$captured, verbose => $DEBUG ) ) { return $self->_error(loc("Command %1 failed: %2", "@$cmd" || '', $captured || '')); } return $to; } ################################# # # Error code # ################################# =pod =head2 $ff->error([BOOL]) Returns the last encountered error as string. Pass it a true value to get the C<Carp::longmess()> output instead. =cut ### error handling the way Archive::Extract does it sub _error { my $self = shift; my $error = shift; $self->_error_msg( $error ); $self->_error_msg_long( Carp::longmess($error) ); if( $WARN ) { carp $DEBUG ? $self->_error_msg_long : $self->_error_msg; } return; } sub error { my $self = shift; return shift() ? $self->_error_msg_long : $self->_error_msg; } 1; =pod =head1 HOW IT WORKS File::Fetch is able to fetch a variety of uris, by using several external programs and modules. Below is a mapping of what utilities will be used in what order for what schemes, if available: file => LWP, lftp, file http => LWP, HTTP::Tiny, wget, curl, lftp, fetch, HTTP::Lite, lynx, iosock ftp => LWP, Net::FTP, wget, curl, lftp, fetch, ncftp, ftp rsync => rsync git => git If you'd like to disable the use of one or more of these utilities and/or modules, see the C<$BLACKLIST> variable further down. If a utility or module isn't available, it will be marked in a cache (see the C<$METHOD_FAIL> variable further down), so it will not be tried again. The C<fetch> method will only fail when all options are exhausted, and it was not able to retrieve the file. The C<fetch> utility is available on FreeBSD. NetBSD and Dragonfly BSD may also have it from C<pkgsrc>. We only check for C<fetch> on those three platforms. C<iosock> is a very limited L<IO::Socket::INET> based mechanism for retrieving C<http> schemed urls. It doesn't follow redirects for instance. C<git> only supports C<git://> style urls. A special note about fetching files from an ftp uri: By default, all ftp connections are done in passive mode. To change that, see the C<$FTP_PASSIVE> variable further down. Furthermore, ftp uris only support anonymous connections, so no named user/password pair can be passed along. C</bin/ftp> is blacklisted by default; see the C<$BLACKLIST> variable further down. =head1 GLOBAL VARIABLES The behaviour of File::Fetch can be altered by changing the following global variables: =head2 $File::Fetch::FROM_EMAIL This is the email address that will be sent as your anonymous ftp password. Default is C<File-Fetch@example.com>. =head2 $File::Fetch::USER_AGENT This is the useragent as C<LWP> will report it. Default is C<File::Fetch/$VERSION>. =head2 $File::Fetch::FTP_PASSIVE This variable controls whether the environment variable C<FTP_PASSIVE> and any passive switches to commandline tools will be set to true. Default value is 1. Note: When $FTP_PASSIVE is true, C<ncftp> will not be used to fetch files, since passive mode can only be set interactively for this binary =head2 $File::Fetch::TIMEOUT When set, controls the network timeout (counted in seconds). Default value is 0. =head2 $File::Fetch::WARN This variable controls whether errors encountered internally by C<File::Fetch> should be C<carp>'d or not. Set to false to silence warnings. Inspect the output of the C<error()> method manually to see what went wrong. Defaults to C<true>. =head2 $File::Fetch::DEBUG This enables debugging output when calling commandline utilities to fetch files. This also enables C<Carp::longmess> errors, instead of the regular C<carp> errors. Good for tracking down why things don't work with your particular setup. Default is 0. =head2 $File::Fetch::BLACKLIST This is an array ref holding blacklisted modules/utilities for fetching files with. To disallow the use of, for example, C<LWP> and C<Net::FTP>, you could set $File::Fetch::BLACKLIST to: $File::Fetch::BLACKLIST = [qw|lwp netftp|] The default blacklist is [qw|ftp|], as C</bin/ftp> is rather unreliable. See the note on C<MAPPING> below. =head2 $File::Fetch::METHOD_FAIL This is a hashref registering what modules/utilities were known to fail for fetching files (mostly because they weren't installed). You can reset this cache by assigning an empty hashref to it, or individually remove keys. See the note on C<MAPPING> below. =head1 MAPPING Here's a quick mapping for the utilities/modules, and their names for the $BLACKLIST, $METHOD_FAIL and other internal functions. LWP => lwp HTTP::Lite => httplite HTTP::Tiny => httptiny Net::FTP => netftp wget => wget lynx => lynx ncftp => ncftp ftp => ftp curl => curl rsync => rsync lftp => lftp fetch => fetch IO::Socket => iosock =head1 FREQUENTLY ASKED QUESTIONS =head2 So how do I use a proxy with File::Fetch? C<File::Fetch> currently only supports proxies with LWP::UserAgent. You will need to set your environment variables accordingly. For example, to use an ftp proxy: $ENV{ftp_proxy} = 'foo.com'; Refer to the LWP::UserAgent manpage for more details. =head2 I used 'lynx' to fetch a file, but its contents is all wrong! C<lynx> can only fetch remote files by dumping its contents to C<STDOUT>, which we in turn capture. If that content is a 'custom' error file (like, say, a C<404 handler>), you will get that contents instead. Sadly, C<lynx> doesn't support any options to return a different exit code on non-C<200 OK> status, giving us no way to tell the difference between a 'successful' fetch and a custom error page. Therefor, we recommend to only use C<lynx> as a last resort. This is why it is at the back of our list of methods to try as well. =head2 Files I'm trying to fetch have reserved characters or non-ASCII characters in them. What do I do? C<File::Fetch> is relatively smart about things. When trying to write a file to disk, it removes the C<query parameters> (see the C<output_file> method for details) from the file name before creating it. In most cases this suffices. If you have any other characters you need to escape, please install the C<URI::Escape> module from CPAN, and pre-encode your URI before passing it to C<File::Fetch>. You can read about the details of URIs and URI encoding here: http://www.faqs.org/rfcs/rfc2396.html =head1 TODO =over 4 =item Implement $PREFER_BIN To indicate to rather use commandline tools than modules =back =head1 BUG REPORTS Please report bugs or other issues to E<lt>bug-file-fetch@rt.cpan.org<gt>. =head1 AUTHOR This module by Jos Boumans E<lt>kane@cpan.orgE<gt>. =head1 COPYRIGHT This library is free software; you may redistribute and/or modify it under the same terms as Perl itself. =cut # Local variables: # c-indentation-style: bsd # c-basic-offset: 4 # indent-tabs-mode: nil # End: # vim: expandtab shiftwidth=4: PK ! ō�">( >( 5.34.0/File/stat.pmnu �[��� package File::stat; use 5.006; use strict; use warnings; use warnings::register; use Carp; use constant _IS_CYGWIN => $^O eq "cygwin"; BEGIN { *warnif = \&warnings::warnif } our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS); our $VERSION = '1.09'; our @fields; our ( $st_dev, $st_ino, $st_mode, $st_nlink, $st_uid, $st_gid, $st_rdev, $st_size, $st_atime, $st_mtime, $st_ctime, $st_blksize, $st_blocks ); BEGIN { use Exporter (); @EXPORT = qw(stat lstat); @fields = qw( $st_dev $st_ino $st_mode $st_nlink $st_uid $st_gid $st_rdev $st_size $st_atime $st_mtime $st_ctime $st_blksize $st_blocks ); @EXPORT_OK = ( @fields, "stat_cando" ); %EXPORT_TAGS = ( FIELDS => [ @fields, @EXPORT ] ); } use Fcntl qw(S_IRUSR S_IWUSR S_IXUSR); BEGIN { # These constants will croak on use if the platform doesn't define # them. It's important to avoid inflicting that on the user. no strict 'refs'; for (qw(suid sgid svtx)) { my $val = eval { &{"Fcntl::S_I\U$_"} }; *{"_$_"} = defined $val ? sub { $_[0] & $val ? 1 : "" } : sub { "" }; } for (qw(SOCK CHR BLK REG DIR LNK)) { *{"S_IS$_"} = defined eval { &{"Fcntl::S_IF$_"} } ? \&{"Fcntl::S_IS$_"} : sub { "" }; } # FIFO flag and macro don't quite follow the S_IF/S_IS pattern above # RT #111638 *{"S_ISFIFO"} = defined &Fcntl::S_IFIFO ? \&Fcntl::S_ISFIFO : sub { "" }; } # from doio.c sub _ingroup { my ($gid, $eff) = @_; # I am assuming that since VMS doesn't have getgroups(2), $) will # always only contain a single entry. $^O eq "VMS" and return $_[0] == $); my ($egid, @supp) = split " ", $); my ($rgid) = split " ", $(; $gid == ($eff ? $egid : $rgid) and return 1; grep $gid == $_, @supp and return 1; return ""; } # VMS uses the Unix version of the routine, even though this is very # suboptimal. VMS has a permissions structure that doesn't really fit # into struct stat, and unlike on Win32 the normal -X operators respect # that, but unfortunately by the time we get here we've already lost the # information we need. It looks to me as though if we were to preserve # the st_devnam entry of vmsish.h's fake struct stat (which actually # holds the filename) it might be possible to do this right, but both # getting that value out of the struct (perl's stat doesn't return it) # and interpreting it later would require this module to have an XS # component (at which point we might as well just call Perl_cando and # have done with it). if (grep $^O eq $_, qw/os2 MSWin32 dos/) { # from doio.c *cando = sub { ($_[0][2] & $_[1]) ? 1 : "" }; } else { # from doio.c *cando = sub { my ($s, $mode, $eff) = @_; my $uid = $eff ? $> : $<; my ($stmode, $stuid, $stgid) = @$s[2,4,5]; # This code basically assumes that the rwx bits of the mode are # the 0777 bits, but so does Perl_cando. if (_IS_CYGWIN ? _ingroup(544, $eff) : ($uid == 0 && $^O ne "VMS")) { # If we're root on unix # not testing for executable status => all file tests are true return 1 if !($mode & 0111); # testing for executable status => # for a file, any x bit will do # for a directory, always true return 1 if $stmode & 0111 || S_ISDIR($stmode); return ""; } if ($stuid == $uid) { $stmode & $mode and return 1; } elsif (_ingroup($stgid, $eff)) { $stmode & ($mode >> 3) and return 1; } else { $stmode & ($mode >> 6) and return 1; } return ""; }; } # alias for those who don't like objects *stat_cando = \&cando; my %op = ( r => sub { cando($_[0], S_IRUSR, 1) }, w => sub { cando($_[0], S_IWUSR, 1) }, x => sub { cando($_[0], S_IXUSR, 1) }, o => sub { $_[0][4] == $> }, R => sub { cando($_[0], S_IRUSR, 0) }, W => sub { cando($_[0], S_IWUSR, 0) }, X => sub { cando($_[0], S_IXUSR, 0) }, O => sub { $_[0][4] == $< }, e => sub { 1 }, z => sub { $_[0][7] == 0 }, s => sub { $_[0][7] }, f => sub { S_ISREG ($_[0][2]) }, d => sub { S_ISDIR ($_[0][2]) }, l => sub { S_ISLNK ($_[0][2]) }, p => sub { S_ISFIFO($_[0][2]) }, S => sub { S_ISSOCK($_[0][2]) }, b => sub { S_ISBLK ($_[0][2]) }, c => sub { S_ISCHR ($_[0][2]) }, u => sub { _suid($_[0][2]) }, g => sub { _sgid($_[0][2]) }, k => sub { _svtx($_[0][2]) }, M => sub { ($^T - $_[0][9] ) / 86400 }, C => sub { ($^T - $_[0][10]) / 86400 }, A => sub { ($^T - $_[0][8] ) / 86400 }, ); use constant HINT_FILETEST_ACCESS => 0x00400000; # we need fallback=>1 or stringifying breaks use overload fallback => 1, -X => sub { my ($s, $op) = @_; if (index("rwxRWX", $op) >= 0) { (caller 0)[8] & HINT_FILETEST_ACCESS and warnif("File::stat ignores use filetest 'access'"); $^O eq "VMS" and warnif("File::stat ignores VMS ACLs"); # It would be nice to have a warning about using -l on a # non-lstat, but that would require an extra member in the # object. } if ($op{$op}) { return $op{$op}->($_[0]); } else { croak "-$op is not implemented on a File::stat object"; } }; # Class::Struct forbids use of @ISA sub import { goto &Exporter::import } use Class::Struct qw(struct); struct 'File::stat' => [ map { $_ => '$' } qw{ dev ino mode nlink uid gid rdev size atime mtime ctime blksize blocks } ]; sub populate (@) { return unless @_; my $stob = new(); @$stob = ( $st_dev, $st_ino, $st_mode, $st_nlink, $st_uid, $st_gid, $st_rdev, $st_size, $st_atime, $st_mtime, $st_ctime, $st_blksize, $st_blocks ) = @_; return $stob; } sub lstat ($) { populate(CORE::lstat(shift)) } sub stat ($) { my $arg = shift; my $st = populate(CORE::stat $arg); return $st if defined $st; my $fh; { local $!; no strict 'refs'; require Symbol; $fh = \*{ Symbol::qualify( $arg, caller() )}; return unless defined fileno $fh; } return populate(CORE::stat $fh); } 1; __END__ =head1 NAME File::stat - by-name interface to Perl's built-in stat() functions =head1 SYNOPSIS use File::stat; $st = stat($file) or die "No $file: $!"; if ( ($st->mode & 0111) && $st->nlink > 1) ) { print "$file is executable with lotsa links\n"; } if ( -x $st ) { print "$file is executable\n"; } use Fcntl "S_IRUSR"; if ( $st->cando(S_IRUSR, 1) ) { print "My effective uid can read $file\n"; } use File::stat qw(:FIELDS); stat($file) or die "No $file: $!"; if ( ($st_mode & 0111) && ($st_nlink > 1) ) { print "$file is executable with lotsa links\n"; } =head1 DESCRIPTION This module's default exports override the core stat() and lstat() functions, replacing them with versions that return "File::stat" objects. This object has methods that return the similarly named structure field name from the stat(2) function; namely, dev, ino, mode, nlink, uid, gid, rdev, size, atime, mtime, ctime, blksize, and blocks. As of version 1.02 (provided with perl 5.12) the object provides C<"-X"> overloading, so you can call filetest operators (C<-f>, C<-x>, and so on) on it. It also provides a C<< ->cando >> method, called like $st->cando( ACCESS, EFFECTIVE ) where I<ACCESS> is one of C<S_IRUSR>, C<S_IWUSR> or C<S_IXUSR> from the L<Fcntl|Fcntl> module, and I<EFFECTIVE> indicates whether to use effective (true) or real (false) ids. The method interprets the C<mode>, C<uid> and C<gid> fields, and returns whether or not the current process would be allowed the specified access. If you don't want to use the objects, you may import the C<< ->cando >> method into your namespace as a regular function called C<stat_cando>. This takes an arrayref containing the return values of C<stat> or C<lstat> as its first argument, and interprets it for you. You may also import all the structure fields directly into your namespace as regular variables using the :FIELDS import tag. (Note that this still overrides your stat() and lstat() functions.) Access these fields as variables named with a preceding C<st_> in front their method names. Thus, C<$stat_obj-E<gt>dev()> corresponds to $st_dev if you import the fields. To access this functionality without the core overrides, pass the C<use> an empty import list, and then access function functions with their full qualified names. On the other hand, the built-ins are still available via the C<CORE::> pseudo-package. =head1 BUGS As of Perl 5.8.0 after using this module you cannot use the implicit C<$_> or the special filehandle C<_> with stat() or lstat(), trying to do so leads into strange errors. The workaround is for C<$_> to be explicit my $stat_obj = stat $_; and for C<_> to explicitly populate the object using the unexported and undocumented populate() function with CORE::stat(): my $stat_obj = File::stat::populate(CORE::stat(_)); =head1 ERRORS =over 4 =item -%s is not implemented on a File::stat object The filetest operators C<-t>, C<-T> and C<-B> are not implemented, as they require more information than just a stat buffer. =back =head1 WARNINGS These can all be disabled with no warnings "File::stat"; =over 4 =item File::stat ignores use filetest 'access' You have tried to use one of the C<-rwxRWX> filetests with C<use filetest 'access'> in effect. C<File::stat> will ignore the pragma, and just use the information in the C<mode> member as usual. =item File::stat ignores VMS ACLs VMS systems have a permissions structure that cannot be completely represented in a stat buffer, and unlike on other systems the builtin filetest operators respect this. The C<File::stat> overloads, however, do not, since the information required is not available. =back =head1 NOTE While this class is currently implemented using the Class::Struct module to build a struct-like class, you shouldn't rely upon this. =head1 AUTHOR Tom Christiansen PK ! 7�� �� 5.34.0/File/Find.pmnu �[��� package File::Find; use 5.006; use strict; use warnings; use warnings::register; our $VERSION = '1.39'; require Exporter; require Cwd; our @ISA = qw(Exporter); our @EXPORT = qw(find finddepth); use strict; my $Is_VMS = $^O eq 'VMS'; my $Is_Win32 = $^O eq 'MSWin32'; require File::Basename; require File::Spec; # Should ideally be my() not our() but local() currently # refuses to operate on lexicals our %SLnkSeen; our ($wanted_callback, $avoid_nlink, $bydepth, $no_chdir, $follow, $follow_skip, $full_check, $untaint, $untaint_skip, $untaint_pat, $pre_process, $post_process, $dangling_symlinks); sub contract_name { my ($cdir,$fn) = @_; return substr($cdir,0,rindex($cdir,'/')) if $fn eq $File::Find::current_dir; $cdir = substr($cdir,0,rindex($cdir,'/')+1); $fn =~ s|^\./||; my $abs_name= $cdir . $fn; if (substr($fn,0,3) eq '../') { 1 while $abs_name =~ s!/[^/]*/\.\./+!/!; } return $abs_name; } sub PathCombine($$) { my ($Base,$Name) = @_; my $AbsName; if (substr($Name,0,1) eq '/') { $AbsName= $Name; } else { $AbsName= contract_name($Base,$Name); } # (simple) check for recursion my $newlen= length($AbsName); if ($newlen <= length($Base)) { if (($newlen == length($Base) || substr($Base,$newlen,1) eq '/') && $AbsName eq substr($Base,0,$newlen)) { return undef; } } return $AbsName; } sub Follow_SymLink($) { my ($AbsName) = @_; my ($NewName,$DEV, $INO); ($DEV, $INO)= lstat $AbsName; while (-l _) { if ($SLnkSeen{$DEV, $INO}++) { if ($follow_skip < 2) { die "$AbsName is encountered a second time"; } else { return undef; } } $NewName= PathCombine($AbsName, readlink($AbsName)); unless(defined $NewName) { if ($follow_skip < 2) { die "$AbsName is a recursive symbolic link"; } else { return undef; } } else { $AbsName= $NewName; } ($DEV, $INO) = lstat($AbsName); return undef unless defined $DEV; # dangling symbolic link } if ($full_check && defined $DEV && $SLnkSeen{$DEV, $INO}++) { if ( ($follow_skip < 1) || ((-d _) && ($follow_skip < 2)) ) { die "$AbsName encountered a second time"; } else { return undef; } } return $AbsName; } our($dir, $name, $fullname, $prune); sub _find_dir_symlnk($$$); sub _find_dir($$$); # check whether or not a scalar variable is tainted # (code straight from the Camel, 3rd ed., page 561) sub is_tainted_pp { my $arg = shift; my $nada = substr($arg, 0, 0); # zero-length local $@; eval { eval "# $nada" }; return length($@) != 0; } sub _find_opt { my $wanted = shift; return unless @_; die "invalid top directory" unless defined $_[0]; # This function must local()ize everything because callbacks may # call find() or finddepth() local %SLnkSeen; local ($wanted_callback, $avoid_nlink, $bydepth, $no_chdir, $follow, $follow_skip, $full_check, $untaint, $untaint_skip, $untaint_pat, $pre_process, $post_process, $dangling_symlinks); local($dir, $name, $fullname, $prune); local *_ = \my $a; my $cwd = $wanted->{bydepth} ? Cwd::fastcwd() : Cwd::getcwd(); if ($Is_VMS) { # VMS returns this by default in VMS format which just doesn't # work for the rest of this module. $cwd = VMS::Filespec::unixpath($cwd); # Apparently this is not expected to have a trailing space. # To attempt to make VMS/UNIX conversions mostly reversible, # a trailing slash is needed. The run-time functions ignore the # resulting double slash, but it causes the perl tests to fail. $cwd =~ s#/\z##; # This comes up in upper case now, but should be lower. # In the future this could be exact case, no need to change. } my $cwd_untainted = $cwd; my $check_t_cwd = 1; $wanted_callback = $wanted->{wanted}; $bydepth = $wanted->{bydepth}; $pre_process = $wanted->{preprocess}; $post_process = $wanted->{postprocess}; $no_chdir = $wanted->{no_chdir}; $full_check = $wanted->{follow}; $follow = $full_check || $wanted->{follow_fast}; $follow_skip = $wanted->{follow_skip}; $untaint = $wanted->{untaint}; $untaint_pat = $wanted->{untaint_pattern}; $untaint_skip = $wanted->{untaint_skip}; $dangling_symlinks = $wanted->{dangling_symlinks}; # for compatibility reasons (find.pl, find2perl) local our ($topdir, $topdev, $topino, $topmode, $topnlink); # a symbolic link to a directory doesn't increase the link count $avoid_nlink = $follow || $File::Find::dont_use_nlink; my ($abs_dir, $Is_Dir); Proc_Top_Item: foreach my $TOP (@_) { my $top_item = $TOP; $top_item = VMS::Filespec::unixify($top_item) if $Is_VMS; ($topdev,$topino,$topmode,$topnlink) = $follow ? stat $top_item : lstat $top_item; if ($Is_Win32) { $top_item =~ s|[/\\]\z|| unless $top_item =~ m{^(?:\w:)?[/\\]$}; } else { $top_item =~ s|/\z|| unless $top_item eq '/'; } $Is_Dir= 0; if ($follow) { if (substr($top_item,0,1) eq '/') { $abs_dir = $top_item; } elsif ($top_item eq $File::Find::current_dir) { $abs_dir = $cwd; } else { # care about any ../ $top_item =~ s/\.dir\z//i if $Is_VMS; $abs_dir = contract_name("$cwd/",$top_item); } $abs_dir= Follow_SymLink($abs_dir); unless (defined $abs_dir) { if ($dangling_symlinks) { if (ref $dangling_symlinks eq 'CODE') { $dangling_symlinks->($top_item, $cwd); } else { warnings::warnif "$top_item is a dangling symbolic link\n"; } } next Proc_Top_Item; } if (-d _) { $top_item =~ s/\.dir\z//i if $Is_VMS; _find_dir_symlnk($wanted, $abs_dir, $top_item); $Is_Dir= 1; } } else { # no follow $topdir = $top_item; unless (defined $topnlink) { warnings::warnif "Can't stat $top_item: $!\n"; next Proc_Top_Item; } if (-d _) { $top_item =~ s/\.dir\z//i if $Is_VMS; _find_dir($wanted, $top_item, $topnlink); $Is_Dir= 1; } else { $abs_dir= $top_item; } } unless ($Is_Dir) { unless (($_,$dir) = File::Basename::fileparse($abs_dir)) { ($dir,$_) = ('./', $top_item); } $abs_dir = $dir; if (( $untaint ) && (is_tainted($dir) )) { ( $abs_dir ) = $dir =~ m|$untaint_pat|; unless (defined $abs_dir) { if ($untaint_skip == 0) { die "directory $dir is still tainted"; } else { next Proc_Top_Item; } } } unless ($no_chdir || chdir $abs_dir) { warnings::warnif "Couldn't chdir $abs_dir: $!\n"; next Proc_Top_Item; } $name = $abs_dir . $_; # $File::Find::name $_ = $name if $no_chdir; { $wanted_callback->() }; # protect against wild "next" } unless ( $no_chdir ) { if ( ($check_t_cwd) && (($untaint) && (is_tainted($cwd) )) ) { ( $cwd_untainted ) = $cwd =~ m|$untaint_pat|; unless (defined $cwd_untainted) { die "insecure cwd in find(depth)"; } $check_t_cwd = 0; } unless (chdir $cwd_untainted) { die "Can't cd to $cwd: $!\n"; } } } } # API: # $wanted # $p_dir : "parent directory" # $nlink : what came back from the stat # preconditions: # chdir (if not no_chdir) to dir sub _find_dir($$$) { my ($wanted, $p_dir, $nlink) = @_; my ($CdLvl,$Level) = (0,0); my @Stack; my @filenames; my ($subcount,$sub_nlink); my $SE= []; my $dir_name= $p_dir; my $dir_pref; my $dir_rel = $File::Find::current_dir; my $tainted = 0; my $no_nlink; if ($Is_Win32) { $dir_pref = ($p_dir =~ m{^(?:\w:[/\\]?|[/\\])$} ? $p_dir : "$p_dir/" ); } elsif ($Is_VMS) { # VMS is returning trailing .dir on directories # and trailing . on files and symbolic links # in UNIX syntax. # $p_dir =~ s/\.(dir)?$//i unless $p_dir eq '.'; $dir_pref = ($p_dir =~ m/[\]>]+$/ ? $p_dir : "$p_dir/" ); } else { $dir_pref= ( $p_dir eq '/' ? '/' : "$p_dir/" ); } local ($dir, $name, $prune, *DIR); unless ( $no_chdir || ($p_dir eq $File::Find::current_dir)) { my $udir = $p_dir; if (( $untaint ) && (is_tainted($p_dir) )) { ( $udir ) = $p_dir =~ m|$untaint_pat|; unless (defined $udir) { if ($untaint_skip == 0) { die "directory $p_dir is still tainted"; } else { return; } } } unless (chdir ($Is_VMS && $udir !~ /[\/\[<]+/ ? "./$udir" : $udir)) { warnings::warnif "Can't cd to $udir: $!\n"; return; } } # push the starting directory push @Stack,[$CdLvl,$p_dir,$dir_rel,-1] if $bydepth; while (defined $SE) { unless ($bydepth) { $dir= $p_dir; # $File::Find::dir $name= $dir_name; # $File::Find::name $_= ($no_chdir ? $dir_name : $dir_rel ); # $_ # prune may happen here $prune= 0; { $wanted_callback->() }; # protect against wild "next" next if $prune; } # change to that directory unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) { my $udir= $dir_rel; if ( ($untaint) && (($tainted) || ($tainted = is_tainted($dir_rel) )) ) { ( $udir ) = $dir_rel =~ m|$untaint_pat|; unless (defined $udir) { if ($untaint_skip == 0) { die "directory (" . ($p_dir ne '/' ? $p_dir : '') . "/) $dir_rel is still tainted"; } else { # $untaint_skip == 1 next; } } } unless (chdir ($Is_VMS && $udir !~ /[\/\[<]+/ ? "./$udir" : $udir)) { warnings::warnif "Can't cd to (" . ($p_dir ne '/' ? $p_dir : '') . "/) $udir: $!\n"; next; } $CdLvl++; } $dir= $dir_name; # $File::Find::dir # Get the list of files in the current directory. unless (opendir DIR, ($no_chdir ? $dir_name : $File::Find::current_dir)) { warnings::warnif "Can't opendir($dir_name): $!\n"; next; } @filenames = readdir DIR; closedir(DIR); @filenames = $pre_process->(@filenames) if $pre_process; push @Stack,[$CdLvl,$dir_name,"",-2] if $post_process; # default: use whatever was specified # (if $nlink >= 2, and $avoid_nlink == 0, this will switch back) $no_nlink = $avoid_nlink; # if dir has wrong nlink count, force switch to slower stat method $no_nlink = 1 if ($nlink < 2); if ($nlink == 2 && !$no_nlink) { # This dir has no subdirectories. for my $FN (@filenames) { if ($Is_VMS) { # Big hammer here - Compensate for VMS trailing . and .dir # No win situation until this is changed, but this # will handle the majority of the cases with breaking the fewest $FN =~ s/\.dir\z//i; $FN =~ s#\.$## if ($FN ne '.'); } next if $FN =~ $File::Find::skip_pattern; $name = $dir_pref . $FN; # $File::Find::name $_ = ($no_chdir ? $name : $FN); # $_ { $wanted_callback->() }; # protect against wild "next" } } else { # This dir has subdirectories. $subcount = $nlink - 2; # HACK: insert directories at this position, so as to preserve # the user pre-processed ordering of files (thus ensuring # directory traversal is in user sorted order, not at random). my $stack_top = @Stack; for my $FN (@filenames) { next if $FN =~ $File::Find::skip_pattern; if ($subcount > 0 || $no_nlink) { # Seen all the subdirs? # check for directoriness. # stat is faster for a file in the current directory $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3]; if (-d _) { --$subcount; $FN =~ s/\.dir\z//i if $Is_VMS; # HACK: replace push to preserve dir traversal order #push @Stack,[$CdLvl,$dir_name,$FN,$sub_nlink]; splice @Stack, $stack_top, 0, [$CdLvl,$dir_name,$FN,$sub_nlink]; } else { $name = $dir_pref . $FN; # $File::Find::name $_= ($no_chdir ? $name : $FN); # $_ { $wanted_callback->() }; # protect against wild "next" } } else { $name = $dir_pref . $FN; # $File::Find::name $_= ($no_chdir ? $name : $FN); # $_ { $wanted_callback->() }; # protect against wild "next" } } } } continue { while ( defined ($SE = pop @Stack) ) { ($Level, $p_dir, $dir_rel, $nlink) = @$SE; if ($CdLvl > $Level && !$no_chdir) { my $tmp; if ($Is_VMS) { $tmp = '[' . ('-' x ($CdLvl-$Level)) . ']'; } else { $tmp = join('/',('..') x ($CdLvl-$Level)); } die "Can't cd to $tmp from $dir_name: $!" unless chdir ($tmp); $CdLvl = $Level; } if ($Is_Win32) { $dir_name = ($p_dir =~ m{^(?:\w:[/\\]?|[/\\])$} ? "$p_dir$dir_rel" : "$p_dir/$dir_rel"); $dir_pref = "$dir_name/"; } elsif ($^O eq 'VMS') { if ($p_dir =~ m/[\]>]+$/) { $dir_name = $p_dir; $dir_name =~ s/([\]>]+)$/.$dir_rel$1/; $dir_pref = $dir_name; } else { $dir_name = "$p_dir/$dir_rel"; $dir_pref = "$dir_name/"; } } else { $dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel"); $dir_pref = "$dir_name/"; } if ( $nlink == -2 ) { $name = $dir = $p_dir; # $File::Find::name / dir $_ = $File::Find::current_dir; $post_process->(); # End-of-directory processing } elsif ( $nlink < 0 ) { # must be finddepth, report dirname now $name = $dir_name; if ( substr($name,-2) eq '/.' ) { substr($name, length($name) == 2 ? -1 : -2) = ''; } $dir = $p_dir; $_ = ($no_chdir ? $dir_name : $dir_rel ); if ( substr($_,-2) eq '/.' ) { substr($_, length($_) == 2 ? -1 : -2) = ''; } { $wanted_callback->() }; # protect against wild "next" } else { push @Stack,[$CdLvl,$p_dir,$dir_rel,-1] if $bydepth; last; } } } } # API: # $wanted # $dir_loc : absolute location of a dir # $p_dir : "parent directory" # preconditions: # chdir (if not no_chdir) to dir sub _find_dir_symlnk($$$) { my ($wanted, $dir_loc, $p_dir) = @_; # $dir_loc is the absolute directory my @Stack; my @filenames; my $new_loc; my $updir_loc = $dir_loc; # untainted parent directory my $SE = []; my $dir_name = $p_dir; my $dir_pref; my $loc_pref; my $dir_rel = $File::Find::current_dir; my $byd_flag; # flag for pending stack entry if $bydepth my $tainted = 0; my $ok = 1; $dir_pref = ( $p_dir eq '/' ? '/' : "$p_dir/" ); $loc_pref = ( $dir_loc eq '/' ? '/' : "$dir_loc/" ); local ($dir, $name, $fullname, $prune, *DIR); unless ($no_chdir) { # untaint the topdir if (( $untaint ) && (is_tainted($dir_loc) )) { ( $updir_loc ) = $dir_loc =~ m|$untaint_pat|; # parent dir, now untainted # once untainted, $updir_loc is pushed on the stack (as parent directory); # hence, we don't need to untaint the parent directory every time we chdir # to it later unless (defined $updir_loc) { if ($untaint_skip == 0) { die "directory $dir_loc is still tainted"; } else { return; } } } $ok = chdir($updir_loc) unless ($p_dir eq $File::Find::current_dir); unless ($ok) { warnings::warnif "Can't cd to $updir_loc: $!\n"; return; } } push @Stack,[$dir_loc,$updir_loc,$p_dir,$dir_rel,-1] if $bydepth; while (defined $SE) { unless ($bydepth) { # change (back) to parent directory (always untainted) unless ($no_chdir) { unless (chdir $updir_loc) { warnings::warnif "Can't cd to $updir_loc: $!\n"; next; } } $dir= $p_dir; # $File::Find::dir $name= $dir_name; # $File::Find::name $_= ($no_chdir ? $dir_name : $dir_rel ); # $_ $fullname= $dir_loc; # $File::Find::fullname # prune may happen here $prune= 0; lstat($_); # make sure file tests with '_' work { $wanted_callback->() }; # protect against wild "next" next if $prune; } # change to that directory unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) { $updir_loc = $dir_loc; if ( ($untaint) && (($tainted) || ($tainted = is_tainted($dir_loc) )) ) { # untaint $dir_loc, what will be pushed on the stack as (untainted) parent dir ( $updir_loc ) = $dir_loc =~ m|$untaint_pat|; unless (defined $updir_loc) { if ($untaint_skip == 0) { die "directory $dir_loc is still tainted"; } else { next; } } } unless (chdir $updir_loc) { warnings::warnif "Can't cd to $updir_loc: $!\n"; next; } } $dir = $dir_name; # $File::Find::dir # Get the list of files in the current directory. unless (opendir DIR, ($no_chdir ? $dir_loc : $File::Find::current_dir)) { warnings::warnif "Can't opendir($dir_loc): $!\n"; next; } @filenames = readdir DIR; closedir(DIR); for my $FN (@filenames) { if ($Is_VMS) { # Big hammer here - Compensate for VMS trailing . and .dir # No win situation until this is changed, but this # will handle the majority of the cases with breaking the fewest. $FN =~ s/\.dir\z//i; $FN =~ s#\.$## if ($FN ne '.'); } next if $FN =~ $File::Find::skip_pattern; # follow symbolic links / do an lstat $new_loc = Follow_SymLink($loc_pref.$FN); # ignore if invalid symlink unless (defined $new_loc) { if (!defined -l _ && $dangling_symlinks) { $fullname = undef; if (ref $dangling_symlinks eq 'CODE') { $dangling_symlinks->($FN, $dir_pref); } else { warnings::warnif "$dir_pref$FN is a dangling symbolic link\n"; } } else { $fullname = $loc_pref . $FN; } $name = $dir_pref . $FN; $_ = ($no_chdir ? $name : $FN); { $wanted_callback->() }; next; } if (-d _) { if ($Is_VMS) { $FN =~ s/\.dir\z//i; $FN =~ s#\.$## if ($FN ne '.'); $new_loc =~ s/\.dir\z//i; $new_loc =~ s#\.$## if ($new_loc ne '.'); } push @Stack,[$new_loc,$updir_loc,$dir_name,$FN,1]; } else { $fullname = $new_loc; # $File::Find::fullname $name = $dir_pref . $FN; # $File::Find::name $_ = ($no_chdir ? $name : $FN); # $_ { $wanted_callback->() }; # protect against wild "next" } } } continue { while (defined($SE = pop @Stack)) { ($dir_loc, $updir_loc, $p_dir, $dir_rel, $byd_flag) = @$SE; $dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel"); $dir_pref = "$dir_name/"; $loc_pref = "$dir_loc/"; if ( $byd_flag < 0 ) { # must be finddepth, report dirname now unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) { unless (chdir $updir_loc) { # $updir_loc (parent dir) is always untainted warnings::warnif "Can't cd to $updir_loc: $!\n"; next; } } $fullname = $dir_loc; # $File::Find::fullname $name = $dir_name; # $File::Find::name if ( substr($name,-2) eq '/.' ) { substr($name, length($name) == 2 ? -1 : -2) = ''; # $File::Find::name } $dir = $p_dir; # $File::Find::dir $_ = ($no_chdir ? $dir_name : $dir_rel); # $_ if ( substr($_,-2) eq '/.' ) { substr($_, length($_) == 2 ? -1 : -2) = ''; } lstat($_); # make sure file tests with '_' work { $wanted_callback->() }; # protect against wild "next" } else { push @Stack,[$dir_loc, $updir_loc, $p_dir, $dir_rel,-1] if $bydepth; last; } } } } sub wrap_wanted { my $wanted = shift; if ( ref($wanted) eq 'HASH' ) { # RT #122547 my %valid_options = map {$_ => 1} qw( wanted bydepth preprocess postprocess follow follow_fast follow_skip dangling_symlinks no_chdir untaint untaint_pattern untaint_skip ); my @invalid_options = (); for my $v (keys %{$wanted}) { push @invalid_options, $v unless exists $valid_options{$v}; } warn "Invalid option(s): @invalid_options" if @invalid_options; unless( exists $wanted->{wanted} and ref( $wanted->{wanted} ) eq 'CODE' ) { die 'no &wanted subroutine given'; } if ( $wanted->{follow} || $wanted->{follow_fast}) { $wanted->{follow_skip} = 1 unless defined $wanted->{follow_skip}; } if ( $wanted->{untaint} ) { $wanted->{untaint_pattern} = $File::Find::untaint_pattern unless defined $wanted->{untaint_pattern}; $wanted->{untaint_skip} = 0 unless defined $wanted->{untaint_skip}; } return $wanted; } elsif( ref( $wanted ) eq 'CODE' ) { return { wanted => $wanted }; } else { die 'no &wanted subroutine given'; } } sub find { my $wanted = shift; _find_opt(wrap_wanted($wanted), @_); } sub finddepth { my $wanted = wrap_wanted(shift); $wanted->{bydepth} = 1; _find_opt($wanted, @_); } # default $File::Find::skip_pattern = qr/^\.{1,2}\z/; $File::Find::untaint_pattern = qr|^([-+@\w./]+)$|; # this _should_ work properly on all platforms # where File::Find can be expected to work $File::Find::current_dir = File::Spec->curdir || '.'; $File::Find::dont_use_nlink = 1; # We need a function that checks if a scalar is tainted. Either use the # Scalar::Util module's tainted() function or our (slower) pure Perl # fallback is_tainted_pp() { local $@; eval { require Scalar::Util }; *is_tainted = $@ ? \&is_tainted_pp : \&Scalar::Util::tainted; } 1; __END__ =head1 NAME File::Find - Traverse a directory tree. =head1 SYNOPSIS use File::Find; find(\&wanted, @directories_to_search); sub wanted { ... } use File::Find; finddepth(\&wanted, @directories_to_search); sub wanted { ... } use File::Find; find({ wanted => \&process, follow => 1 }, '.'); =head1 DESCRIPTION These are functions for searching through directory trees doing work on each file found similar to the Unix I<find> command. File::Find exports two functions, C<find> and C<finddepth>. They work similarly but have subtle differences. =over 4 =item B<find> find(\&wanted, @directories); find(\%options, @directories); C<find()> does a depth-first search over the given C<@directories> in the order they are given. For each file or directory found, it calls the C<&wanted> subroutine. (See below for details on how to use the C<&wanted> function). Additionally, for each directory found, it will C<chdir()> into that directory and continue the search, invoking the C<&wanted> function on each file or subdirectory in the directory. =item B<finddepth> finddepth(\&wanted, @directories); finddepth(\%options, @directories); C<finddepth()> works just like C<find()> except that it invokes the C<&wanted> function for a directory I<after> invoking it for the directory's contents. It does a postorder traversal instead of a preorder traversal, working from the bottom of the directory tree up where C<find()> works from the top of the tree down. =back Despite the name of the C<finddepth()> function, both C<find()> and C<finddepth()> perform a depth-first search of the directory hierarchy. =head2 %options The first argument to C<find()> is either a code reference to your C<&wanted> function, or a hash reference describing the operations to be performed for each file. The code reference is described in L</The wanted function> below. Here are the possible keys for the hash: =over 4 =item C<wanted> The value should be a code reference. This code reference is described in L</The wanted function> below. The C<&wanted> subroutine is mandatory. =item C<bydepth> Reports the name of a directory only AFTER all its entries have been reported. Entry point C<finddepth()> is a shortcut for specifying C<< { bydepth => 1 } >> in the first argument of C<find()>. =item C<preprocess> The value should be a code reference. This code reference is used to preprocess the current directory. The name of the currently processed directory is in C<$File::Find::dir>. Your preprocessing function is called after C<readdir()>, but before the loop that calls the C<wanted()> function. It is called with a list of strings (actually file/directory names) and is expected to return a list of strings. The code can be used to sort the file/directory names alphabetically, numerically, or to filter out directory entries based on their name alone. When I<follow> or I<follow_fast> are in effect, C<preprocess> is a no-op. =item C<postprocess> The value should be a code reference. It is invoked just before leaving the currently processed directory. It is called in void context with no arguments. The name of the current directory is in C<$File::Find::dir>. This hook is handy for summarizing a directory, such as calculating its disk usage. When I<follow> or I<follow_fast> are in effect, C<postprocess> is a no-op. =item C<follow> Causes symbolic links to be followed. Since directory trees with symbolic links (followed) may contain files more than once and may even have cycles, a hash has to be built up with an entry for each file. This might be expensive both in space and time for a large directory tree. See L</follow_fast> and L</follow_skip> below. If either I<follow> or I<follow_fast> is in effect: =over 4 =item * It is guaranteed that an I<lstat> has been called before the user's C<wanted()> function is called. This enables fast file checks involving C<_>. Note that this guarantee no longer holds if I<follow> or I<follow_fast> are not set. =item * There is a variable C<$File::Find::fullname> which holds the absolute pathname of the file with all symbolic links resolved. If the link is a dangling symbolic link, then fullname will be set to C<undef>. =back This is a no-op on Win32. =item C<follow_fast> This is similar to I<follow> except that it may report some files more than once. It does detect cycles, however. Since only symbolic links have to be hashed, this is much cheaper both in space and time. If processing a file more than once (by the user's C<wanted()> function) is worse than just taking time, the option I<follow> should be used. This is also a no-op on Win32. =item C<follow_skip> C<follow_skip==1>, which is the default, causes all files which are neither directories nor symbolic links to be ignored if they are about to be processed a second time. If a directory or a symbolic link are about to be processed a second time, File::Find dies. C<follow_skip==0> causes File::Find to die if any file is about to be processed a second time. C<follow_skip==2> causes File::Find to ignore any duplicate files and directories but to proceed normally otherwise. =item C<dangling_symlinks> Specifies what to do with symbolic links whose target doesn't exist. If true and a code reference, will be called with the symbolic link name and the directory it lives in as arguments. Otherwise, if true and warnings are on, a warning of the form C<"symbolic_link_name is a dangling symbolic link\n"> will be issued. If false, the dangling symbolic link will be silently ignored. =item C<no_chdir> Does not C<chdir()> to each directory as it recurses. The C<wanted()> function will need to be aware of this, of course. In this case, C<$_> will be the same as C<$File::Find::name>. =item C<untaint> If find is used in L<taint-mode|perlsec/Taint mode> (-T command line switch or if EUID != UID or if EGID != GID), then internally directory names have to be untainted before they can be C<chdir>'d to. Therefore they are checked against a regular expression I<untaint_pattern>. Note that all names passed to the user's C<wanted()> function are still tainted. If this option is used while not in taint-mode, C<untaint> is a no-op. =item C<untaint_pattern> See above. This should be set using the C<qr> quoting operator. The default is set to C<qr|^([-+@\w./]+)$|>. Note that the parentheses are vital. =item C<untaint_skip> If set, a directory which fails the I<untaint_pattern> is skipped, including all its sub-directories. The default is to C<die> in such a case. =back =head2 The wanted function The C<wanted()> function does whatever verifications you want on each file and directory. Note that despite its name, the C<wanted()> function is a generic callback function, and does B<not> tell File::Find if a file is "wanted" or not. In fact, its return value is ignored. The wanted function takes no arguments but rather does its work through a collection of variables. =over 4 =item C<$File::Find::dir> is the current directory name, =item C<$_> is the current filename within that directory =item C<$File::Find::name> is the complete pathname to the file. =back The above variables have all been localized and may be changed without affecting data outside of the wanted function. For example, when examining the file F</some/path/foo.ext> you will have: $File::Find::dir = /some/path/ $_ = foo.ext $File::Find::name = /some/path/foo.ext You are chdir()'d to C<$File::Find::dir> when the function is called, unless C<no_chdir> was specified. Note that when changing to directories is in effect, the root directory (F</>) is a somewhat special case inasmuch as the concatenation of C<$File::Find::dir>, C<'/'> and C<$_> is not literally equal to C<$File::Find::name>. The table below summarizes all variants: $File::Find::name $File::Find::dir $_ default / / . no_chdir=>0 /etc / etc /etc/x /etc x no_chdir=>1 / / / /etc / /etc /etc/x /etc /etc/x When C<follow> or C<follow_fast> are in effect, there is also a C<$File::Find::fullname>. The function may set C<$File::Find::prune> to prune the tree unless C<bydepth> was specified. Unless C<follow> or C<follow_fast> is specified, for compatibility reasons (find.pl, find2perl) there are in addition the following globals available: C<$File::Find::topdir>, C<$File::Find::topdev>, C<$File::Find::topino>, C<$File::Find::topmode> and C<$File::Find::topnlink>. This library is useful for the C<find2perl> tool (distributed as part of the App-find2perl CPAN distribution), which when fed, find2perl / -name .nfs\* -mtime +7 \ -exec rm -f {} \; -o -fstype nfs -prune produces something like: sub wanted { /^\.nfs.*\z/s && (($dev, $ino, $mode, $nlink, $uid, $gid) = lstat($_)) && int(-M _) > 7 && unlink($_) || ($nlink || (($dev, $ino, $mode, $nlink, $uid, $gid) = lstat($_))) && $dev < 0 && ($File::Find::prune = 1); } Notice the C<_> in the above C<int(-M _)>: the C<_> is a magical filehandle that caches the information from the preceding C<stat()>, C<lstat()>, or filetest. Here's another interesting wanted function. It will find all symbolic links that don't resolve: sub wanted { -l && !-e && print "bogus link: $File::Find::name\n"; } Note that you may mix directories and (non-directory) files in the list of directories to be searched by the C<wanted()> function. find(\&wanted, "./foo", "./bar", "./baz/epsilon"); In the example above, no file in F<./baz/> other than F<./baz/epsilon> will be evaluated by C<wanted()>. See also the script C<pfind> on CPAN for a nice application of this module. =head1 WARNINGS If you run your program with the C<-w> switch, or if you use the C<warnings> pragma, File::Find will report warnings for several weird situations. You can disable these warnings by putting the statement no warnings 'File::Find'; in the appropriate scope. See L<warnings> for more info about lexical warnings. =head1 BUGS AND CAVEATS =over 4 =item $dont_use_nlink You can set the variable C<$File::Find::dont_use_nlink> to 0 if you are sure the filesystem you are scanning reflects the number of subdirectories in the parent directory's C<nlink> count. If you do set C<$File::Find::dont_use_nlink> to 0, you may notice an improvement in speed at the risk of not recursing into subdirectories if a filesystem doesn't populate C<nlink> as expected. C<$File::Find::dont_use_nlink> now defaults to 1 on all platforms. =item symlinks Be aware that the option to follow symbolic links can be dangerous. Depending on the structure of the directory tree (including symbolic links to directories) you might traverse a given (physical) directory more than once (only if C<follow_fast> is in effect). Furthermore, deleting or changing files in a symbolically linked directory might cause very unpleasant surprises, since you delete or change files in an unknown directory. =back =head1 HISTORY File::Find used to produce incorrect results if called recursively. During the development of perl 5.8 this bug was fixed. The first fixed version of File::Find was 1.01. =head1 SEE ALSO L<find(1)>, find2perl. =cut PK ! Y]lj? j? 5.34.0/File/Copy.pmnu �[��� # File/Copy.pm. Written in 1994 by Aaron Sherman <ajs@ajs.com>. This # source code has been placed in the public domain by the author. # Please be kind and preserve the documentation. # # Additions copyright 1996 by Charles Bailey. Permission is granted # to distribute the revised code under the same terms as Perl itself. package File::Copy; use 5.006; use strict; use warnings; no warnings 'newline'; use File::Spec; use Config; # During perl build, we need File::Copy but Scalar::Util might not be built yet # And then we need these games to avoid loading overload, as that will # confuse miniperl during the bootstrap of perl. my $Scalar_Util_loaded = eval q{ require Scalar::Util; require overload; 1 }; # We want HiRes stat and utime if available BEGIN { eval q{ use Time::HiRes qw( stat utime ) } }; our(@ISA, @EXPORT, @EXPORT_OK, $VERSION, $Too_Big, $Syscopy_is_copy); sub copy; sub syscopy; sub cp; sub mv; $VERSION = '2.35'; require Exporter; @ISA = qw(Exporter); @EXPORT = qw(copy move); @EXPORT_OK = qw(cp mv); $Too_Big = 1024 * 1024 * 2; sub croak { require Carp; goto &Carp::croak; } sub carp { require Carp; goto &Carp::carp; } sub _catname { my($from, $to) = @_; if (not defined &basename) { require File::Basename; import File::Basename 'basename'; } return File::Spec->catfile($to, basename($from)); } # _eq($from, $to) tells whether $from and $to are identical sub _eq { my ($from, $to) = map { $Scalar_Util_loaded && Scalar::Util::blessed($_) && overload::Method($_, q{""}) ? "$_" : $_ } (@_); return '' if ( (ref $from) xor (ref $to) ); return $from == $to if ref $from; return $from eq $to; } sub copy { croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ") unless(@_ == 2 || @_ == 3); my $from = shift; my $to = shift; my $size; if (@_) { $size = shift(@_) + 0; croak("Bad buffer size for copy: $size\n") unless ($size > 0); } my $from_a_handle = (ref($from) ? (ref($from) eq 'GLOB' || UNIVERSAL::isa($from, 'GLOB') || UNIVERSAL::isa($from, 'IO::Handle')) : (ref(\$from) eq 'GLOB')); my $to_a_handle = (ref($to) ? (ref($to) eq 'GLOB' || UNIVERSAL::isa($to, 'GLOB') || UNIVERSAL::isa($to, 'IO::Handle')) : (ref(\$to) eq 'GLOB')); if (_eq($from, $to)) { # works for references, too carp("'$from' and '$to' are identical (not copied)"); return 0; } if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) { $to = _catname($from, $to); } if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) && !($^O eq 'os2')) { my @fs = stat($from); if (@fs) { my @ts = stat($to); if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) { carp("'$from' and '$to' are identical (not copied)"); return 0; } } } elsif (_eq($from, $to)) { carp("'$from' and '$to' are identical (not copied)"); return 0; } if (defined &syscopy && !$Syscopy_is_copy && !$to_a_handle && !($from_a_handle && $^O eq 'os2' ) # OS/2 cannot handle handles && !($from_a_handle && $^O eq 'MSWin32') && !($from_a_handle && $^O eq 'NetWare') ) { if ($^O eq 'VMS' && -e $from && ! -d $to && ! -d $from) { # VMS natively inherits path components from the source of a # copy, but we want the Unixy behavior of inheriting from # the current working directory. Also, default in a trailing # dot for null file types. $to = VMS::Filespec::rmsexpand(VMS::Filespec::vmsify($to), '.'); # Get rid of the old versions to be like UNIX 1 while unlink $to; } return syscopy($from, $to) || 0; } my $closefrom = 0; my $closeto = 0; my ($status, $r, $buf); local($\) = ''; my $from_h; if ($from_a_handle) { $from_h = $from; } else { open $from_h, "<", $from or goto fail_open1; binmode $from_h or die "($!,$^E)"; $closefrom = 1; } # Seems most logical to do this here, in case future changes would want to # make this croak for some reason. unless (defined $size) { $size = tied(*$from_h) ? 0 : -s $from_h || 0; $size = 1024 if ($size < 512); $size = $Too_Big if ($size > $Too_Big); } my $to_h; if ($to_a_handle) { $to_h = $to; } else { $to_h = \do { local *FH }; # XXX is this line obsolete? open $to_h, ">", $to or goto fail_open2; binmode $to_h or die "($!,$^E)"; $closeto = 1; } $! = 0; for (;;) { my ($r, $w, $t); defined($r = sysread($from_h, $buf, $size)) or goto fail_inner; last unless $r; for ($w = 0; $w < $r; $w += $t) { $t = syswrite($to_h, $buf, $r - $w, $w) or goto fail_inner; } } close($to_h) || goto fail_open2 if $closeto; close($from_h) || goto fail_open1 if $closefrom; # Use this idiom to avoid uninitialized value warning. return 1; # All of these contortions try to preserve error messages... fail_inner: if ($closeto) { $status = $!; $! = 0; close $to_h; $! = $status unless $!; } fail_open2: if ($closefrom) { $status = $!; $! = 0; close $from_h; $! = $status unless $!; } fail_open1: return 0; } sub cp { my($from,$to) = @_; my(@fromstat) = stat $from; my(@tostat) = stat $to; my $perm; return 0 unless copy(@_) and @fromstat; if (@tostat) { $perm = $tostat[2]; } else { $perm = $fromstat[2] & ~(umask || 0); @tostat = stat $to; } # Might be more robust to look for S_I* in Fcntl, but we're # trying to avoid dependence on any XS-containing modules, # since File::Copy is used during the Perl build. $perm &= 07777; if ($perm & 06000) { croak("Unable to check setuid/setgid permissions for $to: $!") unless @tostat; if ($perm & 04000 and # setuid $fromstat[4] != $tostat[4]) { # owner must match $perm &= ~06000; } if ($perm & 02000 && $> != 0) { # if not root, setgid my $ok = $fromstat[5] == $tostat[5]; # group must match if ($ok) { # and we must be in group $ok = grep { $_ == $fromstat[5] } split /\s+/, $) } $perm &= ~06000 unless $ok; } } return 0 unless @tostat; return 1 if $perm == ($tostat[2] & 07777); return eval { chmod $perm, $to; } ? 1 : 0; } sub _move { croak("Usage: move(FROM, TO) ") unless @_ == 3; my($from,$to,$fallback) = @_; my($fromsz,$tosz1,$tomt1,$tosz2,$tomt2,$sts,$ossts); if (-d $to && ! -d $from) { $to = _catname($from, $to); } ($tosz1,$tomt1) = (stat($to))[7,9]; $fromsz = -s $from; if ($^O eq 'os2' and defined $tosz1 and defined $fromsz) { # will not rename with overwrite unlink $to; } if ($^O eq 'VMS' && -e $from && ! -d $to && ! -d $from) { # VMS natively inherits path components from the source of a # copy, but we want the Unixy behavior of inheriting from # the current working directory. Also, default in a trailing # dot for null file types. $to = VMS::Filespec::rmsexpand(VMS::Filespec::vmsify($to), '.'); # Get rid of the old versions to be like UNIX 1 while unlink $to; } return 1 if rename $from, $to; # Did rename return an error even though it succeeded, because $to # is on a remote NFS file system, and NFS lost the server's ack? return 1 if defined($fromsz) && !-e $from && # $from disappeared (($tosz2,$tomt2) = (stat($to))[7,9]) && # $to's there ((!defined $tosz1) || # not before or ($tosz1 != $tosz2 or $tomt1 != $tomt2)) && # was changed $tosz2 == $fromsz; # it's all there ($tosz1,$tomt1) = (stat($to))[7,9]; # just in case rename did something { local $@; eval { local $SIG{__DIE__}; $fallback->($from,$to) or die; my($atime, $mtime) = (stat($from))[8,9]; utime($atime, $mtime, $to); unlink($from) or die; }; return 1 unless $@; } ($sts,$ossts) = ($! + 0, $^E + 0); ($tosz2,$tomt2) = ((stat($to))[7,9],0,0) if defined $tomt1; unlink($to) if !defined($tomt1) or $tomt1 != $tomt2 or $tosz1 != $tosz2; ($!,$^E) = ($sts,$ossts); return 0; } sub move { _move(@_,\©); } sub mv { _move(@_,\&cp); } # &syscopy is an XSUB under OS/2 unless (defined &syscopy) { if ($^O eq 'VMS') { *syscopy = \&rmscopy; } elsif ($^O eq 'MSWin32' && defined &DynaLoader::boot_DynaLoader) { # Win32::CopyFile() fill only work if we can load Win32.xs *syscopy = sub { return 0 unless @_ == 2; return Win32::CopyFile(@_, 1); }; } else { $Syscopy_is_copy = 1; *syscopy = \© } } 1; __END__ =head1 NAME File::Copy - Copy files or filehandles =head1 SYNOPSIS use File::Copy; copy("sourcefile","destinationfile") or die "Copy failed: $!"; copy("Copy.pm",\*STDOUT); move("/dev1/sourcefile","/dev2/destinationfile"); use File::Copy "cp"; $n = FileHandle->new("/a/file","r"); cp($n,"x"); =head1 DESCRIPTION The File::Copy module provides two basic functions, C<copy> and C<move>, which are useful for getting the contents of a file from one place to another. =over 4 =item copy X<copy> X<cp> The C<copy> function takes two parameters: a file to copy from and a file to copy to. Either argument may be a string, a FileHandle reference or a FileHandle glob. Obviously, if the first argument is a filehandle of some sort, it will be read from, and if it is a file I<name> it will be opened for reading. Likewise, the second argument will be written to. If the second argument does not exist but the parent directory does exist, then it will be created. Trying to copy a file into a non-existent directory is an error. Trying to copy a file on top of itself is also an error. C<copy> will not overwrite read-only files. If the destination (second argument) already exists and is a directory, and the source (first argument) is not a filehandle, then the source file will be copied into the directory specified by the destination, using the same base name as the source file. It's a failure to have a filehandle as the source when the destination is a directory. B<Note that passing in files as handles instead of names may lead to loss of information on some operating systems; it is recommended that you use file names whenever possible.> Files are opened in binary mode where applicable. To get a consistent behaviour when copying from a filehandle to a file, use C<binmode> on the filehandle. An optional third parameter can be used to specify the buffer size used for copying. This is the number of bytes from the first file, that will be held in memory at any given time, before being written to the second file. The default buffer size depends upon the file, but will generally be the whole file (up to 2MB), or 1k for filehandles that do not reference files (eg. sockets). You may use the syntax C<use File::Copy "cp"> to get at the C<cp> alias for this function. The syntax is I<exactly> the same. The behavior is nearly the same as well: as of version 2.15, C<cp> will preserve the source file's permission bits like the shell utility C<cp(1)> would do, while C<copy> uses the default permissions for the target file (which may depend on the process' C<umask>, file ownership, inherited ACLs, etc.). If an error occurs in setting permissions, C<cp> will return 0, regardless of whether the file was successfully copied. =item move X<move> X<mv> X<rename> The C<move> function also takes two parameters: the current name and the intended name of the file to be moved. If the destination already exists and is a directory, and the source is not a directory, then the source file will be renamed into the directory specified by the destination. If possible, move() will simply rename the file. Otherwise, it copies the file to the new location and deletes the original. If an error occurs during this copy-and-delete process, you may be left with a (possibly partial) copy of the file under the destination name. You may use the C<mv> alias for this function in the same way that you may use the C<cp> alias for C<copy>. =item syscopy X<syscopy> File::Copy also provides the C<syscopy> routine, which copies the file specified in the first parameter to the file specified in the second parameter, preserving OS-specific attributes and file structure. For Unix systems, this is equivalent to the simple C<copy> routine, which doesn't preserve OS-specific attributes. For VMS systems, this calls the C<rmscopy> routine (see below). For OS/2 systems, this calls the C<syscopy> XSUB directly. For Win32 systems, this calls C<Win32::CopyFile>. B<Special behaviour if C<syscopy> is defined (OS/2, VMS and Win32)>: If both arguments to C<copy> are not file handles, then C<copy> will perform a "system copy" of the input file to a new output file, in order to preserve file attributes, indexed file structure, I<etc.> The buffer size parameter is ignored. If either argument to C<copy> is a handle to an opened file, then data is copied using Perl operators, and no effort is made to preserve file attributes or record structure. The system copy routine may also be called directly under VMS and OS/2 as C<File::Copy::syscopy> (or under VMS as C<File::Copy::rmscopy>, which is the routine that does the actual work for syscopy). =item rmscopy($from,$to[,$date_flag]) X<rmscopy> The first and second arguments may be strings, typeglobs, typeglob references, or objects inheriting from IO::Handle; they are used in all cases to obtain the I<filespec> of the input and output files, respectively. The name and type of the input file are used as defaults for the output file, if necessary. A new version of the output file is always created, which inherits the structure and RMS attributes of the input file, except for owner and protections (and possibly timestamps; see below). All data from the input file is copied to the output file; if either of the first two parameters to C<rmscopy> is a file handle, its position is unchanged. (Note that this means a file handle pointing to the output file will be associated with an old version of that file after C<rmscopy> returns, not the newly created version.) The third parameter is an integer flag, which tells C<rmscopy> how to handle timestamps. If it is E<lt> 0, none of the input file's timestamps are propagated to the output file. If it is E<gt> 0, then it is interpreted as a bitmask: if bit 0 (the LSB) is set, then timestamps other than the revision date are propagated; if bit 1 is set, the revision date is propagated. If the third parameter to C<rmscopy> is 0, then it behaves much like the DCL COPY command: if the name or type of the output file was explicitly specified, then no timestamps are propagated, but if they were taken implicitly from the input filespec, then all timestamps other than the revision date are propagated. If this parameter is not supplied, it defaults to 0. C<rmscopy> is VMS specific and cannot be exported; it must be referenced by its full name, e.g.: File::Copy::rmscopy($from, $to) or die $!; Like C<copy>, C<rmscopy> returns 1 on success. If an error occurs, it sets C<$!>, deletes the output file, and returns 0. =back =head1 RETURN All functions return 1 on success, 0 on failure. $! will be set if an error was encountered. =head1 NOTES Before calling copy() or move() on a filehandle, the caller should close or flush() the file to avoid writes being lost. Note that this is the case even for move(), because it may actually copy the file, depending on the OS-specific implementation, and the underlying filesystem(s). =head1 AUTHOR File::Copy was written by Aaron Sherman I<E<lt>ajs@ajs.comE<gt>> in 1995, and updated by Charles Bailey I<E<lt>bailey@newman.upenn.eduE<gt>> in 1996. =cut PK ! ~ �C= C= 5.34.0/File/GlobMapper.pmnu �[��� package File::GlobMapper; use strict; use warnings; use Carp; our ($CSH_GLOB); BEGIN { if ($] < 5.006) { require File::BSDGlob; import File::BSDGlob qw(:glob) ; $CSH_GLOB = File::BSDGlob::GLOB_CSH() ; *globber = \&File::BSDGlob::csh_glob; } else { require File::Glob; import File::Glob qw(:glob) ; $CSH_GLOB = File::Glob::GLOB_CSH() ; #*globber = \&File::Glob::bsd_glob; *globber = \&File::Glob::csh_glob; } } our ($Error); our ($VERSION, @EXPORT_OK); $VERSION = '1.001'; @EXPORT_OK = qw( globmap ); our ($noPreBS, $metachars, $matchMetaRE, %mapping, %wildCount); $noPreBS = '(?<!\\\)' ; # no preceding backslash $metachars = '.*?[](){}'; $matchMetaRE = '[' . quotemeta($metachars) . ']'; %mapping = ( '*' => '([^/]*)', '?' => '([^/])', '.' => '\.', '[' => '([', '(' => '(', ')' => ')', ); %wildCount = map { $_ => 1 } qw/ * ? . { ( [ /; sub globmap ($$;) { my $inputGlob = shift ; my $outputGlob = shift ; my $obj = File::GlobMapper->new($inputGlob, $outputGlob, @_) or croak "globmap: $Error" ; return $obj->getFileMap(); } sub new { my $class = shift ; my $inputGlob = shift ; my $outputGlob = shift ; # TODO -- flags needs to default to whatever File::Glob does my $flags = shift || $CSH_GLOB ; #my $flags = shift ; $inputGlob =~ s/^\s*\<\s*//; $inputGlob =~ s/\s*\>\s*$//; $outputGlob =~ s/^\s*\<\s*//; $outputGlob =~ s/\s*\>\s*$//; my %object = ( InputGlob => $inputGlob, OutputGlob => $outputGlob, GlobFlags => $flags, Braces => 0, WildCount => 0, Pairs => [], Sigil => '#', ); my $self = bless \%object, ref($class) || $class ; $self->_parseInputGlob() or return undef ; $self->_parseOutputGlob() or return undef ; my @inputFiles = globber($self->{InputGlob}, $flags) ; if (GLOB_ERROR) { $Error = $!; return undef ; } #if (whatever) { my $missing = grep { ! -e $_ } @inputFiles ; if ($missing) { $Error = "$missing input files do not exist"; return undef ; } } $self->{InputFiles} = \@inputFiles ; $self->_getFiles() or return undef ; return $self; } sub _retError { my $string = shift ; $Error = "$string in input fileglob" ; return undef ; } sub _unmatched { my $delimeter = shift ; _retError("Unmatched $delimeter"); return undef ; } sub _parseBit { my $self = shift ; my $string = shift ; my $out = ''; my $depth = 0 ; while ($string =~ s/(.*?)$noPreBS(,|$matchMetaRE)//) { $out .= quotemeta($1) ; $out .= $mapping{$2} if defined $mapping{$2}; ++ $self->{WildCount} if $wildCount{$2} ; if ($2 eq ',') { return _unmatched("(") if $depth ; $out .= '|'; } elsif ($2 eq '(') { ++ $depth ; } elsif ($2 eq ')') { return _unmatched(")") if ! $depth ; -- $depth ; } elsif ($2 eq '[') { # TODO -- quotemeta & check no '/' # TODO -- check for \] & other \ within the [] $string =~ s#(.*?\])## or return _unmatched("["); $out .= "$1)" ; } elsif ($2 eq ']') { return _unmatched("]"); } elsif ($2 eq '{' || $2 eq '}') { return _retError("Nested {} not allowed"); } } $out .= quotemeta $string; return _unmatched("(") if $depth ; return $out ; } sub _parseInputGlob { my $self = shift ; my $string = $self->{InputGlob} ; my $inGlob = ''; # Multiple concatenated *'s don't make sense #$string =~ s#\*\*+#*# ; # TODO -- Allow space to delimit patterns? #my @strings = split /\s+/, $string ; #for my $str (@strings) my $out = ''; my $depth = 0 ; while ($string =~ s/(.*?)$noPreBS($matchMetaRE)//) { $out .= quotemeta($1) ; $out .= $mapping{$2} if defined $mapping{$2}; ++ $self->{WildCount} if $wildCount{$2} ; if ($2 eq '(') { ++ $depth ; } elsif ($2 eq ')') { return _unmatched(")") if ! $depth ; -- $depth ; } elsif ($2 eq '[') { # TODO -- quotemeta & check no '/' or '(' or ')' # TODO -- check for \] & other \ within the [] $string =~ s#(.*?\])## or return _unmatched("["); $out .= "$1)" ; } elsif ($2 eq ']') { return _unmatched("]"); } elsif ($2 eq '}') { return _unmatched("}"); } elsif ($2 eq '{') { # TODO -- check no '/' within the {} # TODO -- check for \} & other \ within the {} my $tmp ; unless ( $string =~ s/(.*?)$noPreBS\}//) { return _unmatched("{"); } #$string =~ s#(.*?)\}##; #my $alt = join '|', # map { quotemeta $_ } # split "$noPreBS,", $1 ; my $alt = $self->_parseBit($1); defined $alt or return 0 ; $out .= "($alt)" ; ++ $self->{Braces} ; } } return _unmatched("(") if $depth ; $out .= quotemeta $string ; $self->{InputGlob} =~ s/$noPreBS[\(\)]//g; $self->{InputPattern} = $out ; #print "# INPUT '$self->{InputGlob}' => '$out'\n"; return 1 ; } sub _parseOutputGlob { my $self = shift ; my $string = $self->{OutputGlob} ; my $maxwild = $self->{WildCount}; if ($self->{GlobFlags} & GLOB_TILDE) #if (1) { $string =~ s{ ^ ~ # find a leading tilde ( # save this in $1 [^/] # a non-slash character * # repeated 0 or more times (0 means me) ) }{ $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} ) }ex; } # max #1 must be == to max no of '*' in input while ( $string =~ m/#(\d)/g ) { croak "Max wild is #$maxwild, you tried #$1" if $1 > $maxwild ; } my $noPreBS = '(?<!\\\)' ; # no preceding backslash #warn "noPreBS = '$noPreBS'\n"; #$string =~ s/${noPreBS}\$(\d)/\${$1}/g; $string =~ s/${noPreBS}#(\d)/\${$1}/g; $string =~ s#${noPreBS}\*#\${inFile}#g; $string = '"' . $string . '"'; #print "OUTPUT '$self->{OutputGlob}' => '$string'\n"; $self->{OutputPattern} = $string ; return 1 ; } sub _getFiles { my $self = shift ; my %outInMapping = (); my %inFiles = () ; foreach my $inFile (@{ $self->{InputFiles} }) { next if $inFiles{$inFile} ++ ; my $outFile = $inFile ; if ( $inFile =~ m/$self->{InputPattern}/ ) { no warnings 'uninitialized'; eval "\$outFile = $self->{OutputPattern};" ; if (defined $outInMapping{$outFile}) { $Error = "multiple input files map to one output file"; return undef ; } $outInMapping{$outFile} = $inFile; push @{ $self->{Pairs} }, [$inFile, $outFile]; } } return 1 ; } sub getFileMap { my $self = shift ; return $self->{Pairs} ; } sub getHash { my $self = shift ; return { map { $_->[0] => $_->[1] } @{ $self->{Pairs} } } ; } 1; __END__ =head1 NAME File::GlobMapper - Extend File Glob to Allow Input and Output Files =head1 SYNOPSIS use File::GlobMapper qw( globmap ); my $aref = globmap $input => $output or die $File::GlobMapper::Error ; my $gm = File::GlobMapper->new( $input => $output ) or die $File::GlobMapper::Error ; =head1 DESCRIPTION This module needs Perl5.005 or better. This module takes the existing C<File::Glob> module as a starting point and extends it to allow new filenames to be derived from the files matched by C<File::Glob>. This can be useful when carrying out batch operations on multiple files that have both an input filename and output filename and the output file can be derived from the input filename. Examples of operations where this can be useful include, file renaming, file copying and file compression. =head2 Behind The Scenes To help explain what C<File::GlobMapper> does, consider what code you would write if you wanted to rename all files in the current directory that ended in C<.tar.gz> to C<.tgz>. So say these files are in the current directory alpha.tar.gz beta.tar.gz gamma.tar.gz and they need renamed to this alpha.tgz beta.tgz gamma.tgz Below is a possible implementation of a script to carry out the rename (error cases have been omitted) foreach my $old ( glob "*.tar.gz" ) { my $new = $old; $new =~ s#(.*)\.tar\.gz$#$1.tgz# ; rename $old => $new or die "Cannot rename '$old' to '$new': $!\n; } Notice that a file glob pattern C<*.tar.gz> was used to match the C<.tar.gz> files, then a fairly similar regular expression was used in the substitute to allow the new filename to be created. Given that the file glob is just a cut-down regular expression and that it has already done a lot of the hard work in pattern matching the filenames, wouldn't it be handy to be able to use the patterns in the fileglob to drive the new filename? Well, that's I<exactly> what C<File::GlobMapper> does. Here is same snippet of code rewritten using C<globmap> for my $pair (globmap '<*.tar.gz>' => '<#1.tgz>' ) { my ($from, $to) = @$pair; rename $from => $to or die "Cannot rename '$old' to '$new': $!\n; } So how does it work? Behind the scenes the C<globmap> function does a combination of a file glob to match existing filenames followed by a substitute to create the new filenames. Notice how both parameters to C<globmap> are strings that are delimited by <>. This is done to make them look more like file globs - it is just syntactic sugar, but it can be handy when you want the strings to be visually distinctive. The enclosing <> are optional, so you don't have to use them - in fact the first thing globmap will do is remove these delimiters if they are present. The first parameter to C<globmap>, C<*.tar.gz>, is an I<Input File Glob>. Once the enclosing "< ... >" is removed, this is passed (more or less) unchanged to C<File::Glob> to carry out a file match. Next the fileglob C<*.tar.gz> is transformed behind the scenes into a full Perl regular expression, with the additional step of wrapping each transformed wildcard metacharacter sequence in parenthesis. In this case the input fileglob C<*.tar.gz> will be transformed into this Perl regular expression ([^/]*)\.tar\.gz Wrapping with parenthesis allows the wildcard parts of the Input File Glob to be referenced by the second parameter to C<globmap>, C<#1.tgz>, the I<Output File Glob>. This parameter operates just like the replacement part of a substitute command. The difference is that the C<#1> syntax is used to reference sub-patterns matched in the input fileglob, rather than the C<$1> syntax that is used with perl regular expressions. In this case C<#1> is used to refer to the text matched by the C<*> in the Input File Glob. This makes it easier to use this module where the parameters to C<globmap> are typed at the command line. The final step involves passing each filename matched by the C<*.tar.gz> file glob through the derived Perl regular expression in turn and expanding the output fileglob using it. The end result of all this is a list of pairs of filenames. By default that is what is returned by C<globmap>. In this example the data structure returned will look like this ( ['alpha.tar.gz' => 'alpha.tgz'], ['beta.tar.gz' => 'beta.tgz' ], ['gamma.tar.gz' => 'gamma.tgz'] ) Each pair is an array reference with two elements - namely the I<from> filename, that C<File::Glob> has matched, and a I<to> filename that is derived from the I<from> filename. =head2 Limitations C<File::GlobMapper> has been kept simple deliberately, so it isn't intended to solve all filename mapping operations. Under the hood C<File::Glob> (or for older versions of Perl, C<File::BSDGlob>) is used to match the files, so you will never have the flexibility of full Perl regular expression. =head2 Input File Glob The syntax for an Input FileGlob is identical to C<File::Glob>, except for the following =over 5 =item 1. No nested {} =item 2. Whitespace does not delimit fileglobs. =item 3. The use of parenthesis can be used to capture parts of the input filename. =item 4. If an Input glob matches the same file more than once, only the first will be used. =back The syntax =over 5 =item B<~> =item B<~user> =item B<.> Matches a literal '.'. Equivalent to the Perl regular expression \. =item B<*> Matches zero or more characters, except '/'. Equivalent to the Perl regular expression [^/]* =item B<?> Matches zero or one character, except '/'. Equivalent to the Perl regular expression [^/]? =item B<\> Backslash is used, as usual, to escape the next character. =item B<[]> Character class. =item B<{,}> Alternation =item B<()> Capturing parenthesis that work just like perl =back Any other character it taken literally. =head2 Output File Glob The Output File Glob is a normal string, with 2 glob-like features. The first is the '*' metacharacter. This will be replaced by the complete filename matched by the input file glob. So *.c *.Z The second is Output FileGlobs take the =over 5 =item "*" The "*" character will be replaced with the complete input filename. =item #1 Patterns of the form /#\d/ will be replaced with the =back =head2 Returned Data =head1 EXAMPLES =head2 A Rename script Below is a simple "rename" script that uses C<globmap> to determine the source and destination filenames. use File::GlobMapper qw(globmap) ; use File::Copy; die "rename: Usage rename 'from' 'to'\n" unless @ARGV == 2 ; my $fromGlob = shift @ARGV; my $toGlob = shift @ARGV; my $pairs = globmap($fromGlob, $toGlob) or die $File::GlobMapper::Error; for my $pair (@$pairs) { my ($from, $to) = @$pair; move $from => $to ; } Here is an example that renames all c files to cpp. $ rename '*.c' '#1.cpp' =head2 A few example globmaps Below are a few examples of globmaps To copy all your .c file to a backup directory '</my/home/*.c>' '</my/backup/#1.c>' If you want to compress all '</my/home/*.[ch]>' '<*.gz>' To uncompress '</my/home/*.[ch].gz>' '</my/home/#1.#2>' =head1 SEE ALSO L<File::Glob|File::Glob> =head1 AUTHOR The I<File::GlobMapper> module was written by Paul Marquess, F<pmqs@cpan.org>. =head1 COPYRIGHT AND LICENSE Copyright (c) 2005 Paul Marquess. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. PK ! �/6)� � 5.34.0/subs.pmnu �[��� package subs; use strict; use warnings; our $VERSION = '1.04'; =head1 NAME subs - Perl pragma to predeclare subroutine names =head1 SYNOPSIS use subs qw(frob); frob 3..10; =head1 DESCRIPTION This will predeclare all the subroutines whose names are in the list, allowing you to use them without parentheses (as list operators) even before they're declared. Unlike pragmas that affect the C<$^H> hints variable, the C<use vars> and C<use subs> declarations are not lexically scoped to the block they appear in: they affect the entire package in which they appear. It is not possible to rescind these declarations with C<no vars> or C<no subs>. See L<perlmodlib/Pragmatic Modules> and L<strict/strict subs>. =cut sub import { my $callpack = caller; my $pack = shift; my @imports = @_; foreach my $sym (@imports) { no strict 'refs'; *{"${callpack}::$sym"} = \&{"${callpack}::$sym"}; } }; 1; PK ! ���Fg� g� 5.34.0/_charnames.pmnu �[��� # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This helper module is for internal use by core Perl only. This module is # subject to change or removal at any time without notice. Don't use it # directly. Use the public <charnames> module instead. package _charnames; use strict; use warnings; our $VERSION = '1.48'; use unicore::Name; # mktables-generated algorithmically-defined names use bytes (); # for $bytes::hint_bits use re "/aa"; # Everything in here should be ASCII $Carp::Internal{ (__PACKAGE__) } = 1; # Translate between Unicode character names and their code points. This is a # submodule of package <charnames>, used to allow \N{...} to be autoloaded, # but it was decided not to autoload the various functions in charnames; the # splitting allows this behavior. # # The official names with their code points are stored in a table in # lib/unicore/Name.pl which is read in as a large string (almost 3/4 Mb in # Unicode 6.0). Each code point sequence appears on a line by itself, with # its corresponding name occupying the next line in the string. (Some of the # CJK and the Hangul syllable names are instead determined algorithmically via # subroutines stored instead in lib/unicore/Name.pm). Because of the large # size of this table, it isn't converted into hashes for faster lookup. # # But, user defined aliases are stored in their own hashes, as are Perl # extensions to the official names. These are checked first before looking at # the official table. # # Basically, the table is grepped for the input code point (viacode()) or # name (the other functions), and the corresponding value on the next or # previous line is returned. The grepping is done by turning the input into a # regular expression. Thus, the same table does double duty, used by both # name and code point lookup. (If we were to have hashes, we would need two, # one for each lookup direction.) # # For loose name matching, the logical thing would be to have a table # with all the ignorable characters squeezed out, and then grep it with the # similiarly-squeezed input name. (And this is in fact how the lookups are # done with the small Perl extension hashes.) But since we need to be able to # go from code point to official name, the original table would still need to # exist. Due to the large size of the table, it was decided to not read # another very large string into memory for a second table. Instead, the # regular expression of the input name is modified to have optional spaces and # dashes between characters. For example, in strict matching, the regular # expression would be: # qr/^DIGIT ONE$/m # Under loose matching, the blank would be squeezed out, and the re would be: # qr/^D[- ]?I[- ]?G[- ]?I[- ]?T[- ]?O[- ]?N[- ]?E$/m # which matches a blank or dash between any characters in the official table. # # This is also how script lookup is done. Basically the re looks like # qr/ (?:LATIN|GREEK|CYRILLIC) (?:SMALL )?LETTER $name/ # where $name is the loose or strict regex for the remainder of the name. # The hashes are stored as utf8 strings. This makes it easier to deal with # sequences. I (khw) also tried making Name.pl utf8, but it slowed things # down by a factor of 7. I then tried making Name.pl store the utf8 # equivalents but not calling them utf8. That led to similar speed as leaving # it alone, but since that is harder for a human to parse, I left it as-is. my %system_aliases = ( 'SINGLE-SHIFT 2' => chr utf8::unicode_to_native(0x8E), 'SINGLE-SHIFT 3' => chr utf8::unicode_to_native(0x8F), 'PRIVATE USE 1' => chr utf8::unicode_to_native(0x91), 'PRIVATE USE 2' => chr utf8::unicode_to_native(0x92), ); # These are the aliases above that differ under :loose and :full matching # because the :full versions have blanks or hyphens in them. #my %loose_system_aliases = ( #); #my %deprecated_aliases; #$deprecated_aliases{'BELL'} = chr utf8::unicode_to_native(0x07) if $^V lt v5.17.0; #my %loose_deprecated_aliases = ( #); # These are special cased in :loose matching, differing only in a medial # hyphen my $HANGUL_JUNGSEONG_O_E_utf8 = chr 0x1180; my $HANGUL_JUNGSEONG_OE_utf8 = chr 0x116C; my $txt; # The table of official character names my %full_names_cache; # Holds already-looked-up names, so don't have to # re-look them up again. The previous versions of charnames had scoping # bugs. For example if we use script A in one scope and find and cache # what Z resolves to, we can't use that cache in a different scope that # uses script B instead of A, as Z might be an entirely different letter # there; or there might be different aliases in effect in different # scopes, or :short may be in effect or not effect in different scopes, # or various combinations thereof. This was solved in this version # mostly by moving things to %^H. But some things couldn't be moved # there. One of them was the cache of runtime looked-up names, in part # because %^H is read-only at runtime. I (khw) don't know why the cache # was run-time only in the previous versions: perhaps oversight; perhaps # that compile time looking doesn't happen in a loop so didn't think it # was worthwhile; perhaps not wanting to make the cache too large. But # I decided to make it compile time as well; this could easily be # changed. # Anyway, this hash is not scoped, and is added to at runtime. It # doesn't have scoping problems because the data in it is restricted to # official names, which are always invariant, and we only set it and # look at it at during :full lookups, so is unaffected by any other # scoped options. I put this in to maintain parity with the older # version. If desired, a %short_names cache could also be made, as well # as one for each script, say in %script_names_cache, with each key # being a hash for a script named in a 'use charnames' statement. I # decided not to do that for now, just because it's added complication, # and because I'm just trying to maintain parity, not extend it. # Like %full_names_cache, but for use when :loose is in effect. There needs # to be two caches because :loose may not be in effect for a scope, and a # loose name could inappropriately be returned when only exact matching is # called for. my %loose_names_cache; # Designed so that test decimal first, and then hex. Leading zeros # imply non-decimal, as do non-[0-9] my $decimal_qr = qr/^[1-9]\d*$/; # Returns the hex number in $1. my $hex_qr = qr/^(?:[Uu]\+|0[xX])?([[:xdigit:]]+)$/; sub croak { require Carp; goto &Carp::croak; } # croak sub carp { require Carp; goto &Carp::carp; } # carp sub populate_txt() { return if $txt; $txt = do "unicore/Name.pl"; Internals::SvREADONLY($txt, 1); } sub alias (@) # Set up a single alias { my @errors; my $nbsp = chr utf8::unicode_to_native(0xA0); my $alias = ref $_[0] ? $_[0] : { @_ }; foreach my $name (sort keys %$alias) { # Sort only because it helps having # deterministic output for # t/lib/charnames/alias my $value = $alias->{$name}; next unless defined $value; # Omit if screwed up. # Is slightly slower to just after this statement see if it is # decimal, since we already know it is after having converted from # hex, but makes the code easier to maintain, and is called # infrequently, only at compile-time if ($value !~ $decimal_qr && $value =~ $hex_qr) { my $temp = CORE::hex $1; $temp = utf8::unicode_to_native($temp) if $value =~ /^[Uu]\+/; $value = $temp; } if ($value =~ $decimal_qr) { no warnings qw(non_unicode surrogate nonchar); # Allow any of these $^H{charnames_ord_aliases}{$name} = chr $value; # Use a canonical form. $^H{charnames_inverse_ords}{sprintf("%05X", $value)} = $name; } else { my $ok_portion = ""; $ok_portion = $1 if $name =~ / ^ ( \p{_Perl_Charname_Begin} \p{_Perl_Charname_Continue}* ) /x; # If the name was fully correct, the above should have matched all of # it. if (length $ok_portion < length $name) { my $first_bad = substr($name, length($ok_portion), 1); push @errors, "Invalid character in charnames alias definition; " . "marked by <-- HERE in '$ok_portion$first_bad<-- HERE " . substr($name, length($ok_portion) + 1) . "'"; } else { if ($name =~ / ( .* \s ) ( \s* ) $ /x) { push @errors, "charnames alias definitions may not contain " . "trailing white-space; marked by <-- HERE in " . "'$1 <-- HERE " . $2 . "'"; next; } # Use '+' instead of '*' in this regex, because any trailing # blanks have already been found if ($name =~ / ( .*? \s{2} ) ( .+ ) /x) { push @errors, "charnames alias definitions may not contain a " . "sequence of multiple spaces; marked by <-- HERE " . "in '$1 <-- HERE " . $2 . "'"; next; } $^H{charnames_name_aliases}{$name} = $value; } } } # We find and output all errors from this :alias definition, rather than # failing on the first one, so fewer runs are needed to get it to compile if (@errors) { croak join "\n", @errors; } return; } # alias sub not_legal_use_bytes_msg { my ($name, $utf8) = @_; my $return; if (length($utf8) == 1) { $return = sprintf("Character 0x%04x with name '%s' is", ord $utf8, $name); } else { $return = sprintf("String with name '%s' (and ordinals %s) contains character(s)", $name, join(" ", map { sprintf "0x%04X", ord $_ } split(//, $utf8))); } return $return . " above 0xFF with 'use bytes' in effect"; } sub alias_file ($) # Reads a file containing alias definitions { require File::Spec; my ($arg, $file) = @_; if (-f $arg && File::Spec->file_name_is_absolute ($arg)) { $file = $arg; } elsif ($arg =~ m/ ^ \p{_Perl_IDStart} \p{_Perl_IDCont}* $/x) { $file = "unicore/${arg}_alias.pl"; } else { croak "Charnames alias file names can only have identifier characters"; } if (my @alias = do $file) { @alias == 1 && !defined $alias[0] and croak "$file cannot be used as alias file for charnames"; @alias % 2 and croak "$file did not return a (valid) list of alias pairs"; alias (@alias); return (1); } 0; } # alias_file # For use when don't import anything. This structure must be kept in # sync with the one that import() fills up. my %dummy_H = ( charnames_stringified_names => "", charnames_stringified_ords => "", charnames_scripts => "", charnames_full => 1, charnames_loose => 0, charnames_short => 0, ); sub lookup_name ($$$;$) { my ($name, $wants_ord, $runtime, $regex_loose) = @_; $regex_loose //= 0; # Lookup the name or sequence $name in the tables. If $wants_ord is false, # returns the string equivalent of $name; if true, returns the ordinal value # instead, but in this case $name must not be a sequence; otherwise undef is # returned and a warning raised. $runtime is 0 if compiletime, otherwise # gives the number of stack frames to go back to get the application caller # info. # If $name is not found, returns undef in runtime with no warning; and in # compiletime, the Unicode replacement character, with a warning. # It looks first in the aliases, then in the large table of official Unicode # names. my $result; # The string result my $save_input; if ($runtime && ! $regex_loose) { my $hints_ref = (caller($runtime))[10]; # If we didn't import anything (which happens with 'use charnames ()', # substitute a dummy structure. $hints_ref = \%dummy_H if ! defined $hints_ref || (! defined $hints_ref->{charnames_full} && ! defined $hints_ref->{charnames_loose}); # At runtime, but currently not at compile time, %^H gets # stringified, so un-stringify back to the original data structures. # These get thrown away by perl before the next invocation # Also fill in the hash with the non-stringified data. # N.B. New fields must be also added to %dummy_H %{$^H{charnames_name_aliases}} = split ',', $hints_ref->{charnames_stringified_names}; %{$^H{charnames_ord_aliases}} = split ',', $hints_ref->{charnames_stringified_ords}; $^H{charnames_scripts} = $hints_ref->{charnames_scripts}; $^H{charnames_full} = $hints_ref->{charnames_full}; $^H{charnames_loose} = $hints_ref->{charnames_loose}; $^H{charnames_short} = $hints_ref->{charnames_short}; } my $loose = $regex_loose || $^H{charnames_loose}; my $lookup_name; # Input name suitably modified for grepping for in the # table # User alias should be checked first or else can't override ours, and if we # were to add any, could conflict with theirs. if (! $regex_loose && exists $^H{charnames_ord_aliases}{$name}) { $result = $^H{charnames_ord_aliases}{$name}; } elsif (! $regex_loose && exists $^H{charnames_name_aliases}{$name}) { $name = $^H{charnames_name_aliases}{$name}; $save_input = $lookup_name = $name; # Cache the result for any error # message # The aliases are documented to not match loosely, so change loose match # into full. if ($loose) { $loose = 0; $^H{charnames_full} = 1; } } else { # Here, not a user alias. That means that loose matching may be in # effect; will have to modify the input name. $lookup_name = $name; if ($loose) { $lookup_name = uc $lookup_name; # Squeeze out all underscores $lookup_name =~ s/_//g; # Remove all medial hyphens $lookup_name =~ s/ (?<= \S ) - (?= \S )//gx; # Squeeze out all spaces $lookup_name =~ s/\s//g; } # Here, $lookup_name has been modified as necessary for looking in the # hashes. Check the system alias files next. Most of these aliases are # the same for both strict and loose matching. To save space, the ones # which differ are in their own separate hash, which is checked if loose # matching is selected and the regular match fails. To save time, the # loose hashes could be expanded to include all aliases, and there would # only have to be one check. But if someone specifies :loose, they are # interested in convenience over speed, and the time for this second check # is miniscule compared to the rest of the routine. if (exists $system_aliases{$lookup_name}) { $result = $system_aliases{$lookup_name}; } # There are currently no entries in this hash, so don't waste time looking # for them. But the code is retained for the unlikely possibility that # some will be added in the future. # elsif ($loose && exists $loose_system_aliases{$lookup_name}) { # $result = $loose_system_aliases{$lookup_name}; # } # if (exists $deprecated_aliases{$lookup_name}) { # require warnings; # warnings::warnif('deprecated', # "Unicode character name \"$name\" is deprecated, use \"" # . viacode(ord $deprecated_aliases{$lookup_name}) # . "\" instead"); # $result = $deprecated_aliases{$lookup_name}; # } # There are currently no entries in this hash, so don't waste time looking # for them. But the code is retained for the unlikely possibility that # some will be added in the future. # elsif ($loose && exists $loose_deprecated_aliases{$lookup_name}) { # require warnings; # warnings::warnif('deprecated', # "Unicode character name \"$name\" is deprecated, use \"" # . viacode(ord $loose_deprecated_aliases{$lookup_name}) # . "\" instead"); # $result = $loose_deprecated_aliases{$lookup_name}; # } } my @off; # Offsets into table of pattern match begin and end # If haven't found it yet... if (! defined $result) { # See if has looked this input up earlier. if (! $loose && $^H{charnames_full} && exists $full_names_cache{$name}) { $result = $full_names_cache{$name}; } elsif ($loose && exists $loose_names_cache{$name}) { $result = $loose_names_cache{$name}; } else { # Here, must do a look-up # If full or loose matching succeeded, points to where to cache the # result my $cache_ref; ## Suck in the code/name list as a big string. ## Entries look like: ## "00052\nLATIN CAPITAL LETTER R\n\n" # or # "0052 0303\nLATIN CAPITAL LETTER R WITH TILDE\n\n" populate_txt() unless $txt; ## @off will hold the index into the code/name string of the start and ## end of the name as we find it. ## If :loose, look for a loose match; if :full, look for the name ## exactly # First, see if the name is one which is algorithmically determinable. # The subroutine is included in Name.pl. The table contained in # $txt doesn't contain these. Experiments show that checking # for these before checking for the regular names has no # noticeable impact on performance for the regular names, but # the other way around slows down finding these immensely. # Algorithmically determinables are not placed in the cache because # that uses up memory, and finding these again is fast. if ( ($loose || $^H{charnames_full}) && (defined (my $ord = charnames::name_to_code_point_special($lookup_name, $loose)))) { $result = chr $ord; } else { # Not algorithmically determinable; look up in the table. The name # will be turned into a regex, so quote any meta characters. $lookup_name = quotemeta $lookup_name; if ($loose) { # For loose matches, $lookup_name has already squeezed out the # non-essential characters. We have to add in code to make the # squeezed version match the non-squeezed equivalent in the table. # The only remaining hyphens are ones that start or end a word in # the original. They have been quoted in $lookup_name so they look # like "\-". Change all other characters except the backslash # quotes for any metacharacters, and the final character, so that # e.g., COLON gets transformed into: /C[- ]?O[- ]?L[- ]?O[- ]?N/ $lookup_name =~ s/ (?! \\ -) # Don't do this to the \- sequence ( [^-\\] ) # Nor the "-" within that sequence, # nor the "\" that quotes metachars, # but otherwise put the char into $1 (?=.) # And don't do it for the final char /$1\[- \]?/gx; # And add an optional blank or # '-' after each $1 char # Those remaining hyphens were originally at the beginning or end of # a word, so they can match either a blank before or after, but not # both. (Keep in mind that they have been quoted, so are a '\-' # sequence) $lookup_name =~ s/\\ -/(?:- | -)/xg; } # Do the lookup in the full table if asked for, and if succeeds # save the offsets and set where to cache the result. if (($loose || $^H{charnames_full}) && $txt =~ /^$lookup_name$/m) { @off = ($-[0], $+[0]); $cache_ref = ($loose) ? \%loose_names_cache : \%full_names_cache; } elsif ($regex_loose) { # Currently don't allow :short when this is set return; } else { # Here, didn't look for, or didn't find the name. # If :short is allowed, see if input is like "greek:Sigma". # Keep in mind that $lookup_name has had the metas quoted. my $scripts_trie = ""; my $name_has_uppercase; if (($^H{charnames_short}) && $lookup_name =~ /^ (?: \\ \s)* # Quoted space (.+?) # $1 = the script (?: \\ \s)* \\ : # Quoted colon (?: \\ \s)* (.+?) # $2 = the name (?: \\ \s)* $ /xs) { # Even in non-loose matching, the script traditionally has been # case insensitive $scripts_trie = "\U$1"; $lookup_name = $2; # Use original name to find its input casing, but ignore the # script part of that to make the determination. $save_input = $name if ! defined $save_input; $name =~ s/.*?://; $name_has_uppercase = $name =~ /[[:upper:]]/; } else { # Otherwise look in allowed scripts $scripts_trie = $^H{charnames_scripts}; # Use original name to find its input casing $name_has_uppercase = $name =~ /[[:upper:]]/; } my $case = $name_has_uppercase ? "CAPITAL" : "SMALL"; return if (! $scripts_trie || $txt !~ /^ (?: $scripts_trie ) \ (?:$case\ )? LETTER \ \U$lookup_name $/xm); # Here have found the input name in the table. @off = ($-[0], $+[0]); } # Here, the input name has been found; we haven't set up the output, # but we know where in the string # the name starts. The string is set up so that for single characters # (and not named sequences), the name is on a line by itself, and the # previous line contains precisely 5 hex digits for its code point. # Named sequences won't have the 7th preceding character be a \n. # (Actually, for the very first entry in the table this isn't strictly # true: subtracting 7 will yield -1, and the substr below will # therefore yield the very last character in the table, which should # also be a \n, so the statement works anyway.) if (substr($txt, $off[0] - 7, 1) eq "\n") { $result = chr CORE::hex substr($txt, $off[0] - 6, 5); # Handle the single loose matching special case, in which two names # differ only by a single medial hyphen. If the original had a # hyphen (or more) in the right place, then it is that one. $result = $HANGUL_JUNGSEONG_O_E_utf8 if $loose && $result eq $HANGUL_JUNGSEONG_OE_utf8 && $name =~ m/O \s* - [-\s]* E/ix; # Note that this wouldn't work if there were a 2nd # OE in the name } else { # Here, is a named sequence. Need to go looking for the beginning, # which is just after the \n from the previous entry in the table. # The +1 skips past that newline, or, if the rindex() fails, to put # us to an offset of zero. my $charstart = rindex($txt, "\n", $off[0] - 7) + 1; $result = pack("W*", map { CORE::hex } split " ", substr($txt, $charstart, $off[0] - $charstart - 1)); } } # Cache the input so as to not have to search the large table # again, but only if it came from the one search that we cache. # (Haven't bothered with the pain of sorting out scoping issues for the # scripts searches.) $cache_ref->{$name} = $result if defined $cache_ref; } } # Here, have the result character. If the return is to be an ord, must be # any single character. if ($wants_ord) { return ord($result) if length $result == 1; } elsif (! utf8::is_utf8($result)) { # Here isn't UTF-8. That's OK if it is all ASCII, or we are being called # at compile time where we know we can guarantee that Unicode rules are # correctly imposed on the result, or under 'bytes' where we don't want # those rules. But otherwise we have to make it UTF8 to guarantee Unicode # rules on the returned string. return $result if ! $runtime || (caller $runtime)[8] & $bytes::hint_bits || $result !~ /[[:^ascii:]]/; utf8::upgrade($result); return $result; } else { # Here, wants string output. If utf8 is acceptable, just return what # we've got; otherwise attempt to convert it to non-utf8 and return that. my $in_bytes = ! $regex_loose # \p{name=} doesn't currently care if # in bytes or not && (($runtime) ? (caller $runtime)[8] & $bytes::hint_bits : $^H & $bytes::hint_bits); return $result if (! $in_bytes || utf8::downgrade($result, 1)) # The 1 arg # means don't die on failure } # Here, there is an error: either there are too many characters, or the # result string needs to be non-utf8, and at least one character requires # utf8. Prefer any official name over the input one for the error message. if (@off) { $name = substr($txt, $off[0], $off[1] - $off[0]) if @off; } else { $name = (defined $save_input) ? $save_input : $_[0]; } if ($wants_ord) { # Only way to get here in this case is if result too long. Message # assumes that our only caller that requires single char result is # vianame. carp "charnames::vianame() doesn't handle named sequences ($name). Use charnames::string_vianame() instead"; return; } # Only other possible failure here is from use bytes. if ($runtime) { carp not_legal_use_bytes_msg($name, $result); return; } else { croak not_legal_use_bytes_msg($name, $result); } } # lookup_name sub charnames { # For \N{...}. Looks up the character name and returns the string # representation of it. # The first 0 arg means wants a string returned; the second that we are in # compile time return lookup_name($_[0], 0, 0); } sub _loose_regcomp_lookup { # For use only by regcomp.c to compile \p{name=...} # khw thinks it best to not do :short matching, and only official names. # But that is only a guess, and if demand warrants, could be changed return lookup_name($_[0], 0, 1, 1 # Always use :loose matching ); } sub _get_names_info { # For use only by regcomp.c to compile \p{name=/.../} populate_txt() unless $txt; return ( \$txt, \@charnames::code_points_ending_in_code_point ); } sub import { shift; ## ignore class name if (not @_) { carp("'use charnames' needs explicit imports list"); } $^H{charnames} = \&charnames ; $^H{charnames_ord_aliases} = {}; $^H{charnames_name_aliases} = {}; $^H{charnames_inverse_ords} = {}; # New fields must be added to %dummy_H, and the code in lookup_name() # that copies fields from the runtime structure ## ## fill %h keys with our @_ args. ## my ($promote, %h, @args) = (0); while (my $arg = shift) { if ($arg eq ":alias") { @_ or croak ":alias needs an argument in charnames"; my $alias = shift; if (ref $alias) { ref $alias eq "HASH" or croak "Only HASH reference supported as argument to :alias"; alias ($alias); $promote = 1; next; } if ($alias =~ m{:(\w+)$}) { $1 eq "full" || $1 eq "loose" || $1 eq "short" and croak ":alias cannot use existing pragma :$1 (reversed order?)"; alias_file ($1) and $promote = 1; next; } alias_file ($alias) and $promote = 1; next; } if (substr($arg, 0, 1) eq ':' and ! ($arg eq ":full" || $arg eq ":short" || $arg eq ":loose")) { warn "unsupported special '$arg' in charnames"; next; } push @args, $arg; } @args == 0 && $promote and @args = (":full"); @h{@args} = (1) x @args; # Don't leave these undefined as are tested for in lookup_names $^H{charnames_full} = delete $h{':full'} || 0; $^H{charnames_loose} = delete $h{':loose'} || 0; $^H{charnames_short} = delete $h{':short'} || 0; my @scripts = map { uc quotemeta } keys %h; ## ## If utf8? warnings are enabled, and some scripts were given, ## see if at least we can find one letter from each script. ## if (warnings::enabled('utf8') && @scripts) { populate_txt() unless $txt; for my $script (@scripts) { if (not $txt =~ m/^$script (?:CAPITAL |SMALL )?LETTER /m) { warnings::warn('utf8', "No such script: '$script'"); $script = quotemeta $script; # Escape it, for use in the re. } } } # %^H gets stringified, so serialize it ourselves so can extract the # real data back later. $^H{charnames_stringified_ords} = join ",", %{$^H{charnames_ord_aliases}}; $^H{charnames_stringified_names} = join ",", %{$^H{charnames_name_aliases}}; $^H{charnames_stringified_inverse_ords} = join ",", %{$^H{charnames_inverse_ords}}; # Modify the input script names for loose name matching if that is also # specified, similar to the way the base character name is prepared. They # don't (currently, and hopefully never will) have dashes. These go into a # regex, and have already been uppercased and quotemeta'd. Squeeze out all # input underscores, blanks, and dashes. Then convert so will match a blank # between any characters. if ($^H{charnames_loose}) { for (my $i = 0; $i < @scripts; $i++) { $scripts[$i] =~ s/[_ -]//g; $scripts[$i] =~ s/ ( [^\\] ) (?= . ) /$1\\ ?/gx; } } $^H{charnames_scripts} = join "|", @scripts; # Stringifiy them as a trie } # import # Cache of already looked-up values. This is set to only contain # official values, and user aliases can't override them, so scoping is # not an issue. my %viacode; my $no_name_code_points_re = join "|", map { sprintf("%05X", utf8::unicode_to_native($_)) } 0x80, 0x81, 0x84, 0x99; $no_name_code_points_re = qr/$no_name_code_points_re/; sub viacode { # Returns the name of the code point argument if (@_ != 1) { carp "charnames::viacode() expects one argument"; return; } my $arg = shift; # This is derived from Unicode::UCD, where it is nearly the same as the # function _getcode(), but here it makes sure that even a hex argument # has the proper number of leading zeros, which is critical in # matching against $txt below # Must check if decimal first; see comments at that definition my $hex; if ($arg =~ $decimal_qr) { $hex = sprintf "%05X", $arg; } elsif ($arg =~ $hex_qr) { $hex = CORE::hex $1; $hex = utf8::unicode_to_native($hex) if $arg =~ /^[Uu]\+/; # Below is the line that differs from the _getcode() source $hex = sprintf "%05X", $hex; } else { carp("unexpected arg \"$arg\" to charnames::viacode()"); return; } return $viacode{$hex} if exists $viacode{$hex}; my $return; # If the code point is above the max in the table, there's no point # looking through it. Checking the length first is slightly faster if (length($hex) <= 5 || CORE::hex($hex) <= 0x10FFFF) { populate_txt() unless $txt; # See if the name is algorithmically determinable. my $algorithmic = charnames::code_point_to_name_special(CORE::hex $hex); if (defined $algorithmic) { $viacode{$hex} = $algorithmic; return $algorithmic; } # Return the official name, if exists. It's unclear to me (khw) at # this juncture if it is better to return a user-defined override, so # leaving it as is for now. if ($txt =~ m/^$hex\n/m) { # The name starts with the next character and goes up to the # next new-line. Using capturing parentheses above instead of # @+ more than doubles the execution time in Perl 5.13 $return = substr($txt, $+[0], index($txt, "\n", $+[0]) - $+[0]); # If not one of these 4 code points, return what we've found. if ($hex !~ / ^ $no_name_code_points_re $ /x) { $viacode{$hex} = $return; return $return; } # For backwards compatibility, we don't return the official name of # the 4 code points if there are user-defined aliases for them -- so # continue looking. } } # See if there is a user name for it, before giving up completely. # First get the scoped aliases, give up if have none. my $H_ref = (caller(1))[10]; return if ! defined $return && (! defined $H_ref || ! exists $H_ref->{charnames_stringified_inverse_ords}); my %code_point_aliases; if (defined $H_ref->{charnames_stringified_inverse_ords}) { %code_point_aliases = split ',', $H_ref->{charnames_stringified_inverse_ords}; return $code_point_aliases{$hex} if exists $code_point_aliases{$hex}; } # Here there is no user-defined alias, return any official one. return $return if defined $return; if (CORE::hex($hex) > 0x10FFFF && warnings::enabled('non_unicode')) { carp "Unicode characters only allocated up to U+10FFFF (you asked for U+$hex)"; } return; } # viacode 1; # ex: set ts=8 sts=2 sw=2 et: PK ! 5�?�� � 5.34.0/vmsish.pmnu �[��� package vmsish; our $VERSION = '1.04'; =head1 NAME vmsish - Perl pragma to control VMS-specific language features =head1 SYNOPSIS use vmsish; use vmsish 'status'; # or '$?' use vmsish 'exit'; use vmsish 'time'; use vmsish 'hushed'; no vmsish 'hushed'; vmsish::hushed($hush); use vmsish; no vmsish 'time'; =head1 DESCRIPTION If no import list is supplied, all possible VMS-specific features are assumed. Currently, there are four VMS-specific features available: 'status' (a.k.a '$?'), 'exit', 'time' and 'hushed'. If you're not running VMS, this module does nothing. =over 6 =item C<vmsish status> This makes C<$?> and C<system> return the native VMS exit status instead of emulating the POSIX exit status. =item C<vmsish exit> This makes C<exit 1> produce a successful exit (with status SS$_NORMAL), instead of emulating UNIX exit(), which considers C<exit 1> to indicate an error. As with the CRTL's exit() function, C<exit 0> is also mapped to an exit status of SS$_NORMAL, and any other argument to exit() is used directly as Perl's exit status. =item C<vmsish time> This makes all times relative to the local time zone, instead of the default of Universal Time (a.k.a Greenwich Mean Time, or GMT). =item C<vmsish hushed> This suppresses printing of VMS status messages to SYS$OUTPUT and SYS$ERROR if Perl terminates with an error status, and allows programs that are expecting "unix-style" Perl to avoid having to parse VMS error messages. It does not suppress any messages from Perl itself, just the messages generated by DCL after Perl exits. The DCL symbol $STATUS will still have the termination status, but with a high-order bit set: EXAMPLE: $ perl -e"exit 44;" Non-hushed error exit %SYSTEM-F-ABORT, abort DCL message $ show sym $STATUS $STATUS == "%X0000002C" $ perl -e"use vmsish qw(hushed); exit 44;" Hushed error exit $ show sym $STATUS $STATUS == "%X1000002C" The 'hushed' flag has a global scope during compilation: the exit() or die() commands that are compiled after 'vmsish hushed' will be hushed when they are executed. Doing a "no vmsish 'hushed'" turns off the hushed flag. The status of the hushed flag also affects output of VMS error messages from compilation errors. Again, you still get the Perl error message (and the code in $STATUS) EXAMPLE: use vmsish 'hushed'; # turn on hushed flag use Carp; # Carp compiled hushed exit 44; # will be hushed croak('I die'); # will be hushed no vmsish 'hushed'; # turn off hushed flag exit 44; # will not be hushed croak('I die2'): # WILL be hushed, croak was compiled hushed You can also control the 'hushed' flag at run-time, using the built-in routine vmsish::hushed(). Without argument, it returns the hushed status. Since vmsish::hushed is built-in, you do not need to "use vmsish" to call it. EXAMPLE: if ($quiet_exit) { vmsish::hushed(1); } print "Sssshhhh...I'm hushed...\n" if vmsish::hushed(); exit 44; Note that an exit() or die() that is compiled 'hushed' because of "use vmsish" is not un-hushed by calling vmsish::hushed(0) at runtime. The messages from error exits from inside the Perl core are generally more serious, and are not suppressed. =back See L<perlmod/Perl Modules>. =cut my $IsVMS = $^O eq 'VMS'; sub bits { my $bits = 0; my $sememe; foreach $sememe (@_) { # Those hints are defined in vms/vmsish.h : # HINT_M_VMSISH_STATUS and HINT_M_VMSISH_TIME $bits |= 0x40000000, next if $sememe eq 'status' || $sememe eq '$?'; $bits |= 0x80000000, next if $sememe eq 'time'; } $bits; } sub import { return unless $IsVMS; shift; $^H |= bits(@_ ? @_ : qw(status time)); my $sememe; foreach $sememe (@_ ? @_ : qw(exit hushed)) { $^H{'vmsish_exit'} = 1 if $sememe eq 'exit'; vmsish::hushed(1) if $sememe eq 'hushed'; } } sub unimport { return unless $IsVMS; shift; $^H &= ~ bits(@_ ? @_ : qw(status time)); my $sememe; foreach $sememe (@_ ? @_ : qw(exit hushed)) { $^H{'vmsish_exit'} = 0 if $sememe eq 'exit'; vmsish::hushed(0) if $sememe eq 'hushed'; } } 1; PK ! Sej2y 2y 5.34.0/Benchmark.pmnu �[��� package Benchmark; use strict; =head1 NAME Benchmark - benchmark running times of Perl code =head1 SYNOPSIS use Benchmark qw(:all) ; timethis ($count, "code"); # Use Perl code in strings... timethese($count, { 'Name1' => '...code1...', 'Name2' => '...code2...', }); # ... or use subroutine references. timethese($count, { 'Name1' => sub { ...code1... }, 'Name2' => sub { ...code2... }, }); # cmpthese can be used both ways as well cmpthese($count, { 'Name1' => '...code1...', 'Name2' => '...code2...', }); cmpthese($count, { 'Name1' => sub { ...code1... }, 'Name2' => sub { ...code2... }, }); # ...or in two stages $results = timethese($count, { 'Name1' => sub { ...code1... }, 'Name2' => sub { ...code2... }, }, 'none' ); cmpthese( $results ) ; $t = timeit($count, '...other code...') print "$count loops of other code took:",timestr($t),"\n"; $t = countit($time, '...other code...') $count = $t->iters ; print "$count loops of other code took:",timestr($t),"\n"; # enable hires wallclock timing if possible use Benchmark ':hireswallclock'; =head1 DESCRIPTION The Benchmark module encapsulates a number of routines to help you figure out how long it takes to execute some code. timethis - run a chunk of code several times timethese - run several chunks of code several times cmpthese - print results of timethese as a comparison chart timeit - run a chunk of code and see how long it goes countit - see how many times a chunk of code runs in a given time =head2 Methods =over 10 =item new Returns the current time. Example: use Benchmark; $t0 = Benchmark->new; # ... your code here ... $t1 = Benchmark->new; $td = timediff($t1, $t0); print "the code took:",timestr($td),"\n"; =item debug Enables or disable debugging by setting the C<$Benchmark::Debug> flag: Benchmark->debug(1); $t = timeit(10, ' 5 ** $Global '); Benchmark->debug(0); =item iters Returns the number of iterations. =back =head2 Standard Exports The following routines will be exported into your namespace if you use the Benchmark module: =over 10 =item timeit(COUNT, CODE) Arguments: COUNT is the number of times to run the loop, and CODE is the code to run. CODE may be either a code reference or a string to be eval'd; either way it will be run in the caller's package. Returns: a Benchmark object. =item timethis ( COUNT, CODE, [ TITLE, [ STYLE ]] ) Time COUNT iterations of CODE. CODE may be a string to eval or a code reference; either way the CODE will run in the caller's package. Results will be printed to STDOUT as TITLE followed by the times. TITLE defaults to "timethis COUNT" if none is provided. STYLE determines the format of the output, as described for timestr() below. The COUNT can be zero or negative: this means the I<minimum number of CPU seconds> to run. A zero signifies the default of 3 seconds. For example to run at least for 10 seconds: timethis(-10, $code) or to run two pieces of code tests for at least 3 seconds: timethese(0, { test1 => '...', test2 => '...'}) CPU seconds is, in UNIX terms, the user time plus the system time of the process itself, as opposed to the real (wallclock) time and the time spent by the child processes. Less than 0.1 seconds is not accepted (-0.01 as the count, for example, will cause a fatal runtime exception). Note that the CPU seconds is the B<minimum> time: CPU scheduling and other operating system factors may complicate the attempt so that a little bit more time is spent. The benchmark output will, however, also tell the number of C<$code> runs/second, which should be a more interesting number than the actually spent seconds. Returns a Benchmark object. =item timethese ( COUNT, CODEHASHREF, [ STYLE ] ) The CODEHASHREF is a reference to a hash containing names as keys and either a string to eval or a code reference for each value. For each (KEY, VALUE) pair in the CODEHASHREF, this routine will call timethis(COUNT, VALUE, KEY, STYLE) The routines are called in string comparison order of KEY. The COUNT can be zero or negative, see timethis(). Returns a hash reference of Benchmark objects, keyed by name. =item timediff ( T1, T2 ) Returns the difference between two Benchmark times as a Benchmark object suitable for passing to timestr(). =item timestr ( TIMEDIFF, [ STYLE, [ FORMAT ] ] ) Returns a string that formats the times in the TIMEDIFF object in the requested STYLE. TIMEDIFF is expected to be a Benchmark object similar to that returned by timediff(). STYLE can be any of 'all', 'none', 'noc', 'nop' or 'auto'. 'all' shows each of the 5 times available ('wallclock' time, user time, system time, user time of children, and system time of children). 'noc' shows all except the two children times. 'nop' shows only wallclock and the two children times. 'auto' (the default) will act as 'all' unless the children times are both zero, in which case it acts as 'noc'. 'none' prevents output. FORMAT is the L<printf(3)>-style format specifier (without the leading '%') to use to print the times. It defaults to '5.2f'. =back =head2 Optional Exports The following routines will be exported into your namespace if you specifically ask that they be imported: =over 10 =item clearcache ( COUNT ) Clear the cached time for COUNT rounds of the null loop. =item clearallcache ( ) Clear all cached times. =item cmpthese ( COUNT, CODEHASHREF, [ STYLE ] ) =item cmpthese ( RESULTSHASHREF, [ STYLE ] ) Optionally calls timethese(), then outputs comparison chart. This: cmpthese( -1, { a => "++\$i", b => "\$i *= 2" } ) ; outputs a chart like: Rate b a b 2831802/s -- -61% a 7208959/s 155% -- This chart is sorted from slowest to fastest, and shows the percent speed difference between each pair of tests. C<cmpthese> can also be passed the data structure that timethese() returns: $results = timethese( -1, { a => "++\$i", b => "\$i *= 2" } ) ; cmpthese( $results ); in case you want to see both sets of results. If the first argument is an unblessed hash reference, that is RESULTSHASHREF; otherwise that is COUNT. Returns a reference to an ARRAY of rows, each row is an ARRAY of cells from the above chart, including labels. This: my $rows = cmpthese( -1, { a => '++$i', b => '$i *= 2' }, "none" ); returns a data structure like: [ [ '', 'Rate', 'b', 'a' ], [ 'b', '2885232/s', '--', '-59%' ], [ 'a', '7099126/s', '146%', '--' ], ] B<NOTE>: This result value differs from previous versions, which returned the C<timethese()> result structure. If you want that, just use the two statement C<timethese>...C<cmpthese> idiom shown above. Incidentally, note the variance in the result values between the two examples; this is typical of benchmarking. If this were a real benchmark, you would probably want to run a lot more iterations. =item countit(TIME, CODE) Arguments: TIME is the minimum length of time to run CODE for, and CODE is the code to run. CODE may be either a code reference or a string to be eval'd; either way it will be run in the caller's package. TIME is I<not> negative. countit() will run the loop many times to calculate the speed of CODE before running it for TIME. The actual time run for will usually be greater than TIME due to system clock resolution, so it's best to look at the number of iterations divided by the times that you are concerned with, not just the iterations. Returns: a Benchmark object. =item disablecache ( ) Disable caching of timings for the null loop. This will force Benchmark to recalculate these timings for each new piece of code timed. =item enablecache ( ) Enable caching of timings for the null loop. The time taken for COUNT rounds of the null loop will be calculated only once for each different COUNT used. =item timesum ( T1, T2 ) Returns the sum of two Benchmark times as a Benchmark object suitable for passing to timestr(). =back =head2 :hireswallclock If the Time::HiRes module has been installed, you can specify the special tag C<:hireswallclock> for Benchmark (if Time::HiRes is not available, the tag will be silently ignored). This tag will cause the wallclock time to be measured in microseconds, instead of integer seconds. Note though that the speed computations are still conducted in CPU time, not wallclock time. =head1 Benchmark Object Many of the functions in this module return a Benchmark object, or in the case of C<timethese()>, a reference to a hash, the values of which are Benchmark objects. This is useful if you want to store or further process results from Benchmark functions. Internally the Benchmark object holds timing values, described in L</"NOTES"> below. The following methods can be used to access them: =over 4 =item cpu_p Total CPU (User + System) of the main (parent) process. =item cpu_c Total CPU (User + System) of any children processes. =item cpu_a Total CPU of parent and any children processes. =item real Real elapsed time "wallclock seconds". =item iters Number of iterations run. =back The following illustrates use of the Benchmark object: $result = timethis(100000, sub { ... }); print "total CPU = ", $result->cpu_a, "\n"; =head1 NOTES The data is stored as a list of values from the time and times functions: ($real, $user, $system, $children_user, $children_system, $iters) in seconds for the whole loop (not divided by the number of rounds). The timing is done using time(3) and times(3). Code is executed in the caller's package. The time of the null loop (a loop with the same number of rounds but empty loop body) is subtracted from the time of the real loop. The null loop times can be cached, the key being the number of rounds. The caching can be controlled using calls like these: clearcache($key); clearallcache(); disablecache(); enablecache(); Caching is off by default, as it can (usually slightly) decrease accuracy and does not usually noticeably affect runtimes. =head1 EXAMPLES For example, use Benchmark qw( cmpthese ) ; $x = 3; cmpthese( -5, { a => sub{$x*$x}, b => sub{$x**2}, } ); outputs something like this: Benchmark: running a, b, each for at least 5 CPU seconds... Rate b a b 1559428/s -- -62% a 4152037/s 166% -- while use Benchmark qw( timethese cmpthese ) ; $x = 3; $r = timethese( -5, { a => sub{$x*$x}, b => sub{$x**2}, } ); cmpthese $r; outputs something like this: Benchmark: running a, b, each for at least 5 CPU seconds... a: 10 wallclock secs ( 5.14 usr + 0.13 sys = 5.27 CPU) @ 3835055.60/s (n=20210743) b: 5 wallclock secs ( 5.41 usr + 0.00 sys = 5.41 CPU) @ 1574944.92/s (n=8520452) Rate b a b 1574945/s -- -59% a 3835056/s 144% -- =head1 INHERITANCE Benchmark inherits from no other class, except of course from Exporter. =head1 CAVEATS Comparing eval'd strings with code references will give you inaccurate results: a code reference will show a slightly slower execution time than the equivalent eval'd string. The real time timing is done using time(2) and the granularity is therefore only one second. Short tests may produce negative figures because perl can appear to take longer to execute the empty loop than a short test; try: timethis(100,'1'); The system time of the null loop might be slightly more than the system time of the loop with the actual code and therefore the difference might end up being E<lt> 0. =head1 SEE ALSO L<Devel::NYTProf> - a Perl code profiler =head1 AUTHORS Jarkko Hietaniemi <F<jhi@iki.fi>>, Tim Bunce <F<Tim.Bunce@ig.co.uk>> =head1 MODIFICATION HISTORY September 8th, 1994; by Tim Bunce. March 28th, 1997; by Hugo van der Sanden: added support for code references and the already documented 'debug' method; revamped documentation. April 04-07th, 1997: by Jarkko Hietaniemi, added the run-for-some-time functionality. September, 1999; by Barrie Slaymaker: math fixes and accuracy and efficiency tweaks. Added cmpthese(). A result is now returned from timethese(). Exposed countit() (was runfor()). December, 2001; by Nicholas Clark: make timestr() recognise the style 'none' and return an empty string. If cmpthese is calling timethese, make it pass the style in. (so that 'none' will suppress output). Make sub new dump its debugging output to STDERR, to be consistent with everything else. All bugs found while writing a regression test. September, 2002; by Jarkko Hietaniemi: add ':hireswallclock' special tag. February, 2004; by Chia-liang Kao: make cmpthese and timestr use time statistics for children instead of parent when the style is 'nop'. November, 2007; by Christophe Grosjean: make cmpthese and timestr compute time consistently with style argument, default is 'all' not 'noc' any more. =cut # evaluate something in a clean lexical environment sub _doeval { no strict; eval shift } # # put any lexicals at file scope AFTER here # use Carp; use Exporter; our(@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION); @ISA=qw(Exporter); @EXPORT=qw(timeit timethis timethese timediff timestr); @EXPORT_OK=qw(timesum cmpthese countit clearcache clearallcache disablecache enablecache); %EXPORT_TAGS=( all => [ @EXPORT, @EXPORT_OK ] ) ; $VERSION = 1.23; # --- ':hireswallclock' special handling my $hirestime; sub mytime () { time } init(); sub BEGIN { if (eval 'require Time::HiRes') { import Time::HiRes qw(time); $hirestime = \&Time::HiRes::time; } } sub import { my $class = shift; if (grep { $_ eq ":hireswallclock" } @_) { @_ = grep { $_ ne ":hireswallclock" } @_; local $^W=0; *mytime = $hirestime if defined $hirestime; } Benchmark->export_to_level(1, $class, @_); } our($Debug, $Min_Count, $Min_CPU, $Default_Format, $Default_Style, %_Usage, %Cache, $Do_Cache); sub init { $Debug = 0; $Min_Count = 4; $Min_CPU = 0.4; $Default_Format = '5.2f'; $Default_Style = 'auto'; # The cache can cause a slight loss of sys time accuracy. If a # user does many tests (>10) with *very* large counts (>10000) # or works on a very slow machine the cache may be useful. disablecache(); clearallcache(); } sub debug { $Debug = ($_[1] != 0); } sub usage { my $calling_sub = (caller(1))[3]; $calling_sub =~ s/^Benchmark:://; return $_Usage{$calling_sub} || ''; } # The cache needs two branches: 's' for strings and 'c' for code. The # empty loop is different in these two cases. $_Usage{clearcache} = <<'USAGE'; usage: clearcache($count); USAGE sub clearcache { die usage unless @_ == 1; delete $Cache{"$_[0]c"}; delete $Cache{"$_[0]s"}; } $_Usage{clearallcache} = <<'USAGE'; usage: clearallcache(); USAGE sub clearallcache { die usage if @_; %Cache = (); } $_Usage{enablecache} = <<'USAGE'; usage: enablecache(); USAGE sub enablecache { die usage if @_; $Do_Cache = 1; } $_Usage{disablecache} = <<'USAGE'; usage: disablecache(); USAGE sub disablecache { die usage if @_; $Do_Cache = 0; } # --- Functions to process the 'time' data type sub new { my @t = (mytime, times, @_ == 2 ? $_[1] : 0); print STDERR "new=@t\n" if $Debug; bless \@t; } sub cpu_p { my($r,$pu,$ps,$cu,$cs) = @{$_[0]}; $pu+$ps ; } sub cpu_c { my($r,$pu,$ps,$cu,$cs) = @{$_[0]}; $cu+$cs ; } sub cpu_a { my($r,$pu,$ps,$cu,$cs) = @{$_[0]}; $pu+$ps+$cu+$cs ; } sub real { my($r,$pu,$ps,$cu,$cs) = @{$_[0]}; $r ; } sub iters { $_[0]->[5] ; } # return the sum of various times: which ones depending on $style sub elapsed { my ($self, $style) = @_; $style = "" unless defined $style; return $self->cpu_c if $style eq 'nop'; return $self->cpu_p if $style eq 'noc'; return $self->cpu_a; } $_Usage{timediff} = <<'USAGE'; usage: $result_diff = timediff($result1, $result2); USAGE sub timediff { my($a, $b) = @_; die usage unless ref $a and ref $b; my @r; for (my $i=0; $i < @$a; ++$i) { push(@r, $a->[$i] - $b->[$i]); } #die "Bad timediff(): ($r[1] + $r[2]) <= 0 (@$a[1,2]|@$b[1,2])\n" # if ($r[1] + $r[2]) < 0; bless \@r; } $_Usage{timesum} = <<'USAGE'; usage: $sum = timesum($result1, $result2); USAGE sub timesum { my($a, $b) = @_; die usage unless ref $a and ref $b; my @r; for (my $i=0; $i < @$a; ++$i) { push(@r, $a->[$i] + $b->[$i]); } bless \@r; } $_Usage{timestr} = <<'USAGE'; usage: $formatted_result = timestr($result1); USAGE sub timestr { my($tr, $style, $f) = @_; die usage unless ref $tr; my @t = @$tr; warn "bad time value (@t)" unless @t==6; my($r, $pu, $ps, $cu, $cs, $n) = @t; my($pt, $ct, $tt) = ($tr->cpu_p, $tr->cpu_c, $tr->cpu_a); $f = $Default_Format unless defined $f; # format a time in the required style, other formats may be added here $style ||= $Default_Style; return '' if $style eq 'none'; $style = ($ct>0) ? 'all' : 'noc' if $style eq 'auto'; my $s = "@t $style"; # default for unknown style my $w = $hirestime ? "%2g" : "%2d"; $s = sprintf("$w wallclock secs (%$f usr %$f sys + %$f cusr %$f csys = %$f CPU)", $r,$pu,$ps,$cu,$cs,$tt) if $style eq 'all'; $s = sprintf("$w wallclock secs (%$f usr + %$f sys = %$f CPU)", $r,$pu,$ps,$pt) if $style eq 'noc'; $s = sprintf("$w wallclock secs (%$f cusr + %$f csys = %$f CPU)", $r,$cu,$cs,$ct) if $style eq 'nop'; my $elapsed = $tr->elapsed($style); $s .= sprintf(" @ %$f/s (n=$n)",$n/($elapsed)) if $n && $elapsed; $s; } sub timedebug { my($msg, $t) = @_; print STDERR "$msg",timestr($t),"\n" if $Debug; } # --- Functions implementing low-level support for timing loops $_Usage{runloop} = <<'USAGE'; usage: runloop($number, [$string | $coderef]) USAGE sub runloop { my($n, $c) = @_; $n+=0; # force numeric now, so garbage won't creep into the eval croak "negative loopcount $n" if $n<0; confess usage unless defined $c; my($t0, $t1, $td); # before, after, difference # find package of caller so we can execute code there my($curpack) = caller(0); my($i, $pack)= 0; while (($pack) = caller(++$i)) { last if $pack ne $curpack; } my ($subcode, $subref); if (ref $c eq 'CODE') { $subcode = "sub { for (1 .. $n) { local \$_; package $pack; &\$c; } }"; $subref = eval $subcode; } else { $subcode = "sub { for (1 .. $n) { local \$_; package $pack; $c;} }"; $subref = _doeval($subcode); } croak "runloop unable to compile '$c': $@\ncode: $subcode\n" if $@; print STDERR "runloop $n '$subcode'\n" if $Debug; # Wait for the user timer to tick. This makes the error range more like # -0.01, +0. If we don't wait, then it's more like -0.01, +0.01. This # may not seem important, but it significantly reduces the chances of # getting a too low initial $n in the initial, 'find the minimum' loop # in &countit. This, in turn, can reduce the number of calls to # &runloop a lot, and thus reduce additive errors. # # Note that its possible for the act of reading the system clock to # burn lots of system CPU while we burn very little user clock in the # busy loop, which can cause the loop to run for a very long wall time. # So gradually ramp up the duration of the loop. See RT #122003 # my $tbase = Benchmark->new(0)->[1]; my $limit = 1; while ( ( $t0 = Benchmark->new(0) )->[1] == $tbase ) { for (my $i=0; $i < $limit; $i++) { my $x = $i / 1.5 } # burn user CPU $limit *= 1.1; } $subref->(); $t1 = Benchmark->new($n); $td = &timediff($t1, $t0); timedebug("runloop:",$td); $td; } $_Usage{timeit} = <<'USAGE'; usage: $result = timeit($count, 'code' ); or $result = timeit($count, sub { code } ); USAGE sub timeit { my($n, $code) = @_; my($wn, $wc, $wd); die usage unless defined $code and (!ref $code or ref $code eq 'CODE'); printf STDERR "timeit $n $code\n" if $Debug; my $cache_key = $n . ( ref( $code ) ? 'c' : 's' ); if ($Do_Cache && exists $Cache{$cache_key} ) { $wn = $Cache{$cache_key}; } else { $wn = &runloop($n, ref( $code ) ? sub { } : '' ); # Can't let our baseline have any iterations, or they get subtracted # out of the result. $wn->[5] = 0; $Cache{$cache_key} = $wn; } $wc = &runloop($n, $code); $wd = timediff($wc, $wn); timedebug("timeit: ",$wc); timedebug(" - ",$wn); timedebug(" = ",$wd); $wd; } my $default_for = 3; my $min_for = 0.1; $_Usage{countit} = <<'USAGE'; usage: $result = countit($time, 'code' ); or $result = countit($time, sub { code } ); USAGE sub countit { my ( $tmax, $code ) = @_; die usage unless @_; if ( not defined $tmax or $tmax == 0 ) { $tmax = $default_for; } elsif ( $tmax < 0 ) { $tmax = -$tmax; } die "countit($tmax, ...): timelimit cannot be less than $min_for.\n" if $tmax < $min_for; my ($n, $tc); # First find the minimum $n that gives a significant timing. my $zeros=0; for ($n = 1; ; $n *= 2 ) { my $t0 = Benchmark->new(0); my $td = timeit($n, $code); my $t1 = Benchmark->new(0); $tc = $td->[1] + $td->[2]; if ( $tc <= 0 and $n > 1024 ) { my $d = timediff($t1, $t0); # note that $d is the total CPU time taken to call timeit(), # while $tc is the difference in CPU secs between the empty run # and the code run. If the code is trivial, its possible # for $d to get large while $tc is still zero (or slightly # negative). Bail out once timeit() starts taking more than a # few seconds without noticeable difference. if ($d->[1] + $d->[2] > 8 || ++$zeros > 16) { die "Timing is consistently zero in estimation loop, cannot benchmark. N=$n\n"; } } else { $zeros = 0; } last if $tc > 0.1; } my $nmin = $n; # Get $n high enough that we can guess the final $n with some accuracy. my $tpra = 0.1 * $tmax; # Target/time practice. while ( $tc < $tpra ) { # The 5% fudge is to keep us from iterating again all # that often (this speeds overall responsiveness when $tmax is big # and we guess a little low). This does not noticeably affect # accuracy since we're not counting these times. $n = int( $tpra * 1.05 * $n / $tc ); # Linear approximation. my $td = timeit($n, $code); my $new_tc = $td->[1] + $td->[2]; # Make sure we are making progress. $tc = $new_tc > 1.2 * $tc ? $new_tc : 1.2 * $tc; } # Now, do the 'for real' timing(s), repeating until we exceed # the max. my $ntot = 0; my $rtot = 0; my $utot = 0.0; my $stot = 0.0; my $cutot = 0.0; my $cstot = 0.0; my $ttot = 0.0; # The 5% fudge is because $n is often a few % low even for routines # with stable times and avoiding extra timeit()s is nice for # accuracy's sake. $n = int( $n * ( 1.05 * $tmax / $tc ) ); $zeros=0; while () { my $td = timeit($n, $code); $ntot += $n; $rtot += $td->[0]; $utot += $td->[1]; $stot += $td->[2]; $cutot += $td->[3]; $cstot += $td->[4]; $ttot = $utot + $stot; last if $ttot >= $tmax; if ( $ttot <= 0 ) { ++$zeros > 16 and die "Timing is consistently zero, cannot benchmark. N=$n\n"; } else { $zeros = 0; } $ttot = 0.01 if $ttot < 0.01; my $r = $tmax / $ttot - 1; # Linear approximation. $n = int( $r * $ntot ); $n = $nmin if $n < $nmin; } return bless [ $rtot, $utot, $stot, $cutot, $cstot, $ntot ]; } # --- Functions implementing high-level time-then-print utilities sub n_to_for { my $n = shift; return $n == 0 ? $default_for : $n < 0 ? -$n : undef; } $_Usage{timethis} = <<'USAGE'; usage: $result = timethis($time, 'code' ); or $result = timethis($time, sub { code } ); USAGE sub timethis{ my($n, $code, $title, $style) = @_; my($t, $forn); die usage unless defined $code and (!ref $code or ref $code eq 'CODE'); if ( $n > 0 ) { croak "non-integer loopcount $n, stopped" if int($n)<$n; $t = timeit($n, $code); $title = "timethis $n" unless defined $title; } else { my $fort = n_to_for( $n ); $t = countit( $fort, $code ); $title = "timethis for $fort" unless defined $title; $forn = $t->[-1]; } local $| = 1; $style = "" unless defined $style; printf("%10s: ", $title) unless $style eq 'none'; print timestr($t, $style, $Default_Format),"\n" unless $style eq 'none'; $n = $forn if defined $forn; if ($t->elapsed($style) < 0) { # due to clock granularity and variable CPU speed and load, # on quick code with a small number of loops, it's possible for # the empty loop to appear to take longer than the real loop # (e.g. 1 tick versus 0 ticks). This leads to a negative elapsed # time. In this case, floor it at zero, to stop bizarre results. print " (warning: too few iterations for a reliable count)\n"; $t->[$_] = 0 for 1..4; } # A conservative warning to spot very silly tests. # Don't assume that your benchmark is ok simply because # you don't get this warning! print " (warning: too few iterations for a reliable count)\n" if $n < $Min_Count || ($t->real < 1 && $n < 1000) || $t->cpu_a < $Min_CPU; $t; } $_Usage{timethese} = <<'USAGE'; usage: timethese($count, { Name1 => 'code1', ... }); or timethese($count, { Name1 => sub { code1 }, ... }); USAGE sub timethese{ my($n, $alt, $style) = @_; die usage unless ref $alt eq 'HASH'; my @names = sort keys %$alt; $style = "" unless defined $style; print "Benchmark: " unless $style eq 'none'; if ( $n > 0 ) { croak "non-integer loopcount $n, stopped" if int($n)<$n; print "timing $n iterations of" unless $style eq 'none'; } else { print "running" unless $style eq 'none'; } print " ", join(', ',@names) unless $style eq 'none'; unless ( $n > 0 ) { my $for = n_to_for( $n ); print ", each" if $n > 1 && $style ne 'none'; print " for at least $for CPU seconds" unless $style eq 'none'; } print "...\n" unless $style eq 'none'; # we could save the results in an array and produce a summary here # sum, min, max, avg etc etc my %results; foreach my $name (@names) { $results{$name} = timethis ($n, $alt -> {$name}, $name, $style); } return \%results; } $_Usage{cmpthese} = <<'USAGE'; usage: cmpthese($count, { Name1 => 'code1', ... }); or cmpthese($count, { Name1 => sub { code1 }, ... }); or cmpthese($result, $style); USAGE sub cmpthese{ my ($results, $style); # $count can be a blessed object. if ( ref $_[0] eq 'HASH' ) { ($results, $style) = @_; } else { my($count, $code) = @_[0,1]; $style = $_[2] if defined $_[2]; die usage unless ref $code eq 'HASH'; $results = timethese($count, $code, ($style || "none")); } $style = "" unless defined $style; # Flatten in to an array of arrays with the name as the first field my @vals = map{ [ $_, @{$results->{$_}} ] } keys %$results; for (@vals) { # recreate the pre-flattened Benchmark object my $tmp_bm = bless [ @{$_}[1..$#$_] ]; my $elapsed = $tmp_bm->elapsed($style); # The epsilon fudge here is to prevent div by 0. Since clock # resolutions are much larger, it's below the noise floor. my $rate = $_->[6]/(($elapsed)+0.000000000000001); $_->[7] = $rate; } # Sort by rate @vals = sort { $a->[7] <=> $b->[7] } @vals; # If more than half of the rates are greater than one... my $display_as_rate = @vals ? ($vals[$#vals>>1]->[7] > 1) : 0; my @rows; my @col_widths; my @top_row = ( '', $display_as_rate ? 'Rate' : 's/iter', map { $_->[0] } @vals ); push @rows, \@top_row; @col_widths = map { length( $_ ) } @top_row; # Build the data rows # We leave the last column in even though it never has any data. Perhaps # it should go away. Also, perhaps a style for a single column of # percentages might be nice. for my $row_val ( @vals ) { my @row; # Column 0 = test name push @row, $row_val->[0]; $col_widths[0] = length( $row_val->[0] ) if length( $row_val->[0] ) > $col_widths[0]; # Column 1 = performance my $row_rate = $row_val->[7]; # We assume that we'll never get a 0 rate. my $rate = $display_as_rate ? $row_rate : 1 / $row_rate; # Only give a few decimal places before switching to sci. notation, # since the results aren't usually that accurate anyway. my $format = $rate >= 100 ? "%0.0f" : $rate >= 10 ? "%0.1f" : $rate >= 1 ? "%0.2f" : $rate >= 0.1 ? "%0.3f" : "%0.2e"; $format .= "/s" if $display_as_rate; my $formatted_rate = sprintf( $format, $rate ); push @row, $formatted_rate; $col_widths[1] = length( $formatted_rate ) if length( $formatted_rate ) > $col_widths[1]; # Columns 2..N = performance ratios my $skip_rest = 0; for ( my $col_num = 0 ; $col_num < @vals ; ++$col_num ) { my $col_val = $vals[$col_num]; my $out; if ( $skip_rest ) { $out = ''; } elsif ( $col_val->[0] eq $row_val->[0] ) { $out = "--"; # $skip_rest = 1; } else { my $col_rate = $col_val->[7]; $out = sprintf( "%.0f%%", 100*$row_rate/$col_rate - 100 ); } push @row, $out; $col_widths[$col_num+2] = length( $out ) if length( $out ) > $col_widths[$col_num+2]; # A little weirdness to set the first column width properly $col_widths[$col_num+2] = length( $col_val->[0] ) if length( $col_val->[0] ) > $col_widths[$col_num+2]; } push @rows, \@row; } return \@rows if $style eq "none"; # Equalize column widths in the chart as much as possible without # exceeding 80 characters. This does not use or affect cols 0 or 1. my @sorted_width_refs = sort { $$a <=> $$b } map { \$_ } @col_widths[2..$#col_widths]; my $max_width = ${$sorted_width_refs[-1]}; my $total = @col_widths - 1 ; for ( @col_widths ) { $total += $_ } STRETCHER: while ( $total < 80 ) { my $min_width = ${$sorted_width_refs[0]}; last if $min_width == $max_width; for ( @sorted_width_refs ) { last if $$_ > $min_width; ++$$_; ++$total; last STRETCHER if $total >= 80; } } # Dump the output my $format = join( ' ', map { "%${_}s" } @col_widths ) . "\n"; substr( $format, 1, 0 ) = '-'; for ( @rows ) { printf $format, @$_; } return \@rows ; } 1; PK ! ����+ �+ 5.34.0/Digest.pmnu �[��� package Digest; use strict; use warnings; our $VERSION = "1.19"; our %MMAP = ( "SHA-1" => [ [ "Digest::SHA", 1 ], "Digest::SHA1", [ "Digest::SHA2", 1 ] ], "SHA-224" => [ [ "Digest::SHA", 224 ] ], "SHA-256" => [ [ "Digest::SHA", 256 ], [ "Digest::SHA2", 256 ] ], "SHA-384" => [ [ "Digest::SHA", 384 ], [ "Digest::SHA2", 384 ] ], "SHA-512" => [ [ "Digest::SHA", 512 ], [ "Digest::SHA2", 512 ] ], "SHA3-224" => [ [ "Digest::SHA3", 224 ] ], "SHA3-256" => [ [ "Digest::SHA3", 256 ] ], "SHA3-384" => [ [ "Digest::SHA3", 384 ] ], "SHA3-512" => [ [ "Digest::SHA3", 512 ] ], "HMAC-MD5" => "Digest::HMAC_MD5", "HMAC-SHA-1" => "Digest::HMAC_SHA1", "CRC-16" => [ [ "Digest::CRC", type => "crc16" ] ], "CRC-32" => [ [ "Digest::CRC", type => "crc32" ] ], "CRC-CCITT" => [ [ "Digest::CRC", type => "crcccitt" ] ], "RIPEMD-160" => "Crypt::RIPEMD160", ); sub new { shift; # class ignored my $algorithm = shift; my $impl = $MMAP{$algorithm} || do { $algorithm =~ s/\W+//g; "Digest::$algorithm"; }; $impl = [$impl] unless ref($impl); local $@; # don't clobber it for our caller my $err; for (@$impl) { my $class = $_; my @args; ( $class, @args ) = @$class if ref($class); no strict 'refs'; unless ( exists ${"$class\::"}{"VERSION"} ) { my $pm_file = $class . ".pm"; $pm_file =~ s{::}{/}g; eval { local @INC = @INC; pop @INC if $INC[-1] eq '.'; require $pm_file }; if ($@) { $err ||= $@; next; } } return $class->new( @args, @_ ); } die $err; } our $AUTOLOAD; sub AUTOLOAD { my $class = shift; my $algorithm = substr( $AUTOLOAD, rindex( $AUTOLOAD, '::' ) + 2 ); $class->new( $algorithm, @_ ); } 1; __END__ =head1 NAME Digest - Modules that calculate message digests =head1 SYNOPSIS $md5 = Digest->new("MD5"); $sha1 = Digest->new("SHA-1"); $sha256 = Digest->new("SHA-256"); $sha384 = Digest->new("SHA-384"); $sha512 = Digest->new("SHA-512"); $hmac = Digest->HMAC_MD5($key); =head1 DESCRIPTION The C<Digest::> modules calculate digests, also called "fingerprints" or "hashes", of some data, called a message. The digest is (usually) some small/fixed size string. The actual size of the digest depend of the algorithm used. The message is simply a sequence of arbitrary bytes or bits. An important property of the digest algorithms is that the digest is I<likely> to change if the message change in some way. Another property is that digest functions are one-way functions, that is it should be I<hard> to find a message that correspond to some given digest. Algorithms differ in how "likely" and how "hard", as well as how efficient they are to compute. Note that the properties of the algorithms change over time, as the algorithms are analyzed and machines grow faster. If your application for instance depends on it being "impossible" to generate the same digest for a different message it is wise to make it easy to plug in stronger algorithms as the one used grow weaker. Using the interface documented here should make it easy to change algorithms later. All C<Digest::> modules provide the same programming interface. A functional interface for simple use, as well as an object oriented interface that can handle messages of arbitrary length and which can read files directly. The digest can be delivered in three formats: =over 8 =item I<binary> This is the most compact form, but it is not well suited for printing or embedding in places that can't handle arbitrary data. =item I<hex> A twice as long string of lowercase hexadecimal digits. =item I<base64> A string of portable printable characters. This is the base64 encoded representation of the digest with any trailing padding removed. The string will be about 30% longer than the binary version. L<MIME::Base64> tells you more about this encoding. =back The functional interface is simply importable functions with the same name as the algorithm. The functions take the message as argument and return the digest. Example: use Digest::MD5 qw(md5); $digest = md5($message); There are also versions of the functions with "_hex" or "_base64" appended to the name, which returns the digest in the indicated form. =head1 OO INTERFACE The following methods are available for all C<Digest::> modules: =over 4 =item $ctx = Digest->XXX($arg,...) =item $ctx = Digest->new(XXX => $arg,...) =item $ctx = Digest::XXX->new($arg,...) The constructor returns some object that encapsulate the state of the message-digest algorithm. You can add data to the object and finally ask for the digest. The "XXX" should of course be replaced by the proper name of the digest algorithm you want to use. The two first forms are simply syntactic sugar which automatically load the right module on first use. The second form allow you to use algorithm names which contains letters which are not legal perl identifiers, e.g. "SHA-1". If no implementation for the given algorithm can be found, then an exception is raised. To know what arguments (if any) the constructor takes (the C<$args,...> above) consult the docs for the specific digest implementation. If new() is called as an instance method (i.e. $ctx->new) it will just reset the state the object to the state of a newly created object. No new object is created in this case, and the return value is the reference to the object (i.e. $ctx). =item $other_ctx = $ctx->clone The clone method creates a copy of the digest state object and returns a reference to the copy. =item $ctx->reset This is just an alias for $ctx->new. =item $ctx->add( $data ) =item $ctx->add( $chunk1, $chunk2, ... ) The string value of the $data provided as argument is appended to the message we calculate the digest for. The return value is the $ctx object itself. If more arguments are provided then they are all appended to the message, thus all these lines will have the same effect on the state of the $ctx object: $ctx->add("a"); $ctx->add("b"); $ctx->add("c"); $ctx->add("a")->add("b")->add("c"); $ctx->add("a", "b", "c"); $ctx->add("abc"); Most algorithms are only defined for strings of bytes and this method might therefore croak if the provided arguments contain chars with ordinal number above 255. =item $ctx->addfile( $io_handle ) The $io_handle is read until EOF and the content is appended to the message we calculate the digest for. The return value is the $ctx object itself. The addfile() method will croak() if it fails reading data for some reason. If it croaks it is unpredictable what the state of the $ctx object will be in. The addfile() method might have been able to read the file partially before it failed. It is probably wise to discard or reset the $ctx object if this occurs. In most cases you want to make sure that the $io_handle is in "binmode" before you pass it as argument to the addfile() method. =item $ctx->add_bits( $data, $nbits ) =item $ctx->add_bits( $bitstring ) The add_bits() method is an alternative to add() that allow partial bytes to be appended to the message. Most users can just ignore this method since typical applications involve only whole-byte data. The two argument form of add_bits() will add the first $nbits bits from $data. For the last potentially partial byte only the high order C<< $nbits % 8 >> bits are used. If $nbits is greater than C<< length($data) * 8 >>, then this method would do the same as C<< $ctx->add($data) >>. The one argument form of add_bits() takes a $bitstring of "1" and "0" chars as argument. It's a shorthand for C<< $ctx->add_bits(pack("B*", $bitstring), length($bitstring)) >>. The return value is the $ctx object itself. This example shows two calls that should have the same effect: $ctx->add_bits("111100001010"); $ctx->add_bits("\xF0\xA0", 12); Most digest algorithms are byte based and for these it is not possible to add bits that are not a multiple of 8, and the add_bits() method will croak if you try. =item $ctx->digest Return the binary digest for the message. Note that the C<digest> operation is effectively a destructive, read-once operation. Once it has been performed, the $ctx object is automatically C<reset> and can be used to calculate another digest value. Call $ctx->clone->digest if you want to calculate the digest without resetting the digest state. =item $ctx->hexdigest Same as $ctx->digest, but will return the digest in hexadecimal form. =item $ctx->b64digest Same as $ctx->digest, but will return the digest as a base64 encoded string without padding. =item $ctx->base64_padded_digest Same as $ctx->digest, but will return the digest as a base64 encoded string. =back =head1 Digest speed This table should give some indication on the relative speed of different algorithms. It is sorted by throughput based on a benchmark done with of some implementations of this API: Algorithm Size Implementation MB/s MD4 128 Digest::MD4 v1.3 165.0 MD5 128 Digest::MD5 v2.33 98.8 SHA-256 256 Digest::SHA2 v1.1.0 66.7 SHA-1 160 Digest::SHA v4.3.1 58.9 SHA-1 160 Digest::SHA1 v2.10 48.8 SHA-256 256 Digest::SHA v4.3.1 41.3 Haval-256 256 Digest::Haval256 v1.0.4 39.8 SHA-384 384 Digest::SHA2 v1.1.0 19.6 SHA-512 512 Digest::SHA2 v1.1.0 19.3 SHA-384 384 Digest::SHA v4.3.1 19.2 SHA-512 512 Digest::SHA v4.3.1 19.2 Whirlpool 512 Digest::Whirlpool v1.0.2 13.0 MD2 128 Digest::MD2 v2.03 9.5 Adler-32 32 Digest::Adler32 v0.03 1.3 CRC-16 16 Digest::CRC v0.05 1.1 CRC-32 32 Digest::CRC v0.05 1.1 MD5 128 Digest::Perl::MD5 v1.5 1.0 CRC-CCITT 16 Digest::CRC v0.05 0.8 These numbers was achieved Apr 2004 with ActivePerl-5.8.3 running under Linux on a P4 2.8 GHz CPU. The last 5 entries differ by being pure perl implementations of the algorithms, which explains why they are so slow. =head1 SEE ALSO L<Digest::Adler32>, L<Digest::CRC>, L<Digest::Haval256>, L<Digest::HMAC>, L<Digest::MD2>, L<Digest::MD4>, L<Digest::MD5>, L<Digest::SHA>, L<Digest::SHA1>, L<Digest::SHA2>, L<Digest::Whirlpool> New digest implementations should consider subclassing from L<Digest::base>. L<MIME::Base64> http://en.wikipedia.org/wiki/Cryptographic_hash_function =head1 AUTHOR Gisle Aas <gisle@aas.no> The C<Digest::> interface is based on the interface originally developed by Neil Winton for his C<MD5> module. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. Copyright 1998-2006 Gisle Aas. Copyright 1995,1996 Neil Winton. =cut PK ! z�~`� `� 5.34.0/Memoize.pmnu �[��� # -*- mode: perl; perl-indent-level: 2; -*- # Memoize.pm # # Transparent memoization of idempotent functions # # Copyright 1998, 1999, 2000, 2001, 2012 M. J. Dominus. # You may copy and distribute this program under the # same terms as Perl itself. If in doubt, # write to mjd-perl-memoize+@plover.com for a license. package Memoize; $VERSION = '1.03_01'; # Compile-time constants sub SCALAR () { 0 } sub LIST () { 1 } # # Usage memoize(functionname/ref, # { NORMALIZER => coderef, INSTALL => name, # LIST_CACHE => descriptor, SCALAR_CACHE => descriptor } # use Carp; use Exporter; use vars qw($DEBUG); use Config; # Dammit. @ISA = qw(Exporter); @EXPORT = qw(memoize); @EXPORT_OK = qw(unmemoize flush_cache); use strict; my %memotable; my %revmemotable; my @CONTEXT_TAGS = qw(MERGE TIE MEMORY FAULT HASH); my %IS_CACHE_TAG = map {($_ => 1)} @CONTEXT_TAGS; # Raise an error if the user tries to specify one of thesepackage as a # tie for LIST_CACHE my %scalar_only = map {($_ => 1)} qw(DB_File GDBM_File SDBM_File ODBM_File NDBM_File); sub memoize { my $fn = shift; my %options = @_; my $options = \%options; unless (defined($fn) && (ref $fn eq 'CODE' || ref $fn eq '')) { croak "Usage: memoize 'functionname'|coderef {OPTIONS}"; } my $uppack = caller; # TCL me Elmo! my $cref; # Code reference to original function my $name = (ref $fn ? undef : $fn); # Convert function names to code references $cref = &_make_cref($fn, $uppack); # Locate function prototype, if any my $proto = prototype $cref; if (defined $proto) { $proto = "($proto)" } else { $proto = "" } # I would like to get rid of the eval, but there seems not to be any # other way to set the prototype properly. The switch here for # 'usethreads' works around a bug in threadperl having to do with # magic goto. It would be better to fix the bug and use the magic # goto version everywhere. my $wrapper = $Config{usethreads} ? eval "sub $proto { &_memoizer(\$cref, \@_); }" : eval "sub $proto { unshift \@_, \$cref; goto &_memoizer; }"; my $normalizer = $options{NORMALIZER}; if (defined $normalizer && ! ref $normalizer) { $normalizer = _make_cref($normalizer, $uppack); } my $install_name; if (defined $options->{INSTALL}) { # INSTALL => name $install_name = $options->{INSTALL}; } elsif (! exists $options->{INSTALL}) { # No INSTALL option provided; use original name if possible $install_name = $name; } else { # INSTALL => undef means don't install } if (defined $install_name) { $install_name = $uppack . '::' . $install_name unless $install_name =~ /::/; no strict; local($^W) = 0; # ``Subroutine $install_name redefined at ...'' *{$install_name} = $wrapper; # Install memoized version } $revmemotable{$wrapper} = "" . $cref; # Turn code ref into hash key # These will be the caches my %caches; for my $context (qw(SCALAR LIST)) { # suppress subsequent 'uninitialized value' warnings $options{"${context}_CACHE"} ||= ''; my $cache_opt = $options{"${context}_CACHE"}; my @cache_opt_args; if (ref $cache_opt) { @cache_opt_args = @$cache_opt; $cache_opt = shift @cache_opt_args; } if ($cache_opt eq 'FAULT') { # no cache $caches{$context} = undef; } elsif ($cache_opt eq 'HASH') { # user-supplied hash my $cache = $cache_opt_args[0]; my $package = ref(tied %$cache); if ($context eq 'LIST' && $scalar_only{$package}) { croak("You can't use $package for LIST_CACHE because it can only store scalars"); } $caches{$context} = $cache; } elsif ($cache_opt eq '' || $IS_CACHE_TAG{$cache_opt}) { # default is that we make up an in-memory hash $caches{$context} = {}; # (this might get tied later, or MERGEd away) } else { croak "Unrecognized option to `${context}_CACHE': `$cache_opt' should be one of (@CONTEXT_TAGS); aborting"; } } # Perhaps I should check here that you didn't supply *both* merge # options. But if you did, it does do something reasonable: They # both get merged to the same in-memory hash. if ($options{SCALAR_CACHE} eq 'MERGE' || $options{LIST_CACHE} eq 'MERGE') { $options{MERGED} = 1; $caches{SCALAR} = $caches{LIST}; } # Now deal with the TIE options { my $context; foreach $context (qw(SCALAR LIST)) { # If the relevant option wasn't `TIE', this call does nothing. _my_tie($context, $caches{$context}, $options); # Croaks on failure } } # We should put some more stuff in here eventually. # We've been saying that for serveral versions now. # And you know what? More stuff keeps going in! $memotable{$cref} = { O => $options, # Short keys here for things we need to access frequently N => $normalizer, U => $cref, MEMOIZED => $wrapper, PACKAGE => $uppack, NAME => $install_name, S => $caches{SCALAR}, L => $caches{LIST}, }; $wrapper # Return just memoized version } # This function tries to load a tied hash class and tie the hash to it. sub _my_tie { my ($context, $hash, $options) = @_; my $fullopt = $options->{"${context}_CACHE"}; # We already checked to make sure that this works. my $shortopt = (ref $fullopt) ? $fullopt->[0] : $fullopt; return unless defined $shortopt && $shortopt eq 'TIE'; carp("TIE option to memoize() is deprecated; use HASH instead") if $^W; my @args = ref $fullopt ? @$fullopt : (); shift @args; my $module = shift @args; if ($context eq 'LIST' && $scalar_only{$module}) { croak("You can't use $module for LIST_CACHE because it can only store scalars"); } my $modulefile = $module . '.pm'; $modulefile =~ s{::}{/}g; eval { local @INC = @INC; pop @INC if $INC[-1] eq '.'; require $modulefile }; if ($@) { croak "Memoize: Couldn't load hash tie module `$module': $@; aborting"; } my $rc = (tie %$hash => $module, @args); unless ($rc) { croak "Memoize: Couldn't tie hash to `$module': $!; aborting"; } 1; } sub flush_cache { my $func = _make_cref($_[0], scalar caller); my $info = $memotable{$revmemotable{$func}}; die "$func not memoized" unless defined $info; for my $context (qw(S L)) { my $cache = $info->{$context}; if (tied %$cache && ! (tied %$cache)->can('CLEAR')) { my $funcname = defined($info->{NAME}) ? "function $info->{NAME}" : "anonymous function $func"; my $context = {S => 'scalar', L => 'list'}->{$context}; croak "Tied cache hash for $context-context $funcname does not support flushing"; } else { %$cache = (); } } } # This is the function that manages the memo tables. sub _memoizer { my $orig = shift; # stringized version of ref to original func. my $info = $memotable{$orig}; my $normalizer = $info->{N}; my $argstr; my $context = (wantarray() ? LIST : SCALAR); if (defined $normalizer) { no strict; if ($context == SCALAR) { $argstr = &{$normalizer}(@_); } elsif ($context == LIST) { ($argstr) = &{$normalizer}(@_); } else { croak "Internal error \#41; context was neither LIST nor SCALAR\n"; } } else { # Default normalizer local $^W = 0; $argstr = join chr(28),@_; } if ($context == SCALAR) { my $cache = $info->{S}; _crap_out($info->{NAME}, 'scalar') unless $cache; if (exists $cache->{$argstr}) { return $info->{O}{MERGED} ? $cache->{$argstr}[0] : $cache->{$argstr}; } else { my $val = &{$info->{U}}(@_); # Scalars are considered to be lists; store appropriately if ($info->{O}{MERGED}) { $cache->{$argstr} = [$val]; } else { $cache->{$argstr} = $val; } $val; } } elsif ($context == LIST) { my $cache = $info->{L}; _crap_out($info->{NAME}, 'list') unless $cache; if (exists $cache->{$argstr}) { return @{$cache->{$argstr}}; } else { my @q = &{$info->{U}}(@_); $cache->{$argstr} = \@q; @q; } } else { croak "Internal error \#42; context was neither LIST nor SCALAR\n"; } } sub unmemoize { my $f = shift; my $uppack = caller; my $cref = _make_cref($f, $uppack); unless (exists $revmemotable{$cref}) { croak "Could not unmemoize function `$f', because it was not memoized to begin with"; } my $tabent = $memotable{$revmemotable{$cref}}; unless (defined $tabent) { croak "Could not figure out how to unmemoize function `$f'"; } my $name = $tabent->{NAME}; if (defined $name) { no strict; local($^W) = 0; # ``Subroutine $install_name redefined at ...'' *{$name} = $tabent->{U}; # Replace with original function } undef $memotable{$revmemotable{$cref}}; undef $revmemotable{$cref}; # This removes the last reference to the (possibly tied) memo tables # my ($old_function, $memotabs) = @{$tabent}{'U','S','L'}; # undef $tabent; # # Untie the memo tables if they were tied. # my $i; # for $i (0,1) { # if (tied %{$memotabs->[$i]}) { # warn "Untying hash #$i\n"; # untie %{$memotabs->[$i]}; # } # } $tabent->{U}; } sub _make_cref { my $fn = shift; my $uppack = shift; my $cref; my $name; if (ref $fn eq 'CODE') { $cref = $fn; } elsif (! ref $fn) { if ($fn =~ /::/) { $name = $fn; } else { $name = $uppack . '::' . $fn; } no strict; if (defined $name and !defined(&$name)) { croak "Cannot operate on nonexistent function `$fn'"; } # $cref = \&$name; $cref = *{$name}{CODE}; } else { my $parent = (caller(1))[3]; # Function that called _make_cref croak "Usage: argument 1 to `$parent' must be a function name or reference.\n"; } $DEBUG and warn "${name}($fn) => $cref in _make_cref\n"; $cref; } sub _crap_out { my ($funcname, $context) = @_; if (defined $funcname) { croak "Function `$funcname' called in forbidden $context context; faulting"; } else { croak "Anonymous function called in forbidden $context context; faulting"; } } 1; =head1 NAME Memoize - Make functions faster by trading space for time =head1 SYNOPSIS # This is the documentation for Memoize 1.03 use Memoize; memoize('slow_function'); slow_function(arguments); # Is faster than it was before This is normally all you need to know. However, many options are available: memoize(function, options...); Options include: NORMALIZER => function INSTALL => new_name SCALAR_CACHE => 'MEMORY' SCALAR_CACHE => ['HASH', \%cache_hash ] SCALAR_CACHE => 'FAULT' SCALAR_CACHE => 'MERGE' LIST_CACHE => 'MEMORY' LIST_CACHE => ['HASH', \%cache_hash ] LIST_CACHE => 'FAULT' LIST_CACHE => 'MERGE' =head1 DESCRIPTION `Memoizing' a function makes it faster by trading space for time. It does this by caching the return values of the function in a table. If you call the function again with the same arguments, C<memoize> jumps in and gives you the value out of the table, instead of letting the function compute the value all over again. Here is an extreme example. Consider the Fibonacci sequence, defined by the following function: # Compute Fibonacci numbers sub fib { my $n = shift; return $n if $n < 2; fib($n-1) + fib($n-2); } This function is very slow. Why? To compute fib(14), it first wants to compute fib(13) and fib(12), and add the results. But to compute fib(13), it first has to compute fib(12) and fib(11), and then it comes back and computes fib(12) all over again even though the answer is the same. And both of the times that it wants to compute fib(12), it has to compute fib(11) from scratch, and then it has to do it again each time it wants to compute fib(13). This function does so much recomputing of old results that it takes a really long time to run---fib(14) makes 1,200 extra recursive calls to itself, to compute and recompute things that it already computed. This function is a good candidate for memoization. If you memoize the `fib' function above, it will compute fib(14) exactly once, the first time it needs to, and then save the result in a table. Then if you ask for fib(14) again, it gives you the result out of the table. While computing fib(14), instead of computing fib(12) twice, it does it once; the second time it needs the value it gets it from the table. It doesn't compute fib(11) four times; it computes it once, getting it from the table the next three times. Instead of making 1,200 recursive calls to `fib', it makes 15. This makes the function about 150 times faster. You could do the memoization yourself, by rewriting the function, like this: # Compute Fibonacci numbers, memoized version { my @fib; sub fib { my $n = shift; return $fib[$n] if defined $fib[$n]; return $fib[$n] = $n if $n < 2; $fib[$n] = fib($n-1) + fib($n-2); } } Or you could use this module, like this: use Memoize; memoize('fib'); # Rest of the fib function just like the original version. This makes it easy to turn memoizing on and off. Here's an even simpler example: I wrote a simple ray tracer; the program would look in a certain direction, figure out what it was looking at, and then convert the `color' value (typically a string like `red') of that object to a red, green, and blue pixel value, like this: for ($direction = 0; $direction < 300; $direction++) { # Figure out which object is in direction $direction $color = $object->{color}; ($r, $g, $b) = @{&ColorToRGB($color)}; ... } Since there are relatively few objects in a picture, there are only a few colors, which get looked up over and over again. Memoizing C<ColorToRGB> sped up the program by several percent. =head1 DETAILS This module exports exactly one function, C<memoize>. The rest of the functions in this package are None of Your Business. You should say memoize(function) where C<function> is the name of the function you want to memoize, or a reference to it. C<memoize> returns a reference to the new, memoized version of the function, or C<undef> on a non-fatal error. At present, there are no non-fatal errors, but there might be some in the future. If C<function> was the name of a function, then C<memoize> hides the old version and installs the new memoized version under the old name, so that C<&function(...)> actually invokes the memoized version. =head1 OPTIONS There are some optional options you can pass to C<memoize> to change the way it behaves a little. To supply options, invoke C<memoize> like this: memoize(function, NORMALIZER => function, INSTALL => newname, SCALAR_CACHE => option, LIST_CACHE => option ); Each of these options is optional; you can include some, all, or none of them. =head2 INSTALL If you supply a function name with C<INSTALL>, memoize will install the new, memoized version of the function under the name you give. For example, memoize('fib', INSTALL => 'fastfib') installs the memoized version of C<fib> as C<fastfib>; without the C<INSTALL> option it would have replaced the old C<fib> with the memoized version. To prevent C<memoize> from installing the memoized version anywhere, use C<INSTALL =E<gt> undef>. =head2 NORMALIZER Suppose your function looks like this: # Typical call: f('aha!', A => 11, B => 12); sub f { my $a = shift; my %hash = @_; $hash{B} ||= 2; # B defaults to 2 $hash{C} ||= 7; # C defaults to 7 # Do something with $a, %hash } Now, the following calls to your function are all completely equivalent: f(OUCH); f(OUCH, B => 2); f(OUCH, C => 7); f(OUCH, B => 2, C => 7); f(OUCH, C => 7, B => 2); (etc.) However, unless you tell C<Memoize> that these calls are equivalent, it will not know that, and it will compute the values for these invocations of your function separately, and store them separately. To prevent this, supply a C<NORMALIZER> function that turns the program arguments into a string in a way that equivalent arguments turn into the same string. A C<NORMALIZER> function for C<f> above might look like this: sub normalize_f { my $a = shift; my %hash = @_; $hash{B} ||= 2; $hash{C} ||= 7; join(',', $a, map ($_ => $hash{$_}) sort keys %hash); } Each of the argument lists above comes out of the C<normalize_f> function looking exactly the same, like this: OUCH,B,2,C,7 You would tell C<Memoize> to use this normalizer this way: memoize('f', NORMALIZER => 'normalize_f'); C<memoize> knows that if the normalized version of the arguments is the same for two argument lists, then it can safely look up the value that it computed for one argument list and return it as the result of calling the function with the other argument list, even if the argument lists look different. The default normalizer just concatenates the arguments with character 28 in between. (In ASCII, this is called FS or control-\.) This always works correctly for functions with only one string argument, and also when the arguments never contain character 28. However, it can confuse certain argument lists: normalizer("a\034", "b") normalizer("a", "\034b") normalizer("a\034\034b") for example. Since hash keys are strings, the default normalizer will not distinguish between C<undef> and the empty string. It also won't work when the function's arguments are references. For example, consider a function C<g> which gets two arguments: A number, and a reference to an array of numbers: g(13, [1,2,3,4,5,6,7]); The default normalizer will turn this into something like C<"13\034ARRAY(0x436c1f)">. That would be all right, except that a subsequent array of numbers might be stored at a different location even though it contains the same data. If this happens, C<Memoize> will think that the arguments are different, even though they are equivalent. In this case, a normalizer like this is appropriate: sub normalize { join ' ', $_[0], @{$_[1]} } For the example above, this produces the key "13 1 2 3 4 5 6 7". Another use for normalizers is when the function depends on data other than those in its arguments. Suppose you have a function which returns a value which depends on the current hour of the day: sub on_duty { my ($problem_type) = @_; my $hour = (localtime)[2]; open my $fh, "$DIR/$problem_type" or die...; my $line; while ($hour-- > 0) $line = <$fh>; } return $line; } At 10:23, this function generates the 10th line of a data file; at 3:45 PM it generates the 15th line instead. By default, C<Memoize> will only see the $problem_type argument. To fix this, include the current hour in the normalizer: sub normalize { join ' ', (localtime)[2], @_ } The calling context of the function (scalar or list context) is propagated to the normalizer. This means that if the memoized function will treat its arguments differently in list context than it would in scalar context, you can have the normalizer function select its behavior based on the results of C<wantarray>. Even if called in a list context, a normalizer should still return a single string. =head2 C<SCALAR_CACHE>, C<LIST_CACHE> Normally, C<Memoize> caches your function's return values into an ordinary Perl hash variable. However, you might like to have the values cached on the disk, so that they persist from one run of your program to the next, or you might like to associate some other interesting semantics with the cached values. There's a slight complication under the hood of C<Memoize>: There are actually I<two> caches, one for scalar values and one for list values. When your function is called in scalar context, its return value is cached in one hash, and when your function is called in list context, its value is cached in the other hash. You can control the caching behavior of both contexts independently with these options. The argument to C<LIST_CACHE> or C<SCALAR_CACHE> must either be one of the following four strings: MEMORY FAULT MERGE HASH or else it must be a reference to an array whose first element is one of these four strings, such as C<[HASH, arguments...]>. =over 4 =item C<MEMORY> C<MEMORY> means that return values from the function will be cached in an ordinary Perl hash variable. The hash variable will not persist after the program exits. This is the default. =item C<HASH> C<HASH> allows you to specify that a particular hash that you supply will be used as the cache. You can tie this hash beforehand to give it any behavior you want. A tied hash can have any semantics at all. It is typically tied to an on-disk database, so that cached values are stored in the database and retrieved from it again when needed, and the disk file typically persists after your program has exited. See C<perltie> for more complete details about C<tie>. A typical example is: use DB_File; tie my %cache => 'DB_File', $filename, O_RDWR|O_CREAT, 0666; memoize 'function', SCALAR_CACHE => [HASH => \%cache]; This has the effect of storing the cache in a C<DB_File> database whose name is in C<$filename>. The cache will persist after the program has exited. Next time the program runs, it will find the cache already populated from the previous run of the program. Or you can forcibly populate the cache by constructing a batch program that runs in the background and populates the cache file. Then when you come to run your real program the memoized function will be fast because all its results have been precomputed. Another reason to use C<HASH> is to provide your own hash variable. You can then inspect or modify the contents of the hash to gain finer control over the cache management. =item C<TIE> This option is no longer supported. It is still documented only to aid in the debugging of old programs that use it. Old programs should be converted to use the C<HASH> option instead. memoize ... ['TIE', PACKAGE, ARGS...] is merely a shortcut for require PACKAGE; { tie my %cache, PACKAGE, ARGS...; memoize ... [HASH => \%cache]; } =item C<FAULT> C<FAULT> means that you never expect to call the function in scalar (or list) context, and that if C<Memoize> detects such a call, it should abort the program. The error message is one of `foo' function called in forbidden list context at line ... `foo' function called in forbidden scalar context at line ... =item C<MERGE> C<MERGE> normally means that the memoized function does not distinguish between list and sclar context, and that return values in both contexts should be stored together. Both C<LIST_CACHE =E<gt> MERGE> and C<SCALAR_CACHE =E<gt> MERGE> mean the same thing. Consider this function: sub complicated { # ... time-consuming calculation of $result return $result; } The C<complicated> function will return the same numeric C<$result> regardless of whether it is called in list or in scalar context. Normally, the following code will result in two calls to C<complicated>, even if C<complicated> is memoized: $x = complicated(142); ($y) = complicated(142); $z = complicated(142); The first call will cache the result, say 37, in the scalar cache; the second will cach the list C<(37)> in the list cache. The third call doesn't call the real C<complicated> function; it gets the value 37 from the scalar cache. Obviously, the second call to C<complicated> is a waste of time, and storing its return value is a waste of space. Specifying C<LIST_CACHE =E<gt> MERGE> will make C<memoize> use the same cache for scalar and list context return values, so that the second call uses the scalar cache that was populated by the first call. C<complicated> ends up being called only once, and both subsequent calls return C<3> from the cache, regardless of the calling context. =back =head3 List values in scalar context Consider this function: sub iota { return reverse (1..$_[0]) } This function normally returns a list. Suppose you memoize it and merge the caches: memoize 'iota', SCALAR_CACHE => 'MERGE'; @i7 = iota(7); $i7 = iota(7); Here the first call caches the list (1,2,3,4,5,6,7). The second call does not really make sense. C<Memoize> cannot guess what behavior C<iota> should have in scalar context without actually calling it in scalar context. Normally C<Memoize> I<would> call C<iota> in scalar context and cache the result, but the C<SCALAR_CACHE =E<gt> 'MERGE'> option says not to do that, but to use the cache list-context value instead. But it cannot return a list of seven elements in a scalar context. In this case C<$i7> will receive the B<first element> of the cached list value, namely 7. =head3 Merged disk caches Another use for C<MERGE> is when you want both kinds of return values stored in the same disk file; this saves you from having to deal with two disk files instead of one. You can use a normalizer function to keep the two sets of return values separate. For example: tie my %cache => 'MLDBM', 'DB_File', $filename, ...; memoize 'myfunc', NORMALIZER => 'n', SCALAR_CACHE => [HASH => \%cache], LIST_CACHE => 'MERGE', ; sub n { my $context = wantarray() ? 'L' : 'S'; # ... now compute the hash key from the arguments ... $hashkey = "$context:$hashkey"; } This normalizer function will store scalar context return values in the disk file under keys that begin with C<S:>, and list context return values under keys that begin with C<L:>. =head1 OTHER FACILITIES =head2 C<unmemoize> There's an C<unmemoize> function that you can import if you want to. Why would you want to? Here's an example: Suppose you have your cache tied to a DBM file, and you want to make sure that the cache is written out to disk if someone interrupts the program. If the program exits normally, this will happen anyway, but if someone types control-C or something then the program will terminate immediately without synchronizing the database. So what you can do instead is $SIG{INT} = sub { unmemoize 'function' }; C<unmemoize> accepts a reference to, or the name of a previously memoized function, and undoes whatever it did to provide the memoized version in the first place, including making the name refer to the unmemoized version if appropriate. It returns a reference to the unmemoized version of the function. If you ask it to unmemoize a function that was never memoized, it croaks. =head2 C<flush_cache> C<flush_cache(function)> will flush out the caches, discarding I<all> the cached data. The argument may be a function name or a reference to a function. For finer control over when data is discarded or expired, see the documentation for C<Memoize::Expire>, included in this package. Note that if the cache is a tied hash, C<flush_cache> will attempt to invoke the C<CLEAR> method on the hash. If there is no C<CLEAR> method, this will cause a run-time error. An alternative approach to cache flushing is to use the C<HASH> option (see above) to request that C<Memoize> use a particular hash variable as its cache. Then you can examine or modify the hash at any time in any way you desire. You may flush the cache by using C<%hash = ()>. =head1 CAVEATS Memoization is not a cure-all: =over 4 =item * Do not memoize a function whose behavior depends on program state other than its own arguments, such as global variables, the time of day, or file input. These functions will not produce correct results when memoized. For a particularly easy example: sub f { time; } This function takes no arguments, and as far as C<Memoize> is concerned, it always returns the same result. C<Memoize> is wrong, of course, and the memoized version of this function will call C<time> once to get the current time, and it will return that same time every time you call it after that. =item * Do not memoize a function with side effects. sub f { my ($a, $b) = @_; my $s = $a + $b; print "$a + $b = $s.\n"; } This function accepts two arguments, adds them, and prints their sum. Its return value is the numuber of characters it printed, but you probably didn't care about that. But C<Memoize> doesn't understand that. If you memoize this function, you will get the result you expect the first time you ask it to print the sum of 2 and 3, but subsequent calls will return 1 (the return value of C<print>) without actually printing anything. =item * Do not memoize a function that returns a data structure that is modified by its caller. Consider these functions: C<getusers> returns a list of users somehow, and then C<main> throws away the first user on the list and prints the rest: sub main { my $userlist = getusers(); shift @$userlist; foreach $u (@$userlist) { print "User $u\n"; } } sub getusers { my @users; # Do something to get a list of users; \@users; # Return reference to list. } If you memoize C<getusers> here, it will work right exactly once. The reference to the users list will be stored in the memo table. C<main> will discard the first element from the referenced list. The next time you invoke C<main>, C<Memoize> will not call C<getusers>; it will just return the same reference to the same list it got last time. But this time the list has already had its head removed; C<main> will erroneously remove another element from it. The list will get shorter and shorter every time you call C<main>. Similarly, this: $u1 = getusers(); $u2 = getusers(); pop @$u1; will modify $u2 as well as $u1, because both variables are references to the same array. Had C<getusers> not been memoized, $u1 and $u2 would have referred to different arrays. =item * Do not memoize a very simple function. Recently someone mentioned to me that the Memoize module made his program run slower instead of faster. It turned out that he was memoizing the following function: sub square { $_[0] * $_[0]; } I pointed out that C<Memoize> uses a hash, and that looking up a number in the hash is necessarily going to take a lot longer than a single multiplication. There really is no way to speed up the C<square> function. Memoization is not magical. =back =head1 PERSISTENT CACHE SUPPORT You can tie the cache tables to any sort of tied hash that you want to, as long as it supports C<TIEHASH>, C<FETCH>, C<STORE>, and C<EXISTS>. For example, tie my %cache => 'GDBM_File', $filename, O_RDWR|O_CREAT, 0666; memoize 'function', SCALAR_CACHE => [HASH => \%cache]; works just fine. For some storage methods, you need a little glue. C<SDBM_File> doesn't supply an C<EXISTS> method, so included in this package is a glue module called C<Memoize::SDBM_File> which does provide one. Use this instead of plain C<SDBM_File> to store your cache table on disk in an C<SDBM_File> database: tie my %cache => 'Memoize::SDBM_File', $filename, O_RDWR|O_CREAT, 0666; memoize 'function', SCALAR_CACHE => [HASH => \%cache]; C<NDBM_File> has the same problem and the same solution. (Use C<Memoize::NDBM_File instead of plain NDBM_File.>) C<Storable> isn't a tied hash class at all. You can use it to store a hash to disk and retrieve it again, but you can't modify the hash while it's on the disk. So if you want to store your cache table in a C<Storable> database, use C<Memoize::Storable>, which puts a hashlike front-end onto C<Storable>. The hash table is actually kept in memory, and is loaded from your C<Storable> file at the time you memoize the function, and stored back at the time you unmemoize the function (or when your program exits): tie my %cache => 'Memoize::Storable', $filename; memoize 'function', SCALAR_CACHE => [HASH => \%cache]; tie my %cache => 'Memoize::Storable', $filename, 'nstore'; memoize 'function', SCALAR_CACHE => [HASH => \%cache]; Include the `nstore' option to have the C<Storable> database written in `network order'. (See L<Storable> for more details about this.) The C<flush_cache()> function will raise a run-time error unless the tied package provides a C<CLEAR> method. =head1 EXPIRATION SUPPORT See Memoize::Expire, which is a plug-in module that adds expiration functionality to Memoize. If you don't like the kinds of policies that Memoize::Expire implements, it is easy to write your own plug-in module to implement whatever policy you desire. Memoize comes with several examples. An expiration manager that implements a LRU policy is available on CPAN as Memoize::ExpireLRU. =head1 BUGS The test suite is much better, but always needs improvement. There is some problem with the way C<goto &f> works under threaded Perl, perhaps because of the lexical scoping of C<@_>. This is a bug in Perl, and until it is resolved, memoized functions will see a slightly different C<caller()> and will perform a little more slowly on threaded perls than unthreaded perls. Some versions of C<DB_File> won't let you store data under a key of length 0. That means that if you have a function C<f> which you memoized and the cache is in a C<DB_File> database, then the value of C<f()> (C<f> called with no arguments) will not be memoized. If this is a big problem, you can supply a normalizer function that prepends C<"x"> to every key. =head1 MAILING LIST To join a very low-traffic mailing list for announcements about C<Memoize>, send an empty note to C<mjd-perl-memoize-request@plover.com>. =head1 AUTHOR Mark-Jason Dominus (C<mjd-perl-memoize+@plover.com>), Plover Systems co. See the C<Memoize.pm> Page at http://perl.plover.com/Memoize/ for news and upgrades. Near this page, at http://perl.plover.com/MiniMemoize/ there is an article about memoization and about the internals of Memoize that appeared in The Perl Journal, issue #13. (This article is also included in the Memoize distribution as `article.html'.) The author's book I<Higher-Order Perl> (2005, ISBN 1558607013, published by Morgan Kaufmann) discusses memoization (and many other topics) in tremendous detail. It is available on-line for free. For more information, visit http://hop.perl.plover.com/ . To join a mailing list for announcements about C<Memoize>, send an empty message to C<mjd-perl-memoize-request@plover.com>. This mailing list is for announcements only and has extremely low traffic---fewer than two messages per year. =head1 COPYRIGHT AND LICENSE Copyright 1998, 1999, 2000, 2001, 2012 by Mark Jason Dominus This library is free software; you may redistribute it and/or modify it under the same terms as Perl itself. =head1 THANK YOU Many thanks to Florian Ragwitz for administration and packaging assistance, to John Tromp for bug reports, to Jonathan Roy for bug reports and suggestions, to Michael Schwern for other bug reports and patches, to Mike Cariaso for helping me to figure out the Right Thing to Do About Expiration, to Joshua Gerth, Joshua Chamas, Jonathan Roy (again), Mark D. Anderson, and Andrew Johnson for more suggestions about expiration, to Brent Powers for the Memoize::ExpireLRU module, to Ariel Scolnicov for delightful messages about the Fibonacci function, to Dion Almaer for thought-provoking suggestions about the default normalizer, to Walt Mankowski and Kurt Starsinic for much help investigating problems under threaded Perl, to Alex Dudkevich for reporting the bug in prototyped functions and for checking my patch, to Tony Bass for many helpful suggestions, to Jonathan Roy (again) for finding a use for C<unmemoize()>, to Philippe Verdret for enlightening discussion of C<Hook::PrePostCall>, to Nat Torkington for advice I ignored, to Chris Nandor for portability advice, to Randal Schwartz for suggesting the 'C<flush_cache> function, and to Jenda Krynicky for being a light in the world. Special thanks to Jarkko Hietaniemi, the 5.8.0 pumpking, for including this module in the core and for his patient and helpful guidance during the integration process. =cut PK ! ���e�* �* 5.34.0/base.pmnu �[��� use 5.008; package base; use strict 'vars'; our $VERSION = '2.27'; $VERSION =~ tr/_//d; # simplest way to avoid indexing of the package: no package statement sub base::__inc::unhook { @INC = grep !(ref eq 'CODE' && $_ == $_[0]), @INC } # instance is blessed array of coderefs to be removed from @INC at scope exit sub base::__inc::scope_guard::DESTROY { base::__inc::unhook $_ for @{$_[0]} } # constant.pm is slow sub SUCCESS () { 1 } sub PUBLIC () { 2**0 } sub PRIVATE () { 2**1 } sub INHERITED () { 2**2 } sub PROTECTED () { 2**3 } my $Fattr = \%fields::attr; sub has_fields { my($base) = shift; my $fglob = ${"$base\::"}{FIELDS}; return( ($fglob && 'GLOB' eq ref($fglob) && *$fglob{HASH}) ? 1 : 0 ); } sub has_attr { my($proto) = shift; my($class) = ref $proto || $proto; return exists $Fattr->{$class}; } sub get_attr { $Fattr->{$_[0]} = [1] unless $Fattr->{$_[0]}; return $Fattr->{$_[0]}; } if ($] < 5.009) { *get_fields = sub { # Shut up a possible typo warning. () = \%{$_[0].'::FIELDS'}; my $f = \%{$_[0].'::FIELDS'}; # should be centralized in fields? perhaps # fields::mk_FIELDS_be_OK. Peh. As long as %{ $package . '::FIELDS' } # is used here anyway, it doesn't matter. bless $f, 'pseudohash' if (ref($f) ne 'pseudohash'); return $f; } } else { *get_fields = sub { # Shut up a possible typo warning. () = \%{$_[0].'::FIELDS'}; return \%{$_[0].'::FIELDS'}; } } if ($] < 5.008) { *_module_to_filename = sub { (my $fn = $_[0]) =~ s!::!/!g; $fn .= '.pm'; return $fn; } } else { *_module_to_filename = sub { (my $fn = $_[0]) =~ s!::!/!g; $fn .= '.pm'; utf8::encode($fn); return $fn; } } sub import { my $class = shift; return SUCCESS unless @_; # List of base classes from which we will inherit %FIELDS. my $fields_base; my $inheritor = caller(0); my @bases; foreach my $base (@_) { if ( $inheritor eq $base ) { warn "Class '$inheritor' tried to inherit from itself\n"; } next if grep $_->isa($base), ($inheritor, @bases); # Following blocks help isolate $SIG{__DIE__} and @INC changes { my $sigdie; { local $SIG{__DIE__}; my $fn = _module_to_filename($base); my $dot_hidden; eval { my $guard; if ($INC[-1] eq '.' && %{"$base\::"}) { # So: the package already exists => this an optional load # And: there is a dot at the end of @INC => we want to hide it # However: we only want to hide it during our *own* require() # (i.e. without affecting nested require()s). # So we add a hook to @INC whose job is to hide the dot, but which # first checks checks the callstack depth, because within nested # require()s the callstack is deeper. # Since CORE::GLOBAL::require makes it unknowable in advance what # the exact relevant callstack depth will be, we have to record it # inside a hook. So we put another hook just for that at the front # of @INC, where it's guaranteed to run -- immediately. # The dot-hiding hook does its job by sitting directly in front of # the dot and removing itself from @INC when reached. This causes # the dot to move up one index in @INC, causing the loop inside # pp_require() to skip it. # Loaded coded may disturb this precise arrangement, but that's OK # because the hook is inert by that time. It is only active during # the top-level require(), when @INC is in our control. The only # possible gotcha is if other hooks already in @INC modify @INC in # some way during that initial require(). # Note that this jiggery hookery works just fine recursively: if # a module loaded via base.pm uses base.pm itself, there will be # one pair of hooks in @INC per base::import call frame, but the # pairs from different nestings do not interfere with each other. my $lvl; unshift @INC, sub { return if defined $lvl; 1 while defined caller ++$lvl; () }; splice @INC, -1, 0, sub { return if defined caller $lvl; ++$dot_hidden, &base::__inc::unhook; () }; $guard = bless [ @INC[0,-2] ], 'base::__inc::scope_guard'; } require $fn }; if ($dot_hidden && (my @fn = grep -e && !( -d _ || -b _ ), $fn.'c', $fn)) { require Carp; Carp::croak(<<ERROR); Base class package "$base" is not empty but "$fn[0]" exists in the current directory. To help avoid security issues, base.pm now refuses to load optional modules from the current working directory when it is the last entry in \@INC. If your software worked on previous versions of Perl, the best solution is to use FindBin to detect the path properly and to add that path to \@INC. As a last resort, you can re-enable looking in the current working directory by adding "use lib '.'" to your code. ERROR } # Only ignore "Can't locate" errors from our eval require. # Other fatal errors (syntax etc) must be reported. # # changing the check here is fragile - if the check # here isn't catching every error you want, you should # probably be using parent.pm, which doesn't try to # guess whether require is needed or failed, # see [perl #118561] die if $@ && $@ !~ /^Can't locate \Q$fn\E .*? at .* line [0-9]+(?:, <[^>]*> (?:line|chunk) [0-9]+)?\.\n\z/s || $@ =~ /Compilation failed in require at .* line [0-9]+(?:, <[^>]*> (?:line|chunk) [0-9]+)?\.\n\z/; unless (%{"$base\::"}) { require Carp; local $" = " "; Carp::croak(<<ERROR); Base class package "$base" is empty. (Perhaps you need to 'use' the module which defines that package first, or make that module available in \@INC (\@INC contains: @INC). ERROR } $sigdie = $SIG{__DIE__} || undef; } # Make sure a global $SIG{__DIE__} makes it out of the localization. $SIG{__DIE__} = $sigdie if defined $sigdie; } push @bases, $base; if ( has_fields($base) || has_attr($base) ) { # No multiple fields inheritance *suck* if ($fields_base) { require Carp; Carp::croak("Can't multiply inherit fields"); } else { $fields_base = $base; } } } # Save this until the end so it's all or nothing if the above loop croaks. push @{"$inheritor\::ISA"}, @bases; if( defined $fields_base ) { inherit_fields($inheritor, $fields_base); } } sub inherit_fields { my($derived, $base) = @_; return SUCCESS unless $base; my $battr = get_attr($base); my $dattr = get_attr($derived); my $dfields = get_fields($derived); my $bfields = get_fields($base); $dattr->[0] = @$battr; if( keys %$dfields ) { warn <<"END"; $derived is inheriting from $base but already has its own fields! This will cause problems. Be sure you use base BEFORE declaring fields. END } # Iterate through the base's fields adding all the non-private # ones to the derived class. Hang on to the original attribute # (Public, Private, etc...) and add Inherited. # This is all too complicated to do efficiently with add_fields(). while (my($k,$v) = each %$bfields) { my $fno; if ($fno = $dfields->{$k} and $fno != $v) { require Carp; Carp::croak ("Inherited fields can't override existing fields"); } if( $battr->[$v] & PRIVATE ) { $dattr->[$v] = PRIVATE | INHERITED; } else { $dattr->[$v] = INHERITED | $battr->[$v]; $dfields->{$k} = $v; } } foreach my $idx (1..$#{$battr}) { next if defined $dattr->[$idx]; $dattr->[$idx] = $battr->[$idx] & INHERITED; } } 1; __END__ =head1 NAME base - Establish an ISA relationship with base classes at compile time =head1 SYNOPSIS package Baz; use base qw(Foo Bar); =head1 DESCRIPTION Unless you are using the C<fields> pragma, consider this module discouraged in favor of the lighter-weight C<parent>. Allows you to both load one or more modules, while setting up inheritance from those modules at the same time. Roughly similar in effect to package Baz; BEGIN { require Foo; require Bar; push @ISA, qw(Foo Bar); } When C<base> tries to C<require> a module, it will not die if it cannot find the module's file, but will die on any other error. After all this, should your base class be empty, containing no symbols, C<base> will die. This is useful for inheriting from classes in the same file as yourself but where the filename does not match the base module name, like so: # in Bar.pm package Foo; sub exclaim { "I can have such a thing?!" } package Bar; use base "Foo"; There is no F<Foo.pm>, but because C<Foo> defines a symbol (the C<exclaim> subroutine), C<base> will not die when the C<require> fails to load F<Foo.pm>. C<base> will also initialize the fields if one of the base classes has it. Multiple inheritance of fields is B<NOT> supported, if two or more base classes each have inheritable fields the 'base' pragma will croak. See L<fields> for a description of this feature. The base class' C<import> method is B<not> called. =head1 DIAGNOSTICS =over 4 =item Base class package "%s" is empty. base.pm was unable to require the base package, because it was not found in your path. =item Class 'Foo' tried to inherit from itself Attempting to inherit from yourself generates a warning. package Foo; use base 'Foo'; =back =head1 HISTORY This module was introduced with Perl 5.004_04. =head1 CAVEATS Due to the limitations of the implementation, you must use base I<before> you declare any of your own fields. =head1 SEE ALSO L<fields> =cut PK ! �$�Hp� p� 5.34.0/B/Op_private.pmnu �[��� # -*- buffer-read-only: t -*- # # lib/B/Op_private.pm # # Copyright (C) 2014 by Larry Wall and others # # You may distribute under the terms of either the GNU General Public # License or the Artistic License, as specified in the README file. # # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is built by regen/opcode.pl from data in # regen/op_private and pod embedded in regen/opcode.pl. # Any changes made here will be lost! =head1 NAME B::Op_private - OP op_private flag definitions =head1 SYNOPSIS use B::Op_private; # flag details for bit 7 of OP_AELEM's op_private: my $name = $B::Op_private::bits{aelem}{7}; # OPpLVAL_INTRO my $value = $B::Op_private::defines{$name}; # 128 my $label = $B::Op_private::labels{$name}; # LVINTRO # the bit field at bits 5..6 of OP_AELEM's op_private: my $bf = $B::Op_private::bits{aelem}{6}; my $mask = $bf->{bitmask}; # etc =head1 DESCRIPTION This module provides four global hashes: %B::Op_private::bits %B::Op_private::defines %B::Op_private::labels %B::Op_private::ops_using which contain information about the per-op meanings of the bits in the op_private field. =head2 C<%bits> This is indexed by op name and then bit number (0..7). For single bit flags, it returns the name of the define (if any) for that bit: $B::Op_private::bits{aelem}{7} eq 'OPpLVAL_INTRO'; For bit fields, it returns a hash ref containing details about the field. The same reference will be returned for all bit positions that make up the bit field; so for example these both return the same hash ref: $bitfield = $B::Op_private::bits{aelem}{5}; $bitfield = $B::Op_private::bits{aelem}{6}; The general format of this hash ref is { # The bit range and mask; these are always present. bitmin => 5, bitmax => 6, bitmask => 0x60, # (The remaining keys are optional) # The names of any defines that were requested: mask_def => 'OPpFOO_MASK', baseshift_def => 'OPpFOO_SHIFT', bitcount_def => 'OPpFOO_BITS', # If present, Concise etc will display the value with a 'FOO=' # prefix. If it equals '-', then Concise will treat the bit # field as raw bits and not try to interpret it. label => 'FOO', # If present, specifies the names of some defines and the # display labels that are used to assign meaning to particu- # lar integer values within the bit field; e.g. 3 is dis- # played as 'C'. enum => [ qw( 1 OPpFOO_A A 2 OPpFOO_B B 3 OPpFOO_C C )], }; =head2 C<%defines> This gives the value of every C<OPp> define, e.g. $B::Op_private::defines{OPpLVAL_INTRO} == 128; =head2 C<%labels> This gives the short display label for each define, as used by C<B::Concise> and C<perl -Dx>, e.g. $B::Op_private::labels{OPpLVAL_INTRO} eq 'LVINTRO'; If the label equals '-', then Concise will treat the bit as a raw bit and not try to display it symbolically. =head2 C<%ops_using> For each define, this gives a reference to an array of op names that use the flag. @ops_using_lvintro = @{ $B::Op_private::ops_using{OPp_LVAL_INTRO} }; =cut package B::Op_private; our %bits; our $VERSION = "5.034000"; $bits{$_}{3} = 'OPpENTERSUB_AMPER' for qw(entersub rv2cv); $bits{$_}{6} = 'OPpENTERSUB_DB' for qw(entersub rv2cv); $bits{$_}{2} = 'OPpENTERSUB_HASTARG' for qw(entersub rv2cv); $bits{$_}{6} = 'OPpFLIP_LINENUM' for qw(flip flop); $bits{$_}{1} = 'OPpFT_ACCESS' for qw(fteexec fteread ftewrite ftrexec ftrread ftrwrite); $bits{$_}{4} = 'OPpFT_AFTER_t' for qw(ftatime ftbinary ftblk ftchr ftctime ftdir fteexec fteowned fteread ftewrite ftfile ftis ftlink ftmtime ftpipe ftrexec ftrowned ftrread ftrwrite ftsgid ftsize ftsock ftsuid ftsvtx fttext fttty ftzero); $bits{$_}{2} = 'OPpFT_STACKED' for qw(ftatime ftbinary ftblk ftchr ftctime ftdir fteexec fteowned fteread ftewrite ftfile ftis ftlink ftmtime ftpipe ftrexec ftrowned ftrread ftrwrite ftsgid ftsize ftsock ftsuid ftsvtx fttext fttty ftzero); $bits{$_}{3} = 'OPpFT_STACKING' for qw(ftatime ftbinary ftblk ftchr ftctime ftdir fteexec fteowned fteread ftewrite ftfile ftis ftlink ftmtime ftpipe ftrexec ftrowned ftrread ftrwrite ftsgid ftsize ftsock ftsuid ftsvtx fttext fttty ftzero); $bits{$_}{1} = 'OPpHINT_STRICT_REFS' for qw(entersub multideref rv2av rv2cv rv2gv rv2hv rv2sv); $bits{$_}{5} = 'OPpHUSH_VMSISH' for qw(dbstate nextstate); $bits{$_}{6} = 'OPpINDEX_BOOLNEG' for qw(index rindex); $bits{$_}{1} = 'OPpITER_REVERSED' for qw(enteriter iter); $bits{$_}{7} = 'OPpLVALUE' for qw(leave leaveloop); $bits{$_}{6} = 'OPpLVAL_DEFER' for qw(aelem helem multideref); $bits{$_}{7} = 'OPpLVAL_INTRO' for qw(aelem aslice cond_expr delete enteriter entersub gvsv helem hslice list lvavref lvref lvrefslice multiconcat multideref padav padhv padrange padsv pushmark refassign rv2av rv2gv rv2hv rv2sv split); $bits{$_}{2} = 'OPpLVREF_ELEM' for qw(lvref refassign); $bits{$_}{3} = 'OPpLVREF_ITER' for qw(lvref refassign); $bits{$_}{3} = 'OPpMAYBE_LVSUB' for qw(aassign aelem akeys aslice av2arylen avhvswitch helem hslice keys kvaslice kvhslice multideref padav padhv pos rv2av rv2gv rv2hv substr values vec); $bits{$_}{4} = 'OPpMAYBE_TRUEBOOL' for qw(padhv ref rv2hv); $bits{$_}{7} = 'OPpOFFBYONE' for qw(caller runcv wantarray); $bits{$_}{5} = 'OPpOPEN_IN_CRLF' for qw(backtick open); $bits{$_}{4} = 'OPpOPEN_IN_RAW' for qw(backtick open); $bits{$_}{7} = 'OPpOPEN_OUT_CRLF' for qw(backtick open); $bits{$_}{6} = 'OPpOPEN_OUT_RAW' for qw(backtick open); $bits{$_}{6} = 'OPpOUR_INTRO' for qw(enteriter gvsv rv2av rv2hv rv2sv split); $bits{$_}{6} = 'OPpPAD_STATE' for qw(lvavref lvref padav padhv padsv pushmark refassign); $bits{$_}{7} = 'OPpPV_IS_UTF8' for qw(dump goto last next redo); $bits{$_}{6} = 'OPpREFCOUNTED' for qw(leave leaveeval leavesub leavesublv leavewrite); $bits{$_}{2} = 'OPpSLICEWARNING' for qw(aslice hslice padav padhv rv2av rv2hv); $bits{$_}{4} = 'OPpTARGET_MY' for qw(abs add atan2 chdir chmod chomp chown chr chroot concat cos crypt divide exec exp flock getpgrp getppid getpriority hex i_add i_divide i_modulo i_multiply i_subtract index int kill left_shift length link log mkdir modulo multiconcat multiply nbit_and nbit_or nbit_xor ncomplement oct ord pow push rand rename right_shift rindex rmdir schomp scomplement setpgrp setpriority sin sleep sqrt srand stringify subtract symlink system time unlink unshift utime wait waitpid); $bits{$_}{0} = 'OPpTRANS_CAN_FORCE_UTF8' for qw(trans transr); $bits{$_}{5} = 'OPpTRANS_COMPLEMENT' for qw(trans transr); $bits{$_}{7} = 'OPpTRANS_DELETE' for qw(trans transr); $bits{$_}{6} = 'OPpTRANS_GROWS' for qw(trans transr); $bits{$_}{2} = 'OPpTRANS_IDENTICAL' for qw(trans transr); $bits{$_}{3} = 'OPpTRANS_SQUASH' for qw(trans transr); $bits{$_}{1} = 'OPpTRANS_USE_SVOP' for qw(trans transr); $bits{$_}{5} = 'OPpTRUEBOOL' for qw(grepwhile index length padav padhv pos ref rindex rv2av rv2hv subst); my @bf = ( { label => '-', mask_def => 'OPpARG1_MASK', bitmin => 0, bitmax => 0, bitmask => 1, }, { label => '-', mask_def => 'OPpARG2_MASK', bitmin => 0, bitmax => 1, bitmask => 3, }, { label => 'offset', mask_def => 'OPpAVHVSWITCH_MASK', bitmin => 0, bitmax => 1, bitmask => 3, }, { label => '-', mask_def => 'OPpARG3_MASK', bitmin => 0, bitmax => 2, bitmask => 7, }, { label => '-', mask_def => 'OPpARG4_MASK', bitmin => 0, bitmax => 3, bitmask => 15, }, { label => 'range', mask_def => 'OPpPADRANGE_COUNTMASK', bitcount_def => 'OPpPADRANGE_COUNTSHIFT', bitmin => 0, bitmax => 6, bitmask => 127, }, { label => 'key', bitmin => 0, bitmax => 7, bitmask => 255, }, { mask_def => 'OPpARGELEM_MASK', bitmin => 1, bitmax => 2, bitmask => 6, enum => [ 0, 'OPpARGELEM_SV', 'SV', 1, 'OPpARGELEM_AV', 'AV', 2, 'OPpARGELEM_HV', 'HV', ], }, { mask_def => 'OPpDEREF', bitmin => 4, bitmax => 5, bitmask => 48, enum => [ 1, 'OPpDEREF_AV', 'DREFAV', 2, 'OPpDEREF_HV', 'DREFHV', 3, 'OPpDEREF_SV', 'DREFSV', ], }, { mask_def => 'OPpLVREF_TYPE', bitmin => 4, bitmax => 5, bitmask => 48, enum => [ 0, 'OPpLVREF_SV', 'SV', 1, 'OPpLVREF_AV', 'AV', 2, 'OPpLVREF_HV', 'HV', 3, 'OPpLVREF_CV', 'CV', ], }, ); @{$bits{aassign}}{6,5,4,2,1,0} = ('OPpASSIGN_COMMON_SCALAR', 'OPpASSIGN_COMMON_RC1', 'OPpASSIGN_COMMON_AGG', 'OPpASSIGN_TRUEBOOL', $bf[1], $bf[1]); $bits{abs}{0} = $bf[0]; @{$bits{accept}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{add}}{1,0} = ($bf[1], $bf[1]); $bits{aeach}{0} = $bf[0]; @{$bits{aelem}}{5,4,1,0} = ($bf[8], $bf[8], $bf[1], $bf[1]); @{$bits{aelemfast}}{7,6,5,4,3,2,1,0} = ($bf[6], $bf[6], $bf[6], $bf[6], $bf[6], $bf[6], $bf[6], $bf[6]); @{$bits{aelemfast_lex}}{7,6,5,4,3,2,1,0} = ($bf[6], $bf[6], $bf[6], $bf[6], $bf[6], $bf[6], $bf[6], $bf[6]); $bits{akeys}{0} = $bf[0]; $bits{alarm}{0} = $bf[0]; $bits{and}{0} = $bf[0]; $bits{andassign}{0} = $bf[0]; $bits{anonconst}{0} = $bf[0]; @{$bits{anonhash}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{anonlist}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{argcheck}{0} = $bf[0]; $bits{argdefelem}{0} = $bf[0]; @{$bits{argelem}}{2,1,0} = ($bf[7], $bf[7], $bf[0]); @{$bits{atan2}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{av2arylen}{0} = $bf[0]; $bits{avalues}{0} = $bf[0]; @{$bits{avhvswitch}}{1,0} = ($bf[2], $bf[2]); $bits{backtick}{0} = $bf[0]; @{$bits{bind}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{binmode}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{bit_and}}{1,0} = ($bf[1], $bf[1]); @{$bits{bit_or}}{1,0} = ($bf[1], $bf[1]); @{$bits{bit_xor}}{1,0} = ($bf[1], $bf[1]); @{$bits{bless}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{caller}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{catch}{0} = $bf[0]; @{$bits{chdir}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{chmod}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{chomp}{0} = $bf[0]; $bits{chop}{0} = $bf[0]; @{$bits{chown}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{chr}{0} = $bf[0]; $bits{chroot}{0} = $bf[0]; @{$bits{close}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{closedir}{0} = $bf[0]; $bits{cmpchain_and}{0} = $bf[0]; $bits{cmpchain_dup}{0} = $bf[0]; $bits{complement}{0} = $bf[0]; @{$bits{concat}}{6,1,0} = ('OPpCONCAT_NESTED', $bf[1], $bf[1]); $bits{cond_expr}{0} = $bf[0]; @{$bits{connect}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{const}}{6,4,3,2,1} = ('OPpCONST_BARE', 'OPpCONST_ENTERED', 'OPpCONST_STRICT', 'OPpCONST_SHORTCIRCUIT', 'OPpCONST_NOVER'); @{$bits{coreargs}}{7,6,1,0} = ('OPpCOREARGS_PUSHMARK', 'OPpCOREARGS_SCALARMOD', 'OPpCOREARGS_DEREF2', 'OPpCOREARGS_DEREF1'); $bits{cos}{0} = $bf[0]; @{$bits{crypt}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{dbmclose}{0} = $bf[0]; @{$bits{dbmopen}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{defined}{0} = $bf[0]; @{$bits{delete}}{6,5,0} = ('OPpSLICE', 'OPpKVSLICE', $bf[0]); @{$bits{die}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{divide}}{1,0} = ($bf[1], $bf[1]); $bits{dofile}{0} = $bf[0]; $bits{dor}{0} = $bf[0]; $bits{dorassign}{0} = $bf[0]; $bits{dump}{0} = $bf[0]; $bits{each}{0} = $bf[0]; @{$bits{entereval}}{5,4,3,2,1,0} = ('OPpEVAL_RE_REPARSING', 'OPpEVAL_COPHH', 'OPpEVAL_BYTES', 'OPpEVAL_UNICODE', 'OPpEVAL_HAS_HH', $bf[0]); $bits{entergiven}{0} = $bf[0]; $bits{enteriter}{3} = 'OPpITER_DEF'; @{$bits{entersub}}{5,4,0} = ($bf[8], $bf[8], 'OPpENTERSUB_INARGS'); $bits{entertry}{0} = $bf[0]; $bits{entertrycatch}{0} = $bf[0]; $bits{enterwhen}{0} = $bf[0]; @{$bits{enterwrite}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{eof}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{eq}}{1,0} = ($bf[1], $bf[1]); @{$bits{exec}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{exists}}{6,0} = ('OPpEXISTS_SUB', $bf[0]); @{$bits{exit}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{exp}{0} = $bf[0]; $bits{fc}{0} = $bf[0]; @{$bits{fcntl}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{fileno}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{flip}{0} = $bf[0]; @{$bits{flock}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{flop}{0} = $bf[0]; @{$bits{formline}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{ftatime}{0} = $bf[0]; $bits{ftbinary}{0} = $bf[0]; $bits{ftblk}{0} = $bf[0]; $bits{ftchr}{0} = $bf[0]; $bits{ftctime}{0} = $bf[0]; $bits{ftdir}{0} = $bf[0]; $bits{fteexec}{0} = $bf[0]; $bits{fteowned}{0} = $bf[0]; $bits{fteread}{0} = $bf[0]; $bits{ftewrite}{0} = $bf[0]; $bits{ftfile}{0} = $bf[0]; $bits{ftis}{0} = $bf[0]; $bits{ftlink}{0} = $bf[0]; $bits{ftmtime}{0} = $bf[0]; $bits{ftpipe}{0} = $bf[0]; $bits{ftrexec}{0} = $bf[0]; $bits{ftrowned}{0} = $bf[0]; $bits{ftrread}{0} = $bf[0]; $bits{ftrwrite}{0} = $bf[0]; $bits{ftsgid}{0} = $bf[0]; $bits{ftsize}{0} = $bf[0]; $bits{ftsock}{0} = $bf[0]; $bits{ftsuid}{0} = $bf[0]; $bits{ftsvtx}{0} = $bf[0]; $bits{fttext}{0} = $bf[0]; $bits{fttty}{0} = $bf[0]; $bits{ftzero}{0} = $bf[0]; @{$bits{ge}}{1,0} = ($bf[1], $bf[1]); @{$bits{gelem}}{1,0} = ($bf[1], $bf[1]); @{$bits{getc}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{getpeername}{0} = $bf[0]; @{$bits{getpgrp}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{getpriority}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{getsockname}{0} = $bf[0]; $bits{ggrgid}{0} = $bf[0]; $bits{ggrnam}{0} = $bf[0]; @{$bits{ghbyaddr}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{ghbyname}{0} = $bf[0]; @{$bits{glob}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{gmtime}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{gnbyaddr}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{gnbyname}{0} = $bf[0]; $bits{goto}{0} = $bf[0]; $bits{gpbyname}{0} = $bf[0]; @{$bits{gpbynumber}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{gpwnam}{0} = $bf[0]; $bits{gpwuid}{0} = $bf[0]; $bits{grepstart}{0} = $bf[0]; $bits{grepwhile}{0} = $bf[0]; @{$bits{gsbyname}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{gsbyport}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{gsockopt}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{gt}}{1,0} = ($bf[1], $bf[1]); $bits{gv}{5} = 'OPpEARLY_CV'; @{$bits{helem}}{5,4,1,0} = ($bf[8], $bf[8], $bf[1], $bf[1]); $bits{hex}{0} = $bf[0]; @{$bits{i_add}}{1,0} = ($bf[1], $bf[1]); @{$bits{i_divide}}{1,0} = ($bf[1], $bf[1]); @{$bits{i_eq}}{1,0} = ($bf[1], $bf[1]); @{$bits{i_ge}}{1,0} = ($bf[1], $bf[1]); @{$bits{i_gt}}{1,0} = ($bf[1], $bf[1]); @{$bits{i_le}}{1,0} = ($bf[1], $bf[1]); @{$bits{i_lt}}{1,0} = ($bf[1], $bf[1]); @{$bits{i_modulo}}{1,0} = ($bf[1], $bf[1]); @{$bits{i_multiply}}{1,0} = ($bf[1], $bf[1]); @{$bits{i_ncmp}}{1,0} = ($bf[1], $bf[1]); @{$bits{i_ne}}{1,0} = ($bf[1], $bf[1]); $bits{i_negate}{0} = $bf[0]; $bits{i_postdec}{0} = $bf[0]; $bits{i_postinc}{0} = $bf[0]; $bits{i_predec}{0} = $bf[0]; $bits{i_preinc}{0} = $bf[0]; @{$bits{i_subtract}}{1,0} = ($bf[1], $bf[1]); @{$bits{index}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{int}{0} = $bf[0]; @{$bits{ioctl}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{isa}}{1,0} = ($bf[1], $bf[1]); @{$bits{join}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{keys}{0} = $bf[0]; @{$bits{kill}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{last}{0} = $bf[0]; $bits{lc}{0} = $bf[0]; $bits{lcfirst}{0} = $bf[0]; @{$bits{le}}{1,0} = ($bf[1], $bf[1]); $bits{leaveeval}{0} = $bf[0]; $bits{leavegiven}{0} = $bf[0]; @{$bits{leaveloop}}{1,0} = ($bf[1], $bf[1]); $bits{leavesub}{0} = $bf[0]; $bits{leavesublv}{0} = $bf[0]; $bits{leavewhen}{0} = $bf[0]; $bits{leavewrite}{0} = $bf[0]; @{$bits{left_shift}}{1,0} = ($bf[1], $bf[1]); $bits{length}{0} = $bf[0]; @{$bits{link}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{list}{6} = 'OPpLIST_GUESSED'; @{$bits{listen}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{localtime}{0} = $bf[0]; $bits{lock}{0} = $bf[0]; $bits{log}{0} = $bf[0]; @{$bits{lslice}}{1,0} = ($bf[1], $bf[1]); $bits{lstat}{0} = $bf[0]; @{$bits{lt}}{1,0} = ($bf[1], $bf[1]); $bits{lvavref}{0} = $bf[0]; @{$bits{lvref}}{5,4,0} = ($bf[9], $bf[9], $bf[0]); $bits{mapstart}{0} = $bf[0]; $bits{mapwhile}{0} = $bf[0]; $bits{method}{0} = $bf[0]; $bits{method_named}{0} = $bf[0]; $bits{method_redir}{0} = $bf[0]; $bits{method_redir_super}{0} = $bf[0]; $bits{method_super}{0} = $bf[0]; @{$bits{mkdir}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{modulo}}{1,0} = ($bf[1], $bf[1]); @{$bits{msgctl}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{msgget}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{msgrcv}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{msgsnd}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{multiconcat}}{6,5,3,0} = ('OPpMULTICONCAT_APPEND', 'OPpMULTICONCAT_FAKE', 'OPpMULTICONCAT_STRINGIFY', $bf[0]); @{$bits{multideref}}{5,4,0} = ('OPpMULTIDEREF_DELETE', 'OPpMULTIDEREF_EXISTS', $bf[0]); @{$bits{multiply}}{1,0} = ($bf[1], $bf[1]); @{$bits{nbit_and}}{1,0} = ($bf[1], $bf[1]); @{$bits{nbit_or}}{1,0} = ($bf[1], $bf[1]); @{$bits{nbit_xor}}{1,0} = ($bf[1], $bf[1]); @{$bits{ncmp}}{1,0} = ($bf[1], $bf[1]); $bits{ncomplement}{0} = $bf[0]; @{$bits{ne}}{1,0} = ($bf[1], $bf[1]); $bits{negate}{0} = $bf[0]; $bits{next}{0} = $bf[0]; $bits{not}{0} = $bf[0]; $bits{oct}{0} = $bf[0]; $bits{once}{0} = $bf[0]; @{$bits{open}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{open_dir}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{or}{0} = $bf[0]; $bits{orassign}{0} = $bf[0]; $bits{ord}{0} = $bf[0]; @{$bits{pack}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{padhv}{0} = 'OPpPADHV_ISKEYS'; @{$bits{padrange}}{6,5,4,3,2,1,0} = ($bf[5], $bf[5], $bf[5], $bf[5], $bf[5], $bf[5], $bf[5]); @{$bits{padsv}}{5,4} = ($bf[8], $bf[8]); @{$bits{pipe_op}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{pop}{0} = $bf[0]; $bits{pos}{0} = $bf[0]; $bits{postdec}{0} = $bf[0]; $bits{postinc}{0} = $bf[0]; @{$bits{pow}}{1,0} = ($bf[1], $bf[1]); $bits{predec}{0} = $bf[0]; $bits{preinc}{0} = $bf[0]; $bits{prototype}{0} = $bf[0]; @{$bits{push}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{quotemeta}{0} = $bf[0]; @{$bits{rand}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{range}{0} = $bf[0]; @{$bits{read}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{readdir}{0} = $bf[0]; $bits{readline}{0} = $bf[0]; $bits{readlink}{0} = $bf[0]; @{$bits{recv}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{redo}{0} = $bf[0]; $bits{ref}{0} = $bf[0]; @{$bits{refassign}}{5,4,1,0} = ($bf[9], $bf[9], $bf[1], $bf[1]); $bits{refgen}{0} = $bf[0]; $bits{regcmaybe}{0} = $bf[0]; $bits{regcomp}{0} = $bf[0]; $bits{regcreset}{0} = $bf[0]; @{$bits{rename}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{repeat}}{6,1,0} = ('OPpREPEAT_DOLIST', $bf[1], $bf[1]); $bits{require}{0} = $bf[0]; @{$bits{reset}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{reverse}}{3,0} = ('OPpREVERSE_INPLACE', $bf[0]); $bits{rewinddir}{0} = $bf[0]; @{$bits{right_shift}}{1,0} = ($bf[1], $bf[1]); @{$bits{rindex}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{rmdir}{0} = $bf[0]; $bits{rv2av}{0} = $bf[0]; @{$bits{rv2cv}}{7,5,0} = ('OPpENTERSUB_NOPAREN', 'OPpMAY_RETURN_CONSTANT', $bf[0]); @{$bits{rv2gv}}{6,5,4,2,0} = ('OPpALLOW_FAKE', $bf[8], $bf[8], 'OPpDONT_INIT_GV', $bf[0]); $bits{rv2hv}{0} = 'OPpRV2HV_ISKEYS'; @{$bits{rv2sv}}{5,4,0} = ($bf[8], $bf[8], $bf[0]); @{$bits{sassign}}{7,6,1,0} = ('OPpASSIGN_CV_TO_GV', 'OPpASSIGN_BACKWARDS', $bf[1], $bf[1]); @{$bits{sbit_and}}{1,0} = ($bf[1], $bf[1]); @{$bits{sbit_or}}{1,0} = ($bf[1], $bf[1]); @{$bits{sbit_xor}}{1,0} = ($bf[1], $bf[1]); $bits{scalar}{0} = $bf[0]; $bits{schomp}{0} = $bf[0]; $bits{schop}{0} = $bf[0]; @{$bits{scmp}}{1,0} = ($bf[1], $bf[1]); $bits{scomplement}{0} = $bf[0]; @{$bits{seek}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{seekdir}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{select}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{semctl}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{semget}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{semop}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{send}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{seq}}{1,0} = ($bf[1], $bf[1]); @{$bits{setpgrp}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{setpriority}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{sge}}{1,0} = ($bf[1], $bf[1]); @{$bits{sgt}}{1,0} = ($bf[1], $bf[1]); $bits{shift}{0} = $bf[0]; @{$bits{shmctl}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{shmget}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{shmread}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{shmwrite}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{shostent}{0} = $bf[0]; @{$bits{shutdown}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{sin}{0} = $bf[0]; @{$bits{sle}}{1,0} = ($bf[1], $bf[1]); @{$bits{sleep}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{slt}}{1,0} = ($bf[1], $bf[1]); @{$bits{smartmatch}}{1,0} = ($bf[1], $bf[1]); @{$bits{sne}}{1,0} = ($bf[1], $bf[1]); $bits{snetent}{0} = $bf[0]; @{$bits{socket}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{sockpair}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{sort}}{7,6,4,3,2,1,0} = ('OPpSORT_UNSTABLE', 'OPpSORT_STABLE', 'OPpSORT_DESCEND', 'OPpSORT_INPLACE', 'OPpSORT_REVERSE', 'OPpSORT_INTEGER', 'OPpSORT_NUMERIC'); @{$bits{splice}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{split}}{4,3,2} = ('OPpSPLIT_ASSIGN', 'OPpSPLIT_LEX', 'OPpSPLIT_IMPLIM'); @{$bits{sprintf}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{sprotoent}{0} = $bf[0]; $bits{sqrt}{0} = $bf[0]; @{$bits{srand}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{srefgen}{0} = $bf[0]; @{$bits{sselect}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{sservent}{0} = $bf[0]; @{$bits{ssockopt}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{stat}{0} = $bf[0]; @{$bits{stringify}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{study}{0} = $bf[0]; $bits{substcont}{0} = $bf[0]; @{$bits{substr}}{4,2,1,0} = ('OPpSUBSTR_REPL_FIRST', $bf[3], $bf[3], $bf[3]); @{$bits{subtract}}{1,0} = ($bf[1], $bf[1]); @{$bits{symlink}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{syscall}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{sysopen}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{sysread}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{sysseek}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{system}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{syswrite}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{tell}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{telldir}{0} = $bf[0]; @{$bits{tie}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{tied}{0} = $bf[0]; @{$bits{truncate}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{uc}{0} = $bf[0]; $bits{ucfirst}{0} = $bf[0]; @{$bits{umask}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{undef}{0} = $bf[0]; @{$bits{unlink}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{unpack}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{unshift}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{untie}{0} = $bf[0]; @{$bits{utime}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); $bits{values}{0} = $bf[0]; @{$bits{vec}}{1,0} = ($bf[1], $bf[1]); @{$bits{waitpid}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{warn}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{xor}}{1,0} = ($bf[1], $bf[1]); our %defines = ( OPpALLOW_FAKE => 64, OPpARG1_MASK => 1, OPpARG2_MASK => 3, OPpARG3_MASK => 7, OPpARG4_MASK => 15, OPpARGELEM_AV => 2, OPpARGELEM_HV => 4, OPpARGELEM_MASK => 6, OPpARGELEM_SV => 0, OPpASSIGN_BACKWARDS => 64, OPpASSIGN_COMMON_AGG => 16, OPpASSIGN_COMMON_RC1 => 32, OPpASSIGN_COMMON_SCALAR => 64, OPpASSIGN_CV_TO_GV => 128, OPpASSIGN_TRUEBOOL => 4, OPpAVHVSWITCH_MASK => 3, OPpCONCAT_NESTED => 64, OPpCONST_BARE => 64, OPpCONST_ENTERED => 16, OPpCONST_NOVER => 2, OPpCONST_SHORTCIRCUIT => 4, OPpCONST_STRICT => 8, OPpCOREARGS_DEREF1 => 1, OPpCOREARGS_DEREF2 => 2, OPpCOREARGS_PUSHMARK => 128, OPpCOREARGS_SCALARMOD => 64, OPpDEREF => 48, OPpDEREF_AV => 16, OPpDEREF_HV => 32, OPpDEREF_SV => 48, OPpDONT_INIT_GV => 4, OPpEARLY_CV => 32, OPpENTERSUB_AMPER => 8, OPpENTERSUB_DB => 64, OPpENTERSUB_HASTARG => 4, OPpENTERSUB_INARGS => 1, OPpENTERSUB_NOPAREN => 128, OPpEVAL_BYTES => 8, OPpEVAL_COPHH => 16, OPpEVAL_HAS_HH => 2, OPpEVAL_RE_REPARSING => 32, OPpEVAL_UNICODE => 4, OPpEXISTS_SUB => 64, OPpFLIP_LINENUM => 64, OPpFT_ACCESS => 2, OPpFT_AFTER_t => 16, OPpFT_STACKED => 4, OPpFT_STACKING => 8, OPpHINT_STRICT_REFS => 2, OPpHUSH_VMSISH => 32, OPpINDEX_BOOLNEG => 64, OPpITER_DEF => 8, OPpITER_REVERSED => 2, OPpKVSLICE => 32, OPpLIST_GUESSED => 64, OPpLVALUE => 128, OPpLVAL_DEFER => 64, OPpLVAL_INTRO => 128, OPpLVREF_AV => 16, OPpLVREF_CV => 48, OPpLVREF_ELEM => 4, OPpLVREF_HV => 32, OPpLVREF_ITER => 8, OPpLVREF_SV => 0, OPpLVREF_TYPE => 48, OPpMAYBE_LVSUB => 8, OPpMAYBE_TRUEBOOL => 16, OPpMAY_RETURN_CONSTANT => 32, OPpMULTICONCAT_APPEND => 64, OPpMULTICONCAT_FAKE => 32, OPpMULTICONCAT_STRINGIFY => 8, OPpMULTIDEREF_DELETE => 32, OPpMULTIDEREF_EXISTS => 16, OPpOFFBYONE => 128, OPpOPEN_IN_CRLF => 32, OPpOPEN_IN_RAW => 16, OPpOPEN_OUT_CRLF => 128, OPpOPEN_OUT_RAW => 64, OPpOUR_INTRO => 64, OPpPADHV_ISKEYS => 1, OPpPADRANGE_COUNTMASK => 127, OPpPADRANGE_COUNTSHIFT => 7, OPpPAD_STATE => 64, OPpPV_IS_UTF8 => 128, OPpREFCOUNTED => 64, OPpREPEAT_DOLIST => 64, OPpREVERSE_INPLACE => 8, OPpRV2HV_ISKEYS => 1, OPpSLICE => 64, OPpSLICEWARNING => 4, OPpSORT_DESCEND => 16, OPpSORT_INPLACE => 8, OPpSORT_INTEGER => 2, OPpSORT_NUMERIC => 1, OPpSORT_REVERSE => 4, OPpSORT_STABLE => 64, OPpSORT_UNSTABLE => 128, OPpSPLIT_ASSIGN => 16, OPpSPLIT_IMPLIM => 4, OPpSPLIT_LEX => 8, OPpSUBSTR_REPL_FIRST => 16, OPpTARGET_MY => 16, OPpTRANS_CAN_FORCE_UTF8 => 1, OPpTRANS_COMPLEMENT => 32, OPpTRANS_DELETE => 128, OPpTRANS_GROWS => 64, OPpTRANS_IDENTICAL => 4, OPpTRANS_SQUASH => 8, OPpTRANS_USE_SVOP => 2, OPpTRUEBOOL => 32, ); our %labels = ( OPpALLOW_FAKE => 'FAKE', OPpARGELEM_AV => 'AV', OPpARGELEM_HV => 'HV', OPpARGELEM_SV => 'SV', OPpASSIGN_BACKWARDS => 'BKWARD', OPpASSIGN_COMMON_AGG => 'COM_AGG', OPpASSIGN_COMMON_RC1 => 'COM_RC1', OPpASSIGN_COMMON_SCALAR => 'COM_SCALAR', OPpASSIGN_CV_TO_GV => 'CV2GV', OPpASSIGN_TRUEBOOL => 'BOOL', OPpCONCAT_NESTED => 'NESTED', OPpCONST_BARE => 'BARE', OPpCONST_ENTERED => 'ENTERED', OPpCONST_NOVER => 'NOVER', OPpCONST_SHORTCIRCUIT => 'SHORT', OPpCONST_STRICT => 'STRICT', OPpCOREARGS_DEREF1 => 'DEREF1', OPpCOREARGS_DEREF2 => 'DEREF2', OPpCOREARGS_PUSHMARK => 'MARK', OPpCOREARGS_SCALARMOD => '$MOD', OPpDEREF_AV => 'DREFAV', OPpDEREF_HV => 'DREFHV', OPpDEREF_SV => 'DREFSV', OPpDONT_INIT_GV => 'NOINIT', OPpEARLY_CV => 'EARLYCV', OPpENTERSUB_AMPER => 'AMPER', OPpENTERSUB_DB => 'DBG', OPpENTERSUB_HASTARG => 'TARG', OPpENTERSUB_INARGS => 'INARGS', OPpENTERSUB_NOPAREN => 'NO()', OPpEVAL_BYTES => 'BYTES', OPpEVAL_COPHH => 'COPHH', OPpEVAL_HAS_HH => 'HAS_HH', OPpEVAL_RE_REPARSING => 'REPARSE', OPpEVAL_UNICODE => 'UNI', OPpEXISTS_SUB => 'SUB', OPpFLIP_LINENUM => 'LINENUM', OPpFT_ACCESS => 'FTACCESS', OPpFT_AFTER_t => 'FTAFTERt', OPpFT_STACKED => 'FTSTACKED', OPpFT_STACKING => 'FTSTACKING', OPpHINT_STRICT_REFS => 'STRICT', OPpHUSH_VMSISH => 'HUSH', OPpINDEX_BOOLNEG => 'NEG', OPpITER_DEF => 'DEF', OPpITER_REVERSED => 'REVERSED', OPpKVSLICE => 'KVSLICE', OPpLIST_GUESSED => 'GUESSED', OPpLVALUE => 'LV', OPpLVAL_DEFER => 'LVDEFER', OPpLVAL_INTRO => 'LVINTRO', OPpLVREF_AV => 'AV', OPpLVREF_CV => 'CV', OPpLVREF_ELEM => 'ELEM', OPpLVREF_HV => 'HV', OPpLVREF_ITER => 'ITER', OPpLVREF_SV => 'SV', OPpMAYBE_LVSUB => 'LVSUB', OPpMAYBE_TRUEBOOL => 'BOOL?', OPpMAY_RETURN_CONSTANT => 'CONST', OPpMULTICONCAT_APPEND => 'APPEND', OPpMULTICONCAT_FAKE => 'FAKE', OPpMULTICONCAT_STRINGIFY => 'STRINGIFY', OPpMULTIDEREF_DELETE => 'DELETE', OPpMULTIDEREF_EXISTS => 'EXISTS', OPpOFFBYONE => '+1', OPpOPEN_IN_CRLF => 'INCR', OPpOPEN_IN_RAW => 'INBIN', OPpOPEN_OUT_CRLF => 'OUTCR', OPpOPEN_OUT_RAW => 'OUTBIN', OPpOUR_INTRO => 'OURINTR', OPpPADHV_ISKEYS => 'KEYS', OPpPAD_STATE => 'STATE', OPpPV_IS_UTF8 => 'UTF', OPpREFCOUNTED => 'REFC', OPpREPEAT_DOLIST => 'DOLIST', OPpREVERSE_INPLACE => 'INPLACE', OPpRV2HV_ISKEYS => 'KEYS', OPpSLICE => 'SLICE', OPpSLICEWARNING => 'SLICEWARN', OPpSORT_DESCEND => 'DESC', OPpSORT_INPLACE => 'INPLACE', OPpSORT_INTEGER => 'INT', OPpSORT_NUMERIC => 'NUM', OPpSORT_REVERSE => 'REV', OPpSORT_STABLE => 'STABLE', OPpSORT_UNSTABLE => 'UNSTABLE', OPpSPLIT_ASSIGN => 'ASSIGN', OPpSPLIT_IMPLIM => 'IMPLIM', OPpSPLIT_LEX => 'LEX', OPpSUBSTR_REPL_FIRST => 'REPL1ST', OPpTARGET_MY => 'TARGMY', OPpTRANS_CAN_FORCE_UTF8 => 'CAN_FORCE_UTF8', OPpTRANS_COMPLEMENT => 'COMPL', OPpTRANS_DELETE => 'DEL', OPpTRANS_GROWS => 'GROWS', OPpTRANS_IDENTICAL => 'IDENT', OPpTRANS_SQUASH => 'SQUASH', OPpTRANS_USE_SVOP => 'USE_SVOP', OPpTRUEBOOL => 'BOOL', ); our %ops_using = ( OPpALLOW_FAKE => [qw(rv2gv)], OPpASSIGN_BACKWARDS => [qw(sassign)], OPpASSIGN_COMMON_AGG => [qw(aassign)], OPpCONCAT_NESTED => [qw(concat)], OPpCONST_BARE => [qw(const)], OPpCOREARGS_DEREF1 => [qw(coreargs)], OPpEARLY_CV => [qw(gv)], OPpENTERSUB_AMPER => [qw(entersub rv2cv)], OPpENTERSUB_INARGS => [qw(entersub)], OPpENTERSUB_NOPAREN => [qw(rv2cv)], OPpEVAL_BYTES => [qw(entereval)], OPpEXISTS_SUB => [qw(exists)], OPpFLIP_LINENUM => [qw(flip flop)], OPpFT_ACCESS => [qw(fteexec fteread ftewrite ftrexec ftrread ftrwrite)], OPpFT_AFTER_t => [qw(ftatime ftbinary ftblk ftchr ftctime ftdir fteexec fteowned fteread ftewrite ftfile ftis ftlink ftmtime ftpipe ftrexec ftrowned ftrread ftrwrite ftsgid ftsize ftsock ftsuid ftsvtx fttext fttty ftzero)], OPpHINT_STRICT_REFS => [qw(entersub multideref rv2av rv2cv rv2gv rv2hv rv2sv)], OPpHUSH_VMSISH => [qw(dbstate nextstate)], OPpINDEX_BOOLNEG => [qw(index rindex)], OPpITER_DEF => [qw(enteriter)], OPpITER_REVERSED => [qw(enteriter iter)], OPpKVSLICE => [qw(delete)], OPpLIST_GUESSED => [qw(list)], OPpLVALUE => [qw(leave leaveloop)], OPpLVAL_DEFER => [qw(aelem helem multideref)], OPpLVAL_INTRO => [qw(aelem aslice cond_expr delete enteriter entersub gvsv helem hslice list lvavref lvref lvrefslice multiconcat multideref padav padhv padrange padsv pushmark refassign rv2av rv2gv rv2hv rv2sv split)], OPpLVREF_ELEM => [qw(lvref refassign)], OPpMAYBE_LVSUB => [qw(aassign aelem akeys aslice av2arylen avhvswitch helem hslice keys kvaslice kvhslice multideref padav padhv pos rv2av rv2gv rv2hv substr values vec)], OPpMAYBE_TRUEBOOL => [qw(padhv ref rv2hv)], OPpMULTICONCAT_APPEND => [qw(multiconcat)], OPpMULTIDEREF_DELETE => [qw(multideref)], OPpOFFBYONE => [qw(caller runcv wantarray)], OPpOPEN_IN_CRLF => [qw(backtick open)], OPpOUR_INTRO => [qw(enteriter gvsv rv2av rv2hv rv2sv split)], OPpPADHV_ISKEYS => [qw(padhv)], OPpPAD_STATE => [qw(lvavref lvref padav padhv padsv pushmark refassign)], OPpPV_IS_UTF8 => [qw(dump goto last next redo)], OPpREFCOUNTED => [qw(leave leaveeval leavesub leavesublv leavewrite)], OPpREPEAT_DOLIST => [qw(repeat)], OPpREVERSE_INPLACE => [qw(reverse)], OPpRV2HV_ISKEYS => [qw(rv2hv)], OPpSLICEWARNING => [qw(aslice hslice padav padhv rv2av rv2hv)], OPpSORT_DESCEND => [qw(sort)], OPpSPLIT_ASSIGN => [qw(split)], OPpSUBSTR_REPL_FIRST => [qw(substr)], OPpTARGET_MY => [qw(abs add atan2 chdir chmod chomp chown chr chroot concat cos crypt divide exec exp flock getpgrp getppid getpriority hex i_add i_divide i_modulo i_multiply i_subtract index int kill left_shift length link log mkdir modulo multiconcat multiply nbit_and nbit_or nbit_xor ncomplement oct ord pow push rand rename right_shift rindex rmdir schomp scomplement setpgrp setpriority sin sleep sqrt srand stringify subtract symlink system time unlink unshift utime wait waitpid)], OPpTRANS_CAN_FORCE_UTF8 => [qw(trans transr)], OPpTRUEBOOL => [qw(grepwhile index length padav padhv pos ref rindex rv2av rv2hv subst)], ); $ops_using{OPpASSIGN_COMMON_RC1} = $ops_using{OPpASSIGN_COMMON_AGG}; $ops_using{OPpASSIGN_COMMON_SCALAR} = $ops_using{OPpASSIGN_COMMON_AGG}; $ops_using{OPpASSIGN_CV_TO_GV} = $ops_using{OPpASSIGN_BACKWARDS}; $ops_using{OPpASSIGN_TRUEBOOL} = $ops_using{OPpASSIGN_COMMON_AGG}; $ops_using{OPpCONST_ENTERED} = $ops_using{OPpCONST_BARE}; $ops_using{OPpCONST_NOVER} = $ops_using{OPpCONST_BARE}; $ops_using{OPpCONST_SHORTCIRCUIT} = $ops_using{OPpCONST_BARE}; $ops_using{OPpCONST_STRICT} = $ops_using{OPpCONST_BARE}; $ops_using{OPpCOREARGS_DEREF2} = $ops_using{OPpCOREARGS_DEREF1}; $ops_using{OPpCOREARGS_PUSHMARK} = $ops_using{OPpCOREARGS_DEREF1}; $ops_using{OPpCOREARGS_SCALARMOD} = $ops_using{OPpCOREARGS_DEREF1}; $ops_using{OPpDONT_INIT_GV} = $ops_using{OPpALLOW_FAKE}; $ops_using{OPpENTERSUB_DB} = $ops_using{OPpENTERSUB_AMPER}; $ops_using{OPpENTERSUB_HASTARG} = $ops_using{OPpENTERSUB_AMPER}; $ops_using{OPpEVAL_COPHH} = $ops_using{OPpEVAL_BYTES}; $ops_using{OPpEVAL_HAS_HH} = $ops_using{OPpEVAL_BYTES}; $ops_using{OPpEVAL_RE_REPARSING} = $ops_using{OPpEVAL_BYTES}; $ops_using{OPpEVAL_UNICODE} = $ops_using{OPpEVAL_BYTES}; $ops_using{OPpFT_STACKED} = $ops_using{OPpFT_AFTER_t}; $ops_using{OPpFT_STACKING} = $ops_using{OPpFT_AFTER_t}; $ops_using{OPpLVREF_ITER} = $ops_using{OPpLVREF_ELEM}; $ops_using{OPpMAY_RETURN_CONSTANT} = $ops_using{OPpENTERSUB_NOPAREN}; $ops_using{OPpMULTICONCAT_FAKE} = $ops_using{OPpMULTICONCAT_APPEND}; $ops_using{OPpMULTICONCAT_STRINGIFY} = $ops_using{OPpMULTICONCAT_APPEND}; $ops_using{OPpMULTIDEREF_EXISTS} = $ops_using{OPpMULTIDEREF_DELETE}; $ops_using{OPpOPEN_IN_RAW} = $ops_using{OPpOPEN_IN_CRLF}; $ops_using{OPpOPEN_OUT_CRLF} = $ops_using{OPpOPEN_IN_CRLF}; $ops_using{OPpOPEN_OUT_RAW} = $ops_using{OPpOPEN_IN_CRLF}; $ops_using{OPpSLICE} = $ops_using{OPpKVSLICE}; $ops_using{OPpSORT_INPLACE} = $ops_using{OPpSORT_DESCEND}; $ops_using{OPpSORT_INTEGER} = $ops_using{OPpSORT_DESCEND}; $ops_using{OPpSORT_NUMERIC} = $ops_using{OPpSORT_DESCEND}; $ops_using{OPpSORT_REVERSE} = $ops_using{OPpSORT_DESCEND}; $ops_using{OPpSORT_STABLE} = $ops_using{OPpSORT_DESCEND}; $ops_using{OPpSORT_UNSTABLE} = $ops_using{OPpSORT_DESCEND}; $ops_using{OPpSPLIT_IMPLIM} = $ops_using{OPpSPLIT_ASSIGN}; $ops_using{OPpSPLIT_LEX} = $ops_using{OPpSPLIT_ASSIGN}; $ops_using{OPpTRANS_COMPLEMENT} = $ops_using{OPpTRANS_CAN_FORCE_UTF8}; $ops_using{OPpTRANS_DELETE} = $ops_using{OPpTRANS_CAN_FORCE_UTF8}; $ops_using{OPpTRANS_GROWS} = $ops_using{OPpTRANS_CAN_FORCE_UTF8}; $ops_using{OPpTRANS_IDENTICAL} = $ops_using{OPpTRANS_CAN_FORCE_UTF8}; $ops_using{OPpTRANS_SQUASH} = $ops_using{OPpTRANS_CAN_FORCE_UTF8}; $ops_using{OPpTRANS_USE_SVOP} = $ops_using{OPpTRANS_CAN_FORCE_UTF8}; # ex: set ro: PK ! Qc��C �C 5.34.0/B/Deparse.pmnu �[��� # B::Deparse.pm # Copyright (c) 1998-2000, 2002, 2003, 2004, 2005, 2006 Stephen McCamant. # All rights reserved. # This module is free software; you can redistribute and/or modify # it under the same terms as Perl itself. # This is based on the module of the same name by Malcolm Beattie, # but essentially none of his code remains. package B::Deparse; use Carp; use B qw(class main_root main_start main_cv svref_2object opnumber perlstring OPf_WANT OPf_WANT_VOID OPf_WANT_SCALAR OPf_WANT_LIST OPf_KIDS OPf_REF OPf_STACKED OPf_SPECIAL OPf_MOD OPf_PARENS OPpLVAL_INTRO OPpOUR_INTRO OPpENTERSUB_AMPER OPpSLICE OPpKVSLICE OPpCONST_BARE OPpTRANS_SQUASH OPpTRANS_DELETE OPpTRANS_COMPLEMENT OPpTARGET_MY OPpEXISTS_SUB OPpSORT_NUMERIC OPpSORT_INTEGER OPpREPEAT_DOLIST OPpSORT_REVERSE OPpMULTIDEREF_EXISTS OPpMULTIDEREF_DELETE OPpSPLIT_ASSIGN OPpSPLIT_LEX OPpPADHV_ISKEYS OPpRV2HV_ISKEYS OPpCONCAT_NESTED OPpMULTICONCAT_APPEND OPpMULTICONCAT_STRINGIFY OPpMULTICONCAT_FAKE OPpTRUEBOOL OPpINDEX_BOOLNEG SVf_IOK SVf_NOK SVf_ROK SVf_POK SVpad_OUR SVf_FAKE SVs_RMG SVs_SMG SVs_PADTMP SVpad_TYPED CVf_METHOD CVf_LVALUE PMf_KEEP PMf_GLOBAL PMf_CONTINUE PMf_EVAL PMf_ONCE PMf_MULTILINE PMf_SINGLELINE PMf_FOLD PMf_EXTENDED PMf_EXTENDED_MORE PADNAMEt_OUTER MDEREF_reload MDEREF_AV_pop_rv2av_aelem MDEREF_AV_gvsv_vivify_rv2av_aelem MDEREF_AV_padsv_vivify_rv2av_aelem MDEREF_AV_vivify_rv2av_aelem MDEREF_AV_padav_aelem MDEREF_AV_gvav_aelem MDEREF_HV_pop_rv2hv_helem MDEREF_HV_gvsv_vivify_rv2hv_helem MDEREF_HV_padsv_vivify_rv2hv_helem MDEREF_HV_vivify_rv2hv_helem MDEREF_HV_padhv_helem MDEREF_HV_gvhv_helem MDEREF_ACTION_MASK MDEREF_INDEX_none MDEREF_INDEX_const MDEREF_INDEX_padsv MDEREF_INDEX_gvsv MDEREF_INDEX_MASK MDEREF_FLAG_last MDEREF_MASK MDEREF_SHIFT ); $VERSION = '1.56'; use strict; our $AUTOLOAD; use warnings (); require feature; use Config; BEGIN { # List version-specific constants here. # Easiest way to keep this code portable between version looks to # be to fake up a dummy constant that will never actually be true. foreach (qw(OPpSORT_INPLACE OPpSORT_DESCEND OPpITER_REVERSED OPpCONST_NOVER OPpPAD_STATE PMf_SKIPWHITE RXf_SKIPWHITE PMf_CHARSET PMf_KEEPCOPY PMf_NOCAPTURE CVf_ANONCONST CVf_LOCKED OPpREVERSE_INPLACE OPpSUBSTR_REPL_FIRST PMf_NONDESTRUCT OPpEVAL_BYTES OPpLVREF_TYPE OPpLVREF_SV OPpLVREF_AV OPpLVREF_HV OPpLVREF_CV OPpLVREF_ELEM SVpad_STATE)) { eval { B->import($_) }; no strict 'refs'; *{$_} = sub () {0} unless *{$_}{CODE}; } } # Todo: # (See also BUGS section at the end of this file) # # - finish tr/// changes # - add option for even more parens (generalize \&foo change) # - left/right context # - copy comments (look at real text with $^P?) # - avoid semis in one-statement blocks # - associativity of &&=, ||=, ?: # - ',' => '=>' (auto-unquote?) # - break long lines ("\r" as discretionary break?) # - configurable syntax highlighting: ANSI color, HTML, TeX, etc. # - more style options: brace style, hex vs. octal, quotes, ... # - print big ints as hex/octal instead of decimal (heuristic?) # - handle 'my $x if 0'? # - version using op_next instead of op_first/sibling? # - avoid string copies (pass arrays, one big join?) # - here-docs? # Current test.deparse failures # comp/hints 6 - location of BEGIN blocks wrt. block openings # run/switchI 1 - missing -I switches entirely # perl -Ifoo -e 'print @INC' # op/caller 2 - warning mask propagates backwards before warnings::register # 'use warnings; BEGIN {${^WARNING_BITS} eq "U"x12;} use warnings::register' # op/getpid 2 - can't assign to shared my() declaration (threads only) # 'my $x : shared = 5' # op/override 7 - parens on overridden require change v-string interpretation # 'BEGIN{*CORE::GLOBAL::require=sub {}} require v5.6' # c.f. 'BEGIN { *f = sub {0} }; f 2' # op/pat 774 - losing Unicode-ness of Latin1-only strings # 'use charnames ":short"; $x="\N{latin:a with acute}"' # op/recurse 12 - missing parens on recursive call makes it look like method # 'sub f { f($x) }' # op/subst 90 - inconsistent handling of utf8 under "use utf8" # op/taint 29 - "use re 'taint'" deparsed in the wrong place wrt. block open # op/tiehandle compile - "use strict" deparsed in the wrong place # uni/tr_ several # ext/B/t/xref 11 - line numbers when we add newlines to one-line subs # ext/Data/Dumper/t/dumper compile # ext/DB_file/several # ext/Encode/several # ext/Ernno/Errno warnings # ext/IO/lib/IO/t/io_sel 23 # ext/PerlIO/t/encoding compile # ext/POSIX/t/posix 6 # ext/Socket/Socket 8 # ext/Storable/t/croak compile # lib/Attribute/Handlers/t/multi compile # lib/bignum/ several # lib/charnames 35 # lib/constant 32 # lib/English 40 # lib/ExtUtils/t/bytes 4 # lib/File/DosGlob compile # lib/Filter/Simple/t/data 1 # lib/Math/BigInt/t/constant 1 # lib/Net/t/config Deparse-warning # lib/overload compile # lib/Switch/ several # lib/Symbol 4 # lib/Test/Simple several # lib/Term/Complete # lib/Tie/File/t/29_downcopy 5 # lib/vars 22 # Object fields: # # in_coderef2text: # True when deparsing via $deparse->coderef2text; false when deparsing the # main program. # # avoid_local: # (local($a), local($b)) and local($a, $b) have the same internal # representation but the short form looks better. We notice we can # use a large-scale local when checking the list, but need to prevent # individual locals too. This hash holds the addresses of OPs that # have already had their local-ness accounted for. The same thing # is done with my(). # # curcv: # CV for current sub (or main program) being deparsed # # curcvlex: # Cached hash of lexical variables for curcv: keys are # names prefixed with "m" or "o" (representing my/our), and # each value is an array with two elements indicating the cop_seq # of scopes in which a var of that name is valid and a third ele- # ment referencing the pad name. # # curcop: # COP for statement being deparsed # # curstash: # name of the current package for deparsed code # # subs_todo: # array of [cop_seq, CV, is_format?, name] for subs and formats we still # want to deparse. The fourth element is a pad name thingy for lexical # subs or a string for special blocks. For other subs, it is undef. For # lexical subs, CV may be undef, indicating a stub declaration. # # protos_todo: # as above, but [name, prototype] for subs that never got a GV # # subs_done, forms_done: # keys are addresses of GVs for subs and formats we've already # deparsed (or at least put into subs_todo) # # subs_declared # keys are names of subs for which we've printed declarations. # That means we can omit parentheses from the arguments. It also means we # need to put CORE:: on core functions of the same name. # # in_subst_repl # True when deparsing the replacement part of a substitution. # # in_refgen # True when deparsing the argument to \. # # parens: -p # linenums: -l # unquote: -q # cuddle: ' ' or '\n', depending on -sC # indent_size: -si # use_tabs: -sT # ex_const: -sv # A little explanation of how precedence contexts and associativity # work: # # deparse() calls each per-op subroutine with an argument $cx (short # for context, but not the same as the cx* in the perl core), which is # a number describing the op's parents in terms of precedence, whether # they're inside an expression or at statement level, etc. (see # chart below). When ops with children call deparse on them, they pass # along their precedence. Fractional values are used to implement # associativity ('($x + $y) + $z' => '$x + $y + $y') and related # parentheses hacks. The major disadvantage of this scheme is that # it doesn't know about right sides and left sides, so say if you # assign a listop to a variable, it can't tell it's allowed to leave # the parens off the listop. # Precedences: # 26 [TODO] inside interpolation context ("") # 25 left terms and list operators (leftward) # 24 left -> # 23 nonassoc ++ -- # 22 right ** # 21 right ! ~ \ and unary + and - # 20 left =~ !~ # 19 left * / % x # 18 left + - . # 17 left << >> # 16 nonassoc named unary operators # 15 nonassoc < > <= >= lt gt le ge # 14 nonassoc == != <=> eq ne cmp # 13 left & # 12 left | ^ # 11 left && # 10 left || # 9 nonassoc .. ... # 8 right ?: # 7 right = += -= *= etc. # 6 left , => # 5 nonassoc list operators (rightward) # 4 right not # 3 left and # 2 left or xor # 1 statement modifiers # 0.5 statements, but still print scopes as do { ... } # 0 statement level # -1 format body # Nonprinting characters with special meaning: # \cS - steal parens (see maybe_parens_unop) # \n - newline and indent # \t - increase indent # \b - decrease indent ('outdent') # \f - flush left (no indent) # \cK - kill following semicolon, if any # Semicolon handling: # - Individual statements are not deparsed with trailing semicolons. # (If necessary, \cK is tacked on to the end.) # - Whatever code joins statements together or emits them (lineseq, # scopeop, deparse_root) is responsible for adding semicolons where # necessary. # - use statements are deparsed with trailing semicolons because they are # immediately concatenated with the following statement. # - indent() removes semicolons wherever it sees \cK. BEGIN { for (qw[ const stringify rv2sv list glob pushmark null aelem kvaslice kvhslice padsv argcheck nextstate dbstate rv2av rv2hv helem custom ]) { eval "sub OP_\U$_ () { " . opnumber($_) . "}" }} # _pessimise_walk(): recursively walk the optree of a sub, # possibly undoing optimisations along the way. sub DEBUG { 0 } use if DEBUG, 'Data::Dumper'; sub _pessimise_walk { my ($self, $startop) = @_; return unless $$startop; my ($op, $prevop); for ($op = $startop; $$op; $prevop = $op, $op = $op->sibling) { my $ppname = $op->name; # pessimisations start here if ($ppname eq "padrange") { # remove PADRANGE: # the original optimisation either (1) changed this: # pushmark -> (various pad and list and null ops) -> the_rest # or (2), for the = @_ case, changed this: # pushmark -> gv[_] -> rv2av -> (pad stuff) -> the_rest # into this: # padrange ----------------------------------------> the_rest # so we just need to convert the padrange back into a # pushmark, and in case (1), set its op_next to op_sibling, # which is the head of the original chain of optimised-away # pad ops, or for (2), set it to sibling->first, which is # the original gv[_]. $B::overlay->{$$op} = { type => OP_PUSHMARK, name => 'pushmark', private => ($op->private & OPpLVAL_INTRO), }; } # pessimisations end here if (class($op) eq 'PMOP') { if (ref($op->pmreplroot) && ${$op->pmreplroot} && $op->pmreplroot->isa( 'B::OP' )) { $self-> _pessimise_walk($op->pmreplroot); } # pessimise any /(?{...})/ code blocks my ($re, $cv); my $code_list = $op->code_list; if ($$code_list) { $self->_pessimise_walk($code_list); } elsif (${$re = $op->pmregexp} && ${$cv = $re->qr_anoncv}) { $code_list = $cv->ROOT # leavesub ->first # qr ->code_list; # list $self->_pessimise_walk($code_list); } } if ($op->flags & OPf_KIDS) { $self-> _pessimise_walk($op->first); } } } # _pessimise_walk_exe(): recursively walk the op_next chain of a sub, # possibly undoing optimisations along the way. sub _pessimise_walk_exe { my ($self, $startop, $visited) = @_; no warnings 'recursion'; return unless $$startop; return if $visited->{$$startop}; my ($op, $prevop); for ($op = $startop; $$op; $prevop = $op, $op = $op->next) { last if $visited->{$$op}; $visited->{$$op} = 1; my $ppname = $op->name; if ($ppname =~ /^((and|d?or)(assign)?|(map|grep)while|range|cond_expr|once)$/ # entertry is also a logop, but its op_other invariably points # into the same chain as the main execution path, so we skip it ) { $self->_pessimise_walk_exe($op->other, $visited); } elsif ($ppname eq "subst") { $self->_pessimise_walk_exe($op->pmreplstart, $visited); } elsif ($ppname =~ /^(enter(loop|iter))$/) { # redoop and nextop will already be covered by the main block # of the loop $self->_pessimise_walk_exe($op->lastop, $visited); } # pessimisations start here } } # Go through an optree and "remove" some optimisations by using an # overlay to selectively modify or un-null some ops. Deparsing in the # absence of those optimisations is then easier. # # Note that older optimisations are not removed, as Deparse was already # written to recognise them before the pessimise/overlay system was added. sub pessimise { my ($self, $root, $start) = @_; no warnings 'recursion'; # walk tree in root-to-branch order $self->_pessimise_walk($root); my %visited; # walk tree in execution order $self->_pessimise_walk_exe($start, \%visited); } sub null { my $op = shift; return class($op) eq "NULL"; } # Add a CV to the list of subs that still need deparsing. sub todo { my $self = shift; my($cv, $is_form, $name) = @_; my $cvfile = $cv->FILE//''; return unless ($cvfile eq $0 || exists $self->{files}{$cvfile}); my $seq; if ($cv->OUTSIDE_SEQ) { $seq = $cv->OUTSIDE_SEQ; } elsif (!null($cv->START) and is_state($cv->START)) { $seq = $cv->START->cop_seq; } else { $seq = 0; } my $stash = $cv->STASH; if (class($stash) eq 'HV') { $self->{packs}{$stash->NAME}++; } push @{$self->{'subs_todo'}}, [$seq, $cv, $is_form, $name]; } # Pop the next sub from the todo list and deparse it sub next_todo { my $self = shift; my $ent = shift @{$self->{'subs_todo'}}; my ($seq, $cv, $is_form, $name) = @$ent; # any 'use strict; package foo' that should come before the sub # declaration to sync with the first COP of the sub my $pragmata = ''; if ($cv and !null($cv->START) and is_state($cv->START)) { $pragmata = $self->pragmata($cv->START); } if (ref $name) { # lexical sub # emit the sub. my @text; my $flags = $name->FLAGS; push @text, !$cv || $seq <= $name->COP_SEQ_RANGE_LOW ? $self->keyword($flags & SVpad_OUR ? "our" : $flags & SVpad_STATE ? "state" : "my") . " " : ""; # XXX We would do $self->keyword("sub"), but ‘my CORE::sub’ # doesn’t work and ‘my sub’ ignores a &sub in scope. I.e., # we have a core bug here. push @text, "sub " . substr $name->PVX, 1; if ($cv) { # my sub foo { } push @text, " " . $self->deparse_sub($cv); $text[-1] =~ s/ ;$/;/; } else { # my sub foo; push @text, ";\n"; } return $pragmata . join "", @text; } my $gv = $cv->GV; $name //= $self->gv_name($gv); if ($is_form) { return $pragmata . $self->keyword("format") . " $name =\n" . $self->deparse_format($cv). "\n"; } else { my $use_dec; if ($name eq "BEGIN") { $use_dec = $self->begin_is_use($cv); if (defined ($use_dec) and $self->{'expand'} < 5) { return $pragmata if 0 == length($use_dec); # XXX bit of a hack: Test::More's use_ok() method # builds a fake use statement which deparses as, e.g. # use Net::Ping (@{$args[0];}); # As well as being superfluous (the use_ok() is deparsed # too) and ugly, it fails under use strict and otherwise # makes use of a lexical var that's not in scope. # So strip it out. return $pragmata if $use_dec =~ m/ \A use \s \S+ \s \(\@\{ ( \s*\#line\ \d+\ \".*"\s* )? \$args\[0\];\}\); \n \Z /x; $use_dec =~ s/^(use|no)\b/$self->keyword($1)/e; } } my $l = ''; if ($self->{'linenums'}) { my $line = $gv->LINE; my $file = $gv->FILE; $l = "\n\f#line $line \"$file\"\n"; } my $p = ''; my $stash; if (class($cv->STASH) ne "SPECIAL") { $stash = $cv->STASH->NAME; if ($stash ne $self->{'curstash'}) { $p = $self->keyword("package") . " $stash;\n"; $name = "$self->{'curstash'}::$name" unless $name =~ /::/; $self->{'curstash'} = $stash; } } if ($use_dec) { return "$pragmata$p$l$use_dec"; } if ( $name !~ /::/ and $self->lex_in_scope("&$name") || $self->lex_in_scope("&$name", 1) ) { $name = "$self->{'curstash'}::$name"; } elsif (defined $stash) { $name =~ s/^\Q$stash\E::(?!\z|.*::)//; } my $ret = "$pragmata${p}${l}" . $self->keyword("sub") . " $name " . $self->deparse_sub($cv); $self->{'subs_declared'}{$name} = 1; return $ret; } } # Return a "use" declaration for this BEGIN block, if appropriate sub begin_is_use { my ($self, $cv) = @_; my $root = $cv->ROOT; local @$self{qw'curcv curcvlex'} = ($cv); local $B::overlay = {}; $self->pessimise($root, $cv->START); #require B::Debug; #B::walkoptree($cv->ROOT, "debug"); my $lineseq = $root->first; return if $lineseq->name ne "lineseq"; my $req_op = $lineseq->first->sibling; return if $req_op->name ne "require"; # maybe it's C<require expr> rather than C<require 'foo'> return if ($req_op->first->name ne 'const'); my $module; if ($req_op->first->private & OPpCONST_BARE) { # Actually it should always be a bareword $module = $self->const_sv($req_op->first)->PV; $module =~ s[/][::]g; $module =~ s/.pm$//; } else { $module = $self->const($self->const_sv($req_op->first), 6); } my $version; my $version_op = $req_op->sibling; return if class($version_op) eq "NULL"; if ($version_op->name eq "lineseq") { # We have a version parameter; skip nextstate & pushmark my $constop = $version_op->first->next->next; return unless $self->const_sv($constop)->PV eq $module; $constop = $constop->sibling; $version = $self->const_sv($constop); if (class($version) eq "IV") { $version = $version->int_value; } elsif (class($version) eq "NV") { $version = $version->NV; } elsif (class($version) ne "PVMG") { # Includes PVIV and PVNV $version = $version->PV; } else { # version specified as a v-string $version = 'v'.join '.', map ord, split //, $version->PV; } $constop = $constop->sibling; return if $constop->name ne "method_named"; return if $self->meth_sv($constop)->PV ne "VERSION"; } $lineseq = $version_op->sibling; return if $lineseq->name ne "lineseq"; my $entersub = $lineseq->first->sibling; if ($entersub->name eq "stub") { return "use $module $version ();\n" if defined $version; return "use $module ();\n"; } return if $entersub->name ne "entersub"; # See if there are import arguments my $args = ''; my $svop = $entersub->first->sibling; # Skip over pushmark return unless $self->const_sv($svop)->PV eq $module; # Pull out the arguments for ($svop=$svop->sibling; index($svop->name, "method_") != 0; $svop = $svop->sibling) { $args .= ", " if length($args); $args .= $self->deparse($svop, 6); } my $use = 'use'; my $method_named = $svop; return if $method_named->name ne "method_named"; my $method_name = $self->meth_sv($method_named)->PV; if ($method_name eq "unimport") { $use = 'no'; } # Certain pragmas are dealt with using hint bits, # so we ignore them here if ($module eq 'strict' || $module eq 'integer' || $module eq 'bytes' || $module eq 'warnings' || $module eq 'feature') { return ""; } if (defined $version && length $args) { return "$use $module $version ($args);\n"; } elsif (defined $version) { return "$use $module $version;\n"; } elsif (length $args) { return "$use $module ($args);\n"; } else { return "$use $module;\n"; } } sub stash_subs { my ($self, $pack, $seen) = @_; my (@ret, $stash); if (!defined $pack) { $pack = ''; $stash = \%::; } else { $pack =~ s/(::)?$/::/; no strict 'refs'; $stash = \%{"main::$pack"}; } return if ($seen ||= {})->{ $INC{"overload.pm"} ? overload::StrVal($stash) : $stash }++; my $stashobj = svref_2object($stash); my %stash = $stashobj->ARRAY; while (my ($key, $val) = each %stash) { my $flags = $val->FLAGS; if ($flags & SVf_ROK) { # A reference. Dump this if it is a reference to a CV. If it # is a constant acting as a proxy for a full subroutine, then # we may or may not have to dump it. If some form of perl- # space visible code must have created it, be it a use # statement, or some direct symbol-table manipulation code that # we will deparse, then we don’t want to dump it. If it is the # result of a declaration like sub f () { 42 } then we *do* # want to dump it. The only way to distinguish these seems # to be the SVs_PADTMP flag on the constant, which is admit- # tedly a hack. my $class = class(my $referent = $val->RV); if ($class eq "CV") { $self->todo($referent, 0); } elsif ( $class !~ /^(AV|HV|CV|FM|IO|SPECIAL)\z/ # A more robust way to write that would be this, but B does # not provide the SVt_ constants: # ($referent->FLAGS & B::SVTYPEMASK) < B::SVt_PVAV and $referent->FLAGS & SVs_PADTMP ) { push @{$self->{'protos_todo'}}, [$pack . $key, $val]; } } elsif ($flags & (SVf_POK|SVf_IOK)) { # Just a prototype. As an ugly but fairly effective way # to find out if it belongs here is to see if the AUTOLOAD # (if any) for the stash was defined in one of our files. my $A = $stash{"AUTOLOAD"}; if (defined ($A) && class($A) eq "GV" && defined($A->CV) && class($A->CV) eq "CV") { my $AF = $A->FILE; next unless $AF eq $0 || exists $self->{'files'}{$AF}; } push @{$self->{'protos_todo'}}, [$pack . $key, $flags & SVf_POK ? $val->PV: undef]; } elsif (class($val) eq "GV") { if (class(my $cv = $val->CV) ne "SPECIAL") { next if $self->{'subs_done'}{$$val}++; # Ignore imposters (aliases etc) my $name = $cv->NAME_HEK; if(defined $name) { # avoid using $cv->GV here because if the $val GV is # an alias, CvGV() could upgrade the real stash entry # from an RV to a GV next unless $name eq $key; next unless $$stashobj == ${$cv->STASH}; } else { next if $$val != ${$cv->GV}; } $self->todo($cv, 0); } if (class(my $cv = $val->FORM) ne "SPECIAL") { next if $self->{'forms_done'}{$$val}++; next if $$val != ${$cv->GV}; # Ignore imposters $self->todo($cv, 1); } if (class($val->HV) ne "SPECIAL" && $key =~ /::$/) { $self->stash_subs($pack . $key, $seen); } } } } sub print_protos { my $self = shift; my $ar; my @ret; foreach $ar (@{$self->{'protos_todo'}}) { if (ref $ar->[1]) { # Only print a constant if it occurs in the same package as a # dumped sub. This is not perfect, but a heuristic that will # hopefully work most of the time. Ideally we would use # CvFILE, but a constant stub has no CvFILE. my $pack = ($ar->[0] =~ /(.*)::/)[0]; next if $pack and !$self->{packs}{$pack} } my $body = defined $ar->[1] ? ref $ar->[1] ? " () {\n " . $self->const($ar->[1]->RV,0) . ";\n}" : " (". $ar->[1] . ");" : ";"; push @ret, "sub " . $ar->[0] . "$body\n"; } delete $self->{'protos_todo'}; return @ret; } sub style_opts { my $self = shift; my $opts = shift; my $opt; while (length($opt = substr($opts, 0, 1))) { if ($opt eq "C") { $self->{'cuddle'} = " "; $opts = substr($opts, 1); } elsif ($opt eq "i") { $opts =~ s/^i(\d+)//; $self->{'indent_size'} = $1; } elsif ($opt eq "T") { $self->{'use_tabs'} = 1; $opts = substr($opts, 1); } elsif ($opt eq "v") { $opts =~ s/^v([^.]*)(.|$)//; $self->{'ex_const'} = $1; } } } sub new { my $class = shift; my $self = bless {}, $class; $self->{'cuddle'} = "\n"; $self->{'curcop'} = undef; $self->{'curstash'} = "main"; $self->{'ex_const'} = "'???'"; $self->{'expand'} = 0; $self->{'files'} = {}; $self->{'packs'} = {}; $self->{'indent_size'} = 4; $self->{'linenums'} = 0; $self->{'parens'} = 0; $self->{'subs_todo'} = []; $self->{'unquote'} = 0; $self->{'use_dumper'} = 0; $self->{'use_tabs'} = 0; $self->{'ambient_warnings'} = undef; # Assume no lexical warnings $self->{'ambient_hints'} = 0; $self->{'ambient_hinthash'} = undef; $self->init(); while (my $arg = shift @_) { if ($arg eq "-d") { $self->{'use_dumper'} = 1; require Data::Dumper; } elsif ($arg =~ /^-f(.*)/) { $self->{'files'}{$1} = 1; } elsif ($arg eq "-l") { $self->{'linenums'} = 1; } elsif ($arg eq "-p") { $self->{'parens'} = 1; } elsif ($arg eq "-P") { $self->{'noproto'} = 1; } elsif ($arg eq "-q") { $self->{'unquote'} = 1; } elsif (substr($arg, 0, 2) eq "-s") { $self->style_opts(substr $arg, 2); } elsif ($arg =~ /^-x(\d)$/) { $self->{'expand'} = $1; } } return $self; } { # Mask out the bits that L<warnings::register> uses my $WARN_MASK; BEGIN { $WARN_MASK = $warnings::Bits{all} | $warnings::DeadBits{all}; } sub WARN_MASK () { return $WARN_MASK; } } # Initialise the contextual information, either from # defaults provided with the ambient_pragmas method, # or from perl's own defaults otherwise. sub init { my $self = shift; $self->{'warnings'} = defined ($self->{'ambient_warnings'}) ? $self->{'ambient_warnings'} & WARN_MASK : undef; $self->{'hints'} = $self->{'ambient_hints'}; $self->{'hinthash'} = $self->{'ambient_hinthash'}; # also a convenient place to clear out subs_declared delete $self->{'subs_declared'}; } sub compile { my(@args) = @_; return sub { my $self = B::Deparse->new(@args); # First deparse command-line args if (defined $^I) { # deparse -i print q(BEGIN { $^I = ).perlstring($^I).qq(; }\n); } if ($^W) { # deparse -w print qq(BEGIN { \$^W = $^W; }\n); } if ($/ ne "\n" or defined $O::savebackslash) { # deparse -l and -0 my $fs = perlstring($/) || 'undef'; my $bs = perlstring($O::savebackslash) || 'undef'; print qq(BEGIN { \$/ = $fs; \$\\ = $bs; }\n); } my @BEGINs = B::begin_av->isa("B::AV") ? B::begin_av->ARRAY : (); my @UNITCHECKs = B::unitcheck_av->isa("B::AV") ? B::unitcheck_av->ARRAY : (); my @CHECKs = B::check_av->isa("B::AV") ? B::check_av->ARRAY : (); my @INITs = B::init_av->isa("B::AV") ? B::init_av->ARRAY : (); my @ENDs = B::end_av->isa("B::AV") ? B::end_av->ARRAY : (); my @names = qw(BEGIN UNITCHECK CHECK INIT END); my @blocks = \(@BEGINs, @UNITCHECKs, @CHECKs, @INITs, @ENDs); while (@names) { my ($name, $blocks) = (shift @names, shift @blocks); for my $block (@$blocks) { $self->todo($block, 0, $name); } } $self->stash_subs(); local($SIG{"__DIE__"}) = sub { if ($self->{'curcop'}) { my $cop = $self->{'curcop'}; my($line, $file) = ($cop->line, $cop->file); print STDERR "While deparsing $file near line $line,\n"; } }; $self->{'curcv'} = main_cv; $self->{'curcvlex'} = undef; print $self->print_protos; @{$self->{'subs_todo'}} = sort {$a->[0] <=> $b->[0]} @{$self->{'subs_todo'}}; my $root = main_root; local $B::overlay = {}; unless (null $root) { $self->pad_subs($self->{'curcv'}); # Check for a stub-followed-by-ex-cop, resulting from a program # consisting solely of sub declarations. For backward-compati- # bility (and sane output) we don’t want to emit the stub. # leave # enter # stub # ex-nextstate (or ex-dbstate) my $kid; if ( $root->name eq 'leave' and ($kid = $root->first)->name eq 'enter' and !null($kid = $kid->sibling) and $kid->name eq 'stub' and !null($kid = $kid->sibling) and $kid->name eq 'null' and class($kid) eq 'COP' and null $kid->sibling ) { # ignore } else { $self->pessimise($root, main_start); print $self->indent($self->deparse_root($root)), "\n"; } } my @text; while (scalar(@{$self->{'subs_todo'}})) { push @text, $self->next_todo; } print $self->indent(join("", @text)), "\n" if @text; # Print __DATA__ section, if necessary no strict 'refs'; my $laststash = defined $self->{'curcop'} ? $self->{'curcop'}->stash->NAME : $self->{'curstash'}; if (defined *{$laststash."::DATA"}{IO}) { print $self->keyword("package") . " $laststash;\n" unless $laststash eq $self->{'curstash'}; print $self->keyword("__DATA__") . "\n"; print readline(*{$laststash."::DATA"}); } } } sub coderef2text { my $self = shift; my $sub = shift; croak "Usage: ->coderef2text(CODEREF)" unless UNIVERSAL::isa($sub, "CODE"); $self->init(); local $self->{in_coderef2text} = 1; return $self->indent($self->deparse_sub(svref_2object($sub))); } my %strict_bits = do { local $^H; map +($_ => strict::bits($_)), qw/refs subs vars/ }; sub ambient_pragmas { my $self = shift; my ($hint_bits, $warning_bits, $hinthash) = (0); while (@_ > 1) { my $name = shift(); my $val = shift(); if ($name eq 'strict') { require strict; if ($val eq 'none') { $hint_bits &= $strict_bits{$_} for qw/refs subs vars/; next(); } my @names; if ($val eq "all") { @names = qw/refs subs vars/; } elsif (ref $val) { @names = @$val; } else { @names = split' ', $val; } $hint_bits |= $strict_bits{$_} for @names; } elsif ($name eq 'integer' || $name eq 'bytes' || $name eq 'utf8') { require "$name.pm"; if ($val) { $hint_bits |= ${$::{"${name}::"}{"hint_bits"}}; } else { $hint_bits &= ~${$::{"${name}::"}{"hint_bits"}}; } } elsif ($name eq 're') { require re; if ($val eq 'none') { $hint_bits &= ~re::bits(qw/taint eval/); next(); } my @names; if ($val eq 'all') { @names = qw/taint eval/; } elsif (ref $val) { @names = @$val; } else { @names = split' ',$val; } $hint_bits |= re::bits(@names); } elsif ($name eq 'warnings') { if ($val eq 'none') { $warning_bits = $warnings::NONE; next(); } my @names; if (ref $val) { @names = @$val; } else { @names = split/\s+/, $val; } $warning_bits = $warnings::NONE if !defined ($warning_bits); $warning_bits |= warnings::bits(@names); } elsif ($name eq 'warning_bits') { $warning_bits = $val; } elsif ($name eq 'hint_bits') { $hint_bits = $val; } elsif ($name eq '%^H') { $hinthash = $val; } else { croak "Unknown pragma type: $name"; } } if (@_) { croak "The ambient_pragmas method expects an even number of args"; } $self->{'ambient_warnings'} = $warning_bits; $self->{'ambient_hints'} = $hint_bits; $self->{'ambient_hinthash'} = $hinthash; } # This method is the inner loop, so try to keep it simple sub deparse { my $self = shift; my($op, $cx) = @_; Carp::confess("Null op in deparse") if !defined($op) || class($op) eq "NULL"; my $meth = "pp_" . $op->name; return $self->$meth($op, $cx); } sub indent { my $self = shift; my $txt = shift; # \cK also swallows a preceding line break when followed by a # semicolon. $txt =~ s/\n\cK;//g; my @lines = split(/\n/, $txt); my $leader = ""; my $level = 0; my $line; for $line (@lines) { my $cmd = substr($line, 0, 1); if ($cmd eq "\t" or $cmd eq "\b") { $level += ($cmd eq "\t" ? 1 : -1) * $self->{'indent_size'}; if ($self->{'use_tabs'}) { $leader = "\t" x ($level / 8) . " " x ($level % 8); } else { $leader = " " x $level; } $line = substr($line, 1); } if (index($line, "\f") > 0) { $line =~ s/\f/\n/; } if (substr($line, 0, 1) eq "\f") { $line = substr($line, 1); # no indent } else { $line = $leader . $line; } $line =~ s/\cK;?//g; } return join("\n", @lines); } sub pad_subs { my ($self, $cv) = @_; my $padlist = $cv->PADLIST; my @names = $padlist->ARRAYelt(0)->ARRAY; my @values = $padlist->ARRAYelt(1)->ARRAY; my @todo; PADENTRY: for my $ix (0.. $#names) { for $_ ($names[$ix]) { next if class($_) eq "SPECIAL"; my $name = $_->PVX; if (defined $name && $name =~ /^&./) { my $low = $_->COP_SEQ_RANGE_LOW; my $flags = $_->FLAGS; my $outer = $flags & PADNAMEt_OUTER; if ($flags & SVpad_OUR) { push @todo, [$low, undef, 0, $_] # [seq, no cv, not format, padname] unless $outer; next; } my $protocv = $flags & SVpad_STATE ? $values[$ix] : $_->PROTOCV; if (class ($protocv) ne 'CV') { my $flags = $flags; my $cv = $cv; my $name = $_; while ($flags & PADNAMEt_OUTER && class ($protocv) ne 'CV') { $cv = $cv->OUTSIDE; next PADENTRY if class($cv) eq 'SPECIAL'; # XXX freed? my $padlist = $cv->PADLIST; my $ix = $name->PARENT_PAD_INDEX; $name = $padlist->NAMES->ARRAYelt($ix); $flags = $name->FLAGS; $protocv = $flags & SVpad_STATE ? $padlist->ARRAYelt(1)->ARRAYelt($ix) : $name->PROTOCV; } } my $defined_in_this_sub = ${$protocv->OUTSIDE} == $$cv || do { my $other = $protocv->PADLIST; $$other && $other->outid == $padlist->id; }; if ($flags & PADNAMEt_OUTER) { next unless $defined_in_this_sub; push @todo, [$protocv->OUTSIDE_SEQ, $protocv, 0, $_]; next; } my $outseq = $protocv->OUTSIDE_SEQ; if ($outseq <= $low) { # defined before its name is visible, so it’s gotta be # declared and defined at once: my sub foo { ... } push @todo, [$low, $protocv, 0, $_]; } else { # declared and defined separately: my sub f; sub f { ... } push @todo, [$low, undef, 0, $_]; push @todo, [$outseq, $protocv, 0, $_] if $defined_in_this_sub; } } }} @{$self->{'subs_todo'}} = sort {$a->[0] <=> $b->[0]} @{$self->{'subs_todo'}}, @todo } # deparse_argops(): deparse, if possible, a sequence of argcheck + argelem # ops into a subroutine signature. If successful, return the first op # following the signature ops plus the signature string; else return the # empty list. # # Normally a bunch of argelem ops will have been generated by the # signature parsing, but it's possible that ops have been added manually # or altered. In this case we return "()" and fall back to general # deparsing of the individual sigelems as 'my $x = $_[N]' etc. # # We're only called if the top is an ex-argcheck, which is a placeholder # indicating a signature subtree. # # Return a signature string, or an empty list if no deparseable as a # signature sub deparse_argops { my ($self, $topop, $cv) = @_; my @sig; $topop = $topop->first; return unless $$topop and $topop->name eq 'lineseq'; # last op should be nextstate my $last = $topop->last; return unless $$last and ( _op_is_or_was($last, OP_NEXTSTATE) or _op_is_or_was($last, OP_DBSTATE)); # first OP_NEXTSTATE my $o = $topop->first; return unless $$o; return if $o->label; # OP_ARGCHECK $o = $o->sibling; return unless $$o and $o->name eq 'argcheck'; my ($params, $opt_params, $slurpy) = $o->aux_list($cv); my $mandatory = $params - $opt_params; my $seen_slurpy = 0; my $last_ix = -1; # keep looking for valid nextstate + argelem pairs, terminated # by a final nextstate while (1) { $o = $o->sibling; return unless $$o; # skip trailing nextstate last if $$o == $$last; # OP_NEXTSTATE return unless $o->name =~ /^(next|db)state$/; return if $o->label; # OP_ARGELEM $o = $o->sibling; last unless $$o; if ($o->name eq 'argelem') { my $ix = $o->string($cv); while (++$last_ix < $ix) { push @sig, $last_ix < $mandatory ? '$' : '$='; } my $var = $self->padname($o->targ); if ($var =~ /^[@%]/) { return if $seen_slurpy; $seen_slurpy = 1; return if $ix != $params or !$slurpy or substr($var,0,1) ne $slurpy; } else { return if $ix >= $params; } if ($o->flags & OPf_KIDS) { my $kid = $o->first; return unless $$kid and $kid->name eq 'argdefelem'; my $def = $self->deparse($kid->first, 7); $def = "($def)" if $kid->first->flags & OPf_PARENS; $var .= " = $def"; } push @sig, $var; } elsif ($o->name eq 'null' and ($o->flags & OPf_KIDS) and $o->first->name eq 'argdefelem') { # special case - a void context default expression: $ = expr my $defop = $o->first; my $ix = $defop->targ; while (++$last_ix < $ix) { push @sig, $last_ix < $mandatory ? '$' : '$='; } return if $last_ix >= $params or $last_ix < $mandatory; my $def = $self->deparse($defop->first, 7); $def = "($def)" if $defop->first->flags & OPf_PARENS; push @sig, '$ = ' . $def; } else { return; } } while (++$last_ix < $params) { push @sig, $last_ix < $mandatory ? '$' : '$='; } push @sig, $slurpy if $slurpy and !$seen_slurpy; return (join(', ', @sig)); } # Deparse a sub. Returns everything except the 'sub foo', # e.g. ($$) : method { ...; } # or : prototype($$) lvalue ($a, $b) { ...; }; sub deparse_sub { my $self = shift; my $cv = shift; my @attrs; my $proto; my $sig; Carp::confess("NULL in deparse_sub") if !defined($cv) || $cv->isa("B::NULL"); Carp::confess("SPECIAL in deparse_sub") if $cv->isa("B::SPECIAL"); local $self->{'curcop'} = $self->{'curcop'}; my $has_sig = $self->{hinthash}{feature_signatures}; if ($cv->FLAGS & SVf_POK) { my $myproto = $cv->PV; if ($has_sig) { push @attrs, "prototype($myproto)"; } else { $proto = $myproto; } } if ($cv->CvFLAGS & (CVf_METHOD|CVf_LOCKED|CVf_LVALUE|CVf_ANONCONST)) { push @attrs, "lvalue" if $cv->CvFLAGS & CVf_LVALUE; push @attrs, "method" if $cv->CvFLAGS & CVf_METHOD; push @attrs, "const" if $cv->CvFLAGS & CVf_ANONCONST; } local($self->{'curcv'}) = $cv; local($self->{'curcvlex'}); local(@$self{qw'curstash warnings hints hinthash'}) = @$self{qw'curstash warnings hints hinthash'}; my $body; my $root = $cv->ROOT; local $B::overlay = {}; if (not null $root) { $self->pad_subs($cv); $self->pessimise($root, $cv->START); my $lineseq = $root->first; # stub sub may have single op rather than list of ops my $is_list = ($lineseq->name eq "lineseq"); my $firstop = $is_list ? $lineseq->first : $lineseq; # Try to deparse first subtree as a signature if possible. # Top of signature subtree has an ex-argcheck as a placeholder if ( $has_sig and $$firstop and $firstop->name eq 'null' and $firstop->targ == OP_ARGCHECK ) { my ($mysig) = $self->deparse_argops($firstop, $cv); if (defined $mysig) { $sig = $mysig; $firstop = $is_list ? $firstop->sibling : undef; } } if ($is_list && $firstop) { my @ops; for (my $o = $firstop; $$o; $o=$o->sibling) { push @ops, $o; } $body = $self->lineseq(undef, 0, @ops).";"; if (!$has_sig and $ops[-1]->name =~ /^(next|db)state$/) { # this handles void context in # use feature signatures; sub ($=1) {} $body .= "\n()"; } my $scope_en = $self->find_scope_en($lineseq); if (defined $scope_en) { my $subs = join"", $self->seq_subs($scope_en); $body .= ";\n$subs" if length($subs); } } elsif ($firstop) { $body = $self->deparse($root->first, 0); } else { $body = ';'; # stub sub } my $l = ''; if ($self->{'linenums'}) { # a glob's gp_line is set from the line containing a # sub's closing '}' if the CV is the first use of the GV. # So make sure the linenum is set correctly for '}' my $gv = $cv->GV; my $line = $gv->LINE; my $file = $gv->FILE; $l = "\f#line $line \"$file\"\n"; } $body = "{\n\t$body\n$l\b}"; } else { my $sv = $cv->const_sv; if ($$sv) { # uh-oh. inlinable sub... format it differently $body = "{ " . $self->const($sv, 0) . " }\n"; } else { # XSUB? (or just a declaration) $body = ';' } } $proto = defined $proto ? "($proto) " : ""; $sig = defined $sig ? "($sig) " : ""; my $attrs = ''; $attrs = ': ' . join('', map "$_ ", @attrs) if @attrs; return "$proto$attrs$sig$body\n"; } sub deparse_format { my $self = shift; my $form = shift; my @text; local($self->{'curcv'}) = $form; local($self->{'curcvlex'}); local($self->{'in_format'}) = 1; local(@$self{qw'curstash warnings hints hinthash'}) = @$self{qw'curstash warnings hints hinthash'}; my $op = $form->ROOT; local $B::overlay = {}; $self->pessimise($op, $form->START); my $kid; return "\f." if $op->first->name eq 'stub' || $op->first->name eq 'nextstate'; $op = $op->first->first; # skip leavewrite, lineseq while (not null $op) { $op = $op->sibling; # skip nextstate my @exprs; $kid = $op->first->sibling; # skip pushmark push @text, "\f".$self->const_sv($kid)->PV; $kid = $kid->sibling; for (; not null $kid; $kid = $kid->sibling) { push @exprs, $self->deparse($kid, -1); $exprs[-1] =~ s/;\z//; } push @text, "\f".join(", ", @exprs)."\n" if @exprs; $op = $op->sibling; } return join("", @text) . "\f."; } sub is_scope { my $op = shift; return $op->name eq "leave" || $op->name eq "scope" || $op->name eq "lineseq" || ($op->name eq "null" && class($op) eq "UNOP" && (is_scope($op->first) || $op->first->name eq "enter")); } sub is_state { my $name = $_[0]->name; return $name eq "nextstate" || $name eq "dbstate" || $name eq "setstate"; } sub is_miniwhile { # check for one-line loop ('foo() while $y--') my $op = shift; return (!null($op) and null($op->sibling) and $op->name eq "null" and class($op) eq "UNOP" and (($op->first->name =~ /^(and|or)$/ and $op->first->first->sibling->name eq "lineseq") or ($op->first->name eq "lineseq" and not null $op->first->first->sibling and $op->first->first->sibling->name eq "unstack") )); } # Check if the op and its sibling are the initialization and the rest of a # for (..;..;..) { ... } loop sub is_for_loop { my $op = shift; # This OP might be almost anything, though it won't be a # nextstate. (It's the initialization, so in the canonical case it # will be an sassign.) The sibling is (old style) a lineseq whose # first child is a nextstate and whose second is a leaveloop, or # (new style) an unstack whose sibling is a leaveloop. my $lseq = $op->sibling; return 0 unless !is_state($op) and !null($lseq); if ($lseq->name eq "lineseq") { if ($lseq->first && !null($lseq->first) && is_state($lseq->first) && (my $sib = $lseq->first->sibling)) { return (!null($sib) && $sib->name eq "leaveloop"); } } elsif ($lseq->name eq "unstack" && ($lseq->flags & OPf_SPECIAL)) { my $sib = $lseq->sibling; return $sib && !null($sib) && $sib->name eq "leaveloop"; } return 0; } sub is_scalar { my $op = shift; return ($op->name eq "rv2sv" or $op->name eq "padsv" or $op->name eq "gv" or # only in array/hash constructs $op->flags & OPf_KIDS && !null($op->first) && $op->first->name eq "gvsv"); } sub maybe_parens { my $self = shift; my($text, $cx, $prec) = @_; if ($prec < $cx # unary ops nest just fine or $prec == $cx and $cx != 4 and $cx != 16 and $cx != 21 or $self->{'parens'}) { $text = "($text)"; # In a unop, let parent reuse our parens; see maybe_parens_unop $text = "\cS" . $text if $cx == 16; return $text; } else { return $text; } } # same as above, but get around the 'if it looks like a function' rule sub maybe_parens_unop { my $self = shift; my($name, $kid, $cx) = @_; if ($cx > 16 or $self->{'parens'}) { $kid = $self->deparse($kid, 1); if ($name eq "umask" && $kid =~ /^\d+$/) { $kid = sprintf("%#o", $kid); } return $self->keyword($name) . "($kid)"; } else { $kid = $self->deparse($kid, 16); if ($name eq "umask" && $kid =~ /^\d+$/) { $kid = sprintf("%#o", $kid); } $name = $self->keyword($name); if (substr($kid, 0, 1) eq "\cS") { # use kid's parens return $name . substr($kid, 1); } elsif (substr($kid, 0, 1) eq "(") { # avoid looks-like-a-function trap with extra parens # ('+' can lead to ambiguities) return "$name(" . $kid . ")"; } else { return "$name $kid"; } } } sub maybe_parens_func { my $self = shift; my($func, $text, $cx, $prec) = @_; if ($prec <= $cx or substr($text, 0, 1) eq "(" or $self->{'parens'}) { return "$func($text)"; } else { return "$func $text"; } } sub find_our_type { my ($self, $name) = @_; $self->populate_curcvlex() if !defined $self->{'curcvlex'}; my $seq = $self->{'curcop'} ? $self->{'curcop'}->cop_seq : 0; for my $a (@{$self->{'curcvlex'}{"o$name"}}) { my ($st, undef, $padname) = @$a; if ($st >= $seq && $padname->FLAGS & SVpad_TYPED) { return $padname->SvSTASH->NAME; } } return ''; } sub maybe_local { my $self = shift; my($op, $cx, $text) = @_; my $name = $op->name; my $our_intro = ($name =~ /^(?:(?:gv|rv2)[ash]v|split|refassign |lv(?:av)?ref)$/x) ? OPpOUR_INTRO : 0; my $lval_intro = $name eq 'split' ? 0 : OPpLVAL_INTRO; # The @a in \(@a) isn't in ref context, but only when the # parens are there. my $need_parens = $self->{'in_refgen'} && $name =~ /[ah]v\z/ && ($op->flags & (OPf_PARENS|OPf_REF)) == OPf_PARENS; if ((my $priv = $op->private) & ($lval_intro|$our_intro)) { my @our_local; push @our_local, "local" if $priv & $lval_intro; push @our_local, "our" if $priv & $our_intro; my $our_local = join " ", map $self->keyword($_), @our_local; if( $our_local[-1] eq 'our' ) { if ( $text !~ /^\W(\w+::)*\w+\z/ and !utf8::decode($text) || $text !~ /^\W(\w+::)*\w+\z/ ) { die "Unexpected our($text)\n"; } $text =~ s/(\w+::)+//; if (my $type = $self->find_our_type($text)) { $our_local .= ' ' . $type; } } return $need_parens ? "($text)" : $text if $self->{'avoid_local'}{$$op}; if ($need_parens) { return "$our_local($text)"; } elsif (want_scalar($op) || $our_local eq 'our') { return "$our_local $text"; } else { return $self->maybe_parens_func("$our_local", $text, $cx, 16); } } else { return $need_parens ? "($text)" : $text; } } sub maybe_targmy { my $self = shift; my($op, $cx, $func, @args) = @_; if ($op->private & OPpTARGET_MY) { my $var = $self->padname($op->targ); my $val = $func->($self, $op, 7, @args); return $self->maybe_parens("$var = $val", $cx, 7); } else { return $func->($self, $op, $cx, @args); } } sub padname_sv { my $self = shift; my $targ = shift; return $self->{'curcv'}->PADLIST->ARRAYelt(0)->ARRAYelt($targ); } sub maybe_my { my $self = shift; my($op, $cx, $text, $padname, $forbid_parens) = @_; # The @a in \(@a) isn't in ref context, but only when the # parens are there. my $need_parens = !$forbid_parens && $self->{'in_refgen'} && $op->name =~ /[ah]v\z/ && ($op->flags & (OPf_PARENS|OPf_REF)) == OPf_PARENS; # The @a in \my @a must not have parens. if (!$need_parens && $self->{'in_refgen'}) { $forbid_parens = 1; } if ($op->private & OPpLVAL_INTRO and not $self->{'avoid_local'}{$$op}) { # Check $padname->FLAGS for statehood, rather than $op->private, # because enteriter ops do not carry the flag. my $my = $self->keyword($padname->FLAGS & SVpad_STATE ? "state" : "my"); if ($padname->FLAGS & SVpad_TYPED) { $my .= ' ' . $padname->SvSTASH->NAME; } if ($need_parens) { return "$my($text)"; } elsif ($forbid_parens || want_scalar($op)) { return "$my $text"; } else { return $self->maybe_parens_func($my, $text, $cx, 16); } } else { return $need_parens ? "($text)" : $text; } } # The following OPs don't have functions: # pp_padany -- does not exist after parsing sub AUTOLOAD { if ($AUTOLOAD =~ s/^.*::pp_//) { warn "unexpected OP_". ($_[1]->type == OP_CUSTOM ? "CUSTOM ($AUTOLOAD)" : uc $AUTOLOAD); return "XXX"; } else { die "Undefined subroutine $AUTOLOAD called"; } } sub DESTROY {} # Do not AUTOLOAD # $root should be the op which represents the root of whatever # we're sequencing here. If it's undefined, then we don't append # any subroutine declarations to the deparsed ops, otherwise we # append appropriate declarations. sub lineseq { my($self, $root, $cx, @ops) = @_; my($expr, @exprs); my $out_cop = $self->{'curcop'}; my $out_seq = defined($out_cop) ? $out_cop->cop_seq : undef; my $limit_seq; if (defined $root) { $limit_seq = $out_seq; my $nseq; $nseq = $self->find_scope_st($root->sibling) if ${$root->sibling}; $limit_seq = $nseq if !defined($limit_seq) or defined($nseq) && $nseq < $limit_seq; } $limit_seq = $self->{'limit_seq'} if defined($self->{'limit_seq'}) && (!defined($limit_seq) || $self->{'limit_seq'} < $limit_seq); local $self->{'limit_seq'} = $limit_seq; $self->walk_lineseq($root, \@ops, sub { push @exprs, $_[0]} ); my $sep = $cx ? '; ' : ";\n"; my $body = join($sep, grep {length} @exprs); my $subs = ""; if (defined $root && defined $limit_seq && !$self->{'in_format'}) { $subs = join "\n", $self->seq_subs($limit_seq); } return join($sep, grep {length} $body, $subs); } sub scopeop { my($real_block, $self, $op, $cx) = @_; my $kid; my @kids; local(@$self{qw'curstash warnings hints hinthash'}) = @$self{qw'curstash warnings hints hinthash'} if $real_block; if ($real_block) { $kid = $op->first->sibling; # skip enter if (is_miniwhile($kid)) { my $top = $kid->first; my $name = $top->name; if ($name eq "and") { $name = $self->keyword("while"); } elsif ($name eq "or") { $name = $self->keyword("until"); } else { # no conditional -> while 1 or until 0 return $self->deparse($top->first, 1) . " " . $self->keyword("while") . " 1"; } my $cond = $top->first; my $body = $cond->sibling->first; # skip lineseq $cond = $self->deparse($cond, 1); $body = $self->deparse($body, 1); return "$body $name $cond"; } } else { $kid = $op->first; } for (; !null($kid); $kid = $kid->sibling) { push @kids, $kid; } if ($cx > 0) { # inside an expression, (a do {} while for lineseq) my $body = $self->lineseq($op, 0, @kids); return is_lexical_subs(@kids) ? $body : ($self->lex_in_scope("&do") ? "CORE::do" : "do") . " {\n\t$body\n\b}"; } else { my $lineseq = $self->lineseq($op, $cx, @kids); return (length ($lineseq) ? "$lineseq;" : ""); } } sub pp_scope { scopeop(0, @_); } sub pp_lineseq { scopeop(0, @_); } sub pp_leave { scopeop(1, @_); } # This is a special case of scopeop and lineseq, for the case of the # main_root. The difference is that we print the output statements as # soon as we get them, for the sake of impatient users. sub deparse_root { my $self = shift; my($op) = @_; local(@$self{qw'curstash warnings hints hinthash'}) = @$self{qw'curstash warnings hints hinthash'}; my @kids; return if null $op->first; # Can happen, e.g., for Bytecode without -k for (my $kid = $op->first->sibling; !null($kid); $kid = $kid->sibling) { push @kids, $kid; } $self->walk_lineseq($op, \@kids, sub { return unless length $_[0]; print $self->indent($_[0].';'); print "\n" unless $_[1] == $#kids; }); } sub walk_lineseq { my ($self, $op, $kids, $callback) = @_; my @kids = @$kids; for (my $i = 0; $i < @kids; $i++) { my $expr = ""; if (is_state $kids[$i]) { $expr = $self->deparse($kids[$i++], 0); if ($i > $#kids) { $callback->($expr, $i); last; } } if (is_for_loop($kids[$i])) { $callback->($expr . $self->for_loop($kids[$i], 0), $i += $kids[$i]->sibling->name eq "unstack" ? 2 : 1); next; } my $expr2 = $self->deparse($kids[$i], (@kids != 1)/2); $expr2 =~ s/^sub :(?!:)/+sub :/; # statement label otherwise $expr .= $expr2; $callback->($expr, $i); } } # The BEGIN {} is used here because otherwise this code isn't executed # when you run B::Deparse on itself. my %globalnames; BEGIN { map($globalnames{$_}++, "SIG", "STDIN", "STDOUT", "STDERR", "INC", "ENV", "ARGV", "ARGVOUT", "_"); } sub gv_name { my $self = shift; my $gv = shift; my $raw = shift; #Carp::confess() unless ref($gv) eq "B::GV"; my $cv = $gv->FLAGS & SVf_ROK ? $gv->RV : 0; my $stash = ($cv || $gv)->STASH->NAME; my $name = $raw ? $cv ? $cv->NAME_HEK || $cv->GV->NAME : $gv->NAME : $cv ? B::safename($cv->NAME_HEK || $cv->GV->NAME) : $gv->SAFENAME; if ($stash eq 'main' && $name =~ /^::/) { $stash = '::'; } elsif (($stash eq 'main' && ($globalnames{$name} || $name =~ /^[^A-Za-z_:]/)) or ($stash eq $self->{'curstash'} && !$globalnames{$name} && ($stash eq 'main' || $name !~ /::/)) ) { $stash = ""; } else { $stash = $stash . "::"; } if (!$raw and $name =~ /^(\^..|{)/) { $name = "{$name}"; # ${^WARNING_BITS}, etc and ${ } return $stash . $name; } # Return the name to use for a stash variable. # If a lexical with the same name is in scope, or # if strictures are enabled, it may need to be # fully-qualified. sub stash_variable { my ($self, $prefix, $name, $cx) = @_; return $prefix.$self->maybe_qualify($prefix, $name) if $name =~ /::/; unless ($prefix eq '$' || $prefix eq '@' || $prefix eq '&' || #' $prefix eq '%' || $prefix eq '$#') { return "$prefix$name"; } if ($name =~ /^[^[:alpha:]_+-]$/) { if (defined $cx && $cx == 26) { if ($prefix eq '@') { return "$prefix\{$name}"; } elsif ($name eq '#') { return '${#}' } # "${#}a" vs "$#a" } if ($prefix eq '$#') { return "\$#{$name}"; } } return $prefix . $self->maybe_qualify($prefix, $name); } my %unctrl = # portable to EBCDIC ( "\c@" => '@', # unused "\cA" => 'A', "\cB" => 'B', "\cC" => 'C', "\cD" => 'D', "\cE" => 'E', "\cF" => 'F', "\cG" => 'G', "\cH" => 'H', "\cI" => 'I', "\cJ" => 'J', "\cK" => 'K', "\cL" => 'L', "\cM" => 'M', "\cN" => 'N', "\cO" => 'O', "\cP" => 'P', "\cQ" => 'Q', "\cR" => 'R', "\cS" => 'S', "\cT" => 'T', "\cU" => 'U', "\cV" => 'V', "\cW" => 'W', "\cX" => 'X', "\cY" => 'Y', "\cZ" => 'Z', "\c[" => '[', # unused "\c\\" => '\\', # unused "\c]" => ']', # unused "\c_" => '_', # unused ); # Return just the name, without the prefix. It may be returned as a quoted # string. The second return value is a boolean indicating that. sub stash_variable_name { my($self, $prefix, $gv) = @_; my $name = $self->gv_name($gv, 1); $name = $self->maybe_qualify($prefix,$name); if ($name =~ /^(?:\S|(?!\d)[\ca-\cz]?(?:\w|::)*|\d+)\z/) { $name =~ s/^([\ca-\cz])/'^' . $unctrl{$1}/e; $name =~ /^(\^..|{)/ and $name = "{$name}"; return $name, 0; # not quoted } else { single_delim("q", "'", $name, $self), 1; } } sub maybe_qualify { my ($self,$prefix,$name) = @_; my $v = ($prefix eq '$#' ? '@' : $prefix) . $name; if ($prefix eq "") { $name .= "::" if $name =~ /(?:\ACORE::[^:]*|::)\z/; return $name; } return $name if $name =~ /::/; return $self->{'curstash'}.'::'. $name if $name =~ /^(?!\d)\w/ # alphabetic && $v !~ /^\$[ab]\z/ # not $a or $b && $v =~ /\A[\$\@\%\&]/ # scalar, array, hash, or sub && !$globalnames{$name} # not a global name && $self->{hints} & $strict_bits{vars} # strict vars && !$self->lex_in_scope($v,1) # no "our" or $self->lex_in_scope($v); # conflicts with "my" variable return $name; } sub lex_in_scope { my ($self, $name, $our) = @_; substr $name, 0, 0, = $our ? 'o' : 'm'; # our/my $self->populate_curcvlex() if !defined $self->{'curcvlex'}; return 0 if !defined($self->{'curcop'}); my $seq = $self->{'curcop'}->cop_seq; return 0 if !exists $self->{'curcvlex'}{$name}; for my $a (@{$self->{'curcvlex'}{$name}}) { my ($st, $en) = @$a; return 1 if $seq > $st && $seq <= $en; } return 0; } sub populate_curcvlex { my $self = shift; for (my $cv = $self->{'curcv'}; class($cv) eq "CV"; $cv = $cv->OUTSIDE) { my $padlist = $cv->PADLIST; # an undef CV still in lexical chain next if class($padlist) eq "SPECIAL"; my @padlist = $padlist->ARRAY; my @ns = $padlist[0]->ARRAY; for (my $i=0; $i<@ns; ++$i) { next if class($ns[$i]) eq "SPECIAL"; if (class($ns[$i]) eq "PV") { # Probably that pesky lexical @_ next; } my $name = $ns[$i]->PVX; next unless defined $name; my ($seq_st, $seq_en) = ($ns[$i]->FLAGS & SVf_FAKE) ? (0, 999999) : ($ns[$i]->COP_SEQ_RANGE_LOW, $ns[$i]->COP_SEQ_RANGE_HIGH); push @{$self->{'curcvlex'}{ ($ns[$i]->FLAGS & SVpad_OUR ? 'o' : 'm') . $name }}, [$seq_st, $seq_en, $ns[$i]]; } } } sub find_scope_st { ((find_scope(@_))[0]); } sub find_scope_en { ((find_scope(@_))[1]); } # Recurses down the tree, looking for pad variable introductions and COPs sub find_scope { my ($self, $op, $scope_st, $scope_en) = @_; carp("Undefined op in find_scope") if !defined $op; return ($scope_st, $scope_en) unless $op->flags & OPf_KIDS; my @queue = ($op); while(my $op = shift @queue ) { for (my $o=$op->first; $$o; $o=$o->sibling) { if ($o->name =~ /^pad.v$/ && $o->private & OPpLVAL_INTRO) { my $s = int($self->padname_sv($o->targ)->COP_SEQ_RANGE_LOW); my $e = $self->padname_sv($o->targ)->COP_SEQ_RANGE_HIGH; $scope_st = $s if !defined($scope_st) || $s < $scope_st; $scope_en = $e if !defined($scope_en) || $e > $scope_en; return ($scope_st, $scope_en); } elsif (is_state($o)) { my $c = $o->cop_seq; $scope_st = $c if !defined($scope_st) || $c < $scope_st; $scope_en = $c if !defined($scope_en) || $c > $scope_en; return ($scope_st, $scope_en); } elsif ($o->flags & OPf_KIDS) { unshift (@queue, $o); } } } return ($scope_st, $scope_en); } # Returns a list of subs which should be inserted before the COP sub cop_subs { my ($self, $op, $out_seq) = @_; my $seq = $op->cop_seq; $seq = $out_seq if defined($out_seq) && $out_seq < $seq; return $self->seq_subs($seq); } sub seq_subs { my ($self, $seq) = @_; my @text; #push @text, "# ($seq)\n"; return "" if !defined $seq; my @pending; while (scalar(@{$self->{'subs_todo'}}) and $seq > $self->{'subs_todo'}[0][0]) { my $cv = $self->{'subs_todo'}[0][1]; # Skip the OUTSIDE check for lexical subs. We may be deparsing a # cloned anon sub with lexical subs declared in it, in which case # the OUTSIDE pointer points to the anon protosub. my $lexical = ref $self->{'subs_todo'}[0][3]; my $outside = !$lexical && $cv && $cv->OUTSIDE; if (!$lexical and $cv and ${$cv->OUTSIDE || \0} != ${$self->{'curcv'}}) { push @pending, shift @{$self->{'subs_todo'}}; next; } push @text, $self->next_todo; } unshift @{$self->{'subs_todo'}}, @pending; return @text; } sub _features_from_bundle { my ($hints, $hh) = @_; foreach (@{$feature::feature_bundle{@feature::hint_bundles[$hints >> $feature::hint_shift]}}) { $hh->{$feature::feature{$_}} = 1; } return $hh; } # generate any pragmas, 'package foo' etc needed to synchronise # with the given cop sub pragmata { my $self = shift; my($op) = @_; my @text; my $stash = $op->stashpv; if ($stash ne $self->{'curstash'}) { push @text, $self->keyword("package") . " $stash;\n"; $self->{'curstash'} = $stash; } my $warnings = $op->warnings; my $warning_bits; if ($warnings->isa("B::SPECIAL") && $$warnings == 4) { $warning_bits = $warnings::Bits{"all"} & WARN_MASK; } elsif ($warnings->isa("B::SPECIAL") && $$warnings == 5) { $warning_bits = $warnings::NONE; } elsif ($warnings->isa("B::SPECIAL")) { $warning_bits = undef; } else { $warning_bits = $warnings->PV & WARN_MASK; } if (defined ($warning_bits) and !defined($self->{warnings}) || $self->{'warnings'} ne $warning_bits) { push @text, $self->declare_warnings($self->{'warnings'}, $warning_bits); $self->{'warnings'} = $warning_bits; } my $hints = $op->hints; my $old_hints = $self->{'hints'}; if ($self->{'hints'} != $hints) { push @text, $self->declare_hints($self->{'hints'}, $hints); $self->{'hints'} = $hints; } my $newhh; $newhh = $op->hints_hash->HASH; { # feature bundle hints my $from = $old_hints & $feature::hint_mask; my $to = $ hints & $feature::hint_mask; if ($from != $to) { if ($to == $feature::hint_mask) { if ($self->{'hinthash'}) { delete $self->{'hinthash'}{$_} for grep /^feature_/, keys %{$self->{'hinthash'}}; } else { $self->{'hinthash'} = {} } $self->{'hinthash'} = _features_from_bundle($from, $self->{'hinthash'}); } else { my $bundle = $feature::hint_bundles[$to >> $feature::hint_shift]; $bundle =~ s/(\d[13579])\z/$1+1/e; # 5.11 => 5.12 push @text, $self->keyword("no") . " feature ':all';\n", $self->keyword("use") . " feature ':$bundle';\n"; } } } { push @text, $self->declare_hinthash( $self->{'hinthash'}, $newhh, $self->{indent_size}, $self->{hints}, ); $self->{'hinthash'} = $newhh; } return join("", @text); } # Notice how subs and formats are inserted between statements here; # also $[ assignments and pragmas. sub pp_nextstate { my $self = shift; my($op, $cx) = @_; $self->{'curcop'} = $op; my @text; my @subs = $self->cop_subs($op); if (@subs) { # Special marker to swallow up the semicolon push @subs, "\cK"; } push @text, @subs; push @text, $self->pragmata($op); # This should go after of any branches that add statements, to # increase the chances that it refers to the same line it did in # the original program. if ($self->{'linenums'} && $cx != .5) { # $cx == .5 means in a format push @text, "\f#line " . $op->line . ' "' . $op->file, qq'"\n'; } push @text, $op->label . ": " if $op->label; return join("", @text); } sub declare_warnings { my ($self, $from, $to) = @_; $from //= ''; my $all = (warnings::bits("all") & WARN_MASK); unless ((($from & WARN_MASK) & ~$all) =~ /[^\0]/) { # no FATAL bits need turning off if ( ($to & WARN_MASK) eq $all) { return $self->keyword("use") . " warnings;\n"; } elsif (($to & WARN_MASK) eq ("\0"x length($to) & WARN_MASK)) { return $self->keyword("no") . " warnings;\n"; } } return "BEGIN {\${^WARNING_BITS} = \"" . join("", map { sprintf("\\x%02x", ord $_) } split "", $to) . "\"}\n\cK"; } sub declare_hints { my ($self, $from, $to) = @_; my $use = $to & ~$from; my $no = $from & ~$to; my $decls = ""; for my $pragma (hint_pragmas($use)) { $decls .= $self->keyword("use") . " $pragma;\n"; } for my $pragma (hint_pragmas($no)) { $decls .= $self->keyword("no") . " $pragma;\n"; } return $decls; } # Internal implementation hints that the core sets automatically, so don't need # (or want) to be passed back to the user my %ignored_hints = ( 'open<' => 1, 'open>' => 1, ':' => 1, 'strict/refs' => 1, 'strict/subs' => 1, 'strict/vars' => 1, 'feature/bits' => 1, ); my %rev_feature; sub declare_hinthash { my ($self, $from, $to, $indent, $hints) = @_; my $doing_features = ($hints & $feature::hint_mask) == $feature::hint_mask; my @decls; my @features; my @unfeatures; # bugs? for my $key (sort keys %$to) { next if $ignored_hints{$key}; my $is_feature = $key =~ /^feature_/; next if $is_feature and not $doing_features; if (!exists $from->{$key} or $from->{$key} ne $to->{$key}) { push(@features, $key), next if $is_feature; push @decls, qq(\$^H{) . single_delim("q", "'", $key, $self) . qq(} = ) . ( defined $to->{$key} ? single_delim("q", "'", $to->{$key}, $self) : 'undef' ) . qq(;); } } for my $key (sort keys %$from) { next if $ignored_hints{$key}; my $is_feature = $key =~ /^feature_/; next if $is_feature and not $doing_features; if (!exists $to->{$key}) { push(@unfeatures, $key), next if $is_feature; push @decls, qq(delete \$^H{'$key'};); } } my @ret; if (@features || @unfeatures) { if (!%rev_feature) { %rev_feature = reverse %feature::feature } } if (@features) { push @ret, $self->keyword("use") . " feature " . join(", ", map "'$rev_feature{$_}'", @features) . ";\n"; } if (@unfeatures) { push @ret, $self->keyword("no") . " feature " . join(", ", map "'$rev_feature{$_}'", @unfeatures) . ";\n"; } @decls and push @ret, join("\n" . (" " x $indent), "BEGIN {", @decls) . "\n}\n\cK"; return @ret; } sub hint_pragmas { my ($bits) = @_; my (@pragmas, @strict); push @pragmas, "integer" if $bits & 0x1; for (sort keys %strict_bits) { push @strict, "'$_'" if $bits & $strict_bits{$_}; } if (@strict == keys %strict_bits) { push @pragmas, "strict"; } elsif (@strict) { push @pragmas, "strict " . join ', ', @strict; } push @pragmas, "bytes" if $bits & 0x8; return @pragmas; } sub pp_dbstate { pp_nextstate(@_) } sub pp_setstate { pp_nextstate(@_) } sub pp_unstack { return "" } # see also leaveloop my %feature_keywords = ( # keyword => 'feature', state => 'state', say => 'say', given => 'switch', when => 'switch', default => 'switch', break => 'switch', evalbytes=>'evalbytes', __SUB__ => '__SUB__', fc => 'fc', try => 'try', catch => 'try', ); # keywords that are strong and also have a prototype # my %strong_proto_keywords = map { $_ => 1 } qw( pos prototype scalar study undef ); sub feature_enabled { my($self,$name) = @_; my $hh; my $hints = $self->{hints} & $feature::hint_mask; if ($hints && $hints != $feature::hint_mask) { $hh = _features_from_bundle($hints); } elsif ($hints) { $hh = $self->{'hinthash'} } return $hh && $hh->{"feature_$feature_keywords{$name}"} } sub keyword { my $self = shift; my $name = shift; return $name if $name =~ /^CORE::/; # just in case if (exists $feature_keywords{$name}) { return "CORE::$name" if not $self->feature_enabled($name); } # This sub may be called for a program that has no nextstate ops. In # that case we may have a lexical sub named no/use/sub in scope but # $self->lex_in_scope will return false because it depends on the # current nextstate op. So we need this alternate method if there is # no current cop. if (!$self->{'curcop'}) { $self->populate_curcvlex() if !defined $self->{'curcvlex'}; return "CORE::$name" if exists $self->{'curcvlex'}{"m&$name"} || exists $self->{'curcvlex'}{"o&$name"}; } elsif ($self->lex_in_scope("&$name") || $self->lex_in_scope("&$name", 1)) { return "CORE::$name"; } if ($strong_proto_keywords{$name} || ($name !~ /^(?:chom?p|do|exec|glob|s(?:elect|ystem))\z/ && !defined eval{prototype "CORE::$name"}) ) { return $name } if ( exists $self->{subs_declared}{$name} or exists &{"$self->{curstash}::$name"} ) { return "CORE::$name" } return $name; } sub baseop { my $self = shift; my($op, $cx, $name) = @_; return $self->keyword($name); } sub pp_stub { "()" } sub pp_wantarray { baseop(@_, "wantarray") } sub pp_fork { baseop(@_, "fork") } sub pp_wait { maybe_targmy(@_, \&baseop, "wait") } sub pp_getppid { maybe_targmy(@_, \&baseop, "getppid") } sub pp_time { maybe_targmy(@_, \&baseop, "time") } sub pp_tms { baseop(@_, "times") } sub pp_ghostent { baseop(@_, "gethostent") } sub pp_gnetent { baseop(@_, "getnetent") } sub pp_gprotoent { baseop(@_, "getprotoent") } sub pp_gservent { baseop(@_, "getservent") } sub pp_ehostent { baseop(@_, "endhostent") } sub pp_enetent { baseop(@_, "endnetent") } sub pp_eprotoent { baseop(@_, "endprotoent") } sub pp_eservent { baseop(@_, "endservent") } sub pp_gpwent { baseop(@_, "getpwent") } sub pp_spwent { baseop(@_, "setpwent") } sub pp_epwent { baseop(@_, "endpwent") } sub pp_ggrent { baseop(@_, "getgrent") } sub pp_sgrent { baseop(@_, "setgrent") } sub pp_egrent { baseop(@_, "endgrent") } sub pp_getlogin { baseop(@_, "getlogin") } sub POSTFIX () { 1 } # I couldn't think of a good short name, but this is the category of # symbolic unary operators with interesting precedence sub pfixop { my $self = shift; my($op, $cx, $name, $prec, $flags) = (@_, 0); my $kid = $op->first; $kid = $self->deparse($kid, $prec); return $self->maybe_parens(($flags & POSTFIX) ? "$kid$name" # avoid confusion with filetests : $name eq '-' && $kid =~ /^[a-zA-Z](?!\w)/ ? "$name($kid)" : "$name$kid", $cx, $prec); } sub pp_preinc { pfixop(@_, "++", 23) } sub pp_predec { pfixop(@_, "--", 23) } sub pp_postinc { maybe_targmy(@_, \&pfixop, "++", 23, POSTFIX) } sub pp_postdec { maybe_targmy(@_, \&pfixop, "--", 23, POSTFIX) } sub pp_i_preinc { pfixop(@_, "++", 23) } sub pp_i_predec { pfixop(@_, "--", 23) } sub pp_i_postinc { maybe_targmy(@_, \&pfixop, "++", 23, POSTFIX) } sub pp_i_postdec { maybe_targmy(@_, \&pfixop, "--", 23, POSTFIX) } sub pp_complement { maybe_targmy(@_, \&pfixop, "~", 21) } *pp_ncomplement = *pp_complement; sub pp_scomplement { maybe_targmy(@_, \&pfixop, "~.", 21) } sub pp_negate { maybe_targmy(@_, \&real_negate) } sub real_negate { my $self = shift; my($op, $cx) = @_; if ($op->first->name =~ /^(i_)?negate$/) { # avoid --$x $self->pfixop($op, $cx, "-", 21.5); } else { $self->pfixop($op, $cx, "-", 21); } } sub pp_i_negate { pp_negate(@_) } sub pp_not { my $self = shift; my($op, $cx) = @_; if ($cx <= 4) { $self->listop($op, $cx, "not", $op->first); } else { $self->pfixop($op, $cx, "!", 21); } } sub unop { my $self = shift; my($op, $cx, $name, $nollafr) = @_; my $kid; if ($op->flags & OPf_KIDS) { $kid = $op->first; if (not $name) { # this deals with 'boolkeys' right now return $self->deparse($kid,$cx); } my $builtinname = $name; $builtinname =~ /^CORE::/ or $builtinname = "CORE::$name"; if (defined prototype($builtinname) && $builtinname ne 'CORE::readline' && prototype($builtinname) =~ /^;?\*/ && $kid->name eq "rv2gv") { $kid = $kid->first; } if ($nollafr) { if (($kid = $self->deparse($kid, 16)) !~ s/^\cS//) { # require foo() is a syntax error. $kid =~ /^(?!\d)\w/ and $kid = "($kid)"; } return $self->maybe_parens( $self->keyword($name) . " $kid", $cx, 16 ); } return $self->maybe_parens_unop($name, $kid, $cx); } else { return $self->maybe_parens( $self->keyword($name) . ($op->flags & OPf_SPECIAL ? "()" : ""), $cx, 16, ); } } sub pp_chop { maybe_targmy(@_, \&unop, "chop") } sub pp_chomp { maybe_targmy(@_, \&unop, "chomp") } sub pp_schop { maybe_targmy(@_, \&unop, "chop") } sub pp_schomp { maybe_targmy(@_, \&unop, "chomp") } sub pp_defined { unop(@_, "defined") } sub pp_undef { unop(@_, "undef") } sub pp_study { unop(@_, "study") } sub pp_ref { unop(@_, "ref") } sub pp_pos { maybe_local(@_, unop(@_, "pos")) } sub pp_sin { maybe_targmy(@_, \&unop, "sin") } sub pp_cos { maybe_targmy(@_, \&unop, "cos") } sub pp_rand { maybe_targmy(@_, \&unop, "rand") } sub pp_srand { unop(@_, "srand") } sub pp_exp { maybe_targmy(@_, \&unop, "exp") } sub pp_log { maybe_targmy(@_, \&unop, "log") } sub pp_sqrt { maybe_targmy(@_, \&unop, "sqrt") } sub pp_int { maybe_targmy(@_, \&unop, "int") } sub pp_hex { maybe_targmy(@_, \&unop, "hex") } sub pp_oct { maybe_targmy(@_, \&unop, "oct") } sub pp_abs { maybe_targmy(@_, \&unop, "abs") } sub pp_length { maybe_targmy(@_, \&unop, "length") } sub pp_ord { maybe_targmy(@_, \&unop, "ord") } sub pp_chr { maybe_targmy(@_, \&unop, "chr") } sub pp_each { unop(@_, "each") } sub pp_values { unop(@_, "values") } sub pp_keys { unop(@_, "keys") } { no strict 'refs'; *{"pp_r$_"} = *{"pp_$_"} for qw< keys each values >; } sub pp_boolkeys { # no name because its an optimisation op that has no keyword unop(@_,""); } sub pp_aeach { unop(@_, "each") } sub pp_avalues { unop(@_, "values") } sub pp_akeys { unop(@_, "keys") } sub pp_pop { unop(@_, "pop") } sub pp_shift { unop(@_, "shift") } sub pp_caller { unop(@_, "caller") } sub pp_reset { unop(@_, "reset") } sub pp_exit { unop(@_, "exit") } sub pp_prototype { unop(@_, "prototype") } sub pp_close { unop(@_, "close") } sub pp_fileno { unop(@_, "fileno") } sub pp_umask { unop(@_, "umask") } sub pp_untie { unop(@_, "untie") } sub pp_tied { unop(@_, "tied") } sub pp_dbmclose { unop(@_, "dbmclose") } sub pp_getc { unop(@_, "getc") } sub pp_eof { unop(@_, "eof") } sub pp_tell { unop(@_, "tell") } sub pp_getsockname { unop(@_, "getsockname") } sub pp_getpeername { unop(@_, "getpeername") } sub pp_chdir { my ($self, $op, $cx) = @_; if (($op->flags & (OPf_SPECIAL|OPf_KIDS)) == (OPf_SPECIAL|OPf_KIDS)) { my $kw = $self->keyword("chdir"); my $kid = $self->const_sv($op->first)->PV; my $code = $kw . ($cx >= 16 || $self->{'parens'} ? "($kid)" : " $kid"); maybe_targmy(@_, sub { $_[3] }, $code); } else { maybe_targmy(@_, \&unop, "chdir") } } sub pp_chroot { maybe_targmy(@_, \&unop, "chroot") } sub pp_readlink { unop(@_, "readlink") } sub pp_rmdir { maybe_targmy(@_, \&unop, "rmdir") } sub pp_readdir { unop(@_, "readdir") } sub pp_telldir { unop(@_, "telldir") } sub pp_rewinddir { unop(@_, "rewinddir") } sub pp_closedir { unop(@_, "closedir") } sub pp_getpgrp { maybe_targmy(@_, \&unop, "getpgrp") } sub pp_localtime { unop(@_, "localtime") } sub pp_gmtime { unop(@_, "gmtime") } sub pp_alarm { unop(@_, "alarm") } sub pp_sleep { maybe_targmy(@_, \&unop, "sleep") } sub pp_dofile { my $code = unop(@_, "do", 1); # llafr does not apply if ($code =~ s/^((?:CORE::)?do) \{/$1({/) { $code .= ')' } $code; } sub pp_entereval { unop( @_, $_[1]->private & OPpEVAL_BYTES ? 'evalbytes' : "eval" ) } sub pp_ghbyname { unop(@_, "gethostbyname") } sub pp_gnbyname { unop(@_, "getnetbyname") } sub pp_gpbyname { unop(@_, "getprotobyname") } sub pp_shostent { unop(@_, "sethostent") } sub pp_snetent { unop(@_, "setnetent") } sub pp_sprotoent { unop(@_, "setprotoent") } sub pp_sservent { unop(@_, "setservent") } sub pp_gpwnam { unop(@_, "getpwnam") } sub pp_gpwuid { unop(@_, "getpwuid") } sub pp_ggrnam { unop(@_, "getgrnam") } sub pp_ggrgid { unop(@_, "getgrgid") } sub pp_lock { unop(@_, "lock") } sub pp_continue { unop(@_, "continue"); } sub pp_break { unop(@_, "break"); } sub givwhen { my $self = shift; my($op, $cx, $givwhen) = @_; my $enterop = $op->first; my ($head, $block); if ($enterop->flags & OPf_SPECIAL) { $head = $self->keyword("default"); $block = $self->deparse($enterop->first, 0); } else { my $cond = $enterop->first; my $cond_str = $self->deparse($cond, 1); $head = "$givwhen ($cond_str)"; $block = $self->deparse($cond->sibling, 0); } return "$head {\n". "\t$block\n". "\b}\cK"; } sub pp_leavegiven { givwhen(@_, $_[0]->keyword("given")); } sub pp_leavewhen { givwhen(@_, $_[0]->keyword("when")); } sub pp_exists { my $self = shift; my($op, $cx) = @_; my $arg; my $name = $self->keyword("exists"); if ($op->private & OPpEXISTS_SUB) { # Checking for the existence of a subroutine return $self->maybe_parens_func($name, $self->pp_rv2cv($op->first, 16), $cx, 16); } if ($op->flags & OPf_SPECIAL) { # Array element, not hash element return $self->maybe_parens_func($name, $self->pp_aelem($op->first, 16), $cx, 16); } return $self->maybe_parens_func($name, $self->pp_helem($op->first, 16), $cx, 16); } sub pp_delete { my $self = shift; my($op, $cx) = @_; my $arg; my $name = $self->keyword("delete"); if ($op->private & (OPpSLICE|OPpKVSLICE)) { if ($op->flags & OPf_SPECIAL) { # Deleting from an array, not a hash return $self->maybe_parens_func($name, $self->pp_aslice($op->first, 16), $cx, 16); } return $self->maybe_parens_func($name, $self->pp_hslice($op->first, 16), $cx, 16); } else { if ($op->flags & OPf_SPECIAL) { # Deleting from an array, not a hash return $self->maybe_parens_func($name, $self->pp_aelem($op->first, 16), $cx, 16); } return $self->maybe_parens_func($name, $self->pp_helem($op->first, 16), $cx, 16); } } sub pp_require { my $self = shift; my($op, $cx) = @_; my $opname = $op->flags & OPf_SPECIAL ? 'CORE::require' : 'require'; my $kid = $op->first; if ($kid->name eq 'const') { my $priv = $kid->private; my $sv = $self->const_sv($kid); my $arg; if ($priv & OPpCONST_BARE) { $arg = $sv->PV; $arg =~ s[/][::]g; $arg =~ s/\.pm//g; } elsif ($priv & OPpCONST_NOVER) { $opname = $self->keyword('no'); $arg = $self->const($sv, 16); } elsif ((my $tmp = $self->const($sv, 16)) =~ /^v/) { $arg = $tmp; } if ($arg) { return $self->maybe_parens("$opname $arg", $cx, 16); } } $self->unop( $op, $cx, $opname, 1, # llafr does not apply ); } sub pp_scalar { my $self = shift; my($op, $cx) = @_; my $kid = $op->first; if (not null $kid->sibling) { # XXX Was a here-doc return $self->dquote($op); } $self->unop(@_, "scalar"); } sub padval { my $self = shift; my $targ = shift; return $self->{'curcv'}->PADLIST->ARRAYelt(1)->ARRAYelt($targ); } sub anon_hash_or_list { my $self = shift; my($op, $cx) = @_; my($pre, $post) = @{{"anonlist" => ["[","]"], "anonhash" => ["{","}"]}->{$op->name}}; my($expr, @exprs); $op = $op->first->sibling; # skip pushmark for (; !null($op); $op = $op->sibling) { $expr = $self->deparse($op, 6); push @exprs, $expr; } if ($pre eq "{" and $cx < 1) { # Disambiguate that it's not a block $pre = "+{"; } return $pre . join(", ", @exprs) . $post; } sub pp_anonlist { my $self = shift; my ($op, $cx) = @_; if ($op->flags & OPf_SPECIAL) { return $self->anon_hash_or_list($op, $cx); } warn "Unexpected op pp_" . $op->name() . " without OPf_SPECIAL"; return 'XXX'; } *pp_anonhash = \&pp_anonlist; sub pp_refgen { my $self = shift; my($op, $cx) = @_; my $kid = $op->first; if ($kid->name eq "null") { my $anoncode = $kid = $kid->first; if ($anoncode->name eq "anonconst") { $anoncode = $anoncode->first->first->sibling; } if ($anoncode->name eq "anoncode" or !null($anoncode = $kid->sibling) and $anoncode->name eq "anoncode") { return $self->e_anoncode({ code => $self->padval($anoncode->targ) }); } elsif ($kid->name eq "pushmark") { my $sib_name = $kid->sibling->name; if ($sib_name eq 'entersub') { my $text = $self->deparse($kid->sibling, 1); # Always show parens for \(&func()), but only with -p otherwise $text = "($text)" if $self->{'parens'} or $kid->sibling->private & OPpENTERSUB_AMPER; return "\\$text"; } } } local $self->{'in_refgen'} = 1; $self->pfixop($op, $cx, "\\", 20); } sub e_anoncode { my ($self, $info) = @_; my $text = $self->deparse_sub($info->{code}); return $self->keyword("sub") . " $text"; } sub pp_srefgen { pp_refgen(@_) } sub pp_readline { my $self = shift; my($op, $cx) = @_; my $kid = $op->first; if (is_scalar($kid) and $op->flags & OPf_SPECIAL and $self->deparse($kid, 1) eq 'ARGV') { return '<<>>'; } return $self->unop($op, $cx, "readline"); } sub pp_rcatline { my $self = shift; my($op) = @_; return "<" . $self->gv_name($self->gv_or_padgv($op)) . ">"; } # Unary operators that can occur as pseudo-listops inside double quotes sub dq_unop { my $self = shift; my($op, $cx, $name, $prec, $flags) = (@_, 0, 0); my $kid; if ($op->flags & OPf_KIDS) { $kid = $op->first; # If there's more than one kid, the first is an ex-pushmark. $kid = $kid->sibling if not null $kid->sibling; return $self->maybe_parens_unop($name, $kid, $cx); } else { return $name . ($op->flags & OPf_SPECIAL ? "()" : ""); } } sub pp_ucfirst { dq_unop(@_, "ucfirst") } sub pp_lcfirst { dq_unop(@_, "lcfirst") } sub pp_uc { dq_unop(@_, "uc") } sub pp_lc { dq_unop(@_, "lc") } sub pp_quotemeta { maybe_targmy(@_, \&dq_unop, "quotemeta") } sub pp_fc { dq_unop(@_, "fc") } sub loopex { my $self = shift; my ($op, $cx, $name) = @_; if (class($op) eq "PVOP") { $name .= " " . $op->pv; } elsif (class($op) eq "OP") { # no-op } elsif (class($op) eq "UNOP") { (my $kid = $self->deparse($op->first, 7)) =~ s/^\cS//; # last foo() is a syntax error. $kid =~ /^(?!\d)\w/ and $kid = "($kid)"; $name .= " $kid"; } return $self->maybe_parens($name, $cx, 7); } sub pp_last { loopex(@_, "last") } sub pp_next { loopex(@_, "next") } sub pp_redo { loopex(@_, "redo") } sub pp_goto { loopex(@_, "goto") } sub pp_dump { loopex(@_, "CORE::dump") } sub ftst { my $self = shift; my($op, $cx, $name) = @_; if (class($op) eq "UNOP") { # Genuine '-X' filetests are exempt from the LLAFR, but not # l?stat() if ($name =~ /^-/) { (my $kid = $self->deparse($op->first, 16)) =~ s/^\cS//; return $self->maybe_parens("$name $kid", $cx, 16); } return $self->maybe_parens_unop($name, $op->first, $cx); } elsif (class($op) =~ /^(SV|PAD)OP$/) { return $self->maybe_parens_func($name, $self->pp_gv($op, 1), $cx, 16); } else { # I don't think baseop filetests ever survive ck_ftst, but... return $name; } } sub pp_lstat { ftst(@_, "lstat") } sub pp_stat { ftst(@_, "stat") } sub pp_ftrread { ftst(@_, "-R") } sub pp_ftrwrite { ftst(@_, "-W") } sub pp_ftrexec { ftst(@_, "-X") } sub pp_fteread { ftst(@_, "-r") } sub pp_ftewrite { ftst(@_, "-w") } sub pp_fteexec { ftst(@_, "-x") } sub pp_ftis { ftst(@_, "-e") } sub pp_fteowned { ftst(@_, "-O") } sub pp_ftrowned { ftst(@_, "-o") } sub pp_ftzero { ftst(@_, "-z") } sub pp_ftsize { ftst(@_, "-s") } sub pp_ftmtime { ftst(@_, "-M") } sub pp_ftatime { ftst(@_, "-A") } sub pp_ftctime { ftst(@_, "-C") } sub pp_ftsock { ftst(@_, "-S") } sub pp_ftchr { ftst(@_, "-c") } sub pp_ftblk { ftst(@_, "-b") } sub pp_ftfile { ftst(@_, "-f") } sub pp_ftdir { ftst(@_, "-d") } sub pp_ftpipe { ftst(@_, "-p") } sub pp_ftlink { ftst(@_, "-l") } sub pp_ftsuid { ftst(@_, "-u") } sub pp_ftsgid { ftst(@_, "-g") } sub pp_ftsvtx { ftst(@_, "-k") } sub pp_fttty { ftst(@_, "-t") } sub pp_fttext { ftst(@_, "-T") } sub pp_ftbinary { ftst(@_, "-B") } sub SWAP_CHILDREN () { 1 } sub ASSIGN () { 2 } # has OP= variant sub LIST_CONTEXT () { 4 } # Assignment is in list context my(%left, %right); sub assoc_class { my $op = shift; my $name = $op->name; if ($name eq "concat" and $op->first->name eq "concat") { # avoid spurious '=' -- see comment in pp_concat return "concat"; } if ($name eq "null" and class($op) eq "UNOP" and $op->first->name =~ /^(and|x?or)$/ and null $op->first->sibling) { # Like all conditional constructs, OP_ANDs and OP_ORs are topped # with a null that's used as the common end point of the two # flows of control. For precedence purposes, ignore it. # (COND_EXPRs have these too, but we don't bother with # their associativity). return assoc_class($op->first); } return $name . ($op->flags & OPf_STACKED ? "=" : ""); } # Left associative operators, like '+', for which # $a + $b + $c is equivalent to ($a + $b) + $c BEGIN { %left = ('multiply' => 19, 'i_multiply' => 19, 'divide' => 19, 'i_divide' => 19, 'modulo' => 19, 'i_modulo' => 19, 'repeat' => 19, 'add' => 18, 'i_add' => 18, 'subtract' => 18, 'i_subtract' => 18, 'concat' => 18, 'left_shift' => 17, 'right_shift' => 17, 'bit_and' => 13, 'nbit_and' => 13, 'sbit_and' => 13, 'bit_or' => 12, 'bit_xor' => 12, 'sbit_or' => 12, 'sbit_xor' => 12, 'nbit_or' => 12, 'nbit_xor' => 12, 'and' => 3, 'or' => 2, 'xor' => 2, ); } sub deparse_binop_left { my $self = shift; my($op, $left, $prec) = @_; if ($left{assoc_class($op)} && $left{assoc_class($left)} and $left{assoc_class($op)} == $left{assoc_class($left)}) { return $self->deparse($left, $prec - .00001); } else { return $self->deparse($left, $prec); } } # Right associative operators, like '=', for which # $a = $b = $c is equivalent to $a = ($b = $c) BEGIN { %right = ('pow' => 22, 'sassign=' => 7, 'aassign=' => 7, 'multiply=' => 7, 'i_multiply=' => 7, 'divide=' => 7, 'i_divide=' => 7, 'modulo=' => 7, 'i_modulo=' => 7, 'repeat=' => 7, 'refassign' => 7, 'refassign=' => 7, 'add=' => 7, 'i_add=' => 7, 'subtract=' => 7, 'i_subtract=' => 7, 'concat=' => 7, 'left_shift=' => 7, 'right_shift=' => 7, 'bit_and=' => 7, 'sbit_and=' => 7, 'nbit_and=' => 7, 'nbit_or=' => 7, 'nbit_xor=' => 7, 'sbit_or=' => 7, 'sbit_xor=' => 7, 'andassign' => 7, 'orassign' => 7, ); } sub deparse_binop_right { my $self = shift; my($op, $right, $prec) = @_; if ($right{assoc_class($op)} && $right{assoc_class($right)} and $right{assoc_class($op)} == $right{assoc_class($right)}) { return $self->deparse($right, $prec - .00001); } else { return $self->deparse($right, $prec); } } sub binop { my $self = shift; my ($op, $cx, $opname, $prec, $flags) = (@_, 0); my $left = $op->first; my $right = $op->last; my $eq = ""; if ($op->flags & OPf_STACKED && $flags & ASSIGN) { $eq = "="; $prec = 7; } if ($flags & SWAP_CHILDREN) { ($left, $right) = ($right, $left); } my $leftop = $left; $left = $self->deparse_binop_left($op, $left, $prec); $left = "($left)" if $flags & LIST_CONTEXT and $left !~ /^(my|our|local|state|)\s*[\@%\(]/ || do { # Parenthesize if the left argument is a # lone repeat op. my $left = $leftop->first->sibling; $left->name eq 'repeat' && null($left->sibling); }; $right = $self->deparse_binop_right($op, $right, $prec); return $self->maybe_parens("$left $opname$eq $right", $cx, $prec); } sub pp_add { maybe_targmy(@_, \&binop, "+", 18, ASSIGN) } sub pp_multiply { maybe_targmy(@_, \&binop, "*", 19, ASSIGN) } sub pp_subtract { maybe_targmy(@_, \&binop, "-",18, ASSIGN) } sub pp_divide { maybe_targmy(@_, \&binop, "/", 19, ASSIGN) } sub pp_modulo { maybe_targmy(@_, \&binop, "%", 19, ASSIGN) } sub pp_i_add { maybe_targmy(@_, \&binop, "+", 18, ASSIGN) } sub pp_i_multiply { maybe_targmy(@_, \&binop, "*", 19, ASSIGN) } sub pp_i_subtract { maybe_targmy(@_, \&binop, "-", 18, ASSIGN) } sub pp_i_divide { maybe_targmy(@_, \&binop, "/", 19, ASSIGN) } sub pp_i_modulo { maybe_targmy(@_, \&binop, "%", 19, ASSIGN) } sub pp_pow { maybe_targmy(@_, \&binop, "**", 22, ASSIGN) } sub pp_left_shift { maybe_targmy(@_, \&binop, "<<", 17, ASSIGN) } sub pp_right_shift { maybe_targmy(@_, \&binop, ">>", 17, ASSIGN) } sub pp_bit_and { maybe_targmy(@_, \&binop, "&", 13, ASSIGN) } sub pp_bit_or { maybe_targmy(@_, \&binop, "|", 12, ASSIGN) } sub pp_bit_xor { maybe_targmy(@_, \&binop, "^", 12, ASSIGN) } *pp_nbit_and = *pp_bit_and; *pp_nbit_or = *pp_bit_or; *pp_nbit_xor = *pp_bit_xor; sub pp_sbit_and { maybe_targmy(@_, \&binop, "&.", 13, ASSIGN) } sub pp_sbit_or { maybe_targmy(@_, \&binop, "|.", 12, ASSIGN) } sub pp_sbit_xor { maybe_targmy(@_, \&binop, "^.", 12, ASSIGN) } sub pp_eq { binop(@_, "==", 14) } sub pp_ne { binop(@_, "!=", 14) } sub pp_lt { binop(@_, "<", 15) } sub pp_gt { binop(@_, ">", 15) } sub pp_ge { binop(@_, ">=", 15) } sub pp_le { binop(@_, "<=", 15) } sub pp_ncmp { binop(@_, "<=>", 14) } sub pp_i_eq { binop(@_, "==", 14) } sub pp_i_ne { binop(@_, "!=", 14) } sub pp_i_lt { binop(@_, "<", 15) } sub pp_i_gt { binop(@_, ">", 15) } sub pp_i_ge { binop(@_, ">=", 15) } sub pp_i_le { binop(@_, "<=", 15) } sub pp_i_ncmp { maybe_targmy(@_, \&binop, "<=>", 14) } sub pp_seq { binop(@_, "eq", 14) } sub pp_sne { binop(@_, "ne", 14) } sub pp_slt { binop(@_, "lt", 15) } sub pp_sgt { binop(@_, "gt", 15) } sub pp_sge { binop(@_, "ge", 15) } sub pp_sle { binop(@_, "le", 15) } sub pp_scmp { maybe_targmy(@_, \&binop, "cmp", 14) } sub pp_isa { binop(@_, "isa", 15) } sub pp_sassign { binop(@_, "=", 7, SWAP_CHILDREN) } sub pp_aassign { binop(@_, "=", 7, SWAP_CHILDREN | LIST_CONTEXT) } sub pp_smartmatch { my ($self, $op, $cx) = @_; if (($op->flags & OPf_SPECIAL) && $self->{expand} < 2) { return $self->deparse($op->last, $cx); } else { binop(@_, "~~", 14); } } # '.' is special because concats-of-concats are optimized to save copying # by making all but the first concat stacked. The effect is as if the # programmer had written '($a . $b) .= $c', except legal. sub pp_concat { maybe_targmy(@_, \&real_concat) } sub real_concat { my $self = shift; my($op, $cx) = @_; my $left = $op->first; my $right = $op->last; my $eq = ""; my $prec = 18; if (($op->flags & OPf_STACKED) and !($op->private & OPpCONCAT_NESTED)) { # '.=' rather than optimised '.' $eq = "="; $prec = 7; } $left = $self->deparse_binop_left($op, $left, $prec); $right = $self->deparse_binop_right($op, $right, $prec); return $self->maybe_parens("$left .$eq $right", $cx, $prec); } sub pp_repeat { maybe_targmy(@_, \&repeat) } # 'x' is weird when the left arg is a list sub repeat { my $self = shift; my($op, $cx) = @_; my $left = $op->first; my $right = $op->last; my $eq = ""; my $prec = 19; if ($op->flags & OPf_STACKED) { $eq = "="; $prec = 7; } if (null($right)) { # list repeat; count is inside left-side ex-list # in 5.21.5 and earlier my $kid = $left->first->sibling; # skip pushmark my @exprs; for (; !null($kid->sibling); $kid = $kid->sibling) { push @exprs, $self->deparse($kid, 6); } $right = $kid; $left = "(" . join(", ", @exprs). ")"; } else { my $dolist = $op->private & OPpREPEAT_DOLIST; $left = $self->deparse_binop_left($op, $left, $dolist ? 1 : $prec); if ($dolist) { $left = "($left)"; } } $right = $self->deparse_binop_right($op, $right, $prec); return $self->maybe_parens("$left x$eq $right", $cx, $prec); } sub range { my $self = shift; my ($op, $cx, $type) = @_; my $left = $op->first; my $right = $left->sibling; $left = $self->deparse($left, 9); $right = $self->deparse($right, 9); return $self->maybe_parens("$left $type $right", $cx, 9); } sub pp_flop { my $self = shift; my($op, $cx) = @_; my $flip = $op->first; my $type = ($flip->flags & OPf_SPECIAL) ? "..." : ".."; return $self->range($flip->first, $cx, $type); } # one-line while/until is handled in pp_leave sub logop { my $self = shift; my ($op, $cx, $lowop, $lowprec, $highop, $highprec, $blockname) = @_; my $left = $op->first; my $right = $op->first->sibling; $blockname &&= $self->keyword($blockname); if ($cx < 1 and is_scope($right) and $blockname and $self->{'expand'} < 7) { # if ($a) {$b} $left = $self->deparse($left, 1); $right = $self->deparse($right, 0); return "$blockname ($left) {\n\t$right\n\b}\cK"; } elsif ($cx < 1 and $blockname and not $self->{'parens'} and $self->{'expand'} < 7) { # $b if $a $right = $self->deparse($right, 1); $left = $self->deparse($left, 1); return "$right $blockname $left"; } elsif ($cx > $lowprec and $highop) { # $a && $b $left = $self->deparse_binop_left($op, $left, $highprec); $right = $self->deparse_binop_right($op, $right, $highprec); return $self->maybe_parens("$left $highop $right", $cx, $highprec); } else { # $a and $b $left = $self->deparse_binop_left($op, $left, $lowprec); $right = $self->deparse_binop_right($op, $right, $lowprec); return $self->maybe_parens("$left $lowop $right", $cx, $lowprec); } } sub pp_and { logop(@_, "and", 3, "&&", 11, "if") } sub pp_or { logop(@_, "or", 2, "||", 10, "unless") } sub pp_dor { logop(@_, "//", 10) } # xor is syntactically a logop, but it's really a binop (contrary to # old versions of opcode.pl). Syntax is what matters here. sub pp_xor { logop(@_, "xor", 2, "", 0, "") } sub logassignop { my $self = shift; my ($op, $cx, $opname) = @_; my $left = $op->first; my $right = $op->first->sibling->first; # skip sassign $left = $self->deparse($left, 7); $right = $self->deparse($right, 7); return $self->maybe_parens("$left $opname $right", $cx, 7); } sub pp_andassign { logassignop(@_, "&&=") } sub pp_orassign { logassignop(@_, "||=") } sub pp_dorassign { logassignop(@_, "//=") } my %cmpchain_cmpops = ( eq => ["==", 14], i_eq => ["==", 14], ne => ["!=", 14], i_ne => ["!=", 14], seq => ["eq", 14], sne => ["ne", 14], lt => ["<", 15], i_lt => ["<", 15], gt => [">", 15], i_gt => [">", 15], le => ["<=", 15], i_le => ["<=", 15], ge => [">=", 15], i_ge => [">=", 15], slt => ["lt", 15], sgt => ["gt", 15], sle => ["le", 15], sge => ["ge", 15], ); sub pp_cmpchain_and { my($self, $op, $cx) = @_; my($prec, $dep); while(1) { my($thiscmp, $rightcond); if($op->name eq "cmpchain_and") { $thiscmp = $op->first; $rightcond = $thiscmp->sibling; } else { $thiscmp = $op; } my $thiscmptype = $cmpchain_cmpops{$thiscmp->name} // (return "XXX"); if(defined $prec) { $thiscmptype->[1] == $prec or return "XXX"; $thiscmp->first->name eq "null" && !($thiscmp->first->flags & OPf_KIDS) or return "XXX"; } else { $prec = $thiscmptype->[1]; $dep = $self->deparse($thiscmp->first, $prec); } $dep .= " ".$thiscmptype->[0]." "; my $operand = $thiscmp->last; if(defined $rightcond) { $operand->name eq "cmpchain_dup" or return "XXX"; $operand = $operand->first; } $dep .= $self->deparse($operand, $prec); last unless defined $rightcond; if($rightcond->name eq "null" && ($rightcond->flags & OPf_KIDS) && $rightcond->first->name eq "cmpchain_and") { $rightcond = $rightcond->first; } $op = $rightcond; } return $self->maybe_parens($dep, $cx, $prec); } sub rv2gv_or_string { my($self,$op) = @_; if ($op->name eq "gv") { # could be open("open") or open("###") my($name,$quoted) = $self->stash_variable_name("", $self->gv_or_padgv($op)); $quoted ? $name : "*$name"; } else { $self->deparse($op, 6); } } sub listop { my $self = shift; my($op, $cx, $name, $kid, $nollafr) = @_; my(@exprs); my $parens = ($cx >= 5) || $self->{'parens'}; $kid ||= $op->first->sibling; # If there are no arguments, add final parentheses (or parenthesize the # whole thing if the llafr does not apply) to account for cases like # (return)+1 or setpgrp()+1. When the llafr does not apply, we use a # precedence of 6 (< comma), as "return, 1" does not need parentheses. if (null $kid) { return $nollafr ? $self->maybe_parens($self->keyword($name), $cx, 7) : $self->keyword($name) . '()' x (7 < $cx); } my $first; my $fullname = $self->keyword($name); my $proto = prototype("CORE::$name"); if ( ( (defined $proto && $proto =~ /^;?\*/) || $name eq 'select' # select(F) doesn't have a proto ) && $kid->name eq "rv2gv" && !($kid->private & OPpLVAL_INTRO) ) { $first = $self->rv2gv_or_string($kid->first); } else { $first = $self->deparse($kid, 6); } if ($name eq "chmod" && $first =~ /^\d+$/) { $first = sprintf("%#o", $first); } $first = "+$first" if not $parens and not $nollafr and substr($first, 0, 1) eq "("; push @exprs, $first; $kid = $kid->sibling; if (defined $proto && $proto =~ /^\*\*/ && $kid->name eq "rv2gv" && !($kid->private & OPpLVAL_INTRO)) { push @exprs, $first = $self->rv2gv_or_string($kid->first); $kid = $kid->sibling; } for (; !null($kid); $kid = $kid->sibling) { push @exprs, $self->deparse($kid, 6); } if ($name eq "reverse" && ($op->private & OPpREVERSE_INPLACE)) { return "$exprs[0] = $fullname" . ($parens ? "($exprs[0])" : " $exprs[0]"); } if ($parens && $nollafr) { return "($fullname " . join(", ", @exprs) . ")"; } elsif ($parens) { return "$fullname(" . join(", ", @exprs) . ")"; } else { return "$fullname " . join(", ", @exprs); } } sub pp_bless { listop(@_, "bless") } sub pp_atan2 { maybe_targmy(@_, \&listop, "atan2") } sub pp_substr { my ($self,$op,$cx) = @_; if ($op->private & OPpSUBSTR_REPL_FIRST) { return listop($self, $op, 7, "substr", $op->first->sibling->sibling) . " = " . $self->deparse($op->first->sibling, 7); } maybe_local(@_, listop(@_, "substr")) } sub pp_index { # Also handles pp_rindex. # # The body of this function includes an unrolled maybe_targmy(), # since the two parts of that sub's actions need to have have the # '== -1' bit in between my($self, $op, $cx) = @_; my $lex = ($op->private & OPpTARGET_MY); my $bool = ($op->private & OPpTRUEBOOL); my $val = $self->listop($op, ($bool ? 14 : $lex ? 7 : $cx), $op->name); # (index() == -1) has op_eq and op_const optimised away if ($bool) { $val .= ($op->private & OPpINDEX_BOOLNEG) ? " == -1" : " != -1"; $val = "($val)" if ($op->flags & OPf_PARENS); } if ($lex) { my $var = $self->padname($op->targ); $val = $self->maybe_parens("$var = $val", $cx, 7); } $val; } sub pp_rindex { pp_index(@_); } sub pp_vec { maybe_targmy(@_, \&maybe_local, listop(@_, "vec")) } sub pp_sprintf { maybe_targmy(@_, \&listop, "sprintf") } sub pp_formline { listop(@_, "formline") } # see also deparse_format sub pp_crypt { maybe_targmy(@_, \&listop, "crypt") } sub pp_unpack { listop(@_, "unpack") } sub pp_pack { listop(@_, "pack") } sub pp_join { maybe_targmy(@_, \&listop, "join") } sub pp_splice { listop(@_, "splice") } sub pp_push { maybe_targmy(@_, \&listop, "push") } sub pp_unshift { maybe_targmy(@_, \&listop, "unshift") } sub pp_reverse { listop(@_, "reverse") } sub pp_warn { listop(@_, "warn") } sub pp_die { listop(@_, "die") } sub pp_return { listop(@_, "return", undef, 1) } # llafr does not apply sub pp_open { listop(@_, "open") } sub pp_pipe_op { listop(@_, "pipe") } sub pp_tie { listop(@_, "tie") } sub pp_binmode { listop(@_, "binmode") } sub pp_dbmopen { listop(@_, "dbmopen") } sub pp_sselect { listop(@_, "select") } sub pp_select { listop(@_, "select") } sub pp_read { listop(@_, "read") } sub pp_sysopen { listop(@_, "sysopen") } sub pp_sysseek { listop(@_, "sysseek") } sub pp_sysread { listop(@_, "sysread") } sub pp_syswrite { listop(@_, "syswrite") } sub pp_send { listop(@_, "send") } sub pp_recv { listop(@_, "recv") } sub pp_seek { listop(@_, "seek") } sub pp_fcntl { listop(@_, "fcntl") } sub pp_ioctl { listop(@_, "ioctl") } sub pp_flock { maybe_targmy(@_, \&listop, "flock") } sub pp_socket { listop(@_, "socket") } sub pp_sockpair { listop(@_, "socketpair") } sub pp_bind { listop(@_, "bind") } sub pp_connect { listop(@_, "connect") } sub pp_listen { listop(@_, "listen") } sub pp_accept { listop(@_, "accept") } sub pp_shutdown { listop(@_, "shutdown") } sub pp_gsockopt { listop(@_, "getsockopt") } sub pp_ssockopt { listop(@_, "setsockopt") } sub pp_chown { maybe_targmy(@_, \&listop, "chown") } sub pp_unlink { maybe_targmy(@_, \&listop, "unlink") } sub pp_chmod { maybe_targmy(@_, \&listop, "chmod") } sub pp_utime { maybe_targmy(@_, \&listop, "utime") } sub pp_rename { maybe_targmy(@_, \&listop, "rename") } sub pp_link { maybe_targmy(@_, \&listop, "link") } sub pp_symlink { maybe_targmy(@_, \&listop, "symlink") } sub pp_mkdir { maybe_targmy(@_, \&listop, "mkdir") } sub pp_open_dir { listop(@_, "opendir") } sub pp_seekdir { listop(@_, "seekdir") } sub pp_waitpid { maybe_targmy(@_, \&listop, "waitpid") } sub pp_system { maybe_targmy(@_, \&indirop, "system") } sub pp_exec { maybe_targmy(@_, \&indirop, "exec") } sub pp_kill { maybe_targmy(@_, \&listop, "kill") } sub pp_setpgrp { maybe_targmy(@_, \&listop, "setpgrp") } sub pp_getpriority { maybe_targmy(@_, \&listop, "getpriority") } sub pp_setpriority { maybe_targmy(@_, \&listop, "setpriority") } sub pp_shmget { listop(@_, "shmget") } sub pp_shmctl { listop(@_, "shmctl") } sub pp_shmread { listop(@_, "shmread") } sub pp_shmwrite { listop(@_, "shmwrite") } sub pp_msgget { listop(@_, "msgget") } sub pp_msgctl { listop(@_, "msgctl") } sub pp_msgsnd { listop(@_, "msgsnd") } sub pp_msgrcv { listop(@_, "msgrcv") } sub pp_semget { listop(@_, "semget") } sub pp_semctl { listop(@_, "semctl") } sub pp_semop { listop(@_, "semop") } sub pp_ghbyaddr { listop(@_, "gethostbyaddr") } sub pp_gnbyaddr { listop(@_, "getnetbyaddr") } sub pp_gpbynumber { listop(@_, "getprotobynumber") } sub pp_gsbyname { listop(@_, "getservbyname") } sub pp_gsbyport { listop(@_, "getservbyport") } sub pp_syscall { listop(@_, "syscall") } sub pp_glob { my $self = shift; my($op, $cx) = @_; my $kid = $op->first->sibling; # skip pushmark my $keyword = $op->flags & OPf_SPECIAL ? 'glob' : $self->keyword('glob'); my $text = $self->deparse($kid, $cx); return $cx >= 5 || $self->{'parens'} ? "$keyword($text)" : "$keyword $text"; } # Truncate is special because OPf_SPECIAL makes a bareword first arg # be a filehandle. This could probably be better fixed in the core # by moving the GV lookup into ck_truc. sub pp_truncate { my $self = shift; my($op, $cx) = @_; my(@exprs); my $parens = ($cx >= 5) || $self->{'parens'}; my $kid = $op->first->sibling; my $fh; if ($op->flags & OPf_SPECIAL) { # $kid is an OP_CONST $fh = $self->const_sv($kid)->PV; } else { $fh = $self->deparse($kid, 6); $fh = "+$fh" if not $parens and substr($fh, 0, 1) eq "("; } my $len = $self->deparse($kid->sibling, 6); my $name = $self->keyword('truncate'); if ($parens) { return "$name($fh, $len)"; } else { return "$name $fh, $len"; } } sub indirop { my $self = shift; my($op, $cx, $name) = @_; my($expr, @exprs); my $firstkid = my $kid = $op->first->sibling; my $indir = ""; if ($op->flags & OPf_STACKED) { $indir = $kid; $indir = $indir->first; # skip rv2gv if (is_scope($indir)) { $indir = "{" . $self->deparse($indir, 0) . "}"; $indir = "{;}" if $indir eq "{}"; } elsif ($indir->name eq "const" && $indir->private & OPpCONST_BARE) { $indir = $self->const_sv($indir)->PV; } else { $indir = $self->deparse($indir, 24); } $indir = $indir . " "; $kid = $kid->sibling; } if ($name eq "sort" && $op->private & (OPpSORT_NUMERIC | OPpSORT_INTEGER)) { $indir = ($op->private & OPpSORT_DESCEND) ? '{$b <=> $a} ' : '{$a <=> $b} '; } elsif ($name eq "sort" && $op->private & OPpSORT_DESCEND) { $indir = '{$b cmp $a} '; } for (; !null($kid); $kid = $kid->sibling) { $expr = $self->deparse($kid, !$indir && $kid == $firstkid && $name eq "sort" && $firstkid->name eq "entersub" ? 16 : 6); push @exprs, $expr; } my $name2; if ($name eq "sort" && $op->private & OPpSORT_REVERSE) { $name2 = $self->keyword('reverse') . ' ' . $self->keyword('sort'); } else { $name2 = $self->keyword($name) } if ($name eq "sort" && ($op->private & OPpSORT_INPLACE)) { return "$exprs[0] = $name2 $indir $exprs[0]"; } my $args = $indir . join(", ", @exprs); if ($indir ne "" && $name eq "sort") { # We don't want to say "sort(f 1, 2, 3)", since perl -w will # give bareword warnings in that case. Therefore if context # requires, we'll put parens around the outside "(sort f 1, 2, # 3)". Unfortunately, we'll currently think the parens are # necessary more often that they really are, because we don't # distinguish which side of an assignment we're on. if ($cx >= 5) { return "($name2 $args)"; } else { return "$name2 $args"; } } elsif ( !$indir && $name eq "sort" && !null($op->first->sibling) && $op->first->sibling->name eq 'entersub' ) { # We cannot say sort foo(bar), as foo will be interpreted as a # comparison routine. We have to say sort(...) in that case. return "$name2($args)"; } else { return length $args ? $self->maybe_parens_func($name2, $args, $cx, 5) : $name2 . '()' x (7 < $cx); } } sub pp_prtf { indirop(@_, "printf") } sub pp_print { indirop(@_, "print") } sub pp_say { indirop(@_, "say") } sub pp_sort { indirop(@_, "sort") } sub mapop { my $self = shift; my($op, $cx, $name) = @_; my($expr, @exprs); my $kid = $op->first; # this is the (map|grep)start $kid = $kid->first->sibling; # skip a pushmark my $code = $kid->first; # skip a null if (is_scope $code) { $code = "{" . $self->deparse($code, 0) . "} "; } else { $code = $self->deparse($code, 24); $code .= ", " if !null($kid->sibling); } $kid = $kid->sibling; for (; !null($kid); $kid = $kid->sibling) { $expr = $self->deparse($kid, 6); push @exprs, $expr if defined $expr; } return $self->maybe_parens_func($self->keyword($name), $code . join(", ", @exprs), $cx, 5); } sub pp_mapwhile { mapop(@_, "map") } sub pp_grepwhile { mapop(@_, "grep") } sub pp_mapstart { baseop(@_, "map") } sub pp_grepstart { baseop(@_, "grep") } my %uses_intro; BEGIN { @uses_intro{ eval { require B::Op_private } ? @{$B::Op_private::ops_using{OPpLVAL_INTRO}} : qw(gvsv rv2sv rv2hv rv2gv rv2av aelem helem aslice hslice delete padsv padav padhv enteriter entersub padrange pushmark cond_expr refassign list) } = (); delete @uses_intro{qw( lvref lvrefslice lvavref entersub )}; } # Look for a my/state attribute declaration in a list or ex-list. # Returns undef if not found, 'my($x, @a) :Foo(bar)' etc otherwise. # # There are three basic tree structs that are expected: # # my $x :foo; # <1> ex-list vK/LVINTRO ->c # <0> ex-pushmark v ->3 # <1> entersub[t2] vKRS*/TARG ->b # .... # <0> padsv[$x:64,65] vM/LVINTRO ->c # # my @a :foo; # my %h :foo; # # <1> ex-list vK ->c # <0> ex-pushmark v ->3 # <0> padav[@a:64,65] vM/LVINTRO ->4 # <1> entersub[t2] vKRS*/TARG ->c # .... # # my ($x,@a,%h) :foo; # # <;> nextstate(main 64 -e:1) v:{ ->3 # <@> list vKP ->w # <0> pushmark vM/LVINTRO ->4 # <0> padsv[$x:64,65] vM/LVINTRO ->5 # <0> padav[@a:64,65] vM/LVINTRO ->6 # <0> padhv[%h:64,65] vM/LVINTRO ->7 # <1> entersub[t4] vKRS*/TARG ->f # .... # <1> entersub[t5] vKRS*/TARG ->n # .... # <1> entersub[t6] vKRS*/TARG ->v # .... # where the entersub in all cases looks like # <1> entersub[t2] vKRS*/TARG ->c # <0> pushmark s ->5 # <$> const[PV "attributes"] sM ->6 # <$> const[PV "main"] sM ->7 # <1> srefgen sKM/1 ->9 # <1> ex-list lKRM ->8 # <0> padsv[@a:64,65] sRM ->8 # <$> const[PV "foo"] sM ->a # <.> method_named[PV "import"] ->b sub maybe_var_attr { my ($self, $op, $cx) = @_; my $kid = $op->first->sibling; # skip pushmark return if class($kid) eq 'NULL'; my $lop; my $type; # Extract out all the pad ops and entersub ops into # @padops and @entersubops. Return if anything else seen. # Also determine what class (if any) all the pad vars belong to my $class; my $decl; # 'my' or 'state' my (@padops, @entersubops); for ($lop = $kid; !null($lop); $lop = $lop->sibling) { my $lopname = $lop->name; my $loppriv = $lop->private; if ($lopname =~ /^pad[sah]v$/) { return unless $loppriv & OPpLVAL_INTRO; my $padname = $self->padname_sv($lop->targ); my $thisclass = ($padname->FLAGS & SVpad_TYPED) ? $padname->SvSTASH->NAME : 'main'; # all pad vars must be in the same class $class //= $thisclass; return unless $thisclass eq $class; # all pad vars must be the same sort of declaration # (all my, all state, etc) my $this = ($loppriv & OPpPAD_STATE) ? 'state' : 'my'; if (defined $decl) { return unless $this eq $decl; } $decl = $this; push @padops, $lop; } elsif ($lopname eq 'entersub') { push @entersubops, $lop; } else { return; } } return unless @padops && @padops == @entersubops; # there should be a balance: each padop has a corresponding # 'attributes'->import() method call, in the same order. my @varnames; my $attr_text; for my $i (0..$#padops) { my $padop = $padops[$i]; my $esop = $entersubops[$i]; push @varnames, $self->padname($padop->targ); return unless ($esop->flags & OPf_KIDS); my $kid = $esop->first; return unless $kid->type == OP_PUSHMARK; $kid = $kid->sibling; return unless $$kid && $kid->type == OP_CONST; return unless $self->const_sv($kid)->PV eq 'attributes'; $kid = $kid->sibling; return unless $$kid && $kid->type == OP_CONST; # __PACKAGE__ $kid = $kid->sibling; return unless $$kid && $kid->name eq "srefgen" && ($kid->flags & OPf_KIDS) && ($kid->first->flags & OPf_KIDS) && $kid->first->first->name =~ /^pad[sah]v$/ && $kid->first->first->targ == $padop->targ; $kid = $kid->sibling; my @attr; while ($$kid) { last if ($kid->type != OP_CONST); push @attr, $self->const_sv($kid)->PV; $kid = $kid->sibling; } return unless @attr; my $thisattr = ":" . join(' ', @attr); $attr_text //= $thisattr; # all import calls must have the same list of attributes return unless $attr_text eq $thisattr; return unless $kid->name eq 'method_named'; return unless $self->meth_sv($kid)->PV eq 'import'; $kid = $kid->sibling; return if $$kid; } my $res = $decl; $res .= " $class " if $class ne 'main'; $res .= (@varnames > 1) ? "(" . join(', ', @varnames) . ')' : " $varnames[0]"; return "$res $attr_text"; } sub pp_list { my $self = shift; my($op, $cx) = @_; { # might be my ($s,@a,%h) :Foo(bar); my $my_attr = maybe_var_attr($self, $op, $cx); return $my_attr if defined $my_attr; } my($expr, @exprs); my $kid = $op->first->sibling; # skip pushmark return '' if class($kid) eq 'NULL'; my $lop; my $local = "either"; # could be local(...), my(...), state(...) or our(...) my $type; for ($lop = $kid; !null($lop); $lop = $lop->sibling) { my $lopname = $lop->name; my $loppriv = $lop->private; my $newtype; if ($lopname =~ /^pad[ash]v$/ && $loppriv & OPpLVAL_INTRO) { if ($loppriv & OPpPAD_STATE) { # state() ($local = "", last) if $local !~ /^(?:either|state)$/; $local = "state"; } else { # my() ($local = "", last) if $local !~ /^(?:either|my)$/; $local = "my"; } my $padname = $self->padname_sv($lop->targ); if ($padname->FLAGS & SVpad_TYPED) { $newtype = $padname->SvSTASH->NAME; } } elsif ($lopname =~ /^(?:gv|rv2)([ash])v$/ && $loppriv & OPpOUR_INTRO or $lopname eq "null" && class($lop) eq 'UNOP' && $lop->first->name eq "gvsv" && $lop->first->private & OPpOUR_INTRO) { # our() my $newlocal = "local " x !!($loppriv & OPpLVAL_INTRO) . "our"; ($local = "", last) if $local ne 'either' && $local ne $newlocal; $local = $newlocal; my $funny = !$1 || $1 eq 's' ? '$' : $1 eq 'a' ? '@' : '%'; if (my $t = $self->find_our_type( $funny . $self->gv_or_padgv($lop->first)->NAME )) { $newtype = $t; } } elsif ($lopname ne 'undef' and !($loppriv & OPpLVAL_INTRO) || !exists $uses_intro{$lopname eq 'null' ? substr B::ppname($lop->targ), 3 : $lopname}) { $local = ""; # or not last; } elsif ($lopname ne "undef") { # local() ($local = "", last) if $local !~ /^(?:either|local)$/; $local = "local"; } if (defined $type && defined $newtype && $newtype ne $type) { $local = ''; last; } $type = $newtype; } $local = "" if $local eq "either"; # no point if it's all undefs $local &&= join ' ', map $self->keyword($_), split / /, $local; $local .= " $type " if $local && length $type; return $self->deparse($kid, $cx) if null $kid->sibling and not $local; for (; !null($kid); $kid = $kid->sibling) { if ($local) { if (class($kid) eq "UNOP" and $kid->first->name eq "gvsv") { $lop = $kid->first; } else { $lop = $kid; } $self->{'avoid_local'}{$$lop}++; $expr = $self->deparse($kid, 6); delete $self->{'avoid_local'}{$$lop}; } else { $expr = $self->deparse($kid, 6); } push @exprs, $expr; } if ($local) { if (@exprs == 1 && ($local eq 'state' || $local eq 'CORE::state')) { # 'state @a = ...' is legal, while 'state(@a) = ...' currently isn't return "$local $exprs[0]"; } return "$local(" . join(", ", @exprs) . ")"; } else { return $self->maybe_parens( join(", ", @exprs), $cx, 6); } } sub is_ifelse_cont { my $op = shift; return ($op->name eq "null" and class($op) eq "UNOP" and $op->first->name =~ /^(and|cond_expr)$/ and is_scope($op->first->first->sibling)); } sub pp_cond_expr { my $self = shift; my($op, $cx) = @_; my $cond = $op->first; my $true = $cond->sibling; my $false = $true->sibling; my $cuddle = $self->{'cuddle'}; unless ($cx < 1 and (is_scope($true) and $true->name ne "null") and (is_scope($false) || is_ifelse_cont($false)) and $self->{'expand'} < 7) { $cond = $self->deparse($cond, 8); $true = $self->deparse($true, 6); $false = $self->deparse($false, 8); return $self->maybe_parens("$cond ? $true : $false", $cx, 8); } $cond = $self->deparse($cond, 1); $true = $self->deparse($true, 0); my $head = $self->keyword("if") . " ($cond) {\n\t$true\n\b}"; my @elsifs; my $elsif; while (!null($false) and is_ifelse_cont($false)) { my $newop = $false->first; my $newcond = $newop->first; my $newtrue = $newcond->sibling; $false = $newtrue->sibling; # last in chain is OP_AND => no else if ($newcond->name eq "lineseq") { # lineseq to ensure correct line numbers in elsif() # Bug #37302 fixed by change #33710. $newcond = $newcond->first->sibling; } $newcond = $self->deparse($newcond, 1); $newtrue = $self->deparse($newtrue, 0); $elsif ||= $self->keyword("elsif"); push @elsifs, "$elsif ($newcond) {\n\t$newtrue\n\b}"; } if (!null($false)) { $false = $cuddle . $self->keyword("else") . " {\n\t" . $self->deparse($false, 0) . "\n\b}\cK"; } else { $false = "\cK"; } return $head . join($cuddle, "", @elsifs) . $false; } sub pp_once { my ($self, $op, $cx) = @_; my $cond = $op->first; my $true = $cond->sibling; my $ret = $self->deparse($true, $cx); $ret =~ s/^(\(?)\$/$1 . $self->keyword("state") . ' $'/e; $ret; } sub loop_common { my $self = shift; my($op, $cx, $init) = @_; my $enter = $op->first; my $kid = $enter->sibling; local(@$self{qw'curstash warnings hints hinthash'}) = @$self{qw'curstash warnings hints hinthash'}; my $head = ""; my $bare = 0; my $body; my $cond = undef; my $name; if ($kid->name eq "lineseq") { # bare or infinite loop if ($kid->last->name eq "unstack") { # infinite $head = "while (1) "; # Can't use for(;;) if there's a continue $cond = ""; } else { $bare = 1; } $body = $kid; } elsif ($enter->name eq "enteriter") { # foreach my $ary = $enter->first->sibling; # first was pushmark my $var = $ary->sibling; if ($ary->name eq 'null' and $enter->private & OPpITER_REVERSED) { # "reverse" was optimised away $ary = listop($self, $ary->first->sibling, 1, 'reverse'); } elsif ($enter->flags & OPf_STACKED and not null $ary->first->sibling->sibling) { $ary = $self->deparse($ary->first->sibling, 9) . " .. " . $self->deparse($ary->first->sibling->sibling, 9); } else { $ary = $self->deparse($ary, 1); } if (null $var) { $var = $self->pp_padsv($enter, 1, 1); } elsif ($var->name eq "rv2gv") { $var = $self->pp_rv2sv($var, 1); if ($enter->private & OPpOUR_INTRO) { # our declarations don't have package names $var =~ s/^(.).*::/$1/; $var = "our $var"; } } elsif ($var->name eq "gv") { $var = "\$" . $self->deparse($var, 1); } else { $var = $self->deparse($var, 1); } $body = $kid->first->first->sibling; # skip OP_AND and OP_ITER if (!is_state $body->first and $body->first->name !~ /^(?:stub|leave|scope)$/) { confess unless $var eq '$_'; $body = $body->first; return $self->deparse($body, 2) . " " . $self->keyword("foreach") . " ($ary)"; } $head = "foreach $var ($ary) "; } elsif ($kid->name eq "null") { # while/until $kid = $kid->first; $name = {"and" => "while", "or" => "until"}->{$kid->name}; $cond = $kid->first; $body = $kid->first->sibling; } elsif ($kid->name eq "stub") { # bare and empty return "{;}"; # {} could be a hashref } # If there isn't a continue block, then the next pointer for the loop # will point to the unstack, which is kid's last child, except # in a bare loop, when it will point to the leaveloop. When neither of # these conditions hold, then the second-to-last child is the continue # block (or the last in a bare loop). my $cont_start = $enter->nextop; my $cont; my $precond; my $postcond; if ($$cont_start != $$op && ${$cont_start} != ${$body->last}) { if ($bare) { $cont = $body->last; } else { $cont = $body->first; while (!null($cont->sibling->sibling)) { $cont = $cont->sibling; } } my $state = $body->first; my $cuddle = $self->{'cuddle'}; my @states; for (; $$state != $$cont; $state = $state->sibling) { push @states, $state; } $body = $self->lineseq(undef, 0, @states); if (defined $cond and not is_scope $cont and $self->{'expand'} < 3) { $precond = "for ($init; "; $postcond = "; " . $self->deparse($cont, 1) .") "; $cont = "\cK"; } else { $cont = $cuddle . "continue {\n\t" . $self->deparse($cont, 0) . "\n\b}\cK"; } } else { return "" if !defined $body; if (length $init) { $precond = "for ($init; "; $postcond = ";) "; } $cont = "\cK"; $body = $self->deparse($body, 0); } if ($precond) { # for(;;) $cond &&= $name eq 'until' ? listop($self, undef, 1, "not", $cond->first) : $self->deparse($cond, 1); $head = "$precond$cond$postcond"; } if ($name && !$head) { ref $cond and $cond = $self->deparse($cond, 1); $head = "$name ($cond) "; } $head =~ s/^(for(?:each)?|while|until)/$self->keyword($1)/e; $body =~ s/;?$/;\n/; return $head . "{\n\t" . $body . "\b}" . $cont; } sub pp_leaveloop { shift->loop_common(@_, "") } sub for_loop { my $self = shift; my($op, $cx) = @_; my $init = $self->deparse($op, 1); my $s = $op->sibling; my $ll = $s->name eq "unstack" ? $s->sibling : $s->first->sibling; return $self->loop_common($ll, $cx, $init); } sub pp_leavetry { my $self = shift; return "eval {\n\t" . $self->pp_leave(@_) . "\n\b}"; } sub pp_leavetrycatch { my $self = shift; my ($op) = @_; # Expect that the first three kids should be (entertrycatch, poptry, catch) my $entertrycatch = $op->first; $entertrycatch->name eq "entertrycatch" or die "Expected entertrycatch as first child of leavetrycatch"; my $tryblock = $entertrycatch->sibling; $tryblock->name eq "poptry" or die "Expected poptry as second child of leavetrycatch"; my $catch = $tryblock->sibling; $catch->name eq "catch" or die "Expected catch as third child of leavetrycatch"; my $catchblock = $catch->first->sibling; $catchblock->name eq "scope" or die "Expected scope as second child of catch"; my $trycode = scopeop(0, $self, $tryblock); my $catchvar = $self->padname($catch->targ); my $catchcode = scopeop(0, $self, $catchblock); return "try {\n\t$trycode\n\b}\n" . "catch($catchvar) {\n\t$catchcode\n\b}\cK"; } sub _op_is_or_was { my ($op, $expect_type) = @_; my $type = $op->type; return($type == $expect_type || ($type == OP_NULL && $op->targ == $expect_type)); } sub pp_null { my($self, $op, $cx) = @_; # might be 'my $s :Foo(bar);' if ($op->targ == OP_LIST) { my $my_attr = maybe_var_attr($self, $op, $cx); return $my_attr if defined $my_attr; } if (class($op) eq "OP") { # old value is lost return $self->{'ex_const'} if $op->targ == OP_CONST; } elsif (class ($op) eq "COP") { return &pp_nextstate; } elsif ($op->first->name eq 'pushmark' or $op->first->name eq 'null' && $op->first->targ == OP_PUSHMARK && _op_is_or_was($op, OP_LIST)) { return $self->pp_list($op, $cx); } elsif ($op->first->name eq "enter") { return $self->pp_leave($op, $cx); } elsif ($op->first->name eq "leave") { return $self->pp_leave($op->first, $cx); } elsif ($op->first->name eq "scope") { return $self->pp_scope($op->first, $cx); } elsif ($op->targ == OP_STRINGIFY) { return $self->dquote($op, $cx); } elsif ($op->targ == OP_GLOB) { return $self->pp_glob( $op->first # entersub ->first # ex-list ->first # pushmark ->sibling, # glob $cx ); } elsif (!null($op->first->sibling) and $op->first->sibling->name eq "readline" and $op->first->sibling->flags & OPf_STACKED) { return $self->maybe_parens($self->deparse($op->first, 7) . " = " . $self->deparse($op->first->sibling, 7), $cx, 7); } elsif (!null($op->first->sibling) and $op->first->sibling->name =~ /^transr?\z/ and $op->first->sibling->flags & OPf_STACKED) { return $self->maybe_parens($self->deparse($op->first, 20) . " =~ " . $self->deparse($op->first->sibling, 20), $cx, 20); } elsif ($op->flags & OPf_SPECIAL && $cx < 1 && !$op->targ) { return ($self->lex_in_scope("&do") ? "CORE::do" : "do") . " {\n\t". $self->deparse($op->first, $cx) ."\n\b};"; } elsif (!null($op->first->sibling) and $op->first->sibling->name eq "null" and class($op->first->sibling) eq "UNOP" and $op->first->sibling->first->flags & OPf_STACKED and $op->first->sibling->first->name eq "rcatline") { return $self->maybe_parens($self->deparse($op->first, 18) . " .= " . $self->deparse($op->first->sibling, 18), $cx, 18); } else { return $self->deparse($op->first, $cx); } } sub padname { my $self = shift; my $targ = shift; return $self->padname_sv($targ)->PVX; } sub padany { my $self = shift; my $op = shift; return substr($self->padname($op->targ), 1); # skip $/@/% } sub pp_padsv { my $self = shift; my($op, $cx, $forbid_parens) = @_; my $targ = $op->targ; return $self->maybe_my($op, $cx, $self->padname($targ), $self->padname_sv($targ), $forbid_parens); } sub pp_padav { pp_padsv(@_) } # prepend 'keys' where its been optimised away, with suitable handling # of CORE:: and parens sub add_keys_keyword { my ($self, $str, $cx) = @_; $str = $self->maybe_parens($str, $cx, 16); # 'keys %h' versus 'keys(%h)' $str = " $str" unless $str =~ /^\(/; return $self->keyword("keys") . $str; } sub pp_padhv { my ($self, $op, $cx) = @_; my $str = pp_padsv(@_); # with OPpPADHV_ISKEYS the keys op is optimised away, except # in scalar context the old op is kept (but not executed) so its targ # can be used. if ( ($op->private & OPpPADHV_ISKEYS) && !(($op->flags & OPf_WANT) == OPf_WANT_SCALAR)) { $str = $self->add_keys_keyword($str, $cx); } $str; } sub gv_or_padgv { my $self = shift; my $op = shift; if (class($op) eq "PADOP") { return $self->padval($op->padix); } else { # class($op) eq "SVOP" return $op->gv; } } sub pp_gvsv { my $self = shift; my($op, $cx) = @_; my $gv = $self->gv_or_padgv($op); return $self->maybe_local($op, $cx, $self->stash_variable("\$", $self->gv_name($gv), $cx)); } sub pp_gv { my $self = shift; my($op, $cx) = @_; my $gv = $self->gv_or_padgv($op); return $self->maybe_qualify("", $self->gv_name($gv)); } sub pp_aelemfast_lex { my $self = shift; my($op, $cx) = @_; my $name = $self->padname($op->targ); $name =~ s/^@/\$/; my $i = $op->private; $i -= 256 if $i > 127; return $name . "[$i]"; } sub pp_aelemfast { my $self = shift; my($op, $cx) = @_; # optimised PADAV, pre 5.15 return $self->pp_aelemfast_lex(@_) if ($op->flags & OPf_SPECIAL); my $gv = $self->gv_or_padgv($op); my($name,$quoted) = $self->stash_variable_name('@',$gv); $name = $quoted ? "$name->" : '$' . $name; my $i = $op->private; $i -= 256 if $i > 127; return $name . "[$i]"; } sub rv2x { my $self = shift; my($op, $cx, $type) = @_; if (class($op) eq 'NULL' || !$op->can("first")) { carp("Unexpected op in pp_rv2x"); return 'XXX'; } my $kid = $op->first; if ($kid->name eq "gv") { return $self->stash_variable($type, $self->gv_name($self->gv_or_padgv($kid)), $cx); } elsif (is_scalar $kid) { my $str = $self->deparse($kid, 0); if ($str =~ /^\$([^\w\d])\z/) { # "$$+" isn't a legal way to write the scalar dereference # of $+, since the lexer can't tell you aren't trying to # do something like "$$ + 1" to get one more than your # PID. Either "${$+}" or "$${+}" are workable # disambiguations, but if the programmer did the former, # they'd be in the "else" clause below rather than here. # It's not clear if this should somehow be unified with # the code in dq and re_dq that also adds lexer # disambiguation braces. $str = '$' . "{$1}"; #' } return $type . $str; } else { return $type . "{" . $self->deparse($kid, 0) . "}"; } } sub pp_rv2sv { maybe_local(@_, rv2x(@_, "\$")) } sub pp_rv2gv { maybe_local(@_, rv2x(@_, "*")) } sub pp_rv2hv { my ($self, $op, $cx) = @_; my $str = rv2x(@_, "%"); if ($op->private & OPpRV2HV_ISKEYS) { $str = $self->add_keys_keyword($str, $cx); } return maybe_local(@_, $str); } # skip rv2av sub pp_av2arylen { my $self = shift; my($op, $cx) = @_; my $kid = $op->first; if ($kid->name eq "padav") { return $self->maybe_local($op, $cx, '$#' . $self->padany($kid)); } else { my $kkid; if ( $kid->name eq "rv2av" && ($kkid = $kid->first) && $kkid->name !~ /^(scope|leave|gv)$/) { # handle (expr)->$#* postfix form my $expr; $expr = $self->deparse($kkid, 24); # 24 is '->' $expr = "$expr->\$#*"; # XXX maybe_local is probably wrong here: local($#-expression) # doesn't "do" local (the is no INTRO flag set) return $self->maybe_local($op, $cx, $expr); } else { # handle $#{expr} form # XXX see maybe_local comment above return $self->maybe_local($op, $cx, $self->rv2x($kid, $cx, '$#')); } } } # skip down to the old, ex-rv2cv sub pp_rv2cv { my ($self, $op, $cx) = @_; if (!null($op->first) && $op->first->name eq 'null' && $op->first->targ == OP_LIST) { return $self->rv2x($op->first->first->sibling, $cx, "&") } else { return $self->rv2x($op, $cx, "") } } sub list_const { my $self = shift; my($cx, @list) = @_; my @a = map $self->const($_, 6), @list; if (@a == 0) { return "()"; } elsif (@a == 1) { return $a[0]; } elsif ( @a > 2 and !grep(!/^-?\d+$/, @a)) { # collapse (-1,0,1,2) into (-1..2) my ($s, $e) = @a[0,-1]; my $i = $s; return $self->maybe_parens("$s..$e", $cx, 9) unless grep $i++ != $_, @a; } return $self->maybe_parens(join(", ", @a), $cx, 6); } sub pp_rv2av { my $self = shift; my($op, $cx) = @_; my $kid = $op->first; if ($kid->name eq "const") { # constant list my $av = $self->const_sv($kid); return $self->list_const($cx, $av->ARRAY); } else { return $self->maybe_local($op, $cx, $self->rv2x($op, $cx, "\@")); } } sub is_subscriptable { my $op = shift; if ($op->name =~ /^([ahg]elem|multideref$)/) { return 1; } elsif ($op->name eq "entersub") { my $kid = $op->first; return 0 unless null $kid->sibling; $kid = $kid->first; $kid = $kid->sibling until null $kid->sibling; return 0 if is_scope($kid); $kid = $kid->first; return 0 if $kid->name eq "gv" || $kid->name eq "padcv"; return 0 if is_scalar($kid); return is_subscriptable($kid); } else { return 0; } } sub elem_or_slice_array_name { my $self = shift; my ($array, $left, $padname, $allow_arrow) = @_; if ($array->name eq $padname) { return $self->padany($array); } elsif (is_scope($array)) { # ${expr}[0] return "{" . $self->deparse($array, 0) . "}"; } elsif ($array->name eq "gv") { ($array, my $quoted) = $self->stash_variable_name( $left eq '[' ? '@' : '%', $self->gv_or_padgv($array) ); if (!$allow_arrow && $quoted) { # This cannot happen. die "Invalid variable name $array for slice"; } return $quoted ? "$array->" : $array; } elsif (!$allow_arrow || is_scalar $array) { # $x[0], $$x[0], ... return $self->deparse($array, 24); } else { return undef; } } sub elem_or_slice_single_index { my $self = shift; my ($idx) = @_; $idx = $self->deparse($idx, 1); # Outer parens in an array index will confuse perl # if we're interpolating in a regular expression, i.e. # /$x$foo[(-1)]/ is *not* the same as /$x$foo[-1]/ # # If $self->{parens}, then an initial '(' will # definitely be paired with a final ')'. If # !$self->{parens}, the misleading parens won't # have been added in the first place. # # [You might think that we could get "(...)...(...)" # where the initial and final parens do not match # each other. But we can't, because the above would # only happen if there's an infix binop between the # two pairs of parens, and *that* means that the whole # expression would be parenthesized as well.] # $idx =~ s/^\((.*)\)$/$1/ if $self->{'parens'}; # Hash-element braces will autoquote a bareword inside themselves. # We need to make sure that C<$hash{warn()}> doesn't come out as # C<$hash{warn}>, which has a quite different meaning. Currently # B::Deparse will always quote strings, even if the string was a # bareword in the original (i.e. the OPpCONST_BARE flag is ignored # for constant strings.) So we can cheat slightly here - if we see # a bareword, we know that it is supposed to be a function call. # $idx =~ s/^([A-Za-z_]\w*)$/$1()/; return $idx; } sub elem { my $self = shift; my ($op, $cx, $left, $right, $padname) = @_; my($array, $idx) = ($op->first, $op->first->sibling); $idx = $self->elem_or_slice_single_index($idx); unless ($array->name eq $padname) { # Maybe this has been fixed $array = $array->first; # skip rv2av (or ex-rv2av in _53+) } if (my $array_name=$self->elem_or_slice_array_name ($array, $left, $padname, 1)) { return ($array_name =~ /->\z/ ? $array_name : $array_name eq '#' ? '${#}' : "\$" . $array_name) . $left . $idx . $right; } else { # $x[20][3]{hi} or expr->[20] my $arrow = is_subscriptable($array) ? "" : "->"; return $self->deparse($array, 24) . $arrow . $left . $idx . $right; } } # a simplified version of elem_or_slice_array_name() # for the use of pp_multideref sub multideref_var_name { my $self = shift; my ($gv, $is_hash) = @_; my ($name, $quoted) = $self->stash_variable_name( $is_hash ? '%' : '@', $gv); return $quoted ? "$name->" : $name eq '#' ? '${#}' # avoid ${#}[1] => $#[1] : '$' . $name; } # deparse an OP_MULTICONCAT. If $in_dq is 1, we're within # a double-quoted string, so for example. # "abc\Qdef$x\Ebar" # might get compiled as # multiconcat("abc", metaquote(multiconcat("def", $x)), "bar") # and the inner multiconcat should be deparsed as C<def$x> rather than # the normal C<def . $x> # Ditto if $in_dq is 2, handle qr/...\Qdef$x\E.../. sub do_multiconcat { my $self = shift; my($op, $cx, $in_dq) = @_; my $kid; my @kids; my $assign; my $append; my $lhs = ""; for ($kid = $op->first; !null $kid; $kid = $kid->sibling) { # skip the consts and/or padsv we've optimised away push @kids, $kid unless $kid->type == OP_NULL && ( $kid->targ == OP_PADSV || $kid->targ == OP_CONST || $kid->targ == OP_PUSHMARK); } $append = ($op->private & OPpMULTICONCAT_APPEND); if ($op->private & OPpTARGET_MY) { # '$lex = ...' or '$lex .= ....' or 'my $lex = ' $lhs = $self->padname($op->targ); $lhs = "my $lhs" if ($op->private & OPpLVAL_INTRO); $assign = 1; } elsif ($op->flags & OPf_STACKED) { # 'expr = ...' or 'expr .= ....' my $expr = $append ? shift(@kids) : pop(@kids); $lhs = $self->deparse($expr, 7); $assign = 1; } if ($assign) { $lhs .= $append ? ' .= ' : ' = '; } my ($nargs, $const_str, @const_lens) = $op->aux_list($self->{curcv}); my @consts; my $i = 0; for (@const_lens) { if ($_ == -1) { push @consts, undef; } else { push @consts, substr($const_str, $i, $_); my @args; $i += $_; } } my $rhs = ""; if ( $in_dq || (($op->private & OPpMULTICONCAT_STRINGIFY) && !$self->{'unquote'})) { # "foo=$foo bar=$bar " my $not_first; while (@consts) { if ($not_first) { my $s = $self->dq(shift(@kids), 18); # don't deparse "a${$}b" as "a$$b" $s = '${$}' if $s eq '$$'; $rhs = dq_disambiguate($rhs, $s); } $not_first = 1; my $c = shift @consts; if (defined $c) { if ($in_dq == 2) { # in pattern: don't convert newline to '\n' etc etc my $s = re_uninterp(escape_re(re_unback($c))); $rhs = re_dq_disambiguate($rhs, $s) } else { my $s = uninterp(escape_str(unback($c))); $rhs = dq_disambiguate($rhs, $s) } } } return $rhs if $in_dq; $rhs = single_delim("qq", '"', $rhs, $self); } elsif ($op->private & OPpMULTICONCAT_FAKE) { # sprintf("foo=%s bar=%s ", $foo, $bar) my @all; @consts = map { $_ //= ''; s/%/%%/g; $_ } @consts; my $fmt = join '%s', @consts; push @all, $self->quoted_const_str($fmt); # the following is a stripped down copy of sub listop {} my $parens = $assign || ($cx >= 5) || $self->{'parens'}; my $fullname = $self->keyword('sprintf'); push @all, map $self->deparse($_, 6), @kids; $rhs = $parens ? "$fullname(" . join(", ", @all) . ")" : "$fullname " . join(", ", @all); } else { # "foo=" . $foo . " bar=" . $bar my @all; my $not_first; while (@consts) { push @all, $self->deparse(shift(@kids), 18) if $not_first; $not_first = 1; my $c = shift @consts; if (defined $c) { push @all, $self->quoted_const_str($c); } } $rhs .= join ' . ', @all; } my $text = $lhs . $rhs; $text = "($text)" if ($cx >= (($assign) ? 7 : 18+1)) || $self->{'parens'}; return $text; } sub pp_multiconcat { my $self = shift; $self->do_multiconcat(@_, 0); } sub pp_multideref { my $self = shift; my($op, $cx) = @_; my $text = ""; if ($op->private & OPpMULTIDEREF_EXISTS) { $text = $self->keyword("exists"). " "; } elsif ($op->private & OPpMULTIDEREF_DELETE) { $text = $self->keyword("delete"). " "; } elsif ($op->private & OPpLVAL_INTRO) { $text = $self->keyword("local"). " "; } if ($op->first && ($op->first->flags & OPf_KIDS)) { # arbitrary initial expression, e.g. f(1,2,3)->[...] my $expr = $self->deparse($op->first, 24); # stop "exists (expr)->{...}" being interpreted as #"(exists (expr))->{...}" $expr = "+$expr" if $expr =~ /^\(/; $text .= $expr; } my @items = $op->aux_list($self->{curcv}); my $actions = shift @items; my $is_hash; my $derefs = 0; while (1) { if (($actions & MDEREF_ACTION_MASK) == MDEREF_reload) { $actions = shift @items; next; } $is_hash = ( ($actions & MDEREF_ACTION_MASK) == MDEREF_HV_pop_rv2hv_helem || ($actions & MDEREF_ACTION_MASK) == MDEREF_HV_gvsv_vivify_rv2hv_helem || ($actions & MDEREF_ACTION_MASK) == MDEREF_HV_padsv_vivify_rv2hv_helem || ($actions & MDEREF_ACTION_MASK) == MDEREF_HV_vivify_rv2hv_helem || ($actions & MDEREF_ACTION_MASK) == MDEREF_HV_padhv_helem || ($actions & MDEREF_ACTION_MASK) == MDEREF_HV_gvhv_helem ); if ( ($actions & MDEREF_ACTION_MASK) == MDEREF_AV_padav_aelem || ($actions & MDEREF_ACTION_MASK) == MDEREF_HV_padhv_helem) { $derefs = 1; $text .= '$' . substr($self->padname(shift @items), 1); } elsif ( ($actions & MDEREF_ACTION_MASK) == MDEREF_AV_gvav_aelem || ($actions & MDEREF_ACTION_MASK) == MDEREF_HV_gvhv_helem) { $derefs = 1; $text .= $self->multideref_var_name(shift @items, $is_hash); } else { if ( ($actions & MDEREF_ACTION_MASK) == MDEREF_AV_padsv_vivify_rv2av_aelem || ($actions & MDEREF_ACTION_MASK) == MDEREF_HV_padsv_vivify_rv2hv_helem) { $text .= $self->padname(shift @items); } elsif ( ($actions & MDEREF_ACTION_MASK) == MDEREF_AV_gvsv_vivify_rv2av_aelem || ($actions & MDEREF_ACTION_MASK) == MDEREF_HV_gvsv_vivify_rv2hv_helem) { $text .= $self->multideref_var_name(shift @items, $is_hash); } elsif ( ($actions & MDEREF_ACTION_MASK) == MDEREF_AV_pop_rv2av_aelem || ($actions & MDEREF_ACTION_MASK) == MDEREF_HV_pop_rv2hv_helem) { if ( ($op->flags & OPf_KIDS) && ( _op_is_or_was($op->first, OP_RV2AV) || _op_is_or_was($op->first, OP_RV2HV)) && ($op->first->flags & OPf_KIDS) && ( _op_is_or_was($op->first->first, OP_AELEM) || _op_is_or_was($op->first->first, OP_HELEM)) ) { $derefs++; } } $text .= '->' if !$derefs++; } if (($actions & MDEREF_INDEX_MASK) == MDEREF_INDEX_none) { last; } $text .= $is_hash ? '{' : '['; if (($actions & MDEREF_INDEX_MASK) == MDEREF_INDEX_const) { my $key = shift @items; if ($is_hash) { $text .= $self->const($key, $cx); } else { $text .= $key; } } elsif (($actions & MDEREF_INDEX_MASK) == MDEREF_INDEX_padsv) { $text .= $self->padname(shift @items); } elsif (($actions & MDEREF_INDEX_MASK) == MDEREF_INDEX_gvsv) { $text .= '$' . ($self->stash_variable_name('$', shift @items))[0]; } $text .= $is_hash ? '}' : ']'; if ($actions & MDEREF_FLAG_last) { last; } $actions >>= MDEREF_SHIFT; } return $text; } sub pp_aelem { maybe_local(@_, elem(@_, "[", "]", "padav")) } sub pp_helem { maybe_local(@_, elem(@_, "{", "}", "padhv")) } sub pp_gelem { my $self = shift; my($op, $cx) = @_; my($glob, $part) = ($op->first, $op->last); $glob = $glob->first; # skip rv2gv $glob = $glob->first if $glob->name eq "rv2gv"; # this one's a bug my $scope = is_scope($glob); $glob = $self->deparse($glob, 0); $part = $self->deparse($part, 1); $glob =~ s/::\z// unless $scope; return "*" . ($scope ? "{$glob}" : $glob) . "{$part}"; } sub slice { my $self = shift; my ($op, $cx, $left, $right, $regname, $padname) = @_; my $last; my(@elems, $kid, $array, $list); if (class($op) eq "LISTOP") { $last = $op->last; } else { # ex-hslice inside delete() for ($kid = $op->first; !null $kid->sibling; $kid = $kid->sibling) {} $last = $kid; } $array = $last; $array = $array->first if $array->name eq $regname or $array->name eq "null"; $array = $self->elem_or_slice_array_name($array,$left,$padname,0); $kid = $op->first->sibling; # skip pushmark if ($kid->name eq "list") { $kid = $kid->first->sibling; # skip list, pushmark for (; !null $kid; $kid = $kid->sibling) { push @elems, $self->deparse($kid, 6); } $list = join(", ", @elems); } else { $list = $self->elem_or_slice_single_index($kid); } my $lead = ( _op_is_or_was($op, OP_KVHSLICE) || _op_is_or_was($op, OP_KVASLICE)) ? '%' : '@'; return $lead . $array . $left . $list . $right; } sub pp_aslice { maybe_local(@_, slice(@_, "[", "]", "rv2av", "padav")) } sub pp_kvaslice { slice(@_, "[", "]", "rv2av", "padav") } sub pp_hslice { maybe_local(@_, slice(@_, "{", "}", "rv2hv", "padhv")) } sub pp_kvhslice { slice(@_, "{", "}", "rv2hv", "padhv") } sub pp_lslice { my $self = shift; my($op, $cx) = @_; my $idx = $op->first; my $list = $op->last; my(@elems, $kid); $list = $self->deparse($list, 1); $idx = $self->deparse($idx, 1); return "($list)" . "[$idx]"; } sub want_scalar { my $op = shift; return ($op->flags & OPf_WANT) == OPf_WANT_SCALAR; } sub want_list { my $op = shift; return ($op->flags & OPf_WANT) == OPf_WANT_LIST; } sub _method { my $self = shift; my($op, $cx) = @_; my $kid = $op->first->sibling; # skip pushmark my($meth, $obj, @exprs); if ($kid->name eq "list" and want_list $kid) { # When an indirect object isn't a bareword but the args are in # parens, the parens aren't part of the method syntax (the LLAFR # doesn't apply), but they make a list with OPf_PARENS set that # doesn't get flattened by the append_elem that adds the method, # making a (object, arg1, arg2, ...) list where the object # usually is. This can be distinguished from # '($obj, $arg1, $arg2)->meth()' (which is legal if $arg2 is an # object) because in the later the list is in scalar context # as the left side of -> always is, while in the former # the list is in list context as method arguments always are. # (Good thing there aren't method prototypes!) $meth = $kid->sibling; $kid = $kid->first->sibling; # skip pushmark $obj = $kid; $kid = $kid->sibling; for (; not null $kid; $kid = $kid->sibling) { push @exprs, $kid; } } else { $obj = $kid; $kid = $kid->sibling; for (; !null ($kid->sibling) && $kid->name!~/^method(?:_named)?\z/; $kid = $kid->sibling) { push @exprs, $kid } $meth = $kid; } if ($meth->name eq "method_named") { $meth = $self->meth_sv($meth)->PV; } elsif ($meth->name eq "method_super") { $meth = "SUPER::".$self->meth_sv($meth)->PV; } elsif ($meth->name eq "method_redir") { $meth = $self->meth_rclass_sv($meth)->PV.'::'.$self->meth_sv($meth)->PV; } elsif ($meth->name eq "method_redir_super") { $meth = $self->meth_rclass_sv($meth)->PV.'::SUPER::'. $self->meth_sv($meth)->PV; } else { $meth = $meth->first; if ($meth->name eq "const") { # As of 5.005_58, this case is probably obsoleted by the # method_named case above $meth = $self->const_sv($meth)->PV; # needs to be bare } } return { method => $meth, variable_method => ref($meth), object => $obj, args => \@exprs }, $cx; } # compat function only sub method { my $self = shift; my $info = $self->_method(@_); return $self->e_method( $self->_method(@_) ); } sub e_method { my ($self, $info, $cx) = @_; my $obj = $self->deparse($info->{object}, 24); my $meth = $info->{method}; $meth = $self->deparse($meth, 1) if $info->{variable_method}; my $args = join(", ", map { $self->deparse($_, 6) } @{$info->{args}} ); if ($info->{object}->name eq 'scope' && want_list $info->{object}) { # method { $object } # This must be deparsed this way to preserve list context # of $object. my $need_paren = $cx >= 6; return '(' x $need_paren . $meth . substr($obj,2) # chop off the "do" . " $args" . ')' x $need_paren; } my $kid = $obj . "->" . $meth; if (length $args) { return $kid . "(" . $args . ")"; # parens mandatory } else { return $kid; } } # returns "&" if the prototype doesn't match the args, # or ("", $args_after_prototype_demunging) if it does. sub check_proto { my $self = shift; return "&" if $self->{'noproto'}; my($proto, @args) = @_; my($arg, $real); my $doneok = 0; my @reals; # An unbackslashed @ or % gobbles up the rest of the args 1 while $proto =~ s/(?<!\\)([@%])[^\]]+$/$1/; $proto =~ s/^\s*//; while ($proto) { $proto =~ s/^(\\?[\$\@&%*_]|\\\[[\$\@&%*]+\]|;|)\s*//; my $chr = $1; if ($chr eq "") { return "&" if @args; } elsif ($chr eq ";") { $doneok = 1; } elsif ($chr eq "@" or $chr eq "%") { push @reals, map($self->deparse($_, 6), @args); @args = (); } else { $arg = shift @args; last unless $arg; if ($chr eq "\$" || $chr eq "_") { if (want_scalar $arg) { push @reals, $self->deparse($arg, 6); } else { return "&"; } } elsif ($chr eq "&") { if ($arg->name =~ /^(s?refgen|undef)$/) { push @reals, $self->deparse($arg, 6); } else { return "&"; } } elsif ($chr eq "*") { if ($arg->name =~ /^s?refgen$/ and $arg->first->first->name eq "rv2gv") { $real = $arg->first->first; # skip refgen, null if ($real->first->name eq "gv") { push @reals, $self->deparse($real, 6); } else { push @reals, $self->deparse($real->first, 6); } } else { return "&"; } } elsif (substr($chr, 0, 1) eq "\\") { $chr =~ tr/\\[]//d; if ($arg->name =~ /^s?refgen$/ and !null($real = $arg->first) and ($chr =~ /\$/ && is_scalar($real->first) or ($chr =~ /@/ && class($real->first->sibling) ne 'NULL' && $real->first->sibling->name =~ /^(rv2|pad)av$/) or ($chr =~ /%/ && class($real->first->sibling) ne 'NULL' && $real->first->sibling->name =~ /^(rv2|pad)hv$/) #or ($chr =~ /&/ # This doesn't work # && $real->first->name eq "rv2cv") or ($chr =~ /\*/ && $real->first->name eq "rv2gv"))) { push @reals, $self->deparse($real, 6); } else { return "&"; } } } } return "&" if $proto and !$doneok; # too few args and no ';' return "&" if @args; # too many args return ("", join ", ", @reals); } sub retscalar { my $name = $_[0]->name; # XXX There has to be a better way of doing this scalar-op check. # Currently PL_opargs is not exposed. if ($name eq 'null') { $name = substr B::ppname($_[0]->targ), 3 } $name =~ /^(?:scalar|pushmark|wantarray|const|gvsv|gv|padsv|rv2gv |rv2sv|av2arylen|anoncode|prototype|srefgen|ref|bless |regcmaybe|regcreset|regcomp|qr|subst|substcont|trans |transr|sassign|chop|schop|chomp|schomp|defined|undef |study|pos|preinc|i_preinc|predec|i_predec|postinc |i_postinc|postdec|i_postdec|pow|multiply|i_multiply |divide|i_divide|modulo|i_modulo|add|i_add|subtract |i_subtract|concat|multiconcat|stringify|left_shift|right_shift|lt |i_lt|gt|i_gt|le|i_le|ge|i_ge|eq|i_eq|ne|i_ne|ncmp|i_ncmp |slt|sgt|sle|sge|seq|sne|scmp|[sn]?bit_(?:and|x?or)|negate |i_negate|not|[sn]?complement|smartmatch|atan2|sin|cos |rand|srand|exp|log|sqrt|int|hex|oct|abs|length|substr |vec|index|rindex|sprintf|formline|ord|chr|crypt|ucfirst |lcfirst|uc|lc|quotemeta|aelemfast|aelem|exists|helem |pack|join|anonlist|anonhash|push|pop|shift|unshift|xor |andassign|orassign|dorassign|warn|die|reset|nextstate |dbstate|unstack|last|next|redo|dump|goto|exit|open|close |pipe_op|fileno|umask|binmode|tie|untie|tied|dbmopen |dbmclose|select|getc|read|enterwrite|prtf|print|say |sysopen|sysseek|sysread|syswrite|eof|tell|seek|truncate |fcntl|ioctl|flock|send|recv|socket|sockpair|bind|connect |listen|accept|shutdown|gsockopt|ssockopt|getsockname |getpeername|ftrread|ftrwrite|ftrexec|fteread|ftewrite |fteexec|ftis|ftsize|ftmtime|ftatime|ftctime|ftrowned |fteowned|ftzero|ftsock|ftchr|ftblk|ftfile|ftdir|ftpipe |ftsuid|ftsgid|ftsvtx|ftlink|fttty|fttext|ftbinary|chdir |chown|chroot|unlink|chmod|utime|rename|link|symlink |readlink|mkdir|rmdir|open_dir|telldir|seekdir|rewinddir |closedir|fork|wait|waitpid|system|exec|kill|getppid |getpgrp|setpgrp|getpriority|setpriority|time|alarm|sleep |shmget|shmctl|shmread|shmwrite|msgget|msgctl|msgsnd |msgrcv|semop|semget|semctl|hintseval|shostent|snetent |sprotoent|sservent|ehostent|enetent|eprotoent|eservent |spwent|epwent|sgrent|egrent|getlogin|syscall|lock|runcv |fc)\z/x } sub pp_entersub { my $self = shift; my($op, $cx) = @_; return $self->e_method($self->_method($op, $cx)) unless null $op->first->sibling; my $prefix = ""; my $amper = ""; my($kid, @exprs); if ($op->flags & OPf_SPECIAL && !($op->flags & OPf_MOD)) { $prefix = "do "; } elsif ($op->private & OPpENTERSUB_AMPER) { $amper = "&"; } $kid = $op->first; $kid = $kid->first->sibling; # skip ex-list, pushmark for (; not null $kid->sibling; $kid = $kid->sibling) { push @exprs, $kid; } my $simple = 0; my $proto = undef; my $lexical; if (is_scope($kid)) { $amper = "&"; $kid = "{" . $self->deparse($kid, 0) . "}"; } elsif ($kid->first->name eq "gv") { my $gv = $self->gv_or_padgv($kid->first); my $cv; if (class($gv) eq 'GV' && class($cv = $gv->CV) ne "SPECIAL" || $gv->FLAGS & SVf_ROK && class($cv = $gv->RV) eq 'CV') { $proto = $cv->PV if $cv->FLAGS & SVf_POK; } $simple = 1; # only calls of named functions can be prototyped $kid = $self->maybe_qualify("!", $self->gv_name($gv)); my $fq; # Fully qualify any sub name that conflicts with a lexical. if ($self->lex_in_scope("&$kid") || $self->lex_in_scope("&$kid", 1)) { $fq++; } elsif (!$amper) { if ($kid eq 'main::') { $kid = '::'; } else { if ($kid !~ /::/ && $kid ne 'x') { # Fully qualify any sub name that is also a keyword. While # we could check the import flag, we cannot guarantee that # the code deparsed so far would set that flag, so we qual- # ify the names regardless of importation. if (exists $feature_keywords{$kid}) { $fq++ if $self->feature_enabled($kid); } elsif (do { local $@; local $SIG{__DIE__}; eval { () = prototype "CORE::$kid"; 1 } }) { $fq++ } } if ($kid !~ /^(?:\w|::)(?:[\w\d]|::(?!\z))*\z/) { $kid = single_delim("q", "'", $kid, $self) . '->'; } } } $fq and substr $kid, 0, 0, = $self->{'curstash'}.'::'; } elsif (is_scalar ($kid->first) && $kid->first->name ne 'rv2cv') { $amper = "&"; $kid = $self->deparse($kid, 24); } else { $prefix = ""; my $grandkid = $kid->first; my $arrow = ($lexical = $grandkid->name eq "padcv") || is_subscriptable($grandkid) ? "" : "->"; $kid = $self->deparse($kid, 24) . $arrow; if ($lexical) { my $padlist = $self->{'curcv'}->PADLIST; my $padoff = $grandkid->targ; my $padname = $padlist->ARRAYelt(0)->ARRAYelt($padoff); my $protocv = $padname->FLAGS & SVpad_STATE ? $padlist->ARRAYelt(1)->ARRAYelt($padoff) : $padname->PROTOCV; if ($protocv->FLAGS & SVf_POK) { $proto = $protocv->PV } $simple = 1; } } # Doesn't matter how many prototypes there are, if # they haven't happened yet! my $declared = $lexical || exists $self->{'subs_declared'}{$kid}; if (not $declared and $self->{'in_coderef2text'}) { no strict 'refs'; no warnings 'uninitialized'; $declared = ( defined &{ ${$self->{'curstash'}."::"}{$kid} } && !exists $self->{'subs_deparsed'}{$self->{'curstash'}."::".$kid} && defined prototype $self->{'curstash'}."::".$kid ); } if (!$declared && defined($proto)) { # Avoid "too early to check prototype" warning ($amper, $proto) = ('&'); } my $args; my $listargs = 1; if ($declared and defined $proto and not $amper) { ($amper, $args) = $self->check_proto($proto, @exprs); $listargs = $amper; } if ($listargs) { $args = join(", ", map( ($_->flags & OPf_WANT) == OPf_WANT_SCALAR && !retscalar($_) ? $self->maybe_parens_unop('scalar', $_, 6) : $self->deparse($_, 6), @exprs )); } if ($prefix or $amper) { if ($kid eq '&') { $kid = "{$kid}" } # &{&} cannot be written as && if ($op->flags & OPf_STACKED) { return $prefix . $amper . $kid . "(" . $args . ")"; } else { return $prefix . $amper. $kid; } } else { # It's a syntax error to call CORE::GLOBAL::foo with a prefix, # so it must have been translated from a keyword call. Translate # it back. $kid =~ s/^CORE::GLOBAL:://; my $dproto = defined($proto) ? $proto : "undefined"; my $scalar_proto = $dproto =~ /^;*(?:[\$*_+]|\\.|\\\[[^]]\])\z/; if (!$declared) { return "$kid(" . $args . ")"; } elsif ($dproto =~ /^\s*\z/) { return $kid; } elsif ($scalar_proto and is_scalar($exprs[0])) { # is_scalar is an excessively conservative test here: # really, we should be comparing to the precedence of the # top operator of $exprs[0] (ala unop()), but that would # take some major code restructuring to do right. return $self->maybe_parens_func($kid, $args, $cx, 16); } elsif (not $scalar_proto and defined($proto) || $simple) { #' return $self->maybe_parens_func($kid, $args, $cx, 5); } else { return "$kid(" . $args . ")"; } } } sub pp_enterwrite { unop(@_, "write") } # escape things that cause interpolation in double quotes, # but not character escapes sub uninterp { my($str) = @_; $str =~ s/(^|\G|[^\\])((?:\\\\)*)([\$\@]|\\[uUlLQE])/$1$2\\$3/g; return $str; } { my $bal; BEGIN { use re "eval"; # Matches any string which is balanced with respect to {braces} $bal = qr( (?: [^\\{}] | \\\\ | \\[{}] | \{(??{$bal})\} )* )x; } # the same, but treat $|, $), $( and $ at the end of the string differently # and leave comments unmangled for the sake of /x and (?x). sub re_uninterp { my($str) = @_; $str =~ s/ ( ^|\G # $1 | [^\\] ) ( # $2 (?:\\\\)* ) ( # $3 ( \(\?\??\{$bal\}\) # $4 (skip over (?{}) and (??{}) blocks) | \#[^\n]* # (skip over comments) ) | [\$\@] (?!\||\)|\(|$|\s) | \\[uUlLQE] ) /defined($4) && length($4) ? "$1$2$4" : "$1$2\\$3"/xeg; return $str; } } # character escapes, but not delimiters that might need to be escaped sub escape_str { # ASCII, UTF8 my($str) = @_; $str =~ s/(.)/ord($1) > 255 ? sprintf("\\x{%x}", ord($1)) : $1/eg; $str =~ s/\a/\\a/g; # $str =~ s/\cH/\\b/g; # \b means something different in a regex; and \cH # isn't a backspace in EBCDIC $str =~ s/\t/\\t/g; $str =~ s/\n/\\n/g; $str =~ s/\e/\\e/g; $str =~ s/\f/\\f/g; $str =~ s/\r/\\r/g; $str =~ s/([\cA-\cZ])/'\\c' . $unctrl{$1}/ge; $str =~ s/([[:^print:]])/sprintf("\\%03o", ord($1))/age; return $str; } # For regexes. Leave whitespace unmangled in case of /x or (?x). sub escape_re { my($str) = @_; $str =~ s/(.)/ord($1) > 255 ? sprintf("\\x{%x}", ord($1)) : $1/eg; $str =~ s/([[:^print:]])/ ($1 =~ y! \t\n!!) ? $1 : sprintf("\\%03o", ord($1))/age; $str =~ s/\n/\n\f/g; return $str; } # Don't do this for regexen sub unback { my($str) = @_; $str =~ s/\\/\\\\/g; return $str; } # Remove backslashes which precede literal control characters, # to avoid creating ambiguity when we escape the latter. # # Don't remove a backslash from escaped whitespace: where the T represents # a literal tab character, /T/x is not equivalent to /\T/x sub re_unback { my($str) = @_; # the insane complexity here is due to the behaviour of "\c\" $str =~ s/ # these two lines ensure that the backslash we're about to # remove isn't preceeded by something which makes it part # of a \c (^ | [^\\] | \\c\\) # $1 (?<!\\c) # the backslash to remove \\ # keep pairs of backslashes (\\\\)* # $2 # only remove if the thing following is a control char (?=[[:^print:]]) # and not whitespace (?=\S) /$1$2/xg; return $str; } sub balanced_delim { my($str) = @_; my @str = split //, $str; my($ar, $open, $close, $fail, $c, $cnt, $last_bs); for $ar (['[',']'], ['(',')'], ['<','>'], ['{','}']) { ($open, $close) = @$ar; $fail = 0; $cnt = 0; $last_bs = 0; for $c (@str) { if ($c eq $open) { $fail = 1 if $last_bs; $cnt++; } elsif ($c eq $close) { $fail = 1 if $last_bs; $cnt--; if ($cnt < 0) { # qq()() isn't ")(" $fail = 1; last; } } $last_bs = $c eq '\\'; } $fail = 1 if $cnt != 0; return ($open, "$open$str$close") if not $fail; } return ("", $str); } sub single_delim { my($q, $default, $str, $self) = @_; return "$default$str$default" if $default and index($str, $default) == -1; my $coreq = $self->keyword($q); # maybe CORE::q if ($q ne 'qr') { (my $succeed, $str) = balanced_delim($str); return "$coreq$str" if $succeed; } for my $delim ('/', '"', '#') { return "$coreq$delim" . $str . $delim if index($str, $delim) == -1; } if ($default) { $str =~ s/$default/\\$default/g; return "$default$str$default"; } else { $str =~ s[/][\\/]g; return "$coreq/$str/"; } } my $max_prec; BEGIN { $max_prec = int(0.999 + 8*length(pack("F", 42))*log(2)/log(10)); } # Split a floating point number into an integer mantissa and a binary # exponent. Assumes you've already made sure the number isn't zero or # some weird infinity or NaN. sub split_float { my($f) = @_; my $exponent = 0; if ($f == int($f)) { while ($f % 2 == 0) { $f /= 2; $exponent++; } } else { while ($f != int($f)) { $f *= 2; $exponent--; } } my $mantissa = sprintf("%.0f", $f); return ($mantissa, $exponent); } # suitably single- or double-quote a literal constant string sub quoted_const_str { my ($self, $str) =@_; if ($str =~ /[[:^print:]]/a) { return single_delim("qq", '"', uninterp(escape_str unback $str), $self); } else { return single_delim("q", "'", unback($str), $self); } } sub const { my $self = shift; my($sv, $cx) = @_; if ($self->{'use_dumper'}) { return $self->const_dumper($sv, $cx); } if (class($sv) eq "SPECIAL") { # sv_undef, sv_yes, sv_no return $$sv == 3 ? $self->maybe_parens("!1", $cx, 21) : ('undef', '1')[$$sv-1]; } if (class($sv) eq "NULL") { return 'undef'; } # convert a version object into the "v1.2.3" string in its V magic if ($sv->FLAGS & SVs_RMG) { for (my $mg = $sv->MAGIC; $mg; $mg = $mg->MOREMAGIC) { return $mg->PTR if $mg->TYPE eq 'V'; } } if ($sv->FLAGS & SVf_IOK) { my $str = $sv->int_value; $str = $self->maybe_parens($str, $cx, 21) if $str < 0; return $str; } elsif ($sv->FLAGS & SVf_NOK) { my $nv = $sv->NV; if ($nv == 0) { if (pack("F", $nv) eq pack("F", 0)) { # positive zero return "0"; } else { # negative zero return $self->maybe_parens("-.0", $cx, 21); } } elsif (1/$nv == 0) { if ($nv > 0) { # positive infinity return $self->maybe_parens("9**9**9", $cx, 22); } else { # negative infinity return $self->maybe_parens("-9**9**9", $cx, 21); } } elsif ($nv != $nv) { # NaN if (pack("F", $nv) eq pack("F", sin(9**9**9))) { # the normal kind return "sin(9**9**9)"; } elsif (pack("F", $nv) eq pack("F", -sin(9**9**9))) { # the inverted kind return $self->maybe_parens("-sin(9**9**9)", $cx, 21); } else { # some other kind my $hex = unpack("h*", pack("F", $nv)); return qq'unpack("F", pack("h*", "$hex"))'; } } # first, try the default stringification my $str = "$nv"; if ($str != $nv) { # failing that, try using more precision $str = sprintf("%.${max_prec}g", $nv); # if (pack("F", $str) ne pack("F", $nv)) { if ($str != $nv) { # not representable in decimal with whatever sprintf() # and atof() Perl is using here. my($mant, $exp) = split_float($nv); return $self->maybe_parens("$mant * 2**$exp", $cx, 19); } } $str = $self->maybe_parens($str, $cx, 21) if $nv < 0; return $str; } elsif ($sv->FLAGS & SVf_ROK && $sv->can("RV")) { my $ref = $sv->RV; my $class = class($ref); if ($class eq "AV") { return "[" . $self->list_const(2, $ref->ARRAY) . "]"; } elsif ($class eq "HV") { my %hash = $ref->ARRAY; my @elts; for my $k (sort keys %hash) { push @elts, "$k => " . $self->const($hash{$k}, 6); } return "{" . join(", ", @elts) . "}"; } elsif ($class eq "CV") { no overloading; if ($self->{curcv} && $self->{curcv}->object_2svref == $ref->object_2svref) { return $self->keyword("__SUB__"); } return "sub " . $self->deparse_sub($ref); } if ($class ne 'SPECIAL' and $ref->FLAGS & SVs_SMG) { for (my $mg = $ref->MAGIC; $mg; $mg = $mg->MOREMAGIC) { if ($mg->TYPE eq 'r') { my $re = re_uninterp(escape_re(re_unback($mg->precomp))); return single_delim("qr", "", $re, $self); } } } my $const = $self->const($ref, 20); if ($self->{in_subst_repl} && $const =~ /^[0-9]/) { $const = "($const)"; } return $self->maybe_parens("\\$const", $cx, 20); } elsif ($sv->FLAGS & SVf_POK) { my $str = $sv->PV; return $self->quoted_const_str($str); } else { return "undef"; } } sub const_dumper { my $self = shift; my($sv, $cx) = @_; my $ref = $sv->object_2svref(); my $dumper = Data::Dumper->new([$$ref], ['$v']); $dumper->Purity(1)->Terse(1)->Deparse(1)->Indent(0)->Useqq(1)->Sortkeys(1); my $str = $dumper->Dump(); if ($str =~ /^\$v/) { return '${my ' . $str . ' \$v}'; } else { return $str; } } sub const_sv { my $self = shift; my $op = shift; my $sv = $op->sv; # the constant could be in the pad (under useithreads) $sv = $self->padval($op->targ) unless $$sv; return $sv; } sub meth_sv { my $self = shift; my $op = shift; my $sv = $op->meth_sv; # the constant could be in the pad (under useithreads) $sv = $self->padval($op->targ) unless $$sv; return $sv; } sub meth_rclass_sv { my $self = shift; my $op = shift; my $sv = $op->rclass; # the constant could be in the pad (under useithreads) $sv = $self->padval($sv) unless ref $sv; return $sv; } sub pp_const { my $self = shift; my($op, $cx) = @_; # if ($op->private & OPpCONST_BARE) { # trouble with '=>' autoquoting # return $self->const_sv($op)->PV; # } my $sv = $self->const_sv($op); return $self->const($sv, $cx); } # Join two components of a double-quoted string, disambiguating # "${foo}bar", "${foo}{bar}", "${foo}[1]", "$foo\::bar" sub dq_disambiguate { my ($first, $last) = @_; ($last =~ /^[A-Z\\\^\[\]_?]/ && $first =~ s/([\$@])\^$/${1}{^}/) # "${^}W" etc || ($last =~ /^[:'{\[\w_]/ && #' $first =~ s/([\$@])([A-Za-z_]\w*)$/${1}{$2}/); return $first . $last; } # Deparse a double-quoted optree. For example, "$a[0]\Q$b\Efo\"o" gets # compiled to concat(concat($[0],quotemeta($b)),const("fo\"o")), and this # sub deparses it back to $a[0]\Q$b\Efo"o # (It does not add delimiters) sub dq { my $self = shift; my $op = shift; my $type = $op->name; if ($type eq "const") { return uninterp(escape_str(unback($self->const_sv($op)->as_string))); } elsif ($type eq "concat") { return dq_disambiguate($self->dq($op->first), $self->dq($op->last)); } elsif ($type eq "multiconcat") { return $self->do_multiconcat($op, 26, 1); } elsif ($type eq "uc") { return '\U' . $self->dq($op->first->sibling) . '\E'; } elsif ($type eq "lc") { return '\L' . $self->dq($op->first->sibling) . '\E'; } elsif ($type eq "ucfirst") { return '\u' . $self->dq($op->first->sibling); } elsif ($type eq "lcfirst") { return '\l' . $self->dq($op->first->sibling); } elsif ($type eq "quotemeta") { return '\Q' . $self->dq($op->first->sibling) . '\E'; } elsif ($type eq "fc") { return '\F' . $self->dq($op->first->sibling) . '\E'; } elsif ($type eq "join") { return $self->deparse($op->last, 26); # was join($", @ary) } else { return $self->deparse($op, 26); } } sub pp_backtick { my $self = shift; my($op, $cx) = @_; # skip pushmark if it exists (readpipe() vs ``) my $child = $op->first->sibling->isa('B::NULL') ? $op->first : $op->first->sibling; if ($self->pure_string($child)) { return single_delim("qx", '`', $self->dq($child, 1), $self); } unop($self, @_, "readpipe"); } sub dquote { my $self = shift; my($op, $cx) = @_; my $kid = $op->first->sibling; # skip ex-stringify, pushmark return $self->deparse($kid, $cx) if $self->{'unquote'}; $self->maybe_targmy($kid, $cx, sub {single_delim("qq", '"', $self->dq($_[1]), $self)}); } # OP_STRINGIFY is a listop, but it only ever has one arg sub pp_stringify { my ($self, $op, $cx) = @_; my $kid = $op->first->sibling; while ($kid->name eq 'null' && !null($kid->first)) { $kid = $kid->first; } if ($kid->name =~ /^(?:const|padsv|rv2sv|av2arylen|gvsv|multideref |aelemfast(?:_lex)?|[ah]elem|join|concat)\z/x) { maybe_targmy(@_, \&dquote); } else { # Actually an optimised join. my $result = listop(@_,"join"); $result =~ s/join([( ])/join$1$self->{'ex_const'}, /; $result; } } # tr/// and s/// (and tr[][], tr[]//, tr###, etc) # note that tr(from)/to/ is OK, but not tr/from/(to) sub double_delim { my($from, $to) = @_; my($succeed, $delim); if ($from !~ m[/] and $to !~ m[/]) { return "/$from/$to/"; } elsif (($succeed, $from) = balanced_delim($from) and $succeed) { if (($succeed, $to) = balanced_delim($to) and $succeed) { return "$from$to"; } else { for $delim ('/', '"', '#') { # note no "'" -- s''' is special return "$from$delim$to$delim" if index($to, $delim) == -1; } $to =~ s[/][\\/]g; return "$from/$to/"; } } else { for $delim ('/', '"', '#') { # note no ' return "$delim$from$delim$to$delim" if index($to . $from, $delim) == -1; } $from =~ s[/][\\/]g; $to =~ s[/][\\/]g; return "/$from/$to/"; } } # Escape a characrter. # Only used by tr///, so backslashes hyphens sub pchr { my($n) = @_; return sprintf("\\x{%X}", $n) if $n > 255; return '\\\\' if $n == ord '\\'; return "\\-" if $n == ord "-"; # I'm presuming a regex is not ok here, otherwise we could have used # /[[:print:]]/a to get here return chr($n) if ( utf8::native_to_unicode($n) >= utf8::native_to_unicode(ord(' ')) and utf8::native_to_unicode($n) <= utf8::native_to_unicode(ord('~'))); my $mnemonic_pos = index("\a\b\e\f\n\r\t", chr($n)); return "\\" . substr("abefnrt", $mnemonic_pos, 1) if $mnemonic_pos >= 0; return '\\c' . $unctrl{chr $n} if $n >= ord("\cA") and $n <= ord("\cZ"); # return '\x' . sprintf("%02x", $n); return '\\' . sprintf("%03o", $n); } # Convert a list of characters into a string suitable for tr/// search or # replacement, with suitable escaping and collapsing of ranges sub collapse { my(@chars) = @_; my($str, $c, $tr) = (""); for ($c = 0; $c < @chars; $c++) { $tr = $chars[$c]; $str .= pchr($tr); if ($c <= $#chars - 2 and $chars[$c + 1] == $tr + 1 and $chars[$c + 2] == $tr + 2) { for (; $c <= $#chars-1 and $chars[$c + 1] == $chars[$c] + 1; $c++) {} $str .= "-"; $str .= pchr($chars[$c]); } } return $str; } sub tr_decode_byte { my($table, $flags) = @_; my $ssize_t = $Config{ptrsize} == 8 ? 'q' : 'l'; my ($size, @table) = unpack("${ssize_t}s*", $table); pop @table; # remove the wildcard final entry my($c, $tr, @from, @to, @delfrom, $delhyphen); if ($table[ord "-"] != -1 and $table[ord("-") - 1] == -1 || $table[ord("-") + 1] == -1) { $tr = $table[ord "-"]; $table[ord "-"] = -1; if ($tr >= 0) { @from = ord("-"); @to = $tr; } else { # -2 ==> delete $delhyphen = 1; } } for ($c = 0; $c < @table; $c++) { $tr = $table[$c]; if ($tr >= 0) { push @from, $c; push @to, $tr; } elsif ($tr == -2) { push @delfrom, $c; } } @from = (@from, @delfrom); if ($flags & OPpTRANS_COMPLEMENT) { unless ($flags & OPpTRANS_DELETE) { @to = () if ("@from" eq "@to"); } my @newfrom = (); my %from; @from{@from} = (1) x @from; for ($c = 0; $c < 256; $c++) { push @newfrom, $c unless $from{$c}; } @from = @newfrom; } unless ($flags & OPpTRANS_DELETE || !@to) { pop @to while $#to and $to[$#to] == $to[$#to -1]; } my($from, $to); $from = collapse(@from); $to = collapse(@to); $from .= "-" if $delhyphen; return ($from, $to); } my $infinity = ~0 >> 1; # IV_MAX sub tr_append_to_invlist { my ($list_ref, $current, $next) = @_; # Appends the range $current..$next-1 to the inversion list $list_ref printf STDERR "%d: %d..%d %s", __LINE__, $current, $next, Dumper $list_ref if DEBUG; if (@$list_ref && $list_ref->[-1] == $current) { # The new range extends the current final one. If it is a finite # rane, replace the current final by the new ending. if (defined $next) { $list_ref->[-1] = $next; } else { # The new range extends to infinity, which means the current end # of the inversion list is dangling. Removing it causes things to # work. pop @$list_ref; } } else { # The new range starts after the current final one; add it as a # new range push @$list_ref, $current; push @$list_ref, $next if defined $next; } print STDERR __LINE__, ": ", Dumper $list_ref if DEBUG; } sub tr_invlist_to_string { my ($list_ref, $to_complement) = @_; # Stringify the inversion list $list_ref, possibly complementing it first. # CAUTION: this can modify $list_ref. print STDERR __LINE__, ": ", Dumper $list_ref if DEBUG; if ($to_complement) { # Complementing an inversion list is done by prepending a 0 if it # doesn't have one there already; otherwise removing the leading 0. if ($list_ref->[0] == 0) { shift @$list_ref; } else { unshift @$list_ref, 0; } print STDERR __LINE__, ": ", Dumper $list_ref if DEBUG; } my $output = ""; # Every other element is in the list. for (my $i = 0; $i < @$list_ref; $i += 2) { my $base = $list_ref->[$i]; $output .= pchr($base); last unless defined $list_ref->[$i+1]; # The beginning of the next element starts the range of items not in # the list. my $upper = $list_ref->[$i+1] - 1; my $range = $upper - $base; $output .= '-' if $range > 1; # Adjacent characters don't have a # minus, though it would be legal to do # so $output .= pchr($upper) if $range > 0; } print STDERR __LINE__, ": tr_invlist_to_string() returning '$output'\n" if DEBUG; return $output; } my $unmapped = ~0; my $special_handling = ~0 - 1; sub dump_invmap { my ($invlist_ref, $map_ref) = @_; for my $i (0 .. @$invlist_ref - 1) { printf STDERR "[%d]\t%x\t", $i, $invlist_ref->[$i]; my $map = $map_ref->[$i]; if ($map == $unmapped) { print STDERR "TR_UNMAPPED\n"; } elsif ($map == $special_handling) { print STDERR "TR_SPECIAL\n"; } else { printf STDERR "%x\n", $map; } } } sub tr_decode_utf8 { my($tr_av, $flags) = @_; printf STDERR "\n%s: %d: flags=0x%x\n", __FILE__, __LINE__, $flags if DEBUG; my $invlist = $tr_av->ARRAYelt(0); my @invlist = unpack("J*", $invlist->PV); my @map = unpack("J*", $tr_av->ARRAYelt(1)->PV); dump_invmap(\@invlist, \@map) if DEBUG; my @from; my @to; # Go through the whole map for (my $i = 0; $i < @invlist; $i++) { my $map = $map[$i]; printf STDERR "%d: i=%d, source=%x, map=%x\n", __LINE__, $i, $invlist[$i], $map if DEBUG; # Ignore any lines that are unmapped next if $map == $unmapped; # Calculate this component of the mapping; First the lhs my $this_from = $invlist[$i]; my $next_from = $invlist[$i+1] if $i < @invlist - 1; # The length of the rhs is the same as the lhs, except when special my $next_map = $map - $this_from + $next_from if $map != $special_handling && defined $next_from; if (DEBUG) { printf STDERR "%d: i=%d, from=%x, to=%x", __LINE__, $i, $this_from, $map; printf STDERR ", next_from=%x,", $next_from if defined $next_from; printf STDERR ", next_map=%x", $next_map if defined $next_map; print STDERR "\n"; } # Add the lhs. tr_append_to_invlist(\@from, $this_from, $next_from); # And, the rhs; special handling doesn't get output as it really is an # unmatched rhs tr_append_to_invlist(\@to, $map, $next_map) if $map != $special_handling; } # Done with the input. my $to; if (join("", @from) eq join("", @to)) { # the rhs is suppressed if identical to the left. That's because # tr/ABC/ABC/ can be written as tr/ABC//. (Do this comparison before # any complementing) $to = ""; } else { $to = tr_invlist_to_string(\@to, 0); # rhs not complemented } my $from = tr_invlist_to_string(\@from, ($flags & OPpTRANS_COMPLEMENT) != 0); print STDERR "Returning ", escape_str($from), "/", escape_str($to), "\n" if DEBUG; return (escape_str($from), escape_str($to)); } sub pp_trans { my $self = shift; my($op, $cx, $morflags) = @_; my($from, $to); my $class = class($op); my $priv_flags = $op->private; if ($class eq "PVOP") { ($from, $to) = tr_decode_byte($op->pv, $priv_flags); } elsif ($class eq "PADOP") { ($from, $to) = tr_decode_utf8($self->padval($op->padix), $priv_flags); } else { # class($op) eq "SVOP" ($from, $to) = tr_decode_utf8($op->sv, $priv_flags); } my $flags = ""; $flags .= "c" if $priv_flags & OPpTRANS_COMPLEMENT; $flags .= "d" if $priv_flags & OPpTRANS_DELETE; $to = "" if $from eq $to and $flags eq ""; $flags .= "s" if $priv_flags & OPpTRANS_SQUASH; $flags .= $morflags if defined $morflags; my $ret = $self->keyword("tr") . double_delim($from, $to) . $flags; if (my $targ = $op->targ) { return $self->maybe_parens($self->padname($targ) . " =~ $ret", $cx, 20); } return $ret; } sub pp_transr { push @_, 'r'; goto &pp_trans } # Join two components of a double-quoted re, disambiguating # "${foo}bar", "${foo}{bar}", "${foo}[1]". sub re_dq_disambiguate { my ($first, $last) = @_; ($last =~ /^[A-Z\\\^\[\]_?]/ && $first =~ s/([\$@])\^$/${1}{^}/) # "${^}W" etc || ($last =~ /^[{\[\w_]/ && $first =~ s/([\$@])([A-Za-z_]\w*)$/${1}{$2}/); return $first . $last; } # Like dq(), but different sub re_dq { my $self = shift; my ($op) = @_; my $type = $op->name; if ($type eq "const") { my $unbacked = re_unback($self->const_sv($op)->as_string); return re_uninterp(escape_re($unbacked)); } elsif ($type eq "concat") { my $first = $self->re_dq($op->first); my $last = $self->re_dq($op->last); return re_dq_disambiguate($first, $last); } elsif ($type eq "multiconcat") { return $self->do_multiconcat($op, 26, 2); } elsif ($type eq "uc") { return '\U' . $self->re_dq($op->first->sibling) . '\E'; } elsif ($type eq "lc") { return '\L' . $self->re_dq($op->first->sibling) . '\E'; } elsif ($type eq "ucfirst") { return '\u' . $self->re_dq($op->first->sibling); } elsif ($type eq "lcfirst") { return '\l' . $self->re_dq($op->first->sibling); } elsif ($type eq "quotemeta") { return '\Q' . $self->re_dq($op->first->sibling) . '\E'; } elsif ($type eq "fc") { return '\F' . $self->re_dq($op->first->sibling) . '\E'; } elsif ($type eq "join") { return $self->deparse($op->last, 26); # was join($", @ary) } else { my $ret = $self->deparse($op, 26); $ret =~ s/^\$([(|)])\z/\${$1}/ # $( $| $) need braces or $ret =~ s/^\@([-+])\z/\@{$1}/; # @- @+ need braces return $ret; } } sub pure_string { my ($self, $op) = @_; return 0 if null $op; my $type = $op->name; if ($type eq 'const' || $type eq 'av2arylen') { return 1; } elsif ($type =~ /^(?:[ul]c(first)?|fc)$/ || $type eq 'quotemeta') { return $self->pure_string($op->first->sibling); } elsif ($type eq 'join') { my $join_op = $op->first->sibling; # Skip pushmark return 0 unless $join_op->name eq 'null' && $join_op->targ == OP_RV2SV; my $gvop = $join_op->first; return 0 unless $gvop->name eq 'gvsv'; return 0 unless '"' eq $self->gv_name($self->gv_or_padgv($gvop)); return 0 unless ${$join_op->sibling} eq ${$op->last}; return 0 unless $op->last->name =~ /^(?:[ah]slice|(?:rv2|pad)av)$/; } elsif ($type eq 'concat') { return $self->pure_string($op->first) && $self->pure_string($op->last); } elsif ($type eq 'multiconcat') { my ($kid, @kids); for ($kid = $op->first; !null $kid; $kid = $kid->sibling) { # skip the consts and/or padsv we've optimised away push @kids, $kid unless $kid->type == OP_NULL && ( $kid->targ == OP_PADSV || $kid->targ == OP_CONST || $kid->targ == OP_PUSHMARK); } if ($op->flags & OPf_STACKED) { # remove expr from @kids where 'expr = ...' or 'expr .= ....' if ($op->private & OPpMULTICONCAT_APPEND) { shift(@kids); } else { pop(@kids); } } for (@kids) { return 0 unless $self->pure_string($_); } return 1; } elsif (is_scalar($op) || $type =~ /^[ah]elem$/) { return 1; } elsif ($type eq "null" and $op->can('first') and not null $op->first) { my $first = $op->first; return 1 if $first->name eq "multideref"; return 1 if $first->name eq "aelemfast_lex"; if ( $first->name eq "null" and $first->can('first') and not null $first->first and $first->first->name eq "aelemfast" ) { return 1; } } return 0; } sub code_list { my ($self,$op,$cv) = @_; # localise stuff relating to the current sub $cv and local($self->{'curcv'}) = $cv, local($self->{'curcvlex'}), local(@$self{qw'curstash warnings hints hinthash curcop'}) = @$self{qw'curstash warnings hints hinthash curcop'}; my $re; for ($op = $op->first->sibling; !null($op); $op = $op->sibling) { if ($op->name eq 'null' and $op->flags & OPf_SPECIAL) { my $scope = $op->first; # 0 context (last arg to scopeop) means statement context, so # the contents of the block will not be wrapped in do{...}. my $block = scopeop($scope->first->name eq "enter", $self, $scope, 0); # next op is the source code of the block $op = $op->sibling; $re .= ($self->const_sv($op)->PV =~ m|^(\(\?\??\{)|)[0]; my $multiline = $block =~ /\n/; $re .= $multiline ? "\n\t" : ' '; $re .= $block; $re .= $multiline ? "\n\b})" : " })"; } else { $re = re_dq_disambiguate($re, $self->re_dq($op)); } } $re; } sub regcomp { my $self = shift; my($op, $cx) = @_; my $kid = $op->first; $kid = $kid->first if $kid->name eq "regcmaybe"; $kid = $kid->first if $kid->name eq "regcreset"; my $kname = $kid->name; if ($kname eq "null" and !null($kid->first) and $kid->first->name eq 'pushmark') { my $str = ''; $kid = $kid->first->sibling; while (!null($kid)) { my $first = $str; my $last = $self->re_dq($kid); $str = re_dq_disambiguate($first, $last); $kid = $kid->sibling; } return $str, 1; } return ($self->re_dq($kid), 1) if $kname =~ /^(?:rv2|pad)av/ or $self->pure_string($kid); return ($self->deparse($kid, $cx), 0); } sub pp_regcomp { my ($self, $op, $cx) = @_; return (($self->regcomp($op, $cx, 0))[0]); } sub re_flags { my ($self, $op) = @_; my $flags = ''; my $pmflags = $op->pmflags; if (!$pmflags) { my $re = $op->pmregexp; if ($$re) { $pmflags = $re->compflags; } } $flags .= "g" if $pmflags & PMf_GLOBAL; $flags .= "i" if $pmflags & PMf_FOLD; $flags .= "m" if $pmflags & PMf_MULTILINE; $flags .= "o" if $pmflags & PMf_KEEP; $flags .= "s" if $pmflags & PMf_SINGLELINE; $flags .= "x" if $pmflags & PMf_EXTENDED; $flags .= "x" if $pmflags & PMf_EXTENDED_MORE; $flags .= "p" if $pmflags & PMf_KEEPCOPY; $flags .= "n" if $pmflags & PMf_NOCAPTURE; if (my $charset = $pmflags & PMf_CHARSET) { # Hardcoding this is fragile, but B does not yet export the # constants we need. $flags .= qw(d l u a aa)[$charset >> 7] } # The /d flag is indicated by 0; only show it if necessary. elsif ($self->{hinthash} and $self->{hinthash}{reflags_charset} || $self->{hinthash}{feature_unicode} or $self->{hints} & $feature::hint_mask && ($self->{hints} & $feature::hint_mask) != $feature::hint_mask && $self->{hints} & $feature::hint_uni8bit ) { $flags .= 'd'; } $flags; } # osmic acid -- see osmium tetroxide my %matchwords; map($matchwords{join "", sort split //, $_} = $_, 'cig', 'cog', 'cos', 'cogs', 'cox', 'go', 'is', 'ism', 'iso', 'mig', 'mix', 'osmic', 'ox', 'sic', 'sig', 'six', 'smog', 'so', 'soc', 'sog', 'xi', 'soup', 'soupmix'); # When deparsing a regular expression with code blocks, we have to look in # various places to find the blocks. # # For qr/(?{...})/ without interpolation, the CV is under $qr->qr_anoncv # and the code list (list of blocks and constants, maybe vars) is under # $cv->ROOT->first->code_list: # ./perl -Ilib -MB -e 'use O "Concise", B::svref_2object(sub {qr/(?{die})/})->ROOT->first->first->sibling->pmregexp->qr_anoncv->object_2svref' # # For qr/$a(?{...})/ with interpolation, the code list is more accessible, # under $pmop->code_list, but the $cv is something you have to dig for in # the regcomp op’s kids: # ./perl -Ilib -mO=Concise -e 'qr/$a(?{die})/' # # For m// and split //, things are much simpler. There is no CV. The code # list is under $pmop->code_list. sub matchop { my $self = shift; my($op, $cx, $name, $delim) = @_; my $kid = $op->first; my ($binop, $var, $re) = ("", "", ""); if ($op->name ne 'split' && $op->flags & OPf_STACKED) { $binop = 1; $var = $self->deparse($kid, 20); $kid = $kid->sibling; } # not $name; $name will be 'm' for both match and split elsif ($op->name eq 'match' and my $targ = $op->targ) { $binop = 1; $var = $self->padname($targ); } my $quote = 1; my $pmflags = $op->pmflags; my $rhs_bound_to_defsv; my ($cv, $bregexp); my $have_kid = !null $kid; # Check for code blocks first if (not null my $code_list = $op->code_list) { $re = $self->code_list($code_list, $op->name eq 'qr' ? $self->padval( $kid->first # ex-list ->first # pushmark ->sibling # entersub ->first # ex-list ->first # pushmark ->sibling # srefgen ->first # ex-list ->first # anoncode ->targ ) : undef); } elsif (${$bregexp = $op->pmregexp} && ${$cv = $bregexp->qr_anoncv}) { my $patop = $cv->ROOT # leavesub ->first # qr ->code_list;# list $re = $self->code_list($patop, $cv); } elsif (!$have_kid) { $re = re_uninterp(escape_re(re_unback($op->precomp))); } elsif ($kid->name ne 'regcomp') { if ($op->name eq 'split') { # split has other kids, not just regcomp $re = re_uninterp(escape_re(re_unback($op->precomp))); } else { carp("found ".$kid->name." where regcomp expected"); } } else { ($re, $quote) = $self->regcomp($kid, 21); } if ($have_kid and $kid->name eq 'regcomp') { my $matchop = $kid->first; if ($matchop->name eq 'regcreset') { $matchop = $matchop->first; } if ($matchop->name =~ /^(?:match|transr?|subst)\z/ && $matchop->flags & OPf_SPECIAL) { $rhs_bound_to_defsv = 1; } } my $flags = ""; $flags .= "c" if $pmflags & PMf_CONTINUE; $flags .= $self->re_flags($op); $flags = join '', sort split //, $flags; $flags = $matchwords{$flags} if $matchwords{$flags}; if ($pmflags & PMf_ONCE) { # only one kind of delimiter works here $re =~ s/\?/\\?/g; $re = $self->keyword("m") . "?$re?"; # explicit 'm' is required } elsif ($quote) { $re = single_delim($name, $delim, $re, $self); } $re = $re . $flags if $quote; if ($binop) { return $self->maybe_parens( $rhs_bound_to_defsv ? "$var =~ (\$_ =~ $re)" : "$var =~ $re", $cx, 20 ); } else { return $re; } } sub pp_match { matchop(@_, "m", "/") } sub pp_qr { matchop(@_, "qr", "") } sub pp_runcv { unop(@_, "__SUB__"); } sub pp_split { my $self = shift; my($op, $cx) = @_; my($kid, @exprs, $ary, $expr); my $stacked = $op->flags & OPf_STACKED; $kid = $op->first; $kid = $kid->sibling if $kid->name eq 'regcomp'; for (; !null($kid); $kid = $kid->sibling) { push @exprs, $self->deparse($kid, 6); } unshift @exprs, $self->matchop($op, $cx, "m", "/"); if ($op->private & OPpSPLIT_ASSIGN) { # With C<@array = split(/pat/, str);>, # array is stored in split's pmreplroot; either # as an integer index into the pad (for a lexical array) # or as GV for a package array (which will be a pad index # on threaded builds) # With my/our @array = split(/pat/, str), the array is instead # accessed via an extra padav/rv2av op at the end of the # split's kid ops. if ($stacked) { $ary = pop @exprs; } else { if ($op->private & OPpSPLIT_LEX) { $ary = $self->padname($op->pmreplroot); } else { # union with op_pmtargetoff, op_pmtargetgv my $gv = $op->pmreplroot; $gv = $self->padval($gv) if !ref($gv); $ary = $self->maybe_local(@_, $self->stash_variable('@', $self->gv_name($gv), $cx)) } if ($op->private & OPpLVAL_INTRO) { $ary = $op->private & OPpSPLIT_LEX ? "my $ary" : "local $ary"; } } } # handle special case of split(), and split(' ') that compiles to /\s+/ $exprs[0] = q{' '} if ($op->reflags // 0) & RXf_SKIPWHITE(); $expr = "split(" . join(", ", @exprs) . ")"; if ($ary) { return $self->maybe_parens("$ary = $expr", $cx, 7); } else { return $expr; } } # oxime -- any of various compounds obtained chiefly by the action of # hydroxylamine on aldehydes and ketones and characterized by the # bivalent grouping C=NOH [Webster's Tenth] my %substwords; map($substwords{join "", sort split //, $_} = $_, 'ego', 'egoism', 'em', 'es', 'ex', 'exes', 'gee', 'go', 'goes', 'ie', 'ism', 'iso', 'me', 'meese', 'meso', 'mig', 'mix', 'os', 'ox', 'oxime', 'see', 'seem', 'seg', 'sex', 'sig', 'six', 'smog', 'sog', 'some', 'xi', 'rogue', 'sir', 'rise', 'smore', 'more', 'seer', 'rome', 'gore', 'grim', 'grime', 'or', 'rose', 'rosie'); sub pp_subst { my $self = shift; my($op, $cx) = @_; my $kid = $op->first; my($binop, $var, $re, $repl) = ("", "", "", ""); if ($op->flags & OPf_STACKED) { $binop = 1; $var = $self->deparse($kid, 20); $kid = $kid->sibling; } elsif (my $targ = $op->targ) { $binop = 1; $var = $self->padname($targ); } my $flags = ""; my $pmflags = $op->pmflags; if (null($op->pmreplroot)) { $repl = $kid; $kid = $kid->sibling; } else { $repl = $op->pmreplroot->first; # skip substcont } while ($repl->name eq "entereval") { $repl = $repl->first; $flags .= "e"; } { local $self->{in_subst_repl} = 1; if ($pmflags & PMf_EVAL) { $repl = $self->deparse($repl->first, 0); } else { $repl = $self->dq($repl); } } if (not null my $code_list = $op->code_list) { $re = $self->code_list($code_list); } elsif (null $kid) { $re = re_uninterp(escape_re(re_unback($op->precomp))); } else { ($re) = $self->regcomp($kid, 1); } $flags .= "r" if $pmflags & PMf_NONDESTRUCT; $flags .= "e" if $pmflags & PMf_EVAL; $flags .= $self->re_flags($op); $flags = join '', sort split //, $flags; $flags = $substwords{$flags} if $substwords{$flags}; my $core_s = $self->keyword("s"); # maybe CORE::s if ($binop) { return $self->maybe_parens("$var =~ $core_s" . double_delim($re, $repl) . $flags, $cx, 20); } else { return "$core_s". double_delim($re, $repl) . $flags; } } sub is_lexical_subs { my (@ops) = shift; for my $op (@ops) { return 0 if $op->name !~ /\A(?:introcv|clonecv)\z/; } return 1; } # Pretend these two ops do not exist. The perl parser adds them to the # beginning of any block containing my-sub declarations, whereas we handle # the subs in pad_subs and next_todo. *pp_clonecv = *pp_introcv; sub pp_introcv { my $self = shift; my($op, $cx) = @_; # For now, deparsing doesn't worry about the distinction between introcv # and clonecv, so pretend this op doesn't exist: return ''; } sub pp_padcv { my $self = shift; my($op, $cx) = @_; return $self->padany($op); } my %lvref_funnies = ( OPpLVREF_SV, => '$', OPpLVREF_AV, => '@', OPpLVREF_HV, => '%', OPpLVREF_CV, => '&', ); sub pp_refassign { my ($self, $op, $cx) = @_; my $left; if ($op->private & OPpLVREF_ELEM) { $left = $op->first->sibling; $left = maybe_local(@_, elem($self, $left, undef, $left->targ == OP_AELEM ? qw([ ] padav) : qw({ } padhv))); } elsif ($op->flags & OPf_STACKED) { $left = maybe_local(@_, $lvref_funnies{$op->private & OPpLVREF_TYPE} . $self->deparse($op->first->sibling)); } else { $left = &pp_padsv; } my $right = $self->deparse_binop_right($op, $op->first, 7); return $self->maybe_parens("\\$left = $right", $cx, 7); } sub pp_lvref { my ($self, $op, $cx) = @_; my $code; if ($op->private & OPpLVREF_ELEM) { $code = $op->first->name =~ /av\z/ ? &pp_aelem : &pp_helem; } elsif ($op->flags & OPf_STACKED) { $code = maybe_local(@_, $lvref_funnies{$op->private & OPpLVREF_TYPE} . $self->deparse($op->first)); } else { $code = &pp_padsv; } "\\$code"; } sub pp_lvrefslice { my ($self, $op, $cx) = @_; '\\' . ($op->last->name =~ /av\z/ ? &pp_aslice : &pp_hslice); } sub pp_lvavref { my ($self, $op, $cx) = @_; '\\(' . ($op->flags & OPf_STACKED ? maybe_local(@_, rv2x(@_, "\@")) : &pp_padsv) . ')' } sub pp_argcheck { my $self = shift; my($op, $cx) = @_; my ($params, $opt_params, $slurpy) = $op->aux_list($self->{curcv}); my $mandatory = $params - $opt_params; my $check = ''; $check .= <<EOF if !$slurpy; die sprintf("Too many arguments for subroutine at %s line %d.\\n", (caller)[1, 2]) unless \@_ <= $params; EOF $check .= <<EOF if $mandatory > 0; die sprintf("Too few arguments for subroutine at %s line %d.\\n", (caller)[1, 2]) unless \@_ >= $mandatory; EOF my $cond = ($params & 1) ? 'unless' : 'if'; $check .= <<EOF if $slurpy eq '%'; die sprintf("Odd name/value argument for subroutine at %s line %d.\\n", (caller)[1, 2]) if \@_ > $params && ((\@_ - $params) & 1); EOF $check =~ s/;\n\z//; return $check; } sub pp_argelem { my $self = shift; my($op, $cx) = @_; my $var = $self->padname($op->targ); my $ix = $op->string($self->{curcv}); my $expr; if ($op->flags & OPf_KIDS) { $expr = $self->deparse($op->first, 7); } elsif ($var =~ /^[@%]/) { $expr = $ix ? "\@_[$ix .. \$#_]" : '@_'; } else { $expr = "\$_[$ix]"; } return "my $var = $expr"; } sub pp_argdefelem { my $self = shift; my($op, $cx) = @_; my $ix = $op->targ; my $expr = "\@_ >= " . ($ix+1) . " ? \$_[$ix] : "; my $def = $self->deparse($op->first, 7); $def = "($def)" if $op->first->flags & OPf_PARENS; $expr .= $self->deparse($op->first, $cx); return $expr; } 1; __END__ =head1 NAME B::Deparse - Perl compiler backend to produce perl code =head1 SYNOPSIS B<perl> B<-MO=Deparse>[B<,-d>][B<,-f>I<FILE>][B<,-p>][B<,-q>][B<,-l>] [B<,-s>I<LETTERS>][B<,-x>I<LEVEL>] I<prog.pl> =head1 DESCRIPTION B::Deparse is a backend module for the Perl compiler that generates perl source code, based on the internal compiled structure that perl itself creates after parsing a program. The output of B::Deparse won't be exactly the same as the original source, since perl doesn't keep track of comments or whitespace, and there isn't a one-to-one correspondence between perl's syntactical constructions and their compiled form, but it will often be close. When you use the B<-p> option, the output also includes parentheses even when they are not required by precedence, which can make it easy to see if perl is parsing your expressions the way you intended. While B::Deparse goes to some lengths to try to figure out what your original program was doing, some parts of the language can still trip it up; it still fails even on some parts of Perl's own test suite. If you encounter a failure other than the most common ones described in the BUGS section below, you can help contribute to B::Deparse's ongoing development by submitting a bug report with a small example. =head1 OPTIONS As with all compiler backend options, these must follow directly after the '-MO=Deparse', separated by a comma but not any white space. =over 4 =item B<-d> Output data values (when they appear as constants) using Data::Dumper. Without this option, B::Deparse will use some simple routines of its own for the same purpose. Currently, Data::Dumper is better for some kinds of data (such as complex structures with sharing and self-reference) while the built-in routines are better for others (such as odd floating-point values). =item B<-f>I<FILE> Normally, B::Deparse deparses the main code of a program, and all the subs defined in the same file. To include subs defined in other files, pass the B<-f> option with the filename. You can pass the B<-f> option several times, to include more than one secondary file. (Most of the time you don't want to use it at all.) You can also use this option to include subs which are defined in the scope of a B<#line> directive with two parameters. =item B<-l> Add '#line' declarations to the output based on the line and file locations of the original code. =item B<-p> Print extra parentheses. Without this option, B::Deparse includes parentheses in its output only when they are needed, based on the structure of your program. With B<-p>, it uses parentheses (almost) whenever they would be legal. This can be useful if you are used to LISP, or if you want to see how perl parses your input. If you say if ($var & 0x7f == 65) {print "Gimme an A!"} print ($which ? $a : $b), "\n"; $name = $ENV{USER} or "Bob"; C<B::Deparse,-p> will print if (($var & 0)) { print('Gimme an A!') }; (print(($which ? $a : $b)), '???'); (($name = $ENV{'USER'}) or '???') which probably isn't what you intended (the C<'???'> is a sign that perl optimized away a constant value). =item B<-P> Disable prototype checking. With this option, all function calls are deparsed as if no prototype was defined for them. In other words, perl -MO=Deparse,-P -e 'sub foo (\@) { 1 } foo @x' will print sub foo (\@) { 1; } &foo(\@x); making clear how the parameters are actually passed to C<foo>. =item B<-q> Expand double-quoted strings into the corresponding combinations of concatenation, uc, ucfirst, lc, lcfirst, quotemeta, and join. For instance, print print "Hello, $world, @ladies, \u$gentlemen\E, \u\L$me!"; as print 'Hello, ' . $world . ', ' . join($", @ladies) . ', ' . ucfirst($gentlemen) . ', ' . ucfirst(lc $me . '!'); Note that the expanded form represents the way perl handles such constructions internally -- this option actually turns off the reverse translation that B::Deparse usually does. On the other hand, note that C<$x = "$y"> is not the same as C<$x = $y>: the former makes the value of $y into a string before doing the assignment. =item B<-s>I<LETTERS> Tweak the style of B::Deparse's output. The letters should follow directly after the 's', with no space or punctuation. The following options are available: =over 4 =item B<C> Cuddle C<elsif>, C<else>, and C<continue> blocks. For example, print if (...) { ... } else { ... } instead of if (...) { ... } else { ... } The default is not to cuddle. =item B<i>I<NUMBER> Indent lines by multiples of I<NUMBER> columns. The default is 4 columns. =item B<T> Use tabs for each 8 columns of indent. The default is to use only spaces. For instance, if the style options are B<-si4T>, a line that's indented 3 times will be preceded by one tab and four spaces; if the options were B<-si8T>, the same line would be preceded by three tabs. =item B<v>I<STRING>B<.> Print I<STRING> for the value of a constant that can't be determined because it was optimized away (mnemonic: this happens when a constant is used in B<v>oid context). The end of the string is marked by a period. The string should be a valid perl expression, generally a constant. Note that unless it's a number, it probably needs to be quoted, and on a command line quotes need to be protected from the shell. Some conventional values include 0, 1, 42, '', 'foo', and 'Useless use of constant omitted' (which may need to be B<-sv"'Useless use of constant omitted'."> or something similar depending on your shell). The default is '???'. If you're using B::Deparse on a module or other file that's require'd, you shouldn't use a value that evaluates to false, since the customary true constant at the end of a module will be in void context when the file is compiled as a main program. =back =item B<-x>I<LEVEL> Expand conventional syntax constructions into equivalent ones that expose their internal operation. I<LEVEL> should be a digit, with higher values meaning more expansion. As with B<-q>, this actually involves turning off special cases in B::Deparse's normal operations. If I<LEVEL> is at least 3, C<for> loops will be translated into equivalent while loops with continue blocks; for instance for ($i = 0; $i < 10; ++$i) { print $i; } turns into $i = 0; while ($i < 10) { print $i; } continue { ++$i } Note that in a few cases this translation can't be perfectly carried back into the source code -- if the loop's initializer declares a my variable, for instance, it won't have the correct scope outside of the loop. If I<LEVEL> is at least 5, C<use> declarations will be translated into C<BEGIN> blocks containing calls to C<require> and C<import>; for instance, use strict 'refs'; turns into sub BEGIN { require strict; do { 'strict'->import('refs') }; } If I<LEVEL> is at least 7, C<if> statements will be translated into equivalent expressions using C<&&>, C<?:> and C<do {}>; for instance print 'hi' if $nice; if ($nice) { print 'hi'; } if ($nice) { print 'hi'; } else { print 'bye'; } turns into $nice and print 'hi'; $nice and do { print 'hi' }; $nice ? do { print 'hi' } : do { print 'bye' }; Long sequences of elsifs will turn into nested ternary operators, which B::Deparse doesn't know how to indent nicely. =back =head1 USING B::Deparse AS A MODULE =head2 Synopsis use B::Deparse; $deparse = B::Deparse->new("-p", "-sC"); $body = $deparse->coderef2text(\&func); eval "sub func $body"; # the inverse operation =head2 Description B::Deparse can also be used on a sub-by-sub basis from other perl programs. =head2 new $deparse = B::Deparse->new(OPTIONS) Create an object to store the state of a deparsing operation and any options. The options are the same as those that can be given on the command line (see L</OPTIONS>); options that are separated by commas after B<-MO=Deparse> should be given as separate strings. =head2 ambient_pragmas $deparse->ambient_pragmas(strict => 'all', '$[' => $[); The compilation of a subroutine can be affected by a few compiler directives, B<pragmas>. These are: =over 4 =item * use strict; =item * use warnings; =item * Assigning to the special variable $[ =item * use integer; =item * use bytes; =item * use utf8; =item * use re; =back Ordinarily, if you use B::Deparse on a subroutine which has been compiled in the presence of one or more of these pragmas, the output will include statements to turn on the appropriate directives. So if you then compile the code returned by coderef2text, it will behave the same way as the subroutine which you deparsed. However, you may know that you intend to use the results in a particular context, where some pragmas are already in scope. In this case, you use the B<ambient_pragmas> method to describe the assumptions you wish to make. Not all of the options currently have any useful effect. See L</BUGS> for more details. The parameters it accepts are: =over 4 =item strict Takes a string, possibly containing several values separated by whitespace. The special values "all" and "none" mean what you'd expect. $deparse->ambient_pragmas(strict => 'subs refs'); =item $[ Takes a number, the value of the array base $[. Obsolete: cannot be non-zero. =item bytes =item utf8 =item integer If the value is true, then the appropriate pragma is assumed to be in the ambient scope, otherwise not. =item re Takes a string, possibly containing a whitespace-separated list of values. The values "all" and "none" are special. It's also permissible to pass an array reference here. $deparser->ambient_pragmas(re => 'eval'); =item warnings Takes a string, possibly containing a whitespace-separated list of values. The values "all" and "none" are special, again. It's also permissible to pass an array reference here. $deparser->ambient_pragmas(warnings => [qw[void io]]); If one of the values is the string "FATAL", then all the warnings in that list will be considered fatal, just as with the B<warnings> pragma itself. Should you need to specify that some warnings are fatal, and others are merely enabled, you can pass the B<warnings> parameter twice: $deparser->ambient_pragmas( warnings => 'all', warnings => [FATAL => qw/void io/], ); See L<warnings> for more information about lexical warnings. =item hint_bits =item warning_bits These two parameters are used to specify the ambient pragmas in the format used by the special variables $^H and ${^WARNING_BITS}. They exist principally so that you can write code like: { my ($hint_bits, $warning_bits); BEGIN {($hint_bits, $warning_bits) = ($^H, ${^WARNING_BITS})} $deparser->ambient_pragmas ( hint_bits => $hint_bits, warning_bits => $warning_bits, '$[' => 0 + $[ ); } which specifies that the ambient pragmas are exactly those which are in scope at the point of calling. =item %^H This parameter is used to specify the ambient pragmas which are stored in the special hash %^H. =back =head2 coderef2text $body = $deparse->coderef2text(\&func) $body = $deparse->coderef2text(sub ($$) { ... }) Return source code for the body of a subroutine (a block, optionally preceded by a prototype in parens), given a reference to the sub. Because a subroutine can have no names, or more than one name, this method doesn't return a complete subroutine definition -- if you want to eval the result, you should prepend "sub subname ", or "sub " for an anonymous function constructor. Unless the sub was defined in the main:: package, the code will include a package declaration. =head1 BUGS =over 4 =item * The only pragmas to be completely supported are: C<use warnings>, C<use strict>, C<use bytes>, C<use integer> and C<use feature>. Excepting those listed above, we're currently unable to guarantee that B::Deparse will produce a pragma at the correct point in the program. (Specifically, pragmas at the beginning of a block often appear right before the start of the block instead.) Since the effects of pragmas are often lexically scoped, this can mean that the pragma holds sway over a different portion of the program than in the input file. =item * In fact, the above is a specific instance of a more general problem: we can't guarantee to produce BEGIN blocks or C<use> declarations in exactly the right place. So if you use a module which affects compilation (such as by over-riding keywords, overloading constants or whatever) then the output code might not work as intended. =item * Some constants don't print correctly either with or without B<-d>. For instance, neither B::Deparse nor Data::Dumper know how to print dual-valued scalars correctly, as in: use constant E2BIG => ($!=7); $y = E2BIG; print $y, 0+$y; use constant H => { "#" => 1 }; H->{"#"}; =item * An input file that uses source filtering probably won't be deparsed into runnable code, because it will still include the B<use> declaration for the source filtering module, even though the code that is produced is already ordinary Perl which shouldn't be filtered again. =item * Optimized-away statements are rendered as '???'. This includes statements that have a compile-time side-effect, such as the obscure my $x if 0; which is not, consequently, deparsed correctly. foreach my $i (@_) { 0 } => foreach my $i (@_) { '???' } =item * Lexical (my) variables declared in scopes external to a subroutine appear in coderef2text output text as package variables. This is a tricky problem, as perl has no native facility for referring to a lexical variable defined within a different scope, although L<PadWalker> is a good start. See also L<Data::Dump::Streamer>, which combines B::Deparse and L<PadWalker> to serialize closures properly. =item * There are probably many more bugs on non-ASCII platforms (EBCDIC). =back =head1 AUTHOR Stephen McCamant <smcc@CSUA.Berkeley.EDU>, based on an earlier version by Malcolm Beattie <mbeattie@sable.ox.ac.uk>, with contributions from Gisle Aas, James Duncan, Albert Dvornik, Robin Houston, Dave Mitchell, Hugo van der Sanden, Gurusamy Sarathy, Nick Ing-Simmons, and Rafael Garcia-Suarez. =cut PK ! �{��@! @! 5.34.0/open.pmnu �[��� package open; use warnings; our $VERSION = '1.12'; require 5.008001; # for PerlIO::get_layers() my $locale_encoding; sub _get_encname { return ($1, Encode::resolve_alias($1)) if $_[0] =~ /^:?encoding\((.+)\)$/; return; } sub croak { require Carp; goto &Carp::croak; } sub _drop_oldenc { # If by the time we arrive here there already is at the top of the # perlio layer stack an encoding identical to what we would like # to push via this open pragma, we will pop away the old encoding # (+utf8) so that we can push ourselves in place (this is easier # than ignoring pushing ourselves because of the way how ${^OPEN} # works). So we are looking for something like # # stdio encoding(xxx) utf8 # # in the existing layer stack, and in the new stack chunk for # # :encoding(xxx) # # If we find a match, we pop the old stack (once, since # the utf8 is just a flag on the encoding layer) my ($h, @new) = @_; return unless @new >= 1 && $new[-1] =~ /^:encoding\(.+\)$/; my @old = PerlIO::get_layers($h); return unless @old >= 3 && $old[-1] eq 'utf8' && $old[-2] =~ /^encoding\(.+\)$/; require Encode; my ($loname, $lcname) = _get_encname($old[-2]); unless (defined $lcname) { # Should we trust get_layers()? croak("open: Unknown encoding '$loname'"); } my ($voname, $vcname) = _get_encname($new[-1]); unless (defined $vcname) { croak("open: Unknown encoding '$voname'"); } if ($lcname eq $vcname) { binmode($h, ":pop"); # utf8 is part of the encoding layer } } sub import { my ($class,@args) = @_; croak("open: needs explicit list of PerlIO layers") unless @args; my $std; my ($in,$out) = split(/\0/,(${^OPEN} || "\0"), -1); while (@args) { my $type = shift(@args); my $dscp; if ($type =~ /^:?(utf8|locale|encoding\(.+\))$/) { $type = 'IO'; $dscp = ":$1"; } elsif ($type eq ':std') { $std = 1; next; } else { $dscp = shift(@args) || ''; } my @val; foreach my $layer (split(/\s+/,$dscp)) { $layer =~ s/^://; if ($layer eq 'locale') { require Encode; require encoding; $locale_encoding = encoding::_get_locale_encoding() unless defined $locale_encoding; (warnings::warnif("layer", "Cannot figure out an encoding to use"), last) unless defined $locale_encoding; $layer = "encoding($locale_encoding)"; $std = 1; } else { my $target = $layer; # the layer name itself $target =~ s/^(\w+)\(.+\)$/$1/; # strip parameters unless(PerlIO::Layer::->find($target,1)) { warnings::warnif("layer", "Unknown PerlIO layer '$target'"); } } push(@val,":$layer"); if ($layer =~ /^(crlf|raw)$/) { $^H{"open_$type"} = $layer; } } if ($type eq 'IN') { _drop_oldenc(*STDIN, @val) if $std; $in = join(' ', @val); } elsif ($type eq 'OUT') { if ($std) { _drop_oldenc(*STDOUT, @val); _drop_oldenc(*STDERR, @val); } $out = join(' ', @val); } elsif ($type eq 'IO') { if ($std) { _drop_oldenc(*STDIN, @val); _drop_oldenc(*STDOUT, @val); _drop_oldenc(*STDERR, @val); } $in = $out = join(' ', @val); } else { croak "Unknown PerlIO layer class '$type' (need IN, OUT or IO)"; } } ${^OPEN} = join("\0", $in, $out); if ($std) { if ($in) { if ($in =~ /:utf8\b/) { binmode(STDIN, ":utf8"); } elsif ($in =~ /(\w+\(.+\))/) { binmode(STDIN, ":$1"); } } if ($out) { if ($out =~ /:utf8\b/) { binmode(STDOUT, ":utf8"); binmode(STDERR, ":utf8"); } elsif ($out =~ /(\w+\(.+\))/) { binmode(STDOUT, ":$1"); binmode(STDERR, ":$1"); } } } } 1; __END__ =head1 NAME open - perl pragma to set default PerlIO layers for input and output =head1 SYNOPSIS use open IN => ':crlf', OUT => ':raw'; open my $in, '<', 'foo.txt' or die "open failed: $!"; my $line = <$in>; # CRLF translated close $in; open my $out, '>', 'bar.txt' or die "open failed: $!"; print $out $line; # no translation of bytes close $out; use open OUT => ':encoding(UTF-8)'; use open IN => ':encoding(iso-8859-7)'; use open IO => ':locale'; # IO implicit only for :utf8, :encoding, :locale use open ':encoding(UTF-8)'; use open ':encoding(iso-8859-7)'; use open ':locale'; # with :std, also affect global standard handles use open ':std', ':encoding(UTF-8)'; use open ':std', OUT => ':encoding(cp1252)'; use open ':std', IO => ':raw :encoding(UTF-16LE)'; =head1 DESCRIPTION Full-fledged support for I/O layers is now implemented provided Perl is configured to use PerlIO as its IO system (which has been the default since 5.8, and the only supported configuration since 5.16). The C<open> pragma serves as one of the interfaces to declare default "layers" (previously known as "disciplines") for all I/O. Any open(), readpipe() (aka qx//) and similar operators found within the lexical scope of this pragma will use the declared defaults via the L<C<${^OPEN}>|perlvar/${^OPEN}> variable. Layers are specified with a leading colon by convention. You can specify a stack of multiple layers as a space-separated string. See L<PerlIO> for more information on the available layers. With the C<IN> subpragma you can declare the default layers of input streams, and with the C<OUT> subpragma you can declare the default layers of output streams. With the C<IO> subpragma (may be omitted for C<:utf8>, C<:locale>, or C<:encoding>) you can control both input and output streams simultaneously. When open() is given an explicit list of layers (with the three-arg syntax), they override the list declared using this pragma. open() can also be given a single colon (:) for a layer name, to override this pragma and use the default as detailed in L<PerlIO/Defaults and how to override them>. To translate from and to an arbitrary text encoding, use the C<:encoding> layer. The matching of encoding names in C<:encoding> is loose: case does not matter, and many encodings have several aliases. See L<Encode::Supported> for details and the list of supported locales. If you want to set your encoding layers based on your locale environment variables, you can use the C<:locale> pseudo-layer. For example: $ENV{LANG} = 'ru_RU.KOI8-R'; # the :locale will probe the locale environment variables like LANG use open OUT => ':locale'; open(my $out, '>', 'koi8') or die "open failed: $!"; print $out chr(0x430); # CYRILLIC SMALL LETTER A = KOI8-R 0xc1 close $out; open(my $in, '<', 'koi8') or die "open failed: $!"; printf "%#x\n", ord(<$in>); # this should print 0xc1 close $in; The logic of C<:locale> is described in full in L<encoding/The C<:locale> sub-pragma>, but in short it is first trying nl_langinfo(CODESET) and then guessing from the LC_ALL and LANG locale environment variables. C<:locale> also implicitly turns on C<:std>. C<:std> is not a layer but an additional subpragma. When specified in the import list, it activates an additional functionality of pushing the layers selected for input/output handles to the standard filehandles (STDIN, STDOUT, STDERR). If the new layers and existing layer stack both end with an C<:encoding> layer, the existing C<:encoding> layer will also be removed. For example, if both input and out are chosen to be C<:encoding(UTF-8)>, a C<:std> will mean that STDIN, STDOUT, and STDERR will also have C<:encoding(UTF-8)> set. On the other hand, if only output is chosen to be in C<:encoding(koi8r)>, a C<:std> will cause only the STDOUT and STDERR to be in C<koi8r>. The effect of C<:std> is not lexical as it modifies the layer stack of the global handles. If you wish to apply only this global effect and not the effect on handles that are opened in that scope, you can isolate the call to this pragma in its own lexical scope. { use open ':std', IO => ':encoding(UTF-8)' } =head1 IMPLEMENTATION DETAILS There is a class method in C<PerlIO::Layer> C<find> which is implemented as XS code. It is called by C<import> to validate the layers: PerlIO::Layer::->find("perlio") The return value (if defined) is a Perl object, of class C<PerlIO::Layer> which is created by the C code in F<perlio.c>. As yet there is nothing useful you can do with the object at the perl level. =head1 SEE ALSO L<perlfunc/"binmode">, L<perlfunc/"open">, L<perlunicode>, L<PerlIO>, L<encoding> =cut PK ! �F�е= �= 5.34.0/AutoLoader.pmnu �[��� package AutoLoader; use strict; use 5.006_001; our($VERSION, $AUTOLOAD); my $is_dosish; my $is_epoc; my $is_vms; my $is_macos; BEGIN { $is_dosish = $^O eq 'dos' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'NetWare'; $is_epoc = $^O eq 'epoc'; $is_vms = $^O eq 'VMS'; $is_macos = $^O eq 'MacOS'; $VERSION = '5.74'; } AUTOLOAD { my $sub = $AUTOLOAD; autoload_sub($sub); goto &$sub; } sub autoload_sub { my $sub = shift; my $filename = AutoLoader::find_filename( $sub ); my $save = $@; local $!; # Do not munge the value. eval { local $SIG{__DIE__}; require $filename }; if ($@) { if (substr($sub,-9) eq '::DESTROY') { no strict 'refs'; *$sub = sub {}; $@ = undef; } elsif ($@ =~ /^Can't locate/) { # The load might just have failed because the filename was too # long for some old SVR3 systems which treat long names as errors. # If we can successfully truncate a long name then it's worth a go. # There is a slight risk that we could pick up the wrong file here # but autosplit should have warned about that when splitting. if ($filename =~ s/(\w{12,})\.al$/substr($1,0,11).".al"/e){ eval { local $SIG{__DIE__}; require $filename }; } } if ($@){ $@ =~ s/ at .*\n//; my $error = $@; require Carp; Carp::croak($error); } } $@ = $save; return 1; } sub find_filename { my $sub = shift; my $filename; # Braces used to preserve $1 et al. { # Try to find the autoloaded file from the package-qualified # name of the sub. e.g., if the sub needed is # Getopt::Long::GetOptions(), then $INC{Getopt/Long.pm} is # something like '/usr/lib/perl5/Getopt/Long.pm', and the # autoload file is '/usr/lib/perl5/auto/Getopt/Long/GetOptions.al'. # # However, if @INC is a relative path, this might not work. If, # for example, @INC = ('lib'), then $INC{Getopt/Long.pm} is # 'lib/Getopt/Long.pm', and we want to require # 'auto/Getopt/Long/GetOptions.al' (without the leading 'lib'). # In this case, we simple prepend the 'auto/' and let the # C<require> take care of the searching for us. my ($pkg,$func) = ($sub =~ /(.*)::([^:]+)$/); $pkg =~ s#::#/#g; if (defined($filename = $INC{"$pkg.pm"})) { if ($is_macos) { $pkg =~ tr#/#:#; $filename = undef unless $filename =~ s#^(.*)$pkg\.pm\z#$1auto:$pkg:$func.al#s; } else { $filename = undef unless $filename =~ s#^(.*)$pkg\.pm\z#$1auto/$pkg/$func.al#s; } # if the file exists, then make sure that it is a # a fully anchored path (i.e either '/usr/lib/auto/foo/bar.al', # or './lib/auto/foo/bar.al'. This avoids C<require> searching # (and failing) to find the 'lib/auto/foo/bar.al' because it # looked for 'lib/lib/auto/foo/bar.al', given @INC = ('lib'). if (defined $filename and -r $filename) { unless ($filename =~ m|^/|s) { if ($is_dosish) { unless ($filename =~ m{^([a-z]:)?[\\/]}is) { if ($^O ne 'NetWare') { $filename = "./$filename"; } else { $filename = "$filename"; } } } elsif ($is_epoc) { unless ($filename =~ m{^([a-z?]:)?[\\/]}is) { $filename = "./$filename"; } } elsif ($is_vms) { # XXX todo by VMSmiths $filename = "./$filename"; } elsif (!$is_macos) { $filename = "./$filename"; } } } else { $filename = undef; } } unless (defined $filename) { # let C<require> do the searching $filename = "auto/$sub.al"; $filename =~ s#::#/#g; } } return $filename; } sub import { my $pkg = shift; my $callpkg = caller; # # Export symbols, but not by accident of inheritance. # if ($pkg eq 'AutoLoader') { if ( @_ and $_[0] =~ /^&?AUTOLOAD$/ ) { no strict 'refs'; *{ $callpkg . '::AUTOLOAD' } = \&AUTOLOAD; } } # # Try to find the autosplit index file. Eg., if the call package # is POSIX, then $INC{POSIX.pm} is something like # '/usr/local/lib/perl5/POSIX.pm', and the autosplit index file is in # '/usr/local/lib/perl5/auto/POSIX/autosplit.ix', so we require that. # # However, if @INC is a relative path, this might not work. If, # for example, @INC = ('lib'), then # $INC{POSIX.pm} is 'lib/POSIX.pm', and we want to require # 'auto/POSIX/autosplit.ix' (without the leading 'lib'). # (my $calldir = $callpkg) =~ s#::#/#g; my $path = $INC{$calldir . '.pm'}; if (defined($path)) { # Try absolute path name, but only eval it if the # transformation from module path to autosplit.ix path # succeeded! my $replaced_okay; if ($is_macos) { (my $malldir = $calldir) =~ tr#/#:#; $replaced_okay = ($path =~ s#^(.*)$malldir\.pm\z#$1auto:$malldir:autosplit.ix#s); } else { $replaced_okay = ($path =~ s#^(.*)$calldir\.pm\z#$1auto/$calldir/autosplit.ix#); } eval { require $path; } if $replaced_okay; # If that failed, try relative path with normal @INC searching. if (!$replaced_okay or $@) { $path ="auto/$calldir/autosplit.ix"; eval { require $path; }; } if ($@) { my $error = $@; require Carp; Carp::carp($error); } } } sub unimport { my $callpkg = caller; no strict 'refs'; for my $exported (qw( AUTOLOAD )) { my $symname = $callpkg . '::' . $exported; undef *{ $symname } if \&{ $symname } == \&{ $exported }; *{ $symname } = \&{ $symname }; } } 1; __END__ =head1 NAME AutoLoader - load subroutines only on demand =head1 SYNOPSIS package Foo; use AutoLoader 'AUTOLOAD'; # import the default AUTOLOAD subroutine package Bar; use AutoLoader; # don't import AUTOLOAD, define our own sub AUTOLOAD { ... $AutoLoader::AUTOLOAD = "..."; goto &AutoLoader::AUTOLOAD; } =head1 DESCRIPTION The B<AutoLoader> module works with the B<AutoSplit> module and the C<__END__> token to defer the loading of some subroutines until they are used rather than loading them all at once. To use B<AutoLoader>, the author of a module has to place the definitions of subroutines to be autoloaded after an C<__END__> token. (See L<perldata>.) The B<AutoSplit> module can then be run manually to extract the definitions into individual files F<auto/funcname.al>. B<AutoLoader> implements an AUTOLOAD subroutine. When an undefined subroutine in is called in a client module of B<AutoLoader>, B<AutoLoader>'s AUTOLOAD subroutine attempts to locate the subroutine in a file with a name related to the location of the file from which the client module was read. As an example, if F<POSIX.pm> is located in F</usr/local/lib/perl5/POSIX.pm>, B<AutoLoader> will look for perl subroutines B<POSIX> in F</usr/local/lib/perl5/auto/POSIX/*.al>, where the C<.al> file has the same name as the subroutine, sans package. If such a file exists, AUTOLOAD will read and evaluate it, thus (presumably) defining the needed subroutine. AUTOLOAD will then C<goto> the newly defined subroutine. Once this process completes for a given function, it is defined, so future calls to the subroutine will bypass the AUTOLOAD mechanism. =head2 Subroutine Stubs In order for object method lookup and/or prototype checking to operate correctly even when methods have not yet been defined it is necessary to "forward declare" each subroutine (as in C<sub NAME;>). See L<perlsub/"SYNOPSIS">. Such forward declaration creates "subroutine stubs", which are place holders with no code. The AutoSplit and B<AutoLoader> modules automate the creation of forward declarations. The AutoSplit module creates an 'index' file containing forward declarations of all the AutoSplit subroutines. When the AutoLoader module is 'use'd it loads these declarations into its callers package. Because of this mechanism it is important that B<AutoLoader> is always C<use>d and not C<require>d. =head2 Using B<AutoLoader>'s AUTOLOAD Subroutine In order to use B<AutoLoader>'s AUTOLOAD subroutine you I<must> explicitly import it: use AutoLoader 'AUTOLOAD'; =head2 Overriding B<AutoLoader>'s AUTOLOAD Subroutine Some modules, mainly extensions, provide their own AUTOLOAD subroutines. They typically need to check for some special cases (such as constants) and then fallback to B<AutoLoader>'s AUTOLOAD for the rest. Such modules should I<not> import B<AutoLoader>'s AUTOLOAD subroutine. Instead, they should define their own AUTOLOAD subroutines along these lines: use AutoLoader; use Carp; sub AUTOLOAD { my $sub = $AUTOLOAD; (my $constname = $sub) =~ s/.*:://; my $val = constant($constname, @_ ? $_[0] : 0); if ($! != 0) { if ($! =~ /Invalid/ || $!{EINVAL}) { $AutoLoader::AUTOLOAD = $sub; goto &AutoLoader::AUTOLOAD; } else { croak "Your vendor has not defined constant $constname"; } } *$sub = sub { $val }; # same as: eval "sub $sub { $val }"; goto &$sub; } If any module's own AUTOLOAD subroutine has no need to fallback to the AutoLoader's AUTOLOAD subroutine (because it doesn't have any AutoSplit subroutines), then that module should not use B<AutoLoader> at all. =head2 Package Lexicals Package lexicals declared with C<my> in the main block of a package using B<AutoLoader> will not be visible to auto-loaded subroutines, due to the fact that the given scope ends at the C<__END__> marker. A module using such variables as package globals will not work properly under the B<AutoLoader>. The C<vars> pragma (see L<perlmod/"vars">) may be used in such situations as an alternative to explicitly qualifying all globals with the package namespace. Variables pre-declared with this pragma will be visible to any autoloaded routines (but will not be invisible outside the package, unfortunately). =head2 Not Using AutoLoader You can stop using AutoLoader by simply no AutoLoader; =head2 B<AutoLoader> vs. B<SelfLoader> The B<AutoLoader> is similar in purpose to B<SelfLoader>: both delay the loading of subroutines. B<SelfLoader> uses the C<__DATA__> marker rather than C<__END__>. While this avoids the use of a hierarchy of disk files and the associated open/close for each routine loaded, B<SelfLoader> suffers a startup speed disadvantage in the one-time parsing of the lines after C<__DATA__>, after which routines are cached. B<SelfLoader> can also handle multiple packages in a file. B<AutoLoader> only reads code as it is requested, and in many cases should be faster, but requires a mechanism like B<AutoSplit> be used to create the individual files. L<ExtUtils::MakeMaker> will invoke B<AutoSplit> automatically if B<AutoLoader> is used in a module source file. =head2 Forcing AutoLoader to Load a Function Sometimes, it can be necessary or useful to make sure that a certain function is fully loaded by AutoLoader. This is the case, for example, when you need to wrap a function to inject debugging code. It is also helpful to force early loading of code before forking to make use of copy-on-write as much as possible. Starting with AutoLoader 5.73, you can call the C<AutoLoader::autoload_sub> function with the fully-qualified name of the function to load from its F<.al> file. The behaviour is exactly the same as if you called the function, triggering the regular C<AUTOLOAD> mechanism, but it does not actually execute the autoloaded function. =head1 CAVEATS AutoLoaders prior to Perl 5.002 had a slightly different interface. Any old modules which use B<AutoLoader> should be changed to the new calling style. Typically this just means changing a require to a use, adding the explicit C<'AUTOLOAD'> import if needed, and removing B<AutoLoader> from C<@ISA>. On systems with restrictions on file name length, the file corresponding to a subroutine may have a shorter name that the routine itself. This can lead to conflicting file names. The I<AutoSplit> package warns of these potential conflicts when used to split a module. AutoLoader may fail to find the autosplit files (or even find the wrong ones) in cases where C<@INC> contains relative paths, B<and> the program does C<chdir>. =head1 SEE ALSO L<SelfLoader> - an autoloader that doesn't use external files. =head1 AUTHOR C<AutoLoader> is maintained by the perl5-porters. Please direct any questions to the canonical mailing list. Anything that is applicable to the CPAN release can be sent to its maintainer, though. Author and Maintainer: The Perl5-Porters <perl5-porters@perl.org> Maintainer of the CPAN release: Steffen Mueller <smueller@cpan.org> =head1 COPYRIGHT AND LICENSE This package has been part of the perl core since the first release of perl5. It has been released separately to CPAN so older installations can benefit from bug fixes. This package has the same copyright and license as the perl core: Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2011, 2012, 2013 by Larry Wall and others All rights reserved. This program is free software; you can redistribute it and/or modify it under the terms of either: a) the GNU General Public License as published by the Free Software Foundation; either version 1, or (at your option) any later version, or b) the "Artistic License" which comes with this Kit. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See either the GNU General Public License or the Artistic License for more details. You should have received a copy of the Artistic License with this Kit, in the file named "Artistic". If not, I'll be glad to provide one. You should also have received a copy of the GNU General Public License along with this program in the file named "Copying". If not, write to the Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA or visit their web page on the internet at http://www.gnu.org/copyleft/gpl.html. For those of you that choose to use the GNU General Public License, my interpretation of the GNU General Public License is that no Perl script falls under the terms of the GPL unless you explicitly put said script under the terms of the GPL yourself. Furthermore, any object code linked with perl does not automatically fall under the terms of the GPL, provided such object code only adds definitions of subroutines and variables, and does not otherwise impair the resulting interpreter from executing any standard Perl script. I consider linking in C subroutines in this manner to be the moral equivalent of defining subroutines in the Perl language itself. You may sell such an object file as proprietary provided that you provide or offer to provide the Perl source, as specified by the GNU General Public License. (This is merely an alternate way of specifying input to the program.) You may also sell a binary produced by the dumping of a running Perl script that belongs to you, provided that you provide or offer to provide the Perl source as specified by the GPL. (The fact that a Perl interpreter and your code are in the same binary file is, in this case, a form of mere aggregation.) This is my interpretation of the GPL. If you still have concerns or difficulties understanding my intent, feel free to contact me. Of course, the Artistic License spells all this out for your protection, so you may prefer to use that. =cut PK ! H/�a a 5.34.0/Thread.pmnu �[��� package Thread; use strict; use warnings; no warnings 'redefine'; our $VERSION = '3.05'; $VERSION = eval $VERSION; BEGIN { use Config; if (! $Config{useithreads}) { die("This Perl not built to support threads\n"); } } use threads 'yield'; use threads::shared; require Exporter; our @ISA = qw(Exporter threads); our @EXPORT = qw(cond_wait cond_broadcast cond_signal); our @EXPORT_OK = qw(async yield); sub async (&;@) { return Thread->new(shift); } sub done { return ! shift->is_running(); } sub eval { die("'eval' not implemented with 'ithreads'\n"); }; sub flags { die("'flags' not implemented with 'ithreads'\n"); }; 1; __END__ =head1 NAME Thread - Manipulate threads in Perl (for old code only) =head1 DEPRECATED The C<Thread> module served as the frontend to the old-style thread model, called I<5005threads>, that was introduced in release 5.005. That model was deprecated, and has been removed in version 5.10. For old code and interim backwards compatibility, the C<Thread> module has been reworked to function as a frontend for the new interpreter threads (I<ithreads>) model. However, some previous functionality is not available. Further, the data sharing models between the two thread models are completely different, and anything to do with data sharing has to be thought differently. With I<ithreads>, you must explicitly C<share()> variables between the threads. You are strongly encouraged to migrate any existing threaded code to the new model (i.e., use the C<threads> and C<threads::shared> modules) as soon as possible. =head1 HISTORY In Perl 5.005, the thread model was that all data is implicitly shared, and shared access to data has to be explicitly synchronized. This model is called I<5005threads>. In Perl 5.6, a new model was introduced in which all is was thread local and shared access to data has to be explicitly declared. This model is called I<ithreads>, for "interpreter threads". In Perl 5.6, the I<ithreads> model was not available as a public API; only as an internal API that was available for extension writers, and to implement fork() emulation on Win32 platforms. In Perl 5.8, the I<ithreads> model became available through the C<threads> module, and the I<5005threads> model was deprecated. In Perl 5.10, the I<5005threads> model was removed from the Perl interpreter. =head1 SYNOPSIS use Thread qw(:DEFAULT async yield); my $t = Thread->new(\&start_sub, @start_args); $result = $t->join; $t->detach; if ($t->done) { $t->join; } if($t->equal($another_thread)) { # ... } yield(); my $tid = Thread->self->tid; lock($scalar); lock(@array); lock(%hash); my @list = Thread->list; =head1 DESCRIPTION The C<Thread> module provides multithreading support for Perl. =head1 FUNCTIONS =over 8 =item $thread = Thread->new(\&start_sub) =item $thread = Thread->new(\&start_sub, LIST) C<new> starts a new thread of execution in the referenced subroutine. The optional list is passed as parameters to the subroutine. Execution continues in both the subroutine and the code after the C<new> call. C<< Thread->new >> returns a thread object representing the newly created thread. =item lock VARIABLE C<lock> places a lock on a variable until the lock goes out of scope. If the variable is locked by another thread, the C<lock> call will block until it's available. C<lock> is recursive, so multiple calls to C<lock> are safe--the variable will remain locked until the outermost lock on the variable goes out of scope. Locks on variables only affect C<lock> calls--they do I<not> affect normal access to a variable. (Locks on subs are different, and covered in a bit.) If you really, I<really> want locks to block access, then go ahead and tie them to something and manage this yourself. This is done on purpose. While managing access to variables is a good thing, Perl doesn't force you out of its living room... If a container object, such as a hash or array, is locked, all the elements of that container are not locked. For example, if a thread does a C<lock @a>, any other thread doing a C<lock($a[12])> won't block. Finally, C<lock> will traverse up references exactly I<one> level. C<lock(\$a)> is equivalent to C<lock($a)>, while C<lock(\\$a)> is not. =item async BLOCK; C<async> creates a thread to execute the block immediately following it. This block is treated as an anonymous sub, and so must have a semi-colon after the closing brace. Like C<< Thread->new >>, C<async> returns a thread object. =item Thread->self The C<Thread-E<gt>self> function returns a thread object that represents the thread making the C<Thread-E<gt>self> call. =item Thread->list Returns a list of all non-joined, non-detached Thread objects. =item cond_wait VARIABLE The C<cond_wait> function takes a B<locked> variable as a parameter, unlocks the variable, and blocks until another thread does a C<cond_signal> or C<cond_broadcast> for that same locked variable. The variable that C<cond_wait> blocked on is relocked after the C<cond_wait> is satisfied. If there are multiple threads C<cond_wait>ing on the same variable, all but one will reblock waiting to re-acquire the lock on the variable. (So if you're only using C<cond_wait> for synchronization, give up the lock as soon as possible.) =item cond_signal VARIABLE The C<cond_signal> function takes a locked variable as a parameter and unblocks one thread that's C<cond_wait>ing on that variable. If more than one thread is blocked in a C<cond_wait> on that variable, only one (and which one is indeterminate) will be unblocked. If there are no threads blocked in a C<cond_wait> on the variable, the signal is discarded. =item cond_broadcast VARIABLE The C<cond_broadcast> function works similarly to C<cond_signal>. C<cond_broadcast>, though, will unblock B<all> the threads that are blocked in a C<cond_wait> on the locked variable, rather than only one. =item yield The C<yield> function allows another thread to take control of the CPU. The exact results are implementation-dependent. =back =head1 METHODS =over 8 =item join C<join> waits for a thread to end and returns any values the thread exited with. C<join> will block until the thread has ended, though it won't block if the thread has already terminated. If the thread being C<join>ed C<die>d, the error it died with will be returned at this time. If you don't want the thread performing the C<join> to die as well, you should either wrap the C<join> in an C<eval> or use the C<eval> thread method instead of C<join>. =item detach C<detach> tells a thread that it is never going to be joined i.e. that all traces of its existence can be removed once it stops running. Errors in detached threads will not be visible anywhere - if you want to catch them, you should use $SIG{__DIE__} or something like that. =item equal C<equal> tests whether two thread objects represent the same thread and returns true if they do. =item tid The C<tid> method returns the tid of a thread. The tid is a monotonically increasing integer assigned when a thread is created. The main thread of a program will have a tid of zero, while subsequent threads will have tids assigned starting with one. =item done The C<done> method returns true if the thread you're checking has finished, and false otherwise. =back =head1 DEFUNCT The following were implemented with I<5005threads>, but are no longer available with I<ithreads>. =over 8 =item lock(\&sub) With 5005threads, you could also C<lock> a sub such that any calls to that sub from another thread would block until the lock was released. Also, subroutines could be declared with the C<:locked> attribute which would serialize access to the subroutine, but allowed different threads non-simultaneous access. =item eval The C<eval> method wrapped an C<eval> around a C<join>, and so waited for a thread to exit, passing along any values the thread might have returned and placing any errors into C<$@>. =item flags The C<flags> method returned the flags for the thread - an integer value corresponding to the internal flags for the thread. =back =head1 SEE ALSO L<threads>, L<threads::shared>, L<Thread::Queue>, L<Thread::Semaphore> =cut PK ! �!<�% % 5.34.0/fields.pmnu �[��� use 5.008; package fields; require 5.005; use strict; no strict 'refs'; unless( eval q{require warnings::register; warnings::register->import; 1} ) { *warnings::warnif = sub { require Carp; Carp::carp(@_); } } our %attr; our $VERSION = '2.24'; $VERSION =~ tr/_//d; # constant.pm is slow sub PUBLIC () { 2**0 } sub PRIVATE () { 2**1 } sub INHERITED () { 2**2 } sub PROTECTED () { 2**3 } # The %attr hash holds the attributes of the currently assigned fields # per class. The hash is indexed by class names and the hash value is # an array reference. The first element in the array is the lowest field # number not belonging to a base class. The remaining elements' indices # are the field numbers. The values are integer bit masks, or undef # in the case of base class private fields (which occupy a slot but are # otherwise irrelevant to the class). sub import { my $class = shift; return unless @_; my $package = caller(0); # avoid possible typo warnings %{"$package\::FIELDS"} = () unless %{"$package\::FIELDS"}; my $fields = \%{"$package\::FIELDS"}; my $fattr = ($attr{$package} ||= [1]); my $next = @$fattr; # Quiet pseudo-hash deprecation warning for uses of fields::new. bless \%{"$package\::FIELDS"}, 'pseudohash'; if ($next > $fattr->[0] and ($fields->{$_[0]} || 0) >= $fattr->[0]) { # There are already fields not belonging to base classes. # Looks like a possible module reload... $next = $fattr->[0]; } foreach my $f (@_) { my $fno = $fields->{$f}; # Allow the module to be reloaded so long as field positions # have not changed. if ($fno and $fno != $next) { require Carp; if ($fno < $fattr->[0]) { if ($] < 5.006001) { warn("Hides field '$f' in base class") if $^W; } else { warnings::warnif("Hides field '$f' in base class") ; } } else { Carp::croak("Field name '$f' already in use"); } } $fields->{$f} = $next; $fattr->[$next] = ($f =~ /^_/) ? PRIVATE : PUBLIC; $next += 1; } if (@$fattr > $next) { # Well, we gave them the benefit of the doubt by guessing the # module was reloaded, but they appear to be declaring fields # in more than one place. We can't be sure (without some extra # bookkeeping) that the rest of the fields will be declared or # have the same positions, so punt. require Carp; Carp::croak ("Reloaded module must declare all fields at once"); } } sub inherit { require base; goto &base::inherit_fields; } sub _dump # sometimes useful for debugging { for my $pkg (sort keys %attr) { print "\n$pkg"; if (@{"$pkg\::ISA"}) { print " (", join(", ", @{"$pkg\::ISA"}), ")"; } print "\n"; my $fields = \%{"$pkg\::FIELDS"}; for my $f (sort {$fields->{$a} <=> $fields->{$b}} keys %$fields) { my $no = $fields->{$f}; print " $no: $f"; my $fattr = $attr{$pkg}[$no]; if (defined $fattr) { my @a; push(@a, "public") if $fattr & PUBLIC; push(@a, "private") if $fattr & PRIVATE; push(@a, "inherited") if $fattr & INHERITED; print "\t(", join(", ", @a), ")"; } print "\n"; } } } if ($] < 5.009) { *new = sub { my $class = shift; $class = ref $class if ref $class; return bless [\%{$class . "::FIELDS"}], $class; } } else { *new = sub { my $class = shift; $class = ref $class if ref $class; require Hash::Util; my $self = bless {}, $class; # The lock_keys() prototype won't work since we require Hash::Util :( &Hash::Util::lock_keys(\%$self, _accessible_keys($class)); return $self; } } sub _accessible_keys { my ($class) = @_; return ( keys %{$class.'::FIELDS'}, map(_accessible_keys($_), @{$class.'::ISA'}), ); } sub phash { die "Pseudo-hashes have been removed from Perl" if $] >= 5.009; my $h; my $v; if (@_) { if (ref $_[0] eq 'ARRAY') { my $a = shift; @$h{@$a} = 1 .. @$a; if (@_) { $v = shift; unless (! @_ and ref $v eq 'ARRAY') { require Carp; Carp::croak ("Expected at most two array refs\n"); } } } else { if (@_ % 2) { require Carp; Carp::croak ("Odd number of elements initializing pseudo-hash\n"); } my $i = 0; @$h{grep ++$i % 2, @_} = 1 .. @_ / 2; $i = 0; $v = [grep $i++ % 2, @_]; } } else { $h = {}; $v = []; } [ $h, @$v ]; } 1; __END__ =head1 NAME fields - compile-time class fields =head1 SYNOPSIS { package Foo; use fields qw(foo bar _Foo_private); sub new { my Foo $self = shift; unless (ref $self) { $self = fields::new($self); $self->{_Foo_private} = "this is Foo's secret"; } $self->{foo} = 10; $self->{bar} = 20; return $self; } } my $var = Foo->new; $var->{foo} = 42; # this will generate a run-time error $var->{zap} = 42; # this will generate a compile-time error my Foo $foo = Foo->new; $foo->{zap} = 24; # subclassing { package Bar; use base 'Foo'; use fields qw(baz _Bar_private); # not shared with Foo sub new { my $class = shift; my $self = fields::new($class); $self->SUPER::new(); # init base fields $self->{baz} = 10; # init own fields $self->{_Bar_private} = "this is Bar's secret"; return $self; } } =head1 DESCRIPTION The C<fields> pragma enables compile-time and run-time verified class fields. NOTE: The current implementation keeps the declared fields in the %FIELDS hash of the calling package, but this may change in future versions. Do B<not> update the %FIELDS hash directly, because it must be created at compile-time for it to be fully useful, as is done by this pragma. If a typed lexical variable (C<my Class $var>) holding a reference is used to access a hash element and a package with the same name as the type has declared class fields using this pragma, then the hash key is verified at compile time. If the variables are not typed, access is only checked at run time. The related C<base> pragma will combine fields from base classes and any fields declared using the C<fields> pragma. This enables field inheritance to work properly. Inherited fields can be overridden but will generate a warning if warnings are enabled. B<Only valid for Perl 5.8.x and earlier:> Field names that start with an underscore character are made private to the class and are not visible to subclasses. Also, B<in Perl 5.8.x and earlier>, this pragma uses pseudo-hashes, the effect being that you can have objects with named fields which are as compact and as fast arrays to access, as long as the objects are accessed through properly typed variables. The following functions are supported: =over 4 =item new fields::new() creates and blesses a hash comprised of the fields declared using the C<fields> pragma into the specified class. It is the recommended way to construct a fields-based object. This makes it possible to write a constructor like this: package Critter::Sounds; use fields qw(cat dog bird); sub new { my $self = shift; $self = fields::new($self) unless ref $self; $self->{cat} = 'meow'; # scalar element @$self{'dog','bird'} = ('bark','tweet'); # slice return $self; } =item phash B<This function only works in Perl 5.8.x and earlier.> Pseudo-hashes were removed from Perl as of 5.10. Consider using restricted hashes or fields::new() instead (which itself uses restricted hashes under 5.10+). See L<Hash::Util>. Using fields::phash() under 5.10 or higher will cause an error. fields::phash() can be used to create and initialize a plain (unblessed) pseudo-hash. This function should always be used instead of creating pseudo-hashes directly. If the first argument is a reference to an array, the pseudo-hash will be created with keys from that array. If a second argument is supplied, it must also be a reference to an array whose elements will be used as the values. If the second array contains less elements than the first, the trailing elements of the pseudo-hash will not be initialized. This makes it particularly useful for creating a pseudo-hash from subroutine arguments: sub dogtag { my $tag = fields::phash([qw(name rank ser_num)], [@_]); } fields::phash() also accepts a list of key-value pairs that will be used to construct the pseudo hash. Examples: my $tag = fields::phash(name => "Joe", rank => "captain", ser_num => 42); my $pseudohash = fields::phash(%args); =back =head1 SEE ALSO L<base>, L<Hash::Util> =cut PK ! :8 �� � 5.34.0/English.pmnu �[��� package English; our $VERSION = '1.11'; require Exporter; @ISA = qw(Exporter); =head1 NAME English - use nice English (or awk) names for ugly punctuation variables =head1 SYNOPSIS use English; use English qw( -no_match_vars ) ; # Avoids regex performance # penalty in perl 5.18 and # earlier ... if ($ERRNO =~ /denied/) { ... } =head1 DESCRIPTION This module provides aliases for the built-in variables whose names no one seems to like to read. Variables with side-effects which get triggered just by accessing them (like $0) will still be affected. For those variables that have an B<awk> version, both long and short English alternatives are provided. For example, the C<$/> variable can be referred to either $RS or $INPUT_RECORD_SEPARATOR if you are using the English module. See L<perlvar> for a complete list of these. =head1 PERFORMANCE NOTE: This was fixed in perl 5.20. Mentioning these three variables no longer makes a speed difference. This section still applies if your code is to run on perl 5.18 or earlier. This module can provoke sizeable inefficiencies for regular expressions, due to unfortunate implementation details. If performance matters in your application and you don't need $PREMATCH, $MATCH, or $POSTMATCH, try doing use English qw( -no_match_vars ) ; . B<It is especially important to do this in modules to avoid penalizing all applications which use them.> =cut no warnings; my $globbed_match ; # Grandfather $NAME import sub import { my $this = shift; my @list = grep { ! /^-no_match_vars$/ } @_ ; local $Exporter::ExportLevel = 1; if ( @_ == @list ) { *EXPORT = \@COMPLETE_EXPORT ; $globbed_match ||= ( eval q{ *MATCH = *& ; *PREMATCH = *` ; *POSTMATCH = *' ; 1 ; } || do { require Carp ; Carp::croak("Can't create English for match leftovers: $@") ; } ) ; } else { *EXPORT = \@MINIMAL_EXPORT ; } Exporter::import($this,grep {s/^\$/*/} @list); } @MINIMAL_EXPORT = qw( *ARG *LAST_PAREN_MATCH *INPUT_LINE_NUMBER *NR *INPUT_RECORD_SEPARATOR *RS *OUTPUT_AUTOFLUSH *OUTPUT_FIELD_SEPARATOR *OFS *OUTPUT_RECORD_SEPARATOR *ORS *LIST_SEPARATOR *SUBSCRIPT_SEPARATOR *SUBSEP *FORMAT_PAGE_NUMBER *FORMAT_LINES_PER_PAGE *FORMAT_LINES_LEFT *FORMAT_NAME *FORMAT_TOP_NAME *FORMAT_LINE_BREAK_CHARACTERS *FORMAT_FORMFEED *CHILD_ERROR *OS_ERROR *ERRNO *EXTENDED_OS_ERROR *EVAL_ERROR *PROCESS_ID *PID *REAL_USER_ID *UID *EFFECTIVE_USER_ID *EUID *REAL_GROUP_ID *GID *EFFECTIVE_GROUP_ID *EGID *PROGRAM_NAME *PERL_VERSION *OLD_PERL_VERSION *ACCUMULATOR *COMPILING *DEBUGGING *SYSTEM_FD_MAX *INPLACE_EDIT *PERLDB *BASETIME *WARNING *EXECUTABLE_NAME *OSNAME *LAST_REGEXP_CODE_RESULT *EXCEPTIONS_BEING_CAUGHT *LAST_SUBMATCH_RESULT @LAST_MATCH_START @LAST_MATCH_END ); @MATCH_EXPORT = qw( *MATCH *PREMATCH *POSTMATCH ); @COMPLETE_EXPORT = ( @MINIMAL_EXPORT, @MATCH_EXPORT ) ; # The ground of all being. *ARG = *_ ; # Matching. *LAST_PAREN_MATCH = *+ ; *LAST_SUBMATCH_RESULT = *^N ; *LAST_MATCH_START = *-{ARRAY} ; *LAST_MATCH_END = *+{ARRAY} ; # Input. *INPUT_LINE_NUMBER = *. ; *NR = *. ; *INPUT_RECORD_SEPARATOR = */ ; *RS = */ ; # Output. *OUTPUT_AUTOFLUSH = *| ; *OUTPUT_FIELD_SEPARATOR = *, ; *OFS = *, ; *OUTPUT_RECORD_SEPARATOR = *\ ; *ORS = *\ ; # Interpolation "constants". *LIST_SEPARATOR = *" ; *SUBSCRIPT_SEPARATOR = *; ; *SUBSEP = *; ; # Formats *FORMAT_PAGE_NUMBER = *% ; *FORMAT_LINES_PER_PAGE = *= ; *FORMAT_LINES_LEFT = *-{SCALAR} ; *FORMAT_NAME = *~ ; *FORMAT_TOP_NAME = *^ ; *FORMAT_LINE_BREAK_CHARACTERS = *: ; *FORMAT_FORMFEED = *^L ; # Error status. *CHILD_ERROR = *? ; *OS_ERROR = *! ; *ERRNO = *! ; *OS_ERROR = *! ; *ERRNO = *! ; *EXTENDED_OS_ERROR = *^E ; *EVAL_ERROR = *@ ; # Process info. *PROCESS_ID = *$ ; *PID = *$ ; *REAL_USER_ID = *< ; *UID = *< ; *EFFECTIVE_USER_ID = *> ; *EUID = *> ; *REAL_GROUP_ID = *( ; *GID = *( ; *EFFECTIVE_GROUP_ID = *) ; *EGID = *) ; *PROGRAM_NAME = *0 ; # Internals. *PERL_VERSION = *^V ; *OLD_PERL_VERSION = *] ; *ACCUMULATOR = *^A ; *COMPILING = *^C ; *DEBUGGING = *^D ; *SYSTEM_FD_MAX = *^F ; *INPLACE_EDIT = *^I ; *PERLDB = *^P ; *LAST_REGEXP_CODE_RESULT = *^R ; *EXCEPTIONS_BEING_CAUGHT = *^S ; *BASETIME = *^T ; *WARNING = *^W ; *EXECUTABLE_NAME = *^X ; *OSNAME = *^O ; # Deprecated. # *ARRAY_BASE = *[ ; # *OFMT = *# ; 1; PK ! d.��I �I 5.34.0/DB.pmnu �[��� # # Documentation is at the __END__ # package DB; # "private" globals my ($running, $ready, $deep, $usrctxt, $evalarg, @stack, @saved, @skippkg, @clients); my $preeval = {}; my $posteval = {}; my $ineval = {}; #### # # Globals - must be defined at startup so that clients can refer to # them right after a C<require DB;> # #### BEGIN { # these are hardcoded in perl source (some are magical) $DB::sub = ''; # name of current subroutine %DB::sub = (); # "filename:fromline-toline" for every known sub $DB::single = 0; # single-step flag (set it to 1 to enable stops in BEGIN/use) $DB::signal = 0; # signal flag (will cause a stop at the next line) $DB::trace = 0; # are we tracing through subroutine calls? @DB::args = (); # arguments of current subroutine or @ARGV array @DB::dbline = (); # list of lines in currently loaded file %DB::dbline = (); # actions in current file (keyed by line number) @DB::ret = (); # return value of last sub executed in list context $DB::ret = ''; # return value of last sub executed in scalar context # other "public" globals $DB::package = ''; # current package space $DB::filename = ''; # current filename $DB::subname = ''; # currently executing sub (fully qualified name) $DB::lineno = ''; # current line number $DB::VERSION = $DB::VERSION = '1.08'; # initialize private globals to avoid warnings $running = 1; # are we running, or are we stopped? @stack = (0); @clients = (); $deep = 1000; $ready = 0; @saved = (); @skippkg = (); $usrctxt = ''; $evalarg = ''; } #### # entry point for all subroutine calls # sub sub { push(@stack, $DB::single); $DB::single &= 1; $DB::single |= 4 if $#stack == $deep; if ($DB::sub eq 'DESTROY' or substr($DB::sub, -9) eq '::DESTROY' or not defined wantarray) { &$DB::sub; $DB::single |= pop(@stack); $DB::ret = undef; } elsif (wantarray) { @DB::ret = &$DB::sub; $DB::single |= pop(@stack); @DB::ret; } else { $DB::ret = &$DB::sub; $DB::single |= pop(@stack); $DB::ret; } } #### # this is called by perl for every statement # sub DB { return unless $ready; &save; ($DB::package, $DB::filename, $DB::lineno) = caller; return if @skippkg and grep { $_ eq $DB::package } @skippkg; $usrctxt = "package $DB::package;"; # this won't let them modify, alas local(*DB::dbline) = "::_<$DB::filename"; my ($stop, $action); if (($stop,$action) = split(/\0/,$DB::dbline{$DB::lineno})) { if ($stop eq '1') { $DB::signal |= 1; } else { $stop = 0 unless $stop; # avoid un_init warning $evalarg = "\$DB::signal |= do { $stop; }"; &eval; $DB::dbline{$DB::lineno} =~ s/;9($|\0)/$1/; # clear any temp breakpt } } if ($DB::single || $DB::trace || $DB::signal) { $DB::subname = ($DB::sub =~ /\'|::/) ? $DB::sub : "${DB::package}::$DB::sub"; #'; DB->loadfile($DB::filename, $DB::lineno); } $evalarg = $action, &eval if $action; if ($DB::single || $DB::signal) { _outputall($#stack . " levels deep in subroutine calls.\n") if $DB::single & 4; $DB::single = 0; $DB::signal = 0; $running = 0; &eval if ($evalarg = DB->prestop); my $c; for $c (@clients) { # perform any client-specific prestop actions &eval if ($evalarg = $c->cprestop); # Now sit in an event loop until something sets $running do { $c->idle; # call client event loop; must not block if ($running == 2) { # client wants something eval-ed &eval if ($evalarg = $c->evalcode); $running = 0; } } until $running; # perform any client-specific poststop actions &eval if ($evalarg = $c->cpoststop); } &eval if ($evalarg = DB->poststop); } ($@, $!, $,, $/, $\, $^W) = @saved; (); } #### # this takes its argument via $evalarg to preserve current @_ # sub eval { ($@, $!, $,, $/, $\, $^W) = @saved; eval "$usrctxt $evalarg; &DB::save"; _outputall($@) if $@; } ############################################################################### # no compile-time subroutine call allowed before this point # ############################################################################### use strict; # this can run only after DB() and sub() are defined sub save { @saved = ($@, $!, $,, $/, $\, $^W); $, = ""; $/ = "\n"; $\ = ""; $^W = 0; } sub catch { for (@clients) { $_->awaken; } $DB::signal = 1; $ready = 1; } #### # # Client callable (read inheritable) methods defined after this point # #### sub register { my $s = shift; $s = _clientname($s) if ref($s); push @clients, $s; } sub done { my $s = shift; $s = _clientname($s) if ref($s); @clients = grep {$_ ne $s} @clients; $s->cleanup; # $running = 3 unless @clients; exit(0) unless @clients; } sub _clientname { my $name = shift; "$name" =~ /^(.+)=[A-Z]+\(.+\)$/; return $1; } sub next { my $s = shift; $DB::single = 2; $running = 1; } sub step { my $s = shift; $DB::single = 1; $running = 1; } sub cont { my $s = shift; my $i = shift; $s->set_tbreak($i) if $i; for ($i = 0; $i <= $#stack;) { $stack[$i++] &= ~1; } $DB::single = 0; $running = 1; } #### # XXX caller must experimentally determine $i (since it depends # on how many client call frames are between this call and the DB call). # Such is life. # sub ret { my $s = shift; my $i = shift; # how many levels to get to DB sub $i = 0 unless defined $i; $stack[$#stack-$i] |= 1; $DB::single = 0; $running = 1; } #### # XXX caller must experimentally determine $start (since it depends # on how many client call frames are between this call and the DB call). # Such is life. # sub backtrace { my $self = shift; my $start = shift; my($p,$f,$l,$s,$h,$w,$e,$r,$a, @a, @ret,$i); $start = 1 unless $start; for ($i = $start; ($p,$f,$l,$s,$h,$w,$e,$r) = caller($i); $i++) { @a = @DB::args; for (@a) { s/'/\\'/g; s/([^\0]*)/'$1'/ unless /^-?[\d.]+$/; require 'meta_notation.pm'; $_ = _meta_notation($_) if /[[:^print:]]/a; } $w = $w ? '@ = ' : '$ = '; $a = $h ? '(' . join(', ', @a) . ')' : ''; $e =~ s/\n\s*\;\s*\Z// if $e; $e =~ s/[\\\']/\\$1/g if $e; if ($r) { $s = "require '$e'"; } elsif (defined $r) { $s = "eval '$e'"; } elsif ($s eq '(eval)') { $s = "eval {...}"; } $f = "file '$f'" unless $f eq '-e'; push @ret, "$w&$s$a from $f line $l"; last if $DB::signal; } return @ret; } sub _outputall { my $c; for $c (@clients) { $c->output(@_); } } sub trace_toggle { my $s = shift; $DB::trace = !$DB::trace; } #### # without args: returns all defined subroutine names # with subname args: returns a listref [file, start, end] # sub subs { my $s = shift; if (@_) { my(@ret) = (); while (@_) { my $name = shift; push @ret, [$DB::sub{$name} =~ /^(.*)\:(\d+)-(\d+)$/] if exists $DB::sub{$name}; } return @ret; } return keys %DB::sub; } #### # first argument is a filename whose subs will be returned # if a filename is not supplied, all subs in the current # filename are returned. # sub filesubs { my $s = shift; my $fname = shift; $fname = $DB::filename unless $fname; return grep { $DB::sub{$_} =~ /^$fname/ } keys %DB::sub; } #### # returns a list of all filenames that DB knows about # sub files { my $s = shift; my(@f) = grep(m|^_<|, keys %main::); return map { substr($_,2) } @f; } #### # returns reference to an array holding the lines in currently # loaded file # sub lines { my $s = shift; return \@DB::dbline; } #### # loadfile($file, $line) # sub loadfile { my $s = shift; my($file, $line) = @_; if (!defined $main::{'_<' . $file}) { my $try; if (($try) = grep(m|^_<.*$file|, keys %main::)) { $file = substr($try,2); } } if (defined($main::{'_<' . $file})) { my $c; # _outputall("Loading file $file.."); *DB::dbline = "::_<$file"; $DB::filename = $file; for $c (@clients) { # print "2 ", $file, '|', $line, "\n"; $c->showfile($file, $line); } return $file; } return undef; } sub lineevents { my $s = shift; my $fname = shift; my(%ret) = (); my $i; $fname = $DB::filename unless $fname; local(*DB::dbline) = "::_<$fname"; for ($i = 1; $i <= $#DB::dbline; $i++) { $ret{$i} = [$DB::dbline[$i], split(/\0/, $DB::dbline{$i})] if defined $DB::dbline{$i}; } return %ret; } sub set_break { my $s = shift; my $i = shift; my $cond = shift; $i ||= $DB::lineno; $cond ||= '1'; $i = _find_subline($i) if ($i =~ /\D/); $s->output("Subroutine not found.\n") unless $i; if ($i) { if ($DB::dbline[$i] == 0) { $s->output("Line $i not breakable.\n"); } else { $DB::dbline{$i} =~ s/^[^\0]*/$cond/; } } } sub set_tbreak { my $s = shift; my $i = shift; $i = _find_subline($i) if ($i =~ /\D/); $s->output("Subroutine not found.\n") unless $i; if ($i) { if ($DB::dbline[$i] == 0) { $s->output("Line $i not breakable.\n"); } else { $DB::dbline{$i} =~ s/($|\0)/;9$1/; # add one-time-only b.p. } } } sub _find_subline { my $name = shift; $name =~ s/\'/::/; $name = "${DB::package}\:\:" . $name if $name !~ /::/; $name = "main" . $name if substr($name,0,2) eq "::"; my($fname, $from, $to) = ($DB::sub{$name} =~ /^(.*):(\d+)-(\d+)$/); if ($from) { local *DB::dbline = "::_<$fname"; ++$from while $DB::dbline[$from] == 0 && $from < $to; return $from; } return undef; } sub clr_breaks { my $s = shift; my $i; if (@_) { while (@_) { $i = shift; $i = _find_subline($i) if ($i =~ /\D/); $s->output("Subroutine not found.\n") unless $i; if (defined $DB::dbline{$i}) { $DB::dbline{$i} =~ s/^[^\0]+//; if ($DB::dbline{$i} =~ s/^\0?$//) { delete $DB::dbline{$i}; } } } } else { for ($i = 1; $i <= $#DB::dbline ; $i++) { if (defined $DB::dbline{$i}) { $DB::dbline{$i} =~ s/^[^\0]+//; if ($DB::dbline{$i} =~ s/^\0?$//) { delete $DB::dbline{$i}; } } } } } sub set_action { my $s = shift; my $i = shift; my $act = shift; $i = _find_subline($i) if ($i =~ /\D/); $s->output("Subroutine not found.\n") unless $i; if ($i) { if ($DB::dbline[$i] == 0) { $s->output("Line $i not actionable.\n"); } else { $DB::dbline{$i} =~ s/\0[^\0]*//; $DB::dbline{$i} .= "\0" . $act; } } } sub clr_actions { my $s = shift; my $i; if (@_) { while (@_) { my $i = shift; $i = _find_subline($i) if ($i =~ /\D/); $s->output("Subroutine not found.\n") unless $i; if ($i && $DB::dbline[$i] != 0) { $DB::dbline{$i} =~ s/\0[^\0]*//; delete $DB::dbline{$i} if $DB::dbline{$i} =~ s/^\0?$//; } } } else { for ($i = 1; $i <= $#DB::dbline ; $i++) { if (defined $DB::dbline{$i}) { $DB::dbline{$i} =~ s/\0[^\0]*//; delete $DB::dbline{$i} if $DB::dbline{$i} =~ s/^\0?$//; } } } } sub prestop { my ($client, $val) = @_; return defined($val) ? $preeval->{$client} = $val : $preeval->{$client}; } sub poststop { my ($client, $val) = @_; return defined($val) ? $posteval->{$client} = $val : $posteval->{$client}; } # # "pure virtual" methods # # client-specific pre/post-stop actions. sub cprestop {} sub cpoststop {} # client complete startup sub awaken {} sub skippkg { my $s = shift; push @skippkg, @_ if @_; } sub evalcode { my ($client, $val) = @_; if (defined $val) { $running = 2; # hand over to DB() to evaluate in its context $ineval->{$client} = $val; } return $ineval->{$client}; } sub ready { my $s = shift; return $ready = 1; } # stubs sub init {} sub stop {} sub idle {} sub cleanup {} sub output {} # # client init # for (@clients) { $_->init } $SIG{'INT'} = \&DB::catch; # disable this if stepping through END blocks is desired # (looks scary and deconstructivist with Swat) END { $ready = 0 } 1; __END__ =head1 NAME DB - programmatic interface to the Perl debugging API =head1 SYNOPSIS package CLIENT; use DB; @ISA = qw(DB); # these (inherited) methods can be called by the client CLIENT->register() # register a client package name CLIENT->done() # de-register from the debugging API CLIENT->skippkg('hide::hide') # ask DB not to stop in this package CLIENT->cont([WHERE]) # run some more (until BREAK or # another breakpointt) CLIENT->step() # single step CLIENT->next() # step over CLIENT->ret() # return from current subroutine CLIENT->backtrace() # return the call stack description CLIENT->ready() # call when client setup is done CLIENT->trace_toggle() # toggle subroutine call trace mode CLIENT->subs([SUBS]) # return subroutine information CLIENT->files() # return list of all files known to DB CLIENT->lines() # return lines in currently loaded file CLIENT->loadfile(FILE,LINE) # load a file and let other clients know CLIENT->lineevents() # return info on lines with actions CLIENT->set_break([WHERE],[COND]) CLIENT->set_tbreak([WHERE]) CLIENT->clr_breaks([LIST]) CLIENT->set_action(WHERE,ACTION) CLIENT->clr_actions([LIST]) CLIENT->evalcode(STRING) # eval STRING in executing code's context CLIENT->prestop([STRING]) # execute in code context before stopping CLIENT->poststop([STRING])# execute in code context before resuming # These methods will be called at the appropriate times. # Stub versions provided do nothing. # None of these can block. CLIENT->init() # called when debug API inits itself CLIENT->stop(FILE,LINE) # when execution stops CLIENT->idle() # while stopped (can be a client event loop) CLIENT->cleanup() # just before exit CLIENT->output(LIST) # called to print any output that # the API must show =head1 DESCRIPTION Perl debug information is frequently required not just by debuggers, but also by modules that need some "special" information to do their job properly, like profilers. This module abstracts and provides all of the hooks into Perl internal debugging functionality, so that various implementations of Perl debuggers (or packages that want to simply get at the "privileged" debugging data) can all benefit from the development of this common code. Currently used by Swat, the perl/Tk GUI debugger. Note that multiple "front-ends" can latch into this debugging API simultaneously. This is intended to facilitate things like debugging with a command line and GUI at the same time, debugging debuggers etc. [Sounds nice, but this needs some serious support -- GSAR] In particular, this API does B<not> provide the following functions: =over 4 =item * data display =item * command processing =item * command alias management =item * user interface (tty or graphical) =back These are intended to be services performed by the clients of this API. This module attempts to be squeaky clean w.r.t C<use strict;> and when warnings are enabled. =head2 Global Variables The following "public" global names can be read by clients of this API. Beware that these should be considered "readonly". =over 8 =item $DB::sub Name of current executing subroutine. =item %DB::sub The keys of this hash are the names of all the known subroutines. Each value is an encoded string that has the sprintf(3) format C<("%s:%d-%d", filename, fromline, toline)>. =item $DB::single Single-step flag. Will be true if the API will stop at the next statement. =item $DB::signal Signal flag. Will be set to a true value if a signal was caught. Clients may check for this flag to abort time-consuming operations. =item $DB::trace This flag is set to true if the API is tracing through subroutine calls. =item @DB::args Contains the arguments of current subroutine, or the C<@ARGV> array if in the toplevel context. =item @DB::dbline List of lines in currently loaded file. =item %DB::dbline Actions in current file (keys are line numbers). The values are strings that have the sprintf(3) format C<("%s\000%s", breakcondition, actioncode)>. =item $DB::package Package namespace of currently executing code. =item $DB::filename Currently loaded filename. =item $DB::subname Fully qualified name of currently executing subroutine. =item $DB::lineno Line number that will be executed next. =back =head2 API Methods The following are methods in the DB base class. A client must access these methods by inheritance (*not* by calling them directly), since the API keeps track of clients through the inheritance mechanism. =over 8 =item CLIENT->register() register a client object/package =item CLIENT->evalcode(STRING) eval STRING in executing code context =item CLIENT->skippkg('D::hide') ask DB not to stop in these packages =item CLIENT->run() run some more (until a breakpt is reached) =item CLIENT->step() single step =item CLIENT->next() step over =item CLIENT->done() de-register from the debugging API =back =head2 Client Callback Methods The following "virtual" methods can be defined by the client. They will be called by the API at appropriate points. Note that unless specified otherwise, the debug API only defines empty, non-functional default versions of these methods. =over 8 =item CLIENT->init() Called after debug API inits itself. =item CLIENT->prestop([STRING]) Usually inherited from DB package. If no arguments are passed, returns the prestop action string. =item CLIENT->stop() Called when execution stops (w/ args file, line). =item CLIENT->idle() Called while stopped (can be a client event loop). =item CLIENT->poststop([STRING]) Usually inherited from DB package. If no arguments are passed, returns the poststop action string. =item CLIENT->evalcode(STRING) Usually inherited from DB package. Ask for a STRING to be C<eval>-ed in executing code context. =item CLIENT->cleanup() Called just before exit. =item CLIENT->output(LIST) Called when API must show a message (warnings, errors etc.). =back =head1 BUGS The interface defined by this module is missing some of the later additions to perl's debugging functionality. As such, this interface should be considered highly experimental and subject to change. =head1 AUTHOR Gurusamy Sarathy gsar@activestate.com This code heavily adapted from an early version of perl5db.pl attributable to Larry Wall and the Perl Porters. =cut PK ! ��nֆ7 �7 5.34.0/Pod/Man.pmnu �[��� # Convert POD data to formatted *roff input. # # This module translates POD documentation into *roff markup using the man # macro set, and is intended for converting POD documents written as Unix # manual pages to manual pages that can be read by the man(1) command. It is # a replacement for the pod2man command distributed with versions of Perl # prior to 5.6. # # SPDX-License-Identifier: GPL-1.0-or-later OR Artistic-1.0-Perl ############################################################################## # Modules and declarations ############################################################################## package Pod::Man; use 5.008; use strict; use warnings; use subs qw(makespace); use vars qw(@ISA %ESCAPES $PREAMBLE $VERSION); use Carp qw(carp croak); use Pod::Simple (); # Conditionally import Encode and set $HAS_ENCODE if it is available. This is # required to support building as part of Perl core, since podlators is built # before Encode is. our $HAS_ENCODE; BEGIN { $HAS_ENCODE = eval { require Encode }; } @ISA = qw(Pod::Simple); $VERSION = '4.14'; # Set the debugging level. If someone has inserted a debug function into this # class already, use that. Otherwise, use any Pod::Simple debug function # that's defined, and failing that, define a debug level of 10. BEGIN { my $parent = defined (&Pod::Simple::DEBUG) ? \&Pod::Simple::DEBUG : undef; unless (defined &DEBUG) { *DEBUG = $parent || sub () { 10 }; } } # Import the ASCII constant from Pod::Simple. This is true iff we're in an # ASCII-based universe (including such things as ISO 8859-1 and UTF-8), and is # generally only false for EBCDIC. BEGIN { *ASCII = \&Pod::Simple::ASCII } # Pretty-print a data structure. Only used for debugging. BEGIN { *pretty = \&Pod::Simple::pretty } # Formatting instructions for various types of blocks. cleanup makes hyphens # hard, adds spaces between consecutive underscores, and escapes backslashes. # convert translates characters into escapes. guesswork means to apply the # transformations done by the guesswork sub. literal says to protect literal # quotes from being turned into UTF-8 quotes. By default, all transformations # are on except literal, but some elements override. # # DEFAULT specifies the default settings. All other elements should list only # those settings that they are overriding. Data indicates =for roff blocks, # which should be passed along completely verbatim. # # Formatting inherits negatively, in the sense that if the parent has turned # off guesswork, all child elements should leave it off. my %FORMATTING = ( DEFAULT => { cleanup => 1, convert => 1, guesswork => 1, literal => 0 }, Data => { cleanup => 0, convert => 0, guesswork => 0, literal => 0 }, Verbatim => { guesswork => 0, literal => 1 }, C => { guesswork => 0, literal => 1 }, X => { cleanup => 0, guesswork => 0 }, ); ############################################################################## # Object initialization ############################################################################## # Initialize the object and set various Pod::Simple options that we need. # Here, we also process any additional options passed to the constructor or # set up defaults if none were given. Note that all internal object keys are # in all-caps, reserving all lower-case object keys for Pod::Simple and user # arguments. sub new { my $class = shift; my $self = $class->SUPER::new; # Tell Pod::Simple not to handle S<> by automatically inserting . $self->nbsp_for_S (1); # Tell Pod::Simple to keep whitespace whenever possible. if (my $preserve_whitespace = $self->can ('preserve_whitespace')) { $self->$preserve_whitespace (1); } else { $self->fullstop_space_harden (1); } # The =for and =begin targets that we accept. $self->accept_targets (qw/man MAN roff ROFF/); # Ensure that contiguous blocks of code are merged together. Otherwise, # some of the guesswork heuristics don't work right. $self->merge_text (1); # Pod::Simple doesn't do anything useful with our arguments, but we want # to put them in our object as hash keys and values. This could cause # problems if we ever clash with Pod::Simple's own internal class # variables. %$self = (%$self, @_); # Send errors to stderr if requested. if ($$self{stderr} and not $$self{errors}) { $$self{errors} = 'stderr'; } delete $$self{stderr}; # Validate the errors parameter and act on it. if (not defined $$self{errors}) { $$self{errors} = 'pod'; } if ($$self{errors} eq 'stderr' || $$self{errors} eq 'die') { $self->no_errata_section (1); $self->complain_stderr (1); if ($$self{errors} eq 'die') { $$self{complain_die} = 1; } } elsif ($$self{errors} eq 'pod') { $self->no_errata_section (0); $self->complain_stderr (0); } elsif ($$self{errors} eq 'none') { $self->no_errata_section (1); $self->no_whining (1); } else { croak (qq(Invalid errors setting: "$$self{errors}")); } delete $$self{errors}; # Degrade back to non-utf8 if Encode is not available. # # Suppress the warning message when PERL_CORE is set, indicating this is # running as part of the core Perl build. Perl builds podlators (and all # pure Perl modules) before Encode and other XS modules, so Encode won't # yet be available. Rely on the Perl core build to generate man pages # later, after all the modules are available, so that UTF-8 handling will # be correct. if ($$self{utf8} and !$HAS_ENCODE) { if (!$ENV{PERL_CORE}) { carp ('utf8 mode requested but Encode module not available,' . ' falling back to non-utf8'); } delete $$self{utf8}; } # Initialize various other internal constants based on our arguments. $self->init_fonts; $self->init_quotes; $self->init_page; # For right now, default to turning on all of the magic. $$self{MAGIC_CPP} = 1; $$self{MAGIC_EMDASH} = 1; $$self{MAGIC_FUNC} = 1; $$self{MAGIC_MANREF} = 1; $$self{MAGIC_SMALLCAPS} = 1; $$self{MAGIC_VARS} = 1; return $self; } # Translate a font string into an escape. sub toescape { (length ($_[0]) > 1 ? '\f(' : '\f') . $_[0] } # Determine which fonts the user wishes to use and store them in the object. # Regular, italic, bold, and bold-italic are constants, but the fixed width # fonts may be set by the user. Sets the internal hash key FONTS which is # used to map our internal font escapes to actual *roff sequences later. sub init_fonts { my ($self) = @_; # Figure out the fixed-width font. If user-supplied, make sure that they # are the right length. for (qw/fixed fixedbold fixeditalic fixedbolditalic/) { my $font = $$self{$_}; if (defined ($font) && (length ($font) < 1 || length ($font) > 2)) { croak qq(roff font should be 1 or 2 chars, not "$font"); } } # Set the default fonts. We can't be sure portably across different # implementations what fixed bold-italic may be called (if it's even # available), so default to just bold. $$self{fixed} ||= 'CW'; $$self{fixedbold} ||= 'CB'; $$self{fixeditalic} ||= 'CI'; $$self{fixedbolditalic} ||= 'CB'; # Set up a table of font escapes. First number is fixed-width, second is # bold, third is italic. $$self{FONTS} = { '000' => '\fR', '001' => '\fI', '010' => '\fB', '011' => '\f(BI', '100' => toescape ($$self{fixed}), '101' => toescape ($$self{fixeditalic}), '110' => toescape ($$self{fixedbold}), '111' => toescape ($$self{fixedbolditalic}) }; } # Initialize the quotes that we'll be using for C<> text. This requires some # special handling, both to parse the user parameters if given and to make # sure that the quotes will be safe against *roff. Sets the internal hash # keys LQUOTE and RQUOTE. sub init_quotes { my ($self) = (@_); # Handle the quotes option first, which sets both quotes at once. $$self{quotes} ||= '"'; if ($$self{quotes} eq 'none') { $$self{LQUOTE} = $$self{RQUOTE} = ''; } elsif (length ($$self{quotes}) == 1) { $$self{LQUOTE} = $$self{RQUOTE} = $$self{quotes}; } elsif (length ($$self{quotes}) % 2 == 0) { my $length = length ($$self{quotes}) / 2; $$self{LQUOTE} = substr ($$self{quotes}, 0, $length); $$self{RQUOTE} = substr ($$self{quotes}, $length); } else { croak(qq(Invalid quote specification "$$self{quotes}")) } # Now handle the lquote and rquote options. if (defined $$self{lquote}) { $$self{LQUOTE} = $$self{lquote} eq 'none' ? q{} : $$self{lquote}; } if (defined $$self{rquote}) { $$self{RQUOTE} = $$self{rquote} eq 'none' ? q{} : $$self{rquote}; } # Double the first quote; note that this should not be s///g as two double # quotes is represented in *roff as three double quotes, not four. Weird, # I know. $$self{LQUOTE} =~ s/\"/\"\"/; $$self{RQUOTE} =~ s/\"/\"\"/; } # Initialize the page title information and indentation from our arguments. sub init_page { my ($self) = @_; # Get the version from the running Perl. my @version = ($] =~ /^(\d+)\.(\d{3})(\d+)$/); for (@version) { $_ += 0 } my $version = join ('.', @version); # Set the defaults for page titles and indentation if the user didn't # override anything. $$self{center} = 'User Contributed Perl Documentation' unless defined $$self{center}; $$self{release} = 'perl v' . $version unless defined $$self{release}; $$self{indent} = 4 unless defined $$self{indent}; # Double quotes in things that will be quoted. for (qw/center release/) { $$self{$_} =~ s/\"/\"\"/g if $$self{$_}; } } ############################################################################## # Core parsing ############################################################################## # This is the glue that connects the code below with Pod::Simple itself. The # goal is to convert the event stream coming from the POD parser into method # calls to handlers once the complete content of a tag has been seen. Each # paragraph or POD command will have textual content associated with it, and # as soon as all of a paragraph or POD command has been seen, that content # will be passed in to the corresponding method for handling that type of # object. The exceptions are handlers for lists, which have opening tag # handlers and closing tag handlers that will be called right away. # # The internal hash key PENDING is used to store the contents of a tag until # all of it has been seen. It holds a stack of open tags, each one # represented by a tuple of the attributes hash for the tag, formatting # options for the tag (which are inherited), and the contents of the tag. # Add a block of text to the contents of the current node, formatting it # according to the current formatting instructions as we do. sub _handle_text { my ($self, $text) = @_; DEBUG > 3 and print "== $text\n"; my $tag = $$self{PENDING}[-1]; $$tag[2] .= $self->format_text ($$tag[1], $text); } # Given an element name, get the corresponding method name. sub method_for_element { my ($self, $element) = @_; $element =~ tr/A-Z-/a-z_/; $element =~ tr/_a-z0-9//cd; return $element; } # Handle the start of a new element. If cmd_element is defined, assume that # we need to collect the entire tree for this element before passing it to the # element method, and create a new tree into which we'll collect blocks of # text and nested elements. Otherwise, if start_element is defined, call it. sub _handle_element_start { my ($self, $element, $attrs) = @_; DEBUG > 3 and print "++ $element (<", join ('> <', %$attrs), ">)\n"; my $method = $self->method_for_element ($element); # If we have a command handler, we need to accumulate the contents of the # tag before calling it. Turn off IN_NAME for any command other than # <Para> and the formatting codes so that IN_NAME isn't still set for the # first heading after the NAME heading. if ($self->can ("cmd_$method")) { DEBUG > 2 and print "<$element> starts saving a tag\n"; $$self{IN_NAME} = 0 if ($element ne 'Para' && length ($element) > 1); # How we're going to format embedded text blocks depends on the tag # and also depends on our parent tags. Thankfully, inside tags that # turn off guesswork and reformatting, nothing else can turn it back # on, so this can be strictly inherited. my $formatting = { %{ $$self{PENDING}[-1][1] || $FORMATTING{DEFAULT} }, %{ $FORMATTING{$element} || {} }, }; push (@{ $$self{PENDING} }, [ $attrs, $formatting, '' ]); DEBUG > 4 and print "Pending: [", pretty ($$self{PENDING}), "]\n"; } elsif (my $start_method = $self->can ("start_$method")) { $self->$start_method ($attrs, ''); } else { DEBUG > 2 and print "No $method start method, skipping\n"; } } # Handle the end of an element. If we had a cmd_ method for this element, # this is where we pass along the tree that we built. Otherwise, if we have # an end_ method for the element, call that. sub _handle_element_end { my ($self, $element) = @_; DEBUG > 3 and print "-- $element\n"; my $method = $self->method_for_element ($element); # If we have a command handler, pull off the pending text and pass it to # the handler along with the saved attribute hash. if (my $cmd_method = $self->can ("cmd_$method")) { DEBUG > 2 and print "</$element> stops saving a tag\n"; my $tag = pop @{ $$self{PENDING} }; DEBUG > 4 and print "Popped: [", pretty ($tag), "]\n"; DEBUG > 4 and print "Pending: [", pretty ($$self{PENDING}), "]\n"; my $text = $self->$cmd_method ($$tag[0], $$tag[2]); if (defined $text) { if (@{ $$self{PENDING} } > 1) { $$self{PENDING}[-1][2] .= $text; } else { $self->output ($text); } } } elsif (my $end_method = $self->can ("end_$method")) { $self->$end_method (); } else { DEBUG > 2 and print "No $method end method, skipping\n"; } } ############################################################################## # General formatting ############################################################################## # Format a text block. Takes a hash of formatting options and the text to # format. Currently, the only formatting options are guesswork, cleanup, and # convert, all of which are boolean. sub format_text { my ($self, $options, $text) = @_; my $guesswork = $$options{guesswork} && !$$self{IN_NAME}; my $cleanup = $$options{cleanup}; my $convert = $$options{convert}; my $literal = $$options{literal}; # Cleanup just tidies up a few things, telling *roff that the hyphens are # hard, putting a bit of space between consecutive underscores, and # escaping backslashes. Be careful not to mangle our character # translations by doing this before processing character translation. if ($cleanup) { $text =~ s/\\/\\e/g; $text =~ s/-/\\-/g; $text =~ s/_(?=_)/_\\|/g; } # Normally we do character translation, but we won't even do that in # <Data> blocks or if UTF-8 output is desired. if ($convert && !$$self{utf8} && ASCII) { $text =~ s/([^\x00-\x7F])/$ESCAPES{ord ($1)} || "X"/eg; } # Ensure that *roff doesn't convert literal quotes to UTF-8 single quotes, # but don't mess up our accept escapes. if ($literal) { $text =~ s/(?<!\\\*)\'/\\*\(Aq/g; $text =~ s/(?<!\\\*)\`/\\\`/g; } # If guesswork is asked for, do that. This involves more substantial # formatting based on various heuristics that may only be appropriate for # particular documents. if ($guesswork) { $text = $self->guesswork ($text); } return $text; } # Handles C<> text, deciding whether to put \*C` around it or not. This is a # whole bunch of messy heuristics to try to avoid overquoting, originally from # Barrie Slaymaker. This largely duplicates similar code in Pod::Text. sub quote_literal { my $self = shift; local $_ = shift; # A regex that matches the portion of a variable reference that's the # array or hash index, separated out just because we want to use it in # several places in the following regex. my $index = '(?: \[.*\] | \{.*\} )?'; # If in NAME section, just return an ASCII quoted string to avoid # confusing tools like whatis. return qq{"$_"} if $$self{IN_NAME}; # Check for things that we don't want to quote, and if we find any of # them, return the string with just a font change and no quoting. m{ ^\s* (?: ( [\'\`\"] ) .* \1 # already quoted | \\\*\(Aq .* \\\*\(Aq # quoted and escaped | \\?\` .* ( \' | \\\*\(Aq ) # `quoted' | \$+ [\#^]? \S $index # special ($^Foo, $") | [\$\@%&*]+ \#? [:\'\w]+ $index # plain var or func | [\$\@%&*]* [:\'\w]+ (?: -> )? \(\s*[^\s,]\s*\) # 0/1-arg func call | [-+]? ( \d[\d.]* | \.\d+ ) (?: [eE][-+]?\d+ )? # a number | 0x [a-fA-F\d]+ # a hex constant ) \s*\z }xso and return '\f(FS' . $_ . '\f(FE'; # If we didn't return, go ahead and quote the text. return '\f(FS\*(C`' . $_ . "\\*(C'\\f(FE"; } # Takes a text block to perform guesswork on. Returns the text block with # formatting codes added. This is the code that marks up various Perl # constructs and things commonly used in man pages without requiring the user # to add any explicit markup, and is applied to all non-literal text. We're # guaranteed that the text we're applying guesswork to does not contain any # *roff formatting codes. Note that the inserted font sequences must be # treated later with mapfonts or textmapfonts. # # This method is very fragile, both in the regular expressions it uses and in # the ordering of those modifications. Care and testing is required when # modifying it. sub guesswork { my $self = shift; local $_ = shift; DEBUG > 5 and print " Guesswork called on [$_]\n"; # By the time we reach this point, all hyphens will be escaped by adding a # backslash. We want to undo that escaping if they're part of regular # words and there's only a single dash, since that's a real hyphen that # *roff gets to consider a possible break point. Make sure that a dash # after the first character of a word stays non-breaking, however. # # Note that this is not user-controllable; we pretty much have to do this # transformation or *roff will mangle the output in unacceptable ways. s{ ( (?:\G|^|\s) [\(\"]* [a-zA-Z] ) ( \\- )? ( (?: [a-zA-Z\']+ \\-)+ ) ( [a-zA-Z\']+ ) (?= [\)\".?!,;:]* (?:\s|\Z|\\\ ) ) \b } { my ($prefix, $hyphen, $main, $suffix) = ($1, $2, $3, $4); $hyphen ||= ''; $main =~ s/\\-/-/g; $prefix . $hyphen . $main . $suffix; }egx; # Translate "--" into a real em-dash if it's used like one. This means # that it's either surrounded by whitespace, it follows a regular word, or # it occurs between two regular words. if ($$self{MAGIC_EMDASH}) { s{ (\s) \\-\\- (\s) } { $1 . '\*(--' . $2 }egx; s{ (\b[a-zA-Z]+) \\-\\- (\s|\Z|[a-zA-Z]+\b) } { $1 . '\*(--' . $2 }egx; } # Make words in all-caps a little bit smaller; they look better that way. # However, we don't want to change Perl code (like @ARGV), nor do we want # to fix the MIME in MIME-Version since it looks weird with the # full-height V. # # We change only a string of all caps (2) either at the beginning of the # line or following regular punctuation (like quotes) or whitespace (1), # and followed by either similar punctuation, an em-dash, or the end of # the line (3). # # Allow the text we're changing to small caps to include double quotes, # commas, newlines, and periods as long as it doesn't otherwise interrupt # the string of small caps and still fits the criteria. This lets us turn # entire warranty disclaimers in man page output into small caps. if ($$self{MAGIC_SMALLCAPS}) { s{ ( ^ | [\s\(\"\'\`\[\{<>] | \\[ ] ) # (1) ( [A-Z] [A-Z] (?: \s? [/A-Z+:\d_\$&] | \\- | \s? [.,\"] )* ) # (2) (?= [\s>\}\]\(\)\'\".?!,;] | \\*\(-- | \\[ ] | $ ) # (3) } { $1 . '\s-1' . $2 . '\s0' }egx; } # Note that from this point forward, we have to adjust for \s-1 and \s-0 # strings inserted around things that we've made small-caps if later # transforms should work on those strings. # Embolden functions in the form func(), including functions that are in # all capitals, but don't embolden if there's anything between the parens. # The function must start with an alphabetic character or underscore and # then consist of word characters or colons. if ($$self{MAGIC_FUNC}) { s{ ( \b | \\s-1 ) ( [A-Za-z_] ([:\w] | \\s-?[01])+ \(\) ) } { $1 . '\f(BS' . $2 . '\f(BE' }egx; } # Change references to manual pages to put the page name in bold but # the number in the regular font, with a thin space between the name and # the number. Only recognize func(n) where func starts with an alphabetic # character or underscore and contains only word characters, periods (for # configuration file man pages), or colons, and n is a single digit, # optionally followed by some number of lowercase letters. Note that this # does not recognize man page references like perl(l) or socket(3SOCKET). if ($$self{MAGIC_MANREF}) { s{ ( \b | \\s-1 ) (?<! \\ ) # rule out \s0(1) ( [A-Za-z_] (?:[.:\w] | \\- | \\s-?[01])+ ) ( \( \d [a-z]* \) ) } { $1 . '\f(BS' . $2 . '\f(BE\|' . $3 }egx; } # Convert simple Perl variable references to a fixed-width font. Be # careful not to convert functions, though; there are too many subtleties # with them to want to perform this transformation. if ($$self{MAGIC_VARS}) { s{ ( ^ | \s+ ) ( [\$\@%] [\w:]+ ) (?! \( ) } { $1 . '\f(FS' . $2 . '\f(FE' }egx; } # Fix up double quotes. Unfortunately, we miss this transformation if the # quoted text contains any code with formatting codes and there's not much # we can effectively do about that, which makes it somewhat unclear if # this is really a good idea. s{ \" ([^\"]+) \" } { '\*(L"' . $1 . '\*(R"' }egx; # Make C++ into \*(C+, which is a squinched version. if ($$self{MAGIC_CPP}) { s{ \b C\+\+ } {\\*\(C+}gx; } # Done. DEBUG > 5 and print " Guesswork returning [$_]\n"; return $_; } ############################################################################## # Output ############################################################################## # When building up the *roff code, we don't use real *roff fonts. Instead, we # embed font codes of the form \f(<font>[SE] where <font> is one of B, I, or # F, S stands for start, and E stands for end. This method turns these into # the right start and end codes. # # We add this level of complexity because the old pod2man didn't get code like # B<someI<thing> else> right; after I<> it switched back to normal text rather # than bold. We take care of this by using variables that state whether bold, # italic, or fixed are turned on as a combined pointer to our current font # sequence, and set each to the number of current nestings of start tags for # that font. # # \fP changes to the previous font, but only one previous font is kept. We # don't know what the outside level font is; normally it's R, but if we're # inside a heading it could be something else. So arrange things so that the # outside font is always the "previous" font and end with \fP instead of \fR. # Idea from Zack Weinberg. sub mapfonts { my ($self, $text) = @_; my ($fixed, $bold, $italic) = (0, 0, 0); my %magic = (F => \$fixed, B => \$bold, I => \$italic); my $last = '\fR'; $text =~ s< \\f\((.)(.) > < my $sequence = ''; my $f; if ($last ne '\fR') { $sequence = '\fP' } ${ $magic{$1} } += ($2 eq 'S') ? 1 : -1; $f = $$self{FONTS}{ ($fixed && 1) . ($bold && 1) . ($italic && 1) }; if ($f eq $last) { ''; } else { if ($f ne '\fR') { $sequence .= $f } $last = $f; $sequence; } >gxe; return $text; } # Unfortunately, there is a bug in Solaris 2.6 nroff (not present in GNU # groff) where the sequence \fB\fP\f(CW\fP leaves the font set to B rather # than R, presumably because \f(CW doesn't actually do a font change. To work # around this, use a separate textmapfonts for text blocks where the default # font is always R and only use the smart mapfonts for headings. sub textmapfonts { my ($self, $text) = @_; my ($fixed, $bold, $italic) = (0, 0, 0); my %magic = (F => \$fixed, B => \$bold, I => \$italic); $text =~ s< \\f\((.)(.) > < ${ $magic{$1} } += ($2 eq 'S') ? 1 : -1; $$self{FONTS}{ ($fixed && 1) . ($bold && 1) . ($italic && 1) }; >gxe; return $text; } # Given a command and a single argument that may or may not contain double # quotes, handle double-quote formatting for it. If there are no double # quotes, just return the command followed by the argument in double quotes. # If there are double quotes, use an if statement to test for nroff, and for # nroff output the command followed by the argument in double quotes with # embedded double quotes doubled. For other formatters, remap paired double # quotes to LQUOTE and RQUOTE. sub switchquotes { my ($self, $command, $text, $extra) = @_; $text =~ s/\\\*\([LR]\"/\"/g; # We also have to deal with \*C` and \*C', which are used to add the # quotes around C<> text, since they may expand to " and if they do this # confuses the .SH macros and the like no end. Expand them ourselves. # Also separate troff from nroff if there are any fixed-width fonts in use # to work around problems with Solaris nroff. my $c_is_quote = ($$self{LQUOTE} =~ /\"/) || ($$self{RQUOTE} =~ /\"/); my $fixedpat = join '|', @{ $$self{FONTS} }{'100', '101', '110', '111'}; $fixedpat =~ s/\\/\\\\/g; $fixedpat =~ s/\(/\\\(/g; if ($text =~ m/\"/ || $text =~ m/$fixedpat/) { $text =~ s/\"/\"\"/g; my $nroff = $text; my $troff = $text; $troff =~ s/\"\"([^\"]*)\"\"/\`\`$1\'\'/g; if ($c_is_quote and $text =~ m/\\\*\(C[\'\`]/) { $nroff =~ s/\\\*\(C\`/$$self{LQUOTE}/g; $nroff =~ s/\\\*\(C\'/$$self{RQUOTE}/g; $troff =~ s/\\\*\(C[\'\`]//g; } $nroff = qq("$nroff") . ($extra ? " $extra" : ''); $troff = qq("$troff") . ($extra ? " $extra" : ''); # Work around the Solaris nroff bug where \f(CW\fP leaves the font set # to Roman rather than the actual previous font when used in headings. # troff output may still be broken, but at least we can fix nroff by # just switching the font changes to the non-fixed versions. my $font_end = "(?:\\f[PR]|\Q$$self{FONTS}{100}\E)"; $nroff =~ s/\Q$$self{FONTS}{100}\E(.*?)\\f([PR])/$1/g; $nroff =~ s/\Q$$self{FONTS}{101}\E(.*?)$font_end/\\fI$1\\fP/g; $nroff =~ s/\Q$$self{FONTS}{110}\E(.*?)$font_end/\\fB$1\\fP/g; $nroff =~ s/\Q$$self{FONTS}{111}\E(.*?)$font_end/\\f\(BI$1\\fP/g; # Now finally output the command. Bother with .ie only if the nroff # and troff output aren't the same. if ($nroff ne $troff) { return ".ie n $command $nroff\n.el $command $troff\n"; } else { return "$command $nroff\n"; } } else { $text = qq("$text") . ($extra ? " $extra" : ''); return "$command $text\n"; } } # Protect leading quotes and periods against interpretation as commands. Also # protect anything starting with a backslash, since it could expand or hide # something that *roff would interpret as a command. This is overkill, but # it's much simpler than trying to parse *roff here. sub protect { my ($self, $text) = @_; $text =~ s/^([.\'\\])/\\&$1/mg; return $text; } # Make vertical whitespace if NEEDSPACE is set, appropriate to the indentation # level the situation. This function is needed since in *roff one has to # create vertical whitespace after paragraphs and between some things, but # other macros create their own whitespace. Also close out a sequence of # repeated =items, since calling makespace means we're about to begin the item # body. sub makespace { my ($self) = @_; $self->output (".PD\n") if $$self{ITEMS} > 1; $$self{ITEMS} = 0; $self->output ($$self{INDENT} > 0 ? ".Sp\n" : ".PP\n") if $$self{NEEDSPACE}; } # Output any pending index entries, and optionally an index entry given as an # argument. Support multiple index entries in X<> separated by slashes, and # strip special escapes from index entries. sub outindex { my ($self, $section, $index) = @_; my @entries = map { split m%\s*/\s*% } @{ $$self{INDEX} }; return unless ($section || @entries); # We're about to output all pending entries, so clear our pending queue. $$self{INDEX} = []; # Build the output. Regular index entries are marked Xref, and headings # pass in their own section. Undo some *roff formatting on headings. my @output; if (@entries) { push @output, [ 'Xref', join (' ', @entries) ]; } if ($section) { $index =~ s/\\-/-/g; $index =~ s/\\(?:s-?\d|.\(..|.)//g; push @output, [ $section, $index ]; } # Print out the .IX commands. for (@output) { my ($type, $entry) = @$_; $entry =~ s/\s+/ /g; $entry =~ s/\"/\"\"/g; $entry =~ s/\\/\\\\/g; $self->output (".IX $type " . '"' . $entry . '"' . "\n"); } } # Output some text, without any additional changes. sub output { my ($self, @text) = @_; if ($$self{ENCODE}) { print { $$self{output_fh} } Encode::encode ('UTF-8', join ('', @text)); } else { print { $$self{output_fh} } @text; } } ############################################################################## # Document initialization ############################################################################## # Handle the start of the document. Here we handle empty documents, as well # as setting up our basic macros in a preamble and building the page title. sub start_document { my ($self, $attrs) = @_; if ($$attrs{contentless} && !$$self{ALWAYS_EMIT_SOMETHING}) { DEBUG and print "Document is contentless\n"; $$self{CONTENTLESS} = 1; } else { delete $$self{CONTENTLESS}; } # When UTF-8 output is set, check whether our output file handle already # has a PerlIO encoding layer set. If it does not, we'll need to encode # our output before printing it (handled in the output() sub). Wrap the # check in an eval to handle versions of Perl without PerlIO. # # PerlIO::get_layers still requires its argument be a glob, so coerce the # file handle to a glob. $$self{ENCODE} = 0; if ($$self{utf8}) { $$self{ENCODE} = 1; eval { my @options = (output => 1, details => 1); my @layers = PerlIO::get_layers (*{$$self{output_fh}}, @options); if ($layers[-1] && ($layers[-1] & PerlIO::F_UTF8 ())) { $$self{ENCODE} = 0; } } } # Determine information for the preamble and then output it unless the # document was content-free. if (!$$self{CONTENTLESS}) { my ($name, $section); if (defined $$self{name}) { $name = $$self{name}; $section = $$self{section} || 1; } else { ($name, $section) = $self->devise_title; } my $date = defined($$self{date}) ? $$self{date} : $self->devise_date; $self->preamble ($name, $section, $date) unless $self->bare_output or DEBUG > 9; } # Initialize a few per-document variables. $$self{INDENT} = 0; # Current indentation level. $$self{INDENTS} = []; # Stack of indentations. $$self{INDEX} = []; # Index keys waiting to be printed. $$self{IN_NAME} = 0; # Whether processing the NAME section. $$self{ITEMS} = 0; # The number of consecutive =items. $$self{ITEMTYPES} = []; # Stack of =item types, one per list. $$self{SHIFTWAIT} = 0; # Whether there is a shift waiting. $$self{SHIFTS} = []; # Stack of .RS shifts. $$self{PENDING} = [[]]; # Pending output. } # Handle the end of the document. This handles dying on POD errors, since # Pod::Parser currently doesn't. Otherwise, does nothing but print out a # final comment at the end of the document under debugging. sub end_document { my ($self) = @_; if ($$self{complain_die} && $self->errors_seen) { croak ("POD document had syntax errors"); } return if $self->bare_output; return if ($$self{CONTENTLESS} && !$$self{ALWAYS_EMIT_SOMETHING}); $self->output (q(.\" [End document]) . "\n") if DEBUG; } # Try to figure out the name and section from the file name and return them as # a list, returning an empty name and section 1 if we can't find any better # information. Uses File::Basename and File::Spec as necessary. sub devise_title { my ($self) = @_; my $name = $self->source_filename || ''; my $section = $$self{section} || 1; $section = 3 if (!$$self{section} && $name =~ /\.pm\z/i); $name =~ s/\.p(od|[lm])\z//i; # If Pod::Parser gave us an IO::File reference as the source file name, # convert that to the empty string as well. Then, if we don't have a # valid name, convert it to STDIN. # # In podlators 4.00 through 4.07, this also produced a warning, but that # was surprising to a lot of programs that had expected to be able to pipe # POD through pod2man without specifying the name. In the name of # backward compatibility, just quietly set STDIN as the page title. if ($name =~ /^IO::File(?:=\w+)\(0x[\da-f]+\)$/i) { $name = ''; } if ($name eq '') { $name = 'STDIN'; } # If the section isn't 3, then the name defaults to just the basename of # the file. if ($section !~ /^3/) { require File::Basename; $name = uc File::Basename::basename ($name); } else { require File::Spec; my ($volume, $dirs, $file) = File::Spec->splitpath ($name); # Otherwise, assume we're dealing with a module. We want to figure # out the full module name from the path to the file, but we don't # want to include too much of the path into the module name. Lose # anything up to the first of: # # */lib/*perl*/ standard or site_perl module # */*perl*/lib/ from -Dprefix=/opt/perl # */*perl*/ random module hierarchy # # Also strip off a leading site, site_perl, or vendor_perl component, # any OS-specific component, and any version number component, and # strip off an initial component of "lib" or "blib/lib" since that's # what ExtUtils::MakeMaker creates. # # splitdir requires at least File::Spec 0.8. my @dirs = File::Spec->splitdir ($dirs); if (@dirs) { my $cut = 0; my $i; for ($i = 0; $i < @dirs; $i++) { if ($dirs[$i] =~ /perl/) { $cut = $i + 1; $cut++ if ($dirs[$i + 1] && $dirs[$i + 1] eq 'lib'); last; } } if ($cut > 0) { splice (@dirs, 0, $cut); shift @dirs if ($dirs[0] =~ /^(site|vendor)(_perl)?$/); shift @dirs if ($dirs[0] =~ /^[\d.]+$/); shift @dirs if ($dirs[0] =~ /^(.*-$^O|$^O-.*|$^O)$/); } shift @dirs if $dirs[0] eq 'lib'; splice (@dirs, 0, 2) if ($dirs[0] eq 'blib' && $dirs[1] eq 'lib'); } # Remove empty directories when building the module name; they # occur too easily on Unix by doubling slashes. $name = join ('::', (grep { $_ ? $_ : () } @dirs), $file); } return ($name, $section); } # Determine the modification date and return that, properly formatted in ISO # format. # # If POD_MAN_DATE is set, that overrides anything else. This can be used for # reproducible generation of the same file even if the input file timestamps # are unpredictable or the POD comes from standard input. # # Otherwise, if SOURCE_DATE_EPOCH is set and can be parsed as seconds since # the UNIX epoch, base the timestamp on that. See # <https://reproducible-builds.org/specs/source-date-epoch/> # # Otherwise, use the modification date of the input if we can stat it. Be # aware that Pod::Simple returns the stringification of the file handle as # source_filename for input from a file handle, so we'll stat some random ref # string in that case. If that fails, instead use the current time. # # $self - Pod::Man object, used to get the source file # # Returns: YYYY-MM-DD date suitable for the left-hand footer sub devise_date { my ($self) = @_; # If POD_MAN_DATE is set, always use it. if (defined($ENV{POD_MAN_DATE})) { return $ENV{POD_MAN_DATE}; } # If SOURCE_DATE_EPOCH is set and can be parsed, use that. my $time; if (defined($ENV{SOURCE_DATE_EPOCH}) && $ENV{SOURCE_DATE_EPOCH} !~ /\D/) { $time = $ENV{SOURCE_DATE_EPOCH}; } # Otherwise, get the input filename and try to stat it. If that fails, # use the current time. if (!defined $time) { my $input = $self->source_filename; if ($input) { $time = (stat($input))[9] || time(); } else { $time = time(); } } # Can't use POSIX::strftime(), which uses Fcntl, because MakeMaker uses # this and it has to work in the core which can't load dynamic libraries. # Use gmtime instead of localtime so that the generated man page does not # depend on the local time zone setting and is more reproducible my ($year, $month, $day) = (gmtime($time))[5,4,3]; return sprintf("%04d-%02d-%02d", $year + 1900, $month + 1, $day); } # Print out the preamble and the title. The meaning of the arguments to .TH # unfortunately vary by system; some systems consider the fourth argument to # be a "source" and others use it as a version number. Generally it's just # presented as the left-side footer, though, so it doesn't matter too much if # a particular system gives it another interpretation. # # The order of date and release used to be reversed in older versions of this # module, but this order is correct for both Solaris and Linux. sub preamble { my ($self, $name, $section, $date) = @_; my $preamble = $self->preamble_template (!$$self{utf8}); # Build the index line and make sure that it will be syntactically valid. my $index = "$name $section"; $index =~ s/\"/\"\"/g; # If name or section contain spaces, quote them (section really never # should, but we may as well be cautious). for ($name, $section) { if (/\s/) { s/\"/\"\"/g; $_ = '"' . $_ . '"'; } } # Double quotes in date, since it will be quoted. $date =~ s/\"/\"\"/g; # Substitute into the preamble the configuration options. $preamble =~ s/\@CFONT\@/$$self{fixed}/; $preamble =~ s/\@LQUOTE\@/$$self{LQUOTE}/; $preamble =~ s/\@RQUOTE\@/$$self{RQUOTE}/; chomp $preamble; # Get the version information. my $version = $self->version_report; # Finally output everything. $self->output (<<"----END OF HEADER----"); .\\" Automatically generated by $version .\\" .\\" Standard preamble: .\\" ======================================================================== $preamble .\\" ======================================================================== .\\" .IX Title "$index" .TH $name $section "$date" "$$self{release}" "$$self{center}" .\\" For nroff, turn off justification. Always turn off hyphenation; it makes .\\" way too many mistakes in technical documents. .if n .ad l .nh ----END OF HEADER---- $self->output (".\\\" [End of preamble]\n") if DEBUG; } ############################################################################## # Text blocks ############################################################################## # Handle a basic block of text. The only tricky part of this is if this is # the first paragraph of text after an =over, in which case we have to change # indentations for *roff. sub cmd_para { my ($self, $attrs, $text) = @_; my $line = $$attrs{start_line}; # Output the paragraph. We also have to handle =over without =item. If # there's an =over without =item, SHIFTWAIT will be set, and we need to # handle creation of the indent here. Add the shift to SHIFTS so that it # will be cleaned up on =back. $self->makespace; if ($$self{SHIFTWAIT}) { $self->output (".RS $$self{INDENT}\n"); push (@{ $$self{SHIFTS} }, $$self{INDENT}); $$self{SHIFTWAIT} = 0; } # Add the line number for debugging, but not in the NAME section just in # case the comment would confuse apropos. $self->output (".\\\" [At source line $line]\n") if defined ($line) && DEBUG && !$$self{IN_NAME}; # Force exactly one newline at the end and strip unwanted trailing # whitespace at the end, but leave "\ " backslashed space from an S< > at # the end of a line. Reverse the text first, to avoid having to scan the # entire paragraph. $text = reverse $text; $text =~ s/\A\s*?(?= \\|\S|\z)/\n/; $text = reverse $text; # Output the paragraph. $self->output ($self->protect ($self->textmapfonts ($text))); $self->outindex; $$self{NEEDSPACE} = 1; return ''; } # Handle a verbatim paragraph. Put a null token at the beginning of each line # to protect against commands and wrap in .Vb/.Ve (which we define in our # prelude). sub cmd_verbatim { my ($self, $attrs, $text) = @_; # Ignore an empty verbatim paragraph. return unless $text =~ /\S/; # Force exactly one newline at the end and strip unwanted trailing # whitespace at the end. Reverse the text first, to avoid having to scan # the entire paragraph. $text = reverse $text; $text =~ s/\A\s*/\n/; $text = reverse $text; # Get a count of the number of lines before the first blank line, which # we'll pass to .Vb as its parameter. This tells *roff to keep that many # lines together. We don't want to tell *roff to keep huge blocks # together. my @lines = split (/\n/, $text); my $unbroken = 0; for (@lines) { last if /^\s*$/; $unbroken++; } $unbroken = 10 if ($unbroken > 12 && !$$self{MAGIC_VNOPAGEBREAK_LIMIT}); # Prepend a null token to each line. $text =~ s/^/\\&/gm; # Output the results. $self->makespace; $self->output (".Vb $unbroken\n$text.Ve\n"); $$self{NEEDSPACE} = 1; return ''; } # Handle literal text (produced by =for and similar constructs). Just output # it with the minimum of changes. sub cmd_data { my ($self, $attrs, $text) = @_; $text =~ s/^\n+//; $text =~ s/\n{0,2}$/\n/; $self->output ($text); return ''; } ############################################################################## # Headings ############################################################################## # Common code for all headings. This is called before the actual heading is # output. It returns the cleaned up heading text (putting the heading all on # one line) and may do other things, like closing bad =item blocks. sub heading_common { my ($self, $text, $line) = @_; $text =~ s/\s+$//; $text =~ s/\s*\n\s*/ /g; # This should never happen; it means that we have a heading after =item # without an intervening =back. But just in case, handle it anyway. if ($$self{ITEMS} > 1) { $$self{ITEMS} = 0; $self->output (".PD\n"); } # Output the current source line. $self->output ( ".\\\" [At source line $line]\n" ) if defined ($line) && DEBUG; return $text; } # First level heading. We can't output .IX in the NAME section due to a bug # in some versions of catman, so don't output a .IX for that section. .SH # already uses small caps, so remove \s0 and \s-1. Maintain IN_NAME as # appropriate. sub cmd_head1 { my ($self, $attrs, $text) = @_; $text =~ s/\\s-?\d//g; $text = $self->heading_common ($text, $$attrs{start_line}); my $isname = ($text eq 'NAME' || $text =~ /\(NAME\)/); $self->output ($self->switchquotes ('.SH', $self->mapfonts ($text))); $self->outindex ('Header', $text) unless $isname; $$self{NEEDSPACE} = 0; $$self{IN_NAME} = $isname; return ''; } # Second level heading. sub cmd_head2 { my ($self, $attrs, $text) = @_; $text = $self->heading_common ($text, $$attrs{start_line}); $self->output ($self->switchquotes ('.SS', $self->mapfonts ($text))); $self->outindex ('Subsection', $text); $$self{NEEDSPACE} = 0; return ''; } # Third level heading. *roff doesn't have this concept, so just put the # heading in italics as a normal paragraph. sub cmd_head3 { my ($self, $attrs, $text) = @_; $text = $self->heading_common ($text, $$attrs{start_line}); $self->makespace; $self->output ($self->textmapfonts ('\f(IS' . $text . '\f(IE') . "\n"); $self->outindex ('Subsection', $text); $$self{NEEDSPACE} = 1; return ''; } # Fourth level heading. *roff doesn't have this concept, so just put the # heading as a normal paragraph. sub cmd_head4 { my ($self, $attrs, $text) = @_; $text = $self->heading_common ($text, $$attrs{start_line}); $self->makespace; $self->output ($self->textmapfonts ($text) . "\n"); $self->outindex ('Subsection', $text); $$self{NEEDSPACE} = 1; return ''; } ############################################################################## # Formatting codes ############################################################################## # All of the formatting codes that aren't handled internally by the parser, # other than L<> and X<>. sub cmd_b { return $_[0]->{IN_NAME} ? $_[2] : '\f(BS' . $_[2] . '\f(BE' } sub cmd_i { return $_[0]->{IN_NAME} ? $_[2] : '\f(IS' . $_[2] . '\f(IE' } sub cmd_f { return $_[0]->{IN_NAME} ? $_[2] : '\f(IS' . $_[2] . '\f(IE' } sub cmd_c { return $_[0]->quote_literal ($_[2]) } # Index entries are just added to the pending entries. sub cmd_x { my ($self, $attrs, $text) = @_; push (@{ $$self{INDEX} }, $text); return ''; } # Links reduce to the text that we're given, wrapped in angle brackets if it's # a URL, followed by the URL. We take an option to suppress the URL if anchor # text is given. We need to format the "to" value of the link before # comparing it to the text since we may escape hyphens. sub cmd_l { my ($self, $attrs, $text) = @_; if ($$attrs{type} eq 'url') { my $to = $$attrs{to}; if (defined $to) { my $tag = $$self{PENDING}[-1]; $to = $self->format_text ($$tag[1], $to); } if (not defined ($to) or $to eq $text) { return "<$text>"; } elsif ($$self{nourls}) { return $text; } else { return "$text <$$attrs{to}>"; } } else { return $text; } } ############################################################################## # List handling ############################################################################## # Handle the beginning of an =over block. Takes the type of the block as the # first argument, and then the attr hash. This is called by the handlers for # the four different types of lists (bullet, number, text, and block). sub over_common_start { my ($self, $type, $attrs) = @_; my $line = $$attrs{start_line}; my $indent = $$attrs{indent}; DEBUG > 3 and print " Starting =over $type (line $line, indent ", ($indent || '?'), "\n"; # Find the indentation level. unless (defined ($indent) && $indent =~ /^[-+]?\d{1,4}\s*$/) { $indent = $$self{indent}; } # If we've gotten multiple indentations in a row, we need to emit the # pending indentation for the last level that we saw and haven't acted on # yet. SHIFTS is the stack of indentations that we've actually emitted # code for. if (@{ $$self{SHIFTS} } < @{ $$self{INDENTS} }) { $self->output (".RS $$self{INDENT}\n"); push (@{ $$self{SHIFTS} }, $$self{INDENT}); } # Now, do record-keeping. INDENTS is a stack of indentations that we've # seen so far, and INDENT is the current level of indentation. ITEMTYPES # is a stack of list types that we've seen. push (@{ $$self{INDENTS} }, $$self{INDENT}); push (@{ $$self{ITEMTYPES} }, $type); $$self{INDENT} = $indent + 0; $$self{SHIFTWAIT} = 1; } # End an =over block. Takes no options other than the class pointer. # Normally, once we close a block and therefore remove something from INDENTS, # INDENTS will now be longer than SHIFTS, indicating that we also need to emit # *roff code to close the indent. This isn't *always* true, depending on the # circumstance. If we're still inside an indentation, we need to emit another # .RE and then a new .RS to unconfuse *roff. sub over_common_end { my ($self) = @_; DEBUG > 3 and print " Ending =over\n"; $$self{INDENT} = pop @{ $$self{INDENTS} }; pop @{ $$self{ITEMTYPES} }; # If we emitted code for that indentation, end it. if (@{ $$self{SHIFTS} } > @{ $$self{INDENTS} }) { $self->output (".RE\n"); pop @{ $$self{SHIFTS} }; } # If we're still in an indentation, *roff will have now lost track of the # right depth of that indentation, so fix that. if (@{ $$self{INDENTS} } > 0) { $self->output (".RE\n"); $self->output (".RS $$self{INDENT}\n"); } $$self{NEEDSPACE} = 1; $$self{SHIFTWAIT} = 0; } # Dispatch the start and end calls as appropriate. sub start_over_bullet { my $s = shift; $s->over_common_start ('bullet', @_) } sub start_over_number { my $s = shift; $s->over_common_start ('number', @_) } sub start_over_text { my $s = shift; $s->over_common_start ('text', @_) } sub start_over_block { my $s = shift; $s->over_common_start ('block', @_) } sub end_over_bullet { $_[0]->over_common_end } sub end_over_number { $_[0]->over_common_end } sub end_over_text { $_[0]->over_common_end } sub end_over_block { $_[0]->over_common_end } # The common handler for all item commands. Takes the type of the item, the # attributes, and then the text of the item. # # Emit an index entry for anything that's interesting, but don't emit index # entries for things like bullets and numbers. Newlines in an item title are # turned into spaces since *roff can't handle them embedded. sub item_common { my ($self, $type, $attrs, $text) = @_; my $line = $$attrs{start_line}; DEBUG > 3 and print " $type item (line $line): $text\n"; # Clean up the text. We want to end up with two variables, one ($text) # which contains any body text after taking out the item portion, and # another ($item) which contains the actual item text. $text =~ s/\s+$//; my ($item, $index); if ($type eq 'bullet') { $item = "\\\(bu"; $text =~ s/\n*$/\n/; } elsif ($type eq 'number') { $item = $$attrs{number} . '.'; } else { $item = $text; $item =~ s/\s*\n\s*/ /g; $text = ''; $index = $item if ($item =~ /\w/); } # Take care of the indentation. If shifts and indents are equal, close # the top shift, since we're about to create an indentation with .IP. # Also output .PD 0 to turn off spacing between items if this item is # directly following another one. We only have to do that once for a # whole chain of items so do it for the second item in the change. Note # that makespace is what undoes this. if (@{ $$self{SHIFTS} } == @{ $$self{INDENTS} }) { $self->output (".RE\n"); pop @{ $$self{SHIFTS} }; } $self->output (".PD 0\n") if ($$self{ITEMS} == 1); # Now, output the item tag itself. $item = $self->textmapfonts ($item); $self->output ($self->switchquotes ('.IP', $item, $$self{INDENT})); $$self{NEEDSPACE} = 0; $$self{ITEMS}++; $$self{SHIFTWAIT} = 0; # If body text for this item was included, go ahead and output that now. if ($text) { $text =~ s/\s*$/\n/; $self->makespace; $self->output ($self->protect ($self->textmapfonts ($text))); $$self{NEEDSPACE} = 1; } $self->outindex ($index ? ('Item', $index) : ()); } # Dispatch the item commands to the appropriate place. sub cmd_item_bullet { my $self = shift; $self->item_common ('bullet', @_) } sub cmd_item_number { my $self = shift; $self->item_common ('number', @_) } sub cmd_item_text { my $self = shift; $self->item_common ('text', @_) } sub cmd_item_block { my $self = shift; $self->item_common ('block', @_) } ############################################################################## # Backward compatibility ############################################################################## # Reset the underlying Pod::Simple object between calls to parse_from_file so # that the same object can be reused to convert multiple pages. sub parse_from_file { my $self = shift; $self->reinit; # Fake the old cutting option to Pod::Parser. This fiddles with internal # Pod::Simple state and is quite ugly; we need a better approach. if (ref ($_[0]) eq 'HASH') { my $opts = shift @_; if (defined ($$opts{-cutting}) && !$$opts{-cutting}) { $$self{in_pod} = 1; $$self{last_was_blank} = 1; } } # Do the work. my $retval = $self->SUPER::parse_from_file (@_); # Flush output, since Pod::Simple doesn't do this. Ideally we should also # close the file descriptor if we had to open one, but we can't easily # figure this out. my $fh = $self->output_fh (); my $oldfh = select $fh; my $oldflush = $|; $| = 1; print $fh ''; $| = $oldflush; select $oldfh; return $retval; } # Pod::Simple failed to provide this backward compatibility function, so # implement it ourselves. File handles are one of the inputs that # parse_from_file supports. sub parse_from_filehandle { my $self = shift; return $self->parse_from_file (@_); } # Pod::Simple's parse_file doesn't set output_fh. Wrap the call and do so # ourself unless it was already set by the caller, since our documentation has # always said that this should work. sub parse_file { my ($self, $in) = @_; unless (defined $$self{output_fh}) { $self->output_fh (\*STDOUT); } return $self->SUPER::parse_file ($in); } # Do the same for parse_lines, just to be polite. Pod::Simple's man page # implies that the caller is responsible for setting this, but I don't see any # reason not to set a default. sub parse_lines { my ($self, @lines) = @_; unless (defined $$self{output_fh}) { $self->output_fh (\*STDOUT); } return $self->SUPER::parse_lines (@lines); } # Likewise for parse_string_document. sub parse_string_document { my ($self, $doc) = @_; unless (defined $$self{output_fh}) { $self->output_fh (\*STDOUT); } return $self->SUPER::parse_string_document ($doc); } ############################################################################## # Translation tables ############################################################################## # The following table is adapted from Tom Christiansen's pod2man. It assumes # that the standard preamble has already been printed, since that's what # defines all of the accent marks. We really want to do something better than # this when *roff actually supports other character sets itself, since these # results are pretty poor. # # This only works in an ASCII world. What to do in a non-ASCII world is very # unclear -- hopefully we can assume UTF-8 and just leave well enough alone. @ESCAPES{0xA0 .. 0xFF} = ( "\\ ", undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, "\\%", undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, "A\\*`", "A\\*'", "A\\*^", "A\\*~", "A\\*:", "A\\*o", "\\*(Ae", "C\\*,", "E\\*`", "E\\*'", "E\\*^", "E\\*:", "I\\*`", "I\\*'", "I\\*^", "I\\*:", "\\*(D-", "N\\*~", "O\\*`", "O\\*'", "O\\*^", "O\\*~", "O\\*:", undef, "O\\*/", "U\\*`", "U\\*'", "U\\*^", "U\\*:", "Y\\*'", "\\*(Th", "\\*8", "a\\*`", "a\\*'", "a\\*^", "a\\*~", "a\\*:", "a\\*o", "\\*(ae", "c\\*,", "e\\*`", "e\\*'", "e\\*^", "e\\*:", "i\\*`", "i\\*'", "i\\*^", "i\\*:", "\\*(d-", "n\\*~", "o\\*`", "o\\*'", "o\\*^", "o\\*~", "o\\*:", undef, "o\\*/" , "u\\*`", "u\\*'", "u\\*^", "u\\*:", "y\\*'", "\\*(th", "y\\*:", ) if ASCII; ############################################################################## # Premable ############################################################################## # The following is the static preamble which starts all *roff output we # generate. Most is static except for the font to use as a fixed-width font, # which is designed by @CFONT@, and the left and right quotes to use for C<> # text, designated by @LQOUTE@ and @RQUOTE@. However, the second part, which # defines the accent marks, is only used if $escapes is set to true. sub preamble_template { my ($self, $accents) = @_; my $preamble = <<'----END OF PREAMBLE----'; .de Sp \" Vertical space (when we can't use .PP) .if t .sp .5v .if n .sp .. .de Vb \" Begin verbatim text .ft @CFONT@ .nf .ne \\$1 .. .de Ve \" End verbatim text .ft R .fi .. .\" Set up some character translations and predefined strings. \*(-- will .\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left .\" double quote, and \*(R" will give a right double quote. \*(C+ will .\" give a nicer C++. Capital omega is used to do unbreakable dashes and .\" therefore won't be available. \*(C` and \*(C' expand to `' in nroff, .\" nothing in troff, for use with C<>. .tr \(*W- .ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p' .ie n \{\ . ds -- \(*W- . ds PI pi . if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch . if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch . ds L" "" . ds R" "" . ds C` @LQUOTE@ . ds C' @RQUOTE@ 'br\} .el\{\ . ds -- \|\(em\| . ds PI \(*p . ds L" `` . ds R" '' . ds C` . ds C' 'br\} .\" .\" Escape single quotes in literal strings from groff's Unicode transform. .ie \n(.g .ds Aq \(aq .el .ds Aq ' .\" .\" If the F register is >0, we'll generate index entries on stderr for .\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index .\" entries marked with X<> in POD. Of course, you'll have to process the .\" output yourself in some meaningful fashion. .\" .\" Avoid warning from groff about undefined register 'F'. .de IX .. .nr rF 0 .if \n(.g .if rF .nr rF 1 .if (\n(rF:(\n(.g==0)) \{\ . if \nF \{\ . de IX . tm Index:\\$1\t\\n%\t"\\$2" .. . if !\nF==2 \{\ . nr % 0 . nr F 2 . \} . \} .\} .rr rF ----END OF PREAMBLE---- #'# for cperl-mode if ($accents) { $preamble .= <<'----END OF PREAMBLE----' .\" .\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2). .\" Fear. Run. Save yourself. No user-serviceable parts. . \" fudge factors for nroff and troff .if n \{\ . ds #H 0 . ds #V .8m . ds #F .3m . ds #[ \f1 . ds #] \fP .\} .if t \{\ . ds #H ((1u-(\\\\n(.fu%2u))*.13m) . ds #V .6m . ds #F 0 . ds #[ \& . ds #] \& .\} . \" simple accents for nroff and troff .if n \{\ . ds ' \& . ds ` \& . ds ^ \& . ds , \& . ds ~ ~ . ds / .\} .if t \{\ . ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u" . ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u' . ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u' . ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u' . ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u' . ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u' .\} . \" troff and (daisy-wheel) nroff accents .ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V' .ds 8 \h'\*(#H'\(*b\h'-\*(#H' .ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#] .ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H' .ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u' .ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#] .ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#] .ds ae a\h'-(\w'a'u*4/10)'e .ds Ae A\h'-(\w'A'u*4/10)'E . \" corrections for vroff .if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u' .if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u' . \" for low resolution devices (crt and lpr) .if \n(.H>23 .if \n(.V>19 \ \{\ . ds : e . ds 8 ss . ds o a . ds d- d\h'-1'\(ga . ds D- D\h'-1'\(hy . ds th \o'bp' . ds Th \o'LP' . ds ae ae . ds Ae AE .\} .rm #[ #] #H #V #F C ----END OF PREAMBLE---- #`# for cperl-mode } return $preamble; } ############################################################################## # Module return value and documentation ############################################################################## 1; __END__ =for stopwords en em ALLCAPS teeny fixedbold fixeditalic fixedbolditalic stderr utf8 UTF-8 Allbery Sean Burke Ossanna Solaris formatters troff uppercased Christiansen nourls parsers Kernighan lquote rquote =head1 NAME Pod::Man - Convert POD data to formatted *roff input =head1 SYNOPSIS use Pod::Man; my $parser = Pod::Man->new (release => $VERSION, section => 8); # Read POD from STDIN and write to STDOUT. $parser->parse_file (\*STDIN); # Read POD from file.pod and write to file.1. $parser->parse_from_file ('file.pod', 'file.1'); =head1 DESCRIPTION Pod::Man is a module to convert documentation in the POD format (the preferred language for documenting Perl) into *roff input using the man macro set. The resulting *roff code is suitable for display on a terminal using L<nroff(1)>, normally via L<man(1)>, or printing using L<troff(1)>. It is conventionally invoked using the driver script B<pod2man>, but it can also be used directly. As a derived class from Pod::Simple, Pod::Man supports the same methods and interfaces. See L<Pod::Simple> for all the details. new() can take options, in the form of key/value pairs that control the behavior of the parser. See below for details. If no options are given, Pod::Man uses the name of the input file with any trailing C<.pod>, C<.pm>, or C<.pl> stripped as the man page title, to section 1 unless the file ended in C<.pm> in which case it defaults to section 3, to a centered title of "User Contributed Perl Documentation", to a centered footer of the Perl version it is run with, and to a left-hand footer of the modification date of its input (or the current date if given C<STDIN> for input). Pod::Man assumes that your *roff formatters have a fixed-width font named C<CW>. If yours is called something else (like C<CR>), use the C<fixed> option to specify it. This generally only matters for troff output for printing. Similarly, you can set the fonts used for bold, italic, and bold italic fixed-width output. Besides the obvious pod conversions, Pod::Man also takes care of formatting func(), func(3), and simple variable references like $foo or @bar so you don't have to use code escapes for them; complex expressions like C<$fred{'stuff'}> will still need to be escaped, though. It also translates dashes that aren't used as hyphens into en dashes, makes long dashes--like this--into proper em dashes, fixes "paired quotes," makes C++ look right, puts a little space between double underscores, makes ALLCAPS a teeny bit smaller in B<troff>, and escapes stuff that *roff treats as special so that you don't have to. The recognized options to new() are as follows. All options take a single argument. =over 4 =item center Sets the centered page header for the C<.TH> macro. The default, if this option is not specified, is "User Contributed Perl Documentation". =item date Sets the left-hand footer for the C<.TH> macro. If this option is not set, the contents of the environment variable POD_MAN_DATE, if set, will be used. Failing that, the value of SOURCE_DATE_EPOCH, the modification date of the input file, or the current time if stat() can't find that file (which will be the case if the input is from C<STDIN>) will be used. If obtained from the file modification date or the current time, the date will be formatted as C<YYYY-MM-DD> and will be based on UTC (so that the output will be reproducible regardless of local time zone). =item errors How to report errors. C<die> says to throw an exception on any POD formatting error. C<stderr> says to report errors on standard error, but not to throw an exception. C<pod> says to include a POD ERRORS section in the resulting documentation summarizing the errors. C<none> ignores POD errors entirely, as much as possible. The default is C<pod>. =item fixed The fixed-width font to use for verbatim text and code. Defaults to C<CW>. Some systems may want C<CR> instead. Only matters for B<troff> output. =item fixedbold Bold version of the fixed-width font. Defaults to C<CB>. Only matters for B<troff> output. =item fixeditalic Italic version of the fixed-width font (actually, something of a misnomer, since most fixed-width fonts only have an oblique version, not an italic version). Defaults to C<CI>. Only matters for B<troff> output. =item fixedbolditalic Bold italic (probably actually oblique) version of the fixed-width font. Pod::Man doesn't assume you have this, and defaults to C<CB>. Some systems (such as Solaris) have this font available as C<CX>. Only matters for B<troff> output. =item lquote =item rquote Sets the quote marks used to surround CE<lt>> text. C<lquote> sets the left quote mark and C<rquote> sets the right quote mark. Either may also be set to the special value C<none>, in which case no quote mark is added on that side of CE<lt>> text (but the font is still changed for troff output). Also see the C<quotes> option, which can be used to set both quotes at once. If both C<quotes> and one of the other options is set, C<lquote> or C<rquote> overrides C<quotes>. =item name Set the name of the manual page for the C<.TH> macro. Without this option, the manual name is set to the uppercased base name of the file being converted unless the manual section is 3, in which case the path is parsed to see if it is a Perl module path. If it is, a path like C<.../lib/Pod/Man.pm> is converted into a name like C<Pod::Man>. This option, if given, overrides any automatic determination of the name. If generating a manual page from standard input, the name will be set to C<STDIN> if this option is not provided. Providing this option is strongly recommended to set a meaningful manual page name. =item nourls Normally, LZ<><> formatting codes with a URL but anchor text are formatted to show both the anchor text and the URL. In other words: L<foo|http://example.com/> is formatted as: foo <http://example.com/> This option, if set to a true value, suppresses the URL when anchor text is given, so this example would be formatted as just C<foo>. This can produce less cluttered output in cases where the URLs are not particularly important. =item quotes Sets the quote marks used to surround CE<lt>> text. If the value is a single character, it is used as both the left and right quote. Otherwise, it is split in half, and the first half of the string is used as the left quote and the second is used as the right quote. This may also be set to the special value C<none>, in which case no quote marks are added around CE<lt>> text (but the font is still changed for troff output). Also see the C<lquote> and C<rquote> options, which can be used to set the left and right quotes independently. If both C<quotes> and one of the other options is set, C<lquote> or C<rquote> overrides C<quotes>. =item release Set the centered footer for the C<.TH> macro. By default, this is set to the version of Perl you run Pod::Man under. Setting this to the empty string will cause some *roff implementations to use the system default value. Note that some system C<an> macro sets assume that the centered footer will be a modification date and will prepend something like "Last modified: ". If this is the case for your target system, you may want to set C<release> to the last modified date and C<date> to the version number. =item section Set the section for the C<.TH> macro. The standard section numbering convention is to use 1 for user commands, 2 for system calls, 3 for functions, 4 for devices, 5 for file formats, 6 for games, 7 for miscellaneous information, and 8 for administrator commands. There is a lot of variation here, however; some systems (like Solaris) use 4 for file formats, 5 for miscellaneous information, and 7 for devices. Still others use 1m instead of 8, or some mix of both. About the only section numbers that are reliably consistent are 1, 2, and 3. By default, section 1 will be used unless the file ends in C<.pm> in which case section 3 will be selected. =item stderr Send error messages about invalid POD to standard error instead of appending a POD ERRORS section to the generated *roff output. This is equivalent to setting C<errors> to C<stderr> if C<errors> is not already set. It is supported for backward compatibility. =item utf8 By default, Pod::Man produces the most conservative possible *roff output to try to ensure that it will work with as many different *roff implementations as possible. Many *roff implementations cannot handle non-ASCII characters, so this means all non-ASCII characters are converted either to a *roff escape sequence that tries to create a properly accented character (at least for troff output) or to C<X>. If this option is set, Pod::Man will instead output UTF-8. If your *roff implementation can handle it, this is the best output format to use and avoids corruption of documents containing non-ASCII characters. However, be warned that *roff source with literal UTF-8 characters is not supported by many implementations and may even result in segfaults and other bad behavior. Be aware that, when using this option, the input encoding of your POD source should be properly declared unless it's US-ASCII. Pod::Simple will attempt to guess the encoding and may be successful if it's Latin-1 or UTF-8, but it will produce warnings. Use the C<=encoding> command to declare the encoding. See L<perlpod(1)> for more information. =back The standard Pod::Simple method parse_file() takes one argument naming the POD file to read from. By default, the output is sent to C<STDOUT>, but this can be changed with the output_fh() method. The standard Pod::Simple method parse_from_file() takes up to two arguments, the first being the input file to read POD from and the second being the file to write the formatted output to. You can also call parse_lines() to parse an array of lines or parse_string_document() to parse a document already in memory. As with parse_file(), parse_lines() and parse_string_document() default to sending their output to C<STDOUT> unless changed with the output_fh() method. Be aware that parse_lines() and parse_string_document() both expect raw bytes, not decoded characters. To put the output from any parse method into a string instead of a file handle, call the output_string() method instead of output_fh(). See L<Pod::Simple> for more specific details on the methods available to all derived parsers. =head1 DIAGNOSTICS =over 4 =item roff font should be 1 or 2 chars, not "%s" (F) You specified a *roff font (using C<fixed>, C<fixedbold>, etc.) that wasn't either one or two characters. Pod::Man doesn't support *roff fonts longer than two characters, although some *roff extensions do (the canonical versions of B<nroff> and B<troff> don't either). =item Invalid errors setting "%s" (F) The C<errors> parameter to the constructor was set to an unknown value. =item Invalid quote specification "%s" (F) The quote specification given (the C<quotes> option to the constructor) was invalid. A quote specification must be either one character long or an even number (greater than one) characters long. =item POD document had syntax errors (F) The POD document being formatted had syntax errors and the C<errors> option was set to C<die>. =back =head1 ENVIRONMENT =over 4 =item PERL_CORE If set and Encode is not available, silently fall back to non-UTF-8 mode without complaining to standard error. This environment variable is set during Perl core builds, which build Encode after podlators. Encode is expected to not (yet) be available in that case. =item POD_MAN_DATE If set, this will be used as the value of the left-hand footer unless the C<date> option is explicitly set, overriding the timestamp of the input file or the current time. This is primarily useful to ensure reproducible builds of the same output file given the same source and Pod::Man version, even when file timestamps may not be consistent. =item SOURCE_DATE_EPOCH If set, and POD_MAN_DATE and the C<date> options are not set, this will be used as the modification time of the source file, overriding the timestamp of the input file or the current time. It should be set to the desired time in seconds since UNIX epoch. This is primarily useful to ensure reproducible builds of the same output file given the same source and Pod::Man version, even when file timestamps may not be consistent. See L<https://reproducible-builds.org/specs/source-date-epoch/> for the full specification. (Arguably, according to the specification, this variable should be used only if the timestamp of the input file is not available and Pod::Man uses the current time. However, for reproducible builds in Debian, results were more reliable if this variable overrode the timestamp of the input file.) =back =head1 BUGS Encoding handling assumes that PerlIO is available and does not work properly if it isn't. The C<utf8> option is therefore not supported unless Perl is built with PerlIO support. There is currently no way to turn off the guesswork that tries to format unmarked text appropriately, and sometimes it isn't wanted (particularly when using POD to document something other than Perl). Most of the work toward fixing this has now been done, however, and all that's still needed is a user interface. The NAME section should be recognized specially and index entries emitted for everything in that section. This would have to be deferred until the next section, since extraneous things in NAME tends to confuse various man page processors. Currently, no index entries are emitted for anything in NAME. Pod::Man doesn't handle font names longer than two characters. Neither do most B<troff> implementations, but GNU troff does as an extension. It would be nice to support as an option for those who want to use it. The preamble added to each output file is rather verbose, and most of it is only necessary in the presence of non-ASCII characters. It would ideally be nice if all of those definitions were only output if needed, perhaps on the fly as the characters are used. Pod::Man is excessively slow. =head1 CAVEATS If Pod::Man is given the C<utf8> option, the encoding of its output file handle will be forced to UTF-8 if possible, overriding any existing encoding. This will be done even if the file handle is not created by Pod::Man and was passed in from outside. This maintains consistency regardless of PERL_UNICODE and other settings. The handling of hyphens and em dashes is somewhat fragile, and one may get the wrong one under some circumstances. This should only matter for B<troff> output. When and whether to use small caps is somewhat tricky, and Pod::Man doesn't necessarily get it right. Converting neutral double quotes to properly matched double quotes doesn't work unless there are no formatting codes between the quote marks. This only matters for troff output. =head1 AUTHOR Russ Allbery <rra@cpan.org>, based I<very> heavily on the original B<pod2man> by Tom Christiansen <tchrist@mox.perl.com>. The modifications to work with Pod::Simple instead of Pod::Parser were originally contributed by Sean Burke <sburke@cpan.org> (but I've since hacked them beyond recognition and all bugs are mine). =head1 COPYRIGHT AND LICENSE Copyright 1999-2010, 2012-2019 Russ Allbery <rra@cpan.org> Substantial contributions by Sean Burke <sburke@cpan.org>. This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO L<Pod::Simple>, L<perlpod(1)>, L<pod2man(1)>, L<nroff(1)>, L<troff(1)>, L<man(1)>, L<man(7)> Ossanna, Joseph F., and Brian W. Kernighan. "Troff User's Manual," Computing Science Technical Report No. 54, AT&T Bell Laboratories. This is the best documentation of standard B<nroff> and B<troff>. At the time of this writing, it's available at L<http://www.troff.org/54.pdf>. The man page documenting the man macro set may be L<man(5)> instead of L<man(7)> on your system. Also, please see L<pod2man(1)> for extensive documentation on writing manual pages if you've not done it before and aren't familiar with the conventions. The current version of this module is always available from its web site at L<https://www.eyrie.org/~eagle/software/podlators/>. It is also part of the Perl core distribution as of 5.6.0. =cut # Local Variables: # copyright-at-end-flag: t # End: PK ! ���N�� �� 5.34.0/Pod/Simple/Search.pmnu �[��� require 5.005; package Pod::Simple::Search; use strict; use vars qw($VERSION $MAX_VERSION_WITHIN $SLEEPY); $VERSION = '3.42'; ## Current version of this package BEGIN { *DEBUG = sub () {0} unless defined &DEBUG; } # set DEBUG level use Carp (); $SLEEPY = 1 if !defined $SLEEPY and $^O =~ /mswin|mac/i; # flag to occasionally sleep for $SLEEPY - 1 seconds. $MAX_VERSION_WITHIN ||= 60; ############################################################################# #use diagnostics; use File::Spec (); use File::Basename qw( basename dirname ); use Config (); use Cwd qw( cwd ); #========================================================================== __PACKAGE__->_accessorize( # Make my dumb accessor methods 'callback', 'progress', 'dir_prefix', 'inc', 'laborious', 'limit_glob', 'limit_re', 'shadows', 'verbose', 'name2path', 'path2name', 'recurse', 'ciseen', 'is_case_insensitive' ); #========================================================================== sub new { my $class = shift; my $self = bless {}, ref($class) || $class; $self->init; return $self; } sub init { my $self = shift; $self->inc(1); $self->recurse(1); $self->verbose(DEBUG); $self->is_case_insensitive(-e uc __FILE__ && -e lc __FILE__); return $self; } #-------------------------------------------------------------------------- sub survey { my($self, @search_dirs) = @_; $self = $self->new unless ref $self; # tolerate being a class method $self->_expand_inc( \@search_dirs ); $self->{'_scan_count'} = 0; $self->{'_dirs_visited'} = {}; $self->path2name( {} ); $self->name2path( {} ); $self->ciseen( {} ); $self->limit_re( $self->_limit_glob_to_limit_re ) if $self->{'limit_glob'}; my $cwd = cwd(); my $verbose = $self->verbose; local $_; # don't clobber the caller's $_ ! foreach my $try (@search_dirs) { unless( File::Spec->file_name_is_absolute($try) ) { # make path absolute $try = File::Spec->catfile( $cwd ,$try); } # simplify path $try = File::Spec->canonpath($try); my $start_in; my $modname_prefix; if($self->{'dir_prefix'}) { $start_in = File::Spec->catdir( $try, grep length($_), split '[\\/:]+', $self->{'dir_prefix'} ); $modname_prefix = [grep length($_), split m{[:/\\]}, $self->{'dir_prefix'}]; $verbose and print "Appending \"$self->{'dir_prefix'}\" to $try, ", "giving $start_in (= @$modname_prefix)\n"; } else { $start_in = $try; } if( $self->{'_dirs_visited'}{$start_in} ) { $verbose and print "Directory '$start_in' already seen, skipping.\n"; next; } else { $self->{'_dirs_visited'}{$start_in} = 1; } unless(-e $start_in) { $verbose and print "Skipping non-existent $start_in\n"; next; } my $closure = $self->_make_search_callback; if(-d $start_in) { # Normal case: $verbose and print "Beginning excursion under $start_in\n"; $self->_recurse_dir( $start_in, $closure, $modname_prefix ); $verbose and print "Back from excursion under $start_in\n\n"; } elsif(-f _) { # A excursion consisting of just one file! $_ = basename($start_in); $verbose and print "Pondering $start_in ($_)\n"; $closure->($start_in, $_, 0, []); } else { $verbose and print "Skipping mysterious $start_in\n"; } } $self->progress and $self->progress->done( "Noted $$self{'_scan_count'} Pod files total"); $self->ciseen( {} ); return unless defined wantarray; # void return $self->name2path unless wantarray; # scalar return $self->name2path, $self->path2name; # list } #========================================================================== sub _make_search_callback { my $self = $_[0]; # Put the options in variables, for easy access my( $laborious, $verbose, $shadows, $limit_re, $callback, $progress, $path2name, $name2path, $recurse, $ciseen, $is_case_insensitive) = map scalar($self->$_()), qw(laborious verbose shadows limit_re callback progress path2name name2path recurse ciseen is_case_insensitive); my ($seen, $remember, $files_for); if ($is_case_insensitive) { $seen = sub { $ciseen->{ lc $_[0] } }; $remember = sub { $name2path->{ $_[0] } = $ciseen->{ lc $_[0] } = $_[1]; }; $files_for = sub { my $n = lc $_[0]; grep { lc $path2name->{$_} eq $n } %{ $path2name } }; } else { $seen = sub { $name2path->{ $_[0] } }; $remember = sub { $name2path->{ $_[0] } = $_[1] }; $files_for = sub { my $n = $_[0]; grep { $path2name->{$_} eq $n } %{ $path2name } }; } my($file, $shortname, $isdir, $modname_bits); return sub { ($file, $shortname, $isdir, $modname_bits) = @_; if($isdir) { # this never gets called on the startdir itself, just subdirs unless( $recurse ) { $verbose and print "Not recursing into '$file' as per requested.\n"; return 'PRUNE'; } if( $self->{'_dirs_visited'}{$file} ) { $verbose and print "Directory '$file' already seen, skipping.\n"; return 'PRUNE'; } print "Looking in dir $file\n" if $verbose; unless ($laborious) { # $laborious overrides pruning if( m/^(\d+\.[\d_]{3,})\z/s and do { my $x = $1; $x =~ tr/_//d; $x != $] } ) { $verbose and print "Perl $] version mismatch on $_, skipping.\n"; return 'PRUNE'; } if( m/^([A-Za-z][a-zA-Z0-9_]*)\z/s ) { $verbose and print "$_ is a well-named module subdir. Looking....\n"; } else { $verbose and print "$_ is a fishy directory name. Skipping.\n"; return 'PRUNE'; } } # end unless $laborious $self->{'_dirs_visited'}{$file} = 1; return; # (not pruning); } # Make sure it's a file even worth even considering if($laborious) { unless( m/\.(pod|pm|plx?)\z/i || -x _ and -T _ # Note that the cheapest operation (the RE) is run first. ) { $verbose > 1 and print " Brushing off uninteresting $file\n"; return; } } else { unless( m/^[-_a-zA-Z0-9]+\.(?:pod|pm|plx?)\z/is ) { $verbose > 1 and print " Brushing off oddly-named $file\n"; return; } } $verbose and print "Considering item $file\n"; my $name = $self->_path2modname( $file, $shortname, $modname_bits ); $verbose > 0.01 and print " Nominating $file as $name\n"; if($limit_re and $name !~ m/$limit_re/i) { $verbose and print "Shunning $name as not matching $limit_re\n"; return; } if( !$shadows and $seen->($name) ) { $verbose and print "Not worth considering $file ", "-- already saw $name as ", join(' ', $files_for->($name)), "\n"; return; } # Put off until as late as possible the expense of # actually reading the file: $progress and $progress->reach($self->{'_scan_count'}, "Scanning $file"); return unless $self->contains_pod( $file ); ++ $self->{'_scan_count'}; # Or finally take note of it: if ( my $prev = $seen->($name) ) { $verbose and print "Duplicate POD found (shadowing?): $name ($file)\n", " Already seen in ", join(' ', $files_for->($name)), "\n"; } else { $remember->($name, $file); # Noting just the first occurrence } $verbose and print " Noting $name = $file\n"; if( $callback ) { local $_ = $_; # insulate from changes, just in case $callback->($file, $name); } $path2name->{$file} = $name; return; } } #========================================================================== sub _path2modname { my($self, $file, $shortname, $modname_bits) = @_; # this code simplifies the POD name for Perl modules: # * remove "site_perl" # * remove e.g. "i586-linux" (from 'archname') # * remove e.g. 5.00503 # * remove pod/ if followed by perl*.pod (e.g. in pod/perlfunc.pod) # * dig into the file for case-preserved name if not already mixed case my @m = @$modname_bits; my $x; my $verbose = $self->verbose; # Shaving off leading naughty-bits while(@m and defined($x = lc( $m[0] )) and( $x eq 'site_perl' or($x =~ m/^pods?$/ and @m == 1 and $shortname =~ m{^perl.*\.pod$}s ) or $x =~ m{\\d+\\.z\\d+([_.]?\\d+)?} # if looks like a vernum or $x eq lc( $Config::Config{'archname'} ) )) { shift @m } my $name = join '::', @m, $shortname; $self->_simplify_base($name); # On VMS, case-preserved document names can't be constructed from # filenames, so try to extract them from the "=head1 NAME" tag in the # file instead. if ($^O eq 'VMS' && ($name eq lc($name) || $name eq uc($name))) { open PODFILE, "<$file" or die "_path2modname: Can't open $file: $!"; my $in_pod = 0; my $in_name = 0; my $line; while ($line = <PODFILE>) { chomp $line; $in_pod = 1 if ($line =~ m/^=\w/); $in_pod = 0 if ($line =~ m/^=cut/); next unless $in_pod; # skip non-pod text next if ($line =~ m/^\s*\z/); # and blank lines next if ($in_pod && ($line =~ m/^X</)); # and commands if ($in_name) { if ($line =~ m/(\w+::)?(\w+)/) { # substitute case-preserved version of name my $podname = $2; my $prefix = $1 || ''; $verbose and print "Attempting case restore of '$name' from '$prefix$podname'\n"; unless ($name =~ s/$prefix$podname/$prefix$podname/i) { $verbose and print "Attempting case restore of '$name' from '$podname'\n"; $name =~ s/$podname/$podname/i; } last; } } $in_name = 1 if ($line =~ m/^=head1 NAME/); } close PODFILE; } return $name; } #========================================================================== sub _recurse_dir { my($self, $startdir, $callback, $modname_bits) = @_; my $maxdepth = $self->{'fs_recursion_maxdepth'} || 10; my $verbose = $self->verbose; my $here_string = File::Spec->curdir; my $up_string = File::Spec->updir; $modname_bits ||= []; my $recursor; $recursor = sub { my($dir_long, $dir_bare) = @_; if( @$modname_bits >= 10 ) { $verbose and print "Too deep! [@$modname_bits]\n"; return; } unless(-d $dir_long) { $verbose > 2 and print "But it's not a dir! $dir_long\n"; return; } unless( opendir(INDIR, $dir_long) ) { $verbose > 2 and print "Can't opendir $dir_long : $!\n"; closedir(INDIR); return } # Load all items; put no extension before .pod before .pm before .plx?. my @items = map { $_->[0] } sort { $a->[1] cmp $b->[1] || $b->[2] cmp $a->[2] } map { (my $t = $_) =~ s/[.]p(m|lx?|od)\z//; [$_, $t, lc($1 || 'z') ] } readdir(INDIR); closedir(INDIR); push @$modname_bits, $dir_bare unless $dir_bare eq ''; my $i_full; foreach my $i (@items) { next if $i eq $here_string or $i eq $up_string or $i eq ''; $i_full = File::Spec->catfile( $dir_long, $i ); if(!-r $i_full) { $verbose and print "Skipping unreadable $i_full\n"; } elsif(-f $i_full) { $_ = $i; $callback->( $i_full, $i, 0, $modname_bits ); } elsif(-d _) { $i =~ s/\.DIR\z//i if $^O eq 'VMS'; $_ = $i; my $rv = $callback->( $i_full, $i, 1, $modname_bits ) || ''; if($rv eq 'PRUNE') { $verbose > 1 and print "OK, pruning"; } else { # Otherwise, recurse into it $recursor->( File::Spec->catdir($dir_long, $i) , $i); } } else { $verbose > 1 and print "Skipping oddity $i_full\n"; } } pop @$modname_bits; return; };; local $_; $recursor->($startdir, ''); undef $recursor; # allow it to be GC'd return; } #========================================================================== sub run { # A function, useful in one-liners my $self = __PACKAGE__->new; $self->limit_glob($ARGV[0]) if @ARGV; $self->callback( sub { my($file, $name) = @_; my $version = ''; # Yes, I know we won't catch the version in like a File/Thing.pm # if we see File/Thing.pod first. That's just the way the # cookie crumbles. -- SMB if($file =~ m/\.pod$/i) { # Don't bother looking for $VERSION in .pod files DEBUG and print "Not looking for \$VERSION in .pod $file\n"; } elsif( !open(INPOD, $file) ) { DEBUG and print "Couldn't open $file: $!\n"; close(INPOD); } else { # Sane case: file is readable my $lines = 0; while(<INPOD>) { last if $lines++ > $MAX_VERSION_WITHIN; # some degree of sanity if( s/^\s*\$VERSION\s*=\s*//s and m/\d/ ) { DEBUG and print "Found version line (#$lines): $_"; s/\s*\#.*//s; s/\;\s*$//s; s/\s+$//s; s/\t+/ /s; # nix tabs # Optimize the most common cases: $_ = "v$1" if m{^v?["']?([0-9_]+(\.[0-9_]+)*)["']?$}s # like in $VERSION = "3.14159"; or m{\$Revision:\s*([0-9_]+(?:\.[0-9_]+)*)\s*\$}s # like in sprintf("%d.%02d", q$Revision: 4.13 $ =~ /(\d+)\.(\d+)/); ; # Like in sprintf("%d.%s", map {s/_//g; $_} q$Name: release-0_55-public $ =~ /-(\d+)_([\d_]+)/) $_ = sprintf("v%d.%s", map {s/_//g; $_} $1 =~ m/-(\d+)_([\d_]+)/) # snare just the numeric part if m{\$Name:\s*([^\$]+)\$}s ; $version = $_; DEBUG and print "Noting $version as version\n"; last; } } close(INPOD); } print "$name\t$version\t$file\n"; return; # End of callback! }); $self->survey; } #========================================================================== sub simplify_name { my($self, $str) = @_; # Remove all path components # XXX Why not just use basename()? -- SMB if ($^O eq 'MacOS') { $str =~ s{^.*:+}{}s } else { $str =~ s{^.*/+}{}s } $self->_simplify_base($str); return $str; } #========================================================================== sub _simplify_base { # Internal method only # strip Perl's own extensions $_[1] =~ s/\.(pod|pm|plx?)\z//i; # strip meaningless extensions on Win32 and OS/2 $_[1] =~ s/\.(bat|exe|cmd)\z//i if $^O =~ /mswin|os2/i; # strip meaningless extensions on VMS $_[1] =~ s/\.(com)\z//i if $^O eq 'VMS'; return; } #========================================================================== sub _expand_inc { my($self, $search_dirs) = @_; return unless $self->{'inc'}; my %seen = map { File::Spec->rel2abs($_) => 1 } @{ $search_dirs }; if ($^O eq 'MacOS') { push @$search_dirs, grep { !$seen{ File::Spec->rel2abs($_) }++ } $self->_mac_whammy(@INC); # Any other OSs need custom handling here? } else { push @$search_dirs, grep { !$seen{ File::Spec->rel2abs($_) }++ } @INC; } $self->{'laborious'} = 0; # Since inc said to use INC return; } #========================================================================== sub _mac_whammy { # Tolerate '.', './some_dir' and '(../)+some_dir' on Mac OS my @them; (undef,@them) = @_; for $_ (@them) { if ( $_ eq '.' ) { $_ = ':'; } elsif ( $_ =~ s|^((?:\.\./)+)|':' x (length($1)/3)|e ) { $_ = ':'. $_; } else { $_ =~ s|^\./|:|; } } return @them; } #========================================================================== sub _limit_glob_to_limit_re { my $self = $_[0]; my $limit_glob = $self->{'limit_glob'} || return; my $limit_re = '^' . quotemeta($limit_glob) . '$'; $limit_re =~ s/\\\?/./g; # glob "?" => "." $limit_re =~ s/\\\*/.*?/g; # glob "*" => ".*?" $limit_re =~ s/\.\*\?\$$//s; # final glob "*" => ".*?$" => "" $self->{'verbose'} and print "Turning limit_glob $limit_glob into re $limit_re\n"; # A common optimization: if(!exists($self->{'dir_prefix'}) and $limit_glob =~ m/^(?:\w+\:\:)+/s # like "File::*" or "File::Thing*" # Optimize for sane and common cases (but not things like "*::File") ) { $self->{'dir_prefix'} = join "::", $limit_glob =~ m/^(?:\w+::)+/sg; $self->{'verbose'} and print " and setting dir_prefix to $self->{'dir_prefix'}\n"; } return $limit_re; } #========================================================================== # contribution mostly from Tim Jenness <t.jenness@jach.hawaii.edu> sub _actual_filenames { my $dir = shift; my $fn = lc shift; opendir my ($dh), $dir or return; return map { File::Spec->catdir($dir, $_) } grep { lc $_ eq $fn } readdir $dh; } sub find { my($self, $pod, @search_dirs) = @_; $self = $self->new unless ref $self; # tolerate being a class method # Check usage Carp::carp 'Usage: \$self->find($podname, ...)' unless defined $pod and length $pod; my $verbose = $self->verbose; # Split on :: and then join the name together using File::Spec my @parts = split /::/, $pod; $verbose and print "Chomping {$pod} => {@parts}\n"; #@search_dirs = File::Spec->curdir unless @search_dirs; $self->_expand_inc(\@search_dirs); # Add location of binaries such as pod2text: push @search_dirs, $Config::Config{'scriptdir'} if $self->inc; my %seen_dir; while (my $dir = shift @search_dirs ) { next unless defined $dir and length $dir; next if $seen_dir{$dir}; $seen_dir{$dir} = 1; unless(-d $dir) { print "Directory $dir does not exist\n" if $verbose; } print "Looking in directory $dir\n" if $verbose; my $fullname = File::Spec->catfile( $dir, @parts ); print "Filename is now $fullname\n" if $verbose; foreach my $ext ('', '.pod', '.pm', '.pl') { # possible extensions my $fullext = $fullname . $ext; if ( -f $fullext and $self->contains_pod($fullext) ) { print "FOUND: $fullext\n" if $verbose; if (@parts > 1 && lc $parts[0] eq 'pod' && $self->is_case_insensitive() && $ext eq '.pod') { # Well, this file could be for a program (perldoc) but we actually # want a module (Pod::Perldoc). So see if there is a .pm with the # proper casing. my $subdir = dirname $fullext; unless (grep { $fullext eq $_ } _actual_filenames $subdir, "$parts[-1].pod") { print "# Looking for alternate spelling in $subdir\n" if $verbose; # Try the .pm file. my $pm = $fullname . '.pm'; if ( -f $pm and $self->contains_pod($pm) ) { # Prefer the .pm if its case matches. if (grep { $pm eq $_ } _actual_filenames $subdir, "$parts[-1].pm") { print "FOUND: $fullext\n" if $verbose; return $pm; } } } } return $fullext; } } # Case-insensitively Look for ./pod directories and slip them in. for my $subdir ( _actual_filenames($dir, 'pods'), _actual_filenames($dir, 'pod') ) { if (-d $subdir) { $verbose and print "Noticing $subdir and looking there...\n"; unshift @search_dirs, $subdir; } } } return undef; } #========================================================================== sub contains_pod { my($self, $file) = @_; my $verbose = $self->{'verbose'}; # check for one line of POD $verbose > 1 and print " Scanning $file for pod...\n"; unless( open(MAYBEPOD,"<$file") ) { print "Error: $file is unreadable: $!\n"; return undef; } sleep($SLEEPY - 1) if $SLEEPY; # avoid totally hogging the processor on OSs with poor process control local $_; while( <MAYBEPOD> ) { if(m/^=(head\d|pod|over|item)\b/s) { close(MAYBEPOD) || die "Bizarre error closing $file: $!\nAborting"; chomp; $verbose > 1 and print " Found some pod ($_) in $file\n"; return 1; } } close(MAYBEPOD) || die "Bizarre error closing $file: $!\nAborting"; $verbose > 1 and print " No POD in $file, skipping.\n"; return 0; } #========================================================================== sub _accessorize { # A simple-minded method-maker shift; no strict 'refs'; foreach my $attrname (@_) { *{caller() . '::' . $attrname} = sub { use strict; $Carp::CarpLevel = 1, Carp::croak( "Accessor usage: \$obj->$attrname() or \$obj->$attrname(\$new_value)" ) unless (@_ == 1 or @_ == 2) and ref $_[0]; # Read access: return $_[0]->{$attrname} if @_ == 1; # Write access: $_[0]->{$attrname} = $_[1]; return $_[0]; # RETURNS MYSELF! }; } # Ya know, they say accessories make the ensemble! return; } #========================================================================== sub _state_as_string { my $self = $_[0]; return '' unless ref $self; my @out = "{\n # State of $self ...\n"; foreach my $k (sort keys %$self) { push @out, " ", _esc($k), " => ", _esc($self->{$k}), ",\n"; } push @out, "}\n"; my $x = join '', @out; $x =~ s/^/#/mg; return $x; } sub _esc { my $in = $_[0]; return 'undef' unless defined $in; $in =~ s<([^\x20\x21\x23\x27-\x3F\x41-\x5B\x5D-\x7E])> <'\\x'.(unpack("H2",$1))>eg; return qq{"$in"}; } #========================================================================== run() unless caller; # run if "perl whatever/Search.pm" 1; #========================================================================== __END__ =head1 NAME Pod::Simple::Search - find POD documents in directory trees =head1 SYNOPSIS use Pod::Simple::Search; my $name2path = Pod::Simple::Search->new->limit_glob('LWP::*')->survey; print "Looky see what I found: ", join(' ', sort keys %$name2path), "\n"; print "LWPUA docs = ", Pod::Simple::Search->new->find('LWP::UserAgent') || "?", "\n"; =head1 DESCRIPTION B<Pod::Simple::Search> is a class that you use for running searches for Pod files. An object of this class has several attributes (mostly options for controlling search options), and some methods for searching based on those attributes. The way to use this class is to make a new object of this class, set any options, and then call one of the search options (probably C<survey> or C<find>). The sections below discuss the syntaxes for doing all that. =head1 CONSTRUCTOR This class provides the one constructor, called C<new>. It takes no parameters: use Pod::Simple::Search; my $search = Pod::Simple::Search->new; =head1 ACCESSORS This class defines several methods for setting (and, occasionally, reading) the contents of an object. With two exceptions (discussed at the end of this section), these attributes are just for controlling the way searches are carried out. Note that each of these return C<$self> when you call them as C<< $self->I<whatever(value)> >>. That's so that you can chain together set-attribute calls like this: my $name2path = Pod::Simple::Search->new -> inc(0) -> verbose(1) -> callback(\&blab) ->survey(@there); ...which works exactly as if you'd done this: my $search = Pod::Simple::Search->new; $search->inc(0); $search->verbose(1); $search->callback(\&blab); my $name2path = $search->survey(@there); =over =item $search->inc( I<true-or-false> ); This attribute, if set to a true value, means that searches should implicitly add perl's I<@INC> paths. This automatically considers paths specified in the C<PERL5LIB> environment as this is prepended to I<@INC> by the Perl interpreter itself. This attribute's default value is B<TRUE>. If you want to search only specific directories, set $self->inc(0) before calling $inc->survey or $inc->find. =item $search->verbose( I<nonnegative-number> ); This attribute, if set to a nonzero positive value, will make searches output (via C<warn>) notes about what they're doing as they do it. This option may be useful for debugging a pod-related module. This attribute's default value is zero, meaning that no C<warn> messages are produced. (Setting verbose to 1 turns on some messages, and setting it to 2 turns on even more messages, i.e., makes the following search(es) even more verbose than 1 would make them.) =item $search->limit_glob( I<some-glob-string> ); This option means that you want to limit the results just to items whose podnames match the given glob/wildcard expression. For example, you might limit your search to just "LWP::*", to search only for modules starting with "LWP::*" (but not including the module "LWP" itself); or you might limit your search to "LW*" to see only modules whose (full) names begin with "LW"; or you might search for "*Find*" to search for all modules with "Find" somewhere in their full name. (You can also use "?" in a glob expression; so "DB?" will match "DBI" and "DBD".) =item $search->callback( I<\&some_routine> ); This attribute means that every time this search sees a matching Pod file, it should call this callback routine. The routine is called with two parameters: the current file's filespec, and its pod name. (For example: C<("/etc/perljunk/File/Crunk.pm", "File::Crunk")> would be in C<@_>.) The callback routine's return value is not used for anything. This attribute's default value is false, meaning that no callback is called. =item $search->laborious( I<true-or-false> ); Unless you set this attribute to a true value, Pod::Search will apply Perl-specific heuristics to find the correct module PODs quickly. This attribute's default value is false. You won't normally need to set this to true. Specifically: Turning on this option will disable the heuristics for seeing only files with Perl-like extensions, omitting subdirectories that are numeric but do I<not> match the current Perl interpreter's version ID, suppressing F<site_perl> as a module hierarchy name, etc. =item $search->recurse( I<true-or-false> ); Unless you set this attribute to a false value, Pod::Search will recurse into subdirectories of the search directories. =item $search->shadows( I<true-or-false> ); Unless you set this attribute to a true value, Pod::Simple::Search will consider only the first file of a given modulename as it looks thru the specified directories; that is, with this option off, if Pod::Simple::Search has seen a C<somepathdir/Foo/Bar.pm> already in this search, then it won't bother looking at a C<somelaterpathdir/Foo/Bar.pm> later on in that search, because that file is merely a "shadow". But if you turn on C<< $self->shadows(1) >>, then these "shadow" files are inspected too, and are noted in the pathname2podname return hash. This attribute's default value is false; and normally you won't need to turn it on. =item $search->is_case_insensitive( I<true-or-false> ); Pod::Simple::Search will by default internally make an assumption based on the underlying filesystem where the class file is found whether it is case insensitive or not. If it is determined to be case insensitive, during survey() it may skip pod files/modules that happen to be equal to names it's already seen, ignoring case. However, it's possible to have distinct files in different directories that intentionally has the same name, just differing in case, that should be reported. Hence, you may force the behavior by setting this to true or false. =item $search->limit_re( I<some-regxp> ); Setting this attribute (to a value that's a regexp) means that you want to limit the results just to items whose podnames match the given regexp. Normally this option is not needed, and the more efficient C<limit_glob> attribute is used instead. =item $search->dir_prefix( I<some-string-value> ); Setting this attribute to a string value means that the searches should begin in the specified subdirectory name (like "Pod" or "File::Find", also expressible as "File/Find"). For example, the search option C<< $search->limit_glob("File::Find::R*") >> is the same as the combination of the search options C<< $search->limit_re("^File::Find::R") -> dir_prefix("File::Find") >>. Normally you don't need to know about the C<dir_prefix> option, but I include it in case it might prove useful for someone somewhere. (Implementationally, searching with limit_glob ends up setting limit_re and usually dir_prefix.) =item $search->progress( I<some-progress-object> ); If you set a value for this attribute, the value is expected to be an object (probably of a class that you define) that has a C<reach> method and a C<done> method. This is meant for reporting progress during the search, if you don't want to use a simple callback. Normally you don't need to know about the C<progress> option, but I include it in case it might prove useful for someone somewhere. While a search is in progress, the progress object's C<reach> and C<done> methods are called like this: # Every time a file is being scanned for pod: $progress->reach($count, "Scanning $file"); ++$count; # And then at the end of the search: $progress->done("Noted $count Pod files total"); Internally, we often set this to an object of class Pod::Simple::Progress. That class is probably undocumented, but you may wish to look at its source. =item $name2path = $self->name2path; This attribute is not a search parameter, but is used to report the result of C<survey> method, as discussed in the next section. =item $path2name = $self->path2name; This attribute is not a search parameter, but is used to report the result of C<survey> method, as discussed in the next section. =back =head1 MAIN SEARCH METHODS Once you've actually set any options you want (if any), you can go ahead and use the following methods to search for Pod files in particular ways. =head2 C<< $search->survey( @directories ) >> The method C<survey> searches for POD documents in a given set of files and/or directories. This runs the search according to the various options set by the accessors above. (For example, if the C<inc> attribute is on, as it is by default, then the perl @INC directories are implicitly added to the list of directories (if any) that you specify.) The return value of C<survey> is two hashes: =over =item C<name2path> A hash that maps from each pod-name to the filespec (like "Stuff::Thing" => "/whatever/plib/Stuff/Thing.pm") =item C<path2name> A hash that maps from each Pod filespec to its pod-name (like "/whatever/plib/Stuff/Thing.pm" => "Stuff::Thing") =back Besides saving these hashes as the hashref attributes C<name2path> and C<path2name>, calling this function also returns these hashrefs. In list context, the return value of C<< $search->survey >> is the list C<(\%name2path, \%path2name)>. In scalar context, the return value is C<\%name2path>. Or you can just call this in void context. Regardless of calling context, calling C<survey> saves its results in its C<name2path> and C<path2name> attributes. E.g., when searching in F<$HOME/perl5lib>, the file F<$HOME/perl5lib/MyModule.pm> would get the POD name I<MyModule>, whereas F<$HOME/perl5lib/Myclass/Subclass.pm> would be I<Myclass::Subclass>. The name information can be used for POD translators. Only text files containing at least one valid POD command are found. In verbose mode, a warning is printed if shadows are found (i.e., more than one POD file with the same POD name is found, e.g. F<CPAN.pm> in different directories). This usually indicates duplicate occurrences of modules in the I<@INC> search path, which is occasionally inadvertent (but is often simply a case of a user's path dir having a more recent version than the system's general path dirs in general.) The options to this argument is a list of either directories that are searched recursively, or files. (Usually you wouldn't specify files, but just dirs.) Or you can just specify an empty-list, as in $name2path; with the C<inc> option on, as it is by default. The POD names of files are the plain basenames with any Perl-like extension (.pm, .pl, .pod) stripped, and path separators replaced by C<::>'s. Calling Pod::Simple::Search->search(...) is short for Pod::Simple::Search->new->search(...). That is, a throwaway object with default attribute values is used. =head2 C<< $search->simplify_name( $str ) >> The method B<simplify_name> is equivalent to B<basename>, but also strips Perl-like extensions (.pm, .pl, .pod) and extensions like F<.bat>, F<.cmd> on Win32 and OS/2, or F<.com> on VMS, respectively. =head2 C<< $search->find( $pod ) >> =head2 C<< $search->find( $pod, @search_dirs ) >> Returns the location of a Pod file, given a Pod/module/script name (like "Foo::Bar" or "perlvar" or "perldoc"), and an idea of what files/directories to look in. It searches according to the various options set by the accessors above. (For example, if the C<inc> attribute is on, as it is by default, then the perl @INC directories are implicitly added to the list of directories (if any) that you specify.) This returns the full path of the first occurrence to the file. Package names (eg 'A::B') are automatically converted to directory names in the selected directory. Additionally, '.pm', '.pl' and '.pod' are automatically appended to the search as required. (So, for example, under Unix, "A::B" is converted to "somedir/A/B.pm", "somedir/A/B.pod", or "somedir/A/B.pl", as appropriate.) If no such Pod file is found, this method returns undef. If any of the given search directories contains a F<pod/> subdirectory, then it is searched. (That's how we manage to find F<perlfunc>, for example, which is usually in F<pod/perlfunc> in most Perl dists.) The C<verbose> and C<inc> attributes influence the behavior of this search; notably, C<inc>, if true, adds @INC I<and also $Config::Config{'scriptdir'}> to the list of directories to search. It is common to simply say C<< $filename = Pod::Simple::Search-> new ->find("perlvar") >> so that just the @INC (well, and scriptdir) directories are searched. (This happens because the C<inc> attribute is true by default.) Calling Pod::Simple::Search->find(...) is short for Pod::Simple::Search->new->find(...). That is, a throwaway object with default attribute values is used. =head2 C<< $self->contains_pod( $file ) >> Returns true if the supplied filename (not POD module) contains some Pod documentation. =head1 SUPPORT Questions or discussion about POD and Pod::Simple should be sent to the pod-people@perl.org mail list. Send an empty email to pod-people-subscribe@perl.org to subscribe. This module is managed in an open GitHub repository, L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <bug-pod-simple@rt.cpan.org>. =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2002 Sean M. Burke. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Pod::Simple was created by Sean M. Burke <sburke@cpan.org> with code borrowed from Marek Rouchal's L<Pod::Find>, which in turn heavily borrowed code from Nick Ing-Simmons' C<PodToHtml>. But don't bother him, he's retired. Pod::Simple is maintained by: =over =item * Allison Randal C<allison@perl.org> =item * Hans Dieter Pearcey C<hdp@cpan.org> =item * David E. Wheeler C<dwheeler@cpan.org> =back =cut PK ! �8�M� � 5.34.0/Pod/Simple/DumpAsXML.pmnu �[��� require 5; package Pod::Simple::DumpAsXML; $VERSION = '3.42'; use Pod::Simple (); BEGIN {@ISA = ('Pod::Simple')} use strict; use Carp (); use Text::Wrap qw(wrap); BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG } sub new { my $self = shift; my $new = $self->SUPER::new(@_); $new->{'output_fh'} ||= *STDOUT{IO}; $new->accept_codes('VerbatimFormatted'); $new->keep_encoding_directive(1); return $new; } #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ sub _handle_element_start { # ($self, $element_name, $attr_hash_r) my $fh = $_[0]{'output_fh'}; my($key, $value); DEBUG and print STDERR "++ $_[1]\n"; print $fh ' ' x ($_[0]{'indent'} || 0), "<", $_[1]; foreach my $key (sort keys %{$_[2]}) { unless($key =~ m/^~/s) { next if $key eq 'start_line' and $_[0]{'hide_line_numbers'}; _xml_escape($value = $_[2]{$key}); print $fh ' ', $key, '="', $value, '"'; } } print $fh ">\n"; $_[0]{'indent'}++; return; } sub _handle_text { DEBUG and print STDERR "== \"$_[1]\"\n"; if(length $_[1]) { my $indent = ' ' x $_[0]{'indent'}; my $text = $_[1]; _xml_escape($text); local $Text::Wrap::huge = 'overflow'; $text = wrap('', $indent, $text); print {$_[0]{'output_fh'}} $indent, $text, "\n"; } return; } sub _handle_element_end { DEBUG and print STDERR "-- $_[1]\n"; print {$_[0]{'output_fh'}} ' ' x --$_[0]{'indent'}, "</", $_[1], ">\n"; return; } # . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . sub _xml_escape { foreach my $x (@_) { # Escape things very cautiously: if ($] ge 5.007_003) { $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(utf8::native_to_unicode(ord($1))).';'/eg; } else { # Is broken for non-ASCII platforms on early perls $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg; } # Yes, stipulate the list without a range, so that this can work right on # all charsets that this module happens to run under. } return; } #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 1; __END__ =head1 NAME Pod::Simple::DumpAsXML -- turn Pod into XML =head1 SYNOPSIS perl -MPod::Simple::DumpAsXML -e \ "exit Pod::Simple::DumpAsXML->filter(shift)->any_errata_seen" \ thingy.pod =head1 DESCRIPTION Pod::Simple::DumpAsXML is a subclass of L<Pod::Simple> that parses Pod and turns it into indented and wrapped XML. This class is of interest to people writing Pod formatters based on Pod::Simple. Pod::Simple::DumpAsXML inherits methods from L<Pod::Simple>. =head1 SEE ALSO L<Pod::Simple::XMLOutStream> is rather like this class. Pod::Simple::XMLOutStream's output is space-padded in a way that's better for sending to an XML processor (that is, it has no ignorable whitespace). But Pod::Simple::DumpAsXML's output is much more human-readable, being (more-or-less) one token per line, with line-wrapping. L<Pod::Simple::DumpAsText> is rather like this class, except that it doesn't dump with XML syntax. Try them and see which one you like best! L<Pod::Simple>, L<Pod::Simple::DumpAsXML> The older libraries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX> =head1 SUPPORT Questions or discussion about POD and Pod::Simple should be sent to the pod-people@perl.org mail list. Send an empty email to pod-people-subscribe@perl.org to subscribe. This module is managed in an open GitHub repository, L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <bug-pod-simple@rt.cpan.org>. =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2002 Sean M. Burke. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Pod::Simple was created by Sean M. Burke <sburke@cpan.org>. But don't bother him, he's retired. Pod::Simple is maintained by: =over =item * Allison Randal C<allison@perl.org> =item * Hans Dieter Pearcey C<hdp@cpan.org> =item * David E. Wheeler C<dwheeler@cpan.org> =back =cut PK ! hª�LJ LJ 5.34.0/Pod/Simple/HTML.pmnu �[��� require 5; package Pod::Simple::HTML; use strict; use Pod::Simple::PullParser (); use vars qw( @ISA %Tagmap $Computerese $LamePad $Linearization_Limit $VERSION $Perldoc_URL_Prefix $Perldoc_URL_Postfix $Man_URL_Prefix $Man_URL_Postfix $Title_Prefix $Title_Postfix $HTML_EXTENSION %ToIndex $Doctype_decl $Content_decl ); @ISA = ('Pod::Simple::PullParser'); $VERSION = '3.42'; BEGIN { if(defined &DEBUG) { } # no-op elsif( defined &Pod::Simple::DEBUG ) { *DEBUG = \&Pod::Simple::DEBUG } else { *DEBUG = sub () {0}; } } $Doctype_decl ||= ''; # No. Just No. Don't even ask me for it. # qq{<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" # "http://www.w3.org/TR/html4/loose.dtd">\n}; $Content_decl ||= q{<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" >}; $HTML_EXTENSION = '.html' unless defined $HTML_EXTENSION; $Computerese = "" unless defined $Computerese; $LamePad = '' unless defined $LamePad; $Linearization_Limit = 120 unless defined $Linearization_Limit; # headings/items longer than that won't get an <a name="..."> $Perldoc_URL_Prefix = 'https://metacpan.org/pod/' unless defined $Perldoc_URL_Prefix; $Perldoc_URL_Postfix = '' unless defined $Perldoc_URL_Postfix; $Man_URL_Prefix = 'http://man.he.net/man'; $Man_URL_Postfix = ''; $Title_Prefix = '' unless defined $Title_Prefix; $Title_Postfix = '' unless defined $Title_Postfix; %ToIndex = map {; $_ => 1 } qw(head1 head2 head3 head4 ); # item-text # 'item-text' stuff in the index doesn't quite work, and may # not be a good idea anyhow. __PACKAGE__->_accessorize( 'perldoc_url_prefix', # In turning L<Foo::Bar> into http://whatever/Foo%3a%3aBar, what # to put before the "Foo%3a%3aBar". # (for singleton mode only?) 'perldoc_url_postfix', # what to put after "Foo%3a%3aBar" in the URL. Normally "". 'man_url_prefix', # In turning L<crontab(5)> into http://whatever/man/1/crontab, what # to put before the "1/crontab". 'man_url_postfix', # what to put after the "1/crontab" in the URL. Normally "". 'batch_mode', # whether we're in batch mode 'batch_mode_current_level', # When in batch mode, how deep the current module is: 1 for "LWP", # 2 for "LWP::Procotol", 3 for "LWP::Protocol::GHTTP", etc 'title_prefix', 'title_postfix', # What to put before and after the title in the head. # Should already be &-escaped 'html_h_level', 'html_header_before_title', 'html_header_after_title', 'html_footer', 'top_anchor', 'index', # whether to add an index at the top of each page # (actually it's a table-of-contents, but we'll call it an index, # out of apparently longstanding habit) 'html_css', # URL of CSS file to point to 'html_javascript', # URL of Javascript file to point to 'force_title', # should already be &-escaped 'default_title', # should already be &-escaped ); #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ my @_to_accept; %Tagmap = ( 'Verbatim' => "\n<pre$Computerese>", '/Verbatim' => "</pre>\n", 'VerbatimFormatted' => "\n<pre$Computerese>", '/VerbatimFormatted' => "</pre>\n", 'VerbatimB' => "<b>", '/VerbatimB' => "</b>", 'VerbatimI' => "<i>", '/VerbatimI' => "</i>", 'VerbatimBI' => "<b><i>", '/VerbatimBI' => "</i></b>", 'Data' => "\n", '/Data' => "\n", 'head1' => "\n<h1>", # And also stick in an <a name="..."> 'head2' => "\n<h2>", # '' 'head3' => "\n<h3>", # '' 'head4' => "\n<h4>", # '' 'head5' => "\n<h5>", # '' 'head6' => "\n<h6>", # '' '/head1' => "</a></h1>\n", '/head2' => "</a></h2>\n", '/head3' => "</a></h3>\n", '/head4' => "</a></h4>\n", '/head5' => "</a></h5>\n", '/head6' => "</a></h6>\n", 'X' => "<!--\n\tINDEX: ", '/X' => "\n-->", changes(qw( Para=p B=b I=i over-bullet=ul over-number=ol over-text=dl over-block=blockquote item-bullet=li item-number=li item-text=dt )), changes2( map {; m/^([-a-z]+)/s && push @_to_accept, $1; $_ } qw[ sample=samp definition=dfn keyboard=kbd variable=var citation=cite abbreviation=abbr acronym=acronym subscript=sub superscript=sup big=big small=small underline=u strikethrough=s preformat=pre teletype=tt ] # no point in providing a way to get <q>...</q>, I think ), '/item-bullet' => "</li>$LamePad\n", '/item-number' => "</li>$LamePad\n", '/item-text' => "</a></dt>$LamePad\n", 'item-body' => "\n<dd>", '/item-body' => "</dd>\n", 'B' => "<b>", '/B' => "</b>", 'I' => "<i>", '/I' => "</i>", 'F' => "<em$Computerese>", '/F' => "</em>", 'C' => "<code$Computerese>", '/C' => "</code>", 'L' => "<a href='YOU_SHOULD_NEVER_SEE_THIS'>", # ideally never used! '/L' => "</a>", ); sub changes { return map {; m/^([-_:0-9a-zA-Z]+)=([-_:0-9a-zA-Z]+)$/s ? ( $1, => "\n<$2>", "/$1", => "</$2>\n" ) : die "Funky $_" } @_; } sub changes2 { return map {; m/^([-_:0-9a-zA-Z]+)=([-_:0-9a-zA-Z]+)$/s ? ( $1, => "<$2>", "/$1", => "</$2>" ) : die "Funky $_" } @_; } #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ sub go { Pod::Simple::HTML->parse_from_file(@ARGV); exit 0 } # Just so we can run from the command line. No options. # For that, use perldoc! #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ sub new { my $new = shift->SUPER::new(@_); #$new->nix_X_codes(1); $new->nbsp_for_S(1); $new->accept_targets( 'html', 'HTML' ); $new->accept_codes('VerbatimFormatted'); $new->accept_codes(@_to_accept); DEBUG > 2 and print STDERR "To accept: ", join(' ',@_to_accept), "\n"; $new->perldoc_url_prefix( $Perldoc_URL_Prefix ); $new->perldoc_url_postfix( $Perldoc_URL_Postfix ); $new->man_url_prefix( $Man_URL_Prefix ); $new->man_url_postfix( $Man_URL_Postfix ); $new->title_prefix( $Title_Prefix ); $new->title_postfix( $Title_Postfix ); $new->html_header_before_title( qq[$Doctype_decl<html><head><title>] ); $new->html_header_after_title( join "\n" => "</title>", $Content_decl, "</head>\n<body class='pod'>", $new->version_tag_comment, "<!-- start doc -->\n", ); $new->html_footer( qq[\n<!-- end doc -->\n\n</body></html>\n] ); $new->top_anchor( "<a name='___top' class='dummyTopAnchor' ></a>\n" ); $new->{'Tagmap'} = {%Tagmap}; return $new; } sub __adjust_html_h_levels { my ($self) = @_; my $Tagmap = $self->{'Tagmap'}; my $add = $self->html_h_level; return unless defined $add; return if ($self->{'Adjusted_html_h_levels'}||0) == $add; $add -= 1; for (1 .. 6) { $Tagmap->{"head$_"} =~ s/$_/$_ + $add/e; $Tagmap->{"/head$_"} =~ s/$_/$_ + $add/e; } } sub batch_mode_page_object_init { my($self, $batchconvobj, $module, $infile, $outfile, $depth) = @_; DEBUG and print STDERR "Initting $self\n for $module\n", " in $infile\n out $outfile\n depth $depth\n"; $self->batch_mode(1); $self->batch_mode_current_level($depth); return $self; } sub run { my $self = $_[0]; return $self->do_middle if $self->bare_output; return $self->do_beginning && $self->do_middle && $self->do_end; } #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ sub do_beginning { my $self = $_[0]; my $title; if(defined $self->force_title) { $title = $self->force_title; DEBUG and print STDERR "Forcing title to be $title\n"; } else { # Actually try looking for the title in the document: $title = $self->get_short_title(); unless($self->content_seen) { DEBUG and print STDERR "No content seen in search for title.\n"; return; } $self->{'Title'} = $title; if(defined $title and $title =~ m/\S/) { $title = $self->title_prefix . esc($title) . $self->title_postfix; } else { $title = $self->default_title; $title = '' unless defined $title; DEBUG and print STDERR "Title defaults to $title\n"; } } my $after = $self->html_header_after_title || ''; if($self->html_css) { my $link = $self->html_css =~ m/</ ? $self->html_css # It's a big blob of markup, let's drop it in : sprintf( # It's just a URL, so let's wrap it up qq[<link rel="stylesheet" type="text/css" title="pod_stylesheet" href="%s">\n], $self->html_css, ); $after =~ s{(</head>)}{$link\n$1}i; # otherwise nevermind } $self->_add_top_anchor(\$after); if($self->html_javascript) { my $link = $self->html_javascript =~ m/</ ? $self->html_javascript # It's a big blob of markup, let's drop it in : sprintf( # It's just a URL, so let's wrap it up qq[<script type="text/javascript" src="%s"></script>\n], $self->html_javascript, ); $after =~ s{(</head>)}{$link\n$1}i; # otherwise nevermind } print {$self->{'output_fh'}} $self->html_header_before_title || '', $title, # already escaped $after, ; DEBUG and print STDERR "Returning from do_beginning...\n"; return 1; } sub _add_top_anchor { my($self, $text_r) = @_; unless($$text_r and $$text_r =~ m/name=['"]___top['"]/) { # a hack $$text_r .= $self->top_anchor || ''; } return; } sub version_tag_comment { my $self = shift; return sprintf "<!--\n generated by %s v%s,\n using %s v%s,\n under Perl v%s at %s GMT.\n\n %s\n\n-->\n", esc( ref($self), $self->VERSION(), $ISA[0], $ISA[0]->VERSION(), $], scalar(gmtime($ENV{SOURCE_DATE_EPOCH} || time)), ), $self->_modnote(), ; } sub _modnote { my $class = ref($_[0]) || $_[0]; return join "\n " => grep m/\S/, split "\n", qq{ If you want to change this HTML document, you probably shouldn't do that by changing it directly. Instead, see about changing the calling options to $class, and/or subclassing $class, then reconverting this document from the Pod source. When in doubt, email the author of $class for advice. See 'perldoc $class' for more info. }; } sub do_end { my $self = $_[0]; print {$self->{'output_fh'}} $self->html_footer || ''; return 1; } # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # Normally this would just be a call to _do_middle_main_loop -- but we # have to do some elaborate things to emit all the content and then # summarize it and output it /before/ the content that it's a summary of. sub do_middle { my $self = $_[0]; return $self->_do_middle_main_loop unless $self->index; if( $self->output_string ) { # An efficiency hack my $out = $self->output_string; #it's a reference to it my $sneakytag = "\f\f\e\e\b\bIndex Here\e\e\b\b\f\f\n"; $$out .= $sneakytag; $self->_do_middle_main_loop; $sneakytag = quotemeta($sneakytag); my $index = $self->index_as_html(); if( $$out =~ s/$sneakytag/$index/s ) { # Expected case DEBUG and print STDERR "Inserted ", length($index), " bytes of index HTML into $out.\n"; } else { DEBUG and print STDERR "Odd, couldn't find where to insert the index in the output!\n"; # I don't think this should ever happen. } return 1; } unless( $self->output_fh ) { require Carp; Carp::confess("Parser object \$p doesn't seem to have any output object! I don't know how to deal with that."); } # If we get here, we're outputting to a FH. So we need to do some magic. # Namely, divert all content to a string, which we output after the index. my $fh = $self->output_fh; my $content = ''; { # Our horrible bait and switch: $self->output_string( \$content ); $self->_do_middle_main_loop; $self->abandon_output_string(); $self->output_fh($fh); } print $fh $self->index_as_html(); print $fh $content; return 1; } ########################################################################### sub index_as_html { my $self = $_[0]; # This is meant to be called AFTER the input document has been parsed! my $points = $self->{'PSHTML_index_points'} || []; @$points > 1 or return qq[<div class='indexgroupEmpty'></div>\n]; # There's no point in having a 0-item or 1-item index, I dare say. my(@out) = qq{\n<div class='indexgroup'>}; my $level = 0; my( $target_level, $previous_tagname, $tagname, $text, $anchorname, $indent); foreach my $p (@$points, ['head0', '(end)']) { ($tagname, $text) = @$p; $anchorname = $self->section_escape($text); if( $tagname =~ m{^head(\d+)$} ) { $target_level = 0 + $1; } else { # must be some kinda list item if($previous_tagname =~ m{^head\d+$} ) { $target_level = $level + 1; } else { $target_level = $level; # no change needed } } # Get to target_level by opening or closing ULs while($level > $target_level) { --$level; push @out, (" " x $level) . "</ul>"; } while($level < $target_level) { ++$level; push @out, (" " x ($level-1)) . "<ul class='indexList indexList$level'>"; } $previous_tagname = $tagname; next unless $level; $indent = ' ' x $level; push @out, sprintf "%s<li class='indexItem indexItem%s'><a href='#%s'>%s</a>", $indent, $level, esc($anchorname), esc($text) ; } push @out, "</div>\n"; return join "\n", @out; } ########################################################################### sub _do_middle_main_loop { my $self = $_[0]; my $fh = $self->{'output_fh'}; my $tagmap = $self->{'Tagmap'}; $self->__adjust_html_h_levels; my($token, $type, $tagname, $linkto, $linktype); my @stack; my $dont_wrap = 0; while($token = $self->get_token) { # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - if( ($type = $token->type) eq 'start' ) { if(($tagname = $token->tagname) eq 'L') { $linktype = $token->attr('type') || 'insane'; $linkto = $self->do_link($token); if(defined $linkto and length $linkto) { esc($linkto); # (Yes, SGML-escaping applies on top of %-escaping! # But it's rarely noticeable in practice.) print $fh qq{<a href="$linkto" class="podlink$linktype"\n>}; } else { print $fh "<a>"; # Yes, an 'a' element with no attributes! } } elsif ($tagname eq 'item-text' or $tagname =~ m/^head\d$/s) { print $fh $tagmap->{$tagname} || next; my @to_unget; while(1) { push @to_unget, $self->get_token; last if $to_unget[-1]->is_end and $to_unget[-1]->tagname eq $tagname; # TODO: support for X<...>'s found in here? (maybe hack into linearize_tokens) } my $name = $self->linearize_tokens(@to_unget); $name = $self->do_section($name, $token) if defined $name; print $fh "<a "; if ($tagname =~ m/^head\d$/s) { print $fh "class='u'", $self->index ? " href='#___top' title='click to go to top of document'\n" : "\n"; } if(defined $name) { my $esc = esc( $self->section_name_tidy( $name ) ); print $fh qq[name="$esc"]; DEBUG and print STDERR "Linearized ", scalar(@to_unget), " tokens as \"$name\".\n"; push @{ $self->{'PSHTML_index_points'} }, [$tagname, $name] if $ToIndex{ $tagname }; # Obviously, this discards all formatting codes (saving # just their content), but ahwell. } else { # ludicrously long, so nevermind DEBUG and print STDERR "Linearized ", scalar(@to_unget), " tokens, but it was too long, so nevermind.\n"; } print $fh "\n>"; $self->unget_token(@to_unget); } elsif ($tagname eq 'Data') { my $next = $self->get_token; next unless defined $next; unless( $next->type eq 'text' ) { $self->unget_token($next); next; } DEBUG and print STDERR " raw text ", $next->text, "\n"; # The parser sometimes preserves newlines and sometimes doesn't! (my $text = $next->text) =~ s/\n\z//; print $fh $text, "\n"; next; } else { if( $tagname =~ m/^over-/s ) { push @stack, ''; } elsif( $tagname =~ m/^item-/s and @stack and $stack[-1] ) { print $fh $stack[-1]; $stack[-1] = ''; } print $fh $tagmap->{$tagname} || next; ++$dont_wrap if $tagname eq 'Verbatim' or $tagname eq "VerbatimFormatted" or $tagname eq 'X'; } # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - } elsif( $type eq 'end' ) { if( ($tagname = $token->tagname) =~ m/^over-/s ) { if( my $end = pop @stack ) { print $fh $end; } } elsif( $tagname =~ m/^item-/s and @stack) { $stack[-1] = $tagmap->{"/$tagname"}; if( $tagname eq 'item-text' and defined(my $next = $self->get_token) ) { $self->unget_token($next); if( $next->type eq 'start' ) { print $fh $tagmap->{"/item-text"},$tagmap->{"item-body"}; $stack[-1] = $tagmap->{"/item-body"}; } } next; } print $fh $tagmap->{"/$tagname"} || next; --$dont_wrap if $tagname eq 'Verbatim' or $tagname eq 'X'; # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - } elsif( $type eq 'text' ) { esc($type = $token->text); # reuse $type, why not $type =~ s/([\?\!\"\'\.\,]) /$1\n/g unless $dont_wrap; print $fh $type; } } return 1; } ########################################################################### # sub do_section { my($self, $name, $token) = @_; return $name; } sub do_link { my($self, $token) = @_; my $type = $token->attr('type'); if(!defined $type) { $self->whine("Typeless L!?", $token->attr('start_line')); } elsif( $type eq 'pod') { return $self->do_pod_link($token); } elsif( $type eq 'url') { return $self->do_url_link($token); } elsif( $type eq 'man') { return $self->do_man_link($token); } else { $self->whine("L of unknown type $type!?", $token->attr('start_line')); } return 'FNORG'; # should never get called } # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - sub do_url_link { return $_[1]->attr('to') } sub do_man_link { my ($self, $link) = @_; my $to = $link->attr('to'); my $frag = $link->attr('section'); return undef unless defined $to and length $to; # should never happen $frag = $self->section_escape($frag) if defined $frag and length($frag .= ''); # (stringify) DEBUG and print STDERR "Resolving \"$to/$frag\"\n\n"; return $self->resolve_man_page_link($to, $frag); } sub do_pod_link { # And now things get really messy... my($self, $link) = @_; my $to = $link->attr('to'); my $section = $link->attr('section'); return undef unless( # should never happen (defined $to and length $to) or (defined $section and length $section) ); $section = $self->section_escape($section) if defined $section and length($section .= ''); # (stringify) DEBUG and printf STDERR "Resolving \"%s\" \"%s\"...\n", $to || "(nil)", $section || "(nil)"; { # An early hack: my $complete_url = $self->resolve_pod_link_by_table($to, $section); if( $complete_url ) { DEBUG > 1 and print STDERR "resolve_pod_link_by_table(T,S) gives ", $complete_url, "\n (Returning that.)\n"; return $complete_url; } else { DEBUG > 4 and print STDERR " resolve_pod_link_by_table(T,S)", " didn't return anything interesting.\n"; } } if(defined $to and length $to) { # Give this routine first hack again my $there = $self->resolve_pod_link_by_table($to); if(defined $there and length $there) { DEBUG > 1 and print STDERR "resolve_pod_link_by_table(T) gives $there\n"; } else { $there = $self->resolve_pod_page_link($to, $section); # (I pass it the section value, but I don't see a # particular reason it'd use it.) DEBUG > 1 and print STDERR "resolve_pod_page_link gives ", $there || "(nil)", "\n"; unless( defined $there and length $there ) { DEBUG and print STDERR "Can't resolve $to\n"; return undef; } # resolve_pod_page_link returning undef is how it # can signal that it gives up on making a link } $to = $there; } #DEBUG and print STDERR "So far [", $to||'nil', "] [", $section||'nil', "]\n"; my $out = (defined $to and length $to) ? $to : ''; $out .= "#" . $section if defined $section and length $section; unless(length $out) { # sanity check DEBUG and printf STDERR "Oddly, couldn't resolve \"%s\" \"%s\"...\n", $to || "(nil)", $section || "(nil)"; return undef; } DEBUG and print STDERR "Resolved to $out\n"; return $out; } # . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . sub section_escape { my($self, $section) = @_; return $self->section_url_escape( $self->section_name_tidy($section) ); } sub section_name_tidy { my($self, $section) = @_; $section =~ s/^\s+//; $section =~ s/\s+$//; $section =~ tr/ /_/; if ($] ge 5.006) { $section =~ s/[[:cntrl:][:^ascii:]]//g; # drop crazy characters } elsif ('A' eq chr(65)) { # But not on early EBCDIC $section =~ tr/\x00-\x1F\x80-\x9F//d; } $section = $self->unicode_escape_url($section); $section = '_' unless length $section; return $section; } sub section_url_escape { shift->general_url_escape(@_) } sub pagepath_url_escape { shift->general_url_escape(@_) } sub manpage_url_escape { shift->general_url_escape(@_) } sub general_url_escape { my($self, $string) = @_; $string =~ s/([^\x00-\xFF])/join '', map sprintf('%%%02X',$_), unpack 'C*', $1/eg; # express Unicode things as urlencode(utf(orig)). # A pretty conservative escaping, behoovey even for query components # of a URL (see RFC 2396) if ($] ge 5.007_003) { $string =~ s/([^-_\.!~*()abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf('%%%02X',utf8::native_to_unicode(ord($1)))/eg; } else { # Is broken for non-ASCII platforms on early perls $string =~ s/([^-_\.!~*()abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf('%%%02X',ord($1))/eg; } # Yes, stipulate the list without a range, so that this can work right on # all charsets that this module happens to run under. return $string; } #-------------------------------------------------------------------------- # # Oh look, a yawning portal to Hell! Let's play touch football right by it! # sub resolve_pod_page_link { # resolve_pod_page_link must return a properly escaped URL my $self = shift; return $self->batch_mode() ? $self->resolve_pod_page_link_batch_mode(@_) : $self->resolve_pod_page_link_singleton_mode(@_) ; } sub resolve_pod_page_link_singleton_mode { my($self, $it) = @_; return undef unless defined $it and length $it; my $url = $self->pagepath_url_escape($it); $url =~ s{::$}{}s; # probably never comes up anyway $url =~ s{::}{/}g unless $self->perldoc_url_prefix =~ m/\?/s; # sane DWIM? return undef unless length $url; return $self->perldoc_url_prefix . $url . $self->perldoc_url_postfix; } sub resolve_pod_page_link_batch_mode { my($self, $to) = @_; DEBUG > 1 and print STDERR " During batch mode, resolving $to ...\n"; my @path = grep length($_), split m/::/s, $to, -1; unless( @path ) { # sanity DEBUG and print STDERR "Very odd! Splitting $to gives (nil)!\n"; return undef; } $self->batch_mode_rectify_path(\@path); my $out = join('/', map $self->pagepath_url_escape($_), @path) . $HTML_EXTENSION; DEBUG > 1 and print STDERR " => $out\n"; return $out; } sub batch_mode_rectify_path { my($self, $pathbits) = @_; my $level = $self->batch_mode_current_level; $level--; # how many levels up to go to get to the root if($level < 1) { unshift @$pathbits, '.'; # just to be pretty } else { unshift @$pathbits, ('..') x $level; } return; } sub resolve_man_page_link { my ($self, $to, $frag) = @_; my ($page, $section) = $to =~ /^([^(]+)(?:[(](\d+)[)])?$/; return undef unless defined $page and length $page; $section ||= 1; return $self->man_url_prefix . "$section/" . $self->manpage_url_escape($page) . $self->man_url_postfix; } #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ sub resolve_pod_link_by_table { # A crazy hack to allow specifying custom L<foo> => URL mappings return unless $_[0]->{'podhtml_LOT'}; # An optimizy shortcut my($self, $to, $section) = @_; # TODO: add a method that actually populates podhtml_LOT from a file? if(defined $section) { $to = '' unless defined $to and length $to; return $self->{'podhtml_LOT'}{"$to#$section"}; # quite possibly undef! } else { return $self->{'podhtml_LOT'}{$to}; # quite possibly undef! } return; } ########################################################################### sub linearize_tokens { # self, tokens my $self = shift; my $out = ''; my $t; while($t = shift @_) { if(!ref $t or !UNIVERSAL::can($t, 'is_text')) { $out .= $t; # a string, or some insane thing } elsif($t->is_text) { $out .= $t->text; } elsif($t->is_start and $t->tag eq 'X') { # Ignore until the end of this X<...> sequence: my $x_open = 1; while($x_open) { next if( ($t = shift @_)->is_text ); if( $t->is_start and $t->tag eq 'X') { ++$x_open } elsif($t->is_end and $t->tag eq 'X') { --$x_open } } } } return undef if length $out > $Linearization_Limit; return $out; } #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ sub unicode_escape_url { my($self, $string) = @_; $string =~ s/([^\x00-\xFF])/'('.ord($1).')'/eg; # Turn char 1234 into "(1234)" return $string; } #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ sub esc { # a function. if(defined wantarray) { if(wantarray) { @_ = splice @_; # break aliasing } else { my $x = shift; if ($] ge 5.007_003) { $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(utf8::native_to_unicode(ord($1))).';'/eg; } else { # Is broken for non-ASCII platforms on early perls $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg; } return $x; } } foreach my $x (@_) { # Escape things very cautiously: if (defined $x) { if ($] ge 5.007_003) { $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(utf8::native_to_unicode(ord($1))).';'/eg } else { # Is broken for non-ASCII platforms on early perls $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg } } # Leave out "- so that "--" won't make it thru in X-generated comments # with text in them. # Yes, stipulate the list without a range, so that this can work right on # all charsets that this module happens to run under. } return @_; } #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 1; __END__ =head1 NAME Pod::Simple::HTML - convert Pod to HTML =head1 SYNOPSIS perl -MPod::Simple::HTML -e Pod::Simple::HTML::go thingy.pod =head1 DESCRIPTION This class is for making an HTML rendering of a Pod document. This is a subclass of L<Pod::Simple::PullParser> and inherits all its methods (and options). Note that if you want to do a batch conversion of a lot of Pod documents to HTML, you should see the module L<Pod::Simple::HTMLBatch>. =head1 CALLING FROM THE COMMAND LINE TODO perl -MPod::Simple::HTML -e Pod::Simple::HTML::go Thing.pod Thing.html =head1 CALLING FROM PERL =head2 Minimal code use Pod::Simple::HTML; my $p = Pod::Simple::HTML->new; $p->output_string(\my $html); $p->parse_file('path/to/Module/Name.pm'); open my $out, '>', 'out.html' or die "Cannot open 'out.html': $!\n"; print $out $html; =head2 More detailed example use Pod::Simple::HTML; Set the content type: $Pod::Simple::HTML::Content_decl = q{<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" >}; my $p = Pod::Simple::HTML->new; Include a single javascript source: $p->html_javascript('http://abc.com/a.js'); Or insert multiple javascript source in the header (or for that matter include anything, thought this is not recommended) $p->html_javascript(' <script type="text/javascript" src="http://abc.com/b.js"></script> <script type="text/javascript" src="http://abc.com/c.js"></script>'); Include a single css source in the header: $p->html_css('/style.css'); or insert multiple css sources: $p->html_css(' <link rel="stylesheet" type="text/css" title="pod_stylesheet" href="http://remote.server.com/jquery.css"> <link rel="stylesheet" type="text/css" title="pod_stylesheet" href="/style.css">'); Tell the parser where should the output go. In this case it will be placed in the $html variable: my $html; $p->output_string(\$html); Parse and process a file with pod in it: $p->parse_file('path/to/Module/Name.pm'); =head1 METHODS TODO all (most?) accessorized methods The following variables need to be set B<before> the call to the ->new constructor. Set the string that is included before the opening <html> tag: $Pod::Simple::HTML::Doctype_decl = qq{<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">\n}; Set the content-type in the HTML head: (defaults to ISO-8859-1) $Pod::Simple::HTML::Content_decl = q{<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" >}; Set the value that will be embedded in the opening tags of F, C tags and verbatim text. F maps to <em>, C maps to <code>, Verbatim text maps to <pre> (Computerese defaults to "") $Pod::Simple::HTML::Computerese = ' class="some_class_name'; =head2 html_css =head2 html_javascript =head2 title_prefix =head2 title_postfix =head2 html_header_before_title This includes everything before the <title> opening tag including the Document type and including the opening <title> tag. The following call will set it to be a simple HTML file: $p->html_header_before_title('<html><head><title>'); =head2 top_anchor By default Pod::Simple::HTML adds a dummy anchor at the top of the HTML. You can change it by calling $p->top_anchor('<a name="zz" >'); =head2 html_h_level Normally =head1 will become <h1>, =head2 will become <h2> etc. Using the html_h_level method will change these levels setting the h level of =head1 tags: $p->html_h_level(3); Will make sure that =head1 will become <h3> and =head2 will become <h4> etc... =head2 index Set it to some true value if you want to have an index (in reality a table of contents) to be added at the top of the generated HTML. $p->index(1); =head2 html_header_after_title Includes the closing tag of </title> and through the rest of the head till the opening of the body $p->html_header_after_title('</title>...</head><body id="my_id">'); =head2 html_footer The very end of the document: $p->html_footer( qq[\n<!-- end doc -->\n\n</body></html>\n] ); =head1 SUBCLASSING Can use any of the methods described above but for further customization one needs to override some of the methods: package My::Pod; use strict; use warnings; use base 'Pod::Simple::HTML'; # needs to return a URL string such # http://some.other.com/page.html # #anchor_in_the_same_file # /internal/ref.html sub do_pod_link { # My::Pod object and Pod::Simple::PullParserStartToken object my ($self, $link) = @_; say $link->tagname; # will be L for links say $link->attr('to'); # say $link->attr('type'); # will be 'pod' always say $link->attr('section'); # Links local to our web site if ($link->tagname eq 'L' and $link->attr('type') eq 'pod') { my $to = $link->attr('to'); if ($to =~ /^Padre::/) { $to =~ s{::}{/}g; return "/docs/Padre/$to.html"; } } # all other links are generated by the parent class my $ret = $self->SUPER::do_pod_link($link); return $ret; } 1; Meanwhile in script.pl: use My::Pod; my $p = My::Pod->new; my $html; $p->output_string(\$html); $p->parse_file('path/to/Module/Name.pm'); open my $out, '>', 'out.html' or die; print $out $html; TODO maybe override do_beginning do_end =head1 SEE ALSO L<Pod::Simple>, L<Pod::Simple::HTMLBatch> TODO: a corpus of sample Pod input and HTML output? Or common idioms? =head1 SUPPORT Questions or discussion about POD and Pod::Simple should be sent to the pod-people@perl.org mail list. Send an empty email to pod-people-subscribe@perl.org to subscribe. This module is managed in an open GitHub repository, L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <bug-pod-simple@rt.cpan.org>. =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2002-2004 Sean M. Burke. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 ACKNOWLEDGEMENTS Thanks to L<Hurricane Electric|http://he.net/> for permission to use its L<Linux man pages online|http://man.he.net/> site for man page links. Thanks to L<search.cpan.org|http://search.cpan.org/> for permission to use the site for Perl module links. =head1 AUTHOR Pod::Simple was created by Sean M. Burke <sburke@cpan.org>. But don't bother him, he's retired. Pod::Simple is maintained by: =over =item * Allison Randal C<allison@perl.org> =item * Hans Dieter Pearcey C<hdp@cpan.org> =item * David E. Wheeler C<dwheeler@cpan.org> =back =cut PK ! �((�� � 5.34.0/Pod/Simple/DumpAsText.pmnu �[��� require 5; package Pod::Simple::DumpAsText; $VERSION = '3.42'; use Pod::Simple (); BEGIN {@ISA = ('Pod::Simple')} use strict; use Carp (); BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG } sub new { my $self = shift; my $new = $self->SUPER::new(@_); $new->{'output_fh'} ||= *STDOUT{IO}; $new->accept_codes('VerbatimFormatted'); $new->keep_encoding_directive(1); return $new; } #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ sub _handle_element_start { # ($self, $element_name, $attr_hash_r) my $fh = $_[0]{'output_fh'}; my($key, $value); DEBUG and print STDERR "++ $_[1]\n"; print $fh ' ' x ($_[0]{'indent'} || 0), "++", $_[1], "\n"; $_[0]{'indent'}++; while(($key,$value) = each %{$_[2]}) { unless($key =~ m/^~/s) { next if $key eq 'start_line' and $_[0]{'hide_line_numbers'}; _perly_escape($key); _perly_escape($value); printf $fh qq{%s \\ "%s" => "%s"\n}, ' ' x ($_[0]{'indent'} || 0), $key, $value; } } return; } sub _handle_text { DEBUG and print STDERR "== \"$_[1]\"\n"; if(length $_[1]) { my $indent = ' ' x $_[0]{'indent'}; my $text = $_[1]; _perly_escape($text); $text =~ # A not-totally-brilliant wrapping algorithm: s/( [^\n]{55} # Snare some characters from a line [^\n\ ]{0,50} # and finish any current word ) \ {1,10}(?!\n) # capture some spaces not at line-end /$1"\n$indent . "/gx # => line-break here ; print {$_[0]{'output_fh'}} $indent, '* "', $text, "\"\n"; } return; } sub _handle_element_end { DEBUG and print STDERR "-- $_[1]\n"; print {$_[0]{'output_fh'}} ' ' x --$_[0]{'indent'}, "--", $_[1], "\n"; return; } # . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . sub _perly_escape { foreach my $x (@_) { $x =~ s/([^\x00-\xFF])/sprintf'\x{%X}',ord($1)/eg; # Escape things very cautiously: $x =~ s/([^-\n\t \&\<\>\'!\#\%\(\)\*\+,\.\/\:\;=\?\~\[\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf'\x%02X',ord($1)/eg; } return; } #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 1; __END__ =head1 NAME Pod::Simple::DumpAsText -- dump Pod-parsing events as text =head1 SYNOPSIS perl -MPod::Simple::DumpAsText -e \ "exit Pod::Simple::DumpAsText->filter(shift)->any_errata_seen" \ thingy.pod =head1 DESCRIPTION This class is for dumping, as text, the events gotten from parsing a Pod document. This class is of interest to people writing Pod formatters based on Pod::Simple. It is useful for seeing exactly what events you get out of some Pod that you feed in. This is a subclass of L<Pod::Simple> and inherits all its methods. =head1 SEE ALSO L<Pod::Simple::DumpAsXML> L<Pod::Simple> =head1 SUPPORT Questions or discussion about POD and Pod::Simple should be sent to the pod-people@perl.org mail list. Send an empty email to pod-people-subscribe@perl.org to subscribe. This module is managed in an open GitHub repository, L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <bug-pod-simple@rt.cpan.org>. =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2002 Sean M. Burke. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Pod::Simple was created by Sean M. Burke <sburke@cpan.org>. But don't bother him, he's retired. Pod::Simple is maintained by: =over =item * Allison Randal C<allison@perl.org> =item * Hans Dieter Pearcey C<hdp@cpan.org> =item * David E. Wheeler C<dwheeler@cpan.org> =back =cut PK ! ��h+ 5.34.0/Pod/Simple/Debug.pmnu �[��� require 5; package Pod::Simple::Debug; use strict; use vars qw($VERSION ); $VERSION = '3.42'; sub import { my($value,$variable); if(@_ == 2) { $value = $_[1]; } elsif(@_ == 3) { ($variable, $value) = @_[1,2]; ($variable, $value) = ($value, $variable) if defined $value and ref($value) eq 'SCALAR' and not(defined $variable and ref($variable) eq 'SCALAR') ; # tolerate getting it backwards unless( defined $variable and ref($variable) eq 'SCALAR') { require Carp; Carp::croak("Usage:\n use Pod::Simple::Debug (NUMVAL)\nor" . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\nAborting"); } } else { require Carp; Carp::croak("Usage:\n use Pod::Simple::Debug (NUMVAL)\nor" . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\nAborting"); } if( defined &Pod::Simple::DEBUG ) { require Carp; Carp::croak("It's too late to call Pod::Simple::Debug -- " . "Pod::Simple has already loaded\nAborting"); } $value = 0 unless defined $value; unless($value =~ m/^-?\d+$/) { require Carp; Carp::croak( "$value isn't a numeric value." . "\nUsage:\n use Pod::Simple::Debug (NUMVAL)\nor" . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\nAborting"); } if( defined $variable ) { # make a not-really-constant *Pod::Simple::DEBUG = sub () { $$variable } ; $$variable = $value; print STDERR "# Starting Pod::Simple::DEBUG = non-constant $variable with val $value\n"; } else { *Pod::Simple::DEBUG = eval " sub () { $value } "; print STDERR "# Starting Pod::Simple::DEBUG = $value\n"; } require Pod::Simple; return; } 1; __END__ =head1 NAME Pod::Simple::Debug -- put Pod::Simple into trace/debug mode =head1 SYNOPSIS use Pod::Simple::Debug (5); # or some integer Or: my $debuglevel; use Pod::Simple::Debug (\$debuglevel, 0); ...some stuff that uses Pod::Simple to do stuff, but which you don't want debug output from... $debug_level = 4; ...some stuff that uses Pod::Simple to do stuff, but which you DO want debug output from... $debug_level = 0; =head1 DESCRIPTION This is an internal module for controlling the debug level (a.k.a. trace level) of Pod::Simple. This is of interest only to Pod::Simple developers. =head1 CAVEATS Note that you should load this module I<before> loading Pod::Simple (or any Pod::Simple-based class). If you try loading Pod::Simple::Debug after &Pod::Simple::DEBUG is already defined, Pod::Simple::Debug will throw a fatal error to the effect that "It's too late to call Pod::Simple::Debug". Note that the C<use Pod::Simple::Debug (\$x, I<somenum>)> mode will make Pod::Simple (et al) run rather slower, since &Pod::Simple::DEBUG won't be a constant sub anymore, and so Pod::Simple (et al) won't compile with constant-folding. =head1 GUTS Doing this: use Pod::Simple::Debug (5); # or some integer is basically equivalent to: BEGIN { sub Pod::Simple::DEBUG () {5} } # or some integer use Pod::Simple (); And this: use Pod::Simple::Debug (\$debug_level,0); # or some integer is basically equivalent to this: my $debug_level; BEGIN { $debug_level = 0 } BEGIN { sub Pod::Simple::DEBUG () { $debug_level } use Pod::Simple (); =head1 SEE ALSO L<Pod::Simple> The article "Constants in Perl", in I<The Perl Journal> issue 21. See L<http://interglacial.com/tpj/21/> =head1 SUPPORT Questions or discussion about POD and Pod::Simple should be sent to the pod-people@perl.org mail list. Send an empty email to pod-people-subscribe@perl.org to subscribe. This module is managed in an open GitHub repository, L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <bug-pod-simple@rt.cpan.org>. =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2002 Sean M. Burke. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Pod::Simple was created by Sean M. Burke <sburke@cpan.org>. But don't bother him, he's retired. Pod::Simple is maintained by: =over =item * Allison Randal C<allison@perl.org> =item * Hans Dieter Pearcey C<hdp@cpan.org> =item * David E. Wheeler C<dwheeler@cpan.org> =back =cut PK ! ��o;� � 5.34.0/Pod/Simple/LinkSection.pmnu �[��� require 5; package Pod::Simple::LinkSection; # Based somewhat dimly on Array::Autojoin use strict; use Pod::Simple::BlackBox; use vars qw($VERSION ); $VERSION = '3.42'; use overload( # So it'll stringify nice '""' => \&Pod::Simple::BlackBox::stringify_lol, 'bool' => \&Pod::Simple::BlackBox::stringify_lol, # '.=' => \&tack_on, # grudgingly support 'fallback' => 1, # turn on cleverness ); sub tack_on { $_[0] = ['', {}, "$_[0]" ]; return $_[0][2] .= $_[1]; } sub as_string { goto &Pod::Simple::BlackBox::stringify_lol; } sub stringify { goto &Pod::Simple::BlackBox::stringify_lol; } sub new { my $class = shift; $class = ref($class) || $class; my $new; if(@_ == 1) { if (!ref($_[0] || '')) { # most common case: one bare string return bless ['', {}, $_[0] ], $class; } elsif( ref($_[0] || '') eq 'ARRAY') { $new = [ @{ $_[0] } ]; } else { Carp::croak( "$class new() doesn't know to clone $new" ); } } else { # misc stuff $new = [ '', {}, @_ ]; } # By now it's a treelet: [ 'foo', {}, ... ] foreach my $x (@$new) { if(ref($x || '') eq 'ARRAY') { $x = $class->new($x); # recurse } elsif(ref($x || '') eq 'HASH') { $x = { %$x }; } # otherwise leave it. } return bless $new, $class; } # Not much in this class is likely to be link-section specific -- # but it just so happens that link-sections are about the only treelets # that are exposed to the user. 1; __END__ # TODO: let it be an option whether a given subclass even wants little treelets? __END__ =head1 NAME Pod::Simple::LinkSection -- represent "section" attributes of L codes =head1 SYNOPSIS # a long story =head1 DESCRIPTION This class is not of interest to general users. Pod::Simple uses this class for representing the value of the "section" attribute of "L" start-element events. Most applications can just use the normal stringification of objects of this class; they stringify to just the text content of the section, such as "foo" for C<< LZ<><Stuff/foo> >>, and "bar" for C<< LZ<><Stuff/bIZ<><ar>> >>. However, anyone particularly interested in getting the full value of the treelet, can just traverse the content of the treeleet @$treelet_object. To wit: % perl -MData::Dumper -e "use base qw(Pod::Simple::Methody); sub start_L { print Dumper($_[1]{'section'} ) } __PACKAGE__->new->parse_string_document('=head1 L<Foo/bI<ar>baz>>') " Output: $VAR1 = bless( [ '', {}, 'b', bless( [ 'I', {}, 'ar' ], 'Pod::Simple::LinkSection' ), 'baz' ], 'Pod::Simple::LinkSection' ); But stringify it and you get just the text content: % perl -MData::Dumper -e "use base qw(Pod::Simple::Methody); sub start_L { print Dumper( '' . $_[1]{'section'} ) } __PACKAGE__->new->parse_string_document('=head1 L<Foo/bI<ar>baz>>') " Output: $VAR1 = 'barbaz'; =head1 SEE ALSO L<Pod::Simple> =head1 SUPPORT Questions or discussion about POD and Pod::Simple should be sent to the pod-people@perl.org mail list. Send an empty email to pod-people-subscribe@perl.org to subscribe. This module is managed in an open GitHub repository, L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <bug-pod-simple@rt.cpan.org>. =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2004 Sean M. Burke. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Pod::Simple was created by Sean M. Burke <sburke@cpan.org>. But don't bother him, he's retired. Pod::Simple is maintained by: =over =item * Allison Randal C<allison@perl.org> =item * Hans Dieter Pearcey C<hdp@cpan.org> =item * David E. Wheeler C<dwheeler@cpan.org> =back =cut PK ! ��i�g �g 5.34.0/Pod/Simple/XHTML.pmnu �[��� =pod =head1 NAME Pod::Simple::XHTML -- format Pod as validating XHTML =head1 SYNOPSIS use Pod::Simple::XHTML; my $parser = Pod::Simple::XHTML->new(); ... $parser->parse_file('path/to/file.pod'); =head1 DESCRIPTION This class is a formatter that takes Pod and renders it as XHTML validating HTML. This is a subclass of L<Pod::Simple::Methody> and inherits all its methods. The implementation is entirely different than L<Pod::Simple::HTML>, but it largely preserves the same interface. =head2 Minimal code use Pod::Simple::XHTML; my $psx = Pod::Simple::XHTML->new; $psx->output_string(\my $html); $psx->parse_file('path/to/Module/Name.pm'); open my $out, '>', 'out.html' or die "Cannot open 'out.html': $!\n"; print $out $html; You can also control the character encoding and entities. For example, if you're sure that the POD is properly encoded (using the C<=encoding> command), you can prevent high-bit characters from being encoded as HTML entities and declare the output character set as UTF-8 before parsing, like so: $psx->html_charset('UTF-8'); $psx->html_encode_chars(q{&<>'"}); =cut package Pod::Simple::XHTML; use strict; use vars qw( $VERSION @ISA $HAS_HTML_ENTITIES ); $VERSION = '3.42'; use Pod::Simple::Methody (); @ISA = ('Pod::Simple::Methody'); BEGIN { $HAS_HTML_ENTITIES = eval "require HTML::Entities; 1"; } my %entities = ( q{>} => 'gt', q{<} => 'lt', q{'} => '#39', q{"} => 'quot', q{&} => 'amp', ); sub encode_entities { my $self = shift; my $ents = $self->html_encode_chars; return HTML::Entities::encode_entities( $_[0], $ents ) if $HAS_HTML_ENTITIES; if (defined $ents) { $ents =~ s,(?<!\\)([]/]),\\$1,g; $ents =~ s,(?<!\\)\\\z,\\\\,; } else { $ents = join '', keys %entities; } my $str = $_[0]; $str =~ s/([$ents])/'&' . ($entities{$1} || sprintf '#x%X', ord $1) . ';'/ge; return $str; } #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ =head1 METHODS Pod::Simple::XHTML offers a number of methods that modify the format of the HTML output. Call these after creating the parser object, but before the call to C<parse_file>: my $parser = Pod::PseudoPod::HTML->new(); $parser->set_optional_param("value"); $parser->parse_file($file); =head2 perldoc_url_prefix In turning L<Foo::Bar> into http://whatever/Foo%3a%3aBar, what to put before the "Foo%3a%3aBar". The default value is "https://metacpan.org/pod/". =head2 perldoc_url_postfix What to put after "Foo%3a%3aBar" in the URL. This option is not set by default. =head2 man_url_prefix In turning C<< L<crontab(5)> >> into http://whatever/man/1/crontab, what to put before the "1/crontab". The default value is "http://man.he.net/man". =head2 man_url_postfix What to put after "1/crontab" in the URL. This option is not set by default. =head2 title_prefix, title_postfix What to put before and after the title in the head. The values should already be &-escaped. =head2 html_css $parser->html_css('path/to/style.css'); The URL or relative path of a CSS file to include. This option is not set by default. =head2 html_javascript The URL or relative path of a JavaScript file to pull in. This option is not set by default. =head2 html_doctype A document type tag for the file. This option is not set by default. =head2 html_charset The character set to declare in the Content-Type meta tag created by default for C<html_header_tags>. Note that this option will be ignored if the value of C<html_header_tags> is changed. Defaults to "ISO-8859-1". =head2 html_header_tags Additional arbitrary HTML tags for the header of the document. The default value is just a content type header tag: <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1"> Add additional meta tags here, or blocks of inline CSS or JavaScript (wrapped in the appropriate tags). =head3 html_encode_chars A string containing all characters that should be encoded as HTML entities, specified using the regular expression character class syntax (what you find within brackets in regular expressions). This value will be passed as the second argument to the C<encode_entities> function of L<HTML::Entities>. If L<HTML::Entities> is not installed, then any characters other than C<&<>"'> will be encoded numerically. =head2 html_h_level This is the level of HTML "Hn" element to which a Pod "head1" corresponds. For example, if C<html_h_level> is set to 2, a head1 will produce an H2, a head2 will produce an H3, and so on. =head2 default_title Set a default title for the page if no title can be determined from the content. The value of this string should already be &-escaped. =head2 force_title Force a title for the page (don't try to determine it from the content). The value of this string should already be &-escaped. =head2 html_header, html_footer Set the HTML output at the beginning and end of each file. The default header includes a title, a doctype tag (if C<html_doctype> is set), a content tag (customized by C<html_header_tags>), a tag for a CSS file (if C<html_css> is set), and a tag for a Javascript file (if C<html_javascript> is set). The default footer simply closes the C<html> and C<body> tags. The options listed above customize parts of the default header, but setting C<html_header> or C<html_footer> completely overrides the built-in header or footer. These may be useful if you want to use template tags instead of literal HTML headers and footers or are integrating converted POD pages in a larger website. If you want no headers or footers output in the HTML, set these options to the empty string. =head2 index Whether to add a table-of-contents at the top of each page (called an index for the sake of tradition). =head2 anchor_items Whether to anchor every definition C<=item> directive. This needs to be enabled if you want to be able to link to specific C<=item> directives, which are output as C<< <dt> >> elements. Disabled by default. =head2 backlink Whether to turn every =head1 directive into a link pointing to the top of the page (specifically, the opening body tag). =cut __PACKAGE__->_accessorize( 'perldoc_url_prefix', 'perldoc_url_postfix', 'man_url_prefix', 'man_url_postfix', 'title_prefix', 'title_postfix', 'html_css', 'html_javascript', 'html_doctype', 'html_charset', 'html_encode_chars', 'html_h_level', 'title', # Used internally for the title extracted from the content 'default_title', 'force_title', 'html_header', 'html_footer', 'index', 'anchor_items', 'backlink', 'batch_mode', # whether we're in batch mode 'batch_mode_current_level', # When in batch mode, how deep the current module is: 1 for "LWP", # 2 for "LWP::Procotol", 3 for "LWP::Protocol::GHTTP", etc ); #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ =head1 SUBCLASSING If the standard options aren't enough, you may want to subclass Pod::Simple::XHMTL. These are the most likely candidates for methods you'll want to override when subclassing. =cut sub new { my $self = shift; my $new = $self->SUPER::new(@_); $new->{'output_fh'} ||= *STDOUT{IO}; $new->perldoc_url_prefix('https://metacpan.org/pod/'); $new->man_url_prefix('http://man.he.net/man'); $new->html_charset('ISO-8859-1'); $new->nix_X_codes(1); $new->{'scratch'} = ''; $new->{'to_index'} = []; $new->{'output'} = []; $new->{'saved'} = []; $new->{'ids'} = { '_podtop_' => 1 }; # used in <body> $new->{'in_li'} = []; $new->{'__region_targets'} = []; $new->{'__literal_targets'} = {}; $new->accept_targets_as_html( 'html', 'HTML' ); return $new; } sub html_header_tags { my $self = shift; return $self->{html_header_tags} = shift if @_; return $self->{html_header_tags} ||= '<meta http-equiv="Content-Type" content="text/html; charset=' . $self->html_charset . '" />'; } #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ =head2 handle_text This method handles the body of text within any element: it's the body of a paragraph, or everything between a "=begin" tag and the corresponding "=end" tag, or the text within an L entity, etc. You would want to override this if you are adding a custom element type that does more than just display formatted text. Perhaps adding a way to generate HTML tables from an extended version of POD. So, let's say you want to add a custom element called 'foo'. In your subclass's C<new> method, after calling C<SUPER::new> you'd call: $new->accept_targets_as_text( 'foo' ); Then override the C<start_for> method in the subclass to check for when "$flags->{'target'}" is equal to 'foo' and set a flag that marks that you're in a foo block (maybe "$self->{'in_foo'} = 1"). Then override the C<handle_text> method to check for the flag, and pass $text to your custom subroutine to construct the HTML output for 'foo' elements, something like: sub handle_text { my ($self, $text) = @_; if ($self->{'in_foo'}) { $self->{'scratch'} .= build_foo_html($text); return; } $self->SUPER::handle_text($text); } =head2 handle_code This method handles the body of text that is marked up to be code. You might for instance override this to plug in a syntax highlighter. The base implementation just escapes the text. The callback methods C<start_code> and C<end_code> emits the C<code> tags before and after C<handle_code> is invoked, so you might want to override these together with C<handle_code> if this wrapping isn't suitable. Note that the code might be broken into multiple segments if there are nested formatting codes inside a C<< CE<lt>...> >> sequence. In between the calls to C<handle_code> other markup tags might have been emitted in that case. The same is true for verbatim sections if the C<codes_in_verbatim> option is turned on. =head2 accept_targets_as_html This method behaves like C<accept_targets_as_text>, but also marks the region as one whose content should be emitted literally, without HTML entity escaping or wrapping in a C<div> element. =cut sub __in_literal_xhtml_region { return unless @{ $_[0]{__region_targets} }; my $target = $_[0]{__region_targets}[-1]; return $_[0]{__literal_targets}{ $target }; } sub accept_targets_as_html { my ($self, @targets) = @_; $self->accept_targets(@targets); $self->{__literal_targets}{$_} = 1 for @targets; } sub handle_text { # escape special characters in HTML (<, >, &, etc) my $text = $_[0]->__in_literal_xhtml_region ? $_[1] : $_[0]->encode_entities( $_[1] ); if ($_[0]{'in_code'} && @{$_[0]{'in_code'}}) { # Intentionally use the raw text in $_[1], even if we're not in a # literal xhtml region, since handle_code calls encode_entities. $_[0]->handle_code( $_[1], $_[0]{'in_code'}[-1] ); } else { if ($_[0]->{in_for}) { my $newlines = $_[0]->__in_literal_xhtml_region ? "\n\n" : ''; if ($_[0]->{started_for}) { if ($text =~ /\S/) { delete $_[0]->{started_for}; $_[0]{'scratch'} .= $text . $newlines; } # Otherwise, append nothing until we have something to append. } else { # The parser sometimes preserves newlines and sometimes doesn't! $text =~ s/\n\z//; $_[0]{'scratch'} .= $text . $newlines; } } else { # Just plain text. $_[0]{'scratch'} .= $text; } } $_[0]{htext} .= $text if $_[0]{'in_head'}; } sub start_code { $_[0]{'scratch'} .= '<code>'; } sub end_code { $_[0]{'scratch'} .= '</code>'; } sub handle_code { $_[0]{'scratch'} .= $_[0]->encode_entities( $_[1] ); } sub start_Para { $_[0]{'scratch'} .= '<p>'; } sub start_Verbatim { $_[0]{'scratch'} = '<pre>'; push(@{$_[0]{'in_code'}}, 'Verbatim'); $_[0]->start_code($_[0]{'in_code'}[-1]); } sub start_head1 { $_[0]{'in_head'} = 1; $_[0]{htext} = ''; } sub start_head2 { $_[0]{'in_head'} = 2; $_[0]{htext} = ''; } sub start_head3 { $_[0]{'in_head'} = 3; $_[0]{htext} = ''; } sub start_head4 { $_[0]{'in_head'} = 4; $_[0]{htext} = ''; } sub start_head5 { $_[0]{'in_head'} = 5; $_[0]{htext} = ''; } sub start_head6 { $_[0]{'in_head'} = 6; $_[0]{htext} = ''; } sub start_item_number { $_[0]{'scratch'} = "</li>\n" if ($_[0]{'in_li'}->[-1] && pop @{$_[0]{'in_li'}}); $_[0]{'scratch'} .= '<li><p>'; push @{$_[0]{'in_li'}}, 1; } sub start_item_bullet { $_[0]{'scratch'} = "</li>\n" if ($_[0]{'in_li'}->[-1] && pop @{$_[0]{'in_li'}}); $_[0]{'scratch'} .= '<li><p>'; push @{$_[0]{'in_li'}}, 1; } sub start_item_text { # see end_item_text } sub start_over_bullet { $_[0]{'scratch'} = '<ul>'; push @{$_[0]{'in_li'}}, 0; $_[0]->emit } sub start_over_block { $_[0]{'scratch'} = '<ul>'; $_[0]->emit } sub start_over_number { $_[0]{'scratch'} = '<ol>'; push @{$_[0]{'in_li'}}, 0; $_[0]->emit } sub start_over_text { $_[0]{'scratch'} = '<dl>'; $_[0]{'dl_level'}++; $_[0]{'in_dd'} ||= []; $_[0]->emit } sub end_over_block { $_[0]{'scratch'} .= '</ul>'; $_[0]->emit } sub end_over_number { $_[0]{'scratch'} = "</li>\n" if ( pop @{$_[0]{'in_li'}} ); $_[0]{'scratch'} .= '</ol>'; pop @{$_[0]{'in_li'}}; $_[0]->emit; } sub end_over_bullet { $_[0]{'scratch'} = "</li>\n" if ( pop @{$_[0]{'in_li'}} ); $_[0]{'scratch'} .= '</ul>'; pop @{$_[0]{'in_li'}}; $_[0]->emit; } sub end_over_text { if ($_[0]{'in_dd'}[ $_[0]{'dl_level'} ]) { $_[0]{'scratch'} = "</dd>\n"; $_[0]{'in_dd'}[ $_[0]{'dl_level'} ] = 0; } $_[0]{'scratch'} .= '</dl>'; $_[0]{'dl_level'}--; $_[0]->emit; } # . . . . . Now the actual formatters: sub end_Para { $_[0]{'scratch'} .= '</p>'; $_[0]->emit } sub end_Verbatim { $_[0]->end_code(pop(@{$_[0]->{'in_code'}})); $_[0]{'scratch'} .= '</pre>'; $_[0]->emit; } sub _end_head { my $h = delete $_[0]{in_head}; my $add = $_[0]->html_h_level; $add = 1 unless defined $add; $h += $add - 1; my $id = $_[0]->idify($_[0]{htext}); my $text = $_[0]{scratch}; $_[0]{'scratch'} = $_[0]->backlink && ($h - $add == 0) # backlinks enabled && =head1 ? qq{<a href="#_podtop_"><h$h id="$id">$text</h$h></a>} : qq{<h$h id="$id">$text</h$h>}; $_[0]->emit; push @{ $_[0]{'to_index'} }, [$h, $id, delete $_[0]{'htext'}]; } sub end_head1 { shift->_end_head(@_); } sub end_head2 { shift->_end_head(@_); } sub end_head3 { shift->_end_head(@_); } sub end_head4 { shift->_end_head(@_); } sub end_head5 { shift->_end_head(@_); } sub end_head6 { shift->_end_head(@_); } sub end_item_bullet { $_[0]{'scratch'} .= '</p>'; $_[0]->emit } sub end_item_number { $_[0]{'scratch'} .= '</p>'; $_[0]->emit } sub end_item_text { # idify and anchor =item content if wanted my $dt_id = $_[0]{'anchor_items'} ? ' id="'. $_[0]->idify($_[0]{'scratch'}) .'"' : ''; # reset scratch my $text = $_[0]{scratch}; $_[0]{'scratch'} = ''; if ($_[0]{'in_dd'}[ $_[0]{'dl_level'} ]) { $_[0]{'scratch'} = "</dd>\n"; $_[0]{'in_dd'}[ $_[0]{'dl_level'} ] = 0; } $_[0]{'scratch'} .= qq{<dt$dt_id>$text</dt>\n<dd>}; $_[0]{'in_dd'}[ $_[0]{'dl_level'} ] = 1; $_[0]->emit; } # This handles =begin and =for blocks of all kinds. sub start_for { my ($self, $flags) = @_; push @{ $self->{__region_targets} }, $flags->{target_matching}; $self->{started_for} = 1; $self->{in_for} = 1; unless ($self->__in_literal_xhtml_region) { $self->{scratch} .= '<div'; $self->{scratch} .= qq( class="$flags->{target}") if $flags->{target}; $self->{scratch} .= ">\n\n"; } } sub end_for { my ($self) = @_; delete $self->{started_for}; delete $self->{in_for}; if ($self->__in_literal_xhtml_region) { # Remove trailine newlines. $self->{'scratch'} =~ s/\s+\z//s; } else { $self->{'scratch'} .= '</div>'; } pop @{ $self->{__region_targets} }; $self->emit; } sub start_Document { my ($self) = @_; if (defined $self->html_header) { $self->{'scratch'} .= $self->html_header; $self->emit unless $self->html_header eq ""; } else { my ($doctype, $title, $metatags, $bodyid); $doctype = $self->html_doctype || ''; $title = $self->force_title || $self->title || $self->default_title || ''; $metatags = $self->html_header_tags || ''; if (my $css = $self->html_css) { if ($css !~ /<link/) { # this is required to be compatible with Pod::Simple::BatchHTML $metatags .= '<link rel="stylesheet" href="' . $self->encode_entities($css) . '" type="text/css" />'; } else { $metatags .= $css; } } if ($self->html_javascript) { $metatags .= qq{\n<script type="text/javascript" src="} . $self->html_javascript . '"></script>'; } $bodyid = $self->backlink ? ' id="_podtop_"' : ''; $self->{'scratch'} .= <<"HTML"; $doctype <html> <head> <title>$title</title> $metatags </head> <body$bodyid> HTML $self->emit; } } sub end_Document { my ($self) = @_; my $to_index = $self->{'to_index'}; if ($self->index && @{ $to_index } ) { my @out; my $level = 0; my $indent = -1; my $space = ''; my $id = ' id="index"'; for my $h (@{ $to_index }, [0]) { my $target_level = $h->[0]; # Get to target_level by opening or closing ULs if ($level == $target_level) { $out[-1] .= '</li>'; } elsif ($level > $target_level) { $out[-1] .= '</li>' if $out[-1] =~ /^\s+<li>/; while ($level > $target_level) { --$level; push @out, (' ' x --$indent) . '</li>' if @out && $out[-1] =~ m{^\s+<\/ul}; push @out, (' ' x --$indent) . '</ul>'; } push @out, (' ' x --$indent) . '</li>' if $level; } else { while ($level < $target_level) { ++$level; push @out, (' ' x ++$indent) . '<li>' if @out && $out[-1]=~ /^\s*<ul/; push @out, (' ' x ++$indent) . "<ul$id>"; $id = ''; } ++$indent; } next unless $level; $space = ' ' x $indent; push @out, sprintf '%s<li><a href="#%s">%s</a>', $space, $h->[1], $h->[2]; } # Splice the index in between the HTML headers and the first element. my $offset = defined $self->html_header ? $self->html_header eq '' ? 0 : 1 : 1; splice @{ $self->{'output'} }, $offset, 0, join "\n", @out; } if (defined $self->html_footer) { $self->{'scratch'} .= $self->html_footer; $self->emit unless $self->html_footer eq ""; } else { $self->{'scratch'} .= "</body>\n</html>"; $self->emit; } if ($self->index) { print {$self->{'output_fh'}} join ("\n\n", @{ $self->{'output'} }), "\n\n"; @{$self->{'output'}} = (); } } # Handling code tags sub start_B { $_[0]{'scratch'} .= '<b>' } sub end_B { $_[0]{'scratch'} .= '</b>' } sub start_C { push(@{$_[0]{'in_code'}}, 'C'); $_[0]->start_code($_[0]{'in_code'}[-1]); } sub end_C { $_[0]->end_code(pop(@{$_[0]{'in_code'}})); } sub start_F { $_[0]{'scratch'} .= '<i>' } sub end_F { $_[0]{'scratch'} .= '</i>' } sub start_I { $_[0]{'scratch'} .= '<i>' } sub end_I { $_[0]{'scratch'} .= '</i>' } sub start_L { my ($self, $flags) = @_; my ($type, $to, $section) = @{$flags}{'type', 'to', 'section'}; my $url = $self->encode_entities( $type eq 'url' ? $to : $type eq 'pod' ? $self->resolve_pod_page_link($to, $section) : $type eq 'man' ? $self->resolve_man_page_link($to, $section) : undef ); # If it's an unknown type, use an attribute-less <a> like HTML.pm. $self->{'scratch'} .= '<a' . ($url ? ' href="'. $url . '">' : '>'); } sub end_L { $_[0]{'scratch'} .= '</a>' } sub start_S { $_[0]{'scratch'} .= '<span style="white-space: nowrap;">' } sub end_S { $_[0]{'scratch'} .= '</span>' } sub emit { my($self) = @_; if ($self->index) { push @{ $self->{'output'} }, $self->{'scratch'}; } else { print {$self->{'output_fh'}} $self->{'scratch'}, "\n\n"; } $self->{'scratch'} = ''; return; } =head2 resolve_pod_page_link my $url = $pod->resolve_pod_page_link('Net::Ping', 'INSTALL'); my $url = $pod->resolve_pod_page_link('perlpodspec'); my $url = $pod->resolve_pod_page_link(undef, 'SYNOPSIS'); Resolves a POD link target (typically a module or POD file name) and section name to a URL. The resulting link will be returned for the above examples as: https://metacpan.org/pod/Net::Ping#INSTALL https://metacpan.org/pod/perlpodspec #SYNOPSIS Note that when there is only a section argument the URL will simply be a link to a section in the current document. =cut sub resolve_pod_page_link { my ($self, $to, $section) = @_; return undef unless defined $to || defined $section; if (defined $section) { $section = '#' . $self->idify($self->encode_entities($section), 1); return $section unless defined $to; } else { $section = '' } return ($self->perldoc_url_prefix || '') . $self->encode_entities($to) . $section . ($self->perldoc_url_postfix || ''); } =head2 resolve_man_page_link my $url = $pod->resolve_man_page_link('crontab(5)', 'EXAMPLE CRON FILE'); my $url = $pod->resolve_man_page_link('crontab'); Resolves a man page link target and numeric section to a URL. The resulting link will be returned for the above examples as: http://man.he.net/man5/crontab http://man.he.net/man1/crontab Note that the first argument is required. The section number will be parsed from it, and if it's missing will default to 1. The second argument is currently ignored, as L<man.he.net|http://man.he.net> does not currently include linkable IDs or anchor names in its pages. Subclass to link to a different man page HTTP server. =cut sub resolve_man_page_link { my ($self, $to, $section) = @_; return undef unless defined $to; my ($page, $part) = $to =~ /^([^(]+)(?:[(](\d+)[)])?$/; return undef unless $page; return ($self->man_url_prefix || '') . ($part || 1) . "/" . $self->encode_entities($page) . ($self->man_url_postfix || ''); } =head2 idify my $id = $pod->idify($text); my $hash = $pod->idify($text, 1); This method turns an arbitrary string into a valid XHTML ID attribute value. The rules enforced, following L<http://webdesign.about.com/od/htmltags/a/aa031707.htm>, are: =over =item * The id must start with a letter (a-z or A-Z) =item * All subsequent characters can be letters, numbers (0-9), hyphens (-), underscores (_), colons (:), and periods (.). =item * The final character can't be a hyphen, colon, or period. URLs ending with these characters, while allowed by XHTML, can be awkward to extract from plain text. =item * Each id must be unique within the document. =back In addition, the returned value will be unique within the context of the Pod::Simple::XHTML object unless a second argument is passed a true value. ID attributes should always be unique within a single XHTML document, but pass the true value if you are creating not an ID but a URL hash to point to an ID (i.e., if you need to put the "#foo" in C<< <a href="#foo">foo</a> >>. =cut sub idify { my ($self, $t, $not_unique) = @_; for ($t) { s/<[^>]+>//g; # Strip HTML. s/&[^;]+;//g; # Strip entities. s/^\s+//; s/\s+$//; # Strip white space. s/^([^a-zA-Z]+)$/pod$1/; # Prepend "pod" if no valid chars. s/^[^a-zA-Z]+//; # First char must be a letter. s/[^-a-zA-Z0-9_:.]+/-/g; # All other chars must be valid. s/[-:.]+$//; # Strip trailing punctuation. } return $t if $not_unique; my $i = ''; $i++ while $self->{ids}{"$t$i"}++; return "$t$i"; } =head2 batch_mode_page_object_init $pod->batch_mode_page_object_init($batchconvobj, $module, $infile, $outfile, $depth); Called by L<Pod::Simple::HTMLBatch> so that the class has a chance to initialize the converter. Internally it sets the C<batch_mode> property to true and sets C<batch_mode_current_level()>, but Pod::Simple::XHTML does not currently use those features. Subclasses might, though. =cut sub batch_mode_page_object_init { my ($self, $batchconvobj, $module, $infile, $outfile, $depth) = @_; $self->batch_mode(1); $self->batch_mode_current_level($depth); return $self; } sub html_header_after_title { } 1; __END__ =head1 SEE ALSO L<Pod::Simple>, L<Pod::Simple::Text>, L<Pod::Spell> =head1 SUPPORT Questions or discussion about POD and Pod::Simple should be sent to the pod-people@perl.org mail list. Send an empty email to pod-people-subscribe@perl.org to subscribe. This module is managed in an open GitHub repository, L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <bug-pod-simple@rt.cpan.org>. =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2003-2005 Allison Randal. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 ACKNOWLEDGEMENTS Thanks to L<Hurricane Electric|http://he.net/> for permission to use its L<Linux man pages online|http://man.he.net/> site for man page links. Thanks to L<search.cpan.org|http://search.cpan.org/> for permission to use the site for Perl module links. =head1 AUTHOR Pod::Simpele::XHTML was created by Allison Randal <allison@perl.org>. Pod::Simple was created by Sean M. Burke <sburke@cpan.org>. But don't bother him, he's retired. Pod::Simple is maintained by: =over =item * Allison Randal C<allison@perl.org> =item * Hans Dieter Pearcey C<hdp@cpan.org> =item * David E. Wheeler C<dwheeler@cpan.org> =back =cut PK ! b\��# # ( 5.34.0/Pod/Simple/PullParserTextToken.pmnu �[��� require 5; package Pod::Simple::PullParserTextToken; use Pod::Simple::PullParserToken (); use strict; use vars qw(@ISA $VERSION); @ISA = ('Pod::Simple::PullParserToken'); $VERSION = '3.42'; sub new { # Class->new(text); my $class = shift; return bless ['text', @_], ref($class) || $class; } # Purely accessors: sub text { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0][1] } sub text_r { \ $_[0][1] } 1; __END__ =head1 NAME Pod::Simple::PullParserTextToken -- text-tokens from Pod::Simple::PullParser =head1 SYNOPSIS (See L<Pod::Simple::PullParser>) =head1 DESCRIPTION When you do $parser->get_token on a L<Pod::Simple::PullParser>, you might get an object of this class. This is a subclass of L<Pod::Simple::PullParserToken> and inherits all its methods, and adds these methods: =over =item $token->text This returns the text that this token holds. For example, parsing CZ<><foo> will return a C start-token, a text-token, and a C end-token. And if you want to get the "foo" out of the text-token, call C<< $token->text >> =item $token->text(I<somestring>) This changes the string that this token holds. You probably won't need to do this. =item $token->text_r() This returns a scalar reference to the string that this token holds. This can be useful if you don't want to memory-copy the potentially large text value (well, as large as a paragraph or a verbatim block) as calling $token->text would do. Or, if you want to alter the value, you can even do things like this: for ( ${ $token->text_r } ) { # Aliases it with $_ !! s/ The / the /g; # just for example if( 'A' eq chr(65) ) { # (if in an ASCII world) tr/\xA0/ /; tr/\xAD//d; } ...or however you want to alter the value... (Note that starting with Perl v5.8, you can use, e.g., my $nbsp = chr utf8::unicode_to_native(0xA0); s/$nbsp/ /g; to handle the above regardless if it's an ASCII world or not) } =back You're unlikely to ever need to construct an object of this class for yourself, but if you want to, call C<< Pod::Simple::PullParserTextToken->new( I<text> ) >> =head1 SEE ALSO L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing> =head1 SUPPORT Questions or discussion about POD and Pod::Simple should be sent to the pod-people@perl.org mail list. Send an empty email to pod-people-subscribe@perl.org to subscribe. This module is managed in an open GitHub repository, L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <bug-pod-simple@rt.cpan.org>. =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2002 Sean M. Burke. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Pod::Simple was created by Sean M. Burke <sburke@cpan.org>. But don't bother him, he's retired. Pod::Simple is maintained by: =over =item * Allison Randal C<allison@perl.org> =item * Hans Dieter Pearcey C<hdp@cpan.org> =item * David E. Wheeler C<dwheeler@cpan.org> =back =cut PK ! �'5 5.34.0/Pod/Simple/SimpleTree.pmnu �[��� require 5; package Pod::Simple::SimpleTree; use strict; use Carp (); use Pod::Simple (); use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS); $VERSION = '3.42'; BEGIN { @ISA = ('Pod::Simple'); *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG; } __PACKAGE__->_accessorize( 'root', # root of the tree ); #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ sub _handle_element_start { # self, tagname, attrhash DEBUG > 2 and print STDERR "Handling $_[1] start-event\n"; my $x = [$_[1], $_[2]]; if($_[0]{'_currpos'}) { push @{ $_[0]{'_currpos'}[0] }, $x; # insert in parent's child-list unshift @{ $_[0]{'_currpos'} }, $x; # prefix to stack } else { DEBUG and print STDERR " And oo, it gets to be root!\n"; $_[0]{'_currpos'} = [ $_[0]{'root'} = $x ]; # first event! set to stack, and set as root. } DEBUG > 3 and print STDERR "Stack is now: ", join(">", map $_->[0], @{$_[0]{'_currpos'}}), "\n"; return; } sub _handle_element_end { # self, tagname DEBUG > 2 and print STDERR "Handling $_[1] end-event\n"; shift @{$_[0]{'_currpos'}}; DEBUG > 3 and print STDERR "Stack is now: ", join(">", map $_->[0], @{$_[0]{'_currpos'}}), "\n"; return; } sub _handle_text { # self, text DEBUG > 2 and print STDERR "Handling $_[1] text-event\n"; push @{ $_[0]{'_currpos'}[0] }, $_[1]; return; } # A bit of evil from the black box... please avert your eyes, kind souls. sub _traverse_treelet_bit { DEBUG > 2 and print STDERR "Handling $_[1] paragraph event\n"; my $self = shift; push @{ $self->{'_currpos'}[0] }, [@_]; return; } #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 1; __END__ =head1 NAME Pod::Simple::SimpleTree -- parse Pod into a simple parse tree =head1 SYNOPSIS % cat ptest.pod =head1 PIE I like B<pie>! % perl -MPod::Simple::SimpleTree -MData::Dumper -e \ "print Dumper(Pod::Simple::SimpleTree->new->parse_file(shift)->root)" \ ptest.pod $VAR1 = [ 'Document', { 'start_line' => 1 }, [ 'head1', { 'start_line' => 1 }, 'PIE' ], [ 'Para', { 'start_line' => 3 }, 'I like ', [ 'B', {}, 'pie' ], '!' ] ]; =head1 DESCRIPTION This class is of interest to people writing a Pod processor/formatter. This class takes Pod and parses it, returning a parse tree made just of arrayrefs, and hashrefs, and strings. This is a subclass of L<Pod::Simple> and inherits all its methods. This class is inspired by XML::Parser's "Tree" parsing-style, although it doesn't use exactly the same LoL format. =head1 METHODS At the end of the parse, call C<< $parser->root >> to get the tree's top node. =head1 Tree Contents Every element node in the parse tree is represented by an arrayref of the form: C<[ I<elementname>, \%attributes, I<...subnodes...> ]>. See the example tree dump in the Synopsis, above. Every text node in the tree is represented by a simple (non-ref) string scalar. So you can test C<ref($node)> to see whether you have an element node or just a text node. The top node in the tree is C<[ 'Document', \%attributes, I<...subnodes...> ]> =head1 SEE ALSO L<Pod::Simple> L<perllol> L<The "Tree" subsubsection in XML::Parser|XML::Parser/"Tree"> =head1 SUPPORT Questions or discussion about POD and Pod::Simple should be sent to the pod-people@perl.org mail list. Send an empty email to pod-people-subscribe@perl.org to subscribe. This module is managed in an open GitHub repository, L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <bug-pod-simple@rt.cpan.org>. =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2002 Sean M. Burke. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Pod::Simple was created by Sean M. Burke <sburke@cpan.org>. But don't bother him, he's retired. Pod::Simple is maintained by: =over =item * Allison Randal C<allison@perl.org> =item * Hans Dieter Pearcey C<hdp@cpan.org> =item * David E. Wheeler C<dwheeler@cpan.org> =back =cut PK ! S�N�� � 5.34.0/Pod/Simple/Text.pmnu �[��� require 5; package Pod::Simple::Text; use strict; use Carp (); use Pod::Simple::Methody (); use Pod::Simple (); use vars qw( @ISA $VERSION $FREAKYMODE); $VERSION = '3.42'; @ISA = ('Pod::Simple::Methody'); BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG) ? \&Pod::Simple::DEBUG : sub() {0} } use Text::Wrap 98.112902 (); $Text::Wrap::huge = 'overflow'; #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ sub new { my $self = shift; my $new = $self->SUPER::new(@_); $new->{'output_fh'} ||= *STDOUT{IO}; $new->accept_target_as_text(qw( text plaintext plain )); $new->nix_X_codes(1); $new->nbsp_for_S(1); $new->{'Thispara'} = ''; $new->{'Indent'} = 0; $new->{'Indentstring'} = ' '; return $new; } #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ sub handle_text { $_[0]{'Thispara'} .= $_[1] } sub start_Para { $_[0]{'Thispara'} = '' } sub start_head1 { $_[0]{'Thispara'} = '' } sub start_head2 { $_[0]{'Thispara'} = '' } sub start_head3 { $_[0]{'Thispara'} = '' } sub start_head4 { $_[0]{'Thispara'} = '' } sub start_Verbatim { $_[0]{'Thispara'} = '' } sub start_item_bullet { $_[0]{'Thispara'} = $FREAKYMODE ? '' : '* ' } sub start_item_number { $_[0]{'Thispara'} = $FREAKYMODE ? '' : "$_[1]{'number'}. " } sub start_item_text { $_[0]{'Thispara'} = '' } sub start_over_bullet { ++$_[0]{'Indent'} } sub start_over_number { ++$_[0]{'Indent'} } sub start_over_text { ++$_[0]{'Indent'} } sub start_over_block { ++$_[0]{'Indent'} } sub end_over_bullet { --$_[0]{'Indent'} } sub end_over_number { --$_[0]{'Indent'} } sub end_over_text { --$_[0]{'Indent'} } sub end_over_block { --$_[0]{'Indent'} } # . . . . . Now the actual formatters: sub end_head1 { $_[0]->emit_par(-4) } sub end_head2 { $_[0]->emit_par(-3) } sub end_head3 { $_[0]->emit_par(-2) } sub end_head4 { $_[0]->emit_par(-1) } sub end_Para { $_[0]->emit_par( 0) } sub end_item_bullet { $_[0]->emit_par( 0) } sub end_item_number { $_[0]->emit_par( 0) } sub end_item_text { $_[0]->emit_par(-2) } sub start_L { $_[0]{'Link'} = $_[1] if $_[1]->{type} eq 'url' } sub end_L { if (my $link = delete $_[0]{'Link'}) { # Append the URL to the output unless it's already present. $_[0]{'Thispara'} .= " <$link->{to}>" unless $_[0]{'Thispara'} =~ /\b\Q$link->{to}/; } } sub emit_par { my($self, $tweak_indent) = splice(@_,0,2); my $indent = ' ' x ( 2 * $self->{'Indent'} + 4 + ($tweak_indent||0) ); # Yes, 'STRING' x NEGATIVE gives '', same as 'STRING' x 0 $self->{'Thispara'} =~ s/$Pod::Simple::shy//g; my $out = Text::Wrap::wrap($indent, $indent, $self->{'Thispara'} .= "\n"); $out =~ s/$Pod::Simple::nbsp/ /g; print {$self->{'output_fh'}} $out, "\n"; $self->{'Thispara'} = ''; return; } # . . . . . . . . . . And then off by its lonesome: sub end_Verbatim { my $self = shift; $self->{'Thispara'} =~ s/$Pod::Simple::nbsp/ /g; $self->{'Thispara'} =~ s/$Pod::Simple::shy//g; my $i = ' ' x ( 2 * $self->{'Indent'} + 4); #my $i = ' ' x (4 + $self->{'Indent'}); $self->{'Thispara'} =~ s/^/$i/mg; print { $self->{'output_fh'} } '', $self->{'Thispara'}, "\n\n" ; $self->{'Thispara'} = ''; return; } #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 1; __END__ =head1 NAME Pod::Simple::Text -- format Pod as plaintext =head1 SYNOPSIS perl -MPod::Simple::Text -e \ "exit Pod::Simple::Text->filter(shift)->any_errata_seen" \ thingy.pod =head1 DESCRIPTION This class is a formatter that takes Pod and renders it as wrapped plaintext. Its wrapping is done by L<Text::Wrap>, so you can change C<$Text::Wrap::columns> as you like. This is a subclass of L<Pod::Simple> and inherits all its methods. =head1 SEE ALSO L<Pod::Simple>, L<Pod::Simple::TextContent>, L<Pod::Text> =head1 SUPPORT Questions or discussion about POD and Pod::Simple should be sent to the pod-people@perl.org mail list. Send an empty email to pod-people-subscribe@perl.org to subscribe. This module is managed in an open GitHub repository, L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <bug-pod-simple@rt.cpan.org>. =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2002 Sean M. Burke. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Pod::Simple was created by Sean M. Burke <sburke@cpan.org>. But don't bother him, he's retired. Pod::Simple is maintained by: =over =item * Allison Randal C<allison@perl.org> =item * Hans Dieter Pearcey C<hdp@cpan.org> =item * David E. Wheeler C<dwheeler@cpan.org> =back =cut PK ! �m�ȅ � " 5.34.0/Pod/Simple/TranscodeDumb.pmnu �[��� require 5; ## This module is to be use()'d only by Pod::Simple::Transcode package Pod::Simple::TranscodeDumb; use strict; use vars qw($VERSION %Supported); $VERSION = '3.42'; # This module basically pretends it knows how to transcode, except # only for null-transcodings! We use this when Encode isn't # available. %Supported = ( 'ascii' => 1, 'ascii-ctrl' => 1, 'iso-8859-1' => 1, 'cp1252' => 1, 'null' => 1, 'latin1' => 1, 'latin-1' => 1, %Supported, ); sub is_dumb {1} sub is_smart {0} sub all_encodings { return sort keys %Supported; } sub encoding_is_available { return exists $Supported{lc $_[1]}; } sub encmodver { return __PACKAGE__ . " v" .($VERSION || '?'); } sub make_transcoder { my ($e) = $_[1]; die "WHAT ENCODING!?!?" unless $e; # No-op for all but CP1252. return sub {;} if $e !~ /^cp-?1252$/i; # Replace CP1252 nerbles with their ASCII equivalents. return sub { # Copied from Encode::ZapCP1252. my %ascii_for = ( # http://en.wikipedia.org/wiki/Windows-1252 "\x80" => 'e', # EURO SIGN "\x82" => ',', # SINGLE LOW-9 QUOTATION MARK "\x83" => 'f', # LATIN SMALL LETTER F WITH HOOK "\x84" => ',,', # DOUBLE LOW-9 QUOTATION MARK "\x85" => '...', # HORIZONTAL ELLIPSIS "\x86" => '+', # DAGGER "\x87" => '++', # DOUBLE DAGGER "\x88" => '^', # MODIFIER LETTER CIRCUMFLEX ACCENT "\x89" => '%', # PER MILLE SIGN "\x8a" => 'S', # LATIN CAPITAL LETTER S WITH CARON "\x8b" => '<', # SINGLE LEFT-POINTING ANGLE QUOTATION MARK "\x8c" => 'OE', # LATIN CAPITAL LIGATURE OE "\x8e" => 'Z', # LATIN CAPITAL LETTER Z WITH CARON "\x91" => "'", # LEFT SINGLE QUOTATION MARK "\x92" => "'", # RIGHT SINGLE QUOTATION MARK "\x93" => '"', # LEFT DOUBLE QUOTATION MARK "\x94" => '"', # RIGHT DOUBLE QUOTATION MARK "\x95" => '*', # BULLET "\x96" => '-', # EN DASH "\x97" => '--', # EM DASH "\x98" => '~', # SMALL TILDE "\x99" => '(tm)', # TRADE MARK SIGN "\x9a" => 's', # LATIN SMALL LETTER S WITH CARON "\x9b" => '>', # SINGLE RIGHT-POINTING ANGLE QUOTATION MARK "\x9c" => 'oe', # LATIN SMALL LIGATURE OE "\x9e" => 'z', # LATIN SMALL LETTER Z WITH CARON "\x9f" => 'Y', # LATIN CAPITAL LETTER Y WITH DIAERESIS ); s{([\x80-\x9f])}{$ascii_for{$1} || $1}emxsg for @_; }; } 1; PK ! �E�V� � 5.34.0/Pod/Simple/HTMLLegacy.pmnu �[��� require 5; package Pod::Simple::HTMLLegacy; use strict; use vars qw($VERSION); use Getopt::Long; $VERSION = "5.01"; #-------------------------------------------------------------------------- # # This class is meant to thinly emulate bad old Pod::Html # # TODO: some basic docs sub pod2html { my @args = (@_); my( $verbose, $infile, $outfile, $title ); my $index = 1; { my($help); my($netscape); # dummy local @ARGV = @args; GetOptions( "help" => \$help, "verbose!" => \$verbose, "infile=s" => \$infile, "outfile=s" => \$outfile, "title=s" => \$title, "index!" => \$index, "netscape!" => \$netscape, ) or return bad_opts(@args); bad_opts(@args) if @ARGV; # it should be all switches! return help_message() if $help; } for($infile, $outfile) { $_ = undef unless defined and length } if($verbose) { warn sprintf "%s version %s\n", __PACKAGE__, $VERSION; warn "OK, processed args [@args] ...\n"; warn sprintf " Verbose: %s\n Index: %s\n Infile: %s\n Outfile: %s\n Title: %s\n", map defined($_) ? $_ : "(nil)", $verbose, $index, $infile, $outfile, $title, ; *Pod::Simple::HTML::DEBUG = sub(){1}; } require Pod::Simple::HTML; Pod::Simple::HTML->VERSION(3); die "No such input file as $infile\n" if defined $infile and ! -e $infile; my $pod = Pod::Simple::HTML->new; $pod->force_title($title) if defined $title; $pod->index($index); return $pod->parse_from_file($infile, $outfile); } #-------------------------------------------------------------------------- sub bad_opts { die _help_message(); } sub help_message { print STDOUT _help_message() } #-------------------------------------------------------------------------- sub _help_message { join '', "[", __PACKAGE__, " version ", $VERSION, qq~] Usage: pod2html --help --infile=<name> --outfile=<name> --verbose --index --noindex Options: --help - prints this message. --[no]index - generate an index at the top of the resulting html (default behavior). --infile - filename for the pod to convert (input taken from stdin by default). --outfile - filename for the resulting html file (output sent to stdout by default). --title - title that will appear in resulting html file. --[no]verbose - self-explanatory (off by default). Note that pod2html is DEPRECATED, and this version implements only some of the options known to older versions. For more information, see 'perldoc pod2html'. ~; } 1; __END__ OVER the underpass! UNDER the overpass! Around the FUTURE and BEYOND REPAIR!! PK ! �)#m m 5.34.0/Pod/Simple/Progress.pmnu �[��� require 5; package Pod::Simple::Progress; $VERSION = '3.42'; use strict; # Objects of this class are used for noting progress of an # operation every so often. Messages delivered more often than that # are suppressed. # # There's actually nothing in here that's specific to Pod processing; # but it's ad-hoc enough that I'm not willing to give it a name that # implies that it's generally useful, like "IO::Progress" or something. # # -- sburke # #-------------------------------------------------------------------------- sub new { my($class,$delay) = @_; my $self = bless {'quiet_until' => 1}, ref($class) || $class; $self->to(*STDOUT{IO}); $self->delay(defined($delay) ? $delay : 5); return $self; } sub copy { my $orig = shift; bless {%$orig, 'quiet_until' => 1}, ref($orig); } #-------------------------------------------------------------------------- sub reach { my($self, $point, $note) = @_; if( (my $now = time) >= $self->{'quiet_until'}) { my $goal; my $to = $self->{'to'}; print $to join('', ($self->{'quiet_until'} == 1) ? () : '... ', (defined $point) ? ( '#', ($goal = $self->{'goal'}) ? ( ' ' x (length($goal) - length($point)), $point, '/', $goal, ) : $point, $note ? ': ' : (), ) : (), $note || '', "\n" ); $self->{'quiet_until'} = $now + $self->{'delay'}; } return $self; } #-------------------------------------------------------------------------- sub done { my($self, $note) = @_; $self->{'quiet_until'} = 1; return $self->reach( undef, $note ); } #-------------------------------------------------------------------------- # Simple accessors: sub delay { return $_[0]{'delay'} if @_ == 1; $_[0]{'delay'} = $_[1]; return $_[0] } sub goal { return $_[0]{'goal' } if @_ == 1; $_[0]{'goal' } = $_[1]; return $_[0] } sub to { return $_[0]{'to' } if @_ == 1; $_[0]{'to' } = $_[1]; return $_[0] } #-------------------------------------------------------------------------- unless(caller) { # Simple self-test: my $p = __PACKAGE__->new->goal(5); $p->reach(1, "Primus!"); sleep 1; $p->reach(2, "Secundus!"); sleep 3; $p->reach(3, "Tertius!"); sleep 5; $p->reach(4); $p->reach(5, "Quintus!"); sleep 1; $p->done("All done"); } #-------------------------------------------------------------------------- 1; __END__ PK ! �|���R �R 5.34.0/Pod/Simple/BlackBox.pmnu �[��� package Pod::Simple::BlackBox; # # "What's in the box?" "Pain." # ########################################################################### # # This is where all the scary things happen: parsing lines into # paragraphs; and then into directives, verbatims, and then also # turning formatting sequences into treelets. # # Are you really sure you want to read this code? # #----------------------------------------------------------------------------- # # The basic work of this module Pod::Simple::BlackBox is doing the dirty work # of parsing Pod into treelets (generally one per non-verbatim paragraph), and # to call the proper callbacks on the treelets. # # Every node in a treelet is a ['name', {attrhash}, ...children...] use integer; # vroom! use strict; use Carp (); use vars qw($VERSION ); $VERSION = '3.42'; #use constant DEBUG => 7; sub my_qr ($$) { # $1 is a pattern to compile and return. Older perls compile any # syntactically valid property, even if it isn't legal. To cope with # this, return an empty string unless the compiled pattern also # successfully matches $2, which the caller furnishes. my ($input_re, $should_match) = @_; # XXX could have a third parameter $shouldnt_match for extra safety my $use_utf8 = ($] le 5.006002) ? 'use utf8;' : ""; my $re = eval "no warnings; $use_utf8 qr/$input_re/"; #print STDERR __LINE__, ": $input_re: $@\n" if $@; return "" if $@; my $matches = eval "no warnings; $use_utf8 '$should_match' =~ /$re/"; #print STDERR __LINE__, ": $input_re: $@\n" if $@; return "" if $@; #print STDERR __LINE__, ": SUCCESS: $re\n" if $matches; return $re if $matches; #print STDERR __LINE__, ": $re: didn't match\n"; return ""; } BEGIN { require Pod::Simple; *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG } # Matches a character iff the character will have a different meaning # if we choose CP1252 vs UTF-8 if there is no =encoding line. # This is broken for early Perls on non-ASCII platforms. my $non_ascii_re = my_qr('[[:^ascii:]]', "\xB6"); $non_ascii_re = qr/[\x80-\xFF]/ unless $non_ascii_re; # Use patterns understandable by Perl 5.6, if possible my $cs_re = do { no warnings; my_qr('\p{IsCs}', "\x{D800}") }; my $cn_re = my_qr('\p{IsCn}', "\x{09E4}"); # <reserved> code point unlikely # to get assigned my $rare_blocks_re = my_qr('[\p{InIPAExtensions}\p{InSpacingModifierLetters}]', "\x{250}"); $rare_blocks_re = my_qr('[\x{0250}-\x{02FF}]', "\x{250}") unless $rare_blocks_re; my $script_run_re = eval 'no warnings "experimental::script_run"; qr/(*script_run: ^ .* $ )/x'; my $latin_re = my_qr('[\p{IsLatin}\p{IsInherited}\p{IsCommon}]', "\x{100}"); unless ($latin_re) { # This was machine generated to be the ranges of the union of the above # three properties, with things that were undefined by Unicode 4.1 filling # gaps. That is the version in use when Perl advanced enough to # successfully compile and execute the above pattern. $latin_re = my_qr('[\x00-\x{02E9}\x{02EC}-\x{0374}\x{037E}\x{0385}\x{0387}\x{0485}\x{0486}\x{0589}\x{060C}\x{061B}\x{061F}\x{0640}\x{064B}-\x{0655}\x{0670}\x{06DD}\x{0951}-\x{0954}\x{0964}\x{0965}\x{0E3F}\x{10FB}\x{16EB}-\x{16ED}\x{1735}\x{1736}\x{1802}\x{1803}\x{1805}\x{1D00}-\x{1D25}\x{1D2C}-\x{1D5C}\x{1D62}-\x{1D65}\x{1D6B}-\x{1D77}\x{1D79}-\x{1DBE}\x{1DC0}-\x{1EF9}\x{2000}-\x{2125}\x{2127}-\x{27FF}\x{2900}-\x{2B13}\x{2E00}-\x{2E1D}\x{2FF0}-\x{3004}\x{3006}\x{3008}-\x{3020}\x{302A}-\x{302D}\x{3030}-\x{3037}\x{303C}-\x{303F}\x{3099}-\x{309C}\x{30A0}\x{30FB}\x{30FC}\x{3190}-\x{319F}\x{31C0}-\x{31CF}\x{3220}-\x{325F}\x{327F}-\x{32CF}\x{3358}-\x{33FF}\x{4DC0}-\x{4DFF}\x{A700}-\x{A716}\x{FB00}-\x{FB06}\x{FD3E}\x{FD3F}\x{FE00}-\x{FE6B}\x{FEFF}-\x{FF65}\x{FF70}\x{FF9E}\x{FF9F}\x{FFE0}-\x{FFFD}\x{10100}-\x{1013F}\x{1D000}-\x{1D1DD}\x{1D300}-\x{1D7FF}]', "\x{100}"); } my $every_char_is_latin_re = my_qr("^(?:$latin_re)*\\z", "A"); # Latin script code points not in the first release of Unicode my $later_latin_re = my_qr('[^\P{IsLatin}\p{IsAge=1.1}]', "\x{1F6}"); # If this perl doesn't have the Deprecated property, there's only one code # point in it that we need be concerned with. my $deprecated_re = my_qr('\p{IsDeprecated}', "\x{149}"); $deprecated_re = qr/\x{149}/ unless $deprecated_re; my $utf8_bom; if (($] ge 5.007_003)) { $utf8_bom = "\x{FEFF}"; utf8::encode($utf8_bom); } else { $utf8_bom = "\xEF\xBB\xBF"; # No EBCDIC BOM detection for early Perls. } # This is used so that the 'content_seen' method doesn't return true on a # file that just happens to have a line that matches /^=[a-zA-z]/. Only if # there is a valid =foo line will we return that content was seen. my $seen_legal_directive = 0; #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ sub parse_line { shift->parse_lines(@_) } # alias # - - - Turn back now! Run away! - - - sub parse_lines { # Usage: $parser->parse_lines(@lines) # an undef means end-of-stream my $self = shift; my $code_handler = $self->{'code_handler'}; my $cut_handler = $self->{'cut_handler'}; my $wl_handler = $self->{'whiteline_handler'}; $self->{'line_count'} ||= 0; my $scratch; DEBUG > 4 and print STDERR "# Parsing starting at line ", $self->{'line_count'}, ".\n"; DEBUG > 5 and print STDERR "# About to parse lines: ", join(' ', map defined($_) ? "[$_]" : "EOF", @_), "\n"; my $paras = ($self->{'paras'} ||= []); # paragraph buffer. Because we need to defer processing of =over # directives and verbatim paragraphs. We call _ponder_paragraph_buffer # to process this. $self->{'pod_para_count'} ||= 0; # An attempt to match the pod portions of a line. This is not fool proof, # but is good enough to serve as part of the heuristic for guessing the pod # encoding if not specified. my $codes = join '', grep { / ^ [A-Za-z] $/x } sort keys %{$self->{accept_codes}}; my $pod_chars_re = qr/ ^ = [A-Za-z]+ | [\Q$codes\E] < /x; my $line; foreach my $source_line (@_) { if( $self->{'source_dead'} ) { DEBUG > 4 and print STDERR "# Source is dead.\n"; last; } unless( defined $source_line ) { DEBUG > 4 and print STDERR "# Undef-line seen.\n"; push @$paras, ['~end', {'start_line' => $self->{'line_count'}}]; push @$paras, $paras->[-1], $paras->[-1]; # So that it definitely fills the buffer. $self->{'source_dead'} = 1; $self->_ponder_paragraph_buffer; next; } if( $self->{'line_count'}++ ) { ($line = $source_line) =~ tr/\n\r//d; # If we don't have two vars, we'll end up with that there # tr/// modding the (potentially read-only) original source line! } else { DEBUG > 2 and print STDERR "First line: [$source_line]\n"; if( ($line = $source_line) =~ s/^$utf8_bom//s ) { DEBUG and print STDERR "UTF-8 BOM seen. Faking a '=encoding utf8'.\n"; $self->_handle_encoding_line( "=encoding utf8" ); delete $self->{'_processed_encoding'}; $line =~ tr/\n\r//d; } elsif( $line =~ s/^\xFE\xFF//s ) { DEBUG and print STDERR "Big-endian UTF-16 BOM seen. Aborting parsing.\n"; $self->scream( $self->{'line_count'}, "UTF16-BE Byte Encoding Mark found; but Pod::Simple v$Pod::Simple::VERSION doesn't implement UTF16 yet." ); splice @_; push @_, undef; next; # TODO: implement somehow? } elsif( $line =~ s/^\xFF\xFE//s ) { DEBUG and print STDERR "Little-endian UTF-16 BOM seen. Aborting parsing.\n"; $self->scream( $self->{'line_count'}, "UTF16-LE Byte Encoding Mark found; but Pod::Simple v$Pod::Simple::VERSION doesn't implement UTF16 yet." ); splice @_; push @_, undef; next; # TODO: implement somehow? } else { DEBUG > 2 and print STDERR "First line is BOM-less.\n"; ($line = $source_line) =~ tr/\n\r//d; } } if(!$self->{'parse_characters'} && !$self->{'encoding'} && ($self->{'in_pod'} || $line =~ /^=/s) && $line =~ /$non_ascii_re/ ) { my $encoding; # No =encoding line, and we are at the first pod line in the input that # contains a non-ascii byte, that is, one whose meaning varies depending # on whether the file is encoded in UTF-8 or CP1252, which are the two # possibilities permitted by the pod spec. (ASCII is assumed if the # file only contains ASCII bytes.) In order to process this line, we # need to figure out what encoding we will use for the file. # # Strictly speaking ISO 8859-1 (Latin 1) refers to the code points # 160-255, but it is used here, as it often colloquially is, to refer to # the complete set of code points 0-255, including ASCII (0-127), the C1 # controls (128-159), and strict Latin 1 (160-255). # # CP1252 is effectively a superset of Latin 1, because it differs only # from colloquial 8859-1 in the C1 controls, which are very unlikely to # actually be present in 8859-1 files, so can be used for other purposes # without conflict. CP 1252 uses most of them for graphic characters. # # Note that all ASCII-range bytes represent their corresponding code # points in both CP1252 and UTF-8. In ASCII platform UTF-8, all other # code points require multiple (non-ASCII) bytes to represent. (A # separate paragraph for EBCDIC is below.) The multi-byte # representation is quite structured. If we find an isolated byte that # would require multiple bytes to represent in UTF-8, we know that the # encoding is not UTF-8. If we find a sequence of bytes that violates # the UTF-8 structure, we also can presume the encoding isn't UTF-8, and # hence must be 1252. # # But there are ambiguous cases where we could guess wrong. If so, the # user will end up having to supply an =encoding line. We use all # readily available information to improve our chances of guessing # right. The odds of something not being UTF-8, but still passing a # UTF-8 validity test go down very rapidly with increasing length of the # sequence. Therefore we look at all non-ascii sequences on the line. # If any of the sequences can't be UTF-8, we quit there and choose # CP1252. If all could be UTF-8, we see if any of the code points # represented are unlikely to be in pod. If so, we guess CP1252. If # not, we check if the line is all in the same script; if not guess # CP1252; otherwise UTF-8. For perls that don't have convenient script # run testing, see if there is both Latin and non-Latin. If so, CP1252, # otherwise UTF-8. # # On EBCDIC platforms, the situation is somewhat different. In # UTF-EBCDIC, not only do ASCII-range bytes represent their code points, # but so do the bytes that are for the C1 controls. Recall that these # correspond to the unused portion of 8859-1 that 1252 mostly takes # over. That means that there are fewer code points that are # represented by multi-bytes. But, note that the these controls are # very unlikely to be in pod text. So if we encounter one of them, it # means that it is quite likely CP1252 and not UTF-8. The net result is # the same code below is used for both platforms. # # XXX probably if the line has E<foo> that evaluates to illegal CP1252, # then it is UTF-8. But we haven't processed E<> yet. goto set_1252 if $] lt 5.006_000; # No UTF-8 on very early perls my $copy; no warnings 'utf8'; if ($] ge 5.007_003) { $copy = $line; # On perls that have this function, we can use it to easily see if the # sequence is valid UTF-8 or not; if valid it turns on the UTF-8 flag # needed below for script run detection goto set_1252 if ! utf8::decode($copy); } elsif (ord("A") != 65) { # Early EBCDIC, assume UTF-8. What's a windows # code page doing here anyway? goto set_utf8; } else { # ASCII, no decode(): do it ourselves using the fundamental # characteristics of UTF-8 use if $] le 5.006002, 'utf8'; my $char_ord; my $needed; # How many continuation bytes to gobble up # Initialize the translated line with a dummy character that will be # deleted after everything else is done. This dummy makes sure that # $copy will be in UTF-8. Doing it now avoids the bugs in early perls # with upgrading in the middle $copy = chr(0x100); # Parse through the line for (my $i = 0; $i < length $line; $i++) { my $byte = substr($line, $i, 1); # ASCII bytes are trivially dealt with if ($byte !~ $non_ascii_re) { $copy .= $byte; next; } my $b_ord = ord $byte; # Now figure out what this code point would be if the input is # actually in UTF-8. If, in the process, we discover that it isn't # well-formed UTF-8, we guess CP1252. # # Start the process. If it is UTF-8, we are at the first, start # byte, of a multi-byte sequence. We look at this byte to figure # out how many continuation bytes are needed, and to initialize the # code point accumulator with the data from this byte. # # Normally the minimum continuation byte is 0x80, but in certain # instances the minimum is a higher number. So the code below # overrides this for those instances. my $min_cont = 0x80; if ($b_ord < 0xC2) { # A start byte < C2 is malformed goto set_1252; } elsif ($b_ord <= 0xDF) { $needed = 1; $char_ord = $b_ord & 0x1F; } elsif ($b_ord <= 0xEF) { $min_cont = 0xA0 if $b_ord == 0xE0; $needed = 2; $char_ord = $b_ord & (0x1F >> 1); } elsif ($b_ord <= 0xF4) { $min_cont = 0x90 if $b_ord == 0xF0; $needed = 3; $char_ord = $b_ord & (0x1F >> 2); } else { # F4 is the highest start byte for legal Unicode; higher is # unlikely to be in pod. goto set_1252; } # ? not enough continuation bytes available goto set_1252 if $i + $needed >= length $line; # Accumulate the ordinal of the character from the remaining # (continuation) bytes. while ($needed-- > 0) { my $cont = substr($line, ++$i, 1); $b_ord = ord $cont; goto set_1252 if $b_ord < $min_cont || $b_ord > 0xBF; # In all cases, any next continuation bytes all have the same # minimum legal value $min_cont = 0x80; # Accumulate this byte's contribution to the code point $char_ord <<= 6; $char_ord |= ($b_ord & 0x3F); } # Here, the sequence that formed this code point was valid UTF-8, # so add the completed character to the output $copy .= chr $char_ord; } # End of loop through line # Delete the dummy first character $copy = substr($copy, 1); } # Here, $copy is legal UTF-8. # If it can't be legal CP1252, no need to look further. (These bytes # aren't valid in CP1252.) This test could have been placed higher in # the code, but it seemed wrong to set the encoding to UTF-8 without # making sure that the very first instance is well-formed. But what if # it isn't legal CP1252 either? We have to choose one or the other, and # It seems safer to favor the single-byte encoding over the multi-byte. goto set_utf8 if ord("A") == 65 && $line =~ /[\x81\x8D\x8F\x90\x9D]/; # The C1 controls are not likely to appear in pod goto set_1252 if ord("A") == 65 && $copy =~ /[\x80-\x9F]/; # Nor are surrogates nor unassigned, nor deprecated. DEBUG > 8 and print STDERR __LINE__, ": $copy: surrogate\n" if $copy =~ $cs_re; goto set_1252 if $cs_re && $copy =~ $cs_re; DEBUG > 8 and print STDERR __LINE__, ": $copy: unassigned\n" if $cn_re && $copy =~ $cn_re; goto set_1252 if $cn_re && $copy =~ $cn_re; DEBUG > 8 and print STDERR __LINE__, ": $copy: deprecated\n" if $copy =~ $deprecated_re; goto set_1252 if $copy =~ $deprecated_re; # Nor are rare code points. But this is hard to determine. khw # believes that IPA characters and the modifier letters are unlikely to # be in pod (and certainly very unlikely to be the in the first line in # the pod containing non-ASCII) DEBUG > 8 and print STDERR __LINE__, ": $copy: rare\n" if $copy =~ $rare_blocks_re; goto set_1252 if $rare_blocks_re && $copy =~ $rare_blocks_re; # The first Unicode version included essentially every Latin character # in modern usage. So, a Latin character not in the first release will # unlikely be in pod. DEBUG > 8 and print STDERR __LINE__, ": $copy: later_latin\n" if $later_latin_re && $copy =~ $later_latin_re; goto set_1252 if $later_latin_re && $copy =~ $later_latin_re; # On perls that handle script runs, if the UTF-8 interpretation yields # a single script, we guess UTF-8, otherwise just having a mixture of # scripts is suspicious, so guess CP1252. We first strip off, as best # we can, the ASCII characters that look like they are pod directives, # as these would always show as mixed with non-Latin text. $copy =~ s/$pod_chars_re//g; if ($script_run_re) { goto set_utf8 if $copy =~ $script_run_re; DEBUG > 8 and print STDERR __LINE__, ": not script run\n"; goto set_1252; } # Even without script runs, but on recent enough perls and Unicodes, we # can check if there is a mixture of both Latin and non-Latin. Again, # having a mixture of scripts is suspicious, so assume CP1252 # If it's all non-Latin, there is no CP1252, as that is Latin # characters and punct, etc. DEBUG > 8 and print STDERR __LINE__, ": $copy: not latin\n" if $copy !~ $latin_re; goto set_utf8 if $copy !~ $latin_re; DEBUG > 8 and print STDERR __LINE__, ": $copy: all latin\n" if $copy =~ $every_char_is_latin_re; goto set_utf8 if $copy =~ $every_char_is_latin_re; DEBUG > 8 and print STDERR __LINE__, ": $copy: mixed\n"; set_1252: DEBUG > 9 and print STDERR __LINE__, ": $copy: is 1252\n"; $encoding = 'CP1252'; goto done_set; set_utf8: DEBUG > 9 and print STDERR __LINE__, ": $copy: is UTF-8\n"; $encoding = 'UTF-8'; done_set: $self->_handle_encoding_line( "=encoding $encoding" ); delete $self->{'_processed_encoding'}; $self->{'_transcoder'} && $self->{'_transcoder'}->($line); my ($word) = $line =~ /(\S*$non_ascii_re\S*)/; $self->whine( $self->{'line_count'}, "Non-ASCII character seen before =encoding in '$word'. Assuming $encoding" ); } DEBUG > 5 and print STDERR "# Parsing line: [$line]\n"; if(!$self->{'in_pod'}) { if($line =~ m/^=([a-zA-Z][a-zA-Z0-9]*)(?:\s|$)/s) { if($1 eq 'cut') { $self->scream( $self->{'line_count'}, "=cut found outside a pod block. Skipping to next block." ); ## Before there were errata sections in the world, it was ## least-pessimal to abort processing the file. But now we can ## just barrel on thru (but still not start a pod block). #splice @_; #push @_, undef; next; } else { $self->{'in_pod'} = $self->{'start_of_pod_block'} = $self->{'last_was_blank'} = 1; # And fall thru to the pod-mode block further down } } else { DEBUG > 5 and print STDERR "# It's a code-line.\n"; $code_handler->(map $_, $line, $self->{'line_count'}, $self) if $code_handler; # Note: this may cause code to be processed out of order relative # to pods, but in order relative to cuts. # Note also that we haven't yet applied the transcoding to $line # by time we call $code_handler! if( $line =~ m/^#\s*line\s+(\d+)\s*(?:\s"([^"]+)")?\s*$/ ) { # That RE is from perlsyn, section "Plain Old Comments (Not!)", #$fname = $2 if defined $2; #DEBUG > 1 and defined $2 and print STDERR "# Setting fname to \"$fname\"\n"; DEBUG > 1 and print STDERR "# Setting nextline to $1\n"; $self->{'line_count'} = $1 - 1; } next; } } # . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . # Else we're in pod mode: # Apply any necessary transcoding: $self->{'_transcoder'} && $self->{'_transcoder'}->($line); # HERE WE CATCH =encoding EARLY! if( $line =~ m/^=encoding\s+\S+\s*$/s ) { next if $self->parse_characters; # Ignore this line $line = $self->_handle_encoding_line( $line ); } if($line =~ m/^=cut/s) { # here ends the pod block, and therefore the previous pod para DEBUG > 1 and print STDERR "Noting =cut at line ${$self}{'line_count'}\n"; $self->{'in_pod'} = 0; # ++$self->{'pod_para_count'}; $self->_ponder_paragraph_buffer(); # by now it's safe to consider the previous paragraph as done. DEBUG > 6 and print STDERR "Processing any cut handler, line ${$self}{'line_count'}\n"; $cut_handler->(map $_, $line, $self->{'line_count'}, $self) if $cut_handler; # TODO: add to docs: Note: this may cause cuts to be processed out # of order relative to pods, but in order relative to code. } elsif($line =~ m/^(\s*)$/s) { # it's a blank line if (defined $1 and $1 =~ /[^\S\r\n]/) { # it's a white line $wl_handler->(map $_, $line, $self->{'line_count'}, $self) if $wl_handler; } if(!$self->{'start_of_pod_block'} and @$paras and $paras->[-1][0] eq '~Verbatim') { DEBUG > 1 and print STDERR "Saving blank line at line ${$self}{'line_count'}\n"; push @{$paras->[-1]}, $line; } # otherwise it's not interesting if(!$self->{'start_of_pod_block'} and !$self->{'last_was_blank'}) { DEBUG > 1 and print STDERR "Noting para ends with blank line at ${$self}{'line_count'}\n"; } $self->{'last_was_blank'} = 1; } elsif($self->{'last_was_blank'}) { # A non-blank line starting a new para... if($line =~ m/^(=[a-zA-Z][a-zA-Z0-9]*)(\s+|$)(.*)/s) { # THIS IS THE ONE PLACE WHERE WE CONSTRUCT NEW DIRECTIVE OBJECTS my $new = [$1, {'start_line' => $self->{'line_count'}}, $3]; $new->[1]{'~orig_spacer'} = $2 if $2 && $2 ne " "; # Note that in "=head1 foo", the WS is lost. # Example: ['=head1', {'start_line' => 123}, ' foo'] ++$self->{'pod_para_count'}; $self->_ponder_paragraph_buffer(); # by now it's safe to consider the previous paragraph as done. push @$paras, $new; # the new incipient paragraph DEBUG > 1 and print STDERR "Starting new ${$paras}[-1][0] para at line ${$self}{'line_count'}\n"; } elsif($line =~ m/^\s/s) { if(!$self->{'start_of_pod_block'} and @$paras and $paras->[-1][0] eq '~Verbatim') { DEBUG > 1 and print STDERR "Resuming verbatim para at line ${$self}{'line_count'}\n"; push @{$paras->[-1]}, $line; } else { ++$self->{'pod_para_count'}; $self->_ponder_paragraph_buffer(); # by now it's safe to consider the previous paragraph as done. DEBUG > 1 and print STDERR "Starting verbatim para at line ${$self}{'line_count'}\n"; push @$paras, ['~Verbatim', {'start_line' => $self->{'line_count'}}, $line]; } } else { ++$self->{'pod_para_count'}; $self->_ponder_paragraph_buffer(); # by now it's safe to consider the previous paragraph as done. push @$paras, ['~Para', {'start_line' => $self->{'line_count'}}, $line]; DEBUG > 1 and print STDERR "Starting plain para at line ${$self}{'line_count'}\n"; } $self->{'last_was_blank'} = $self->{'start_of_pod_block'} = 0; } else { # It's a non-blank line /continuing/ the current para if(@$paras) { DEBUG > 2 and print STDERR "Line ${$self}{'line_count'} continues current paragraph\n"; push @{$paras->[-1]}, $line; } else { # Unexpected case! die "Continuing a paragraph but \@\$paras is empty?"; } $self->{'last_was_blank'} = $self->{'start_of_pod_block'} = 0; } } # ends the big while loop DEBUG > 1 and print STDERR (pretty(@$paras), "\n"); return $self; } #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ sub _handle_encoding_line { my($self, $line) = @_; return if $self->parse_characters; # The point of this routine is to set $self->{'_transcoder'} as indicated. return $line unless $line =~ m/^=encoding\s+(\S+)\s*$/s; DEBUG > 1 and print STDERR "Found an encoding line \"=encoding $1\"\n"; my $e = $1; my $orig = $e; push @{ $self->{'encoding_command_reqs'} }, "=encoding $orig"; my $enc_error; # Cf. perldoc Encode and perldoc Encode::Supported require Pod::Simple::Transcode; if( $self->{'encoding'} ) { my $norm_current = $self->{'encoding'}; my $norm_e = $e; foreach my $that ($norm_current, $norm_e) { $that = lc($that); $that =~ s/[-_]//g; } if($norm_current eq $norm_e) { DEBUG > 1 and print STDERR "The '=encoding $orig' line is ", "redundant. ($norm_current eq $norm_e). Ignoring.\n"; $enc_error = ''; # But that doesn't necessarily mean that the earlier one went okay } else { $enc_error = "Encoding is already set to " . $self->{'encoding'}; DEBUG > 1 and print STDERR $enc_error; } } elsif ( # OK, let's turn on the encoding do { DEBUG > 1 and print STDERR " Setting encoding to $e\n"; $self->{'encoding'} = $e; 1; } and $e eq 'HACKRAW' ) { DEBUG and print STDERR " Putting in HACKRAW (no-op) encoding mode.\n"; } elsif( Pod::Simple::Transcode::->encoding_is_available($e) ) { die($enc_error = "WHAT? _transcoder is already set?!") if $self->{'_transcoder'}; # should never happen require Pod::Simple::Transcode; $self->{'_transcoder'} = Pod::Simple::Transcode::->make_transcoder($e); eval { my @x = ('', "abc", "123"); $self->{'_transcoder'}->(@x); }; $@ && die( $enc_error = "Really unexpected error setting up encoding $e: $@\nAborting" ); $self->{'detected_encoding'} = $e; } else { my @supported = Pod::Simple::Transcode::->all_encodings; # Note unsupported, and complain DEBUG and print STDERR " Encoding [$e] is unsupported.", "\nSupporteds: @supported\n"; my $suggestion = ''; # Look for a near match: my $norm = lc($e); $norm =~ tr[-_][]d; my $n; foreach my $enc (@supported) { $n = lc($enc); $n =~ tr[-_][]d; next unless $n eq $norm; $suggestion = " (Maybe \"$e\" should be \"$enc\"?)"; last; } my $encmodver = Pod::Simple::Transcode::->encmodver; $enc_error = join '' => "This document probably does not appear as it should, because its ", "\"=encoding $e\" line calls for an unsupported encoding.", $suggestion, " [$encmodver\'s supported encodings are: @supported]" ; $self->scream( $self->{'line_count'}, $enc_error ); } push @{ $self->{'encoding_command_statuses'} }, $enc_error; if (defined($self->{'_processed_encoding'})) { # Double declaration. $self->scream( $self->{'line_count'}, 'Cannot have multiple =encoding directives'); } $self->{'_processed_encoding'} = $orig; return $line; } # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - sub _handle_encoding_second_level { # By time this is called, the encoding (if well formed) will already # have been acted on. my($self, $para) = @_; my @x = @$para; my $content = join ' ', splice @x, 2; $content =~ s/^\s+//s; $content =~ s/\s+$//s; DEBUG > 2 and print STDERR "Ogling encoding directive: =encoding $content\n"; if (defined($self->{'_processed_encoding'})) { #if($content ne $self->{'_processed_encoding'}) { # Could it happen? #} delete $self->{'_processed_encoding'}; # It's already been handled. Check for errors. if(! $self->{'encoding_command_statuses'} ) { DEBUG > 2 and print STDERR " CRAZY ERROR: It wasn't really handled?!\n"; } elsif( $self->{'encoding_command_statuses'}[-1] ) { $self->whine( $para->[1]{'start_line'}, sprintf "Couldn't do %s: %s", $self->{'encoding_command_reqs' }[-1], $self->{'encoding_command_statuses'}[-1], ); } else { DEBUG > 2 and print STDERR " (Yup, it was successfully handled already.)\n"; } } else { # Otherwise it's a syntax error $self->whine( $para->[1]{'start_line'}, "Invalid =encoding syntax: $content" ); } return; } #~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~` { my $m = -321; # magic line number sub _gen_errata { my $self = $_[0]; # Return 0 or more fake-o paragraphs explaining the accumulated # errors on this document. return() unless $self->{'errata'} and keys %{$self->{'errata'}}; my @out; foreach my $line (sort {$a <=> $b} keys %{$self->{'errata'}}) { push @out, ['=item', {'start_line' => $m}, "Around line $line:"], map( ['~Para', {'start_line' => $m, '~cooked' => 1}, #['~Top', {'start_line' => $m}, $_ #] ], @{$self->{'errata'}{$line}} ) ; } # TODO: report of unknown entities? unrenderable characters? unshift @out, ['=head1', {'start_line' => $m, 'errata' => 1}, 'POD ERRORS'], ['~Para', {'start_line' => $m, '~cooked' => 1, 'errata' => 1}, "Hey! ", ['B', {}, 'The above document had some coding errors, which are explained below:' ] ], ['=over', {'start_line' => $m, 'errata' => 1}, ''], ; push @out, ['=back', {'start_line' => $m, 'errata' => 1}, ''], ; DEBUG and print STDERR "\n<<\n", pretty(\@out), "\n>>\n\n"; return @out; } } #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ############################################################################## ## ## stop reading now stop reading now stop reading now stop reading now stop ## ## HERE IT BECOMES REALLY SCARY ## ## stop reading now stop reading now stop reading now stop reading now stop ## ############################################################################## sub _ponder_paragraph_buffer { # Para-token types as found in the buffer. # ~Verbatim, ~Para, ~end, =head1..4, =for, =begin, =end, # =over, =back, =item # and the null =pod (to be complained about if over one line) # # "~data" paragraphs are something we generate at this level, depending on # a currently open =over region # Events fired: Begin and end for: # directivename (like head1 .. head4), item, extend, # for (from =begin...=end, =for), # over-bullet, over-number, over-text, over-block, # item-bullet, item-number, item-text, # Document, # Data, Para, Verbatim # B, C, longdirname (TODO -- wha?), etc. for all directives # my $self = $_[0]; my $paras; return unless @{$paras = $self->{'paras'}}; my $curr_open = ($self->{'curr_open'} ||= []); my $scratch; DEBUG > 10 and print STDERR "# Paragraph buffer: <<", pretty($paras), ">>\n"; # We have something in our buffer. So apparently the document has started. unless($self->{'doc_has_started'}) { $self->{'doc_has_started'} = 1; my $starting_contentless; $starting_contentless = ( !@$curr_open and @$paras and ! grep $_->[0] ne '~end', @$paras # i.e., if the paras is all ~ends ) ; DEBUG and print STDERR "# Starting ", $starting_contentless ? 'contentless' : 'contentful', " document\n" ; $self->_handle_element_start( ($scratch = 'Document'), { 'start_line' => $paras->[0][1]{'start_line'}, $starting_contentless ? ( 'contentless' => 1 ) : (), }, ); } my($para, $para_type); while(@$paras) { # If a directive, assume it's legal; subtract below if found not to be $seen_legal_directive++ if $paras->[0][0] =~ /^=/; last if @$paras == 1 and ( $paras->[0][0] eq '=over' or $paras->[0][0] eq '=item' or ($paras->[0][0] eq '~Verbatim' and $self->{'in_pod'})); # Those're the three kinds of paragraphs that require lookahead. # Actually, an "=item Foo" inside an <over type=text> region # and any =item inside an <over type=block> region (rare) # don't require any lookahead, but all others (bullets # and numbers) do. # The verbatim is different from the other two, because those might be # like: # # =item # ... # =cut # ... # =item # # The =cut here finishes the paragraph but doesn't terminate the =over # they should be in. (khw apologizes that he didn't comment at the time # why the 'in_pod' works, and no longer remembers why, and doesn't think # it is currently worth the effort to re-figure it out.) # TODO: whinge about many kinds of directives in non-resolving =for regions? # TODO: many? like what? =head1 etc? $para = shift @$paras; $para_type = $para->[0]; DEBUG > 1 and print STDERR "Pondering a $para_type paragraph, given the stack: (", $self->_dump_curr_open(), ")\n"; if($para_type eq '=for') { next if $self->_ponder_for($para,$curr_open,$paras); } elsif($para_type eq '=begin') { next if $self->_ponder_begin($para,$curr_open,$paras); } elsif($para_type eq '=end') { next if $self->_ponder_end($para,$curr_open,$paras); } elsif($para_type eq '~end') { # The virtual end-document signal next if $self->_ponder_doc_end($para,$curr_open,$paras); } # ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ #~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ if(grep $_->[1]{'~ignore'}, @$curr_open) { DEBUG > 1 and print STDERR "Skipping $para_type paragraph because in ignore mode.\n"; next; } #~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ # ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ if($para_type eq '=pod') { $self->_ponder_pod($para,$curr_open,$paras); } elsif($para_type eq '=over') { next if $self->_ponder_over($para,$curr_open,$paras); } elsif($para_type eq '=back') { next if $self->_ponder_back($para,$curr_open,$paras); } else { # All non-magical codes!!! # Here we start using $para_type for our own twisted purposes, to # mean how it should get treated, not as what the element name # should be. DEBUG > 1 and print STDERR "Pondering non-magical $para_type\n"; my $i; # Enforce some =headN discipline if($para_type =~ m/^=head\d$/s and ! $self->{'accept_heads_anywhere'} and @$curr_open and $curr_open->[-1][0] eq '=over' ) { DEBUG > 2 and print STDERR "'=$para_type' inside an '=over'!\n"; $self->whine( $para->[1]{'start_line'}, "You forgot a '=back' before '$para_type'" ); unshift @$paras, ['=back', {}, ''], $para; # close the =over next; } if($para_type eq '=item') { my $over; unless(@$curr_open and $over = (grep { $_->[0] eq '=over' } @$curr_open)[-1]) { $self->whine( $para->[1]{'start_line'}, "'=item' outside of any '=over'" ); unshift @$paras, ['=over', {'start_line' => $para->[1]{'start_line'}}, ''], $para ; next; } my $over_type = $over->[1]{'~type'}; if(!$over_type) { # Shouldn't happen1 die "Typeless over in stack, starting at line " . $over->[1]{'start_line'}; } elsif($over_type eq 'block') { unless($curr_open->[-1][1]{'~bitched_about'}) { $curr_open->[-1][1]{'~bitched_about'} = 1; $self->whine( $curr_open->[-1][1]{'start_line'}, "You can't have =items (as at line " . $para->[1]{'start_line'} . ") unless the first thing after the =over is an =item" ); } # Just turn it into a paragraph and reconsider it $para->[0] = '~Para'; unshift @$paras, $para; next; } elsif($over_type eq 'text') { my $item_type = $self->_get_item_type($para); # That kills the content of the item if it's a number or bullet. DEBUG and print STDERR " Item is of type ", $para->[0], " under $over_type\n"; if($item_type eq 'text') { # Nothing special needs doing for 'text' } elsif($item_type eq 'number' or $item_type eq 'bullet') { $self->whine( $para->[1]{'start_line'}, "Expected text after =item, not a $item_type" ); # Undo our clobbering: push @$para, $para->[1]{'~orig_content'}; delete $para->[1]{'number'}; # Only a PROPER item-number element is allowed # to have a number attribute. } else { die "Unhandled item type $item_type"; # should never happen } # =item-text thingies don't need any assimilation, it seems. } elsif($over_type eq 'number') { my $item_type = $self->_get_item_type($para); # That kills the content of the item if it's a number or bullet. DEBUG and print STDERR " Item is of type ", $para->[0], " under $over_type\n"; my $expected_value = ++ $curr_open->[-1][1]{'~counter'}; if($item_type eq 'bullet') { # Hm, it's not numeric. Correct for this. $para->[1]{'number'} = $expected_value; $self->whine( $para->[1]{'start_line'}, "Expected '=item $expected_value'" ); push @$para, $para->[1]{'~orig_content'}; # restore the bullet, blocking the assimilation of next para } elsif($item_type eq 'text') { # Hm, it's not numeric. Correct for this. $para->[1]{'number'} = $expected_value; $self->whine( $para->[1]{'start_line'}, "Expected '=item $expected_value'" ); # Text content will still be there and will block next ~Para } elsif($item_type ne 'number') { die "Unknown item type $item_type"; # should never happen } elsif($expected_value == $para->[1]{'number'}) { DEBUG > 1 and print STDERR " Numeric item has the expected value of $expected_value\n"; } else { DEBUG > 1 and print STDERR " Numeric item has ", $para->[1]{'number'}, " instead of the expected value of $expected_value\n"; $self->whine( $para->[1]{'start_line'}, "You have '=item " . $para->[1]{'number'} . "' instead of the expected '=item $expected_value'" ); $para->[1]{'number'} = $expected_value; # correcting!! } if(@$para == 2) { # For the cases where we /didn't/ push to @$para if($paras->[0][0] eq '~Para') { DEBUG and print STDERR "Assimilating following ~Para content into $over_type item\n"; push @$para, splice @{shift @$paras},2; } else { DEBUG and print STDERR "Can't assimilate following ", $paras->[0][0], "\n"; push @$para, ''; # Just so it's not contentless } } } elsif($over_type eq 'bullet') { my $item_type = $self->_get_item_type($para); # That kills the content of the item if it's a number or bullet. DEBUG and print STDERR " Item is of type ", $para->[0], " under $over_type\n"; if($item_type eq 'bullet') { # as expected! if( $para->[1]{'~_freaky_para_hack'} ) { DEBUG and print STDERR "Accomodating '=item * Foo' tolerance hack.\n"; push @$para, $para->[1]{'~_freaky_para_hack'}; } } elsif($item_type eq 'number') { $self->whine( $para->[1]{'start_line'}, "Expected '=item *'" ); push @$para, $para->[1]{'~orig_content'}; # and block assimilation of the next paragraph delete $para->[1]{'number'}; # Only a PROPER item-number element is allowed # to have a number attribute. } elsif($item_type eq 'text') { $self->whine( $para->[1]{'start_line'}, "Expected '=item *'" ); # But doesn't need processing. But it'll block assimilation # of the next para. } else { die "Unhandled item type $item_type"; # should never happen } if(@$para == 2) { # For the cases where we /didn't/ push to @$para if($paras->[0][0] eq '~Para') { DEBUG and print STDERR "Assimilating following ~Para content into $over_type item\n"; push @$para, splice @{shift @$paras},2; } else { DEBUG and print STDERR "Can't assimilate following ", $paras->[0][0], "\n"; push @$para, ''; # Just so it's not contentless } } } else { die "Unhandled =over type \"$over_type\"?"; # Shouldn't happen! } $para_type = 'Plain'; $para->[0] .= '-' . $over_type; # Whew. Now fall thru and process it. } elsif($para_type eq '=extend') { # Well, might as well implement it here. $self->_ponder_extend($para); next; # and skip } elsif($para_type eq '=encoding') { # Not actually acted on here, but we catch errors here. $self->_handle_encoding_second_level($para); next unless $self->keep_encoding_directive; $para_type = 'Plain'; } elsif($para_type eq '~Verbatim') { $para->[0] = 'Verbatim'; $para_type = '?Verbatim'; } elsif($para_type eq '~Para') { $para->[0] = 'Para'; $para_type = '?Plain'; } elsif($para_type eq 'Data') { $para->[0] = 'Data'; $para_type = '?Data'; } elsif( $para_type =~ s/^=//s and defined( $para_type = $self->{'accept_directives'}{$para_type} ) ) { DEBUG > 1 and print STDERR " Pondering known directive ${$para}[0] as $para_type\n"; } else { # An unknown directive! $seen_legal_directive--; DEBUG > 1 and printf STDERR "Unhandled directive %s (Handled: %s)\n", $para->[0], join(' ', sort keys %{$self->{'accept_directives'}} ) ; $self->whine( $para->[1]{'start_line'}, "Unknown directive: $para->[0]" ); # And maybe treat it as text instead of just letting it go? next; } if($para_type =~ s/^\?//s) { if(! @$curr_open) { # usual case DEBUG and print STDERR "Treating $para_type paragraph as such because stack is empty.\n"; } else { my @fors = grep $_->[0] eq '=for', @$curr_open; DEBUG > 1 and print STDERR "Containing fors: ", join(',', map $_->[1]{'target'}, @fors), "\n"; if(! @fors) { DEBUG and print STDERR "Treating $para_type paragraph as such because stack has no =for's\n"; #} elsif(grep $_->[1]{'~resolve'}, @fors) { #} elsif(not grep !$_->[1]{'~resolve'}, @fors) { } elsif( $fors[-1][1]{'~resolve'} ) { # Look to the immediately containing for if($para_type eq 'Data') { DEBUG and print STDERR "Treating Data paragraph as Plain/Verbatim because the containing =for ($fors[-1][1]{'target'}) is a resolver\n"; $para->[0] = 'Para'; $para_type = 'Plain'; } else { DEBUG and print STDERR "Treating $para_type paragraph as such because the containing =for ($fors[-1][1]{'target'}) is a resolver\n"; } } else { DEBUG and print STDERR "Treating $para_type paragraph as Data because the containing =for ($fors[-1][1]{'target'}) is a non-resolver\n"; $para->[0] = $para_type = 'Data'; } } } #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ if($para_type eq 'Plain') { $self->_ponder_Plain($para); } elsif($para_type eq 'Verbatim') { $self->_ponder_Verbatim($para); } elsif($para_type eq 'Data') { $self->_ponder_Data($para); } else { die "\$para type is $para_type -- how did that happen?"; # Shouldn't happen. } #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ $para->[0] =~ s/^[~=]//s; DEBUG and print STDERR "\n", pretty($para), "\n"; # traverse the treelet (which might well be just one string scalar) $self->{'content_seen'} ||= 1 if $seen_legal_directive && ! $self->{'~tried_gen_errata'}; $self->_traverse_treelet_bit(@$para); } } return; } ########################################################################### # The sub-ponderers... sub _ponder_for { my ($self,$para,$curr_open,$paras) = @_; # Fake it out as a begin/end my $target; if(grep $_->[1]{'~ignore'}, @$curr_open) { DEBUG > 1 and print STDERR "Ignoring ignorable =for\n"; return 1; } for(my $i = 2; $i < @$para; ++$i) { if($para->[$i] =~ s/^\s*(\S+)\s*//s) { $target = $1; last; } } unless(defined $target) { $self->whine( $para->[1]{'start_line'}, "=for without a target?" ); return 1; } DEBUG > 1 and print STDERR "Faking out a =for $target as a =begin $target / =end $target\n"; $para->[0] = 'Data'; unshift @$paras, ['=begin', {'start_line' => $para->[1]{'start_line'}, '~really' => '=for'}, $target, ], $para, ['=end', {'start_line' => $para->[1]{'start_line'}, '~really' => '=for'}, $target, ], ; return 1; } sub _ponder_begin { my ($self,$para,$curr_open,$paras) = @_; my $content = join ' ', splice @$para, 2; $content =~ s/^\s+//s; $content =~ s/\s+$//s; unless(length($content)) { $self->whine( $para->[1]{'start_line'}, "=begin without a target?" ); DEBUG and print STDERR "Ignoring targetless =begin\n"; return 1; } my ($target, $title) = $content =~ m/^(\S+)\s*(.*)$/; $para->[1]{'title'} = $title if ($title); $para->[1]{'target'} = $target; # without any ':' $content = $target; # strip off the title $content =~ s/^:!/!:/s; my $neg; # whether this is a negation-match $neg = 1 if $content =~ s/^!//s; my $to_resolve; # whether to process formatting codes $to_resolve = 1 if $content =~ s/^://s; my $dont_ignore; # whether this target matches us foreach my $target_name ( split(',', $content, -1), $neg ? () : '*' ) { DEBUG > 2 and print STDERR " Considering whether =begin $content matches $target_name\n"; next unless $self->{'accept_targets'}{$target_name}; DEBUG > 2 and print STDERR " It DOES match the acceptable target $target_name!\n"; $to_resolve = 1 if $self->{'accept_targets'}{$target_name} eq 'force_resolve'; $dont_ignore = 1; $para->[1]{'target_matching'} = $target_name; last; # stop looking at other target names } if($neg) { if( $dont_ignore ) { $dont_ignore = ''; delete $para->[1]{'target_matching'}; DEBUG > 2 and print STDERR " But the leading ! means that this is a NON-match!\n"; } else { $dont_ignore = 1; $para->[1]{'target_matching'} = '!'; DEBUG > 2 and print STDERR " But the leading ! means that this IS a match!\n"; } } $para->[0] = '=for'; # Just what we happen to call these, internally $para->[1]{'~really'} ||= '=begin'; $para->[1]{'~ignore'} = (! $dont_ignore) || 0; $para->[1]{'~resolve'} = $to_resolve || 0; DEBUG > 1 and print STDERR " Making note to ", $dont_ignore ? 'not ' : '', "ignore contents of this region\n"; DEBUG > 1 and $dont_ignore and print STDERR " Making note to treat contents as ", ($to_resolve ? 'verbatim/plain' : 'data'), " paragraphs\n"; DEBUG > 1 and print STDERR " (Stack now: ", $self->_dump_curr_open(), ")\n"; push @$curr_open, $para; if(!$dont_ignore or scalar grep $_->[1]{'~ignore'}, @$curr_open) { DEBUG > 1 and print STDERR "Ignoring ignorable =begin\n"; } else { $self->{'content_seen'} ||= 1 unless $self->{'~tried_gen_errata'}; $self->_handle_element_start((my $scratch='for'), $para->[1]); } return 1; } sub _ponder_end { my ($self,$para,$curr_open,$paras) = @_; my $content = join ' ', splice @$para, 2; $content =~ s/^\s+//s; $content =~ s/\s+$//s; DEBUG and print STDERR "Ogling '=end $content' directive\n"; unless(length($content)) { $self->whine( $para->[1]{'start_line'}, "'=end' without a target?" . ( ( @$curr_open and $curr_open->[-1][0] eq '=for' ) ? ( " (Should be \"=end " . $curr_open->[-1][1]{'target'} . '")' ) : '' ) ); DEBUG and print STDERR "Ignoring targetless =end\n"; return 1; } unless($content =~ m/^\S+$/) { # i.e., unless it's one word $self->whine( $para->[1]{'start_line'}, "'=end $content' is invalid. (Stack: " . $self->_dump_curr_open() . ')' ); DEBUG and print STDERR "Ignoring mistargetted =end $content\n"; return 1; } unless(@$curr_open and $curr_open->[-1][0] eq '=for') { $self->whine( $para->[1]{'start_line'}, "=end $content without matching =begin. (Stack: " . $self->_dump_curr_open() . ')' ); DEBUG and print STDERR "Ignoring mistargetted =end $content\n"; return 1; } unless($content eq $curr_open->[-1][1]{'target'}) { $self->whine( $para->[1]{'start_line'}, "=end $content doesn't match =begin " . $curr_open->[-1][1]{'target'} . ". (Stack: " . $self->_dump_curr_open() . ')' ); DEBUG and print STDERR "Ignoring mistargetted =end $content at line $para->[1]{'start_line'}\n"; return 1; } # Else it's okay to close... if(grep $_->[1]{'~ignore'}, @$curr_open) { DEBUG > 1 and print STDERR "Not firing any event for this =end $content because in an ignored region\n"; # And that may be because of this to-be-closed =for region, or some # other one, but it doesn't matter. } else { $curr_open->[-1][1]{'start_line'} = $para->[1]{'start_line'}; # what's that for? $self->{'content_seen'} ||= 1 unless $self->{'~tried_gen_errata'}; $self->_handle_element_end( my $scratch = 'for', $para->[1]); } DEBUG > 1 and print STDERR "Popping $curr_open->[-1][0] $curr_open->[-1][1]{'target'} because of =end $content\n"; pop @$curr_open; return 1; } sub _ponder_doc_end { my ($self,$para,$curr_open,$paras) = @_; if(@$curr_open) { # Deal with things left open DEBUG and print STDERR "Stack is nonempty at end-document: (", $self->_dump_curr_open(), ")\n"; DEBUG > 9 and print STDERR "Stack: ", pretty($curr_open), "\n"; unshift @$paras, $self->_closers_for_all_curr_open; # Make sure there is exactly one ~end in the parastack, at the end: @$paras = grep $_->[0] ne '~end', @$paras; push @$paras, $para, $para; # We need two -- once for the next cycle where we # generate errata, and then another to be at the end # when that loop back around to process the errata. return 1; } else { DEBUG and print STDERR "Okay, stack is empty now.\n"; } # Try generating errata section, if applicable unless($self->{'~tried_gen_errata'}) { $self->{'~tried_gen_errata'} = 1; my @extras = $self->_gen_errata(); if(@extras) { unshift @$paras, @extras; DEBUG and print STDERR "Generated errata... relooping...\n"; return 1; # I.e., loop around again to process these fake-o paragraphs } } splice @$paras; # Well, that's that for this paragraph buffer. DEBUG and print STDERR "Throwing end-document event.\n"; $self->_handle_element_end( my $scratch = 'Document' ); return 1; # Hasta la byebye } sub _ponder_pod { my ($self,$para,$curr_open,$paras) = @_; $self->whine( $para->[1]{'start_line'}, "=pod directives shouldn't be over one line long! Ignoring all " . (@$para - 2) . " lines of content" ) if @$para > 3; # Content ignored unless 'pod_handler' is set if (my $pod_handler = $self->{'pod_handler'}) { my ($line_num, $line) = map $_, $para->[1]{'start_line'}, $para->[2]; $line = $line eq '' ? "=pod" : "=pod $line"; # imitate cut_handler output $pod_handler->($line, $line_num, $self); } # The surrounding methods set content_seen, so let us remain consistent. # I do not know why it was not here before -- should it not be here? # $self->{'content_seen'} ||= 1 unless $self->{'~tried_gen_errata'}; return; } sub _ponder_over { my ($self,$para,$curr_open,$paras) = @_; return 1 unless @$paras; my $list_type; if($paras->[0][0] eq '=item') { # most common case $list_type = $self->_get_initial_item_type($paras->[0]); } elsif($paras->[0][0] eq '=back') { # Ignore empty lists by default if ($self->{'parse_empty_lists'}) { $list_type = 'empty'; } else { shift @$paras; return 1; } } elsif($paras->[0][0] eq '~end') { $self->whine( $para->[1]{'start_line'}, "=over is the last thing in the document?!" ); return 1; # But feh, ignore it. } else { $list_type = 'block'; } $para->[1]{'~type'} = $list_type; push @$curr_open, $para; # yes, we reuse the paragraph as a stack item my $content = join ' ', splice @$para, 2; $para->[1]{'~orig_content'} = $content; my $overness; if($content =~ m/^\s*$/s) { $para->[1]{'indent'} = 4; } elsif($content =~ m/^\s*((?:\d*\.)?\d+)\s*$/s) { no integer; $para->[1]{'indent'} = $1; if($1 == 0) { $self->whine( $para->[1]{'start_line'}, "Can't have a 0 in =over $content" ); $para->[1]{'indent'} = 4; } } else { $self->whine( $para->[1]{'start_line'}, "=over should be: '=over' or '=over positive_number'" ); $para->[1]{'indent'} = 4; } DEBUG > 1 and print STDERR "=over found of type $list_type\n"; $self->{'content_seen'} ||= 1 unless $self->{'~tried_gen_errata'}; $self->_handle_element_start((my $scratch = 'over-' . $list_type), $para->[1]); return; } sub _ponder_back { my ($self,$para,$curr_open,$paras) = @_; # TODO: fire off </item-number> or </item-bullet> or </item-text> ?? my $content = join ' ', splice @$para, 2; if($content =~ m/\S/) { $self->whine( $para->[1]{'start_line'}, "=back doesn't take any parameters, but you said =back $content" ); } if(@$curr_open and $curr_open->[-1][0] eq '=over') { DEBUG > 1 and print STDERR "=back happily closes matching =over\n"; # Expected case: we're closing the most recently opened thing #my $over = pop @$curr_open; $self->{'content_seen'} ||= 1 unless $self->{'~tried_gen_errata'}; $self->_handle_element_end( my $scratch = 'over-' . ( (pop @$curr_open)->[1]{'~type'} ), $para->[1] ); } else { DEBUG > 1 and print STDERR "=back found without a matching =over. Stack: (", join(', ', map $_->[0], @$curr_open), ").\n"; $self->whine( $para->[1]{'start_line'}, '=back without =over' ); return 1; # and ignore it } } sub _ponder_item { my ($self,$para,$curr_open,$paras) = @_; my $over; unless(@$curr_open and $over = (grep { $_->[0] eq '=over' } @$curr_open)[-1]) { $self->whine( $para->[1]{'start_line'}, "'=item' outside of any '=over'" ); unshift @$paras, ['=over', {'start_line' => $para->[1]{'start_line'}}, ''], $para ; return 1; } my $over_type = $over->[1]{'~type'}; if(!$over_type) { # Shouldn't happen1 die "Typeless over in stack, starting at line " . $over->[1]{'start_line'}; } elsif($over_type eq 'block') { unless($curr_open->[-1][1]{'~bitched_about'}) { $curr_open->[-1][1]{'~bitched_about'} = 1; $self->whine( $curr_open->[-1][1]{'start_line'}, "You can't have =items (as at line " . $para->[1]{'start_line'} . ") unless the first thing after the =over is an =item" ); } # Just turn it into a paragraph and reconsider it $para->[0] = '~Para'; unshift @$paras, $para; return 1; } elsif($over_type eq 'text') { my $item_type = $self->_get_item_type($para); # That kills the content of the item if it's a number or bullet. DEBUG and print STDERR " Item is of type ", $para->[0], " under $over_type\n"; if($item_type eq 'text') { # Nothing special needs doing for 'text' } elsif($item_type eq 'number' or $item_type eq 'bullet') { $self->whine( $para->[1]{'start_line'}, "Expected text after =item, not a $item_type" ); # Undo our clobbering: push @$para, $para->[1]{'~orig_content'}; delete $para->[1]{'number'}; # Only a PROPER item-number element is allowed # to have a number attribute. } else { die "Unhandled item type $item_type"; # should never happen } # =item-text thingies don't need any assimilation, it seems. } elsif($over_type eq 'number') { my $item_type = $self->_get_item_type($para); # That kills the content of the item if it's a number or bullet. DEBUG and print STDERR " Item is of type ", $para->[0], " under $over_type\n"; my $expected_value = ++ $curr_open->[-1][1]{'~counter'}; if($item_type eq 'bullet') { # Hm, it's not numeric. Correct for this. $para->[1]{'number'} = $expected_value; $self->whine( $para->[1]{'start_line'}, "Expected '=item $expected_value'" ); push @$para, $para->[1]{'~orig_content'}; # restore the bullet, blocking the assimilation of next para } elsif($item_type eq 'text') { # Hm, it's not numeric. Correct for this. $para->[1]{'number'} = $expected_value; $self->whine( $para->[1]{'start_line'}, "Expected '=item $expected_value'" ); # Text content will still be there and will block next ~Para } elsif($item_type ne 'number') { die "Unknown item type $item_type"; # should never happen } elsif($expected_value == $para->[1]{'number'}) { DEBUG > 1 and print STDERR " Numeric item has the expected value of $expected_value\n"; } else { DEBUG > 1 and print STDERR " Numeric item has ", $para->[1]{'number'}, " instead of the expected value of $expected_value\n"; $self->whine( $para->[1]{'start_line'}, "You have '=item " . $para->[1]{'number'} . "' instead of the expected '=item $expected_value'" ); $para->[1]{'number'} = $expected_value; # correcting!! } if(@$para == 2) { # For the cases where we /didn't/ push to @$para if($paras->[0][0] eq '~Para') { DEBUG and print STDERR "Assimilating following ~Para content into $over_type item\n"; push @$para, splice @{shift @$paras},2; } else { DEBUG and print STDERR "Can't assimilate following ", $paras->[0][0], "\n"; push @$para, ''; # Just so it's not contentless } } } elsif($over_type eq 'bullet') { my $item_type = $self->_get_item_type($para); # That kills the content of the item if it's a number or bullet. DEBUG and print STDERR " Item is of type ", $para->[0], " under $over_type\n"; if($item_type eq 'bullet') { # as expected! if( $para->[1]{'~_freaky_para_hack'} ) { DEBUG and print STDERR "Accomodating '=item * Foo' tolerance hack.\n"; push @$para, $para->[1]{'~_freaky_para_hack'}; } } elsif($item_type eq 'number') { $self->whine( $para->[1]{'start_line'}, "Expected '=item *'" ); push @$para, $para->[1]{'~orig_content'}; # and block assimilation of the next paragraph delete $para->[1]{'number'}; # Only a PROPER item-number element is allowed # to have a number attribute. } elsif($item_type eq 'text') { $self->whine( $para->[1]{'start_line'}, "Expected '=item *'" ); # But doesn't need processing. But it'll block assimilation # of the next para. } else { die "Unhandled item type $item_type"; # should never happen } if(@$para == 2) { # For the cases where we /didn't/ push to @$para if($paras->[0][0] eq '~Para') { DEBUG and print STDERR "Assimilating following ~Para content into $over_type item\n"; push @$para, splice @{shift @$paras},2; } else { DEBUG and print STDERR "Can't assimilate following ", $paras->[0][0], "\n"; push @$para, ''; # Just so it's not contentless } } } else { die "Unhandled =over type \"$over_type\"?"; # Shouldn't happen! } $para->[0] .= '-' . $over_type; return; } sub _ponder_Plain { my ($self,$para) = @_; DEBUG and print STDERR " giving plain treatment...\n"; unless( @$para == 2 or ( @$para == 3 and $para->[2] eq '' ) or $para->[1]{'~cooked'} ) { push @$para, @{$self->_make_treelet( join("\n", splice(@$para, 2)), $para->[1]{'start_line'} )}; } # Empty paragraphs don't need a treelet for any reason I can see. # And precooked paragraphs already have a treelet. return; } sub _ponder_Verbatim { my ($self,$para) = @_; DEBUG and print STDERR " giving verbatim treatment...\n"; $para->[1]{'xml:space'} = 'preserve'; unless ($self->{'_output_is_for_JustPod'}) { # Fix illegal settings for expand_verbatim_tabs() # This is because this module doesn't do input error checking, but khw # doesn't want to add yet another instance of that. $self->expand_verbatim_tabs(8) if ! defined $self->expand_verbatim_tabs() || $self->expand_verbatim_tabs() =~ /\D/; my $indent = $self->strip_verbatim_indent; if ($indent && ref $indent eq 'CODE') { my @shifted = (shift @{$para}, shift @{$para}); $indent = $indent->($para); unshift @{$para}, @shifted; } for(my $i = 2; $i < @$para; $i++) { foreach my $line ($para->[$i]) { # just for aliasing # Strip indentation. $line =~ s/^\Q$indent// if $indent; next unless $self->expand_verbatim_tabs; # This is commented out because of github issue #85, and the # current maintainers don't know why it was there in the first # place. #&& !($self->{accept_codes} && $self->{accept_codes}{VerbatimFormatted}); while( $line =~ # Sort of adapted from Text::Tabs. s/^([^\t]*)(\t+)/$1.(" " x ((length($2) * $self->expand_verbatim_tabs) -(length($1)&7)))/e ) {} # TODO: whinge about (or otherwise treat) unindented or overlong lines } } } # Now the VerbatimFormatted hoodoo... if( $self->{'accept_codes'} and $self->{'accept_codes'}{'VerbatimFormatted'} ) { while(@$para > 3 and $para->[-1] !~ m/\S/) { pop @$para } # Kill any number of terminal newlines $self->_verbatim_format($para); } elsif ($self->{'codes_in_verbatim'}) { push @$para, @{$self->_make_treelet( join("\n", splice(@$para, 2)), $para->[1]{'start_line'}, $para->[1]{'xml:space'} )}; $para->[-1] =~ s/\n+$//s; # Kill any number of terminal newlines } else { push @$para, join "\n", splice(@$para, 2) if @$para > 3; $para->[-1] =~ s/\n+$//s; # Kill any number of terminal newlines } return; } sub _ponder_Data { my ($self,$para) = @_; DEBUG and print STDERR " giving data treatment...\n"; $para->[1]{'xml:space'} = 'preserve'; push @$para, join "\n", splice(@$para, 2) if @$para > 3; return; } ########################################################################### sub _traverse_treelet_bit { # for use only by the routine above my($self, $name) = splice @_,0,2; my $scratch; $self->_handle_element_start(($scratch=$name), shift @_); while (@_) { my $x = shift; if (ref($x)) { &_traverse_treelet_bit($self, @$x); } else { $x .= shift while @_ && !ref($_[0]); $self->_handle_text($x); } } $self->_handle_element_end($scratch=$name); return; } #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ sub _closers_for_all_curr_open { my $self = $_[0]; my @closers; foreach my $still_open (@{ $self->{'curr_open'} || return }) { my @copy = @$still_open; $copy[1] = {%{ $copy[1] }}; #$copy[1]{'start_line'} = -1; if($copy[0] eq '=for') { $copy[0] = '=end'; } elsif($copy[0] eq '=over') { $self->whine( $still_open->[1]{start_line} , "=over without closing =back" ); $copy[0] = '=back'; } else { die "I don't know how to auto-close an open $copy[0] region"; } unless( @copy > 2 ) { push @copy, $copy[1]{'target'}; $copy[-1] = '' unless defined $copy[-1]; # since =over's don't have targets } $copy[1]{'fake-closer'} = 1; DEBUG and print STDERR "Queuing up fake-o event: ", pretty(\@copy), "\n"; unshift @closers, \@copy; } return @closers; } #-------------------------------------------------------------------------- sub _verbatim_format { my($it, $p) = @_; my $formatting; for(my $i = 2; $i < @$p; $i++) { # work backwards over the lines DEBUG and print STDERR "_verbatim_format appends a newline to $i: $p->[$i]\n"; $p->[$i] .= "\n"; # Unlike with simple Verbatim blocks, we don't end up just doing # a join("\n", ...) on the contents, so we have to append a # newline to every line, and then nix the last one later. } if( DEBUG > 4 ) { print STDERR "<<\n"; for(my $i = $#$p; $i >= 2; $i--) { # work backwards over the lines print STDERR "_verbatim_format $i: $p->[$i]"; } print STDERR ">>\n"; } for(my $i = $#$p; $i > 2; $i--) { # work backwards over the lines, except the first (#2) #next unless $p->[$i] =~ m{^#:([ \^\/\%]*)\n?$}s # and $p->[$i-1] !~ m{^#:[ \^\/\%]*\n?$}s; # look at a formatty line preceding a nonformatty one DEBUG > 5 and print STDERR "Scrutinizing line $i: $$p[$i]\n"; if($p->[$i] =~ m{^#:([ \^\/\%]*)\n?$}s) { DEBUG > 5 and print STDERR " It's a formatty line. ", "Peeking at previous line ", $i-1, ": $$p[$i-1]: \n"; if( $p->[$i-1] =~ m{^#:[ \^\/\%]*\n?$}s ) { DEBUG > 5 and print STDERR " Previous line is formatty! Skipping this one.\n"; next; } else { DEBUG > 5 and print STDERR " Previous line is non-formatty! Yay!\n"; } } else { DEBUG > 5 and print STDERR " It's not a formatty line. Ignoring\n"; next; } # A formatty line has to have #: in the first two columns, and uses # "^" to mean bold, "/" to mean underline, and "%" to mean bold italic. # Example: # What do you want? i like pie. [or whatever] # #:^^^^^^^^^^^^^^^^^ ///////////// DEBUG > 4 and print STDERR "_verbatim_format considers:\n<$p->[$i-1]>\n<$p->[$i]>\n"; $formatting = ' ' . $1; $formatting =~ s/\s+$//s; # nix trailing whitespace unless(length $formatting and $p->[$i-1] =~ m/\S/) { # no-op splice @$p,$i,1; # remove this line $i--; # don't consider next line next; } if( length($formatting) >= length($p->[$i-1]) ) { $formatting = substr($formatting, 0, length($p->[$i-1]) - 1) . ' '; } else { $formatting .= ' ' x (length($p->[$i-1]) - length($formatting)); } # Make $formatting and the previous line be exactly the same length, # with $formatting having a " " as the last character. DEBUG > 4 and print STDERR "Formatting <$formatting> on <", $p->[$i-1], ">\n"; my @new_line; while( $formatting =~ m{\G(( +)|(\^+)|(\/+)|(\%+))}g ) { #print STDERR "Format matches $1\n"; if($2) { #print STDERR "SKIPPING <$2>\n"; push @new_line, substr($p->[$i-1], pos($formatting)-length($1), length($1)); } else { #print STDERR "SNARING $+\n"; push @new_line, [ ( $3 ? 'VerbatimB' : $4 ? 'VerbatimI' : $5 ? 'VerbatimBI' : die("Should never get called") ), {}, substr($p->[$i-1], pos($formatting)-length($1), length($1)) ]; #print STDERR "Formatting <$new_line[-1][-1]> as $new_line[-1][0]\n"; } } my @nixed = splice @$p, $i-1, 2, @new_line; # replace myself and the next line DEBUG > 10 and print STDERR "Nixed count: ", scalar(@nixed), "\n"; DEBUG > 6 and print STDERR "New version of the above line is these tokens (", scalar(@new_line), "):", map( ref($_)?"<@$_> ":"<$_>", @new_line ), "\n"; $i--; # So the next line we scrutinize is the line before the one # that we just went and formatted } $p->[0] = 'VerbatimFormatted'; # Collapse adjacent text nodes, just for kicks. for( my $i = 2; $i > $#$p; $i++ ) { # work forwards over the tokens except for the last if( !ref($p->[$i]) and !ref($p->[$i + 1]) ) { DEBUG > 5 and print STDERR "_verbatim_format merges {$p->[$i]} and {$p->[$i+1]}\n"; $p->[$i] .= splice @$p, $i+1, 1; # merge --$i; # and back up } } # Now look for the last text token, and remove the terminal newline for( my $i = $#$p; $i >= 2; $i-- ) { # work backwards over the tokens, even the first if( !ref($p->[$i]) ) { if($p->[$i] =~ s/\n$//s) { DEBUG > 5 and print STDERR "_verbatim_format killed the terminal newline on #$i: {$p->[$i]}, after {$p->[$i-1]}\n"; } else { DEBUG > 5 and print STDERR "No terminal newline on #$i: {$p->[$i]}, after {$p->[$i-1]} !?\n"; } last; # we only want the next one } } return; } #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ sub _treelet_from_formatting_codes { # Given a paragraph, returns a treelet. Full of scary tokenizing code. # Like [ '~Top', {'start_line' => $start_line}, # "I like ", # [ 'B', {}, "pie" ], # "!" # ] # This illustrates the general format of a treelet. It is an array: # [0] is a scalar indicating its type. In the example above, the # types are '~Top' and 'B' # [1] is a hash of various flags about it, possibly empty # [2] - [N] are an ordered list of the subcomponents of the treelet. # Scalars are literal text, refs are sub-treelets, to # arbitrary levels. Stringifying a treelet will recursively # stringify the sub-treelets, concatentating everything # together to form the exact text of the treelet. my($self, $para, $start_line, $preserve_space) = @_; my $treelet = ['~Top', {'start_line' => $start_line},]; unless ($preserve_space || $self->{'preserve_whitespace'}) { $para =~ s/\s+/ /g; # collapse and trim all whitespace first. $para =~ s/ $//; $para =~ s/^ //; } # Only apparent problem the above code is that N<< >> turns into # N<< >>. But then, word wrapping does that too! So don't do that! # As a Start-code is encountered, the number of opening bracket '<' # characters minus 1 is pushed onto @stack (so 0 means a single bracket, # etc). When closing brackets are found in the text, at least this number # (plus the 1) will be required to mean the Start-code is terminated. When # those are found, @stack is popped. my @stack; my @lineage = ($treelet); my $raw = ''; # raw content of L<> fcode before splitting/processing # XXX 'raw' is not 100% accurate: all surrounding whitespace is condensed # into just 1 ' '. Is this the regex's doing or 'raw's? Answer is it's # the 'collapse and trim all whitespace first' lines just above. my $inL = 0; DEBUG > 4 and print STDERR "Paragraph:\n$para\n\n"; # Here begins our frightening tokenizer RE. The following regex matches # text in four main parts: # # * Start-codes. The first alternative matches C< or C<<, the latter # followed by some whitespace. $1 will hold the entire start code # (including any space following a multiple-angle-bracket delimiter), # and $2 will hold only the additional brackets past the first in a # multiple-bracket delimiter. length($2) + 1 will be the number of # closing brackets we have to find. # # * Closing brackets. Match some amount of whitespace followed by # multiple close brackets. The logic to see if this closes anything # is down below. Note that in order to parse C<< >> correctly, we # have to use look-behind (?<=\s\s), since the match of the starting # code will have consumed the whitespace. # # * A single closing bracket, to close a simple code like C<>. # # * Something that isn't a start or end code. We have to be careful # about accepting whitespace, since perlpodspec says that any whitespace # before a multiple-bracket closing delimiter should be ignored. # while($para =~ m/\G (?: # Match starting codes, including the whitespace following a # multiple-delimiter start code. $1 gets the whole start code and # $2 gets all but one of the <s in the multiple-bracket case. ([A-Z]<(?:(<+)\s+)?) | # Match multiple-bracket end codes. $3 gets the whitespace that # should be discarded before an end bracket but kept in other cases # and $4 gets the end brackets themselves. ($3 can be empty if the # construct is empty, like C<< >>, and all the white-space has been # gobbled up already, considered to be space after the opening # bracket. In this case we use look-behind to verify that there are # at least 2 spaces in a row before the ">".) (\s+|(?<=\s\s))(>{2,}) | (\s?>) # $5: simple end-codes | ( # $6: stuff containing no start-codes or end-codes (?: [^A-Z\s>] | (?: [A-Z](?!<) ) | # whitespace is ok, but we don't want to eat the whitespace before # a multiple-bracket end code. # NOTE: we may still have problems with e.g. S<< >> (?: \s(?!\s*>{2,}) ) )+ ) ) /xgo ) { DEBUG > 4 and print STDERR "\nParagraphic tokenstack = (@stack)\n"; if(defined $1) { my $bracket_count; # How many '<<<' in a row this has. Needed for # Pod::Simple::JustPod if(defined $2) { DEBUG > 3 and print STDERR "Found complex start-text code \"$1\"\n"; $bracket_count = length($2) + 1; push @stack, $bracket_count; # length of the necessary complex # end-code string } else { DEBUG > 3 and print STDERR "Found simple start-text code \"$1\"\n"; push @stack, 0; # signal that we're looking for simple $bracket_count = 1; } my $code = substr($1,0,1); if ('L' eq $code) { if ($inL) { $raw .= $1; $self->scream( $start_line, 'Nested L<> are illegal. Pretending inner one is ' . 'X<...> so can continue looking for other errors.'); $code = "X"; } else { $raw = ""; # reset raw content accumulator $inL = @stack; } } else { $raw .= $1 if $inL; } push @lineage, [ $code, {}, ]; # new node object # Tell Pod::Simple::JustPod how many brackets there were, but to save # space, not in the most usual case of there was just 1. It can be # inferred by the absence of this element. Similarly, if there is more # than one bracket, extract the white space between the final bracket # and the real beginning of the interior. Save that if it isn't just a # single space if ($self->{'_output_is_for_JustPod'} && $bracket_count > 1) { $lineage[-1][1]{'~bracket_count'} = $bracket_count; my $lspacer = substr($1, 1 + $bracket_count); $lineage[-1][1]{'~lspacer'} = $lspacer if $lspacer ne " "; } push @{ $lineage[-2] }, $lineage[-1]; } elsif(defined $4) { DEBUG > 3 and print STDERR "Found apparent complex end-text code \"$3$4\"\n"; # This is where it gets messy... if(! @stack) { # We saw " >>>>" but needed nothing. This is ALL just stuff then. DEBUG > 4 and print STDERR " But it's really just stuff.\n"; push @{ $lineage[-1] }, $3, $4; next; } elsif(!$stack[-1]) { # We saw " >>>>" but needed only ">". Back pos up. DEBUG > 4 and print STDERR " And that's more than we needed to close simple.\n"; push @{ $lineage[-1] }, $3; # That was a for-real space, too. pos($para) = pos($para) - length($4) + 1; } elsif($stack[-1] == length($4)) { # We found " >>>>", and it was exactly what we needed. Commonest case. DEBUG > 4 and print STDERR " And that's exactly what we needed to close complex.\n"; } elsif($stack[-1] < length($4)) { # We saw " >>>>" but needed only " >>". Back pos up. DEBUG > 4 and print STDERR " And that's more than we needed to close complex.\n"; pos($para) = pos($para) - length($4) + $stack[-1]; } else { # We saw " >>>>" but needed " >>>>>>". So this is all just stuff! DEBUG > 4 and print STDERR " But it's really just stuff, because we needed more.\n"; push @{ $lineage[-1] }, $3, $4; next; } #print STDERR "\nHOOBOY ", scalar(@{$lineage[-1]}), "!!!\n"; if ($3 ne " " && $self->{'_output_is_for_JustPod'}) { if ($3 ne "") { $lineage[-1][1]{'~rspacer'} = $3; } elsif ($lineage[-1][1]{'~lspacer'} eq " ") { # Here we had something like C<< >> which was a false positive delete $lineage[-1][1]{'~lspacer'}; } else { $lineage[-1][1]{'~rspacer'} = substr($lineage[-1][1]{'~lspacer'}, -1, 1); chop $lineage[-1][1]{'~lspacer'}; } } push @{ $lineage[-1] }, '' if 2 == @{ $lineage[-1] }; # Keep the element from being childless if ($inL == @stack) { $lineage[-1][1]{'raw'} = $raw; $inL = 0; } pop @stack; pop @lineage; $raw .= $3.$4 if $inL; } elsif(defined $5) { DEBUG > 3 and print STDERR "Found apparent simple end-text code \"$5\"\n"; if(@stack and ! $stack[-1]) { # We're indeed expecting a simple end-code DEBUG > 4 and print STDERR " It's indeed an end-code.\n"; if(length($5) == 2) { # There was a space there: " >" push @{ $lineage[-1] }, ' '; } elsif( 2 == @{ $lineage[-1] } ) { # Closing a childless element push @{ $lineage[-1] }, ''; # keep it from being really childless } if ($inL == @stack) { $lineage[-1][1]{'raw'} = $raw; $inL = 0; } pop @stack; pop @lineage; } else { DEBUG > 4 and print STDERR " It's just stuff.\n"; push @{ $lineage[-1] }, $5; } $raw .= $5 if $inL; } elsif(defined $6) { DEBUG > 3 and print STDERR "Found stuff \"$6\"\n"; push @{ $lineage[-1] }, $6; $raw .= $6 if $inL; # XXX does not capture multiplace whitespaces -- 'raw' ends up with # at most 1 leading/trailing whitespace, why not all of it? # Answer, because we deliberately trimmed it above } else { # should never ever ever ever happen DEBUG and print STDERR "AYYAYAAAAA at line ", __LINE__, "\n"; die "SPORK 512512!"; } } if(@stack) { # Uhoh, some sequences weren't closed. my $x= "..."; while(@stack) { push @{ $lineage[-1] }, '' if 2 == @{ $lineage[-1] }; # Hmmmmm! my $code = (pop @lineage)->[0]; my $ender_length = pop @stack; if($ender_length) { --$ender_length; $x = $code . ("<" x $ender_length) . " $x " . (">" x $ender_length); } else { $x = $code . "<$x>"; } } DEBUG > 1 and print STDERR "Unterminated $x sequence\n"; $self->whine($start_line, "Unterminated $x sequence", ); } return $treelet; } #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ sub text_content_of_treelet { # method: $parser->text_content_of_treelet($lol) return stringify_lol($_[1]); } sub stringify_lol { # function: stringify_lol($lol) my $string_form = ''; _stringify_lol( $_[0] => \$string_form ); return $string_form; } sub _stringify_lol { # the real recursor my($lol, $to) = @_; for(my $i = 2; $i < @$lol; ++$i) { if( ref($lol->[$i] || '') and UNIVERSAL::isa($lol->[$i], 'ARRAY') ) { _stringify_lol( $lol->[$i], $to); # recurse! } else { $$to .= $lol->[$i]; } } return; } #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ sub _dump_curr_open { # return a string representation of the stack my $curr_open = $_[0]{'curr_open'}; return '[empty]' unless @$curr_open; return join '; ', map {; ($_->[0] eq '=for') ? ( ($_->[1]{'~really'} || '=over') . ' ' . $_->[1]{'target'}) : $_->[0] } @$curr_open ; } ########################################################################### my %pretty_form = ( "\a" => '\a', # ding! "\b" => '\b', # BS "\e" => '\e', # ESC "\f" => '\f', # FF "\t" => '\t', # tab "\cm" => '\cm', "\cj" => '\cj', "\n" => '\n', # probably overrides one of either \cm or \cj '"' => '\"', '\\' => '\\\\', '$' => '\\$', '@' => '\\@', '%' => '\\%', '#' => '\\#', ); sub pretty { # adopted from Class::Classless # Not the most brilliant routine, but passable. # Don't give it a cyclic data structure! my @stuff = @_; # copy my $x; my $out = # join ",\n" . join ", ", map {; if(!defined($_)) { "undef"; } elsif(ref($_) eq 'ARRAY' or ref($_) eq 'Pod::Simple::LinkSection') { $x = "[ " . pretty(@$_) . " ]" ; $x; } elsif(ref($_) eq 'SCALAR') { $x = "\\" . pretty($$_) ; $x; } elsif(ref($_) eq 'HASH') { my $hr = $_; $x = "{" . join(", ", map(pretty($_) . '=>' . pretty($hr->{$_}), sort keys %$hr ) ) . "}" ; $x; } elsif(!length($_)) { q{''} # empty string } elsif( $_ eq '0' # very common case or( m/^-?(?:[123456789]\d*|0)(?:\.\d+)?$/s and $_ ne '-0' # the strange case that RE lets thru ) ) { $_; } else { # Yes, explicitly name every character desired. There are shorcuts one # could make, but I (Karl Williamson) was afraid that some Perl # releases would have bugs in some of them. For example [A-Z] works # even on EBCDIC platforms to match exactly the 26 uppercase English # letters, but I don't know if it has always worked without bugs. It # seemed safest just to list the characters. # s<([^\x20\x21\x23\x27-\x3F\x41-\x5B\x5D-\x7E])> s<([^ !"#'()*+,\-./0123456789:;\<=\>?ABCDEFGHIJKLMNOPQRSTUVWXYZ\[\]^_`abcdefghijklmnopqrstuvwxyz{|}~])> <$pretty_form{$1} || '\\x{'.sprintf("%x", ord($1)).'}'>eg; #<$pretty_form{$1} || '\\x'.(unpack("H2",$1))>eg; qq{"$_"}; } } @stuff; # $out =~ s/\n */ /g if length($out) < 75; return $out; } #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ # A rather unsubtle method of blowing away all the state information # from a parser object so it can be reused. Provided as a utility for # backward compatibility in Pod::Man, etc. but not recommended for # general use. sub reinit { my $self = shift; foreach (qw(source_dead source_filename doc_has_started start_of_pod_block content_seen last_was_blank paras curr_open line_count pod_para_count in_pod ~tried_gen_errata all_errata errata errors_seen Title)) { delete $self->{$_}; } } #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 1; PK ! �{X� � 5.34.0/Pod/Simple/TiedOutFH.pmnu �[��� use strict; package Pod::Simple::TiedOutFH; use Symbol ('gensym'); use Carp (); use vars qw($VERSION ); $VERSION = '3.42'; #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ sub handle_on { # some horrible frightening things are encapsulated in here my $class = shift; $class = ref($class) || $class; Carp::croak "Usage: ${class}->handle_on(\$somescalar)" unless @_; my $x = (defined($_[0]) and ref($_[0])) ? $_[0] : ( \( $_[0] ) )[0] ; $$x = '' unless defined $$x; #Pod::Simple::DEBUG and print STDERR "New $class handle on $x = \"$$x\"\n"; my $new = gensym(); tie *$new, $class, $x; return $new; } #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ sub TIEHANDLE { # Ties to just a scalar ref my($class, $scalar_ref) = @_; $$scalar_ref = '' unless defined $$scalar_ref; return bless \$scalar_ref, ref($class) || $class; } sub PRINT { my $it = shift; foreach my $x (@_) { $$$it .= $x } #Pod::Simple::DEBUG > 10 and print STDERR " appended to $$it = \"$$$it\"\n"; return 1; } sub FETCH { return ${$_[0]}; } sub PRINTF { my $it = shift; my $format = shift; $$$it .= sprintf $format, @_; return 1; } sub FILENO { ${ $_[0] } + 100 } # just to produce SOME number sub CLOSE { 1 } #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 1; __END__ Chole * 1 large red onion * 2 tomatillos * 4 or 5 roma tomatoes (optionally with the pulp discarded) * 1 tablespoons chopped ginger root (or more, to taste) * 2 tablespoons canola oil (or vegetable oil) * 1 tablespoon garam masala * 1/2 teaspoon red chili powder, or to taste * Salt, to taste (probably quite a bit) * 2 (15-ounce) cans chick peas or garbanzo beans, drained and rinsed * juice of one smallish lime * a dash of balsamic vinegar (to taste) * cooked rice, preferably long-grain white rice (whether plain, basmati rice, jasmine rice, or even a mild pilaf) In a blender or food processor, puree the onions, tomatoes, tomatillos, and ginger root. You can even do it with a Braun hand "mixer", if you chop things finer to start with, and work at it. In a saucepan set over moderate heat, warm the oil until hot. Add the puree and the balsamic vinegar, and cook, stirring occasionally, for 20 to 40 minutes. (Cooking it longer will make it sweeter.) Add the Garam Masala, chili powder, and cook, stirring occasionally, for 5 minutes. Add the salt and chick peas and cook, stirring, until heated through. Stir in the lime juice, and optionally one or two teaspoons of tahini. You can let it simmer longer, depending on how much softer you want the garbanzos to get. Serve over rice, like a curry. Yields 5 to 7 servings. PK ! �C�:: : ! 5.34.0/Pod/Simple/XMLOutStream.pmnu �[��� require 5; package Pod::Simple::XMLOutStream; use strict; use Carp (); use Pod::Simple (); use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS); $VERSION = '3.42'; BEGIN { @ISA = ('Pod::Simple'); *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG; } $ATTR_PAD = "\n" unless defined $ATTR_PAD; # Don't mess with this unless you know what you're doing. $SORT_ATTRS = 0 unless defined $SORT_ATTRS; sub new { my $self = shift; my $new = $self->SUPER::new(@_); $new->{'output_fh'} ||= *STDOUT{IO}; $new->keep_encoding_directive(1); #$new->accept_codes('VerbatimFormatted'); return $new; } #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ sub _handle_element_start { # ($self, $element_name, $attr_hash_r) my $fh = $_[0]{'output_fh'}; my($key, $value); DEBUG and print STDERR "++ $_[1]\n"; print $fh "<", $_[1]; if($SORT_ATTRS) { foreach my $key (sort keys %{$_[2]}) { unless($key =~ m/^~/s) { next if $key eq 'start_line' and $_[0]{'hide_line_numbers'}; _xml_escape($value = $_[2]{$key}); print $fh $ATTR_PAD, $key, '="', $value, '"'; } } } else { # faster while(($key,$value) = each %{$_[2]}) { unless($key =~ m/^~/s) { next if $key eq 'start_line' and $_[0]{'hide_line_numbers'}; _xml_escape($value); print $fh $ATTR_PAD, $key, '="', $value, '"'; } } } print $fh ">"; return; } sub _handle_text { DEBUG and print STDERR "== \"$_[1]\"\n"; if(length $_[1]) { my $text = $_[1]; _xml_escape($text); print {$_[0]{'output_fh'}} $text; } return; } sub _handle_element_end { DEBUG and print STDERR "-- $_[1]\n"; print {$_[0]{'output_fh'}} "</", $_[1], ">"; return; } # . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ sub _xml_escape { foreach my $x (@_) { # Escape things very cautiously: if ($] ge 5.007_003) { $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(utf8::native_to_unicode(ord($1))).';'/eg; } else { # Is broken for non-ASCII platforms on early perls $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg; } # Yes, stipulate the list without a range, so that this can work right on # all charsets that this module happens to run under. } return; } #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 1; __END__ =head1 NAME Pod::Simple::XMLOutStream -- turn Pod into XML =head1 SYNOPSIS perl -MPod::Simple::XMLOutStream -e \ "exit Pod::Simple::XMLOutStream->filter(shift)->any_errata_seen" \ thingy.pod =head1 DESCRIPTION Pod::Simple::XMLOutStream is a subclass of L<Pod::Simple> that parses Pod and turns it into XML. Pod::Simple::XMLOutStream inherits methods from L<Pod::Simple>. =head1 SEE ALSO L<Pod::Simple::DumpAsXML> is rather like this class; see its documentation for a discussion of the differences. L<Pod::Simple>, L<Pod::Simple::DumpAsXML>, L<Pod::SAX> L<Pod::Simple::Subclassing> The older (and possibly obsolete) libraries L<Pod::PXML>, L<Pod::XML> =head1 ABOUT EXTENDING POD TODO: An example or two of =extend, then point to Pod::Simple::Subclassing =head1 SEE ALSO L<Pod::Simple>, L<Pod::Simple::Text>, L<Pod::Spell> =head1 SUPPORT Questions or discussion about POD and Pod::Simple should be sent to the pod-people@perl.org mail list. Send an empty email to pod-people-subscribe@perl.org to subscribe. This module is managed in an open GitHub repository, L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <bug-pod-simple@rt.cpan.org>. =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2002-2004 Sean M. Burke. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Pod::Simple was created by Sean M. Burke <sburke@cpan.org>. But don't bother him, he's retired. Pod::Simple is maintained by: =over =item * Allison Randal C<allison@perl.org> =item * Hans Dieter Pearcey C<hdp@cpan.org> =item * David E. Wheeler C<dwheeler@cpan.org> =back =cut PK ! ��� �� �� ! 5.34.0/Pod/Simple/Subclassing.podnu �[��� =head1 NAME Pod::Simple::Subclassing -- write a formatter as a Pod::Simple subclass =head1 SYNOPSIS package Pod::SomeFormatter; use Pod::Simple; @ISA = qw(Pod::Simple); $VERSION = '1.01'; use strict; sub _handle_element_start { my($parser, $element_name, $attr_hash_r) = @_; ... } sub _handle_element_end { my($parser, $element_name, $attr_hash_r) = @_; # NOTE: $attr_hash_r is only present when $element_name is "over" or "begin" # The remaining code excerpts will mostly ignore this $attr_hash_r, as it is # mostly useless. It is documented where "over-*" and "begin" events are # documented. ... } sub _handle_text { my($parser, $text) = @_; ... } 1; =head1 DESCRIPTION This document is about using Pod::Simple to write a Pod processor, generally a Pod formatter. If you just want to know about using an existing Pod formatter, instead see its documentation and see also the docs in L<Pod::Simple>. B<The zeroeth step> in writing a Pod formatter is to make sure that there isn't already a decent one in CPAN. See L<http://search.cpan.org/>, and run a search on the name of the format you want to render to. Also consider joining the Pod People list L<http://lists.perl.org/showlist.cgi?name=pod-people> and asking whether anyone has a formatter for that format -- maybe someone cobbled one together but just hasn't released it. B<The first step> in writing a Pod processor is to read L<perlpodspec>, which contains information on writing a Pod parser (which has been largely taken care of by Pod::Simple), but also a lot of requirements and recommendations for writing a formatter. B<The second step> is to actually learn the format you're planning to format to -- or at least as much as you need to know to represent Pod, which probably isn't much. B<The third step> is to pick which of Pod::Simple's interfaces you want to use: =over =item Pod::Simple The basic L<Pod::Simple> interface that uses C<_handle_element_start()>, C<_handle_element_end()> and C<_handle_text()>. =item Pod::Simple::Methody The L<Pod::Simple::Methody> interface is event-based, similar to that of L<HTML::Parser> or L<XML::Parser>'s "Handlers". =item Pod::Simple::PullParser L<Pod::Simple::PullParser> provides a token-stream interface, sort of like L<HTML::TokeParser>'s interface. =item Pod::Simple::SimpleTree L<Pod::Simple::SimpleTree> provides a simple tree interface, rather like L<XML::Parser>'s "Tree" interface. Users familiar with XML handling will be comfortable with this interface. Users interested in outputting XML, should look into the modules that produce an XML representation of the Pod stream, notably L<Pod::Simple::XMLOutStream>; you can feed the output of such a class to whatever XML parsing system you are most at home with. =back B<The last step> is to write your code based on how the events (or tokens, or tree-nodes, or the XML, or however you're parsing) will map to constructs in the output format. Also be sure to consider how to escape text nodes containing arbitrary text, and what to do with text nodes that represent preformatted text (from verbatim sections). =head1 Events TODO intro... mention that events are supplied for implicits, like for missing >'s In the following section, we use XML to represent the event structure associated with a particular construct. That is, an opening tag represents the element start, the attributes of that opening tag are the attributes given to the callback, and the closing tag represents the end element. Three callback methods must be supplied by a class extending L<Pod::Simple> to receive the corresponding event: =over =item C<< $parser->_handle_element_start( I<element_name>, I<attr_hashref> ) >> =item C<< $parser->_handle_element_end( I<element_name> ) >> =item C<< $parser->_handle_text( I<text_string> ) >> =back Here's the comprehensive list of values you can expect as I<element_name> in your implementation of C<_handle_element_start> and C<_handle_element_end>:: =over =item events with an element_name of Document Parsing a document produces this event structure: <Document start_line="543"> ...all events... </Document> The value of the I<start_line> attribute will be the line number of the first Pod directive in the document. If there is no Pod in the given document, then the event structure will be this: <Document contentless="1" start_line="543"> </Document> In that case, the value of the I<start_line> attribute will not be meaningful; under current implementations, it will probably be the line number of the last line in the file. =item events with an element_name of Para Parsing a plain (non-verbatim, non-directive, non-data) paragraph in a Pod document produces this event structure: <Para start_line="543"> ...all events in this paragraph... </Para> The value of the I<start_line> attribute will be the line number of the start of the paragraph. For example, parsing this paragraph of Pod: The value of the I<start_line> attribute will be the line number of the start of the paragraph. produces this event structure: <Para start_line="129"> The value of the <I> start_line </I> attribute will be the line number of the first Pod directive in the document. </Para> =item events with an element_name of B, C, F, or I. Parsing a BE<lt>...E<gt> formatting code (or of course any of its semantically identical syntactic variants S<BE<lt>E<lt> ... E<gt>E<gt>>, or S<BE<lt>E<lt>E<lt>E<lt> ... E<gt>E<gt>E<gt>E<gt>>, etc.) produces this event structure: <B> ...stuff... </B> Currently, there are no attributes conveyed. Parsing C, F, or I codes produce the same structure, with only a different element name. If your parser object has been set to accept other formatting codes, then they will be presented like these B/C/F/I codes -- i.e., without any attributes. =item events with an element_name of S Normally, parsing an SE<lt>...E<gt> sequence produces this event structure, just as if it were a B/C/F/I code: <S> ...stuff... </S> However, Pod::Simple (and presumably all derived parsers) offers the C<nbsp_for_S> option which, if enabled, will suppress all S events, and instead change all spaces in the content to non-breaking spaces. This is intended for formatters that output to a format that has no code that means the same as SE<lt>...E<gt>, but which has a code/character that means non-breaking space. =item events with an element_name of X Normally, parsing an XE<lt>...E<gt> sequence produces this event structure, just as if it were a B/C/F/I code: <X> ...stuff... </X> However, Pod::Simple (and presumably all derived parsers) offers the C<nix_X_codes> option which, if enabled, will suppress all X events and ignore their content. For formatters/processors that don't use X events, this is presumably quite useful. =item events with an element_name of L Because the LE<lt>...E<gt> is the most complex construct in the language, it should not surprise you that the events it generates are the most complex in the language. Most of complexity is hidden away in the attribute values, so for those of you writing a Pod formatter that produces a non-hypertextual format, you can just ignore the attributes and treat an L event structure like a formatting element that (presumably) doesn't actually produce a change in formatting. That is, the content of the L event structure (as opposed to its attributes) is always what text should be displayed. There are, at first glance, three kinds of L links: URL, man, and pod. When a LE<lt>I<some_url>E<gt> code is parsed, it produces this event structure: <L content-implicit="yes" raw="that_url" to="that_url" type="url"> that_url </L> The C<type="url"> attribute is always specified for this type of L code. For example, this Pod source: L<http://www.perl.com/CPAN/authors/> produces this event structure: <L content-implicit="yes" raw="http://www.perl.com/CPAN/authors/" to="http://www.perl.com/CPAN/authors/" type="url"> http://www.perl.com/CPAN/authors/ </L> When a LE<lt>I<manpage(section)>E<gt> code is parsed (and these are fairly rare and not terribly useful), it produces this event structure: <L content-implicit="yes" raw="manpage(section)" to="manpage(section)" type="man"> manpage(section) </L> The C<type="man"> attribute is always specified for this type of L code. For example, this Pod source: L<crontab(5)> produces this event structure: <L content-implicit="yes" raw="crontab(5)" to="crontab(5)" type="man"> crontab(5) </L> In the rare cases where a man page link has a section specified, that text appears in a I<section> attribute. For example, this Pod source: L<crontab(5)/"ENVIRONMENT"> will produce this event structure: <L content-implicit="yes" raw="crontab(5)/"ENVIRONMENT"" section="ENVIRONMENT" to="crontab(5)" type="man"> "ENVIRONMENT" in crontab(5) </L> In the rare case where the Pod document has code like LE<lt>I<sometext>|I<manpage(section)>E<gt>, then the I<sometext> will appear as the content of the element, the I<manpage(section)> text will appear only as the value of the I<to> attribute, and there will be no C<content-implicit="yes"> attribute (whose presence means that the Pod parser had to infer what text should appear as the link text -- as opposed to cases where that attribute is absent, which means that the Pod parser did I<not> have to infer the link text, because that L code explicitly specified some link text.) For example, this Pod source: L<hell itself!|crontab(5)> will produce this event structure: <L raw="hell itself!|crontab(5)" to="crontab(5)" type="man"> hell itself! </L> The last type of L structure is for links to/within Pod documents. It is the most complex because it can have a I<to> attribute, I<or> a I<section> attribute, or both. The C<type="pod"> attribute is always specified for this type of L code. In the most common case, the simple case of a LE<lt>podpageE<gt> code produces this event structure: <L content-implicit="yes" raw="podpage" to="podpage" type="pod"> podpage </L> For example, this Pod source: L<Net::Ping> produces this event structure: <L content-implicit="yes" raw="Net::Ping" to="Net::Ping" type="pod"> Net::Ping </L> In cases where there is link-text explicitly specified, it is to be found in the content of the element (and not the attributes), just as with the LE<lt>I<sometext>|I<manpage(section)>E<gt> case discussed above. For example, this Pod source: L<Perl Error Messages|perldiag> produces this event structure: <L raw="Perl Error Messages|perldiag" to="perldiag" type="pod"> Perl Error Messages </L> In cases of links to a section in the current Pod document, there is a I<section> attribute instead of a I<to> attribute. For example, this Pod source: L</"Member Data"> produces this event structure: <L content-implicit="yes" raw="/"Member Data"" section="Member Data" type="pod"> "Member Data" </L> As another example, this Pod source: L<the various attributes|/"Member Data"> produces this event structure: <L raw="the various attributes|/"Member Data"" section="Member Data" type="pod"> the various attributes </L> In cases of links to a section in a different Pod document, there are both a I<section> attribute and a L<to> attribute. For example, this Pod source: L<perlsyn/"Basic BLOCKs and Switch Statements"> produces this event structure: <L content-implicit="yes" raw="perlsyn/"Basic BLOCKs and Switch Statements"" section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod"> "Basic BLOCKs and Switch Statements" in perlsyn </L> As another example, this Pod source: L<SWITCH statements|perlsyn/"Basic BLOCKs and Switch Statements"> produces this event structure: <L raw="SWITCH statements|perlsyn/"Basic BLOCKs and Switch Statements"" section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod"> SWITCH statements </L> Incidentally, note that we do not distinguish between these syntaxes: L</"Member Data"> L<"Member Data"> L</Member Data> L<Member Data> [deprecated syntax] That is, they all produce the same event structure (for the most part), namely: <L content-implicit="yes" raw="$depends_on_syntax" section="Member Data" type="pod"> "Member Data" </L> The I<raw> attribute depends on what the raw content of the C<LE<lt>E<gt>> is, so that is why the event structure is the same "for the most part". If you have not guessed it yet, the I<raw> attribute contains the raw, original, unescaped content of the C<LE<lt>E<gt>> formatting code. In addition to the examples above, take notice of the following event structure produced by the following C<LE<lt>E<gt>> formatting code. L<click B<here>|page/About the C<-M> switch> <L raw="click B<here>|page/About the C<-M> switch" section="About the -M switch" to="page" type="pod"> click B<here> </L> Specifically, notice that the formatting codes are present and unescaped in I<raw>. There is a known bug in the I<raw> attribute where any surrounding whitespace is condensed into a single ' '. For example, given LE<60> linkE<62>, I<raw> will be " link". =item events with an element_name of E or Z While there are Pod codes EE<lt>...E<gt> and ZE<lt>E<gt>, these I<do not> produce any E or Z events -- that is, there are no such events as E or Z. =item events with an element_name of Verbatim When a Pod verbatim paragraph (AKA "codeblock") is parsed, it produces this event structure: <Verbatim start_line="543" xml:space="preserve"> ...text... </Verbatim> The value of the I<start_line> attribute will be the line number of the first line of this verbatim block. The I<xml:space> attribute is always present, and always has the value "preserve". The text content will have tabs already expanded. =item events with an element_name of head1 .. head4 When a "=head1 ..." directive is parsed, it produces this event structure: <head1> ...stuff... </head1> For example, a directive consisting of this: =head1 Options to C<new> et al. will produce this event structure: <head1 start_line="543"> Options to <C> new </C> et al. </head1> "=head2" through "=head4" directives are the same, except for the element names in the event structure. =item events with an element_name of encoding In the default case, the events corresponding to C<=encoding> directives are not emitted. They are emitted if C<keep_encoding_directive> is true. In that case they produce event structures like L</"events with an element_name of head1 .. head4"> above. =item events with an element_name of over-bullet When an "=over ... Z<>=back" block is parsed where the items are a bulleted list, it will produce this event structure: <over-bullet indent="4" start_line="543"> <item-bullet start_line="545"> ...Stuff... </item-bullet> ...more item-bullets... </over-bullet fake-closer="1"> The attribute I<fake-closer> is only present if it is a true value; it is not present if it is a false value. It is shown in the above example to illustrate where the attribute is (in the B<closing> tag). It signifies that the C<=over> did not have a matching C<=back>, and thus Pod::Simple had to create a fake closer. For example, this Pod source: =over =item * Something =back Would produce an event structure that does B<not> have the I<fake-closer> attribute, whereas this Pod source: =over =item * Gasp! An unclosed =over block! would. The rest of the over-* examples will not demonstrate this attribute, but they all can have it. See L<Pod::Checker>'s source for an example of this attribute being used. The value of the I<indent> attribute is whatever value is after the "=over" directive, as in "=over 8". If no such value is specified in the directive, then the I<indent> attribute has the value "4". For example, this Pod source: =over =item * Stuff =item * Bar I<baz>! =back produces this event structure: <over-bullet indent="4" start_line="10"> <item-bullet start_line="12"> Stuff </item-bullet> <item-bullet start_line="14"> Bar <I>baz</I>! </item-bullet> </over-bullet> =item events with an element_name of over-number When an "=over ... Z<>=back" block is parsed where the items are a numbered list, it will produce this event structure: <over-number indent="4" start_line="543"> <item-number number="1" start_line="545"> ...Stuff... </item-number> ...more item-number... </over-bullet> This is like the "over-bullet" event structure; but note that the contents are "item-number" instead of "item-bullet", and note that they will have a "number" attribute, which some formatters/processors may ignore (since, for example, there's no need for it in HTML when producing an "<UL><LI>...</LI>...</UL>" structure), but which any processor may use. Note that the values for the I<number> attributes of "item-number" elements in a given "over-number" area I<will> start at 1 and go up by one each time. If the Pod source doesn't follow that order (even though it really should!), whatever numbers it has will be ignored (with the correct values being put in the I<number> attributes), and an error message might be issued to the user. =item events with an element_name of over-text These events are somewhat unlike the other over-* structures, as far as what their contents are. When an "=over ... Z<>=back" block is parsed where the items are a list of text "subheadings", it will produce this event structure: <over-text indent="4" start_line="543"> <item-text> ...stuff... </item-text> ...stuff (generally Para or Verbatim elements)... <item-text> ...more item-text and/or stuff... </over-text> The I<indent> and I<fake-closer> attributes are as with the other over-* events. For example, this Pod source: =over =item Foo Stuff =item Bar I<baz>! Quux =back produces this event structure: <over-text indent="4" start_line="20"> <item-text start_line="22"> Foo </item-text> <Para start_line="24"> Stuff </Para> <item-text start_line="26"> Bar <I> baz </I> ! </item-text> <Para start_line="28"> Quux </Para> </over-text> =item events with an element_name of over-block These events are somewhat unlike the other over-* structures, as far as what their contents are. When an "=over ... Z<>=back" block is parsed where there are no items, it will produce this event structure: <over-block indent="4" start_line="543"> ...stuff (generally Para or Verbatim elements)... </over-block> The I<indent> and I<fake-closer> attributes are as with the other over-* events. For example, this Pod source: =over For cutting off our trade with all parts of the world For transporting us beyond seas to be tried for pretended offenses He is at this time transporting large armies of foreign mercenaries to complete the works of death, desolation and tyranny, already begun with circumstances of cruelty and perfidy scarcely paralleled in the most barbarous ages, and totally unworthy the head of a civilized nation. =back will produce this event structure: <over-block indent="4" start_line="2"> <Para start_line="4"> For cutting off our trade with all parts of the world </Para> <Para start_line="6"> For transporting us beyond seas to be tried for pretended offenses </Para> <Para start_line="8"> He is at this time transporting large armies of [...more text...] </Para> </over-block> =item events with an element_name of over-empty B<Note: These events are only triggered if C<parse_empty_lists()> is set to a true value.> These events are somewhat unlike the other over-* structures, as far as what their contents are. When an "=over ... Z<>=back" block is parsed where there is no content, it will produce this event structure: <over-empty indent="4" start_line="543"> </over-empty> The I<indent> and I<fake-closer> attributes are as with the other over-* events. For example, this Pod source: =over =over =back =back will produce this event structure: <over-block indent="4" start_line="1"> <over-empty indent="4" start_line="3"> </over-empty> </over-block> Note that the outer C<=over> is a block because it has no C<=item>s but still has content: the inner C<=over>. The inner C<=over>, in turn, is completely empty, and is treated as such. =item events with an element_name of item-bullet See L</"events with an element_name of over-bullet">, above. =item events with an element_name of item-number See L</"events with an element_name of over-number">, above. =item events with an element_name of item-text See L</"events with an element_name of over-text">, above. =item events with an element_name of for TODO... =item events with an element_name of Data TODO... =back =head1 More Pod::Simple Methods Pod::Simple provides a lot of methods that aren't generally interesting to the end user of an existing Pod formatter, but some of which you might find useful in writing a Pod formatter. They are listed below. The first several methods (the accept_* methods) are for declaring the capabilities of your parser, notably what C<=for I<targetname>> sections it's interested in, what extra NE<lt>...E<gt> codes it accepts beyond the ones described in the I<perlpod>. =over =item C<< $parser->accept_targets( I<SOMEVALUE> ) >> As the parser sees sections like: =for html <img src="fig1.jpg"> or =begin html <img src="fig1.jpg"> =end html ...the parser will ignore these sections unless your subclass has specified that it wants to see sections targeted to "html" (or whatever the formatter name is). If you want to process all sections, even if they're not targeted for you, call this before you start parsing: $parser->accept_targets('*'); =item C<< $parser->accept_targets_as_text( I<SOMEVALUE> ) >> This is like accept_targets, except that it specifies also that the content of sections for this target should be treated as Pod text even if the target name in "=for I<targetname>" doesn't start with a ":". At time of writing, I don't think you'll need to use this. =item C<< $parser->accept_codes( I<Codename>, I<Codename>... ) >> This tells the parser that you accept additional formatting codes, beyond just the standard ones (I B C L F S X, plus the two weird ones you don't actually see in the parse tree, Z and E). For example, to also accept codes "N", "R", and "W": $parser->accept_codes( qw( N R W ) ); B<TODO: document how this interacts with =extend, and long element names> =item C<< $parser->accept_directive_as_data( I<directive_name> ) >> =item C<< $parser->accept_directive_as_verbatim( I<directive_name> ) >> =item C<< $parser->accept_directive_as_processed( I<directive_name> ) >> In the unlikely situation that you need to tell the parser that you will accept additional directives ("=foo" things), you need to first set the parser to treat its content as data (i.e., not really processed at all), or as verbatim (mostly just expanding tabs), or as processed text (parsing formatting codes like BE<lt>...E<gt>). For example, to accept a new directive "=method", you'd presumably use: $parser->accept_directive_as_processed("method"); so that you could have Pod lines like: =method I<$whatever> thing B<um> Making up your own directives breaks compatibility with other Pod formatters, in a way that using "=for I<target> ..." lines doesn't; however, you may find this useful if you're making a Pod superset format where you don't need to worry about compatibility. =item C<< $parser->nbsp_for_S( I<BOOLEAN> ); >> Setting this attribute to a true value (and by default it is false) will turn "SE<lt>...E<gt>" sequences into sequences of words separated by C<\xA0> (non-breaking space) characters. For example, it will take this: I like S<Dutch apple pie>, don't you? and treat it as if it were: I like DutchE<nbsp>appleE<nbsp>pie, don't you? This is handy for output formats that don't have anything quite like an "SE<lt>...E<gt>" code, but which do have a code for non-breaking space. There is currently no method for going the other way; but I can probably provide one upon request. =item C<< $parser->version_report() >> This returns a string reporting the $VERSION value from your module (and its classname) as well as the $VERSION value of Pod::Simple. Note that L<perlpodspec> requires output formats (wherever possible) to note this detail in a comment in the output format. For example, for some kind of SGML output format: print OUT "<!-- \n", $parser->version_report, "\n -->"; =item C<< $parser->pod_para_count() >> This returns the count of Pod paragraphs seen so far. =item C<< $parser->line_count() >> This is the current line number being parsed. But you might find the "line_number" event attribute more accurate, when it is present. =item C<< $parser->nix_X_codes( I<SOMEVALUE> ) >> This attribute, when set to a true value (and it is false by default) ignores any "XE<lt>...E<gt>" sequences in the document being parsed. Many formats don't actually use the content of these codes, so have no reason to process them. =item C<< $parser->keep_encoding_directive( I<SOMEVALUE> ) >> This attribute, when set to a true value (it is false by default) will keep C<=encoding> and its content in the event structure. Most formats don't actually need to process the content of an C<=encoding> directive, even when this directive sets the encoding and the processor makes use of the encoding information. Indeed, it is possible to know the encoding without processing the directive content. =item C<< $parser->merge_text( I<SOMEVALUE> ) >> This attribute, when set to a true value (and it is false by default) makes sure that only one event (or token, or node) will be created for any single contiguous sequence of text. For example, consider this somewhat contrived example: I just LOVE Z<>hotE<32>apple pie! When that is parsed and events are about to be called on it, it may actually seem to be four different text events, one right after another: one event for "I just LOVE ", one for "hot", one for " ", and one for "apple pie!". But if you have merge_text on, then you're guaranteed that it will be fired as one text event: "I just LOVE hot apple pie!". =item C<< $parser->code_handler( I<CODE_REF> ) >> This specifies code that should be called when a code line is seen (i.e., a line outside of the Pod). Normally this is undef, meaning that no code should be called. If you provide a routine, it should start out like this: sub get_code_line { # or whatever you'll call it my($line, $line_number, $parser) = @_; ... } Note, however, that sometimes the Pod events aren't processed in exactly the same order as the code lines are -- i.e., if you have a file with Pod, then code, then more Pod, sometimes the code will be processed (via whatever you have code_handler call) before the all of the preceding Pod has been processed. =item C<< $parser->cut_handler( I<CODE_REF> ) >> This is just like the code_handler attribute, except that it's for "=cut" lines, not code lines. The same caveats apply. "=cut" lines are unlikely to be interesting, but this is included for completeness. =item C<< $parser->pod_handler( I<CODE_REF> ) >> This is just like the code_handler attribute, except that it's for "=pod" lines, not code lines. The same caveats apply. "=pod" lines are unlikely to be interesting, but this is included for completeness. =item C<< $parser->whiteline_handler( I<CODE_REF> ) >> This is just like the code_handler attribute, except that it's for lines that are seemingly blank but have whitespace (" " and/or "\t") on them, not code lines. The same caveats apply. These lines are unlikely to be interesting, but this is included for completeness. =item C<< $parser->whine( I<linenumber>, I<complaint string> ) >> This notes a problem in the Pod, which will be reported in the "Pod Errors" section of the document and/or sent to STDERR, depending on the values of the attributes C<no_whining>, C<no_errata_section>, and C<complain_stderr>. =item C<< $parser->scream( I<linenumber>, I<complaint string> ) >> This notes an error like C<whine> does, except that it is not suppressible with C<no_whining>. This should be used only for very serious errors. =item C<< $parser->source_dead(1) >> This aborts parsing of the current document, by switching on the flag that indicates that EOF has been seen. In particularly drastic cases, you might want to do this. It's rather nicer than just calling C<die>! =item C<< $parser->hide_line_numbers( I<SOMEVALUE> ) >> Some subclasses that indiscriminately dump event attributes (well, except for ones beginning with "~") can use this object attribute for refraining to dump the "start_line" attribute. =item C<< $parser->no_whining( I<SOMEVALUE> ) >> This attribute, if set to true, will suppress reports of non-fatal error messages. The default value is false, meaning that complaints I<are> reported. How they get reported depends on the values of the attributes C<no_errata_section> and C<complain_stderr>. =item C<< $parser->no_errata_section( I<SOMEVALUE> ) >> This attribute, if set to true, will suppress generation of an errata section. The default value is false -- i.e., an errata section will be generated. =item C<< $parser->complain_stderr( I<SOMEVALUE> ) >> This attribute, if set to true will send complaints to STDERR. The default value is false -- i.e., complaints do not go to STDERR. =item C<< $parser->bare_output( I<SOMEVALUE> ) >> Some formatter subclasses use this as a flag for whether output should have prologue and epilogue code omitted. For example, setting this to true for an HTML formatter class should omit the "<html><head><title>...</title><body>..." prologue and the "</body></html>" epilogue. If you want to set this to true, you should probably also set C<no_whining> or at least C<no_errata_section> to true. =item C<< $parser->preserve_whitespace( I<SOMEVALUE> ) >> If you set this attribute to a true value, the parser will try to preserve whitespace in the output. This means that such formatting conventions as two spaces after periods will be preserved by the parser. This is primarily useful for output formats that treat whitespace as significant (such as text or *roff, but not HTML). =item C<< $parser->parse_empty_lists( I<SOMEVALUE> ) >> If this attribute is set to true, the parser will not ignore empty C<=over>/C<=back> blocks. The type of C<=over> will be I<empty>, documented above, L<events with an element_name of over-empty>. =back =head1 SEE ALSO L<Pod::Simple> -- event-based Pod-parsing framework L<Pod::Simple::Methody> -- like Pod::Simple, but each sort of event calls its own method (like C<start_head3>) L<Pod::Simple::PullParser> -- a Pod-parsing framework like Pod::Simple, but with a token-stream interface L<Pod::Simple::SimpleTree> -- a Pod-parsing framework like Pod::Simple, but with a tree interface L<Pod::Simple::Checker> -- a simple Pod::Simple subclass that reads documents, and then makes a plaintext report of any errors found in the document L<Pod::Simple::DumpAsXML> -- for dumping Pod documents as tidily indented XML, showing each event on its own line L<Pod::Simple::XMLOutStream> -- dumps a Pod document as XML (without introducing extra whitespace as Pod::Simple::DumpAsXML does). L<Pod::Simple::DumpAsText> -- for dumping Pod documents as tidily indented text, showing each event on its own line L<Pod::Simple::LinkSection> -- class for objects representing the values of the TODO and TODO attributes of LE<lt>...E<gt> elements L<Pod::Escapes> -- the module that Pod::Simple uses for evaluating EE<lt>...E<gt> content L<Pod::Simple::Text> -- a simple plaintext formatter for Pod L<Pod::Simple::TextContent> -- like Pod::Simple::Text, but makes no effort for indent or wrap the text being formatted L<Pod::Simple::HTML> -- a simple HTML formatter for Pod L<perlpod|perlpod> L<perlpodspec|perlpodspec> L<perldoc> =head1 SUPPORT Questions or discussion about POD and Pod::Simple should be sent to the pod-people@perl.org mail list. Send an empty email to pod-people-subscribe@perl.org to subscribe. This module is managed in an open GitHub repository, L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <bug-pod-simple@rt.cpan.org>. =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2002 Sean M. Burke. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Pod::Simple was created by Sean M. Burke <sburke@cpan.org>. But don't bother him, he's retired. Pod::Simple is maintained by: =over =item * Allison Randal C<allison@perl.org> =item * Hans Dieter Pearcey C<hdp@cpan.org> =item * David E. Wheeler C<dwheeler@cpan.org> =back =for notes Hm, my old podchecker version (1.2) says: *** WARNING: node 'http://search.cpan.org/' contains non-escaped | or / at line 38 in file Subclassing.pod *** WARNING: node 'http://lists.perl.org/showlist.cgi?name=pod-people' contains non-escaped | or / at line 41 in file Subclassing.pod Yes, L<...> is hard. =cut PK ! 5PJ�\ \ 5.34.0/Pod/Simple/RTF.pmnu �[��� require 5; package Pod::Simple::RTF; #sub DEBUG () {4}; #sub Pod::Simple::DEBUG () {4}; #sub Pod::Simple::PullParser::DEBUG () {4}; use strict; use vars qw($VERSION @ISA %Escape $WRAP %Tagmap); $VERSION = '3.42'; use Pod::Simple::PullParser (); BEGIN {@ISA = ('Pod::Simple::PullParser')} use Carp (); BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG } sub to_uni ($) { # Convert native code point to Unicode my $x = shift; # Broken for early EBCDICs $x = chr utf8::native_to_unicode(ord $x) if $] ge 5.007_003 && ord("A") != 65; return $x; } # We escape out 'F' so that we can send RTF files thru the mail without the # slightest worry that paragraphs beginning with "From" will get munged. # We also escape '\', '{', '}', and '_' my $map_to_self = ' !"#$%&\'()*+,-./0123456789:;<=>?@ABCDEGHIJKLMNOPQRSTUVWXYZ[]^`abcdefghijklmnopqrstuvwxyz|~'; $WRAP = 1 unless defined $WRAP; %Escape = ( # Start with every character mapping to its hex equivalent map( (chr($_) => sprintf("\\'%02x", $_)), 0 .. 0xFF), # Override most ASCII printables with themselves (or on non-ASCII platforms, # their ASCII values. This is because the output is UTF-16, which is always # based on Unicode code points) map( ( substr($map_to_self, $_, 1) => to_uni(substr($map_to_self, $_, 1))), 0 .. length($map_to_self) - 1), # And some refinements: "\r" => "\n", "\cj" => "\n", "\n" => "\n\\line ", "\t" => "\\tab ", # Tabs (altho theoretically raw \t's are okay) "\f" => "\n\\page\n", # Formfeed "-" => "\\_", # Turn plaintext '-' into a non-breaking hyphen $Pod::Simple::nbsp => "\\~", # Latin-1 non-breaking space $Pod::Simple::shy => "\\-", # Latin-1 soft (optional) hyphen # CRAZY HACKS: "\n" => "\\line\n", "\r" => "\n", "\cb" => "{\n\\cs21\\lang1024\\noproof ", # \\cf1 "\cc" => "}", ); # Generate a string of all the characters in %Escape that don't map to # themselves. First, one without the hyphen, then one with. my $escaped_sans_hyphen = ""; $escaped_sans_hyphen .= $_ for grep { $_ ne $Escape{$_} && $_ ne '-' } sort keys %Escape; my $escaped = "-$escaped_sans_hyphen"; # Then convert to patterns $escaped_sans_hyphen = qr/[\Q$escaped_sans_hyphen \E]/; $escaped= qr/[\Q$escaped\E]/; #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ sub _openclose { return map {; m/^([-A-Za-z]+)=(\w[^\=]*)$/s or die "what's <$_>?"; ( $1, "{\\$2\n", "/$1", "}" ); } @_; } my @_to_accept; %Tagmap = ( # 'foo=bar' means ('foo' => '{\bar'."\n", '/foo' => '}') _openclose( 'B=cs18\b', 'I=cs16\i', 'C=cs19\f1\lang1024\noproof', 'F=cs17\i\lang1024\noproof', 'VerbatimI=cs26\i', 'VerbatimB=cs27\b', 'VerbatimBI=cs28\b\i', map {; m/^([-a-z]+)/s && push @_to_accept, $1; $_ } qw[ underline=ul smallcaps=scaps shadow=shad superscript=super subscript=sub strikethrough=strike outline=outl emboss=embo engrave=impr dotted-underline=uld dash-underline=uldash dot-dash-underline=uldashd dot-dot-dash-underline=uldashdd double-underline=uldb thick-underline=ulth word-underline=ulw wave-underline=ulwave ] # But no double-strikethrough, because MSWord can't agree with the # RTF spec on whether it's supposed to be \strikedl or \striked1 (!!!) ), # Bit of a hack here: 'L=pod' => '{\cs22\i'."\n", 'L=url' => '{\cs23\i'."\n", 'L=man' => '{\cs24\i'."\n", '/L' => '}', 'Data' => "\n", '/Data' => "\n", 'Verbatim' => "\n{\\pard\\li#rtfindent##rtfkeep#\\plain\\s20\\sa180\\f1\\fs18\\lang1024\\noproof\n", '/Verbatim' => "\n\\par}\n", 'VerbatimFormatted' => "\n{\\pard\\li#rtfindent##rtfkeep#\\plain\\s20\\sa180\\f1\\fs18\\lang1024\\noproof\n", '/VerbatimFormatted' => "\n\\par}\n", 'Para' => "\n{\\pard\\li#rtfindent#\\sa180\n", '/Para' => "\n\\par}\n", 'head1' => "\n{\\pard\\li#rtfindent#\\s31\\keepn\\sb90\\sa180\\f2\\fs#head1_halfpoint_size#\\ul{\n", '/head1' => "\n}\\par}\n", 'head2' => "\n{\\pard\\li#rtfindent#\\s32\\keepn\\sb90\\sa180\\f2\\fs#head2_halfpoint_size#\\ul{\n", '/head2' => "\n}\\par}\n", 'head3' => "\n{\\pard\\li#rtfindent#\\s33\\keepn\\sb90\\sa180\\f2\\fs#head3_halfpoint_size#\\ul{\n", '/head3' => "\n}\\par}\n", 'head4' => "\n{\\pard\\li#rtfindent#\\s34\\keepn\\sb90\\sa180\\f2\\fs#head4_halfpoint_size#\\ul{\n", '/head4' => "\n}\\par}\n", # wordpad borks on \tc\tcl1, or I'd put that in =head1 and =head2 'item-bullet' => "\n{\\pard\\li#rtfindent##rtfitemkeepn#\\sb60\\sa150\\fi-120\n", '/item-bullet' => "\n\\par}\n", 'item-number' => "\n{\\pard\\li#rtfindent##rtfitemkeepn#\\sb60\\sa150\\fi-120\n", '/item-number' => "\n\\par}\n", 'item-text' => "\n{\\pard\\li#rtfindent##rtfitemkeepn#\\sb60\\sa150\\fi-120\n", '/item-text' => "\n\\par}\n", # we don't need any styles for over-* and /over-* ); #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ sub new { my $new = shift->SUPER::new(@_); $new->nix_X_codes(1); $new->nbsp_for_S(1); $new->accept_targets( 'rtf', 'RTF' ); $new->{'Tagmap'} = {%Tagmap}; $new->accept_codes(@_to_accept); $new->accept_codes('VerbatimFormatted'); DEBUG > 2 and print STDERR "To accept: ", join(' ',@_to_accept), "\n"; $new->doc_lang( ( $ENV{'RTFDEFLANG'} || '') =~ m/^(\d{1,10})$/s ? $1 : ($ENV{'RTFDEFLANG'} || '') =~ m/^0?x([a-fA-F0-9]{1,10})$/s ? hex($1) # yes, tolerate hex! : ($ENV{'RTFDEFLANG'} || '') =~ m/^([a-fA-F0-9]{4})$/s ? hex($1) # yes, tolerate even more hex! : '1033' ); $new->head1_halfpoint_size(32); $new->head2_halfpoint_size(28); $new->head3_halfpoint_size(25); $new->head4_halfpoint_size(22); $new->codeblock_halfpoint_size(18); $new->header_halfpoint_size(17); $new->normal_halfpoint_size(25); return $new; } #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ __PACKAGE__->_accessorize( 'doc_lang', 'head1_halfpoint_size', 'head2_halfpoint_size', 'head3_halfpoint_size', 'head4_halfpoint_size', 'codeblock_halfpoint_size', 'header_halfpoint_size', 'normal_halfpoint_size', 'no_proofing_exemptions', ); #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ sub run { my $self = $_[0]; return $self->do_middle if $self->bare_output; return $self->do_beginning && $self->do_middle && $self->do_end; } #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ # Match something like an identifier. Prefer XID if available, then plain ID, # then just ASCII my $id_re = Pod::Simple::BlackBox::my_qr('[\'_\p{XIDS}][\'\p{XIDC}]+', "ab"); $id_re = Pod::Simple::BlackBox::my_qr('[\'_\p{IDS}][\'\p{IDC}]+', "ab") unless $id_re; $id_re = qr/['_a-zA-Z]['a-zA-Z0-9_]+/ unless $id_re; sub do_middle { # the main work my $self = $_[0]; my $fh = $self->{'output_fh'}; my($token, $type, $tagname, $scratch); my @stack; my @indent_stack; $self->{'rtfindent'} = 0 unless defined $self->{'rtfindent'}; while($token = $self->get_token) { if( ($type = $token->type) eq 'text' ) { if( $self->{'rtfverbatim'} ) { DEBUG > 1 and print STDERR " $type " , $token->text, " in verbatim!\n"; rtf_esc(0, $scratch = $token->text); # 0 => Don't escape hyphen print $fh $scratch; next; } DEBUG > 1 and print STDERR " $type " , $token->text, "\n"; $scratch = $token->text; $scratch =~ tr/\t\cb\cc/ /d; $self->{'no_proofing_exemptions'} or $scratch =~ s/(?: ^ | (?<=[\r\n\t "\[\<\(]) ) # start on whitespace, sequence-start, or quote ( # something looking like a Perl token: (?: [\$\@\:\<\*\\_]\S+ # either starting with a sigil, etc. ) | # or starting alpha, but containing anything strange: (?: ${id_re}[\$\@\:_<>\(\\\*]\S+ ) ) /\cb$1\cc/xsg ; rtf_esc(1, $scratch); # 1 => escape hyphen $scratch =~ s/( [^\r\n]{65} # Snare 65 characters from a line [^\r\n ]{0,50} # and finish any current word ) (\ {1,10})(?![\r\n]) # capture some spaces not at line-end /$1$2\n/gx # and put a NL before those spaces if $WRAP; # This may wrap at well past the 65th column, but not past the 120th. print $fh $scratch; } elsif( $type eq 'start' ) { DEBUG > 1 and print STDERR " +$type ",$token->tagname, " (", map("<$_> ", %{$token->attr_hash}), ")\n"; if( ($tagname = $token->tagname) eq 'Verbatim' or $tagname eq 'VerbatimFormatted' ) { ++$self->{'rtfverbatim'}; my $next = $self->get_token; next unless defined $next; my $line_count = 1; if($next->type eq 'text') { my $t = $next->text_r; while( $$t =~ m/$/mg ) { last if ++$line_count > 15; # no point in counting further } DEBUG > 3 and print STDERR " verbatim line count: $line_count\n"; } $self->unget_token($next); $self->{'rtfkeep'} = ($line_count > 15) ? '' : '\keepn' ; } elsif( $tagname =~ m/^item-/s ) { my @to_unget; my $text_count_here = 0; $self->{'rtfitemkeepn'} = ''; # Some heuristics to stop item-*'s functioning as subheadings # from getting split from the things they're subheadings for. # # It's not terribly pretty, but it really does make things pretty. # while(1) { push @to_unget, $self->get_token; pop(@to_unget), last unless defined $to_unget[-1]; # Erroneously used to be "unshift" instead of pop! Adds instead # of removes, and operates on the beginning instead of the end! if($to_unget[-1]->type eq 'text') { if( ($text_count_here += length ${$to_unget[-1]->text_r}) > 150 ){ DEBUG > 1 and print STDERR " item-* is too long to be keepn'd.\n"; last; } } elsif (@to_unget > 1 and $to_unget[-2]->type eq 'end' and $to_unget[-2]->tagname =~ m/^item-/s ) { # Bail out here, after setting rtfitemkeepn yea or nay. $self->{'rtfitemkeepn'} = '\keepn' if $to_unget[-1]->type eq 'start' and $to_unget[-1]->tagname eq 'Para'; DEBUG > 1 and printf STDERR " item-* before %s(%s) %s keepn'd.\n", $to_unget[-1]->type, $to_unget[-1]->can('tagname') ? $to_unget[-1]->tagname : '', $self->{'rtfitemkeepn'} ? "gets" : "doesn't get"; last; } elsif (@to_unget > 40) { DEBUG > 1 and print STDERR " item-* now has too many tokens (", scalar(@to_unget), (DEBUG > 4) ? (q<: >, map($_->dump, @to_unget)) : (), ") to be keepn'd.\n"; last; # give up } # else keep while'ing along } # Now put it aaaaall back... $self->unget_token(@to_unget); } elsif( $tagname =~ m/^over-/s ) { push @stack, $1; push @indent_stack, int($token->attr('indent') * 4 * $self->normal_halfpoint_size); DEBUG and print STDERR "Indenting over $indent_stack[-1] twips.\n"; $self->{'rtfindent'} += $indent_stack[-1]; } elsif ($tagname eq 'L') { $tagname .= '=' . ($token->attr('type') || 'pod'); } elsif ($tagname eq 'Data') { my $next = $self->get_token; next unless defined $next; unless( $next->type eq 'text' ) { $self->unget_token($next); next; } DEBUG and print STDERR " raw text ", $next->text, "\n"; printf $fh "\n" . $next->text . "\n"; next; } defined($scratch = $self->{'Tagmap'}{$tagname}) or next; $scratch =~ s/\#([^\#]+)\#/${$self}{$1}/g; # interpolate print $fh $scratch; if ($tagname eq 'item-number') { print $fh $token->attr('number'), ". \n"; } elsif ($tagname eq 'item-bullet') { print $fh "\\'", ord("_"), "\n"; #for funky testing: print $fh '', rtf_esc(1, "\x{4E4B}\x{9053}"); } } elsif( $type eq 'end' ) { DEBUG > 1 and print STDERR " -$type ",$token->tagname,"\n"; if( ($tagname = $token->tagname) =~ m/^over-/s ) { DEBUG and print STDERR "Indenting back $indent_stack[-1] twips.\n"; $self->{'rtfindent'} -= pop @indent_stack; pop @stack; } elsif( $tagname eq 'Verbatim' or $tagname eq 'VerbatimFormatted') { --$self->{'rtfverbatim'}; } defined($scratch = $self->{'Tagmap'}{"/$tagname"}) or next; $scratch =~ s/\#([^\#]+)\#/${$self}{$1}/g; # interpolate print $fh $scratch; } } return 1; } #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ sub do_beginning { my $self = $_[0]; my $fh = $self->{'output_fh'}; return print $fh join '', $self->doc_init, $self->font_table, $self->stylesheet, $self->color_table, $self->doc_info, $self->doc_start, "\n" ; } sub do_end { my $self = $_[0]; my $fh = $self->{'output_fh'}; return print $fh '}'; # that should do it } ########################################################################### sub stylesheet { return sprintf <<'END', {\stylesheet {\snext0 Normal;} {\*\cs10 \additive Default Paragraph Font;} {\*\cs16 \additive \i \sbasedon10 pod-I;} {\*\cs17 \additive \i\lang1024\noproof \sbasedon10 pod-F;} {\*\cs18 \additive \b \sbasedon10 pod-B;} {\*\cs19 \additive \f1\lang1024\noproof\sbasedon10 pod-C;} {\s20\ql \li0\ri0\sa180\widctlpar\f1\fs%s\lang1024\noproof\sbasedon0 \snext0 pod-codeblock;} {\*\cs21 \additive \lang1024\noproof \sbasedon10 pod-computerese;} {\*\cs22 \additive \i\lang1024\noproof\sbasedon10 pod-L-pod;} {\*\cs23 \additive \i\lang1024\noproof\sbasedon10 pod-L-url;} {\*\cs24 \additive \i\lang1024\noproof\sbasedon10 pod-L-man;} {\*\cs25 \additive \f1\lang1024\noproof\sbasedon0 pod-codelbock-plain;} {\*\cs26 \additive \f1\lang1024\noproof\sbasedon25 pod-codelbock-ital;} {\*\cs27 \additive \f1\lang1024\noproof\sbasedon25 pod-codelbock-bold;} {\*\cs28 \additive \f1\lang1024\noproof\sbasedon25 pod-codelbock-bold-ital;} {\s31\ql \keepn\sb90\sa180\f2\fs%s\ul\sbasedon0 \snext0 pod-head1;} {\s32\ql \keepn\sb90\sa180\f2\fs%s\ul\sbasedon0 \snext0 pod-head2;} {\s33\ql \keepn\sb90\sa180\f2\fs%s\ul\sbasedon0 \snext0 pod-head3;} {\s34\ql \keepn\sb90\sa180\f2\fs%s\ul\sbasedon0 \snext0 pod-head4;} } END $_[0]->codeblock_halfpoint_size(), $_[0]->head1_halfpoint_size(), $_[0]->head2_halfpoint_size(), $_[0]->head3_halfpoint_size(), $_[0]->head4_halfpoint_size(), ; } ########################################################################### # Override these as necessary for further customization sub font_table { return <<'END'; # text font, code font, heading font {\fonttbl {\f0\froman Times New Roman;} {\f1\fmodern Courier New;} {\f2\fswiss Arial;} } END } sub doc_init { return <<'END'; {\rtf1\ansi\deff0 END } sub color_table { return <<'END'; {\colortbl;\red255\green0\blue0;\red0\green0\blue255;} END } sub doc_info { my $self = $_[0]; my $class = ref($self) || $self; my $tag = __PACKAGE__ . ' ' . $VERSION; unless($class eq __PACKAGE__) { $tag = " ($tag)"; $tag = " v" . $self->VERSION . $tag if defined $self->VERSION; $tag = $class . $tag; } return sprintf <<'END', {\info{\doccomm %s using %s v%s under Perl v%s at %s GMT} {\author [see doc]}{\company [see doc]}{\operator [see doc]} } END # None of the following things should need escaping, I dare say! $tag, $ISA[0], $ISA[0]->VERSION(), $], scalar(gmtime($ENV{SOURCE_DATE_EPOCH} || time)), ; } sub doc_start { my $self = $_[0]; my $title = $self->get_short_title(); DEBUG and print STDERR "Short Title: <$title>\n"; $title .= ' ' if length $title; $title =~ s/ *$/ /s; $title =~ s/^ //s; $title =~ s/ $/, /s; # make sure it ends in a comma and a space, unless it's 0-length my $is_obviously_module_name; $is_obviously_module_name = 1 if $title =~ m/^\S+$/s and $title =~ m/::/s; # catches the most common case, at least DEBUG and print STDERR "Title0: <$title>\n"; $title = rtf_esc(1, $title); # 1 => escape hyphen DEBUG and print STDERR "Title1: <$title>\n"; $title = '\lang1024\noproof ' . $title if $is_obviously_module_name; return sprintf <<'END', \deflang%s\plain\lang%s\widowctrl {\header\pard\qr\plain\f2\fs%s %s p.\chpgn\par} \fs%s END ($self->doc_lang) x 2, $self->header_halfpoint_size, $title, $self->normal_halfpoint_size, ; } #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ #------------------------------------------------------------------------- use integer; my $question_mark_code_points = Pod::Simple::BlackBox::my_qr('([^\x00-\x{D7FF}\x{E000}-\x{10FFFF}])', "\x{110000}"); my $plane0 = Pod::Simple::BlackBox::my_qr('([\x{100}-\x{FFFF}])', "\x{100}"); my $other_unicode = Pod::Simple::BlackBox::my_qr('([\x{10000}-\x{10FFFF}])', "\x{10000}"); sub esc_uni($) { use if $] le 5.006002, 'utf8'; my $x = shift; # The output is expected to be UTF-16. Surrogates and above-Unicode get # mapped to '?' $x =~ s/$question_mark_code_points/?/g if $question_mark_code_points; # Non-surrogate Plane 0 characters get mapped to their code points. But # the standard calls for a 16bit SIGNED value. $x =~ s/$plane0/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg if $plane0; # Use surrogate pairs for the rest $x =~ s/$other_unicode/'\\uc1\\u' . ((ord($1) >> 10) + 0xD7C0 - 65536) . '\\u' . (((ord$1) & 0x03FF) + 0xDC00 - 65536) . '?'/eg if $other_unicode; return $x; } sub rtf_esc ($$) { # The parameter is true if we should escape hyphens my $escape_re = ((shift) ? $escaped : $escaped_sans_hyphen); # When false, it doesn't change "-" to hard-hyphen. # We don't want to change the "-" to hard-hyphen, because we want to # be able to paste this into a file and run it without there being # dire screaming about the mysterious hard-hyphen character (which # looks just like a normal dash character). # XXX The comments used to claim that when false it didn't apply computerese # style-smarts, but khw didn't see this actually my $x; # scratch if(!defined wantarray) { # void context: alter in-place! for(@_) { s/($escape_re)/$Escape{$1}/g; # ESCAPER $_ = esc_uni($_); } return; } elsif(wantarray) { # return an array return map {; ($x = $_) =~ s/($escape_re)/$Escape{$1}/g; # ESCAPER $x = esc_uni($x); $x; } @_; } else { # return a single scalar ($x = ((@_ == 1) ? $_[0] : join '', @_) ) =~ s/($escape_re)/$Escape{$1}/g; # ESCAPER # Escape \, {, }, -, control chars, and 7f-ff. $x = esc_uni($x); return $x; } } 1; __END__ =head1 NAME Pod::Simple::RTF -- format Pod as RTF =head1 SYNOPSIS perl -MPod::Simple::RTF -e \ "exit Pod::Simple::RTF->filter(shift)->any_errata_seen" \ thingy.pod > thingy.rtf =head1 DESCRIPTION This class is a formatter that takes Pod and renders it as RTF, good for viewing/printing in MSWord, WordPad/write.exe, TextEdit, etc. This is a subclass of L<Pod::Simple> and inherits all its methods. =head1 FORMAT CONTROL ATTRIBUTES You can set these attributes on the parser object before you call C<parse_file> (or a similar method) on it: =over =item $parser->head1_halfpoint_size( I<halfpoint_integer> ); =item $parser->head2_halfpoint_size( I<halfpoint_integer> ); =item $parser->head3_halfpoint_size( I<halfpoint_integer> ); =item $parser->head4_halfpoint_size( I<halfpoint_integer> ); These methods set the size (in half-points, like 52 for 26-point) that these heading levels will appear as. =item $parser->codeblock_halfpoint_size( I<halfpoint_integer> ); This method sets the size (in half-points, like 21 for 10.5-point) that codeblocks ("verbatim sections") will appear as. =item $parser->header_halfpoint_size( I<halfpoint_integer> ); This method sets the size (in half-points, like 15 for 7.5-point) that the header on each page will appear in. The header is usually just "I<modulename> p. I<pagenumber>". =item $parser->normal_halfpoint_size( I<halfpoint_integer> ); This method sets the size (in half-points, like 26 for 13-point) that normal paragraphic text will appear in. =item $parser->no_proofing_exemptions( I<true_or_false> ); Set this value to true if you don't want the formatter to try putting a hidden code on all Perl symbols (as best as it can notice them) that labels them as being not in English, and so not worth spellchecking. =item $parser->doc_lang( I<microsoft_decimal_language_code> ) This sets the language code to tag this document as being in. By default, it is currently the value of the environment variable C<RTFDEFLANG>, or if that's not set, then the value 1033 (for US English). Setting this appropriately is useful if you want to use the RTF to spellcheck, and/or if you want it to hyphenate right. Here are some notable values: 1033 US English 2057 UK English 3081 Australia English 4105 Canada English 1034 Spain Spanish 2058 Mexico Spanish 1031 Germany German 1036 France French 3084 Canada French 1035 Finnish 1044 Norwegian (Bokmal) 2068 Norwegian (Nynorsk) =back If you are particularly interested in customizing this module's output even more, see the source and/or write to me. =head1 SEE ALSO L<Pod::Simple>, L<RTF::Writer>, L<RTF::Cookbook>, L<RTF::Document>, L<RTF::Generator> =head1 SUPPORT Questions or discussion about POD and Pod::Simple should be sent to the pod-people@perl.org mail list. Send an empty email to pod-people-subscribe@perl.org to subscribe. This module is managed in an open GitHub repository, L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <bug-pod-simple@rt.cpan.org>. =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2002 Sean M. Burke. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Pod::Simple was created by Sean M. Burke <sburke@cpan.org>. But don't bother him, he's retired. Pod::Simple is maintained by: =over =item * Allison Randal C<allison@perl.org> =item * Hans Dieter Pearcey C<hdp@cpan.org> =item * David E. Wheeler C<dwheeler@cpan.org> =back =cut PK ! ��\�� � # 5.34.0/Pod/Simple/TranscodeSmart.pmnu �[��� require 5; use 5.008; ## Anything before 5.8.0 is GIMPY! ## This module is to be use()'d only by Pod::Simple::Transcode package Pod::Simple::TranscodeSmart; use strict; use Pod::Simple; require Encode; use vars qw($VERSION ); $VERSION = '3.42'; sub is_dumb {0} sub is_smart {1} sub all_encodings { return Encode::->encodings(':all'); } sub encoding_is_available { return Encode::resolve_alias($_[1]); } sub encmodver { return "Encode.pm v" .($Encode::VERSION || '?'); } sub make_transcoder { my $e = Encode::find_encoding($_[1]); die "WHAT ENCODING!?!?" unless $e; my $x; return sub { foreach $x (@_) { $x = $e->decode($x) unless Encode::is_utf8($x); } return; }; } 1; PK ! l�<�� � 5.34.0/Pod/Simple/TextContent.pmnu �[��� require 5; package Pod::Simple::TextContent; use strict; use Carp (); use Pod::Simple (); use vars qw( @ISA $VERSION ); $VERSION = '3.42'; @ISA = ('Pod::Simple'); sub new { my $self = shift; my $new = $self->SUPER::new(@_); $new->{'output_fh'} ||= *STDOUT{IO}; $new->nix_X_codes(1); return $new; } #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ sub _handle_element_start { print {$_[0]{'output_fh'}} "\n" unless $_[1] =~ m/^[A-Z]$/s; return; } sub _handle_text { $_[1] =~ s/$Pod::Simple::shy//g; $_[1] =~ s/$Pod::Simple::nbsp/ /g; print {$_[0]{'output_fh'}} $_[1]; return; } sub _handle_element_end { print {$_[0]{'output_fh'}} "\n" unless $_[1] =~ m/^[A-Z]$/s; return; } #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 1; __END__ =head1 NAME Pod::Simple::TextContent -- get the text content of Pod =head1 SYNOPSIS TODO perl -MPod::Simple::TextContent -e \ "exit Pod::Simple::TextContent->filter(shift)->any_errata_seen" \ thingy.pod =head1 DESCRIPTION This class is that parses Pod and dumps just the text content. It is mainly meant for use by the Pod::Simple test suite, but you may find some other use for it. This is a subclass of L<Pod::Simple> and inherits all its methods. =head1 SEE ALSO L<Pod::Simple>, L<Pod::Simple::Text>, L<Pod::Spell> =head1 SUPPORT Questions or discussion about POD and Pod::Simple should be sent to the pod-people@perl.org mail list. Send an empty email to pod-people-subscribe@perl.org to subscribe. This module is managed in an open GitHub repository, L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <bug-pod-simple@rt.cpan.org>. =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2002 Sean M. Burke. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Pod::Simple was created by Sean M. Burke <sburke@cpan.org>. But don't bother him, he's retired. Pod::Simple is maintained by: =over =item * Allison Randal C<allison@perl.org> =item * Hans Dieter Pearcey C<hdp@cpan.org> =item * David E. Wheeler C<dwheeler@cpan.org> =back =cut PK ! � ,�� � 5.34.0/Pod/Simple/Methody.pmnu �[��� require 5; package Pod::Simple::Methody; use strict; use Pod::Simple (); use vars qw(@ISA $VERSION); $VERSION = '3.42'; @ISA = ('Pod::Simple'); # Yes, we could use named variables, but I want this to be impose # as little an additional performance hit as possible. sub _handle_element_start { $_[1] =~ tr/-:./__/; ( $_[0]->can( 'start_' . $_[1] ) || return )->( $_[0], $_[2] ); } sub _handle_text { ( $_[0]->can( 'handle_text' ) || return )->( @_ ); } sub _handle_element_end { $_[1] =~ tr/-:./__/; ( $_[0]->can( 'end_' . $_[1] ) || return )->( $_[0], $_[2] ); } 1; __END__ =head1 NAME Pod::Simple::Methody -- turn Pod::Simple events into method calls =head1 SYNOPSIS require 5; use strict; package SomePodFormatter; use base qw(Pod::Simple::Methody); sub handle_text { my($self, $text) = @_; ... } sub start_head1 { my($self, $attrs) = @_; ... } sub end_head1 { my($self) = @_; ... } ...and start_/end_ methods for whatever other events you want to catch. =head1 DESCRIPTION This class is of interest to people writing Pod formatters based on Pod::Simple. This class (which is very small -- read the source) overrides Pod::Simple's _handle_element_start, _handle_text, and _handle_element_end methods so that parser events are turned into method calls. (Otherwise, this is a subclass of L<Pod::Simple> and inherits all its methods.) You can use this class as the base class for a Pod formatter/processor. =head1 METHOD CALLING When Pod::Simple sees a "=head1 Hi there", for example, it basically does this: $parser->_handle_element_start( "head1", \%attributes ); $parser->_handle_text( "Hi there" ); $parser->_handle_element_end( "head1" ); But if you subclass Pod::Simple::Methody, it will instead do this when it sees a "=head1 Hi there": $parser->start_head1( \%attributes ) if $parser->can('start_head1'); $parser->handle_text( "Hi there" ) if $parser->can('handle_text'); $parser->end_head1() if $parser->can('end_head1'); If Pod::Simple sends an event where the element name has a dash, period, or colon, the corresponding method name will have a underscore in its place. For example, "foo.bar:baz" becomes start_foo_bar_baz and end_foo_bar_baz. See the source for Pod::Simple::Text for an example of using this class. =head1 SEE ALSO L<Pod::Simple>, L<Pod::Simple::Subclassing> =head1 SUPPORT Questions or discussion about POD and Pod::Simple should be sent to the pod-people@perl.org mail list. Send an empty email to pod-people-subscribe@perl.org to subscribe. This module is managed in an open GitHub repository, L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <bug-pod-simple@rt.cpan.org>. =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2002 Sean M. Burke. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Pod::Simple was created by Sean M. Burke <sburke@cpan.org>. But don't bother him, he's retired. Pod::Simple is maintained by: =over =item * Allison Randal C<allison@perl.org> =item * Hans Dieter Pearcey C<hdp@cpan.org> =item * David E. Wheeler C<dwheeler@cpan.org> =back =cut PK ! -�8 8 5.34.0/Pod/Simple/Checker.pmnu �[��� # A quite dimwitted pod2plaintext that need only know how to format whatever # text comes out of Pod::BlackBox's _gen_errata require 5; package Pod::Simple::Checker; use strict; use Carp (); use Pod::Simple::Methody (); use Pod::Simple (); use vars qw( @ISA $VERSION ); $VERSION = '3.42'; @ISA = ('Pod::Simple::Methody'); BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG) ? \&Pod::Simple::DEBUG : sub() {0} } use Text::Wrap 98.112902 (); # was 2001.0131, but I don't think we need that $Text::Wrap::wrap = 'overflow'; #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ sub any_errata_seen { # read-only accessor return $_[1]->{'Errata_seen'}; } sub new { my $self = shift; my $new = $self->SUPER::new(@_); $new->{'output_fh'} ||= *STDOUT{IO}; $new->nix_X_codes(1); $new->nbsp_for_S(1); $new->{'Thispara'} = ''; $new->{'Indent'} = 0; $new->{'Indentstring'} = ' '; $new->{'Errata_seen'} = 0; return $new; } #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ sub handle_text { $_[0]{'Errata_seen'} and $_[0]{'Thispara'} .= $_[1] } sub start_Para { $_[0]{'Thispara'} = '' } sub start_head1 { if($_[0]{'Errata_seen'}) { $_[0]{'Thispara'} = ''; } else { if($_[1]{'errata'}) { # start of errata! $_[0]{'Errata_seen'} = 1; $_[0]{'Thispara'} = $_[0]{'source_filename'} ? "$_[0]{'source_filename'} -- " : '' } } } sub start_head2 { $_[0]{'Thispara'} = '' } sub start_head3 { $_[0]{'Thispara'} = '' } sub start_head4 { $_[0]{'Thispara'} = '' } sub start_Verbatim { $_[0]{'Thispara'} = '' } sub start_item_bullet { $_[0]{'Thispara'} = '* ' } sub start_item_number { $_[0]{'Thispara'} = "$_[1]{'number'}. " } sub start_item_text { $_[0]{'Thispara'} = '' } sub start_over_bullet { ++$_[0]{'Indent'} } sub start_over_number { ++$_[0]{'Indent'} } sub start_over_text { ++$_[0]{'Indent'} } sub start_over_block { ++$_[0]{'Indent'} } sub end_over_bullet { --$_[0]{'Indent'} } sub end_over_number { --$_[0]{'Indent'} } sub end_over_text { --$_[0]{'Indent'} } sub end_over_block { --$_[0]{'Indent'} } # . . . . . Now the actual formatters: sub end_head1 { $_[0]->emit_par(-4) } sub end_head2 { $_[0]->emit_par(-3) } sub end_head3 { $_[0]->emit_par(-2) } sub end_head4 { $_[0]->emit_par(-1) } sub end_Para { $_[0]->emit_par( 0) } sub end_item_bullet { $_[0]->emit_par( 0) } sub end_item_number { $_[0]->emit_par( 0) } sub end_item_text { $_[0]->emit_par(-2) } sub emit_par { return unless $_[0]{'Errata_seen'}; my($self, $tweak_indent) = splice(@_,0,2); my $length = 2 * $self->{'Indent'} + ($tweak_indent||0); my $indent = ' ' x ($length > 0 ? $length : 0); # Yes, 'STRING' x NEGATIVE gives '', same as 'STRING' x 0 # 'Negative repeat count does nothing' since 5.22 $self->{'Thispara'} =~ s/$Pod::Simple::shy//g; my $out = Text::Wrap::wrap($indent, $indent, $self->{'Thispara'} .= "\n"); $out =~ s/$Pod::Simple::nbsp/ /g; print {$self->{'output_fh'}} $out, #"\n" ; $self->{'Thispara'} = ''; return; } # . . . . . . . . . . And then off by its lonesome: sub end_Verbatim { return unless $_[0]{'Errata_seen'}; my $self = shift; $self->{'Thispara'} =~ s/$Pod::Simple::nbsp/ /g; $self->{'Thispara'} =~ s/$Pod::Simple::shy//g; my $i = ' ' x ( 2 * $self->{'Indent'} + 4); $self->{'Thispara'} =~ s/^/$i/mg; print { $self->{'output_fh'} } '', $self->{'Thispara'}, "\n\n" ; $self->{'Thispara'} = ''; return; } #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 1; __END__ =head1 NAME Pod::Simple::Checker -- check the Pod syntax of a document =head1 SYNOPSIS perl -MPod::Simple::Checker -e \ "exit Pod::Simple::Checker->filter(shift)->any_errata_seen" \ thingy.pod =head1 DESCRIPTION This class is for checking the syntactic validity of Pod. It works by basically acting like a simple-minded version of L<Pod::Simple::Text> that formats only the "Pod Errors" section (if Pod::Simple even generates one for the given document). This is a subclass of L<Pod::Simple> and inherits all its methods. =head1 SEE ALSO L<Pod::Simple>, L<Pod::Simple::Text>, L<Pod::Checker> =head1 SUPPORT Questions or discussion about POD and Pod::Simple should be sent to the pod-people@perl.org mail list. Send an empty email to pod-people-subscribe@perl.org to subscribe. This module is managed in an open GitHub repository, L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <bug-pod-simple@rt.cpan.org>. =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2002 Sean M. Burke. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Pod::Simple was created by Sean M. Burke <sburke@cpan.org>. But don't bother him, he's retired. Pod::Simple is maintained by: =over =item * Allison Randal C<allison@perl.org> =item * Hans Dieter Pearcey C<hdp@cpan.org> =item * David E. Wheeler C<dwheeler@cpan.org> =back =cut PK ! +x�O�d �d 5.34.0/Pod/Simple/PullParser.pmnu �[��� require 5; package Pod::Simple::PullParser; $VERSION = '3.42'; use Pod::Simple (); BEGIN {@ISA = ('Pod::Simple')} use strict; use Carp (); use Pod::Simple::PullParserStartToken; use Pod::Simple::PullParserEndToken; use Pod::Simple::PullParserTextToken; BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG } __PACKAGE__->_accessorize( 'source_fh', # the filehandle we're reading from 'source_scalar_ref', # the scalarref we're reading from 'source_arrayref', # the arrayref we're reading from ); #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ # # And here is how we implement a pull-parser on top of a push-parser... sub filter { my($self, $source) = @_; $self = $self->new unless ref $self; $source = *STDIN{IO} unless defined $source; $self->set_source($source); $self->output_fh(*STDOUT{IO}); $self->run; # define run() in a subclass if you want to use filter()! return $self; } # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - sub parse_string_document { my $this = shift; $this->set_source(\ $_[0]); $this->run; } sub parse_file { my($this, $filename) = @_; $this->set_source($filename); $this->run; } # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # In case anyone tries to use them: sub run { use Carp (); if( __PACKAGE__ eq ref($_[0]) || $_[0]) { # I'm not being subclassed! Carp::croak "You can call run() only on subclasses of " . __PACKAGE__; } else { Carp::croak join '', "You can't call run() because ", ref($_[0]) || $_[0], " didn't define a run() method"; } } sub parse_lines { use Carp (); Carp::croak "Use set_source with ", __PACKAGE__, " and subclasses, not parse_lines"; } sub parse_line { use Carp (); Carp::croak "Use set_source with ", __PACKAGE__, " and subclasses, not parse_line"; } #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ sub new { my $class = shift; my $self = $class->SUPER::new(@_); die "Couldn't construct for $class" unless $self; $self->{'token_buffer'} ||= []; $self->{'start_token_class'} ||= 'Pod::Simple::PullParserStartToken'; $self->{'text_token_class'} ||= 'Pod::Simple::PullParserTextToken'; $self->{'end_token_class'} ||= 'Pod::Simple::PullParserEndToken'; DEBUG > 1 and print STDERR "New pullparser object: $self\n"; return $self; } # ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ sub get_token { my $self = shift; DEBUG > 1 and print STDERR "\nget_token starting up on $self.\n"; DEBUG > 2 and print STDERR " Items in token-buffer (", scalar( @{ $self->{'token_buffer'} } ) , ") :\n", map( " " . $_->dump . "\n", @{ $self->{'token_buffer'} } ), @{ $self->{'token_buffer'} } ? '' : ' (no tokens)', "\n" ; until( @{ $self->{'token_buffer'} } ) { DEBUG > 3 and print STDERR "I need to get something into my empty token buffer...\n"; if($self->{'source_dead'}) { DEBUG and print STDERR "$self 's source is dead.\n"; push @{ $self->{'token_buffer'} }, undef; } elsif(exists $self->{'source_fh'}) { my @lines; my $fh = $self->{'source_fh'} || Carp::croak('You have to call set_source before you can call get_token'); DEBUG and print STDERR "$self 's source is filehandle $fh.\n"; # Read those many lines at a time for(my $i = Pod::Simple::MANY_LINES; $i--;) { DEBUG > 3 and print STDERR " Fetching a line from source filehandle $fh...\n"; local $/ = $Pod::Simple::NL; push @lines, scalar(<$fh>); # readline DEBUG > 3 and print STDERR " Line is: ", defined($lines[-1]) ? $lines[-1] : "<undef>\n"; unless( defined $lines[-1] ) { DEBUG and print STDERR "That's it for that source fh! Killing.\n"; delete $self->{'source_fh'}; # so it can be GC'd last; } # but pass thru the undef, which will set source_dead to true # TODO: look to see if $lines[-1] is =encoding, and if so, # do horribly magic things } if(DEBUG > 8) { print STDERR "* I've gotten ", scalar(@lines), " lines:\n"; foreach my $l (@lines) { if(defined $l) { print STDERR " line {$l}\n"; } else { print STDERR " line undef\n"; } } print STDERR "* end of ", scalar(@lines), " lines\n"; } $self->SUPER::parse_lines(@lines); } elsif(exists $self->{'source_arrayref'}) { DEBUG and print STDERR "$self 's source is arrayref $self->{'source_arrayref'}, with ", scalar(@{$self->{'source_arrayref'}}), " items left in it.\n"; DEBUG > 3 and print STDERR " Fetching ", Pod::Simple::MANY_LINES, " lines.\n"; $self->SUPER::parse_lines( splice @{ $self->{'source_arrayref'} }, 0, Pod::Simple::MANY_LINES ); unless( @{ $self->{'source_arrayref'} } ) { DEBUG and print STDERR "That's it for that source arrayref! Killing.\n"; $self->SUPER::parse_lines(undef); delete $self->{'source_arrayref'}; # so it can be GC'd } # to make sure that an undef is always sent to signal end-of-stream } elsif(exists $self->{'source_scalar_ref'}) { DEBUG and print STDERR "$self 's source is scalarref $self->{'source_scalar_ref'}, with ", length(${ $self->{'source_scalar_ref'} }) - (pos(${ $self->{'source_scalar_ref'} }) || 0), " characters left to parse.\n"; DEBUG > 3 and print STDERR " Fetching a line from source-string...\n"; if( ${ $self->{'source_scalar_ref'} } =~ m/([^\n\r]*)((?:\r?\n)?)/g ) { #print(">> $1\n"), $self->SUPER::parse_lines($1) if length($1) or length($2) or pos( ${ $self->{'source_scalar_ref'} }) != length( ${ $self->{'source_scalar_ref'} }); # I.e., unless it's a zero-length "empty line" at the very # end of "foo\nbar\n" (i.e., between the \n and the EOS). } else { # that's the end. Byebye $self->SUPER::parse_lines(undef); delete $self->{'source_scalar_ref'}; DEBUG and print STDERR "That's it for that source scalarref! Killing.\n"; } } else { die "What source??"; } } DEBUG and print STDERR "get_token about to return ", Pod::Simple::pretty( @{$self->{'token_buffer'}} ? $self->{'token_buffer'}[-1] : undef ), "\n"; return shift @{$self->{'token_buffer'}}; # that's an undef if empty } sub unget_token { my $self = shift; DEBUG and print STDERR "Ungetting ", scalar(@_), " tokens: ", @_ ? "@_\n" : "().\n"; foreach my $t (@_) { Carp::croak "Can't unget that, because it's not a token -- it's undef!" unless defined $t; Carp::croak "Can't unget $t, because it's not a token -- it's a string!" unless ref $t; Carp::croak "Can't unget $t, because it's not a token object!" unless UNIVERSAL::can($t, 'type'); } unshift @{$self->{'token_buffer'}}, @_; DEBUG > 1 and print STDERR "Token buffer now has ", scalar(@{$self->{'token_buffer'}}), " items in it.\n"; return; } #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ # $self->{'source_filename'} = $source; sub set_source { my $self = shift @_; return $self->{'source_fh'} unless @_; Carp::croak("Cannot assign new source to pull parser; create a new instance, instead") if $self->{'source_fh'} || $self->{'source_scalar_ref'} || $self->{'source_arrayref'}; my $handle; if(!defined $_[0]) { Carp::croak("Can't use empty-string as a source for set_source"); } elsif(ref(\( $_[0] )) eq 'GLOB') { $self->{'source_filename'} = '' . ($handle = $_[0]); DEBUG and print STDERR "$self 's source is glob $_[0]\n"; # and fall thru } elsif(ref( $_[0] ) eq 'SCALAR') { $self->{'source_scalar_ref'} = $_[0]; DEBUG and print STDERR "$self 's source is scalar ref $_[0]\n"; return; } elsif(ref( $_[0] ) eq 'ARRAY') { $self->{'source_arrayref'} = $_[0]; DEBUG and print STDERR "$self 's source is array ref $_[0]\n"; return; } elsif(ref $_[0]) { $self->{'source_filename'} = '' . ($handle = $_[0]); DEBUG and print STDERR "$self 's source is fh-obj $_[0]\n"; } elsif(!length $_[0]) { Carp::croak("Can't use empty-string as a source for set_source"); } else { # It's a filename! DEBUG and print STDERR "$self 's source is filename $_[0]\n"; { local *PODSOURCE; open(PODSOURCE, "<$_[0]") || Carp::croak "Can't open $_[0]: $!"; $handle = *PODSOURCE{IO}; } $self->{'source_filename'} = $_[0]; DEBUG and print STDERR " Its name is $_[0].\n"; # TODO: file-discipline things here! } $self->{'source_fh'} = $handle; DEBUG and print STDERR " Its handle is $handle\n"; return 1; } # ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ sub get_title_short { shift->get_short_title(@_) } # alias sub get_short_title { my $title = shift->get_title(@_); $title = $1 if $title =~ m/^(\S{1,60})\s+--?\s+./s; # turn "Foo::Bar -- bars for your foo" into "Foo::Bar" return $title; } sub get_title { shift->_get_titled_section( 'NAME', max_token => 50, desperate => 1, @_) } sub get_version { shift->_get_titled_section( 'VERSION', max_token => 400, accept_verbatim => 1, max_content_length => 3_000, @_, ); } sub get_description { shift->_get_titled_section( 'DESCRIPTION', max_token => 400, max_content_length => 3_000, @_, ) } sub get_authors { shift->get_author(@_) } # a harmless alias sub get_author { my $this = shift; # Max_token is so high because these are # typically at the end of the document: $this->_get_titled_section('AUTHOR' , max_token => 10_000, @_) || $this->_get_titled_section('AUTHORS', max_token => 10_000, @_); } #-------------------------------------------------------------------------- sub _get_titled_section { # Based on a get_title originally contributed by Graham Barr my($self, $titlename, %options) = (@_); my $max_token = delete $options{'max_token'}; my $desperate_for_title = delete $options{'desperate'}; my $accept_verbatim = delete $options{'accept_verbatim'}; my $max_content_length = delete $options{'max_content_length'}; my $nocase = delete $options{'nocase'}; $max_content_length = 120 unless defined $max_content_length; Carp::croak( "Unknown " . ((1 == keys %options) ? "option: " : "options: ") . join " ", map "[$_]", sort keys %options ) if keys %options; my %content_containers; $content_containers{'Para'} = 1; if($accept_verbatim) { $content_containers{'Verbatim'} = 1; $content_containers{'VerbatimFormatted'} = 1; } my $token_count = 0; my $title; my @to_unget; my $state = 0; my $depth = 0; Carp::croak "What kind of titlename is \"$titlename\"?!" unless defined $titlename and $titlename =~ m/^[A-Z ]{1,60}$/s; #sanity my $titlename_re = quotemeta($titlename); my $head1_text_content; my $para_text_content; my $skipX; while( ++$token_count <= ($max_token || 1_000_000) and defined(my $token = $self->get_token) ) { push @to_unget, $token; if ($state == 0) { # seeking =head1 if( $token->is_start and $token->tagname eq 'head1' ) { DEBUG and print STDERR " Found head1. Seeking content...\n"; ++$state; $head1_text_content = ''; } } elsif($state == 1) { # accumulating text until end of head1 if( $token->is_text ) { unless ($skipX) { DEBUG and print STDERR " Adding \"", $token->text, "\" to head1-content.\n"; $head1_text_content .= $token->text; } } elsif( $token->is_tagname('X') ) { # We're going to want to ignore X<> stuff. $skipX = $token->is_start; DEBUG and print STDERR +($skipX ? 'Start' : 'End'), 'ing ignoring of X<> tag'; } elsif( $token->is_end and $token->tagname eq 'head1' ) { DEBUG and print STDERR " Found end of head1. Considering content...\n"; $head1_text_content = uc $head1_text_content if $nocase; if($head1_text_content eq $titlename or $head1_text_content =~ m/\($titlename_re\)/s # We accept "=head1 Nomen Modularis (NAME)" for sake of i18n ) { DEBUG and print STDERR " Yup, it was $titlename. Seeking next para-content...\n"; ++$state; } elsif( $desperate_for_title # if we're so desperate we'll take the first # =head1's content as a title and $head1_text_content =~ m/\S/ and $head1_text_content !~ m/^[ A-Z]+$/s and $head1_text_content !~ m/\((?: NAME | TITLE | VERSION | AUTHORS? | DESCRIPTION | SYNOPSIS | COPYRIGHT | LICENSE | NOTES? | FUNCTIONS? | METHODS? | CAVEATS? | BUGS? | SEE\ ALSO | SWITCHES | ENVIRONMENT )\)/sx # avoid accepting things like =head1 Thingy Thongy (DESCRIPTION) and ($max_content_length ? (length($head1_text_content) <= $max_content_length) # sanity : 1) ) { # Looks good; trim it ($title = $head1_text_content) =~ s/\s+$//; DEBUG and print STDERR " It looks titular: \"$title\".\n\n Using that.\n"; last; } else { --$state; DEBUG and print STDERR " Didn't look titular ($head1_text_content).\n", "\n Dropping back to seeking-head1-content mode...\n"; } } } elsif($state == 2) { # seeking start of para (which must immediately follow) if($token->is_start and $content_containers{ $token->tagname }) { DEBUG and print STDERR " Found start of Para. Accumulating content...\n"; $para_text_content = ''; ++$state; } else { DEBUG and print " Didn't see an immediately subsequent start-Para. Reseeking H1\n"; $state = 0; } } elsif($state == 3) { # accumulating text until end of Para if( $token->is_text ) { DEBUG and print STDERR " Adding \"", $token->text, "\" to para-content.\n"; $para_text_content .= $token->text; # and keep looking } elsif( $token->is_end and $content_containers{ $token->tagname } ) { DEBUG and print STDERR " Found end of Para. Considering content: ", $para_text_content, "\n"; if( $para_text_content =~ m/\S/ and ($max_content_length ? (length($para_text_content) <= $max_content_length) : 1) ) { # Some minimal sanity constraints, I think. DEBUG and print STDERR " It looks contentworthy, I guess. Using it.\n"; $title = $para_text_content; last; } else { DEBUG and print STDERR " Doesn't look at all contentworthy!\n Giving up.\n"; undef $title; last; } } } else { die "IMPOSSIBLE STATE $state!\n"; # should never happen } } # Put it all back! $self->unget_token(@to_unget); if(DEBUG) { if(defined $title) { print STDERR " Returning title <$title>\n" } else { print STDERR "Returning title <>\n" } } return '' unless defined $title; $title =~ s/^\s+//; return $title; } #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ # # Methods that actually do work at parse-time: sub _handle_element_start { my $self = shift; # leaving ($element_name, $attr_hash_r) DEBUG > 2 and print STDERR "++ $_[0] (", map("<$_> ", %{$_[1]}), ")\n"; push @{ $self->{'token_buffer'} }, $self->{'start_token_class'}->new(@_); return; } sub _handle_text { my $self = shift; # leaving ($text) DEBUG > 2 and print STDERR "== $_[0]\n"; push @{ $self->{'token_buffer'} }, $self->{'text_token_class'}->new(@_); return; } sub _handle_element_end { my $self = shift; # leaving ($element_name); DEBUG > 2 and print STDERR "-- $_[0]\n"; push @{ $self->{'token_buffer'} }, $self->{'end_token_class'}->new(@_); return; } #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 1; __END__ =head1 NAME Pod::Simple::PullParser -- a pull-parser interface to parsing Pod =head1 SYNOPSIS my $parser = SomePodProcessor->new; $parser->set_source( "whatever.pod" ); $parser->run; Or: my $parser = SomePodProcessor->new; $parser->set_source( $some_filehandle_object ); $parser->run; Or: my $parser = SomePodProcessor->new; $parser->set_source( \$document_source ); $parser->run; Or: my $parser = SomePodProcessor->new; $parser->set_source( \@document_lines ); $parser->run; And elsewhere: require 5; package SomePodProcessor; use strict; use base qw(Pod::Simple::PullParser); sub run { my $self = shift; Token: while(my $token = $self->get_token) { ...process each token... } } =head1 DESCRIPTION This class is for using Pod::Simple to build a Pod processor -- but one that uses an interface based on a stream of token objects, instead of based on events. This is a subclass of L<Pod::Simple> and inherits all its methods. A subclass of Pod::Simple::PullParser should define a C<run> method that calls C<< $token = $parser->get_token >> to pull tokens. See the source for Pod::Simple::RTF for an example of a formatter that uses Pod::Simple::PullParser. =head1 METHODS =over =item my $token = $parser->get_token This returns the next token object (which will be of a subclass of L<Pod::Simple::PullParserToken>), or undef if the parser-stream has hit the end of the document. =item $parser->unget_token( $token ) =item $parser->unget_token( $token1, $token2, ... ) This restores the token object(s) to the front of the parser stream. =back The source has to be set before you can parse anything. The lowest-level way is to call C<set_source>: =over =item $parser->set_source( $filename ) =item $parser->set_source( $filehandle_object ) =item $parser->set_source( \$document_source ) =item $parser->set_source( \@document_lines ) =back Or you can call these methods, which Pod::Simple::PullParser has defined to work just like Pod::Simple's same-named methods: =over =item $parser->parse_file(...) =item $parser->parse_string_document(...) =item $parser->filter(...) =item $parser->parse_from_file(...) =back For those to work, the Pod-processing subclass of Pod::Simple::PullParser has to have defined a $parser->run method -- so it is advised that all Pod::Simple::PullParser subclasses do so. See the Synopsis above, or the source for Pod::Simple::RTF. Authors of formatter subclasses might find these methods useful to call on a parser object that you haven't started pulling tokens from yet: =over =item my $title_string = $parser->get_title This tries to get the title string out of $parser, by getting some tokens, and scanning them for the title, and then ungetting them so that you can process the token-stream from the beginning. For example, suppose you have a document that starts out: =head1 NAME Hoo::Boy::Wowza -- Stuff B<wow> yeah! $parser->get_title on that document will return "Hoo::Boy::Wowza -- Stuff wow yeah!". If the document starts with: =head1 Name Hoo::Boy::W00t -- Stuff B<w00t> yeah! Then you'll need to pass the C<nocase> option in order to recognize "Name": $parser->get_title(nocase => 1); In cases where get_title can't find the title, it will return empty-string (""). =item my $title_string = $parser->get_short_title This is just like get_title, except that it returns just the modulename, if the title seems to be of the form "SomeModuleName -- description". For example, suppose you have a document that starts out: =head1 NAME Hoo::Boy::Wowza -- Stuff B<wow> yeah! then $parser->get_short_title on that document will return "Hoo::Boy::Wowza". But if the document starts out: =head1 NAME Hooboy, stuff B<wow> yeah! then $parser->get_short_title on that document will return "Hooboy, stuff wow yeah!". If the document starts with: =head1 Name Hoo::Boy::W00t -- Stuff B<w00t> yeah! Then you'll need to pass the C<nocase> option in order to recognize "Name": $parser->get_short_title(nocase => 1); If the title can't be found, then get_short_title returns empty-string (""). =item $author_name = $parser->get_author This works like get_title except that it returns the contents of the "=head1 AUTHOR\n\nParagraph...\n" section, assuming that that section isn't terribly long. To recognize a "=head1 Author\n\nParagraph\n" section, pass the C<nocase> option: $parser->get_author(nocase => 1); (This method tolerates "AUTHORS" instead of "AUTHOR" too.) =item $description_name = $parser->get_description This works like get_title except that it returns the contents of the "=head1 DESCRIPTION\n\nParagraph...\n" section, assuming that that section isn't terribly long. To recognize a "=head1 Description\n\nParagraph\n" section, pass the C<nocase> option: $parser->get_description(nocase => 1); =item $version_block = $parser->get_version This works like get_title except that it returns the contents of the "=head1 VERSION\n\n[BIG BLOCK]\n" block. Note that this does NOT return the module's C<$VERSION>!! To recognize a "=head1 Version\n\n[BIG BLOCK]\n" section, pass the C<nocase> option: $parser->get_version(nocase => 1); =back =head1 NOTE You don't actually I<have> to define a C<run> method. If you're writing a Pod-formatter class, you should define a C<run> just so that users can call C<parse_file> etc, but you don't I<have> to. And if you're not writing a formatter class, but are instead just writing a program that does something simple with a Pod::PullParser object (and not an object of a subclass), then there's no reason to bother subclassing to add a C<run> method. =head1 SEE ALSO L<Pod::Simple> L<Pod::Simple::PullParserToken> -- and its subclasses L<Pod::Simple::PullParserStartToken>, L<Pod::Simple::PullParserTextToken>, and L<Pod::Simple::PullParserEndToken>. L<HTML::TokeParser>, which inspired this. =head1 SUPPORT Questions or discussion about POD and Pod::Simple should be sent to the pod-people@perl.org mail list. Send an empty email to pod-people-subscribe@perl.org to subscribe. This module is managed in an open GitHub repository, L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <bug-pod-simple@rt.cpan.org>. =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2002 Sean M. Burke. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Pod::Simple was created by Sean M. Burke <sburke@cpan.org>. But don't bother him, he's retired. Pod::Simple is maintained by: =over =item * Allison Randal C<allison@perl.org> =item * Hans Dieter Pearcey C<hdp@cpan.org> =item * David E. Wheeler C<dwheeler@cpan.org> =back =cut JUNK: sub _old_get_title { # some witchery in here my $self = $_[0]; my $title; my @to_unget; while(1) { push @to_unget, $self->get_token; unless(defined $to_unget[-1]) { # whoops, short doc! pop @to_unget; last; } DEBUG and print STDERR "-Got token ", $to_unget[-1]->dump, "\n"; (DEBUG and print STDERR "Too much in the buffer.\n"), last if @to_unget > 25; # sanity my $pattern = ''; if( #$to_unget[-1]->type eq 'end' #and $to_unget[-1]->tagname eq 'Para' #and ($pattern = join('', map {; ($_->type eq 'start') ? ("<" . $_->tagname .">") : ($_->type eq 'end' ) ? ("</". $_->tagname .">") : ($_->type eq 'text' ) ? ($_->text =~ m<^([A-Z]+)$>s ? $1 : 'X') : "BLORP" } @to_unget )) =~ m{<head1>NAME</head1><Para>(X|</?[BCIFLS]>)+</Para>$}s ) { # Whee, it fits the pattern DEBUG and print STDERR "Seems to match =head1 NAME pattern.\n"; $title = ''; foreach my $t (reverse @to_unget) { last if $t->type eq 'start' and $t->tagname eq 'Para'; $title = $t->text . $title if $t->type eq 'text'; } undef $title if $title =~ m<^\s*$>; # make sure it's contentful! last; } elsif ($pattern =~ m{<head(\d)>(.+)</head\d>$} and !( $1 eq '1' and $2 eq 'NAME' ) ) { # Well, it fits a fallback pattern DEBUG and print STDERR "Seems to match NAMEless pattern.\n"; $title = ''; foreach my $t (reverse @to_unget) { last if $t->type eq 'start' and $t->tagname =~ m/^head\d$/s; $title = $t->text . $title if $t->type eq 'text'; } undef $title if $title =~ m<^\s*$>; # make sure it's contentful! last; } else { DEBUG and $pattern and print STDERR "Leading pattern: $pattern\n"; } } # Put it all back: $self->unget_token(@to_unget); if(DEBUG) { if(defined $title) { print STDERR " Returning title <$title>\n" } else { print STDERR "Returning title <>\n" } } return '' unless defined $title; return $title; } PK ! {�2 2 ) 5.34.0/Pod/Simple/PullParserStartToken.pmnu �[��� require 5; package Pod::Simple::PullParserStartToken; use Pod::Simple::PullParserToken (); use strict; use vars qw(@ISA $VERSION); @ISA = ('Pod::Simple::PullParserToken'); $VERSION = '3.42'; sub new { # Class->new(tagname, optional_attrhash); my $class = shift; return bless ['start', @_], ref($class) || $class; } # Purely accessors: sub tagname { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0][1] } sub tag { shift->tagname(@_) } sub is_tagname { $_[0][1] eq $_[1] } sub is_tag { shift->is_tagname(@_) } sub attr_hash { $_[0][2] ||= {} } sub attr { if(@_ == 2) { # Reading: $token->attr('attrname') ${$_[0][2] || return undef}{ $_[1] }; } elsif(@_ > 2) { # Writing: $token->attr('attrname', 'newval') ${$_[0][2] ||= {}}{ $_[1] } = $_[2]; } else { require Carp; Carp::croak( 'usage: $object->attr("val") or $object->attr("key", "newval")'); return undef; } } 1; __END__ =head1 NAME Pod::Simple::PullParserStartToken -- start-tokens from Pod::Simple::PullParser =head1 SYNOPSIS (See L<Pod::Simple::PullParser>) =head1 DESCRIPTION When you do $parser->get_token on a L<Pod::Simple::PullParser> object, you might get an object of this class. This is a subclass of L<Pod::Simple::PullParserToken> and inherits all its methods, and adds these methods: =over =item $token->tagname This returns the tagname for this start-token object. For example, parsing a "=head1 ..." line will give you a start-token with the tagname of "head1", token(s) for its content, and then an end-token with the tagname of "head1". =item $token->tagname(I<somestring>) This changes the tagname for this start-token object. You probably won't need to do this. =item $token->tag(...) A shortcut for $token->tagname(...) =item $token->is_tag(I<somestring>) or $token->is_tagname(I<somestring>) These are shortcuts for C<< $token->tag() eq I<somestring> >> =item $token->attr(I<attrname>) This returns the value of the I<attrname> attribute for this start-token object, or undef. For example, parsing a LZ<><Foo/"Bar"> link will produce a start-token with a "to" attribute with the value "Foo", a "type" attribute with the value "pod", and a "section" attribute with the value "Bar". =item $token->attr(I<attrname>, I<newvalue>) This sets the I<attrname> attribute for this start-token object to I<newvalue>. You probably won't need to do this. =item $token->attr_hash This returns the hashref that is the attribute set for this start-token. This is useful if (for example) you want to ask what all the attributes are -- you can just do C<< keys %{$token->attr_hash} >> =back You're unlikely to ever need to construct an object of this class for yourself, but if you want to, call C<< Pod::Simple::PullParserStartToken->new( I<tagname>, I<attrhash> ) >> =head1 SEE ALSO L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing> =head1 SEE ALSO L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing> =head1 SUPPORT Questions or discussion about POD and Pod::Simple should be sent to the pod-people@perl.org mail list. Send an empty email to pod-people-subscribe@perl.org to subscribe. This module is managed in an open GitHub repository, L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <bug-pod-simple@rt.cpan.org>. =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2002 Sean M. Burke. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Pod::Simple was created by Sean M. Burke <sburke@cpan.org>. But don't bother him, he's retired. Pod::Simple is maintained by: =over =item * Allison Randal C<allison@perl.org> =item * Hans Dieter Pearcey C<hdp@cpan.org> =item * David E. Wheeler C<dwheeler@cpan.org> =back =cut PK ! Y�ܤ � $ 5.34.0/Pod/Simple/PullParserToken.pmnu �[��� require 5; package Pod::Simple::PullParserToken; # Base class for tokens gotten from Pod::Simple::PullParser's $parser->get_token @ISA = (); $VERSION = '3.42'; use strict; sub new { # Class->new('type', stuff...); ## Overridden in derived classes anyway my $class = shift; return bless [@_], ref($class) || $class; } sub type { $_[0][0] } # Can't change the type of an object sub dump { Pod::Simple::pretty( [ @{ $_[0] } ] ) } sub is_start { $_[0][0] eq 'start' } sub is_end { $_[0][0] eq 'end' } sub is_text { $_[0][0] eq 'text' } 1; __END__ sub dump { '[' . _esc( @{ $_[0] } ) . ']' } # JUNK: sub _esc { return '' unless @_; my @out; foreach my $in (@_) { push @out, '"' . $in . '"'; $out[-1] =~ s/([^- \:\:\.\,\'\>\<\"\/\=\?\+\|\[\]\{\}\_a-zA-Z0-9_\`\~\!\#\%\^\&\*\(\)])/ sprintf( (ord($1) < 256) ? "\\x%02X" : "\\x{%X}", ord($1)) /eg; } return join ', ', @out; } __END__ =head1 NAME Pod::Simple::PullParserToken -- tokens from Pod::Simple::PullParser =head1 SYNOPSIS Given a $parser that's an object of class Pod::Simple::PullParser (or a subclass)... while(my $token = $parser->get_token) { $DEBUG and print STDERR "Token: ", $token->dump, "\n"; if($token->is_start) { ...access $token->tagname, $token->attr, etc... } elsif($token->is_text) { ...access $token->text, $token->text_r, etc... } elsif($token->is_end) { ...access $token->tagname... } } (Also see L<Pod::Simple::PullParser>) =head1 DESCRIPTION When you do $parser->get_token on a L<Pod::Simple::PullParser>, you should get an object of a subclass of Pod::Simple::PullParserToken. Subclasses will add methods, and will also inherit these methods: =over =item $token->type This returns the type of the token. This will be either the string "start", the string "text", or the string "end". Once you know what the type of an object is, you then know what subclass it belongs to, and therefore what methods it supports. Yes, you could probably do the same thing with code like $token->isa('Pod::Simple::PullParserEndToken'), but that's not so pretty as using just $token->type, or even the following shortcuts: =item $token->is_start This is a shortcut for C<< $token->type() eq "start" >> =item $token->is_text This is a shortcut for C<< $token->type() eq "text" >> =item $token->is_end This is a shortcut for C<< $token->type() eq "end" >> =item $token->dump This returns a handy stringified value of this object. This is useful for debugging, as in: while(my $token = $parser->get_token) { $DEBUG and print STDERR "Token: ", $token->dump, "\n"; ... } =back =head1 SEE ALSO My subclasses: L<Pod::Simple::PullParserStartToken>, L<Pod::Simple::PullParserTextToken>, and L<Pod::Simple::PullParserEndToken>. L<Pod::Simple::PullParser> and L<Pod::Simple> =head1 SUPPORT Questions or discussion about POD and Pod::Simple should be sent to the pod-people@perl.org mail list. Send an empty email to pod-people-subscribe@perl.org to subscribe. This module is managed in an open GitHub repository, L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <bug-pod-simple@rt.cpan.org>. =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2002 Sean M. Burke. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Pod::Simple was created by Sean M. Burke <sburke@cpan.org>. But don't bother him, he's retired. Pod::Simple is maintained by: =over =item * Allison Randal C<allison@perl.org> =item * Hans Dieter Pearcey C<hdp@cpan.org> =item * David E. Wheeler C<dwheeler@cpan.org> =back =cut PK ! �-�D D ' 5.34.0/Pod/Simple/PullParserEndToken.pmnu �[��� require 5; package Pod::Simple::PullParserEndToken; use Pod::Simple::PullParserToken (); use strict; use vars qw(@ISA $VERSION); @ISA = ('Pod::Simple::PullParserToken'); $VERSION = '3.42'; sub new { # Class->new(tagname); my $class = shift; return bless ['end', @_], ref($class) || $class; } # Purely accessors: sub tagname { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0][1] } sub tag { shift->tagname(@_) } # shortcut: sub is_tagname { $_[0][1] eq $_[1] } sub is_tag { shift->is_tagname(@_) } 1; __END__ =head1 NAME Pod::Simple::PullParserEndToken -- end-tokens from Pod::Simple::PullParser =head1 SYNOPSIS (See L<Pod::Simple::PullParser>) =head1 DESCRIPTION When you do $parser->get_token on a L<Pod::Simple::PullParser>, you might get an object of this class. This is a subclass of L<Pod::Simple::PullParserToken> and inherits all its methods, and adds these methods: =over =item $token->tagname This returns the tagname for this end-token object. For example, parsing a "=head1 ..." line will give you a start-token with the tagname of "head1", token(s) for its content, and then an end-token with the tagname of "head1". =item $token->tagname(I<somestring>) This changes the tagname for this end-token object. You probably won't need to do this. =item $token->tag(...) A shortcut for $token->tagname(...) =item $token->is_tag(I<somestring>) or $token->is_tagname(I<somestring>) These are shortcuts for C<< $token->tag() eq I<somestring> >> =back You're unlikely to ever need to construct an object of this class for yourself, but if you want to, call C<< Pod::Simple::PullParserEndToken->new( I<tagname> ) >> =head1 SEE ALSO L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing> =head1 SUPPORT Questions or discussion about POD and Pod::Simple should be sent to the pod-people@perl.org mail list. Send an empty email to pod-people-subscribe@perl.org to subscribe. This module is managed in an open GitHub repository, L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <bug-pod-simple@rt.cpan.org>. =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2002 Sean M. Burke. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Pod::Simple was created by Sean M. Burke <sburke@cpan.org>. But don't bother him, he's retired. Pod::Simple is maintained by: =over =item * Allison Randal C<allison@perl.org> =item * Hans Dieter Pearcey C<hdp@cpan.org> =item * David E. Wheeler C<dwheeler@cpan.org> =back =cut PK ! ��О О 5.34.0/Pod/Simple/HTMLBatch.pmnu �[��� require 5; package Pod::Simple::HTMLBatch; use strict; use vars qw( $VERSION $HTML_RENDER_CLASS $HTML_EXTENSION $CSS $JAVASCRIPT $SLEEPY $SEARCH_CLASS @ISA ); $VERSION = '3.42'; @ISA = (); # Yup, we're NOT a subclass of Pod::Simple::HTML! # TODO: nocontents stylesheets. Strike some of the color variations? use Pod::Simple::HTML (); BEGIN {*esc = \&Pod::Simple::HTML::esc } use File::Spec (); use Pod::Simple::Search; $SEARCH_CLASS ||= 'Pod::Simple::Search'; BEGIN { if(defined &DEBUG) { } # no-op elsif( defined &Pod::Simple::DEBUG ) { *DEBUG = \&Pod::Simple::DEBUG } else { *DEBUG = sub () {0}; } } $SLEEPY = 1 if !defined $SLEEPY and $^O =~ /mswin|mac/i; # flag to occasionally sleep for $SLEEPY - 1 seconds. $HTML_RENDER_CLASS ||= "Pod::Simple::HTML"; # # Methods beginning with "_" are particularly internal and possibly ugly. # Pod::Simple::_accessorize( __PACKAGE__, 'verbose', # how verbose to be during batch conversion 'html_render_class', # what class to use to render 'search_class', # what to use to search for POD documents 'contents_file', # If set, should be the name of a file (in current directory) # to write the list of all modules to 'index', # will set $htmlpage->index(...) to this (true or false) 'progress', # progress object 'contents_page_start', 'contents_page_end', 'css_flurry', '_css_wad', 'javascript_flurry', '_javascript_wad', 'no_contents_links', # set to true to suppress automatic adding of << links. '_contents', ); # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # Just so we can run from the command line more easily sub go { @ARGV == 2 or die sprintf( "Usage: perl -M%s -e %s:go indirs outdir\n (or use \"\@INC\" for indirs)\n", __PACKAGE__, __PACKAGE__, ); if(defined($ARGV[1]) and length($ARGV[1])) { my $d = $ARGV[1]; -e $d or die "I see no output directory named \"$d\"\nAborting"; -d $d or die "But \"$d\" isn't a directory!\nAborting"; -w $d or die "Directory \"$d\" isn't writeable!\nAborting"; } __PACKAGE__->batch_convert(@ARGV); } # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - sub new { my $new = bless {}, ref($_[0]) || $_[0]; $new->html_render_class($HTML_RENDER_CLASS); $new->search_class($SEARCH_CLASS); $new->verbose(1 + DEBUG); $new->_contents([]); $new->index(1); $new-> _css_wad([]); $new->css_flurry(1); $new->_javascript_wad([]); $new->javascript_flurry(1); $new->contents_file( 'index' . ($HTML_EXTENSION || $Pod::Simple::HTML::HTML_EXTENSION) ); $new->contents_page_start( join "\n", grep $_, $Pod::Simple::HTML::Doctype_decl, "<html><head>", "<title>Perl Documentation</title>", $Pod::Simple::HTML::Content_decl, "</head>", "\n<body class='contentspage'>\n<h1>Perl Documentation</h1>\n" ); # override if you need a different title $new->contents_page_end( sprintf( "\n\n<p class='contentsfooty'>Generated by %s v%s under Perl v%s\n<br >At %s GMT.</p>\n\n</body></html>\n", esc( ref($new), eval {$new->VERSION} || $VERSION, $], scalar(gmtime($ENV{SOURCE_DATE_EPOCH} || time)), ))); return $new; } # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - sub muse { my $self = shift; if($self->verbose) { print 'T+', int(time() - $self->{'_batch_start_time'}), "s: ", @_, "\n"; } return 1; } # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - sub batch_convert { my($self, $dirs, $outdir) = @_; $self ||= __PACKAGE__; # tolerate being called as an optionless function $self = $self->new unless ref $self; # tolerate being used as a class method if(!defined($dirs) or $dirs eq '' or $dirs eq '@INC' ) { $dirs = ''; } elsif(ref $dirs) { # OK, it's an explicit set of dirs to scan, specified as an arrayref. } else { # OK, it's an explicit set of dirs to scan, specified as a # string like "/thing:/also:/whatever/perl" (":"-delim, as usual) # or, under MSWin, like "c:/thing;d:/also;c:/whatever/perl" (";"-delim!) require Config; my $ps = quotemeta( $Config::Config{'path_sep'} || ":" ); $dirs = [ grep length($_), split qr/$ps/, $dirs ]; } $outdir = $self->filespecsys->curdir unless defined $outdir and length $outdir; $self->_batch_convert_main($dirs, $outdir); } # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - sub _batch_convert_main { my($self, $dirs, $outdir) = @_; # $dirs is either false, or an arrayref. # $outdir is a pathspec. $self->{'_batch_start_time'} ||= time(); $self->muse( "= ", scalar(localtime) ); $self->muse( "Starting batch conversion to \"$outdir\"" ); my $progress = $self->progress; if(!$progress and $self->verbose > 0 and $self->verbose() <= 5) { require Pod::Simple::Progress; $progress = Pod::Simple::Progress->new( ($self->verbose < 2) ? () # Default omission-delay : ($self->verbose == 2) ? 1 # Reduce the omission-delay : 0 # Eliminate the omission-delay ); $self->progress($progress); } if($dirs) { $self->muse(scalar(@$dirs), " dirs to scan: @$dirs"); } else { $self->muse("Scanning \@INC. This could take a minute or two."); } my $mod2path = $self->find_all_pods($dirs ? $dirs : ()); $self->muse("Done scanning."); my $total = keys %$mod2path; unless($total) { $self->muse("No pod found. Aborting batch conversion.\n"); return $self; } $progress and $progress->goal($total); $self->muse("Now converting pod files to HTML.", ($total > 25) ? " This will take a while more." : () ); $self->_spray_css( $outdir ); $self->_spray_javascript( $outdir ); $self->_do_all_batch_conversions($mod2path, $outdir); $progress and $progress->done(sprintf ( "Done converting %d files.", $self->{"__batch_conv_page_count"} )); return $self->_batch_convert_finish($outdir); return $self; } sub _do_all_batch_conversions { my($self, $mod2path, $outdir) = @_; $self->{"__batch_conv_page_count"} = 0; foreach my $module (sort {lc($a) cmp lc($b)} keys %$mod2path) { $self->_do_one_batch_conversion($module, $mod2path, $outdir); sleep($SLEEPY - 1) if $SLEEPY; } return; } sub _batch_convert_finish { my($self, $outdir) = @_; $self->write_contents_file($outdir); $self->muse("Done with batch conversion. $$self{'__batch_conv_page_count'} files done."); $self->muse( "= ", scalar(localtime) ); $self->progress and $self->progress->done("All done!"); return; } # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - sub _do_one_batch_conversion { my($self, $module, $mod2path, $outdir, $outfile) = @_; my $retval; my $total = scalar keys %$mod2path; my $infile = $mod2path->{$module}; my @namelets = grep m/\S/, split "::", $module; # this can stick around in the contents LoL my $depth = scalar @namelets; die "Contentless thingie?! $module $infile" unless @namelets; #sanity $outfile ||= do { my @n = @namelets; $n[-1] .= $HTML_EXTENSION || $Pod::Simple::HTML::HTML_EXTENSION; $self->filespecsys->catfile( $outdir, @n ); }; my $progress = $self->progress; my $page = $self->html_render_class->new; if(DEBUG > 5) { $self->muse($self->{"__batch_conv_page_count"} + 1, "/$total: ", ref($page), " render ($depth) $module => $outfile"); } elsif(DEBUG > 2) { $self->muse($self->{"__batch_conv_page_count"} + 1, "/$total: $module => $outfile") } # Give each class a chance to init the converter: $page->batch_mode_page_object_init($self, $module, $infile, $outfile, $depth) if $page->can('batch_mode_page_object_init'); # Init for the index (TOC), too. $self->batch_mode_page_object_init($page, $module, $infile, $outfile, $depth) if $self->can('batch_mode_page_object_init'); # Now get busy... $self->makepath($outdir => \@namelets); $progress and $progress->reach($self->{"__batch_conv_page_count"}, "Rendering $module"); if( $retval = $page->parse_from_file($infile, $outfile) ) { ++ $self->{"__batch_conv_page_count"} ; $self->note_for_contents_file( \@namelets, $infile, $outfile ); } else { $self->muse("Odd, parse_from_file(\"$infile\", \"$outfile\") returned false."); } $page->batch_mode_page_object_kill($self, $module, $infile, $outfile, $depth) if $page->can('batch_mode_page_object_kill'); # The following isn't a typo. Note that it switches $self and $page. $self->batch_mode_page_object_kill($page, $module, $infile, $outfile, $depth) if $self->can('batch_mode_page_object_kill'); DEBUG > 4 and printf STDERR "%s %sb < $infile %s %sb\n", $outfile, -s $outfile, $infile, -s $infile ; undef($page); return $retval; } # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - sub filespecsys { $_[0]{'_filespecsys'} || 'File::Spec' } # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - sub note_for_contents_file { my($self, $namelets, $infile, $outfile) = @_; # I think the infile and outfile parts are never used. -- SMB # But it's handy to have them around for debugging. if( $self->contents_file ) { my $c = $self->_contents(); push @$c, [ join("::", @$namelets), $infile, $outfile, $namelets ] # 0 1 2 3 ; DEBUG > 3 and print STDERR "Noting @$c[-1]\n"; } return; } #_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_- sub write_contents_file { my($self, $outdir) = @_; my $outfile = $self->_contents_filespec($outdir) || return; $self->muse("Preparing list of modules for ToC"); my($toplevel, # maps toplevelbit => [all submodules] $toplevel_form_freq, # ends up being 'foo' => 'Foo' ) = $self->_prep_contents_breakdown; my $Contents = eval { $self->_wopen($outfile) }; if( $Contents ) { $self->muse( "Writing contents file $outfile" ); } else { warn "Couldn't write-open contents file $outfile: $!\nAbort writing to $outfile at all"; return; } $self->_write_contents_start( $Contents, $outfile, ); $self->_write_contents_middle( $Contents, $outfile, $toplevel, $toplevel_form_freq ); $self->_write_contents_end( $Contents, $outfile, ); return $outfile; } # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - sub _write_contents_start { my($self, $Contents, $outfile) = @_; my $starter = $self->contents_page_start || ''; { my $css_wad = $self->_css_wad_to_markup(1); if( $css_wad ) { $starter =~ s{(</head>)}{\n$css_wad\n$1}i; # otherwise nevermind } my $javascript_wad = $self->_javascript_wad_to_markup(1); if( $javascript_wad ) { $starter =~ s{(</head>)}{\n$javascript_wad\n$1}i; # otherwise nevermind } } unless(print $Contents $starter, "<dl class='superindex'>\n" ) { warn "Couldn't print to $outfile: $!\nAbort writing to $outfile at all"; close($Contents); return 0; } return 1; } # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - sub _write_contents_middle { my($self, $Contents, $outfile, $toplevel2submodules, $toplevel_form_freq) = @_; foreach my $t (sort keys %$toplevel2submodules) { my @downlines = sort {$a->[-1] cmp $b->[-1]} @{ $toplevel2submodules->{$t} }; printf $Contents qq[<dt><a name="%s">%s</a></dt>\n<dd>\n], esc( $t, $toplevel_form_freq->{$t} ) ; my($path, $name); foreach my $e (@downlines) { $name = $e->[0]; $path = join( "/", '.', esc( @{$e->[3]} ) ) . ($HTML_EXTENSION || $Pod::Simple::HTML::HTML_EXTENSION); print $Contents qq{ <a href="$path">}, esc($name), "</a> \n"; } print $Contents "</dd>\n\n"; } return 1; } # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - sub _write_contents_end { my($self, $Contents, $outfile) = @_; unless( print $Contents "</dl>\n", $self->contents_page_end || '', ) { warn "Couldn't write to $outfile: $!"; } close($Contents) or warn "Couldn't close $outfile: $!"; return 1; } # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - sub _prep_contents_breakdown { my($self) = @_; my $contents = $self->_contents; my %toplevel; # maps lctoplevelbit => [all submodules] my %toplevel_form_freq; # ends up being 'foo' => 'Foo' # (mapping anycase forms to most freq form) foreach my $entry (@$contents) { my $toplevel = $entry->[0] =~ m/^perl\w*$/ ? 'perl_core_docs' # group all the perlwhatever docs together : $entry->[3][0] # normal case ; ++$toplevel_form_freq{ lc $toplevel }{ $toplevel }; push @{ $toplevel{ lc $toplevel } }, $entry; push @$entry, lc($entry->[0]); # add a sort-order key to the end } foreach my $toplevel (sort keys %toplevel) { my $fgroup = $toplevel_form_freq{$toplevel}; $toplevel_form_freq{$toplevel} = ( sort { $fgroup->{$b} <=> $fgroup->{$a} or $a cmp $b } keys %$fgroup # This hash is extremely unlikely to have more than 4 members, so this # sort isn't so very wasteful )[0]; } return(\%toplevel, \%toplevel_form_freq) if wantarray; return \%toplevel; } # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - sub _contents_filespec { my($self, $outdir) = @_; my $outfile = $self->contents_file; return unless $outfile; return $self->filespecsys->catfile( $outdir, $outfile ); } #_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_- sub makepath { my($self, $outdir, $namelets) = @_; return unless @$namelets > 1; for my $i (0 .. ($#$namelets - 1)) { my $dir = $self->filespecsys->catdir( $outdir, @$namelets[0 .. $i] ); if(-e $dir) { die "$dir exists but not as a directory!?" unless -d $dir; next; } DEBUG > 3 and print STDERR " Making $dir\n"; mkdir $dir, 0777 or die "Can't mkdir $dir: $!\nAborting" ; } return; } #_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_- sub batch_mode_page_object_init { my $self = shift; my($page, $module, $infile, $outfile, $depth) = @_; # TODO: any further options to percolate onto this new object here? $page->default_title($module); $page->index( $self->index ); $page->html_css( $self-> _css_wad_to_markup($depth) ); $page->html_javascript( $self->_javascript_wad_to_markup($depth) ); $self->add_header_backlink($page, $module, $infile, $outfile, $depth); $self->add_footer_backlink($page, $module, $infile, $outfile, $depth); return $self; } # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - sub add_header_backlink { my $self = shift; return if $self->no_contents_links; my($page, $module, $infile, $outfile, $depth) = @_; $page->html_header_after_title( join '', $page->html_header_after_title || '', qq[<p class="backlinktop"><b><a name="___top" href="], $self->url_up_to_contents($depth), qq[" accesskey="1" title="All Documents"><<</a></b></p>\n], ) if $self->contents_file ; return; } sub add_footer_backlink { my $self = shift; return if $self->no_contents_links; my($page, $module, $infile, $outfile, $depth) = @_; $page->html_footer( join '', qq[<p class="backlinkbottom"><b><a name="___bottom" href="], $self->url_up_to_contents($depth), qq[" title="All Documents"><<</a></b></p>\n], $page->html_footer || '', ) if $self->contents_file ; return; } sub url_up_to_contents { my($self, $depth) = @_; --$depth; return join '/', ('..') x $depth, esc($self->contents_file); } #_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_- sub find_all_pods { my($self, $dirs) = @_; # You can override find_all_pods in a subclass if you want to # do extra filtering or whatnot. But for the moment, we just # pass to modnames2paths: return $self->modnames2paths($dirs); } #_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_- sub modnames2paths { # return a hashref mapping modulenames => paths my($self, $dirs) = @_; my $m2p; { my $search = $self->search_class->new; DEBUG and print STDERR "Searching via $search\n"; $search->verbose(1) if DEBUG > 10; $search->progress( $self->progress->copy->goal(0) ) if $self->progress; $search->shadows(0); # don't bother noting shadowed files $search->inc( $dirs ? 0 : 1 ); $search->survey( $dirs ? @$dirs : () ); $m2p = $search->name2path; die "What, no name2path?!" unless $m2p; } $self->muse("That's odd... no modules found!") unless keys %$m2p; if( DEBUG > 4 ) { print STDERR "Modules found (name => path):\n"; foreach my $m (sort {lc($a) cmp lc($b)} keys %$m2p) { print STDERR " $m $$m2p{$m}\n"; } print STDERR "(total ", scalar(keys %$m2p), ")\n\n"; } elsif( DEBUG ) { print STDERR "Found ", scalar(keys %$m2p), " modules.\n"; } $self->muse( "Found ", scalar(keys %$m2p), " modules." ); # return the Foo::Bar => /whatever/Foo/Bar.pod|pm hashref return $m2p; } #=========================================================================== sub _wopen { # this is abstracted out so that the daemon class can override it my($self, $outpath) = @_; require Symbol; my $out_fh = Symbol::gensym(); DEBUG > 5 and print STDERR "Write-opening to $outpath\n"; return $out_fh if open($out_fh, "> $outpath"); require Carp; Carp::croak("Can't write-open $outpath: $!"); } #========================================================================== sub add_css { my($self, $url, $is_default, $name, $content_type, $media, $_code) = @_; return unless $url; unless($name) { # cook up a reasonable name based on the URL $name = $url; if( $name !~ m/\?/ and $name =~ m{([^/]+)$}s ) { $name = $1; $name =~ s/\.css//i; } } $media ||= 'all'; $content_type ||= 'text/css'; my $bunch = [$url, $name, $content_type, $media, $_code]; if($is_default) { unshift @{ $self->_css_wad }, $bunch } else { push @{ $self->_css_wad }, $bunch } return; } # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - sub _spray_css { my($self, $outdir) = @_; return unless $self->css_flurry(); $self->_gen_css_wad(); my $lol = $self->_css_wad; foreach my $chunk (@$lol) { my $url = $chunk->[0]; my $outfile; if( ref($chunk->[-1]) and $url =~ m{^(_[-a-z0-9_]+\.css$)} ) { $outfile = $self->filespecsys->catfile( $outdir, "$1" ); DEBUG > 5 and print STDERR "Noting $$chunk[0] as a file I'll create.\n"; } else { DEBUG > 5 and print STDERR "OK, noting $$chunk[0] as an external CSS.\n"; # Requires no further attention. next; } #$self->muse( "Writing autogenerated CSS file $outfile" ); my $Cssout = $self->_wopen($outfile); print $Cssout ${$chunk->[-1]} or warn "Couldn't print to $outfile: $!\nAbort writing to $outfile at all"; close($Cssout); DEBUG > 5 and print STDERR "Wrote $outfile\n"; } return; } # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - sub _css_wad_to_markup { my($self, $depth) = @_; my @css = @{ $self->_css_wad || return '' }; return '' unless @css; my $rel = 'stylesheet'; my $out = ''; --$depth; my $uplink = $depth ? ('../' x $depth) : ''; foreach my $chunk (@css) { next unless $chunk and @$chunk; my( $url1, $url2, $title, $type, $media) = ( $self->_maybe_uplink( $chunk->[0], $uplink ), esc(grep !ref($_), @$chunk) ); $out .= qq{<link rel="$rel" title="$title" type="$type" href="$url1$url2" media="$media" >\n}; $rel = 'alternate stylesheet'; # alternates = all non-first iterations } return $out; } # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - sub _maybe_uplink { # if the given URL looks relative, return the given uplink string -- # otherwise return emptystring my($self, $url, $uplink) = @_; ($url =~ m{^\./} or $url !~ m{[/\:]} ) ? $uplink : '' # qualify it, if/as needed } # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - sub _gen_css_wad { my $self = $_[0]; my $css_template = $self->_css_template; foreach my $variation ( # Commented out for sake of concision: # # 011n=black_with_red_on_white # 001n=black_with_yellow_on_white # 101n=black_with_green_on_white # 110=white_with_yellow_on_black # 010=white_with_green_on_black # 011=white_with_blue_on_black # 100=white_with_red_on_black '110n=blkbluw', # black_with_blue_on_white '010n=blkmagw', # black_with_magenta_on_white '100n=blkcynw', # black_with_cyan_on_white '101=whtprpk', # white_with_purple_on_black '001=whtnavk', # white_with_navy_blue_on_black '010a=grygrnk', # grey_with_green_on_black '010b=whtgrng', # white_with_green_on_grey '101an=blkgrng', # black_with_green_on_grey '101bn=grygrnw', # grey_with_green_on_white ) { my $outname = $variation; my($flipmode, @swap) = ( ($4 || ''), $1,$2,$3) if $outname =~ s/^([012])([012])([[012])([a-z]*)=?//s; @swap = () if '010' eq join '', @swap; # 010 is a swop-no-op! my $this_css = "/* This file is autogenerated. Do not edit. $variation */\n\n" . $css_template; # Only look at three-digitty colors, for now at least. if( $flipmode =~ m/n/ ) { $this_css =~ s/(#[0-9a-fA-F]{3})\b/_color_negate($1)/eg; $this_css =~ s/\bthin\b/medium/g; } $this_css =~ s<#([0-9a-fA-F])([0-9a-fA-F])([0-9a-fA-F])\b> < join '', '#', ($1,$2,$3)[@swap] >eg if @swap; if( $flipmode =~ m/a/) { $this_css =~ s/#fff\b/#999/gi } # black -> dark grey elsif($flipmode =~ m/b/) { $this_css =~ s/#000\b/#666/gi } # white -> light grey my $name = $outname; $name =~ tr/-_/ /; $self->add_css( "_$outname.css", 0, $name, 0, 0, \$this_css); } # Now a few indexless variations: for (my ($outfile, $variation) = each %{{ blkbluw => 'black_with_blue_on_white', whtpurk => 'white_with_purple_on_black', whtgrng => 'white_with_green_on_grey', grygrnw => 'grey_with_green_on_white', }}) { my $this_css = join "\n", "/* This file is autogenerated. Do not edit. $outfile */\n", "\@import url(\"./_$variation.css\");", ".indexgroup { display: none; }", "\n", ; my $name = $outfile; $name =~ tr/-_/ /; $self->add_css( "_$outfile.css", 0, $name, 0, 0, \$this_css); } return; } sub _color_negate { my $x = lc $_[0]; $x =~ tr[0123456789abcdef] [fedcba9876543210]; return $x; } #=========================================================================== sub add_javascript { my($self, $url, $content_type, $_code) = @_; return unless $url; push @{ $self->_javascript_wad }, [ $url, $content_type || 'text/javascript', $_code ]; return; } sub _spray_javascript { my($self, $outdir) = @_; return unless $self->javascript_flurry(); $self->_gen_javascript_wad(); my $lol = $self->_javascript_wad; foreach my $script (@$lol) { my $url = $script->[0]; my $outfile; if( ref($script->[-1]) and $url =~ m{^(_[-a-z0-9_]+\.js$)} ) { $outfile = $self->filespecsys->catfile( $outdir, "$1" ); DEBUG > 5 and print STDERR "Noting $$script[0] as a file I'll create.\n"; } else { DEBUG > 5 and print STDERR "OK, noting $$script[0] as an external JavaScript.\n"; next; } #$self->muse( "Writing JavaScript file $outfile" ); my $Jsout = $self->_wopen($outfile); print $Jsout ${$script->[-1]} or warn "Couldn't print to $outfile: $!\nAbort writing to $outfile at all"; close($Jsout); DEBUG > 5 and print STDERR "Wrote $outfile\n"; } return; } sub _gen_javascript_wad { my $self = $_[0]; my $js_code = $self->_javascript || return; $self->add_javascript( "_podly.js", 0, \$js_code); return; } sub _javascript_wad_to_markup { my($self, $depth) = @_; my @scripts = @{ $self->_javascript_wad || return '' }; return '' unless @scripts; my $out = ''; --$depth; my $uplink = $depth ? ('../' x $depth) : ''; foreach my $s (@scripts) { next unless $s and @$s; my( $url1, $url2, $type, $media) = ( $self->_maybe_uplink( $s->[0], $uplink ), esc(grep !ref($_), @$s) ); $out .= qq{<script type="$type" src="$url1$url2"></script>\n}; } return $out; } #=========================================================================== sub _css_template { return $CSS } sub _javascript { return $JAVASCRIPT } $CSS = <<'EOCSS'; /* For accessibility reasons, never specify text sizes in px/pt/pc/in/cm/mm */ @media all { .hide { display: none; } } @media print { .noprint, div.indexgroup, .backlinktop, .backlinkbottom { display: none } * { border-color: black !important; color: black !important; background-color: transparent !important; background-image: none !important; } dl.superindex > dd { word-spacing: .6em; } } @media aural, braille, embossed { div.indexgroup { display: none; } /* Too noisy, don't you think? */ dl.superindex > dt:before { content: "Group "; } dl.superindex > dt:after { content: " contains:"; } .backlinktop a:before { content: "Back to contents"; } .backlinkbottom a:before { content: "Back to contents"; } } @media aural { dl.superindex > dt { pause-before: 600ms; } } @media screen, tty, tv, projection { .noscreen { display: none; } a:link { color: #7070ff; text-decoration: underline; } a:visited { color: #e030ff; text-decoration: underline; } a:active { color: #800000; text-decoration: underline; } body.contentspage a { text-decoration: none; } a.u { color: #fff !important; text-decoration: none; } body.pod { margin: 0 5px; color: #fff; background-color: #000; } body.pod h1, body.pod h2, body.pod h3, body.pod h4, body.pod h5, body.pod h6 { font-family: Tahoma, Verdana, Helvetica, Arial, sans-serif; font-weight: normal; margin-top: 1.2em; margin-bottom: .1em; border-top: thin solid transparent; /* margin-left: -5px; border-left: 2px #7070ff solid; padding-left: 3px; */ } body.pod h1 { border-top-color: #0a0; } body.pod h2 { border-top-color: #080; } body.pod h3 { border-top-color: #040; } body.pod h4 { border-top-color: #010; } body.pod h5 { border-top-color: #010; } body.pod h6 { border-top-color: #010; } p.backlinktop + h1 { border-top: none; margin-top: 0em; } p.backlinktop + h2 { border-top: none; margin-top: 0em; } p.backlinktop + h3 { border-top: none; margin-top: 0em; } p.backlinktop + h4 { border-top: none; margin-top: 0em; } p.backlinktop + h5 { border-top: none; margin-top: 0em; } p.backlinktop + h6 { border-top: none; margin-top: 0em; } body.pod dt { font-size: 105%; /* just a wee bit more than normal */ } .indexgroup { font-size: 80%; } .backlinktop, .backlinkbottom { margin-left: -5px; margin-right: -5px; background-color: #040; border-top: thin solid #050; border-bottom: thin solid #050; } .backlinktop a, .backlinkbottom a { text-decoration: none; color: #080; background-color: #000; border: thin solid #0d0; } .backlinkbottom { margin-bottom: 0; padding-bottom: 0; } .backlinktop { margin-top: 0; padding-top: 0; } body.contentspage { color: #fff; background-color: #000; } body.contentspage h1 { color: #0d0; margin-left: 1em; margin-right: 1em; text-indent: -.9em; font-family: Tahoma, Verdana, Helvetica, Arial, sans-serif; font-weight: normal; border-top: thin solid #fff; border-bottom: thin solid #fff; text-align: center; } dl.superindex > dt { font-family: Tahoma, Verdana, Helvetica, Arial, sans-serif; font-weight: normal; font-size: 90%; margin-top: .45em; /* margin-bottom: -.15em; */ } dl.superindex > dd { word-spacing: .6em; /* most important rule here! */ } dl.superindex > a:link { text-decoration: none; color: #fff; } .contentsfooty { border-top: thin solid #999; font-size: 90%; } } /* The End */ EOCSS #========================================================================== $JAVASCRIPT = <<'EOJAVASCRIPT'; // From http://www.alistapart.com/articles/alternate/ function setActiveStyleSheet(title) { var i, a, main; for(i=0 ; (a = document.getElementsByTagName("link")[i]) ; i++) { if(a.getAttribute("rel").indexOf("style") != -1 && a.getAttribute("title")) { a.disabled = true; if(a.getAttribute("title") == title) a.disabled = false; } } } function getActiveStyleSheet() { var i, a; for(i=0 ; (a = document.getElementsByTagName("link")[i]) ; i++) { if( a.getAttribute("rel").indexOf("style") != -1 && a.getAttribute("title") && !a.disabled ) return a.getAttribute("title"); } return null; } function getPreferredStyleSheet() { var i, a; for(i=0 ; (a = document.getElementsByTagName("link")[i]) ; i++) { if( a.getAttribute("rel").indexOf("style") != -1 && a.getAttribute("rel").indexOf("alt") == -1 && a.getAttribute("title") ) return a.getAttribute("title"); } return null; } function createCookie(name,value,days) { if (days) { var date = new Date(); date.setTime(date.getTime()+(days*24*60*60*1000)); var expires = "; expires="+date.toGMTString(); } else expires = ""; document.cookie = name+"="+value+expires+"; path=/"; } function readCookie(name) { var nameEQ = name + "="; var ca = document.cookie.split(';'); for(var i=0 ; i < ca.length ; i++) { var c = ca[i]; while (c.charAt(0)==' ') c = c.substring(1,c.length); if (c.indexOf(nameEQ) == 0) return c.substring(nameEQ.length,c.length); } return null; } window.onload = function(e) { var cookie = readCookie("style"); var title = cookie ? cookie : getPreferredStyleSheet(); setActiveStyleSheet(title); } window.onunload = function(e) { var title = getActiveStyleSheet(); createCookie("style", title, 365); } var cookie = readCookie("style"); var title = cookie ? cookie : getPreferredStyleSheet(); setActiveStyleSheet(title); // The End EOJAVASCRIPT # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1; __END__ =head1 NAME Pod::Simple::HTMLBatch - convert several Pod files to several HTML files =head1 SYNOPSIS perl -MPod::Simple::HTMLBatch -e 'Pod::Simple::HTMLBatch::go' in out =head1 DESCRIPTION This module is used for running batch-conversions of a lot of HTML documents This class is NOT a subclass of Pod::Simple::HTML (nor of bad old Pod::Html) -- although it uses Pod::Simple::HTML for doing the conversion of each document. The normal use of this class is like so: use Pod::Simple::HTMLBatch; my $batchconv = Pod::Simple::HTMLBatch->new; $batchconv->some_option( some_value ); $batchconv->some_other_option( some_other_value ); $batchconv->batch_convert( \@search_dirs, $output_dir ); =head2 FROM THE COMMAND LINE Note that this class also provides (but does not export) the function Pod::Simple::HTMLBatch::go. This is basically just a shortcut for C<< Pod::Simple::HTMLBatch->batch_convert(@ARGV) >>. It's meant to be handy for calling from the command line. However, the shortcut requires that you specify exactly two command-line arguments, C<indirs> and C<outdir>. Example: % mkdir out_html % perl -MPod::Simple::HTMLBatch -e Pod::Simple::HTMLBatch::go @INC out_html (to convert the pod from Perl's @INC files under the directory ./out_html) (Note that the command line there contains a literal atsign-I-N-C. This is handled as a special case by batch_convert, in order to save you having to enter the odd-looking "" as the first command-line parameter when you mean "just use whatever's in @INC".) Example: % mkdir ../seekrut % chmod og-rx ../seekrut % perl -MPod::Simple::HTMLBatch -e Pod::Simple::HTMLBatch::go . ../seekrut (to convert the pod under the current dir into HTML files under the directory ./seekrut) Example: % perl -MPod::Simple::HTMLBatch -e Pod::Simple::HTMLBatch::go happydocs . (to convert all pod from happydocs into the current directory) =head1 MAIN METHODS =over =item $batchconv = Pod::Simple::HTMLBatch->new; This creates a new batch converter. The method doesn't take parameters. To change the converter's attributes, use the L<"/ACCESSOR METHODS"> below. =item $batchconv->batch_convert( I<indirs>, I<outdir> ); This searches the directories given in I<indirs> and writes HTML files for each of these to a corresponding directory in I<outdir>. The directory I<outdir> must exist. =item $batchconv->batch_convert( undef , ...); =item $batchconv->batch_convert( q{@INC}, ...); These two values for I<indirs> specify that the normal Perl @INC =item $batchconv->batch_convert( \@dirs , ...); This specifies that the input directories are the items in the arrayref C<\@dirs>. =item $batchconv->batch_convert( "somedir" , ...); This specifies that the director "somedir" is the input. (This can be an absolute or relative path, it doesn't matter.) A common value you might want would be just "." for the current directory: $batchconv->batch_convert( "." , ...); =item $batchconv->batch_convert( 'somedir:someother:also' , ...); This specifies that you want the dirs "somedir", "someother", and "also" scanned, just as if you'd passed the arrayref C<[qw( somedir someother also)]>. Note that a ":"-separator is normal under Unix, but Under MSWin, you'll need C<'somedir;someother;also'> instead, since the pathsep on MSWin is ";" instead of ":". (And I<that> is because ":" often comes up in paths, like C<"c:/perl/lib">.) (Exactly what separator character should be used, is gotten from C<$Config::Config{'path_sep'}>, via the L<Config> module.) =item $batchconv->batch_convert( ... , undef ); This specifies that you want the HTML output to go into the current directory. (Note that a missing or undefined value means a different thing in the first slot than in the second. That's so that C<batch_convert()> with no arguments (or undef arguments) means "go from @INC, into the current directory.) =item $batchconv->batch_convert( ... , 'somedir' ); This specifies that you want the HTML output to go into the directory 'somedir'. (This can be an absolute or relative path, it doesn't matter.) =back Note that you can also call C<batch_convert> as a class method, like so: Pod::Simple::HTMLBatch->batch_convert( ... ); That is just short for this: Pod::Simple::HTMLBatch-> new-> batch_convert(...); That is, it runs a conversion with default options, for whatever inputdirs and output dir you specify. =head2 ACCESSOR METHODS The following are all accessor methods -- that is, they don't do anything on their own, but just alter the contents of the conversion object, which comprises the options for this particular batch conversion. We show the "put" form of the accessors below (i.e., the syntax you use for setting the accessor to a specific value). But you can also call each method with no parameters to get its current value. For example, C<< $self->contents_file() >> returns the current value of the contents_file attribute. =over =item $batchconv->verbose( I<nonnegative_integer> ); This controls how verbose to be during batch conversion, as far as notes to STDOUT (or whatever is C<select>'d) about how the conversion is going. If 0, no progress information is printed. If 1 (the default value), some progress information is printed. Higher values print more information. =item $batchconv->index( I<true-or-false> ); This controls whether or not each HTML page is liable to have a little table of contents at the top (which we call an "index" for historical reasons). This is true by default. =item $batchconv->contents_file( I<filename> ); If set, should be the name of a file (in the output directory) to write the HTML index to. The default value is "index.html". If you set this to a false value, no contents file will be written. =item $batchconv->contents_page_start( I<HTML_string> ); This specifies what string should be put at the beginning of the contents page. The default is a string more or less like this: <html> <head><title>Perl Documentation</title></head> <body class='contentspage'> <h1>Perl Documentation</h1> =item $batchconv->contents_page_end( I<HTML_string> ); This specifies what string should be put at the end of the contents page. The default is a string more or less like this: <p class='contentsfooty'>Generated by Pod::Simple::HTMLBatch v3.01 under Perl v5.008 <br >At Fri May 14 22:26:42 2004 GMT, which is Fri May 14 14:26:42 2004 local time.</p> =item $batchconv->add_css( $url ); TODO =item $batchconv->add_javascript( $url ); TODO =item $batchconv->css_flurry( I<true-or-false> ); If true (the default value), we autogenerate some CSS files in the output directory, and set our HTML files to use those. TODO: continue =item $batchconv->javascript_flurry( I<true-or-false> ); If true (the default value), we autogenerate a JavaScript in the output directory, and set our HTML files to use it. Currently, the JavaScript is used only to get the browser to remember what stylesheet it prefers. TODO: continue =item $batchconv->no_contents_links( I<true-or-false> ); TODO =item $batchconv->html_render_class( I<classname> ); This sets what class is used for rendering the files. The default is "Pod::Simple::HTML". If you set it to something else, it should probably be a subclass of Pod::Simple::HTML, and you should C<require> or C<use> that class so that's it's loaded before Pod::Simple::HTMLBatch tries loading it. =item $batchconv->search_class( I<classname> ); This sets what class is used for searching for the files. The default is "Pod::Simple::Search". If you set it to something else, it should probably be a subclass of Pod::Simple::Search, and you should C<require> or C<use> that class so that's it's loaded before Pod::Simple::HTMLBatch tries loading it. =back =head1 NOTES ON CUSTOMIZATION TODO call add_css($someurl) to add stylesheet as alternate call add_css($someurl,1) to add as primary stylesheet call add_javascript subclass Pod::Simple::HTML and set $batchconv->html_render_class to that classname and maybe override $page->batch_mode_page_object_init($self, $module, $infile, $outfile, $depth) or maybe override $batchconv->batch_mode_page_object_init($page, $module, $infile, $outfile, $depth) subclass Pod::Simple::Search and set $batchconv->search_class to that classname =head1 SEE ALSO L<Pod::Simple>, L<Pod::Simple::HTMLBatch>, L<perlpod>, L<perlpodspec> =head1 SUPPORT Questions or discussion about POD and Pod::Simple should be sent to the pod-people@perl.org mail list. Send an empty email to pod-people-subscribe@perl.org to subscribe. This module is managed in an open GitHub repository, L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <bug-pod-simple@rt.cpan.org>. =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2002 Sean M. Burke. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Pod::Simple was created by Sean M. Burke <sburke@cpan.org>. But don't bother him, he's retired. Pod::Simple is maintained by: =over =item * Allison Randal C<allison@perl.org> =item * Hans Dieter Pearcey C<hdp@cpan.org> =item * David E. Wheeler C<dwheeler@cpan.org> =back =cut PK ! ,)��� � 5.34.0/Pod/Simple/Transcode.pmnu �[��� require 5; package Pod::Simple::Transcode; use strict; use vars qw($VERSION @ISA); $VERSION = '3.42'; BEGIN { if(defined &DEBUG) {;} # Okay elsif( defined &Pod::Simple::DEBUG ) { *DEBUG = \&Pod::Simple::DEBUG; } else { *DEBUG = sub () {0}; } } foreach my $class ( 'Pod::Simple::TranscodeSmart', 'Pod::Simple::TranscodeDumb', '', ) { $class or die "Couldn't load any encoding classes"; DEBUG and print STDERR "About to try loading $class...\n"; eval "require $class;"; if($@) { DEBUG and print STDERR "Couldn't load $class: $@\n"; } else { DEBUG and print STDERR "OK, loaded $class.\n"; @ISA = ($class); last; } } sub _blorp { return; } # just to avoid any "empty class" warning 1; __END__ PK ! �Rd�% �% 5.34.0/Pod/Simple/JustPod.pmnu �[��� use 5; package Pod::Simple::JustPod; # ABSTRACT: Pod::Simple formatter that extracts POD from a file containing # other things as well use strict; use warnings; use Pod::Simple::Methody (); our @ISA = ('Pod::Simple::Methody'); sub new { my $self = shift; my $new = $self->SUPER::new(@_); $new->accept_targets('*'); $new->keep_encoding_directive(1); $new->preserve_whitespace(1); $new->complain_stderr(1); $new->_output_is_for_JustPod(1); return $new; } #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ sub check_that_all_is_closed { # Actually checks that the things we depend on being balanced in fact are, # so that we can continue in spit of pod errors my $self = shift; while ($self->{inL}) { $self->end_L(@_); } while ($self->{fcode_end} && @{$self->{fcode_end}}) { $self->_end_fcode(@_); } } sub handle_text { # Add text to the output buffer. This is skipped if within a L<>, as we use # the 'raw' attribute of that tag instead. $_[0]{buffer} .= $_[1] unless $_[0]{inL} ; } sub spacer { # Prints the white space following things like =head1. This is normally a # blank, unless BlackBox has told us otherwise. my ($self, $arg) = @_; return unless $arg; my $spacer = ($arg->{'~orig_spacer'}) ? $arg->{'~orig_spacer'} : " "; $self->handle_text($spacer); } sub _generic_start { # Called from tags like =head1, etc. my ($self, $text, $arg) = @_; $self->check_that_all_is_closed(); $self->handle_text($text); $self->spacer($arg); } sub start_Document { shift->_generic_start("=pod\n\n"); } sub start_head1 { shift->_generic_start('=head1', @_); } sub start_head2 { shift->_generic_start('=head2', @_); } sub start_head3 { shift->_generic_start('=head3', @_); } sub start_head4 { shift->_generic_start('=head4', @_); } sub start_head5 { shift->_generic_start('=head5', @_); } sub start_head6 { shift->_generic_start('=head6', @_); } sub start_encoding { shift->_generic_start('=encoding', @_); } # sub start_Para # sub start_Verbatim sub start_item_bullet { # Handle =item * my ($self, $arg) = @_; $self->check_that_all_is_closed(); $self->handle_text('=item'); # It can be that they said simply '=item', and it is inferred that it is to # be a bullet. if (! $arg->{'~orig_content'}) { $self->handle_text("\n\n"); } else { $self->spacer($arg); if ($arg->{'~_freaky_para_hack'}) { # See Message Id <87y3gtcwa2.fsf@hope.eyrie.org> my $item_text = $arg->{'~orig_content'}; my $trailing = quotemeta $arg->{'~_freaky_para_hack'}; $item_text =~ s/$trailing$//; $self->handle_text($item_text); } else { $self->handle_text("*\n\n"); } } } sub start_item_number { # Handle '=item 2' my ($self, $arg) = @_; $self->check_that_all_is_closed(); $self->handle_text("=item"); $self->spacer($arg); $self->handle_text("$arg->{'~orig_content'}\n\n"); } sub start_item_text { # Handle '=item foo bar baz' my ($self, $arg) = @_; $self->check_that_all_is_closed(); $self->handle_text('=item'); $self->spacer($arg); } sub _end_item { my $self = shift; $self->check_that_all_is_closed(); $self->emit; } *end_item_bullet = *_end_item; *end_item_number = *_end_item; *end_item_text = *_end_item; sub _start_over { # Handle =over my ($self, $arg) = @_; $self->check_that_all_is_closed(); $self->handle_text("=over"); # The =over amount is optional if ($arg->{'~orig_content'}) { $self->spacer($arg); $self->handle_text("$arg->{'~orig_content'}"); } $self->handle_text("\n\n"); } *start_over_bullet = *_start_over; *start_over_number = *_start_over; *start_over_text = *_start_over; *start_over_block = *_start_over; sub _end_over { my $self = shift; $self->check_that_all_is_closed(); $self->handle_text('=back'); $self->emit; } *end_over_bullet = *_end_over; *end_over_number = *_end_over; *end_over_text = *_end_over; *end_over_block = *_end_over; sub end_Document { my $self = shift; $self->emit; # Make sure buffer gets flushed print {$self->{'output_fh'} } "=cut\n" } sub _end_generic { my $self = shift; $self->check_that_all_is_closed(); $self->emit; } *end_head1 = *_end_generic; *end_head2 = *_end_generic; *end_head3 = *_end_generic; *end_head4 = *_end_generic; *end_head5 = *_end_generic; *end_head6 = *_end_generic; *end_encoding = *_end_generic; *end_Para = *_end_generic; *end_Verbatim = *_end_generic; sub _start_fcode { my ($type, $self, $flags) = @_; # How many brackets is set by BlackBox unless the count is 1 my $bracket_count = (exists $flags->{'~bracket_count'}) ? $flags->{'~bracket_count'} : 1; $self->handle_text($type . ( "<" x $bracket_count)); my $rspacer = ""; if ($bracket_count > 1) { my $lspacer = (exists $flags->{'~lspacer'}) ? $flags->{'~lspacer'} : " "; $self->handle_text($lspacer); $rspacer = (exists $flags->{'~rspacer'}) ? $flags->{'~rspacer'} : " "; } # BlackBox doesn't output things for for the ending code callbacks, so save # what we need. push @{$self->{'fcode_end'}}, [ $bracket_count, $rspacer ]; } sub start_B { _start_fcode('B', @_); } sub start_C { _start_fcode('C', @_); } sub start_E { _start_fcode('E', @_); } sub start_F { _start_fcode('F', @_); } sub start_I { _start_fcode('I', @_); } sub start_S { _start_fcode('S', @_); } sub start_X { _start_fcode('X', @_); } sub start_Z { _start_fcode('Z', @_); } sub _end_fcode { my $self = shift; my $fcode_end = pop @{$self->{'fcode_end'}}; my $bracket_count = 1; my $rspacer = ""; if (! defined $fcode_end) { # If BlackBox is working, this shouldn't # happen, but verify $self->whine($self->{line_count}, "Extra '>'"); } else { $bracket_count = $fcode_end->[0]; $rspacer = $fcode_end->[1]; } $self->handle_text($rspacer) if $bracket_count > 1; $self->handle_text(">" x $bracket_count); } *end_B = *_end_fcode; *end_C = *_end_fcode; *end_E = *_end_fcode; *end_F = *_end_fcode; *end_I = *_end_fcode; *end_S = *_end_fcode; *end_X = *_end_fcode; *end_Z = *_end_fcode; sub start_L { _start_fcode('L', @_); $_[0]->handle_text($_[1]->{raw}); $_[0]->{inL}++ } sub end_L { my $self = shift; $self->{inL}--; if ($self->{inL} < 0) { # If BlackBox is working, this shouldn't # happen, but verify $self->whine($self->{line_count}, "Extra '>' ending L<>"); $self->{inL} = 0; } $self->_end_fcode(@_); } sub emit { my $self = shift; if ($self->{buffer} ne "") { print { $self->{'output_fh'} } "",$self->{buffer} ,"\n\n"; $self->{buffer} = ""; } return; } 1; __END__ =head1 NAME Pod::Simple::JustPod -- just the Pod, the whole Pod, and nothing but the Pod =head1 SYNOPSIS my $infile = "mixed_code_and_pod.pm"; my $outfile = "just_the_pod.pod"; open my $fh, ">$outfile" or die "Can't write to $outfile: $!"; my $parser = Pod::Simple::JustPod->new(); $parser->output_fh($fh); $parser->parse_file($infile); close $fh or die "Can't close $outfile: $!"; =head1 DESCRIPTION This class returns a copy of its input, translated into Perl's internal encoding (UTF-8), and with all the non-Pod lines removed. This is a subclass of L<Pod::Simple::Methody> and inherits all its methods. And since, that in turn is a subclass of L<Pod::Simple>, you can use any of its methods. This means you can output to a string instead of a file, or you can parse from an array. This class strives to return the Pod lines of the input completely unchanged, except for any necessary translation into Perl's internal encoding, and it makes no effort to return trailing spaces on lines; these likely will be stripped. If the input pod is well-formed with no warnings nor errors generated, the extracted pod should generate the same documentation when formatted by a Pod formatter as the original file does. By default, warnings are output to STDERR =head1 SEE ALSO L<Pod::Simple>, L<Pod::Simple::Methody> =head1 SUPPORT Questions or discussion about POD and Pod::Simple should be sent to the L<mailto:pod-people@perl.org> mail list. Send an empty email to L<mailto:pod-people-subscribe@perl.org> to subscribe. This module is managed in an open GitHub repository, L<https://github.com/theory/pod-simple/>. Feel free to fork and contribute, or to clone L<git://github.com/theory/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to L<mailto:<bug-pod-simple@rt.cpan.org>. =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2002 Sean M. Burke. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Pod::Simple was created by Sean M. Burke <sburke@cpan.org>. But don't bother him, he's retired. Pod::Simple is maintained by: =over =item * Allison Randal C<allison@perl.org> =item * Hans Dieter Pearcey C<hdp@cpan.org> =item * David E. Wheeler C<dwheeler@cpan.org> =back Pod::Simple::JustPod was developed by John SJ Anderson C<genehack@genehack.org>, with contributions from Karl Williamson C<khw@cpan.org>. =cut PK ! l��� � 5.34.0/Pod/Simple.pmnu �[��� require 5; package Pod::Simple; use strict; use Carp (); BEGIN { *DEBUG = sub () {0} unless defined &DEBUG } use integer; use Pod::Escapes 1.04 (); use Pod::Simple::LinkSection (); use Pod::Simple::BlackBox (); #use utf8; use vars qw( $VERSION @ISA @Known_formatting_codes @Known_directives %Known_formatting_codes %Known_directives $NL ); @ISA = ('Pod::Simple::BlackBox'); $VERSION = '3.42'; @Known_formatting_codes = qw(I B C L E F S X Z); %Known_formatting_codes = map(($_=>1), @Known_formatting_codes); @Known_directives = qw(head1 head2 head3 head4 head5 head6 item over back); %Known_directives = map(($_=>'Plain'), @Known_directives); $NL = $/ unless defined $NL; #----------------------------------------------------------------------------- # Set up some constants: BEGIN { if(defined &ASCII) { } elsif(chr(65) eq 'A') { *ASCII = sub () {1} } else { *ASCII = sub () {''} } unless(defined &MANY_LINES) { *MANY_LINES = sub () {20} } DEBUG > 4 and print STDERR "MANY_LINES is ", MANY_LINES(), "\n"; unless(MANY_LINES() >= 1) { die "MANY_LINES is too small (", MANY_LINES(), ")!\nAborting"; } if(defined &UNICODE) { } elsif($] >= 5.008) { *UNICODE = sub() {1} } else { *UNICODE = sub() {''} } } if(DEBUG > 2) { print STDERR "# We are ", ASCII ? '' : 'not ', "in ASCII-land\n"; print STDERR "# We are under a Unicode-safe Perl.\n"; } # The NO BREAK SPACE and SOFT HYHPEN are used in several submodules. if ($] ge 5.007_003) { # On sufficiently modern Perls we can handle any # character set $Pod::Simple::nbsp = chr utf8::unicode_to_native(0xA0); $Pod::Simple::shy = chr utf8::unicode_to_native(0xAD); } elsif (Pod::Simple::ASCII) { # Hard code ASCII early Perl $Pod::Simple::nbsp = "\xA0"; $Pod::Simple::shy = "\xAD"; } else { # EBCDIC on early Perl. We know what the values are for the code # pages supported then. $Pod::Simple::nbsp = "\x41"; $Pod::Simple::shy = "\xCA"; } # Design note: # This is a parser for Pod. It is not a parser for the set of Pod-like # languages which happens to contain Pod -- it is just for Pod, plus possibly # some extensions. # @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ #@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ __PACKAGE__->_accessorize( '_output_is_for_JustPod', # For use only by Pod::Simple::JustPod, # If non-zero, don't expand Z<> E<> S<> L<>, # and count how many brackets in format codes 'nbsp_for_S', # Whether to map S<...>'s to \xA0 characters 'source_filename', # Filename of the source, for use in warnings 'source_dead', # Whether to consider this parser's source dead 'output_fh', # The filehandle we're writing to, if applicable. # Used only in some derived classes. 'hide_line_numbers', # For some dumping subclasses: whether to pointedly # suppress the start_line attribute 'line_count', # the current line number 'pod_para_count', # count of pod paragraphs seen so far 'no_whining', # whether to suppress whining 'no_errata_section', # whether to suppress the errata section 'complain_stderr', # whether to complain to stderr 'doc_has_started', # whether we've fired the open-Document event yet 'bare_output', # For some subclasses: whether to prepend # header-code and postpend footer-code 'keep_encoding_directive', # whether to emit =encoding 'nix_X_codes', # whether to ignore X<...> codes 'merge_text', # whether to avoid breaking a single piece of # text up into several events 'preserve_whitespace', # whether to try to keep whitespace as-is 'strip_verbatim_indent', # What indent to strip from verbatim 'expand_verbatim_tabs', # 0: preserve tabs in verbatim blocks # n: expand tabs to stops every n columns 'parse_characters', # Whether parser should expect chars rather than octets 'content_seen', # whether we've seen any real Pod content 'errors_seen', # TODO: document. whether we've seen any errors (fatal or not) 'codes_in_verbatim', # for PseudoPod extensions 'code_handler', # coderef to call when a code (non-pod) line is seen 'cut_handler', # ... when a =cut line is seen 'pod_handler', # ... when a =pod line is seen 'whiteline_handler', # ... when a line with only whitespace is seen #Called like: # $code_handler->($line, $self->{'line_count'}, $self) if $code_handler; # $cut_handler->($line, $self->{'line_count'}, $self) if $cut_handler; # $pod_handler->($line, $self->{'line_count'}, $self) if $pod_handler; # $wl_handler->($line, $self->{'line_count'}, $self) if $wl_handler; 'parse_empty_lists', # whether to acknowledge empty =over/=back blocks 'raw_mode', # to report entire raw lines instead of Pod elements ); #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ sub any_errata_seen { # good for using as an exit() value... return shift->{'errors_seen'} || 0; } sub errata_seen { return shift->{'all_errata'} || {}; } # Returns the encoding only if it was recognized as being handled and set sub detected_encoding { return shift->{'detected_encoding'}; } sub encoding { my $this = shift; return $this->{'encoding'} unless @_; # GET. $this->_handle_encoding_line("=encoding $_[0]"); if ($this->{'_processed_encoding'}) { delete $this->{'_processed_encoding'}; if(! $this->{'encoding_command_statuses'} ) { DEBUG > 2 and print STDERR " CRAZY ERROR: encoding wasn't really handled?!\n"; } elsif( $this->{'encoding_command_statuses'}[-1] ) { $this->scream( "=encoding $_[0]", sprintf "Couldn't do %s: %s", $this->{'encoding_command_reqs' }[-1], $this->{'encoding_command_statuses'}[-1], ); } else { DEBUG > 2 and print STDERR " (encoding successfully handled.)\n"; } return $this->{'encoding'}; } else { return undef; } } #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ # Pull in some functions that, for some reason, I expect to see here too: BEGIN { *pretty = \&Pod::Simple::BlackBox::pretty; *stringify_lol = \&Pod::Simple::BlackBox::stringify_lol; *my_qr = \&Pod::Simple::BlackBox::my_qr; } #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ sub version_report { my $class = ref($_[0]) || $_[0]; if($class eq __PACKAGE__) { return "$class $VERSION"; } else { my $v = $class->VERSION; return "$class $v (" . __PACKAGE__ . " $VERSION)"; } } #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ #sub curr_open { # read-only list accessor # return @{ $_[0]{'curr_open'} || return() }; #} #sub _curr_open_listref { $_[0]{'curr_open'} ||= [] } sub output_string { # Works by faking out output_fh. Simplifies our code. # my $this = shift; return $this->{'output_string'} unless @_; # GET. require Pod::Simple::TiedOutFH; my $x = (defined($_[0]) and ref($_[0])) ? $_[0] : \( $_[0] ); $$x = '' unless defined $$x; DEBUG > 4 and print STDERR "# Output string set to $x ($$x)\n"; $this->{'output_fh'} = Pod::Simple::TiedOutFH->handle_on($_[0]); return $this->{'output_string'} = $_[0]; #${ ${ $this->{'output_fh'} } }; } sub abandon_output_string { $_[0]->abandon_output_fh; delete $_[0]{'output_string'} } sub abandon_output_fh { $_[0]->output_fh(undef) } # These don't delete the string or close the FH -- they just delete our # references to it/them. # TODO: document these #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ sub new { # takes no parameters my $class = ref($_[0]) || $_[0]; #Carp::croak(__PACKAGE__ . " is a virtual base class -- see perldoc " # . __PACKAGE__ ); my $obj = bless { 'accept_codes' => { map( ($_=>$_), @Known_formatting_codes ) }, 'accept_directives' => { %Known_directives }, 'accept_targets' => {}, }, $class; $obj->expand_verbatim_tabs(8); return $obj; } # TODO: an option for whether to interpolate E<...>'s, or just resolve to codes. #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ sub _handle_element_start { # OVERRIDE IN DERIVED CLASS my($self, $element_name, $attr_hash_r) = @_; return; } sub _handle_element_end { # OVERRIDE IN DERIVED CLASS my($self, $element_name) = @_; return; } sub _handle_text { # OVERRIDE IN DERIVED CLASS my($self, $text) = @_; return; } #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ # # And now directives (not targets) sub accept_directive_as_verbatim { shift->_accept_directives('Verbatim', @_) } sub accept_directive_as_data { shift->_accept_directives('Data', @_) } sub accept_directive_as_processed { shift->_accept_directives('Plain', @_) } sub _accept_directives { my($this, $type) = splice @_,0,2; foreach my $d (@_) { next unless defined $d and length $d; Carp::croak "\"$d\" isn't a valid directive name" unless $d =~ m/^[a-zA-Z][a-zA-Z0-9]*$/s; Carp::croak "\"$d\" is already a reserved Pod directive name" if exists $Known_directives{$d}; $this->{'accept_directives'}{$d} = $type; DEBUG > 2 and print STDERR "Learning to accept \"=$d\" as directive of type $type\n"; } DEBUG > 6 and print STDERR "$this\'s accept_directives : ", pretty($this->{'accept_directives'}), "\n"; return sort keys %{ $this->{'accept_directives'} } if wantarray; return; } #-------------------------------------------------------------------------- # TODO: document these: sub unaccept_directive { shift->unaccept_directives(@_) }; sub unaccept_directives { my $this = shift; foreach my $d (@_) { next unless defined $d and length $d; Carp::croak "\"$d\" isn't a valid directive name" unless $d =~ m/^[a-zA-Z][a-zA-Z0-9]*$/s; Carp::croak "But you must accept \"$d\" directives -- it's a builtin!" if exists $Known_directives{$d}; delete $this->{'accept_directives'}{$d}; DEBUG > 2 and print STDERR "OK, won't accept \"=$d\" as directive.\n"; } return sort keys %{ $this->{'accept_directives'} } if wantarray; return } #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ # # And now targets (not directives) sub accept_target { shift->accept_targets(@_) } # alias sub accept_target_as_text { shift->accept_targets_as_text(@_) } # alias sub accept_targets { shift->_accept_targets('1', @_) } sub accept_targets_as_text { shift->_accept_targets('force_resolve', @_) } # forces them to be processed, even when there's no ":". sub _accept_targets { my($this, $type) = splice @_,0,2; foreach my $t (@_) { next unless defined $t and length $t; # TODO: enforce some limitations on what a target name can be? $this->{'accept_targets'}{$t} = $type; DEBUG > 2 and print STDERR "Learning to accept \"$t\" as target of type $type\n"; } return sort keys %{ $this->{'accept_targets'} } if wantarray; return; } #-------------------------------------------------------------------------- sub unaccept_target { shift->unaccept_targets(@_) } sub unaccept_targets { my $this = shift; foreach my $t (@_) { next unless defined $t and length $t; # TODO: enforce some limitations on what a target name can be? delete $this->{'accept_targets'}{$t}; DEBUG > 2 and print STDERR "OK, won't accept \"$t\" as target.\n"; } return sort keys %{ $this->{'accept_targets'} } if wantarray; return; } #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ # # And now codes (not targets or directives) # XXX Probably it is an error that the digit '9' is excluded from these re's. # Broken for early Perls on EBCDIC my $xml_name_re = my_qr('[^-.0-8:A-Z_a-z[:^ascii:]]', '9'); $xml_name_re = qr/[\x00-\x2C\x2F\x39\x3B-\x40\x5B-\x5E\x60\x7B-\x7F]/ unless $xml_name_re; sub accept_code { shift->accept_codes(@_) } # alias sub accept_codes { # Add some codes my $this = shift; foreach my $new_code (@_) { next unless defined $new_code and length $new_code; # A good-enough check that it's good as an XML Name symbol: Carp::croak "\"$new_code\" isn't a valid element name" if $new_code =~ $xml_name_re # Characters under 0x80 that aren't legal in an XML Name. or $new_code =~ m/^[-\.0-9]/s or $new_code =~ m/:[-\.0-9]/s; # The legal under-0x80 Name characters that # an XML Name still can't start with. $this->{'accept_codes'}{$new_code} = $new_code; # Yes, map to itself -- just so that when we # see "=extend W [whatever] thatelementname", we say that W maps # to whatever $this->{accept_codes}{thatelementname} is, # i.e., "thatelementname". Then when we go re-mapping, # a "W" in the treelet turns into "thatelementname". We only # remap once. # If we say we accept "W", then a "W" in the treelet simply turns # into "W". } return; } #-------------------------------------------------------------------------- sub unaccept_code { shift->unaccept_codes(@_) } sub unaccept_codes { # remove some codes my $this = shift; foreach my $new_code (@_) { next unless defined $new_code and length $new_code; # A good-enough check that it's good as an XML Name symbol: Carp::croak "\"$new_code\" isn't a valid element name" if $new_code =~ $xml_name_re # Characters under 0x80 that aren't legal in an XML Name. or $new_code =~ m/^[-\.0-9]/s or $new_code =~ m/:[-\.0-9]/s; # The legal under-0x80 Name characters that # an XML Name still can't start with. Carp::croak "But you must accept \"$new_code\" codes -- it's a builtin!" if grep $new_code eq $_, @Known_formatting_codes; delete $this->{'accept_codes'}{$new_code}; DEBUG > 2 and print STDERR "OK, won't accept the code $new_code<...>.\n"; } return; } #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ sub parse_string_document { my $self = shift; my @lines; foreach my $line_group (@_) { next unless defined $line_group and length $line_group; pos($line_group) = 0; while($line_group =~ m/([^\n\r]*)(\r?\n?)/g # supports \r, \n ,\r\n #m/([^\n\r]*)((?:\r?\n)?)/g ) { #print(">> $1\n"), $self->parse_lines($1) if length($1) or length($2) or pos($line_group) != length($line_group); # I.e., unless it's a zero-length "empty line" at the very # end of "foo\nbar\n" (i.e., between the \n and the EOS). } } $self->parse_lines(undef); # to signal EOF return $self; } sub _init_fh_source { my($self, $source) = @_; #DEBUG > 1 and print STDERR "Declaring $source as :raw for starters\n"; #$self->_apply_binmode($source, ':raw'); #binmode($source, ":raw"); return; } #:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:. # sub parse_file { my($self, $source) = (@_); if(!defined $source) { Carp::croak("Can't use empty-string as a source for parse_file"); } elsif(ref(\$source) eq 'GLOB') { $self->{'source_filename'} = '' . ($source); } elsif(ref $source) { $self->{'source_filename'} = '' . ($source); } elsif(!length $source) { Carp::croak("Can't use empty-string as a source for parse_file"); } else { { local *PODSOURCE; open(PODSOURCE, "<$source") || Carp::croak("Can't open $source: $!"); $self->{'source_filename'} = $source; $source = *PODSOURCE{IO}; } $self->_init_fh_source($source); } # By here, $source is a FH. $self->{'source_fh'} = $source; my($i, @lines); until( $self->{'source_dead'} ) { splice @lines; for($i = MANY_LINES; $i--;) { # read those many lines at a time local $/ = $NL; push @lines, scalar(<$source>); # readline last unless defined $lines[-1]; # but pass thru the undef, which will set source_dead to true } my $at_eof = ! $lines[-1]; # keep track of the undef pop @lines if $at_eof; # silence warnings # be eol agnostic s/\r\n?/\n/g for @lines; # make sure there are only one line elements for parse_lines @lines = split(/(?<=\n)/, join('', @lines)); # push the undef back after popping it to set source_dead to true push @lines, undef if $at_eof; $self->parse_lines(@lines); } delete($self->{'source_fh'}); # so it can be GC'd return $self; } #:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:. sub parse_from_file { # An emulation of Pod::Parser's interface, for the sake of Perldoc. # Basically just a wrapper around parse_file. my($self, $source, $to) = @_; $self = $self->new unless ref($self); # so we tolerate being a class method if(!defined $source) { $source = *STDIN{IO} } elsif(ref(\$source) eq 'GLOB') { # stet } elsif(ref($source) ) { # stet } elsif(!length $source or $source eq '-' or $source =~ m/^<&(?:STDIN|0)$/i ) { $source = *STDIN{IO}; } if(!defined $to) { $self->output_fh( *STDOUT{IO} ); } elsif(ref(\$to) eq 'GLOB') { $self->output_fh( $to ); } elsif(ref($to)) { $self->output_fh( $to ); } elsif(!length $to or $to eq '-' or $to =~ m/^>&?(?:STDOUT|1)$/i ) { $self->output_fh( *STDOUT{IO} ); } elsif($to =~ m/^>&(?:STDERR|2)$/i) { $self->output_fh( *STDERR{IO} ); } else { require Symbol; my $out_fh = Symbol::gensym(); DEBUG and print STDERR "Write-opening to $to\n"; open($out_fh, ">$to") or Carp::croak "Can't write-open $to: $!"; binmode($out_fh) if $self->can('write_with_binmode') and $self->write_with_binmode; $self->output_fh($out_fh); } return $self->parse_file($source); } #----------------------------------------------------------------------------- sub whine { #my($self,$line,$complaint) = @_; my $self = shift(@_); ++$self->{'errors_seen'}; if($self->{'no_whining'}) { DEBUG > 9 and print STDERR "Discarding complaint (at line $_[0]) $_[1]\n because no_whining is on.\n"; return; } push @{$self->{'all_errata'}{$_[0]}}, $_[1]; return $self->_complain_warn(@_) if $self->{'complain_stderr'}; return $self->_complain_errata(@_); } sub scream { # like whine, but not suppressible #my($self,$line,$complaint) = @_; my $self = shift(@_); ++$self->{'errors_seen'}; push @{$self->{'all_errata'}{$_[0]}}, $_[1]; return $self->_complain_warn(@_) if $self->{'complain_stderr'}; return $self->_complain_errata(@_); } sub _complain_warn { my($self,$line,$complaint) = @_; return printf STDERR "%s around line %s: %s\n", $self->{'source_filename'} || 'Pod input', $line, $complaint; } sub _complain_errata { my($self,$line,$complaint) = @_; if( $self->{'no_errata_section'} ) { DEBUG > 9 and print STDERR "Discarding erratum (at line $line) $complaint\n because no_errata_section is on.\n"; } else { DEBUG > 9 and print STDERR "Queuing erratum (at line $line) $complaint\n"; push @{$self->{'errata'}{$line}}, $complaint # for a report to be generated later! } return 1; } #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ sub _get_initial_item_type { # A hack-wrapper here for when you have like "=over\n\n=item 456\n\n" my($self, $para) = @_; return $para->[1]{'~type'} if $para->[1]{'~type'}; return $para->[1]{'~type'} = 'text' if join("\n", @{$para}[2 .. $#$para]) =~ m/^\s*(\d+)\.?\s*$/s and $1 ne '1'; # Else fall thru to the general case: return $self->_get_item_type($para); } sub _get_item_type { # mutates the item!! my($self, $para) = @_; return $para->[1]{'~type'} if $para->[1]{'~type'}; # Otherwise we haven't yet been to this node. Maybe alter it... my $content = join "\n", @{$para}[2 .. $#$para]; if($content =~ m/^\s*\*\s*$/s or $content =~ m/^\s*$/s) { # Like: "=item *", "=item * ", "=item" splice @$para, 2; # so it ends up just being ['=item', { attrhash } ] $para->[1]{'~orig_content'} = $content; return $para->[1]{'~type'} = 'bullet'; } elsif($content =~ m/^\s*\*\s+(.+)/s) { # tolerance # Like: "=item * Foo bar baz"; $para->[1]{'~orig_content'} = $content; $para->[1]{'~_freaky_para_hack'} = $1; DEBUG > 2 and print STDERR " Tolerating $$para[2] as =item *\\n\\n$1\n"; splice @$para, 2; # so it ends up just being ['=item', { attrhash } ] return $para->[1]{'~type'} = 'bullet'; } elsif($content =~ m/^\s*(\d+)\.?\s*$/s) { # Like: "=item 1.", "=item 123412" $para->[1]{'~orig_content'} = $content; $para->[1]{'number'} = $1; # Yes, stores the number there! splice @$para, 2; # so it ends up just being ['=item', { attrhash } ] return $para->[1]{'~type'} = 'number'; } else { # It's anything else. return $para->[1]{'~type'} = 'text'; } } #----------------------------------------------------------------------------- sub _make_treelet { my $self = shift; # and ($para, $start_line) my $treelet; if(!@_) { return ['']; } if(ref $_[0] and ref $_[0][0] and $_[0][0][0] eq '~Top') { # Hack so we can pass in fake-o pre-cooked paragraphs: # just have the first line be a reference to a ['~Top', {}, ...] # We use this feechure in gen_errata and stuff. DEBUG and print STDERR "Applying precooked treelet hack to $_[0][0]\n"; $treelet = $_[0][0]; splice @$treelet, 0, 2; # lop the top off return $treelet; } else { $treelet = $self->_treelet_from_formatting_codes(@_); } if( ! $self->{'_output_is_for_JustPod'} # Retain these as-is for pod output && $self->_remap_sequences($treelet) ) { $self->_treat_Zs($treelet); # Might as well nix these first $self->_treat_Ls($treelet); # L has to precede E and S $self->_treat_Es($treelet); $self->_treat_Ss($treelet); # S has to come after E $self->_wrap_up($treelet); # Nix X's and merge texties } else { DEBUG and print STDERR "Formatless treelet gets fast-tracked.\n"; # Very common case! } splice @$treelet, 0, 2; # lop the top off return $treelet; } #:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:. sub _wrap_up { my($self, @stack) = @_; my $nixx = $self->{'nix_X_codes'}; my $merge = $self->{'merge_text' }; return unless $nixx or $merge; DEBUG > 2 and print STDERR "\nStarting _wrap_up traversal.\n", $merge ? (" Merge mode on\n") : (), $nixx ? (" Nix-X mode on\n") : (), ; my($i, $treelet); while($treelet = shift @stack) { DEBUG > 3 and print STDERR " Considering children of this $treelet->[0] node...\n"; for($i = 2; $i < @$treelet; ++$i) { # iterate over children DEBUG > 3 and print STDERR " Considering child at $i ", pretty($treelet->[$i]), "\n"; if($nixx and ref $treelet->[$i] and $treelet->[$i][0] eq 'X') { DEBUG > 3 and print STDERR " Nixing X node at $i\n"; splice(@$treelet, $i, 1); # just nix this node (and its descendants) # no need to back-update the counter just yet redo; } elsif($merge and $i != 2 and # non-initial !ref $treelet->[$i] and !ref $treelet->[$i - 1] ) { DEBUG > 3 and print STDERR " Merging ", $i-1, ":[$treelet->[$i-1]] and $i\:[$treelet->[$i]]\n"; $treelet->[$i-1] .= ( splice(@$treelet, $i, 1) )[0]; DEBUG > 4 and print STDERR " Now: ", $i-1, ":[$treelet->[$i-1]]\n"; --$i; next; # since we just pulled the possibly last node out from under # ourselves, we can't just redo() } elsif( ref $treelet->[$i] ) { DEBUG > 4 and print STDERR " Enqueuing ", pretty($treelet->[$i]), " for traversal.\n"; push @stack, $treelet->[$i]; if($treelet->[$i][0] eq 'L') { my $thing; foreach my $attrname ('section', 'to') { if(defined($thing = $treelet->[$i][1]{$attrname}) and ref $thing) { unshift @stack, $thing; DEBUG > 4 and print STDERR " +Enqueuing ", pretty( $treelet->[$i][1]{$attrname} ), " as an attribute value to tweak.\n"; } } } } } } DEBUG > 2 and print STDERR "End of _wrap_up traversal.\n\n"; return; } #:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:. sub _remap_sequences { my($self,@stack) = @_; if(@stack == 1 and @{ $stack[0] } == 3 and !ref $stack[0][2]) { # VERY common case: abort it. DEBUG and print STDERR "Skipping _remap_sequences: formatless treelet.\n"; return 0; } my $map = ($self->{'accept_codes'} || die "NO accept_codes in $self?!?"); my $start_line = $stack[0][1]{'start_line'}; DEBUG > 2 and printf "\nAbout to start _remap_sequences on treelet from line %s.\n", $start_line || '[?]' ; DEBUG > 3 and print STDERR " Map: ", join('; ', map "$_=" . ( ref($map->{$_}) ? join(",", @{$map->{$_}}) : $map->{$_} ), sort keys %$map ), ("B~C~E~F~I~L~S~X~Z" eq join '~', sort keys %$map) ? " (all normal)\n" : "\n" ; # A recursive algorithm implemented iteratively! Whee! my($is, $was, $i, $treelet); # scratch while($treelet = shift @stack) { DEBUG > 3 and print STDERR " Considering children of this $treelet->[0] node...\n"; for($i = 2; $i < @$treelet; ++$i) { # iterate over children next unless ref $treelet->[$i]; # text nodes are uninteresting DEBUG > 4 and print STDERR " Noting child $i : $treelet->[$i][0]<...>\n"; $is = $treelet->[$i][0] = $map->{ $was = $treelet->[$i][0] }; if( DEBUG > 3 ) { if(!defined $is) { print STDERR " Code $was<> is UNKNOWN!\n"; } elsif($is eq $was) { DEBUG > 4 and print STDERR " Code $was<> stays the same.\n"; } else { print STDERR " Code $was<> maps to ", ref($is) ? ( "tags ", map("$_<", @$is), '...', map('>', @$is), "\n" ) : "tag $is<...>.\n"; } } if(!defined $is) { $self->whine($start_line, "Deleting unknown formatting code $was<>"); $is = $treelet->[$i][0] = '1'; # But saving the children! # I could also insert a leading "$was<" and tailing ">" as # children of this node, but something about that seems icky. } if(ref $is) { my @dynasty = @$is; DEBUG > 4 and print STDERR " Renaming $was node to $dynasty[-1]\n"; $treelet->[$i][0] = pop @dynasty; my $nugget; while(@dynasty) { DEBUG > 4 and printf " Grafting a new %s node between %s and %s\n", $dynasty[-1], $treelet->[0], $treelet->[$i][0], ; #$nugget = ; splice @$treelet, $i, 1, [pop(@dynasty), {}, $treelet->[$i]]; # relace node with a new parent } } elsif($is eq '0') { splice(@$treelet, $i, 1); # just nix this node (and its descendants) --$i; # back-update the counter } elsif($is eq '1') { splice(@$treelet, $i, 1 # replace this node with its children! => splice @{ $treelet->[$i] },2 # (not catching its first two (non-child) items) ); --$i; # back up for new stuff } else { # otherwise it's unremarkable unshift @stack, $treelet->[$i]; # just recurse } } } DEBUG > 2 and print STDERR "End of _remap_sequences traversal.\n\n"; if(@_ == 2 and @{ $_[1] } == 3 and !ref $_[1][2]) { DEBUG and print STDERR "Noting that the treelet is now formatless.\n"; return 0; } return 1; } # . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . sub _ponder_extend { # "Go to an extreme, move back to a more comfortable place" # -- /Oblique Strategies/, Brian Eno and Peter Schmidt my($self, $para) = @_; my $content = join ' ', splice @$para, 2; $content =~ s/^\s+//s; $content =~ s/\s+$//s; DEBUG > 2 and print STDERR "Ogling extensor: =extend $content\n"; if($content =~ m/^ (\S+) # 1 : new item \s+ (\S+) # 2 : fallback(s) (?:\s+(\S+))? # 3 : element name(s) \s* $ /xs ) { my $new_letter = $1; my $fallbacks_one = $2; my $elements_one; $elements_one = defined($3) ? $3 : $1; DEBUG > 2 and print STDERR "Extensor has good syntax.\n"; unless($new_letter =~ m/^[A-Z]$/s or $new_letter) { DEBUG > 2 and print STDERR " $new_letter isn't a valid thing to entend.\n"; $self->whine( $para->[1]{'start_line'}, "You can extend only formatting codes A-Z, not like \"$new_letter\"" ); return; } if(grep $new_letter eq $_, @Known_formatting_codes) { DEBUG > 2 and print STDERR " $new_letter isn't a good thing to extend, because known.\n"; $self->whine( $para->[1]{'start_line'}, "You can't extend an established code like \"$new_letter\"" ); #TODO: or allow if last bit is same? return; } unless($fallbacks_one =~ m/^[A-Z](,[A-Z])*$/s # like "B", "M,I", etc. or $fallbacks_one eq '0' or $fallbacks_one eq '1' ) { $self->whine( $para->[1]{'start_line'}, "Format for second =extend parameter must be like" . " M or 1 or 0 or M,N or M,N,O but you have it like " . $fallbacks_one ); return; } unless($elements_one =~ m/^[^ ,]+(,[^ ,]+)*$/s) { # like "B", "M,I", etc. $self->whine( $para->[1]{'start_line'}, "Format for third =extend parameter: like foo or bar,Baz,qu:ux but not like " . $elements_one ); return; } my @fallbacks = split ',', $fallbacks_one, -1; my @elements = split ',', $elements_one, -1; foreach my $f (@fallbacks) { next if exists $Known_formatting_codes{$f} or $f eq '0' or $f eq '1'; DEBUG > 2 and print STDERR " Can't fall back on unknown code $f\n"; $self->whine( $para->[1]{'start_line'}, "Can't use unknown formatting code '$f' as a fallback for '$new_letter'" ); return; } DEBUG > 3 and printf STDERR "Extensor: Fallbacks <%s> Elements <%s>.\n", @fallbacks, @elements; my $canonical_form; foreach my $e (@elements) { if(exists $self->{'accept_codes'}{$e}) { DEBUG > 1 and print STDERR " Mapping '$new_letter' to known extension '$e'\n"; $canonical_form = $e; last; # first acceptable elementname wins! } else { DEBUG > 1 and print STDERR " Can't map '$new_letter' to unknown extension '$e'\n"; } } if( defined $canonical_form ) { # We found a good N => elementname mapping $self->{'accept_codes'}{$new_letter} = $canonical_form; DEBUG > 2 and print "Extensor maps $new_letter => known element $canonical_form.\n"; } else { # We have to use the fallback(s), which might be '0', or '1'. $self->{'accept_codes'}{$new_letter} = (@fallbacks == 1) ? $fallbacks[0] : \@fallbacks; DEBUG > 2 and print "Extensor maps $new_letter => fallbacks @fallbacks.\n"; } } else { DEBUG > 2 and print STDERR "Extensor has bad syntax.\n"; $self->whine( $para->[1]{'start_line'}, "Unknown =extend syntax: $content" ) } return; } #:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:. sub _treat_Zs { # Nix Z<...>'s my($self,@stack) = @_; my($i, $treelet); my $start_line = $stack[0][1]{'start_line'}; # A recursive algorithm implemented iteratively! Whee! while($treelet = shift @stack) { for($i = 2; $i < @$treelet; ++$i) { # iterate over children next unless ref $treelet->[$i]; # text nodes are uninteresting unless($treelet->[$i][0] eq 'Z') { unshift @stack, $treelet->[$i]; # recurse next; } DEBUG > 1 and print STDERR "Nixing Z node @{$treelet->[$i]}\n"; # bitch UNLESS it's empty unless( @{$treelet->[$i]} == 2 or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '') ) { $self->whine( $start_line, "A non-empty Z<>" ); } # but kill it anyway splice(@$treelet, $i, 1); # thereby just nix this node. --$i; } } return; } # . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . # Quoting perlpodspec: # In parsing an L<...> code, Pod parsers must distinguish at least four # attributes: ############# Not used. Expressed via the element children plus ############# the value of the "content-implicit" flag. # First: # The link-text. If there is none, this must be undef. (E.g., in "L<Perl # Functions|perlfunc>", the link-text is "Perl Functions". In # "L<Time::HiRes>" and even "L<|Time::HiRes>", there is no link text. Note # that link text may contain formatting.) # ############# The element children # Second: # The possibly inferred link-text -- i.e., if there was no real link text, # then this is the text that we'll infer in its place. (E.g., for # "L<Getopt::Std>", the inferred link text is "Getopt::Std".) # ############# The "to" attribute (which might be text, or a treelet) # Third: # The name or URL, or undef if none. (E.g., in "L<Perl # Functions|perlfunc>", the name -- also sometimes called the page -- is # "perlfunc". In "L</CAVEATS>", the name is undef.) # ############# The "section" attribute (which might be next, or a treelet) # Fourth: # The section (AKA "item" in older perlpods), or undef if none. E.g., in # Getopt::Std/DESCRIPTION, "DESCRIPTION" is the section. (Note that this # is not the same as a manpage section like the "5" in "man 5 crontab". # "Section Foo" in the Pod sense means the part of the text that's # introduced by the heading or item whose text is "Foo".) # # Pod parsers may also note additional attributes including: # ############# The "type" attribute. # Fifth: # A flag for whether item 3 (if present) is a URL (like # "http://lists.perl.org" is), in which case there should be no section # attribute; a Pod name (like "perldoc" and "Getopt::Std" are); or # possibly a man page name (like "crontab(5)" is). # ############# The "raw" attribute that is already there. # Sixth: # The raw original L<...> content, before text is split on "|", "/", etc, # and before E<...> codes are expanded. # For L<...> codes without a "name|" part, only E<...> and Z<> codes may # occur -- no other formatting codes. That is, authors should not use # "L<B<Foo::Bar>>". # # Note, however, that formatting codes and Z<>'s can occur in any and all # parts of an L<...> (i.e., in name, section, text, and url). sub _treat_Ls { # Process our dear dear friends, the L<...> sequences # L<name> # L<name/"sec"> or L<name/sec> # L</"sec"> or L</sec> or L<"sec"> # L<text|name> # L<text|name/"sec"> or L<text|name/sec> # L<text|/"sec"> or L<text|/sec> or L<text|"sec"> # L<scheme:...> # L<text|scheme:...> my($self,@stack) = @_; my($i, $treelet); my $start_line = $stack[0][1]{'start_line'}; # A recursive algorithm implemented iteratively! Whee! while($treelet = shift @stack) { for(my $i = 2; $i < @$treelet; ++$i) { # iterate over children of current tree node next unless ref $treelet->[$i]; # text nodes are uninteresting unless($treelet->[$i][0] eq 'L') { unshift @stack, $treelet->[$i]; # recurse next; } # By here, $treelet->[$i] is definitely an L node my $ell = $treelet->[$i]; DEBUG > 1 and print STDERR "Ogling L node " . pretty($ell) . "\n"; # bitch if it's empty or is just '/' if (@{$ell} == 3 and $ell->[2] =~ m!\A\s*/\s*\z!) { $self->whine( $start_line, "L<> contains only '/'" ); $treelet->[$i] = 'L</>'; # just make it a text node next; # and move on } if( @{$ell} == 2 or (@{$ell} == 3 and $ell->[2] eq '') ) { $self->whine( $start_line, "An empty L<>" ); $treelet->[$i] = 'L<>'; # just make it a text node next; # and move on } if( (! ref $ell->[2] && $ell->[2] =~ /\A\s/) ||(! ref $ell->[-1] && $ell->[-1] =~ /\s\z/) ) { $self->whine( $start_line, "L<> starts or ends with whitespace" ); } # Catch URLs: # there are a number of possible cases: # 1) text node containing url: http://foo.com # -> [ 'http://foo.com' ] # 2) text node containing url and text: foo|http://foo.com # -> [ 'foo|http://foo.com' ] # 3) text node containing url start: mailto:xE<at>foo.com # -> [ 'mailto:x', [ E ... ], 'foo.com' ] # 4) text node containing url start and text: foo|mailto:xE<at>foo.com # -> [ 'foo|mailto:x', [ E ... ], 'foo.com' ] # 5) other nodes containing text and url start: OE<39>Malley|http://foo.com # -> [ 'O', [ E ... ], 'Malley', '|http://foo.com' ] # ... etc. # anything before the url is part of the text. # anything after it is part of the url. # the url text node itself may contain parts of both. if (my ($url_index, $text_part, $url_part) = # grep is no good here; we want to bail out immediately so that we can # use $1, $2, etc. without having to do the match twice. sub { for (2..$#$ell) { next if ref $ell->[$_]; next unless $ell->[$_] =~ m/^(?:([^|]*)\|)?(\w+:[^:\s]\S*)$/s; return ($_, $1, $2); } return; }->() ) { $ell->[1]{'type'} = 'url'; my @text = @{$ell}[2..$url_index-1]; push @text, $text_part if defined $text_part; my @url = @{$ell}[$url_index+1..$#$ell]; unshift @url, $url_part; unless (@text) { $ell->[1]{'content-implicit'} = 'yes'; @text = @url; } $ell->[1]{to} = Pod::Simple::LinkSection->new( @url == 1 ? $url[0] : [ '', {}, @url ], ); splice @$ell, 2, $#$ell, @text; next; } # Catch some very simple and/or common cases if(@{$ell} == 3 and ! ref $ell->[2]) { my $it = $ell->[2]; if($it =~ m{^[^/|]+[(][-a-zA-Z0-9]+[)]$}s) { # man sections # Hopefully neither too broad nor too restrictive a RE DEBUG > 1 and print STDERR "Catching \"$it\" as manpage link.\n"; $ell->[1]{'type'} = 'man'; # This's the only place where man links can get made. $ell->[1]{'content-implicit'} = 'yes'; $ell->[1]{'to' } = Pod::Simple::LinkSection->new( $it ); # treelet! next; } if($it =~ m/^[^\/\|,\$\%\@\ \"\<\>\:\#\&\*\{\}\[\]\(\)]+(\:\:[^\/\|,\$\%\@\ \"\<\>\:\#\&\*\{\}\[\]\(\)]+)*$/s) { # Extremely forgiving idea of what constitutes a bare # modulename link like L<Foo::Bar> or even L<Thing::1.0::Docs::Tralala> DEBUG > 1 and print STDERR "Catching \"$it\" as ho-hum L<Modulename> link.\n"; $ell->[1]{'type'} = 'pod'; $ell->[1]{'content-implicit'} = 'yes'; $ell->[1]{'to' } = Pod::Simple::LinkSection->new( $it ); # treelet! next; } # else fall thru... } # ...Uhoh, here's the real L<...> parsing stuff... # "With the ill behavior, with the ill behavior, with the ill behavior..." DEBUG > 1 and print STDERR "Running a real parse on this non-trivial L\n"; my $link_text; # set to an arrayref if found my @ell_content = @$ell; splice @ell_content,0,2; # Knock off the 'L' and {} bits DEBUG > 3 and print STDERR " Ell content to start: ", pretty(@ell_content), "\n"; # Look for the "|" -- only in CHILDREN (not all underlings!) # Like L<I like the strictness|strict> DEBUG > 3 and print STDERR " Peering at L content for a '|' ...\n"; for(my $j = 0; $j < @ell_content; ++$j) { next if ref $ell_content[$j]; DEBUG > 3 and print STDERR " Peering at L-content text bit \"$ell_content[$j]\" for a '|'.\n"; if($ell_content[$j] =~ m/^([^\|]*)\|(.*)$/s) { my @link_text = ($1); # might be 0-length $ell_content[$j] = $2; # might be 0-length DEBUG > 3 and print STDERR " FOUND a '|' in it. Splitting into [$1] + [$2]\n"; if ($link_text[0] =~ m{[|/]}) { $self->whine( $start_line, "alternative text '$link_text[0]' contains non-escaped | or /" ); } unshift @link_text, splice @ell_content, 0, $j; # leaving only things at J and after @ell_content = grep ref($_)||length($_), @ell_content ; $link_text = [grep ref($_)||length($_), @link_text ]; DEBUG > 3 and printf " So link text is %s\n and remaining ell content is %s\n", pretty($link_text), pretty(@ell_content); last; } } # Now look for the "/" -- only in CHILDREN (not all underlings!) # And afterward, anything left in @ell_content will be the raw name # Like L<Foo::Bar/Object Methods> my $section_name; # set to arrayref if found DEBUG > 3 and print STDERR " Peering at L-content for a '/' ...\n"; for(my $j = 0; $j < @ell_content; ++$j) { next if ref $ell_content[$j]; DEBUG > 3 and print STDERR " Peering at L-content text bit \"$ell_content[$j]\" for a '/'.\n"; if($ell_content[$j] =~ m/^([^\/]*)\/(.*)$/s) { my @section_name = ($2); # might be 0-length $ell_content[$j] = $1; # might be 0-length DEBUG > 3 and print STDERR " FOUND a '/' in it.", " Splitting to page [...$1] + section [$2...]\n"; push @section_name, splice @ell_content, 1+$j; # leaving only things before and including J @ell_content = grep ref($_)||length($_), @ell_content ; @section_name = grep ref($_)||length($_), @section_name ; # Turn L<.../"foo"> into L<.../foo> if(@section_name and !ref($section_name[0]) and !ref($section_name[-1]) and $section_name[ 0] =~ m/^\"/s and $section_name[-1] =~ m/\"$/s and !( # catch weird degenerate case of L<"> ! @section_name == 1 and $section_name[0] eq '"' ) ) { $section_name[ 0] =~ s/^\"//s; $section_name[-1] =~ s/\"$//s; DEBUG > 3 and print STDERR " Quotes removed: ", pretty(@section_name), "\n"; } else { DEBUG > 3 and print STDERR " No need to remove quotes in ", pretty(@section_name), "\n"; } $section_name = \@section_name; last; } } # Turn L<"Foo Bar"> into L</Foo Bar> if(!$section_name and @ell_content and !ref($ell_content[0]) and !ref($ell_content[-1]) and $ell_content[ 0] =~ m/^\"/s and $ell_content[-1] =~ m/\"$/s and !( # catch weird degenerate case of L<"> ! @ell_content == 1 and $ell_content[0] eq '"' ) ) { $section_name = [splice @ell_content]; $section_name->[ 0] =~ s/^\"//s; $section_name->[-1] =~ s/\"$//s; $ell->[1]{'~tolerated'} = 1; } # Turn L<Foo Bar> into L</Foo Bar>. if(!$section_name and !$link_text and @ell_content and grep !ref($_) && m/ /s, @ell_content ) { $section_name = [splice @ell_content]; $ell->[1]{'~deprecated'} = 1; # That's support for the now-deprecated syntax. # Note that it deliberately won't work on L<...|Foo Bar> } # Now make up the link_text # L<Foo> -> L<Foo|Foo> # L</Bar> -> L<"Bar"|Bar> # L<Foo/Bar> -> L<"Bar" in Foo/Foo> unless($link_text) { $ell->[1]{'content-implicit'} = 'yes'; $link_text = []; push @$link_text, '"', @$section_name, '"' if $section_name; if(@ell_content) { $link_text->[-1] .= ' in ' if $section_name; push @$link_text, @ell_content; } } # And the E resolver will have to deal with all our treeletty things: if(@ell_content == 1 and !ref($ell_content[0]) and $ell_content[0] =~ m{^[^/]+[(][-a-zA-Z0-9]+[)]$}s ) { $ell->[1]{'type'} = 'man'; DEBUG > 3 and print STDERR "Considering this ($ell_content[0]) a man link.\n"; } else { $ell->[1]{'type'} = 'pod'; DEBUG > 3 and print STDERR "Considering this a pod link (not man or url).\n"; } if( defined $section_name ) { $ell->[1]{'section'} = Pod::Simple::LinkSection->new( ['', {}, @$section_name] ); DEBUG > 3 and print STDERR "L-section content: ", pretty($ell->[1]{'section'}), "\n"; } if( @ell_content ) { $ell->[1]{'to'} = Pod::Simple::LinkSection->new( ['', {}, @ell_content] ); DEBUG > 3 and print STDERR "L-to content: ", pretty($ell->[1]{'to'}), "\n"; } # And update children to be the link-text: @$ell = (@$ell[0,1], defined($link_text) ? splice(@$link_text) : ''); DEBUG > 2 and print STDERR "End of L-parsing for this node " . pretty($treelet->[$i]) . "\n"; unshift @stack, $treelet->[$i]; # might as well recurse } } return; } # . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . sub _treat_Es { my($self,@stack) = @_; my($i, $treelet, $content, $replacer, $charnum); my $start_line = $stack[0][1]{'start_line'}; # A recursive algorithm implemented iteratively! Whee! # Has frightening side effects on L nodes' attributes. #my @ells_to_tweak; while($treelet = shift @stack) { for(my $i = 2; $i < @$treelet; ++$i) { # iterate over children next unless ref $treelet->[$i]; # text nodes are uninteresting if($treelet->[$i][0] eq 'L') { # SPECIAL STUFF for semi-processed L<>'s my $thing; foreach my $attrname ('section', 'to') { if(defined($thing = $treelet->[$i][1]{$attrname}) and ref $thing) { unshift @stack, $thing; DEBUG > 2 and print STDERR " Enqueuing ", pretty( $treelet->[$i][1]{$attrname} ), " as an attribute value to tweak.\n"; } } unshift @stack, $treelet->[$i]; # recurse next; } elsif($treelet->[$i][0] ne 'E') { unshift @stack, $treelet->[$i]; # recurse next; } DEBUG > 1 and print STDERR "Ogling E node ", pretty($treelet->[$i]), "\n"; # bitch if it's empty if( @{$treelet->[$i]} == 2 or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '') ) { $self->whine( $start_line, "An empty E<>" ); $treelet->[$i] = 'E<>'; # splice in a literal next; } # bitch if content is weird unless(@{$treelet->[$i]} == 3 and !ref($content = $treelet->[$i][2])) { $self->whine( $start_line, "An E<...> surrounding strange content" ); $replacer = $treelet->[$i]; # scratch splice(@$treelet, $i, 1, # fake out a literal 'E<', splice(@$replacer,2), # promote its content '>' ); # Don't need to do --$i, as the 'E<' we just added isn't interesting. next; } DEBUG > 1 and print STDERR "Ogling E<$content>\n"; # XXX E<>'s contents *should* be a valid char in the scope of the current # =encoding directive. Defaults to iso-8859-1, I believe. Fix this in the # future sometime. $charnum = Pod::Escapes::e2charnum($content); DEBUG > 1 and print STDERR " Considering E<$content> with char ", defined($charnum) ? $charnum : "undef", ".\n"; if(!defined( $charnum )) { DEBUG > 1 and print STDERR "I don't know how to deal with E<$content>.\n"; $self->whine( $start_line, "Unknown E content in E<$content>" ); $replacer = "E<$content>"; # better than nothing } elsif($charnum >= 255 and !UNICODE) { $replacer = ASCII ? "\xA4" : "?"; DEBUG > 1 and print STDERR "This Perl version can't handle ", "E<$content> (chr $charnum), so replacing with $replacer\n"; } else { $replacer = Pod::Escapes::e2char($content); DEBUG > 1 and print STDERR " Replacing E<$content> with $replacer\n"; } splice(@$treelet, $i, 1, $replacer); # no need to back up $i, tho } } return; } # . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . sub _treat_Ss { my($self,$treelet) = @_; _change_S_to_nbsp($treelet,0) if $self->{'nbsp_for_S'}; # TODO: or a change_nbsp_to_S # Normalizing nbsp's to S is harder: for each text node, make S content # out of anything matching m/([^ \xA0]*(?:\xA0+[^ \xA0]*)+)/ return; } sub _change_S_to_nbsp { # a recursive function # Sanely assumes that the top node in the excursion won't be an S node. my($treelet, $in_s) = @_; my $is_s = ('S' eq $treelet->[0]); $in_s ||= $is_s; # So in_s is on either by this being an S element, # or by an ancestor being an S element. for(my $i = 2; $i < @$treelet; ++$i) { if(ref $treelet->[$i]) { if( _change_S_to_nbsp( $treelet->[$i], $in_s ) ) { my $to_pull_up = $treelet->[$i]; splice @$to_pull_up,0,2; # ...leaving just its content splice @$treelet, $i, 1, @$to_pull_up; # Pull up content $i += @$to_pull_up - 1; # Make $i skip the pulled-up stuff } } else { $treelet->[$i] =~ s/\s/$Pod::Simple::nbsp/g if $in_s; # Note that if you apply nbsp_for_S to text, and so turn # "foo S<bar baz> quux" into "foo bar faz quux", you # end up with something that fails to say "and don't hyphenate # any part of 'bar baz'". However, hyphenation is such a vexing # problem anyway, that most Pod renderers just don't render it # at all. But if you do want to implement hyphenation, I guess # that you'd better have nbsp_for_S off. } } return $is_s; } #----------------------------------------------------------------------------- sub _accessorize { # A simple-minded method-maker no strict 'refs'; foreach my $attrname (@_) { next if $attrname =~ m/::/; # a hack *{caller() . '::' . $attrname} = sub { use strict; $Carp::CarpLevel = 1, Carp::croak( "Accessor usage: \$obj->$attrname() or \$obj->$attrname(\$new_value)" ) unless (@_ == 1 or @_ == 2) and ref $_[0]; (@_ == 1) ? $_[0]->{$attrname} : ($_[0]->{$attrname} = $_[1]); }; } # Ya know, they say accessories make the ensemble! return; } # . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . # . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . #============================================================================= sub filter { my($class, $source) = @_; my $new = $class->new; $new->output_fh(*STDOUT{IO}); if(ref($source || '') eq 'SCALAR') { $new->parse_string_document( $$source ); } elsif(ref($source)) { # it's a file handle $new->parse_file($source); } else { # it's a filename $new->parse_file($source); } return $new; } #----------------------------------------------------------------------------- sub _out { # For use in testing: Class->_out($source) # returns the transformation of $source my $class = shift(@_); my $mutor = shift(@_) if @_ and ref($_[0] || '') eq 'CODE'; DEBUG and print STDERR "\n\n", '#' x 76, "\nAbout to parse source: {{\n$_[0]\n}}\n\n"; my $parser = ref $class && $class->isa(__PACKAGE__) ? $class : $class->new; $parser->hide_line_numbers(1); my $out = ''; $parser->output_string( \$out ); DEBUG and print STDERR " _out to ", \$out, "\n"; $mutor->($parser) if $mutor; $parser->parse_string_document( $_[0] ); # use Data::Dumper; print STDERR Dumper($parser), "\n"; return $out; } sub _duo { # For use in testing: Class->_duo($source1, $source2) # returns the parse trees of $source1 and $source2. # Good in things like: &ok( Class->duo(... , ...) ); my $class = shift(@_); Carp::croak "But $class->_duo is useful only in list context!" unless wantarray; my $mutor = shift(@_) if @_ and ref($_[0] || '') eq 'CODE'; Carp::croak "But $class->_duo takes two parameters, not: @_" unless @_ == 2; my(@out); while( @_ ) { my $parser = $class->new; push @out, ''; $parser->output_string( \( $out[-1] ) ); DEBUG and print STDERR " _duo out to ", $parser->output_string(), " = $parser->{'output_string'}\n"; $parser->hide_line_numbers(1); $mutor->($parser) if $mutor; $parser->parse_string_document( shift( @_ ) ); # use Data::Dumper; print STDERR Dumper($parser), "\n"; } return @out; } #----------------------------------------------------------------------------- 1; __END__ TODO: A start_formatting_code and end_formatting_code methods, which in the base class call start_L, end_L, start_C, end_C, etc., if they are defined. have the POD FORMATTING ERRORS section note the localtime, and the version of Pod::Simple. option to delete all E<shy>s? option to scream if under-0x20 literals are found in the input, or under-E<32> E codes are found in the tree. And ditto \x7f-\x9f Option to turn highbit characters into their compromised form? (applies to E parsing too) TODO: BOM/encoding things. TODO: ascii-compat things in the XML classes? PK ! _��� � 5.34.0/Pod/Perldoc/ToNroff.pmnu �[��� package Pod::Perldoc::ToNroff; use strict; use warnings; use parent qw(Pod::Perldoc::BaseTo); use vars qw($VERSION); $VERSION = '3.28'; # This is unlike ToMan.pm in that it emits the raw nroff source! sub is_pageable { 1 } # well, if you ask for it... sub write_with_binmode { 0 } sub output_extension { 'man' } use Pod::Man (); sub center { shift->_perldoc_elem('center' , @_) } sub date { shift->_perldoc_elem('date' , @_) } sub fixed { shift->_perldoc_elem('fixed' , @_) } sub fixedbold { shift->_perldoc_elem('fixedbold' , @_) } sub fixeditalic { shift->_perldoc_elem('fixeditalic' , @_) } sub fixedbolditalic { shift->_perldoc_elem('fixedbolditalic', @_) } sub quotes { shift->_perldoc_elem('quotes' , @_) } sub release { shift->_perldoc_elem('release' , @_) } sub section { shift->_perldoc_elem('section' , @_) } sub new { return bless {}, ref($_[0]) || $_[0] } sub parse_from_file { my $self = shift; my $file = $_[0]; my @options = map {; $_, $self->{$_} } grep !m/^_/s, keys %$self ; defined(&Pod::Perldoc::DEBUG) and Pod::Perldoc::DEBUG() and print "About to call new Pod::Man ", $Pod::Man::VERSION ? "(v$Pod::Man::VERSION) " : '', "with options: ", @options ? "[@options]" : "(nil)", "\n"; ; Pod::Man->new(@options)->parse_from_file(@_); } 1; __END__ =head1 NAME Pod::Perldoc::ToNroff - let Perldoc convert Pod to nroff =head1 SYNOPSIS perldoc -o nroff -d something.3 Some::Modulename =head1 DESCRIPTION This is a "plug-in" class that allows Perldoc to use Pod::Man as a formatter class. The following options are supported: center, date, fixed, fixedbold, fixeditalic, fixedbolditalic, quotes, release, section Those options are explained in L<Pod::Man>. For example: perldoc -o nroff -w center:Pod -d something.3 Some::Modulename =head1 CAVEAT This module may change to use a different pod-to-nroff formatter class in the future, and this may change what options are supported. =head1 SEE ALSO L<Pod::Man>, L<Pod::Perldoc>, L<Pod::Perldoc::ToMan> =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2002 Sean M. Burke. All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Current maintainer: Mark Allen C<< <mallen@cpan.org> >> Past contributions from: brian d foy C<< <bdfoy@cpan.org> >> Adriano R. Ferreira C<< <ferreira@cpan.org> >>, Sean M. Burke C<< <sburke@cpan.org> >> =cut PK ! p�!b� � 5.34.0/Pod/Perldoc/ToTk.pmnu �[��� package Pod::Perldoc::ToTk; use strict; use warnings; use vars qw($VERSION); $VERSION = '3.28'; use parent qw(Pod::Perldoc::BaseTo); sub is_pageable { 1 } sub write_with_binmode { 0 } sub output_extension { 'txt' } # doesn't matter sub if_zero_length { } # because it will be 0-length! sub new { return bless {}, ref($_[0]) || $_[0] } # TODO: document these and their meanings... sub tree { shift->_perldoc_elem('tree' , @_) } sub tk_opt { shift->_perldoc_elem('tk_opt' , @_) } sub forky { shift->_perldoc_elem('forky' , @_) } use Pod::Perldoc (); use File::Spec::Functions qw(catfile); BEGIN{ # Tk is not core, but this is eval { require Tk } || __PACKAGE__->die( <<"HERE" ); You must have the Tk module to use Pod::Perldoc::ToTk. If you have it installed, ensure it's in your Perl library path. HERE __PACKAGE__->die( __PACKAGE__, " doesn't work nice with Tk.pm version $Tk::VERSION" ) if $Tk::VERSION eq '800.003'; } BEGIN { eval { require Tk::FcyEntry; }; }; BEGIN{ # Tk::Pod is not core, but this is eval { require Tk::Pod } || __PACKAGE__->die( <<"HERE" ); You must have the Tk::Pod module to use Pod::Perldoc::ToTk. If you have it installed, ensure it's in your Perl library path. HERE } # The following was adapted from "tkpod" in the Tk-Pod dist. sub parse_from_file { my($self, $Input_File) = @_; if($self->{'forky'}) { return if fork; # i.e., parent process returns } $Input_File =~ s{\\}{/}g if $self->is_mswin32 or $self->is_dos # and maybe OS/2 ; my($tk_opt, $tree); $tree = $self->{'tree' }; $tk_opt = $self->{'tk_opt'}; #require Tk::ErrorDialog; # Add 'Tk' subdirectories to search path so, e.g., # 'Scrolled' will find doc in 'Tk/Scrolled' if( $tk_opt ) { push @INC, grep -d $_, map catfile($_,'Tk'), @INC; } my $mw = MainWindow->new(); #eval 'use blib "/home/e/eserte/src/perl/Tk-App";require Tk::App::Debug'; $mw->withdraw; # CDE use Font Settings if available my $ufont = $mw->optionGet('userFont','UserFont'); # fixed width my $sfont = $mw->optionGet('systemFont','SystemFont'); # proportional if (defined($ufont) and defined($sfont)) { foreach ($ufont, $sfont) { s/:$//; }; $mw->optionAdd('*Font', $sfont); $mw->optionAdd('*Entry.Font', $ufont); $mw->optionAdd('*Text.Font', $ufont); } $mw->optionAdd('*Menu.tearOff', $Tk::platform ne 'MSWin32' ? 1 : 0); $mw->Pod( '-file' => $Input_File, (($Tk::Pod::VERSION >= 4) ? ('-tree' => $tree) : ()) )->focusNext; # xxx dirty but it works. A simple $mw->destroy if $mw->children # does not work because Tk::ErrorDialogs could be created. # (they are withdrawn after Ok instead of destory'ed I guess) if ($mw->children) { $mw->repeat(1000, sub { # ErrorDialog is withdrawn not deleted :-( foreach ($mw->children) { return if "$_" =~ /^Tk::Pod/ # ->isa('Tk::Pod') } $mw->destroy; }); } else { $mw->destroy; } #$mw->WidgetDump; MainLoop(); exit if $self->{'forky'}; # we were the child! so exit now! return; } 1; __END__ =head1 NAME Pod::Perldoc::ToTk - let Perldoc use Tk::Pod to render Pod =head1 SYNOPSIS perldoc -o tk Some::Modulename & =head1 DESCRIPTION This is a "plug-in" class that allows Perldoc to use Tk::Pod as a formatter class. You have to have installed Tk::Pod first, or this class won't load. =head1 SEE ALSO L<Tk::Pod>, L<Pod::Perldoc> =head1 AUTHOR Current maintainer: Mark Allen C<< <mallen@cpan.org> >> Past contributions from: brian d foy C<< <bdfoy@cpan.org> >> Adriano R. Ferreira C<< <ferreira@cpan.org> >>; Sean M. Burke C<< <sburke@cpan.org> >>; significant portions copied from F<tkpod> in the Tk::Pod dist, by Nick Ing-Simmons, Slaven Rezic, et al. =cut PK ! 5���� � 5.34.0/Pod/Perldoc/ToText.pmnu �[��� package Pod::Perldoc::ToText; use strict; use warnings; use vars qw($VERSION); $VERSION = '3.28'; use parent qw(Pod::Perldoc::BaseTo); sub is_pageable { 1 } sub write_with_binmode { 0 } sub output_extension { 'txt' } use Pod::Text (); sub alt { shift->_perldoc_elem('alt' , @_) } sub indent { shift->_perldoc_elem('indent' , @_) } sub loose { shift->_perldoc_elem('loose' , @_) } sub quotes { shift->_perldoc_elem('quotes' , @_) } sub sentence { shift->_perldoc_elem('sentence', @_) } sub width { shift->_perldoc_elem('width' , @_) } sub new { return bless {}, ref($_[0]) || $_[0] } sub parse_from_file { my $self = shift; my @options = map {; $_, $self->{$_} } grep !m/^_/s, keys %$self ; defined(&Pod::Perldoc::DEBUG) and Pod::Perldoc::DEBUG() and print "About to call new Pod::Text ", $Pod::Text::VERSION ? "(v$Pod::Text::VERSION) " : '', "with options: ", @options ? "[@options]" : "(nil)", "\n"; ; Pod::Text->new(@options)->parse_from_file(@_); } 1; =head1 NAME Pod::Perldoc::ToText - let Perldoc render Pod as plaintext =head1 SYNOPSIS perldoc -o text Some::Modulename =head1 DESCRIPTION This is a "plug-in" class that allows Perldoc to use Pod::Text as a formatter class. It supports the following options, which are explained in L<Pod::Text>: alt, indent, loose, quotes, sentence, width For example: perldoc -o text -w indent:5 Some::Modulename =head1 CAVEAT This module may change to use a different text formatter class in the future, and this may change what options are supported. =head1 SEE ALSO L<Pod::Text>, L<Pod::Perldoc> =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2002 Sean M. Burke. All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Current maintainer: Mark Allen C<< <mallen@cpan.org> >> Past contributions from: brian d foy C<< <bdfoy@cpan.org> >> Adriano R. Ferreira C<< <ferreira@cpan.org> >>, Sean M. Burke C<< <sburke@cpan.org> >> =cut PK ! ,��� � 5.34.0/Pod/Perldoc/ToTerm.pmnu �[��� package Pod::Perldoc::ToTerm; use strict; use warnings; use vars qw($VERSION); $VERSION = '3.28'; use parent qw(Pod::Perldoc::BaseTo); sub is_pageable { 1 } sub write_with_binmode { 0 } sub output_extension { 'txt' } use Pod::Text::Termcap (); sub alt { shift->_perldoc_elem('alt' , @_) } sub indent { shift->_perldoc_elem('indent' , @_) } sub loose { shift->_perldoc_elem('loose' , @_) } sub quotes { shift->_perldoc_elem('quotes' , @_) } sub sentence { shift->_perldoc_elem('sentence', @_) } sub width { my $self = shift; $self->_perldoc_elem('width' , @_) || $self->_get_columns_from_manwidth || $self->_get_columns_from_stty || $self->_get_default_width; } sub pager_configuration { my($self, $pager, $perldoc) = @_; # do not modify anything on Windows or DOS return if ( $perldoc->is_mswin32 || $perldoc->is_dos ); if ( $pager =~ /sensible-pager|less/ ) { $self->_maybe_modify_environment('LESS'); } elsif ( $pager =~ /more/ ) { $self->_maybe_modify_environment('MORE'); } return; } sub _maybe_modify_environment { my($self, $name) = @_; if ( ! defined $ENV{$name} ) { $ENV{$name} = "-R"; } # if the environment is set, don't modify # anything } sub _get_stty { `stty -a` } sub _get_columns_from_stty { my $output = $_[0]->_get_stty; if( $output =~ /\bcolumns\s+(\d+)/ ) { return $1; } elsif( $output =~ /;\s*(\d+)\s+columns;/ ) { return $1; } else { return 0 } } sub _get_columns_from_manwidth { my( $self ) = @_; return 0 unless defined $ENV{MANWIDTH}; unless( $ENV{MANWIDTH} =~ m/\A\d+\z/ ) { $self->warn( "Ignoring non-numeric MANWIDTH ($ENV{MANWIDTH})\n" ); return 0; } if( $ENV{MANWIDTH} == 0 ) { $self->warn( "Ignoring MANWIDTH of 0. Really? Why even run the program? :)\n" ); return 0; } if( $ENV{MANWIDTH} =~ m/\A(\d+)\z/ ) { return $1 } return 0; } sub _get_default_width { 76 } sub new { return bless {}, ref($_[0]) || $_[0] } sub parse_from_file { my $self = shift; $self->{width} = $self->width(); my @options = map {; $_, $self->{$_} } grep !m/^_/s, keys %$self ; defined(&Pod::Perldoc::DEBUG) and Pod::Perldoc::DEBUG() and print "About to call new Pod::Text::Termcap ", $Pod::Text::VERSION ? "(v$Pod::Text::Termcap::VERSION) " : '', "with options: ", @options ? "[@options]" : "(nil)", "\n"; ; Pod::Text::Termcap->new(@options)->parse_from_file(@_); } 1; =head1 NAME Pod::Perldoc::ToTerm - render Pod with terminal escapes =head1 SYNOPSIS perldoc -o term Some::Modulename =head1 DESCRIPTION This is a "plug-in" class that allows Perldoc to use Pod::Text as a formatter class. It supports the following options, which are explained in L<Pod::Text>: alt, indent, loose, quotes, sentence, width For example: perldoc -o term -w indent:5 Some::Modulename =head1 PAGER FORMATTING Depending on the platform, and because this class emits terminal escapes it will attempt to set the C<-R> flag on your pager by injecting the flag into your environment variable for C<less> or C<more>. On Windows and DOS, this class will not modify any environment variables. =head1 CAVEAT This module may change to use a different text formatter class in the future, and this may change what options are supported. =head1 SEE ALSO L<Pod::Text>, L<Pod::Text::Termcap>, L<Pod::Perldoc> =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2017 Mark Allen. This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License. See http://dev.perl.org/licenses/ for more information. =head1 AUTHOR Mark Allen C<< <mallen@cpan.org> >> =cut PK ! j�v�7 �7 5.34.0/Pod/Perldoc/ToMan.pmnu �[��� require 5.006; package Pod::Perldoc::ToMan; use strict; use warnings; use parent qw(Pod::Perldoc::BaseTo); use vars qw($VERSION); $VERSION = '3.28'; use File::Spec::Functions qw(catfile); use Pod::Man 2.18; # This class is unlike ToText.pm et al, because we're NOT paging thru # the output in our particular format -- we make the output and # then we run nroff (or whatever) on it, and then page thru the # (plaintext) output of THAT! sub SUCCESS () { 1 } sub FAILED () { 0 } sub is_pageable { 1 } sub write_with_binmode { 0 } sub output_extension { 'txt' } sub __filter_nroff { shift->_perldoc_elem('__filter_nroff' , @_) } sub __nroffer { shift->_perldoc_elem('__nroffer' , @_) } sub __bindir { shift->_perldoc_elem('__bindir' , @_) } sub __pod2man { shift->_perldoc_elem('__pod2man' , @_) } sub __output_file { shift->_perldoc_elem('__output_file' , @_) } sub center { shift->_perldoc_elem('center' , @_) } sub date { shift->_perldoc_elem('date' , @_) } sub fixed { shift->_perldoc_elem('fixed' , @_) } sub fixedbold { shift->_perldoc_elem('fixedbold' , @_) } sub fixeditalic { shift->_perldoc_elem('fixeditalic' , @_) } sub fixedbolditalic { shift->_perldoc_elem('fixedbolditalic', @_) } sub name { shift->_perldoc_elem('name' , @_) } sub quotes { shift->_perldoc_elem('quotes' , @_) } sub release { shift->_perldoc_elem('release' , @_) } sub section { shift->_perldoc_elem('section' , @_) } sub new { my( $either ) = shift; my $self = bless {}, ref($either) || $either; $self->init( @_ ); return $self; } sub init { my( $self, @args ) = @_; unless( $self->__nroffer ) { my $roffer = $self->_find_roffer( $self->_roffer_candidates ); $self->debug( "Using $roffer\n" ); $self->__nroffer( $roffer ); } else { $self->debug( "__nroffer is " . $self->__nroffer() . "\n" ); } $self->_check_nroffer; } sub _roffer_candidates { my( $self ) = @_; if( $self->is_openbsd || $self->is_freebsd || $self->is_bitrig ) { qw( mandoc groff nroff ) } else { qw( groff nroff mandoc ) } } sub _find_roffer { my( $self, @candidates ) = @_; my @found = (); foreach my $candidate ( @candidates ) { push @found, $self->_find_executable_in_path( $candidate ); } return wantarray ? @found : $found[0]; } sub _check_nroffer { return 1; # where is it in the PATH? # is it executable? # what is its real name? # what is its version? # does it support the flags we need? # is it good enough for us? } sub _get_stty { `stty -a` } sub _get_columns_from_stty { my $output = $_[0]->_get_stty; if( $output =~ /\bcolumns\s+(\d+)/ ) { return $1 } elsif( $output =~ /;\s*(\d+)\s+columns;/ ) { return $1 } else { return 0 } } sub _get_columns_from_manwidth { my( $self ) = @_; return 0 unless defined $ENV{MANWIDTH}; unless( $ENV{MANWIDTH} =~ m/\A\d+\z/ ) { $self->warn( "Ignoring non-numeric MANWIDTH ($ENV{MANWIDTH})\n" ); return 0; } if( $ENV{MANWIDTH} == 0 ) { $self->warn( "Ignoring MANWIDTH of 0. Really? Why even run the program? :)\n" ); return 0; } if( $ENV{MANWIDTH} =~ m/\A(\d+)\z/ ) { return $1 } return 0; } sub _get_default_width { 73 } sub _get_columns { $_[0]->_get_columns_from_manwidth || $_[0]->_get_columns_from_stty || $_[0]->_get_default_width; } sub _get_podman_switches { my( $self ) = @_; my @switches = map { $_, $self->{$_} } grep !m/^_/s, keys %$self; # There needs to be a cleaner way to handle setting # the UTF-8 flag, but for now, comment out this # line because it often does the wrong thing. # # See RT #77465 # #push @switches, 'utf8' => 1; $self->debug( "Pod::Man switches are [@switches]\n" ); return @switches; } sub _parse_with_pod_man { my( $self, $file ) = @_; #->output_fh and ->output_string from Pod::Simple aren't # working, apparently, so there's this ugly hack: local *STDOUT; open STDOUT, '>', $self->{_text_ref}; my $parser = Pod::Man->new( $self->_get_podman_switches ); $self->debug( "Parsing $file\n" ); $parser->parse_from_file( $file ); $self->debug( "Done parsing $file\n" ); close STDOUT; $self->die( "No output from Pod::Man!\n" ) unless length $self->{_text_ref}; $self->_save_pod_man_output if $self->debugging; return SUCCESS; } sub _save_pod_man_output { my( $self, $fh ) = @_; $fh = do { my $file = "podman.out.$$.txt"; $self->debug( "Writing $file with Pod::Man output\n" ); open my $fh2, '>', $file; $fh2; } unless $fh; print { $fh } ${ $self->{_text_ref} }; } sub _have_groff_with_utf8 { my( $self ) = @_; return 0 unless $self->_is_groff; my $roffer = $self->__nroffer; my $minimum_groff_version = '1.20.1'; my $version_string = `$roffer -v`; my( $version ) = $version_string =~ /\(?groff\)? version (\d+\.\d+(?:\.\d+)?)/; $self->debug( "Found groff $version\n" ); # is a string comparison good enough? if( $version lt $minimum_groff_version ) { $self->warn( "You have an old groff." . " Update to version $minimum_groff_version for good Unicode support.\n" . "If you don't upgrade, wide characters may come out oddly.\n" ); } $version ge $minimum_groff_version; } sub _have_mandoc_with_utf8 { my( $self ) = @_; $self->_is_mandoc and not system 'mandoc -Tlocale -V > /dev/null 2>&1'; } sub _collect_nroff_switches { my( $self ) = shift; my @render_switches = ('-man', $self->_get_device_switches); # Thanks to Brendan O'Dea for contributing the following block if( $self->_is_roff and -t STDOUT and my ($cols) = $self->_get_columns ) { my $c = $cols * 39 / 40; $cols = $c > $cols - 2 ? $c : $cols -2; push @render_switches, '-rLL=' . (int $c) . 'n' if $cols > 80; } # I hear persistent reports that adding a -c switch to $render # solves many people's problems. But I also hear that some mans # don't have a -c switch, so that unconditionally adding it here # would presumably be a Bad Thing -- sburke@cpan.org push @render_switches, '-c' if( $self->_is_roff and $self->is_cygwin ); return @render_switches; } sub _get_device_switches { my( $self ) = @_; if( $self->_is_nroff ) { qw() } elsif( $self->_have_groff_with_utf8 ) { qw(-Kutf8 -Tutf8) } elsif( $self->_is_ebcdic ) { qw(-Tcp1047) } elsif( $self->_have_mandoc_with_utf8 ) { qw(-Tlocale) } elsif( $self->_is_mandoc ) { qw() } else { qw(-Tlatin1) } } sub _is_roff { my( $self ) = @_; $self->_is_nroff or $self->_is_groff; } sub _is_nroff { my( $self ) = @_; $self->__nroffer =~ /\bnroff\b/; } sub _is_groff { my( $self ) = @_; $self->__nroffer =~ /\bgroff\b/; } sub _is_mandoc { my ( $self ) = @_; $self->__nroffer =~ /\bmandoc\b/; } sub _is_ebcdic { my( $self ) = @_; return 0; } sub _filter_through_nroff { my( $self ) = shift; $self->debug( "Filtering through " . $self->__nroffer() . "\n" ); # Maybe someone set rendering switches as part of the opt_n value # Deal with that here. my ($render, $switches) = $self->__nroffer() =~ /\A([\/a-zA-Z0-9_\.-]+)\b(.+)?\z/; $self->die("no nroffer!?") unless $render; my @render_switches = $self->_collect_nroff_switches; if ( $switches ) { # Eliminate whitespace $switches =~ s/\s//g; # Then separate the switches with a zero-width positive # lookahead on the dash. # # See: # http://www.effectiveperlprogramming.com/blog/1411 # for a good discussion of this technique push @render_switches, split(/(?=-)/, $switches); } $self->debug( "render is $render\n" ); $self->debug( "render options are @render_switches\n" ); require Symbol; require IPC::Open3; require IO::Handle; my $pid = IPC::Open3::open3( my $writer, my $reader, my $err = Symbol::gensym(), $render, @render_switches ); $reader->autoflush(1); use IO::Select; my $selector = IO::Select->new( $reader ); $self->debug( "Writing to pipe to $render\n" ); my $offset = 0; my $chunk_size = 4096; my $length = length( ${ $self->{_text_ref} } ); my $chunks = $length / $chunk_size; my $done; my $buffer; while( $offset <= $length ) { $self->debug( "Writing chunk $chunks\n" ); $chunks++; syswrite $writer, ${ $self->{_text_ref} }, $chunk_size, $offset or $self->die( $! ); $offset += $chunk_size; $self->debug( "Checking read\n" ); READ: { last READ unless $selector->can_read( 0.01 ); $self->debug( "Reading\n" ); my $bytes = sysread $reader, $buffer, 4096; $self->debug( "Read $bytes bytes\n" ); $done .= $buffer; $self->debug( sprintf "Output is %d bytes\n", length $done ); next READ; } } close $writer; $self->debug( "Done writing\n" ); # read any leftovers $done .= do { local $/; <$reader> }; $self->debug( sprintf "Done reading. Output is %d bytes\n", length $done ); if( $? ) { $self->warn( "Error from pipe to $render!\n" ); $self->debug( 'Error: ' . do { local $/; <$err> } ); } close $reader; if( my $err = $? ) { $self->debug( "Nonzero exit ($?) while running `$render @render_switches`.\n" . "Falling back to Pod::Perldoc::ToPod\n" ); return $self->_fallback_to_pod( @_ ); } $self->debug( "Output:\n----\n$done\n----\n" ); ${ $self->{_text_ref} } = $done; return length ${ $self->{_text_ref} } ? SUCCESS : FAILED; } sub parse_from_file { my( $self, $file, $outfh) = @_; # We have a pipeline of filters each affecting the reference # in $self->{_text_ref} $self->{_text_ref} = \my $output; $self->_parse_with_pod_man( $file ); # so far, nroff is an external command so we ensure it worked my $result = $self->_filter_through_nroff; return $self->_fallback_to_pod( @_ ) unless $result == SUCCESS; $self->_post_nroff_processing; print { $outfh } $output or $self->die( "Can't print to $$self{__output_file}: $!" ); return; } sub _fallback_to_pod { my( $self, @args ) = @_; $self->warn( "Falling back to Pod because there was a problem!\n" ); require Pod::Perldoc::ToPod; return Pod::Perldoc::ToPod->new->parse_from_file(@_); } # maybe there's a user setting we should check? sub _get_tab_width { 4 } sub _expand_tabs { my( $self ) = @_; my $tab_width = ' ' x $self->_get_tab_width; ${ $self->{_text_ref} } =~ s/\t/$tab_width/g; } sub _post_nroff_processing { my( $self ) = @_; if( $self->is_hpux ) { $self->debug( "On HP-UX, I'm going to expand tabs for you\n" ); # this used to be a pipe to `col -x` for HP-UX $self->_expand_tabs; } if( $self->{'__filter_nroff'} ) { $self->debug( "filter_nroff is set, so filtering\n" ); $self->_remove_nroff_header; $self->_remove_nroff_footer; } else { $self->debug( "filter_nroff is not set, so not filtering\n" ); } $self->_handle_unicode; return 1; } # I don't think this does anything since there aren't two consecutive # newlines in the Pod::Man output sub _remove_nroff_header { my( $self ) = @_; $self->debug( "_remove_nroff_header is still a stub!\n" ); return 1; # my @data = split /\n{2,}/, shift; # shift @data while @data and $data[0] !~ /\S/; # Go to header # shift @data if @data and $data[0] =~ /Contributed\s+Perl/; # Skip header } # I don't think this does anything since there aren't two consecutive # newlines in the Pod::Man output sub _remove_nroff_footer { my( $self ) = @_; $self->debug( "_remove_nroff_footer is still a stub!\n" ); return 1; ${ $self->{_text_ref} } =~ s/\n\n+.*\w.*\Z//m; # my @data = split /\n{2,}/, shift; # pop @data if @data and $data[-1] =~ /^\w/; # Skip footer, like # 28/Jan/99 perl 5.005, patch 53 1 } sub _unicode_already_handled { my( $self ) = @_; $self->_have_groff_with_utf8 || 1 # so, we don't have a case that needs _handle_unicode ; } sub _handle_unicode { # this is the job of preconv # we don't need this with groff 1.20 and later. my( $self ) = @_; return 1 if $self->_unicode_already_handled; require Encode; # it's UTF-8 here, but we need character data my $text = Encode::decode( 'UTF-8', ${ $self->{_text_ref} } ) ; # http://www.mail-archive.com/groff@gnu.org/msg01378.html # http://linux.die.net/man/7/groff_char # http://www.gnu.org/software/groff/manual/html_node/Using-Symbols.html # http://lists.gnu.org/archive/html/groff/2011-05/msg00007.html # http://www.simplicidade.org/notes/archives/2009/05/fixing_the_pod.html # http://lists.freebsd.org/pipermail/freebsd-questions/2011-July/232239.html $text =~ s/(\P{ASCII})/ sprintf '\\[u%04X]', ord $1 /eg; # should we encode? ${ $self->{_text_ref} } = $text; } 1; __END__ =head1 NAME Pod::Perldoc::ToMan - let Perldoc render Pod as man pages =head1 SYNOPSIS perldoc -o man Some::Modulename =head1 DESCRIPTION This is a "plug-in" class that allows Perldoc to use Pod::Man and C<groff> for reading Pod pages. The following options are supported: center, date, fixed, fixedbold, fixeditalic, fixedbolditalic, quotes, release, section (Those options are explained in L<Pod::Man>.) For example: perldoc -o man -w center:Pod Some::Modulename =head1 CAVEAT This module may change to use a different pod-to-nroff formatter class in the future, and this may change what options are supported. =head1 SEE ALSO L<Pod::Man>, L<Pod::Perldoc>, L<Pod::Perldoc::ToNroff> =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2011 brian d foy. All rights reserved. Copyright (c) 2002,3,4 Sean M. Burke. All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Current maintainer: Mark Allen C<< <mallen@cpan.org> >> Past contributions from: brian d foy C<< <bdfoy@cpan.org> >> Adriano R. Ferreira C<< <ferreira@cpan.org> >>, Sean M. Burke C<< <sburke@cpan.org> >> =cut PK ! �mV!� � 5.34.0/Pod/Perldoc/ToANSI.pmnu �[��� package Pod::Perldoc::ToANSI; use strict; use warnings; use parent qw(Pod::Perldoc::BaseTo); use vars qw($VERSION); $VERSION = '3.28'; sub is_pageable { 1 } sub write_with_binmode { 0 } sub output_extension { 'txt' } use Pod::Text::Color (); sub alt { shift->_perldoc_elem('alt' , @_) } sub indent { shift->_perldoc_elem('indent' , @_) } sub loose { shift->_perldoc_elem('loose' , @_) } sub quotes { shift->_perldoc_elem('quotes' , @_) } sub sentence { shift->_perldoc_elem('sentence', @_) } sub width { shift->_perldoc_elem('width' , @_) } sub new { return bless {}, ref($_[0]) || $_[0] } sub parse_from_file { my $self = shift; my @options = map {; $_, $self->{$_} } grep !m/^_/s, keys %$self ; defined(&Pod::Perldoc::DEBUG) and Pod::Perldoc::DEBUG() and print "About to call new Pod::Text::Color ", $Pod::Text::VERSION ? "(v$Pod::Text::VERSION) " : '', "with options: ", @options ? "[@options]" : "(nil)", "\n"; ; Pod::Text::Color->new(@options)->parse_from_file(@_); } 1; =head1 NAME Pod::Perldoc::ToANSI - render Pod with ANSI color escapes =head1 SYNOPSIS perldoc -o ansi Some::Modulename =head1 DESCRIPTION This is a "plug-in" class that allows Perldoc to use Pod::Text as a formatter class. It supports the following options, which are explained in L<Pod::Text>: alt, indent, loose, quotes, sentence, width For example: perldoc -o term -w indent:5 Some::Modulename =head1 CAVEAT This module may change to use a different text formatter class in the future, and this may change what options are supported. =head1 SEE ALSO L<Pod::Text>, L<Pod::Text::Color>, L<Pod::Perldoc> =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2011 Mark Allen. All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Current maintainer: Mark Allen C<< <mallen@cpan.org> >> Past contributions from: brian d foy C<< <bdfoy@cpan.org> >> Adriano R. Ferreira C<< <ferreira@cpan.org> >>, Sean M. Burke C<< <sburke@cpan.org> >> =cut PK ! ��%�0 0 5.34.0/Pod/Perldoc/GetOptsOO.pmnu �[��� package Pod::Perldoc::GetOptsOO; use strict; use vars qw($VERSION); $VERSION = '3.28'; BEGIN { # Make a DEBUG constant ASAP *DEBUG = defined( &Pod::Perldoc::DEBUG ) ? \&Pod::Perldoc::DEBUG : sub(){10}; } sub getopts { my($target, $args, $truth) = @_; $args ||= \@ARGV; $target->aside( "Starting switch processing. Scanning arguments [@$args]\n" ) if $target->can('aside'); return unless @$args; $truth = 1 unless @_ > 2; DEBUG > 3 and print " Truth is $truth\n"; my $error_count = 0; while( @$args and ($_ = $args->[0]) =~ m/^-(.)(.*)/s ) { my($first,$rest) = ($1,$2); if ($_ eq '--') { # early exit if "--" shift @$args; last; } if ($first eq '-' and $rest) { # GNU style long param names ($first, $rest) = split '=', $rest, 2; } my $method = "opt_${first}_with"; if( $target->can($method) ) { # it's argumental if($rest eq '') { # like -f bar shift @$args; $target->warn( "Option $first needs a following argument!\n" ) unless @$args; $rest = shift @$args; } else { # like -fbar (== -f bar) shift @$args; } DEBUG > 3 and print " $method => $rest\n"; $target->$method( $rest ); # Otherwise, it's not argumental... } else { if( $target->can( $method = "opt_$first" ) ) { DEBUG > 3 and print " $method is true ($truth)\n"; $target->$method( $truth ); # Otherwise it's an unknown option... } elsif( $target->can('handle_unknown_option') ) { DEBUG > 3 and print " calling handle_unknown_option('$first')\n"; $error_count += ( $target->handle_unknown_option( $first ) || 0 ); } else { ++$error_count; $target->warn( "Unknown option: $first\n" ); } if($rest eq '') { # like -f shift @$args } else { # like -fbar (== -f -bar ) DEBUG > 2 and print " Setting args->[0] to \"-$rest\"\n"; $args->[0] = "-$rest"; } } } $target->aside( "Ending switch processing. Args are [@$args] with $error_count errors.\n" ) if $target->can('aside'); $error_count == 0; } 1; __END__ =head1 NAME Pod::Perldoc::GetOptsOO - Customized option parser for Pod::Perldoc =head1 SYNOPSIS use Pod::Perldoc::GetOptsOO (); Pod::Perldoc::GetOptsOO::getopts( $obj, \@args, $truth ) or die "wrong usage"; =head1 DESCRIPTION Implements a customized option parser used for L<Pod::Perldoc>. Rather like Getopt::Std's getopts: =over =item Call Pod::Perldoc::GetOptsOO::getopts($object, \@ARGV, $truth) =item Given -n, if there's a opt_n_with, it'll call $object->opt_n_with( ARGUMENT ) (e.g., "-n foo" => $object->opt_n_with('foo'). Ditto "-nfoo") =item Otherwise (given -n) if there's an opt_n, we'll call it $object->opt_n($truth) (Truth defaults to 1) =item Otherwise we try calling $object->handle_unknown_option('n') (and we increment the error count by the return value of it) =item If there's no handle_unknown_option, then we just warn, and then increment the error counter =back The return value of Pod::Perldoc::GetOptsOO::getopts is true if no errors, otherwise it's false. =head1 SEE ALSO L<Pod::Perldoc> =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2002-2007 Sean M. Burke. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Current maintainer: Mark Allen C<< <mallen@cpan.org> >> Past contributions from: brian d foy C<< <bdfoy@cpan.org> >> Adriano R. Ferreira C<< <ferreira@cpan.org> >>, Sean M. Burke C<< <sburke@cpan.org> >> =cut PK ! `#�ke e 5.34.0/Pod/Perldoc/ToRtf.pmnu �[��� package Pod::Perldoc::ToRtf; use strict; use warnings; use parent qw( Pod::Simple::RTF ); use vars qw($VERSION); $VERSION = '3.28'; sub is_pageable { 0 } sub write_with_binmode { 0 } sub output_extension { 'rtf' } sub page_for_perldoc { my($self, $tempfile, $perldoc) = @_; return unless $perldoc->IS_MSWin32; my $rtf_pager = $ENV{'RTFREADER'} || 'write.exe'; $perldoc->aside( "About to launch <\"$rtf_pager\" \"$tempfile\">\n" ); return 1 if system( qq{"$rtf_pager"}, qq{"$tempfile"} ) == 0; return 0; } 1; __END__ =head1 NAME Pod::Perldoc::ToRtf - let Perldoc render Pod as RTF =head1 SYNOPSIS perldoc -o rtf Some::Modulename =head1 DESCRIPTION This is a "plug-in" class that allows Perldoc to use Pod::Simple::RTF as a formatter class. This is actually a Pod::Simple::RTF subclass, and inherits all its options. You have to have Pod::Simple::RTF installed (from the Pod::Simple dist), or this module won't work. If Perldoc is running under MSWin and uses this class as a formatter, the output will be opened with F<write.exe> or whatever program is specified in the environment variable C<RTFREADER>. For example, to specify that RTF files should be opened the same as they are when you double-click them, you would do C<set RTFREADER=start.exe> in your F<autoexec.bat>. Handy tip: put C<set PERLDOC=-ortf> in your F<autoexec.bat> and that will set this class as the default formatter to run when you do C<perldoc whatever>. =head1 SEE ALSO L<Pod::Simple::RTF>, L<Pod::Simple>, L<Pod::Perldoc> =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2002 Sean M. Burke. All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Current maintainer: Mark Allen C<< <mallen@cpan.org> >> Past contributions from: brian d foy C<< <bdfoy@cpan.org> >> Adriano R. Ferreira C<< <ferreira@cpan.org> >>, Sean M. Burke C<< <sburke@cpan.org> >> =cut PK ! ��� 5.34.0/Pod/Perldoc/ToXml.pmnu �[��� package Pod::Perldoc::ToXml; use strict; use warnings; use vars qw($VERSION); use parent qw( Pod::Simple::XMLOutStream ); use vars qw($VERSION); $VERSION = '3.28'; sub is_pageable { 0 } sub write_with_binmode { 0 } sub output_extension { 'xml' } 1; __END__ =head1 NAME Pod::Perldoc::ToXml - let Perldoc render Pod as XML =head1 SYNOPSIS perldoc -o xml -d out.xml Some::Modulename =head1 DESCRIPTION This is a "plug-in" class that allows Perldoc to use Pod::Simple::XMLOutStream as a formatter class. This is actually a Pod::Simple::XMLOutStream subclass, and inherits all its options. You have to have installed Pod::Simple::XMLOutStream (from the Pod::Simple dist), or this class won't work. =head1 SEE ALSO L<Pod::Simple::XMLOutStream>, L<Pod::Simple>, L<Pod::Perldoc> =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2002 Sean M. Burke. All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Current maintainer: Mark Allen C<< <mallen@cpan.org> >> Past contributions from: brian d foy C<< <bdfoy@cpan.org> >> Adriano R. Ferreira C<< <ferreira@cpan.org> >>, Sean M. Burke C<< <sburke@cpan.org> >> =cut PK ! kޛ � 5.34.0/Pod/Perldoc/ToChecker.pmnu �[��� package Pod::Perldoc::ToChecker; use strict; use warnings; use vars qw(@ISA); use vars qw($VERSION); $VERSION = '3.28'; # Pick our superclass... # eval 'require Pod::Simple::Checker'; if($@) { require Pod::Checker; @ISA = ('Pod::Checker'); } else { @ISA = ('Pod::Simple::Checker'); } sub is_pageable { 1 } sub write_with_binmode { 0 } sub output_extension { 'txt' } sub if_zero_length { my( $self, $file, $tmp, $tmpfd ) = @_; print "No Pod errors in $file\n"; } 1; __END__ =head1 NAME Pod::Perldoc::ToChecker - let Perldoc check Pod for errors =head1 SYNOPSIS % perldoc -o checker SomeFile.pod No Pod errors in SomeFile.pod (or an error report) =head1 DESCRIPTION This is a "plug-in" class that allows Perldoc to use Pod::Simple::Checker as a "formatter" class (or if that is not available, then Pod::Checker), to check for errors in a given Pod file. This is actually a Pod::Simple::Checker (or Pod::Checker) subclass, and inherits all its options. =head1 SEE ALSO L<Pod::Simple::Checker>, L<Pod::Simple>, L<Pod::Checker>, L<Pod::Perldoc> =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2002 Sean M. Burke. All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Current maintainer: Mark Allen C<< <mallen@cpan.org> >> Past contributions from: brian d foy C<< <bdfoy@cpan.org> >> Adriano R. Ferreira C<< <ferreira@cpan.org> >>, Sean M. Burke C<< <sburke@cpan.org> >> =cut PK ! � ��� � 5.34.0/Pod/Perldoc/ToPod.pmnu �[��� package Pod::Perldoc::ToPod; use strict; use warnings; use parent qw(Pod::Perldoc::BaseTo); use vars qw($VERSION); $VERSION = '3.28'; sub is_pageable { 1 } sub write_with_binmode { 0 } sub output_extension { 'pod' } sub new { return bless {}, ref($_[0]) || $_[0] } sub parse_from_file { my( $self, $in, $outfh ) = @_; open(IN, "<", $in) or $self->die( "Can't read-open $in: $!\nAborting" ); my $cut_mode = 1; # A hack for finding things between =foo and =cut, inclusive local $_; while (<IN>) { if( m/^=(\w+)/s ) { if($cut_mode = ($1 eq 'cut')) { print $outfh "\n=cut\n\n"; # Pass thru the =cut line with some harmless # (and occasionally helpful) padding } } next if $cut_mode; print $outfh $_ or $self->die( "Can't print to $outfh: $!" ); } close IN or $self->die( "Can't close $in: $!" ); return; } 1; __END__ =head1 NAME Pod::Perldoc::ToPod - let Perldoc render Pod as ... Pod! =head1 SYNOPSIS perldoc -opod Some::Modulename (That's currently the same as the following:) perldoc -u Some::Modulename =head1 DESCRIPTION This is a "plug-in" class that allows Perldoc to display Pod source as itself! Pretty Zen, huh? Currently this class works by just filtering out the non-Pod stuff from a given input file. =head1 SEE ALSO L<Pod::Perldoc> =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2002 Sean M. Burke. All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Current maintainer: Mark Allen C<< <mallencpan.org> >> Past contributions from: brian d foy C<< <bdfoy@cpan.org> >> Adriano R. Ferreira C<< <ferreira@cpan.org> >>, Sean M. Burke C<< <sburke@cpan.org> >> =cut PK ! Y2��5 5 5.34.0/Pod/Perldoc/BaseTo.pmnu �[��� package Pod::Perldoc::BaseTo; use strict; use warnings; use vars qw($VERSION); $VERSION = '3.28'; use Carp qw(croak carp); use Config qw(%Config); use File::Spec::Functions qw(catfile); sub is_pageable { '' } sub write_with_binmode { 1 } sub output_extension { 'txt' } # override in subclass! # sub new { my $self = shift; ... } # sub parse_from_file( my($class, $in, $out) = ...; ... } #sub new { return bless {}, ref($_[0]) || $_[0] } # this is also in Perldoc.pm, but why look there when you're a # subclass of this? sub TRUE () {1} sub FALSE () {return} BEGIN { *is_vms = $^O eq 'VMS' ? \&TRUE : \&FALSE unless defined &is_vms; *is_mswin32 = $^O eq 'MSWin32' ? \&TRUE : \&FALSE unless defined &is_mswin32; *is_dos = $^O eq 'dos' ? \&TRUE : \&FALSE unless defined &is_dos; *is_os2 = $^O eq 'os2' ? \&TRUE : \&FALSE unless defined &is_os2; *is_cygwin = $^O eq 'cygwin' ? \&TRUE : \&FALSE unless defined &is_cygwin; *is_linux = $^O eq 'linux' ? \&TRUE : \&FALSE unless defined &is_linux; *is_hpux = $^O =~ m/hpux/ ? \&TRUE : \&FALSE unless defined &is_hpux; *is_openbsd = $^O =~ m/openbsd/ ? \&TRUE : \&FALSE unless defined &is_openbsd; *is_freebsd = $^O =~ m/freebsd/ ? \&TRUE : \&FALSE unless defined &is_freebsd; *is_bitrig = $^O =~ m/bitrig/ ? \&TRUE : \&FALSE unless defined &is_bitrig; } sub _perldoc_elem { my($self, $name) = splice @_,0,2; if(@_) { $self->{$name} = $_[0]; } else { $self->{$name}; } } sub debugging { my( $self, @messages ) = @_; ( defined(&Pod::Perldoc::DEBUG) and &Pod::Perldoc::DEBUG() ) } sub debug { my( $self, @messages ) = @_; return unless $self->debugging; print STDERR map { "DEBUG $_" } @messages; } sub warn { my( $self, @messages ) = @_; carp join "\n", @messages, ''; } sub die { my( $self, @messages ) = @_; croak join "\n", @messages, ''; } sub _get_path_components { my( $self ) = @_; my @paths = split /\Q$Config{path_sep}/, $ENV{PATH}; return @paths; } sub _find_executable_in_path { my( $self, $program ) = @_; my @found = (); foreach my $dir ( $self->_get_path_components ) { my $binary = catfile( $dir, $program ); $self->debug( "Looking for $binary\n" ); next unless -e $binary; unless( -x $binary ) { $self->warn( "Found $binary but it's not executable. Skipping.\n" ); next; } $self->debug( "Found $binary\n" ); push @found, $binary; } return @found; } 1; __END__ =head1 NAME Pod::Perldoc::BaseTo - Base for Pod::Perldoc formatters =head1 SYNOPSIS package Pod::Perldoc::ToMyFormat; use parent qw( Pod::Perldoc::BaseTo ); ... =head1 DESCRIPTION This package is meant as a base of Pod::Perldoc formatters, like L<Pod::Perldoc::ToText>, L<Pod::Perldoc::ToMan>, etc. It provides default implementations for the methods is_pageable write_with_binmode output_extension _perldoc_elem The concrete formatter must implement new parse_from_file =head1 SEE ALSO L<perldoc> =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2002-2007 Sean M. Burke. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Current maintainer: Mark Allen C<< <mallen@cpan.org> >> Past contributions from: brian d foy C<< <bdfoy@cpan.org> >> Adriano R. Ferreira C<< <ferreira@cpan.org> >>, Sean M. Burke C<< <sburke@cpan.org> >> =cut PK ! ���� � 5.34.0/Pod/ParseLink.pmnu �[��� # Parse an L<> formatting code in POD text. # # This module implements parsing of the text of an L<> formatting code as # defined in perlpodspec. It should be suitable for any POD formatter. It # exports only one function, parselink(), which returns the five-item parse # defined in perlpodspec. # # SPDX-License-Identifier: GPL-1.0-or-later OR Artistic-1.0-Perl ############################################################################## # Modules and declarations ############################################################################## package Pod::ParseLink; use 5.008; use strict; use warnings; use vars qw(@EXPORT @ISA $VERSION); use Exporter; @ISA = qw(Exporter); @EXPORT = qw(parselink); $VERSION = '4.14'; ############################################################################## # Implementation ############################################################################## # Parse the name and section portion of a link into a name and section. sub _parse_section { my ($link) = @_; $link =~ s/^\s+//; $link =~ s/\s+$//; # If the whole link is enclosed in quotes, interpret it all as a section # even if it contains a slash. return (undef, $1) if ($link =~ /^"\s*(.*?)\s*"$/); # Split into page and section on slash, and then clean up quoting in the # section. If there is no section and the name contains spaces, also # guess that it's an old section link. my ($page, $section) = split (/\s*\/\s*/, $link, 2); $section =~ s/^"\s*(.*?)\s*"$/$1/ if $section; if ($page && $page =~ / / && !defined ($section)) { $section = $page; $page = undef; } else { $page = undef unless $page; $section = undef unless $section; } return ($page, $section); } # Infer link text from the page and section. sub _infer_text { my ($page, $section) = @_; my $inferred; if ($page && !$section) { $inferred = $page; } elsif (!$page && $section) { $inferred = '"' . $section . '"'; } elsif ($page && $section) { $inferred = '"' . $section . '" in ' . $page; } return $inferred; } # Given the contents of an L<> formatting code, parse it into the link text, # the possibly inferred link text, the name or URL, the section, and the type # of link (pod, man, or url). sub parselink { my ($link) = @_; $link =~ s/\s+/ /g; my $text; if ($link =~ /\|/) { ($text, $link) = split (/\|/, $link, 2); } if ($link =~ /\A\w+:[^:\s]\S*\Z/) { my $inferred; if (defined ($text) && length ($text) > 0) { return ($text, $text, $link, undef, 'url'); } else { return ($text, $link, $link, undef, 'url'); } } else { my ($name, $section) = _parse_section ($link); my $inferred; if (defined ($text) && length ($text) > 0) { $inferred = $text; } else { $inferred = _infer_text ($name, $section); } my $type = ($name && $name =~ /\(\S*\)/) ? 'man' : 'pod'; return ($text, $inferred, $name, $section, $type); } } ############################################################################## # Module return value and documentation ############################################################################## # Ensure we evaluate to true. 1; __END__ =for stopwords markup Allbery URL =head1 NAME Pod::ParseLink - Parse an LE<lt>E<gt> formatting code in POD text =head1 SYNOPSIS use Pod::ParseLink; my $link = get_link(); my ($text, $inferred, $name, $section, $type) = parselink($link); =head1 DESCRIPTION This module only provides a single function, parselink(), which takes the text of an LE<lt>E<gt> formatting code and parses it. It returns the anchor text for the link (if any was given), the anchor text possibly inferred from the name and section, the name or URL, the section if any, and the type of link. The type will be one of C<url>, C<pod>, or C<man>, indicating a URL, a link to a POD page, or a link to a Unix manual page. Parsing is implemented per L<perlpodspec>. For backward compatibility, links where there is no section and name contains spaces, or links where the entirety of the link (except for the anchor text if given) is enclosed in double-quotes are interpreted as links to a section (LE<lt>/sectionE<gt>). The inferred anchor text is implemented per L<perlpodspec>: L<name> => L<name|name> L</section> => L<"section"|/section> L<name/section> => L<"section" in name|name/section> The name may contain embedded EE<lt>E<gt> and ZE<lt>E<gt> formatting codes, and the section, anchor text, and inferred anchor text may contain any formatting codes. Any double quotes around the section are removed as part of the parsing, as is any leading or trailing whitespace. If the text of the LE<lt>E<gt> escape is entirely enclosed in double quotes, it's interpreted as a link to a section for backward compatibility. No attempt is made to resolve formatting codes. This must be done after calling parselink() (since EE<lt>E<gt> formatting codes can be used to escape characters that would otherwise be significant to the parser and resolving them before parsing would result in an incorrect parse of a formatting code like: L<verticalE<verbar>barE<sol>slash> which should be interpreted as a link to the C<vertical|bar/slash> POD page and not as a link to the C<slash> section of the C<bar> POD page with an anchor text of C<vertical>. Note that not only the anchor text will need to have formatting codes expanded, but so will the target of the link (to deal with EE<lt>E<gt> and ZE<lt>E<gt> formatting codes), and special handling of the section may be necessary depending on whether the translator wants to consider markup in sections to be significant when resolving links. See L<perlpodspec> for more information. =head1 AUTHOR Russ Allbery <rra@cpan.org> =head1 COPYRIGHT AND LICENSE Copyright 2001, 2008, 2009, 2014, 2018-2019 Russ Allbery <rra@cpan.org> This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO L<Pod::Parser> The current version of this module is always available from its web site at L<https://www.eyrie.org/~eagle/software/podlators/>. =cut # Local Variables: # copyright-at-end-flag: t # End: PK ! �{)e`� `� 5.34.0/Pod/Text.pmnu �[��� # Convert POD data to formatted text. # # This module converts POD to formatted text. It replaces the old Pod::Text # module that came with versions of Perl prior to 5.6.0 and attempts to match # its output except for some specific circumstances where other decisions # seemed to produce better output. It uses Pod::Parser and is designed to be # very easy to subclass. # # SPDX-License-Identifier: GPL-1.0-or-later OR Artistic-1.0-Perl ############################################################################## # Modules and declarations ############################################################################## package Pod::Text; use 5.008; use strict; use warnings; use vars qw(@ISA @EXPORT %ESCAPES $VERSION); use Carp qw(carp croak); use Encode qw(encode); use Exporter (); use Pod::Simple (); @ISA = qw(Pod::Simple Exporter); # We have to export pod2text for backward compatibility. @EXPORT = qw(pod2text); $VERSION = '4.14'; # Ensure that $Pod::Simple::nbsp and $Pod::Simple::shy are available. Code # taken from Pod::Simple 3.32, but was only added in 3.30. my ($NBSP, $SHY); if ($Pod::Simple::VERSION ge 3.30) { $NBSP = $Pod::Simple::nbsp; $SHY = $Pod::Simple::shy; } else { $NBSP = chr utf8::unicode_to_native(0xA0); $SHY = chr utf8::unicode_to_native(0xAD); } ############################################################################## # Initialization ############################################################################## # This function handles code blocks. It's registered as a callback to # Pod::Simple and therefore doesn't work as a regular method call, but all it # does is call output_code with the line. sub handle_code { my ($line, $number, $parser) = @_; $parser->output_code ($line . "\n"); } # Initialize the object and set various Pod::Simple options that we need. # Here, we also process any additional options passed to the constructor or # set up defaults if none were given. Note that all internal object keys are # in all-caps, reserving all lower-case object keys for Pod::Simple and user # arguments. sub new { my $class = shift; my $self = $class->SUPER::new; # Tell Pod::Simple to handle S<> by automatically inserting . $self->nbsp_for_S (1); # Tell Pod::Simple to keep whitespace whenever possible. if ($self->can ('preserve_whitespace')) { $self->preserve_whitespace (1); } else { $self->fullstop_space_harden (1); } # The =for and =begin targets that we accept. $self->accept_targets (qw/text TEXT/); # Ensure that contiguous blocks of code are merged together. Otherwise, # some of the guesswork heuristics don't work right. $self->merge_text (1); # Pod::Simple doesn't do anything useful with our arguments, but we want # to put them in our object as hash keys and values. This could cause # problems if we ever clash with Pod::Simple's own internal class # variables. my %opts = @_; my @opts = map { ("opt_$_", $opts{$_}) } keys %opts; %$self = (%$self, @opts); # Send errors to stderr if requested. if ($$self{opt_stderr} and not $$self{opt_errors}) { $$self{opt_errors} = 'stderr'; } delete $$self{opt_stderr}; # Validate the errors parameter and act on it. if (not defined $$self{opt_errors}) { $$self{opt_errors} = 'pod'; } if ($$self{opt_errors} eq 'stderr' || $$self{opt_errors} eq 'die') { $self->no_errata_section (1); $self->complain_stderr (1); if ($$self{opt_errors} eq 'die') { $$self{complain_die} = 1; } } elsif ($$self{opt_errors} eq 'pod') { $self->no_errata_section (0); $self->complain_stderr (0); } elsif ($$self{opt_errors} eq 'none') { $self->no_errata_section (1); $self->no_whining (1); } else { croak (qq(Invalid errors setting: "$$self{errors}")); } delete $$self{errors}; # Initialize various things from our parameters. $$self{opt_alt} = 0 unless defined $$self{opt_alt}; $$self{opt_indent} = 4 unless defined $$self{opt_indent}; $$self{opt_margin} = 0 unless defined $$self{opt_margin}; $$self{opt_loose} = 0 unless defined $$self{opt_loose}; $$self{opt_sentence} = 0 unless defined $$self{opt_sentence}; $$self{opt_width} = 76 unless defined $$self{opt_width}; # Figure out what quotes we'll be using for C<> text. $$self{opt_quotes} ||= '"'; if ($$self{opt_quotes} eq 'none') { $$self{LQUOTE} = $$self{RQUOTE} = ''; } elsif (length ($$self{opt_quotes}) == 1) { $$self{LQUOTE} = $$self{RQUOTE} = $$self{opt_quotes}; } elsif (length ($$self{opt_quotes}) % 2 == 0) { my $length = length ($$self{opt_quotes}) / 2; $$self{LQUOTE} = substr ($$self{opt_quotes}, 0, $length); $$self{RQUOTE} = substr ($$self{opt_quotes}, $length); } else { croak qq(Invalid quote specification "$$self{opt_quotes}"); } # If requested, do something with the non-POD text. $self->code_handler (\&handle_code) if $$self{opt_code}; # Return the created object. return $self; } ############################################################################## # Core parsing ############################################################################## # This is the glue that connects the code below with Pod::Simple itself. The # goal is to convert the event stream coming from the POD parser into method # calls to handlers once the complete content of a tag has been seen. Each # paragraph or POD command will have textual content associated with it, and # as soon as all of a paragraph or POD command has been seen, that content # will be passed in to the corresponding method for handling that type of # object. The exceptions are handlers for lists, which have opening tag # handlers and closing tag handlers that will be called right away. # # The internal hash key PENDING is used to store the contents of a tag until # all of it has been seen. It holds a stack of open tags, each one # represented by a tuple of the attributes hash for the tag and the contents # of the tag. # Add a block of text to the contents of the current node, formatting it # according to the current formatting instructions as we do. sub _handle_text { my ($self, $text) = @_; my $tag = $$self{PENDING}[-1]; $$tag[1] .= $text; } # Given an element name, get the corresponding method name. sub method_for_element { my ($self, $element) = @_; $element =~ tr/-/_/; $element =~ tr/A-Z/a-z/; $element =~ tr/_a-z0-9//cd; return $element; } # Handle the start of a new element. If cmd_element is defined, assume that # we need to collect the entire tree for this element before passing it to the # element method, and create a new tree into which we'll collect blocks of # text and nested elements. Otherwise, if start_element is defined, call it. sub _handle_element_start { my ($self, $element, $attrs) = @_; my $method = $self->method_for_element ($element); # If we have a command handler, we need to accumulate the contents of the # tag before calling it. if ($self->can ("cmd_$method")) { push (@{ $$self{PENDING} }, [ $attrs, '' ]); } elsif ($self->can ("start_$method")) { my $method = 'start_' . $method; $self->$method ($attrs, ''); } } # Handle the end of an element. If we had a cmd_ method for this element, # this is where we pass along the text that we've accumulated. Otherwise, if # we have an end_ method for the element, call that. sub _handle_element_end { my ($self, $element) = @_; my $method = $self->method_for_element ($element); # If we have a command handler, pull off the pending text and pass it to # the handler along with the saved attribute hash. if ($self->can ("cmd_$method")) { my $tag = pop @{ $$self{PENDING} }; my $method = 'cmd_' . $method; my $text = $self->$method (@$tag); if (defined $text) { if (@{ $$self{PENDING} } > 1) { $$self{PENDING}[-1][1] .= $text; } else { $self->output ($text); } } } elsif ($self->can ("end_$method")) { my $method = 'end_' . $method; $self->$method (); } } ############################################################################## # Output formatting ############################################################################## # Wrap a line, indenting by the current left margin. We can't use Text::Wrap # because it plays games with tabs. We can't use formline, even though we'd # really like to, because it screws up non-printing characters. So we have to # do the wrapping ourselves. sub wrap { my $self = shift; local $_ = shift; my $output = ''; my $spaces = ' ' x $$self{MARGIN}; my $width = $$self{opt_width} - $$self{MARGIN}; while (length > $width) { if (s/^([^\n]{0,$width})[ \t\n]+// || s/^([^\n]{$width})//) { $output .= $spaces . $1 . "\n"; } else { last; } } $output .= $spaces . $_; $output =~ s/\s+$/\n\n/; return $output; } # Reformat a paragraph of text for the current margin. Takes the text to # reformat and returns the formatted text. sub reformat { my $self = shift; local $_ = shift; # If we're trying to preserve two spaces after sentences, do some munging # to support that. Otherwise, smash all repeated whitespace. Be careful # not to use \s here, which in Unicode input may match non-breaking spaces # that we don't want to smash. if ($$self{opt_sentence}) { s/ +$//mg; s/\.\n/. \n/g; s/\n/ /g; s/ +/ /g; } else { s/[ \t\n]+/ /g; } return $self->wrap ($_); } # Output text to the output device. Replace non-breaking spaces with spaces # and soft hyphens with nothing, and then try to fix the output encoding if # necessary to match the input encoding unless UTF-8 output is forced. This # preserves the traditional pass-through behavior of Pod::Text. sub output { my ($self, @text) = @_; my $text = join ('', @text); if ($NBSP) { $text =~ s/$NBSP/ /g; } if ($SHY) { $text =~ s/$SHY//g; } unless ($$self{opt_utf8}) { my $encoding = $$self{encoding} || ''; if ($encoding && $encoding ne $$self{ENCODING}) { $$self{ENCODING} = $encoding; eval { binmode ($$self{output_fh}, ":encoding($encoding)") }; } } if ($$self{ENCODE}) { print { $$self{output_fh} } encode ('UTF-8', $text); } else { print { $$self{output_fh} } $text; } } # Output a block of code (something that isn't part of the POD text). Called # by preprocess_paragraph only if we were given the code option. Exists here # only so that it can be overridden by subclasses. sub output_code { $_[0]->output ($_[1]) } ############################################################################## # Document initialization ############################################################################## # Set up various things that have to be initialized on a per-document basis. sub start_document { my ($self, $attrs) = @_; if ($$attrs{contentless} && !$$self{ALWAYS_EMIT_SOMETHING}) { $$self{CONTENTLESS} = 1; } else { delete $$self{CONTENTLESS}; } my $margin = $$self{opt_indent} + $$self{opt_margin}; # Initialize a few per-document variables. $$self{INDENTS} = []; # Stack of indentations. $$self{MARGIN} = $margin; # Default left margin. $$self{PENDING} = [[]]; # Pending output. # We have to redo encoding handling for each document. $$self{ENCODING} = ''; # When UTF-8 output is set, check whether our output file handle already # has a PerlIO encoding layer set. If it does not, we'll need to encode # our output before printing it (handled in the output() sub). $$self{ENCODE} = 0; if ($$self{opt_utf8}) { $$self{ENCODE} = 1; eval { my @options = (output => 1, details => 1); my $flag = (PerlIO::get_layers ($$self{output_fh}, @options))[-1]; if ($flag && ($flag & PerlIO::F_UTF8 ())) { $$self{ENCODE} = 0; $$self{ENCODING} = 'UTF-8'; } }; } return ''; } # Handle the end of the document. The only thing we do is handle dying on POD # errors, since Pod::Parser currently doesn't. sub end_document { my ($self) = @_; if ($$self{complain_die} && $self->errors_seen) { croak ("POD document had syntax errors"); } } ############################################################################## # Text blocks ############################################################################## # Intended for subclasses to override, this method returns text with any # non-printing formatting codes stripped out so that length() correctly # returns the length of the text. For basic Pod::Text, it does nothing. sub strip_format { my ($self, $string) = @_; return $string; } # This method is called whenever an =item command is complete (in other words, # we've seen its associated paragraph or know for certain that it doesn't have # one). It gets the paragraph associated with the item as an argument. If # that argument is empty, just output the item tag; if it contains a newline, # output the item tag followed by the newline. Otherwise, see if there's # enough room for us to output the item tag in the margin of the text or if we # have to put it on a separate line. sub item { my ($self, $text) = @_; my $tag = $$self{ITEM}; unless (defined $tag) { carp "Item called without tag"; return; } undef $$self{ITEM}; # Calculate the indentation and margin. $fits is set to true if the tag # will fit into the margin of the paragraph given our indentation level. my $indent = $$self{INDENTS}[-1]; $indent = $$self{opt_indent} unless defined $indent; my $margin = ' ' x $$self{opt_margin}; my $tag_length = length ($self->strip_format ($tag)); my $fits = ($$self{MARGIN} - $indent >= $tag_length + 1); # If the tag doesn't fit, or if we have no associated text, print out the # tag separately. Otherwise, put the tag in the margin of the paragraph. if (!$text || $text =~ /^\s+$/ || !$fits) { my $realindent = $$self{MARGIN}; $$self{MARGIN} = $indent; my $output = $self->reformat ($tag); $output =~ s/^$margin /$margin:/ if ($$self{opt_alt} && $indent > 0); $output =~ s/\n*$/\n/; # If the text is just whitespace, we have an empty item paragraph; # this can result from =over/=item/=back without any intermixed # paragraphs. Insert some whitespace to keep the =item from merging # into the next paragraph. $output .= "\n" if $text && $text =~ /^\s*$/; $self->output ($output); $$self{MARGIN} = $realindent; $self->output ($self->reformat ($text)) if ($text && $text =~ /\S/); } else { my $space = ' ' x $indent; $space =~ s/^$margin /$margin:/ if $$self{opt_alt}; $text = $self->reformat ($text); $text =~ s/^$margin /$margin:/ if ($$self{opt_alt} && $indent > 0); my $tagspace = ' ' x $tag_length; $text =~ s/^($space)$tagspace/$1$tag/ or warn "Bizarre space in item"; $self->output ($text); } } # Handle a basic block of text. The only tricky thing here is that if there # is a pending item tag, we need to format this as an item paragraph. sub cmd_para { my ($self, $attrs, $text) = @_; $text =~ s/\s+$/\n/; if (defined $$self{ITEM}) { $self->item ($text . "\n"); } else { $self->output ($self->reformat ($text . "\n")); } return ''; } # Handle a verbatim paragraph. Just print it out, but indent it according to # our margin. sub cmd_verbatim { my ($self, $attrs, $text) = @_; $self->item if defined $$self{ITEM}; return if $text =~ /^\s*$/; $text =~ s/^(\n*)([ \t]*\S+)/$1 . (' ' x $$self{MARGIN}) . $2/gme; $text =~ s/\s*$/\n\n/; $self->output ($text); return ''; } # Handle literal text (produced by =for and similar constructs). Just output # it with the minimum of changes. sub cmd_data { my ($self, $attrs, $text) = @_; $text =~ s/^\n+//; $text =~ s/\n{0,2}$/\n/; $self->output ($text); return ''; } ############################################################################## # Headings ############################################################################## # The common code for handling all headers. Takes the header text, the # indentation, and the surrounding marker for the alt formatting method. sub heading { my ($self, $text, $indent, $marker) = @_; $self->item ("\n\n") if defined $$self{ITEM}; $text =~ s/\s+$//; if ($$self{opt_alt}) { my $closemark = reverse (split (//, $marker)); my $margin = ' ' x $$self{opt_margin}; $self->output ("\n" . "$margin$marker $text $closemark" . "\n\n"); } else { $text .= "\n" if $$self{opt_loose}; my $margin = ' ' x ($$self{opt_margin} + $indent); $self->output ($margin . $text . "\n"); } return ''; } # First level heading. sub cmd_head1 { my ($self, $attrs, $text) = @_; $self->heading ($text, 0, '===='); } # Second level heading. sub cmd_head2 { my ($self, $attrs, $text) = @_; $self->heading ($text, $$self{opt_indent} / 2, '== '); } # Third level heading. sub cmd_head3 { my ($self, $attrs, $text) = @_; $self->heading ($text, $$self{opt_indent} * 2 / 3 + 0.5, '= '); } # Fourth level heading. sub cmd_head4 { my ($self, $attrs, $text) = @_; $self->heading ($text, $$self{opt_indent} * 3 / 4 + 0.5, '- '); } ############################################################################## # List handling ############################################################################## # Handle the beginning of an =over block. Takes the type of the block as the # first argument, and then the attr hash. This is called by the handlers for # the four different types of lists (bullet, number, text, and block). sub over_common_start { my ($self, $attrs) = @_; $self->item ("\n\n") if defined $$self{ITEM}; # Find the indentation level. my $indent = $$attrs{indent}; unless (defined ($indent) && $indent =~ /^\s*[-+]?\d{1,4}\s*$/) { $indent = $$self{opt_indent}; } # Add this to our stack of indents and increase our current margin. push (@{ $$self{INDENTS} }, $$self{MARGIN}); $$self{MARGIN} += ($indent + 0); return ''; } # End an =over block. Takes no options other than the class pointer. Output # any pending items and then pop one level of indentation. sub over_common_end { my ($self) = @_; $self->item ("\n\n") if defined $$self{ITEM}; $$self{MARGIN} = pop @{ $$self{INDENTS} }; return ''; } # Dispatch the start and end calls as appropriate. sub start_over_bullet { $_[0]->over_common_start ($_[1]) } sub start_over_number { $_[0]->over_common_start ($_[1]) } sub start_over_text { $_[0]->over_common_start ($_[1]) } sub start_over_block { $_[0]->over_common_start ($_[1]) } sub end_over_bullet { $_[0]->over_common_end } sub end_over_number { $_[0]->over_common_end } sub end_over_text { $_[0]->over_common_end } sub end_over_block { $_[0]->over_common_end } # The common handler for all item commands. Takes the type of the item, the # attributes, and then the text of the item. sub item_common { my ($self, $type, $attrs, $text) = @_; $self->item if defined $$self{ITEM}; # Clean up the text. We want to end up with two variables, one ($text) # which contains any body text after taking out the item portion, and # another ($item) which contains the actual item text. Note the use of # the internal Pod::Simple attribute here; that's a potential land mine. $text =~ s/\s+$//; my ($item, $index); if ($type eq 'bullet') { $item = '*'; } elsif ($type eq 'number') { $item = $$attrs{'~orig_content'}; } else { $item = $text; $item =~ s/\s*\n\s*/ /g; $text = ''; } $$self{ITEM} = $item; # If body text for this item was included, go ahead and output that now. if ($text) { $text =~ s/\s*$/\n/; $self->item ($text); } return ''; } # Dispatch the item commands to the appropriate place. sub cmd_item_bullet { my $self = shift; $self->item_common ('bullet', @_) } sub cmd_item_number { my $self = shift; $self->item_common ('number', @_) } sub cmd_item_text { my $self = shift; $self->item_common ('text', @_) } sub cmd_item_block { my $self = shift; $self->item_common ('block', @_) } ############################################################################## # Formatting codes ############################################################################## # The simple ones. sub cmd_b { return $_[0]{alt} ? "``$_[2]''" : $_[2] } sub cmd_f { return $_[0]{alt} ? "\"$_[2]\"" : $_[2] } sub cmd_i { return '*' . $_[2] . '*' } sub cmd_x { return '' } # Apply a whole bunch of messy heuristics to not quote things that don't # benefit from being quoted. These originally come from Barrie Slaymaker and # largely duplicate code in Pod::Man. sub cmd_c { my ($self, $attrs, $text) = @_; # A regex that matches the portion of a variable reference that's the # array or hash index, separated out just because we want to use it in # several places in the following regex. my $index = '(?: \[.*\] | \{.*\} )?'; # Check for things that we don't want to quote, and if we find any of # them, return the string with just a font change and no quoting. $text =~ m{ ^\s* (?: ( [\'\`\"] ) .* \1 # already quoted | \` .* \' # `quoted' | \$+ [\#^]? \S $index # special ($^Foo, $") | [\$\@%&*]+ \#? [:\'\w]+ $index # plain var or func | [\$\@%&*]* [:\'\w]+ (?: -> )? \(\s*[^\s,]\s*\) # 0/1-arg func call | [+-]? ( \d[\d.]* | \.\d+ ) (?: [eE][+-]?\d+ )? # a number | 0x [a-fA-F\d]+ # a hex constant ) \s*\z }xo && return $text; # If we didn't return, go ahead and quote the text. return $$self{opt_alt} ? "``$text''" : "$$self{LQUOTE}$text$$self{RQUOTE}"; } # Links reduce to the text that we're given, wrapped in angle brackets if it's # a URL. sub cmd_l { my ($self, $attrs, $text) = @_; if ($$attrs{type} eq 'url') { if (not defined($$attrs{to}) or $$attrs{to} eq $text) { return "<$text>"; } elsif ($$self{opt_nourls}) { return $text; } else { return "$text <$$attrs{to}>"; } } else { return $text; } } ############################################################################## # Backwards compatibility ############################################################################## # The old Pod::Text module did everything in a pod2text() function. This # tries to provide the same interface for legacy applications. sub pod2text { my @args; # This is really ugly; I hate doing option parsing in the middle of a # module. But the old Pod::Text module supported passing flags to its # entry function, so handle -a and -<number>. while ($_[0] =~ /^-/) { my $flag = shift; if ($flag eq '-a') { push (@args, alt => 1) } elsif ($flag =~ /^-(\d+)$/) { push (@args, width => $1) } else { unshift (@_, $flag); last; } } # Now that we know what arguments we're using, create the parser. my $parser = Pod::Text->new (@args); # If two arguments were given, the second argument is going to be a file # handle. That means we want to call parse_from_filehandle(), which means # we need to turn the first argument into a file handle. Magic open will # handle the <&STDIN case automagically. if (defined $_[1]) { my @fhs = @_; local *IN; unless (open (IN, $fhs[0])) { croak ("Can't open $fhs[0] for reading: $!\n"); return; } $fhs[0] = \*IN; $parser->output_fh ($fhs[1]); my $retval = $parser->parse_file ($fhs[0]); my $fh = $parser->output_fh (); close $fh; return $retval; } else { $parser->output_fh (\*STDOUT); return $parser->parse_file (@_); } } # Reset the underlying Pod::Simple object between calls to parse_from_file so # that the same object can be reused to convert multiple pages. sub parse_from_file { my $self = shift; $self->reinit; # Fake the old cutting option to Pod::Parser. This fiddles with internal # Pod::Simple state and is quite ugly; we need a better approach. if (ref ($_[0]) eq 'HASH') { my $opts = shift @_; if (defined ($$opts{-cutting}) && !$$opts{-cutting}) { $$self{in_pod} = 1; $$self{last_was_blank} = 1; } } # Do the work. my $retval = $self->Pod::Simple::parse_from_file (@_); # Flush output, since Pod::Simple doesn't do this. Ideally we should also # close the file descriptor if we had to open one, but we can't easily # figure this out. my $fh = $self->output_fh (); my $oldfh = select $fh; my $oldflush = $|; $| = 1; print $fh ''; $| = $oldflush; select $oldfh; return $retval; } # Pod::Simple failed to provide this backward compatibility function, so # implement it ourselves. File handles are one of the inputs that # parse_from_file supports. sub parse_from_filehandle { my $self = shift; $self->parse_from_file (@_); } # Pod::Simple's parse_file doesn't set output_fh. Wrap the call and do so # ourself unless it was already set by the caller, since our documentation has # always said that this should work. sub parse_file { my ($self, $in) = @_; unless (defined $$self{output_fh}) { $self->output_fh (\*STDOUT); } return $self->SUPER::parse_file ($in); } # Do the same for parse_lines, just to be polite. Pod::Simple's man page # implies that the caller is responsible for setting this, but I don't see any # reason not to set a default. sub parse_lines { my ($self, @lines) = @_; unless (defined $$self{output_fh}) { $self->output_fh (\*STDOUT); } return $self->SUPER::parse_lines (@lines); } # Likewise for parse_string_document. sub parse_string_document { my ($self, $doc) = @_; unless (defined $$self{output_fh}) { $self->output_fh (\*STDOUT); } return $self->SUPER::parse_string_document ($doc); } ############################################################################## # Module return value and documentation ############################################################################## 1; __END__ =for stopwords alt stderr Allbery Sean Burke's Christiansen UTF-8 pre-Unicode utf8 nourls parsers =head1 NAME Pod::Text - Convert POD data to formatted text =head1 SYNOPSIS use Pod::Text; my $parser = Pod::Text->new (sentence => 1, width => 78); # Read POD from STDIN and write to STDOUT. $parser->parse_from_filehandle; # Read POD from file.pod and write to file.txt. $parser->parse_from_file ('file.pod', 'file.txt'); =head1 DESCRIPTION Pod::Text is a module that can convert documentation in the POD format (the preferred language for documenting Perl) into formatted text. It uses no special formatting controls or codes whatsoever, and its output is therefore suitable for nearly any device. As a derived class from Pod::Simple, Pod::Text supports the same methods and interfaces. See L<Pod::Simple> for all the details; briefly, one creates a new parser with C<< Pod::Text->new() >> and then normally calls parse_file(). new() can take options, in the form of key/value pairs, that control the behavior of the parser. The currently recognized options are: =over 4 =item alt If set to a true value, selects an alternate output format that, among other things, uses a different heading style and marks C<=item> entries with a colon in the left margin. Defaults to false. =item code If set to a true value, the non-POD parts of the input file will be included in the output. Useful for viewing code documented with POD blocks with the POD rendered and the code left intact. =item errors How to report errors. C<die> says to throw an exception on any POD formatting error. C<stderr> says to report errors on standard error, but not to throw an exception. C<pod> says to include a POD ERRORS section in the resulting documentation summarizing the errors. C<none> ignores POD errors entirely, as much as possible. The default is C<pod>. =item indent The number of spaces to indent regular text, and the default indentation for C<=over> blocks. Defaults to 4. =item loose If set to a true value, a blank line is printed after a C<=head1> heading. If set to false (the default), no blank line is printed after C<=head1>, although one is still printed after C<=head2>. This is the default because it's the expected formatting for manual pages; if you're formatting arbitrary text documents, setting this to true may result in more pleasing output. =item margin The width of the left margin in spaces. Defaults to 0. This is the margin for all text, including headings, not the amount by which regular text is indented; for the latter, see the I<indent> option. To set the right margin, see the I<width> option. =item nourls Normally, LZ<><> formatting codes with a URL but anchor text are formatted to show both the anchor text and the URL. In other words: L<foo|http://example.com/> is formatted as: foo <http://example.com/> This option, if set to a true value, suppresses the URL when anchor text is given, so this example would be formatted as just C<foo>. This can produce less cluttered output in cases where the URLs are not particularly important. =item quotes Sets the quote marks used to surround CE<lt>> text. If the value is a single character, it is used as both the left and right quote. Otherwise, it is split in half, and the first half of the string is used as the left quote and the second is used as the right quote. This may also be set to the special value C<none>, in which case no quote marks are added around CE<lt>> text. =item sentence If set to a true value, Pod::Text will assume that each sentence ends in two spaces, and will try to preserve that spacing. If set to false, all consecutive whitespace in non-verbatim paragraphs is compressed into a single space. Defaults to false. =item stderr Send error messages about invalid POD to standard error instead of appending a POD ERRORS section to the generated output. This is equivalent to setting C<errors> to C<stderr> if C<errors> is not already set. It is supported for backward compatibility. =item utf8 By default, Pod::Text uses the same output encoding as the input encoding of the POD source (provided that Perl was built with PerlIO; otherwise, it doesn't encode its output). If this option is given, the output encoding is forced to UTF-8. Be aware that, when using this option, the input encoding of your POD source should be properly declared unless it's US-ASCII. Pod::Simple will attempt to guess the encoding and may be successful if it's Latin-1 or UTF-8, but it will produce warnings. Use the C<=encoding> command to declare the encoding. See L<perlpod(1)> for more information. =item width The column at which to wrap text on the right-hand side. Defaults to 76. =back The standard Pod::Simple method parse_file() takes one argument naming the POD file to read from. By default, the output is sent to C<STDOUT>, but this can be changed with the output_fh() method. The standard Pod::Simple method parse_from_file() takes up to two arguments, the first being the input file to read POD from and the second being the file to write the formatted output to. You can also call parse_lines() to parse an array of lines or parse_string_document() to parse a document already in memory. As with parse_file(), parse_lines() and parse_string_document() default to sending their output to C<STDOUT> unless changed with the output_fh() method. Be aware that parse_lines() and parse_string_document() both expect raw bytes, not decoded characters. To put the output from any parse method into a string instead of a file handle, call the output_string() method instead of output_fh(). See L<Pod::Simple> for more specific details on the methods available to all derived parsers. =head1 DIAGNOSTICS =over 4 =item Bizarre space in item =item Item called without tag (W) Something has gone wrong in internal C<=item> processing. These messages indicate a bug in Pod::Text; you should never see them. =item Can't open %s for reading: %s (F) Pod::Text was invoked via the compatibility mode pod2text() interface and the input file it was given could not be opened. =item Invalid errors setting "%s" (F) The C<errors> parameter to the constructor was set to an unknown value. =item Invalid quote specification "%s" (F) The quote specification given (the C<quotes> option to the constructor) was invalid. A quote specification must be either one character long or an even number (greater than one) characters long. =item POD document had syntax errors (F) The POD document being formatted had syntax errors and the C<errors> option was set to C<die>. =back =head1 BUGS Encoding handling assumes that PerlIO is available and does not work properly if it isn't. The C<utf8> option is therefore not supported unless Perl is built with PerlIO support. =head1 CAVEATS If Pod::Text is given the C<utf8> option, the encoding of its output file handle will be forced to UTF-8 if possible, overriding any existing encoding. This will be done even if the file handle is not created by Pod::Text and was passed in from outside. This maintains consistency regardless of PERL_UNICODE and other settings. If the C<utf8> option is not given, the encoding of its output file handle will be forced to the detected encoding of the input POD, which preserves whatever the input text is. This ensures backward compatibility with earlier, pre-Unicode versions of this module, without large numbers of Perl warnings. This is not ideal, but it seems to be the best compromise. If it doesn't work for you, please let me know the details of how it broke. =head1 NOTES This is a replacement for an earlier Pod::Text module written by Tom Christiansen. It has a revamped interface, since it now uses Pod::Simple, but an interface roughly compatible with the old Pod::Text::pod2text() function is still available. Please change to the new calling convention, though. The original Pod::Text contained code to do formatting via termcap sequences, although it wasn't turned on by default and it was problematic to get it to work at all. This rewrite doesn't even try to do that, but a subclass of it does. Look for L<Pod::Text::Termcap>. =head1 AUTHOR Russ Allbery <rra@cpan.org>, based I<very> heavily on the original Pod::Text by Tom Christiansen <tchrist@mox.perl.com> and its conversion to Pod::Parser by Brad Appleton <bradapp@enteract.com>. Sean Burke's initial conversion of Pod::Man to use Pod::Simple provided much-needed guidance on how to use Pod::Simple. =head1 COPYRIGHT AND LICENSE Copyright 1999-2002, 2004, 2006, 2008-2009, 2012-2016, 2018-2019 Russ Allbery <rra@cpan.org> This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO L<Pod::Simple>, L<Pod::Text::Termcap>, L<perlpod(1)>, L<pod2text(1)> The current version of this module is always available from its web site at L<https://www.eyrie.org/~eagle/software/podlators/>. It is also part of the Perl core distribution as of 5.6.0. =cut # Local Variables: # copyright-at-end-flag: t # End: PK ! ���>y y 5.34.0/Pod/Usage.pmnu �[��� ############################################################################# # Pod/Usage.pm -- print usage messages for the running script. # # Copyright (c) 1996-2000 by Bradford Appleton. All rights reserved. # Copyright (c) 2001-2016 by Marek Rouchal. # This file is part of "Pod-Usage". Pod-Usage is free software; # you can redistribute it and/or modify it under the same terms # as Perl itself. ############################################################################# package Pod::Usage; use strict; require 5.006; ## requires this Perl version or later use Carp; use Config; use Exporter; use File::Spec; our $VERSION = '2.01'; our @EXPORT = qw(&pod2usage); our @ISA; BEGIN { $Pod::Usage::Formatter ||= 'Pod::Text'; eval "require $Pod::Usage::Formatter"; die $@ if $@; @ISA = ( $Pod::Usage::Formatter ); } our $MAX_HEADING_LEVEL = 3; ##--------------------------------------------------------------------------- ##--------------------------------- ## Function definitions begin here ##--------------------------------- sub pod2usage { local($_) = shift; my %opts; ## Collect arguments if (@_ > 0) { ## Too many arguments - assume that this is a hash and ## the user forgot to pass a reference to it. %opts = ($_, @_); } elsif (!defined $_) { $_ = ''; } elsif (ref $_) { ## User passed a ref to a hash %opts = %{$_} if (ref($_) eq 'HASH'); } elsif (/^[-+]?\d+$/) { ## User passed in the exit value to use $opts{'-exitval'} = $_; } else { ## User passed in a message to print before issuing usage. $_ and $opts{'-message'} = $_; } ## Need this for backward compatibility since we formerly used ## options that were all uppercase words rather than ones that ## looked like Unix command-line options. ## to be uppercase keywords) %opts = map { my ($key, $val) = ($_, $opts{$_}); $key =~ s/^(?=\w)/-/; $key =~ /^-msg/i and $key = '-message'; $key =~ /^-exit/i and $key = '-exitval'; lc($key) => $val; } (keys %opts); ## Now determine default -exitval and -verbose values to use if ((! defined $opts{'-exitval'}) && (! defined $opts{'-verbose'})) { $opts{'-exitval'} = 2; $opts{'-verbose'} = 0; } elsif (! defined $opts{'-exitval'}) { $opts{'-exitval'} = ($opts{'-verbose'} > 0) ? 1 : 2; } elsif (! defined $opts{'-verbose'}) { $opts{'-verbose'} = (lc($opts{'-exitval'}) eq 'noexit' || $opts{'-exitval'} < 2); } ## Default the output file $opts{'-output'} = (lc($opts{'-exitval'}) eq 'noexit' || $opts{'-exitval'} < 2) ? \*STDOUT : \*STDERR unless (defined $opts{'-output'}); ## Default the input file $opts{'-input'} = $0 unless (defined $opts{'-input'}); ## Look up input file in path if it doesn't exist. unless ((ref $opts{'-input'}) || (-e $opts{'-input'})) { my $basename = $opts{'-input'}; my $pathsep = ($^O =~ /^(?:dos|os2|MSWin32)$/i) ? ';' : (($^O eq 'MacOS' || $^O eq 'VMS') ? ',' : ':'); my $pathspec = $opts{'-pathlist'} || $ENV{PATH} || $ENV{PERL5LIB}; my @paths = (ref $pathspec) ? @$pathspec : split($pathsep, $pathspec); for my $dirname (@paths) { $_ = length($dirname) ? File::Spec->catfile($dirname, $basename) : $basename; last if (-e $_) && ($opts{'-input'} = $_); } } ## Now create a pod reader and constrain it to the desired sections. my $parser = Pod::Usage->new(USAGE_OPTIONS => \%opts); if ($opts{'-verbose'} == 0) { $parser->select('(?:SYNOPSIS|USAGE)\s*'); } elsif ($opts{'-verbose'} == 1) { my $opt_re = '(?i)' . '(?:OPTIONS|ARGUMENTS)' . '(?:\s*(?:AND|\/)\s*(?:OPTIONS|ARGUMENTS))?'; $parser->select( '(?:SYNOPSIS|USAGE)\s*', $opt_re, "DESCRIPTION/$opt_re" ); } elsif ($opts{'-verbose'} >= 2 && $opts{'-verbose'} != 99) { $parser->select('.*'); } elsif ($opts{'-verbose'} == 99) { my $sections = $opts{'-sections'}; $parser->select( (ref $sections) ? @$sections : $sections ); $opts{'-verbose'} = 1; } ## Check for perldoc my $progpath = $opts{'-perldoc'} ? $opts{'-perldoc'} : File::Spec->catfile($Config{scriptdirexp} || $Config{scriptdir}, 'perldoc'); my $version = sprintf("%vd",$^V); if ($Config{versiononly} and $Config{startperl} =~ /\Q$version\E$/ ) { $progpath .= $version; } $opts{'-noperldoc'} = 1 unless -e $progpath; ## Now translate the pod document and then exit with the desired status if ( !$opts{'-noperldoc'} and $opts{'-verbose'} >= 2 and !ref($opts{'-input'}) and $opts{'-output'} == \*STDOUT ) { ## spit out the entire PODs. Might as well invoke perldoc print { $opts{'-output'} } ($opts{'-message'}, "\n") if($opts{'-message'}); if(defined $opts{-input} && $opts{-input} =~ /^\s*(\S.*?)\s*$/) { # the perldocs back to 5.005 should all have -F # without -F there are warnings in -T scripts my $f = $1; my @perldoc_cmd = ($progpath); if ($opts{'-perldocopt'}) { $opts{'-perldocopt'} =~ s/^\s+|\s+$//g; push @perldoc_cmd, split(/\s+/, $opts{'-perldocopt'}); } push @perldoc_cmd, ('-F', $f); unshift @perldoc_cmd, $opts{'-perlcmd'} if $opts{'-perlcmd'}; system(@perldoc_cmd); # RT16091: fall back to more if perldoc failed if($?) { # RT131844: prefer PAGER env my $pager = $ENV{PAGER} || $Config{pager}; if(defined($pager) && length($pager)) { my $cmd = $pager . ' ' . ($^O =~ /win/i ? qq("$f") : quotemeta($f)); system($cmd); } else { # the most humble fallback; should work (at least) on *nix and Win system('more', $f); } } } else { croak "Unspecified input file or insecure argument.\n"; } } else { $parser->parse_from_file($opts{'-input'}, $opts{'-output'}); } exit($opts{'-exitval'}) unless (lc($opts{'-exitval'}) eq 'noexit'); } ##--------------------------------------------------------------------------- ##------------------------------- ## Method definitions begin here ##------------------------------- sub new { my $this = shift; my $class = ref($this) || $this; my %params = @_; my $self = {%params}; bless $self, $class; if ($self->can('initialize')) { $self->initialize(); } else { # pass through options to Pod::Text my %opts; for (qw(alt code indent loose margin quotes sentence stderr utf8 width)) { my $val = $params{USAGE_OPTIONS}{"-$_"}; $opts{$_} = $val if defined $val; } $self = $self->SUPER::new(%opts); %$self = (%$self, %params); } return $self; } # This subroutine was copied in whole-cloth from Pod::Select 1.60 in order to # allow the ejection of Pod::Select from the core without breaking Pod::Usage. # -- rjbs, 2013-03-18 sub _compile_section_spec { my ($section_spec) = @_; my (@regexs, $negated); ## Compile the spec into a list of regexs local $_ = $section_spec; s{\\\\}{\001}g; ## handle escaped backward slashes s{\\/}{\002}g; ## handle escaped forward slashes ## Parse the regexs for the heading titles @regexs = split(/\//, $_, $MAX_HEADING_LEVEL); ## Set default regex for ommitted levels for (my $i = 0; $i < $MAX_HEADING_LEVEL; ++$i) { $regexs[$i] = '.*' unless ((defined $regexs[$i]) && (length $regexs[$i])); } ## Modify the regexs as needed and validate their syntax my $bad_regexs = 0; for (@regexs) { $_ .= '.+' if ($_ eq '!'); s{\001}{\\\\}g; ## restore escaped backward slashes s{\002}{\\/}g; ## restore escaped forward slashes $negated = s/^\!//; ## check for negation eval "m{$_}"; ## check regex syntax if ($@) { ++$bad_regexs; carp qq{Bad regular expression /$_/ in "$section_spec": $@\n}; } else { ## Add the forward and rear anchors (and put the negator back) $_ = '^' . $_ unless (/^\^/); $_ = $_ . '$' unless (/\$$/); $_ = '!' . $_ if ($negated); } } return (! $bad_regexs) ? [ @regexs ] : undef; } sub select { my ($self, @sections) = @_; if ($ISA[0]->can('select')) { $self->SUPER::select(@sections); } else { # we're using Pod::Simple - need to mimic the behavior of Pod::Select my $add = ($sections[0] eq '+') ? shift(@sections) : ''; ## Reset the set of sections to use unless (@sections) { delete $self->{USAGE_SELECT} unless ($add); return; } $self->{USAGE_SELECT} = [] unless ($add && $self->{USAGE_SELECT}); my $sref = $self->{USAGE_SELECT}; ## Compile each spec for my $spec (@sections) { my $cs = _compile_section_spec($spec); if ( defined $cs ) { ## Store them in our sections array push(@$sref, $cs); } else { carp qq{Ignoring section spec "$spec"!\n}; } } } } # Override Pod::Text->seq_i to return just "arg", not "*arg*". sub seq_i { return $_[1] } # Override Pod::Text->cmd_i to return just "arg", not "*arg*". # newer version based on Pod::Simple sub cmd_i { my $self = shift; # RT121489: highlighting should be there with Termcap return $self->SUPER::cmd_i(@_) if $self->isa('Pod::Text::Termcap'); return $_[1]; } # This overrides the Pod::Text method to do something very akin to what # Pod::Select did as well as the work done below by preprocess_paragraph. # Note that the below is very, very specific to Pod::Text and Pod::Simple. sub _handle_element_end { my ($self, $element) = @_; if ($element eq 'head1') { $self->{USAGE_HEADINGS} = [ $$self{PENDING}[-1][1] ]; if ($self->{USAGE_OPTIONS}->{-verbose} < 2) { $$self{PENDING}[-1][1] =~ s/^\s*SYNOPSIS\s*$/USAGE/; } } elsif ($element =~ /^head(\d+)$/ && $1) { # avoid 0 my $idx = $1 - 1; $self->{USAGE_HEADINGS} = [] unless($self->{USAGE_HEADINGS}); $self->{USAGE_HEADINGS}->[$idx] = $$self{PENDING}[-1][1]; # we have to get rid of the lower headings splice(@{$self->{USAGE_HEADINGS}},$idx+1); } if ($element =~ /^head\d+$/) { $$self{USAGE_SKIPPING} = 1; if (!$$self{USAGE_SELECT} || !@{ $$self{USAGE_SELECT} }) { $$self{USAGE_SKIPPING} = 0; } else { my @headings = @{$$self{USAGE_HEADINGS}}; for my $section_spec ( @{$$self{USAGE_SELECT}} ) { my $match = 1; for (my $i = 0; $i < $MAX_HEADING_LEVEL; ++$i) { $headings[$i] = '' unless defined $headings[$i]; my $regex = $section_spec->[$i]; my $negated = ($regex =~ s/^\!//); $match &= ($negated ? ($headings[$i] !~ /${regex}/) : ($headings[$i] =~ /${regex}/)); last unless ($match); } # end heading levels if ($match) { $$self{USAGE_SKIPPING} = 0; last; } } # end sections } # Try to do some lowercasing instead of all-caps in headings, and use # a colon to end all headings. if($self->{USAGE_OPTIONS}->{-verbose} < 2) { local $_ = $$self{PENDING}[-1][1]; s{([A-Z])([A-Z]+)}{((length($2) > 2) ? $1 : lc($1)) . lc($2)}ge; s/\s*$/:/ unless (/:\s*$/); $_ .= "\n"; $$self{PENDING}[-1][1] = $_; } } if ($$self{USAGE_SKIPPING} && $element !~ m/^over-|^[BCFILSZ]$/) { pop @{ $$self{PENDING} }; } else { $self->SUPER::_handle_element_end($element); } } # required for Pod::Simple API sub start_document { my $self = shift; $self->SUPER::start_document(); my $msg = $self->{USAGE_OPTIONS}->{-message} or return 1; my $out_fh = $self->output_fh(); print $out_fh "$msg\n"; } # required for old Pod::Parser API sub begin_pod { my $self = shift; $self->SUPER::begin_pod(); ## Have to call superclass my $msg = $self->{USAGE_OPTIONS}->{-message} or return 1; my $out_fh = $self->output_handle(); print $out_fh "$msg\n"; } sub preprocess_paragraph { my $self = shift; local $_ = shift; my $line = shift; ## See if this is a heading and we aren't printing the entire manpage. if (($self->{USAGE_OPTIONS}->{-verbose} < 2) && /^=head/) { ## Change the title of the SYNOPSIS section to USAGE s/^=head1\s+SYNOPSIS\s*$/=head1 USAGE/; ## Try to do some lowercasing instead of all-caps in headings s{([A-Z])([A-Z]+)}{((length($2) > 2) ? $1 : lc($1)) . lc($2)}ge; ## Use a colon to end all headings s/\s*$/:/ unless (/:\s*$/); $_ .= "\n"; } return $self->SUPER::preprocess_paragraph($_); } 1; # keep require happy __END__ =for stopwords pod2usage verboseness downcased MSWin32 Marek Rouchal Christiansen ATOOMIC rjbs McDougall =head1 NAME Pod::Usage - extracts POD documentation and shows usage information =head1 SYNOPSIS use Pod::Usage; my $message_text = "This text precedes the usage message."; my $exit_status = 2; ## The exit status to use my $verbose_level = 0; ## The verbose level to use my $filehandle = \*STDERR; ## The filehandle to write to pod2usage($message_text); pod2usage($exit_status); pod2usage( { -message => $message_text , -exitval => $exit_status , -verbose => $verbose_level, -output => $filehandle } ); pod2usage( -msg => $message_text , -exitval => $exit_status , -verbose => $verbose_level, -output => $filehandle ); pod2usage( -verbose => 2, -noperldoc => 1 ); pod2usage( -verbose => 2, -perlcmd => $path_to_perl, -perldoc => $path_to_perldoc, -perldocopt => $perldoc_options ); =head1 ARGUMENTS B<pod2usage> should be given either a single argument, or a list of arguments corresponding to an associative array (a "hash"). When a single argument is given, it should correspond to exactly one of the following: =over 4 =item * A string containing the text of a message to print I<before> printing the usage message =item * A numeric value corresponding to the desired exit status =item * A reference to a hash =back If more than one argument is given then the entire argument list is assumed to be a hash. If a hash is supplied (either as a reference or as a list) it should contain one or more elements with the following keys: =over 4 =item C<-message> I<string> =item C<-msg> I<string> The text of a message to print immediately prior to printing the program's usage message. =item C<-exitval> I<value> The desired exit status to pass to the B<exit()> function. This should be an integer, or else the string C<NOEXIT> to indicate that control should simply be returned without terminating the invoking process. =item C<-verbose> I<value> The desired level of "verboseness" to use when printing the usage message. If the value is 0, then only the "SYNOPSIS" and/or "USAGE" sections of the pod documentation are printed. If the value is 1, then the "SYNOPSIS" and/or "USAGE" sections, along with any section entitled "OPTIONS", "ARGUMENTS", or "OPTIONS AND ARGUMENTS" is printed. If the corresponding value is 2 or more then the entire manpage is printed, using L<perldoc> if available; otherwise L<Pod::Text> is used for the formatting. For better readability, the all-capital headings are downcased, e.g. C<SYNOPSIS> =E<gt> C<Synopsis>. The special verbosity level 99 requires to also specify the -sections parameter; then these sections are extracted and printed. =item C<-sections> I<spec> There are two ways to specify the selection. Either a string (scalar) representing a selection regexp for sections to be printed when -verbose is set to 99, e.g. "NAME|SYNOPSIS|DESCRIPTION|VERSION" With the above regexp all content following (and including) any of the given C<=head1> headings will be shown. It is possible to restrict the output to particular subsections only, e.g.: "DESCRIPTION/Algorithm" This will output only the C<=head2 Algorithm> heading and content within the C<=head1 DESCRIPTION> section. The regexp binding is stronger than the section separator, such that e.g.: "DESCRIPTION|OPTIONS|ENVIRONMENT/Caveats" will print any C<=head2 Caveats> section (only) within any of the three C<=head1> sections. Alternatively, an array reference of section specifications can be used: pod2usage(-verbose => 99, -sections => [ qw(DESCRIPTION DESCRIPTION/Introduction) ] ); This will print only the content of C<=head1 DESCRIPTION> and the C<=head2 Introduction> sections, but no other C<=head2>, and no other C<=head1> either. =item C<-output> I<handle> A reference to a filehandle, or the pathname of a file to which the usage message should be written. The default is C<\*STDERR> unless the exit value is less than 2 (in which case the default is C<\*STDOUT>). =item C<-input> I<handle> A reference to a filehandle, or the pathname of a file from which the invoking script's pod documentation should be read. It defaults to the file indicated by C<$0> (C<$PROGRAM_NAME> for users of F<English.pm>). If you are calling B<pod2usage()> from a module and want to display that module's POD, you can use this: use Pod::Find qw(pod_where); pod2usage( -input => pod_where({-inc => 1}, __PACKAGE__) ); =item C<-pathlist> I<string> A list of directory paths. If the input file does not exist, then it will be searched for in the given directory list (in the order the directories appear in the list). It defaults to the list of directories implied by C<$ENV{PATH}>. The list may be specified either by a reference to an array, or by a string of directory paths which use the same path separator as C<$ENV{PATH}> on your system (e.g., C<:> for Unix, C<;> for MSWin32 and DOS). =item C<-noperldoc> By default, Pod::Usage will call L<perldoc> when -verbose >= 2 is specified. This does not work well e.g. if the script was packed with L<PAR>. This option suppresses the external call to L<perldoc> and uses the simple text formatter (L<Pod::Text>) to output the POD. =item C<-perlcmd> By default, Pod::Usage will call L<perldoc> when -verbose >= 2 is specified. In case of special or unusual Perl installations, this option may be used to supply the path to a L<perl> executable which should run L<perldoc>. =item C<-perldoc> I<path-to-perldoc> By default, Pod::Usage will call L<perldoc> when -verbose >= 2 is specified. In case L<perldoc> is not installed where the L<perl> interpreter thinks it is (see L<Config>), the -perldoc option may be used to supply the correct path to L<perldoc>. =item C<-perldocopt> I<string> By default, Pod::Usage will call L<perldoc> when -verbose >= 2 is specified. This option may be used to supply options to L<perldoc>. The string may contain several, space-separated options. =back =head2 Formatting base class The default text formatter is L<Pod::Text>. The base class for Pod::Usage can be defined by pre-setting C<$Pod::Usage::Formatter> I<before> loading Pod::Usage, e.g.: BEGIN { $Pod::Usage::Formatter = 'Pod::Text::Termcap'; } use Pod::Usage qw(pod2usage); Pod::Usage uses L<Pod::Simple>'s _handle_element_end() method to implement the section selection, and in case of verbosity < 2 it down-cases the all-caps headings to first capital letter and rest lowercase, and adds a colon/newline at the end of the headings, for better readability. Same for verbosity = 99. =head2 Pass-through options The following options are passed through to the underlying text formatter. See the manual pages of these modules for more information. alt code indent loose margin quotes sentence stderr utf8 width =head1 DESCRIPTION B<pod2usage> will print a usage message for the invoking script (using its embedded pod documentation) and then exit the script with the desired exit status. The usage message printed may have any one of three levels of "verboseness": If the verbose level is 0, then only a synopsis is printed. If the verbose level is 1, then the synopsis is printed along with a description (if present) of the command line options and arguments. If the verbose level is 2, then the entire manual page is printed. Unless they are explicitly specified, the default values for the exit status, verbose level, and output stream to use are determined as follows: =over 4 =item * If neither the exit status nor the verbose level is specified, then the default is to use an exit status of 2 with a verbose level of 0. =item * If an exit status I<is> specified but the verbose level is I<not>, then the verbose level will default to 1 if the exit status is less than 2 and will default to 0 otherwise. =item * If an exit status is I<not> specified but verbose level I<is> given, then the exit status will default to 2 if the verbose level is 0 and will default to 1 otherwise. =item * If the exit status used is less than 2, then output is printed on C<STDOUT>. Otherwise output is printed on C<STDERR>. =back Although the above may seem a bit confusing at first, it generally does "the right thing" in most situations. This determination of the default values to use is based upon the following typical Unix conventions: =over 4 =item * An exit status of 0 implies "success". For example, B<diff(1)> exits with a status of 0 if the two files have the same contents. =item * An exit status of 1 implies possibly abnormal, but non-defective, program termination. For example, B<grep(1)> exits with a status of 1 if it did I<not> find a matching line for the given regular expression. =item * An exit status of 2 or more implies a fatal error. For example, B<ls(1)> exits with a status of 2 if you specify an illegal (unknown) option on the command line. =item * Usage messages issued as a result of bad command-line syntax should go to C<STDERR>. However, usage messages issued due to an explicit request to print usage (like specifying B<-help> on the command line) should go to C<STDOUT>, just in case the user wants to pipe the output to a pager (such as B<more(1)>). =item * If program usage has been explicitly requested by the user, it is often desirable to exit with a status of 1 (as opposed to 0) after issuing the user-requested usage message. It is also desirable to give a more verbose description of program usage in this case. =back B<pod2usage> does not force the above conventions upon you, but it will use them by default if you don't expressly tell it to do otherwise. The ability of B<pod2usage()> to accept a single number or a string makes it convenient to use as an innocent looking error message handling function: use strict; use Pod::Usage; use Getopt::Long; ## Parse options my %opt; GetOptions(\%opt, "help|?", "man", "flag1") || pod2usage(2); pod2usage(1) if ($opt{help}); pod2usage(-exitval => 0, -verbose => 2) if ($opt{man}); ## Check for too many filenames pod2usage("$0: Too many files given.\n") if (@ARGV > 1); Some user's however may feel that the above "economy of expression" is not particularly readable nor consistent and may instead choose to do something more like the following: use strict; use Pod::Usage qw(pod2usage); use Getopt::Long qw(GetOptions); ## Parse options my %opt; GetOptions(\%opt, "help|?", "man", "flag1") || pod2usage(-verbose => 0); pod2usage(-verbose => 1) if ($opt{help}); pod2usage(-verbose => 2) if ($opt{man}); ## Check for too many filenames pod2usage(-verbose => 2, -message => "$0: Too many files given.\n") if (@ARGV > 1); As with all things in Perl, I<there's more than one way to do it>, and B<pod2usage()> adheres to this philosophy. If you are interested in seeing a number of different ways to invoke B<pod2usage> (although by no means exhaustive), please refer to L<"EXAMPLES">. =head2 Scripts The Pod::Usage distribution comes with a script pod2usage which offers a command line interface to the functionality of Pod::Usage. See L<pod2usage>. =head1 EXAMPLES Each of the following invocations of C<pod2usage()> will print just the "SYNOPSIS" section to C<STDERR> and will exit with a status of 2: pod2usage(); pod2usage(2); pod2usage(-verbose => 0); pod2usage(-exitval => 2); pod2usage({-exitval => 2, -output => \*STDERR}); pod2usage({-verbose => 0, -output => \*STDERR}); pod2usage(-exitval => 2, -verbose => 0); pod2usage(-exitval => 2, -verbose => 0, -output => \*STDERR); Each of the following invocations of C<pod2usage()> will print a message of "Syntax error." (followed by a newline) to C<STDERR>, immediately followed by just the "SYNOPSIS" section (also printed to C<STDERR>) and will exit with a status of 2: pod2usage("Syntax error."); pod2usage(-message => "Syntax error.", -verbose => 0); pod2usage(-msg => "Syntax error.", -exitval => 2); pod2usage({-msg => "Syntax error.", -exitval => 2, -output => \*STDERR}); pod2usage({-msg => "Syntax error.", -verbose => 0, -output => \*STDERR}); pod2usage(-msg => "Syntax error.", -exitval => 2, -verbose => 0); pod2usage(-message => "Syntax error.", -exitval => 2, -verbose => 0, -output => \*STDERR); Each of the following invocations of C<pod2usage()> will print the "SYNOPSIS" section and any "OPTIONS" and/or "ARGUMENTS" sections to C<STDOUT> and will exit with a status of 1: pod2usage(1); pod2usage(-verbose => 1); pod2usage(-exitval => 1); pod2usage({-exitval => 1, -output => \*STDOUT}); pod2usage({-verbose => 1, -output => \*STDOUT}); pod2usage(-exitval => 1, -verbose => 1); pod2usage(-exitval => 1, -verbose => 1, -output => \*STDOUT}); Each of the following invocations of C<pod2usage()> will print the entire manual page to C<STDOUT> and will exit with a status of 1: pod2usage(-verbose => 2); pod2usage({-verbose => 2, -output => \*STDOUT}); pod2usage(-exitval => 1, -verbose => 2); pod2usage({-exitval => 1, -verbose => 2, -output => \*STDOUT}); =head2 Recommended Use Most scripts should print some type of usage message to C<STDERR> when a command line syntax error is detected. They should also provide an option (usually C<-H> or C<-help>) to print a (possibly more verbose) usage message to C<STDOUT>. Some scripts may even wish to go so far as to provide a means of printing their complete documentation to C<STDOUT> (perhaps by allowing a C<-man> option). The following complete example uses B<Pod::Usage> in combination with B<Getopt::Long> to do all of these things: use strict; use Getopt::Long qw(GetOptions); use Pod::Usage qw(pod2usage); my $man = 0; my $help = 0; ## Parse options and print usage if there is a syntax error, ## or if usage was explicitly requested. GetOptions('help|?' => \$help, man => \$man) or pod2usage(2); pod2usage(1) if $help; pod2usage(-verbose => 2) if $man; ## If no arguments were given, then allow STDIN to be used only ## if it's not connected to a terminal (otherwise print usage) pod2usage("$0: No files given.") if ((@ARGV == 0) && (-t STDIN)); __END__ =head1 NAME sample - Using GetOpt::Long and Pod::Usage =head1 SYNOPSIS sample [options] [file ...] Options: -help brief help message -man full documentation =head1 OPTIONS =over 4 =item B<-help> Print a brief help message and exits. =item B<-man> Prints the manual page and exits. =back =head1 DESCRIPTION B<This program> will read the given input file(s) and do something useful with the contents thereof. =cut =head1 CAVEATS By default, B<pod2usage()> will use C<$0> as the path to the pod input file. Unfortunately, not all systems on which Perl runs will set C<$0> properly (although if C<$0> is not found, B<pod2usage()> will search C<$ENV{PATH}> or else the list specified by the C<-pathlist> option). If this is the case for your system, you may need to explicitly specify the path to the pod docs for the invoking script using something similar to the following: pod2usage(-exitval => 2, -input => "/path/to/your/pod/docs"); In the pathological case that a script is called via a relative path I<and> the script itself changes the current working directory (see L<perlfunc/chdir>) I<before> calling pod2usage, Pod::Usage will fail even on robust platforms. Don't do that. Or use L<FindBin> to locate the script: use FindBin; pod2usage(-input => $FindBin::Bin . "/" . $FindBin::Script); =head1 SUPPORT This module is managed in a GitHub repository, L<https://github.com/Dual-Life/Pod-Usage> Feel free to fork and contribute, or to clone and send patches! Please use L<https://github.com/Dual-Life/Pod-Usage/issues/new> to file a bug report. The previous ticketing system, L<https://rt.cpan.org/Dist/Display.html?Queue=Pod-Usage>, is deprecated for this package. More general questions or discussion about POD should be sent to the C<pod-people@perl.org> mail list. Send an empty email to C<pod-people-subscribe@perl.org> to subscribe. =head1 AUTHOR Marek Rouchal E<lt>marekr@cpan.orgE<gt> Nicolas R E<lt>nicolas@atoomic.orgE<gt> Brad Appleton E<lt>bradapp@enteract.comE<gt> Based on code for B<Pod::Text::pod2text()> written by Tom Christiansen E<lt>tchrist@mox.perl.comE<gt> =head1 LICENSE Pod::Usage (the distribution) is licensed under the same terms as Perl. =head1 ACKNOWLEDGMENTS Nicolas R (ATOOMIC) for setting up the Github repo and modernizing this package. rjbs for refactoring Pod::Usage to not use Pod::Parser any more. Steven McDougall E<lt>swmcd@world.std.comE<gt> for his help and patience with re-writing this manpage. =head1 SEE ALSO B<Pod::Usage> is now a standalone distribution, depending on L<Pod::Text> which in turn depends on L<Pod::Simple>. L<Pod::Perldoc>, L<Getopt::Long>, L<Pod::Find>, L<FindBin>, L<Pod::Text>, L<Pod::Text::Termcap>, L<Pod::Simple> =cut PK ! �6��R� R� 5.34.0/Pod/Perldoc.pmnu �[��� use 5.006; # we use some open(X, "<", $y) syntax package Pod::Perldoc; use strict; use warnings; use Config '%Config'; use Fcntl; # for sysopen use File::Basename qw(basename); use File::Spec::Functions qw(catfile catdir splitdir); use vars qw($VERSION @Pagers $Bindir $Pod2man $Temp_Files_Created $Temp_File_Lifetime ); $VERSION = '3.2801'; #.......................................................................... BEGIN { # Make a DEBUG constant very first thing... unless(defined &DEBUG) { if(($ENV{'PERLDOCDEBUG'} || '') =~ m/^(\d+)/) { # untaint eval("sub DEBUG () {$1}"); die "WHAT? Couldn't eval-up a DEBUG constant!? $@" if $@; } else { *DEBUG = sub () {0}; } } } use Pod::Perldoc::GetOptsOO; # uses the DEBUG. use Carp qw(croak carp); # these are also in BaseTo, which I don't want to inherit sub debugging { my $self = shift; ( defined(&Pod::Perldoc::DEBUG) and &Pod::Perldoc::DEBUG() ) } sub debug { my( $self, @messages ) = @_; return unless $self->debugging; print STDERR map { "DEBUG : $_" } @messages; } sub warn { my( $self, @messages ) = @_; carp( join "\n", @messages, '' ); } sub die { my( $self, @messages ) = @_; croak( join "\n", @messages, '' ); } #.......................................................................... sub TRUE () {1} sub FALSE () {return} sub BE_LENIENT () {1} BEGIN { *is_vms = $^O eq 'VMS' ? \&TRUE : \&FALSE unless defined &is_vms; *is_mswin32 = $^O eq 'MSWin32' ? \&TRUE : \&FALSE unless defined &is_mswin32; *is_dos = $^O eq 'dos' ? \&TRUE : \&FALSE unless defined &is_dos; *is_os2 = $^O eq 'os2' ? \&TRUE : \&FALSE unless defined &is_os2; *is_cygwin = $^O eq 'cygwin' ? \&TRUE : \&FALSE unless defined &is_cygwin; *is_linux = $^O eq 'linux' ? \&TRUE : \&FALSE unless defined &is_linux; *is_hpux = $^O =~ m/hpux/ ? \&TRUE : \&FALSE unless defined &is_hpux; *is_amigaos = $^O eq 'amigaos' ? \&TRUE : \&FALSE unless defined &is_amigaos; } $Temp_File_Lifetime ||= 60 * 60 * 24 * 5; # If it's older than five days, it's quite unlikely # that anyone's still looking at it!! # (Currently used only by the MSWin cleanup routine) #.......................................................................... { my $pager = $Config{'pager'}; push @Pagers, $pager if -x (split /\s+/, $pager)[0] or __PACKAGE__->is_vms; } $Bindir = $Config{'scriptdirexp'}; $Pod2man = "pod2man" . ( $Config{'versiononly'} ? $Config{'version'} : '' ); # End of class-init stuff # ########################################################################### # # Option accessors... foreach my $subname (map "opt_$_", split '', q{mhlDriFfXqnTdULva}) { no strict 'refs'; *$subname = do{ use strict 'refs'; sub () { shift->_elem($subname, @_) } }; } # And these are so that GetOptsOO knows they take options: sub opt_a_with { shift->_elem('opt_a', @_) } sub opt_f_with { shift->_elem('opt_f', @_) } sub opt_q_with { shift->_elem('opt_q', @_) } sub opt_d_with { shift->_elem('opt_d', @_) } sub opt_L_with { shift->_elem('opt_L', @_) } sub opt_v_with { shift->_elem('opt_v', @_) } sub opt_w_with { # Specify an option for the formatter subclass my($self, $value) = @_; if($value =~ m/^([-_a-zA-Z][-_a-zA-Z0-9]*)(?:[=\:](.*?))?$/s) { my $option = $1; my $option_value = defined($2) ? $2 : "TRUE"; $option =~ tr/\-/_/s; # tolerate "foo-bar" for "foo_bar" $self->add_formatter_option( $option, $option_value ); } else { $self->warn( qq("$value" isn't a good formatter option name. I'm ignoring it!\n ) ); } return; } sub opt_M_with { # specify formatter class name(s) my($self, $classes) = @_; return unless defined $classes and length $classes; DEBUG > 4 and print "Considering new formatter classes -M$classes\n"; my @classes_to_add; foreach my $classname (split m/[,;]+/s, $classes) { next unless $classname =~ m/\S/; if( $classname =~ m/^(\w+(::\w+)+)$/s ) { # A mildly restrictive concept of what modulenames are valid. push @classes_to_add, $1; # untaint } else { $self->warn( qq("$classname" isn't a valid classname. Ignoring.\n) ); } } unshift @{ $self->{'formatter_classes'} }, @classes_to_add; DEBUG > 3 and print( "Adding @classes_to_add to the list of formatter classes, " . "making them @{ $self->{'formatter_classes'} }.\n" ); return; } sub opt_V { # report version and exit print join '', "Perldoc v$VERSION, under perl v$] for $^O", (defined(&Win32::BuildNumber) and defined &Win32::BuildNumber()) ? (" (win32 build ", &Win32::BuildNumber(), ")") : (), (chr(65) eq 'A') ? () : " (non-ASCII)", "\n", ; exit; } sub opt_t { # choose plaintext as output format my $self = shift; $self->opt_o_with('text') if @_ and $_[0]; return $self->_elem('opt_t', @_); } sub opt_u { # choose raw pod as output format my $self = shift; $self->opt_o_with('pod') if @_ and $_[0]; return $self->_elem('opt_u', @_); } sub opt_n_with { # choose man as the output format, and specify the proggy to run my $self = shift; $self->opt_o_with('man') if @_ and $_[0]; $self->_elem('opt_n', @_); } sub opt_o_with { # "o" for output format my($self, $rest) = @_; return unless defined $rest and length $rest; if($rest =~ m/^(\w+)$/s) { $rest = $1; #untaint } else { $self->warn( qq("$rest" isn't a valid output format. Skipping.\n") ); return; } $self->aside("Noting \"$rest\" as desired output format...\n"); # Figure out what class(es) that could actually mean... my @classes; foreach my $prefix ("Pod::Perldoc::To", "Pod::Simple::", "Pod::") { # Messy but smart: foreach my $stem ( $rest, # Yes, try it first with the given capitalization "\L$rest", "\L\u$rest", "\U$rest" # And then try variations ) { $self->aside("Considering $prefix$stem\n"); push @classes, $prefix . $stem; } # Tidier, but misses too much: #push @classes, $prefix . ucfirst(lc($rest)); } $self->opt_M_with( join ";", @classes ); return; } ########################################################################### # % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % sub run { # to be called by the "perldoc" executable my $class = shift; if(DEBUG > 3) { print "Parameters to $class\->run:\n"; my @x = @_; while(@x) { $x[1] = '<undef>' unless defined $x[1]; $x[1] = "@{$x[1]}" if ref( $x[1] ) eq 'ARRAY'; print " [$x[0]] => [$x[1]]\n"; splice @x,0,2; } print "\n"; } return $class -> new(@_) -> process() || 0; } # % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % ########################################################################### sub new { # yeah, nothing fancy my $class = shift; my $new = bless {@_}, (ref($class) || $class); DEBUG > 1 and print "New $class object $new\n"; $new->init(); $new; } #.......................................................................... sub aside { # If we're in -D or DEBUG mode, say this. my $self = shift; if( DEBUG or $self->opt_D ) { my $out = join( '', DEBUG ? do { my $callsub = (caller(1))[3]; my $package = quotemeta(__PACKAGE__ . '::'); $callsub =~ s/^$package/'/os; # the o is justified, as $package really won't change. $callsub . ": "; } : '', @_, ); if(DEBUG) { print $out } else { print STDERR $out } } return; } #.......................................................................... sub usage { my $self = shift; $self->warn( "@_\n" ) if @_; # Erase evidence of previous errors (if any), so exit status is simple. $! = 0; CORE::die( <<EOF ); perldoc [options] PageName|ModuleName|ProgramName|URL... perldoc [options] -f BuiltinFunction perldoc [options] -q FAQRegex perldoc [options] -v PerlVariable Options: -h Display this help message -V Report version -r Recursive search (slow) -i Ignore case -t Display pod using pod2text instead of Pod::Man and groff (-t is the default on win32 unless -n is specified) -u Display unformatted pod text -m Display module's file in its entirety -n Specify replacement for groff -l Display the module's file name -U Don't attempt to drop privs for security -F Arguments are file names, not modules (implies -U) -D Verbosely describe what's going on -T Send output to STDOUT without any pager -d output_filename_to_send_to -o output_format_name -M FormatterModuleNameToUse -w formatter_option:option_value -L translation_code Choose doc translation (if any) -X Use index if present (looks for pod.idx at $Config{archlib}) -q Search the text of questions (not answers) in perlfaq[1-9] -f Search Perl built-in functions -a Search Perl API -v Search predefined Perl variables PageName|ModuleName|ProgramName|URL... is the name of a piece of documentation that you want to look at. You may either give a descriptive name of the page (as in the case of `perlfunc') the name of a module, either like `Term::Info' or like `Term/Info', or the name of a program, like `perldoc', or a URL starting with http(s). BuiltinFunction is the name of a perl function. Will extract documentation from `perlfunc' or `perlop'. FAQRegex is a regex. Will search perlfaq[1-9] for and extract any questions that match. Any switches in the PERLDOC environment variable will be used before the command line arguments. The optional pod index file contains a list of filenames, one per line. [Perldoc v$VERSION] EOF } #.......................................................................... sub program_name { my( $self ) = @_; if( my $link = readlink( $0 ) ) { $self->debug( "The value in $0 is a symbolic link to $link\n" ); } my $basename = basename( $0 ); $self->debug( "\$0 is [$0]\nbasename is [$basename]\n" ); # possible name forms # perldoc # perldoc-v5.14 # perldoc-5.14 # perldoc-5.14.2 # perlvar # an alias mentioned in Camel 3 { my( $untainted ) = $basename =~ m/( \A perl (?: doc | func | faq | help | op | toc | var # Camel 3 ) (?: -? v? \d+ \. \d+ (?:\. \d+)? )? # possible version (?: \. (?: bat | exe | com ) )? # possible extension \z ) /x; $self->debug($untainted); return $untainted if $untainted; } $self->warn(<<"HERE"); You called the perldoc command with a name that I didn't recognize. This might mean that someone is tricking you into running a program you don't intend to use, but it also might mean that you created your own link to perldoc. I think your program name is [$basename]. I'll allow this if the filename only has [a-zA-Z0-9._-]. HERE { my( $untainted ) = $basename =~ m/( \A [a-zA-Z0-9._-]+ \z )/x; $self->debug($untainted); return $untainted if $untainted; } $self->die(<<"HERE"); I think that your name for perldoc is potentially unsafe, so I'm going to disallow it. I'd rather you be safe than sorry. If you intended to use the name I'm disallowing, please tell the maintainers about it. Write to: Pod-Perldoc\@rt.cpan.org HERE } #.......................................................................... sub usage_brief { my $self = shift; my $program_name = $self->program_name; CORE::die( <<"EOUSAGE" ); Usage: $program_name [-hVriDtumUFXlT] [-n nroffer_program] [-d output_filename] [-o output_format] [-M FormatterModule] [-w formatter_option:option_value] [-L translation_code] PageName|ModuleName|ProgramName Examples: $program_name -f PerlFunc $program_name -q FAQKeywords $program_name -v PerlVar $program_name -a PerlAPI The -h option prints more help. Also try "$program_name perldoc" to get acquainted with the system. [Perldoc v$VERSION] EOUSAGE } #.......................................................................... sub pagers { @{ shift->{'pagers'} } } #.......................................................................... sub _elem { # handy scalar meta-accessor: shift->_elem("foo", @_) if(@_ > 2) { return $_[0]{ $_[1] } = $_[2] } else { return $_[0]{ $_[1] } } } #.......................................................................... ########################################################################### # # Init formatter switches, and start it off with __bindir and all that # other stuff that ToMan.pm needs. # sub init { my $self = shift; # Make sure creat()s are neither too much nor too little eval { umask(0077) }; # doubtless someone has no mask if ( $] < 5.008 ) { $self->aside("Your old perl doesn't have proper unicode support."); } else { # http://www.perl.com/pub/2012/04/perlunicookbook-decode-argv-as-utf8.html # Decode command line arguments as UTF-8. See RT#98906 for example problem. use Encode qw(decode_utf8); @ARGV = map { decode_utf8($_, 1) } @ARGV; } $self->{'args'} ||= \@ARGV; $self->{'found'} ||= []; $self->{'temp_file_list'} ||= []; $self->{'target'} = undef; $self->init_formatter_class_list; $self->{'pagers' } = [@Pagers] unless exists $self->{'pagers'}; $self->{'bindir' } = $Bindir unless exists $self->{'bindir'}; $self->{'pod2man'} = $Pod2man unless exists $self->{'pod2man'}; $self->{'search_path'} = [ ] unless exists $self->{'search_path'}; push @{ $self->{'formatter_switches'} = [] }, ( # Yeah, we could use a hashref, but maybe there's some class where options # have to be ordered; so we'll use an arrayref. [ '__bindir' => $self->{'bindir' } ], [ '__pod2man' => $self->{'pod2man'} ], ); DEBUG > 3 and printf "Formatter switches now: [%s]\n", join ' ', map "[@$_]", @{ $self->{'formatter_switches'} }; $self->{'translators'} = []; $self->{'extra_search_dirs'} = []; return; } #.......................................................................... sub init_formatter_class_list { my $self = shift; $self->{'formatter_classes'} ||= []; # Remember, no switches have been read yet, when # we've started this routine. $self->opt_M_with('Pod::Perldoc::ToPod'); # the always-there fallthru $self->opt_o_with('text'); return; } #.......................................................................... sub process { # if this ever returns, its retval will be used for exit(RETVAL) my $self = shift; DEBUG > 1 and print " Beginning process.\n"; DEBUG > 1 and print " Args: @{$self->{'args'}}\n\n"; if(DEBUG > 3) { print "Object contents:\n"; my @x = %$self; while(@x) { $x[1] = '<undef>' unless defined $x[1]; $x[1] = "@{$x[1]}" if ref( $x[1] ) eq 'ARRAY'; print " [$x[0]] => [$x[1]]\n"; splice @x,0,2; } print "\n"; } # TODO: make it deal with being invoked as various different things # such as perlfaq". return $self->usage_brief unless @{ $self->{'args'} }; $self->options_reading; $self->pagers_guessing; $self->aside(sprintf "$0 => %s v%s\n", ref($self), $self->VERSION); $self->drop_privs_maybe unless ($self->opt_U || $self->opt_F); $self->options_processing; # Hm, we have @pages and @found, but we only really act on one # file per call, with the exception of the opt_q hack, and with # -l things $self->aside("\n"); my @pages; $self->{'pages'} = \@pages; if( $self->opt_f) { @pages = qw(perlfunc perlop) } elsif( $self->opt_q) { @pages = ("perlfaq1" .. "perlfaq9") } elsif( $self->opt_v) { @pages = ("perlvar") } elsif( $self->opt_a) { @pages = ("perlapi") } else { @pages = @{$self->{'args'}}; # @pages = __FILE__ # if @pages == 1 and $pages[0] eq 'perldoc'; } return $self->usage_brief unless @pages; $self->find_good_formatter_class(); $self->formatter_sanity_check(); $self->maybe_extend_searchpath(); # for when we're apparently in a module or extension directory my @found = $self->grand_search_init(\@pages); exit ($self->is_vms ? 98962 : 1) unless @found; if ($self->opt_l and not $self->opt_q ) { DEBUG and print "We're in -l mode, so byebye after this:\n"; print join("\n", @found), "\n"; return; } $self->tweak_found_pathnames(\@found); $self->assert_closing_stdout; return $self->page_module_file(@found) if $self->opt_m; DEBUG > 2 and print "Found: [@found]\n"; return $self->render_and_page(\@found); } #.......................................................................... { my( %class_seen, %class_loaded ); sub find_good_formatter_class { my $self = $_[0]; my @class_list = @{ $self->{'formatter_classes'} || [] }; $self->die( "WHAT? Nothing in the formatter class list!?" ) unless @class_list; local @INC = @INC; pop @INC if $INC[-1] eq '.'; my $good_class_found; foreach my $c (@class_list) { DEBUG > 4 and print "Trying to load $c...\n"; if($class_loaded{$c}) { DEBUG > 4 and print "OK, the already-loaded $c it is!\n"; $good_class_found = $c; last; } if($class_seen{$c}) { DEBUG > 4 and print "I've tried $c before, and it's no good. Skipping.\n"; next; } $class_seen{$c} = 1; if( $c->can('parse_from_file') ) { DEBUG > 4 and print "Interesting, the formatter class $c is already loaded!\n"; } elsif( ( $self->is_os2 or $self->is_mswin32 or $self->is_dos or $self->is_os2) # the always case-insensitive filesystems and $class_seen{lc("~$c")}++ ) { DEBUG > 4 and print "We already used something quite like \"\L$c\E\", so no point using $c\n"; # This avoids redefining the package. } else { DEBUG > 4 and print "Trying to eval 'require $c'...\n"; local $^W = $^W; if(DEBUG() or $self->opt_D) { # feh, let 'em see it } else { $^W = 0; # The average user just has no reason to be seeing # $^W-suppressible warnings from the require! } eval "require $c"; if($@) { DEBUG > 4 and print "Couldn't load $c: $!\n"; next; } } if( $c->can('parse_from_file') ) { DEBUG > 4 and print "Settling on $c\n"; my $v = $c->VERSION; $v = ( defined $v and length $v ) ? " version $v" : ''; $self->aside("Formatter class $c$v successfully loaded!\n"); $good_class_found = $c; last; } else { DEBUG > 4 and print "Class $c isn't a formatter?! Skipping.\n"; } } $self->die( "Can't find any loadable formatter class in @class_list?!\nAborting" ) unless $good_class_found; $self->{'formatter_class'} = $good_class_found; $self->aside("Will format with the class $good_class_found\n"); return; } } #.......................................................................... sub formatter_sanity_check { my $self = shift; my $formatter_class = $self->{'formatter_class'} || $self->die( "NO FORMATTER CLASS YET!?" ); if(!$self->opt_T # so -T can FORCE sending to STDOUT and $formatter_class->can('is_pageable') and !$formatter_class->is_pageable and !$formatter_class->can('page_for_perldoc') ) { my $ext = ($formatter_class->can('output_extension') && $formatter_class->output_extension ) || ''; $ext = ".$ext" if length $ext; my $me = $self->program_name; $self->die( "When using Perldoc to format with $formatter_class, you have to\n" . "specify -T or -dsomefile$ext\n" . "See `$me perldoc' for more information on those switches.\n" ) ; } } #.......................................................................... sub render_and_page { my($self, $found_list) = @_; $self->maybe_generate_dynamic_pod($found_list); my($out, $formatter) = $self->render_findings($found_list); if($self->opt_d) { printf "Perldoc (%s) output saved to %s\n", $self->{'formatter_class'} || ref($self), $out; print "But notice that it's 0 bytes long!\n" unless -s $out; } elsif( # Allow the formatter to "page" itself, if it wants. $formatter->can('page_for_perldoc') and do { $self->aside("Going to call $formatter\->page_for_perldoc(\"$out\")\n"); if( $formatter->page_for_perldoc($out, $self) ) { $self->aside("page_for_perldoc returned true, so NOT paging with $self.\n"); 1; } else { $self->aside("page_for_perldoc returned false, so paging with $self instead.\n"); ''; } } ) { # Do nothing, since the formatter has "paged" it for itself. } else { # Page it normally (internally) if( -s $out ) { # Usual case: $self->page($out, $self->{'output_to_stdout'}, $self->pagers); } else { # Odd case: $self->aside("Skipping $out (from $$found_list[0] " . "via $$self{'formatter_class'}) as it is 0-length.\n"); push @{ $self->{'temp_file_list'} }, $out; $self->unlink_if_temp_file($out); } } $self->after_rendering(); # any extra cleanup or whatever return; } #.......................................................................... sub options_reading { my $self = shift; if( defined $ENV{"PERLDOC"} and length $ENV{"PERLDOC"} ) { require Text::ParseWords; $self->aside("Noting env PERLDOC setting of $ENV{'PERLDOC'}\n"); # Yes, appends to the beginning unshift @{ $self->{'args'} }, Text::ParseWords::shellwords( $ENV{"PERLDOC"} ) ; DEBUG > 1 and print " Args now: @{$self->{'args'}}\n\n"; } else { DEBUG > 1 and print " Okay, no PERLDOC setting in ENV.\n"; } DEBUG > 1 and print " Args right before switch processing: @{$self->{'args'}}\n"; Pod::Perldoc::GetOptsOO::getopts( $self, $self->{'args'}, 'YES' ) or return $self->usage; DEBUG > 1 and print " Args after switch processing: @{$self->{'args'}}\n"; return $self->usage if $self->opt_h; return; } #.......................................................................... sub options_processing { my $self = shift; if ($self->opt_X) { my $podidx = "$Config{'archlib'}/pod.idx"; $podidx = "" unless -f $podidx && -r _ && -M _ <= 7; $self->{'podidx'} = $podidx; } $self->{'output_to_stdout'} = 1 if $self->opt_T or ! -t STDOUT; $self->options_sanity; # This used to set a default, but that's now moved into any # formatter that cares to have a default. if( $self->opt_n ) { $self->add_formatter_option( '__nroffer' => $self->opt_n ); } # Get language from PERLDOC_POD2 environment variable if ( ! $self->opt_L && $ENV{PERLDOC_POD2} ) { if ( $ENV{PERLDOC_POD2} eq '1' ) { $self->_elem('opt_L',(split(/\_/, $ENV{LC_ALL} || $ENV{LC_LANG} || $ENV{LANG}))[0] ); } else { $self->_elem('opt_L', $ENV{PERLDOC_POD2}); } }; # Adjust for using translation packages $self->add_translator(split(/\s+/,$self->opt_L)) if $self->opt_L; return; } #.......................................................................... sub options_sanity { my $self = shift; # The opts-counting stuff interacts quite badly with # the $ENV{"PERLDOC"} stuff. I.e., if I have $ENV{"PERLDOC"} # set to -t, and I specify -u on the command line, I don't want # to be hectored at that -u and -t don't make sense together. #my $opts = grep $_ && 1, # yes, the count of the set ones # $self->opt_t, $self->opt_u, $self->opt_m, $self->opt_l #; # #$self->usage("only one of -t, -u, -m or -l") if $opts > 1; # Any sanity-checking need doing here? # But does not make sense to set either -f or -q in $ENV{"PERLDOC"} if( $self->opt_f or $self->opt_q or $self->opt_a) { my $count; $count++ if $self->opt_f; $count++ if $self->opt_q; $count++ if $self->opt_a; $self->usage("Only one of -f or -q or -a") if $count > 1; $self->warn( "Perldoc is meant for reading one file at a time.\n", "So these parameters are being ignored: ", join(' ', @{$self->{'args'}}), "\n" ) if @{$self->{'args'}} } return; } #.......................................................................... sub grand_search_init { my($self, $pages, @found) = @_; foreach (@$pages) { if (/^http(s)?:\/\//) { require HTTP::Tiny; require File::Temp; my $response = HTTP::Tiny->new->get($_); if ($response->{success}) { my ($fh, $filename) = File::Temp::tempfile(UNLINK => 1); $fh->print($response->{content}); push @found, $filename; ($self->{podnames}{$filename} = m{.*/([^/#?]+)} ? uc $1 : "UNKNOWN") =~ s/\.P(?:[ML]|OD)\z//; } else { print STDERR "No " . ($self->opt_m ? "module" : "documentation") . " found for \"$_\".\n"; if ( /^https/ ) { print STDERR "You may need an SSL library (such as IO::Socket::SSL) for that URL.\n"; } } next; } if ($self->{'podidx'} && open(PODIDX, $self->{'podidx'})) { my $searchfor = catfile split '::', $_; $self->aside( "Searching for '$searchfor' in $self->{'podidx'}\n" ); local $_; while (<PODIDX>) { chomp; push(@found, $_) if m,/$searchfor(?:\.(?:pod|pm))?\z,i; } close(PODIDX) or $self->die( "Can't close $$self{'podidx'}: $!" ); next; } $self->aside( "Searching for $_\n" ); if ($self->opt_F) { next unless -r; push @found, $_ if $self->opt_l or $self->opt_m or $self->containspod($_); next; } my @searchdirs; # prepend extra search directories (including language specific) push @searchdirs, @{ $self->{'extra_search_dirs'} }; # We must look both in @INC for library modules and in $bindir # for executables, like h2xs or perldoc itself. push @searchdirs, ($self->{'bindir'}, @{$self->{search_path}}, @INC); unless ($self->opt_m) { if ($self->is_vms) { my($i,$trn); for ($i = 0; $trn = $ENV{'DCL$PATH;'.$i}; $i++) { push(@searchdirs,$trn); } push(@searchdirs,'perl_root:[lib.pods]') # installed pods } else { push(@searchdirs, grep(-d, split($Config{path_sep}, $ENV{'PATH'}))); } } my @files = $self->searchfor(0,$_,@searchdirs); if (@files) { $self->aside( "Found as @files\n" ); } # add "perl" prefix, so "perldoc foo" may find perlfoo.pod elsif (BE_LENIENT and !/\W/ and @files = $self->searchfor(0, "perl$_", @searchdirs)) { $self->aside( "Loosely found as @files\n" ); } else { # no match, try recursive search @searchdirs = grep(!/^\.\z/s,@INC); @files= $self->searchfor(1,$_,@searchdirs) if $self->opt_r; if (@files) { $self->aside( "Loosely found as @files\n" ); } else { print STDERR "No " . ($self->opt_m ? "module" : "documentation") . " found for \"$_\".\n"; if ( @{ $self->{'found'} } ) { print STDERR "However, try\n"; my $me = $self->program_name; for my $dir (@{ $self->{'found'} }) { opendir(DIR, $dir) or $self->die( "opendir $dir: $!" ); while (my $file = readdir(DIR)) { next if ($file =~ /^\./s); $file =~ s/\.(pm|pod)\z//; # XXX: badfs print STDERR "\t$me $_\::$file\n"; } closedir(DIR) or $self->die( "closedir $dir: $!" ); } } } } push(@found,@files); } return @found; } #.......................................................................... sub maybe_generate_dynamic_pod { my($self, $found_things) = @_; my @dynamic_pod; $self->search_perlapi($found_things, \@dynamic_pod) if $self->opt_a; $self->search_perlfunc($found_things, \@dynamic_pod) if $self->opt_f; $self->search_perlvar($found_things, \@dynamic_pod) if $self->opt_v; $self->search_perlfaqs($found_things, \@dynamic_pod) if $self->opt_q; if( ! $self->opt_f and ! $self->opt_q and ! $self->opt_v and ! $self->opt_a) { DEBUG > 4 and print "That's a non-dynamic pod search.\n"; } elsif ( @dynamic_pod ) { $self->aside("Hm, I found some Pod from that search!\n"); my ($buffd, $buffer) = $self->new_tempfile('pod', 'dyn'); if ( $] >= 5.008 && $self->opt_L ) { binmode($buffd, ":encoding(UTF-8)"); print $buffd "=encoding utf8\n\n"; } push @{ $self->{'temp_file_list'} }, $buffer; # I.e., it MIGHT be deleted at the end. my $in_list = !$self->not_dynamic && $self->opt_f || $self->opt_v || $self->opt_a; print $buffd "=over 8\n\n" if $in_list; print $buffd @dynamic_pod or $self->die( "Can't print $buffer: $!" ); print $buffd "=back\n" if $in_list; close $buffd or $self->die( "Can't close $buffer: $!" ); @$found_things = $buffer; # Yes, so found_things never has more than one thing in # it, by time we leave here $self->add_formatter_option('__filter_nroff' => 1); } else { @$found_things = (); $self->aside("I found no Pod from that search!\n"); } return; } #.......................................................................... sub not_dynamic { my ($self,$value) = @_; $self->{__not_dynamic} = $value if @_ == 2; return $self->{__not_dynamic}; } #.......................................................................... sub add_formatter_option { # $self->add_formatter_option('key' => 'value'); my $self = shift; push @{ $self->{'formatter_switches'} }, [ @_ ] if @_; DEBUG > 3 and printf "Formatter switches now: [%s]\n", join ' ', map "[@$_]", @{ $self->{'formatter_switches'} }; return; } #......................................................................... sub new_translator { # $tr = $self->new_translator($lang); my $self = shift; my $lang = shift; local @INC = @INC; pop @INC if $INC[-1] eq '.'; my $pack = 'POD2::' . uc($lang); eval "require $pack"; if ( !$@ && $pack->can('new') ) { return $pack->new(); } eval { require POD2::Base }; return if $@; return POD2::Base->new({ lang => $lang }); } #......................................................................... sub add_translator { # $self->add_translator($lang); my $self = shift; for my $lang (@_) { my $tr = $self->new_translator($lang); if ( defined $tr ) { push @{ $self->{'translators'} }, $tr; push @{ $self->{'extra_search_dirs'} }, $tr->pod_dirs; $self->aside( "translator for '$lang' loaded\n" ); } else { # non-installed or bad translator package $self->warn( "Perldoc cannot load translator package for '$lang': ignored\n" ); } } return; } #.......................................................................... sub open_fh { my ($self, $op, $path) = @_; open my $fh, $op, $path or $self->die("Couldn't open $path: $!"); return $fh; } sub set_encoding { my ($self, $fh, $encoding) = @_; if ( $encoding =~ /utf-?8/i ) { $encoding = ":encoding(UTF-8)"; } else { $encoding = ":encoding($encoding)"; } if ( $] < 5.008 ) { $self->aside("Your old perl doesn't have proper unicode support."); } else { binmode($fh, $encoding); } return $fh; } sub search_perlvar { my($self, $found_things, $pod) = @_; my $opt = $self->opt_v; if ( $opt !~ /^ (?: [\@\%\$]\S+ | [A-Z]\w* ) $/x ) { CORE::die( "'$opt' does not look like a Perl variable\n" ); } DEBUG > 2 and print "Search: @$found_things\n"; my $perlvar = shift @$found_things; my $fh = $self->open_fh("<", $perlvar); if ( $opt ne '$0' && $opt =~ /^\$\d+$/ ) { # handle $1, $2, ... $opt = '$<I<digits>>'; } my $search_re = quotemeta($opt); DEBUG > 2 and print "Going to perlvar-scan for $search_re in $perlvar\n"; # Skip introduction local $_; my $enc; while (<$fh>) { $enc = $1 if /^=encoding\s+(\S+)/; last if /^=over 8/; } $fh = $self->set_encoding($fh, $enc) if $enc; # Look for our variable my $found = 0; my $inheader = 1; my $inlist = 0; while (<$fh>) { last if /^=head2 Error Indicators/; # \b at the end of $` and friends borks things! if ( m/^=item\s+$search_re\s/ ) { $found = 1; } elsif (/^=item/) { last if $found && !$inheader && !$inlist; } elsif (!/^\s+$/) { # not a blank line if ( $found ) { $inheader = 0; # don't accept more =item (unless inlist) } else { @$pod = (); # reset $inheader = 1; # start over next; } } if (/^=over/) { ++$inlist; } elsif (/^=back/) { last if $found && !$inheader && !$inlist; --$inlist; } push @$pod, $_; # ++$found if /^\w/; # found descriptive text } @$pod = () unless $found; if (!@$pod) { CORE::die( "No documentation for perl variable '$opt' found\n" ); } close $fh or $self->die( "Can't close $perlvar: $!" ); return; } #.......................................................................... sub search_perlop { my ($self,$found_things,$pod) = @_; $self->not_dynamic( 1 ); my $perlop = shift @$found_things; # XXX FIXME: getting filehandles should probably be done in a single place # especially since we need to support UTF8 or other encoding when dealing # with perlop, perlfunc, perlapi, perlfaq[1-9] my $fh = $self->open_fh('<', $perlop); my $thing = $self->opt_f; my $previous_line; my $push = 0; my $seen_item = 0; my $skip = 1; while( my $line = <$fh> ) { $line =~ /^=encoding\s+(\S+)/ && $self->set_encoding($fh, $1); # only start search after we hit the operator section if ($line =~ m!^X<operator, regexp>!) { $skip = 0; } next if $skip; # strategy is to capture the previous line until we get a match on X<$thingy> # if the current line contains X<$thingy>, then we push "=over", the previous line, # the current line and keep pushing current line until we see a ^X<some-other-thing>, # then we chop off final line from @$pod and add =back # # At that point, Bob's your uncle. if ( $line =~ m!X<+\s*\Q$thing\E\s*>+!) { if ( $previous_line ) { push @$pod, "=over 8\n\n", $previous_line; $previous_line = ""; } push @$pod, $line; $push = 1; } elsif ( $push and $line =~ m!^=item\s*.*$! ) { $seen_item = 1; } elsif ( $push and $seen_item and $line =~ m!^X<+\s*[ a-z,?-]+\s*>+!) { $push = 0; $seen_item = 0; last; } elsif ( $push ) { push @$pod, $line; } else { $previous_line = $line; } } #end while # we overfilled by 1 line, so pop off final array element if we have any if ( scalar @$pod ) { pop @$pod; # and add the =back push @$pod, "\n\n=back\n"; DEBUG > 8 and print "PERLOP POD --->" . (join "", @$pod) . "<---\n"; } else { DEBUG > 4 and print "No pod from perlop\n"; } close $fh; return; } #.......................................................................... sub search_perlapi { my($self, $found_things, $pod) = @_; DEBUG > 2 and print "Search: @$found_things\n"; my $perlapi = shift @$found_things; my $fh = $self->open_fh('<', $perlapi); my $search_re = quotemeta($self->opt_a); DEBUG > 2 and print "Going to perlapi-scan for $search_re in $perlapi\n"; local $_; # Look for our function my $found = 0; my $inlist = 0; my @related; my $related_re; while (<$fh>) { /^=encoding\s+(\S+)/ && $self->set_encoding($fh, $1); if ( m/^=item\s+$search_re\b/ ) { $found = 1; } elsif (@related > 1 and /^=item/) { $related_re ||= join "|", @related; if (m/^=item\s+(?:$related_re)\b/) { $found = 1; } else { last; } } elsif (/^=item/) { last if $found > 1 and not $inlist; } elsif ($found and /^X<[^>]+>/) { push @related, m/X<([^>]+)>/g; } next unless $found; if (/^=over/) { ++$inlist; } elsif (/^=back/) { last if $found > 1 and not $inlist; --$inlist; } push @$pod, $_; ++$found if /^\w/; # found descriptive text } if (!@$pod) { CORE::die( sprintf "No documentation for perl api function '%s' found\n", $self->opt_a ) ; } close $fh or $self->die( "Can't open $perlapi: $!" ); return; } #.......................................................................... sub search_perlfunc { my($self, $found_things, $pod) = @_; DEBUG > 2 and print "Search: @$found_things\n"; my $pfunc = shift @$found_things; my $fh = $self->open_fh("<", $pfunc); # "Funk is its own reward" # Functions like -r, -e, etc. are listed under `-X'. my $search_re = ($self->opt_f =~ /^-[rwxoRWXOeszfdlpSbctugkTBMAC]$/) ? '(?:I<)?-X' : quotemeta($self->opt_f) ; DEBUG > 2 and print "Going to perlfunc-scan for $search_re in $pfunc\n"; my $re = 'Alphabetical Listing of Perl Functions'; # Check available translator or backup to default (english) if ( $self->opt_L && defined $self->{'translators'}->[0] ) { my $tr = $self->{'translators'}->[0]; $re = $tr->search_perlfunc_re if $tr->can('search_perlfunc_re'); if ( $] < 5.008 ) { $self->aside("Your old perl doesn't really have proper unicode support."); } } # Skip introduction local $_; while (<$fh>) { /^=encoding\s+(\S+)/ && $self->set_encoding($fh, $1); last if /^=head2 (?:$re|Alphabetical Listing of Perl Functions)/; } # Look for our function my $found = 0; my $inlist = 0; my @perlops = qw(m q qq qr qx qw s tr y); my @related; my $related_re; while (<$fh>) { # "The Mothership Connection is here!" last if( grep{ $self->opt_f eq $_ }@perlops ); if ( /^=over/ and not $found ) { ++$inlist; } elsif ( /^=back/ and not $found and $inlist ) { --$inlist; } if ( m/^=item\s+$search_re\b/ and $inlist < 2 ) { $found = 1; } elsif (@related > 1 and /^=item/) { $related_re ||= join "|", @related; if (m/^=item\s+(?:$related_re)\b/) { $found = 1; } else { last if $found > 1 and $inlist < 2; } } elsif (/^=item|^=back/) { last if $found > 1 and $inlist < 2; } elsif ($found and /^X<[^>]+>/) { push @related, m/X<([^>]+)>/g; } next unless $found; if (/^=over/) { ++$inlist; } elsif (/^=back/) { --$inlist; } push @$pod, $_; ++$found if /^\w/; # found descriptive text } if( !@$pod ){ $self->search_perlop( $found_things, $pod ); } if (!@$pod) { CORE::die( sprintf "No documentation for perl function '%s' found\n", $self->opt_f ) ; } close $fh or $self->die( "Can't close $pfunc: $!" ); return; } #.......................................................................... sub search_perlfaqs { my( $self, $found_things, $pod) = @_; my $found = 0; my %found_in; my $search_key = $self->opt_q; my $rx = eval { qr/$search_key/ } or $self->die( <<EOD ); Invalid regular expression '$search_key' given as -q pattern: $@ Did you mean \\Q$search_key ? EOD local $_; foreach my $file (@$found_things) { $self->die( "invalid file spec: $!" ) if $file =~ /[<>|]/; my $fh = $self->open_fh("<", $file); while (<$fh>) { /^=encoding\s+(\S+)/ && $self->set_encoding($fh, $1); if ( m/^=head2\s+.*(?:$search_key)/i ) { $found = 1; push @$pod, "=head1 Found in $file\n\n" unless $found_in{$file}++; } elsif (/^=head[12]/) { $found = 0; } next unless $found; push @$pod, $_; } close($fh); } CORE::die("No documentation for perl FAQ keyword '$search_key' found\n") unless @$pod; if ( $self->opt_l ) { CORE::die((join "\n", keys %found_in) . "\n"); } return; } #.......................................................................... sub render_findings { # Return the filename to open my($self, $found_things) = @_; my $formatter_class = $self->{'formatter_class'} || $self->die( "No formatter class set!?" ); my $formatter = $formatter_class->can('new') ? $formatter_class->new : $formatter_class ; if(! @$found_things) { $self->die( "Nothing found?!" ); # should have been caught before here } elsif(@$found_things > 1) { $self->warn( "Perldoc is only really meant for reading one document at a time.\n", "So these parameters are being ignored: ", join(' ', @$found_things[1 .. $#$found_things] ), "\n" ); } my $file = $found_things->[0]; DEBUG > 3 and printf "Formatter switches now: [%s]\n", join ' ', map "[@$_]", @{ $self->{'formatter_switches'} }; # Set formatter options: if( ref $formatter ) { foreach my $f (@{ $self->{'formatter_switches'} || [] }) { my($switch, $value, $silent_fail) = @$f; if( $formatter->can($switch) ) { eval { $formatter->$switch( defined($value) ? $value : () ) }; $self->warn( "Got an error when setting $formatter_class\->$switch:\n$@\n" ) if $@; } else { if( $silent_fail or $switch =~ m/^__/s ) { DEBUG > 2 and print "Formatter $formatter_class doesn't support $switch\n"; } else { $self->warn( "$formatter_class doesn't recognize the $switch switch.\n" ); } } } } $self->{'output_is_binary'} = $formatter->can('write_with_binmode') && $formatter->write_with_binmode; if( $self->{podnames} and exists $self->{podnames}{$file} and $formatter->can('name') ) { $formatter->name($self->{podnames}{$file}); } my ($out_fh, $out) = $self->new_output_file( ( $formatter->can('output_extension') && $formatter->output_extension ) || undef, $self->useful_filename_bit, ); # Now, finally, do the formatting! { local $^W = $^W; if(DEBUG() or $self->opt_D) { # feh, let 'em see it } else { $^W = 0; # The average user just has no reason to be seeing # $^W-suppressible warnings from the formatting! } eval { $formatter->parse_from_file( $file, $out_fh ) }; } $self->warn( "Error while formatting with $formatter_class:\n $@\n" ) if $@; DEBUG > 2 and print "Back from formatting with $formatter_class\n"; close $out_fh or $self->warn( "Can't close $out: $!\n(Did $formatter already close it?)" ); sleep 0; sleep 0; sleep 0; # Give the system a few timeslices to meditate on the fact # that the output file does in fact exist and is closed. $self->unlink_if_temp_file($file); unless( -s $out ) { if( $formatter->can( 'if_zero_length' ) ) { # Basically this is just a hook for Pod::Simple::Checker; since # what other class could /happily/ format an input file with Pod # as a 0-length output file? $formatter->if_zero_length( $file, $out, $out_fh ); } else { $self->warn( "Got a 0-length file from $$found_things[0] via $formatter_class!?\n" ); } } DEBUG and print "Finished writing to $out.\n"; return($out, $formatter) if wantarray; return $out; } #.......................................................................... sub unlink_if_temp_file { # Unlink the specified file IFF it's in the list of temp files. # Really only used in the case of -f / -q things when we can # throw away the dynamically generated source pod file once # we've formatted it. # my($self, $file) = @_; return unless defined $file and length $file; my $temp_file_list = $self->{'temp_file_list'} || return; if(grep $_ eq $file, @$temp_file_list) { $self->aside("Unlinking $file\n"); unlink($file) or $self->warn( "Odd, couldn't unlink $file: $!" ); } else { DEBUG > 1 and print "$file isn't a temp file, so not unlinking.\n"; } return; } #.......................................................................... sub after_rendering { my $self = $_[0]; $self->after_rendering_VMS if $self->is_vms; $self->after_rendering_MSWin32 if $self->is_mswin32; $self->after_rendering_Dos if $self->is_dos; $self->after_rendering_OS2 if $self->is_os2; return; } sub after_rendering_VMS { return } sub after_rendering_Dos { return } sub after_rendering_OS2 { return } sub after_rendering_MSWin32 { return } #.......................................................................... # : : : : : : : : : #.......................................................................... sub minus_f_nocase { # i.e., do like -f, but without regard to case my($self, $dir, $file) = @_; my $path = catfile($dir,$file); return $path if -f $path and -r _; if(!$self->opt_i or $self->is_vms or $self->is_mswin32 or $self->is_dos or $self->is_os2 ) { # On a case-forgiving file system, or if case is important, # that is it, all we can do. $self->warn( "Ignored $path: unreadable\n" ) if -f _; return ''; } local *DIR; my @p = ($dir); my($p,$cip); foreach $p (splitdir $file){ my $try = catfile @p, $p; $self->aside("Scrutinizing $try...\n"); stat $try; if (-d _) { push @p, $p; if ( $p eq $self->{'target'} ) { my $tmp_path = catfile @p; my $path_f = 0; for (@{ $self->{'found'} }) { $path_f = 1 if $_ eq $tmp_path; } push (@{ $self->{'found'} }, $tmp_path) unless $path_f; $self->aside( "Found as $tmp_path but directory\n" ); } } elsif (-f _ && -r _ && lc($try) eq lc($path)) { return $try; } elsif (-f _) { $self->warn( "Ignored $try: unreadable or file/dir mismatch\n" ); } elsif (-d catdir(@p)) { # at least we see the containing directory! my $found = 0; my $lcp = lc $p; my $p_dirspec = catdir(@p); opendir DIR, $p_dirspec or $self->die( "opendir $p_dirspec: $!" ); while(defined( $cip = readdir(DIR) )) { if (lc $cip eq $lcp){ $found++; last; # XXX stop at the first? what if there's others? } } closedir DIR or $self->die( "closedir $p_dirspec: $!" ); return "" unless $found; push @p, $cip; my $p_filespec = catfile(@p); return $p_filespec if -f $p_filespec and -r _; $self->warn( "Ignored $p_filespec: unreadable\n" ) if -f _; } } return ""; } #.......................................................................... sub pagers_guessing { # TODO: This whole subroutine needs to be rewritten. It's semi-insane # right now. my $self = shift; my @pagers; push @pagers, $self->pagers; $self->{'pagers'} = \@pagers; if ($self->is_mswin32) { push @pagers, qw( more< less notepad ); unshift @pagers, $ENV{PAGER} if $ENV{PAGER}; } elsif ($self->is_vms) { push @pagers, qw( most more less type/page ); } elsif ($self->is_dos) { push @pagers, qw( less.exe more.com< ); unshift @pagers, $ENV{PAGER} if $ENV{PAGER}; } elsif ( $self->is_amigaos) { push @pagers, qw( /SYS/Utilities/MultiView /SYS/Utilities/More /C/TYPE ); unshift @pagers, "$ENV{PAGER}" if $ENV{PAGER}; } else { if ($self->is_os2) { unshift @pagers, 'less', 'cmd /c more <'; } push @pagers, qw( more less pg view cat ); unshift @pagers, "$ENV{PAGER} <" if $ENV{PAGER}; } if ($self->is_cygwin) { if (($pagers[0] eq 'less') || ($pagers[0] eq '/usr/bin/less')) { unshift @pagers, '/usr/bin/less -isrR'; unshift @pagers, $ENV{PAGER} if $ENV{PAGER}; } } if ( $self->opt_m ) { unshift @pagers, "$ENV{PERLDOC_SRC_PAGER}" if $ENV{PERLDOC_SRC_PAGER} } else { unshift @pagers, "$ENV{MANPAGER} <" if $ENV{MANPAGER}; unshift @pagers, "$ENV{PERLDOC_PAGER} <" if $ENV{PERLDOC_PAGER}; } $self->aside("Pagers: ", (join ", ", @pagers)); return; } #.......................................................................... sub page_module_file { my($self, @found) = @_; # Security note: # Don't ever just pass this off to anything like MSWin's "start.exe", # since we might be calling on a .pl file, and we wouldn't want that # to actually /execute/ the file that we just want to page thru! # Also a consideration if one were to use a web browser as a pager; # doing so could trigger the browser's MIME mapping for whatever # it thinks .pm/.pl/whatever is. Probably just a (useless and # annoying) "Save as..." dialog, but potentially executing the file # in question -- particularly in the case of MSIE and it's, ahem, # occasionally hazy distinction between OS-local extension # associations, and browser-specific MIME mappings. if(@found > 1) { $self->warn( "Perldoc is only really meant for reading one document at a time.\n" . "So these files are being ignored: " . join(' ', @found[1 .. $#found] ) . "\n" ) } return $self->page($found[0], $self->{'output_to_stdout'}, $self->pagers); } #.......................................................................... sub check_file { my($self, $dir, $file) = @_; unless( ref $self ) { # Should never get called: $Carp::Verbose = 1; require Carp; Carp::croak( join '', "Crazy ", __PACKAGE__, " error:\n", "check_file must be an object_method!\n", "Aborting" ); } if(length $dir and not -d $dir) { DEBUG > 3 and print " No dir $dir -- skipping.\n"; return ""; } my $path = $self->minus_f_nocase($dir,$file); if( length $path and ($self->opt_m ? $self->isprintable($path) : $self->containspod($path)) ) { DEBUG > 3 and print " The file $path indeed looks promising!\n"; return $path; } DEBUG > 3 and print " No good: $file in $dir\n"; return ""; } sub isprintable { my($self, $file, $readit) = @_; my $size= 1024; my $maxunprintfrac= 0.2; # tolerate some unprintables for UTF-8 comments etc. return 1 if !$readit && $file =~ /\.(?:pl|pm|pod|cmd|com|bat)\z/i; my $data; local($_); my $fh = $self->open_fh("<", $file); read $fh, $data, $size; close $fh; $size= length($data); $data =~ tr/\x09-\x0D\x20-\x7E//d; return length($data) <= $size*$maxunprintfrac; } #.......................................................................... sub containspod { my($self, $file, $readit) = @_; return 1 if !$readit && $file =~ /\.pod\z/i; # Under cygwin the /usr/bin/perl is legal executable, but # you cannot open a file with that name. It must be spelled # out as "/usr/bin/perl.exe". # # The following if-case under cygwin prevents error # # $ perldoc perl # Cannot open /usr/bin/perl: no such file or directory # # This would work though # # $ perldoc perl.pod if ( $self->is_cygwin and -x $file and -f "$file.exe" ) { $self->warn( "Cygwin $file.exe search skipped\n" ) if DEBUG or $self->opt_D; return 0; } local($_); my $fh = $self->open_fh("<", $file); while (<$fh>) { if (/^=head/) { close($fh) or $self->die( "Can't close $file: $!" ); return 1; } } close($fh) or $self->die( "Can't close $file: $!" ); return 0; } #.......................................................................... sub maybe_extend_searchpath { my $self = shift; # Does this look like a module or extension directory? if (-f "Makefile.PL" || -f "Build.PL") { push @{$self->{search_path} }, '.','lib'; # don't add if superuser if ($< && $> && -d "blib") { # don't be looking too hard now! push @{ $self->{search_path} }, 'blib'; $self->warn( $@ ) if $@ && $self->opt_D; } } return; } #.......................................................................... sub new_output_file { my $self = shift; my $outspec = $self->opt_d; # Yes, -d overrides all else! # So don't call this twice per format-job! return $self->new_tempfile(@_) unless defined $outspec and length $outspec; # Otherwise open a write-handle on opt_d!f DEBUG > 3 and print "About to try writing to specified output file $outspec\n"; my $fh = $self->open_fh(">", $outspec); DEBUG > 3 and print "Successfully opened $outspec\n"; binmode($fh) if $self->{'output_is_binary'}; return($fh, $outspec); } #.......................................................................... sub useful_filename_bit { # This tries to provide a meaningful bit of text to do with the query, # such as can be used in naming the file -- since if we're going to be # opening windows on temp files (as a "pager" may well do!) then it's # better if the temp file's name (which may well be used as the window # title) isn't ALL just random garbage! # In other words "perldoc_LWPSimple_2371981429" is a better temp file # name than "perldoc_2371981429". So this routine is what tries to # provide the "LWPSimple" bit. # my $self = shift; my $pages = $self->{'pages'} || return undef; return undef unless @$pages; my $chunk = $pages->[0]; return undef unless defined $chunk; $chunk =~ s/:://g; $chunk =~ s/\.\w+$//g; # strip any extension if( $chunk =~ m/([^\#\\:\/\$]+)$/s ) { # get basename, if it's a file $chunk = $1; } else { return undef; } $chunk =~ s/[^a-zA-Z0-9]+//g; # leave ONLY a-zA-Z0-9 things! $chunk = substr($chunk, -10) if length($chunk) > 10; return $chunk; } #.......................................................................... sub new_tempfile { # $self->new_tempfile( [$suffix, [$infix] ] ) my $self = shift; ++$Temp_Files_Created; require File::Temp; return File::Temp::tempfile(UNLINK => 1); } #.......................................................................... sub page { # apply a pager to the output file my ($self, $output, $output_to_stdout, @pagers) = @_; if ($output_to_stdout) { $self->aside("Sending unpaged output to STDOUT.\n"); my $fh = $self->open_fh("<", $output); local $_; while (<$fh>) { print or $self->die( "Can't print to stdout: $!" ); } close $fh or $self->die( "Can't close while $output: $!" ); $self->unlink_if_temp_file($output); } else { # On VMS, quoting prevents logical expansion, and temp files with no # extension get the wrong default extension (such as .LIS for TYPE) $output = VMS::Filespec::rmsexpand($output, '.') if $self->is_vms; $output =~ s{/}{\\}g if $self->is_mswin32 || $self->is_dos; # Altho "/" under MSWin is in theory good as a pathsep, # many many corners of the OS don't like it. So we # have to force it to be "\" to make everyone happy. # if we are on an amiga convert unix path to an amiga one $output =~ s/^\/(.*)\/(.*)/$1:$2/ if $self->is_amigaos; foreach my $pager (@pagers) { $self->aside("About to try calling $pager $output\n"); if ($self->is_vms) { last if system("$pager $output") == 0; } elsif($self->is_amigaos) { last if system($pager, $output) == 0; } else { last if system("$pager \"$output\"") == 0; } } } return; } #.......................................................................... sub searchfor { my($self, $recurse,$s,@dirs) = @_; $s =~ s!::!/!g; $s = VMS::Filespec::unixify($s) if $self->is_vms; return $s if -f $s && $self->containspod($s); $self->aside( "Looking for $s in @dirs\n" ); my $ret; my $i; my $dir; $self->{'target'} = (splitdir $s)[-1]; # XXX: why not use File::Basename? for ($i=0; $i<@dirs; $i++) { $dir = $dirs[$i]; next unless -d $dir; ($dir = VMS::Filespec::unixpath($dir)) =~ s!/\z!! if $self->is_vms; if ( (! $self->opt_m && ( $ret = $self->check_file($dir,"$s.pod"))) or ( $ret = $self->check_file($dir,"$s.pm")) or ( $ret = $self->check_file($dir,$s)) or ( $self->is_vms and $ret = $self->check_file($dir,"$s.com")) or ( $self->is_os2 and $ret = $self->check_file($dir,"$s.cmd")) or ( ($self->is_mswin32 or $self->is_dos or $self->is_os2) and $ret = $self->check_file($dir,"$s.bat")) or ( $ret = $self->check_file("$dir/pod","$s.pod")) or ( $ret = $self->check_file("$dir/pod",$s)) or ( $ret = $self->check_file("$dir/pods","$s.pod")) or ( $ret = $self->check_file("$dir/pods",$s)) ) { DEBUG > 1 and print " Found $ret\n"; return $ret; } if ($recurse) { opendir(D,$dir) or $self->die( "Can't opendir $dir: $!" ); my @newdirs = map catfile($dir, $_), grep { not /^\.\.?\z/s and not /^auto\z/s and # save time! don't search auto dirs -d catfile($dir, $_) } readdir D; closedir(D) or $self->die( "Can't closedir $dir: $!" ); next unless @newdirs; # what a wicked map! @newdirs = map((s/\.dir\z//,$_)[1],@newdirs) if $self->is_vms; $self->aside( "Also looking in @newdirs\n" ); push(@dirs,@newdirs); } } return (); } #.......................................................................... { my $already_asserted; sub assert_closing_stdout { my $self = shift; return if $already_asserted; eval q~ END { close(STDOUT) || CORE::die "Can't close STDOUT: $!" } ~; # What for? to let the pager know that nothing more will come? $self->die( $@ ) if $@; $already_asserted = 1; return; } } #.......................................................................... sub tweak_found_pathnames { my($self, $found) = @_; if ($self->is_mswin32) { foreach (@$found) { s,/,\\,g } } foreach (@$found) { s,',\\',g } # RT 37347 return; } #.......................................................................... # : : : : : : : : : #.......................................................................... sub am_taint_checking { my $self = shift; $self->die( "NO ENVIRONMENT?!?!" ) unless keys %ENV; # reset iterator along the way my($k,$v) = each %ENV; return is_tainted($v); } #.......................................................................... sub is_tainted { # just a function my $arg = shift; my $nada = substr($arg, 0, 0); # zero-length! local $@; # preserve the caller's version of $@ eval { eval "# $nada" }; return length($@) != 0; } #.......................................................................... sub drop_privs_maybe { my $self = shift; DEBUG and print "Attempting to drop privs...\n"; # Attempt to drop privs if we should be tainting and aren't if (!( $self->is_vms || $self->is_mswin32 || $self->is_dos || $self->is_os2 ) && ($> == 0 || $< == 0) && !$self->am_taint_checking() ) { my $id = eval { getpwnam("nobody") }; $id = eval { getpwnam("nouser") } unless defined $id; $id = -2 unless defined $id; # # According to Stevens' APUE and various # (BSD, Solaris, HP-UX) man pages, setting # the real uid first and effective uid second # is the way to go if one wants to drop privileges, # because if one changes into an effective uid of # non-zero, one cannot change the real uid any more. # # Actually, it gets even messier. There is # a third uid, called the saved uid, and as # long as that is zero, one can get back to # uid of zero. Setting the real-effective *twice* # helps in *most* systems (FreeBSD and Solaris) # but apparently in HP-UX even this doesn't help: # the saved uid stays zero (apparently the only way # in HP-UX to change saved uid is to call setuid() # when the effective uid is zero). # eval { $< = $id; # real uid $> = $id; # effective uid $< = $id; # real uid $> = $id; # effective uid }; if( !$@ && $< && $> ) { DEBUG and print "OK, I dropped privileges.\n"; } elsif( $self->opt_U ) { DEBUG and print "Couldn't drop privileges, but in -U mode, so feh." } else { DEBUG and print "Hm, couldn't drop privileges. Ah well.\n"; # We used to die here; but that seemed pointless. } } return; } #.......................................................................... 1; __END__ =head1 NAME Pod::Perldoc - Look up Perl documentation in Pod format. =head1 SYNOPSIS use Pod::Perldoc (); Pod::Perldoc->run(); =head1 DESCRIPTION The guts of L<perldoc> utility. =head1 SEE ALSO L<perldoc> =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2002-2007 Sean M. Burke. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Current maintainer: Mark Allen C<< <mallen@cpan.org> >> Past contributions from: brian d foy C<< <bdfoy@cpan.org> >> Adriano R. Ferreira C<< <ferreira@cpan.org> >>, Sean M. Burke C<< <sburke@cpan.org> >> =cut PK ! �Z��g �g 5.34.0/Pod/Html.pmnu �[��� package Pod::Html; use strict; require Exporter; our $VERSION = 1.27; our @ISA = qw(Exporter); our @EXPORT = qw(pod2html htmlify); our @EXPORT_OK = qw(anchorify relativize_url); use Carp; use Config; use Cwd; use File::Basename; use File::Spec; use File::Spec::Unix; use Getopt::Long; use Pod::Simple::Search; use Pod::Simple::SimpleTree (); use Text::Tabs; use locale; # make \w work right in non-ASCII lands =head1 NAME Pod::Html - module to convert pod files to HTML =head1 SYNOPSIS use Pod::Html; pod2html([options]); =head1 DESCRIPTION Converts files from pod format (see L<perlpod>) to HTML format. It can automatically generate indexes and cross-references, and it keeps a cache of things it knows how to cross-reference. =head1 FUNCTIONS =head2 pod2html pod2html("pod2html", "--podpath=lib:ext:pod:vms", "--podroot=/usr/src/perl", "--htmlroot=/perl/nmanual", "--recurse", "--infile=foo.pod", "--outfile=/perl/nmanual/foo.html"); pod2html takes the following arguments: =over 4 =item backlink --backlink Turns every C<head1> heading into a link back to the top of the page. By default, no backlinks are generated. =item cachedir --cachedir=name Creates the directory cache in the given directory. =item css --css=stylesheet Specify the URL of a cascading style sheet. Also disables all HTML/CSS C<style> attributes that are output by default (to avoid conflicts). =item flush --flush Flushes the directory cache. =item header --header --noheader Creates header and footer blocks containing the text of the C<NAME> section. By default, no headers are generated. =item help --help Displays the usage message. =item htmldir --htmldir=name Sets the directory to which all cross references in the resulting html file will be relative. Not passing this causes all links to be absolute since this is the value that tells Pod::Html the root of the documentation tree. Do not use this and --htmlroot in the same call to pod2html; they are mutually exclusive. =item htmlroot --htmlroot=name Sets the base URL for the HTML files. When cross-references are made, the HTML root is prepended to the URL. Do not use this if relative links are desired: use --htmldir instead. Do not pass both this and --htmldir to pod2html; they are mutually exclusive. =item index --index --noindex Generate an index at the top of the HTML file. This is the default behaviour. =item infile --infile=name Specify the pod file to convert. Input is taken from STDIN if no infile is specified. =item outfile --outfile=name Specify the HTML file to create. Output goes to STDOUT if no outfile is specified. =item poderrors --poderrors --nopoderrors Include a "POD ERRORS" section in the outfile if there were any POD errors in the infile. This section is included by default. =item podpath --podpath=name:...:name Specify which subdirectories of the podroot contain pod files whose HTML converted forms can be linked to in cross references. =item podroot --podroot=name Specify the base directory for finding library pods. Default is the current working directory. =item quiet --quiet --noquiet Don't display I<mostly harmless> warning messages. These messages will be displayed by default. But this is not the same as C<verbose> mode. =item recurse --recurse --norecurse Recurse into subdirectories specified in podpath (default behaviour). =item title --title=title Specify the title of the resulting HTML file. =item verbose --verbose --noverbose Display progress messages. By default, they won't be displayed. =back =head2 htmlify htmlify($heading); Converts a pod section specification to a suitable section specification for HTML. Note that we keep spaces and special characters except C<", ?> (Netscape problem) and the hyphen (writer's problem...). =head2 anchorify anchorify(@heading); Similar to C<htmlify()>, but turns non-alphanumerics into underscores. Note that C<anchorify()> is not exported by default. =head1 ENVIRONMENT Uses C<$Config{pod2html}> to setup default options. =head1 AUTHOR Marc Green, E<lt>marcgreen@cpan.orgE<gt>. Original version by Tom Christiansen, E<lt>tchrist@perl.comE<gt>. =head1 SEE ALSO L<perlpod> =head1 COPYRIGHT This program is distributed under the Artistic License. =cut # This sub duplicates the guts of Pod::Simple::FromTree. We could have # used that module, except that it would have been a non-core dependency. sub feed_tree_to_parser { my($parser, $tree) = @_; if(ref($tree) eq "") { $parser->_handle_text($tree); } elsif(!($tree->[0] eq "X" && $parser->nix_X_codes)) { $parser->_handle_element_start($tree->[0], $tree->[1]); feed_tree_to_parser($parser, $_) foreach @{$tree}[2..$#$tree]; $parser->_handle_element_end($tree->[0]); } } my $Cachedir; my $Dircache; my($Htmlroot, $Htmldir, $Htmlfile, $Htmlfileurl); my($Podfile, @Podpath, $Podroot); my $Poderrors; my $Css; my $Recurse; my $Quiet; my $Verbose; my $Doindex; my $Backlink; my($Title, $Header); my %Pages = (); # associative array used to find the location # of pages referenced by L<> links. my $Curdir = File::Spec->curdir; sub init_globals { $Cachedir = "."; # The directory to which directory caches # will be written. $Dircache = "pod2htmd.tmp"; $Htmlroot = "/"; # http-server base directory from which all # relative paths in $podpath stem. $Htmldir = ""; # The directory to which the html pages # will (eventually) be written. $Htmlfile = ""; # write to stdout by default $Htmlfileurl = ""; # The url that other files would use to # refer to this file. This is only used # to make relative urls that point to # other files. $Poderrors = 1; $Podfile = ""; # read from stdin by default @Podpath = (); # list of directories containing library pods. $Podroot = $Curdir; # filesystem base directory from which all # relative paths in $podpath stem. $Css = ''; # Cascading style sheet $Recurse = 1; # recurse on subdirectories in $podpath. $Quiet = 0; # not quiet by default $Verbose = 0; # not verbose by default $Doindex = 1; # non-zero if we should generate an index $Backlink = 0; # no backlinks added by default $Header = 0; # produce block header/footer $Title = undef; # title to give the pod(s) } sub pod2html { local(@ARGV) = @_; local $_; init_globals(); parse_command_line(); # prevent '//' in urls $Htmlroot = "" if $Htmlroot eq "/"; $Htmldir =~ s#/\z##; if ( $Htmlroot eq '' && defined( $Htmldir ) && $Htmldir ne '' && substr( $Htmlfile, 0, length( $Htmldir ) ) eq $Htmldir ) { # Set the 'base' url for this file, so that we can use it # as the location from which to calculate relative links # to other files. If this is '', then absolute links will # be used throughout. #$Htmlfileurl = "$Htmldir/" . substr( $Htmlfile, length( $Htmldir ) + 1); # Is the above not just "$Htmlfileurl = $Htmlfile"? $Htmlfileurl = Pod::Html::_unixify($Htmlfile); } # load or generate/cache %Pages unless (get_cache($Dircache, \@Podpath, $Podroot, $Recurse)) { # generate %Pages my $pwd = getcwd(); chdir($Podroot) || die "$0: error changing to directory $Podroot: $!\n"; # find all pod modules/pages in podpath, store in %Pages # - callback used to remove Podroot and extension from each file # - laborious to allow '.' in dirnames (e.g., /usr/share/perl/5.14.1) Pod::Simple::Search->new->inc(0)->verbose($Verbose)->laborious(1) ->callback(\&_save_page)->recurse($Recurse)->survey(@Podpath); chdir($pwd) || die "$0: error changing to directory $pwd: $!\n"; # cache the directory list for later use warn "caching directories for later use\n" if $Verbose; open my $cache, '>', $Dircache or die "$0: error open $Dircache for writing: $!\n"; print $cache join(":", @Podpath) . "\n$Podroot\n"; my $_updirs_only = ($Podroot =~ /\.\./) && !($Podroot =~ /[^\.\\\/]/); foreach my $key (keys %Pages) { if($_updirs_only) { my $_dirlevel = $Podroot; while($_dirlevel =~ /\.\./) { $_dirlevel =~ s/\.\.//; # Assume $Pages{$key} has '/' separators (html dir separators). $Pages{$key} =~ s/^[\w\s\-\.]+\///; } } print $cache "$key $Pages{$key}\n"; } close $cache or die "error closing $Dircache: $!"; } my $input; unless (@ARGV && $ARGV[0]) { if ($Podfile and $Podfile ne '-') { $input = $Podfile; } else { $input = '-'; # XXX: make a test case for this } } else { $Podfile = $ARGV[0]; $input = *ARGV; } # set options for input parser my $parser = Pod::Simple::SimpleTree->new; # Normalize whitespace indenting $parser->strip_verbatim_indent(\&trim_leading_whitespace); $parser->codes_in_verbatim(0); $parser->accept_targets(qw(html HTML)); $parser->no_errata_section(!$Poderrors); # note the inverse warn "Converting input file $Podfile\n" if $Verbose; my $podtree = $parser->parse_file($input)->root; unless(defined $Title) { if($podtree->[0] eq "Document" && ref($podtree->[2]) eq "ARRAY" && $podtree->[2]->[0] eq "head1" && @{$podtree->[2]} == 3 && ref($podtree->[2]->[2]) eq "" && $podtree->[2]->[2] eq "NAME" && ref($podtree->[3]) eq "ARRAY" && $podtree->[3]->[0] eq "Para" && @{$podtree->[3]} >= 3 && !(grep { ref($_) ne "" } @{$podtree->[3]}[2..$#{$podtree->[3]}]) && (@$podtree == 4 || (ref($podtree->[4]) eq "ARRAY" && $podtree->[4]->[0] eq "head1"))) { $Title = join("", @{$podtree->[3]}[2..$#{$podtree->[3]}]); } } $Title //= ""; $Title = html_escape($Title); # set options for the HTML generator $parser = Pod::Simple::XHTML::LocalPodLinks->new(); $parser->codes_in_verbatim(0); $parser->anchor_items(1); # the old Pod::Html always did $parser->backlink($Backlink); # linkify =head1 directives $parser->force_title($Title); $parser->htmldir($Htmldir); $parser->htmlfileurl($Htmlfileurl); $parser->htmlroot($Htmlroot); $parser->index($Doindex); $parser->output_string(\my $output); # written to file later $parser->pages(\%Pages); $parser->quiet($Quiet); $parser->verbose($Verbose); # We need to add this ourselves because we use our own header, not # ::XHTML's header. We need to set $parser->backlink to linkify # the =head1 directives my $bodyid = $Backlink ? ' id="_podtop_"' : ''; my $csslink = ''; my $tdstyle = ' style="background-color: #cccccc; color: #000"'; if ($Css) { $csslink = qq(\n<link rel="stylesheet" href="$Css" type="text/css" />); $csslink =~ s,\\,/,g; $csslink =~ s,(/.):,$1|,; $tdstyle= ''; } # header/footer block my $block = $Header ? <<END_OF_BLOCK : ''; <table border="0" width="100%" cellspacing="0" cellpadding="3"> <tr><td class="_podblock_"$tdstyle valign="middle"> <big><strong><span class="_podblock_"> $Title</span></strong></big> </td></tr> </table> END_OF_BLOCK # create own header/footer because of --header $parser->html_header(<<"HTMLHEAD"); <?xml version="1.0" ?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <title>$Title</title>$csslink <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rev="made" href="mailto:$Config{perladmin}" /> </head> <body$bodyid> $block HTMLHEAD $parser->html_footer(<<"HTMLFOOT"); $block </body> </html> HTMLFOOT feed_tree_to_parser($parser, $podtree); # Write output to file $Htmlfile = "-" unless $Htmlfile; # stdout my $fhout; if($Htmlfile and $Htmlfile ne '-') { open $fhout, ">", $Htmlfile or die "$0: cannot open $Htmlfile file for output: $!\n"; } else { open $fhout, ">-"; } binmode $fhout, ":utf8"; print $fhout $output; close $fhout or die "Failed to close $Htmlfile: $!"; chmod 0644, $Htmlfile unless $Htmlfile eq '-'; } ############################################################################## sub usage { my $podfile = shift; warn "$0: $podfile: @_\n" if @_; die <<END_OF_USAGE; Usage: $0 --help --htmldir=<name> --htmlroot=<URL> --infile=<name> --outfile=<name> --podpath=<name>:...:<name> --podroot=<name> --cachedir=<name> --flush --recurse --norecurse --quiet --noquiet --verbose --noverbose --index --noindex --backlink --nobacklink --header --noheader --poderrors --nopoderrors --css=<URL> --title=<name> --[no]backlink - turn =head1 directives into links pointing to the top of the page (off by default). --cachedir - directory for the directory cache files. --css - stylesheet URL --flush - flushes the directory cache. --[no]header - produce block header/footer (default is no headers). --help - prints this message. --htmldir - directory for resulting HTML files. --htmlroot - http-server base directory from which all relative paths in podpath stem (default is /). --[no]index - generate an index at the top of the resulting html (default behaviour). --infile - filename for the pod to convert (input taken from stdin by default). --outfile - filename for the resulting html file (output sent to stdout by default). --[no]poderrors - include a POD ERRORS section in the output if there were any POD errors in the input (default behavior). --podpath - colon-separated list of directories containing library pods (empty by default). --podroot - filesystem base directory from which all relative paths in podpath stem (default is .). --[no]quiet - suppress some benign warning messages (default is off). --[no]recurse - recurse on those subdirectories listed in podpath (default behaviour). --title - title that will appear in resulting html file. --[no]verbose - self-explanatory (off by default). END_OF_USAGE } sub parse_command_line { my ($opt_backlink,$opt_cachedir,$opt_css,$opt_flush,$opt_header, $opt_help,$opt_htmldir,$opt_htmlroot,$opt_index,$opt_infile, $opt_outfile,$opt_poderrors,$opt_podpath,$opt_podroot, $opt_quiet,$opt_recurse,$opt_title,$opt_verbose); unshift @ARGV, split ' ', $Config{pod2html} if $Config{pod2html}; my $result = GetOptions( 'backlink!' => \$opt_backlink, 'cachedir=s' => \$opt_cachedir, 'css=s' => \$opt_css, 'flush' => \$opt_flush, 'help' => \$opt_help, 'header!' => \$opt_header, 'htmldir=s' => \$opt_htmldir, 'htmlroot=s' => \$opt_htmlroot, 'index!' => \$opt_index, 'infile=s' => \$opt_infile, 'outfile=s' => \$opt_outfile, 'poderrors!' => \$opt_poderrors, 'podpath=s' => \$opt_podpath, 'podroot=s' => \$opt_podroot, 'quiet!' => \$opt_quiet, 'recurse!' => \$opt_recurse, 'title=s' => \$opt_title, 'verbose!' => \$opt_verbose, ); usage("-", "invalid parameters") if not $result; usage("-") if defined $opt_help; # see if the user asked for help $opt_help = ""; # just to make -w shut-up. @Podpath = split(":", $opt_podpath) if defined $opt_podpath; $Backlink = $opt_backlink if defined $opt_backlink; $Cachedir = _unixify($opt_cachedir) if defined $opt_cachedir; $Css = $opt_css if defined $opt_css; $Header = $opt_header if defined $opt_header; $Htmldir = _unixify($opt_htmldir) if defined $opt_htmldir; $Htmlroot = _unixify($opt_htmlroot) if defined $opt_htmlroot; $Doindex = $opt_index if defined $opt_index; $Podfile = _unixify($opt_infile) if defined $opt_infile; $Htmlfile = _unixify($opt_outfile) if defined $opt_outfile; $Poderrors = $opt_poderrors if defined $opt_poderrors; $Podroot = _unixify($opt_podroot) if defined $opt_podroot; $Quiet = $opt_quiet if defined $opt_quiet; $Recurse = $opt_recurse if defined $opt_recurse; $Title = $opt_title if defined $opt_title; $Verbose = $opt_verbose if defined $opt_verbose; warn "Flushing directory caches\n" if $opt_verbose && defined $opt_flush; $Dircache = "$Cachedir/pod2htmd.tmp"; if (defined $opt_flush) { 1 while unlink($Dircache); } } my $Saved_Cache_Key; sub get_cache { my($dircache, $podpath, $podroot, $recurse) = @_; # A first-level cache: # Don't bother reading the cache files if they still apply # and haven't changed since we last read them. my $this_cache_key = cache_key($dircache, $podpath, $podroot, $recurse); return 1 if $Saved_Cache_Key and $this_cache_key eq $Saved_Cache_Key; $Saved_Cache_Key = $this_cache_key; # load the cache of %Pages if possible. $tests will be # non-zero if successful. my $tests = 0; if (-f $dircache) { warn "scanning for directory cache\n" if $Verbose; $tests = load_cache($dircache, $podpath, $podroot); } return $tests; } sub cache_key { my($dircache, $podpath, $podroot, $recurse) = @_; return join('!',$dircache,$recurse,@$podpath,$podroot,stat($dircache)); } # # load_cache - tries to find if the cache stored in $dircache is a valid # cache of %Pages. if so, it loads them and returns a non-zero value. # sub load_cache { my($dircache, $podpath, $podroot) = @_; my $tests = 0; local $_; warn "scanning for directory cache\n" if $Verbose; open(my $cachefh, '<', $dircache) || die "$0: error opening $dircache for reading: $!\n"; $/ = "\n"; # is it the same podpath? $_ = <$cachefh>; chomp($_); $tests++ if (join(":", @$podpath) eq $_); # is it the same podroot? $_ = <$cachefh>; chomp($_); $tests++ if ($podroot eq $_); # load the cache if its good if ($tests != 2) { close($cachefh); return 0; } warn "loading directory cache\n" if $Verbose; while (<$cachefh>) { /(.*?) (.*)$/; $Pages{$1} = $2; } close($cachefh); return 1; } # # html_escape: make text safe for HTML # sub html_escape { my $rest = $_[0]; $rest =~ s/&/&/g; $rest =~ s/</</g; $rest =~ s/>/>/g; $rest =~ s/"/"/g; $rest =~ s/([[:^print:]])/sprintf("&#x%x;", ord($1))/aeg; return $rest; } # # htmlify - converts a pod section specification to a suitable section # specification for HTML. We adopt the mechanism used by the formatter # that we use. # sub htmlify { my( $heading) = @_; return Pod::Simple::XHTML->can("idify")->(undef, $heading, 1); } # # similar to htmlify, but turns non-alphanumerics into underscores # sub anchorify { my ($anchor) = @_; $anchor = htmlify($anchor); $anchor =~ s/\W/_/g; return $anchor; } # # store POD files in %Pages # sub _save_page { my ($modspec, $modname) = @_; # Remove Podroot from path $modspec = $Podroot eq File::Spec->curdir ? File::Spec->abs2rel($modspec) : File::Spec->abs2rel($modspec, File::Spec->canonpath($Podroot)); # Convert path to unix style path $modspec = Pod::Html::_unixify($modspec); my ($file, $dir) = fileparse($modspec, qr/\.[^.]*/); # strip .ext $Pages{$modname} = $dir.$file; } sub _unixify { my $full_path = shift; return '' unless $full_path; return $full_path if $full_path eq '/'; my ($vol, $dirs, $file) = File::Spec->splitpath($full_path); my @dirs = $dirs eq File::Spec->curdir() ? (File::Spec::Unix->curdir()) : File::Spec->splitdir($dirs); if (defined($vol) && $vol) { $vol =~ s/:$// if $^O eq 'VMS'; $vol = uc $vol if $^O eq 'MSWin32'; if( $dirs[0] ) { unshift @dirs, $vol; } else { $dirs[0] = $vol; } } unshift @dirs, '' if File::Spec->file_name_is_absolute($full_path); return $file unless scalar(@dirs); $full_path = File::Spec::Unix->catfile(File::Spec::Unix->catdir(@dirs), $file); $full_path =~ s|^\/|| if $^O eq 'MSWin32'; # C:/foo works, /C:/foo doesn't $full_path =~ s/\^\././g if $^O eq 'VMS'; # unescape dots return $full_path; } package Pod::Simple::XHTML::LocalPodLinks; use strict; use warnings; use parent 'Pod::Simple::XHTML'; use File::Spec; use File::Spec::Unix; __PACKAGE__->_accessorize( 'htmldir', 'htmlfileurl', 'htmlroot', 'pages', # Page name => relative/path/to/page from root POD dir 'quiet', 'verbose', ); sub resolve_pod_page_link { my ($self, $to, $section) = @_; return undef unless defined $to || defined $section; if (defined $section) { $section = '#' . $self->idify($section, 1); return $section unless defined $to; } else { $section = ''; } my $path; # path to $to according to %Pages unless (exists $self->pages->{$to}) { # Try to find a POD that ends with $to and use that. # e.g., given L<XHTML>, if there is no $Podpath/XHTML in %Pages, # look for $Podpath/*/XHTML in %Pages, with * being any path, # as a substitute (e.g., $Podpath/Pod/Simple/XHTML) my @matches; foreach my $modname (keys %{$self->pages}) { push @matches, $modname if $modname =~ /::\Q$to\E\z/; } # make it look like a path instead of a namespace my $modloc = File::Spec->catfile(split(/::/, $to)); if ($#matches == -1) { warn "Cannot find file \"$modloc.*\" directly under podpath, " . "cannot find suitable replacement: link remains unresolved.\n" if $self->verbose; return ''; } elsif ($#matches == 0) { $path = $self->pages->{$matches[0]}; my $matchloc = File::Spec->catfile(split(/::/, $path)); warn "Cannot find file \"$modloc.*\" directly under podpath, but ". "I did find \"$matchloc.*\", so I'll assume that is what you ". "meant to link to.\n" if $self->verbose; } else { # Use [-1] so newer (higher numbered) perl PODs are used # XXX currently, @matches isn't sorted so this is not true $path = $self->pages->{$matches[-1]}; my $matchloc = File::Spec->catfile(split(/::/, $path)); warn "Cannot find file \"$modloc.*\" directly under podpath, but ". "I did find \"$matchloc.*\" (among others), so I'll use that " . "to resolve the link.\n" if $self->verbose; } } else { $path = $self->pages->{$to}; } my $url = File::Spec::Unix->catfile(Pod::Html::_unixify($self->htmlroot), $path); if ($self->htmlfileurl ne '') { # then $self->htmlroot eq '' (by definition of htmlfileurl) so # $self->htmldir needs to be prepended to link to get the absolute path # that will be relativized $url = Pod::Html::relativize_url( File::Spec::Unix->catdir(Pod::Html::_unixify($self->htmldir), $url), $self->htmlfileurl # already unixified ); } return $url . ".html$section"; } package Pod::Html; # # relativize_url - convert an absolute URL to one relative to a base URL. # Assumes both end in a filename. # sub relativize_url { my ($dest, $source) = @_; # Remove each file from its path my ($dest_volume, $dest_directory, $dest_file) = File::Spec::Unix->splitpath( $dest ); $dest = File::Spec::Unix->catpath( $dest_volume, $dest_directory, '' ); my ($source_volume, $source_directory, $source_file) = File::Spec::Unix->splitpath( $source ); $source = File::Spec::Unix->catpath( $source_volume, $source_directory, '' ); my $rel_path = ''; if ($dest ne '') { $rel_path = File::Spec::Unix->abs2rel( $dest, $source ); } if ($rel_path ne '' && substr( $rel_path, -1 ) ne '/') { $rel_path .= "/$dest_file"; } else { $rel_path .= "$dest_file"; } return $rel_path; } # Remove any level of indentation (spaces or tabs) from each code block consistently # Adapted from: https://metacpan.org/source/HAARG/MetaCPAN-Pod-XHTML-0.002001/lib/Pod/Simple/Role/StripVerbatimIndent.pm sub trim_leading_whitespace { my ($para) = @_; # Start by converting tabs to spaces @$para = Text::Tabs::expand(@$para); # Find the line with the least amount of indent, as that's our "base" my @indent_levels = (sort(map { $_ =~ /^( *)./mg } @$para)); my $indent = $indent_levels[0] || ""; # Remove the "base" amount of indent from each line foreach (@$para) { $_ =~ s/^\Q$indent//mg; } return; } 1; PK ! �b��E �E 5.34.0/Pod/Escapes.pmnu �[��� package Pod::Escapes; use strict; use warnings; use 5.006; use vars qw( %Code2USASCII %Name2character %Name2character_number %Latin1Code_to_fallback %Latin1Char_to_fallback $FAR_CHAR $FAR_CHAR_NUMBER $NOT_ASCII @ISA $VERSION @EXPORT_OK %EXPORT_TAGS ); require Exporter; @ISA = ('Exporter'); $VERSION = '1.07'; @EXPORT_OK = qw( %Code2USASCII %Name2character %Name2character_number %Latin1Code_to_fallback %Latin1Char_to_fallback e2char e2charnum ); %EXPORT_TAGS = ('ALL' => \@EXPORT_OK); #========================================================================== $FAR_CHAR = "?" unless defined $FAR_CHAR; $FAR_CHAR_NUMBER = ord($FAR_CHAR) unless defined $FAR_CHAR_NUMBER; $NOT_ASCII = 'A' ne chr(65) unless defined $NOT_ASCII; #-------------------------------------------------------------------------- sub e2char { my $in = $_[0]; return undef unless defined $in and length $in; # Convert to decimal: if($in =~ m/^(0[0-7]*)$/s ) { $in = oct $in; } elsif($in =~ m/^0?x([0-9a-fA-F]+)$/s ) { $in = hex $1; } # else it's decimal, or named if($in =~ m/^\d+$/s) { if($] < 5.007 and $in > 255) { # can't be trusted with Unicode return $FAR_CHAR; } elsif ($] >= 5.007003) { return chr(utf8::unicode_to_native($in)); } elsif ($NOT_ASCII) { return $Code2USASCII{$in} # so "65" => "A" everywhere || $Latin1Code_to_fallback{$in} # Fallback. || $FAR_CHAR; # Fall further back } else { return chr($in); } } else { return $Name2character{$in}; # returns undef if unknown } } #-------------------------------------------------------------------------- sub e2charnum { my $in = $_[0]; return undef unless defined $in and length $in; # Convert to decimal: if($in =~ m/^(0[0-7]*)$/s ) { $in = oct $in; } elsif($in =~ m/^0?x([0-9a-fA-F]+)$/s ) { $in = hex $1; } # else it's decimal, or named if($in =~ m/^[0-9]+$/s) { return 0 + $in; } else { return $Name2character_number{$in}; # returns undef if unknown } } #-------------------------------------------------------------------------- %Code2USASCII = ( # mostly generated by # perl -e "printf qq{ \x25 3s, '\x25s',\n}, $_, chr($_) foreach (32 .. 126)" 32, ' ', 33, '!', 34, '"', 35, '#', 36, '$', 37, '%', 38, '&', 39, "'", #! 40, '(', 41, ')', 42, '*', 43, '+', 44, ',', 45, '-', 46, '.', 47, '/', 48, '0', 49, '1', 50, '2', 51, '3', 52, '4', 53, '5', 54, '6', 55, '7', 56, '8', 57, '9', 58, ':', 59, ';', 60, '<', 61, '=', 62, '>', 63, '?', 64, '@', 65, 'A', 66, 'B', 67, 'C', 68, 'D', 69, 'E', 70, 'F', 71, 'G', 72, 'H', 73, 'I', 74, 'J', 75, 'K', 76, 'L', 77, 'M', 78, 'N', 79, 'O', 80, 'P', 81, 'Q', 82, 'R', 83, 'S', 84, 'T', 85, 'U', 86, 'V', 87, 'W', 88, 'X', 89, 'Y', 90, 'Z', 91, '[', 92, "\\", #! 93, ']', 94, '^', 95, '_', 96, '`', 97, 'a', 98, 'b', 99, 'c', 100, 'd', 101, 'e', 102, 'f', 103, 'g', 104, 'h', 105, 'i', 106, 'j', 107, 'k', 108, 'l', 109, 'm', 110, 'n', 111, 'o', 112, 'p', 113, 'q', 114, 'r', 115, 's', 116, 't', 117, 'u', 118, 'v', 119, 'w', 120, 'x', 121, 'y', 122, 'z', 123, '{', 124, '|', 125, '}', 126, '~', ); #-------------------------------------------------------------------------- %Latin1Code_to_fallback = (); @Latin1Code_to_fallback{0xA0 .. 0xFF} = ( # Copied from Text/Unidecode/x00.pm: ' ', qq{!}, qq{C/}, 'PS', qq{\$?}, qq{Y=}, qq{|}, 'SS', qq{"}, qq{(c)}, 'a', qq{<<}, qq{!}, "", qq{(r)}, qq{-}, 'deg', qq{+-}, '2', '3', qq{'}, 'u', 'P', qq{*}, qq{,}, '1', 'o', qq{>>}, qq{1/4}, qq{1/2}, qq{3/4}, qq{?}, 'A', 'A', 'A', 'A', 'A', 'A', 'AE', 'C', 'E', 'E', 'E', 'E', 'I', 'I', 'I', 'I', 'D', 'N', 'O', 'O', 'O', 'O', 'O', 'x', 'O', 'U', 'U', 'U', 'U', 'U', 'Th', 'ss', 'a', 'a', 'a', 'a', 'a', 'a', 'ae', 'c', 'e', 'e', 'e', 'e', 'i', 'i', 'i', 'i', 'd', 'n', 'o', 'o', 'o', 'o', 'o', qq{/}, 'o', 'u', 'u', 'u', 'u', 'y', 'th', 'y', ); { # Now stuff %Latin1Char_to_fallback: %Latin1Char_to_fallback = (); my($k,$v); while( ($k,$v) = each %Latin1Code_to_fallback) { $Latin1Char_to_fallback{chr $k} = $v; #print chr($k), ' => ', $v, "\n"; } } #-------------------------------------------------------------------------- %Name2character_number = ( # General XML/XHTML: 'lt' => 60, 'gt' => 62, 'quot' => 34, 'amp' => 38, 'apos' => 39, # POD-specific: 'sol' => 47, 'verbar' => 124, 'lchevron' => 171, # legacy for laquo 'rchevron' => 187, # legacy for raquo # Remember, grave looks like \ (as in virtu\) # acute looks like / (as in re/sume/) # circumflex looks like ^ (as in papier ma^che/) # umlaut/dieresis looks like " (as in nai"ve, Chloe") # From the XHTML 1 .ent files: 'nbsp' , 160, 'iexcl' , 161, 'cent' , 162, 'pound' , 163, 'curren' , 164, 'yen' , 165, 'brvbar' , 166, 'sect' , 167, 'uml' , 168, 'copy' , 169, 'ordf' , 170, 'laquo' , 171, 'not' , 172, 'shy' , 173, 'reg' , 174, 'macr' , 175, 'deg' , 176, 'plusmn' , 177, 'sup2' , 178, 'sup3' , 179, 'acute' , 180, 'micro' , 181, 'para' , 182, 'middot' , 183, 'cedil' , 184, 'sup1' , 185, 'ordm' , 186, 'raquo' , 187, 'frac14' , 188, 'frac12' , 189, 'frac34' , 190, 'iquest' , 191, 'Agrave' , 192, 'Aacute' , 193, 'Acirc' , 194, 'Atilde' , 195, 'Auml' , 196, 'Aring' , 197, 'AElig' , 198, 'Ccedil' , 199, 'Egrave' , 200, 'Eacute' , 201, 'Ecirc' , 202, 'Euml' , 203, 'Igrave' , 204, 'Iacute' , 205, 'Icirc' , 206, 'Iuml' , 207, 'ETH' , 208, 'Ntilde' , 209, 'Ograve' , 210, 'Oacute' , 211, 'Ocirc' , 212, 'Otilde' , 213, 'Ouml' , 214, 'times' , 215, 'Oslash' , 216, 'Ugrave' , 217, 'Uacute' , 218, 'Ucirc' , 219, 'Uuml' , 220, 'Yacute' , 221, 'THORN' , 222, 'szlig' , 223, 'agrave' , 224, 'aacute' , 225, 'acirc' , 226, 'atilde' , 227, 'auml' , 228, 'aring' , 229, 'aelig' , 230, 'ccedil' , 231, 'egrave' , 232, 'eacute' , 233, 'ecirc' , 234, 'euml' , 235, 'igrave' , 236, 'iacute' , 237, 'icirc' , 238, 'iuml' , 239, 'eth' , 240, 'ntilde' , 241, 'ograve' , 242, 'oacute' , 243, 'ocirc' , 244, 'otilde' , 245, 'ouml' , 246, 'divide' , 247, 'oslash' , 248, 'ugrave' , 249, 'uacute' , 250, 'ucirc' , 251, 'uuml' , 252, 'yacute' , 253, 'thorn' , 254, 'yuml' , 255, 'fnof' , 402, 'Alpha' , 913, 'Beta' , 914, 'Gamma' , 915, 'Delta' , 916, 'Epsilon' , 917, 'Zeta' , 918, 'Eta' , 919, 'Theta' , 920, 'Iota' , 921, 'Kappa' , 922, 'Lambda' , 923, 'Mu' , 924, 'Nu' , 925, 'Xi' , 926, 'Omicron' , 927, 'Pi' , 928, 'Rho' , 929, 'Sigma' , 931, 'Tau' , 932, 'Upsilon' , 933, 'Phi' , 934, 'Chi' , 935, 'Psi' , 936, 'Omega' , 937, 'alpha' , 945, 'beta' , 946, 'gamma' , 947, 'delta' , 948, 'epsilon' , 949, 'zeta' , 950, 'eta' , 951, 'theta' , 952, 'iota' , 953, 'kappa' , 954, 'lambda' , 955, 'mu' , 956, 'nu' , 957, 'xi' , 958, 'omicron' , 959, 'pi' , 960, 'rho' , 961, 'sigmaf' , 962, 'sigma' , 963, 'tau' , 964, 'upsilon' , 965, 'phi' , 966, 'chi' , 967, 'psi' , 968, 'omega' , 969, 'thetasym' , 977, 'upsih' , 978, 'piv' , 982, 'bull' , 8226, 'hellip' , 8230, 'prime' , 8242, 'Prime' , 8243, 'oline' , 8254, 'frasl' , 8260, 'weierp' , 8472, 'image' , 8465, 'real' , 8476, 'trade' , 8482, 'alefsym' , 8501, 'larr' , 8592, 'uarr' , 8593, 'rarr' , 8594, 'darr' , 8595, 'harr' , 8596, 'crarr' , 8629, 'lArr' , 8656, 'uArr' , 8657, 'rArr' , 8658, 'dArr' , 8659, 'hArr' , 8660, 'forall' , 8704, 'part' , 8706, 'exist' , 8707, 'empty' , 8709, 'nabla' , 8711, 'isin' , 8712, 'notin' , 8713, 'ni' , 8715, 'prod' , 8719, 'sum' , 8721, 'minus' , 8722, 'lowast' , 8727, 'radic' , 8730, 'prop' , 8733, 'infin' , 8734, 'ang' , 8736, 'and' , 8743, 'or' , 8744, 'cap' , 8745, 'cup' , 8746, 'int' , 8747, 'there4' , 8756, 'sim' , 8764, 'cong' , 8773, 'asymp' , 8776, 'ne' , 8800, 'equiv' , 8801, 'le' , 8804, 'ge' , 8805, 'sub' , 8834, 'sup' , 8835, 'nsub' , 8836, 'sube' , 8838, 'supe' , 8839, 'oplus' , 8853, 'otimes' , 8855, 'perp' , 8869, 'sdot' , 8901, 'lceil' , 8968, 'rceil' , 8969, 'lfloor' , 8970, 'rfloor' , 8971, 'lang' , 9001, 'rang' , 9002, 'loz' , 9674, 'spades' , 9824, 'clubs' , 9827, 'hearts' , 9829, 'diams' , 9830, 'OElig' , 338, 'oelig' , 339, 'Scaron' , 352, 'scaron' , 353, 'Yuml' , 376, 'circ' , 710, 'tilde' , 732, 'ensp' , 8194, 'emsp' , 8195, 'thinsp' , 8201, 'zwnj' , 8204, 'zwj' , 8205, 'lrm' , 8206, 'rlm' , 8207, 'ndash' , 8211, 'mdash' , 8212, 'lsquo' , 8216, 'rsquo' , 8217, 'sbquo' , 8218, 'ldquo' , 8220, 'rdquo' , 8221, 'bdquo' , 8222, 'dagger' , 8224, 'Dagger' , 8225, 'permil' , 8240, 'lsaquo' , 8249, 'rsaquo' , 8250, 'euro' , 8364, ); # Fill out %Name2character... { %Name2character = (); my($name, $number); while( ($name, $number) = each %Name2character_number) { if($] < 5.007 and $number > 255) { $Name2character{$name} = $FAR_CHAR; # substitute for Unicode characters, for perls # that can't reliably handle them } elsif ($] >= 5.007003) { $Name2character{$name} = chr utf8::unicode_to_native($number); # normal case for more recent Perls where we can translate from Unicode # to the native character set. } elsif (exists $Code2USASCII{$number}) { $Name2character{$name} = $Code2USASCII{$number}; # on older Perls, we can use the translations we have hard-coded in this # file, but these don't include the non-ASCII-range characters } elsif ($NOT_ASCII && $number > 127 && $number < 256) { # this range on old non-ASCII-platform perls is wrong if (exists $Latin1Code_to_fallback{$number}) { $Name2character{$name} = $Latin1Code_to_fallback{$number}; } else { $Name2character{$name} = $FAR_CHAR; } } else { $Name2character{$name} = chr $number; } } } #-------------------------------------------------------------------------- 1; __END__ =head1 NAME Pod::Escapes - for resolving Pod EE<lt>...E<gt> sequences =head1 SYNOPSIS use Pod::Escapes qw(e2char); ...la la la, parsing POD, la la la... $text = e2char($e_node->label); unless(defined $text) { print "Unknown E sequence \"", $e_node->label, "\"!"; } ...else print/interpolate $text... =head1 DESCRIPTION This module provides things that are useful in decoding Pod EE<lt>...E<gt> sequences. Presumably, it should be used only by Pod parsers and/or formatters. By default, Pod::Escapes exports none of its symbols. But you can request any of them to be exported. Either request them individually, as with C<use Pod::Escapes qw(symbolname symbolname2...);>, or you can do C<use Pod::Escapes qw(:ALL);> to get all exportable symbols. =head1 GOODIES =over =item e2char($e_content) Given a name or number that could appear in a C<EE<lt>name_or_numE<gt>> sequence, this returns the string that it stands for. For example, C<e2char('sol')>, C<e2char('47')>, C<e2char('0x2F')>, and C<e2char('057')> all return "/", because C<EE<lt>solE<gt>>, C<EE<lt>47E<gt>>, C<EE<lt>0x2fE<gt>>, and C<EE<lt>057E<gt>>, all mean "/". If the name has no known value (as with a name of "qacute") or is syntactically invalid (as with a name of "1/4"), this returns undef. =item e2charnum($e_content) Given a name or number that could appear in a C<EE<lt>name_or_numE<gt>> sequence, this returns the number of the Unicode character that this stands for. For example, C<e2char('sol')>, C<e2char('47')>, C<e2char('0x2F')>, and C<e2char('057')> all return 47, because C<EE<lt>solE<gt>>, C<EE<lt>47E<gt>>, C<EE<lt>0x2fE<gt>>, and C<EE<lt>057E<gt>>, all mean "/", whose Unicode number is 47. If the name has no known value (as with a name of "qacute") or is syntactically invalid (as with a name of "1/4"), this returns undef. =item $Name2character{I<name>} Maps from names (as in C<EE<lt>I<name>E<gt>>) like "eacute" or "sol" to the string that each stands for. Note that this does not include numerics (like "64" or "x981c"). Under old Perl versions (before 5.7) you get a "?" in place of characters whose Unicode value is over 255. =item $Name2character_number{I<name>} Maps from names (as in C<EE<lt>I<name>E<gt>>) like "eacute" or "sol" to the Unicode value that each stands for. For example, C<$Name2character_number{'eacute'}> is 201, and C<$Name2character_number{'eacute'}> is 8364. You get the correct Unicode value, regardless of the version of Perl you're using -- which differs from C<%Name2character>'s behavior under pre-5.7 Perls. Note that this hash does not include numerics (like "64" or "x981c"). =item $Latin1Code_to_fallback{I<integer>} For numbers in the range 160 (0x00A0) to 255 (0x00FF), this maps from the character code for a Latin-1 character (like 233 for lowercase e-acute) to the US-ASCII character that best aproximates it (like "e"). You may find this useful if you are rendering POD in a format that you think deals well only with US-ASCII characters. =item $Latin1Char_to_fallback{I<character>} Just as above, but maps from characters (like "\xE9", lowercase e-acute) to characters (like "e"). =item $Code2USASCII{I<integer>} This maps from US-ASCII codes (like 32) to the corresponding character (like space, for 32). Only characters 32 to 126 are defined. This is meant for use by C<e2char($x)> when it senses that it's running on a non-ASCII platform (where chr(32) doesn't get you a space -- but $Code2USASCII{32} will). It's documented here just in case you might find it useful. =back =head1 CAVEATS On Perl versions before 5.7, Unicode characters with a value over 255 (like lambda or emdash) can't be conveyed. This module does work under such early Perl versions, but in the place of each such character, you get a "?". Latin-1 characters (characters 160-255) are unaffected. Under EBCDIC platforms, C<e2char($n)> may not always be the same as C<chr(e2charnum($n))>, and ditto for C<$Name2character{$name}> and C<chr($Name2character_number{$name})>, because the strings are returned as native, and the numbers are returned as Unicode. However, for Perls starting with v5.8, C<e2char($n)> is the same as C<chr(utf8::unicode_to_native(e2charnum($n)))>, and ditto for C<$Name2character{$name}> and C<chr(utf8::unicode_to_native($Name2character_number{$name}))>. =head1 SEE ALSO L<Pod::Browser> - a pod web server based on L<Catalyst>. L<Pod::Checker> - check pod documents for syntax errors. L<Pod::Coverage> - check if the documentation for a module is comprehensive. L<perlpod> - description of pod format (for people documenting with pod). L<perlpodspec> - specification of pod format (for people processing it). L<Text::Unidecode> - ASCII transliteration of Unicode text. =head1 REPOSITORY L<https://github.com/neilbowers/Pod-Escapes> =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2001-2004 Sean M. Burke. All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. Portions of the data tables in this module are derived from the entity declarations in the W3C XHTML specification. Currently (October 2001), that's these three: http://www.w3.org/TR/xhtml1/DTD/xhtml-lat1.ent http://www.w3.org/TR/xhtml1/DTD/xhtml-special.ent http://www.w3.org/TR/xhtml1/DTD/xhtml-symbol.ent =head1 AUTHOR Sean M. Burke C<sburke@cpan.org> Now being maintained by Neil Bowers E<lt>neilb@cpan.orgE<gt> =cut #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ # What I used for reading the XHTML .ent files: my(@norms, @good, @bad); my $dir = 'c:/sgml/docbook/'; my %escapes; foreach my $file (qw( xhtml-symbol.ent xhtml-lat1.ent xhtml-special.ent )) { open(IN, "<$dir$file") or die "can't read-open $dir$file: $!"; print "Reading $file...\n"; while(<IN>) { if(m/<!ENTITY\s+(\S+)\s+"&#([^;]+);">/) { my($name, $value) = ($1,$2); next if $name eq 'quot' or $name eq 'apos' or $name eq 'gt'; $value = hex $1 if $value =~ m/^x([a-fA-F0-9]+)$/s; print "ILLEGAL VALUE $value" unless $value =~ m/^\d+$/s; if($value > 255) { push @good , sprintf " %-10s , chr(%s),\n", "'$name'", $value; push @bad , sprintf " %-10s , \$bad,\n", "'$name'", $value; } else { push @norms, sprintf " %-10s , chr(%s),\n", "'$name'", $value; } } elsif(m/<!ENT/) { print "# Skipping $_"; } } close(IN); } print @norms; print "\n ( \$] .= 5.006001 ? (\n"; print @good; print " ) : (\n"; print @bad; print " )\n);\n"; __END__ #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ PK ! �}X3� 3� 5.34.0/Pod/Checker.pmnu �[��� ############################################################################# # Pod/Checker.pm -- check pod documents for syntax errors # # Copyright (C) 1994-2000 by Bradford Appleton. All rights reserved. # This is free software; you can redistribute it and/or modify it under the # same terms as Perl itself. ############################################################################# package Pod::Checker; use strict; use warnings; our $VERSION = '1.74'; ## Current version of this package =head1 NAME Pod::Checker - check pod documents for syntax errors =head1 SYNOPSIS use Pod::Checker; $syntax_okay = podchecker($filepath, $outputpath, %options); my $checker = Pod::Checker->new(%options); $checker->parse_from_file($filepath, \*STDERR); =head1 OPTIONS/ARGUMENTS C<$filepath> is the input POD to read and C<$outputpath> is where to write POD syntax error messages. Either argument may be a scalar indicating a file-path, or else a reference to an open filehandle. If unspecified, the input-file it defaults to C<\*STDIN>, and the output-file defaults to C<\*STDERR>. =head2 podchecker() This function can take a hash of options: =over 4 =item B<-warnings> =E<gt> I<val> Turn warnings on/off. I<val> is usually 1 for on, but higher values trigger additional warnings. See L<"Warnings">. =item B<-quiet> =E<gt> I<val> If C<val> is true, do not print any errors/warnings. =back =head1 DESCRIPTION B<podchecker> will perform syntax checking of Perl5 POD format documentation. Curious/ambitious users are welcome to propose additional features they wish to see in B<Pod::Checker> and B<podchecker> and verify that the checks are consistent with L<perlpod>. The following checks are currently performed: =over 4 =item * Unknown '=xxxx' commands, unknown 'XE<lt>...E<gt>' interior-sequences, and unterminated interior sequences. =item * Check for proper balancing of C<=begin> and C<=end>. The contents of such a block are generally ignored, i.e. no syntax checks are performed. =item * Check for proper nesting and balancing of C<=over>, C<=item> and C<=back>. =item * Check for same nested interior-sequences (e.g. C<LE<lt>...LE<lt>...E<gt>...E<gt>>). =item * Check for malformed or non-existing entities C<EE<lt>...E<gt>>. =item * Check for correct syntax of hyperlinks C<LE<lt>...E<gt>>. See L<perlpod> for details. =item * Check for unresolved document-internal links. This check may also reveal misspelled links that seem to be internal links but should be links to something else. =back =head1 DIAGNOSTICS =head2 Errors =over 4 =item * empty =headn A heading (C<=head1> or C<=head2>) without any text? That ain't no heading! =item * =over on line I<N> without closing =back =item * You forgot a '=back' before '=headI<N>' =item * =over is the last thing in the document?! The C<=over> command does not have a corresponding C<=back> before the next heading (C<=head1> or C<=head2>) or the end of the file. =item * '=item' outside of any '=over' =item * =back without =over An C<=item> or C<=back> command has been found outside a C<=over>/C<=back> block. =item * Can't have a 0 in =over I<N> You need to indent a strictly positive number of spaces, not 0. =item * =over should be: '=over' or '=over positive_number' Either have an argumentless =over, or have its argument a strictly positive number. =item * =begin I<TARGET> without matching =end I<TARGET> A C<=begin> command was found that has no matching =end command. =item * =begin without a target? A C<=begin> command was found that is not followed by the formatter specification. =item * =end I<TARGET> without matching =begin. A standalone C<=end> command was found. =item * '=end' without a target? '=end' directives need to have a target, just like =begin directives. =item * '=end I<TARGET>' is invalid. I<TARGET> needs to be one word =item * =end I<CONTENT> doesn't match =begin I<TARGET> I<CONTENT> needs to match =begin's I<TARGET>. =item * =for without a target? There is no specification of the formatter after the C<=for> command. =item * unresolved internal link I<NAME> The given link to I<NAME> does not have a matching node in the current POD. This also happened when a single word node name is not enclosed in C<"">. =item * Unknown directive: I<CMD> An invalid POD command has been found. Valid are C<=head1>, C<=head2>, C<=head3>, C<=head4>, C<=over>, C<=item>, C<=back>, C<=begin>, C<=end>, C<=for>, C<=pod>, C<=cut> =item * Deleting unknown formatting code I<SEQ> An invalid markup command has been encountered. Valid are: C<BE<lt>E<gt>>, C<CE<lt>E<gt>>, C<EE<lt>E<gt>>, C<FE<lt>E<gt>>, C<IE<lt>E<gt>>, C<LE<lt>E<gt>>, C<SE<lt>E<gt>>, C<XE<lt>E<gt>>, C<ZE<lt>E<gt>> =item * Unterminated I<SEQ>E<lt>E<gt> sequence An unclosed formatting code =item * An EE<lt>...E<gt> surrounding strange content The I<STRING> found cannot be interpreted as a character entity. =item * An empty EE<lt>E<gt> =item * An empty C<< LE<lt>E<gt> >> =item * An empty XE<lt>E<gt> There needs to be content inside E, L, and X formatting codes. =item * Spurious text after =pod / =cut The commands C<=pod> and C<=cut> do not take any arguments. =item * =back doesn't take any parameters, but you said =back I<ARGUMENT> The C<=back> command does not take any arguments. =item * =pod directives shouldn't be over one line long! Ignoring all I<N> lines of content Self explanatory =item * =cut found outside a pod block. A '=cut' directive found in the middle of non-POD =item * Invalid =encoding syntax: I<CONTENT> Syntax error in =encoding directive =back =head2 Warnings These may not necessarily cause trouble, but indicate mediocre style. =over 4 =item * nested commands I<CMD>E<lt>...I<CMD>E<lt>...E<gt>...E<gt> Two nested identical markup commands have been found. Generally this does not make sense. =item * multiple occurrences (I<N>) of link target I<name> The POD file has some C<=item> and/or C<=head> commands that have the same text. Potential hyperlinks to such a text cannot be unique then. This warning is printed only with warning level greater than one. =item * line containing nothing but whitespace in paragraph There is some whitespace on a seemingly empty line. POD is very sensitive to such things, so this is flagged. B<vi> users switch on the B<list> option to avoid this problem. =item * =item has no contents There is a list C<=item> that has no text contents. You probably want to delete empty items. =item * You can't have =items (as at line I<N>) unless the first thing after the =over is an =item A list introduced by C<=over> starts with a text or verbatim paragraph, but continues with C<=item>s. Move the non-item paragraph out of the C<=over>/C<=back> block. =item * Expected '=item I<EXPECTED VALUE>' =item * Expected '=item *' =item * Possible =item type mismatch: 'I<x>' found leading a supposed definition =item A list started with e.g. a bullet-like C<=item> and continued with a numbered one. This is obviously inconsistent. For most translators the type of the I<first> C<=item> determines the type of the list. =item * You have '=item x' instead of the expected '=item I<N>' Erroneous numbering of =item numbers; they need to ascend consecutively. =item * Unknown E content in EE<lt>I<CONTENT>E<gt> A character entity was found that does not belong to the standard ISO set or the POD specials C<verbar> and C<sol>. I<Currently, this warning only appears if a character entity was found that does not have a Unicode character. This should be fixed to adhere to the original warning.> =item * empty =over/=back block The list opened with C<=over> does not contain anything. =item * empty section in previous paragraph The previous section (introduced by a C<=head> command) does not contain any valid content. This usually indicates that something is missing. Note: A C<=head1> followed immediately by C<=head2> does not trigger this warning. =item * Verbatim paragraph in NAME section The NAME section (C<=head1 NAME>) should consist of a single paragraph with the script/module name, followed by a dash `-' and a very short description of what the thing is good for. =item * =headI<n> without preceding higher level For example if there is a C<=head2> in the POD file prior to a C<=head1>. =item * A non-empty ZE<lt>E<gt> The C<ZE<lt>E<gt>> sequence is supposed to be empty. Caveat: this issue is detected in L<Pod::Simple> and will be flagged as an I<ERROR> by any client code; any contents of C<ZE<lt>...E<gt>> will be disregarded, anyway. =back =head2 Hyperlinks There are some warnings with respect to malformed hyperlinks: =over 4 =item * ignoring leading/trailing whitespace in link There is whitespace at the beginning or the end of the contents of LE<lt>...E<gt>. =item * alternative text/node '%s' contains non-escaped | or / The characters C<|> and C</> are special in the LE<lt>...E<gt> context. Although the hyperlink parser does its best to determine which "/" is text and which is a delimiter in case of doubt, one ought to escape these literal characters like this: / E<sol> | E<verbar> =back Note that the line number of the error/warning may refer to the line number of the start of the paragraph in which the error/warning exists, not the line number that the error/warning is on. This bug is present in errors/warnings related to formatting codes. I<This should be fixed.> =head1 RETURN VALUE B<podchecker> returns the number of POD syntax errors found or -1 if there were no POD commands at all found in the file. =head1 EXAMPLES See L</SYNOPSIS> =head1 SCRIPTS The B<podchecker> script that comes with this distribution is a lean wrapper around this module. See the online manual with podchecker -help podchecker -man =head1 INTERFACE While checking, this module collects document properties, e.g. the nodes for hyperlinks (C<=headX>, C<=item>) and index entries (C<XE<lt>E<gt>>). POD translators can use this feature to syntax-check and get the nodes in a first pass before actually starting to convert. This is expensive in terms of execution time, but allows for very robust conversions. Since v1.24 the B<Pod::Checker> module uses only the B<poderror> method to print errors and warnings. The summary output (e.g. "Pod syntax OK") has been dropped from the module and has been included in B<podchecker> (the script). This allows users of B<Pod::Checker> to control completely the output behavior. Users of B<podchecker> (the script) get the well-known behavior. v1.45 inherits from L<Pod::Simple> as opposed to all previous versions inheriting from Pod::Parser. Do B<not> use Pod::Simple's interface when using Pod::Checker unless it is documented somewhere on this page. I repeat, DO B<NOT> USE POD::SIMPLE'S INTERFACE. The following list documents the overrides to Pod::Simple, primarily to make L<Pod::Coverage> happy: =over 4 =item end_B =item end_C =item end_Document =item end_F =item end_I =item end_L =item end_Para =item end_S =item end_X =item end_fcode =item end_for =item end_head =item end_head1 =item end_head2 =item end_head3 =item end_head4 =item end_item =item end_item_bullet =item end_item_number =item end_item_text =item handle_pod_and_cut =item handle_text =item handle_whiteline =item hyperlink =item scream =item start_B =item start_C =item start_Data =item start_F =item start_I =item start_L =item start_Para =item start_S =item start_Verbatim =item start_X =item start_fcode =item start_for =item start_head =item start_head1 =item start_head2 =item start_head3 =item start_head4 =item start_item_bullet =item start_item_number =item start_item_text =item start_over =item start_over_block =item start_over_bullet =item start_over_empty =item start_over_number =item start_over_text =item whine =back =cut ############################################################################# #use diagnostics; use Carp qw(croak); use Exporter 'import'; use base qw/Pod::Simple::Methody/; our @EXPORT = qw(&podchecker); ##--------------------------------- ## Function definitions begin here ##--------------------------------- sub podchecker { my ($infile, $outfile, %options) = @_; local $_; ## Set defaults $infile ||= \*STDIN; $outfile ||= \*STDERR; ## Now create a pod checker my $checker = Pod::Checker->new(%options); ## Now check the pod document for errors $checker->parse_from_file($infile, $outfile); ## Return the number of errors found return $checker->num_errors(); } ##--------------------------------------------------------------------------- ##------------------------------- ## Method definitions begin here ##------------------------------- ################################## =over 4 =item C<Pod::Checker-E<gt>new( %options )> Return a reference to a new Pod::Checker object that inherits from Pod::Simple and is used for calling the required methods later. The following options are recognized: C<-warnings =E<gt> num> Print warnings if C<num> is true. The higher the value of C<num>, the more warnings are printed. Currently there are only levels 1 and 2. C<-quiet =E<gt> num> If C<num> is true, do not print any errors/warnings. This is useful when Pod::Checker is used to munge POD code into plain text from within POD formatters. =cut sub new { my $new = shift->SUPER::new(@_); $new->{'output_fh'} ||= *STDERR{IO}; # Set options my %opts = @_; $new->{'-warnings'} = defined $opts{'-warnings'} ? $opts{'-warnings'} : 1; # default on $new->{'-quiet'} = $opts{'-quiet'} || 0; # default off # Initialize number of errors/warnings $new->{'_NUM_ERRORS'} = 0; $new->{'_NUM_WARNINGS'} = 0; # 'current' also means 'most recent' in the follow comments $new->{'_thispara'} = ''; # current POD paragraph $new->{'_line'} = 0; # current line number $new->{'_head_num'} = 0; # current =head level (set to 0 to make # logic easier down the road) $new->{'_cmds_since_head'} = 0; # num of POD directives since prev. =headN $new->{'_nodes'} = []; # stack for =head/=item nodes $new->{'_fcode_stack'} = []; # stack for nested formatting codes $new->{'_fcode_pos'} = []; # stack for position in paragraph of fcodes $new->{'_begin_stack'} = []; # stack for =begins: [line #, target] $new->{'_links'} = []; # stack for hyperlinks to external entities $new->{'_internal_links'} = []; # set of linked-to internal sections $new->{'_index'} = []; # stack for text in X<>s $new->accept_targets('*'); # check all =begin/=for blocks $new->cut_handler( \&handle_pod_and_cut ); # warn if text after =cut $new->pod_handler( \&handle_pod_and_cut ); # warn if text after =pod $new->whiteline_handler( \&handle_whiteline ); # warn if whiteline $new->parse_empty_lists(1); # warn if they are empty return $new; } ################################## =item C<$checker-E<gt>poderror( @args )> =item C<$checker-E<gt>poderror( {%opts}, @args )> Internal method for printing errors and warnings. If no options are given, simply prints "@_". The following options are recognized and used to form the output: -msg A message to print prior to C<@args>. -line The line number the error occurred in. -file The file (name) the error occurred in. Defaults to the name of the current file being processed. -severity The error level, should be 'WARNING' or 'ERROR'. =cut # Invoked as $self->poderror( @args ), or $self->poderror( {%opts}, @args ) sub poderror { my $self = shift; my %opts = (ref $_[0]) ? %{shift()} : (); ## Retrieve options chomp( my $msg = ($opts{'-msg'} || '')."@_" ); my $line = (exists $opts{'-line'}) ? " at line $opts{'-line'}" : ''; my $file = ' in file ' . ((exists $opts{'-file'}) ? $opts{'-file'} : ((defined $self->source_filename) ? $self->source_filename : "???")); unless (exists $opts{'-severity'}) { ## See if can find severity in message prefix $opts{'-severity'} = $1 if ( $msg =~ s/^\**\s*([A-Z]{3,}):\s+// ); } my $severity = (exists $opts{'-severity'}) ? "*** $opts{-severity}: " : ''; ## Increment error count and print message " ++($self->{'_NUM_ERRORS'}) if(!%opts || ($opts{-severity} && $opts{'-severity'} eq 'ERROR')); ++($self->{'_NUM_WARNINGS'}) if(!%opts || ($opts{-severity} && $opts{'-severity'} eq 'WARNING')); unless($self->{'-quiet'}) { my $out_fh = $self->{'output_fh'} || \*STDERR; print $out_fh ($severity, $msg, $line, $file, "\n") if($self->{'-warnings'} || !%opts || $opts{'-severity'} ne 'WARNING'); } } ################################## =item C<$checker-E<gt>num_errors()> Set (if argument specified) and retrieve the number of errors found. =cut sub num_errors { return (@_ > 1) ? ($_[0]->{'_NUM_ERRORS'} = $_[1]) : $_[0]->{'_NUM_ERRORS'}; } ################################## =item C<$checker-E<gt>num_warnings()> Set (if argument specified) and retrieve the number of warnings found. =cut sub num_warnings { return (@_ > 1) ? ($_[0]->{'_NUM_WARNINGS'} = $_[1]) : $_[0]->{'_NUM_WARNINGS'}; } ################################## =item C<$checker-E<gt>name()> Set (if argument specified) and retrieve the canonical name of POD as found in the C<=head1 NAME> section. =cut sub name { return (@_ > 1 && $_[1]) ? ($_[0]->{'_pod_name'} = $_[1]) : $_[0]->{'_pod_name'}; } ################################## =item C<$checker-E<gt>node()> Add (if argument specified) and retrieve the nodes (as defined by C<=headX> and C<=item>) of the current POD. The nodes are returned in the order of their occurrence. They consist of plain text, each piece of whitespace is collapsed to a single blank. =cut sub node { my ($self,$text) = @_; if(defined $text) { $text =~ s/\s+$//s; # strip trailing whitespace $text =~ s/\s+/ /gs; # collapse whitespace # add node, order important! push(@{$self->{'_nodes'}}, $text); # keep also a uniqueness counter $self->{'_unique_nodes'}->{$text}++ if($text !~ /^\s*$/s); return $text; } @{$self->{'_nodes'}}; } ################################## =item C<$checker-E<gt>idx()> Add (if argument specified) and retrieve the index entries (as defined by C<XE<lt>E<gt>>) of the current POD. They consist of plain text, each piece of whitespace is collapsed to a single blank. =cut # set/return index entries of current POD sub idx { my ($self,$text) = @_; if(defined $text) { $text =~ s/\s+$//s; # strip trailing whitespace $text =~ s/\s+/ /gs; # collapse whitespace # add node, order important! push(@{$self->{'_index'}}, $text); # keep also a uniqueness counter $self->{'_unique_nodes'}->{$text}++ if($text !~ /^\s*$/s); return $text; } @{$self->{'_index'}}; } ################################## # add a hyperlink to the list of those of the current POD; returns current # list after the addition has been done sub hyperlink { my $self = shift; push(@{$self->{'_links'}}, $_[0]); return $_[0]; } =item C<$checker-E<gt>hyperlinks()> Retrieve an array containing the hyperlinks to things outside the current POD (as defined by C<LE<lt>E<gt>>). Each is an instance of a class with the following methods: =cut sub hyperlinks { @{shift->{'_links'}}; } ################################## # override Pod::Simple's whine() and scream() to use poderror() # Note: # Ignore $self->{'no_whining'} b/c $self->{'quiet'} takes care of it in poderror # Don't bother incrementing $self->{'errors_seen'} -- it's not used # Don't bother pushing to $self->{'errata'} b/c poderror() outputs immediately # We don't need to set $self->no_errata_section(1) b/c of these overrides sub whine { my ($self, $line, $complaint) = @_; my $severity = 'ERROR'; if (0) { # XXX: Let's standardize what's a warning and what's an error. Let's not # move stuff up and down the severity tree. -- rjbs, 2013-04-12 # Convert errors in Pod::Simple that are warnings in Pod::Checker # XXX Do differently so the $complaint can be reworded without this breaking $severity = 'WARNING' if $complaint =~ /^Expected '=item .+?'$/ || $complaint =~ /^You can't have =items \(as at line .+?\) unless the first thing after the =over is an =item$/ || $complaint =~ /^You have '=item .+?' instead of the expected '=item .+?'$/; } # rt.cpan.org #98326 - errors about Z<> ("non-empty") $severity = 'WARNING' if $complaint =~ /\bZ\<\>/; $self->poderror({ -line => $line, -severity => $severity, -msg => $complaint }); return 1; # assume everything is peachy keen } sub scream { my ($self, $line, $complaint) = @_; $self->poderror({ -line => $line, -severity => 'ERROR', # consider making severity 'FATAL' -msg => $complaint }); return 1; } ################################## # Some helper subroutines sub _init_event { # assignments done at the start of most events $_[0]{'_thispara'} = ''; $_[0]{'_line'} = $_[1]{'start_line'}; $_[0]{'_cmds_since_head'}++; } sub _check_fcode { my ($self, $inner, $outers) = @_; # Check for an fcode inside another of the same fcode # XXX line number is the line of the start of the paragraph that the warning # is in, not the line that the warning is on. Fix this # Later versions of Pod::Simple forbid nested L<>'s return if $inner eq 'L' && $Pod::Simple::VERSION ge '3.33'; if (grep { $_ eq $inner } @$outers) { $self->poderror({ -line => $self->{'_line'}, -severity => 'WARNING', -msg => "nested commands $inner<...$inner<...>...>"}); } } ################################## sub handle_text { $_[0]{'_thispara'} .= $_[1] } # whiteline is a seemingly blank line that matches /[^\S\r\n]/ sub handle_whiteline { my ($line, $line_n, $self) = @_; $self->poderror({ -line => $line_n, -severity => 'WARNING', -msg => 'line containing nothing but whitespace in paragraph'}); } ######## Directives sub handle_pod_and_cut { my ($line, $line_n, $self) = @_; $self->{'_cmds_since_head'}++; if ($line =~ /=(pod|cut)\s+\S/) { $self->poderror({ -line => $line_n, -severity => 'ERROR', -msg => "Spurious text after =$1"}); } } sub start_Para { shift->_init_event(@_); } sub end_Para { my $self = shift; # Get the NAME of the pod document if ($self->{'_head_num'} == 1 && $self->{'_head_text'} eq 'NAME') { if ($self->{'_thispara'} =~ /^\s*(\S+?)\s*[,-]/) { $self->{'_pod_name'} = $1 unless defined $self->{'_pod_name'}; } } } sub start_Verbatim { my $self = shift; $self->_init_event(@_); if ($self->{'_head_num'} == 1 && $self->{'_head_text'} eq 'NAME') { $self->poderror({ -line => $self->{'_line'}, -severity => 'WARNING', -msg => 'Verbatim paragraph in NAME section' }); } } # Don't need an end_Verbatim # Do I need to do anything else with this? sub start_Data { shift->_init_event() } sub start_head1 { shift->start_head(1, @_) } sub start_head2 { shift->start_head(2, @_) } sub start_head3 { shift->start_head(3, @_) } sub start_head4 { shift->start_head(4, @_) } sub start_head { my $self = shift; my $h = shift; $self->_init_event(@_); my $prev_h = $self->{'_head_num'}; $self->{'_head_num'} = $h; $self->{"_count_head$h"}++; if ($h > 1 && !$self->{'_count_head'.($h-1)}) { $self->poderror({ -line => $self->{'_line'}, -severity => 'WARNING', -msg => "=head$h without preceding higher level"}); } # If this is the first =head of the doc, $prev_h is 0, thus less than $h if ($self->{'_cmds_since_head'} == 1 && $prev_h >= $h) { $self->poderror({ -line => $self->{'_line'}, -severity => 'WARNING', -msg => 'empty section in previous paragraph'}); } } sub end_head1 { shift->end_head(@_) } sub end_head2 { shift->end_head(@_) } sub end_head3 { shift->end_head(@_) } sub end_head4 { shift->end_head(@_) } sub end_head { my $self = shift; my $arg = $self->{'_thispara'}; $arg =~ s/\s+$//; $self->{'_head_text'} = $arg; $self->{'_cmds_since_head'} = 0; my $h = $self->{'_head_num'}; $self->node($arg); # remember this node if ($arg eq '') { $self->poderror({ -line => $self->{'_line'}, -severity => 'ERROR', -msg => "empty =head$h" }); } } sub start_over_bullet { shift->start_over(@_, 'bullet') } sub start_over_number { shift->start_over(@_, 'number') } sub start_over_text { shift->start_over(@_, 'definition') } sub start_over_block { shift->start_over(@_, 'block') } sub start_over_empty { my $self = shift; $self->start_over(@_, 'empty'); $self->poderror({ -line => $self->{'_line'}, -severity => 'WARNING', -msg => 'empty =over/=back block' }); } sub start_over { my $self = shift; my $type = pop; $self->_init_event(@_); } sub start_item_bullet { shift->_init_event(@_) } sub start_item_number { shift->_init_event(@_) } sub start_item_text { shift->_init_event(@_) } sub end_item_bullet { shift->end_item('bullet') } sub end_item_number { shift->end_item('number') } sub end_item_text { shift->end_item('definition') } sub end_item { my $self = shift; my $type = shift; # If there is verbatim text in this item, it will show up as part of # 'paras', and not part of '_thispara'. If the first para after this is a # verbatim one, it actually will be (part of) the contents for this item. if ( $self->{'_thispara'} eq '' && ( ! @{$self->{'paras'}} || $self->{'paras'}[0][0] !~ /Verbatim/i)) { $self->poderror({ -line => $self->{'_line'}, -severity => 'WARNING', -msg => '=item has no contents' }); } $self->node($self->{'_thispara'}); # remember this node } sub start_for { # =for and =begin directives my ($self, $flags) = @_; $self->_init_event($flags); push @{$self->{'_begin_stack'}}, [$self->{'_line'}, $flags->{'target'}]; } sub end_for { my ($self, $flags) = @_; my ($line, $target) = @{pop @{$self->{'_begin_stack'}}}; if ($flags->{'fake-closer'}) { # meaning Pod::Simple generated this =end $self->poderror({ -line => $line, -severity => 'ERROR', -msg => "=begin $target without matching =end $target" }); } } sub end_Document { # Some final error checks my $self = shift; # no POD found here $self->num_errors(-1) && return unless $self->content_seen; my %nodes; for ($self->node()) { $nodes{$_} = 1; if(/^(\S+)\s+\S/) { # we have more than one word. Use the first as a node, too. # This is used heavily in perlfunc.pod $nodes{$1} ||= 2; # derived node } } for ($self->idx()) { $nodes{$_} = 3; # index node } # XXX update unresolved internal link POD -- single word not enclosed in ""? # I don't know what I was thinking when I made the above TODO, and I don't # know what it means... for my $link (@{ $self->{'_internal_links'} }) { my ($name, $line) = @$link; unless ( $nodes{$name} ) { $self->poderror({ -line => $line, -severity => 'ERROR', -msg => "unresolved internal link '$name'"}); } } # check the internal nodes for uniqueness. This pertains to # =headX, =item and X<...> if ($self->{'-warnings'} > 1 ) { for my $node (sort keys %{ $self->{'_unique_nodes'} }) { my $count = $self->{'_unique_nodes'}{$node}; if ($count > 1) { # not unique $self->poderror({ -line => '-', -severity => 'WARNING', -msg => "multiple occurrences ($count) of link target ". "'$node'"}); } } } } ######## Formatting codes sub start_B { shift->start_fcode('B') } sub start_C { shift->start_fcode('C') } sub start_F { shift->start_fcode('F') } sub start_I { shift->start_fcode('I') } sub start_S { shift->start_fcode('S') } sub start_fcode { my ($self, $fcode) = @_; unshift @{$self->{'_fcode_stack'}}, $fcode; } sub end_B { shift->end_fcode() } sub end_C { shift->end_fcode() } sub end_F { shift->end_fcode() } sub end_I { shift->end_fcode() } sub end_S { shift->end_fcode() } sub end_fcode { my $self = shift; $self->_check_fcode(shift @{$self->{'_fcode_stack'}}, # current fcode removed $self->{'_fcode_stack'}); # previous fcodes } sub start_L { my ($self, $flags) = @_; $self->start_fcode('L'); my $link = Pod::Checker::Hyperlink->new($flags, $self); if ($link) { if ( $link->type eq 'pod' && $link->node # It's an internal-to-this-page link if no page is given, or # if the given one is to our NAME. && (! $link->page || ( $self->{'_pod_name'} && $link->page eq $self->{'_pod_name'}))) { push @{ $self->{'_internal_links'} }, [ $link->{'-raw_node'}, $link->line ]; } else { $self->hyperlink($link); } } } sub end_L { my $self = shift; $self->end_fcode(); } sub start_X { my $self = shift; $self->start_fcode('X'); # keep track of where X<> starts in the paragraph # (this is a stack so nested X<>s are handled correctly) push @{$self->{'_fcode_pos'}}, length $self->{'_thispara'}; } sub end_X { my $self = shift; # extract contents of X<> and replace with '' my $start = pop @{$self->{'_fcode_pos'}}; # start at the beginning of X<> my $end = length($self->{'_thispara'}) - $start; # end at end of X<> my $x = substr($self->{'_thispara'}, $start, $end, ''); if ($x eq "") { $self->poderror({ -line => $self->{'_line'}, -severity => 'ERROR', -msg => "An empty X<>" }); } $self->idx($x); # remember this node $self->end_fcode(); } package Pod::Checker::Hyperlink; # This class is used to represent L<> link structures, so that the individual # elements are easily accessible. It is based on code in Pod::Hyperlink sub new { my ($class, $simple_link, # The link structure returned by Pod::Simple $caller # The caller class ) = @_; my $self = +{}; bless $self, $class; $self->{'-line'} ||= $caller->{'_line'}; $self->{'-type'} ||= $simple_link->{'type'}; # Force stringification of page and node. (This expands any E<>.) $self->{'-page'} = exists $simple_link->{'to'} ? "$simple_link->{'to'}" : ""; $self->{'-node'} = exists $simple_link->{'section'} ? "$simple_link->{'section'}" : ""; # Save the unmodified node text, as the .t files are expecting the message # for internal link failures to include it (hence this preserves backward # compatibility). $self->{'-raw_node'} = $self->{'-node'}; # Remove leading/trailing white space. Pod::Simple already warns about # these, so if the only error is this, and the link is otherwise correct, # only the Pod::Simple warning will be output, avoiding unnecessary # confusion. $self->{'-page'} =~ s/ ^ \s+ //x; $self->{'-page'} =~ s/ \s+ $ //x; $self->{'-node'} =~ s/ ^ \s+ //x; $self->{'-node'} =~ s/ \s+ $ //x; # Pod::Simple warns about L<> and L< >, but not L</> if ($self->{'-page'} eq "" && $self->{'-node'} eq "") { $caller->poderror({ -line => $caller->{'_line'}, -severity => 'WARNING', -msg => 'empty link'}); return; } return $self; } =item line() Returns the approximate line number in which the link was encountered =cut sub line { return $_[0]->{-line}; } =item type() Returns the type of the link; one of: C<"url"> for things like C<http://www.foo>, C<"man"> for man pages, or C<"pod">. =cut sub type { return $_[0]->{-type}; } =item page() Returns the linked-to page or url. =cut sub page { return $_[0]->{-page}; } =item node() Returns the anchor or node within the linked-to page, or an empty string (C<"">) if none appears in the link. =back =cut sub node { return $_[0]->{-node}; } =head1 AUTHOR Please report bugs using L<http://rt.cpan.org>. Brad Appleton E<lt>bradapp@enteract.comE<gt> (initial version), Marek Rouchal E<lt>marekr@cpan.orgE<gt>, Marc Green E<lt>marcgreen@cpan.orgE<gt> (port to Pod::Simple) Ricardo Signes E<lt>rjbs@cpan.orgE<gt> (more porting to Pod::Simple) Karl Williamson E<lt>khw@cpan.orgE<gt> (more porting to Pod::Simple) Based on code for B<Pod::Text::pod2text()> written by Tom Christiansen E<lt>tchrist@mox.perl.comE<gt> =cut 1 PK ! G�B(*; *; 5.34.0/Pod/Simple.podnu �[��� =head1 NAME Pod::Simple - framework for parsing Pod =head1 SYNOPSIS TODO =head1 DESCRIPTION Pod::Simple is a Perl library for parsing text in the Pod ("plain old documentation") markup language that is typically used for writing documentation for Perl and for Perl modules. The Pod format is explained in L<perlpod>; the most common formatter is called C<perldoc>. Be sure to read L</ENCODING> if your Pod contains non-ASCII characters. Pod formatters can use Pod::Simple to parse Pod documents and render them into plain text, HTML, or any number of other formats. Typically, such formatters will be subclasses of Pod::Simple, and so they will inherit its methods, like C<parse_file>. But note that Pod::Simple doesn't understand and properly parse Perl itself, so if you have a file which contains a Perl program that has a multi-line quoted string which has lines that look like pod, Pod::Simple will treat them as pod. This can be avoided if the file makes these into indented here documents instead. If you're reading this document just because you have a Pod-processing subclass that you want to use, this document (plus the documentation for the subclass) is probably all you need to read. If you're reading this document because you want to write a formatter subclass, continue reading it and then read L<Pod::Simple::Subclassing>, and then possibly even read L<perlpodspec> (some of which is for parser-writers, but much of which is notes to formatter-writers). =head1 MAIN METHODS =over =item C<< $parser = I<SomeClass>->new(); >> This returns a new parser object, where I<C<SomeClass>> is a subclass of Pod::Simple. =item C<< $parser->output_fh( *OUT ); >> This sets the filehandle that C<$parser>'s output will be written to. You can pass C<*STDOUT> or C<*STDERR>, otherwise you should probably do something like this: my $outfile = "output.txt"; open TXTOUT, ">$outfile" or die "Can't write to $outfile: $!"; $parser->output_fh(*TXTOUT); ...before you call one of the C<< $parser->parse_I<whatever> >> methods. =item C<< $parser->output_string( \$somestring ); >> This sets the string that C<$parser>'s output will be sent to, instead of any filehandle. =item C<< $parser->parse_file( I<$some_filename> ); >> =item C<< $parser->parse_file( *INPUT_FH ); >> This reads the Pod content of the file (or filehandle) that you specify, and processes it with that C<$parser> object, according to however C<$parser>'s class works, and according to whatever parser options you have set up for this C<$parser> object. =item C<< $parser->parse_string_document( I<$all_content> ); >> This works just like C<parse_file> except that it reads the Pod content not from a file, but from a string that you have already in memory. =item C<< $parser->parse_lines( I<...@lines...>, undef ); >> This processes the lines in C<@lines> (where each list item must be a defined value, and must contain exactly one line of content -- so no items like C<"foo\nbar"> are allowed). The final C<undef> is used to indicate the end of document being parsed. The other C<parser_I<whatever>> methods are meant to be called only once per C<$parser> object; but C<parse_lines> can be called as many times per C<$parser> object as you want, as long as the last call (and only the last call) ends with an C<undef> value. =item C<< $parser->content_seen >> This returns true only if there has been any real content seen for this document. Returns false in cases where the document contains content, but does not make use of any Pod markup. =item C<< I<SomeClass>->filter( I<$filename> ); >> =item C<< I<SomeClass>->filter( I<*INPUT_FH> ); >> =item C<< I<SomeClass>->filter( I<\$document_content> ); >> This is a shortcut method for creating a new parser object, setting the output handle to STDOUT, and then processing the specified file (or filehandle, or in-memory document). This is handy for one-liners like this: perl -MPod::Simple::Text -e "Pod::Simple::Text->filter('thingy.pod')" =back =head1 SECONDARY METHODS Some of these methods might be of interest to general users, as well as of interest to formatter-writers. Note that the general pattern here is that the accessor-methods read the attribute's value with C<< $value = $parser->I<attribute> >> and set the attribute's value with C<< $parser->I<attribute>(I<newvalue>) >>. For each accessor, I typically only mention one syntax or another, based on which I think you are actually most likely to use. =over =item C<< $parser->parse_characters( I<SOMEVALUE> ) >> The Pod parser normally expects to read octets and to convert those octets to characters based on the C<=encoding> declaration in the Pod source. Set this option to a true value to indicate that the Pod source is already a Perl character stream. This tells the parser to ignore any C<=encoding> command and to skip all the code paths involving decoding octets. =item C<< $parser->no_whining( I<SOMEVALUE> ) >> If you set this attribute to a true value, you will suppress the parser's complaints about irregularities in the Pod coding. By default, this attribute's value is false, meaning that irregularities will be reported. Note that turning this attribute to true won't suppress one or two kinds of complaints about rarely occurring unrecoverable errors. =item C<< $parser->no_errata_section( I<SOMEVALUE> ) >> If you set this attribute to a true value, you will stop the parser from generating a "POD ERRORS" section at the end of the document. By default, this attribute's value is false, meaning that an errata section will be generated, as necessary. =item C<< $parser->complain_stderr( I<SOMEVALUE> ) >> If you set this attribute to a true value, it will send reports of parsing errors to STDERR. By default, this attribute's value is false, meaning that no output is sent to STDERR. Setting C<complain_stderr> also sets C<no_errata_section>. =item C<< $parser->source_filename >> This returns the filename that this parser object was set to read from. =item C<< $parser->doc_has_started >> This returns true if C<$parser> has read from a source, and has seen Pod content in it. =item C<< $parser->source_dead >> This returns true if C<$parser> has read from a source, and come to the end of that source. =item C<< $parser->strip_verbatim_indent( I<SOMEVALUE> ) >> The perlpod spec for a Verbatim paragraph is "It should be reproduced exactly...", which means that the whitespace you've used to indent your verbatim blocks will be preserved in the output. This can be annoying for outputs such as HTML, where that whitespace will remain in front of every line. It's an unfortunate case where syntax is turned into semantics. If the POD you're parsing adheres to a consistent indentation policy, you can have such indentation stripped from the beginning of every line of your verbatim blocks. This method tells Pod::Simple what to strip. For two-space indents, you'd use: $parser->strip_verbatim_indent(' '); For tab indents, you'd use a tab character: $parser->strip_verbatim_indent("\t"); If the POD is inconsistent about the indentation of verbatim blocks, but you have figured out a heuristic to determine how much a particular verbatim block is indented, you can pass a code reference instead. The code reference will be executed with one argument, an array reference of all the lines in the verbatim block, and should return the value to be stripped from each line. For example, if you decide that you're fine to use the first line of the verbatim block to set the standard for indentation of the rest of the block, you can look at the first line and return the appropriate value, like so: $new->strip_verbatim_indent(sub { my $lines = shift; (my $indent = $lines->[0]) =~ s/\S.*//; return $indent; }); If you'd rather treat each line individually, you can do that, too, by just transforming them in-place in the code reference and returning C<undef>. Say that you don't want I<any> lines indented. You can do something like this: $new->strip_verbatim_indent(sub { my $lines = shift; sub { s/^\s+// for @{ $lines }, return undef; }); =item C<< $parser->expand_verbatim_tabs( I<n> ) >> Default: 8 If after any stripping of indentation in verbatim blocks, there remain tabs, this method call indicates what to do with them. C<0> means leave them as tabs, any other number indicates that each tab is to be translated so as to have tab stops every C<n> columns. This is independent of other methods (except that it operates after any verbatim input stripping is done). Like the other methods, the input parameter is not checked for validity. C<undef> or containing non-digits has the same effect as 8. =back =head1 TERTIARY METHODS =over =item C<< $parser->abandon_output_fh() >>X<abandon_output_fh> Cancel output to the file handle. Any POD read by the C<$parser> is not effected. =item C<< $parser->abandon_output_string() >>X<abandon_output_string> Cancel output to the output string. Any POD read by the C<$parser> is not effected. =item C<< $parser->accept_code( @codes ) >>X<accept_code> Alias for L<< accept_codes >>. =item C<< $parser->accept_codes( @codes ) >>X<accept_codes> Allows C<$parser> to accept a list of L<perlpod/Formatting Codes>. This can be used to implement user-defined codes. =item C<< $parser->accept_directive_as_data( @directives ) >>X<accept_directive_as_data> Allows C<$parser> to accept a list of directives for data paragraphs. A directive is the label of a L<perlpod/Command Paragraph>. A data paragraph is one delimited by C<< =begin/=for/=end >> directives. This can be used to implement user-defined directives. =item C<< $parser->accept_directive_as_processed( @directives ) >>X<accept_directive_as_processed> Allows C<$parser> to accept a list of directives for processed paragraphs. A directive is the label of a L<perlpod/Command Paragraph>. A processed paragraph is also known as L<perlpod/Ordinary Paragraph>. This can be used to implement user-defined directives. =item C<< $parser->accept_directive_as_verbatim( @directives ) >>X<accept_directive_as_verbatim> Allows C<$parser> to accept a list of directives for L<perlpod/Verbatim Paragraph>. A directive is the label of a L<perlpod/Command Paragraph>. This can be used to implement user-defined directives. =item C<< $parser->accept_target( @targets ) >>X<accept_target> Alias for L<< accept_targets >>. =item C<< $parser->accept_target_as_text( @targets ) >>X<accept_target_as_text> Alias for L<< accept_targets_as_text >>. =item C<< $parser->accept_targets( @targets ) >>X<accept_targets> Accepts targets for C<< =begin/=for/=end >> sections of the POD. =item C<< $parser->accept_targets_as_text( @targets ) >>X<accept_targets_as_text> Accepts targets for C<< =begin/=for/=end >> sections that should be parsed as POD. For details, see L<< perlpodspec/About Data Paragraphs >>. =item C<< $parser->any_errata_seen() >>X<any_errata_seen> Used to check if any errata was seen. I<Example:> die "too many errors\n" if $parser->any_errata_seen(); =item C<< $parser->errata_seen() >>X<errata_seen> Returns a hash reference of all errata seen, both whines and screams. The hash reference's keys are the line number and the value is an array reference of the errors for that line. I<Example:> if ( $parser->any_errata_seen() ) { $logger->log( $parser->errata_seen() ); } =item C<< $parser->detected_encoding() >>X<detected_encoding> Return the encoding corresponding to C<< =encoding >>, but only if the encoding was recognized and handled. =item C<< $parser->encoding() >>X<encoding> Return encoding of the document, even if the encoding is not correctly handled. =item C<< $parser->parse_from_file( $source, $to ) >>X<parse_from_file> Parses from C<$source> file to C<$to> file. Similar to L<< Pod::Parser/parse_from_file >>. =item C<< $parser->scream( @error_messages ) >>X<scream> Log an error that can't be ignored. =item C<< $parser->unaccept_code( @codes ) >>X<unaccept_code> Alias for L<< unaccept_codes >>. =item C<< $parser->unaccept_codes( @codes ) >>X<unaccept_codes> Removes C<< @codes >> as valid codes for the parse. =item C<< $parser->unaccept_directive( @directives ) >>X<unaccept_directive> Alias for L<< unaccept_directives >>. =item C<< $parser->unaccept_directives( @directives ) >>X<unaccept_directives> Removes C<< @directives >> as valid directives for the parse. =item C<< $parser->unaccept_target( @targets ) >>X<unaccept_target> Alias for L<< unaccept_targets >>. =item C<< $parser->unaccept_targets( @targets ) >>X<unaccept_targets> Removes C<< @targets >> as valid targets for the parse. =item C<< $parser->version_report() >>X<version_report> Returns a string describing the version. =item C<< $parser->whine( @error_messages ) >>X<whine> Log an error unless C<< $parser->no_whining( TRUE ); >>. =back =head1 ENCODING The Pod::Simple parser expects to read B<octets>. The parser will decode the octets into Perl's internal character string representation using the value of the C<=encoding> declaration in the POD source. If the POD source does not include an C<=encoding> declaration, the parser will attempt to guess the encoding (selecting one of UTF-8 or CP 1252) by examining the first non-ASCII bytes and applying the heuristic described in L<perlpodspec>. (If the POD source contains only ASCII bytes, the encoding is assumed to be ASCII.) If you set the C<parse_characters> option to a true value the parser will expect characters rather than octets; will ignore any C<=encoding>; and will make no attempt to decode the input. =head1 SEE ALSO L<Pod::Simple::Subclassing> L<perlpod|perlpod> L<perlpodspec|perlpodspec> L<Pod::Escapes|Pod::Escapes> L<perldoc> =head1 SUPPORT Questions or discussion about POD and Pod::Simple should be sent to the pod-people@perl.org mail list. Send an empty email to pod-people-subscribe@perl.org to subscribe. This module is managed in an open GitHub repository, L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! Please use L<https://github.com/perl-pod/pod-simple/issues/new> to file a bug report. =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2002 Sean M. Burke. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Pod::Simple was created by Sean M. Burke <sburke@cpan.org>. But don't bother him, he's retired. Pod::Simple is maintained by: =over =item * Allison Randal C<allison@perl.org> =item * Hans Dieter Pearcey C<hdp@cpan.org> =item * David E. Wheeler C<dwheeler@cpan.org> =item * Karl Williamson C<khw@cpan.org> =back Documentation has been contributed by: =over =item * Gabor Szabo C<szabgab@gmail.com> =item * Shawn H Corey C<SHCOREY at cpan.org> =back =cut PK ! V�^ 8 8 5.34.0/Pod/Functions.pmnu �[��� package Pod::Functions; use strict; =head1 NAME Pod::Functions - Group Perl's functions a la perlfunc.pod =head1 SYNOPSIS use Pod::Functions; my @misc_ops = @{ $Kinds{ 'Misc' } }; my $misc_dsc = $Type_Description{ 'Misc' }; or perl /path/to/lib/Pod/Functions.pm This will print a grouped list of Perl's functions, like the L<perlfunc/"Perl Functions by Category"> section. =head1 DESCRIPTION It exports the following variables: =over 4 =item %Kinds This holds a hash-of-lists. Each list contains the functions in the category the key denotes. =item %Type In this hash each key represents a function and the value is the category. The category can be a comma separated list. =item %Flavor In this hash each key represents a function and the value is a short description of that function. =item %Type_Description In this hash each key represents a category of functions and the value is a short description of that category. =item @Type_Order This list of categories is used to produce the same order as the L<perlfunc/"Perl Functions by Category"> section. =back =cut our $VERSION = '1.13'; require Exporter; our @ISA = qw(Exporter); our @EXPORT = qw(%Kinds %Type %Flavor %Type_Description @Type_Order); our(%Kinds, %Type, %Flavor, %Type_Description, @Type_Order); foreach ( [String => 'Functions for SCALARs or strings'], [Regexp => 'Regular expressions and pattern matching'], [Math => 'Numeric functions'], [ARRAY => 'Functions for real @ARRAYs'], [LIST => 'Functions for list data'], [HASH => 'Functions for real %HASHes'], ['I/O' => 'Input and output functions'], [Binary => 'Functions for fixed-length data or records'], [File => 'Functions for filehandles, files, or directories'], [Flow => 'Keywords related to the control flow of your Perl program'], [Namespace => 'Keywords related to scoping'], [Misc => 'Miscellaneous functions'], [Process => 'Functions for processes and process groups'], [Modules => 'Keywords related to Perl modules'], [Objects => 'Keywords related to classes and object-orientation'], [Socket => 'Low-level socket functions'], [SysV => 'System V interprocess communication functions'], [User => 'Fetching user and group info'], [Network => 'Fetching network info'], [Time => 'Time-related functions'], ) { push @Type_Order, $_->[0]; $Type_Description{$_->[0]} = $_->[1]; }; while (<DATA>) { chomp; s/^#.*//; next unless $_; my($name, @data) = split "\t", $_; $Flavor{$name} = pop @data; $Type{$name} = join ',', @data; for my $t (@data) { push @{$Kinds{$t}}, $name; } } close DATA; my( $typedesc, $list ); unless (caller) { foreach my $type ( @Type_Order ) { $list = join(", ", sort @{$Kinds{$type}}); $typedesc = $Type_Description{$type} . ":"; write; } } format = ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< $typedesc ~~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< $typedesc ~~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< $list . 1; __DATA__ -X File a file test (-r, -x, etc) abs Math absolute value function accept Socket accept an incoming socket connect alarm Process schedule a SIGALRM atan2 Math arctangent of Y/X in the range -PI to PI bind Socket binds an address to a socket binmode I/O prepare binary files for I/O bless Objects create an object break Flow break out of a C<given> block caller Flow Namespace get context of the current subroutine call chdir File change your current working directory chmod File changes the permissions on a list of files chomp String remove a trailing record separator from a string chop String remove the last character from a string chown File change the ownership on a list of files chr String get character this number represents chroot File make directory new root for path lookups close I/O close file (or pipe or socket) handle closedir I/O close directory handle connect Socket connect to a remote socket continue Flow optional trailing block in a while or foreach cos Math cosine function crypt String one-way passwd-style encryption dbmclose I/O Objects breaks binding on a tied dbm file dbmopen I/O Objects create binding on a tied dbm file defined Misc test whether a value, variable, or function is defined delete HASH deletes a value from a hash die Flow I/O raise an exception or bail out do Flow Modules turn a BLOCK into a TERM dump Flow create an immediate core dump each ARRAY HASH retrieve the next key/value pair from a hash endgrent User be done using group file endhostent User be done using hosts file endnetent User be done using networks file endprotoent Network be done using protocols file endpwent User be done using passwd file endservent Network be done using services file eof I/O test a filehandle for its end eval Flow catch exceptions or compile and run code evalbytes Flow similar to string eval, but intend to parse a bytestream exec Process abandon this program to run another exists HASH test whether a hash key is present exit Flow terminate this program exp Math raise I<e> to a power fc String return casefolded version of a string fcntl File file control system call __FILE__ Flow the name of the current source file fileno I/O return file descriptor from filehandle flock I/O lock an entire file with an advisory lock fork Process create a new process just like this one format I/O declare a picture format with use by the write() function formline Misc internal function used for formats getc I/O get the next character from the filehandle getgrent User get next group record getgrgid User get group record given group user ID getgrnam User get group record given group name gethostbyaddr Network get host record given its address gethostbyname Network get host record given name gethostent Network get next hosts record getlogin User return who logged in at this tty getnetbyaddr Network get network record given its address getnetbyname Network get networks record given name getnetent Network get next networks record getpeername Socket find the other end of a socket connection getpgrp Process get process group getppid Process get parent process ID getpriority Process get current nice value getprotobyname Network get protocol record given name getprotobynumber Network get protocol record numeric protocol getprotoent Network get next protocols record getpwent User get next passwd record getpwnam User get passwd record given user login name getpwuid User get passwd record given user ID getservbyname Network get services record given its name getservbyport Network get services record given numeric port getservent Network get next services record getsockname Socket retrieve the sockaddr for a given socket getsockopt Socket get socket options on a given socket glob File expand filenames using wildcards gmtime Time convert UNIX time into record or string using Greenwich time goto Flow create spaghetti code grep LIST locate elements in a list test true against a given criterion hex Math String convert a hexadecimal string to a number import Modules Namespace patch a module's namespace into your own index String find a substring within a string int Math get the integer portion of a number ioctl File system-dependent device control system call join LIST join a list into a string using a separator keys ARRAY HASH retrieve list of indices from a hash kill Process send a signal to a process or process group last Flow exit a block prematurely lc String return lower-case version of a string lcfirst String return a string with just the next letter in lower case length String return the number of characters in a string __LINE__ Flow the current source line number link File create a hard link in the filesystem listen Socket register your socket as a server local Namespace create a temporary value for a global variable (dynamic scoping) localtime Time convert UNIX time into record or string using local time lock Misc get a thread lock on a variable, subroutine, or method log Math retrieve the natural logarithm for a number lstat File stat a symbolic link m// Regexp match a string with a regular expression pattern map LIST apply a change to a list to get back a new list with the changes mkdir File create a directory msgctl SysV SysV IPC message control operations msgget SysV get SysV IPC message queue msgrcv SysV receive a SysV IPC message from a message queue msgsnd SysV send a SysV IPC message to a message queue my Namespace declare and assign a local variable (lexical scoping) next Flow iterate a block prematurely no Modules unimport some module symbols or semantics at compile time oct Math String convert a string to an octal number open File open a file, pipe, or descriptor opendir File open a directory ord String find a character's numeric representation our Namespace declare and assign a package variable (lexical scoping) pack Binary String convert a list into a binary representation package Modules Namespace Objects declare a separate global namespace __PACKAGE__ Flow the current package pipe Process open a pair of connected filehandles pop ARRAY remove the last element from an array and return it pos Regexp find or set the offset for the last/next m//g search print I/O output a list to a filehandle printf I/O output a formatted list to a filehandle prototype Misc get the prototype (if any) of a subroutine push ARRAY append one or more elements to an array q/STRING/ String singly quote a string qq/STRING/ String doubly quote a string qr/STRING/ Regexp compile pattern quotemeta Regexp quote regular expression magic characters qw/STRING/ LIST quote a list of words qx/STRING/ Process backquote quote a string rand Math retrieve the next pseudorandom number read Binary I/O fixed-length buffered input from a filehandle readdir I/O get a directory from a directory handle readline I/O fetch a record from a file readlink File determine where a symbolic link is pointing readpipe Process execute a system command and collect standard output recv Socket receive a message over a Socket redo Flow start this loop iteration over again ref Objects find out the type of thing being referenced rename File change a filename require Modules load in external functions from a library at runtime reset Misc clear all variables of a given name return Flow get out of a function early reverse LIST String flip a string or a list rewinddir I/O reset directory handle rindex String right-to-left substring search rmdir File remove a directory s/// Regexp replace a pattern with a string say I/O output a list to a filehandle, appending a newline scalar Misc force a scalar context seek I/O reposition file pointer for random-access I/O seekdir I/O reposition directory pointer select File I/O reset default output or do I/O multiplexing semctl SysV SysV semaphore control operations semget SysV get set of SysV semaphores semop SysV SysV semaphore operations send Socket send a message over a socket setgrent User prepare group file for use sethostent Network prepare hosts file for use setnetent Network prepare networks file for use setpgrp Process set the process group of a process setpriority Process set a process's nice value setprotoent Network prepare protocols file for use setpwent User prepare passwd file for use setservent Network prepare services file for use setsockopt Socket set some socket options shift ARRAY remove the first element of an array, and return it shmctl SysV SysV shared memory operations shmget SysV get SysV shared memory segment identifier shmread SysV read SysV shared memory shmwrite SysV write SysV shared memory shutdown Socket close down just half of a socket connection sin Math return the sine of a number sleep Process block for some number of seconds socket Socket create a socket socketpair Socket create a pair of sockets sort LIST sort a list of values splice ARRAY add or remove elements anywhere in an array split Regexp split up a string using a regexp delimiter sprintf String formatted print into a string sqrt Math square root function srand Math seed the random number generator stat File get a file's status information state Namespace declare and assign a persistent lexical variable study Regexp no-op, formerly optimized input data for repeated searches sub Flow declare a subroutine, possibly anonymously __SUB__ Flow the current subroutine, or C<undef> if not in a subroutine substr String get or alter a portion of a string symlink File create a symbolic link to a file syscall Binary I/O execute an arbitrary system call sysopen File open a file, pipe, or descriptor sysread Binary I/O fixed-length unbuffered input from a filehandle sysseek Binary I/O position I/O pointer on handle used with sysread and syswrite system Process run a separate program syswrite Binary I/O fixed-length unbuffered output to a filehandle tell I/O get current seekpointer on a filehandle telldir I/O get current seekpointer on a directory handle tie Objects bind a variable to an object class tied Objects get a reference to the object underlying a tied variable time Time return number of seconds since 1970 times Process Time return elapsed time for self and child processes tr/// String transliterate a string truncate I/O shorten a file uc String return upper-case version of a string ucfirst String return a string with just the next letter in upper case umask File set file creation mode mask undef Misc remove a variable or function definition unlink File remove one link to a file unpack Binary LIST convert binary structure into normal perl variables unshift ARRAY prepend more elements to the beginning of a list untie Objects break a tie binding to a variable use Modules Namespace Objects load in a module at compile time and import its namespace utime File set a file's last access and modify times values ARRAY HASH return a list of the values in a hash vec Binary test or set particular bits in a string wait Process wait for any child process to die waitpid Process wait for a particular child process to die wantarray Flow get void vs scalar vs list context of current subroutine call warn I/O print debugging info write I/O print a picture record y/// String transliterate a string PK ! �p�p� � 5.34.0/Pod/Text/Color.pmnu �[��� # Convert POD data to formatted color ASCII text # # This is just a basic proof of concept. It should later be modified to make # better use of color, take options changing what colors are used for what # text, and the like. # # SPDX-License-Identifier: GPL-1.0-or-later OR Artistic-1.0-Perl ############################################################################## # Modules and declarations ############################################################################## package Pod::Text::Color; use 5.008; use strict; use warnings; use Pod::Text (); use Term::ANSIColor qw(color colored); use vars qw(@ISA $VERSION); @ISA = qw(Pod::Text); $VERSION = '4.14'; ############################################################################## # Overrides ############################################################################## # Make level one headings bold. sub cmd_head1 { my ($self, $attrs, $text) = @_; $text =~ s/\s+$//; local $Term::ANSIColor::EACHLINE = "\n"; $self->SUPER::cmd_head1 ($attrs, colored ($text, 'bold')); } # Make level two headings bold. sub cmd_head2 { my ($self, $attrs, $text) = @_; $text =~ s/\s+$//; $self->SUPER::cmd_head2 ($attrs, colored ($text, 'bold')); } # Fix the various formatting codes. sub cmd_b { return colored ($_[2], 'bold') } sub cmd_f { return colored ($_[2], 'cyan') } sub cmd_i { return colored ($_[2], 'yellow') } # Analyze a single line and return any formatting codes in effect at the end # of that line. sub end_format { my ($self, $line) = @_; my $reset = color ('reset'); my $current; while ($line =~ /(\e\[[\d;]+m)/g) { my $code = $1; if ($code eq $reset) { undef $current; } else { $current .= $code; } } return $current; } # Output any included code in green. sub output_code { my ($self, $code) = @_; local $Term::ANSIColor::EACHLINE = "\n"; $code = colored ($code, 'green'); $self->output ($code); } # Strip all of the formatting from a provided string, returning the stripped # version. We will eventually want to use colorstrip() from Term::ANSIColor, # but it's fairly new so avoid the tight dependency. sub strip_format { my ($self, $text) = @_; $text =~ s/\e\[[\d;]*m//g; return $text; } # We unfortunately have to override the wrapping code here, since the normal # wrapping code gets really confused by all the escape sequences. sub wrap { my $self = shift; local $_ = shift; my $output = ''; my $spaces = ' ' x $$self{MARGIN}; my $width = $$self{opt_width} - $$self{MARGIN}; # $codes matches a single special sequence. $char matches any number of # special sequences preceding a single character other than a newline. # $shortchar matches some sequence of $char ending in codes followed by # whitespace or the end of the string. $longchar matches exactly $width # $chars, used when we have to truncate and hard wrap. my $code = '(?:\e\[[\d;]+m)'; my $char = "(?>$code*[^\\n])"; my $shortchar = '^(' . $char . "{0,$width}(?>$code*)" . ')(?:\s+|\z)'; my $longchar = '^(' . $char . "{$width})"; while (length > $width) { if (s/$shortchar// || s/$longchar//) { $output .= $spaces . $1 . "\n"; } else { last; } } $output .= $spaces . $_; # less -R always resets terminal attributes at the end of each line, so we # need to clear attributes at the end of lines and then set them again at # the start of the next line. This requires a second pass through the # wrapped string, accumulating any attributes we see, remembering them, # and then inserting the appropriate sequences at the newline. if ($output =~ /\n/) { my @lines = split (/\n/, $output); my $start_format; for my $line (@lines) { if ($start_format && $line =~ /\S/) { $line =~ s/^(\s*)(\S)/$1$start_format$2/; } $start_format = $self->end_format ($line); if ($start_format) { $line .= color ('reset'); } } $output = join ("\n", @lines); } # Fix up trailing whitespace and return the results. $output =~ s/\s+$/\n\n/; $output; } ############################################################################## # Module return value and documentation ############################################################################## 1; __END__ =for stopwords Allbery =head1 NAME Pod::Text::Color - Convert POD data to formatted color ASCII text =head1 SYNOPSIS use Pod::Text::Color; my $parser = Pod::Text::Color->new (sentence => 0, width => 78); # Read POD from STDIN and write to STDOUT. $parser->parse_from_filehandle; # Read POD from file.pod and write to file.txt. $parser->parse_from_file ('file.pod', 'file.txt'); =head1 DESCRIPTION Pod::Text::Color is a simple subclass of Pod::Text that highlights output text using ANSI color escape sequences. Apart from the color, it in all ways functions like Pod::Text. See L<Pod::Text> for details and available options. Term::ANSIColor is used to get colors and therefore must be installed to use this module. =head1 BUGS This is just a basic proof of concept. It should be seriously expanded to support configurable coloration via options passed to the constructor, and B<pod2text> should be taught about those. =head1 AUTHOR Russ Allbery <rra@cpan.org>. =head1 COPYRIGHT AND LICENSE Copyright 1999, 2001, 2004, 2006, 2008, 2009, 2018-2019 Russ Allbery <rra@cpan.org> This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO L<Pod::Text>, L<Pod::Simple> The current version of this module is always available from its web site at L<https://www.eyrie.org/~eagle/software/podlators/>. It is also part of the Perl core distribution as of 5.6.0. =cut # Local Variables: # copyright-at-end-flag: t # End: PK ! ��"s� � 5.34.0/Pod/Text/Termcap.pmnu �[��� # Convert POD data to ASCII text with format escapes. # # This is a simple subclass of Pod::Text that overrides a few key methods to # output the right termcap escape sequences for formatted text on the current # terminal type. # # SPDX-License-Identifier: GPL-1.0-or-later OR Artistic-1.0-Perl ############################################################################## # Modules and declarations ############################################################################## package Pod::Text::Termcap; use 5.008; use strict; use warnings; use Pod::Text (); use POSIX (); use Term::Cap; use vars qw(@ISA $VERSION); @ISA = qw(Pod::Text); $VERSION = '4.14'; ############################################################################## # Overrides ############################################################################## # In the initialization method, grab our terminal characteristics as well as # do all the stuff we normally do. sub new { my ($self, %args) = @_; my ($ospeed, $term, $termios); # Fall back on a hard-coded terminal speed if POSIX::Termios isn't # available (such as on VMS). eval { $termios = POSIX::Termios->new }; if ($@) { $ospeed = 9600; } else { $termios->getattr; $ospeed = $termios->getospeed || 9600; } # Get data from Term::Cap if possible. my ($bold, $undl, $norm, $width); eval { my $term = Tgetent Term::Cap { TERM => undef, OSPEED => $ospeed }; $bold = $term->Tputs('md'); $undl = $term->Tputs('us'); $norm = $term->Tputs('me'); if (defined $$term{_co}) { $width = $$term{_co}; $width =~ s/^\#//; } }; # Figure out the terminal width before calling the Pod::Text constructor, # since it will otherwise force 76 characters. Pod::Text::Termcap has # historically used 2 characters less than the width of the screen, while # the other Pod::Text classes have used 76. This is weirdly inconsistent, # but there's probably no good reason to change it now. unless (defined $args{width}) { $args{width} = $ENV{COLUMNS} || $width || 80; $args{width} -= 2; } # Initialize Pod::Text. $self = $self->SUPER::new (%args); # If we were unable to get any of the formatting sequences, don't attempt # that type of formatting. This will do weird things if bold or underline # were available but normal wasn't, but hopefully that will never happen. $$self{BOLD} = $bold || q{}; $$self{UNDL} = $undl || q{}; $$self{NORM} = $norm || q{}; return $self; } # Make level one headings bold. sub cmd_head1 { my ($self, $attrs, $text) = @_; $text =~ s/\s+$//; $self->SUPER::cmd_head1 ($attrs, "$$self{BOLD}$text$$self{NORM}"); } # Make level two headings bold. sub cmd_head2 { my ($self, $attrs, $text) = @_; $text =~ s/\s+$//; $self->SUPER::cmd_head2 ($attrs, "$$self{BOLD}$text$$self{NORM}"); } # Fix up B<> and I<>. Note that we intentionally don't do F<>. sub cmd_b { my $self = shift; return "$$self{BOLD}$_[1]$$self{NORM}" } sub cmd_i { my $self = shift; return "$$self{UNDL}$_[1]$$self{NORM}" } # Return a regex that matches a formatting sequence. This will only be valid # if we were able to get at least some termcap information. sub format_regex { my ($self) = @_; my @codes = ($self->{BOLD}, $self->{UNDL}, $self->{NORM}); return join(q{|}, map { $_ eq q{} ? () : "\Q$_\E" } @codes); } # Analyze a single line and return any formatting codes in effect at the end # of that line. sub end_format { my ($self, $line) = @_; my $pattern = "(" . $self->format_regex() . ")"; my $current; while ($line =~ /$pattern/g) { my $code = $1; if ($code eq $$self{NORM}) { undef $current; } else { $current .= $code; } } return $current; } # Output any included code in bold. sub output_code { my ($self, $code) = @_; $self->output ($$self{BOLD} . $code . $$self{NORM}); } # Strip all of the formatting from a provided string, returning the stripped # version. sub strip_format { my ($self, $text) = @_; $text =~ s/\Q$$self{BOLD}//g; $text =~ s/\Q$$self{UNDL}//g; $text =~ s/\Q$$self{NORM}//g; return $text; } # Override the wrapping code to ignore the special sequences. sub wrap { my $self = shift; local $_ = shift; my $output = ''; my $spaces = ' ' x $$self{MARGIN}; my $width = $$self{opt_width} - $$self{MARGIN}; # If we were unable to find any termcap sequences, use Pod::Text wrapping. if ($self->{BOLD} eq q{} && $self->{UNDL} eq q{} && $self->{NORM} eq q{}) { return $self->SUPER::wrap($_); } # $code matches a single special sequence. $char matches any number of # special sequences preceding a single character other than a newline. # $shortchar matches some sequence of $char ending in codes followed by # whitespace or the end of the string. $longchar matches exactly $width # $chars, used when we have to truncate and hard wrap. my $code = "(?:" . $self->format_regex() . ")"; my $char = "(?>$code*[^\\n])"; my $shortchar = '^(' . $char . "{0,$width}(?>$code*)" . ')(?:\s+|\z)'; my $longchar = '^(' . $char . "{$width})"; while (length > $width) { if (s/$shortchar// || s/$longchar//) { $output .= $spaces . $1 . "\n"; } else { last; } } $output .= $spaces . $_; # less -R always resets terminal attributes at the end of each line, so we # need to clear attributes at the end of lines and then set them again at # the start of the next line. This requires a second pass through the # wrapped string, accumulating any attributes we see, remembering them, # and then inserting the appropriate sequences at the newline. if ($output =~ /\n/) { my @lines = split (/\n/, $output); my $start_format; for my $line (@lines) { if ($start_format && $line =~ /\S/) { $line =~ s/^(\s*)(\S)/$1$start_format$2/; } $start_format = $self->end_format ($line); if ($start_format) { $line .= $$self{NORM}; } } $output = join ("\n", @lines); } # Fix up trailing whitespace and return the results. $output =~ s/\s+$/\n\n/; return $output; } ############################################################################## # Module return value and documentation ############################################################################## 1; __END__ =head1 NAME Pod::Text::Termcap - Convert POD data to ASCII text with format escapes =for stopwords ECMA-48 VT100 Allbery Solaris TERMPATH =head1 SYNOPSIS use Pod::Text::Termcap; my $parser = Pod::Text::Termcap->new (sentence => 0, width => 78); # Read POD from STDIN and write to STDOUT. $parser->parse_from_filehandle; # Read POD from file.pod and write to file.txt. $parser->parse_from_file ('file.pod', 'file.txt'); =head1 DESCRIPTION Pod::Text::Termcap is a simple subclass of Pod::Text that highlights output text using the correct termcap escape sequences for the current terminal. Apart from the format codes, it in all ways functions like Pod::Text. See L<Pod::Text> for details and available options. This module uses L<Term::Cap> to find the correct terminal settings. See the documentation of that module for how it finds terminal database information and how to override that behavior if necessary. If unable to find control strings for bold and underscore formatting, that formatting is skipped, resulting in the same output as Pod::Text. =head1 AUTHOR Russ Allbery <rra@cpan.org> =head1 COPYRIGHT AND LICENSE Copyright 1999, 2001-2002, 2004, 2006, 2008-2009, 2014-2015, 2018-2019 Russ Allbery <rra@cpan.org> This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO L<Pod::Text>, L<Pod::Simple>, L<Term::Cap> The current version of this module is always available from its web site at L<https://www.eyrie.org/~eagle/software/podlators/>. It is also part of the Perl core distribution as of 5.6.0. =cut # Local Variables: # copyright-at-end-flag: t # End: PK ! e��'s s 5.34.0/Pod/Text/Overstrike.pmnu �[��� # Convert POD data to formatted overstrike text # # This was written because the output from: # # pod2text Text.pm > plain.txt; less plain.txt # # is not as rich as the output from # # pod2man Text.pm | nroff -man > fancy.txt; less fancy.txt # # and because both Pod::Text::Color and Pod::Text::Termcap are not device # independent. # # SPDX-License-Identifier: GPL-1.0-or-later OR Artistic-1.0-Perl ############################################################################## # Modules and declarations ############################################################################## package Pod::Text::Overstrike; use 5.008; use strict; use warnings; use vars qw(@ISA $VERSION); use Pod::Text (); @ISA = qw(Pod::Text); $VERSION = '4.14'; ############################################################################## # Overrides ############################################################################## # Make level one headings bold, overriding any existing formatting. sub cmd_head1 { my ($self, $attrs, $text) = @_; $text =~ s/\s+$//; $text = $self->strip_format ($text); $text =~ s/(.)/$1\b$1/g; return $self->SUPER::cmd_head1 ($attrs, $text); } # Make level two headings bold, overriding any existing formatting. sub cmd_head2 { my ($self, $attrs, $text) = @_; $text =~ s/\s+$//; $text = $self->strip_format ($text); $text =~ s/(.)/$1\b$1/g; return $self->SUPER::cmd_head2 ($attrs, $text); } # Make level three headings underscored, overriding any existing formatting. sub cmd_head3 { my ($self, $attrs, $text) = @_; $text =~ s/\s+$//; $text = $self->strip_format ($text); $text =~ s/(.)/_\b$1/g; return $self->SUPER::cmd_head3 ($attrs, $text); } # Level four headings look like level three headings. sub cmd_head4 { my ($self, $attrs, $text) = @_; $text =~ s/\s+$//; $text = $self->strip_format ($text); $text =~ s/(.)/_\b$1/g; return $self->SUPER::cmd_head4 ($attrs, $text); } # The common code for handling all headers. We have to override to avoid # interpolating twice and because we don't want to honor alt. sub heading { my ($self, $text, $indent, $marker) = @_; $self->item ("\n\n") if defined $$self{ITEM}; $text .= "\n" if $$self{opt_loose}; my $margin = ' ' x ($$self{opt_margin} + $indent); $self->output ($margin . $text . "\n"); return ''; } # Fix the various formatting codes. sub cmd_b { local $_ = $_[0]->strip_format ($_[2]); s/(.)/$1\b$1/g; $_ } sub cmd_f { local $_ = $_[0]->strip_format ($_[2]); s/(.)/_\b$1/g; $_ } sub cmd_i { local $_ = $_[0]->strip_format ($_[2]); s/(.)/_\b$1/g; $_ } # Output any included code in bold. sub output_code { my ($self, $code) = @_; $code =~ s/(.)/$1\b$1/g; $self->output ($code); } # Strip all of the formatting from a provided string, returning the stripped # version. sub strip_format { my ($self, $text) = @_; $text =~ s/(.)[\b]\1/$1/g; $text =~ s/_[\b]//g; return $text; } # We unfortunately have to override the wrapping code here, since the normal # wrapping code gets really confused by all the backspaces. sub wrap { my $self = shift; local $_ = shift; my $output = ''; my $spaces = ' ' x $$self{MARGIN}; my $width = $$self{opt_width} - $$self{MARGIN}; while (length > $width) { # This regex represents a single character, that's possibly underlined # or in bold (in which case, it's three characters; the character, a # backspace, and a character). Use [^\n] rather than . to protect # against odd settings of $*. my $char = '(?:[^\n][\b])?[^\n]'; if (s/^((?>$char){0,$width})(?:\Z|\s+)//) { $output .= $spaces . $1 . "\n"; } else { last; } } $output .= $spaces . $_; $output =~ s/\s+$/\n\n/; return $output; } ############################################################################## # Module return value and documentation ############################################################################## 1; __END__ =for stopwords overstrike overstruck Overstruck Allbery terminal's =head1 NAME Pod::Text::Overstrike - Convert POD data to formatted overstrike text =head1 SYNOPSIS use Pod::Text::Overstrike; my $parser = Pod::Text::Overstrike->new (sentence => 0, width => 78); # Read POD from STDIN and write to STDOUT. $parser->parse_from_filehandle; # Read POD from file.pod and write to file.txt. $parser->parse_from_file ('file.pod', 'file.txt'); =head1 DESCRIPTION Pod::Text::Overstrike is a simple subclass of Pod::Text that highlights output text using overstrike sequences, in a manner similar to nroff. Characters in bold text are overstruck (character, backspace, character) and characters in underlined text are converted to overstruck underscores (underscore, backspace, character). This format was originally designed for hard-copy terminals and/or line printers, yet is readable on soft-copy (CRT) terminals. Overstruck text is best viewed by page-at-a-time programs that take advantage of the terminal's B<stand-out> and I<underline> capabilities, such as the less program on Unix. Apart from the overstrike, it in all ways functions like Pod::Text. See L<Pod::Text> for details and available options. =head1 BUGS Currently, the outermost formatting instruction wins, so for example underlined text inside a region of bold text is displayed as simply bold. There may be some better approach possible. =head1 AUTHOR Originally written by Joe Smith <Joe.Smith@inwap.com>, using the framework created by Russ Allbery <rra@cpan.org>. Subsequently updated by Russ Allbery. =head1 COPYRIGHT AND LICENSE Copyright 2000 by Joe Smith <Joe.Smith@inwap.com> Copyright 2001, 2004, 2008, 2014, 2018-2019 by Russ Allbery <rra@cpan.org> This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO L<Pod::Text>, L<Pod::Simple> The current version of this module is always available from its web site at L<https://www.eyrie.org/~eagle/software/podlators/>. It is also part of the Perl core distribution as of 5.6.0. =cut # Local Variables: # copyright-at-end-flag: t # End: PK ! V��4 �4 5.34.0/IPC/Open3.pmnu �[��� package IPC::Open3; use strict; no strict 'refs'; # because users pass me bareword filehandles our ($VERSION, @ISA, @EXPORT); require Exporter; use Carp; use Symbol qw(gensym qualify); $VERSION = '1.21'; @ISA = qw(Exporter); @EXPORT = qw(open3); =head1 NAME IPC::Open3 - open a process for reading, writing, and error handling using open3() =head1 SYNOPSIS use Symbol 'gensym'; # vivify a separate handle for STDERR my $pid = open3(my $chld_in, my $chld_out, my $chld_err = gensym, 'some', 'cmd', 'and', 'args'); # or pass the command through the shell my $pid = open3(my $chld_in, my $chld_out, my $chld_err = gensym, 'some cmd and args'); # read from parent STDIN # send STDOUT and STDERR to already open handle open my $outfile, '>>', 'output.txt' or die "open failed: $!"; my $pid = open3('<&STDIN', $outfile, undef, 'some', 'cmd', 'and', 'args'); # write to parent STDOUT and STDERR my $pid = open3(my $chld_in, '>&STDOUT', '>&STDERR', 'some', 'cmd', 'and', 'args'); # reap zombie and retrieve exit status waitpid( $pid, 0 ); my $child_exit_status = $? >> 8; =head1 DESCRIPTION Extremely similar to open2(), open3() spawns the given command and connects $chld_out for reading from the child, $chld_in for writing to the child, and $chld_err for errors. If $chld_err is false, or the same file descriptor as $chld_out, then STDOUT and STDERR of the child are on the same filehandle. This means that an autovivified lexical cannot be used for the STDERR filehandle, but gensym from L<Symbol> can be used to vivify a new glob reference, see L</SYNOPSIS>. The $chld_in will have autoflush turned on. If $chld_in begins with C<< <& >>, then $chld_in will be closed in the parent, and the child will read from it directly. If $chld_out or $chld_err begins with C<< >& >>, then the child will send output directly to that filehandle. In both cases, there will be a L<dup(2)> instead of a L<pipe(2)> made. If either reader or writer is the empty string or undefined, this will be replaced by an autogenerated filehandle. If so, you must pass a valid lvalue in the parameter slot so it can be overwritten in the caller, or an exception will be raised. The filehandles may also be integers, in which case they are understood as file descriptors. open3() returns the process ID of the child process. It doesn't return on failure: it just raises an exception matching C</^open3:/>. However, C<exec> failures in the child (such as no such file or permission denied), are just reported to $chld_err under Windows and OS/2, as it is not possible to trap them. If the child process dies for any reason, the next write to $chld_in is likely to generate a SIGPIPE in the parent, which is fatal by default. So you may wish to handle this signal. Note if you specify C<-> as the command, in an analogous fashion to C<open(my $fh, "-|")> the child process will just be the forked Perl process rather than an external command. This feature isn't yet supported on Win32 platforms. open3() does not wait for and reap the child process after it exits. Except for short programs where it's acceptable to let the operating system take care of this, you need to do this yourself. This is normally as simple as calling C<waitpid $pid, 0> when you're done with the process. Failing to do this can result in an accumulation of defunct or "zombie" processes. See L<perlfunc/waitpid> for more information. If you try to read from the child's stdout writer and their stderr writer, you'll have problems with blocking, which means you'll want to use select() or L<IO::Select>, which means you'd best use sysread() instead of readline() for normal stuff. This is very dangerous, as you may block forever. It assumes it's going to talk to something like L<bc(1)>, both writing to it and reading from it. This is presumably safe because you "know" that commands like L<bc(1)> will read a line at a time and output a line at a time. Programs like L<sort(1)> that read their entire input stream first, however, are quite apt to cause deadlock. The big problem with this approach is that if you don't have control over source code being run in the child process, you can't control what it does with pipe buffering. Thus you can't just open a pipe to C<cat -v> and continually read and write a line from it. =head1 See Also =over 4 =item L<IPC::Open2> Like Open3 but without STDERR capture. =item L<IPC::Run> This is a CPAN module that has better error handling and more facilities than Open3. =back =head1 WARNING The order of arguments differs from that of open2(). =cut # &open3: Marc Horowitz <marc@mit.edu> # derived mostly from &open2 by tom christiansen, <tchrist@convex.com> # fixed for 5.001 by Ulrich Kunitz <kunitz@mai-koeln.com> # ported to Win32 by Ron Schmidt, Merrill Lynch almost ended my career # fixed for autovivving FHs, tchrist again # allow fd numbers to be used, by Frank Tobin # allow '-' as command (c.f. open "-|"), by Adam Spiers <perl@adamspiers.org> # # usage: $pid = open3('wtr', 'rdr', 'err' 'some cmd and args', 'optarg', ...); # # spawn the given $cmd and connect rdr for # reading, wtr for writing, and err for errors. # if err is '', or the same as rdr, then stdout and # stderr of the child are on the same fh. returns pid # of child (or dies on failure). # if wtr begins with '<&', then wtr will be closed in the parent, and # the child will read from it directly. if rdr or err begins with # '>&', then the child will send output directly to that fd. In both # cases, there will be a dup() instead of a pipe() made. # WARNING: this is dangerous, as you may block forever # unless you are very careful. # # $wtr is left unbuffered. # # abort program if # rdr or wtr are null # a system call fails our $Me = 'open3 (bug)'; # you should never see this, it's always localized # Fatal.pm needs to be fixed WRT prototypes. sub xpipe { pipe $_[0], $_[1] or croak "$Me: pipe($_[0], $_[1]) failed: $!"; } # I tried using a * prototype character for the filehandle but it still # disallows a bareword while compiling under strict subs. sub xopen { open $_[0], $_[1], @_[2..$#_] and return; local $" = ', '; carp "$Me: open(@_) failed: $!"; } sub xclose { $_[0] =~ /\A=?(\d+)\z/ ? do { my $fh; open($fh, $_[1] . '&=' . $1) and close($fh); } : close $_[0] or croak "$Me: close($_[0]) failed: $!"; } sub xfileno { return $1 if $_[0] =~ /\A=?(\d+)\z/; # deal with fh just being an fd return fileno $_[0]; } use constant FORCE_DEBUG_SPAWN => 0; use constant DO_SPAWN => $^O eq 'os2' || $^O eq 'MSWin32' || FORCE_DEBUG_SPAWN; sub _open3 { local $Me = shift; # simulate autovivification of filehandles because # it's too ugly to use @_ throughout to make perl do it for us # tchrist 5-Mar-00 # Historically, open3(undef...) has silently worked, so keep # it working. splice @_, 0, 1, undef if \$_[0] == \undef; splice @_, 1, 1, undef if \$_[1] == \undef; unless (eval { $_[0] = gensym unless defined $_[0] && length $_[0]; $_[1] = gensym unless defined $_[1] && length $_[1]; 1; }) { # must strip crud for croak to add back, or looks ugly $@ =~ s/(?<=value attempted) at .*//s; croak "$Me: $@"; } my @handles = ({ mode => '<', handle => \*STDIN }, { mode => '>', handle => \*STDOUT }, { mode => '>', handle => \*STDERR }, ); foreach (@handles) { $_->{parent} = shift; $_->{open_as} = gensym; } if (@_ > 1 and $_[0] eq '-') { croak "Arguments don't make sense when the command is '-'" } $handles[2]{parent} ||= $handles[1]{parent}; $handles[2]{dup_of_out} = $handles[1]{parent} eq $handles[2]{parent}; my $package; foreach (@handles) { $_->{dup} = ($_->{parent} =~ s/^[<>]&//); if ($_->{parent} !~ /\A=?(\d+)\z/) { # force unqualified filehandles into caller's package $package //= caller 1; $_->{parent} = qualify $_->{parent}, $package; } next if $_->{dup} or $_->{dup_of_out}; if ($_->{mode} eq '<') { xpipe $_->{open_as}, $_->{parent}; } else { xpipe $_->{parent}, $_->{open_as}; } } my $kidpid; if (!DO_SPAWN) { # Used to communicate exec failures. xpipe my $stat_r, my $stat_w; $kidpid = fork; croak "$Me: fork failed: $!" unless defined $kidpid; if ($kidpid == 0) { # Kid eval { # A tie in the parent should not be allowed to cause problems. untie *STDIN; untie *STDOUT; untie *STDERR; close $stat_r; require Fcntl; my $flags = fcntl $stat_w, &Fcntl::F_GETFD, 0; croak "$Me: fcntl failed: $!" unless $flags; fcntl $stat_w, &Fcntl::F_SETFD, $flags|&Fcntl::FD_CLOEXEC or croak "$Me: fcntl failed: $!"; # If she wants to dup the kid's stderr onto her stdout I need to # save a copy of her stdout before I put something else there. if (!$handles[2]{dup_of_out} && $handles[2]{dup} && xfileno($handles[2]{parent}) == fileno \*STDOUT) { my $tmp = gensym; xopen($tmp, '>&', $handles[2]{parent}); $handles[2]{parent} = $tmp; } foreach (@handles) { if ($_->{dup_of_out}) { xopen \*STDERR, ">&STDOUT" if defined fileno STDERR && fileno STDERR != fileno STDOUT; } elsif ($_->{dup}) { xopen $_->{handle}, $_->{mode} . '&', $_->{parent} if fileno $_->{handle} != xfileno($_->{parent}); } else { xclose $_->{parent}, $_->{mode}; xopen $_->{handle}, $_->{mode} . '&=', fileno $_->{open_as}; } } return 1 if ($_[0] eq '-'); exec @_ or do { local($")=(" "); croak "$Me: exec of @_ failed: $!"; }; } and do { close $stat_w; return 0; }; my $bang = 0+$!; my $err = $@; utf8::encode $err if $] >= 5.008; print $stat_w pack('IIa*', $bang, length($err), $err); close $stat_w; eval { require POSIX; POSIX::_exit(255); }; exit 255; } else { # Parent close $stat_w; my $to_read = length(pack('I', 0)) * 2; my $bytes_read = read($stat_r, my $buf = '', $to_read); if ($bytes_read) { (my $bang, $to_read) = unpack('II', $buf); read($stat_r, my $err = '', $to_read); waitpid $kidpid, 0; # Reap child which should have exited if ($err) { utf8::decode $err if $] >= 5.008; } else { $err = "$Me: " . ($! = $bang); } $! = $bang; die($err); } } } else { # DO_SPAWN # All the bookkeeping of coincidence between handles is # handled in spawn_with_handles. my @close; foreach (@handles) { if ($_->{dup_of_out}) { $_->{open_as} = $handles[1]{open_as}; } elsif ($_->{dup}) { $_->{open_as} = $_->{parent} =~ /\A[0-9]+\z/ ? $_->{parent} : \*{$_->{parent}}; push @close, $_->{open_as}; } else { push @close, \*{$_->{parent}}, $_->{open_as}; } } require IO::Pipe; $kidpid = eval { spawn_with_handles(\@handles, \@close, @_); }; die "$Me: $@" if $@; } foreach (@handles) { next if $_->{dup} or $_->{dup_of_out}; xclose $_->{open_as}, $_->{mode}; } # If the write handle is a dup give it away entirely, close my copy # of it. xclose $handles[0]{parent}, $handles[0]{mode} if $handles[0]{dup}; select((select($handles[0]{parent}), $| = 1)[0]); # unbuffer pipe $kidpid; } sub open3 { if (@_ < 4) { local $" = ', '; croak "open3(@_): not enough arguments"; } return _open3 'open3', @_ } sub spawn_with_handles { my $fds = shift; # Fields: handle, mode, open_as my $close_in_child = shift; my ($fd, %saved, @errs); foreach $fd (@$fds) { $fd->{tmp_copy} = IO::Handle->new_from_fd($fd->{handle}, $fd->{mode}); $saved{fileno $fd->{handle}} = $fd->{tmp_copy} if $fd->{tmp_copy}; } foreach $fd (@$fds) { bless $fd->{handle}, 'IO::Handle' unless eval { $fd->{handle}->isa('IO::Handle') } ; # If some of handles to redirect-to coincide with handles to # redirect, we need to use saved variants: my $open_as = $fd->{open_as}; my $fileno = fileno($open_as); $fd->{handle}->fdopen(defined($fileno) ? $saved{$fileno} || $open_as : $open_as, $fd->{mode}); } unless ($^O eq 'MSWin32') { require Fcntl; # Stderr may be redirected below, so we save the err text: foreach $fd (@$close_in_child) { next unless fileno $fd; fcntl($fd, Fcntl::F_SETFD(), 1) or push @errs, "fcntl $fd: $!" unless $saved{fileno $fd}; # Do not close what we redirect! } } my $pid; unless (@errs) { if (FORCE_DEBUG_SPAWN) { pipe my $r, my $w or die "Pipe failed: $!"; $pid = fork; die "Fork failed: $!" unless defined $pid; if (!$pid) { { no warnings; exec @_ } print $w 0 + $!; close $w; require POSIX; POSIX::_exit(255); } close $w; my $bad = <$r>; if (defined $bad) { $! = $bad; undef $pid; } } else { $pid = eval { system 1, @_ }; # 1 == P_NOWAIT } if($@) { push @errs, "IO::Pipe: Can't spawn-NOWAIT: $@"; } elsif(!$pid || $pid < 0) { push @errs, "IO::Pipe: Can't spawn-NOWAIT: $!"; } } # Do this in reverse, so that STDERR is restored first: foreach $fd (reverse @$fds) { $fd->{handle}->fdopen($fd->{tmp_copy}, $fd->{mode}); } foreach (values %saved) { $_->close or croak "Can't close: $!"; } croak join "\n", @errs if @errs; return $pid; } 1; # so require is happy PK ! ��� � � 5.34.0/IPC/Open2.pmnu �[��� package IPC::Open2; use strict; our ($VERSION, @ISA, @EXPORT); require 5.000; require Exporter; $VERSION = 1.05; @ISA = qw(Exporter); @EXPORT = qw(open2); =head1 NAME IPC::Open2 - open a process for both reading and writing using open2() =head1 SYNOPSIS use IPC::Open2; my $pid = open2(my $chld_out, my $chld_in, 'some', 'cmd', 'and', 'args'); # or passing the command through the shell my $pid = open2(my $chld_out, my $chld_in, 'some cmd and args'); # read from parent STDIN and write to already open handle open my $outfile, '>', 'outfile.txt' or die "open failed: $!"; my $pid = open2($outfile, '<&STDIN', 'some', 'cmd', 'and', 'args'); # read from already open handle and write to parent STDOUT open my $infile, '<', 'infile.txt' or die "open failed: $!"; my $pid = open2('>&STDOUT', $infile, 'some', 'cmd', 'and', 'args'); # reap zombie and retrieve exit status waitpid( $pid, 0 ); my $child_exit_status = $? >> 8; =head1 DESCRIPTION The open2() function runs the given command and connects $chld_out for reading and $chld_in for writing. It's what you think should work when you try my $pid = open(my $fh, "|cmd args|"); The $chld_in filehandle will have autoflush turned on. If $chld_out is a string (that is, a bareword filehandle rather than a glob or a reference) and it begins with C<< >& >>, then the child will send output directly to that file handle. If $chld_in is a string that begins with C<< <& >>, then $chld_in will be closed in the parent, and the child will read from it directly. In both cases, there will be a L<dup(2)> instead of a L<pipe(2)> made. If either reader or writer is the empty string or undefined, this will be replaced by an autogenerated filehandle. If so, you must pass a valid lvalue in the parameter slot so it can be overwritten in the caller, or an exception will be raised. open2() returns the process ID of the child process. It doesn't return on failure: it just raises an exception matching C</^open2:/>. However, C<exec> failures in the child are not detected. You'll have to trap SIGPIPE yourself. open2() does not wait for and reap the child process after it exits. Except for short programs where it's acceptable to let the operating system take care of this, you need to do this yourself. This is normally as simple as calling C<waitpid $pid, 0> when you're done with the process. Failing to do this can result in an accumulation of defunct or "zombie" processes. See L<perlfunc/waitpid> for more information. This whole affair is quite dangerous, as you may block forever. It assumes it's going to talk to something like L<bc(1)>, both writing to it and reading from it. This is presumably safe because you "know" that commands like L<bc(1)> will read a line at a time and output a line at a time. Programs like L<sort(1)> that read their entire input stream first, however, are quite apt to cause deadlock. The big problem with this approach is that if you don't have control over source code being run in the child process, you can't control what it does with pipe buffering. Thus you can't just open a pipe to C<cat -v> and continually read and write a line from it. The L<IO::Pty> and L<Expect> modules from CPAN can help with this, as they provide a real tty (well, a pseudo-tty, actually), which gets you back to line buffering in the invoked command again. =head1 WARNING The order of arguments differs from that of open3(). =head1 SEE ALSO See L<IPC::Open3> for an alternative that handles STDERR as well. This function is really just a wrapper around open3(). =cut # &open2: tom christiansen, <tchrist@convex.com> # # usage: $pid = open2('rdr', 'wtr', 'some cmd and args'); # or $pid = open2('rdr', 'wtr', 'some', 'cmd', 'and', 'args'); # # spawn the given $cmd and connect $rdr for # reading and $wtr for writing. return pid # of child, or 0 on failure. # # WARNING: this is dangerous, as you may block forever # unless you are very careful. # # $wtr is left unbuffered. # # abort program if # rdr or wtr are null # a system call fails require IPC::Open3; sub open2 { local $Carp::CarpLevel = $Carp::CarpLevel + 1; return IPC::Open3::_open3('open2', $_[1], $_[0], '>&STDERR', @_[2 .. $#_]); } 1 PK ! ��c 5.34.0/IPC/Cmd.pmnu �[��� package IPC::Cmd; use strict; BEGIN { use constant IS_VMS => $^O eq 'VMS' ? 1 : 0; use constant IS_WIN32 => $^O eq 'MSWin32' ? 1 : 0; use constant IS_HPUX => $^O eq 'hpux' ? 1 : 0; use constant IS_WIN98 => (IS_WIN32 and !Win32::IsWinNT()) ? 1 : 0; use constant ALARM_CLASS => __PACKAGE__ . '::TimeOut'; use constant SPECIAL_CHARS => qw[< > | &]; use constant QUOTE => do { IS_WIN32 ? q["] : q['] }; use Exporter (); use vars qw[ @ISA $VERSION @EXPORT_OK $VERBOSE $DEBUG $USE_IPC_RUN $USE_IPC_OPEN3 $CAN_USE_RUN_FORKED $WARN $INSTANCES $ALLOW_NULL_ARGS $HAVE_MONOTONIC ]; $VERSION = '1.04'; $VERBOSE = 0; $DEBUG = 0; $WARN = 1; $USE_IPC_RUN = IS_WIN32 && !IS_WIN98; $USE_IPC_OPEN3 = not IS_VMS; $ALLOW_NULL_ARGS = 0; $CAN_USE_RUN_FORKED = 0; eval { require POSIX; POSIX->import(); require IPC::Open3; IPC::Open3->import(); require IO::Select; IO::Select->import(); require IO::Handle; IO::Handle->import(); require FileHandle; FileHandle->import(); require Socket; require Time::HiRes; Time::HiRes->import(); require Win32 if IS_WIN32; }; $CAN_USE_RUN_FORKED = $@ || !IS_VMS && !IS_WIN32; eval { my $wait_start_time = Time::HiRes::clock_gettime(&Time::HiRes::CLOCK_MONOTONIC); }; if ($@) { $HAVE_MONOTONIC = 0; } else { $HAVE_MONOTONIC = 1; } @ISA = qw[Exporter]; @EXPORT_OK = qw[can_run run run_forked QUOTE]; } require Carp; use File::Spec; use Params::Check qw[check]; use Text::ParseWords (); # import ONLY if needed! use Module::Load::Conditional qw[can_load]; use Locale::Maketext::Simple Style => 'gettext'; local $Module::Load::Conditional::FORCE_SAFE_INC = 1; =pod =head1 NAME IPC::Cmd - finding and running system commands made easy =head1 SYNOPSIS use IPC::Cmd qw[can_run run run_forked]; my $full_path = can_run('wget') or warn 'wget is not installed!'; ### commands can be arrayrefs or strings ### my $cmd = "$full_path -b theregister.co.uk"; my $cmd = [$full_path, '-b', 'theregister.co.uk']; ### in scalar context ### my $buffer; if( scalar run( command => $cmd, verbose => 0, buffer => \$buffer, timeout => 20 ) ) { print "fetched webpage successfully: $buffer\n"; } ### in list context ### my( $success, $error_message, $full_buf, $stdout_buf, $stderr_buf ) = run( command => $cmd, verbose => 0 ); if( $success ) { print "this is what the command printed:\n"; print join "", @$full_buf; } ### run_forked example ### my $result = run_forked("$full_path -q -O - theregister.co.uk", {'timeout' => 20}); if ($result->{'exit_code'} eq 0 && !$result->{'timeout'}) { print "this is what wget returned:\n"; print $result->{'stdout'}; } ### check for features print "IPC::Open3 available: " . IPC::Cmd->can_use_ipc_open3; print "IPC::Run available: " . IPC::Cmd->can_use_ipc_run; print "Can capture buffer: " . IPC::Cmd->can_capture_buffer; ### don't have IPC::Cmd be verbose, ie don't print to stdout or ### stderr when running commands -- default is '0' $IPC::Cmd::VERBOSE = 0; =head1 DESCRIPTION IPC::Cmd allows you to run commands platform independently, interactively if desired, but have them still work. The C<can_run> function can tell you if a certain binary is installed and if so where, whereas the C<run> function can actually execute any of the commands you give it and give you a clear return value, as well as adhere to your verbosity settings. =head1 CLASS METHODS =head2 $ipc_run_version = IPC::Cmd->can_use_ipc_run( [VERBOSE] ) Utility function that tells you if C<IPC::Run> is available. If the C<verbose> flag is passed, it will print diagnostic messages if L<IPC::Run> can not be found or loaded. =cut sub can_use_ipc_run { my $self = shift; my $verbose = shift || 0; ### IPC::Run doesn't run on win98 return if IS_WIN98; ### if we don't have ipc::run, we obviously can't use it. return unless can_load( modules => { 'IPC::Run' => '0.55' }, verbose => ($WARN && $verbose), ); ### otherwise, we're good to go return $IPC::Run::VERSION; } =head2 $ipc_open3_version = IPC::Cmd->can_use_ipc_open3( [VERBOSE] ) Utility function that tells you if C<IPC::Open3> is available. If the verbose flag is passed, it will print diagnostic messages if C<IPC::Open3> can not be found or loaded. =cut sub can_use_ipc_open3 { my $self = shift; my $verbose = shift || 0; ### IPC::Open3 is not working on VMS because of a lack of fork. return if IS_VMS; ### IPC::Open3 works on every non-VMS platform, but it can't ### capture buffers on win32 :( return unless can_load( modules => { map {$_ => '0.0'} qw|IPC::Open3 IO::Select Symbol| }, verbose => ($WARN && $verbose), ); return $IPC::Open3::VERSION; } =head2 $bool = IPC::Cmd->can_capture_buffer Utility function that tells you if C<IPC::Cmd> is capable of capturing buffers in it's current configuration. =cut sub can_capture_buffer { my $self = shift; return 1 if $USE_IPC_RUN && $self->can_use_ipc_run; return 1 if $USE_IPC_OPEN3 && $self->can_use_ipc_open3; return; } =head2 $bool = IPC::Cmd->can_use_run_forked Utility function that tells you if C<IPC::Cmd> is capable of providing C<run_forked> on the current platform. =head1 FUNCTIONS =head2 $path = can_run( PROGRAM ); C<can_run> takes only one argument: the name of a binary you wish to locate. C<can_run> works much like the unix binary C<which> or the bash command C<type>, which scans through your path, looking for the requested binary. Unlike C<which> and C<type>, this function is platform independent and will also work on, for example, Win32. If called in a scalar context it will return the full path to the binary you asked for if it was found, or C<undef> if it was not. If called in a list context and the global variable C<$INSTANCES> is a true value, it will return a list of the full paths to instances of the binary where found in C<PATH>, or an empty list if it was not found. =cut sub can_run { my $command = shift; # a lot of VMS executables have a symbol defined # check those first if ( $^O eq 'VMS' ) { require VMS::DCLsym; my $syms = VMS::DCLsym->new; return $command if scalar $syms->getsym( uc $command ); } require File::Spec; require ExtUtils::MakeMaker; my @possibles; if( File::Spec->file_name_is_absolute($command) ) { return MM->maybe_command($command); } else { for my $dir ( File::Spec->path, ( IS_WIN32 ? File::Spec->curdir : () ) ) { next if ! $dir || ! -d $dir; my $abs = File::Spec->catfile( IS_WIN32 ? Win32::GetShortPathName( $dir ) : $dir, $command); push @possibles, $abs if $abs = MM->maybe_command($abs); } } return @possibles if wantarray and $INSTANCES; return shift @possibles; } =head2 $ok | ($ok, $err, $full_buf, $stdout_buff, $stderr_buff) = run( command => COMMAND, [verbose => BOOL, buffer => \$SCALAR, timeout => DIGIT] ); C<run> takes 4 arguments: =over 4 =item command This is the command to execute. It may be either a string or an array reference. This is a required argument. See L<"Caveats"> for remarks on how commands are parsed and their limitations. =item verbose This controls whether all output of a command should also be printed to STDOUT/STDERR or should only be trapped in buffers (NOTE: buffers require L<IPC::Run> to be installed, or your system able to work with L<IPC::Open3>). It will default to the global setting of C<$IPC::Cmd::VERBOSE>, which by default is 0. =item buffer This will hold all the output of a command. It needs to be a reference to a scalar. Note that this will hold both the STDOUT and STDERR messages, and you have no way of telling which is which. If you require this distinction, run the C<run> command in list context and inspect the individual buffers. Of course, this requires that the underlying call supports buffers. See the note on buffers above. =item timeout Sets the maximum time the command is allowed to run before aborting, using the built-in C<alarm()> call. If the timeout is triggered, the C<errorcode> in the return value will be set to an object of the C<IPC::Cmd::TimeOut> class. See the L<"error message"> section below for details. Defaults to C<0>, meaning no timeout is set. =back C<run> will return a simple C<true> or C<false> when called in scalar context. In list context, you will be returned a list of the following items: =over 4 =item success A simple boolean indicating if the command executed without errors or not. =item error message If the first element of the return value (C<success>) was 0, then some error occurred. This second element is the error message the command you requested exited with, if available. This is generally a pretty printed value of C<$?> or C<$@>. See C<perldoc perlvar> for details on what they can contain. If the error was a timeout, the C<error message> will be prefixed with the string C<IPC::Cmd::TimeOut>, the timeout class. =item full_buffer This is an array reference containing all the output the command generated. Note that buffers are only available if you have L<IPC::Run> installed, or if your system is able to work with L<IPC::Open3> -- see below). Otherwise, this element will be C<undef>. =item out_buffer This is an array reference containing all the output sent to STDOUT the command generated. The notes from L<"full_buffer"> apply. =item error_buffer This is an arrayreference containing all the output sent to STDERR the command generated. The notes from L<"full_buffer"> apply. =back See the L<"HOW IT WORKS"> section below to see how C<IPC::Cmd> decides what modules or function calls to use when issuing a command. =cut { my @acc = qw[ok error _fds]; ### autogenerate accessors ### for my $key ( @acc ) { no strict 'refs'; *{__PACKAGE__."::$key"} = sub { $_[0]->{$key} = $_[1] if @_ > 1; return $_[0]->{$key}; } } } sub can_use_run_forked { return $CAN_USE_RUN_FORKED eq "1"; } sub get_monotonic_time { if ($HAVE_MONOTONIC) { return Time::HiRes::clock_gettime(&Time::HiRes::CLOCK_MONOTONIC); } else { return time(); } } sub adjust_monotonic_start_time { my ($ref_vars, $now, $previous) = @_; # workaround only for those systems which don't have # Time::HiRes::CLOCK_MONOTONIC (Mac OSX in particular) return if $HAVE_MONOTONIC; # don't have previous monotonic value (only happens once # in the beginning of the program execution) return unless $previous; my $time_diff = $now - $previous; # adjust previously saved time with the skew value which is # either negative when clock moved back or more than 5 seconds -- # assuming that event loop does happen more often than once # per five seconds, which might not be always true (!) but # hopefully that's ok, because it's just a workaround if ($time_diff > 5 || $time_diff < 0) { foreach my $ref_var (@{$ref_vars}) { if (defined($$ref_var)) { $$ref_var = $$ref_var + $time_diff; } } } } sub uninstall_signals { return unless defined($IPC::Cmd::{'__old_signals'}); foreach my $sig_name (keys %{$IPC::Cmd::{'__old_signals'}}) { $SIG{$sig_name} = $IPC::Cmd::{'__old_signals'}->{$sig_name}; } } # incompatible with POSIX::SigAction # sub install_layered_signal { my ($s, $handler_code) = @_; my %available_signals = map {$_ => 1} keys %SIG; Carp::confess("install_layered_signal got nonexistent signal name [$s]") unless defined($available_signals{$s}); Carp::confess("install_layered_signal expects coderef") if !ref($handler_code) || ref($handler_code) ne 'CODE'; $IPC::Cmd::{'__old_signals'} = {} unless defined($IPC::Cmd::{'__old_signals'}); $IPC::Cmd::{'__old_signals'}->{$s} = $SIG{$s}; my $previous_handler = $SIG{$s}; my $sig_handler = sub { my ($called_sig_name, @sig_param) = @_; # $s is a closure referring to real signal name # for which this handler is being installed. # it is used to distinguish between # real signal handlers and aliased signal handlers my $signal_name = $s; # $called_sig_name is a signal name which # was passed to this signal handler; # it doesn't equal $signal_name in case # some signal handlers in %SIG point # to other signal handler (CHLD and CLD, # ABRT and IOT) # # initial signal handler for aliased signal # calls some other signal handler which # should not execute the same handler_code again if ($called_sig_name eq $signal_name) { $handler_code->($signal_name); } # run original signal handler if any (including aliased) # if (ref($previous_handler)) { $previous_handler->($called_sig_name, @sig_param); } }; $SIG{$s} = $sig_handler; } # give process a chance sending TERM, # waiting for a while (2 seconds) # and killing it with KILL sub kill_gently { my ($pid, $opts) = @_; require POSIX; $opts = {} unless $opts; $opts->{'wait_time'} = 2 unless defined($opts->{'wait_time'}); $opts->{'first_kill_type'} = 'just_process' unless $opts->{'first_kill_type'}; $opts->{'final_kill_type'} = 'just_process' unless $opts->{'final_kill_type'}; if ($opts->{'first_kill_type'} eq 'just_process') { kill(15, $pid); } elsif ($opts->{'first_kill_type'} eq 'process_group') { kill(-15, $pid); } my $do_wait = 1; my $child_finished = 0; my $wait_start_time = get_monotonic_time(); my $now; my $previous_monotonic_value; while ($do_wait) { $previous_monotonic_value = $now; $now = get_monotonic_time(); adjust_monotonic_start_time([\$wait_start_time], $now, $previous_monotonic_value); if ($now > $wait_start_time + $opts->{'wait_time'}) { $do_wait = 0; next; } my $waitpid = waitpid($pid, POSIX::WNOHANG); if ($waitpid eq -1) { $child_finished = 1; $do_wait = 0; next; } Time::HiRes::usleep(250000); # quarter of a second } if (!$child_finished) { if ($opts->{'final_kill_type'} eq 'just_process') { kill(9, $pid); } elsif ($opts->{'final_kill_type'} eq 'process_group') { kill(-9, $pid); } } } sub open3_run { my ($cmd, $opts) = @_; $opts = {} unless $opts; my $child_in = FileHandle->new; my $child_out = FileHandle->new; my $child_err = FileHandle->new; $child_out->autoflush(1); $child_err->autoflush(1); my $pid = open3($child_in, $child_out, $child_err, $cmd); Time::HiRes::usleep(1) if IS_HPUX; # will consider myself orphan if my ppid changes # from this one: my $original_ppid = $opts->{'original_ppid'}; # push my child's pid to our parent # so in case i am killed parent # could stop my child (search for # child_child_pid in parent code) if ($opts->{'parent_info'}) { my $ps = $opts->{'parent_info'}; print $ps "spawned $pid\n"; } if ($child_in && $child_out->opened && $opts->{'child_stdin'}) { # If the child process dies for any reason, # the next write to CHLD_IN is likely to generate # a SIGPIPE in the parent, which is fatal by default. # So you may wish to handle this signal. # # from http://perldoc.perl.org/IPC/Open3.html, # absolutely needed to catch piped commands errors. # local $SIG{'PIPE'} = sub { 1; }; print $child_in $opts->{'child_stdin'}; } close($child_in); my $child_output = { 'out' => $child_out->fileno, 'err' => $child_err->fileno, $child_out->fileno => { 'parent_socket' => $opts->{'parent_stdout'}, 'scalar_buffer' => "", 'child_handle' => $child_out, 'block_size' => ($child_out->stat)[11] || 1024, }, $child_err->fileno => { 'parent_socket' => $opts->{'parent_stderr'}, 'scalar_buffer' => "", 'child_handle' => $child_err, 'block_size' => ($child_err->stat)[11] || 1024, }, }; my $select = IO::Select->new(); $select->add($child_out, $child_err); # pass any signal to the child # effectively creating process # strongly attached to the child: # it will terminate only after child # has terminated (except for SIGKILL, # which is specially handled) SIGNAL: foreach my $s (keys %SIG) { next SIGNAL if $s eq '__WARN__' or $s eq '__DIE__'; # Skip and don't clobber __DIE__ & __WARN__ my $sig_handler; $sig_handler = sub { kill("$s", $pid); $SIG{$s} = $sig_handler; }; $SIG{$s} = $sig_handler; } my $child_finished = 0; my $real_exit; my $exit_value; while(!$child_finished) { # parent was killed otherwise we would have got # the same signal as parent and process it same way if (getppid() != $original_ppid) { # end my process group with all the children # (i am the process group leader, so my pid # equals to the process group id) # # same thing which is done # with $opts->{'clean_up_children'} # in run_forked # kill(-9, $$); POSIX::_exit 1; } my $waitpid = waitpid($pid, POSIX::WNOHANG); # child finished, catch it's exit status if ($waitpid ne 0 && $waitpid ne -1) { $real_exit = $?; $exit_value = $? >> 8; } if ($waitpid eq -1) { $child_finished = 1; } my $ready_fds = []; push @{$ready_fds}, $select->can_read(1/100); READY_FDS: while (scalar(@{$ready_fds})) { my $fd = shift @{$ready_fds}; $ready_fds = [grep {$_ ne $fd} @{$ready_fds}]; my $str = $child_output->{$fd->fileno}; Carp::confess("child stream not found: $fd") unless $str; my $data; my $count = $fd->sysread($data, $str->{'block_size'}); if ($count) { if ($str->{'parent_socket'}) { my $ph = $str->{'parent_socket'}; print $ph $data; } else { $str->{'scalar_buffer'} .= $data; } } elsif ($count eq 0) { $select->remove($fd); $fd->close(); } else { Carp::confess("error during sysread: " . $!); } push @{$ready_fds}, $select->can_read(1/100) if $child_finished; } Time::HiRes::usleep(1); } # since we've successfully reaped the child, # let our parent know about this. # if ($opts->{'parent_info'}) { my $ps = $opts->{'parent_info'}; # child was killed, inform parent if ($real_exit & 127) { print $ps "$pid killed with " . ($real_exit & 127) . "\n"; } print $ps "reaped $pid\n"; } if ($opts->{'parent_stdout'} || $opts->{'parent_stderr'}) { return $exit_value; } else { return { 'stdout' => $child_output->{$child_output->{'out'}}->{'scalar_buffer'}, 'stderr' => $child_output->{$child_output->{'err'}}->{'scalar_buffer'}, 'exit_code' => $exit_value, }; } } =head2 $hashref = run_forked( COMMAND, { child_stdin => SCALAR, timeout => DIGIT, stdout_handler => CODEREF, stderr_handler => CODEREF} ); C<run_forked> is used to execute some program or a coderef, optionally feed it with some input, get its return code and output (both stdout and stderr into separate buffers). In addition, it allows to terminate the program if it takes too long to finish. The important and distinguishing feature of run_forked is execution timeout which at first seems to be quite a simple task but if you think that the program which you're spawning might spawn some children itself (which in their turn could do the same and so on) it turns out to be not a simple issue. C<run_forked> is designed to survive and successfully terminate almost any long running task, even a fork bomb in case your system has the resources to survive during given timeout. This is achieved by creating separate watchdog process which spawns the specified program in a separate process session and supervises it: optionally feeds it with input, stores its exit code, stdout and stderr, terminates it in case it runs longer than specified. Invocation requires the command to be executed or a coderef and optionally a hashref of options: =over =item C<timeout> Specify in seconds how long to run the command before it is killed with SIG_KILL (9), which effectively terminates it and all of its children (direct or indirect). =item C<child_stdin> Specify some text that will be passed into the C<STDIN> of the executed program. =item C<stdout_handler> Coderef of a subroutine to call when a portion of data is received on STDOUT from the executing program. =item C<stderr_handler> Coderef of a subroutine to call when a portion of data is received on STDERR from the executing program. =item C<wait_loop_callback> Coderef of a subroutine to call inside of the main waiting loop (while C<run_forked> waits for the external to finish or fail). It is useful to stop running external process before it ends by itself, e.g. my $r = run_forked("some external command", { 'wait_loop_callback' => sub { if (condition) { kill(1, $$); } }, 'terminate_on_signal' => 'HUP', }); Combined with C<stdout_handler> and C<stderr_handler> allows terminating external command based on its output. Could also be used as a timer without engaging with L<alarm> (signals). Remember that this code could be called every millisecond (depending on the output which external command generates), so try to make it as lightweight as possible. =item C<discard_output> Discards the buffering of the standard output and standard errors for return by run_forked(). With this option you have to use the std*_handlers to read what the command outputs. Useful for commands that send a lot of output. =item C<terminate_on_parent_sudden_death> Enable this option if you wish all spawned processes to be killed if the initially spawned process (the parent) is killed or dies without waiting for child processes. =back C<run_forked> will return a HASHREF with the following keys: =over =item C<exit_code> The exit code of the executed program. =item C<timeout> The number of seconds the program ran for before being terminated, or 0 if no timeout occurred. =item C<stdout> Holds the standard output of the executed command (or empty string if there was no STDOUT output or if C<discard_output> was used; it's always defined!) =item C<stderr> Holds the standard error of the executed command (or empty string if there was no STDERR output or if C<discard_output> was used; it's always defined!) =item C<merged> Holds the standard output and error of the executed command merged into one stream (or empty string if there was no output at all or if C<discard_output> was used; it's always defined!) =item C<err_msg> Holds some explanation in the case of an error. =back =cut sub run_forked { ### container to store things in my $self = bless {}, __PACKAGE__; if (!can_use_run_forked()) { Carp::carp("run_forked is not available: $CAN_USE_RUN_FORKED"); return; } require POSIX; my ($cmd, $opts) = @_; if (ref($cmd) eq 'ARRAY') { $cmd = join(" ", @{$cmd}); } if (!$cmd) { Carp::carp("run_forked expects command to run"); return; } $opts = {} unless $opts; $opts->{'timeout'} = 0 unless $opts->{'timeout'}; $opts->{'terminate_wait_time'} = 2 unless defined($opts->{'terminate_wait_time'}); # turned on by default $opts->{'clean_up_children'} = 1 unless defined($opts->{'clean_up_children'}); # sockets to pass child stdout to parent my $child_stdout_socket; my $parent_stdout_socket; # sockets to pass child stderr to parent my $child_stderr_socket; my $parent_stderr_socket; # sockets for child -> parent internal communication my $child_info_socket; my $parent_info_socket; socketpair($child_stdout_socket, $parent_stdout_socket, &Socket::AF_UNIX, &Socket::SOCK_STREAM, &Socket::PF_UNSPEC) || Carp::confess ("socketpair: $!"); socketpair($child_stderr_socket, $parent_stderr_socket, &Socket::AF_UNIX, &Socket::SOCK_STREAM, &Socket::PF_UNSPEC) || Carp::confess ("socketpair: $!"); socketpair($child_info_socket, $parent_info_socket, &Socket::AF_UNIX, &Socket::SOCK_STREAM, &Socket::PF_UNSPEC) || Carp::confess ("socketpair: $!"); $child_stdout_socket->autoflush(1); $parent_stdout_socket->autoflush(1); $child_stderr_socket->autoflush(1); $parent_stderr_socket->autoflush(1); $child_info_socket->autoflush(1); $parent_info_socket->autoflush(1); my $start_time = get_monotonic_time(); my $pid; my $ppid = $$; if ($pid = fork) { # we are a parent close($parent_stdout_socket); close($parent_stderr_socket); close($parent_info_socket); my $flags; # prepare sockets to read from child $flags = fcntl($child_stdout_socket, POSIX::F_GETFL, 0) || Carp::confess "can't fnctl F_GETFL: $!"; $flags |= POSIX::O_NONBLOCK; fcntl($child_stdout_socket, POSIX::F_SETFL, $flags) || Carp::confess "can't fnctl F_SETFL: $!"; $flags = fcntl($child_stderr_socket, POSIX::F_GETFL, 0) || Carp::confess "can't fnctl F_GETFL: $!"; $flags |= POSIX::O_NONBLOCK; fcntl($child_stderr_socket, POSIX::F_SETFL, $flags) || Carp::confess "can't fnctl F_SETFL: $!"; $flags = fcntl($child_info_socket, POSIX::F_GETFL, 0) || Carp::confess "can't fnctl F_GETFL: $!"; $flags |= POSIX::O_NONBLOCK; fcntl($child_info_socket, POSIX::F_SETFL, $flags) || Carp::confess "can't fnctl F_SETFL: $!"; # print "child $pid started\n"; my $child_output = { $child_stdout_socket->fileno => { 'scalar_buffer' => "", 'child_handle' => $child_stdout_socket, 'block_size' => ($child_stdout_socket->stat)[11] || 1024, 'protocol' => 'stdout', }, $child_stderr_socket->fileno => { 'scalar_buffer' => "", 'child_handle' => $child_stderr_socket, 'block_size' => ($child_stderr_socket->stat)[11] || 1024, 'protocol' => 'stderr', }, $child_info_socket->fileno => { 'scalar_buffer' => "", 'child_handle' => $child_info_socket, 'block_size' => ($child_info_socket->stat)[11] || 1024, 'protocol' => 'info', }, }; my $select = IO::Select->new(); $select->add($child_stdout_socket, $child_stderr_socket, $child_info_socket); my $child_timedout = 0; my $child_finished = 0; my $child_stdout = ''; my $child_stderr = ''; my $child_merged = ''; my $child_exit_code = 0; my $child_killed_by_signal = 0; my $parent_died = 0; my $last_parent_check = 0; my $got_sig_child = 0; my $got_sig_quit = 0; my $orig_sig_child = $SIG{'CHLD'}; $SIG{'CHLD'} = sub { $got_sig_child = get_monotonic_time(); }; if ($opts->{'terminate_on_signal'}) { install_layered_signal($opts->{'terminate_on_signal'}, sub { $got_sig_quit = time(); }); } my $child_child_pid; my $now; my $previous_monotonic_value; while (!$child_finished) { $previous_monotonic_value = $now; $now = get_monotonic_time(); adjust_monotonic_start_time([\$start_time, \$last_parent_check, \$got_sig_child], $now, $previous_monotonic_value); if ($opts->{'terminate_on_parent_sudden_death'}) { # check for parent once each five seconds if ($now > $last_parent_check + 5) { if (getppid() eq "1") { kill_gently ($pid, { 'first_kill_type' => 'process_group', 'final_kill_type' => 'process_group', 'wait_time' => $opts->{'terminate_wait_time'} }); $parent_died = 1; } $last_parent_check = $now; } } # user specified timeout if ($opts->{'timeout'}) { if ($now > $start_time + $opts->{'timeout'}) { kill_gently ($pid, { 'first_kill_type' => 'process_group', 'final_kill_type' => 'process_group', 'wait_time' => $opts->{'terminate_wait_time'} }); $child_timedout = 1; } } # give OS 10 seconds for correct return of waitpid, # kill process after that and finish wait loop; # shouldn't ever happen -- remove this code? if ($got_sig_child) { if ($now > $got_sig_child + 10) { print STDERR "waitpid did not return -1 for 10 seconds after SIG_CHLD, killing [$pid]\n"; kill (-9, $pid); $child_finished = 1; } } if ($got_sig_quit) { kill_gently ($pid, { 'first_kill_type' => 'process_group', 'final_kill_type' => 'process_group', 'wait_time' => $opts->{'terminate_wait_time'} }); $child_finished = 1; } my $waitpid = waitpid($pid, POSIX::WNOHANG); # child finished, catch it's exit status if ($waitpid ne 0 && $waitpid ne -1) { $child_exit_code = $? >> 8; } if ($waitpid eq -1) { $child_finished = 1; } my $ready_fds = []; push @{$ready_fds}, $select->can_read(1/100); READY_FDS: while (scalar(@{$ready_fds})) { my $fd = shift @{$ready_fds}; $ready_fds = [grep {$_ ne $fd} @{$ready_fds}]; my $str = $child_output->{$fd->fileno}; Carp::confess("child stream not found: $fd") unless $str; my $data = ""; my $count = $fd->sysread($data, $str->{'block_size'}); if ($count) { # extract all the available lines and store the rest in temporary buffer if ($data =~ /(.+\n)([^\n]*)/so) { $data = $str->{'scalar_buffer'} . $1; $str->{'scalar_buffer'} = $2 || ""; } else { $str->{'scalar_buffer'} .= $data; $data = ""; } } elsif ($count eq 0) { $select->remove($fd); $fd->close(); if ($str->{'scalar_buffer'}) { $data = $str->{'scalar_buffer'} . "\n"; } } else { Carp::confess("error during sysread on [$fd]: " . $!); } # $data contains only full lines (or last line if it was unfinished read # or now new-line in the output of the child); dat is processed # according to the "protocol" of socket if ($str->{'protocol'} eq 'info') { if ($data =~ /^spawned ([0-9]+?)\n(.*?)/so) { $child_child_pid = $1; $data = $2; } if ($data =~ /^reaped ([0-9]+?)\n(.*?)/so) { $child_child_pid = undef; $data = $2; } if ($data =~ /^[\d]+ killed with ([0-9]+?)\n(.*?)/so) { $child_killed_by_signal = $1; $data = $2; } # we don't expect any other data in info socket, so it's # some strange violation of protocol, better know about this if ($data) { Carp::confess("info protocol violation: [$data]"); } } if ($str->{'protocol'} eq 'stdout') { if (!$opts->{'discard_output'}) { $child_stdout .= $data; $child_merged .= $data; } if ($opts->{'stdout_handler'} && ref($opts->{'stdout_handler'}) eq 'CODE') { $opts->{'stdout_handler'}->($data); } } if ($str->{'protocol'} eq 'stderr') { if (!$opts->{'discard_output'}) { $child_stderr .= $data; $child_merged .= $data; } if ($opts->{'stderr_handler'} && ref($opts->{'stderr_handler'}) eq 'CODE') { $opts->{'stderr_handler'}->($data); } } # process may finish (waitpid returns -1) before # we've read all of its output because of buffering; # so try to read all the way it is possible to read # in such case - this shouldn't be too much (unless # the buffer size is HUGE -- should introduce # another counter in such case, maybe later) # push @{$ready_fds}, $select->can_read(1/100) if $child_finished; } if ($opts->{'wait_loop_callback'} && ref($opts->{'wait_loop_callback'}) eq 'CODE') { $opts->{'wait_loop_callback'}->(); } Time::HiRes::usleep(1); } # $child_pid_pid is not defined in two cases: # * when our child was killed before # it had chance to tell us the pid # of the child it spawned. we can do # nothing in this case :( # * our child successfully reaped its child, # we have nothing left to do in this case # # defined $child_pid_pid means child's child # has not died but nobody is waiting for it, # killing it brutally. # if ($child_child_pid) { kill_gently($child_child_pid); } # in case there are forks in child which # do not forward or process signals (TERM) correctly # kill whole child process group, effectively trying # not to return with some children or their parts still running # # to be more accurate -- we need to be sure # that this is process group created by our child # (and not some other process group with the same pgid, # created just after death of our child) -- fortunately # this might happen only when process group ids # are reused quickly (there are lots of processes # spawning new process groups for example) # if ($opts->{'clean_up_children'}) { kill(-9, $pid); } # print "child $pid finished\n"; close($child_stdout_socket); close($child_stderr_socket); close($child_info_socket); my $o = { 'stdout' => $child_stdout, 'stderr' => $child_stderr, 'merged' => $child_merged, 'timeout' => $child_timedout ? $opts->{'timeout'} : 0, 'exit_code' => $child_exit_code, 'parent_died' => $parent_died, 'killed_by_signal' => $child_killed_by_signal, 'child_pgid' => $pid, 'cmd' => $cmd, }; my $err_msg = ''; if ($o->{'exit_code'}) { $err_msg .= "exited with code [$o->{'exit_code'}]\n"; } if ($o->{'timeout'}) { $err_msg .= "ran more than [$o->{'timeout'}] seconds\n"; } if ($o->{'parent_died'}) { $err_msg .= "parent died\n"; } if ($o->{'stdout'} && !$opts->{'non_empty_stdout_ok'}) { $err_msg .= "stdout:\n" . $o->{'stdout'} . "\n"; } if ($o->{'stderr'}) { $err_msg .= "stderr:\n" . $o->{'stderr'} . "\n"; } if ($o->{'killed_by_signal'}) { $err_msg .= "killed by signal [" . $o->{'killed_by_signal'} . "]\n"; } $o->{'err_msg'} = $err_msg; if ($orig_sig_child) { $SIG{'CHLD'} = $orig_sig_child; } else { delete($SIG{'CHLD'}); } uninstall_signals(); return $o; } else { Carp::confess("cannot fork: $!") unless defined($pid); # create new process session for open3 call, # so we hopefully can kill all the subprocesses # which might be spawned in it (except for those # which do setsid theirselves -- can't do anything # with those) POSIX::setsid() == -1 and Carp::confess("Error running setsid: " . $!); if ($opts->{'child_BEGIN'} && ref($opts->{'child_BEGIN'}) eq 'CODE') { $opts->{'child_BEGIN'}->(); } close($child_stdout_socket); close($child_stderr_socket); close($child_info_socket); my $child_exit_code; # allow both external programs # and internal perl calls if (!ref($cmd)) { $child_exit_code = open3_run($cmd, { 'parent_info' => $parent_info_socket, 'parent_stdout' => $parent_stdout_socket, 'parent_stderr' => $parent_stderr_socket, 'child_stdin' => $opts->{'child_stdin'}, 'original_ppid' => $ppid, }); } elsif (ref($cmd) eq 'CODE') { # reopen STDOUT and STDERR for child code: # https://rt.cpan.org/Ticket/Display.html?id=85912 open STDOUT, '>&', $parent_stdout_socket || Carp::confess("Unable to reopen STDOUT: $!\n"); open STDERR, '>&', $parent_stderr_socket || Carp::confess("Unable to reopen STDERR: $!\n"); $child_exit_code = $cmd->({ 'opts' => $opts, 'parent_info' => $parent_info_socket, 'parent_stdout' => $parent_stdout_socket, 'parent_stderr' => $parent_stderr_socket, 'child_stdin' => $opts->{'child_stdin'}, }); } else { print $parent_stderr_socket "Invalid command reference: " . ref($cmd) . "\n"; $child_exit_code = 1; } close($parent_stdout_socket); close($parent_stderr_socket); close($parent_info_socket); if ($opts->{'child_END'} && ref($opts->{'child_END'}) eq 'CODE') { $opts->{'child_END'}->(); } $| = 1; POSIX::_exit $child_exit_code; } } sub run { ### container to store things in my $self = bless {}, __PACKAGE__; my %hash = @_; ### if the user didn't provide a buffer, we'll store it here. my $def_buf = ''; my($verbose,$cmd,$buffer,$timeout); my $tmpl = { verbose => { default => $VERBOSE, store => \$verbose }, buffer => { default => \$def_buf, store => \$buffer }, command => { required => 1, store => \$cmd, allow => sub { !ref($_[0]) or ref($_[0]) eq 'ARRAY' }, }, timeout => { default => 0, store => \$timeout }, }; unless( check( $tmpl, \%hash, $VERBOSE ) ) { Carp::carp( loc( "Could not validate input: %1", Params::Check->last_error ) ); return; }; $cmd = _quote_args_vms( $cmd ) if IS_VMS; ### strip any empty elements from $cmd if present if ( $ALLOW_NULL_ARGS ) { $cmd = [ grep { defined } @$cmd ] if ref $cmd; } else { $cmd = [ grep { defined && length } @$cmd ] if ref $cmd; } my $pp_cmd = (ref $cmd ? "@$cmd" : $cmd); print loc("Running [%1]...\n", $pp_cmd ) if $verbose; ### did the user pass us a buffer to fill or not? if so, set this ### flag so we know what is expected of us ### XXX this is now being ignored. in the future, we could add diagnostic ### messages based on this logic #my $user_provided_buffer = $buffer == \$def_buf ? 0 : 1; ### buffers that are to be captured my( @buffer, @buff_err, @buff_out ); ### capture STDOUT my $_out_handler = sub { my $buf = shift; return unless defined $buf; print STDOUT $buf if $verbose; push @buffer, $buf; push @buff_out, $buf; }; ### capture STDERR my $_err_handler = sub { my $buf = shift; return unless defined $buf; print STDERR $buf if $verbose; push @buffer, $buf; push @buff_err, $buf; }; ### flag to indicate we have a buffer captured my $have_buffer = $self->can_capture_buffer ? 1 : 0; ### flag indicating if the subcall went ok my $ok; ### don't look at previous errors: local $?; local $@; local $!; ### we might be having a timeout set eval { local $SIG{ALRM} = sub { die bless sub { ALARM_CLASS . qq[: Command '$pp_cmd' aborted by alarm after $timeout seconds] }, ALARM_CLASS } if $timeout; alarm $timeout || 0; ### IPC::Run is first choice if $USE_IPC_RUN is set. if( !IS_WIN32 and $USE_IPC_RUN and $self->can_use_ipc_run( 1 ) ) { ### ipc::run handlers needs the command as a string or an array ref $self->_debug( "# Using IPC::Run. Have buffer: $have_buffer" ) if $DEBUG; $ok = $self->_ipc_run( $cmd, $_out_handler, $_err_handler ); ### since IPC::Open3 works on all platforms, and just fails on ### win32 for capturing buffers, do that ideally } elsif ( $USE_IPC_OPEN3 and $self->can_use_ipc_open3( 1 ) ) { $self->_debug("# Using IPC::Open3. Have buffer: $have_buffer") if $DEBUG; ### in case there are pipes in there; ### IPC::Open3 will call exec and exec will do the right thing my $method = IS_WIN32 ? '_open3_run_win32' : '_open3_run'; $ok = $self->$method( $cmd, $_out_handler, $_err_handler, $verbose ); ### if we are allowed to run verbose, just dispatch the system command } else { $self->_debug( "# Using system(). Have buffer: $have_buffer" ) if $DEBUG; $ok = $self->_system_run( $cmd, $verbose ); } alarm 0; }; ### restore STDIN after duping, or STDIN will be closed for ### this current perl process! $self->__reopen_fds( @{ $self->_fds} ) if $self->_fds; my $err; unless( $ok ) { ### alarm happened if ( $@ and ref $@ and $@->isa( ALARM_CLASS ) ) { $err = $@->(); # the error code is an expired alarm ### another error happened, set by the dispatchub } else { $err = $self->error; } } ### fill the buffer; $$buffer = join '', @buffer if @buffer; ### return a list of flags and buffers (if available) in list ### context, or just a simple 'ok' in scalar return wantarray ? $have_buffer ? ($ok, $err, \@buffer, \@buff_out, \@buff_err) : ($ok, $err ) : $ok } sub _open3_run_win32 { my $self = shift; my $cmd = shift; my $outhand = shift; my $errhand = shift; require Socket; my $pipe = sub { socketpair($_[0], $_[1], &Socket::AF_UNIX, &Socket::SOCK_STREAM, &Socket::PF_UNSPEC) or return undef; shutdown($_[0], 1); # No more writing for reader shutdown($_[1], 0); # No more reading for writer return 1; }; my $open3 = sub { local (*TO_CHLD_R, *TO_CHLD_W); local (*FR_CHLD_R, *FR_CHLD_W); local (*FR_CHLD_ERR_R, *FR_CHLD_ERR_W); $pipe->(*TO_CHLD_R, *TO_CHLD_W ) or die $^E; $pipe->(*FR_CHLD_R, *FR_CHLD_W ) or die $^E; $pipe->(*FR_CHLD_ERR_R, *FR_CHLD_ERR_W) or die $^E; my $pid = IPC::Open3::open3('>&TO_CHLD_R', '<&FR_CHLD_W', '<&FR_CHLD_ERR_W', @_); return ( $pid, *TO_CHLD_W, *FR_CHLD_R, *FR_CHLD_ERR_R ); }; $cmd = [ grep { defined && length } @$cmd ] if ref $cmd; $cmd = $self->__fix_cmd_whitespace_and_special_chars( $cmd ); my ($pid, $to_chld, $fr_chld, $fr_chld_err) = $open3->( ( ref $cmd ? @$cmd : $cmd ) ); my $in_sel = IO::Select->new(); my $out_sel = IO::Select->new(); my %objs; $objs{ fileno( $fr_chld ) } = $outhand; $objs{ fileno( $fr_chld_err ) } = $errhand; $in_sel->add( $fr_chld ); $in_sel->add( $fr_chld_err ); close($to_chld); while ($in_sel->count() + $out_sel->count()) { my ($ins, $outs) = IO::Select::select($in_sel, $out_sel, undef); for my $fh (@$ins) { my $obj = $objs{ fileno($fh) }; my $buf; my $bytes_read = sysread($fh, $buf, 64*1024 ); #, length($buf)); if (!$bytes_read) { $in_sel->remove($fh); } else { $obj->( "$buf" ); } } for my $fh (@$outs) { } } waitpid($pid, 0); ### some error occurred if( $? ) { $self->error( $self->_pp_child_error( $cmd, $? ) ); $self->ok( 0 ); return; } else { return $self->ok( 1 ); } } sub _open3_run { my $self = shift; my $cmd = shift; my $_out_handler = shift; my $_err_handler = shift; my $verbose = shift || 0; ### Following code are adapted from Friar 'abstracts' in the ### Perl Monastery (http://www.perlmonks.org/index.pl?node_id=151886). ### XXX that code didn't work. ### we now use the following code, thanks to theorbtwo ### define them beforehand, so we always have defined FH's ### to read from. use Symbol; my $kidout = Symbol::gensym(); my $kiderror = Symbol::gensym(); ### Dup the filehandle so we can pass 'our' STDIN to the ### child process. This stops us from having to pump input ### from ourselves to the childprocess. However, we will need ### to revive the FH afterwards, as IPC::Open3 closes it. ### We'll do the same for STDOUT and STDERR. It works without ### duping them on non-unix derivatives, but not on win32. my @fds_to_dup = ( IS_WIN32 && !$verbose ? qw[STDIN STDOUT STDERR] : qw[STDIN] ); $self->_fds( \@fds_to_dup ); $self->__dup_fds( @fds_to_dup ); ### pipes have to come in a quoted string, and that clashes with ### whitespace. This sub fixes up such commands so they run properly $cmd = $self->__fix_cmd_whitespace_and_special_chars( $cmd ); ### don't stringify @$cmd, so spaces in filenames/paths are ### treated properly my $pid = eval { IPC::Open3::open3( '<&STDIN', (IS_WIN32 ? '>&STDOUT' : $kidout), (IS_WIN32 ? '>&STDERR' : $kiderror), ( ref $cmd ? @$cmd : $cmd ), ); }; ### open3 error occurred if( $@ and $@ =~ /^open3:/ ) { $self->ok( 0 ); $self->error( $@ ); return; }; ### use OUR stdin, not $kidin. Somehow, ### we never get the input.. so jump through ### some hoops to do it :( my $selector = IO::Select->new( (IS_WIN32 ? \*STDERR : $kiderror), \*STDIN, (IS_WIN32 ? \*STDOUT : $kidout) ); STDOUT->autoflush(1); STDERR->autoflush(1); STDIN->autoflush(1); $kidout->autoflush(1) if UNIVERSAL::can($kidout, 'autoflush'); $kiderror->autoflush(1) if UNIVERSAL::can($kiderror, 'autoflush'); ### add an explicit break statement ### code courtesy of theorbtwo from #london.pm my $stdout_done = 0; my $stderr_done = 0; OUTER: while ( my @ready = $selector->can_read ) { for my $h ( @ready ) { my $buf; ### $len is the amount of bytes read my $len = sysread( $h, $buf, 4096 ); # try to read 4096 bytes ### see perldoc -f sysread: it returns undef on error, ### so bail out. if( not defined $len ) { warn(loc("Error reading from process: %1", $!)); last OUTER; } ### check for $len. it may be 0, at which point we're ### done reading, so don't try to process it. ### if we would print anyway, we'd provide bogus information $_out_handler->( "$buf" ) if $len && $h == $kidout; $_err_handler->( "$buf" ) if $len && $h == $kiderror; ### Wait till child process is done printing to both ### stdout and stderr. $stdout_done = 1 if $h == $kidout and $len == 0; $stderr_done = 1 if $h == $kiderror and $len == 0; last OUTER if ($stdout_done && $stderr_done); } } waitpid $pid, 0; # wait for it to die ### restore STDIN after duping, or STDIN will be closed for ### this current perl process! ### done in the parent call now # $self->__reopen_fds( @fds_to_dup ); ### some error occurred if( $? ) { $self->error( $self->_pp_child_error( $cmd, $? ) ); $self->ok( 0 ); return; } else { return $self->ok( 1 ); } } ### Text::ParseWords::shellwords() uses unix semantics. that will break ### on win32 { my $parse_sub = IS_WIN32 ? __PACKAGE__->can('_split_like_shell_win32') : Text::ParseWords->can('shellwords'); sub _ipc_run { my $self = shift; my $cmd = shift; my $_out_handler = shift; my $_err_handler = shift; STDOUT->autoflush(1); STDERR->autoflush(1); ### a command like: # [ # '/usr/bin/gzip', # '-cdf', # '/Users/kane/sources/p4/other/archive-extract/t/src/x.tgz', # '|', # '/usr/bin/tar', # '-tf -' # ] ### needs to become: # [ # ['/usr/bin/gzip', '-cdf', # '/Users/kane/sources/p4/other/archive-extract/t/src/x.tgz'] # '|', # ['/usr/bin/tar', '-tf -'] # ] my @command; my $special_chars; my $re = do { my $x = join '', SPECIAL_CHARS; qr/([$x])/ }; if( ref $cmd ) { my $aref = []; for my $item (@$cmd) { if( $item =~ $re ) { push @command, $aref, $item; $aref = []; $special_chars .= $1; } else { push @$aref, $item; } } push @command, $aref; } else { @command = map { if( $_ =~ $re ) { $special_chars .= $1; $_; } else { # [ split /\s+/ ] [ map { m/[ ]/ ? qq{'$_'} : $_ } $parse_sub->($_) ] } } split( /\s*$re\s*/, $cmd ); } ### if there's a pipe in the command, *STDIN needs to ### be inserted *BEFORE* the pipe, to work on win32 ### this also works on *nix, so we should do it when possible ### this should *also* work on multiple pipes in the command ### if there's no pipe in the command, append STDIN to the back ### of the command instead. ### XXX seems IPC::Run works it out for itself if you just ### don't pass STDIN at all. # if( $special_chars and $special_chars =~ /\|/ ) { # ### only add STDIN the first time.. # my $i; # @command = map { ($_ eq '|' && not $i++) # ? ( \*STDIN, $_ ) # : $_ # } @command; # } else { # push @command, \*STDIN; # } # \*STDIN is already included in the @command, see a few lines up my $ok = eval { IPC::Run::run( @command, fileno(STDOUT).'>', $_out_handler, fileno(STDERR).'>', $_err_handler ) }; ### all is well if( $ok ) { return $self->ok( $ok ); ### some error occurred } else { $self->ok( 0 ); ### if the eval fails due to an exception, deal with it ### unless it's an alarm if( $@ and not UNIVERSAL::isa( $@, ALARM_CLASS ) ) { $self->error( $@ ); ### if it *is* an alarm, propagate } elsif( $@ ) { die $@; ### some error in the sub command } else { $self->error( $self->_pp_child_error( $cmd, $? ) ); } return; } } } sub _system_run { my $self = shift; my $cmd = shift; my $verbose = shift || 0; ### pipes have to come in a quoted string, and that clashes with ### whitespace. This sub fixes up such commands so they run properly $cmd = $self->__fix_cmd_whitespace_and_special_chars( $cmd ); my @fds_to_dup = $verbose ? () : qw[STDOUT STDERR]; $self->_fds( \@fds_to_dup ); $self->__dup_fds( @fds_to_dup ); ### system returns 'true' on failure -- the exit code of the cmd $self->ok( 1 ); system( ref $cmd ? @$cmd : $cmd ) == 0 or do { $self->error( $self->_pp_child_error( $cmd, $? ) ); $self->ok( 0 ); }; ### done in the parent call now #$self->__reopen_fds( @fds_to_dup ); return unless $self->ok; return $self->ok; } { my %sc_lookup = map { $_ => $_ } SPECIAL_CHARS; sub __fix_cmd_whitespace_and_special_chars { my $self = shift; my $cmd = shift; ### command has a special char in it if( ref $cmd and grep { $sc_lookup{$_} } @$cmd ) { ### since we have special chars, we have to quote white space ### this *may* conflict with the parsing :( my $fixed; my @cmd = map { / / ? do { $fixed++; QUOTE.$_.QUOTE } : $_ } @$cmd; $self->_debug( "# Quoted $fixed arguments containing whitespace" ) if $DEBUG && $fixed; ### stringify it, so the special char isn't escaped as argument ### to the program $cmd = join ' ', @cmd; } return $cmd; } } ### Command-line arguments (but not the command itself) must be quoted ### to ensure case preservation. Borrowed from Module::Build with adaptations. ### Patch for this supplied by Craig Berry, see RT #46288: [PATCH] Add argument ### quoting for run() on VMS sub _quote_args_vms { ### Returns a command string with proper quoting so that the subprocess ### sees this same list of args, or if we get a single arg that is an ### array reference, quote the elements of it (except for the first) ### and return the reference. my @args = @_; my $got_arrayref = (scalar(@args) == 1 && UNIVERSAL::isa($args[0], 'ARRAY')) ? 1 : 0; @args = split(/\s+/, $args[0]) unless $got_arrayref || scalar(@args) > 1; my $cmd = $got_arrayref ? shift @{$args[0]} : shift @args; ### Do not quote qualifiers that begin with '/' or previously quoted args. map { if (/^[^\/\"]/) { $_ =~ s/\"/""/g; # escape C<"> by doubling $_ = q(").$_.q("); } } ($got_arrayref ? @{$args[0]} : @args ); $got_arrayref ? unshift(@{$args[0]}, $cmd) : unshift(@args, $cmd); return $got_arrayref ? $args[0] : join(' ', @args); } ### XXX this is cribbed STRAIGHT from M::B 0.30 here: ### http://search.cpan.org/src/KWILLIAMS/Module-Build-0.30/lib/Module/Build/Platform/Windows.pm:split_like_shell ### XXX this *should* be integrated into text::parsewords sub _split_like_shell_win32 { # As it turns out, Windows command-parsing is very different from # Unix command-parsing. Double-quotes mean different things, # backslashes don't necessarily mean escapes, and so on. So we # can't use Text::ParseWords::shellwords() to break a command string # into words. The algorithm below was bashed out by Randy and Ken # (mostly Randy), and there are a lot of regression tests, so we # should feel free to adjust if desired. local $_ = shift; my @argv; return @argv unless defined() && length(); my $arg = ''; my( $i, $quote_mode ) = ( 0, 0 ); while ( $i < length() ) { my $ch = substr( $_, $i , 1 ); my $next_ch = substr( $_, $i+1, 1 ); if ( $ch eq '\\' && $next_ch eq '"' ) { $arg .= '"'; $i++; } elsif ( $ch eq '\\' && $next_ch eq '\\' ) { $arg .= '\\'; $i++; } elsif ( $ch eq '"' && $next_ch eq '"' && $quote_mode ) { $quote_mode = !$quote_mode; $arg .= '"'; $i++; } elsif ( $ch eq '"' && $next_ch eq '"' && !$quote_mode && ( $i + 2 == length() || substr( $_, $i + 2, 1 ) eq ' ' ) ) { # for cases like: a"" => [ 'a' ] push( @argv, $arg ); $arg = ''; $i += 2; } elsif ( $ch eq '"' ) { $quote_mode = !$quote_mode; } elsif ( $ch eq ' ' && !$quote_mode ) { push( @argv, $arg ) if defined( $arg ) && length( $arg ); $arg = ''; ++$i while substr( $_, $i + 1, 1 ) eq ' '; } else { $arg .= $ch; } $i++; } push( @argv, $arg ) if defined( $arg ) && length( $arg ); return @argv; } { use File::Spec; use Symbol; my %Map = ( STDOUT => [qw|>&|, \*STDOUT, Symbol::gensym() ], STDERR => [qw|>&|, \*STDERR, Symbol::gensym() ], STDIN => [qw|<&|, \*STDIN, Symbol::gensym() ], ); ### dups FDs and stores them in a cache sub __dup_fds { my $self = shift; my @fds = @_; __PACKAGE__->_debug( "# Closing the following fds: @fds" ) if $DEBUG; for my $name ( @fds ) { my($redir, $fh, $glob) = @{$Map{$name}} or ( Carp::carp(loc("No such FD: '%1'", $name)), next ); ### MUST use the 2-arg version of open for dup'ing for ### 5.6.x compatibility. 5.8.x can use 3-arg open ### see perldoc5.6.2 -f open for details open $glob, $redir . fileno($fh) or ( Carp::carp(loc("Could not dup '$name': %1", $!)), return ); ### we should re-open this filehandle right now, not ### just dup it ### Use 2-arg version of open, as 5.5.x doesn't support ### 3-arg version =/ if( $redir eq '>&' ) { open( $fh, '>' . File::Spec->devnull ) or ( Carp::carp(loc("Could not reopen '$name': %1", $!)), return ); } } return 1; } ### reopens FDs from the cache sub __reopen_fds { my $self = shift; my @fds = @_; __PACKAGE__->_debug( "# Reopening the following fds: @fds" ) if $DEBUG; for my $name ( @fds ) { my($redir, $fh, $glob) = @{$Map{$name}} or ( Carp::carp(loc("No such FD: '%1'", $name)), next ); ### MUST use the 2-arg version of open for dup'ing for ### 5.6.x compatibility. 5.8.x can use 3-arg open ### see perldoc5.6.2 -f open for details open( $fh, $redir . fileno($glob) ) or ( Carp::carp(loc("Could not restore '$name': %1", $!)), return ); ### close this FD, we're not using it anymore close $glob; } return 1; } } sub _debug { my $self = shift; my $msg = shift or return; my $level = shift || 0; local $Carp::CarpLevel += $level; Carp::carp($msg); return 1; } sub _pp_child_error { my $self = shift; my $cmd = shift or return; my $ce = shift or return; my $pp_cmd = ref $cmd ? "@$cmd" : $cmd; my $str; if( $ce == -1 ) { ### Include $! in the error message, so that the user can ### see 'No such file or directory' versus 'Permission denied' ### versus 'Cannot fork' or whatever the cause was. $str = "Failed to execute '$pp_cmd': $!"; } elsif ( $ce & 127 ) { ### some signal $str = loc( "'%1' died with signal %2, %3 coredump", $pp_cmd, ($ce & 127), ($ce & 128) ? 'with' : 'without'); } else { ### Otherwise, the command run but gave error status. $str = "'$pp_cmd' exited with value " . ($ce >> 8); } $self->_debug( "# Child error '$ce' translated to: $str" ) if $DEBUG; return $str; } 1; __END__ =head2 $q = QUOTE Returns the character used for quoting strings on this platform. This is usually a C<'> (single quote) on most systems, but some systems use different quotes. For example, C<Win32> uses C<"> (double quote). You can use it as follows: use IPC::Cmd qw[run QUOTE]; my $cmd = q[echo ] . QUOTE . q[foo bar] . QUOTE; This makes sure that C<foo bar> is treated as a string, rather than two separate arguments to the C<echo> function. =head1 HOW IT WORKS C<run> will try to execute your command using the following logic: =over 4 =item * If you have C<IPC::Run> installed, and the variable C<$IPC::Cmd::USE_IPC_RUN> is set to true (See the L<"Global Variables"> section) use that to execute the command. You will have the full output available in buffers, interactive commands are sure to work and you are guaranteed to have your verbosity settings honored cleanly. =item * Otherwise, if the variable C<$IPC::Cmd::USE_IPC_OPEN3> is set to true (See the L<"Global Variables"> section), try to execute the command using L<IPC::Open3>. Buffers will be available on all platforms, interactive commands will still execute cleanly, and also your verbosity settings will be adhered to nicely; =item * Otherwise, if you have the C<verbose> argument set to true, we fall back to a simple C<system()> call. We cannot capture any buffers, but interactive commands will still work. =item * Otherwise we will try and temporarily redirect STDERR and STDOUT, do a C<system()> call with your command and then re-open STDERR and STDOUT. This is the method of last resort and will still allow you to execute your commands cleanly. However, no buffers will be available. =back =head1 Global Variables The behaviour of IPC::Cmd can be altered by changing the following global variables: =head2 $IPC::Cmd::VERBOSE This controls whether IPC::Cmd will print any output from the commands to the screen or not. The default is 0. =head2 $IPC::Cmd::USE_IPC_RUN This variable controls whether IPC::Cmd will try to use L<IPC::Run> when available and suitable. =head2 $IPC::Cmd::USE_IPC_OPEN3 This variable controls whether IPC::Cmd will try to use L<IPC::Open3> when available and suitable. Defaults to true. =head2 $IPC::Cmd::WARN This variable controls whether run-time warnings should be issued, like the failure to load an C<IPC::*> module you explicitly requested. Defaults to true. Turn this off at your own risk. =head2 $IPC::Cmd::INSTANCES This variable controls whether C<can_run> will return all instances of the binary it finds in the C<PATH> when called in a list context. Defaults to false, set to true to enable the described behaviour. =head2 $IPC::Cmd::ALLOW_NULL_ARGS This variable controls whether C<run> will remove any empty/null arguments it finds in command arguments. Defaults to false, so it will remove null arguments. Set to true to allow them. =head1 Caveats =over 4 =item Whitespace and IPC::Open3 / system() When using C<IPC::Open3> or C<system>, if you provide a string as the C<command> argument, it is assumed to be appropriately escaped. You can use the C<QUOTE> constant to use as a portable quote character (see above). However, if you provide an array reference, special rules apply: If your command contains B<special characters> (< > | &), it will be internally stringified before executing the command, to avoid that these special characters are escaped and passed as arguments instead of retaining their special meaning. However, if the command contained arguments that contained whitespace, stringifying the command would lose the significance of the whitespace. Therefore, C<IPC::Cmd> will quote any arguments containing whitespace in your command if the command is passed as an arrayref and contains special characters. =item Whitespace and IPC::Run When using C<IPC::Run>, if you provide a string as the C<command> argument, the string will be split on whitespace to determine the individual elements of your command. Although this will usually just Do What You Mean, it may break if you have files or commands with whitespace in them. If you do not wish this to happen, you should provide an array reference, where all parts of your command are already separated out. Note however, if there are extra or spurious whitespaces in these parts, the parser or underlying code may not interpret it correctly, and cause an error. Example: The following code gzip -cdf foo.tar.gz | tar -xf - should either be passed as "gzip -cdf foo.tar.gz | tar -xf -" or as ['gzip', '-cdf', 'foo.tar.gz', '|', 'tar', '-xf', '-'] But take care not to pass it as, for example ['gzip -cdf foo.tar.gz', '|', 'tar -xf -'] Since this will lead to issues as described above. =item IO Redirect Currently it is too complicated to parse your command for IO redirections. For capturing STDOUT or STDERR there is a work around however, since you can just inspect your buffers for the contents. =item Interleaving STDOUT/STDERR Neither IPC::Run nor IPC::Open3 can interleave STDOUT and STDERR. For short bursts of output from a program, e.g. this sample, for ( 1..4 ) { $_ % 2 ? print STDOUT $_ : print STDERR $_; } IPC::[Run|Open3] will first read all of STDOUT, then all of STDERR, meaning the output looks like '13' on STDOUT and '24' on STDERR, instead of 1 2 3 4 This has been recorded in L<rt.cpan.org> as bug #37532: Unable to interleave STDOUT and STDERR. =back =head1 See Also L<IPC::Run>, L<IPC::Open3> =head1 ACKNOWLEDGEMENTS Thanks to James Mastros and Martijn van der Streek for their help in getting L<IPC::Open3> to behave nicely. Thanks to Petya Kohts for the C<run_forked> code. =head1 BUG REPORTS Please report bugs or other issues to E<lt>bug-ipc-cmd@rt.cpan.orgE<gt>. =head1 AUTHOR Original author: Jos Boumans E<lt>kane@cpan.orgE<gt>. Current maintainer: Chris Williams E<lt>bingos@cpan.orgE<gt>. =head1 COPYRIGHT This library is free software; you may redistribute and/or modify it under the same terms as Perl itself. =cut PK ! W��X< X< 5.34.0/CPAN.pmnu �[��� # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- # vim: ts=4 sts=4 sw=4: use strict; package CPAN; $CPAN::VERSION = '2.28'; $CPAN::VERSION =~ s/_//; # we need to run chdir all over and we would get at wrong libraries # there use File::Spec (); BEGIN { if (File::Spec->can("rel2abs")) { for my $inc (@INC) { $inc = File::Spec->rel2abs($inc) unless ref $inc; } } $SIG{WINCH} = 'IGNORE' if exists $SIG{WINCH}; } use CPAN::Author; use CPAN::HandleConfig; use CPAN::Version; use CPAN::Bundle; use CPAN::CacheMgr; use CPAN::Complete; use CPAN::Debug; use CPAN::Distribution; use CPAN::Distrostatus; use CPAN::FTP; use CPAN::Index 1.93; # https://rt.cpan.org/Ticket/Display.html?id=43349 use CPAN::InfoObj; use CPAN::Module; use CPAN::Prompt; use CPAN::URL; use CPAN::Queue; use CPAN::Tarzip; use CPAN::DeferredCode; use CPAN::Shell; use CPAN::LWP::UserAgent; use CPAN::Exception::RecursiveDependency; use CPAN::Exception::yaml_not_installed; use CPAN::Exception::yaml_process_error; use Carp (); use Config (); use Cwd qw(chdir); use DirHandle (); use Exporter (); use ExtUtils::MakeMaker qw(prompt); # for some unknown reason, # 5.005_04 does not work without # this use File::Basename (); use File::Copy (); use File::Find; use File::Path (); use FileHandle (); use Fcntl qw(:flock); use Safe (); use Sys::Hostname qw(hostname); use Text::ParseWords (); use Text::Wrap (); # protect against "called too early" sub find_perl (); sub anycwd (); sub _uniq; no lib "."; require Mac::BuildTools if $^O eq 'MacOS'; if ($ENV{PERL5_CPAN_IS_RUNNING} && $$ != $ENV{PERL5_CPAN_IS_RUNNING}) { $ENV{PERL5_CPAN_IS_RUNNING_IN_RECURSION} ||= $ENV{PERL5_CPAN_IS_RUNNING}; my @rec = _uniq split(/,/, $ENV{PERL5_CPAN_IS_RUNNING_IN_RECURSION}), $$; $ENV{PERL5_CPAN_IS_RUNNING_IN_RECURSION} = join ",", @rec; # warn "# Note: Recursive call of CPAN.pm detected\n"; my $w = sprintf "# Note: CPAN.pm is running in process %d now", pop @rec; my %sleep = ( 5 => 30, 6 => 60, 7 => 120, ); my $sleep = @rec > 7 ? 300 : ($sleep{scalar @rec}||0); my $verbose = @rec >= 4; while (@rec) { $w .= sprintf " which has been called by process %d", pop @rec; } if ($sleep) { $w .= ".\n\n# Sleeping $sleep seconds to protect other processes\n"; } if ($verbose) { warn $w; } local $| = 1; my $have_been_sleeping = 0; while ($sleep > 0) { printf "\r#%5d", --$sleep; sleep 1; ++$have_been_sleeping; } print "\n" if $have_been_sleeping; } $ENV{PERL5_CPAN_IS_RUNNING}=$$; $ENV{PERL5_CPANPLUS_IS_RUNNING}=$$; # https://rt.cpan.org/Ticket/Display.html?id=23735 END { $CPAN::End++; &cleanup; } $CPAN::Signal ||= 0; $CPAN::Frontend ||= "CPAN::Shell"; unless (@CPAN::Defaultsites) { @CPAN::Defaultsites = map { CPAN::URL->new(TEXT => $_, FROM => "DEF") } "http://www.perl.org/CPAN/", "ftp://ftp.perl.org/pub/CPAN/"; } # $CPAN::iCwd (i for initial) $CPAN::iCwd ||= CPAN::anycwd(); $CPAN::Perl ||= CPAN::find_perl(); $CPAN::Defaultdocs ||= "http://search.cpan.org/perldoc?"; $CPAN::Defaultrecent ||= "http://search.cpan.org/uploads.rdf"; $CPAN::Defaultrecent ||= "http://cpan.uwinnipeg.ca/htdocs/cpan.xml"; # our globals are getting a mess use vars qw( $AUTOLOAD $Be_Silent $CONFIG_DIRTY $Defaultdocs $Echo_readline $Frontend $GOTOSHELL $HAS_USABLE $Have_warned $MAX_RECURSION $META $RUN_DEGRADED $Signal $SQLite $Suppress_readline $VERSION $autoload_recursion $term @Defaultsites @EXPORT ); $MAX_RECURSION = 32; @CPAN::ISA = qw(CPAN::Debug Exporter); # note that these functions live in CPAN::Shell and get executed via # AUTOLOAD when called directly @EXPORT = qw( autobundle bundle clean cvs_import expand force fforce get install install_tested is_tested make mkmyconfig notest perldoc readme recent recompile report shell smoke test upgrade ); sub soft_chdir_with_alternatives ($); { $autoload_recursion ||= 0; #-> sub CPAN::AUTOLOAD ; sub AUTOLOAD { ## no critic $autoload_recursion++; my($l) = $AUTOLOAD; $l =~ s/.*:://; if ($CPAN::Signal) { warn "Refusing to autoload '$l' while signal pending"; $autoload_recursion--; return; } if ($autoload_recursion > 1) { my $fullcommand = join " ", map { "'$_'" } $l, @_; warn "Refusing to autoload $fullcommand in recursion\n"; $autoload_recursion--; return; } my(%export); @export{@EXPORT} = ''; CPAN::HandleConfig->load unless $CPAN::Config_loaded++; if (exists $export{$l}) { CPAN::Shell->$l(@_); } else { die(qq{Unknown CPAN command "$AUTOLOAD". }. qq{Type ? for help.\n}); } $autoload_recursion--; } } { my $x = *SAVEOUT; # avoid warning open($x,">&STDOUT") or die "dup failed"; my $redir = 0; sub _redirect(@) { #die if $redir; local $_; push(@_,undef); while(defined($_=shift)) { if (s/^\s*>//){ my ($m) = s/^>// ? ">" : ""; s/\s+//; $_=shift unless length; die "no dest" unless defined; open(STDOUT,">$m$_") or die "open:$_:$!\n"; $redir=1; } elsif ( s/^\s*\|\s*// ) { my $pipe="| $_"; while(defined($_[0])){ $pipe .= ' ' . shift; } open(STDOUT,$pipe) or die "open:$pipe:$!\n"; $redir=1; } else { push(@_,$_); } } return @_; } sub _unredirect { return unless $redir; $redir = 0; ## redirect: unredirect and propagate errors. explicit close to wait for pipe. close(STDOUT); open(STDOUT,">&SAVEOUT"); die "$@" if "$@"; ## redirect: done } } sub _uniq { my(@list) = @_; my %seen; return grep { !$seen{$_}++ } @list; } #-> sub CPAN::shell ; sub shell { my($self) = @_; $Suppress_readline = ! -t STDIN unless defined $Suppress_readline; CPAN::HandleConfig->load unless $CPAN::Config_loaded++; my $oprompt = shift || CPAN::Prompt->new; my $prompt = $oprompt; my $commandline = shift || ""; $CPAN::CurrentCommandId ||= 1; local($^W) = 1; unless ($Suppress_readline) { require Term::ReadLine; if (! $term or $term->ReadLine eq "Term::ReadLine::Stub" ) { $term = Term::ReadLine->new('CPAN Monitor'); } if ($term->ReadLine eq "Term::ReadLine::Gnu") { my $attribs = $term->Attribs; $attribs->{attempted_completion_function} = sub { &CPAN::Complete::gnu_cpl; } } else { $readline::rl_completion_function = $readline::rl_completion_function = 'CPAN::Complete::cpl'; } if (my $histfile = $CPAN::Config->{'histfile'}) {{ unless ($term->can("AddHistory")) { $CPAN::Frontend->mywarn("Terminal does not support AddHistory.\n"); unless ($CPAN::META->has_inst('Term::ReadLine::Perl')) { $CPAN::Frontend->mywarn("\nTo fix that, maybe try> install Term::ReadLine::Perl\n\n"); } last; } $META->readhist($term,$histfile); }} for ($CPAN::Config->{term_ornaments}) { # alias local $Term::ReadLine::termcap_nowarn = 1; $term->ornaments($_) if defined; } # $term->OUT is autoflushed anyway my $odef = select STDERR; $| = 1; select STDOUT; $| = 1; select $odef; } $META->checklock(); my @cwd = grep { defined $_ and length $_ } CPAN::anycwd(), File::Spec->can("tmpdir") ? File::Spec->tmpdir() : (), File::Spec->rootdir(); my $try_detect_readline; $try_detect_readline = $term->ReadLine eq "Term::ReadLine::Stub" if $term; unless ($CPAN::Config->{inhibit_startup_message}) { my $rl_avail = $Suppress_readline ? "suppressed" : ($term->ReadLine ne "Term::ReadLine::Stub") ? "enabled" : "available (maybe install Bundle::CPAN or Bundle::CPANxxl?)"; $CPAN::Frontend->myprint( sprintf qq{ cpan shell -- CPAN exploration and modules installation (v%s) Enter 'h' for help. }, $CPAN::VERSION, ) } my($continuation) = ""; my $last_term_ornaments; SHELLCOMMAND: while () { if ($Suppress_readline) { if ($Echo_readline) { $|=1; } print $prompt; last SHELLCOMMAND unless defined ($_ = <> ); if ($Echo_readline) { # backdoor: I could not find a way to record sessions print $_; } chomp; } else { last SHELLCOMMAND unless defined ($_ = $term->readline($prompt, $commandline)); } $_ = "$continuation$_" if $continuation; s/^\s+//; next SHELLCOMMAND if /^$/; s/^\s*\?\s*/help /; if (/^(?:q(?:uit)?|bye|exit)\s*$/i) { last SHELLCOMMAND; } elsif (s/\\$//s) { chomp; $continuation = $_; $prompt = " > "; } elsif (/^\!/) { s/^\!//; my($eval) = $_; package CPAN::Eval; # hide from the indexer use strict; use vars qw($import_done); CPAN->import(':DEFAULT') unless $import_done++; CPAN->debug("eval[$eval]") if $CPAN::DEBUG; eval($eval); warn $@ if $@; $continuation = ""; $prompt = $oprompt; } elsif (/./) { my(@line); eval { @line = Text::ParseWords::shellwords($_) }; warn($@), next SHELLCOMMAND if $@; warn("Text::Parsewords could not parse the line [$_]"), next SHELLCOMMAND unless @line; $CPAN::META->debug("line[".join("|",@line)."]") if $CPAN::DEBUG; my $command = shift @line; eval { local (*STDOUT)=*STDOUT; @line = _redirect(@line); CPAN::Shell->$command(@line) }; my $command_error = $@; _unredirect; my $reported_error; if ($command_error) { my $err = $command_error; if (ref $err and $err->isa('CPAN::Exception::blocked_urllist')) { $CPAN::Frontend->mywarn("Client not fully configured, please proceed with configuring.$err"); $reported_error = ref $err; } else { # I'd prefer never to arrive here and make all errors exception objects if ($err =~ /\S/) { require Carp; require Dumpvalue; my $dv = Dumpvalue->new(tick => '"'); Carp::cluck(sprintf "Catching error: %s", $dv->stringify($err)); } } } if ($command =~ /^( # classic commands make |test |install |clean # pragmas for classic commands |ff?orce |notest # compounds |report |smoke |upgrade )$/x) { # only commands that tell us something about failed distros # eval necessary for people without an urllist eval {CPAN::Shell->failed($CPAN::CurrentCommandId,1);}; if (my $err = $@) { unless (ref $err and $reported_error eq ref $err) { die $@; } } } soft_chdir_with_alternatives(\@cwd); $CPAN::Frontend->myprint("\n"); $continuation = ""; $CPAN::CurrentCommandId++; $prompt = $oprompt; } } continue { $commandline = ""; # I do want to be able to pass a default to # shell, but on the second command I see no # use in that $Signal=0; CPAN::Queue->nullify_queue; if ($try_detect_readline) { if ($CPAN::META->has_inst("Term::ReadLine::Gnu") || $CPAN::META->has_inst("Term::ReadLine::Perl") ) { delete $INC{"Term/ReadLine.pm"}; my $redef = 0; local($SIG{__WARN__}) = CPAN::Shell::paintdots_onreload(\$redef); require Term::ReadLine; $CPAN::Frontend->myprint("\n$redef subroutines in ". "Term::ReadLine redefined\n"); $GOTOSHELL = 1; } } if ($term and $term->can("ornaments")) { for ($CPAN::Config->{term_ornaments}) { # alias if (defined $_) { if (not defined $last_term_ornaments or $_ != $last_term_ornaments ) { local $Term::ReadLine::termcap_nowarn = 1; $term->ornaments($_); $last_term_ornaments = $_; } } else { undef $last_term_ornaments; } } } for my $class (qw(Module Distribution)) { # again unsafe meta access? for my $dm (sort keys %{$CPAN::META->{readwrite}{"CPAN::$class"}}) { next unless $CPAN::META->{readwrite}{"CPAN::$class"}{$dm}{incommandcolor}; CPAN->debug("BUG: $class '$dm' was in command state, resetting"); delete $CPAN::META->{readwrite}{"CPAN::$class"}{$dm}{incommandcolor}; } } if ($GOTOSHELL) { $GOTOSHELL = 0; # not too often $META->savehist if $CPAN::term && $CPAN::term->can("GetHistory"); @_ = ($oprompt,""); goto &shell; } } soft_chdir_with_alternatives(\@cwd); } #-> CPAN::soft_chdir_with_alternatives ; sub soft_chdir_with_alternatives ($) { my($cwd) = @_; unless (@$cwd) { my $root = File::Spec->rootdir(); $CPAN::Frontend->mywarn(qq{Warning: no good directory to chdir to! Trying '$root' as temporary haven. }); push @$cwd, $root; } while () { if (chdir "$cwd->[0]") { return; } else { if (@$cwd>1) { $CPAN::Frontend->mywarn(qq{Could not chdir to "$cwd->[0]": $! Trying to chdir to "$cwd->[1]" instead. }); shift @$cwd; } else { $CPAN::Frontend->mydie(qq{Could not chdir to "$cwd->[0]": $!}); } } } } sub _flock { my($fh,$mode) = @_; if ( $Config::Config{d_flock} || $Config::Config{d_fcntl_can_lock} ) { return flock $fh, $mode; } elsif (!$Have_warned->{"d_flock"}++) { $CPAN::Frontend->mywarn("Your OS does not seem to support locking; continuing and ignoring all locking issues\n"); $CPAN::Frontend->mysleep(5); return 1; } else { return 1; } } sub _yaml_module () { my $yaml_module = $CPAN::Config->{yaml_module} || "YAML"; if ( $yaml_module ne "YAML" && !$CPAN::META->has_inst($yaml_module) ) { # $CPAN::Frontend->mywarn("'$yaml_module' not installed, falling back to 'YAML'\n"); $yaml_module = "YAML"; } if ($yaml_module eq "YAML" && $CPAN::META->has_inst($yaml_module) && $YAML::VERSION < 0.60 && !$Have_warned->{"YAML"}++ ) { $CPAN::Frontend->mywarn("Warning: YAML version '$YAML::VERSION' is too low, please upgrade!\n". "I'll continue but problems are *very* likely to happen.\n" ); $CPAN::Frontend->mysleep(5); } return $yaml_module; } # CPAN::_yaml_loadfile sub _yaml_loadfile { my($self,$local_file) = @_; return +[] unless -s $local_file; my $yaml_module = _yaml_module; if ($CPAN::META->has_inst($yaml_module)) { # temporarily enable yaml code deserialisation no strict 'refs'; # 5.6.2 could not do the local() with the reference # so we do it manually instead my $old_loadcode = ${"$yaml_module\::LoadCode"}; my $old_loadblessed = ${"$yaml_module\::LoadBlessed"}; ${ "$yaml_module\::LoadCode" } = $CPAN::Config->{yaml_load_code} || 0; ${ "$yaml_module\::LoadBlessed" } = 1; my ($code, @yaml); if ($code = UNIVERSAL::can($yaml_module, "LoadFile")) { eval { @yaml = $code->($local_file); }; if ($@) { # this shall not be done by the frontend die CPAN::Exception::yaml_process_error->new($yaml_module,$local_file,"parse",$@); } } elsif ($code = UNIVERSAL::can($yaml_module, "Load")) { local *FH; if (open FH, $local_file) { local $/; my $ystream = <FH>; eval { @yaml = $code->($ystream); }; if ($@) { # this shall not be done by the frontend die CPAN::Exception::yaml_process_error->new($yaml_module,$local_file,"parse",$@); } } else { $CPAN::Frontend->mywarn("Could not open '$local_file': $!"); } } ${"$yaml_module\::LoadCode"} = $old_loadcode; ${"$yaml_module\::LoadBlessed"} = $old_loadblessed; return \@yaml; } else { # this shall not be done by the frontend die CPAN::Exception::yaml_not_installed->new($yaml_module, $local_file, "parse"); } return +[]; } # CPAN::_yaml_dumpfile sub _yaml_dumpfile { my($self,$local_file,@what) = @_; my $yaml_module = _yaml_module; if ($CPAN::META->has_inst($yaml_module)) { my $code; if (UNIVERSAL::isa($local_file, "FileHandle")) { $code = UNIVERSAL::can($yaml_module, "Dump"); eval { print $local_file $code->(@what) }; } elsif ($code = UNIVERSAL::can($yaml_module, "DumpFile")) { eval { $code->($local_file,@what); }; } elsif ($code = UNIVERSAL::can($yaml_module, "Dump")) { local *FH; open FH, ">$local_file" or die "Could not open '$local_file': $!"; print FH $code->(@what); } if ($@) { die CPAN::Exception::yaml_process_error->new($yaml_module,$local_file,"dump",$@); } } else { if (UNIVERSAL::isa($local_file, "FileHandle")) { # I think this case does not justify a warning at all } else { die CPAN::Exception::yaml_not_installed->new($yaml_module, $local_file, "dump"); } } } sub _init_sqlite () { unless ($CPAN::META->has_inst("CPAN::SQLite")) { $CPAN::Frontend->mywarn(qq{CPAN::SQLite not installed, trying to work without\n}) unless $Have_warned->{"CPAN::SQLite"}++; return; } require CPAN::SQLite::META; # not needed since CVS version of 2006-12-17 $CPAN::SQLite ||= CPAN::SQLite::META->new($CPAN::META); } { my $negative_cache = {}; sub _sqlite_running { if ($negative_cache->{time} && time < $negative_cache->{time} + 60) { # need to cache the result, otherwise too slow return $negative_cache->{fact}; } else { $negative_cache = {}; # reset } my $ret = $CPAN::Config->{use_sqlite} && ($CPAN::SQLite || _init_sqlite()); return $ret if $ret; # fast anyway $negative_cache->{time} = time; return $negative_cache->{fact} = $ret; } } $META ||= CPAN->new; # In case we re-eval ourselves we need the || # from here on only subs. ################################################################################ sub _perl_fingerprint { my($self,$other_fingerprint) = @_; my $dll = eval {OS2::DLLname()}; my $mtime_dll = 0; if (defined $dll) { $mtime_dll = (-f $dll ? (stat(_))[9] : '-1'); } my $mtime_perl = (-f CPAN::find_perl ? (stat(_))[9] : '-1'); my $this_fingerprint = { '$^X' => CPAN::find_perl, sitearchexp => $Config::Config{sitearchexp}, 'mtime_$^X' => $mtime_perl, 'mtime_dll' => $mtime_dll, }; if ($other_fingerprint) { if (exists $other_fingerprint->{'stat($^X)'}) { # repair fp from rev. 1.88_57 $other_fingerprint->{'mtime_$^X'} = $other_fingerprint->{'stat($^X)'}[9]; } # mandatory keys since 1.88_57 for my $key (qw($^X sitearchexp mtime_dll mtime_$^X)) { return unless $other_fingerprint->{$key} eq $this_fingerprint->{$key}; } return 1; } else { return $this_fingerprint; } } sub suggest_myconfig () { SUGGEST_MYCONFIG: if(!$INC{'CPAN/MyConfig.pm'}) { $CPAN::Frontend->myprint("You don't seem to have a user ". "configuration (MyConfig.pm) yet.\n"); my $new = CPAN::Shell::colorable_makemaker_prompt("Do you want to create a ". "user configuration now? (Y/n)", "yes"); if($new =~ m{^y}i) { CPAN::Shell->mkmyconfig(); return &checklock; } else { $CPAN::Frontend->mydie("OK, giving up."); } } } #-> sub CPAN::all_objects ; sub all_objects { my($mgr,$class) = @_; CPAN::HandleConfig->load unless $CPAN::Config_loaded++; CPAN->debug("mgr[$mgr] class[$class]") if $CPAN::DEBUG; CPAN::Index->reload; values %{ $META->{readwrite}{$class} }; # unsafe meta access, ok } # Called by shell, not in batch mode. In batch mode I see no risk in # having many processes updating something as installations are # continually checked at runtime. In shell mode I suspect it is # unintentional to open more than one shell at a time #-> sub CPAN::checklock ; sub checklock { my($self) = @_; my $lockfile = File::Spec->catfile($CPAN::Config->{cpan_home},".lock"); if (-f $lockfile && -M _ > 0) { my $fh = FileHandle->new($lockfile) or $CPAN::Frontend->mydie("Could not open lockfile '$lockfile': $!"); my $otherpid = <$fh>; my $otherhost = <$fh>; $fh->close; if (defined $otherpid && length $otherpid) { chomp $otherpid; } if (defined $otherhost && length $otherhost) { chomp $otherhost; } my $thishost = hostname(); my $ask_if_degraded_wanted = 0; if (defined $otherhost && defined $thishost && $otherhost ne '' && $thishost ne '' && $otherhost ne $thishost) { $CPAN::Frontend->mydie(sprintf("CPAN.pm panic: Lockfile '$lockfile'\n". "reports other host $otherhost and other ". "process $otherpid.\n". "Cannot proceed.\n")); } elsif ($RUN_DEGRADED) { $CPAN::Frontend->mywarn("Running in downgraded mode (experimental)\n"); } elsif (defined $otherpid && $otherpid) { return if $$ == $otherpid; # should never happen $CPAN::Frontend->mywarn( qq{ There seems to be running another CPAN process (pid $otherpid). Contacting... }); if (kill 0, $otherpid or $!{EPERM}) { $CPAN::Frontend->mywarn(qq{Other job is running.\n}); $ask_if_degraded_wanted = 1; } elsif (-w $lockfile) { my($ans) = CPAN::Shell::colorable_makemaker_prompt (qq{Other job not responding. Shall I overwrite }. qq{the lockfile '$lockfile'? (Y/n)},"y"); $CPAN::Frontend->myexit("Ok, bye\n") unless $ans =~ /^y/i; } else { Carp::croak( qq{Lockfile '$lockfile' not writable by you. }. qq{Cannot proceed.\n}. qq{ On UNIX try:\n}. qq{ rm '$lockfile'\n}. qq{ and then rerun us.\n} ); } } elsif ($^O eq "MSWin32") { $CPAN::Frontend->mywarn( qq{ There seems to be running another CPAN process according to '$lockfile'. }); $ask_if_degraded_wanted = 1; } else { $CPAN::Frontend->mydie(sprintf("CPAN.pm panic: Found invalid lockfile ". "'$lockfile', please remove. Cannot proceed.\n")); } if ($ask_if_degraded_wanted) { my($ans) = CPAN::Shell::colorable_makemaker_prompt (qq{Shall I try to run in downgraded }. qq{mode? (Y/n)},"y"); if ($ans =~ /^y/i) { $CPAN::Frontend->mywarn("Running in downgraded mode (experimental). Please report if something unexpected happens\n"); $RUN_DEGRADED = 1; for ($CPAN::Config) { # XXX # $_->{build_dir_reuse} = 0; # 2006-11-17 akoenig Why was that? $_->{commandnumber_in_prompt} = 0; # visibility $_->{histfile} = ""; # who should win otherwise? $_->{cache_metadata} = 0; # better would be a lock? $_->{use_sqlite} = 0; # better would be a write lock! $_->{auto_commit} = 0; # we are violent, do not persist $_->{test_report} = 0; # Oliver Paukstadt had sent wrong reports in degraded mode } } else { my $msg = "You may want to kill the other job and delete the lockfile."; if (defined $otherpid) { $msg .= " Something like: kill $otherpid rm $lockfile "; } $CPAN::Frontend->mydie("\n$msg"); } } } my $dotcpan = $CPAN::Config->{cpan_home}; eval { File::Path::mkpath($dotcpan);}; if ($@) { # A special case at least for Jarkko. my $firsterror = $@; my $seconderror; my $symlinkcpan; if (-l $dotcpan) { $symlinkcpan = readlink $dotcpan; die "readlink $dotcpan failed: $!" unless defined $symlinkcpan; eval { File::Path::mkpath($symlinkcpan); }; if ($@) { $seconderror = $@; } else { $CPAN::Frontend->mywarn(qq{ Working directory $symlinkcpan created. }); } } unless (-d $dotcpan) { my $mess = qq{ Your configuration suggests "$dotcpan" as your CPAN.pm working directory. I could not create this directory due to this error: $firsterror\n}; $mess .= qq{ As "$dotcpan" is a symlink to "$symlinkcpan", I tried to create that, but I failed with this error: $seconderror } if $seconderror; $mess .= qq{ Please make sure the directory exists and is writable. }; $CPAN::Frontend->mywarn($mess); return suggest_myconfig; } } # $@ after eval mkpath $dotcpan if (0) { # to test what happens when a race condition occurs for (reverse 1..10) { print $_, "\n"; sleep 1; } } # locking if (!$RUN_DEGRADED && !$self->{LOCKFH}) { my $fh; unless ($fh = FileHandle->new("+>>$lockfile")) { $CPAN::Frontend->mywarn(qq{ Your configuration suggests that CPAN.pm should use a working directory of $CPAN::Config->{cpan_home} Unfortunately we could not create the lock file $lockfile due to '$!'. Please make sure that the configuration variable \$CPAN::Config->{cpan_home} points to a directory where you can write a .lock file. You can set this variable in either a CPAN/MyConfig.pm or a CPAN/Config.pm in your \@INC path; }); return suggest_myconfig; } my $sleep = 1; while (!CPAN::_flock($fh, LOCK_EX|LOCK_NB)) { my $err = $! || "unknown error"; if ($sleep>3) { $CPAN::Frontend->mydie("Could not lock '$lockfile' with flock: $err; giving up\n"); } $CPAN::Frontend->mysleep($sleep+=0.1); $CPAN::Frontend->mywarn("Could not lock '$lockfile' with flock: $err; retrying\n"); } seek $fh, 0, 0; truncate $fh, 0; $fh->autoflush(1); $fh->print($$, "\n"); $fh->print(hostname(), "\n"); $self->{LOCK} = $lockfile; $self->{LOCKFH} = $fh; } $SIG{TERM} = sub { my $sig = shift; &cleanup; $CPAN::Frontend->mydie("Got SIG$sig, leaving"); }; $SIG{INT} = sub { # no blocks!!! my $sig = shift; &cleanup if $Signal; die "Got yet another signal" if $Signal > 1; $CPAN::Frontend->mydie("Got another SIG$sig") if $Signal; $CPAN::Frontend->mywarn("Caught SIG$sig, trying to continue\n"); $Signal++; }; # From: Larry Wall <larry@wall.org> # Subject: Re: deprecating SIGDIE # To: perl5-porters@perl.org # Date: Thu, 30 Sep 1999 14:58:40 -0700 (PDT) # # The original intent of __DIE__ was only to allow you to substitute one # kind of death for another on an application-wide basis without respect # to whether you were in an eval or not. As a global backstop, it should # not be used any more lightly (or any more heavily :-) than class # UNIVERSAL. Any attempt to build a general exception model on it should # be politely squashed. Any bug that causes every eval {} to have to be # modified should be not so politely squashed. # # Those are my current opinions. It is also my opinion that polite # arguments degenerate to personal arguments far too frequently, and that # when they do, it's because both people wanted it to, or at least didn't # sufficiently want it not to. # # Larry # global backstop to cleanup if we should really die $SIG{__DIE__} = \&cleanup; $self->debug("Signal handler set.") if $CPAN::DEBUG; } #-> sub CPAN::DESTROY ; sub DESTROY { &cleanup; # need an eval? } #-> sub CPAN::anycwd ; sub anycwd () { my $getcwd; $getcwd = $CPAN::Config->{'getcwd'} || 'cwd'; CPAN->$getcwd(); } #-> sub CPAN::cwd ; sub cwd {Cwd::cwd();} #-> sub CPAN::getcwd ; sub getcwd {Cwd::getcwd();} #-> sub CPAN::fastcwd ; sub fastcwd {Cwd::fastcwd();} #-> sub CPAN::getdcwd ; sub getdcwd {Cwd::getdcwd();} #-> sub CPAN::backtickcwd ; sub backtickcwd {my $cwd = `cwd`; chomp $cwd; $cwd} # Adapted from Probe::Perl #-> sub CPAN::_perl_is_same sub _perl_is_same { my ($perl) = @_; return MM->maybe_command($perl) && `$perl -MConfig=myconfig -e print -e myconfig` eq Config->myconfig; } # Adapted in part from Probe::Perl #-> sub CPAN::find_perl ; sub find_perl () { if ( File::Spec->file_name_is_absolute($^X) ) { return $^X; } else { my $exe = $Config::Config{exe_ext}; my @candidates = ( File::Spec->catfile($CPAN::iCwd,$^X), $Config::Config{'perlpath'}, ); for my $perl_name ($^X, 'perl', 'perl5', "perl$]") { for my $path (File::Spec->path(), $Config::Config{'binexp'}) { if ( defined($path) && length $path && -d $path ) { my $perl = File::Spec->catfile($path,$perl_name); push @candidates, $perl; # try with extension if not provided already if ($^O eq 'VMS') { # VMS might have a file version at the end push @candidates, $perl . $exe unless $perl =~ m/$exe(;\d+)?$/i; } elsif (defined $exe && length $exe) { push @candidates, $perl . $exe unless $perl =~ m/$exe$/i; } } } } for my $perl ( @candidates ) { if (MM->maybe_command($perl) && _perl_is_same($perl)) { $^X = $perl; return $perl; } } } return $^X; # default fall back } #-> sub CPAN::exists ; sub exists { my($mgr,$class,$id) = @_; CPAN::HandleConfig->load unless $CPAN::Config_loaded++; CPAN::Index->reload; ### Carp::croak "exists called without class argument" unless $class; $id ||= ""; $id =~ s/:+/::/g if $class eq "CPAN::Module"; my $exists; if (CPAN::_sqlite_running) { $exists = (exists $META->{readonly}{$class}{$id} or $CPAN::SQLite->set($class, $id)); } else { $exists = exists $META->{readonly}{$class}{$id}; } $exists ||= exists $META->{readwrite}{$class}{$id}; # unsafe meta access, ok } #-> sub CPAN::delete ; sub delete { my($mgr,$class,$id) = @_; delete $META->{readonly}{$class}{$id}; # unsafe meta access, ok delete $META->{readwrite}{$class}{$id}; # unsafe meta access, ok } #-> sub CPAN::has_usable # has_inst is sometimes too optimistic, we should replace it with this # has_usable whenever a case is given sub has_usable { my($self,$mod,$message) = @_; return 1 if $HAS_USABLE->{$mod}; my $has_inst = $self->has_inst($mod,$message); return unless $has_inst; my $usable; $usable = { # # most of these subroutines warn on the frontend, then # die if the installed version is unusable for some # reason; has_usable() then returns false when it caught # an exception, otherwise returns true and caches that; # 'CPAN::Meta' => [ sub { require CPAN::Meta; unless (CPAN::Version->vge(CPAN::Meta->VERSION, 2.110350)) { for ("Will not use CPAN::Meta, need version 2.110350\n") { $CPAN::Frontend->mywarn($_); die $_; } } }, ], 'CPAN::Meta::Requirements' => [ sub { if (defined $CPAN::Meta::Requirements::VERSION && CPAN::Version->vlt($CPAN::Meta::Requirements::VERSION, "2.120920") ) { delete $INC{"CPAN/Meta/Requirements.pm"}; } require CPAN::Meta::Requirements; unless (CPAN::Version->vge(CPAN::Meta::Requirements->VERSION, 2.120920)) { for ("Will not use CPAN::Meta::Requirements, need version 2.120920\n") { $CPAN::Frontend->mywarn($_); die $_; } } }, ], 'CPAN::Reporter' => [ sub { if (defined $CPAN::Reporter::VERSION && CPAN::Version->vlt($CPAN::Reporter::VERSION, "1.2011") ) { delete $INC{"CPAN/Reporter.pm"}; } require CPAN::Reporter; unless (CPAN::Version->vge(CPAN::Reporter->VERSION, "1.2011")) { for ("Will not use CPAN::Reporter, need version 1.2011\n") { $CPAN::Frontend->mywarn($_); die $_; } } }, ], LWP => [ # we frequently had "Can't locate object # method "new" via package "LWP::UserAgent" at # (eval 69) line 2006 sub {require LWP}, sub {require LWP::UserAgent}, sub {require HTTP::Request}, sub {require URI::URL; unless (CPAN::Version->vge(URI::URL::->VERSION,0.08)) { for ("Will not use URI::URL, need 0.08\n") { $CPAN::Frontend->mywarn($_); die $_; } } }, ], 'Net::FTP' => [ sub { my $var = $CPAN::Config->{ftp_proxy} || $ENV{ftp_proxy}; if ($var and $var =~ /^http:/i) { # rt #110833 for ("Net::FTP cannot handle http proxy") { $CPAN::Frontend->mywarn($_); die $_; } } }, sub {require Net::FTP}, sub {require Net::Config}, ], 'HTTP::Tiny' => [ sub { require HTTP::Tiny; unless (CPAN::Version->vge(HTTP::Tiny->VERSION, 0.005)) { for ("Will not use HTTP::Tiny, need version 0.005\n") { $CPAN::Frontend->mywarn($_); die $_; } } }, ], 'File::HomeDir' => [ sub {require File::HomeDir; unless (CPAN::Version->vge(File::HomeDir::->VERSION, 0.52)) { for ("Will not use File::HomeDir, need 0.52\n") { $CPAN::Frontend->mywarn($_); die $_; } } }, ], 'Archive::Tar' => [ sub {require Archive::Tar; my $demand = "1.50"; unless (CPAN::Version->vge(Archive::Tar::->VERSION, $demand)) { my $atv = Archive::Tar->VERSION; for ("You have Archive::Tar $atv, but $demand or later is recommended. Please upgrade.\n") { $CPAN::Frontend->mywarn($_); # don't die, because we may need # Archive::Tar to upgrade } } }, ], 'File::Temp' => [ # XXX we should probably delete from # %INC too so we can load after we # installed a new enough version -- # I'm not sure. sub {require File::Temp; unless (CPAN::Version->vge(File::Temp::->VERSION,0.16)) { for ("Will not use File::Temp, need 0.16\n") { $CPAN::Frontend->mywarn($_); die $_; } } }, ] }; if ($usable->{$mod}) { local @INC = @INC; pop @INC if $INC[-1] eq '.'; for my $c (0..$#{$usable->{$mod}}) { my $code = $usable->{$mod}[$c]; my $ret = eval { &$code() }; $ret = "" unless defined $ret; if ($@) { # warn "DEBUG: c[$c]\$\@[$@]ret[$ret]"; return; } } } return $HAS_USABLE->{$mod} = 1; } sub frontend { shift; $CPAN::Frontend = shift if @_; $CPAN::Frontend; } sub use_inst { my ($self, $module) = @_; unless ($self->has_inst($module)) { $self->frontend->mydie("$module not installed, cannot continue"); } } #-> sub CPAN::has_inst sub has_inst { my($self,$mod,$message) = @_; Carp::croak("CPAN->has_inst() called without an argument") unless defined $mod; my %dont = map { $_ => 1 } keys %{$CPAN::META->{dontload_hash}||{}}, keys %{$CPAN::Config->{dontload_hash}||{}}, @{$CPAN::Config->{dontload_list}||[]}; if (defined $message && $message eq "no" # as far as I remember only used by Nox || $dont{$mod} ) { $CPAN::META->{dontload_hash}{$mod}||=1; # unsafe meta access, ok return 0; } local @INC = @INC; pop @INC if $INC[-1] eq '.'; my $file = $mod; my $obj; $file =~ s|::|/|g; $file .= ".pm"; if ($INC{$file}) { # checking %INC is wrong, because $INC{LWP} may be true # although $INC{"URI/URL.pm"} may have failed. But as # I really want to say "blah loaded OK", I have to somehow # cache results. ### warn "$file in %INC"; #debug return 1; } elsif (eval { require $file }) { # eval is good: if we haven't yet read the database it's # perfect and if we have installed the module in the meantime, # it tries again. The second require is only a NOOP returning # 1 if we had success, otherwise it's retrying my $mtime = (stat $INC{$file})[9]; # privileged files loaded by has_inst; Note: we use $mtime # as a proxy for a checksum. $CPAN::Shell::reload->{$file} = $mtime; my $v = eval "\$$mod\::VERSION"; $v = $v ? " (v$v)" : ""; CPAN::Shell->optprint("load_module","CPAN: $mod loaded ok$v\n"); if ($mod eq "CPAN::WAIT") { push @CPAN::Shell::ISA, 'CPAN::WAIT'; } return 1; } elsif ($mod eq "Net::FTP") { $CPAN::Frontend->mywarn(qq{ Please, install Net::FTP as soon as possible. CPAN.pm installs it for you if you just type install Bundle::libnet }) unless $Have_warned->{"Net::FTP"}++; $CPAN::Frontend->mysleep(3); } elsif ($mod eq "Digest::SHA") { if ($Have_warned->{"Digest::SHA"}++) { $CPAN::Frontend->mywarn(qq{CPAN: checksum security checks disabled }. qq{because Digest::SHA not installed.\n}); } else { $CPAN::Frontend->mywarn(qq{ CPAN: checksum security checks disabled because Digest::SHA not installed. Please consider installing the Digest::SHA module. }); $CPAN::Frontend->mysleep(2); } } elsif ($mod eq "Module::Signature") { # NOT prefs_lookup, we are not a distro my $check_sigs = $CPAN::Config->{check_sigs}; if (not $check_sigs) { # they do not want us:-( } elsif (not $Have_warned->{"Module::Signature"}++) { # No point in complaining unless the user can # reasonably install and use it. if (eval { require Crypt::OpenPGP; 1 } || ( defined $CPAN::Config->{'gpg'} && $CPAN::Config->{'gpg'} =~ /\S/ ) ) { $CPAN::Frontend->mywarn(qq{ CPAN: Module::Signature security checks disabled because Module::Signature not installed. Please consider installing the Module::Signature module. You may also need to be able to connect over the Internet to the public key servers like pool.sks-keyservers.net or pgp.mit.edu. }); $CPAN::Frontend->mysleep(2); } } } else { delete $INC{$file}; # if it inc'd LWP but failed during, say, URI } return 0; } #-> sub CPAN::instance ; sub instance { my($mgr,$class,$id) = @_; CPAN::Index->reload; $id ||= ""; # unsafe meta access, ok? return $META->{readwrite}{$class}{$id} if exists $META->{readwrite}{$class}{$id}; $META->{readwrite}{$class}{$id} ||= $class->new(ID => $id); } #-> sub CPAN::new ; sub new { bless {}, shift; } #-> sub CPAN::_exit_messages ; sub _exit_messages { my ($self) = @_; $self->{exit_messages} ||= []; } #-> sub CPAN::cleanup ; sub cleanup { # warn "cleanup called with arg[@_] End[$CPAN::End] Signal[$Signal]"; local $SIG{__DIE__} = ''; my($message) = @_; my $i = 0; my $ineval = 0; my($subroutine); while ((undef,undef,undef,$subroutine) = caller(++$i)) { $ineval = 1, last if $subroutine eq '(eval)'; } return if $ineval && !$CPAN::End; return unless defined $META->{LOCK}; return unless -f $META->{LOCK}; $META->savehist; $META->{cachemgr} ||= CPAN::CacheMgr->new('atexit'); close $META->{LOCKFH}; unlink $META->{LOCK}; # require Carp; # Carp::cluck("DEBUGGING"); if ( $CPAN::CONFIG_DIRTY ) { $CPAN::Frontend->mywarn("Warning: Configuration not saved.\n"); } $CPAN::Frontend->myprint("Lockfile removed.\n"); for my $msg ( @{ $META->_exit_messages } ) { $CPAN::Frontend->myprint($msg); } } #-> sub CPAN::readhist sub readhist { my($self,$term,$histfile) = @_; my $histsize = $CPAN::Config->{'histsize'} || 100; $term->Attribs->{'MaxHistorySize'} = $histsize if (defined($term->Attribs->{'MaxHistorySize'})); my($fh) = FileHandle->new; open $fh, "<$histfile" or return; local $/ = "\n"; while (<$fh>) { chomp; $term->AddHistory($_); } close $fh; } #-> sub CPAN::savehist sub savehist { my($self) = @_; my($histfile,$histsize); unless ($histfile = $CPAN::Config->{'histfile'}) { $CPAN::Frontend->mywarn("No history written (no histfile specified).\n"); return; } $histsize = $CPAN::Config->{'histsize'} || 100; if ($CPAN::term) { unless ($CPAN::term->can("GetHistory")) { $CPAN::Frontend->mywarn("Terminal does not support GetHistory.\n"); return; } } else { return; } my @h = $CPAN::term->GetHistory; splice @h, 0, @h-$histsize if @h>$histsize; my($fh) = FileHandle->new; open $fh, ">$histfile" or $CPAN::Frontend->mydie("Couldn't open >$histfile: $!"); local $\ = local $, = "\n"; print $fh @h; close $fh; } #-> sub CPAN::is_tested sub is_tested { my($self,$what,$when) = @_; unless ($what) { Carp::cluck("DEBUG: empty what"); return; } $self->{is_tested}{$what} = $when; } #-> sub CPAN::reset_tested # forget all distributions tested -- resets what gets included in PERL5LIB sub reset_tested { my ($self) = @_; $self->{is_tested} = {}; } #-> sub CPAN::is_installed # unsets the is_tested flag: as soon as the thing is installed, it is # not needed in set_perl5lib anymore sub is_installed { my($self,$what) = @_; delete $self->{is_tested}{$what}; } sub _list_sorted_descending_is_tested { my($self) = @_; my $foul = 0; my @sorted = sort { ($self->{is_tested}{$b}||0) <=> ($self->{is_tested}{$a}||0) } grep { if ($foul){ 0 } elsif (-e) { 1 } else { $foul = $_; 0 } } keys %{$self->{is_tested}}; if ($foul) { $CPAN::Frontend->mywarn("Lost build_dir detected ($foul), giving up all cached test results of currently running session.\n"); for my $dbd (sort keys %{$self->{is_tested}}) { # distro-build-dir SEARCH: for my $d (sort { $a->id cmp $b->id } $CPAN::META->all_objects("CPAN::Distribution")) { if ($d->{build_dir} && $d->{build_dir} eq $dbd) { $CPAN::Frontend->mywarn(sprintf "Flushing cache for %s\n", $d->pretty_id); $d->fforce(""); last SEARCH; } } delete $self->{is_tested}{$dbd}; } return (); } else { return @sorted; } } #-> sub CPAN::set_perl5lib # Notes on max environment variable length: # - Win32 : XP or later, 8191; Win2000 or NT4, 2047 { my $fh; sub set_perl5lib { my($self,$for) = @_; unless ($for) { (undef,undef,undef,$for) = caller(1); $for =~ s/.*://; } $self->{is_tested} ||= {}; return unless %{$self->{is_tested}}; my $env = $ENV{PERL5LIB}; $env = $ENV{PERLLIB} unless defined $env; my @env; push @env, split /\Q$Config::Config{path_sep}\E/, $env if defined $env and length $env; #my @dirs = map {("$_/blib/arch", "$_/blib/lib")} keys %{$self->{is_tested}}; #$CPAN::Frontend->myprint("Prepending @dirs to PERL5LIB.\n"); my @dirs = map {("$_/blib/arch", "$_/blib/lib")} $self->_list_sorted_descending_is_tested; return if !@dirs; if (@dirs < 12) { $CPAN::Frontend->optprint('perl5lib', "Prepending @dirs to PERL5LIB for '$for'\n"); $ENV{PERL5LIB} = join $Config::Config{path_sep}, @dirs, @env; } elsif (@dirs < 24 ) { my @d = map {my $cp = $_; $cp =~ s/^\Q$CPAN::Config->{build_dir}\E/%BUILDDIR%/; $cp } @dirs; $CPAN::Frontend->optprint('perl5lib', "Prepending @d to PERL5LIB; ". "%BUILDDIR%=$CPAN::Config->{build_dir} ". "for '$for'\n" ); $ENV{PERL5LIB} = join $Config::Config{path_sep}, @dirs, @env; } else { my $cnt = keys %{$self->{is_tested}}; my $newenv = join $Config::Config{path_sep}, @dirs, @env; $CPAN::Frontend->optprint('perl5lib', sprintf ("Prepending blib/arch and blib/lib of ". "%d build dirs to PERL5LIB, reaching size %d; ". "for '%s'\n", $cnt, length($newenv), $for) ); $ENV{PERL5LIB} = $newenv; } }} 1; __END__ =head1 NAME CPAN - query, download and build perl modules from CPAN sites =head1 SYNOPSIS Interactive mode: perl -MCPAN -e shell --or-- cpan Basic commands: # Modules: cpan> install Acme::Meta # in the shell CPAN::Shell->install("Acme::Meta"); # in perl # Distributions: cpan> install NWCLARK/Acme-Meta-0.02.tar.gz # in the shell CPAN::Shell-> install("NWCLARK/Acme-Meta-0.02.tar.gz"); # in perl # module objects: $mo = CPAN::Shell->expandany($mod); $mo = CPAN::Shell->expand("Module",$mod); # same thing # distribution objects: $do = CPAN::Shell->expand("Module",$mod)->distribution; $do = CPAN::Shell->expandany($distro); # same thing $do = CPAN::Shell->expand("Distribution", $distro); # same thing =head1 DESCRIPTION The CPAN module automates or at least simplifies the make and install of perl modules and extensions. It includes some primitive searching capabilities and knows how to use LWP, HTTP::Tiny, Net::FTP and certain external download clients to fetch distributions from the net. These are fetched from one or more mirrored CPAN (Comprehensive Perl Archive Network) sites and unpacked in a dedicated directory. The CPAN module also supports named and versioned I<bundles> of modules. Bundles simplify handling of sets of related modules. See Bundles below. The package contains a session manager and a cache manager. The session manager keeps track of what has been fetched, built, and installed in the current session. The cache manager keeps track of the disk space occupied by the make processes and deletes excess space using a simple FIFO mechanism. All methods provided are accessible in a programmer style and in an interactive shell style. =head2 CPAN::shell([$prompt, $command]) Starting Interactive Mode Enter interactive mode by running perl -MCPAN -e shell or cpan which puts you into a readline interface. If C<Term::ReadKey> and either of C<Term::ReadLine::Perl> or C<Term::ReadLine::Gnu> are installed, history and command completion are supported. Once at the command line, type C<h> for one-page help screen; the rest should be self-explanatory. The function call C<shell> takes two optional arguments: one the prompt, the second the default initial command line (the latter only works if a real ReadLine interface module is installed). The most common uses of the interactive modes are =over 2 =item Searching for authors, bundles, distribution files and modules There are corresponding one-letter commands C<a>, C<b>, C<d>, and C<m> for each of the four categories and another, C<i> for any of the mentioned four. Each of the four entities is implemented as a class with slightly differing methods for displaying an object. Arguments to these commands are either strings exactly matching the identification string of an object, or regular expressions matched case-insensitively against various attributes of the objects. The parser only recognizes a regular expression when you enclose it with slashes. The principle is that the number of objects found influences how an item is displayed. If the search finds one item, the result is displayed with the rather verbose method C<as_string>, but if more than one is found, each object is displayed with the terse method C<as_glimpse>. Examples: cpan> m Acme::MetaSyntactic Module id = Acme::MetaSyntactic CPAN_USERID BOOK (Philippe Bruhat (BooK) <[...]>) CPAN_VERSION 0.99 CPAN_FILE B/BO/BOOK/Acme-MetaSyntactic-0.99.tar.gz UPLOAD_DATE 2006-11-06 MANPAGE Acme::MetaSyntactic - Themed metasyntactic variables names INST_FILE /usr/local/lib/perl/5.10.0/Acme/MetaSyntactic.pm INST_VERSION 0.99 cpan> a BOOK Author id = BOOK EMAIL [...] FULLNAME Philippe Bruhat (BooK) cpan> d BOOK/Acme-MetaSyntactic-0.99.tar.gz Distribution id = B/BO/BOOK/Acme-MetaSyntactic-0.99.tar.gz CPAN_USERID BOOK (Philippe Bruhat (BooK) <[...]>) CONTAINSMODS Acme::MetaSyntactic Acme::MetaSyntactic::Alias [...] UPLOAD_DATE 2006-11-06 cpan> m /lorem/ Module = Acme::MetaSyntactic::loremipsum (BOOK/Acme-MetaSyntactic-0.99.tar.gz) Module Text::Lorem (ADEOLA/Text-Lorem-0.3.tar.gz) Module Text::Lorem::More (RKRIMEN/Text-Lorem-More-0.12.tar.gz) Module Text::Lorem::More::Source (RKRIMEN/Text-Lorem-More-0.12.tar.gz) cpan> i /berlin/ Distribution BEATNIK/Filter-NumberLines-0.02.tar.gz Module = DateTime::TimeZone::Europe::Berlin (DROLSKY/DateTime-TimeZone-0.7904.tar.gz) Module Filter::NumberLines (BEATNIK/Filter-NumberLines-0.02.tar.gz) Author [...] The examples illustrate several aspects: the first three queries target modules, authors, or distros directly and yield exactly one result. The last two use regular expressions and yield several results. The last one targets all of bundles, modules, authors, and distros simultaneously. When more than one result is available, they are printed in one-line format. =item C<get>, C<make>, C<test>, C<install>, C<clean> modules or distributions These commands take any number of arguments and investigate what is necessary to perform the action. Argument processing is as follows: known module name in format Foo/Bar.pm module other embedded slash distribution - with trailing slash dot directory enclosing slashes regexp known module name in format Foo::Bar module If the argument is a distribution file name (recognized by embedded slashes), it is processed. If it is a module, CPAN determines the distribution file in which this module is included and processes that, following any dependencies named in the module's META.yml or Makefile.PL (this behavior is controlled by the configuration parameter C<prerequisites_policy>). If an argument is enclosed in slashes it is treated as a regular expression: it is expanded and if the result is a single object (distribution, bundle or module), this object is processed. Example: install Dummy::Perl # installs the module install AUXXX/Dummy-Perl-3.14.tar.gz # installs that distribution install /Dummy-Perl-3.14/ # same if the regexp is unambiguous C<get> downloads a distribution file and untars or unzips it, C<make> builds it, C<test> runs the test suite, and C<install> installs it. Any C<make> or C<test> is run unconditionally. An install <distribution_file> is also run unconditionally. But for install <module> CPAN checks whether an install is needed and prints I<module up to date> if the distribution file containing the module doesn't need updating. CPAN also keeps track of what it has done within the current session and doesn't try to build a package a second time regardless of whether it succeeded or not. It does not repeat a test run if the test has been run successfully before. Same for install runs. The C<force> pragma may precede another command (currently: C<get>, C<make>, C<test>, or C<install>) to execute the command from scratch and attempt to continue past certain errors. See the section below on the C<force> and the C<fforce> pragma. The C<notest> pragma skips the test part in the build process. Example: cpan> notest install Tk A C<clean> command results in a make clean being executed within the distribution file's working directory. =item C<readme>, C<perldoc>, C<look> module or distribution C<readme> displays the README file of the associated distribution. C<Look> gets and untars (if not yet done) the distribution file, changes to the appropriate directory and opens a subshell process in that directory. C<perldoc> displays the module's pod documentation in html or plain text format. =item C<ls> author =item C<ls> globbing_expression The first form lists all distribution files in and below an author's CPAN directory as stored in the CHECKSUMS files distributed on CPAN. The listing recurses into subdirectories. The second form limits or expands the output with shell globbing as in the following examples: ls JV/make* ls GSAR/*make* ls */*make* The last example is very slow and outputs extra progress indicators that break the alignment of the result. Note that globbing only lists directories explicitly asked for, for example FOO/* will not list FOO/bar/Acme-Sthg-n.nn.tar.gz. This may be regarded as a bug that may be changed in some future version. =item C<failed> The C<failed> command reports all distributions that failed on one of C<make>, C<test> or C<install> for some reason in the currently running shell session. =item Persistence between sessions If the C<YAML> or the C<YAML::Syck> module is installed a record of the internal state of all modules is written to disk after each step. The files contain a signature of the currently running perl version for later perusal. If the configurations variable C<build_dir_reuse> is set to a true value, then CPAN.pm reads the collected YAML files. If the stored signature matches the currently running perl, the stored state is loaded into memory such that persistence between sessions is effectively established. =item The C<force> and the C<fforce> pragma To speed things up in complex installation scenarios, CPAN.pm keeps track of what it has already done and refuses to do some things a second time. A C<get>, a C<make>, and an C<install> are not repeated. A C<test> is repeated only if the previous test was unsuccessful. The diagnostic message when CPAN.pm refuses to do something a second time is one of I<Has already been >C<unwrapped|made|tested successfully> or something similar. Another situation where CPAN refuses to act is an C<install> if the corresponding C<test> was not successful. In all these cases, the user can override this stubborn behaviour by prepending the command with the word force, for example: cpan> force get Foo cpan> force make AUTHOR/Bar-3.14.tar.gz cpan> force test Baz cpan> force install Acme::Meta Each I<forced> command is executed with the corresponding part of its memory erased. The C<fforce> pragma is a variant that emulates a C<force get> which erases the entire memory followed by the action specified, effectively restarting the whole get/make/test/install procedure from scratch. =item Lockfile Interactive sessions maintain a lockfile, by default C<~/.cpan/.lock>. Batch jobs can run without a lockfile and not disturb each other. The shell offers to run in I<downgraded mode> when another process is holding the lockfile. This is an experimental feature that is not yet tested very well. This second shell then does not write the history file, does not use the metadata file, and has a different prompt. =item Signals CPAN.pm installs signal handlers for SIGINT and SIGTERM. While you are in the cpan-shell, it is intended that you can press C<^C> anytime and return to the cpan-shell prompt. A SIGTERM will cause the cpan-shell to clean up and leave the shell loop. You can emulate the effect of a SIGTERM by sending two consecutive SIGINTs, which usually means by pressing C<^C> twice. CPAN.pm ignores SIGPIPE. If the user sets C<inactivity_timeout>, a SIGALRM is used during the run of the C<perl Makefile.PL> or C<perl Build.PL> subprocess. A SIGALRM is also used during module version parsing, and is controlled by C<version_timeout>. =back =head2 CPAN::Shell The commands available in the shell interface are methods in the package CPAN::Shell. If you enter the shell command, your input is split by the Text::ParseWords::shellwords() routine, which acts like most shells do. The first word is interpreted as the method to be invoked, and the rest of the words are treated as the method's arguments. Continuation lines are supported by ending a line with a literal backslash. =head2 autobundle C<autobundle> writes a bundle file into the C<$CPAN::Config-E<gt>{cpan_home}/Bundle> directory. The file contains a list of all modules that are both available from CPAN and currently installed within @INC. Duplicates of each distribution are suppressed. The name of the bundle file is based on the current date and a counter, e.g. F<Bundle/Snapshot_2012_05_21_00.pm>. This is installed again by running C<cpan Bundle::Snapshot_2012_05_21_00>, or installing C<Bundle::Snapshot_2012_05_21_00> from the CPAN shell. Return value: path to the written file. =head2 hosts Note: this feature is still in alpha state and may change in future versions of CPAN.pm This commands provides a statistical overview over recent download activities. The data for this is collected in the YAML file C<FTPstats.yml> in your C<cpan_home> directory. If no YAML module is configured or YAML not installed, no stats are provided. =over =item install_tested Install all distributions that have been tested successfully but have not yet been installed. See also C<is_tested>. =item is_tested List all build directories of distributions that have been tested successfully but have not yet been installed. See also C<install_tested>. =back =head2 mkmyconfig mkmyconfig() writes your own CPAN::MyConfig file into your C<~/.cpan/> directory so that you can save your own preferences instead of the system-wide ones. =head2 r [Module|/Regexp/]... scans current perl installation for modules that have a newer version available on CPAN and provides a list of them. If called without argument, all potential upgrades are listed; if called with arguments the list is filtered to the modules and regexps given as arguments. The listing looks something like this: Package namespace installed latest in CPAN file CPAN 1.94_64 1.9600 ANDK/CPAN-1.9600.tar.gz CPAN::Reporter 1.1801 1.1902 DAGOLDEN/CPAN-Reporter-1.1902.tar.gz YAML 0.70 0.73 INGY/YAML-0.73.tar.gz YAML::Syck 1.14 1.17 AVAR/YAML-Syck-1.17.tar.gz YAML::Tiny 1.44 1.50 ADAMK/YAML-Tiny-1.50.tar.gz CGI 3.43 3.55 MARKSTOS/CGI.pm-3.55.tar.gz Module::Build::YAML 1.40 1.41 DAGOLDEN/Module-Build-0.3800.tar.gz TAP::Parser::Result::YAML 3.22 3.23 ANDYA/Test-Harness-3.23.tar.gz YAML::XS 0.34 0.35 INGY/YAML-LibYAML-0.35.tar.gz It suppresses duplicates in the column C<in CPAN file> such that distributions with many upgradeable modules are listed only once. Note that the list is not sorted. =head2 recent ***EXPERIMENTAL COMMAND*** The C<recent> command downloads a list of recent uploads to CPAN and displays them I<slowly>. While the command is running, a $SIG{INT} exits the loop after displaying the current item. B<Note>: This command requires XML::LibXML installed. B<Note>: This whole command currently is just a hack and will probably change in future versions of CPAN.pm, but the general approach will likely remain. B<Note>: See also L<smoke> =head2 recompile recompile() is a special command that takes no argument and runs the make/test/install cycle with brute force over all installed dynamically loadable extensions (a.k.a. XS modules) with 'force' in effect. The primary purpose of this command is to finish a network installation. Imagine you have a common source tree for two different architectures. You decide to do a completely independent fresh installation. You start on one architecture with the help of a Bundle file produced earlier. CPAN installs the whole Bundle for you, but when you try to repeat the job on the second architecture, CPAN responds with a C<"Foo up to date"> message for all modules. So you invoke CPAN's recompile on the second architecture and you're done. Another popular use for C<recompile> is to act as a rescue in case your perl breaks binary compatibility. If one of the modules that CPAN uses is in turn depending on binary compatibility (so you cannot run CPAN commands), then you should try the CPAN::Nox module for recovery. =head2 report Bundle|Distribution|Module The C<report> command temporarily turns on the C<test_report> config variable, then runs the C<force test> command with the given arguments. The C<force> pragma reruns the tests and repeats every step that might have failed before. =head2 smoke ***EXPERIMENTAL COMMAND*** B<*** WARNING: this command downloads and executes software from CPAN to your computer of completely unknown status. You should never do this with your normal account and better have a dedicated well separated and secured machine to do this. ***> The C<smoke> command takes the list of recent uploads to CPAN as provided by the C<recent> command and tests them all. While the command is running $SIG{INT} is defined to mean that the current item shall be skipped. B<Note>: This whole command currently is just a hack and will probably change in future versions of CPAN.pm, but the general approach will likely remain. B<Note>: See also L<recent> =head2 upgrade [Module|/Regexp/]... The C<upgrade> command first runs an C<r> command with the given arguments and then installs the newest versions of all modules that were listed by that. =head2 The four C<CPAN::*> Classes: Author, Bundle, Module, Distribution Although it may be considered internal, the class hierarchy does matter for both users and programmer. CPAN.pm deals with the four classes mentioned above, and those classes all share a set of methods. Classical single polymorphism is in effect. A metaclass object registers all objects of all kinds and indexes them with a string. The strings referencing objects have a separated namespace (well, not completely separated): Namespace Class words containing a "/" (slash) Distribution words starting with Bundle:: Bundle everything else Module or Author Modules know their associated Distribution objects. They always refer to the most recent official release. Developers may mark their releases as unstable development versions (by inserting an underscore into the module version number which will also be reflected in the distribution name when you run 'make dist'), so the really hottest and newest distribution is not always the default. If a module Foo circulates on CPAN in both version 1.23 and 1.23_90, CPAN.pm offers a convenient way to install version 1.23 by saying install Foo This would install the complete distribution file (say BAR/Foo-1.23.tar.gz) with all accompanying material. But if you would like to install version 1.23_90, you need to know where the distribution file resides on CPAN relative to the authors/id/ directory. If the author is BAR, this might be BAR/Foo-1.23_90.tar.gz; so you would have to say install BAR/Foo-1.23_90.tar.gz The first example will be driven by an object of the class CPAN::Module, the second by an object of class CPAN::Distribution. =head2 Integrating local directories Note: this feature is still in alpha state and may change in future versions of CPAN.pm Distribution objects are normally distributions from the CPAN, but there is a slightly degenerate case for Distribution objects, too, of projects held on the local disk. These distribution objects have the same name as the local directory and end with a dot. A dot by itself is also allowed for the current directory at the time CPAN.pm was used. All actions such as C<make>, C<test>, and C<install> are applied directly to that directory. This gives the command C<cpan .> an interesting touch: while the normal mantra of installing a CPAN module without CPAN.pm is one of perl Makefile.PL perl Build.PL ( go and get prerequisites ) make ./Build make test ./Build test make install ./Build install the command C<cpan .> does all of this at once. It figures out which of the two mantras is appropriate, fetches and installs all prerequisites, takes care of them recursively, and finally finishes the installation of the module in the current directory, be it a CPAN module or not. The typical usage case is for private modules or working copies of projects from remote repositories on the local disk. =head2 Redirection The usual shell redirection symbols C< | > and C<< > >> are recognized by the cpan shell B<only when surrounded by whitespace>. So piping to pager or redirecting output into a file works somewhat as in a normal shell, with the stipulation that you must type extra spaces. =head2 Plugin support ***EXPERIMENTAL*** Plugins are objects that implement any of currently eight methods: pre_get post_get pre_make post_make pre_test post_test pre_install post_install The C<plugin_list> configuration parameter holds a list of strings of the form Modulename=arg0,arg1,arg2,arg3,... eg: CPAN::Plugin::Flurb=dir,/opt/pkgs/flurb/raw,verbose,1 At run time, each listed plugin is instantiated as a singleton object by running the equivalent of this pseudo code: my $plugin = <string representation from config>; <generate Modulename and arguments from $plugin>; my $p = $instance{$plugin} ||= Modulename->new($arg0,$arg1,...); The generated singletons are kept around from instantiation until the end of the shell session. <plugin_list> can be reconfigured at any time at run time. While the cpan shell is running, it checks all activated plugins at each of the 8 reference points listed above and runs the respective method if it is implemented for that object. The method is called with the active CPAN::Distribution object passed in as an argument. =head1 CONFIGURATION When the CPAN module is used for the first time, a configuration dialogue tries to determine a couple of site specific options. The result of the dialog is stored in a hash reference C< $CPAN::Config > in a file CPAN/Config.pm. Default values defined in the CPAN/Config.pm file can be overridden in a user specific file: CPAN/MyConfig.pm. Such a file is best placed in C<$HOME/.cpan/CPAN/MyConfig.pm>, because C<$HOME/.cpan> is added to the search path of the CPAN module before the use() or require() statements. The mkmyconfig command writes this file for you. The C<o conf> command has various bells and whistles: =over =item completion support If you have a ReadLine module installed, you can hit TAB at any point of the commandline and C<o conf> will offer you completion for the built-in subcommands and/or config variable names. =item displaying some help: o conf help Displays a short help =item displaying current values: o conf [KEY] Displays the current value(s) for this config variable. Without KEY, displays all subcommands and config variables. Example: o conf shell If KEY starts and ends with a slash, the string in between is treated as a regular expression and only keys matching this regexp are displayed Example: o conf /color/ =item changing of scalar values: o conf KEY VALUE Sets the config variable KEY to VALUE. The empty string can be specified as usual in shells, with C<''> or C<""> Example: o conf wget /usr/bin/wget =item changing of list values: o conf KEY SHIFT|UNSHIFT|PUSH|POP|SPLICE|LIST If a config variable name ends with C<list>, it is a list. C<o conf KEY shift> removes the first element of the list, C<o conf KEY pop> removes the last element of the list. C<o conf KEYS unshift LIST> prepends a list of values to the list, C<o conf KEYS push LIST> appends a list of valued to the list. Likewise, C<o conf KEY splice LIST> passes the LIST to the corresponding splice command. Finally, any other list of arguments is taken as a new list value for the KEY variable discarding the previous value. Examples: o conf urllist unshift http://cpan.dev.local/CPAN o conf urllist splice 3 1 o conf urllist http://cpan1.local http://cpan2.local ftp://ftp.perl.org =item reverting to saved: o conf defaults Reverts all config variables to the state in the saved config file. =item saving the config: o conf commit Saves all config variables to the current config file (CPAN/Config.pm or CPAN/MyConfig.pm that was loaded at start). =back The configuration dialog can be started any time later again by issuing the command C< o conf init > in the CPAN shell. A subset of the configuration dialog can be run by issuing C<o conf init WORD> where WORD is any valid config variable or a regular expression. =head2 Config Variables The following keys in the hash reference $CPAN::Config are currently defined: allow_installing_module_downgrades allow or disallow installing module downgrades allow_installing_outdated_dists allow or disallow installing modules that are indexed in the cpan index pointing to a distro with a higher distro-version number applypatch path to external prg auto_commit commit all changes to config variables to disk build_cache size of cache for directories to build modules build_dir locally accessible directory to build modules build_dir_reuse boolean if distros in build_dir are persistent build_requires_install_policy to install or not to install when a module is only needed for building. yes|no|ask/yes|ask/no bzip2 path to external prg cache_metadata use serializer to cache metadata check_sigs if signatures should be verified cleanup_after_install remove build directory immediately after a successful install and remember that for the duration of the session colorize_debug Term::ANSIColor attributes for debugging output colorize_output boolean if Term::ANSIColor should colorize output colorize_print Term::ANSIColor attributes for normal output colorize_warn Term::ANSIColor attributes for warnings commandnumber_in_prompt boolean if you want to see current command number commands_quote preferred character to use for quoting external commands when running them. Defaults to double quote on Windows, single tick everywhere else; can be set to space to disable quoting connect_to_internet_ok whether to ask if opening a connection is ok before urllist is specified cpan_home local directory reserved for this package curl path to external prg dontload_hash DEPRECATED dontload_list arrayref: modules in the list will not be loaded by the CPAN::has_inst() routine ftp path to external prg ftp_passive if set, the environment variable FTP_PASSIVE is set for downloads ftp_proxy proxy host for ftp requests ftpstats_period max number of days to keep download statistics ftpstats_size max number of items to keep in the download statistics getcwd see below gpg path to external prg gzip location of external program gzip halt_on_failure stop processing after the first failure of queued items or dependencies histfile file to maintain history between sessions histsize maximum number of lines to keep in histfile http_proxy proxy host for http requests inactivity_timeout breaks interactive Makefile.PLs or Build.PLs after this many seconds inactivity. Set to 0 to disable timeouts. index_expire refetch index files after this many days inhibit_startup_message if true, suppress the startup message keep_source_where directory in which to keep the source (if we do) load_module_verbosity report loading of optional modules used by CPAN.pm lynx path to external prg make location of external make program make_arg arguments that should always be passed to 'make' make_install_make_command the make command for running 'make install', for example 'sudo make' make_install_arg same as make_arg for 'make install' makepl_arg arguments passed to 'perl Makefile.PL' mbuild_arg arguments passed to './Build' mbuild_install_arg arguments passed to './Build install' mbuild_install_build_command command to use instead of './Build' when we are in the install stage, for example 'sudo ./Build' mbuildpl_arg arguments passed to 'perl Build.PL' ncftp path to external prg ncftpget path to external prg no_proxy don't proxy to these hosts/domains (comma separated list) pager location of external program more (or any pager) password your password if you CPAN server wants one patch path to external prg patches_dir local directory containing patch files perl5lib_verbosity verbosity level for PERL5LIB additions plugin_list list of active hooks (see Plugin support above and the CPAN::Plugin module) prefer_external_tar per default all untar operations are done with Archive::Tar; by setting this variable to true the external tar command is used if available prefer_installer legal values are MB and EUMM: if a module comes with both a Makefile.PL and a Build.PL, use the former (EUMM) or the latter (MB); if the module comes with only one of the two, that one will be used no matter the setting prerequisites_policy what to do if you are missing module prerequisites ('follow' automatically, 'ask' me, or 'ignore') For 'follow', also sets PERL_AUTOINSTALL and PERL_EXTUTILS_AUTOINSTALL for "--defaultdeps" if not already set prefs_dir local directory to store per-distro build options proxy_user username for accessing an authenticating proxy proxy_pass password for accessing an authenticating proxy randomize_urllist add some randomness to the sequence of the urllist recommends_policy whether recommended prerequisites should be included scan_cache controls scanning of cache ('atstart', 'atexit' or 'never') shell your favorite shell show_unparsable_versions boolean if r command tells which modules are versionless show_upload_date boolean if commands should try to determine upload date show_zero_versions boolean if r command tells for which modules $version==0 suggests_policy whether suggested prerequisites should be included tar location of external program tar tar_verbosity verbosity level for the tar command term_is_latin deprecated: if true Unicode is translated to ISO-8859-1 (and nonsense for characters outside latin range) term_ornaments boolean to turn ReadLine ornamenting on/off test_report email test reports (if CPAN::Reporter is installed) trust_test_report_history skip testing when previously tested ok (according to CPAN::Reporter history) unzip location of external program unzip urllist arrayref to nearby CPAN sites (or equivalent locations) urllist_ping_external use external ping command when autoselecting mirrors urllist_ping_verbose increase verbosity when autoselecting mirrors use_prompt_default set PERL_MM_USE_DEFAULT for configure/make/test/install use_sqlite use CPAN::SQLite for metadata storage (fast and lean) username your username if you CPAN server wants one version_timeout stops version parsing after this many seconds. Default is 15 secs. Set to 0 to disable. wait_list arrayref to a wait server to try (See CPAN::WAIT) wget path to external prg yaml_load_code enable YAML code deserialisation via CPAN::DeferredCode yaml_module which module to use to read/write YAML files You can set and query each of these options interactively in the cpan shell with the C<o conf> or the C<o conf init> command as specified below. =over 2 =item C<o conf E<lt>scalar optionE<gt>> prints the current value of the I<scalar option> =item C<o conf E<lt>scalar optionE<gt> E<lt>valueE<gt>> Sets the value of the I<scalar option> to I<value> =item C<o conf E<lt>list optionE<gt>> prints the current value of the I<list option> in MakeMaker's neatvalue format. =item C<o conf E<lt>list optionE<gt> [shift|pop]> shifts or pops the array in the I<list option> variable =item C<o conf E<lt>list optionE<gt> [unshift|push|splice] E<lt>listE<gt>> works like the corresponding perl commands. =item interactive editing: o conf init [MATCH|LIST] Runs an interactive configuration dialog for matching variables. Without argument runs the dialog over all supported config variables. To specify a MATCH the argument must be enclosed by slashes. Examples: o conf init ftp_passive ftp_proxy o conf init /color/ Note: this method of setting config variables often provides more explanation about the functioning of a variable than the manpage. =back =head2 CPAN::anycwd($path): Note on config variable getcwd CPAN.pm changes the current working directory often and needs to determine its own current working directory. By default it uses Cwd::cwd, but if for some reason this doesn't work on your system, configure alternatives according to the following table: =over 4 =item cwd Calls Cwd::cwd =item getcwd Calls Cwd::getcwd =item fastcwd Calls Cwd::fastcwd =item getdcwd Calls Cwd::getdcwd =item backtickcwd Calls the external command cwd. =back =head2 Note on the format of the urllist parameter urllist parameters are URLs according to RFC 1738. We do a little guessing if your URL is not compliant, but if you have problems with C<file> URLs, please try the correct format. Either: file://localhost/whatever/ftp/pub/CPAN/ or file:///home/ftp/pub/CPAN/ =head2 The urllist parameter has CD-ROM support The C<urllist> parameter of the configuration table contains a list of URLs used for downloading. If the list contains any C<file> URLs, CPAN always tries there first. This feature is disabled for index files. So the recommendation for the owner of a CD-ROM with CPAN contents is: include your local, possibly outdated CD-ROM as a C<file> URL at the end of urllist, e.g. o conf urllist push file://localhost/CDROM/CPAN CPAN.pm will then fetch the index files from one of the CPAN sites that come at the beginning of urllist. It will later check for each module to see whether there is a local copy of the most recent version. Another peculiarity of urllist is that the site that we could successfully fetch the last file from automatically gets a preference token and is tried as the first site for the next request. So if you add a new site at runtime it may happen that the previously preferred site will be tried another time. This means that if you want to disallow a site for the next transfer, it must be explicitly removed from urllist. =head2 Maintaining the urllist parameter If you have YAML.pm (or some other YAML module configured in C<yaml_module>) installed, CPAN.pm collects a few statistical data about recent downloads. You can view the statistics with the C<hosts> command or inspect them directly by looking into the C<FTPstats.yml> file in your C<cpan_home> directory. To get some interesting statistics, it is recommended that C<randomize_urllist> be set; this introduces some amount of randomness into the URL selection. =head2 The C<requires> and C<build_requires> dependency declarations Since CPAN.pm version 1.88_51 modules declared as C<build_requires> by a distribution are treated differently depending on the config variable C<build_requires_install_policy>. By setting C<build_requires_install_policy> to C<no>, such a module is not installed. It is only built and tested, and then kept in the list of tested but uninstalled modules. As such, it is available during the build of the dependent module by integrating the path to the C<blib/arch> and C<blib/lib> directories in the environment variable PERL5LIB. If C<build_requires_install_policy> is set to C<yes>, then both modules declared as C<requires> and those declared as C<build_requires> are treated alike. By setting to C<ask/yes> or C<ask/no>, CPAN.pm asks the user and sets the default accordingly. =head2 Configuration of the allow_installing_* parameters The C<allow_installing_*> parameters are evaluated during the C<make> phase. If set to C<yes>, they allow the testing and the installation of the current distro and otherwise have no effect. If set to C<no>, they may abort the build (preventing testing and installing), depending on the contents of the C<blib/> directory. The C<blib/> directory is the directory that holds all the files that would usually be installed in the C<install> phase. C<allow_installing_outdated_dists> compares the C<blib/> directory with the CPAN index. If it finds something there that belongs, according to the index, to a different dist, it aborts the current build. C<allow_installing_module_downgrades> compares the C<blib/> directory with already installed modules, actually their version numbers, as determined by ExtUtils::MakeMaker or equivalent. If a to-be-installed module would downgrade an already installed module, the current build is aborted. An interesting twist occurs when a distroprefs document demands the installation of an outdated dist via goto while C<allow_installing_outdated_dists> forbids it. Without additional provisions, this would let the C<allow_installing_outdated_dists> win and the distroprefs lose. So the proper arrangement in such a case is to write a second distroprefs document for the distro that C<goto> points to and overrule the C<cpanconfig> there. E.g.: --- match: distribution: "^MAUKE/Keyword-Simple-0.04.tar.gz" goto: "MAUKE/Keyword-Simple-0.03.tar.gz" --- match: distribution: "^MAUKE/Keyword-Simple-0.03.tar.gz" cpanconfig: allow_installing_outdated_dists: yes =head2 Configuration for individual distributions (I<Distroprefs>) (B<Note:> This feature has been introduced in CPAN.pm 1.8854) Distributions on CPAN usually behave according to what we call the CPAN mantra. Or since the advent of Module::Build we should talk about two mantras: perl Makefile.PL perl Build.PL make ./Build make test ./Build test make install ./Build install But some modules cannot be built with this mantra. They try to get some extra data from the user via the environment, extra arguments, or interactively--thus disturbing the installation of large bundles like Phalanx100 or modules with many dependencies like Plagger. The distroprefs system of C<CPAN.pm> addresses this problem by allowing the user to specify extra informations and recipes in YAML files to either =over =item pass additional arguments to one of the four commands, =item set environment variables =item instantiate an Expect object that reads from the console, waits for some regular expressions and enters some answers =item temporarily override assorted C<CPAN.pm> configuration variables =item specify dependencies the original maintainer forgot =item disable the installation of an object altogether =back See the YAML and Data::Dumper files that come with the C<CPAN.pm> distribution in the C<distroprefs/> directory for examples. =head2 Filenames The YAML files themselves must have the C<.yml> extension; all other files are ignored (for two exceptions see I<Fallback Data::Dumper and Storable> below). The containing directory can be specified in C<CPAN.pm> in the C<prefs_dir> config variable. Try C<o conf init prefs_dir> in the CPAN shell to set and activate the distroprefs system. Every YAML file may contain arbitrary documents according to the YAML specification, and every document is treated as an entity that can specify the treatment of a single distribution. Filenames can be picked arbitrarily; C<CPAN.pm> always reads all files (in alphabetical order) and takes the key C<match> (see below in I<Language Specs>) as a hashref containing match criteria that determine if the current distribution matches the YAML document or not. =head2 Fallback Data::Dumper and Storable If neither your configured C<yaml_module> nor YAML.pm is installed, CPAN.pm falls back to using Data::Dumper and Storable and looks for files with the extensions C<.dd> or C<.st> in the C<prefs_dir> directory. These files are expected to contain one or more hashrefs. For Data::Dumper generated files, this is expected to be done with by defining C<$VAR1>, C<$VAR2>, etc. The YAML shell would produce these with the command ysh < somefile.yml > somefile.dd For Storable files the rule is that they must be constructed such that C<Storable::retrieve(file)> returns an array reference and the array elements represent one distropref object each. The conversion from YAML would look like so: perl -MYAML=LoadFile -MStorable=nstore -e ' @y=LoadFile(shift); nstore(\@y, shift)' somefile.yml somefile.st In bootstrapping situations it is usually sufficient to translate only a few YAML files to Data::Dumper for crucial modules like C<YAML::Syck>, C<YAML.pm> and C<Expect.pm>. If you prefer Storable over Data::Dumper, remember to pull out a Storable version that writes an older format than all the other Storable versions that will need to read them. =head2 Blueprint The following example contains all supported keywords and structures with the exception of C<eexpect> which can be used instead of C<expect>. --- comment: "Demo" match: module: "Dancing::Queen" distribution: "^CHACHACHA/Dancing-" not_distribution: "\.zip$" perl: "/usr/local/cariba-perl/bin/perl" perlconfig: archname: "freebsd" not_cc: "gcc" env: DANCING_FLOOR: "Shubiduh" disabled: 1 cpanconfig: make: gmake pl: args: - "--somearg=specialcase" env: {} expect: - "Which is your favorite fruit" - "apple\n" make: args: - all - extra-all env: {} expect: [] commandline: "echo SKIPPING make" test: args: [] env: {} expect: [] install: args: [] env: WANT_TO_INSTALL: YES expect: - "Do you really want to install" - "y\n" patches: - "ABCDE/Fedcba-3.14-ABCDE-01.patch" depends: configure_requires: LWP: 5.8 build_requires: Test::Exception: 0.25 requires: Spiffy: 0.30 =head2 Language Specs Every YAML document represents a single hash reference. The valid keys in this hash are as follows: =over =item comment [scalar] A comment =item cpanconfig [hash] Temporarily override assorted C<CPAN.pm> configuration variables. Supported are: C<build_requires_install_policy>, C<check_sigs>, C<make>, C<make_install_make_command>, C<prefer_installer>, C<test_report>. Please report as a bug when you need another one supported. =item depends [hash] *** EXPERIMENTAL FEATURE *** All three types, namely C<configure_requires>, C<build_requires>, and C<requires> are supported in the way specified in the META.yml specification. The current implementation I<merges> the specified dependencies with those declared by the package maintainer. In a future implementation this may be changed to override the original declaration. =item disabled [boolean] Specifies that this distribution shall not be processed at all. =item features [array] *** EXPERIMENTAL FEATURE *** Experimental implementation to deal with optional_features from META.yml. Still needs coordination with installer software and currently works only for META.yml declaring C<dynamic_config=0>. Use with caution. =item goto [string] The canonical name of a delegate distribution to install instead. Useful when a new version, although it tests OK itself, breaks something else or a developer release or a fork is already uploaded that is better than the last released version. =item install [hash] Processing instructions for the C<make install> or C<./Build install> phase of the CPAN mantra. See below under I<Processing Instructions>. =item make [hash] Processing instructions for the C<make> or C<./Build> phase of the CPAN mantra. See below under I<Processing Instructions>. =item match [hash] A hashref with one or more of the keys C<distribution>, C<module>, C<perl>, C<perlconfig>, and C<env> that specify whether a document is targeted at a specific CPAN distribution or installation. Keys prefixed with C<not_> negates the corresponding match. The corresponding values are interpreted as regular expressions. The C<distribution> related one will be matched against the canonical distribution name, e.g. "AUTHOR/Foo-Bar-3.14.tar.gz". The C<module> related one will be matched against I<all> modules contained in the distribution until one module matches. The C<perl> related one will be matched against C<$^X> (but with the absolute path). The value associated with C<perlconfig> is itself a hashref that is matched against corresponding values in the C<%Config::Config> hash living in the C<Config.pm> module. Keys prefixed with C<not_> negates the corresponding match. The value associated with C<env> is itself a hashref that is matched against corresponding values in the C<%ENV> hash. Keys prefixed with C<not_> negates the corresponding match. If more than one restriction of C<module>, C<distribution>, etc. is specified, the results of the separately computed match values must all match. If so, the hashref represented by the YAML document is returned as the preference structure for the current distribution. =item patches [array] An array of patches on CPAN or on the local disk to be applied in order via an external patch program. If the value for the C<-p> parameter is C<0> or C<1> is determined by reading the patch beforehand. The path to each patch is either an absolute path on the local filesystem or relative to a patch directory specified in the C<patches_dir> configuration variable or in the format of a canonical distro name. For examples please consult the distroprefs/ directory in the CPAN.pm distribution (these examples are not installed by default). Note: if the C<applypatch> program is installed and C<CPAN::Config> knows about it B<and> a patch is written by the C<makepatch> program, then C<CPAN.pm> lets C<applypatch> apply the patch. Both C<makepatch> and C<applypatch> are available from CPAN in the C<JV/makepatch-*> distribution. =item pl [hash] Processing instructions for the C<perl Makefile.PL> or C<perl Build.PL> phase of the CPAN mantra. See below under I<Processing Instructions>. =item test [hash] Processing instructions for the C<make test> or C<./Build test> phase of the CPAN mantra. See below under I<Processing Instructions>. =back =head2 Processing Instructions =over =item args [array] Arguments to be added to the command line =item commandline A full commandline to run via C<system()>. During execution, the environment variable PERL is set to $^X (but with an absolute path). If C<commandline> is specified, C<args> is not used. =item eexpect [hash] Extended C<expect>. This is a hash reference with four allowed keys, C<mode>, C<timeout>, C<reuse>, and C<talk>. You must install the C<Expect> module to use C<eexpect>. CPAN.pm does not install it for you. C<mode> may have the values C<deterministic> for the case where all questions come in the order written down and C<anyorder> for the case where the questions may come in any order. The default mode is C<deterministic>. C<timeout> denotes a timeout in seconds. Floating-point timeouts are OK. With C<mode=deterministic>, the timeout denotes the timeout per question; with C<mode=anyorder> it denotes the timeout per byte received from the stream or questions. C<talk> is a reference to an array that contains alternating questions and answers. Questions are regular expressions and answers are literal strings. The Expect module watches the stream from the execution of the external program (C<perl Makefile.PL>, C<perl Build.PL>, C<make>, etc.). For C<mode=deterministic>, the CPAN.pm injects the corresponding answer as soon as the stream matches the regular expression. For C<mode=anyorder> CPAN.pm answers a question as soon as the timeout is reached for the next byte in the input stream. In this mode you can use the C<reuse> parameter to decide what will happen with a question-answer pair after it has been used. In the default case (reuse=0) it is removed from the array, avoiding being used again accidentally. If you want to answer the question C<Do you really want to do that> several times, then it must be included in the array at least as often as you want this answer to be given. Setting the parameter C<reuse> to 1 makes this repetition unnecessary. =item env [hash] Environment variables to be set during the command =item expect [array] You must install the C<Expect> module to use C<expect>. CPAN.pm does not install it for you. C<< expect: <array> >> is a short notation for this C<eexpect>: eexpect: mode: deterministic timeout: 15 talk: <array> =back =head2 Schema verification with C<Kwalify> If you have the C<Kwalify> module installed (which is part of the Bundle::CPANxxl), then all your distroprefs files are checked for syntactic correctness. =head2 Example Distroprefs Files C<CPAN.pm> comes with a collection of example YAML files. Note that these are really just examples and should not be used without care because they cannot fit everybody's purpose. After all, the authors of the packages that ask questions had a need to ask, so you should watch their questions and adjust the examples to your environment and your needs. You have been warned:-) =head1 PROGRAMMER'S INTERFACE If you do not enter the shell, shell commands are available both as methods (C<CPAN::Shell-E<gt>install(...)>) and as functions in the calling package (C<install(...)>). Before calling low-level commands, it makes sense to initialize components of CPAN you need, e.g.: CPAN::HandleConfig->load; CPAN::Shell::setup_output; CPAN::Index->reload; High-level commands do such initializations automatically. There's currently only one class that has a stable interface - CPAN::Shell. All commands that are available in the CPAN shell are methods of the class CPAN::Shell. The arguments on the commandline are passed as arguments to the method. So if you take for example the shell command notest install A B C the actually executed command is CPAN::Shell->notest("install","A","B","C"); Each of the commands that produce listings of modules (C<r>, C<autobundle>, C<u>) also return a list of the IDs of all modules within the list. =over 2 =item expand($type,@things) The IDs of all objects available within a program are strings that can be expanded to the corresponding real objects with the C<CPAN::Shell-E<gt>expand("Module",@things)> method. Expand returns a list of CPAN::Module objects according to the C<@things> arguments given. In scalar context, it returns only the first element of the list. =item expandany(@things) Like expand, but returns objects of the appropriate type, i.e. CPAN::Bundle objects for bundles, CPAN::Module objects for modules, and CPAN::Distribution objects for distributions. Note: it does not expand to CPAN::Author objects. =item Programming Examples This enables the programmer to do operations that combine functionalities that are available in the shell. # install everything that is outdated on my disk: perl -MCPAN -e 'CPAN::Shell->install(CPAN::Shell->r)' # install my favorite programs if necessary: for $mod (qw(Net::FTP Digest::SHA Data::Dumper)) { CPAN::Shell->install($mod); } # list all modules on my disk that have no VERSION number for $mod (CPAN::Shell->expand("Module","/./")) { next unless $mod->inst_file; # MakeMaker convention for undefined $VERSION: next unless $mod->inst_version eq "undef"; print "No VERSION in ", $mod->id, "\n"; } # find out which distribution on CPAN contains a module: print CPAN::Shell->expand("Module","Apache::Constants")->cpan_file Or if you want to schedule a I<cron> job to watch CPAN, you could list all modules that need updating. First a quick and dirty way: perl -e 'use CPAN; CPAN::Shell->r;' If you don't want any output should all modules be up to date, parse the output of above command for the regular expression C</modules are up to date/> and decide to mail the output only if it doesn't match. If you prefer to do it more in a programmerish style in one single process, something like this may better suit you: # list all modules on my disk that have newer versions on CPAN for $mod (CPAN::Shell->expand("Module","/./")) { next unless $mod->inst_file; next if $mod->uptodate; printf "Module %s is installed as %s, could be updated to %s from CPAN\n", $mod->id, $mod->inst_version, $mod->cpan_version; } If that gives too much output every day, you may want to watch only for three modules. You can write for $mod (CPAN::Shell->expand("Module","/Apache|LWP|CGI/")) { as the first line instead. Or you can combine some of the above tricks: # watch only for a new mod_perl module $mod = CPAN::Shell->expand("Module","mod_perl"); exit if $mod->uptodate; # new mod_perl arrived, let me know all update recommendations CPAN::Shell->r; =back =head2 Methods in the other Classes =over 4 =item CPAN::Author::as_glimpse() Returns a one-line description of the author =item CPAN::Author::as_string() Returns a multi-line description of the author =item CPAN::Author::email() Returns the author's email address =item CPAN::Author::fullname() Returns the author's name =item CPAN::Author::name() An alias for fullname =item CPAN::Bundle::as_glimpse() Returns a one-line description of the bundle =item CPAN::Bundle::as_string() Returns a multi-line description of the bundle =item CPAN::Bundle::clean() Recursively runs the C<clean> method on all items contained in the bundle. =item CPAN::Bundle::contains() Returns a list of objects' IDs contained in a bundle. The associated objects may be bundles, modules or distributions. =item CPAN::Bundle::force($method,@args) Forces CPAN to perform a task that it normally would have refused to do. Force takes as arguments a method name to be called and any number of additional arguments that should be passed to the called method. The internals of the object get the needed changes so that CPAN.pm does not refuse to take the action. The C<force> is passed recursively to all contained objects. See also the section above on the C<force> and the C<fforce> pragma. =item CPAN::Bundle::get() Recursively runs the C<get> method on all items contained in the bundle =item CPAN::Bundle::inst_file() Returns the highest installed version of the bundle in either @INC or C<< $CPAN::Config->{cpan_home} >>. Note that this is different from CPAN::Module::inst_file. =item CPAN::Bundle::inst_version() Like CPAN::Bundle::inst_file, but returns the $VERSION =item CPAN::Bundle::uptodate() Returns 1 if the bundle itself and all its members are up-to-date. =item CPAN::Bundle::install() Recursively runs the C<install> method on all items contained in the bundle =item CPAN::Bundle::make() Recursively runs the C<make> method on all items contained in the bundle =item CPAN::Bundle::readme() Recursively runs the C<readme> method on all items contained in the bundle =item CPAN::Bundle::test() Recursively runs the C<test> method on all items contained in the bundle =item CPAN::Distribution::as_glimpse() Returns a one-line description of the distribution =item CPAN::Distribution::as_string() Returns a multi-line description of the distribution =item CPAN::Distribution::author Returns the CPAN::Author object of the maintainer who uploaded this distribution =item CPAN::Distribution::pretty_id() Returns a string of the form "AUTHORID/TARBALL", where AUTHORID is the author's PAUSE ID and TARBALL is the distribution filename. =item CPAN::Distribution::base_id() Returns the distribution filename without any archive suffix. E.g "Foo-Bar-0.01" =item CPAN::Distribution::clean() Changes to the directory where the distribution has been unpacked and runs C<make clean> there. =item CPAN::Distribution::containsmods() Returns a list of IDs of modules contained in a distribution file. Works only for distributions listed in the 02packages.details.txt.gz file. This typically means that just most recent version of a distribution is covered. =item CPAN::Distribution::cvs_import() Changes to the directory where the distribution has been unpacked and runs something like cvs -d $cvs_root import -m $cvs_log $cvs_dir $userid v$version there. =item CPAN::Distribution::dir() Returns the directory into which this distribution has been unpacked. =item CPAN::Distribution::force($method,@args) Forces CPAN to perform a task that it normally would have refused to do. Force takes as arguments a method name to be called and any number of additional arguments that should be passed to the called method. The internals of the object get the needed changes so that CPAN.pm does not refuse to take the action. See also the section above on the C<force> and the C<fforce> pragma. =item CPAN::Distribution::get() Downloads the distribution from CPAN and unpacks it. Does nothing if the distribution has already been downloaded and unpacked within the current session. =item CPAN::Distribution::install() Changes to the directory where the distribution has been unpacked and runs the external command C<make install> there. If C<make> has not yet been run, it will be run first. A C<make test> is issued in any case and if this fails, the install is cancelled. The cancellation can be avoided by letting C<force> run the C<install> for you. This install method only has the power to install the distribution if there are no dependencies in the way. To install an object along with all its dependencies, use CPAN::Shell->install. Note that install() gives no meaningful return value. See uptodate(). =item CPAN::Distribution::isa_perl() Returns 1 if this distribution file seems to be a perl distribution. Normally this is derived from the file name only, but the index from CPAN can contain a hint to achieve a return value of true for other filenames too. =item CPAN::Distribution::look() Changes to the directory where the distribution has been unpacked and opens a subshell there. Exiting the subshell returns. =item CPAN::Distribution::make() First runs the C<get> method to make sure the distribution is downloaded and unpacked. Changes to the directory where the distribution has been unpacked and runs the external commands C<perl Makefile.PL> or C<perl Build.PL> and C<make> there. =item CPAN::Distribution::perldoc() Downloads the pod documentation of the file associated with a distribution (in HTML format) and runs it through the external command I<lynx> specified in C<< $CPAN::Config->{lynx} >>. If I<lynx> isn't available, it converts it to plain text with the external command I<html2text> and runs it through the pager specified in C<< $CPAN::Config->{pager} >>. =item CPAN::Distribution::prefs() Returns the hash reference from the first matching YAML file that the user has deposited in the C<prefs_dir/> directory. The first succeeding match wins. The files in the C<prefs_dir/> are processed alphabetically, and the canonical distro name (e.g. AUTHOR/Foo-Bar-3.14.tar.gz) is matched against the regular expressions stored in the $root->{match}{distribution} attribute value. Additionally all module names contained in a distribution are matched against the regular expressions in the $root->{match}{module} attribute value. The two match values are ANDed together. Each of the two attributes are optional. =item CPAN::Distribution::prereq_pm() Returns the hash reference that has been announced by a distribution as the C<requires> and C<build_requires> elements. These can be declared either by the C<META.yml> (if authoritative) or can be deposited after the run of C<Build.PL> in the file C<./_build/prereqs> or after the run of C<Makfile.PL> written as the C<PREREQ_PM> hash in a comment in the produced C<Makefile>. I<Note>: this method only works after an attempt has been made to C<make> the distribution. Returns undef otherwise. =item CPAN::Distribution::readme() Downloads the README file associated with a distribution and runs it through the pager specified in C<< $CPAN::Config->{pager} >>. =item CPAN::Distribution::reports() Downloads report data for this distribution from www.cpantesters.org and displays a subset of them. =item CPAN::Distribution::read_yaml() Returns the content of the META.yml of this distro as a hashref. Note: works only after an attempt has been made to C<make> the distribution. Returns undef otherwise. Also returns undef if the content of META.yml is not authoritative. (The rules about what exactly makes the content authoritative are still in flux.) =item CPAN::Distribution::test() Changes to the directory where the distribution has been unpacked and runs C<make test> there. =item CPAN::Distribution::uptodate() Returns 1 if all the modules contained in the distribution are up-to-date. Relies on containsmods. =item CPAN::Index::force_reload() Forces a reload of all indices. =item CPAN::Index::reload() Reloads all indices if they have not been read for more than C<< $CPAN::Config->{index_expire} >> days. =item CPAN::InfoObj::dump() CPAN::Author, CPAN::Bundle, CPAN::Module, and CPAN::Distribution inherit this method. It prints the data structure associated with an object. Useful for debugging. Note: the data structure is considered internal and thus subject to change without notice. =item CPAN::Module::as_glimpse() Returns a one-line description of the module in four columns: The first column contains the word C<Module>, the second column consists of one character: an equals sign if this module is already installed and up-to-date, a less-than sign if this module is installed but can be upgraded, and a space if the module is not installed. The third column is the name of the module and the fourth column gives maintainer or distribution information. =item CPAN::Module::as_string() Returns a multi-line description of the module =item CPAN::Module::clean() Runs a clean on the distribution associated with this module. =item CPAN::Module::cpan_file() Returns the filename on CPAN that is associated with the module. =item CPAN::Module::cpan_version() Returns the latest version of this module available on CPAN. =item CPAN::Module::cvs_import() Runs a cvs_import on the distribution associated with this module. =item CPAN::Module::description() Returns a 44 character description of this module. Only available for modules listed in The Module List (CPAN/modules/00modlist.long.html or 00modlist.long.txt.gz) =item CPAN::Module::distribution() Returns the CPAN::Distribution object that contains the current version of this module. =item CPAN::Module::dslip_status() Returns a hash reference. The keys of the hash are the letters C<D>, C<S>, C<L>, C<I>, and <P>, for development status, support level, language, interface and public licence respectively. The data for the DSLIP status are collected by pause.perl.org when authors register their namespaces. The values of the 5 hash elements are one-character words whose meaning is described in the table below. There are also 5 hash elements C<DV>, C<SV>, C<LV>, C<IV>, and <PV> that carry a more verbose value of the 5 status variables. Where the 'DSLIP' characters have the following meanings: D - Development Stage (Note: *NO IMPLIED TIMESCALES*): i - Idea, listed to gain consensus or as a placeholder c - under construction but pre-alpha (not yet released) a/b - Alpha/Beta testing R - Released M - Mature (no rigorous definition) S - Standard, supplied with Perl 5 S - Support Level: m - Mailing-list d - Developer u - Usenet newsgroup comp.lang.perl.modules n - None known, try comp.lang.perl.modules a - abandoned; volunteers welcome to take over maintenance L - Language Used: p - Perl-only, no compiler needed, should be platform independent c - C and perl, a C compiler will be needed h - Hybrid, written in perl with optional C code, no compiler needed + - C++ and perl, a C++ compiler will be needed o - perl and another language other than C or C++ I - Interface Style f - plain Functions, no references used h - hybrid, object and function interfaces available n - no interface at all (huh?) r - some use of unblessed References or ties O - Object oriented using blessed references and/or inheritance P - Public License p - Standard-Perl: user may choose between GPL and Artistic g - GPL: GNU General Public License l - LGPL: "GNU Lesser General Public License" (previously known as "GNU Library General Public License") b - BSD: The BSD License a - Artistic license alone 2 - Artistic license 2.0 or later o - open source: approved by www.opensource.org d - allows distribution without restrictions r - restricted distribution n - no license at all =item CPAN::Module::force($method,@args) Forces CPAN to perform a task it would normally refuse to do. Force takes as arguments a method name to be invoked and any number of additional arguments to pass that method. The internals of the object get the needed changes so that CPAN.pm does not refuse to take the action. See also the section above on the C<force> and the C<fforce> pragma. =item CPAN::Module::get() Runs a get on the distribution associated with this module. =item CPAN::Module::inst_file() Returns the filename of the module found in @INC. The first file found is reported, just as perl itself stops searching @INC once it finds a module. =item CPAN::Module::available_file() Returns the filename of the module found in PERL5LIB or @INC. The first file found is reported. The advantage of this method over C<inst_file> is that modules that have been tested but not yet installed are included because PERL5LIB keeps track of tested modules. =item CPAN::Module::inst_version() Returns the version number of the installed module in readable format. =item CPAN::Module::available_version() Returns the version number of the available module in readable format. =item CPAN::Module::install() Runs an C<install> on the distribution associated with this module. =item CPAN::Module::look() Changes to the directory where the distribution associated with this module has been unpacked and opens a subshell there. Exiting the subshell returns. =item CPAN::Module::make() Runs a C<make> on the distribution associated with this module. =item CPAN::Module::manpage_headline() If module is installed, peeks into the module's manpage, reads the headline, and returns it. Moreover, if the module has been downloaded within this session, does the equivalent on the downloaded module even if it hasn't been installed yet. =item CPAN::Module::perldoc() Runs a C<perldoc> on this module. =item CPAN::Module::readme() Runs a C<readme> on the distribution associated with this module. =item CPAN::Module::reports() Calls the reports() method on the associated distribution object. =item CPAN::Module::test() Runs a C<test> on the distribution associated with this module. =item CPAN::Module::uptodate() Returns 1 if the module is installed and up-to-date. =item CPAN::Module::userid() Returns the author's ID of the module. =back =head2 Cache Manager Currently the cache manager only keeps track of the build directory ($CPAN::Config->{build_dir}). It is a simple FIFO mechanism that deletes complete directories below C<build_dir> as soon as the size of all directories there gets bigger than $CPAN::Config->{build_cache} (in MB). The contents of this cache may be used for later re-installations that you intend to do manually, but will never be trusted by CPAN itself. This is due to the fact that the user might use these directories for building modules on different architectures. There is another directory ($CPAN::Config->{keep_source_where}) where the original distribution files are kept. This directory is not covered by the cache manager and must be controlled by the user. If you choose to have the same directory as build_dir and as keep_source_where directory, then your sources will be deleted with the same fifo mechanism. =head2 Bundles A bundle is just a perl module in the namespace Bundle:: that does not define any functions or methods. It usually only contains documentation. It starts like a perl module with a package declaration and a $VERSION variable. After that the pod section looks like any other pod with the only difference being that I<one special pod section> exists starting with (verbatim): =head1 CONTENTS In this pod section each line obeys the format Module_Name [Version_String] [- optional text] The only required part is the first field, the name of a module (e.g. Foo::Bar, i.e. I<not> the name of the distribution file). The rest of the line is optional. The comment part is delimited by a dash just as in the man page header. The distribution of a bundle should follow the same convention as other distributions. Bundles are treated specially in the CPAN package. If you say 'install Bundle::Tkkit' (assuming such a bundle exists), CPAN will install all the modules in the CONTENTS section of the pod. You can install your own Bundles locally by placing a conformant Bundle file somewhere into your @INC path. The autobundle() command which is available in the shell interface does that for you by including all currently installed modules in a snapshot bundle file. =head1 PREREQUISITES The CPAN program is trying to depend on as little as possible so the user can use it in hostile environment. It works better the more goodies the environment provides. For example if you try in the CPAN shell install Bundle::CPAN or install Bundle::CPANxxl you will find the shell more convenient than the bare shell before. If you have a local mirror of CPAN and can access all files with "file:" URLs, then you only need a perl later than perl5.003 to run this module. Otherwise Net::FTP is strongly recommended. LWP may be required for non-UNIX systems, or if your nearest CPAN site is associated with a URL that is not C<ftp:>. If you have neither Net::FTP nor LWP, there is a fallback mechanism implemented for an external ftp command or for an external lynx command. =head1 UTILITIES =head2 Finding packages and VERSION This module presumes that all packages on CPAN =over 2 =item * declare their $VERSION variable in an easy to parse manner. This prerequisite can hardly be relaxed because it consumes far too much memory to load all packages into the running program just to determine the $VERSION variable. Currently all programs that are dealing with version use something like this perl -MExtUtils::MakeMaker -le \ 'print MM->parse_version(shift)' filename If you are author of a package and wonder if your $VERSION can be parsed, please try the above method. =item * come as compressed or gzipped tarfiles or as zip files and contain a C<Makefile.PL> or C<Build.PL> (well, we try to handle a bit more, but with little enthusiasm). =back =head2 Debugging Debugging this module is more than a bit complex due to interference from the software producing the indices on CPAN, the mirroring process on CPAN, packaging, configuration, synchronicity, and even (gasp!) due to bugs within the CPAN.pm module itself. For debugging the code of CPAN.pm itself in interactive mode, some debugging aid can be turned on for most packages within CPAN.pm with one of =over 2 =item o debug package... sets debug mode for packages. =item o debug -package... unsets debug mode for packages. =item o debug all turns debugging on for all packages. =item o debug number =back which sets the debugging packages directly. Note that C<o debug 0> turns debugging off. What seems a successful strategy is the combination of C<reload cpan> and the debugging switches. Add a new debug statement while running in the shell and then issue a C<reload cpan> and see the new debugging messages immediately without losing the current context. C<o debug> without an argument lists the valid package names and the current set of packages in debugging mode. C<o debug> has built-in completion support. For debugging of CPAN data there is the C<dump> command which takes the same arguments as make/test/install and outputs each object's Data::Dumper dump. If an argument looks like a perl variable and contains one of C<$>, C<@> or C<%>, it is eval()ed and fed to Data::Dumper directly. =head2 Floppy, Zip, Offline Mode CPAN.pm works nicely without network access, too. If you maintain machines that are not networked at all, you should consider working with C<file:> URLs. You'll have to collect your modules somewhere first. So you might use CPAN.pm to put together all you need on a networked machine. Then copy the $CPAN::Config->{keep_source_where} (but not $CPAN::Config->{build_dir}) directory on a floppy. This floppy is kind of a personal CPAN. CPAN.pm on the non-networked machines works nicely with this floppy. See also below the paragraph about CD-ROM support. =head2 Basic Utilities for Programmers =over 2 =item has_inst($module) Returns true if the module is installed. Used to load all modules into the running CPAN.pm that are considered optional. The config variable C<dontload_list> intercepts the C<has_inst()> call such that an optional module is not loaded despite being available. For example, the following command will prevent C<YAML.pm> from being loaded: cpan> o conf dontload_list push YAML See the source for details. =item use_inst($module) Similary to L<has_inst()> tries to load optional library but also dies if library is not available =item has_usable($module) Returns true if the module is installed and in a usable state. Only useful for a handful of modules that are used internally. See the source for details. =item instance($module) The constructor for all the singletons used to represent modules, distributions, authors, and bundles. If the object already exists, this method returns the object; otherwise, it calls the constructor. =item frontend() =item frontend($new_frontend) Getter/setter for frontend object. Method just allows to subclass CPAN.pm. =back =head1 SECURITY There's no strong security layer in CPAN.pm. CPAN.pm helps you to install foreign, unmasked, unsigned code on your machine. We compare to a checksum that comes from the net just as the distribution file itself. But we try to make it easy to add security on demand: =head2 Cryptographically signed modules Since release 1.77, CPAN.pm has been able to verify cryptographically signed module distributions using Module::Signature. The CPAN modules can be signed by their authors, thus giving more security. The simple unsigned MD5 checksums that were used before by CPAN protect mainly against accidental file corruption. You will need to have Module::Signature installed, which in turn requires that you have at least one of Crypt::OpenPGP module or the command-line F<gpg> tool installed. You will also need to be able to connect over the Internet to the public key servers, like pgp.mit.edu, and their port 11731 (the HKP protocol). The configuration parameter check_sigs is there to turn signature checking on or off. =head1 EXPORT Most functions in package CPAN are exported by default. The reason for this is that the primary use is intended for the cpan shell or for one-liners. =head1 ENVIRONMENT When the CPAN shell enters a subshell via the look command, it sets the environment CPAN_SHELL_LEVEL to 1, or increments that variable if it is already set. When CPAN runs, it sets the environment variable PERL5_CPAN_IS_RUNNING to the ID of the running process. It also sets PERL5_CPANPLUS_IS_RUNNING to prevent runaway processes which could happen with older versions of Module::Install. When running C<perl Makefile.PL>, the environment variable C<PERL5_CPAN_IS_EXECUTING> is set to the full path of the C<Makefile.PL> that is being executed. This prevents runaway processes with newer versions of Module::Install. When the config variable ftp_passive is set, all downloads will be run with the environment variable FTP_PASSIVE set to this value. This is in general a good idea as it influences both Net::FTP and LWP based connections. The same effect can be achieved by starting the cpan shell with this environment variable set. For Net::FTP alone, one can also always set passive mode by running libnetcfg. =head1 POPULATE AN INSTALLATION WITH LOTS OF MODULES Populating a freshly installed perl with one's favorite modules is pretty easy if you maintain a private bundle definition file. To get a useful blueprint of a bundle definition file, the command autobundle can be used on the CPAN shell command line. This command writes a bundle definition file for all modules installed for the current perl interpreter. It's recommended to run this command once only, and from then on maintain the file manually under a private name, say Bundle/my_bundle.pm. With a clever bundle file you can then simply say cpan> install Bundle::my_bundle then answer a few questions and go out for coffee (possibly even in a different city). Maintaining a bundle definition file means keeping track of two things: dependencies and interactivity. CPAN.pm sometimes fails on calculating dependencies because not all modules define all MakeMaker attributes correctly, so a bundle definition file should specify prerequisites as early as possible. On the other hand, it's annoying that so many distributions need some interactive configuring. So what you can try to accomplish in your private bundle file is to have the packages that need to be configured early in the file and the gentle ones later, so you can go out for coffee after a few minutes and leave CPAN.pm to churn away unattended. =head1 WORKING WITH CPAN.pm BEHIND FIREWALLS Thanks to Graham Barr for contributing the following paragraphs about the interaction between perl, and various firewall configurations. For further information on firewalls, it is recommended to consult the documentation that comes with the I<ncftp> program. If you are unable to go through the firewall with a simple Perl setup, it is likely that you can configure I<ncftp> so that it works through your firewall. =head2 Three basic types of firewalls Firewalls can be categorized into three basic types. =over 4 =item http firewall This is when the firewall machine runs a web server, and to access the outside world, you must do so via that web server. If you set environment variables like http_proxy or ftp_proxy to values beginning with http://, or in your web browser you've proxy information set, then you know you are running behind an http firewall. To access servers outside these types of firewalls with perl (even for ftp), you need LWP or HTTP::Tiny. =item ftp firewall This where the firewall machine runs an ftp server. This kind of firewall will only let you access ftp servers outside the firewall. This is usually done by connecting to the firewall with ftp, then entering a username like "user@outside.host.com". To access servers outside these type of firewalls with perl, you need Net::FTP. =item One-way visibility One-way visibility means these firewalls try to make themselves invisible to users inside the firewall. An FTP data connection is normally created by sending your IP address to the remote server and then listening for the return connection. But the remote server will not be able to connect to you because of the firewall. For these types of firewall, FTP connections need to be done in a passive mode. There are two that I can think off. =over 4 =item SOCKS If you are using a SOCKS firewall, you will need to compile perl and link it with the SOCKS library. This is what is normally called a 'socksified' perl. With this executable you will be able to connect to servers outside the firewall as if it were not there. =item IP Masquerade This is when the firewall implemented in the kernel (via NAT, or networking address translation), it allows you to hide a complete network behind one IP address. With this firewall no special compiling is needed as you can access hosts directly. For accessing ftp servers behind such firewalls you usually need to set the environment variable C<FTP_PASSIVE> or the config variable ftp_passive to a true value. =back =back =head2 Configuring lynx or ncftp for going through a firewall If you can go through your firewall with e.g. lynx, presumably with a command such as /usr/local/bin/lynx -pscott:tiger then you would configure CPAN.pm with the command o conf lynx "/usr/local/bin/lynx -pscott:tiger" That's all. Similarly for ncftp or ftp, you would configure something like o conf ncftp "/usr/bin/ncftp -f /home/scott/ncftplogin.cfg" Your mileage may vary... =head1 FAQ =over 4 =item 1) I installed a new version of module X but CPAN keeps saying, I have the old version installed Probably you B<do> have the old version installed. This can happen if a module installs itself into a different directory in the @INC path than it was previously installed. This is not really a CPAN.pm problem, you would have the same problem when installing the module manually. The easiest way to prevent this behaviour is to add the argument C<UNINST=1> to the C<make install> call, and that is why many people add this argument permanently by configuring o conf make_install_arg UNINST=1 =item 2) So why is UNINST=1 not the default? Because there are people who have their precise expectations about who may install where in the @INC path and who uses which @INC array. In fine tuned environments C<UNINST=1> can cause damage. =item 3) I want to clean up my mess, and install a new perl along with all modules I have. How do I go about it? Run the autobundle command for your old perl and optionally rename the resulting bundle file (e.g. Bundle/mybundle.pm), install the new perl with the Configure option prefix, e.g. ./Configure -Dprefix=/usr/local/perl-5.6.78.9 Install the bundle file you produced in the first step with something like cpan> install Bundle::mybundle and you're done. =item 4) When I install bundles or multiple modules with one command there is too much output to keep track of. You may want to configure something like o conf make_arg "| tee -ai /root/.cpan/logs/make.out" o conf make_install_arg "| tee -ai /root/.cpan/logs/make_install.out" so that STDOUT is captured in a file for later inspection. =item 5) I am not root, how can I install a module in a personal directory? As of CPAN 1.9463, if you do not have permission to write the default perl library directories, CPAN's configuration process will ask you whether you want to bootstrap <local::lib>, which makes keeping a personal perl library directory easy. Another thing you should bear in mind is that the UNINST parameter can be dangerous when you are installing into a private area because you might accidentally remove modules that other people depend on that are not using the private area. =item 6) How to get a package, unwrap it, and make a change before building it? Have a look at the C<look> (!) command. =item 7) I installed a Bundle and had a couple of fails. When I retried, everything resolved nicely. Can this be fixed to work on first try? The reason for this is that CPAN does not know the dependencies of all modules when it starts out. To decide about the additional items to install, it just uses data found in the META.yml file or the generated Makefile. An undetected missing piece breaks the process. But it may well be that your Bundle installs some prerequisite later than some depending item and thus your second try is able to resolve everything. Please note, CPAN.pm does not know the dependency tree in advance and cannot sort the queue of things to install in a topologically correct order. It resolves perfectly well B<if> all modules declare the prerequisites correctly with the PREREQ_PM attribute to MakeMaker or the C<requires> stanza of Module::Build. For bundles which fail and you need to install often, it is recommended to sort the Bundle definition file manually. =item 8) In our intranet, we have many modules for internal use. How can I integrate these modules with CPAN.pm but without uploading the modules to CPAN? Have a look at the CPAN::Site module. =item 9) When I run CPAN's shell, I get an error message about things in my C</etc/inputrc> (or C<~/.inputrc>) file. These are readline issues and can only be fixed by studying readline configuration on your architecture and adjusting the referenced file accordingly. Please make a backup of the C</etc/inputrc> or C<~/.inputrc> and edit them. Quite often harmless changes like uppercasing or lowercasing some arguments solves the problem. =item 10) Some authors have strange characters in their names. Internally CPAN.pm uses the UTF-8 charset. If your terminal is expecting ISO-8859-1 charset, a converter can be activated by setting term_is_latin to a true value in your config file. One way of doing so would be cpan> o conf term_is_latin 1 If other charset support is needed, please file a bug report against CPAN.pm at rt.cpan.org and describe your needs. Maybe we can extend the support or maybe UTF-8 terminals become widely available. Note: this config variable is deprecated and will be removed in a future version of CPAN.pm. It will be replaced with the conventions around the family of $LANG and $LC_* environment variables. =item 11) When an install fails for some reason and then I correct the error condition and retry, CPAN.pm refuses to install the module, saying C<Already tried without success>. Use the force pragma like so force install Foo::Bar Or you can use look Foo::Bar and then C<make install> directly in the subshell. =item 12) How do I install a "DEVELOPER RELEASE" of a module? By default, CPAN will install the latest non-developer release of a module. If you want to install a dev release, you have to specify the partial path starting with the author id to the tarball you wish to install, like so: cpan> install KWILLIAMS/Module-Build-0.27_07.tar.gz Note that you can use the C<ls> command to get this path listed. =item 13) How do I install a module and all its dependencies from the commandline, without being prompted for anything, despite my CPAN configuration (or lack thereof)? CPAN uses ExtUtils::MakeMaker's prompt() function to ask its questions, so if you set the PERL_MM_USE_DEFAULT environment variable, you shouldn't be asked any questions at all (assuming the modules you are installing are nice about obeying that variable as well): % PERL_MM_USE_DEFAULT=1 perl -MCPAN -e 'install My::Module' =item 14) How do I create a Module::Build based Build.PL derived from an ExtUtils::MakeMaker focused Makefile.PL? http://search.cpan.org/dist/Module-Build-Convert/ =item 15) I'm frequently irritated with the CPAN shell's inability to help me select a good mirror. CPAN can now help you select a "good" mirror, based on which ones have the lowest 'ping' round-trip times. From the shell, use the command 'o conf init urllist' and allow CPAN to automatically select mirrors for you. Beyond that help, the urllist config parameter is yours. You can add and remove sites at will. You should find out which sites have the best up-to-dateness, bandwidth, reliability, etc. and are topologically close to you. Some people prefer fast downloads, others up-to-dateness, others reliability. You decide which to try in which order. Henk P. Penning maintains a site that collects data about CPAN sites: http://mirrors.cpan.org/ Also, feel free to play with experimental features. Run o conf init randomize_urllist ftpstats_period ftpstats_size and choose your favorite parameters. After a few downloads running the C<hosts> command will probably assist you in choosing the best mirror sites. =item 16) Why do I get asked the same questions every time I start the shell? You can make your configuration changes permanent by calling the command C<o conf commit>. Alternatively set the C<auto_commit> variable to true by running C<o conf init auto_commit> and answering the following question with yes. =item 17) Older versions of CPAN.pm had the original root directory of all tarballs in the build directory. Now there are always random characters appended to these directory names. Why was this done? The random characters are provided by File::Temp and ensure that each module's individual build directory is unique. This makes running CPAN.pm in concurrent processes simultaneously safe. =item 18) Speaking of the build directory. Do I have to clean it up myself? You have the choice to set the config variable C<scan_cache> to C<never>. Then you must clean it up yourself. The other possible values, C<atstart> and C<atexit> clean up the build directory when you start (or more precisely, after the first extraction into the build directory) or exit the CPAN shell, respectively. If you never start up the CPAN shell, you probably also have to clean up the build directory yourself. =item 19) How can I switch to sudo instead of local::lib? The following 5 environment veriables need to be reset to the previous values: PATH, PERL5LIB, PERL_LOCAL_LIB_ROOT, PERL_MB_OPT, PERL_MM_OPT; and these two CPAN.pm config variables must be reconfigured: make_install_make_command and mbuild_install_build_command. The five env variables have probably been overwritten in your $HOME/.bashrc or some equivalent. You either find them there and delete their traces and logout/login or you override them temporarily, depending on your exact desire. The two cpanpm config variables can be set with: o conf init /install_.*_command/ probably followed by o conf commit =back =head1 COMPATIBILITY =head2 OLD PERL VERSIONS CPAN.pm is regularly tested to run under 5.005 and assorted newer versions. It is getting more and more difficult to get the minimal prerequisites working on older perls. It is close to impossible to get the whole Bundle::CPAN working there. If you're in the position to have only these old versions, be advised that CPAN is designed to work fine without the Bundle::CPAN installed. To get things going, note that GBARR/Scalar-List-Utils-1.18.tar.gz is compatible with ancient perls and that File::Temp is listed as a prerequisite but CPAN has reasonable workarounds if it is missing. =head2 CPANPLUS This module and its competitor, the CPANPLUS module, are both much cooler than the other. CPAN.pm is older. CPANPLUS was designed to be more modular, but it was never intended to be compatible with CPAN.pm. =head2 CPANMINUS In the year 2010 App::cpanminus was launched as a new approach to a cpan shell with a considerably smaller footprint. Very cool stuff. =head1 SECURITY ADVICE This software enables you to upgrade software on your computer and so is inherently dangerous because the newly installed software may contain bugs and may alter the way your computer works or even make it unusable. Please consider backing up your data before every upgrade. =head1 BUGS Please report bugs via L<http://rt.cpan.org/> Before submitting a bug, please make sure that the traditional method of building a Perl module package from a shell by following the installation instructions of that package still works in your environment. =head1 AUTHOR Andreas Koenig C<< <andk@cpan.org> >> =head1 LICENSE This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See L<http://www.perl.com/perl/misc/Artistic.html> =head1 TRANSLATIONS Kawai,Takanori provides a Japanese translation of a very old version of this manpage at L<http://homepage3.nifty.com/hippo2000/perltips/CPAN.htm> =head1 SEE ALSO Many people enter the CPAN shell by running the L<cpan> utility program which is installed in the same directory as perl itself. So if you have this directory in your PATH variable (or some equivalent in your operating system) then typing C<cpan> in a console window will work for you as well. Above that the utility provides several commandline shortcuts. The main CPAN website, which includes general information about the service, is at L<http://www.cpan.org/>. melezhik (Alexey) sent me a link where he published a chef recipe to work with CPAN.pm: http://community.opscode.com/cookbooks/cpan. =cut PK ! �8�L �L 5.34.0/AutoSplit.pmnu �[��� package AutoSplit; use Exporter (); use Config qw(%Config); use File::Basename (); use File::Path qw(mkpath); use File::Spec::Functions qw(curdir catfile catdir); use strict; our($VERSION, @ISA, @EXPORT, @EXPORT_OK, $Verbose, $Keep, $Maxlen, $CheckForAutoloader, $CheckModTime); $VERSION = "1.06"; @ISA = qw(Exporter); @EXPORT = qw(&autosplit &autosplit_lib_modules); @EXPORT_OK = qw($Verbose $Keep $Maxlen $CheckForAutoloader $CheckModTime); =head1 NAME AutoSplit - split a package for autoloading =head1 SYNOPSIS autosplit($file, $dir, $keep, $check, $modtime); autosplit_lib_modules(@modules); =head1 DESCRIPTION This function will split up your program into files that the AutoLoader module can handle. It is used by both the standard perl libraries and by the MakeMaker utility, to automatically configure libraries for autoloading. The C<autosplit> interface splits the specified file into a hierarchy rooted at the directory C<$dir>. It creates directories as needed to reflect class hierarchy, and creates the file F<autosplit.ix>. This file acts as both forward declaration of all package routines, and as timestamp for the last update of the hierarchy. The remaining three arguments to C<autosplit> govern other options to the autosplitter. =over 2 =item $keep If the third argument, I<$keep>, is false, then any pre-existing C<*.al> files in the autoload directory are removed if they are no longer part of the module (obsoleted functions). $keep defaults to 0. =item $check The fourth argument, I<$check>, instructs C<autosplit> to check the module currently being split to ensure that it includes a C<use> specification for the AutoLoader module, and skips the module if AutoLoader is not detected. $check defaults to 1. =item $modtime Lastly, the I<$modtime> argument specifies that C<autosplit> is to check the modification time of the module against that of the C<autosplit.ix> file, and only split the module if it is newer. $modtime defaults to 1. =back Typical use of AutoSplit in the perl MakeMaker utility is via the command-line with: perl -e 'use AutoSplit; autosplit($ARGV[0], $ARGV[1], 0, 1, 1)' Defined as a Make macro, it is invoked with file and directory arguments; C<autosplit> will split the specified file into the specified directory and delete obsolete C<.al> files, after checking first that the module does use the AutoLoader, and ensuring that the module is not already currently split in its current form (the modtime test). The C<autosplit_lib_modules> form is used in the building of perl. It takes as input a list of files (modules) that are assumed to reside in a directory B<lib> relative to the current directory. Each file is sent to the autosplitter one at a time, to be split into the directory B<lib/auto>. In both usages of the autosplitter, only subroutines defined following the perl I<__END__> token are split out into separate files. Some routines may be placed prior to this marker to force their immediate loading and parsing. =head2 Multiple packages As of version 1.01 of the AutoSplit module it is possible to have multiple packages within a single file. Both of the following cases are supported: package NAME; __END__ sub AAA { ... } package NAME::option1; sub BBB { ... } package NAME::option2; sub BBB { ... } package NAME; __END__ sub AAA { ... } sub NAME::option1::BBB { ... } sub NAME::option2::BBB { ... } =head1 DIAGNOSTICS C<AutoSplit> will inform the user if it is necessary to create the top-level directory specified in the invocation. It is preferred that the script or installation process that invokes C<AutoSplit> have created the full directory path ahead of time. This warning may indicate that the module is being split into an incorrect path. C<AutoSplit> will warn the user of all subroutines whose name causes potential file naming conflicts on machines with drastically limited (8 characters or less) file name length. Since the subroutine name is used as the file name, these warnings can aid in portability to such systems. Warnings are issued and the file skipped if C<AutoSplit> cannot locate either the I<__END__> marker or a "package Name;"-style specification. C<AutoSplit> will also emit general diagnostics for inability to create directories or files. =head1 AUTHOR C<AutoSplit> is maintained by the perl5-porters. Please direct any questions to the canonical mailing list. Anything that is applicable to the CPAN release can be sent to its maintainer, though. Author and Maintainer: The Perl5-Porters <perl5-porters@perl.org> Maintainer of the CPAN release: Steffen Mueller <smueller@cpan.org> =head1 COPYRIGHT AND LICENSE This package has been part of the perl core since the first release of perl5. It has been released separately to CPAN so older installations can benefit from bug fixes. This package has the same copyright and license as the perl core: Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 by Larry Wall and others All rights reserved. This program is free software; you can redistribute it and/or modify it under the terms of either: a) the GNU General Public License as published by the Free Software Foundation; either version 1, or (at your option) any later version, or b) the "Artistic License" which comes with this Kit. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See either the GNU General Public License or the Artistic License for more details. You should have received a copy of the Artistic License with this Kit, in the file named "Artistic". If not, I'll be glad to provide one. You should also have received a copy of the GNU General Public License along with this program in the file named "Copying". If not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA or visit their web page on the internet at http://www.gnu.org/copyleft/gpl.html. For those of you that choose to use the GNU General Public License, my interpretation of the GNU General Public License is that no Perl script falls under the terms of the GPL unless you explicitly put said script under the terms of the GPL yourself. Furthermore, any object code linked with perl does not automatically fall under the terms of the GPL, provided such object code only adds definitions of subroutines and variables, and does not otherwise impair the resulting interpreter from executing any standard Perl script. I consider linking in C subroutines in this manner to be the moral equivalent of defining subroutines in the Perl language itself. You may sell such an object file as proprietary provided that you provide or offer to provide the Perl source, as specified by the GNU General Public License. (This is merely an alternate way of specifying input to the program.) You may also sell a binary produced by the dumping of a running Perl script that belongs to you, provided that you provide or offer to provide the Perl source as specified by the GPL. (The fact that a Perl interpreter and your code are in the same binary file is, in this case, a form of mere aggregation.) This is my interpretation of the GPL. If you still have concerns or difficulties understanding my intent, feel free to contact me. Of course, the Artistic License spells all this out for your protection, so you may prefer to use that. =cut # for portability warn about names longer than $maxlen $Maxlen = 8; # 8 for dos, 11 (14-".al") for SYSVR3 $Verbose = 1; # 0=none, 1=minimal, 2=list .al files $Keep = 0; $CheckForAutoloader = 1; $CheckModTime = 1; my $IndexFile = "autosplit.ix"; # file also serves as timestamp my $maxflen = 255; $maxflen = 14 if $Config{'d_flexfnam'} ne 'define'; if (defined (&Dos::UseLFN)) { $maxflen = Dos::UseLFN() ? 255 : 11; } my $Is_VMS = ($^O eq 'VMS'); # allow checking for valid ': attrlist' attachments. # extra jugglery required to support both 5.8 and 5.9/5.10 features # (support for 5.8 required for cross-compiling environments) my $attr_list = $] >= 5.009005 ? eval <<'__QR__' qr{ \s* : \s* (?: # one attribute (?> # no backtrack (?! \d) \w+ (?<nested> \( (?: [^()]++ | (?&nested)++ )*+ \) ) ? ) (?: \s* : \s* | \s+ (?! :) ) )* }x __QR__ : do { # In pre-5.9.5 world we have to do dirty tricks. # (we use 'our' rather than 'my' here, due to the rather complex and buggy # behaviour of lexicals with qr// and (??{$lex}) ) our $trick1; # yes, cannot our and assign at the same time. $trick1 = qr{ \( (?: (?> [^()]+ ) | (??{ $trick1 }) )* \) }x; our $trick2 = qr{ (?> (?! \d) \w+ (?:$trick1)? ) (?:\s*\:\s*|\s+(?!\:)) }x; qr{ \s* : \s* (?: $trick2 )* }x; }; sub autosplit{ my($file, $autodir, $keep, $ckal, $ckmt) = @_; # $file - the perl source file to be split (after __END__) # $autodir - the ".../auto" dir below which to write split subs # Handle optional flags: $keep = $Keep unless defined $keep; $ckal = $CheckForAutoloader unless defined $ckal; $ckmt = $CheckModTime unless defined $ckmt; autosplit_file($file, $autodir, $keep, $ckal, $ckmt); } sub carp{ require Carp; goto &Carp::carp; } # This function is used during perl building/installation # ./miniperl -e 'use AutoSplit; autosplit_lib_modules(@ARGV)' ... sub autosplit_lib_modules { my(@modules) = @_; # list of Module names local $_; # Avoid clobber. while (defined($_ = shift @modules)) { while (m#([^:]+)::([^:].*)#) { # in case specified as ABC::XYZ $_ = catfile($1, $2); } s|\\|/|g; # bug in ksh OS/2 s#^lib/##s; # incase specified as lib/*.pm my($lib) = catfile(curdir(), "lib"); if ($Is_VMS) { # may need to convert VMS-style filespecs $lib =~ s#^\[\]#.\/#; } s#^$lib\W+##s; # incase specified as ./lib/*.pm if ($Is_VMS && /[:>\]]/) { # may need to convert VMS-style filespecs my ($dir,$name) = (/(.*])(.*)/s); $dir =~ s/.*lib[\.\]]//s; $dir =~ s#[\.\]]#/#g; $_ = $dir . $name; } autosplit_file(catfile($lib, $_), catfile($lib, "auto"), $Keep, $CheckForAutoloader, $CheckModTime); } 0; } # private functions my $self_mod_time = (stat __FILE__)[9]; sub autosplit_file { my($filename, $autodir, $keep, $check_for_autoloader, $check_mod_time) = @_; my(@outfiles); local($_); local($/) = "\n"; # where to write output files $autodir ||= catfile(curdir(), "lib", "auto"); if ($Is_VMS) { ($autodir = VMS::Filespec::unixpath($autodir)) =~ s|/\z||; $filename = VMS::Filespec::unixify($filename); # may have dirs } unless (-d $autodir){ mkpath($autodir,0,0755); # We should never need to create the auto dir # here. installperl (or similar) should have done # it. Expecting it to exist is a valuable sanity check against # autosplitting into some random directory by mistake. print "Warning: AutoSplit had to create top-level " . "$autodir unexpectedly.\n"; } # allow just a package name to be used $filename .= ".pm" unless ($filename =~ m/\.pm\z/); open(my $in, "<$filename") or die "AutoSplit: Can't open $filename: $!\n"; my($pm_mod_time) = (stat($filename))[9]; my($autoloader_seen) = 0; my($in_pod) = 0; my($def_package,$last_package,$this_package,$fnr); while (<$in>) { # Skip pod text. $fnr++; $in_pod = 1 if /^=\w/; $in_pod = 0 if /^=cut/; next if ($in_pod || /^=cut/); next if /^\s*#/; # record last package name seen $def_package = $1 if (m/^\s*package\s+([\w:]+)\s*;/); ++$autoloader_seen if m/^\s*(use|require)\s+AutoLoader\b/; ++$autoloader_seen if m/\bISA\s*=.*\bAutoLoader\b/; last if /^__END__/; } if ($check_for_autoloader && !$autoloader_seen){ print "AutoSplit skipped $filename: no AutoLoader used\n" if ($Verbose>=2); return 0; } $_ or die "Can't find __END__ in $filename\n"; $def_package or die "Can't find 'package Name;' in $filename\n"; my($modpname) = _modpname($def_package); # this _has_ to match so we have a reasonable timestamp file die "Package $def_package ($modpname.pm) does not ". "match filename $filename" unless ($filename =~ m/\Q$modpname.pm\E$/ or ($^O eq 'dos') or ($^O eq 'MSWin32') or ($^O eq 'NetWare') or $Is_VMS && $filename =~ m/$modpname.pm/i); my($al_idx_file) = catfile($autodir, $modpname, $IndexFile); if ($check_mod_time){ my($al_ts_time) = (stat("$al_idx_file"))[9] || 1; if ($al_ts_time >= $pm_mod_time and $al_ts_time >= $self_mod_time){ print "AutoSplit skipped ($al_idx_file newer than $filename)\n" if ($Verbose >= 2); return undef; # one undef, not a list } } my($modnamedir) = catdir($autodir, $modpname); print "AutoSplitting $filename ($modnamedir)\n" if $Verbose; unless (-d $modnamedir){ mkpath($modnamedir,0,0777); } # We must try to deal with some SVR3 systems with a limit of 14 # characters for file names. Sadly we *cannot* simply truncate all # file names to 14 characters on these systems because we *must* # create filenames which exactly match the names used by AutoLoader.pm. # This is a problem because some systems silently truncate the file # names while others treat long file names as an error. my $Is83 = $maxflen==11; # plain, case INSENSITIVE dos filenames my(@subnames, $subname, %proto, %package); my @cache = (); my $caching = 1; $last_package = ''; my $out; while (<$in>) { $fnr++; $in_pod = 1 if /^=\w/; $in_pod = 0 if /^=cut/; next if ($in_pod || /^=cut/); # the following (tempting) old coding gives big troubles if a # cut is forgotten at EOF: # next if /^=\w/ .. /^=cut/; if (/^package\s+([\w:]+)\s*;/) { $this_package = $def_package = $1; } if (/^sub\s+([\w:]+)(\s*(?:\(.*?\))?(?:$attr_list)?)/) { print $out "# end of $last_package\::$subname\n1;\n" if $last_package; $subname = $1; my $proto = $2 || ''; if ($subname =~ s/(.*):://){ $this_package = $1; } else { $this_package = $def_package; } my $fq_subname = "$this_package\::$subname"; $package{$fq_subname} = $this_package; $proto{$fq_subname} = $proto; push(@subnames, $fq_subname); my($lname, $sname) = ($subname, substr($subname,0,$maxflen-3)); $modpname = _modpname($this_package); my($modnamedir) = catdir($autodir, $modpname); mkpath($modnamedir,0,0777); my($lpath) = catfile($modnamedir, "$lname.al"); my($spath) = catfile($modnamedir, "$sname.al"); my $path; if (!$Is83 and open($out, ">$lpath")){ $path=$lpath; print " writing $lpath\n" if ($Verbose>=2); } else { open($out, ">$spath") or die "Can't create $spath: $!\n"; $path=$spath; print " writing $spath (with truncated name)\n" if ($Verbose>=1); } push(@outfiles, $path); my $lineno = $fnr - @cache; print $out <<EOT; # NOTE: Derived from $filename. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package $this_package; #line $lineno "$filename (autosplit into $path)" EOT print $out @cache; @cache = (); $caching = 0; } if($caching) { push(@cache, $_) if @cache || /\S/; } else { print $out $_; } if(/^\}/) { if($caching) { print $out @cache; @cache = (); } print $out "\n"; $caching = 1; } $last_package = $this_package if defined $this_package; } if ($subname) { print $out @cache,"1;\n# end of $last_package\::$subname\n"; close($out); } close($in); if (!$keep){ # don't keep any obsolete *.al files in the directory my(%outfiles); # @outfiles{@outfiles} = @outfiles; # perl downcases all filenames on VMS (which upcases all filenames) so # we'd better downcase the sub name list too, or subs with upper case # letters in them will get their .al files deleted right after they're # created. (The mixed case sub name won't match the all-lowercase # filename, and so be cleaned up as a scrap file) if ($Is_VMS or $Is83) { %outfiles = map {lc($_) => lc($_) } @outfiles; } else { @outfiles{@outfiles} = @outfiles; } my(%outdirs,@outdirs); for (@outfiles) { $outdirs{File::Basename::dirname($_)}||=1; } for my $dir (keys %outdirs) { opendir(my $outdir,$dir); foreach (sort readdir($outdir)){ next unless /\.al\z/; my($file) = catfile($dir, $_); $file = lc $file if $Is83 or $Is_VMS; next if $outfiles{$file}; print " deleting $file\n" if ($Verbose>=2); my($deleted,$thistime); # catch all versions on VMS do { $deleted += ($thistime = unlink $file) } while ($thistime); carp ("Unable to delete $file: $!") unless $deleted; } closedir($outdir); } } open(my $ts,">$al_idx_file") or carp ("AutoSplit: unable to create timestamp file ($al_idx_file): $!"); print $ts "# Index created by AutoSplit for $filename\n"; print $ts "# (file acts as timestamp)\n"; $last_package = ''; for my $fqs (@subnames) { my($subname) = $fqs; $subname =~ s/.*:://; print $ts "package $package{$fqs};\n" unless $last_package eq $package{$fqs}; print $ts "sub $subname $proto{$fqs};\n"; $last_package = $package{$fqs}; } print $ts "1;\n"; close($ts); _check_unique($filename, $Maxlen, 1, @outfiles); @outfiles; } sub _modpname ($) { my($package) = @_; my $modpname = $package; if ($^O eq 'MSWin32') { $modpname =~ s#::#\\#g; } else { my @modpnames = (); while ($modpname =~ m#(.*?[^:])::([^:].*)#) { push @modpnames, $1; $modpname = $2; } $modpname = catfile(@modpnames, $modpname); } if ($Is_VMS) { $modpname = VMS::Filespec::unixify($modpname); # may have dirs } $modpname; } sub _check_unique { my($filename, $maxlen, $warn, @outfiles) = @_; my(%notuniq) = (); my(%shorts) = (); my(@toolong) = grep( length(File::Basename::basename($_)) > $maxlen, @outfiles ); foreach (@toolong){ my($dir) = File::Basename::dirname($_); my($file) = File::Basename::basename($_); my($trunc) = substr($file,0,$maxlen); $notuniq{$dir}{$trunc} = 1 if $shorts{$dir}{$trunc}; $shorts{$dir}{$trunc} = $shorts{$dir}{$trunc} ? "$shorts{$dir}{$trunc}, $file" : $file; } if (%notuniq && $warn){ print "$filename: some names are not unique when " . "truncated to $maxlen characters:\n"; foreach my $dir (sort keys %notuniq){ print " directory $dir:\n"; foreach my $trunc (sort keys %{$notuniq{$dir}}) { print " $shorts{$dir}{$trunc} truncate to $trunc\n"; } } } } 1; __END__ # test functions so AutoSplit.pm can be applied to itself: sub test1 ($) { "test 1\n"; } sub test2 ($$) { "test 2\n"; } sub test3 ($$$) { "test 3\n"; } sub testtesttesttest4_1 { "test 4\n"; } sub testtesttesttest4_2 { "duplicate test 4\n"; } sub Just::Another::test5 { "another test 5\n"; } sub test6 { return join ":", __FILE__,__LINE__; } package Yet::Another::AutoSplit; sub testtesttesttest4_1 ($) { "another test 4\n"; } sub testtesttesttest4_2 ($$) { "another duplicate test 4\n"; } package Yet::More::Attributes; sub test_a1 ($) : locked :locked { 1; } sub test_a2 : locked { 1; } PK ! �1:�: : 0 5.34.0/ExtUtils/CBuilder/Platform/Windows/GCC.pmnu �[��� package ExtUtils::CBuilder::Platform::Windows::GCC; our $VERSION = '0.280236'; # VERSION use warnings; use strict; sub format_compiler_cmd { my ($self, %spec) = @_; foreach my $path ( @{ $spec{includes} || [] }, @{ $spec{perlinc} || [] } ) { $path = '-I' . $path; } # split off any -arguments included in cc my @cc = split / (?=-)/, $spec{cc}; return [ grep {defined && length} ( @cc, '-c' , @{$spec{includes}} , @{$spec{cflags}} , @{$spec{optimize}} , @{$spec{defines}} , @{$spec{perlinc}} , '-o', $spec{output} , $spec{source} , ) ]; } sub format_linker_cmd { my ($self, %spec) = @_; my $cf = $self->{config}; # The Config.pm variable 'libperl' is hardcoded to the full name # of the perl import library (i.e. 'libperl56.a'). GCC will not # find it unless the 'lib' prefix & the extension are stripped. $spec{libperl} =~ s/^(?:lib)?([^.]+).*$/-l$1/; unshift( @{$spec{other_ldflags}}, '-nostartfiles' ) if ( $spec{startup} && @{$spec{startup}} ); %spec = $self->write_linker_script(%spec) if $spec{use_scripts}; foreach my $path ( @{$spec{libpath}} ) { $path = "-L$path"; } my @cmds; # Stores the series of commands needed to build the module. my $DLLTOOL = $cf->{dlltool} || 'dlltool'; push @cmds, [ $DLLTOOL, '--def' , $spec{def_file}, '--output-exp' , $spec{explib} ]; # split off any -arguments included in ld my @ld = split / (?=-)/, $spec{ld}; push @cmds, [ grep {defined && length} ( @ld , '-o', $spec{output} , "-Wl,--base-file,$spec{base_file}" , "-Wl,--enable-auto-image-base" , @{$spec{lddlflags}} , @{$spec{libpath}} , @{$spec{startup}} , @{$spec{objects}} , @{$spec{other_ldflags}} , $spec{libperl} , @{$spec{perllibs}} , $spec{explib} , $spec{map_file} ? ('-Map', $spec{map_file}) : '' ) ]; push @cmds, [ $DLLTOOL, '--def' , $spec{def_file}, '--output-exp' , $spec{explib}, '--base-file' , $spec{base_file} ]; push @cmds, [ grep {defined && length} ( @ld , '-o', $spec{output} , "-Wl,--enable-auto-image-base" , @{$spec{lddlflags}} , @{$spec{libpath}} , @{$spec{startup}} , @{$spec{objects}} , @{$spec{other_ldflags}} , $spec{libperl} , @{$spec{perllibs}} , $spec{explib} , $spec{map_file} ? ('-Map', $spec{map_file}) : '' ) ]; return @cmds; } sub write_linker_script { my ($self, %spec) = @_; my $script = File::Spec->catfile( $spec{srcdir}, $spec{basename} . '.lds' ); $self->add_to_cleanup($script); print "Generating script '$script'\n" if !$self->{quiet}; my $SCRIPT = IO::File->new( ">$script" ) or die( "Could not create script '$script': $!" ); print $SCRIPT ( 'SEARCH_DIR(' . $_ . ")\n" ) for @{delete $spec{libpath} || []}; # gcc takes only one startup file, so the first object in startup is # specified as the startup file and any others are shifted into the # beginning of the list of objects. if ( $spec{startup} && @{$spec{startup}} ) { print $SCRIPT 'STARTUP(' . shift( @{$spec{startup}} ) . ")\n"; unshift @{$spec{objects}}, @{delete $spec{startup} || []}; } print $SCRIPT 'INPUT(' . join( ',', @{delete $spec{objects} || []} ) . ")\n"; print $SCRIPT 'INPUT(' . join( ' ', (delete $spec{libperl} || ''), @{delete $spec{perllibs} || []}, ) . ")\n"; #it is important to keep the order 1.linker_script - 2.other_ldflags unshift @{$spec{other_ldflags}}, '"' . $script . '"'; return %spec; } 1; PK ! ^��� � 1 5.34.0/ExtUtils/CBuilder/Platform/Windows/MSVC.pmnu �[��� package ExtUtils::CBuilder::Platform::Windows::MSVC; our $VERSION = '0.280236'; # VERSION use warnings; use strict; sub arg_exec_file { my ($self, $file) = @_; return "/OUT:$file"; } sub format_compiler_cmd { my ($self, %spec) = @_; foreach my $path ( @{ $spec{includes} || [] }, @{ $spec{perlinc} || [] } ) { $path = '-I' . $path; } %spec = $self->write_compiler_script(%spec) if $spec{use_scripts}; return [ grep {defined && length} ( $spec{cc},'-nologo','-c', @{$spec{includes}} , @{$spec{cflags}} , @{$spec{optimize}} , @{$spec{defines}} , @{$spec{perlinc}} , "-Fo$spec{output}" , $spec{source} , ) ]; } sub write_compiler_script { my ($self, %spec) = @_; my $script = File::Spec->catfile( $spec{srcdir}, $spec{basename} . '.ccs' ); $self->add_to_cleanup($script); print "Generating script '$script'\n" if !$self->{quiet}; my $SCRIPT = IO::File->new( ">$script" ) or die( "Could not create script '$script': $!" ); print $SCRIPT join( "\n", map { ref $_ ? @{$_} : $_ } grep defined, delete( @spec{ qw(includes cflags optimize defines perlinc) } ) ); push @{$spec{includes}}, '@"' . $script . '"'; return %spec; } sub format_linker_cmd { my ($self, %spec) = @_; my $cf = $self->{config}; foreach my $path ( @{$spec{libpath}} ) { $path = "-libpath:$path"; } my $output = $spec{output}; my $manifest = $spec{manifest}; $spec{def_file} &&= '-def:' . $spec{def_file}; $spec{output} &&= '-out:' . $spec{output}; $spec{manifest} &&= '-manifest ' . $spec{manifest}; $spec{implib} &&= '-implib:' . $spec{implib}; $spec{map_file} &&= '-map:' . $spec{map_file}; %spec = $self->write_linker_script(%spec) if $spec{use_scripts}; my @cmds; # Stores the series of commands needed to build the module. push @cmds, [ grep {defined && length} ( $spec{ld} , @{$spec{lddlflags}} , @{$spec{libpath}} , @{$spec{other_ldflags}} , @{$spec{startup}} , @{$spec{objects}} , $spec{map_file} , $spec{libperl} , @{$spec{perllibs}} , $spec{def_file} , $spec{implib} , $spec{output} , ) ]; # Embed the manifest file if it exists push @cmds, [ 'if', 'exist', $manifest, 'mt', '-nologo', $spec{manifest}, '-outputresource:' . "$output;2" ]; return @cmds; } sub write_linker_script { my ($self, %spec) = @_; my $script = File::Spec->catfile( $spec{srcdir}, $spec{basename} . '.lds' ); $self->add_to_cleanup($script); print "Generating script '$script'\n" if !$self->{quiet}; my $SCRIPT = IO::File->new( ">$script" ) or die( "Could not create script '$script': $!" ); print $SCRIPT join( "\n", map { ref $_ ? @{$_} : $_ } grep defined, delete( @spec{ qw(lddlflags libpath other_ldflags startup objects libperl perllibs def_file implib map_file) } ) ); push @{$spec{lddlflags}}, '@"' . $script . '"'; return %spec; } 1; PK ! ��-� � 0 5.34.0/ExtUtils/CBuilder/Platform/Windows/BCC.pmnu �[��� package ExtUtils::CBuilder::Platform::Windows::BCC; our $VERSION = '0.280236'; # VERSION use strict; use warnings; sub format_compiler_cmd { my ($self, %spec) = @_; foreach my $path ( @{ $spec{includes} || [] }, @{ $spec{perlinc} || [] } ) { $path = '-I' . $path; } %spec = $self->write_compiler_script(%spec) if $spec{use_scripts}; return [ grep {defined && length} ( $spec{cc}, '-c' , @{$spec{includes}} , @{$spec{cflags}} , @{$spec{optimize}} , @{$spec{defines}} , @{$spec{perlinc}} , "-o$spec{output}" , $spec{source} , ) ]; } sub write_compiler_script { my ($self, %spec) = @_; my $script = File::Spec->catfile( $spec{srcdir}, $spec{basename} . '.ccs' ); $self->add_to_cleanup($script); print "Generating script '$script'\n" if !$self->{quiet}; my $SCRIPT = IO::File->new( ">$script" ) or die( "Could not create script '$script': $!" ); # XXX Borland "response files" seem to be unable to accept macro # definitions containing quoted strings. Escaping strings with # backslash doesn't work, and any level of quotes are stripped. The # result is a floating point number in the source file where a # string is expected. So we leave the macros on the command line. print $SCRIPT join( "\n", map { ref $_ ? @{$_} : $_ } grep defined, delete( @spec{ qw(includes cflags optimize perlinc) } ) ); push @{$spec{includes}}, '@"' . $script . '"'; return %spec; } sub format_linker_cmd { my ($self, %spec) = @_; foreach my $path ( @{$spec{libpath}} ) { $path = "-L$path"; } push( @{$spec{startup}}, 'c0d32.obj' ) unless ( $spec{startup} && @{$spec{startup}} ); %spec = $self->write_linker_script(%spec) if $spec{use_scripts}; return [ grep {defined && length} ( $spec{ld} , @{$spec{lddlflags}} , @{$spec{libpath}} , @{$spec{other_ldflags}} , @{$spec{startup}} , @{$spec{objects}} , ',', $spec{output} , ',', $spec{map_file} , ',', $spec{libperl} , @{$spec{perllibs}} , ',', $spec{def_file} ) ]; } sub write_linker_script { my ($self, %spec) = @_; # To work around Borlands "unique" commandline syntax, # two scripts are used: my $ld_script = File::Spec->catfile( $spec{srcdir}, $spec{basename} . '.lds' ); my $ld_libs = File::Spec->catfile( $spec{srcdir}, $spec{basename} . '.lbs' ); $self->add_to_cleanup($ld_script, $ld_libs); print "Generating scripts '$ld_script' and '$ld_libs'.\n" if !$self->{quiet}; # Script 1: contains options & names of object files. my $LD_SCRIPT = IO::File->new( ">$ld_script" ) or die( "Could not create linker script '$ld_script': $!" ); print $LD_SCRIPT join( " +\n", map { @{$_} } grep defined, delete( @spec{ qw(lddlflags libpath other_ldflags startup objects) } ) ); # Script 2: contains name of libs to link against. my $LD_LIBS = IO::File->new( ">$ld_libs" ) or die( "Could not create linker script '$ld_libs': $!" ); print $LD_LIBS join( " +\n", (delete $spec{libperl} || ''), @{delete $spec{perllibs} || []}, ); push @{$spec{lddlflags}}, '@"' . $ld_script . '"'; push @{$spec{perllibs}}, '@"' . $ld_libs . '"'; return %spec; } 1; PK ! �a�6q q ( 5.34.0/ExtUtils/CBuilder/Platform/aix.pmnu �[��� package ExtUtils::CBuilder::Platform::aix; use warnings; use strict; use ExtUtils::CBuilder::Platform::Unix; use File::Spec; our $VERSION = '0.280236'; # VERSION our @ISA = qw(ExtUtils::CBuilder::Platform::Unix); sub need_prelink { 1 } sub link { my ($self, %args) = @_; my $cf = $self->{config}; (my $baseext = $args{module_name}) =~ s/.*:://; my $perl_inc = $self->perl_inc(); # Massage some very naughty bits in %Config local $cf->{lddlflags} = $cf->{lddlflags}; for ($cf->{lddlflags}) { s/\Q$(BASEEXT)\E/$baseext/; s/\Q$(PERL_INC)\E/$perl_inc/; } return $self->SUPER::link(%args); } 1; PK ! ��� � , 5.34.0/ExtUtils/CBuilder/Platform/android.pmnu �[��� package ExtUtils::CBuilder::Platform::android; use warnings; use strict; use File::Spec; use ExtUtils::CBuilder::Platform::Unix; use Config; our $VERSION = '0.280236'; # VERSION our @ISA = qw(ExtUtils::CBuilder::Platform::Unix); # The Android linker will not recognize symbols from # libperl unless the module explicitly depends on it. sub link { my ($self, %args) = @_; if ($self->{config}{useshrplib} eq 'true') { $args{extra_linker_flags} = [ $self->split_like_shell($args{extra_linker_flags}), '-L' . $self->perl_inc(), '-lperl', $self->split_like_shell($Config{perllibs}), ]; } # Several modules on CPAN rather rightfully expect being # able to pass $so_file to DynaLoader::dl_load_file and # have it Just Work. However, $so_file will more likely # than not be a relative path, and unless the module # author subclasses MakeMaker/Module::Build to modify # LD_LIBRARY_PATH, which would be insane, Android's linker # won't find the .so # So we make this all work by returning an absolute path. my($so_file, @so_tmps) = $self->SUPER::link(%args); $so_file = File::Spec->rel2abs($so_file); return wantarray ? ($so_file, @so_tmps) : $so_file; } 1; PK ! �}�0( 0( ( 5.34.0/ExtUtils/CBuilder/Platform/VMS.pmnu �[��� package ExtUtils::CBuilder::Platform::VMS; use warnings; use strict; use ExtUtils::CBuilder::Base; our $VERSION = '0.280236'; # VERSION our @ISA = qw(ExtUtils::CBuilder::Base); use File::Spec::Functions qw(catfile catdir); use Config; # We do prelink, but don't want the parent to redo it. sub need_prelink { 0 } sub arg_defines { my ($self, %args) = @_; s/"/""/g foreach values %args; my @config_defines; # VMS can only have one define qualifier; add the one from config, if any. if ($self->{config}{ccflags} =~ s{/ def[^=]+ =+ \(? ([^\/\)]*) } {}ix) { push @config_defines, $1; } return '' unless keys(%args) || @config_defines; return ('/define=(' . join(',', @config_defines, map "\"$_" . ( length($args{$_}) ? "=$args{$_}" : '') . "\"", sort keys %args) . ')'); } sub arg_include_dirs { my ($self, @dirs) = @_; # VMS can only have one include list, add the one from config. if ($self->{config}{ccflags} =~ s{/inc[^=]+(?:=)+(?:\()?([^\/\)]*)} {}i) { unshift @dirs, $1; } return unless @dirs; return ('/include=(' . join(',', @dirs) . ')'); } # We override the compile method because we consume the includes and defines # parts of ccflags in the process of compiling but don't save those parts # anywhere, so $self->{config}{ccflags} needs to be reset for each compile # operation. sub compile { my ($self, %args) = @_; $self->{config}{ccflags} = $Config{ccflags}; $self->{config}{ccflags} = $ENV{CFLAGS} if defined $ENV{CFLAGS}; return $self->SUPER::compile(%args); } sub _do_link { my ($self, $type, %args) = @_; my $objects = delete $args{objects}; $objects = [$objects] unless ref $objects; if ($args{lddl}) { # prelink will call Mksymlists, which creates the extension-specific # linker options file and populates it with the boot symbol. my @temp_files = $self->prelink(%args, dl_name => $args{module_name}); # We now add the rest of what we need to the linker options file. We # should replicate the functionality of C<ExtUtils::MM_VMS::dlsyms>, # but there is as yet no infrastructure for handling object libraries, # so for now we depend on object files being listed individually on the # command line, which should work for simple cases. We do bring in our # own version of C<ExtUtils::Liblist::Kid::ext> so that any additional # libraries (including PERLSHR) can be added to the options file. my @optlibs = $self->_liblist_ext( $args{'libs'} ); my $optfile = 'sys$disk:[]' . $temp_files[0]; open my $opt_fh, '>>', $optfile or die "_do_link: Unable to open $optfile: $!"; for my $lib (@optlibs) {print $opt_fh "$lib\n" if length $lib } close $opt_fh; $objects->[-1] .= ','; push @$objects, $optfile . '/OPTIONS,'; # This one not needed for DEC C, but leave for completeness. push @$objects, $self->perl_inc() . 'perlshr_attr.opt/OPTIONS'; } return $self->SUPER::_do_link($type, %args, objects => $objects); } sub arg_nolink { return; } sub arg_object_file { my ($self, $file) = @_; return "/obj=$file"; } sub arg_exec_file { my ($self, $file) = @_; return ("/exe=$file"); } sub arg_share_object_file { my ($self, $file) = @_; return ("$self->{config}{lddlflags}=$file"); } # The following is reproduced almost verbatim from ExtUtils::Liblist::Kid::_vms_ext. # We can't just call that because it's tied up with the MakeMaker object hierarchy. sub _liblist_ext { my($self, $potential_libs,$verbose,$give_libs) = @_; $verbose ||= 0; my(@crtls,$crtlstr); @crtls = ( ($self->{'config'}{'ldflags'} =~ m-/Debug-i ? $self->{'config'}{'dbgprefix'} : '') . 'PerlShr/Share' ); push(@crtls, grep { not /\(/ } split /\s+/, $self->{'config'}{'perllibs'}); push(@crtls, grep { not /\(/ } split /\s+/, $self->{'config'}{'libc'}); # In general, we pass through the basic libraries from %Config unchanged. # The one exception is that if we're building in the Perl source tree, and # a library spec could be resolved via a logical name, we go to some trouble # to ensure that the copy in the local tree is used, rather than one to # which a system-wide logical may point. if ($self->perl_src) { my($lib,$locspec,$type); foreach $lib (@crtls) { if (($locspec,$type) = $lib =~ m{^([\w\$-]+)(/\w+)?} and $locspec =~ /perl/i) { if (lc $type eq '/share') { $locspec .= $self->{'config'}{'exe_ext'}; } elsif (lc $type eq '/library') { $locspec .= $self->{'config'}{'lib_ext'}; } else { $locspec .= $self->{'config'}{'obj_ext'}; } $locspec = catfile($self->perl_src, $locspec); $lib = "$locspec$type" if -e $locspec; } } } $crtlstr = @crtls ? join(' ',@crtls) : ''; unless ($potential_libs) { warn "Result:\n\tEXTRALIBS: \n\tLDLOADLIBS: $crtlstr\n" if $verbose; return ('', '', $crtlstr, '', ($give_libs ? [] : ())); } my(@dirs,@libs,$dir,$lib,%found,@fndlibs,$ldlib); my $cwd = cwd(); my($so,$lib_ext,$obj_ext) = @{$self->{'config'}}{'so','lib_ext','obj_ext'}; # List of common Unix library names and their VMS equivalents # (VMS equivalent of '' indicates that the library is automatically # searched by the linker, and should be skipped here.) my(@flibs, %libs_seen); my %libmap = ( 'm' => '', 'f77' => '', 'F77' => '', 'V77' => '', 'c' => '', 'malloc' => '', 'crypt' => '', 'resolv' => '', 'c_s' => '', 'socket' => '', 'X11' => 'DECW$XLIBSHR', 'Xt' => 'DECW$XTSHR', 'Xm' => 'DECW$XMLIBSHR', 'Xmu' => 'DECW$XMULIBSHR'); warn "Potential libraries are '$potential_libs'\n" if $verbose; # First, sort out directories and library names in the input foreach $lib (split ' ',$potential_libs) { push(@dirs,$1), next if $lib =~ /^-L(.*)/; push(@dirs,$lib), next if $lib =~ /[:>\]]$/; push(@dirs,$lib), next if -d $lib; push(@libs,$1), next if $lib =~ /^-l(.*)/; push(@libs,$lib); } push(@dirs,split(' ',$self->{'config'}{'libpth'})); # Now make sure we've got VMS-syntax absolute directory specs # (We don't, however, check whether someone's hidden a relative # path in a logical name.) foreach $dir (@dirs) { unless (-d $dir) { warn "Skipping nonexistent Directory $dir\n" if $verbose > 1; $dir = ''; next; } warn "Resolving directory $dir\n" if $verbose; if (!File::Spec->file_name_is_absolute($dir)) { $dir = catdir($cwd,$dir); } } @dirs = grep { length($_) } @dirs; unshift(@dirs,''); # Check each $lib without additions first LIB: foreach $lib (@libs) { if (exists $libmap{$lib}) { next unless length $libmap{$lib}; $lib = $libmap{$lib}; } my(@variants,$variant,$cand); my($ctype) = ''; # If we don't have a file type, consider it a possibly abbreviated name and # check for common variants. We try these first to grab libraries before # a like-named executable image (e.g. -lperl resolves to perlshr.exe # before perl.exe). if ($lib !~ /\.[^:>\]]*$/) { push(@variants,"${lib}shr","${lib}rtl","${lib}lib"); push(@variants,"lib$lib") if $lib !~ /[:>\]]/; } push(@variants,$lib); warn "Looking for $lib\n" if $verbose; foreach $variant (@variants) { my($fullname, $name); foreach $dir (@dirs) { my($type); $name = "$dir$variant"; warn "\tChecking $name\n" if $verbose > 2; $fullname = VMS::Filespec::rmsexpand($name); if (defined $fullname and -f $fullname) { # It's got its own suffix, so we'll have to figure out the type if ($fullname =~ /(?:$so|exe)$/i) { $type = 'SHR'; } elsif ($fullname =~ /(?:$lib_ext|olb)$/i) { $type = 'OLB'; } elsif ($fullname =~ /(?:$obj_ext|obj)$/i) { warn "Note (probably harmless): " ."Plain object file $fullname found in library list\n"; $type = 'OBJ'; } else { warn "Note (probably harmless): " ."Unknown library type for $fullname; assuming shared\n"; $type = 'SHR'; } } elsif (-f ($fullname = VMS::Filespec::rmsexpand($name,$so)) or -f ($fullname = VMS::Filespec::rmsexpand($name,'.exe'))) { $type = 'SHR'; $name = $fullname unless $fullname =~ /exe;?\d*$/i; } elsif (not length($ctype) and # If we've got a lib already, # don't bother ( -f ($fullname = VMS::Filespec::rmsexpand($name,$lib_ext)) or -f ($fullname = VMS::Filespec::rmsexpand($name,'.olb')))) { $type = 'OLB'; $name = $fullname unless $fullname =~ /olb;?\d*$/i; } elsif (not length($ctype) and # If we've got a lib already, # don't bother ( -f ($fullname = VMS::Filespec::rmsexpand($name,$obj_ext)) or -f ($fullname = VMS::Filespec::rmsexpand($name,'.obj')))) { warn "Note (probably harmless): " ."Plain object file $fullname found in library list\n"; $type = 'OBJ'; $name = $fullname unless $fullname =~ /obj;?\d*$/i; } if (defined $type) { $ctype = $type; $cand = $name; last if $ctype eq 'SHR'; } } if ($ctype) { push @{$found{$ctype}}, $cand; warn "\tFound as $cand (really $fullname), type $ctype\n" if $verbose > 1; push @flibs, $name unless $libs_seen{$fullname}++; next LIB; } } warn "Note (probably harmless): " ."No library found for $lib\n"; } push @fndlibs, @{$found{OBJ}} if exists $found{OBJ}; push @fndlibs, map { "$_/Library" } @{$found{OLB}} if exists $found{OLB}; push @fndlibs, map { "$_/Share" } @{$found{SHR}} if exists $found{SHR}; $lib = join(' ',@fndlibs); $ldlib = $crtlstr ? "$lib $crtlstr" : $lib; warn "Result:\n\tEXTRALIBS: $lib\n\tLDLOADLIBS: $ldlib\n" if $verbose; wantarray ? ($lib, '', $ldlib, '', ($give_libs ? \@flibs : ())) : $lib; } 1; PK ! c~�# # , 5.34.0/ExtUtils/CBuilder/Platform/Windows.pmnu �[��� package ExtUtils::CBuilder::Platform::Windows; use strict; use warnings; use File::Basename; use File::Spec; use ExtUtils::CBuilder::Base; use IO::File; our $VERSION = '0.280236'; # VERSION our @ISA = qw(ExtUtils::CBuilder::Base); =begin comment The compiler-specific packages implement functions for generating properly formatted commandlines for the compiler being used. Each package defines two primary functions 'format_linker_cmd()' & 'format_compiler_cmd()' that accepts a list of named arguments (a hash) and returns a list of formatted options suitable for invoking the compiler. By default, if the compiler supports scripting of its operation then a script file is built containing the options while those options are removed from the commandline, and a reference to the script is pushed onto the commandline in their place. Scripting the compiler in this way helps to avoid the problems associated with long commandlines under some shells. =end comment =cut sub new { my $class = shift; my $self = $class->SUPER::new(@_); my $cf = $self->{config}; # Inherit from an appropriate compiler driver class my $driver = "ExtUtils::CBuilder::Platform::Windows::" . $self->_compiler_type; eval "require $driver" or die "Could not load compiler driver: $@"; unshift @ISA, $driver; return $self; } sub _compiler_type { my $self = shift; my $cc = $self->{config}{cc}; return ( $cc =~ /cl(\.exe)?$/ ? 'MSVC' : $cc =~ /bcc32(\.exe)?$/ ? 'BCC' : 'GCC'); } sub split_like_shell { # Since Windows will pass the whole command string (not an argument # array) to the target program and make the program parse it itself, # we don't actually need to do any processing here. (my $self, local $_) = @_; return @$_ if defined() && UNIVERSAL::isa($_, 'ARRAY'); return unless defined() && length(); return ($_); } sub do_system { # See above my $self = shift; my $cmd = join(" ", grep length, map {$a=$_;$a=~s/\t/ /g;$a=~s/^\s+|\s+$//;$a} grep defined, @_); return $self->SUPER::do_system($cmd); } sub arg_defines { my ($self, %args) = @_; s/"/\\"/g foreach values %args; return map qq{"-D$_=$args{$_}"}, sort keys %args; } sub compile { my ($self, %args) = @_; my $cf = $self->{config}; die "Missing 'source' argument to compile()" unless defined $args{source}; $args{include_dirs} = [ $args{include_dirs} ] if exists($args{include_dirs}) && ref($args{include_dirs}) ne "ARRAY"; my ($basename, $srcdir) = ( File::Basename::fileparse($args{source}, '\.[^.]+$') )[0,1]; $srcdir ||= File::Spec->curdir(); my @defines = $self->arg_defines( %{ $args{defines} || {} } ); my %spec = ( srcdir => $srcdir, builddir => $srcdir, basename => $basename, source => $args{source}, output => $args{object_file} || File::Spec->catfile($srcdir, $basename) . $cf->{obj_ext}, cc => $cf->{cc}, cflags => [ $self->split_like_shell($cf->{ccflags}), $self->split_like_shell($cf->{cccdlflags}), $self->split_like_shell($args{extra_compiler_flags}), ], optimize => [ $self->split_like_shell($cf->{optimize}) ], defines => \@defines, includes => [ @{$args{include_dirs} || []} ], perlinc => [ $self->perl_inc(), $self->split_like_shell($cf->{incpath}), ], use_scripts => 1, # XXX provide user option to change this??? ); $self->normalize_filespecs( \$spec{source}, \$spec{output}, $spec{includes}, $spec{perlinc}, ); my @cmds = $self->format_compiler_cmd(%spec); while ( my $cmd = shift @cmds ) { $self->do_system( @$cmd ) or die "error building $cf->{dlext} file from '$args{source}'"; } (my $out = $spec{output}) =~ tr/'"//d; return $out; } sub need_prelink { 1 } sub link { my ($self, %args) = @_; my $cf = $self->{config}; my @objects = ( ref $args{objects} eq 'ARRAY' ? @{$args{objects}} : $args{objects} ); my $to = join '', (File::Spec->splitpath($objects[0]))[0,1]; $to ||= File::Spec->curdir(); (my $file_base = $args{module_name}) =~ s/.*:://; my $output = $args{lib_file} || File::Spec->catfile($to, "$file_base.$cf->{dlext}"); # if running in perl source tree, look for libs there, not installed my $lddlflags = $cf->{lddlflags}; my $perl_src = $self->perl_src(); $lddlflags =~ s{\Q$cf->{archlibexp}\E[\\/]CORE}{$perl_src/lib/CORE} if $perl_src; my %spec = ( srcdir => $to, builddir => $to, startup => [ ], objects => \@objects, libs => [ ], output => $output, ld => $cf->{ld}, libperl => $cf->{libperl}, perllibs => [ $self->split_like_shell($cf->{perllibs}) ], libpath => [ $self->split_like_shell($cf->{libpth}) ], lddlflags => [ $self->split_like_shell($lddlflags) ], other_ldflags => [ $self->split_like_shell($args{extra_linker_flags} || '') ], use_scripts => 1, # XXX provide user option to change this??? ); unless ( $spec{basename} ) { ($spec{basename} = $args{module_name}) =~ s/.*:://; } $spec{srcdir} = File::Spec->canonpath( $spec{srcdir} ); $spec{builddir} = File::Spec->canonpath( $spec{builddir} ); $spec{output} ||= File::Spec->catfile( $spec{builddir}, $spec{basename} . '.'.$cf->{dlext} ); $spec{manifest} ||= $spec{output} . '.manifest'; $spec{implib} ||= File::Spec->catfile( $spec{builddir}, $spec{basename} . $cf->{lib_ext} ); $spec{explib} ||= File::Spec->catfile( $spec{builddir}, $spec{basename} . '.exp' ); if ($cf->{cc} eq 'cl') { $spec{dbg_file} ||= File::Spec->catfile( $spec{builddir}, $spec{basename} . '.pdb' ); } elsif ($cf->{cc} eq 'bcc32') { $spec{dbg_file} ||= File::Spec->catfile( $spec{builddir}, $spec{basename} . '.tds' ); } $spec{def_file} ||= File::Spec->catfile( $spec{srcdir} , $spec{basename} . '.def' ); $spec{base_file} ||= File::Spec->catfile( $spec{srcdir} , $spec{basename} . '.base' ); $self->add_to_cleanup( grep defined, @{[ @spec{qw(manifest implib explib dbg_file def_file base_file map_file)} ]} ); foreach my $opt ( qw(output manifest implib explib dbg_file def_file map_file base_file) ) { $self->normalize_filespecs( \$spec{$opt} ); } foreach my $opt ( qw(libpath startup objects) ) { $self->normalize_filespecs( $spec{$opt} ); } (my $def_base = $spec{def_file}) =~ tr/'"//d; $def_base =~ s/\.def$//; $self->prelink( %args, dl_name => $args{module_name}, dl_file => $def_base, dl_base => $spec{basename} ); my @cmds = $self->format_linker_cmd(%spec); while ( my $cmd = shift @cmds ) { $self->do_system( @$cmd ); } $spec{output} =~ tr/'"//d; return wantarray ? grep defined, @spec{qw[output manifest implib explib dbg_file def_file map_file base_file]} : $spec{output}; } # canonize & quote paths sub normalize_filespecs { my ($self, @specs) = @_; foreach my $spec ( grep defined, @specs ) { if ( ref $spec eq 'ARRAY') { $self->normalize_filespecs( map {\$_} grep defined, @$spec ) } elsif ( ref $spec eq 'SCALAR' ) { $$spec =~ tr/"//d if $$spec; next unless $$spec; $$spec = '"' . File::Spec->canonpath($$spec) . '"'; } elsif ( ref $spec eq '' ) { $spec = '"' . File::Spec->canonpath($spec) . '"'; } else { die "Don't know how to normalize " . (ref $spec || $spec) . "\n"; } } } # directory of perl's include files sub perl_inc { my $self = shift; my $perl_src = $self->perl_src(); if ($perl_src) { File::Spec->catdir($perl_src, "lib", "CORE"); } else { File::Spec->catdir($self->{config}{archlibexp},"CORE"); } } 1; __END__ =head1 NAME ExtUtils::CBuilder::Platform::Windows - Builder class for Windows platforms =head1 DESCRIPTION This module implements the Windows-specific parts of ExtUtils::CBuilder. Most of the Windows-specific stuff has to do with compiling and linking C code. Currently we support the 3 compilers perl itself supports: MSVC, BCC, and GCC. This module inherits from C<ExtUtils::CBuilder::Base>, so any functionality not implemented here will be implemented there. The interfaces are defined by the L<ExtUtils::CBuilder> documentation. =head1 AUTHOR Ken Williams <ken@mathforum.org> Most of the code here was written by Randy W. Sims <RandyS@ThePierianSpring.org>. =head1 SEE ALSO perl(1), ExtUtils::CBuilder(3), ExtUtils::MakeMaker(3) =cut PK ! L�9� � + 5.34.0/ExtUtils/CBuilder/Platform/cygwin.pmnu �[��� package ExtUtils::CBuilder::Platform::cygwin; use warnings; use strict; use File::Spec; use ExtUtils::CBuilder::Platform::Unix; our $VERSION = '0.280236'; # VERSION our @ISA = qw(ExtUtils::CBuilder::Platform::Unix); # TODO: If a specific exe_file name is requested, if the exe created # doesn't have that name, we might want to rename it. Apparently asking # for an exe of "foo" might result in "foo.exe". Alternatively, we should # make sure the return value is correctly "foo.exe". # C.f http://rt.cpan.org/Public/Bug/Display.html?id=41003 sub link_executable { my $self = shift; return $self->SUPER::link_executable(@_); } sub link { my ($self, %args) = @_; my $lib = $self->{config}{useshrplib} ? 'libperl.dll.a' : 'libperl.a'; $args{extra_linker_flags} = [ File::Spec->catfile($self->perl_inc(), $lib), $self->split_like_shell($args{extra_linker_flags}) ]; return $self->SUPER::link(%args); } 1; PK ! :���k k ( 5.34.0/ExtUtils/CBuilder/Platform/os2.pmnu �[��� package ExtUtils::CBuilder::Platform::os2; use warnings; use strict; use ExtUtils::CBuilder::Platform::Unix; our $VERSION = '0.280236'; # VERSION our @ISA = qw(ExtUtils::CBuilder::Platform::Unix); sub need_prelink { 1 } sub prelink { # Generate import libraries (XXXX currently near .DEF; should be near DLL!) my $self = shift; my %args = @_; my @res = $self->SUPER::prelink(%args); die "Unexpected number of DEF files" unless @res == 1; die "Can't find DEF file in the output" unless $res[0] =~ m,^(.*)\.def$,si; my $libname = "$1$self->{config}{lib_ext}"; # Put .LIB file near .DEF file $self->do_system('emximp', '-o', $libname, $res[0]) or die "emxexp: res=$?"; return (@res, $libname); } sub _do_link { my $self = shift; my ($how, %args) = @_; if ($how eq 'lib_file' and (defined $args{module_name} and length $args{module_name})) { # Now know the basename, find directory parts via lib_file, or objects my $objs = ( (ref $args{objects}) ? $args{objects} : [$args{objects}] ); my $near_obj = $self->lib_file(@$objs); my $exp_dir = ($near_obj =~ m,(.*)[/\\],s ? "$1/" : '' ); $args{dl_file} = $1 if $near_obj =~ m,(.*)\.,s; # put ExportList near OBJ # XXX _do_link does not have place to put libraries? push @$objs, $self->perl_inc() . "/libperl$self->{config}{lib_ext}"; $args{objects} = $objs; } # Some 'env' do exec(), thus return too early when run from ksh; # To avoid 'env', remove (useless) shrpenv local $self->{config}{shrpenv} = ''; return $self->SUPER::_do_link($how, %args); } sub extra_link_args_after_prelink { # Add .DEF file to the link line my ($self, %args) = @_; my @DEF = grep /\.def$/i, @{$args{prelink_res}}; die "More than one .def files created by 'prelink' stage" if @DEF > 1; # XXXX No "$how" argument here, so how to test for dynamic link? die "No .def file created by 'prelink' stage" unless @DEF or not @{$args{prelink_res}}; my @after_libs = ($OS2::is_aout ? () : $self->perl_inc() . "/libperl_override$self->{config}{lib_ext}"); # , "-L", "-lperl" (@after_libs, @DEF); } sub link_executable { # ldflags is not expecting .exe extension given on command line; remove -Zexe my $self = shift; local $self->{config}{ldflags} = $self->{config}{ldflags}; $self->{config}{ldflags} =~ s/(?<!\S)-Zexe(?!\S)//; return $self->SUPER::link_executable(@_); } 1; PK ! v�䒬 � , 5.34.0/ExtUtils/CBuilder/Platform/dec_osf.pmnu �[��� package ExtUtils::CBuilder::Platform::dec_osf; use warnings; use strict; use ExtUtils::CBuilder::Platform::Unix; use File::Spec; our $VERSION = '0.280236'; # VERSION our @ISA = qw(ExtUtils::CBuilder::Platform::Unix); sub link_executable { my $self = shift; # $Config{ld} is 'ld' but that won't work: use the cc instead. local $self->{config}{ld} = $self->{config}{cc}; return $self->SUPER::link_executable(@_); } 1; PK ! ���� � + 5.34.0/ExtUtils/CBuilder/Platform/darwin.pmnu �[��� package ExtUtils::CBuilder::Platform::darwin; use warnings; use strict; use ExtUtils::CBuilder::Platform::Unix; our $VERSION = '0.280236'; # VERSION our @ISA = qw(ExtUtils::CBuilder::Platform::Unix); sub compile { my $self = shift; my $cf = $self->{config}; # -flat_namespace isn't a compile flag, it's a linker flag. But # it's mistakenly in Config.pm as both. Make the correction here. local $cf->{ccflags} = $cf->{ccflags}; $cf->{ccflags} =~ s/-flat_namespace//; # XCode 12 makes this fatal, breaking tons of XS modules $cf->{ccflags} .= ($cf->{ccflags} ? ' ' : '').'-Wno-error=implicit-function-declaration'; $self->SUPER::compile(@_); } 1; PK ! D�� ) 5.34.0/ExtUtils/CBuilder/Platform/Unix.pmnu �[��� package ExtUtils::CBuilder::Platform::Unix; use warnings; use strict; use ExtUtils::CBuilder::Base; our $VERSION = '0.280236'; # VERSION our @ISA = qw(ExtUtils::CBuilder::Base); sub link_executable { my $self = shift; # On some platforms (which ones??) $Config{cc} seems to be a better # bet for linking executables than $Config{ld}. Cygwin is a notable # exception. local $self->{config}{ld} = $self->{config}{cc} . " " . $self->{config}{ldflags}; return $self->SUPER::link_executable(@_); } sub link { my $self = shift; my $cf = $self->{config}; # Some platforms (notably Mac OS X 10.3, but some others too) expect # the syntax "FOO=BAR /bin/command arg arg" to work in %Config # (notably $Config{ld}). It usually works in system(SCALAR), but we # use system(LIST). We fix it up here with 'env'. local $cf->{ld} = $cf->{ld}; if (ref $cf->{ld}) { unshift @{$cf->{ld}}, 'env' if $cf->{ld}[0] =~ /^\s*\w+=/; } else { $cf->{ld} =~ s/^(\s*\w+=)/env $1/; } return $self->SUPER::link(@_); } 1; PK ! �*�#* #* 5.34.0/ExtUtils/CBuilder/Base.pmnu �[��� package ExtUtils::CBuilder::Base; use strict; use warnings; use File::Spec; use File::Basename; use Cwd (); use Config; use Text::ParseWords; use IPC::Cmd qw(can_run); use File::Temp qw(tempfile); our $VERSION = '0.280236'; # VERSION # More details about C/C++ compilers: # http://developers.sun.com/sunstudio/documentation/product/compiler.jsp # http://gcc.gnu.org/ # http://publib.boulder.ibm.com/infocenter/comphelp/v101v121/index.jsp # http://msdn.microsoft.com/en-us/vstudio/default.aspx my %cc2cxx = ( # first line order is important to support wrappers like in pkgsrc cc => [ 'c++', 'CC', 'aCC', 'cxx', ], # Sun Studio, HP ANSI C/C++ Compilers gcc => [ 'g++' ], # GNU Compiler Collection xlc => [ 'xlC' ], # IBM C/C++ Set, xlc without thread-safety xlc_r => [ 'xlC_r' ], # IBM C/C++ Set, xlc with thread-safety cl => [ 'cl' ], # Microsoft Visual Studio ); sub new { my $class = shift; my $self = bless {@_}, $class; $self->{properties}{perl} = $class->find_perl_interpreter or warn "Warning: Can't locate your perl binary"; while (my ($k,$v) = each %Config) { $self->{config}{$k} = $v unless exists $self->{config}{$k}; } $self->{config}{cc} = $ENV{CC} if defined $ENV{CC}; $self->{config}{ccflags} = join(" ", $self->{config}{ccflags}, $ENV{CFLAGS}) if defined $ENV{CFLAGS}; $self->{config}{cxx} = $ENV{CXX} if defined $ENV{CXX}; $self->{config}{cxxflags} = $ENV{CXXFLAGS} if defined $ENV{CXXFLAGS}; $self->{config}{ld} = $ENV{LD} if defined $ENV{LD}; $self->{config}{ldflags} = join(" ", $self->{config}{ldflags}, $ENV{LDFLAGS}) if defined $ENV{LDFLAGS}; unless ( exists $self->{config}{cxx} ) { my ($ccbase, $ccpath, $ccsfx ) = fileparse($self->{config}{cc}, qr/\.[^.]*/); ## If the path is just "cc", fileparse returns $ccpath as "./" $ccpath = "" if $self->{config}{cc} =~ /^\Q$ccbase$ccsfx\E$/; foreach my $cxx (@{$cc2cxx{$ccbase}}) { my $cxx1 = File::Spec->catfile( $ccpath, $cxx . $ccsfx); if( can_run( $cxx1 ) ) { $self->{config}{cxx} = $cxx1; last; } my $cxx2 = $cxx . $ccsfx; if( can_run( $cxx2 ) ) { $self->{config}{cxx} = $cxx2; last; } if( can_run( $cxx ) ) { $self->{config}{cxx} = $cxx; last; } } unless ( exists $self->{config}{cxx} ) { $self->{config}{cxx} = $self->{config}{cc}; my $cflags = $self->{config}{ccflags}; $self->{config}{cxxflags} = '-x c++'; $self->{config}{cxxflags} .= " $cflags" if defined $cflags; } } return $self; } sub find_perl_interpreter { my $perl; File::Spec->file_name_is_absolute($perl = $^X) or -f ($perl = $Config::Config{perlpath}) or ($perl = $^X); # XXX how about using IPC::Cmd::can_run here? return $perl; } sub add_to_cleanup { my $self = shift; foreach (@_) { $self->{files_to_clean}{$_} = 1; } } sub cleanup { my $self = shift; foreach my $file (keys %{$self->{files_to_clean}}) { unlink $file; } } sub get_config { return %{ $_[0]->{config} }; } sub object_file { my ($self, $filename) = @_; # File name, minus the suffix (my $file_base = $filename) =~ s/\.[^.]+$//; return "$file_base$self->{config}{obj_ext}"; } sub arg_include_dirs { my $self = shift; return map {"-I$_"} @_; } sub arg_nolink { '-c' } sub arg_object_file { my ($self, $file) = @_; return ('-o', $file); } sub arg_share_object_file { my ($self, $file) = @_; return ($self->split_like_shell($self->{config}{lddlflags}), '-o', $file); } sub arg_exec_file { my ($self, $file) = @_; return ('-o', $file); } sub arg_defines { my ($self, %args) = @_; return map "-D$_=$args{$_}", sort keys %args; } sub compile { my ($self, %args) = @_; die "Missing 'source' argument to compile()" unless defined $args{source}; my $cf = $self->{config}; # For convenience my $object_file = $args{object_file} ? $args{object_file} : $self->object_file($args{source}); my $include_dirs_ref = (exists($args{include_dirs}) && ref($args{include_dirs}) ne "ARRAY") ? [ $args{include_dirs} ] : $args{include_dirs}; my @include_dirs = $self->arg_include_dirs( @{ $include_dirs_ref || [] }, $self->perl_inc(), ); my @defines = $self->arg_defines( %{$args{defines} || {}} ); my @extra_compiler_flags = $self->split_like_shell($args{extra_compiler_flags}); my @cccdlflags = $self->split_like_shell($cf->{cccdlflags}); my @ccflags = $self->split_like_shell($args{'C++'} ? $cf->{cxxflags} : $cf->{ccflags}); my @optimize = $self->split_like_shell($cf->{optimize}); my @flags = ( @include_dirs, @defines, @cccdlflags, @extra_compiler_flags, $self->arg_nolink, @ccflags, @optimize, $self->arg_object_file($object_file), ); my @cc = $self->split_like_shell($args{'C++'} ? $cf->{cxx} : $cf->{cc}); $self->do_system(@cc, @flags, $args{source}) or die "error building $object_file from '$args{source}'"; return $object_file; } sub have_compiler { my ($self, $is_cplusplus) = @_; my $have_compiler_flag = $is_cplusplus ? "have_cxx" : "have_cc"; my $suffix = $is_cplusplus ? ".cc" : ".c"; return $self->{$have_compiler_flag} if defined $self->{$have_compiler_flag}; my $result; my $attempts = 3; # tmpdir has issues for some people so fall back to current dir # don't clobber existing files (rare, but possible) my ( $FH, $tmpfile ) = tempfile( "compilet-XXXXX", SUFFIX => $suffix ); binmode $FH; if ( $is_cplusplus ) { print $FH "class Bogus { public: int boot_compilet() { return 1; } };\n"; } else { print $FH "int boot_compilet() { return 1; }\n"; } close $FH; my ($obj_file, @lib_files); eval { local $^W = 0; local $self->{quiet} = 1; $obj_file = $self->compile('C++' => $is_cplusplus, source => $tmpfile); @lib_files = $self->link(objects => $obj_file, module_name => 'compilet'); }; $result = $@ ? 0 : 1; foreach (grep defined, $tmpfile, $obj_file, @lib_files) { 1 while unlink; } return $self->{$have_compiler_flag} = $result; } sub have_cplusplus { push @_, 1; goto &have_compiler; } sub lib_file { my ($self, $dl_file, %args) = @_; $dl_file =~ s/\.[^.]+$//; $dl_file =~ tr/"//d; if (defined $args{module_name} and length $args{module_name}) { # Need to create with the same name as DynaLoader will load with. require DynaLoader; if (defined &DynaLoader::mod2fname) { my $lib = DynaLoader::mod2fname([split /::/, $args{module_name}]); my ($dev, $lib_dir, undef) = File::Spec->splitpath($dl_file); $dl_file = File::Spec->catpath($dev, $lib_dir, $lib); } } $dl_file .= ".$self->{config}{dlext}"; return $dl_file; } sub exe_file { my ($self, $dl_file) = @_; $dl_file =~ s/\.[^.]+$//; $dl_file =~ tr/"//d; return "$dl_file$self->{config}{_exe}"; } sub need_prelink { 0 } sub extra_link_args_after_prelink { return } sub prelink { my ($self, %args) = @_; my ($dl_file_out, $mksymlists_args) = _prepare_mksymlists_args(\%args); require ExtUtils::Mksymlists; # dl. abbrev for dynamic library ExtUtils::Mksymlists::Mksymlists( %{ $mksymlists_args } ); # Mksymlists will create one of these files return grep -e, map "$dl_file_out.$_", qw(ext def opt); } sub _prepare_mksymlists_args { my $args = shift; ($args->{dl_file} = $args->{dl_name}) =~ s/.*::// unless $args->{dl_file}; my %mksymlists_args = ( DL_VARS => $args->{dl_vars} || [], DL_FUNCS => $args->{dl_funcs} || {}, FUNCLIST => $args->{dl_func_list} || [], IMPORTS => $args->{dl_imports} || {}, NAME => $args->{dl_name}, # Name of the Perl module DLBASE => $args->{dl_base}, # Basename of DLL file FILE => $args->{dl_file}, # Dir + Basename of symlist file VERSION => (defined $args->{dl_version} ? $args->{dl_version} : '0.0'), ); return ($args->{dl_file}, \%mksymlists_args); } sub link { my ($self, %args) = @_; return $self->_do_link('lib_file', lddl => 1, %args); } sub link_executable { my ($self, %args) = @_; return $self->_do_link('exe_file', lddl => 0, %args); } sub _do_link { my ($self, $type, %args) = @_; my $cf = $self->{config}; # For convenience my $objects = delete $args{objects}; $objects = [$objects] unless ref $objects; my $out = $args{$type} || $self->$type($objects->[0], %args); my @temp_files; @temp_files = $self->prelink(%args, dl_name => $args{module_name}) if $args{lddl} && $self->need_prelink; my @linker_flags = ( $self->split_like_shell($args{extra_linker_flags}), $self->extra_link_args_after_prelink( %args, dl_name => $args{module_name}, prelink_res => \@temp_files ) ); my @output = $args{lddl} ? $self->arg_share_object_file($out) : $self->arg_exec_file($out); my @shrp = $self->split_like_shell($cf->{shrpenv}); my @ld = $self->split_like_shell($cf->{ld}); $self->do_system(@shrp, @ld, @output, @$objects, @linker_flags) or die "error building $out from @$objects"; return wantarray ? ($out, @temp_files) : $out; } sub do_system { my ($self, @cmd) = @_; print "@cmd\n" if !$self->{quiet}; return !system(@cmd); } sub split_like_shell { my ($self, $string) = @_; return () unless defined($string); return @$string if UNIVERSAL::isa($string, 'ARRAY'); $string =~ s/^\s+|\s+$//g; return () unless length($string); # Text::ParseWords replaces all 'escaped' characters with themselves, which completely # breaks paths under windows. As such, we forcibly replace backwards slashes with forward # slashes on windows. $string =~ s@\\@/@g if $^O eq 'MSWin32'; return Text::ParseWords::shellwords($string); } # if building perl, perl's main source directory sub perl_src { # N.B. makemaker actually searches regardless of PERL_CORE, but # only squawks at not finding it if PERL_CORE is set return unless $ENV{PERL_CORE}; my $Updir = File::Spec->updir; my $dir = File::Spec->curdir; # Try up to 5 levels upwards for (0..10) { if ( -f File::Spec->catfile($dir,"config_h.SH") && -f File::Spec->catfile($dir,"perl.h") && -f File::Spec->catfile($dir,"lib","Exporter.pm") ) { return Cwd::realpath( $dir ); } $dir = File::Spec->catdir($dir, $Updir); } warn "PERL_CORE is set but I can't find your perl source!\n"; return ''; # return empty string if $ENV{PERL_CORE} but can't find dir ??? } # directory of perl's include files sub perl_inc { my $self = shift; $self->perl_src() || File::Spec->catdir($self->{config}{archlibexp},"CORE"); } sub DESTROY { my $self = shift; local($., $@, $!, $^E, $?); $self->cleanup(); } 1; # vim: ts=2 sw=2 et: PK ! T�� � 5.34.0/ExtUtils/MM_VOS.pmnu �[��� package ExtUtils::MM_VOS; use strict; use warnings; our $VERSION = '7.62'; $VERSION =~ tr/_//d; require ExtUtils::MM_Unix; our @ISA = qw(ExtUtils::MM_Unix); =head1 NAME ExtUtils::MM_VOS - VOS specific subclass of ExtUtils::MM_Unix =head1 SYNOPSIS Don't use this module directly. Use ExtUtils::MM and let it choose. =head1 DESCRIPTION This is a subclass of L<ExtUtils::MM_Unix> which contains functionality for VOS. Unless otherwise stated it works just like ExtUtils::MM_Unix. =head2 Overridden methods =head3 extra_clean_files Cleanup VOS core files =cut sub extra_clean_files { return qw(*.kp); } =head1 AUTHOR Michael G Schwern <schwern@pobox.com> with code from ExtUtils::MM_Unix =head1 SEE ALSO L<ExtUtils::MakeMaker> =cut 1; PK ! �F�� � 5.34.0/ExtUtils/MM_QNX.pmnu �[��� package ExtUtils::MM_QNX; use strict; use warnings; our $VERSION = '7.62'; $VERSION =~ tr/_//d; require ExtUtils::MM_Unix; our @ISA = qw(ExtUtils::MM_Unix); =head1 NAME ExtUtils::MM_QNX - QNX specific subclass of ExtUtils::MM_Unix =head1 SYNOPSIS Don't use this module directly. Use ExtUtils::MM and let it choose. =head1 DESCRIPTION This is a subclass of L<ExtUtils::MM_Unix> which contains functionality for QNX. Unless otherwise stated it works just like ExtUtils::MM_Unix. =head2 Overridden methods =head3 extra_clean_files Add .err files corresponding to each .c file. =cut sub extra_clean_files { my $self = shift; my @errfiles = @{$self->{C}}; for ( @errfiles ) { s/.c$/.err/; } return( @errfiles, 'perlmain.err' ); } =head1 AUTHOR Michael G Schwern <schwern@pobox.com> with code from ExtUtils::MM_Unix =head1 SEE ALSO L<ExtUtils::MakeMaker> =cut 1; PK ! ��*%% %% 5.34.0/ExtUtils/Liblist.pmnu �[��� package ExtUtils::Liblist; use strict; use warnings; our $VERSION = '7.62'; $VERSION =~ tr/_//d; use File::Spec; require ExtUtils::Liblist::Kid; our @ISA = qw(ExtUtils::Liblist::Kid File::Spec); # Backwards compatibility with old interface. sub ext { goto &ExtUtils::Liblist::Kid::ext; } sub lsdir { shift; my $rex = qr/$_[1]/; opendir my $dir_fh, $_[0]; my @out = grep /$rex/, readdir $dir_fh; closedir $dir_fh; return @out; } __END__ =head1 NAME ExtUtils::Liblist - determine libraries to use and how to use them =head1 SYNOPSIS require ExtUtils::Liblist; $MM->ext($potential_libs, $verbose, $need_names); # Usually you can get away with: ExtUtils::Liblist->ext($potential_libs, $verbose, $need_names) =head1 DESCRIPTION This utility takes a list of libraries in the form C<-llib1 -llib2 -llib3> and returns lines suitable for inclusion in an extension Makefile. Extra library paths may be included with the form C<-L/another/path> this will affect the searches for all subsequent libraries. It returns an array of four or five scalar values: EXTRALIBS, BSLOADLIBS, LDLOADLIBS, LD_RUN_PATH, and, optionally, a reference to the array of the filenames of actual libraries. Some of these don't mean anything unless on Unix. See the details about those platform specifics below. The list of the filenames is returned only if $need_names argument is true. Dependent libraries can be linked in one of three ways: =over 2 =item * For static extensions by the ld command when the perl binary is linked with the extension library. See EXTRALIBS below. =item * For dynamic extensions at build/link time by the ld command when the shared object is built/linked. See LDLOADLIBS below. =item * For dynamic extensions at load time by the DynaLoader when the shared object is loaded. See BSLOADLIBS below. =back =head2 EXTRALIBS List of libraries that need to be linked with when linking a perl binary which includes this extension. Only those libraries that actually exist are included. These are written to a file and used when linking perl. =head2 LDLOADLIBS and LD_RUN_PATH List of those libraries which can or must be linked into the shared library when created using ld. These may be static or dynamic libraries. LD_RUN_PATH is a colon separated list of the directories in LDLOADLIBS. It is passed as an environment variable to the process that links the shared library. =head2 BSLOADLIBS List of those libraries that are needed but can be linked in dynamically at run time on this platform. SunOS/Solaris does not need this because ld records the information (from LDLOADLIBS) into the object file. This list is used to create a .bs (bootstrap) file. =head1 PORTABILITY This module deals with a lot of system dependencies and has quite a few architecture specific C<if>s in the code. =head2 VMS implementation The version of ext() which is executed under VMS differs from the Unix-OS/2 version in several respects: =over 2 =item * Input library and path specifications are accepted with or without the C<-l> and C<-L> prefixes used by Unix linkers. If neither prefix is present, a token is considered a directory to search if it is in fact a directory, and a library to search for otherwise. Authors who wish their extensions to be portable to Unix or OS/2 should use the Unix prefixes, since the Unix-OS/2 version of ext() requires them. =item * Wherever possible, shareable images are preferred to object libraries, and object libraries to plain object files. In accordance with VMS naming conventions, ext() looks for files named I<lib>shr and I<lib>rtl; it also looks for I<lib>lib and libI<lib> to accommodate Unix conventions used in some ported software. =item * For each library that is found, an appropriate directive for a linker options file is generated. The return values are space-separated strings of these directives, rather than elements used on the linker command line. =item * LDLOADLIBS contains both the libraries found based on C<$potential_libs> and the CRTLs, if any, specified in Config.pm. EXTRALIBS contains just those libraries found based on C<$potential_libs>. BSLOADLIBS and LD_RUN_PATH are always empty. =back In addition, an attempt is made to recognize several common Unix library names, and filter them out or convert them to their VMS equivalents, as appropriate. In general, the VMS version of ext() should properly handle input from extensions originally designed for a Unix or VMS environment. If you encounter problems, or discover cases where the search could be improved, please let us know. =head2 Win32 implementation The version of ext() which is executed under Win32 differs from the Unix-OS/2 version in several respects: =over 2 =item * If C<$potential_libs> is empty, the return value will be empty. Otherwise, the libraries specified by C<$Config{perllibs}> (see Config.pm) will be appended to the list of C<$potential_libs>. The libraries will be searched for in the directories specified in C<$potential_libs>, C<$Config{libpth}>, and in C<$Config{installarchlib}/CORE>. For each library that is found, a space-separated list of fully qualified library pathnames is generated. =item * Input library and path specifications are accepted with or without the C<-l> and C<-L> prefixes used by Unix linkers. An entry of the form C<-La:\foo> specifies the C<a:\foo> directory to look for the libraries that follow. An entry of the form C<-lfoo> specifies the library C<foo>, which may be spelled differently depending on what kind of compiler you are using. If you are using GCC, it gets translated to C<libfoo.a>, but for other win32 compilers, it becomes C<foo.lib>. If no files are found by those translated names, one more attempt is made to find them using either C<foo.a> or C<libfoo.lib>, depending on whether GCC or some other win32 compiler is being used, respectively. If neither the C<-L> or C<-l> prefix is present in an entry, the entry is considered a directory to search if it is in fact a directory, and a library to search for otherwise. The C<$Config{lib_ext}> suffix will be appended to any entries that are not directories and don't already have the suffix. Note that the C<-L> and C<-l> prefixes are B<not required>, but authors who wish their extensions to be portable to Unix or OS/2 should use the prefixes, since the Unix-OS/2 version of ext() requires them. =item * Entries cannot be plain object files, as many Win32 compilers will not handle object files in the place of libraries. =item * Entries in C<$potential_libs> beginning with a colon and followed by alphanumeric characters are treated as flags. Unknown flags will be ignored. An entry that matches C</:nodefault/i> disables the appending of default libraries found in C<$Config{perllibs}> (this should be only needed very rarely). An entry that matches C</:nosearch/i> disables all searching for the libraries specified after it. Translation of C<-Lfoo> and C<-lfoo> still happens as appropriate (depending on compiler being used, as reflected by C<$Config{cc}>), but the entries are not verified to be valid files or directories. An entry that matches C</:search/i> reenables searching for the libraries specified after it. You can put it at the end to enable searching for default libraries specified by C<$Config{perllibs}>. =item * The libraries specified may be a mixture of static libraries and import libraries (to link with DLLs). Since both kinds are used pretty transparently on the Win32 platform, we do not attempt to distinguish between them. =item * LDLOADLIBS and EXTRALIBS are always identical under Win32, and BSLOADLIBS and LD_RUN_PATH are always empty (this may change in future). =item * You must make sure that any paths and path components are properly surrounded with double-quotes if they contain spaces. For example, C<$potential_libs> could be (literally): "-Lc:\Program Files\vc\lib" msvcrt.lib "la test\foo bar.lib" Note how the first and last entries are protected by quotes in order to protect the spaces. =item * Since this module is most often used only indirectly from extension C<Makefile.PL> files, here is an example C<Makefile.PL> entry to add a library to the build process for an extension: LIBS => ['-lgl'] When using GCC, that entry specifies that MakeMaker should first look for C<libgl.a> (followed by C<gl.a>) in all the locations specified by C<$Config{libpth}>. When using a compiler other than GCC, the above entry will search for C<gl.lib> (followed by C<libgl.lib>). If the library happens to be in a location not in C<$Config{libpth}>, you need: LIBS => ['-Lc:\gllibs -lgl'] Here is a less often used example: LIBS => ['-lgl', ':nosearch -Ld:\mesalibs -lmesa -luser32'] This specifies a search for library C<gl> as before. If that search fails to find the library, it looks at the next item in the list. The C<:nosearch> flag will prevent searching for the libraries that follow, so it simply returns the value as C<-Ld:\mesalibs -lmesa -luser32>, since GCC can use that value as is with its linker. When using the Visual C compiler, the second item is returned as C<-libpath:d:\mesalibs mesa.lib user32.lib>. When using the Borland compiler, the second item is returned as C<-Ld:\mesalibs mesa.lib user32.lib>, and MakeMaker takes care of moving the C<-Ld:\mesalibs> to the correct place in the linker command line. =back =head1 SEE ALSO L<ExtUtils::MakeMaker> =cut PK ! ��m0s s & 5.34.0/ExtUtils/MakeMaker/Tutorial.podnu �[��� package ExtUtils::MakeMaker::Tutorial; our $VERSION = '7.62'; $VERSION =~ tr/_//d; =head1 NAME ExtUtils::MakeMaker::Tutorial - Writing a module with MakeMaker =head1 SYNOPSIS use ExtUtils::MakeMaker; WriteMakefile( NAME => 'Your::Module', VERSION_FROM => 'lib/Your/Module.pm' ); =head1 DESCRIPTION This is a short tutorial on writing a simple module with MakeMaker. It's really not that hard. =head2 The Mantra MakeMaker modules are installed using this simple mantra perl Makefile.PL make make test make install There are lots more commands and options, but the above will do it. =head2 The Layout The basic files in a module look something like this. Makefile.PL MANIFEST lib/Your/Module.pm That's all that's strictly necessary. There's additional files you might want: lib/Your/Other/Module.pm t/some_test.t t/some_other_test.t Changes README INSTALL MANIFEST.SKIP bin/some_program =over 4 =item Makefile.PL When you run Makefile.PL, it makes a Makefile. That's the whole point of MakeMaker. The Makefile.PL is a simple program which loads ExtUtils::MakeMaker and runs the WriteMakefile() function to generate a Makefile. Here's an example of what you need for a simple module: use ExtUtils::MakeMaker; WriteMakefile( NAME => 'Your::Module', VERSION_FROM => 'lib/Your/Module.pm' ); NAME is the top-level namespace of your module. VERSION_FROM is the file which contains the $VERSION variable for the entire distribution. Typically this is the same as your top-level module. =item MANIFEST A simple listing of all the files in your distribution. Makefile.PL MANIFEST lib/Your/Module.pm File paths in a MANIFEST always use Unix conventions (ie. /) even if you're not on Unix. You can write this by hand or generate it with 'make manifest'. See L<ExtUtils::Manifest> for more details. =item lib/ This is the directory where the .pm and .pod files you wish to have installed go. They are laid out according to namespace. So Foo::Bar is F<lib/Foo/Bar.pm>. =item t/ Tests for your modules go here. Each test filename ends with a .t. So F<t/foo.t> 'make test' will run these tests. Typically, the F<t/> test directory is flat, with all test files located directly within it. However, you can nest tests within subdirectories, for example: t/foo/subdir_test.t To do this, you need to inform C<WriteMakeFile()> in your I<Makefile.PL> file in the following fashion: test => {TESTS => 't/*.t t/*/*.t'} That will run all tests in F<t/>, as well as all tests in all subdirectories that reside under F<t/>. You can nest as deeply as makes sense for your project. Simply add another entry in the test location string. For example, to test: t/foo/bar/subdir_test.t You would use the following C<test> directive: test => {TESTS => 't/*.t t/*/*/*.t'} Note that in the above example, tests in the first subdirectory will not be run. To run all tests in the intermediary subdirectory preceding the one the test files are in, you need to explicitly note it: test => {TESTS => 't/*.t t/*/*.t t/*/*/*.t'} You don't need to specify wildcards if you only want to test within specific subdirectories. The following example will only run tests in F<t/foo>: test => {TESTS => 't/foo/*.t'} Tests are run from the top level of your distribution. So inside a test you would refer to ./lib to enter the lib directory, for example. =item Changes A log of changes you've made to this module. The layout is free-form. Here's an example: 1.01 Fri Apr 11 00:21:25 PDT 2003 - thing() does some stuff now - fixed the wiggy bug in withit() 1.00 Mon Apr 7 00:57:15 PDT 2003 - "Rain of Frogs" now supported =item README A short description of your module, what it does, why someone would use it and its limitations. CPAN automatically pulls your README file out of the archive and makes it available to CPAN users, it is the first thing they will read to decide if your module is right for them. =item INSTALL Instructions on how to install your module along with any dependencies. Suggested information to include here: any extra modules required for use the minimum version of Perl required if only works on certain operating systems =item MANIFEST.SKIP A file full of regular expressions to exclude when using 'make manifest' to generate the MANIFEST. These regular expressions are checked against each file path found in the distribution (so you're matching against "t/foo.t" not "foo.t"). Here's a sample: ~$ # ignore emacs and vim backup files .bak$ # ignore manual backups \# # ignore CVS old revision files and emacs temp files Since # can be used for comments, # must be escaped. MakeMaker comes with a default MANIFEST.SKIP to avoid things like version control directories and backup files. Specifying your own will override this default. =item bin/ =back =head1 SEE ALSO L<perlmodstyle> gives stylistic help writing a module. L<perlnewmod> gives more information about how to write a module. There are modules to help you through the process of writing a module: L<ExtUtils::ModuleMaker>, L<Module::Starter>, L<Minilla::Tutorial>, L<Dist::Milla::Tutorial>, L<Dist::Zilla::Starter> =cut 1; PK ! ��BZ Z # 5.34.0/ExtUtils/MakeMaker/Config.pmnu �[��� package ExtUtils::MakeMaker::Config; use strict; use warnings; our $VERSION = '7.62'; $VERSION =~ tr/_//d; use Config (); # Give us an overridable config. our %Config = %Config::Config; sub import { my $caller = caller; no strict 'refs'; ## no critic *{$caller.'::Config'} = \%Config; } 1; =head1 NAME ExtUtils::MakeMaker::Config - Wrapper around Config.pm =head1 SYNOPSIS use ExtUtils::MakeMaker::Config; print $Config{installbin}; # or whatever =head1 DESCRIPTION B<FOR INTERNAL USE ONLY> A very thin wrapper around Config.pm so MakeMaker is easier to test. =cut PK ! B���JO JO ! 5.34.0/ExtUtils/MakeMaker/FAQ.podnu �[��� package ExtUtils::MakeMaker::FAQ; our $VERSION = '7.62'; $VERSION =~ tr/_//d; 1; __END__ =head1 NAME ExtUtils::MakeMaker::FAQ - Frequently Asked Questions About MakeMaker =head1 DESCRIPTION FAQs, tricks and tips for L<ExtUtils::MakeMaker>. =head2 Module Installation =over 4 =item How do I install a module into my home directory? If you're not the Perl administrator you probably don't have permission to install a module to its default location. Ways of handling this with a B<lot> less manual effort on your part are L<perlbrew> and L<local::lib>. Otherwise, you can install it for your own use into your home directory like so: # Non-unix folks, replace ~ with /path/to/your/home/dir perl Makefile.PL INSTALL_BASE=~ This will put modules into F<~/lib/perl5>, man pages into F<~/man> and programs into F<~/bin>. To ensure your Perl programs can see these newly installed modules, set your C<PERL5LIB> environment variable to F<~/lib/perl5> or tell each of your programs to look in that directory with the following: use lib "$ENV{HOME}/lib/perl5"; or if $ENV{HOME} isn't set and you don't want to set it for some reason, do it the long way. use lib "/path/to/your/home/dir/lib/perl5"; =item How do I get MakeMaker and Module::Build to install to the same place? Module::Build, as of 0.28, supports two ways to install to the same location as MakeMaker. We highly recommend the install_base method, its the simplest and most closely approximates the expected behavior of an installation prefix. 1) Use INSTALL_BASE / C<--install_base> MakeMaker (as of 6.31) and Module::Build (as of 0.28) both can install to the same locations using the "install_base" concept. See L<ExtUtils::MakeMaker/INSTALL_BASE> for details. To get MM and MB to install to the same location simply set INSTALL_BASE in MM and C<--install_base> in MB to the same location. perl Makefile.PL INSTALL_BASE=/whatever perl Build.PL --install_base /whatever This works most like other language's behavior when you specify a prefix. We recommend this method. 2) Use PREFIX / C<--prefix> Module::Build 0.28 added support for C<--prefix> which works like MakeMaker's PREFIX. perl Makefile.PL PREFIX=/whatever perl Build.PL --prefix /whatever We highly discourage this method. It should only be used if you know what you're doing and specifically need the PREFIX behavior. The PREFIX algorithm is complicated and focused on matching the system installation. =item How do I keep from installing man pages? Recent versions of MakeMaker will only install man pages on Unix-like operating systems by default. To generate manpages on non-Unix operating systems, make the "manifypods" target. For an individual module: perl Makefile.PL INSTALLMAN1DIR=none INSTALLMAN3DIR=none If you want to suppress man page installation for all modules you have to reconfigure Perl and tell it 'none' when it asks where to install man pages. =item How do I use a module without installing it? Two ways. One is to build the module normally... perl Makefile.PL make make test ...and then use L<blib> to point Perl at the built but uninstalled module: perl -Mblib script.pl perl -Mblib -e '...' The other is to install the module in a temporary location. perl Makefile.PL INSTALL_BASE=~/tmp make make test make install And then set PERL5LIB to F<~/tmp/lib/perl5>. This works well when you have multiple modules to work with. It also ensures that the module goes through its full installation process which may modify it. Again, L<local::lib> may assist you here. =item How can I organize tests into subdirectories and have them run? Let's take the following test directory structure: t/foo/sometest.t t/bar/othertest.t t/bar/baz/anothertest.t Now, inside of the C<WriteMakeFile()> function in your F<Makefile.PL>, specify where your tests are located with the C<test> directive: test => {TESTS => 't/*.t t/*/*.t t/*/*/*.t'} The first entry in the string will run all tests in the top-level F<t/> directory. The second will run all test files located in any subdirectory under F<t/>. The third, runs all test files within any subdirectory within any other subdirectory located under F<t/>. Note that you do not have to use wildcards. You can specify explicitly which subdirectories to run tests in: test => {TESTS => 't/*.t t/foo/*.t t/bar/baz/*.t'} =item PREFIX vs INSTALL_BASE from Module::Build::Cookbook The behavior of PREFIX is complicated and depends closely on how your Perl is configured. The resulting installation locations will vary from machine to machine and even different installations of Perl on the same machine. Because of this, its difficult to document where prefix will place your modules. In contrast, INSTALL_BASE has predictable, easy to explain installation locations. Now that Module::Build and MakeMaker both have INSTALL_BASE there is little reason to use PREFIX other than to preserve your existing installation locations. If you are starting a fresh Perl installation we encourage you to use INSTALL_BASE. If you have an existing installation installed via PREFIX, consider moving it to an installation structure matching INSTALL_BASE and using that instead. =item Generating *.pm files with substitutions eg of $VERSION If you want to configure your module files for local conditions, or to automatically insert a version number, you can use EUMM's C<PL_FILES> capability, where it will automatically run each F<*.PL> it finds to generate its basename. For instance: # Makefile.PL: require 'common.pl'; my $version = get_version(); my @pms = qw(Foo.pm); WriteMakefile( NAME => 'Foo', VERSION => $version, PM => { map { ($_ => "\$(INST_LIB)/$_") } @pms }, clean => { FILES => join ' ', @pms }, ); # common.pl: sub get_version { '0.04' } sub process { my $v = get_version(); s/__VERSION__/$v/g; } 1; # Foo.pm.PL: require 'common.pl'; $_ = join '', <DATA>; process(); my $file = shift; open my $fh, '>', $file or die "$file: $!"; print $fh $_; __DATA__ package Foo; our $VERSION = '__VERSION__'; 1; You may notice that C<PL_FILES> is not specified above, since the default of mapping each .PL file to its basename works well. If the generated module were architecture-specific, you could replace C<$(INST_LIB)> above with C<$(INST_ARCHLIB)>, although if you locate modules under F<lib>, that would involve ensuring any C<lib/> in front of the module location were removed. =back =head2 Common errors and problems =over 4 =item "No rule to make target `/usr/lib/perl5/CORE/config.h', needed by `Makefile'" Just what it says, you're missing that file. MakeMaker uses it to determine if perl has been rebuilt since the Makefile was made. It's a bit of a bug that it halts installation. Some operating systems don't ship the CORE directory with their base perl install. To solve the problem, you likely need to install a perl development package such as perl-devel (CentOS, Fedora and other Redhat systems) or perl (Ubuntu and other Debian systems). =back =head2 Philosophy and History =over 4 =item Why not just use <insert other build config tool here>? Why did MakeMaker reinvent the build configuration wheel? Why not just use autoconf or automake or ppm or Ant or ... There are many reasons, but the major one is cross-platform compatibility. Perl is one of the most ported pieces of software ever. It works on operating systems I've never even heard of (see perlport for details). It needs a build tool that can work on all those platforms and with any wacky C compilers and linkers they might have. No such build tool exists. Even make itself has wildly different dialects. So we have to build our own. =item What is Module::Build and how does it relate to MakeMaker? Module::Build is a project by Ken Williams to supplant MakeMaker. Its primary advantages are: =over 8 =item * pure perl. no make, no shell commands =item * easier to customize =item * cleaner internals =item * less cruft =back Module::Build was long the official heir apparent to MakeMaker. The rate of both its development and adoption has slowed in recent years, though, and it is unclear what the future holds for it. That said, Module::Build set the stage for I<something> to become the heir to MakeMaker. MakeMaker's maintainers have long said that it is a dead end and should be kept functioning, while being cautious about extending with new features. =back =head2 Module Writing =over 4 =item How do I keep my $VERSION up to date without resetting it manually? Often you want to manually set the $VERSION in the main module distribution because this is the version that everybody sees on CPAN and maybe you want to customize it a bit. But for all the other modules in your dist, $VERSION is really just bookkeeping and all that's important is it goes up every time the module is changed. Doing this by hand is a pain and you often forget. Probably the easiest way to do this is using F<perl-reversion> in L<Perl::Version>: perl-reversion -bump If your version control system supports revision numbers (git doesn't easily), the simplest way to do it automatically is to use its revision number (you are using version control, right?). In CVS, RCS and SVN you use $Revision$ (see the documentation of your version control system for details). Every time the file is checked in the $Revision$ will be updated, updating your $VERSION. SVN uses a simple integer for $Revision$ so you can adapt it for your $VERSION like so: ($VERSION) = q$Revision$ =~ /(\d+)/; In CVS and RCS version 1.9 is followed by 1.10. Since CPAN compares version numbers numerically we use a sprintf() to convert 1.9 to 1.009 and 1.10 to 1.010 which compare properly. $VERSION = sprintf "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/g; If branches are involved (ie. $Revision: 1.5.3.4$) it's a little more complicated. # must be all on one line or MakeMaker will get confused. $VERSION = do { my @r = (q$Revision$ =~ /\d+/g); sprintf "%d."."%03d" x $#r, @r }; In SVN, $Revision$ should be the same for every file in the project so they would all have the same $VERSION. CVS and RCS have a different $Revision$ per file so each file will have a different $VERSION. Distributed version control systems, such as SVK, may have a different $Revision$ based on who checks out the file, leading to a different $VERSION on each machine! Finally, some distributed version control systems, such as darcs, have no concept of revision number at all. =item What's this F<META.yml> thing and how did it get in my F<MANIFEST>?! F<META.yml> is a module meta-data file pioneered by Module::Build and automatically generated as part of the 'distdir' target (and thus 'dist'). See L<ExtUtils::MakeMaker/"Module Meta-Data">. To shut off its generation, pass the C<NO_META> flag to C<WriteMakefile()>. =item How do I delete everything not in my F<MANIFEST>? Some folks are surprised that C<make distclean> does not delete everything not listed in their MANIFEST (thus making a clean distribution) but only tells them what they need to delete. This is done because it is considered too dangerous. While developing your module you might write a new file, not add it to the MANIFEST, then run a C<distclean> and be sad because your new work was deleted. If you really want to do this, you can use C<ExtUtils::Manifest::manifind()> to read the MANIFEST and File::Find to delete the files. But you have to be careful. Here's a script to do that. Use at your own risk. Have fun blowing holes in your foot. #!/usr/bin/perl -w use strict; use File::Spec; use File::Find; use ExtUtils::Manifest qw(maniread); my %manifest = map {( $_ => 1 )} grep { File::Spec->canonpath($_) } keys %{ maniread() }; if( !keys %manifest ) { print "No files found in MANIFEST. Stopping.\n"; exit; } find({ wanted => sub { my $path = File::Spec->canonpath($_); return unless -f $path; return if exists $manifest{ $path }; print "unlink $path\n"; unlink $path; }, no_chdir => 1 }, "." ); =item Which tar should I use on Windows? We recommend ptar from Archive::Tar not older than 1.66 with '-C' option. =item Which zip should I use on Windows for '[ndg]make zipdist'? We recommend InfoZIP: L<http://www.info-zip.org/Zip.html> =back =head2 XS =over 4 =item How do I prevent "object version X.XX does not match bootstrap parameter Y.YY" errors? XS code is very sensitive to the module version number and will complain if the version number in your Perl module doesn't match. If you change your module's version # without rerunning Makefile.PL the old version number will remain in the Makefile, causing the XS code to be built with the wrong number. To avoid this, you can force the Makefile to be rebuilt whenever you change the module containing the version number by adding this to your WriteMakefile() arguments. depend => { '$(FIRST_MAKEFILE)' => '$(VERSION_FROM)' } =item How do I make two or more XS files coexist in the same directory? Sometimes you need to have two and more XS files in the same package. There are three ways: C<XSMULTI>, separate directories, and bootstrapping one XS from another. =over 8 =item XSMULTI Structure your modules so they are all located under F<lib>, such that C<Foo::Bar> is in F<lib/Foo/Bar.pm> and F<lib/Foo/Bar.xs>, etc. Have your top-level C<WriteMakefile> set the variable C<XSMULTI> to a true value. Er, that's it. =item Separate directories Put each XS files into separate directories, each with their own F<Makefile.PL>. Make sure each of those F<Makefile.PL>s has the correct C<CFLAGS>, C<INC>, C<LIBS> etc. You will need to make sure the top-level F<Makefile.PL> refers to each of these using C<DIR>. =item Bootstrapping Let's assume that we have a package C<Cool::Foo>, which includes C<Cool::Foo> and C<Cool::Bar> modules each having a separate XS file. First we use the following I<Makefile.PL>: use ExtUtils::MakeMaker; WriteMakefile( NAME => 'Cool::Foo', VERSION_FROM => 'Foo.pm', OBJECT => q/$(O_FILES)/, # ... other attrs ... ); Notice the C<OBJECT> attribute. MakeMaker generates the following variables in I<Makefile>: # Handy lists of source code files: XS_FILES= Bar.xs \ Foo.xs C_FILES = Bar.c \ Foo.c O_FILES = Bar.o \ Foo.o Therefore we can use the C<O_FILES> variable to tell MakeMaker to use these objects into the shared library. That's pretty much it. Now write I<Foo.pm> and I<Foo.xs>, I<Bar.pm> and I<Bar.xs>, where I<Foo.pm> bootstraps the shared library and I<Bar.pm> simply loading I<Foo.pm>. The only issue left is to how to bootstrap I<Bar.xs>. This is done from I<Foo.xs>: MODULE = Cool::Foo PACKAGE = Cool::Foo BOOT: # boot the second XS file boot_Cool__Bar(aTHX_ cv); If you have more than two files, this is the place where you should boot extra XS files from. The following four files sum up all the details discussed so far. Foo.pm: ------- package Cool::Foo; require DynaLoader; our @ISA = qw(DynaLoader); our $VERSION = '0.01'; bootstrap Cool::Foo $VERSION; 1; Bar.pm: ------- package Cool::Bar; use Cool::Foo; # bootstraps Bar.xs 1; Foo.xs: ------- #include "EXTERN.h" #include "perl.h" #include "XSUB.h" MODULE = Cool::Foo PACKAGE = Cool::Foo BOOT: # boot the second XS file boot_Cool__Bar(aTHX_ cv); MODULE = Cool::Foo PACKAGE = Cool::Foo PREFIX = cool_foo_ void cool_foo_perl_rules() CODE: fprintf(stderr, "Cool::Foo says: Perl Rules\n"); Bar.xs: ------- #include "EXTERN.h" #include "perl.h" #include "XSUB.h" MODULE = Cool::Bar PACKAGE = Cool::Bar PREFIX = cool_bar_ void cool_bar_perl_rules() CODE: fprintf(stderr, "Cool::Bar says: Perl Rules\n"); And of course a very basic test: t/cool.t: -------- use Test; BEGIN { plan tests => 1 }; use Cool::Foo; use Cool::Bar; Cool::Foo::perl_rules(); Cool::Bar::perl_rules(); ok 1; This tip has been brought to you by Nick Ing-Simmons and Stas Bekman. An alternative way to achieve this can be seen in L<Gtk2::CodeGen> and L<Glib::CodeGen>. =back =back =head1 DESIGN =head2 MakeMaker object hierarchy (simplified) What most people need to know (superclasses on top.) ExtUtils::MM_Any | ExtUtils::MM_Unix | ExtUtils::MM_{Current OS} | ExtUtils::MakeMaker | MY The object actually used is of the class L<MY|ExtUtils::MY> which allows you to override bits of MakeMaker inside your Makefile.PL by declaring MY::foo() methods. =head2 MakeMaker object hierarchy (real) Here's how it really works: ExtUtils::MM_Any | ExtUtils::MM_Unix | ExtUtils::Liblist::Kid ExtUtils::MM_{Current OS} (if necessary) | | ExtUtils::Liblist ExtUtils::MakeMaker | | | | | | |----------------------- ExtUtils::MM | | ExtUtils::MY MM (created by ExtUtils::MM) | | MY (created by ExtUtils::MY) | . | (mixin) | . | PACK### (created each call to ExtUtils::MakeMaker->new) NOTE: Yes, this is a mess. See L<http://archive.develooper.com/makemaker@perl.org/msg00134.html> for some history. NOTE: When L<ExtUtils::MM> is loaded it chooses a superclass for MM from amongst the ExtUtils::MM_* modules based on the current operating system. NOTE: ExtUtils::MM_{Current OS} represents one of the ExtUtils::MM_* modules except L<ExtUtils::MM_Any> chosen based on your operating system. NOTE: The main object used by MakeMaker is a PACK### object, *not* L<ExtUtils::MakeMaker>. It is, effectively, a subclass of L<MY|ExtUtils::MY>, L<ExtUtils::MakeMaker>, L<ExtUtils::Liblist> and ExtUtils::MM_{Current OS} NOTE: The methods in L<MY|ExtUtils::MY> are simply copied into PACK### rather than MY being a superclass of PACK###. I don't remember the rationale. NOTE: L<ExtUtils::Liblist> should be removed from the inheritance hiearchy and simply be called as functions. NOTE: Modules like L<File::Spec> and L<Exporter> have been omitted for clarity. =head2 The MM_* hierarchy MM_Win95 MM_NW5 \ / MM_BeOS MM_Cygwin MM_OS2 MM_VMS MM_Win32 MM_DOS MM_UWIN \ | | | / / / ------------------------------------------------ | | MM_Unix | | | MM_Any NOTE: Each direct L<MM_Unix|ExtUtils::MM_Unix> subclass is also an L<MM_Any|ExtUtils::MM_Any> subclass. This is a temporary hack because MM_Unix overrides some MM_Any methods with Unix specific code. It allows the non-Unix modules to see the original MM_Any implementations. NOTE: Modules like L<File::Spec> and L<Exporter> have been omitted for clarity. =head1 PATCHING If you have a question you'd like to see added to the FAQ (whether or not you have the answer) please either: =over 2 =item * make a pull request on the MakeMaker github repository =item * raise a issue on the MakeMaker github repository =item * file an RT ticket =item * email makemaker@perl.org =back =head1 AUTHOR The denizens of makemaker@perl.org. =head1 SEE ALSO L<ExtUtils::MakeMaker> =cut PK ! xQ��$4 $4 # 5.34.0/ExtUtils/MakeMaker/Locale.pmnu �[��� package ExtUtils::MakeMaker::Locale; use strict; use warnings; our $VERSION = "7.62"; $VERSION =~ tr/_//d; use base 'Exporter'; our @EXPORT_OK = qw( decode_argv env $ENCODING_LOCALE $ENCODING_LOCALE_FS $ENCODING_CONSOLE_IN $ENCODING_CONSOLE_OUT ); use Encode (); use Encode::Alias (); our $ENCODING_LOCALE; our $ENCODING_LOCALE_FS; our $ENCODING_CONSOLE_IN; our $ENCODING_CONSOLE_OUT; sub DEBUG () { 0 } sub _init { if ($^O eq "MSWin32") { unless ($ENCODING_LOCALE) { # Try to obtain what the Windows ANSI code page is eval { unless (defined &GetConsoleCP) { require Win32; # manually "import" it since Win32->import refuses *GetConsoleCP = sub { &Win32::GetConsoleCP } if defined &Win32::GetConsoleCP; } unless (defined &GetConsoleCP) { require Win32::API; Win32::API->Import('kernel32', 'int GetConsoleCP()'); } if (defined &GetConsoleCP) { my $cp = GetConsoleCP(); $ENCODING_LOCALE = "cp$cp" if $cp; } }; } unless ($ENCODING_CONSOLE_IN) { # only test one since set together unless (defined &GetInputCP) { eval { require Win32; eval { local $SIG{__WARN__} = sub {} if ( "$]" < 5.014 ); # suppress deprecation warning for inherited AUTOLOAD of Win32::GetConsoleCP() Win32::GetConsoleCP(); }; # manually "import" it since Win32->import refuses *GetInputCP = sub { &Win32::GetConsoleCP } if defined &Win32::GetConsoleCP; *GetOutputCP = sub { &Win32::GetConsoleOutputCP } if defined &Win32::GetConsoleOutputCP; }; unless (defined &GetInputCP) { eval { # try Win32::Console module for codepage to use require Win32::Console; *GetInputCP = sub { &Win32::Console::InputCP } if defined &Win32::Console::InputCP; *GetOutputCP = sub { &Win32::Console::OutputCP } if defined &Win32::Console::OutputCP; }; } unless (defined &GetInputCP) { # final fallback *GetInputCP = *GetOutputCP = sub { # another fallback that could work is: # reg query HKLM\System\CurrentControlSet\Control\Nls\CodePage /v ACP ((qx(chcp) || '') =~ /^Active code page: (\d+)/) ? $1 : (); }; } } my $cp = GetInputCP(); $ENCODING_CONSOLE_IN = "cp$cp" if $cp; $cp = GetOutputCP(); $ENCODING_CONSOLE_OUT = "cp$cp" if $cp; } } unless ($ENCODING_LOCALE) { eval { require I18N::Langinfo; $ENCODING_LOCALE = I18N::Langinfo::langinfo(I18N::Langinfo::CODESET()); # Workaround of Encode < v2.25. The "646" encoding alias was # introduced in Encode-2.25, but we don't want to require that version # quite yet. Should avoid the CPAN testers failure reported from # openbsd-4.7/perl-5.10.0 combo. $ENCODING_LOCALE = "ascii" if $ENCODING_LOCALE eq "646"; # https://rt.cpan.org/Ticket/Display.html?id=66373 $ENCODING_LOCALE = "hp-roman8" if $^O eq "hpux" && $ENCODING_LOCALE eq "roman8"; }; $ENCODING_LOCALE ||= $ENCODING_CONSOLE_IN; } # Workaround of Encode < v2.71 for "cp65000" and "cp65001" # The "cp65000" and "cp65001" aliases were added in [Encode v2.71](https://github.com/dankogai/p5-encode/commit/7874bd95aa10967a3b5dbae333d16bcd703ac6c6) # via commit <https://github.com/dankogai/p5-encode/commit/84b9c1101d5251d37e226f80d1c6781718779047>. # This will avoid test failures for Win32 machines using the UTF-7 or UTF-8 code pages. $ENCODING_LOCALE = 'UTF-7' if $ENCODING_LOCALE && lc($ENCODING_LOCALE) eq "cp65000"; $ENCODING_LOCALE = 'utf-8-strict' if $ENCODING_LOCALE && lc($ENCODING_LOCALE) eq "cp65001"; if ($^O eq "darwin") { $ENCODING_LOCALE_FS ||= "UTF-8"; } # final fallback $ENCODING_LOCALE ||= $^O eq "MSWin32" ? "cp1252" : "UTF-8"; $ENCODING_LOCALE_FS ||= $ENCODING_LOCALE; $ENCODING_CONSOLE_IN ||= $ENCODING_LOCALE; $ENCODING_CONSOLE_OUT ||= $ENCODING_CONSOLE_IN; unless (Encode::find_encoding($ENCODING_LOCALE)) { my $foundit; if (lc($ENCODING_LOCALE) eq "gb18030") { eval { require Encode::HanExtra; }; if ($@) { die "Need Encode::HanExtra to be installed to support locale codeset ($ENCODING_LOCALE), stopped"; } $foundit++ if Encode::find_encoding($ENCODING_LOCALE); } die "The locale codeset ($ENCODING_LOCALE) isn't one that perl can decode, stopped" unless $foundit; } # use Data::Dump; ddx $ENCODING_LOCALE, $ENCODING_LOCALE_FS, $ENCODING_CONSOLE_IN, $ENCODING_CONSOLE_OUT; } _init(); Encode::Alias::define_alias(sub { no strict 'refs'; no warnings 'once'; return ${"ENCODING_" . uc(shift)}; }, "locale"); sub _flush_aliases { no strict 'refs'; for my $a (sort keys %Encode::Alias::Alias) { if (defined ${"ENCODING_" . uc($a)}) { delete $Encode::Alias::Alias{$a}; warn "Flushed alias cache for $a" if DEBUG; } } } sub reinit { $ENCODING_LOCALE = shift; $ENCODING_LOCALE_FS = shift; $ENCODING_CONSOLE_IN = $ENCODING_LOCALE; $ENCODING_CONSOLE_OUT = $ENCODING_LOCALE; _init(); _flush_aliases(); } sub decode_argv { die if defined wantarray; for (@ARGV) { $_ = Encode::decode(locale => $_, @_); } } sub env { my $k = Encode::encode(locale => shift); my $old = $ENV{$k}; if (@_) { my $v = shift; if (defined $v) { $ENV{$k} = Encode::encode(locale => $v); } else { delete $ENV{$k}; } } return Encode::decode(locale => $old) if defined wantarray; } 1; __END__ =head1 NAME ExtUtils::MakeMaker::Locale - bundled Encode::Locale =head1 SYNOPSIS use Encode::Locale; use Encode; $string = decode(locale => $bytes); $bytes = encode(locale => $string); if (-t) { binmode(STDIN, ":encoding(console_in)"); binmode(STDOUT, ":encoding(console_out)"); binmode(STDERR, ":encoding(console_out)"); } # Processing file names passed in as arguments my $uni_filename = decode(locale => $ARGV[0]); open(my $fh, "<", encode(locale_fs => $uni_filename)) || die "Can't open '$uni_filename': $!"; binmode($fh, ":encoding(locale)"); ... =head1 DESCRIPTION In many applications it's wise to let Perl use Unicode for the strings it processes. Most of the interfaces Perl has to the outside world are still byte based. Programs therefore need to decode byte strings that enter the program from the outside and encode them again on the way out. The POSIX locale system is used to specify both the language conventions requested by the user and the preferred character set to consume and output. The C<Encode::Locale> module looks up the charset and encoding (called a CODESET in the locale jargon) and arranges for the L<Encode> module to know this encoding under the name "locale". It means bytes obtained from the environment can be converted to Unicode strings by calling C<< Encode::encode(locale => $bytes) >> and converted back again with C<< Encode::decode(locale => $string) >>. Where file systems interfaces pass file names in and out of the program we also need care. The trend is for operating systems to use a fixed file encoding that don't actually depend on the locale; and this module determines the most appropriate encoding for file names. The L<Encode> module will know this encoding under the name "locale_fs". For traditional Unix systems this will be an alias to the same encoding as "locale". For programs running in a terminal window (called a "Console" on some systems) the "locale" encoding is usually a good choice for what to expect as input and output. Some systems allows us to query the encoding set for the terminal and C<Encode::Locale> will do that if available and make these encodings known under the C<Encode> aliases "console_in" and "console_out". For systems where we can't determine the terminal encoding these will be aliased as the same encoding as "locale". The advice is to use "console_in" for input known to come from the terminal and "console_out" for output to the terminal. In addition to arranging for various Encode aliases the following functions and variables are provided: =over =item decode_argv( ) =item decode_argv( Encode::FB_CROAK ) This will decode the command line arguments to perl (the C<@ARGV> array) in-place. The function will by default replace characters that can't be decoded by "\x{FFFD}", the Unicode replacement character. Any argument provided is passed as CHECK to underlying Encode::decode() call. Pass the value C<Encode::FB_CROAK> to have the decoding croak if not all the command line arguments can be decoded. See L<Encode/"Handling Malformed Data"> for details on other options for CHECK. =item env( $uni_key ) =item env( $uni_key => $uni_value ) Interface to get/set environment variables. Returns the current value as a Unicode string. The $uni_key and $uni_value arguments are expected to be Unicode strings as well. Passing C<undef> as $uni_value deletes the environment variable named $uni_key. The returned value will have the characters that can't be decoded replaced by "\x{FFFD}", the Unicode replacement character. There is no interface to request alternative CHECK behavior as for decode_argv(). If you need that you need to call encode/decode yourself. For example: my $key = Encode::encode(locale => $uni_key, Encode::FB_CROAK); my $uni_value = Encode::decode(locale => $ENV{$key}, Encode::FB_CROAK); =item reinit( ) =item reinit( $encoding ) Reinitialize the encodings from the locale. You want to call this function if you changed anything in the environment that might influence the locale. This function will croak if the determined encoding isn't recognized by the Encode module. With argument force $ENCODING_... variables to set to the given value. =item $ENCODING_LOCALE The encoding name determined to be suitable for the current locale. L<Encode> know this encoding as "locale". =item $ENCODING_LOCALE_FS The encoding name determined to be suitable for file system interfaces involving file names. L<Encode> know this encoding as "locale_fs". =item $ENCODING_CONSOLE_IN =item $ENCODING_CONSOLE_OUT The encodings to be used for reading and writing output to the a console. L<Encode> know these encodings as "console_in" and "console_out". =back =head1 NOTES This table summarizes the mapping of the encodings set up by the C<Encode::Locale> module: Encode | | | Alias | Windows | Mac OS X | POSIX ------------+---------+--------------+------------ locale | ANSI | nl_langinfo | nl_langinfo locale_fs | ANSI | UTF-8 | nl_langinfo console_in | OEM | nl_langinfo | nl_langinfo console_out | OEM | nl_langinfo | nl_langinfo =head2 Windows Windows has basically 2 sets of APIs. A wide API (based on passing UTF-16 strings) and a byte based API based a character set called ANSI. The regular Perl interfaces to the OS currently only uses the ANSI APIs. Unfortunately ANSI is not a single character set. The encoding that corresponds to ANSI varies between different editions of Windows. For many western editions of Windows ANSI corresponds to CP-1252 which is a character set similar to ISO-8859-1. Conceptually the ANSI character set is a similar concept to the POSIX locale CODESET so this module figures out what the ANSI code page is and make this available as $ENCODING_LOCALE and the "locale" Encoding alias. Windows systems also operate with another byte based character set. It's called the OEM code page. This is the encoding that the Console takes as input and output. It's common for the OEM code page to differ from the ANSI code page. =head2 Mac OS X On Mac OS X the file system encoding is always UTF-8 while the locale can otherwise be set up as normal for POSIX systems. File names on Mac OS X will at the OS-level be converted to NFD-form. A file created by passing a NFC-filename will come in NFD-form from readdir(). See L<Unicode::Normalize> for details of NFD/NFC. Actually, Apple does not follow the Unicode NFD standard since not all character ranges are decomposed. The claim is that this avoids problems with round trip conversions from old Mac text encodings. See L<Encode::UTF8Mac> for details. =head2 POSIX (Linux and other Unixes) File systems might vary in what encoding is to be used for filenames. Since this module has no way to actually figure out what the is correct it goes with the best guess which is to assume filenames are encoding according to the current locale. Users are advised to always specify UTF-8 as the locale charset. =head1 SEE ALSO L<I18N::Langinfo>, L<Encode>, L<Term::Encoding> =head1 AUTHOR Copyright 2010 Gisle Aas <gisle@aas.no>. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut PK ! <^1MU U $ 5.34.0/ExtUtils/MakeMaker/version.pmnu �[��� #--------------------------------------------------------------------------# # This is a modified copy of version.pm 0.9909, bundled exclusively for # use by ExtUtils::Makemaker and its dependencies to bootstrap when # version.pm is not available. It should not be used by ordinary modules. # # When loaded, it will try to load version.pm. If that fails, it will load # ExtUtils::MakeMaker::version::vpp and alias various *version functions # to functions in that module. It will also override UNIVERSAL::VERSION. #--------------------------------------------------------------------------# package ExtUtils::MakeMaker::version; use 5.006001; use strict; use warnings; use vars qw(@ISA $VERSION $CLASS $STRICT $LAX *declare *qv); $VERSION = '7.62'; $VERSION =~ tr/_//d; $CLASS = 'version'; { local $SIG{'__DIE__'}; eval "use version"; if ( $@ ) { # don't have any version.pm installed eval "use ExtUtils::MakeMaker::version::vpp"; die "$@" if ( $@ ); no warnings; delete $INC{'version.pm'}; $INC{'version.pm'} = $INC{'ExtUtils/MakeMaker/version.pm'}; push @version::ISA, "ExtUtils::MakeMaker::version::vpp"; $version::VERSION = $VERSION; *version::qv = \&ExtUtils::MakeMaker::version::vpp::qv; *version::declare = \&ExtUtils::MakeMaker::version::vpp::declare; *version::_VERSION = \&ExtUtils::MakeMaker::version::vpp::_VERSION; *version::vcmp = \&ExtUtils::MakeMaker::version::vpp::vcmp; *version::new = \&ExtUtils::MakeMaker::version::vpp::new; if ("$]" >= 5.009000) { no strict 'refs'; *version::stringify = \&ExtUtils::MakeMaker::version::vpp::stringify; *{'version::(""'} = \&ExtUtils::MakeMaker::version::vpp::stringify; *{'version::(<=>'} = \&ExtUtils::MakeMaker::version::vpp::vcmp; *version::parse = \&ExtUtils::MakeMaker::version::vpp::parse; } require ExtUtils::MakeMaker::version::regex; *version::is_lax = \&ExtUtils::MakeMaker::version::regex::is_lax; *version::is_strict = \&ExtUtils::MakeMaker::version::regex::is_strict; *LAX = \$ExtUtils::MakeMaker::version::regex::LAX; *STRICT = \$ExtUtils::MakeMaker::version::regex::STRICT; } elsif ( ! version->can('is_qv') ) { *version::is_qv = sub { exists $_[0]->{qv} }; } } 1; PK ! �*� 5.34.0/ExtUtils/MM_Win95.pmnu �[��� package ExtUtils::MM_Win95; use strict; use warnings; our $VERSION = '7.62'; $VERSION =~ tr/_//d; require ExtUtils::MM_Win32; our @ISA = qw(ExtUtils::MM_Win32); use ExtUtils::MakeMaker::Config; =head1 NAME ExtUtils::MM_Win95 - method to customize MakeMaker for Win9X =head1 SYNOPSIS You should not be using this module directly. =head1 DESCRIPTION This is a subclass of L<ExtUtils::MM_Win32> containing changes necessary to get MakeMaker playing nice with command.com and other Win9Xisms. =head2 Overridden methods Most of these make up for limitations in the Win9x/nmake command shell. =over 4 =item max_exec_len Win98 chokes on things like Encode if we set the max length to nmake's max of 2K. So we go for a more conservative value of 1K. =cut sub max_exec_len { my $self = shift; return $self->{_MAX_EXEC_LEN} ||= 1024; } =item os_flavor Win95 and Win98 and WinME are collectively Win9x and Win32 =cut sub os_flavor { my $self = shift; return ($self->SUPER::os_flavor, 'Win9x'); } =back =head1 AUTHOR Code originally inside MM_Win32. Original author unknown. Currently maintained by Michael G Schwern C<schwern@pobox.com>. Send patches and ideas to C<makemaker@perl.org>. See https://metacpan.org/release/ExtUtils-MakeMaker. =cut 1; PK ! ���x�C �C 5.34.0/ExtUtils/MM_Any.pmnu �[��� package ExtUtils::MM_Any; use strict; use warnings; our $VERSION = '7.62'; $VERSION =~ tr/_//d; use Carp; use File::Spec; use File::Basename; BEGIN { our @ISA = qw(File::Spec); } # We need $Verbose use ExtUtils::MakeMaker qw($Verbose neatvalue _sprintf562); use ExtUtils::MakeMaker::Config; # So we don't have to keep calling the methods over and over again, # we have these globals to cache the values. Faster and shrtr. my $Curdir = __PACKAGE__->curdir; #my $Updir = __PACKAGE__->updir; my $METASPEC_URL = 'https://metacpan.org/pod/CPAN::Meta::Spec'; my $METASPEC_V = 2; =head1 NAME ExtUtils::MM_Any - Platform-agnostic MM methods =head1 SYNOPSIS FOR INTERNAL USE ONLY! package ExtUtils::MM_SomeOS; # Temporarily, you have to subclass both. Put MM_Any first. require ExtUtils::MM_Any; require ExtUtils::MM_Unix; @ISA = qw(ExtUtils::MM_Any ExtUtils::Unix); =head1 DESCRIPTION B<FOR INTERNAL USE ONLY!> ExtUtils::MM_Any is a superclass for the ExtUtils::MM_* set of modules. It contains methods which are either inherently cross-platform or are written in a cross-platform manner. Subclass off of ExtUtils::MM_Any I<and> L<ExtUtils::MM_Unix>. This is a temporary solution. B<THIS MAY BE TEMPORARY!> =head1 METHODS Any methods marked I<Abstract> must be implemented by subclasses. =head2 Cross-platform helper methods These are methods which help writing cross-platform code. =head3 os_flavor I<Abstract> my @os_flavor = $mm->os_flavor; @os_flavor is the style of operating system this is, usually corresponding to the MM_*.pm file we're using. The first element of @os_flavor is the major family (ie. Unix, Windows, VMS, OS/2, etc...) and the rest are sub families. Some examples: Cygwin98 ('Unix', 'Cygwin', 'Cygwin9x') Windows ('Win32') Win98 ('Win32', 'Win9x') Linux ('Unix', 'Linux') MacOS X ('Unix', 'Darwin', 'MacOS', 'MacOS X') OS/2 ('OS/2') This is used to write code for styles of operating system. See os_flavor_is() for use. =head3 os_flavor_is my $is_this_flavor = $mm->os_flavor_is($this_flavor); my $is_this_flavor = $mm->os_flavor_is(@one_of_these_flavors); Checks to see if the current operating system is one of the given flavors. This is useful for code like: if( $mm->os_flavor_is('Unix') ) { $out = `foo 2>&1`; } else { $out = `foo`; } =cut sub os_flavor_is { my $self = shift; my %flavors = map { ($_ => 1) } $self->os_flavor; return (grep { $flavors{$_} } @_) ? 1 : 0; } =head3 can_load_xs my $can_load_xs = $self->can_load_xs; Returns true if we have the ability to load XS. This is important because miniperl, used to build XS modules in the core, can not load XS. =cut sub can_load_xs { return defined &DynaLoader::boot_DynaLoader ? 1 : 0; } =head3 can_run use ExtUtils::MM; my $runnable = MM->can_run($Config{make}); If called in a scalar context it will return the full path to the binary you asked for if it was found, or C<undef> if it was not. If called in a list context, it will return a list of the full paths to instances of the binary where found in C<PATH>, or an empty list if it was not found. Copied from L<IPC::Cmd|IPC::Cmd/"$path = can_run( PROGRAM );">, but modified into a method (and removed C<$INSTANCES> capability). =cut sub can_run { my ($self, $command) = @_; # a lot of VMS executables have a symbol defined # check those first if ( $^O eq 'VMS' ) { require VMS::DCLsym; my $syms = VMS::DCLsym->new; return $command if scalar $syms->getsym( uc $command ); } my @possibles; if( File::Spec->file_name_is_absolute($command) ) { return $self->maybe_command($command); } else { for my $dir ( File::Spec->path, File::Spec->curdir ) { next if ! $dir || ! -d $dir; my $abs = File::Spec->catfile($self->os_flavor_is('Win32') ? Win32::GetShortPathName( $dir ) : $dir, $command); push @possibles, $abs if $abs = $self->maybe_command($abs); } } return @possibles if wantarray; return shift @possibles; } =head3 can_redirect_error $useredirect = MM->can_redirect_error; True if on an OS where qx operator (or backticks) can redirect C<STDERR> onto C<STDOUT>. =cut sub can_redirect_error { my $self = shift; $self->os_flavor_is('Unix') or ($self->os_flavor_is('Win32') and !$self->os_flavor_is('Win9x')) or $self->os_flavor_is('OS/2') } =head3 is_make_type my $is_dmake = $self->is_make_type('dmake'); Returns true if C<< $self->make >> is the given type; possibilities are: gmake GNU make dmake nmake bsdmake BSD pmake-derived =cut my %maketype2true; # undocumented - so t/cd.t can still do its thing sub _clear_maketype_cache { %maketype2true = () } sub is_make_type { my($self, $type) = @_; return $maketype2true{$type} if defined $maketype2true{$type}; (undef, undef, my $make_basename) = $self->splitpath($self->make); return $maketype2true{$type} = 1 if $make_basename =~ /\b$type\b/i; # executable's filename return $maketype2true{$type} = 0 if $make_basename =~ /\b[gdn]make\b/i; # Never fall through for dmake/nmake/gmake # now have to run with "-v" and guess my $redirect = $self->can_redirect_error ? '2>&1' : ''; my $make = $self->make || $self->{MAKE}; my $minus_v = `"$make" -v $redirect`; return $maketype2true{$type} = 1 if $type eq 'gmake' and $minus_v =~ /GNU make/i; return $maketype2true{$type} = 1 if $type eq 'bsdmake' and $minus_v =~ /^usage: make \[-BeikNnqrstWwX\]/im; $maketype2true{$type} = 0; # it wasn't whatever you asked } =head3 can_dep_space my $can_dep_space = $self->can_dep_space; Returns true if C<make> can handle (probably by quoting) dependencies that contain a space. Currently known true for GNU make, false for BSD pmake derivative. =cut my $cached_dep_space; sub can_dep_space { my $self = shift; return $cached_dep_space if defined $cached_dep_space; return $cached_dep_space = 1 if $self->is_make_type('gmake'); return $cached_dep_space = 0 if $self->is_make_type('dmake'); # only on W32 return $cached_dep_space = 0 if $self->is_make_type('bsdmake'); return $cached_dep_space = 0; # assume no } =head3 quote_dep $text = $mm->quote_dep($text); Method that protects Makefile single-value constants (mainly filenames), so that make will still treat them as single values even if they inconveniently have spaces in. If the make program being used cannot achieve such protection and the given text would need it, throws an exception. =cut sub quote_dep { my ($self, $arg) = @_; die <<EOF if $arg =~ / / and not $self->can_dep_space; Tried to use make dependency with space for make that can't: '$arg' EOF $arg =~ s/( )/\\$1/g; # how GNU make does it return $arg; } =head3 split_command my @cmds = $MM->split_command($cmd, @args); Most OS have a maximum command length they can execute at once. Large modules can easily generate commands well past that limit. Its necessary to split long commands up into a series of shorter commands. C<split_command> will return a series of @cmds each processing part of the args. Collectively they will process all the arguments. Each individual line in @cmds will not be longer than the $self->max_exec_len being careful to take into account macro expansion. $cmd should include any switches and repeated initial arguments. If no @args are given, no @cmds will be returned. Pairs of arguments will always be preserved in a single command, this is a heuristic for things like pm_to_blib and pod2man which work on pairs of arguments. This makes things like this safe: $self->split_command($cmd, %pod2man); =cut sub split_command { my($self, $cmd, @args) = @_; my @cmds = (); return(@cmds) unless @args; # If the command was given as a here-doc, there's probably a trailing # newline. chomp $cmd; # set aside 30% for macro expansion. my $len_left = int($self->max_exec_len * 0.70); $len_left -= length $self->_expand_macros($cmd); do { my $arg_str = ''; my @next_args; while( @next_args = splice(@args, 0, 2) ) { # Two at a time to preserve pairs. my $next_arg_str = "\t ". join ' ', @next_args, "\n"; if( !length $arg_str ) { $arg_str .= $next_arg_str } elsif( length($arg_str) + length($next_arg_str) > $len_left ) { unshift @args, @next_args; last; } else { $arg_str .= $next_arg_str; } } chop $arg_str; push @cmds, $self->escape_newlines("$cmd \n$arg_str"); } while @args; return @cmds; } sub _expand_macros { my($self, $cmd) = @_; $cmd =~ s{\$\((\w+)\)}{ defined $self->{$1} ? $self->{$1} : "\$($1)" }e; return $cmd; } =head3 make_type Returns a suitable string describing the type of makefile being written. =cut # override if this isn't suitable! sub make_type { return 'Unix-style'; } =head3 stashmeta my @recipelines = $MM->stashmeta($text, $file); Generates a set of C<@recipelines> which will result in the literal C<$text> ending up in literal C<$file> when the recipe is executed. Call it once, with all the text you want in C<$file>. Make macros will not be expanded, so the locations will be fixed at configure-time, not at build-time. =cut sub stashmeta { my($self, $text, $file) = @_; $self->echo($text, $file, { allow_variables => 0, append => 0 }); } =head3 echo my @commands = $MM->echo($text); my @commands = $MM->echo($text, $file); my @commands = $MM->echo($text, $file, \%opts); Generates a set of @commands which print the $text to a $file. If $file is not given, output goes to STDOUT. If $opts{append} is true the $file will be appended to rather than overwritten. Default is to overwrite. If $opts{allow_variables} is true, make variables of the form C<$(...)> will not be escaped. Other C<$> will. Default is to escape all C<$>. Example of use: my $make = join '', map "\t$_\n", $MM->echo($text, $file); =cut sub echo { my($self, $text, $file, $opts) = @_; # Compatibility with old options if( !ref $opts ) { my $append = $opts; $opts = { append => $append || 0 }; } $opts->{allow_variables} = 0 unless defined $opts->{allow_variables}; my $ql_opts = { allow_variables => $opts->{allow_variables} }; my @cmds = map { '$(NOECHO) $(ECHO) '.$self->quote_literal($_, $ql_opts) } split /\n/, $text; if( $file ) { my $redirect = $opts->{append} ? '>>' : '>'; $cmds[0] .= " $redirect $file"; $_ .= " >> $file" foreach @cmds[1..$#cmds]; } return @cmds; } =head3 wraplist my $args = $mm->wraplist(@list); Takes an array of items and turns them into a well-formatted list of arguments. In most cases this is simply something like: FOO \ BAR \ BAZ =cut sub wraplist { my $self = shift; return join " \\\n\t", @_; } =head3 maketext_filter my $filter_make_text = $mm->maketext_filter($make_text); The text of the Makefile is run through this method before writing to disk. It allows systems a chance to make portability fixes to the Makefile. By default it does nothing. This method is protected and not intended to be called outside of MakeMaker. =cut sub maketext_filter { return $_[1] } =head3 cd I<Abstract> my $subdir_cmd = $MM->cd($subdir, @cmds); This will generate a make fragment which runs the @cmds in the given $dir. The rough equivalent to this, except cross platform. cd $subdir && $cmd Currently $dir can only go down one level. "foo" is fine. "foo/bar" is not. "../foo" is right out. The resulting $subdir_cmd has no leading tab nor trailing newline. This makes it easier to embed in a make string. For example. my $make = sprintf <<'CODE', $subdir_cmd; foo : $(ECHO) what %s $(ECHO) mouche CODE =head3 oneliner I<Abstract> my $oneliner = $MM->oneliner($perl_code); my $oneliner = $MM->oneliner($perl_code, \@switches); This will generate a perl one-liner safe for the particular platform you're on based on the given $perl_code and @switches (a -e is assumed) suitable for using in a make target. It will use the proper shell quoting and escapes. $(PERLRUN) will be used as perl. Any newlines in $perl_code will be escaped. Leading and trailing newlines will be stripped. Makes this idiom much easier: my $code = $MM->oneliner(<<'CODE', [...switches...]); some code here another line here CODE Usage might be something like: # an echo emulation $oneliner = $MM->oneliner('print "Foo\n"'); $make = '$oneliner > somefile'; Dollar signs in the $perl_code will be protected from make using the C<quote_literal> method, unless they are recognised as being a make variable, C<$(varname)>, in which case they will be left for make to expand. Remember to quote make macros else it might be used as a bareword. For example: # Assign the value of the $(VERSION_FROM) make macro to $vf. $oneliner = $MM->oneliner('$vf = "$(VERSION_FROM)"'); Its currently very simple and may be expanded sometime in the figure to include more flexible code and switches. =head3 quote_literal I<Abstract> my $safe_text = $MM->quote_literal($text); my $safe_text = $MM->quote_literal($text, \%options); This will quote $text so it is interpreted literally in the shell. For example, on Unix this would escape any single-quotes in $text and put single-quotes around the whole thing. If $options{allow_variables} is true it will leave C<'$(FOO)'> make variables untouched. If false they will be escaped like any other C<$>. Defaults to true. =head3 escape_dollarsigns my $escaped_text = $MM->escape_dollarsigns($text); Escapes stray C<$> so they are not interpreted as make variables. It lets by C<$(...)>. =cut sub escape_dollarsigns { my($self, $text) = @_; # Escape dollar signs which are not starting a variable $text =~ s{\$ (?!\() }{\$\$}gx; return $text; } =head3 escape_all_dollarsigns my $escaped_text = $MM->escape_all_dollarsigns($text); Escapes all C<$> so they are not interpreted as make variables. =cut sub escape_all_dollarsigns { my($self, $text) = @_; # Escape dollar signs $text =~ s{\$}{\$\$}gx; return $text; } =head3 escape_newlines I<Abstract> my $escaped_text = $MM->escape_newlines($text); Shell escapes newlines in $text. =head3 max_exec_len I<Abstract> my $max_exec_len = $MM->max_exec_len; Calculates the maximum command size the OS can exec. Effectively, this is the max size of a shell command line. =for _private $self->{_MAX_EXEC_LEN} is set by this method, but only for testing purposes. =head3 make my $make = $MM->make; Returns the make variant we're generating the Makefile for. This attempts to do some normalization on the information from %Config or the user. =cut sub make { my $self = shift; my $make = lc $self->{MAKE}; # Truncate anything like foomake6 to just foomake. $make =~ s/^(\w+make).*/$1/; # Turn gnumake into gmake. $make =~ s/^gnu/g/; return $make; } =head2 Targets These are methods which produce make targets. =head3 all_target Generate the default target 'all'. =cut sub all_target { my $self = shift; return <<'MAKE_EXT'; all :: pure_all $(NOECHO) $(NOOP) MAKE_EXT } =head3 blibdirs_target my $make_frag = $mm->blibdirs_target; Creates the blibdirs target which creates all the directories we use in blib/. The blibdirs.ts target is deprecated. Depend on blibdirs instead. =cut sub _xs_list_basenames { my ($self) = @_; map { (my $b = $_) =~ s/\.xs$//; $b } sort keys %{ $self->{XS} }; } sub blibdirs_target { my $self = shift; my @dirs = map { uc "\$(INST_$_)" } qw(libdir archlib autodir archautodir bin script man1dir man3dir ); if ($self->{XSMULTI}) { for my $ext ($self->_xs_list_basenames) { my ($v, $d, $f) = File::Spec->splitpath($ext); my @d = File::Spec->splitdir($d); shift @d if $d[0] eq 'lib'; push @dirs, $self->catdir('$(INST_ARCHLIB)', 'auto', @d, $f); } } my @exists = map { $_.'$(DFSEP).exists' } @dirs; my $make = sprintf <<'MAKE', join(' ', @exists); blibdirs : %s $(NOECHO) $(NOOP) # Backwards compat with 6.18 through 6.25 blibdirs.ts : blibdirs $(NOECHO) $(NOOP) MAKE $make .= $self->dir_target(@dirs); return $make; } =head3 clean (o) Defines the clean target. =cut sub clean { # --- Cleanup and Distribution Sections --- my($self, %attribs) = @_; my @m; push(@m, ' # Delete temporary files but do not touch installed files. We don\'t delete # the Makefile here so a later make realclean still has a makefile to use. clean :: clean_subdirs '); my @files = sort values %{$self->{XS}}; # .c files from *.xs files push @files, map { my $file = $_; map { $file.$_ } $self->{OBJ_EXT}, qw(.def _def.old .bs .bso .exp .base); } $self->_xs_list_basenames; my @dirs = qw(blib); # Normally these are all under blib but they might have been # redefined. # XXX normally this would be a good idea, but the Perl core sets # INST_LIB = ../../lib rather than actually installing the files. # So a "make clean" in an ext/ directory would blow away lib. # Until the core is adjusted let's leave this out. # push @dirs, qw($(INST_ARCHLIB) $(INST_LIB) # $(INST_BIN) $(INST_SCRIPT) # $(INST_MAN1DIR) $(INST_MAN3DIR) # $(INST_LIBDIR) $(INST_ARCHLIBDIR) $(INST_AUTODIR) # $(INST_STATIC) $(INST_DYNAMIC) # ); if( $attribs{FILES} ) { # Use @dirs because we don't know what's in here. push @dirs, ref $attribs{FILES} ? @{$attribs{FILES}} : split /\s+/, $attribs{FILES} ; } push(@files, qw[$(MAKE_APERL_FILE) MYMETA.json MYMETA.yml perlmain.c tmon.out mon.out so_locations blibdirs.ts pm_to_blib pm_to_blib.ts *$(OBJ_EXT) *$(LIB_EXT) perl.exe perl perl$(EXE_EXT) $(BOOTSTRAP) $(BASEEXT).bso $(BASEEXT).def lib$(BASEEXT).def $(BASEEXT).exp $(BASEEXT).x ]); push(@files, $self->catfile('$(INST_ARCHAUTODIR)','extralibs.all')); push(@files, $self->catfile('$(INST_ARCHAUTODIR)','extralibs.ld')); # core files if ($^O eq 'vos') { push(@files, qw[perl*.kp]); } else { push(@files, qw[core core.*perl.*.? *perl.core]); } push(@files, map { "core." . "[0-9]"x$_ } (1..5)); # OS specific things to clean up. Use @dirs since we don't know # what might be in here. push @dirs, $self->extra_clean_files; # Occasionally files are repeated several times from different sources { my(%f) = map { ($_ => 1) } @files; @files = sort keys %f; } { my(%d) = map { ($_ => 1) } @dirs; @dirs = sort keys %d; } push @m, map "\t$_\n", $self->split_command('- $(RM_F)', @files); push @m, map "\t$_\n", $self->split_command('- $(RM_RF)', @dirs); # Leave Makefile.old around for realclean push @m, <<'MAKE'; $(NOECHO) $(RM_F) $(MAKEFILE_OLD) - $(MV) $(FIRST_MAKEFILE) $(MAKEFILE_OLD) $(DEV_NULL) MAKE push(@m, "\t$attribs{POSTOP}\n") if $attribs{POSTOP}; join("", @m); } =head3 clean_subdirs_target my $make_frag = $MM->clean_subdirs_target; Returns the clean_subdirs target. This is used by the clean target to call clean on any subdirectories which contain Makefiles. =cut sub clean_subdirs_target { my($self) = shift; # No subdirectories, no cleaning. return <<'NOOP_FRAG' unless @{$self->{DIR}}; clean_subdirs : $(NOECHO) $(NOOP) NOOP_FRAG my $clean = "clean_subdirs :\n"; for my $dir (@{$self->{DIR}}) { my $subclean = $self->oneliner(sprintf <<'CODE', $dir); exit 0 unless chdir '%s'; system '$(MAKE) clean' if -f '$(FIRST_MAKEFILE)'; CODE $clean .= "\t$subclean\n"; } return $clean; } =head3 dir_target my $make_frag = $mm->dir_target(@directories); Generates targets to create the specified directories and set its permission to PERM_DIR. Because depending on a directory to just ensure it exists doesn't work too well (the modified time changes too often) dir_target() creates a .exists file in the created directory. It is this you should depend on. For portability purposes you should use the $(DIRFILESEP) macro rather than a '/' to separate the directory from the file. yourdirectory$(DIRFILESEP).exists =cut sub dir_target { my($self, @dirs) = @_; my $make = ''; foreach my $dir (@dirs) { $make .= sprintf <<'MAKE', ($dir) x 4; %s$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) %s $(NOECHO) $(CHMOD) $(PERM_DIR) %s $(NOECHO) $(TOUCH) %s$(DFSEP).exists MAKE } return $make; } =head3 distdir Defines the scratch directory target that will hold the distribution before tar-ing (or shar-ing). =cut # For backwards compatibility. *dist_dir = *distdir; sub distdir { my($self) = shift; my $meta_target = $self->{NO_META} ? '' : 'distmeta'; my $sign_target = !$self->{SIGN} ? '' : 'distsignature'; return sprintf <<'MAKE_FRAG', $meta_target, $sign_target; create_distdir : $(RM_RF) $(DISTVNAME) $(PERLRUN) "-MExtUtils::Manifest=manicopy,maniread" \ -e "manicopy(maniread(),'$(DISTVNAME)', '$(DIST_CP)');" distdir : create_distdir %s %s $(NOECHO) $(NOOP) MAKE_FRAG } =head3 dist_test Defines a target that produces the distribution in the scratch directory, and runs 'perl Makefile.PL; make ;make test' in that subdirectory. =cut sub dist_test { my($self) = shift; my $mpl_args = join " ", map qq["$_"], @ARGV; my $test = $self->cd('$(DISTVNAME)', '$(ABSPERLRUN) Makefile.PL '.$mpl_args, '$(MAKE) $(PASTHRU)', '$(MAKE) test $(PASTHRU)' ); return sprintf <<'MAKE_FRAG', $test; disttest : distdir %s MAKE_FRAG } =head3 xs_dlsyms_arg Returns command-line arg(s) to linker for file listing dlsyms to export. Defaults to returning empty string, can be overridden by e.g. AIX. =cut sub xs_dlsyms_arg { return ''; } =head3 xs_dlsyms_ext Returns file-extension for C<xs_make_dlsyms> method's output file, including any "." character. =cut sub xs_dlsyms_ext { die "Pure virtual method"; } =head3 xs_dlsyms_extra Returns any extra text to be prepended to the C<$extra> argument of C<xs_make_dlsyms>. =cut sub xs_dlsyms_extra { ''; } =head3 xs_dlsyms_iterator Iterates over necessary shared objects, calling C<xs_make_dlsyms> method for each with appropriate arguments. =cut sub xs_dlsyms_iterator { my ($self, $attribs) = @_; if ($self->{XSMULTI}) { my @m; for my $ext ($self->_xs_list_basenames) { my @parts = File::Spec->splitdir($ext); shift @parts if $parts[0] eq 'lib'; my $name = join '::', @parts; push @m, $self->xs_make_dlsyms( $attribs, $ext . $self->xs_dlsyms_ext, "$ext.xs", $name, $parts[-1], {}, [], {}, [], $self->xs_dlsyms_extra . q!, 'FILE' => ! . neatvalue($ext), ); } return join "\n", @m; } else { return $self->xs_make_dlsyms( $attribs, $self->{BASEEXT} . $self->xs_dlsyms_ext, 'Makefile.PL', $self->{NAME}, $self->{DLBASE}, $attribs->{DL_FUNCS} || $self->{DL_FUNCS} || {}, $attribs->{FUNCLIST} || $self->{FUNCLIST} || [], $attribs->{IMPORTS} || $self->{IMPORTS} || {}, $attribs->{DL_VARS} || $self->{DL_VARS} || [], $self->xs_dlsyms_extra, ); } } =head3 xs_make_dlsyms $self->xs_make_dlsyms( \%attribs, # hashref from %attribs in caller "$self->{BASEEXT}.def", # output file for Makefile target 'Makefile.PL', # dependency $self->{NAME}, # shared object's "name" $self->{DLBASE}, # last ::-separated part of name $attribs{DL_FUNCS} || $self->{DL_FUNCS} || {}, # various params $attribs{FUNCLIST} || $self->{FUNCLIST} || [], $attribs{IMPORTS} || $self->{IMPORTS} || {}, $attribs{DL_VARS} || $self->{DL_VARS} || [], # optional extra param that will be added as param to Mksymlists ); Utility method that returns Makefile snippet to call C<Mksymlists>. =cut sub xs_make_dlsyms { my ($self, $attribs, $target, $dep, $name, $dlbase, $funcs, $funclist, $imports, $vars, $extra) = @_; my @m = ( "\n$target: $dep\n", q! $(PERLRUN) -MExtUtils::Mksymlists \\ -e "Mksymlists('NAME'=>\"!, $name, q!\", 'DLBASE' => '!,$dlbase, # The above two lines quoted differently to work around # a bug in the 4DOS/4NT command line interpreter. The visible # result of the bug was files named q('extension_name',) *with the # single quotes and the comma* in the extension build directories. q!', 'DL_FUNCS' => !,neatvalue($funcs), q!, 'FUNCLIST' => !,neatvalue($funclist), q!, 'IMPORTS' => !,neatvalue($imports), q!, 'DL_VARS' => !, neatvalue($vars) ); push @m, $extra if defined $extra; push @m, qq!);"\n!; join '', @m; } =head3 dynamic (o) Defines the dynamic target. =cut sub dynamic { # --- Dynamic Loading Sections --- my($self) = shift; ' dynamic :: $(FIRST_MAKEFILE) config $(INST_BOOT) $(INST_DYNAMIC) $(NOECHO) $(NOOP) '; } =head3 makemakerdflt_target my $make_frag = $mm->makemakerdflt_target Returns a make fragment with the makemakerdeflt_target specified. This target is the first target in the Makefile, is the default target and simply points off to 'all' just in case any make variant gets confused or something gets snuck in before the real 'all' target. =cut sub makemakerdflt_target { return <<'MAKE_FRAG'; makemakerdflt : all $(NOECHO) $(NOOP) MAKE_FRAG } =head3 manifypods_target my $manifypods_target = $self->manifypods_target; Generates the manifypods target. This target generates man pages from all POD files in MAN1PODS and MAN3PODS. =cut sub manifypods_target { my($self) = shift; my $man1pods = ''; my $man3pods = ''; my $dependencies = ''; # populate manXpods & dependencies: foreach my $name (sort keys %{$self->{MAN1PODS}}, sort keys %{$self->{MAN3PODS}}) { $dependencies .= " \\\n\t$name"; } my $manify = <<END; manifypods : pure_all config $dependencies END my @man_cmds; foreach my $num (qw(1 3)) { my $pods = $self->{"MAN${num}PODS"}; my $p2m = sprintf <<'CMD', "\$(MAN${num}EXT)", "$]" > 5.008 ? " -u" : ""; $(NOECHO) $(POD2MAN) --section=%s --perm_rw=$(PERM_RW)%s CMD push @man_cmds, $self->split_command($p2m, map {($_,$pods->{$_})} sort keys %$pods); } $manify .= "\t\$(NOECHO) \$(NOOP)\n" unless @man_cmds; $manify .= join '', map { "$_\n" } @man_cmds; return $manify; } { my $has_cpan_meta; sub _has_cpan_meta { return $has_cpan_meta if defined $has_cpan_meta; return $has_cpan_meta = !!eval { require CPAN::Meta; CPAN::Meta->VERSION(2.112150); 1; }; } } =head3 metafile_target my $target = $mm->metafile_target; Generate the metafile target. Writes the file META.yml (YAML encoded meta-data) and META.json (JSON encoded meta-data) about the module in the distdir. The format follows Module::Build's as closely as possible. =cut sub metafile_target { my $self = shift; return <<'MAKE_FRAG' if $self->{NO_META} or ! _has_cpan_meta(); metafile : $(NOECHO) $(NOOP) MAKE_FRAG my $metadata = $self->metafile_data( $self->{META_ADD} || {}, $self->{META_MERGE} || {}, ); my $meta = $self->_fix_metadata_before_conversion( $metadata ); my @write_metayml = $self->stashmeta( $meta->as_string({version => "1.4"}), 'META_new.yml' ); my @write_metajson = $self->stashmeta( $meta->as_string({version => "2.0"}), 'META_new.json' ); my $metayml = join("\n\t", @write_metayml); my $metajson = join("\n\t", @write_metajson); return sprintf <<'MAKE_FRAG', $metayml, $metajson; metafile : create_distdir $(NOECHO) $(ECHO) Generating META.yml %s -$(NOECHO) $(MV) META_new.yml $(DISTVNAME)/META.yml $(NOECHO) $(ECHO) Generating META.json %s -$(NOECHO) $(MV) META_new.json $(DISTVNAME)/META.json MAKE_FRAG } =begin private =head3 _fix_metadata_before_conversion $mm->_fix_metadata_before_conversion( \%metadata ); Fixes errors in the metadata before it's handed off to L<CPAN::Meta> for conversion. This hopefully results in something that can be used further on, no guarantee is made though. =end private =cut sub _fix_metadata_before_conversion { my ( $self, $metadata ) = @_; # we should never be called unless this already passed but # prefer to be defensive in case somebody else calls this return unless _has_cpan_meta; my $bad_version = $metadata->{version} && !CPAN::Meta::Validator->new->version( 'version', $metadata->{version} ); # just delete all invalid versions if( $bad_version ) { warn "Can't parse version '$metadata->{version}'\n"; $metadata->{version} = ''; } my $validator2 = CPAN::Meta::Validator->new( $metadata ); my @errors; push @errors, $validator2->errors if !$validator2->is_valid; my $validator14 = CPAN::Meta::Validator->new( { %$metadata, 'meta-spec' => { version => 1.4 }, } ); push @errors, $validator14->errors if !$validator14->is_valid; # fix non-camelcase custom resource keys (only other trick we know) for my $error ( @errors ) { my ( $key ) = ( $error =~ /Custom resource '(.*)' must be in CamelCase./ ); next if !$key; # first try to remove all non-alphabetic chars ( my $new_key = $key ) =~ s/[^_a-zA-Z]//g; # if that doesn't work, uppercase first one $new_key = ucfirst $new_key if !$validator14->custom_1( $new_key ); # copy to new key if that worked $metadata->{resources}{$new_key} = $metadata->{resources}{$key} if $validator14->custom_1( $new_key ); # and delete old one in any case delete $metadata->{resources}{$key}; } # paper over validation issues, but still complain, necessary because # there's no guarantee that the above will fix ALL errors my $meta = eval { CPAN::Meta->create( $metadata, { lazy_validation => 1 } ) }; warn $@ if $@ and $@ !~ /encountered CODE.*, but JSON can only represent references to arrays or hashes/; # use the original metadata straight if the conversion failed # or if it can't be stringified. if( !$meta || !eval { $meta->as_string( { version => $METASPEC_V } ) } || !eval { $meta->as_string } ) { $meta = bless $metadata, 'CPAN::Meta'; } my $now_license = $meta->as_struct({ version => 2 })->{license}; if ($self->{LICENSE} and $self->{LICENSE} ne 'unknown' and @{$now_license} == 1 and $now_license->[0] eq 'unknown' ) { warn "Invalid LICENSE value '$self->{LICENSE}' ignored\n"; } $meta; } =begin private =head3 _sort_pairs my @pairs = _sort_pairs($sort_sub, \%hash); Sorts the pairs of a hash based on keys ordered according to C<$sort_sub>. =end private =cut sub _sort_pairs { my $sort = shift; my $pairs = shift; return map { $_ => $pairs->{$_} } sort $sort keys %$pairs; } # Taken from Module::Build::Base sub _hash_merge { my ($self, $h, $k, $v) = @_; if (ref $h->{$k} eq 'ARRAY') { push @{$h->{$k}}, ref $v ? @$v : $v; } elsif (ref $h->{$k} eq 'HASH') { $self->_hash_merge($h->{$k}, $_, $v->{$_}) foreach keys %$v; } else { $h->{$k} = $v; } } =head3 metafile_data my $metadata_hashref = $mm->metafile_data(\%meta_add, \%meta_merge); Returns the data which MakeMaker turns into the META.yml file and the META.json file. It is always in version 2.0 of the format. Values of %meta_add will overwrite any existing metadata in those keys. %meta_merge will be merged with them. =cut sub metafile_data { my $self = shift; my($meta_add, $meta_merge) = @_; $meta_add ||= {}; $meta_merge ||= {}; my $version = _normalize_version($self->{VERSION}); my $release_status = ($version =~ /_/) ? 'unstable' : 'stable'; my %meta = ( # required abstract => $self->{ABSTRACT} || 'unknown', author => defined($self->{AUTHOR}) ? $self->{AUTHOR} : ['unknown'], dynamic_config => 1, generated_by => "ExtUtils::MakeMaker version $ExtUtils::MakeMaker::VERSION", license => [ $self->{LICENSE} || 'unknown' ], 'meta-spec' => { url => $METASPEC_URL, version => $METASPEC_V, }, name => $self->{DISTNAME}, release_status => $release_status, version => $version, # optional no_index => { directory => [qw(t inc)] }, ); $self->_add_requirements_to_meta(\%meta); if (!eval { require JSON::PP; require CPAN::Meta::Converter; CPAN::Meta::Converter->VERSION(2.141170) }) { return \%meta; } # needs to be based on the original version my $v1_add = _metaspec_version($meta_add) !~ /^2/; my ($add_v, $merge_v) = map _metaspec_version($_), $meta_add, $meta_merge; for my $frag ($meta_add, $meta_merge) { my $def_v = $frag == $meta_add ? $merge_v : $add_v; $frag = CPAN::Meta::Converter->new($frag, default_version => $def_v)->upgrade_fragment; } # if we upgraded a 1.x _ADD fragment, we gave it a prereqs key that # will override all prereqs, which is more than the user asked for; # instead, we'll go inside the prereqs and override all those while( my($key, $val) = each %$meta_add ) { if ($v1_add and $key eq 'prereqs') { $meta{$key}{$_} = $val->{$_} for keys %$val; } elsif ($key ne 'meta-spec') { $meta{$key} = $val; } } while( my($key, $val) = each %$meta_merge ) { next if $key eq 'meta-spec'; $self->_hash_merge(\%meta, $key, $val); } return \%meta; } =begin private =cut sub _add_requirements_to_meta { my ( $self, $meta ) = @_; # Check the original args so we can tell between the user setting it # to an empty hash and it just being initialized. $meta->{prereqs}{configure}{requires} = $self->{ARGS}{CONFIGURE_REQUIRES} ? $self->{CONFIGURE_REQUIRES} : { 'ExtUtils::MakeMaker' => 0, }; $meta->{prereqs}{build}{requires} = $self->{ARGS}{BUILD_REQUIRES} ? $self->{BUILD_REQUIRES} : { 'ExtUtils::MakeMaker' => 0, }; $meta->{prereqs}{test}{requires} = $self->{TEST_REQUIRES} if $self->{ARGS}{TEST_REQUIRES}; $meta->{prereqs}{runtime}{requires} = $self->{PREREQ_PM} if $self->{ARGS}{PREREQ_PM}; $meta->{prereqs}{runtime}{requires}{perl} = _normalize_version($self->{MIN_PERL_VERSION}) if $self->{MIN_PERL_VERSION}; } # spec version of given fragment - if not given, assume 1.4 sub _metaspec_version { my ( $meta ) = @_; return $meta->{'meta-spec'}->{version} if defined $meta->{'meta-spec'} and defined $meta->{'meta-spec'}->{version}; return '1.4'; } sub _add_requirements_to_meta_v1_4 { my ( $self, $meta ) = @_; # Check the original args so we can tell between the user setting it # to an empty hash and it just being initialized. if( $self->{ARGS}{CONFIGURE_REQUIRES} ) { $meta->{configure_requires} = $self->{CONFIGURE_REQUIRES}; } else { $meta->{configure_requires} = { 'ExtUtils::MakeMaker' => 0, }; } if( $self->{ARGS}{BUILD_REQUIRES} ) { $meta->{build_requires} = $self->{BUILD_REQUIRES}; } else { $meta->{build_requires} = { 'ExtUtils::MakeMaker' => 0, }; } if( $self->{ARGS}{TEST_REQUIRES} ) { $meta->{build_requires} = { %{ $meta->{build_requires} }, %{ $self->{TEST_REQUIRES} }, }; } $meta->{requires} = $self->{PREREQ_PM} if defined $self->{PREREQ_PM}; $meta->{requires}{perl} = _normalize_version($self->{MIN_PERL_VERSION}) if $self->{MIN_PERL_VERSION}; } # Adapted from Module::Build::Base sub _normalize_version { my ($version) = @_; $version = 0 unless defined $version; if ( ref $version eq 'version' ) { # version objects $version = $version->stringify; } elsif ( $version =~ /^[^v][^.]*\.[^.]+\./ ) { # no leading v, multiple dots # normalize string tuples without "v": "1.2.3" -> "v1.2.3" $version = "v$version"; } else { # leave alone } return $version; } =head3 _dump_hash $yaml = _dump_hash(\%options, %hash); Implements a fake YAML dumper for a hash given as a list of pairs. No quoting/escaping is done. Keys are supposed to be strings. Values are undef, strings, hash refs or array refs of strings. Supported options are: delta => STR - indentation delta use_header => BOOL - whether to include a YAML header indent => STR - a string of spaces default: '' max_key_length => INT - maximum key length used to align keys and values of the same hash default: 20 key_sort => CODE - a sort sub It may be undef, which means no sorting by keys default: sub { lc $a cmp lc $b } customs => HASH - special options for certain keys (whose values are hashes themselves) may contain: max_key_length, key_sort, customs =end private =cut sub _dump_hash { croak "first argument should be a hash ref" unless ref $_[0] eq 'HASH'; my $options = shift; my %hash = @_; # Use a list to preserve order. my @pairs; my $k_sort = exists $options->{key_sort} ? $options->{key_sort} : sub { lc $a cmp lc $b }; if ($k_sort) { croak "'key_sort' should be a coderef" unless ref $k_sort eq 'CODE'; @pairs = _sort_pairs($k_sort, \%hash); } else { # list of pairs, no sorting @pairs = @_; } my $yaml = $options->{use_header} ? "--- #YAML:1.0\n" : ''; my $indent = $options->{indent} || ''; my $k_length = min( ($options->{max_key_length} || 20), max(map { length($_) + 1 } grep { !ref $hash{$_} } keys %hash) ); my $customs = $options->{customs} || {}; # printf format for key my $k_format = "%-${k_length}s"; while( @pairs ) { my($key, $val) = splice @pairs, 0, 2; $val = '~' unless defined $val; if(ref $val eq 'HASH') { if ( keys %$val ) { my %k_options = ( # options for recursive call delta => $options->{delta}, use_header => 0, indent => $indent . $options->{delta}, ); if (exists $customs->{$key}) { my %k_custom = %{$customs->{$key}}; foreach my $k (qw(key_sort max_key_length customs)) { $k_options{$k} = $k_custom{$k} if exists $k_custom{$k}; } } $yaml .= $indent . "$key:\n" . _dump_hash(\%k_options, %$val); } else { $yaml .= $indent . "$key: {}\n"; } } elsif (ref $val eq 'ARRAY') { if( @$val ) { $yaml .= $indent . "$key:\n"; for (@$val) { croak "only nested arrays of non-refs are supported" if ref $_; $yaml .= $indent . $options->{delta} . "- $_\n"; } } else { $yaml .= $indent . "$key: []\n"; } } elsif( ref $val and !blessed($val) ) { croak "only nested hashes, arrays and objects are supported"; } else { # if it's an object, just stringify it $yaml .= $indent . sprintf "$k_format %s\n", "$key:", $val; } }; return $yaml; } sub blessed { return eval { $_[0]->isa("UNIVERSAL"); }; } sub max { return (sort { $b <=> $a } @_)[0]; } sub min { return (sort { $a <=> $b } @_)[0]; } =head3 metafile_file my $meta_yml = $mm->metafile_file(@metadata_pairs); Turns the @metadata_pairs into YAML. This method does not implement a complete YAML dumper, being limited to dump a hash with values which are strings, undef's or nested hashes and arrays of strings. No quoting/escaping is done. =cut sub metafile_file { my $self = shift; my %dump_options = ( use_header => 1, delta => ' ' x 4, key_sort => undef, ); return _dump_hash(\%dump_options, @_); } =head3 distmeta_target my $make_frag = $mm->distmeta_target; Generates the distmeta target to add META.yml and META.json to the MANIFEST in the distdir. =cut sub distmeta_target { my $self = shift; my @add_meta = ( $self->oneliner(<<'CODE', ['-MExtUtils::Manifest=maniadd']), exit unless -e q{META.yml}; eval { maniadd({q{META.yml} => q{Module YAML meta-data (added by MakeMaker)}}) } or die "Could not add META.yml to MANIFEST: ${'@'}" CODE $self->oneliner(<<'CODE', ['-MExtUtils::Manifest=maniadd']) exit unless -f q{META.json}; eval { maniadd({q{META.json} => q{Module JSON meta-data (added by MakeMaker)}}) } or die "Could not add META.json to MANIFEST: ${'@'}" CODE ); my @add_meta_to_distdir = map { $self->cd('$(DISTVNAME)', $_) } @add_meta; return sprintf <<'MAKE', @add_meta_to_distdir; distmeta : create_distdir metafile $(NOECHO) %s $(NOECHO) %s MAKE } =head3 mymeta my $mymeta = $mm->mymeta; Generate MYMETA information as a hash either from an existing CPAN Meta file (META.json or META.yml) or from internal data. =cut sub mymeta { my $self = shift; my $file = shift || ''; # for testing my $mymeta = $self->_mymeta_from_meta($file); my $v2 = 1; unless ( $mymeta ) { $mymeta = $self->metafile_data( $self->{META_ADD} || {}, $self->{META_MERGE} || {}, ); $v2 = 0; } # Overwrite the non-configure dependency hashes $self->_add_requirements_to_meta($mymeta); $mymeta->{dynamic_config} = 0; return $mymeta; } sub _mymeta_from_meta { my $self = shift; my $metafile = shift || ''; # for testing return unless _has_cpan_meta(); my $meta; for my $file ( $metafile, "META.json", "META.yml" ) { next unless -e $file; eval { $meta = CPAN::Meta->load_file($file)->as_struct( { version => 2 } ); }; last if $meta; } return unless $meta; # META.yml before 6.25_01 cannot be trusted. META.yml lived in the source directory. # There was a good chance the author accidentally uploaded a stale META.yml if they # rolled their own tarball rather than using "make dist". if ($meta->{generated_by} && $meta->{generated_by} =~ /ExtUtils::MakeMaker version ([\d\._]+)/) { my $eummv = do { no warnings; $1+0; }; if ($eummv < 6.2501) { return; } } return $meta; } =head3 write_mymeta $self->write_mymeta( $mymeta ); Write MYMETA information to MYMETA.json and MYMETA.yml. =cut sub write_mymeta { my $self = shift; my $mymeta = shift; return unless _has_cpan_meta(); my $meta_obj = $self->_fix_metadata_before_conversion( $mymeta ); $meta_obj->save( 'MYMETA.json', { version => "2.0" } ); $meta_obj->save( 'MYMETA.yml', { version => "1.4" } ); return 1; } =head3 realclean (o) Defines the realclean target. =cut sub realclean { my($self, %attribs) = @_; my @dirs = qw($(DISTVNAME)); my @files = qw($(FIRST_MAKEFILE) $(MAKEFILE_OLD)); # Special exception for the perl core where INST_* is not in blib. # This cleans up the files built from the ext/ directory (all XS). if( $self->{PERL_CORE} ) { push @dirs, qw($(INST_AUTODIR) $(INST_ARCHAUTODIR)); push @files, values %{$self->{PM}}; } if( $self->has_link_code ){ push @files, qw($(OBJECT)); } if( $attribs{FILES} ) { if( ref $attribs{FILES} ) { push @dirs, @{ $attribs{FILES} }; } else { push @dirs, split /\s+/, $attribs{FILES}; } } # Occasionally files are repeated several times from different sources { my(%f) = map { ($_ => 1) } @files; @files = sort keys %f; } { my(%d) = map { ($_ => 1) } @dirs; @dirs = sort keys %d; } my $rm_cmd = join "\n\t", map { "$_" } $self->split_command('- $(RM_F)', @files); my $rmf_cmd = join "\n\t", map { "$_" } $self->split_command('- $(RM_RF)', @dirs); my $m = sprintf <<'MAKE', $rm_cmd, $rmf_cmd; # Delete temporary files (via clean) and also delete dist files realclean purge :: realclean_subdirs %s %s MAKE $m .= "\t$attribs{POSTOP}\n" if $attribs{POSTOP}; return $m; } =head3 realclean_subdirs_target my $make_frag = $MM->realclean_subdirs_target; Returns the realclean_subdirs target. This is used by the realclean target to call realclean on any subdirectories which contain Makefiles. =cut sub realclean_subdirs_target { my $self = shift; my @m = <<'EOF'; # so clean is forced to complete before realclean_subdirs runs realclean_subdirs : clean EOF return join '', @m, "\t\$(NOECHO) \$(NOOP)\n" unless @{$self->{DIR}}; foreach my $dir (@{$self->{DIR}}) { foreach my $makefile ('$(MAKEFILE_OLD)', '$(FIRST_MAKEFILE)' ) { my $subrclean .= $self->oneliner(_sprintf562 <<'CODE', $dir, $makefile); chdir '%1$s'; system '$(MAKE) $(USEMAKEFILE) %2$s realclean' if -f '%2$s'; CODE push @m, "\t- $subrclean\n"; } } return join '', @m; } =head3 signature_target my $target = $mm->signature_target; Generate the signature target. Writes the file SIGNATURE with "cpansign -s". =cut sub signature_target { my $self = shift; return <<'MAKE_FRAG'; signature : cpansign -s MAKE_FRAG } =head3 distsignature_target my $make_frag = $mm->distsignature_target; Generates the distsignature target to add SIGNATURE to the MANIFEST in the distdir. =cut sub distsignature_target { my $self = shift; my $add_sign = $self->oneliner(<<'CODE', ['-MExtUtils::Manifest=maniadd']); eval { maniadd({q{SIGNATURE} => q{Public-key signature (added by MakeMaker)}}) } or die "Could not add SIGNATURE to MANIFEST: ${'@'}" CODE my $sign_dist = $self->cd('$(DISTVNAME)' => 'cpansign -s'); # cpansign -s complains if SIGNATURE is in the MANIFEST yet does not # exist my $touch_sig = $self->cd('$(DISTVNAME)' => '$(TOUCH) SIGNATURE'); my $add_sign_to_dist = $self->cd('$(DISTVNAME)' => $add_sign ); return sprintf <<'MAKE', $add_sign_to_dist, $touch_sig, $sign_dist distsignature : distmeta $(NOECHO) %s $(NOECHO) %s %s MAKE } =head3 special_targets my $make_frag = $mm->special_targets Returns a make fragment containing any targets which have special meaning to make. For example, .SUFFIXES and .PHONY. =cut sub special_targets { my $make_frag = <<'MAKE_FRAG'; .SUFFIXES : .xs .c .C .cpp .i .s .cxx .cc $(OBJ_EXT) .PHONY: all config static dynamic test linkext manifest blibdirs clean realclean disttest distdir pure_all subdirs clean_subdirs makemakerdflt manifypods realclean_subdirs subdirs_dynamic subdirs_pure_nolink subdirs_static subdirs-test_dynamic subdirs-test_static test_dynamic test_static MAKE_FRAG $make_frag .= <<'MAKE_FRAG' if $ENV{CLEARCASE_ROOT}; .NO_CONFIG_REC: Makefile MAKE_FRAG return $make_frag; } =head2 Init methods Methods which help initialize the MakeMaker object and macros. =head3 init_ABSTRACT $mm->init_ABSTRACT =cut sub init_ABSTRACT { my $self = shift; if( $self->{ABSTRACT_FROM} and $self->{ABSTRACT} ) { warn "Both ABSTRACT_FROM and ABSTRACT are set. ". "Ignoring ABSTRACT_FROM.\n"; return; } if ($self->{ABSTRACT_FROM}){ $self->{ABSTRACT} = $self->parse_abstract($self->{ABSTRACT_FROM}) or carp "WARNING: Setting ABSTRACT via file ". "'$self->{ABSTRACT_FROM}' failed\n"; } if ($self->{ABSTRACT} && $self->{ABSTRACT} =~ m![[:cntrl:]]+!) { warn "WARNING: ABSTRACT contains control character(s),". " they will be removed\n"; $self->{ABSTRACT} =~ s![[:cntrl:]]+!!g; return; } } =head3 init_INST $mm->init_INST; Called by init_main. Sets up all INST_* variables except those related to XS code. Those are handled in init_xs. =cut sub init_INST { my($self) = shift; $self->{INST_ARCHLIB} ||= $self->catdir($Curdir,"blib","arch"); $self->{INST_BIN} ||= $self->catdir($Curdir,'blib','bin'); # INST_LIB typically pre-set if building an extension after # perl has been built and installed. Setting INST_LIB allows # you to build directly into, say $Config{privlibexp}. unless ($self->{INST_LIB}){ if ($self->{PERL_CORE}) { $self->{INST_LIB} = $self->{INST_ARCHLIB} = $self->{PERL_LIB}; } else { $self->{INST_LIB} = $self->catdir($Curdir,"blib","lib"); } } my @parentdir = split(/::/, $self->{PARENT_NAME}); $self->{INST_LIBDIR} = $self->catdir('$(INST_LIB)', @parentdir); $self->{INST_ARCHLIBDIR} = $self->catdir('$(INST_ARCHLIB)', @parentdir); $self->{INST_AUTODIR} = $self->catdir('$(INST_LIB)', 'auto', '$(FULLEXT)'); $self->{INST_ARCHAUTODIR} = $self->catdir('$(INST_ARCHLIB)', 'auto', '$(FULLEXT)'); $self->{INST_SCRIPT} ||= $self->catdir($Curdir,'blib','script'); $self->{INST_MAN1DIR} ||= $self->catdir($Curdir,'blib','man1'); $self->{INST_MAN3DIR} ||= $self->catdir($Curdir,'blib','man3'); return 1; } =head3 init_INSTALL $mm->init_INSTALL; Called by init_main. Sets up all INSTALL_* variables (except INSTALLDIRS) and *PREFIX. =cut sub init_INSTALL { my($self) = shift; if( $self->{ARGS}{INSTALL_BASE} and $self->{ARGS}{PREFIX} ) { die "Only one of PREFIX or INSTALL_BASE can be given. Not both.\n"; } if( $self->{ARGS}{INSTALL_BASE} ) { $self->init_INSTALL_from_INSTALL_BASE; } else { $self->init_INSTALL_from_PREFIX; } } =head3 init_INSTALL_from_PREFIX $mm->init_INSTALL_from_PREFIX; =cut sub init_INSTALL_from_PREFIX { my $self = shift; $self->init_lib2arch; # There are often no Config.pm defaults for these new man variables so # we fall back to the old behavior which is to use installman*dir foreach my $num (1, 3) { my $k = 'installsiteman'.$num.'dir'; $self->{uc $k} ||= uc "\$(installman${num}dir)" unless $Config{$k}; } foreach my $num (1, 3) { my $k = 'installvendorman'.$num.'dir'; unless( $Config{$k} ) { $self->{uc $k} ||= $Config{usevendorprefix} ? uc "\$(installman${num}dir)" : ''; } } $self->{INSTALLSITEBIN} ||= '$(INSTALLBIN)' unless $Config{installsitebin}; $self->{INSTALLSITESCRIPT} ||= '$(INSTALLSCRIPT)' unless $Config{installsitescript}; unless( $Config{installvendorbin} ) { $self->{INSTALLVENDORBIN} ||= $Config{usevendorprefix} ? $Config{installbin} : ''; } unless( $Config{installvendorscript} ) { $self->{INSTALLVENDORSCRIPT} ||= $Config{usevendorprefix} ? $Config{installscript} : ''; } my $iprefix = $Config{installprefixexp} || $Config{installprefix} || $Config{prefixexp} || $Config{prefix} || ''; my $vprefix = $Config{usevendorprefix} ? $Config{vendorprefixexp} : ''; my $sprefix = $Config{siteprefixexp} || ''; # 5.005_03 doesn't have a siteprefix. $sprefix = $iprefix unless $sprefix; $self->{PREFIX} ||= ''; if( $self->{PREFIX} ) { @{$self}{qw(PERLPREFIX SITEPREFIX VENDORPREFIX)} = ('$(PREFIX)') x 3; } else { $self->{PERLPREFIX} ||= $iprefix; $self->{SITEPREFIX} ||= $sprefix; $self->{VENDORPREFIX} ||= $vprefix; # Lots of MM extension authors like to use $(PREFIX) so we # put something sensible in there no matter what. $self->{PREFIX} = '$('.uc $self->{INSTALLDIRS}.'PREFIX)'; } my $arch = $Config{archname}; my $version = $Config{version}; # default style my $libstyle = $Config{installstyle} || 'lib/perl5'; my $manstyle = ''; if( $self->{LIBSTYLE} ) { $libstyle = $self->{LIBSTYLE}; $manstyle = $self->{LIBSTYLE} eq 'lib/perl5' ? 'lib/perl5' : ''; } # Some systems, like VOS, set installman*dir to '' if they can't # read man pages. for my $num (1, 3) { $self->{'INSTALLMAN'.$num.'DIR'} ||= 'none' unless $Config{'installman'.$num.'dir'}; } my %bin_layouts = ( bin => { s => $iprefix, t => 'perl', d => 'bin' }, vendorbin => { s => $vprefix, t => 'vendor', d => 'bin' }, sitebin => { s => $sprefix, t => 'site', d => 'bin' }, script => { s => $iprefix, t => 'perl', d => 'bin' }, vendorscript=> { s => $vprefix, t => 'vendor', d => 'bin' }, sitescript => { s => $sprefix, t => 'site', d => 'bin' }, ); my %man_layouts = ( man1dir => { s => $iprefix, t => 'perl', d => 'man/man1', style => $manstyle, }, siteman1dir => { s => $sprefix, t => 'site', d => 'man/man1', style => $manstyle, }, vendorman1dir => { s => $vprefix, t => 'vendor', d => 'man/man1', style => $manstyle, }, man3dir => { s => $iprefix, t => 'perl', d => 'man/man3', style => $manstyle, }, siteman3dir => { s => $sprefix, t => 'site', d => 'man/man3', style => $manstyle, }, vendorman3dir => { s => $vprefix, t => 'vendor', d => 'man/man3', style => $manstyle, }, ); my %lib_layouts = ( privlib => { s => $iprefix, t => 'perl', d => '', style => $libstyle, }, vendorlib => { s => $vprefix, t => 'vendor', d => '', style => $libstyle, }, sitelib => { s => $sprefix, t => 'site', d => 'site_perl', style => $libstyle, }, archlib => { s => $iprefix, t => 'perl', d => "$version/$arch", style => $libstyle }, vendorarch => { s => $vprefix, t => 'vendor', d => "$version/$arch", style => $libstyle }, sitearch => { s => $sprefix, t => 'site', d => "site_perl/$version/$arch", style => $libstyle }, ); # Special case for LIB. if( $self->{LIB} ) { foreach my $var (keys %lib_layouts) { my $Installvar = uc "install$var"; if( $var =~ /arch/ ) { $self->{$Installvar} ||= $self->catdir($self->{LIB}, $Config{archname}); } else { $self->{$Installvar} ||= $self->{LIB}; } } } my %type2prefix = ( perl => 'PERLPREFIX', site => 'SITEPREFIX', vendor => 'VENDORPREFIX' ); my %layouts = (%bin_layouts, %man_layouts, %lib_layouts); while( my($var, $layout) = each(%layouts) ) { my($s, $t, $d, $style) = @{$layout}{qw(s t d style)}; my $r = '$('.$type2prefix{$t}.')'; warn "Prefixing $var\n" if $Verbose >= 2; my $installvar = "install$var"; my $Installvar = uc $installvar; next if $self->{$Installvar}; $d = "$style/$d" if $style; $self->prefixify($installvar, $s, $r, $d); warn " $Installvar == $self->{$Installvar}\n" if $Verbose >= 2; } # Generate these if they weren't figured out. $self->{VENDORARCHEXP} ||= $self->{INSTALLVENDORARCH}; $self->{VENDORLIBEXP} ||= $self->{INSTALLVENDORLIB}; return 1; } =head3 init_from_INSTALL_BASE $mm->init_from_INSTALL_BASE =cut my %map = ( lib => [qw(lib perl5)], arch => [('lib', 'perl5', $Config{archname})], bin => [qw(bin)], man1dir => [qw(man man1)], man3dir => [qw(man man3)] ); $map{script} = $map{bin}; sub init_INSTALL_from_INSTALL_BASE { my $self = shift; @{$self}{qw(PREFIX VENDORPREFIX SITEPREFIX PERLPREFIX)} = '$(INSTALL_BASE)'; my %install; foreach my $thing (keys %map) { foreach my $dir (('', 'SITE', 'VENDOR')) { my $uc_thing = uc $thing; my $key = "INSTALL".$dir.$uc_thing; $install{$key} ||= ($thing =~ /^man.dir$/ and not $Config{lc $key}) ? 'none' : $self->catdir('$(INSTALL_BASE)', @{$map{$thing}}); } } # Adjust for variable quirks. $install{INSTALLARCHLIB} ||= delete $install{INSTALLARCH}; $install{INSTALLPRIVLIB} ||= delete $install{INSTALLLIB}; foreach my $key (keys %install) { $self->{$key} ||= $install{$key}; } return 1; } =head3 init_VERSION I<Abstract> $mm->init_VERSION Initialize macros representing versions of MakeMaker and other tools MAKEMAKER: path to the MakeMaker module. MM_VERSION: ExtUtils::MakeMaker Version MM_REVISION: ExtUtils::MakeMaker version control revision (for backwards compat) VERSION: version of your module VERSION_MACRO: which macro represents the version (usually 'VERSION') VERSION_SYM: like version but safe for use as an RCS revision number DEFINE_VERSION: -D line to set the module version when compiling XS_VERSION: version in your .xs file. Defaults to $(VERSION) XS_VERSION_MACRO: which macro represents the XS version. XS_DEFINE_VERSION: -D line to set the xs version when compiling. Called by init_main. =cut sub init_VERSION { my($self) = shift; $self->{MAKEMAKER} = $ExtUtils::MakeMaker::Filename; $self->{MM_VERSION} = $ExtUtils::MakeMaker::VERSION; $self->{MM_REVISION}= $ExtUtils::MakeMaker::Revision; $self->{VERSION_FROM} ||= ''; if ($self->{VERSION_FROM}){ $self->{VERSION} = $self->parse_version($self->{VERSION_FROM}); if( $self->{VERSION} eq 'undef' ) { carp("WARNING: Setting VERSION via file ". "'$self->{VERSION_FROM}' failed\n"); } } if (defined $self->{VERSION}) { if ( $self->{VERSION} !~ /^\s*v?[\d_\.]+\s*$/ ) { require version; my $normal = eval { version->new( $self->{VERSION} ) }; $self->{VERSION} = $normal if defined $normal; } $self->{VERSION} =~ s/^\s+//; $self->{VERSION} =~ s/\s+$//; } else { $self->{VERSION} = ''; } $self->{VERSION_MACRO} = 'VERSION'; ($self->{VERSION_SYM} = $self->{VERSION}) =~ s/\W/_/g; $self->{DEFINE_VERSION} = '-D$(VERSION_MACRO)=\"$(VERSION)\"'; # Graham Barr and Paul Marquess had some ideas how to ensure # version compatibility between the *.pm file and the # corresponding *.xs file. The bottom line was, that we need an # XS_VERSION macro that defaults to VERSION: $self->{XS_VERSION} ||= $self->{VERSION}; $self->{XS_VERSION_MACRO} = 'XS_VERSION'; $self->{XS_DEFINE_VERSION} = '-D$(XS_VERSION_MACRO)=\"$(XS_VERSION)\"'; } =head3 init_tools $MM->init_tools(); Initializes the simple macro definitions used by tools_other() and places them in the $MM object. These use conservative cross platform versions and should be overridden with platform specific versions for performance. Defines at least these macros. Macro Description NOOP Do nothing NOECHO Tell make not to display the command itself SHELL Program used to run shell commands ECHO Print text adding a newline on the end RM_F Remove a file RM_RF Remove a directory TOUCH Update a file's timestamp TEST_F Test for a file's existence TEST_S Test the size of a file CP Copy a file CP_NONEMPTY Copy a file if it is not empty MV Move a file CHMOD Change permissions on a file FALSE Exit with non-zero TRUE Exit with zero UMASK_NULL Nullify umask DEV_NULL Suppress all command output =cut sub init_tools { my $self = shift; $self->{ECHO} ||= $self->oneliner('binmode STDOUT, qq{:raw}; print qq{@ARGV}', ['-l']); $self->{ECHO_N} ||= $self->oneliner('print qq{@ARGV}'); $self->{TOUCH} ||= $self->oneliner('touch', ["-MExtUtils::Command"]); $self->{CHMOD} ||= $self->oneliner('chmod', ["-MExtUtils::Command"]); $self->{RM_F} ||= $self->oneliner('rm_f', ["-MExtUtils::Command"]); $self->{RM_RF} ||= $self->oneliner('rm_rf', ["-MExtUtils::Command"]); $self->{TEST_F} ||= $self->oneliner('test_f', ["-MExtUtils::Command"]); $self->{TEST_S} ||= $self->oneliner('test_s', ["-MExtUtils::Command::MM"]); $self->{CP_NONEMPTY} ||= $self->oneliner('cp_nonempty', ["-MExtUtils::Command::MM"]); $self->{FALSE} ||= $self->oneliner('exit 1'); $self->{TRUE} ||= $self->oneliner('exit 0'); $self->{MKPATH} ||= $self->oneliner('mkpath', ["-MExtUtils::Command"]); $self->{CP} ||= $self->oneliner('cp', ["-MExtUtils::Command"]); $self->{MV} ||= $self->oneliner('mv', ["-MExtUtils::Command"]); $self->{MOD_INSTALL} ||= $self->oneliner(<<'CODE', ['-MExtUtils::Install']); install([ from_to => {@ARGV}, verbose => '$(VERBINST)', uninstall_shadows => '$(UNINST)', dir_mode => '$(PERM_DIR)' ]); CODE $self->{DOC_INSTALL} ||= $self->oneliner('perllocal_install', ["-MExtUtils::Command::MM"]); $self->{UNINSTALL} ||= $self->oneliner('uninstall', ["-MExtUtils::Command::MM"]); $self->{WARN_IF_OLD_PACKLIST} ||= $self->oneliner('warn_if_old_packlist', ["-MExtUtils::Command::MM"]); $self->{FIXIN} ||= $self->oneliner('MY->fixin(shift)', ["-MExtUtils::MY"]); $self->{EQUALIZE_TIMESTAMP} ||= $self->oneliner('eqtime', ["-MExtUtils::Command"]); $self->{UNINST} ||= 0; $self->{VERBINST} ||= 0; $self->{SHELL} ||= $Config{sh}; # UMASK_NULL is not used by MakeMaker but some CPAN modules # make use of it. $self->{UMASK_NULL} ||= "umask 0"; # Not the greatest default, but its something. $self->{DEV_NULL} ||= "> /dev/null 2>&1"; $self->{NOOP} ||= '$(TRUE)'; $self->{NOECHO} = '@' unless defined $self->{NOECHO}; $self->{FIRST_MAKEFILE} ||= $self->{MAKEFILE} || 'Makefile'; $self->{MAKEFILE} ||= $self->{FIRST_MAKEFILE}; $self->{MAKEFILE_OLD} ||= $self->{MAKEFILE}.'.old'; $self->{MAKE_APERL_FILE} ||= $self->{MAKEFILE}.'.aperl'; # Not everybody uses -f to indicate "use this Makefile instead" $self->{USEMAKEFILE} ||= '-f'; # Some makes require a wrapper around macros passed in on the command # line. $self->{MACROSTART} ||= ''; $self->{MACROEND} ||= ''; return; } =head3 init_others $MM->init_others(); Initializes the macro definitions having to do with compiling and linking used by tools_other() and places them in the $MM object. If there is no description, its the same as the parameter to WriteMakefile() documented in L<ExtUtils::MakeMaker>. =cut sub init_others { my $self = shift; $self->{LD_RUN_PATH} = ""; $self->{LIBS} = $self->_fix_libs($self->{LIBS}); # Compute EXTRALIBS, BSLOADLIBS and LDLOADLIBS from $self->{LIBS} foreach my $libs ( @{$self->{LIBS}} ){ $libs =~ s/^\s*(.*\S)\s*$/$1/; # remove leading and trailing whitespace my(@libs) = $self->extliblist($libs); if ($libs[0] or $libs[1] or $libs[2]){ # LD_RUN_PATH now computed by ExtUtils::Liblist ($self->{EXTRALIBS}, $self->{BSLOADLIBS}, $self->{LDLOADLIBS}, $self->{LD_RUN_PATH}) = @libs; last; } } if ( $self->{OBJECT} ) { $self->{OBJECT} = join(" ", @{$self->{OBJECT}}) if ref $self->{OBJECT}; $self->{OBJECT} =~ s!\.o(bj)?\b!\$(OBJ_EXT)!g; } elsif ( ($self->{MAGICXS} || $self->{XSMULTI}) && @{$self->{O_FILES}||[]} ) { $self->{OBJECT} = join(" ", @{$self->{O_FILES}}); $self->{OBJECT} =~ s!\.o(bj)?\b!\$(OBJ_EXT)!g; } else { # init_dirscan should have found out, if we have C files $self->{OBJECT} = ""; $self->{OBJECT} = '$(BASEEXT)$(OBJ_EXT)' if @{$self->{C}||[]}; } $self->{OBJECT} =~ s/\n+/ \\\n\t/g; $self->{BOOTDEP} = (-f "$self->{BASEEXT}_BS") ? "$self->{BASEEXT}_BS" : ""; $self->{PERLMAINCC} ||= '$(CC)'; $self->{LDFROM} = '$(OBJECT)' unless $self->{LDFROM}; # Sanity check: don't define LINKTYPE = dynamic if we're skipping # the 'dynamic' section of MM. We don't have this problem with # 'static', since we either must use it (%Config says we can't # use dynamic loading) or the caller asked for it explicitly. if (!$self->{LINKTYPE}) { $self->{LINKTYPE} = $self->{SKIPHASH}{'dynamic'} ? 'static' : ($Config{usedl} ? 'dynamic' : 'static'); } return; } # Lets look at $self->{LIBS} carefully: It may be an anon array, a string or # undefined. In any case we turn it into an anon array sub _fix_libs { my($self, $libs) = @_; return !defined $libs ? [''] : !ref $libs ? [$libs] : !defined $libs->[0] ? [''] : $libs ; } =head3 tools_other my $make_frag = $MM->tools_other; Returns a make fragment containing definitions for the macros init_others() initializes. =cut sub tools_other { my($self) = shift; my @m; # We set PM_FILTER as late as possible so it can see all the earlier # on macro-order sensitive makes such as nmake. for my $tool (qw{ SHELL CHMOD CP MV NOOP NOECHO RM_F RM_RF TEST_F TOUCH UMASK_NULL DEV_NULL MKPATH EQUALIZE_TIMESTAMP FALSE TRUE ECHO ECHO_N UNINST VERBINST MOD_INSTALL DOC_INSTALL UNINSTALL WARN_IF_OLD_PACKLIST MACROSTART MACROEND USEMAKEFILE PM_FILTER FIXIN CP_NONEMPTY } ) { next unless defined $self->{$tool}; push @m, "$tool = $self->{$tool}\n"; } return join "", @m; } =head3 init_DIRFILESEP I<Abstract> $MM->init_DIRFILESEP; my $dirfilesep = $MM->{DIRFILESEP}; Initializes the DIRFILESEP macro which is the separator between the directory and filename in a filepath. ie. / on Unix, \ on Win32 and nothing on VMS. For example: # instead of $(INST_ARCHAUTODIR)/extralibs.ld $(INST_ARCHAUTODIR)$(DIRFILESEP)extralibs.ld Something of a hack but it prevents a lot of code duplication between MM_* variants. Do not use this as a separator between directories. Some operating systems use different separators between subdirectories as between directories and filenames (for example: VOLUME:[dir1.dir2]file on VMS). =head3 init_linker I<Abstract> $mm->init_linker; Initialize macros which have to do with linking. PERL_ARCHIVE: path to libperl.a equivalent to be linked to dynamic extensions. PERL_ARCHIVE_AFTER: path to a library which should be put on the linker command line I<after> the external libraries to be linked to dynamic extensions. This may be needed if the linker is one-pass, and Perl includes some overrides for C RTL functions, such as malloc(). EXPORT_LIST: name of a file that is passed to linker to define symbols to be exported. Some OSes do not need these in which case leave it blank. =head3 init_platform $mm->init_platform Initialize any macros which are for platform specific use only. A typical one is the version number of your OS specific module. (ie. MM_Unix_VERSION or MM_VMS_VERSION). =cut sub init_platform { return ''; } =head3 init_MAKE $mm->init_MAKE Initialize MAKE from either a MAKE environment variable or $Config{make}. =cut sub init_MAKE { my $self = shift; $self->{MAKE} ||= $ENV{MAKE} || $Config{make}; } =head2 Tools A grab bag of methods to generate specific macros and commands. =head3 manifypods Defines targets and routines to translate the pods into manpages and put them into the INST_* directories. =cut sub manifypods { my $self = shift; my $POD2MAN_macro = $self->POD2MAN_macro(); my $manifypods_target = $self->manifypods_target(); return <<END_OF_TARGET; $POD2MAN_macro $manifypods_target END_OF_TARGET } =head3 POD2MAN_macro my $pod2man_macro = $self->POD2MAN_macro Returns a definition for the POD2MAN macro. This is a program which emulates the pod2man utility. You can add more switches to the command by simply appending them on the macro. Typical usage: $(POD2MAN) --section=3 --perm_rw=$(PERM_RW) podfile1 man_page1 ... =cut sub POD2MAN_macro { my $self = shift; # Need the trailing '--' so perl stops gobbling arguments and - happens # to be an alternative end of line separator on VMS so we quote it return <<'END_OF_DEF'; POD2MAN_EXE = $(PERLRUN) "-MExtUtils::Command::MM" -e pod2man "--" POD2MAN = $(POD2MAN_EXE) END_OF_DEF } =head3 test_via_harness my $command = $mm->test_via_harness($perl, $tests); Returns a $command line which runs the given set of $tests with Test::Harness and the given $perl. Used on the t/*.t files. =cut sub test_via_harness { my($self, $perl, $tests) = @_; return qq{\t$perl "-MExtUtils::Command::MM" "-MTest::Harness" }. qq{"-e" "undef *Test::Harness::Switches; test_harness(\$(TEST_VERBOSE), '\$(INST_LIB)', '\$(INST_ARCHLIB)')" $tests\n}; } =head3 test_via_script my $command = $mm->test_via_script($perl, $script); Returns a $command line which just runs a single test without Test::Harness. No checks are done on the results, they're just printed. Used for test.pl, since they don't always follow Test::Harness formatting. =cut sub test_via_script { my($self, $perl, $script) = @_; return qq{\t$perl "-I\$(INST_LIB)" "-I\$(INST_ARCHLIB)" $script\n}; } =head3 tool_autosplit Defines a simple perl call that runs autosplit. May be deprecated by pm_to_blib soon. =cut sub tool_autosplit { my($self, %attribs) = @_; my $maxlen = $attribs{MAXLEN} ? '$$AutoSplit::Maxlen=$attribs{MAXLEN};' : ''; my $asplit = $self->oneliner(sprintf <<'PERL_CODE', $maxlen); use AutoSplit; %s autosplit($$ARGV[0], $$ARGV[1], 0, 1, 1) PERL_CODE return sprintf <<'MAKE_FRAG', $asplit; # Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto AUTOSPLITFILE = %s MAKE_FRAG } =head3 arch_check my $arch_ok = $mm->arch_check( $INC{"Config.pm"}, File::Spec->catfile($Config{archlibexp}, "Config.pm") ); A sanity check that what Perl thinks the architecture is and what Config thinks the architecture is are the same. If they're not it will return false and show a diagnostic message. When building Perl it will always return true, as nothing is installed yet. The interface is a bit odd because this is the result of a quick refactoring. Don't rely on it. =cut sub arch_check { my $self = shift; my($pconfig, $cconfig) = @_; return 1 if $self->{PERL_SRC}; my($pvol, $pthinks) = $self->splitpath($pconfig); my($cvol, $cthinks) = $self->splitpath($cconfig); return 1 if $pthinks =~ /perl-base/; # https://bugs.debian.org/962138 $pthinks = $self->canonpath($pthinks); $cthinks = $self->canonpath($cthinks); my $ret = 1; if ($pthinks ne $cthinks) { print "Have $pthinks\n"; print "Want $cthinks\n"; $ret = 0; my $arch = (grep length, $self->splitdir($pthinks))[-1]; print <<END unless $self->{UNINSTALLED_PERL}; Your perl and your Config.pm seem to have different ideas about the architecture they are running on. Perl thinks: [$arch] Config says: [$Config{archname}] This may or may not cause problems. Please check your installation of perl if you have problems building this extension. END } return $ret; } =head2 File::Spec wrappers ExtUtils::MM_Any is a subclass of L<File::Spec>. The methods noted here override File::Spec. =head3 catfile File::Spec <= 0.83 has a bug where the file part of catfile is not canonicalized. This override fixes that bug. =cut sub catfile { my $self = shift; return $self->canonpath($self->SUPER::catfile(@_)); } =head2 Misc Methods I can't really figure out where they should go yet. =head3 find_tests my $test = $mm->find_tests; Returns a string suitable for feeding to the shell to return all tests in t/*.t. =cut sub find_tests { my($self) = shift; return -d 't' ? 't/*.t' : ''; } =head3 find_tests_recursive my $tests = $mm->find_tests_recursive; Returns a string suitable for feeding to the shell to return all tests in t/ but recursively. Equivalent to my $tests = $mm->find_tests_recursive_in('t'); =cut sub find_tests_recursive { my $self = shift; return $self->find_tests_recursive_in('t'); } =head3 find_tests_recursive_in my $tests = $mm->find_tests_recursive_in($dir); Returns a string suitable for feeding to the shell to return all tests in $dir recursively. =cut sub find_tests_recursive_in { my($self, $dir) = @_; return '' unless -d $dir; require File::Find; my $base_depth = grep { $_ ne '' } File::Spec->splitdir( (File::Spec->splitpath($dir))[1] ); my %depths; my $wanted = sub { return unless m!\.t$!; my ($volume,$directories,$file) = File::Spec->splitpath( $File::Find::name ); my $depth = grep { $_ ne '' } File::Spec->splitdir( $directories ); $depth -= $base_depth; $depths{ $depth } = 1; }; File::Find::find( $wanted, $dir ); return join ' ', map { $dir . '/*' x $_ . '.t' } sort { $a <=> $b } keys %depths; } =head3 extra_clean_files my @files_to_clean = $MM->extra_clean_files; Returns a list of OS specific files to be removed in the clean target in addition to the usual set. =cut # An empty method here tickled a perl 5.8.1 bug and would return its object. sub extra_clean_files { return; } =head3 installvars my @installvars = $mm->installvars; A list of all the INSTALL* variables without the INSTALL prefix. Useful for iteration or building related variable sets. =cut sub installvars { return qw(PRIVLIB SITELIB VENDORLIB ARCHLIB SITEARCH VENDORARCH BIN SITEBIN VENDORBIN SCRIPT SITESCRIPT VENDORSCRIPT MAN1DIR SITEMAN1DIR VENDORMAN1DIR MAN3DIR SITEMAN3DIR VENDORMAN3DIR ); } =head3 libscan my $wanted = $self->libscan($path); Takes a path to a file or dir and returns an empty string if we don't want to include this file in the library. Otherwise it returns the the $path unchanged. Mainly used to exclude version control administrative directories and base-level F<README.pod> from installation. =cut sub libscan { my($self,$path) = @_; if ($path =~ m<^README\.pod$>i) { warn "WARNING: Older versions of ExtUtils::MakeMaker may errantly install $path as part of this distribution. It is recommended to avoid using this path in CPAN modules.\n"; return ''; } my($dirs,$file) = ($self->splitpath($path))[1,2]; return '' if grep /^(?:RCS|CVS|SCCS|\.svn|_darcs)$/, $self->splitdir($dirs), $file; return $path; } =head3 platform_constants my $make_frag = $mm->platform_constants Returns a make fragment defining all the macros initialized in init_platform() rather than put them in constants(). =cut sub platform_constants { return ''; } =head3 post_constants (o) Returns an empty string per default. Dedicated to overrides from within Makefile.PL after all constants have been defined. =cut sub post_constants { ""; } =head3 post_initialize (o) Returns an empty string per default. Used in Makefile.PLs to add some chunk of text to the Makefile after the object is initialized. =cut sub post_initialize { ""; } =head3 postamble (o) Returns an empty string. Can be used in Makefile.PLs to write some text to the Makefile at the end. =cut sub postamble { ""; } =begin private =head3 _PREREQ_PRINT $self->_PREREQ_PRINT; Implements PREREQ_PRINT. Refactored out of MakeMaker->new(). =end private =cut sub _PREREQ_PRINT { my $self = shift; require Data::Dumper; my @what = ('PREREQ_PM'); push @what, 'MIN_PERL_VERSION' if $self->{MIN_PERL_VERSION}; push @what, 'BUILD_REQUIRES' if $self->{BUILD_REQUIRES}; print Data::Dumper->Dump([@{$self}{@what}], \@what); exit 0; } =begin private =head3 _PRINT_PREREQ $mm->_PRINT_PREREQ; Implements PRINT_PREREQ, a slightly different version of PREREQ_PRINT added by Redhat to, I think, support generating RPMs from Perl modules. Should not include BUILD_REQUIRES as RPMs do not include them. Refactored out of MakeMaker->new(). =end private =cut sub _PRINT_PREREQ { my $self = shift; my $prereqs= $self->{PREREQ_PM}; my @prereq = map { [$_, $prereqs->{$_}] } keys %$prereqs; if ( $self->{MIN_PERL_VERSION} ) { push @prereq, ['perl' => $self->{MIN_PERL_VERSION}]; } print join(" ", map { "perl($_->[0])>=$_->[1] " } sort { $a->[0] cmp $b->[0] } @prereq), "\n"; exit 0; } =begin private =head3 _perl_header_files my $perl_header_files= $self->_perl_header_files; returns a sorted list of header files as found in PERL_SRC or $archlibexp/CORE. Used by perldepend() in MM_Unix and MM_VMS via _perl_header_files_fragment() =end private =cut sub _perl_header_files { my $self = shift; my $header_dir = $self->{PERL_SRC} || $ENV{PERL_SRC} || $self->catdir($Config{archlibexp}, 'CORE'); opendir my $dh, $header_dir or die "Failed to opendir '$header_dir' to find header files: $!"; # we need to use a temporary here as the sort in scalar context would have undefined results. my @perl_headers= sort grep { /\.h\z/ } readdir($dh); closedir $dh; return @perl_headers; } =begin private =head3 _perl_header_files_fragment ($o, $separator) my $perl_header_files_fragment= $self->_perl_header_files_fragment("/"); return a Makefile fragment which holds the list of perl header files which XS code depends on $(PERL_INC), and sets up the dependency for the $(OBJECT) file. The $separator argument defaults to "". MM_VMS will set it to "" and MM_UNIX to "/" in perldepend(). This reason child subclasses need to control this is that in VMS the $(PERL_INC) directory will already have delimiters in it, but in UNIX $(PERL_INC) will need a slash between it an the filename. Hypothetically win32 could use "\\" (but it doesn't need to). =end private =cut sub _perl_header_files_fragment { my ($self, $separator)= @_; $separator ||= ""; return join("\\\n", "PERL_HDRS = ", map { sprintf( " \$(PERL_INCDEP)%s%s ", $separator, $_ ) } $self->_perl_header_files() ) . "\n\n" . "\$(OBJECT) : \$(PERL_HDRS)\n"; } =head1 AUTHOR Michael G Schwern <schwern@pobox.com> and the denizens of makemaker@perl.org with code from ExtUtils::MM_Unix and ExtUtils::MM_Win32. =cut 1; PK ! oT��& & 5.34.0/ExtUtils/MM_BeOS.pmnu �[��� package ExtUtils::MM_BeOS; use strict; use warnings; =head1 NAME ExtUtils::MM_BeOS - methods to override UN*X behaviour in ExtUtils::MakeMaker =head1 SYNOPSIS use ExtUtils::MM_BeOS; # Done internally by ExtUtils::MakeMaker if needed =head1 DESCRIPTION See L<ExtUtils::MM_Unix> for a documentation of the methods provided there. This package overrides the implementation of these methods, not the semantics. =over 4 =cut use ExtUtils::MakeMaker::Config; use File::Spec; require ExtUtils::MM_Any; require ExtUtils::MM_Unix; our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix ); our $VERSION = '7.62'; $VERSION =~ tr/_//d; =item os_flavor BeOS is BeOS. =cut sub os_flavor { return('BeOS'); } =item init_linker libperl.a equivalent to be linked to dynamic extensions. =cut sub init_linker { my($self) = shift; $self->{PERL_ARCHIVE} ||= File::Spec->catdir('$(PERL_INC)',$Config{libperl}); $self->{PERL_ARCHIVEDEP} ||= ''; $self->{PERL_ARCHIVE_AFTER} ||= ''; $self->{EXPORT_LIST} ||= ''; } =back =cut 1; __END__ PK ! ���i� � 5.34.0/ExtUtils/MM_Darwin.pmnu �[��� package ExtUtils::MM_Darwin; use strict; use warnings; BEGIN { require ExtUtils::MM_Unix; our @ISA = qw( ExtUtils::MM_Unix ); } our $VERSION = '7.62'; $VERSION =~ tr/_//d; =head1 NAME ExtUtils::MM_Darwin - special behaviors for OS X =head1 SYNOPSIS For internal MakeMaker use only =head1 DESCRIPTION See L<ExtUtils::MM_Unix> or L<ExtUtils::MM_Any> for documentation on the methods overridden here. =head2 Overridden Methods =head3 init_dist Turn off Apple tar's tendency to copy resource forks as "._foo" files. =cut sub init_dist { my $self = shift; # Thank you, Apple, for breaking tar and then breaking the work around. # 10.4 wants COPY_EXTENDED_ATTRIBUTES_DISABLE while 10.5 wants # COPYFILE_DISABLE. I'm not going to push my luck and instead just # set both. $self->{TAR} ||= 'COPY_EXTENDED_ATTRIBUTES_DISABLE=1 COPYFILE_DISABLE=1 tar'; $self->SUPER::init_dist(@_); } =head3 cflags Over-ride Apple's automatic setting of -Werror =cut sub cflags { my($self,$libperl)=@_; return $self->{CFLAGS} if $self->{CFLAGS}; return '' unless $self->needs_linking(); my $base = $self->SUPER::cflags($libperl); foreach (split /\n/, $base) { /^(\S*)\s*=\s*(\S*)$/ and $self->{$1} = $2; }; $self->{CCFLAGS} .= " -Wno-error=implicit-function-declaration"; return $self->{CFLAGS} = qq{ CCFLAGS = $self->{CCFLAGS} OPTIMIZE = $self->{OPTIMIZE} PERLTYPE = $self->{PERLTYPE} }; } 1; PK ! O�ZPc Pc 5.34.0/ExtUtils/Liblist/Kid.pmnu �[��� package ExtUtils::Liblist::Kid; # XXX Splitting this out into its own .pm is a temporary solution. # This kid package is to be used by MakeMaker. It will not work if # $self is not a Makemaker. use 5.006; # Broken out of MakeMaker from version 4.11 use strict; use warnings; our $VERSION = '7.62'; $VERSION =~ tr/_//d; use ExtUtils::MakeMaker::Config; use Cwd 'cwd'; use File::Basename; use File::Spec; sub ext { if ( $^O eq 'VMS' ) { return &_vms_ext; } elsif ( $^O eq 'MSWin32' ) { return &_win32_ext; } else { return &_unix_os2_ext; } } sub _unix_os2_ext { my ( $self, $potential_libs, $verbose, $give_libs ) = @_; $verbose ||= 0; if ( $^O =~ /os2|android/ and $Config{perllibs} ) { # Dynamic libraries are not transitive, so we may need including # the libraries linked against perl.dll/libperl.so again. $potential_libs .= " " if $potential_libs; $potential_libs .= $Config{perllibs}; } return ( "", "", "", "", ( $give_libs ? [] : () ) ) unless $potential_libs; warn "Potential libraries are '$potential_libs':\n" if $verbose; my ( $so ) = $Config{so}; my ( $libs ) = defined $Config{perllibs} ? $Config{perllibs} : $Config{libs}; my $Config_libext = $Config{lib_ext} || ".a"; my $Config_dlext = $Config{dlext}; # compute $extralibs, $bsloadlibs and $ldloadlibs from # $potential_libs # this is a rewrite of Andy Dougherty's extliblist in perl require Text::ParseWords; my ( @searchpath ); # from "-L/path" entries in $potential_libs my ( @libpath ) = Text::ParseWords::shellwords( $Config{'libpth'} || '' ); my ( @ldloadlibs, @bsloadlibs, @extralibs, @ld_run_path, %ld_run_path_seen ); my ( @libs, %libs_seen ); my ( $fullname, @fullname ); my ( $pwd ) = cwd(); # from Cwd.pm my ( $found ) = 0; if ( $^O eq 'darwin' or $^O eq 'next' ) { # 'escape' Mach-O ld -framework and -F flags, so they aren't dropped later on $potential_libs =~ s/(^|\s)(-(?:weak_|reexport_|lazy_)?framework)\s+(\S+)/$1-Wl,$2 -Wl,$3/g; $potential_libs =~ s/(^|\s)(-F)\s*(\S+)/$1-Wl,$2 -Wl,$3/g; } # Debian-specific: don't use LD_RUN_PATH for standard dirs $ld_run_path_seen{$_}++ for @libpath; foreach my $thislib ( Text::ParseWords::shellwords($potential_libs) ) { my ( $custom_name ) = ''; # Handle possible linker path arguments. if ( $thislib =~ s/^(-[LR]|-Wl,-R|-Wl,-rpath,)// ) { # save path flag type my ( $ptype ) = $1; unless ( -d $thislib ) { warn "$ptype$thislib ignored, directory does not exist\n" if $verbose; next; } my ( $rtype ) = $ptype; if ( ( $ptype eq '-R' ) or ( $ptype =~ m!^-Wl,-[Rr]! ) ) { if ( $Config{'lddlflags'} =~ /-Wl,-[Rr]/ ) { $rtype = '-Wl,-R'; } elsif ( $Config{'lddlflags'} =~ /-R/ ) { $rtype = '-R'; } } unless ( File::Spec->file_name_is_absolute( $thislib ) ) { warn "Warning: $ptype$thislib changed to $ptype$pwd/$thislib\n"; $thislib = $self->catdir( $pwd, $thislib ); } push( @searchpath, $thislib ); $thislib = qq{"$thislib"} if $thislib =~ / /; # protect spaces if there push( @extralibs, "$ptype$thislib" ); push( @ldloadlibs, "$rtype$thislib" ); next; } if ( $thislib =~ m!^-Wl,! ) { push( @extralibs, $thislib ); push( @ldloadlibs, $thislib ); next; } # Handle possible library arguments. if ( $thislib =~ s/^-l(:)?// ) { # Handle -l:foo.so, which means that the library will # actually be called foo.so, not libfoo.so. This # is used in Android by ExtUtils::Depends to allow one XS # module to link to another. $custom_name = $1 || ''; } else { warn "Unrecognized argument in LIBS ignored: '$thislib'\n"; next; } my ( $found_lib ) = 0; foreach my $thispth ( @searchpath, @libpath ) { # Try to find the full name of the library. We need this to # determine whether it's a dynamically-loadable library or not. # This tends to be subject to various os-specific quirks. # For gcc-2.6.2 on linux (March 1995), DLD can not load # .sa libraries, with the exception of libm.sa, so we # deliberately skip them. if ((@fullname = $self->lsdir($thispth, "^\Qlib$thislib.$so.\E[0-9]+")) || (@fullname = $self->lsdir($thispth, "^\Qlib$thislib.\E[0-9]+\Q\.$so"))) { # Take care that libfoo.so.10 wins against libfoo.so.9. # Compare two libraries to find the most recent version # number. E.g. if you have libfoo.so.9.0.7 and # libfoo.so.10.1, first convert all digits into two # decimal places. Then we'll add ".00" to the shorter # strings so that we're comparing strings of equal length # Thus we'll compare libfoo.so.09.07.00 with # libfoo.so.10.01.00. Some libraries might have letters # in the version. We don't know what they mean, but will # try to skip them gracefully -- we'll set any letter to # '0'. Finally, sort in reverse so we can take the # first element. #TODO: iterate through the directory instead of sorting $fullname = "$thispth/" . ( sort { my ( $ma ) = $a; my ( $mb ) = $b; $ma =~ tr/A-Za-z/0/s; $ma =~ s/\b(\d)\b/0$1/g; $mb =~ tr/A-Za-z/0/s; $mb =~ s/\b(\d)\b/0$1/g; while ( length( $ma ) < length( $mb ) ) { $ma .= ".00"; } while ( length( $mb ) < length( $ma ) ) { $mb .= ".00"; } # Comparison deliberately backwards $mb cmp $ma; } @fullname )[0]; } elsif ( -f ( $fullname = "$thispth/lib$thislib.$so" ) && ( ( $Config{'dlsrc'} ne "dl_dld.xs" ) || ( $thislib eq "m" ) ) ) { } elsif (-f ( $fullname = "$thispth/lib${thislib}_s$Config_libext" ) && ( $Config{'archname'} !~ /RM\d\d\d-svr4/ ) && ( $thislib .= "_s" ) ) { # we must explicitly use _s version } elsif ( -f ( $fullname = "$thispth/lib$thislib$Config_libext" ) ) { } elsif ( defined( $Config_dlext ) && -f ( $fullname = "$thispth/lib$thislib.$Config_dlext" ) ) { } elsif ( $^O eq 'darwin' && require DynaLoader && defined &DynaLoader::dl_load_file && DynaLoader::dl_load_file( $fullname = "$thispth/lib$thislib.$so", 0 ) ) { } elsif ( -f ( $fullname = "$thispth/$thislib$Config_libext" ) ) { } elsif ( -f ( $fullname = "$thispth/lib$thislib.dll$Config_libext" ) ) { } elsif ( $^O eq 'cygwin' && -f ( $fullname = "$thispth/$thislib.dll" ) ) { } elsif ( -f ( $fullname = "$thispth/Slib$thislib$Config_libext" ) ) { } elsif ($^O eq 'dgux' && -l ( $fullname = "$thispth/lib$thislib$Config_libext" ) && readlink( $fullname ) =~ /^elink:/s ) { # Some of DG's libraries look like misconnected symbolic # links, but development tools can follow them. (They # look like this: # # libm.a -> elink:${SDE_PATH:-/usr}/sde/\ # ${TARGET_BINARY_INTERFACE:-m88kdgux}/usr/lib/libm.a # # , the compilation tools expand the environment variables.) } elsif ( $custom_name && -f ( $fullname = "$thispth/$thislib" ) ) { } else { warn "$thislib not found in $thispth\n" if $verbose; next; } warn "'-l$thislib' found at $fullname\n" if $verbose; push @libs, $fullname unless $libs_seen{$fullname}++; $found++; $found_lib++; # Now update library lists # what do we know about this library... # "Sounds like we should always assume it's a dynamic library on AIX." my $is_dyna = $^O eq 'aix' ? 1 : ( $fullname !~ /\Q$Config_libext\E\z/ ); my $in_perl = ( $libs =~ /\B-l:?\Q${thislib}\E\b/s ); # include the path to the lib once in the dynamic linker path # but only if it is a dynamic lib and not in Perl itself my ( $fullnamedir ) = dirname( $fullname ); push @ld_run_path, $fullnamedir if $is_dyna && !$in_perl && !$ld_run_path_seen{$fullnamedir}++; # Do not add it into the list if it is already linked in # with the main perl executable. # We have to special-case the NeXT, because math and ndbm # are both in libsys_s unless ( $in_perl || ( $Config{'osname'} eq 'next' && ( $thislib eq 'm' || $thislib eq 'ndbm' ) ) ) { push( @extralibs, "-l$custom_name$thislib" ); } # We might be able to load this archive file dynamically if ( ( $Config{'dlsrc'} =~ /dl_next/ && $Config{'osvers'} lt '4_0' ) || ( $Config{'dlsrc'} =~ /dl_dld/ ) ) { # We push -l$thislib instead of $fullname because # it avoids hardwiring a fixed path into the .bs file. # Mkbootstrap will automatically add dl_findfile() to # the .bs file if it sees a name in the -l format. # USE THIS, when dl_findfile() is fixed: # push(@bsloadlibs, "-l$thislib"); # OLD USE WAS while checking results against old_extliblist push( @bsloadlibs, "$fullname" ); } else { if ( $is_dyna ) { # For SunOS4, do not add in this shared library if # it is already linked in the main perl executable push( @ldloadlibs, "-l$custom_name$thislib" ) unless ( $in_perl and $^O eq 'sunos' ); } else { push( @ldloadlibs, "-l$custom_name$thislib" ); } } last; # found one here so don't bother looking further } warn "Warning (mostly harmless): " . "No library found for -l$thislib\n" unless $found_lib > 0; } unless ( $found ) { return ( '', '', '', '', ( $give_libs ? \@libs : () ) ); } else { return ( "@extralibs", "@bsloadlibs", "@ldloadlibs", join( ":", @ld_run_path ), ( $give_libs ? \@libs : () ) ); } } sub _win32_ext { require Text::ParseWords; my ( $self, $potential_libs, $verbose, $give_libs ) = @_; $verbose ||= 0; # If user did not supply a list, we punt. # (caller should probably use the list in $Config{libs}) return ( "", "", "", "", ( $give_libs ? [] : () ) ) unless $potential_libs; # TODO: make this use MM_Win32.pm's compiler detection my %libs_seen; my @extralibs; my $cc = $Config{cc} || ''; my $VC = $cc =~ /\bcl\b/i; my $GC = $cc =~ /\bgcc\b/i; my $libext = _win32_lib_extensions(); my @searchpath = ( '' ); # from "-L/path" entries in $potential_libs my @libpath = _win32_default_search_paths( $VC, $GC ); my $pwd = cwd(); # from Cwd.pm my $search = 1; # compute @extralibs from $potential_libs my @lib_search_list = _win32_make_lib_search_list( $potential_libs, $verbose ); for ( @lib_search_list ) { my $thislib = $_; # see if entry is a flag if ( /^:\w+$/ ) { $search = 0 if lc eq ':nosearch'; $search = 1 if lc eq ':search'; _debug( "Ignoring unknown flag '$thislib'\n", $verbose ) if !/^:(no)?(search|default)$/i; next; } # if searching is disabled, do compiler-specific translations unless ( $search ) { s/^-l(.+)$/$1.lib/ unless $GC; s/^-L/-libpath:/ if $VC; push( @extralibs, $_ ); next; } # handle possible linker path arguments if ( s/^-L// and not -d ) { _debug( "$thislib ignored, directory does not exist\n", $verbose ); next; } elsif ( -d ) { unless ( File::Spec->file_name_is_absolute( $_ ) ) { warn "Warning: '$thislib' changed to '-L$pwd/$_'\n"; $_ = $self->catdir( $pwd, $_ ); } push( @searchpath, $_ ); next; } my @paths = ( @searchpath, @libpath ); my ( $fullname, $path ) = _win32_search_file( $thislib, $libext, \@paths, $verbose, $GC ); if ( !$fullname ) { warn "Warning (mostly harmless): No library found for $thislib\n"; next; } _debug( "'$thislib' found as '$fullname'\n", $verbose ); push( @extralibs, $fullname ); $libs_seen{$fullname} = 1 if $path; # why is this a special case? } my @libs = sort keys %libs_seen; return ( '', '', '', '', ( $give_libs ? \@libs : () ) ) unless @extralibs; # make sure paths with spaces are properly quoted @extralibs = map { qq["$_"] } @extralibs; @libs = map { qq["$_"] } @libs; my $lib = join( ' ', @extralibs ); # normalize back to backward slashes (to help braindead tools) # XXX this may break equally braindead GNU tools that don't understand # backslashes, either. Seems like one can't win here. Cursed be CP/M. $lib =~ s,/,\\,g; _debug( "Result: $lib\n", $verbose ); wantarray ? ( $lib, '', $lib, '', ( $give_libs ? \@libs : () ) ) : $lib; } sub _win32_make_lib_search_list { my ( $potential_libs, $verbose ) = @_; # If Config.pm defines a set of default libs, we always # tack them on to the user-supplied list, unless the user # specified :nodefault my $libs = $Config{'perllibs'}; $potential_libs = join( ' ', $potential_libs, $libs ) if $libs and $potential_libs !~ /:nodefault/i; _debug( "Potential libraries are '$potential_libs':\n", $verbose ); $potential_libs =~ s,\\,/,g; # normalize to forward slashes my @list = Text::ParseWords::quotewords( '\s+', 0, $potential_libs ); return @list; } sub _win32_default_search_paths { my ( $VC, $GC ) = @_; my $libpth = $Config{'libpth'} || ''; $libpth =~ s,\\,/,g; # normalize to forward slashes my @libpath = Text::ParseWords::quotewords( '\s+', 0, $libpth ); push @libpath, "$Config{installarchlib}/CORE"; # add "$Config{installarchlib}/CORE" to default search path push @libpath, split /;/, $ENV{LIB} if $VC and $ENV{LIB}; push @libpath, split /;/, $ENV{LIBRARY_PATH} if $GC and $ENV{LIBRARY_PATH}; return @libpath; } sub _win32_search_file { my ( $thislib, $libext, $paths, $verbose, $GC ) = @_; my @file_list = _win32_build_file_list( $thislib, $GC, $libext ); for my $lib_file ( @file_list ) { for my $path ( @{$paths} ) { my $fullname = $lib_file; $fullname = "$path\\$fullname" if $path; return ( $fullname, $path ) if -f $fullname; _debug( "'$thislib' not found as '$fullname'\n", $verbose ); } } return; } sub _win32_build_file_list { my ( $lib, $GC, $extensions ) = @_; my @pre_fixed = _win32_build_prefixed_list( $lib, $GC ); return map _win32_attach_extensions( $_, $extensions ), @pre_fixed; } sub _win32_build_prefixed_list { my ( $lib, $GC ) = @_; return $lib if $lib !~ s/^-l//; return $lib if $lib =~ /^lib/ and !$GC; ( my $no_prefix = $lib ) =~ s/^lib//i; $lib = "lib$lib" if $no_prefix eq $lib; return ( $lib, $no_prefix ) if $GC; return ( $no_prefix, $lib ); } sub _win32_attach_extensions { my ( $lib, $extensions ) = @_; return map _win32_try_attach_extension( $lib, $_ ), @{$extensions}; } sub _win32_try_attach_extension { my ( $lib, $extension ) = @_; return $lib if $lib =~ /\Q$extension\E$/i; return "$lib$extension"; } sub _win32_lib_extensions { my @extensions; push @extensions, $Config{'lib_ext'} if $Config{'lib_ext'}; push @extensions, '.dll.a' if grep { m!^\.a$! } @extensions; push @extensions, '.lib' unless grep { m!^\.lib$! } @extensions; return \@extensions; } sub _debug { my ( $message, $verbose ) = @_; return if !$verbose; warn $message; return; } sub _vms_ext { my ( $self, $potential_libs, $verbose, $give_libs ) = @_; $verbose ||= 0; my ( @crtls, $crtlstr ); @crtls = ( ( $Config{'ldflags'} =~ m-/Debug-i ? $Config{'dbgprefix'} : '' ) . 'PerlShr/Share' ); push( @crtls, grep { not /\(/ } split /\s+/, $Config{'perllibs'} ); push( @crtls, grep { not /\(/ } split /\s+/, $Config{'libc'} ); # In general, we pass through the basic libraries from %Config unchanged. # The one exception is that if we're building in the Perl source tree, and # a library spec could be resolved via a logical name, we go to some trouble # to insure that the copy in the local tree is used, rather than one to # which a system-wide logical may point. if ( $self->{PERL_SRC} ) { my ( $locspec, $type ); foreach my $lib ( @crtls ) { if ( ( $locspec, $type ) = $lib =~ m{^([\w\$-]+)(/\w+)?} and $locspec =~ /perl/i ) { if ( lc $type eq '/share' ) { $locspec .= $Config{'exe_ext'}; } elsif ( lc $type eq '/library' ) { $locspec .= $Config{'lib_ext'}; } else { $locspec .= $Config{'obj_ext'}; } $locspec = $self->catfile( $self->{PERL_SRC}, $locspec ); $lib = "$locspec$type" if -e $locspec; } } } $crtlstr = @crtls ? join( ' ', @crtls ) : ''; unless ( $potential_libs ) { warn "Result:\n\tEXTRALIBS: \n\tLDLOADLIBS: $crtlstr\n" if $verbose; return ( '', '', $crtlstr, '', ( $give_libs ? [] : () ) ); } my ( %found, @fndlibs, $ldlib ); my $cwd = cwd(); my ( $so, $lib_ext, $obj_ext ) = @Config{ 'so', 'lib_ext', 'obj_ext' }; # List of common Unix library names and their VMS equivalents # (VMS equivalent of '' indicates that the library is automatically # searched by the linker, and should be skipped here.) my ( @flibs, %libs_seen ); my %libmap = ( 'm' => '', 'f77' => '', 'F77' => '', 'V77' => '', 'c' => '', 'malloc' => '', 'crypt' => '', 'resolv' => '', 'c_s' => '', 'socket' => '', 'X11' => 'DECW$XLIBSHR', 'Xt' => 'DECW$XTSHR', 'Xm' => 'DECW$XMLIBSHR', 'Xmu' => 'DECW$XMULIBSHR' ); warn "Potential libraries are '$potential_libs'\n" if $verbose; # First, sort out directories and library names in the input my ( @dirs, @libs ); foreach my $lib ( split ' ', $potential_libs ) { push( @dirs, $1 ), next if $lib =~ /^-L(.*)/; push( @dirs, $lib ), next if $lib =~ /[:>\]]$/; push( @dirs, $lib ), next if -d $lib; push( @libs, $1 ), next if $lib =~ /^-l(.*)/; push( @libs, $lib ); } push( @dirs, split( ' ', $Config{'libpth'} ) ); # Now make sure we've got VMS-syntax absolute directory specs # (We don't, however, check whether someone's hidden a relative # path in a logical name.) foreach my $dir ( @dirs ) { unless ( -d $dir ) { warn "Skipping nonexistent Directory $dir\n" if $verbose > 1; $dir = ''; next; } warn "Resolving directory $dir\n" if $verbose; if ( File::Spec->file_name_is_absolute( $dir ) ) { $dir = VMS::Filespec::vmspath( $dir ); } else { $dir = $self->catdir( $cwd, $dir ); } } @dirs = grep { length( $_ ) } @dirs; unshift( @dirs, '' ); # Check each $lib without additions first LIB: foreach my $lib ( @libs ) { if ( exists $libmap{$lib} ) { next unless length $libmap{$lib}; $lib = $libmap{$lib}; } my ( @variants, $cand ); my ( $ctype ) = ''; # If we don't have a file type, consider it a possibly abbreviated name and # check for common variants. We try these first to grab libraries before # a like-named executable image (e.g. -lperl resolves to perlshr.exe # before perl.exe). if ( $lib !~ /\.[^:>\]]*$/ ) { push( @variants, "${lib}shr", "${lib}rtl", "${lib}lib" ); push( @variants, "lib$lib" ) if $lib !~ /[:>\]]/; } push( @variants, $lib ); warn "Looking for $lib\n" if $verbose; foreach my $variant ( @variants ) { my ( $fullname, $name ); foreach my $dir ( @dirs ) { my ( $type ); $name = "$dir$variant"; warn "\tChecking $name\n" if $verbose > 2; $fullname = VMS::Filespec::rmsexpand( $name ); if ( defined $fullname and -f $fullname ) { # It's got its own suffix, so we'll have to figure out the type if ( $fullname =~ /(?:$so|exe)$/i ) { $type = 'SHR'; } elsif ( $fullname =~ /(?:$lib_ext|olb)$/i ) { $type = 'OLB'; } elsif ( $fullname =~ /(?:$obj_ext|obj)$/i ) { warn "Warning (mostly harmless): " . "Plain object file $fullname found in library list\n"; $type = 'OBJ'; } else { warn "Warning (mostly harmless): " . "Unknown library type for $fullname; assuming shared\n"; $type = 'SHR'; } } elsif (-f ( $fullname = VMS::Filespec::rmsexpand( $name, $so ) ) or -f ( $fullname = VMS::Filespec::rmsexpand( $name, '.exe' ) ) ) { $type = 'SHR'; $name = $fullname unless $fullname =~ /exe;?\d*$/i; } elsif ( not length( $ctype ) and # If we've got a lib already, # don't bother ( -f ( $fullname = VMS::Filespec::rmsexpand( $name, $lib_ext ) ) or -f ( $fullname = VMS::Filespec::rmsexpand( $name, '.olb' ) ) ) ) { $type = 'OLB'; $name = $fullname unless $fullname =~ /olb;?\d*$/i; } elsif ( not length( $ctype ) and # If we've got a lib already, # don't bother ( -f ( $fullname = VMS::Filespec::rmsexpand( $name, $obj_ext ) ) or -f ( $fullname = VMS::Filespec::rmsexpand( $name, '.obj' ) ) ) ) { warn "Warning (mostly harmless): " . "Plain object file $fullname found in library list\n"; $type = 'OBJ'; $name = $fullname unless $fullname =~ /obj;?\d*$/i; } if ( defined $type ) { $ctype = $type; $cand = $name; last if $ctype eq 'SHR'; } } if ( $ctype ) { push @{ $found{$ctype} }, $cand; warn "\tFound as $cand (really $fullname), type $ctype\n" if $verbose > 1; push @flibs, $name unless $libs_seen{$fullname}++; next LIB; } } warn "Warning (mostly harmless): " . "No library found for $lib\n"; } push @fndlibs, @{ $found{OBJ} } if exists $found{OBJ}; push @fndlibs, map { "$_/Library" } @{ $found{OLB} } if exists $found{OLB}; push @fndlibs, map { "$_/Share" } @{ $found{SHR} } if exists $found{SHR}; my $lib = join( ' ', @fndlibs ); $ldlib = $crtlstr ? "$lib $crtlstr" : $lib; $ldlib =~ s/^\s+|\s+$//g; warn "Result:\n\tEXTRALIBS: $lib\n\tLDLOADLIBS: $ldlib\n" if $verbose; wantarray ? ( $lib, '', $ldlib, '', ( $give_libs ? \@flibs : () ) ) : $lib; } 1; PK ! :�D�) ) 5.34.0/ExtUtils/MM_DOS.pmnu �[��� package ExtUtils::MM_DOS; use strict; use warnings; our $VERSION = '7.62'; $VERSION =~ tr/_//d; require ExtUtils::MM_Any; require ExtUtils::MM_Unix; our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix ); =head1 NAME ExtUtils::MM_DOS - DOS specific subclass of ExtUtils::MM_Unix =head1 SYNOPSIS Don't use this module directly. Use ExtUtils::MM and let it choose. =head1 DESCRIPTION This is a subclass of L<ExtUtils::MM_Unix> which contains functionality for DOS. Unless otherwise stated, it works just like ExtUtils::MM_Unix. =head2 Overridden methods =over 4 =item os_flavor =cut sub os_flavor { return('DOS'); } =item B<replace_manpage_separator> Generates Foo__Bar.3 style man page names =cut sub replace_manpage_separator { my($self, $man) = @_; $man =~ s,/+,__,g; return $man; } =item xs_static_lib_is_xs =cut sub xs_static_lib_is_xs { return 1; } =back =head1 AUTHOR Michael G Schwern <schwern@pobox.com> with code from ExtUtils::MM_Unix =head1 SEE ALSO L<ExtUtils::MM_Unix>, L<ExtUtils::MakeMaker> =cut 1; PK ! M����� �� 5.34.0/ExtUtils/Install.pmnu �[��� package ExtUtils::Install; use strict; use Config qw(%Config); use Cwd qw(cwd); use Exporter (); use File::Basename qw(dirname); use File::Copy; use File::Path; use File::Spec; our @ISA = ('Exporter'); our @EXPORT = ('install','uninstall','pm_to_blib', 'install_default'); our $MUST_REBOOT; =pod =head1 NAME ExtUtils::Install - install files from here to there =head1 SYNOPSIS use ExtUtils::Install; install({ 'blib/lib' => 'some/install/dir' } ); uninstall($packlist); pm_to_blib({ 'lib/Foo/Bar.pm' => 'blib/lib/Foo/Bar.pm' }); =head1 VERSION 2.20 =cut our $VERSION = '2.20'; # <-- do not forget to update the POD section just above this line! $VERSION = eval $VERSION; =pod =head1 DESCRIPTION Handles the installing and uninstalling of perl modules, scripts, man pages, etc... Both install() and uninstall() are specific to the way ExtUtils::MakeMaker handles the installation and deinstallation of perl modules. They are not designed as general purpose tools. On some operating systems such as Win32 installation may not be possible until after a reboot has occurred. This can have varying consequences: removing an old DLL does not impact programs using the new one, but if a new DLL cannot be installed properly until reboot then anything depending on it must wait. The package variable $ExtUtils::Install::MUST_REBOOT is used to store this status. If this variable is true then such an operation has occurred and anything depending on this module cannot proceed until a reboot has occurred. If this value is defined but false then such an operation has occurred, but should not impact later operations. =begin _private =head2 _chmod($$;$) Wrapper to chmod() for debugging and error trapping. =head2 _warnonce(@) Warns about something only once. =head2 _choke(@) Dies with a special message. =end _private =cut BEGIN { *_Is_VMS = $^O eq 'VMS' ? sub(){1} : sub(){0}; *_Is_Win32 = $^O eq 'MSWin32' ? sub(){1} : sub(){0}; *_Is_cygwin = $^O eq 'cygwin' ? sub(){1} : sub(){0}; *_CanMoveAtBoot = ($^O eq 'MSWin32' || $^O eq 'cygwin') ? sub(){1} : sub(){0}; } my $Inc_uninstall_warn_handler; # install relative to here my $INSTALL_ROOT = $ENV{PERL_INSTALL_ROOT}; my $INSTALL_QUIET = $ENV{PERL_INSTALL_QUIET}; $INSTALL_QUIET = 1 if (!exists $ENV{PERL_INSTALL_QUIET} and defined $ENV{MAKEFLAGS} and $ENV{MAKEFLAGS} =~ /\b(s|silent|quiet)\b/); my $Curdir = File::Spec->curdir; sub _estr(@) { return join "\n",'!' x 72,@_,'!' x 72,''; } {my %warned; sub _warnonce(@) { my $first=shift; my $msg=_estr "WARNING: $first",@_; warn $msg unless $warned{$msg}++; }} sub _choke(@) { my $first=shift; my $msg=_estr "ERROR: $first",@_; require Carp; Carp::croak($msg); } sub _croak { require Carp; Carp::croak(@_); } sub _confess { require Carp; Carp::confess(@_); } sub _compare { # avoid loading File::Compare in the common case if (-f $_[1] && -s _ == -s $_[0]) { require File::Compare; return File::Compare::compare(@_); } return 1; } sub _chmod($$;$) { my ( $mode, $item, $verbose )=@_; $verbose ||= 0; if (chmod $mode, $item) { printf "chmod(0%o, %s)\n",$mode, $item if $verbose > 1; } else { my $err="$!"; _warnonce sprintf "WARNING: Failed chmod(0%o, %s): %s\n", $mode, $item, $err if -e $item; } } =begin _private =head2 _move_file_at_boot( $file, $target, $moan ) OS-Specific, Win32/Cygwin Schedules a file to be moved/renamed/deleted at next boot. $file should be a filespec of an existing file $target should be a ref to an array if the file is to be deleted otherwise it should be a filespec for a rename. If the file is existing it will be replaced. Sets $MUST_REBOOT to 0 to indicate a deletion operation has occurred and sets it to 1 to indicate that a move operation has been requested. returns 1 on success, on failure if $moan is false errors are fatal. If $moan is true then returns 0 on error and warns instead of dies. =end _private =cut { my $Has_Win32API_File; sub _move_file_at_boot { #XXX OS-SPECIFIC my ( $file, $target, $moan )= @_; _confess("Panic: Can't _move_file_at_boot on this platform!") unless _CanMoveAtBoot; my $descr= ref $target ? "'$file' for deletion" : "'$file' for installation as '$target'"; # *note* _CanMoveAtBoot is only incidentally the same condition as below # this needs not hold true in the future. $Has_Win32API_File = (_Is_Win32 || _Is_cygwin) ? (eval {require Win32API::File; 1} || 0) : 0 unless defined $Has_Win32API_File; if ( ! $Has_Win32API_File ) { my @msg=( "Cannot schedule $descr at reboot.", "Try installing Win32API::File to allow operations on locked files", "to be scheduled during reboot. Or try to perform the operation by", "hand yourself. (You may need to close other perl processes first)" ); if ( $moan ) { _warnonce(@msg) } else { _choke(@msg) } return 0; } my $opts= Win32API::File::MOVEFILE_DELAY_UNTIL_REBOOT(); $opts= $opts | Win32API::File::MOVEFILE_REPLACE_EXISTING() unless ref $target; _chmod( 0666, $file ); _chmod( 0666, $target ) unless ref $target; if (Win32API::File::MoveFileEx( $file, $target, $opts )) { $MUST_REBOOT ||= ref $target ? 0 : 1; return 1; } else { my @msg=( "MoveFileEx $descr at reboot failed: $^E", "You may try to perform the operation by hand yourself. ", "(You may need to close other perl processes first).", ); if ( $moan ) { _warnonce(@msg) } else { _choke(@msg) } } return 0; } } =begin _private =head2 _unlink_or_rename( $file, $tryhard, $installing ) OS-Specific, Win32/Cygwin Tries to get a file out of the way by unlinking it or renaming it. On some OS'es (Win32 based) DLL files can end up locked such that they can be renamed but not deleted. Likewise sometimes a file can be locked such that it cant even be renamed or changed except at reboot. To handle these cases this routine finds a tempfile name that it can either rename the file out of the way or use as a proxy for the install so that the rename can happen later (at reboot). $file : the file to remove. $tryhard : should advanced tricks be used for deletion $installing : we are not merely deleting but we want to overwrite When $tryhard is not true if the unlink fails its fatal. When $tryhard is true then the file is attempted to be renamed. The renamed file is then scheduled for deletion. If the rename fails then $installing governs what happens. If it is false the failure is fatal. If it is true then an attempt is made to schedule installation at boot using a temporary file to hold the new file. If this fails then a fatal error is thrown, if it succeeds it returns the temporary file name (which will be a derivative of the original in the same directory) so that the caller can use it to install under. In all other cases of success returns $file. On failure throws a fatal error. =end _private =cut sub _unlink_or_rename { #XXX OS-SPECIFIC my ( $file, $tryhard, $installing )= @_; # this chmod was originally unconditional. However, its not needed on # POSIXy systems since permission to unlink a file is specified by the # directory rather than the file; and in fact it screwed up hard- and # symlinked files. Keep it for other platforms in case its still # needed there. if ($^O =~ /^(dos|os2|MSWin32|VMS)$/) { _chmod( 0666, $file ); } my $unlink_count = 0; while (unlink $file) { $unlink_count++; } return $file if $unlink_count > 0; my $error="$!"; _choke("Cannot unlink '$file': $!") unless _CanMoveAtBoot && $tryhard; my $tmp= "AAA"; ++$tmp while -e "$file.$tmp"; $tmp= "$file.$tmp"; warn "WARNING: Unable to unlink '$file': $error\n", "Going to try to rename it to '$tmp'.\n"; if ( rename $file, $tmp ) { warn "Rename successful. Scheduling '$tmp'\nfor deletion at reboot.\n"; # when $installing we can set $moan to true. # IOW, if we cant delete the renamed file at reboot its # not the end of the world. The other cases are more serious # and need to be fatal. _move_file_at_boot( $tmp, [], $installing ); return $file; } elsif ( $installing ) { _warnonce("Rename failed: $!. Scheduling '$tmp'\nfor". " installation as '$file' at reboot.\n"); _move_file_at_boot( $tmp, $file ); return $tmp; } else { _choke("Rename failed:$!", "Cannot proceed."); } } =head1 Functions =begin _private =head2 _get_install_skip Handles loading the INSTALL.SKIP file. Returns an array of patterns to use. =cut sub _get_install_skip { my ( $skip, $verbose )= @_; if ($ENV{EU_INSTALL_IGNORE_SKIP}) { print "EU_INSTALL_IGNORE_SKIP is set, ignore skipfile settings\n" if $verbose>2; return []; } if ( ! defined $skip ) { print "Looking for install skip list\n" if $verbose>2; for my $file ( 'INSTALL.SKIP', $ENV{EU_INSTALL_SITE_SKIPFILE} ) { next unless $file; print "\tChecking for $file\n" if $verbose>2; if (-e $file) { $skip= $file; last; } } } if ($skip && !ref $skip) { print "Reading skip patterns from '$skip'.\n" if $verbose; if (open my $fh,$skip ) { my @patterns; while (<$fh>) { chomp; next if /^\s*(?:#|$)/; print "\tSkip pattern: $_\n" if $verbose>3; push @patterns, $_; } $skip= \@patterns; } else { warn "Can't read skip file:'$skip':$!\n"; $skip=[]; } } elsif ( UNIVERSAL::isa($skip,'ARRAY') ) { print "Using array for skip list\n" if $verbose>2; } elsif ($verbose) { print "No skip list found.\n" if $verbose>1; $skip= []; } warn "Got @{[0+@$skip]} skip patterns.\n" if $verbose>3; return $skip } =head2 _have_write_access Abstract a -w check that tries to use POSIX::access() if possible. =cut { my $has_posix; sub _have_write_access { my $dir=shift; unless (defined $has_posix) { $has_posix = (!_Is_cygwin && !_Is_Win32 && eval { local $^W; require POSIX; 1} ) || 0; } if ($has_posix) { return POSIX::access($dir, POSIX::W_OK()); } else { return -w $dir; } } } =head2 _can_write_dir(C<$dir>) Checks whether a given directory is writable, taking account the possibility that the directory might not exist and would have to be created first. Returns a list, containing: C<($writable, $determined_by, @create)> C<$writable> says whether the directory is (hypothetically) writable C<$determined_by> is the directory the status was determined from. It will be either the C<$dir>, or one of its parents. C<@create> is a list of directories that would probably have to be created to make the requested directory. It may not actually be correct on relative paths with C<..> in them. But for our purposes it should work ok =cut sub _can_write_dir { my $dir=shift; return unless defined $dir and length $dir; my ($vol, $dirs, $file) = File::Spec->splitpath($dir,1); my @dirs = File::Spec->splitdir($dirs); unshift @dirs, File::Spec->curdir unless File::Spec->file_name_is_absolute($dir); my $path=''; my @make; while (@dirs) { if (_Is_VMS) { $dir = File::Spec->catdir($vol,@dirs); } else { $dir = File::Spec->catdir(@dirs); $dir = File::Spec->catpath($vol,$dir,'') if defined $vol and length $vol; } next if ( $dir eq $path ); if ( ! -e $dir ) { unshift @make,$dir; next; } if ( _have_write_access($dir) ) { return 1,$dir,@make } else { return 0,$dir,@make } } continue { pop @dirs; } return 0; } =head2 _mkpath($dir,$show,$verbose,$dry_run) Wrapper around File::Path::mkpath() to handle errors. If $verbose is true and >1 then additional diagnostics will be produced, also this will force $show to true. If $dry_run is true then the directory will not be created but a check will be made to see whether it would be possible to write to the directory, or that it would be possible to create the directory. If $dry_run is not true dies if the directory can not be created or is not writable. =cut sub _mkpath { my ($dir,$show,$verbose,$dry_run)=@_; if ( $verbose && $verbose > 1 && ! -d $dir) { $show= 1; printf "mkpath(%s,%d)\n", $dir, $show; } if (!$dry_run) { my @created; eval { @created = File::Path::mkpath($dir,$show); 1; } or _choke("Can't create '$dir'","$@"); # if we created any directories, we were able to write and don't need # extra checks if (@created) { return; } } my ($can,$root,@make)=_can_write_dir($dir); if (!$can) { my @msg=( "Can't create '$dir'", $root ? "Do not have write permissions on '$root'" : "Unknown Error" ); if ($dry_run) { _warnonce @msg; } else { _choke @msg; } } elsif ($show and $dry_run) { print "$_\n" for @make; } } =head2 _copy($from,$to,$verbose,$dry_run) Wrapper around File::Copy::copy to handle errors. If $verbose is true and >1 then additional diagnostics will be emitted. If $dry_run is true then the copy will not actually occur. Dies if the copy fails. =cut sub _copy { my ( $from, $to, $verbose, $dry_run)=@_; if ($verbose && $verbose>1) { printf "copy(%s,%s)\n", $from, $to; } if (!$dry_run) { File::Copy::copy($from,$to) or _croak( _estr "ERROR: Cannot copy '$from' to '$to': $!" ); } } =pod =head2 _chdir($from) Wrapper around chdir to catch errors. If not called in void context returns the cwd from before the chdir. dies on error. =cut sub _chdir { my ($dir)= @_; my $ret; if (defined wantarray) { $ret= cwd; } chdir $dir or _choke("Couldn't chdir to '$dir': $!"); return $ret; } =end _private =head2 install # deprecated forms install(\%from_to); install(\%from_to, $verbose, $dry_run, $uninstall_shadows, $skip, $always_copy, \%result); # recommended form as of 1.47 install([ from_to => \%from_to, verbose => 1, dry_run => 0, uninstall_shadows => 1, skip => undef, always_copy => 1, result => \%install_results, ]); Copies each directory tree of %from_to to its corresponding value preserving timestamps and permissions. There are two keys with a special meaning in the hash: "read" and "write". These contain packlist files. After the copying is done, install() will write the list of target files to $from_to{write}. If $from_to{read} is given the contents of this file will be merged into the written file. The read and the written file may be identical, but on AFS it is quite likely that people are installing to a different directory than the one where the files later appear. If $verbose is true, will print out each file removed. Default is false. This is "make install VERBINST=1". $verbose values going up to 5 show increasingly more diagnostics output. If $dry_run is true it will only print what it was going to do without actually doing it. Default is false. If $uninstall_shadows is true any differing versions throughout @INC will be uninstalled. This is "make install UNINST=1" As of 1.37_02 install() supports the use of a list of patterns to filter out files that shouldn't be installed. If $skip is omitted or undefined then install will try to read the list from INSTALL.SKIP in the CWD. This file is a list of regular expressions and is just like the MANIFEST.SKIP file used by L<ExtUtils::Manifest>. A default site INSTALL.SKIP may be provided by setting then environment variable EU_INSTALL_SITE_SKIPFILE, this will only be used when there isn't a distribution specific INSTALL.SKIP. If the environment variable EU_INSTALL_IGNORE_SKIP is true then no install file filtering will be performed. If $skip is undefined then the skip file will be autodetected and used if it is found. If $skip is a reference to an array then it is assumed the array contains the list of patterns, if $skip is a true non reference it is assumed to be the filename holding the list of patterns, any other value of $skip is taken to mean that no install filtering should occur. B<Changes As of Version 1.47> As of version 1.47 the following additions were made to the install interface. Note that the new argument style and use of the %result hash is recommended. The $always_copy parameter which when true causes files to be updated regardless as to whether they have changed, if it is defined but false then copies are made only if the files have changed, if it is undefined then the value of the environment variable EU_INSTALL_ALWAYS_COPY is used as default. The %result hash will be populated with the various keys/subhashes reflecting the install. Currently these keys and their structure are: install => { $target => $source }, install_fail => { $target => $source }, install_unchanged => { $target => $source }, install_filtered => { $source => $pattern }, uninstall => { $uninstalled => $source }, uninstall_fail => { $uninstalled => $source }, where C<$source> is the filespec of the file being installed. C<$target> is where it is being installed to, and C<$uninstalled> is any shadow file that is in C<@INC> or C<$ENV{PERL5LIB}> or other standard locations, and C<$pattern> is the pattern that caused a source file to be skipped. In future more keys will be added, such as to show created directories, however this requires changes in other modules and must therefore wait. These keys will be populated before any exceptions are thrown should there be an error. Note that all updates of the %result are additive, the hash will not be cleared before use, thus allowing status results of many installs to be easily aggregated. B<NEW ARGUMENT STYLE> If there is only one argument and it is a reference to an array then the array is assumed to contain a list of key-value pairs specifying the options. In this case the option "from_to" is mandatory. This style means that you do not have to supply a cryptic list of arguments and can use a self documenting argument list that is easier to understand. This is now the recommended interface to install(). B<RETURN> If all actions were successful install will return a hashref of the results as described above for the $result parameter. If any action is a failure then install will die, therefore it is recommended to pass in the $result parameter instead of using the return value. If the result parameter is provided then the returned hashref will be the passed in hashref. =cut sub install { #XXX OS-SPECIFIC my($from_to,$verbose,$dry_run,$uninstall_shadows,$skip,$always_copy,$result) = @_; if (@_==1 and eval { 1+@$from_to }) { my %opts = @$from_to; $from_to = $opts{from_to} or _confess("from_to is a mandatory parameter"); $verbose = $opts{verbose}; $dry_run = $opts{dry_run}; $uninstall_shadows = $opts{uninstall_shadows}; $skip = $opts{skip}; $always_copy = $opts{always_copy}; $result = $opts{result}; } $result ||= {}; $verbose ||= 0; $dry_run ||= 0; $skip= _get_install_skip($skip,$verbose); $always_copy = $ENV{EU_INSTALL_ALWAYS_COPY} || $ENV{EU_ALWAYS_COPY} || 0 unless defined $always_copy; my(%from_to) = %$from_to; my(%pack, $dir, %warned); require ExtUtils::Packlist; my($packlist) = ExtUtils::Packlist->new(); local(*DIR); for (qw/read write/) { $pack{$_}=$from_to{$_}; delete $from_to{$_}; } my $tmpfile = install_rooted_file($pack{"read"}); $packlist->read($tmpfile) if (-f $tmpfile); my $cwd = cwd(); my @found_files; my %check_dirs; require File::Find; my $blib_lib = File::Spec->catdir('blib', 'lib'); my $blib_arch = File::Spec->catdir('blib', 'arch'); # File::Find seems to always be Unixy except on MacPerl :( my $current_directory = $^O eq 'MacOS' ? $Curdir : '.'; MOD_INSTALL: foreach my $source (sort keys %from_to) { #copy the tree to the target directory without altering #timestamp and permission and remember for the .packlist #file. The packlist file contains the absolute paths of the #install locations. AFS users may call this a bug. We'll have #to reconsider how to add the means to satisfy AFS users also. #October 1997: we want to install .pm files into archlib if #there are any files in arch. So we depend on having ./blib/arch #hardcoded here. my $targetroot = install_rooted_dir($from_to{$source}); if ($source eq $blib_lib and exists $from_to{$blib_arch} and directory_not_empty($blib_arch) ){ $targetroot = install_rooted_dir($from_to{$blib_arch}); print "Files found in $blib_arch: installing files in $blib_lib into architecture dependent library tree\n"; } next unless -d $source; _chdir($source); # 5.5.3's File::Find missing no_chdir option # XXX OS-SPECIFIC File::Find::find(sub { my ($mode,$size,$atime,$mtime) = (stat)[2,7,8,9]; return if !-f _; my $origfile = $_; return if $origfile eq ".exists"; my $targetdir = File::Spec->catdir($targetroot, $File::Find::dir); my $targetfile = File::Spec->catfile($targetdir, $origfile); my $sourcedir = File::Spec->catdir($source, $File::Find::dir); my $sourcefile = File::Spec->catfile($sourcedir, $origfile); for my $pat (@$skip) { if ( $sourcefile=~/$pat/ ) { print "Skipping $targetfile (filtered)\n" if $verbose>1; $result->{install_filtered}{$sourcefile} = $pat; return; } } # we have to do this for back compat with old File::Finds # and because the target is relative my $save_cwd = File::Spec->catfile($cwd, $sourcedir); _chdir($cwd); my $diff = $always_copy || _compare($sourcefile, $targetfile); $check_dirs{$targetdir}++ unless -w $targetfile; push @found_files, [ $diff, $File::Find::dir, $origfile, $mode, $size, $atime, $mtime, $targetdir, $targetfile, $sourcedir, $sourcefile, ]; #restore the original directory we were in when File::Find #called us so that it doesn't get horribly confused. _chdir($save_cwd); }, $current_directory ); _chdir($cwd); } foreach my $targetdir (sort keys %check_dirs) { _mkpath( $targetdir, 0, $verbose, $dry_run ); } foreach my $found (@found_files) { my ($diff, $ffd, $origfile, $mode, $size, $atime, $mtime, $targetdir, $targetfile, $sourcedir, $sourcefile)= @$found; my $realtarget= $targetfile; if ($diff) { eval { if (-f $targetfile) { print "_unlink_or_rename($targetfile)\n" if $verbose>1; $targetfile= _unlink_or_rename( $targetfile, 'tryhard', 'install' ) unless $dry_run; } elsif ( ! -d $targetdir ) { _mkpath( $targetdir, 0, $verbose, $dry_run ); } print "Installing $targetfile\n"; _copy( $sourcefile, $targetfile, $verbose, $dry_run, ); #XXX OS-SPECIFIC print "utime($atime,$mtime,$targetfile)\n" if $verbose>1; utime($atime,$mtime + _Is_VMS,$targetfile) unless $dry_run>1; $mode = 0444 | ( $mode & 0111 ? 0111 : 0 ); $mode = $mode | 0222 if $realtarget ne $targetfile; _chmod( $mode, $targetfile, $verbose ); $result->{install}{$targetfile} = $sourcefile; 1 } or do { $result->{install_fail}{$targetfile} = $sourcefile; die $@; }; } else { $result->{install_unchanged}{$targetfile} = $sourcefile; print "Skipping $targetfile (unchanged)\n" if $verbose; } if ( $uninstall_shadows ) { inc_uninstall($sourcefile,$ffd, $verbose, $dry_run, $realtarget ne $targetfile ? $realtarget : "", $result); } # Record the full pathname. $packlist->{$targetfile}++; } if ($pack{'write'}) { $dir = install_rooted_dir(dirname($pack{'write'})); _mkpath( $dir, 0, $verbose, $dry_run ); print "Writing $pack{'write'}\n" if $verbose; $packlist->write(install_rooted_file($pack{'write'})) unless $dry_run; } _do_cleanup($verbose); return $result; } =begin _private =head2 _do_cleanup Standardize finish event for after another instruction has occurred. Handles converting $MUST_REBOOT to a die for instance. =end _private =cut sub _do_cleanup { my ($verbose) = @_; if ($MUST_REBOOT) { die _estr "Operation not completed! ", "You must reboot to complete the installation.", "Sorry."; } elsif (defined $MUST_REBOOT & $verbose) { warn _estr "Installation will be completed at the next reboot.\n", "However it is not necessary to reboot immediately.\n"; } } =begin _undocumented =head2 install_rooted_file( $file ) Returns $file, or catfile($INSTALL_ROOT,$file) if $INSTALL_ROOT is defined. =head2 install_rooted_dir( $dir ) Returns $dir, or catdir($INSTALL_ROOT,$dir) if $INSTALL_ROOT is defined. =end _undocumented =cut sub install_rooted_file { if (defined $INSTALL_ROOT) { File::Spec->catfile($INSTALL_ROOT, $_[0]); } else { $_[0]; } } sub install_rooted_dir { if (defined $INSTALL_ROOT) { File::Spec->catdir($INSTALL_ROOT, $_[0]); } else { $_[0]; } } =begin _undocumented =head2 forceunlink( $file, $tryhard ) Tries to delete a file. If $tryhard is true then we will use whatever devious tricks we can to delete the file. Currently this only applies to Win32 in that it will try to use Win32API::File to schedule a delete at reboot. A wrapper for _unlink_or_rename(). =end _undocumented =cut sub forceunlink { my ( $file, $tryhard )= @_; #XXX OS-SPECIFIC _unlink_or_rename( $file, $tryhard, not("installing") ); } =begin _undocumented =head2 directory_not_empty( $dir ) Returns 1 if there is an .exists file somewhere in a directory tree. Returns 0 if there is not. =end _undocumented =cut sub directory_not_empty ($) { my($dir) = @_; my $files = 0; require File::Find; File::Find::find(sub { return if $_ eq ".exists"; if (-f) { $File::Find::prune++; $files = 1; } }, $dir); return $files; } =head2 install_default I<DISCOURAGED> install_default(); install_default($fullext); Calls install() with arguments to copy a module from blib/ to the default site installation location. $fullext is the name of the module converted to a directory (ie. Foo::Bar would be Foo/Bar). If $fullext is not specified, it will attempt to read it from @ARGV. This is primarily useful for install scripts. B<NOTE> This function is not really useful because of the hard-coded install location with no way to control site vs core vs vendor directories and the strange way in which the module name is given. Consider its use discouraged. =cut sub install_default { @_ < 2 or _croak("install_default should be called with 0 or 1 argument"); my $FULLEXT = @_ ? shift : $ARGV[0]; defined $FULLEXT or die "Do not know to where to write install log"; my $INST_LIB = File::Spec->catdir($Curdir,"blib","lib"); my $INST_ARCHLIB = File::Spec->catdir($Curdir,"blib","arch"); my $INST_BIN = File::Spec->catdir($Curdir,'blib','bin'); my $INST_SCRIPT = File::Spec->catdir($Curdir,'blib','script'); my $INST_MAN1DIR = File::Spec->catdir($Curdir,'blib','man1'); my $INST_MAN3DIR = File::Spec->catdir($Curdir,'blib','man3'); my @INST_HTML; if($Config{installhtmldir}) { my $INST_HTMLDIR = File::Spec->catdir($Curdir,'blib','html'); @INST_HTML = ($INST_HTMLDIR => $Config{installhtmldir}); } install({ read => "$Config{sitearchexp}/auto/$FULLEXT/.packlist", write => "$Config{installsitearch}/auto/$FULLEXT/.packlist", $INST_LIB => (directory_not_empty($INST_ARCHLIB)) ? $Config{installsitearch} : $Config{installsitelib}, $INST_ARCHLIB => $Config{installsitearch}, $INST_BIN => $Config{installbin} , $INST_SCRIPT => $Config{installscript}, $INST_MAN1DIR => $Config{installman1dir}, $INST_MAN3DIR => $Config{installman3dir}, @INST_HTML, },1,0,0); } =head2 uninstall uninstall($packlist_file); uninstall($packlist_file, $verbose, $dont_execute); Removes the files listed in a $packlist_file. If $verbose is true, will print out each file removed. Default is false. If $dont_execute is true it will only print what it was going to do without actually doing it. Default is false. =cut sub uninstall { my($fil,$verbose,$dry_run) = @_; $verbose ||= 0; $dry_run ||= 0; die _estr "ERROR: no packlist file found: '$fil'" unless -f $fil; # my $my_req = $self->catfile(qw(auto ExtUtils Install forceunlink.al)); # require $my_req; # Hairy, but for the first require ExtUtils::Packlist; my ($packlist) = ExtUtils::Packlist->new($fil); foreach (sort(keys(%$packlist))) { chomp; print "unlink $_\n" if $verbose; forceunlink($_,'tryhard') unless $dry_run; } print "unlink $fil\n" if $verbose; forceunlink($fil, 'tryhard') unless $dry_run; _do_cleanup($verbose); } =begin _undocumented =head2 inc_uninstall($filepath,$libdir,$verbose,$dry_run,$ignore,$results) Remove shadowed files. If $ignore is true then it is assumed to hold a filename to ignore. This is used to prevent spurious warnings from occurring when doing an install at reboot. We now only die when failing to remove a file that has precedence over our own, when our install has precedence we only warn. $results is assumed to contain a hashref which will have the keys 'uninstall' and 'uninstall_fail' populated with keys for the files removed and values of the source files they would shadow. =end _undocumented =cut sub inc_uninstall { my($filepath,$libdir,$verbose,$dry_run,$ignore,$results) = @_; my($dir); $ignore||=""; my $file = (File::Spec->splitpath($filepath))[2]; my %seen_dir = (); my @PERL_ENV_LIB = split $Config{path_sep}, defined $ENV{'PERL5LIB'} ? $ENV{'PERL5LIB'} : $ENV{'PERLLIB'} || ''; my @dirs=( @PERL_ENV_LIB, @INC, @Config{qw(archlibexp privlibexp sitearchexp sitelibexp)}); #warn join "\n","---",@dirs,"---"; my $seen_ours; foreach $dir ( @dirs ) { my $canonpath = _Is_VMS ? $dir : File::Spec->canonpath($dir); next if $canonpath eq $Curdir; next if $seen_dir{$canonpath}++; my $targetfile = File::Spec->catfile($canonpath,$libdir,$file); next unless -f $targetfile; # The reason why we compare file's contents is, that we cannot # know, which is the file we just installed (AFS). So we leave # an identical file in place my $diff = _compare($filepath,$targetfile); print "#$file and $targetfile differ\n" if $diff && $verbose > 1; if (!$diff or $targetfile eq $ignore) { $seen_ours = 1; next; } if ($dry_run) { $results->{uninstall}{$targetfile} = $filepath; if ($verbose) { $Inc_uninstall_warn_handler ||= ExtUtils::Install::Warn->new(); $libdir =~ s|^\./||s ; # That's just cosmetics, no need to port. It looks prettier. $Inc_uninstall_warn_handler->add( File::Spec->catfile($libdir, $file), $targetfile ); } # if not verbose, we just say nothing } else { print "Unlinking $targetfile (shadowing?)\n" if $verbose; eval { die "Fake die for testing" if $ExtUtils::Install::Testing and ucase(File::Spec->canonpath($ExtUtils::Install::Testing)) eq ucase($targetfile); forceunlink($targetfile,'tryhard'); $results->{uninstall}{$targetfile} = $filepath; 1; } or do { $results->{fail_uninstall}{$targetfile} = $filepath; if ($seen_ours) { warn "Failed to remove probably harmless shadow file '$targetfile'\n"; } else { die "$@\n"; } }; } } } =begin _undocumented =head2 run_filter($cmd,$src,$dest) Filter $src using $cmd into $dest. =end _undocumented =cut sub run_filter { my ($cmd, $src, $dest) = @_; local(*CMD, *SRC); open(CMD, "|$cmd >$dest") || die "Cannot fork: $!"; open(SRC, $src) || die "Cannot open $src: $!"; my $buf; my $sz = 1024; while (my $len = sysread(SRC, $buf, $sz)) { syswrite(CMD, $buf, $len); } close SRC; close CMD or die "Filter command '$cmd' failed for $src"; } =head2 pm_to_blib pm_to_blib(\%from_to); pm_to_blib(\%from_to, $autosplit_dir); pm_to_blib(\%from_to, $autosplit_dir, $filter_cmd); Copies each key of %from_to to its corresponding value efficiently. If an $autosplit_dir is provided, all .pm files will be autosplit into it. Any destination directories are created. $filter_cmd is an optional shell command to run each .pm file through prior to splitting and copying. Input is the contents of the module, output the new module contents. You can have an environment variable PERL_INSTALL_ROOT set which will be prepended as a directory to each installed file (and directory). By default verbose output is generated, setting the PERL_INSTALL_QUIET environment variable will silence this output. =cut sub pm_to_blib { my($fromto,$autodir,$pm_filter) = @_; my %dirs; _mkpath($autodir,0) if defined $autodir; while(my($from, $to) = each %$fromto) { if( -f $to && -s $from == -s $to && -M $to < -M $from ) { print "Skip $to (unchanged)\n" unless $INSTALL_QUIET; next; } # When a pm_filter is defined, we need to pre-process the source first # to determine whether it has changed or not. Therefore, only perform # the comparison check when there's no filter to be ran. # -- RAM, 03/01/2001 my $need_filtering = defined $pm_filter && length $pm_filter && $from =~ /\.pm$/; if (!$need_filtering && !_compare($from,$to)) { print "Skip $to (unchanged)\n" unless $INSTALL_QUIET; next; } if (-f $to){ # we wont try hard here. its too likely to mess things up. forceunlink($to); } else { my $dirname = dirname($to); if (!$dirs{$dirname}++) { _mkpath($dirname,0); } } if ($need_filtering) { run_filter($pm_filter, $from, $to); print "$pm_filter <$from >$to\n"; } else { _copy( $from, $to ); print "cp $from $to\n" unless $INSTALL_QUIET; } my($mode,$atime,$mtime) = (stat $from)[2,8,9]; utime($atime,$mtime+_Is_VMS,$to); _chmod(0444 | ( $mode & 0111 ? 0111 : 0 ),$to); next unless $from =~ /\.pm$/; _autosplit($to,$autodir) if defined $autodir; } } =begin _private =head2 _autosplit From 1.0307 back, AutoSplit will sometimes leave an open filehandle to the file being split. This causes problems on systems with mandatory locking (ie. Windows). So we wrap it and close the filehandle. =end _private =cut sub _autosplit { #XXX OS-SPECIFIC require AutoSplit; my $retval = AutoSplit::autosplit(@_); close *AutoSplit::IN if defined *AutoSplit::IN{IO}; return $retval; } package ExtUtils::Install::Warn; sub new { bless {}, shift } sub add { my($self,$file,$targetfile) = @_; push @{$self->{$file}}, $targetfile; } sub DESTROY { unless(defined $INSTALL_ROOT) { my $self = shift; my($file,$i,$plural); foreach $file (sort keys %$self) { $plural = @{$self->{$file}} > 1 ? "s" : ""; print "## Differing version$plural of $file found. You might like to\n"; for (0..$#{$self->{$file}}) { print "rm ", $self->{$file}[$_], "\n"; $i++; } } $plural = $i>1 ? "all those files" : "this file"; my $inst = (_invokant() eq 'ExtUtils::MakeMaker') ? ( $Config::Config{make} || 'make' ).' install' . ( ExtUtils::Install::_Is_VMS ? '/MACRO="UNINST"=1' : ' UNINST=1' ) : './Build install uninst=1'; print "## Running '$inst' will unlink $plural for you.\n"; } } =begin _private =head2 _invokant Does a heuristic on the stack to see who called us for more intelligent error messages. Currently assumes we will be called only by Module::Build or by ExtUtils::MakeMaker. =end _private =cut sub _invokant { my @stack; my $frame = 0; while (my $file = (caller($frame++))[1]) { push @stack, (File::Spec->splitpath($file))[2]; } my $builder; my $top = pop @stack; if ($top =~ /^Build/i || exists($INC{'Module/Build.pm'})) { $builder = 'Module::Build'; } else { $builder = 'ExtUtils::MakeMaker'; } return $builder; } =head1 ENVIRONMENT =over 4 =item B<PERL_INSTALL_ROOT> Will be prepended to each install path. =item B<EU_INSTALL_IGNORE_SKIP> Will prevent the automatic use of INSTALL.SKIP as the install skip file. =item B<EU_INSTALL_SITE_SKIPFILE> If there is no INSTALL.SKIP file in the make directory then this value can be used to provide a default. =item B<EU_INSTALL_ALWAYS_COPY> If this environment variable is true then normal install processes will always overwrite older identical files during the install process. Note that the alias EU_ALWAYS_COPY will be supported if EU_INSTALL_ALWAYS_COPY is not defined until at least the 1.50 release. Please ensure you use the correct EU_INSTALL_ALWAYS_COPY. =back =head1 AUTHOR Original author lost in the mists of time. Probably the same as Makemaker. Production release currently maintained by demerphq C<yves at cpan.org>, extensive changes by Michael G. Schwern. Send bug reports via http://rt.cpan.org/. Please send your generated Makefile along with your report. =head1 LICENSE This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See L<http://www.perl.com/perl/misc/Artistic.html> =cut 1; PK ! 0�� � 5.34.0/ExtUtils/MM_AIX.pmnu �[��� package ExtUtils::MM_AIX; use strict; use warnings; our $VERSION = '7.62'; $VERSION =~ tr/_//d; use ExtUtils::MakeMaker::Config; require ExtUtils::MM_Unix; our @ISA = qw(ExtUtils::MM_Unix); =head1 NAME ExtUtils::MM_AIX - AIX specific subclass of ExtUtils::MM_Unix =head1 SYNOPSIS Don't use this module directly. Use ExtUtils::MM and let it choose. =head1 DESCRIPTION This is a subclass of L<ExtUtils::MM_Unix> which contains functionality for AIX. Unless otherwise stated it works just like ExtUtils::MM_Unix. =head2 Overridden methods =head3 dlsyms Define DL_FUNCS and DL_VARS and write the *.exp files. =cut sub dlsyms { my($self,%attribs) = @_; return '' unless $self->needs_linking; join "\n", $self->xs_dlsyms_iterator(\%attribs); } =head3 xs_dlsyms_ext On AIX, is C<.exp>. =cut sub xs_dlsyms_ext { '.exp'; } sub xs_dlsyms_arg { my($self, $file) = @_; my $arg = qq{-bE:${file}}; $arg = '-Wl,'.$arg if $Config{lddlflags} =~ /-Wl,-bE:/; return $arg; } sub init_others { my $self = shift; $self->SUPER::init_others; # perl "hints" add -bE:$(BASEEXT).exp to LDDLFLAGS. strip that out # so right value can be added by xs_make_dynamic_lib to work for XSMULTI $self->{LDDLFLAGS} ||= $Config{lddlflags}; $self->{LDDLFLAGS} =~ s#(\s*)\S*\Q$(BASEEXT)\E\S*(\s*)#$1$2#; return; } =head1 AUTHOR Michael G Schwern <schwern@pobox.com> with code from ExtUtils::MM_Unix =head1 SEE ALSO L<ExtUtils::MakeMaker> =cut 1; PK ! q% M M % 5.34.0/ExtUtils/Constant/ProxySubs.pmnu �[��� package ExtUtils::Constant::ProxySubs; use strict; use vars qw($VERSION @ISA %type_to_struct %type_from_struct %type_to_sv %type_to_C_value %type_is_a_problem %type_num_args %type_temporary); use Carp; require ExtUtils::Constant::XS; use ExtUtils::Constant::Utils qw(C_stringify); use ExtUtils::Constant::XS qw(%XS_TypeSet); $VERSION = '0.09'; @ISA = 'ExtUtils::Constant::XS'; %type_to_struct = ( IV => '{const char *name; I32 namelen; IV value;}', NV => '{const char *name; I32 namelen; NV value;}', UV => '{const char *name; I32 namelen; UV value;}', PV => '{const char *name; I32 namelen; const char *value;}', PVN => '{const char *name; I32 namelen; const char *value; STRLEN len;}', YES => '{const char *name; I32 namelen;}', NO => '{const char *name; I32 namelen;}', UNDEF => '{const char *name; I32 namelen;}', '' => '{const char *name; I32 namelen;} ', ); %type_from_struct = ( IV => sub { $_[0] . '->value' }, NV => sub { $_[0] . '->value' }, UV => sub { $_[0] . '->value' }, PV => sub { $_[0] . '->value' }, PVN => sub { $_[0] . '->value', $_[0] . '->len' }, YES => sub {}, NO => sub {}, UNDEF => sub {}, '' => sub {}, ); %type_to_sv = ( IV => sub { "newSViv($_[0])" }, NV => sub { "newSVnv($_[0])" }, UV => sub { "newSVuv($_[0])" }, PV => sub { "newSVpv($_[0], 0)" }, PVN => sub { "newSVpvn($_[0], $_[1])" }, YES => sub { '&PL_sv_yes' }, NO => sub { '&PL_sv_no' }, UNDEF => sub { '&PL_sv_undef' }, '' => sub { '&PL_sv_yes' }, SV => sub {"SvREFCNT_inc($_[0])"}, ); %type_to_C_value = ( YES => sub {}, NO => sub {}, UNDEF => sub {}, '' => sub {}, ); sub type_to_C_value { my ($self, $type) = @_; return $type_to_C_value{$type} || sub {return map {ref $_ ? @$_ : $_} @_}; } # TODO - figure out if there is a clean way for the type_to_sv code to # attempt s/sv_2mortal// and if it succeeds tell type_to_sv not to add # SvREFCNT_inc %type_is_a_problem = ( # The documentation says *mortal SV*, but we now need a non-mortal copy. SV => 1, ); %type_temporary = ( SV => ['SV *'], PV => ['const char *'], PVN => ['const char *', 'STRLEN'], ); $type_temporary{$_} = [$_] foreach qw(IV UV NV); while (my ($type, $value) = each %XS_TypeSet) { $type_num_args{$type} = defined $value ? ref $value ? scalar @$value : 1 : 0; } $type_num_args{''} = 0; sub partition_names { my ($self, $default_type, @items) = @_; my (%found, @notfound, @trouble); while (my $item = shift @items) { my $default = delete $item->{default}; if ($default) { # If we find a default value, convert it into a regular item and # append it to the queue of items to process my $default_item = {%$item}; $default_item->{invert_macro} = 1; $default_item->{pre} = delete $item->{def_pre}; $default_item->{post} = delete $item->{def_post}; $default_item->{type} = shift @$default; $default_item->{value} = $default; push @items, $default_item; } else { # It can be "not found" unless it's the default (invert the macro) # or the "macro" is an empty string (ie no macro) push @notfound, $item unless $item->{invert_macro} or !$self->macro_to_ifdef($self->macro_from_item($item)); } if ($item->{pre} or $item->{post} or $item->{not_constant} or $type_is_a_problem{$item->{type}}) { push @trouble, $item; } else { push @{$found{$item->{type}}}, $item; } } # use Data::Dumper; print Dumper \%found; (\%found, \@notfound, \@trouble); } sub boottime_iterator { my ($self, $type, $iterator, $hash, $subname, $push) = @_; my $extractor = $type_from_struct{$type}; die "Can't find extractor code for type $type" unless defined $extractor; my $generator = $type_to_sv{$type}; die "Can't find generator code for type $type" unless defined $generator; my $athx = $self->C_constant_prefix_param(); if ($push) { return sprintf <<"EOBOOT", &$generator(&$extractor($iterator)); while ($iterator->name) { he = $subname($athx $hash, $iterator->name, $iterator->namelen, %s); av_push(push, newSVhek(HeKEY_hek(he))); ++$iterator; } EOBOOT } else { return sprintf <<"EOBOOT", &$generator(&$extractor($iterator)); while ($iterator->name) { $subname($athx $hash, $iterator->name, $iterator->namelen, %s); ++$iterator; } EOBOOT } } sub name_len_value_macro { my ($self, $item) = @_; my $name = $item->{name}; my $value = $item->{value}; $value = $item->{name} unless defined $value; my $namelen = length $name; if ($name =~ tr/\0-\377// != $namelen) { # the hash API signals UTF-8 by passing the length negated. utf8::encode($name); $namelen = -length $name; } $name = C_stringify($name); my $macro = $self->macro_from_item($item); ($name, $namelen, $value, $macro); } sub WriteConstants { my $self = shift; my $ARGS = {@_}; my ($c_fh, $xs_fh, $c_subname, $default_type, $package) = @{$ARGS}{qw(C_FH XS_FH C_SUBNAME DEFAULT_TYPE NAME)}; my $xs_subname = exists $ARGS->{XS_SUBNAME} ? $ARGS->{XS_SUBNAME} : 'constant'; my $options = $ARGS->{PROXYSUBS}; $options = {} unless ref $options; my $push = $options->{push}; my $explosives = $options->{croak_on_read}; my $croak_on_error = $options->{croak_on_error}; my $autoload = $options->{autoload}; { my $exclusive = 0; ++$exclusive if $explosives; ++$exclusive if $croak_on_error; ++$exclusive if $autoload; # Until someone patches this (with test cases): carp ("PROXYSUBS options 'autoload', 'croak_on_read' and 'croak_on_error' cannot be used together") if $exclusive > 1; } # Strictly it requires Perl_caller_cx carp ("PROXYSUBS option 'croak_on_error' requires v5.13.5 or later") if $croak_on_error && $^V < v5.13.5; # Strictly this is actually 5.8.9, but it's not well tested there my $can_do_pcs = $] >= 5.009; # Until someone patches this (with test cases) carp ("PROXYSUBS option 'push' requires v5.10 or later") if $push && !$can_do_pcs; # Until someone patches this (with test cases) carp ("PROXYSUBS options 'push' and 'croak_on_read' cannot be used together") if $explosives && $push; # If anyone is insane enough to suggest a package name containing % my $package_sprintf_safe = $package; $package_sprintf_safe =~ s/%/%%/g; # All the types we see my $what = {}; # A hash to lookup items with. my $items = {}; my @items = $self->normalise_items ({disable_utf8_duplication => 1}, $default_type, $what, $items, @{$ARGS->{NAMES}}); # Partition the values by type. Also include any defaults in here # Everything that doesn't have a default needs alternative code for # "I'm missing" # And everything that has pre or post code ends up in a private block my ($found, $notfound, $trouble) = $self->partition_names($default_type, @items); my $pthx = $self->C_constant_prefix_param_defintion(); my $athx = $self->C_constant_prefix_param(); my $symbol_table = C_stringify($package) . '::'; $push = C_stringify($package . '::' . $push) if $push; my $cast_CONSTSUB = $] < 5.010 ? '(char *)' : ''; print $c_fh $self->header(); if ($autoload || $croak_on_error) { print $c_fh <<'EOC'; /* This allows slightly more efficient code on !USE_ITHREADS: */ #ifdef USE_ITHREADS # define COP_FILE(c) CopFILE(c) # define COP_FILE_F "s" #else # define COP_FILE(c) CopFILESV(c) # define COP_FILE_F SVf #endif EOC } my $return_type = $push ? 'HE *' : 'void'; print $c_fh <<"EOADD"; static $return_type ${c_subname}_add_symbol($pthx HV *hash, const char *name, I32 namelen, SV *value) { EOADD if (!$can_do_pcs) { print $c_fh <<'EO_NOPCS'; if (namelen == namelen) { EO_NOPCS } else { print $c_fh <<"EO_PCS"; HE *he = (HE*) hv_common_key_len(hash, name, namelen, HV_FETCH_LVALUE, NULL, 0); SV *sv; if (!he) { croak("Couldn't add key '%s' to %%$package_sprintf_safe\::", name); } sv = HeVAL(he); if (SvOK(sv) || SvTYPE(sv) == SVt_PVGV) { /* Someone has been here before us - have to make a real sub. */ EO_PCS } # This piece of code is common to both print $c_fh <<"EOADD"; newCONSTSUB(hash, ${cast_CONSTSUB}name, value); EOADD if ($can_do_pcs) { print $c_fh <<'EO_PCS'; } else { SvUPGRADE(sv, SVt_RV); SvRV_set(sv, value); SvROK_on(sv); SvREADONLY_on(value); } EO_PCS } else { print $c_fh <<'EO_NOPCS'; } EO_NOPCS } print $c_fh " return he;\n" if $push; print $c_fh <<'EOADD'; } EOADD print $c_fh $explosives ? <<"EXPLODE" : "\n"; static int Im_sorry_Dave(pTHX_ SV *sv, MAGIC *mg) { PERL_UNUSED_ARG(mg); croak("Your vendor has not defined $package_sprintf_safe macro %"SVf " used", sv); NORETURN_FUNCTION_END; } static MGVTBL not_defined_vtbl = { Im_sorry_Dave, /* get - I'm afraid I can't do that */ Im_sorry_Dave, /* set */ 0, /* len */ 0, /* clear */ 0, /* free */ 0, /* copy */ 0, /* dup */ }; EXPLODE { my $key = $symbol_table; # Just seems tidier (and slightly more space efficient) not to have keys # such as Fcntl:: $key =~ s/::$//; my $key_len = length $key; print $c_fh <<"MISSING"; #ifndef SYMBIAN /* Store a hash of all symbols missing from the package. To avoid trampling on the package namespace (uninvited) put each package's hash in our namespace. To avoid creating lots of typeblogs and symbol tables for sub-packages, put each package's hash into one hash in our namespace. */ static HV * get_missing_hash(pTHX) { HV *const parent = get_hv("ExtUtils::Constant::ProxySubs::Missing", GVf_MULTI); /* We could make a hash of hashes directly, but this would confuse anything at Perl space that looks at us, and as we're visible in Perl space, best to play nice. */ SV *const *const ref = hv_fetch(parent, "$key", $key_len, TRUE); HV *new_hv; if (!ref) return NULL; if (SvROK(*ref)) return (HV*) SvRV(*ref); new_hv = newHV(); SvUPGRADE(*ref, SVt_RV); SvRV_set(*ref, (SV *)new_hv); SvROK_on(*ref); return new_hv; } #endif MISSING } print $xs_fh <<"EOBOOT"; BOOT: { #if defined(dTHX) && !defined(PERL_NO_GET_CONTEXT) dTHX; #endif HV *symbol_table = get_hv("$symbol_table", GV_ADD); EOBOOT if ($push) { print $xs_fh <<"EOC"; AV *push = get_av(\"$push\", GV_ADD); HE *he; EOC } my %iterator; $found->{''} = [map {{%$_, type=>'', invert_macro => 1}} @$notfound]; foreach my $type (sort keys %$found) { my $struct = $type_to_struct{$type}; my $type_to_value = $self->type_to_C_value($type); my $number_of_args = $type_num_args{$type}; die "Can't find structure definition for type $type" unless defined $struct; my $lc_type = $type ? lc($type) : 'notfound'; my $struct_type = $lc_type . '_s'; my $array_name = 'values_for_' . $lc_type; $iterator{$type} = 'value_for_' . $lc_type; # Give the notfound struct file scope. The others are scoped within the # BOOT block my $struct_fh = $type ? $xs_fh : $c_fh; print $c_fh "struct $struct_type $struct;\n"; print $struct_fh <<"EOBOOT"; static const struct $struct_type $array_name\[] = { EOBOOT foreach my $item (@{$found->{$type}}) { my ($name, $namelen, $value, $macro) = $self->name_len_value_macro($item); my $ifdef = $self->macro_to_ifdef($macro); if (!$ifdef && $item->{invert_macro}) { carp("Attempting to supply a default for '$name' which has no conditional macro"); next; } if ($item->{invert_macro}) { print $struct_fh $self->macro_to_ifndef($macro); print $struct_fh " /* This is the default value: */\n" if $type; } else { print $struct_fh $ifdef; } print $struct_fh " { ", join (', ', "\"$name\"", $namelen, &$type_to_value($value)), " },\n", $self->macro_to_endif($macro); } # Terminate the list with a NULL print $struct_fh " { NULL, 0", (", 0" x $number_of_args), " } };\n"; print $xs_fh <<"EOBOOT" if $type; const struct $struct_type *$iterator{$type} = $array_name; EOBOOT } delete $found->{''}; my $add_symbol_subname = $c_subname . '_add_symbol'; foreach my $type (sort keys %$found) { print $xs_fh $self->boottime_iterator($type, $iterator{$type}, 'symbol_table', $add_symbol_subname, $push); } print $xs_fh <<"EOBOOT"; if (C_ARRAY_LENGTH(values_for_notfound) > 1) { #ifndef SYMBIAN HV *const ${c_subname}_missing = get_missing_hash(aTHX); #endif const struct notfound_s *value_for_notfound = values_for_notfound; do { EOBOOT print $xs_fh $explosives ? <<"EXPLODE" : << "DONT"; SV *tripwire = newSV(0); sv_magicext(tripwire, 0, PERL_MAGIC_ext, ¬_defined_vtbl, 0, 0); SvPV_set(tripwire, (char *)value_for_notfound->name); if(value_for_notfound->namelen >= 0) { SvCUR_set(tripwire, value_for_notfound->namelen); } else { SvCUR_set(tripwire, -value_for_notfound->namelen); SvUTF8_on(tripwire); } SvPOKp_on(tripwire); SvREADONLY_on(tripwire); assert(SvLEN(tripwire) == 0); $add_symbol_subname($athx symbol_table, value_for_notfound->name, value_for_notfound->namelen, tripwire); EXPLODE /* Need to add prototypes, else parsing will vary by platform. */ HE *he = (HE*) hv_common_key_len(symbol_table, value_for_notfound->name, value_for_notfound->namelen, HV_FETCH_LVALUE, NULL, 0); SV *sv; #ifndef SYMBIAN HEK *hek; #endif if (!he) { croak("Couldn't add key '%s' to %%$package_sprintf_safe\::", value_for_notfound->name); } sv = HeVAL(he); if (!SvOK(sv) && SvTYPE(sv) != SVt_PVGV) { /* Nothing was here before, so mark a prototype of "" */ sv_setpvn(sv, "", 0); } else if (SvPOK(sv) && SvCUR(sv) == 0) { /* There is already a prototype of "" - do nothing */ } else { /* Someone has been here before us - have to make a real typeglob. */ /* It turns out to be incredibly hard to deal with all the corner cases of sub foo (); and reporting errors correctly, so lets cheat a bit. Start with a constant subroutine */ CV *cv = newCONSTSUB(symbol_table, ${cast_CONSTSUB}value_for_notfound->name, &PL_sv_yes); /* and then turn it into a non constant declaration only. */ SvREFCNT_dec(CvXSUBANY(cv).any_ptr); CvCONST_off(cv); CvXSUB(cv) = NULL; CvXSUBANY(cv).any_ptr = NULL; } #ifndef SYMBIAN hek = HeKEY_hek(he); if (!hv_common(${c_subname}_missing, NULL, HEK_KEY(hek), HEK_LEN(hek), HEK_FLAGS(hek), HV_FETCH_ISSTORE, &PL_sv_yes, HEK_HASH(hek))) croak("Couldn't add key '%s' to missing_hash", value_for_notfound->name); #endif DONT print $xs_fh " av_push(push, newSVhek(hek));\n" if $push; print $xs_fh <<"EOBOOT"; } while ((++value_for_notfound)->name); } EOBOOT foreach my $item (@$trouble) { my ($name, $namelen, $value, $macro) = $self->name_len_value_macro($item); my $ifdef = $self->macro_to_ifdef($macro); my $type = $item->{type}; my $type_to_value = $self->type_to_C_value($type); print $xs_fh $ifdef; if ($item->{invert_macro}) { print $xs_fh " /* This is the default value: */\n" if $type; print $xs_fh "#else\n"; } my $generator = $type_to_sv{$type}; die "Can't find generator code for type $type" unless defined $generator; print $xs_fh " {\n"; # We need to use a temporary value because some really troublesome # items use C pre processor directives in their values, and in turn # these don't fit nicely in the macro-ised generator functions my $counter = 0; printf $xs_fh " %s temp%d;\n", $_, $counter++ foreach @{$type_temporary{$type}}; print $xs_fh " $item->{pre}\n" if $item->{pre}; # And because the code in pre might be both declarations and # statements, we can't declare and assign to the temporaries in one. $counter = 0; printf $xs_fh " temp%d = %s;\n", $counter++, $_ foreach &$type_to_value($value); my @tempvarnames = map {sprintf 'temp%d', $_} 0 .. $counter - 1; printf $xs_fh <<"EOBOOT", $name, &$generator(@tempvarnames); ${c_subname}_add_symbol($athx symbol_table, "%s", $namelen, %s); EOBOOT print $xs_fh " $item->{post}\n" if $item->{post}; print $xs_fh " }\n"; print $xs_fh $self->macro_to_endif($macro); } if ($] >= 5.009) { print $xs_fh <<EOBOOT; /* As we've been creating subroutines, we better invalidate any cached methods */ mro_method_changed_in(symbol_table); } EOBOOT } else { print $xs_fh <<EOBOOT; /* As we've been creating subroutines, we better invalidate any cached methods */ ++PL_sub_generation; } EOBOOT } return if !defined $xs_subname; if ($croak_on_error || $autoload) { print $xs_fh $croak_on_error ? <<"EOC" : <<'EOA'; void $xs_subname(sv) INPUT: SV * sv; PREINIT: const PERL_CONTEXT *cx = caller_cx(0, NULL); /* cx is NULL if we've been called from the top level. PL_curcop isn't ideal, but it's much cheaper than other ways of not going SEGV. */ const COP *cop = cx ? cx->blk_oldcop : PL_curcop; EOC void AUTOLOAD() PROTOTYPE: DISABLE PREINIT: SV *sv = newSVpvn_flags(SvPVX(cv), SvCUR(cv), SVs_TEMP | SvUTF8(cv)); const COP *cop = PL_curcop; EOA print $xs_fh <<"EOC"; PPCODE: #ifndef SYMBIAN /* It's not obvious how to calculate this at C pre-processor time. However, any compiler optimiser worth its salt should be able to remove the dead code, and hopefully the now-obviously-unused static function too. */ HV *${c_subname}_missing = (C_ARRAY_LENGTH(values_for_notfound) > 1) ? get_missing_hash(aTHX) : NULL; if ((C_ARRAY_LENGTH(values_for_notfound) > 1) ? hv_exists_ent(${c_subname}_missing, sv, 0) : 0) { sv = newSVpvf("Your vendor has not defined $package_sprintf_safe macro %" SVf ", used at %" COP_FILE_F " line %" UVuf "\\n", sv, COP_FILE(cop), (UV)CopLINE(cop)); } else #endif { sv = newSVpvf("%" SVf " is not a valid $package_sprintf_safe macro at %" COP_FILE_F " line %" UVuf "\\n", sv, COP_FILE(cop), (UV)CopLINE(cop)); } croak_sv(sv_2mortal(sv)); EOC } else { print $xs_fh $explosives ? <<"EXPLODE" : <<"DONT"; void $xs_subname(sv) INPUT: SV * sv; PPCODE: sv = newSVpvf("Your vendor has not defined $package_sprintf_safe macro %" SVf ", used", sv); PUSHs(sv_2mortal(sv)); EXPLODE void $xs_subname(sv) INPUT: SV * sv; PPCODE: #ifndef SYMBIAN /* It's not obvious how to calculate this at C pre-processor time. However, any compiler optimiser worth its salt should be able to remove the dead code, and hopefully the now-obviously-unused static function too. */ HV *${c_subname}_missing = (C_ARRAY_LENGTH(values_for_notfound) > 1) ? get_missing_hash(aTHX) : NULL; if ((C_ARRAY_LENGTH(values_for_notfound) > 1) ? hv_exists_ent(${c_subname}_missing, sv, 0) : 0) { sv = newSVpvf("Your vendor has not defined $package_sprintf_safe macro %" SVf ", used", sv); } else #endif { sv = newSVpvf("%" SVf " is not a valid $package_sprintf_safe macro", sv); } PUSHs(sv_2mortal(sv)); DONT } } 1; PK ! �a�w� � ! 5.34.0/ExtUtils/Constant/Utils.pmnu �[��� package ExtUtils::Constant::Utils; use strict; use vars qw($VERSION @EXPORT_OK @ISA); use Carp; @ISA = 'Exporter'; @EXPORT_OK = qw(C_stringify perl_stringify); $VERSION = '0.04'; use constant is_perl55 => ($] < 5.005_50); use constant is_perl56 => ($] < 5.007 && $] > 5.005_50); use constant is_sane_perl => $] > 5.007; =head1 NAME ExtUtils::Constant::Utils - helper functions for ExtUtils::Constant =head1 SYNOPSIS use ExtUtils::Constant::Utils qw (C_stringify); $C_code = C_stringify $stuff; =head1 DESCRIPTION ExtUtils::Constant::Utils packages up utility subroutines used by ExtUtils::Constant, ExtUtils::Constant::Base and derived classes. All its functions are explicitly exportable. =head1 USAGE =over 4 =item C_stringify NAME A function which returns a 7 bit ASCII correctly \ escaped version of the string passed suitable for C's "" or ''. It will die if passed Unicode characters. =cut # Hopefully make a happy C identifier. sub C_stringify { local $_ = shift; return unless defined $_; # grr 5.6.1 confess "Wide character in '$_' intended as a C identifier" if tr/\0-\377// != length; # grr 5.6.1 more so because its regexps will break on data that happens to # be utf8, which includes my 8 bit test cases. $_ = pack 'C*', unpack 'U*', $_ . pack 'U*' if is_perl56; s/\\/\\\\/g; s/([\"\'])/\\$1/g; # Grr. fix perl mode. s/\n/\\n/g; # Ensure newlines don't end up in octal s/\r/\\r/g; s/\t/\\t/g; s/\f/\\f/g; s/\a/\\a/g; unless (is_perl55) { # This will elicit a warning on 5.005_03 about [: :] being reserved unless # I cheat my $cheat = '([[:^print:]])'; if (ord('A') == 193) { # EBCDIC has no ^\0-\177 workalike. s/$cheat/sprintf "\\%03o", ord $1/ge; } else { s/([^\0-\177])/sprintf "\\%03o", ord $1/ge; } s/$cheat/sprintf "\\%03o", ord $1/ge; } else { require POSIX; s/([^A-Za-z0-9_])/POSIX::isprint($1) ? $1 : sprintf "\\%03o", ord $1/ge; } $_; } =item perl_stringify NAME A function which returns a 7 bit ASCII correctly \ escaped version of the string passed suitable for a perl "" string. =cut # Hopefully make a happy perl identifier. sub perl_stringify { local $_ = shift; return unless defined $_; s/\\/\\\\/g; s/([\"\'])/\\$1/g; # Grr. fix perl mode. s/\n/\\n/g; # Ensure newlines don't end up in octal s/\r/\\r/g; s/\t/\\t/g; s/\f/\\f/g; s/\a/\\a/g; unless (is_perl55) { # This will elicit a warning on 5.005_03 about [: :] being reserved unless # I cheat my $cheat = '([[:^print:]])'; if (is_sane_perl) { if (ord('A') == 193) { # EBCDIC has no ^\0-\177 workalike. s/$cheat/sprintf "\\x{%X}", ord $1/ge; } else { s/([^\0-\177])/sprintf "\\x{%X}", ord $1/ge; } } else { # Grr 5.6.1. And I don't think I can use utf8; to force the regexp # because 5.005_03 will fail. # This is grim, but I also can't split on // my $copy; foreach my $index (0 .. length ($_) - 1) { my $char = substr ($_, $index, 1); $copy .= ($char le "\177") ? $char : sprintf "\\x{%X}", ord $char; } $_ = $copy; } s/$cheat/sprintf "\\%03o", ord $1/ge; } else { # Turns out "\x{}" notation only arrived with 5.6 s/([^\0-\177])/sprintf "\\x%02X", ord $1/ge; require POSIX; s/([^A-Za-z0-9_])/POSIX::isprint($1) ? $1 : sprintf "\\%03o", ord $1/ge; } $_; } 1; __END__ =back =head1 AUTHOR Nicholas Clark <nick@ccl4.org> based on the code in C<h2xs> by Larry Wall and others PK ! ��*� *� 5.34.0/ExtUtils/Constant/Base.pmnu �[��� package ExtUtils::Constant::Base; use strict; use vars qw($VERSION); use Carp; use Text::Wrap; use ExtUtils::Constant::Utils qw(C_stringify perl_stringify); $VERSION = '0.06'; use constant is_perl56 => ($] < 5.007 && $] > 5.005_50); =head1 NAME ExtUtils::Constant::Base - base class for ExtUtils::Constant objects =head1 SYNOPSIS require ExtUtils::Constant::Base; @ISA = 'ExtUtils::Constant::Base'; =head1 DESCRIPTION ExtUtils::Constant::Base provides a base implementation of methods to generate C code to give fast constant value lookup by named string. Currently it's mostly used ExtUtils::Constant::XS, which generates the lookup code for the constant() subroutine found in many XS modules. =head1 USAGE ExtUtils::Constant::Base exports no subroutines. The following methods are available =over 4 =cut sub valid_type { # Default to assuming that you don't need different types of return data. 1; } sub default_type { ''; } =item header A method returning a scalar containing definitions needed, typically for a C header file. =cut sub header { '' } # This might actually be a return statement. Note that you are responsible # for any space you might need before your value, as it lets to perform # "tricks" such as "return KEY_" and have strings appended. sub assignment_clause_for_type; # In which case this might be an empty string sub return_statement_for_type {undef}; sub return_statement_for_notdef; sub return_statement_for_notfound; # "#if 1" is true to a C pre-processor sub macro_from_name { 1; } sub macro_from_item { 1; } sub macro_to_ifdef { my ($self, $macro) = @_; if (ref $macro) { return $macro->[0]; } if (defined $macro && $macro ne "" && $macro ne "1") { return $macro ? "#ifdef $macro\n" : "#if 0\n"; } return ""; } sub macro_to_ifndef { my ($self, $macro) = @_; if (ref $macro) { # Can't invert these stylishly, so "bodge it" return "$macro->[0]#else\n"; } if (defined $macro && $macro ne "" && $macro ne "1") { return $macro ? "#ifndef $macro\n" : "#if 1\n"; } croak "Can't generate an ifndef for unconditional code"; } sub macro_to_endif { my ($self, $macro) = @_; if (ref $macro) { return $macro->[1]; } if (defined $macro && $macro ne "" && $macro ne "1") { return "#endif\n"; } return ""; } sub name_param { 'name'; } # This is possibly buggy, in that it's not mandatory (below, in the main # C_constant parameters, but is expected to exist here, if it's needed) # Buggy because if you're definitely pure 8 bit only, and will never be # presented with your constants in utf8, the default form of C_constant can't # be told not to do the utf8 version. sub is_utf8_param { 'utf8'; } sub memEQ { "!memcmp"; } =item memEQ_clause args_hashref A method to return a suitable C C<if> statement to check whether I<name> is equal to the C variable C<name>. If I<checked_at> is defined, then it is used to avoid C<memEQ> for short names, or to generate a comment to highlight the position of the character in the C<switch> statement. If i<checked_at> is a reference to a scalar, then instead it gives the characters pre-checked at the beginning, (and the number of chars by which the C variable name has been advanced. These need to be chopped from the front of I<name>). =cut sub memEQ_clause { # if (memEQ(name, "thingy", 6)) { # Which could actually be a character comparison or even "" my ($self, $args) = @_; my ($name, $checked_at, $indent) = @{$args}{qw(name checked_at indent)}; $indent = ' ' x ($indent || 4); my $front_chop; if (ref $checked_at) { # regexp won't work on 5.6.1 without use utf8; in turn that won't work # on 5.005_03. substr ($name, 0, length $$checked_at,) = ''; $front_chop = C_stringify ($$checked_at); undef $checked_at; } my $len = length $name; if ($len < 2) { return $indent . "{\n" if (defined $checked_at and $checked_at == 0) or $len == 0; # We didn't switch, drop through to the code for the 2 character string $checked_at = 1; } my $name_param = $self->name_param; if ($len < 3 and defined $checked_at) { my $check; if ($checked_at == 1) { $check = 0; } elsif ($checked_at == 0) { $check = 1; } if (defined $check) { my $char = C_stringify (substr $name, $check, 1); # Placate 5.005 with a break in the string. I can't see a good way of # getting it to not take [ as introducing an array lookup, even with # ${name_param}[$check] return $indent . "if ($name_param" . "[$check] == '$char') {\n"; } } if (($len == 2 and !defined $checked_at) or ($len == 3 and defined ($checked_at) and $checked_at == 2)) { my $char1 = C_stringify (substr $name, 0, 1); my $char2 = C_stringify (substr $name, 1, 1); return $indent . "if ($name_param" . "[0] == '$char1' && $name_param" . "[1] == '$char2') {\n"; } if (($len == 3 and defined ($checked_at) and $checked_at == 1)) { my $char1 = C_stringify (substr $name, 0, 1); my $char2 = C_stringify (substr $name, 2, 1); return $indent . "if ($name_param" . "[0] == '$char1' && $name_param" . "[2] == '$char2') {\n"; } my $pointer = '^'; my $have_checked_last = defined ($checked_at) && $len == $checked_at + 1; if ($have_checked_last) { # Checked at the last character, so no need to memEQ it. $pointer = C_stringify (chop $name); $len--; } $name = C_stringify ($name); my $memEQ = $self->memEQ(); my $body = $indent . "if ($memEQ($name_param, \"$name\", $len)) {\n"; # Put a little ^ under the letter we checked at # Screws up for non printable and non-7 bit stuff, but that's too hard to # get right. if (defined $checked_at) { $body .= $indent . "/* " . (' ' x length $memEQ) . (' ' x length $name_param) . (' ' x $checked_at) . $pointer . (' ' x ($len - $checked_at + length $len)) . " */\n"; } elsif (defined $front_chop) { $body .= $indent . "/* $front_chop" . (' ' x ($len + 1 + length $len)) . " */\n"; } return $body; } =item dump_names arg_hashref, ITEM... An internal function to generate the embedded perl code that will regenerate the constant subroutines. I<default_type>, I<types> and I<ITEM>s are the same as for C_constant. I<indent> is treated as number of spaces to indent by. If C<declare_types> is true a C<$types> is always declared in the perl code generated, if defined and false never declared, and if undefined C<$types> is only declared if the values in I<types> as passed in cannot be inferred from I<default_types> and the I<ITEM>s. =cut sub dump_names { my ($self, $args, @items) = @_; my ($default_type, $what, $indent, $declare_types) = @{$args}{qw(default_type what indent declare_types)}; $indent = ' ' x ($indent || 0); my $result; my (@simple, @complex, %used_types); foreach (@items) { my $type; if (ref $_) { $type = $_->{type} || $default_type; if ($_->{utf8}) { # For simplicity always skip the bytes case, and reconstitute this entry # from its utf8 twin. next if $_->{utf8} eq 'no'; # Copy the hashref, as we don't want to mess with the caller's hashref. $_ = {%$_}; unless (is_perl56) { utf8::decode ($_->{name}); } else { $_->{name} = pack 'U*', unpack 'U0U*', $_->{name}; } delete $_->{utf8}; } } else { $_ = {name=>$_}; $type = $default_type; } $used_types{$type}++; if ($type eq $default_type # grr 5.6.1 and length $_->{name} and length $_->{name} == ($_->{name} =~ tr/A-Za-z0-9_//) and !defined ($_->{macro}) and !defined ($_->{value}) and !defined ($_->{default}) and !defined ($_->{pre}) and !defined ($_->{post}) and !defined ($_->{def_pre}) and !defined ($_->{def_post}) and !defined ($_->{weight})) { # It's the default type, and the name consists only of A-Za-z0-9_ push @simple, $_->{name}; } else { push @complex, $_; } } if (!defined $declare_types) { # Do they pass in any types we weren't already using? foreach (keys %$what) { next if $used_types{$_}; $declare_types++; # Found one in $what that wasn't used. last; # And one is enough to terminate this loop } } if ($declare_types) { $result = $indent . 'my $types = {map {($_, 1)} qw(' . join (" ", sort keys %$what) . ")};\n"; } local $Text::Wrap::huge = 'overflow'; local $Text::Wrap::columns = 80; $result .= wrap ($indent . "my \@names = (qw(", $indent . " ", join (" ", sort @simple) . ")"); if (@complex) { foreach my $item (sort {$a->{name} cmp $b->{name}} @complex) { my $name = perl_stringify $item->{name}; my $line = ",\n$indent {name=>\"$name\""; $line .= ", type=>\"$item->{type}\"" if defined $item->{type}; foreach my $thing (qw (macro value default pre post def_pre def_post)) { my $value = $item->{$thing}; if (defined $value) { if (ref $value) { $line .= ", $thing=>[\"" . join ('", "', map {perl_stringify $_} @$value) . '"]'; } else { $line .= ", $thing=>\"" . perl_stringify($value) . "\""; } } } $line .= "}"; # Ensure that the enclosing C comment doesn't end # by turning */ into *" . "/ $line =~ s!\*\/!\*" . "/!gs; # gcc -Wall doesn't like finding /* inside a comment $line =~ s!\/\*!/" . "\*!gs; $result .= $line; } } $result .= ");\n"; $result; } =item assign arg_hashref, VALUE... A method to return a suitable assignment clause. If I<type> is aggregate (eg I<PVN> expects both pointer and length) then there should be multiple I<VALUE>s for the components. I<pre> and I<post> if defined give snippets of C code to proceed and follow the assignment. I<pre> will be at the start of a block, so variables may be defined in it. =cut # Hmm. value undef to do NOTDEF? value () to do NOTFOUND? sub assign { my $self = shift; my $args = shift; my ($indent, $type, $pre, $post, $item) = @{$args}{qw(indent type pre post item)}; $post ||= ''; my $clause; my $close; if ($pre) { chomp $pre; $close = "$indent}\n"; $clause = $indent . "{\n"; $indent .= " "; $clause .= "$indent$pre"; $clause .= ";" unless $pre =~ /;$/; $clause .= "\n"; } confess "undef \$type" unless defined $type; confess "Can't generate code for type $type" unless $self->valid_type($type); $clause .= join '', map {"$indent$_\n"} $self->assignment_clause_for_type({type=>$type,item=>$item}, @_); chomp $post; if (length $post) { $clause .= "$post"; $clause .= ";" unless $post =~ /;$/; $clause .= "\n"; } my $return = $self->return_statement_for_type($type); $clause .= "$indent$return\n" if defined $return; $clause .= $close if $close; return $clause; } =item return_clause arg_hashref, ITEM A method to return a suitable C<#ifdef> clause. I<ITEM> is a hashref (as passed to C<C_constant> and C<match_clause>. I<indent> is the number of spaces to indent, defaulting to 6. =cut sub return_clause { ##ifdef thingy # *iv_return = thingy; # return PERL_constant_ISIV; ##else # return PERL_constant_NOTDEF; ##endif my ($self, $args, $item) = @_; my $indent = $args->{indent}; my ($name, $value, $default, $pre, $post, $def_pre, $def_post, $type) = @$item{qw (name value default pre post def_pre def_post type)}; $value = $name unless defined $value; my $macro = $self->macro_from_item($item); $indent = ' ' x ($indent || 6); unless (defined $type) { # use Data::Dumper; print STDERR Dumper ($item); confess "undef \$type"; } ##ifdef thingy my $clause = $self->macro_to_ifdef($macro); # *iv_return = thingy; # return PERL_constant_ISIV; $clause .= $self->assign ({indent=>$indent, type=>$type, pre=>$pre, post=>$post, item=>$item}, ref $value ? @$value : $value); if (defined $macro && $macro ne "" && $macro ne "1") { ##else $clause .= "#else\n"; # return PERL_constant_NOTDEF; if (!defined $default) { my $notdef = $self->return_statement_for_notdef(); $clause .= "$indent$notdef\n" if defined $notdef; } else { my @default = ref $default ? @$default : $default; $type = shift @default; $clause .= $self->assign ({indent=>$indent, type=>$type, pre=>$pre, post=>$post, item=>$item}, @default); } } ##endif $clause .= $self->macro_to_endif($macro); return $clause; } sub match_clause { # $offset defined if we have checked an offset. my ($self, $args, $item) = @_; my ($offset, $indent) = @{$args}{qw(checked_at indent)}; $indent = ' ' x ($indent || 4); my $body = ''; my ($no, $yes, $either, $name, $inner_indent); if (ref $item eq 'ARRAY') { ($yes, $no) = @$item; $either = $yes || $no; confess "$item is $either expecting hashref in [0] || [1]" unless ref $either eq 'HASH'; $name = $either->{name}; } else { confess "$item->{name} has utf8 flag '$item->{utf8}', should be false" if $item->{utf8}; $name = $item->{name}; $inner_indent = $indent; } $body .= $self->memEQ_clause ({name => $name, checked_at => $offset, indent => length $indent}); # If we've been presented with an arrayref for $item, then the user string # contains in the range 128-255, and we need to check whether it was utf8 # (or not). # In the worst case we have two named constants, where one's name happens # encoded in UTF8 happens to be the same byte sequence as the second's # encoded in (say) ISO-8859-1. # In this case, $yes and $no both have item hashrefs. if ($yes) { $body .= $indent . " if (" . $self->is_utf8_param . ") {\n"; } elsif ($no) { $body .= $indent . " if (!" . $self->is_utf8_param . ") {\n"; } if ($either) { $body .= $self->return_clause ({indent=>4 + length $indent}, $either); if ($yes and $no) { $body .= $indent . " } else {\n"; $body .= $self->return_clause ({indent=>4 + length $indent}, $no); } $body .= $indent . " }\n"; } else { $body .= $self->return_clause ({indent=>2 + length $indent}, $item); } $body .= $indent . "}\n"; } =item switch_clause arg_hashref, NAMELEN, ITEMHASH, ITEM... An internal method to generate a suitable C<switch> clause, called by C<C_constant> I<ITEM>s are in the hash ref format as given in the description of C<C_constant>, and must all have the names of the same length, given by I<NAMELEN>. I<ITEMHASH> is a reference to a hash, keyed by name, values being the hashrefs in the I<ITEM> list. (No parameters are modified, and there can be keys in the I<ITEMHASH> that are not in the list of I<ITEM>s without causing problems - the hash is passed in to save generating it afresh for each call). =cut sub switch_clause { my ($self, $args, $namelen, $items, @items) = @_; my ($indent, $comment) = @{$args}{qw(indent comment)}; $indent = ' ' x ($indent || 2); local $Text::Wrap::huge = 'overflow'; local $Text::Wrap::columns = 80; my @names = sort map {$_->{name}} @items; my $leader = $indent . '/* '; my $follower = ' ' x length $leader; my $body = $indent . "/* Names all of length $namelen. */\n"; if (defined $comment) { $body = wrap ($leader, $follower, $comment) . "\n"; $leader = $follower; } my @safe_names = @names; foreach (@safe_names) { confess sprintf "Name '$_' is length %d, not $namelen", length unless length == $namelen; # Argh. 5.6.1 # next unless tr/A-Za-z0-9_//c; next if tr/A-Za-z0-9_// == length; $_ = '"' . perl_stringify ($_) . '"'; # Ensure that the enclosing C comment doesn't end # by turning */ into *" . "/ s!\*\/!\*"."/!gs; # gcc -Wall doesn't like finding /* inside a comment s!\/\*!/"."\*!gs; } $body .= wrap ($leader, $follower, join (" ", @safe_names) . " */") . "\n"; # Figure out what to switch on. # (RMS, Spread of jump table, Position, Hashref) my @best = (1e38, ~0); # Prefer the last character over the others. (As it lets us shorten the # memEQ clause at no cost). foreach my $i ($namelen - 1, 0 .. ($namelen - 2)) { my ($min, $max) = (~0, 0); my %spread; if (is_perl56) { # Need proper Unicode preserving hash keys for bytes in range 128-255 # here too, for some reason. grr 5.6.1 yet again. tie %spread, 'ExtUtils::Constant::Aaargh56Hash'; } foreach (@names) { my $char = substr $_, $i, 1; my $ord = ord $char; confess "char $ord is out of range" if $ord > 255; $max = $ord if $ord > $max; $min = $ord if $ord < $min; push @{$spread{$char}}, $_; # warn "$_ $char"; } # I'm going to pick the character to split on that minimises the root # mean square of the number of names in each case. Normally this should # be the one with the most keys, but it may pick a 7 where the 8 has # one long linear search. I'm not sure if RMS or just sum of squares is # actually better. # $max and $min are for the tie-breaker if the root mean squares match. # Assuming that the compiler may be building a jump table for the # switch() then try to minimise the size of that jump table. # Finally use < not <= so that if it still ties the earliest part of # the string wins. Because if that passes but the memEQ fails, it may # only need the start of the string to bin the choice. # I think. But I'm micro-optimising. :-) # OK. Trump that. Now favour the last character of the string, before the # rest. my $ss; $ss += @$_ * @$_ foreach values %spread; my $rms = sqrt ($ss / keys %spread); if ($rms < $best[0] || ($rms == $best[0] && ($max - $min) < $best[1])) { @best = ($rms, $max - $min, $i, \%spread); } } confess "Internal error. Failed to pick a switch point for @names" unless defined $best[2]; # use Data::Dumper; print Dumper (@best); my ($offset, $best) = @best[2,3]; $body .= $indent . "/* Offset $offset gives the best switch position. */\n"; my $do_front_chop = $offset == 0 && $namelen > 2; if ($do_front_chop) { $body .= $indent . "switch (*" . $self->name_param() . "++) {\n"; } else { $body .= $indent . "switch (" . $self->name_param() . "[$offset]) {\n"; } foreach my $char (sort keys %$best) { confess sprintf "'$char' is %d bytes long, not 1", length $char if length ($char) != 1; confess sprintf "char %#X is out of range", ord $char if ord ($char) > 255; $body .= $indent . "case '" . C_stringify ($char) . "':\n"; foreach my $thisone (sort { # Deal with the case of an item actually being an array ref to 1 or 2 # hashrefs. Don't assign to $a or $b, as they're aliases to the # original my $l = ref $a eq 'ARRAY' ? ($a->[0] || $->[1]) : $a; my $r = ref $b eq 'ARRAY' ? ($b->[0] || $->[1]) : $b; # Sort by weight first ($r->{weight} || 0) <=> ($l->{weight} || 0) # Sort equal weights by name or $l->{name} cmp $r->{name}} # If this looks evil, maybe it is. $items is a # hashref, and we're doing a hash slice on it @{$items}{@{$best->{$char}}}) { # warn "You are here"; if ($do_front_chop) { $body .= $self->match_clause ({indent => 2 + length $indent, checked_at => \$char}, $thisone); } else { $body .= $self->match_clause ({indent => 2 + length $indent, checked_at => $offset}, $thisone); } } $body .= $indent . " break;\n"; } $body .= $indent . "}\n"; return $body; } sub C_constant_return_type { "static int"; } sub C_constant_prefix_param { ''; } sub C_constant_prefix_param_defintion { ''; } sub name_param_definition { "const char *" . $_[0]->name_param; } sub namelen_param { 'len'; } sub namelen_param_definition { 'size_t ' . $_[0]->namelen_param; } sub C_constant_other_params { ''; } sub C_constant_other_params_defintion { ''; } =item params WHAT An "internal" method, subject to change, currently called to allow an overriding class to cache information that will then be passed into all the C<*param*> calls. (Yes, having to read the source to make sense of this is considered a known bug). I<WHAT> is be a hashref of types the constant function will return. In ExtUtils::Constant::XS this method is used to returns a hashref keyed IV NV PV SV to show which combination of pointers will be needed in the C argument list generated by C_constant_other_params_definition and C_constant_other_params =cut sub params { ''; } =item dogfood arg_hashref, ITEM... An internal function to generate the embedded perl code that will regenerate the constant subroutines. Parameters are the same as for C_constant. Currently the base class does nothing and returns an empty string. =cut sub dogfood { '' } =item normalise_items args, default_type, seen_types, seen_items, ITEM... Convert the items to a normalised form. For 8 bit and Unicode values converts the item to an array of 1 or 2 items, both 8 bit and UTF-8 encoded. =cut sub normalise_items { my $self = shift; my $args = shift; my $default_type = shift; my $what = shift; my $items = shift; my @new_items; foreach my $orig (@_) { my ($name, $item); if (ref $orig) { # Make a copy which is a normalised version of the ref passed in. $name = $orig->{name}; my ($type, $macro, $value) = @$orig{qw (type macro value)}; $type ||= $default_type; $what->{$type} = 1; $item = {name=>$name, type=>$type}; undef $macro if defined $macro and $macro eq $name; $item->{macro} = $macro if defined $macro; undef $value if defined $value and $value eq $name; $item->{value} = $value if defined $value; foreach my $key (qw(default pre post def_pre def_post weight not_constant)) { my $value = $orig->{$key}; $item->{$key} = $value if defined $value; # warn "$key $value"; } } else { $name = $orig; $item = {name=>$name, type=>$default_type}; $what->{$default_type} = 1; } warn +(ref ($self) || $self) . "doesn't know how to handle values of type $_ used in macro $name" unless $self->valid_type ($item->{type}); # tr///c is broken on 5.6.1 for utf8, so my original tr/\0-\177//c # doesn't work. Upgrade to 5.8 # if ($name !~ tr/\0-\177//c || $] < 5.005_50) { if ($name =~ tr/\0-\177// == length $name || $] < 5.005_50 || $args->{disable_utf8_duplication}) { # No characters outside 7 bit ASCII. if (exists $items->{$name}) { die "Multiple definitions for macro $name"; } $items->{$name} = $item; } else { # No characters outside 8 bit. This is hardest. if (exists $items->{$name} and ref $items->{$name} ne 'ARRAY') { confess "Unexpected ASCII definition for macro $name"; } # Again, 5.6.1 tr broken, so s/5\.6.*/5\.8\.0/; # if ($name !~ tr/\0-\377//c) { if ($name =~ tr/\0-\377// == length $name) { # if ($] < 5.007) { # $name = pack "C*", unpack "U*", $name; # } $item->{utf8} = 'no'; $items->{$name}[1] = $item; push @new_items, $item; # Copy item, to create the utf8 variant. $item = {%$item}; } # Encode the name as utf8 bytes. unless (is_perl56) { utf8::encode($name); } else { # warn "Was >$name< " . length ${name}; $name = pack 'C*', unpack 'C*', $name . pack 'U*'; # warn "Now '${name}' " . length ${name}; } if ($items->{$name}[0]) { die "Multiple definitions for macro $name"; } $item->{utf8} = 'yes'; $item->{name} = $name; $items->{$name}[0] = $item; # We have need for the utf8 flag. $what->{''} = 1; } push @new_items, $item; } @new_items; } =item C_constant arg_hashref, ITEM... A function that returns a B<list> of C subroutine definitions that return the value and type of constants when passed the name by the XS wrapper. I<ITEM...> gives a list of constant names. Each can either be a string, which is taken as a C macro name, or a reference to a hash with the following keys =over 8 =item name The name of the constant, as seen by the perl code. =item type The type of the constant (I<IV>, I<NV> etc) =item value A C expression for the value of the constant, or a list of C expressions if the type is aggregate. This defaults to the I<name> if not given. =item macro The C pre-processor macro to use in the C<#ifdef>. This defaults to the I<name>, and is mainly used if I<value> is an C<enum>. If a reference an array is passed then the first element is used in place of the C<#ifdef> line, and the second element in place of the C<#endif>. This allows pre-processor constructions such as #if defined (foo) #if !defined (bar) ... #endif #endif to be used to determine if a constant is to be defined. A "macro" 1 signals that the constant is always defined, so the C<#if>/C<#endif> test is omitted. =item default Default value to use (instead of C<croak>ing with "your vendor has not defined...") to return if the macro isn't defined. Specify a reference to an array with type followed by value(s). =item pre C code to use before the assignment of the value of the constant. This allows you to use temporary variables to extract a value from part of a C<struct> and return this as I<value>. This C code is places at the start of a block, so you can declare variables in it. =item post C code to place between the assignment of value (to a temporary) and the return from the function. This allows you to clear up anything in I<pre>. Rarely needed. =item def_pre =item def_post Equivalents of I<pre> and I<post> for the default value. =item utf8 Generated internally. Is zero or undefined if name is 7 bit ASCII, "no" if the name is 8 bit (and so should only match if SvUTF8() is false), "yes" if the name is utf8 encoded. The internals automatically clone any name with characters 128-255 but none 256+ (ie one that could be either in bytes or utf8) into a second entry which is utf8 encoded. =item weight Optional sorting weight for names, to determine the order of linear testing when multiple names fall in the same case of a switch clause. Higher comes earlier, undefined defaults to zero. =back In the argument hashref, I<package> is the name of the package, and is only used in comments inside the generated C code. I<subname> defaults to C<constant> if undefined. I<default_type> is the type returned by C<ITEM>s that don't specify their type. It defaults to the value of C<default_type()>. I<types> should be given either as a comma separated list of types that the C subroutine I<subname> will generate or as a reference to a hash. I<default_type> will be added to the list if not present, as will any types given in the list of I<ITEM>s. The resultant list should be the same list of types that C<XS_constant> is given. [Otherwise C<XS_constant> and C<C_constant> may differ in the number of parameters to the constant function. I<indent> is currently unused and ignored. In future it may be used to pass in information used to change the C indentation style used.] The best way to maintain consistency is to pass in a hash reference and let this function update it. I<breakout> governs when child functions of I<subname> are generated. If there are I<breakout> or more I<ITEM>s with the same length of name, then the code to switch between them is placed into a function named I<subname>_I<len>, for example C<constant_5> for names 5 characters long. The default I<breakout> is 3. A single C<ITEM> is always inlined. =cut # The parameter now BREAKOUT was previously documented as: # # I<NAMELEN> if defined signals that all the I<name>s of the I<ITEM>s are of # this length, and that the constant name passed in by perl is checked and # also of this length. It is used during recursion, and should be C<undef> # unless the caller has checked all the lengths during code generation, and # the generated subroutine is only to be called with a name of this length. # # As you can see it now performs this function during recursion by being a # scalar reference. sub C_constant { my ($self, $args, @items) = @_; my ($package, $subname, $default_type, $what, $indent, $breakout) = @{$args}{qw(package subname default_type types indent breakout)}; $package ||= 'Foo'; $subname ||= 'constant'; # I'm not using this. But a hashref could be used for full formatting without # breaking this API # $indent ||= 0; my ($namelen, $items); if (ref $breakout) { # We are called recursively. We trust @items to be normalised, $what to # be a hashref, and pinch %$items from our parent to save recalculation. ($namelen, $items) = @$breakout; } else { $items = {}; if (is_perl56) { # Need proper Unicode preserving hash keys. require ExtUtils::Constant::Aaargh56Hash; tie %$items, 'ExtUtils::Constant::Aaargh56Hash'; } $breakout ||= 3; $default_type ||= $self->default_type(); if (!ref $what) { # Convert line of the form IV,UV,NV to hash $what = {map {$_ => 1} split /,\s*/, ($what || '')}; # Figure out what types we're dealing with, and assign all unknowns to the # default type } @items = $self->normalise_items ({}, $default_type, $what, $items, @items); # use Data::Dumper; print Dumper @items; } my $params = $self->params ($what); # Probably "static int" my ($body, @subs); $body = $self->C_constant_return_type($params) . "\n$subname (" # Eg "pTHX_ " . $self->C_constant_prefix_param_defintion($params) # Probably "const char *name" . $self->name_param_definition($params); # Something like ", STRLEN len" $body .= ", " . $self->namelen_param_definition($params) unless defined $namelen; $body .= $self->C_constant_other_params_defintion($params); $body .= ") {\n"; if (defined $namelen) { # We are a child subroutine. Print the simple description my $comment = 'When generated this function returned values for the list' . ' of names given here. However, subsequent manual editing may have' . ' added or removed some.'; $body .= $self->switch_clause ({indent=>2, comment=>$comment}, $namelen, $items, @items); } else { # We are the top level. $body .= " /* Initially switch on the length of the name. */\n"; $body .= $self->dogfood ({package => $package, subname => $subname, default_type => $default_type, what => $what, indent => $indent, breakout => $breakout}, @items); $body .= ' switch ('.$self->namelen_param().") {\n"; # Need to group names of the same length my @by_length; foreach (@items) { push @{$by_length[length $_->{name}]}, $_; } foreach my $i (0 .. $#by_length) { next unless $by_length[$i]; # None of this length $body .= " case $i:\n"; if (@{$by_length[$i]} == 1) { my $only_thing = $by_length[$i]->[0]; if ($only_thing->{utf8}) { if ($only_thing->{utf8} eq 'yes') { # With utf8 on flag item is passed in element 0 $body .= $self->match_clause (undef, [$only_thing]); } else { # With utf8 off flag item is passed in element 1 $body .= $self->match_clause (undef, [undef, $only_thing]); } } else { $body .= $self->match_clause (undef, $only_thing); } } elsif (@{$by_length[$i]} < $breakout) { $body .= $self->switch_clause ({indent=>4}, $i, $items, @{$by_length[$i]}); } else { # Only use the minimal set of parameters actually needed by the types # of the names of this length. my $what = {}; foreach (@{$by_length[$i]}) { $what->{$_->{type}} = 1; $what->{''} = 1 if $_->{utf8}; } $params = $self->params ($what); push @subs, $self->C_constant ({package=>$package, subname=>"${subname}_$i", default_type => $default_type, types => $what, indent => $indent, breakout => [$i, $items]}, @{$by_length[$i]}); $body .= " return ${subname}_$i (" # Eg "aTHX_ " . $self->C_constant_prefix_param($params) # Probably "name" . $self->name_param($params); $body .= $self->C_constant_other_params($params); $body .= ");\n"; } $body .= " break;\n"; } $body .= " }\n"; } my $notfound = $self->return_statement_for_notfound(); $body .= " $notfound\n" if $notfound; $body .= "}\n"; return (@subs, $body); } 1; __END__ =back =head1 BUGS Not everything is documented yet. Probably others. =head1 AUTHOR Nicholas Clark <nick@ccl4.org> based on the code in C<h2xs> by Larry Wall and others PK ! K, <� � 5.34.0/ExtUtils/Constant/XS.pmnu �[��� package ExtUtils::Constant::XS; use strict; use vars qw($VERSION %XS_Constant %XS_TypeSet @ISA @EXPORT_OK $is_perl56); use Carp; use ExtUtils::Constant::Utils 'perl_stringify'; require ExtUtils::Constant::Base; @ISA = qw(ExtUtils::Constant::Base Exporter); @EXPORT_OK = qw(%XS_Constant %XS_TypeSet); $VERSION = '0.03'; $is_perl56 = ($] < 5.007 && $] > 5.005_50); =head1 NAME ExtUtils::Constant::XS - generate C code for XS modules' constants. =head1 SYNOPSIS require ExtUtils::Constant::XS; =head1 DESCRIPTION ExtUtils::Constant::XS overrides ExtUtils::Constant::Base to generate C code for XS modules' constants. =head1 BUGS Nothing is documented. Probably others. =head1 AUTHOR Nicholas Clark <nick@ccl4.org> based on the code in C<h2xs> by Larry Wall and others =cut # '' is used as a flag to indicate non-ascii macro names, and hence the need # to pass in the utf8 on/off flag. %XS_Constant = ( '' => '', IV => 'PUSHi(iv)', UV => 'PUSHu((UV)iv)', NV => 'PUSHn(nv)', PV => 'PUSHp(pv, strlen(pv))', PVN => 'PUSHp(pv, iv)', SV => 'PUSHs(sv)', YES => 'PUSHs(&PL_sv_yes)', NO => 'PUSHs(&PL_sv_no)', UNDEF => '', # implicit undef ); %XS_TypeSet = ( IV => '*iv_return = ', UV => '*iv_return = (IV)', NV => '*nv_return = ', PV => '*pv_return = ', PVN => ['*pv_return = ', '*iv_return = (IV)'], SV => '*sv_return = ', YES => undef, NO => undef, UNDEF => undef, ); sub header { my $start = 1; my @lines; push @lines, "#define PERL_constant_NOTFOUND\t$start\n"; $start++; push @lines, "#define PERL_constant_NOTDEF\t$start\n"; $start++; foreach (sort keys %XS_Constant) { next if $_ eq ''; push @lines, "#define PERL_constant_IS$_\t$start\n"; $start++; } push @lines, << 'EOT'; #ifndef NVTYPE typedef double NV; /* 5.6 and later define NVTYPE, and typedef NV to it. */ #endif #ifndef aTHX_ #define aTHX_ /* 5.6 or later define this for threading support. */ #endif #ifndef pTHX_ #define pTHX_ /* 5.6 or later define this for threading support. */ #endif EOT return join '', @lines; } sub valid_type { my ($self, $type) = @_; return exists $XS_TypeSet{$type}; } # This might actually be a return statement sub assignment_clause_for_type { my $self = shift; my $args = shift; my $type = $args->{type}; my $typeset = $XS_TypeSet{$type}; if (ref $typeset) { die "Type $type is aggregate, but only single value given" if @_ == 1; return map {"$typeset->[$_]$_[$_];"} 0 .. $#$typeset; } elsif (defined $typeset) { confess "Aggregate value given for type $type" if @_ > 1; return "$typeset$_[0];"; } return (); } sub return_statement_for_type { my ($self, $type) = @_; # In the future may pass in an options hash $type = $type->{type} if ref $type; "return PERL_constant_IS$type;"; } sub return_statement_for_notdef { # my ($self) = @_; "return PERL_constant_NOTDEF;"; } sub return_statement_for_notfound { # my ($self) = @_; "return PERL_constant_NOTFOUND;"; } sub default_type { 'IV'; } sub macro_from_name { my ($self, $item) = @_; my $macro = $item->{name}; $macro = $item->{value} unless defined $macro; $macro; } sub macro_from_item { my ($self, $item) = @_; my $macro = $item->{macro}; $macro = $self->macro_from_name($item) unless defined $macro; $macro; } # Keep to the traditional perl source macro sub memEQ { "memEQ"; } sub params { my ($self, $what) = @_; foreach (sort keys %$what) { warn "ExtUtils::Constant doesn't know how to handle values of type $_" unless defined $XS_Constant{$_}; } my $params = {}; $params->{''} = 1 if $what->{''}; $params->{IV} = 1 if $what->{IV} || $what->{UV} || $what->{PVN}; $params->{NV} = 1 if $what->{NV}; $params->{PV} = 1 if $what->{PV} || $what->{PVN}; $params->{SV} = 1 if $what->{SV}; return $params; } sub C_constant_prefix_param { "aTHX_ "; } sub C_constant_prefix_param_defintion { "pTHX_ "; } sub namelen_param_definition { 'STRLEN ' . $_[0] -> namelen_param; } sub C_constant_other_params_defintion { my ($self, $params) = @_; my $body = ''; $body .= ", int utf8" if $params->{''}; $body .= ", IV *iv_return" if $params->{IV}; $body .= ", NV *nv_return" if $params->{NV}; $body .= ", const char **pv_return" if $params->{PV}; $body .= ", SV **sv_return" if $params->{SV}; $body; } sub C_constant_other_params { my ($self, $params) = @_; my $body = ''; $body .= ", utf8" if $params->{''}; $body .= ", iv_return" if $params->{IV}; $body .= ", nv_return" if $params->{NV}; $body .= ", pv_return" if $params->{PV}; $body .= ", sv_return" if $params->{SV}; $body; } sub dogfood { my ($self, $args, @items) = @_; my ($package, $subname, $default_type, $what, $indent, $breakout) = @{$args}{qw(package subname default_type what indent breakout)}; my $result = <<"EOT"; /* When generated this function returned values for the list of names given in this section of perl code. Rather than manually editing these functions to add or remove constants, which would result in this comment and section of code becoming inaccurate, we recommend that you edit this section of code, and use it to regenerate a new set of constant functions which you then use to replace the originals. Regenerate these constant functions by feeding this entire source file to perl -x #!$^X -w use ExtUtils::Constant qw (constant_types C_constant XS_constant); EOT $result .= $self->dump_names ({default_type=>$default_type, what=>$what, indent=>0, declare_types=>1}, @items); $result .= <<'EOT'; print constant_types(), "\n"; # macro defs EOT $package = perl_stringify($package); $result .= "foreach (C_constant (\"$package\", '$subname', '$default_type', \$types, "; # The form of the indent parameter isn't defined. (Yet) if (defined $indent) { require Data::Dumper; $Data::Dumper::Terse=1; $Data::Dumper::Terse=1; # Not used once. :-) chomp ($indent = Data::Dumper::Dumper ($indent)); $result .= $indent; } else { $result .= 'undef'; } $result .= ", $breakout" . ', @names) ) { print $_, "\n"; # C constant subs } print "\n#### XS Section:\n"; print XS_constant ("' . $package . '", $types); __END__ */ '; $result; } 1; PK ! ђ�C6 6 5.34.0/ExtUtils/ParseXS.podnu �[��� =head1 NAME ExtUtils::ParseXS - converts Perl XS code into C code =head1 SYNOPSIS use ExtUtils::ParseXS; my $pxs = ExtUtils::ParseXS->new; $pxs->process_file( filename => 'foo.xs' ); $pxs->process_file( filename => 'foo.xs', output => 'bar.c', 'C++' => 1, typemap => 'path/to/typemap', hiertype => 1, except => 1, versioncheck => 1, linenumbers => 1, optimize => 1, prototypes => 1, ); # Legacy non-OO interface using a singleton: use ExtUtils::ParseXS qw(process_file); process_file( filename => 'foo.xs' ); =head1 DESCRIPTION C<ExtUtils::ParseXS> will compile XS code into C code by embedding the constructs necessary to let C functions manipulate Perl values and creates the glue necessary to let Perl access those functions. The compiler uses typemaps to determine how to map C function parameters and variables to Perl values. The compiler will search for typemap files called I<typemap>. It will use the following search path to find default typemaps, with the rightmost typemap taking precedence. ../../../typemap:../../typemap:../typemap:typemap =head1 EXPORT None by default. C<process_file()> and/or C<report_error_count()> may be exported upon request. Using the functional interface is discouraged. =head1 METHODS =over 4 =item $pxs->new() Returns a new, empty XS parser/compiler object. =item $pxs->process_file() This method processes an XS file and sends output to a C file. The method may be called as a function (this is the legacy interface) and will then use a singleton as invocant. Named parameters control how the processing is done. The following parameters are accepted: =over 4 =item B<C++> Adds C<extern "C"> to the C code. Default is false. =item B<hiertype> Retains C<::> in type names so that C++ hierarchical types can be mapped. Default is false. =item B<except> Adds exception handling stubs to the C code. Default is false. =item B<typemap> Indicates that a user-supplied typemap should take precedence over the default typemaps. A single typemap may be specified as a string, or multiple typemaps can be specified in an array reference, with the last typemap having the highest precedence. =item B<prototypes> Generates prototype code for all xsubs. Default is false. =item B<versioncheck> Makes sure at run time that the object file (derived from the C<.xs> file) and the C<.pm> files have the same version number. Default is true. =item B<linenumbers> Adds C<#line> directives to the C output so error messages will look like they came from the original XS file. Default is true. =item B<optimize> Enables certain optimizations. The only optimization that is currently affected is the use of I<target>s by the output C code (see L<perlguts>). Not optimizing may significantly slow down the generated code, but this is the way B<xsubpp> of 5.005 and earlier operated. Default is to optimize. =item B<inout> Enable recognition of C<IN>, C<OUT_LIST> and C<INOUT_LIST> declarations. Default is true. =item B<argtypes> Enable recognition of ANSI-like descriptions of function signature. Default is true. =item B<s> I<Maintainer note:> I have no clue what this does. Strips function prefixes? =back =item $pxs->report_error_count() This method returns the number of [a certain kind of] errors encountered during processing of the XS file. The method may be called as a function (this is the legacy interface) and will then use a singleton as invocant. =back =head1 AUTHOR Based on xsubpp code, written by Larry Wall. Maintained by: =over 4 =item * Ken Williams, <ken@mathforum.org> =item * David Golden, <dagolden@cpan.org> =item * James Keenan, <jkeenan@cpan.org> =item * Steffen Mueller, <smueller@cpan.org> =back =head1 COPYRIGHT Copyright 2002-2014 by Ken Williams, David Golden and other contributors. All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. Based on the C<ExtUtils::xsubpp> code by Larry Wall and the Perl 5 Porters, which was released under the same license terms. =head1 SEE ALSO L<perl>, ExtUtils::xsubpp, ExtUtils::MakeMaker, L<perlxs>, L<perlxstut>. =cut PK ! �M� 5.34.0/ExtUtils/MM_Cygwin.pmnu �[��� package ExtUtils::MM_Cygwin; use strict; use warnings; use ExtUtils::MakeMaker::Config; use File::Spec; require ExtUtils::MM_Unix; require ExtUtils::MM_Win32; our @ISA = qw( ExtUtils::MM_Unix ); our $VERSION = '7.62'; $VERSION =~ tr/_//d; =head1 NAME ExtUtils::MM_Cygwin - methods to override UN*X behaviour in ExtUtils::MakeMaker =head1 SYNOPSIS use ExtUtils::MM_Cygwin; # Done internally by ExtUtils::MakeMaker if needed =head1 DESCRIPTION See L<ExtUtils::MM_Unix> for a documentation of the methods provided there. =over 4 =item os_flavor We're Unix and Cygwin. =cut sub os_flavor { return('Unix', 'Cygwin'); } =item cflags if configured for dynamic loading, triggers #define EXT in EXTERN.h =cut sub cflags { my($self,$libperl)=@_; return $self->{CFLAGS} if $self->{CFLAGS}; return '' unless $self->needs_linking(); my $base = $self->SUPER::cflags($libperl); foreach (split /\n/, $base) { /^(\S*)\s*=\s*(\S*)$/ and $self->{$1} = $2; }; $self->{CCFLAGS} .= " -DUSEIMPORTLIB" if ($Config{useshrplib} eq 'true'); return $self->{CFLAGS} = qq{ CCFLAGS = $self->{CCFLAGS} OPTIMIZE = $self->{OPTIMIZE} PERLTYPE = $self->{PERLTYPE} }; } =item replace_manpage_separator replaces strings '::' with '.' in MAN*POD man page names =cut sub replace_manpage_separator { my($self, $man) = @_; $man =~ s{/+}{.}g; return $man; } =item init_linker points to libperl.a =cut sub init_linker { my $self = shift; if ($Config{useshrplib} eq 'true') { my $libperl = '$(PERL_INC)' .'/'. "$Config{libperl}"; if( "$]" >= 5.006002 ) { $libperl =~ s/(dll\.)?a$/dll.a/; } $self->{PERL_ARCHIVE} = $libperl; } else { $self->{PERL_ARCHIVE} = '$(PERL_INC)' .'/'. ("$Config{libperl}" or "libperl.a"); } $self->{PERL_ARCHIVEDEP} ||= ''; $self->{PERL_ARCHIVE_AFTER} ||= ''; $self->{EXPORT_LIST} ||= ''; } sub init_others { my $self = shift; $self->SUPER::init_others; $self->{LDLOADLIBS} ||= $Config{perllibs}; return; } =item maybe_command Determine whether a file is native to Cygwin by checking whether it resides inside the Cygwin installation (using Windows paths). If so, use L<ExtUtils::MM_Unix> to determine if it may be a command. Otherwise use the tests from L<ExtUtils::MM_Win32>. =cut sub maybe_command { my ($self, $file) = @_; my $cygpath = Cygwin::posix_to_win_path('/', 1); my $filepath = Cygwin::posix_to_win_path($file, 1); return (substr($filepath,0,length($cygpath)) eq $cygpath) ? $self->SUPER::maybe_command($file) # Unix : ExtUtils::MM_Win32->maybe_command($file); # Win32 } =item dynamic_lib Use the default to produce the *.dll's. But for new archdir dll's use the same rebase address if the old exists. =cut sub dynamic_lib { my($self, %attribs) = @_; my $s = ExtUtils::MM_Unix::dynamic_lib($self, %attribs); return '' unless $s; return $s unless %{$self->{XS}}; # do an ephemeral rebase so the new DLL fits to the current rebase map $s .= "\t/bin/find \$\(INST_ARCHLIB\)/auto -xdev -name \\*.$self->{DLEXT} | /bin/rebase -sOT -" if (( $Config{myarchname} eq 'i686-cygwin' ) and not ( exists $ENV{CYGPORT_PACKAGE_VERSION} )); $s; } =item install Rebase dll's with the global rebase database after installation. =cut sub install { my($self, %attribs) = @_; my $s = ExtUtils::MM_Unix::install($self, %attribs); return '' unless $s; return $s unless %{$self->{XS}}; my $INSTALLDIRS = $self->{INSTALLDIRS}; my $INSTALLLIB = $self->{"INSTALL". ($INSTALLDIRS eq 'perl' ? 'ARCHLIB' : uc($INSTALLDIRS)."ARCH")}; my $dop = "\$\(DESTDIR\)$INSTALLLIB/auto/"; my $dll = "$dop/$self->{FULLEXT}/$self->{BASEEXT}.$self->{DLEXT}"; $s =~ s|^(pure_install :: pure_\$\(INSTALLDIRS\)_install\n\t)\$\(NOECHO\) \$\(NOOP\)\n|$1\$(CHMOD) \$(PERM_RWX) $dll\n\t/bin/find $dop -xdev -name \\*.$self->{DLEXT} \| /bin/rebase -sOT -\n|m if (( $Config{myarchname} eq 'i686-cygwin') and not ( exists $ENV{CYGPORT_PACKAGE_VERSION} )); $s; } =back =cut 1; PK ! V�aS�� �� 5.34.0/ExtUtils/MakeMaker.pmnu �[��� # $Id$ package ExtUtils::MakeMaker; use strict; use warnings; BEGIN {require 5.006;} require Exporter; use ExtUtils::MakeMaker::Config; use ExtUtils::MakeMaker::version; # ensure we always have our fake version.pm use Carp; use File::Path; my $CAN_DECODE = eval { require ExtUtils::MakeMaker::Locale; }; # 2 birds, 1 stone eval { ExtUtils::MakeMaker::Locale::reinit('UTF-8') } if $CAN_DECODE and Encode::find_encoding('locale')->name eq 'ascii'; our $Verbose = 0; # exported our @Parent; # needs to be localized our @Get_from_Config; # referenced by MM_Unix our @MM_Sections; our @Overridable; my @Prepend_parent; my %Recognized_Att_Keys; our %macro_fsentity; # whether a macro is a filesystem name our %macro_dep; # whether a macro is a dependency our $VERSION = '7.62'; $VERSION =~ tr/_//d; # Emulate something resembling CVS $Revision$ (our $Revision = $VERSION) =~ s{_}{}; $Revision = int $Revision * 10000; our $Filename = __FILE__; # referenced outside MakeMaker our @ISA = qw(Exporter); our @EXPORT = qw(&WriteMakefile $Verbose &prompt &os_unsupported); our @EXPORT_OK = qw($VERSION &neatvalue &mkbootstrap &mksymlists &WriteEmptyMakefile &open_for_writing &write_file_via_tmp &_sprintf562); # These will go away once the last of the Win32 & VMS specific code is # purged. my $Is_VMS = $^O eq 'VMS'; my $Is_Win32 = $^O eq 'MSWin32'; our $UNDER_CORE = $ENV{PERL_CORE}; # needs to be our full_setup(); require ExtUtils::MM; # Things like CPAN assume loading ExtUtils::MakeMaker # will give them MM. require ExtUtils::MY; # XXX pre-5.8 versions of ExtUtils::Embed expect # loading ExtUtils::MakeMaker will give them MY. # This will go when Embed is its own CPAN module. # 5.6.2 can't do sprintf "%1$s" - this can only do %s sub _sprintf562 { my ($format, @args) = @_; for (my $i = 1; $i <= @args; $i++) { $format =~ s#%$i\$s#$args[$i-1]#g; } $format; } sub WriteMakefile { croak "WriteMakefile: Need even number of args" if @_ % 2; require ExtUtils::MY; my %att = @_; _convert_compat_attrs(\%att); _verify_att(\%att); my $mm = MM->new(\%att); $mm->flush; return $mm; } # Basic signatures of the attributes WriteMakefile takes. Each is the # reference type. Empty value indicate it takes a non-reference # scalar. my %Att_Sigs; my %Special_Sigs = ( AUTHOR => 'ARRAY', C => 'ARRAY', CONFIG => 'ARRAY', CONFIGURE => 'CODE', DIR => 'ARRAY', DL_FUNCS => 'HASH', DL_VARS => 'ARRAY', EXCLUDE_EXT => 'ARRAY', EXE_FILES => 'ARRAY', FUNCLIST => 'ARRAY', H => 'ARRAY', IMPORTS => 'HASH', INCLUDE_EXT => 'ARRAY', LIBS => ['ARRAY',''], MAN1PODS => 'HASH', MAN3PODS => 'HASH', META_ADD => 'HASH', META_MERGE => 'HASH', OBJECT => ['ARRAY', ''], PL_FILES => 'HASH', PM => 'HASH', PMLIBDIRS => 'ARRAY', PMLIBPARENTDIRS => 'ARRAY', PREREQ_PM => 'HASH', BUILD_REQUIRES => 'HASH', CONFIGURE_REQUIRES => 'HASH', TEST_REQUIRES => 'HASH', SKIP => 'ARRAY', TYPEMAPS => 'ARRAY', XS => 'HASH', XSBUILD => 'HASH', VERSION => ['version',''], _KEEP_AFTER_FLUSH => '', clean => 'HASH', depend => 'HASH', dist => 'HASH', dynamic_lib=> 'HASH', linkext => 'HASH', macro => 'HASH', postamble => 'HASH', realclean => 'HASH', test => 'HASH', tool_autosplit => 'HASH', ); @Att_Sigs{keys %Recognized_Att_Keys} = ('') x keys %Recognized_Att_Keys; @Att_Sigs{keys %Special_Sigs} = values %Special_Sigs; sub _convert_compat_attrs { #result of running several times should be same my($att) = @_; if (exists $att->{AUTHOR}) { if ($att->{AUTHOR}) { if (!ref($att->{AUTHOR})) { my $t = $att->{AUTHOR}; $att->{AUTHOR} = [$t]; } } else { $att->{AUTHOR} = []; } } } sub _verify_att { my($att) = @_; foreach my $key (sort keys %$att) { my $val = $att->{$key}; my $sig = $Att_Sigs{$key}; unless( defined $sig ) { warn "WARNING: $key is not a known parameter.\n"; next; } my @sigs = ref $sig ? @$sig : $sig; my $given = ref $val; unless( grep { _is_of_type($val, $_) } @sigs ) { my $takes = join " or ", map { _format_att($_) } @sigs; my $has = _format_att($given); warn "WARNING: $key takes a $takes not a $has.\n". " Please inform the author.\n"; } } } # Check if a given thing is a reference or instance of $type sub _is_of_type { my($thing, $type) = @_; return 1 if ref $thing eq $type; local $SIG{__DIE__}; return 1 if eval{ $thing->isa($type) }; return 0; } sub _format_att { my $given = shift; return $given eq '' ? "string/number" : uc $given eq $given ? "$given reference" : "$given object" ; } sub prompt ($;$) { ## no critic my($mess, $def) = @_; confess("prompt function called without an argument") unless defined $mess; my $isa_tty = -t STDIN && (-t STDOUT || !(-f STDOUT || -c STDOUT)) ; my $dispdef = defined $def ? "[$def] " : " "; $def = defined $def ? $def : ""; local $|=1; local $\; print "$mess $dispdef"; my $ans; if ($ENV{PERL_MM_USE_DEFAULT} || (!$isa_tty && eof STDIN)) { print "$def\n"; } else { $ans = <STDIN>; if( defined $ans ) { $ans =~ s{\015?\012$}{}; } else { # user hit ctrl-D print "\n"; } } return (!defined $ans || $ans eq '') ? $def : $ans; } sub os_unsupported { die "OS unsupported\n"; } sub eval_in_subdirs { my($self) = @_; use Cwd qw(cwd abs_path); my $pwd = cwd() || die "Can't figure out your cwd!"; local @INC = map eval {abs_path($_) if -e} || $_, @INC; push @INC, '.'; # '.' has to always be at the end of @INC foreach my $dir (@{$self->{DIR}}){ my($abs) = $self->catdir($pwd,$dir); eval { $self->eval_in_x($abs); }; last if $@; } chdir $pwd; die $@ if $@; } sub eval_in_x { my($self,$dir) = @_; chdir $dir or carp("Couldn't change to directory $dir: $!"); { package main; do './Makefile.PL'; }; if ($@) { # if ($@ =~ /prerequisites/) { # die "MakeMaker WARNING: $@"; # } else { # warn "WARNING from evaluation of $dir/Makefile.PL: $@"; # } die "ERROR from evaluation of $dir/Makefile.PL: $@"; } } # package name for the classes into which the first object will be blessed my $PACKNAME = 'PACK000'; sub full_setup { $Verbose ||= 0; my @dep_macros = qw/ PERL_INCDEP PERL_ARCHLIBDEP PERL_ARCHIVEDEP /; my @fs_macros = qw/ FULLPERL XSUBPPDIR INST_ARCHLIB INST_SCRIPT INST_BIN INST_LIB INST_MAN1DIR INST_MAN3DIR INSTALLDIRS DESTDIR PREFIX INSTALL_BASE PERLPREFIX SITEPREFIX VENDORPREFIX INSTALLPRIVLIB INSTALLSITELIB INSTALLVENDORLIB INSTALLARCHLIB INSTALLSITEARCH INSTALLVENDORARCH INSTALLBIN INSTALLSITEBIN INSTALLVENDORBIN INSTALLMAN1DIR INSTALLMAN3DIR INSTALLSITEMAN1DIR INSTALLSITEMAN3DIR INSTALLVENDORMAN1DIR INSTALLVENDORMAN3DIR INSTALLSCRIPT INSTALLSITESCRIPT INSTALLVENDORSCRIPT PERL_LIB PERL_ARCHLIB SITELIBEXP SITEARCHEXP MAKE LIBPERL_A LIB PERL_SRC PERL_INC PPM_INSTALL_EXEC PPM_UNINSTALL_EXEC PPM_INSTALL_SCRIPT PPM_UNINSTALL_SCRIPT /; my @attrib_help = qw/ AUTHOR ABSTRACT ABSTRACT_FROM BINARY_LOCATION C CAPI CCFLAGS CONFIG CONFIGURE DEFINE DIR DISTNAME DISTVNAME DL_FUNCS DL_VARS EXCLUDE_EXT EXE_FILES FIRST_MAKEFILE FULLPERLRUN FULLPERLRUNINST FUNCLIST H IMPORTS INC INCLUDE_EXT LDFROM LIBS LICENSE LINKTYPE MAKEAPERL MAKEFILE MAKEFILE_OLD MAN1PODS MAN3PODS MAP_TARGET META_ADD META_MERGE MIN_PERL_VERSION BUILD_REQUIRES CONFIGURE_REQUIRES MYEXTLIB NAME NEEDS_LINKING NOECHO NO_META NO_MYMETA NO_PACKLIST NO_PERLLOCAL NORECURS NO_VC OBJECT OPTIMIZE PERL_MALLOC_OK PERL PERLMAINCC PERLRUN PERLRUNINST PERL_CORE PERM_DIR PERM_RW PERM_RWX MAGICXS PL_FILES PM PM_FILTER PMLIBDIRS PMLIBPARENTDIRS POLLUTE PREREQ_FATAL PREREQ_PM PREREQ_PRINT PRINT_PREREQ PUREPERL_ONLY SIGN SKIP TEST_REQUIRES TYPEMAPS UNINST VERSION VERSION_FROM XS XSBUILD XSMULTI XSOPT XSPROTOARG XS_VERSION clean depend dist dynamic_lib linkext macro realclean tool_autosplit MAN1EXT MAN3EXT MACPERL_SRC MACPERL_LIB MACLIBS_68K MACLIBS_PPC MACLIBS_SC MACLIBS_MRC MACLIBS_ALL_68K MACLIBS_ALL_PPC MACLIBS_SHARED /; push @attrib_help, @fs_macros; @macro_fsentity{@fs_macros, @dep_macros} = (1) x (@fs_macros+@dep_macros); @macro_dep{@dep_macros} = (1) x @dep_macros; # IMPORTS is used under OS/2 and Win32 # @Overridable is close to @MM_Sections but not identical. The # order is important. Many subroutines declare macros. These # depend on each other. Let's try to collect the macros up front, # then pasthru, then the rules. # MM_Sections are the sections we have to call explicitly # in Overridable we have subroutines that are used indirectly @MM_Sections = qw( post_initialize const_config constants platform_constants tool_autosplit tool_xsubpp tools_other makemakerdflt dist macro depend cflags const_loadlibs const_cccmd post_constants pasthru special_targets c_o xs_c xs_o top_targets blibdirs linkext dlsyms dynamic_bs dynamic dynamic_lib static static_lib manifypods processPL installbin subdirs clean_subdirs clean realclean_subdirs realclean metafile signature dist_basics dist_core distdir dist_test dist_ci distmeta distsignature install force perldepend makefile staticmake test ppd ); # loses section ordering @Overridable = @MM_Sections; push @Overridable, qw[ libscan makeaperl needs_linking subdir_x test_via_harness test_via_script init_VERSION init_dist init_INST init_INSTALL init_DEST init_dirscan init_PM init_MANPODS init_xs init_PERL init_DIRFILESEP init_linker ]; push @MM_Sections, qw[ pm_to_blib selfdocument ]; # Postamble needs to be the last that was always the case push @MM_Sections, "postamble"; push @Overridable, "postamble"; # All sections are valid keys. @Recognized_Att_Keys{@MM_Sections} = (1) x @MM_Sections; # we will use all these variables in the Makefile @Get_from_Config = qw( ar cc cccdlflags ccdlflags dlext dlsrc exe_ext full_ar ld lddlflags ldflags libc lib_ext obj_ext osname osvers ranlib sitelibexp sitearchexp so ); # 5.5.3 doesn't have any concept of vendor libs push @Get_from_Config, qw( vendorarchexp vendorlibexp ) if "$]" >= 5.006; foreach my $item (@attrib_help){ $Recognized_Att_Keys{$item} = 1; } foreach my $item (@Get_from_Config) { $Recognized_Att_Keys{uc $item} = $Config{$item}; print "Attribute '\U$item\E' => '$Config{$item}'\n" if ($Verbose >= 2); } # # When we eval a Makefile.PL in a subdirectory, that one will ask # us (the parent) for the values and will prepend "..", so that # all files to be installed end up below OUR ./blib # @Prepend_parent = qw( INST_BIN INST_LIB INST_ARCHLIB INST_SCRIPT MAP_TARGET INST_MAN1DIR INST_MAN3DIR PERL_SRC PERL FULLPERL ); } sub _has_cpan_meta_requirements { return eval { require CPAN::Meta::Requirements; CPAN::Meta::Requirements->VERSION(2.130); # Make sure vstrings can be handled. Some versions of CMR require B to # do this, which won't be available in miniperl. CPAN::Meta::Requirements->new->add_string_requirement('Module' => v1.2); 1; }; } sub new { my($class,$self) = @_; my($key); _convert_compat_attrs($self) if defined $self && $self; # Store the original args passed to WriteMakefile() foreach my $k (keys %$self) { $self->{ARGS}{$k} = $self->{$k}; } $self = {} unless defined $self; # Temporarily bless it into MM so it can be used as an # object. It will be blessed into a temp package later. bless $self, "MM"; # Cleanup all the module requirement bits my %key2cmr; for my $key (qw(PREREQ_PM BUILD_REQUIRES CONFIGURE_REQUIRES TEST_REQUIRES)) { $self->{$key} ||= {}; if (_has_cpan_meta_requirements) { my $cmr = CPAN::Meta::Requirements->from_string_hash( $self->{$key}, { bad_version_hook => sub { #no warnings 'numeric'; # module doesn't use warnings my $fallback; if ( $_[0] =~ m!^[-+]?[0-9]*\.?[0-9]+([eE][-+]?[0-9]+)?$! ) { $fallback = sprintf "%f", $_[0]; } else { ($fallback) = $_[0] ? ($_[0] =~ /^([0-9.]+)/) : 0; $fallback += 0; carp "Unparsable version '$_[0]' for prerequisite $_[1] treated as $fallback"; } version->new($fallback); }, }, ); $self->{$key} = $cmr->as_string_hash; $key2cmr{$key} = $cmr; } else { for my $module (sort keys %{ $self->{$key} }) { my $version = $self->{$key}->{$module}; my $fallback = 0; if (!defined($version) or !length($version)) { carp "Undefined requirement for $module treated as '0' (CPAN::Meta::Requirements not available)"; } elsif ($version =~ /^\d+(?:\.\d+(?:_\d+)*)?$/) { next; } else { if ( $version =~ m!^[-+]?[0-9]*\.?[0-9]+([eE][-+]?[0-9]+)?$! ) { $fallback = sprintf "%f", $version; } else { ($fallback) = $version ? ($version =~ /^([0-9.]+)/) : 0; $fallback += 0; carp "Unparsable version '$version' for prerequisite $module treated as $fallback (CPAN::Meta::Requirements not available)"; } } $self->{$key}->{$module} = $fallback; } } } if ("@ARGV" =~ /\bPREREQ_PRINT\b/) { $self->_PREREQ_PRINT; } # PRINT_PREREQ is RedHatism. if ("@ARGV" =~ /\bPRINT_PREREQ\b/) { $self->_PRINT_PREREQ; } print "MakeMaker (v$VERSION)\n" if $Verbose; if (-f "MANIFEST" && ! -f "Makefile" && ! $UNDER_CORE){ check_manifest(); } check_hints($self); if ( $self->{MIN_PERL_VERSION}) { my $perl_version = $self->{MIN_PERL_VERSION}; if (ref $perl_version) { # assume a version object } else { $perl_version = eval { local $SIG{__WARN__} = sub { # simulate "use warnings FATAL => 'all'" for vintage perls die @_; }; version->new( $perl_version )->numify; }; $perl_version =~ tr/_//d if defined $perl_version; } if (!defined $perl_version) { # should this be a warning? die sprintf <<'END', $self->{MIN_PERL_VERSION}; MakeMaker FATAL: MIN_PERL_VERSION (%s) is not in a recognized format. Recommended is a quoted numerical value like '5.005' or '5.008001'. END } elsif ($perl_version > "$]") { my $message = sprintf <<'END', $perl_version, $]; Perl version %s or higher required. We run %s. END if ($self->{PREREQ_FATAL}) { die "MakeMaker FATAL: $message"; } else { warn "Warning: $message"; } } $self->{MIN_PERL_VERSION} = $perl_version; } my %configure_att; # record &{$self->{CONFIGURE}} attributes my(%initial_att) = %$self; # record initial attributes my(%unsatisfied) = (); my %prereq2version; my $cmr; if (_has_cpan_meta_requirements) { $cmr = CPAN::Meta::Requirements->new; for my $key (qw(PREREQ_PM BUILD_REQUIRES CONFIGURE_REQUIRES TEST_REQUIRES)) { $cmr->add_requirements($key2cmr{$key}) if $key2cmr{$key}; } foreach my $prereq ($cmr->required_modules) { $prereq2version{$prereq} = $cmr->requirements_for_module($prereq); } } else { for my $key (qw(PREREQ_PM BUILD_REQUIRES CONFIGURE_REQUIRES TEST_REQUIRES)) { next unless my $module2version = $self->{$key}; $prereq2version{$_} = $module2version->{$_} for keys %$module2version; } } foreach my $prereq (sort keys %prereq2version) { my $required_version = $prereq2version{$prereq}; my $pr_version = 0; my $installed_file; if ( $prereq eq 'perl' ) { if ( defined $required_version && $required_version =~ /^v?[\d_\.]+$/ || $required_version !~ /^v?[\d_\.]+$/ ) { require version; my $normal = eval { version->new( $required_version ) }; $required_version = $normal if defined $normal; } $installed_file = $prereq; $pr_version = $]; } else { $installed_file = MM->_installed_file_for_module($prereq); $pr_version = MM->parse_version($installed_file) if $installed_file; $pr_version = 0 if $pr_version eq 'undef'; if ( !eval { version->new( $pr_version ); 1 } ) { #no warnings 'numeric'; # module doesn't use warnings my $fallback; if ( $pr_version =~ m!^[-+]?[0-9]*\.?[0-9]+([eE][-+]?[0-9]+)?$! ) { $fallback = sprintf '%f', $pr_version; } else { ($fallback) = $pr_version ? ($pr_version =~ /^([0-9.]+)/) : 0; $fallback += 0; carp "Unparsable version '$pr_version' for installed prerequisite $prereq treated as $fallback"; } $pr_version = $fallback; } } # convert X.Y_Z alpha version #s to X.YZ for easier comparisons $pr_version =~ s/(\d+)\.(\d+)_(\d+)/$1.$2$3/; if (!$installed_file) { warn sprintf "Warning: prerequisite %s %s not found.\n", $prereq, $required_version unless $self->{PREREQ_FATAL} or $UNDER_CORE; $unsatisfied{$prereq} = 'not installed'; } elsif ( $cmr ? !$cmr->accepts_module($prereq, $pr_version) : $required_version > $pr_version ) { warn sprintf "Warning: prerequisite %s %s not found. We have %s.\n", $prereq, $required_version, ($pr_version || 'unknown version') unless $self->{PREREQ_FATAL} or $UNDER_CORE; $unsatisfied{$prereq} = $required_version || 'unknown version' ; } } if (%unsatisfied && $self->{PREREQ_FATAL}){ my $failedprereqs = join "\n", map {" $_ $unsatisfied{$_}"} sort { $a cmp $b } keys %unsatisfied; die <<"END"; MakeMaker FATAL: prerequisites not found. $failedprereqs Please install these modules first and rerun 'perl Makefile.PL'. END } if (defined $self->{CONFIGURE}) { if (ref $self->{CONFIGURE} eq 'CODE') { %configure_att = %{&{$self->{CONFIGURE}}}; _convert_compat_attrs(\%configure_att); $self = { %$self, %configure_att }; } else { croak "Attribute 'CONFIGURE' to WriteMakefile() not a code reference\n"; } } my $newclass = ++$PACKNAME; local @Parent = @Parent; # Protect against non-local exits { print "Blessing Object into class [$newclass]\n" if $Verbose>=2; mv_all_methods("MY",$newclass); bless $self, $newclass; push @Parent, $self; require ExtUtils::MY; no strict 'refs'; ## no critic; @{"$newclass\:\:ISA"} = 'MM'; } if (defined $Parent[-2]){ $self->{PARENT} = $Parent[-2]; for my $key (@Prepend_parent) { next unless defined $self->{PARENT}{$key}; # Don't stomp on WriteMakefile() args. next if defined $self->{ARGS}{$key} and $self->{ARGS}{$key} eq $self->{$key}; $self->{$key} = $self->{PARENT}{$key}; if ($Is_VMS && $key =~ /PERL$/) { # PERL or FULLPERL will be a command verb or even a # command with an argument instead of a full file # specification under VMS. So, don't turn the command # into a filespec, but do add a level to the path of # the argument if not already absolute. my @cmd = split /\s+/, $self->{$key}; $cmd[1] = $self->catfile('[-]',$cmd[1]) unless (@cmd < 2) || $self->file_name_is_absolute($cmd[1]); $self->{$key} = join(' ', @cmd); } else { my $value = $self->{$key}; # not going to test in FS so only stripping start $value =~ s/"// if $key =~ /PERL$/ and $self->is_make_type('dmake'); $value =~ s/^"// if $key =~ /PERL$/; $value = $self->catdir("..", $value) unless $self->file_name_is_absolute($value); $value = qq{"$value} if $key =~ /PERL$/; $self->{$key} = $value; } } if ($self->{PARENT}) { $self->{PARENT}->{CHILDREN}->{$newclass} = $self; foreach my $opt (qw(POLLUTE PERL_CORE LINKTYPE AR FULL_AR CC CCFLAGS OPTIMIZE LD LDDLFLAGS LDFLAGS PERL_ARCHLIB DESTDIR)) { if (exists $self->{PARENT}->{$opt} and not exists $self->{$opt}) { # inherit, but only if already unspecified $self->{$opt} = $self->{PARENT}->{$opt}; } } } my @fm = grep /^FIRST_MAKEFILE=/, @ARGV; parse_args($self,@fm) if @fm; } else { parse_args($self, _shellwords($ENV{PERL_MM_OPT} || ''),@ARGV); } # RT#91540 PREREQ_FATAL not recognized on command line if (%unsatisfied && $self->{PREREQ_FATAL}){ my $failedprereqs = join "\n", map {" $_ $unsatisfied{$_}"} sort { $a cmp $b } keys %unsatisfied; die <<"END"; MakeMaker FATAL: prerequisites not found. $failedprereqs Please install these modules first and rerun 'perl Makefile.PL'. END } $self->{NAME} ||= $self->guess_name; warn "Warning: NAME must be a package name\n" unless $self->{NAME} =~ m!^[A-Z_a-z][0-9A-Z_a-z]*(?:::[0-9A-Z_a-z]+)*$!; ($self->{NAME_SYM} = $self->{NAME}) =~ s/\W+/_/g; $self->init_MAKE; $self->init_main; $self->init_VERSION; $self->init_dist; $self->init_INST; $self->init_INSTALL; $self->init_DEST; $self->init_dirscan; $self->init_PM; $self->init_MANPODS; $self->init_xs; $self->init_PERL; $self->init_DIRFILESEP; $self->init_linker; $self->init_ABSTRACT; $self->arch_check( $INC{'Config.pm'}, $self->catfile($Config{'archlibexp'}, "Config.pm") ); $self->init_tools(); $self->init_others(); $self->init_platform(); $self->init_PERM(); my @args = @ARGV; @args = map { Encode::decode(locale => $_) } @args if $CAN_DECODE; my($argv) = neatvalue(\@args); $argv =~ s/^\[/(/; $argv =~ s/\]$/)/; push @{$self->{RESULT}}, <<END; # This Makefile is for the $self->{NAME} extension to perl. # # It was generated automatically by MakeMaker version # $VERSION (Revision: $Revision) from the contents of # Makefile.PL. Don't edit this file, edit Makefile.PL instead. # # ANY CHANGES MADE HERE WILL BE LOST! # # MakeMaker ARGV: $argv # END push @{$self->{RESULT}}, $self->_MakeMaker_Parameters_section(\%initial_att); if (defined $self->{CONFIGURE}) { push @{$self->{RESULT}}, <<END; # MakeMaker 'CONFIGURE' Parameters: END if (scalar(keys %configure_att) > 0) { foreach my $key (sort keys %configure_att){ next if $key eq 'ARGS'; my($v) = neatvalue($configure_att{$key}); $v =~ s/(CODE|HASH|ARRAY|SCALAR)\([\dxa-f]+\)/$1\(...\)/; $v =~ tr/\n/ /s; push @{$self->{RESULT}}, "# $key => $v"; } } else { push @{$self->{RESULT}}, "# no values returned"; } undef %configure_att; # free memory } # turn the SKIP array into a SKIPHASH hash for my $skip (@{$self->{SKIP} || []}) { $self->{SKIPHASH}{$skip} = 1; } delete $self->{SKIP}; # free memory if ($self->{PARENT}) { for (qw/install dist dist_basics dist_core distdir dist_test dist_ci/) { $self->{SKIPHASH}{$_} = 1; } } # We run all the subdirectories now. They don't have much to query # from the parent, but the parent has to query them: if they need linking! unless ($self->{NORECURS}) { $self->eval_in_subdirs if @{$self->{DIR}}; } foreach my $section ( @MM_Sections ){ # Support for new foo_target() methods. my $method = $section; $method .= '_target' unless $self->can($method); print "Processing Makefile '$section' section\n" if ($Verbose >= 2); my($skipit) = $self->skipcheck($section); if ($skipit){ push @{$self->{RESULT}}, "\n# --- MakeMaker $section section $skipit."; } else { my(%a) = %{$self->{$section} || {}}; push @{$self->{RESULT}}, "\n# --- MakeMaker $section section:"; push @{$self->{RESULT}}, "# " . join ", ", %a if $Verbose && %a; push @{$self->{RESULT}}, $self->maketext_filter( $self->$method( %a ) ); } } push @{$self->{RESULT}}, "\n# End."; $self; } sub WriteEmptyMakefile { croak "WriteEmptyMakefile: Need an even number of args" if @_ % 2; my %att = @_; $att{DIR} = [] unless $att{DIR}; # don't recurse by default my $self = MM->new(\%att); my $new = $self->{MAKEFILE}; my $old = $self->{MAKEFILE_OLD}; if (-f $old) { _unlink($old) or warn "unlink $old: $!"; } if ( -f $new ) { _rename($new, $old) or warn "rename $new => $old: $!" } open my $mfh, '>', $new or die "open $new for write: $!"; print $mfh <<'EOP'; all : manifypods : subdirs : dynamic : static : clean : install : makemakerdflt : test : test_dynamic : test_static : EOP close $mfh or die "close $new for write: $!"; } =begin private =head3 _installed_file_for_module my $file = MM->_installed_file_for_module($module); Return the first installed .pm $file associated with the $module. The one which will show up when you C<use $module>. $module is something like "strict" or "Test::More". =end private =cut sub _installed_file_for_module { my $class = shift; my $prereq = shift; my $file = "$prereq.pm"; $file =~ s{::}{/}g; my $path; for my $dir (@INC) { my $tmp = File::Spec->catfile($dir, $file); if ( -r $tmp ) { $path = $tmp; last; } } return $path; } # Extracted from MakeMaker->new so we can test it sub _MakeMaker_Parameters_section { my $self = shift; my $att = shift; my @result = <<'END'; # MakeMaker Parameters: END foreach my $key (sort keys %$att){ next if $key eq 'ARGS'; my $v; if ($key eq 'PREREQ_PM') { # CPAN.pm takes prereqs from this field in 'Makefile' # and does not know about BUILD_REQUIRES $v = neatvalue({ %{ $att->{PREREQ_PM} || {} }, %{ $att->{BUILD_REQUIRES} || {} }, %{ $att->{TEST_REQUIRES} || {} }, }); } else { $v = neatvalue($att->{$key}); } $v =~ s/(CODE|HASH|ARRAY|SCALAR)\([\dxa-f]+\)/$1\(...\)/; $v =~ tr/\n/ /s; push @result, "# $key => $v"; } return @result; } # _shellwords and _parseline borrowed from Text::ParseWords sub _shellwords { my (@lines) = @_; my @allwords; foreach my $line (@lines) { $line =~ s/^\s+//; my @words = _parse_line('\s+', 0, $line); pop @words if (@words and !defined $words[-1]); return() unless (@words || !length($line)); push(@allwords, @words); } return(@allwords); } sub _parse_line { my($delimiter, $keep, $line) = @_; my($word, @pieces); no warnings 'uninitialized'; # we will be testing undef strings while (length($line)) { # This pattern is optimised to be stack conservative on older perls. # Do not refactor without being careful and testing it on very long strings. # See Perl bug #42980 for an example of a stack busting input. $line =~ s/^ (?: # double quoted string (") # $quote ((?>[^\\"]*(?:\\.[^\\"]*)*))" # $quoted | # --OR-- # singe quoted string (') # $quote ((?>[^\\']*(?:\\.[^\\']*)*))' # $quoted | # --OR-- # unquoted string ( # $unquoted (?:\\.|[^\\"'])*? ) # followed by ( # $delim \Z(?!\n) # EOL | # --OR-- (?-x:$delimiter) # delimiter | # --OR-- (?!^)(?=["']) # a quote ) )//xs or return; # extended layout my ($quote, $quoted, $unquoted, $delim) = (($1 ? ($1,$2) : ($3,$4)), $5, $6); return() unless( defined($quote) || length($unquoted) || length($delim)); if ($keep) { $quoted = "$quote$quoted$quote"; } else { $unquoted =~ s/\\(.)/$1/sg; if (defined $quote) { $quoted =~ s/\\(.)/$1/sg if ($quote eq '"'); #$quoted =~ s/\\([\\'])/$1/g if ( $PERL_SINGLE_QUOTE && $quote eq "'"); } } $word .= substr($line, 0, 0); # leave results tainted $word .= defined $quote ? $quoted : $unquoted; if (length($delim)) { push(@pieces, $word); push(@pieces, $delim) if ($keep eq 'delimiters'); undef $word; } if (!length($line)) { push(@pieces, $word); } } return(@pieces); } sub check_manifest { print STDOUT "Checking if your kit is complete...\n"; require ExtUtils::Manifest; # avoid warning $ExtUtils::Manifest::Quiet = $ExtUtils::Manifest::Quiet = 1; my(@missed) = ExtUtils::Manifest::manicheck(); if (@missed) { print "Warning: the following files are missing in your kit:\n"; print "\t", join "\n\t", @missed; print "\n"; print "Please inform the author.\n"; } else { print "Looks good\n"; } } sub parse_args{ my($self, @args) = @_; @args = map { Encode::decode(locale => $_) } @args if $CAN_DECODE; foreach (@args) { unless (m/(.*?)=(.*)/) { ++$Verbose if m/^verb/; next; } my($name, $value) = ($1, $2); if ($value =~ m/^~(\w+)?/) { # tilde with optional username $value =~ s [^~(\w*)] [$1 ? ((getpwnam($1))[7] || "~$1") : (getpwuid($>))[7] ]ex; } # Remember the original args passed it. It will be useful later. $self->{ARGS}{uc $name} = $self->{uc $name} = $value; } # catch old-style 'potential_libs' and inform user how to 'upgrade' if (defined $self->{potential_libs}){ my($msg)="'potential_libs' => '$self->{potential_libs}' should be"; if ($self->{potential_libs}){ print "$msg changed to:\n\t'LIBS' => ['$self->{potential_libs}']\n"; } else { print "$msg deleted.\n"; } $self->{LIBS} = [$self->{potential_libs}]; delete $self->{potential_libs}; } # catch old-style 'ARMAYBE' and inform user how to 'upgrade' if (defined $self->{ARMAYBE}){ my($armaybe) = $self->{ARMAYBE}; print "ARMAYBE => '$armaybe' should be changed to:\n", "\t'dynamic_lib' => {ARMAYBE => '$armaybe'}\n"; my(%dl) = %{$self->{dynamic_lib} || {}}; $self->{dynamic_lib} = { %dl, ARMAYBE => $armaybe}; delete $self->{ARMAYBE}; } if (defined $self->{LDTARGET}){ print "LDTARGET should be changed to LDFROM\n"; $self->{LDFROM} = $self->{LDTARGET}; delete $self->{LDTARGET}; } # Turn a DIR argument on the command line into an array if (defined $self->{DIR} && ref \$self->{DIR} eq 'SCALAR') { # So they can choose from the command line, which extensions they want # the grep enables them to have some colons too much in case they # have to build a list with the shell $self->{DIR} = [grep $_, split ":", $self->{DIR}]; } # Turn a INCLUDE_EXT argument on the command line into an array if (defined $self->{INCLUDE_EXT} && ref \$self->{INCLUDE_EXT} eq 'SCALAR') { $self->{INCLUDE_EXT} = [grep $_, split '\s+', $self->{INCLUDE_EXT}]; } # Turn a EXCLUDE_EXT argument on the command line into an array if (defined $self->{EXCLUDE_EXT} && ref \$self->{EXCLUDE_EXT} eq 'SCALAR') { $self->{EXCLUDE_EXT} = [grep $_, split '\s+', $self->{EXCLUDE_EXT}]; } foreach my $mmkey (sort keys %$self){ next if $mmkey eq 'ARGS'; print " $mmkey => ", neatvalue($self->{$mmkey}), "\n" if $Verbose; print "'$mmkey' is not a known MakeMaker parameter name.\n" unless exists $Recognized_Att_Keys{$mmkey}; } $| = 1 if $Verbose; } sub check_hints { my($self) = @_; # We allow extension-specific hints files. require File::Spec; my $curdir = File::Spec->curdir; my $hint_dir = File::Spec->catdir($curdir, "hints"); return unless -d $hint_dir; # First we look for the best hintsfile we have my($hint)="${^O}_$Config{osvers}"; $hint =~ s/\./_/g; $hint =~ s/_$//; return unless $hint; # Also try without trailing minor version numbers. while (1) { last if -f File::Spec->catfile($hint_dir, "$hint.pl"); # found } continue { last unless $hint =~ s/_[^_]*$//; # nothing to cut off } my $hint_file = File::Spec->catfile($hint_dir, "$hint.pl"); return unless -f $hint_file; # really there _run_hintfile($self, $hint_file); } sub _run_hintfile { my ($self, $hint_file) = @_; local($@, $!); print "Processing hints file $hint_file\n" if $Verbose; if(open(my $fh, '<', $hint_file)) { my $hints_content = do { local $/; <$fh> }; no strict; eval $hints_content; warn "Failed to run hint file $hint_file: $@" if $@; } else { warn "Could not open $hint_file for read: $!"; } } sub mv_all_methods { my($from,$to) = @_; local $SIG{__WARN__} = sub { # can't use 'no warnings redefined', 5.6 only warn @_ unless $_[0] =~ /^Subroutine .* redefined/ }; foreach my $method (@Overridable) { next unless defined &{"${from}::$method"}; no strict 'refs'; ## no critic *{"${to}::$method"} = \&{"${from}::$method"}; # If we delete a method, then it will be undefined and cannot # be called. But as long as we have Makefile.PLs that rely on # %MY:: being intact, we have to fill the hole with an # inheriting method: { package MY; my $super = "SUPER::".$method; *{$method} = sub { shift->$super(@_); }; } } } sub skipcheck { my($self) = shift; my($section) = @_; return 'skipped' if $section eq 'metafile' && $UNDER_CORE; if ($section eq 'dynamic') { print "Warning (non-fatal): Target 'dynamic' depends on targets ", "in skipped section 'dynamic_bs'\n" if $self->{SKIPHASH}{dynamic_bs} && $Verbose; print "Warning (non-fatal): Target 'dynamic' depends on targets ", "in skipped section 'dynamic_lib'\n" if $self->{SKIPHASH}{dynamic_lib} && $Verbose; } if ($section eq 'dynamic_lib') { print "Warning (non-fatal): Target '\$(INST_DYNAMIC)' depends on ", "targets in skipped section 'dynamic_bs'\n" if $self->{SKIPHASH}{dynamic_bs} && $Verbose; } if ($section eq 'static') { print "Warning (non-fatal): Target 'static' depends on targets ", "in skipped section 'static_lib'\n" if $self->{SKIPHASH}{static_lib} && $Verbose; } return 'skipped' if $self->{SKIPHASH}{$section}; return ''; } # returns filehandle, dies on fail. :raw so no :crlf sub open_for_writing { my ($file) = @_; open my $fh ,">", $file or die "Unable to open $file: $!"; my @layers = ':raw'; push @layers, join ' ', ':encoding(locale)' if $CAN_DECODE; binmode $fh, join ' ', @layers; $fh; } sub flush { my $self = shift; my $finalname = $self->{MAKEFILE}; printf STDOUT "Generating a %s %s\n", $self->make_type, $finalname if $Verbose || !$self->{PARENT}; print STDOUT "Writing $finalname for $self->{NAME}\n" if $Verbose || !$self->{PARENT}; unlink($finalname, "MakeMaker.tmp", $Is_VMS ? 'Descrip.MMS' : ()); write_file_via_tmp($finalname, $self->{RESULT}); # Write MYMETA.yml to communicate metadata up to the CPAN clients print STDOUT "Writing MYMETA.yml and MYMETA.json\n" if !$self->{NO_MYMETA} and $self->write_mymeta( $self->mymeta ); # save memory if ($self->{PARENT} && !$self->{_KEEP_AFTER_FLUSH}) { my %keep = map { ($_ => 1) } qw(NEEDS_LINKING HAS_LINK_CODE); delete $self->{$_} for grep !$keep{$_}, keys %$self; } system("$Config::Config{eunicefix} $finalname") if $Config::Config{eunicefix} ne ":"; return; } sub write_file_via_tmp { my ($finalname, $contents) = @_; my $fh = open_for_writing("MakeMaker.tmp"); die "write_file_via_tmp: 2nd arg must be ref" unless ref $contents; for my $chunk (@$contents) { my $to_write = $chunk; utf8::encode $to_write if !$CAN_DECODE && "$]" > 5.008; print $fh "$to_write\n" or die "Can't write to MakeMaker.tmp: $!"; } close $fh or die "Can't write to MakeMaker.tmp: $!"; _rename("MakeMaker.tmp", $finalname) or warn "rename MakeMaker.tmp => $finalname: $!"; chmod 0644, $finalname if !$Is_VMS; return; } # This is a rename for OS's where the target must be unlinked first. sub _rename { my($src, $dest) = @_; _unlink($dest); return rename $src, $dest; } # This is an unlink for OS's where the target must be writable first. sub _unlink { my @files = @_; chmod 0666, @files; return unlink @files; } # The following mkbootstrap() is only for installations that are calling # the pre-4.1 mkbootstrap() from their old Makefiles. This MakeMaker # writes Makefiles, that use ExtUtils::Mkbootstrap directly. sub mkbootstrap { die <<END; !!! Your Makefile has been built such a long time ago, !!! !!! that is unlikely to work with current MakeMaker. !!! !!! Please rebuild your Makefile !!! END } # Ditto for mksymlists() as of MakeMaker 5.17 sub mksymlists { die <<END; !!! Your Makefile has been built such a long time ago, !!! !!! that is unlikely to work with current MakeMaker. !!! !!! Please rebuild your Makefile !!! END } sub neatvalue { my($v) = @_; return "undef" unless defined $v; my($t) = ref $v; return "q[$v]" unless $t; if ($t eq 'ARRAY') { my(@m, @neat); push @m, "["; foreach my $elem (@$v) { push @neat, "q[$elem]"; } push @m, join ", ", @neat; push @m, "]"; return join "", @m; } return $v unless $t eq 'HASH'; my(@m, $key, $val); for my $key (sort keys %$v) { last unless defined $key; # cautious programming in case (undef,undef) is true push @m,"$key=>".neatvalue($v->{$key}); } return "{ ".join(', ',@m)." }"; } sub _find_magic_vstring { my $value = shift; return $value if $UNDER_CORE; my $tvalue = ''; require B; my $sv = B::svref_2object(\$value); my $magic = ref($sv) eq 'B::PVMG' ? $sv->MAGIC : undef; while ( $magic ) { if ( $magic->TYPE eq 'V' ) { $tvalue = $magic->PTR; $tvalue =~ s/^v?(.+)$/v$1/; last; } else { $magic = $magic->MOREMAGIC; } } return $tvalue; } sub selfdocument { my($self) = @_; my(@m); if ($Verbose){ push @m, "\n# Full list of MakeMaker attribute values:"; foreach my $key (sort keys %$self){ next if $key eq 'RESULT' || $key =~ /^[A-Z][a-z]/; my($v) = neatvalue($self->{$key}); $v =~ s/(CODE|HASH|ARRAY|SCALAR)\([\dxa-f]+\)/$1\(...\)/; $v =~ tr/\n/ /s; push @m, "# $key => $v"; } } # added here as selfdocument is not overridable push @m, <<'EOF'; # here so even if top_targets is overridden, these will still be defined # gmake will silently still work if any are .PHONY-ed but nmake won't EOF push @m, join "\n", map "$_ ::\n\t\$(NOECHO) \$(NOOP)\n", # config is so manifypods won't puke if no subdirs grep !$self->{SKIPHASH}{$_}, qw(static dynamic config); join "\n", @m; } 1; __END__ =head1 NAME ExtUtils::MakeMaker - Create a module Makefile =head1 SYNOPSIS use ExtUtils::MakeMaker; WriteMakefile( NAME => "Foo::Bar", VERSION_FROM => "lib/Foo/Bar.pm", ); =head1 DESCRIPTION This utility is designed to write a Makefile for an extension module from a Makefile.PL. It is based on the Makefile.SH model provided by Andy Dougherty and the perl5-porters. It splits the task of generating the Makefile into several subroutines that can be individually overridden. Each subroutine returns the text it wishes to have written to the Makefile. As there are various Make programs with incompatible syntax, which use operating system shells, again with incompatible syntax, it is important for users of this module to know which flavour of Make a Makefile has been written for so they'll use the correct one and won't have to face the possibly bewildering errors resulting from using the wrong one. On POSIX systems, that program will likely be GNU Make; on Microsoft Windows, it will be either Microsoft NMake, DMake or GNU Make. See the section on the L</"MAKE"> parameter for details. ExtUtils::MakeMaker (EUMM) is object oriented. Each directory below the current directory that contains a Makefile.PL is treated as a separate object. This makes it possible to write an unlimited number of Makefiles with a single invocation of WriteMakefile(). All inputs to WriteMakefile are Unicode characters, not just octets. EUMM seeks to handle all of these correctly. It is currently still not possible to portably use Unicode characters in module names, because this requires Perl to handle Unicode filenames, which is not yet the case on Windows. See L<ExtUtils::MakeMaker::FAQ> for details of the design and usage. =head2 How To Write A Makefile.PL See L<ExtUtils::MakeMaker::Tutorial>. The long answer is the rest of the manpage :-) =head2 Default Makefile Behaviour The generated Makefile enables the user of the extension to invoke perl Makefile.PL # optionally "perl Makefile.PL verbose" make make test # optionally set TEST_VERBOSE=1 make install # See below The Makefile to be produced may be altered by adding arguments of the form C<KEY=VALUE>. E.g. perl Makefile.PL INSTALL_BASE=~ Other interesting targets in the generated Makefile are make config # to check if the Makefile is up-to-date make clean # delete local temp files (Makefile gets renamed) make realclean # delete derived files (including ./blib) make ci # check in all the files in the MANIFEST file make dist # see below the Distribution Support section =head2 make test MakeMaker checks for the existence of a file named F<test.pl> in the current directory, and if it exists it executes the script with the proper set of perl C<-I> options. MakeMaker also checks for any files matching glob("t/*.t"). It will execute all matching files in alphabetical order via the L<Test::Harness> module with the C<-I> switches set correctly. You can also organize your tests within subdirectories in the F<t/> directory. To do so, use the F<test> directive in your I<Makefile.PL>. For example, if you had tests in: t/foo t/foo/bar You could tell make to run tests in both of those directories with the following directives: test => {TESTS => 't/*/*.t t/*/*/*.t'} test => {TESTS => 't/foo/*.t t/foo/bar/*.t'} The first will run all test files in all first-level subdirectories and all subdirectories they contain. The second will run tests in only the F<t/foo> and F<t/foo/bar>. If you'd like to see the raw output of your tests, set the C<TEST_VERBOSE> variable to true. make test TEST_VERBOSE=1 If you want to run particular test files, set the C<TEST_FILES> variable. It is possible to use globbing with this mechanism. make test TEST_FILES='t/foobar.t t/dagobah*.t' Windows users who are using C<nmake> should note that due to a bug in C<nmake>, when specifying C<TEST_FILES> you must use back-slashes instead of forward-slashes. nmake test TEST_FILES='t\foobar.t t\dagobah*.t' =head2 make testdb A useful variation of the above is the target C<testdb>. It runs the test under the Perl debugger (see L<perldebug>). If the file F<test.pl> exists in the current directory, it is used for the test. If you want to debug some other testfile, set the C<TEST_FILE> variable thusly: make testdb TEST_FILE=t/mytest.t By default the debugger is called using C<-d> option to perl. If you want to specify some other option, set the C<TESTDB_SW> variable: make testdb TESTDB_SW=-Dx =head2 make install make alone puts all relevant files into directories that are named by the macros INST_LIB, INST_ARCHLIB, INST_SCRIPT, INST_MAN1DIR and INST_MAN3DIR. All these default to something below ./blib if you are I<not> building below the perl source directory. If you I<are> building below the perl source, INST_LIB and INST_ARCHLIB default to ../../lib, and INST_SCRIPT is not defined. The I<install> target of the generated Makefile copies the files found below each of the INST_* directories to their INSTALL* counterparts. Which counterparts are chosen depends on the setting of INSTALLDIRS according to the following table: INSTALLDIRS set to perl site vendor PERLPREFIX SITEPREFIX VENDORPREFIX INST_ARCHLIB INSTALLARCHLIB INSTALLSITEARCH INSTALLVENDORARCH INST_LIB INSTALLPRIVLIB INSTALLSITELIB INSTALLVENDORLIB INST_BIN INSTALLBIN INSTALLSITEBIN INSTALLVENDORBIN INST_SCRIPT INSTALLSCRIPT INSTALLSITESCRIPT INSTALLVENDORSCRIPT INST_MAN1DIR INSTALLMAN1DIR INSTALLSITEMAN1DIR INSTALLVENDORMAN1DIR INST_MAN3DIR INSTALLMAN3DIR INSTALLSITEMAN3DIR INSTALLVENDORMAN3DIR The INSTALL... macros in turn default to their %Config ($Config{installprivlib}, $Config{installarchlib}, etc.) counterparts. You can check the values of these variables on your system with perl '-V:install.*' And to check the sequence in which the library directories are searched by perl, run perl -le 'print join $/, @INC' Sometimes older versions of the module you're installing live in other directories in @INC. Because Perl loads the first version of a module it finds, not the newest, you might accidentally get one of these older versions even after installing a brand new version. To delete I<all other versions of the module you're installing> (not simply older ones) set the C<UNINST> variable. make install UNINST=1 =head2 INSTALL_BASE INSTALL_BASE can be passed into Makefile.PL to change where your module will be installed. INSTALL_BASE is more like what everyone else calls "prefix" than PREFIX is. To have everything installed in your home directory, do the following. # Unix users, INSTALL_BASE=~ works fine perl Makefile.PL INSTALL_BASE=/path/to/your/home/dir Like PREFIX, it sets several INSTALL* attributes at once. Unlike PREFIX it is easy to predict where the module will end up. The installation pattern looks like this: INSTALLARCHLIB INSTALL_BASE/lib/perl5/$Config{archname} INSTALLPRIVLIB INSTALL_BASE/lib/perl5 INSTALLBIN INSTALL_BASE/bin INSTALLSCRIPT INSTALL_BASE/bin INSTALLMAN1DIR INSTALL_BASE/man/man1 INSTALLMAN3DIR INSTALL_BASE/man/man3 INSTALL_BASE in MakeMaker and C<--install_base> in Module::Build (as of 0.28) install to the same location. If you want MakeMaker and Module::Build to install to the same location simply set INSTALL_BASE and C<--install_base> to the same location. INSTALL_BASE was added in 6.31. =head2 PREFIX and LIB attribute PREFIX and LIB can be used to set several INSTALL* attributes in one go. Here's an example for installing into your home directory. # Unix users, PREFIX=~ works fine perl Makefile.PL PREFIX=/path/to/your/home/dir This will install all files in the module under your home directory, with man pages and libraries going into an appropriate place (usually ~/man and ~/lib). How the exact location is determined is complicated and depends on how your Perl was configured. INSTALL_BASE works more like what other build systems call "prefix" than PREFIX and we recommend you use that instead. Another way to specify many INSTALL directories with a single parameter is LIB. perl Makefile.PL LIB=~/lib This will install the module's architecture-independent files into ~/lib, the architecture-dependent files into ~/lib/$archname. Note, that in both cases the tilde expansion is done by MakeMaker, not by perl by default, nor by make. Conflicts between parameters LIB, PREFIX and the various INSTALL* arguments are resolved so that: =over 4 =item * setting LIB overrides any setting of INSTALLPRIVLIB, INSTALLARCHLIB, INSTALLSITELIB, INSTALLSITEARCH (and they are not affected by PREFIX); =item * without LIB, setting PREFIX replaces the initial C<$Config{prefix}> part of those INSTALL* arguments, even if the latter are explicitly set (but are set to still start with C<$Config{prefix}>). =back If the user has superuser privileges, and is not working on AFS or relatives, then the defaults for INSTALLPRIVLIB, INSTALLARCHLIB, INSTALLSCRIPT, etc. will be appropriate, and this incantation will be the best: perl Makefile.PL; make; make test make install make install by default writes some documentation of what has been done into the file C<$(INSTALLARCHLIB)/perllocal.pod>. This feature can be bypassed by calling make pure_install. =head2 AFS users will have to specify the installation directories as these most probably have changed since perl itself has been installed. They will have to do this by calling perl Makefile.PL INSTALLSITELIB=/afs/here/today \ INSTALLSCRIPT=/afs/there/now INSTALLMAN3DIR=/afs/for/manpages make Be careful to repeat this procedure every time you recompile an extension, unless you are sure the AFS installation directories are still valid. =head2 Static Linking of a new Perl Binary An extension that is built with the above steps is ready to use on systems supporting dynamic loading. On systems that do not support dynamic loading, any newly created extension has to be linked together with the available resources. MakeMaker supports the linking process by creating appropriate targets in the Makefile whenever an extension is built. You can invoke the corresponding section of the makefile with make perl That produces a new perl binary in the current directory with all extensions linked in that can be found in INST_ARCHLIB, SITELIBEXP, and PERL_ARCHLIB. To do that, MakeMaker writes a new Makefile, on UNIX, this is called F<Makefile.aperl> (may be system dependent). If you want to force the creation of a new perl, it is recommended that you delete this F<Makefile.aperl>, so the directories are searched through for linkable libraries again. The binary can be installed into the directory where perl normally resides on your machine with make inst_perl To produce a perl binary with a different name than C<perl>, either say perl Makefile.PL MAP_TARGET=myperl make myperl make inst_perl or say perl Makefile.PL make myperl MAP_TARGET=myperl make inst_perl MAP_TARGET=myperl In any case you will be prompted with the correct invocation of the C<inst_perl> target that installs the new binary into INSTALLBIN. make inst_perl by default writes some documentation of what has been done into the file C<$(INSTALLARCHLIB)/perllocal.pod>. This can be bypassed by calling make pure_inst_perl. Warning: the inst_perl: target will most probably overwrite your existing perl binary. Use with care! Sometimes you might want to build a statically linked perl although your system supports dynamic loading. In this case you may explicitly set the linktype with the invocation of the Makefile.PL or make: perl Makefile.PL LINKTYPE=static # recommended or make LINKTYPE=static # works on most systems =head2 Determination of Perl Library and Installation Locations MakeMaker needs to know, or to guess, where certain things are located. Especially INST_LIB and INST_ARCHLIB (where to put the files during the make(1) run), PERL_LIB and PERL_ARCHLIB (where to read existing modules from), and PERL_INC (header files and C<libperl*.*>). Extensions may be built either using the contents of the perl source directory tree or from the installed perl library. The recommended way is to build extensions after you have run 'make install' on perl itself. You can do that in any directory on your hard disk that is not below the perl source tree. The support for extensions below the ext directory of the perl distribution is only good for the standard extensions that come with perl. If an extension is being built below the C<ext/> directory of the perl source then MakeMaker will set PERL_SRC automatically (e.g., C<../..>). If PERL_SRC is defined and the extension is recognized as a standard extension, then other variables default to the following: PERL_INC = PERL_SRC PERL_LIB = PERL_SRC/lib PERL_ARCHLIB = PERL_SRC/lib INST_LIB = PERL_LIB INST_ARCHLIB = PERL_ARCHLIB If an extension is being built away from the perl source then MakeMaker will leave PERL_SRC undefined and default to using the installed copy of the perl library. The other variables default to the following: PERL_INC = $archlibexp/CORE PERL_LIB = $privlibexp PERL_ARCHLIB = $archlibexp INST_LIB = ./blib/lib INST_ARCHLIB = ./blib/arch If perl has not yet been installed then PERL_SRC can be defined on the command line as shown in the previous section. =head2 Which architecture dependent directory? If you don't want to keep the defaults for the INSTALL* macros, MakeMaker helps you to minimize the typing needed: the usual relationship between INSTALLPRIVLIB and INSTALLARCHLIB is determined by Configure at perl compilation time. MakeMaker supports the user who sets INSTALLPRIVLIB. If INSTALLPRIVLIB is set, but INSTALLARCHLIB not, then MakeMaker defaults the latter to be the same subdirectory of INSTALLPRIVLIB as Configure decided for the counterparts in %Config, otherwise it defaults to INSTALLPRIVLIB. The same relationship holds for INSTALLSITELIB and INSTALLSITEARCH. MakeMaker gives you much more freedom than needed to configure internal variables and get different results. It is worth mentioning that make(1) also lets you configure most of the variables that are used in the Makefile. But in the majority of situations this will not be necessary, and should only be done if the author of a package recommends it (or you know what you're doing). =head2 Using Attributes and Parameters The following attributes may be specified as arguments to WriteMakefile() or as NAME=VALUE pairs on the command line. Attributes that became available with later versions of MakeMaker are indicated. In order to maintain portability of attributes with older versions of MakeMaker you may want to use L<App::EUMM::Upgrade> with your C<Makefile.PL>. =over 2 =item ABSTRACT One line description of the module. Will be included in PPD file. =item ABSTRACT_FROM Name of the file that contains the package description. MakeMaker looks for a line in the POD matching /^($package\s-\s)(.*)/. This is typically the first line in the "=head1 NAME" section. $2 becomes the abstract. =item AUTHOR Array of strings containing name (and email address) of package author(s). Is used in CPAN Meta files (META.yml or META.json) and PPD (Perl Package Description) files for PPM (Perl Package Manager). =item BINARY_LOCATION Used when creating PPD files for binary packages. It can be set to a full or relative path or URL to the binary archive for a particular architecture. For example: perl Makefile.PL BINARY_LOCATION=x86/Agent.tar.gz builds a PPD package that references a binary of the C<Agent> package, located in the C<x86> directory relative to the PPD itself. =item BUILD_REQUIRES Available in version 6.55_03 and above. A hash of modules that are needed to build your module but not run it. This will go into the C<build_requires> field of your F<META.yml> and the C<build> of the C<prereqs> field of your F<META.json>. Defaults to C<<< { "ExtUtils::MakeMaker" => 0 } >>> if this attribute is not specified. The format is the same as PREREQ_PM. =item C Ref to array of *.c file names. Initialised from a directory scan and the values portion of the XS attribute hash. This is not currently used by MakeMaker but may be handy in Makefile.PLs. =item CCFLAGS String that will be included in the compiler call command line between the arguments INC and OPTIMIZE. The default value is taken from $Config{ccflags}. When overriding CCFLAGS, make sure to include the $Config{ccflags} settings to avoid binary incompatibilities. =item CONFIG Arrayref. E.g. [qw(archname manext)] defines ARCHNAME & MANEXT from config.sh. MakeMaker will add to CONFIG the following values anyway: ar cc cccdlflags ccdlflags dlext dlsrc ld lddlflags ldflags libc lib_ext obj_ext ranlib sitelibexp sitearchexp so =item CONFIGURE CODE reference. The subroutine should return a hash reference. The hash may contain further attributes, e.g. {LIBS =E<gt> ...}, that have to be determined by some evaluation method. =item CONFIGURE_REQUIRES Available in version 6.52 and above. A hash of modules that are required to run Makefile.PL itself, but not to run your distribution. This will go into the C<configure_requires> field of your F<META.yml> and the C<configure> of the C<prereqs> field of your F<META.json>. Defaults to C<<< { "ExtUtils::MakeMaker" => 0 } >>> if this attribute is not specified. The format is the same as PREREQ_PM. =item DEFINE Something like C<"-DHAVE_UNISTD_H"> =item DESTDIR This is the root directory into which the code will be installed. It I<prepends itself to the normal prefix>. For example, if your code would normally go into F</usr/local/lib/perl> you could set DESTDIR=~/tmp/ and installation would go into F<~/tmp/usr/local/lib/perl>. This is primarily of use for people who repackage Perl modules. NOTE: Due to the nature of make, it is important that you put the trailing slash on your DESTDIR. F<~/tmp/> not F<~/tmp>. =item DIR Ref to array of subdirectories containing Makefile.PLs e.g. ['sdbm'] in ext/SDBM_File =item DISTNAME A safe filename for the package. Defaults to NAME below but with :: replaced with -. For example, Foo::Bar becomes Foo-Bar. =item DISTVNAME Your name for distributing the package with the version number included. This is used by 'make dist' to name the resulting archive file. Defaults to DISTNAME-VERSION. For example, version 1.04 of Foo::Bar becomes Foo-Bar-1.04. On some OS's where . has special meaning VERSION_SYM may be used in place of VERSION. =item DLEXT Specifies the extension of the module's loadable object. For example: DLEXT => 'unusual_ext', # Default value is $Config{so} NOTE: When using this option to alter the extension of a module's loadable object, it is also necessary that the module's pm file specifies the same change: local $DynaLoader::dl_dlext = 'unusual_ext'; =item DL_FUNCS Hashref of symbol names for routines to be made available as universal symbols. Each key/value pair consists of the package name and an array of routine names in that package. Used only under AIX, OS/2, VMS and Win32 at present. The routine names supplied will be expanded in the same way as XSUB names are expanded by the XS() macro. Defaults to {"$(NAME)" => ["boot_$(NAME)" ] } e.g. {"RPC" => [qw( boot_rpcb rpcb_gettime getnetconfigent )], "NetconfigPtr" => [ 'DESTROY'] } Please see the L<ExtUtils::Mksymlists> documentation for more information about the DL_FUNCS, DL_VARS and FUNCLIST attributes. =item DL_VARS Array of symbol names for variables to be made available as universal symbols. Used only under AIX, OS/2, VMS and Win32 at present. Defaults to []. (e.g. [ qw(Foo_version Foo_numstreams Foo_tree ) ]) =item EXCLUDE_EXT Array of extension names to exclude when doing a static build. This is ignored if INCLUDE_EXT is present. Consult INCLUDE_EXT for more details. (e.g. [ qw( Socket POSIX ) ] ) This attribute may be most useful when specified as a string on the command line: perl Makefile.PL EXCLUDE_EXT='Socket Safe' =item EXE_FILES Ref to array of executable files. The files will be copied to the INST_SCRIPT directory. Make realclean will delete them from there again. If your executables start with something like #!perl or #!/usr/bin/perl MakeMaker will change this to the path of the perl 'Makefile.PL' was invoked with so the programs will be sure to run properly even if perl is not in /usr/bin/perl. =item FIRST_MAKEFILE The name of the Makefile to be produced. This is used for the second Makefile that will be produced for the MAP_TARGET. Defaults to 'Makefile' or 'Descrip.MMS' on VMS. (Note: we couldn't use MAKEFILE because dmake uses this for something else). =item FULLPERL Perl binary able to run this extension, load XS modules, etc... =item FULLPERLRUN Like PERLRUN, except it uses FULLPERL. =item FULLPERLRUNINST Like PERLRUNINST, except it uses FULLPERL. =item FUNCLIST This provides an alternate means to specify function names to be exported from the extension. Its value is a reference to an array of function names to be exported by the extension. These names are passed through unaltered to the linker options file. =item H Ref to array of *.h file names. Similar to C. =item IMPORTS This attribute is used to specify names to be imported into the extension. Takes a hash ref. It is only used on OS/2 and Win32. =item INC Include file dirs eg: C<"-I/usr/5include -I/path/to/inc"> =item INCLUDE_EXT Array of extension names to be included when doing a static build. MakeMaker will normally build with all of the installed extensions when doing a static build, and that is usually the desired behavior. If INCLUDE_EXT is present then MakeMaker will build only with those extensions which are explicitly mentioned. (e.g. [ qw( Socket POSIX ) ]) It is not necessary to mention DynaLoader or the current extension when filling in INCLUDE_EXT. If the INCLUDE_EXT is mentioned but is empty then only DynaLoader and the current extension will be included in the build. This attribute may be most useful when specified as a string on the command line: perl Makefile.PL INCLUDE_EXT='POSIX Socket Devel::Peek' =item INSTALLARCHLIB Used by 'make install', which copies files from INST_ARCHLIB to this directory if INSTALLDIRS is set to perl. =item INSTALLBIN Directory to install binary files (e.g. tkperl) into if INSTALLDIRS=perl. =item INSTALLDIRS Determines which of the sets of installation directories to choose: perl, site or vendor. Defaults to site. =item INSTALLMAN1DIR =item INSTALLMAN3DIR These directories get the man pages at 'make install' time if INSTALLDIRS=perl. Defaults to $Config{installman*dir}. If set to 'none', no man pages will be installed. =item INSTALLPRIVLIB Used by 'make install', which copies files from INST_LIB to this directory if INSTALLDIRS is set to perl. Defaults to $Config{installprivlib}. =item INSTALLSCRIPT Available in version 6.30_02 and above. Used by 'make install' which copies files from INST_SCRIPT to this directory if INSTALLDIRS=perl. =item INSTALLSITEARCH Used by 'make install', which copies files from INST_ARCHLIB to this directory if INSTALLDIRS is set to site (default). =item INSTALLSITEBIN Used by 'make install', which copies files from INST_BIN to this directory if INSTALLDIRS is set to site (default). =item INSTALLSITELIB Used by 'make install', which copies files from INST_LIB to this directory if INSTALLDIRS is set to site (default). =item INSTALLSITEMAN1DIR =item INSTALLSITEMAN3DIR These directories get the man pages at 'make install' time if INSTALLDIRS=site (default). Defaults to $(SITEPREFIX)/man/man$(MAN*EXT). If set to 'none', no man pages will be installed. =item INSTALLSITESCRIPT Used by 'make install' which copies files from INST_SCRIPT to this directory if INSTALLDIRS is set to site (default). =item INSTALLVENDORARCH Used by 'make install', which copies files from INST_ARCHLIB to this directory if INSTALLDIRS is set to vendor. Note that if you do not set this, the value of INSTALLVENDORLIB will be used, which is probably not what you want. =item INSTALLVENDORBIN Used by 'make install', which copies files from INST_BIN to this directory if INSTALLDIRS is set to vendor. =item INSTALLVENDORLIB Used by 'make install', which copies files from INST_LIB to this directory if INSTALLDIRS is set to vendor. =item INSTALLVENDORMAN1DIR =item INSTALLVENDORMAN3DIR These directories get the man pages at 'make install' time if INSTALLDIRS=vendor. Defaults to $(VENDORPREFIX)/man/man$(MAN*EXT). If set to 'none', no man pages will be installed. =item INSTALLVENDORSCRIPT Available in version 6.30_02 and above. Used by 'make install' which copies files from INST_SCRIPT to this directory if INSTALLDIRS is set to vendor. =item INST_ARCHLIB Same as INST_LIB for architecture dependent files. =item INST_BIN Directory to put real binary files during 'make'. These will be copied to INSTALLBIN during 'make install' =item INST_LIB Directory where we put library files of this extension while building it. =item INST_MAN1DIR Directory to hold the man pages at 'make' time =item INST_MAN3DIR Directory to hold the man pages at 'make' time =item INST_SCRIPT Directory where executable files should be installed during 'make'. Defaults to "./blib/script", just to have a dummy location during testing. make install will copy the files in INST_SCRIPT to INSTALLSCRIPT. =item LD Program to be used to link libraries for dynamic loading. Defaults to $Config{ld}. =item LDDLFLAGS Any special flags that might need to be passed to ld to create a shared library suitable for dynamic loading. It is up to the makefile to use it. (See L<Config/lddlflags>) Defaults to $Config{lddlflags}. =item LDFROM Defaults to "$(OBJECT)" and is used in the ld command to specify what files to link/load from (also see dynamic_lib below for how to specify ld flags) =item LIB LIB should only be set at C<perl Makefile.PL> time but is allowed as a MakeMaker argument. It has the effect of setting both INSTALLPRIVLIB and INSTALLSITELIB to that value regardless any explicit setting of those arguments (or of PREFIX). INSTALLARCHLIB and INSTALLSITEARCH are set to the corresponding architecture subdirectory. =item LIBPERL_A The filename of the perllibrary that will be used together with this extension. Defaults to libperl.a. =item LIBS An anonymous array of alternative library specifications to be searched for (in order) until at least one library is found. E.g. 'LIBS' => ["-lgdbm", "-ldbm -lfoo", "-L/path -ldbm.nfs"] Mind, that any element of the array contains a complete set of arguments for the ld command. So do not specify 'LIBS' => ["-ltcl", "-ltk", "-lX11"] See ODBM_File/Makefile.PL for an example, where an array is needed. If you specify a scalar as in 'LIBS' => "-ltcl -ltk -lX11" MakeMaker will turn it into an array with one element. =item LICENSE Available in version 6.31 and above. The licensing terms of your distribution. Generally it's "perl_5" for the same license as Perl itself. See L<CPAN::Meta::Spec> for the list of options. Defaults to "unknown". =item LINKTYPE 'static' or 'dynamic' (default unless usedl=undef in config.sh). Should only be used to force static linking (also see linkext below). =item MAGICXS Available in version 6.8305 and above. When this is set to C<1>, C<OBJECT> will be automagically derived from C<O_FILES>. =item MAKE Available in version 6.30_01 and above. Variant of make you intend to run the generated Makefile with. This parameter lets Makefile.PL know what make quirks to account for when generating the Makefile. MakeMaker also honors the MAKE environment variable. This parameter takes precedence. Currently the only significant values are 'dmake' and 'nmake' for Windows users, instructing MakeMaker to generate a Makefile in the flavour of DMake ("Dennis Vadura's Make") or Microsoft NMake respectively. Defaults to $Config{make}, which may go looking for a Make program in your environment. How are you supposed to know what flavour of Make a Makefile has been generated for if you didn't specify a value explicitly? Search the generated Makefile for the definition of the MAKE variable, which is used to recursively invoke the Make utility. That will tell you what Make you're supposed to invoke the Makefile with. =item MAKEAPERL Boolean which tells MakeMaker that it should include the rules to make a perl. This is handled automatically as a switch by MakeMaker. The user normally does not need it. =item MAKEFILE_OLD When 'make clean' or similar is run, the $(FIRST_MAKEFILE) will be backed up at this location. Defaults to $(FIRST_MAKEFILE).old or $(FIRST_MAKEFILE)_old on VMS. =item MAN1PODS Hashref of pod-containing files. MakeMaker will default this to all EXE_FILES files that include POD directives. The files listed here will be converted to man pages and installed as was requested at Configure time. This hash should map POD files (or scripts containing POD) to the man file names under the C<blib/man1/> directory, as in the following example: MAN1PODS => { 'doc/command.pod' => 'blib/man1/command.1', 'scripts/script.pl' => 'blib/man1/script.1', } =item MAN3PODS Hashref that assigns to *.pm and *.pod files the files into which the manpages are to be written. MakeMaker parses all *.pod and *.pm files for POD directives. Files that contain POD will be the default keys of the MAN3PODS hashref. These will then be converted to man pages during C<make> and will be installed during C<make install>. Example similar to MAN1PODS. =item MAP_TARGET If it is intended that a new perl binary be produced, this variable may hold a name for that binary. Defaults to perl =item META_ADD =item META_MERGE Available in version 6.46 and above. A hashref of items to add to the CPAN Meta file (F<META.yml> or F<META.json>). They differ in how they behave if they have the same key as the default metadata. META_ADD will override the default value with its own. META_MERGE will merge its value with the default. Unless you want to override the defaults, prefer META_MERGE so as to get the advantage of any future defaults. Where prereqs are concerned, if META_MERGE is used, prerequisites are merged with their counterpart C<WriteMakefile()> argument (PREREQ_PM is merged into {prereqs}{runtime}{requires}, BUILD_REQUIRES into C<{prereqs}{build}{requires}>, CONFIGURE_REQUIRES into C<{prereqs}{configure}{requires}>, and TEST_REQUIRES into C<{prereqs}{test}{requires})>. When prereqs are specified with META_ADD, the only prerequisites added to the file come from the metadata, not C<WriteMakefile()> arguments. Note that these configuration options are only used for generating F<META.yml> and F<META.json> -- they are NOT used for F<MYMETA.yml> and F<MYMETA.json>. Therefore data in these fields should NOT be used for dynamic (user-side) configuration. By default CPAN Meta specification C<1.4> is used. In order to use CPAN Meta specification C<2.0>, indicate with C<meta-spec> the version you want to use. META_MERGE => { "meta-spec" => { version => 2 }, resources => { repository => { type => 'git', url => 'git://github.com/Perl-Toolchain-Gang/ExtUtils-MakeMaker.git', web => 'https://github.com/Perl-Toolchain-Gang/ExtUtils-MakeMaker', }, }, }, =item MIN_PERL_VERSION Available in version 6.48 and above. The minimum required version of Perl for this distribution. Either the 5.006001 or the 5.6.1 format is acceptable. =item MYEXTLIB If the extension links to a library that it builds, set this to the name of the library (see SDBM_File) =item NAME The package representing the distribution. For example, C<Test::More> or C<ExtUtils::MakeMaker>. It will be used to derive information about the distribution such as the L</DISTNAME>, installation locations within the Perl library and where XS files will be looked for by default (see L</XS>). C<NAME> I<must> be a valid Perl package name and it I<must> have an associated C<.pm> file. For example, C<Foo::Bar> is a valid C<NAME> and there must exist F<Foo/Bar.pm>. Any XS code should be in F<Bar.xs> unless stated otherwise. Your distribution B<must> have a C<NAME>. =item NEEDS_LINKING MakeMaker will figure out if an extension contains linkable code anywhere down the directory tree, and will set this variable accordingly, but you can speed it up a very little bit if you define this boolean variable yourself. =item NOECHO Command so make does not print the literal commands it's running. By setting it to an empty string you can generate a Makefile that prints all commands. Mainly used in debugging MakeMaker itself. Defaults to C<@>. =item NORECURS Boolean. Attribute to inhibit descending into subdirectories. =item NO_META When true, suppresses the generation and addition to the MANIFEST of the META.yml and META.json module meta-data files during 'make distdir'. Defaults to false. =item NO_MYMETA Available in version 6.57_02 and above. When true, suppresses the generation of MYMETA.yml and MYMETA.json module meta-data files during 'perl Makefile.PL'. Defaults to false. =item NO_PACKLIST Available in version 6.7501 and above. When true, suppresses the writing of C<packlist> files for installs. Defaults to false. =item NO_PERLLOCAL Available in version 6.7501 and above. When true, suppresses the appending of installations to C<perllocal>. Defaults to false. =item NO_VC In general, any generated Makefile checks for the current version of MakeMaker and the version the Makefile was built under. If NO_VC is set, the version check is neglected. Do not write this into your Makefile.PL, use it interactively instead. =item OBJECT List of object files, defaults to '$(BASEEXT)$(OBJ_EXT)', but can be a long string or an array containing all object files, e.g. "tkpBind.o tkpButton.o tkpCanvas.o" or ["tkpBind.o", "tkpButton.o", "tkpCanvas.o"] (Where BASEEXT is the last component of NAME, and OBJ_EXT is $Config{obj_ext}.) =item OPTIMIZE Defaults to C<-O>. Set it to C<-g> to turn debugging on. The flag is passed to subdirectory makes. =item PERL Perl binary for tasks that can be done by miniperl. If it contains spaces or other shell metacharacters, it needs to be quoted in a way that protects them, since this value is intended to be inserted in a shell command line in the Makefile. E.g.: # Perl executable lives in "C:/Program Files/Perl/bin" # Normally you don't need to set this yourself! $ perl Makefile.PL PERL='"C:/Program Files/Perl/bin/perl.exe" -w' =item PERL_CORE Set only when MakeMaker is building the extensions of the Perl core distribution. =item PERLMAINCC The call to the program that is able to compile perlmain.c. Defaults to $(CC). =item PERL_ARCHLIB Same as for PERL_LIB, but for architecture dependent files. Used only when MakeMaker is building the extensions of the Perl core distribution (because normally $(PERL_ARCHLIB) is automatically in @INC, and adding it would get in the way of PERL5LIB). =item PERL_LIB Directory containing the Perl library to use. Used only when MakeMaker is building the extensions of the Perl core distribution (because normally $(PERL_LIB) is automatically in @INC, and adding it would get in the way of PERL5LIB). =item PERL_MALLOC_OK defaults to 0. Should be set to TRUE if the extension can work with the memory allocation routines substituted by the Perl malloc() subsystem. This should be applicable to most extensions with exceptions of those =over 4 =item * with bugs in memory allocations which are caught by Perl's malloc(); =item * which interact with the memory allocator in other ways than via malloc(), realloc(), free(), calloc(), sbrk() and brk(); =item * which rely on special alignment which is not provided by Perl's malloc(). =back B<NOTE.> Neglecting to set this flag in I<any one> of the loaded extension nullifies many advantages of Perl's malloc(), such as better usage of system resources, error detection, memory usage reporting, catchable failure of memory allocations, etc. =item PERLPREFIX Directory under which core modules are to be installed. Defaults to $Config{installprefixexp}, falling back to $Config{installprefix}, $Config{prefixexp} or $Config{prefix} should $Config{installprefixexp} not exist. Overridden by PREFIX. =item PERLRUN Use this instead of $(PERL) when you wish to run perl. It will set up extra necessary flags for you. =item PERLRUNINST Use this instead of $(PERL) when you wish to run perl to work with modules. It will add things like -I$(INST_ARCH) and other necessary flags so perl can see the modules you're about to install. =item PERL_SRC Directory containing the Perl source code (use of this should be avoided, it may be undefined) =item PERM_DIR Available in version 6.51_01 and above. Desired permission for directories. Defaults to C<755>. =item PERM_RW Desired permission for read/writable files. Defaults to C<644>. =item PERM_RWX Desired permission for executable files. Defaults to C<755>. =item PL_FILES MakeMaker can run programs to generate files for you at build time. By default any file named *.PL (except Makefile.PL and Build.PL) in the top level directory will be assumed to be a Perl program and run passing its own basename in as an argument. This basename is actually a build target, and there is an intention, but not a requirement, that the *.PL file make the file passed to to as an argument. For example... perl foo.PL foo This behavior can be overridden by supplying your own set of files to search. PL_FILES accepts a hash ref, the key being the file to run and the value is passed in as the first argument when the PL file is run. PL_FILES => {'bin/foobar.PL' => 'bin/foobar'} PL_FILES => {'foo.PL' => 'foo.c'} Would run bin/foobar.PL like this: perl bin/foobar.PL bin/foobar If multiple files from one program are desired an array ref can be used. PL_FILES => {'bin/foobar.PL' => [qw(bin/foobar1 bin/foobar2)]} In this case the program will be run multiple times using each target file. perl bin/foobar.PL bin/foobar1 perl bin/foobar.PL bin/foobar2 If an output file depends on extra input files beside the script itself, a hash ref can be used in version 7.36 and above: PL_FILES => { 'foo.PL' => { 'foo.out' => 'foo.in', 'bar.out' => [qw(bar1.in bar2.in)], } In this case the extra input files will be passed to the program after the target file: perl foo.PL foo.out foo.in perl foo.PL bar.out bar1.in bar2.in PL files are normally run B<after> pm_to_blib and include INST_LIB and INST_ARCH in their C<@INC>, so the just built modules can be accessed... unless the PL file is making a module (or anything else in PM) in which case it is run B<before> pm_to_blib and does not include INST_LIB and INST_ARCH in its C<@INC>. This apparently odd behavior is there for backwards compatibility (and it's somewhat DWIM). The argument passed to the .PL is set up as a target to build in the Makefile. In other sections such as C<postamble> you can specify a dependency on the filename/argument that the .PL is supposed (or will have, now that that is is a dependency) to generate. Note the file to be generated will still be generated and the .PL will still run even without an explicit dependency created by you, since the C<all> target still depends on running all eligible to run.PL files. =item PM Hashref of .pm files and *.pl files to be installed. e.g. {'name_of_file.pm' => '$(INST_LIB)/install_as.pm'} By default this will include *.pm and *.pl and the files found in the PMLIBDIRS directories. Defining PM in the Makefile.PL will override PMLIBDIRS. =item PMLIBDIRS Ref to array of subdirectories containing library files. Defaults to [ 'lib', $(BASEEXT) ]. The directories will be scanned and I<any> files they contain will be installed in the corresponding location in the library. A libscan() method can be used to alter the behaviour. Defining PM in the Makefile.PL will override PMLIBDIRS. (Where BASEEXT is the last component of NAME.) =item PM_FILTER A filter program, in the traditional Unix sense (input from stdin, output to stdout) that is passed on each .pm file during the build (in the pm_to_blib() phase). It is empty by default, meaning no filtering is done. You could use: PM_FILTER => 'perl -ne "print unless /^\\#/"', to remove all the leading comments on the fly during the build. In order to be as portable as possible, please consider using a Perl one-liner rather than Unix (or other) utilities, as above. The # is escaped for the Makefile, since what is going to be generated will then be: PM_FILTER = perl -ne "print unless /^\#/" Without the \ before the #, we'd have the start of a Makefile comment, and the macro would be incorrectly defined. You will almost certainly be better off using the C<PL_FILES> system, instead. See above, or the L<ExtUtils::MakeMaker::FAQ> entry. =item POLLUTE Release 5.005 grandfathered old global symbol names by providing preprocessor macros for extension source compatibility. As of release 5.6, these preprocessor definitions are not available by default. The POLLUTE flag specifies that the old names should still be defined: perl Makefile.PL POLLUTE=1 Please inform the module author if this is necessary to successfully install a module under 5.6 or later. =item PPM_INSTALL_EXEC Name of the executable used to run C<PPM_INSTALL_SCRIPT> below. (e.g. perl) =item PPM_INSTALL_SCRIPT Name of the script that gets executed by the Perl Package Manager after the installation of a package. =item PPM_UNINSTALL_EXEC Available in version 6.8502 and above. Name of the executable used to run C<PPM_UNINSTALL_SCRIPT> below. (e.g. perl) =item PPM_UNINSTALL_SCRIPT Available in version 6.8502 and above. Name of the script that gets executed by the Perl Package Manager before the removal of a package. =item PREFIX This overrides all the default install locations. Man pages, libraries, scripts, etc... MakeMaker will try to make an educated guess about where to place things under the new PREFIX based on your Config defaults. Failing that, it will fall back to a structure which should be sensible for your platform. If you specify LIB or any INSTALL* variables they will not be affected by the PREFIX. =item PREREQ_FATAL Bool. If this parameter is true, failing to have the required modules (or the right versions thereof) will be fatal. C<perl Makefile.PL> will C<die> instead of simply informing the user of the missing dependencies. It is I<extremely> rare to have to use C<PREREQ_FATAL>. Its use by module authors is I<strongly discouraged> and should never be used lightly. For dependencies that are required in order to run C<Makefile.PL>, see C<CONFIGURE_REQUIRES>. Module installation tools have ways of resolving unmet dependencies but to do that they need a F<Makefile>. Using C<PREREQ_FATAL> breaks this. That's bad. Assuming you have good test coverage, your tests should fail with missing dependencies informing the user more strongly that something is wrong. You can write a F<t/00compile.t> test which will simply check that your code compiles and stop "make test" prematurely if it doesn't. See L<Test::More/BAIL_OUT> for more details. =item PREREQ_PM A hash of modules that are needed to run your module. The keys are the module names ie. Test::More, and the minimum version is the value. If the required version number is 0 any version will do. The versions given may be a Perl v-string (see L<version>) or a range (see L<CPAN::Meta::Requirements>). This will go into the C<requires> field of your F<META.yml> and the C<runtime> of the C<prereqs> field of your F<META.json>. PREREQ_PM => { # Require Test::More at least 0.47 "Test::More" => "0.47", # Require any version of Acme::Buffy "Acme::Buffy" => 0, } =item PREREQ_PRINT Bool. If this parameter is true, the prerequisites will be printed to stdout and MakeMaker will exit. The output format is an evalable hash ref. $PREREQ_PM = { 'A::B' => Vers1, 'C::D' => Vers2, ... }; If a distribution defines a minimal required perl version, this is added to the output as an additional line of the form: $MIN_PERL_VERSION = '5.008001'; If BUILD_REQUIRES is not empty, it will be dumped as $BUILD_REQUIRES hashref. =item PRINT_PREREQ RedHatism for C<PREREQ_PRINT>. The output format is different, though: perl(A::B)>=Vers1 perl(C::D)>=Vers2 ... A minimal required perl version, if present, will look like this: perl(perl)>=5.008001 =item SITEPREFIX Like PERLPREFIX, but only for the site install locations. Defaults to $Config{siteprefixexp}. Perls prior to 5.6.0 didn't have an explicit siteprefix in the Config. In those cases $Config{installprefix} will be used. Overridable by PREFIX =item SIGN Available in version 6.18 and above. When true, perform the generation and addition to the MANIFEST of the SIGNATURE file in the distdir during 'make distdir', via 'cpansign -s'. Note that you need to install the Module::Signature module to perform this operation. Defaults to false. =item SKIP Arrayref. E.g. [qw(name1 name2)] skip (do not write) sections of the Makefile. Caution! Do not use the SKIP attribute for the negligible speedup. It may seriously damage the resulting Makefile. Only use it if you really need it. =item TEST_REQUIRES Available in version 6.64 and above. A hash of modules that are needed to test your module but not run or build it. This will go into the C<build_requires> field of your F<META.yml> and the C<test> of the C<prereqs> field of your F<META.json>. The format is the same as PREREQ_PM. =item TYPEMAPS Ref to array of typemap file names. Use this when the typemaps are in some directory other than the current directory or when they are not named B<typemap>. The last typemap in the list takes precedence. A typemap in the current directory has highest precedence, even if it isn't listed in TYPEMAPS. The default system typemap has lowest precedence. =item VENDORPREFIX Like PERLPREFIX, but only for the vendor install locations. Defaults to $Config{vendorprefixexp}. Overridable by PREFIX =item VERBINST If true, make install will be verbose =item VERSION Your version number for distributing the package. This defaults to 0.1. =item VERSION_FROM Instead of specifying the VERSION in the Makefile.PL you can let MakeMaker parse a file to determine the version number. The parsing routine requires that the file named by VERSION_FROM contains one single line to compute the version number. The first line in the file that contains something like a $VERSION assignment or C<package Name VERSION> will be used. The following lines will be parsed o.k.: # Good package Foo::Bar 1.23; # 1.23 $VERSION = '1.00'; # 1.00 *VERSION = \'1.01'; # 1.01 ($VERSION) = q$Revision$ =~ /(\d+)/g; # The digits in $Revision$ $FOO::VERSION = '1.10'; # 1.10 *FOO::VERSION = \'1.11'; # 1.11 but these will fail: # Bad my $VERSION = '1.01'; local $VERSION = '1.02'; local $FOO::VERSION = '1.30'; (Putting C<my> or C<local> on the preceding line will work o.k.) "Version strings" are incompatible and should not be used. # Bad $VERSION = 1.2.3; $VERSION = v1.2.3; L<version> objects are fine. As of MakeMaker 6.35 version.pm will be automatically loaded, but you must declare the dependency on version.pm. For compatibility with older MakeMaker you should load on the same line as $VERSION is declared. # All on one line use version; our $VERSION = qv(1.2.3); The file named in VERSION_FROM is not added as a dependency to Makefile. This is not really correct, but it would be a major pain during development to have to rewrite the Makefile for any smallish change in that file. If you want to make sure that the Makefile contains the correct VERSION macro after any change of the file, you would have to do something like depend => { Makefile => '$(VERSION_FROM)' } See attribute C<depend> below. =item VERSION_SYM A sanitized VERSION with . replaced by _. For places where . has special meaning (some filesystems, RCS labels, etc...) =item XS Hashref of .xs files. MakeMaker will default this. e.g. {'name_of_file.xs' => 'name_of_file.c'} The .c files will automatically be included in the list of files deleted by a make clean. =item XSBUILD Available in version 7.12 and above. Hashref with options controlling the operation of C<XSMULTI>: { xs => { all => { # options applying to all .xs files for this distribution }, 'lib/Class/Name/File' => { # specifically for this file DEFINE => '-Dfunktastic', # defines for only this file INC => "-I$funkyliblocation", # include flags for only this file # OBJECT => 'lib/Class/Name/File$(OBJ_EXT)', # default LDFROM => "lib/Class/Name/File\$(OBJ_EXT) $otherfile\$(OBJ_EXT)", # what's linked }, }, } Note C<xs> is the file-extension. More possibilities may arise in the future. Note that object names are specified without their XS extension. C<LDFROM> defaults to the same as C<OBJECT>. C<OBJECT> defaults to, for C<XSMULTI>, just the XS filename with the extension replaced with the compiler-specific object-file extension. The distinction between C<OBJECT> and C<LDFROM>: C<OBJECT> is the make target, so make will try to build it. However, C<LDFROM> is what will actually be linked together to make the shared object or static library (SO/SL), so if you override it, make sure it includes what you want to make the final SO/SL, almost certainly including the XS basename with C<$(OBJ_EXT)> appended. =item XSMULTI Available in version 7.12 and above. When this is set to C<1>, multiple XS files may be placed under F<lib/> next to their corresponding C<*.pm> files (this is essential for compiling with the correct C<VERSION> values). This feature should be considered experimental, and details of it may change. This feature was inspired by, and small portions of code copied from, L<ExtUtils::MakeMaker::BigHelper>. Hopefully this feature will render that module mainly obsolete. =item XSOPT String of options to pass to xsubpp. This might include C<-C++> or C<-extern>. Do not include typemaps here; the TYPEMAP parameter exists for that purpose. =item XSPROTOARG May be set to C<-prototypes>, C<-noprototypes> or the empty string. The empty string is equivalent to the xsubpp default, or C<-noprototypes>. See the xsubpp documentation for details. MakeMaker defaults to the empty string. =item XS_VERSION Your version number for the .xs file of this package. This defaults to the value of the VERSION attribute. =back =head2 Additional lowercase attributes can be used to pass parameters to the methods which implement that part of the Makefile. Parameters are specified as a hash ref but are passed to the method as a hash. =over 2 =item clean {FILES => "*.xyz foo"} =item depend {ANY_TARGET => ANY_DEPENDENCY, ...} (ANY_TARGET must not be given a double-colon rule by MakeMaker.) =item dist {TARFLAGS => 'cvfF', COMPRESS => 'gzip', SUFFIX => '.gz', SHAR => 'shar -m', DIST_CP => 'ln', ZIP => '/bin/zip', ZIPFLAGS => '-rl', DIST_DEFAULT => 'private tardist' } If you specify COMPRESS, then SUFFIX should also be altered, as it is needed to tell make the target file of the compression. Setting DIST_CP to ln can be useful, if you need to preserve the timestamps on your files. DIST_CP can take the values 'cp', which copies the file, 'ln', which links the file, and 'best' which copies symbolic links and links the rest. Default is 'best'. =item dynamic_lib {ARMAYBE => 'ar', OTHERLDFLAGS => '...', INST_DYNAMIC_DEP => '...'} =item linkext {LINKTYPE => 'static', 'dynamic' or ''} NB: Extensions that have nothing but *.pm files had to say {LINKTYPE => ''} with Pre-5.0 MakeMakers. Since version 5.00 of MakeMaker such a line can be deleted safely. MakeMaker recognizes when there's nothing to be linked. =item macro {ANY_MACRO => ANY_VALUE, ...} =item postamble Anything put here will be passed to L<MY::postamble()|ExtUtils::MM_Any/postamble (o)> if you have one. =item realclean {FILES => '$(INST_ARCHAUTODIR)/*.xyz'} =item test Specify the targets for testing. {TESTS => 't/*.t'} C<RECURSIVE_TEST_FILES> can be used to include all directories recursively under C<t> that contain C<.t> files. It will be ignored if you provide your own C<TESTS> attribute, defaults to false. {RECURSIVE_TEST_FILES=>1} This is supported since 6.76 =item tool_autosplit {MAXLEN => 8} =back =head2 Overriding MakeMaker Methods If you cannot achieve the desired Makefile behaviour by specifying attributes you may define private subroutines in the Makefile.PL. Each subroutine returns the text it wishes to have written to the Makefile. To override a section of the Makefile you can either say: sub MY::c_o { "new literal text" } or you can edit the default by saying something like: package MY; # so that "SUPER" works right sub c_o { my $inherited = shift->SUPER::c_o(@_); $inherited =~ s/old text/new text/; $inherited; } If you are running experiments with embedding perl as a library into other applications, you might find MakeMaker is not sufficient. You'd better have a look at L<ExtUtils::Embed> which is a collection of utilities for embedding. If you still need a different solution, try to develop another subroutine that fits your needs and submit the diffs to C<makemaker@perl.org> For a complete description of all MakeMaker methods see L<ExtUtils::MM_Unix>. Here is a simple example of how to add a new target to the generated Makefile: sub MY::postamble { return <<'MAKE_FRAG'; $(MYEXTLIB): sdbm/Makefile cd sdbm && $(MAKE) all MAKE_FRAG } =head2 The End Of Cargo Cult Programming WriteMakefile() now does some basic sanity checks on its parameters to protect against typos and malformatted values. This means some things which happened to work in the past will now throw warnings and possibly produce internal errors. Some of the most common mistakes: =over 2 =item C<< MAN3PODS => ' ' >> This is commonly used to suppress the creation of man pages. MAN3PODS takes a hash ref not a string, but the above worked by accident in old versions of MakeMaker. The correct code is C<< MAN3PODS => { } >>. =back =head2 Hintsfile support MakeMaker.pm uses the architecture-specific information from Config.pm. In addition it evaluates architecture specific hints files in a C<hints/> directory. The hints files are expected to be named like their counterparts in C<PERL_SRC/hints>, but with an C<.pl> file name extension (eg. C<next_3_2.pl>). They are simply C<eval>ed by MakeMaker within the WriteMakefile() subroutine, and can be used to execute commands as well as to include special variables. The rules which hintsfile is chosen are the same as in Configure. The hintsfile is eval()ed immediately after the arguments given to WriteMakefile are stuffed into a hash reference $self but before this reference becomes blessed. So if you want to do the equivalent to override or create an attribute you would say something like $self->{LIBS} = ['-ldbm -lucb -lc']; =head2 Distribution Support For authors of extensions MakeMaker provides several Makefile targets. Most of the support comes from the L<ExtUtils::Manifest> module, where additional documentation can be found. =over 4 =item make distcheck reports which files are below the build directory but not in the MANIFEST file and vice versa. (See L<ExtUtils::Manifest/fullcheck> for details) =item make skipcheck reports which files are skipped due to the entries in the C<MANIFEST.SKIP> file (See L<ExtUtils::Manifest/skipcheck> for details) =item make distclean does a realclean first and then the distcheck. Note that this is not needed to build a new distribution as long as you are sure that the MANIFEST file is ok. =item make veryclean does a realclean first and then removes backup files such as C<*~>, C<*.bak>, C<*.old> and C<*.orig> =item make manifest rewrites the MANIFEST file, adding all remaining files found (See L<ExtUtils::Manifest/mkmanifest> for details) =item make distdir Copies all the files that are in the MANIFEST file to a newly created directory with the name C<$(DISTNAME)-$(VERSION)>. If that directory exists, it will be removed first. Additionally, it will create META.yml and META.json module meta-data file in the distdir and add this to the distdir's MANIFEST. You can shut this behavior off with the NO_META flag. =item make disttest Makes a distdir first, and runs a C<perl Makefile.PL>, a make, and a make test in that directory. =item make tardist First does a distdir. Then a command $(PREOP) which defaults to a null command, followed by $(TO_UNIX), which defaults to a null command under UNIX, and will convert files in distribution directory to UNIX format otherwise. Next it runs C<tar> on that directory into a tarfile and deletes the directory. Finishes with a command $(POSTOP) which defaults to a null command. =item make dist Defaults to $(DIST_DEFAULT) which in turn defaults to tardist. =item make uutardist Runs a tardist first and uuencodes the tarfile. =item make shdist First does a distdir. Then a command $(PREOP) which defaults to a null command. Next it runs C<shar> on that directory into a sharfile and deletes the intermediate directory again. Finishes with a command $(POSTOP) which defaults to a null command. Note: For shdist to work properly a C<shar> program that can handle directories is mandatory. =item make zipdist First does a distdir. Then a command $(PREOP) which defaults to a null command. Runs C<$(ZIP) $(ZIPFLAGS)> on that directory into a zipfile. Then deletes that directory. Finishes with a command $(POSTOP) which defaults to a null command. =item make ci Does a $(CI) and a $(RCS_LABEL) on all files in the MANIFEST file. =back Customization of the dist targets can be done by specifying a hash reference to the dist attribute of the WriteMakefile call. The following parameters are recognized: CI ('ci -u') COMPRESS ('gzip --best') POSTOP ('@ :') PREOP ('@ :') TO_UNIX (depends on the system) RCS_LABEL ('rcs -q -Nv$(VERSION_SYM):') SHAR ('shar') SUFFIX ('.gz') TAR ('tar') TARFLAGS ('cvf') ZIP ('zip') ZIPFLAGS ('-r') An example: WriteMakefile( ...other options... dist => { COMPRESS => "bzip2", SUFFIX => ".bz2" } ); =head2 Module Meta-Data (META and MYMETA) Long plaguing users of MakeMaker based modules has been the problem of getting basic information about the module out of the sources I<without> running the F<Makefile.PL> and doing a bunch of messy heuristics on the resulting F<Makefile>. Over the years, it has become standard to keep this information in one or more CPAN Meta files distributed with each distribution. The original format of CPAN Meta files was L<YAML> and the corresponding file was called F<META.yml>. In 2010, version 2 of the L<CPAN::Meta::Spec> was released, which mandates JSON format for the metadata in order to overcome certain compatibility issues between YAML serializers and to avoid breaking older clients unable to handle a new version of the spec. The L<CPAN::Meta> library is now standard for accessing old and new-style Meta files. If L<CPAN::Meta> is installed, MakeMaker will automatically generate F<META.json> and F<META.yml> files for you and add them to your F<MANIFEST> as part of the 'distdir' target (and thus the 'dist' target). This is intended to seamlessly and rapidly populate CPAN with module meta-data. If you wish to shut this feature off, set the C<NO_META> C<WriteMakefile()> flag to true. At the 2008 QA Hackathon in Oslo, Perl module toolchain maintainers agreed to use the CPAN Meta format to communicate post-configuration requirements between toolchain components. These files, F<MYMETA.json> and F<MYMETA.yml>, are generated when F<Makefile.PL> generates a F<Makefile> (if L<CPAN::Meta> is installed). Clients like L<CPAN> or L<CPANPLUS> will read these files to see what prerequisites must be fulfilled before building or testing the distribution. If you wish to shut this feature off, set the C<NO_MYMETA> C<WriteMakeFile()> flag to true. =head2 Disabling an extension If some events detected in F<Makefile.PL> imply that there is no way to create the Module, but this is a normal state of things, then you can create a F<Makefile> which does nothing, but succeeds on all the "usual" build targets. To do so, use use ExtUtils::MakeMaker qw(WriteEmptyMakefile); WriteEmptyMakefile(); instead of WriteMakefile(). This may be useful if other modules expect this module to be I<built> OK, as opposed to I<work> OK (say, this system-dependent module builds in a subdirectory of some other distribution, or is listed as a dependency in a CPAN::Bundle, but the functionality is supported by different means on the current architecture). =head2 Other Handy Functions =over 4 =item prompt my $value = prompt($message); my $value = prompt($message, $default); The C<prompt()> function provides an easy way to request user input used to write a makefile. It displays the $message as a prompt for input. If a $default is provided it will be used as a default. The function returns the $value selected by the user. If C<prompt()> detects that it is not running interactively and there is nothing on STDIN or if the PERL_MM_USE_DEFAULT environment variable is set to true, the $default will be used without prompting. This prevents automated processes from blocking on user input. If no $default is provided an empty string will be used instead. =item os_unsupported os_unsupported(); os_unsupported if $^O eq 'MSWin32'; The C<os_unsupported()> function provides a way to correctly exit your C<Makefile.PL> before calling C<WriteMakefile>. It is essentially a C<die> with the message "OS unsupported". This is supported since 7.26 =back =head2 Supported versions of Perl Please note that while this module works on Perl 5.6, it is no longer being routinely tested on 5.6 - the earliest Perl version being routinely tested, and expressly supported, is 5.8.1. However, patches to repair any breakage on 5.6 are still being accepted. =head1 ENVIRONMENT =over 4 =item PERL_MM_OPT Command line options used by C<MakeMaker-E<gt>new()>, and thus by C<WriteMakefile()>. The string is split as the shell would, and the result is processed before any actual command line arguments are processed. PERL_MM_OPT='CCFLAGS="-Wl,-rpath -Wl,/foo/bar/lib" LIBS="-lwibble -lwobble"' =item PERL_MM_USE_DEFAULT If set to a true value then MakeMaker's prompt function will always return the default without waiting for user input. =item PERL_CORE Same as the PERL_CORE parameter. The parameter overrides this. =back =head1 SEE ALSO L<Module::Build> is a pure-Perl alternative to MakeMaker which does not rely on make or any other external utility. It may be easier to extend to suit your needs. L<Module::Build::Tiny> is a minimal pure-Perl alternative to MakeMaker that follows the Build.PL protocol of Module::Build but without its complexity and cruft, implementing only the installation of the module and leaving authoring to L<mbtiny> or other authoring tools. L<Module::Install> is a (now discouraged) wrapper around MakeMaker which adds features not normally available. L<ExtUtils::ModuleMaker> and L<Module::Starter> are both modules to help you setup your distribution. L<CPAN::Meta> and L<CPAN::Meta::Spec> explain CPAN Meta files in detail. L<File::ShareDir::Install> makes it easy to install static, sometimes also referred to as 'shared' files. L<File::ShareDir> helps accessing the shared files after installation. L<Test::File::ShareDir> helps when writing tests to use the shared files both before and after installation. L<Dist::Zilla> is an authoring tool which allows great customization and extensibility of the author experience, relying on the existing install tools like ExtUtils::MakeMaker only for installation. L<Dist::Milla> is a Dist::Zilla bundle that greatly simplifies common usage. L<Minilla> is a minimal authoring tool that does the same things as Dist::Milla without the overhead of Dist::Zilla. =head1 AUTHORS Andy Dougherty C<doughera@lafayette.edu>, Andreas KE<ouml>nig C<andreas.koenig@mind.de>, Tim Bunce C<timb@cpan.org>. VMS support by Charles Bailey C<bailey@newman.upenn.edu>. OS/2 support by Ilya Zakharevich C<ilya@math.ohio-state.edu>. Currently maintained by Michael G Schwern C<schwern@pobox.com> Send patches and ideas to C<makemaker@perl.org>. Send bug reports via http://rt.cpan.org/. Please send your generated Makefile along with your report. For more up-to-date information, see L<https://metacpan.org/release/ExtUtils-MakeMaker>. Repository available at L<https://github.com/Perl-Toolchain-Gang/ExtUtils-MakeMaker>. =head1 LICENSE This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See L<http://www.perl.com/perl/misc/Artistic.html> =cut PK ! �� � � 5.34.0/ExtUtils/Command.pmnu �[��� package ExtUtils::Command; use 5.00503; use strict; use warnings; require Exporter; use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION); @ISA = qw(Exporter); @EXPORT = qw(cp rm_f rm_rf mv cat eqtime mkpath touch test_f test_d chmod dos2unix); $VERSION = '7.62'; $VERSION =~ tr/_//d; my $Is_VMS = $^O eq 'VMS'; my $Is_VMS_mode = $Is_VMS; my $Is_VMS_noefs = $Is_VMS; my $Is_Win32 = $^O eq 'MSWin32'; if( $Is_VMS ) { my $vms_unix_rpt; my $vms_efs; my $vms_case; if (eval { local $SIG{__DIE__}; local @INC = @INC; pop @INC if $INC[-1] eq '.'; require VMS::Feature; }) { $vms_unix_rpt = VMS::Feature::current("filename_unix_report"); $vms_efs = VMS::Feature::current("efs_charset"); $vms_case = VMS::Feature::current("efs_case_preserve"); } else { my $unix_rpt = $ENV{'DECC$FILENAME_UNIX_REPORT'} || ''; my $efs_charset = $ENV{'DECC$EFS_CHARSET'} || ''; my $efs_case = $ENV{'DECC$EFS_CASE_PRESERVE'} || ''; $vms_unix_rpt = $unix_rpt =~ /^[ET1]/i; $vms_efs = $efs_charset =~ /^[ET1]/i; $vms_case = $efs_case =~ /^[ET1]/i; } $Is_VMS_mode = 0 if $vms_unix_rpt; $Is_VMS_noefs = 0 if ($vms_efs); } =head1 NAME ExtUtils::Command - utilities to replace common UNIX commands in Makefiles etc. =head1 SYNOPSIS perl -MExtUtils::Command -e cat files... > destination perl -MExtUtils::Command -e mv source... destination perl -MExtUtils::Command -e cp source... destination perl -MExtUtils::Command -e touch files... perl -MExtUtils::Command -e rm_f files... perl -MExtUtils::Command -e rm_rf directories... perl -MExtUtils::Command -e mkpath directories... perl -MExtUtils::Command -e eqtime source destination perl -MExtUtils::Command -e test_f file perl -MExtUtils::Command -e test_d directory perl -MExtUtils::Command -e chmod mode files... ... =head1 DESCRIPTION The module is used to replace common UNIX commands. In all cases the functions work from @ARGV rather than taking arguments. This makes them easier to deal with in Makefiles. Call them like this: perl -MExtUtils::Command -e some_command some files to work on and I<NOT> like this: perl -MExtUtils::Command -e 'some_command qw(some files to work on)' For that use L<Shell::Command>. Filenames with * and ? will be glob expanded. =head2 FUNCTIONS =over 4 =cut # VMS uses % instead of ? to mean "one character" my $wild_regex = $Is_VMS ? '*%' : '*?'; sub expand_wildcards { @ARGV = map(/[$wild_regex]/o ? glob($_) : $_,@ARGV); } =item cat cat file ... Concatenates all files mentioned on command line to STDOUT. =cut sub cat () { expand_wildcards(); print while (<>); } =item eqtime eqtime source destination Sets modified time of destination to that of source. =cut sub eqtime { my ($src,$dst) = @ARGV; local @ARGV = ($dst); touch(); # in case $dst doesn't exist utime((stat($src))[8,9],$dst); } =item rm_rf rm_rf files or directories ... Removes files and directories - recursively (even if readonly) =cut sub rm_rf { expand_wildcards(); require File::Path; File::Path::rmtree([grep -e $_,@ARGV],0,0); } =item rm_f rm_f file ... Removes files (even if readonly) =cut sub rm_f { expand_wildcards(); foreach my $file (@ARGV) { next unless -f $file; next if _unlink($file); chmod(0777, $file); next if _unlink($file); require Carp; Carp::carp("Cannot delete $file: $!"); } } sub _unlink { my $files_unlinked = 0; foreach my $file (@_) { my $delete_count = 0; $delete_count++ while unlink $file; $files_unlinked++ if $delete_count; } return $files_unlinked; } =item touch touch file ... Makes files exist, with current timestamp =cut sub touch { my $t = time; expand_wildcards(); foreach my $file (@ARGV) { open(FILE,">>$file") || die "Cannot write $file:$!"; close(FILE); utime($t,$t,$file); } } =item mv mv source_file destination_file mv source_file source_file destination_dir Moves source to destination. Multiple sources are allowed if destination is an existing directory. Returns true if all moves succeeded, false otherwise. =cut sub mv { expand_wildcards(); my @src = @ARGV; my $dst = pop @src; if (@src > 1 && ! -d $dst) { require Carp; Carp::croak("Too many arguments"); } require File::Copy; my $nok = 0; foreach my $src (@src) { $nok ||= !File::Copy::move($src,$dst); } return !$nok; } =item cp cp source_file destination_file cp source_file source_file destination_dir Copies sources to the destination. Multiple sources are allowed if destination is an existing directory. Returns true if all copies succeeded, false otherwise. =cut sub cp { expand_wildcards(); my @src = @ARGV; my $dst = pop @src; if (@src > 1 && ! -d $dst) { require Carp; Carp::croak("Too many arguments"); } require File::Copy; my $nok = 0; foreach my $src (@src) { $nok ||= !File::Copy::copy($src,$dst); # Win32 does not update the mod time of a copied file, just the # created time which make does not look at. utime(time, time, $dst) if $Is_Win32; } return $nok; } =item chmod chmod mode files ... Sets UNIX like permissions 'mode' on all the files. e.g. 0666 =cut sub chmod { local @ARGV = @ARGV; my $mode = shift(@ARGV); expand_wildcards(); if( $Is_VMS_mode && $Is_VMS_noefs) { require File::Spec; foreach my $idx (0..$#ARGV) { my $path = $ARGV[$idx]; next unless -d $path; # chmod 0777, [.foo.bar] doesn't work on VMS, you have to do # chmod 0777, [.foo]bar.dir my @dirs = File::Spec->splitdir( $path ); $dirs[-1] .= '.dir'; $path = File::Spec->catfile(@dirs); $ARGV[$idx] = $path; } } chmod(oct $mode,@ARGV) || die "Cannot chmod ".join(' ',$mode,@ARGV).":$!"; } =item mkpath mkpath directory ... Creates directories, including any parent directories. =cut sub mkpath { expand_wildcards(); require File::Path; File::Path::mkpath([@ARGV],0,0777); } =item test_f test_f file Tests if a file exists. I<Exits> with 0 if it does, 1 if it does not (ie. shell's idea of true and false). =cut sub test_f { exit(-f $ARGV[0] ? 0 : 1); } =item test_d test_d directory Tests if a directory exists. I<Exits> with 0 if it does, 1 if it does not (ie. shell's idea of true and false). =cut sub test_d { exit(-d $ARGV[0] ? 0 : 1); } =item dos2unix dos2unix files or dirs ... Converts DOS and OS/2 linefeeds to Unix style recursively. =cut sub dos2unix { require File::Find; File::Find::find(sub { return if -d; return unless -w _; return unless -r _; return if -B _; local $\; my $orig = $_; my $temp = '.dos2unix_tmp'; open ORIG, $_ or do { warn "dos2unix can't open $_: $!"; return }; open TEMP, ">$temp" or do { warn "dos2unix can't create .dos2unix_tmp: $!"; return }; binmode ORIG; binmode TEMP; while (my $line = <ORIG>) { $line =~ s/\015\012/\012/g; print TEMP $line; } close ORIG; close TEMP; rename $temp, $orig; }, @ARGV); } =back =head1 SEE ALSO Shell::Command which is these same functions but take arguments normally. =head1 AUTHOR Nick Ing-Simmons C<ni-s@cpan.org> Maintained by Michael G Schwern C<schwern@pobox.com> within the ExtUtils-MakeMaker package and, as a separate CPAN package, by Randy Kobes C<r.kobes@uwinnipeg.ca>. =cut PK ! ���c c 5.34.0/ExtUtils/PL2Bat.pmnu �[��� package ExtUtils::PL2Bat; $ExtUtils::PL2Bat::VERSION = '0.004'; use strict; use warnings; use 5.006; use Config; use Carp qw/croak/; # In core, we can't use any other modules except those that already live in # lib/, so Exporter is not available to us. sub import { my ($self, @functions) = @_; @functions = 'pl2bat' if not @functions; my $caller = caller; for my $function (@functions) { no strict 'refs'; *{"$caller\::$function"} = \&{$function}; } } sub pl2bat { my %opts = @_; # NOTE: %0 is already enclosed in doublequotes by cmd.exe, as appropriate $opts{ntargs} = '-x -S %0 %*' unless exists $opts{ntargs}; $opts{otherargs} = '-x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9' unless exists $opts{otherargs}; $opts{stripsuffix} = qr/\.plx?/ unless exists $opts{stripsuffix}; if (not exists $opts{out}) { $opts{out} = $opts{in}; $opts{out} =~ s/$opts{stripsuffix}$//i; $opts{out} .= '.bat' unless $opts{in} =~ /\.bat$/i or $opts{in} eq '-'; } my $head = <<"EOT"; \@rem = '--*-Perl-*-- \@set "ErrorLevel=" \@if "%OS%" == "Windows_NT" \@goto WinNT \@perl $opts{otherargs} \@set ErrorLevel=%ErrorLevel% \@goto endofperl :WinNT \@perl $opts{ntargs} \@set ErrorLevel=%ErrorLevel% \@if NOT "%COMSPEC%" == "%SystemRoot%\\system32\\cmd.exe" \@goto endofperl \@if %ErrorLevel% == 9009 \@echo You do not have Perl in your PATH. \@goto endofperl \@rem '; EOT $head =~ s/^\s+//gm; my $headlines = 2 + ($head =~ tr/\n/\n/); my $tail = <<'EOT'; __END__ :endofperl @set "ErrorLevel=" & @goto _undefined_label_ 2>NUL || @"%COMSPEC%" /d/c @exit %ErrorLevel% EOT $tail =~ s/^\s+//gm; my $linedone = 0; my $taildone = 0; my $linenum = 0; my $skiplines = 0; my $start = $Config{startperl}; $start = '#!perl' unless $start =~ /^#!.*perl/; open my $in, '<', $opts{in} or croak "Can't open $opts{in}: $!"; my @file = <$in>; close $in; foreach my $line ( @file ) { $linenum++; if ( $line =~ /^:endofperl\b/ ) { if (!exists $opts{update}) { warn "$opts{in} has already been converted to a batch file!\n"; return; } $taildone++; } if ( not $linedone and $line =~ /^#!.*perl/ ) { if (exists $opts{update}) { $skiplines = $linenum - 1; $line .= '#line '.(1+$headlines)."\n"; } else { $line .= '#line '.($linenum+$headlines)."\n"; } $linedone++; } if ( $line =~ /^#\s*line\b/ and $linenum == 2 + $skiplines ) { $line = ''; } } open my $out, '>', $opts{out} or croak "Can't open $opts{out}: $!"; print $out $head; print $out $start, ( $opts{usewarnings} ? ' -w' : '' ), "\n#line ", ($headlines+1), "\n" unless $linedone; print $out @file[$skiplines..$#file]; print $out $tail unless $taildone; close $out; return $opts{out}; } 1; # ABSTRACT: Batch file creation to run perl scripts on Windows __END__ =pod =encoding UTF-8 =head1 NAME ExtUtils::PL2Bat - Batch file creation to run perl scripts on Windows =head1 VERSION version 0.004 =head1 OVERVIEW This module converts a perl script into a batch file that can be executed on Windows/DOS-like operating systems. This is intended to allow you to use a Perl script like regular programs and batch files where you just enter the name of the script [probably minus the extension] plus any command-line arguments and the script is found in your B<PATH> and run. =head1 FUNCTIONS =head2 pl2bat(%opts) This function takes a perl script and write a batch file that contains the script. This is sometimes necessary =over 8 =item * C<in> The name of the script that is to be batchified. This argument is mandatory. =item * C<out> The name of the output batch file. If not given, it will be generated using C<in> and C<stripsuffix>. =item * C<ntargs> Arguments to invoke perl with in generated batch file when run from Windows NT. Defaults to S<'-x -S %0 %*'>. =item * C<otherargs> Arguments to invoke perl with in generated batch file except when run from Windows NT (ie. when run from DOS, Windows 3.1, or Windows 95). Defaults to S<'-x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9'>. =item * C<stripsuffix> Strip a suffix string from file name before appending a ".bat" suffix. The suffix is not case-sensitive. It can be a regex or a string and a trailing C<$> is always assumed). Defaults to C<qr/\.plx?/>. =item * C<usewarnings> With the C<usewarnings> option, C<" -w"> is added after the value of C<$Config{startperl}>. If a line matching C</^#!.*perl/> already exists in the script, then it is not changed and the B<-w> option is ignored. =item * C<update> If the script appears to have already been processed by B<pl2bat>, then the script is skipped and not processed unless C<update> was specified. If C<update> is specified, the existing preamble is replaced. =back =head1 ACKNOWLEDGEMENTS This code was taken from Module::Build and then modified; which had taken it from perl's pl2bat script. This module is an attempt at unifying all three implementations. =head1 AUTHOR Leon Timmermans <leont@cpan.org> =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2015 by Leon Timmermans. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut PK ! iS�"� � 5.34.0/ExtUtils/testlib.pmnu �[��� package ExtUtils::testlib; use strict; use warnings; our $VERSION = '7.62'; $VERSION =~ tr/_//d; use Cwd; use File::Spec; # So the tests can chdir around and not break @INC. # We use getcwd() because otherwise rel2abs will blow up under taint # mode pre-5.8. We detaint is so @INC won't be tainted. This is # no worse, and probably better, than just shoving an untainted, # relative "blib/lib" onto @INC. my $cwd; BEGIN { ($cwd) = getcwd() =~ /(.*)/; } use lib map { File::Spec->rel2abs($_, $cwd) } qw(blib/arch blib/lib); 1; __END__ =head1 NAME ExtUtils::testlib - add blib/* directories to @INC =head1 SYNOPSIS use ExtUtils::testlib; =head1 DESCRIPTION After an extension has been built and before it is installed it may be desirable to test it bypassing C<make test>. By adding use ExtUtils::testlib; to a test program the intermediate directories used by C<make> are added to @INC. PK ! u �n� � % 5.34.0/ExtUtils/ParseXS/CountLines.pmnu �[��� package ExtUtils::ParseXS::CountLines; use strict; our $VERSION = '3.43'; our $SECTION_END_MARKER; sub TIEHANDLE { my ($class, $cfile, $fh) = @_; $cfile =~ s/\\/\\\\/g; $cfile =~ s/"/\\"/g; $SECTION_END_MARKER = qq{#line --- "$cfile"}; return bless { buffer => '', fh => $fh, line_no => 1, }, $class; } sub PRINT { my $self = shift; for (@_) { $self->{buffer} .= $_; while ($self->{buffer} =~ s/^([^\n]*\n)//) { my $line = $1; ++$self->{line_no}; $line =~ s|^\#line\s+---(?=\s)|#line $self->{line_no}|; print {$self->{fh}} $line; } } } sub PRINTF { my $self = shift; my $fmt = shift; $self->PRINT(sprintf($fmt, @_)); } sub DESTROY { # Not necessary if we're careful to end with a "\n" my $self = shift; print {$self->{fh}} $self->{buffer}; } sub UNTIE { # This sub does nothing, but is necessary for references to be released. } sub end_marker { return $SECTION_END_MARKER; } 1; PK ! ��oF F 5.34.0/ExtUtils/ParseXS/Eval.pmnu �[��� package ExtUtils::ParseXS::Eval; use strict; use warnings; our $VERSION = '3.43'; =head1 NAME ExtUtils::ParseXS::Eval - Clean package to evaluate code in =head1 SYNOPSIS use ExtUtils::ParseXS::Eval; my $rv = ExtUtils::ParseXS::Eval::eval_typemap_code( $parsexs_obj, "some Perl code" ); =head1 SUBROUTINES =head2 $pxs->eval_output_typemap_code($typemapcode, $other_hashref) Sets up various bits of previously global state (formerly ExtUtils::ParseXS package variables) for eval'ing output typemap code that may refer to these variables. Warns the contents of C<$@> if any. Not all these variables are necessarily considered "public" wrt. use in typemaps, so beware. Variables set up from the ExtUtils::ParseXS object: $Package $ALIAS $func_name $Full_func_name $pname Variables set up from C<$other_hashref>: $var $type $ntype $subtype $arg =cut sub eval_output_typemap_code { my ($_pxs, $_code, $_other) = @_; my ($Package, $ALIAS, $func_name, $Full_func_name, $pname) = @{$_pxs}{qw(Package ALIAS func_name Full_func_name pname)}; my ($var, $type, $ntype, $subtype, $arg) = @{$_other}{qw(var type ntype subtype arg)}; my $rv = eval $_code; warn $@ if $@; return $rv; } =head2 $pxs->eval_input_typemap_code($typemapcode, $other_hashref) Sets up various bits of previously global state (formerly ExtUtils::ParseXS package variables) for eval'ing output typemap code that may refer to these variables. Warns the contents of C<$@> if any. Not all these variables are necessarily considered "public" wrt. use in typemaps, so beware. Variables set up from the ExtUtils::ParseXS object: $Package $ALIAS $func_name $Full_func_name $pname Variables set up from C<$other_hashref>: $var $type $ntype $subtype $num $init $printed_name $arg $argoff =cut sub eval_input_typemap_code { my ($_pxs, $_code, $_other) = @_; my ($Package, $ALIAS, $func_name, $Full_func_name, $pname) = @{$_pxs}{qw(Package ALIAS func_name Full_func_name pname)}; my ($var, $type, $num, $init, $printed_name, $arg, $ntype, $argoff, $subtype) = @{$_other}{qw(var type num init printed_name arg ntype argoff subtype)}; my $rv = eval $_code; warn $@ if $@; return $rv; } =head1 TODO Eventually, with better documentation and possible some cleanup, this could be part of C<ExtUtils::Typemaps>. =cut 1; # vim: ts=2 sw=2 et: PK ! �Z�@x x $ 5.34.0/ExtUtils/ParseXS/Constants.pmnu �[��� package ExtUtils::ParseXS::Constants; use strict; use warnings; use Symbol; our $VERSION = '3.43'; =head1 NAME ExtUtils::ParseXS::Constants - Initialization values for some globals =head1 SYNOPSIS use ExtUtils::ParseXS::Constants (); $PrototypeRegexp = $ExtUtils::ParseXS::Constants::PrototypeRegexp; =head1 DESCRIPTION Initialization of certain non-subroutine variables in ExtUtils::ParseXS and some of its supporting packages has been moved into this package so that those values can be defined exactly once and then re-used in any package. Nothing is exported. Use fully qualified variable names. =cut # FIXME: THESE ARE NOT CONSTANTS! our @InitFileCode; # Note that to reduce maintenance, $PrototypeRegexp is used # by ExtUtils::Typemaps, too! our $PrototypeRegexp = "[" . quotemeta('\$%&*@;[]_') . "]"; our @XSKeywords = qw( REQUIRE BOOT CASE PREINIT INPUT INIT CODE PPCODE OUTPUT CLEANUP ALIAS ATTRS PROTOTYPES PROTOTYPE VERSIONCHECK INCLUDE INCLUDE_COMMAND SCOPE INTERFACE INTERFACE_MACRO C_ARGS POSTCALL OVERLOAD FALLBACK EXPORT_XSUB_SYMBOLS ); our $XSKeywordsAlternation = join('|', @XSKeywords); 1; PK ! ^��C C $ 5.34.0/ExtUtils/ParseXS/Utilities.pmnu �[��� package ExtUtils::ParseXS::Utilities; use strict; use warnings; use Exporter; use File::Spec; use ExtUtils::ParseXS::Constants (); our $VERSION = '3.43'; our (@ISA, @EXPORT_OK); @ISA = qw(Exporter); @EXPORT_OK = qw( standard_typemap_locations trim_whitespace C_string valid_proto_string process_typemaps map_type standard_XS_defs assign_func_args analyze_preprocessor_statements set_cond Warn current_line_number blurt death check_conditional_preprocessor_statements escape_file_for_line_directive report_typemap_failure ); =head1 NAME ExtUtils::ParseXS::Utilities - Subroutines used with ExtUtils::ParseXS =head1 SYNOPSIS use ExtUtils::ParseXS::Utilities qw( standard_typemap_locations trim_whitespace C_string valid_proto_string process_typemaps map_type standard_XS_defs assign_func_args analyze_preprocessor_statements set_cond Warn blurt death check_conditional_preprocessor_statements escape_file_for_line_directive report_typemap_failure ); =head1 SUBROUTINES The following functions are not considered to be part of the public interface. They are documented here for the benefit of future maintainers of this module. =head2 C<standard_typemap_locations()> =over 4 =item * Purpose Provide a list of filepaths where F<typemap> files may be found. The filepaths -- relative paths to files (not just directory paths) -- appear in this list in lowest-to-highest priority. The highest priority is to look in the current directory. 'typemap' The second and third highest priorities are to look in the parent of the current directory and a directory called F<lib/ExtUtils> underneath the parent directory. '../typemap', '../lib/ExtUtils/typemap', The fourth through ninth highest priorities are to look in the corresponding grandparent, great-grandparent and great-great-grandparent directories. '../../typemap', '../../lib/ExtUtils/typemap', '../../../typemap', '../../../lib/ExtUtils/typemap', '../../../../typemap', '../../../../lib/ExtUtils/typemap', The tenth and subsequent priorities are to look in directories named F<ExtUtils> which are subdirectories of directories found in C<@INC> -- I<provided> a file named F<typemap> actually exists in such a directory. Example: '/usr/local/lib/perl5/5.10.1/ExtUtils/typemap', However, these filepaths appear in the list returned by C<standard_typemap_locations()> in reverse order, I<i.e.>, lowest-to-highest. '/usr/local/lib/perl5/5.10.1/ExtUtils/typemap', '../../../../lib/ExtUtils/typemap', '../../../../typemap', '../../../lib/ExtUtils/typemap', '../../../typemap', '../../lib/ExtUtils/typemap', '../../typemap', '../lib/ExtUtils/typemap', '../typemap', 'typemap' =item * Arguments my @stl = standard_typemap_locations( \@INC ); Reference to C<@INC>. =item * Return Value Array holding list of directories to be searched for F<typemap> files. =back =cut SCOPE: { my @tm_template; sub standard_typemap_locations { my $include_ref = shift; if (not @tm_template) { @tm_template = qw(typemap); my $updir = File::Spec->updir(); foreach my $dir ( File::Spec->catdir(($updir) x 1), File::Spec->catdir(($updir) x 2), File::Spec->catdir(($updir) x 3), File::Spec->catdir(($updir) x 4), ) { unshift @tm_template, File::Spec->catfile($dir, 'typemap'); unshift @tm_template, File::Spec->catfile($dir, lib => ExtUtils => 'typemap'); } } my @tm = @tm_template; foreach my $dir (@{ $include_ref}) { my $file = File::Spec->catfile($dir, ExtUtils => 'typemap'); unshift @tm, $file if -e $file; } return @tm; } } # end SCOPE =head2 C<trim_whitespace()> =over 4 =item * Purpose Perform an in-place trimming of leading and trailing whitespace from the first argument provided to the function. =item * Argument trim_whitespace($arg); =item * Return Value None. Remember: this is an I<in-place> modification of the argument. =back =cut sub trim_whitespace { $_[0] =~ s/^\s+|\s+$//go; } =head2 C<C_string()> =over 4 =item * Purpose Escape backslashes (C<\>) in prototype strings. =item * Arguments $ProtoThisXSUB = C_string($_); String needing escaping. =item * Return Value Properly escaped string. =back =cut sub C_string { my($string) = @_; $string =~ s[\\][\\\\]g; $string; } =head2 C<valid_proto_string()> =over 4 =item * Purpose Validate prototype string. =item * Arguments String needing checking. =item * Return Value Upon success, returns the same string passed as argument. Upon failure, returns C<0>. =back =cut sub valid_proto_string { my ($string) = @_; if ( $string =~ /^$ExtUtils::ParseXS::Constants::PrototypeRegexp+$/ ) { return $string; } return 0; } =head2 C<process_typemaps()> =over 4 =item * Purpose Process all typemap files. =item * Arguments my $typemaps_object = process_typemaps( $args{typemap}, $pwd ); List of two elements: C<typemap> element from C<%args>; current working directory. =item * Return Value Upon success, returns an L<ExtUtils::Typemaps> object. =back =cut sub process_typemaps { my ($tmap, $pwd) = @_; my @tm = ref $tmap ? @{$tmap} : ($tmap); foreach my $typemap (@tm) { die "Can't find $typemap in $pwd\n" unless -r $typemap; } push @tm, standard_typemap_locations( \@INC ); require ExtUtils::Typemaps; my $typemap = ExtUtils::Typemaps->new; foreach my $typemap_loc (@tm) { next unless -f $typemap_loc; # skip directories, binary files etc. warn("Warning: ignoring non-text typemap file '$typemap_loc'\n"), next unless -T $typemap_loc; $typemap->merge(file => $typemap_loc, replace => 1); } return $typemap; } =head2 C<map_type()> =over 4 =item * Purpose Performs a mapping at several places inside C<PARAGRAPH> loop. =item * Arguments $type = map_type($self, $type, $varname); List of three arguments. =item * Return Value String holding augmented version of second argument. =back =cut sub map_type { my ($self, $type, $varname) = @_; # C++ has :: in types too so skip this $type =~ tr/:/_/ unless $self->{RetainCplusplusHierarchicalTypes}; $type =~ s/^array\(([^,]*),(.*)\).*/$1 */s; if ($varname) { if ($type =~ / \( \s* \* (?= \s* \) ) /xg) { (substr $type, pos $type, 0) = " $varname "; } else { $type .= "\t$varname"; } } return $type; } =head2 C<standard_XS_defs()> =over 4 =item * Purpose Writes to the C<.c> output file certain preprocessor directives and function headers needed in all such files. =item * Arguments None. =item * Return Value Returns true. =back =cut sub standard_XS_defs { print <<"EOF"; #ifndef PERL_UNUSED_VAR # define PERL_UNUSED_VAR(var) if (0) var = var #endif #ifndef dVAR # define dVAR dNOOP #endif /* This stuff is not part of the API! You have been warned. */ #ifndef PERL_VERSION_DECIMAL # define PERL_VERSION_DECIMAL(r,v,s) (r*1000000 + v*1000 + s) #endif #ifndef PERL_DECIMAL_VERSION # define PERL_DECIMAL_VERSION \\ PERL_VERSION_DECIMAL(PERL_REVISION,PERL_VERSION,PERL_SUBVERSION) #endif #ifndef PERL_VERSION_GE # define PERL_VERSION_GE(r,v,s) \\ (PERL_DECIMAL_VERSION >= PERL_VERSION_DECIMAL(r,v,s)) #endif #ifndef PERL_VERSION_LE # define PERL_VERSION_LE(r,v,s) \\ (PERL_DECIMAL_VERSION <= PERL_VERSION_DECIMAL(r,v,s)) #endif /* XS_INTERNAL is the explicit static-linkage variant of the default * XS macro. * * XS_EXTERNAL is the same as XS_INTERNAL except it does not include * "STATIC", ie. it exports XSUB symbols. You probably don't want that * for anything but the BOOT XSUB. * * See XSUB.h in core! */ /* TODO: This might be compatible further back than 5.10.0. */ #if PERL_VERSION_GE(5, 10, 0) && PERL_VERSION_LE(5, 15, 1) # undef XS_EXTERNAL # undef XS_INTERNAL # if defined(__CYGWIN__) && defined(USE_DYNAMIC_LOADING) # define XS_EXTERNAL(name) __declspec(dllexport) XSPROTO(name) # define XS_INTERNAL(name) STATIC XSPROTO(name) # endif # if defined(__SYMBIAN32__) # define XS_EXTERNAL(name) EXPORT_C XSPROTO(name) # define XS_INTERNAL(name) EXPORT_C STATIC XSPROTO(name) # endif # ifndef XS_EXTERNAL # if defined(HASATTRIBUTE_UNUSED) && !defined(__cplusplus) # define XS_EXTERNAL(name) void name(pTHX_ CV* cv __attribute__unused__) # define XS_INTERNAL(name) STATIC void name(pTHX_ CV* cv __attribute__unused__) # else # ifdef __cplusplus # define XS_EXTERNAL(name) extern "C" XSPROTO(name) # define XS_INTERNAL(name) static XSPROTO(name) # else # define XS_EXTERNAL(name) XSPROTO(name) # define XS_INTERNAL(name) STATIC XSPROTO(name) # endif # endif # endif #endif /* perl >= 5.10.0 && perl <= 5.15.1 */ /* The XS_EXTERNAL macro is used for functions that must not be static * like the boot XSUB of a module. If perl didn't have an XS_EXTERNAL * macro defined, the best we can do is assume XS is the same. * Dito for XS_INTERNAL. */ #ifndef XS_EXTERNAL # define XS_EXTERNAL(name) XS(name) #endif #ifndef XS_INTERNAL # define XS_INTERNAL(name) XS(name) #endif /* Now, finally, after all this mess, we want an ExtUtils::ParseXS * internal macro that we're free to redefine for varying linkage due * to the EXPORT_XSUB_SYMBOLS XS keyword. This is internal, use * XS_EXTERNAL(name) or XS_INTERNAL(name) in your code if you need to! */ #undef XS_EUPXS #if defined(PERL_EUPXS_ALWAYS_EXPORT) # define XS_EUPXS(name) XS_EXTERNAL(name) #else /* default to internal */ # define XS_EUPXS(name) XS_INTERNAL(name) #endif EOF print <<"EOF"; #ifndef PERL_ARGS_ASSERT_CROAK_XS_USAGE #define PERL_ARGS_ASSERT_CROAK_XS_USAGE assert(cv); assert(params) /* prototype to pass -Wmissing-prototypes */ STATIC void S_croak_xs_usage(const CV *const cv, const char *const params); STATIC void S_croak_xs_usage(const CV *const cv, const char *const params) { const GV *const gv = CvGV(cv); PERL_ARGS_ASSERT_CROAK_XS_USAGE; if (gv) { const char *const gvname = GvNAME(gv); const HV *const stash = GvSTASH(gv); const char *const hvname = stash ? HvNAME(stash) : NULL; if (hvname) Perl_croak_nocontext("Usage: %s::%s(%s)", hvname, gvname, params); else Perl_croak_nocontext("Usage: %s(%s)", gvname, params); } else { /* Pants. I don't think that it should be possible to get here. */ Perl_croak_nocontext("Usage: CODE(0x%" UVxf ")(%s)", PTR2UV(cv), params); } } #undef PERL_ARGS_ASSERT_CROAK_XS_USAGE #define croak_xs_usage S_croak_xs_usage #endif /* NOTE: the prototype of newXSproto() is different in versions of perls, * so we define a portable version of newXSproto() */ #ifdef newXS_flags #define newXSproto_portable(name, c_impl, file, proto) newXS_flags(name, c_impl, file, proto, 0) #else #define newXSproto_portable(name, c_impl, file, proto) (PL_Sv=(SV*)newXS(name, c_impl, file), sv_setpv(PL_Sv, proto), (CV*)PL_Sv) #endif /* !defined(newXS_flags) */ #if PERL_VERSION_LE(5, 21, 5) # define newXS_deffile(a,b) Perl_newXS(aTHX_ a,b,file) #else # define newXS_deffile(a,b) Perl_newXS_deffile(aTHX_ a,b) #endif EOF return 1; } =head2 C<assign_func_args()> =over 4 =item * Purpose Perform assignment to the C<func_args> attribute. =item * Arguments $string = assign_func_args($self, $argsref, $class); List of three elements. Second is an array reference; third is a string. =item * Return Value String. =back =cut sub assign_func_args { my ($self, $argsref, $class) = @_; my @func_args = @{$argsref}; shift @func_args if defined($class); for my $arg (@func_args) { $arg =~ s/^/&/ if $self->{in_out}->{$arg}; } return join(", ", @func_args); } =head2 C<analyze_preprocessor_statements()> =over 4 =item * Purpose Within each function inside each Xsub, print to the F<.c> output file certain preprocessor statements. =item * Arguments ( $self, $XSS_work_idx, $BootCode_ref ) = analyze_preprocessor_statements( $self, $statement, $XSS_work_idx, $BootCode_ref ); List of four elements. =item * Return Value Modifed values of three of the arguments passed to the function. In particular, the C<XSStack> and C<InitFileCode> attributes are modified. =back =cut sub analyze_preprocessor_statements { my ($self, $statement, $XSS_work_idx, $BootCode_ref) = @_; if ($statement eq 'if') { $XSS_work_idx = @{ $self->{XSStack} }; push(@{ $self->{XSStack} }, {type => 'if'}); } else { $self->death("Error: '$statement' with no matching 'if'") if $self->{XSStack}->[-1]{type} ne 'if'; if ($self->{XSStack}->[-1]{varname}) { push(@{ $self->{InitFileCode} }, "#endif\n"); push(@{ $BootCode_ref }, "#endif"); } my(@fns) = keys %{$self->{XSStack}->[-1]{functions}}; if ($statement ne 'endif') { # Hide the functions defined in other #if branches, and reset. @{$self->{XSStack}->[-1]{other_functions}}{@fns} = (1) x @fns; @{$self->{XSStack}->[-1]}{qw(varname functions)} = ('', {}); } else { my($tmp) = pop(@{ $self->{XSStack} }); 0 while (--$XSS_work_idx && $self->{XSStack}->[$XSS_work_idx]{type} ne 'if'); # Keep all new defined functions push(@fns, keys %{$tmp->{other_functions}}); @{$self->{XSStack}->[$XSS_work_idx]{functions}}{@fns} = (1) x @fns; } } return ($self, $XSS_work_idx, $BootCode_ref); } =head2 C<set_cond()> =over 4 =item * Purpose =item * Arguments =item * Return Value =back =cut sub set_cond { my ($ellipsis, $min_args, $num_args) = @_; my $cond; if ($ellipsis) { $cond = ($min_args ? qq(items < $min_args) : 0); } elsif ($min_args == $num_args) { $cond = qq(items != $min_args); } else { $cond = qq(items < $min_args || items > $num_args); } return $cond; } =head2 C<current_line_number()> =over 4 =item * Purpose Figures out the current line number in the XS file. =item * Arguments C<$self> =item * Return Value The current line number. =back =cut sub current_line_number { my $self = shift; my $line_number = $self->{line_no}->[@{ $self->{line_no} } - @{ $self->{line} } -1]; return $line_number; } =head2 C<Warn()> =over 4 =item * Purpose =item * Arguments =item * Return Value =back =cut sub Warn { my $self = shift; my $warn_line_number = $self->current_line_number(); print STDERR "@_ in $self->{filename}, line $warn_line_number\n"; } =head2 C<blurt()> =over 4 =item * Purpose =item * Arguments =item * Return Value =back =cut sub blurt { my $self = shift; $self->Warn(@_); $self->{errors}++ } =head2 C<death()> =over 4 =item * Purpose =item * Arguments =item * Return Value =back =cut sub death { my $self = shift; $self->Warn(@_); exit 1; } =head2 C<check_conditional_preprocessor_statements()> =over 4 =item * Purpose =item * Arguments =item * Return Value =back =cut sub check_conditional_preprocessor_statements { my ($self) = @_; my @cpp = grep(/^\#\s*(?:if|e\w+)/, @{ $self->{line} }); if (@cpp) { my $cpplevel; for my $cpp (@cpp) { if ($cpp =~ /^\#\s*if/) { $cpplevel++; } elsif (!$cpplevel) { $self->Warn("Warning: #else/elif/endif without #if in this function"); print STDERR " (precede it with a blank line if the matching #if is outside the function)\n" if $self->{XSStack}->[-1]{type} eq 'if'; return; } elsif ($cpp =~ /^\#\s*endif/) { $cpplevel--; } } $self->Warn("Warning: #if without #endif in this function") if $cpplevel; } } =head2 C<escape_file_for_line_directive()> =over 4 =item * Purpose Escapes a given code source name (typically a file name but can also be a command that was read from) so that double-quotes and backslashes are escaped. =item * Arguments A string. =item * Return Value A string with escapes for double-quotes and backslashes. =back =cut sub escape_file_for_line_directive { my $string = shift; $string =~ s/\\/\\\\/g; $string =~ s/"/\\"/g; return $string; } =head2 C<report_typemap_failure> =over 4 =item * Purpose Do error reporting for missing typemaps. =item * Arguments The C<ExtUtils::ParseXS> object. An C<ExtUtils::Typemaps> object. The string that represents the C type that was not found in the typemap. Optionally, the string C<death> or C<blurt> to choose whether the error is immediately fatal or not. Default: C<blurt> =item * Return Value Returns nothing. Depending on the arguments, this may call C<death> or C<blurt>, the former of which is fatal. =back =cut sub report_typemap_failure { my ($self, $tm, $ctype, $error_method) = @_; $error_method ||= 'blurt'; my @avail_ctypes = $tm->list_mapped_ctypes; my $err = "Could not find a typemap for C type '$ctype'.\n" . "The following C types are mapped by the current typemap:\n'" . join("', '", @avail_ctypes) . "'\n"; $self->$error_method($err); return(); } 1; # vim: ts=2 sw=2 et: PK ! �9&h h 5.34.0/ExtUtils/MM_NW5.pmnu �[��� package ExtUtils::MM_NW5; =head1 NAME ExtUtils::MM_NW5 - methods to override UN*X behaviour in ExtUtils::MakeMaker =head1 SYNOPSIS use ExtUtils::MM_NW5; # Done internally by ExtUtils::MakeMaker if needed =head1 DESCRIPTION See L<ExtUtils::MM_Unix> for a documentation of the methods provided there. This package overrides the implementation of these methods, not the semantics. =over =cut use strict; use warnings; use ExtUtils::MakeMaker::Config; use File::Basename; our $VERSION = '7.62'; $VERSION =~ tr/_//d; require ExtUtils::MM_Win32; our @ISA = qw(ExtUtils::MM_Win32); use ExtUtils::MakeMaker qw(&neatvalue &_sprintf562); $ENV{EMXSHELL} = 'sh'; # to run `commands` my $BORLAND = $Config{'cc'} =~ /\bbcc/i; my $GCC = $Config{'cc'} =~ /\bgcc/i; =item os_flavor We're Netware in addition to being Windows. =cut sub os_flavor { my $self = shift; return ($self->SUPER::os_flavor, 'Netware'); } =item init_platform Add Netware macros. LIBPTH, BASE_IMPORT, NLM_VERSION, MPKTOOL, TOOLPATH, BOOT_SYMBOL, NLM_SHORT_NAME, INCLUDE, PATH, MM_NW5_REVISION =item platform_constants Add Netware macros initialized above to the Makefile. =cut sub init_platform { my($self) = shift; # To get Win32's setup. $self->SUPER::init_platform; # incpath is copied to makefile var INCLUDE in constants sub, here just # make it empty my $libpth = $Config{'libpth'}; $libpth =~ s( )(;); $self->{'LIBPTH'} = $libpth; $self->{'BASE_IMPORT'} = $Config{'base_import'}; # Additional import file specified from Makefile.pl if($self->{'base_import'}) { $self->{'BASE_IMPORT'} .= ', ' . $self->{'base_import'}; } $self->{'NLM_VERSION'} = $Config{'nlm_version'}; $self->{'MPKTOOL'} = $Config{'mpktool'}; $self->{'TOOLPATH'} = $Config{'toolpath'}; (my $boot = $self->{'NAME'}) =~ s/:/_/g; $self->{'BOOT_SYMBOL'}=$boot; # If the final binary name is greater than 8 chars, # truncate it here. if(length($self->{'BASEEXT'}) > 8) { $self->{'NLM_SHORT_NAME'} = substr($self->{'BASEEXT'},0,8); } # Get the include path and replace the spaces with ; # Copy this to makefile as INCLUDE = d:\...;d:\; ($self->{INCLUDE} = $Config{'incpath'}) =~ s/([ ]*)-I/;/g; # Set the path to CodeWarrior binaries which might not have been set in # any other place $self->{PATH} = '$(PATH);$(TOOLPATH)'; $self->{MM_NW5_VERSION} = $VERSION; } sub platform_constants { my($self) = shift; my $make_frag = ''; # Setup Win32's constants. $make_frag .= $self->SUPER::platform_constants; foreach my $macro (qw(LIBPTH BASE_IMPORT NLM_VERSION MPKTOOL TOOLPATH BOOT_SYMBOL NLM_SHORT_NAME INCLUDE PATH MM_NW5_VERSION )) { next unless defined $self->{$macro}; $make_frag .= "$macro = $self->{$macro}\n"; } return $make_frag; } =item static_lib_pure_cmd Defines how to run the archive utility =cut sub static_lib_pure_cmd { my ($self, $src) = @_; $src =~ s/(\$\(\w+)(\))/$1:^"+"$2/g if $BORLAND; sprintf qq{\t\$(AR) %s\n}, ($BORLAND ? '$@ ' . $src : ($GCC ? '-ru $@ ' . $src : '-type library -o $@ ' . $src)); } =item xs_static_lib_is_xs =cut sub xs_static_lib_is_xs { return 1; } =item dynamic_lib Override of utility methods for OS-specific work. =cut sub xs_make_dynamic_lib { my ($self, $attribs, $from, $to, $todir, $ldfrom, $exportlist) = @_; my @m; # Taking care of long names like FileHandle, ByteLoader, SDBM_File etc if ($to =~ /^\$/) { if ($self->{NLM_SHORT_NAME}) { # deal with shortnames my $newto = q{$(INST_AUTODIR)\\$(NLM_SHORT_NAME).$(DLEXT)}; push @m, "$to: $newto\n\n"; $to = $newto; } } else { my ($v, $d, $f) = File::Spec->splitpath($to); # relies on $f having a literal "." in it, unlike for $(OBJ_EXT) if ($f =~ /[^\.]{9}\./) { # 9+ chars before '.', need to shorten $f = substr $f, 0, 8; } my $newto = File::Spec->catpath($v, $d, $f); push @m, "$to: $newto\n\n"; $to = $newto; } # bits below should be in dlsyms, not here # 1 2 3 4 push @m, _sprintf562 <<'MAKE_FRAG', $to, $from, $todir, $exportlist; # Create xdc data for an MT safe NLM in case of mpk build %1$s: %2$s $(MYEXTLIB) $(BOOTSTRAP) %3$s$(DFSEP).exists $(NOECHO) $(ECHO) Export boot_$(BOOT_SYMBOL) > %4$s $(NOECHO) $(ECHO) $(BASE_IMPORT) >> %4$s $(NOECHO) $(ECHO) Import @$(PERL_INC)\perl.imp >> %4$s MAKE_FRAG if ( $self->{CCFLAGS} =~ m/ -DMPK_ON /) { (my $xdc = $exportlist) =~ s#def\z#xdc#; $xdc = '$(BASEEXT).xdc'; push @m, sprintf <<'MAKE_FRAG', $xdc, $exportlist; $(MPKTOOL) $(XDCFLAGS) %s $(NOECHO) $(ECHO) xdcdata $(BASEEXT).xdc >> %s MAKE_FRAG } # Reconstruct the X.Y.Z version. my $version = join '.', map { sprintf "%d", $_ } "$]" =~ /(\d)\.(\d{3})(\d{2})/; push @m, sprintf <<'EOF', $from, $version, $to, $exportlist; $(LD) $(LDFLAGS) %s -desc "Perl %s Extension ($(BASEEXT)) XS_VERSION: $(XS_VERSION)" -nlmversion $(NLM_VERSION) -o %s $(MYEXTLIB) $(PERL_INC)\Main.lib -commandfile %s $(CHMOD) 755 $@ EOF join '', @m; } 1; __END__ =back =cut PK ! x�m�7 �7 5.34.0/ExtUtils/Installed.pmnu �[��� use strict; package ExtUtils::Installed; #use warnings; # XXX requires 5.6 use Carp qw(); use ExtUtils::Packlist; use ExtUtils::MakeMaker; use Config; use File::Find; use File::Basename; use File::Spec; my $Is_VMS = $^O eq 'VMS'; my $DOSISH = ($^O =~ /^(MSWin\d\d|os2|dos|mint)$/); require VMS::Filespec if $Is_VMS; our $VERSION = '2.20'; $VERSION = eval $VERSION; sub _is_prefix { my ($self, $path, $prefix) = @_; return unless defined $prefix && defined $path; if( $Is_VMS ) { $prefix = VMS::Filespec::unixify($prefix); $path = VMS::Filespec::unixify($path); } # Unix path normalization. $prefix = File::Spec->canonpath($prefix); return 1 if substr($path, 0, length($prefix)) eq $prefix; if ($DOSISH) { $path =~ s|\\|/|g; $prefix =~ s|\\|/|g; return 1 if $path =~ m{^\Q$prefix\E}i; } return(0); } sub _is_doc { my ($self, $path) = @_; my $man1dir = $self->{':private:'}{Config}{man1direxp}; my $man3dir = $self->{':private:'}{Config}{man3direxp}; return(($man1dir && $self->_is_prefix($path, $man1dir)) || ($man3dir && $self->_is_prefix($path, $man3dir)) ? 1 : 0) } sub _is_type { my ($self, $path, $type) = @_; return 1 if $type eq "all"; return($self->_is_doc($path)) if $type eq "doc"; my $conf= $self->{':private:'}{Config}; if ($type eq "prog") { return($self->_is_prefix($path, $conf->{prefix} || $conf->{prefixexp}) && !($self->_is_doc($path)) ? 1 : 0); } return(0); } sub _is_under { my ($self, $path, @under) = @_; $under[0] = "" if (! @under); foreach my $dir (@under) { return(1) if ($self->_is_prefix($path, $dir)); } return(0); } sub _fix_dirs { my ($self, @dirs)= @_; # File::Find does not know how to deal with VMS filepaths. if( $Is_VMS ) { $_ = VMS::Filespec::unixify($_) for @dirs; } if ($DOSISH) { s|\\|/|g for @dirs; } return wantarray ? @dirs : $dirs[0]; } sub _make_entry { my ($self, $module, $packlist_file, $modfile)= @_; my $data= { module => $module, packlist => scalar(ExtUtils::Packlist->new($packlist_file)), packlist_file => $packlist_file, }; if (!$modfile) { $data->{version} = $self->{':private:'}{Config}{version}; } else { $data->{modfile} = $modfile; # Find the top-level module file in @INC $data->{version} = ''; foreach my $dir (@{$self->{':private:'}{INC}}) { my $p = File::Spec->catfile($dir, $modfile); if (-r $p) { $module = _module_name($p, $module) if $Is_VMS; $data->{version} = MM->parse_version($p); $data->{version_from} = $p; $data->{packlist_valid} = exists $data->{packlist}{$p}; last; } } } $self->{$module}= $data; } our $INSTALLED; sub new { my ($class) = shift(@_); $class = ref($class) || $class; my %args = @_; return $INSTALLED if $INSTALLED and ($args{default_get} || $args{default}); my $self = bless {}, $class; $INSTALLED= $self if $args{default_set} || $args{default}; if ($args{config_override}) { eval { $self->{':private:'}{Config} = { %{$args{config_override}} }; } or Carp::croak( "The 'config_override' parameter must be a hash reference." ); } else { $self->{':private:'}{Config} = \%Config; } for my $tuple ([inc_override => INC => [ @INC ] ], [ extra_libs => EXTRA => [] ]) { my ($arg,$key,$val)=@$tuple; if ( $args{$arg} ) { eval { $self->{':private:'}{$key} = [ @{$args{$arg}} ]; } or Carp::croak( "The '$arg' parameter must be an array reference." ); } elsif ($val) { $self->{':private:'}{$key} = $val; } } { my %dupe; @{$self->{':private:'}{LIBDIRS}} = grep { $_ ne '.' || ! $args{skip_cwd} } grep { -e $_ && !$dupe{$_}++ } @{$self->{':private:'}{EXTRA}}, @{$self->{':private:'}{INC}}; } my @dirs= $self->_fix_dirs(@{$self->{':private:'}{LIBDIRS}}); # Read the core packlist my $archlib = $self->_fix_dirs($self->{':private:'}{Config}{archlibexp}); $self->_make_entry("Perl",File::Spec->catfile($archlib, '.packlist')); my $root; # Read the module packlists my $sub = sub { # Only process module .packlists return if $_ ne ".packlist" || $File::Find::dir eq $archlib; # Hack of the leading bits of the paths & convert to a module name my $module = $File::Find::name; my $found = $module =~ s!^.*?/auto/(.*)/.packlist!$1!s or do { # warn "Woah! \$_=$_\n\$module=$module\n\$File::Find::dir=$File::Find::dir\n", # join ("\n",@dirs); return; }; my $modfile = "$module.pm"; $module =~ s!/!::!g; return if $self->{$module}; #shadowing? $self->_make_entry($module,$File::Find::name,$modfile); }; while (@dirs) { $root= shift @dirs; next if !-d $root; find($sub,$root); } return $self; } # VMS's non-case preserving file-system means the package name can't # be reconstructed from the filename. sub _module_name { my($file, $orig_module) = @_; my $module = ''; if (open PACKFH, $file) { while (<PACKFH>) { if (/package\s+(\S+)\s*;/) { my $pack = $1; # Make a sanity check, that lower case $module # is identical to lowercase $pack before # accepting it if (lc($pack) eq lc($orig_module)) { $module = $pack; last; } } } close PACKFH; } print STDERR "Couldn't figure out the package name for $file\n" unless $module; return $module; } sub modules { my ($self) = @_; $self= $self->new(default=>1) if !ref $self; # Bug/feature of sort in scalar context requires this. return wantarray ? sort grep { not /^:private:$/ } keys %$self : grep { not /^:private:$/ } keys %$self; } sub files { my ($self, $module, $type, @under) = @_; $self= $self->new(default=>1) if !ref $self; # Validate arguments Carp::croak("$module is not installed") if (! exists($self->{$module})); $type = "all" if (! defined($type)); Carp::croak('type must be "all", "prog" or "doc"') if ($type ne "all" && $type ne "prog" && $type ne "doc"); my (@files); foreach my $file (keys(%{$self->{$module}{packlist}})) { push(@files, $file) if ($self->_is_type($file, $type) && $self->_is_under($file, @under)); } return(@files); } sub directories { my ($self, $module, $type, @under) = @_; $self= $self->new(default=>1) if !ref $self; my (%dirs); foreach my $file ($self->files($module, $type, @under)) { $dirs{dirname($file)}++; } return sort keys %dirs; } sub directory_tree { my ($self, $module, $type, @under) = @_; $self= $self->new(default=>1) if !ref $self; my (%dirs); foreach my $dir ($self->directories($module, $type, @under)) { $dirs{$dir}++; my ($last) = (""); while ($last ne $dir) { $last = $dir; $dir = dirname($dir); last if !$self->_is_under($dir, @under); $dirs{$dir}++; } } return(sort(keys(%dirs))); } sub validate { my ($self, $module, $remove) = @_; $self= $self->new(default=>1) if !ref $self; Carp::croak("$module is not installed") if (! exists($self->{$module})); return($self->{$module}{packlist}->validate($remove)); } sub packlist { my ($self, $module) = @_; $self= $self->new(default=>1) if !ref $self; Carp::croak("$module is not installed") if (! exists($self->{$module})); return($self->{$module}{packlist}); } sub version { my ($self, $module) = @_; $self= $self->new(default=>1) if !ref $self; Carp::croak("$module is not installed") if (! exists($self->{$module})); return($self->{$module}{version}); } sub _debug_dump { my ($self, $module) = @_; $self= $self->new(default=>1) if !ref $self; local $self->{":private:"}{Config}; require Data::Dumper; print Data::Dumper->new([$self])->Sortkeys(1)->Indent(1)->Dump(); } 1; __END__ =head1 NAME ExtUtils::Installed - Inventory management of installed modules =head1 SYNOPSIS use ExtUtils::Installed; my ($inst) = ExtUtils::Installed->new( skip_cwd => 1 ); my (@modules) = $inst->modules(); my (@missing) = $inst->validate("DBI"); my $all_files = $inst->files("DBI"); my $files_below_usr_local = $inst->files("DBI", "all", "/usr/local"); my $all_dirs = $inst->directories("DBI"); my $dirs_below_usr_local = $inst->directory_tree("DBI", "prog"); my $packlist = $inst->packlist("DBI"); =head1 DESCRIPTION ExtUtils::Installed provides a standard way to find out what core and module files have been installed. It uses the information stored in .packlist files created during installation to provide this information. In addition it provides facilities to classify the installed files and to extract directory information from the .packlist files. =head1 USAGE The new() function searches for all the installed .packlists on the system, and stores their contents. The .packlists can be queried with the functions described below. Where it searches by default is determined by the settings found in C<%Config::Config>, and what the value is of the PERL5LIB environment variable. =head1 METHODS Unless specified otherwise all method can be called as class methods, or as object methods. If called as class methods then the "default" object will be used, and if necessary created using the current processes %Config and @INC. See the 'default' option to new() for details. =over 4 =item new() This takes optional named parameters. Without parameters, this searches for all the installed .packlists on the system using information from C<%Config::Config> and the default module search paths C<@INC>. The packlists are read using the L<ExtUtils::Packlist> module. If the named parameter C<skip_cwd> is true, the current directory C<.> will be stripped from C<@INC> before searching for .packlists. This keeps ExtUtils::Installed from finding modules installed in other perls that happen to be located below the current directory. If the named parameter C<config_override> is specified, it should be a reference to a hash which contains all information usually found in C<%Config::Config>. For example, you can obtain the configuration information for a separate perl installation and pass that in. my $yoda_cfg = get_fake_config('yoda'); my $yoda_inst = ExtUtils::Installed->new(config_override=>$yoda_cfg); Similarly, the parameter C<inc_override> may be a reference to an array which is used in place of the default module search paths from C<@INC>. use Config; my @dirs = split(/\Q$Config{path_sep}\E/, $ENV{PERL5LIB}); my $p5libs = ExtUtils::Installed->new(inc_override=>\@dirs); B<Note>: You probably do not want to use these options alone, almost always you will want to set both together. The parameter C<extra_libs> can be used to specify B<additional> paths to search for installed modules. For instance my $installed = ExtUtils::Installed->new(extra_libs=>["/my/lib/path"]); This should only be necessary if F</my/lib/path> is not in PERL5LIB. Finally there is the 'default', and the related 'default_get' and 'default_set' options. These options control the "default" object which is provided by the class interface to the methods. Setting C<default_get> to true tells the constructor to return the default object if it is defined. Setting C<default_set> to true tells the constructor to make the default object the constructed object. Setting the C<default> option is like setting both to true. This is used primarily internally and probably isn't interesting to any real user. =item modules() This returns a list of the names of all the installed modules. The perl 'core' is given the special name 'Perl'. =item files() This takes one mandatory parameter, the name of a module. It returns a list of all the filenames from the package. To obtain a list of core perl files, use the module name 'Perl'. Additional parameters are allowed. The first is one of the strings "prog", "doc" or "all", to select either just program files, just manual files or all files. The remaining parameters are a list of directories. The filenames returned will be restricted to those under the specified directories. =item directories() This takes one mandatory parameter, the name of a module. It returns a list of all the directories from the package. Additional parameters are allowed. The first is one of the strings "prog", "doc" or "all", to select either just program directories, just manual directories or all directories. The remaining parameters are a list of directories. The directories returned will be restricted to those under the specified directories. This method returns only the leaf directories that contain files from the specified module. =item directory_tree() This is identical in operation to directories(), except that it includes all the intermediate directories back up to the specified directories. =item validate() This takes one mandatory parameter, the name of a module. It checks that all the files listed in the modules .packlist actually exist, and returns a list of any missing files. If an optional second argument which evaluates to true is given any missing files will be removed from the .packlist =item packlist() This returns the ExtUtils::Packlist object for the specified module. =item version() This returns the version number for the specified module. =back =head1 EXAMPLE See the example in L<ExtUtils::Packlist>. =head1 AUTHOR Alan Burlison <Alan.Burlison@uk.sun.com> =cut PK ! �V k 5.34.0/ExtUtils/Command/MM.pmnu �[��� package ExtUtils::Command::MM; require 5.006; use strict; use warnings; require Exporter; our @ISA = qw(Exporter); our @EXPORT = qw(test_harness pod2man perllocal_install uninstall warn_if_old_packlist test_s cp_nonempty); our $VERSION = '7.62'; $VERSION =~ tr/_//d; my $Is_VMS = $^O eq 'VMS'; sub mtime { no warnings 'redefine'; local $@; *mtime = (eval { require Time::HiRes } && defined &Time::HiRes::stat) ? sub { (Time::HiRes::stat($_[0]))[9] } : sub { ( stat($_[0]))[9] } ; goto &mtime; } =head1 NAME ExtUtils::Command::MM - Commands for the MM's to use in Makefiles =head1 SYNOPSIS perl "-MExtUtils::Command::MM" -e "function" "--" arguments... =head1 DESCRIPTION B<FOR INTERNAL USE ONLY!> The interface is not stable. ExtUtils::Command::MM encapsulates code which would otherwise have to be done with large "one" liners. Any $(FOO) used in the examples are make variables, not Perl. =over 4 =item B<test_harness> test_harness($verbose, @test_libs); Runs the tests on @ARGV via Test::Harness passing through the $verbose flag. Any @test_libs will be unshifted onto the test's @INC. @test_libs are run in alphabetical order. =cut sub test_harness { require Test::Harness; require File::Spec; $Test::Harness::verbose = shift; # Because Windows doesn't do this for us and listing all the *.t files # out on the command line can blow over its exec limit. require ExtUtils::Command; my @argv = ExtUtils::Command::expand_wildcards(@ARGV); local @INC = @INC; unshift @INC, map { File::Spec->rel2abs($_) } @_; Test::Harness::runtests(sort { lc $a cmp lc $b } @argv); } =item B<pod2man> pod2man( '--option=value', $podfile1 => $manpage1, $podfile2 => $manpage2, ... ); # or args on @ARGV pod2man() is a function performing most of the duties of the pod2man program. Its arguments are exactly the same as pod2man as of 5.8.0 with the addition of: --perm_rw octal permission to set the resulting manpage to And the removal of: --verbose/-v --help/-h If no arguments are given to pod2man it will read from @ARGV. If Pod::Man is unavailable, this function will warn and return undef. =cut sub pod2man { local @ARGV = @_ ? @_ : @ARGV; { local $@; if( !eval { require Pod::Man } ) { warn "Pod::Man is not available: $@". "Man pages will not be generated during this install.\n"; return 0; } } require Getopt::Long; # We will cheat and just use Getopt::Long. We fool it by putting # our arguments into @ARGV. Should be safe. my %options = (); Getopt::Long::config ('bundling_override'); Getopt::Long::GetOptions (\%options, 'section|s=s', 'release|r=s', 'center|c=s', 'date|d=s', 'fixed=s', 'fixedbold=s', 'fixeditalic=s', 'fixedbolditalic=s', 'official|o', 'quotes|q=s', 'lax|l', 'name|n=s', 'perm_rw=i', 'utf8|u' ); delete $options{utf8} unless $Pod::Man::VERSION >= 2.17; # If there's no files, don't bother going further. return 0 unless @ARGV; # Official sets --center, but don't override things explicitly set. if ($options{official} && !defined $options{center}) { $options{center} = q[Perl Programmer's Reference Guide]; } # This isn't a valid Pod::Man option and is only accepted for backwards # compatibility. delete $options{lax}; my $count = scalar @ARGV / 2; my $plural = $count == 1 ? 'document' : 'documents'; print "Manifying $count pod $plural\n"; do {{ # so 'next' works my ($pod, $man) = splice(@ARGV, 0, 2); next if ((-e $man) && (mtime($man) > mtime($pod)) && (mtime($man) > mtime("Makefile"))); my $parser = Pod::Man->new(%options); $parser->parse_from_file($pod, $man) or do { warn("Could not install $man\n"); next }; if (exists $options{perm_rw}) { chmod(oct($options{perm_rw}), $man) or do { warn("chmod $options{perm_rw} $man: $!\n"); next }; } }} while @ARGV; return 1; } =item B<warn_if_old_packlist> perl "-MExtUtils::Command::MM" -e warn_if_old_packlist <somefile> Displays a warning that an old packlist file was found. Reads the filename from @ARGV. =cut sub warn_if_old_packlist { my $packlist = $ARGV[0]; return unless -f $packlist; print <<"PACKLIST_WARNING"; WARNING: I have found an old package in $packlist. Please make sure the two installations are not conflicting PACKLIST_WARNING } =item B<perllocal_install> perl "-MExtUtils::Command::MM" -e perllocal_install <type> <module name> <key> <value> ... # VMS only, key|value pairs come on STDIN perl "-MExtUtils::Command::MM" -e perllocal_install <type> <module name> < <key>|<value> ... Prints a fragment of POD suitable for appending to perllocal.pod. Arguments are read from @ARGV. 'type' is the type of what you're installing. Usually 'Module'. 'module name' is simply the name of your module. (Foo::Bar) Key/value pairs are extra information about the module. Fields include: installed into which directory your module was out into LINKTYPE dynamic or static linking VERSION module version number EXE_FILES any executables installed in a space separated list =cut sub perllocal_install { my($type, $name) = splice(@ARGV, 0, 2); # VMS feeds args as a piped file on STDIN since it usually can't # fit all the args on a single command line. my @mod_info = $Is_VMS ? split /\|/, <STDIN> : @ARGV; my $pod; my $time = gmtime($ENV{SOURCE_DATE_EPOCH} || time); $pod = sprintf <<'POD', scalar($time), $type, $name, $name; =head2 %s: C<%s> L<%s|%s> =over 4 POD do { my($key, $val) = splice(@mod_info, 0, 2); $pod .= <<POD =item * C<$key: $val> POD } while(@mod_info); $pod .= "=back\n\n"; $pod =~ s/^ //mg; print $pod; return 1; } =item B<uninstall> perl "-MExtUtils::Command::MM" -e uninstall <packlist> A wrapper around ExtUtils::Install::uninstall(). Warns that uninstallation is deprecated and doesn't actually perform the uninstallation. =cut sub uninstall { my($packlist) = shift @ARGV; require ExtUtils::Install; print <<'WARNING'; Uninstall is unsafe and deprecated, the uninstallation was not performed. We will show what would have been done. WARNING ExtUtils::Install::uninstall($packlist, 1, 1); print <<'WARNING'; Uninstall is unsafe and deprecated, the uninstallation was not performed. Please check the list above carefully, there may be errors. Remove the appropriate files manually. Sorry for the inconvenience. WARNING } =item B<test_s> perl "-MExtUtils::Command::MM" -e test_s <file> Tests if a file exists and is not empty (size > 0). I<Exits> with 0 if it does, 1 if it does not. =cut sub test_s { exit(-s $ARGV[0] ? 0 : 1); } =item B<cp_nonempty> perl "-MExtUtils::Command::MM" -e cp_nonempty <srcfile> <dstfile> <perm> Tests if the source file exists and is not empty (size > 0). If it is not empty it copies it to the given destination with the given permissions. =back =cut sub cp_nonempty { my @args = @ARGV; return 0 unless -s $args[0]; require ExtUtils::Command; { local @ARGV = @args[0,1]; ExtUtils::Command::cp(@ARGV); } { local @ARGV = @args[2,1]; ExtUtils::Command::chmod(@ARGV); } } 1; PK ! <i��D2 D2 5.34.0/ExtUtils/Embed.pmnu �[��� package ExtUtils::Embed; require Exporter; use Config; require File::Spec; our ( @Extensions, $opt_o, $opt_s ); use strict; # This is not a dual-life module, so no need for development version numbers our $VERSION = '1.35'; our @ISA = qw(Exporter); our @EXPORT = qw(&xsinit &ldopts &ccopts &ccflags &ccdlflags &perl_inc &xsi_header &xsi_protos &xsi_body); our $Verbose = 0; our $lib_ext = $Config{lib_ext} || '.a'; sub is_cmd { $0 eq '-e' } sub my_return { my $val = shift; if(is_cmd) { print $val; } else { return $val; } } sub xsinit { my($file, $std, $mods) = @_; my($fh,@mods,%seen); $file ||= "perlxsi.c"; my $xsinit_proto = "pTHX"; if (@_) { @mods = @$mods if $mods; } else { require Getopt::Std; Getopt::Std::getopts('o:s:'); $file = $opt_o if defined $opt_o; $std = $opt_s if defined $opt_s; @mods = @ARGV; } $std = 1 unless scalar @mods; if ($file eq "STDOUT") { $fh = \*STDOUT; } else { open $fh, '>', $file or die "Can't open '$file': $!"; } push(@mods, static_ext()) if defined $std; @mods = grep(!$seen{$_}++, @mods); print $fh &xsi_header(); print $fh "\nEXTERN_C void xs_init ($xsinit_proto);\n\n"; print $fh &xsi_protos(@mods); print $fh "\nEXTERN_C void\nxs_init($xsinit_proto)\n{\n"; print $fh &xsi_body(@mods); print $fh "}\n"; } sub xsi_header { return <<EOF; #include "EXTERN.h" #include "perl.h" #include "XSUB.h" EOF } sub xsi_protos { my @exts = @_; my %seen; my $retval = ''; foreach my $cname (canon('__', @exts)) { my $ccode = "EXTERN_C void boot_${cname} (pTHX_ CV* cv);\n"; $retval .= $ccode unless $seen{$ccode}++; } return $retval; } sub xsi_body { my @exts = @_; my %seen; my $retval; $retval .= " static const char file[] = __FILE__;\n" if @exts; $retval .= <<'EOT'; dXSUB_SYS; PERL_UNUSED_CONTEXT; EOT $retval .= "\n" if @exts; foreach my $pname (canon('/', @exts)) { next if $seen{$pname}++; (my $mname = $pname) =~ s!/!::!g; (my $cname = $pname) =~ s!/!__!g; my $fname; if ($pname eq 'DynaLoader'){ # Must NOT install 'DynaLoader::boot_DynaLoader' as 'bootstrap'! # boot_DynaLoader is called directly in DynaLoader.pm $retval .= " /* DynaLoader is a special case */\n"; $fname = "${mname}::boot_DynaLoader"; } else { $fname = "${mname}::bootstrap"; } $retval .= " newXS(\"$fname\", boot_${cname}, file);\n" } return $retval; } sub static_ext { @Extensions = ('DynaLoader', sort $Config{static_ext} =~ /(\S+)/g) unless @Extensions; @Extensions; } sub _escape { my $arg = shift; return $$arg if $^O eq 'VMS'; # parens legal in qualifier lists $$arg =~ s/([\(\)])/\\$1/g; } sub _ldflags { my $ldflags = $Config{ldflags}; _escape(\$ldflags); return $ldflags; } sub _ccflags { my $ccflags = $Config{ccflags}; _escape(\$ccflags); return $ccflags; } sub _ccdlflags { my $ccdlflags = $Config{ccdlflags}; _escape(\$ccdlflags); return $ccdlflags; } sub ldopts { require ExtUtils::MakeMaker; require ExtUtils::Liblist; my($std,$mods,$link_args,$path) = @_; my(@mods,@link_args,@argv); my($dllib,$config_libs,@potential_libs,@path); local($") = ' ' unless $" eq ' '; if (scalar @_) { @link_args = @$link_args if $link_args; @mods = @$mods if $mods; } else { @argv = @ARGV; #hmm while($_ = shift @argv) { /^-std$/ && do { $std = 1; next; }; /^--$/ && do { @link_args = @argv; last; }; /^-I(.*)/ && do { $path = $1 || shift @argv; next; }; push(@mods, $_); } } $std = 1 unless scalar @link_args; my $sep = $Config{path_sep} || ':'; @path = $path ? split(/\Q$sep/, $path) : @INC; push(@potential_libs, @link_args) if scalar @link_args; # makemaker includes std libs on windows by default if ($^O ne 'MSWin32' and defined($std)) { push(@potential_libs, $Config{perllibs}); } push(@mods, static_ext()) if $std; my($mod,@ns,$root,$sub,$extra,$archive,@archives); print STDERR "Searching (@path) for archives\n" if $Verbose; foreach $mod (@mods) { @ns = split(/::|\/|\\/, $mod); $sub = $ns[-1]; $root = File::Spec->catdir(@ns); print STDERR "searching for '$sub${lib_ext}'\n" if $Verbose; foreach (@path) { next unless -e ($archive = File::Spec->catdir($_,"auto",$root,"$sub$lib_ext")); push @archives, $archive; if(-e ($extra = File::Spec->catdir($_,"auto",$root,"extralibs.ld"))) { local(*FH); if(open(FH, '<', $extra)) { my($libs) = <FH>; chomp $libs; push @potential_libs, split /\s+/, $libs; } else { warn "Couldn't open '$extra'"; } } last; } } #print STDERR "\@potential_libs = @potential_libs\n"; my $libperl; if ($^O eq 'MSWin32') { $libperl = $Config{libperl}; } elsif ($^O eq 'os390' && $Config{usedl}) { # Nothing for OS/390 (z/OS) dynamic. } else { $libperl = (grep(/^-l\w*perl\w*$/, @link_args))[0] || ($Config{libperl} =~ /^lib(\w+)(\Q$lib_ext\E|\.\Q$Config{dlext}\E)$/ ? "-l$1" : '') || "-lperl"; } my $lpath = File::Spec->catdir($Config{archlibexp}, 'CORE'); $lpath = qq["$lpath"] if $^O eq 'MSWin32'; my($extralibs, $bsloadlibs, $ldloadlibs, $ld_run_path) = MM->ext(join ' ', "-L$lpath", $libperl, @potential_libs); my $ld_or_bs = $bsloadlibs || $ldloadlibs; print STDERR "bs: $bsloadlibs ** ld: $ldloadlibs" if $Verbose; my $ccdlflags = _ccdlflags(); my $ldflags = _ldflags(); my $linkage = "$ccdlflags $ldflags @archives $ld_or_bs"; print STDERR "ldopts: '$linkage'\n" if $Verbose; return $linkage if scalar @_; my_return("$linkage\n"); } sub ccflags { my $ccflags = _ccflags(); my_return(" $ccflags "); } sub ccdlflags { my $ccdlflags = _ccdlflags(); my_return(" $ccdlflags "); } sub perl_inc { my $dir = File::Spec->catdir($Config{archlibexp}, 'CORE'); $dir = qq["$dir"] if $^O eq 'MSWin32'; my_return(" -I$dir "); } sub ccopts { ccflags . perl_inc; } sub canon { my($as, @ext) = @_; foreach(@ext) { # might be X::Y or lib/auto/X/Y/Y.a next if s!::!/!g; s!^(?:lib|ext|dist|cpan)/(?:auto/)?!!; s!/\w+\.\w+$!!; } if ($as ne '/') { s!/!$as!g foreach @ext; } @ext; } __END__ =head1 NAME ExtUtils::Embed - Utilities for embedding Perl in C/C++ applications =head1 SYNOPSIS perl -MExtUtils::Embed -e xsinit perl -MExtUtils::Embed -e ccopts perl -MExtUtils::Embed -e ldopts =head1 DESCRIPTION C<ExtUtils::Embed> provides utility functions for embedding a Perl interpreter and extensions in your C/C++ applications. Typically, an application F<Makefile> will invoke C<ExtUtils::Embed> functions while building your application. Note that on Debian systems the B<libperl-dev> package is required for compiling applications which embed an interpreter. =head1 @EXPORT C<ExtUtils::Embed> exports the following functions: xsinit(), ldopts(), ccopts(), perl_inc(), ccflags(), ccdlflags(), xsi_header(), xsi_protos(), xsi_body() =head1 FUNCTIONS =over 4 =item xsinit() Generate C/C++ code for the XS initializer function. When invoked as C<`perl -MExtUtils::Embed -e xsinit --`> the following options are recognized: B<-o> E<lt>output filenameE<gt> (Defaults to B<perlxsi.c>) B<-o STDOUT> will print to STDOUT. B<-std> (Write code for extensions that are linked with the current Perl.) Any additional arguments are expected to be names of modules to generate code for. When invoked with parameters the following are accepted and optional: C<xsinit($filename,$std,[@modules])> Where, B<$filename> is equivalent to the B<-o> option. B<$std> is boolean, equivalent to the B<-std> option. B<[@modules]> is an array ref, same as additional arguments mentioned above. =item Examples perl -MExtUtils::Embed -e xsinit -- -o xsinit.c Socket This will generate code with an C<xs_init> function that glues the perl C<Socket::bootstrap> function to the C C<boot_Socket> function and writes it to a file named F<xsinit.c>. Note that L<DynaLoader> is a special case where it must call C<boot_DynaLoader> directly. perl -MExtUtils::Embed -e xsinit This will generate code for linking with C<DynaLoader> and each static extension found in C<$Config{static_ext}>. The code is written to the default file name F<perlxsi.c>. perl -MExtUtils::Embed -e xsinit -- -o xsinit.c \ -std DBI DBD::Oracle Here, code is written for all the currently linked extensions along with code for C<DBI> and C<DBD::Oracle>. If you have a working C<DynaLoader> then there is rarely any need to statically link in any other extensions. =item ldopts() Output arguments for linking the Perl library and extensions to your application. When invoked as C<`perl -MExtUtils::Embed -e ldopts --`> the following options are recognized: B<-std> Output arguments for linking the Perl library and any extensions linked with the current Perl. B<-I> E<lt>path1:path2E<gt> Search path for ModuleName.a archives. Default path is C<@INC>. Library archives are expected to be found as F</some/path/auto/ModuleName/ModuleName.a> For example, when looking for F<Socket.a> relative to a search path, we should find F<auto/Socket/Socket.a> When looking for C<DBD::Oracle> relative to a search path, we should find F<auto/DBD/Oracle/Oracle.a> Keep in mind that you can always supply F</my/own/path/ModuleName.a> as an additional linker argument. B<--> E<lt>list of linker argsE<gt> Additional linker arguments to be considered. Any additional arguments found before the B<--> token are expected to be names of modules to generate code for. When invoked with parameters the following are accepted and optional: C<ldopts($std,[@modules],[@link_args],$path)> Where: B<$std> is boolean, equivalent to the B<-std> option. B<[@modules]> is equivalent to additional arguments found before the B<--> token. B<[@link_args]> is equivalent to arguments found after the B<--> token. B<$path> is equivalent to the B<-I> option. In addition, when ldopts is called with parameters, it will return the argument string rather than print it to STDOUT. =item Examples perl -MExtUtils::Embed -e ldopts This will print arguments for linking with C<libperl> and extensions found in C<$Config{static_ext}>. This includes libraries found in C<$Config{libs}> and the first ModuleName.a library for each extension that is found by searching C<@INC> or the path specified by the B<-I> option. In addition, when ModuleName.a is found, additional linker arguments are picked up from the F<extralibs.ld> file in the same directory. perl -MExtUtils::Embed -e ldopts -- -std Socket This will do the same as the above example, along with printing additional arguments for linking with the C<Socket> extension. perl -MExtUtils::Embed -e ldopts -- -std Msql -- \ -L/usr/msql/lib -lmsql Any arguments after the second '--' token are additional linker arguments that will be examined for potential conflict. If there is no conflict, the additional arguments will be part of the output. =item perl_inc() For including perl header files this function simply prints: -I$Config{archlibexp}/CORE So, rather than having to say: perl -MConfig -e 'print "-I$Config{archlibexp}/CORE"' Just say: perl -MExtUtils::Embed -e perl_inc =item ccflags(), ccdlflags() These functions simply print $Config{ccflags} and $Config{ccdlflags} =item ccopts() This function combines C<perl_inc()>, C<ccflags()> and C<ccdlflags()> into one. =item xsi_header() This function simply returns a string defining the same C<EXTERN_C> macro as F<perlmain.c> along with #including F<perl.h> and F<EXTERN.h>. =item xsi_protos(@modules) This function returns a string of C<boot_$ModuleName> prototypes for each @modules. =item xsi_body(@modules) This function returns a string of calls to C<newXS()> that glue the module I<bootstrap> function to I<boot_ModuleName> for each @modules. C<xsinit()> uses the xsi_* functions to generate most of its code. =back =head1 EXAMPLES For examples on how to use C<ExtUtils::Embed> for building C/C++ applications with embedded perl, see L<perlembed>. =head1 SEE ALSO L<perlembed> =head1 AUTHOR Doug MacEachern E<lt>C<dougm@osf.org>E<gt> Based on ideas from Tim Bunce E<lt>C<Tim.Bunce@ig.co.uk>E<gt> and F<minimod.pl> by Andreas Koenig E<lt>C<k@anna.in-berlin.de>E<gt> and Tim Bunce. =cut PK ! 䋤�� � 5.34.0/ExtUtils/MM_MacOS.pmnu �[��� package ExtUtils::MM_MacOS; use strict; use warnings; our $VERSION = '7.62'; $VERSION =~ tr/_//d; sub new { die 'MacOS Classic (MacPerl) is no longer supported by MakeMaker'; } =head1 NAME ExtUtils::MM_MacOS - once produced Makefiles for MacOS Classic =head1 SYNOPSIS # MM_MacOS no longer contains any code. This is just a stub. =head1 DESCRIPTION Once upon a time, MakeMaker could produce an approximation of a correct Makefile on MacOS Classic (MacPerl). Due to a lack of maintainers, this fell out of sync with the rest of MakeMaker and hadn't worked in years. Since there's little chance of it being repaired, MacOS Classic is fading away, and the code was icky to begin with, the code has been deleted to make maintenance easier. Anyone interested in resurrecting this file should pull the old version from the MakeMaker CVS repository and contact makemaker@perl.org. =cut 1; PK ! �W]� � 5.34.0/ExtUtils/MM_OS390.pmnu �[��� package ExtUtils::MM_OS390; use strict; use warnings; our $VERSION = '7.62'; $VERSION =~ tr/_//d; use ExtUtils::MakeMaker::Config; require ExtUtils::MM_Unix; our @ISA = qw(ExtUtils::MM_Unix); =head1 NAME ExtUtils::MM_OS390 - OS390 specific subclass of ExtUtils::MM_Unix =head1 SYNOPSIS Don't use this module directly. Use ExtUtils::MM and let it choose. =head1 DESCRIPTION This is a subclass of L<ExtUtils::MM_Unix> which contains functionality for OS390. Unless otherwise stated it works just like ExtUtils::MM_Unix. =head2 Overriden methods =over =item xs_make_dynamic_lib Defines the recipes for the C<dynamic_lib> section. =cut sub xs_make_dynamic_lib { my ($self, $attribs, $object, $to, $todir, $ldfrom, $exportlist, $dlsyms) = @_; $exportlist = '' if $exportlist ne '$(EXPORT_LIST)'; my $armaybe = $self->_xs_armaybe($attribs); my @m = sprintf '%s : %s $(MYEXTLIB) %s$(DFSEP).exists %s $(PERL_ARCHIVEDEP) $(PERL_ARCHIVE_AFTER) $(INST_DYNAMIC_DEP) %s'."\n", $to, $object, $todir, $exportlist, ($dlsyms || ''); my $dlsyms_arg = $self->xs_dlsyms_arg($dlsyms); if ($armaybe ne ':'){ $ldfrom = 'tmp$(LIB_EXT)'; push(@m," \$(ARMAYBE) cr $ldfrom $object\n"); push(@m," \$(RANLIB) $ldfrom\n"); } # For example in AIX the shared objects/libraries from previous builds # linger quite a while in the shared dynalinker cache even when nobody # is using them. This is painful if one for instance tries to restart # a failed build because the link command will fail unnecessarily 'cos # the shared object/library is 'busy'. push(@m," \$(RM_F) \$\@\n"); my $libs = '$(LDLOADLIBS)'; my $ld_run_path_shell = ""; if ($self->{LD_RUN_PATH} ne "") { $ld_run_path_shell = 'LD_RUN_PATH="$(LD_RUN_PATH)" '; } push @m, sprintf <<'MAKE', $ld_run_path_shell, $dlsyms_arg, $self->xs_obj_opt('$@'), $ldfrom, $libs, $exportlist; %s$(LD) $(LDDLFLAGS) %s $(OTHERLDFLAGS) %s $(MYEXTLIB) %s \ $(PERL_ARCHIVE) %s $(PERL_ARCHIVE_AFTER) %s \ $(INST_DYNAMIC_FIX) $(CHMOD) $(PERM_RWX) $@ MAKE join '', @m; } 1; =back =head1 AUTHOR Michael G Schwern <schwern@pobox.com> with code from ExtUtils::MM_Unix =head1 SEE ALSO L<ExtUtils::MakeMaker> =cut __END__ PK ! Nx=�� � 5.34.0/ExtUtils/Mkbootstrap.pmnu �[��� package ExtUtils::Mkbootstrap; use strict; use warnings; our $VERSION = '7.62'; $VERSION =~ tr/_//d; require Exporter; our @ISA = ('Exporter'); our @EXPORT = ('&Mkbootstrap'); use Config; our $Verbose = 0; sub Mkbootstrap { my($baseext, @bsloadlibs)=@_; @bsloadlibs = grep($_, @bsloadlibs); # strip empty libs print " bsloadlibs=@bsloadlibs\n" if $Verbose; # We need DynaLoader here because we and/or the *_BS file may # call dl_findfile(). We don't say `use' here because when # first building perl extensions the DynaLoader will not have # been built when MakeMaker gets first used. require DynaLoader; rename "$baseext.bs", "$baseext.bso" if -s "$baseext.bs"; if (-f "${baseext}_BS"){ $_ = "${baseext}_BS"; package DynaLoader; # execute code as if in DynaLoader no strict 'vars'; local($osname, $dlsrc) = (); # avoid warnings ($osname, $dlsrc) = @Config::Config{qw(osname dlsrc)}; $bscode = ""; unshift @INC, "."; require $_; shift @INC; } if ($Config{'dlsrc'} =~ /^dl_dld/){ package DynaLoader; no strict 'vars'; push(@dl_resolve_using, dl_findfile('-lc')); } my(@all) = (@bsloadlibs, @DynaLoader::dl_resolve_using); my($method) = ''; if (@all || (defined $DynaLoader::bscode && length $DynaLoader::bscode)){ open my $bs, ">", "$baseext.bs" or die "Unable to open $baseext.bs: $!"; print "Writing $baseext.bs\n"; print " containing: @all" if $Verbose; print $bs "# $baseext DynaLoader bootstrap file for $^O architecture.\n"; print $bs "# Do not edit this file, changes will be lost.\n"; print $bs "# This file was automatically generated by the\n"; print $bs "# Mkbootstrap routine in ExtUtils::Mkbootstrap (v$VERSION).\n"; if (@all) { print $bs "\@DynaLoader::dl_resolve_using = "; # If @all contains names in the form -lxxx or -Lxxx then it's asking for # runtime library location so we automatically add a call to dl_findfile() if (" @all" =~ m/ -[lLR]/){ print $bs " dl_findfile(qw(\n @all\n ));\n"; } else { print $bs " qw(@all);\n"; } } # write extra code if *_BS says so print $bs $DynaLoader::bscode if $DynaLoader::bscode; print $bs "\n1;\n"; close $bs; } } 1; __END__ =head1 NAME ExtUtils::Mkbootstrap - make a bootstrap file for use by DynaLoader =head1 SYNOPSIS Mkbootstrap =head1 DESCRIPTION Mkbootstrap typically gets called from an extension Makefile. There is no C<*.bs> file supplied with the extension. Instead, there may be a C<*_BS> file which has code for the special cases, like posix for berkeley db on the NeXT. This file will get parsed, and produce a maybe empty C<@DynaLoader::dl_resolve_using> array for the current architecture. That will be extended by $BSLOADLIBS, which was computed by ExtUtils::Liblist::ext(). If this array still is empty, we do nothing, else we write a .bs file with an C<@DynaLoader::dl_resolve_using> array. The C<*_BS> file can put some code into the generated C<*.bs> file by placing it in C<$bscode>. This is a handy 'escape' mechanism that may prove useful in complex situations. If @DynaLoader::dl_resolve_using contains C<-L*> or C<-l*> entries then Mkbootstrap will automatically add a dl_findfile() call to the generated C<*.bs> file. =cut PK ! !.Q�� � 5.34.0/ExtUtils/Miniperl.pmnu �[��� #!./perl -w package ExtUtils::Miniperl; use strict; require Exporter; use ExtUtils::Embed 1.31, qw(xsi_header xsi_protos xsi_body); our @ISA = qw(Exporter); our @EXPORT = qw(writemain); our $VERSION = '1.10'; # blead will run this with miniperl, hence we can't use autodie or File::Temp my $temp; END { return if !defined $temp || !-e $temp; unlink $temp or warn "Can't unlink '$temp': $!"; } sub writemain{ my ($fh, $real); if (ref $_[0] eq 'SCALAR') { $real = ${+shift}; $temp = $real; $temp =~ s/(?:.c)?\z/.new/; open $fh, '>', $temp or die "Can't open '$temp' for writing: $!"; } elsif (ref $_[0]) { $fh = shift; } else { $fh = \*STDOUT; } my(@exts) = @_; printf $fh <<'EOF!HEAD', xsi_header(); /* miniperlmain.c or perlmain.c - a generated file * * Copyright (C) 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2002, 2003, * 2004, 2005, 2006, 2007, 2016 by Larry Wall and others * * You may distribute under the terms of either the GNU General Public * License or the Artistic License, as specified in the README file. * */ /* * The Road goes ever on and on * Down from the door where it began. * * [Bilbo on p.35 of _The Lord of the Rings_, I/i: "A Long-Expected Party"] * [Frodo on p.73 of _The Lord of the Rings_, I/iii: "Three Is Company"] */ /* This file contains the main() function for the perl interpreter. * Note that miniperlmain.c contains main() for the 'miniperl' binary, * while perlmain.c contains main() for the 'perl' binary. The typical * difference being that the latter includes Dynaloader. * * Miniperl is like perl except that it does not support dynamic loading, * and in fact is used to build the dynamic modules needed for the 'real' * perl executable. * * The content of the body of this generated file is mostly contained * in Miniperl.pm - edit that file if you want to change anything. * miniperlmain.c is generated by running regen/miniperlmain.pl, while * perlmain.c is built automatically by Makefile (so the former is * included in the tarball while the latter isn't). */ #ifdef OEMVS #ifdef MYMALLOC /* sbrk is limited to first heap segment so make it big */ #pragma runopts(HEAP(8M,500K,ANYWHERE,KEEP,8K,4K) STACK(,,ANY,) ALL31(ON)) #else #pragma runopts(HEAP(2M,500K,ANYWHERE,KEEP,8K,4K) STACK(,,ANY,) ALL31(ON)) #endif #endif #define PERL_IN_MINIPERLMAIN_C /* work round bug in MakeMaker which doesn't currently (2019) supply this * flag when making a statically linked perl */ #define PERL_CORE 1 %s static void xs_init (pTHX); static PerlInterpreter *my_perl; #ifdef NO_ENV_ARRAY_IN_MAIN extern char **environ; int main(int argc, char **argv) #else int main(int argc, char **argv, char **env) #endif { int exitstatus, i; #ifndef NO_ENV_ARRAY_IN_MAIN PERL_UNUSED_ARG(env); #endif #ifndef PERL_USE_SAFE_PUTENV PL_use_safe_putenv = FALSE; #endif /* PERL_USE_SAFE_PUTENV */ /* if user wants control of gprof profiling off by default */ /* noop unless Configure is given -Accflags=-DPERL_GPROF_CONTROL */ PERL_GPROF_MONCONTROL(0); #ifdef NO_ENV_ARRAY_IN_MAIN PERL_SYS_INIT3(&argc,&argv,&environ); #else PERL_SYS_INIT3(&argc,&argv,&env); #endif #if defined(USE_ITHREADS) /* XXX Ideally, this should really be happening in perl_alloc() or * perl_construct() to keep libperl.a transparently fork()-safe. * It is currently done here only because Apache/mod_perl have * problems due to lack of a call to cancel pthread_atfork() * handlers when shared objects that contain the handlers may * be dlclose()d. This forces applications that embed perl to * call PTHREAD_ATFORK() explicitly, but if and only if it hasn't * been called at least once before in the current process. * --GSAR 2001-07-20 */ PTHREAD_ATFORK(Perl_atfork_lock, Perl_atfork_unlock, Perl_atfork_unlock); #endif PERL_SYS_FPU_INIT; if (!PL_do_undump) { my_perl = perl_alloc(); if (!my_perl) exit(1); perl_construct(my_perl); PL_perl_destruct_level = 0; } PL_exit_flags |= PERL_EXIT_DESTRUCT_END; if (!perl_parse(my_perl, xs_init, argc, argv, (char **)NULL)) perl_run(my_perl); #ifndef PERL_MICRO /* Unregister our signal handler before destroying my_perl */ for (i = 1; PL_sig_name[i]; i++) { if (rsignal_state(PL_sig_num[i]) == (Sighandler_t) PL_csighandlerp) { rsignal(PL_sig_num[i], (Sighandler_t) SIG_DFL); } } #endif exitstatus = perl_destruct(my_perl); perl_free(my_perl); #if defined(USE_ENVIRON_ARRAY) && defined(PERL_TRACK_MEMPOOL) && !defined(NO_ENV_ARRAY_IN_MAIN) /* * The old environment may have been freed by perl_free() * when PERL_TRACK_MEMPOOL is defined, but without having * been restored by perl_destruct() before (this is only * done if destruct_level > 0). * * It is important to have a valid environment for atexit() * routines that are eventually called. */ environ = env; #endif PERL_SYS_TERM(); exit(exitstatus); } /* Register any extra external extensions */ EOF!HEAD print $fh xsi_protos(@exts), <<'EOT', xsi_body(@exts), "}\n"; static void xs_init(pTHX) { EOT if ($real) { close $fh or die "Can't close '$temp': $!"; rename $temp, $real or die "Can't rename '$temp' to '$real': $!"; } } 1; __END__ =head1 NAME ExtUtils::Miniperl - write the C code for miniperlmain.c and perlmain.c =head1 SYNOPSIS use ExtUtils::Miniperl; writemain(@directories); # or writemain($fh, @directories); # or writemain(\$filename, @directories); =head1 DESCRIPTION C<writemain()> takes an argument list of zero or more directories containing archive libraries that relate to perl modules and should be linked into a new perl binary. It writes a corresponding F<miniperlmain.c> or F<perlmain.c> file that is a plain C file containing all the bootstrap code to make the modules associated with the libraries available from within perl. If the first argument to C<writemain()> is a reference to a scalar it is used as the filename to open for output. Any other reference is used as the filehandle to write to. Otherwise output defaults to C<STDOUT>. The typical usage is from within perl's own Makefile (to build F<perlmain.c>) or from F<regen/miniperlmain.pl> (to build miniperlmain.c). So under normal circumstances you won't have to deal with this module directly. =head1 SEE ALSO L<ExtUtils::MakeMaker> =cut # ex: set ts=8 sts=4 sw=4 et: PK ! d��3, 3, 5.34.0/ExtUtils/typemapnu �[��� # basic C types int T_IV unsigned T_UV unsigned int T_UV long T_IV unsigned long T_UV short T_IV unsigned short T_UV char T_CHAR unsigned char T_U_CHAR char * T_PV unsigned char * T_PV const char * T_PV caddr_t T_PV wchar_t * T_PV wchar_t T_IV # bool_t is defined in <rpc/rpc.h> bool_t T_IV size_t T_UV ssize_t T_IV time_t T_NV unsigned long * T_OPAQUEPTR char ** T_PACKEDARRAY void * T_PTR Time_t * T_PV SV * T_SV # These are the backwards-compatibility AV*/HV* typemaps that # do not decrement refcounts. Locally override with # "AV* T_AVREF_REFCOUNT_FIXED", "HV* T_HVREF_REFCOUNT_FIXED", # "CV* T_CVREF_REFCOUNT_FIXED", "SVREF T_SVREF_REFCOUNT_FIXED", # to get the fixed versions. SVREF T_SVREF CV * T_CVREF AV * T_AVREF HV * T_HVREF IV T_IV UV T_UV NV T_NV I32 T_IV I16 T_IV I8 T_IV STRLEN T_UV U32 T_U_LONG U16 T_U_SHORT U8 T_UV Result T_U_CHAR Boolean T_BOOL float T_FLOAT double T_DOUBLE SysRet T_SYSRET SysRetLong T_SYSRET FILE * T_STDIO PerlIO * T_INOUT FileHandle T_PTROBJ InputStream T_IN InOutStream T_INOUT OutputStream T_OUT bool T_BOOL ############################################################################# INPUT T_SV $var = $arg T_SVREF STMT_START { SV* const xsub_tmp_sv = $arg; SvGETMAGIC(xsub_tmp_sv); if (SvROK(xsub_tmp_sv)){ $var = SvRV(xsub_tmp_sv); } else{ Perl_croak_nocontext(\"%s: %s is not a reference\", ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, \"$var\"); } } STMT_END T_SVREF_REFCOUNT_FIXED STMT_START { SV* const xsub_tmp_sv = $arg; SvGETMAGIC(xsub_tmp_sv); if (SvROK(xsub_tmp_sv)){ $var = SvRV(xsub_tmp_sv); } else{ Perl_croak_nocontext(\"%s: %s is not a reference\", ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, \"$var\"); } } STMT_END T_AVREF STMT_START { SV* const xsub_tmp_sv = $arg; SvGETMAGIC(xsub_tmp_sv); if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVAV){ $var = (AV*)SvRV(xsub_tmp_sv); } else{ Perl_croak_nocontext(\"%s: %s is not an ARRAY reference\", ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, \"$var\"); } } STMT_END T_AVREF_REFCOUNT_FIXED STMT_START { SV* const xsub_tmp_sv = $arg; SvGETMAGIC(xsub_tmp_sv); if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVAV){ $var = (AV*)SvRV(xsub_tmp_sv); } else{ Perl_croak_nocontext(\"%s: %s is not an ARRAY reference\", ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, \"$var\"); } } STMT_END T_HVREF STMT_START { SV* const xsub_tmp_sv = $arg; SvGETMAGIC(xsub_tmp_sv); if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVHV){ $var = (HV*)SvRV(xsub_tmp_sv); } else{ Perl_croak_nocontext(\"%s: %s is not a HASH reference\", ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, \"$var\"); } } STMT_END T_HVREF_REFCOUNT_FIXED STMT_START { SV* const xsub_tmp_sv = $arg; SvGETMAGIC(xsub_tmp_sv); if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVHV){ $var = (HV*)SvRV(xsub_tmp_sv); } else{ Perl_croak_nocontext(\"%s: %s is not a HASH reference\", ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, \"$var\"); } } STMT_END T_CVREF STMT_START { HV *st; GV *gvp; SV * const xsub_tmp_sv = $arg; SvGETMAGIC(xsub_tmp_sv); $var = sv_2cv(xsub_tmp_sv, &st, &gvp, 0); if (!$var) { Perl_croak_nocontext(\"%s: %s is not a CODE reference\", ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, \"$var\"); } } STMT_END T_CVREF_REFCOUNT_FIXED STMT_START { HV *st; GV *gvp; SV * const xsub_tmp_sv = $arg; SvGETMAGIC(xsub_tmp_sv); $var = sv_2cv(xsub_tmp_sv, &st, &gvp, 0); if (!$var) { Perl_croak_nocontext(\"%s: %s is not a CODE reference\", ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, \"$var\"); } } STMT_END T_SYSRET $var NOT IMPLEMENTED T_UV $var = ($type)SvUV($arg) T_IV $var = ($type)SvIV($arg) T_INT $var = (int)SvIV($arg) T_ENUM $var = ($type)SvIV($arg) T_BOOL $var = (bool)SvTRUE($arg) T_U_INT $var = (unsigned int)SvUV($arg) T_SHORT $var = (short)SvIV($arg) T_U_SHORT $var = (unsigned short)SvUV($arg) T_LONG $var = (long)SvIV($arg) T_U_LONG $var = (unsigned long)SvUV($arg) T_CHAR $var = (char)*SvPV_nolen($arg) T_U_CHAR $var = (unsigned char)SvUV($arg) T_FLOAT $var = (float)SvNV($arg) T_NV $var = ($type)SvNV($arg) T_DOUBLE $var = (double)SvNV($arg) T_PV $var = ($type)SvPV_nolen($arg) T_PTR $var = INT2PTR($type,SvIV($arg)) T_PTRREF if (SvROK($arg)) { IV tmp = SvIV((SV*)SvRV($arg)); $var = INT2PTR($type,tmp); } else Perl_croak_nocontext(\"%s: %s is not a reference\", ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, \"$var\") T_REF_IV_REF if (sv_isa($arg, \"${ntype}\")) { IV tmp = SvIV((SV*)SvRV($arg)); $var = *INT2PTR($type *, tmp); } else Perl_croak_nocontext(\"%s: %s is not of type %s\", ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, \"$var\", \"$ntype\") T_REF_IV_PTR if (sv_isa($arg, \"${ntype}\")) { IV tmp = SvIV((SV*)SvRV($arg)); $var = INT2PTR($type, tmp); } else Perl_croak_nocontext(\"%s: %s is not of type %s\", ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, \"$var\", \"$ntype\") T_PTROBJ if (SvROK($arg) && sv_derived_from($arg, \"${ntype}\")) { IV tmp = SvIV((SV*)SvRV($arg)); $var = INT2PTR($type,tmp); } else Perl_croak_nocontext(\"%s: %s is not of type %s\", ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, \"$var\", \"$ntype\") T_PTRDESC if (sv_isa($arg, \"${ntype}\")) { IV tmp = SvIV((SV*)SvRV($arg)); ${type}_desc = (\U${type}_DESC\E*) tmp; $var = ${type}_desc->ptr; } else Perl_croak_nocontext(\"%s: %s is not of type %s\", ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, \"$var\", \"$ntype\") T_REFREF if (SvROK($arg)) { IV tmp = SvIV((SV*)SvRV($arg)); $var = *INT2PTR($type,tmp); } else Perl_croak_nocontext(\"%s: %s is not a reference\", ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, \"$var\") T_REFOBJ if (sv_isa($arg, \"${ntype}\")) { IV tmp = SvIV((SV*)SvRV($arg)); $var = *INT2PTR($type,tmp); } else Perl_croak_nocontext(\"%s: %s is not of type %s\", ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, \"$var\", \"$ntype\") T_OPAQUE $var = *($type *)SvPV_nolen($arg) T_OPAQUEPTR $var = ($type)SvPV_nolen($arg) T_PACKED $var = XS_unpack_$ntype($arg) T_PACKEDARRAY $var = XS_unpack_$ntype($arg) T_ARRAY U32 ix_$var = $argoff; $var = $ntype(items -= $argoff); while (items--) { DO_ARRAY_ELEM; ix_$var++; } /* this is the number of elements in the array */ ix_$var -= $argoff T_STDIO $var = PerlIO_findFILE(IoIFP(sv_2io($arg))) T_IN $var = IoIFP(sv_2io($arg)) T_INOUT $var = IoIFP(sv_2io($arg)) T_OUT $var = IoOFP(sv_2io($arg)) ############################################################################# OUTPUT T_SV $arg = $var; T_SVREF $arg = newRV((SV*)$var); T_SVREF_REFCOUNT_FIXED $arg = newRV_noinc((SV*)$var); T_AVREF $arg = newRV((SV*)$var); T_AVREF_REFCOUNT_FIXED $arg = newRV_noinc((SV*)$var); T_HVREF $arg = newRV((SV*)$var); T_HVREF_REFCOUNT_FIXED $arg = newRV_noinc((SV*)$var); T_CVREF $arg = newRV((SV*)$var); T_CVREF_REFCOUNT_FIXED $arg = newRV_noinc((SV*)$var); T_IV sv_setiv($arg, (IV)$var); T_UV sv_setuv($arg, (UV)$var); T_INT sv_setiv($arg, (IV)$var); T_SYSRET if ($var != -1) { if ($var == 0) sv_setpvn($arg, "0 but true", 10); else sv_setiv($arg, (IV)$var); } T_ENUM sv_setiv($arg, (IV)$var); T_BOOL ${"$var" eq "RETVAL" ? \"$arg = boolSV($var);" : \"sv_setsv($arg, boolSV($var));"} T_U_INT sv_setuv($arg, (UV)$var); T_SHORT sv_setiv($arg, (IV)$var); T_U_SHORT sv_setuv($arg, (UV)$var); T_LONG sv_setiv($arg, (IV)$var); T_U_LONG sv_setuv($arg, (UV)$var); T_CHAR sv_setpvn($arg, (char *)&$var, 1); T_U_CHAR sv_setuv($arg, (UV)$var); T_FLOAT sv_setnv($arg, (double)$var); T_NV sv_setnv($arg, (NV)$var); T_DOUBLE sv_setnv($arg, (double)$var); T_PV sv_setpv((SV*)$arg, $var); T_PTR sv_setiv($arg, PTR2IV($var)); T_PTRREF sv_setref_pv($arg, Nullch, (void*)$var); T_REF_IV_REF sv_setref_pv($arg, \"${ntype}\", (void*)new $ntype($var)); T_REF_IV_PTR sv_setref_pv($arg, \"${ntype}\", (void*)$var); T_PTROBJ sv_setref_pv($arg, \"${ntype}\", (void*)$var); T_PTRDESC sv_setref_pv($arg, \"${ntype}\", (void*)new\U${type}_DESC\E($var)); T_REFREF NOT_IMPLEMENTED T_REFOBJ NOT IMPLEMENTED T_OPAQUE sv_setpvn($arg, (char *)&$var, sizeof($var)); T_OPAQUEPTR sv_setpvn($arg, (char *)$var, sizeof(*$var)); T_PACKED XS_pack_$ntype($arg, $var); T_PACKEDARRAY XS_pack_$ntype($arg, $var, count_$ntype); T_ARRAY { U32 ix_$var; SSize_t extend_size = /* The weird way this is written is because g++ is dumb * enough to warn "comparison is always false" on something * like: * * sizeof(a) > sizeof(b) && a > B_t_MAX * * (where the LH condition is false) */ (size_$var > (sizeof(size_$var) > sizeof(SSize_t) ? SSize_t_MAX : size_$var)) ? -1 : (SSize_t)size_$var; EXTEND(SP, extend_size); for (ix_$var = 0; ix_$var < size_$var; ix_$var++) { ST(ix_$var) = sv_newmortal(); DO_ARRAY_ELEM } } T_STDIO { GV *gv = (GV *)sv_newmortal(); PerlIO *fp = PerlIO_importFILE($var,0); gv_init_pvn(gv, gv_stashpvs("$Package",1),"__ANONIO__",10,0); if ( fp && do_open(gv, "+<&", 3, FALSE, 0, 0, fp) ) { SV *rv = newRV_inc((SV*)gv); rv = sv_bless(rv, GvSTASH(gv)); ${"$var" eq "RETVAL" ? \"$arg = sv_2mortal(rv);" : \"sv_setsv($arg, rv);\n\t\tSvREFCNT_dec_NN(rv);"} }${"$var" ne "RETVAL" ? \" else sv_setsv($arg, &PL_sv_undef);\n" : \""} } T_IN { GV *gv = (GV *)sv_newmortal(); gv_init_pvn(gv, gv_stashpvs("$Package",1),"__ANONIO__",10,0); if ( do_open(gv, "<&", 2, FALSE, 0, 0, $var) ) { SV *rv = newRV_inc((SV*)gv); rv = sv_bless(rv, GvSTASH(gv)); ${"$var" eq "RETVAL" ? \"$arg = sv_2mortal(rv);" : \"sv_setsv($arg, rv);\n\t\tSvREFCNT_dec_NN(rv);"} }${"$var" ne "RETVAL" ? \" else sv_setsv($arg, &PL_sv_undef);\n" : \""} } T_INOUT { GV *gv = (GV *)sv_newmortal(); gv_init_pvn(gv, gv_stashpvs("$Package",1),"__ANONIO__",10,0); if ( do_open(gv, "+<&", 3, FALSE, 0, 0, $var) ) { SV *rv = newRV_inc((SV*)gv); rv = sv_bless(rv, GvSTASH(gv)); ${"$var" eq "RETVAL" ? \"$arg = sv_2mortal(rv);" : \"sv_setsv($arg, rv);\n\t\tSvREFCNT_dec_NN(rv);"} }${"$var" ne "RETVAL" ? \" else sv_setsv($arg, &PL_sv_undef);\n" : \""} } T_OUT { GV *gv = (GV *)sv_newmortal(); gv_init_pvn(gv, gv_stashpvs("$Package",1),"__ANONIO__",10,0); if ( do_open(gv, "+>&", 3, FALSE, 0, 0, $var) ) { SV *rv = newRV_inc((SV*)gv); rv = sv_bless(rv, GvSTASH(gv)); ${"$var" eq "RETVAL" ? \"$arg = sv_2mortal(rv);" : \"sv_setsv($arg, rv);\n\t\tSvREFCNT_dec_NN(rv);"} }${"$var" ne "RETVAL" ? \" else sv_setsv($arg, &PL_sv_undef);\n" : \""} } PK ! EI�� i i 5.34.0/ExtUtils/Typemaps.pmnu �[��� package ExtUtils::Typemaps; use 5.006001; use strict; use warnings; our $VERSION = '3.43'; require ExtUtils::ParseXS; require ExtUtils::ParseXS::Constants; require ExtUtils::Typemaps::InputMap; require ExtUtils::Typemaps::OutputMap; require ExtUtils::Typemaps::Type; =head1 NAME ExtUtils::Typemaps - Read/Write/Modify Perl/XS typemap files =head1 SYNOPSIS # read/create file my $typemap = ExtUtils::Typemaps->new(file => 'typemap'); # alternatively create an in-memory typemap # $typemap = ExtUtils::Typemaps->new(); # alternatively create an in-memory typemap by parsing a string # $typemap = ExtUtils::Typemaps->new(string => $sometypemap); # add a mapping $typemap->add_typemap(ctype => 'NV', xstype => 'T_NV'); $typemap->add_inputmap( xstype => 'T_NV', code => '$var = ($type)SvNV($arg);' ); $typemap->add_outputmap( xstype => 'T_NV', code => 'sv_setnv($arg, (NV)$var);' ); $typemap->add_string(string => $typemapstring); # will be parsed and merged # remove a mapping (same for remove_typemap and remove_outputmap...) $typemap->remove_inputmap(xstype => 'SomeType'); # save a typemap to a file $typemap->write(file => 'anotherfile.map'); # merge the other typemap into this one $typemap->merge(typemap => $another_typemap); =head1 DESCRIPTION This module can read, modify, create and write Perl XS typemap files. If you don't know what a typemap is, please confer the L<perlxstut> and L<perlxs> manuals. The module is not entirely round-trip safe: For example it currently simply strips all comments. The order of entries in the maps is, however, preserved. We check for duplicate entries in the typemap, but do not check for missing C<TYPEMAP> entries for C<INPUTMAP> or C<OUTPUTMAP> entries since these might be hidden in a different typemap. =head1 METHODS =cut =head2 new Returns a new typemap object. Takes an optional C<file> parameter. If set, the given file will be read. If the file doesn't exist, an empty typemap is returned. Alternatively, if the C<string> parameter is given, the supplied string will be parsed instead of a file. =cut sub new { my $class = shift; my %args = @_; if (defined $args{file} and defined $args{string}) { die("Cannot handle both 'file' and 'string' arguments to constructor"); } my $self = bless { file => undef, %args, typemap_section => [], typemap_lookup => {}, input_section => [], input_lookup => {}, output_section => [], output_lookup => {}, } => $class; $self->_init(); return $self; } sub _init { my $self = shift; if (defined $self->{string}) { $self->_parse(\($self->{string}), $self->{lineno_offset}, $self->{fake_filename}); delete $self->{string}; } elsif (defined $self->{file} and -e $self->{file}) { open my $fh, '<', $self->{file} or die "Cannot open typemap file '" . $self->{file} . "' for reading: $!"; local $/ = undef; my $string = <$fh>; $self->_parse(\$string, $self->{lineno_offset}, $self->{file}); } } =head2 file Get/set the file that the typemap is written to when the C<write> method is called. =cut sub file { $_[0]->{file} = $_[1] if @_ > 1; $_[0]->{file} } =head2 add_typemap Add a C<TYPEMAP> entry to the typemap. Required named arguments: The C<ctype> (e.g. C<ctype =E<gt> 'double'>) and the C<xstype> (e.g. C<xstype =E<gt> 'T_NV'>). Optional named arguments: C<replace =E<gt> 1> forces removal/replacement of existing C<TYPEMAP> entries of the same C<ctype>. C<skip =E<gt> 1> triggers a I<"first come first serve"> logic by which new entries that conflict with existing entries are silently ignored. As an alternative to the named parameters usage, you may pass in an C<ExtUtils::Typemaps::Type> object as first argument, a copy of which will be added to the typemap. In that case, only the C<replace> or C<skip> named parameters may be used after the object. Example: $map->add_typemap($type_obj, replace => 1); =cut sub add_typemap { my $self = shift; my $type; my %args; if ((@_ % 2) == 1) { my $orig = shift; $type = $orig->new(); %args = @_; } else { %args = @_; my $ctype = $args{ctype}; die("Need ctype argument") if not defined $ctype; my $xstype = $args{xstype}; die("Need xstype argument") if not defined $xstype; $type = ExtUtils::Typemaps::Type->new( xstype => $xstype, 'prototype' => $args{'prototype'}, ctype => $ctype, ); } if ($args{skip} and $args{replace}) { die("Cannot use both 'skip' and 'replace'"); } if ($args{replace}) { $self->remove_typemap(ctype => $type->ctype); } elsif ($args{skip}) { return() if exists $self->{typemap_lookup}{$type->ctype}; } else { $self->validate(typemap_xstype => $type->xstype, ctype => $type->ctype); } # store push @{$self->{typemap_section}}, $type; # remember type for lookup, too. $self->{typemap_lookup}{$type->tidy_ctype} = $#{$self->{typemap_section}}; return 1; } =head2 add_inputmap Add an C<INPUT> entry to the typemap. Required named arguments: The C<xstype> (e.g. C<xstype =E<gt> 'T_NV'>) and the C<code> to associate with it for input. Optional named arguments: C<replace =E<gt> 1> forces removal/replacement of existing C<INPUT> entries of the same C<xstype>. C<skip =E<gt> 1> triggers a I<"first come first serve"> logic by which new entries that conflict with existing entries are silently ignored. As an alternative to the named parameters usage, you may pass in an C<ExtUtils::Typemaps::InputMap> object as first argument, a copy of which will be added to the typemap. In that case, only the C<replace> or C<skip> named parameters may be used after the object. Example: $map->add_inputmap($type_obj, replace => 1); =cut sub add_inputmap { my $self = shift; my $input; my %args; if ((@_ % 2) == 1) { my $orig = shift; $input = $orig->new(); %args = @_; } else { %args = @_; my $xstype = $args{xstype}; die("Need xstype argument") if not defined $xstype; my $code = $args{code}; die("Need code argument") if not defined $code; $input = ExtUtils::Typemaps::InputMap->new( xstype => $xstype, code => $code, ); } if ($args{skip} and $args{replace}) { die("Cannot use both 'skip' and 'replace'"); } if ($args{replace}) { $self->remove_inputmap(xstype => $input->xstype); } elsif ($args{skip}) { return() if exists $self->{input_lookup}{$input->xstype}; } else { $self->validate(inputmap_xstype => $input->xstype); } # store push @{$self->{input_section}}, $input; # remember type for lookup, too. $self->{input_lookup}{$input->xstype} = $#{$self->{input_section}}; return 1; } =head2 add_outputmap Add an C<OUTPUT> entry to the typemap. Works exactly the same as C<add_inputmap>. =cut sub add_outputmap { my $self = shift; my $output; my %args; if ((@_ % 2) == 1) { my $orig = shift; $output = $orig->new(); %args = @_; } else { %args = @_; my $xstype = $args{xstype}; die("Need xstype argument") if not defined $xstype; my $code = $args{code}; die("Need code argument") if not defined $code; $output = ExtUtils::Typemaps::OutputMap->new( xstype => $xstype, code => $code, ); } if ($args{skip} and $args{replace}) { die("Cannot use both 'skip' and 'replace'"); } if ($args{replace}) { $self->remove_outputmap(xstype => $output->xstype); } elsif ($args{skip}) { return() if exists $self->{output_lookup}{$output->xstype}; } else { $self->validate(outputmap_xstype => $output->xstype); } # store push @{$self->{output_section}}, $output; # remember type for lookup, too. $self->{output_lookup}{$output->xstype} = $#{$self->{output_section}}; return 1; } =head2 add_string Parses a string as a typemap and merge it into the typemap object. Required named argument: C<string> to specify the string to parse. =cut sub add_string { my $self = shift; my %args = @_; die("Need 'string' argument") if not defined $args{string}; # no, this is not elegant. my $other = ExtUtils::Typemaps->new(string => $args{string}); $self->merge(typemap => $other); } =head2 remove_typemap Removes a C<TYPEMAP> entry from the typemap. Required named argument: C<ctype> to specify the entry to remove from the typemap. Alternatively, you may pass a single C<ExtUtils::Typemaps::Type> object. =cut sub remove_typemap { my $self = shift; my $ctype; if (@_ > 1) { my %args = @_; $ctype = $args{ctype}; die("Need ctype argument") if not defined $ctype; $ctype = tidy_type($ctype); } else { $ctype = $_[0]->tidy_ctype; } return $self->_remove($ctype, $self->{typemap_section}, $self->{typemap_lookup}); } =head2 remove_inputmap Removes an C<INPUT> entry from the typemap. Required named argument: C<xstype> to specify the entry to remove from the typemap. Alternatively, you may pass a single C<ExtUtils::Typemaps::InputMap> object. =cut sub remove_inputmap { my $self = shift; my $xstype; if (@_ > 1) { my %args = @_; $xstype = $args{xstype}; die("Need xstype argument") if not defined $xstype; } else { $xstype = $_[0]->xstype; } return $self->_remove($xstype, $self->{input_section}, $self->{input_lookup}); } =head2 remove_inputmap Removes an C<OUTPUT> entry from the typemap. Required named argument: C<xstype> to specify the entry to remove from the typemap. Alternatively, you may pass a single C<ExtUtils::Typemaps::OutputMap> object. =cut sub remove_outputmap { my $self = shift; my $xstype; if (@_ > 1) { my %args = @_; $xstype = $args{xstype}; die("Need xstype argument") if not defined $xstype; } else { $xstype = $_[0]->xstype; } return $self->_remove($xstype, $self->{output_section}, $self->{output_lookup}); } sub _remove { my $self = shift; my $rm = shift; my $array = shift; my $lookup = shift; # Just fetch the index of the item from the lookup table my $index = $lookup->{$rm}; return() if not defined $index; # Nuke the item from storage splice(@$array, $index, 1); # Decrement the storage position of all items thereafter foreach my $key (keys %$lookup) { if ($lookup->{$key} > $index) { $lookup->{$key}--; } } return(); } =head2 get_typemap Fetches an entry of the TYPEMAP section of the typemap. Mandatory named arguments: The C<ctype> of the entry. Returns the C<ExtUtils::Typemaps::Type> object for the entry if found. =cut sub get_typemap { my $self = shift; die("Need named parameters, got uneven number") if @_ % 2; my %args = @_; my $ctype = $args{ctype}; die("Need ctype argument") if not defined $ctype; $ctype = tidy_type($ctype); my $index = $self->{typemap_lookup}{$ctype}; return() if not defined $index; return $self->{typemap_section}[$index]; } =head2 get_inputmap Fetches an entry of the INPUT section of the typemap. Mandatory named arguments: The C<xstype> of the entry or the C<ctype> of the typemap that can be used to find the C<xstype>. To wit, the following pieces of code are equivalent: my $type = $typemap->get_typemap(ctype => $ctype) my $input_map = $typemap->get_inputmap(xstype => $type->xstype); my $input_map = $typemap->get_inputmap(ctype => $ctype); Returns the C<ExtUtils::Typemaps::InputMap> object for the entry if found. =cut sub get_inputmap { my $self = shift; die("Need named parameters, got uneven number") if @_ % 2; my %args = @_; my $xstype = $args{xstype}; my $ctype = $args{ctype}; die("Need xstype or ctype argument") if not defined $xstype and not defined $ctype; die("Need xstype OR ctype arguments, not both") if defined $xstype and defined $ctype; if (defined $ctype) { my $tm = $self->get_typemap(ctype => $ctype); $xstype = $tm && $tm->xstype; return() if not defined $xstype; } my $index = $self->{input_lookup}{$xstype}; return() if not defined $index; return $self->{input_section}[$index]; } =head2 get_outputmap Fetches an entry of the OUTPUT section of the typemap. Mandatory named arguments: The C<xstype> of the entry or the C<ctype> of the typemap that can be used to resolve the C<xstype>. (See above for an example.) Returns the C<ExtUtils::Typemaps::InputMap> object for the entry if found. =cut sub get_outputmap { my $self = shift; die("Need named parameters, got uneven number") if @_ % 2; my %args = @_; my $xstype = $args{xstype}; my $ctype = $args{ctype}; die("Need xstype or ctype argument") if not defined $xstype and not defined $ctype; die("Need xstype OR ctype arguments, not both") if defined $xstype and defined $ctype; if (defined $ctype) { my $tm = $self->get_typemap(ctype => $ctype); $xstype = $tm && $tm->xstype; return() if not defined $xstype; } my $index = $self->{output_lookup}{$xstype}; return() if not defined $index; return $self->{output_section}[$index]; } =head2 write Write the typemap to a file. Optionally takes a C<file> argument. If given, the typemap will be written to the specified file. If not, the typemap is written to the currently stored file name (see L</file> above, this defaults to the file it was read from if any). =cut sub write { my $self = shift; my %args = @_; my $file = defined $args{file} ? $args{file} : $self->file(); die("write() needs a file argument (or set the file name of the typemap using the 'file' method)") if not defined $file; open my $fh, '>', $file or die "Cannot open typemap file '$file' for writing: $!"; print $fh $self->as_string(); close $fh; } =head2 as_string Generates and returns the string form of the typemap. =cut sub as_string { my $self = shift; my $typemap = $self->{typemap_section}; my @code; push @code, "TYPEMAP\n"; foreach my $entry (@$typemap) { # type kind proto # /^(.*?\S)\s+(\S+)\s*($ExtUtils::ParseXS::Constants::PrototypeRegexp*)$/o push @code, $entry->ctype . "\t" . $entry->xstype . ($entry->proto ne '' ? "\t".$entry->proto : '') . "\n"; } my $input = $self->{input_section}; if (@$input) { push @code, "\nINPUT\n"; foreach my $entry (@$input) { push @code, $entry->xstype, "\n", $entry->code, "\n"; } } my $output = $self->{output_section}; if (@$output) { push @code, "\nOUTPUT\n"; foreach my $entry (@$output) { push @code, $entry->xstype, "\n", $entry->code, "\n"; } } return join '', @code; } =head2 as_embedded_typemap Generates and returns the string form of the typemap with the appropriate prefix around it for verbatim inclusion into an XS file as an embedded typemap. This will return a string like TYPEMAP: <<END_OF_TYPEMAP ... typemap here (see as_string) ... END_OF_TYPEMAP The method takes care not to use a HERE-doc end marker that appears in the typemap string itself. =cut sub as_embedded_typemap { my $self = shift; my $string = $self->as_string; my @ident_cand = qw(END_TYPEMAP END_OF_TYPEMAP END); my $icand = 0; my $cand_suffix = ""; while ($string =~ /^\Q$ident_cand[$icand]$cand_suffix\E\s*$/m) { $icand++; if ($icand == @ident_cand) { $icand = 0; ++$cand_suffix; } } my $marker = "$ident_cand[$icand]$cand_suffix"; return "TYPEMAP: <<$marker;\n$string\n$marker\n"; } =head2 merge Merges a given typemap into the object. Note that a failed merge operation leaves the object in an inconsistent state so clone it if necessary. Mandatory named arguments: Either C<typemap =E<gt> $another_typemap_obj> or C<file =E<gt> $path_to_typemap_file> but not both. Optional arguments: C<replace =E<gt> 1> to force replacement of existing typemap entries without warning or C<skip =E<gt> 1> to skip entries that exist already in the typemap. =cut sub merge { my $self = shift; my %args = @_; if (exists $args{typemap} and exists $args{file}) { die("Need {file} OR {typemap} argument. Not both!"); } elsif (not exists $args{typemap} and not exists $args{file}) { die("Need {file} or {typemap} argument!"); } my @params; push @params, 'replace' => $args{replace} if exists $args{replace}; push @params, 'skip' => $args{skip} if exists $args{skip}; my $typemap = $args{typemap}; if (not defined $typemap) { $typemap = ref($self)->new(file => $args{file}, @params); } # FIXME breaking encapsulation. Add accessor code. foreach my $entry (@{$typemap->{typemap_section}}) { $self->add_typemap( $entry, @params ); } foreach my $entry (@{$typemap->{input_section}}) { $self->add_inputmap( $entry, @params ); } foreach my $entry (@{$typemap->{output_section}}) { $self->add_outputmap( $entry, @params ); } return 1; } =head2 is_empty Returns a bool indicating whether this typemap is entirely empty. =cut sub is_empty { my $self = shift; return @{ $self->{typemap_section} } == 0 && @{ $self->{input_section} } == 0 && @{ $self->{output_section} } == 0; } =head2 list_mapped_ctypes Returns a list of the C types that are mappable by this typemap object. =cut sub list_mapped_ctypes { my $self = shift; return sort keys %{ $self->{typemap_lookup} }; } =head2 _get_typemap_hash Returns a hash mapping the C types to the XS types: { 'char **' => 'T_PACKEDARRAY', 'bool_t' => 'T_IV', 'AV *' => 'T_AVREF', 'InputStream' => 'T_IN', 'double' => 'T_DOUBLE', # ... } This is documented because it is used by C<ExtUtils::ParseXS>, but it's not intended for general consumption. May be removed at any time. =cut sub _get_typemap_hash { my $self = shift; my $lookup = $self->{typemap_lookup}; my $storage = $self->{typemap_section}; my %rv; foreach my $ctype (keys %$lookup) { $rv{$ctype} = $storage->[ $lookup->{$ctype} ]->xstype; } return \%rv; } =head2 _get_inputmap_hash Returns a hash mapping the XS types (identifiers) to the corresponding INPUT code: { 'T_CALLBACK' => ' $var = make_perl_cb_$type($arg) ', 'T_OUT' => ' $var = IoOFP(sv_2io($arg)) ', 'T_REF_IV_PTR' => ' if (sv_isa($arg, \\"${ntype}\\")) { # ... } This is documented because it is used by C<ExtUtils::ParseXS>, but it's not intended for general consumption. May be removed at any time. =cut sub _get_inputmap_hash { my $self = shift; my $lookup = $self->{input_lookup}; my $storage = $self->{input_section}; my %rv; foreach my $xstype (keys %$lookup) { $rv{$xstype} = $storage->[ $lookup->{$xstype} ]->code; # Squash trailing whitespace to one line break # This isn't strictly necessary, but makes the output more similar # to the original ExtUtils::ParseXS. $rv{$xstype} =~ s/\s*\z/\n/; } return \%rv; } =head2 _get_outputmap_hash Returns a hash mapping the XS types (identifiers) to the corresponding OUTPUT code: { 'T_CALLBACK' => ' sv_setpvn($arg, $var.context.value().chp(), $var.context.value().size()); ', 'T_OUT' => ' { GV *gv = (GV *)sv_newmortal(); gv_init_pvn(gv, gv_stashpvs("$Package",1), "__ANONIO__",10,0); if ( do_open(gv, "+>&", 3, FALSE, 0, 0, $var) ) sv_setsv( $arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)) ); else $arg = &PL_sv_undef; } ', # ... } This is documented because it is used by C<ExtUtils::ParseXS>, but it's not intended for general consumption. May be removed at any time. =cut sub _get_outputmap_hash { my $self = shift; my $lookup = $self->{output_lookup}; my $storage = $self->{output_section}; my %rv; foreach my $xstype (keys %$lookup) { $rv{$xstype} = $storage->[ $lookup->{$xstype} ]->code; # Squash trailing whitespace to one line break # This isn't strictly necessary, but makes the output more similar # to the original ExtUtils::ParseXS. $rv{$xstype} =~ s/\s*\z/\n/; } return \%rv; } =head2 _get_prototype_hash Returns a hash mapping the C types of the typemap to their corresponding prototypes. { 'char **' => '$', 'bool_t' => '$', 'AV *' => '$', 'InputStream' => '$', 'double' => '$', # ... } This is documented because it is used by C<ExtUtils::ParseXS>, but it's not intended for general consumption. May be removed at any time. =cut sub _get_prototype_hash { my $self = shift; my $lookup = $self->{typemap_lookup}; my $storage = $self->{typemap_section}; my %rv; foreach my $ctype (keys %$lookup) { $rv{$ctype} = $storage->[ $lookup->{$ctype} ]->proto || '$'; } return \%rv; } # make sure that the provided types wouldn't collide with what's # in the object already. sub validate { my $self = shift; my %args = @_; if ( exists $args{ctype} and exists $self->{typemap_lookup}{tidy_type($args{ctype})} ) { die("Multiple definition of ctype '$args{ctype}' in TYPEMAP section"); } if ( exists $args{inputmap_xstype} and exists $self->{input_lookup}{$args{inputmap_xstype}} ) { die("Multiple definition of xstype '$args{inputmap_xstype}' in INPUTMAP section"); } if ( exists $args{outputmap_xstype} and exists $self->{output_lookup}{$args{outputmap_xstype}} ) { die("Multiple definition of xstype '$args{outputmap_xstype}' in OUTPUTMAP section"); } return 1; } =head2 clone Creates and returns a clone of a full typemaps object. Takes named parameters: If C<shallow> is true, the clone will share the actual individual type/input/outputmap objects, but not share their storage. Use with caution. Without C<shallow>, the clone will be fully independent. =cut sub clone { my $proto = shift; my %args = @_; my $self; if ($args{shallow}) { $self = bless( { %$proto, typemap_section => [@{$proto->{typemap_section}}], typemap_lookup => {%{$proto->{typemap_lookup}}}, input_section => [@{$proto->{input_section}}], input_lookup => {%{$proto->{input_lookup}}}, output_section => [@{$proto->{output_section}}], output_lookup => {%{$proto->{output_lookup}}}, } => ref($proto) ); } else { $self = bless( { %$proto, typemap_section => [map $_->new, @{$proto->{typemap_section}}], typemap_lookup => {%{$proto->{typemap_lookup}}}, input_section => [map $_->new, @{$proto->{input_section}}], input_lookup => {%{$proto->{input_lookup}}}, output_section => [map $_->new, @{$proto->{output_section}}], output_lookup => {%{$proto->{output_lookup}}}, } => ref($proto) ); } return $self; } =head2 tidy_type Function to (heuristically) canonicalize a C type. Works to some degree with C++ types. $halfway_canonical_type = tidy_type($ctype); Moved from C<ExtUtils::ParseXS>. =cut sub tidy_type { local $_ = shift; # for templated C++ types, do some bit of flawed canonicalization # wrt. templates at least if (/[<>]/) { s/\s*([<>])\s*/$1/g; s/>>/> >/g; } # rationalise any '*' by joining them into bunches and removing whitespace s#\s*(\*+)\s*#$1#g; s#(\*+)# $1 #g ; # trim leading & trailing whitespace s/^\s+//; s/\s+$//; # change multiple whitespace into a single space s/\s+/ /g; $_; } sub _parse { my $self = shift; my $stringref = shift; my $lineno_offset = shift; $lineno_offset = 0 if not defined $lineno_offset; my $filename = shift; $filename = '<string>' if not defined $filename; my $replace = $self->{replace}; my $skip = $self->{skip}; die "Can only replace OR skip" if $replace and $skip; my @add_params; push @add_params, replace => 1 if $replace; push @add_params, skip => 1 if $skip; # TODO comments should round-trip, currently ignoring # TODO order of sections, multiple sections of same type # Heavily influenced by ExtUtils::ParseXS my $section = 'typemap'; my $lineno = $lineno_offset; my $junk = ""; my $current = \$junk; my @input_expr; my @output_expr; while ($$stringref =~ /^(.*)$/gcm) { local $_ = $1; ++$lineno; chomp; next if /^\s*#/; if (/^INPUT\s*$/) { $section = 'input'; $current = \$junk; next; } elsif (/^OUTPUT\s*$/) { $section = 'output'; $current = \$junk; next; } elsif (/^TYPEMAP\s*$/) { $section = 'typemap'; $current = \$junk; next; } if ($section eq 'typemap') { my $line = $_; s/^\s+//; s/\s+$//; next if $_ eq '' or /^#/; my($type, $kind, $proto) = /^(.*?\S)\s+(\S+)\s*($ExtUtils::ParseXS::Constants::PrototypeRegexp*)$/o or warn("Warning: File '$filename' Line $lineno '$line' TYPEMAP entry needs 2 or 3 columns\n"), next; # prototype defaults to '$' $proto = '$' unless $proto; warn("Warning: File '$filename' Line $lineno '$line' Invalid prototype '$proto'\n") unless _valid_proto_string($proto); $self->add_typemap( ExtUtils::Typemaps::Type->new( xstype => $kind, proto => $proto, ctype => $type ), @add_params ); } elsif (/^\s/) { s/\s+$//; $$current .= $$current eq '' ? $_ : "\n".$_; } elsif ($_ eq '') { next; } elsif ($section eq 'input') { s/\s+$//; push @input_expr, {xstype => $_, code => ''}; $current = \$input_expr[-1]{code}; } else { # output section s/\s+$//; push @output_expr, {xstype => $_, code => ''}; $current = \$output_expr[-1]{code}; } } # end while lines foreach my $inexpr (@input_expr) { $self->add_inputmap( ExtUtils::Typemaps::InputMap->new(%$inexpr), @add_params ); } foreach my $outexpr (@output_expr) { $self->add_outputmap( ExtUtils::Typemaps::OutputMap->new(%$outexpr), @add_params ); } return 1; } # taken from ExtUtils::ParseXS sub _valid_proto_string { my $string = shift; if ($string =~ /^$ExtUtils::ParseXS::Constants::PrototypeRegexp+$/o) { return $string; } return 0 ; } # taken from ExtUtils::ParseXS (C_string) sub _escape_backslashes { my $string = shift; $string =~ s[\\][\\\\]g; $string; } =head1 CAVEATS Inherits some evil code from C<ExtUtils::ParseXS>. =head1 SEE ALSO The parser is heavily inspired from the one in L<ExtUtils::ParseXS>. For details on typemaps: L<perlxstut>, L<perlxs>. =head1 AUTHOR Steffen Mueller C<<smueller@cpan.org>> =head1 COPYRIGHT & LICENSE Copyright 2009, 2010, 2011, 2012, 2013 Steffen Mueller This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut 1; PK ! ��K+ + 5.34.0/ExtUtils/Mksymlists.pmnu �[��� package ExtUtils::Mksymlists; use 5.006; use strict qw[ subs refs ]; # no strict 'vars'; # until filehandles are exempted use warnings; use Carp; use Exporter; use Config; our @ISA = qw(Exporter); our @EXPORT = qw(&Mksymlists); our $VERSION = '7.62'; $VERSION =~ tr/_//d; sub Mksymlists { my(%spec) = @_; my($osname) = $^O; croak("Insufficient information specified to Mksymlists") unless ( $spec{NAME} or ($spec{FILE} and ($spec{DL_FUNCS} or $spec{FUNCLIST})) ); $spec{DL_VARS} = [] unless $spec{DL_VARS}; ($spec{FILE} = $spec{NAME}) =~ s/.*::// unless $spec{FILE}; $spec{FUNCLIST} = [] unless $spec{FUNCLIST}; $spec{DL_FUNCS} = { $spec{NAME} => [] } unless ( ($spec{DL_FUNCS} and keys %{$spec{DL_FUNCS}}) or @{$spec{FUNCLIST}}); if (defined $spec{DL_FUNCS}) { foreach my $package (sort keys %{$spec{DL_FUNCS}}) { my($packprefix,$bootseen); ($packprefix = $package) =~ s/\W/_/g; foreach my $sym (@{$spec{DL_FUNCS}->{$package}}) { if ($sym =~ /^boot_/) { push(@{$spec{FUNCLIST}},$sym); $bootseen++; } else { push(@{$spec{FUNCLIST}},"XS_${packprefix}_$sym"); } } push(@{$spec{FUNCLIST}},"boot_$packprefix") unless $bootseen; } } # We'll need this if we ever add any OS which uses mod2fname # not as pseudo-builtin. # require DynaLoader; if (defined &DynaLoader::mod2fname and not $spec{DLBASE}) { $spec{DLBASE} = DynaLoader::mod2fname([ split(/::/,$spec{NAME}) ]); } if ($osname eq 'aix') { _write_aix(\%spec); } elsif ($osname eq 'MacOS'){ _write_aix(\%spec) } elsif ($osname eq 'VMS') { _write_vms(\%spec) } elsif ($osname eq 'os2') { _write_os2(\%spec) } elsif ($osname eq 'MSWin32') { _write_win32(\%spec) } else { croak("Don't know how to create linker option file for $osname\n"); } } sub _write_aix { my($data) = @_; rename "$data->{FILE}.exp", "$data->{FILE}.exp_old"; open( my $exp, ">", "$data->{FILE}.exp") or croak("Can't create $data->{FILE}.exp: $!\n"); print $exp join("\n",@{$data->{DL_VARS}}, "\n") if @{$data->{DL_VARS}}; print $exp join("\n",@{$data->{FUNCLIST}}, "\n") if @{$data->{FUNCLIST}}; close $exp; } sub _write_os2 { my($data) = @_; require Config; my $threaded = ($Config::Config{archname} =~ /-thread/ ? " threaded" : ""); if (not $data->{DLBASE}) { ($data->{DLBASE} = $data->{NAME}) =~ s/.*:://; $data->{DLBASE} = substr($data->{DLBASE},0,7) . '_'; } my $distname = $data->{DISTNAME} || $data->{NAME}; $distname = "Distribution $distname"; my $patchlevel = " pl$Config{perl_patchlevel}" || ''; my $comment = sprintf "Perl (v%s%s%s) module %s", $Config::Config{version}, $threaded, $patchlevel, $data->{NAME}; chomp $comment; if ($data->{INSTALLDIRS} and $data->{INSTALLDIRS} eq 'perl') { $distname = 'perl5-porters@perl.org'; $comment = "Core $comment"; } $comment = "$comment (Perl-config: $Config{config_args})"; $comment = substr($comment, 0, 200) . "...)" if length $comment > 203; rename "$data->{FILE}.def", "$data->{FILE}_def.old"; open(my $def, ">", "$data->{FILE}.def") or croak("Can't create $data->{FILE}.def: $!\n"); print $def "LIBRARY '$data->{DLBASE}' INITINSTANCE TERMINSTANCE\n"; print $def "DESCRIPTION '\@#$distname:$data->{VERSION}#\@ $comment'\n"; print $def "CODE LOADONCALL\n"; print $def "DATA LOADONCALL NONSHARED MULTIPLE\n"; print $def "EXPORTS\n "; print $def join("\n ",@{$data->{DL_VARS}}, "\n") if @{$data->{DL_VARS}}; print $def join("\n ",@{$data->{FUNCLIST}}, "\n") if @{$data->{FUNCLIST}}; _print_imports($def, $data); close $def; } sub _print_imports { my ($def, $data)= @_; my $imports= $data->{IMPORTS} or return; if ( keys %$imports ) { print $def "IMPORTS\n"; foreach my $name (sort keys %$imports) { print $def " $name=$imports->{$name}\n"; } } } sub _write_win32 { my($data) = @_; require Config; if (not $data->{DLBASE}) { ($data->{DLBASE} = $data->{NAME}) =~ s/.*:://; $data->{DLBASE} = substr($data->{DLBASE},0,7) . '_'; } rename "$data->{FILE}.def", "$data->{FILE}_def.old"; open( my $def, ">", "$data->{FILE}.def" ) or croak("Can't create $data->{FILE}.def: $!\n"); # put library name in quotes (it could be a keyword, like 'Alias') if ($Config::Config{'cc'} !~ /\bgcc/i) { print $def "LIBRARY \"$data->{DLBASE}\"\n"; } print $def "EXPORTS\n "; my @syms; # Export public symbols both with and without underscores to # ensure compatibility between DLLs from Borland C and Visual C # NOTE: DynaLoader itself only uses the names without underscores, # so this is only to cover the case when the extension DLL may be # linked to directly from C. GSAR 97-07-10 #bcc dropped in 5.16, so dont create useless extra symbols for export table unless("$]" >= 5.016) { if ($Config::Config{'cc'} =~ /^bcc/i) { push @syms, "_$_", "$_ = _$_" for (@{$data->{DL_VARS}}, @{$data->{FUNCLIST}}); } else { push @syms, "$_", "_$_ = $_" for (@{$data->{DL_VARS}}, @{$data->{FUNCLIST}}); } } else { push @syms, "$_" for (@{$data->{DL_VARS}}, @{$data->{FUNCLIST}}); } print $def join("\n ",@syms, "\n") if @syms; _print_imports($def, $data); close $def; } sub _write_vms { my($data) = @_; require Config; # a reminder for once we do $^O require ExtUtils::XSSymSet; my($isvax) = $Config::Config{'archname'} =~ /VAX/i; my($set) = new ExtUtils::XSSymSet; rename "$data->{FILE}.opt", "$data->{FILE}.opt_old"; open(my $opt,">", "$data->{FILE}.opt") or croak("Can't create $data->{FILE}.opt: $!\n"); # Options file declaring universal symbols # Used when linking shareable image for dynamic extension, # or when linking PerlShr into which we've added this package # as a static extension # We don't do anything to preserve order, so we won't relax # the GSMATCH criteria for a dynamic extension print $opt "case_sensitive=yes\n" if $Config::Config{d_vms_case_sensitive_symbols}; foreach my $sym (@{$data->{FUNCLIST}}) { my $safe = $set->addsym($sym); if ($isvax) { print $opt "UNIVERSAL=$safe\n" } else { print $opt "SYMBOL_VECTOR=($safe=PROCEDURE)\n"; } } foreach my $sym (@{$data->{DL_VARS}}) { my $safe = $set->addsym($sym); print $opt "PSECT_ATTR=${sym},PIC,OVR,RD,NOEXE,WRT,NOSHR\n"; if ($isvax) { print $opt "UNIVERSAL=$safe\n" } else { print $opt "SYMBOL_VECTOR=($safe=DATA)\n"; } } close $opt; } 1; __END__ =head1 NAME ExtUtils::Mksymlists - write linker options files for dynamic extension =head1 SYNOPSIS use ExtUtils::Mksymlists; Mksymlists( NAME => $name , DL_VARS => [ $var1, $var2, $var3 ], DL_FUNCS => { $pkg1 => [ $func1, $func2 ], $pkg2 => [ $func3 ] ); =head1 DESCRIPTION C<ExtUtils::Mksymlists> produces files used by the linker under some OSs during the creation of shared libraries for dynamic extensions. It is normally called from a MakeMaker-generated Makefile when the extension is built. The linker option file is generated by calling the function C<Mksymlists>, which is exported by default from C<ExtUtils::Mksymlists>. It takes one argument, a list of key-value pairs, in which the following keys are recognized: =over 4 =item DLBASE This item specifies the name by which the linker knows the extension, which may be different from the name of the extension itself (for instance, some linkers add an '_' to the name of the extension). If it is not specified, it is derived from the NAME attribute. It is presently used only by OS2 and Win32. =item DL_FUNCS This is identical to the DL_FUNCS attribute available via MakeMaker, from which it is usually taken. Its value is a reference to an associative array, in which each key is the name of a package, and each value is an a reference to an array of function names which should be exported by the extension. For instance, one might say C<DL_FUNCS =E<gt> { Homer::Iliad =E<gt> [ qw(trojans greeks) ], Homer::Odyssey =E<gt> [ qw(travellers family suitors) ] }>. The function names should be identical to those in the XSUB code; C<Mksymlists> will alter the names written to the linker option file to match the changes made by F<xsubpp>. In addition, if none of the functions in a list begin with the string B<boot_>, C<Mksymlists> will add a bootstrap function for that package, just as xsubpp does. (If a B<boot_E<lt>pkgE<gt>> function is present in the list, it is passed through unchanged.) If DL_FUNCS is not specified, it defaults to the bootstrap function for the extension specified in NAME. =item DL_VARS This is identical to the DL_VARS attribute available via MakeMaker, and, like DL_FUNCS, it is usually specified via MakeMaker. Its value is a reference to an array of variable names which should be exported by the extension. =item FILE This key can be used to specify the name of the linker option file (minus the OS-specific extension), if for some reason you do not want to use the default value, which is the last word of the NAME attribute (I<e.g.> for C<Tk::Canvas>, FILE defaults to C<Canvas>). =item FUNCLIST This provides an alternate means to specify function names to be exported from the extension. Its value is a reference to an array of function names to be exported by the extension. These names are passed through unaltered to the linker options file. Specifying a value for the FUNCLIST attribute suppresses automatic generation of the bootstrap function for the package. To still create the bootstrap name you have to specify the package name in the DL_FUNCS hash: Mksymlists( NAME => $name , FUNCLIST => [ $func1, $func2 ], DL_FUNCS => { $pkg => [] } ); =item IMPORTS This attribute is used to specify names to be imported into the extension. It is currently only used by OS/2 and Win32. =item NAME This gives the name of the extension (I<e.g.> C<Tk::Canvas>) for which the linker option file will be produced. =back When calling C<Mksymlists>, one should always specify the NAME attribute. In most cases, this is all that's necessary. In the case of unusual extensions, however, the other attributes can be used to provide additional information to the linker. =head1 AUTHOR Charles Bailey I<E<lt>bailey@newman.upenn.eduE<gt>> =head1 REVISION Last revised 14-Feb-1996, for Perl 5.002. PK ! �f�y� � 5.34.0/ExtUtils/xsubppnu �[��� #!perl use 5.006; BEGIN { pop @INC if $INC[-1] eq '.' } use strict; eval { require ExtUtils::ParseXS; 1; } or do { my $err = $@ || 'Zombie error'; my $v = $ExtUtils::ParseXS::VERSION; $v = '<undef>' if not defined $v; die "Failed to load or import from ExtUtils::ParseXS (version $v). Please check that ExtUtils::ParseXS is installed correctly and that the newest version will be found in your \@INC path: $err"; }; use Getopt::Long; my %args = (); my $usage = "Usage: xsubpp [-v] [-csuffix csuffix] [-except] [-prototypes] [-noversioncheck] [-nolinenumbers] [-nooptimize] [-noinout] [-noargtypes] [-strip|s pattern] [-typemap typemap]... file.xs\n"; Getopt::Long::Configure qw(no_auto_abbrev no_ignore_case); @ARGV = grep {$_ ne '-C++'} @ARGV; # Allow -C++ for backward compatibility GetOptions(\%args, qw(hiertype! prototypes! versioncheck! linenumbers! optimize! inout! argtypes! object_capi! except! v typemap=s@ output=s s|strip=s csuffix=s )) or die $usage; if ($args{v}) { print "xsubpp version $ExtUtils::ParseXS::VERSION\n"; exit; } @ARGV == 1 or die $usage; $args{filename} = shift @ARGV; my $pxs = ExtUtils::ParseXS->new; $pxs->process_file(%args); exit( $pxs->report_error_count() ? 1 : 0 ); __END__ =head1 NAME xsubpp - compiler to convert Perl XS code into C code =head1 SYNOPSIS B<xsubpp> [B<-v>] [B<-except>] [B<-s pattern>] [B<-prototypes>] [B<-noversioncheck>] [B<-nolinenumbers>] [B<-nooptimize>] [B<-typemap typemap>] [B<-output filename>]... file.xs =head1 DESCRIPTION This compiler is typically run by the makefiles created by L<ExtUtils::MakeMaker> or by L<Module::Build> or other Perl module build tools. I<xsubpp> will compile XS code into C code by embedding the constructs necessary to let C functions manipulate Perl values and creates the glue necessary to let Perl access those functions. The compiler uses typemaps to determine how to map C function parameters and variables to Perl values. The compiler will search for typemap files called I<typemap>. It will use the following search path to find default typemaps, with the rightmost typemap taking precedence. ../../../typemap:../../typemap:../typemap:typemap It will also use a default typemap installed as C<ExtUtils::typemap>. =head1 OPTIONS Note that the C<XSOPT> MakeMaker option may be used to add these options to any makefiles generated by MakeMaker. =over 5 =item B<-hiertype> Retains '::' in type names so that C++ hierarchical types can be mapped. =item B<-except> Adds exception handling stubs to the C code. =item B<-typemap typemap> Indicates that a user-supplied typemap should take precedence over the default typemaps. This option may be used multiple times, with the last typemap having the highest precedence. =item B<-output filename> Specifies the name of the output file to generate. If no file is specified, output will be written to standard output. =item B<-v> Prints the I<xsubpp> version number to standard output, then exits. =item B<-prototypes> By default I<xsubpp> will not automatically generate prototype code for all xsubs. This flag will enable prototypes. =item B<-noversioncheck> Disables the run time test that determines if the object file (derived from the C<.xs> file) and the C<.pm> files have the same version number. =item B<-nolinenumbers> Prevents the inclusion of '#line' directives in the output. =item B<-nooptimize> Disables certain optimizations. The only optimization that is currently affected is the use of I<target>s by the output C code (see L<perlguts>). This may significantly slow down the generated code, but this is the way B<xsubpp> of 5.005 and earlier operated. =item B<-noinout> Disable recognition of C<IN>, C<OUT_LIST> and C<INOUT_LIST> declarations. =item B<-noargtypes> Disable recognition of ANSI-like descriptions of function signature. =item B<-C++> Currently doesn't do anything at all. This flag has been a no-op for many versions of perl, at least as far back as perl5.003_07. It's allowed here for backwards compatibility. =item B<-s=...> or B<-strip=...> I<This option is obscure and discouraged.> If specified, the given string will be stripped off from the beginning of the C function name in the generated XS functions (if it starts with that prefix). This only applies to XSUBs without C<CODE> or C<PPCODE> blocks. For example, the XS: void foo_bar(int i); when C<xsubpp> is invoked with C<-s foo_> will install a C<foo_bar> function in Perl, but really call C<bar(i)> in C. Most of the time, this is the opposite of what you want and failure modes are somewhat obscure, so please avoid this option where possible. =back =head1 ENVIRONMENT No environment variables are used. =head1 AUTHOR Originally by Larry Wall. Turned into the C<ExtUtils::ParseXS> module by Ken Williams. =head1 MODIFICATION HISTORY See the file F<Changes>. =head1 SEE ALSO perl(1), perlxs(1), perlxstut(1), ExtUtils::ParseXS =cut PK ! Y�� � 5.34.0/ExtUtils/MM.pmnu �[��� package ExtUtils::MM; use strict; use warnings; use ExtUtils::MakeMaker::Config; our $VERSION = '7.62'; $VERSION =~ tr/_//d; require ExtUtils::Liblist; require ExtUtils::MakeMaker; our @ISA = qw(ExtUtils::Liblist ExtUtils::MakeMaker); =head1 NAME ExtUtils::MM - OS adjusted ExtUtils::MakeMaker subclass =head1 SYNOPSIS require ExtUtils::MM; my $mm = MM->new(...); =head1 DESCRIPTION B<FOR INTERNAL USE ONLY> ExtUtils::MM is a subclass of L<ExtUtils::MakeMaker> which automatically chooses the appropriate OS specific subclass for you (ie. L<ExtUtils::MM_Unix>, etc...). It also provides a convenient alias via the MM class (I didn't want MakeMaker modules outside of ExtUtils/). This class might turn out to be a temporary solution, but MM won't go away. =cut { # Convenient alias. package MM; our @ISA = qw(ExtUtils::MM); sub DESTROY {} } sub _is_win95 { # miniperl might not have the Win32 functions available and we need # to run in miniperl. my $have_win32 = eval { require Win32 }; return $have_win32 && defined &Win32::IsWin95 ? Win32::IsWin95() : ! defined $ENV{SYSTEMROOT}; } my %Is = (); $Is{VMS} = $^O eq 'VMS'; $Is{OS2} = $^O eq 'os2'; $Is{MacOS} = $^O eq 'MacOS'; if( $^O eq 'MSWin32' ) { _is_win95() ? $Is{Win95} = 1 : $Is{Win32} = 1; } $Is{UWIN} = $^O =~ /^uwin(-nt)?$/; $Is{Cygwin} = $^O eq 'cygwin'; $Is{NW5} = $Config{osname} eq 'NetWare'; # intentional $Is{BeOS} = ($^O =~ /beos/i or $^O eq 'haiku'); $Is{DOS} = $^O eq 'dos'; if( $Is{NW5} ) { $^O = 'NetWare'; delete $Is{Win32}; } $Is{VOS} = $^O eq 'vos'; $Is{QNX} = $^O eq 'qnx'; $Is{AIX} = $^O eq 'aix'; $Is{Darwin} = $^O eq 'darwin'; $Is{OS390} = $^O eq 'os390'; $Is{Unix} = !grep { $_ } values %Is; map { delete $Is{$_} unless $Is{$_} } keys %Is; _assert( keys %Is == 1 ); my($OS) = keys %Is; my $class = "ExtUtils::MM_$OS"; eval "require $class" unless $INC{"ExtUtils/MM_$OS.pm"}; ## no critic die $@ if $@; unshift @ISA, $class; sub _assert { my $sanity = shift; die sprintf "Assert failed at %s line %d\n", (caller)[1,2] unless $sanity; return; } PK ! ��Z! Z! 5.34.0/ExtUtils/Packlist.pmnu �[��� package ExtUtils::Packlist; use strict; use Carp qw(); use Config; our $Relocations; our $VERSION = '2.20'; $VERSION = eval $VERSION; # Used for generating filehandle globs. IO::File might not be available! my $fhname = "FH1"; =begin _undocumented =over =item mkfh() Make a filehandle. Same kind of idea as Symbol::gensym(). =cut sub mkfh() { no strict; local $^W; my $fh = \*{$fhname++}; use strict; return($fh); } =item __find_relocations Works out what absolute paths in the configuration have been located at run time relative to $^X, and generates a regexp that matches them =back =end _undocumented =cut sub __find_relocations { my %paths; while (my ($raw_key, $raw_val) = each %Config) { my $exp_key = $raw_key . "exp"; next unless exists $Config{$exp_key}; next unless $raw_val =~ m!\.\.\./!; $paths{$Config{$exp_key}}++; } # Longest prefixes go first in the alternatives my $alternations = join "|", map {quotemeta $_} sort {length $b <=> length $a} keys %paths; qr/^($alternations)/o; } sub new($$) { my ($class, $packfile) = @_; $class = ref($class) || $class; my %self; tie(%self, $class, $packfile); return(bless(\%self, $class)); } sub TIEHASH { my ($class, $packfile) = @_; my $self = { packfile => $packfile }; bless($self, $class); $self->read($packfile) if (defined($packfile) && -f $packfile); return($self); } sub STORE { $_[0]->{data}->{$_[1]} = $_[2]; } sub FETCH { return($_[0]->{data}->{$_[1]}); } sub FIRSTKEY { my $reset = scalar(keys(%{$_[0]->{data}})); return(each(%{$_[0]->{data}})); } sub NEXTKEY { return(each(%{$_[0]->{data}})); } sub EXISTS { return(exists($_[0]->{data}->{$_[1]})); } sub DELETE { return(delete($_[0]->{data}->{$_[1]})); } sub CLEAR { %{$_[0]->{data}} = (); } sub DESTROY { } sub read($;$) { my ($self, $packfile) = @_; $self = tied(%$self) || $self; if (defined($packfile)) { $self->{packfile} = $packfile; } else { $packfile = $self->{packfile}; } Carp::croak("No packlist filename specified") if (! defined($packfile)); my $fh = mkfh(); open($fh, "<$packfile") || Carp::croak("Can't open file $packfile: $!"); $self->{data} = {}; my ($line); while (defined($line = <$fh>)) { chomp $line; my ($key, $data) = $line; if ($key =~ /^(.*?)( \w+=.*)$/) { $key = $1; $data = { map { split('=', $_) } split(' ', $2)}; if ($Config{userelocatableinc} && $data->{relocate_as}) { require File::Spec; require Cwd; my ($vol, $dir) = File::Spec->splitpath($packfile); my $newpath = File::Spec->catpath($vol, $dir, $data->{relocate_as}); $key = Cwd::realpath($newpath); } } $key =~ s!/\./!/!g; # Some .packlists have spurious '/./' bits in the paths $self->{data}->{$key} = $data; } close($fh); } sub write($;$) { my ($self, $packfile) = @_; $self = tied(%$self) || $self; if (defined($packfile)) { $self->{packfile} = $packfile; } else { $packfile = $self->{packfile}; } Carp::croak("No packlist filename specified") if (! defined($packfile)); my $fh = mkfh(); open($fh, ">$packfile") || Carp::croak("Can't open file $packfile: $!"); foreach my $key (sort(keys(%{$self->{data}}))) { my $data = $self->{data}->{$key}; if ($Config{userelocatableinc}) { $Relocations ||= __find_relocations(); if ($packfile =~ $Relocations) { # We are writing into a subdirectory of a run-time relocated # path. Figure out if the this file is also within a subdir. my $prefix = $1; if (File::Spec->no_upwards(File::Spec->abs2rel($key, $prefix))) { # The relocated path is within the found prefix my $packfile_prefix; (undef, $packfile_prefix) = File::Spec->splitpath($packfile); my $relocate_as = File::Spec->abs2rel($key, $packfile_prefix); if (!ref $data) { $data = {}; } $data->{relocate_as} = $relocate_as; } } } print $fh ("$key"); if (ref($data)) { foreach my $k (sort(keys(%$data))) { print $fh (" $k=$data->{$k}"); } } print $fh ("\n"); } close($fh); } sub validate($;$) { my ($self, $remove) = @_; $self = tied(%$self) || $self; my @missing; foreach my $key (sort(keys(%{$self->{data}}))) { if (! -e $key) { push(@missing, $key); delete($self->{data}{$key}) if ($remove); } } return(@missing); } sub packlist_file($) { my ($self) = @_; $self = tied(%$self) || $self; return($self->{packfile}); } 1; __END__ =head1 NAME ExtUtils::Packlist - manage .packlist files =head1 SYNOPSIS use ExtUtils::Packlist; my ($pl) = ExtUtils::Packlist->new('.packlist'); $pl->read('/an/old/.packlist'); my @missing_files = $pl->validate(); $pl->write('/a/new/.packlist'); $pl->{'/some/file/name'}++; or $pl->{'/some/other/file/name'} = { type => 'file', from => '/some/file' }; =head1 DESCRIPTION ExtUtils::Packlist provides a standard way to manage .packlist files. Functions are provided to read and write .packlist files. The original .packlist format is a simple list of absolute pathnames, one per line. In addition, this package supports an extended format, where as well as a filename each line may contain a list of attributes in the form of a space separated list of key=value pairs. This is used by the installperl script to differentiate between files and links, for example. =head1 USAGE The hash reference returned by the new() function can be used to examine and modify the contents of the .packlist. Items may be added/deleted from the .packlist by modifying the hash. If the value associated with a hash key is a scalar, the entry written to the .packlist by any subsequent write() will be a simple filename. If the value is a hash, the entry written will be the filename followed by the key=value pairs from the hash. Reading back the .packlist will recreate the original entries. =head1 FUNCTIONS =over 4 =item new() This takes an optional parameter, the name of a .packlist. If the file exists, it will be opened and the contents of the file will be read. The new() method returns a reference to a hash. This hash holds an entry for each line in the .packlist. In the case of old-style .packlists, the value associated with each key is undef. In the case of new-style .packlists, the value associated with each key is a hash containing the key=value pairs following the filename in the .packlist. =item read() This takes an optional parameter, the name of the .packlist to be read. If no file is specified, the .packlist specified to new() will be read. If the .packlist does not exist, Carp::croak will be called. =item write() This takes an optional parameter, the name of the .packlist to be written. If no file is specified, the .packlist specified to new() will be overwritten. =item validate() This checks that every file listed in the .packlist actually exists. If an argument which evaluates to true is given, any missing files will be removed from the internal hash. The return value is a list of the missing files, which will be empty if they all exist. =item packlist_file() This returns the name of the associated .packlist file =back =head1 EXAMPLE Here's C<modrm>, a little utility to cleanly remove an installed module. #!/usr/local/bin/perl -w use strict; use IO::Dir; use ExtUtils::Packlist; use ExtUtils::Installed; sub emptydir($) { my ($dir) = @_; my $dh = IO::Dir->new($dir) || return(0); my @count = $dh->read(); $dh->close(); return(@count == 2 ? 1 : 0); } # Find all the installed packages print("Finding all installed modules...\n"); my $installed = ExtUtils::Installed->new(); foreach my $module (grep(!/^Perl$/, $installed->modules())) { my $version = $installed->version($module) || "???"; print("Found module $module Version $version\n"); print("Do you want to delete $module? [n] "); my $r = <STDIN>; chomp($r); if ($r && $r =~ /^y/i) { # Remove all the files foreach my $file (sort($installed->files($module))) { print("rm $file\n"); unlink($file); } my $pf = $installed->packlist($module)->packlist_file(); print("rm $pf\n"); unlink($pf); foreach my $dir (sort($installed->directory_tree($module))) { if (emptydir($dir)) { print("rmdir $dir\n"); rmdir($dir); } } } } =head1 AUTHOR Alan Burlison <Alan.Burlison@uk.sun.com> =cut PK ! ��$[� � 5.34.0/ExtUtils/MM_UWIN.pmnu �[��� package ExtUtils::MM_UWIN; use strict; use warnings; our $VERSION = '7.62'; $VERSION =~ tr/_//d; require ExtUtils::MM_Unix; our @ISA = qw(ExtUtils::MM_Unix); =head1 NAME ExtUtils::MM_UWIN - U/WIN specific subclass of ExtUtils::MM_Unix =head1 SYNOPSIS Don't use this module directly. Use ExtUtils::MM and let it choose. =head1 DESCRIPTION This is a subclass of L<ExtUtils::MM_Unix> which contains functionality for the AT&T U/WIN UNIX on Windows environment. Unless otherwise stated it works just like ExtUtils::MM_Unix. =head2 Overridden methods =over 4 =item os_flavor In addition to being Unix, we're U/WIN. =cut sub os_flavor { return('Unix', 'U/WIN'); } =item B<replace_manpage_separator> =cut sub replace_manpage_separator { my($self, $man) = @_; $man =~ s,/+,.,g; return $man; } =back =head1 AUTHOR Michael G Schwern <schwern@pobox.com> with code from ExtUtils::MM_Unix =head1 SEE ALSO L<ExtUtils::MM_Win32>, L<ExtUtils::MakeMaker> =cut 1; PK ! � B��" �" 5.34.0/ExtUtils/CBuilder.pmnu �[��� package ExtUtils::CBuilder; use File::Spec (); use File::Path (); use File::Basename (); use Perl::OSType qw/os_type/; use warnings; use strict; our $VERSION = '0.280236'; # VERSION our @ISA; # We only use this once - don't waste a symbol table entry on it. # More importantly, don't make it an inheritable method. my $load = sub { my $mod = shift; eval "use $mod"; die $@ if $@; @ISA = ($mod); }; { my @package = split /::/, __PACKAGE__; my $ostype = os_type(); if (grep {-e File::Spec->catfile($_, @package, 'Platform', $^O) . '.pm'} @INC) { $load->(__PACKAGE__ . "::Platform::$^O"); } elsif ( $ostype && grep {-e File::Spec->catfile($_, @package, 'Platform', $ostype) . '.pm'} @INC) { $load->(__PACKAGE__ . "::Platform::$ostype"); } else { $load->(__PACKAGE__ . "::Base"); } } 1; __END__ =head1 NAME ExtUtils::CBuilder - Compile and link C code for Perl modules =head1 SYNOPSIS use ExtUtils::CBuilder; my $b = ExtUtils::CBuilder->new(%options); $obj_file = $b->compile(source => 'MyModule.c'); $lib_file = $b->link(objects => $obj_file); =head1 DESCRIPTION This module can build the C portions of Perl modules by invoking the appropriate compilers and linkers in a cross-platform manner. It was motivated by the C<Module::Build> project, but may be useful for other purposes as well. However, it is I<not> intended as a general cross-platform interface to all your C building needs. That would have been a much more ambitious goal! =head1 METHODS =over 4 =item new Returns a new C<ExtUtils::CBuilder> object. A C<config> parameter lets you override C<Config.pm> settings for all operations performed by the object, as in the following example: # Use a different compiler than Config.pm says my $b = ExtUtils::CBuilder->new( config => { ld => 'gcc' } ); A C<quiet> parameter tells C<CBuilder> to not print its C<system()> commands before executing them: # Be quieter than normal my $b = ExtUtils::CBuilder->new( quiet => 1 ); =item have_compiler Returns true if the current system has a working C compiler and linker, false otherwise. To determine this, we actually compile and link a sample C library. The sample will be compiled in the system tempdir or, if that fails for some reason, in the current directory. =item have_cplusplus Just like have_compiler but for C++ instead of C. =item compile Compiles a C source file and produces an object file. The name of the object file is returned. The source file is specified in a C<source> parameter, which is required; the other parameters listed below are optional. =over 4 =item C<object_file> Specifies the name of the output file to create. Otherwise the C<object_file()> method will be consulted, passing it the name of the C<source> file. =item C<include_dirs> Specifies any additional directories in which to search for header files. May be given as a string indicating a single directory, or as a list reference indicating multiple directories. =item C<extra_compiler_flags> Specifies any additional arguments to pass to the compiler. Should be given as a list reference containing the arguments individually, or if this is not possible, as a string containing all the arguments together. =item C<C++> Specifies that the source file is a C++ source file and sets appropriate compiler flags =back The operation of this method is also affected by the C<archlibexp>, C<cccdlflags>, C<ccflags>, C<optimize>, and C<cc> entries in C<Config.pm>. =item link Invokes the linker to produce a library file from object files. In scalar context, the name of the library file is returned. In list context, the library file and any temporary files created are returned. A required C<objects> parameter contains the name of the object files to process, either in a string (for one object file) or list reference (for one or more files). The following parameters are optional: =over 4 =item lib_file Specifies the name of the output library file to create. Otherwise the C<lib_file()> method will be consulted, passing it the name of the first entry in C<objects>. =item module_name Specifies the name of the Perl module that will be created by linking. On platforms that need to do prelinking (Win32, OS/2, etc.) this is a required parameter. =item extra_linker_flags Any additional flags you wish to pass to the linker. =back On platforms where C<need_prelink()> returns true, C<prelink()> will be called automatically. The operation of this method is also affected by the C<lddlflags>, C<shrpenv>, and C<ld> entries in C<Config.pm>. =item link_executable Invokes the linker to produce an executable file from object files. In scalar context, the name of the executable file is returned. In list context, the executable file and any temporary files created are returned. A required C<objects> parameter contains the name of the object files to process, either in a string (for one object file) or list reference (for one or more files). The optional parameters are the same as C<link> with exception for =over 4 =item exe_file Specifies the name of the output executable file to create. Otherwise the C<exe_file()> method will be consulted, passing it the name of the first entry in C<objects>. =back =item object_file my $object_file = $b->object_file($source_file); Converts the name of a C source file to the most natural name of an output object file to create from it. For instance, on Unix the source file F<foo.c> would result in the object file F<foo.o>. =item lib_file my $lib_file = $b->lib_file($object_file); Converts the name of an object file to the most natural name of a output library file to create from it. For instance, on Mac OS X the object file F<foo.o> would result in the library file F<foo.bundle>. =item exe_file my $exe_file = $b->exe_file($object_file); Converts the name of an object file to the most natural name of an executable file to create from it. For instance, on Mac OS X the object file F<foo.o> would result in the executable file F<foo>, and on Windows it would result in F<foo.exe>. =item prelink On certain platforms like Win32, OS/2, VMS, and AIX, it is necessary to perform some actions before invoking the linker. The C<ExtUtils::Mksymlists> module does this, writing files used by the linker during the creation of shared libraries for dynamic extensions. The names of any files written will be returned as a list. Several parameters correspond to C<ExtUtils::Mksymlists::Mksymlists()> options, as follows: Mksymlists() prelink() type -------------|-------------------|------------------- NAME | dl_name | string (required) DLBASE | dl_base | string FILE | dl_file | string DL_VARS | dl_vars | array reference DL_FUNCS | dl_funcs | hash reference FUNCLIST | dl_func_list | array reference IMPORTS | dl_imports | hash reference VERSION | dl_version | string Please see the documentation for C<ExtUtils::Mksymlists> for the details of what these parameters do. =item need_prelink Returns true on platforms where C<prelink()> should be called during linking, and false otherwise. =item extra_link_args_after_prelink Returns list of extra arguments to give to the link command; the arguments are the same as for prelink(), with addition of array reference to the results of prelink(); this reference is indexed by key C<prelink_res>. =back =head1 TO DO Currently this has only been tested on Unix and doesn't contain any of the Windows-specific code from the C<Module::Build> project. I'll do that next. =head1 HISTORY This module is an outgrowth of the C<Module::Build> project, to which there have been many contributors. Notably, Randy W. Sims submitted lots of code to support 3 compilers on Windows and helped with various other platform-specific issues. Ilya Zakharevich has contributed fixes for OS/2; John E. Malmberg and Peter Prymmer have done likewise for VMS. =head1 SUPPORT ExtUtils::CBuilder is maintained as part of the Perl 5 core. Please submit any bug reports via the F<perlbug> tool included with Perl 5. Bug reports will be included in the Perl 5 ticket system at L<https://rt.perl.org>. The Perl 5 source code is available at L<https://perl5.git.perl.org/perl.git> and ExtUtils-CBuilder may be found in the F<dist/ExtUtils-CBuilder> directory of the repository. =head1 AUTHOR Ken Williams, kwilliams@cpan.org Additional contributions by The Perl 5 Porters. =head1 COPYRIGHT Copyright (c) 2003-2005 Ken Williams. All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO perl(1), Module::Build(3) =cut PK ! �(�k� � 5.34.0/ExtUtils/MANIFEST.SKIPnu �[��� # Avoid version control files. \bRCS\b \bCVS\b \bSCCS\b ,v$ \B\.svn\b \B\.git\b ^\.github\b \B\.gitignore\b \b_darcs\b \B\.cvsignore$ # Avoid VMS specific MakeMaker generated files \bDescrip.MMS$ \bDESCRIP.MMS$ \bdescrip.mms$ # Avoid Makemaker generated and utility files. \bMANIFEST\.bak \bMakefile$ \bblib/ \bMakeMaker-\d \bpm_to_blib\.ts$ \bpm_to_blib$ \bblibdirs\.ts$ # 6.18 through 6.25 generated this \b_eumm/ # 7.05_05 and above # Avoid Module::Build generated and utility files. \bBuild$ \b_build/ \bBuild.bat$ \bBuild.COM$ \bBUILD.COM$ \bbuild.com$ # and Module::Build::Tiny generated files \b_build_params$ # Avoid temp and backup files. ~$ \.old$ \#$ \b\.# \.bak$ \.tmp$ \.# \.rej$ \..*\.sw.?$ # Avoid OS-specific files/dirs # Mac OSX metadata \B\.DS_Store # Mac OSX SMB mount metadata files \B\._ # Placeholder files created when iCloud will "optimize Mac storage" \.i[cC]loud$ # Avoid Devel::Cover and Devel::CoverX::Covered files. \bcover_db\b \bcovered\b # Avoid prove files \B\.prove$ # Avoid MYMETA files ^MYMETA\. # Temp files for new META ^META_new\.(?:json|yml) # Avoid travis-ci.org file ^\.travis\.yml # Avoid AppVeyor file ^\.?appveyor.yml PK ! c%�I�: �: 5.34.0/ExtUtils/MM_Win32.pmnu �[��� package ExtUtils::MM_Win32; use strict; use warnings; =head1 NAME ExtUtils::MM_Win32 - methods to override UN*X behaviour in ExtUtils::MakeMaker =head1 SYNOPSIS use ExtUtils::MM_Win32; # Done internally by ExtUtils::MakeMaker if needed =head1 DESCRIPTION See L<ExtUtils::MM_Unix> for a documentation of the methods provided there. This package overrides the implementation of these methods, not the semantics. =cut use ExtUtils::MakeMaker::Config; use File::Basename; use File::Spec; use ExtUtils::MakeMaker qw(neatvalue _sprintf562); require ExtUtils::MM_Any; require ExtUtils::MM_Unix; our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix ); our $VERSION = '7.62'; $VERSION =~ tr/_//d; $ENV{EMXSHELL} = 'sh'; # to run `commands` my ( $BORLAND, $GCC, $MSVC ) = _identify_compiler_environment( \%Config ); sub _identify_compiler_environment { my ( $config ) = @_; my $BORLAND = $config->{cc} =~ /\bbcc/i ? 1 : 0; my $GCC = $config->{cc} =~ /\bgcc\b/i ? 1 : 0; my $MSVC = $config->{cc} =~ /\b(?:cl|icl)/i ? 1 : 0; # MSVC can come as clarm.exe, icl=Intel C return ( $BORLAND, $GCC, $MSVC ); } =head2 Overridden methods =over 4 =item B<dlsyms> =cut sub dlsyms { my($self,%attribs) = @_; return '' if $self->{SKIPHASH}{'dynamic'}; $self->xs_dlsyms_iterator(\%attribs); } =item xs_dlsyms_ext On Win32, is C<.def>. =cut sub xs_dlsyms_ext { '.def'; } =item replace_manpage_separator Changes the path separator with . =cut sub replace_manpage_separator { my($self,$man) = @_; $man =~ s,[/\\]+,.,g; $man; } =item B<maybe_command> Since Windows has nothing as simple as an executable bit, we check the file extension. The PATHEXT env variable will be used to get a list of extensions that might indicate a command, otherwise .com, .exe, .bat and .cmd will be used by default. =cut sub maybe_command { my($self,$file) = @_; my @e = exists($ENV{'PATHEXT'}) ? split(/;/, $ENV{PATHEXT}) : qw(.com .exe .bat .cmd); my $e = ''; for (@e) { $e .= "\Q$_\E|" } chop $e; # see if file ends in one of the known extensions if ($file =~ /($e)$/i) { return $file if -e $file; } else { for (@e) { return "$file$_" if -e "$file$_"; } } return; } =item B<init_DIRFILESEP> Using \ for Windows, except for "gmake" where it is /. =cut sub init_DIRFILESEP { my($self) = shift; # The ^ makes sure its not interpreted as an escape in nmake $self->{DIRFILESEP} = $self->is_make_type('nmake') ? '^\\' : $self->is_make_type('dmake') ? '\\\\' : $self->is_make_type('gmake') ? '/' : '\\'; } =item init_tools Override some of the slower, portable commands with Windows specific ones. =cut sub init_tools { my ($self) = @_; $self->{NOOP} ||= 'rem'; $self->{DEV_NULL} ||= '> NUL'; $self->{FIXIN} ||= $self->{PERL_CORE} ? "\$(PERLRUN) -I$self->{PERL_SRC}\\cpan\\ExtUtils-PL2Bat\\lib $self->{PERL_SRC}\\win32\\bin\\pl2bat.pl" : 'pl2bat.bat'; $self->SUPER::init_tools; # Setting SHELL from $Config{sh} can break dmake. Its ok without it. delete $self->{SHELL}; return; } =item init_others Override the default link and compile tools. LDLOADLIBS's default is changed to $Config{libs}. Adjustments are made for Borland's quirks needing -L to come first. =cut sub init_others { my $self = shift; $self->{LD} ||= 'link'; $self->{AR} ||= 'lib'; $self->SUPER::init_others; $self->{LDLOADLIBS} ||= $Config{libs}; # -Lfoo must come first for Borland, so we put it in LDDLFLAGS if ($BORLAND) { my $libs = $self->{LDLOADLIBS}; my $libpath = ''; while ($libs =~ s/(?:^|\s)(("?)-L.+?\2)(?:\s|$)/ /) { $libpath .= ' ' if length $libpath; $libpath .= $1; } $self->{LDLOADLIBS} = $libs; $self->{LDDLFLAGS} ||= $Config{lddlflags}; $self->{LDDLFLAGS} .= " $libpath"; } return; } =item init_platform Add MM_Win32_VERSION. =item platform_constants =cut sub init_platform { my($self) = shift; $self->{MM_Win32_VERSION} = $VERSION; return; } sub platform_constants { my($self) = shift; my $make_frag = ''; foreach my $macro (qw(MM_Win32_VERSION)) { next unless defined $self->{$macro}; $make_frag .= "$macro = $self->{$macro}\n"; } return $make_frag; } =item specify_shell Set SHELL to $ENV{COMSPEC} only if make is type 'gmake'. =cut sub specify_shell { my $self = shift; return '' unless $self->is_make_type('gmake'); "\nSHELL = $ENV{COMSPEC}\n"; } =item constants Add MAXLINELENGTH for dmake before all the constants are output. =cut sub constants { my $self = shift; my $make_text = $self->SUPER::constants; return $make_text unless $self->is_make_type('dmake'); # dmake won't read any single "line" (even those with escaped newlines) # larger than a certain size which can be as small as 8k. PM_TO_BLIB # on large modules like DateTime::TimeZone can create lines over 32k. # So we'll crank it up to a <ironic>WHOPPING</ironic> 64k. # # This has to come here before all the constants and not in # platform_constants which is after constants. my $size = $self->{MAXLINELENGTH} || 800000; my $prefix = qq{ # Get dmake to read long commands like PM_TO_BLIB MAXLINELENGTH = $size }; return $prefix . $make_text; } =item special_targets Add .USESHELL target for dmake. =cut sub special_targets { my($self) = @_; my $make_frag = $self->SUPER::special_targets; $make_frag .= <<'MAKE_FRAG' if $self->is_make_type('dmake'); .USESHELL : MAKE_FRAG return $make_frag; } =item static_lib_pure_cmd Defines how to run the archive utility =cut sub static_lib_pure_cmd { my ($self, $from) = @_; $from =~ s/(\$\(\w+)(\))/$1:^"+"$2/g if $BORLAND; sprintf qq{\t\$(AR) %s\n}, ($BORLAND ? '$@ ' . $from : ($GCC ? '-ru $@ ' . $from : '-out:$@ ' . $from)); } =item dynamic_lib Methods are overridden here: not dynamic_lib itself, but the utility ones that do the OS-specific work. =cut sub xs_make_dynamic_lib { my ($self, $attribs, $from, $to, $todir, $ldfrom, $exportlist) = @_; my @m = sprintf '%s : %s $(MYEXTLIB) %s$(DFSEP).exists %s $(PERL_ARCHIVEDEP) $(INST_DYNAMIC_DEP)'."\n", $to, $from, $todir, $exportlist; if ($GCC) { # per https://rt.cpan.org/Ticket/Display.html?id=78395 no longer # uses dlltool - relies on post 2002 MinGW # 1 2 push @m, _sprintf562 <<'EOF', $exportlist, $ldfrom; $(LD) %1$s -o $@ $(LDDLFLAGS) %2$s $(OTHERLDFLAGS) $(MYEXTLIB) "$(PERL_ARCHIVE)" $(LDLOADLIBS) -Wl,--enable-auto-image-base EOF } elsif ($BORLAND) { my $ldargs = $self->is_make_type('dmake') ? q{"$(PERL_ARCHIVE:s,/,\,)" $(LDLOADLIBS:s,/,\,) $(MYEXTLIB:s,/,\,),} : q{"$(subst /,\,$(PERL_ARCHIVE))" $(subst /,\,$(LDLOADLIBS)) $(subst /,\,$(MYEXTLIB)),}; my $subbed; if ($exportlist eq '$(EXPORT_LIST)') { $subbed = $self->is_make_type('dmake') ? q{$(EXPORT_LIST:s,/,\,)} : q{$(subst /,\,$(EXPORT_LIST))}; } else { # in XSMULTI, exportlist is per-XS, so have to sub in perl not make ($subbed = $exportlist) =~ s#/#\\#g; } push @m, sprintf <<'EOF', $ldfrom, $ldargs . $subbed; $(LD) $(LDDLFLAGS) $(OTHERLDFLAGS) %s,$@,,%s,$(RESFILES) EOF } else { # VC push @m, sprintf <<'EOF', $ldfrom, $exportlist; $(LD) -out:$@ $(LDDLFLAGS) %s $(OTHERLDFLAGS) $(MYEXTLIB) "$(PERL_ARCHIVE)" $(LDLOADLIBS) -def:%s EOF # Embed the manifest file if it exists push(@m, q{ if exist $@.manifest mt -nologo -manifest $@.manifest -outputresource:$@;2 if exist $@.manifest del $@.manifest}); } push @m, "\n\t\$(CHMOD) \$(PERM_RWX) \$\@\n"; join '', @m; } sub xs_dynamic_lib_macros { my ($self, $attribs) = @_; my $otherldflags = $attribs->{OTHERLDFLAGS} || ($BORLAND ? 'c0d32.obj': ''); my $inst_dynamic_dep = $attribs->{INST_DYNAMIC_DEP} || ""; sprintf <<'EOF', $otherldflags, $inst_dynamic_dep; # This section creates the dynamically loadable objects from relevant # objects and possibly $(MYEXTLIB). OTHERLDFLAGS = %s INST_DYNAMIC_DEP = %s EOF } =item extra_clean_files Clean out some extra dll.{base,exp} files which might be generated by gcc. Otherwise, take out all *.pdb files. =cut sub extra_clean_files { my $self = shift; return $GCC ? (qw(dll.base dll.exp)) : ('*.pdb'); } =item init_linker =cut sub init_linker { my $self = shift; $self->{PERL_ARCHIVE} = "\$(PERL_INC)\\$Config{libperl}"; $self->{PERL_ARCHIVEDEP} = "\$(PERL_INCDEP)\\$Config{libperl}"; $self->{PERL_ARCHIVE_AFTER} = ''; $self->{EXPORT_LIST} = '$(BASEEXT).def'; } =item perl_script Checks for the perl program under several common perl extensions. =cut sub perl_script { my($self,$file) = @_; return $file if -r $file && -f _; return "$file.pl" if -r "$file.pl" && -f _; return "$file.plx" if -r "$file.plx" && -f _; return "$file.bat" if -r "$file.bat" && -f _; return; } sub can_dep_space { my ($self) = @_; return 0 unless $self->can_load_xs; require Win32; require File::Spec; my ($vol, $dir) = File::Spec->splitpath($INC{'ExtUtils/MakeMaker.pm'}); # can_dep_space via GetShortPathName, if short paths are supported my $canary = Win32::GetShortPathName(File::Spec->catpath($vol, $dir, 'MakeMaker.pm')); (undef, undef, my $file) = File::Spec->splitpath($canary); return (length $file > 11) ? 0 : 1; } =item quote_dep =cut sub quote_dep { my ($self, $arg) = @_; if ($arg =~ / / and not $self->is_make_type('gmake')) { require Win32; $arg = Win32::GetShortPathName($arg); die <<EOF if not defined $arg or $arg =~ / /; Tried to use make dependency with space for non-GNU make: '$arg' Fallback to short pathname failed. EOF return $arg; } return $self->SUPER::quote_dep($arg); } =item xs_obj_opt Override to fixup -o flags for MSVC. =cut sub xs_obj_opt { my ($self, $output_file) = @_; ($MSVC ? "/Fo" : "-o ") . $output_file; } =item pasthru All we send is -nologo to nmake to prevent it from printing its damned banner. =cut sub pasthru { my($self) = shift; my $old = $self->SUPER::pasthru; return $old unless $self->is_make_type('nmake'); $old =~ s/(PASTHRU\s*=\s*)/$1 -nologo /; $old; } =item arch_check (override) Normalize all arguments for consistency of comparison. =cut sub arch_check { my $self = shift; # Win32 is an XS module, minperl won't have it. # arch_check() is not critical, so just fake it. return 1 unless $self->can_load_xs; return $self->SUPER::arch_check( map { $self->_normalize_path_name($_) } @_); } sub _normalize_path_name { my $self = shift; my $file = shift; require Win32; my $short = Win32::GetShortPathName($file); return defined $short ? lc $short : lc $file; } =item oneliner These are based on what command.com does on Win98. They may be wrong for other Windows shells, I don't know. =cut sub oneliner { my($self, $cmd, $switches) = @_; $switches = [] unless defined $switches; # Strip leading and trailing newlines $cmd =~ s{^\n+}{}; $cmd =~ s{\n+$}{}; $cmd = $self->quote_literal($cmd); $cmd = $self->escape_newlines($cmd); $switches = join ' ', @$switches; return qq{\$(ABSPERLRUN) $switches -e $cmd --}; } sub quote_literal { my($self, $text, $opts) = @_; $opts->{allow_variables} = 1 unless defined $opts->{allow_variables}; # See: http://www.autohotkey.net/~deleyd/parameters/parameters.htm#CPP # Apply the Microsoft C/C++ parsing rules $text =~ s{\\\\"}{\\\\\\\\\\"}g; # \\" -> \\\\\" $text =~ s{(?<!\\)\\"}{\\\\\\"}g; # \" -> \\\" $text =~ s{(?<!\\)"}{\\"}g; # " -> \" $text = qq{"$text"} if $text =~ /[ \t#]/; # hash because gmake 4.2.1 # Apply the Command Prompt parsing rules (cmd.exe) my @text = split /("[^"]*")/, $text; # We should also escape parentheses, but it breaks one-liners containing # $(MACRO)s in makefiles. s{([<>|&^@!])}{^$1}g foreach grep { !/^"[^"]*"$/ } @text; $text = join('', @text); # dmake expands {{ to { and }} to }. if( $self->is_make_type('dmake') ) { $text =~ s/{/{{/g; $text =~ s/}/}}/g; } $text = $opts->{allow_variables} ? $self->escape_dollarsigns($text) : $self->escape_all_dollarsigns($text); return $text; } sub escape_newlines { my($self, $text) = @_; # Escape newlines $text =~ s{\n}{\\\n}g; return $text; } =item cd dmake can handle Unix style cd'ing but nmake (at least 1.5) cannot. It wants: cd dir1\dir2 command another_command cd ..\.. =cut sub cd { my($self, $dir, @cmds) = @_; return $self->SUPER::cd($dir, @cmds) unless $self->is_make_type('nmake'); my $cmd = join "\n\t", map "$_", @cmds; my $updirs = $self->catdir(map { $self->updir } $self->splitdir($dir)); # No leading tab and no trailing newline makes for easier embedding. my $make_frag = sprintf <<'MAKE_FRAG', $dir, $cmd, $updirs; cd %s %s cd %s MAKE_FRAG chomp $make_frag; return $make_frag; } =item max_exec_len nmake 1.50 limits command length to 2048 characters. =cut sub max_exec_len { my $self = shift; return $self->{_MAX_EXEC_LEN} ||= 2 * 1024; } =item os_flavor Windows is Win32. =cut sub os_flavor { return('Win32'); } =item dbgoutflag Returns a CC flag that tells the CC to emit a separate debugging symbol file when compiling an object file. =cut sub dbgoutflag { $MSVC ? '-Fd$(*).pdb' : ''; } =item cflags Defines the PERLDLL symbol if we are configured for static building since all code destined for the perl5xx.dll must be compiled with the PERLDLL symbol defined. =cut sub cflags { my($self,$libperl)=@_; return $self->{CFLAGS} if $self->{CFLAGS}; return '' unless $self->needs_linking(); my $base = $self->SUPER::cflags($libperl); foreach (split /\n/, $base) { /^(\S*)\s*=\s*(\S*)$/ and $self->{$1} = $2; }; $self->{CCFLAGS} .= " -DPERLDLL" if ($self->{LINKTYPE} eq 'static'); return $self->{CFLAGS} = qq{ CCFLAGS = $self->{CCFLAGS} OPTIMIZE = $self->{OPTIMIZE} PERLTYPE = $self->{PERLTYPE} }; } =item make_type Returns a suitable string describing the type of makefile being written. =cut sub make_type { my ($self) = @_; my $make = $self->make; $make = +( File::Spec->splitpath( $make ) )[-1]; $make =~ s!\.exe$!!i; if ( $make =~ m![^A-Z0-9]!i ) { ($make) = grep { m!make!i } split m![^A-Z0-9]!i, $make; } return "$make-style"; } 1; __END__ =back PK ! �c���[ �[ 5.34.0/ExtUtils/Manifest.pmnu �[��� package ExtUtils::Manifest; # git description: 1.72-7-g54209ce require Exporter; use Config; use File::Basename; use File::Copy 'copy'; use File::Find; use File::Spec 0.8; use Carp; use strict; use warnings; our $VERSION = '1.73'; our @ISA = ('Exporter'); our @EXPORT_OK = qw(mkmanifest manicheck filecheck fullcheck skipcheck manifind maniread manicopy maniadd maniskip ); our $Is_MacOS = $^O eq 'MacOS'; our $Is_VMS = $^O eq 'VMS'; our $Is_VMS_mode = 0; our $Is_VMS_lc = 0; our $Is_VMS_nodot = 0; # No dots in dir names or double dots in files if ($Is_VMS) { require VMS::Filespec if $Is_VMS; my $vms_unix_rpt; my $vms_efs; my $vms_case; $Is_VMS_mode = 1; $Is_VMS_lc = 1; $Is_VMS_nodot = 1; if (eval { local $SIG{__DIE__}; require VMS::Feature; }) { $vms_unix_rpt = VMS::Feature::current("filename_unix_report"); $vms_efs = VMS::Feature::current("efs_charset"); $vms_case = VMS::Feature::current("efs_case_preserve"); } else { my $unix_rpt = $ENV{'DECC$FILENAME_UNIX_REPORT'} || ''; my $efs_charset = $ENV{'DECC$EFS_CHARSET'} || ''; my $efs_case = $ENV{'DECC$EFS_CASE_PRESERVE'} || ''; $vms_unix_rpt = $unix_rpt =~ /^[ET1]/i; $vms_efs = $efs_charset =~ /^[ET1]/i; $vms_case = $efs_case =~ /^[ET1]/i; } $Is_VMS_lc = 0 if ($vms_case); $Is_VMS_mode = 0 if ($vms_unix_rpt); $Is_VMS_nodot = 0 if ($vms_efs); } our $Debug = $ENV{PERL_MM_MANIFEST_DEBUG} || 0; our $Verbose = defined $ENV{PERL_MM_MANIFEST_VERBOSE} ? $ENV{PERL_MM_MANIFEST_VERBOSE} : 1; our $Quiet = 0; our $MANIFEST = 'MANIFEST'; our $DEFAULT_MSKIP = File::Spec->rel2abs(File::Spec->catfile( dirname(__FILE__), "$MANIFEST.SKIP" )); =head1 NAME ExtUtils::Manifest - Utilities to write and check a MANIFEST file =head1 VERSION version 1.73 =head1 SYNOPSIS use ExtUtils::Manifest qw(...funcs to import...); mkmanifest(); my @missing_files = manicheck; my @skipped = skipcheck; my @extra_files = filecheck; my($missing, $extra) = fullcheck; my $found = manifind(); my $manifest = maniread(); manicopy($read,$target); maniadd({$file => $comment, ...}); =head1 DESCRIPTION ... =head1 FUNCTIONS ExtUtils::Manifest exports no functions by default. The following are exported on request: =head2 mkmanifest mkmanifest(); Writes all files in and below the current directory to your F<MANIFEST>. It works similar to the result of the Unix command find . > MANIFEST All files that match any regular expression in a file F<MANIFEST.SKIP> (if it exists) are ignored. Any existing F<MANIFEST> file will be saved as F<MANIFEST.bak>. =cut sub _sort { return sort { lc $a cmp lc $b } @_; } sub mkmanifest { my $manimiss = 0; my $read = (-r 'MANIFEST' && maniread()) or $manimiss++; $read = {} if $manimiss; local *M; my $bakbase = $MANIFEST; $bakbase =~ s/\./_/g if $Is_VMS_nodot; # avoid double dots rename $MANIFEST, "$bakbase.bak" unless $manimiss; open M, "> $MANIFEST" or die "Could not open $MANIFEST: $!"; binmode M, ':raw'; my $skip = maniskip(); my $found = manifind(); my($key,$val,$file,%all); %all = (%$found, %$read); $all{$MANIFEST} = ($Is_VMS_mode ? "$MANIFEST\t\t" : '') . 'This list of files' if $manimiss; # add new MANIFEST to known file list foreach $file (_sort keys %all) { if ($skip->($file)) { # Policy: only remove files if they're listed in MANIFEST.SKIP. # Don't remove files just because they don't exist. warn "Removed from $MANIFEST: $file\n" if $Verbose and exists $read->{$file}; next; } if ($Verbose){ warn "Added to $MANIFEST: $file\n" unless exists $read->{$file}; } my $text = $all{$file}; $file = _unmacify($file); my $tabs = (5 - (length($file)+1)/8); $tabs = 1 if $tabs < 1; $tabs = 0 unless $text; if ($file =~ /\s/) { $file =~ s/([\\'])/\\$1/g; $file = "'$file'"; } print M $file, "\t" x $tabs, $text, "\n"; } close M; } # Geez, shouldn't this use File::Spec or File::Basename or something? # Why so careful about dependencies? sub clean_up_filename { my $filename = shift; $filename =~ s|^\./||; $filename =~ s/^:([^:]+)$/$1/ if $Is_MacOS; if ( $Is_VMS ) { $filename =~ s/\.$//; # trim trailing dot $filename = VMS::Filespec::unixify($filename); # unescape spaces, etc. if( $Is_VMS_lc ) { $filename = lc($filename); $filename = uc($filename) if $filename =~ /^MANIFEST(\.SKIP)?$/i; } } return $filename; } =head2 manifind my $found = manifind(); returns a hash reference. The keys of the hash are the files found below the current directory. =cut sub manifind { my $p = shift || {}; my $found = {}; my $wanted = sub { my $name = clean_up_filename($File::Find::name); warn "Debug: diskfile $name\n" if $Debug; return if -d $_; $found->{$name} = ""; }; # We have to use "$File::Find::dir/$_" in preprocess, because # $File::Find::name is unavailable. # Also, it's okay to use / here, because MANIFEST files use Unix-style # paths. find({wanted => $wanted, follow_fast => 1}, $Is_MacOS ? ":" : "."); return $found; } =head2 manicheck my @missing_files = manicheck(); checks if all the files within a C<MANIFEST> in the current directory really do exist. If C<MANIFEST> and the tree below the current directory are in sync it silently returns an empty list. Otherwise it returns a list of files which are listed in the C<MANIFEST> but missing from the directory, and by default also outputs these names to STDERR. =cut sub manicheck { return _check_files(); } =head2 filecheck my @extra_files = filecheck(); finds files below the current directory that are not mentioned in the C<MANIFEST> file. An optional file C<MANIFEST.SKIP> will be consulted. Any file matching a regular expression in such a file will not be reported as missing in the C<MANIFEST> file. The list of any extraneous files found is returned, and by default also reported to STDERR. =cut sub filecheck { return _check_manifest(); } =head2 fullcheck my($missing, $extra) = fullcheck(); does both a manicheck() and a filecheck(), returning then as two array refs. =cut sub fullcheck { return [_check_files()], [_check_manifest()]; } =head2 skipcheck my @skipped = skipcheck(); lists all the files that are skipped due to your C<MANIFEST.SKIP> file. =cut sub skipcheck { my($p) = @_; my $found = manifind(); my $matches = maniskip(); my @skipped = (); foreach my $file (_sort keys %$found){ if (&$matches($file)){ warn "Skipping $file\n" unless $Quiet; push @skipped, $file; next; } } return @skipped; } sub _check_files { my $p = shift; my $dosnames=(defined(&Dos::UseLFN) && Dos::UseLFN()==0); my $read = maniread() || {}; my $found = manifind($p); my(@missfile) = (); foreach my $file (_sort keys %$read){ warn "Debug: manicheck checking from $MANIFEST $file\n" if $Debug; if ($dosnames){ $file = lc $file; $file =~ s=(\.(\w|-)+)=substr ($1,0,4)=ge; $file =~ s=((\w|-)+)=substr ($1,0,8)=ge; } unless ( exists $found->{$file} ) { warn "No such file: $file\n" unless $Quiet; push @missfile, $file; } } return @missfile; } sub _check_manifest { my($p) = @_; my $read = maniread() || {}; my $found = manifind($p); my $skip = maniskip(); my @missentry = (); foreach my $file (_sort keys %$found){ next if $skip->($file); warn "Debug: manicheck checking from disk $file\n" if $Debug; unless ( exists $read->{$file} ) { my $canon = $Is_MacOS ? "\t" . _unmacify($file) : ''; warn "Not in $MANIFEST: $file$canon\n" unless $Quiet; push @missentry, $file; } } return @missentry; } =head2 maniread my $manifest = maniread(); my $manifest = maniread($manifest_file); reads a named C<MANIFEST> file (defaults to C<MANIFEST> in the current directory) and returns a HASH reference with files being the keys and comments being the values of the HASH. Blank lines and lines which start with C<#> in the C<MANIFEST> file are discarded. =cut sub maniread { my ($mfile) = @_; $mfile ||= $MANIFEST; my $read = {}; local *M; unless (open M, "< $mfile"){ warn "Problem opening $mfile: $!"; return $read; } local $_; while (<M>){ chomp; next if /^\s*#/; my($file, $comment); # filename may contain spaces if enclosed in '' # (in which case, \\ and \' are escapes) if (($file, $comment) = /^'((?:\\[\\']|.+)+)'\s*(.*)/) { $file =~ s/\\([\\'])/$1/g; } else { ($file, $comment) = /^(\S+)\s*(.*)/; } next unless $file; if ($Is_MacOS) { $file = _macify($file); $file =~ s/\\([0-3][0-7][0-7])/sprintf("%c", oct($1))/ge; } elsif ($Is_VMS_mode) { require File::Basename; my($base,$dir) = File::Basename::fileparse($file); # Resolve illegal file specifications in the same way as tar if ($Is_VMS_nodot) { $dir =~ tr/./_/; my(@pieces) = split(/\./,$base); if (@pieces > 2) { $base = shift(@pieces) . '.' . join('_',@pieces); } my $okfile = "$dir$base"; warn "Debug: Illegal name $file changed to $okfile\n" if $Debug; $file = $okfile; } if( $Is_VMS_lc ) { $file = lc($file); $file = uc($file) if $file =~ /^MANIFEST(\.SKIP)?$/i; } } $read->{$file} = $comment; } close M; $read; } =head2 maniskip my $skipchk = maniskip(); my $skipchk = maniskip($manifest_skip_file); if ($skipchk->($file)) { .. } reads a named C<MANIFEST.SKIP> file (defaults to C<MANIFEST.SKIP> in the current directory) and returns a CODE reference that tests whether a given filename should be skipped. =cut # returns an anonymous sub that decides if an argument matches sub maniskip { my @skip ; my $mfile = shift || "$MANIFEST.SKIP"; _check_mskip_directives($mfile) if -f $mfile; local(*M, $_); open M, "< $mfile" or open M, "< $DEFAULT_MSKIP" or return sub {0}; while (<M>){ chomp; s/\r//; $_ =~ qr{^\s*(?:(?:'([^\\']*(?:\\.[^\\']*)*)')|([^#\s]\S*))?(?:(?:\s*)|(?:\s+(.*?)\s*))$}; #my $comment = $3; my $filename = $2; if ( defined($1) ) { $filename = $1; $filename =~ s/\\(['\\])/$1/g; } next if (not defined($filename) or not $filename); push @skip, _macify($filename); } close M; return sub {0} unless (scalar @skip > 0); my $opts = $Is_VMS_mode ? '(?i)' : ''; # Make sure each entry is isolated in its own parentheses, in case # any of them contain alternations my $regex = join '|', map "(?:$_)", @skip; return sub { $_[0] =~ qr{$opts$regex} }; } # checks for the special directives # #!include_default # #!include /path/to/some/manifest.skip # in a custom MANIFEST.SKIP for, for including # the content of, respectively, the default MANIFEST.SKIP # and an external manifest.skip file sub _check_mskip_directives { my $mfile = shift; local (*M, $_); my @lines = (); my $flag = 0; unless (open M, "< $mfile") { warn "Problem opening $mfile: $!"; return; } while (<M>) { if (/^#!include_default\s*$/) { if (my @default = _include_mskip_file()) { push @lines, @default; warn "Debug: Including default MANIFEST.SKIP\n" if $Debug; $flag++; } next; } if (/^#!include\s+(.*)\s*$/) { my $external_file = $1; if (my @external = _include_mskip_file($external_file)) { push @lines, @external; warn "Debug: Including external $external_file\n" if $Debug; $flag++; } next; } push @lines, $_; } close M; return unless $flag; my $bakbase = $mfile; $bakbase =~ s/\./_/g if $Is_VMS_nodot; # avoid double dots rename $mfile, "$bakbase.bak"; warn "Debug: Saving original $mfile as $bakbase.bak\n" if $Debug; unless (open M, "> $mfile") { warn "Problem opening $mfile: $!"; return; } binmode M, ':raw'; print M $_ for (@lines); close M; return; } # returns an array containing the lines of an external # manifest.skip file, if given, or $DEFAULT_MSKIP sub _include_mskip_file { my $mskip = shift || $DEFAULT_MSKIP; unless (-f $mskip) { warn qq{Included file "$mskip" not found - skipping}; return; } local (*M, $_); unless (open M, "< $mskip") { warn "Problem opening $mskip: $!"; return; } my @lines = (); push @lines, "\n#!start included $mskip\n"; push @lines, $_ while <M>; close M; push @lines, "#!end included $mskip\n\n"; return @lines; } =head2 manicopy manicopy(\%src, $dest_dir); manicopy(\%src, $dest_dir, $how); Copies the files that are the keys in %src to the $dest_dir. %src is typically returned by the maniread() function. manicopy( maniread(), $dest_dir ); This function is useful for producing a directory tree identical to the intended distribution tree. $how can be used to specify a different methods of "copying". Valid values are C<cp>, which actually copies the files, C<ln> which creates hard links, and C<best> which mostly links the files but copies any symbolic link to make a tree without any symbolic link. C<cp> is the default. =cut sub manicopy { my($read,$target,$how)=@_; croak "manicopy() called without target argument" unless defined $target; $how ||= 'cp'; require File::Path; require File::Basename; $target = VMS::Filespec::unixify($target) if $Is_VMS_mode; File::Path::mkpath([ $target ],! $Quiet,$Is_VMS ? undef : 0755); foreach my $file (keys %$read){ if ($Is_MacOS) { if ($file =~ m!:!) { my $dir = _maccat($target, $file); $dir =~ s/[^:]+$//; File::Path::mkpath($dir,1,0755); } cp_if_diff($file, _maccat($target, $file), $how); } else { $file = VMS::Filespec::unixify($file) if $Is_VMS_mode; if ($file =~ m!/!) { # Ilya, that hurts, I fear, or maybe not? my $dir = File::Basename::dirname($file); $dir = VMS::Filespec::unixify($dir) if $Is_VMS_mode; File::Path::mkpath(["$target/$dir"],! $Quiet,$Is_VMS ? undef : 0755); } cp_if_diff($file, "$target/$file", $how); } } } sub cp_if_diff { my($from, $to, $how)=@_; if (! -f $from) { carp "$from not found"; return; } my($diff) = 0; local(*F,*T); open(F,"< $from\0") or die "Can't read $from: $!\n"; if (open(T,"< $to\0")) { local $_; while (<F>) { $diff++,last if $_ ne <T>; } $diff++ unless eof(T); close T; } else { $diff++; } close F; if ($diff) { if (-e $to) { unlink($to) or confess "unlink $to: $!"; } STRICT_SWITCH: { best($from,$to), last STRICT_SWITCH if $how eq 'best'; cp($from,$to), last STRICT_SWITCH if $how eq 'cp'; ln($from,$to), last STRICT_SWITCH if $how eq 'ln'; croak("ExtUtils::Manifest::cp_if_diff " . "called with illegal how argument [$how]. " . "Legal values are 'best', 'cp', and 'ln'."); } } } sub cp { my ($srcFile, $dstFile) = @_; my ($access,$mod) = (stat $srcFile)[8,9]; copy($srcFile,$dstFile); utime $access, $mod + ($Is_VMS ? 1 : 0), $dstFile; _manicopy_chmod($srcFile, $dstFile); } sub ln { my ($srcFile, $dstFile) = @_; # Fix-me - VMS can support links. return &cp if $Is_VMS or ($^O eq 'MSWin32' and Win32::IsWin95()); link($srcFile, $dstFile); unless( _manicopy_chmod($srcFile, $dstFile) ) { unlink $dstFile; return; } 1; } # 1) Strip off all group and world permissions. # 2) Let everyone read it. # 3) If the owner can execute it, everyone can. sub _manicopy_chmod { my($srcFile, $dstFile) = @_; my $perm = 0444 | (stat $srcFile)[2] & 0700; chmod( $perm | ( $perm & 0100 ? 0111 : 0 ), $dstFile ); } # Files that are often modified in the distdir. Don't hard link them. my @Exceptions = qw(MANIFEST META.yml SIGNATURE); sub best { my ($srcFile, $dstFile) = @_; my $is_exception = grep $srcFile =~ /$_/, @Exceptions; if ($is_exception or !$Config{d_link} or -l $srcFile) { cp($srcFile, $dstFile); } else { ln($srcFile, $dstFile) or cp($srcFile, $dstFile); } } sub _macify { my($file) = @_; return $file unless $Is_MacOS; $file =~ s|^\./||; if ($file =~ m|/|) { $file =~ s|/+|:|g; $file = ":$file"; } $file; } sub _maccat { my($f1, $f2) = @_; return "$f1/$f2" unless $Is_MacOS; $f1 .= ":$f2"; $f1 =~ s/([^:]:):/$1/g; return $f1; } sub _unmacify { my($file) = @_; return $file unless $Is_MacOS; $file =~ s|^:||; $file =~ s|([/ \n])|sprintf("\\%03o", unpack("c", $1))|ge; $file =~ y|:|/|; $file; } =head2 maniadd maniadd({ $file => $comment, ...}); Adds an entry to an existing F<MANIFEST> unless its already there. $file will be normalized (ie. Unixified). B<UNIMPLEMENTED> =cut sub maniadd { my($additions) = shift; _normalize($additions); _fix_manifest($MANIFEST); my $manifest = maniread(); my @needed = grep !exists $manifest->{$_}, keys %$additions; return 1 unless @needed; open(MANIFEST, ">>$MANIFEST") or die "maniadd() could not open $MANIFEST: $!"; binmode MANIFEST, ':raw'; foreach my $file (_sort @needed) { my $comment = $additions->{$file} || ''; if ($file =~ /\s/) { $file =~ s/([\\'])/\\$1/g; $file = "'$file'"; } printf MANIFEST "%-40s %s\n", $file, $comment; } close MANIFEST or die "Error closing $MANIFEST: $!"; return 1; } # Make sure this MANIFEST is consistently written with native # newlines and has a terminal newline. sub _fix_manifest { my $manifest_file = shift; open MANIFEST, $MANIFEST or die "Could not open $MANIFEST: $!"; local $/; my @manifest = split /(\015\012|\012|\015)/, <MANIFEST>, -1; close MANIFEST; my $must_rewrite = ""; if ($manifest[-1] eq ""){ # sane case: last line had a terminal newline pop @manifest; for (my $i=1; $i<=$#manifest; $i+=2) { unless ($manifest[$i] eq "\n") { $must_rewrite = "not a newline at pos $i"; last; } } } else { $must_rewrite = "last line without newline"; } if ( $must_rewrite ) { 1 while unlink $MANIFEST; # avoid multiple versions on VMS open MANIFEST, ">", $MANIFEST or die "(must_rewrite=$must_rewrite) Could not open >$MANIFEST: $!"; binmode MANIFEST, ':raw'; for (my $i=0; $i<=$#manifest; $i+=2) { print MANIFEST "$manifest[$i]\n"; } close MANIFEST or die "could not write $MANIFEST: $!"; } } # UNIMPLEMENTED sub _normalize { return; } =head2 MANIFEST A list of files in the distribution, one file per line. The MANIFEST always uses Unix filepath conventions even if you're not on Unix. This means F<foo/bar> style not F<foo\bar>. Anything between white space and an end of line within a C<MANIFEST> file is considered to be a comment. Any line beginning with # is also a comment. Beginning with ExtUtils::Manifest 1.52, a filename may contain whitespace characters if it is enclosed in single quotes; single quotes or backslashes in that filename must be backslash-escaped. # this a comment some/file some/other/file comment about some/file 'some/third file' comment =head2 MANIFEST.SKIP The file MANIFEST.SKIP may contain regular expressions of files that should be ignored by mkmanifest() and filecheck(). The regular expressions should appear one on each line. Blank lines and lines which start with C<#> are skipped. Use C<\#> if you need a regular expression to start with a C<#>. For example: # Version control files and dirs. \bRCS\b \bCVS\b ,v$ \B\.svn\b # Makemaker generated files and dirs. ^MANIFEST\. ^Makefile$ ^blib/ ^MakeMaker-\d # Temp, old and emacs backup files. ~$ \.old$ ^#.*#$ ^\.# If no MANIFEST.SKIP file is found, a default set of skips will be used, similar to the example above. If you want nothing skipped, simply make an empty MANIFEST.SKIP file. In one's own MANIFEST.SKIP file, certain directives can be used to include the contents of other MANIFEST.SKIP files. At present two such directives are recognized. =over 4 =item #!include_default This inserts the contents of the default MANIFEST.SKIP file =item #!include /Path/to/another/manifest.skip This inserts the contents of the specified external file =back The included contents will be inserted into the MANIFEST.SKIP file in between I<#!start included /path/to/manifest.skip> and I<#!end included /path/to/manifest.skip> markers. The original MANIFEST.SKIP is saved as MANIFEST.SKIP.bak. =head2 EXPORT_OK C<&mkmanifest>, C<&manicheck>, C<&filecheck>, C<&fullcheck>, C<&maniread>, and C<&manicopy> are exportable. =head2 GLOBAL VARIABLES C<$ExtUtils::Manifest::MANIFEST> defaults to C<MANIFEST>. Changing it results in both a different C<MANIFEST> and a different C<MANIFEST.SKIP> file. This is useful if you want to maintain different distributions for different audiences (say a user version and a developer version including RCS). C<$ExtUtils::Manifest::Quiet> defaults to 0. If set to a true value, all functions act silently. C<$ExtUtils::Manifest::Debug> defaults to 0. If set to a true value, or if PERL_MM_MANIFEST_DEBUG is true, debugging output will be produced. =head1 DIAGNOSTICS All diagnostic output is sent to C<STDERR>. =over 4 =item C<Not in MANIFEST:> I<file> is reported if a file is found which is not in C<MANIFEST>. =item C<Skipping> I<file> is reported if a file is skipped due to an entry in C<MANIFEST.SKIP>. =item C<No such file:> I<file> is reported if a file mentioned in a C<MANIFEST> file does not exist. =item C<MANIFEST:> I<$!> is reported if C<MANIFEST> could not be opened. =item C<Added to MANIFEST:> I<file> is reported by mkmanifest() if $Verbose is set and a file is added to MANIFEST. $Verbose is set to 1 by default. =back =head1 ENVIRONMENT =over 4 =item B<PERL_MM_MANIFEST_DEBUG> Turns on debugging =back =head1 SEE ALSO L<ExtUtils::MakeMaker> which has handy targets for most of the functionality. =head1 AUTHOR Andreas Koenig C<andreas.koenig@anima.de> Currently maintained by the Perl Toolchain Gang. =head1 COPYRIGHT AND LICENSE This software is copyright (c) 1996- by Andreas Koenig. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut 1; PK ! Q�Z�� � 5.34.0/ExtUtils/MY.pmnu �[��� package ExtUtils::MY; use strict; require ExtUtils::MM; our $VERSION = '7.62'; $VERSION =~ tr/_//d; our @ISA = qw(ExtUtils::MM); { package MY; our @ISA = qw(ExtUtils::MY); } sub DESTROY {} =head1 NAME ExtUtils::MY - ExtUtils::MakeMaker subclass for customization =head1 SYNOPSIS # in your Makefile.PL sub MY::whatever { ... } =head1 DESCRIPTION B<FOR INTERNAL USE ONLY> ExtUtils::MY is a subclass of L<ExtUtils::MM>. Its provided in your Makefile.PL for you to add and override MakeMaker functionality. It also provides a convenient alias via the MY class. ExtUtils::MY might turn out to be a temporary solution, but MY won't go away. =cut PK ! � x�ü ü 5.34.0/ExtUtils/MM_Unix.pmnu �[��� package ExtUtils::MM_Unix; require 5.006; use strict; use warnings; use Carp; use ExtUtils::MakeMaker::Config; use File::Basename qw(basename dirname); our %Config_Override; use ExtUtils::MakeMaker qw($Verbose neatvalue _sprintf562); # If we make $VERSION an our variable parse_version() breaks use vars qw($VERSION); $VERSION = '7.62'; $VERSION =~ tr/_//d; require ExtUtils::MM_Any; our @ISA = qw(ExtUtils::MM_Any); my %Is; BEGIN { $Is{OS2} = $^O eq 'os2'; $Is{Win32} = $^O eq 'MSWin32' || $Config{osname} eq 'NetWare'; $Is{Dos} = $^O eq 'dos'; $Is{VMS} = $^O eq 'VMS'; $Is{OSF} = $^O eq 'dec_osf'; $Is{IRIX} = $^O eq 'irix'; $Is{NetBSD} = $^O eq 'netbsd'; $Is{Interix} = $^O eq 'interix'; $Is{SunOS4} = $^O eq 'sunos'; $Is{Solaris} = $^O eq 'solaris'; $Is{SunOS} = $Is{SunOS4} || $Is{Solaris}; $Is{BSD} = ($^O =~ /^(?:free|net|open)bsd$/ or grep( $^O eq $_, qw(bsdos interix dragonfly) ) ); $Is{Android} = $^O =~ /android/; if ( $^O eq 'darwin' && $^X eq '/usr/bin/perl' ) { my @osvers = split /\./, $Config{osvers}; $Is{ApplCor} = ( $osvers[0] >= 18 ); } } BEGIN { if( $Is{VMS} ) { # For things like vmsify() require VMS::Filespec; VMS::Filespec->import; } } =head1 NAME ExtUtils::MM_Unix - methods used by ExtUtils::MakeMaker =head1 SYNOPSIS require ExtUtils::MM_Unix; =head1 DESCRIPTION The methods provided by this package are designed to be used in conjunction with L<ExtUtils::MakeMaker>. When MakeMaker writes a Makefile, it creates one or more objects that inherit their methods from a package L<MM|ExtUtils::MM>. MM itself doesn't provide any methods, but it ISA ExtUtils::MM_Unix class. The inheritance tree of MM lets operating specific packages take the responsibility for all the methods provided by MM_Unix. We are trying to reduce the number of the necessary overrides by defining rather primitive operations within ExtUtils::MM_Unix. If you are going to write a platform specific MM package, please try to limit the necessary overrides to primitive methods, and if it is not possible to do so, let's work out how to achieve that gain. If you are overriding any of these methods in your Makefile.PL (in the MY class), please report that to the makemaker mailing list. We are trying to minimize the necessary method overrides and switch to data driven Makefile.PLs wherever possible. In the long run less methods will be overridable via the MY class. =head1 METHODS The following description of methods is still under development. Please refer to the code for not suitably documented sections and complain loudly to the makemaker@perl.org mailing list. Better yet, provide a patch. Not all of the methods below are overridable in a Makefile.PL. Overridable methods are marked as (o). All methods are overridable by a platform specific MM_*.pm file. Cross-platform methods are being moved into L<MM_Any|ExtUtils::MM_Any>. If you can't find something that used to be in here, look in MM_Any. =cut # So we don't have to keep calling the methods over and over again, # we have these globals to cache the values. Faster and shrtr. my $Curdir = __PACKAGE__->curdir; my $Updir = __PACKAGE__->updir; =head2 Methods =over 4 =item os_flavor Simply says that we're Unix. =cut sub os_flavor { return('Unix'); } =item c_o (o) Defines the suffix rules to compile different flavors of C files to object files. =cut sub c_o { # --- Translation Sections --- my($self) = shift; return '' unless $self->needs_linking(); my(@m); my $command = '$(CCCMD)'; my $flags = '$(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE)'; if ( $Is{ApplCor} ) { $flags =~ s/"-I(\$\(PERL_INC\))"/-iwithsysroot "$1"/; } if (my $cpp = $Config{cpprun}) { my $cpp_cmd = $self->const_cccmd; $cpp_cmd =~ s/^CCCMD\s*=\s*\$\(CC\)/$cpp/; push @m, qq{ .c.i: $cpp_cmd $flags \$*.c > \$*.i }; } my $m_o = $self->{XSMULTI} ? $self->xs_obj_opt('$*.s') : ''; push @m, sprintf <<'EOF', $command, $flags, $m_o; .c.s : %s -S %s $*.c %s EOF my @exts = qw(c cpp cxx cc); push @exts, 'C' if !$Is{OS2} and !$Is{Win32} and !$Is{Dos}; #Case-specific $m_o = $self->{XSMULTI} ? $self->xs_obj_opt('$*$(OBJ_EXT)') : ''; my $dbgout = $self->dbgoutflag; for my $ext (@exts) { push @m, "\n.$ext\$(OBJ_EXT) :\n\t$command $flags " .($dbgout?"$dbgout ":'') ."\$*.$ext" . ( $m_o ? " $m_o" : '' ) . "\n"; } return join "", @m; } =item xs_obj_opt Takes the object file as an argument, and returns the portion of compile command-line that will output to the specified object file. =cut sub xs_obj_opt { my ($self, $output_file) = @_; "-o $output_file"; } =item dbgoutflag Returns a CC flag that tells the CC to emit a separate debugging symbol file when compiling an object file. =cut sub dbgoutflag { ''; } =item cflags (o) Does very much the same as the cflags script in the perl distribution. It doesn't return the whole compiler command line, but initializes all of its parts. The const_cccmd method then actually returns the definition of the CCCMD macro which uses these parts. =cut #' sub cflags { my($self,$libperl)=@_; return $self->{CFLAGS} if $self->{CFLAGS}; return '' unless $self->needs_linking(); my($prog, $uc, $perltype, %cflags); $libperl ||= $self->{LIBPERL_A} || "libperl$self->{LIB_EXT}" ; $libperl =~ s/\.\$\(A\)$/$self->{LIB_EXT}/; @cflags{qw(cc ccflags optimize shellflags)} = @Config{qw(cc ccflags optimize shellflags)}; # Perl 5.21.4 adds the (gcc) warning (-Wall ...) and std (-std=c89) # flags to the %Config, and the modules in the core should be built # with the warning flags, but NOT the -std=c89 flags (the latter # would break using any system header files that are strict C99). my @ccextraflags = qw(ccwarnflags); if ($ENV{PERL_CORE}) { for my $x (@ccextraflags) { if (exists $Config{$x}) { $cflags{$x} = $Config{$x}; } } } my($optdebug) = ""; $cflags{shellflags} ||= ''; my(%map) = ( D => '-DDEBUGGING', E => '-DEMBED', DE => '-DDEBUGGING -DEMBED', M => '-DEMBED -DMULTIPLICITY', DM => '-DDEBUGGING -DEMBED -DMULTIPLICITY', ); if ($libperl =~ /libperl(\w*)\Q$self->{LIB_EXT}/){ $uc = uc($1); } else { $uc = ""; # avoid warning } $perltype = $map{$uc} ? $map{$uc} : ""; if ($uc =~ /^D/) { $optdebug = "-g"; } my($name); ( $name = $self->{NAME} . "_cflags" ) =~ s/:/_/g ; if ($prog = $Config{$name}) { # Expand hints for this extension via the shell print "Processing $name hint:\n" if $Verbose; my(@o)=`cc=\"$cflags{cc}\" ccflags=\"$cflags{ccflags}\" optimize=\"$cflags{optimize}\" perltype=\"$cflags{perltype}\" optdebug=\"$cflags{optdebug}\" eval '$prog' echo cc=\$cc echo ccflags=\$ccflags echo optimize=\$optimize echo perltype=\$perltype echo optdebug=\$optdebug `; foreach my $line (@o){ chomp $line; if ($line =~ /(.*?)=\s*(.*)\s*$/){ $cflags{$1} = $2; print " $1 = $2\n" if $Verbose; } else { print "Unrecognised result from hint: '$line'\n"; } } } if ($optdebug) { $cflags{optimize} = $optdebug; } for (qw(ccflags optimize perltype)) { $cflags{$_} ||= ''; $cflags{$_} =~ s/^\s+//; $cflags{$_} =~ s/\s+/ /g; $cflags{$_} =~ s/\s+$//; $self->{uc $_} ||= $cflags{$_}; } if ($self->{POLLUTE}) { $self->{CCFLAGS} .= ' -DPERL_POLLUTE '; } for my $x (@ccextraflags) { next unless exists $cflags{$x}; $self->{CCFLAGS} .= $cflags{$x} =~ m!^\s! ? $cflags{$x} : ' ' . $cflags{$x}; } my $pollute = ''; if ($Config{usemymalloc} and not $Config{bincompat5005} and not $Config{ccflags} =~ /-DPERL_POLLUTE_MALLOC\b/ and $self->{PERL_MALLOC_OK}) { $pollute = '$(PERL_MALLOC_DEF)'; } return $self->{CFLAGS} = qq{ CCFLAGS = $self->{CCFLAGS} OPTIMIZE = $self->{OPTIMIZE} PERLTYPE = $self->{PERLTYPE} MPOLLUTE = $pollute }; } =item const_cccmd (o) Returns the full compiler call for C programs and stores the definition in CONST_CCCMD. =cut sub const_cccmd { my($self,$libperl)=@_; return $self->{CONST_CCCMD} if $self->{CONST_CCCMD}; return '' unless $self->needs_linking(); return $self->{CONST_CCCMD} = q{CCCMD = $(CC) -c $(PASTHRU_INC) $(INC) \\ $(CCFLAGS) $(OPTIMIZE) \\ $(PERLTYPE) $(MPOLLUTE) $(DEFINE_VERSION) \\ $(XS_DEFINE_VERSION)}; } =item const_config (o) Sets SHELL if needed, then defines a couple of constants in the Makefile that are imported from %Config. =cut sub const_config { # --- Constants Sections --- my($self) = shift; my @m = $self->specify_shell(); # Usually returns empty string push @m, <<"END"; # These definitions are from config.sh (via $INC{'Config.pm'}). # They may have been overridden via Makefile.PL or on the command line. END my(%once_only); foreach my $key (@{$self->{CONFIG}}){ # SITE*EXP macros are defined in &constants; avoid duplicates here next if $once_only{$key}; push @m, uc($key) , ' = ' , $self->{uc $key}, "\n"; $once_only{$key} = 1; } join('', @m); } =item const_loadlibs (o) Defines EXTRALIBS, LDLOADLIBS, BSLOADLIBS, LD_RUN_PATH. See L<ExtUtils::Liblist> for details. =cut sub const_loadlibs { my($self) = shift; return "" unless $self->needs_linking; my @m; push @m, qq{ # $self->{NAME} might depend on some other libraries: # See ExtUtils::Liblist for details # }; for my $tmp (qw/ EXTRALIBS LDLOADLIBS BSLOADLIBS /) { next unless defined $self->{$tmp}; push @m, "$tmp = $self->{$tmp}\n"; } # don't set LD_RUN_PATH if empty for my $tmp (qw/ LD_RUN_PATH /) { next unless $self->{$tmp}; push @m, "$tmp = $self->{$tmp}\n"; } return join "", @m; } =item constants (o) my $make_frag = $mm->constants; Prints out macros for lots of constants. =cut sub constants { my($self) = @_; my @m = (); $self->{DFSEP} = '$(DIRFILESEP)'; # alias for internal use for my $macro (qw( AR_STATIC_ARGS DIRFILESEP DFSEP NAME NAME_SYM VERSION VERSION_MACRO VERSION_SYM DEFINE_VERSION XS_VERSION XS_VERSION_MACRO XS_DEFINE_VERSION INST_ARCHLIB INST_SCRIPT INST_BIN INST_LIB INST_MAN1DIR INST_MAN3DIR MAN1EXT MAN3EXT MAN1SECTION MAN3SECTION INSTALLDIRS INSTALL_BASE DESTDIR PREFIX PERLPREFIX SITEPREFIX VENDORPREFIX ), (map { ("INSTALL".$_, "DESTINSTALL".$_) } $self->installvars), qw( PERL_LIB PERL_ARCHLIB PERL_ARCHLIBDEP LIBPERL_A MYEXTLIB FIRST_MAKEFILE MAKEFILE_OLD MAKE_APERL_FILE PERLMAINCC PERL_SRC PERL_INC PERL_INCDEP PERL FULLPERL ABSPERL PERLRUN FULLPERLRUN ABSPERLRUN PERLRUNINST FULLPERLRUNINST ABSPERLRUNINST PERL_CORE PERM_DIR PERM_RW PERM_RWX ) ) { next unless defined $self->{$macro}; # pathnames can have sharp signs in them; escape them so # make doesn't think it is a comment-start character. $self->{$macro} =~ s/#/\\#/g; $self->{$macro} = $self->quote_dep($self->{$macro}) if $ExtUtils::MakeMaker::macro_dep{$macro}; push @m, "$macro = $self->{$macro}\n"; } push @m, qq{ MAKEMAKER = $self->{MAKEMAKER} MM_VERSION = $self->{MM_VERSION} MM_REVISION = $self->{MM_REVISION} }; push @m, q{ # FULLEXT = Pathname for extension directory (eg Foo/Bar/Oracle). # BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT. (eg Oracle) # PARENT_NAME = NAME without BASEEXT and no trailing :: (eg Foo::Bar) # DLBASE = Basename part of dynamic library. May be just equal BASEEXT. }; for my $macro (qw/ MAKE FULLEXT BASEEXT PARENT_NAME DLBASE VERSION_FROM INC DEFINE OBJECT LDFROM LINKTYPE BOOTDEP / ) { next unless defined $self->{$macro}; push @m, "$macro = $self->{$macro}\n"; } push @m, " # Handy lists of source code files: XS_FILES = ".$self->wraplist(sort keys %{$self->{XS}})." C_FILES = ".$self->wraplist(sort @{$self->{C}})." O_FILES = ".$self->wraplist(sort @{$self->{O_FILES}})." H_FILES = ".$self->wraplist(sort @{$self->{H}})." MAN1PODS = ".$self->wraplist(sort keys %{$self->{MAN1PODS}})." MAN3PODS = ".$self->wraplist(sort keys %{$self->{MAN3PODS}})." "; push @m, q{ SDKROOT := $(shell xcrun --show-sdk-path) PERL_SYSROOT = $(SDKROOT) } if $Is{ApplCor} && $self->{'PERL_INC'} =~ m!^/System/Library/Perl/!; push @m, q{ # Where is the Config information that we are using/depend on CONFIGDEP = $(PERL_ARCHLIBDEP)$(DFSEP)Config.pm $(PERL_SYSROOT)$(PERL_INCDEP)$(DFSEP)config.h } if $Is{ApplCor}; push @m, q{ # Where is the Config information that we are using/depend on CONFIGDEP = $(PERL_ARCHLIBDEP)$(DFSEP)Config.pm $(PERL_INCDEP)$(DFSEP)config.h } if -e $self->catfile( $self->{PERL_INC}, 'config.h' ) && !$Is{ApplCor}; push @m, qq{ # Where to build things INST_LIBDIR = $self->{INST_LIBDIR} INST_ARCHLIBDIR = $self->{INST_ARCHLIBDIR} INST_AUTODIR = $self->{INST_AUTODIR} INST_ARCHAUTODIR = $self->{INST_ARCHAUTODIR} INST_STATIC = $self->{INST_STATIC} INST_DYNAMIC = $self->{INST_DYNAMIC} INST_BOOT = $self->{INST_BOOT} }; push @m, qq{ # Extra linker info EXPORT_LIST = $self->{EXPORT_LIST} PERL_ARCHIVE = $self->{PERL_ARCHIVE} PERL_ARCHIVEDEP = $self->{PERL_ARCHIVEDEP} PERL_ARCHIVE_AFTER = $self->{PERL_ARCHIVE_AFTER} }; push @m, " TO_INST_PM = ".$self->wraplist(map $self->quote_dep($_), sort keys %{$self->{PM}})."\n"; join('',@m); } =item depend (o) Same as macro for the depend attribute. =cut sub depend { my($self,%attribs) = @_; my(@m,$key,$val); for my $key (sort keys %attribs){ my $val = $attribs{$key}; next unless defined $key and defined $val; push @m, "$key : $val\n"; } join "", @m; } =item init_DEST $mm->init_DEST Defines the DESTDIR and DEST* variables paralleling the INSTALL*. =cut sub init_DEST { my $self = shift; # Initialize DESTDIR $self->{DESTDIR} ||= ''; # Make DEST variables. foreach my $var ($self->installvars) { my $destvar = 'DESTINSTALL'.$var; $self->{$destvar} ||= '$(DESTDIR)$(INSTALL'.$var.')'; } } =item init_dist $mm->init_dist; Defines a lot of macros for distribution support. macro description default TAR tar command to use tar TARFLAGS flags to pass to TAR cvf ZIP zip command to use zip ZIPFLAGS flags to pass to ZIP -r COMPRESS compression command to gzip --best use for tarfiles SUFFIX suffix to put on .gz compressed files SHAR shar command to use shar PREOP extra commands to run before making the archive POSTOP extra commands to run after making the archive TO_UNIX a command to convert linefeeds to Unix style in your archive CI command to checkin your ci -u sources to version control RCS_LABEL command to label your sources rcs -Nv$(VERSION_SYM): -q just after CI is run DIST_CP $how argument to manicopy() best when the distdir is created DIST_DEFAULT default target to use to tardist create a distribution DISTVNAME name of the resulting archive $(DISTNAME)-$(VERSION) (minus suffixes) =cut sub init_dist { my $self = shift; $self->{TAR} ||= 'tar'; $self->{TARFLAGS} ||= 'cvf'; $self->{ZIP} ||= 'zip'; $self->{ZIPFLAGS} ||= '-r'; $self->{COMPRESS} ||= 'gzip --best'; $self->{SUFFIX} ||= '.gz'; $self->{SHAR} ||= 'shar'; $self->{PREOP} ||= '$(NOECHO) $(NOOP)'; # eg update MANIFEST $self->{POSTOP} ||= '$(NOECHO) $(NOOP)'; # eg remove the distdir $self->{TO_UNIX} ||= '$(NOECHO) $(NOOP)'; $self->{CI} ||= 'ci -u'; $self->{RCS_LABEL}||= 'rcs -Nv$(VERSION_SYM): -q'; $self->{DIST_CP} ||= 'best'; $self->{DIST_DEFAULT} ||= 'tardist'; ($self->{DISTNAME} = $self->{NAME}) =~ s{::}{-}g unless $self->{DISTNAME}; $self->{DISTVNAME} ||= $self->{DISTNAME}.'-'.$self->{VERSION}; } =item dist (o) my $dist_macros = $mm->dist(%overrides); Generates a make fragment defining all the macros initialized in init_dist. %overrides can be used to override any of the above. =cut sub dist { my($self, %attribs) = @_; my $make = ''; if ( $attribs{SUFFIX} && $attribs{SUFFIX} !~ m!^\.! ) { $attribs{SUFFIX} = '.' . $attribs{SUFFIX}; } foreach my $key (qw( TAR TARFLAGS ZIP ZIPFLAGS COMPRESS SUFFIX SHAR PREOP POSTOP TO_UNIX CI RCS_LABEL DIST_CP DIST_DEFAULT DISTNAME DISTVNAME )) { my $value = $attribs{$key} || $self->{$key}; $make .= "$key = $value\n"; } return $make; } =item dist_basics (o) Defines the targets distclean, distcheck, skipcheck, manifest, veryclean. =cut sub dist_basics { my($self) = shift; return <<'MAKE_FRAG'; distclean :: realclean distcheck $(NOECHO) $(NOOP) distcheck : $(PERLRUN) "-MExtUtils::Manifest=fullcheck" -e fullcheck skipcheck : $(PERLRUN) "-MExtUtils::Manifest=skipcheck" -e skipcheck manifest : $(PERLRUN) "-MExtUtils::Manifest=mkmanifest" -e mkmanifest veryclean : realclean $(RM_F) *~ */*~ *.orig */*.orig *.bak */*.bak *.old */*.old MAKE_FRAG } =item dist_ci (o) Defines a check in target for RCS. =cut sub dist_ci { my($self) = shift; return sprintf "ci :\n\t%s\n", $self->oneliner(<<'EOF', [qw(-MExtUtils::Manifest=maniread)]); @all = sort keys %{ maniread() }; print(qq{Executing $(CI) @all\n}); system(qq{$(CI) @all}) == 0 or die $!; print(qq{Executing $(RCS_LABEL) ...\n}); system(qq{$(RCS_LABEL) @all}) == 0 or die $!; EOF } =item dist_core (o) my $dist_make_fragment = $MM->dist_core; Puts the targets necessary for 'make dist' together into one make fragment. =cut sub dist_core { my($self) = shift; my $make_frag = ''; foreach my $target (qw(dist tardist uutardist tarfile zipdist zipfile shdist)) { my $method = $target.'_target'; $make_frag .= "\n"; $make_frag .= $self->$method(); } return $make_frag; } =item B<dist_target> my $make_frag = $MM->dist_target; Returns the 'dist' target to make an archive for distribution. This target simply checks to make sure the Makefile is up-to-date and depends on $(DIST_DEFAULT). =cut sub dist_target { my($self) = shift; my $date_check = $self->oneliner(<<'CODE', ['-l']); print 'Warning: Makefile possibly out of date with $(VERSION_FROM)' if -e '$(VERSION_FROM)' and -M '$(VERSION_FROM)' < -M '$(FIRST_MAKEFILE)'; CODE return sprintf <<'MAKE_FRAG', $date_check; dist : $(DIST_DEFAULT) $(FIRST_MAKEFILE) $(NOECHO) %s MAKE_FRAG } =item B<tardist_target> my $make_frag = $MM->tardist_target; Returns the 'tardist' target which is simply so 'make tardist' works. The real work is done by the dynamically named tardistfile_target() method, tardist should have that as a dependency. =cut sub tardist_target { my($self) = shift; return <<'MAKE_FRAG'; tardist : $(DISTVNAME).tar$(SUFFIX) $(NOECHO) $(NOOP) MAKE_FRAG } =item B<zipdist_target> my $make_frag = $MM->zipdist_target; Returns the 'zipdist' target which is simply so 'make zipdist' works. The real work is done by the dynamically named zipdistfile_target() method, zipdist should have that as a dependency. =cut sub zipdist_target { my($self) = shift; return <<'MAKE_FRAG'; zipdist : $(DISTVNAME).zip $(NOECHO) $(NOOP) MAKE_FRAG } =item B<tarfile_target> my $make_frag = $MM->tarfile_target; The name of this target is the name of the tarball generated by tardist. This target does the actual work of turning the distdir into a tarball. =cut sub tarfile_target { my($self) = shift; return <<'MAKE_FRAG'; $(DISTVNAME).tar$(SUFFIX) : distdir $(PREOP) $(TO_UNIX) $(TAR) $(TARFLAGS) $(DISTVNAME).tar $(DISTVNAME) $(RM_RF) $(DISTVNAME) $(COMPRESS) $(DISTVNAME).tar $(NOECHO) $(ECHO) 'Created $(DISTVNAME).tar$(SUFFIX)' $(POSTOP) MAKE_FRAG } =item zipfile_target my $make_frag = $MM->zipfile_target; The name of this target is the name of the zip file generated by zipdist. This target does the actual work of turning the distdir into a zip file. =cut sub zipfile_target { my($self) = shift; return <<'MAKE_FRAG'; $(DISTVNAME).zip : distdir $(PREOP) $(ZIP) $(ZIPFLAGS) $(DISTVNAME).zip $(DISTVNAME) $(RM_RF) $(DISTVNAME) $(NOECHO) $(ECHO) 'Created $(DISTVNAME).zip' $(POSTOP) MAKE_FRAG } =item uutardist_target my $make_frag = $MM->uutardist_target; Converts the tarfile into a uuencoded file =cut sub uutardist_target { my($self) = shift; return <<'MAKE_FRAG'; uutardist : $(DISTVNAME).tar$(SUFFIX) uuencode $(DISTVNAME).tar$(SUFFIX) $(DISTVNAME).tar$(SUFFIX) > $(DISTVNAME).tar$(SUFFIX)_uu $(NOECHO) $(ECHO) 'Created $(DISTVNAME).tar$(SUFFIX)_uu' MAKE_FRAG } =item shdist_target my $make_frag = $MM->shdist_target; Converts the distdir into a shell archive. =cut sub shdist_target { my($self) = shift; return <<'MAKE_FRAG'; shdist : distdir $(PREOP) $(SHAR) $(DISTVNAME) > $(DISTVNAME).shar $(RM_RF) $(DISTVNAME) $(NOECHO) $(ECHO) 'Created $(DISTVNAME).shar' $(POSTOP) MAKE_FRAG } =item dlsyms (o) Used by some OS' to define DL_FUNCS and DL_VARS and write the *.exp files. Normally just returns an empty string. =cut sub dlsyms { return ''; } =item dynamic_bs (o) Defines targets for bootstrap files. =cut sub dynamic_bs { my($self, %attribs) = @_; return "\nBOOTSTRAP =\n" unless $self->has_link_code(); my @exts; if ($self->{XSMULTI}) { @exts = $self->_xs_list_basenames; } else { @exts = '$(BASEEXT)'; } return join "\n", "BOOTSTRAP = @{[map { qq{$_.bs} } @exts]}\n", map { $self->_xs_make_bs($_) } @exts; } sub _xs_make_bs { my ($self, $basename) = @_; my ($v, $d, $f) = File::Spec->splitpath($basename); my @d = File::Spec->splitdir($d); shift @d if $self->{XSMULTI} and $d[0] eq 'lib'; my $instdir = $self->catdir('$(INST_ARCHLIB)', 'auto', @d, $f); $instdir = '$(INST_ARCHAUTODIR)' if $basename eq '$(BASEEXT)'; my $instfile = $self->catfile($instdir, "$f.bs"); my $exists = "$instdir\$(DFSEP).exists"; # match blibdirs_target # 1 2 3 return _sprintf562 <<'MAKE_FRAG', $basename, $instfile, $exists; # As Mkbootstrap might not write a file (if none is required) # we use touch to prevent make continually trying to remake it. # The DynaLoader only reads a non-empty file. %1$s.bs : $(FIRST_MAKEFILE) $(BOOTDEP) $(NOECHO) $(ECHO) "Running Mkbootstrap for %1$s ($(BSLOADLIBS))" $(NOECHO) $(PERLRUN) \ "-MExtUtils::Mkbootstrap" \ -e "Mkbootstrap('%1$s','$(BSLOADLIBS)');" $(NOECHO) $(TOUCH) "%1$s.bs" $(CHMOD) $(PERM_RW) "%1$s.bs" %2$s : %1$s.bs %3$s $(NOECHO) $(RM_RF) %2$s - $(CP_NONEMPTY) %1$s.bs %2$s $(PERM_RW) MAKE_FRAG } =item dynamic_lib (o) Defines how to produce the *.so (or equivalent) files. =cut sub dynamic_lib { my($self, %attribs) = @_; return '' unless $self->needs_linking(); #might be because of a subdir return '' unless $self->has_link_code; my @m = $self->xs_dynamic_lib_macros(\%attribs); my @libs; my $dlsyms_ext = eval { $self->xs_dlsyms_ext }; if ($self->{XSMULTI}) { my @exts = $self->_xs_list_basenames; for my $ext (@exts) { my ($v, $d, $f) = File::Spec->splitpath($ext); my @d = File::Spec->splitdir($d); shift @d if $d[0] eq 'lib'; pop @d if $d[$#d] eq ''; my $instdir = $self->catdir('$(INST_ARCHLIB)', 'auto', @d, $f); # Dynamic library names may need special handling. eval { require DynaLoader }; if (defined &DynaLoader::mod2fname) { $f = &DynaLoader::mod2fname([@d, $f]); } my $instfile = $self->catfile($instdir, "$f.\$(DLEXT)"); my $objfile = $self->_xsbuild_value('xs', $ext, 'OBJECT'); $objfile = "$ext\$(OBJ_EXT)" unless defined $objfile; my $ldfrom = $self->_xsbuild_value('xs', $ext, 'LDFROM'); $ldfrom = $objfile unless defined $ldfrom; my $exportlist = "$ext.def"; my @libchunk = ($objfile, $instfile, $instdir, $ldfrom, $exportlist); push @libchunk, $dlsyms_ext ? $ext.$dlsyms_ext : undef; push @libs, \@libchunk; } } else { my @libchunk = qw($(OBJECT) $(INST_DYNAMIC) $(INST_ARCHAUTODIR) $(LDFROM) $(EXPORT_LIST)); push @libchunk, $dlsyms_ext ? '$(BASEEXT)'.$dlsyms_ext : undef; @libs = (\@libchunk); } push @m, map { $self->xs_make_dynamic_lib(\%attribs, @$_); } @libs; return join("\n",@m); } =item xs_dynamic_lib_macros Defines the macros for the C<dynamic_lib> section. =cut sub xs_dynamic_lib_macros { my ($self, $attribs) = @_; my $otherldflags = $attribs->{OTHERLDFLAGS} || ""; my $inst_dynamic_dep = $attribs->{INST_DYNAMIC_DEP} || ""; my $armaybe = $self->_xs_armaybe($attribs); my $ld_opt = $Is{OS2} ? '$(OPTIMIZE) ' : ''; # Useful on other systems too? my $ld_fix = $Is{OS2} ? '|| ( $(RM_F) $@ && sh -c false )' : ''; sprintf <<'EOF', $armaybe, $ld_opt.$otherldflags, $inst_dynamic_dep, $ld_fix; # This section creates the dynamically loadable objects from relevant # objects and possibly $(MYEXTLIB). ARMAYBE = %s OTHERLDFLAGS = %s INST_DYNAMIC_DEP = %s INST_DYNAMIC_FIX = %s EOF } sub _xs_armaybe { my ($self, $attribs) = @_; my $armaybe = $attribs->{ARMAYBE} || $self->{ARMAYBE} || ":"; $armaybe = 'ar' if ($Is{OSF} and $armaybe eq ':'); $armaybe; } =item xs_make_dynamic_lib Defines the recipes for the C<dynamic_lib> section. =cut sub xs_make_dynamic_lib { my ($self, $attribs, $object, $to, $todir, $ldfrom, $exportlist, $dlsyms) = @_; $exportlist = '' if $exportlist ne '$(EXPORT_LIST)'; my $armaybe = $self->_xs_armaybe($attribs); my @m = sprintf '%s : %s $(MYEXTLIB) %s$(DFSEP).exists %s $(PERL_ARCHIVEDEP) $(PERL_ARCHIVE_AFTER) $(INST_DYNAMIC_DEP) %s'."\n", $to, $object, $todir, $exportlist, ($dlsyms || ''); my $dlsyms_arg = $self->xs_dlsyms_arg($dlsyms); if ($armaybe ne ':'){ $ldfrom = 'tmp$(LIB_EXT)'; push(@m," \$(ARMAYBE) cr $ldfrom $object\n"); push(@m," \$(RANLIB) $ldfrom\n"); } $ldfrom = "-all $ldfrom -none" if $Is{OSF}; # The IRIX linker doesn't use LD_RUN_PATH my $ldrun = $Is{IRIX} && $self->{LD_RUN_PATH} ? qq{-rpath "$self->{LD_RUN_PATH}"} : ''; # For example in AIX the shared objects/libraries from previous builds # linger quite a while in the shared dynalinker cache even when nobody # is using them. This is painful if one for instance tries to restart # a failed build because the link command will fail unnecessarily 'cos # the shared object/library is 'busy'. push(@m," \$(RM_F) \$\@\n"); my $libs = '$(LDLOADLIBS)'; if (($Is{NetBSD} || $Is{Interix} || $Is{Android}) && $Config{'useshrplib'} eq 'true') { # Use nothing on static perl platforms, and to the flags needed # to link against the shared libperl library on shared perl # platforms. We peek at lddlflags to see if we need -Wl,-R # or -R to add paths to the run-time library search path. if ($Config{'lddlflags'} =~ /-Wl,-R/) { $libs .= ' "-L$(PERL_INC)" "-Wl,-R$(INSTALLARCHLIB)/CORE" "-Wl,-R$(PERL_ARCHLIB)/CORE" -lperl'; } elsif ($Config{'lddlflags'} =~ /-R/) { $libs .= ' "-L$(PERL_INC)" "-R$(INSTALLARCHLIB)/CORE" "-R$(PERL_ARCHLIB)/CORE" -lperl'; } elsif ( $Is{Android} ) { # The Android linker will not recognize symbols from # libperl unless the module explicitly depends on it. $libs .= ' "-L$(PERL_INC)" -lperl'; } } my $ld_run_path_shell = ""; if ($self->{LD_RUN_PATH} ne "") { $ld_run_path_shell = 'LD_RUN_PATH="$(LD_RUN_PATH)" '; } push @m, sprintf <<'MAKE', $ld_run_path_shell, $ldrun, $dlsyms_arg, $ldfrom, $self->xs_obj_opt('$@'), $libs, $exportlist; %s$(LD) %s $(LDDLFLAGS) %s %s $(OTHERLDFLAGS) %s $(MYEXTLIB) \ $(PERL_ARCHIVE) %s $(PERL_ARCHIVE_AFTER) %s \ $(INST_DYNAMIC_FIX) $(CHMOD) $(PERM_RWX) $@ MAKE join '', @m; } =item exescan Deprecated method. Use libscan instead. =cut sub exescan { my($self,$path) = @_; $path; } =item extliblist Called by init_others, and calls ext ExtUtils::Liblist. See L<ExtUtils::Liblist> for details. =cut sub extliblist { my($self,$libs) = @_; require ExtUtils::Liblist; $self->ext($libs, $Verbose); } =item find_perl Finds the executables PERL and FULLPERL =cut sub find_perl { my($self, $ver, $names, $dirs, $trace) = @_; if ($trace >= 2){ print "Looking for perl $ver by these names: @$names in these dirs: @$dirs "; } my $stderr_duped = 0; local *STDERR_COPY; unless ($Is{BSD}) { # >& and lexical filehandles together give 5.6.2 indigestion if( open(STDERR_COPY, '>&STDERR') ) { ## no critic $stderr_duped = 1; } else { warn <<WARNING; find_perl() can't dup STDERR: $! You might see some garbage while we search for Perl WARNING } } foreach my $name (@$names){ my ($abs, $use_dir); if ($self->file_name_is_absolute($name)) { # /foo/bar $abs = $name; } elsif ($self->canonpath($name) eq $self->canonpath(basename($name))) { # foo $use_dir = 1; } else { # foo/bar $abs = $self->catfile($Curdir, $name); } foreach my $dir ($use_dir ? @$dirs : 1){ next unless defined $dir; # $self->{PERL_SRC} may be undefined $abs = $self->catfile($dir, $name) if $use_dir; print "Checking $abs\n" if ($trace >= 2); next unless $self->maybe_command($abs); print "Executing $abs\n" if ($trace >= 2); my $val; my $version_check = qq{"$abs" -le "require $ver; print qq{VER_OK}"}; # To avoid using the unportable 2>&1 to suppress STDERR, # we close it before running the command. # However, thanks to a thread library bug in many BSDs # ( http://www.freebsd.org/cgi/query-pr.cgi?pr=51535 ) # we cannot use the fancier more portable way in here # but instead need to use the traditional 2>&1 construct. if ($Is{BSD}) { $val = `$version_check 2>&1`; } else { close STDERR if $stderr_duped; $val = `$version_check`; # 5.6.2's 3-arg open doesn't work with >& open STDERR, ">&STDERR_COPY" ## no critic if $stderr_duped; } if ($val =~ /^VER_OK/m) { print "Using PERL=$abs\n" if $trace; return $abs; } elsif ($trace >= 2) { print "Result: '$val' ".($? >> 8)."\n"; } } } print "Unable to find a perl $ver (by these names: @$names, in these dirs: @$dirs)\n"; 0; # false and not empty } =item fixin $mm->fixin(@files); Inserts the sharpbang or equivalent magic number to a set of @files. =cut sub fixin { # stolen from the pink Camel book, more or less my ( $self, @files ) = @_; for my $file (@files) { my $file_new = "$file.new"; my $file_bak = "$file.bak"; open( my $fixin, '<', $file ) or croak "Can't process '$file': $!"; local $/ = "\n"; chomp( my $line = <$fixin> ); next unless $line =~ s/^\s*\#!\s*//; # Not a shebang file. my $shb = $self->_fixin_replace_shebang( $file, $line ); next unless defined $shb; open( my $fixout, ">", "$file_new" ) or do { warn "Can't create new $file: $!\n"; next; }; # Print out the new #! line (or equivalent). local $\; local $/; print $fixout $shb, <$fixin>; close $fixin; close $fixout; chmod 0666, $file_bak; unlink $file_bak; unless ( _rename( $file, $file_bak ) ) { warn "Can't rename $file to $file_bak: $!"; next; } unless ( _rename( $file_new, $file ) ) { warn "Can't rename $file_new to $file: $!"; unless ( _rename( $file_bak, $file ) ) { warn "Can't rename $file_bak back to $file either: $!"; warn "Leaving $file renamed as $file_bak\n"; } next; } unlink $file_bak; } continue { system("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':'; } } sub _rename { my($old, $new) = @_; foreach my $file ($old, $new) { if( $Is{VMS} and basename($file) !~ /\./ ) { # rename() in 5.8.0 on VMS will not rename a file if it # does not contain a dot yet it returns success. $file = "$file."; } } return rename($old, $new); } sub _fixin_replace_shebang { my ( $self, $file, $line ) = @_; # Now figure out the interpreter name. my ( $origcmd, $arg ) = split ' ', $line, 2; (my $cmd = $origcmd) =~ s!^.*/!!; # Now look (in reverse) for interpreter in absolute PATH (unless perl). my $interpreter; if ( defined $ENV{PERL_MM_SHEBANG} && $ENV{PERL_MM_SHEBANG} eq "relocatable" ) { $interpreter = "/usr/bin/env perl"; } elsif ( $cmd =~ m{^perl(?:\z|[^a-z])} ) { if ( $Config{startperl} =~ m,^\#!.*/perl, ) { $interpreter = $Config{startperl}; $interpreter =~ s,^\#!,,; } else { $interpreter = $Config{perlpath}; } } else { my (@absdirs) = reverse grep { $self->file_name_is_absolute($_) } $self->path; $interpreter = ''; foreach my $dir (@absdirs) { my $maybefile = $self->catfile($dir,$cmd); if ( $self->maybe_command($maybefile) ) { warn "Ignoring $interpreter in $file\n" if $Verbose && $interpreter; $interpreter = $maybefile; } } # If the shebang is absolute and exists in PATH, but was not # the first one found, leave it alone if it's actually the # same file as first one. This avoids packages built on # merged-/usr systems with /usr/bin before /bin in the path # breaking when installed on systems without merged /usr if ($origcmd ne $interpreter and $self->file_name_is_absolute($origcmd)) { my $origdir = dirname($origcmd); if ($self->maybe_command($origcmd) && grep { $_ eq $origdir } @absdirs) { my ($odev, $oino) = stat $origcmd; my ($idev, $iino) = stat $interpreter; if ($odev == $idev && $oino == $iino) { warn "$origcmd is the same as $interpreter, leaving alone" if $Verbose; $interpreter = $origcmd; } } } } # Figure out how to invoke interpreter on this machine. my ($does_shbang) = $Config{'sharpbang'} =~ /^\s*\#\!/; my ($shb) = ""; if ($interpreter) { print "Changing sharpbang in $file to $interpreter" if $Verbose; # this is probably value-free on DOSISH platforms if ($does_shbang) { $shb .= "$Config{'sharpbang'}$interpreter"; $shb .= ' ' . $arg if defined $arg; $shb .= "\n"; } } else { warn "Can't find $cmd in PATH, $file unchanged" if $Verbose; return; } return $shb } =item force (o) Writes an empty FORCE: target. =cut sub force { my($self) = shift; '# Phony target to force checking subdirectories. FORCE : $(NOECHO) $(NOOP) '; } =item guess_name Guess the name of this package by examining the working directory's name. MakeMaker calls this only if the developer has not supplied a NAME attribute. =cut # '; sub guess_name { my($self) = @_; use Cwd 'cwd'; my $name = basename(cwd()); $name =~ s|[\-_][\d\.\-]+\z||; # this is new with MM 5.00, we # strip minus or underline # followed by a float or some such print "Warning: Guessing NAME [$name] from current directory name.\n"; $name; } =item has_link_code Returns true if C, XS, MYEXTLIB or similar objects exist within this object that need a compiler. Does not descend into subdirectories as needs_linking() does. =cut sub has_link_code { my($self) = shift; return $self->{HAS_LINK_CODE} if defined $self->{HAS_LINK_CODE}; if ($self->{OBJECT} or @{$self->{C} || []} or $self->{MYEXTLIB}){ $self->{HAS_LINK_CODE} = 1; return 1; } return $self->{HAS_LINK_CODE} = 0; } =item init_dirscan Scans the directory structure and initializes DIR, XS, XS_FILES, C, C_FILES, O_FILES, H, H_FILES, PL_FILES, EXE_FILES. Called by init_main. =cut sub init_dirscan { # --- File and Directory Lists (.xs .pm .pod etc) my($self) = @_; my(%dir, %xs, %c, %o, %h, %pl_files, %pm); my %ignore = map {( $_ => 1 )} qw(Makefile.PL Build.PL test.pl t); # ignore the distdir $Is{VMS} ? $ignore{"$self->{DISTVNAME}.dir"} = 1 : $ignore{$self->{DISTVNAME}} = 1; my $distprefix = $Is{VMS} ? qr/^\Q$self->{DISTNAME}\E-v?[\d\.]+\.dir$/i : qr/^\Q$self->{DISTNAME}\E-v?[\d\.]+$/; @ignore{map lc, keys %ignore} = values %ignore if $Is{VMS}; if ( defined $self->{XS} and !defined $self->{C} ) { my @c_files = grep { m/\.c(pp|xx)?\z/i } values %{$self->{XS}}; my @o_files = grep { m/(?:.(?:o(?:bj)?)|\$\(OBJ_EXT\))\z/i } values %{$self->{XS}}; %c = map { $_ => 1 } @c_files; %o = map { $_ => 1 } @o_files; } foreach my $name ($self->lsdir($Curdir)){ next if $name =~ /\#/; next if $name =~ $distprefix && -d $name; $name = lc($name) if $Is{VMS}; next if $name eq $Curdir or $name eq $Updir or $ignore{$name}; next unless $self->libscan($name); if (-d $name){ next if -l $name; # We do not support symlinks at all next if $self->{NORECURS}; $dir{$name} = $name if (-f $self->catfile($name,"Makefile.PL")); } elsif ($name =~ /\.xs\z/){ my($c); ($c = $name) =~ s/\.xs\z/.c/; $xs{$name} = $c; $c{$c} = 1; } elsif ($name =~ /\.c(pp|xx|c)?\z/i){ # .c .C .cpp .cxx .cc $c{$name} = 1 unless $name =~ m/perlmain\.c/; # See MAP_TARGET } elsif ($name =~ /\.h\z/i){ $h{$name} = 1; } elsif ($name =~ /\.PL\z/) { ($pl_files{$name} = $name) =~ s/\.PL\z// ; } elsif (($Is{VMS} || $Is{Dos}) && $name =~ /[._]pl$/i) { # case-insensitive filesystem, one dot per name, so foo.h.PL # under Unix appears as foo.h_pl under VMS or fooh.pl on Dos local($/); open(my $pl, '<', $name); my $txt = <$pl>; close $pl; if ($txt =~ /Extracting \S+ \(with variable substitutions/) { ($pl_files{$name} = $name) =~ s/[._]pl\z//i ; } else { $pm{$name} = $self->catfile($self->{INST_LIBDIR},$name); } } elsif ($name =~ /\.(p[ml]|pod)\z/){ $pm{$name} = $self->catfile($self->{INST_LIBDIR},$name); } } $self->{PL_FILES} ||= \%pl_files; $self->{DIR} ||= [sort keys %dir]; $self->{XS} ||= \%xs; $self->{C} ||= [sort keys %c]; $self->{H} ||= [sort keys %h]; $self->{PM} ||= \%pm; my @o_files = @{$self->{C}}; %o = (%o, map { $_ => 1 } grep s/\.c(pp|xx|c)?\z/$self->{OBJ_EXT}/i, @o_files); $self->{O_FILES} = [sort keys %o]; } =item init_MANPODS Determines if man pages should be generated and initializes MAN1PODS and MAN3PODS as appropriate. =cut sub init_MANPODS { my $self = shift; # Set up names of manual pages to generate from pods foreach my $man (qw(MAN1 MAN3)) { if ( $self->{"${man}PODS"} or $self->{"INSTALL${man}DIR"} =~ /^(none|\s*)$/ ) { $self->{"${man}PODS"} ||= {}; } else { my $init_method = "init_${man}PODS"; $self->$init_method(); } } # logic similar to picking man${num}ext in perl's Configure script foreach my $num (1,3) { my $installdirs = uc $self->{INSTALLDIRS}; $installdirs = '' if $installdirs eq 'PERL'; my @mandirs = File::Spec->splitdir( $self->_expand_macros( $self->{ "INSTALL${installdirs}MAN${num}DIR" } ) ); my $mandir = pop @mandirs; my $section = $num; foreach ($num, "${num}p", "${num}pm", qw< l n o C L >, "L$num") { if ( $mandir =~ /^(?:man|cat)$_$/ ) { $section = $_; last; } } $self->{"MAN${num}SECTION"} = $section; } } sub _has_pod { my($self, $file) = @_; my($ispod)=0; if (open( my $fh, '<', $file )) { while (<$fh>) { if (/^=(?:head\d+|item|pod)\b/) { $ispod=1; last; } } close $fh; } else { # If it doesn't exist yet, we assume, it has pods in it $ispod = 1; } return $ispod; } =item init_MAN1PODS Initializes MAN1PODS from the list of EXE_FILES. =cut sub init_MAN1PODS { my($self) = @_; if ( exists $self->{EXE_FILES} ) { foreach my $name (@{$self->{EXE_FILES}}) { next unless $self->_has_pod($name); $self->{MAN1PODS}->{$name} = $self->catfile("\$(INST_MAN1DIR)", basename($name).".\$(MAN1EXT)"); } } } =item init_MAN3PODS Initializes MAN3PODS from the list of PM files. =cut sub init_MAN3PODS { my $self = shift; my %manifypods = (); # we collect the keys first, i.e. the files # we have to convert to pod foreach my $name (keys %{$self->{PM}}) { if ($name =~ /\.pod\z/ ) { $manifypods{$name} = $self->{PM}{$name}; } elsif ($name =~ /\.p[ml]\z/ ) { if( $self->_has_pod($name) ) { $manifypods{$name} = $self->{PM}{$name}; } } } my $parentlibs_re = join '|', @{$self->{PMLIBPARENTDIRS}}; # Remove "Configure.pm" and similar, if it's not the only pod listed # To force inclusion, just name it "Configure.pod", or override # MAN3PODS foreach my $name (keys %manifypods) { if ( ($self->{PERL_CORE} and $name =~ /(config|setup).*\.pm/is) or ( $name =~ m/^README\.pod$/i ) # don't manify top-level README.pod ) { delete $manifypods{$name}; next; } my($manpagename) = $name; $manpagename =~ s/\.p(od|m|l)\z//; # everything below lib is ok unless($manpagename =~ s!^\W*($parentlibs_re)\W+!!s) { $manpagename = $self->catfile( split(/::/,$self->{PARENT_NAME}),$manpagename ); } $manpagename = $self->replace_manpage_separator($manpagename); $self->{MAN3PODS}->{$name} = $self->catfile("\$(INST_MAN3DIR)", "$manpagename.\$(MAN3EXT)"); } } =item init_PM Initializes PMLIBDIRS and PM from PMLIBDIRS. =cut sub init_PM { my $self = shift; # Some larger extensions often wish to install a number of *.pm/pl # files into the library in various locations. # The attribute PMLIBDIRS holds an array reference which lists # subdirectories which we should search for library files to # install. PMLIBDIRS defaults to [ 'lib', $self->{BASEEXT} ]. We # recursively search through the named directories (skipping any # which don't exist or contain Makefile.PL files). # For each *.pm or *.pl file found $self->libscan() is called with # the default installation path in $_[1]. The return value of # libscan defines the actual installation location. The default # libscan function simply returns the path. The file is skipped # if libscan returns false. # The default installation location passed to libscan in $_[1] is: # # ./*.pm => $(INST_LIBDIR)/*.pm # ./xyz/... => $(INST_LIBDIR)/xyz/... # ./lib/... => $(INST_LIB)/... # # In this way the 'lib' directory is seen as the root of the actual # perl library whereas the others are relative to INST_LIBDIR # (which includes PARENT_NAME). This is a subtle distinction but one # that's important for nested modules. unless( $self->{PMLIBDIRS} ) { if( $Is{VMS} ) { # Avoid logical name vs directory collisions $self->{PMLIBDIRS} = ['./lib', "./$self->{BASEEXT}"]; } else { $self->{PMLIBDIRS} = ['lib', $self->{BASEEXT}]; } } #only existing directories that aren't in $dir are allowed # Avoid $_ wherever possible: # @{$self->{PMLIBDIRS}} = grep -d && !$dir{$_}, @{$self->{PMLIBDIRS}}; my (@pmlibdirs) = @{$self->{PMLIBDIRS}}; @{$self->{PMLIBDIRS}} = (); my %dir = map { ($_ => $_) } @{$self->{DIR}}; foreach my $pmlibdir (@pmlibdirs) { -d $pmlibdir && !$dir{$pmlibdir} && push @{$self->{PMLIBDIRS}}, $pmlibdir; } unless( $self->{PMLIBPARENTDIRS} ) { @{$self->{PMLIBPARENTDIRS}} = ('lib'); } return if $self->{PM} and $self->{ARGS}{PM}; if (@{$self->{PMLIBDIRS}}){ print "Searching PMLIBDIRS: @{$self->{PMLIBDIRS}}\n" if ($Verbose >= 2); require File::Find; File::Find::find(sub { if (-d $_){ unless ($self->libscan($_)){ $File::Find::prune = 1; } return; } return if /\#/; return if /~$/; # emacs temp files return if /,v$/; # RCS files return if m{\.swp$}; # vim swap files my $path = $File::Find::name; my $prefix = $self->{INST_LIBDIR}; my $striplibpath; my $parentlibs_re = join '|', @{$self->{PMLIBPARENTDIRS}}; $prefix = $self->{INST_LIB} if ($striplibpath = $path) =~ s{^(\W*)($parentlibs_re)\W} {$1}i; my($inst) = $self->catfile($prefix,$striplibpath); local($_) = $inst; # for backwards compatibility $inst = $self->libscan($inst); print "libscan($path) => '$inst'\n" if ($Verbose >= 2); return unless $inst; if ($self->{XSMULTI} and $inst =~ /\.xs\z/) { my($base); ($base = $path) =~ s/\.xs\z//; $self->{XS}{$path} = "$base.c"; push @{$self->{C}}, "$base.c"; push @{$self->{O_FILES}}, "$base$self->{OBJ_EXT}"; } else { $self->{PM}{$path} = $inst; } }, @{$self->{PMLIBDIRS}}); } } =item init_DIRFILESEP Using / for Unix. Called by init_main. =cut sub init_DIRFILESEP { my($self) = shift; $self->{DIRFILESEP} = '/'; } =item init_main Initializes AR, AR_STATIC_ARGS, BASEEXT, CONFIG, DISTNAME, DLBASE, EXE_EXT, FULLEXT, FULLPERL, FULLPERLRUN, FULLPERLRUNINST, INST_*, INSTALL*, INSTALLDIRS, LIB_EXT, LIBPERL_A, MAP_TARGET, NAME, OBJ_EXT, PARENT_NAME, PERL, PERL_ARCHLIB, PERL_INC, PERL_LIB, PERL_SRC, PERLRUN, PERLRUNINST, PREFIX, VERSION, VERSION_SYM, XS_VERSION. =cut sub init_main { my($self) = @_; # --- Initialize Module Name and Paths # NAME = Foo::Bar::Oracle # FULLEXT = Foo/Bar/Oracle # BASEEXT = Oracle # PARENT_NAME = Foo::Bar ### Only UNIX: ### ($self->{FULLEXT} = ### $self->{NAME}) =~ s!::!/!g ; #eg. BSD/Foo/Socket $self->{FULLEXT} = $self->catdir(split /::/, $self->{NAME}); # Copied from DynaLoader: my(@modparts) = split(/::/,$self->{NAME}); my($modfname) = $modparts[-1]; # Some systems have restrictions on files names for DLL's etc. # mod2fname returns appropriate file base name (typically truncated) # It may also edit @modparts if required. # We require DynaLoader to make sure that mod2fname is loaded eval { require DynaLoader }; if (defined &DynaLoader::mod2fname) { $modfname = &DynaLoader::mod2fname(\@modparts); } ($self->{PARENT_NAME}, $self->{BASEEXT}) = $self->{NAME} =~ m!(?:([\w:]+)::)?(\w+)\z! ; $self->{PARENT_NAME} ||= ''; if (defined &DynaLoader::mod2fname) { # As of 5.001m, dl_os2 appends '_' $self->{DLBASE} = $modfname; } else { $self->{DLBASE} = '$(BASEEXT)'; } # --- Initialize PERL_LIB, PERL_SRC # *Real* information: where did we get these two from? ... my $inc_config_dir = dirname($INC{'Config.pm'}); my $inc_carp_dir = dirname($INC{'Carp.pm'}); unless ($self->{PERL_SRC}){ foreach my $dir_count (1..8) { # 8 is the VMS limit for nesting my $dir = $self->catdir(($Updir) x $dir_count); if (-f $self->catfile($dir,"config_h.SH") && -f $self->catfile($dir,"perl.h") && -f $self->catfile($dir,"lib","strict.pm") ) { $self->{PERL_SRC}=$dir ; last; } } } warn "PERL_CORE is set but I can't find your PERL_SRC!\n" if $self->{PERL_CORE} and !$self->{PERL_SRC}; if ($self->{PERL_SRC}){ $self->{PERL_LIB} ||= $self->catdir("$self->{PERL_SRC}","lib"); $self->{PERL_ARCHLIB} = $self->{PERL_LIB}; $self->{PERL_INC} = ($Is{Win32}) ? $self->catdir($self->{PERL_LIB},"CORE") : $self->{PERL_SRC}; # catch a situation that has occurred a few times in the past: unless ( -s $self->catfile($self->{PERL_SRC},'cflags') or $Is{VMS} && -s $self->catfile($self->{PERL_SRC},'vmsish.h') or $Is{Win32} ){ warn qq{ You cannot build extensions below the perl source tree after executing a 'make clean' in the perl source tree. To rebuild extensions distributed with the perl source you should simply Configure (to include those extensions) and then build perl as normal. After installing perl the source tree can be deleted. It is not needed for building extensions by running 'perl Makefile.PL' usually without extra arguments. It is recommended that you unpack and build additional extensions away from the perl source tree. }; } } else { # we should also consider $ENV{PERL5LIB} here my $old = $self->{PERL_LIB} || $self->{PERL_ARCHLIB} || $self->{PERL_INC}; $self->{PERL_LIB} ||= $Config{privlibexp}; $self->{PERL_ARCHLIB} ||= $Config{archlibexp}; $self->{PERL_INC} = $self->catdir("$self->{PERL_ARCHLIB}","CORE"); # wild guess for now my $perl_h; if (not -f ($perl_h = $self->catfile($self->{PERL_INC},"perl.h")) and not $old){ # Maybe somebody tries to build an extension with an # uninstalled Perl outside of Perl build tree my $lib; for my $dir (@INC) { $lib = $dir, last if -e $self->catfile($dir, "Config.pm"); } if ($lib) { # Win32 puts its header files in /perl/src/lib/CORE. # Unix leaves them in /perl/src. my $inc = $Is{Win32} ? $self->catdir($lib, "CORE" ) : dirname $lib; if (-e $self->catfile($inc, "perl.h")) { $self->{PERL_LIB} = $lib; $self->{PERL_ARCHLIB} = $lib; $self->{PERL_INC} = $inc; $self->{UNINSTALLED_PERL} = 1; print <<EOP; ... Detected uninstalled Perl. Trying to continue. EOP } } } } if ($Is{Android}) { # Android fun times! # ../../perl -I../../lib -MFile::Glob -e1 works # ../../../perl -I../../../lib -MFile::Glob -e1 fails to find # the .so for File::Glob. # This always affects core perl, but may also affect an installed # perl built with -Duserelocatableinc. $self->{PERL_LIB} = File::Spec->rel2abs($self->{PERL_LIB}); $self->{PERL_ARCHLIB} = File::Spec->rel2abs($self->{PERL_ARCHLIB}); } $self->{PERL_INCDEP} = $self->{PERL_INC}; $self->{PERL_ARCHLIBDEP} = $self->{PERL_ARCHLIB}; # We get SITELIBEXP and SITEARCHEXP directly via # Get_from_Config. When we are running standard modules, these # won't matter, we will set INSTALLDIRS to "perl". Otherwise we # set it to "site". I prefer that INSTALLDIRS be set from outside # MakeMaker. $self->{INSTALLDIRS} ||= "site"; $self->{MAN1EXT} ||= $Config{man1ext}; $self->{MAN3EXT} ||= $Config{man3ext}; # Get some stuff out of %Config if we haven't yet done so print "CONFIG must be an array ref\n" if ($self->{CONFIG} and ref $self->{CONFIG} ne 'ARRAY'); $self->{CONFIG} = [] unless (ref $self->{CONFIG}); push(@{$self->{CONFIG}}, @ExtUtils::MakeMaker::Get_from_Config); push(@{$self->{CONFIG}}, 'shellflags') if $Config{shellflags}; my(%once_only); foreach my $m (@{$self->{CONFIG}}){ next if $once_only{$m}; print "CONFIG key '$m' does not exist in Config.pm\n" unless exists $Config{$m}; $self->{uc $m} ||= $Config{$m}; $once_only{$m} = 1; } # This is too dangerous: # if ($^O eq "next") { # $self->{AR} = "libtool"; # $self->{AR_STATIC_ARGS} = "-o"; # } # But I leave it as a placeholder $self->{AR_STATIC_ARGS} ||= "cr"; # These should never be needed $self->{OBJ_EXT} ||= '.o'; $self->{LIB_EXT} ||= '.a'; $self->{MAP_TARGET} ||= "perl"; $self->{LIBPERL_A} ||= "libperl$self->{LIB_EXT}"; # make a simple check if we find strict warn "Warning: PERL_LIB ($self->{PERL_LIB}) seems not to be a perl library directory (strict.pm not found)" unless -f $self->catfile("$self->{PERL_LIB}","strict.pm") || $self->{NAME} eq "ExtUtils::MakeMaker"; } =item init_tools Initializes tools to use their common (and faster) Unix commands. =cut sub init_tools { my $self = shift; $self->{ECHO} ||= 'echo'; $self->{ECHO_N} ||= 'echo -n'; $self->{RM_F} ||= "rm -f"; $self->{RM_RF} ||= "rm -rf"; $self->{TOUCH} ||= "touch"; $self->{TEST_F} ||= "test -f"; $self->{TEST_S} ||= "test -s"; $self->{CP} ||= "cp"; $self->{MV} ||= "mv"; $self->{CHMOD} ||= "chmod"; $self->{FALSE} ||= 'false'; $self->{TRUE} ||= 'true'; $self->{LD} ||= 'ld'; return $self->SUPER::init_tools(@_); # After SUPER::init_tools so $Config{shell} has a # chance to get set. $self->{SHELL} ||= '/bin/sh'; return; } =item init_linker Unix has no need of special linker flags. =cut sub init_linker { my($self) = shift; $self->{PERL_ARCHIVE} ||= ''; $self->{PERL_ARCHIVEDEP} ||= ''; $self->{PERL_ARCHIVE_AFTER} ||= ''; $self->{EXPORT_LIST} ||= ''; } =begin _protected =item init_lib2arch $mm->init_lib2arch =end _protected =cut sub init_lib2arch { my($self) = shift; # The user who requests an installation directory explicitly # should not have to tell us an architecture installation directory # as well. We look if a directory exists that is named after the # architecture. If not we take it as a sign that it should be the # same as the requested installation directory. Otherwise we take # the found one. for my $libpair ({l=>"privlib", a=>"archlib"}, {l=>"sitelib", a=>"sitearch"}, {l=>"vendorlib", a=>"vendorarch"}, ) { my $lib = "install$libpair->{l}"; my $Lib = uc $lib; my $Arch = uc "install$libpair->{a}"; if( $self->{$Lib} && ! $self->{$Arch} ){ my($ilib) = $Config{$lib}; $self->prefixify($Arch,$ilib,$self->{$Lib}); unless (-d $self->{$Arch}) { print "Directory $self->{$Arch} not found\n" if $Verbose; $self->{$Arch} = $self->{$Lib}; } print "Defaulting $Arch to $self->{$Arch}\n" if $Verbose; } } } =item init_PERL $mm->init_PERL; Called by init_main. Sets up ABSPERL, PERL, FULLPERL and all the *PERLRUN* permutations. PERL is allowed to be miniperl FULLPERL must be a complete perl ABSPERL is PERL converted to an absolute path *PERLRUN contains everything necessary to run perl, find it's libraries, etc... *PERLRUNINST is *PERLRUN + everything necessary to find the modules being built. =cut sub init_PERL { my($self) = shift; my @defpath = (); foreach my $component ($self->{PERL_SRC}, $self->path(), $Config{binexp}) { push @defpath, $component if defined $component; } # Build up a set of file names (not command names). my $thisperl = $self->canonpath($^X); $thisperl .= $Config{exe_ext} unless # VMS might have a file version # at the end $Is{VMS} ? $thisperl =~ m/$Config{exe_ext}(;\d+)?$/i : $thisperl =~ m/$Config{exe_ext}$/i; # We need a relative path to perl when in the core. $thisperl = $self->abs2rel($thisperl) if $self->{PERL_CORE}; my @perls = ($thisperl); push @perls, map { "$_$Config{exe_ext}" } ("perl$Config{version}", 'perl5', 'perl'); # miniperl has priority over all but the canonical perl when in the # core. Otherwise its a last resort. my $miniperl = "miniperl$Config{exe_ext}"; if( $self->{PERL_CORE} ) { splice @perls, 1, 0, $miniperl; } else { push @perls, $miniperl; } $self->{PERL} ||= $self->find_perl(5.0, \@perls, \@defpath, $Verbose ); my $perl = $self->{PERL}; $perl =~ s/^"//; my $has_mcr = $perl =~ s/^MCR\s*//; my $perlflags = ''; my $stripped_perl; while ($perl) { ($stripped_perl = $perl) =~ s/"$//; last if -x $stripped_perl; last unless $perl =~ s/(\s+\S+)$//; $perlflags = $1.$perlflags; } $self->{PERL} = $stripped_perl; $self->{PERL} = 'MCR '.$self->{PERL} if $has_mcr || $Is{VMS}; # When built for debugging, VMS doesn't create perl.exe but ndbgperl.exe. my $perl_name = 'perl'; $perl_name = 'ndbgperl' if $Is{VMS} && defined $Config{usevmsdebug} && $Config{usevmsdebug} eq 'define'; # XXX This logic is flawed. If "miniperl" is anywhere in the path # it will get confused. It should be fixed to work only on the filename. # Define 'FULLPERL' to be a non-miniperl (used in test: target) unless ($self->{FULLPERL}) { ($self->{FULLPERL} = $self->{PERL}) =~ s/\Q$miniperl\E$/$perl_name$Config{exe_ext}/i; $self->{FULLPERL} = qq{"$self->{FULLPERL}"}.$perlflags; } # Can't have an image name with quotes, and findperl will have # already escaped spaces. $self->{FULLPERL} =~ tr/"//d if $Is{VMS}; # `dmake` can fail for image (aka, executable) names which start with double-quotes # * push quote inward by at least one character (or the drive prefix, if present) # * including any initial directory separator preserves the `file_name_is_absolute` property $self->{FULLPERL} =~ s/^"(\S(:\\|:)?)/$1"/ if $self->is_make_type('dmake'); # Little hack to get around VMS's find_perl putting "MCR" in front # sometimes. $self->{ABSPERL} = $self->{PERL}; $has_mcr = $self->{ABSPERL} =~ s/^MCR\s*//; if( $self->file_name_is_absolute($self->{ABSPERL}) ) { $self->{ABSPERL} = '$(PERL)'; } else { $self->{ABSPERL} = $self->rel2abs($self->{ABSPERL}); # Quote the perl command if it contains whitespace $self->{ABSPERL} = $self->quote_literal($self->{ABSPERL}) if $self->{ABSPERL} =~ /\s/; $self->{ABSPERL} = 'MCR '.$self->{ABSPERL} if $has_mcr; } $self->{PERL} = qq{"$self->{PERL}"}.$perlflags; # Can't have an image name with quotes, and findperl will have # already escaped spaces. $self->{PERL} =~ tr/"//d if $Is{VMS}; # `dmake` can fail for image (aka, executable) names which start with double-quotes # * push quote inward by at least one character (or the drive prefix, if present) # * including any initial directory separator preserves the `file_name_is_absolute` property $self->{PERL} =~ s/^"(\S(:\\|:)?)/$1"/ if $self->is_make_type('dmake'); # Are we building the core? $self->{PERL_CORE} = $ENV{PERL_CORE} unless exists $self->{PERL_CORE}; $self->{PERL_CORE} = 0 unless defined $self->{PERL_CORE}; # Make sure perl can find itself before it's installed. my $lib_paths = $self->{UNINSTALLED_PERL} || $self->{PERL_CORE} ? ( $self->{PERL_ARCHLIB} && $self->{PERL_LIB} && $self->{PERL_ARCHLIB} ne $self->{PERL_LIB} ) ? q{ "-I$(PERL_LIB)" "-I$(PERL_ARCHLIB)"} : q{ "-I$(PERL_LIB)"} : undef; my $inst_lib_paths = $self->{INST_ARCHLIB} ne $self->{INST_LIB} ? 'RUN)'.$perlflags.' "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"' : 'RUN)'.$perlflags.' "-I$(INST_LIB)"'; # How do we run perl? foreach my $perl (qw(PERL FULLPERL ABSPERL)) { my $run = $perl.'RUN'; $self->{$run} = qq{\$($perl)}; $self->{$run} .= $lib_paths if $lib_paths; $self->{$perl.'RUNINST'} = '$('.$perl.$inst_lib_paths; } return 1; } =item init_platform =item platform_constants Add MM_Unix_VERSION. =cut sub init_platform { my($self) = shift; $self->{MM_Unix_VERSION} = $VERSION; $self->{PERL_MALLOC_DEF} = '-DPERL_EXTMALLOC_DEF -Dmalloc=Perl_malloc '. '-Dfree=Perl_mfree -Drealloc=Perl_realloc '. '-Dcalloc=Perl_calloc'; } sub platform_constants { my($self) = shift; my $make_frag = ''; foreach my $macro (qw(MM_Unix_VERSION PERL_MALLOC_DEF)) { next unless defined $self->{$macro}; $make_frag .= "$macro = $self->{$macro}\n"; } return $make_frag; } =item init_PERM $mm->init_PERM Called by init_main. Initializes PERL_* =cut sub init_PERM { my($self) = shift; $self->{PERM_DIR} = 755 unless defined $self->{PERM_DIR}; $self->{PERM_RW} = 644 unless defined $self->{PERM_RW}; $self->{PERM_RWX} = 755 unless defined $self->{PERM_RWX}; return 1; } =item init_xs $mm->init_xs Sets up macros having to do with XS code. Currently just INST_STATIC, INST_DYNAMIC and INST_BOOT. =cut sub init_xs { my $self = shift; if ($self->has_link_code()) { $self->{INST_STATIC} = $self->catfile('$(INST_ARCHAUTODIR)', '$(BASEEXT)$(LIB_EXT)'); $self->{INST_DYNAMIC} = $self->catfile('$(INST_ARCHAUTODIR)', '$(DLBASE).$(DLEXT)'); $self->{INST_BOOT} = $self->catfile('$(INST_ARCHAUTODIR)', '$(BASEEXT).bs'); if ($self->{XSMULTI}) { my @exts = $self->_xs_list_basenames; my (@statics, @dynamics, @boots); for my $ext (@exts) { my ($v, $d, $f) = File::Spec->splitpath($ext); my @d = File::Spec->splitdir($d); shift @d if defined $d[0] and $d[0] eq 'lib'; pop @d if $d[$#d] eq ''; my $instdir = $self->catdir('$(INST_ARCHLIB)', 'auto', @d, $f); my $instfile = $self->catfile($instdir, $f); push @statics, "$instfile\$(LIB_EXT)"; # Dynamic library names may need special handling. my $dynfile = $instfile; eval { require DynaLoader }; if (defined &DynaLoader::mod2fname) { $dynfile = $self->catfile($instdir, &DynaLoader::mod2fname([@d, $f])); } push @dynamics, "$dynfile.\$(DLEXT)"; push @boots, "$instfile.bs"; } $self->{INST_STATIC} = join ' ', @statics; $self->{INST_DYNAMIC} = join ' ', @dynamics; $self->{INST_BOOT} = join ' ', @boots; } } else { $self->{INST_STATIC} = ''; $self->{INST_DYNAMIC} = ''; $self->{INST_BOOT} = ''; } } =item install (o) Defines the install target. =cut sub install { my($self, %attribs) = @_; my(@m); push @m, q{ install :: pure_install doc_install $(NOECHO) $(NOOP) install_perl :: pure_perl_install doc_perl_install $(NOECHO) $(NOOP) install_site :: pure_site_install doc_site_install $(NOECHO) $(NOOP) install_vendor :: pure_vendor_install doc_vendor_install $(NOECHO) $(NOOP) pure_install :: pure_$(INSTALLDIRS)_install $(NOECHO) $(NOOP) doc_install :: doc_$(INSTALLDIRS)_install $(NOECHO) $(NOOP) pure__install : pure_site_install $(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site doc__install : doc_site_install $(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site pure_perl_install :: all $(NOECHO) umask 022; $(MOD_INSTALL) \ }; push @m, q{ "$(INST_LIB)" "$(DESTINSTALLPRIVLIB)" \ "$(INST_ARCHLIB)" "$(DESTINSTALLARCHLIB)" \ "$(INST_BIN)" "$(DESTINSTALLBIN)" \ "$(INST_SCRIPT)" "$(DESTINSTALLSCRIPT)" \ "$(INST_MAN1DIR)" "$(DESTINSTALLMAN1DIR)" \ "$(INST_MAN3DIR)" "$(DESTINSTALLMAN3DIR)" $(NOECHO) $(WARN_IF_OLD_PACKLIST) \ "}.$self->catdir('$(SITEARCHEXP)','auto','$(FULLEXT)').q{" pure_site_install :: all $(NOECHO) umask 02; $(MOD_INSTALL) \ }; push @m, q{ read "}.$self->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').q{" \ write "}.$self->catfile('$(DESTINSTALLSITEARCH)','auto','$(FULLEXT)','.packlist').q{" \ } unless $self->{NO_PACKLIST}; push @m, q{ "$(INST_LIB)" "$(DESTINSTALLSITELIB)" \ "$(INST_ARCHLIB)" "$(DESTINSTALLSITEARCH)" \ "$(INST_BIN)" "$(DESTINSTALLSITEBIN)" \ "$(INST_SCRIPT)" "$(DESTINSTALLSITESCRIPT)" \ "$(INST_MAN1DIR)" "$(DESTINSTALLSITEMAN1DIR)" \ "$(INST_MAN3DIR)" "$(DESTINSTALLSITEMAN3DIR)" $(NOECHO) $(WARN_IF_OLD_PACKLIST) \ "}.$self->catdir('$(PERL_ARCHLIB)','auto','$(FULLEXT)').q{" pure_vendor_install :: all $(NOECHO) umask 022; $(MOD_INSTALL) \ }; push @m, q{ "$(INST_LIB)" "$(DESTINSTALLVENDORLIB)" \ "$(INST_ARCHLIB)" "$(DESTINSTALLVENDORARCH)" \ "$(INST_BIN)" "$(DESTINSTALLVENDORBIN)" \ "$(INST_SCRIPT)" "$(DESTINSTALLVENDORSCRIPT)" \ "$(INST_MAN1DIR)" "$(DESTINSTALLVENDORMAN1DIR)" \ "$(INST_MAN3DIR)" "$(DESTINSTALLVENDORMAN3DIR)" }; push @m, q{ doc_perl_install :: all $(NOECHO) $(NOOP) doc_site_install :: all $(NOECHO) $(NOOP) doc_vendor_install :: all $(NOECHO) $(NOOP) } if $self->{NO_PERLLOCAL}; push @m, q{ doc_perl_install :: all doc_site_install :: all $(NOECHO) $(ECHO) Appending installation info to "$(DESTINSTALLSITEARCH)/perllocal.pod" -$(NOECHO) umask 02; $(MKPATH) "$(DESTINSTALLSITEARCH)" -$(NOECHO) umask 02; $(DOC_INSTALL) \ "Module" "$(NAME)" \ "installed into" "$(INSTALLSITELIB)" \ LINKTYPE "$(LINKTYPE)" \ VERSION "$(VERSION)" \ EXE_FILES "$(EXE_FILES)" \ >> "}.$self->catfile('$(DESTINSTALLSITEARCH)','perllocal.pod').q{" doc_vendor_install :: all } unless $self->{NO_PERLLOCAL}; push @m, q{ uninstall :: uninstall_from_$(INSTALLDIRS)dirs $(NOECHO) $(NOOP) uninstall_from_perldirs :: uninstall_from_sitedirs :: $(NOECHO) $(UNINSTALL) "}.$self->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').q{" uninstall_from_vendordirs :: }; join("",@m); } =item installbin (o) Defines targets to make and to install EXE_FILES. =cut sub installbin { my($self) = shift; return "" unless $self->{EXE_FILES} && ref $self->{EXE_FILES} eq "ARRAY"; my @exefiles = sort @{$self->{EXE_FILES}}; return "" unless @exefiles; @exefiles = map vmsify($_), @exefiles if $Is{VMS}; my %fromto; for my $from (@exefiles) { my($path)= $self->catfile('$(INST_SCRIPT)', basename($from)); local($_) = $path; # for backwards compatibility my $to = $self->libscan($path); print "libscan($from) => '$to'\n" if ($Verbose >=2); $to = vmsify($to) if $Is{VMS}; $fromto{$from} = $to; } my @to = sort values %fromto; my @m; push(@m, qq{ EXE_FILES = @exefiles pure_all :: @to \$(NOECHO) \$(NOOP) realclean :: }); # realclean can get rather large. push @m, map "\t$_\n", $self->split_command('$(RM_F)', @to); push @m, "\n"; # A target for each exe file. my @froms = sort keys %fromto; for my $from (@froms) { # 1 2 push @m, _sprintf562 <<'MAKE', $from, $fromto{$from}; %2$s : %1$s $(FIRST_MAKEFILE) $(INST_SCRIPT)$(DFSEP).exists $(INST_BIN)$(DFSEP).exists $(NOECHO) $(RM_F) %2$s $(CP) %1$s %2$s $(FIXIN) %2$s -$(NOECHO) $(CHMOD) $(PERM_RWX) %2$s MAKE } join "", @m; } =item linkext (o) Defines the linkext target which in turn defines the LINKTYPE. =cut # LINKTYPE => static or dynamic or '' sub linkext { my($self, %attribs) = @_; my $linktype = $attribs{LINKTYPE}; $linktype = $self->{LINKTYPE} unless defined $linktype; if (defined $linktype and $linktype eq '') { warn "Warning: LINKTYPE set to '', no longer necessary\n"; } $linktype = '$(LINKTYPE)' unless defined $linktype; " linkext :: $linktype \$(NOECHO) \$(NOOP) "; } =item lsdir Takes as arguments a directory name and a regular expression. Returns all entries in the directory that match the regular expression. =cut sub lsdir { # $self my(undef, $dir, $regex) = @_; opendir(my $dh, defined($dir) ? $dir : ".") or return; my @ls = readdir $dh; closedir $dh; @ls = grep(/$regex/, @ls) if defined $regex; @ls; } =item macro (o) Simple subroutine to insert the macros defined by the macro attribute into the Makefile. =cut sub macro { my($self,%attribs) = @_; my @m; foreach my $key (sort keys %attribs) { my $val = $attribs{$key}; push @m, "$key = $val\n"; } join "", @m; } =item makeaperl (o) Called by staticmake. Defines how to write the Makefile to produce a static new perl. By default the Makefile produced includes all the static extensions in the perl library. (Purified versions of library files, e.g., DynaLoader_pure_p1_c0_032.a are automatically ignored to avoid link errors.) =cut sub makeaperl { my($self, %attribs) = @_; my($makefilename, $searchdirs, $static, $extra, $perlinc, $target, $tmp, $libperl) = @attribs{qw(MAKE DIRS STAT EXTRA INCL TARGET TMP LIBPERL)}; s/^(.*)/"-I$1"/ for @{$perlinc || []}; my(@m); push @m, " # --- MakeMaker makeaperl section --- MAP_TARGET = $target FULLPERL = $self->{FULLPERL} MAP_PERLINC = @{$perlinc || []} "; return join '', @m if $self->{PARENT}; my($dir) = join ":", @{$self->{DIR}}; unless ($self->{MAKEAPERL}) { push @m, q{ $(MAP_TARGET) :: $(MAKE_APERL_FILE) $(MAKE) $(USEMAKEFILE) $(MAKE_APERL_FILE) $@ $(MAKE_APERL_FILE) : static $(FIRST_MAKEFILE) pm_to_blib $(NOECHO) $(ECHO) Writing \"$(MAKE_APERL_FILE)\" for this $(MAP_TARGET) $(NOECHO) $(PERLRUNINST) \ Makefile.PL DIR="}, $dir, q{" \ MAKEFILE=$(MAKE_APERL_FILE) LINKTYPE=static \ MAKEAPERL=1 NORECURS=1 CCCDLFLAGS=}; foreach (@ARGV){ my $arg = $_; # avoid lvalue aliasing if ( $arg =~ /(^.*?=)(.*['\s].*)/ ) { $arg = $1 . $self->quote_literal($2); } push @m, " \\\n\t\t$arg"; } push @m, "\n"; return join '', @m; } my $cccmd = $self->const_cccmd($libperl); $cccmd =~ s/^CCCMD\s*=\s*//; $cccmd =~ s/\$\(INC\)/ "-I$self->{PERL_INC}" /; $cccmd .= " $Config{cccdlflags}" if ($Config{useshrplib} eq 'true'); $cccmd =~ s/\(CC\)/\(PERLMAINCC\)/; # The front matter of the linkcommand... my $linkcmd = join ' ', "\$(CC)", grep($_, @Config{qw(ldflags ccdlflags)}); $linkcmd =~ s/\s+/ /g; $linkcmd =~ s,(perl\.exp),\$(PERL_INC)/$1,; # Which *.a files could we make use of... my $staticlib21 = $self->_find_static_libs($searchdirs); # We trust that what has been handed in as argument, will be buildable $static = [] unless $static; @$staticlib21{@{$static}} = (1) x @{$static}; $extra = [] unless $extra && ref $extra eq 'ARRAY'; for (sort keys %$staticlib21) { next unless /\Q$self->{LIB_EXT}\E\z/; $_ = dirname($_) . "/extralibs.ld"; push @$extra, $_; } s/^(.*)/"-I$1"/ for @{$perlinc || []}; $target ||= "perl"; $tmp ||= "."; # MAP_STATIC doesn't look into subdirs yet. Once "all" is made and we # regenerate the Makefiles, MAP_STATIC and the dependencies for # extralibs.all are computed correctly my @map_static = reverse sort keys %$staticlib21; push @m, " MAP_LINKCMD = $linkcmd MAP_STATIC = ", join(" \\\n\t", map { qq{"$_"} } @map_static), " MAP_STATICDEP = ", join(' ', map { $self->quote_dep($_) } @map_static), " MAP_PRELIBS = $Config{perllibs} $Config{cryptlib} "; my $lperl; if (defined $libperl) { ($lperl = $libperl) =~ s/\$\(A\)/$self->{LIB_EXT}/; } unless ($libperl && -f $lperl) { # Ilya's code... my $dir = $self->{PERL_SRC} || "$self->{PERL_ARCHLIB}/../.."; $dir = "$self->{PERL_ARCHLIB}/.." if $self->{UNINSTALLED_PERL}; $libperl ||= "libperl$self->{LIB_EXT}"; $libperl = "$dir/$libperl"; $lperl ||= "libperl$self->{LIB_EXT}"; $lperl = "$dir/$lperl"; if (! -f $libperl and ! -f $lperl) { # We did not find a static libperl. Maybe there is a shared one? if ($Is{SunOS}) { $lperl = $libperl = "$dir/$Config{libperl}"; # SUNOS ld does not take the full path to a shared library $libperl = '' if $Is{SunOS4}; } } print <<EOF unless -f $lperl || defined($self->{PERL_SRC}); Warning: $libperl not found If you're going to build a static perl binary, make sure perl is installed otherwise ignore this warning EOF } # SUNOS ld does not take the full path to a shared library my $llibperl = $libperl ? '$(MAP_LIBPERL)' : '-lperl'; my $libperl_dep = $self->quote_dep($libperl); push @m, " MAP_LIBPERL = $libperl MAP_LIBPERLDEP = $libperl_dep LLIBPERL = $llibperl "; push @m, ' $(INST_ARCHAUTODIR)/extralibs.all : $(INST_ARCHAUTODIR)$(DFSEP).exists '.join(" \\\n\t", @$extra).' $(NOECHO) $(RM_F) $@ $(NOECHO) $(TOUCH) $@ '; foreach my $catfile (@$extra){ push @m, "\tcat $catfile >> \$\@\n"; } my $ldfrom = $self->{XSMULTI} ? '' : '$(LDFROM)'; # 1 2 3 4 push @m, _sprintf562 <<'EOF', $tmp, $ldfrom, $self->xs_obj_opt('$@'), $makefilename; $(MAP_TARGET) :: %1$s/perlmain$(OBJ_EXT) $(MAP_LIBPERLDEP) $(MAP_STATICDEP) $(INST_ARCHAUTODIR)/extralibs.all $(MAP_LINKCMD) %2$s $(OPTIMIZE) %1$s/perlmain$(OBJ_EXT) %3$s $(MAP_STATIC) "$(LLIBPERL)" `cat $(INST_ARCHAUTODIR)/extralibs.all` $(MAP_PRELIBS) $(NOECHO) $(ECHO) "To install the new '$(MAP_TARGET)' binary, call" $(NOECHO) $(ECHO) " $(MAKE) $(USEMAKEFILE) %4$s inst_perl MAP_TARGET=$(MAP_TARGET)" $(NOECHO) $(ECHO) " $(MAKE) $(USEMAKEFILE) %4$s map_clean" %1$s/perlmain\$(OBJ_EXT): %1$s/perlmain.c EOF push @m, "\t".$self->cd($tmp, qq[$cccmd "-I\$(PERL_INC)" perlmain.c])."\n"; my $maybe_DynaLoader = $Config{usedl} ? 'q(DynaLoader)' : ''; push @m, _sprintf562 <<'EOF', $tmp, $makefilename, $maybe_DynaLoader; %1$s/perlmain.c: %2$s $(NOECHO) $(ECHO) Writing $@ $(NOECHO) $(PERL) $(MAP_PERLINC) "-MExtUtils::Miniperl" \ -e "writemain(grep(s#.*/auto/##s, @ARGV), %3$s)" $(MAP_STATIC) > $@t $(MV) $@t $@ EOF push @m, "\t", q{$(NOECHO) $(PERL) "$(INSTALLSCRIPT)/fixpmain" } if (defined (&Dos::UseLFN) && Dos::UseLFN()==0); push @m, q{ doc_inst_perl : $(NOECHO) $(ECHO) Appending installation info to "$(DESTINSTALLARCHLIB)/perllocal.pod" -$(NOECHO) $(MKPATH) "$(DESTINSTALLARCHLIB)" -$(NOECHO) $(DOC_INSTALL) \ "Perl binary" "$(MAP_TARGET)" \ MAP_STATIC "$(MAP_STATIC)" \ MAP_EXTRA "`cat $(INST_ARCHAUTODIR)/extralibs.all`" \ MAP_LIBPERL "$(MAP_LIBPERL)" \ >> "}.$self->catfile('$(DESTINSTALLARCHLIB)','perllocal.pod').q{" }; push @m, q{ inst_perl : pure_inst_perl doc_inst_perl pure_inst_perl : $(MAP_TARGET) }.$self->{CP}.q{ $(MAP_TARGET) "}.$self->catfile('$(DESTINSTALLBIN)','$(MAP_TARGET)').q{" clean :: map_clean map_clean : }.$self->{RM_F}.qq{ $tmp/perlmain\$(OBJ_EXT) $tmp/perlmain.c \$(MAP_TARGET) $makefilename \$(INST_ARCHAUTODIR)/extralibs.all }; join '', @m; } # utility method sub _find_static_libs { my ($self, $searchdirs) = @_; # don't use File::Spec here because on Win32 F::F still uses "/" my $installed_version = join('/', 'auto', $self->{FULLEXT}, "$self->{BASEEXT}$self->{LIB_EXT}" ); my %staticlib21; require File::Find; File::Find::find(sub { if ($File::Find::name =~ m{/auto/share\z}) { # in a subdir of auto/share, prune because e.g. # Alien::pkgconfig uses File::ShareDir to put .a files # there. do not want $File::Find::prune = 1; return; } return unless m/\Q$self->{LIB_EXT}\E$/; return unless -f 'extralibs.ld'; # this checks is a "proper" XS installation # Skip perl's libraries. return if m/^libperl/ or m/^perl\Q$self->{LIB_EXT}\E$/; # Skip purified versions of libraries # (e.g., DynaLoader_pure_p1_c0_032.a) return if m/_pure_\w+_\w+_\w+\.\w+$/ and -f "$File::Find::dir/.pure"; if( exists $self->{INCLUDE_EXT} ){ my $found = 0; (my $xx = $File::Find::name) =~ s,.*?/auto/,,s; $xx =~ s,/?$_,,; $xx =~ s,/,::,g; # Throw away anything not explicitly marked for inclusion. # DynaLoader is implied. foreach my $incl ((@{$self->{INCLUDE_EXT}},'DynaLoader')){ if( $xx eq $incl ){ $found++; last; } } return unless $found; } elsif( exists $self->{EXCLUDE_EXT} ){ (my $xx = $File::Find::name) =~ s,.*?/auto/,,s; $xx =~ s,/?$_,,; $xx =~ s,/,::,g; # Throw away anything explicitly marked for exclusion foreach my $excl (@{$self->{EXCLUDE_EXT}}){ return if( $xx eq $excl ); } } # don't include the installed version of this extension. I # leave this line here, although it is not necessary anymore: # I patched minimod.PL instead, so that Miniperl.pm won't # include duplicates # Once the patch to minimod.PL is in the distribution, I can # drop it return if $File::Find::name =~ m:\Q$installed_version\E\z:; return if !$self->xs_static_lib_is_xs($_); use Cwd 'cwd'; $staticlib21{cwd() . "/" . $_}++; }, grep( -d $_, map { $self->catdir($_, 'auto') } @{$searchdirs || []}) ); return \%staticlib21; } =item xs_static_lib_is_xs (o) Called by a utility method of makeaperl. Checks whether a given file is an XS library by seeing whether it defines any symbols starting with C<boot_> (with an optional leading underscore - needed on MacOS). =cut sub xs_static_lib_is_xs { my ($self, $libfile) = @_; my $devnull = File::Spec->devnull; return `nm $libfile 2>$devnull` =~ /\b_?boot_/; } =item makefile (o) Defines how to rewrite the Makefile. =cut sub makefile { my($self) = shift; my $m; # We do not know what target was originally specified so we # must force a manual rerun to be sure. But as it should only # happen very rarely it is not a significant problem. $m = ' $(OBJECT) : $(FIRST_MAKEFILE) ' if $self->{OBJECT}; my $newer_than_target = $Is{VMS} ? '$(MMS$SOURCE_LIST)' : '$?'; my $mpl_args = join " ", map qq["$_"], @ARGV; my $cross = ''; if (defined $::Cross::platform) { # Inherited from win32/buildext.pl $cross = "-MCross=$::Cross::platform "; } $m .= sprintf <<'MAKE_FRAG', $newer_than_target, $cross, $mpl_args; # We take a very conservative approach here, but it's worth it. # We move Makefile to Makefile.old here to avoid gnu make looping. $(FIRST_MAKEFILE) : Makefile.PL $(CONFIGDEP) $(NOECHO) $(ECHO) "Makefile out-of-date with respect to %s" $(NOECHO) $(ECHO) "Cleaning current config before rebuilding Makefile..." -$(NOECHO) $(RM_F) $(MAKEFILE_OLD) -$(NOECHO) $(MV) $(FIRST_MAKEFILE) $(MAKEFILE_OLD) - $(MAKE) $(USEMAKEFILE) $(MAKEFILE_OLD) clean $(DEV_NULL) $(PERLRUN) %sMakefile.PL %s $(NOECHO) $(ECHO) "==> Your Makefile has been rebuilt. <==" $(NOECHO) $(ECHO) "==> Please rerun the $(MAKE) command. <==" $(FALSE) MAKE_FRAG return $m; } =item maybe_command Returns true, if the argument is likely to be a command. =cut sub maybe_command { my($self,$file) = @_; return $file if -x $file && ! -d $file; return; } =item needs_linking (o) Does this module need linking? Looks into subdirectory objects (see also has_link_code()) =cut sub needs_linking { my($self) = shift; my $caller = (caller(0))[3]; confess("needs_linking called too early") if $caller =~ /^ExtUtils::MakeMaker::/; return $self->{NEEDS_LINKING} if defined $self->{NEEDS_LINKING}; if ($self->has_link_code or $self->{MAKEAPERL}){ $self->{NEEDS_LINKING} = 1; return 1; } foreach my $child (keys %{$self->{CHILDREN}}) { if ($self->{CHILDREN}->{$child}->needs_linking) { $self->{NEEDS_LINKING} = 1; return 1; } } return $self->{NEEDS_LINKING} = 0; } =item parse_abstract parse a file and return what you think is the ABSTRACT =cut sub parse_abstract { my($self,$parsefile) = @_; my $result; local $/ = "\n"; open(my $fh, '<', $parsefile) or die "Could not open '$parsefile': $!"; binmode $fh; my $inpod = 0; my $pod_encoding; my $package = $self->{DISTNAME}; $package =~ s/-/::/g; while (<$fh>) { $inpod = /^=(?!cut)/ ? 1 : /^=cut/ ? 0 : $inpod; next if !$inpod; s#\r*\n\z##; # handle CRLF input if ( /^=encoding\s*(.*)$/i ) { $pod_encoding = $1; } if ( /^($package(?:\.pm)? \s+ -+ \s+)(.*)/x ) { $result = $2; next; } next unless $result; if ( $result && ( /^\s*$/ || /^\=/ ) ) { last; } $result = join ' ', $result, $_; } close $fh; if ( $pod_encoding and !( "$]" < 5.008 or !$Config{useperlio} ) ) { # Have to wrap in an eval{} for when running under PERL_CORE # Encode isn't available during build phase and parsing # ABSTRACT isn't important there eval { require Encode; $result = Encode::decode($pod_encoding, $result); } } return $result; } =item parse_version my $version = MM->parse_version($file); Parse a $file and return what $VERSION is set to by the first assignment. It will return the string "undef" if it can't figure out what $VERSION is. $VERSION should be for all to see, so C<our $VERSION> or plain $VERSION are okay, but C<my $VERSION> is not. C<package Foo VERSION> is also checked for. The first version declaration found is used, but this may change as it differs from how Perl does it. parse_version() will try to C<use version> before checking for C<$VERSION> so the following will work. $VERSION = qv(1.2.3); =cut sub parse_version { my($self,$parsefile) = @_; my $result; local $/ = "\n"; local $_; open(my $fh, '<', $parsefile) or die "Could not open '$parsefile': $!"; my $inpod = 0; while (<$fh>) { $inpod = /^=(?!cut)/ ? 1 : /^=cut/ ? 0 : $inpod; next if $inpod || /^\s*#/; chop; next if /^\s*(if|unless|elsif)/; if ( m{^ \s* package \s+ \w[\w\:\']* \s+ (v?[0-9._]+) \s* (;|\{) }x ) { no warnings; $result = $1; } elsif ( m{(?<!\\) ([\$*]) (([\w\:\']*) \bVERSION)\b .* (?<![<>=!])\=[^=]}x ) { $result = $self->get_version($parsefile, $1, $2); } else { next; } last if defined $result; } close $fh; if ( defined $result && $result !~ /^v?[\d_\.]+$/ ) { require version; my $normal = eval { version->new( $result ) }; $result = $normal if defined $normal; } if ( defined $result ) { $result = "undef" unless $result =~ m!^v?[\d_\.]+$! or eval { version->parse( $result ) }; } $result = "undef" unless defined $result; return $result; } sub get_version { my ($self, $parsefile, $sigil, $name) = @_; my $line = $_; # from the while() loop in parse_version { package ExtUtils::MakeMaker::_version; undef *version; # in case of unexpected version() sub eval { require version; version::->import; }; no strict; no warnings; local *{$name}; $line = $1 if $line =~ m{^(.+)}s; eval($line); ## no critic return ${$name}; } } =item pasthru (o) Defines the string that is passed to recursive make calls in subdirectories. The variables like C<PASTHRU_DEFINE> are used in each level, and passed downwards on the command-line with e.g. the value of that level's DEFINE. Example: # Level 0 has DEFINE = -Dfunky # This code will define level 0's PASTHRU=PASTHRU_DEFINE="$(DEFINE) # $(PASTHRU_DEFINE)" # Level 0's $(CCCMD) will include macros $(DEFINE) and $(PASTHRU_DEFINE) # So will level 1's, so when level 1 compiles, it will get right values # And so ad infinitum =cut sub pasthru { my($self) = shift; my(@m); my(@pasthru); my($sep) = $Is{VMS} ? ',' : ''; $sep .= "\\\n\t"; foreach my $key (qw(LIB LIBPERL_A LINKTYPE OPTIMIZE LD PREFIX INSTALL_BASE) ) { next unless defined $self->{$key}; push @pasthru, "$key=\"\$($key)\""; } foreach my $key (qw(DEFINE INC)) { # default to the make var my $val = qq{\$($key)}; # expand within perl if given since need to use quote_literal # since INC might include space-protecting ""! chomp($val = $self->{$key}) if defined $self->{$key}; $val .= " \$(PASTHRU_$key)"; my $quoted = $self->quote_literal($val); push @pasthru, qq{PASTHRU_$key=$quoted}; } push @m, "\nPASTHRU = ", join ($sep, @pasthru), "\n"; join "", @m; } =item perl_script Takes one argument, a file name, and returns the file name, if the argument is likely to be a perl script. On MM_Unix this is true for any ordinary, readable file. =cut sub perl_script { my($self,$file) = @_; return $file if -r $file && -f _; return; } =item perldepend (o) Defines the dependency from all *.h files that come with the perl distribution. =cut sub perldepend { my($self) = shift; my(@m); my $make_config = $self->cd('$(PERL_SRC)', '$(MAKE) lib/Config.pm'); push @m, sprintf <<'MAKE_FRAG', $make_config if $self->{PERL_SRC}; # Check for unpropogated config.sh changes. Should never happen. # We do NOT just update config.h because that is not sufficient. # An out of date config.h is not fatal but complains loudly! $(PERL_INCDEP)/config.h: $(PERL_SRC)/config.sh -$(NOECHO) $(ECHO) "Warning: $(PERL_INC)/config.h out of date with $(PERL_SRC)/config.sh"; $(FALSE) $(PERL_ARCHLIB)/Config.pm: $(PERL_SRC)/config.sh $(NOECHO) $(ECHO) "Warning: $(PERL_ARCHLIB)/Config.pm may be out of date with $(PERL_SRC)/config.sh" %s MAKE_FRAG return join "", @m unless $self->needs_linking; if ($self->{OBJECT}) { # Need to add an object file dependency on the perl headers. # this is very important for XS modules in perl.git development. push @m, $self->_perl_header_files_fragment("/"); # Directory separator between $(PERL_INC)/header.h } push @m, join(" ", sort values %{$self->{XS}})." : \$(XSUBPPDEPS)\n" if %{$self->{XS}}; return join "\n", @m; } =item pm_to_blib Defines target that copies all files in the hash PM to their destination and autosplits them. See L<ExtUtils::Install/DESCRIPTION> =cut sub pm_to_blib { my $self = shift; my($autodir) = $self->catdir('$(INST_LIB)','auto'); my $r = q{ pm_to_blib : $(FIRST_MAKEFILE) $(TO_INST_PM) }; # VMS will swallow '' and PM_FILTER is often empty. So use q[] my $pm_to_blib = $self->oneliner(<<CODE, ['-MExtUtils::Install']); pm_to_blib({\@ARGV}, '$autodir', q[\$(PM_FILTER)], '\$(PERM_DIR)') CODE my @cmds = $self->split_command($pm_to_blib, map { ($self->quote_literal($_) => $self->quote_literal($self->{PM}->{$_})) } sort keys %{$self->{PM}}); $r .= join '', map { "\t\$(NOECHO) $_\n" } @cmds; $r .= qq{\t\$(NOECHO) \$(TOUCH) pm_to_blib\n}; return $r; } # transform dot-separated version string into comma-separated quadruple # examples: '1.2.3.4.5' => '1,2,3,4' # '1.2.3' => '1,2,3,0' sub _ppd_version { my ($self, $string) = @_; return join ',', ((split /\./, $string), (0) x 4)[0..3]; } =item ppd Defines target that creates a PPD (Perl Package Description) file for a binary distribution. =cut sub ppd { my($self) = @_; my $abstract = $self->{ABSTRACT} || ''; $abstract =~ s/\n/\\n/sg; $abstract =~ s/</</g; $abstract =~ s/>/>/g; my $author = join(', ',@{ ref $self->{AUTHOR} eq 'ARRAY' ? $self->{AUTHOR} : [ $self->{AUTHOR} || '']}); $author =~ s/</</g; $author =~ s/>/>/g; my $ppd_file = "$self->{DISTNAME}.ppd"; my @ppd_chunks = qq(<SOFTPKG NAME="$self->{DISTNAME}" VERSION="$self->{VERSION}">\n); push @ppd_chunks, sprintf <<'PPD_HTML', $abstract, $author; <ABSTRACT>%s</ABSTRACT> <AUTHOR>%s</AUTHOR> PPD_HTML push @ppd_chunks, " <IMPLEMENTATION>\n"; if ( $self->{MIN_PERL_VERSION} ) { my $min_perl_version = $self->_ppd_version($self->{MIN_PERL_VERSION}); push @ppd_chunks, sprintf <<'PPD_PERLVERS', $min_perl_version; <PERLCORE VERSION="%s" /> PPD_PERLVERS } # Don't add "perl" to requires. perl dependencies are # handles by ARCHITECTURE. my %prereqs = %{$self->{PREREQ_PM}}; delete $prereqs{perl}; # Build up REQUIRE foreach my $prereq (sort keys %prereqs) { my $name = $prereq; $name .= '::' unless $name =~ /::/; my $version = $prereqs{$prereq}; my %attrs = ( NAME => $name ); $attrs{VERSION} = $version if $version; my $attrs = join " ", map { qq[$_="$attrs{$_}"] } sort keys %attrs; push @ppd_chunks, qq( <REQUIRE $attrs />\n); } my $archname = $Config{archname}; # archname did not change from 5.6 to 5.8, but those versions may # not be not binary compatible so now we append the part of the # version that changes when binary compatibility may change if ("$]" >= 5.008) { $archname .= "-$Config{api_revision}.$Config{api_version}"; } push @ppd_chunks, sprintf <<'PPD_OUT', $archname; <ARCHITECTURE NAME="%s" /> PPD_OUT if ($self->{PPM_INSTALL_SCRIPT}) { if ($self->{PPM_INSTALL_EXEC}) { push @ppd_chunks, sprintf qq{ <INSTALL EXEC="%s">%s</INSTALL>\n}, $self->{PPM_INSTALL_EXEC}, $self->{PPM_INSTALL_SCRIPT}; } else { push @ppd_chunks, sprintf qq{ <INSTALL>%s</INSTALL>\n}, $self->{PPM_INSTALL_SCRIPT}; } } if ($self->{PPM_UNINSTALL_SCRIPT}) { if ($self->{PPM_UNINSTALL_EXEC}) { push @ppd_chunks, sprintf qq{ <UNINSTALL EXEC="%s">%s</UNINSTALL>\n}, $self->{PPM_UNINSTALL_EXEC}, $self->{PPM_UNINSTALL_SCRIPT}; } else { push @ppd_chunks, sprintf qq{ <UNINSTALL>%s</UNINSTALL>\n}, $self->{PPM_UNINSTALL_SCRIPT}; } } my ($bin_location) = $self->{BINARY_LOCATION} || ''; $bin_location =~ s/\\/\\\\/g; push @ppd_chunks, sprintf <<'PPD_XML', $bin_location; <CODEBASE HREF="%s" /> </IMPLEMENTATION> </SOFTPKG> PPD_XML my @ppd_cmds = $self->stashmeta(join('', @ppd_chunks), $ppd_file); return sprintf <<'PPD_OUT', join "\n\t", @ppd_cmds; # Creates a PPD (Perl Package Description) for a binary distribution. ppd : %s PPD_OUT } =item prefixify $MM->prefixify($var, $prefix, $new_prefix, $default); Using either $MM->{uc $var} || $Config{lc $var}, it will attempt to replace it's $prefix with a $new_prefix. Should the $prefix fail to match I<AND> a PREFIX was given as an argument to WriteMakefile() it will set it to the $new_prefix + $default. This is for systems whose file layouts don't neatly fit into our ideas of prefixes. This is for heuristics which attempt to create directory structures that mirror those of the installed perl. For example: $MM->prefixify('installman1dir', '/usr', '/home/foo', 'man/man1'); this will attempt to remove '/usr' from the front of the $MM->{INSTALLMAN1DIR} path (initializing it to $Config{installman1dir} if necessary) and replace it with '/home/foo'. If this fails it will simply use '/home/foo/man/man1'. =cut sub prefixify { my($self,$var,$sprefix,$rprefix,$default) = @_; my $path = $self->{uc $var} || $Config_Override{lc $var} || $Config{lc $var} || ''; $rprefix .= '/' if $sprefix =~ m|/$|; warn " prefixify $var => $path\n" if $Verbose >= 2; warn " from $sprefix to $rprefix\n" if $Verbose >= 2; if( $self->{ARGS}{PREFIX} && $path !~ s{^\Q$sprefix\E\b}{$rprefix}s ) { warn " cannot prefix, using default.\n" if $Verbose >= 2; warn " no default!\n" if !$default && $Verbose >= 2; $path = $self->catdir($rprefix, $default) if $default; } print " now $path\n" if $Verbose >= 2; return $self->{uc $var} = $path; } =item processPL (o) Defines targets to run *.PL files. =cut sub processPL { my $self = shift; my $pl_files = $self->{PL_FILES}; return "" unless $pl_files; my $m = ''; foreach my $plfile (sort keys %$pl_files) { my $targets = $pl_files->{$plfile}; my $list = ref($targets) eq 'HASH' ? [ sort keys %$targets ] : ref($targets) eq 'ARRAY' ? $pl_files->{$plfile} : [$pl_files->{$plfile}]; foreach my $target (@$list) { if( $Is{VMS} ) { $plfile = vmsify($self->eliminate_macros($plfile)); $target = vmsify($self->eliminate_macros($target)); } # Normally a .PL file runs AFTER pm_to_blib so it can have # blib in its @INC and load the just built modules. BUT if # the generated module is something in $(TO_INST_PM) which # pm_to_blib depends on then it can't depend on pm_to_blib # else we have a dependency loop. my $pm_dep; my $perlrun; if( defined $self->{PM}{$target} ) { $pm_dep = ''; $perlrun = 'PERLRUN'; } else { $pm_dep = 'pm_to_blib'; $perlrun = 'PERLRUNINST'; } my $extra_inputs = ''; if( ref($targets) eq 'HASH' ) { my $inputs = ref($targets->{$target}) ? $targets->{$target} : [$targets->{$target}]; for my $input (@$inputs) { if( $Is{VMS} ) { $input = vmsify($self->eliminate_macros($input)); } $extra_inputs .= ' '.$input; } } $m .= <<MAKE_FRAG; pure_all :: $target \$(NOECHO) \$(NOOP) $target :: $plfile $pm_dep $extra_inputs \$($perlrun) $plfile $target $extra_inputs MAKE_FRAG } } return $m; } =item specify_shell Specify SHELL if needed - not done on Unix. =cut sub specify_shell { return ''; } =item quote_paren Backslashes parentheses C<()> in command line arguments. Doesn't handle recursive Makefile C<$(...)> constructs, but handles simple ones. =cut sub quote_paren { my $arg = shift; $arg =~ s{\$\((.+?)\)}{\$\\\\($1\\\\)}g; # protect $(...) $arg =~ s{(?<!\\)([()])}{\\$1}g; # quote unprotected $arg =~ s{\$\\\\\((.+?)\\\\\)}{\$($1)}g; # unprotect $(...) return $arg; } =item replace_manpage_separator my $man_name = $MM->replace_manpage_separator($file_path); Takes the name of a package, which may be a nested package, in the form 'Foo/Bar.pm' and replaces the slash with C<::> or something else safe for a man page file name. Returns the replacement. =cut sub replace_manpage_separator { my($self,$man) = @_; $man =~ s,/+,::,g; return $man; } =item cd =cut sub cd { my($self, $dir, @cmds) = @_; # No leading tab and no trailing newline makes for easier embedding my $make_frag = join "\n\t", map { "cd $dir && $_" } @cmds; return $make_frag; } =item oneliner =cut sub oneliner { my($self, $cmd, $switches) = @_; $switches = [] unless defined $switches; # Strip leading and trailing newlines $cmd =~ s{^\n+}{}; $cmd =~ s{\n+$}{}; my @cmds = split /\n/, $cmd; $cmd = join " \n\t -e ", map $self->quote_literal($_), @cmds; $cmd = $self->escape_newlines($cmd); $switches = join ' ', @$switches; return qq{\$(ABSPERLRUN) $switches -e $cmd --}; } =item quote_literal Quotes macro literal value suitable for being used on a command line so that when expanded by make, will be received by command as given to this method: my $quoted = $mm->quote_literal(q{it isn't}); # returns: # 'it isn'\''t' print MAKEFILE "target:\n\techo $quoted\n"; # when run "make target", will output: # it isn't =cut sub quote_literal { my($self, $text, $opts) = @_; $opts->{allow_variables} = 1 unless defined $opts->{allow_variables}; # Quote single quotes $text =~ s{'}{'\\''}g; $text = $opts->{allow_variables} ? $self->escape_dollarsigns($text) : $self->escape_all_dollarsigns($text); return "'$text'"; } =item escape_newlines =cut sub escape_newlines { my($self, $text) = @_; $text =~ s{\n}{\\\n}g; return $text; } =item max_exec_len Using L<POSIX>::ARG_MAX. Otherwise falling back to 4096. =cut sub max_exec_len { my $self = shift; if (!defined $self->{_MAX_EXEC_LEN}) { if (my $arg_max = eval { require POSIX; &POSIX::ARG_MAX }) { $self->{_MAX_EXEC_LEN} = $arg_max; } else { # POSIX minimum exec size $self->{_MAX_EXEC_LEN} = 4096; } } return $self->{_MAX_EXEC_LEN}; } =item static (o) Defines the static target. =cut sub static { # --- Static Loading Sections --- my($self) = shift; ' ## $(INST_PM) has been moved to the all: target. ## It remains here for awhile to allow for old usage: "make static" static :: $(FIRST_MAKEFILE) $(INST_STATIC) $(NOECHO) $(NOOP) '; } sub static_lib { my($self) = @_; return '' unless $self->has_link_code; my(@m); my @libs; if ($self->{XSMULTI}) { for my $ext ($self->_xs_list_basenames) { my ($v, $d, $f) = File::Spec->splitpath($ext); my @d = File::Spec->splitdir($d); shift @d if $d[0] eq 'lib'; my $instdir = $self->catdir('$(INST_ARCHLIB)', 'auto', @d, $f); my $instfile = $self->catfile($instdir, "$f\$(LIB_EXT)"); my $objfile = "$ext\$(OBJ_EXT)"; push @libs, [ $objfile, $instfile, $instdir ]; } } else { @libs = ([ qw($(OBJECT) $(INST_STATIC) $(INST_ARCHAUTODIR)) ]); } push @m, map { $self->xs_make_static_lib(@$_); } @libs; join "\n", @m; } =item xs_make_static_lib Defines the recipes for the C<static_lib> section. =cut sub xs_make_static_lib { my ($self, $from, $to, $todir) = @_; my @m = sprintf '%s: %s $(MYEXTLIB) %s$(DFSEP).exists'."\n", $to, $from, $todir; push @m, "\t\$(RM_F) \"\$\@\"\n"; push @m, $self->static_lib_fixtures; push @m, $self->static_lib_pure_cmd($from); push @m, "\t\$(CHMOD) \$(PERM_RWX) \$\@\n"; push @m, $self->static_lib_closures($todir); join '', @m; } =item static_lib_closures Records C<$(EXTRALIBS)> in F<extralibs.ld> and F<$(PERL_SRC)/ext.libs>. =cut sub static_lib_closures { my ($self, $todir) = @_; my @m = sprintf <<'MAKE_FRAG', $todir; $(NOECHO) $(ECHO) "$(EXTRALIBS)" > %s$(DFSEP)extralibs.ld MAKE_FRAG # Old mechanism - still available: push @m, <<'MAKE_FRAG' if $self->{PERL_SRC} && $self->{EXTRALIBS}; $(NOECHO) $(ECHO) "$(EXTRALIBS)" >> $(PERL_SRC)$(DFSEP)ext.libs MAKE_FRAG @m; } =item static_lib_fixtures Handles copying C<$(MYEXTLIB)> as starter for final static library that then gets added to. =cut sub static_lib_fixtures { my ($self) = @_; # If this extension has its own library (eg SDBM_File) # then copy that to $(INST_STATIC) and add $(OBJECT) into it. return unless $self->{MYEXTLIB}; "\t\$(CP) \$(MYEXTLIB) \"\$\@\"\n"; } =item static_lib_pure_cmd Defines how to run the archive utility. =cut sub static_lib_pure_cmd { my ($self, $from) = @_; my $ar; if (exists $self->{FULL_AR} && -x $self->{FULL_AR}) { # Prefer the absolute pathed ar if available so that PATH # doesn't confuse us. Perl itself is built with the full_ar. $ar = 'FULL_AR'; } else { $ar = 'AR'; } sprintf <<'MAKE_FRAG', $ar, $from; $(%s) $(AR_STATIC_ARGS) "$@" %s $(RANLIB) "$@" MAKE_FRAG } =item staticmake (o) Calls makeaperl. =cut sub staticmake { my($self, %attribs) = @_; my(@static); my(@searchdirs)=($self->{PERL_ARCHLIB}, $self->{SITEARCHEXP}, $self->{INST_ARCHLIB}); # And as it's not yet built, we add the current extension # but only if it has some C code (or XS code, which implies C code) if (@{$self->{C}}) { @static = $self->catfile($self->{INST_ARCHLIB}, "auto", $self->{FULLEXT}, "$self->{BASEEXT}$self->{LIB_EXT}" ); } # Either we determine now, which libraries we will produce in the # subdirectories or we do it at runtime of the make. # We could ask all subdir objects, but I cannot imagine, why it # would be necessary. # Instead we determine all libraries for the new perl at # runtime. my(@perlinc) = ($self->{INST_ARCHLIB}, $self->{INST_LIB}, $self->{PERL_ARCHLIB}, $self->{PERL_LIB}); $self->makeaperl(MAKE => $self->{MAKEFILE}, DIRS => \@searchdirs, STAT => \@static, INCL => \@perlinc, TARGET => $self->{MAP_TARGET}, TMP => "", LIBPERL => $self->{LIBPERL_A} ); } =item subdir_x (o) Helper subroutine for subdirs =cut sub subdir_x { my($self, $subdir) = @_; my $subdir_cmd = $self->cd($subdir, '$(MAKE) $(USEMAKEFILE) $(FIRST_MAKEFILE) all $(PASTHRU)' ); return sprintf <<'EOT', $subdir_cmd; subdirs :: $(NOECHO) %s EOT } =item subdirs (o) Defines targets to process subdirectories. =cut sub subdirs { # --- Sub-directory Sections --- my($self) = shift; my(@m); # This method provides a mechanism to automatically deal with # subdirectories containing further Makefile.PL scripts. # It calls the subdir_x() method for each subdirectory. foreach my $dir (@{$self->{DIR}}){ push @m, $self->subdir_x($dir); #### print "Including $dir subdirectory\n"; } if (@m){ unshift @m, <<'EOF'; # The default clean, realclean and test targets in this Makefile # have automatically been given entries for each subdir. EOF } else { push(@m, "\n# none") } join('',@m); } =item test (o) Defines the test targets. =cut sub test { my($self, %attribs) = @_; my $tests = $attribs{TESTS} || ''; if (!$tests && -d 't' && defined $attribs{RECURSIVE_TEST_FILES}) { $tests = $self->find_tests_recursive; } elsif (!$tests && -d 't') { $tests = $self->find_tests; } # have to do this because nmake is broken $tests =~ s!/!\\!g if $self->is_make_type('nmake'); # note: 'test.pl' name is also hardcoded in init_dirscan() my @m; my $default_testtype = $Config{usedl} ? 'dynamic' : 'static'; push @m, <<EOF; TEST_VERBOSE=0 TEST_TYPE=test_\$(LINKTYPE) TEST_FILE = test.pl TEST_FILES = $tests TESTDB_SW = -d testdb :: testdb_\$(LINKTYPE) \$(NOECHO) \$(NOOP) test :: \$(TEST_TYPE) \$(NOECHO) \$(NOOP) # Occasionally we may face this degenerate target: test_ : test_$default_testtype \$(NOECHO) \$(NOOP) EOF for my $linktype (qw(dynamic static)) { my $directdeps = join ' ', grep !$self->{SKIPHASH}{$_}, $linktype, "pure_all"; # no depend on a linktype if SKIPped push @m, "subdirs-test_$linktype :: $directdeps\n"; foreach my $dir (@{ $self->{DIR} }) { my $test = $self->cd($dir, "\$(MAKE) test_$linktype \$(PASTHRU)"); push @m, "\t\$(NOECHO) $test\n"; } push @m, "\n"; if ($tests or -f "test.pl") { for my $testspec ([ '', '' ], [ 'db', ' $(TESTDB_SW)' ]) { my ($db, $switch) = @$testspec; my ($command, $deps); # if testdb, build all but don't test all $deps = $db eq 'db' ? $directdeps : "subdirs-test_$linktype"; if ($linktype eq 'static' and $self->needs_linking) { my $target = File::Spec->rel2abs('$(MAP_TARGET)'); $command = qq{"$target" \$(MAP_PERLINC)}; $deps .= ' $(MAP_TARGET)'; } else { $command = '$(FULLPERLRUN)' . $switch; } push @m, "test${db}_$linktype :: $deps\n"; if ($db eq 'db') { push @m, $self->test_via_script($command, '$(TEST_FILE)') } else { push @m, $self->test_via_script($command, '$(TEST_FILE)') if -f "test.pl"; push @m, $self->test_via_harness($command, '$(TEST_FILES)') if $tests; } push @m, "\n"; } } else { push @m, _sprintf562 <<'EOF', $linktype; testdb_%1$s test_%1$s :: subdirs-test_%1$s $(NOECHO) $(ECHO) 'No tests defined for $(NAME) extension.' EOF } } join "", @m; } =item test_via_harness (override) For some reason which I forget, Unix machines like to have PERL_DL_NONLAZY set for tests. =cut sub test_via_harness { my($self, $perl, $tests) = @_; return $self->SUPER::test_via_harness("PERL_DL_NONLAZY=1 $perl", $tests); } =item test_via_script (override) Again, the PERL_DL_NONLAZY thing. =cut sub test_via_script { my($self, $perl, $script) = @_; return $self->SUPER::test_via_script("PERL_DL_NONLAZY=1 $perl", $script); } =item tool_xsubpp (o) Determines typemaps, xsubpp version, prototype behaviour. =cut sub tool_xsubpp { my($self) = shift; return "" unless $self->needs_linking; my $xsdir; my @xsubpp_dirs = @INC; # Make sure we pick up the new xsubpp if we're building perl. unshift @xsubpp_dirs, $self->{PERL_LIB} if $self->{PERL_CORE}; my $foundxsubpp = 0; foreach my $dir (@xsubpp_dirs) { $xsdir = $self->catdir($dir, 'ExtUtils'); if( -r $self->catfile($xsdir, "xsubpp") ) { $foundxsubpp = 1; last; } } die "ExtUtils::MM_Unix::tool_xsubpp : Can't find xsubpp" if !$foundxsubpp; my $tmdir = $self->catdir($self->{PERL_LIB},"ExtUtils"); my(@tmdeps) = $self->catfile($tmdir,'typemap'); if( $self->{TYPEMAPS} ){ foreach my $typemap (@{$self->{TYPEMAPS}}){ if( ! -f $typemap ) { warn "Typemap $typemap not found.\n"; } else { $typemap = vmsify($typemap) if $Is{VMS}; push(@tmdeps, $typemap); } } } push(@tmdeps, "typemap") if -f "typemap"; # absolutised because with deep-located typemaps, eg "lib/XS/typemap", # if xsubpp is called from top level with # $(XSUBPP) ... -typemap "lib/XS/typemap" "lib/XS/Test.xs" # it says: # Can't find lib/XS/type map in (fulldir)/lib/XS # because ExtUtils::ParseXS::process_file chdir's to .xs file's # location. This is the only way to get all specified typemaps used, # wherever located. my @tmargs = map { '-typemap '.$self->quote_literal(File::Spec->rel2abs($_)) } @tmdeps; $_ = $self->quote_dep($_) for @tmdeps; if( exists $self->{XSOPT} ){ unshift( @tmargs, $self->{XSOPT} ); } if ($Is{VMS} && $Config{'ldflags'} && $Config{'ldflags'} =~ m!/Debug!i && (!exists($self->{XSOPT}) || $self->{XSOPT} !~ /linenumbers/) ) { unshift(@tmargs,'-nolinenumbers'); } $self->{XSPROTOARG} = "" unless defined $self->{XSPROTOARG}; my $xsdirdep = $self->quote_dep($xsdir); # -dep for use when dependency not command return qq{ XSUBPPDIR = $xsdir XSUBPP = "\$(XSUBPPDIR)\$(DFSEP)xsubpp" XSUBPPRUN = \$(PERLRUN) \$(XSUBPP) XSPROTOARG = $self->{XSPROTOARG} XSUBPPDEPS = @tmdeps $xsdirdep\$(DFSEP)xsubpp XSUBPPARGS = @tmargs XSUBPP_EXTRA_ARGS = }; } =item all_target Build man pages, too =cut sub all_target { my $self = shift; return <<'MAKE_EXT'; all :: pure_all manifypods $(NOECHO) $(NOOP) MAKE_EXT } =item top_targets (o) Defines the targets all, subdirs, config, and O_FILES =cut sub top_targets { # --- Target Sections --- my($self) = shift; my(@m); push @m, $self->all_target, "\n" unless $self->{SKIPHASH}{'all'}; push @m, sprintf <<'EOF'; pure_all :: config pm_to_blib subdirs linkext $(NOECHO) $(NOOP) subdirs :: $(MYEXTLIB) $(NOECHO) $(NOOP) config :: $(FIRST_MAKEFILE) blibdirs $(NOECHO) $(NOOP) EOF push @m, ' $(O_FILES) : $(H_FILES) ' if @{$self->{O_FILES} || []} && @{$self->{H} || []}; push @m, q{ help : perldoc ExtUtils::MakeMaker }; join('',@m); } =item writedoc Obsolete, deprecated method. Not used since Version 5.21. =cut sub writedoc { # --- perllocal.pod section --- my($self,$what,$name,@attribs)=@_; my $time = gmtime($ENV{SOURCE_DATE_EPOCH} || time); print "=head2 $time: $what C<$name>\n\n=over 4\n\n=item *\n\n"; print join "\n\n=item *\n\n", map("C<$_>",@attribs); print "\n\n=back\n\n"; } =item xs_c (o) Defines the suffix rules to compile XS files to C. =cut sub xs_c { my($self) = shift; return '' unless $self->needs_linking(); ' .xs.c: $(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $(XSUBPP_EXTRA_ARGS) $*.xs > $*.xsc $(MV) $*.xsc $*.c '; } =item xs_cpp (o) Defines the suffix rules to compile XS files to C++. =cut sub xs_cpp { my($self) = shift; return '' unless $self->needs_linking(); ' .xs.cpp: $(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.xsc $(MV) $*.xsc $*.cpp '; } =item xs_o (o) Defines suffix rules to go from XS to object files directly. This was originally only intended for broken make implementations, but is now necessary for per-XS file under C<XSMULTI>, since each XS file might have an individual C<$(VERSION)>. =cut sub xs_o { my ($self) = @_; return '' unless $self->needs_linking(); my $m_o = $self->{XSMULTI} ? $self->xs_obj_opt('$*$(OBJ_EXT)') : ''; my $dbgout = $self->dbgoutflag; $dbgout = $dbgout ? "$dbgout " : ''; my $frag = ''; # dmake makes noise about ambiguous rule $frag .= sprintf <<'EOF', $dbgout, $m_o unless $self->is_make_type('dmake'); .xs$(OBJ_EXT) : $(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.xsc $(MV) $*.xsc $*.c $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) %s$*.c %s EOF if ($self->{XSMULTI}) { for my $ext ($self->_xs_list_basenames) { my $pmfile = "$ext.pm"; croak "$ext.xs has no matching $pmfile: $!" unless -f $pmfile; my $version = $self->parse_version($pmfile); my $cccmd = $self->{CONST_CCCMD}; $cccmd =~ s/^\s*CCCMD\s*=\s*//; $cccmd =~ s/\$\(DEFINE_VERSION\)/-DVERSION=\\"$version\\"/; $cccmd =~ s/\$\(XS_DEFINE_VERSION\)/-DXS_VERSION=\\"$version\\"/; $self->_xsbuild_replace_macro($cccmd, 'xs', $ext, 'INC'); my $define = '$(DEFINE)'; $self->_xsbuild_replace_macro($define, 'xs', $ext, 'DEFINE'); # 1 2 3 4 5 $frag .= _sprintf562 <<'EOF', $ext, $cccmd, $m_o, $define, $dbgout; %1$s$(OBJ_EXT): %1$s.xs $(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.xsc $(MV) $*.xsc $*.c %2$s $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) %4$s %5$s$*.c %3$s EOF } } $frag =~ s/"-I(\$\(PERL_INC\))"/-iwithsysroot "$1"/sg if $Is{ApplCor}; $frag; } # param gets modified sub _xsbuild_replace_macro { my ($self, undef, $xstype, $ext, $varname) = @_; my $value = $self->_xsbuild_value($xstype, $ext, $varname); return unless defined $value; $_[1] =~ s/\$\($varname\)/$value/; } sub _xsbuild_value { my ($self, $xstype, $ext, $varname) = @_; return $self->{XSBUILD}{$xstype}{$ext}{$varname} if $self->{XSBUILD}{$xstype}{$ext}{$varname}; return $self->{XSBUILD}{$xstype}{all}{$varname} if $self->{XSBUILD}{$xstype}{all}{$varname}; (); } 1; =back =head1 SEE ALSO L<ExtUtils::MakeMaker> =cut __END__ PK ! ��� � 5.34.0/ExtUtils/MM_OS2.pmnu �[��� package ExtUtils::MM_OS2; use strict; use warnings; use ExtUtils::MakeMaker qw(neatvalue); use File::Spec; our $VERSION = '7.62'; $VERSION =~ tr/_//d; require ExtUtils::MM_Any; require ExtUtils::MM_Unix; our @ISA = qw(ExtUtils::MM_Any ExtUtils::MM_Unix); =pod =head1 NAME ExtUtils::MM_OS2 - methods to override UN*X behaviour in ExtUtils::MakeMaker =head1 SYNOPSIS use ExtUtils::MM_OS2; # Done internally by ExtUtils::MakeMaker if needed =head1 DESCRIPTION See L<ExtUtils::MM_Unix> for a documentation of the methods provided there. This package overrides the implementation of these methods, not the semantics. =head1 METHODS =over 4 =item init_dist Define TO_UNIX to convert OS2 linefeeds to Unix style. =cut sub init_dist { my($self) = @_; $self->{TO_UNIX} ||= <<'MAKE_TEXT'; $(NOECHO) $(TEST_F) tmp.zip && $(RM_F) tmp.zip; $(ZIP) -ll -mr tmp.zip $(DISTVNAME) && unzip -o tmp.zip && $(RM_F) tmp.zip MAKE_TEXT $self->SUPER::init_dist; } sub dlsyms { my($self,%attribs) = @_; if ($self->{IMPORTS} && %{$self->{IMPORTS}}) { # Make import files (needed for static build) -d 'tmp_imp' or mkdir 'tmp_imp', 0777 or die "Can't mkdir tmp_imp"; open my $imp, '>', 'tmpimp.imp' or die "Can't open tmpimp.imp"; foreach my $name (sort keys %{$self->{IMPORTS}}) { my $exp = $self->{IMPORTS}->{$name}; my ($lib, $id) = ($exp =~ /(.*)\.(.*)/) or die "Malformed IMPORT `$exp'"; print $imp "$name $lib $id ?\n"; } close $imp or die "Can't close tmpimp.imp"; # print "emximp -o tmpimp$Config::Config{lib_ext} tmpimp.imp\n"; system "emximp -o tmpimp$Config::Config{lib_ext} tmpimp.imp" and die "Cannot make import library: $!, \$?=$?"; # May be running under miniperl, so have no glob... eval { unlink <tmp_imp/*>; 1 } or system "rm tmp_imp/*"; system "cd tmp_imp; $Config::Config{ar} x ../tmpimp$Config::Config{lib_ext}" and die "Cannot extract import objects: $!, \$?=$?"; } return '' if $self->{SKIPHASH}{'dynamic'}; $self->xs_dlsyms_iterator(\%attribs); } sub xs_dlsyms_ext { '.def'; } sub xs_dlsyms_extra { join '', map { qq{, "$_" => "\$($_)"} } qw(VERSION DISTNAME INSTALLDIRS); } sub static_lib_pure_cmd { my($self) = @_; my $old = $self->SUPER::static_lib_pure_cmd; return $old unless $self->{IMPORTS} && %{$self->{IMPORTS}}; $old . <<'EOC'; $(AR) $(AR_STATIC_ARGS) "$@" tmp_imp/* $(RANLIB) "$@" EOC } sub replace_manpage_separator { my($self,$man) = @_; $man =~ s,/+,.,g; $man; } sub maybe_command { my($self,$file) = @_; $file =~ s,[/\\]+,/,g; return $file if -x $file && ! -d _; return "$file.exe" if -x "$file.exe" && ! -d _; return "$file.cmd" if -x "$file.cmd" && ! -d _; return; } =item init_linker =cut sub init_linker { my $self = shift; $self->{PERL_ARCHIVE} = "\$(PERL_INC)/libperl\$(LIB_EXT)"; $self->{PERL_ARCHIVEDEP} ||= ''; $self->{PERL_ARCHIVE_AFTER} = $OS2::is_aout ? '' : '$(PERL_INC)/libperl_override$(LIB_EXT)'; $self->{EXPORT_LIST} = '$(BASEEXT).def'; } =item os_flavor OS/2 is OS/2 =cut sub os_flavor { return('OS/2'); } =item xs_static_lib_is_xs =cut sub xs_static_lib_is_xs { return 1; } =back =cut 1; PK ! �@��� � 5.34.0/ExtUtils/MM_VMS.pmnu �[��� package ExtUtils::MM_VMS; use strict; use warnings; use ExtUtils::MakeMaker::Config; require Exporter; BEGIN { # so we can compile the thing on non-VMS platforms. if( $^O eq 'VMS' ) { require VMS::Filespec; VMS::Filespec->import; } } use File::Basename; our $VERSION = '7.62'; $VERSION =~ tr/_//d; require ExtUtils::MM_Any; require ExtUtils::MM_Unix; our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix ); use ExtUtils::MakeMaker qw($Verbose neatvalue _sprintf562); our $Revision = $ExtUtils::MakeMaker::Revision; =head1 NAME ExtUtils::MM_VMS - methods to override UN*X behaviour in ExtUtils::MakeMaker =head1 SYNOPSIS Do not use this directly. Instead, use ExtUtils::MM and it will figure out which MM_* class to use for you. =head1 DESCRIPTION See L<ExtUtils::MM_Unix> for a documentation of the methods provided there. This package overrides the implementation of these methods, not the semantics. =head2 Methods always loaded =over 4 =item wraplist Converts a list into a string wrapped at approximately 80 columns. =cut sub wraplist { my($self) = shift; my($line,$hlen) = ('',0); foreach my $word (@_) { # Perl bug -- seems to occasionally insert extra elements when # traversing array (scalar(@array) doesn't show them, but # foreach(@array) does) (5.00307) next unless $word =~ /\w/; $line .= ' ' if length($line); if ($hlen > 80) { $line .= "\\\n\t"; $hlen = 0; } $line .= $word; $hlen += length($word) + 2; } $line; } # This isn't really an override. It's just here because ExtUtils::MM_VMS # appears in @MM::ISA before ExtUtils::Liblist::Kid, so if there isn't an ext() # in MM_VMS, then AUTOLOAD is called, and bad things happen. So, we just # mimic inheritance here and hand off to ExtUtils::Liblist::Kid. # XXX This hackery will die soon. --Schwern sub ext { require ExtUtils::Liblist::Kid; goto &ExtUtils::Liblist::Kid::ext; } =back =head2 Methods Those methods which override default MM_Unix methods are marked "(override)", while methods unique to MM_VMS are marked "(specific)". For overridden methods, documentation is limited to an explanation of why this method overrides the MM_Unix method; see the L<ExtUtils::MM_Unix> documentation for more details. =over 4 =item guess_name (override) Try to determine name of extension being built. We begin with the name of the current directory. Since VMS filenames are case-insensitive, however, we look for a F<.pm> file whose name matches that of the current directory (presumably the 'main' F<.pm> file for this extension), and try to find a C<package> statement from which to obtain the Mixed::Case package name. =cut sub guess_name { my($self) = @_; my($defname,$defpm,@pm,%xs); local *PM; $defname = basename(fileify($ENV{'DEFAULT'})); $defname =~ s![\d\-_]*\.dir.*$!!; # Clip off .dir;1 suffix, and package version $defpm = $defname; # Fallback in case for some reason a user has copied the files for an # extension into a working directory whose name doesn't reflect the # extension's name. We'll use the name of a unique .pm file, or the # first .pm file with a matching .xs file. if (not -e "${defpm}.pm") { @pm = glob('*.pm'); s/.pm$// for @pm; if (@pm == 1) { ($defpm = $pm[0]) =~ s/.pm$//; } elsif (@pm) { %xs = map { s/.xs$//; ($_,1) } glob('*.xs'); ## no critic if (keys %xs) { foreach my $pm (@pm) { $defpm = $pm, last if exists $xs{$pm}; } } } } if (open(my $pm, '<', "${defpm}.pm")){ while (<$pm>) { if (/^\s*package\s+([^;]+)/i) { $defname = $1; last; } } print "Warning (non-fatal): Couldn't find package name in ${defpm}.pm;\n\t", "defaulting package name to $defname\n" if eof($pm); close $pm; } else { print "Warning (non-fatal): Couldn't find ${defpm}.pm;\n\t", "defaulting package name to $defname\n"; } $defname =~ s#[\d.\-_]+$##; $defname; } =item find_perl (override) Use VMS file specification syntax and CLI commands to find and invoke Perl images. =cut sub find_perl { my($self, $ver, $names, $dirs, $trace) = @_; my($vmsfile,@sdirs,@snames,@cand); my($rslt); my($inabs) = 0; local *TCF; if( $self->{PERL_CORE} ) { # Check in relative directories first, so we pick up the current # version of Perl if we're running MakeMaker as part of the main build. @sdirs = sort { my($absa) = $self->file_name_is_absolute($a); my($absb) = $self->file_name_is_absolute($b); if ($absa && $absb) { return $a cmp $b } else { return $absa ? 1 : ($absb ? -1 : ($a cmp $b)); } } @$dirs; # Check miniperl before perl, and check names likely to contain # version numbers before "generic" names, so we pick up an # executable that's less likely to be from an old installation. @snames = sort { my($ba) = $a =~ m!([^:>\]/]+)$!; # basename my($bb) = $b =~ m!([^:>\]/]+)$!; my($ahasdir) = (length($a) - length($ba) > 0); my($bhasdir) = (length($b) - length($bb) > 0); if ($ahasdir and not $bhasdir) { return 1; } elsif ($bhasdir and not $ahasdir) { return -1; } else { $bb =~ /\d/ <=> $ba =~ /\d/ or substr($ba,0,1) cmp substr($bb,0,1) or length($bb) <=> length($ba) } } @$names; } else { @sdirs = @$dirs; @snames = @$names; } # Image names containing Perl version use '_' instead of '.' under VMS s/\.(\d+)$/_$1/ for @snames; if ($trace >= 2){ print "Looking for perl $ver by these names:\n"; print "\t@snames,\n"; print "in these dirs:\n"; print "\t@sdirs\n"; } foreach my $dir (@sdirs){ next unless defined $dir; # $self->{PERL_SRC} may be undefined $inabs++ if $self->file_name_is_absolute($dir); if ($inabs == 1) { # We've covered relative dirs; everything else is an absolute # dir (probably an installed location). First, we'll try # potential command names, to see whether we can avoid a long # MCR expression. foreach my $name (@snames) { push(@cand,$name) if $name =~ /^[\w\-\$]+$/; } $inabs++; # Should happen above in next $dir, but just in case... } foreach my $name (@snames){ push @cand, ($name !~ m![/:>\]]!) ? $self->catfile($dir,$name) : $self->fixpath($name,0); } } foreach my $name (@cand) { print "Checking $name\n" if $trace >= 2; # If it looks like a potential command, try it without the MCR if ($name =~ /^[\w\-\$]+$/) { open(my $tcf, ">", "temp_mmvms.com") or die('unable to open temp file'); print $tcf "\$ set message/nofacil/nosever/noident/notext\n"; print $tcf "\$ $name -e \"require $ver; print \"\"VER_OK\\n\"\"\"\n"; close $tcf; $rslt = `\@temp_mmvms.com` ; unlink('temp_mmvms.com'); if ($rslt =~ /VER_OK/) { print "Using PERL=$name\n" if $trace; return $name; } } next unless $vmsfile = $self->maybe_command($name); $vmsfile =~ s/;[\d\-]*$//; # Clip off version number; we can use a newer version as well print "Executing $vmsfile\n" if ($trace >= 2); open(my $tcf, '>', "temp_mmvms.com") or die('unable to open temp file'); print $tcf "\$ set message/nofacil/nosever/noident/notext\n"; print $tcf "\$ mcr $vmsfile -e \"require $ver; print \"\"VER_OK\\n\"\"\" \n"; close $tcf; $rslt = `\@temp_mmvms.com`; unlink('temp_mmvms.com'); if ($rslt =~ /VER_OK/) { print "Using PERL=MCR $vmsfile\n" if $trace; return "MCR $vmsfile"; } } print "Unable to find a perl $ver (by these names: @$names, in these dirs: @$dirs)\n"; 0; # false and not empty } =item _fixin_replace_shebang (override) Helper routine for L<< MM->fixin()|ExtUtils::MM_Unix/fixin >>, overridden because there's no such thing as an actual shebang line that will be interpreted by the shell, so we just prepend $Config{startperl} and preserve the shebang line argument for any switches it may contain. =cut sub _fixin_replace_shebang { my ( $self, $file, $line ) = @_; my ( undef, $arg ) = split ' ', $line, 2; return $Config{startperl} . "\n" . $Config{sharpbang} . "perl $arg\n"; } =item maybe_command (override) Follows VMS naming conventions for executable files. If the name passed in doesn't exactly match an executable file, appends F<.Exe> (or equivalent) to check for executable image, and F<.Com> to check for DCL procedure. If this fails, checks directories in DCL$PATH and finally F<Sys$System:> for an executable file having the name specified, with or without the F<.Exe>-equivalent suffix. =cut sub maybe_command { my($self,$file) = @_; return $file if -x $file && ! -d _; my(@dirs) = (''); my(@exts) = ('',$Config{'exe_ext'},'.exe','.com'); if ($file !~ m![/:>\]]!) { for (my $i = 0; defined $ENV{"DCL\$PATH;$i"}; $i++) { my $dir = $ENV{"DCL\$PATH;$i"}; $dir .= ':' unless $dir =~ m%[\]:]$%; push(@dirs,$dir); } push(@dirs,'Sys$System:'); foreach my $dir (@dirs) { my $sysfile = "$dir$file"; foreach my $ext (@exts) { return $file if -x "$sysfile$ext" && ! -d _; } } } return 0; } =item pasthru (override) The list of macro definitions to be passed through must be specified using the /MACRO qualifier and must not add another /DEFINE qualifier. We prepend our own comma here to the contents of $(PASTHRU_DEFINE) because it is often empty and a comma always present in CCFLAGS would generate a missing qualifier value error. =cut sub pasthru { my($self) = shift; my $pasthru = $self->SUPER::pasthru; $pasthru =~ s|(PASTHRU\s*=\s*)|$1/MACRO=(|; $pasthru =~ s|\n\z|)\n|m; $pasthru =~ s|/defi?n?e?=\(?([^\),]+)\)?|,$1|ig; return $pasthru; } =item pm_to_blib (override) VMS wants a dot in every file so we can't have one called 'pm_to_blib', it becomes 'pm_to_blib.' and MMS/K isn't smart enough to know that when you have a target called 'pm_to_blib' it should look for 'pm_to_blib.'. So in VMS its pm_to_blib.ts. =cut sub pm_to_blib { my $self = shift; my $make = $self->SUPER::pm_to_blib; $make =~ s{^pm_to_blib :}{pm_to_blib.ts :}m; $make =~ s{\$\(TOUCH\) pm_to_blib}{\$(TOUCH) pm_to_blib.ts}; $make = <<'MAKE' . $make; # Dummy target to match Unix target name; we use pm_to_blib.ts as # timestamp file to avoid repeated invocations under VMS pm_to_blib : pm_to_blib.ts $(NOECHO) $(NOOP) MAKE return $make; } =item perl_script (override) If name passed in doesn't specify a readable file, appends F<.com> or F<.pl> and tries again, since it's customary to have file types on all files under VMS. =cut sub perl_script { my($self,$file) = @_; return $file if -r $file && ! -d _; return "$file.com" if -r "$file.com"; return "$file.pl" if -r "$file.pl"; return ''; } =item replace_manpage_separator Use as separator a character which is legal in a VMS-syntax file name. =cut sub replace_manpage_separator { my($self,$man) = @_; $man = unixify($man); $man =~ s#/+#__#g; $man; } =item init_DEST (override) Because of the difficulty concatenating VMS filepaths we must pre-expand the DEST* variables. =cut sub init_DEST { my $self = shift; $self->SUPER::init_DEST; # Expand DEST variables. foreach my $var ($self->installvars) { my $destvar = 'DESTINSTALL'.$var; $self->{$destvar} = $self->eliminate_macros($self->{$destvar}); } } =item init_DIRFILESEP No separator between a directory path and a filename on VMS. =cut sub init_DIRFILESEP { my($self) = shift; $self->{DIRFILESEP} = ''; return 1; } =item init_main (override) =cut sub init_main { my($self) = shift; $self->SUPER::init_main; $self->{DEFINE} ||= ''; if ($self->{DEFINE} ne '') { my(@terms) = split(/\s+/,$self->{DEFINE}); my(@defs,@udefs); foreach my $def (@terms) { next unless $def; my $targ = \@defs; if ($def =~ s/^-([DU])//) { # If it was a Unix-style definition $targ = \@udefs if $1 eq 'U'; $def =~ s/='(.*)'$/=$1/; # then remove shell-protection '' $def =~ s/^'(.*)'$/$1/; # from entire term or argument } if ($def =~ /=/) { $def =~ s/"/""/g; # Protect existing " from DCL $def = qq["$def"]; # and quote to prevent parsing of = } push @$targ, $def; } $self->{DEFINE} = ''; if (@defs) { $self->{DEFINE} = '/Define=(' . join(',',@defs) . ')'; } if (@udefs) { $self->{DEFINE} .= '/Undef=(' . join(',',@udefs) . ')'; } } } =item init_tools (override) Provide VMS-specific forms of various utility commands. Sets DEV_NULL to nothing because I don't know how to do it on VMS. Changes EQUALIZE_TIMESTAMP to set revision date of target file to one second later than source file, since MMK interprets precisely equal revision dates for a source and target file as a sign that the target needs to be updated. =cut sub init_tools { my($self) = @_; $self->{NOOP} = 'Continue'; $self->{NOECHO} ||= '@ '; $self->{MAKEFILE} ||= $self->{FIRST_MAKEFILE} || 'Descrip.MMS'; $self->{FIRST_MAKEFILE} ||= $self->{MAKEFILE}; $self->{MAKE_APERL_FILE} ||= 'Makeaperl.MMS'; $self->{MAKEFILE_OLD} ||= $self->eliminate_macros('$(FIRST_MAKEFILE)_old'); # # If an extension is not specified, then MMS/MMK assumes an # an extension of .MMS. If there really is no extension, # then a trailing "." needs to be appended to specify a # a null extension. # $self->{MAKEFILE} .= '.' unless $self->{MAKEFILE} =~ m/\./; $self->{FIRST_MAKEFILE} .= '.' unless $self->{FIRST_MAKEFILE} =~ m/\./; $self->{MAKE_APERL_FILE} .= '.' unless $self->{MAKE_APERL_FILE} =~ m/\./; $self->{MAKEFILE_OLD} .= '.' unless $self->{MAKEFILE_OLD} =~ m/\./; $self->{MACROSTART} ||= '/Macro=('; $self->{MACROEND} ||= ')'; $self->{USEMAKEFILE} ||= '/Descrip='; $self->{EQUALIZE_TIMESTAMP} ||= '$(ABSPERLRUN) -we "open F,qq{>>$ARGV[1]};close F;utime(0,(stat($ARGV[0]))[9]+1,$ARGV[1])"'; $self->{MOD_INSTALL} ||= $self->oneliner(<<'CODE', ['-MExtUtils::Install']); install([ from_to => {split('\|', <STDIN>)}, verbose => '$(VERBINST)', uninstall_shadows => '$(UNINST)', dir_mode => '$(PERM_DIR)' ]); CODE $self->{UMASK_NULL} = '! '; $self->SUPER::init_tools; # Use the default shell $self->{SHELL} ||= 'Posix'; # Redirection on VMS goes before the command, not after as on Unix. # $(DEV_NULL) is used once and its not worth going nuts over making # it work. However, Unix's DEV_NULL is quite wrong for VMS. $self->{DEV_NULL} = ''; return; } =item init_platform (override) Add PERL_VMS, MM_VMS_REVISION and MM_VMS_VERSION. MM_VMS_REVISION is for backwards compatibility before MM_VMS had a $VERSION. =cut sub init_platform { my($self) = shift; $self->{MM_VMS_REVISION} = $Revision; $self->{MM_VMS_VERSION} = $VERSION; $self->{PERL_VMS} = $self->catdir($self->{PERL_SRC}, 'VMS') if $self->{PERL_SRC}; } =item platform_constants =cut sub platform_constants { my($self) = shift; my $make_frag = ''; foreach my $macro (qw(PERL_VMS MM_VMS_REVISION MM_VMS_VERSION)) { next unless defined $self->{$macro}; $make_frag .= "$macro = $self->{$macro}\n"; } return $make_frag; } =item init_VERSION (override) Override the *DEFINE_VERSION macros with VMS semantics. Translate the MAKEMAKER filepath to VMS style. =cut sub init_VERSION { my $self = shift; $self->SUPER::init_VERSION; $self->{DEFINE_VERSION} = '"$(VERSION_MACRO)=""$(VERSION)"""'; $self->{XS_DEFINE_VERSION} = '"$(XS_VERSION_MACRO)=""$(XS_VERSION)"""'; $self->{MAKEMAKER} = vmsify($INC{'ExtUtils/MakeMaker.pm'}); } =item constants (override) Fixes up numerous file and directory macros to insure VMS syntax regardless of input syntax. Also makes lists of files comma-separated. =cut sub constants { my($self) = @_; # Be kind about case for pollution for (@ARGV) { $_ = uc($_) if /POLLUTE/i; } # Cleanup paths for directories in MMS macros. foreach my $macro ( qw [ INST_BIN INST_SCRIPT INST_LIB INST_ARCHLIB PERL_LIB PERL_ARCHLIB PERL_ARCHLIBDEP PERL_INC PERL_SRC ], (map { 'INSTALL'.$_ } $self->installvars), (map { 'DESTINSTALL'.$_ } $self->installvars) ) { next unless defined $self->{$macro}; next if $macro =~ /MAN/ && $self->{$macro} eq 'none'; $self->{$macro} = $self->fixpath($self->{$macro},1); } # Cleanup paths for files in MMS macros. foreach my $macro ( qw[LIBPERL_A FIRST_MAKEFILE MAKEFILE_OLD MAKE_APERL_FILE MYEXTLIB] ) { next unless defined $self->{$macro}; $self->{$macro} = $self->fixpath($self->{$macro},0); } # Fixup files for MMS macros # XXX is this list complete? for my $macro (qw/ FULLEXT VERSION_FROM / ) { next unless defined $self->{$macro}; $self->{$macro} = $self->fixpath($self->{$macro},0); } for my $macro (qw/ OBJECT LDFROM / ) { next unless defined $self->{$macro}; # Must expand macros before splitting on unescaped whitespace. $self->{$macro} = $self->eliminate_macros($self->{$macro}); if ($self->{$macro} =~ /(?<!\^)\s/) { $self->{$macro} =~ s/(\\)?\n+\s+/ /g; $self->{$macro} = $self->wraplist( map $self->fixpath($_,0), split /,?(?<!\^)\s+/, $self->{$macro} ); } else { $self->{$macro} = $self->fixpath($self->{$macro},0); } } for my $macro (qw/ XS MAN1PODS MAN3PODS PM /) { # Where is the space coming from? --jhi next unless $self ne " " && defined $self->{$macro}; my %tmp = (); for my $key (keys %{$self->{$macro}}) { $tmp{$self->fixpath($key,0)} = $self->fixpath($self->{$macro}{$key},0); } $self->{$macro} = \%tmp; } for my $macro (qw/ C O_FILES H /) { next unless defined $self->{$macro}; my @tmp = (); for my $val (@{$self->{$macro}}) { push(@tmp,$self->fixpath($val,0)); } $self->{$macro} = \@tmp; } # mms/k does not define a $(MAKE) macro. $self->{MAKE} = '$(MMS)$(MMSQUALIFIERS)'; return $self->SUPER::constants; } =item special_targets Clear the default .SUFFIXES and put in our own list. =cut sub special_targets { my $self = shift; my $make_frag .= <<'MAKE_FRAG'; .SUFFIXES : .SUFFIXES : $(OBJ_EXT) .c .cpp .cxx .xs MAKE_FRAG return $make_frag; } =item cflags (override) Bypass shell script and produce qualifiers for CC directly (but warn user if a shell script for this extension exists). Fold multiple /Defines into one, since some C compilers pay attention to only one instance of this qualifier on the command line. =cut sub cflags { my($self,$libperl) = @_; my($quals) = $self->{CCFLAGS} || $Config{'ccflags'}; my($definestr,$undefstr,$flagoptstr) = ('','',''); my($incstr) = '/Include=($(PERL_INC)'; my($name,$sys,@m); ( $name = $self->{NAME} . "_cflags" ) =~ s/:/_/g ; print "Unix shell script ".$Config{"$self->{'BASEEXT'}_cflags"}. " required to modify CC command for $self->{'BASEEXT'}\n" if ($Config{$name}); if ($quals =~ / -[DIUOg]/) { while ($quals =~ / -([Og])(\d*)\b/) { my($type,$lvl) = ($1,$2); $quals =~ s/ -$type$lvl\b\s*//; if ($type eq 'g') { $flagoptstr = '/NoOptimize'; } else { $flagoptstr = '/Optimize' . (defined($lvl) ? "=$lvl" : ''); } } while ($quals =~ / -([DIU])(\S+)/) { my($type,$def) = ($1,$2); $quals =~ s/ -$type$def\s*//; $def =~ s/"/""/g; if ($type eq 'D') { $definestr .= qq["$def",]; } elsif ($type eq 'I') { $incstr .= ',' . $self->fixpath($def,1); } else { $undefstr .= qq["$def",]; } } } if (length $quals and $quals !~ m!/!) { warn "MM_VMS: Ignoring unrecognized CCFLAGS elements \"$quals\"\n"; $quals = ''; } $definestr .= q["PERL_POLLUTE",] if $self->{POLLUTE}; if (length $definestr) { chop($definestr); $quals .= "/Define=($definestr)"; } if (length $undefstr) { chop($undefstr); $quals .= "/Undef=($undefstr)"; } # Deal with $self->{DEFINE} here since some C compilers pay attention # to only one /Define clause on command line, so we have to # conflate the ones from $Config{'ccflags'} and $self->{DEFINE} # ($self->{DEFINE} has already been VMSified in constants() above) if ($self->{DEFINE}) { $quals .= $self->{DEFINE}; } for my $type (qw(Def Undef)) { my(@terms); while ($quals =~ m:/${type}i?n?e?=([^/]+):ig) { my $term = $1; $term =~ s:^\((.+)\)$:$1:; push @terms, $term; } if ($type eq 'Def') { push @terms, qw[ $(DEFINE_VERSION) $(XS_DEFINE_VERSION) ]; } if (@terms) { $quals =~ s:/${type}i?n?e?=[^/]+::ig; # PASTHRU_DEFINE will have its own comma $quals .= "/${type}ine=(" . join(',',@terms) . ($type eq 'Def' ? '$(PASTHRU_DEFINE)' : '') . ')'; } } $libperl or $libperl = $self->{LIBPERL_A} || "libperl.olb"; # Likewise with $self->{INC} and /Include if ($self->{'INC'}) { my(@includes) = split(/\s+/,$self->{INC}); foreach (@includes) { s/^-I//; $incstr .= ','.$self->fixpath($_,1); } } $quals .= "$incstr)"; # $quals =~ s/,,/,/g; $quals =~ s/\(,/(/g; $self->{CCFLAGS} = $quals; $self->{PERLTYPE} ||= ''; $self->{OPTIMIZE} ||= $flagoptstr || $Config{'optimize'}; if ($self->{OPTIMIZE} !~ m!/!) { if ($self->{OPTIMIZE} =~ m!-g!) { $self->{OPTIMIZE} = '/Debug/NoOptimize' } elsif ($self->{OPTIMIZE} =~ /-O(\d*)/) { $self->{OPTIMIZE} = '/Optimize' . (defined($1) ? "=$1" : ''); } else { warn "MM_VMS: Can't parse OPTIMIZE \"$self->{OPTIMIZE}\"; using default\n" if length $self->{OPTIMIZE}; $self->{OPTIMIZE} = '/Optimize'; } } return $self->{CFLAGS} = qq{ CCFLAGS = $self->{CCFLAGS} OPTIMIZE = $self->{OPTIMIZE} PERLTYPE = $self->{PERLTYPE} }; } =item const_cccmd (override) Adds directives to point C preprocessor to the right place when handling #include E<lt>sys/foo.hE<gt> directives. Also constructs CC command line a bit differently than MM_Unix method. =cut sub const_cccmd { my($self,$libperl) = @_; my(@m); return $self->{CONST_CCCMD} if $self->{CONST_CCCMD}; return '' unless $self->needs_linking(); if ($Config{'vms_cc_type'} eq 'gcc') { push @m,' .FIRST ',$self->{NOECHO},'If F$TrnLnm("Sys").eqs."" Then Define/NoLog SYS GNU_CC_Include:[VMS]'; } elsif ($Config{'vms_cc_type'} eq 'vaxc') { push @m,' .FIRST ',$self->{NOECHO},'If F$TrnLnm("Sys").eqs."" .and. F$TrnLnm("VAXC$Include").eqs."" Then Define/NoLog SYS Sys$Library ',$self->{NOECHO},'If F$TrnLnm("Sys").eqs."" .and. F$TrnLnm("VAXC$Include").nes."" Then Define/NoLog SYS VAXC$Include'; } else { push @m,' .FIRST ',$self->{NOECHO},'If F$TrnLnm("Sys").eqs."" .and. F$TrnLnm("DECC$System_Include").eqs."" Then Define/NoLog SYS ', ($Config{'archname'} eq 'VMS_AXP' ? 'Sys$Library' : 'DECC$Library_Include'),' ',$self->{NOECHO},'If F$TrnLnm("Sys").eqs."" .and. F$TrnLnm("DECC$System_Include").nes."" Then Define/NoLog SYS DECC$System_Include'; } push(@m, "\n\nCCCMD = $Config{'cc'} \$(CCFLAGS)\$(OPTIMIZE)\n"); $self->{CONST_CCCMD} = join('',@m); } =item tools_other (override) Throw in some dubious extra macros for Makefile args. Also keep around the old $(SAY) macro in case somebody's using it. =cut sub tools_other { my($self) = @_; # XXX Are these necessary? Does anyone override them? They're longer # than just typing the literal string. my $extra_tools = <<'EXTRA_TOOLS'; # Just in case anyone is using the old macro. USEMACROS = $(MACROSTART) SAY = $(ECHO) EXTRA_TOOLS return $self->SUPER::tools_other . $extra_tools; } =item init_dist (override) VMSish defaults for some values. macro description default ZIPFLAGS flags to pass to ZIP -Vu COMPRESS compression command to gzip use for tarfiles SUFFIX suffix to put on -gz compressed files SHAR shar command to use vms_share DIST_DEFAULT default target to use to tardist create a distribution DISTVNAME Use VERSION_SYM instead of $(DISTNAME)-$(VERSION_SYM) VERSION for the name =cut sub init_dist { my($self) = @_; $self->{ZIPFLAGS} ||= '-Vu'; $self->{COMPRESS} ||= 'gzip'; $self->{SUFFIX} ||= '-gz'; $self->{SHAR} ||= 'vms_share'; $self->{DIST_DEFAULT} ||= 'zipdist'; $self->SUPER::init_dist; $self->{DISTVNAME} = "$self->{DISTNAME}-$self->{VERSION_SYM}" unless $self->{ARGS}{DISTVNAME}; return; } =item c_o (override) Use VMS syntax on command line. In particular, $(DEFINE) and $(PERL_INC) have been pulled into $(CCCMD). Also use MM[SK] macros. =cut sub c_o { my($self) = @_; return '' unless $self->needs_linking(); ' .c$(OBJ_EXT) : $(CCCMD) $(CCCDLFLAGS) $(MMS$TARGET_NAME).c /OBJECT=$(MMS$TARGET_NAME)$(OBJ_EXT) .cpp$(OBJ_EXT) : $(CCCMD) $(CCCDLFLAGS) $(MMS$TARGET_NAME).cpp /OBJECT=$(MMS$TARGET_NAME)$(OBJ_EXT) .cxx$(OBJ_EXT) : $(CCCMD) $(CCCDLFLAGS) $(MMS$TARGET_NAME).cxx /OBJECT=$(MMS$TARGET_NAME)$(OBJ_EXT) '; } =item xs_c (override) Use MM[SK] macros. =cut sub xs_c { my($self) = @_; return '' unless $self->needs_linking(); ' .xs.c : $(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $(MMS$TARGET_NAME).xs >$(MMS$TARGET_NAME).xsc $(MV) $(MMS$TARGET_NAME).xsc $(MMS$TARGET_NAME).c '; } =item xs_o (override) Use MM[SK] macros, and VMS command line for C compiler. =cut sub xs_o { my ($self) = @_; return '' unless $self->needs_linking(); my $frag = ' .xs$(OBJ_EXT) : $(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $(MMS$TARGET_NAME).xs >$(MMS$TARGET_NAME).xsc $(MV) $(MMS$TARGET_NAME).xsc $(MMS$TARGET_NAME).c $(CCCMD) $(CCCDLFLAGS) $(MMS$TARGET_NAME).c /OBJECT=$(MMS$TARGET_NAME)$(OBJ_EXT) '; if ($self->{XSMULTI}) { for my $ext ($self->_xs_list_basenames) { my $version = $self->parse_version("$ext.pm"); my $ccflags = $self->{CCFLAGS}; $ccflags =~ s/\$\(DEFINE_VERSION\)/\"VERSION_MACRO=\\"\"$version\\"\"/; $ccflags =~ s/\$\(XS_DEFINE_VERSION\)/\"XS_VERSION_MACRO=\\"\"$version\\"\"/; $self->_xsbuild_replace_macro($ccflags, 'xs', $ext, 'INC'); $self->_xsbuild_replace_macro($ccflags, 'xs', $ext, 'DEFINE'); $frag .= _sprintf562 <<'EOF', $ext, $ccflags; %1$s$(OBJ_EXT) : %1$s.xs $(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $(MMS$TARGET_NAME).xs > $(MMS$TARGET_NAME).xsc $(MV) $(MMS$TARGET_NAME).xsc $(MMS$TARGET_NAME).c $(CC)%2$s$(OPTIMIZE) $(CCCDLFLAGS) $(MMS$TARGET_NAME).c /OBJECT=$(MMS$TARGET_NAME)$(OBJ_EXT) EOF } } $frag; } =item _xsbuild_replace_macro (override) There is no simple replacement possible since a qualifier and all its subqualifiers must be considered together, so we use our own utility routine for the replacement. =cut sub _xsbuild_replace_macro { my ($self, undef, $xstype, $ext, $varname) = @_; my $value = $self->_xsbuild_value($xstype, $ext, $varname); return unless defined $value; $_[1] = _vms_replace_qualifier($self, $_[1], $value, $varname); } =item _xsbuild_value (override) Convert the extension spec to Unix format, as that's what will match what's in the XSBUILD data structure. =cut sub _xsbuild_value { my ($self, $xstype, $ext, $varname) = @_; $ext = unixify($ext); return $self->SUPER::_xsbuild_value($xstype, $ext, $varname); } sub _vms_replace_qualifier { my ($self, $flags, $newflag, $macro) = @_; my $qual_type; my $type_suffix; my $quote_subquals = 0; my @subquals_new = split /\s+/, $newflag; if ($macro eq 'DEFINE') { $qual_type = 'Def'; $type_suffix = 'ine'; map { $_ =~ s/^-D// } @subquals_new; $quote_subquals = 1; } elsif ($macro eq 'INC') { $qual_type = 'Inc'; $type_suffix = 'lude'; map { $_ =~ s/^-I//; $_ = $self->fixpath($_) } @subquals_new; } my @subquals = (); while ($flags =~ m:/${qual_type}\S{0,4}=([^/]+):ig) { my $term = $1; $term =~ s/\"//g; $term =~ s:^\((.+)\)$:$1:; push @subquals, split /,/, $term; } for my $new (@subquals_new) { my ($sq_new, $sqval_new) = split /=/, $new; my $replaced_old = 0; for my $old (@subquals) { my ($sq, $sqval) = split /=/, $old; if ($sq_new eq $sq) { $old = $sq_new; $old .= '=' . $sqval_new if defined($sqval_new) and length($sqval_new); $replaced_old = 1; last; } } push @subquals, $new unless $replaced_old; } if (@subquals) { $flags =~ s:/${qual_type}\S{0,4}=[^/]+::ig; # add quotes if requested but not for unexpanded macros map { $_ = qq/"$_"/ if $_ !~ m/^\$\(/ } @subquals if $quote_subquals; $flags .= "/${qual_type}$type_suffix=(" . join(',',@subquals) . ')'; } return $flags; } sub xs_dlsyms_ext { '.opt'; } =item dlsyms (override) Create VMS linker options files specifying universal symbols for this extension's shareable image(s), and listing other shareable images or libraries to which it should be linked. =cut sub dlsyms { my ($self, %attribs) = @_; return '' unless $self->needs_linking; $self->xs_dlsyms_iterator; } sub xs_make_dlsyms { my ($self, $attribs, $target, $dep, $name, $dlbase, $funcs, $funclist, $imports, $vars, $extra) = @_; my @m; my $instloc; if ($self->{XSMULTI}) { my ($v, $d, $f) = File::Spec->splitpath($target); my @d = File::Spec->splitdir($d); shift @d if $d[0] eq 'lib'; $instloc = $self->catfile('$(INST_ARCHLIB)', 'auto', @d, $f); push @m,"\ndynamic :: $instloc\n\t\$(NOECHO) \$(NOOP)\n" unless $self->{SKIPHASH}{'dynamic'}; push @m,"\nstatic :: $instloc\n\t\$(NOECHO) \$(NOOP)\n" unless $self->{SKIPHASH}{'static'}; push @m, "\n", sprintf <<'EOF', $instloc, $target; %s : %s $(CP) $(MMS$SOURCE) $(MMS$TARGET) EOF } else { push @m,"\ndynamic :: \$(INST_ARCHAUTODIR)$self->{BASEEXT}.opt\n\t\$(NOECHO) \$(NOOP)\n" unless $self->{SKIPHASH}{'dynamic'}; push @m,"\nstatic :: \$(INST_ARCHAUTODIR)$self->{BASEEXT}.opt\n\t\$(NOECHO) \$(NOOP)\n" unless $self->{SKIPHASH}{'static'}; push @m, "\n", sprintf <<'EOF', $target; $(INST_ARCHAUTODIR)$(BASEEXT).opt : %s $(CP) $(MMS$SOURCE) $(MMS$TARGET) EOF } push @m, "\n$target : $dep\n\t", q!$(PERLRUN) -MExtUtils::Mksymlists -e "Mksymlists('NAME'=>'!, $name, q!', 'DLBASE' => '!,$dlbase, q!', 'DL_FUNCS' => !,neatvalue($funcs), q!, 'FUNCLIST' => !,neatvalue($funclist), q!, 'IMPORTS' => !,neatvalue($imports), q!, 'DL_VARS' => !, neatvalue($vars); push @m, $extra if defined $extra; push @m, qq!);"\n\t!; # Can't use dlbase as it's been through mod2fname. my $olb_base = basename($target, '.opt'); if ($self->{XSMULTI}) { # We've been passed everything but the kitchen sink -- and the location of the # static library we're using to build the dynamic library -- so concoct that # location from what we do have. my $olb_dir = $self->catdir(dirname($instloc), $olb_base); push @m, qq!\$(PERL) -e "print ""${olb_dir}${olb_base}\$(LIB_EXT)/Include=!; push @m, ($Config{d_vms_case_sensitive_symbols} ? uc($olb_base) : $olb_base); push @m, '\n' . $olb_dir . $olb_base . '$(LIB_EXT)/Library\n"";" >>$(MMS$TARGET)',"\n"; } else { push @m, qq!\$(PERL) -e "print ""\$(INST_ARCHAUTODIR)${olb_base}\$(LIB_EXT)/Include=!; if ($self->{OBJECT} =~ /\bBASEEXT\b/ or $self->{OBJECT} =~ /\b$self->{BASEEXT}\b/i) { push @m, ($Config{d_vms_case_sensitive_symbols} ? uc($self->{BASEEXT}) :'$(BASEEXT)'); } else { # We don't have a "main" object file, so pull 'em all in # Upcase module names if linker is being case-sensitive my($upcase) = $Config{d_vms_case_sensitive_symbols}; my(@omods) = split ' ', $self->eliminate_macros($self->{OBJECT}); for (@omods) { s/\.[^.]*$//; # Trim off file type s[\$\(\w+_EXT\)][]; # even as a macro s/.*[:>\/\]]//; # Trim off dir spec $_ = uc if $upcase; }; my(@lines); my $tmp = shift @omods; foreach my $elt (@omods) { $tmp .= ",$elt"; if (length($tmp) > 80) { push @lines, $tmp; $tmp = ''; } } push @lines, $tmp; push @m, '(', join( qq[, -\\n\\t"";" >>\$(MMS\$TARGET)\n\t\$(PERL) -e "print ""], @lines),')'; } push @m, '\n$(INST_ARCHAUTODIR)' . $olb_base . '$(LIB_EXT)/Library\n"";" >>$(MMS$TARGET)',"\n"; } if (length $self->{LDLOADLIBS}) { my($line) = ''; foreach my $lib (split ' ', $self->{LDLOADLIBS}) { $lib =~ s%\$%\\\$%g; # Escape '$' in VMS filespecs if (length($line) + length($lib) > 160) { push @m, "\t\$(PERL) -e \"print qq{$line}\" >>\$(MMS\$TARGET)\n"; $line = $lib . '\n'; } else { $line .= $lib . '\n'; } } push @m, "\t\$(PERL) -e \"print qq{$line}\" >>\$(MMS\$TARGET)\n" if $line; } join '', @m; } =item xs_obj_opt Override to fixup -o flags. =cut sub xs_obj_opt { my ($self, $output_file) = @_; "/OBJECT=$output_file"; } =item dynamic_lib (override) Use VMS Link command. =cut sub xs_dynamic_lib_macros { my ($self, $attribs) = @_; my $otherldflags = $attribs->{OTHERLDFLAGS} || ""; my $inst_dynamic_dep = $attribs->{INST_DYNAMIC_DEP} || ""; sprintf <<'EOF', $otherldflags, $inst_dynamic_dep; # This section creates the dynamically loadable objects from relevant # objects and possibly $(MYEXTLIB). OTHERLDFLAGS = %s INST_DYNAMIC_DEP = %s EOF } sub xs_make_dynamic_lib { my ($self, $attribs, $from, $to, $todir, $ldfrom, $exportlist) = @_; my $shr = $Config{'dbgprefix'} . 'PerlShr'; $exportlist =~ s/.def$/.opt/; # it's a linker options file # 1 2 3 4 5 _sprintf562 <<'EOF', $to, $todir, $exportlist, $shr, "$shr Sys\$Share:$shr.$Config{'dlext'}"; %1$s : $(INST_STATIC) $(PERL_INC)perlshr_attr.opt %2$s$(DFSEP).exists %3$s $(PERL_ARCHIVE) $(INST_DYNAMIC_DEP) If F$TrnLNm("%4$s").eqs."" Then Define/NoLog/User %5$s Link $(LDFLAGS) /Shareable=$(MMS$TARGET)$(OTHERLDFLAGS) %3$s/Option,$(PERL_INC)perlshr_attr.opt/Option EOF } =item xs_make_static_lib (override) Use VMS commands to manipulate object library. =cut sub xs_make_static_lib { my ($self, $object, $to, $todir) = @_; my @objects; if ($self->{XSMULTI}) { # The extension name should be the main object file name minus file type. my $lib = $object; $lib =~ s/\$\(OBJ_EXT\)\z//; my $override = $self->_xsbuild_value('xs', $lib, 'OBJECT'); $object = $override if defined $override; @objects = map { $self->fixpath($_,0) } split /(?<!\^)\s+/, $object; } else { push @objects, $object; } my @m; for my $obj (@objects) { push(@m, sprintf "\n%s : %s\$(DFSEP).exists", $obj, $todir); } push(@m, sprintf "\n\n%s : %s \$(MYEXTLIB)\n", $to, (join ' ', @objects)); # If this extension has its own library (eg SDBM_File) # then copy that to $(INST_STATIC) and add $(OBJECT) into it. push(@m, "\t",'$(CP) $(MYEXTLIB) $(MMS$TARGET)',"\n") if $self->{MYEXTLIB}; push(@m,"\t",'If F$Search("$(MMS$TARGET)").eqs."" Then Library/Object/Create $(MMS$TARGET)',"\n"); # if there was a library to copy, then we can't use MMS$SOURCE_LIST, # 'cause it's a library and you can't stick them in other libraries. # In that case, we use $OBJECT instead and hope for the best if ($self->{MYEXTLIB}) { for my $obj (@objects) { push(@m,"\t",'Library/Object/Replace $(MMS$TARGET) ' . $obj,"\n"); } } else { push(@m,"\t",'Library/Object/Replace $(MMS$TARGET) $(MMS$SOURCE_LIST)',"\n"); } push @m, "\t\$(NOECHO) \$(PERL) -e 1 >\$(INST_ARCHAUTODIR)extralibs.ld\n"; foreach my $lib (split ' ', $self->{EXTRALIBS}) { push(@m,"\t",'$(NOECHO) $(PERL) -e "print qq{',$lib,'\n}" >>$(INST_ARCHAUTODIR)extralibs.ld',"\n"); } join('',@m); } =item static_lib_pure_cmd (override) Use VMS commands to manipulate object library. =cut sub static_lib_pure_cmd { my ($self, $from) = @_; sprintf <<'MAKE_FRAG', $from; If F$Search("$(MMS$TARGET)").eqs."" Then Library/Object/Create $(MMS$TARGET) Library/Object/Replace $(MMS$TARGET) %s MAKE_FRAG } =item xs_static_lib_is_xs =cut sub xs_static_lib_is_xs { return 1; } =item extra_clean_files Clean up some OS specific files. Plus the temp file used to shorten a lot of commands. And the name mangler database. =cut sub extra_clean_files { return qw( *.Map *.Dmp *.Lis *.cpp *.$(DLEXT) *.Opt $(BASEEXT).bso .MM_Tmp cxx_repository ); } =item zipfile_target =item tarfile_target =item shdist_target Syntax for invoking shar, tar and zip differs from that for Unix. =cut sub zipfile_target { my($self) = shift; return <<'MAKE_FRAG'; $(DISTVNAME).zip : distdir $(PREOP) $(ZIP) "$(ZIPFLAGS)" $(MMS$TARGET) [.$(DISTVNAME)...]*.*; $(RM_RF) $(DISTVNAME) $(POSTOP) MAKE_FRAG } sub tarfile_target { my($self) = shift; return <<'MAKE_FRAG'; $(DISTVNAME).tar$(SUFFIX) : distdir $(PREOP) $(TO_UNIX) $(TAR) "$(TARFLAGS)" $(DISTVNAME).tar [.$(DISTVNAME)...] $(RM_RF) $(DISTVNAME) $(COMPRESS) $(DISTVNAME).tar $(POSTOP) MAKE_FRAG } sub shdist_target { my($self) = shift; return <<'MAKE_FRAG'; shdist : distdir $(PREOP) $(SHAR) [.$(DISTVNAME)...]*.*; $(DISTVNAME).share $(RM_RF) $(DISTVNAME) $(POSTOP) MAKE_FRAG } # --- Test and Installation Sections --- =item install (override) Work around DCL's 255 character limit several times,and use VMS-style command line quoting in a few cases. =cut sub install { my($self, %attribs) = @_; my(@m); push @m, q[ install :: all pure_install doc_install $(NOECHO) $(NOOP) install_perl :: all pure_perl_install doc_perl_install $(NOECHO) $(NOOP) install_site :: all pure_site_install doc_site_install $(NOECHO) $(NOOP) install_vendor :: all pure_vendor_install doc_vendor_install $(NOECHO) $(NOOP) pure_install :: pure_$(INSTALLDIRS)_install $(NOECHO) $(NOOP) doc_install :: doc_$(INSTALLDIRS)_install $(NOECHO) $(NOOP) pure__install : pure_site_install $(NOECHO) $(ECHO) "INSTALLDIRS not defined, defaulting to INSTALLDIRS=site" doc__install : doc_site_install $(NOECHO) $(ECHO) "INSTALLDIRS not defined, defaulting to INSTALLDIRS=site" # This hack brought to you by DCL's 255-character command line limit pure_perl_install :: ]; push @m, q[ $(NOECHO) $(PERLRUN) "-MFile::Spec" -e "print 'read|'.File::Spec->catfile('$(PERL_ARCHLIB)','auto','$(FULLEXT)','.packlist').'|'" >.MM_tmp $(NOECHO) $(PERLRUN) "-MFile::Spec" -e "print 'write|'.File::Spec->catfile('$(DESTINSTALLARCHLIB)','auto','$(FULLEXT)','.packlist').'|'" >>.MM_tmp ] unless $self->{NO_PACKLIST}; push @m, q[ $(NOECHO) $(ECHO_N) "$(INST_LIB)|$(DESTINSTALLPRIVLIB)|" >>.MM_tmp $(NOECHO) $(ECHO_N) "$(INST_ARCHLIB)|$(DESTINSTALLARCHLIB)|" >>.MM_tmp $(NOECHO) $(ECHO_N) "$(INST_BIN)|$(DESTINSTALLBIN)|" >>.MM_tmp $(NOECHO) $(ECHO_N) "$(INST_SCRIPT)|$(DESTINSTALLSCRIPT)|" >>.MM_tmp $(NOECHO) $(ECHO_N) "$(INST_MAN1DIR) $(DESTINSTALLMAN1DIR) " >>.MM_tmp $(NOECHO) $(ECHO_N) "$(INST_MAN3DIR)|$(DESTINSTALLMAN3DIR)" >>.MM_tmp $(NOECHO) $(MOD_INSTALL) <.MM_tmp $(NOECHO) $(RM_F) .MM_tmp $(NOECHO) $(WARN_IF_OLD_PACKLIST) "].$self->catfile($self->{SITEARCHEXP},'auto',$self->{FULLEXT},'.packlist').q[" # Likewise pure_site_install :: ]; push @m, q[ $(NOECHO) $(PERLRUN) "-MFile::Spec" -e "print 'read|'.File::Spec->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').'|'" >.MM_tmp $(NOECHO) $(PERLRUN) "-MFile::Spec" -e "print 'write|'.File::Spec->catfile('$(DESTINSTALLSITEARCH)','auto','$(FULLEXT)','.packlist').'|'" >>.MM_tmp ] unless $self->{NO_PACKLIST}; push @m, q[ $(NOECHO) $(ECHO_N) "$(INST_LIB)|$(DESTINSTALLSITELIB)|" >>.MM_tmp $(NOECHO) $(ECHO_N) "$(INST_ARCHLIB)|$(DESTINSTALLSITEARCH)|" >>.MM_tmp $(NOECHO) $(ECHO_N) "$(INST_BIN)|$(DESTINSTALLSITEBIN)|" >>.MM_tmp $(NOECHO) $(ECHO_N) "$(INST_SCRIPT)|$(DESTINSTALLSCRIPT)|" >>.MM_tmp $(NOECHO) $(ECHO_N) "$(INST_MAN1DIR)|$(DESTINSTALLSITEMAN1DIR)|" >>.MM_tmp $(NOECHO) $(ECHO_N) "$(INST_MAN3DIR)|$(DESTINSTALLSITEMAN3DIR)" >>.MM_tmp $(NOECHO) $(MOD_INSTALL) <.MM_tmp $(NOECHO) $(RM_F) .MM_tmp $(NOECHO) $(WARN_IF_OLD_PACKLIST) "].$self->catfile($self->{PERL_ARCHLIB},'auto',$self->{FULLEXT},'.packlist').q[" pure_vendor_install :: ]; push @m, q[ $(NOECHO) $(PERLRUN) "-MFile::Spec" -e "print 'read|'.File::Spec->catfile('$(VENDORARCHEXP)','auto','$(FULLEXT)','.packlist').'|'" >.MM_tmp $(NOECHO) $(PERLRUN) "-MFile::Spec" -e "print 'write|'.File::Spec->catfile('$(DESTINSTALLVENDORARCH)','auto','$(FULLEXT)','.packlist').'|'" >>.MM_tmp ] unless $self->{NO_PACKLIST}; push @m, q[ $(NOECHO) $(ECHO_N) "$(INST_LIB)|$(DESTINSTALLVENDORLIB)|" >>.MM_tmp $(NOECHO) $(ECHO_N) "$(INST_ARCHLIB)|$(DESTINSTALLVENDORARCH)|" >>.MM_tmp $(NOECHO) $(ECHO_N) "$(INST_BIN)|$(DESTINSTALLVENDORBIN)|" >>.MM_tmp $(NOECHO) $(ECHO_N) "$(INST_SCRIPT)|$(DESTINSTALLSCRIPT)|" >>.MM_tmp $(NOECHO) $(ECHO_N) "$(INST_MAN1DIR)|$(DESTINSTALLVENDORMAN1DIR)|" >>.MM_tmp $(NOECHO) $(ECHO_N) "$(INST_MAN3DIR)|$(DESTINSTALLVENDORMAN3DIR)" >>.MM_tmp $(NOECHO) $(MOD_INSTALL) <.MM_tmp $(NOECHO) $(RM_F) .MM_tmp ]; push @m, q[ # Ditto doc_perl_install :: $(NOECHO) $(NOOP) # And again doc_site_install :: $(NOECHO) $(NOOP) doc_vendor_install :: $(NOECHO) $(NOOP) ] if $self->{NO_PERLLOCAL}; push @m, q[ # Ditto doc_perl_install :: $(NOECHO) $(ECHO) "Appending installation info to ].$self->catfile($self->{DESTINSTALLARCHLIB}, 'perllocal.pod').q[" $(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB) $(NOECHO) $(ECHO_N) "installed into|$(INSTALLPRIVLIB)|" >.MM_tmp $(NOECHO) $(ECHO_N) "LINKTYPE|$(LINKTYPE)|VERSION|$(VERSION)|EXE_FILES|$(EXE_FILES) " >>.MM_tmp $(NOECHO) $(DOC_INSTALL) "Module" "$(NAME)" <.MM_tmp >>].$self->catfile($self->{DESTINSTALLARCHLIB},'perllocal.pod').q[ $(NOECHO) $(RM_F) .MM_tmp # And again doc_site_install :: $(NOECHO) $(ECHO) "Appending installation info to ].$self->catfile($self->{DESTINSTALLARCHLIB}, 'perllocal.pod').q[" $(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB) $(NOECHO) $(ECHO_N) "installed into|$(INSTALLSITELIB)|" >.MM_tmp $(NOECHO) $(ECHO_N) "LINKTYPE|$(LINKTYPE)|VERSION|$(VERSION)|EXE_FILES|$(EXE_FILES) " >>.MM_tmp $(NOECHO) $(DOC_INSTALL) "Module" "$(NAME)" <.MM_tmp >>].$self->catfile($self->{DESTINSTALLARCHLIB},'perllocal.pod').q[ $(NOECHO) $(RM_F) .MM_tmp doc_vendor_install :: $(NOECHO) $(ECHO) "Appending installation info to ].$self->catfile($self->{DESTINSTALLARCHLIB}, 'perllocal.pod').q[" $(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB) $(NOECHO) $(ECHO_N) "installed into|$(INSTALLVENDORLIB)|" >.MM_tmp $(NOECHO) $(ECHO_N) "LINKTYPE|$(LINKTYPE)|VERSION|$(VERSION)|EXE_FILES|$(EXE_FILES) " >>.MM_tmp $(NOECHO) $(DOC_INSTALL) "Module" "$(NAME)" <.MM_tmp >>].$self->catfile($self->{DESTINSTALLARCHLIB},'perllocal.pod').q[ $(NOECHO) $(RM_F) .MM_tmp ] unless $self->{NO_PERLLOCAL}; push @m, q[ uninstall :: uninstall_from_$(INSTALLDIRS)dirs $(NOECHO) $(NOOP) uninstall_from_perldirs :: $(NOECHO) $(UNINSTALL) ].$self->catfile($self->{PERL_ARCHLIB},'auto',$self->{FULLEXT},'.packlist').q[ uninstall_from_sitedirs :: $(NOECHO) $(UNINSTALL) ].$self->catfile($self->{SITEARCHEXP},'auto',$self->{FULLEXT},'.packlist').q[ uninstall_from_vendordirs :: $(NOECHO) $(UNINSTALL) ].$self->catfile($self->{VENDORARCHEXP},'auto',$self->{FULLEXT},'.packlist').q[ ]; join('',@m); } =item perldepend (override) Use VMS-style syntax for files; it's cheaper to just do it directly here than to have the L<MM_Unix|ExtUtils::MM_Unix> method call C<catfile> repeatedly. Also, if we have to rebuild Config.pm, use MM[SK] to do it. =cut sub perldepend { my($self) = @_; my(@m); if ($self->{OBJECT}) { # Need to add an object file dependency on the perl headers. # this is very important for XS modules in perl.git development. push @m, $self->_perl_header_files_fragment(""); # empty separator on VMS as its in the $(PERL_INC) } if ($self->{PERL_SRC}) { my(@macros); my($mmsquals) = '$(USEMAKEFILE)[.vms]$(FIRST_MAKEFILE)'; push(@macros,'__AXP__=1') if $Config{'archname'} eq 'VMS_AXP'; push(@macros,'DECC=1') if $Config{'vms_cc_type'} eq 'decc'; push(@macros,'GNUC=1') if $Config{'vms_cc_type'} eq 'gcc'; push(@macros,'SOCKET=1') if $Config{'d_has_sockets'}; push(@macros,qq["CC=$Config{'cc'}"]) if $Config{'cc'} =~ m!/!; $mmsquals .= '$(USEMACROS)' . join(',',@macros) . '$(MACROEND)' if @macros; push(@m,q[ # Check for unpropagated config.sh changes. Should never happen. # We do NOT just update config.h because that is not sufficient. # An out of date config.h is not fatal but complains loudly! $(PERL_INC)config.h : $(PERL_SRC)config.sh $(NOOP) $(PERL_ARCHLIB)Config.pm : $(PERL_SRC)config.sh $(NOECHO) Write Sys$Error "$(PERL_ARCHLIB)Config.pm may be out of date with config.h or genconfig.pl" olddef = F$Environment("Default") Set Default $(PERL_SRC) $(MMS)],$mmsquals,); if ($self->{PERL_ARCHLIB} =~ m|\[-| && $self->{PERL_SRC} =~ m|(\[-+)|) { my($prefix,$target) = ($1,$self->fixpath('$(PERL_ARCHLIB)Config.pm',0)); $target =~ s/\Q$prefix/[/; push(@m," $target"); } else { push(@m,' $(MMS$TARGET)'); } push(@m,q[ Set Default 'olddef' ]); } push(@m, join(" ", map($self->fixpath($_,0),sort values %{$self->{XS}}))." : \$(XSUBPPDEPS)\n") if %{$self->{XS}}; join('',@m); } =item makeaperl (override) Undertake to build a new set of Perl images using VMS commands. Since VMS does dynamic loading, it's not necessary to statically link each extension into the Perl image, so this isn't the normal build path. Consequently, it hasn't really been tested, and may well be incomplete. =cut our %olbs; # needs to be localized sub makeaperl { my($self, %attribs) = @_; my($makefilename, $searchdirs, $static, $extra, $perlinc, $target, $tmpdir, $libperl) = @attribs{qw(MAKE DIRS STAT EXTRA INCL TARGET TMP LIBPERL)}; my(@m); push @m, " # --- MakeMaker makeaperl section --- MAP_TARGET = $target "; return join '', @m if $self->{PARENT}; my($dir) = join ":", @{$self->{DIR}}; unless ($self->{MAKEAPERL}) { push @m, q{ $(MAKE_APERL_FILE) : $(FIRST_MAKEFILE) $(NOECHO) $(ECHO) "Writing ""$(MMS$TARGET)"" for this $(MAP_TARGET)" $(NOECHO) $(PERLRUNINST) \ Makefile.PL DIR=}, $dir, q{ \ FIRST_MAKEFILE=$(MAKE_APERL_FILE) LINKTYPE=static \ MAKEAPERL=1 NORECURS=1 }; push @m, map(q[ \\\n\t\t"$_"], @ARGV),q{ $(MAP_TARGET) :: $(MAKE_APERL_FILE) $(MAKE)$(USEMAKEFILE)$(MAKE_APERL_FILE) static $(MMS$TARGET) }; push @m, "\n"; return join '', @m; } my($linkcmd,@optlibs,@staticpkgs,$extralist,$targdir,$libperldir,%libseen); local($_); # The front matter of the linkcommand... $linkcmd = join ' ', $Config{'ld'}, grep($_, @Config{qw(large split ldflags ccdlflags)}); $linkcmd =~ s/\s+/ /g; # Which *.olb files could we make use of... local(%olbs); # XXX can this be lexical? $olbs{$self->{INST_ARCHAUTODIR}} = "$self->{BASEEXT}\$(LIB_EXT)"; require File::Find; File::Find::find(sub { return unless m/\Q$self->{LIB_EXT}\E$/; return if m/^libperl/; if( exists $self->{INCLUDE_EXT} ){ my $found = 0; (my $xx = $File::Find::name) =~ s,.*?/auto/,,; $xx =~ s,/?$_,,; $xx =~ s,/,::,g; # Throw away anything not explicitly marked for inclusion. # DynaLoader is implied. foreach my $incl ((@{$self->{INCLUDE_EXT}},'DynaLoader')){ if( $xx eq $incl ){ $found++; last; } } return unless $found; } elsif( exists $self->{EXCLUDE_EXT} ){ (my $xx = $File::Find::name) =~ s,.*?/auto/,,; $xx =~ s,/?$_,,; $xx =~ s,/,::,g; # Throw away anything explicitly marked for exclusion foreach my $excl (@{$self->{EXCLUDE_EXT}}){ return if( $xx eq $excl ); } } $olbs{$ENV{DEFAULT}} = $_; }, grep( -d $_, @{$searchdirs || []})); # We trust that what has been handed in as argument will be buildable $static = [] unless $static; @olbs{@{$static}} = (1) x @{$static}; $extra = [] unless $extra && ref $extra eq 'ARRAY'; # Sort the object libraries in inverse order of # filespec length to try to insure that dependent extensions # will appear before their parents, so the linker will # search the parent library to resolve references. # (e.g. Intuit::DWIM will precede Intuit, so unresolved # references from [.intuit.dwim]dwim.obj can be found # in [.intuit]intuit.olb). for (sort { length($a) <=> length($b) || $a cmp $b } keys %olbs) { next unless $olbs{$_} =~ /\Q$self->{LIB_EXT}\E$/; my($dir) = $self->fixpath($_,1); my($extralibs) = $dir . "extralibs.ld"; my($extopt) = $dir . $olbs{$_}; $extopt =~ s/$self->{LIB_EXT}$/.opt/; push @optlibs, "$dir$olbs{$_}"; # Get external libraries this extension will need if (-f $extralibs ) { my %seenthis; open my $list, "<", $extralibs or warn $!,next; while (<$list>) { chomp; # Include a library in the link only once, unless it's mentioned # multiple times within a single extension's options file, in which # case we assume the builder needed to search it again later in the # link. my $skip = exists($libseen{$_}) && !exists($seenthis{$_}); $libseen{$_}++; $seenthis{$_}++; next if $skip; push @$extra,$_; } } # Get full name of extension for ExtUtils::Miniperl if (-f $extopt) { open my $opt, '<', $extopt or die $!; while (<$opt>) { next unless /(?:UNIVERSAL|VECTOR)=boot_([\w_]+)/; my $pkg = $1; $pkg =~ s#__*#::#g; push @staticpkgs,$pkg; } } } # Place all of the external libraries after all of the Perl extension # libraries in the final link, in order to maximize the opportunity # for XS code from multiple extensions to resolve symbols against the # same external library while only including that library once. push @optlibs, @$extra; $target = "Perl$Config{'exe_ext'}" unless $target; my $shrtarget; ($shrtarget,$targdir) = fileparse($target); $shrtarget =~ s/^([^.]*)/$1Shr/; $shrtarget = $targdir . $shrtarget; $target = "Perlshr.$Config{'dlext'}" unless $target; $tmpdir = "[]" unless $tmpdir; $tmpdir = $self->fixpath($tmpdir,1); if (@optlibs) { $extralist = join(' ',@optlibs); } else { $extralist = ''; } # Let ExtUtils::Liblist find the necessary libs for us (but skip PerlShr) # that's what we're building here). push @optlibs, grep { !/PerlShr/i } split ' ', +($self->ext())[2]; if ($libperl) { unless (-f $libperl || -f ($libperl = $self->catfile($Config{'installarchlib'},'CORE',$libperl))) { print "Warning: $libperl not found\n"; undef $libperl; } } unless ($libperl) { if (defined $self->{PERL_SRC}) { $libperl = $self->catfile($self->{PERL_SRC},"libperl$self->{LIB_EXT}"); } elsif (-f ($libperl = $self->catfile($Config{'installarchlib'},'CORE',"libperl$self->{LIB_EXT}")) ) { } else { print "Warning: $libperl not found If you're going to build a static perl binary, make sure perl is installed otherwise ignore this warning\n"; } } $libperldir = $self->fixpath((fileparse($libperl))[1],1); push @m, ' # Fill in the target you want to produce if it\'s not perl MAP_TARGET = ',$self->fixpath($target,0),' MAP_SHRTARGET = ',$self->fixpath($shrtarget,0)," MAP_LINKCMD = $linkcmd MAP_PERLINC = ", $perlinc ? map('"$_" ',@{$perlinc}) : ''," MAP_EXTRA = $extralist MAP_LIBPERL = ",$self->fixpath($libperl,0),' '; push @m,"\n${tmpdir}Makeaperl.Opt : \$(MAP_EXTRA)\n"; foreach (@optlibs) { push @m,' $(NOECHO) $(PERL) -e "print q{',$_,'}" >>$(MMS$TARGET)',"\n"; } push @m,"\n${tmpdir}PerlShr.Opt :\n\t"; push @m,'$(NOECHO) $(PERL) -e "print q{$(MAP_SHRTARGET)}" >$(MMS$TARGET)',"\n"; push @m,' $(MAP_SHRTARGET) : $(MAP_LIBPERL) Makeaperl.Opt ',"${libperldir}Perlshr_Attr.Opt",' $(MAP_LINKCMD)/Shareable=$(MMS$TARGET) $(MAP_LIBPERL), Makeaperl.Opt/Option ',"${libperldir}Perlshr_Attr.Opt/Option",' $(MAP_TARGET) : $(MAP_SHRTARGET) ',"${tmpdir}perlmain\$(OBJ_EXT) ${tmpdir}PerlShr.Opt",' $(MAP_LINKCMD) ',"${tmpdir}perlmain\$(OBJ_EXT)",', PerlShr.Opt/Option $(NOECHO) $(ECHO) "To install the new ""$(MAP_TARGET)"" binary, say" $(NOECHO) $(ECHO) " $(MAKE)$(USEMAKEFILE)$(FIRST_MAKEFILE) inst_perl $(USEMACROS)MAP_TARGET=$(MAP_TARGET)$(ENDMACRO)" $(NOECHO) $(ECHO) "To remove the intermediate files, say $(NOECHO) $(ECHO) " $(MAKE)$(USEMAKEFILE)$(FIRST_MAKEFILE) map_clean" '; push @m,"\n${tmpdir}perlmain.c : \$(FIRST_MAKEFILE)\n\t\$(NOECHO) \$(PERL) -e 1 >${tmpdir}Writemain.tmp\n"; push @m, "# More from the 255-char line length limit\n"; foreach (@staticpkgs) { push @m,' $(NOECHO) $(PERL) -e "print q{',$_,qq[}" >>${tmpdir}Writemain.tmp\n]; } push @m, sprintf <<'MAKE_FRAG', $tmpdir, $tmpdir; $(NOECHO) $(PERL) $(MAP_PERLINC) -ane "use ExtUtils::Miniperl; writemain(@F)" %sWritemain.tmp >$(MMS$TARGET) $(NOECHO) $(RM_F) %sWritemain.tmp MAKE_FRAG push @m, q[ # Still more from the 255-char line length limit doc_inst_perl : $(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB) $(NOECHO) $(ECHO) "Perl binary $(MAP_TARGET)|" >.MM_tmp $(NOECHO) $(ECHO) "MAP_STATIC|$(MAP_STATIC)|" >>.MM_tmp $(NOECHO) $(PERL) -pl040 -e " " ].$self->catfile('$(INST_ARCHAUTODIR)','extralibs.all'),q[ >>.MM_tmp $(NOECHO) $(ECHO) -e "MAP_LIBPERL|$(MAP_LIBPERL)|" >>.MM_tmp $(NOECHO) $(DOC_INSTALL) <.MM_tmp >>].$self->catfile('$(DESTINSTALLARCHLIB)','perllocal.pod').q[ $(NOECHO) $(RM_F) .MM_tmp ]; push @m, " inst_perl : pure_inst_perl doc_inst_perl \$(NOECHO) \$(NOOP) pure_inst_perl : \$(MAP_TARGET) $self->{CP} \$(MAP_SHRTARGET) ",$self->fixpath($Config{'installbin'},1)," $self->{CP} \$(MAP_TARGET) ",$self->fixpath($Config{'installbin'},1)," clean :: map_clean \$(NOECHO) \$(NOOP) map_clean : \$(RM_F) ${tmpdir}perlmain\$(OBJ_EXT) ${tmpdir}perlmain.c \$(FIRST_MAKEFILE) \$(RM_F) ${tmpdir}Makeaperl.Opt ${tmpdir}PerlShr.Opt \$(MAP_TARGET) "; join '', @m; } # --- Output postprocessing section --- =item maketext_filter (override) Ensure that colons marking targets are preceded by space, in order to distinguish the target delimiter from a colon appearing as part of a filespec. =cut sub maketext_filter { my($self, $text) = @_; $text =~ s/^([^\s:=]+)(:+\s)/$1 $2/mg; return $text; } =item prefixify (override) prefixifying on VMS is simple. Each should simply be: perl_root:[some.dir] which can just be converted to: volume:[your.prefix.some.dir] otherwise you get the default layout. In effect, your search prefix is ignored and $Config{vms_prefix} is used instead. =cut sub prefixify { my($self, $var, $sprefix, $rprefix, $default) = @_; # Translate $(PERLPREFIX) to a real path. $rprefix = $self->eliminate_macros($rprefix); $rprefix = vmspath($rprefix) if $rprefix; $sprefix = vmspath($sprefix) if $sprefix; $default = vmsify($default) unless $default =~ /\[.*\]/; (my $var_no_install = $var) =~ s/^install//; my $path = $self->{uc $var} || $ExtUtils::MM_Unix::Config_Override{lc $var} || $Config{lc $var} || $Config{lc $var_no_install}; if( !$path ) { warn " no Config found for $var.\n" if $Verbose >= 2; $path = $self->_prefixify_default($rprefix, $default); } elsif( !$self->{ARGS}{PREFIX} || !$self->file_name_is_absolute($path) ) { # do nothing if there's no prefix or if its relative } elsif( $sprefix eq $rprefix ) { warn " no new prefix.\n" if $Verbose >= 2; } else { warn " prefixify $var => $path\n" if $Verbose >= 2; warn " from $sprefix to $rprefix\n" if $Verbose >= 2; my($path_vol, $path_dirs) = $self->splitpath( $path ); if( $path_vol eq $Config{vms_prefix}.':' ) { warn " $Config{vms_prefix}: seen\n" if $Verbose >= 2; $path_dirs =~ s{^\[}{\[.} unless $path_dirs =~ m{^\[\.}; $path = $self->_catprefix($rprefix, $path_dirs); } else { $path = $self->_prefixify_default($rprefix, $default); } } print " now $path\n" if $Verbose >= 2; return $self->{uc $var} = $path; } sub _prefixify_default { my($self, $rprefix, $default) = @_; warn " cannot prefix, using default.\n" if $Verbose >= 2; if( !$default ) { warn "No default!\n" if $Verbose >= 1; return; } if( !$rprefix ) { warn "No replacement prefix!\n" if $Verbose >= 1; return ''; } return $self->_catprefix($rprefix, $default); } sub _catprefix { my($self, $rprefix, $default) = @_; my($rvol, $rdirs) = $self->splitpath($rprefix); if( $rvol ) { return $self->catpath($rvol, $self->catdir($rdirs, $default), '' ) } else { return $self->catdir($rdirs, $default); } } =item cd =cut sub cd { my($self, $dir, @cmds) = @_; $dir = vmspath($dir); my $cmd = join "\n\t", map "$_", @cmds; # No leading tab makes it look right when embedded my $make_frag = sprintf <<'MAKE_FRAG', $dir, $cmd; startdir = F$Environment("Default") Set Default %s %s Set Default 'startdir' MAKE_FRAG # No trailing newline makes this easier to embed chomp $make_frag; return $make_frag; } =item oneliner =cut sub oneliner { my($self, $cmd, $switches) = @_; $switches = [] unless defined $switches; # Strip leading and trailing newlines $cmd =~ s{^\n+}{}; $cmd =~ s{\n+$}{}; my @cmds = split /\n/, $cmd; $cmd = join " \n\t -e ", map $self->quote_literal($_), @cmds; $cmd = $self->escape_newlines($cmd); # Switches must be quoted else they will be lowercased. $switches = join ' ', map { qq{"$_"} } @$switches; return qq{\$(ABSPERLRUN) $switches -e $cmd "--"}; } =item B<echo> perl trips up on "<foo>" thinking it's an input redirect. So we use the native Write command instead. Besides, it's faster. =cut sub echo { my($self, $text, $file, $opts) = @_; # Compatibility with old options if( !ref $opts ) { my $append = $opts; $opts = { append => $append || 0 }; } my $opencmd = $opts->{append} ? 'Open/Append' : 'Open/Write'; $opts->{allow_variables} = 0 unless defined $opts->{allow_variables}; my $ql_opts = { allow_variables => $opts->{allow_variables} }; my @cmds = ("\$(NOECHO) $opencmd MMECHOFILE $file "); push @cmds, map { '$(NOECHO) Write MMECHOFILE '.$self->quote_literal($_, $ql_opts) } split /\n/, $text; push @cmds, '$(NOECHO) Close MMECHOFILE'; return @cmds; } =item quote_literal =cut sub quote_literal { my($self, $text, $opts) = @_; $opts->{allow_variables} = 1 unless defined $opts->{allow_variables}; # I believe this is all we should need. $text =~ s{"}{""}g; $text = $opts->{allow_variables} ? $self->escape_dollarsigns($text) : $self->escape_all_dollarsigns($text); return qq{"$text"}; } =item escape_dollarsigns Quote, don't escape. =cut sub escape_dollarsigns { my($self, $text) = @_; # Quote dollar signs which are not starting a variable $text =~ s{\$ (?!\() }{"\$"}gx; return $text; } =item escape_all_dollarsigns Quote, don't escape. =cut sub escape_all_dollarsigns { my($self, $text) = @_; # Quote dollar signs $text =~ s{\$}{"\$\"}gx; return $text; } =item escape_newlines =cut sub escape_newlines { my($self, $text) = @_; $text =~ s{\n}{-\n}g; return $text; } =item max_exec_len 256 characters. =cut sub max_exec_len { my $self = shift; return $self->{_MAX_EXEC_LEN} ||= 256; } =item init_linker =cut sub init_linker { my $self = shift; $self->{EXPORT_LIST} ||= '$(BASEEXT).opt'; my $shr = $Config{dbgprefix} . 'PERLSHR'; if ($self->{PERL_SRC}) { $self->{PERL_ARCHIVE} ||= $self->catfile($self->{PERL_SRC}, "$shr.$Config{'dlext'}"); } else { $self->{PERL_ARCHIVE} ||= $ENV{$shr} ? $ENV{$shr} : "Sys\$Share:$shr.$Config{'dlext'}"; } $self->{PERL_ARCHIVEDEP} ||= ''; $self->{PERL_ARCHIVE_AFTER} ||= ''; } =item catdir (override) =item catfile (override) Eliminate the macros in the output to the MMS/MMK file. (L<File::Spec::VMS> used to do this for us, but it's being removed) =cut sub catdir { my $self = shift; # Process the macros on VMS MMS/MMK my @args = map { m{\$\(} ? $self->eliminate_macros($_) : $_ } @_; my $dir = $self->SUPER::catdir(@args); # Fix up the directory and force it to VMS format. $dir = $self->fixpath($dir, 1); return $dir; } sub catfile { my $self = shift; # Process the macros on VMS MMS/MMK my @args = map { m{\$\(} ? $self->eliminate_macros($_) : $_ } @_; my $file = $self->SUPER::catfile(@args); $file = vmsify($file); return $file } =item eliminate_macros Expands MM[KS]/Make macros in a text string, using the contents of identically named elements of C<%$self>, and returns the result as a file specification in Unix syntax. NOTE: This is the canonical version of the method. The version in L<File::Spec::VMS> is deprecated. =cut sub eliminate_macros { my($self,$path) = @_; return '' unless $path; $self = {} unless ref $self; my($npath) = unixify($path); # sometimes unixify will return a string with an off-by-one trailing null $npath =~ s{\0$}{}; my($complex) = 0; my($head,$macro,$tail); # perform m##g in scalar context so it acts as an iterator while ($npath =~ m#(.*?)\$\((\S+?)\)(.*)#gs) { if (defined $self->{$2}) { ($head,$macro,$tail) = ($1,$2,$3); if (ref $self->{$macro}) { if (ref $self->{$macro} eq 'ARRAY') { $macro = join ' ', @{$self->{$macro}}; } else { print "Note: can't expand macro \$($macro) containing ",ref($self->{$macro}), "\n\t(using MMK-specific deferred substitutuon; MMS will break)\n"; $macro = "\cB$macro\cB"; $complex = 1; } } else { $macro = $self->{$macro}; # Don't unixify if there is unescaped whitespace $macro = unixify($macro) unless ($macro =~ /(?<!\^)\s/); $macro =~ s#/\Z(?!\n)##; } $npath = "$head$macro$tail"; } } if ($complex) { $npath =~ s#\cB(.*?)\cB#\${$1}#gs; } $npath; } =item fixpath my $path = $mm->fixpath($path); my $path = $mm->fixpath($path, $is_dir); Catchall routine to clean up problem MM[SK]/Make macros. Expands macros in any directory specification, in order to avoid juxtaposing two VMS-syntax directories when MM[SK] is run. Also expands expressions which are all macro, so that we can tell how long the expansion is, and avoid overrunning DCL's command buffer when MM[KS] is running. fixpath() checks to see whether the result matches the name of a directory in the current default directory and returns a directory or file specification accordingly. C<$is_dir> can be set to true to force fixpath() to consider the path to be a directory or false to force it to be a file. NOTE: This is the canonical version of the method. The version in L<File::Spec::VMS> is deprecated. =cut sub fixpath { my($self,$path,$force_path) = @_; return '' unless $path; $self = bless {}, $self unless ref $self; my($fixedpath,$prefix,$name); if ($path =~ m#^\$\([^\)]+\)\Z(?!\n)#s || $path =~ m#[/:>\]]#) { if ($force_path or $path =~ /(?:DIR\)|\])\Z(?!\n)/) { $fixedpath = vmspath($self->eliminate_macros($path)); } else { $fixedpath = vmsify($self->eliminate_macros($path)); } } elsif ((($prefix,$name) = ($path =~ m#^\$\(([^\)]+)\)(.+)#s)) && $self->{$prefix}) { my($vmspre) = $self->eliminate_macros("\$($prefix)"); # is it a dir or just a name? $vmspre = ($vmspre =~ m|/| or $prefix =~ /DIR\Z(?!\n)/) ? vmspath($vmspre) : ''; $fixedpath = ($vmspre ? $vmspre : $self->{$prefix}) . $name; $fixedpath = vmspath($fixedpath) if $force_path; } else { $fixedpath = $path; $fixedpath = vmspath($fixedpath) if $force_path; } # No hints, so we try to guess if (!defined($force_path) and $fixedpath !~ /[:>(.\]]/) { $fixedpath = vmspath($fixedpath) if -d $fixedpath; } # Trim off root dirname if it's had other dirs inserted in front of it. $fixedpath =~ s/\.000000([\]>])/$1/; # Special case for VMS absolute directory specs: these will have had device # prepended during trip through Unix syntax in eliminate_macros(), since # Unix syntax has no way to express "absolute from the top of this device's # directory tree". if ($path =~ /^[\[>][^.\-]/) { $fixedpath =~ s/^[^\[<]+//; } return $fixedpath; } =item os_flavor VMS is VMS. =cut sub os_flavor { return('VMS'); } =item is_make_type (override) None of the make types being checked for is viable on VMS, plus our $self->{MAKE} is an unexpanded (and unexpandable) macro whose value is known only to the make utility itself. =cut sub is_make_type { my($self, $type) = @_; return 0; } =item make_type (override) Returns a suitable string describing the type of makefile being written. =cut sub make_type { "$Config{make}-style"; } =back =head1 AUTHOR Original author Charles Bailey F<bailey@newman.upenn.edu> Maintained by Michael G Schwern F<schwern@pobox.com> See L<ExtUtils::MakeMaker> for patching and contact information. =cut 1; PK ! !p�p p 5.34.0/ExtUtils/ParseXS.pmnu �[��� package ExtUtils::ParseXS; use strict; use 5.006001; use Cwd; use Config; use Exporter 'import'; use File::Basename; use File::Spec; use Symbol; our $VERSION; BEGIN { $VERSION = '3.43'; require ExtUtils::ParseXS::Constants; ExtUtils::ParseXS::Constants->VERSION($VERSION); require ExtUtils::ParseXS::CountLines; ExtUtils::ParseXS::CountLines->VERSION($VERSION); require ExtUtils::ParseXS::Utilities; ExtUtils::ParseXS::Utilities->VERSION($VERSION); require ExtUtils::ParseXS::Eval; ExtUtils::ParseXS::Eval->VERSION($VERSION); } $VERSION = eval $VERSION if $VERSION =~ /_/; use ExtUtils::ParseXS::Utilities qw( standard_typemap_locations trim_whitespace C_string valid_proto_string process_typemaps map_type standard_XS_defs assign_func_args analyze_preprocessor_statements set_cond Warn current_line_number blurt death check_conditional_preprocessor_statements escape_file_for_line_directive report_typemap_failure ); our @EXPORT_OK = qw( process_file report_error_count errors ); ############################## # A number of "constants" our ($C_group_rex, $C_arg); # Group in C (no support for comments or literals) $C_group_rex = qr/ [({\[] (?: (?> [^()\[\]{}]+ ) | (??{ $C_group_rex }) )* [)}\]] /x; # Chunk in C without comma at toplevel (no comments): $C_arg = qr/ (?: (?> [^()\[\]{},"']+ ) | (??{ $C_group_rex }) | " (?: (?> [^\\"]+ ) | \\. )* " # String literal | ' (?: (?> [^\\']+ ) | \\. )* ' # Char literal )* /xs; # "impossible" keyword (multiple newline) my $END = "!End!\n\n"; # Match an XS Keyword my $BLOCK_regexp = '\s*(' . $ExtUtils::ParseXS::Constants::XSKeywordsAlternation . "|$END)\\s*:"; sub new { return bless {} => shift; } our $Singleton = __PACKAGE__->new; sub process_file { my $self; # Allow for $package->process_file(%hash), $obj->process_file, and process_file() if (@_ % 2) { my $invocant = shift; $self = ref($invocant) ? $invocant : $invocant->new; } else { $self = $Singleton; } my %options = @_; $self->{ProtoUsed} = exists $options{prototypes}; # Set defaults. my %args = ( argtypes => 1, csuffix => '.c', except => 0, hiertype => 0, inout => 1, linenumbers => 1, optimize => 1, output => \*STDOUT, prototypes => 0, typemap => [], versioncheck => 1, FH => Symbol::gensym(), %options, ); $args{except} = $args{except} ? ' TRY' : ''; # Global Constants my ($Is_VMS, $SymSet); if ($^O eq 'VMS') { $Is_VMS = 1; # Establish set of global symbols with max length 28, since xsubpp # will later add the 'XS_' prefix. require ExtUtils::XSSymSet; $SymSet = ExtUtils::XSSymSet->new(28); } @{ $self->{XSStack} } = ({type => 'none'}); $self->{InitFileCode} = [ @ExtUtils::ParseXS::Constants::InitFileCode ]; $self->{Overload} = 0; # bool $self->{errors} = 0; # count $self->{Fallback} = '&PL_sv_undef'; # Most of the 1500 lines below uses these globals. We'll have to # clean this up sometime, probably. For now, we just pull them out # of %args. -Ken $self->{RetainCplusplusHierarchicalTypes} = $args{hiertype}; $self->{WantPrototypes} = $args{prototypes}; $self->{WantVersionChk} = $args{versioncheck}; $self->{WantLineNumbers} = $args{linenumbers}; $self->{IncludedFiles} = {}; die "Missing required parameter 'filename'" unless $args{filename}; $self->{filepathname} = $args{filename}; ($self->{dir}, $self->{filename}) = (dirname($args{filename}), basename($args{filename})); $self->{filepathname} =~ s/\\/\\\\/g; $self->{IncludedFiles}->{$args{filename}}++; # Open the output file if given as a string. If they provide some # other kind of reference, trust them that we can print to it. if (not ref $args{output}) { open my($fh), "> $args{output}" or die "Can't create $args{output}: $!"; $args{outfile} = $args{output}; $args{output} = $fh; } # Really, we shouldn't have to chdir() or select() in the first # place. For now, just save and restore. my $orig_cwd = cwd(); my $orig_fh = select(); chdir($self->{dir}); my $pwd = cwd(); my $csuffix = $args{csuffix}; if ($self->{WantLineNumbers}) { my $cfile; if ( $args{outfile} ) { $cfile = $args{outfile}; } else { $cfile = $args{filename}; $cfile =~ s/\.xs$/$csuffix/i or $cfile .= $csuffix; } tie(*PSEUDO_STDOUT, 'ExtUtils::ParseXS::CountLines', $cfile, $args{output}); select PSEUDO_STDOUT; } else { select $args{output}; } $self->{typemap} = process_typemaps( $args{typemap}, $pwd ); # Move more settings from parameters to object foreach my $datum ( qw| argtypes except inout optimize | ) { $self->{$datum} = $args{$datum}; } $self->{strip_c_func_prefix} = $args{s}; # Identify the version of xsubpp used print <<EOM; /* * This file was generated automatically by ExtUtils::ParseXS version $VERSION from the * contents of $self->{filename}. Do not edit this file, edit $self->{filename} instead. * * ANY CHANGES MADE HERE WILL BE LOST! * */ EOM print("#line 1 \"" . escape_file_for_line_directive($self->{filepathname}) . "\"\n") if $self->{WantLineNumbers}; # Open the input file (using $self->{filename} which # is a basename'd $args{filename} due to chdir above) open($self->{FH}, '<', $self->{filename}) or die "cannot open $self->{filename}: $!\n"; FIRSTMODULE: while (readline($self->{FH})) { if (/^=/) { my $podstartline = $.; do { if (/^=cut\s*$/) { # We can't just write out a /* */ comment, as our embedded # POD might itself be in a comment. We can't put a /**/ # comment inside #if 0, as the C standard says that the source # file is decomposed into preprocessing characters in the stage # before preprocessing commands are executed. # I don't want to leave the text as barewords, because the spec # isn't clear whether macros are expanded before or after # preprocessing commands are executed, and someone pathological # may just have defined one of the 3 words as a macro that does # something strange. Multiline strings are illegal in C, so # the "" we write must be a string literal. And they aren't # concatenated until 2 steps later, so we are safe. # - Nicholas Clark print("#if 0\n \"Skipped embedded POD.\"\n#endif\n"); printf("#line %d \"%s\"\n", $. + 1, escape_file_for_line_directive($self->{filepathname})) if $self->{WantLineNumbers}; next FIRSTMODULE; } } while (readline($self->{FH})); # At this point $. is at end of file so die won't state the start # of the problem, and as we haven't yet read any lines &death won't # show the correct line in the message either. die ("Error: Unterminated pod in $self->{filename}, line $podstartline\n") unless $self->{lastline}; } last if ($self->{Package}, $self->{Prefix}) = /^MODULE\s*=\s*[\w:]+(?:\s+PACKAGE\s*=\s*([\w:]+))?(?:\s+PREFIX\s*=\s*(\S+))?\s*$/; print $_; } unless (defined $_) { warn "Didn't find a 'MODULE ... PACKAGE ... PREFIX' line\n"; exit 0; # Not a fatal error for the caller process } print 'ExtUtils::ParseXS::CountLines'->end_marker, "\n" if $self->{WantLineNumbers}; standard_XS_defs(); print 'ExtUtils::ParseXS::CountLines'->end_marker, "\n" if $self->{WantLineNumbers}; $self->{lastline} = $_; $self->{lastline_no} = $.; my $BootCode_ref = []; my $XSS_work_idx = 0; my $cpp_next_tmp = 'XSubPPtmpAAAA'; PARAGRAPH: while ($self->fetch_para()) { my $outlist_ref = []; # Print initial preprocessor statements and blank lines while (@{ $self->{line} } && $self->{line}->[0] !~ /^[^\#]/) { my $ln = shift(@{ $self->{line} }); print $ln, "\n"; next unless $ln =~ /^\#\s*((if)(?:n?def)?|elsif|else|endif)\b/; my $statement = $+; ( $self, $XSS_work_idx, $BootCode_ref ) = analyze_preprocessor_statements( $self, $statement, $XSS_work_idx, $BootCode_ref ); } next PARAGRAPH unless @{ $self->{line} }; if ($XSS_work_idx && !$self->{XSStack}->[$XSS_work_idx]{varname}) { # We are inside an #if, but have not yet #defined its xsubpp variable. print "#define $cpp_next_tmp 1\n\n"; push(@{ $self->{InitFileCode} }, "#if $cpp_next_tmp\n"); push(@{ $BootCode_ref }, "#if $cpp_next_tmp"); $self->{XSStack}->[$XSS_work_idx]{varname} = $cpp_next_tmp++; } $self->death( "Code is not inside a function" ." (maybe last function was ended by a blank line " ." followed by a statement on column one?)") if $self->{line}->[0] =~ /^\s/; # initialize info arrays foreach my $member (qw(args_match var_types defaults arg_list argtype_seen in_out lengthof)) { $self->{$member} = {}; } $self->{proto_arg} = []; $self->{processing_arg_with_types} = 0; # bool $self->{proto_in_this_xsub} = 0; # counter & bool $self->{scope_in_this_xsub} = 0; # counter & bool $self->{interface} = 0; # bool $self->{interface_macro} = 'XSINTERFACE_FUNC'; $self->{interface_macro_set} = 'XSINTERFACE_FUNC_SET'; $self->{ProtoThisXSUB} = $self->{WantPrototypes}; # states 0 (none), 1 (yes), 2 (empty prototype) $self->{ScopeThisXSUB} = 0; # bool my $xsreturn = 0; $_ = shift(@{ $self->{line} }); while (my $kwd = $self->check_keyword("REQUIRE|PROTOTYPES|EXPORT_XSUB_SYMBOLS|FALLBACK|VERSIONCHECK|INCLUDE(?:_COMMAND)?|SCOPE")) { my $method = $kwd . "_handler"; $self->$method($_); next PARAGRAPH unless @{ $self->{line} }; $_ = shift(@{ $self->{line} }); } if ($self->check_keyword("BOOT")) { check_conditional_preprocessor_statements($self); push (@{ $BootCode_ref }, "#line $self->{line_no}->[@{ $self->{line_no} } - @{ $self->{line} }] \"" . escape_file_for_line_directive($self->{filepathname}) . "\"") if $self->{WantLineNumbers} && $self->{line}->[0] !~ /^\s*#\s*line\b/; push (@{ $BootCode_ref }, @{ $self->{line} }, ""); next PARAGRAPH; } # extract return type, function name and arguments ($self->{ret_type}) = ExtUtils::Typemaps::tidy_type($_); my $RETVAL_no_return = 1 if $self->{ret_type} =~ s/^NO_OUTPUT\s+//; # Allow one-line ANSI-like declaration unshift @{ $self->{line} }, $2 if $self->{argtypes} and $self->{ret_type} =~ s/^(.*?\w.*?)\s*\b(\w+\s*\(.*)/$1/s; # a function definition needs at least 2 lines $self->blurt("Error: Function definition too short '$self->{ret_type}'"), next PARAGRAPH unless @{ $self->{line} }; my $externC = 1 if $self->{ret_type} =~ s/^extern "C"\s+//; my $static = 1 if $self->{ret_type} =~ s/^static\s+//; my $func_header = shift(@{ $self->{line} }); $self->blurt("Error: Cannot parse function definition from '$func_header'"), next PARAGRAPH unless $func_header =~ /^(?:([\w:]*)::)?(\w+)\s*\(\s*(.*?)\s*\)\s*(const)?\s*(;\s*)?$/s; my ($class, $orig_args); ($class, $self->{func_name}, $orig_args) = ($1, $2, $3); $class = "$4 $class" if $4; ($self->{pname} = $self->{func_name}) =~ s/^($self->{Prefix})?/$self->{Packprefix}/; my $clean_func_name; ($clean_func_name = $self->{func_name}) =~ s/^$self->{Prefix}//; $self->{Full_func_name} = "$self->{Packid}_$clean_func_name"; if ($Is_VMS) { $self->{Full_func_name} = $SymSet->addsym( $self->{Full_func_name} ); } # Check for duplicate function definition for my $tmp (@{ $self->{XSStack} }) { next unless defined $tmp->{functions}{ $self->{Full_func_name} }; Warn( $self, "Warning: duplicate function definition '$clean_func_name' detected"); last; } $self->{XSStack}->[$XSS_work_idx]{functions}{ $self->{Full_func_name} }++; delete $self->{XsubAliases}; delete $self->{XsubAliasValues}; %{ $self->{Interfaces} } = (); @{ $self->{Attributes} } = (); $self->{DoSetMagic} = 1; $orig_args =~ s/\\\s*/ /g; # process line continuations my @args; my (@fake_INPUT_pre); # For length(s) generated variables my (@fake_INPUT); my $only_C_inlist_ref = {}; # Not in the signature of Perl function if ($self->{argtypes} and $orig_args =~ /\S/) { my $args = "$orig_args ,"; use re 'eval'; if ($args =~ /^( (??{ $C_arg }) , )* $ /x) { @args = ($args =~ /\G ( (??{ $C_arg }) ) , /xg); no re 'eval'; for ( @args ) { s/^\s+//; s/\s+$//; my ($arg, $default) = ($_ =~ m/ ( [^=]* ) ( (?: = .* )? ) /x); my ($pre, $len_name) = ($arg =~ /(.*?) \s* \b ( \w+ | length\( \s*\w+\s* \) ) \s* $ /x); next unless defined($pre) && length($pre); my $out_type = ''; my $inout_var; if ($self->{inout} and s/^(IN|IN_OUTLIST|OUTLIST|OUT|IN_OUT)\b\s*//) { my $type = $1; $out_type = $type if $type ne 'IN'; $arg =~ s/^(IN|IN_OUTLIST|OUTLIST|OUT|IN_OUT)\b\s*//; $pre =~ s/^(IN|IN_OUTLIST|OUTLIST|OUT|IN_OUT)\b\s*//; } my $islength; if ($len_name =~ /^length\( \s* (\w+) \s* \)\z/x) { $len_name = "XSauto_length_of_$1"; $islength = 1; die "Default value on length() argument: '$_'" if length $default; } if (length $pre or $islength) { # Has a type if ($islength) { push @fake_INPUT_pre, $arg; } else { push @fake_INPUT, $arg; } # warn "pushing '$arg'\n"; $self->{argtype_seen}->{$len_name}++; $_ = "$len_name$default"; # Assigns to @args } $only_C_inlist_ref->{$_} = 1 if $out_type eq "OUTLIST" or $islength; push @{ $outlist_ref }, $len_name if $out_type =~ /OUTLIST$/; $self->{in_out}->{$len_name} = $out_type if $out_type; } } else { no re 'eval'; @args = split(/\s*,\s*/, $orig_args); Warn( $self, "Warning: cannot parse argument list '$orig_args', fallback to split"); } } else { @args = split(/\s*,\s*/, $orig_args); for (@args) { if ($self->{inout} and s/^(IN|IN_OUTLIST|OUTLIST|IN_OUT|OUT)\b\s*//) { my $out_type = $1; next if $out_type eq 'IN'; $only_C_inlist_ref->{$_} = 1 if $out_type eq "OUTLIST"; if ($out_type =~ /OUTLIST$/) { push @{ $outlist_ref }, undef; } $self->{in_out}->{$_} = $out_type; } } } if (defined($class)) { my $arg0 = ((defined($static) or $self->{func_name} eq 'new') ? "CLASS" : "THIS"); unshift(@args, $arg0); } my $extra_args = 0; my @args_num = (); my $num_args = 0; my $report_args = ''; my $ellipsis; foreach my $i (0 .. $#args) { if ($args[$i] =~ s/\.\.\.//) { $ellipsis = 1; if ($args[$i] eq '' && $i == $#args) { $report_args .= ", ..."; pop(@args); last; } } if ($only_C_inlist_ref->{$args[$i]}) { push @args_num, undef; } else { push @args_num, ++$num_args; $report_args .= ", $args[$i]"; } if ($args[$i] =~ /^([^=]*[^\s=])\s*=\s*(.*)/s) { $extra_args++; $args[$i] = $1; $self->{defaults}->{$args[$i]} = $2; $self->{defaults}->{$args[$i]} =~ s/"/\\"/g; } $self->{proto_arg}->[$i+1] = '$' unless $only_C_inlist_ref->{$args[$i]}; } my $min_args = $num_args - $extra_args; $report_args =~ s/"/\\"/g; $report_args =~ s/^,\s+//; $self->{func_args} = assign_func_args($self, \@args, $class); @{ $self->{args_match} }{@args} = @args_num; my $PPCODE = grep(/^\s*PPCODE\s*:/, @{ $self->{line} }); my $CODE = grep(/^\s*CODE\s*:/, @{ $self->{line} }); # Detect CODE: blocks which use ST(n)= or XST_m*(n,v) # to set explicit return values. my $EXPLICIT_RETURN = ($CODE && ("@{ $self->{line} }" =~ /(\bST\s*\([^;]*=) | (\bXST_m\w+\s*\()/x )); $self->{ALIAS} = grep(/^\s*ALIAS\s*:/, @{ $self->{line} }); my $INTERFACE = grep(/^\s*INTERFACE\s*:/, @{ $self->{line} }); $xsreturn = 1 if $EXPLICIT_RETURN; $externC = $externC ? qq[extern "C"] : ""; # print function header print Q(<<"EOF"); #$externC #XS_EUPXS(XS_$self->{Full_func_name}); /* prototype to pass -Wmissing-prototypes */ #XS_EUPXS(XS_$self->{Full_func_name}) #[[ # dVAR; dXSARGS; EOF print Q(<<"EOF") if $self->{ALIAS}; # dXSI32; EOF print Q(<<"EOF") if $INTERFACE; # dXSFUNCTION($self->{ret_type}); EOF $self->{cond} = set_cond($ellipsis, $min_args, $num_args); print Q(<<"EOF") if $self->{except}; # char errbuf[1024]; # *errbuf = '\\0'; EOF if($self->{cond}) { print Q(<<"EOF"); # if ($self->{cond}) # croak_xs_usage(cv, "$report_args"); EOF } else { # cv and items likely to be unused print Q(<<"EOF"); # PERL_UNUSED_VAR(cv); /* -W */ # PERL_UNUSED_VAR(items); /* -W */ EOF } #gcc -Wall: if an xsub has PPCODE is used #it is possible none of ST, XSRETURN or XSprePUSH macros are used #hence 'ax' (setup by dXSARGS) is unused #XXX: could breakup the dXSARGS; into dSP;dMARK;dITEMS #but such a move could break third-party extensions print Q(<<"EOF") if $PPCODE; # PERL_UNUSED_VAR(ax); /* -Wall */ EOF print Q(<<"EOF") if $PPCODE; # SP -= items; EOF # Now do a block of some sort. $self->{condnum} = 0; $self->{cond} = ''; # last CASE: conditional push(@{ $self->{line} }, "$END:"); push(@{ $self->{line_no} }, $self->{line_no}->[-1]); $_ = ''; check_conditional_preprocessor_statements(); while (@{ $self->{line} }) { $self->CASE_handler($_) if $self->check_keyword("CASE"); print Q(<<"EOF"); # $self->{except} [[ EOF # do initialization of input variables $self->{thisdone} = 0; $self->{retvaldone} = 0; $self->{deferred} = ""; %{ $self->{arg_list} } = (); $self->{gotRETVAL} = 0; $self->INPUT_handler($_); $self->process_keyword("INPUT|PREINIT|INTERFACE_MACRO|C_ARGS|ALIAS|ATTRS|PROTOTYPE|SCOPE|OVERLOAD"); print Q(<<"EOF") if $self->{ScopeThisXSUB}; # ENTER; # [[ EOF if (!$self->{thisdone} && defined($class)) { if (defined($static) or $self->{func_name} eq 'new') { print "\tchar *"; $self->{var_types}->{"CLASS"} = "char *"; $self->generate_init( { type => "char *", num => 1, var => "CLASS", printed_name => undef, } ); } else { print "\t" . map_type($self, "$class *"); $self->{var_types}->{"THIS"} = "$class *"; $self->generate_init( { type => "$class *", num => 1, var => "THIS", printed_name => undef, } ); } } # These are set if OUTPUT is found and/or CODE using RETVAL $self->{have_OUTPUT} = $self->{have_CODE_with_RETVAL} = 0; my ($wantRETVAL); # do code if (/^\s*NOT_IMPLEMENTED_YET/) { print "\n\tPerl_croak(aTHX_ \"$self->{pname}: not implemented yet\");\n"; $_ = ''; } else { if ($self->{ret_type} ne "void") { print "\t" . map_type($self, $self->{ret_type}, 'RETVAL') . ";\n" if !$self->{retvaldone}; $self->{args_match}->{"RETVAL"} = 0; $self->{var_types}->{"RETVAL"} = $self->{ret_type}; my $outputmap = $self->{typemap}->get_outputmap( ctype => $self->{ret_type} ); print "\tdXSTARG;\n" if $self->{optimize} and $outputmap and $outputmap->targetable; } if (@fake_INPUT or @fake_INPUT_pre) { unshift @{ $self->{line} }, @fake_INPUT_pre, @fake_INPUT, $_; $_ = ""; $self->{processing_arg_with_types} = 1; $self->INPUT_handler($_); } print $self->{deferred}; $self->process_keyword("INIT|ALIAS|ATTRS|PROTOTYPE|INTERFACE_MACRO|INTERFACE|C_ARGS|OVERLOAD"); if ($self->check_keyword("PPCODE")) { $self->print_section(); $self->death("PPCODE must be last thing") if @{ $self->{line} }; print "\tLEAVE;\n" if $self->{ScopeThisXSUB}; print "\tPUTBACK;\n\treturn;\n"; } elsif ($self->check_keyword("CODE")) { my $consumed_code = $self->print_section(); if ($consumed_code =~ /\bRETVAL\b/) { $self->{have_CODE_with_RETVAL} = 1; } } elsif (defined($class) and $self->{func_name} eq "DESTROY") { print "\n\t"; print "delete THIS;\n"; } else { print "\n\t"; if ($self->{ret_type} ne "void") { print "RETVAL = "; $wantRETVAL = 1; } if (defined($static)) { if ($self->{func_name} eq 'new') { $self->{func_name} = "$class"; } else { print "${class}::"; } } elsif (defined($class)) { if ($self->{func_name} eq 'new') { $self->{func_name} .= " $class"; } else { print "THIS->"; } } my $strip = $self->{strip_c_func_prefix}; $self->{func_name} =~ s/^\Q$strip// if defined $strip; $self->{func_name} = 'XSFUNCTION' if $self->{interface}; print "$self->{func_name}($self->{func_args});\n"; } } # do output variables $self->{gotRETVAL} = 0; # 1 if RETVAL seen in OUTPUT section; undef $self->{RETVAL_code} ; # code to set RETVAL (from OUTPUT section); # $wantRETVAL set if 'RETVAL =' autogenerated ($wantRETVAL, $self->{ret_type}) = (0, 'void') if $RETVAL_no_return; undef %{ $self->{outargs} }; $self->process_keyword("POSTCALL|OUTPUT|ALIAS|ATTRS|PROTOTYPE|OVERLOAD"); # A CODE section with RETVAL, but no OUTPUT? FAIL! if ($self->{have_CODE_with_RETVAL} and not $self->{have_OUTPUT} and $self->{ret_type} ne 'void') { $self->Warn("Warning: Found a 'CODE' section which seems to be using 'RETVAL' but no 'OUTPUT' section."); } $self->generate_output( { type => $self->{var_types}->{$_}, num => $self->{args_match}->{$_}, var => $_, do_setmagic => $self->{DoSetMagic}, do_push => undef, } ) for grep $self->{in_out}->{$_} =~ /OUT$/, sort keys %{ $self->{in_out} }; my $prepush_done; # all OUTPUT done, so now push the return value on the stack if ($self->{gotRETVAL} && $self->{RETVAL_code}) { print "\t$self->{RETVAL_code}\n"; } elsif ($self->{gotRETVAL} || $wantRETVAL) { my $outputmap = $self->{typemap}->get_outputmap( ctype => $self->{ret_type} ); my $trgt = $self->{optimize} && $outputmap && $outputmap->targetable; my $var = 'RETVAL'; my $type = $self->{ret_type}; if ($trgt) { my $what = $self->eval_output_typemap_code( qq("$trgt->{what}"), {var => $var, type => $self->{ret_type}} ); if (not $trgt->{with_size} and $trgt->{type} eq 'p') { # sv_setpv # PUSHp corresponds to sv_setpvn. Treat sv_setpv directly print "\tsv_setpv(TARG, $what); XSprePUSH; PUSHTARG;\n"; $prepush_done = 1; } else { my $tsize = $trgt->{what_size}; $tsize = '' unless defined $tsize; $tsize = $self->eval_output_typemap_code( qq("$tsize"), {var => $var, type => $self->{ret_type}} ); print "\tXSprePUSH; PUSH$trgt->{type}($what$tsize);\n"; $prepush_done = 1; } } else { # RETVAL almost never needs SvSETMAGIC() $self->generate_output( { type => $self->{ret_type}, num => 0, var => 'RETVAL', do_setmagic => 0, do_push => undef, } ); } } $xsreturn = 1 if $self->{ret_type} ne "void"; my $num = $xsreturn; my $c = @{ $outlist_ref }; print "\tXSprePUSH;" if $c and not $prepush_done; print "\tEXTEND(SP,$c);\n" if $c; $xsreturn += $c; $self->generate_output( { type => $self->{var_types}->{$_}, num => $num++, var => $_, do_setmagic => 0, do_push => 1, } ) for @{ $outlist_ref }; # do cleanup $self->process_keyword("CLEANUP|ALIAS|ATTRS|PROTOTYPE|OVERLOAD"); print Q(<<"EOF") if $self->{ScopeThisXSUB}; # ]] EOF print Q(<<"EOF") if $self->{ScopeThisXSUB} and not $PPCODE; # LEAVE; EOF # print function trailer print Q(<<"EOF"); # ]] EOF print Q(<<"EOF") if $self->{except}; # BEGHANDLERS # CATCHALL # sprintf(errbuf, "%s: %s\\tpropagated", Xname, Xreason); # ENDHANDLERS EOF if ($self->check_keyword("CASE")) { $self->blurt("Error: No 'CASE:' at top of function") unless $self->{condnum}; $_ = "CASE: $_"; # Restore CASE: label next; } last if $_ eq "$END:"; $self->death(/^$BLOCK_regexp/o ? "Misplaced '$1:'" : "Junk at end of function ($_)"); } print Q(<<"EOF") if $self->{except}; # if (errbuf[0]) # Perl_croak(aTHX_ errbuf); EOF if ($xsreturn) { print Q(<<"EOF") unless $PPCODE; # XSRETURN($xsreturn); EOF } else { print Q(<<"EOF") unless $PPCODE; # XSRETURN_EMPTY; EOF } print Q(<<"EOF"); #]] # EOF $self->{proto} = ""; unless($self->{ProtoThisXSUB}) { $self->{newXS} = "newXS_deffile"; $self->{file} = ""; } else { # Build the prototype string for the xsub $self->{newXS} = "newXSproto_portable"; $self->{file} = ", file"; if ($self->{ProtoThisXSUB} eq 2) { # User has specified empty prototype } elsif ($self->{ProtoThisXSUB} eq 1) { my $s = ';'; if ($min_args < $num_args) { $s = ''; $self->{proto_arg}->[$min_args] .= ";"; } push @{ $self->{proto_arg} }, "$s\@" if $ellipsis; $self->{proto} = join ("", grep defined, @{ $self->{proto_arg} } ); } else { # User has specified a prototype $self->{proto} = $self->{ProtoThisXSUB}; } $self->{proto} = qq{, "$self->{proto}"}; } if ($self->{XsubAliases} and keys %{ $self->{XsubAliases} }) { $self->{XsubAliases}->{ $self->{pname} } = 0 unless defined $self->{XsubAliases}->{ $self->{pname} }; foreach my $xname (sort keys %{ $self->{XsubAliases} }) { my $value = $self->{XsubAliases}{$xname}; push(@{ $self->{InitFileCode} }, Q(<<"EOF")); # cv = $self->{newXS}(\"$xname\", XS_$self->{Full_func_name}$self->{file}$self->{proto}); # XSANY.any_i32 = $value; EOF } } elsif (@{ $self->{Attributes} }) { push(@{ $self->{InitFileCode} }, Q(<<"EOF")); # cv = $self->{newXS}(\"$self->{pname}\", XS_$self->{Full_func_name}$self->{file}$self->{proto}); # apply_attrs_string("$self->{Package}", cv, "@{ $self->{Attributes} }", 0); EOF } elsif ($self->{interface}) { foreach my $yname (sort keys %{ $self->{Interfaces} }) { my $value = $self->{Interfaces}{$yname}; $yname = "$self->{Package}\::$yname" unless $yname =~ /::/; push(@{ $self->{InitFileCode} }, Q(<<"EOF")); # cv = $self->{newXS}(\"$yname\", XS_$self->{Full_func_name}$self->{file}$self->{proto}); # $self->{interface_macro_set}(cv,$value); EOF } } elsif($self->{newXS} eq 'newXS_deffile'){ # work around P5NCI's empty newXS macro push(@{ $self->{InitFileCode} }, " $self->{newXS}(\"$self->{pname}\", XS_$self->{Full_func_name}$self->{file}$self->{proto});\n"); } else { push(@{ $self->{InitFileCode} }, " (void)$self->{newXS}(\"$self->{pname}\", XS_$self->{Full_func_name}$self->{file}$self->{proto});\n"); } } # END 'PARAGRAPH' 'while' loop if ($self->{Overload}) { # make it findable with fetchmethod print Q(<<"EOF"); #XS_EUPXS(XS_$self->{Packid}_nil); /* prototype to pass -Wmissing-prototypes */ #XS_EUPXS(XS_$self->{Packid}_nil) #{ # dXSARGS; # PERL_UNUSED_VAR(items); # XSRETURN_EMPTY; #} # EOF unshift(@{ $self->{InitFileCode} }, <<"MAKE_FETCHMETHOD_WORK"); /* Making a sub named "$self->{Package}::()" allows the package */ /* to be findable via fetchmethod(), and causes */ /* overload::Overloaded("$self->{Package}") to return true. */ (void)$self->{newXS}("$self->{Package}::()", XS_$self->{Packid}_nil$self->{file}$self->{proto}); MAKE_FETCHMETHOD_WORK } # print initialization routine print Q(<<"EOF"); ##ifdef __cplusplus #extern "C" ##endif EOF print Q(<<"EOF"); #XS_EXTERNAL(boot_$self->{Module_cname}); /* prototype to pass -Wmissing-prototypes */ #XS_EXTERNAL(boot_$self->{Module_cname}) #[[ ##if PERL_VERSION_LE(5, 21, 5) # dVAR; dXSARGS; ##else # dVAR; ${\($self->{WantVersionChk} ? 'dXSBOOTARGSXSAPIVERCHK;' : 'dXSBOOTARGSAPIVERCHK;')} ##endif EOF #Under 5.8.x and lower, newXS is declared in proto.h as expecting a non-const #file name argument. If the wrong qualifier is used, it causes breakage with #C++ compilers and warnings with recent gcc. #-Wall: if there is no $self->{Full_func_name} there are no xsubs in this .xs #so 'file' is unused print Q(<<"EOF") if $self->{Full_func_name}; ##if PERL_VERSION_LE(5, 8, 999) /* PERL_VERSION_LT is 5.33+ */ # char* file = __FILE__; ##else # const char* file = __FILE__; ##endif # # PERL_UNUSED_VAR(file); EOF print Q("#\n"); print Q(<<"EOF"); # PERL_UNUSED_VAR(cv); /* -W */ # PERL_UNUSED_VAR(items); /* -W */ EOF if( $self->{WantVersionChk}){ print Q(<<"EOF") ; ##if PERL_VERSION_LE(5, 21, 5) # XS_VERSION_BOOTCHECK; ## ifdef XS_APIVERSION_BOOTCHECK # XS_APIVERSION_BOOTCHECK; ## endif ##endif EOF } else { print Q(<<"EOF") ; ##if PERL_VERSION_LE(5, 21, 5) && defined(XS_APIVERSION_BOOTCHECK) # XS_APIVERSION_BOOTCHECK; ##endif EOF } print Q(<<"EOF") if defined $self->{XsubAliases} or defined $self->{interfaces}; # { # CV * cv; # EOF print Q(<<"EOF") if ($self->{Overload}); # /* register the overloading (type 'A') magic */ ##if PERL_VERSION_LE(5, 8, 999) /* PERL_VERSION_LT is 5.33+ */ # PL_amagic_generation++; ##endif # /* The magic for overload gets a GV* via gv_fetchmeth as */ # /* mentioned above, and looks in the SV* slot of it for */ # /* the "fallback" status. */ # sv_setsv( # get_sv( "$self->{Package}::()", TRUE ), # $self->{Fallback} # ); EOF print @{ $self->{InitFileCode} }; print Q(<<"EOF") if defined $self->{XsubAliases} or defined $self->{interfaces}; # } EOF if (@{ $BootCode_ref }) { print "\n /* Initialisation Section */\n\n"; @{ $self->{line} } = @{ $BootCode_ref }; $self->print_section(); print "\n /* End of Initialisation Section */\n\n"; } print Q(<<'EOF'); ##if PERL_VERSION_LE(5, 21, 5) ## if PERL_VERSION_GE(5, 9, 0) # if (PL_unitcheckav) # call_list(PL_scopestack_ix, PL_unitcheckav); ## endif # XSRETURN_YES; ##else # Perl_xs_boot_epilog(aTHX_ ax); ##endif #]] # EOF warn("Please specify prototyping behavior for $self->{filename} (see perlxs manual)\n") unless $self->{ProtoUsed}; chdir($orig_cwd); select($orig_fh); untie *PSEUDO_STDOUT if tied *PSEUDO_STDOUT; close $self->{FH}; return 1; } sub report_error_count { if (@_) { return $_[0]->{errors}||0; } else { return $Singleton->{errors}||0; } } *errors = \&report_error_count; # Input: ($self, $_, @{ $self->{line} }) == unparsed input. # Output: ($_, @{ $self->{line} }) == (rest of line, following lines). # Return: the matched keyword if found, otherwise 0 sub check_keyword { my $self = shift; $_ = shift(@{ $self->{line} }) while !/\S/ && @{ $self->{line} }; s/^(\s*)($_[0])\s*:\s*(?:#.*)?/$1/s && $2; } sub print_section { my $self = shift; # the "do" is required for right semantics do { $_ = shift(@{ $self->{line} }) } while !/\S/ && @{ $self->{line} }; my $consumed_code = ''; print("#line ", $self->{line_no}->[@{ $self->{line_no} } - @{ $self->{line} } -1], " \"", escape_file_for_line_directive($self->{filepathname}), "\"\n") if $self->{WantLineNumbers} && !/^\s*#\s*line\b/ && !/^#if XSubPPtmp/; for (; defined($_) && !/^$BLOCK_regexp/o; $_ = shift(@{ $self->{line} })) { print "$_\n"; $consumed_code .= "$_\n"; } print 'ExtUtils::ParseXS::CountLines'->end_marker, "\n" if $self->{WantLineNumbers}; return $consumed_code; } sub merge_section { my $self = shift; my $in = ''; while (!/\S/ && @{ $self->{line} }) { $_ = shift(@{ $self->{line} }); } for (; defined($_) && !/^$BLOCK_regexp/o; $_ = shift(@{ $self->{line} })) { $in .= "$_\n"; } chomp $in; return $in; } sub process_keyword { my($self, $pattern) = @_; while (my $kwd = $self->check_keyword($pattern)) { my $method = $kwd . "_handler"; $self->$method($_); } } sub CASE_handler { my $self = shift; $_ = shift; $self->blurt("Error: 'CASE:' after unconditional 'CASE:'") if $self->{condnum} && $self->{cond} eq ''; $self->{cond} = $_; trim_whitespace($self->{cond}); print " ", ($self->{condnum}++ ? " else" : ""), ($self->{cond} ? " if ($self->{cond})\n" : "\n"); $_ = ''; } sub INPUT_handler { my $self = shift; $_ = shift; for (; !/^$BLOCK_regexp/o; $_ = shift(@{ $self->{line} })) { last if /^\s*NOT_IMPLEMENTED_YET/; next unless /\S/; # skip blank lines trim_whitespace($_); my $ln = $_; # remove trailing semicolon if no initialisation s/\s*;$//g unless /[=;+].*\S/; # Process the length(foo) declarations if (s/^([^=]*)\blength\(\s*(\w+)\s*\)\s*$/$1 XSauto_length_of_$2=NO_INIT/x) { print "\tSTRLEN\tSTRLEN_length_of_$2;\n"; $self->{lengthof}->{$2} = undef; $self->{deferred} .= "\n\tXSauto_length_of_$2 = STRLEN_length_of_$2;\n"; } # check for optional initialisation code my $var_init = ''; $var_init = $1 if s/\s*([=;+].*)$//s; $var_init =~ s/"/\\"/g; # *sigh* It's valid to supply explicit input typemaps in the argument list... my $is_overridden_typemap = $var_init =~ /ST\s*\(|\$arg\b/; s/\s+/ /g; my ($var_type, $var_addr, $var_name) = /^(.*?[^&\s])\s*(\&?)\s*\b(\w+)$/s or $self->blurt("Error: invalid argument declaration '$ln'"), next; # Check for duplicate definitions $self->blurt("Error: duplicate definition of argument '$var_name' ignored"), next if $self->{arg_list}->{$var_name}++ or defined $self->{argtype_seen}->{$var_name} and not $self->{processing_arg_with_types}; $self->{thisdone} |= $var_name eq "THIS"; $self->{retvaldone} |= $var_name eq "RETVAL"; $self->{var_types}->{$var_name} = $var_type; # XXXX This check is a safeguard against the unfinished conversion of # generate_init(). When generate_init() is fixed, # one can use 2-args map_type() unconditionally. my $printed_name; if ($var_type =~ / \( \s* \* \s* \) /x) { # Function pointers are not yet supported with output_init()! print "\t" . map_type($self, $var_type, $var_name); $printed_name = 1; } else { print "\t" . map_type($self, $var_type, undef); $printed_name = 0; } $self->{var_num} = $self->{args_match}->{$var_name}; if ($self->{var_num}) { my $typemap = $self->{typemap}->get_typemap(ctype => $var_type); $self->report_typemap_failure($self->{typemap}, $var_type, "death") if not $typemap and not $is_overridden_typemap; $self->{proto_arg}->[$self->{var_num}] = ($typemap && $typemap->proto) || "\$"; } $self->{func_args} =~ s/\b($var_name)\b/&$1/ if $var_addr; if ($var_init =~ /^[=;]\s*NO_INIT\s*;?\s*$/ or $self->{in_out}->{$var_name} and $self->{in_out}->{$var_name} =~ /^OUT/ and $var_init !~ /\S/) { if ($printed_name) { print ";\n"; } else { print "\t$var_name;\n"; } } elsif ($var_init =~ /\S/) { $self->output_init( { type => $var_type, num => $self->{var_num}, var => $var_name, init => $var_init, printed_name => $printed_name, } ); } elsif ($self->{var_num}) { $self->generate_init( { type => $var_type, num => $self->{var_num}, var => $var_name, printed_name => $printed_name, } ); } else { print ";\n"; } } } sub OUTPUT_handler { my $self = shift; $self->{have_OUTPUT} = 1; $_ = shift; for (; !/^$BLOCK_regexp/o; $_ = shift(@{ $self->{line} })) { next unless /\S/; if (/^\s*SETMAGIC\s*:\s*(ENABLE|DISABLE)\s*/) { $self->{DoSetMagic} = ($1 eq "ENABLE" ? 1 : 0); next; } my ($outarg, $outcode) = /^\s*(\S+)\s*(.*?)\s*$/s; $self->blurt("Error: duplicate OUTPUT argument '$outarg' ignored"), next if $self->{outargs}->{$outarg}++; if (!$self->{gotRETVAL} and $outarg eq 'RETVAL') { # deal with RETVAL last $self->{RETVAL_code} = $outcode; $self->{gotRETVAL} = 1; next; } $self->blurt("Error: OUTPUT $outarg not an argument"), next unless defined($self->{args_match}->{$outarg}); $self->blurt("Error: No input definition for OUTPUT argument '$outarg' - ignored"), next unless defined $self->{var_types}->{$outarg}; $self->{var_num} = $self->{args_match}->{$outarg}; if ($outcode) { print "\t$outcode\n"; print "\tSvSETMAGIC(ST(" , $self->{var_num} - 1 , "));\n" if $self->{DoSetMagic}; } else { $self->generate_output( { type => $self->{var_types}->{$outarg}, num => $self->{var_num}, var => $outarg, do_setmagic => $self->{DoSetMagic}, do_push => undef, } ); } delete $self->{in_out}->{$outarg} # No need to auto-OUTPUT if exists $self->{in_out}->{$outarg} and $self->{in_out}->{$outarg} =~ /OUT$/; } } sub C_ARGS_handler { my $self = shift; $_ = shift; my $in = $self->merge_section(); trim_whitespace($in); $self->{func_args} = $in; } sub INTERFACE_MACRO_handler { my $self = shift; $_ = shift; my $in = $self->merge_section(); trim_whitespace($in); if ($in =~ /\s/) { # two ($self->{interface_macro}, $self->{interface_macro_set}) = split ' ', $in; } else { $self->{interface_macro} = $in; $self->{interface_macro_set} = 'UNKNOWN_CVT'; # catch later } $self->{interface} = 1; # local $self->{interfaces} = 1; # global } sub INTERFACE_handler { my $self = shift; $_ = shift; my $in = $self->merge_section(); trim_whitespace($in); foreach (split /[\s,]+/, $in) { my $iface_name = $_; $iface_name =~ s/^$self->{Prefix}//; $self->{Interfaces}->{$iface_name} = $_; } print Q(<<"EOF"); # XSFUNCTION = $self->{interface_macro}($self->{ret_type},cv,XSANY.any_dptr); EOF $self->{interface} = 1; # local $self->{interfaces} = 1; # global } sub CLEANUP_handler { my $self = shift; $self->print_section(); } sub PREINIT_handler { my $self = shift; $self->print_section(); } sub POSTCALL_handler { my $self = shift; $self->print_section(); } sub INIT_handler { my $self = shift; $self->print_section(); } sub get_aliases { my $self = shift; my ($line) = @_; my ($orig) = $line; # Parse alias definitions # format is # alias = value alias = value ... while ($line =~ s/^\s*([\w:]+)\s*=\s*(\w+)\s*//) { my ($alias, $value) = ($1, $2); my $orig_alias = $alias; # check for optional package definition in the alias $alias = $self->{Packprefix} . $alias if $alias !~ /::/; # check for duplicate alias name & duplicate value Warn( $self, "Warning: Ignoring duplicate alias '$orig_alias'") if defined $self->{XsubAliases}->{$alias}; Warn( $self, "Warning: Aliases '$orig_alias' and '$self->{XsubAliasValues}->{$value}' have identical values") if $self->{XsubAliasValues}->{$value}; $self->{XsubAliases}->{$alias} = $value; $self->{XsubAliasValues}->{$value} = $orig_alias; } blurt( $self, "Error: Cannot parse ALIAS definitions from '$orig'") if $line; } sub ATTRS_handler { my $self = shift; $_ = shift; for (; !/^$BLOCK_regexp/o; $_ = shift(@{ $self->{line} })) { next unless /\S/; trim_whitespace($_); push @{ $self->{Attributes} }, $_; } } sub ALIAS_handler { my $self = shift; $_ = shift; for (; !/^$BLOCK_regexp/o; $_ = shift(@{ $self->{line} })) { next unless /\S/; trim_whitespace($_); $self->get_aliases($_) if $_; } } sub OVERLOAD_handler { my $self = shift; $_ = shift; for (; !/^$BLOCK_regexp/o; $_ = shift(@{ $self->{line} })) { next unless /\S/; trim_whitespace($_); while ( s/^\s*([\w:"\\)\+\-\*\/\%\<\>\.\&\|\^\!\~\{\}\=]+)\s*//) { $self->{Overload} = 1 unless $self->{Overload}; my $overload = "$self->{Package}\::(".$1; push(@{ $self->{InitFileCode} }, " (void)$self->{newXS}(\"$overload\", XS_$self->{Full_func_name}$self->{file}$self->{proto});\n"); } } } sub FALLBACK_handler { my ($self, $setting) = @_; # the rest of the current line should contain either TRUE, # FALSE or UNDEF trim_whitespace($setting); $setting = uc($setting); my %map = ( TRUE => "&PL_sv_yes", 1 => "&PL_sv_yes", FALSE => "&PL_sv_no", 0 => "&PL_sv_no", UNDEF => "&PL_sv_undef", ); # check for valid FALLBACK value $self->death("Error: FALLBACK: TRUE/FALSE/UNDEF") unless exists $map{$setting}; $self->{Fallback} = $map{$setting}; } sub REQUIRE_handler { # the rest of the current line should contain a version number my ($self, $ver) = @_; trim_whitespace($ver); $self->death("Error: REQUIRE expects a version number") unless $ver; # check that the version number is of the form n.n $self->death("Error: REQUIRE: expected a number, got '$ver'") unless $ver =~ /^\d+(\.\d*)?/; $self->death("Error: xsubpp $ver (or better) required--this is only $VERSION.") unless $VERSION >= $ver; } sub VERSIONCHECK_handler { # the rest of the current line should contain either ENABLE or # DISABLE my ($self, $setting) = @_; trim_whitespace($setting); # check for ENABLE/DISABLE $self->death("Error: VERSIONCHECK: ENABLE/DISABLE") unless $setting =~ /^(ENABLE|DISABLE)/i; $self->{WantVersionChk} = 1 if $1 eq 'ENABLE'; $self->{WantVersionChk} = 0 if $1 eq 'DISABLE'; } sub PROTOTYPE_handler { my $self = shift; $_ = shift; my $specified; $self->death("Error: Only 1 PROTOTYPE definition allowed per xsub") if $self->{proto_in_this_xsub}++; for (; !/^$BLOCK_regexp/o; $_ = shift(@{ $self->{line} })) { next unless /\S/; $specified = 1; trim_whitespace($_); if ($_ eq 'DISABLE') { $self->{ProtoThisXSUB} = 0; } elsif ($_ eq 'ENABLE') { $self->{ProtoThisXSUB} = 1; } else { # remove any whitespace s/\s+//g; $self->death("Error: Invalid prototype '$_'") unless valid_proto_string($_); $self->{ProtoThisXSUB} = C_string($_); } } # If no prototype specified, then assume empty prototype "" $self->{ProtoThisXSUB} = 2 unless $specified; $self->{ProtoUsed} = 1; } sub SCOPE_handler { # Rest of line should be either ENABLE or DISABLE my ($self, $setting) = @_; $self->death("Error: Only 1 SCOPE declaration allowed per xsub") if $self->{scope_in_this_xsub}++; trim_whitespace($setting); $self->death("Error: SCOPE: ENABLE/DISABLE") unless $setting =~ /^(ENABLE|DISABLE)\b/i; $self->{ScopeThisXSUB} = ( uc($1) eq 'ENABLE' ); } sub PROTOTYPES_handler { # the rest of the current line should contain either ENABLE or # DISABLE my ($self, $setting) = @_; trim_whitespace($setting); # check for ENABLE/DISABLE $self->death("Error: PROTOTYPES: ENABLE/DISABLE") unless $setting =~ /^(ENABLE|DISABLE)/i; $self->{WantPrototypes} = 1 if $1 eq 'ENABLE'; $self->{WantPrototypes} = 0 if $1 eq 'DISABLE'; $self->{ProtoUsed} = 1; } sub EXPORT_XSUB_SYMBOLS_handler { # the rest of the current line should contain either ENABLE or # DISABLE my ($self, $setting) = @_; trim_whitespace($setting); # check for ENABLE/DISABLE $self->death("Error: EXPORT_XSUB_SYMBOLS: ENABLE/DISABLE") unless $setting =~ /^(ENABLE|DISABLE)/i; my $xs_impl = $1 eq 'ENABLE' ? 'XS_EXTERNAL' : 'XS_INTERNAL'; print Q(<<"EOF"); ##undef XS_EUPXS ##if defined(PERL_EUPXS_ALWAYS_EXPORT) ## define XS_EUPXS(name) XS_EXTERNAL(name) ##elif defined(PERL_EUPXS_NEVER_EXPORT) ## define XS_EUPXS(name) XS_INTERNAL(name) ##else ## define XS_EUPXS(name) $xs_impl(name) ##endif EOF } sub PushXSStack { my $self = shift; my %args = @_; # Save the current file context. push(@{ $self->{XSStack} }, { type => 'file', LastLine => $self->{lastline}, LastLineNo => $self->{lastline_no}, Line => $self->{line}, LineNo => $self->{line_no}, Filename => $self->{filename}, Filepathname => $self->{filepathname}, Handle => $self->{FH}, IsPipe => scalar($self->{filename} =~ /\|\s*$/), %args, }); } sub INCLUDE_handler { my $self = shift; $_ = shift; # the rest of the current line should contain a valid filename trim_whitespace($_); $self->death("INCLUDE: filename missing") unless $_; $self->death("INCLUDE: output pipe is illegal") if /^\s*\|/; # simple minded recursion detector $self->death("INCLUDE loop detected") if $self->{IncludedFiles}->{$_}; ++$self->{IncludedFiles}->{$_} unless /\|\s*$/; if (/\|\s*$/ && /^\s*perl\s/) { Warn( $self, "The INCLUDE directive with a command is discouraged." . " Use INCLUDE_COMMAND instead! In particular using 'perl'" . " in an 'INCLUDE: ... |' directive is not guaranteed to pick" . " up the correct perl. The INCLUDE_COMMAND directive allows" . " the use of \$^X as the currently running perl, see" . " 'perldoc perlxs' for details."); } $self->PushXSStack(); $self->{FH} = Symbol::gensym(); # open the new file open($self->{FH}, $_) or $self->death("Cannot open '$_': $!"); print Q(<<"EOF"); # #/* INCLUDE: Including '$_' from '$self->{filename}' */ # EOF $self->{filename} = $_; $self->{filepathname} = ( $^O =~ /^mswin/i ) ? qq($self->{dir}/$self->{filename}) # See CPAN RT #61908: gcc doesn't like backslashes on win32? : File::Spec->catfile($self->{dir}, $self->{filename}); # Prime the pump by reading the first # non-blank line # skip leading blank lines while (readline($self->{FH})) { last unless /^\s*$/; } $self->{lastline} = $_; $self->{lastline_no} = $.; } sub QuoteArgs { my $cmd = shift; my @args = split /\s+/, $cmd; $cmd = shift @args; for (@args) { $_ = q(").$_.q(") if !/^\"/ && length($_) > 0; } return join (' ', ($cmd, @args)); } # code copied from CPAN::HandleConfig::safe_quote # - that has doc saying leave if start/finish with same quote, but no code # given text, will conditionally quote it to protect from shell { my ($quote, $use_quote) = $^O eq 'MSWin32' ? (q{"}, q{"}) : (q{"'}, q{'}); sub _safe_quote { my ($self, $command) = @_; # Set up quote/default quote if (defined($command) and $command =~ /\s/ and $command !~ /[$quote]/) { return qq{$use_quote$command$use_quote} } return $command; } } sub INCLUDE_COMMAND_handler { my $self = shift; $_ = shift; # the rest of the current line should contain a valid command trim_whitespace($_); $_ = QuoteArgs($_) if $^O eq 'VMS'; $self->death("INCLUDE_COMMAND: command missing") unless $_; $self->death("INCLUDE_COMMAND: pipes are illegal") if /^\s*\|/ or /\|\s*$/; $self->PushXSStack( IsPipe => 1 ); $self->{FH} = Symbol::gensym(); # If $^X is used in INCLUDE_COMMAND, we know it's supposed to be # the same perl interpreter as we're currently running my $X = $self->_safe_quote($^X); # quotes if has spaces s/^\s*\$\^X/$X/; # open the new file open ($self->{FH}, "-|", $_) or $self->death( $self, "Cannot run command '$_' to include its output: $!"); print Q(<<"EOF"); # #/* INCLUDE_COMMAND: Including output of '$_' from '$self->{filename}' */ # EOF $self->{filename} = $_; $self->{filepathname} = $self->{filename}; #$self->{filepathname} =~ s/\"/\\"/g; # Fails? See CPAN RT #53938: MinGW Broken after 2.21 $self->{filepathname} =~ s/\\/\\\\/g; # Works according to reporter of #53938 # Prime the pump by reading the first # non-blank line # skip leading blank lines while (readline($self->{FH})) { last unless /^\s*$/; } $self->{lastline} = $_; $self->{lastline_no} = $.; } sub PopFile { my $self = shift; return 0 unless $self->{XSStack}->[-1]{type} eq 'file'; my $data = pop @{ $self->{XSStack} }; my $ThisFile = $self->{filename}; my $isPipe = $data->{IsPipe}; --$self->{IncludedFiles}->{$self->{filename}} unless $isPipe; close $self->{FH}; $self->{FH} = $data->{Handle}; # $filename is the leafname, which for some reason is used for diagnostic # messages, whereas $filepathname is the full pathname, and is used for # #line directives. $self->{filename} = $data->{Filename}; $self->{filepathname} = $data->{Filepathname}; $self->{lastline} = $data->{LastLine}; $self->{lastline_no} = $data->{LastLineNo}; @{ $self->{line} } = @{ $data->{Line} }; @{ $self->{line_no} } = @{ $data->{LineNo} }; if ($isPipe and $? ) { --$self->{lastline_no}; print STDERR "Error reading from pipe '$ThisFile': $! in $self->{filename}, line $self->{lastline_no}\n" ; exit 1; } print Q(<<"EOF"); # #/* INCLUDE: Returning to '$self->{filename}' from '$ThisFile' */ # EOF return 1; } sub Q { my($text) = @_; $text =~ s/^#//gm; $text =~ s/\[\[/{/g; $text =~ s/\]\]/}/g; $text; } # Process "MODULE = Foo ..." lines and update global state accordingly sub _process_module_xs_line { my ($self, $module, $pkg, $prefix) = @_; ($self->{Module_cname} = $module) =~ s/\W/_/g; $self->{Package} = defined($pkg) ? $pkg : ''; $self->{Prefix} = quotemeta( defined($prefix) ? $prefix : '' ); ($self->{Packid} = $self->{Package}) =~ tr/:/_/; $self->{Packprefix} = $self->{Package}; $self->{Packprefix} .= "::" if $self->{Packprefix} ne ""; $self->{lastline} = ""; } # Skip any embedded POD sections sub _maybe_skip_pod { my ($self) = @_; while ($self->{lastline} =~ /^=/) { while ($self->{lastline} = readline($self->{FH})) { last if ($self->{lastline} =~ /^=cut\s*$/); } $self->death("Error: Unterminated pod") unless defined $self->{lastline}; $self->{lastline} = readline($self->{FH}); chomp $self->{lastline}; $self->{lastline} =~ s/^\s+$//; } } # This chunk of code strips out (and parses) embedded TYPEMAP blocks # which support a HEREdoc-alike block syntax. sub _maybe_parse_typemap_block { my ($self) = @_; # This is special cased from the usual paragraph-handler logic # due to the HEREdoc-ish syntax. if ($self->{lastline} =~ /^TYPEMAP\s*:\s*<<\s*(?:(["'])(.+?)\1|([^\s'"]+?))\s*;?\s*$/) { my $end_marker = quotemeta(defined($1) ? $2 : $3); # Scan until we find $end_marker alone on a line. my @tmaplines; while (1) { $self->{lastline} = readline($self->{FH}); $self->death("Error: Unterminated TYPEMAP section") if not defined $self->{lastline}; last if $self->{lastline} =~ /^$end_marker\s*$/; push @tmaplines, $self->{lastline}; } my $tmap = ExtUtils::Typemaps->new( string => join("", @tmaplines), lineno_offset => 1 + ($self->current_line_number() || 0), fake_filename => $self->{filename}, ); $self->{typemap}->merge(typemap => $tmap, replace => 1); $self->{lastline} = ""; } } # Read next xsub into @{ $self->{line} } from ($lastline, readline($self->{FH})). sub fetch_para { my $self = shift; # parse paragraph $self->death("Error: Unterminated '#if/#ifdef/#ifndef'") if !defined $self->{lastline} && $self->{XSStack}->[-1]{type} eq 'if'; @{ $self->{line} } = (); @{ $self->{line_no} } = (); return $self->PopFile() if not defined $self->{lastline}; # EOF if ($self->{lastline} =~ /^MODULE\s*=\s*([\w:]+)(?:\s+PACKAGE\s*=\s*([\w:]+))?(?:\s+PREFIX\s*=\s*(\S+))?\s*$/) { $self->_process_module_xs_line($1, $2, $3); } for (;;) { $self->_maybe_skip_pod; $self->_maybe_parse_typemap_block; if ($self->{lastline} !~ /^\s*#/ # not a CPP directive # CPP directives: # ANSI: if ifdef ifndef elif else endif define undef # line error pragma # gcc: warning include_next # obj-c: import # others: ident (gcc notes that some cpps have this one) || $self->{lastline} =~ /^\#[ \t]* (?: (?:if|ifn?def|elif|else|endif| define|undef|pragma|error| warning|line\s+\d+|ident) \b | (?:include(?:_next)?|import) \s* ["<] .* [>"] ) /x ) { last if $self->{lastline} =~ /^\S/ && @{ $self->{line} } && $self->{line}->[-1] eq ""; push(@{ $self->{line} }, $self->{lastline}); push(@{ $self->{line_no} }, $self->{lastline_no}); } # Read next line and continuation lines last unless defined($self->{lastline} = readline($self->{FH})); $self->{lastline_no} = $.; my $tmp_line; $self->{lastline} .= $tmp_line while ($self->{lastline} =~ /\\$/ && defined($tmp_line = readline($self->{FH}))); chomp $self->{lastline}; $self->{lastline} =~ s/^\s+$//; } # Nuke trailing "line" entries until there's one that's not empty pop(@{ $self->{line} }), pop(@{ $self->{line_no} }) while @{ $self->{line} } && $self->{line}->[-1] eq ""; return 1; } sub output_init { my $self = shift; my $argsref = shift; my ($type, $num, $var, $init, $printed_name) = @{$argsref}{qw(type num var init printed_name)}; # local assign for efficiently passing in to eval_input_typemap_code local $argsref->{arg} = $num ? "ST(" . ($num-1) . ")" : "/* not a parameter */"; if ( $init =~ /^=/ ) { if ($printed_name) { $self->eval_input_typemap_code(qq/print " $init\\n"/, $argsref); } else { $self->eval_input_typemap_code(qq/print "\\t$var $init\\n"/, $argsref); } } else { if ( $init =~ s/^\+// && $num ) { $self->generate_init( { type => $type, num => $num, var => $var, printed_name => $printed_name, } ); } elsif ($printed_name) { print ";\n"; $init =~ s/^;//; } else { $self->eval_input_typemap_code(qq/print "\\t$var;\\n"/, $argsref); $init =~ s/^;//; } $self->{deferred} .= $self->eval_input_typemap_code(qq/"\\n\\t$init\\n"/, $argsref); } } sub generate_init { my $self = shift; my $argsref = shift; my ($type, $num, $var, $printed_name) = @{$argsref}{qw(type num var printed_name)}; my $argoff = $num - 1; my $arg = "ST($argoff)"; my $typemaps = $self->{typemap}; $type = ExtUtils::Typemaps::tidy_type($type); if (not $typemaps->get_typemap(ctype => $type)) { $self->report_typemap_failure($typemaps, $type); return; } (my $ntype = $type) =~ s/\s*\*/Ptr/g; (my $subtype = $ntype) =~ s/(?:Array)?(?:Ptr)?$//; my $typem = $typemaps->get_typemap(ctype => $type); my $xstype = $typem->xstype; #this is an optimization from perl 5.0 alpha 6, class check is skipped #T_REF_IV_REF is missing since it has no untyped analog at the moment $xstype =~ s/OBJ$/REF/ || $xstype =~ s/^T_REF_IV_PTR$/T_PTRREF/ if $self->{func_name} =~ /DESTROY$/; if ($xstype eq 'T_PV' and exists $self->{lengthof}->{$var}) { print "\t$var" unless $printed_name; print " = ($type)SvPV($arg, STRLEN_length_of_$var);\n"; die "default value not supported with length(NAME) supplied" if defined $self->{defaults}->{$var}; return; } $type =~ tr/:/_/ unless $self->{RetainCplusplusHierarchicalTypes}; my $inputmap = $typemaps->get_inputmap(xstype => $xstype); if (not defined $inputmap) { $self->blurt("Error: No INPUT definition for type '$type', typekind '$xstype' found"); return; } my $expr = $inputmap->cleaned_code; # Note: This gruesome bit either needs heavy rethinking or documentation. I vote for the former. --Steffen if ($expr =~ /DO_ARRAY_ELEM/) { my $subtypemap = $typemaps->get_typemap(ctype => $subtype); if (not $subtypemap) { $self->report_typemap_failure($typemaps, $subtype); return; } my $subinputmap = $typemaps->get_inputmap(xstype => $subtypemap->xstype); if (not $subinputmap) { $self->blurt("Error: No INPUT definition for type '$subtype', typekind '" . $subtypemap->xstype . "' found"); return; } my $subexpr = $subinputmap->cleaned_code; $subexpr =~ s/\$type/\$subtype/g; $subexpr =~ s/ntype/subtype/g; $subexpr =~ s/\$arg/ST(ix_$var)/g; $subexpr =~ s/\n\t/\n\t\t/g; $subexpr =~ s/is not of (.*\")/[arg %d] is not of $1, ix_$var + 1/g; $subexpr =~ s/\$var/${var}\[ix_$var - $argoff]/; $expr =~ s/DO_ARRAY_ELEM/$subexpr/; } if ($expr =~ m#/\*.*scope.*\*/#i) { # "scope" in C comments $self->{ScopeThisXSUB} = 1; } my $eval_vars = { var => $var, printed_name => $printed_name, type => $type, ntype => $ntype, subtype => $subtype, num => $num, arg => $arg, argoff => $argoff, }; if (defined($self->{defaults}->{$var})) { $expr =~ s/(\t+)/$1 /g; $expr =~ s/ /\t/g; if ($printed_name) { print ";\n"; } else { $self->eval_input_typemap_code(qq/print "\\t$var;\\n"/, $eval_vars); } if ($self->{defaults}->{$var} eq 'NO_INIT') { $self->{deferred} .= $self->eval_input_typemap_code( qq/"\\n\\tif (items >= $num) {\\n$expr;\\n\\t}\\n"/, $eval_vars ); } else { $self->{deferred} .= $self->eval_input_typemap_code( qq/"\\n\\tif (items < $num)\\n\\t $var = $self->{defaults}->{$var};\\n\\telse {\\n$expr;\\n\\t}\\n"/, $eval_vars ); } } elsif ($self->{ScopeThisXSUB} or $expr !~ /^\s*\$var =/) { if ($printed_name) { print ";\n"; } else { $self->eval_input_typemap_code(qq/print "\\t$var;\\n"/, $eval_vars); } $self->{deferred} .= $self->eval_input_typemap_code(qq/"\\n$expr;\\n"/, $eval_vars); } else { die "panic: do not know how to handle this branch for function pointers" if $printed_name; $self->eval_input_typemap_code(qq/print "$expr;\\n"/, $eval_vars); } } sub generate_output { my $self = shift; my $argsref = shift; my ($type, $num, $var, $do_setmagic, $do_push) = @{$argsref}{qw(type num var do_setmagic do_push)}; my $arg = "ST(" . ($num - ($num != 0)) . ")"; my $typemaps = $self->{typemap}; $type = ExtUtils::Typemaps::tidy_type($type); local $argsref->{type} = $type; if ($type =~ /^array\(([^,]*),(.*)\)/) { print "\t$arg = sv_newmortal();\n"; print "\tsv_setpvn($arg, (char *)$var, $2 * sizeof($1));\n"; print "\tSvSETMAGIC($arg);\n" if $do_setmagic; } else { my $typemap = $typemaps->get_typemap(ctype => $type); if (not $typemap) { $self->report_typemap_failure($typemaps, $type); return; } my $outputmap = $typemaps->get_outputmap(xstype => $typemap->xstype); if (not $outputmap) { $self->blurt("Error: No OUTPUT definition for type '$type', typekind '" . $typemap->xstype . "' found"); return; } (my $ntype = $type) =~ s/\s*\*/Ptr/g; $ntype =~ s/\(\)//g; (my $subtype = $ntype) =~ s/(?:Array)?(?:Ptr)?$//; my $eval_vars = {%$argsref, subtype => $subtype, ntype => $ntype, arg => $arg}; my $expr = $outputmap->cleaned_code; if ($expr =~ /DO_ARRAY_ELEM/) { my $subtypemap = $typemaps->get_typemap(ctype => $subtype); if (not $subtypemap) { $self->report_typemap_failure($typemaps, $subtype); return; } my $suboutputmap = $typemaps->get_outputmap(xstype => $subtypemap->xstype); if (not $suboutputmap) { $self->blurt("Error: No OUTPUT definition for type '$subtype', typekind '" . $subtypemap->xstype . "' found"); return; } my $subexpr = $suboutputmap->cleaned_code; $subexpr =~ s/ntype/subtype/g; $subexpr =~ s/\$arg/ST(ix_$var)/g; $subexpr =~ s/\$var/${var}\[ix_$var]/g; $subexpr =~ s/\n\t/\n\t\t/g; $expr =~ s/DO_ARRAY_ELEM\n/$subexpr/; $self->eval_output_typemap_code("print qq\a$expr\a", $eval_vars); print "\t\tSvSETMAGIC(ST(ix_$var));\n" if $do_setmagic; } elsif ($var eq 'RETVAL') { my $orig_arg = $arg; my $indent; my $use_RETVALSV = 1; my $do_mortal = 0; my $do_copy_tmp = 1; my $pre_expr; local $eval_vars->{arg} = $arg = 'RETVALSV'; my $evalexpr = $self->eval_output_typemap_code("qq\a$expr\a", $eval_vars); if ($expr =~ /^\t\Q$arg\E = new/) { # We expect that $arg has refcnt 1, so we need to # mortalize it. $do_mortal = 1; } # If RETVAL is immortal, don't mortalize it. This code is not perfect: # It won't detect a func or expression that only returns immortals, for # example, this RE must be tried before next elsif. elsif ($evalexpr =~ /^\t\Q$arg\E\s*=\s*(boolSV\(|(&PL_sv_yes|&PL_sv_no|&PL_sv_undef)\s*;)/) { $do_copy_tmp = 0; #$arg will be a ST(X), no SV* RETVAL, no RETVALSV $use_RETVALSV = 0; } elsif ($evalexpr =~ /^\s*\Q$arg\E\s*=/) { # We expect that $arg has refcnt >=1, so we need # to mortalize it! $use_RETVALSV = 0 if $ntype eq "SVPtr";#reuse SV* RETVAL vs open new block $do_mortal = 1; } else { # Just hope that the entry would safely write it # over an already mortalized value. By # coincidence, something like $arg = &PL_sv_undef # works too, but should be caught above. $pre_expr = "RETVALSV = sv_newmortal();\n"; # new mortals don't have set magic $do_setmagic = 0; } if($use_RETVALSV) { print "\t{\n\t SV * RETVALSV;\n"; $indent = "\t "; } else { $indent = "\t"; } print $indent.$pre_expr if $pre_expr; if($use_RETVALSV) { #take control of 1 layer of indent, may or may not indent more $evalexpr =~ s/^(\t| )/$indent/gm; #"\t \t" doesn't draw right in some IDEs #break down all \t into spaces $evalexpr =~ s/\t/ /g; #rebuild back into \t'es, \t==8 spaces, indent==4 spaces $evalexpr =~ s/ /\t/g; } else { if($do_mortal || $do_setmagic) { #typemap entry evaled with RETVALSV, if we aren't using RETVALSV replace $evalexpr =~ s/RETVALSV/RETVAL/g; #all uses with RETVAL for prettier code } else { #if no extra boilerplate (no mortal, no set magic) is needed #after $evalexport, get rid of RETVALSV's visual cluter and change $evalexpr =~ s/RETVALSV/$orig_arg/g;#the lvalue to ST(X) } } #stop " RETVAL = RETVAL;" for SVPtr type print $evalexpr if $evalexpr !~ /^\s*RETVAL = RETVAL;$/; print $indent.'RETVAL'.($use_RETVALSV ? 'SV':'') .' = sv_2mortal(RETVAL'.($use_RETVALSV ? 'SV':'').");\n" if $do_mortal; print $indent.'SvSETMAGIC(RETVAL'.($use_RETVALSV ? 'SV':'').");\n" if $do_setmagic; #dont do "RETVALSV = boolSV(RETVAL); ST(0) = RETVALSV;", it is visual clutter print $indent."$orig_arg = RETVAL".($use_RETVALSV ? 'SV':'').";\n" if $do_mortal || $do_setmagic || $do_copy_tmp; print "\t}\n" if $use_RETVALSV; } elsif ($do_push) { print "\tPUSHs(sv_newmortal());\n"; local $eval_vars->{arg} = "ST($num)"; $self->eval_output_typemap_code("print qq\a$expr\a", $eval_vars); print "\tSvSETMAGIC($arg);\n" if $do_setmagic; } elsif ($arg =~ /^ST\(\d+\)$/) { $self->eval_output_typemap_code("print qq\a$expr\a", $eval_vars); print "\tSvSETMAGIC($arg);\n" if $do_setmagic; } } } # Just delegates to a clean package. # Shim to evaluate Perl code in the right variable context # for typemap code (having things such as $ALIAS set up). sub eval_output_typemap_code { my ($self, $code, $other) = @_; return ExtUtils::ParseXS::Eval::eval_output_typemap_code($self, $code, $other); } sub eval_input_typemap_code { my ($self, $code, $other) = @_; return ExtUtils::ParseXS::Eval::eval_input_typemap_code($self, $code, $other); } 1; # vim: ts=2 sw=2 et: PK ! ��du�: �: 5.34.0/ExtUtils/Constant.pmnu �[��� package ExtUtils::Constant; use vars qw (@ISA $VERSION @EXPORT_OK %EXPORT_TAGS); $VERSION = '0.25'; =head1 NAME ExtUtils::Constant - generate XS code to import C header constants =head1 SYNOPSIS use ExtUtils::Constant qw (WriteConstants); WriteConstants( NAME => 'Foo', NAMES => [qw(FOO BAR BAZ)], ); # Generates wrapper code to make the values of the constants FOO BAR BAZ # available to perl =head1 DESCRIPTION ExtUtils::Constant facilitates generating C and XS wrapper code to allow perl modules to AUTOLOAD constants defined in C library header files. It is principally used by the C<h2xs> utility, on which this code is based. It doesn't contain the routines to scan header files to extract these constants. =head1 USAGE Generally one only needs to call the C<WriteConstants> function, and then #include "const-c.inc" in the C section of C<Foo.xs> INCLUDE: const-xs.inc in the XS section of C<Foo.xs>. For greater flexibility use C<constant_types()>, C<C_constant> and C<XS_constant>, with which C<WriteConstants> is implemented. Currently this module understands the following types. h2xs may only know a subset. The sizes of the numeric types are chosen by the C<Configure> script at compile time. =over 4 =item IV signed integer, at least 32 bits. =item UV unsigned integer, the same size as I<IV> =item NV floating point type, probably C<double>, possibly C<long double> =item PV NUL terminated string, length will be determined with C<strlen> =item PVN A fixed length thing, given as a [pointer, length] pair. If you know the length of a string at compile time you may use this instead of I<PV> =item SV A B<mortal> SV. =item YES Truth. (C<PL_sv_yes>) The value is not needed (and ignored). =item NO Defined Falsehood. (C<PL_sv_no>) The value is not needed (and ignored). =item UNDEF C<undef>. The value of the macro is not needed. =back =head1 FUNCTIONS =over 4 =cut if ($] >= 5.006) { eval "use warnings; 1" or die $@; } use strict; use Carp qw(croak cluck); use Exporter; use ExtUtils::Constant::Utils qw(C_stringify); use ExtUtils::Constant::XS qw(%XS_Constant %XS_TypeSet); @ISA = 'Exporter'; %EXPORT_TAGS = ( 'all' => [ qw( XS_constant constant_types return_clause memEQ_clause C_stringify C_constant autoload WriteConstants WriteMakefileSnippet ) ] ); @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); =item constant_types A function returning a single scalar with C<#define> definitions for the constants used internally between the generated C and XS functions. =cut sub constant_types { ExtUtils::Constant::XS->header(); } sub memEQ_clause { cluck "ExtUtils::Constant::memEQ_clause is deprecated"; ExtUtils::Constant::XS->memEQ_clause({name=>$_[0], checked_at=>$_[1], indent=>$_[2]}); } sub return_clause ($$) { cluck "ExtUtils::Constant::return_clause is deprecated"; my $indent = shift; ExtUtils::Constant::XS->return_clause({indent=>$indent}, @_); } sub switch_clause { cluck "ExtUtils::Constant::switch_clause is deprecated"; my $indent = shift; my $comment = shift; ExtUtils::Constant::XS->switch_clause({indent=>$indent, comment=>$comment}, @_); } sub C_constant { my ($package, $subname, $default_type, $what, $indent, $breakout, @items) = @_; ExtUtils::Constant::XS->C_constant({package => $package, subname => $subname, default_type => $default_type, types => $what, indent => $indent, breakout => $breakout}, @items); } =item XS_constant PACKAGE, TYPES, XS_SUBNAME, C_SUBNAME A function to generate the XS code to implement the perl subroutine I<PACKAGE>::constant used by I<PACKAGE>::AUTOLOAD to load constants. This XS code is a wrapper around a C subroutine usually generated by C<C_constant>, and usually named C<constant>. I<TYPES> should be given either as a comma separated list of types that the C subroutine C<constant> will generate or as a reference to a hash. It should be the same list of types as C<C_constant> was given. [Otherwise C<XS_constant> and C<C_constant> may have different ideas about the number of parameters passed to the C function C<constant>] You can call the perl visible subroutine something other than C<constant> if you give the parameter I<XS_SUBNAME>. The C subroutine it calls defaults to the name of the perl visible subroutine, unless you give the parameter I<C_SUBNAME>. =cut sub XS_constant { my $package = shift; my $what = shift; my $XS_subname = shift; my $C_subname = shift; $XS_subname ||= 'constant'; $C_subname ||= $XS_subname; if (!ref $what) { # Convert line of the form IV,UV,NV to hash $what = {map {$_ => 1} split /,\s*/, ($what)}; } my $params = ExtUtils::Constant::XS->params ($what); my $type; my $xs = <<"EOT"; void $XS_subname(sv) PREINIT: #ifdef dXSTARG dXSTARG; /* Faster if we have it. */ #else dTARGET; #endif STRLEN len; int type; EOT if ($params->{IV}) { $xs .= " IV iv = 0; /* avoid uninit var warning */\n"; } else { $xs .= " /* IV\t\tiv;\tUncomment this if you need to return IVs */\n"; } if ($params->{NV}) { $xs .= " NV nv = 0.0; /* avoid uninit var warning */\n"; } else { $xs .= " /* NV\t\tnv;\tUncomment this if you need to return NVs */\n"; } if ($params->{PV}) { $xs .= " const char *pv = NULL; /* avoid uninit var warning */\n"; } else { $xs .= " /* const char\t*pv;\tUncomment this if you need to return PVs */\n"; } $xs .= << 'EOT'; INPUT: SV * sv; const char * s = SvPV(sv, len); EOT if ($params->{''}) { $xs .= << 'EOT'; INPUT: int utf8 = SvUTF8(sv); EOT } $xs .= << 'EOT'; PPCODE: EOT if ($params->{IV} xor $params->{NV}) { $xs .= << "EOT"; /* Change this to $C_subname(aTHX_ s, len, &iv, &nv); if you need to return both NVs and IVs */ EOT } $xs .= " type = $C_subname(aTHX_ s, len"; $xs .= ', utf8' if $params->{''}; $xs .= ', &iv' if $params->{IV}; $xs .= ', &nv' if $params->{NV}; $xs .= ', &pv' if $params->{PV}; $xs .= ', &sv' if $params->{SV}; $xs .= ");\n"; # If anyone is insane enough to suggest a package name containing % my $package_sprintf_safe = $package; $package_sprintf_safe =~ s/%/%%/g; $xs .= << "EOT"; /* Return 1 or 2 items. First is error message, or undef if no error. Second, if present, is found value */ switch (type) { case PERL_constant_NOTFOUND: sv = sv_2mortal(newSVpvf("%s is not a valid $package_sprintf_safe macro", s)); PUSHs(sv); break; case PERL_constant_NOTDEF: sv = sv_2mortal(newSVpvf( "Your vendor has not defined $package_sprintf_safe macro %s, used", s)); PUSHs(sv); break; EOT foreach $type (sort keys %XS_Constant) { # '' marks utf8 flag needed. next if $type eq ''; $xs .= "\t/* Uncomment this if you need to return ${type}s\n" unless $what->{$type}; $xs .= " case PERL_constant_IS$type:\n"; if (length $XS_Constant{$type}) { $xs .= << "EOT"; EXTEND(SP, 2); PUSHs(&PL_sv_undef); $XS_Constant{$type}; EOT } else { # Do nothing. return (), which will be correctly interpreted as # (undef, undef) } $xs .= " break;\n"; unless ($what->{$type}) { chop $xs; # Yes, another need for chop not chomp. $xs .= " */\n"; } } $xs .= << "EOT"; default: sv = sv_2mortal(newSVpvf( "Unexpected return type %d while processing $package_sprintf_safe macro %s, used", type, s)); PUSHs(sv); } EOT return $xs; } =item autoload PACKAGE, VERSION, AUTOLOADER A function to generate the AUTOLOAD subroutine for the module I<PACKAGE> I<VERSION> is the perl version the code should be backwards compatible with. It defaults to the version of perl running the subroutine. If I<AUTOLOADER> is true, the AUTOLOAD subroutine falls back on AutoLoader::AUTOLOAD for all names that the constant() routine doesn't recognise. =cut # ' # Grr. syntax highlighters that don't grok pod. sub autoload { my ($module, $compat_version, $autoloader) = @_; $compat_version ||= $]; croak "Can't maintain compatibility back as far as version $compat_version" if $compat_version < 5; my $func = "sub AUTOLOAD {\n" . " # This AUTOLOAD is used to 'autoload' constants from the constant()\n" . " # XS function."; $func .= " If a constant is not found then control is passed\n" . " # to the AUTOLOAD in AutoLoader." if $autoloader; $func .= "\n\n" . " my \$constname;\n"; $func .= " our \$AUTOLOAD;\n" if ($compat_version >= 5.006); $func .= <<"EOT"; (\$constname = \$AUTOLOAD) =~ s/.*:://; croak "&${module}::constant not defined" if \$constname eq 'constant'; my (\$error, \$val) = constant(\$constname); EOT if ($autoloader) { $func .= <<'EOT'; if ($error) { if ($error =~ /is not a valid/) { $AutoLoader::AUTOLOAD = $AUTOLOAD; goto &AutoLoader::AUTOLOAD; } else { croak $error; } } EOT } else { $func .= " if (\$error) { croak \$error; }\n"; } $func .= <<'END'; { no strict 'refs'; # Fixed between 5.005_53 and 5.005_61 #XXX if ($] >= 5.00561) { #XXX *$AUTOLOAD = sub () { $val }; #XXX } #XXX else { *$AUTOLOAD = sub { $val }; #XXX } } goto &$AUTOLOAD; } END return $func; } =item WriteMakefileSnippet WriteMakefileSnippet ATTRIBUTE =E<gt> VALUE [, ...] A function to generate perl code for Makefile.PL that will regenerate the constant subroutines. Parameters are named as passed to C<WriteConstants>, with the addition of C<INDENT> to specify the number of leading spaces (default 2). Currently only C<INDENT>, C<NAME>, C<DEFAULT_TYPE>, C<NAMES>, C<C_FILE> and C<XS_FILE> are recognised. =cut sub WriteMakefileSnippet { my %args = @_; my $indent = $args{INDENT} || 2; my $result = <<"EOT"; ExtUtils::Constant::WriteConstants( NAME => '$args{NAME}', NAMES => \\\@names, DEFAULT_TYPE => '$args{DEFAULT_TYPE}', EOT foreach (qw (C_FILE XS_FILE)) { next unless exists $args{$_}; $result .= sprintf " %-12s => '%s',\n", $_, $args{$_}; } $result .= <<'EOT'; ); EOT $result =~ s/^/' 'x$indent/gem; return ExtUtils::Constant::XS->dump_names({default_type=>$args{DEFAULT_TYPE}, indent=>$indent,}, @{$args{NAMES}}) . $result; } =item WriteConstants ATTRIBUTE =E<gt> VALUE [, ...] Writes a file of C code and a file of XS code which you should C<#include> and C<INCLUDE> in the C and XS sections respectively of your module's XS code. You probably want to do this in your C<Makefile.PL>, so that you can easily edit the list of constants without touching the rest of your module. The attributes supported are =over 4 =item NAME Name of the module. This must be specified =item DEFAULT_TYPE The default type for the constants. If not specified C<IV> is assumed. =item BREAKOUT_AT The names of the constants are grouped by length. Generate child subroutines for each group with this number or more names in. =item NAMES An array of constants' names, either scalars containing names, or hashrefs as detailed in L<"C_constant">. =item PROXYSUBS If true, uses proxy subs. See L<ExtUtils::Constant::ProxySubs>. =item C_FH A filehandle to write the C code to. If not given, then I<C_FILE> is opened for writing. =item C_FILE The name of the file to write containing the C code. The default is C<const-c.inc>. The C<-> in the name ensures that the file can't be mistaken for anything related to a legitimate perl package name, and not naming the file C<.c> avoids having to override Makefile.PL's C<.xs> to C<.c> rules. =item XS_FH A filehandle to write the XS code to. If not given, then I<XS_FILE> is opened for writing. =item XS_FILE The name of the file to write containing the XS code. The default is C<const-xs.inc>. =item XS_SUBNAME The perl visible name of the XS subroutine generated which will return the constants. The default is C<constant>. =item C_SUBNAME The name of the C subroutine generated which will return the constants. The default is I<XS_SUBNAME>. Child subroutines have C<_> and the name length appended, so constants with 10 character names would be in C<constant_10> with the default I<XS_SUBNAME>. =back =cut sub WriteConstants { my %ARGS = ( # defaults C_FILE => 'const-c.inc', XS_FILE => 'const-xs.inc', XS_SUBNAME => 'constant', DEFAULT_TYPE => 'IV', @_); $ARGS{C_SUBNAME} ||= $ARGS{XS_SUBNAME}; # No-one sane will have C_SUBNAME eq '0' croak "Module name not specified" unless length $ARGS{NAME}; # Do this before creating (empty) files, in case it fails: require ExtUtils::Constant::ProxySubs if $ARGS{PROXYSUBS}; my $c_fh = $ARGS{C_FH}; if (!$c_fh) { if ($] <= 5.008) { # We need these little games, rather than doing things # unconditionally, because we're used in core Makefile.PLs before # IO is available (needed by filehandle), but also we want to work on # older perls where undefined scalars do not automatically turn into # anonymous file handles. require FileHandle; $c_fh = FileHandle->new(); } open $c_fh, ">$ARGS{C_FILE}" or die "Can't open $ARGS{C_FILE}: $!"; } my $xs_fh = $ARGS{XS_FH}; if (!$xs_fh) { if ($] <= 5.008) { require FileHandle; $xs_fh = FileHandle->new(); } open $xs_fh, ">$ARGS{XS_FILE}" or die "Can't open $ARGS{XS_FILE}: $!"; } # As this subroutine is intended to make code that isn't edited, there's no # need for the user to specify any types that aren't found in the list of # names. if ($ARGS{PROXYSUBS}) { $ARGS{C_FH} = $c_fh; $ARGS{XS_FH} = $xs_fh; ExtUtils::Constant::ProxySubs->WriteConstants(%ARGS); } else { my $types = {}; print $c_fh constant_types(); # macro defs print $c_fh "\n"; # indent is still undef. Until anyone implements indent style rules with # it. foreach (ExtUtils::Constant::XS->C_constant({package => $ARGS{NAME}, subname => $ARGS{C_SUBNAME}, default_type => $ARGS{DEFAULT_TYPE}, types => $types, breakout => $ARGS{BREAKOUT_AT}}, @{$ARGS{NAMES}})) { print $c_fh $_, "\n"; # C constant subs } print $xs_fh XS_constant ($ARGS{NAME}, $types, $ARGS{XS_SUBNAME}, $ARGS{C_SUBNAME}); } close $c_fh or warn "Error closing $ARGS{C_FILE}: $!" unless $ARGS{C_FH}; close $xs_fh or warn "Error closing $ARGS{XS_FILE}: $!" unless $ARGS{XS_FH}; } 1; __END__ =back =head1 AUTHOR Nicholas Clark <nick@ccl4.org> based on the code in C<h2xs> by Larry Wall and others =cut PK ! �.�YL L % 5.34.0/ExtUtils/Typemaps/OutputMap.pmnu �[��� package ExtUtils::Typemaps::OutputMap; use 5.006001; use strict; use warnings; our $VERSION = '3.43'; =head1 NAME ExtUtils::Typemaps::OutputMap - Entry in the OUTPUT section of a typemap =head1 SYNOPSIS use ExtUtils::Typemaps; ... my $output = $typemap->get_output_map('T_NV'); my $code = $output->code(); $output->code("..."); =head1 DESCRIPTION Refer to L<ExtUtils::Typemaps> for details. =head1 METHODS =cut =head2 new Requires C<xstype> and C<code> parameters. =cut sub new { my $prot = shift; my $class = ref($prot)||$prot; my %args = @_; if (!ref($prot)) { if (not defined $args{xstype} or not defined $args{code}) { die("Need xstype and code parameters"); } } my $self = bless( (ref($prot) ? {%$prot} : {}) => $class ); $self->{xstype} = $args{xstype} if defined $args{xstype}; $self->{code} = $args{code} if defined $args{code}; $self->{code} =~ s/^(?=\S)/\t/mg; return $self; } =head2 code Returns or sets the OUTPUT mapping code for this entry. =cut sub code { $_[0]->{code} = $_[1] if @_ > 1; return $_[0]->{code}; } =head2 xstype Returns the name of the XS type of the OUTPUT map. =cut sub xstype { return $_[0]->{xstype}; } =head2 cleaned_code Returns a cleaned-up copy of the code to which certain transformations have been applied to make it more ANSI compliant. =cut sub cleaned_code { my $self = shift; my $code = $self->code; # Move C pre-processor instructions to column 1 to be strictly ANSI # conformant. Some pre-processors are fussy about this. $code =~ s/^\s+#/#/mg; $code =~ s/\s*\z/\n/; return $code; } =head2 targetable This is an obscure but effective optimization that used to live in C<ExtUtils::ParseXS> directly. Not implementing it should never result in incorrect use of typemaps, just less efficient code. In a nutshell, this will check whether the output code involves calling C<sv_setiv>, C<sv_setuv>, C<sv_setnv>, C<sv_setpv> or C<sv_setpvn> to set the special C<$arg> placeholder to a new value B<AT THE END OF THE OUTPUT CODE>. If that is the case, the code is eligible for using the C<TARG>-related macros to optimize this. Thus the name of the method: C<targetable>. If this optimization is applicable, C<ExtUtils::ParseXS> will emit a C<dXSTARG;> definition at the start of the generated XSUB code, and type (see below) dependent code to set C<TARG> and push it on the stack at the end of the generated XSUB code. If the optimization can not be applied, this returns undef. If it can be applied, this method returns a hash reference containing the following information: type: Any of the characters i, u, n, p with_size: Bool indicating whether this is the sv_setpvn variant what: The code that actually evaluates to the output scalar what_size: If "with_size", this has the string length (as code, not constant, including leading comma) =cut sub targetable { my $self = shift; return $self->{targetable} if exists $self->{targetable}; our $bal; # ()-balanced $bal = qr[ (?: (?>[^()]+) | \( (??{ $bal }) \) )* ]x; my $bal_no_comma = qr[ (?: (?>[^(),]+) | \( (??{ $bal }) \) )+ ]x; # matches variations on (SV*) my $sv_cast = qr[ (?: \( \s* SV \s* \* \s* \) \s* )? ]x; my $size = qr[ # Third arg (to setpvn) , \s* (??{ $bal }) ]xo; my $code = $self->code; # We can still bootstrap compile 're', because in code re.pm is # available to miniperl, and does not attempt to load the XS code. use re 'eval'; my ($type, $with_size, $arg, $sarg) = ($code =~ m[^ \s+ sv_set([iunp])v(n)? # Type, is_setpvn \s* \( \s* $sv_cast \$arg \s* , \s* ( $bal_no_comma ) # Set from ( $size )? # Possible sizeof set-from \s* \) \s* ; \s* $ ]xo ); my $rv = undef; if ($type) { $rv = { type => $type, with_size => $with_size, what => $arg, what_size => $sarg, }; } $self->{targetable} = $rv; return $rv; } =head1 SEE ALSO L<ExtUtils::Typemaps> =head1 AUTHOR Steffen Mueller C<<smueller@cpan.org>> =head1 COPYRIGHT & LICENSE Copyright 2009, 2010, 2011, 2012 Steffen Mueller This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut 1; PK ! $a��% % 5.34.0/ExtUtils/Typemaps/Type.pmnu �[��� package ExtUtils::Typemaps::Type; use 5.006001; use strict; use warnings; require ExtUtils::Typemaps; our $VERSION = '3.43'; =head1 NAME ExtUtils::Typemaps::Type - Entry in the TYPEMAP section of a typemap =head1 SYNOPSIS use ExtUtils::Typemaps; ... my $type = $typemap->get_type_map('char*'); my $input = $typemap->get_input_map($type->xstype); =head1 DESCRIPTION Refer to L<ExtUtils::Typemaps> for details. Object associates C<ctype> with C<xstype>, which is the index into the in- and output mapping tables. =head1 METHODS =cut =head2 new Requires C<xstype> and C<ctype> parameters. Optionally takes C<prototype> parameter. =cut sub new { my $prot = shift; my $class = ref($prot)||$prot; my %args = @_; if (!ref($prot)) { if (not defined $args{xstype} or not defined $args{ctype}) { die("Need xstype and ctype parameters"); } } my $self = bless( (ref($prot) ? {%$prot} : {proto => ''}) => $class ); $self->{xstype} = $args{xstype} if defined $args{xstype}; $self->{ctype} = $args{ctype} if defined $args{ctype}; $self->{tidy_ctype} = ExtUtils::Typemaps::tidy_type($self->{ctype}); $self->{proto} = $args{'prototype'} if defined $args{'prototype'}; return $self; } =head2 proto Returns or sets the prototype. =cut sub proto { $_[0]->{proto} = $_[1] if @_ > 1; return $_[0]->{proto}; } =head2 xstype Returns the name of the XS type that this C type is associated to. =cut sub xstype { return $_[0]->{xstype}; } =head2 ctype Returns the name of the C type as it was set on construction. =cut sub ctype { return defined($_[0]->{ctype}) ? $_[0]->{ctype} : $_[0]->{tidy_ctype}; } =head2 tidy_ctype Returns the canonicalized name of the C type. =cut sub tidy_ctype { return $_[0]->{tidy_ctype}; } =head1 SEE ALSO L<ExtUtils::Typemaps> =head1 AUTHOR Steffen Mueller C<<smueller@cpan.org>> =head1 COPYRIGHT & LICENSE Copyright 2009, 2010, 2011, 2012 Steffen Mueller This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut 1; PK ! .��� � $ 5.34.0/ExtUtils/Typemaps/InputMap.pmnu �[��� package ExtUtils::Typemaps::InputMap; use 5.006001; use strict; use warnings; our $VERSION = '3.43'; =head1 NAME ExtUtils::Typemaps::InputMap - Entry in the INPUT section of a typemap =head1 SYNOPSIS use ExtUtils::Typemaps; ... my $input = $typemap->get_input_map('T_NV'); my $code = $input->code(); $input->code("..."); =head1 DESCRIPTION Refer to L<ExtUtils::Typemaps> for details. =head1 METHODS =cut =head2 new Requires C<xstype> and C<code> parameters. =cut sub new { my $prot = shift; my $class = ref($prot)||$prot; my %args = @_; if (!ref($prot)) { if (not defined $args{xstype} or not defined $args{code}) { die("Need xstype and code parameters"); } } my $self = bless( (ref($prot) ? {%$prot} : {}) => $class ); $self->{xstype} = $args{xstype} if defined $args{xstype}; $self->{code} = $args{code} if defined $args{code}; $self->{code} =~ s/^(?=\S)/\t/mg; return $self; } =head2 code Returns or sets the INPUT mapping code for this entry. =cut sub code { $_[0]->{code} = $_[1] if @_ > 1; return $_[0]->{code}; } =head2 xstype Returns the name of the XS type of the INPUT map. =cut sub xstype { return $_[0]->{xstype}; } =head2 cleaned_code Returns a cleaned-up copy of the code to which certain transformations have been applied to make it more ANSI compliant. =cut sub cleaned_code { my $self = shift; my $code = $self->code; $code =~ s/(?:;+\s*|;*\s+)\z//s; # Move C pre-processor instructions to column 1 to be strictly ANSI # conformant. Some pre-processors are fussy about this. $code =~ s/^\s+#/#/mg; $code =~ s/\s*\z/\n/; return $code; } =head1 SEE ALSO L<ExtUtils::Typemaps> =head1 AUTHOR Steffen Mueller C<<smueller@cpan.org>> =head1 COPYRIGHT & LICENSE Copyright 2009, 2010, 2011, 2012 Steffen Mueller This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut 1; PK ! �i>!% % 5.34.0/ExtUtils/Typemaps/Cmd.pmnu �[��� package ExtUtils::Typemaps::Cmd; use 5.006001; use strict; use warnings; our $VERSION = '3.43'; use ExtUtils::Typemaps; require Exporter; our @ISA = qw(Exporter); our @EXPORT = qw(embeddable_typemap); our %EXPORT_TAGS = (all => \@EXPORT); sub embeddable_typemap { my @tms = @_; # Get typemap objects my @tm_objs = map [$_, _intuit_typemap_source($_)], @tms; # merge or short-circuit my $final_tm; if (@tm_objs == 1) { # just one, merge would be pointless $final_tm = shift(@tm_objs)->[1]; } else { # multiple, need merge $final_tm = ExtUtils::Typemaps->new; foreach my $other_tm (@tm_objs) { my ($tm_ident, $tm_obj) = @$other_tm; eval { $final_tm->merge(typemap => $tm_obj); 1 } or do { my $err = $@ || 'Zombie error'; die "Failed to merge typ"; } } } # stringify for embedding return $final_tm->as_embedded_typemap(); } sub _load_module { my $name = shift; return eval "require $name; 1"; } SCOPE: { my %sources = ( module => sub { my $ident = shift; my $tm; if (/::/) { # looks like FQ module name, try that first foreach my $module ($ident, "ExtUtils::Typemaps::$ident") { if (_load_module($module)) { eval { $tm = $module->new } and return $tm; } } } else { foreach my $module ("ExtUtils::Typemaps::$ident", "$ident") { if (_load_module($module)) { eval { $tm = $module->new } and return $tm; } } } return(); }, file => sub { my $ident = shift; return unless -e $ident and -r _; return ExtUtils::Typemaps->new(file => $ident); }, ); # Try to find typemap either from module or file sub _intuit_typemap_source { my $identifier = shift; my @locate_attempts; if ($identifier =~ /::/ || $identifier !~ /[^\w_]/) { @locate_attempts = qw(module file); } else { @locate_attempts = qw(file module); } foreach my $source (@locate_attempts) { my $tm = $sources{$source}->($identifier); return $tm if defined $tm; } die "Unable to find typemap for '$identifier': " . "Tried to load both as file or module and failed.\n"; } } # end SCOPE =head1 NAME ExtUtils::Typemaps::Cmd - Quick commands for handling typemaps =head1 SYNOPSIS From XS: INCLUDE_COMMAND: $^X -MExtUtils::Typemaps::Cmd \ -e "print embeddable_typemap(q{Excommunicated})" Loads C<ExtUtils::Typemaps::Excommunicated>, instantiates an object, and dumps it as an embeddable typemap for use directly in your XS file. =head1 DESCRIPTION This is a helper module for L<ExtUtils::Typemaps> for quick one-liners, specifically for inclusion of shared typemaps that live on CPAN into an XS file (see SYNOPSIS). For this reason, the following functions are exported by default: =head1 EXPORTED FUNCTIONS =head2 embeddable_typemap Given a list of identifiers, C<embeddable_typemap> tries to load typemaps from a file of the given name(s), or from a module that is an C<ExtUtils::Typemaps> subclass. Returns a string representation of the merged typemaps that can be included verbatim into XS. Example: print embeddable_typemap( "Excommunicated", "ExtUtils::Typemaps::Basic", "./typemap" ); This will try to load a module C<ExtUtils::Typemaps::Excommunicated> and use it as an C<ExtUtils::Typemaps> subclass. If that fails, it'll try loading C<Excommunicated> as a module, if that fails, it'll try to read a file called F<Excommunicated>. It'll work similarly for the second argument, but the third will be loaded as a file first. After loading all typemap files or modules, it will merge them in the specified order and dump the result as an embeddable typemap. =head1 SEE ALSO L<ExtUtils::Typemaps> L<perlxs> =head1 AUTHOR Steffen Mueller C<<smueller@cpan.org>> =head1 COPYRIGHT & LICENSE Copyright 2012 Steffen Mueller This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut 1; PK ! �YƠ 5.34.0/overloading.pmnu �[��� package overloading; use warnings; our $VERSION = '0.02'; my $HINT_NO_AMAGIC = 0x01000000; # see perl.h require 5.010001; sub _ops_to_nums { require overload::numbers; map { exists $overload::numbers::names{"($_"} ? $overload::numbers::names{"($_"} : do { require Carp; Carp::croak("'$_' is not a valid overload") } } @_; } sub import { my ( $class, @ops ) = @_; if ( @ops ) { if ( $^H{overloading} ) { vec($^H{overloading} , $_, 1) = 0 for _ops_to_nums(@ops); } if ( $^H{overloading} !~ /[^\0]/ ) { delete $^H{overloading}; $^H &= ~$HINT_NO_AMAGIC; } } else { delete $^H{overloading}; $^H &= ~$HINT_NO_AMAGIC; } } sub unimport { my ( $class, @ops ) = @_; if ( exists $^H{overloading} or not $^H & $HINT_NO_AMAGIC ) { if ( @ops ) { vec($^H{overloading} ||= '', $_, 1) = 1 for _ops_to_nums(@ops); } else { delete $^H{overloading}; } } $^H |= $HINT_NO_AMAGIC; } 1; __END__ =head1 NAME overloading - perl pragma to lexically control overloading =head1 SYNOPSIS { no overloading; my $str = "$object"; # doesn't call stringification overload } # it's lexical, so this stringifies: warn "$object"; # it can be enabled per op no overloading qw(""); warn "$object"; # and also reenabled use overloading; =head1 DESCRIPTION This pragma allows you to lexically disable or enable overloading. =over 6 =item C<no overloading> Disables overloading entirely in the current lexical scope. =item C<no overloading @ops> Disables only specific overloads in the current lexical scope. =item C<use overloading> Reenables overloading in the current lexical scope. =item C<use overloading @ops> Reenables overloading only for specific ops in the current lexical scope. =back =cut PK ! =����< �< 5.34.0/dumpvar.plnu �[��� require 5.014; # For more reliable $@ after eval package dumpvar; # Needed for PrettyPrinter only: # require 5.001; # Well, it coredumps anyway undef DB in 5.000 (not now) # translate control chars to ^X - Randal Schwartz # Modifications to print types by Peter Gordon v1.0 # Ilya Zakharevich -- patches after 5.001 (and some before ;-) # Won't dump symbol tables and contents of debugged files by default $winsize = 80 unless defined $winsize; sub ASCII { return ord('A') == 65; } # Defaults # $globPrint = 1; $printUndef = 1 unless defined $printUndef; $tick = "auto" unless defined $tick; $unctrl = 'quote' unless defined $unctrl; $subdump = 1; $dumpReused = 0 unless defined $dumpReused; $bareStringify = 1 unless defined $bareStringify; my $APC = chr utf8::unicode_to_native(0x9F); my $backslash_c_question = (ASCII) ? '\177' : $APC; sub main::dumpValue { local %address; local $^W=0; (print "undef\n"), return unless defined $_[0]; (print &stringify($_[0]), "\n"), return unless ref $_[0]; push @_, -1 if @_ == 1; dumpvar::unwrap($_[0], 0, $_[1]); } # This one is good for variable names: sub unctrl { for (my($dummy) = shift) { local($v) ; return \$_ if ref \$_ eq "GLOB"; s/([\000-\037])/ '^' . chr(utf8::unicode_to_native(ord($1)^64))/eg; s/ $backslash_c_question /^?/xg; return $_; } } sub uniescape { join("", map { $_ > 255 ? sprintf("\\x{%04X}", $_) : chr($_) } unpack("W*", $_[0])); } sub stringify { my $string; if (eval { $string = _stringify(@_); 1 }) { return $string; } return "<< value could not be dumped: $@ >>"; } sub _stringify { (my $__, local $noticks) = @_; for ($__) { local($v) ; my $tick = $tick; return 'undef' unless defined $_ or not $printUndef; return $_ . "" if ref \$_ eq 'GLOB'; $_ = &{'overload::StrVal'}($_) if $bareStringify and ref $_ and %overload:: and defined &{'overload::StrVal'}; if ($tick eq 'auto') { if (/[^[:^cntrl:]\n]/u) { # All controls but \n get '"' $tick = '"'; } else { $tick = "'"; } } if ($tick eq "'") { s/([\'\\])/\\$1/g; } elsif ($unctrl eq 'unctrl') { s/([\"\\])/\\$1/g ; $_ = &unctrl($_); # uniescape? s/([[:^ascii:]])/'\\0x'.sprintf('%2X',ord($1))/eg if $quoteHighBit; } elsif ($unctrl eq 'quote') { s/([\"\\\$\@])/\\$1/g if $tick eq '"'; s/\e/\\e/g; s/([\000-\037$backslash_c_question])/'\\c'._escaped_ord($1)/eg; } $_ = uniescape($_); s/([[:^ascii:]])/'\\'.sprintf('%3o',ord($1))/eg if $quoteHighBit; return ($noticks || /^\d+(\.\d*)?\Z/) ? $_ : $tick . $_ . $tick; } } # Ensure a resulting \ is escaped to be \\ sub _escaped_ord { my $chr = shift; if ($chr eq $backslash_c_question) { $chr = '?'; } else { $chr = chr(utf8::unicode_to_native(ord($chr)^64)); $chr =~ s{\\}{\\\\}g; } return $chr; } sub ShortArray { my $tArrayDepth = $#{$_[0]} ; $tArrayDepth = $#{$_[0]} < $arrayDepth-1 ? $#{$_[0]} : $arrayDepth-1 unless $arrayDepth eq '' ; my $shortmore = ""; $shortmore = " ..." if $tArrayDepth < $#{$_[0]} ; if (!grep(ref $_, @{$_[0]})) { $short = "0..$#{$_[0]} '" . join("' '", @{$_[0]}[0..$tArrayDepth]) . "'$shortmore"; return $short if length $short <= $compactDump; } undef; } sub DumpElem { my $short = &stringify($_[0], ref $_[0]); if ($veryCompact && ref $_[0] && (ref $_[0] eq 'ARRAY' and !grep(ref $_, @{$_[0]}) )) { my $end = "0..$#{$v} '" . join("' '", @{$_[0]}[0..$tArrayDepth]) . "'$shortmore"; } elsif ($veryCompact && ref $_[0] && (ref $_[0] eq 'HASH') and !grep(ref $_, values %{$_[0]})) { my $end = 1; $short = $sp . "0..$#{$v} '" . join("' '", @{$v}[0..$tArrayDepth]) . "'$shortmore"; } else { print "$short\n"; unwrap($_[0],$_[1],$_[2]) if ref $_[0]; } } sub unwrap { return if $DB::signal; local($v) = shift ; local($s) = shift ; # extra no of spaces local($m) = shift ; # maximum recursion depth return if $m == 0; local(%v,@v,$sp,$value,$key,@sortKeys,$more,$shortmore,$short) ; local($tHashDepth,$tArrayDepth) ; $sp = " " x $s ; $s += 3 ; eval { # Check for reused addresses if (ref $v) { my $val = $v; $val = &{'overload::StrVal'}($v) if %overload:: and defined &{'overload::StrVal'}; # Match type and address. # Unblessed references will look like TYPE(0x...) # Blessed references will look like Class=TYPE(0x...) $val =~ s/^.*=//; # suppress the Class part, just keep TYPE(0x...) ($item_type, $address) = $val =~ /([^\(]+) # Keep stuff that's # not an open paren \( # Skip open paren (0x[0-9a-f]+) # Save the address \) # Skip close paren $/x; # Should be at end now if (!$dumpReused && defined $address) { $address{$address}++ ; if ( $address{$address} > 1 ) { print "${sp}-> REUSED_ADDRESS\n" ; return ; } } } elsif (ref \$v eq 'GLOB') { # This is a raw glob. Special handling for that. $address = "$v" . ""; # To avoid a bug with globs $address{$address}++ ; if ( $address{$address} > 1 ) { print "${sp}*DUMPED_GLOB*\n" ; return ; } } if (ref $v eq 'Regexp') { # Reformat the regexp to look the standard way. my $re = "$v"; $re =~ s,/,\\/,g; print "$sp-> qr/$re/\n"; return; } if ( $item_type eq 'HASH' ) { # Hash ref or hash-based object. my @sortKeys = sort keys(%$v) ; undef $more ; $tHashDepth = $#sortKeys ; $tHashDepth = $#sortKeys < $hashDepth-1 ? $#sortKeys : $hashDepth-1 unless $hashDepth eq '' ; $more = "....\n" if $tHashDepth < $#sortKeys ; $shortmore = ""; $shortmore = ", ..." if $tHashDepth < $#sortKeys ; $#sortKeys = $tHashDepth ; if ($compactDump && !grep(ref $_, values %{$v})) { #$short = $sp . # (join ', ', # Next row core dumps during require from DB on 5.000, even with map {"_"} # map {&stringify($_) . " => " . &stringify($v->{$_})} # @sortKeys) . "'$shortmore"; $short = $sp; my @keys; for (@sortKeys) { push @keys, &stringify($_) . " => " . &stringify($v->{$_}); } $short .= join ', ', @keys; $short .= $shortmore; (print "$short\n"), return if length $short <= $compactDump; } for $key (@sortKeys) { return if $DB::signal; $value = $ {$v}{$key} ; print "$sp", &stringify($key), " => "; DumpElem $value, $s, $m-1; } print "$sp empty hash\n" unless @sortKeys; print "$sp$more" if defined $more ; } elsif ( $item_type eq 'ARRAY' ) { # Array ref or array-based object. Also: undef. # See how big the array is. $tArrayDepth = $#{$v} ; undef $more ; # Bigger than the max? $tArrayDepth = $#{$v} < $arrayDepth-1 ? $#{$v} : $arrayDepth-1 if defined $arrayDepth && $arrayDepth ne ''; # Yep. Don't show it all. $more = "....\n" if $tArrayDepth < $#{$v} ; $shortmore = ""; $shortmore = " ..." if $tArrayDepth < $#{$v} ; if ($compactDump && !grep(ref $_, @{$v})) { if ($#$v >= 0) { $short = $sp . "0..$#{$v} " . join(" ", map {exists $v->[$_] ? stringify $v->[$_] : "empty"} (0..$tArrayDepth) ) . "$shortmore"; } else { $short = $sp . "empty array"; } (print "$short\n"), return if length $short <= $compactDump; } #if ($compactDump && $short = ShortArray($v)) { # print "$short\n"; # return; #} for $num (0 .. $tArrayDepth) { return if $DB::signal; print "$sp$num "; if (exists $v->[$num]) { if (defined $v->[$num]) { DumpElem $v->[$num], $s, $m-1; } else { print "undef\n"; } } else { print "empty slot\n"; } } print "$sp empty array\n" unless @$v; print "$sp$more" if defined $more ; } elsif ( $item_type eq 'SCALAR' ) { unless (defined $$v) { print "$sp-> undef\n"; return; } print "$sp-> "; DumpElem $$v, $s, $m-1; } elsif ( $item_type eq 'REF' ) { print "$sp-> $$v\n"; return unless defined $$v; unwrap($$v, $s+3, $m-1); } elsif ( $item_type eq 'CODE' ) { # Code object or reference. print "$sp-> "; dumpsub (0, $v); } elsif ( $item_type eq 'GLOB' ) { # Glob object or reference. print "$sp-> ",&stringify($$v,1),"\n"; if ($globPrint) { $s += 3; dumpglob($s, "{$$v}", $$v, 1, $m-1); } elsif (defined ($fileno = eval {fileno($v)})) { print( (' ' x ($s+3)) . "FileHandle({$$v}) => fileno($fileno)\n" ); } } elsif (ref \$v eq 'GLOB') { # Raw glob (again?) if ($globPrint) { dumpglob($s, "{$v}", $v, 1, $m-1) if $globPrint; } elsif (defined ($fileno = eval {fileno(\$v)})) { print( (' ' x $s) . "FileHandle({$v}) => fileno($fileno)\n" ); } } }; if ($@) { print( (' ' x $s) . "<< value could not be dumped: $@ >>\n"); } return; } sub matchlex { (my $var = $_[0]) =~ s/.//; $var eq $_[1] or ($_[1] =~ /^([!~])(.)([\x00-\xff]*)/) and ($1 eq '!') ^ (eval { $var =~ /$2$3/ }); } sub matchvar { $_[0] eq $_[1] or ($_[1] =~ /^([!~])(.)([\x00-\xff]*)/) and ($1 eq '!') ^ (eval {($_[2] . "::" . $_[0]) =~ /$2$3/}); } sub compactDump { $compactDump = shift if @_; $compactDump = 6*80-1 if $compactDump and $compactDump < 2; $compactDump; } sub veryCompact { $veryCompact = shift if @_; compactDump(1) if !$compactDump and $veryCompact; $veryCompact; } sub unctrlSet { if (@_) { my $in = shift; if ($in eq 'unctrl' or $in eq 'quote') { $unctrl = $in; } else { print "Unknown value for 'unctrl'.\n"; } } $unctrl; } sub quote { if (@_ and $_[0] eq '"') { $tick = '"'; $unctrl = 'quote'; } elsif (@_ and $_[0] eq 'auto') { $tick = 'auto'; $unctrl = 'quote'; } elsif (@_) { # Need to set $tick = "'"; $unctrl = 'unctrl'; } $tick; } sub dumpglob { return if $DB::signal; my ($off,$key, $val, $all, $m) = @_; local(*entry) = $val; my $fileno; if (($key !~ /^_</ or $dumpDBFiles) and defined $entry) { print( (' ' x $off) . "\$", &unctrl($key), " = " ); DumpElem $entry, 3+$off, $m; } if (($key !~ /^_</ or $dumpDBFiles) and @entry) { print( (' ' x $off) . "\@$key = (\n" ); unwrap(\@entry,3+$off,$m) ; print( (' ' x $off) . ")\n" ); } if ($key ne "main::" && $key ne "DB::" && %entry && ($dumpPackages or $key !~ /::$/) && ($key !~ /^_</ or $dumpDBFiles) && !($package eq "dumpvar" and $key eq "stab")) { print( (' ' x $off) . "\%$key = (\n" ); unwrap(\%entry,3+$off,$m) ; print( (' ' x $off) . ")\n" ); } if (defined ($fileno = eval{fileno(*entry)})) { print( (' ' x $off) . "FileHandle($key) => fileno($fileno)\n" ); } if ($all) { if (defined &entry) { dumpsub($off, $key); } } } sub dumplex { return if $DB::signal; my ($key, $val, $m, @vars) = @_; return if @vars && !grep( matchlex($key, $_), @vars ); local %address; my $off = 0; # It reads better this way my $fileno; if (UNIVERSAL::isa($val,'ARRAY')) { print( (' ' x $off) . "$key = (\n" ); unwrap($val,3+$off,$m) ; print( (' ' x $off) . ")\n" ); } elsif (UNIVERSAL::isa($val,'HASH')) { print( (' ' x $off) . "$key = (\n" ); unwrap($val,3+$off,$m) ; print( (' ' x $off) . ")\n" ); } elsif (UNIVERSAL::isa($val,'IO')) { print( (' ' x $off) . "FileHandle($key) => fileno($fileno)\n" ); } # No lexical subroutines yet... # elsif (UNIVERSAL::isa($val,'CODE')) { # dumpsub($off, $$val); # } else { print( (' ' x $off) . &unctrl($key), " = " ); DumpElem $$val, 3+$off, $m; } } sub CvGV_name_or_bust { my $in = shift; return if $skipCvGV; # Backdoor to avoid problems if XS broken... $in = \&$in; # Hard reference... eval {require Devel::Peek; 1} or return; my $gv = Devel::Peek::CvGV($in) or return; *$gv{PACKAGE} . '::' . *$gv{NAME}; } sub dumpsub { my ($off,$sub) = @_; my $ini = $sub; my $s; $sub = $1 if $sub =~ /^\{\*(.*)\}$/; my $subref = defined $1 ? \&$sub : \&$ini; my $place = $DB::sub{$sub} || (($s = $subs{"$subref"}) && $DB::sub{$s}) || (($s = CvGV_name_or_bust($subref)) && $DB::sub{$s}) || ($subdump && ($s = findsubs("$subref")) && $DB::sub{$s}); $place = '???' unless defined $place; $s = $sub unless defined $s; print( (' ' x $off) . "&$s in $place\n" ); } sub findsubs { return undef unless %DB::sub; my ($addr, $name, $loc); while (($name, $loc) = each %DB::sub) { $addr = \&$name; $subs{"$addr"} = $name; } $subdump = 0; $subs{ shift() }; } sub main::dumpvar { my ($package,$m,@vars) = @_; local(%address,$key,$val,$^W); $package .= "::" unless $package =~ /::$/; *stab = *{"main::"}; while ($package =~ /(\w+?::)/g){ *stab = $ {stab}{$1}; } local $TotalStrings = 0; local $Strings = 0; local $CompleteTotal = 0; while (($key,$val) = each(%stab)) { return if $DB::signal; next if @vars && !grep( matchvar($key, $_), @vars ); if ($usageOnly) { globUsage(\$val, $key) if ($package ne 'dumpvar' or $key ne 'stab') and ref(\$val) eq 'GLOB'; } else { dumpglob(0,$key, $val, 0, $m); } } if ($usageOnly) { print "String space: $TotalStrings bytes in $Strings strings.\n"; $CompleteTotal += $TotalStrings; print "Grand total = $CompleteTotal bytes (1 level deep) + overhead.\n"; } } sub scalarUsage { my $size = length($_[0]); $TotalStrings += $size; $Strings++; $size; } sub arrayUsage { # array ref, name my $size = 0; map {$size += scalarUsage($_)} @{$_[0]}; my $len = @{$_[0]}; print "\@$_[1] = $len item", ($len > 1 ? "s" : ""), " (data: $size bytes)\n" if defined $_[1]; $CompleteTotal += $size; $size; } sub hashUsage { # hash ref, name my @keys = keys %{$_[0]}; my @values = values %{$_[0]}; my $keys = arrayUsage \@keys; my $values = arrayUsage \@values; my $len = @keys; my $total = $keys + $values; print "\%$_[1] = $len item", ($len > 1 ? "s" : ""), " (keys: $keys; values: $values; total: $total bytes)\n" if defined $_[1]; $total; } sub globUsage { # glob ref, name local *name = *{$_[0]}; $total = 0; $total += scalarUsage $name if defined $name; $total += arrayUsage \@name, $_[1] if @name; $total += hashUsage \%name, $_[1] if %name and $_[1] ne "main::" and $_[1] ne "DB::"; #and !($package eq "dumpvar" and $key eq "stab")); $total; } sub packageUsage { my ($package,@vars) = @_; $package .= "::" unless $package =~ /::$/; local *stab = *{"main::"}; while ($package =~ /(\w+?::)/g){ *stab = $ {stab}{$1}; } local $TotalStrings = 0; local $CompleteTotal = 0; my ($key,$val); while (($key,$val) = each(%stab)) { next if @vars && !grep($key eq $_,@vars); globUsage \$val, $key unless $package eq 'dumpvar' and $key eq 'stab'; } print "String space: $TotalStrings.\n"; $CompleteTotal += $TotalStrings; print "\nGrand total = $CompleteTotal bytes\n"; } 1; PK ! ��y�� �� 5.34.0/Locale/Maketext.podnu �[��� # Time-stamp: "2004-01-11 18:35:34 AST" =head1 NAME Locale::Maketext - framework for localization =head1 SYNOPSIS package MyProgram; use strict; use MyProgram::L10N; # ...which inherits from Locale::Maketext my $lh = MyProgram::L10N->get_handle() || die "What language?"; ... # And then any messages your program emits, like: warn $lh->maketext( "Can't open file [_1]: [_2]\n", $f, $! ); ... =head1 DESCRIPTION It is a common feature of applications (whether run directly, or via the Web) for them to be "localized" -- i.e., for them to a present an English interface to an English-speaker, a German interface to a German-speaker, and so on for all languages it's programmed with. Locale::Maketext is a framework for software localization; it provides you with the tools for organizing and accessing the bits of text and text-processing code that you need for producing localized applications. In order to make sense of Maketext and how all its components fit together, you should probably go read L<Locale::Maketext::TPJ13|Locale::Maketext::TPJ13>, and I<then> read the following documentation. You may also want to read over the source for C<File::Findgrep> and its constituent modules -- they are a complete (if small) example application that uses Maketext. =head1 QUICK OVERVIEW The basic design of Locale::Maketext is object-oriented, and Locale::Maketext is an abstract base class, from which you derive a "project class". The project class (with a name like "TkBocciBall::Localize", which you then use in your module) is in turn the base class for all the "language classes" for your project (with names "TkBocciBall::Localize::it", "TkBocciBall::Localize::en", "TkBocciBall::Localize::fr", etc.). A language class is a class containing a lexicon of phrases as class data, and possibly also some methods that are of use in interpreting phrases in the lexicon, or otherwise dealing with text in that language. An object belonging to a language class is called a "language handle"; it's typically a flyweight object. The normal course of action is to call: use TkBocciBall::Localize; # the localization project class $lh = TkBocciBall::Localize->get_handle(); # Depending on the user's locale, etc., this will # make a language handle from among the classes available, # and any defaults that you declare. die "Couldn't make a language handle??" unless $lh; From then on, you use the C<maketext> function to access entries in whatever lexicon(s) belong to the language handle you got. So, this: print $lh->maketext("You won!"), "\n"; ...emits the right text for this language. If the object in C<$lh> belongs to class "TkBocciBall::Localize::fr" and %TkBocciBall::Localize::fr::Lexicon contains C<("You won!" =E<gt> "Tu as gagnE<eacute>!")>, then the above code happily tells the user "Tu as gagnE<eacute>!". =head1 METHODS Locale::Maketext offers a variety of methods, which fall into three categories: =over =item * Methods to do with constructing language handles. =item * C<maketext> and other methods to do with accessing %Lexicon data for a given language handle. =item * Methods that you may find it handy to use, from routines of yours that you put in %Lexicon entries. =back These are covered in the following section. =head2 Construction Methods These are to do with constructing a language handle: =over =item * $lh = YourProjClass->get_handle( ...langtags... ) || die "lg-handle?"; This tries loading classes based on the language-tags you give (like C<("en-US", "sk", "kon", "es-MX", "ja", "i-klingon")>, and for the first class that succeeds, returns YourProjClass::I<language>->new(). If it runs thru the entire given list of language-tags, and finds no classes for those exact terms, it then tries "superordinate" language classes. So if no "en-US" class (i.e., YourProjClass::en_us) was found, nor classes for anything else in that list, we then try its superordinate, "en" (i.e., YourProjClass::en), and so on thru the other language-tags in the given list: "es". (The other language-tags in our example list: happen to have no superordinates.) If none of those language-tags leads to loadable classes, we then try classes derived from YourProjClass->fallback_languages() and then if nothing comes of that, we use classes named by YourProjClass->fallback_language_classes(). Then in the (probably quite unlikely) event that that fails, we just return undef. =item * $lh = YourProjClass->get_handleB<()> || die "lg-handle?"; When C<get_handle> is called with an empty parameter list, magic happens: If C<get_handle> senses that it's running in program that was invoked as a CGI, then it tries to get language-tags out of the environment variable "HTTP_ACCEPT_LANGUAGE", and it pretends that those were the languages passed as parameters to C<get_handle>. Otherwise (i.e., if not a CGI), this tries various OS-specific ways to get the language-tags for the current locale/language, and then pretends that those were the value(s) passed to C<get_handle>. Currently this OS-specific stuff consists of looking in the environment variables "LANG" and "LANGUAGE"; and on MSWin machines (where those variables are typically unused), this also tries using the module Win32::Locale to get a language-tag for whatever language/locale is currently selected in the "Regional Settings" (or "International"?) Control Panel. I welcome further suggestions for making this do the Right Thing under other operating systems that support localization. If you're using localization in an application that keeps a configuration file, you might consider something like this in your project class: sub get_handle_via_config { my $class = $_[0]; my $chosen_language = $Config_settings{'language'}; my $lh; if($chosen_language) { $lh = $class->get_handle($chosen_language) || die "No language handle for \"$chosen_language\"" . " or the like"; } else { # Config file missing, maybe? $lh = $class->get_handle() || die "Can't get a language handle"; } return $lh; } =item * $lh = YourProjClass::langname->new(); This constructs a language handle. You usually B<don't> call this directly, but instead let C<get_handle> find a language class to C<use> and to then call ->new on. =item * $lh->init(); This is called by ->new to initialize newly-constructed language handles. If you define an init method in your class, remember that it's usually considered a good idea to call $lh->SUPER::init in it (presumably at the beginning), so that all classes get a chance to initialize a new object however they see fit. =item * YourProjClass->fallback_languages() C<get_handle> appends the return value of this to the end of whatever list of languages you pass C<get_handle>. Unless you override this method, your project class will inherit Locale::Maketext's C<fallback_languages>, which currently returns C<('i-default', 'en', 'en-US')>. ("i-default" is defined in RFC 2277). This method (by having it return the name of a language-tag that has an existing language class) can be used for making sure that C<get_handle> will always manage to construct a language handle (assuming your language classes are in an appropriate @INC directory). Or you can use the next method: =item * YourProjClass->fallback_language_classes() C<get_handle> appends the return value of this to the end of the list of classes it will try using. Unless you override this method, your project class will inherit Locale::Maketext's C<fallback_language_classes>, which currently returns an empty list, C<()>. By setting this to some value (namely, the name of a loadable language class), you can be sure that C<get_handle> will always manage to construct a language handle. =back =head2 The "maketext" Method This is the most important method in Locale::Maketext: $text = $lh->maketext(I<key>, ...parameters for this phrase...); This looks in the %Lexicon of the language handle $lh and all its superclasses, looking for an entry whose key is the string I<key>. Assuming such an entry is found, various things then happen, depending on the value found: If the value is a scalarref, the scalar is dereferenced and returned (and any parameters are ignored). If the value is a coderef, we return &$value($lh, ...parameters...). If the value is a string that I<doesn't> look like it's in Bracket Notation, we return it (after replacing it with a scalarref, in its %Lexicon). If the value I<does> look like it's in Bracket Notation, then we compile it into a sub, replace the string in the %Lexicon with the new coderef, and then we return &$new_sub($lh, ...parameters...). Bracket Notation is discussed in a later section. Note that trying to compile a string into Bracket Notation can throw an exception if the string is not syntactically valid (say, by not balancing brackets right.) Also, calling &$coderef($lh, ...parameters...) can throw any sort of exception (if, say, code in that sub tries to divide by zero). But a very common exception occurs when you have Bracket Notation text that says to call a method "foo", but there is no such method. (E.g., "You have [quaB<tn>,_1,ball]." will throw an exception on trying to call $lh->quaB<tn>($_[1],'ball') -- you presumably meant "quant".) C<maketext> catches these exceptions, but only to make the error message more readable, at which point it rethrows the exception. An exception I<may> be thrown if I<key> is not found in any of $lh's %Lexicon hashes. What happens if a key is not found, is discussed in a later section, "Controlling Lookup Failure". Note that you might find it useful in some cases to override the C<maketext> method with an "after method", if you want to translate encodings, or even scripts: package YrProj::zh_cn; # Chinese with PRC-style glyphs use base ('YrProj::zh_tw'); # Taiwan-style sub maketext { my $self = shift(@_); my $value = $self->maketext(@_); return Chineeze::taiwan2mainland($value); } Or you may want to override it with something that traps any exceptions, if that's critical to your program: sub maketext { my($lh, @stuff) = @_; my $out; eval { $out = $lh->SUPER::maketext(@stuff) }; return $out unless $@; ...otherwise deal with the exception... } Other than those two situations, I don't imagine that it's useful to override the C<maketext> method. (If you run into a situation where it is useful, I'd be interested in hearing about it.) =over =item $lh->fail_with I<or> $lh->fail_with(I<PARAM>) =item $lh->failure_handler_auto These two methods are discussed in the section "Controlling Lookup Failure". =item $lh->blacklist(@list) =item $lh->whitelist(@list) These methods are discussed in the section "Bracket Notation Security". =back =head2 Utility Methods These are methods that you may find it handy to use, generally from %Lexicon routines of yours (whether expressed as Bracket Notation or not). =over =item $language->quant($number, $singular) =item $language->quant($number, $singular, $plural) =item $language->quant($number, $singular, $plural, $negative) This is generally meant to be called from inside Bracket Notation (which is discussed later), as in "Your search matched [quant,_1,document]!" It's for I<quantifying> a noun (i.e., saying how much of it there is, while giving the correct form of it). The behavior of this method is handy for English and a few other Western European languages, and you should override it for languages where it's not suitable. You can feel free to read the source, but the current implementation is basically as this pseudocode describes: if $number is 0 and there's a $negative, return $negative; elsif $number is 1, return "1 $singular"; elsif there's a $plural, return "$number $plural"; else return "$number " . $singular . "s"; # # ...except that we actually call numf to # stringify $number before returning it. So for English (with Bracket Notation) C<"...[quant,_1,file]..."> is fine (for 0 it returns "0 files", for 1 it returns "1 file", and for more it returns "2 files", etc.) But for "directory", you'd want C<"[quant,_1,directory,directories]"> so that our elementary C<quant> method doesn't think that the plural of "directory" is "directorys". And you might find that the output may sound better if you specify a negative form, as in: "[quant,_1,file,files,No files] matched your query.\n" Remember to keep in mind verb agreement (or adjectives too, in other languages), as in: "[quant,_1,document] were matched.\n" Because if _1 is one, you get "1 document B<were> matched". An acceptable hack here is to do something like this: "[quant,_1,document was, documents were] matched.\n" =item $language->numf($number) This returns the given number formatted nicely according to this language's conventions. Maketext's default method is mostly to just take the normal string form of the number (applying sprintf "%G" for only very large numbers), and then to add commas as necessary. (Except that we apply C<tr/,./.,/> if $language->{'numf_comma'} is true; that's a bit of a hack that's useful for languages that express two million as "2.000.000" and not as "2,000,000"). If you want anything fancier, consider overriding this with something that uses L<Number::Format|Number::Format>, or does something else entirely. Note that numf is called by quant for stringifying all quantifying numbers. =item $language->numerate($number, $singular, $plural, $negative) This returns the given noun form which is appropriate for the quantity C<$number> according to this language's conventions. C<numerate> is used internally by C<quant> to quantify nouns. Use it directly -- usually from bracket notation -- to avoid C<quant>'s implicit call to C<numf> and output of a numeric quantity. =item $language->sprintf($format, @items) This is just a wrapper around Perl's normal C<sprintf> function. It's provided so that you can use "sprintf" in Bracket Notation: "Couldn't access datanode [sprintf,%10x=~[%s~],_1,_2]!\n" returning... Couldn't access datanode Stuff=[thangamabob]! =item $language->language_tag() Currently this just takes the last bit of C<ref($language)>, turns underscores to dashes, and returns it. So if $language is an object of class Hee::HOO::Haw::en_us, $language->language_tag() returns "en-us". (Yes, the usual representation for that language tag is "en-US", but case is I<never> considered meaningful in language-tag comparison.) You may override this as you like; Maketext doesn't use it for anything. =item $language->encoding() Currently this isn't used for anything, but it's provided (with default value of C<(ref($language) && $language-E<gt>{'encoding'})) or "iso-8859-1"> ) as a sort of suggestion that it may be useful/necessary to associate encodings with your language handles (whether on a per-class or even per-handle basis.) =back =head2 Language Handle Attributes and Internals A language handle is a flyweight object -- i.e., it doesn't (necessarily) carry any data of interest, other than just being a member of whatever class it belongs to. A language handle is implemented as a blessed hash. Subclasses of yours can store whatever data you want in the hash. Currently the only hash entry used by any crucial Maketext method is "fail", so feel free to use anything else as you like. B<Remember: Don't be afraid to read the Maketext source if there's any point on which this documentation is unclear.> This documentation is vastly longer than the module source itself. =head1 LANGUAGE CLASS HIERARCHIES These are Locale::Maketext's assumptions about the class hierarchy formed by all your language classes: =over =item * You must have a project base class, which you load, and which you then use as the first argument in the call to YourProjClass->get_handle(...). It should derive (whether directly or indirectly) from Locale::Maketext. It B<doesn't matter> how you name this class, although assuming this is the localization component of your Super Mega Program, good names for your project class might be SuperMegaProgram::Localization, SuperMegaProgram::L10N, SuperMegaProgram::I18N, SuperMegaProgram::International, or even SuperMegaProgram::Languages or SuperMegaProgram::Messages. =item * Language classes are what YourProjClass->get_handle will try to load. It will look for them by taking each language-tag (B<skipping> it if it doesn't look like a language-tag or locale-tag!), turning it to all lowercase, turning dashes to underscores, and appending it to YourProjClass . "::". So this: $lh = YourProjClass->get_handle( 'en-US', 'fr', 'kon', 'i-klingon', 'i-klingon-romanized' ); will try loading the classes YourProjClass::en_us (note lowercase!), YourProjClass::fr, YourProjClass::kon, YourProjClass::i_klingon and YourProjClass::i_klingon_romanized. (And it'll stop at the first one that actually loads.) =item * I assume that each language class derives (directly or indirectly) from your project class, and also defines its @ISA, its %Lexicon, or both. But I anticipate no dire consequences if these assumptions do not hold. =item * Language classes may derive from other language classes (although they should have "use I<Thatclassname>" or "use base qw(I<...classes...>)"). They may derive from the project class. They may derive from some other class altogether. Or via multiple inheritance, it may derive from any mixture of these. =item * I foresee no problems with having multiple inheritance in your hierarchy of language classes. (As usual, however, Perl will complain bitterly if you have a cycle in the hierarchy: i.e., if any class is its own ancestor.) =back =head1 ENTRIES IN EACH LEXICON A typical %Lexicon entry is meant to signify a phrase, taking some number (0 or more) of parameters. An entry is meant to be accessed by via a string I<key> in $lh->maketext(I<key>, ...parameters...), which should return a string that is generally meant for be used for "output" to the user -- regardless of whether this actually means printing to STDOUT, writing to a file, or putting into a GUI widget. While the key must be a string value (since that's a basic restriction that Perl places on hash keys), the value in the lexicon can currently be of several types: a defined scalar, scalarref, or coderef. The use of these is explained above, in the section 'The "maketext" Method', and Bracket Notation for strings is discussed in the next section. While you can use arbitrary unique IDs for lexicon keys (like "_min_larger_max_error"), it is often useful for if an entry's key is itself a valid value, like this example error message: "Minimum ([_1]) is larger than maximum ([_2])!\n", Compare this code that uses an arbitrary ID... die $lh->maketext( "_min_larger_max_error", $min, $max ) if $min > $max; ...to this code that uses a key-as-value: die $lh->maketext( "Minimum ([_1]) is larger than maximum ([_2])!\n", $min, $max ) if $min > $max; The second is, in short, more readable. In particular, it's obvious that the number of parameters you're feeding to that phrase (two) is the number of parameters that it I<wants> to be fed. (Since you see _1 and a _2 being used in the key there.) Also, once a project is otherwise complete and you start to localize it, you can scrape together all the various keys you use, and pass it to a translator; and then the translator's work will go faster if what he's presented is this: "Minimum ([_1]) is larger than maximum ([_2])!\n", => "", # fill in something here, Jacques! rather than this more cryptic mess: "_min_larger_max_error" => "", # fill in something here, Jacques I think that keys as lexicon values makes the completed lexicon entries more readable: "Minimum ([_1]) is larger than maximum ([_2])!\n", => "Le minimum ([_1]) est plus grand que le maximum ([_2])!\n", Also, having valid values as keys becomes very useful if you set up an _AUTO lexicon. _AUTO lexicons are discussed in a later section. I almost always use keys that are themselves valid lexicon values. One notable exception is when the value is quite long. For example, to get the screenful of data that a command-line program might return when given an unknown switch, I often just use a brief, self-explanatory key such as "_USAGE_MESSAGE". At that point I then go and immediately to define that lexicon entry in the ProjectClass::L10N::en lexicon (since English is always my "project language"): '_USAGE_MESSAGE' => <<'EOSTUFF', ...long long message... EOSTUFF and then I can use it as: getopt('oDI', \%opts) or die $lh->maketext('_USAGE_MESSAGE'); Incidentally, note that each class's C<%Lexicon> inherits-and-extends the lexicons in its superclasses. This is not because these are special hashes I<per se>, but because you access them via the C<maketext> method, which looks for entries across all the C<%Lexicon> hashes in a language class I<and> all its ancestor classes. (This is because the idea of "class data" isn't directly implemented in Perl, but is instead left to individual class-systems to implement as they see fit..) Note that you may have things stored in a lexicon besides just phrases for output: for example, if your program takes input from the keyboard, asking a "(Y/N)" question, you probably need to know what the equivalent of "Y[es]/N[o]" is in whatever language. You probably also need to know what the equivalents of the answers "y" and "n" are. You can store that information in the lexicon (say, under the keys "~answer_y" and "~answer_n", and the long forms as "~answer_yes" and "~answer_no", where "~" is just an ad-hoc character meant to indicate to programmers/translators that these are not phrases for output). Or instead of storing this in the language class's lexicon, you can (and, in some cases, really should) represent the same bit of knowledge as code in a method in the language class. (That leaves a tidy distinction between the lexicon as the things we know how to I<say>, and the rest of the things in the lexicon class as things that we know how to I<do>.) Consider this example of a processor for responses to French "oui/non" questions: sub y_or_n { return undef unless defined $_[1] and length $_[1]; my $answer = lc $_[1]; # smash case return 1 if $answer eq 'o' or $answer eq 'oui'; return 0 if $answer eq 'n' or $answer eq 'non'; return undef; } ...which you'd then call in a construct like this: my $response; until(defined $response) { print $lh->maketext("Open the pod bay door (y/n)? "); $response = $lh->y_or_n( get_input_from_keyboard_somehow() ); } if($response) { $pod_bay_door->open() } else { $pod_bay_door->leave_closed() } Other data worth storing in a lexicon might be things like filenames for language-targetted resources: ... "_main_splash_png" => "/styles/en_us/main_splash.png", "_main_splash_imagemap" => "/styles/en_us/main_splash.incl", "_general_graphics_path" => "/styles/en_us/", "_alert_sound" => "/styles/en_us/hey_there.wav", "_forward_icon" => "left_arrow.png", "_backward_icon" => "right_arrow.png", # In some other languages, left equals # BACKwards, and right is FOREwards. ... You might want to do the same thing for expressing key bindings or the like (since hardwiring "q" as the binding for the function that quits a screen/menu/program is useful only if your language happens to associate "q" with "quit"!) =head1 BRACKET NOTATION Bracket Notation is a crucial feature of Locale::Maketext. I mean Bracket Notation to provide a replacement for the use of sprintf formatting. Everything you do with Bracket Notation could be done with a sub block, but bracket notation is meant to be much more concise. Bracket Notation is a like a miniature "template" system (in the sense of L<Text::Template|Text::Template>, not in the sense of C++ templates), where normal text is passed thru basically as is, but text in special regions is specially interpreted. In Bracket Notation, you use square brackets ("[...]"), not curly braces ("{...}") to note sections that are specially interpreted. For example, here all the areas that are taken literally are underlined with a "^", and all the in-bracket special regions are underlined with an X: "Minimum ([_1]) is larger than maximum ([_2])!\n", ^^^^^^^^^ XX ^^^^^^^^^^^^^^^^^^^^^^^^^^ XX ^^^^ When that string is compiled from bracket notation into a real Perl sub, it's basically turned into: sub { my $lh = $_[0]; my @params = @_; return join '', "Minimum (", ...some code here... ") is larger than maximum (", ...some code here... ")!\n", } # to be called by $lh->maketext(KEY, params...) In other words, text outside bracket groups is turned into string literals. Text in brackets is rather more complex, and currently follows these rules: =over =item * Bracket groups that are empty, or which consist only of whitespace, are ignored. (Examples: "[]", "[ ]", or a [ and a ] with returns and/or tabs and/or spaces between them. Otherwise, each group is taken to be a comma-separated group of items, and each item is interpreted as follows: =item * An item that is "_I<digits>" or "_-I<digits>" is interpreted as $_[I<value>]. I.e., "_1" becomes with $_[1], and "_-3" is interpreted as $_[-3] (in which case @_ should have at least three elements in it). Note that $_[0] is the language handle, and is typically not named directly. =item * An item "_*" is interpreted to mean "all of @_ except $_[0]". I.e., C<@_[1..$#_]>. Note that this is an empty list in the case of calls like $lh->maketext(I<key>) where there are no parameters (except $_[0], the language handle). =item * Otherwise, each item is interpreted as a string literal. =back The group as a whole is interpreted as follows: =over =item * If the first item in a bracket group looks like a method name, then that group is interpreted like this: $lh->that_method_name( ...rest of items in this group... ), =item * If the first item in a bracket group is "*", it's taken as shorthand for the so commonly called "quant" method. Similarly, if the first item in a bracket group is "#", it's taken to be shorthand for "numf". =item * If the first item in a bracket group is the empty-string, or "_*" or "_I<digits>" or "_-I<digits>", then that group is interpreted as just the interpolation of all its items: join('', ...rest of items in this group... ), Examples: "[_1]" and "[,_1]", which are synonymous; and "C<[,ID-(,_4,-,_2,)]>", which compiles as C<join "", "ID-(", $_[4], "-", $_[2], ")">. =item * Otherwise this bracket group is invalid. For example, in the group "[!@#,whatever]", the first item C<"!@#"> is neither the empty-string, "_I<number>", "_-I<number>", "_*", nor a valid method name; and so Locale::Maketext will throw an exception of you try compiling an expression containing this bracket group. =back Note, incidentally, that items in each group are comma-separated, not C</\s*,\s*/>-separated. That is, you might expect that this bracket group: "Hoohah [foo, _1 , bar ,baz]!" would compile to this: sub { my $lh = $_[0]; return join '', "Hoohah ", $lh->foo( $_[1], "bar", "baz"), "!", } But it actually compiles as this: sub { my $lh = $_[0]; return join '', "Hoohah ", $lh->foo(" _1 ", " bar ", "baz"), # note the <space> in " bar " "!", } In the notation discussed so far, the characters "[" and "]" are given special meaning, for opening and closing bracket groups, and "," has a special meaning inside bracket groups, where it separates items in the group. This begs the question of how you'd express a literal "[" or "]" in a Bracket Notation string, and how you'd express a literal comma inside a bracket group. For this purpose I've adopted "~" (tilde) as an escape character: "~[" means a literal '[' character anywhere in Bracket Notation (i.e., regardless of whether you're in a bracket group or not), and ditto for "~]" meaning a literal ']', and "~," meaning a literal comma. (Altho "," means a literal comma outside of bracket groups -- it's only inside bracket groups that commas are special.) And on the off chance you need a literal tilde in a bracket expression, you get it with "~~". Currently, an unescaped "~" before a character other than a bracket or a comma is taken to mean just a "~" and that character. I.e., "~X" means the same as "~~X" -- i.e., one literal tilde, and then one literal "X". However, by using "~X", you are assuming that no future version of Maketext will use "~X" as a magic escape sequence. In practice this is not a great problem, since first off you can just write "~~X" and not worry about it; second off, I doubt I'll add lots of new magic characters to bracket notation; and third off, you aren't likely to want literal "~" characters in your messages anyway, since it's not a character with wide use in natural language text. Brackets must be balanced -- every openbracket must have one matching closebracket, and vice versa. So these are all B<invalid>: "I ate [quant,_1,rhubarb pie." "I ate [quant,_1,rhubarb pie[." "I ate quant,_1,rhubarb pie]." "I ate quant,_1,rhubarb pie[." Currently, bracket groups do not nest. That is, you B<cannot> say: "Foo [bar,baz,[quux,quuux]]\n"; If you need a notation that's that powerful, use normal Perl: %Lexicon = ( ... "some_key" => sub { my $lh = $_[0]; join '', "Foo ", $lh->bar('baz', $lh->quux('quuux')), "\n", }, ... ); Or write the "bar" method so you don't need to pass it the output from calling quux. I do not anticipate that you will need (or particularly want) to nest bracket groups, but you are welcome to email me with convincing (real-life) arguments to the contrary. =head1 BRACKET NOTATION SECURITY Locale::Maketext does not use any special syntax to differentiate bracket notation methods from normal class or object methods. This design makes it vulnerable to format string attacks whenever it is used to process strings provided by untrusted users. Locale::Maketext does support blacklist and whitelist functionality to limit which methods may be called as bracket notation methods. By default, Locale::Maketext blacklists all methods in the Locale::Maketext namespace that begin with the '_' character, and all methods which include Perl's namespace separator characters. The default blacklist for Locale::Maketext also prevents use of the following methods in bracket notation: blacklist encoding fail_with failure_handler_auto fallback_language_classes fallback_languages get_handle init language_tag maketext new whitelist This list can be extended by either blacklisting additional "known bad" methods, or whitelisting only "known good" methods. To prevent specific methods from being called in bracket notation, use the blacklist() method: my $lh = MyProgram::L10N->get_handle(); $lh->blacklist(qw{my_internal_method my_other_method}); $lh->maketext('[my_internal_method]'); # dies To limit the allowed bracked notation methods to a specific list, use the whitelist() method: my $lh = MyProgram::L10N->get_handle(); $lh->whitelist('numerate', 'numf'); $lh->maketext('[_1] [numerate, _1,shoe,shoes]', 12); # works $lh->maketext('[my_internal_method]'); # dies The blacklist() and whitelist() methods extend their internal lists whenever they are called. To reset the blacklist or whitelist, create a new maketext object. my $lh = MyProgram::L10N->get_handle(); $lh->blacklist('numerate'); $lh->blacklist('numf'); $lh->maketext('[_1] [numerate,_1,shoe,shoes]', 12); # dies For lexicons that use an internal cache, translations which have already been cached in their compiled form are not affected by subsequent changes to the whitelist or blacklist settings. Lexicons that use an external cache will have their cache cleared whenever the whitelist of blacklist setings change. The difference between the two types of caching is explained in the "Readonly Lexicons" section. Methods disallowed by the blacklist cannot be permitted by the whitelist. =head1 AUTO LEXICONS If maketext goes to look in an individual %Lexicon for an entry for I<key> (where I<key> does not start with an underscore), and sees none, B<but does see> an entry of "_AUTO" => I<some_true_value>, then we actually define $Lexicon{I<key>} = I<key> right then and there, and then use that value as if it had been there all along. This happens before we even look in any superclass %Lexicons! (This is meant to be somewhat like the AUTOLOAD mechanism in Perl's function call system -- or, looked at another way, like the L<AutoLoader|AutoLoader> module.) I can picture all sorts of circumstances where you just do not want lookup to be able to fail (since failing normally means that maketext throws a C<die>, although see the next section for greater control over that). But here's one circumstance where _AUTO lexicons are meant to be I<especially> useful: As you're writing an application, you decide as you go what messages you need to emit. Normally you'd go to write this: if(-e $filename) { go_process_file($filename) } else { print qq{Couldn't find file "$filename"!\n}; } but since you anticipate localizing this, you write: use ThisProject::I18N; my $lh = ThisProject::I18N->get_handle(); # For the moment, assume that things are set up so # that we load class ThisProject::I18N::en # and that that's the class that $lh belongs to. ... if(-e $filename) { go_process_file($filename) } else { print $lh->maketext( qq{Couldn't find file "[_1]"!\n}, $filename ); } Now, right after you've just written the above lines, you'd normally have to go open the file ThisProject/I18N/en.pm, and immediately add an entry: "Couldn't find file \"[_1]\"!\n" => "Couldn't find file \"[_1]\"!\n", But I consider that somewhat of a distraction from the work of getting the main code working -- to say nothing of the fact that I often have to play with the program a few times before I can decide exactly what wording I want in the messages (which in this case would require me to go changing three lines of code: the call to maketext with that key, and then the two lines in ThisProject/I18N/en.pm). However, if you set "_AUTO => 1" in the %Lexicon in, ThisProject/I18N/en.pm (assuming that English (en) is the language that all your programmers will be using for this project's internal message keys), then you don't ever have to go adding lines like this "Couldn't find file \"[_1]\"!\n" => "Couldn't find file \"[_1]\"!\n", to ThisProject/I18N/en.pm, because if _AUTO is true there, then just looking for an entry with the key "Couldn't find file \"[_1]\"!\n" in that lexicon will cause it to be added, with that value! Note that the reason that keys that start with "_" are immune to _AUTO isn't anything generally magical about the underscore character -- I just wanted a way to have most lexicon keys be autoable, except for possibly a few, and I arbitrarily decided to use a leading underscore as a signal to distinguish those few. =head1 READONLY LEXICONS If your lexicon is a tied hash the simple act of caching the compiled value can be fatal. For example a L<GDBM_File> GDBM_READER tied hash will die with something like: gdbm store returned -1, errno 2, key "..." at ... All you need to do is turn on caching outside of the lexicon hash itself like so: sub init { my ($lh) = @_; ... $lh->{'use_external_lex_cache'} = 1; ... } And then instead of storing the compiled value in the lexicon hash it will store it in $lh->{'_external_lex_cache'} =head1 CONTROLLING LOOKUP FAILURE If you call $lh->maketext(I<key>, ...parameters...), and there's no entry I<key> in $lh's class's %Lexicon, nor in the superclass %Lexicon hash, I<and> if we can't auto-make I<key> (because either it starts with a "_", or because none of its lexicons have C<_AUTO =E<gt> 1,>), then we have failed to find a normal way to maketext I<key>. What then happens in these failure conditions, depends on the $lh object's "fail" attribute. If the language handle has no "fail" attribute, maketext will simply throw an exception (i.e., it calls C<die>, mentioning the I<key> whose lookup failed, and naming the line number where the calling $lh->maketext(I<key>,...) was. If the language handle has a "fail" attribute whose value is a coderef, then $lh->maketext(I<key>,...params...) gives up and calls: return $that_subref->($lh, $key, @params); Otherwise, the "fail" attribute's value should be a string denoting a method name, so that $lh->maketext(I<key>,...params...) can give up with: return $lh->$that_method_name($phrase, @params); The "fail" attribute can be accessed with the C<fail_with> method: # Set to a coderef: $lh->fail_with( \&failure_handler ); # Set to a method name: $lh->fail_with( 'failure_method' ); # Set to nothing (i.e., so failure throws a plain exception) $lh->fail_with( undef ); # Get the current value $handler = $lh->fail_with(); Now, as to what you may want to do with these handlers: Maybe you'd want to log what key failed for what class, and then die. Maybe you don't like C<die> and instead you want to send the error message to STDOUT (or wherever) and then merely C<exit()>. Or maybe you don't want to C<die> at all! Maybe you could use a handler like this: # Make all lookups fall back onto an English value, # but only after we log it for later fingerpointing. my $lh_backup = ThisProject->get_handle('en'); open(LEX_FAIL_LOG, ">>wherever/lex.log") || die "GNAARGH $!"; sub lex_fail { my($failing_lh, $key, $params) = @_; print LEX_FAIL_LOG scalar(localtime), "\t", ref($failing_lh), "\t", $key, "\n"; return $lh_backup->maketext($key,@params); } Some users have expressed that they think this whole mechanism of having a "fail" attribute at all, seems a rather pointless complication. But I want Locale::Maketext to be usable for software projects of I<any> scale and type; and different software projects have different ideas of what the right thing is to do in failure conditions. I could simply say that failure always throws an exception, and that if you want to be careful, you'll just have to wrap every call to $lh->maketext in an S<eval { }>. However, I want programmers to reserve the right (via the "fail" attribute) to treat lookup failure as something other than an exception of the same level of severity as a config file being unreadable, or some essential resource being inaccessible. One possibly useful value for the "fail" attribute is the method name "failure_handler_auto". This is a method defined in the class Locale::Maketext itself. You set it with: $lh->fail_with('failure_handler_auto'); Then when you call $lh->maketext(I<key>, ...parameters...) and there's no I<key> in any of those lexicons, maketext gives up with return $lh->failure_handler_auto($key, @params); But failure_handler_auto, instead of dying or anything, compiles $key, caching it in $lh->{'failure_lex'}{$key} = $compiled and then calls the compiled value, and returns that. (I.e., if $key looks like bracket notation, $compiled is a sub, and we return &{$compiled}(@params); but if $key is just a plain string, we just return that.) The effect of using "failure_auto_handler" is like an AUTO lexicon, except that it 1) compiles $key even if it starts with "_", and 2) you have a record in the new hashref $lh->{'failure_lex'} of all the keys that have failed for this object. This should avoid your program dying -- as long as your keys aren't actually invalid as bracket code, and as long as they don't try calling methods that don't exist. "failure_auto_handler" may not be exactly what you want, but I hope it at least shows you that maketext failure can be mitigated in any number of very flexible ways. If you can formalize exactly what you want, you should be able to express that as a failure handler. You can even make it default for every object of a given class, by setting it in that class's init: sub init { my $lh = $_[0]; # a newborn handle $lh->SUPER::init(); $lh->fail_with('my_clever_failure_handler'); return; } sub my_clever_failure_handler { ...you clever things here... } =head1 HOW TO USE MAKETEXT Here is a brief checklist on how to use Maketext to localize applications: =over =item * Decide what system you'll use for lexicon keys. If you insist, you can use opaque IDs (if you're nostalgic for C<catgets>), but I have better suggestions in the section "Entries in Each Lexicon", above. Assuming you opt for meaningful keys that double as values (like "Minimum ([_1]) is larger than maximum ([_2])!\n"), you'll have to settle on what language those should be in. For the sake of argument, I'll call this English, specifically American English, "en-US". =item * Create a class for your localization project. This is the name of the class that you'll use in the idiom: use Projname::L10N; my $lh = Projname::L10N->get_handle(...) || die "Language?"; Assuming you call your class Projname::L10N, create a class consisting minimally of: package Projname::L10N; use base qw(Locale::Maketext); ...any methods you might want all your languages to share... # And, assuming you want the base class to be an _AUTO lexicon, # as is discussed a few sections up: 1; =item * Create a class for the language your internal keys are in. Name the class after the language-tag for that language, in lowercase, with dashes changed to underscores. Assuming your project's first language is US English, you should call this Projname::L10N::en_us. It should consist minimally of: package Projname::L10N::en_us; use base qw(Projname::L10N); %Lexicon = ( '_AUTO' => 1, ); 1; (For the rest of this section, I'll assume that this "first language class" of Projname::L10N::en_us has _AUTO lexicon.) =item * Go and write your program. Everywhere in your program where you would say: print "Foobar $thing stuff\n"; instead do it thru maketext, using no variable interpolation in the key: print $lh->maketext("Foobar [_1] stuff\n", $thing); If you get tired of constantly saying C<print $lh-E<gt>maketext>, consider making a functional wrapper for it, like so: use Projname::L10N; our $lh; $lh = Projname::L10N->get_handle(...) || die "Language?"; sub pmt (@) { print( $lh->maketext(@_)) } # "pmt" is short for "Print MakeText" $Carp::Verbose = 1; # so if maketext fails, we see made the call to pmt Besides whole phrases meant for output, anything language-dependent should be put into the class Projname::L10N::en_us, whether as methods, or as lexicon entries -- this is discussed in the section "Entries in Each Lexicon", above. =item * Once the program is otherwise done, and once its localization for the first language works right (via the data and methods in Projname::L10N::en_us), you can get together the data for translation. If your first language lexicon isn't an _AUTO lexicon, then you already have all the messages explicitly in the lexicon (or else you'd be getting exceptions thrown when you call $lh->maketext to get messages that aren't in there). But if you were (advisedly) lazy and are using an _AUTO lexicon, then you've got to make a list of all the phrases that you've so far been letting _AUTO generate for you. There are very many ways to assemble such a list. The most straightforward is to simply grep the source for every occurrence of "maketext" (or calls to wrappers around it, like the above C<pmt> function), and to log the following phrase. =item * You may at this point want to consider whether your base class (Projname::L10N), from which all lexicons inherit from (Projname::L10N::en, Projname::L10N::es, etc.), should be an _AUTO lexicon. It may be true that in theory, all needed messages will be in each language class; but in the presumably unlikely or "impossible" case of lookup failure, you should consider whether your program should throw an exception, emit text in English (or whatever your project's first language is), or some more complex solution as described in the section "Controlling Lookup Failure", above. =item * Submit all messages/phrases/etc. to translators. (You may, in fact, want to start with localizing to I<one> other language at first, if you're not sure that you've properly abstracted the language-dependent parts of your code.) Translators may request clarification of the situation in which a particular phrase is found. For example, in English we are entirely happy saying "I<n> files found", regardless of whether we mean "I looked for files, and found I<n> of them" or the rather distinct situation of "I looked for something else (like lines in files), and along the way I saw I<n> files." This may involve rethinking things that you thought quite clear: should "Edit" on a toolbar be a noun ("editing") or a verb ("to edit")? Is there already a conventionalized way to express that menu option, separate from the target language's normal word for "to edit"? In all cases where the very common phenomenon of quantification (saying "I<N> files", for B<any> value of N) is involved, each translator should make clear what dependencies the number causes in the sentence. In many cases, dependency is limited to words adjacent to the number, in places where you might expect them ("I found the-?PLURAL I<N> empty-?PLURAL directory-?PLURAL"), but in some cases there are unexpected dependencies ("I found-?PLURAL ..."!) as well as long-distance dependencies "The I<N> directory-?PLURAL could not be deleted-?PLURAL"!). Remind the translators to consider the case where N is 0: "0 files found" isn't exactly natural-sounding in any language, but it may be unacceptable in many -- or it may condition special kinds of agreement (similar to English "I didN'T find ANY files"). Remember to ask your translators about numeral formatting in their language, so that you can override the C<numf> method as appropriate. Typical variables in number formatting are: what to use as a decimal point (comma? period?); what to use as a thousands separator (space? nonbreaking space? comma? period? small middot? prime? apostrophe?); and even whether the so-called "thousands separator" is actually for every third digit -- I've heard reports of two hundred thousand being expressible as "2,00,000" for some Indian (Subcontinental) languages, besides the less surprising "S<200 000>", "200.000", "200,000", and "200'000". Also, using a set of numeral glyphs other than the usual ASCII "0"-"9" might be appreciated, as via C<tr/0-9/\x{0966}-\x{096F}/> for getting digits in Devanagari script (for Hindi, Konkani, others). The basic C<quant> method that Locale::Maketext provides should be good for many languages. For some languages, it might be useful to modify it (or its constituent C<numerate> method) to take a plural form in the two-argument call to C<quant> (as in "[quant,_1,files]") if it's all-around easier to infer the singular form from the plural, than to infer the plural form from the singular. But for other languages (as is discussed at length in L<Locale::Maketext::TPJ13|Locale::Maketext::TPJ13>), simple C<quant>/C<numf> is not enough. For the particularly problematic Slavic languages, what you may need is a method which you provide with the number, the citation form of the noun to quantify, and the case and gender that the sentence's syntax projects onto that noun slot. The method would then be responsible for determining what grammatical number that numeral projects onto its noun phrase, and what case and gender it may override the normal case and gender with; and then it would look up the noun in a lexicon providing all needed inflected forms. =item * You may also wish to discuss with the translators the question of how to relate different subforms of the same language tag, considering how this reacts with C<get_handle>'s treatment of these. For example, if a user accepts interfaces in "en, fr", and you have interfaces available in "en-US" and "fr", what should they get? You may wish to resolve this by establishing that "en" and "en-US" are effectively synonymous, by having one class zero-derive from the other. For some languages this issue may never come up (Danish is rarely expressed as "da-DK", but instead is just "da"). And for other languages, the whole concept of a "generic" form may verge on being uselessly vague, particularly for interfaces involving voice media in forms of Arabic or Chinese. =item * Once you've localized your program/site/etc. for all desired languages, be sure to show the result (whether live, or via screenshots) to the translators. Once they approve, make every effort to have it then checked by at least one other speaker of that language. This holds true even when (or especially when) the translation is done by one of your own programmers. Some kinds of systems may be harder to find testers for than others, depending on the amount of domain-specific jargon and concepts involved -- it's easier to find people who can tell you whether they approve of your translation for "delete this message" in an email-via-Web interface, than to find people who can give you an informed opinion on your translation for "attribute value" in an XML query tool's interface. =back =head1 SEE ALSO I recommend reading all of these: L<Locale::Maketext::TPJ13|Locale::Maketext::TPJ13> -- my I<The Perl Journal> article about Maketext. It explains many important concepts underlying Locale::Maketext's design, and some insight into why Maketext is better than the plain old approach of having message catalogs that are just databases of sprintf formats. L<File::Findgrep|File::Findgrep> is a sample application/module that uses Locale::Maketext to localize its messages. For a larger internationalized system, see also L<Apache::MP3>. L<I18N::LangTags|I18N::LangTags>. L<Win32::Locale|Win32::Locale>. RFC 3066, I<Tags for the Identification of Languages>, as at L<http://sunsite.dk/RFC/rfc/rfc3066.html> RFC 2277, I<IETF Policy on Character Sets and Languages> is at L<http://sunsite.dk/RFC/rfc/rfc2277.html> -- much of it is just things of interest to protocol designers, but it explains some basic concepts, like the distinction between locales and language-tags. The manual for GNU C<gettext>. The gettext dist is available in C<L<ftp://prep.ai.mit.edu/pub/gnu/>> -- get a recent gettext tarball and look in its "doc/" directory, there's an easily browsable HTML version in there. The gettext documentation asks lots of questions worth thinking about, even if some of their answers are sometimes wonky, particularly where they start talking about pluralization. The Locale/Maketext.pm source. Observe that the module is much shorter than its documentation! =head1 COPYRIGHT AND DISCLAIMER Copyright (c) 1999-2004 Sean M. Burke. All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Sean M. Burke C<sburke@cpan.org> =cut PK ! �toN�v �v 5.34.0/Locale/Maketext.pmnu �[��� package Locale::Maketext; use strict; our $USE_LITERALS; use Carp (); use I18N::LangTags (); use I18N::LangTags::Detect (); #-------------------------------------------------------------------------- BEGIN { unless(defined &DEBUG) { *DEBUG = sub () {0} } } # define the constant 'DEBUG' at compile-time # turn on utf8 if we have it (this is what GutsLoader.pm used to do essentially ) # use if (exists $INC{'utf8.pm'} || eval 'use utf8'), 'utf8'; BEGIN { # if we have it || we can load it if ( exists $INC{'utf8.pm'} || eval { local $SIG{'__DIE__'};require utf8; } ) { utf8->import(); DEBUG and warn " utf8 on for _compile()\n"; } else { DEBUG and warn " utf8 not available for _compile() ($INC{'utf8.pm'})\n$@\n"; } } our $VERSION = '1.29'; our @ISA = (); our $MATCH_SUPERS = 1; our $MATCH_SUPERS_TIGHTLY = 1; our $USING_LANGUAGE_TAGS = 1; # Turning this off is somewhat of a security risk in that little or no # checking will be done on the legality of tokens passed to the # eval("use $module_name") in _try_use. If you turn this off, you have # to do your own taint checking. $USE_LITERALS = 1 unless defined $USE_LITERALS; # a hint for compiling bracket-notation things. my %isa_scan = (); ########################################################################### sub quant { my($handle, $num, @forms) = @_; return $num if @forms == 0; # what should this mean? return $forms[2] if @forms > 2 and $num == 0; # special zeroth case # Normal case: # Note that the formatting of $num is preserved. return( $handle->numf($num) . ' ' . $handle->numerate($num, @forms) ); # Most human languages put the number phrase before the qualified phrase. } sub numerate { # return this lexical item in a form appropriate to this number my($handle, $num, @forms) = @_; my $s = ($num == 1); return '' unless @forms; if(@forms == 1) { # only the headword form specified return $s ? $forms[0] : ($forms[0] . 's'); # very cheap hack. } else { # sing and plural were specified return $s ? $forms[0] : $forms[1]; } } #-------------------------------------------------------------------------- sub numf { my($handle, $num) = @_[0,1]; if($num < 10_000_000_000 and $num > -10_000_000_000 and $num == int($num)) { $num += 0; # Just use normal integer stringification. # Specifically, don't let %G turn ten million into 1E+007 } else { $num = CORE::sprintf('%G', $num); # "CORE::" is there to avoid confusion with the above sub sprintf. } while( $num =~ s/^([-+]?\d+)(\d{3})/$1,$2/s ) {1} # right from perlfaq5 # The initial \d+ gobbles as many digits as it can, and then we # backtrack so it un-eats the rightmost three, and then we # insert the comma there. $num =~ tr<.,><,.> if ref($handle) and $handle->{'numf_comma'}; # This is just a lame hack instead of using Number::Format return $num; } sub sprintf { no integer; my($handle, $format, @params) = @_; return CORE::sprintf($format, @params); # "CORE::" is there to avoid confusion with myself! } #=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=# use integer; # vroom vroom... applies to the whole rest of the module sub language_tag { my $it = ref($_[0]) || $_[0]; return undef unless $it =~ m/([^':]+)(?:::)?$/s; $it = lc($1); $it =~ tr<_><->; return $it; } sub encoding { my $it = $_[0]; return( (ref($it) && $it->{'encoding'}) || 'iso-8859-1' # Latin-1 ); } #-------------------------------------------------------------------------- sub fallback_languages { return('i-default', 'en', 'en-US') } sub fallback_language_classes { return () } #-------------------------------------------------------------------------- sub fail_with { # an actual attribute method! my($handle, @params) = @_; return unless ref($handle); $handle->{'fail'} = $params[0] if @params; return $handle->{'fail'}; } #-------------------------------------------------------------------------- sub blacklist { my ( $handle, @methods ) = @_; unless ( defined $handle->{'blacklist'} ) { no strict 'refs'; # Don't let people call methods they're not supposed to from maketext. # Explicitly exclude all methods in this package that start with an # underscore on principle. $handle->{'blacklist'} = { map { $_ => 1 } ( qw/ blacklist encoding fail_with failure_handler_auto fallback_language_classes fallback_languages get_handle init language_tag maketext new whitelist /, grep { /^_/ } keys %{ __PACKAGE__ . "::" } ), }; } if ( scalar @methods ) { $handle->{'blacklist'} = { %{ $handle->{'blacklist'} }, map { $_ => 1 } @methods }; } delete $handle->{'_external_lex_cache'}; return; } sub whitelist { my ( $handle, @methods ) = @_; if ( scalar @methods ) { $handle->{'whitelist'} = {} unless defined $handle->{'whitelist'}; $handle->{'whitelist'} = { %{ $handle->{'whitelist'} }, map { $_ => 1 } @methods }; } delete $handle->{'_external_lex_cache'}; return; } #-------------------------------------------------------------------------- sub failure_handler_auto { # Meant to be used like: # $handle->fail_with('failure_handler_auto') my $handle = shift; my $phrase = shift; $handle->{'failure_lex'} ||= {}; my $lex = $handle->{'failure_lex'}; my $value ||= ($lex->{$phrase} ||= $handle->_compile($phrase)); # Dumbly copied from sub maketext: return ${$value} if ref($value) eq 'SCALAR'; return $value if ref($value) ne 'CODE'; { local $SIG{'__DIE__'}; eval { $value = &$value($handle, @_) }; } # If we make it here, there was an exception thrown in the # call to $value, and so scream: if($@) { # pretty up the error message $@ =~ s{\s+at\s+\(eval\s+\d+\)\s+line\s+(\d+)\.?\n?} {\n in bracket code [compiled line $1],}s; #$err =~ s/\n?$/\n/s; Carp::croak "Error in maketexting \"$phrase\":\n$@ as used"; # Rather unexpected, but suppose that the sub tried calling # a method that didn't exist. } else { return $value; } } #========================================================================== sub new { # Nothing fancy! my $class = ref($_[0]) || $_[0]; my $handle = bless {}, $class; $handle->blacklist; $handle->init; return $handle; } sub init { return } # no-op ########################################################################### sub maketext { # Remember, this can fail. Failure is controllable many ways. Carp::croak 'maketext requires at least one parameter' unless @_ > 1; my($handle, $phrase) = splice(@_,0,2); Carp::confess('No handle/phrase') unless (defined($handle) && defined($phrase)); # backup $@ in case it's still being used in the calling code. # If no failures, we'll re-set it back to what it was later. my $at = $@; # Copy @_ case one of its elements is $@. @_ = @_; # Look up the value: my $value; if (exists $handle->{'_external_lex_cache'}{$phrase}) { DEBUG and warn "* Using external lex cache version of \"$phrase\"\n"; $value = $handle->{'_external_lex_cache'}{$phrase}; } else { foreach my $h_r ( @{ $isa_scan{ref($handle) || $handle} || $handle->_lex_refs } ) { DEBUG and warn "* Looking up \"$phrase\" in $h_r\n"; if(exists $h_r->{$phrase}) { DEBUG and warn " Found \"$phrase\" in $h_r\n"; unless(ref($value = $h_r->{$phrase})) { # Nonref means it's not yet compiled. Compile and replace. if ($handle->{'use_external_lex_cache'}) { $value = $handle->{'_external_lex_cache'}{$phrase} = $handle->_compile($value); } else { $value = $h_r->{$phrase} = $handle->_compile($value); } } last; } # extending packages need to be able to localize _AUTO and if readonly can't "local $h_r->{'_AUTO'} = 1;" # but they can "local $handle->{'_external_lex_cache'}{'_AUTO'} = 1;" elsif($phrase !~ m/^_/s and ($handle->{'use_external_lex_cache'} ? ( exists $handle->{'_external_lex_cache'}{'_AUTO'} ? $handle->{'_external_lex_cache'}{'_AUTO'} : $h_r->{'_AUTO'} ) : $h_r->{'_AUTO'})) { # it's an auto lex, and this is an autoable key! DEBUG and warn " Automaking \"$phrase\" into $h_r\n"; if ($handle->{'use_external_lex_cache'}) { $value = $handle->{'_external_lex_cache'}{$phrase} = $handle->_compile($phrase); } else { $value = $h_r->{$phrase} = $handle->_compile($phrase); } last; } DEBUG>1 and print " Not found in $h_r, nor automakable\n"; # else keep looking } } unless(defined($value)) { DEBUG and warn "! Lookup of \"$phrase\" in/under ", ref($handle) || $handle, " fails.\n"; if(ref($handle) and $handle->{'fail'}) { DEBUG and warn "WARNING0: maketext fails looking for <$phrase>\n"; my $fail; if(ref($fail = $handle->{'fail'}) eq 'CODE') { # it's a sub reference $@ = $at; # Put $@ back in case we altered it along the way. return &{$fail}($handle, $phrase, @_); # If it ever returns, it should return a good value. } else { # It's a method name $@ = $at; # Put $@ back in case we altered it along the way. return $handle->$fail($phrase, @_); # If it ever returns, it should return a good value. } } else { # All we know how to do is this; Carp::croak("maketext doesn't know how to say:\n$phrase\nas needed"); } } if(ref($value) eq 'SCALAR'){ $@ = $at; # Put $@ back in case we altered it along the way. return $$value ; } if(ref($value) ne 'CODE'){ $@ = $at; # Put $@ back in case we altered it along the way. return $value ; } { local $SIG{'__DIE__'}; eval { $value = &$value($handle, @_) }; } # If we make it here, there was an exception thrown in the # call to $value, and so scream: if ($@) { # pretty up the error message $@ =~ s{\s+at\s+\(eval\s+\d+\)\s+line\s+(\d+)\.?\n?} {\n in bracket code [compiled line $1],}s; #$err =~ s/\n?$/\n/s; Carp::croak "Error in maketexting \"$phrase\":\n$@ as used"; # Rather unexpected, but suppose that the sub tried calling # a method that didn't exist. } else { $@ = $at; # Put $@ back in case we altered it along the way. return $value; } $@ = $at; # Put $@ back in case we altered it along the way. } ########################################################################### sub get_handle { # This is a constructor and, yes, it CAN FAIL. # Its class argument has to be the base class for the current # application's l10n files. my($base_class, @languages) = @_; $base_class = ref($base_class) || $base_class; # Complain if they use __PACKAGE__ as a project base class? if( @languages ) { DEBUG and warn 'Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n"; if($USING_LANGUAGE_TAGS) { # An explicit language-list was given! @languages = map {; $_, I18N::LangTags::alternate_language_tags($_) } # Catch alternation map I18N::LangTags::locale2language_tag($_), # If it's a lg tag, fine, pass thru (untainted) # If it's a locale ID, try converting to a lg tag (untainted), # otherwise nix it. @languages; DEBUG and warn 'Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n"; } } else { @languages = $base_class->_ambient_langprefs; } @languages = $base_class->_langtag_munging(@languages); my %seen; foreach my $module_name ( map { $base_class . '::' . $_ } @languages ) { next unless length $module_name; # sanity next if $seen{$module_name}++ # Already been here, and it was no-go || !&_try_use($module_name); # Try to use() it, but can't it. return($module_name->new); # Make it! } return undef; # Fail! } ########################################################################### sub _langtag_munging { my($base_class, @languages) = @_; # We have all these DEBUG statements because otherwise it's hard as hell # to diagnose if/when something goes wrong. DEBUG and warn 'Lgs1: ', map("<$_>", @languages), "\n"; if($USING_LANGUAGE_TAGS) { DEBUG and warn 'Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n"; @languages = $base_class->_add_supers( @languages ); push @languages, I18N::LangTags::panic_languages(@languages); DEBUG and warn "After adding panic languages:\n", ' Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n"; push @languages, $base_class->fallback_languages; # You are free to override fallback_languages to return empty-list! DEBUG and warn 'Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n"; @languages = # final bit of processing to turn them into classname things map { my $it = $_; # copy $it =~ tr<-A-Z><_a-z>; # lc, and turn - to _ $it =~ tr<_a-z0-9><>cd; # remove all but a-z0-9_ $it; } @languages ; DEBUG and warn "Nearing end of munging:\n", ' Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n"; } else { DEBUG and warn "Bypassing language-tags.\n", ' Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n"; } DEBUG and warn "Before adding fallback classes:\n", ' Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n"; push @languages, $base_class->fallback_language_classes; # You are free to override that to return whatever. DEBUG and warn "Finally:\n", ' Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n"; return @languages; } ########################################################################### sub _ambient_langprefs { return I18N::LangTags::Detect::detect(); } ########################################################################### sub _add_supers { my($base_class, @languages) = @_; if (!$MATCH_SUPERS) { # Nothing DEBUG and warn "Bypassing any super-matching.\n", ' Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n"; } elsif( $MATCH_SUPERS_TIGHTLY ) { DEBUG and warn "Before adding new supers tightly:\n", ' Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n"; @languages = I18N::LangTags::implicate_supers( @languages ); DEBUG and warn "After adding new supers tightly:\n", ' Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n"; } else { DEBUG and warn "Before adding supers to end:\n", ' Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n"; @languages = I18N::LangTags::implicate_supers_strictly( @languages ); DEBUG and warn "After adding supers to end:\n", ' Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n"; } return @languages; } ########################################################################### # # This is where most people should stop reading. # ########################################################################### my %tried = (); # memoization of whether we've used this module, or found it unusable. sub _try_use { # Basically a wrapper around "require Modulename" # "Many men have tried..." "They tried and failed?" "They tried and died." return $tried{$_[0]} if exists $tried{$_[0]}; # memoization my $module = $_[0]; # ASSUME sane module name! { no strict 'refs'; no warnings 'once'; return($tried{$module} = 1) if %{$module . '::Lexicon'} or @{$module . '::ISA'}; # weird case: we never use'd it, but there it is! } DEBUG and warn " About to use $module ...\n"; local $SIG{'__DIE__'}; local $@; local @INC = @INC; pop @INC if $INC[-1] eq '.'; eval "require $module"; # used to be "use $module", but no point in that. if($@) { DEBUG and warn "Error using $module \: $@\n"; return $tried{$module} = 0; } else { DEBUG and warn " OK, $module is used\n"; return $tried{$module} = 1; } } #-------------------------------------------------------------------------- sub _lex_refs { # report the lexicon references for this handle's class # returns an arrayREF! no strict 'refs'; no warnings 'once'; my $class = ref($_[0]) || $_[0]; DEBUG and warn "Lex refs lookup on $class\n"; return $isa_scan{$class} if exists $isa_scan{$class}; # memoization! my @lex_refs; my $seen_r = ref($_[1]) ? $_[1] : {}; if( defined( *{$class . '::Lexicon'}{'HASH'} )) { push @lex_refs, *{$class . '::Lexicon'}{'HASH'}; DEBUG and warn '%' . $class . '::Lexicon contains ', scalar(keys %{$class . '::Lexicon'}), " entries\n"; } # Implements depth(height?)-first recursive searching of superclasses. # In hindsight, I suppose I could have just used Class::ISA! foreach my $superclass (@{$class . '::ISA'}) { DEBUG and warn " Super-class search into $superclass\n"; next if $seen_r->{$superclass}++; push @lex_refs, @{&_lex_refs($superclass, $seen_r)}; # call myself } $isa_scan{$class} = \@lex_refs; # save for next time return \@lex_refs; } sub clear_isa_scan { %isa_scan = (); return; } # end on a note of simplicity! #-------------------------------------------------------------------------- sub _compile { # This big scary routine compiles an entry. # It returns either a coderef if there's brackety bits in this, or # otherwise a ref to a scalar. my $string_to_compile = $_[1]; # There are taint issues using regex on @_ - perlbug 60378,27344 # The while() regex is more expensive than this check on strings that don't need a compile. # this op causes a ~2% speed hit for strings that need compile and a 250% speed improvement # on strings that don't need compiling. return \"$string_to_compile" if($string_to_compile !~ m/[\[~\]]/ms); # return a string ref if chars [~] are not in the string my $handle = $_[0]; my(@code); my(@c) = (''); # "chunks" -- scratch. my $call_count = 0; my $big_pile = ''; { my $in_group = 0; # start out outside a group my($m, @params); # scratch while($string_to_compile =~ # Iterate over chunks. m/( [^\~\[\]]+ # non-~[] stuff (Capture everything else here) | ~. # ~[, ~], ~~, ~other | \[ # [ presumably opening a group | \] # ] presumably closing a group | ~ # terminal ~ ? | $ )/xgs ) { DEBUG>2 and warn qq{ "$1"\n}; if($1 eq '[' or $1 eq '') { # "[" or end # Whether this is "[" or end, force processing of any # preceding literal. if($in_group) { if($1 eq '') { $handle->_die_pointing($string_to_compile, 'Unterminated bracket group'); } else { $handle->_die_pointing($string_to_compile, 'You can\'t nest bracket groups'); } } else { if ($1 eq '') { DEBUG>2 and warn " [end-string]\n"; } else { $in_group = 1; } die "How come \@c is empty?? in <$string_to_compile>" unless @c; # sanity if(length $c[-1]) { # Now actually processing the preceding literal $big_pile .= $c[-1]; if($USE_LITERALS and ( (ord('A') == 65) ? $c[-1] !~ m/[^\x20-\x7E]/s # ASCII very safe chars : $c[-1] !~ m/[^ !"\#\$%&'()*+,\-.\/0-9:;<=>?\@A-Z[\\\]^_`a-z{|}~\x07]/s # EBCDIC very safe chars )) { # normal case -- all very safe chars $c[-1] =~ s/'/\\'/g; push @code, q{ '} . $c[-1] . "',\n"; $c[-1] = ''; # reuse this slot } else { $c[-1] =~ s/\\\\/\\/g; push @code, ' $c[' . $#c . "],\n"; push @c, ''; # new chunk } } # else just ignore the empty string. } } elsif($1 eq ']') { # "]" # close group -- go back in-band if($in_group) { $in_group = 0; DEBUG>2 and warn " --Closing group [$c[-1]]\n"; # And now process the group... if(!length($c[-1]) or $c[-1] =~ m/^\s+$/s) { DEBUG>2 and warn " -- (Ignoring)\n"; $c[-1] = ''; # reset out chink next; } #$c[-1] =~ s/^\s+//s; #$c[-1] =~ s/\s+$//s; ($m,@params) = split(/,/, $c[-1], -1); # was /\s*,\s*/ # A bit of a hack -- we've turned "~,"'s into DELs, so turn # 'em into real commas here. if (ord('A') == 65) { # ASCII, etc foreach($m, @params) { tr/\x7F/,/ } } else { # EBCDIC (1047, 0037, POSIX-BC) # Thanks to Peter Prymmer for the EBCDIC handling foreach($m, @params) { tr/\x07/,/ } } # Special-case handling of some method names: if($m eq '_*' or $m =~ m/^_(-?\d+)$/s) { # Treat [_1,...] as [,_1,...], etc. unshift @params, $m; $m = ''; } elsif($m eq '*') { $m = 'quant'; # "*" for "times": "4 cars" is 4 times "cars" } elsif($m eq '#') { $m = 'numf'; # "#" for "number": [#,_1] for "the number _1" } # Most common case: a simple, legal-looking method name if($m eq '') { # 0-length method name means to just interpolate: push @code, ' ('; } elsif($m =~ /^\w+$/s && !$handle->{'blacklist'}{$m} && ( !defined $handle->{'whitelist'} || $handle->{'whitelist'}{$m} ) # exclude anything fancy and restrict to the whitelist/blacklist. ) { push @code, ' $_[0]->' . $m . '('; } else { # TODO: implement something? or just too icky to consider? $handle->_die_pointing( $string_to_compile, "Can't use \"$m\" as a method name in bracket group", 2 + length($c[-1]) ); } pop @c; # we don't need that chunk anymore ++$call_count; foreach my $p (@params) { if($p eq '_*') { # Meaning: all parameters except $_[0] $code[-1] .= ' @_[1 .. $#_], '; # and yes, that does the right thing for all @_ < 3 } elsif($p =~ m/^_(-?\d+)$/s) { # _3 meaning $_[3] $code[-1] .= '$_[' . (0 + $1) . '], '; } elsif($USE_LITERALS and ( (ord('A') == 65) ? $p !~ m/[^\x20-\x7E]/s # ASCII very safe chars : $p !~ m/[^ !"\#\$%&'()*+,\-.\/0-9:;<=>?\@A-Z[\\\]^_`a-z{|}~\x07]/s # EBCDIC very safe chars )) { # Normal case: a literal containing only safe characters $p =~ s/'/\\'/g; $code[-1] .= q{'} . $p . q{', }; } else { # Stow it on the chunk-stack, and just refer to that. push @c, $p; push @code, ' $c[' . $#c . '], '; } } $code[-1] .= "),\n"; push @c, ''; } else { $handle->_die_pointing($string_to_compile, q{Unbalanced ']'}); } } elsif(substr($1,0,1) ne '~') { # it's stuff not containing "~" or "[" or "]" # i.e., a literal blob my $text = $1; $text =~ s/\\/\\\\/g; $c[-1] .= $text; } elsif($1 eq '~~') { # "~~" $c[-1] .= '~'; } elsif($1 eq '~[') { # "~[" $c[-1] .= '['; } elsif($1 eq '~]') { # "~]" $c[-1] .= ']'; } elsif($1 eq '~,') { # "~," if($in_group) { # This is a hack, based on the assumption that no-one will actually # want a DEL inside a bracket group. Let's hope that's it's true. if (ord('A') == 65) { # ASCII etc $c[-1] .= "\x7F"; } else { # EBCDIC (cp 1047, 0037, POSIX-BC) $c[-1] .= "\x07"; } } else { $c[-1] .= '~,'; } } elsif($1 eq '~') { # possible only at string-end, it seems. $c[-1] .= '~'; } else { # It's a "~X" where X is not a special character. # Consider it a literal ~ and X. my $text = $1; $text =~ s/\\/\\\\/g; $c[-1] .= $text; } } } if($call_count) { undef $big_pile; # Well, nevermind that. } else { # It's all literals! Ahwell, that can happen. # So don't bother with the eval. Return a SCALAR reference. return \$big_pile; } die q{Last chunk isn't null??} if @c and length $c[-1]; # sanity DEBUG and warn scalar(@c), " chunks under closure\n"; if(@code == 0) { # not possible? DEBUG and warn "Empty code\n"; return \''; } elsif(@code > 1) { # most cases, presumably! unshift @code, "join '',\n"; } unshift @code, "use strict; sub {\n"; push @code, "}\n"; DEBUG and warn @code; my $sub = eval(join '', @code); die "$@ while evalling" . join('', @code) if $@; # Should be impossible. return $sub; } #-------------------------------------------------------------------------- sub _die_pointing { # This is used by _compile to throw a fatal error my $target = shift; $target = ref($target) || $target; # class name # ...leaving $_[0] the error-causing text, and $_[1] the error message my $i = index($_[0], "\n"); my $pointy; my $pos = pos($_[0]) - (defined($_[2]) ? $_[2] : 0) - 1; if($pos < 1) { $pointy = "^=== near there\n"; } else { # we need to space over my $first_tab = index($_[0], "\t"); if($pos > 2 and ( -1 == $first_tab or $first_tab > pos($_[0]))) { # No tabs, or the first tab is harmlessly after where we will point to, # AND we're far enough from the margin that we can draw a proper arrow. $pointy = ('=' x $pos) . "^ near there\n"; } else { # tabs screw everything up! $pointy = substr($_[0],0,$pos); $pointy =~ tr/\t //cd; # make everything into whitespace, but preserving tabs $pointy .= "^=== near there\n"; } } my $errmsg = "$_[1], in\:\n$_[0]"; if($i == -1) { # No newline. $errmsg .= "\n" . $pointy; } elsif($i == (length($_[0]) - 1) ) { # Already has a newline at end. $errmsg .= $pointy; } else { # don't bother with the pointy bit, I guess. } Carp::croak( "$errmsg via $target, as used" ); } 1; PK ! �++�@& @& 5.34.0/Locale/Maketext/Simple.pmnu �[��� package Locale::Maketext::Simple; $Locale::Maketext::Simple::VERSION = '0.21_01'; use strict; use 5.005; =head1 NAME Locale::Maketext::Simple - Simple interface to Locale::Maketext::Lexicon =head1 VERSION This document describes version 0.18 of Locale::Maketext::Simple, released Septermber 8, 2006. =head1 SYNOPSIS Minimal setup (looks for F<auto/Foo/*.po> and F<auto/Foo/*.mo>): package Foo; use Locale::Maketext::Simple; # exports 'loc' loc_lang('fr'); # set language to French sub hello { print loc("Hello, [_1]!", "World"); } More sophisticated example: package Foo::Bar; use Locale::Maketext::Simple ( Class => 'Foo', # search in auto/Foo/ Style => 'gettext', # %1 instead of [_1] Export => 'maketext', # maketext() instead of loc() Subclass => 'L10N', # Foo::L10N instead of Foo::I18N Decode => 1, # decode entries to unicode-strings Encoding => 'locale', # but encode lexicons in current locale # (needs Locale::Maketext::Lexicon 0.36) ); sub japh { print maketext("Just another %1 hacker", "Perl"); } =head1 DESCRIPTION This module is a simple wrapper around B<Locale::Maketext::Lexicon>, designed to alleviate the need of creating I<Language Classes> for module authors. The language used is chosen from the loc_lang call. If a lookup is not possible, the i-default language will be used. If the lookup is not in the i-default language, then the key will be returned. If B<Locale::Maketext::Lexicon> is not present, it implements a minimal localization function by simply interpolating C<[_1]> with the first argument, C<[_2]> with the second, etc. Interpolated function like C<[quant,_1]> are treated as C<[_1]>, with the sole exception of C<[tense,_1,X]>, which will append C<ing> to C<_1> when X is C<present>, or appending C<ed> to <_1> otherwise. =head1 OPTIONS All options are passed either via the C<use> statement, or via an explicit C<import>. =head2 Class By default, B<Locale::Maketext::Simple> draws its source from the calling package's F<auto/> directory; you can override this behaviour by explicitly specifying another package as C<Class>. =head2 Path If your PO and MO files are under a path elsewhere than C<auto/>, you may specify it using the C<Path> option. =head2 Style By default, this module uses the C<maketext> style of C<[_1]> and C<[quant,_1]> for interpolation. Alternatively, you can specify the C<gettext> style, which uses C<%1> and C<%quant(%1)> for interpolation. This option is case-insensitive. =head2 Export By default, this module exports a single function, C<loc>, into its caller's namespace. You can set it to another name, or set it to an empty string to disable exporting. =head2 Subclass By default, this module creates an C<::I18N> subclass under the caller's package (or the package specified by C<Class>), and stores lexicon data in its subclasses. You can assign a name other than C<I18N> via this option. =head2 Decode If set to a true value, source entries will be converted into utf8-strings (available in Perl 5.6.1 or later). This feature needs the B<Encode> or B<Encode::compat> module. =head2 Encoding Specifies an encoding to store lexicon entries, instead of utf8-strings. If set to C<locale>, the encoding from the current locale setting is used. Implies a true value for C<Decode>. =cut sub import { my ($class, %args) = @_; $args{Class} ||= caller; $args{Style} ||= 'maketext'; $args{Export} ||= 'loc'; $args{Subclass} ||= 'I18N'; my ($loc, $loc_lang) = $class->load_loc(%args); $loc ||= $class->default_loc(%args); no strict 'refs'; *{caller(0) . "::$args{Export}"} = $loc if $args{Export}; *{caller(0) . "::$args{Export}_lang"} = $loc_lang || sub { 1 }; } my %Loc; sub reload_loc { %Loc = () } sub load_loc { my ($class, %args) = @_; my $pkg = join('::', grep { defined and length } $args{Class}, $args{Subclass}); return $Loc{$pkg} if exists $Loc{$pkg}; eval { local @INC = @INC; pop @INC if $INC[-1] eq '.'; require Locale::Maketext::Lexicon; 1 } or return; $Locale::Maketext::Lexicon::VERSION > 0.20 or return; eval { require File::Spec; 1 } or return; my $path = $args{Path} || $class->auto_path($args{Class}) or return; my $pattern = File::Spec->catfile($path, '*.[pm]o'); my $decode = $args{Decode} || 0; my $encoding = $args{Encoding} || undef; $decode = 1 if $encoding; $pattern =~ s{\\}{/}g; # to counter win32 paths eval " package $pkg; use base 'Locale::Maketext'; Locale::Maketext::Lexicon->import({ 'i-default' => [ 'Auto' ], '*' => [ Gettext => \$pattern ], _decode => \$decode, _encoding => \$encoding, }); *${pkg}::Lexicon = \\%${pkg}::i_default::Lexicon; *tense = sub { \$_[1] . ((\$_[2] eq 'present') ? 'ing' : 'ed') } unless defined &tense; 1; " or die $@; my $lh = eval { $pkg->get_handle } or return; my $style = lc($args{Style}); if ($style eq 'maketext') { $Loc{$pkg} = sub { $lh->maketext(@_) }; } elsif ($style eq 'gettext') { $Loc{$pkg} = sub { my $str = shift; $str =~ s{([\~\[\]])}{~$1}g; $str =~ s{ ([%\\]%) # 1 - escaped sequence | % (?: ([A-Za-z#*]\w*) # 2 - function call \(([^\)]*)\) # 3 - arguments | ([1-9]\d*|\*) # 4 - variable ) }{ $1 ? $1 : $2 ? "\[$2,"._unescape($3)."]" : "[_$4]" }egx; return $lh->maketext($str, @_); }; } else { die "Unknown Style: $style"; } return $Loc{$pkg}, sub { $lh = $pkg->get_handle(@_); }; } sub default_loc { my ($self, %args) = @_; my $style = lc($args{Style}); if ($style eq 'maketext') { return sub { my $str = shift; $str =~ s{((?<!~)(?:~~)*)\[_([1-9]\d*|\*)\]} {$1%$2}g; $str =~ s{((?<!~)(?:~~)*)\[([A-Za-z#*]\w*),([^\]]+)\]} {"$1%$2(" . _escape($3) . ')'}eg; _default_gettext($str, @_); }; } elsif ($style eq 'gettext') { return \&_default_gettext; } else { die "Unknown Style: $style"; } } sub _default_gettext { my $str = shift; $str =~ s{ % # leading symbol (?: # either one of \d+ # a digit, like %1 | # or (\w+)\( # a function call -- 1 (?: # either %\d+ # an interpolation | # or ([^,]*) # some string -- 2 ) # end either (?: # maybe followed , # by a comma ([^),]*) # and a param -- 3 )? # end maybe (?: # maybe followed , # by another comma ([^),]*) # and a param -- 4 )? # end maybe [^)]* # and other ignorable params \) # closing function call ) # closing either one of }{ my $digit = $2 || shift; $digit . ( $1 ? ( ($1 eq 'tense') ? (($3 eq 'present') ? 'ing' : 'ed') : ($1 eq 'quant') ? ' ' . (($digit > 1) ? ($4 || "$3s") : $3) : '' ) : '' ); }egx; return $str; }; sub _escape { my $text = shift; $text =~ s/\b_([1-9]\d*)/%$1/g; return $text; } sub _unescape { join(',', map { /\A(\s*)%([1-9]\d*|\*)(\s*)\z/ ? "$1_$2$3" : $_ } split(/,/, $_[0])); } sub auto_path { my ($self, $calldir) = @_; $calldir =~ s#::#/#g; my $path = $INC{$calldir . '.pm'} or return; # Try absolute path name. if ($^O eq 'MacOS') { (my $malldir = $calldir) =~ tr#/#:#; $path =~ s#^(.*)$malldir\.pm\z#$1auto:$malldir:#s; } else { $path =~ s#^(.*)$calldir\.pm\z#$1auto/$calldir/#; } return $path if -d $path; # If that failed, try relative path with normal @INC searching. $path = "auto/$calldir/"; foreach my $inc (@INC) { return "$inc/$path" if -d "$inc/$path"; } return; } 1; =head1 ACKNOWLEDGMENTS Thanks to Jos I. Boumans for suggesting this module to be written. Thanks to Chia-Liang Kao for suggesting C<Path> and C<loc_lang>. =head1 SEE ALSO L<Locale::Maketext>, L<Locale::Maketext::Lexicon> =head1 AUTHORS Audrey Tang E<lt>cpan@audreyt.orgE<gt> =head1 COPYRIGHT Copyright 2003, 2004, 2005, 2006 by Audrey Tang E<lt>cpan@audreyt.orgE<gt>. This software is released under the MIT license cited below. Additionally, when this software is distributed with B<Perl Kit, Version 5>, you may also redistribute it and/or modify it under the same terms as Perl itself. =head2 The "MIT" License Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. =cut PK ! r۬~� � $ 5.34.0/Locale/Maketext/GutsLoader.pmnu �[��� package Locale::Maketext::GutsLoader; use Locale::Maketext; our $VERSION = '1.20'; sub zorp { return scalar @_ } =head1 NAME Locale::Maketext::GutsLoader - Deprecated module to load Locale::Maketext utf8 code =head1 SYNOPSIS # Do this instead please use Locale::Maketext =head1 DESCRIPTION Previously Locale::Maketext::Guts performed some magic to load Locale::Maketext when utf8 was unavailable. The subs this module provided were merged back into Locale::Maketext. =cut 1; PK ! #d�q� � 5.34.0/Locale/Maketext/Guts.pmnu �[��� package Locale::Maketext::Guts; use Locale::Maketext; our $VERSION = '1.20'; =head1 NAME Locale::Maketext::Guts - Deprecated module to load Locale::Maketext utf8 code =head1 SYNOPSIS # Do this instead please use Locale::Maketext =head1 DESCRIPTION Previously Local::Maketext::GutsLoader performed some magic to load Locale::Maketext when utf8 was unavailable. The subs this module provided were merged back into Locale::Maketext =cut 1; PK ! (�� � � 5.34.0/Locale/Maketext/TPJ13.podnu �[��� # This document contains text in Perl "POD" format. # Use a POD viewer like perldoc or perlman to render it. =head1 NAME Locale::Maketext::TPJ13 -- article about software localization =head1 SYNOPSIS # This an article, not a module. =head1 DESCRIPTION The following article by Sean M. Burke and Jordan Lachler first appeared in I<The Perl Journal> #13 and is copyright 1999 The Perl Journal. It appears courtesy of Jon Orwant and The Perl Journal. This document may be distributed under the same terms as Perl itself. =head1 Localization and Perl: gettext breaks, Maketext fixes by Sean M. Burke and Jordan Lachler This article points out cases where gettext (a common system for localizing software interfaces -- i.e., making them work in the user's language of choice) fails because of basic differences between human languages. This article then describes Maketext, a new system capable of correctly treating these differences. =head2 A Localization Horror Story: It Could Happen To You =over "There are a number of languages spoken by human beings in this world." -- Harald Tveit Alvestrand, in RFC 1766, "Tags for the Identification of Languages" =back Imagine that your task for the day is to localize a piece of software -- and luckily for you, the only output the program emits is two messages, like this: I scanned 12 directories. Your query matched 10 files in 4 directories. So how hard could that be? You look at the code that produces the first item, and it reads: printf("I scanned %g directories.", $directory_count); You think about that, and realize that it doesn't even work right for English, as it can produce this output: I scanned 1 directories. So you rewrite it to read: printf("I scanned %g %s.", $directory_count, $directory_count == 1 ? "directory" : "directories", ); ...which does the Right Thing. (In case you don't recall, "%g" is for locale-specific number interpolation, and "%s" is for string interpolation.) But you still have to localize it for all the languages you're producing this software for, so you pull Locale::gettext off of CPAN so you can access the C<gettext> C functions you've heard are standard for localization tasks. And you write: printf(gettext("I scanned %g %s."), $dir_scan_count, $dir_scan_count == 1 ? gettext("directory") : gettext("directories"), ); But you then read in the gettext manual (Drepper, Miller, and Pinard 1995) that this is not a good idea, since how a single word like "directory" or "directories" is translated may depend on context -- and this is true, since in a case language like German or Russian, you'd may need these words with a different case ending in the first instance (where the word is the object of a verb) than in the second instance, which you haven't even gotten to yet (where the word is the object of a preposition, "in %g directories") -- assuming these keep the same syntax when translated into those languages. So, on the advice of the gettext manual, you rewrite: printf( $dir_scan_count == 1 ? gettext("I scanned %g directory.") : gettext("I scanned %g directories."), $dir_scan_count ); So, you email your various translators (the boss decides that the languages du jour are Chinese, Arabic, Russian, and Italian, so you have one translator for each), asking for translations for "I scanned %g directory." and "I scanned %g directories.". When they reply, you'll put that in the lexicons for gettext to use when it localizes your software, so that when the user is running under the "zh" (Chinese) locale, gettext("I scanned %g directory.") will return the appropriate Chinese text, with a "%g" in there where printf can then interpolate $dir_scan. Your Chinese translator emails right back -- he says both of these phrases translate to the same thing in Chinese, because, in linguistic jargon, Chinese "doesn't have number as a grammatical category" -- whereas English does. That is, English has grammatical rules that refer to "number", i.e., whether something is grammatically singular or plural; and one of these rules is the one that forces nouns to take a plural suffix (generally "s") when in a plural context, as they are when they follow a number other than "one" (including, oddly enough, "zero"). Chinese has no such rules, and so has just the one phrase where English has two. But, no problem, you can have this one Chinese phrase appear as the translation for the two English phrases in the "zh" gettext lexicon for your program. Emboldened by this, you dive into the second phrase that your software needs to output: "Your query matched 10 files in 4 directories.". You notice that if you want to treat phrases as indivisible, as the gettext manual wisely advises, you need four cases now, instead of two, to cover the permutations of singular and plural on the two items, $dir_count and $file_count. So you try this: printf( $file_count == 1 ? ( $directory_count == 1 ? gettext("Your query matched %g file in %g directory.") : gettext("Your query matched %g file in %g directories.") ) : ( $directory_count == 1 ? gettext("Your query matched %g files in %g directory.") : gettext("Your query matched %g files in %g directories.") ), $file_count, $directory_count, ); (The case of "1 file in 2 [or more] directories" could, I suppose, occur in the case of symlinking or something of the sort.) It occurs to you that this is not the prettiest code you've ever written, but this seems the way to go. You mail off to the translators asking for translations for these four cases. The Chinese guy replies with the one phrase that these all translate to in Chinese, and that phrase has two "%g"s in it, as it should -- but there's a problem. He translates it word-for-word back: "In %g directories contains %g files match your query." The %g slots are in an order reverse to what they are in English. You wonder how you'll get gettext to handle that. But you put it aside for the moment, and optimistically hope that the other translators won't have this problem, and that their languages will be better behaved -- i.e., that they will be just like English. But the Arabic translator is the next to write back. First off, your code for "I scanned %g directory." or "I scanned %g directories." assumes there's only singular or plural. But, to use linguistic jargon again, Arabic has grammatical number, like English (but unlike Chinese), but it's a three-term category: singular, dual, and plural. In other words, the way you say "directory" depends on whether there's one directory, or I<two> of them, or I<more than two> of them. Your test of C<($directory == 1)> no longer does the job. And it means that where English's grammatical category of number necessitates only the two permutations of the first sentence based on "directory [singular]" and "directories [plural]", Arabic has three -- and, worse, in the second sentence ("Your query matched %g file in %g directory."), where English has four, Arabic has nine. You sense an unwelcome, exponential trend taking shape. Your Italian translator emails you back and says that "I searched 0 directories" (a possible English output of your program) is stilted, and if you think that's fine English, that's your problem, but that I<just will not do> in the language of Dante. He insists that where $directory_count is 0, your program should produce the Italian text for "I I<didn't> scan I<any> directories.". And ditto for "I didn't match any files in any directories", although he says the last part about "in any directories" should probably just be left off. You wonder how you'll get gettext to handle this; to accommodate the ways Arabic, Chinese, and Italian deal with numbers in just these few very simple phrases, you need to write code that will ask gettext for different queries depending on whether the numerical values in question are 1, 2, more than 2, or in some cases 0, and you still haven't figured out the problem with the different word order in Chinese. Then your Russian translator calls on the phone, to I<personally> tell you the bad news about how really unpleasant your life is about to become: Russian, like German or Latin, is an inflectional language; that is, nouns and adjectives have to take endings that depend on their case (i.e., nominative, accusative, genitive, etc...) -- which is roughly a matter of what role they have in syntax of the sentence -- as well as on the grammatical gender (i.e., masculine, feminine, neuter) and number (i.e., singular or plural) of the noun, as well as on the declension class of the noun. But unlike with most other inflected languages, putting a number-phrase (like "ten" or "forty-three", or their Arabic numeral equivalents) in front of noun in Russian can change the case and number that noun is, and therefore the endings you have to put on it. He elaborates: In "I scanned %g directories", you'd I<expect> "directories" to be in the accusative case (since it is the direct object in the sentence) and the plural number, except where $directory_count is 1, then you'd expect the singular, of course. Just like Latin or German. I<But!> Where $directory_count % 10 is 1 ("%" for modulo, remember), assuming $directory count is an integer, and except where $directory_count % 100 is 11, "directories" is forced to become grammatically singular, which means it gets the ending for the accusative singular... You begin to visualize the code it'd take to test for the problem so far, I<and still work for Chinese and Arabic and Italian>, and how many gettext items that'd take, but he keeps going... But where $directory_count % 10 is 2, 3, or 4 (except where $directory_count % 100 is 12, 13, or 14), the word for "directories" is forced to be genitive singular -- which means another ending... The room begins to spin around you, slowly at first... But with I<all other> integer values, since "directory" is an inanimate noun, when preceded by a number and in the nominative or accusative cases (as it is here, just your luck!), it does stay plural, but it is forced into the genitive case -- yet another ending... And you never hear him get to the part about how you're going to run into similar (but maybe subtly different) problems with other Slavic languages like Polish, because the floor comes up to meet you, and you fade into unconsciousness. The above cautionary tale relates how an attempt at localization can lead from programmer consternation, to program obfuscation, to a need for sedation. But careful evaluation shows that your choice of tools merely needed further consideration. =head2 The Linguistic View =over "It is more complicated than you think." -- The Eighth Networking Truth, from RFC 1925 =back The field of Linguistics has expended a great deal of effort over the past century trying to find grammatical patterns which hold across languages; it's been a constant process of people making generalizations that should apply to all languages, only to find out that, all too often, these generalizations fail -- sometimes failing for just a few languages, sometimes whole classes of languages, and sometimes nearly every language in the world except English. Broad statistical trends are evident in what the "average language" is like as far as what its rules can look like, must look like, and cannot look like. But the "average language" is just as unreal a concept as the "average person" -- it runs up against the fact no language (or person) is, in fact, average. The wisdom of past experience leads us to believe that any given language can do whatever it wants, in any order, with appeal to any kind of grammatical categories wants -- case, number, tense, real or metaphoric characteristics of the things that words refer to, arbitrary or predictable classifications of words based on what endings or prefixes they can take, degree or means of certainty about the truth of statements expressed, and so on, ad infinitum. Mercifully, most localization tasks are a matter of finding ways to translate whole phrases, generally sentences, where the context is relatively set, and where the only variation in content is I<usually> in a number being expressed -- as in the example sentences above. Translating specific, fully-formed sentences is, in practice, fairly foolproof -- which is good, because that's what's in the phrasebooks that so many tourists rely on. Now, a given phrase (whether in a phrasebook or in a gettext lexicon) in one language I<might> have a greater or lesser applicability than that phrase's translation into another language -- for example, strictly speaking, in Arabic, the "your" in "Your query matched..." would take a different form depending on whether the user is male or female; so the Arabic translation "your[feminine] query" is applicable in fewer cases than the corresponding English phrase, which doesn't distinguish the user's gender. (In practice, it's not feasible to have a program know the user's gender, so the masculine "you" in Arabic is usually used, by default.) But in general, such surprises are rare when entire sentences are being translated, especially when the functional context is restricted to that of a computer interacting with a user either to convey a fact or to prompt for a piece of information. So, for purposes of localization, translation by phrase (generally by sentence) is both the simplest and the least problematic. =head2 Breaking gettext =over "It Has To Work." -- First Networking Truth, RFC 1925 =back Consider that sentences in a tourist phrasebook are of two types: ones like "How do I get to the marketplace?" that don't have any blanks to fill in, and ones like "How much do these ___ cost?", where there's one or more blanks to fill in (and these are usually linked to a list of words that you can put in that blank: "fish", "potatoes", "tomatoes", etc.). The ones with no blanks are no problem, but the fill-in-the-blank ones may not be really straightforward. If it's a Swahili phrasebook, for example, the authors probably didn't bother to tell you the complicated ways that the verb "cost" changes its inflectional prefix depending on the noun you're putting in the blank. The trader in the marketplace will still understand what you're saying if you say "how much do these potatoes cost?" with the wrong inflectional prefix on "cost". After all, I<you> can't speak proper Swahili, I<you're> just a tourist. But while tourists can be stupid, computers are supposed to be smart; the computer should be able to fill in the blank, and still have the results be grammatical. In other words, a phrasebook entry takes some values as parameters (the things that you fill in the blank or blanks), and provides a value based on these parameters, where the way you get that final value from the given values can, properly speaking, involve an arbitrarily complex series of operations. (In the case of Chinese, it'd be not at all complex, at least in cases like the examples at the beginning of this article; whereas in the case of Russian it'd be a rather complex series of operations. And in some languages, the complexity could be spread around differently: while the act of putting a number-expression in front of a noun phrase might not be complex by itself, it may change how you have to, for example, inflect a verb elsewhere in the sentence. This is what in syntax is called "long-distance dependencies".) This talk of parameters and arbitrary complexity is just another way to say that an entry in a phrasebook is what in a programming language would be called a "function". Just so you don't miss it, this is the crux of this article: I<A phrase is a function; a phrasebook is a bunch of functions.> The reason that using gettext runs into walls (as in the above second-person horror story) is that you're trying to use a string (or worse, a choice among a bunch of strings) to do what you really need a function for -- which is futile. Preforming (s)printf interpolation on the strings which you get back from gettext does allow you to do I<some> common things passably well... sometimes... sort of; but, to paraphrase what some people say about C<csh> script programming, "it fools you into thinking you can use it for real things, but you can't, and you don't discover this until you've already spent too much time trying, and by then it's too late." =head2 Replacing gettext So, what needs to replace gettext is a system that supports lexicons of functions instead of lexicons of strings. An entry in a lexicon from such a system should I<not> look like this: "J'ai trouv\xE9 %g fichiers dans %g r\xE9pertoires" [\xE9 is e-acute in Latin-1. Some pod renderers would scream if I used the actual character here. -- SB] but instead like this, bearing in mind that this is just a first stab: sub I_found_X1_files_in_X2_directories { my( $files, $dirs ) = @_[0,1]; $files = sprintf("%g %s", $files, $files == 1 ? 'fichier' : 'fichiers'); $dirs = sprintf("%g %s", $dirs, $dirs == 1 ? "r\xE9pertoire" : "r\xE9pertoires"); return "J'ai trouv\xE9 $files dans $dirs."; } Now, there's no particularly obvious way to store anything but strings in a gettext lexicon; so it looks like we just have to start over and make something better, from scratch. I call my shot at a gettext-replacement system "Maketext", or, in CPAN terms, Locale::Maketext. When designing Maketext, I chose to plan its main features in terms of "buzzword compliance". And here are the buzzwords: =head2 Buzzwords: Abstraction and Encapsulation The complexity of the language you're trying to output a phrase in is entirely abstracted inside (and encapsulated within) the Maketext module for that interface. When you call: print $lang->maketext("You have [quant,_1,piece] of new mail.", scalar(@messages)); you don't know (and in fact can't easily find out) whether this will involve lots of figuring, as in Russian (if $lang is a handle to the Russian module), or relatively little, as in Chinese. That kind of abstraction and encapsulation may encourage other pleasant buzzwords like modularization and stratification, depending on what design decisions you make. =head2 Buzzword: Isomorphism "Isomorphism" means "having the same structure or form"; in discussions of program design, the word takes on the special, specific meaning that your implementation of a solution to a problem I<has the same structure> as, say, an informal verbal description of the solution, or maybe of the problem itself. Isomorphism is, all things considered, a good thing -- it's what problem-solving (and solution-implementing) should look like. What's wrong the with gettext-using code like this... printf( $file_count == 1 ? ( $directory_count == 1 ? "Your query matched %g file in %g directory." : "Your query matched %g file in %g directories." ) : ( $directory_count == 1 ? "Your query matched %g files in %g directory." : "Your query matched %g files in %g directories." ), $file_count, $directory_count, ); is first off that it's not well abstracted -- these ways of testing for grammatical number (as in the expressions like C<foo == 1 ? singular_form : plural_form>) should be abstracted to each language module, since how you get grammatical number is language-specific. But second off, it's not isomorphic -- the "solution" (i.e., the phrasebook entries) for Chinese maps from these four English phrases to the one Chinese phrase that fits for all of them. In other words, the informal solution would be "The way to say what you want in Chinese is with the one phrase 'For your question, in Y directories you would find X files'" -- and so the implemented solution should be, isomorphically, just a straightforward way to spit out that one phrase, with numerals properly interpolated. It shouldn't have to map from the complexity of other languages to the simplicity of this one. =head2 Buzzword: Inheritance There's a great deal of reuse possible for sharing of phrases between modules for related dialects, or for sharing of auxiliary functions between related languages. (By "auxiliary functions", I mean functions that don't produce phrase-text, but which, say, return an answer to "does this number require a plural noun after it?". Such auxiliary functions would be used in the internal logic of functions that actually do produce phrase-text.) In the case of sharing phrases, consider that you have an interface already localized for American English (probably by having been written with that as the native locale, but that's incidental). Localizing it for UK English should, in practical terms, be just a matter of running it past a British person with the instructions to indicate what few phrases would benefit from a change in spelling or possibly minor rewording. In that case, you should be able to put in the UK English localization module I<only> those phrases that are UK-specific, and for all the rest, I<inherit> from the American English module. (And I expect this same situation would apply with Brazilian and Continental Portugese, possibly with some I<very> closely related languages like Czech and Slovak, and possibly with the slightly different "versions" of written Mandarin Chinese, as I hear exist in Taiwan and mainland China.) As to sharing of auxiliary functions, consider the problem of Russian numbers from the beginning of this article; obviously, you'd want to write only once the hairy code that, given a numeric value, would return some specification of which case and number a given quantified noun should use. But suppose that you discover, while localizing an interface for, say, Ukrainian (a Slavic language related to Russian, spoken by several million people, many of whom would be relieved to find that your Web site's or software's interface is available in their language), that the rules in Ukrainian are the same as in Russian for quantification, and probably for many other grammatical functions. While there may well be no phrases in common between Russian and Ukrainian, you could still choose to have the Ukrainian module inherit from the Russian module, just for the sake of inheriting all the various grammatical methods. Or, probably better organizationally, you could move those functions to a module called C<_E_Slavic> or something, which Russian and Ukrainian could inherit useful functions from, but which would (presumably) provide no lexicon. =head2 Buzzword: Concision Okay, concision isn't a buzzword. But it should be, so I decree that as a new buzzword, "concision" means that simple common things should be expressible in very few lines (or maybe even just a few characters) of code -- call it a special case of "making simple things easy and hard things possible", and see also the role it played in the MIDI::Simple language, discussed elsewhere in this issue [TPJ#13]. Consider our first stab at an entry in our "phrasebook of functions": sub I_found_X1_files_in_X2_directories { my( $files, $dirs ) = @_[0,1]; $files = sprintf("%g %s", $files, $files == 1 ? 'fichier' : 'fichiers'); $dirs = sprintf("%g %s", $dirs, $dirs == 1 ? "r\xE9pertoire" : "r\xE9pertoires"); return "J'ai trouv\xE9 $files dans $dirs."; } You may sense that a lexicon (to use a non-committal catch-all term for a collection of things you know how to say, regardless of whether they're phrases or words) consisting of functions I<expressed> as above would make for rather long-winded and repetitive code -- even if you wisely rewrote this to have quantification (as we call adding a number expression to a noun phrase) be a function called like: sub I_found_X1_files_in_X2_directories { my( $files, $dirs ) = @_[0,1]; $files = quant($files, "fichier"); $dirs = quant($dirs, "r\xE9pertoire"); return "J'ai trouv\xE9 $files dans $dirs."; } And you may also sense that you do not want to bother your translators with having to write Perl code -- you'd much rather that they spend their I<very costly time> on just translation. And this is to say nothing of the near impossibility of finding a commercial translator who would know even simple Perl. In a first-hack implementation of Maketext, each language-module's lexicon looked like this: %Lexicon = ( "I found %g files in %g directories" => sub { my( $files, $dirs ) = @_[0,1]; $files = quant($files, "fichier"); $dirs = quant($dirs, "r\xE9pertoire"); return "J'ai trouv\xE9 $files dans $dirs."; }, ... and so on with other phrase => sub mappings ... ); but I immediately went looking for some more concise way to basically denote the same phrase-function -- a way that would also serve to concisely denote I<most> phrase-functions in the lexicon for I<most> languages. After much time and even some actual thought, I decided on this system: * Where a value in a %Lexicon hash is a contentful string instead of an anonymous sub (or, conceivably, a coderef), it would be interpreted as a sort of shorthand expression of what the sub does. When accessed for the first time in a session, it is parsed, turned into Perl code, and then eval'd into an anonymous sub; then that sub replaces the original string in that lexicon. (That way, the work of parsing and evaling the shorthand form for a given phrase is done no more than once per session.) * Calls to C<maketext> (as Maketext's main function is called) happen thru a "language session handle", notionally very much like an IO handle, in that you open one at the start of the session, and use it for "sending signals" to an object in order to have it return the text you want. So, this: $lang->maketext("You have [quant,_1,piece] of new mail.", scalar(@messages)); basically means this: look in the lexicon for $lang (which may inherit from any number of other lexicons), and find the function that we happen to associate with the string "You have [quant,_1,piece] of new mail" (which is, and should be, a functioning "shorthand" for this function in the native locale -- English in this case). If you find such a function, call it with $lang as its first parameter (as if it were a method), and then a copy of scalar(@messages) as its second, and then return that value. If that function was found, but was in string shorthand instead of being a fully specified function, parse it and make it into a function before calling it the first time. * The shorthand uses code in brackets to indicate method calls that should be performed. A full explanation is not in order here, but a few examples will suffice: "You have [quant,_1,piece] of new mail." The above code is shorthand for, and will be interpreted as, this: sub { my $handle = $_[0]; my(@params) = @_; return join '', "You have ", $handle->quant($params[1], 'piece'), "of new mail."; } where "quant" is the name of a method you're using to quantify the noun "piece" with the number $params[0]. A string with no brackety calls, like this: "Your search expression was malformed." is somewhat of a degenerate case, and just gets turned into: sub { return "Your search expression was malformed." } However, not everything you can write in Perl code can be written in the above shorthand system -- not by a long shot. For example, consider the Italian translator from the beginning of this article, who wanted the Italian for "I didn't find any files" as a special case, instead of "I found 0 files". That couldn't be specified (at least not easily or simply) in our shorthand system, and it would have to be written out in full, like this: sub { # pretend the English strings are in Italian my($handle, $files, $dirs) = @_[0,1,2]; return "I didn't find any files" unless $files; return join '', "I found ", $handle->quant($files, 'file'), " in ", $handle->quant($dirs, 'directory'), "."; } Next to a lexicon full of shorthand code, that sort of sticks out like a sore thumb -- but this I<is> a special case, after all; and at least it's possible, if not as concise as usual. As to how you'd implement the Russian example from the beginning of the article, well, There's More Than One Way To Do It, but it could be something like this (using English words for Russian, just so you know what's going on): "I [quant,_1,directory,accusative] scanned." This shifts the burden of complexity off to the quant method. That method's parameters are: the numeric value it's going to use to quantify something; the Russian word it's going to quantify; and the parameter "accusative", which you're using to mean that this sentence's syntax wants a noun in the accusative case there, although that quantification method may have to overrule, for grammatical reasons you may recall from the beginning of this article. Now, the Russian quant method here is responsible not only for implementing the strange logic necessary for figuring out how Russian number-phrases impose case and number on their noun-phrases, but also for inflecting the Russian word for "directory". How that inflection is to be carried out is no small issue, and among the solutions I've seen, some (like variations on a simple lookup in a hash where all possible forms are provided for all necessary words) are straightforward but I<can> become cumbersome when you need to inflect more than a few dozen words; and other solutions (like using algorithms to model the inflections, storing only root forms and irregularities) I<can> involve more overhead than is justifiable for all but the largest lexicons. Mercifully, this design decision becomes crucial only in the hairiest of inflected languages, of which Russian is by no means the I<worst> case scenario, but is worse than most. Most languages have simpler inflection systems; for example, in English or Swahili, there are generally no more than two possible inflected forms for a given noun ("error/errors"; "kosa/makosa"), and the rules for producing these forms are fairly simple -- or at least, simple rules can be formulated that work for most words, and you can then treat the exceptions as just "irregular", at least relative to your ad hoc rules. A simpler inflection system (simpler rules, fewer forms) means that design decisions are less crucial to maintaining sanity, whereas the same decisions could incur overhead-versus-scalability problems in languages like Russian. It may I<also> be likely that code (possibly in Perl, as with Lingua::EN::Inflect, for English nouns) has already been written for the language in question, whether simple or complex. Moreover, a third possibility may even be simpler than anything discussed above: "Just require that all possible (or at least applicable) forms be provided in the call to the given language's quant method, as in:" "I found [quant,_1,file,files]." That way, quant just has to chose which form it needs, without having to look up or generate anything. While possibly not optimal for Russian, this should work well for most other languages, where quantification is not as complicated an operation. =head2 The Devil in the Details There's plenty more to Maketext than described above -- for example, there's the details of how language tags ("en-US", "i-pwn", "fi", etc.) or locale IDs ("en_US") interact with actual module naming ("BogoQuery/Locale/en_us.pm"), and what magic can ensue; there's the details of how to record (and possibly negotiate) what character encoding Maketext will return text in (UTF8? Latin-1? KOI8?). There's the interesting fact that Maketext is for localization, but nowhere actually has a "C<use locale;>" anywhere in it. For the curious, there's the somewhat frightening details of how I actually implement something like data inheritance so that searches across modules' %Lexicon hashes can parallel how Perl implements method inheritance. And, most importantly, there's all the practical details of how to actually go about deriving from Maketext so you can use it for your interfaces, and the various tools and conventions for starting out and maintaining individual language modules. That is all covered in the documentation for Locale::Maketext and the modules that come with it, available in CPAN. After having read this article, which covers the why's of Maketext, the documentation, which covers the how's of it, should be quite straightforward. =head2 The Proof in the Pudding: Localizing Web Sites Maketext and gettext have a notable difference: gettext is in C, accessible thru C library calls, whereas Maketext is in Perl, and really can't work without a Perl interpreter (although I suppose something like it could be written for C). Accidents of history (and not necessarily lucky ones) have made C++ the most common language for the implementation of applications like word processors, Web browsers, and even many in-house applications like custom query systems. Current conditions make it somewhat unlikely that the next one of any of these kinds of applications will be written in Perl, albeit clearly more for reasons of custom and inertia than out of consideration of what is the right tool for the job. However, other accidents of history have made Perl a well-accepted language for design of server-side programs (generally in CGI form) for Web site interfaces. Localization of static pages in Web sites is trivial, feasible either with simple language-negotiation features in servers like Apache, or with some kind of server-side inclusions of language-appropriate text into layout templates. However, I think that the localization of Perl-based search systems (or other kinds of dynamic content) in Web sites, be they public or access-restricted, is where Maketext will see the greatest use. I presume that it would be only the exceptional Web site that gets localized for English I<and> Chinese I<and> Italian I<and> Arabic I<and> Russian, to recall the languages from the beginning of this article -- to say nothing of German, Spanish, French, Japanese, Finnish, and Hindi, to name a few languages that benefit from large numbers of programmers or Web viewers or both. However, the ever-increasing internationalization of the Web (whether measured in terms of amount of content, of numbers of content writers or programmers, or of size of content audiences) makes it increasingly likely that the interface to the average Web-based dynamic content service will be localized for two or maybe three languages. It is my hope that Maketext will make that task as simple as possible, and will remove previous barriers to localization for languages dissimilar to English. __END__ Sean M. Burke (sburkeE<64>cpan.org) has a Master's in linguistics from Northwestern University; he specializes in language technology. Jordan Lachler (lachlerE<64>unm.edu) is a PhD student in the Department of Linguistics at the University of New Mexico; he specializes in morphology and pedagogy of North American native languages. =head2 References Alvestrand, Harald Tveit. 1995. I<RFC 1766: Tags for the Identification of Languages.> C<L<http://www.ietf.org/rfc/rfc1766.txt>> [Now see RFC 3066.] Callon, Ross, editor. 1996. I<RFC 1925: The Twelve Networking Truths.> C<L<http://www.ietf.org/rfc/rfc1925.txt>> Drepper, Ulrich, Peter Miller, and FranE<ccedil>ois Pinard. 1995-2001. GNU C<gettext>. Available in C<L<ftp://prep.ai.mit.edu/pub/gnu/>>, with extensive docs in the distribution tarball. [Since I wrote this article in 1998, I now see that the gettext docs are now trying more to come to terms with plurality. Whether useful conclusions have come from it is another question altogether. -- SMB, May 2001] Forbes, Nevill. 1964. I<Russian Grammar.> Third Edition, revised by J. C. Dumbreck. Oxford University Press. =cut #End PK ! ?h+�a a # 5.34.0/Locale/Maketext/Cookbook.podnu �[��� # This document contains text in Perl "POD" format. # Use a POD viewer like perldoc or perlman to render it. =encoding utf-8 =head1 NAME Locale::Maketext::Cookbook - recipes for using Locale::Maketext =head1 INTRODUCTION This is a work in progress. Not much progress by now :-) =head1 ONESIDED LEXICONS I<Adapted from a suggestion by Dan Muey> It may be common (for example at your main lexicon) that the hash keys and values coincide. Like that q{Hello, tell me your name} => q{Hello, tell me your name} It would be nice to just write: q{Hello, tell me your name} => '' and have this magically inflated to the first form. Among the advantages of such representation, that would lead to smaller files, less prone to mistyping or mispasting, and handy to someone translating it which can simply copy the main lexicon and enter the translation instead of having to remove the value first. That can be achieved by overriding C<init> in your class and working on the main lexicon with code like that: package My::I18N; ... sub init { my $lh = shift; # a newborn handle $lh->SUPER::init(); inflate_lexicon(\%My::I18N::en::Lexicon); return; } sub inflate_lexicon { my $lex = shift; while (my ($k, $v) = each %$lex) { $v = $k if !defined $v || $v eq ''; } } Here we are assuming C<My::I18N::en> to own the main lexicon. There are some downsides here: the size economy will not stand at runtime after this C<init()> runs. But it should not be that critical, since if you don't have space for that, you won't have space for any other language besides the main one as well. You could do that too with ties, expanding the value at lookup time which should be more time expensive as an option. =head1 DECIMAL PLACES IN NUMBER FORMATTING I<After CPAN RT #36136 (L<https://rt.cpan.org/Ticket/Display.html?id=36136>)> The documentation of L<Locale::Maketext> advises that the standard bracket method C<numf> is limited and that you must override that for better results. It even suggests the use of L<Number::Format>. One such defect of standard C<numf> is to not be able to use a certain decimal precision. For example, $lh->maketext('pi is [numf,_1]', 355/113); outputs pi is 3.14159292035398 Since pi ≈ 355/116 is only accurate to 6 decimal places, you would want to say: $lh->maketext('pi is [numf,_1,6]', 355/113); and get "pi is 3.141592". One solution for that could use C<Number::Format> like that: package Wuu; use base qw(Locale::Maketext); use Number::Format; # can be overridden according to language conventions sub _numf_params { return ( -thousands_sep => '.', -decimal_point => ',', -decimal_digits => 2, ); } # builds a Number::Format sub _numf_formatter { my ($lh, $scale) = @_; my @params = $lh->_numf_params; if ($scale) { # use explicit scale rather than default push @params, (-decimal_digits => $scale); } return Number::Format->new(@params); } sub numf { my ($lh, $n, $scale) = @_; # get the (cached) formatter my $nf = $lh->{__nf}{$scale} ||= $lh->_numf_formatter($scale); # format the number itself return $nf->format_number($n); } package Wuu::pt; use base qw(Wuu); and then my $lh = Wuu->get_handle('pt'); $lh->maketext('A [numf,_1,3] km de distância', 1550.2222); would return "A 1.550,222 km de distância". Notice that the standard utility methods of C<Locale::Maketext> are irremediably limited because they could not aim to do everything that could be expected from them in different languages, cultures and applications. So extending C<numf>, C<quant>, and C<sprintf> is natural as soon as your needs exceed what the standard ones do. PK ! ��) �� �� 5.34.0/App/Cpan.pmnu �[��� package App::Cpan; use strict; use warnings; use vars qw($VERSION); use if $] < 5.008 => 'IO::Scalar'; $VERSION = '1.676'; =head1 NAME App::Cpan - easily interact with CPAN from the command line =head1 SYNOPSIS # with arguments and no switches, installs specified modules cpan module_name [ module_name ... ] # with switches, installs modules with extra behavior cpan [-cfFimtTw] module_name [ module_name ... ] # use local::lib cpan -I module_name [ module_name ... ] # one time mirror override for faster mirrors cpan -p ... # with just the dot, install from the distribution in the # current directory cpan . # without arguments, starts CPAN.pm shell cpan # without arguments, but some switches cpan [-ahpruvACDLOPX] =head1 DESCRIPTION This script provides a command interface (not a shell) to CPAN. At the moment it uses CPAN.pm to do the work, but it is not a one-shot command runner for CPAN.pm. =head2 Options =over 4 =item -a Creates a CPAN.pm autobundle with CPAN::Shell->autobundle. =item -A module [ module ... ] Shows the primary maintainers for the specified modules. =item -c module Runs a `make clean` in the specified module's directories. =item -C module [ module ... ] Show the F<Changes> files for the specified modules =item -D module [ module ... ] Show the module details. This prints one line for each out-of-date module (meaning, modules locally installed but have newer versions on CPAN). Each line has three columns: module name, local version, and CPAN version. =item -f Force the specified action, when it normally would have failed. Use this to install a module even if its tests fail. When you use this option, -i is not optional for installing a module when you need to force it: % cpan -f -i Module::Foo =item -F Turn off CPAN.pm's attempts to lock anything. You should be careful with this since you might end up with multiple scripts trying to muck in the same directory. This isn't so much of a concern if you're loading a special config with C<-j>, and that config sets up its own work directories. =item -g module [ module ... ] Downloads to the current directory the latest distribution of the module. =item -G module [ module ... ] UNIMPLEMENTED Download to the current directory the latest distribution of the modules, unpack each distribution, and create a git repository for each distribution. If you want this feature, check out Yanick Champoux's C<Git::CPAN::Patch> distribution. =item -h Print a help message and exit. When you specify C<-h>, it ignores all of the other options and arguments. =item -i module [ module ... ] Install the specified modules. With no other switches, this switch is implied. =item -I Load C<local::lib> (think like C<-I> for loading lib paths). Too bad C<-l> was already taken. =item -j Config.pm Load the file that has the CPAN configuration data. This should have the same format as the standard F<CPAN/Config.pm> file, which defines C<$CPAN::Config> as an anonymous hash. If the file does not exist, C<cpan> dies. =item -J Dump the configuration in the same format that CPAN.pm uses. This is useful for checking the configuration as well as using the dump as a starting point for a new, custom configuration. =item -l List all installed modules with their versions =item -L author [ author ... ] List the modules by the specified authors. =item -m Make the specified modules. =item -M mirror1,mirror2,... A comma-separated list of mirrors to use for just this run. The C<-P> option can find them for you automatically. =item -n Do a dry run, but don't actually install anything. (unimplemented) =item -O Show the out-of-date modules. =item -p Ping the configured mirrors and print a report =item -P Find the best mirrors you could be using and use them for the current session. =item -r Recompiles dynamically loaded modules with CPAN::Shell->recompile. =item -s Drop in the CPAN.pm shell. This command does this automatically if you don't specify any arguments. =item -t module [ module ... ] Run a `make test` on the specified modules. =item -T Do not test modules. Simply install them. =item -u Upgrade all installed modules. Blindly doing this can really break things, so keep a backup. =item -v Print the script version and CPAN.pm version then exit. =item -V Print detailed information about the cpan client. =item -w UNIMPLEMENTED Turn on cpan warnings. This checks various things, like directory permissions, and tells you about problems you might have. =item -x module [ module ... ] Find close matches to the named modules that you think you might have mistyped. This requires the optional installation of Text::Levenshtein or Text::Levenshtein::Damerau. =item -X Dump all the namespaces to standard output. =back =head2 Examples # print a help message cpan -h # print the version numbers cpan -v # create an autobundle cpan -a # recompile modules cpan -r # upgrade all installed modules cpan -u # install modules ( sole -i is optional ) cpan -i Netscape::Booksmarks Business::ISBN # force install modules ( must use -i ) cpan -fi CGI::Minimal URI # install modules but without testing them cpan -Ti CGI::Minimal URI =head2 Environment variables There are several components in CPAN.pm that use environment variables. The build tools, L<ExtUtils::MakeMaker> and L<Module::Build> use some, while others matter to the levels above them. Some of these are specified by the Perl Toolchain Gang: Lancaster Concensus: L<https://github.com/Perl-Toolchain-Gang/toolchain-site/blob/master/lancaster-consensus.md> Oslo Concensus: L<https://github.com/Perl-Toolchain-Gang/toolchain-site/blob/master/oslo-consensus.md> =over 4 =item NONINTERACTIVE_TESTING Assume no one is paying attention and skips prompts for distributions that do that correctly. C<cpan(1)> sets this to C<1> unless it already has a value (even if that value is false). =item PERL_MM_USE_DEFAULT Use the default answer for a prompted questions. C<cpan(1)> sets this to C<1> unless it already has a value (even if that value is false). =item CPAN_OPTS As with C<PERL5OPT>, a string of additional C<cpan(1)> options to add to those you specify on the command line. =item CPANSCRIPT_LOGLEVEL The log level to use, with either the embedded, minimal logger or L<Log::Log4perl> if it is installed. Possible values are the same as the C<Log::Log4perl> levels: C<TRACE>, C<DEBUG>, C<INFO>, C<WARN>, C<ERROR>, and C<FATAL>. The default is C<INFO>. =item GIT_COMMAND The path to the C<git> binary to use for the Git features. The default is C</usr/local/bin/git>. =back =head2 Methods =over 4 =cut use autouse Carp => qw(carp croak cluck); use CPAN 1.80 (); # needs no test use Config; use autouse Cwd => qw(cwd); use autouse 'Data::Dumper' => qw(Dumper); use File::Spec::Functions qw(catfile file_name_is_absolute rel2abs); use File::Basename; use Getopt::Std; # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # Internal constants use constant TRUE => 1; use constant FALSE => 0; # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # The return values use constant HEY_IT_WORKED => 0; use constant I_DONT_KNOW_WHAT_HAPPENED => 1; # 0b0000_0001 use constant ITS_NOT_MY_FAULT => 2; use constant THE_PROGRAMMERS_AN_IDIOT => 4; use constant A_MODULE_FAILED_TO_INSTALL => 8; # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # set up the order of options that we layer over CPAN::Shell BEGIN { # most of this should be in methods use vars qw( @META_OPTIONS $Default %CPAN_METHODS @CPAN_OPTIONS @option_order %Method_table %Method_table_index ); @META_OPTIONS = qw( h v V I g G M: C A D O l L a r p P j: J w x X ); $Default = 'default'; %CPAN_METHODS = ( # map switches to method names in CPAN::Shell $Default => 'install', 'c' => 'clean', 'f' => 'force', 'i' => 'install', 'm' => 'make', 't' => 'test', 'u' => 'upgrade', 'T' => 'notest', 's' => 'shell', ); @CPAN_OPTIONS = grep { $_ ne $Default } sort keys %CPAN_METHODS; @option_order = ( @META_OPTIONS, @CPAN_OPTIONS ); # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # map switches to the subroutines in this script, along with other information. # use this stuff instead of hard-coded indices and values sub NO_ARGS () { 0 } sub ARGS () { 1 } sub GOOD_EXIT () { 0 } %Method_table = ( # key => [ sub ref, takes args?, exit value, description ] # options that do their thing first, then exit h => [ \&_print_help, NO_ARGS, GOOD_EXIT, 'Printing help' ], v => [ \&_print_version, NO_ARGS, GOOD_EXIT, 'Printing version' ], V => [ \&_print_details, NO_ARGS, GOOD_EXIT, 'Printing detailed version' ], X => [ \&_list_all_namespaces, NO_ARGS, GOOD_EXIT, 'Listing all namespaces' ], # options that affect other options j => [ \&_load_config, ARGS, GOOD_EXIT, 'Use specified config file' ], J => [ \&_dump_config, NO_ARGS, GOOD_EXIT, 'Dump configuration to stdout' ], F => [ \&_lock_lobotomy, NO_ARGS, GOOD_EXIT, 'Turn off CPAN.pm lock files' ], I => [ \&_load_local_lib, NO_ARGS, GOOD_EXIT, 'Loading local::lib' ], M => [ \&_use_these_mirrors, ARGS, GOOD_EXIT, 'Setting per session mirrors' ], P => [ \&_find_good_mirrors, NO_ARGS, GOOD_EXIT, 'Finding good mirrors' ], w => [ \&_turn_on_warnings, NO_ARGS, GOOD_EXIT, 'Turning on warnings' ], # options that do their one thing g => [ \&_download, ARGS, GOOD_EXIT, 'Download the latest distro' ], G => [ \&_gitify, ARGS, GOOD_EXIT, 'Down and gitify the latest distro' ], C => [ \&_show_Changes, ARGS, GOOD_EXIT, 'Showing Changes file' ], A => [ \&_show_Author, ARGS, GOOD_EXIT, 'Showing Author' ], D => [ \&_show_Details, ARGS, GOOD_EXIT, 'Showing Details' ], O => [ \&_show_out_of_date, NO_ARGS, GOOD_EXIT, 'Showing Out of date' ], l => [ \&_list_all_mods, NO_ARGS, GOOD_EXIT, 'Listing all modules' ], L => [ \&_show_author_mods, ARGS, GOOD_EXIT, 'Showing author mods' ], a => [ \&_create_autobundle, NO_ARGS, GOOD_EXIT, 'Creating autobundle' ], p => [ \&_ping_mirrors, NO_ARGS, GOOD_EXIT, 'Pinging mirrors' ], r => [ \&_recompile, NO_ARGS, GOOD_EXIT, 'Recompiling' ], u => [ \&_upgrade, NO_ARGS, GOOD_EXIT, 'Running `make test`' ], 's' => [ \&_shell, NO_ARGS, GOOD_EXIT, 'Running `make test`' ], 'x' => [ \&_guess_namespace, ARGS, GOOD_EXIT, 'Guessing namespaces' ], c => [ \&_default, ARGS, GOOD_EXIT, 'Running `make clean`' ], f => [ \&_default, ARGS, GOOD_EXIT, 'Installing with force' ], i => [ \&_default, ARGS, GOOD_EXIT, 'Running `make install`' ], 'm' => [ \&_default, ARGS, GOOD_EXIT, 'Running `make`' ], t => [ \&_default, ARGS, GOOD_EXIT, 'Running `make test`' ], T => [ \&_default, ARGS, GOOD_EXIT, 'Installing with notest' ], ); %Method_table_index = ( code => 0, takes_args => 1, exit_value => 2, description => 3, ); } # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # finally, do some argument processing sub _stupid_interface_hack_for_non_rtfmers { no warnings 'uninitialized'; shift @ARGV if( $ARGV[0] eq 'install' and @ARGV > 1 ) } sub _process_options { my %options; push @ARGV, grep $_, split /\s+/, $ENV{CPAN_OPTS} || ''; # if no arguments, just drop into the shell if( 0 == @ARGV ) { CPAN::shell(); exit 0 } elsif (Getopt::Std::getopts( join( '', @option_order ), \%options )) { \%options; } else { exit 1 } } sub _process_setup_options { my( $class, $options ) = @_; if( $options->{j} ) { $Method_table{j}[ $Method_table_index{code} ]->( $options->{j} ); delete $options->{j}; } elsif ( ! $options->{h} ) { # h "ignores all of the other options and arguments" # this is what CPAN.pm would do otherwise local $CPAN::Be_Silent = 1; CPAN::HandleConfig->load( # be_silent => 1, deprecated write_file => 0, ); } $class->_turn_off_testing if $options->{T}; foreach my $o ( qw(F I w P M) ) { next unless exists $options->{$o}; $Method_table{$o}[ $Method_table_index{code} ]->( $options->{$o} ); delete $options->{$o}; } if( $options->{o} ) { my @pairs = map { [ split /=/, $_, 2 ] } split /,/, $options->{o}; foreach my $pair ( @pairs ) { my( $setting, $value ) = @$pair; $CPAN::Config->{$setting} = $value; # $logger->debug( "Setting [$setting] to [$value]" ); } delete $options->{o}; } my $option_count = grep { $options->{$_} } @option_order; no warnings 'uninitialized'; # don't count options that imply installation foreach my $opt ( qw(f T) ) { # don't count force or notest $option_count -= $options->{$opt}; } # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # if there are no options, set -i (this line fixes RT ticket 16915) $options->{i}++ unless $option_count; } sub _setup_environment { # should we override or set defaults? If this were a true interactive # session, we'd be in the CPAN shell. # https://github.com/Perl-Toolchain-Gang/toolchain-site/blob/master/lancaster-consensus.md $ENV{NONINTERACTIVE_TESTING} = 1 unless defined $ENV{NONINTERACTIVE_TESTING}; $ENV{PERL_MM_USE_DEFAULT} = 1 unless defined $ENV{PERL_MM_USE_DEFAULT}; } =item run() Just do it. The C<run> method returns 0 on success and a positive number on failure. See the section on EXIT CODES for details on the values. =cut my $logger; sub run { my $class = shift; my $return_value = HEY_IT_WORKED; # assume that things will work $logger = $class->_init_logger; $logger->debug( "Using logger from @{[ref $logger]}" ); $class->_hook_into_CPANpm_report; $logger->debug( "Hooked into output" ); $class->_stupid_interface_hack_for_non_rtfmers; $logger->debug( "Patched cargo culting" ); my $options = $class->_process_options; $logger->debug( "Options are @{[Dumper($options)]}" ); $class->_process_setup_options( $options ); $class->_setup_environment( $options ); OPTION: foreach my $option ( @option_order ) { next unless $options->{$option}; my( $sub, $takes_args, $description ) = map { $Method_table{$option}[ $Method_table_index{$_} ] } qw( code takes_args description ); unless( ref $sub eq ref sub {} ) { $return_value = THE_PROGRAMMERS_AN_IDIOT; last OPTION; } $logger->info( "[$option] $description -- ignoring other arguments" ) if( @ARGV && ! $takes_args ); $return_value = $sub->( \ @ARGV, $options ); last; } return $return_value; } my $LEVEL; { package Local::Null::Logger; # hide from PAUSE my @LOGLEVELS = qw(TRACE DEBUG INFO WARN ERROR FATAL); $LEVEL = uc($ENV{CPANSCRIPT_LOGLEVEL} || 'INFO'); my %LL = map { $LOGLEVELS[$_] => $_ } 0..$#LOGLEVELS; unless (defined $LL{$LEVEL}){ warn "Unsupported loglevel '$LEVEL', setting to INFO"; $LEVEL = 'INFO'; } sub new { bless \ my $x, $_[0] } sub AUTOLOAD { my $autoload = our $AUTOLOAD; $autoload =~ s/.*://; return if $LL{uc $autoload} < $LL{$LEVEL}; $CPAN::Frontend->mywarn(">($autoload): $_\n") for split /[\r\n]+/, $_[1]; } sub DESTROY { 1 } } # load a module without searching the default entry for the current # directory sub _safe_load_module { my $name = shift; local @INC = @INC; pop @INC if $INC[-1] eq '.'; eval "require $name; 1"; } sub _init_logger { my $log4perl_loaded = _safe_load_module("Log::Log4perl"); unless( $log4perl_loaded ) { print STDOUT "Loading internal logger. Log::Log4perl recommended for better logging\n"; $logger = Local::Null::Logger->new; return $logger; } Log::Log4perl::init( \ <<"HERE" ); log4perl.rootLogger=$LEVEL, A1 log4perl.appender.A1=Log::Log4perl::Appender::Screen log4perl.appender.A1.layout=PatternLayout log4perl.appender.A1.layout.ConversionPattern=%m%n HERE $logger = Log::Log4perl->get_logger( 'App::Cpan' ); } # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # sub _default { my( $args, $options ) = @_; my $switch = ''; # choose the option that we're going to use # we'll deal with 'f' (force) later, so skip it foreach my $option ( @CPAN_OPTIONS ) { next if ( $option eq 'f' or $option eq 'T' ); next unless $options->{$option}; $switch = $option; last; } # 1. with no switches, but arguments, use the default switch (install) # 2. with no switches and no args, start the shell # 3. With a switch but no args, die! These switches need arguments. if( not $switch and @$args ) { $switch = $Default; } elsif( not $switch and not @$args ) { return CPAN::shell() } elsif( $switch and not @$args ) { die "Nothing to $CPAN_METHODS{$switch}!\n"; } # Get and check the method from CPAN::Shell my $method = $CPAN_METHODS{$switch}; die "CPAN.pm cannot $method!\n" unless CPAN::Shell->can( $method ); # call the CPAN::Shell method, with force or notest if specified my $action = do { if( $options->{f} ) { sub { CPAN::Shell->force( $method, @_ ) } } elsif( $options->{T} ) { sub { CPAN::Shell->notest( $method, @_ ) } } else { sub { CPAN::Shell->$method( @_ ) } } }; # How do I handle exit codes for multiple arguments? my @errors = (); $options->{x} or _disable_guessers(); foreach my $arg ( @$args ) { # check the argument and perhaps capture typos my $module = _expand_module( $arg ) or do { $logger->error( "Skipping $arg because I couldn't find a matching namespace." ); next; }; _clear_cpanpm_output(); $action->( $arg ); my $error = _cpanpm_output_indicates_failure(); push @errors, $error if $error; } return do { if( @errors ) { $errors[0] } else { HEY_IT_WORKED } }; } # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # =for comment CPAN.pm sends all the good stuff either to STDOUT, or to a temp file if $CPAN::Be_Silent is set. I have to intercept that output so I can find out what happened. =cut BEGIN { my $scalar = ''; sub _hook_into_CPANpm_report { no warnings 'redefine'; *CPAN::Shell::myprint = sub { my($self,$what) = @_; $scalar .= $what if defined $what; $self->print_ornamented($what, $CPAN::Config->{colorize_print}||'bold blue on_white', ); }; *CPAN::Shell::mywarn = sub { my($self,$what) = @_; $scalar .= $what if defined $what; $self->print_ornamented($what, $CPAN::Config->{colorize_warn}||'bold red on_white' ); }; } sub _clear_cpanpm_output { $scalar = '' } sub _get_cpanpm_output { $scalar } # These are lines I don't care about in CPAN.pm output. If I can # filter out the informational noise, I have a better chance to # catch the error signal my @skip_lines = ( qr/^\QWarning \(usually harmless\)/, qr/\bwill not store persistent state\b/, qr(//hint//), qr/^\s+reports\s+/, qr/^Try the command/, qr/^\s+$/, qr/^to find objects/, qr/^\s*Database was generated on/, qr/^Going to read/, qr|^\s+i\s+/|, # the i /Foo::Whatever/ line when it doesn't know ); sub _get_cpanpm_last_line { my $fh; if( $] < 5.008 ) { $fh = IO::Scalar->new( \ $scalar ); } else { eval q{ open $fh, '<', \\ $scalar; }; } my @lines = <$fh>; # This is a bit ugly. Once we examine a line, we have to # examine the line before it and go through all of the same # regexes. I could do something fancy, but this works. REGEXES: { foreach my $regex ( @skip_lines ) { if( $lines[-1] =~ m/$regex/ ) { pop @lines; redo REGEXES; # we have to go through all of them for every line! } } } $logger->debug( "Last interesting line of CPAN.pm output is:\n\t$lines[-1]" ); $lines[-1]; } } BEGIN { my $epic_fail_words = join '|', qw( Error stop(?:ping)? problems force not unsupported fail(?:ed)? Cannot\s+install ); sub _cpanpm_output_indicates_failure { my $last_line = _get_cpanpm_last_line(); my $result = $last_line =~ /\b(?:$epic_fail_words)\b/i; return A_MODULE_FAILED_TO_INSTALL if $last_line =~ /\b(?:Cannot\s+install)\b/i; $result || (); } } sub _cpanpm_output_indicates_success { my $last_line = _get_cpanpm_last_line(); my $result = $last_line =~ /\b(?:\s+-- OK|PASS)\b/; $result || (); } sub _cpanpm_output_is_vague { return FALSE if _cpanpm_output_indicates_failure() || _cpanpm_output_indicates_success(); return TRUE; } # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # sub _turn_on_warnings { carp "Warnings are implemented yet"; return HEY_IT_WORKED; } sub _turn_off_testing { $logger->debug( 'Trusting test report history' ); $CPAN::Config->{trust_test_report_history} = 1; return HEY_IT_WORKED; } # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # sub _print_help { $logger->info( "Use perldoc to read the documentation" ); my $HAVE_PERLDOC = eval { require Pod::Perldoc; 1; }; if ($HAVE_PERLDOC) { system qq{"$^X" -e "require Pod::Perldoc; Pod::Perldoc->run()" $0}; exit; } else { warn "Please install Pod::Perldoc, maybe try 'cpan -i Pod::Perldoc'\n"; return HEY_IT_WORKED; } } sub _print_version # -v { $logger->info( "$0 script version $VERSION, CPAN.pm version " . CPAN->VERSION ); return HEY_IT_WORKED; } sub _print_details # -V { _print_version(); _check_install_dirs(); $logger->info( '-' x 50 . "\nChecking configured mirrors..." ); foreach my $mirror ( @{ $CPAN::Config->{urllist} } ) { _print_ping_report( $mirror ); } $logger->info( '-' x 50 . "\nChecking for faster mirrors..." ); { require CPAN::Mirrors; if ( $CPAN::Config->{connect_to_internet_ok} ) { $CPAN::Frontend->myprint(qq{Trying to fetch a mirror list from the Internet\n}); eval { CPAN::FTP->localize('MIRRORED.BY',File::Spec->catfile($CPAN::Config->{keep_source_where},'MIRRORED.BY'),3,1) } or $CPAN::Frontend->mywarn(<<'HERE'); We failed to get a copy of the mirror list from the Internet. You will need to provide CPAN mirror URLs yourself. HERE $CPAN::Frontend->myprint("\n"); } my $mirrors = CPAN::Mirrors->new( _mirror_file() ); my @continents = $mirrors->find_best_continents; my @mirrors = $mirrors->get_mirrors_by_continents( $continents[0] ); my @timings = $mirrors->get_mirrors_timings( \@mirrors ); foreach my $timing ( @timings ) { $logger->info( sprintf "%s (%0.2f ms)", $timing->hostname, $timing->rtt ); } } return HEY_IT_WORKED; } sub _check_install_dirs { my $makepl_arg = $CPAN::Config->{makepl_arg}; my $mbuildpl_arg = $CPAN::Config->{mbuildpl_arg}; my @custom_dirs; # PERL_MM_OPT push @custom_dirs, $makepl_arg =~ m/INSTALL_BASE\s*=\s*(\S+)/g, $mbuildpl_arg =~ m/--install_base\s*=\s*(\S+)/g; if( @custom_dirs ) { foreach my $dir ( @custom_dirs ) { _print_inc_dir_report( $dir ); } } # XXX: also need to check makepl_args, etc my @checks = ( [ 'core', [ grep $_, @Config{qw(installprivlib installarchlib)} ] ], [ 'vendor', [ grep $_, @Config{qw(installvendorlib installvendorarch)} ] ], [ 'site', [ grep $_, @Config{qw(installsitelib installsitearch)} ] ], [ 'PERL5LIB', _split_paths( $ENV{PERL5LIB} ) ], [ 'PERLLIB', _split_paths( $ENV{PERLLIB} ) ], ); $logger->info( '-' x 50 . "\nChecking install dirs..." ); foreach my $tuple ( @checks ) { my( $label ) = $tuple->[0]; $logger->info( "Checking $label" ); $logger->info( "\tno directories for $label" ) unless @{ $tuple->[1] }; foreach my $dir ( @{ $tuple->[1] } ) { _print_inc_dir_report( $dir ); } } } sub _split_paths { [ map { _expand_filename( $_ ) } split /$Config{path_sep}/, $_[0] || '' ]; } =pod Stolen from File::Path::Expand =cut sub _expand_filename { my( $path ) = @_; no warnings 'uninitialized'; $logger->debug( "Expanding path $path\n" ); $path =~ s{\A~([^/]+)?}{ _home_of( $1 || $> ) || "~$1" }e; return $path; } sub _home_of { require User::pwent; my( $user ) = @_; my $ent = User::pwent::getpw($user) or return; return $ent->dir; } sub _get_default_inc { require Config; [ @Config::Config{ _vars() }, '.' ]; } sub _vars { qw( installarchlib installprivlib installsitearch installsitelib ); } sub _ping_mirrors { my $urls = $CPAN::Config->{urllist}; require URI; foreach my $url ( @$urls ) { my( $obj ) = URI->new( $url ); next unless _is_pingable_scheme( $obj ); my $host = $obj->host; _print_ping_report( $obj ); } } sub _is_pingable_scheme { my( $uri ) = @_; $uri->scheme eq 'file' } sub _mirror_file { my $file = do { my $file = 'MIRRORED.BY'; my $local_path = File::Spec->catfile( $CPAN::Config->{keep_source_where}, $file ); if( -e $local_path ) { $local_path } else { require CPAN::FTP; CPAN::FTP->localize( $file, $local_path, 3, 1 ); $local_path; } }; } sub _find_good_mirrors { require CPAN::Mirrors; my $mirrors = CPAN::Mirrors->new( _mirror_file() ); my @mirrors = $mirrors->best_mirrors( how_many => 5, verbose => 1, ); foreach my $mirror ( @mirrors ) { next unless eval { $mirror->can( 'http' ) }; _print_ping_report( $mirror->http ); } $CPAN::Config->{urllist} = [ map { $_->http } @mirrors ]; } sub _print_inc_dir_report { my( $dir ) = shift; my $writeable = -w $dir ? '+' : '!!! (not writeable)'; $logger->info( "\t$writeable $dir" ); return -w $dir; } sub _print_ping_report { my( $mirror ) = @_; my $rtt = eval { _get_ping_report( $mirror ) }; my $result = $rtt ? sprintf "+ (%4d ms)", $rtt * 1000 : '!'; $logger->info( sprintf "\t%s %s", $result, $mirror ); } sub _get_ping_report { require URI; my( $mirror ) = @_; my( $url ) = ref $mirror ? $mirror : URI->new( $mirror ); #XXX require Net::Ping; my $ping = Net::Ping->new( 'tcp', 1 ); if( $url->scheme eq 'file' ) { return -e $url->file; } my( $port ) = $url->port; return unless $port; if ( $ping->can('port_number') ) { $ping->port_number($port); } else { $ping->{'port_num'} = $port; } $ping->hires(1) if $ping->can( 'hires' ); my( $alive, $rtt ) = eval{ $ping->ping( $url->host ) }; $alive ? $rtt : undef; } sub _load_local_lib # -I { $logger->debug( "Loading local::lib" ); my $rc = _safe_load_module("local::lib"); unless( $rc ) { $logger->logdie( "Could not load local::lib" ); } local::lib->import; return HEY_IT_WORKED; } sub _use_these_mirrors # -M { $logger->debug( "Setting per session mirrors" ); unless( $_[0] ) { $logger->logdie( "The -M switch requires a comma-separated list of mirrors" ); } $CPAN::Config->{urllist} = [ split /,/, $_[0] ]; $logger->debug( "Mirrors are @{$CPAN::Config->{urllist}}" ); } sub _create_autobundle { $logger->info( "Creating autobundle in $CPAN::Config->{cpan_home}/Bundle" ); CPAN::Shell->autobundle; return HEY_IT_WORKED; } sub _recompile { $logger->info( "Recompiling dynamically-loaded extensions" ); CPAN::Shell->recompile; return HEY_IT_WORKED; } sub _upgrade { $logger->info( "Upgrading all modules" ); CPAN::Shell->upgrade(); return HEY_IT_WORKED; } sub _shell { $logger->info( "Dropping into shell" ); CPAN::shell(); return HEY_IT_WORKED; } sub _load_config # -j { my $argument = shift; my $file = file_name_is_absolute( $argument ) ? $argument : rel2abs( $argument ); croak( "cpan config file [$file] for -j does not exist!\n" ) unless -e $file; # should I clear out any existing config here? $CPAN::Config = {}; delete $INC{'CPAN/Config.pm'}; my $rc = eval "require '$file'"; # CPAN::HandleConfig::require_myconfig_or_config looks for this $INC{'CPAN/MyConfig.pm'} = 'fake out!'; # CPAN::HandleConfig::load looks for this $CPAN::Config_loaded = 'fake out'; croak( "Could not load [$file]: $@\n") unless $rc; return HEY_IT_WORKED; } sub _dump_config # -J { my $args = shift; require Data::Dumper; my $fh = $args->[0] || \*STDOUT; local $Data::Dumper::Sortkeys = 1; my $dd = Data::Dumper->new( [$CPAN::Config], ['$CPAN::Config'] ); print $fh $dd->Dump, "\n1;\n__END__\n"; return HEY_IT_WORKED; } sub _lock_lobotomy # -F { no warnings 'redefine'; *CPAN::_flock = sub { 1 }; *CPAN::checklock = sub { 1 }; return HEY_IT_WORKED; } sub _download { my $args = shift; local $CPAN::DEBUG = 1; my %paths; foreach my $arg ( @$args ) { $logger->info( "Checking $arg" ); my $module = _expand_module( $arg ) or next; my $path = $module->cpan_file; $logger->debug( "Inst file would be $path\n" ); $paths{$module} = _get_file( _make_path( $path ) ); $logger->info( "Downloaded [$arg] to [$paths{$arg}]" ); } return \%paths; } sub _make_path { join "/", qw(authors id), $_[0] } sub _get_file { my $path = shift; my $loaded = _safe_load_module("LWP::Simple"); croak "You need LWP::Simple to use features that fetch files from CPAN\n" unless $loaded; my $file = substr $path, rindex( $path, '/' ) + 1; my $store_path = catfile( cwd(), $file ); $logger->debug( "Store path is $store_path" ); foreach my $site ( @{ $CPAN::Config->{urllist} } ) { my $fetch_path = join "/", $site, $path; $logger->debug( "Trying $fetch_path" ); my $status_code = LWP::Simple::getstore( $fetch_path, $store_path ); last if( 200 <= $status_code and $status_code <= 300 ); $logger->warn( "Could not get [$fetch_path]: Status code $status_code" ); } return $store_path; } sub _gitify { my $args = shift; my $loaded = _safe_load_module("Archive::Extract"); croak "You need Archive::Extract to use features that gitify distributions\n" unless $loaded; my $starting_dir = cwd(); foreach my $arg ( @$args ) { $logger->info( "Checking $arg" ); my $store_paths = _download( [ $arg ] ); $logger->debug( "gitify Store path is $store_paths->{$arg}" ); my $dirname = dirname( $store_paths->{$arg} ); my $ae = Archive::Extract->new( archive => $store_paths->{$arg} ); $ae->extract( to => $dirname ); chdir $ae->extract_path; my $git = $ENV{GIT_COMMAND} || '/usr/local/bin/git'; croak "Could not find $git" unless -e $git; croak "$git is not executable" unless -x $git; # can we do this in Pure Perl? system( $git, 'init' ); system( $git, qw( add . ) ); system( $git, qw( commit -a -m ), 'initial import' ); } chdir $starting_dir; return HEY_IT_WORKED; } sub _show_Changes { my $args = shift; foreach my $arg ( @$args ) { $logger->info( "Checking $arg\n" ); my $module = _expand_module( $arg ) or next; my $out = _get_cpanpm_output(); next unless eval { $module->inst_file }; #next if $module->uptodate; ( my $id = $module->id() ) =~ s/::/\-/; my $url = "http://search.cpan.org/~" . lc( $module->userid ) . "/" . $id . "-" . $module->cpan_version() . "/"; #print "URL: $url\n"; _get_changes_file($url); } return HEY_IT_WORKED; } sub _get_changes_file { croak "Reading Changes files requires LWP::Simple and URI\n" unless _safe_load_module("LWP::Simple") && _safe_load_module("URI"); my $url = shift; my $content = LWP::Simple::get( $url ); $logger->info( "Got $url ..." ) if defined $content; #print $content; my( $change_link ) = $content =~ m|<a href="(.*?)">Changes</a>|gi; my $changes_url = URI->new_abs( $change_link, $url ); $logger->debug( "Change link is: $changes_url" ); my $changes = LWP::Simple::get( $changes_url ); print $changes; return HEY_IT_WORKED; } sub _show_Author { my $args = shift; foreach my $arg ( @$args ) { my $module = _expand_module( $arg ) or next; unless( $module ) { $logger->info( "Didn't find a $arg module, so no author!" ); next; } my $author = CPAN::Shell->expand( "Author", $module->userid ); next unless $module->userid; printf "%-25s %-8s %-25s %s\n", $arg, $module->userid, $author->email, $author->name; } return HEY_IT_WORKED; } sub _show_Details { my $args = shift; foreach my $arg ( @$args ) { my $module = _expand_module( $arg ) or next; my $author = CPAN::Shell->expand( "Author", $module->userid ); next unless $module->userid; print "$arg\n", "-" x 73, "\n\t"; print join "\n\t", $module->description ? $module->description : "(no description)", $module->cpan_file ? $module->cpan_file : "(no cpanfile)", $module->inst_file ? $module->inst_file :"(no installation file)" , 'Installed: ' . ($module->inst_version ? $module->inst_version : "not installed"), 'CPAN: ' . $module->cpan_version . ' ' . ($module->uptodate ? "" : "Not ") . "up to date", $author->fullname . " (" . $module->userid . ")", $author->email; print "\n\n"; } return HEY_IT_WORKED; } BEGIN { my $modules; sub _get_all_namespaces { return $modules if $modules; $modules = [ map { $_->id } CPAN::Shell->expand( "Module", "/./" ) ]; } } sub _show_out_of_date { my $modules = _get_all_namespaces(); printf "%-40s %6s %6s\n", "Module Name", "Local", "CPAN"; print "-" x 73, "\n"; foreach my $module ( @$modules ) { next unless $module = _expand_module($module); next unless $module->inst_file; next if $module->uptodate; printf "%-40s %.4f %.4f\n", $module->id, $module->inst_version ? $module->inst_version : '', $module->cpan_version; } return HEY_IT_WORKED; } sub _show_author_mods { my $args = shift; my %hash = map { lc $_, 1 } @$args; my $modules = _get_all_namespaces(); foreach my $module ( @$modules ) { next unless exists $hash{ lc $module->userid }; print $module->id, "\n"; } return HEY_IT_WORKED; } sub _list_all_mods # -l { require File::Find; my $args = shift; my $fh = \*STDOUT; INC: foreach my $inc ( @INC ) { my( $wanted, $reporter ) = _generator(); File::Find::find( { wanted => $wanted }, $inc ); my $count = 0; FILE: foreach my $file ( @{ $reporter->() } ) { my $version = _parse_version_safely( $file ); my $module_name = _path_to_module( $inc, $file ); next FILE unless defined $module_name; print $fh "$module_name\t$version\n"; #last if $count++ > 5; } } return HEY_IT_WORKED; } sub _generator { my @files = (); sub { push @files, File::Spec->canonpath( $File::Find::name ) if m/\A\w+\.pm\z/ }, sub { \@files }, } sub _parse_version_safely # stolen from PAUSE's mldistwatch, but refactored { my( $file ) = @_; local $/ = "\n"; local $_; # don't mess with the $_ in the map calling this return unless open FILE, "<$file"; my $in_pod = 0; my $version; while( <FILE> ) { chomp; $in_pod = /^=(?!cut)/ ? 1 : /^=cut/ ? 0 : $in_pod; next if $in_pod || /^\s*#/; next unless /([\$*])(([\w\:\']*)\bVERSION)\b.*\=/; my( $sigil, $var ) = ( $1, $2 ); $version = _eval_version( $_, $sigil, $var ); last; } close FILE; return 'undef' unless defined $version; return $version; } sub _eval_version { my( $line, $sigil, $var ) = @_; # split package line to hide from PAUSE my $eval = qq{ package ExtUtils::MakeMaker::_version; local $sigil$var; \$$var=undef; do { $line }; \$$var }; my $version = do { local $^W = 0; no strict; eval( $eval ); }; return $version; } sub _path_to_module { my( $inc, $path ) = @_; return if length $path < length $inc; my $module_path = substr( $path, length $inc ); $module_path =~ s/\.pm\z//; # XXX: this is cheating and doesn't handle everything right my @dirs = grep { ! /\W/ } File::Spec->splitdir( $module_path ); shift @dirs; my $module_name = join "::", @dirs; return $module_name; } sub _expand_module { my( $module ) = @_; my $expanded = CPAN::Shell->expandany( $module ); return $expanded if $expanded; $expanded = CPAN::Shell->expand( "Module", $module ); unless( defined $expanded ) { $logger->error( "Could not expand [$module]. Check the module name." ); my $threshold = ( grep { int } sort { length $a <=> length $b } length($module)/4, 4 )[0]; my $guesses = _guess_at_module_name( $module, $threshold ); if( defined $guesses and @$guesses ) { $logger->info( "Perhaps you meant one of these:" ); foreach my $guess ( @$guesses ) { $logger->info( "\t$guess" ); } } return; } return $expanded; } my $guessers = [ [ qw( Text::Levenshtein::XS distance 7 1 ) ], [ qw( Text::Levenshtein::Damerau::XS xs_edistance 7 1 ) ], [ qw( Text::Levenshtein distance 7 1 ) ], [ qw( Text::Levenshtein::Damerau::PP pp_edistance 7 1 ) ], ]; sub _disable_guessers { $_->[-1] = 0 for @$guessers; } # for -x sub _guess_namespace { my $args = shift; foreach my $arg ( @$args ) { $logger->debug( "Checking $arg" ); my $guesses = _guess_at_module_name( $arg ); foreach my $guess ( @$guesses ) { print $guess, "\n"; } } return HEY_IT_WORKED; } sub _list_all_namespaces { my $modules = _get_all_namespaces(); foreach my $module ( @$modules ) { print $module, "\n"; } } BEGIN { my $distance; my $_threshold; my $can_guess; my $shown_help = 0; sub _guess_at_module_name { my( $target, $threshold ) = @_; unless( defined $distance ) { foreach my $try ( @$guessers ) { $can_guess = eval "require $try->[0]; 1" or next; $try->[-1] or next; # disabled no strict 'refs'; $distance = \&{ join "::", @$try[0,1] }; $threshold ||= $try->[2]; } } $_threshold ||= $threshold; unless( $distance ) { unless( $shown_help ) { my $modules = join ", ", map { $_->[0] } @$guessers; substr $modules, rindex( $modules, ',' ), 1, ', and'; # Should this be colorized? if( $can_guess ) { $logger->info( "I can suggest names if you provide the -x option on invocation." ); } else { $logger->info( "I can suggest names if you install one of $modules" ); $logger->info( "and you provide the -x option on invocation." ); } $shown_help++; } return; } my $modules = _get_all_namespaces(); $logger->info( "Checking " . @$modules . " namespaces for close match suggestions" ); my %guesses; foreach my $guess ( @$modules ) { my $distance = $distance->( $target, $guess ); next if $distance > $_threshold; $guesses{$guess} = $distance; } my @guesses = sort { $guesses{$a} <=> $guesses{$b} } keys %guesses; return [ grep { defined } @guesses[0..9] ]; } } 1; =back =head1 EXIT VALUES The script exits with zero if it thinks that everything worked, or a positive number if it thinks that something failed. Note, however, that in some cases it has to divine a failure by the output of things it does not control. For now, the exit codes are vague: 1 An unknown error 2 The was an external problem 4 There was an internal problem with the script 8 A module failed to install =head1 TO DO * There is initial support for Log4perl if it is available, but I haven't gone through everything to make the NullLogger work out correctly if Log4perl is not installed. * When I capture CPAN.pm output, I need to check for errors and report them to the user. * Warnings switch * Check then exit =head1 BUGS * none noted =head1 SEE ALSO L<CPAN>, L<App::cpanminus> =head1 SOURCE AVAILABILITY This code is in Github in the CPAN.pm repository: https://github.com/andk/cpanpm The source used to be tracked separately in another GitHub repo, but the canonical source is now in the above repo. =head1 CREDITS Japheth Cleaver added the bits to allow a forced install (C<-f>). Jim Brandt suggest and provided the initial implementation for the up-to-date and Changes features. Adam Kennedy pointed out that C<exit()> causes problems on Windows where this script ends up with a .bat extension David Golden helps integrate this into the C<CPAN.pm> repos. Jim Keenan fixed up various issues with _download =head1 AUTHOR brian d foy, C<< <bdfoy@cpan.org> >> =head1 COPYRIGHT Copyright (c) 2001-2018, brian d foy, All Rights Reserved. You may redistribute this under the same terms as Perl itself. =cut # Local Variables: # mode: cperl # indent-tabs-mode: t # cperl-indent-level: 8 # cperl-continued-statement-offset: 8 # End: PK ! �$v(Q Q 5.34.0/App/Prove/State/Result.pmnu �[��� package App::Prove::State::Result; use strict; use warnings; use Carp 'croak'; use App::Prove::State::Result::Test; use constant STATE_VERSION => 1; =head1 NAME App::Prove::State::Result - Individual test suite results. =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 DESCRIPTION The C<prove> command supports a C<--state> option that instructs it to store persistent state across runs. This module encapsulates the results for a single test suite run. =head1 SYNOPSIS # Re-run failed tests $ prove --state=failed,save -rbv =cut =head1 METHODS =head2 Class Methods =head3 C<new> my $result = App::Prove::State::Result->new({ generation => $generation, tests => \%tests, }); Returns a new C<App::Prove::State::Result> instance. =cut sub new { my ( $class, $arg_for ) = @_; $arg_for ||= {}; my %instance_data = %$arg_for; # shallow copy $instance_data{version} = $class->state_version; my $tests = delete $instance_data{tests} || {}; my $self = bless \%instance_data => $class; $self->_initialize($tests); return $self; } sub _initialize { my ( $self, $tests ) = @_; my %tests; while ( my ( $name, $test ) = each %$tests ) { $tests{$name} = $self->test_class->new( { %$test, name => $name } ); } $self->tests( \%tests ); return $self; } =head2 C<state_version> Returns the current version of state storage. =cut sub state_version {STATE_VERSION} =head2 C<test_class> Returns the name of the class used for tracking individual tests. This class should either subclass from C<App::Prove::State::Result::Test> or provide an identical interface. =cut sub test_class { return 'App::Prove::State::Result::Test'; } my %methods = ( generation => { method => 'generation', default => 0 }, last_run_time => { method => 'last_run_time', default => undef }, ); while ( my ( $key, $description ) = each %methods ) { my $default = $description->{default}; no strict 'refs'; *{ $description->{method} } = sub { my $self = shift; if (@_) { $self->{$key} = shift; return $self; } return $self->{$key} || $default; }; } =head3 C<generation> Getter/setter for the "generation" of the test suite run. The first generation is 1 (one) and subsequent generations are 2, 3, etc. =head3 C<last_run_time> Getter/setter for the time of the test suite run. =head3 C<tests> Returns the tests for a given generation. This is a hashref or a hash, depending on context called. The keys to the hash are the individual test names and the value is a hashref with various interesting values. Each k/v pair might resemble something like this: 't/foo.t' => { elapsed => '0.0428488254547119', gen => '7', last_pass_time => '1219328376.07815', last_result => '0', last_run_time => '1219328376.07815', last_todo => '0', mtime => '1191708862', seq => '192', total_passes => '6', } =cut sub tests { my $self = shift; if (@_) { $self->{tests} = shift; return $self; } my %tests = %{ $self->{tests} }; my @tests = sort { $a->sequence <=> $b->sequence } values %tests; return wantarray ? @tests : \@tests; } =head3 C<test> my $test = $result->test('t/customer/create.t'); Returns an individual C<App::Prove::State::Result::Test> instance for the given test name (usually the filename). Will return a new C<App::Prove::State::Result::Test> instance if the name is not found. =cut sub test { my ( $self, $name ) = @_; croak("test() requires a test name") unless defined $name; my $tests = $self->{tests} ||= {}; if ( my $test = $tests->{$name} ) { return $test; } else { my $test = $self->test_class->new( { name => $name } ); $self->{tests}->{$name} = $test; return $test; } } =head3 C<test_names> Returns an list of test names, sorted by run order. =cut sub test_names { my $self = shift; return map { $_->name } $self->tests; } =head3 C<remove> $result->remove($test_name); # remove the test my $test = $result->test($test_name); # fatal error Removes a given test from results. This is a no-op if the test name is not found. =cut sub remove { my ( $self, $name ) = @_; delete $self->{tests}->{$name}; return $self; } =head3 C<num_tests> Returns the number of tests for a given test suite result. =cut sub num_tests { keys %{ shift->{tests} } } =head3 C<raw> Returns a hashref of raw results, suitable for serialization by YAML. =cut sub raw { my $self = shift; my %raw = %$self; my %tests; for my $test ( $self->tests ) { $tests{ $test->name } = $test->raw; } $raw{tests} = \%tests; return \%raw; } 1; PK ! �ڏ�Z Z % 5.34.0/App/Prove/State/Result/Test.pmnu �[��� package App::Prove::State::Result::Test; use strict; use warnings; =head1 NAME App::Prove::State::Result::Test - Individual test results. =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 DESCRIPTION The C<prove> command supports a C<--state> option that instructs it to store persistent state across runs. This module encapsulates the results for a single test. =head1 SYNOPSIS # Re-run failed tests $ prove --state=failed,save -rbv =cut my %methods = ( name => { method => 'name' }, elapsed => { method => 'elapsed', default => 0 }, gen => { method => 'generation', default => 1 }, last_pass_time => { method => 'last_pass_time', default => undef }, last_fail_time => { method => 'last_fail_time', default => undef }, last_result => { method => 'result', default => 0 }, last_run_time => { method => 'run_time', default => undef }, last_todo => { method => 'num_todo', default => 0 }, mtime => { method => 'mtime', default => undef }, seq => { method => 'sequence', default => 1 }, total_passes => { method => 'total_passes', default => 0 }, total_failures => { method => 'total_failures', default => 0 }, parser => { method => 'parser' }, ); while ( my ( $key, $description ) = each %methods ) { my $default = $description->{default}; no strict 'refs'; *{ $description->{method} } = sub { my $self = shift; if (@_) { $self->{$key} = shift; return $self; } return $self->{$key} || $default; }; } =head1 METHODS =head2 Class Methods =head3 C<new> =cut sub new { my ( $class, $arg_for ) = @_; $arg_for ||= {}; bless $arg_for => $class; } =head2 Instance Methods =head3 C<name> The name of the test. Usually a filename. =head3 C<elapsed> The total elapsed times the test took to run, in seconds from the epoch.. =head3 C<generation> The number for the "generation" of the test run. The first generation is 1 (one) and subsequent generations are 2, 3, etc. =head3 C<last_pass_time> The last time the test program passed, in seconds from the epoch. Returns C<undef> if the program has never passed. =head3 C<last_fail_time> The last time the test suite failed, in seconds from the epoch. Returns C<undef> if the program has never failed. =head3 C<mtime> Returns the mtime of the test, in seconds from the epoch. =head3 C<raw> Returns a hashref of raw test data, suitable for serialization by YAML. =head3 C<result> Currently, whether or not the test suite passed with no 'problems' (such as TODO passed). =head3 C<run_time> The total time it took for the test to run, in seconds. If C<Time::HiRes> is available, it will have finer granularity. =head3 C<num_todo> The number of tests with TODO directives. =head3 C<sequence> The order in which this test was run for the given test suite result. =head3 C<total_passes> The number of times the test has passed. =head3 C<total_failures> The number of times the test has failed. =head3 C<parser> The underlying parser object. This is useful if you need the full information for the test program. =cut sub raw { my $self = shift; my %raw = %$self; # this is backwards-compatibility hack and is not guaranteed. delete $raw{name}; delete $raw{parser}; return \%raw; } 1; PK ! �Q��- �- 5.34.0/App/Prove/State.pmnu �[��� package App::Prove::State; use strict; use warnings; use File::Find; use File::Spec; use Carp; use App::Prove::State::Result; use TAP::Parser::YAMLish::Reader (); use TAP::Parser::YAMLish::Writer (); use base 'TAP::Base'; BEGIN { __PACKAGE__->mk_methods('result_class'); } use constant IS_WIN32 => ( $^O =~ /^(MS)?Win32$/ ); use constant NEED_GLOB => IS_WIN32; =head1 NAME App::Prove::State - State storage for the C<prove> command. =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 DESCRIPTION The C<prove> command supports a C<--state> option that instructs it to store persistent state across runs. This module implements that state and the operations that may be performed on it. =head1 SYNOPSIS # Re-run failed tests $ prove --state=failed,save -rbv =cut =head1 METHODS =head2 Class Methods =head3 C<new> Accepts a hashref with the following key/value pairs: =over 4 =item * C<store> The filename of the data store holding the data that App::Prove::State reads. =item * C<extensions> (optional) The test name extensions. Defaults to C<.t>. =item * C<result_class> (optional) The name of the C<result_class>. Defaults to C<App::Prove::State::Result>. =back =cut # override TAP::Base::new: sub new { my $class = shift; my %args = %{ shift || {} }; my $self = bless { select => [], seq => 1, store => delete $args{store}, extensions => ( delete $args{extensions} || ['.t'] ), result_class => ( delete $args{result_class} || 'App::Prove::State::Result' ), }, $class; $self->{_} = $self->result_class->new( { tests => {}, generation => 1, } ); my $store = $self->{store}; $self->load($store) if defined $store && -f $store; return $self; } =head2 C<result_class> Getter/setter for the name of the class used for tracking test results. This class should either subclass from C<App::Prove::State::Result> or provide an identical interface. =cut =head2 C<extensions> Get or set the list of extensions that files must have in order to be considered tests. Defaults to ['.t']. =cut sub extensions { my $self = shift; $self->{extensions} = shift if @_; return $self->{extensions}; } =head2 C<results> Get the results of the last test run. Returns a C<result_class()> instance. =cut sub results { my $self = shift; $self->{_} || $self->result_class->new; } =head2 C<commit> Save the test results. Should be called after all tests have run. =cut sub commit { my $self = shift; if ( $self->{should_save} ) { $self->save; } } =head2 Instance Methods =head3 C<apply_switch> $self->apply_switch('failed,save'); Apply a list of switch options to the state, updating the internal object state as a result. Nothing is returned. Diagnostics: - "Illegal state option: %s" =over =item C<last> Run in the same order as last time =item C<failed> Run only the failed tests from last time =item C<passed> Run only the passed tests from last time =item C<all> Run all tests in normal order =item C<hot> Run the tests that most recently failed first =item C<todo> Run the tests ordered by number of todos. =item C<slow> Run the tests in slowest to fastest order. =item C<fast> Run test tests in fastest to slowest order. =item C<new> Run the tests in newest to oldest order. =item C<old> Run the tests in oldest to newest order. =item C<save> Save the state on exit. =back =cut sub apply_switch { my $self = shift; my @opts = @_; my $last_gen = $self->results->generation - 1; my $last_run_time = $self->results->last_run_time; my $now = $self->get_time; my @switches = map { split /,/ } @opts; my %handler = ( last => sub { $self->_select( limit => shift, where => sub { $_->generation >= $last_gen }, order => sub { $_->sequence } ); }, failed => sub { $self->_select( limit => shift, where => sub { $_->result != 0 }, order => sub { -$_->result } ); }, passed => sub { $self->_select( limit => shift, where => sub { $_->result == 0 } ); }, all => sub { $self->_select( limit => shift ); }, todo => sub { $self->_select( limit => shift, where => sub { $_->num_todo != 0 }, order => sub { -$_->num_todo; } ); }, hot => sub { $self->_select( limit => shift, where => sub { defined $_->last_fail_time }, order => sub { $now - $_->last_fail_time } ); }, slow => sub { $self->_select( limit => shift, order => sub { -$_->elapsed } ); }, fast => sub { $self->_select( limit => shift, order => sub { $_->elapsed } ); }, new => sub { $self->_select( limit => shift, order => sub { -$_->mtime } ); }, old => sub { $self->_select( limit => shift, order => sub { $_->mtime } ); }, fresh => sub { $self->_select( limit => shift, where => sub { $_->mtime >= $last_run_time } ); }, save => sub { $self->{should_save}++; }, adrian => sub { unshift @switches, qw( hot all save ); }, ); while ( defined( my $ele = shift @switches ) ) { my ( $opt, $arg ) = ( $ele =~ /^([^:]+):(.*)/ ) ? ( $1, $2 ) : ( $ele, undef ); my $code = $handler{$opt} || croak "Illegal state option: $opt"; $code->($arg); } return; } sub _select { my ( $self, %spec ) = @_; push @{ $self->{select} }, \%spec; } =head3 C<get_tests> Given a list of args get the names of tests that should run =cut sub get_tests { my $self = shift; my $recurse = shift; my @argv = @_; my %seen; my @selected = $self->_query; unless ( @argv || @{ $self->{select} } ) { @argv = $recurse ? '.' : 't'; croak qq{No tests named and '@argv' directory not found} unless -d $argv[0]; } push @selected, $self->_get_raw_tests( $recurse, @argv ) if @argv; return grep { !$seen{$_}++ } @selected; } sub _query { my $self = shift; if ( my @sel = @{ $self->{select} } ) { warn "No saved state, selection will be empty\n" unless $self->results->num_tests; return map { $self->_query_clause($_) } @sel; } return; } sub _query_clause { my ( $self, $clause ) = @_; my @got; my $results = $self->results; my $where = $clause->{where} || sub {1}; # Select for my $name ( $results->test_names ) { next unless -f $name; local $_ = $results->test($name); push @got, $name if $where->(); } # Sort if ( my $order = $clause->{order} ) { @got = map { $_->[0] } sort { ( defined $b->[1] <=> defined $a->[1] ) || ( ( $a->[1] || 0 ) <=> ( $b->[1] || 0 ) ) } map { [ $_, do { local $_ = $results->test($_); $order->() } ] } @got; } if ( my $limit = $clause->{limit} ) { @got = splice @got, 0, $limit if @got > $limit; } return @got; } sub _get_raw_tests { my $self = shift; my $recurse = shift; my @argv = @_; my @tests; # Do globbing on Win32. if (NEED_GLOB) { eval "use File::Glob::Windows"; # [49732] @argv = map { glob "$_" } @argv; } my $extensions = $self->{extensions}; for my $arg (@argv) { if ( '-' eq $arg ) { push @argv => <STDIN>; chomp(@argv); next; } push @tests, sort -d $arg ? $recurse ? $self->_expand_dir_recursive( $arg, $extensions ) : map { glob( File::Spec->catfile( $arg, "*$_" ) ) } @{$extensions} : $arg; } return @tests; } sub _expand_dir_recursive { my ( $self, $dir, $extensions ) = @_; my @tests; my $ext_string = join( '|', map {quotemeta} @{$extensions} ); find( { follow => 1, #21938 follow_skip => 2, wanted => sub { -f && /(?:$ext_string)$/ && push @tests => $File::Find::name; } }, $dir ); return @tests; } =head3 C<observe_test> Store the results of a test. =cut # Store: # last fail time # last pass time # last run time # most recent result # most recent todos # total failures # total passes # state generation # parser sub observe_test { my ( $self, $test_info, $parser ) = @_; my $name = $test_info->[0]; my $fail = scalar( $parser->failed ) + ( $parser->has_problems ? 1 : 0 ); my $todo = scalar( $parser->todo ); my $start_time = $parser->start_time; my $end_time = $parser->end_time, my $test = $self->results->test($name); $test->sequence( $self->{seq}++ ); $test->generation( $self->results->generation ); $test->run_time($end_time); $test->result($fail); $test->num_todo($todo); $test->elapsed( $end_time - $start_time ); $test->parser($parser); if ($fail) { $test->total_failures( $test->total_failures + 1 ); $test->last_fail_time($end_time); } else { $test->total_passes( $test->total_passes + 1 ); $test->last_pass_time($end_time); } } =head3 C<save> Write the state to a file. =cut sub save { my ($self) = @_; my $store = $self->{store} or return; $self->results->last_run_time( $self->get_time ); my $writer = TAP::Parser::YAMLish::Writer->new; local *FH; open FH, ">$store" or croak "Can't write $store ($!)"; $writer->write( $self->results->raw, \*FH ); close FH; } =head3 C<load> Load the state from a file =cut sub load { my ( $self, $name ) = @_; my $reader = TAP::Parser::YAMLish::Reader->new; local *FH; open FH, "<$name" or croak "Can't read $name ($!)"; # XXX this is temporary $self->{_} = $self->result_class->new( $reader->read( sub { my $line = <FH>; defined $line && chomp $line; return $line; } ) ); # $writer->write( $self->{tests} || {}, \*FH ); close FH; $self->_regen_seq; $self->_prune_and_stamp; $self->results->generation( $self->results->generation + 1 ); } sub _prune_and_stamp { my $self = shift; my $results = $self->results; my @tests = $self->results->tests; for my $test (@tests) { my $name = $test->name; if ( my @stat = stat $name ) { $test->mtime( $stat[9] ); } else { $results->remove($name); } } } sub _regen_seq { my $self = shift; for my $test ( $self->results->tests ) { $self->{seq} = $test->sequence + 1 if defined $test->sequence && $test->sequence >= $self->{seq}; } } 1; PK ! ���./J /J 5.34.0/App/Prove.pmnu �[��� package App::Prove; use strict; use warnings; use TAP::Harness::Env; use Text::ParseWords qw(shellwords); use File::Spec; use Getopt::Long; use App::Prove::State; use Carp; use base 'TAP::Object'; =head1 NAME App::Prove - Implements the C<prove> command. =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 DESCRIPTION L<Test::Harness> provides a command, C<prove>, which runs a TAP based test suite and prints a report. The C<prove> command is a minimal wrapper around an instance of this module. =head1 SYNOPSIS use App::Prove; my $app = App::Prove->new; $app->process_args(@ARGV); $app->run; =cut use constant IS_WIN32 => ( $^O =~ /^(MS)?Win32$/ ); use constant IS_VMS => $^O eq 'VMS'; use constant IS_UNIXY => !( IS_VMS || IS_WIN32 ); use constant STATE_FILE => IS_UNIXY ? '.prove' : '_prove'; use constant RC_FILE => IS_UNIXY ? '.proverc' : '_proverc'; use constant PLUGINS => 'App::Prove::Plugin'; my @ATTR; BEGIN { @ATTR = qw( archive argv blib show_count color directives exec failures comments formatter harness includes modules plugins jobs lib merge parse quiet really_quiet recurse backwards shuffle taint_fail taint_warn timer verbose warnings_fail warnings_warn show_help show_man show_version state_class test_args state dry extensions ignore_exit rules state_manager normalize sources tapversion trap statefile ); __PACKAGE__->mk_methods(@ATTR); } =head1 METHODS =head2 Class Methods =head3 C<new> Create a new C<App::Prove>. Optionally a hash ref of attribute initializers may be passed. =cut # new() implementation supplied by TAP::Object sub _initialize { my $self = shift; my $args = shift || {}; my @is_array = qw( argv rc_opts includes modules state plugins rules sources ); # setup defaults: for my $key (@is_array) { $self->{$key} = []; } for my $attr (@ATTR) { if ( exists $args->{$attr} ) { # TODO: Some validation here $self->{$attr} = $args->{$attr}; } } $self->state_class('App::Prove::State'); return $self; } =head3 C<state_class> Getter/setter for the name of the class used for maintaining state. This class should either subclass from C<App::Prove::State> or provide an identical interface. =head3 C<state_manager> Getter/setter for the instance of the C<state_class>. =cut =head3 C<add_rc_file> $prove->add_rc_file('myproj/.proverc'); Called before C<process_args> to prepend the contents of an rc file to the options. =cut sub add_rc_file { my ( $self, $rc_file ) = @_; local *RC; open RC, "<$rc_file" or croak "Can't read $rc_file ($!)"; while ( defined( my $line = <RC> ) ) { push @{ $self->{rc_opts} }, grep { defined and not /^#/ } $line =~ m{ ' ([^']*) ' | " ([^"]*) " | (\#.*) | (\S+) }xg; } close RC; } =head3 C<process_args> $prove->process_args(@args); Processes the command-line arguments. Attributes will be set appropriately. Any filenames may be found in the C<argv> attribute. Dies on invalid arguments. =cut sub process_args { my $self = shift; my @rc = RC_FILE; unshift @rc, glob '~/' . RC_FILE if IS_UNIXY; # Preprocess meta-args. my @args; while ( defined( my $arg = shift ) ) { if ( $arg eq '--norc' ) { @rc = (); } elsif ( $arg eq '--rc' ) { defined( my $rc = shift ) or croak "Missing argument to --rc"; push @rc, $rc; } elsif ( $arg =~ m{^--rc=(.+)$} ) { push @rc, $1; } else { push @args, $arg; } } # Everything after the arisdottle '::' gets passed as args to # test programs. if ( defined( my $stop_at = _first_pos( '::', @args ) ) ) { my @test_args = splice @args, $stop_at; shift @test_args; $self->{test_args} = \@test_args; } # Grab options from RC files $self->add_rc_file($_) for grep -f, @rc; unshift @args, @{ $self->{rc_opts} }; if ( my @bad = map {"-$_"} grep {/^-(man|help)$/} @args ) { die "Long options should be written with two dashes: ", join( ', ', @bad ), "\n"; } # And finally... { local @ARGV = @args; Getopt::Long::Configure(qw(no_ignore_case bundling pass_through)); # Don't add coderefs to GetOptions GetOptions( 'v|verbose' => \$self->{verbose}, 'f|failures' => \$self->{failures}, 'o|comments' => \$self->{comments}, 'l|lib' => \$self->{lib}, 'b|blib' => \$self->{blib}, 's|shuffle' => \$self->{shuffle}, 'color!' => \$self->{color}, 'colour!' => \$self->{color}, 'count!' => \$self->{show_count}, 'c' => \$self->{color}, 'D|dry' => \$self->{dry}, 'ext=s@' => sub { my ( $opt, $val ) = @_; # Workaround for Getopt::Long 2.25 handling of # multivalue options push @{ $self->{extensions} ||= [] }, $val; }, 'harness=s' => \$self->{harness}, 'ignore-exit' => \$self->{ignore_exit}, 'source=s@' => $self->{sources}, 'formatter=s' => \$self->{formatter}, 'r|recurse' => \$self->{recurse}, 'reverse' => \$self->{backwards}, 'p|parse' => \$self->{parse}, 'q|quiet' => \$self->{quiet}, 'Q|QUIET' => \$self->{really_quiet}, 'e|exec=s' => \$self->{exec}, 'm|merge' => \$self->{merge}, 'I=s@' => $self->{includes}, 'M=s@' => $self->{modules}, 'P=s@' => $self->{plugins}, 'state=s@' => $self->{state}, 'statefile=s' => \$self->{statefile}, 'directives' => \$self->{directives}, 'h|help|?' => \$self->{show_help}, 'H|man' => \$self->{show_man}, 'V|version' => \$self->{show_version}, 'a|archive=s' => \$self->{archive}, 'j|jobs=i' => \$self->{jobs}, 'timer' => \$self->{timer}, 'T' => \$self->{taint_fail}, 't' => \$self->{taint_warn}, 'W' => \$self->{warnings_fail}, 'w' => \$self->{warnings_warn}, 'normalize' => \$self->{normalize}, 'rules=s@' => $self->{rules}, 'tapversion=s' => \$self->{tapversion}, 'trap' => \$self->{trap}, ) or croak('Unable to continue'); # Stash the remainder of argv for later $self->{argv} = [@ARGV]; } return; } sub _first_pos { my $want = shift; for ( 0 .. $#_ ) { return $_ if $_[$_] eq $want; } return; } sub _help { my ( $self, $verbosity ) = @_; eval('use Pod::Usage 1.12 ()'); if ( my $err = $@ ) { die 'Please install Pod::Usage for the --help option ' . '(or try `perldoc prove`.)' . "\n ($@)"; } Pod::Usage::pod2usage( { -verbose => $verbosity } ); return; } sub _color_default { my $self = shift; return -t STDOUT && !$ENV{HARNESS_NOTTY}; } sub _get_args { my $self = shift; my %args; $args{trap} = 1 if $self->trap; if ( defined $self->color ? $self->color : $self->_color_default ) { $args{color} = 1; } if ( !defined $self->show_count ) { $args{show_count} = 1; } else { $args{show_count} = $self->show_count; } if ( $self->archive ) { $self->require_harness( archive => 'TAP::Harness::Archive' ); $args{archive} = $self->archive; } if ( my $jobs = $self->jobs ) { $args{jobs} = $jobs; } if ( my $harness_opt = $self->harness ) { $self->require_harness( harness => $harness_opt ); } if ( my $formatter = $self->formatter ) { $args{formatter_class} = $formatter; } for my $handler ( @{ $self->sources } ) { my ( $name, $config ) = $self->_parse_source($handler); $args{sources}->{$name} = $config; } if ( $self->ignore_exit ) { $args{ignore_exit} = 1; } if ( $self->taint_fail && $self->taint_warn ) { die '-t and -T are mutually exclusive'; } if ( $self->warnings_fail && $self->warnings_warn ) { die '-w and -W are mutually exclusive'; } for my $a (qw( lib switches )) { my $method = "_get_$a"; my $val = $self->$method(); $args{$a} = $val if defined $val; } # Handle verbose, quiet, really_quiet flags my %verb_map = ( verbose => 1, quiet => -1, really_quiet => -2, ); my @verb_adj = grep {$_} map { $self->$_() ? $verb_map{$_} : 0 } keys %verb_map; die "Only one of verbose, quiet or really_quiet should be specified\n" if @verb_adj > 1; $args{verbosity} = shift @verb_adj || 0; for my $a (qw( merge failures comments timer directives normalize )) { $args{$a} = 1 if $self->$a(); } $args{errors} = 1 if $self->parse; # defined but zero-length exec runs test files as binaries $args{exec} = [ split( /\s+/, $self->exec ) ] if ( defined( $self->exec ) ); $args{version} = $self->tapversion if defined( $self->tapversion ); if ( defined( my $test_args = $self->test_args ) ) { $args{test_args} = $test_args; } if ( @{ $self->rules } ) { my @rules; for ( @{ $self->rules } ) { if (/^par=(.*)/) { push @rules, $1; } elsif (/^seq=(.*)/) { push @rules, { seq => $1 }; } } $args{rules} = { par => [@rules] }; } $args{harness_class} = $self->{harness_class} if $self->{harness_class}; return \%args; } sub _find_module { my ( $self, $class, @search ) = @_; croak "Bad module name $class" unless $class =~ /^ \w+ (?: :: \w+ ) *$/x; for my $pfx (@search) { my $name = join( '::', $pfx, $class ); eval "require $name"; return $name unless $@; } eval "require $class"; return $class unless $@; return; } sub _load_extension { my ( $self, $name, @search ) = @_; my @args = (); if ( $name =~ /^(.*?)=(.*)/ ) { $name = $1; @args = split( /,/, $2 ); } if ( my $class = $self->_find_module( $name, @search ) ) { $class->import(@args); if ( $class->can('load') ) { $class->load( { app_prove => $self, args => [@args] } ); } } else { croak "Can't load module $name"; } } sub _load_extensions { my ( $self, $ext, @search ) = @_; $self->_load_extension( $_, @search ) for @$ext; } sub _parse_source { my ( $self, $handler ) = @_; # Load any options. ( my $opt_name = lc $handler ) =~ s/::/-/g; local @ARGV = @{ $self->{argv} }; my %config; Getopt::Long::GetOptions( "$opt_name-option=s%" => sub { my ( $name, $k, $v ) = @_; if ( $v =~ /(?<!\\)=/ ) { # It's a hash option. croak "Option $name must be consistently used as a hash" if exists $config{$k} && ref $config{$k} ne 'HASH'; $config{$k} ||= {}; my ( $hk, $hv ) = split /(?<!\\)=/, $v, 2; $config{$k}{$hk} = $hv; } else { $v =~ s/\\=/=/g; if ( exists $config{$k} ) { $config{$k} = [ $config{$k} ] unless ref $config{$k} eq 'ARRAY'; push @{ $config{$k} } => $v; } else { $config{$k} = $v; } } } ); $self->{argv} = \@ARGV; return ( $handler, \%config ); } =head3 C<run> Perform whatever actions the command line args specified. The C<prove> command line tool consists of the following code: use App::Prove; my $app = App::Prove->new; $app->process_args(@ARGV); exit( $app->run ? 0 : 1 ); # if you need the exit code =cut sub run { my $self = shift; unless ( $self->state_manager ) { $self->state_manager( $self->state_class->new( { store => $self->statefile || STATE_FILE } ) ); } if ( $self->show_help ) { $self->_help(1); } elsif ( $self->show_man ) { $self->_help(2); } elsif ( $self->show_version ) { $self->print_version; } elsif ( $self->dry ) { print "$_\n" for $self->_get_tests; } else { $self->_load_extensions( $self->modules ); $self->_load_extensions( $self->plugins, PLUGINS ); local $ENV{TEST_VERBOSE} = 1 if $self->verbose; return $self->_runtests( $self->_get_args, $self->_get_tests ); } return 1; } sub _get_tests { my $self = shift; my $state = $self->state_manager; my $ext = $self->extensions; $state->extensions($ext) if defined $ext; if ( defined( my $state_switch = $self->state ) ) { $state->apply_switch(@$state_switch); } my @tests = $state->get_tests( $self->recurse, @{ $self->argv } ); $self->_shuffle(@tests) if $self->shuffle; @tests = reverse @tests if $self->backwards; return @tests; } sub _runtests { my ( $self, $args, @tests ) = @_; my $harness = TAP::Harness::Env->create($args); my $state = $self->state_manager; $harness->callback( after_test => sub { $state->observe_test(@_); } ); $harness->callback( after_runtests => sub { $state->commit(@_); } ); my $aggregator = $harness->runtests(@tests); return !$aggregator->has_errors; } sub _get_switches { my $self = shift; my @switches; # notes that -T or -t must be at the front of the switches! if ( $self->taint_fail ) { push @switches, '-T'; } elsif ( $self->taint_warn ) { push @switches, '-t'; } if ( $self->warnings_fail ) { push @switches, '-W'; } elsif ( $self->warnings_warn ) { push @switches, '-w'; } return @switches ? \@switches : (); } sub _get_lib { my $self = shift; my @libs; if ( $self->lib ) { push @libs, 'lib'; } if ( $self->blib ) { push @libs, 'blib/lib', 'blib/arch'; } if ( @{ $self->includes } ) { push @libs, @{ $self->includes }; } #24926 @libs = map { File::Spec->rel2abs($_) } @libs; # Huh? return @libs ? \@libs : (); } sub _shuffle { my $self = shift; # Fisher-Yates shuffle my $i = @_; while ($i) { my $j = rand $i--; @_[ $i, $j ] = @_[ $j, $i ]; } return; } =head3 C<require_harness> Load a harness replacement class. $prove->require_harness($for => $class_name); =cut sub require_harness { my ( $self, $for, $class ) = @_; my ($class_name) = $class =~ /^(\w+(?:::\w+)*)/; # Emulate Perl's -MModule=arg1,arg2 behaviour $class =~ s!^(\w+(?:::\w+)*)=(.*)$!$1 split(/,/,q{$2})!; eval("use $class;"); die "$class_name is required to use the --$for feature: $@" if $@; $self->{harness_class} = $class_name; return; } =head3 C<print_version> Display the version numbers of the loaded L<TAP::Harness> and the current Perl. =cut sub print_version { my $self = shift; require TAP::Harness; printf( "TAP::Harness v%s and Perl v%vd\n", $TAP::Harness::VERSION, $^V ); return; } 1; # vim:ts=4:sw=4:et:sta __END__ =head2 Attributes After command line parsing the following attributes reflect the values of the corresponding command line switches. They may be altered before calling C<run>. =over =item C<archive> =item C<argv> =item C<backwards> =item C<blib> =item C<color> =item C<directives> =item C<dry> =item C<exec> =item C<extensions> =item C<failures> =item C<comments> =item C<formatter> =item C<harness> =item C<ignore_exit> =item C<includes> =item C<jobs> =item C<lib> =item C<merge> =item C<modules> =item C<parse> =item C<plugins> =item C<quiet> =item C<really_quiet> =item C<recurse> =item C<rules> =item C<show_count> =item C<show_help> =item C<show_man> =item C<show_version> =item C<shuffle> =item C<state> =item C<state_class> =item C<taint_fail> =item C<taint_warn> =item C<test_args> =item C<timer> =item C<verbose> =item C<warnings_fail> =item C<warnings_warn> =item C<tapversion> =item C<trap> =back =head1 PLUGINS C<App::Prove> provides support for 3rd-party plugins. These are currently loaded at run-time, I<after> arguments have been parsed (so you can not change the way arguments are processed, sorry), typically with the C<< -PI<plugin> >> switch, eg: prove -PMyPlugin This will search for a module named C<App::Prove::Plugin::MyPlugin>, or failing that, C<MyPlugin>. If the plugin can't be found, C<prove> will complain & exit. You can pass an argument to your plugin by appending an C<=> after the plugin name, eg C<-PMyPlugin=foo>. You can pass multiple arguments using commas: prove -PMyPlugin=foo,bar,baz These are passed in to your plugin's C<load()> class method (if it has one), along with a reference to the C<App::Prove> object that is invoking your plugin: sub load { my ($class, $p) = @_; my @args = @{ $p->{args} }; # @args will contain ( 'foo', 'bar', 'baz' ) $p->{app_prove}->do_something; ... } Note that the user's arguments are also passed to your plugin's C<import()> function as a list, eg: sub import { my ($class, @args) = @_; # @args will contain ( 'foo', 'bar', 'baz' ) ... } This is for backwards compatibility, and may be deprecated in the future. =head2 Sample Plugin Here's a sample plugin, for your reference: package App::Prove::Plugin::Foo; # Sample plugin, try running with: # prove -PFoo=bar -r -j3 # prove -PFoo -Q # prove -PFoo=bar,My::Formatter use strict; use warnings; sub load { my ($class, $p) = @_; my @args = @{ $p->{args} }; my $app = $p->{app_prove}; print "loading plugin: $class, args: ", join(', ', @args ), "\n"; # turn on verbosity $app->verbose( 1 ); # set the formatter? $app->formatter( $args[1] ) if @args > 1; # print some of App::Prove's state: for my $attr (qw( jobs quiet really_quiet recurse verbose )) { my $val = $app->$attr; $val = 'undef' unless defined( $val ); print "$attr: $val\n"; } return 1; } 1; =head1 SEE ALSO L<prove>, L<TAP::Harness> =cut PK ! ��I�? ? 5.34.0/autodie/Util.pmnu �[��� package autodie::Util; use strict; use warnings; use Exporter 5.57 qw(import); use autodie::Scope::GuardStack; our @EXPORT_OK = qw( fill_protos install_subs make_core_trampoline on_end_of_compile_scope ); our $VERSION = '2.34'; # VERSION: Generated by DZP::OurPkg:Version # ABSTRACT: Internal Utility subroutines for autodie and Fatal # docs says we should pick __PACKAGE__ /<whatever> my $H_STACK_KEY = __PACKAGE__ . '/stack'; sub on_end_of_compile_scope { my ($hook) = @_; # Dark magic to have autodie work under 5.8 # Copied from namespace::clean, that copied it from # autobox, that found it on an ancient scroll written # in blood. # This magic bit causes %^H to be lexically scoped. $^H |= 0x020000; my $stack = $^H{$H_STACK_KEY}; if (not defined($stack)) { $stack = autodie::Scope::GuardStack->new; $^H{$H_STACK_KEY} = $stack; } $stack->push_hook($hook); return; } # This code is based on code from the original Fatal. The "XXXX" # remark is from the original code and its meaning is (sadly) unknown. sub fill_protos { my ($proto) = @_; my ($n, $isref, @out, @out1, $seen_semi) = -1; if ($proto =~ m{^\s* (?: [;] \s*)? \@}x) { # prototype is entirely slurply - special case that does not # require any handling. return ([0, '@_']); } while ($proto =~ /\S/) { $n++; push(@out1,[$n,@out]) if $seen_semi; push(@out, $1 . "{\$_[$n]}"), next if $proto =~ s/^\s*\\([\@%\$\&])//; push(@out, "\$_[$n]"), next if $proto =~ s/^\s*([_*\$&])//; push(@out, "\@_[$n..\$#_]"), last if $proto =~ s/^\s*(;\s*)?\@//; $seen_semi = 1, $n--, next if $proto =~ s/^\s*;//; # XXXX ???? die "Internal error: Unknown prototype letters: \"$proto\""; } push(@out1,[$n+1,@out]); return @out1; } sub make_core_trampoline { my ($call, $pkg, $proto_str) = @_; my $trampoline_code = 'sub {'; my $trampoline_sub; my @protos = fill_protos($proto_str); foreach my $proto (@protos) { local $" = ", "; # So @args is formatted correctly. my ($count, @args) = @$proto; if (@args && $args[-1] =~ m/[@#]_/) { $trampoline_code .= qq/ if (\@_ >= $count) { return $call(@args); } /; } else { $trampoline_code .= qq< if (\@_ == $count) { return $call(@args); } >; } } $trampoline_code .= qq< require Carp; Carp::croak("Internal error in Fatal/autodie. Leak-guard failure"); } >; my $E; { local $@; $trampoline_sub = eval "package $pkg;\n $trampoline_code"; ## no critic $E = $@; } die "Internal error in Fatal/autodie: Leak-guard installation failure: $E" if $E; return $trampoline_sub; } # The code here is originally lifted from namespace::clean, # by Robert "phaylon" Sedlacek. # # It's been redesigned after feedback from ikegami on perlmonks. # See http://perlmonks.org/?node_id=693338 . Ikegami rocks. # # Given a package, and hash of (subname => subref) pairs, # we install the given subroutines into the package. If # a subref is undef, the subroutine is removed. Otherwise # it replaces any existing subs which were already there. sub install_subs { my ($target_pkg, $subs_to_reinstate) = @_; my $pkg_sym = "${target_pkg}::"; # It does not hurt to do this in a predictable order, and might help debugging. foreach my $sub_name (sort keys(%{$subs_to_reinstate})) { # We will repeatedly mess with stuff that strict "refs" does # not like. So lets just disable it once for this entire # scope. no strict qw(refs); ## no critic my $sub_ref = $subs_to_reinstate->{$sub_name}; my $full_path = ${pkg_sym}.${sub_name}; my $oldglob = *$full_path; # Nuke the old glob. delete($pkg_sym->{$sub_name}); # For some reason this local *alias = *$full_path triggers an # "only used once" warning. Not entirely sure why, but at # least it is easy to silence. no warnings qw(once); local *alias = *$full_path; use warnings qw(once); # Copy innocent bystanders back. Note that we lose # formats; it seems that Perl versions up to 5.10.0 # have a bug which causes copying formats to end up in # the scalar slot. Thanks to Ben Morrow for spotting this. foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { next unless defined(*$oldglob{$slot}); *alias = *$oldglob{$slot}; } if ($sub_ref) { *$full_path = $sub_ref; } } return; } 1; __END__ =head1 NAME autodie::Util - Internal Utility subroutines for autodie and Fatal =head1 SYNOPSIS # INTERNAL API for autodie and Fatal only! use autodie::Util qw(on_end_of_compile_scope); on_end_of_compile_scope(sub { print "Hallo world\n"; }); =head1 DESCRIPTION Interal Utilities for autodie and Fatal! This module is not a part of autodie's public API. This module contains utility subroutines for abstracting away the underlying magic of autodie and (ab)uses of C<%^H> to call subs at the end of a (compile-time) scopes. Note that due to how C<%^H> works, some of these utilities are only useful during the compilation phase of a perl module and relies on the internals of how perl handles references in C<%^H>. =head2 Methods =head3 on_end_of_compile_scope on_end_of_compile_scope(sub { print "Hallo world\n"; }); Will invoke a sub at the end of a (compile-time) scope. The sub is called once with no arguments. Can be called multiple times (even in the same "compile-time" scope) to install multiple subs. Subs are called in a "first-in-last-out"-order (FILO or "stack"-order). =head3 fill_protos fill_protos('*$$;$@') Given a Perl subroutine prototype, return a list of invocation specifications. Each specification is a listref, where the first member is the (minimum) number of arguments for this invocation specification. The remaining arguments are a string representation of how to pass the arguments correctly to a sub with the given prototype, when called with the given number of arguments. The specifications are returned in increasing order of arguments starting at 0 (e.g. ';$') or 1 (e.g. '$@'). Note that if the prototype is "slurpy" (e.g. ends with a "@"), the number of arguments for the last specification is a "minimum" number rather than an exact number. This can be detected by the last member of the last specification matching m/[@#]_/. =head3 make_core_trampoline make_core_trampoline('CORE::open', 'main', prototype('CORE::open')) Creates a trampoline for calling a core sub. Essentially, a tiny sub that figures out how we should be calling our core sub, puts in the arguments in the right way, and bounces our control over to it. If we could reliably use `goto &` on core builtins, we wouldn't need this subroutine. =head3 install_subs install_subs('My::Module', { 'read' => sub { die("Hallo\n"), ... }}) Given a package name and a hashref mapping names to a subroutine reference (or C<undef>), this subroutine will install said subroutines on their given name in that module. If a name mapes to C<undef>, any subroutine with that name in the target module will be remove (possibly "unshadowing" a CORE sub of same name). =head1 AUTHOR Copyright 2013-2014, Niels Thykier E<lt>niels@thykier.netE<gt> =head1 LICENSE This module is free software. You may distribute it under the same terms as Perl itself. PK ! }�s_ _ " 5.34.0/autodie/exception/system.pmnu �[��� package autodie::exception::system; use 5.008; use strict; use warnings; use parent 'autodie::exception'; use Carp qw(croak); our $VERSION = '2.34'; # VERSION: Generated by DZP::OurPkg:Version # ABSTRACT: Exceptions from autodying system(). my $PACKAGE = __PACKAGE__; =head1 NAME autodie::exception::system - Exceptions from autodying system(). =head1 SYNOPSIS eval { use autodie qw(system); system($cmd, @args); }; if (my $E = $@) { say "Ooops! ",$E->caller," had problems: $@"; } =head1 DESCRIPTION This is a L<autodie::exception> class for failures from the C<system> command. Presently there is no way to interrogate an C<autodie::exception::system> object for the command, exit status, and other information you'd expect such an object to hold. The interface will be expanded to accommodate this in the future. =cut sub _init { my ($this, %args) = @_; $this->{$PACKAGE}{message} = $args{message} || croak "'message' arg not supplied to autodie::exception::system->new"; return $this->SUPER::_init(%args); } =head2 stringify When stringified, C<autodie::exception::system> objects currently use the message generated by L<IPC::System::Simple>. =cut sub stringify { my ($this) = @_; return $this->{$PACKAGE}{message} . $this->add_file_and_line; } 1; __END__ =head1 LICENSE Copyright (C)2008 Paul Fenwick This is free software. You may modify and/or redistribute this code under the same terms as Perl 5.10 itself, or, at your option, any later version of Perl 5. =head1 AUTHOR Paul Fenwick E<lt>pjf@perltraining.com.auE<gt> PK ! �/�t t 5.34.0/autodie/Scope/Guard.pmnu �[��� package autodie::Scope::Guard; use strict; use warnings; # ABSTRACT: Wrapper class for calling subs at end of scope our $VERSION = '2.34'; # VERSION # This code schedules the cleanup of subroutines at the end of # scope. It's directly inspired by chocolateboy's excellent # Scope::Guard module. sub new { my ($class, $handler) = @_; return bless($handler, $class); } sub DESTROY { my ($self) = @_; $self->(); } 1; __END__ =head1 NAME autodie::Scope::Guard - Wrapper class for calling subs at end of scope =head1 SYNOPSIS use autodie::Scope::Guard; $^H{'my-key'} = autodie::Scope::Guard->new(sub { print "Hallo world\n"; }); =head1 DESCRIPTION This class is used to bless perl subs so that they are invoked when they are destroyed. This is mostly useful for ensuring the code is invoked at end of scope. This module is not a part of autodie's public API. This module is directly inspired by chocolateboy's excellent Scope::Guard module. =head2 Methods =head3 new my $hook = autodie::Scope::Guard->new(sub {}); Creates a new C<autodie::Scope::Guard>, which will invoke the given sub once it goes out of scope (i.e. its DESTROY handler is called). =head1 AUTHOR Copyright 2008-2009, Paul Fenwick E<lt>pjf@perltraining.com.auE<gt> =head1 LICENSE This module is free software. You may distribute it under the same terms as Perl itself. PK ! �` ` " 5.34.0/autodie/Scope/GuardStack.pmnu �[��� package autodie::Scope::GuardStack; use strict; use warnings; use autodie::Scope::Guard; # ABSTRACT: Hook stack for managing scopes via %^H our $VERSION = '2.34'; # VERSION my $H_KEY_STEM = __PACKAGE__ . '/guard'; my $COUNTER = 0; # This code schedules the cleanup of subroutines at the end of # scope. It's directly inspired by chocolateboy's excellent # Scope::Guard module. sub new { my ($class) = @_; return bless([], $class); } sub push_hook { my ($self, $hook) = @_; my $h_key = $H_KEY_STEM . ($COUNTER++); my $size = @{$self}; $^H{$h_key} = autodie::Scope::Guard->new(sub { # Pop the stack until we reach the right size # - this may seem weird, but it is to avoid relying # on "destruction order" of keys in %^H. # # Example: # { # use autodie; # hook 1 # no autodie; # hook 2 # use autodie; # hook 3 # } # # Here we want call hook 3, then hook 2 and finally hook 1. # Any other order could have undesired consequences. # # Suppose hook 2 is destroyed first, it will pop hook 3 and # then hook 2. hook 3 will then be destroyed, but do nothing # since its "frame" was already popped and finally hook 1 # will be popped and take its own frame with it. # # We need to check that $self still exists since things can get weird # during global destruction. $self->_pop_hook while $self && @{$self} > $size; }); push(@{$self}, [$hook, $h_key]); return; } sub _pop_hook { my ($self) = @_; my ($hook, $key) = @{ pop(@{$self}) }; my $ref = delete($^H{$key}); $hook->(); return; } sub DESTROY { my ($self) = @_; # To be honest, I suspect @{$self} will always be empty here due # to the subs in %^H having references to the stack (which would # keep the stack alive until those have been destroyed). Anyhow, # it never hurt to be careful. $self->_pop_hook while @{$self}; return; } 1; __END__ =head1 NAME autodie::Scope::GuardStack - Hook stack for managing scopes via %^H =head1 SYNOPSIS use autodie::Scope::GuardStack; my $stack = autodie::Scope::GuardStack->new $^H{'my-key'} = $stack; $stack->push_hook(sub {}); =head1 DESCRIPTION This class is a stack of hooks to be called in the right order as scopes go away. The stack is only useful when inserted into C<%^H> and will pop hooks as their "scope" is popped. This is useful for uninstalling or reinstalling subs in a namespace as a pragma goes out of scope. Due to how C<%^H> works, this class is only useful during the compilation phase of a perl module and relies on the internals of how perl handles references in C<%^H>. This module is not a part of autodie's public API. =head2 Methods =head3 new my $stack = autodie::Scope::GuardStack->new; Creates a new C<autodie::Scope::GuardStack>. The stack is initially empty and must be inserted into C<%^H> by the creator. =head3 push_hook $stack->push_hook(sub {}); Add a sub to the stack. The sub will be called once the current compile-time "scope" is left. Multiple hooks can be added per scope =head1 AUTHOR Copyright 2013, Niels Thykier E<lt>niels@thykier.netE<gt> =head1 LICENSE This module is free software. You may distribute it under the same terms as Perl itself. PK ! <$D@W @W 5.34.0/autodie/exception.pmnu �[��� package autodie::exception; use 5.008; use strict; use warnings; use Carp qw(croak); use Scalar::Util qw(blessed); our $VERSION = '2.34'; # VERSION: Generated by DZP::OurPkg:Version # ABSTRACT: Exceptions from autodying functions. our $DEBUG = 0; use overload q{""} => "stringify", # Overload smart-match only if we're using 5.10 or up ($] >= 5.010 ? ('~~' => "matches") : ()), fallback => 1 ; my $PACKAGE = __PACKAGE__; # Useful to have a scalar for hash keys. =head1 NAME autodie::exception - Exceptions from autodying functions. =head1 SYNOPSIS eval { use autodie; open(my $fh, '<', 'some_file.txt'); ... }; if (my $E = $@) { say "Ooops! ",$E->caller," had problems: $@"; } =head1 DESCRIPTION When an L<autodie> enabled function fails, it generates an C<autodie::exception> object. This can be interrogated to determine further information about the error that occurred. This document is broken into two sections; those methods that are most useful to the end-developer, and those methods for anyone wishing to subclass or get very familiar with C<autodie::exception>. =head2 Common Methods These methods are intended to be used in the everyday dealing of exceptions. The following assume that the error has been copied into a separate scalar: if ($E = $@) { ... } This is not required, but is recommended in case any code is called which may reset or alter C<$@>. =cut =head3 args my $array_ref = $E->args; Provides a reference to the arguments passed to the subroutine that died. =cut sub args { return $_[0]->{$PACKAGE}{args}; } =head3 function my $sub = $E->function; The subroutine (including package) that threw the exception. =cut sub function { return $_[0]->{$PACKAGE}{function}; } =head3 file my $file = $E->file; The file in which the error occurred (eg, C<myscript.pl> or C<MyTest.pm>). =cut sub file { return $_[0]->{$PACKAGE}{file}; } =head3 package my $package = $E->package; The package from which the exceptional subroutine was called. =cut sub package { return $_[0]->{$PACKAGE}{package}; } =head3 caller my $caller = $E->caller; The subroutine that I<called> the exceptional code. =cut sub caller { return $_[0]->{$PACKAGE}{caller}; } =head3 line my $line = $E->line; The line in C<< $E->file >> where the exceptional code was called. =cut sub line { return $_[0]->{$PACKAGE}{line}; } =head3 context my $context = $E->context; The context in which the subroutine was called by autodie; usually the same as the context in which you called the autodying subroutine. This can be 'list', 'scalar', or undefined (unknown). It will never be 'void', as C<autodie> always captures the return value in one way or another. For some core functions that always return a scalar value regardless of their context (eg, C<chown>), this may be 'scalar', even if you used a list context. =cut # TODO: The comments above say this can be undefined. Is that actually # the case? (With 'system', perhaps?) sub context { return $_[0]->{$PACKAGE}{context} } =head3 return my $return_value = $E->return; The value(s) returned by the failed subroutine. When the subroutine was called in a list context, this will always be a reference to an array containing the results. When the subroutine was called in a scalar context, this will be the actual scalar returned. =cut sub return { return $_[0]->{$PACKAGE}{return} } =head3 errno my $errno = $E->errno; The value of C<$!> at the time when the exception occurred. B<NOTE>: This method will leave the main C<autodie::exception> class and become part of a role in the future. You should only call C<errno> for exceptions where C<$!> would reasonably have been set on failure. =cut # TODO: Make errno part of a role. It doesn't make sense for # everything. sub errno { return $_[0]->{$PACKAGE}{errno}; } =head3 eval_error my $old_eval_error = $E->eval_error; The contents of C<$@> immediately after autodie triggered an exception. This may be useful when dealing with modules such as L<Text::Balanced> that set (but do not throw) C<$@> on error. =cut sub eval_error { return $_[0]->{$PACKAGE}{eval_error}; } =head3 matches if ( $e->matches('open') ) { ... } if ( 'open' ~~ $e ) { ... } C<matches> is used to determine whether a given exception matches a particular role. An exception is considered to match a string if: =over 4 =item * For a string not starting with a colon, the string exactly matches the package and subroutine that threw the exception. For example, C<MyModule::log>. If the string does not contain a package name, C<CORE::> is assumed. =item * For a string that does start with a colon, if the subroutine throwing the exception I<does> that behaviour. For example, the C<CORE::open> subroutine does C<:file>, C<:io> and C<:all>. See L<autodie/CATEGORIES> for further information. On Perl 5.10 and above, using smart-match (C<~~>) with an C<autodie::exception> object will use C<matches> underneath. This module used to recommend using smart-match with the exception object on the left hand side, but in future Perls that is likely to stop working. The smart-match facility of this class should only be used with the exception object on the right hand side. Having the exception object on the right is both future-proof and portable to older Perls, back to 5.10. Beware that this facility can only be relied upon when it is certain that the exception object actually is an C<autodie::exception> object; it is no more capable than an explicit call to the C<matches> method. =back =cut { my (%cache); sub matches { my ($this, $that) = @_; # TODO - Handle references croak "UNIMPLEMENTED" if ref $that; my $sub = $this->function; if ($DEBUG) { my $sub2 = $this->function; warn "Smart-matching $that against $sub / $sub2\n"; } # Direct subname match. return 1 if $that eq $sub; return 1 if $that !~ /:/ and "CORE::$that" eq $sub; return 0 if $that !~ /^:/; # Cached match / check tags. require Fatal; if (exists $cache{$sub}{$that}) { return $cache{$sub}{$that}; } # This rather awful looking line checks to see if our sub is in the # list of expanded tags, caches it, and returns the result. return $cache{$sub}{$that} = grep { $_ eq $sub } @{ $this->_expand_tag($that) }; } } # This exists primarily so that child classes can override or # augment it if they wish. sub _expand_tag { my ($this, @args) = @_; return Fatal->_expand_tag(@args); } =head2 Advanced methods The following methods, while usable from anywhere, are primarily intended for developers wishing to subclass C<autodie::exception>, write code that registers custom error messages, or otherwise work closely with the C<autodie::exception> model. =cut # The table below records customer formatters. # TODO - Should this be a package var instead? # TODO - Should these be in a completely different file, or # perhaps loaded on demand? Most formatters will never # get used in most programs. my %formatter_of = ( 'CORE::close' => \&_format_close, 'CORE::open' => \&_format_open, 'CORE::dbmopen' => \&_format_dbmopen, 'CORE::flock' => \&_format_flock, 'CORE::read' => \&_format_readwrite, 'CORE::sysread' => \&_format_readwrite, 'CORE::syswrite' => \&_format_readwrite, 'CORE::chmod' => \&_format_chmod, 'CORE::mkdir' => \&_format_mkdir, ); sub _beautify_arguments { shift @_; # Walk through all our arguments, and... # # * Replace undef with the word 'undef' # * Replace globs with the string '$fh' # * Quote all other args. foreach my $arg (@_) { if (not defined($arg)) { $arg = 'undef' } elsif (ref($arg) eq "GLOB") { $arg = '$fh' } else { $arg = qq{'$arg'} } } return @_; } sub _trim_package_name { # Info: The following is done since 05/2008 (which is before v1.10) # TODO: This is probably a good idea for CORE, is it # a good idea for other subs? # Trim package name off dying sub for error messages (my $name = $_[1]) =~ s/.*:://; return $name; } # Returns the parameter formatted as octal number sub _octalize_number { my $number = $_[1]; # Only reformat if it looks like a whole number if ($number =~ /^\d+$/) { $number = sprintf("%#04lo", $number); } return $number; } # TODO: Our tests only check LOCK_EX | LOCK_NB is properly # formatted. Try other combinations and ensure they work # correctly. sub _format_flock { my ($this) = @_; require Fcntl; my $filehandle = $this->args->[0]; my $raw_mode = $this->args->[1]; my $mode_type; my $lock_unlock; if ($raw_mode & Fcntl::LOCK_EX() ) { $lock_unlock = "lock"; $mode_type = "for exclusive access"; } elsif ($raw_mode & Fcntl::LOCK_SH() ) { $lock_unlock = "lock"; $mode_type = "for shared access"; } elsif ($raw_mode & Fcntl::LOCK_UN() ) { $lock_unlock = "unlock"; $mode_type = ""; } else { # I've got no idea what they're trying to do. $lock_unlock = "lock"; $mode_type = "with mode $raw_mode"; } my $cooked_filehandle; if ($filehandle and not ref $filehandle) { # A package filehandle with a name! $cooked_filehandle = " $filehandle"; } else { # Otherwise we have a scalar filehandle. $cooked_filehandle = ''; } local $! = $this->errno; return "Can't $lock_unlock filehandle$cooked_filehandle $mode_type: $!"; } # Default formatter for CORE::chmod sub _format_chmod { my ($this) = @_; my @args = @{$this->args}; my $mode = shift @args; local $! = $this->errno; $mode = $this->_octalize_number($mode); @args = $this->_beautify_arguments(@args); return "Can't chmod($mode, ". join(q{, }, @args) ."): $!"; } # Default formatter for CORE::mkdir sub _format_mkdir { my ($this) = @_; my @args = @{$this->args}; # If no mask is specified use default formatter if (@args < 2) { return $this->format_default; } my $file = $args[0]; my $mask = $args[1]; local $! = $this->errno; $mask = $this->_octalize_number($mask); return "Can't mkdir('$file', $mask): '$!'"; } # Default formatter for CORE::dbmopen sub _format_dbmopen { my ($this) = @_; my @args = @{$this->args}; # TODO: Presently, $args flattens out the (usually empty) hash # which is passed as the first argument to dbmopen. This is # a bug in our args handling code (taking a reference to it would # be better), but for the moment we'll just examine the end of # our arguments list for message formatting. my $mode = $args[-1]; my $file = $args[-2]; $mode = $this->_octalize_number($mode); local $! = $this->errno; return "Can't dbmopen(%hash, '$file', $mode): '$!'"; } # Default formatter for CORE::close sub _format_close { my ($this) = @_; my $close_arg = $this->args->[0]; local $! = $this->errno; # If we've got an old-style filehandle, mention it. if ($close_arg and not ref $close_arg) { return "Can't close filehandle '$close_arg': '$!'"; } # TODO - This will probably produce an ugly error. Test and fix. return "Can't close($close_arg) filehandle: '$!'"; } # Default formatter for CORE::read, CORE::sysread and CORE::syswrite # # Similar to default formatter with the buffer filtered out as it # may contain binary data. sub _format_readwrite { my ($this) = @_; my $call = $this->_trim_package_name($this->function); local $! = $this->errno; # These subs receive the following arguments (in order): # # * FILEHANDLE # * SCALAR (buffer, we do not want to write this) # * LENGTH (optional for syswrite) # * OFFSET (optional for all) my (@args) = @{$this->args}; my $arg_name = $args[1]; if (defined($arg_name)) { if (ref($arg_name)) { my $name = blessed($arg_name) || ref($arg_name); $arg_name = "<${name}>"; } else { $arg_name = '<BUFFER>'; } } else { $arg_name = '<UNDEF>'; } $args[1] = $arg_name; return "Can't $call(" . join(q{, }, @args) . "): $!"; } # Default formatter for CORE::open use constant _FORMAT_OPEN => "Can't open '%s' for %s: '%s'"; sub _format_open_with_mode { my ($this, $mode, $file, $error) = @_; my $wordy_mode; if ($mode eq '<') { $wordy_mode = 'reading'; } elsif ($mode eq '>') { $wordy_mode = 'writing'; } elsif ($mode eq '>>') { $wordy_mode = 'appending'; } $file = '<undef>' if not defined $file; return sprintf _FORMAT_OPEN, $file, $wordy_mode, $error if $wordy_mode; Carp::confess("Internal autodie::exception error: Don't know how to format mode '$mode'."); } sub _format_open { my ($this) = @_; my @open_args = @{$this->args}; # Use the default formatter for single-arg and many-arg open if (@open_args <= 1 or @open_args >= 4) { return $this->format_default; } # For two arg open, we have to extract the mode if (@open_args == 2) { my ($fh, $file) = @open_args; if (ref($fh) eq "GLOB") { $fh = '$fh'; } my ($mode) = $file =~ m{ ^\s* # Spaces before mode ( (?> # Non-backtracking subexp. < # Reading |>>? # Writing/appending ) ) [^&] # Not an ampersand (which means a dup) }x; if (not $mode) { # Maybe it's a 2-arg open without any mode at all? # Detect the most simple case for this, where our # file consists only of word characters. if ( $file =~ m{^\s*\w+\s*$} ) { $mode = '<' } else { # Otherwise, we've got no idea what's going on. # Use the default. return $this->format_default; } } # Localising $! means perl makes it a pretty error for us. local $! = $this->errno; return $this->_format_open_with_mode($mode, $file, $!); } # Here we must be using three arg open. my $file = $open_args[2]; local $! = $this->errno; my $mode = $open_args[1]; local $@; my $msg = eval { $this->_format_open_with_mode($mode, $file, $!); }; return $msg if $msg; # Default message (for pipes and odd things) return "Can't open '$file' with mode '$open_args[1]': '$!'"; } =head3 register autodie::exception->register( 'CORE::open' => \&mysub ); The C<register> method allows for the registration of a message handler for a given subroutine. The full subroutine name including the package should be used. Registered message handlers will receive the C<autodie::exception> object as the first parameter. =cut sub register { my ($class, $symbol, $handler) = @_; croak "Incorrect call to autodie::register" if @_ != 3; $formatter_of{$symbol} = $handler; } =head3 add_file_and_line say "Problem occurred",$@->add_file_and_line; Returns the string C< at %s line %d>, where C<%s> is replaced with the filename, and C<%d> is replaced with the line number. Primarily intended for use by format handlers. =cut # Simply produces the file and line number; intended to be added # to the end of error messages. sub add_file_and_line { my ($this) = @_; return sprintf(" at %s line %d\n", $this->file, $this->line); } =head3 stringify say "The error was: ",$@->stringify; Formats the error as a human readable string. Usually there's no reason to call this directly, as it is used automatically if an C<autodie::exception> object is ever used as a string. Child classes can override this method to change how they're stringified. =cut sub stringify { my ($this) = @_; my $call = $this->function; my $msg; if ($DEBUG) { my $dying_pkg = $this->package; my $sub = $this->function; my $caller = $this->caller; warn "Stringifing exception for $dying_pkg :: $sub / $caller / $call\n"; } # TODO - This isn't using inheritance. Should it? if ( my $sub = $formatter_of{$call} ) { $msg = $sub->($this) . $this->add_file_and_line; } else { $msg = $this->format_default . $this->add_file_and_line; } $msg .= $this->{$PACKAGE}{_stack_trace} if $Carp::Verbose; return $msg; } =head3 format_default my $error_string = $E->format_default; This produces the default error string for the given exception, I<without using any registered message handlers>. It is primarily intended to be called from a message handler when they have been passed an exception they don't want to format. Child classes can override this method to change how default messages are formatted. =cut # TODO: This produces ugly errors. Is there any way we can # dig around to find the actual variable names? I know perl 5.10 # does some dark and terrible magicks to find them for undef warnings. sub format_default { my ($this) = @_; my $call = $this->_trim_package_name($this->function); local $! = $this->errno; my @args = @{ $this->args() }; @args = $this->_beautify_arguments(@args); # Format our beautiful error. return "Can't $call(". join(q{, }, @args) . "): $!" ; # TODO - Handle user-defined errors from hash. # TODO - Handle default error messages. } =head3 new my $error = autodie::exception->new( args => \@_, function => "CORE::open", errno => $!, context => 'scalar', return => undef, ); Creates a new C<autodie::exception> object. Normally called directly from an autodying function. The C<function> argument is required, its the function we were trying to call that generated the exception. The C<args> parameter is optional. The C<errno> value is optional. In versions of C<autodie::exception> 1.99 and earlier the code would try to automatically use the current value of C<$!>, but this was unreliable and is no longer supported. Atrributes such as package, file, and caller are determined automatically, and cannot be specified. =cut sub new { my ($class, @args) = @_; my $this = {}; bless($this,$class); # I'd love to use EVERY here, but it causes our code to die # because it wants to stringify our objects before they're # initialised, causing everything to explode. $this->_init(@args); return $this; } sub _init { my ($this, %args) = @_; # Capturing errno here is not necessarily reliable. my $original_errno = $!; our $init_called = 1; my $class = ref $this; # We're going to walk up our call stack, looking for the # first thing that doesn't look like our exception # code, autodie/Fatal, or some whacky eval. my ($package, $file, $line, $sub); my $depth = 0; while (1) { $depth++; ($package, $file, $line, $sub) = CORE::caller($depth); # Skip up the call stack until we find something outside # of the Fatal/autodie/eval space. next if $package->isa('Fatal'); next if $package->isa($class); next if $package->isa(__PACKAGE__); # Anything with the 'autodie::skip' role wants us to skip it. # https://github.com/pjf/autodie/issues/15 next if ($package->can('DOES') and $package->DOES('autodie::skip')); next if $file =~ /^\(eval\s\d+\)$/; last; } # We now have everything correct, *except* for our subroutine # name. If it's __ANON__ or (eval), then we need to keep on # digging deeper into our stack to find the real name. However we # don't update our other information, since that will be correct # for our current exception. my $first_guess_subroutine = $sub; while (defined $sub and $sub =~ /^\(eval\)$|::__ANON__$/) { $depth++; $sub = (CORE::caller($depth))[3]; } # If we end up falling out the bottom of our stack, then our # __ANON__ guess is the best we can get. This includes situations # where we were called from the top level of a program. if (not defined $sub) { $sub = $first_guess_subroutine; } $this->{$PACKAGE}{package} = $package; $this->{$PACKAGE}{file} = $file; $this->{$PACKAGE}{line} = $line; $this->{$PACKAGE}{caller} = $sub; # Tranks to %Carp::CarpInternal all Fatal, autodie and # autodie::exception stack frames are filtered already, but our # nameless wrapper is still present, so strip that. my $trace = Carp::longmess(); $trace =~ s/^\s*at \(eval[^\n]+\n//; # And if we see an __ANON__, then we'll replace that with the actual # name of our autodying function. my $short_func = $args{function}; $short_func =~ s/^CORE:://; $trace =~ s/(\s*[\w:]+)__ANON__/$1$short_func/; # And now we just fill in all our attributes. $this->{$PACKAGE}{_stack_trace} = $trace; $this->{$PACKAGE}{errno} = $args{errno} || 0; $this->{$PACKAGE}{context} = $args{context}; $this->{$PACKAGE}{return} = $args{return}; $this->{$PACKAGE}{eval_error} = $args{eval_error}; $this->{$PACKAGE}{args} = $args{args} || []; $this->{$PACKAGE}{function}= $args{function} or croak("$class->new() called without function arg"); return $this; } 1; __END__ =head1 SEE ALSO L<autodie>, L<autodie::exception::system> =head1 LICENSE Copyright (C)2008 Paul Fenwick This is free software. You may modify and/or redistribute this code under the same terms as Perl 5.10 itself, or, at your option, any later version of Perl 5. =head1 AUTHOR Paul Fenwick E<lt>pjf@perltraining.com.auE<gt> PK ! a\� � 5.34.0/autodie/skip.pmnu �[��� package autodie::skip; use strict; use warnings; our $VERSION = '2.34'; # VERSION # This package exists purely so people can inherit from it, # which isn't at all how roles are supposed to work, but it's # how people will use them anyway. if ($] < 5.010) { # Older Perls don't have a native ->DOES. Let's provide a cheap # imitation here. *DOES = sub { return shift->isa(@_); }; } 1; __END__ =head1 NAME autodie::skip - Skip a package when throwing autodie exceptions =head1 SYNPOSIS use parent qw(autodie::skip); =head1 DESCRIPTION This dummy class exists to signal that the class inheriting it should be skipped when reporting exceptions from autodie. This is useful for utility classes like L<Path::Tiny> that wish to report the location of where they were called on failure. If your class has a better way of doing roles, then you should not load this class and instead simply say that your class I<DOES> C<autodie::skip> instead. =head1 AUTHOR Copyright 2013, Paul Fenwick <pjf@cpan.org> =head1 LICENSE This module is free software. You may distribute it under the same terms as Perl itself. =head1 SEE ALSO L<autodie>, L<autodie::exception> =for Pod::Coverage DOES =cut PK ! 'aq�AB AB 5.34.0/autodie/hints.pmnu �[��� package autodie::hints; use strict; use warnings; use constant PERL58 => ( $] < 5.009 ); our $VERSION = '2.34'; # VERSION: Generated by DZP::OurPkg:Version # ABSTRACT: Provide hints about user subroutines to autodie =head1 NAME autodie::hints - Provide hints about user subroutines to autodie =head1 SYNOPSIS package Your::Module; our %DOES = ( 'autodie::hints::provider' => 1 ); sub AUTODIE_HINTS { return { foo => { scalar => HINTS, list => SOME_HINTS }, bar => { scalar => HINTS, list => MORE_HINTS }, } } # Later, in your main program... use Your::Module qw(foo bar); use autodie qw(:default foo bar); foo(); # succeeds or dies based on scalar hints # Alternatively, hints can be set on subroutines we've # imported. use autodie::hints; use Some::Module qw(think_positive); BEGIN { autodie::hints->set_hints_for( \&think_positive, { fail => sub { $_[0] <= 0 } } ) } use autodie qw(think_positive); think_positive(...); # Returns positive or dies. =head1 DESCRIPTION =head2 Introduction The L<autodie> pragma is very smart when it comes to working with Perl's built-in functions. The behaviour for these functions are fixed, and C<autodie> knows exactly how they try to signal failure. But what about user-defined subroutines from modules? If you use C<autodie> on a user-defined subroutine then it assumes the following behaviour to demonstrate failure: =over =item * A false value, in scalar context =item * An empty list, in list context =item * A list containing a single undef, in list context =back All other return values (including the list of the single zero, and the list containing a single empty string) are considered successful. However, real-world code isn't always that easy. Perhaps the code you're working with returns a string containing the word "FAIL" upon failure, or a two element list containing C<(undef, "human error message")>. To make autodie work with these sorts of subroutines, we have the I<hinting interface>. The hinting interface allows I<hints> to be provided to C<autodie> on how it should detect failure from user-defined subroutines. While these I<can> be provided by the end-user of C<autodie>, they are ideally written into the module itself, or into a helper module or sub-class of C<autodie> itself. =head2 What are hints? A I<hint> is a subroutine or value that is checked against the return value of an autodying subroutine. If the match returns true, C<autodie> considers the subroutine to have failed. If the hint provided is a subroutine, then C<autodie> will pass the complete return value to that subroutine. If the hint is any other value, then C<autodie> will smart-match against the value provided. In Perl 5.8.x there is no smart-match operator, and as such only subroutine hints are supported in these versions. Hints can be provided for both scalar and list contexts. Note that an autodying subroutine will never see a void context, as C<autodie> always needs to capture the return value for examination. Autodying subroutines called in void context act as if they're called in a scalar context, but their return value is discarded after it has been checked. =head2 Example hints Hints may consist of subroutine references, objects overloading smart-match, regular expressions, and depending on Perl version possibly other things. You can specify different hints for how failure should be identified in scalar and list contexts. These examples apply for use in the C<AUTODIE_HINTS> subroutine and when calling C<< autodie::hints->set_hints_for() >>. The most common context-specific hints are: # Scalar failures always return undef: { scalar => sub { !defined($_[0]) } } # Scalar failures return any false value [default expectation]: { scalar => sub { ! $_[0] } } # Scalar failures always return zero explicitly: { scalar => sub { defined($_[0]) && $_[0] eq '0' } } # List failures always return an empty list: { list => sub { !@_ } } # List failures return () or (undef) [default expectation]: { list => sub { ! @_ || @_ == 1 && !defined $_[0] } } # List failures return () or a single false value: { list => sub { ! @_ || @_ == 1 && !$_[0] } } # List failures return (undef, "some string") { list => sub { @_ == 2 && !defined $_[0] } } # Unsuccessful foo() returns 'FAIL' or '_FAIL' in scalar context, # returns (-1) in list context... autodie::hints->set_hints_for( \&foo, { scalar => qr/^ _? FAIL $/xms, list => sub { @_ == 1 && $_[0] eq -1 }, } ); # Unsuccessful foo() returns 0 in all contexts... autodie::hints->set_hints_for( \&foo, { scalar => sub { defined($_[0]) && $_[0] == 0 }, list => sub { @_ == 1 && defined($_[0]) && $_[0] == 0 }, } ); This "in all contexts" construction is very common, and can be abbreviated, using the 'fail' key. This sets both the C<scalar> and C<list> hints to the same value: # Unsuccessful foo() returns 0 in all contexts... autodie::hints->set_hints_for( \&foo, { fail => sub { @_ == 1 and defined $_[0] and $_[0] == 0 } } ); # Unsuccessful think_positive() returns negative number on failure... autodie::hints->set_hints_for( \&think_positive, { fail => sub { $_[0] < 0 } } ); # Unsuccessful my_system() returns non-zero on failure... autodie::hints->set_hints_for( \&my_system, { fail => sub { $_[0] != 0 } } ); =head1 Manually setting hints from within your program If you are using a module which returns something special on failure, then you can manually create hints for each of the desired subroutines. Once the hints are specified, they are available for all files and modules loaded thereafter, thus you can move this work into a module and it will still work. use Some::Module qw(foo bar); use autodie::hints; autodie::hints->set_hints_for( \&foo, { scalar => SCALAR_HINT, list => LIST_HINT, } ); autodie::hints->set_hints_for( \&bar, { fail => SOME_HINT, } ); It is possible to pass either a subroutine reference (recommended) or a fully qualified subroutine name as the first argument. This means you can set hints on modules that I<might> get loaded: use autodie::hints; autodie::hints->set_hints_for( 'Some::Module:bar', { fail => SCALAR_HINT, } ); This technique is most useful when you have a project that uses a lot of third-party modules. You can define all your possible hints in one-place. This can even be in a sub-class of autodie. For example: package my::autodie; use parent qw(autodie); use autodie::hints; autodie::hints->set_hints_for(...); 1; You can now C<use my::autodie>, which will work just like the standard C<autodie>, but is now aware of any hints that you've set. =head1 Adding hints to your module C<autodie> provides a passive interface to allow you to declare hints for your module. These hints will be found and used by C<autodie> if it is loaded, but otherwise have no effect (or dependencies) without autodie. To set these, your module needs to declare that it I<does> the C<autodie::hints::provider> role. This can be done by writing your own C<DOES> method, using a system such as C<Class::DOES> to handle the heavy-lifting for you, or declaring a C<%DOES> package variable with a C<autodie::hints::provider> key and a corresponding true value. Note that checking for a C<%DOES> hash is an C<autodie>-only short-cut. Other modules do not use this mechanism for checking roles, although you can use the C<Class::DOES> module from the CPAN to allow it. In addition, you must define a C<AUTODIE_HINTS> subroutine that returns a hash-reference containing the hints for your subroutines: package Your::Module; # We can use the Class::DOES from the CPAN to declare adherence # to a role. use Class::DOES 'autodie::hints::provider' => 1; # Alternatively, we can declare the role in %DOES. Note that # this is an autodie specific optimisation, although Class::DOES # can be used to promote this to a true role declaration. our %DOES = ( 'autodie::hints::provider' => 1 ); # Finally, we must define the hints themselves. sub AUTODIE_HINTS { return { foo => { scalar => HINTS, list => SOME_HINTS }, bar => { scalar => HINTS, list => MORE_HINTS }, baz => { fail => HINTS }, } } This allows your code to set hints without relying on C<autodie> and C<autodie::hints> being loaded, or even installed. In this way your code can do the right thing when C<autodie> is installed, but does not need to depend upon it to function. =head1 Insisting on hints When a user-defined subroutine is wrapped by C<autodie>, it will use hints if they are available, and otherwise reverts to the I<default behaviour> described in the introduction of this document. This can be problematic if we expect a hint to exist, but (for whatever reason) it has not been loaded. We can ask autodie to I<insist> that a hint be used by prefixing an exclamation mark to the start of the subroutine name. A lone exclamation mark indicates that I<all> subroutines after it must have hints declared. # foo() and bar() must have their hints defined use autodie qw( !foo !bar baz ); # Everything must have hints (recommended). use autodie qw( ! foo bar baz ); # bar() and baz() must have their hints defined use autodie qw( foo ! bar baz ); # Enable autodie for all of Perl's supported built-ins, # as well as for foo(), bar() and baz(). Everything must # have hints. use autodie qw( ! :all foo bar baz ); If hints are not available for the specified subroutines, this will cause a compile-time error. Insisting on hints for Perl's built-in functions (eg, C<open> and C<close>) is always successful. Insisting on hints is I<strongly> recommended. =cut # TODO: implement regular expression hints use constant UNDEF_ONLY => sub { not defined $_[0] }; use constant EMPTY_OR_UNDEF => sub { ! @_ or @_==1 && !defined $_[0] }; use constant EMPTY_ONLY => sub { @_ == 0 }; use constant EMPTY_OR_FALSE => sub { ! @_ or @_==1 && !$_[0] }; use constant SINGLE_TRUE => sub { @_ == 1 and not $_[0] }; use constant DEFAULT_HINTS => { scalar => UNDEF_ONLY, list => EMPTY_OR_UNDEF, }; use constant HINTS_PROVIDER => 'autodie::hints::provider'; our $DEBUG = 0; # Only ( undef ) is a strange but possible situation for very # badly written code. It's not supported yet. my %Hints = ( 'File::Copy::copy' => { scalar => SINGLE_TRUE, list => SINGLE_TRUE }, 'File::Copy::move' => { scalar => SINGLE_TRUE, list => SINGLE_TRUE }, 'File::Copy::cp' => { scalar => SINGLE_TRUE, list => SINGLE_TRUE }, 'File::Copy::mv' => { scalar => SINGLE_TRUE, list => SINGLE_TRUE }, ); # Start by using Sub::Identify if it exists on this system. eval { require Sub::Identify; Sub::Identify->import('get_code_info'); }; # If it doesn't exist, we'll define our own. This code is directly # taken from Rafael Garcia's Sub::Identify 0.04, used under the same # license as Perl itself. if ($@) { require B; no warnings 'once'; *get_code_info = sub ($) { my ($coderef) = @_; ref $coderef or return; my $cv = B::svref_2object($coderef); $cv->isa('B::CV') or return; # bail out if GV is undefined $cv->GV->isa('B::SPECIAL') and return; return ($cv->GV->STASH->NAME, $cv->GV->NAME); }; } sub sub_fullname { return join( '::', get_code_info( $_[1] ) ); } my %Hints_loaded = (); sub load_hints { my ($class, $sub) = @_; my ($package) = ( $sub =~ /(.*)::/ ); if (not defined $package) { require Carp; Carp::croak( "Internal error in autodie::hints::load_hints - no package found. "); } # Do nothing if we've already tried to load hints for # this package. return if $Hints_loaded{$package}++; my $hints_available = 0; { no strict 'refs'; ## no critic if ($package->can('DOES') and $package->DOES(HINTS_PROVIDER) ) { $hints_available = 1; } elsif ( PERL58 and $package->isa(HINTS_PROVIDER) ) { $hints_available = 1; } elsif ( ${"${package}::DOES"}{HINTS_PROVIDER.""} ) { $hints_available = 1; } } return if not $hints_available; my %package_hints = %{ $package->AUTODIE_HINTS }; foreach my $sub (keys %package_hints) { my $hint = $package_hints{$sub}; # Ensure we have a package name. $sub = "${package}::$sub" if $sub !~ /::/; # TODO - Currently we don't check for conflicts, should we? $Hints{$sub} = $hint; $class->normalise_hints(\%Hints, $sub); } return; } sub normalise_hints { my ($class, $hints, $sub) = @_; if ( exists $hints->{$sub}->{fail} ) { if ( exists $hints->{$sub}->{scalar} or exists $hints->{$sub}->{list} ) { # TODO: Turn into a proper diagnostic. require Carp; local $Carp::CarpLevel = 1; Carp::croak("fail hints cannot be provided with either scalar or list hints for $sub"); } # Set our scalar and list hints. $hints->{$sub}->{scalar} = $hints->{$sub}->{list} = delete $hints->{$sub}->{fail}; return; } # Check to make sure all our hints exist. foreach my $hint (qw(scalar list)) { if ( not exists $hints->{$sub}->{$hint} ) { # TODO: Turn into a proper diagnostic. require Carp; local $Carp::CarpLevel = 1; Carp::croak("$hint hint missing for $sub"); } } return; } sub get_hints_for { my ($class, $sub) = @_; my $subname = $class->sub_fullname( $sub ); # If we have hints loaded for a sub, then return them. if ( exists $Hints{ $subname } ) { return $Hints{ $subname }; } # If not, we try to load them... $class->load_hints( $subname ); # ...and try again! if ( exists $Hints{ $subname } ) { return $Hints{ $subname }; } # It's the caller's responsibility to use defaults if desired. # This allows on autodie to insist on hints if needed. return; } sub set_hints_for { my ($class, $sub, $hints) = @_; if (ref $sub) { $sub = $class->sub_fullname( $sub ); require Carp; $sub or Carp::croak("Attempts to set_hints_for unidentifiable subroutine"); } if ($DEBUG) { warn "autodie::hints: Setting $sub to hints: $hints\n"; } $Hints{ $sub } = $hints; $class->normalise_hints(\%Hints, $sub); return; } 1; __END__ =head1 Diagnostics =over 4 =item Attempts to set_hints_for unidentifiable subroutine You've called C<< autodie::hints->set_hints_for() >> using a subroutine reference, but that reference could not be resolved back to a subroutine name. It may be an anonymous subroutine (which can't be made autodying), or may lack a name for other reasons. If you receive this error with a subroutine that has a real name, then you may have found a bug in autodie. See L<autodie/BUGS> for how to report this. =item fail hints cannot be provided with either scalar or list hints for %s When defining hints, you can either supply both C<list> and C<scalar> keywords, I<or> you can provide a single C<fail> keyword. You can't mix and match them. =item %s hint missing for %s You've provided either a C<scalar> hint without supplying a C<list> hint, or vice-versa. You I<must> supply both C<scalar> and C<list> hints, I<or> a single C<fail> hint. =back =head1 ACKNOWLEDGEMENTS =over =item * Dr Damian Conway for suggesting the hinting interface and providing the example usage. =item * Jacinta Richardson for translating much of my ideas into this documentation. =back =head1 AUTHOR Copyright 2009, Paul Fenwick E<lt>pjf@perltraining.com.auE<gt> =head1 LICENSE This module is free software. You may distribute it under the same terms as Perl itself. =head1 SEE ALSO L<autodie>, L<Class::DOES> =for Pod::Coverage get_hints_for load_hints normalise_hints sub_fullname get_code_info =cut PK ! �ص� 5.34.0/Internals.podnu �[��� =head1 NAME Internals - Reserved special namespace for internals related functions =head1 SYNOPSIS $is_ro= Internals::SvREADONLY($x) $refcnt= Internals::SvREFCNT($x) hv_clear_placeholders(%hash); =head1 DESCRIPTION The Internals namespace is used by the core Perl development team to expose certain low level internals routines for testing and other purposes. In theory these routines were not and are not intended to be used outside of the perl core, and are subject to change and removal at any time. In practice people have come to depend on these over the years, despite being historically undocumented, so we will provide some level of forward compatibility for some time. Nevertheless you can assume that any routine documented here is experimental or deprecated and you should find alternatives to their use. =head2 FUNCTIONS =over 4 =item SvREFCNT(THING [, $value]) Historically Perl has been a refcounted language. This means that each variable tracks how many things reference it, and when the variable is no longer referenced it will automatically free itself. In theory Perl code should not have to care about this, and in a future version Perl might change to some other strategy, although in practice this is unlikely. This function allows one to violate the abstraction of variables and get or set the refcount of a variable, and in generally is really only useful in code that is testing refcount behavior. *NOTE* You are strongly discouraged from using this function in non-test code and especially discouraged from using the set form of this function. The results of doing so may result in segmentation faults or other undefined behavior. =item SvREADONLY(THING, [, $value]) Set or get whether a variable is readonly or not. Exactly what the readonly flag means depend on the type of the variable affected and the version of perl used. You are strongly discouraged from using this function directly. It is used by various core modules, like C<Hash::Util>, and the C<constant> pragma to implement higher-level behavior which should be used instead. See the core implementation for the exact meaning of the readonly flag for each internal variable type. =item hv_clear_placeholders(%hash) Clear any placeholders from a locked hash. Should not be used directly. You should use the wrapper functions provided by Hash::Util instead. As of 5.25 also available as C< Hash::Util::_clear_placeholders(%hash) > =back =head1 AUTHOR Perl core development team. =head1 SEE ALSO L<perlguts> L<Hash::Util> L<constant> universal.c =cut PK ! ����� � 5.34.0/Test2.pmnu �[��� package Test2; use strict; use warnings; our $VERSION = '1.302183'; 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2 - Framework for writing test tools that all work together. =head1 DESCRIPTION Test2 is a new testing framework produced by forking L<Test::Builder>, completely refactoring it, adding many new features and capabilities. =head2 WHAT IS NEW? =over 4 =item Easier to test new testing tools. From the beginning Test2 was built with introspection capabilities. With Test::Builder it was difficult at best to capture test tool output for verification. Test2 Makes it easy with C<Test2::API::intercept()>. =item Better diagnostics capabilities. Test2 uses an L<Test2::API::Context> object to track filename, line number, and tool details. This object greatly simplifies tracking for where errors should be reported. =item Event driven. Test2 based tools produce events which get passed through a processing system before being output by a formatter. This event system allows for rich plugin and extension support. =item More complete API. Test::Builder only provided a handful of methods for generating lines of TAP. Test2 took inventory of everything people were doing with Test::Builder that required hacking it up. Test2 made public API functions for nearly all the desired functionality people didn't previously have. =item Support for output other than TAP. Test::Builder assumed everything would end up as TAP. Test2 makes no such assumption. Test2 provides ways for you to specify alternative and custom formatters. =item Subtest implementation is more sane. The Test::Builder implementation of subtests was certifiably insane. Test2 uses a stacked event hub system that greatly improves how subtests are implemented. =item Support for threading/forking. Test2 support for forking and threading can be turned on using L<Test2::IPC>. Once turned on threading and forking operate sanely and work as one would expect. =back =head1 GETTING STARTED If you are interested in writing tests using new tools then you should look at L<Test2::Suite>. L<Test2::Suite> is a separate cpan distribution that contains many tools implemented on Test2. If you are interested in writing new tools you should take a look at L<Test2::API> first. =head1 NAMESPACE LAYOUT This describes the namespace layout for the Test2 ecosystem. Not all the namespaces listed here are part of the Test2 distribution, some are implemented in L<Test2::Suite>. =head2 Test2::Tools:: This namespace is for sets of tools. Modules in this namespace should export tools like C<ok()> and C<is()>. Most things written for Test2 should go here. Modules in this namespace B<MUST NOT> export subs from other tools. See the L</Test2::Bundle::> namespace if you want to do that. =head2 Test2::Plugin:: This namespace is for plugins. Plugins are modules that change or enhance the behavior of Test2. An example of a plugin is a module that sets the encoding to utf8 globally. Another example is a module that causes a bail-out event after the first test failure. =head2 Test2::Bundle:: This namespace is for bundles of tools and plugins. Loading one of these may load multiple tools and plugins. Modules in this namespace should not implement tools directly. In general modules in this namespace should load tools and plugins, then re-export things into the consumers namespace. =head2 Test2::Require:: This namespace is for modules that cause a test to be skipped when conditions do not allow it to run. Examples would be modules that skip the test on older perls, or when non-essential modules have not been installed. =head2 Test2::Formatter:: Formatters live under this namespace. L<Test2::Formatter::TAP> is the only formatter currently. It is acceptable for third party distributions to create new formatters under this namespace. =head2 Test2::Event:: Events live under this namespace. It is considered acceptable for third party distributions to add new event types in this namespace. =head2 Test2::Hub:: Hub subclasses (and some hub utility objects) live under this namespace. It is perfectly reasonable for third party distributions to add new hub subclasses in this namespace. =head2 Test2::IPC:: The IPC subsystem lives in this namespace. There are not many good reasons to add anything to this namespace, with exception of IPC drivers. =head3 Test2::IPC::Driver:: IPC drivers live in this namespace. It is fine to create new IPC drivers and to put them in this namespace. =head2 Test2::Util:: This namespace is for general utilities used by testing tools. Please be considerate when adding new modules to this namespace. =head2 Test2::API:: This is for Test2 API and related packages. =head2 Test2:: The Test2:: namespace is intended for extensions and frameworks. Tools, Plugins, etc should not go directly into this namespace. However extensions that are used to build tools and plugins may go here. In short: If the module exports anything that should be run directly by a test script it should probably NOT go directly into C<Test2::XXX>. =head1 SEE ALSO L<Test2::API> - Primary API functions. L<Test2::API::Context> - Detailed documentation of the context object. L<Test2::IPC> - The IPC system used for threading/fork support. L<Test2::Formatter> - Formatters such as TAP live here. L<Test2::Event> - Events live in this namespace. L<Test2::Hub> - All events eventually funnel through a hub. Custom hubs are how C<intercept()> and C<run_subtest()> are implemented. =head1 CONTACTING US Many Test2 developers and users lurk on L<irc://irc.perl.org/#perl-qa> and L<irc://irc.perl.org/#toolchain>. We also have a slack team that can be joined by anyone with an C<@cpan.org> email address L<https://perl-test2.slack.com/> If you do not have an C<@cpan.org> email you can ask for a slack invite by emailing Chad Granum E<lt>exodist@cpan.orgE<gt>. =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! � O�i8 i8 5.34.0/PerlIO.pmnu �[��� package PerlIO; our $VERSION = '1.11'; # Map layer name to package that defines it our %alias; sub import { my $class = shift; while (@_) { my $layer = shift; if (exists $alias{$layer}) { $layer = $alias{$layer} } else { $layer = "${class}::$layer"; } eval { require $layer =~ s{::}{/}gr . '.pm' }; warn $@ if $@; } } sub F_UTF8 () { 0x8000 } 1; __END__ =head1 NAME PerlIO - On demand loader for PerlIO layers and root of PerlIO::* name space =head1 SYNOPSIS # support platform-native and CRLF text files open(my $fh, "<:crlf", "my.txt") or die "open failed: $!"; # append UTF-8 encoded text open(my $fh, ">>:encoding(UTF-8)", "some.log") or die "open failed: $!"; # portably open a binary file for reading open(my $fh, "<", "his.jpg") or die "open failed: $!"; binmode($fh) or die "binmode failed: $!"; Shell: PERLIO=:perlio perl .... =head1 DESCRIPTION When an undefined layer 'foo' is encountered in an C<open> or C<binmode> layer specification then C code performs the equivalent of: use PerlIO 'foo'; The Perl code in PerlIO.pm then attempts to locate a layer by doing require PerlIO::foo; Otherwise the C<PerlIO> package is a place holder for additional PerlIO related functions. =head2 Layers Generally speaking, PerlIO layers (previously sometimes referred to as "disciplines") are an ordered stack applied to a filehandle (specified as a space- or colon-separated list, conventionally written with a leading colon). Each layer performs some operation on any input or output, except when bypassed such as with C<sysread> or C<syswrite>. Read operations go through the stack in the order they are set (left to right), and write operations in the reverse order. There are also layers which actually just set flags on lower layers, or layers that modify the current stack but don't persist on the stack themselves; these are referred to as pseudo-layers. When opening a handle, it will be opened with any layers specified explicitly in the open() call (or the platform defaults, if specified as a colon with no following layers). If layers are not explicitly specified, the handle will be opened with the layers specified by the L<${^OPEN}|perlvar/"${^OPEN}"> variable (usually set by using the L<open> pragma for a lexical scope, or the C<-C> command-line switch or C<PERL_UNICODE> environment variable for the main program scope). If layers are not specified in the open() call or C<${^OPEN}> variable, the handle will be opened with the default layer stack configured for that architecture; see L</"Defaults and how to override them">. Some layers will automatically insert required lower level layers if not present; for example C<:perlio> will insert C<:unix> below itself for low level IO, and C<:encoding> will insert the platform defaults for buffered IO. The C<binmode> function can be called on an opened handle to push additional layers onto the stack, which may also modify the existing layers. C<binmode> called with no layers will remove or unset any existing layers which transform the byte stream, making the handle suitable for binary data. The following layers are currently defined: =over 4 =item :unix Lowest level layer which provides basic PerlIO operations in terms of UNIX/POSIX numeric file descriptor calls (open(), read(), write(), lseek(), close()). It is used even on non-Unix architectures, and most other layers operate on top of it. =item :stdio Layer which calls C<fread>, C<fwrite> and C<fseek>/C<ftell> etc. Note that as this is "real" stdio it will ignore any layers beneath it and go straight to the operating system via the C library as usual. This layer implements both low level IO and buffering, but is rarely used on modern architectures. =item :perlio A from scratch implementation of buffering for PerlIO. Provides fast access to the buffer for C<sv_gets> which implements Perl's readline/E<lt>E<gt> and in general attempts to minimize data copying. C<:perlio> will insert a C<:unix> layer below itself to do low level IO. =item :crlf A layer that implements DOS/Windows like CRLF line endings. On read converts pairs of CR,LF to a single "\n" newline character. On write converts each "\n" to a CR,LF pair. Note that this layer will silently refuse to be pushed on top of itself. It currently does I<not> mimic MS-DOS as far as treating of Control-Z as being an end-of-file marker. On DOS/Windows like architectures where this layer is part of the defaults, it also acts like the C<:perlio> layer, and removing the CRLF translation (such as with C<:raw>) will only unset the CRLF translation flag. Since Perl 5.14, you can also apply another C<:crlf> layer later, such as when the CRLF translation must occur after an encoding layer. On other architectures, it is a mundane CRLF translation layer and can be added and removed normally. # translate CRLF after encoding on Perl 5.14 or newer binmode $fh, ":raw:encoding(UTF-16LE):crlf" or die "binmode failed: $!"; =item :utf8 Pseudo-layer that declares that the stream accepts Perl's I<internal> upgraded encoding of characters, which is approximately UTF-8 on ASCII machines, but UTF-EBCDIC on EBCDIC machines. This allows any character Perl can represent to be read from or written to the stream. This layer (which actually sets a flag on the preceding layer, and is implicitly set by any C<:encoding> layer) does not translate or validate byte sequences. It instead indicates that the byte stream will have been arranged by other layers to be provided in Perl's internal upgraded encoding, which Perl code (and correctly written XS code) will interpret as decoded Unicode characters. B<CAUTION>: Do not use this layer to translate from UTF-8 bytes, as invalid UTF-8 or binary data will result in malformed Perl strings. It is unlikely to produce invalid UTF-8 when used for output, though it will instead produce UTF-EBCDIC on EBCDIC systems. The C<:encoding(UTF-8)> layer (hyphen is significant) is preferred as it will ensure translation between valid UTF-8 bytes and valid Unicode characters. =item :bytes This is the inverse of the C<:utf8> pseudo-layer. It turns off the flag on the layer below so that data read from it is considered to be Perl's internal downgraded encoding, thus interpreted as the native single-byte encoding of Latin-1 or EBCDIC. Likewise on output Perl will warn if a "wide" character (a codepoint not in the range 0..255) is written to a such a stream. This is very dangerous to push on a handle using an C<:encoding> layer, as such a layer assumes to be working with Perl's internal upgraded encoding, so you will likely get a mangled result. Instead use C<:raw> or C<:pop> to remove encoding layers. =item :raw The C<:raw> pseudo-layer is I<defined> as being identical to calling C<binmode($fh)> - the stream is made suitable for passing binary data, i.e. each byte is passed as-is. The stream will still be buffered (but this was not always true before Perl 5.14). In Perl 5.6 and some books the C<:raw> layer is documented as the inverse of the C<:crlf> layer. That is no longer the case - other layers which would alter the binary nature of the stream are also disabled. If you want UNIX line endings on a platform that normally does CRLF translation, but still want UTF-8 or encoding defaults, the appropriate thing to do is to add C<:perlio> to the PERLIO environment variable, or open the handle explicitly with that layer, to replace the platform default of C<:crlf>. The implementation of C<:raw> is as a pseudo-layer which when "pushed" pops itself and then any layers which would modify the binary data stream. (Undoing C<:utf8> and C<:crlf> may be implemented by clearing flags rather than popping layers but that is an implementation detail.) As a consequence of the fact that C<:raw> normally pops layers, it usually only makes sense to have it as the only or first element in a layer specification. When used as the first element it provides a known base on which to build e.g. open(my $fh,">:raw:encoding(UTF-8)",...) or die "open failed: $!"; will construct a "binary" stream regardless of the platform defaults, but then enable UTF-8 translation. =item :pop A pseudo-layer that removes the top-most layer. Gives Perl code a way to manipulate the layer stack. Note that C<:pop> only works on real layers and will not undo the effects of pseudo-layers or flags like C<:utf8>. An example of a possible use might be: open(my $fh,...) or die "open failed: $!"; ... binmode($fh,":encoding(...)") or die "binmode failed: $!"; # next chunk is encoded ... binmode($fh,":pop") or die "binmode failed: $!"; # back to un-encoded A more elegant (and safer) interface is needed. =item :win32 On Win32 platforms this I<experimental> layer uses the native "handle" IO rather than the unix-like numeric file descriptor layer. Known to be buggy as of Perl 5.8.2. =back =head2 Custom Layers It is possible to write custom layers in addition to the above builtin ones, both in C/XS and Perl, as a module named C<< PerlIO::<layer name> >>. Some custom layers come with the Perl distribution. =over 4 =item :encoding Use C<:encoding(ENCODING)> to transparently do character set and encoding transformations, for example from Shift-JIS to Unicode. Note that an C<:encoding> also enables C<:utf8>. See L<PerlIO::encoding> for more information. =item :mmap A layer which implements "reading" of files by using C<mmap()> to make a (whole) file appear in the process's address space, and then using that as PerlIO's "buffer". This I<may> be faster in certain circumstances for large files, and may result in less physical memory use when multiple processes are reading the same file. Files which are not C<mmap()>-able revert to behaving like the C<:perlio> layer. Writes also behave like the C<:perlio> layer, as C<mmap()> for write needs extra house-keeping (to extend the file) which negates any advantage. The C<:mmap> layer will not exist if the platform does not support C<mmap()>. See L<PerlIO::mmap> for more information. =item :via C<:via(MODULE)> allows a transformation to be applied by an arbitrary Perl module, for example compression / decompression, encryption / decryption. See L<PerlIO::via> for more information. =item :scalar A layer implementing "in memory" files using scalar variables, automatically used in place of the platform defaults for IO when opening such a handle. As such, the scalar is expected to act like a file, only containing or storing bytes. See L<PerlIO::scalar> for more information. =back =head2 Alternatives to raw To get a binary stream an alternate method is to use: open(my $fh,"<","whatever") or die "open failed: $!"; binmode($fh) or die "binmode failed: $!"; This has the advantage of being backward compatible with older versions of Perl that did not use PerlIO or where C<:raw> was buggy (as it was before Perl 5.14). To get an unbuffered stream specify an unbuffered layer (e.g. C<:unix>) in the open call: open(my $fh,"<:unix",$path) or die "open failed: $!"; =head2 Defaults and how to override them If the platform is MS-DOS like and normally does CRLF to "\n" translation for text files then the default layers are: :unix:crlf Otherwise if C<Configure> found out how to do "fast" IO using the system's stdio (not common on modern architectures), then the default layers are: :stdio Otherwise the default layers are :unix:perlio Note that the "default stack" depends on the operating system and on the Perl version, and both the compile-time and runtime configurations of Perl. The default can be overridden by setting the environment variable PERLIO to a space or colon separated list of layers, however this cannot be used to set layers that require loading modules like C<:encoding>. This can be used to see the effect of/bugs in the various layers e.g. cd .../perl/t PERLIO=:stdio ./perl harness PERLIO=:perlio ./perl harness For the various values of PERLIO see L<perlrun/PERLIO>. The following table summarizes the default layers on UNIX-like and DOS-like platforms and depending on the setting of C<$ENV{PERLIO}>: PERLIO UNIX-like DOS-like ------ --------- -------- unset / "" :unix:perlio / :stdio [1] :unix:crlf :stdio :stdio :stdio :perlio :unix:perlio :unix:perlio # [1] ":stdio" if Configure found out how to do "fast stdio" (depends # on the stdio implementation) and in Perl 5.8, else ":unix:perlio" =head2 Querying the layers of filehandles The following returns the B<names> of the PerlIO layers on a filehandle. my @layers = PerlIO::get_layers($fh); # Or FH, *FH, "FH". The layers are returned in the order an open() or binmode() call would use them, and without colons. By default the layers from the input side of the filehandle are returned; to get the output side, use the optional C<output> argument: my @layers = PerlIO::get_layers($fh, output => 1); (Usually the layers are identical on either side of a filehandle but for example with sockets there may be differences.) There is no set_layers(), nor does get_layers() return a tied array mirroring the stack, or anything fancy like that. This is not accidental or unintentional. The PerlIO layer stack is a bit more complicated than just a stack (see for example the behaviour of C<:raw>). You are supposed to use open() and binmode() to manipulate the stack. B<Implementation details follow, please close your eyes.> The arguments to layers are by default returned in parentheses after the name of the layer, and certain layers (like C<:utf8>) are not real layers but instead flags on real layers; to get all of these returned separately, use the optional C<details> argument: my @layer_and_args_and_flags = PerlIO::get_layers($fh, details => 1); The result will be up to be three times the number of layers: the first element will be a name, the second element the arguments (unspecified arguments will be C<undef>), the third element the flags, the fourth element a name again, and so forth. B<You may open your eyes now.> =head1 AUTHOR Nick Ing-Simmons E<lt>nick@ing-simmons.netE<gt> =head1 SEE ALSO L<perlfunc/"binmode">, L<perlfunc/"open">, L<perlunicode>, L<perliol>, L<Encode> =cut PK ! �OEf f 5.34.0/User/grent.pmnu �[��� package User::grent; use strict; use 5.006_001; our $VERSION = '1.03'; our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS); our ($gr_name, $gr_gid, $gr_passwd, @gr_members); BEGIN { use Exporter (); @EXPORT = qw(getgrent getgrgid getgrnam getgr); @EXPORT_OK = qw($gr_name $gr_gid $gr_passwd @gr_members); %EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] ); } # Class::Struct forbids use of @ISA sub import { goto &Exporter::import } use Class::Struct qw(struct); struct 'User::grent' => [ name => '$', passwd => '$', gid => '$', members => '@', ]; sub populate (@) { return unless @_; my $gob = new(); ($gr_name, $gr_passwd, $gr_gid) = @$gob[0,1,2] = @_[0,1,2]; @gr_members = @{$gob->[3]} = split ' ', $_[3]; return $gob; } sub getgrent ( ) { populate(CORE::getgrent()) } sub getgrnam ($) { populate(CORE::getgrnam(shift)) } sub getgrgid ($) { populate(CORE::getgrgid(shift)) } sub getgr ($) { ($_[0] =~ /^\d+/) ? &getgrgid : &getgrnam } 1; __END__ =head1 NAME User::grent - by-name interface to Perl's built-in getgr*() functions =head1 SYNOPSIS use User::grent; $gr = getgrgid(0) or die "No group zero"; if ( $gr->name eq 'wheel' && @{$gr->members} > 1 ) { print "gid zero name wheel, with other members"; } use User::grent qw(:FIELDS); getgrgid(0) or die "No group zero"; if ( $gr_name eq 'wheel' && @gr_members > 1 ) { print "gid zero name wheel, with other members"; } $gr = getgr($whoever); =head1 DESCRIPTION This module's default exports override the core getgrent(), getgrgid(), and getgrnam() functions, replacing them with versions that return "User::grent" objects. This object has methods that return the similarly named structure field name from the C's passwd structure from F<grp.h>; namely name, passwd, gid, and members (not mem). The first three return scalars, the last an array reference. You may also import all the structure fields directly into your namespace as regular variables using the :FIELDS import tag. (Note that this still overrides your core functions.) Access these fields as variables named with a preceding C<gr_>. Thus, C<$group_obj-E<gt>gid()> corresponds to $gr_gid if you import the fields. Array references are available as regular array variables, so C<@{ $group_obj-E<gt>members() }> would be simply @gr_members. The getgr() function is a simple front-end that forwards a numeric argument to getgrgid() and the rest to getgrnam(). To access this functionality without the core overrides, pass the C<use> an empty import list, and then access function functions with their full qualified names. On the other hand, the built-ins are still available via the C<CORE::> pseudo-package. =head1 NOTE While this class is currently implemented using the Class::Struct module to build a struct-like class, you shouldn't rely upon this. =head1 AUTHOR Tom Christiansen PK ! ���& �& 5.34.0/User/pwent.pmnu �[��� package User::pwent; use 5.006; our $VERSION = '1.01'; use strict; use warnings; use Config; use Carp; our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS); our ( $pw_name, $pw_passwd, $pw_uid, $pw_gid, $pw_gecos, $pw_dir, $pw_shell, $pw_expire, $pw_change, $pw_class, $pw_age, $pw_quota, $pw_comment, ); BEGIN { use Exporter (); @EXPORT = qw(getpwent getpwuid getpwnam getpw); @EXPORT_OK = qw( pw_has $pw_name $pw_passwd $pw_uid $pw_gid $pw_gecos $pw_dir $pw_shell $pw_expire $pw_change $pw_class $pw_age $pw_quota $pw_comment ); %EXPORT_TAGS = ( FIELDS => [ grep(/^\$pw_/, @EXPORT_OK), @EXPORT ], ALL => [ @EXPORT, @EXPORT_OK ], ); } # # XXX: these mean somebody hacked this module's source # without understanding the underlying assumptions. # my $IE = "[INTERNAL ERROR]"; # Class::Struct forbids use of @ISA sub import { goto &Exporter::import } use Class::Struct qw(struct); struct 'User::pwent' => [ name => '$', # pwent[0] passwd => '$', # pwent[1] uid => '$', # pwent[2] gid => '$', # pwent[3] # you'll only have one/none of these three change => '$', # pwent[4] age => '$', # pwent[4] quota => '$', # pwent[4] # you'll only have one/none of these two comment => '$', # pwent[5] class => '$', # pwent[5] # you might not have this one gecos => '$', # pwent[6] dir => '$', # pwent[7] shell => '$', # pwent[8] # you might not have this one expire => '$', # pwent[9] ]; # init our groks hash to be true if the built platform knew how # to do each struct pwd field that perl can ever under any circumstances # know about. we do not use /^pw_?/, but just the tails. sub _feature_init { our %Groks; # whether build system knew how to do this feature for my $feep ( qw{ pwage pwchange pwclass pwcomment pwexpire pwgecos pwpasswd pwquota } ) { my $short = $feep =~ /^pw(.*)/ ? $1 : do { # not cluck, as we know we called ourselves, # and a confession is probably imminent anyway warn("$IE $feep is a funny struct pwd field"); $feep; }; exists $Config{ "d_" . $feep } || confess("$IE Configure doesn't d_$feep"); $Groks{$short} = defined $Config{ "d_" . $feep }; } # assume that any that are left are always there for my $feep (grep /^\$pw_/s, @EXPORT_OK) { $feep =~ /^\$pw_(.*)/; $Groks{$1} = 1 unless defined $Groks{$1}; } } # With arguments, reports whether one or more fields are all implemented # in the build machine's struct pwd pw_*. May be whitespace separated. # We do not use /^pw_?/, just the tails. # # Without arguments, returns the list of fields implemented on build # machine, space separated in scalar context. # # Takes exception to being asked whether this machine's struct pwd has # a field that Perl never knows how to provide under any circumstances. # If the module does this idiocy to itself, the explosion is noisier. # sub pw_has { our %Groks; # whether build system knew how to do this feature my $cando = 1; my $sploder = caller() ne __PACKAGE__ ? \&croak : sub { confess("$IE @_") }; if (@_ == 0) { my @valid = sort grep { $Groks{$_} } keys %Groks; return wantarray ? @valid : "@valid"; } for my $feep (map { split } @_) { defined $Groks{$feep} || $sploder->("$feep is never a valid struct pwd field"); $cando &&= $Groks{$feep}; } return $cando; } sub _populate (@) { return unless @_; my $pwob = new(); # Any that haven't been pw_had are assumed on "all" platforms of # course, this may not be so, but you can't get here otherwise, # since the underlying core call already took exception to your # impudence. $pw_name = $pwob->name ( $_[0] ); $pw_passwd = $pwob->passwd ( $_[1] ) if pw_has("passwd"); $pw_uid = $pwob->uid ( $_[2] ); $pw_gid = $pwob->gid ( $_[3] ); if (pw_has("change")) { $pw_change = $pwob->change ( $_[4] ); } elsif (pw_has("age")) { $pw_age = $pwob->age ( $_[4] ); } elsif (pw_has("quota")) { $pw_quota = $pwob->quota ( $_[4] ); } if (pw_has("class")) { $pw_class = $pwob->class ( $_[5] ); } elsif (pw_has("comment")) { $pw_comment = $pwob->comment( $_[5] ); } $pw_gecos = $pwob->gecos ( $_[6] ) if pw_has("gecos"); $pw_dir = $pwob->dir ( $_[7] ); $pw_shell = $pwob->shell ( $_[8] ); $pw_expire = $pwob->expire ( $_[9] ) if pw_has("expire"); return $pwob; } sub getpwent ( ) { _populate(CORE::getpwent()) } sub getpwnam ($) { _populate(CORE::getpwnam(shift)) } sub getpwuid ($) { _populate(CORE::getpwuid(shift)) } sub getpw ($) { ($_[0] =~ /^\d+\z/s) ? &getpwuid : &getpwnam } _feature_init(); 1; __END__ =head1 NAME User::pwent - by-name interface to Perl's built-in getpw*() functions =head1 SYNOPSIS use User::pwent; $pw = getpwnam('daemon') || die "No daemon user"; if ( $pw->uid == 1 && $pw->dir =~ m#^/(bin|tmp)?\z#s ) { print "gid 1 on root dir"; } $real_shell = $pw->shell || '/bin/sh'; for (($fullname, $office, $workphone, $homephone) = split /\s*,\s*/, $pw->gecos) { s/&/ucfirst(lc($pw->name))/ge; } use User::pwent qw(:FIELDS); getpwnam('daemon') || die "No daemon user"; if ( $pw_uid == 1 && $pw_dir =~ m#^/(bin|tmp)?\z#s ) { print "gid 1 on root dir"; } $pw = getpw($whoever); use User::pwent qw/:DEFAULT pw_has/; if (pw_has(qw[gecos expire quota])) { .... } if (pw_has("name uid gid passwd")) { .... } print "Your struct pwd has: ", scalar pw_has(), "\n"; =head1 DESCRIPTION This module's default exports override the core getpwent(), getpwuid(), and getpwnam() functions, replacing them with versions that return C<User::pwent> objects. This object has methods that return the similarly named structure field name from the C's passwd structure from F<pwd.h>, stripped of their leading "pw_" parts, namely C<name>, C<passwd>, C<uid>, C<gid>, C<change>, C<age>, C<quota>, C<comment>, C<class>, C<gecos>, C<dir>, C<shell>, and C<expire>. The C<passwd>, C<gecos>, and C<shell> fields are tainted when running in taint mode. You may also import all the structure fields directly into your namespace as regular variables using the :FIELDS import tag. (Note that this still overrides your core functions.) Access these fields as variables named with a preceding C<pw_> in front their method names. Thus, C<< $passwd_obj->shell >> corresponds to $pw_shell if you import the fields. The getpw() function is a simple front-end that forwards a numeric argument to getpwuid() and the rest to getpwnam(). To access this functionality without the core overrides, pass the C<use> an empty import list, and then access function functions with their full qualified names. The built-ins are always still available via the C<CORE::> pseudo-package. =head2 System Specifics Perl believes that no machine ever has more than one of C<change>, C<age>, or C<quota> implemented, nor more than one of either C<comment> or C<class>. Some machines do not support C<expire>, C<gecos>, or allegedly, C<passwd>. You may call these methods no matter what machine you're on, but they return C<undef> if unimplemented. You may ask whether one of these was implemented on the system Perl was built on by asking the importable C<pw_has> function about them. This function returns true if all parameters are supported fields on the build platform, false if one or more were not, and raises an exception if you asked about a field that Perl never knows how to provide. Parameters may be in a space-separated string, or as separate arguments. If you pass no parameters, the function returns the list of C<struct pwd> fields supported by your build platform's C library, as a list in list context, or a space-separated string in scalar context. Note that just because your C library had a field doesn't necessarily mean that it's fully implemented on that system. Interpretation of the C<gecos> field varies between systems, but traditionally holds 4 comma-separated fields containing the user's full name, office location, work phone number, and home phone number. An C<&> in the gecos field should be replaced by the user's properly capitalized login C<name>. The C<shell> field, if blank, must be assumed to be F</bin/sh>. Perl does not do this for you. The C<passwd> is one-way hashed garble, not clear text, and may not be unhashed save by brute-force guessing. Secure systems use more a more secure hashing than DES. On systems supporting shadow password systems, Perl automatically returns the shadow password entry when called by a suitably empowered user, even if your underlying vendor-provided C library was too short-sighted to realize it should do this. See passwd(5) and getpwent(3) for details. =head1 NOTE While this class is currently implemented using the Class::Struct module to build a struct-like class, you shouldn't rely upon this. =head1 AUTHOR Tom Christiansen =head1 HISTORY =over 4 =item March 18th, 2000 Reworked internals to support better interface to dodgey fields than normal Perl function provides. Added pw_has() field. Improved documentation. =back PK ! U��[Q Q 5.34.0/DBM_Filter/encode.pmnu �[��� package DBM_Filter::encode ; use strict; use warnings; use Carp; our $VERSION = '0.03'; BEGIN { eval { require Encode; }; croak "Encode module not found.\n" if $@; } sub Filter { my $encoding_name = shift || "utf8"; my $encoding = Encode::find_encoding($encoding_name) ; croak "Encoding '$encoding_name' is not available" unless $encoding; return { Store => sub { $_ = $encoding->encode($_) if defined $_ ; }, Fetch => sub { $_ = $encoding->decode($_) if defined $_ ; } } ; } 1; __END__ =head1 NAME DBM_Filter::encode - filter for DBM_Filter =head1 SYNOPSIS use SDBM_File; # or DB_File, GDBM_File, NDBM_File, ODBM_File use DBM_Filter ; $db = tie %hash, ... $db->Filter_Push('encode' => 'iso-8859-16'); =head1 DESCRIPTION This DBM filter allows you to choose the character encoding will be store in the DBM file. The usage is $db->Filter_Push('encode' => ENCODING); where "ENCODING" must be a valid encoding name that the Encode module recognises. A fatal error will be thrown if: =over 5 =item 1 The Encode module is not available. =item 2 The encoding requested is not supported by the Encode module. =back =head1 SEE ALSO L<DBM_Filter>, L<perldbmfilter>, L<Encode> =head1 AUTHOR Paul Marquess pmqs@cpan.org PK ! ��dV V 5.34.0/DBM_Filter/compress.pmnu �[��� package DBM_Filter::compress ; use strict; use warnings; use Carp; our $VERSION = '0.03'; BEGIN { eval { require Compress::Zlib; Compress::Zlib->import() }; croak "Compress::Zlib module not found.\n" if $@; } sub Store { $_ = compress($_) } sub Fetch { $_ = uncompress($_) } 1; __END__ =head1 NAME DBM_Filter::compress - filter for DBM_Filter =head1 SYNOPSIS use SDBM_File; # or DB_File, GDBM_File, NDBM_File, ODBM_File use DBM_Filter ; $db = tie %hash, ... $db->Filter_Push('compress'); =head1 DESCRIPTION This DBM filter will compress all data before it is written to the database and uncompressed it on reading. A fatal error will be thrown if the Compress::Zlib module is not available. =head1 SEE ALSO L<DBM_Filter>, L<perldbmfilter>, L<Compress::Zlib> =head1 AUTHOR Paul Marquess pmqs@cpan.org PK ! %~� 5.34.0/DBM_Filter/utf8.pmnu �[��� package DBM_Filter::utf8 ; use strict; use warnings; use Carp; our $VERSION = '0.03'; BEGIN { eval { require Encode; }; croak "Encode module not found.\n" if $@; } sub Store { $_ = Encode::encode_utf8($_) if defined $_ } sub Fetch { $_ = Encode::decode_utf8($_) if defined $_ } 1; __END__ =head1 NAME DBM_Filter::utf8 - filter for DBM_Filter =head1 SYNOPSIS use SDBM_File; # or DB_File, GDBM_File, NDBM_File, or ODBM_File use DBM_Filter; $db = tie %hash, ... $db->Filter_Push('utf8'); =head1 DESCRIPTION This Filter will ensure that all data written to the DBM will be encoded in UTF-8. This module uses the Encode module. =head1 SEE ALSO L<DBM_Filter>, L<perldbmfilter>, L<Encode> =head1 AUTHOR Paul Marquess pmqs@cpan.org PK ! �� � 5.34.0/DBM_Filter/int32.pmnu �[��� package DBM_Filter::int32 ; use strict; use warnings; our $VERSION = '0.03'; # todo get Filter to figure endian. sub Store { $_ = 0 if ! defined $_ || $_ eq "" ; $_ = pack("i", $_); } sub Fetch { no warnings 'uninitialized'; $_ = unpack("i", $_); } 1; __END__ =head1 NAME DBM_Filter::int32 - filter for DBM_Filter =head1 SYNOPSIS use SDBM_File; # or DB_File, GDBM_File, NDBM_File, or ODBM_File use DBM_Filter ; $db = tie %hash, ... $db->Filter_Push('int32'); =head1 DESCRIPTION This DBM filter is used when interoperating with a C/C++ application that uses a C int as either the key and/or value in the DBM file. =head1 SEE ALSO L<DBM_Filter>, L<perldbmfilter> =head1 AUTHOR Paul Marquess pmqs@cpan.org PK ! � O�� � 5.34.0/DBM_Filter/null.pmnu �[��� package DBM_Filter::null ; use strict; use warnings; our $VERSION = '0.03'; sub Store { no warnings 'uninitialized'; $_ .= "\x00" ; } sub Fetch { no warnings 'uninitialized'; s/\x00$// ; } 1; __END__ =head1 NAME DBM_Filter::null - filter for DBM_Filter =head1 SYNOPSIS use SDBM_File; # or DB_File, GDBM_File, NDBM_File, or ODBM_File use DBM_Filter ; $db = tie %hash, ... $db->Filter_Push('null'); =head1 DESCRIPTION This filter ensures that all data written to the DBM file is null terminated. This is useful when you have a perl script that needs to interoperate with a DBM file that a C program also uses. A fairly common issue is for the C application to include the terminating null in a string when it writes to the DBM file. This filter will ensure that all data written to the DBM file can be read by the C application. =head1 SEE ALSO L<DBM_Filter>, L<perldbmfilter> =head1 AUTHOR Paul Marquess pmqs@cpan.org PK ! �s�� � 5.34.0/Time/tm.pmnu �[��� package Time::tm; use strict; our $VERSION = '1.00'; use Class::Struct qw(struct); struct('Time::tm' => [ map { $_ => '$' } qw{ sec min hour mday mon year wday yday isdst } ]); 1; __END__ =head1 NAME Time::tm - internal object used by Time::gmtime and Time::localtime =head1 SYNOPSIS Don't use this module directly. =head1 DESCRIPTION This module is used internally as a base class by Time::localtime And Time::gmtime functions. It creates a Time::tm struct object which is addressable just like's C's tm structure from F<time.h>; namely with sec, min, hour, mday, mon, year, wday, yday, and isdst. This class is an internal interface only. =head1 AUTHOR Tom Christiansen PK ! '��? �? 5.34.0/Time/Local.pmnu �[��� package Time::Local; use strict; use Carp (); use Exporter; our $VERSION = '1.30'; use parent 'Exporter'; our @EXPORT = qw( timegm timelocal ); our @EXPORT_OK = qw( timegm_modern timelocal_modern timegm_nocheck timelocal_nocheck timegm_posix timelocal_posix ); my @MonthDays = ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 ); # Determine breakpoint for rolling century my $ThisYear = ( localtime() )[5]; my $Breakpoint = ( $ThisYear + 50 ) % 100; my $NextCentury = $ThisYear - $ThisYear % 100; $NextCentury += 100 if $Breakpoint < 50; my $Century = $NextCentury - 100; my $SecOff = 0; my ( %Options, %Cheat ); use constant SECS_PER_MINUTE => 60; use constant SECS_PER_HOUR => 3600; use constant SECS_PER_DAY => 86400; my $MaxDay; if ( $] < 5.012000 ) { require Config; ## no critic (Variables::ProhibitPackageVars) my $MaxInt; if ( $^O eq 'MacOS' ) { # time_t is unsigned... $MaxInt = ( 1 << ( 8 * $Config::Config{ivsize} ) ) - 1; ## no critic qw(ProhibitPackageVars) } else { $MaxInt = ( ( 1 << ( 8 * $Config::Config{ivsize} - 2 ) ) - 1 ) * 2 + 1; ## no critic qw(ProhibitPackageVars) } $MaxDay = int( ( $MaxInt - ( SECS_PER_DAY / 2 ) ) / SECS_PER_DAY ) - 1; } else { # recent localtime()'s limit is the year 2**31 $MaxDay = 365 * ( 2**31 ); } # Determine the EPOC day for this machine my $Epoc = 0; if ( $^O eq 'vos' ) { # work around posix-977 -- VOS doesn't handle dates in the range # 1970-1980. $Epoc = _daygm( 0, 0, 0, 1, 0, 70, 4, 0 ); } elsif ( $^O eq 'MacOS' ) { $MaxDay *= 2; # time_t unsigned ... quick hack? # MacOS time() is seconds since 1 Jan 1904, localtime # so we need to calculate an offset to apply later $Epoc = 693901; $SecOff = timelocal( localtime(0) ) - timelocal( gmtime(0) ); $Epoc += _daygm( gmtime(0) ); } else { $Epoc = _daygm( gmtime(0) ); } %Cheat = (); # clear the cache as epoc has changed sub _daygm { # This is written in such a byzantine way in order to avoid # lexical variables and sub calls, for speed return $_[3] + ( $Cheat{ pack( 'ss', @_[ 4, 5 ] ) } ||= do { my $month = ( $_[4] + 10 ) % 12; my $year = $_[5] + 1900 - int( $month / 10 ); ( ( 365 * $year ) + int( $year / 4 ) - int( $year / 100 ) + int( $year / 400 ) + int( ( ( $month * 306 ) + 5 ) / 10 ) ) - $Epoc; } ); } sub _timegm { my $sec = $SecOff + $_[0] + ( SECS_PER_MINUTE * $_[1] ) + ( SECS_PER_HOUR * $_[2] ); return $sec + ( SECS_PER_DAY * &_daygm ); } sub timegm { my ( $sec, $min, $hour, $mday, $month, $year ) = @_; if ( $Options{no_year_munging} ) { $year -= 1900; } elsif ( !$Options{posix_year} ) { if ( $year >= 1000 ) { $year -= 1900; } elsif ( $year < 100 and $year >= 0 ) { $year += ( $year > $Breakpoint ) ? $Century : $NextCentury; } } unless ( $Options{no_range_check} ) { Carp::croak("Month '$month' out of range 0..11") if $month > 11 or $month < 0; my $md = $MonthDays[$month]; ++$md if $month == 1 && _is_leap_year( $year + 1900 ); Carp::croak("Day '$mday' out of range 1..$md") if $mday > $md or $mday < 1; Carp::croak("Hour '$hour' out of range 0..23") if $hour > 23 or $hour < 0; Carp::croak("Minute '$min' out of range 0..59") if $min > 59 or $min < 0; Carp::croak("Second '$sec' out of range 0..59") if $sec >= 60 or $sec < 0; } my $days = _daygm( undef, undef, undef, $mday, $month, $year ); unless ( $Options{no_range_check} or abs($days) < $MaxDay ) { my $msg = q{}; $msg .= "Day too big - $days > $MaxDay\n" if $days > $MaxDay; $year += 1900; $msg .= "Cannot handle date ($sec, $min, $hour, $mday, $month, $year)"; Carp::croak($msg); } return $sec + $SecOff + ( SECS_PER_MINUTE * $min ) + ( SECS_PER_HOUR * $hour ) + ( SECS_PER_DAY * $days ); } sub _is_leap_year { return 0 if $_[0] % 4; return 1 if $_[0] % 100; return 0 if $_[0] % 400; return 1; } sub timegm_nocheck { local $Options{no_range_check} = 1; return &timegm; } sub timegm_modern { local $Options{no_year_munging} = 1; return &timegm; } sub timegm_posix { local $Options{posix_year} = 1; return &timegm; } sub timelocal { my $ref_t = &timegm; my $loc_for_ref_t = _timegm( localtime($ref_t) ); my $zone_off = $loc_for_ref_t - $ref_t or return $loc_for_ref_t; # Adjust for timezone my $loc_t = $ref_t - $zone_off; # Are we close to a DST change or are we done my $dst_off = $ref_t - _timegm( localtime($loc_t) ); # If this evaluates to true, it means that the value in $loc_t is # the _second_ hour after a DST change where the local time moves # backward. if ( !$dst_off && ( ( $ref_t - SECS_PER_HOUR ) - _timegm( localtime( $loc_t - SECS_PER_HOUR ) ) < 0 ) ) { return $loc_t - SECS_PER_HOUR; } # Adjust for DST change $loc_t += $dst_off; return $loc_t if $dst_off > 0; # If the original date was a non-existent gap in a forward DST jump, we # should now have the wrong answer - undo the DST adjustment my ( $s, $m, $h ) = localtime($loc_t); $loc_t -= $dst_off if $s != $_[0] || $m != $_[1] || $h != $_[2]; return $loc_t; } sub timelocal_nocheck { local $Options{no_range_check} = 1; return &timelocal; } sub timelocal_modern { local $Options{no_year_munging} = 1; return &timelocal; } sub timelocal_posix { local $Options{posix_year} = 1; return &timelocal; } 1; # ABSTRACT: Efficiently compute time from local and GMT time __END__ =pod =encoding UTF-8 =head1 NAME Time::Local - Efficiently compute time from local and GMT time =head1 VERSION version 1.30 =head1 SYNOPSIS use Time::Local qw( timelocal_posix timegm_posix ); my $time = timelocal_posix( $sec, $min, $hour, $mday, $mon, $year ); my $time = timegm_posix( $sec, $min, $hour, $mday, $mon, $year ); =head1 DESCRIPTION This module provides functions that are the inverse of built-in perl functions C<localtime()> and C<gmtime()>. They accept a date as a six-element array, and return the corresponding C<time(2)> value in seconds since the system epoch (Midnight, January 1, 1970 GMT on Unix, for example). This value can be positive or negative, though POSIX only requires support for positive values, so dates before the system's epoch may not work on all operating systems. It is worth drawing particular attention to the expected ranges for the values provided. The value for the day of the month is the actual day (i.e. 1..31), while the month is the number of months since January (0..11). This is consistent with the values returned from C<localtime()> and C<gmtime()>. =head1 FUNCTIONS =head2 C<timelocal_posix()> and C<timegm_posix()> These functions are the exact inverse of Perl's built-in C<localtime> and C<gmtime> functions. That means that calling C<< timelocal_posix( localtime($value) ) >> will always give you the same C<$value> you started with. The same applies to C<< timegm_posix( gmtime($value) ) >>. The one exception is when the value returned from C<localtime()> represents an ambiguous local time because of a DST change. See the documentation below for more details. These functions expect the year value to be the number of years since 1900, which is what the C<localtime()> and C<gmtime()> built-ins returns. They perform range checking by default on the input C<$sec>, C<$min>, C<$hour>, C<$mday>, and C<$mon> values and will croak (using C<Carp::croak()>) if given a value outside the allowed ranges. While it would be nice to make this the default behavior, that would almost certainly break a lot of code, so you must explicitly import these functions and use them instead of the default C<timelocal()> and C<timegm()>. You are B<strongly> encouraged to use these functions in any new code which uses this module. It will almost certainly make your code's behavior less surprising. =head2 C<timelocal_modern()> and C<timegm_modern()> When C<Time::Local> was first written, it was a common practice to represent years as a two-digit value like C<99> for C<1999> or C<1> for C<2001>. This caused all sorts of problems (google "Y2K problem" if you're very young) and developers eventually realized that this was a terrible idea. The default exports of C<timelocal()> and C<timegm()> do a complicated calculation when given a year value less than 1000. This leads to surprising results in many cases. See L</Year Value Interpretation> for details. The C<time*_modern()> functions do not do this year munging and simply take the year value as provided. They perform range checking by default on the input C<$sec>, C<$min>, C<$hour>, C<$mday>, and C<$mon> values and will croak (using C<Carp::croak()>) if given a value outside the allowed ranges. =head2 C<timelocal()> and C<timegm()> This module exports two functions by default, C<timelocal()> and C<timegm()>. They perform range checking by default on the input C<$sec>, C<$min>, C<$hour>, C<$mday>, and C<$mon> values and will croak (using C<Carp::croak()>) if given a value outside the allowed ranges. B<Warning: The year value interpretation that these functions and their nocheck variants use will almost certainly lead to bugs in your code, if not now, then in the future. You are strongly discouraged from using these in new code, and you should convert old code to using either the C<*_posix> or C<*_modern> functions if possible.> =head2 C<timelocal_nocheck()> and C<timegm_nocheck()> If you are working with data you know to be valid, you can use the "nocheck" variants, C<timelocal_nocheck()> and C<timegm_nocheck()>. These variants must be explicitly imported. If you supply data which is not valid (month 27, second 1,000) the results will be unpredictable (so don't do that). Note that my benchmarks show that this is just a 3% speed increase over the checked versions, so unless calling C<Time::Local> is the hottest spot in your application, using these nocheck variants is unlikely to have much impact on your application. =head2 Year Value Interpretation B<This does not apply to the C<*_posix> or C<*_modern> functions. Use those exports if you want to ensure consistent behavior as your code ages.> Strictly speaking, the year should be specified in a form consistent with C<localtime()>, i.e. the offset from 1900. In order to make the interpretation of the year easier for humans, however, who are more accustomed to seeing years as two-digit or four-digit values, the following conventions are followed: =over 4 =item * Years greater than 999 are interpreted as being the actual year, rather than the offset from 1900. Thus, 1964 would indicate the year Martin Luther King won the Nobel prize, not the year 3864. =item * Years in the range 100..999 are interpreted as offset from 1900, so that 112 indicates 2012. This rule also applies to years less than zero (but see note below regarding date range). =item * Years in the range 0..99 are interpreted as shorthand for years in the rolling "current century," defined as 50 years on either side of the current year. Thus, today, in 1999, 0 would refer to 2000, and 45 to 2045, but 55 would refer to 1955. Twenty years from now, 55 would instead refer to 2055. This is messy, but matches the way people currently think about two digit dates. Whenever possible, use an absolute four digit year instead. =back The scheme above allows interpretation of a wide range of dates, particularly if 4-digit years are used. But it also means that the behavior of your code changes as time passes, because the rolling "current century" changes each year. =head2 Limits of time_t On perl versions older than 5.12.0, the range of dates that can be actually be handled depends on the size of C<time_t> (usually a signed integer) on the given platform. Currently, this is 32 bits for most systems, yielding an approximate range from Dec 1901 to Jan 2038. Both C<timelocal()> and C<timegm()> croak if given dates outside the supported range. As of version 5.12.0, perl has stopped using the time implementation of the operating system it's running on. Instead, it has its own implementation of those routines with a safe range of at least +/- 2**52 (about 142 million years) =head2 Ambiguous Local Times (DST) Because of DST changes, there are many time zones where the same local time occurs for two different GMT times on the same day. For example, in the "Europe/Paris" time zone, the local time of 2001-10-28 02:30:00 can represent either 2001-10-28 00:30:00 GMT, B<or> 2001-10-28 01:30:00 GMT. When given an ambiguous local time, the timelocal() function will always return the epoch for the I<earlier> of the two possible GMT times. =head2 Non-Existent Local Times (DST) When a DST change causes a locale clock to skip one hour forward, there will be an hour's worth of local times that don't exist. Again, for the "Europe/Paris" time zone, the local clock jumped from 2001-03-25 01:59:59 to 2001-03-25 03:00:00. If the C<timelocal()> function is given a non-existent local time, it will simply return an epoch value for the time one hour later. =head2 Negative Epoch Values On perl version 5.12.0 and newer, negative epoch values are fully supported. On older versions of perl, negative epoch (C<time_t>) values, which are not officially supported by the POSIX standards, are known not to work on some systems. These include MacOS (pre-OSX) and Win32. On systems which do support negative epoch values, this module should be able to cope with dates before the start of the epoch, down the minimum value of time_t for the system. =head1 IMPLEMENTATION These routines are quite efficient and yet are always guaranteed to agree with C<localtime()> and C<gmtime()>. We manage this by caching the start times of any months we've seen before. If we know the start time of the month, we can always calculate any time within the month. The start times are calculated using a mathematical formula. Unlike other algorithms that do multiple calls to C<gmtime()>. The C<timelocal()> function is implemented using the same cache. We just assume that we're translating a GMT time, and then fudge it when we're done for the timezone and daylight savings arguments. Note that the timezone is evaluated for each date because countries occasionally change their official timezones. Assuming that C<localtime()> corrects for these changes, this routine will also be correct. =head1 AUTHORS EMERITUS This module is based on a Perl 4 library, timelocal.pl, that was included with Perl 4.036, and was most likely written by Tom Christiansen. The current version was written by Graham Barr. =head1 BUGS The whole scheme for interpreting two-digit years can be considered a bug. Bugs may be submitted at L<https://github.com/houseabsolute/Time-Local/issues>. There is a mailing list available for users of this distribution, L<mailto:datetime@perl.org>. I am also usually active on IRC as 'autarch' on C<irc://irc.perl.org>. =head1 SOURCE The source code repository for Time-Local can be found at L<https://github.com/houseabsolute/Time-Local>. =head1 AUTHOR Dave Rolsky <autarch@urth.org> =head1 CONTRIBUTORS =for stopwords Florian Ragwitz J. Nick Koston Unknown =over 4 =item * Florian Ragwitz <rafl@debian.org> =item * J. Nick Koston <nick@cpanel.net> =item * Unknown <unknown@example.com> =back =head1 COPYRIGHT AND LICENSE This software is copyright (c) 1997 - 2020 by Graham Barr & Dave Rolsky. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. The full text of the license can be found in the F<LICENSE> file included with this distribution. =cut PK ! ��r�< < 5.34.0/Time/gmtime.pmnu �[��� package Time::gmtime; use strict; use 5.006_001; use Time::tm; our (@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION); our ( $tm_sec, $tm_min, $tm_hour, $tm_mday, $tm_mon, $tm_year, $tm_wday, $tm_yday, $tm_isdst, ); BEGIN { use Exporter (); @ISA = qw(Exporter Time::tm); @EXPORT = qw(gmtime gmctime); @EXPORT_OK = qw( $tm_sec $tm_min $tm_hour $tm_mday $tm_mon $tm_year $tm_wday $tm_yday $tm_isdst ); %EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] ); $VERSION = 1.04; } sub populate (@) { return unless @_; my $tmob = Time::tm->new(); @$tmob = ( $tm_sec, $tm_min, $tm_hour, $tm_mday, $tm_mon, $tm_year, $tm_wday, $tm_yday, $tm_isdst ) = @_; return $tmob; } sub gmtime (;$) { populate CORE::gmtime(@_ ? shift : time)} sub gmctime (;$) { scalar CORE::gmtime(@_ ? shift : time)} 1; __END__ =head1 NAME Time::gmtime - by-name interface to Perl's built-in gmtime() function =head1 SYNOPSIS use Time::gmtime; $gm = gmtime(); printf "The day in Greenwich is %s\n", (qw(Sun Mon Tue Wed Thu Fri Sat Sun))[ $gm->wday() ]; use Time::gmtime qw(:FIELDS); gmtime(); printf "The day in Greenwich is %s\n", (qw(Sun Mon Tue Wed Thu Fri Sat Sun))[ $tm_wday ]; $now = gmctime(); use Time::gmtime; use File::stat; $date_string = gmctime(stat($file)->mtime); =head1 DESCRIPTION This module's default exports override the core gmtime() function, replacing it with a version that returns "Time::tm" objects. This object has methods that return the similarly named structure field name from the C's tm structure from F<time.h>; namely sec, min, hour, mday, mon, year, wday, yday, and isdst. You may also import all the structure fields directly into your namespace as regular variables using the :FIELDS import tag. (Note that this still overrides your core functions.) Access these fields as variables named with a preceding C<tm_> in front their method names. Thus, C<$tm_obj-E<gt>mday()> corresponds to $tm_mday if you import the fields. The gmctime() function provides a way of getting at the scalar sense of the original CORE::gmtime() function. To access this functionality without the core overrides, pass the C<use> an empty import list, and then access function functions with their full qualified names. On the other hand, the built-ins are still available via the C<CORE::> pseudo-package. =head1 NOTE While this class is currently implemented using the Class::Struct module to build a struct-like class, you shouldn't rely upon this. =head1 AUTHOR Tom Christiansen PK ! �K�� � 5.34.0/Time/localtime.pmnu �[��� package Time::localtime; use strict; use 5.006_001; use Time::tm; our (@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION); our ( $tm_sec, $tm_min, $tm_hour, $tm_mday, $tm_mon, $tm_year, $tm_wday, $tm_yday, $tm_isdst ); BEGIN { use Exporter (); @ISA = qw(Exporter Time::tm); @EXPORT = qw(localtime ctime); @EXPORT_OK = qw( $tm_sec $tm_min $tm_hour $tm_mday $tm_mon $tm_year $tm_wday $tm_yday $tm_isdst ); %EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] ); $VERSION = 1.03; } sub populate (@) { return unless @_; my $tmob = Time::tm->new(); @$tmob = ( $tm_sec, $tm_min, $tm_hour, $tm_mday, $tm_mon, $tm_year, $tm_wday, $tm_yday, $tm_isdst ) = @_; return $tmob; } sub localtime (;$) { populate CORE::localtime(@_ ? shift : time)} sub ctime (;$) { scalar CORE::localtime(@_ ? shift : time) } 1; __END__ =head1 NAME Time::localtime - by-name interface to Perl's built-in localtime() function =head1 SYNOPSIS use Time::localtime; printf "Year is %d\n", localtime->year() + 1900; $now = ctime(); use Time::localtime; use File::stat; $date_string = ctime(stat($file)->mtime); =head1 DESCRIPTION This module's default exports override the core localtime() function, replacing it with a version that returns "Time::tm" objects. This object has methods that return the similarly named structure field name from the C's tm structure from F<time.h>; namely sec, min, hour, mday, mon, year, wday, yday, and isdst. You may also import all the structure fields directly into your namespace as regular variables using the :FIELDS import tag. (Note that this still overrides your core functions.) Access these fields as variables named with a preceding C<tm_> in front their method names. Thus, C<$tm_obj-E<gt>mday()> corresponds to $tm_mday if you import the fields. The ctime() function provides a way of getting at the scalar sense of the original CORE::localtime() function. To access this functionality without the core overrides, pass the C<use> an empty import list, and then access function functions with their full qualified names. On the other hand, the built-ins are still available via the C<CORE::> pseudo-package. =head1 NOTE While this class is currently implemented using the Class::Struct module to build a struct-like class, you shouldn't rely upon this. =head1 AUTHOR Tom Christiansen PK ! +�sWc c 5.34.0/Safe.pmnu �[��� package Safe; use 5.003_11; use Scalar::Util qw(reftype refaddr); $Safe::VERSION = "2.43"; # *** Don't declare any lexicals above this point *** # # This function should return a closure which contains an eval that can't # see any lexicals in scope (apart from __ExPr__ which is unavoidable) sub lexless_anon_sub { # $_[0] is package; # $_[1] is strict flag; my $__ExPr__ = $_[2]; # must be a lexical to create the closure that # can be used to pass the value into the safe # world # Create anon sub ref in root of compartment. # Uses a closure (on $__ExPr__) to pass in the code to be executed. # (eval on one line to keep line numbers as expected by caller) eval sprintf 'package %s; %s sub { @_=(); eval q[local *SIG; my $__ExPr__;] . $__ExPr__; }', $_[0], $_[1] ? 'use strict;' : ''; } use strict; use Carp; BEGIN { eval q{ use Carp::Heavy; } } use B (); BEGIN { no strict 'refs'; if (defined &B::sub_generation) { *sub_generation = \&B::sub_generation; } else { # fake sub generation changing for perls < 5.8.9 my $sg; *sub_generation = sub { ++$sg }; } } use Opcode 1.01, qw( opset opset_to_ops opmask_add empty_opset full_opset invert_opset verify_opset opdesc opcodes opmask define_optag opset_to_hex ); *ops_to_opset = \&opset; # Temporary alias for old Penguins # Regular expressions and other unicode-aware code may need to call # utf8->SWASHNEW (via perl's utf8.c). That will fail unless we share the # SWASHNEW method. # Sadly we can't just add utf8::SWASHNEW to $default_share because perl's # utf8.c code does a fetchmethod on SWASHNEW to check if utf8.pm is loaded, # and sharing makes it look like the method exists. # The simplest and most robust fix is to ensure the utf8 module is loaded when # Safe is loaded. Then we can add utf8::SWASHNEW to $default_share. require utf8; # we must ensure that utf8_heavy.pl, where SWASHNEW is defined, is loaded # but without depending on too much knowledge of that implementation detail. # This code (//i on a unicode string) should ensure utf8 is fully loaded # and also loads the ToFold SWASH, unless things change so that these # particular code points don't cause it to load. # (Swashes are cached internally by perl in PL_utf8_* variables # independent of being inside/outside of Safe. So once loaded they can be) do { my $a = pack('U',0x100); $a =~ m/\x{1234}/; $a =~ tr/\x{1234}//; }; # now we can safely include utf8::SWASHNEW in $default_share defined below. my $default_root = 0; # share *_ and functions defined in universal.c # Don't share stuff like *UNIVERSAL:: otherwise code from the # compartment can 0wn functions in UNIVERSAL my $default_share = [qw[ *_ &PerlIO::get_layers &UNIVERSAL::isa &UNIVERSAL::can &UNIVERSAL::VERSION &utf8::is_utf8 &utf8::valid &utf8::encode &utf8::decode &utf8::upgrade &utf8::downgrade &utf8::native_to_unicode &utf8::unicode_to_native &utf8::SWASHNEW $version::VERSION $version::CLASS $version::STRICT $version::LAX @version::ISA ], ($] < 5.010 && qw[ &utf8::SWASHGET ]), ($] >= 5.008001 && qw[ &Regexp::DESTROY ]), ($] >= 5.010 && qw[ &re::is_regexp &re::regname &re::regnames &re::regnames_count &UNIVERSAL::DOES &version::() &version::new &version::("" &version::stringify &version::(0+ &version::numify &version::normal &version::(cmp &version::(<=> &version::vcmp &version::(bool &version::boolean &version::(nomethod &version::noop &version::is_alpha &version::qv &version::vxs::declare &version::vxs::qv &version::vxs::_VERSION &version::vxs::stringify &version::vxs::new &version::vxs::parse &version::vxs::VCMP ]), ($] >= 5.011 && qw[ &re::regexp_pattern ]), ($] >= 5.010 && $] < 5.014 && qw[ &Tie::Hash::NamedCapture::FETCH &Tie::Hash::NamedCapture::STORE &Tie::Hash::NamedCapture::DELETE &Tie::Hash::NamedCapture::CLEAR &Tie::Hash::NamedCapture::EXISTS &Tie::Hash::NamedCapture::FIRSTKEY &Tie::Hash::NamedCapture::NEXTKEY &Tie::Hash::NamedCapture::SCALAR &Tie::Hash::NamedCapture::flags ])]; if (defined $Devel::Cover::VERSION) { push @$default_share, '&Devel::Cover::use_file'; } sub new { my($class, $root, $mask) = @_; my $obj = {}; bless $obj, $class; if (defined($root)) { croak "Can't use \"$root\" as root name" if $root =~ /^main\b/ or $root !~ /^\w[:\w]*$/; $obj->{Root} = $root; $obj->{Erase} = 0; } else { $obj->{Root} = "Safe::Root".$default_root++; $obj->{Erase} = 1; } # use permit/deny methods instead till interface issues resolved # XXX perhaps new Safe 'Root', mask => $mask, foo => bar, ...; croak "Mask parameter to new no longer supported" if defined $mask; $obj->permit_only(':default'); # We must share $_ and @_ with the compartment or else ops such # as split, length and so on won't default to $_ properly, nor # will passing argument to subroutines work (via @_). In fact, # for reasons I don't completely understand, we need to share # the whole glob *_ rather than $_ and @_ separately, otherwise # @_ in non default packages within the compartment don't work. $obj->share_from('main', $default_share); Opcode::_safe_pkg_prep($obj->{Root}) if($Opcode::VERSION > 1.04); return $obj; } sub DESTROY { my $obj = shift; $obj->erase('DESTROY') if $obj->{Erase}; } sub erase { my ($obj, $action) = @_; my $pkg = $obj->root(); my ($stem, $leaf); no strict 'refs'; $pkg = "main::$pkg\::"; # expand to full symbol table name ($stem, $leaf) = $pkg =~ m/(.*::)(\w+::)$/; # The 'my $foo' is needed! Without it you get an # 'Attempt to free unreferenced scalar' warning! my $stem_symtab = *{$stem}{HASH}; #warn "erase($pkg) stem=$stem, leaf=$leaf"; #warn " stem_symtab hash ".scalar(%$stem_symtab)."\n"; # ", join(', ', %$stem_symtab),"\n"; # delete $stem_symtab->{$leaf}; my $leaf_glob = $stem_symtab->{$leaf}; my $leaf_symtab = *{$leaf_glob}{HASH}; # warn " leaf_symtab ", join(', ', %$leaf_symtab),"\n"; %$leaf_symtab = (); #delete $leaf_symtab->{'__ANON__'}; #delete $leaf_symtab->{'foo'}; #delete $leaf_symtab->{'main::'}; # my $foo = undef ${"$stem\::"}{"$leaf\::"}; if ($action and $action eq 'DESTROY') { delete $stem_symtab->{$leaf}; } else { $obj->share_from('main', $default_share); } 1; } sub reinit { my $obj= shift; $obj->erase; $obj->share_redo; } sub root { my $obj = shift; croak("Safe root method now read-only") if @_; return $obj->{Root}; } sub mask { my $obj = shift; return $obj->{Mask} unless @_; $obj->deny_only(@_); } # v1 compatibility methods sub trap { shift->deny(@_) } sub untrap { shift->permit(@_) } sub deny { my $obj = shift; $obj->{Mask} |= opset(@_); } sub deny_only { my $obj = shift; $obj->{Mask} = opset(@_); } sub permit { my $obj = shift; # XXX needs testing $obj->{Mask} &= invert_opset opset(@_); } sub permit_only { my $obj = shift; $obj->{Mask} = invert_opset opset(@_); } sub dump_mask { my $obj = shift; print opset_to_hex($obj->{Mask}),"\n"; } sub share { my($obj, @vars) = @_; $obj->share_from(scalar(caller), \@vars); } sub share_from { my $obj = shift; my $pkg = shift; my $vars = shift; my $no_record = shift || 0; my $root = $obj->root(); croak("vars not an array ref") unless ref $vars eq 'ARRAY'; no strict 'refs'; # Check that 'from' package actually exists croak("Package \"$pkg\" does not exist") unless keys %{"$pkg\::"}; my $arg; foreach $arg (@$vars) { # catch some $safe->share($var) errors: my ($var, $type); $type = $1 if ($var = $arg) =~ s/^(\W)//; # warn "share_from $pkg $type $var"; for (1..2) { # assign twice to avoid any 'used once' warnings *{$root."::$var"} = (!$type) ? \&{$pkg."::$var"} : ($type eq '&') ? \&{$pkg."::$var"} : ($type eq '$') ? \${$pkg."::$var"} : ($type eq '@') ? \@{$pkg."::$var"} : ($type eq '%') ? \%{$pkg."::$var"} : ($type eq '*') ? *{$pkg."::$var"} : croak(qq(Can't share "$type$var" of unknown type)); } } $obj->share_record($pkg, $vars) unless $no_record or !$vars; } sub share_record { my $obj = shift; my $pkg = shift; my $vars = shift; my $shares = \%{$obj->{Shares} ||= {}}; # Record shares using keys of $obj->{Shares}. See reinit. @{$shares}{@$vars} = ($pkg) x @$vars if @$vars; } sub share_redo { my $obj = shift; my $shares = \%{$obj->{Shares} ||= {}}; my($var, $pkg); while(($var, $pkg) = each %$shares) { # warn "share_redo $pkg\:: $var"; $obj->share_from($pkg, [ $var ], 1); } } sub share_forget { delete shift->{Shares}; } sub varglob { my ($obj, $var) = @_; no strict 'refs'; return *{$obj->root()."::$var"}; } sub _clean_stash { my ($root, $saved_refs) = @_; $saved_refs ||= []; no strict 'refs'; foreach my $hook (qw(DESTROY AUTOLOAD), grep /^\(/, keys %$root) { push @$saved_refs, \*{$root.$hook}; delete ${$root}{$hook}; } for (grep /::$/, keys %$root) { next if \%{$root.$_} eq \%$root; _clean_stash($root.$_, $saved_refs); } } sub reval { my ($obj, $expr, $strict) = @_; die "Bad Safe object" unless $obj->isa('Safe'); my $root = $obj->{Root}; my $evalsub = lexless_anon_sub($root, $strict, $expr); # propagate context my $sg = sub_generation(); my @subret; if (defined wantarray) { @subret = (wantarray) ? Opcode::_safe_call_sv($root, $obj->{Mask}, $evalsub) : scalar Opcode::_safe_call_sv($root, $obj->{Mask}, $evalsub); } else { Opcode::_safe_call_sv($root, $obj->{Mask}, $evalsub); } _clean_stash($root.'::') if $sg != sub_generation(); $obj->wrap_code_refs_within(@subret); return (wantarray) ? @subret : $subret[0]; } my %OID; sub wrap_code_refs_within { my $obj = shift; %OID = (); $obj->_find_code_refs('wrap_code_ref', @_); } sub _find_code_refs { my $obj = shift; my $visitor = shift; for my $item (@_) { my $reftype = $item && reftype $item or next; # skip references already seen next if ++$OID{refaddr $item} > 1; if ($reftype eq 'ARRAY') { $obj->_find_code_refs($visitor, @$item); } elsif ($reftype eq 'HASH') { $obj->_find_code_refs($visitor, values %$item); } # XXX GLOBs? elsif ($reftype eq 'CODE') { $item = $obj->$visitor($item); } } } sub wrap_code_ref { my ($obj, $sub) = @_; die "Bad safe object" unless $obj->isa('Safe'); # wrap code ref $sub with _safe_call_sv so that, when called, the # execution will happen with the compartment fully 'in effect'. croak "Not a CODE reference" if reftype $sub ne 'CODE'; my $ret = sub { my @args = @_; # lexical to close over my $sub_with_args = sub { $sub->(@args) }; my @subret; my $error; do { local $@; # needed due to perl_call_sv(sv, G_EVAL|G_KEEPERR) my $sg = sub_generation(); @subret = (wantarray) ? Opcode::_safe_call_sv($obj->{Root}, $obj->{Mask}, $sub_with_args) : scalar Opcode::_safe_call_sv($obj->{Root}, $obj->{Mask}, $sub_with_args); $error = $@; _clean_stash($obj->{Root}.'::') if $sg != sub_generation(); }; if ($error) { # rethrow exception $error =~ s/\t\(in cleanup\) //; # prefix added by G_KEEPERR die $error; } return (wantarray) ? @subret : $subret[0]; }; return $ret; } sub rdo { my ($obj, $file) = @_; die "Bad Safe object" unless $obj->isa('Safe'); my $root = $obj->{Root}; my $sg = sub_generation(); my $evalsub = eval sprintf('package %s; sub { @_ = (); do $file }', $root); my @subret = (wantarray) ? Opcode::_safe_call_sv($root, $obj->{Mask}, $evalsub) : scalar Opcode::_safe_call_sv($root, $obj->{Mask}, $evalsub); _clean_stash($root.'::') if $sg != sub_generation(); $obj->wrap_code_refs_within(@subret); return (wantarray) ? @subret : $subret[0]; } 1; __END__ =head1 NAME Safe - Compile and execute code in restricted compartments =head1 SYNOPSIS use Safe; $compartment = new Safe; $compartment->permit(qw(time sort :browse)); $result = $compartment->reval($unsafe_code); =head1 DESCRIPTION The Safe extension module allows the creation of compartments in which perl code can be evaluated. Each compartment has =over 8 =item a new namespace The "root" of the namespace (i.e. "main::") is changed to a different package and code evaluated in the compartment cannot refer to variables outside this namespace, even with run-time glob lookups and other tricks. Code which is compiled outside the compartment can choose to place variables into (or I<share> variables with) the compartment's namespace and only that data will be visible to code evaluated in the compartment. By default, the only variables shared with compartments are the "underscore" variables $_ and @_ (and, technically, the less frequently used %_, the _ filehandle and so on). This is because otherwise perl operators which default to $_ will not work and neither will the assignment of arguments to @_ on subroutine entry. =item an operator mask Each compartment has an associated "operator mask". Recall that perl code is compiled into an internal format before execution. Evaluating perl code (e.g. via "eval" or "do 'file'") causes the code to be compiled into an internal format and then, provided there was no error in the compilation, executed. Code evaluated in a compartment compiles subject to the compartment's operator mask. Attempting to evaluate code in a compartment which contains a masked operator will cause the compilation to fail with an error. The code will not be executed. The default operator mask for a newly created compartment is the ':default' optag. It is important that you read the L<Opcode> module documentation for more information, especially for detailed definitions of opnames, optags and opsets. Since it is only at the compilation stage that the operator mask applies, controlled access to potentially unsafe operations can be achieved by having a handle to a wrapper subroutine (written outside the compartment) placed into the compartment. For example, $cpt = new Safe; sub wrapper { # vet arguments and perform potentially unsafe operations } $cpt->share('&wrapper'); =back =head1 WARNING The Safe module does not implement an effective sandbox for evaluating untrusted code with the perl interpreter. Bugs in the perl interpreter that could be abused to bypass Safe restrictions are not treated as vulnerabilities. See L<perlsecpolicy> for additional information. The authors make B<no warranty>, implied or otherwise, about the suitability of this software for safety or security purposes. The authors shall not in any case be liable for special, incidental, consequential, indirect or other similar damages arising from the use of this software. Your mileage will vary. If in any doubt B<do not use it>. =head1 METHODS To create a new compartment, use $cpt = new Safe; Optional argument is (NAMESPACE), where NAMESPACE is the root namespace to use for the compartment (defaults to "Safe::Root0", incremented for each new compartment). Note that version 1.00 of the Safe module supported a second optional parameter, MASK. That functionality has been withdrawn pending deeper consideration. Use the permit and deny methods described below. The following methods can then be used on the compartment object returned by the above constructor. The object argument is implicit in each case. =head2 permit (OP, ...) Permit the listed operators to be used when compiling code in the compartment (in I<addition> to any operators already permitted). You can list opcodes by names, or use a tag name; see L<Opcode/"Predefined Opcode Tags">. =head2 permit_only (OP, ...) Permit I<only> the listed operators to be used when compiling code in the compartment (I<no> other operators are permitted). =head2 deny (OP, ...) Deny the listed operators from being used when compiling code in the compartment (other operators may still be permitted). =head2 deny_only (OP, ...) Deny I<only> the listed operators from being used when compiling code in the compartment (I<all> other operators will be permitted, so you probably don't want to use this method). =head2 trap (OP, ...), untrap (OP, ...) The trap and untrap methods are synonyms for deny and permit respectfully. =head2 share (NAME, ...) This shares the variable(s) in the argument list with the compartment. This is almost identical to exporting variables using the L<Exporter> module. Each NAME must be the B<name> of a non-lexical variable, typically with the leading type identifier included. A bareword is treated as a function name. Examples of legal names are '$foo' for a scalar, '@foo' for an array, '%foo' for a hash, '&foo' or 'foo' for a subroutine and '*foo' for a glob (i.e. all symbol table entries associated with "foo", including scalar, array, hash, sub and filehandle). Each NAME is assumed to be in the calling package. See share_from for an alternative method (which C<share> uses). =head2 share_from (PACKAGE, ARRAYREF) This method is similar to share() but allows you to explicitly name the package that symbols should be shared from. The symbol names (including type characters) are supplied as an array reference. $safe->share_from('main', [ '$foo', '%bar', 'func' ]); Names can include package names, which are relative to the specified PACKAGE. So these two calls have the same effect: $safe->share_from('Scalar::Util', [ 'reftype' ]); $safe->share_from('main', [ 'Scalar::Util::reftype' ]); =head2 varglob (VARNAME) This returns a glob reference for the symbol table entry of VARNAME in the package of the compartment. VARNAME must be the B<name> of a variable without any leading type marker. For example: ${$cpt->varglob('foo')} = "Hello world"; has the same effect as: $cpt = new Safe 'Root'; $Root::foo = "Hello world"; but avoids the need to know $cpt's package name. =head2 reval (STRING, STRICT) This evaluates STRING as perl code inside the compartment. The code can only see the compartment's namespace (as returned by the B<root> method). The compartment's root package appears to be the C<main::> package to the code inside the compartment. Any attempt by the code in STRING to use an operator which is not permitted by the compartment will cause an error (at run-time of the main program but at compile-time for the code in STRING). The error is of the form "'%s' trapped by operation mask...". If an operation is trapped in this way, then the code in STRING will not be executed. If such a trapped operation occurs or any other compile-time or return error, then $@ is set to the error message, just as with an eval(). If there is no error, then the method returns the value of the last expression evaluated, or a return statement may be used, just as with subroutines and B<eval()>. The context (list or scalar) is determined by the caller as usual. If the return value of reval() is (or contains) any code reference, those code references are wrapped to be themselves executed always in the compartment. See L</wrap_code_refs_within>. The formerly undocumented STRICT argument sets strictness: if true 'use strict;' is used, otherwise it uses 'no strict;'. B<Note>: if STRICT is omitted 'no strict;' is the default. Some points to note: If the entereval op is permitted then the code can use eval "..." to 'hide' code which might use denied ops. This is not a major problem since when the code tries to execute the eval it will fail because the opmask is still in effect. However this technique would allow clever, and possibly harmful, code to 'probe' the boundaries of what is possible. Any string eval which is executed by code executing in a compartment, or by code called from code executing in a compartment, will be eval'd in the namespace of the compartment. This is potentially a serious problem. Consider a function foo() in package pkg compiled outside a compartment but shared with it. Assume the compartment has a root package called 'Root'. If foo() contains an eval statement like eval '$foo = 1' then, normally, $pkg::foo will be set to 1. If foo() is called from the compartment (by whatever means) then instead of setting $pkg::foo, the eval will actually set $Root::pkg::foo. This can easily be demonstrated by using a module, such as the Socket module, which uses eval "..." as part of an AUTOLOAD function. You can 'use' the module outside the compartment and share an (autoloaded) function with the compartment. If an autoload is triggered by code in the compartment, or by any code anywhere that is called by any means from the compartment, then the eval in the Socket module's AUTOLOAD function happens in the namespace of the compartment. Any variables created or used by the eval'd code are now under the control of the code in the compartment. A similar effect applies to I<all> runtime symbol lookups in code called from a compartment but not compiled within it. =head2 rdo (FILENAME) This evaluates the contents of file FILENAME inside the compartment. It uses the same rules as perl's built-in C<do> to locate the file, poossibly using C<@INC>. See above documentation on the B<reval> method for further details. =head2 root (NAMESPACE) This method returns the name of the package that is the root of the compartment's namespace. Note that this behaviour differs from version 1.00 of the Safe module where the root module could be used to change the namespace. That functionality has been withdrawn pending deeper consideration. =head2 mask (MASK) This is a get-or-set method for the compartment's operator mask. With no MASK argument present, it returns the current operator mask of the compartment. With the MASK argument present, it sets the operator mask for the compartment (equivalent to calling the deny_only method). =head2 wrap_code_ref (CODEREF) Returns a reference to an anonymous subroutine that, when executed, will call CODEREF with the Safe compartment 'in effect'. In other words, with the package namespace adjusted and the opmask enabled. Note that the opmask doesn't affect the already compiled code, it only affects any I<further> compilation that the already compiled code may try to perform. This is particularly useful when applied to code references returned from reval(). (It also provides a kind of workaround for RT#60374: "Safe.pm sort {} bug with -Dusethreads". See L<https://rt.perl.org/rt3//Public/Bug/Display.html?id=60374> for I<much> more detail.) =head2 wrap_code_refs_within (...) Wraps any CODE references found within the arguments by replacing each with the result of calling L</wrap_code_ref> on the CODE reference. Any ARRAY or HASH references in the arguments are inspected recursively. Returns nothing. =head1 RISKS This section is just an outline of some of the things code in a compartment might do (intentionally or unintentionally) which can have an effect outside the compartment. =over 8 =item Memory Consuming all (or nearly all) available memory. =item CPU Causing infinite loops etc. =item Snooping Copying private information out of your system. Even something as simple as your user name is of value to others. Much useful information could be gleaned from your environment variables for example. =item Signals Causing signals (especially SIGFPE and SIGALARM) to affect your process. Setting up a signal handler will need to be carefully considered and controlled. What mask is in effect when a signal handler gets called? If a user can get an imported function to get an exception and call the user's signal handler, does that user's restricted mask get re-instated before the handler is called? Does an imported handler get called with its original mask or the user's one? =item State Changes Ops such as chdir obviously effect the process as a whole and not just the code in the compartment. Ops such as rand and srand have a similar but more subtle effect. =back =head1 AUTHOR Originally designed and implemented by Malcolm Beattie. Reworked to use the Opcode module and other changes added by Tim Bunce. Currently maintained by the Perl 5 Porters, <perl5-porters@perl.org>. =cut PK ! ���0 �0 5.34.0/autodie.pmnu �[��� package autodie; use 5.008; use strict; use warnings; use parent qw(Fatal); our $VERSION; # ABSTRACT: Replace functions with ones that succeed or die with lexical scope BEGIN { our $VERSION = '2.34'; # VERSION: Generated by DZP::OurPkg::Version } use constant ERROR_WRONG_FATAL => q{ Incorrect version of Fatal.pm loaded by autodie. The autodie pragma uses an updated version of Fatal to do its heavy lifting. We seem to have loaded Fatal version %s, which is probably the version that came with your version of Perl. However autodie needs version %s, which would have come bundled with autodie. You may be able to solve this problem by adding the following line of code to your main program, before any use of Fatal or autodie. use lib "%s"; }; # We have to check we've got the right version of Fatal before we # try to compile the rest of our code, lest we use a constant # that doesn't exist. BEGIN { # If we have the wrong Fatal, then we've probably loaded the system # one, not our own. Complain, and give a useful hint. ;) if (defined($Fatal::VERSION) and defined($VERSION) and $Fatal::VERSION ne $VERSION) { my $autodie_path = $INC{'autodie.pm'}; $autodie_path =~ s/autodie\.pm//; require Carp; Carp::croak sprintf( ERROR_WRONG_FATAL, $Fatal::VERSION, $VERSION, $autodie_path ); } } # When passing args to Fatal we want to keep the first arg # (our package) in place. Hence the splice. sub import { splice(@_,1,0,Fatal::LEXICAL_TAG); goto &Fatal::import; } sub unimport { splice(@_,1,0,Fatal::LEXICAL_TAG); goto &Fatal::unimport; } 1; __END__ =head1 NAME autodie - Replace functions with ones that succeed or die with lexical scope =head1 SYNOPSIS use autodie; # Recommended: implies 'use autodie qw(:default)' use autodie qw(:all); # Recommended more: defaults and system/exec. use autodie qw(open close); # open/close succeed or die open(my $fh, "<", $filename); # No need to check! { no autodie qw(open); # open failures won't die open(my $fh, "<", $filename); # Could fail silently! no autodie; # disable all autodies } print "Hello World" or die $!; # autodie DOESN'T check print! =head1 DESCRIPTION bIlujDI' yIchegh()Qo'; yIHegh()! It is better to die() than to return() in failure. -- Klingon programming proverb. The C<autodie> pragma provides a convenient way to replace functions that normally return false on failure with equivalents that throw an exception on failure. The C<autodie> pragma has I<lexical scope>, meaning that functions and subroutines altered with C<autodie> will only change their behaviour until the end of the enclosing block, file, or C<eval>. If C<system> is specified as an argument to C<autodie>, then it uses L<IPC::System::Simple> to do the heavy lifting. See the description of that module for more information. =head1 EXCEPTIONS Exceptions produced by the C<autodie> pragma are members of the L<autodie::exception> class. The preferred way to work with these exceptions under Perl 5.10 is as follows: eval { use autodie; open(my $fh, '<', $some_file); my @records = <$fh>; # Do things with @records... close($fh); }; if ($@ and $@->isa('autodie::exception')) { if ($@->matches('open')) { print "Error from open\n"; } if ($@->matches(':io' )) { print "Non-open, IO error."; } } elsif ($@) { # A non-autodie exception. } See L<autodie::exception> for further information on interrogating exceptions. =head1 CATEGORIES Autodie uses a simple set of categories to group together similar built-ins. Requesting a category type (starting with a colon) will enable autodie for all built-ins beneath that category. For example, requesting C<:file> will enable autodie for C<close>, C<fcntl>, C<open> and C<sysopen>. The categories are currently: :all :default :io read seek sysread sysseek syswrite :dbm dbmclose dbmopen :file binmode close chmod chown fcntl flock ioctl open sysopen truncate :filesys chdir closedir opendir link mkdir readlink rename rmdir symlink unlink :ipc kill pipe :msg msgctl msgget msgrcv msgsnd :semaphore semctl semget semop :shm shmctl shmget shmread :socket accept bind connect getsockopt listen recv send setsockopt shutdown socketpair :threads fork :system system exec Note that while the above category system is presently a strict hierarchy, this should not be assumed. A plain C<use autodie> implies C<use autodie qw(:default)>. Note that C<system> and C<exec> are not enabled by default. C<system> requires the optional L<IPC::System::Simple> module to be installed, and enabling C<system> or C<exec> will invalidate their exotic forms. See L</BUGS> below for more details. The syntax: use autodie qw(:1.994); allows the C<:default> list from a particular version to be used. This provides the convenience of using the default methods, but the surety that no behavioral changes will occur if the C<autodie> module is upgraded. C<autodie> can be enabled for all of Perl's built-ins, including C<system> and C<exec> with: use autodie qw(:all); =head1 FUNCTION SPECIFIC NOTES =head2 print The autodie pragma B<does not check calls to C<print>Z<>>. =head2 flock It is not considered an error for C<flock> to return false if it fails due to an C<EWOULDBLOCK> (or equivalent) condition. This means one can still use the common convention of testing the return value of C<flock> when called with the C<LOCK_NB> option: use autodie; if ( flock($fh, LOCK_EX | LOCK_NB) ) { # We have a lock } Autodying C<flock> will generate an exception if C<flock> returns false with any other error. =head2 system/exec The C<system> built-in is considered to have failed in the following circumstances: =over 4 =item * The command does not start. =item * The command is killed by a signal. =item * The command returns a non-zero exit value (but see below). =back On success, the autodying form of C<system> returns the I<exit value> rather than the contents of C<$?>. Additional allowable exit values can be supplied as an optional first argument to autodying C<system>: system( [ 0, 1, 2 ], $cmd, @args); # 0,1,2 are good exit values C<autodie> uses the L<IPC::System::Simple> module to change C<system>. See its documentation for further information. Applying C<autodie> to C<system> or C<exec> causes the exotic forms C<system { $cmd } @args > or C<exec { $cmd } @args> to be considered a syntax error until the end of the lexical scope. If you really need to use the exotic form, you can call C<CORE::system> or C<CORE::exec> instead, or use C<no autodie qw(system exec)> before calling the exotic form. =head1 GOTCHAS Functions called in list context are assumed to have failed if they return an empty list, or a list consisting only of a single undef element. Some builtins (e.g. C<chdir> or C<truncate>) has a call signature that cannot completely be represented with a Perl prototype. This means that some valid Perl code will be invalid under autodie. As an example: chdir(BAREWORD); Without autodie (and assuming BAREWORD is an open filehandle/dirhandle) this is a valid call to chdir. But under autodie, C<chdir> will behave like it had the prototype ";$" and thus BAREWORD will be a syntax error (under "use strict". Without strict, it will interpreted as a filename). =head1 DIAGNOSTICS =over 4 =item :void cannot be used with lexical scope The C<:void> option is supported in L<Fatal>, but not C<autodie>. To workaround this, C<autodie> may be explicitly disabled until the end of the current block with C<no autodie>. To disable autodie for only a single function (eg, open) use C<no autodie qw(open)>. C<autodie> performs no checking of called context to determine whether to throw an exception; the explicitness of error handling with C<autodie> is a deliberate feature. =item No user hints defined for %s You've insisted on hints for user-subroutines, either by pre-pending a C<!> to the subroutine name itself, or earlier in the list of arguments to C<autodie>. However the subroutine in question does not have any hints available. =back See also L<Fatal/DIAGNOSTICS>. =head1 Tips and Tricks =head2 Importing autodie into another namespace than "caller" It is possible to import autodie into a different namespace by using L<Import::Into>. However, you have to pass a "caller depth" (rather than a package name) for this to work correctly. =head1 BUGS "Used only once" warnings can be generated when C<autodie> or C<Fatal> is used with package filehandles (eg, C<FILE>). Scalar filehandles are strongly recommended instead. When using C<autodie> or C<Fatal> with user subroutines, the declaration of those subroutines must appear before the first use of C<Fatal> or C<autodie>, or have been exported from a module. Attempting to use C<Fatal> or C<autodie> on other user subroutines will result in a compile-time error. Due to a bug in Perl, C<autodie> may "lose" any format which has the same name as an autodying built-in or function. C<autodie> may not work correctly if used inside a file with a name that looks like a string eval, such as F<eval (3)>. =head2 autodie and string eval Due to the current implementation of C<autodie>, unexpected results may be seen when used near or with the string version of eval. I<None of these bugs exist when using block eval>. Under Perl 5.8 only, C<autodie> I<does not> propagate into string C<eval> statements, although it can be explicitly enabled inside a string C<eval>. Under Perl 5.10 only, using a string eval when C<autodie> is in effect can cause the autodie behaviour to leak into the surrounding scope. This can be worked around by using a C<no autodie> at the end of the scope to explicitly remove autodie's effects, or by avoiding the use of string eval. I<None of these bugs exist when using block eval>. The use of C<autodie> with block eval is considered good practice. =head2 REPORTING BUGS Please report bugs via the GitHub Issue Tracker at L<https://github.com/pjf/autodie/issues>. =head1 FEEDBACK If you find this module useful, please consider rating it on the CPAN Ratings service at L<http://cpanratings.perl.org/rate?distribution=autodie> . The module author loves to hear how C<autodie> has made your life better (or worse). Feedback can be sent to E<lt>pjf@perltraining.com.auE<gt>. =head1 AUTHOR Copyright 2008-2009, Paul Fenwick E<lt>pjf@perltraining.com.auE<gt> =head1 LICENSE This module is free software. You may distribute it under the same terms as Perl itself. =head1 SEE ALSO L<Fatal>, L<autodie::exception>, L<autodie::hints>, L<IPC::System::Simple> I<Perl tips, autodie> at L<http://perltraining.com.au/tips/2008-08-20.html> =head1 ACKNOWLEDGEMENTS Mark Reed and Roland Giersig -- Klingon translators. See the F<AUTHORS> file for full credits. The latest version of this file can be found at L<https://github.com/pjf/autodie/tree/master/AUTHORS> . =cut PK ! }�P* * 5.34.0/if.pmnu �[��� package if; use strict; our $VERSION = '0.0609'; sub work { my $method = shift() ? 'import' : 'unimport'; unless (@_ >= 2) { my $type = ($method eq 'import') ? 'use' : 'no'; die "Too few arguments to '$type if' (some code returning an empty list in list context?)" } return unless shift; # CONDITION my $p = $_[0]; # PACKAGE (my $file = "$p.pm") =~ s!::!/!g; require $file; # Works even if $_[0] is a keyword (like open) my $m = $p->can($method); goto &$m if $m; } sub import { shift; unshift @_, 1; goto &work } sub unimport { shift; unshift @_, 0; goto &work } 1; __END__ =head1 NAME if - C<use> a Perl module if a condition holds =head1 SYNOPSIS use if CONDITION, "MODULE", ARGUMENTS; no if CONDITION, "MODULE", ARGUMENTS; =head1 DESCRIPTION =head2 C<use if> The C<if> module is used to conditionally load another module. The construct: use if CONDITION, "MODULE", ARGUMENTS; ... will load C<MODULE> only if C<CONDITION> evaluates to true; it has no effect if C<CONDITION> evaluates to false. (The module name, assuming it contains at least one C<::>, must be quoted when C<'use strict "subs";'> is in effect.) If the CONDITION does evaluate to true, then the above line has the same effect as: use MODULE ARGUMENTS; For example, the F<Unicode::UCD> module's F<charinfo> function will use two functions from F<Unicode::Normalize> only if a certain condition is met: use if defined &DynaLoader::boot_DynaLoader, "Unicode::Normalize" => qw(getCombinClass NFD); Suppose you wanted C<ARGUMENTS> to be an empty list, I<i.e.>, to have the effect of: use MODULE (); You can't do this with the C<if> pragma; however, you can achieve exactly this effect, at compile time, with: BEGIN { require MODULE if CONDITION } =head2 C<no if> The C<no if> construct is mainly used to deactivate categories of warnings when those categories would produce superfluous output under specified versions of F<perl>. For example, the C<redundant> category of warnings was introduced in Perl-5.22. This warning flags certain instances of superfluous arguments to C<printf> and C<sprintf>. But if your code was running warnings-free on earlier versions of F<perl> and you don't care about C<redundant> warnings in more recent versions, you can call: use warnings; no if $] >= 5.022, q|warnings|, qw(redundant); my $test = { fmt => "%s", args => [ qw( x y ) ] }; my $result = sprintf $test->{fmt}, @{$test->{args}}; The C<no if> construct assumes that a module or pragma has correctly implemented an C<unimport()> method -- but most modules and pragmata have not. That explains why the C<no if> construct is of limited applicability. =head1 BUGS The current implementation does not allow specification of the required version of the module. =head1 SEE ALSO L<Module::Requires> can be used to conditionally load one or modules, with constraints based on the version of the module. Unlike C<if> though, L<Module::Requires> is not a core module. L<Module::Load::Conditional> provides a number of functions you can use to query what modules are available, and then load one or more of them at runtime. The L<provide> module from CPAN can be used to select one of several possible modules to load based on the version of Perl that is running. =head1 AUTHOR Ilya Zakharevich L<mailto:ilyaz@cpan.org>. =head1 COPYRIGHT AND LICENCE This software is copyright (c) 2002 by Ilya Zakharevich. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut PK ! r�TK� � 5.34.0/ok.pmnu �[��� package ok; our $VERSION = '1.302183'; use strict; use Test::More (); sub import { shift; if (@_) { goto &Test::More::pass if $_[0] eq 'ok'; goto &Test::More::use_ok; } # No argument list - croak as if we are prototyped like use_ok() my (undef, $file, $line) = caller(); ($file =~ /^\(eval/) or die "Not enough arguments for 'use ok' at $file line $line\n"; } __END__ =encoding UTF-8 =head1 NAME ok - Alternative to Test::More::use_ok =head1 SYNOPSIS use ok 'Some::Module'; =head1 DESCRIPTION With this module, simply change all C<use_ok> in test scripts to C<use ok>, and they will be executed at C<BEGIN> time. Please see L<Test::use::ok> for the full description. =head1 CC0 1.0 Universal To the extent possible under law, 唐鳳 has waived all copyright and related or neighboring rights to L<Test-use-ok>. This work is published from Taiwan. L<http://creativecommons.org/publicdomain/zero/1.0> =cut PK ! ���CvW vW 5.34.0/CPAN/Module.pmnu �[��� # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- # vim: ts=4 sts=4 sw=4: package CPAN::Module; use strict; @CPAN::Module::ISA = qw(CPAN::InfoObj); use vars qw( $VERSION ); $VERSION = "5.5003"; BEGIN { # alarm() is not implemented in perl 5.6.x and earlier under Windows *ALARM_IMPLEMENTED = sub () { $] >= 5.007 || $^O !~ /MSWin/ }; } # Accessors #-> sub CPAN::Module::userid sub userid { my $self = shift; my $ro = $self->ro; return unless $ro; return $ro->{userid} || $ro->{CPAN_USERID}; } #-> sub CPAN::Module::description sub description { my $self = shift; my $ro = $self->ro or return ""; $ro->{description} } #-> sub CPAN::Module::distribution sub distribution { my($self) = @_; CPAN::Shell->expand("Distribution",$self->cpan_file); } #-> sub CPAN::Module::_is_representative_module sub _is_representative_module { my($self) = @_; return $self->{_is_representative_module} if defined $self->{_is_representative_module}; my $pm = $self->cpan_file or return $self->{_is_representative_module} = 0; $pm =~ s|.+/||; $pm =~ s{\.(?:tar\.(bz2|gz|Z)|t(?:gz|bz)|zip)$}{}i; # see base_id $pm =~ s|-\d+\.\d+.+$||; $pm =~ s|-[\d\.]+$||; $pm =~ s/-/::/g; $self->{_is_representative_module} = $pm eq $self->{ID} ? 1 : 0; # warn "DEBUG: $pm eq $self->{ID} => $self->{_is_representative_module}"; $self->{_is_representative_module}; } #-> sub CPAN::Module::undelay sub undelay { my $self = shift; delete $self->{later}; if ( my $dist = CPAN::Shell->expand("Distribution", $self->cpan_file) ) { $dist->undelay; } } # mark as dirty/clean #-> sub CPAN::Module::color_cmd_tmps ; sub color_cmd_tmps { my($self) = shift; my($depth) = shift || 0; my($color) = shift || 0; my($ancestors) = shift || []; # a module needs to recurse to its cpan_file return if exists $self->{incommandcolor} && $color==1 && $self->{incommandcolor}==$color; return if $color==0 && !$self->{incommandcolor}; if ($color>=1) { if ( $self->uptodate ) { $self->{incommandcolor} = $color; return; } elsif (my $have_version = $self->available_version) { # maybe what we have is good enough if (@$ancestors) { my $who_asked_for_me = $ancestors->[-1]; my $obj = CPAN::Shell->expandany($who_asked_for_me); if (0) { } elsif ($obj->isa("CPAN::Bundle")) { # bundles cannot specify a minimum version return; } elsif ($obj->isa("CPAN::Distribution")) { if (my $prereq_pm = $obj->prereq_pm) { for my $k (keys %$prereq_pm) { if (my $want_version = $prereq_pm->{$k}{$self->id}) { if (CPAN::Version->vcmp($have_version,$want_version) >= 0) { $self->{incommandcolor} = $color; return; } } } } } } } } else { $self->{incommandcolor} = $color; # set me before recursion, # so we can break it } if ($depth>=$CPAN::MAX_RECURSION) { my $e = CPAN::Exception::RecursiveDependency->new($ancestors); if ($e->is_resolvable) { return $self->{incommandcolor}=2; } else { die $e; } } # warn "color_cmd_tmps $depth $color " . $self->id; # sleep 1; if ( my $dist = CPAN::Shell->expand("Distribution", $self->cpan_file) ) { $dist->color_cmd_tmps($depth+1,$color,[@$ancestors, $self->id]); } # unreached code? # if ($color==0) { # delete $self->{badtestcnt}; # } $self->{incommandcolor} = $color; } #-> sub CPAN::Module::as_glimpse ; sub as_glimpse { my($self) = @_; my(@m); my $class = ref($self); $class =~ s/^CPAN:://; my $color_on = ""; my $color_off = ""; if ( $CPAN::Shell::COLOR_REGISTERED && $CPAN::META->has_inst("Term::ANSIColor") && $self->description ) { $color_on = Term::ANSIColor::color("green"); $color_off = Term::ANSIColor::color("reset"); } my $uptodateness = " "; unless ($class eq "Bundle") { my $u = $self->uptodate; $uptodateness = $u ? "=" : "<" if defined $u; }; my $id = do { my $d = $self->distribution; $d ? $d -> pretty_id : $self->cpan_userid; }; push @m, sprintf("%-7s %1s %s%-22s%s (%s)\n", $class, $uptodateness, $color_on, $self->id, $color_off, $id, ); join "", @m; } #-> sub CPAN::Module::dslip_status sub dslip_status { my($self) = @_; my($stat); # development status @{$stat->{D}}{qw,i c a b R M S,} = qw,idea pre-alpha alpha beta released mature standard,; # support level @{$stat->{S}}{qw,m d u n a,} = qw,mailing-list developer comp.lang.perl.* none abandoned,; # language @{$stat->{L}}{qw,p c + o h,} = qw,perl C C++ other hybrid,; # interface @{$stat->{I}}{qw,f r O p h n,} = qw,functions references+ties object-oriented pragma hybrid none,; # public licence @{$stat->{P}}{qw,p g l b a 2 o d r n,} = qw,Standard-Perl GPL LGPL BSD Artistic Artistic_2 open-source distribution_allowed restricted_distribution no_licence,; for my $x (qw(d s l i p)) { $stat->{$x}{' '} = 'unknown'; $stat->{$x}{'?'} = 'unknown'; } my $ro = $self->ro; return +{} unless $ro && $ro->{statd}; return { D => $ro->{statd}, S => $ro->{stats}, L => $ro->{statl}, I => $ro->{stati}, P => $ro->{statp}, DV => $stat->{D}{$ro->{statd}}, SV => $stat->{S}{$ro->{stats}}, LV => $stat->{L}{$ro->{statl}}, IV => $stat->{I}{$ro->{stati}}, PV => $stat->{P}{$ro->{statp}}, }; } #-> sub CPAN::Module::as_string ; sub as_string { my($self) = @_; my(@m); CPAN->debug("$self entering as_string") if $CPAN::DEBUG; my $class = ref($self); $class =~ s/^CPAN:://; local($^W) = 0; push @m, $class, " id = $self->{ID}\n"; my $sprintf = " %-12s %s\n"; push @m, sprintf($sprintf, 'DESCRIPTION', $self->description) if $self->description; my $sprintf2 = " %-12s %s (%s)\n"; my($userid); $userid = $self->userid; if ( $userid ) { my $author; if ($author = CPAN::Shell->expand('Author',$userid)) { my $email = ""; my $m; # old perls if ($m = $author->email) { $email = " <$m>"; } push @m, sprintf( $sprintf2, 'CPAN_USERID', $userid, $author->fullname . $email ); } } push @m, sprintf($sprintf, 'CPAN_VERSION', $self->cpan_version) if $self->cpan_version; if (my $cpan_file = $self->cpan_file) { push @m, sprintf($sprintf, 'CPAN_FILE', $cpan_file); if (my $dist = CPAN::Shell->expand("Distribution",$cpan_file)) { my $upload_date = $dist->upload_date; if ($upload_date) { push @m, sprintf($sprintf, 'UPLOAD_DATE', $upload_date); } } } my $sprintf3 = " %-12s %1s%1s%1s%1s%1s (%s,%s,%s,%s,%s)\n"; my $dslip = $self->dslip_status; push @m, sprintf( $sprintf3, 'DSLIP_STATUS', @{$dslip}{qw(D S L I P DV SV LV IV PV)}, ) if $dslip->{D}; my $local_file = $self->inst_file; unless ($self->{MANPAGE}) { my $manpage; if ($local_file) { $manpage = $self->manpage_headline($local_file); } else { # If we have already untarred it, we should look there my $dist = $CPAN::META->instance('CPAN::Distribution', $self->cpan_file); # warn "dist[$dist]"; # mff=manifest file; mfh=manifest handle my($mff,$mfh); if ( $dist->{build_dir} and (-f ($mff = File::Spec->catfile($dist->{build_dir}, "MANIFEST"))) and $mfh = FileHandle->new($mff) ) { CPAN->debug("mff[$mff]") if $CPAN::DEBUG; my $lfre = $self->id; # local file RE $lfre =~ s/::/./g; $lfre .= "\\.pm\$"; my($lfl); # local file file local $/ = "\n"; my(@mflines) = <$mfh>; for (@mflines) { s/^\s+//; s/\s.*//s; } while (length($lfre)>5 and !$lfl) { ($lfl) = grep /$lfre/, @mflines; CPAN->debug("lfl[$lfl]lfre[$lfre]") if $CPAN::DEBUG; $lfre =~ s/.+?\.//; } $lfl =~ s/\s.*//; # remove comments $lfl =~ s/\s+//g; # chomp would maybe be too system-specific my $lfl_abs = File::Spec->catfile($dist->{build_dir},$lfl); # warn "lfl_abs[$lfl_abs]"; if (-f $lfl_abs) { $manpage = $self->manpage_headline($lfl_abs); } } } $self->{MANPAGE} = $manpage if $manpage; } my($item); for $item (qw/MANPAGE/) { push @m, sprintf($sprintf, $item, $self->{$item}) if exists $self->{$item}; } for $item (qw/CONTAINS/) { push @m, sprintf($sprintf, $item, join(" ",@{$self->{$item}})) if exists $self->{$item} && @{$self->{$item}}; } push @m, sprintf($sprintf, 'INST_FILE', $local_file || "(not installed)"); push @m, sprintf($sprintf, 'INST_VERSION', $self->inst_version) if $local_file; if (%{$CPAN::META->{is_tested}||{}}) { # XXX needs to be methodified somehow my $available_file = $self->available_file; if ($available_file && $available_file ne $local_file) { push @m, sprintf($sprintf, 'AVAILABLE_FILE', $available_file); push @m, sprintf($sprintf, 'AVAILABLE_VERSION', $self->available_version); } } join "", @m, "\n"; } #-> sub CPAN::Module::manpage_headline sub manpage_headline { my($self,$local_file) = @_; my(@local_file) = $local_file; $local_file =~ s/\.pm(?!\n)\Z/.pod/; push @local_file, $local_file; my(@result,$locf); for $locf (@local_file) { next unless -f $locf; my $fh = FileHandle->new($locf) or $Carp::Frontend->mydie("Couldn't open $locf: $!"); my $inpod = 0; local $/ = "\n"; while (<$fh>) { $inpod = m/^=(?!head1\s+NAME\s*$)/ ? 0 : m/^=head1\s+NAME\s*$/ ? 1 : $inpod; next unless $inpod; next if /^=/; next if /^\s+$/; chomp; push @result, $_; } close $fh; last if @result; } for (@result) { s/^\s+//; s/\s+$//; } join " ", @result; } #-> sub CPAN::Module::cpan_file ; # Note: also inherited by CPAN::Bundle sub cpan_file { my $self = shift; # CPAN->debug(sprintf "id[%s]", $self->id) if $CPAN::DEBUG; unless ($self->ro) { CPAN::Index->reload; } my $ro = $self->ro; if ($ro && defined $ro->{CPAN_FILE}) { return $ro->{CPAN_FILE}; } else { my $userid = $self->userid; if ( $userid ) { if ($CPAN::META->exists("CPAN::Author",$userid)) { my $author = $CPAN::META->instance("CPAN::Author", $userid); my $fullname = $author->fullname; my $email = $author->email; unless (defined $fullname && defined $email) { return sprintf("Contact Author %s", $userid, ); } return "Contact Author $fullname <$email>"; } else { return "Contact Author $userid (Email address not available)"; } } else { return "N/A"; } } } #-> sub CPAN::Module::cpan_version ; sub cpan_version { my $self = shift; my $ro = $self->ro; unless ($ro) { # Can happen with modules that are not on CPAN $ro = {}; } $ro->{CPAN_VERSION} = 'undef' unless defined $ro->{CPAN_VERSION}; $ro->{CPAN_VERSION}; } #-> sub CPAN::Module::force ; sub force { my($self) = @_; $self->{force_update} = 1; } #-> sub CPAN::Module::fforce ; sub fforce { my($self) = @_; $self->{force_update} = 2; } #-> sub CPAN::Module::notest ; sub notest { my($self) = @_; # $CPAN::Frontend->mywarn("XDEBUG: set notest for Module"); $self->{notest}++; } #-> sub CPAN::Module::rematein ; sub rematein { my($self,$meth) = @_; $CPAN::Frontend->myprint(sprintf("Running %s for module '%s'\n", $meth, $self->id)); my $cpan_file = $self->cpan_file; if ($cpan_file eq "N/A" || $cpan_file =~ /^Contact Author/) { $CPAN::Frontend->mywarn(sprintf qq{ The module %s isn\'t available on CPAN. Either the module has not yet been uploaded to CPAN, or it is temporary unavailable. Please contact the author to find out more about the status. Try 'i %s'. }, $self->id, $self->id, ); return; } my $pack = $CPAN::META->instance('CPAN::Distribution',$cpan_file); $pack->called_for($self->id); if (exists $self->{force_update}) { if ($self->{force_update} == 2) { $pack->fforce($meth); } else { $pack->force($meth); } } $pack->notest($meth) if exists $self->{notest} && $self->{notest}; $pack->{reqtype} ||= ""; CPAN->debug("dist-reqtype[$pack->{reqtype}]". "self-reqtype[$self->{reqtype}]") if $CPAN::DEBUG; if ($pack->{reqtype}) { if ($pack->{reqtype} eq "b" && $self->{reqtype} =~ /^[rc]$/) { $pack->{reqtype} = $self->{reqtype}; if ( exists $pack->{install} && ( UNIVERSAL::can($pack->{install},"failed") ? $pack->{install}->failed : $pack->{install} =~ /^NO/ ) ) { delete $pack->{install}; $CPAN::Frontend->mywarn ("Promoting $pack->{ID} from 'build_requires' to 'requires'"); } } } else { $pack->{reqtype} = $self->{reqtype}; } my $success = eval { $pack->$meth(); }; my $err = $@; $pack->unforce if $pack->can("unforce") && exists $self->{force_update}; $pack->unnotest if $pack->can("unnotest") && exists $self->{notest}; delete $self->{force_update}; delete $self->{notest}; if ($err) { die $err; } return $success; } #-> sub CPAN::Module::perldoc ; sub perldoc { shift->rematein('perldoc') } #-> sub CPAN::Module::readme ; sub readme { shift->rematein('readme') } #-> sub CPAN::Module::look ; sub look { shift->rematein('look') } #-> sub CPAN::Module::cvs_import ; sub cvs_import { shift->rematein('cvs_import') } #-> sub CPAN::Module::get ; sub get { shift->rematein('get',@_) } #-> sub CPAN::Module::make ; sub make { shift->rematein('make') } #-> sub CPAN::Module::test ; sub test { my $self = shift; # $self->{badtestcnt} ||= 0; $self->rematein('test',@_); } #-> sub CPAN::Module::deprecated_in_core ; sub deprecated_in_core { my ($self) = @_; return unless $CPAN::META->has_inst('Module::CoreList') && Module::CoreList->can('is_deprecated'); return Module::CoreList::is_deprecated($self->{ID}); } #-> sub CPAN::Module::inst_deprecated; # Indicates whether the *installed* version of the module is a deprecated *and* # installed as part of the Perl core library path sub inst_deprecated { my ($self) = @_; my $inst_file = $self->inst_file or return; return $self->deprecated_in_core && $self->_in_priv_or_arch($inst_file); } #-> sub CPAN::Module::uptodate ; sub uptodate { my ($self) = @_; local ($_); my $inst = $self->inst_version or return 0; my $cpan = $self->cpan_version; return 0 if CPAN::Version->vgt($cpan,$inst) || $self->inst_deprecated; CPAN->debug (join ("", "returning uptodate. ", "cpan[$cpan]inst[$inst]", )) if $CPAN::DEBUG; return 1; } # returns true if installed in privlib or archlib sub _in_priv_or_arch { my($self,$inst_file) = @_; foreach my $pair ( [qw(sitearchexp archlibexp)], [qw(sitelibexp privlibexp)] ) { my ($site, $priv) = @Config::Config{@$pair}; if ($^O eq 'VMS') { for my $d ($site, $priv) { $d = VMS::Filespec::unixify($d) }; } s!/*$!!g foreach $site, $priv; next if $site eq $priv; if ($priv eq substr($inst_file,0,length($priv))) { return 1; } } return 0; } #-> sub CPAN::Module::install ; sub install { my($self) = @_; my($doit) = 0; if ($self->uptodate && not exists $self->{force_update} ) { $CPAN::Frontend->myprint(sprintf("%s is up to date (%s).\n", $self->id, $self->inst_version, )); } else { $doit = 1; } my $ro = $self->ro; if ($ro && $ro->{stats} && $ro->{stats} eq "a") { $CPAN::Frontend->mywarn(qq{ \n\n\n ***WARNING*** The module $self->{ID} has no active maintainer (CPAN support level flag 'abandoned').\n\n\n }); $CPAN::Frontend->mysleep(5); } return $doit ? $self->rematein('install') : 1; } #-> sub CPAN::Module::clean ; sub clean { shift->rematein('clean') } #-> sub CPAN::Module::inst_file ; sub inst_file { my($self) = @_; $self->_file_in_path([@INC]); } #-> sub CPAN::Module::available_file ; sub available_file { my($self) = @_; my $sep = $Config::Config{path_sep}; my $perllib = $ENV{PERL5LIB}; $perllib = $ENV{PERLLIB} unless defined $perllib; my @perllib = split(/$sep/,$perllib) if defined $perllib; my @cpan_perl5inc; if ($CPAN::Perl5lib_tempfile) { my $yaml = CPAN->_yaml_loadfile($CPAN::Perl5lib_tempfile); @cpan_perl5inc = @{$yaml->[0]{inc} || []}; } $self->_file_in_path([@cpan_perl5inc,@perllib,@INC]); } #-> sub CPAN::Module::file_in_path ; sub _file_in_path { my($self,$path) = @_; my($dir,@packpath); @packpath = split /::/, $self->{ID}; $packpath[-1] .= ".pm"; if (@packpath == 1 && $packpath[0] eq "readline.pm") { unshift @packpath, "Term", "ReadLine"; # historical reasons } foreach $dir (@$path) { my $pmfile = File::Spec->catfile($dir,@packpath); if (-f $pmfile) { return $pmfile; } } return; } #-> sub CPAN::Module::xs_file ; sub xs_file { my($self) = @_; my($dir,@packpath); @packpath = split /::/, $self->{ID}; push @packpath, $packpath[-1]; $packpath[-1] .= "." . $Config::Config{'dlext'}; foreach $dir (@INC) { my $xsfile = File::Spec->catfile($dir,'auto',@packpath); if (-f $xsfile) { return $xsfile; } } return; } #-> sub CPAN::Module::inst_version ; sub inst_version { my($self) = @_; my $parsefile = $self->inst_file or return; my $have = $self->parse_version($parsefile); $have; } #-> sub CPAN::Module::inst_version ; sub available_version { my($self) = @_; my $parsefile = $self->available_file or return; my $have = $self->parse_version($parsefile); $have; } #-> sub CPAN::Module::parse_version ; sub parse_version { my($self,$parsefile) = @_; if (ALARM_IMPLEMENTED) { my $timeout = (exists($CPAN::Config{'version_timeout'})) ? $CPAN::Config{'version_timeout'} : 15; alarm($timeout); } my $have = eval { local $SIG{ALRM} = sub { die "alarm\n" }; MM->parse_version($parsefile); }; if ($@) { $CPAN::Frontend->mywarn("Error while parsing version number in file '$parsefile'\n"); } alarm(0) if ALARM_IMPLEMENTED; my $leastsanity = eval { defined $have && length $have; }; $have = "undef" unless $leastsanity; $have =~ s/^ //; # since the %vd hack these two lines here are needed $have =~ s/ $//; # trailing whitespace happens all the time $have = CPAN::Version->readable($have); $have =~ s/\s*//g; # stringify to float around floating point issues $have; # no stringify needed, \s* above matches always } #-> sub CPAN::Module::reports sub reports { my($self) = @_; $self->distribution->reports; } 1; PK ! �G*@v @v 5.34.0/CPAN/Meta.pmnu �[��� use 5.006; use strict; use warnings; package CPAN::Meta; our $VERSION = '2.150010'; #pod =head1 SYNOPSIS #pod #pod use v5.10; #pod use strict; #pod use warnings; #pod use CPAN::Meta; #pod use Module::Load; #pod #pod my $meta = CPAN::Meta->load_file('META.json'); #pod #pod printf "testing requirements for %s version %s\n", #pod $meta->name, #pod $meta->version; #pod #pod my $prereqs = $meta->effective_prereqs; #pod #pod for my $phase ( qw/configure runtime build test/ ) { #pod say "Requirements for $phase:"; #pod my $reqs = $prereqs->requirements_for($phase, "requires"); #pod for my $module ( sort $reqs->required_modules ) { #pod my $status; #pod if ( eval { load $module unless $module eq 'perl'; 1 } ) { #pod my $version = $module eq 'perl' ? $] : $module->VERSION; #pod $status = $reqs->accepts_module($module, $version) #pod ? "$version ok" : "$version not ok"; #pod } else { #pod $status = "missing" #pod }; #pod say " $module ($status)"; #pod } #pod } #pod #pod =head1 DESCRIPTION #pod #pod Software distributions released to the CPAN include a F<META.json> or, for #pod older distributions, F<META.yml>, which describes the distribution, its #pod contents, and the requirements for building and installing the distribution. #pod The data structure stored in the F<META.json> file is described in #pod L<CPAN::Meta::Spec>. #pod #pod CPAN::Meta provides a simple class to represent this distribution metadata (or #pod I<distmeta>), along with some helpful methods for interrogating that data. #pod #pod The documentation below is only for the methods of the CPAN::Meta object. For #pod information on the meaning of individual fields, consult the spec. #pod #pod =cut use Carp qw(carp croak); use CPAN::Meta::Feature; use CPAN::Meta::Prereqs; use CPAN::Meta::Converter; use CPAN::Meta::Validator; use Parse::CPAN::Meta 1.4414 (); BEGIN { *_dclone = \&CPAN::Meta::Converter::_dclone } #pod =head1 STRING DATA #pod #pod The following methods return a single value, which is the value for the #pod corresponding entry in the distmeta structure. Values should be either undef #pod or strings. #pod #pod =for :list #pod * abstract #pod * description #pod * dynamic_config #pod * generated_by #pod * name #pod * release_status #pod * version #pod #pod =cut BEGIN { my @STRING_READERS = qw( abstract description dynamic_config generated_by name release_status version ); no strict 'refs'; for my $attr (@STRING_READERS) { *$attr = sub { $_[0]{ $attr } }; } } #pod =head1 LIST DATA #pod #pod These methods return lists of string values, which might be represented in the #pod distmeta structure as arrayrefs or scalars: #pod #pod =for :list #pod * authors #pod * keywords #pod * licenses #pod #pod The C<authors> and C<licenses> methods may also be called as C<author> and #pod C<license>, respectively, to match the field name in the distmeta structure. #pod #pod =cut BEGIN { my @LIST_READERS = qw( author keywords license ); no strict 'refs'; for my $attr (@LIST_READERS) { *$attr = sub { my $value = $_[0]{ $attr }; croak "$attr must be called in list context" unless wantarray; return @{ _dclone($value) } if ref $value; return $value; }; } } sub authors { $_[0]->author } sub licenses { $_[0]->license } #pod =head1 MAP DATA #pod #pod These readers return hashrefs of arbitrary unblessed data structures, each #pod described more fully in the specification: #pod #pod =for :list #pod * meta_spec #pod * resources #pod * provides #pod * no_index #pod * prereqs #pod * optional_features #pod #pod =cut BEGIN { my @MAP_READERS = qw( meta-spec resources provides no_index prereqs optional_features ); no strict 'refs'; for my $attr (@MAP_READERS) { (my $subname = $attr) =~ s/-/_/; *$subname = sub { my $value = $_[0]{ $attr }; return _dclone($value) if $value; return {}; }; } } #pod =head1 CUSTOM DATA #pod #pod A list of custom keys are available from the C<custom_keys> method and #pod particular keys may be retrieved with the C<custom> method. #pod #pod say $meta->custom($_) for $meta->custom_keys; #pod #pod If a custom key refers to a data structure, a deep clone is returned. #pod #pod =cut sub custom_keys { return grep { /^x_/i } keys %{$_[0]}; } sub custom { my ($self, $attr) = @_; my $value = $self->{$attr}; return _dclone($value) if ref $value; return $value; } #pod =method new #pod #pod my $meta = CPAN::Meta->new($distmeta_struct, \%options); #pod #pod Returns a valid CPAN::Meta object or dies if the supplied metadata hash #pod reference fails to validate. Older-format metadata will be up-converted to #pod version 2 if they validate against the original stated specification. #pod #pod It takes an optional hashref of options. Valid options include: #pod #pod =over #pod #pod =item * #pod #pod lazy_validation -- if true, new will attempt to convert the given metadata #pod to version 2 before attempting to validate it. This means than any #pod fixable errors will be handled by CPAN::Meta::Converter before validation. #pod (Note that this might result in invalid optional data being silently #pod dropped.) The default is false. #pod #pod =back #pod #pod =cut sub _new { my ($class, $struct, $options) = @_; my $self; if ( $options->{lazy_validation} ) { # try to convert to a valid structure; if succeeds, then return it my $cmc = CPAN::Meta::Converter->new( $struct ); $self = $cmc->convert( version => 2 ); # valid or dies return bless $self, $class; } else { # validate original struct my $cmv = CPAN::Meta::Validator->new( $struct ); unless ( $cmv->is_valid) { die "Invalid metadata structure. Errors: " . join(", ", $cmv->errors) . "\n"; } } # up-convert older spec versions my $version = $struct->{'meta-spec'}{version} || '1.0'; if ( $version == 2 ) { $self = $struct; } else { my $cmc = CPAN::Meta::Converter->new( $struct ); $self = $cmc->convert( version => 2 ); } return bless $self, $class; } sub new { my ($class, $struct, $options) = @_; my $self = eval { $class->_new($struct, $options) }; croak($@) if $@; return $self; } #pod =method create #pod #pod my $meta = CPAN::Meta->create($distmeta_struct, \%options); #pod #pod This is same as C<new()>, except that C<generated_by> and C<meta-spec> fields #pod will be generated if not provided. This means the metadata structure is #pod assumed to otherwise follow the latest L<CPAN::Meta::Spec>. #pod #pod =cut sub create { my ($class, $struct, $options) = @_; my $version = __PACKAGE__->VERSION || 2; $struct->{generated_by} ||= __PACKAGE__ . " version $version" ; $struct->{'meta-spec'}{version} ||= int($version); my $self = eval { $class->_new($struct, $options) }; croak ($@) if $@; return $self; } #pod =method load_file #pod #pod my $meta = CPAN::Meta->load_file($distmeta_file, \%options); #pod #pod Given a pathname to a file containing metadata, this deserializes the file #pod according to its file suffix and constructs a new C<CPAN::Meta> object, just #pod like C<new()>. It will die if the deserialized version fails to validate #pod against its stated specification version. #pod #pod It takes the same options as C<new()> but C<lazy_validation> defaults to #pod true. #pod #pod =cut sub load_file { my ($class, $file, $options) = @_; $options->{lazy_validation} = 1 unless exists $options->{lazy_validation}; croak "load_file() requires a valid, readable filename" unless -r $file; my $self; eval { my $struct = Parse::CPAN::Meta->load_file( $file ); $self = $class->_new($struct, $options); }; croak($@) if $@; return $self; } #pod =method load_yaml_string #pod #pod my $meta = CPAN::Meta->load_yaml_string($yaml, \%options); #pod #pod This method returns a new CPAN::Meta object using the first document in the #pod given YAML string. In other respects it is identical to C<load_file()>. #pod #pod =cut sub load_yaml_string { my ($class, $yaml, $options) = @_; $options->{lazy_validation} = 1 unless exists $options->{lazy_validation}; my $self; eval { my ($struct) = Parse::CPAN::Meta->load_yaml_string( $yaml ); $self = $class->_new($struct, $options); }; croak($@) if $@; return $self; } #pod =method load_json_string #pod #pod my $meta = CPAN::Meta->load_json_string($json, \%options); #pod #pod This method returns a new CPAN::Meta object using the structure represented by #pod the given JSON string. In other respects it is identical to C<load_file()>. #pod #pod =cut sub load_json_string { my ($class, $json, $options) = @_; $options->{lazy_validation} = 1 unless exists $options->{lazy_validation}; my $self; eval { my $struct = Parse::CPAN::Meta->load_json_string( $json ); $self = $class->_new($struct, $options); }; croak($@) if $@; return $self; } #pod =method load_string #pod #pod my $meta = CPAN::Meta->load_string($string, \%options); #pod #pod If you don't know if a string contains YAML or JSON, this method will use #pod L<Parse::CPAN::Meta> to guess. In other respects it is identical to #pod C<load_file()>. #pod #pod =cut sub load_string { my ($class, $string, $options) = @_; $options->{lazy_validation} = 1 unless exists $options->{lazy_validation}; my $self; eval { my $struct = Parse::CPAN::Meta->load_string( $string ); $self = $class->_new($struct, $options); }; croak($@) if $@; return $self; } #pod =method save #pod #pod $meta->save($distmeta_file, \%options); #pod #pod Serializes the object as JSON and writes it to the given file. The only valid #pod option is C<version>, which defaults to '2'. On Perl 5.8.1 or later, the file #pod is saved with UTF-8 encoding. #pod #pod For C<version> 2 (or higher), the filename should end in '.json'. L<JSON::PP> #pod is the default JSON backend. Using another JSON backend requires L<JSON> 2.5 or #pod later and you must set the C<$ENV{PERL_JSON_BACKEND}> to a supported alternate #pod backend like L<JSON::XS>. #pod #pod For C<version> less than 2, the filename should end in '.yml'. #pod L<CPAN::Meta::Converter> is used to generate an older metadata structure, which #pod is serialized to YAML. CPAN::Meta::YAML is the default YAML backend. You may #pod set the C<$ENV{PERL_YAML_BACKEND}> to a supported alternative backend, though #pod this is not recommended due to subtle incompatibilities between YAML parsers on #pod CPAN. #pod #pod =cut sub save { my ($self, $file, $options) = @_; my $version = $options->{version} || '2'; my $layer = $] ge '5.008001' ? ':utf8' : ''; if ( $version ge '2' ) { carp "'$file' should end in '.json'" unless $file =~ m{\.json$}; } else { carp "'$file' should end in '.yml'" unless $file =~ m{\.yml$}; } my $data = $self->as_string( $options ); open my $fh, ">$layer", $file or die "Error opening '$file' for writing: $!\n"; print {$fh} $data; close $fh or die "Error closing '$file': $!\n"; return 1; } #pod =method meta_spec_version #pod #pod This method returns the version part of the C<meta_spec> entry in the distmeta #pod structure. It is equivalent to: #pod #pod $meta->meta_spec->{version}; #pod #pod =cut sub meta_spec_version { my ($self) = @_; return $self->meta_spec->{version}; } #pod =method effective_prereqs #pod #pod my $prereqs = $meta->effective_prereqs; #pod #pod my $prereqs = $meta->effective_prereqs( \@feature_identifiers ); #pod #pod This method returns a L<CPAN::Meta::Prereqs> object describing all the #pod prereqs for the distribution. If an arrayref of feature identifiers is given, #pod the prereqs for the identified features are merged together with the #pod distribution's core prereqs before the CPAN::Meta::Prereqs object is returned. #pod #pod =cut sub effective_prereqs { my ($self, $features) = @_; $features ||= []; my $prereq = CPAN::Meta::Prereqs->new($self->prereqs); return $prereq unless @$features; my @other = map {; $self->feature($_)->prereqs } @$features; return $prereq->with_merged_prereqs(\@other); } #pod =method should_index_file #pod #pod ... if $meta->should_index_file( $filename ); #pod #pod This method returns true if the given file should be indexed. It decides this #pod by checking the C<file> and C<directory> keys in the C<no_index> property of #pod the distmeta structure. Note that neither the version format nor #pod C<release_status> are considered. #pod #pod C<$filename> should be given in unix format. #pod #pod =cut sub should_index_file { my ($self, $filename) = @_; for my $no_index_file (@{ $self->no_index->{file} || [] }) { return if $filename eq $no_index_file; } for my $no_index_dir (@{ $self->no_index->{directory} }) { $no_index_dir =~ s{$}{/} unless $no_index_dir =~ m{/\z}; return if index($filename, $no_index_dir) == 0; } return 1; } #pod =method should_index_package #pod #pod ... if $meta->should_index_package( $package ); #pod #pod This method returns true if the given package should be indexed. It decides #pod this by checking the C<package> and C<namespace> keys in the C<no_index> #pod property of the distmeta structure. Note that neither the version format nor #pod C<release_status> are considered. #pod #pod =cut sub should_index_package { my ($self, $package) = @_; for my $no_index_pkg (@{ $self->no_index->{package} || [] }) { return if $package eq $no_index_pkg; } for my $no_index_ns (@{ $self->no_index->{namespace} }) { return if index($package, "${no_index_ns}::") == 0; } return 1; } #pod =method features #pod #pod my @feature_objects = $meta->features; #pod #pod This method returns a list of L<CPAN::Meta::Feature> objects, one for each #pod optional feature described by the distribution's metadata. #pod #pod =cut sub features { my ($self) = @_; my $opt_f = $self->optional_features; my @features = map {; CPAN::Meta::Feature->new($_ => $opt_f->{ $_ }) } keys %$opt_f; return @features; } #pod =method feature #pod #pod my $feature_object = $meta->feature( $identifier ); #pod #pod This method returns a L<CPAN::Meta::Feature> object for the optional feature #pod with the given identifier. If no feature with that identifier exists, an #pod exception will be raised. #pod #pod =cut sub feature { my ($self, $ident) = @_; croak "no feature named $ident" unless my $f = $self->optional_features->{ $ident }; return CPAN::Meta::Feature->new($ident, $f); } #pod =method as_struct #pod #pod my $copy = $meta->as_struct( \%options ); #pod #pod This method returns a deep copy of the object's metadata as an unblessed hash #pod reference. It takes an optional hashref of options. If the hashref contains #pod a C<version> argument, the copied metadata will be converted to the version #pod of the specification and returned. For example: #pod #pod my $old_spec = $meta->as_struct( {version => "1.4"} ); #pod #pod =cut sub as_struct { my ($self, $options) = @_; my $struct = _dclone($self); if ( $options->{version} ) { my $cmc = CPAN::Meta::Converter->new( $struct ); $struct = $cmc->convert( version => $options->{version} ); } return $struct; } #pod =method as_string #pod #pod my $string = $meta->as_string( \%options ); #pod #pod This method returns a serialized copy of the object's metadata as a character #pod string. (The strings are B<not> UTF-8 encoded.) It takes an optional hashref #pod of options. If the hashref contains a C<version> argument, the copied metadata #pod will be converted to the version of the specification and returned. For #pod example: #pod #pod my $string = $meta->as_string( {version => "1.4"} ); #pod #pod For C<version> greater than or equal to 2, the string will be serialized as #pod JSON. For C<version> less than 2, the string will be serialized as YAML. In #pod both cases, the same rules are followed as in the C<save()> method for choosing #pod a serialization backend. #pod #pod The serialized structure will include a C<x_serialization_backend> entry giving #pod the package and version used to serialize. Any existing key in the given #pod C<$meta> object will be clobbered. #pod #pod =cut sub as_string { my ($self, $options) = @_; my $version = $options->{version} || '2'; my $struct; if ( $self->meta_spec_version ne $version ) { my $cmc = CPAN::Meta::Converter->new( $self->as_struct ); $struct = $cmc->convert( version => $version ); } else { $struct = $self->as_struct; } my ($data, $backend); if ( $version ge '2' ) { $backend = Parse::CPAN::Meta->json_backend(); local $struct->{x_serialization_backend} = sprintf '%s version %s', $backend, $backend->VERSION; $data = $backend->new->pretty->canonical->encode($struct); } else { $backend = Parse::CPAN::Meta->yaml_backend(); local $struct->{x_serialization_backend} = sprintf '%s version %s', $backend, $backend->VERSION; $data = eval { no strict 'refs'; &{"$backend\::Dump"}($struct) }; if ( $@ ) { croak $backend->can('errstr') ? $backend->errstr : $@ } } return $data; } # Used by JSON::PP, etc. for "convert_blessed" sub TO_JSON { return { %{ $_[0] } }; } 1; # ABSTRACT: the distribution metadata for a CPAN dist =pod =encoding UTF-8 =head1 NAME CPAN::Meta - the distribution metadata for a CPAN dist =head1 VERSION version 2.150010 =head1 SYNOPSIS use v5.10; use strict; use warnings; use CPAN::Meta; use Module::Load; my $meta = CPAN::Meta->load_file('META.json'); printf "testing requirements for %s version %s\n", $meta->name, $meta->version; my $prereqs = $meta->effective_prereqs; for my $phase ( qw/configure runtime build test/ ) { say "Requirements for $phase:"; my $reqs = $prereqs->requirements_for($phase, "requires"); for my $module ( sort $reqs->required_modules ) { my $status; if ( eval { load $module unless $module eq 'perl'; 1 } ) { my $version = $module eq 'perl' ? $] : $module->VERSION; $status = $reqs->accepts_module($module, $version) ? "$version ok" : "$version not ok"; } else { $status = "missing" }; say " $module ($status)"; } } =head1 DESCRIPTION Software distributions released to the CPAN include a F<META.json> or, for older distributions, F<META.yml>, which describes the distribution, its contents, and the requirements for building and installing the distribution. The data structure stored in the F<META.json> file is described in L<CPAN::Meta::Spec>. CPAN::Meta provides a simple class to represent this distribution metadata (or I<distmeta>), along with some helpful methods for interrogating that data. The documentation below is only for the methods of the CPAN::Meta object. For information on the meaning of individual fields, consult the spec. =head1 METHODS =head2 new my $meta = CPAN::Meta->new($distmeta_struct, \%options); Returns a valid CPAN::Meta object or dies if the supplied metadata hash reference fails to validate. Older-format metadata will be up-converted to version 2 if they validate against the original stated specification. It takes an optional hashref of options. Valid options include: =over =item * lazy_validation -- if true, new will attempt to convert the given metadata to version 2 before attempting to validate it. This means than any fixable errors will be handled by CPAN::Meta::Converter before validation. (Note that this might result in invalid optional data being silently dropped.) The default is false. =back =head2 create my $meta = CPAN::Meta->create($distmeta_struct, \%options); This is same as C<new()>, except that C<generated_by> and C<meta-spec> fields will be generated if not provided. This means the metadata structure is assumed to otherwise follow the latest L<CPAN::Meta::Spec>. =head2 load_file my $meta = CPAN::Meta->load_file($distmeta_file, \%options); Given a pathname to a file containing metadata, this deserializes the file according to its file suffix and constructs a new C<CPAN::Meta> object, just like C<new()>. It will die if the deserialized version fails to validate against its stated specification version. It takes the same options as C<new()> but C<lazy_validation> defaults to true. =head2 load_yaml_string my $meta = CPAN::Meta->load_yaml_string($yaml, \%options); This method returns a new CPAN::Meta object using the first document in the given YAML string. In other respects it is identical to C<load_file()>. =head2 load_json_string my $meta = CPAN::Meta->load_json_string($json, \%options); This method returns a new CPAN::Meta object using the structure represented by the given JSON string. In other respects it is identical to C<load_file()>. =head2 load_string my $meta = CPAN::Meta->load_string($string, \%options); If you don't know if a string contains YAML or JSON, this method will use L<Parse::CPAN::Meta> to guess. In other respects it is identical to C<load_file()>. =head2 save $meta->save($distmeta_file, \%options); Serializes the object as JSON and writes it to the given file. The only valid option is C<version>, which defaults to '2'. On Perl 5.8.1 or later, the file is saved with UTF-8 encoding. For C<version> 2 (or higher), the filename should end in '.json'. L<JSON::PP> is the default JSON backend. Using another JSON backend requires L<JSON> 2.5 or later and you must set the C<$ENV{PERL_JSON_BACKEND}> to a supported alternate backend like L<JSON::XS>. For C<version> less than 2, the filename should end in '.yml'. L<CPAN::Meta::Converter> is used to generate an older metadata structure, which is serialized to YAML. CPAN::Meta::YAML is the default YAML backend. You may set the C<$ENV{PERL_YAML_BACKEND}> to a supported alternative backend, though this is not recommended due to subtle incompatibilities between YAML parsers on CPAN. =head2 meta_spec_version This method returns the version part of the C<meta_spec> entry in the distmeta structure. It is equivalent to: $meta->meta_spec->{version}; =head2 effective_prereqs my $prereqs = $meta->effective_prereqs; my $prereqs = $meta->effective_prereqs( \@feature_identifiers ); This method returns a L<CPAN::Meta::Prereqs> object describing all the prereqs for the distribution. If an arrayref of feature identifiers is given, the prereqs for the identified features are merged together with the distribution's core prereqs before the CPAN::Meta::Prereqs object is returned. =head2 should_index_file ... if $meta->should_index_file( $filename ); This method returns true if the given file should be indexed. It decides this by checking the C<file> and C<directory> keys in the C<no_index> property of the distmeta structure. Note that neither the version format nor C<release_status> are considered. C<$filename> should be given in unix format. =head2 should_index_package ... if $meta->should_index_package( $package ); This method returns true if the given package should be indexed. It decides this by checking the C<package> and C<namespace> keys in the C<no_index> property of the distmeta structure. Note that neither the version format nor C<release_status> are considered. =head2 features my @feature_objects = $meta->features; This method returns a list of L<CPAN::Meta::Feature> objects, one for each optional feature described by the distribution's metadata. =head2 feature my $feature_object = $meta->feature( $identifier ); This method returns a L<CPAN::Meta::Feature> object for the optional feature with the given identifier. If no feature with that identifier exists, an exception will be raised. =head2 as_struct my $copy = $meta->as_struct( \%options ); This method returns a deep copy of the object's metadata as an unblessed hash reference. It takes an optional hashref of options. If the hashref contains a C<version> argument, the copied metadata will be converted to the version of the specification and returned. For example: my $old_spec = $meta->as_struct( {version => "1.4"} ); =head2 as_string my $string = $meta->as_string( \%options ); This method returns a serialized copy of the object's metadata as a character string. (The strings are B<not> UTF-8 encoded.) It takes an optional hashref of options. If the hashref contains a C<version> argument, the copied metadata will be converted to the version of the specification and returned. For example: my $string = $meta->as_string( {version => "1.4"} ); For C<version> greater than or equal to 2, the string will be serialized as JSON. For C<version> less than 2, the string will be serialized as YAML. In both cases, the same rules are followed as in the C<save()> method for choosing a serialization backend. The serialized structure will include a C<x_serialization_backend> entry giving the package and version used to serialize. Any existing key in the given C<$meta> object will be clobbered. =head1 STRING DATA The following methods return a single value, which is the value for the corresponding entry in the distmeta structure. Values should be either undef or strings. =over 4 =item * abstract =item * description =item * dynamic_config =item * generated_by =item * name =item * release_status =item * version =back =head1 LIST DATA These methods return lists of string values, which might be represented in the distmeta structure as arrayrefs or scalars: =over 4 =item * authors =item * keywords =item * licenses =back The C<authors> and C<licenses> methods may also be called as C<author> and C<license>, respectively, to match the field name in the distmeta structure. =head1 MAP DATA These readers return hashrefs of arbitrary unblessed data structures, each described more fully in the specification: =over 4 =item * meta_spec =item * resources =item * provides =item * no_index =item * prereqs =item * optional_features =back =head1 CUSTOM DATA A list of custom keys are available from the C<custom_keys> method and particular keys may be retrieved with the C<custom> method. say $meta->custom($_) for $meta->custom_keys; If a custom key refers to a data structure, a deep clone is returned. =for Pod::Coverage TO_JSON abstract author authors custom custom_keys description dynamic_config generated_by keywords license licenses meta_spec name no_index optional_features prereqs provides release_status resources version =head1 BUGS Please report any bugs or feature using the CPAN Request Tracker. Bugs can be submitted through the web interface at L<http://rt.cpan.org/Dist/Display.html?Queue=CPAN-Meta> When submitting a bug or request, please include a test-file or a patch to an existing test-file that illustrates the bug or desired feature. =head1 SEE ALSO =over 4 =item * L<CPAN::Meta::Converter> =item * L<CPAN::Meta::Validator> =back =for :stopwords cpan testmatrix url annocpan anno bugtracker rt cpants kwalitee diff irc mailto metadata placeholders metacpan =head1 SUPPORT =head2 Bugs / Feature Requests Please report any bugs or feature requests through the issue tracker at L<https://github.com/Perl-Toolchain-Gang/CPAN-Meta/issues>. You will be notified automatically of any progress on your issue. =head2 Source Code This is open source software. The code repository is available for public review and contribution under the terms of the license. L<https://github.com/Perl-Toolchain-Gang/CPAN-Meta> git clone https://github.com/Perl-Toolchain-Gang/CPAN-Meta.git =head1 AUTHORS =over 4 =item * David Golden <dagolden@cpan.org> =item * Ricardo Signes <rjbs@cpan.org> =item * Adam Kennedy <adamk@cpan.org> =back =head1 CONTRIBUTORS =for stopwords Ansgar Burchardt Avar Arnfjord Bjarmason Benjamin Noggle Christopher J. Madsen Chuck Adams Cory G Watson Damyan Ivanov David Golden Eric Wilhelm Graham Knop Gregor Hermann Karen Etheridge Kenichi Ishigaki Kent Fredric Ken Williams Lars Dieckow Leon Timmermans majensen Mark Fowler Matt S Trout Michael G. Schwern Mohammad Anwar mohawk2 moznion Niko Tyni Olaf Alders Olivier Mengué Randy Sims Tomohiro Hosaka =over 4 =item * Ansgar Burchardt <ansgar@cpan.org> =item * Avar Arnfjord Bjarmason <avar@cpan.org> =item * Benjamin Noggle <agwind@users.noreply.github.com> =item * Christopher J. Madsen <cjm@cpan.org> =item * Chuck Adams <cja987@gmail.com> =item * Cory G Watson <gphat@cpan.org> =item * Damyan Ivanov <dam@cpan.org> =item * David Golden <xdg@xdg.me> =item * Eric Wilhelm <ewilhelm@cpan.org> =item * Graham Knop <haarg@haarg.org> =item * Gregor Hermann <gregoa@debian.org> =item * Karen Etheridge <ether@cpan.org> =item * Kenichi Ishigaki <ishigaki@cpan.org> =item * Kent Fredric <kentfredric@gmail.com> =item * Ken Williams <kwilliams@cpan.org> =item * Lars Dieckow <daxim@cpan.org> =item * Leon Timmermans <leont@cpan.org> =item * majensen <maj@fortinbras.us> =item * Mark Fowler <markf@cpan.org> =item * Matt S Trout <mst@shadowcat.co.uk> =item * Michael G. Schwern <mschwern@cpan.org> =item * Mohammad S Anwar <mohammad.anwar@yahoo.com> =item * mohawk2 <mohawk2@users.noreply.github.com> =item * moznion <moznion@gmail.com> =item * Niko Tyni <ntyni@debian.org> =item * Olaf Alders <olaf@wundersolutions.com> =item * Olivier Mengué <dolmen@cpan.org> =item * Randy Sims <randys@thepierianspring.org> =item * Tomohiro Hosaka <bokutin@bokut.in> =back =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2010 by David Golden, Ricardo Signes, Adam Kennedy and Contributors. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut __END__ # vim: ts=2 sts=2 sw=2 et : PK ! �!+�� � 5.34.0/CPAN/Shell.pmnu �[��� package CPAN::Shell; use strict; # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- # vim: ts=4 sts=4 sw=4: use vars qw( $ADVANCED_QUERY $AUTOLOAD $COLOR_REGISTERED $Help $autoload_recursion $reload @ISA @relo $VERSION ); @relo = ( "CPAN.pm", "CPAN/Author.pm", "CPAN/CacheMgr.pm", "CPAN/Complete.pm", "CPAN/Debug.pm", "CPAN/DeferredCode.pm", "CPAN/Distribution.pm", "CPAN/Distroprefs.pm", "CPAN/Distrostatus.pm", "CPAN/Exception/RecursiveDependency.pm", "CPAN/Exception/yaml_not_installed.pm", "CPAN/FirstTime.pm", "CPAN/FTP.pm", "CPAN/FTP/netrc.pm", "CPAN/HandleConfig.pm", "CPAN/Index.pm", "CPAN/InfoObj.pm", "CPAN/Kwalify.pm", "CPAN/LWP/UserAgent.pm", "CPAN/Module.pm", "CPAN/Prompt.pm", "CPAN/Queue.pm", "CPAN/Reporter/Config.pm", "CPAN/Reporter/History.pm", "CPAN/Reporter/PrereqCheck.pm", "CPAN/Reporter.pm", "CPAN/Shell.pm", "CPAN/SQLite.pm", "CPAN/Tarzip.pm", "CPAN/Version.pm", ); $VERSION = "5.5009"; # record the initial timestamp for reload. $reload = { map {$INC{$_} ? ($_,(stat $INC{$_})[9]) : ()} @relo }; @CPAN::Shell::ISA = qw(CPAN::Debug); use Cwd qw(chdir); use Carp (); $COLOR_REGISTERED ||= 0; $Help = { '?' => \"help", '!' => "eval the rest of the line as perl", a => "whois author", autobundle => "write inventory into a bundle file", b => "info about bundle", bye => \"quit", clean => "clean up a distribution's build directory", # cvs_import d => "info about a distribution", # dump exit => \"quit", failed => "list all failed actions within current session", fforce => "redo a command from scratch", force => "redo a command", get => "download a distribution", h => \"help", help => "overview over commands; 'help ...' explains specific commands", hosts => "statistics about recently used hosts", i => "info about authors/bundles/distributions/modules", install => "install a distribution", install_tested => "install all distributions tested OK", is_tested => "list all distributions tested OK", look => "open a subshell in a distribution's directory", ls => "list distributions matching a fileglob", m => "info about a module", make => "make/build a distribution", mkmyconfig => "write current config into a CPAN/MyConfig.pm file", notest => "run a (usually install) command but leave out the test phase", o => "'o conf ...' for config stuff; 'o debug ...' for debugging", perldoc => "try to get a manpage for a module", q => \"quit", quit => "leave the cpan shell", r => "review upgradable modules", readme => "display the README of a distro with a pager", recent => "show recent uploads to the CPAN", # recompile reload => "'reload cpan' or 'reload index'", report => "test a distribution and send a test report to cpantesters", reports => "info about reported tests from cpantesters", # scripts # smoke test => "test a distribution", u => "display uninstalled modules", upgrade => "combine 'r' command with immediate installation", }; { $autoload_recursion ||= 0; #-> sub CPAN::Shell::AUTOLOAD ; sub AUTOLOAD { ## no critic $autoload_recursion++; my($l) = $AUTOLOAD; my $class = shift(@_); # warn "autoload[$l] class[$class]"; $l =~ s/.*:://; if ($CPAN::Signal) { warn "Refusing to autoload '$l' while signal pending"; $autoload_recursion--; return; } if ($autoload_recursion > 1) { my $fullcommand = join " ", map { "'$_'" } $l, @_; warn "Refusing to autoload $fullcommand in recursion\n"; $autoload_recursion--; return; } if ($l =~ /^w/) { # XXX needs to be reconsidered if ($CPAN::META->has_inst('CPAN::WAIT')) { CPAN::WAIT->$l(@_); } else { $CPAN::Frontend->mywarn(qq{ Commands starting with "w" require CPAN::WAIT to be installed. Please consider installing CPAN::WAIT to use the fulltext index. For this you just need to type install CPAN::WAIT }); } } else { $CPAN::Frontend->mywarn(qq{Unknown shell command '$l'. }. qq{Type ? for help. }); } $autoload_recursion--; } } #-> sub CPAN::Shell::h ; sub h { my($class,$about) = @_; if (defined $about) { my $help; if (exists $Help->{$about}) { if (ref $Help->{$about}) { # aliases $about = ${$Help->{$about}}; } $help = $Help->{$about}; } else { $help = "No help available"; } $CPAN::Frontend->myprint("$about\: $help\n"); } else { my $filler = " " x (80 - 28 - length($CPAN::VERSION)); $CPAN::Frontend->myprint(qq{ Display Information $filler (ver $CPAN::VERSION) command argument description a,b,d,m WORD or /REGEXP/ about authors, bundles, distributions, modules i WORD or /REGEXP/ about any of the above ls AUTHOR or GLOB about files in the author's directory (with WORD being a module, bundle or author name or a distribution name of the form AUTHOR/DISTRIBUTION) Download, Test, Make, Install... get download clean make clean make make (implies get) look open subshell in dist directory test make test (implies make) readme display these README files install make install (implies test) perldoc display POD documentation Upgrade installed modules r WORDs or /REGEXP/ or NONE report updates for some/matching/all upgrade WORDs or /REGEXP/ or NONE upgrade some/matching/all modules Pragmas force CMD try hard to do command fforce CMD try harder notest CMD skip testing Other h,? display this menu ! perl-code eval a perl command o conf [opt] set and query options q quit the cpan shell reload cpan load CPAN.pm again reload index load newer indices autobundle Snapshot recent latest CPAN uploads}); } } *help = \&h; #-> sub CPAN::Shell::a ; sub a { my($self,@arg) = @_; # authors are always UPPERCASE for (@arg) { $_ = uc $_ unless /=/; } $CPAN::Frontend->myprint($self->format_result('Author',@arg)); } #-> sub CPAN::Shell::globls ; sub globls { my($self,$s,$pragmas) = @_; # ls is really very different, but we had it once as an ordinary # command in the Shell (up to rev. 321) and we could not handle # force well then my(@accept,@preexpand); if ($s =~ /[\*\?\/]/) { if ($CPAN::META->has_inst("Text::Glob")) { if (my($au,$pathglob) = $s =~ m|(.*?)/(.*)|) { my $rau = Text::Glob::glob_to_regex(uc $au); CPAN::Shell->debug("au[$au]pathglob[$pathglob]rau[$rau]") if $CPAN::DEBUG; push @preexpand, map { $_->id . "/" . $pathglob } CPAN::Shell->expand_by_method('CPAN::Author',['id'],"/$rau/"); } else { my $rau = Text::Glob::glob_to_regex(uc $s); push @preexpand, map { $_->id } CPAN::Shell->expand_by_method('CPAN::Author', ['id'], "/$rau/"); } } else { $CPAN::Frontend->mydie("Text::Glob not installed, cannot proceed"); } } else { push @preexpand, uc $s; } for (@preexpand) { unless (/^[A-Z0-9\-]+(\/|$)/i) { $CPAN::Frontend->mywarn("ls command rejects argument $_: not an author\n"); next; } push @accept, $_; } my $silent = @accept>1; my $last_alpha = ""; my @results; for my $a (@accept) { my($author,$pathglob); if ($a =~ m|(.*?)/(.*)|) { my $a2 = $1; $pathglob = $2; $author = CPAN::Shell->expand_by_method('CPAN::Author', ['id'], $a2) or $CPAN::Frontend->mydie("No author found for $a2\n"); } else { $author = CPAN::Shell->expand_by_method('CPAN::Author', ['id'], $a) or $CPAN::Frontend->mydie("No author found for $a\n"); } if ($silent) { my $alpha = substr $author->id, 0, 1; my $ad; if ($alpha eq $last_alpha) { $ad = ""; } else { $ad = "[$alpha]"; $last_alpha = $alpha; } $CPAN::Frontend->myprint($ad); } for my $pragma (@$pragmas) { if ($author->can($pragma)) { $author->$pragma(); } } CPAN->debug("author[$author]pathglob[$pathglob]silent[$silent]") if $CPAN::DEBUG; push @results, $author->ls($pathglob,$silent); # silent if # more than one # author for my $pragma (@$pragmas) { my $unpragma = "un$pragma"; if ($author->can($unpragma)) { $author->$unpragma(); } } } @results; } #-> sub CPAN::Shell::local_bundles ; sub local_bundles { my($self,@which) = @_; my($incdir,$bdir,$dh); foreach $incdir ($CPAN::Config->{'cpan_home'},@INC) { my @bbase = "Bundle"; while (my $bbase = shift @bbase) { $bdir = File::Spec->catdir($incdir,split /::/, $bbase); CPAN->debug("bdir[$bdir]\@bbase[@bbase]") if $CPAN::DEBUG; if ($dh = DirHandle->new($bdir)) { # may fail my($entry); for $entry ($dh->read) { next if $entry =~ /^\./; next unless $entry =~ /^\w+(\.pm)?(?!\n)\Z/; if (-d File::Spec->catdir($bdir,$entry)) { push @bbase, "$bbase\::$entry"; } else { next unless $entry =~ s/\.pm(?!\n)\Z//; $CPAN::META->instance('CPAN::Bundle',"$bbase\::$entry"); } } } } } } #-> sub CPAN::Shell::b ; sub b { my($self,@which) = @_; CPAN->debug("which[@which]") if $CPAN::DEBUG; $self->local_bundles; $CPAN::Frontend->myprint($self->format_result('Bundle',@which)); } #-> sub CPAN::Shell::d ; sub d { $CPAN::Frontend->myprint(shift->format_result('Distribution',@_));} #-> sub CPAN::Shell::m ; sub m { # emacs confused here }; sub mimimimimi { # emacs in sync here my $self = shift; my @m = @_; for (@m) { if (m|(?:\w+/)*\w+\.pm$|) { # same regexp in expandany s/.pm$//; s|/|::|g; } } $CPAN::Frontend->myprint($self->format_result('Module',@m)); } #-> sub CPAN::Shell::i ; sub i { my($self) = shift; my(@args) = @_; @args = '/./' unless @args; my(@result); for my $type (qw/Bundle Distribution Module/) { push @result, $self->expand($type,@args); } # Authors are always uppercase. push @result, $self->expand("Author", map { uc $_ } @args); my $result = @result == 1 ? $result[0]->as_string : @result == 0 ? "No objects found of any type for argument @args\n" : join("", (map {$_->as_glimpse} @result), scalar @result, " items found\n", ); $CPAN::Frontend->myprint($result); } #-> sub CPAN::Shell::o ; # CPAN::Shell::o and CPAN::HandleConfig::edit are closely related. 'o # conf' calls through to CPAN::HandleConfig::edit. 'o conf' should # probably have been called 'set' and 'o debug' maybe 'set debug' or # 'debug'; 'o conf ARGS' calls ->edit in CPAN/HandleConfig.pm sub o { my($self,$o_type,@o_what) = @_; $o_type ||= ""; CPAN->debug("o_type[$o_type] o_what[".join(" | ",@o_what)."]\n"); if ($o_type eq 'conf') { my($cfilter); ($cfilter) = $o_what[0] =~ m|^/(.*)/$| if @o_what; if (!@o_what or $cfilter) { # print all things, "o conf" $cfilter ||= ""; my $qrfilter = eval 'qr/$cfilter/'; if ($@) { $CPAN::Frontend->mydie("Cannot parse commandline: $@"); } my($k,$v); my $configpm = CPAN::HandleConfig->require_myconfig_or_config; $CPAN::Frontend->myprint("\$CPAN::Config options from $configpm\:\n"); for $k (sort keys %CPAN::HandleConfig::can) { next unless $k =~ /$qrfilter/; $v = $CPAN::HandleConfig::can{$k}; $CPAN::Frontend->myprint(sprintf " %-18s [%s]\n", $k, $v); } $CPAN::Frontend->myprint("\n"); for $k (sort keys %CPAN::HandleConfig::keys) { next unless $k =~ /$qrfilter/; CPAN::HandleConfig->prettyprint($k); } $CPAN::Frontend->myprint("\n"); } else { if (CPAN::HandleConfig->edit(@o_what)) { } else { $CPAN::Frontend->myprint(qq{Type 'o conf' to view all configuration }. qq{items\n\n}); } } } elsif ($o_type eq 'debug') { my(%valid); @o_what = () if defined $o_what[0] && $o_what[0] =~ /help/i; if (@o_what) { while (@o_what) { my($what) = shift @o_what; if ($what =~ s/^-// && exists $CPAN::DEBUG{$what}) { $CPAN::DEBUG &= $CPAN::DEBUG ^ $CPAN::DEBUG{$what}; next; } if ( exists $CPAN::DEBUG{$what} ) { $CPAN::DEBUG |= $CPAN::DEBUG{$what}; } elsif ($what =~ /^\d/) { $CPAN::DEBUG = $what; } elsif (lc $what eq 'all') { my($max) = 0; for (values %CPAN::DEBUG) { $max += $_; } $CPAN::DEBUG = $max; } else { my($known) = 0; for (keys %CPAN::DEBUG) { next unless lc($_) eq lc($what); $CPAN::DEBUG |= $CPAN::DEBUG{$_}; $known = 1; } $CPAN::Frontend->myprint("unknown argument [$what]\n") unless $known; } } } else { my $raw = "Valid options for debug are ". join(", ",sort(keys %CPAN::DEBUG), 'all'). qq{ or a number. Completion works on the options. }. qq{Case is ignored.}; require Text::Wrap; $CPAN::Frontend->myprint(Text::Wrap::fill("","",$raw)); $CPAN::Frontend->myprint("\n\n"); } if ($CPAN::DEBUG) { $CPAN::Frontend->myprint("Options set for debugging ($CPAN::DEBUG):\n"); my($k,$v); for $k (sort {$CPAN::DEBUG{$a} <=> $CPAN::DEBUG{$b}} keys %CPAN::DEBUG) { $v = $CPAN::DEBUG{$k}; $CPAN::Frontend->myprint(sprintf " %-14s(%s)\n", $k, $v) if $v & $CPAN::DEBUG; } } else { $CPAN::Frontend->myprint("Debugging turned off completely.\n"); } } else { $CPAN::Frontend->myprint(qq{ Known options: conf set or get configuration variables debug set or get debugging options }); } } # CPAN::Shell::paintdots_onreload sub paintdots_onreload { my($ref) = shift; sub { if ( $_[0] =~ /[Ss]ubroutine ([\w:]+) redefined/ ) { my($subr) = $1; ++$$ref; local($|) = 1; # $CPAN::Frontend->myprint(".($subr)"); $CPAN::Frontend->myprint("."); if ($subr =~ /\bshell\b/i) { # warn "debug[$_[0]]"; # It would be nice if we could detect that a # subroutine has actually changed, but for now we # practically always set the GOTOSHELL global $CPAN::GOTOSHELL=1; } return; } warn @_; }; } #-> sub CPAN::Shell::hosts ; sub hosts { my($self) = @_; my $fullstats = CPAN::FTP->_ftp_statistics(); my $history = $fullstats->{history} || []; my %S; # statistics while (my $last = pop @$history) { my $attempts = $last->{attempts} or next; my $start; if (@$attempts) { $start = $attempts->[-1]{start}; if ($#$attempts > 0) { for my $i (0..$#$attempts-1) { my $url = $attempts->[$i]{url} or next; $S{no}{$url}++; } } } else { $start = $last->{start}; } next unless $last->{thesiteurl}; # C-C? bad filenames? $S{start} = $start; $S{end} ||= $last->{end}; my $dltime = $last->{end} - $start; my $dlsize = $last->{filesize} || 0; my $url = ref $last->{thesiteurl} ? $last->{thesiteurl}->text : $last->{thesiteurl}; my $s = $S{ok}{$url} ||= {}; $s->{n}++; $s->{dlsize} ||= 0; $s->{dlsize} += $dlsize/1024; $s->{dltime} ||= 0; $s->{dltime} += $dltime; } my $res; for my $url (sort keys %{$S{ok}}) { next if $S{ok}{$url}{dltime} == 0; # div by zero push @{$res->{ok}}, [@{$S{ok}{$url}}{qw(n dlsize dltime)}, $S{ok}{$url}{dlsize}/$S{ok}{$url}{dltime}, $url, ]; } for my $url (sort keys %{$S{no}}) { push @{$res->{no}}, [$S{no}{$url}, $url, ]; } my $R = ""; # report if ($S{start} && $S{end}) { $R .= sprintf "Log starts: %s\n", $S{start} ? scalar(localtime $S{start}) : "unknown"; $R .= sprintf "Log ends : %s\n", $S{end} ? scalar(localtime $S{end}) : "unknown"; } if ($res->{ok} && @{$res->{ok}}) { $R .= sprintf "\nSuccessful downloads: N kB secs kB/s url\n"; my $i = 20; for (sort { $b->[3] <=> $a->[3] } @{$res->{ok}}) { $R .= sprintf "%4d %8d %5d %9.1f %s\n", @$_; last if --$i<=0; } } if ($res->{no} && @{$res->{no}}) { $R .= sprintf "\nUnsuccessful downloads:\n"; my $i = 20; for (sort { $b->[0] <=> $a->[0] } @{$res->{no}}) { $R .= sprintf "%4d %s\n", @$_; last if --$i<=0; } } $CPAN::Frontend->myprint($R); } # here is where 'reload cpan' is done #-> sub CPAN::Shell::reload ; sub reload { my($self,$command,@arg) = @_; $command ||= ""; $self->debug("self[$self]command[$command]arg[@arg]") if $CPAN::DEBUG; if ($command =~ /^cpan$/i) { my $redef = 0; chdir "$CPAN::iCwd" if $CPAN::iCwd; # may fail my $failed; MFILE: for my $f (@relo) { next unless exists $INC{$f}; my $p = $f; $p =~ s/\.pm$//; $p =~ s|/|::|g; $CPAN::Frontend->myprint("($p"); local($SIG{__WARN__}) = paintdots_onreload(\$redef); $self->_reload_this($f) or $failed++; my $v = eval "$p\::->VERSION"; $CPAN::Frontend->myprint("v$v)"); } $CPAN::Frontend->myprint("\n$redef subroutines redefined\n"); if ($failed) { my $errors = $failed == 1 ? "error" : "errors"; $CPAN::Frontend->mywarn("\n$failed $errors during reload. You better quit ". "this session.\n"); } } elsif ($command =~ /^index$/i) { CPAN::Index->force_reload; } else { $CPAN::Frontend->myprint(qq{cpan re-evals the CPAN modules index re-reads the index files\n}); } } # reload means only load again what we have loaded before #-> sub CPAN::Shell::_reload_this ; sub _reload_this { my($self,$f,$args) = @_; CPAN->debug("f[$f]") if $CPAN::DEBUG; return 1 unless $INC{$f}; # we never loaded this, so we do not # reload but say OK my $pwd = CPAN::anycwd(); CPAN->debug("pwd[$pwd]") if $CPAN::DEBUG; my($file); for my $inc (@INC) { $file = File::Spec->catfile($inc,split /\//, $f); last if -f $file; $file = ""; } CPAN->debug("file[$file]") if $CPAN::DEBUG; my @inc = @INC; unless ($file && -f $file) { # this thingy is not in the INC path, maybe CPAN/MyConfig.pm? $file = $INC{$f}; unless (CPAN->has_inst("File::Basename")) { @inc = File::Basename::dirname($file); } else { # do we ever need this? @inc = substr($file,0,-length($f)-1); # bring in back to me! } } CPAN->debug("file[$file]inc[@inc]") if $CPAN::DEBUG; unless (-f $file) { $CPAN::Frontend->mywarn("Found no file to reload for '$f'\n"); return; } my $mtime = (stat $file)[9]; $reload->{$f} ||= -1; my $must_reload = $mtime != $reload->{$f}; $args ||= {}; $must_reload ||= $args->{reloforce}; # o conf defaults needs this if ($must_reload) { my $fh = FileHandle->new($file) or $CPAN::Frontend->mydie("Could not open $file: $!"); my $content; { local($/); local $^W = 1; $content = <$fh>; } CPAN->debug(sprintf("reload file[%s] content[%s...]",$file,substr($content,0,128))) if $CPAN::DEBUG; my $includefile; if ($includefile = $INC{$f} and -e $includefile) { $f = $includefile; } delete $INC{$f}; local @INC = @inc; eval "require '$f'"; if ($@) { warn $@; return; } $reload->{$f} = $mtime; } else { $CPAN::Frontend->myprint("__unchanged__"); } return 1; } #-> sub CPAN::Shell::mkmyconfig ; sub mkmyconfig { my($self) = @_; if ( my $configpm = $INC{'CPAN/MyConfig.pm'} ) { $CPAN::Frontend->myprint( "CPAN::MyConfig already exists as $configpm.\n" . "Running configuration again...\n" ); require CPAN::FirstTime; CPAN::FirstTime::init($configpm); } else { # force some missing values to be filled in with defaults delete $CPAN::Config->{$_} for qw/build_dir cpan_home keep_source_where histfile/; CPAN::HandleConfig->load( make_myconfig => 1 ); } } #-> sub CPAN::Shell::_binary_extensions ; sub _binary_extensions { my($self) = shift @_; my(@result,$module,%seen,%need,$headerdone); for $module ($self->expand('Module','/./')) { my $file = $module->cpan_file; next if $file eq "N/A"; next if $file =~ /^Contact Author/; my $dist = $CPAN::META->instance('CPAN::Distribution',$file); next if $dist->isa_perl; next unless $module->xs_file; local($|) = 1; $CPAN::Frontend->myprint("."); push @result, $module; } # print join " | ", @result; $CPAN::Frontend->myprint("\n"); return @result; } #-> sub CPAN::Shell::recompile ; sub recompile { my($self) = shift @_; my($module,@module,$cpan_file,%dist); @module = $self->_binary_extensions(); for $module (@module) { # we force now and compile later, so we # don't do it twice $cpan_file = $module->cpan_file; my $pack = $CPAN::META->instance('CPAN::Distribution',$cpan_file); $pack->force; $dist{$cpan_file}++; } for $cpan_file (sort keys %dist) { $CPAN::Frontend->myprint(" CPAN: Recompiling $cpan_file\n\n"); my $pack = $CPAN::META->instance('CPAN::Distribution',$cpan_file); $pack->install; $CPAN::Signal = 0; # it's tempting to reset Signal, so we can # stop a package from recompiling, # e.g. IO-1.12 when we have perl5.003_10 } } #-> sub CPAN::Shell::scripts ; sub scripts { my($self, $arg) = @_; $CPAN::Frontend->mywarn(">>>> experimental command, currently unsupported <<<<\n\n"); for my $req (qw( HTML::LinkExtor Sort::Versions List::Util )) { unless ($CPAN::META->has_inst($req)) { $CPAN::Frontend->mywarn(" $req not available\n"); } } my $p = HTML::LinkExtor->new(); my $indexfile = "/home/ftp/pub/PAUSE/scripts/new/index.html"; unless (-f $indexfile) { $CPAN::Frontend->mydie("found no indexfile[$indexfile]\n"); } $p->parse_file($indexfile); my @hrefs; my $qrarg; if ($arg =~ s|^/(.+)/$|$1|) { $qrarg = eval 'qr/$arg/'; # hide construct from 5.004 } for my $l ($p->links) { my $tag = shift @$l; next unless $tag eq "a"; my %att = @$l; my $href = $att{href}; next unless $href =~ s|^\.\./authors/id/./../||; if ($arg) { if ($qrarg) { if ($href =~ $qrarg) { push @hrefs, $href; } } else { if ($href =~ /\Q$arg\E/) { push @hrefs, $href; } } } else { push @hrefs, $href; } } # now filter for the latest version if there is more than one of a name my %stems; for (sort @hrefs) { my $href = $_; s/-v?\d.*//; my $stem = $_; $stems{$stem} ||= []; push @{$stems{$stem}}, $href; } for (sort keys %stems) { my $highest; if (@{$stems{$_}} > 1) { $highest = List::Util::reduce { Sort::Versions::versioncmp($a,$b) > 0 ? $a : $b } @{$stems{$_}}; } else { $highest = $stems{$_}[0]; } $CPAN::Frontend->myprint("$highest\n"); } } sub _guess_manpage { my($self,$d,$contains,$dist) = @_; $dist =~ s/-/::/g; my $module; if (exists $contains->{$dist}) { $module = $dist; } elsif (1 == keys %$contains) { ($module) = keys %$contains; } my $manpage; if ($module) { my $m = $self->expand("Module",$module); $m->as_string; # called for side-effects, shame $manpage = $m->{MANPAGE}; } else { $manpage = "unknown"; } return $manpage; } #-> sub CPAN::Shell::_specfile ; sub _specfile { die "CPAN::Shell::_specfile() has been moved to CPAN::Plugin::Specfile::post_test()"; } #-> sub CPAN::Shell::report ; sub report { my($self,@args) = @_; unless ($CPAN::META->has_inst("CPAN::Reporter")) { $CPAN::Frontend->mydie("CPAN::Reporter not installed; cannot continue"); } local $CPAN::Config->{test_report} = 1; $self->force("test",@args); # force is there so that the test be # re-run (as documented) } # compare with is_tested #-> sub CPAN::Shell::install_tested sub install_tested { my($self,@some) = @_; $CPAN::Frontend->mywarn("install_tested() must not be called with arguments.\n"), return if @some; CPAN::Index->reload; for my $b (reverse $CPAN::META->_list_sorted_descending_is_tested) { my $yaml = "$b.yml"; unless (-f $yaml) { $CPAN::Frontend->mywarn("No YAML file for $b available, skipping\n"); next; } my $yaml_content = CPAN->_yaml_loadfile($yaml); my $id = $yaml_content->[0]{distribution}{ID}; unless ($id) { $CPAN::Frontend->mywarn("No ID found in '$yaml', skipping\n"); next; } my $do = CPAN::Shell->expandany($id); unless ($do) { $CPAN::Frontend->mywarn("Could not expand ID '$id', skipping\n"); next; } unless ($do->{build_dir}) { $CPAN::Frontend->mywarn("Distro '$id' has no build_dir, skipping\n"); next; } unless ($do->{build_dir} eq $b) { $CPAN::Frontend->mywarn("Distro '$id' has build_dir '$do->{build_dir}' but expected '$b', skipping\n"); next; } push @some, $do; } $CPAN::Frontend->mywarn("No tested distributions found.\n"), return unless @some; @some = grep { $_->{make_test} && ! $_->{make_test}->failed } @some; $CPAN::Frontend->mywarn("No distributions tested with this build of perl found.\n"), return unless @some; # @some = grep { not $_->uptodate } @some; # $CPAN::Frontend->mywarn("No non-uptodate distributions tested with this build of perl found.\n"), # return unless @some; CPAN->debug("some[@some]"); for my $d (@some) { my $id = $d->can("pretty_id") ? $d->pretty_id : $d->id; $CPAN::Frontend->myprint("install_tested: Running for $id\n"); $CPAN::Frontend->mysleep(1); $self->install($d); } } #-> sub CPAN::Shell::upgrade ; sub upgrade { my($self,@args) = @_; $self->install($self->r(@args)); } #-> sub CPAN::Shell::_u_r_common ; sub _u_r_common { my($self) = shift @_; my($what) = shift @_; CPAN->debug("self[$self] what[$what] args[@_]") if $CPAN::DEBUG; Carp::croak "Usage: \$obj->_u_r_common(a|r|u)" unless $what && $what =~ /^[aru]$/; my(@args) = @_; @args = '/./' unless @args; my(@result,$module,%seen,%need,$headerdone, $version_undefs,$version_zeroes, @version_undefs,@version_zeroes); $version_undefs = $version_zeroes = 0; my $sprintf = "%s%-25s%s %9s %9s %s\n"; my @expand = $self->expand('Module',@args); if ($CPAN::DEBUG) { # Looks like noise to me, was very useful for debugging # for metadata cache my $expand = scalar @expand; $CPAN::Frontend->myprint(sprintf "%d matches in the database, time[%d]\n", $expand, time); } my @sexpand; if ($] < 5.008) { # hard to believe that the more complex sorting can lead to # stack curruptions on older perl @sexpand = sort {$a->id cmp $b->id} @expand; } else { @sexpand = map { $_->[1] } sort { $b->[0] <=> $a->[0] || $a->[1]{ID} cmp $b->[1]{ID}, } map { [$_->_is_representative_module, $_ ] } @expand; } if ($CPAN::DEBUG) { $CPAN::Frontend->myprint(sprintf "sorted at time[%d]\n", time); sleep 1; } MODULE: for $module (@sexpand) { my $file = $module->cpan_file; next MODULE unless defined $file; # ?? $file =~ s!^./../!!; my($latest) = $module->cpan_version; my($inst_file) = $module->inst_file; CPAN->debug("file[$file]latest[$latest]") if $CPAN::DEBUG; my($have); return if $CPAN::Signal; my($next_MODULE); eval { # version.pm involved! if ($inst_file) { if ($what eq "a") { $have = $module->inst_version; } elsif ($what eq "r") { $have = $module->inst_version; local($^W) = 0; if ($have eq "undef") { $version_undefs++; push @version_undefs, $module->as_glimpse; } elsif (CPAN::Version->vcmp($have,0)==0) { $version_zeroes++; push @version_zeroes, $module->as_glimpse; } ++$next_MODULE unless CPAN::Version->vgt($latest, $have); # to be pedantic we should probably say: # && !($have eq "undef" && $latest ne "undef" && $latest gt ""); # to catch the case where CPAN has a version 0 and we have a version undef } elsif ($what eq "u") { ++$next_MODULE; } } else { if ($what eq "a") { ++$next_MODULE; } elsif ($what eq "r") { ++$next_MODULE; } elsif ($what eq "u") { $have = "-"; } } }; next MODULE if $next_MODULE; if ($@) { $CPAN::Frontend->mywarn (sprintf("Error while comparing cpan/installed versions of '%s': INST_FILE: %s INST_VERSION: %s %s CPAN_VERSION: %s %s ", $module->id, $inst_file || "", (defined $have ? $have : "[UNDEFINED]"), (ref $have ? ref $have : ""), $latest, (ref $latest ? ref $latest : ""), )); next MODULE; } return if $CPAN::Signal; # this is sometimes lengthy $seen{$file} ||= 0; if ($what eq "a") { push @result, sprintf "%s %s\n", $module->id, $have; } elsif ($what eq "r") { push @result, $module->id; next MODULE if $seen{$file}++; } elsif ($what eq "u") { push @result, $module->id; next MODULE if $seen{$file}++; next MODULE if $file =~ /^Contact/; } unless ($headerdone++) { $CPAN::Frontend->myprint("\n"); $CPAN::Frontend->myprint(sprintf( $sprintf, "", "Package namespace", "", "installed", "latest", "in CPAN file" )); } my $color_on = ""; my $color_off = ""; if ( $COLOR_REGISTERED && $CPAN::META->has_inst("Term::ANSIColor") && $module->description ) { $color_on = Term::ANSIColor::color("green"); $color_off = Term::ANSIColor::color("reset"); } $CPAN::Frontend->myprint(sprintf $sprintf, $color_on, $module->id, $color_off, $have, $latest, $file); $need{$module->id}++; } unless (%need) { if (!@expand || $what eq "u") { $CPAN::Frontend->myprint("No modules found for @args\n"); } elsif ($what eq "r") { $CPAN::Frontend->myprint("All modules are up to date for @args\n"); } } if ($what eq "r") { if ($version_zeroes) { my $s_has = $version_zeroes > 1 ? "s have" : " has"; $CPAN::Frontend->myprint(qq{$version_zeroes installed module$s_has }. qq{a version number of 0\n}); if ($CPAN::Config->{show_zero_versions}) { local $" = "\t"; $CPAN::Frontend->myprint(qq{ they are\n\t@version_zeroes\n}); $CPAN::Frontend->myprint(qq{(use 'o conf show_zero_versions 0' }. qq{to hide them)\n}); } else { $CPAN::Frontend->myprint(qq{(use 'o conf show_zero_versions 1' }. qq{to show them)\n}); } } if ($version_undefs) { my $s_has = $version_undefs > 1 ? "s have" : " has"; $CPAN::Frontend->myprint(qq{$version_undefs installed module$s_has no }. qq{parsable version number\n}); if ($CPAN::Config->{show_unparsable_versions}) { local $" = "\t"; $CPAN::Frontend->myprint(qq{ they are\n\t@version_undefs\n}); $CPAN::Frontend->myprint(qq{(use 'o conf show_unparsable_versions 0' }. qq{to hide them)\n}); } else { $CPAN::Frontend->myprint(qq{(use 'o conf show_unparsable_versions 1' }. qq{to show them)\n}); } } } @result; } #-> sub CPAN::Shell::r ; sub r { shift->_u_r_common("r",@_); } #-> sub CPAN::Shell::u ; sub u { shift->_u_r_common("u",@_); } #-> sub CPAN::Shell::failed ; sub failed { my($self,$only_id,$silent) = @_; my @failed = $self->find_failed($only_id); my $scope; if ($only_id) { $scope = "this command"; } elsif ($CPAN::Index::HAVE_REANIMATED) { $scope = "this or a previous session"; # it might be nice to have a section for previous session and # a second for this } else { $scope = "this session"; } if (@failed) { my $print; my $debug = 0; if ($debug) { $print = join "", map { sprintf "%5d %-45s: %s %s\n", @$_ } sort { $a->[0] <=> $b->[0] } @failed; } else { $print = join "", map { sprintf " %-45s: %s %s\n", @$_[1..3] } sort { $a->[0] <=> $b->[0] || $a->[4] <=> $b->[4] } @failed; } $CPAN::Frontend->myprint("Failed during $scope:\n$print"); } elsif (!$only_id || !$silent) { $CPAN::Frontend->myprint("Nothing failed in $scope\n"); } } sub find_failed { my($self,$only_id) = @_; my @failed; DIST: for my $d (sort { $a->id cmp $b->id } $CPAN::META->all_objects("CPAN::Distribution")) { my $failed = ""; NAY: for my $nosayer ( # order matters! "unwrapped", "writemakefile", "signature_verify", "make", "make_test", "install", "make_clean", ) { next unless exists $d->{$nosayer}; next unless defined $d->{$nosayer}; next unless ( UNIVERSAL::can($d->{$nosayer},"failed") ? $d->{$nosayer}->failed : $d->{$nosayer} =~ /^NO/ ); next NAY if $only_id && $only_id != ( UNIVERSAL::can($d->{$nosayer},"commandid") ? $d->{$nosayer}->commandid : $CPAN::CurrentCommandId ); $failed = $nosayer; last; } next DIST unless $failed; my $id = $d->id; $id =~ s|^./../||; ### XXX need to flag optional modules as '(optional)' if they are # from recommends/suggests -- i.e. *show* failure, but make it clear # it was failure of optional module -- xdg, 2012-04-01 $id = "(optional) $id" if ! $d->{mandatory}; #$print .= sprintf( # " %-45s: %s %s\n", push @failed, ( UNIVERSAL::can($d->{$failed},"failed") ? [ $d->{$failed}->commandid, $id, $failed, $d->{$failed}->text, $d->{$failed}{TIME}||0, !! $d->{mandatory}, ] : [ 1, $id, $failed, $d->{$failed}, 0, !! $d->{mandatory}, ] ); } return @failed; } sub mandatory_dist_failed { my ($self) = @_; return grep { $_->[5] } $self->find_failed($CPAN::CurrentCommandID); } # XXX intentionally undocumented because completely bogus, unportable, # useless, etc. #-> sub CPAN::Shell::status ; sub status { my($self) = @_; require Devel::Size; my $ps = FileHandle->new; open $ps, "/proc/$$/status"; my $vm = 0; while (<$ps>) { next unless /VmSize:\s+(\d+)/; $vm = $1; last; } $CPAN::Frontend->mywarn(sprintf( "%-27s %6d\n%-27s %6d\n", "vm", $vm, "CPAN::META", Devel::Size::total_size($CPAN::META)/1024, )); for my $k (sort keys %$CPAN::META) { next unless substr($k,0,4) eq "read"; warn sprintf " %-26s %6d\n", $k, Devel::Size::total_size($CPAN::META->{$k})/1024; for my $k2 (sort keys %{$CPAN::META->{$k}}) { warn sprintf " %-25s %6d (keys: %6d)\n", $k2, Devel::Size::total_size($CPAN::META->{$k}{$k2})/1024, scalar keys %{$CPAN::META->{$k}{$k2}}; } } } # compare with install_tested #-> sub CPAN::Shell::is_tested sub is_tested { my($self) = @_; CPAN::Index->reload; for my $b (reverse $CPAN::META->_list_sorted_descending_is_tested) { my $time; if ($CPAN::META->{is_tested}{$b}) { $time = scalar(localtime $CPAN::META->{is_tested}{$b}); } else { $time = scalar localtime; $time =~ s/\S/?/g; } $CPAN::Frontend->myprint(sprintf "%s %s\n", $time, $b); } } #-> sub CPAN::Shell::autobundle ; sub autobundle { my($self) = shift; CPAN::HandleConfig->load unless $CPAN::Config_loaded++; my(@bundle) = $self->_u_r_common("a",@_); my($todir) = File::Spec->catdir($CPAN::Config->{'cpan_home'},"Bundle"); File::Path::mkpath($todir); unless (-d $todir) { $CPAN::Frontend->myprint("Couldn't mkdir $todir for some reason\n"); return; } my($y,$m,$d) = (localtime)[5,4,3]; $y+=1900; $m++; my($c) = 0; my($me) = sprintf "Snapshot_%04d_%02d_%02d_%02d", $y, $m, $d, $c; my($to) = File::Spec->catfile($todir,"$me.pm"); while (-f $to) { $me = sprintf "Snapshot_%04d_%02d_%02d_%02d", $y, $m, $d, ++$c; $to = File::Spec->catfile($todir,"$me.pm"); } my($fh) = FileHandle->new(">$to") or Carp::croak "Can't open >$to: $!"; $fh->print( "package Bundle::$me;\n\n", "\$","VERSION = '0.01';\n\n", # hide from perl-reversion "1;\n\n", "__END__\n\n", "=head1 NAME\n\n", "Bundle::$me - Snapshot of installation on ", $Config::Config{'myhostname'}, " on ", scalar(localtime), "\n\n=head1 SYNOPSIS\n\n", "perl -MCPAN -e 'install Bundle::$me'\n\n", "=head1 CONTENTS\n\n", join("\n", @bundle), "\n\n=head1 CONFIGURATION\n\n", Config->myconfig, "\n\n=head1 AUTHOR\n\n", "This Bundle has been generated automatically ", "by the autobundle routine in CPAN.pm.\n", ); $fh->close; $CPAN::Frontend->myprint("\nWrote bundle file $to\n\n"); return $to; } #-> sub CPAN::Shell::expandany ; sub expandany { my($self,$s) = @_; CPAN->debug("s[$s]") if $CPAN::DEBUG; my $module_as_path = ""; if ($s =~ m|(?:\w+/)*\w+\.pm$|) { # same regexp in sub m $module_as_path = $s; $module_as_path =~ s/.pm$//; $module_as_path =~ s|/|::|g; } if ($module_as_path) { if ($module_as_path =~ m|^Bundle::|) { $self->local_bundles; return $self->expand('Bundle',$module_as_path); } else { return $self->expand('Module',$module_as_path) if $CPAN::META->exists('CPAN::Module',$module_as_path); } } elsif ($s =~ m|/| or substr($s,-1,1) eq ".") { # looks like a file or a directory $s = CPAN::Distribution->normalize($s); return $CPAN::META->instance('CPAN::Distribution',$s); # Distributions spring into existence, not expand } elsif ($s =~ m|^Bundle::|) { $self->local_bundles; # scanning so late for bundles seems # both attractive and crumpy: always # current state but easy to forget # somewhere return $self->expand('Bundle',$s); } else { return $self->expand('Module',$s) if $CPAN::META->exists('CPAN::Module',$s); } return; } #-> sub CPAN::Shell::expand ; sub expand { my $self = shift; my($type,@args) = @_; CPAN->debug("type[$type]args[@args]") if $CPAN::DEBUG; my $class = "CPAN::$type"; my $methods = ['id']; for my $meth (qw(name)) { next unless $class->can($meth); push @$methods, $meth; } $self->expand_by_method($class,$methods,@args); } #-> sub CPAN::Shell::expand_by_method ; sub expand_by_method { my $self = shift; my($class,$methods,@args) = @_; my($arg,@m); for $arg (@args) { my($regex,$command); if ($arg =~ m|^/(.*)/$|) { $regex = $1; # FIXME: there seem to be some ='s in the author data, which trigger # a failure here. This needs to be contemplated. # } elsif ($arg =~ m/=/) { # $command = 1; } my $obj; CPAN->debug(sprintf "class[%s]regex[%s]command[%s]", $class, defined $regex ? $regex : "UNDEFINED", defined $command ? $command : "UNDEFINED", ) if $CPAN::DEBUG; if (defined $regex) { if (CPAN::_sqlite_running()) { CPAN::Index->reload; $CPAN::SQLite->search($class, $regex); } for $obj ( $CPAN::META->all_objects($class) ) { unless ($obj && UNIVERSAL::can($obj,"id") && $obj->id) { # BUG, we got an empty object somewhere require Data::Dumper; CPAN->debug(sprintf( "Bug in CPAN: Empty id on obj[%s][%s]", $obj, Data::Dumper::Dumper($obj) )) if $CPAN::DEBUG; next; } for my $method (@$methods) { my $match = eval {$obj->$method() =~ /$regex/i}; if ($@) { my($err) = $@ =~ /^(.+) at .+? line \d+\.$/; $err ||= $@; # if we were too restrictive above $CPAN::Frontend->mydie("$err\n"); } elsif ($match) { push @m, $obj; last; } } } } elsif ($command) { die "equal sign in command disabled (immature interface), ". "you can set ! \$CPAN::Shell::ADVANCED_QUERY=1 to enable it. But please note, this is HIGHLY EXPERIMENTAL code that may go away anytime.\n" unless $ADVANCED_QUERY; my($method,$criterion) = $arg =~ /(.+?)=(.+)/; my($matchcrit) = $criterion =~ m/^~(.+)/; for my $self ( sort {$a->id cmp $b->id} $CPAN::META->all_objects($class) ) { my $lhs = $self->$method() or next; # () for 5.00503 if ($matchcrit) { push @m, $self if $lhs =~ m/$matchcrit/; } else { push @m, $self if $lhs eq $criterion; } } } else { my($xarg) = $arg; if ( $class eq 'CPAN::Bundle' ) { $xarg =~ s/^(Bundle::)?(.*)/Bundle::$2/; } elsif ($class eq "CPAN::Distribution") { $xarg = CPAN::Distribution->normalize($arg); } else { $xarg =~ s/:+/::/g; } if ($CPAN::META->exists($class,$xarg)) { $obj = $CPAN::META->instance($class,$xarg); } elsif ($CPAN::META->exists($class,$arg)) { $obj = $CPAN::META->instance($class,$arg); } else { next; } push @m, $obj; } } @m = sort {$a->id cmp $b->id} @m; if ( $CPAN::DEBUG ) { my $wantarray = wantarray; my $join_m = join ",", map {$_->id} @m; # $self->debug("wantarray[$wantarray]join_m[$join_m]"); my $count = scalar @m; $self->debug("class[$class]wantarray[$wantarray]count m[$count]"); } return wantarray ? @m : $m[0]; } #-> sub CPAN::Shell::format_result ; sub format_result { my($self) = shift; my($type,@args) = @_; @args = '/./' unless @args; my(@result) = $self->expand($type,@args); my $result = @result == 1 ? $result[0]->as_string : @result == 0 ? "No objects of type $type found for argument @args\n" : join("", (map {$_->as_glimpse} @result), scalar @result, " items found\n", ); $result; } #-> sub CPAN::Shell::report_fh ; { my $installation_report_fh; my $previously_noticed = 0; sub report_fh { return $installation_report_fh if $installation_report_fh; if ($CPAN::META->has_usable("File::Temp")) { $installation_report_fh = File::Temp->new( dir => File::Spec->tmpdir, template => 'cpan_install_XXXX', suffix => '.txt', unlink => 0, ); } unless ( $installation_report_fh ) { warn("Couldn't open installation report file; " . "no report file will be generated." ) unless $previously_noticed++; } } } # The only reason for this method is currently to have a reliable # debugging utility that reveals which output is going through which # channel. No, I don't like the colors ;-) # to turn colordebugging on, write # cpan> o conf colorize_output 1 #-> sub CPAN::Shell::colorize_output ; { my $print_ornamented_have_warned = 0; sub colorize_output { my $colorize_output = $CPAN::Config->{colorize_output}; if ($colorize_output && $^O eq 'MSWin32' && !$CPAN::META->has_inst("Win32::Console::ANSI")) { unless ($print_ornamented_have_warned++) { # no myprint/mywarn within myprint/mywarn! warn "Colorize_output is set to true but Win32::Console::ANSI is not installed. To activate colorized output, please install Win32::Console::ANSI.\n\n"; } $colorize_output = 0; } if ($colorize_output && !$CPAN::META->has_inst("Term::ANSIColor")) { unless ($print_ornamented_have_warned++) { # no myprint/mywarn within myprint/mywarn! warn "Colorize_output is set to true but Term::ANSIColor is not installed. To activate colorized output, please install Term::ANSIColor.\n\n"; } $colorize_output = 0; } return $colorize_output; } } #-> sub CPAN::Shell::print_ornamented ; sub print_ornamented { my($self,$what,$ornament) = @_; return unless defined $what; local $| = 1; # Flush immediately if ( $CPAN::Be_Silent ) { # WARNING: variable Be_Silent is poisoned and must be eliminated. print {report_fh()} $what; return; } my $swhat = "$what"; # stringify if it is an object if ($CPAN::Config->{term_is_latin}) { # note: deprecated, need to switch to $LANG and $LC_* # courtesy jhi: $swhat =~ s{([\xC0-\xDF])([\x80-\xBF])}{chr(ord($1)<<6&0xC0|ord($2)&0x3F)}eg; #}; } if ($self->colorize_output) { if ( $CPAN::DEBUG && $swhat =~ /^Debug\(/ ) { # if you want to have this configurable, please file a bug report $ornament = $CPAN::Config->{colorize_debug} || "black on_cyan"; } my $color_on = eval { Term::ANSIColor::color($ornament) } || ""; if ($@) { print "Term::ANSIColor rejects color[$ornament]: $@\n Please choose a different color (Hint: try 'o conf init /color/')\n"; } # GGOLDBACH/Test-GreaterVersion-0.008 broke without this # $trailer construct. We want the newline be the last thing if # there is a newline at the end ensuring that the next line is # empty for other players my $trailer = ""; $trailer = $1 if $swhat =~ s/([\r\n]+)\z//; print $color_on, $swhat, Term::ANSIColor::color("reset"), $trailer; } else { print $swhat; } } #-> sub CPAN::Shell::myprint ; # where is myprint/mywarn/Frontend/etc. documented? Where to use what? # I think, we send everything to STDOUT and use print for normal/good # news and warn for news that need more attention. Yes, this is our # working contract for now. sub myprint { my($self,$what) = @_; $self->print_ornamented($what, $CPAN::Config->{colorize_print}||'bold blue on_white', ); } my %already_printed; #-> sub CPAN::Shell::mywarnonce ; sub myprintonce { my($self,$what) = @_; $self->myprint($what) unless $already_printed{$what}++; } sub optprint { my($self,$category,$what) = @_; my $vname = $category . "_verbosity"; CPAN::HandleConfig->load unless $CPAN::Config_loaded++; if (!$CPAN::Config->{$vname} || $CPAN::Config->{$vname} =~ /^v/ ) { $CPAN::Frontend->myprint($what); } } #-> sub CPAN::Shell::myexit ; sub myexit { my($self,$what) = @_; $self->myprint($what); exit; } #-> sub CPAN::Shell::mywarn ; sub mywarn { my($self,$what) = @_; $self->print_ornamented($what, $CPAN::Config->{colorize_warn}||'bold red on_white'); } my %already_warned; #-> sub CPAN::Shell::mywarnonce ; sub mywarnonce { my($self,$what) = @_; $self->mywarn($what) unless $already_warned{$what}++; } # only to be used for shell commands #-> sub CPAN::Shell::mydie ; sub mydie { my($self,$what) = @_; $self->mywarn($what); # If it is the shell, we want the following die to be silent, # but if it is not the shell, we would need a 'die $what'. We need # to take care that only shell commands use mydie. Is this # possible? die "\n"; } # sub CPAN::Shell::colorable_makemaker_prompt ; sub colorable_makemaker_prompt { my($foo,$bar,$ornament) = @_; $ornament ||= "colorize_print"; if (CPAN::Shell->colorize_output) { my $ornament = $CPAN::Config->{$ornament}||'bold blue on_white'; my $color_on = eval { Term::ANSIColor::color($ornament); } || ""; print $color_on; } my $ans = ExtUtils::MakeMaker::prompt($foo,$bar); if (CPAN::Shell->colorize_output) { print Term::ANSIColor::color('reset'); } return $ans; } # use this only for unrecoverable errors! #-> sub CPAN::Shell::unrecoverable_error ; sub unrecoverable_error { my($self,$what) = @_; my @lines = split /\n/, $what; my $longest = 0; for my $l (@lines) { $longest = length $l if length $l > $longest; } $longest = 62 if $longest > 62; for my $l (@lines) { if ($l =~ /^\s*$/) { $l = "\n"; next; } $l = "==> $l"; if (length $l < 66) { $l = pack "A66 A*", $l, "<=="; } $l .= "\n"; } unshift @lines, "\n"; $self->mydie(join "", @lines); } #-> sub CPAN::Shell::mysleep ; sub mysleep { return if $ENV{AUTOMATED_TESTING} || ! -t STDOUT; my($self, $sleep) = @_; if (CPAN->has_inst("Time::HiRes")) { Time::HiRes::sleep($sleep); } else { sleep($sleep < 1 ? 1 : int($sleep + 0.5)); } } #-> sub CPAN::Shell::setup_output ; sub setup_output { return if -t STDOUT; my $odef = select STDERR; $| = 1; select STDOUT; $| = 1; select $odef; } #-> sub CPAN::Shell::rematein ; # RE-adme||MA-ke||TE-st||IN-stall : nearly everything runs through here sub rematein { my $self = shift; # this variable was global and disturbed programmers, so localize: local $CPAN::Distrostatus::something_has_failed_at; my($meth,@some) = @_; my @pragma; while($meth =~ /^(ff?orce|notest)$/) { push @pragma, $meth; $meth = shift @some or $CPAN::Frontend->mydie("Pragma $pragma[-1] used without method: ". "cannot continue"); } setup_output(); CPAN->debug("pragma[@pragma]meth[$meth]some[@some]") if $CPAN::DEBUG; # Here is the place to set "test_count" on all involved parties to # 0. We then can pass this counter on to the involved # distributions and those can refuse to test if test_count > X. In # the first stab at it we could use a 1 for "X". # But when do I reset the distributions to start with 0 again? # Jost suggested to have a random or cycling interaction ID that # we pass through. But the ID is something that is just left lying # around in addition to the counter, so I'd prefer to set the # counter to 0 now, and repeat at the end of the loop. But what # about dependencies? They appear later and are not reset, they # enter the queue but not its copy. How do they get a sensible # test_count? # With configure_requires, "get" is vulnerable in recursion. my $needs_recursion_protection = "get|make|test|install"; # construct the queue my($s,@s,@qcopy); STHING: foreach $s (@some) { my $obj; if (ref $s) { CPAN->debug("s is an object[$s]") if $CPAN::DEBUG; $obj = $s; } elsif ($s =~ m|[\$\@\%]|) { # looks like a perl variable } elsif ($s =~ m|^/|) { # looks like a regexp if (substr($s,-1,1) eq ".") { $obj = CPAN::Shell->expandany($s); } else { my @obj; CLASS: for my $class (qw(Distribution Bundle Module)) { if (@obj = $self->expand($class,$s)) { last CLASS; } } if (@obj) { if (1==@obj) { $obj = $obj[0]; } else { $CPAN::Frontend->mywarn("Sorry, $meth with a regular expression is ". "only supported when unambiguous.\nRejecting argument '$s'\n"); $CPAN::Frontend->mysleep(2); next STHING; } } } } elsif ($meth eq "ls") { $self->globls($s,\@pragma); next STHING; } else { CPAN->debug("calling expandany [$s]") if $CPAN::DEBUG; $obj = CPAN::Shell->expandany($s); } if (0) { } elsif (ref $obj) { if ($meth =~ /^($needs_recursion_protection)$/) { # it would be silly to check for recursion for look or dump # (we are in CPAN::Shell::rematein) CPAN->debug("Testing against recursion") if $CPAN::DEBUG; eval { $obj->color_cmd_tmps(0,1); }; if ($@) { if (ref $@ and $@->isa("CPAN::Exception::RecursiveDependency")) { $CPAN::Frontend->mywarn($@); } else { if (0) { require Carp; Carp::confess(sprintf "DEBUG: \$\@[%s]ref[%s]", $@, ref $@); } die; } } } CPAN::Queue->queue_item(qmod => $obj->id, reqtype => "c", optional => ''); push @qcopy, $obj; } elsif ($CPAN::META->exists('CPAN::Author',uc($s))) { $obj = $CPAN::META->instance('CPAN::Author',uc($s)); if ($meth =~ /^(dump|ls|reports)$/) { $obj->$meth(); } else { $CPAN::Frontend->mywarn( join "", "Don't be silly, you can't $meth ", $obj->fullname, " ;-)\n" ); $CPAN::Frontend->mysleep(2); } } elsif ($s =~ m|[\$\@\%]| && $meth eq "dump") { CPAN::InfoObj->dump($s); } else { $CPAN::Frontend ->mywarn(qq{Warning: Cannot $meth $s, }. qq{don't know what it is. Try the command i /$s/ to find objects with matching identifiers. }); $CPAN::Frontend->mysleep(2); } } # queuerunner (please be warned: when I started to change the # queue to hold objects instead of names, I made one or two # mistakes and never found which. I reverted back instead) QITEM: while (my $q = CPAN::Queue->first) { my $obj; my $s = $q->as_string; my $reqtype = $q->reqtype || ""; my $optional = $q->optional || ""; $obj = CPAN::Shell->expandany($s); unless ($obj) { # don't know how this can happen, maybe we should panic, # but maybe we get a solution from the first user who hits # this unfortunate exception? $CPAN::Frontend->mywarn("Warning: Could not expand string '$s' ". "to an object. Skipping.\n"); $CPAN::Frontend->mysleep(5); CPAN::Queue->delete_first($s); next QITEM; } $obj->{reqtype} ||= ""; my $type = ref $obj; if ( $type eq 'CPAN::Distribution' || $type eq 'CPAN::Bundle' ) { $obj->{mandatory} ||= ! $optional; # once mandatory, always mandatory } elsif ( $type eq 'CPAN::Module' ) { $obj->{mandatory} ||= ! $optional; # once mandatory, always mandatory if (my $d = $obj->distribution) { $d->{mandatory} ||= ! $optional; # once mandatory, always mandatory } elsif ($optional) { # the queue object does not know who was recommending/suggesting us:( # So we only vaguely write "optional". $CPAN::Frontend->mywarn("Warning: optional module '$s' ". "not known. Skipping.\n"); CPAN::Queue->delete_first($s); next QITEM; } } { # force debugging because CPAN::SQLite somehow delivers us # an empty object; # local $CPAN::DEBUG = 1024; # Shell; probably fixed now CPAN->debug("s[$s]obj-reqtype[$obj->{reqtype}]". "q-reqtype[$reqtype]") if $CPAN::DEBUG; } if ($obj->{reqtype}) { if ($obj->{reqtype} eq "b" && $reqtype =~ /^[rc]$/) { $obj->{reqtype} = $reqtype; if ( exists $obj->{install} && ( UNIVERSAL::can($obj->{install},"failed") ? $obj->{install}->failed : $obj->{install} =~ /^NO/ ) ) { delete $obj->{install}; $CPAN::Frontend->mywarn ("Promoting $obj->{ID} from 'build_requires' to 'requires'"); } } } else { $obj->{reqtype} = $reqtype; } for my $pragma (@pragma) { if ($pragma && $obj->can($pragma)) { $obj->$pragma($meth); } } if (UNIVERSAL::can($obj, 'called_for')) { $obj->called_for($s) unless $obj->called_for; } CPAN->debug(qq{pragma[@pragma]meth[$meth]}. qq{ID[$obj->{ID}]}) if $CPAN::DEBUG; push @qcopy, $obj; if ($meth =~ /^(report)$/) { # they came here with a pragma? $self->$meth($obj); } elsif (! UNIVERSAL::can($obj,$meth)) { # Must never happen my $serialized = ""; if (0) { } elsif ($CPAN::META->has_inst("YAML::Syck")) { $serialized = YAML::Syck::Dump($obj); } elsif ($CPAN::META->has_inst("YAML")) { $serialized = YAML::Dump($obj); } elsif ($CPAN::META->has_inst("Data::Dumper")) { $serialized = Data::Dumper::Dumper($obj); } else { require overload; $serialized = overload::StrVal($obj); } CPAN->debug("Going to panic. meth[$meth]s[$s]") if $CPAN::DEBUG; $CPAN::Frontend->mydie("Panic: obj[$serialized] cannot meth[$meth]"); } else { my $upgraded_meth = $meth; if ( $meth eq "make" and $obj->{reqtype} eq "b" ) { # rt 86915 $upgraded_meth = "test"; } if ($obj->$upgraded_meth()) { CPAN::Queue->delete($s); CPAN->debug("Succeeded and deleted from queue. pragma[@pragma]meth[$meth][s][$s]") if $CPAN::DEBUG; } else { CPAN->debug("Failed. pragma[@pragma]meth[$meth]s[$s]") if $CPAN::DEBUG; } } $obj->undelay; for my $pragma (@pragma) { my $unpragma = "un$pragma"; if ($obj->can($unpragma)) { $obj->$unpragma(); } } # if any failures occurred and the current object is mandatory, we # still don't know if *it* failed or if it was another (optional) # module, so we have to check that explicitly (and expensively) if ( $CPAN::Config->{halt_on_failure} && $obj->{mandatory} && CPAN::Distrostatus::something_has_just_failed() && $self->mandatory_dist_failed() ) { $CPAN::Frontend->mywarn("Stopping: '$meth' failed for '$s'.\n"); CPAN::Queue->nullify_queue; last QITEM; } CPAN::Queue->delete_first($s); } if ($meth =~ /^($needs_recursion_protection)$/) { for my $obj (@qcopy) { $obj->color_cmd_tmps(0,0); } } } #-> sub CPAN::Shell::recent ; sub recent { my($self) = @_; if ($CPAN::META->has_inst("XML::LibXML")) { my $url = $CPAN::Defaultrecent; $CPAN::Frontend->myprint("Fetching '$url'\n"); unless ($CPAN::META->has_usable("LWP")) { $CPAN::Frontend->mydie("LWP not installed; cannot continue"); } CPAN::LWP::UserAgent->config; my $Ua; eval { $Ua = CPAN::LWP::UserAgent->new; }; if ($@) { $CPAN::Frontend->mydie("CPAN::LWP::UserAgent->new dies with $@\n"); } my $resp = $Ua->get($url); unless ($resp->is_success) { $CPAN::Frontend->mydie(sprintf "Could not download '%s': %s\n", $url, $resp->code); } $CPAN::Frontend->myprint("DONE\n\n"); my $xml = XML::LibXML->new->parse_string($resp->content); if (0) { my $s = $xml->serialize(2); $s =~ s/\n\s*\n/\n/g; $CPAN::Frontend->myprint($s); return; } my @distros; if ($url =~ /winnipeg/) { my $pubdate = $xml->findvalue("/rss/channel/pubDate"); $CPAN::Frontend->myprint(" pubDate: $pubdate\n\n"); for my $eitem ($xml->findnodes("/rss/channel/item")) { my $distro = $eitem->findvalue("enclosure/\@url"); $distro =~ s|.*?/authors/id/./../||; my $size = $eitem->findvalue("enclosure/\@length"); my $desc = $eitem->findvalue("description"); $desc =~ s/.+? - //; $CPAN::Frontend->myprint("$distro [$size b]\n $desc\n"); push @distros, $distro; } } elsif ($url =~ /search.*uploads.rdf/) { # xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" # xmlns="http://purl.org/rss/1.0/" # xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" # xmlns:dc="http://purl.org/dc/elements/1.1/" # xmlns:syn="http://purl.org/rss/1.0/modules/syndication/" # xmlns:admin="http://webns.net/mvcb/" my $dc_date = $xml->findvalue("//*[local-name(.) = 'RDF']/*[local-name(.) = 'channel']/*[local-name(.) = 'date']"); $CPAN::Frontend->myprint(" dc:date: $dc_date\n\n"); my $finish_eitem = 0; local $SIG{INT} = sub { $finish_eitem = 1 }; EITEM: for my $eitem ($xml->findnodes("//*[local-name(.) = 'RDF']/*[local-name(.) = 'item']")) { my $distro = $eitem->findvalue("\@rdf:about"); $distro =~ s|.*~||; # remove up to the tilde before the name $distro =~ s|/$||; # remove trailing slash $distro =~ s|([^/]+)|\U$1\E|; # upcase the name my $author = uc $1 or die "distro[$distro] without author, cannot continue"; my $desc = $eitem->findvalue("*[local-name(.) = 'description']"); my $i = 0; SUBDIRTEST: while () { last SUBDIRTEST if ++$i >= 6; # half a dozen must do! if (my @ret = $self->globls("$distro*")) { @ret = grep {$_->[2] !~ /meta/} @ret; @ret = grep {length $_->[2]} @ret; if (@ret) { $distro = "$author/$ret[0][2]"; last SUBDIRTEST; } } $distro =~ s|/|/*/|; # allow it to reside in a subdirectory } next EITEM if $distro =~ m|\*|; # did not find the thing $CPAN::Frontend->myprint("____$desc\n"); push @distros, $distro; last EITEM if $finish_eitem; } } return \@distros; } else { # deprecated old version $CPAN::Frontend->mydie("no XML::LibXML installed, cannot continue\n"); } } #-> sub CPAN::Shell::smoke ; sub smoke { my($self) = @_; my $distros = $self->recent; DISTRO: for my $distro (@$distros) { next if $distro =~ m|/Bundle-|; # XXX crude heuristic to skip bundles $CPAN::Frontend->myprint(sprintf "Downloading and testing '$distro'\n"); { my $skip = 0; local $SIG{INT} = sub { $skip = 1 }; for (0..9) { $CPAN::Frontend->myprint(sprintf "\r%2d (Hit ^C to skip)", 10-$_); sleep 1; if ($skip) { $CPAN::Frontend->myprint(" skipped\n"); next DISTRO; } } } $CPAN::Frontend->myprint("\r \n"); # leave the dirty line with a newline $self->test($distro); } } { # set up the dispatching methods no strict "refs"; for my $command (qw( clean cvs_import dump force fforce get install look ls make notest perldoc readme reports test )) { *$command = sub { shift->rematein($command, @_); }; } } 1; PK ! n3�y. . 5.34.0/CPAN/Version.pmnu �[��� package CPAN::Version; use strict; use vars qw($VERSION); $VERSION = "5.5003"; # CPAN::Version::vcmp courtesy Jost Krieger sub vcmp { my($self,$l,$r) = @_; local($^W) = 0; CPAN->debug("l[$l] r[$r]") if $CPAN::DEBUG; # treat undef as zero $l = 0 if $l eq 'undef'; $r = 0 if $r eq 'undef'; return 0 if $l eq $r; # short circuit for quicker success for ($l,$r) { s/_//g; } CPAN->debug("l[$l] r[$r]") if $CPAN::DEBUG; for ($l,$r) { next unless tr/.// > 1 || /^v/; s/^v?/v/; 1 while s/\.0+(\d)/.$1/; # remove leading zeroes per group } CPAN->debug("l[$l] r[$r]") if $CPAN::DEBUG; if ($l=~/^v/ <=> $r=~/^v/) { for ($l,$r) { next if /^v/; $_ = $self->float2vv($_); } } CPAN->debug("l[$l] r[$r]") if $CPAN::DEBUG; my $lvstring = "v0"; my $rvstring = "v0"; if ($] >= 5.006 && $l =~ /^v/ && $r =~ /^v/) { $lvstring = $self->vstring($l); $rvstring = $self->vstring($r); CPAN->debug(sprintf "lv[%vd] rv[%vd]", $lvstring, $rvstring) if $CPAN::DEBUG; } return ( ($l ne "undef") <=> ($r ne "undef") || $lvstring cmp $rvstring || $l <=> $r || $l cmp $r ); } sub vgt { my($self,$l,$r) = @_; $self->vcmp($l,$r) > 0; } sub vlt { my($self,$l,$r) = @_; $self->vcmp($l,$r) < 0; } sub vge { my($self,$l,$r) = @_; $self->vcmp($l,$r) >= 0; } sub vle { my($self,$l,$r) = @_; $self->vcmp($l,$r) <= 0; } sub vstring { my($self,$n) = @_; $n =~ s/^v// or die "CPAN::Version::vstring() called with invalid arg [$n]"; pack "U*", split /\./, $n; } # vv => visible vstring sub float2vv { my($self,$n) = @_; my($rev) = int($n); $rev ||= 0; my($mantissa) = $n =~ /\.(\d{1,12})/; # limit to 12 digits to limit # architecture influence $mantissa ||= 0; $mantissa .= "0" while length($mantissa)%3; my $ret = "v" . $rev; while ($mantissa) { $mantissa =~ s/(\d{1,3})// or die "Panic: length>0 but not a digit? mantissa[$mantissa]"; $ret .= ".".int($1); } # warn "n[$n]ret[$ret]"; $ret =~ s/(\.0)+/.0/; # v1.0.0 => v1.0 $ret; } sub readable { my($self,$n) = @_; $n =~ /^([\w\-\+\.]+)/; return $1 if defined $1 && length($1)>0; # if the first user reaches version v43, he will be treated as "+". # We'll have to decide about a new rule here then, depending on what # will be the prevailing versioning behavior then. if ($] < 5.006) { # or whenever v-strings were introduced # we get them wrong anyway, whatever we do, because 5.005 will # have already interpreted 0.2.4 to be "0.24". So even if he # indexer sends us something like "v0.2.4" we compare wrongly. # And if they say v1.2, then the old perl takes it as "v12" if (defined $CPAN::Frontend) { $CPAN::Frontend->mywarn("Suspicious version string seen [$n]\n"); } else { warn("Suspicious version string seen [$n]\n"); } return $n; } my $better = sprintf "v%vd", $n; CPAN->debug("n[$n] better[$better]") if $CPAN::DEBUG; return $better; } 1; __END__ =head1 NAME CPAN::Version - utility functions to compare CPAN versions =head1 SYNOPSIS use CPAN::Version; CPAN::Version->vgt("1.1","1.1.1"); # 1 bc. 1.1 > 1.001001 CPAN::Version->vlt("1.1","1.1"); # 0 bc. 1.1 not < 1.1 CPAN::Version->vcmp("1.1","1.1.1"); # 1 bc. first is larger CPAN::Version->vcmp("1.1.1","1.1"); # -1 bc. first is smaller CPAN::Version->readable(v1.2.3); # "v1.2.3" CPAN::Version->vstring("v1.2.3"); # v1.2.3 CPAN::Version->float2vv(1.002003); # "v1.2.3" =head1 DESCRIPTION This module mediates between some version that perl sees in a package and the version that is published by the CPAN indexer. It's only written as a helper module for both CPAN.pm and CPANPLUS.pm. As it stands it predates version.pm but has the same goal: make version strings visible and comparable. =head1 LICENSE This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut # Local Variables: # mode: cperl # cperl-indent-level: 4 # End: PK ! ��:� � 5.34.0/CPAN/Complete.pmnu �[��� # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- # vim: ts=4 sts=4 sw=4: package CPAN::Complete; use strict; @CPAN::Complete::ISA = qw(CPAN::Debug); # Q: where is the "How do I add a new command" HOWTO? # A: git log -p -1 355c44e9caaec857e4b12f51afb96498833c3e36 where andk added the report command @CPAN::Complete::COMMANDS = sort qw( ? ! a b d h i m o q r u autobundle bye clean cvs_import dump exit failed force fforce hosts install install_tested is_tested look ls make mkmyconfig notest perldoc quit readme recent recompile reload report reports scripts smoke test upgrade ); use vars qw( $VERSION ); $VERSION = "5.5001"; package CPAN::Complete; use strict; sub gnu_cpl { my($text, $line, $start, $end) = @_; my(@perlret) = cpl($text, $line, $start); # find longest common match. Can anybody show me how to peruse # T::R::Gnu to have this done automatically? Seems expensive. return () unless @perlret; my($newtext) = $text; for (my $i = length($text)+1;;$i++) { last unless length($perlret[0]) && length($perlret[0]) >= $i; my $try = substr($perlret[0],0,$i); my @tries = grep {substr($_,0,$i) eq $try} @perlret; # warn "try[$try]tries[@tries]"; if (@tries == @perlret) { $newtext = $try; } else { last; } } ($newtext,@perlret); } #-> sub CPAN::Complete::cpl ; sub cpl { my($word,$line,$pos) = @_; $word ||= ""; $line ||= ""; $pos ||= 0; CPAN->debug("word [$word] line[$line] pos[$pos]") if $CPAN::DEBUG; $line =~ s/^\s*//; if ($line =~ s/^((?:notest|f?force)\s*)//) { $pos -= length($1); } my @return; if ($pos == 0 || $line =~ /^(?:h(?:elp)?|\?)\s/) { @return = grep /^\Q$word\E/, @CPAN::Complete::COMMANDS; } elsif ( $line !~ /^[\!abcdghimorutl]/ ) { @return = (); } elsif ($line =~ /^a\s/) { @return = cplx('CPAN::Author',uc($word)); } elsif ($line =~ /^ls\s/) { my($author,$rest) = $word =~ m|([^/]+)/?(.*)|; @return = $rest ? () : map {"$_/"} cplx('CPAN::Author',uc($author||"")); if (0 && 1==@return) { # XXX too slow and even wrong when there is a * already @return = grep /^\Q$word\E/, map {"$author/$_->[2]"} CPAN::Shell->expand("Author",$author)->ls("$rest*","2"); } } elsif ($line =~ /^b\s/) { CPAN::Shell->local_bundles; @return = cplx('CPAN::Bundle',$word); } elsif ($line =~ /^d\s/) { @return = cplx('CPAN::Distribution',$word); } elsif ($line =~ m/^( [mru]|make|clean|dump|get|test|install|readme|look|cvs_import|perldoc|recent )\s/x ) { if ($word =~ /^Bundle::/) { CPAN::Shell->local_bundles; } @return = (cplx('CPAN::Module',$word),cplx('CPAN::Bundle',$word)); } elsif ($line =~ /^i\s/) { @return = cpl_any($word); } elsif ($line =~ /^reload\s/) { @return = cpl_reload($word,$line,$pos); } elsif ($line =~ /^o\s/) { @return = cpl_option($word,$line,$pos); } elsif ($line =~ m/^\S+\s/ ) { # fallback for future commands and what we have forgotten above @return = (cplx('CPAN::Module',$word),cplx('CPAN::Bundle',$word)); } else { @return = (); } return @return; } #-> sub CPAN::Complete::cplx ; sub cplx { my($class, $word) = @_; if (CPAN::_sqlite_running()) { $CPAN::SQLite->search($class, "^\Q$word\E"); } my $method = "id"; $method = "pretty_id" if $class eq "CPAN::Distribution"; sort grep /^\Q$word\E/, map { $_->$method() } $CPAN::META->all_objects($class); } #-> sub CPAN::Complete::cpl_any ; sub cpl_any { my($word) = shift; return ( cplx('CPAN::Author',$word), cplx('CPAN::Bundle',$word), cplx('CPAN::Distribution',$word), cplx('CPAN::Module',$word), ); } #-> sub CPAN::Complete::cpl_reload ; sub cpl_reload { my($word,$line,$pos) = @_; $word ||= ""; my(@words) = split " ", $line; CPAN->debug("word[$word] line[$line] pos[$pos]") if $CPAN::DEBUG; my(@ok) = qw(cpan index); return @ok if @words == 1; return grep /^\Q$word\E/, @ok if @words == 2 && $word; } #-> sub CPAN::Complete::cpl_option ; sub cpl_option { my($word,$line,$pos) = @_; $word ||= ""; my(@words) = split " ", $line; CPAN->debug("word[$word] line[$line] pos[$pos]") if $CPAN::DEBUG; my(@ok) = qw(conf debug); return @ok if @words == 1; return grep /^\Q$word\E/, @ok if @words == 2 && length($word); if (0) { } elsif ($words[1] eq 'index') { return (); } elsif ($words[1] eq 'conf') { return CPAN::HandleConfig::cpl(@_); } elsif ($words[1] eq 'debug') { return sort grep /^\Q$word\E/i, sort keys %CPAN::DEBUG, 'all'; } } 1; PK ! naX67 7 5.34.0/CPAN/Prompt.pmnu �[��� # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- # vim: ts=4 sts=4 sw=4: package CPAN::Prompt; use overload '""' => "as_string"; use vars qw($prompt); use vars qw( $VERSION ); $VERSION = "5.5"; $prompt = "cpan> "; $CPAN::CurrentCommandId ||= 0; sub new { bless {}, shift; } sub as_string { my $word = "cpan"; unless ($CPAN::META->{LOCK}) { $word = "nolock_cpan"; } if ($CPAN::Config->{commandnumber_in_prompt}) { sprintf "$word\[%d]> ", $CPAN::CurrentCommandId; } else { "$word> "; } } 1; PK ! ��䍽 � 5.34.0/CPAN/DeferredCode.pmnu �[��� package CPAN::DeferredCode; use strict; use vars qw/$VERSION/; use overload fallback => 1, map { ($_ => 'run') } qw/ bool "" 0+ /; $VERSION = "5.50"; sub run { $_[0]->(); } 1; PK ! M : �. �. 5.34.0/CPAN/Distroprefs.pmnu �[��� # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- # vim: ts=4 sts=4 sw=4: use 5.006; use strict; package CPAN::Distroprefs; use vars qw($VERSION); $VERSION = '6.0001'; package CPAN::Distroprefs::Result; use File::Spec; sub new { bless $_[1] || {} => $_[0] } sub abs { File::Spec->catfile($_[0]->dir, $_[0]->file) } sub __cloner { my ($class, $name, $newclass) = @_; $newclass = 'CPAN::Distroprefs::Result::' . $newclass; no strict 'refs'; *{$class . '::' . $name} = sub { $newclass->new({ %{ $_[0] }, %{ $_[1] }, }); }; } BEGIN { __PACKAGE__->__cloner(as_warning => 'Warning') } BEGIN { __PACKAGE__->__cloner(as_fatal => 'Fatal') } BEGIN { __PACKAGE__->__cloner(as_success => 'Success') } sub __accessor { my ($class, $key) = @_; no strict 'refs'; *{$class . '::' . $key} = sub { $_[0]->{$key} }; } BEGIN { __PACKAGE__->__accessor($_) for qw(type file ext dir) } sub is_warning { 0 } sub is_fatal { 0 } sub is_success { 0 } package CPAN::Distroprefs::Result::Error; use vars qw(@ISA); BEGIN { @ISA = 'CPAN::Distroprefs::Result' } ## no critic BEGIN { __PACKAGE__->__accessor($_) for qw(msg) } sub as_string { my ($self) = @_; if ($self->msg) { return sprintf $self->fmt_reason, $self->file, $self->msg; } else { return sprintf $self->fmt_unknown, $self->file; } } package CPAN::Distroprefs::Result::Warning; use vars qw(@ISA); BEGIN { @ISA = 'CPAN::Distroprefs::Result::Error' } ## no critic sub is_warning { 1 } sub fmt_reason { "Error reading distroprefs file %s, skipping: %s" } sub fmt_unknown { "Unknown error reading distroprefs file %s, skipping." } package CPAN::Distroprefs::Result::Fatal; use vars qw(@ISA); BEGIN { @ISA = 'CPAN::Distroprefs::Result::Error' } ## no critic sub is_fatal { 1 } sub fmt_reason { "Error reading distroprefs file %s: %s" } sub fmt_unknown { "Unknown error reading distroprefs file %s." } package CPAN::Distroprefs::Result::Success; use vars qw(@ISA); BEGIN { @ISA = 'CPAN::Distroprefs::Result' } ## no critic BEGIN { __PACKAGE__->__accessor($_) for qw(prefs extension) } sub is_success { 1 } package CPAN::Distroprefs::Iterator; sub new { bless $_[1] => $_[0] } sub next { $_[0]->() } package CPAN::Distroprefs; use Carp (); use DirHandle; sub _load_method { my ($self, $loader, $result) = @_; return '_load_yaml' if $loader eq 'CPAN' or $loader =~ /^YAML(::|$)/; return '_load_' . $result->ext; } sub _load_yaml { my ($self, $loader, $result) = @_; my $data = eval { $loader eq 'CPAN' ? $loader->_yaml_loadfile($result->abs) : [ $loader->can('LoadFile')->($result->abs) ] }; if (my $err = $@) { die $result->as_warning({ msg => $err, }); } elsif (!$data) { die $result->as_warning; } else { return @$data; } } sub _load_dd { my ($self, $loader, $result) = @_; my @data; { package CPAN::Eval; # this caused a die in CPAN.pm, and I am leaving it 'fatal', though I'm # not sure why we wouldn't just skip the file as we do for all other # errors. -- hdp my $abs = $result->abs; open FH, "<$abs" or die $result->as_fatal(msg => "$!"); local $/; my $eval = <FH>; close FH; no strict; eval $eval; if (my $err = $@) { die $result->as_warning({ msg => $err }); } my $i = 1; while (${"VAR$i"}) { push @data, ${"VAR$i"}; $i++; } } return @data; } sub _load_st { my ($self, $loader, $result) = @_; # eval because Storable is never forward compatible my @data = eval { @{scalar $loader->can('retrieve')->($result->abs) } }; if (my $err = $@) { die $result->as_warning({ msg => $err }); } return @data; } sub _build_file_list { if (@_ > 3) { die "_build_file_list should be called with 3 arguments, was called with more. First argument is '$_[0]'."; } my ($dir, $dir1, $ext_re) = @_; my @list; my $dh; unless (opendir($dh, $dir)) { $CPAN::Frontend->mywarn("ignoring prefs directory '$dir': $!"); return @list; } while (my $fn = readdir $dh) { next if $fn eq '.' || $fn eq '..'; if (-d "$dir/$fn") { next if $fn =~ /^[._]/; # prune .svn, .git, .hg, _darcs and what the user wants to hide push @list, _build_file_list("$dir/$fn", "$dir1$fn/", $ext_re); } else { if ($fn =~ $ext_re) { push @list, "$dir1$fn"; } } } return @list; } sub find { my ($self, $dir, $ext_map) = @_; return CPAN::Distroprefs::Iterator->new(sub { return }) unless %$ext_map; my $possible_ext = join "|", map { quotemeta } keys %$ext_map; my $ext_re = qr/\.($possible_ext)$/; my @files = _build_file_list($dir, '', $ext_re); @files = sort @files if @files; # label the block so that we can use redo in the middle return CPAN::Distroprefs::Iterator->new(sub { LOOP: { my $fn = shift @files; return unless defined $fn; my ($ext) = $fn =~ $ext_re; my $loader = $ext_map->{$ext}; my $result = CPAN::Distroprefs::Result->new({ file => $fn, ext => $ext, dir => $dir }); # copied from CPAN.pm; is this ever actually possible? redo unless -f $result->abs; my $load_method = $self->_load_method($loader, $result); my @prefs = eval { $self->$load_method($loader, $result) }; if (my $err = $@) { if (ref($err) && eval { $err->isa('CPAN::Distroprefs::Result') }) { return $err; } # rethrow any exceptions that we did not generate die $err; } elsif (!@prefs) { # the loader should have handled this, but just in case: return $result->as_warning; } return $result->as_success({ prefs => [ map { CPAN::Distroprefs::Pref->new({ data => $_ }) } @prefs ], }); } }); } package CPAN::Distroprefs::Pref; use Carp (); sub new { bless $_[1] => $_[0] } sub data { shift->{data} } sub has_any_match { $_[0]->data->{match} ? 1 : 0 } sub has_match { my $match = $_[0]->data->{match} || return 0; exists $match->{$_[1]} || exists $match->{"not_$_[1]"} } sub has_valid_subkeys { grep { exists $_[0]->data->{match}{$_} } map { $_, "not_$_" } $_[0]->match_attributes } sub _pattern { my $re = shift; my $p = eval sprintf 'qr{%s}', $re; if ($@) { $@ =~ s/\n$//; die "Error in Distroprefs pattern qr{$re}\n$@"; } return $p; } sub _match_scalar { my ($match, $data) = @_; my $qr = _pattern($match); return $data =~ /$qr/; } sub _match_hash { my ($match, $data) = @_; for my $mkey (keys %$match) { (my $dkey = $mkey) =~ s/^not_//; my $val = defined $data->{$dkey} ? $data->{$dkey} : ''; if (_match_scalar($match->{$mkey}, $val)) { return 0 if $mkey =~ /^not_/; } else { return 0 if $mkey !~ /^not_/; } } return 1; } sub _match { my ($self, $key, $data, $matcher) = @_; my $m = $self->data->{match}; if (exists $m->{$key}) { return 0 unless $matcher->($m->{$key}, $data); } if (exists $m->{"not_$key"}) { return 0 if $matcher->($m->{"not_$key"}, $data); } return 1; } sub _scalar_match { my ($self, $key, $data) = @_; return $self->_match($key, $data, \&_match_scalar); } sub _hash_match { my ($self, $key, $data) = @_; return $self->_match($key, $data, \&_match_hash); } # do not take the order of C<keys %$match> because "module" is by far the # slowest sub match_attributes { qw(env distribution perl perlconfig module) } sub match_module { my ($self, $modules) = @_; return $self->_match("module", $modules, sub { my($match, $data) = @_; my $qr = _pattern($match); for my $module (@$data) { return 1 if $module =~ /$qr/; } return 0; }); } sub match_distribution { shift->_scalar_match(distribution => @_) } sub match_perl { shift->_scalar_match(perl => @_) } sub match_perlconfig { shift->_hash_match(perlconfig => @_) } sub match_env { shift->_hash_match(env => @_) } sub matches { my ($self, $arg) = @_; my $default_match = 0; for my $key (grep { $self->has_match($_) } $self->match_attributes) { unless (exists $arg->{$key}) { Carp::croak "Can't match pref: missing argument key $key"; } $default_match = 1; my $val = $arg->{$key}; # make it possible to avoid computing things until we have to if (ref($val) eq 'CODE') { $val = $val->() } my $meth = "match_$key"; return 0 unless $self->$meth($val); } return $default_match; } 1; __END__ =head1 NAME CPAN::Distroprefs -- read and match distroprefs =head1 SYNOPSIS use CPAN::Distroprefs; my %info = (... distribution/environment info ...); my $finder = CPAN::Distroprefs->find($prefs_dir, \%ext_map); while (my $result = $finder->next) { die $result->as_string if $result->is_fatal; warn($result->as_string), next if $result->is_warning; for my $pref (@{ $result->prefs }) { if ($pref->matches(\%info)) { return $pref; } } } =head1 DESCRIPTION This module encapsulates reading L<Distroprefs|CPAN> and matching them against CPAN distributions. =head1 INTERFACE my $finder = CPAN::Distroprefs->find($dir, \%ext_map); while (my $result = $finder->next) { ... } Build an iterator which finds distroprefs files in the tree below the given directory. Within the tree directories matching C<m/^[._]/> are pruned. C<%ext_map> is a hashref whose keys are file extensions and whose values are modules used to load matching files: { 'yml' => 'YAML::Syck', 'dd' => 'Data::Dumper', ... } Each time C<< $finder->next >> is called, the iterator returns one of two possible values: =over =item * a CPAN::Distroprefs::Result object =item * C<undef>, indicating that no prefs files remain to be found =back =head1 RESULTS L<C<find()>|/INTERFACE> returns CPAN::Distroprefs::Result objects to indicate success or failure when reading a prefs file. =head2 Common All results share some common attributes: =head3 type C<success>, C<warning>, or C<fatal> =head3 file the file from which these prefs were read, or to which this error refers (relative filename) =head3 ext the file's extension, which determines how to load it =head3 dir the directory the file was read from =head3 abs the absolute path to the file =head2 Errors Error results (warning and fatal) contain: =head3 msg the error message (usually either C<$!> or a YAML error) =head2 Successes Success results contain: =head3 prefs an arrayref of CPAN::Distroprefs::Pref objects =head1 PREFS CPAN::Distroprefs::Pref objects represent individual distroprefs documents. They are constructed automatically as part of C<success> results from C<find()>. =head3 data the pref information as a hashref, suitable for e.g. passing to Kwalify =head3 match_attributes returns a list of the valid match attributes (see the Distroprefs section in L<CPAN>) currently: C<env perl perlconfig distribution module> =head3 has_any_match true if this pref has a 'match' attribute at all =head3 has_valid_subkeys true if this pref has a 'match' attribute and at least one valid match attribute =head3 matches if ($pref->matches(\%arg)) { ... } true if this pref matches the passed-in hashref, which must have a value for each of the C<match_attributes> (above) =head1 LICENSE This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut PK ! Ч��� � 5.34.0/CPAN/InfoObj.pmnu �[��� # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- # vim: ts=4 sts=4 sw=4: package CPAN::InfoObj; use strict; use CPAN::Debug; @CPAN::InfoObj::ISA = qw(CPAN::Debug); use Cwd qw(chdir); use vars qw( $VERSION ); $VERSION = "5.5"; sub ro { my $self = shift; exists $self->{RO} and return $self->{RO}; } #-> sub CPAN::InfoObj::cpan_userid sub cpan_userid { my $self = shift; my $ro = $self->ro; if ($ro) { return $ro->{CPAN_USERID} || "N/A"; } else { $self->debug("ID[$self->{ID}]"); # N/A for bundles found locally return "N/A"; } } sub id { shift->{ID}; } #-> sub CPAN::InfoObj::new ; sub new { my $this = bless {}, shift; %$this = @_; $this } # The set method may only be used by code that reads index data or # otherwise "objective" data from the outside world. All session # related material may do anything else with instance variables but # must not touch the hash under the RO attribute. The reason is that # the RO hash gets written to Metadata file and is thus persistent. #-> sub CPAN::InfoObj::safe_chdir ; sub safe_chdir { my($self,$todir) = @_; # we die if we cannot chdir and we are debuggable Carp::confess("safe_chdir called without todir argument") unless defined $todir and length $todir; if (chdir $todir) { $self->debug(sprintf "changed directory to %s", CPAN::anycwd()) if $CPAN::DEBUG; } else { if (-e $todir) { unless (-x $todir) { unless (chmod 0755, $todir) { my $cwd = CPAN::anycwd(); $CPAN::Frontend->mywarn("I have neither the -x permission nor the ". "permission to change the permission; cannot ". "chdir to '$todir'\n"); $CPAN::Frontend->mysleep(5); $CPAN::Frontend->mydie(qq{Could not chdir from cwd[$cwd] }. qq{to todir[$todir]: $!}); } } } else { $CPAN::Frontend->mydie("Directory '$todir' has gone. Cannot continue.\n"); } if (chdir $todir) { $self->debug(sprintf "changed directory to %s", CPAN::anycwd()) if $CPAN::DEBUG; } else { my $cwd = CPAN::anycwd(); $CPAN::Frontend->mydie(qq{Could not chdir from cwd[$cwd] }. qq{to todir[$todir] (a chmod has been issued): $!}); } } } #-> sub CPAN::InfoObj::set ; sub set { my($self,%att) = @_; my $class = ref $self; # This must be ||=, not ||, because only if we write an empty # reference, only then the set method will write into the readonly # area. But for Distributions that spring into existence, maybe # because of a typo, we do not like it that they are written into # the readonly area and made permanent (at least for a while) and # that is why we do not "allow" other places to call ->set. unless ($self->id) { CPAN->debug("Bug? Empty ID, rejecting"); return; } my $ro = $self->{RO} = $CPAN::META->{readonly}{$class}{$self->id} ||= {}; while (my($k,$v) = each %att) { $ro->{$k} = $v; } } #-> sub CPAN::InfoObj::as_glimpse ; sub as_glimpse { my($self) = @_; my(@m); my $class = ref($self); $class =~ s/^CPAN:://; my $id = $self->can("pretty_id") ? $self->pretty_id : $self->{ID}; push @m, sprintf "%-15s %s\n", $class, $id; join "", @m; } #-> sub CPAN::InfoObj::as_string ; sub as_string { my($self) = @_; my(@m); my $class = ref($self); $class =~ s/^CPAN:://; push @m, $class, " id = $self->{ID}\n"; my $ro; unless ($ro = $self->ro) { if (substr($self->{ID},-1,1) eq ".") { # directory $ro = +{}; } else { $CPAN::Frontend->mywarn("Unknown object $self->{ID}\n"); $CPAN::Frontend->mysleep(5); return; } } for (sort keys %$ro) { # next if m/^(ID|RO)$/; my $extra = ""; if ($_ eq "CPAN_USERID") { $extra .= " ("; $extra .= $self->fullname; my $email; # old perls! if ($email = $CPAN::META->instance("CPAN::Author", $self->cpan_userid )->email) { $extra .= " <$email>"; } else { $extra .= " <no email>"; } $extra .= ")"; } elsif ($_ eq "FULLNAME") { # potential UTF-8 conversion push @m, sprintf " %-12s %s\n", $_, $self->fullname; next; } next unless defined $ro->{$_}; push @m, sprintf " %-12s %s%s\n", $_, $ro->{$_}, $extra; } KEY: for (sort keys %$self) { next if m/^(ID|RO)$/; unless (defined $self->{$_}) { delete $self->{$_}; next KEY; } if (ref($self->{$_}) eq "ARRAY") { push @m, sprintf " %-12s %s\n", $_, "@{$self->{$_}}"; } elsif (ref($self->{$_}) eq "HASH") { my $value; if (/^CONTAINSMODS$/) { $value = join(" ",sort keys %{$self->{$_}}); } elsif (/^prereq_pm$/) { my @value; my $v = $self->{$_}; for my $x (sort keys %$v) { my @svalue; for my $y (sort keys %{$v->{$x}}) { push @svalue, "$y=>$v->{$x}{$y}"; } push @value, "$x\:" . join ",", @svalue if @svalue; } $value = join ";", @value; } else { $value = $self->{$_}; } push @m, sprintf( " %-12s %s\n", $_, $value, ); } else { push @m, sprintf " %-12s %s\n", $_, $self->{$_}; } } join "", @m, "\n"; } #-> sub CPAN::InfoObj::fullname ; sub fullname { my($self) = @_; $CPAN::META->instance("CPAN::Author",$self->cpan_userid)->fullname; } #-> sub CPAN::InfoObj::dump ; sub dump { my($self, $what) = @_; unless ($CPAN::META->has_inst("Data::Dumper")) { $CPAN::Frontend->mydie("dump command requires Data::Dumper installed"); } local $Data::Dumper::Sortkeys; $Data::Dumper::Sortkeys = 1; my $out = Data::Dumper::Dumper($what ? eval $what : $self); if (length $out > 100000) { my $fh_pager = FileHandle->new; local($SIG{PIPE}) = "IGNORE"; my $pager = $CPAN::Config->{'pager'} || "cat"; $fh_pager->open("|$pager") or die "Could not open pager $pager\: $!"; $fh_pager->print($out); close $fh_pager; } else { $CPAN::Frontend->myprint($out); } } 1; PK ! z���6 6 5.34.0/CPAN/Debug.pmnu �[��� # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- package CPAN::Debug; use strict; use vars qw($VERSION); $VERSION = "5.5001"; # module is internal to CPAN.pm %CPAN::DEBUG = qw[ CPAN 1 Index 2 InfoObj 4 Author 8 Distribution 16 Bundle 32 Module 64 CacheMgr 128 Complete 256 FTP 512 Shell 1024 Eval 2048 HandleConfig 4096 Tarzip 8192 Version 16384 Queue 32768 FirstTime 65536 ]; $CPAN::DEBUG ||= 0; #-> sub CPAN::Debug::debug ; sub debug { my($self,$arg) = @_; my @caller; my $i = 0; while () { my(@c) = (caller($i))[0 .. ($i ? 3 : 2)]; last unless defined $c[0]; push @caller, \@c; for (0,3) { last if $_ > $#c; $c[$_] =~ s/.*:://; } for (1) { $c[$_] =~ s|.*/||; } last if ++$i>=3; } pop @caller; if ($CPAN::DEBUG{$caller[0][0]} & $CPAN::DEBUG) { if ($arg and ref $arg) { eval { require Data::Dumper }; if ($@) { $CPAN::Frontend->myprint("Debug(\n" . $arg->as_string . ")\n"); } else { $CPAN::Frontend->myprint("Debug(\n" . Data::Dumper::Dumper($arg) . ")\n"); } } else { my $outer = ""; local $" = ","; if (@caller>1) { $outer = ",[@{$caller[1]}]"; } $CPAN::Frontend->myprint("Debug(@{$caller[0]}$outer): $arg\n"); } } } 1; __END__ =head1 NAME CPAN::Debug - internal debugging for CPAN.pm =head1 LICENSE This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut PK ! ���ri ri 5.34.0/CPAN/Meta/YAML.pmnu �[��� use 5.008001; # sane UTF-8 support use strict; use warnings; package CPAN::Meta::YAML; # git description: v1.68-2-gcc5324e # XXX-INGY is 5.8.1 too old/broken for utf8? # XXX-XDG Lancaster consensus was that it was sufficient until # proven otherwise $CPAN::Meta::YAML::VERSION = '0.018'; ; # original $VERSION removed by Doppelgaenger ##################################################################### # The CPAN::Meta::YAML API. # # These are the currently documented API functions/methods and # exports: use Exporter; our @ISA = qw{ Exporter }; our @EXPORT = qw{ Load Dump }; our @EXPORT_OK = qw{ LoadFile DumpFile freeze thaw }; ### # Functional/Export API: sub Dump { return CPAN::Meta::YAML->new(@_)->_dump_string; } # XXX-INGY Returning last document seems a bad behavior. # XXX-XDG I think first would seem more natural, but I don't know # that it's worth changing now sub Load { my $self = CPAN::Meta::YAML->_load_string(@_); if ( wantarray ) { return @$self; } else { # To match YAML.pm, return the last document return $self->[-1]; } } # XXX-INGY Do we really need freeze and thaw? # XXX-XDG I don't think so. I'd support deprecating them. BEGIN { *freeze = \&Dump; *thaw = \&Load; } sub DumpFile { my $file = shift; return CPAN::Meta::YAML->new(@_)->_dump_file($file); } sub LoadFile { my $file = shift; my $self = CPAN::Meta::YAML->_load_file($file); if ( wantarray ) { return @$self; } else { # Return only the last document to match YAML.pm, return $self->[-1]; } } ### # Object Oriented API: # Create an empty CPAN::Meta::YAML object # XXX-INGY Why do we use ARRAY object? # NOTE: I get it now, but I think it's confusing and not needed. # Will change it on a branch later, for review. # # XXX-XDG I don't support changing it yet. It's a very well-documented # "API" of CPAN::Meta::YAML. I'd support deprecating it, but Adam suggested # we not change it until YAML.pm's own OO API is established so that # users only have one API change to digest, not two sub new { my $class = shift; bless [ @_ ], $class; } # XXX-INGY It probably doesn't matter, and it's probably too late to # change, but 'read/write' are the wrong names. Read and Write # are actions that take data from storage to memory # characters/strings. These take the data to/from storage to native # Perl objects, which the terms dump and load are meant. As long as # this is a legacy quirk to CPAN::Meta::YAML it's ok, but I'd prefer not # to add new {read,write}_* methods to this API. sub read_string { my $self = shift; $self->_load_string(@_); } sub write_string { my $self = shift; $self->_dump_string(@_); } sub read { my $self = shift; $self->_load_file(@_); } sub write { my $self = shift; $self->_dump_file(@_); } ##################################################################### # Constants # Printed form of the unprintable characters in the lowest range # of ASCII characters, listed by ASCII ordinal position. my @UNPRINTABLE = qw( 0 x01 x02 x03 x04 x05 x06 a b t n v f r x0E x0F x10 x11 x12 x13 x14 x15 x16 x17 x18 x19 x1A e x1C x1D x1E x1F ); # Printable characters for escapes my %UNESCAPES = ( 0 => "\x00", z => "\x00", N => "\x85", a => "\x07", b => "\x08", t => "\x09", n => "\x0a", v => "\x0b", f => "\x0c", r => "\x0d", e => "\x1b", '\\' => '\\', ); # XXX-INGY # I(ngy) need to decide if these values should be quoted in # CPAN::Meta::YAML or not. Probably yes. # These 3 values have special meaning when unquoted and using the # default YAML schema. They need quotes if they are strings. my %QUOTE = map { $_ => 1 } qw{ null true false }; # The commented out form is simpler, but overloaded the Perl regex # engine due to recursion and backtracking problems on strings # larger than 32,000ish characters. Keep it for reference purposes. # qr/\"((?:\\.|[^\"])*)\"/ my $re_capture_double_quoted = qr/\"([^\\"]*(?:\\.[^\\"]*)*)\"/; my $re_capture_single_quoted = qr/\'([^\']*(?:\'\'[^\']*)*)\'/; # unquoted re gets trailing space that needs to be stripped my $re_capture_unquoted_key = qr/([^:]+(?::+\S(?:[^:]*|.*?(?=:)))*)(?=\s*\:(?:\s+|$))/; my $re_trailing_comment = qr/(?:\s+\#.*)?/; my $re_key_value_separator = qr/\s*:(?:\s+(?:\#.*)?|$)/; ##################################################################### # CPAN::Meta::YAML Implementation. # # These are the private methods that do all the work. They may change # at any time. ### # Loader functions: # Create an object from a file sub _load_file { my $class = ref $_[0] ? ref shift : shift; # Check the file my $file = shift or $class->_error( 'You did not specify a file name' ); $class->_error( "File '$file' does not exist" ) unless -e $file; $class->_error( "'$file' is a directory, not a file" ) unless -f _; $class->_error( "Insufficient permissions to read '$file'" ) unless -r _; # Open unbuffered with strict UTF-8 decoding and no translation layers open( my $fh, "<:unix:encoding(UTF-8)", $file ); unless ( $fh ) { $class->_error("Failed to open file '$file': $!"); } # flock if available (or warn if not possible for OS-specific reasons) if ( _can_flock() ) { flock( $fh, Fcntl::LOCK_SH() ) or warn "Couldn't lock '$file' for reading: $!"; } # slurp the contents my $contents = eval { use warnings FATAL => 'utf8'; local $/; <$fh> }; if ( my $err = $@ ) { $class->_error("Error reading from file '$file': $err"); } # close the file (release the lock) unless ( close $fh ) { $class->_error("Failed to close file '$file': $!"); } $class->_load_string( $contents ); } # Create an object from a string sub _load_string { my $class = ref $_[0] ? ref shift : shift; my $self = bless [], $class; my $string = $_[0]; eval { unless ( defined $string ) { die \"Did not provide a string to load"; } # Check if Perl has it marked as characters, but it's internally # inconsistent. E.g. maybe latin1 got read on a :utf8 layer if ( utf8::is_utf8($string) && ! utf8::valid($string) ) { die \<<'...'; Read an invalid UTF-8 string (maybe mixed UTF-8 and 8-bit character set). Did you decode with lax ":utf8" instead of strict ":encoding(UTF-8)"? ... } # Ensure Unicode character semantics, even for 0x80-0xff utf8::upgrade($string); # Check for and strip any leading UTF-8 BOM $string =~ s/^\x{FEFF}//; # Check for some special cases return $self unless length $string; # Split the file into lines my @lines = grep { ! /^\s*(?:\#.*)?\z/ } split /(?:\015{1,2}\012|\015|\012)/, $string; # Strip the initial YAML header @lines and $lines[0] =~ /^\%YAML[: ][\d\.]+.*\z/ and shift @lines; # A nibbling parser my $in_document = 0; while ( @lines ) { # Do we have a document header? if ( $lines[0] =~ /^---\s*(?:(.+)\s*)?\z/ ) { # Handle scalar documents shift @lines; if ( defined $1 and $1 !~ /^(?:\#.+|\%YAML[: ][\d\.]+)\z/ ) { push @$self, $self->_load_scalar( "$1", [ undef ], \@lines ); next; } $in_document = 1; } if ( ! @lines or $lines[0] =~ /^(?:---|\.\.\.)/ ) { # A naked document push @$self, undef; while ( @lines and $lines[0] !~ /^---/ ) { shift @lines; } $in_document = 0; # XXX The final '-+$' is to look for -- which ends up being an # error later. } elsif ( ! $in_document && @$self ) { # only the first document can be explicit die \"CPAN::Meta::YAML failed to classify the line '$lines[0]'"; } elsif ( $lines[0] =~ /^\s*\-(?:\s|$|-+$)/ ) { # An array at the root my $document = [ ]; push @$self, $document; $self->_load_array( $document, [ 0 ], \@lines ); } elsif ( $lines[0] =~ /^(\s*)\S/ ) { # A hash at the root my $document = { }; push @$self, $document; $self->_load_hash( $document, [ length($1) ], \@lines ); } else { # Shouldn't get here. @lines have whitespace-only lines # stripped, and previous match is a line with any # non-whitespace. So this clause should only be reachable via # a perlbug where \s is not symmetric with \S # uncoverable statement die \"CPAN::Meta::YAML failed to classify the line '$lines[0]'"; } } }; my $err = $@; if ( ref $err eq 'SCALAR' ) { $self->_error(${$err}); } elsif ( $err ) { $self->_error($err); } return $self; } sub _unquote_single { my ($self, $string) = @_; return '' unless length $string; $string =~ s/\'\'/\'/g; return $string; } sub _unquote_double { my ($self, $string) = @_; return '' unless length $string; $string =~ s/\\"/"/g; $string =~ s{\\([Nnever\\fartz0b]|x([0-9a-fA-F]{2}))} {(length($1)>1)?pack("H2",$2):$UNESCAPES{$1}}gex; return $string; } # Load a YAML scalar string to the actual Perl scalar sub _load_scalar { my ($self, $string, $indent, $lines) = @_; # Trim trailing whitespace $string =~ s/\s*\z//; # Explitic null/undef return undef if $string eq '~'; # Single quote if ( $string =~ /^$re_capture_single_quoted$re_trailing_comment\z/ ) { return $self->_unquote_single($1); } # Double quote. if ( $string =~ /^$re_capture_double_quoted$re_trailing_comment\z/ ) { return $self->_unquote_double($1); } # Special cases if ( $string =~ /^[\'\"!&]/ ) { die \"CPAN::Meta::YAML does not support a feature in line '$string'"; } return {} if $string =~ /^{}(?:\s+\#.*)?\z/; return [] if $string =~ /^\[\](?:\s+\#.*)?\z/; # Regular unquoted string if ( $string !~ /^[>|]/ ) { die \"CPAN::Meta::YAML found illegal characters in plain scalar: '$string'" if $string =~ /^(?:-(?:\s|$)|[\@\%\`])/ or $string =~ /:(?:\s|$)/; $string =~ s/\s+#.*\z//; return $string; } # Error die \"CPAN::Meta::YAML failed to find multi-line scalar content" unless @$lines; # Check the indent depth $lines->[0] =~ /^(\s*)/; $indent->[-1] = length("$1"); if ( defined $indent->[-2] and $indent->[-1] <= $indent->[-2] ) { die \"CPAN::Meta::YAML found bad indenting in line '$lines->[0]'"; } # Pull the lines my @multiline = (); while ( @$lines ) { $lines->[0] =~ /^(\s*)/; last unless length($1) >= $indent->[-1]; push @multiline, substr(shift(@$lines), length($1)); } my $j = (substr($string, 0, 1) eq '>') ? ' ' : "\n"; my $t = (substr($string, 1, 1) eq '-') ? '' : "\n"; return join( $j, @multiline ) . $t; } # Load an array sub _load_array { my ($self, $array, $indent, $lines) = @_; while ( @$lines ) { # Check for a new document if ( $lines->[0] =~ /^(?:---|\.\.\.)/ ) { while ( @$lines and $lines->[0] !~ /^---/ ) { shift @$lines; } return 1; } # Check the indent level $lines->[0] =~ /^(\s*)/; if ( length($1) < $indent->[-1] ) { return 1; } elsif ( length($1) > $indent->[-1] ) { die \"CPAN::Meta::YAML found bad indenting in line '$lines->[0]'"; } if ( $lines->[0] =~ /^(\s*\-\s+)[^\'\"]\S*\s*:(?:\s+|$)/ ) { # Inline nested hash my $indent2 = length("$1"); $lines->[0] =~ s/-/ /; push @$array, { }; $self->_load_hash( $array->[-1], [ @$indent, $indent2 ], $lines ); } elsif ( $lines->[0] =~ /^\s*\-\s*\z/ ) { shift @$lines; unless ( @$lines ) { push @$array, undef; return 1; } if ( $lines->[0] =~ /^(\s*)\-/ ) { my $indent2 = length("$1"); if ( $indent->[-1] == $indent2 ) { # Null array entry push @$array, undef; } else { # Naked indenter push @$array, [ ]; $self->_load_array( $array->[-1], [ @$indent, $indent2 ], $lines ); } } elsif ( $lines->[0] =~ /^(\s*)\S/ ) { push @$array, { }; $self->_load_hash( $array->[-1], [ @$indent, length("$1") ], $lines ); } else { die \"CPAN::Meta::YAML failed to classify line '$lines->[0]'"; } } elsif ( $lines->[0] =~ /^\s*\-(\s*)(.+?)\s*\z/ ) { # Array entry with a value shift @$lines; push @$array, $self->_load_scalar( "$2", [ @$indent, undef ], $lines ); } elsif ( defined $indent->[-2] and $indent->[-1] == $indent->[-2] ) { # This is probably a structure like the following... # --- # foo: # - list # bar: value # # ... so lets return and let the hash parser handle it return 1; } else { die \"CPAN::Meta::YAML failed to classify line '$lines->[0]'"; } } return 1; } # Load a hash sub _load_hash { my ($self, $hash, $indent, $lines) = @_; while ( @$lines ) { # Check for a new document if ( $lines->[0] =~ /^(?:---|\.\.\.)/ ) { while ( @$lines and $lines->[0] !~ /^---/ ) { shift @$lines; } return 1; } # Check the indent level $lines->[0] =~ /^(\s*)/; if ( length($1) < $indent->[-1] ) { return 1; } elsif ( length($1) > $indent->[-1] ) { die \"CPAN::Meta::YAML found bad indenting in line '$lines->[0]'"; } # Find the key my $key; # Quoted keys if ( $lines->[0] =~ s/^\s*$re_capture_single_quoted$re_key_value_separator// ) { $key = $self->_unquote_single($1); } elsif ( $lines->[0] =~ s/^\s*$re_capture_double_quoted$re_key_value_separator// ) { $key = $self->_unquote_double($1); } elsif ( $lines->[0] =~ s/^\s*$re_capture_unquoted_key$re_key_value_separator// ) { $key = $1; $key =~ s/\s+$//; } elsif ( $lines->[0] =~ /^\s*\?/ ) { die \"CPAN::Meta::YAML does not support a feature in line '$lines->[0]'"; } else { die \"CPAN::Meta::YAML failed to classify line '$lines->[0]'"; } if ( exists $hash->{$key} ) { warn "CPAN::Meta::YAML found a duplicate key '$key' in line '$lines->[0]'"; } # Do we have a value? if ( length $lines->[0] ) { # Yes $hash->{$key} = $self->_load_scalar( shift(@$lines), [ @$indent, undef ], $lines ); } else { # An indent shift @$lines; unless ( @$lines ) { $hash->{$key} = undef; return 1; } if ( $lines->[0] =~ /^(\s*)-/ ) { $hash->{$key} = []; $self->_load_array( $hash->{$key}, [ @$indent, length($1) ], $lines ); } elsif ( $lines->[0] =~ /^(\s*)./ ) { my $indent2 = length("$1"); if ( $indent->[-1] >= $indent2 ) { # Null hash entry $hash->{$key} = undef; } else { $hash->{$key} = {}; $self->_load_hash( $hash->{$key}, [ @$indent, length($1) ], $lines ); } } } } return 1; } ### # Dumper functions: # Save an object to a file sub _dump_file { my $self = shift; require Fcntl; # Check the file my $file = shift or $self->_error( 'You did not specify a file name' ); my $fh; # flock if available (or warn if not possible for OS-specific reasons) if ( _can_flock() ) { # Open without truncation (truncate comes after lock) my $flags = Fcntl::O_WRONLY()|Fcntl::O_CREAT(); sysopen( $fh, $file, $flags ); unless ( $fh ) { $self->_error("Failed to open file '$file' for writing: $!"); } # Use no translation and strict UTF-8 binmode( $fh, ":raw:encoding(UTF-8)"); flock( $fh, Fcntl::LOCK_EX() ) or warn "Couldn't lock '$file' for reading: $!"; # truncate and spew contents truncate $fh, 0; seek $fh, 0, 0; } else { open $fh, ">:unix:encoding(UTF-8)", $file; } # serialize and spew to the handle print {$fh} $self->_dump_string; # close the file (release the lock) unless ( close $fh ) { $self->_error("Failed to close file '$file': $!"); } return 1; } # Save an object to a string sub _dump_string { my $self = shift; return '' unless ref $self && @$self; # Iterate over the documents my $indent = 0; my @lines = (); eval { foreach my $cursor ( @$self ) { push @lines, '---'; # An empty document if ( ! defined $cursor ) { # Do nothing # A scalar document } elsif ( ! ref $cursor ) { $lines[-1] .= ' ' . $self->_dump_scalar( $cursor ); # A list at the root } elsif ( ref $cursor eq 'ARRAY' ) { unless ( @$cursor ) { $lines[-1] .= ' []'; next; } push @lines, $self->_dump_array( $cursor, $indent, {} ); # A hash at the root } elsif ( ref $cursor eq 'HASH' ) { unless ( %$cursor ) { $lines[-1] .= ' {}'; next; } push @lines, $self->_dump_hash( $cursor, $indent, {} ); } else { die \("Cannot serialize " . ref($cursor)); } } }; if ( ref $@ eq 'SCALAR' ) { $self->_error(${$@}); } elsif ( $@ ) { $self->_error($@); } join '', map { "$_\n" } @lines; } sub _has_internal_string_value { my $value = shift; my $b_obj = B::svref_2object(\$value); # for round trip problem return $b_obj->FLAGS & B::SVf_POK(); } sub _dump_scalar { my $string = $_[1]; my $is_key = $_[2]; # Check this before checking length or it winds up looking like a string! my $has_string_flag = _has_internal_string_value($string); return '~' unless defined $string; return "''" unless length $string; if (Scalar::Util::looks_like_number($string)) { # keys and values that have been used as strings get quoted if ( $is_key || $has_string_flag ) { return qq['$string']; } else { return $string; } } if ( $string =~ /[\x00-\x09\x0b-\x0d\x0e-\x1f\x7f-\x9f\'\n]/ ) { $string =~ s/\\/\\\\/g; $string =~ s/"/\\"/g; $string =~ s/\n/\\n/g; $string =~ s/[\x85]/\\N/g; $string =~ s/([\x00-\x1f])/\\$UNPRINTABLE[ord($1)]/g; $string =~ s/([\x7f-\x9f])/'\x' . sprintf("%X",ord($1))/ge; return qq|"$string"|; } if ( $string =~ /(?:^[~!@#%&*|>?:,'"`{}\[\]]|^-+$|\s|:\z)/ or $QUOTE{$string} ) { return "'$string'"; } return $string; } sub _dump_array { my ($self, $array, $indent, $seen) = @_; if ( $seen->{refaddr($array)}++ ) { die \"CPAN::Meta::YAML does not support circular references"; } my @lines = (); foreach my $el ( @$array ) { my $line = (' ' x $indent) . '-'; my $type = ref $el; if ( ! $type ) { $line .= ' ' . $self->_dump_scalar( $el ); push @lines, $line; } elsif ( $type eq 'ARRAY' ) { if ( @$el ) { push @lines, $line; push @lines, $self->_dump_array( $el, $indent + 1, $seen ); } else { $line .= ' []'; push @lines, $line; } } elsif ( $type eq 'HASH' ) { if ( keys %$el ) { push @lines, $line; push @lines, $self->_dump_hash( $el, $indent + 1, $seen ); } else { $line .= ' {}'; push @lines, $line; } } else { die \"CPAN::Meta::YAML does not support $type references"; } } @lines; } sub _dump_hash { my ($self, $hash, $indent, $seen) = @_; if ( $seen->{refaddr($hash)}++ ) { die \"CPAN::Meta::YAML does not support circular references"; } my @lines = (); foreach my $name ( sort keys %$hash ) { my $el = $hash->{$name}; my $line = (' ' x $indent) . $self->_dump_scalar($name, 1) . ":"; my $type = ref $el; if ( ! $type ) { $line .= ' ' . $self->_dump_scalar( $el ); push @lines, $line; } elsif ( $type eq 'ARRAY' ) { if ( @$el ) { push @lines, $line; push @lines, $self->_dump_array( $el, $indent + 1, $seen ); } else { $line .= ' []'; push @lines, $line; } } elsif ( $type eq 'HASH' ) { if ( keys %$el ) { push @lines, $line; push @lines, $self->_dump_hash( $el, $indent + 1, $seen ); } else { $line .= ' {}'; push @lines, $line; } } else { die \"CPAN::Meta::YAML does not support $type references"; } } @lines; } ##################################################################### # DEPRECATED API methods: # Error storage (DEPRECATED as of 1.57) our $errstr = ''; # Set error sub _error { require Carp; $errstr = $_[1]; $errstr =~ s/ at \S+ line \d+.*//; Carp::croak( $errstr ); } # Retrieve error my $errstr_warned; sub errstr { require Carp; Carp::carp( "CPAN::Meta::YAML->errstr and \$CPAN::Meta::YAML::errstr is deprecated" ) unless $errstr_warned++; $errstr; } ##################################################################### # Helper functions. Possibly not needed. # Use to detect nv or iv use B; # XXX-INGY Is flock CPAN::Meta::YAML's responsibility? # Some platforms can't flock :-( # XXX-XDG I think it is. When reading and writing files, we ought # to be locking whenever possible. People (foolishly) use YAML # files for things like session storage, which has race issues. my $HAS_FLOCK; sub _can_flock { if ( defined $HAS_FLOCK ) { return $HAS_FLOCK; } else { require Config; my $c = \%Config::Config; $HAS_FLOCK = grep { $c->{$_} } qw/d_flock d_fcntl_can_lock d_lockf/; require Fcntl if $HAS_FLOCK; return $HAS_FLOCK; } } # XXX-INGY Is this core in 5.8.1? Can we remove this? # XXX-XDG Scalar::Util 1.18 didn't land until 5.8.8, so we need this ##################################################################### # Use Scalar::Util if possible, otherwise emulate it use Scalar::Util (); BEGIN { local $@; if ( eval { Scalar::Util->VERSION(1.18); } ) { *refaddr = *Scalar::Util::refaddr; } else { eval <<'END_PERL'; # Scalar::Util failed to load or too old sub refaddr { my $pkg = ref($_[0]) or return undef; if ( !! UNIVERSAL::can($_[0], 'can') ) { bless $_[0], 'Scalar::Util::Fake'; } else { $pkg = undef; } "$_[0]" =~ /0x(\w+)/; my $i = do { no warnings 'portable'; hex $1 }; bless $_[0], $pkg if defined $pkg; $i; } END_PERL } } delete $CPAN::Meta::YAML::{refaddr}; 1; # XXX-INGY Doc notes I'm putting up here. Changing the doc when it's wrong # but leaving grey area stuff up here. # # I would like to change Read/Write to Load/Dump below without # changing the actual API names. # # It might be better to put Load/Dump API in the SYNOPSIS instead of the # dubious OO API. # # null and bool explanations may be outdated. =pod =encoding UTF-8 =head1 NAME CPAN::Meta::YAML - Read and write a subset of YAML for CPAN Meta files =head1 VERSION version 0.018 =head1 SYNOPSIS use CPAN::Meta::YAML; # reading a META file open $fh, "<:utf8", "META.yml"; $yaml_text = do { local $/; <$fh> }; $yaml = CPAN::Meta::YAML->read_string($yaml_text) or die CPAN::Meta::YAML->errstr; # finding the metadata $meta = $yaml->[0]; # writing a META file $yaml_text = $yaml->write_string or die CPAN::Meta::YAML->errstr; open $fh, ">:utf8", "META.yml"; print $fh $yaml_text; =head1 DESCRIPTION This module implements a subset of the YAML specification for use in reading and writing CPAN metadata files like F<META.yml> and F<MYMETA.yml>. It should not be used for any other general YAML parsing or generation task. NOTE: F<META.yml> (and F<MYMETA.yml>) files should be UTF-8 encoded. Users are responsible for proper encoding and decoding. In particular, the C<read> and C<write> methods do B<not> support UTF-8 and should not be used. =head1 SUPPORT This module is currently derived from L<YAML::Tiny> by Adam Kennedy. If there are bugs in how it parses a particular META.yml file, please file a bug report in the YAML::Tiny bugtracker: L<https://github.com/Perl-Toolchain-Gang/YAML-Tiny/issues> =head1 SEE ALSO L<YAML::Tiny>, L<YAML>, L<YAML::XS> =head1 AUTHORS =over 4 =item * Adam Kennedy <adamk@cpan.org> =item * David Golden <dagolden@cpan.org> =back =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2010 by Adam Kennedy. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut __END__ # ABSTRACT: Read and write a subset of YAML for CPAN Meta files PK ! �9Q�T4 T4 5.34.0/CPAN/Meta/Prereqs.pmnu �[��� use 5.006; use strict; use warnings; package CPAN::Meta::Prereqs; our $VERSION = '2.150010'; #pod =head1 DESCRIPTION #pod #pod A CPAN::Meta::Prereqs object represents the prerequisites for a CPAN #pod distribution or one of its optional features. Each set of prereqs is #pod organized by phase and type, as described in L<CPAN::Meta::Prereqs>. #pod #pod =cut use Carp qw(confess); use Scalar::Util qw(blessed); use CPAN::Meta::Requirements 2.121; #pod =method new #pod #pod my $prereq = CPAN::Meta::Prereqs->new( \%prereq_spec ); #pod #pod This method returns a new set of Prereqs. The input should look like the #pod contents of the C<prereqs> field described in L<CPAN::Meta::Spec>, meaning #pod something more or less like this: #pod #pod my $prereq = CPAN::Meta::Prereqs->new({ #pod runtime => { #pod requires => { #pod 'Some::Module' => '1.234', #pod ..., #pod }, #pod ..., #pod }, #pod ..., #pod }); #pod #pod You can also construct an empty set of prereqs with: #pod #pod my $prereqs = CPAN::Meta::Prereqs->new; #pod #pod This empty set of prereqs is useful for accumulating new prereqs before finally #pod dumping the whole set into a structure or string. #pod #pod =cut # note we also accept anything matching /\Ax_/i sub __legal_phases { qw(configure build test runtime develop) } sub __legal_types { qw(requires recommends suggests conflicts) } # expect a prereq spec from META.json -- rjbs, 2010-04-11 sub new { my ($class, $prereq_spec) = @_; $prereq_spec ||= {}; my %is_legal_phase = map {; $_ => 1 } $class->__legal_phases; my %is_legal_type = map {; $_ => 1 } $class->__legal_types; my %guts; PHASE: for my $phase (keys %$prereq_spec) { next PHASE unless $phase =~ /\Ax_/i or $is_legal_phase{$phase}; my $phase_spec = $prereq_spec->{ $phase }; next PHASE unless keys %$phase_spec; TYPE: for my $type (keys %$phase_spec) { next TYPE unless $type =~ /\Ax_/i or $is_legal_type{$type}; my $spec = $phase_spec->{ $type }; next TYPE unless keys %$spec; $guts{prereqs}{$phase}{$type} = CPAN::Meta::Requirements->from_string_hash( $spec ); } } return bless \%guts => $class; } #pod =method requirements_for #pod #pod my $requirements = $prereqs->requirements_for( $phase, $type ); #pod #pod This method returns a L<CPAN::Meta::Requirements> object for the given #pod phase/type combination. If no prerequisites are registered for that #pod combination, a new CPAN::Meta::Requirements object will be returned, and it may #pod be added to as needed. #pod #pod If C<$phase> or C<$type> are undefined or otherwise invalid, an exception will #pod be raised. #pod #pod =cut sub requirements_for { my ($self, $phase, $type) = @_; confess "requirements_for called without phase" unless defined $phase; confess "requirements_for called without type" unless defined $type; unless ($phase =~ /\Ax_/i or grep { $phase eq $_ } $self->__legal_phases) { confess "requested requirements for unknown phase: $phase"; } unless ($type =~ /\Ax_/i or grep { $type eq $_ } $self->__legal_types) { confess "requested requirements for unknown type: $type"; } my $req = ($self->{prereqs}{$phase}{$type} ||= CPAN::Meta::Requirements->new); $req->finalize if $self->is_finalized; return $req; } #pod =method phases #pod #pod my @phases = $prereqs->phases; #pod #pod This method returns the list of all phases currently populated in the prereqs #pod object, suitable for iterating. #pod #pod =cut sub phases { my ($self) = @_; my %is_legal_phase = map {; $_ => 1 } $self->__legal_phases; grep { /\Ax_/i or $is_legal_phase{$_} } keys %{ $self->{prereqs} }; } #pod =method types_in #pod #pod my @runtime_types = $prereqs->types_in('runtime'); #pod #pod This method returns the list of all types currently populated in the prereqs #pod object for the provided phase, suitable for iterating. #pod #pod =cut sub types_in { my ($self, $phase) = @_; return unless $phase =~ /\Ax_/i or grep { $phase eq $_ } $self->__legal_phases; my %is_legal_type = map {; $_ => 1 } $self->__legal_types; grep { /\Ax_/i or $is_legal_type{$_} } keys %{ $self->{prereqs}{$phase} }; } #pod =method with_merged_prereqs #pod #pod my $new_prereqs = $prereqs->with_merged_prereqs( $other_prereqs ); #pod #pod my $new_prereqs = $prereqs->with_merged_prereqs( \@other_prereqs ); #pod #pod This method returns a new CPAN::Meta::Prereqs objects in which all the #pod other prerequisites given are merged into the current set. This is primarily #pod provided for combining a distribution's core prereqs with the prereqs of one of #pod its optional features. #pod #pod The new prereqs object has no ties to the originals, and altering it further #pod will not alter them. #pod #pod =cut sub with_merged_prereqs { my ($self, $other) = @_; my @other = blessed($other) ? $other : @$other; my @prereq_objs = ($self, @other); my %new_arg; for my $phase (__uniq(map { $_->phases } @prereq_objs)) { for my $type (__uniq(map { $_->types_in($phase) } @prereq_objs)) { my $req = CPAN::Meta::Requirements->new; for my $prereq (@prereq_objs) { my $this_req = $prereq->requirements_for($phase, $type); next unless $this_req->required_modules; $req->add_requirements($this_req); } next unless $req->required_modules; $new_arg{ $phase }{ $type } = $req->as_string_hash; } } return (ref $self)->new(\%new_arg); } #pod =method merged_requirements #pod #pod my $new_reqs = $prereqs->merged_requirements( \@phases, \@types ); #pod my $new_reqs = $prereqs->merged_requirements( \@phases ); #pod my $new_reqs = $prereqs->merged_requirements(); #pod #pod This method joins together all requirements across a number of phases #pod and types into a new L<CPAN::Meta::Requirements> object. If arguments #pod are omitted, it defaults to "runtime", "build" and "test" for phases #pod and "requires" and "recommends" for types. #pod #pod =cut sub merged_requirements { my ($self, $phases, $types) = @_; $phases = [qw/runtime build test/] unless defined $phases; $types = [qw/requires recommends/] unless defined $types; confess "merged_requirements phases argument must be an arrayref" unless ref $phases eq 'ARRAY'; confess "merged_requirements types argument must be an arrayref" unless ref $types eq 'ARRAY'; my $req = CPAN::Meta::Requirements->new; for my $phase ( @$phases ) { unless ($phase =~ /\Ax_/i or grep { $phase eq $_ } $self->__legal_phases) { confess "requested requirements for unknown phase: $phase"; } for my $type ( @$types ) { unless ($type =~ /\Ax_/i or grep { $type eq $_ } $self->__legal_types) { confess "requested requirements for unknown type: $type"; } $req->add_requirements( $self->requirements_for($phase, $type) ); } } $req->finalize if $self->is_finalized; return $req; } #pod =method as_string_hash #pod #pod This method returns a hashref containing structures suitable for dumping into a #pod distmeta data structure. It is made up of hashes and strings, only; there will #pod be no Prereqs, CPAN::Meta::Requirements, or C<version> objects inside it. #pod #pod =cut sub as_string_hash { my ($self) = @_; my %hash; for my $phase ($self->phases) { for my $type ($self->types_in($phase)) { my $req = $self->requirements_for($phase, $type); next unless $req->required_modules; $hash{ $phase }{ $type } = $req->as_string_hash; } } return \%hash; } #pod =method is_finalized #pod #pod This method returns true if the set of prereqs has been marked "finalized," and #pod cannot be altered. #pod #pod =cut sub is_finalized { $_[0]{finalized} } #pod =method finalize #pod #pod Calling C<finalize> on a Prereqs object will close it for further modification. #pod Attempting to make any changes that would actually alter the prereqs will #pod result in an exception being thrown. #pod #pod =cut sub finalize { my ($self) = @_; $self->{finalized} = 1; for my $phase (keys %{ $self->{prereqs} }) { $_->finalize for values %{ $self->{prereqs}{$phase} }; } } #pod =method clone #pod #pod my $cloned_prereqs = $prereqs->clone; #pod #pod This method returns a Prereqs object that is identical to the original object, #pod but can be altered without affecting the original object. Finalization does #pod not survive cloning, meaning that you may clone a finalized set of prereqs and #pod then modify the clone. #pod #pod =cut sub clone { my ($self) = @_; my $clone = (ref $self)->new( $self->as_string_hash ); } sub __uniq { my (%s, $u); grep { defined($_) ? !$s{$_}++ : !$u++ } @_; } 1; # ABSTRACT: a set of distribution prerequisites by phase and type =pod =encoding UTF-8 =head1 NAME CPAN::Meta::Prereqs - a set of distribution prerequisites by phase and type =head1 VERSION version 2.150010 =head1 DESCRIPTION A CPAN::Meta::Prereqs object represents the prerequisites for a CPAN distribution or one of its optional features. Each set of prereqs is organized by phase and type, as described in L<CPAN::Meta::Prereqs>. =head1 METHODS =head2 new my $prereq = CPAN::Meta::Prereqs->new( \%prereq_spec ); This method returns a new set of Prereqs. The input should look like the contents of the C<prereqs> field described in L<CPAN::Meta::Spec>, meaning something more or less like this: my $prereq = CPAN::Meta::Prereqs->new({ runtime => { requires => { 'Some::Module' => '1.234', ..., }, ..., }, ..., }); You can also construct an empty set of prereqs with: my $prereqs = CPAN::Meta::Prereqs->new; This empty set of prereqs is useful for accumulating new prereqs before finally dumping the whole set into a structure or string. =head2 requirements_for my $requirements = $prereqs->requirements_for( $phase, $type ); This method returns a L<CPAN::Meta::Requirements> object for the given phase/type combination. If no prerequisites are registered for that combination, a new CPAN::Meta::Requirements object will be returned, and it may be added to as needed. If C<$phase> or C<$type> are undefined or otherwise invalid, an exception will be raised. =head2 phases my @phases = $prereqs->phases; This method returns the list of all phases currently populated in the prereqs object, suitable for iterating. =head2 types_in my @runtime_types = $prereqs->types_in('runtime'); This method returns the list of all types currently populated in the prereqs object for the provided phase, suitable for iterating. =head2 with_merged_prereqs my $new_prereqs = $prereqs->with_merged_prereqs( $other_prereqs ); my $new_prereqs = $prereqs->with_merged_prereqs( \@other_prereqs ); This method returns a new CPAN::Meta::Prereqs objects in which all the other prerequisites given are merged into the current set. This is primarily provided for combining a distribution's core prereqs with the prereqs of one of its optional features. The new prereqs object has no ties to the originals, and altering it further will not alter them. =head2 merged_requirements my $new_reqs = $prereqs->merged_requirements( \@phases, \@types ); my $new_reqs = $prereqs->merged_requirements( \@phases ); my $new_reqs = $prereqs->merged_requirements(); This method joins together all requirements across a number of phases and types into a new L<CPAN::Meta::Requirements> object. If arguments are omitted, it defaults to "runtime", "build" and "test" for phases and "requires" and "recommends" for types. =head2 as_string_hash This method returns a hashref containing structures suitable for dumping into a distmeta data structure. It is made up of hashes and strings, only; there will be no Prereqs, CPAN::Meta::Requirements, or C<version> objects inside it. =head2 is_finalized This method returns true if the set of prereqs has been marked "finalized," and cannot be altered. =head2 finalize Calling C<finalize> on a Prereqs object will close it for further modification. Attempting to make any changes that would actually alter the prereqs will result in an exception being thrown. =head2 clone my $cloned_prereqs = $prereqs->clone; This method returns a Prereqs object that is identical to the original object, but can be altered without affecting the original object. Finalization does not survive cloning, meaning that you may clone a finalized set of prereqs and then modify the clone. =head1 BUGS Please report any bugs or feature using the CPAN Request Tracker. Bugs can be submitted through the web interface at L<http://rt.cpan.org/Dist/Display.html?Queue=CPAN-Meta> When submitting a bug or request, please include a test-file or a patch to an existing test-file that illustrates the bug or desired feature. =head1 AUTHORS =over 4 =item * David Golden <dagolden@cpan.org> =item * Ricardo Signes <rjbs@cpan.org> =item * Adam Kennedy <adamk@cpan.org> =back =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2010 by David Golden, Ricardo Signes, Adam Kennedy and Contributors. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut __END__ # vim: ts=2 sts=2 sw=2 et : PK ! �]s�HH HH % 5.34.0/CPAN/Meta/History/Meta_1_3.podnu �[��� =for :stopwords MailingList PODs RWS subcontext =head1 NAME CPAN::Meta::History::Meta_1_3 - Version 1.3 metadata specification for META.yml =head1 PREFACE This is a historical copy of the version 1.3 specification for F<META.yml> files, copyright by Ken Williams and licensed under the same terms as Perl itself. Modifications from the original: =over =item * Various spelling corrections =item * Include list of valid licenses from L<Module::Build> 0.2805 rather than linking to the module, with minor updates to text and links to reflect versions at the time of publication. =item * Fixed some dead links to point to active resources. =back =head1 SYNOPSIS --- #YAML:1.0 name: Module-Build abstract: Build and install Perl modules version: 0.20 author: - Ken Williams <kwilliams@cpan.org> license: perl distribution_type: module requires: Config: 0 Cwd: 0 Data::Dumper: 0 ExtUtils::Install: 0 File::Basename: 0 File::Compare: 0 File::Copy: 0 File::Find: 0 File::Path: 0 File::Spec: 0 IO::File: 0 perl: 5.005_03 recommends: Archive::Tar: 1.00 ExtUtils::Install: 0.3 ExtUtils::ParseXS: 2.02 Pod::Text: 0 YAML: 0.35 build_requires: Test: 0 urls: license: http://dev.perl.org/licenses/ meta-spec: version: 1.3 url: http://module-build.sourceforge.net/META-spec-v1.3.html generated_by: Module::Build version 0.20 =head1 DESCRIPTION This document describes version 1.3 of the F<META.yml> specification. The F<META.yml> file describes important properties of contributed Perl distributions such as the ones found on CPAN. It is typically created by tools like Module::Build, Module::Install, and ExtUtils::MakeMaker. The fields in the F<META.yml> file are meant to be helpful for people maintaining module collections (like CPAN), for people writing installation tools (like CPAN.pm or CPANPLUS), or just for people who want to know some stuff about a distribution before downloading it and starting to install it. I<Note: The latest stable version of this specification can always be found at L<http://module-build.sourceforge.net/META-spec-current.html>, and the latest development version (which may include things that won't make it into the stable version) can always be found at L<http://module-build.sourceforge.net/META-spec-blead.html>.> =head1 FORMAT F<META.yml> files are written in the YAML format (see L<http://www.yaml.org/>). See the following links to learn why we chose YAML instead of, say, XML or Data::Dumper: =over 4 =item * L<Module::Build design plans|http://www.nntp.perl.org/group/perl.makemaker/2002/04/msg407.html> =item * L<Not keen on YAML|http://www.nntp.perl.org/group/perl.module-authors/2003/11/msg1353.html> =item * L<META Concerns|http://www.nntp.perl.org/group/perl.module-authors/2003/11/msg1385.html> =back =head1 TERMINOLOGY =over 4 =item distribution This is the primary object described by the F<META.yml> specification. In the context of this document it usually refers to a collection of modules, scripts, and/or documents that are distributed together for other developers to use. Examples of distributions are C<Class-Container>, C<libwww-perl>, or C<DBI>. =item module This refers to a reusable library of code typically contained in a single file. Currently, we primarily talk of perl modules, but this specification should be open enough to apply to other languages as well (ex. python, ruby). Examples of modules are C<Class::Container>, C<LWP::Simple>, or C<DBD::File>. =back =head1 HEADER The first line of a F<META.yml> file should be a valid YAML document header like C<"--- #YAML:1.0">. =head1 FIELDS The rest of the F<META.yml> file is one big YAML mapping whose keys are described here. =head2 meta-spec Example: meta-spec: version: 1.3 url: http://module-build.sourceforge.net/META-spec-v1.3.html (Spec 1.1) [required] {URL} This field indicates the location of the version of the META.yml specification used. =head2 name Example: name: Module-Build (Spec 1.0) [required] {string} The name of the distribution which is often created by taking the "main module" in the distribution and changing "::" to "-". Sometimes it's completely different, however, as in the case of the libwww-perl distribution (see L<http://search.cpan.org/dist/libwww-perl/>). =head2 version Example: version: 0.20 (Spec 1.0) [required] {version} The version of the distribution to which the F<META.yml> file refers. =head2 abstract Example: abstract: Build and install Perl modules. (Spec 1.1) [required] {string} A short description of the purpose of the distribution. =head2 author Example: author: - Ken Williams <kwilliams@cpan.org> (Spec 1.1) [required] {list of strings} A YAML sequence indicating the author(s) of the distribution. The preferred form is author-name <email-address>. =head2 license Example: license: perl (Spec 1.0) [required] {string} The license under which this distribution may be used and redistributed. Must be one of the following licenses: =over 4 =item apache The distribution is licensed under the Apache Software License version 1.1 (L<http://opensource.org/licenses/Apache-1.1>). =item artistic The distribution is licensed under the Artistic License version 1, as specified by the Artistic file in the standard perl distribution (L<http://opensource.org/licenses/Artistic-Perl-1.0>). =item bsd The distribution is licensed under the BSD 3-Clause License (L<http://opensource.org/licenses/BSD-3-Clause>). =item gpl The distribution is distributed under the terms of the GNU General Public License version 2 (L<http://opensource.org/licenses/GPL-2.0>). =item lgpl The distribution is distributed under the terms of the GNU Lesser General Public License version 2 (L<http://opensource.org/licenses/LGPL-2.1>). =item mit The distribution is licensed under the MIT License (L<http://opensource.org/licenses/MIT>). =item mozilla The distribution is licensed under the Mozilla Public License. (L<http://opensource.org/licenses/MPL-1.0> or L<http://opensource.org/licenses/MPL-1.1>) =item open_source The distribution is licensed under some other Open Source Initiative-approved license listed at L<http://www.opensource.org/licenses/>. =item perl The distribution may be copied and redistributed under the same terms as perl itself (this is by far the most common licensing option for modules on CPAN). This is a dual license, in which the user may choose between either the GPL version 1 or the Artistic version 1 license. =item restrictive The distribution may not be redistributed without special permission from the author and/or copyright holder. =item unrestricted The distribution is licensed under a license that is not approved by L<www.opensource.org|http://www.opensource.org/> but that allows distribution without restrictions. =back =head2 distribution_type Example: distribution_type: module (Spec 1.0) [optional] {string} What kind of stuff is contained in this distribution. Most things on CPAN are C<module>s (which can also mean a collection of modules), but some things are C<script>s. Unfortunately this field is basically meaningless, since many distributions are hybrids of several kinds of things, or some new thing, or subjectively different in focus depending on who's using them. Tools like Module::Build and MakeMaker will likely stop generating this field. =head2 requires Example: requires: Data::Dumper: 0 File::Find: 1.03 (Spec 1.0) [optional] {map} A YAML mapping indicating the Perl modules this distribution requires for proper operation. The keys are the module names, and the values are version specifications as described in L</"VERSION SPECIFICATIONS">. =head2 recommends Example: recommends: Data::Dumper: 0 File::Find: 1.03 (Spec 1.0) [optional] {map} A YAML mapping indicating the Perl modules this distribution recommends for enhanced operation. The keys are the module names, and the values are version specifications as described in L</"VERSION SPECIFICATIONS">. I<ALTERNATIVE: It may be desirable to present to the user which features depend on which modules so they can make an informed decision about which recommended modules to install.> Example: optional_features: - foo: description: Provides the ability to blah. requires: Data::Dumper: 0 File::Find: 1.03 - bar: description: This feature is not available on this platform. excludes_os: MSWin32 I<(Spec 1.1) [optional] {map} A YAML sequence of names for optional features which are made available when its requirements are met. For each feature a description is provided along with any of L</requires>, L</build_requires>, L</conflicts>, C<requires_packages>, C<requires_os>, and C<excludes_os> which have the same meaning in this subcontext as described elsewhere in this document.> =head2 build_requires Example: build_requires: Data::Dumper: 0 File::Find: 1.03 (Spec 1.0) [optional] {map} A YAML mapping indicating the Perl modules required for building and/or testing of this distribution. The keys are the module names, and the values are version specifications as described in L</"VERSION SPECIFICATIONS">. These dependencies are not required after the module is installed. =head2 conflicts Example: conflicts: Data::Dumper: 0 File::Find: 1.03 (Spec 1.0) [optional] {map} A YAML mapping indicating the Perl modules that cannot be installed while this distribution is installed. This is a pretty uncommon situation. The keys for C<conflicts> are the module names, and the values are version specifications as described in L</"VERSION SPECIFICATIONS">. =head2 dynamic_config Example: dynamic_config: 0 (Spec 1.0) [optional] {boolean} A boolean flag indicating whether a F<Build.PL> or F<Makefile.PL> (or similar) must be executed when building this distribution, or whether it can be built, tested and installed solely from consulting its metadata file. The main reason to set this to a true value is that your module performs some dynamic configuration (asking questions, sensing the environment, etc.) as part of its build/install process. Currently Module::Build doesn't actually do anything with this flag - it's probably going to be up to higher-level tools like CPAN to do something useful with it. It can potentially bring lots of security, packaging, and convenience improvements. If this field is omitted, it defaults to 1 (true). =head2 private I<(Deprecated)> (Spec 1.0) [optional] {map} This field has been renamed to L</no_index>. See below. =head2 provides Example: provides: Foo::Bar: file: lib/Foo/Bar.pm version: 0.27_02 Foo::Bar::Blah: file: lib/Foo/Bar/Blah.pm Foo::Bar::Baz: file: lib/Foo/Bar/Baz.pm version: 0.3 (Spec 1.1) [optional] {map} A YAML mapping that describes all packages provided by this distribution. This information can be (and, in some cases, is) used by distribution and automation mechanisms like PAUSE, CPAN, and search.cpan.org to build indexes saying in which distribution various packages can be found. When using tools like L<Module::Build> that can generate the C<provides> mapping for your distribution automatically, make sure you examine what it generates to make sure it makes sense - indexers will usually trust the C<provides> field if it's present, rather than scanning through the distribution files themselves to figure out packages and versions. This is a good thing, because it means you can use the C<provides> field to tell the indexers precisely what you want indexed about your distribution, rather than relying on them to essentially guess what you want indexed. =head2 no_index Example: no_index: file: - My/Module.pm directory: - My/Private package: - My::Module::Stuff namespace: - My::Module::Stuff (Spec 1.1) [optional] {map} A YAML mapping that describes any files, directories, packages, and namespaces that are private (i.e. implementation artifacts) that are not of interest to searching and indexing tools. This is useful when no C<provides> field is present. For example, L<http://search.cpan.org/> excludes items listed in C<no_index> when searching for POD, meaning files in these directories will not converted to HTML and made public - which is useful if you have example or test PODs that you don't want the search engine to go through. =head3 file (Spec 1.1) [optional] Exclude any listed file(s). =head3 directory (Spec 1.1) [optional] Exclude anything below the listed directory(ies). [Note: previous editions of the spec had C<dir> instead of C<directory>, but I think MakeMaker and various users started using C<directory>, so in deference we switched to that.] =head3 package (Spec 1.1) [optional] Exclude the listed package(s). =head3 namespace (Spec 1.1) [optional] Excludes anything below the listed namespace(s), but I<not> the listed namespace(s) its self. =head2 keywords Example: keywords: - make - build - install (Spec 1.1) [optional] {list} A sequence of keywords/phrases that describe this distribution. =head2 resources Example: resources: license: http://dev.perl.org/licenses/ homepage: http://sourceforge.net/projects/module-build bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=Module-Build repository: http://sourceforge.net/cvs/?group_id=45731 MailingList: http://lists.sourceforge.net/lists/listinfo/module-build-general (Spec 1.1) [optional] {map} A mapping of any URL resources related to this distribution. All-lower-case keys, such as C<homepage>, C<license>, and C<bugtracker>, are reserved by this specification, as they have "official" meanings defined here in this specification. If you'd like to add your own "special" entries (like the "MailingList" entry above), use at least one upper-case letter. The current set of official keys is: =over 2 =item homepage The official home of this project on the web. =item license An URL for an official statement of this distribution's license. =item bugtracker An URL for a bug tracker (e.g. Bugzilla or RT queue) for this project. =back =head2 generated_by Example: generated_by: Module::Build version 0.20 (Spec 1.0) [required] {string} Indicates the tool that was used to create this F<META.yml> file. It's good form to include both the name of the tool and its version, but this field is essentially opaque, at least for the moment. If F<META.yml> was generated by hand, it is suggested that the author be specified here. [Note: My F<meta_stats.pl> script which I use to gather statistics regarding F<META.yml> usage prefers the form listed above, i.e. it splits on /\s+version\s+/ taking the first field as the name of the tool that generated the file and the second field as version of that tool. RWS] =head1 VERSION SPECIFICATIONS Some fields require a version specification (ex. L</requires>, L</recommends>, L</build_requires>, etc.) to indicate the particular versionZ<>(s) of some other module that may be required as a prerequisite. This section details the version specification formats that are currently supported. The simplest format for a version specification is just the version number itself, e.g. C<2.4>. This means that B<at least> version 2.4 must be present. To indicate that B<any> version of a prerequisite is okay, even if the prerequisite doesn't define a version at all, use the version C<0>. You may also use the operators E<lt> (less than), E<lt>= (less than or equal), E<gt> (greater than), E<gt>= (greater than or equal), == (equal), and != (not equal). For example, the specification C<E<lt> 2.0> means that any version of the prerequisite less than 2.0 is suitable. For more complicated situations, version specifications may be AND-ed together using commas. The specification C<E<gt>= 1.2, != 1.5, E<lt> 2.0> indicates a version that must be B<at least> 1.2, B<less than> 2.0, and B<not equal to> 1.5. =head1 SEE ALSO L<CPAN|http://www.cpan.org/> L<CPAN.pm|CPAN> L<CPANPLUS> L<Data::Dumper> L<ExtUtils::MakeMaker> L<Module::Build> L<Module::Install> L<XML|http://www.w3.org/XML/> L<YAML|http://www.yaml.org/> =head1 HISTORY =over 4 =item March 14, 2003 (Pi day) =over 2 =item * Created version 1.0 of this document. =back =item May 8, 2003 =over 2 =item * Added the L</dynamic_config> field, which was missing from the initial version. =back =item November 13, 2003 =over 2 =item * Added more YAML rationale articles. =item * Fixed existing link to YAML discussion thread to point to new L<http://nntp.x.perl.org/group/> site. =item * Added and deprecated the L</private> field. =item * Added L</abstract>, C<configure>, C<requires_packages>, C<requires_os>, C<excludes_os>, and L</no_index> fields. =item * Bumped version. =back =item November 16, 2003 =over 2 =item * Added C<generation>, C<authored_by> fields. =item * Add alternative proposal to the L</recommends> field. =item * Add proposal for a C<requires_build_tools> field. =back =item December 9, 2003 =over 2 =item * Added link to latest version of this specification on CPAN. =item * Added section L</"VERSION SPECIFICATIONS">. =item * Chang name from Module::Build::META-spec to CPAN::META::Specification. =item * Add proposal for C<auto_regenerate> field. =back =item December 15, 2003 =over 2 =item * Add C<index> field as a compliment to L</no_index> =item * Add L</keywords> field as a means to aid searching distributions. =item * Add L</TERMINOLOGY> section to explain certain terms that may be ambiguous. =back =item July 26, 2005 =over 2 =item * Removed a bunch of items (generation, requires_build_tools, requires_packages, configure, requires_os, excludes_os, auto_regenerate) that have never actually been supported, but were more like records of brainstorming. =item * Changed C<authored_by> to L</author>, since that's always been what it's actually called in actual F<META.yml> files. =item * Added the "==" operator to the list of supported version-checking operators. =item * Noted that the L</distribution_type> field is basically meaningless, and shouldn't really be used. =item * Clarified L</dynamic_config> a bit. =back =item August 23, 2005 =over 2 =item * Removed the name C<CPAN::META::Specification>, since that implies a module that doesn't actually exist. =back =back PK ! w#j�dJ dJ % 5.34.0/CPAN/Meta/History/Meta_1_4.podnu �[��� =for :stopwords MailingList PODs RWS subcontext =head1 NAME CPAN::Meta::History::Meta_1_4 - Version 1.4 metadata specification for META.yml =head1 PREFACE This is a historical copy of the version 1.4 specification for F<META.yml> files, copyright by Ken Williams and licensed under the same terms as Perl itself. Modifications from the original: =over =item * Various spelling corrections =item * Include list of valid licenses from L<Module::Build> 0.2807 rather than linking to the module, with minor updates to text and links to reflect versions at the time of publication. =item * Fixed some dead links to point to active resources. =back =head1 SYNOPSIS --- #YAML:1.0 name: Module-Build abstract: Build and install Perl modules version: 0.20 author: - Ken Williams <kwilliams@cpan.org> license: perl distribution_type: module requires: Config: 0 Cwd: 0 Data::Dumper: 0 ExtUtils::Install: 0 File::Basename: 0 File::Compare: 0 File::Copy: 0 File::Find: 0 File::Path: 0 File::Spec: 0 IO::File: 0 perl: 5.005_03 recommends: Archive::Tar: 1.00 ExtUtils::Install: 0.3 ExtUtils::ParseXS: 2.02 Pod::Text: 0 YAML: 0.35 build_requires: Test: 0 resources: license: http://dev.perl.org/licenses/ meta-spec: version: 1.4 url: http://module-build.sourceforge.net/META-spec-v1.3.html generated_by: Module::Build version 0.20 =head1 DESCRIPTION This document describes version 1.4 of the F<META.yml> specification. The F<META.yml> file describes important properties of contributed Perl distributions such as the ones found on CPAN. It is typically created by tools like Module::Build, Module::Install, and ExtUtils::MakeMaker. The fields in the F<META.yml> file are meant to be helpful for people maintaining module collections (like CPAN), for people writing installation tools (like CPAN.pm or CPANPLUS), or just for people who want to know some stuff about a distribution before downloading it and starting to install it. I<Note: The latest stable version of this specification can always be found at L<http://module-build.sourceforge.net/META-spec-current.html>, and the latest development version (which may include things that won't make it into the stable version) can always be found at L<http://module-build.sourceforge.net/META-spec-blead.html>.> =head1 FORMAT F<META.yml> files are written in the YAML format (see L<http://www.yaml.org/>). See the following links to learn why we chose YAML instead of, say, XML or Data::Dumper: =over 4 =item * L<Module::Build design plans|http://www.nntp.perl.org/group/perl.makemaker/2002/04/msg407.html> =item * L<Not keen on YAML|http://www.nntp.perl.org/group/perl.module-authors/2003/11/msg1353.html> =item * L<META Concerns|http://www.nntp.perl.org/group/perl.module-authors/2003/11/msg1385.html> =back =head1 TERMINOLOGY =over 4 =item distribution This is the primary object described by the F<META.yml> specification. In the context of this document it usually refers to a collection of modules, scripts, and/or documents that are distributed together for other developers to use. Examples of distributions are C<Class-Container>, C<libwww-perl>, or C<DBI>. =item module This refers to a reusable library of code typically contained in a single file. Currently, we primarily talk of perl modules, but this specification should be open enough to apply to other languages as well (ex. python, ruby). Examples of modules are C<Class::Container>, C<LWP::Simple>, or C<DBD::File>. =back =head1 HEADER The first line of a F<META.yml> file should be a valid YAML document header like C<"--- #YAML:1.0">. =head1 FIELDS The rest of the F<META.yml> file is one big YAML mapping whose keys are described here. =head2 meta-spec Example: meta-spec: version: 1.4 url: http://module-build.sourceforge.net/META-spec-v1.3.html (Spec 1.1) [required] {URL} This field indicates the location of the version of the META.yml specification used. =head2 name Example: name: Module-Build (Spec 1.0) [required] {string} The name of the distribution which is often created by taking the "main module" in the distribution and changing "::" to "-". Sometimes it's completely different, however, as in the case of the libwww-perl distribution (see L<http://search.cpan.org/dist/libwww-perl/>). =head2 version Example: version: 0.20 (Spec 1.0) [required] {version} The version of the distribution to which the F<META.yml> file refers. =head2 abstract Example: abstract: Build and install Perl modules. (Spec 1.1) [required] {string} A short description of the purpose of the distribution. =head2 author Example: author: - Ken Williams <kwilliams@cpan.org> (Spec 1.1) [required] {list of strings} A YAML sequence indicating the author(s) of the distribution. The preferred form is author-name <email-address>. =head2 license Example: license: perl (Spec 1.0) [required] {string} The license under which this distribution may be used and redistributed. Must be one of the following licenses: =over 4 =item apache The distribution is licensed under the Apache Software License version 1.1 (L<http://opensource.org/licenses/Apache-1.1>). =item artistic The distribution is licensed under the Artistic License version 1, as specified by the Artistic file in the standard perl distribution (L<http://opensource.org/licenses/Artistic-Perl-1.0>). =item bsd The distribution is licensed under the BSD 3-Clause License (L<http://opensource.org/licenses/BSD-3-Clause>). =item gpl The distribution is distributed under the terms of the GNU General Public License version 2 (L<http://opensource.org/licenses/GPL-2.0>). =item lgpl The distribution is distributed under the terms of the GNU Lesser General Public License version 2 (L<http://opensource.org/licenses/LGPL-2.1>). =item mit The distribution is licensed under the MIT License (L<http://opensource.org/licenses/MIT>). =item mozilla The distribution is licensed under the Mozilla Public License. (L<http://opensource.org/licenses/MPL-1.0> or L<http://opensource.org/licenses/MPL-1.1>) =item open_source The distribution is licensed under some other Open Source Initiative-approved license listed at L<http://www.opensource.org/licenses/>. =item perl The distribution may be copied and redistributed under the same terms as perl itself (this is by far the most common licensing option for modules on CPAN). This is a dual license, in which the user may choose between either the GPL or the Artistic license. =item restrictive The distribution may not be redistributed without special permission from the author and/or copyright holder. =item unrestricted The distribution is licensed under a license that is not approved by L<www.opensource.org|http://www.opensource.org/> but that allows distribution without restrictions. =back =head2 distribution_type Example: distribution_type: module (Spec 1.0) [optional] {string} What kind of stuff is contained in this distribution. Most things on CPAN are C<module>s (which can also mean a collection of modules), but some things are C<script>s. Unfortunately this field is basically meaningless, since many distributions are hybrids of several kinds of things, or some new thing, or subjectively different in focus depending on who's using them. Tools like Module::Build and MakeMaker will likely stop generating this field. =head2 requires Example: requires: Data::Dumper: 0 File::Find: 1.03 (Spec 1.0) [optional] {map} A YAML mapping indicating the Perl prerequisites this distribution requires for proper operation. The keys are the names of the prerequisites (module names or 'perl'), and the values are version specifications as described in L<VERSION SPECIFICATIONS>. =head2 recommends Example: recommends: Data::Dumper: 0 File::Find: 1.03 (Spec 1.0) [optional] {map} A YAML mapping indicating the Perl prerequisites this distribution recommends for enhanced operation. The keys are the names of the prerequisites (module names or 'perl'), and the values are version specifications as described in L<VERSION SPECIFICATIONS>. I<ALTERNATIVE: It may be desirable to present to the user which features depend on which modules so they can make an informed decision about which recommended modules to install.> Example: optional_features: foo: description: Provides the ability to blah. requires: Data::Dumper: 0 File::Find: 1.03 I<(Spec 1.1) [optional] {map} A YAML mapping of names for optional features which are made available when its requirements are met. For each feature a description is provided along with any of L</requires>, L</build_requires>, and L</conflicts>, which have the same meaning in this subcontext as described elsewhere in this document.> =head2 build_requires Example: build_requires: Data::Dumper: 0 File::Find: 1.03 (Spec 1.0) [optional] {map} A YAML mapping indicating the Perl prerequisites required for building and/or testing of this distribution. The keys are the names of the prerequisites (module names or 'perl'), and the values are version specifications as described in L</"VERSION SPECIFICATIONS">. These dependencies are not required after the distribution is installed. =head2 configure_requires Example: configure_requires: Module::Build: 0.2809 Data::Dumper: 0 File::Find: 1.03 (Spec 1.4) [optional] {map} A YAML mapping indicating the Perl prerequisites required before configuring this distribution. The keys are the names of the prerequisites (module names or 'perl'), and the values are version specifications as described in L</"VERSION SPECIFICATIONS">. These dependencies are not required after the distribution is installed. =head2 conflicts Example: conflicts: Data::Dumper: 0 File::Find: 1.03 (Spec 1.0) [optional] {map} A YAML mapping indicating any items that cannot be installed while this distribution is installed. This is a pretty uncommon situation. The keys for C<conflicts> are the item names (module names or 'perl'), and the values are version specifications as described in L</"VERSION SPECIFICATIONS">. =head2 dynamic_config Example: dynamic_config: 0 (Spec 1.0) [optional] {boolean} A boolean flag indicating whether a F<Build.PL> or F<Makefile.PL> (or similar) must be executed when building this distribution, or whether it can be built, tested and installed solely from consulting its metadata file. The main reason to set this to a true value is that your module performs some dynamic configuration (asking questions, sensing the environment, etc.) as part of its build/install process. Currently Module::Build doesn't actually do anything with this flag - it's probably going to be up to higher-level tools like CPAN to do something useful with it. It can potentially bring lots of security, packaging, and convenience improvements. If this field is omitted, it defaults to 1 (true). =head2 private I<(Deprecated)> (Spec 1.0) [optional] {map} This field has been renamed to L</no_index>. See below. =head2 provides Example: provides: Foo::Bar: file: lib/Foo/Bar.pm version: 0.27_02 Foo::Bar::Blah: file: lib/Foo/Bar/Blah.pm Foo::Bar::Baz: file: lib/Foo/Bar/Baz.pm version: 0.3 (Spec 1.1) [optional] {map} A YAML mapping that describes all packages provided by this distribution. This information can be (and, in some cases, is) used by distribution and automation mechanisms like PAUSE, CPAN, and search.cpan.org to build indexes saying in which distribution various packages can be found. When using tools like L<Module::Build> that can generate the C<provides> mapping for your distribution automatically, make sure you examine what it generates to make sure it makes sense - indexers will usually trust the C<provides> field if it's present, rather than scanning through the distribution files themselves to figure out packages and versions. This is a good thing, because it means you can use the C<provides> field to tell the indexers precisely what you want indexed about your distribution, rather than relying on them to essentially guess what you want indexed. =head2 no_index Example: no_index: file: - My/Module.pm directory: - My/Private package: - My::Module::Stuff namespace: - My::Module::Stuff (Spec 1.1) [optional] {map} A YAML mapping that describes any files, directories, packages, and namespaces that are private (i.e. implementation artifacts) that are not of interest to searching and indexing tools. This is useful when no C<provides> field is present. For example, L<http://search.cpan.org/> excludes items listed in C<no_index> when searching for POD, meaning files in these directories will not converted to HTML and made public - which is useful if you have example or test PODs that you don't want the search engine to go through. =head3 file (Spec 1.1) [optional] Exclude any listed file(s). =head3 directory (Spec 1.1) [optional] Exclude anything below the listed directory(ies). [Note: previous editions of the spec had C<dir> instead of C<directory>, but I think MakeMaker and various users started using C<directory>, so in deference we switched to that.] =head3 package (Spec 1.1) [optional] Exclude the listed package(s). =head3 namespace (Spec 1.1) [optional] Excludes anything below the listed namespace(s), but I<not> the listed namespace(s) its self. =head2 keywords Example: keywords: - make - build - install (Spec 1.1) [optional] {list} A sequence of keywords/phrases that describe this distribution. =head2 resources Example: resources: license: http://dev.perl.org/licenses/ homepage: http://sourceforge.net/projects/module-build bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=Module-Build repository: http://sourceforge.net/cvs/?group_id=45731 MailingList: http://lists.sourceforge.net/lists/listinfo/module-build-general (Spec 1.1) [optional] {map} A mapping of any URL resources related to this distribution. All-lower-case keys, such as C<homepage>, C<license>, and C<bugtracker>, are reserved by this specification, as they have "official" meanings defined here in this specification. If you'd like to add your own "special" entries (like the "MailingList" entry above), use at least one upper-case letter. The current set of official keys is: =over 2 =item homepage The official home of this project on the web. =item license An URL for an official statement of this distribution's license. =item bugtracker An URL for a bug tracker (e.g. Bugzilla or RT queue) for this project. =back =head2 generated_by Example: generated_by: Module::Build version 0.20 (Spec 1.0) [required] {string} Indicates the tool that was used to create this F<META.yml> file. It's good form to include both the name of the tool and its version, but this field is essentially opaque, at least for the moment. If F<META.yml> was generated by hand, it is suggested that the author be specified here. [Note: My F<meta_stats.pl> script which I use to gather statistics regarding F<META.yml> usage prefers the form listed above, i.e. it splits on /\s+version\s+/ taking the first field as the name of the tool that generated the file and the second field as version of that tool. RWS] =head1 VERSION SPECIFICATIONS Some fields require a version specification (ex. L</requires>, L</recommends>, L</build_requires>, etc.) to indicate the particular versionZ<>(s) of some other module that may be required as a prerequisite. This section details the version specification formats that are currently supported. The simplest format for a version specification is just the version number itself, e.g. C<2.4>. This means that B<at least> version 2.4 must be present. To indicate that B<any> version of a prerequisite is okay, even if the prerequisite doesn't define a version at all, use the version C<0>. You may also use the operators E<lt> (less than), E<lt>= (less than or equal), E<gt> (greater than), E<gt>= (greater than or equal), == (equal), and != (not equal). For example, the specification C<E<lt> 2.0> means that any version of the prerequisite less than 2.0 is suitable. For more complicated situations, version specifications may be AND-ed together using commas. The specification C<E<gt>= 1.2, != 1.5, E<lt> 2.0> indicates a version that must be B<at least> 1.2, B<less than> 2.0, and B<not equal to> 1.5. =head1 SEE ALSO L<CPAN|http://www.cpan.org/> L<CPAN.pm|CPAN> L<CPANPLUS> L<Data::Dumper> L<ExtUtils::MakeMaker> L<Module::Build> L<Module::Install> L<XML|http://www.w3.org/XML/> L<YAML|http://www.yaml.org/> =head1 HISTORY =over 4 =item March 14, 2003 (Pi day) =over 2 =item * Created version 1.0 of this document. =back =item May 8, 2003 =over 2 =item * Added the L</dynamic_config> field, which was missing from the initial version. =back =item November 13, 2003 =over 2 =item * Added more YAML rationale articles. =item * Fixed existing link to YAML discussion thread to point to new L<http://nntp.x.perl.org/group/> site. =item * Added and deprecated the L</private> field. =item * Added L</abstract>, C<configure>, C<requires_packages>, C<requires_os>, C<excludes_os>, and L</no_index> fields. =item * Bumped version. =back =item November 16, 2003 =over 2 =item * Added C<generation>, C<authored_by> fields. =item * Add alternative proposal to the L</recommends> field. =item * Add proposal for a C<requires_build_tools> field. =back =item December 9, 2003 =over 2 =item * Added link to latest version of this specification on CPAN. =item * Added section L</"VERSION SPECIFICATIONS">. =item * Chang name from Module::Build::META-spec to CPAN::META::Specification. =item * Add proposal for C<auto_regenerate> field. =back =item December 15, 2003 =over 2 =item * Add C<index> field as a compliment to L</no_index> =item * Add L</keywords> field as a means to aid searching distributions. =item * Add L</TERMINOLOGY> section to explain certain terms that may be ambiguous. =back =item July 26, 2005 =over 2 =item * Removed a bunch of items (generation, requires_build_tools, requires_packages, configure, requires_os, excludes_os, auto_regenerate) that have never actually been supported, but were more like records of brainstorming. =item * Changed C<authored_by> to L</author>, since that's always been what it's actually called in actual F<META.yml> files. =item * Added the "==" operator to the list of supported version-checking operators. =item * Noted that the L</distribution_type> field is basically meaningless, and shouldn't really be used. =item * Clarified L</dynamic_config> a bit. =back =item August 23, 2005 =over 2 =item * Removed the name C<CPAN::META::Specification>, since that implies a module that doesn't actually exist. =back =item June 12, 2007 =over 2 =item * Added L</configure_requires>. =back =back PK ! ���B �B % 5.34.0/CPAN/Meta/History/Meta_1_2.podnu �[��� =for :stopwords MailingList RWS subcontext =head1 NAME CPAN::Meta::History::Meta_1_2 - Version 1.2 metadata specification for META.yml =head1 PREFACE This is a historical copy of the version 1.2 specification for F<META.yml> files, copyright by Ken Williams and licensed under the same terms as Perl itself. Modifications from the original: =over =item * Various spelling corrections =item * Include list of valid licenses from L<Module::Build> 0.2611 rather than linking to the module, with minor updates to text and links to reflect versions at the time of publication. =item * Fixed some dead links to point to active resources. =back =head1 SYNOPSIS --- #YAML:1.0 name: Module-Build abstract: Build and install Perl modules version: 0.20 author: - Ken Williams <kwilliams@cpan.org> license: perl distribution_type: module requires: Config: 0 Cwd: 0 Data::Dumper: 0 ExtUtils::Install: 0 File::Basename: 0 File::Compare: 0 File::Copy: 0 File::Find: 0 File::Path: 0 File::Spec: 0 IO::File: 0 perl: 5.005_03 recommends: Archive::Tar: 1.00 ExtUtils::Install: 0.3 ExtUtils::ParseXS: 2.02 Pod::Text: 0 YAML: 0.35 build_requires: Test: 0 urls: license: http://dev.perl.org/licenses/ meta-spec: version: 1.2 url: http://module-build.sourceforge.net/META-spec-v1.2.html generated_by: Module::Build version 0.20 =head1 DESCRIPTION This document describes version 1.2 of the F<META.yml> specification. The F<META.yml> file describes important properties of contributed Perl distributions such as the ones found on CPAN. It is typically created by tools like Module::Build, Module::Install, and ExtUtils::MakeMaker. The fields in the F<META.yml> file are meant to be helpful for people maintaining module collections (like CPAN), for people writing installation tools (like CPAN.pm or CPANPLUS), or just for people who want to know some stuff about a distribution before downloading it and starting to install it. I<Note: The latest stable version of this specification can always be found at L<http://module-build.sourceforge.net/META-spec-current.html>, and the latest development version (which may include things that won't make it into the stable version can always be found at L<http://module-build.sourceforge.net/META-spec-blead.html>.> =head1 FORMAT F<META.yml> files are written in the YAML format (see L<http://www.yaml.org/>). See the following links to learn why we chose YAML instead of, say, XML or Data::Dumper: =over 4 =item * L<Module::Build design plans|http://www.nntp.perl.org/group/perl.makemaker/2002/04/msg407.html> =item * L<Not keen on YAML|http://www.nntp.perl.org/group/perl.module-authors/2003/11/msg1353.html> =item * L<META Concerns|http://www.nntp.perl.org/group/perl.module-authors/2003/11/msg1385.html> =back =head1 TERMINOLOGY =over 4 =item distribution This is the primary object described by the F<META.yml> specification. In the context of this document it usually refers to a collection of modules, scripts, and/or documents that are distributed for other developers to use. =item module This refers to a reusable library of code typically contained in a single file. Currently, we primarily talk of perl modules, but this specification should be open enough to apply to other languages as well (ex. python, ruby). =back =head1 VERSION SPECIFICATIONS Some fields require a version specification (ex. L</requires>, L</recommends>, L</build_requires>, etc.). This section details the version specifications that are currently supported. If a single version is listed, then that version is considered to be the minimum version supported. If 0 is given as the version number, then any version is supported. Additionally, for more complicated requirements, the specification supports a list of versions, each of which may be optionally preceded by a relational operator. Supported operators include E<lt> (less than), E<lt>= (less than or equal), E<gt> (greater than), E<gt>= (greater than or equal), == (equal), and != (not equal). If a list is given then it is evaluated from left to right so that any specifications in the list that conflict with a previous specification are overridden by the later. Examples: >= 1.2, != 1.5, < 2.0 Any version from version 1.2 onward, except version 1.5, that also precedes version 2.0. =head1 HEADER The first line of a F<META.yml> file should be a valid YAML document header like C<"--- #YAML:1.0">. =head1 FIELDS The rest of the F<META.yml> file is one big YAML mapping whose keys are described here. =head2 meta-spec Example: meta-spec: version: 1.2 url: http://module-build.sourceforge.net/META-spec-v1.2.html (Spec 1.1) [required] {URL} This field indicates the location of the version of the META.yml specification used. =head2 name Example: name: Module-Build (Spec 1.0) [required] {string} The name of the distribution which is often created by taking the "main module" in the distribution and changing "::" to "-". Sometimes it's completely different, however, as in the case of the libwww-perl distribution (see L<http://search.cpan.org/author/GAAS/libwww-perl/>). =head2 version Example: version: 0.20 (Spec 1.0) [required] {version} The version of the distribution to which the F<META.yml> file refers. =head2 abstract Example: abstract: Build and install Perl modules. (Spec 1.1) [required] {string} A short description of the purpose of the distribution. =head2 author Example: author: - Ken Williams <kwilliams@cpan.org> (Spec 1.1) [required] {list of strings} A YAML sequence indicating the author(s) of the distribution. The preferred form is author-name <email-address>. =head2 license Example: license: perl (Spec 1.0) [required] {string} The license under which this distribution may be used and redistributed. Must be one of the following licenses: =over 4 =item perl The distribution may be copied and redistributed under the same terms as perl itself (this is by far the most common licensing option for modules on CPAN). This is a dual license, in which the user may choose between either the GPL version 1 or the Artistic version 1 license. =item gpl The distribution is distributed under the terms of the GNU General Public License version 2 (L<http://opensource.org/licenses/GPL-2.0>). =item lgpl The distribution is distributed under the terms of the GNU Lesser General Public License version 2 (L<http://opensource.org/licenses/LGPL-2.1>). =item artistic The distribution is licensed under the Artistic License version 1, as specified by the Artistic file in the standard perl distribution (L<http://opensource.org/licenses/Artistic-Perl-1.0>). =item bsd The distribution is licensed under the BSD 3-Clause License (L<http://opensource.org/licenses/BSD-3-Clause>). =item open_source The distribution is licensed under some other Open Source Initiative-approved license listed at L<http://www.opensource.org/licenses/>. =item unrestricted The distribution is licensed under a license that is B<not> approved by L<www.opensource.org|http://www.opensource.org/> but that allows distribution without restrictions. =item restrictive The distribution may not be redistributed without special permission from the author and/or copyright holder. =back =head2 distribution_type Example: distribution_type: module (Spec 1.0) [optional] {string} What kind of stuff is contained in this distribution. Most things on CPAN are C<module>s (which can also mean a collection of modules), but some things are C<script>s. Unfortunately this field is basically meaningless, since many distributions are hybrids of several kinds of things, or some new thing, or subjectively different in focus depending on who's using them. Tools like Module::Build and MakeMaker will likely stop generating this field. =head2 requires Example: requires: Data::Dumper: 0 File::Find: 1.03 (Spec 1.0) [optional] {map} A YAML mapping indicating the Perl modules this distribution requires for proper operation. The keys are the module names, and the values are version specifications as described in L<Module::Build> for the "requires" parameter. =head2 recommends Example: recommends: Data::Dumper: 0 File::Find: 1.03 (Spec 1.0) [optional] {map} A YAML mapping indicating the Perl modules this distribution recommends for enhanced operation. I<ALTERNATIVE: It may be desirable to present to the user which features depend on which modules so they can make an informed decision about which recommended modules to install.> Example: optional_features: - foo: description: Provides the ability to blah. requires: Data::Dumper: 0 File::Find: 1.03 - bar: description: This feature is not available on this platform. excludes_os: MSWin32 I<(Spec 1.1) [optional] {map} A YAML sequence of names for optional features which are made available when its requirements are met. For each feature a description is provided along with any of L</requires>, L</build_requires>, L</conflicts>, C<requires_packages>, C<requires_os>, and C<excludes_os> which have the same meaning in this subcontext as described elsewhere in this document.> =head2 build_requires Example: build_requires: Data::Dumper: 0 File::Find: 1.03 (Spec 1.0) [optional] {map} A YAML mapping indicating the Perl modules required for building and/or testing of this distribution. These dependencies are not required after the module is installed. =head2 conflicts Example: conflicts: Data::Dumper: 0 File::Find: 1.03 (Spec 1.0) [optional] {map} A YAML mapping indicating the Perl modules that cannot be installed while this distribution is installed. This is a pretty uncommon situation. =head2 dynamic_config Example: dynamic_config: 0 (Spec 1.0) [optional] {boolean} A boolean flag indicating whether a F<Build.PL> or F<Makefile.PL> (or similar) must be executed when building this distribution, or whether it can be built, tested and installed solely from consulting its metadata file. The main reason to set this to a true value if that your module performs some dynamic configuration (asking questions, sensing the environment, etc.) as part of its build/install process. Currently Module::Build doesn't actually do anything with this flag - it's probably going to be up to higher-level tools like CPAN to do something useful with it. It can potentially bring lots of security, packaging, and convenience improvements. If this field is omitted, it defaults to 1 (true). =head2 private I<(Deprecated)> (Spec 1.0) [optional] {map} This field has been renamed to L</no_index>. See below. =head2 provides Example: provides: Foo::Bar: file: lib/Foo/Bar.pm version: 0.27_02 Foo::Bar::Blah: file: lib/Foo/Bar/Blah.pm Foo::Bar::Baz: file: lib/Foo/Bar/Baz.pm version: 0.3 (Spec 1.1) [optional] {map} A YAML mapping that describes all packages provided by this distribution. This information can be (and, in some cases, is) used by distribution and automation mechanisms like PAUSE, CPAN, and search.cpan.org to build indexes saying in which distribution various packages can be found. When using tools like L<Module::Build> that can generate the C<provides> mapping for your distribution automatically, make sure you examine what it generates to make sure it makes sense - indexers will usually trust the C<provides> field if it's present, rather than scanning through the distribution files themselves to figure out packages and versions. This is a good thing, because it means you can use the C<provides> field to tell the indexers precisely what you want indexed about your distribution, rather than relying on them to essentially guess what you want indexed. =head2 no_index Example: no_index: file: - My/Module.pm dir: - My/Private package: - My::Module::Stuff namespace: - My::Module::Stuff (Spec 1.1) [optional] {map} A YAML mapping that describes any files, directories, packages, and namespaces that are private (i.e. implementation artifacts) that are not of interest to searching and indexing tools. This is useful when no C<provides> field is present. I<(Note: I'm not actually sure who looks at this field, or exactly what they do with it. This spec could be off in some way from actual usage.)> =head3 file (Spec 1.1) [optional] Exclude any listed file(s). =head3 dir (Spec 1.1) [optional] Exclude anything below the listed directory(ies). =head3 package (Spec 1.1) [optional] Exclude the listed package(s). =head3 namespace (Spec 1.1) [optional] Excludes anything below the listed namespace(s), but I<not> the listed namespace(s) its self. =head2 keywords Example: keywords: - make - build - install (Spec 1.1) [optional] {list} A sequence of keywords/phrases that describe this distribution. =head2 resources Example: resources: license: http://dev.perl.org/licenses/ homepage: http://sourceforge.net/projects/module-build bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=Module-Build MailingList: http://lists.sourceforge.net/lists/listinfo/module-build-general (Spec 1.1) [optional] {map} A mapping of any URL resources related to this distribution. All-lower-case keys, such as C<homepage>, C<license>, and C<bugtracker>, are reserved by this specification, as they have "official" meanings defined here in this specification. If you'd like to add your own "special" entries (like the "MailingList" entry above), use at least one upper-case letter. The current set of official keys is: =over 2 =item homepage The official home of this project on the web. =item license An URL for an official statement of this distribution's license. =item bugtracker An URL for a bug tracker (e.g. Bugzilla or RT queue) for this project. =back =head2 generated_by Example: generated_by: Module::Build version 0.20 (Spec 1.0) [required] {string} Indicates the tool that was used to create this F<META.yml> file. It's good form to include both the name of the tool and its version, but this field is essentially opaque, at least for the moment. If F<META.yml> was generated by hand, it is suggested that the author be specified here. [Note: My F<meta_stats.pl> script which I use to gather statistics regarding F<META.yml> usage prefers the form listed above, i.e. it splits on /\s+version\s+/ taking the first field as the name of the tool that generated the file and the second field as version of that tool. RWS] =head1 SEE ALSO L<CPAN|http://www.cpan.org/> L<CPAN.pm|CPAN> L<CPANPLUS> L<Data::Dumper> L<ExtUtils::MakeMaker> L<Module::Build> L<Module::Install> L<XML|http://www.w3.org/XML/> L<YAML|http://www.yaml.org/> =head1 HISTORY =over 4 =item March 14, 2003 (Pi day) =over 2 =item * Created version 1.0 of this document. =back =item May 8, 2003 =over 2 =item * Added the L</dynamic_config> field, which was missing from the initial version. =back =item November 13, 2003 =over 2 =item * Added more YAML rationale articles. =item * Fixed existing link to YAML discussion thread to point to new L<http://nntp.x.perl.org/group/> site. =item * Added and deprecated the L</private> field. =item * Added L</abstract>, C<configure>, C<requires_packages>, C<requires_os>, C<excludes_os>, and L</no_index> fields. =item * Bumped version. =back =item November 16, 2003 =over 2 =item * Added C<generation>, C<authored_by> fields. =item * Add alternative proposal to the L</recommends> field. =item * Add proposal for a C<requires_build_tools> field. =back =item December 9, 2003 =over 2 =item * Added link to latest version of this specification on CPAN. =item * Added section L</"VERSION SPECIFICATIONS">. =item * Chang name from Module::Build::META-spec to CPAN::META::Specification. =item * Add proposal for C<auto_regenerate> field. =back =item December 15, 2003 =over 2 =item * Add C<index> field as a compliment to L</no_index> =item * Add L</keywords> field as a means to aid searching distributions. =item * Add L</TERMINOLOGY> section to explain certain terms that may be ambiguous. =back =item July 26, 2005 =over 2 =item * Removed a bunch of items (generation, requires_build_tools, requires_packages, configure, requires_os, excludes_os, auto_regenerate) that have never actually been supported, but were more like records of brainstorming. =item * Changed C<authored_by> to L</author>, since that's always been what it's actually called in actual F<META.yml> files. =item * Added the "==" operator to the list of supported version-checking operators. =item * Noted that the L</distribution_type> field is basically meaningless, and shouldn't really be used. =item * Clarified L</dynamic_config> a bit. =back =item August 23, 2005 =over 2 =item * Removed the name C<CPAN::META::Specification>, since that implies a module that doesn't actually exist. =back =back PK ! �Ps,� � % 5.34.0/CPAN/Meta/History/Meta_1_0.podnu �[��� =for :stopwords DOAP RDF =head1 NAME CPAN::Meta::History::Meta_1_0 - Version 1.0 metadata specification for META.yml =head1 PREFACE This is a historical copy of the version 1.0 specification for F<META.yml> files, copyright by Ken Williams and licensed under the same terms as Perl itself. Modifications from the original: =over =item * Conversion from the original HTML to POD format =item * Include list of valid licenses from L<Module::Build> 0.17 rather than linking to the module, with minor updates to text and links to reflect versions at the time of publication. =item * Fixed some dead links to point to active resources. =back =head1 DESCRIPTION This document describes version 1.0 of the F<META.yml> specification. The META.yml file describes important properties of contributed Perl distributions such as the ones found on L<CPAN|http://www.cpan.org>. It is typically created by tools like L<Module::Build> and L<ExtUtils::MakeMaker>. The fields in the F<META.yml> file are meant to be helpful to people maintaining module collections (like CPAN), for people writing installation tools (like L<CPAN> or L<CPANPLUS>), or just people who want to know some stuff about a distribution before downloading it and starting to install it. =head1 Format F<META.yml> files are written in the L<YAML|http://www.yaml.org/> format. The reasons we chose YAML instead of, say, XML or Data::Dumper are discussed in L<this thread|http://www.nntp.perl.org/group/perl.makemaker/2002/04/msg406.html> on the MakeMaker mailing list. The first line of a F<META.yml> file should be a valid L<YAML document header|http://yaml.org/spec/history/2002-10-31.html#syntax-document> like C<"--- #YAML:1.0"> =head1 Fields The rest of the META.yml file is one big YAML L<mapping|http://yaml.org/spec/history/2002-10-31.html#syntax-mapping>, whose keys are described here. =over 4 =item name Example: C<Module-Build> The name of the distribution. Often created by taking the "main module" in the distribution and changing "::" to "-". Sometimes it's completely different, however, as in the case of the L<libwww-perl|http://search.cpan.org/author/GAAS/libwww-perl/> distribution. =item version Example: C<0.16> The version of the distribution to which the META.yml file refers. =item license Example: C<perl> The license under which this distribution may be used and redistributed. Must be one of the following licenses: =over 4 =item perl The distribution may be copied and redistributed under the same terms as perl itself (this is by far the most common licensing option for modules on CPAN). This is a dual license, in which the user may choose between either the GPL version 1 or the Artistic version 1 license. =item gpl The distribution is distributed under the terms of the GNU General Public License version 2 (L<http://opensource.org/licenses/GPL-2.0>). =item lgpl The distribution is distributed under the terms of the GNU Lesser General Public License version 2 (L<http://opensource.org/licenses/LGPL-2.1>). =item artistic The distribution is licensed under the Artistic License version 1, as specified by the Artistic file in the standard perl distribution (L<http://opensource.org/licenses/Artistic-Perl-1.0>). =item bsd The distribution is licensed under the BSD 3-Clause License (L<http://opensource.org/licenses/BSD-3-Clause>). =item open_source The distribution is licensed under some other Open Source Initiative-approved license listed at L<http://www.opensource.org/licenses/>. =item unrestricted The distribution is licensed under a license that is B<not> approved by L<www.opensource.org|http://www.opensource.org/> but that allows distribution without restrictions. =item restrictive The distribution may not be redistributed without special permission from the author and/or copyright holder. =back =item distribution_type Example: C<module> What kind of stuff is contained in this distribution. Most things on CPAN are C<module>s (which can also mean a collection of modules), but some things are C<script>s. =item requires Example: Data::Dumper: 0 File::Find: 1.03 A YAML L<mapping|http://yaml.org/spec/history/2002-10-31.html#syntax-mapping> indicating the Perl modules this distribution requires for proper operation. The keys are the module names, and the values are version specifications as described in the L<documentation for Module::Build's "requires" parameter|Module::Build::API/requires>. I<Note: the exact nature of the fancy specifications like C<< ">= 1.2, != 1.5, < 2.0" >> is subject to change. Advance notice will be given here. The simple specifications like C<"1.2"> will not change in format.> =item recommends Example: Data::Dumper: 0 File::Find: 1.03 A YAML L<mapping|http://yaml.org/spec/history/2002-10-31.html#syntax-mapping> indicating the Perl modules this distribution recommends for enhanced operation. =item build_requires Example: Data::Dumper: 0 File::Find: 1.03 A YAML L<mapping|http://yaml.org/spec/history/2002-10-31.html#syntax-mapping> indicating the Perl modules required for building and/or testing of this distribution. These dependencies are not required after the module is installed. =item conflicts Example: Data::Dumper: 0 File::Find: 1.03 A YAML L<mapping|http://yaml.org/spec/history/2002-10-31.html#syntax-mapping> indicating the Perl modules that cannot be installed while this distribution is installed. This is a pretty uncommon situation. =item dynamic_config Example: C<0> A boolean flag indicating whether a F<Build.PL> or F<Makefile.PL> (or similar) must be executed, or whether this module can be built, tested and installed solely from consulting its metadata file. The main reason to set this to a true value if that your module performs some dynamic configuration (asking questions, sensing the environment, etc.) as part of its build/install process. Currently L<Module::Build> doesn't actually do anything with this flag - it's probably going to be up to higher-level tools like L<CPAN.pm|CPAN> to do something useful with it. It can potentially bring lots of security, packaging, and convenience improvements. =item generated_by Example: C<Module::Build version 0.16> Indicates the tool that was used to create this F<META.yml> file. It's good form to include both the name of the tool and its version, but this field is essentially opaque, at least for the moment. =back =head1 Related Projects =over 4 =item DOAP An RDF vocabulary to describe software projects. L<http://usefulinc.com/doap>. =back =head1 History =over 4 =item * B<March 14, 2003> (Pi day) - created version 1.0 of this document. =item * B<May 8, 2003> - added the "dynamic_config" field, which was missing from the initial version. =back PK ! w"�" �" % 5.34.0/CPAN/Meta/History/Meta_1_1.podnu �[��� =for :stopwords Ingy READMEs WTF licensure =head1 NAME CPAN::Meta::History::Meta_1_1 - Version 1.1 metadata specification for META.yml =head1 PREFACE This is a historical copy of the version 1.1 specification for F<META.yml> files, copyright by Ken Williams and licensed under the same terms as Perl itself. Modifications from the original: =over =item * Conversion from the original HTML to POD format =item * Include list of valid licenses from L<Module::Build> 0.18 rather than linking to the module, with minor updates to text and links to reflect versions at the time of publication. =item * Fixed some dead links to point to active resources. =back =head1 DESCRIPTION This document describes version 1.1 of the F<META.yml> specification. The F<META.yml> file describes important properties of contributed Perl distributions such as the ones found on L<CPAN|http://www.cpan.org>. It is typically created by tools like L<Module::Build> and L<ExtUtils::MakeMaker>. The fields in the F<META.yml> file are meant to be helpful to people maintaining module collections (like CPAN), for people writing installation tools (like L<CPAN> or L<CPANPLUS>), or just people who want to know some stuff about a distribution before downloading it and starting to install it. =head1 Format F<META.yml> files are written in the L<YAML|http://www.yaml.org/> format. The reasons we chose YAML instead of, say, XML or Data::Dumper are discussed in L<this thread|http://www.nntp.perl.org/group/perl.makemaker/2002/04/msg406.html> on the MakeMaker mailing list. The first line of a F<META.yml> file should be a valid L<YAML document header|http://yaml.org/spec/history/2002-10-31.html#syntax-document> like C<"--- #YAML:1.0"> =head1 Fields The rest of the META.yml file is one big YAML L<mapping|http://yaml.org/spec/history/2002-10-31.html#syntax-mapping>, whose keys are described here. =over 4 =item name Example: C<Module-Build> The name of the distribution. Often created by taking the "main module" in the distribution and changing "::" to "-". Sometimes it's completely different, however, as in the case of the L<libwww-perl|http://search.cpan.org/author/GAAS/libwww-perl/> distribution. =item version Example: C<0.16> The version of the distribution to which the META.yml file refers. This is a mandatory field. The version is essentially an arbitrary string, but I<must> be only ASCII characters, and I<strongly should> be of the format integer-dot-digit-digit, i.e. C<25.57>, optionally followed by underscore-digit-digit, i.e. C<25.57_04>. The standard tools that deal with module distribution (PAUSE, CPAN, etc.) form an identifier for each distribution by joining the 'name' and 'version' attributes with a dash (C<->) character. Tools who are prepared to deal with distributions that have no version numbers generally omit the dash as well. =item license Example: C<perl> a descriptive term for the licenses ... not authoritative, but must be consistent with licensure statements in the READMEs, documentation, etc. The license under which this distribution may be used and redistributed. Must be one of the following licenses: =over 4 =item perl The distribution may be copied and redistributed under the same terms as perl itself (this is by far the most common licensing option for modules on CPAN). This is a dual license, in which the user may choose between either the GPL version 1 or the Artistic version 1 license. =item gpl The distribution is distributed under the terms of the GNU General Public License version 2 (L<http://opensource.org/licenses/GPL-2.0>). =item lgpl The distribution is distributed under the terms of the GNU Lesser General Public License version 2 (L<http://opensource.org/licenses/LGPL-2.1>). =item artistic The distribution is licensed under the Artistic License version 1, as specified by the Artistic file in the standard perl distribution (L<http://opensource.org/licenses/Artistic-Perl-1.0>). =item bsd The distribution is licensed under the BSD 3-Clause License (L<http://opensource.org/licenses/BSD-3-Clause>). =item open_source The distribution is licensed under some other Open Source Initiative-approved license listed at L<http://www.opensource.org/licenses/>. =item unrestricted The distribution is licensed under a license that is B<not> approved by L<www.opensource.org|http://www.opensource.org/> but that allows distribution without restrictions. =item restrictive The distribution may not be redistributed without special permission from the author and/or copyright holder. =back =item license_uri This should contain a URI where the exact terms of the license may be found. (change "unrestricted" to "redistributable"?) =item distribution_type Example: C<module> What kind of stuff is contained in this distribution. Most things on CPAN are C<module>s (which can also mean a collection of modules), but some things are C<script>s. This field is basically meaningless, and tools (like Module::Build or MakeMaker) will likely stop generating it in the future. =item private WTF is going on here? index_ignore: any application that indexes the contents of distributions (PAUSE, search.cpan.org) ought to ignore the items (packages, files, directories, namespace hierarchies). =item requires Example: Data::Dumper: 0 File::Find: 1.03 A YAML L<mapping|http://yaml.org/spec/history/2002-10-31.html#syntax-mapping> indicating the Perl modules this distribution requires for proper operation. The keys are the module names, and the values are version specifications as described in the L<documentation for Module::Build's "requires" parameter|Module::Build::API/requires>. I<Note: the exact nature of the fancy specifications like C<< ">= 1.2, != 1.5, < 2.0" >> is subject to change. Advance notice will be given here. The simple specifications like C<"1.2"> will not change in format.> =item recommends Example: Data::Dumper: 0 File::Find: 1.03 A YAML L<mapping|http://yaml.org/spec/history/2002-10-31.html#syntax-mapping> indicating the Perl modules this distribution recommends for enhanced operation. =item build_requires Example: Data::Dumper: 0 File::Find: 1.03 A YAML L<mapping|http://yaml.org/spec/history/2002-10-31.html#syntax-mapping> indicating the Perl modules required for building and/or testing of this distribution. These dependencies are not required after the module is installed. =item conflicts Example: Data::Dumper: 0 File::Find: 1.03 A YAML L<mapping|http://yaml.org/spec/history/2002-10-31.html#syntax-mapping> indicating the Perl modules that cannot be installed while this distribution is installed. This is a pretty uncommon situation. - possibly separate out test-time prereqs, complications include: can tests be meaningfully preserved for later running? are test-time prereqs in addition to build-time, or exclusive? - make official location for installed *distributions*, which can contain tests, etc. =item dynamic_config Example: C<0> A boolean flag indicating whether a F<Build.PL> or F<Makefile.PL> (or similar) must be executed, or whether this module can be built, tested and installed solely from consulting its metadata file. The main reason to set this to a true value if that your module performs some dynamic configuration (asking questions, sensing the environment, etc.) as part of its build/install process. Currently L<Module::Build> doesn't actually do anything with this flag - it's probably going to be up to higher-level tools like L<CPAN.pm|CPAN> to do something useful with it. It can potentially bring lots of security, packaging, and convenience improvements. =item generated_by Example: C<Module::Build version 0.16> Indicates the tool that was used to create this F<META.yml> file. It's good form to include both the name of the tool and its version, but this field is essentially opaque, at least for the moment. =back =head2 Ingy's suggestions =over 4 =item short_description add as field, containing abstract, maximum 80 characters, suggested minimum 40 characters =item description long version of abstract, should add? =item maturity alpha, beta, gamma, mature, stable =item author_id, owner_id =item categorization, keyword, chapter_id =item URL for further information could default to search.cpan.org on PAUSE =item namespaces can be specified for single elements by prepending dotted-form, i.e. "com.example.my_application.my_property". Default namespace for META.yml is probably "org.cpan.meta_author" or something. Precedent for this is Apple's Carbon namespaces, I think. =back =head1 History =over 4 =item * B<March 14, 2003> (Pi day) - created version 1.0 of this document. =item * B<May 8, 2003> - added the "dynamic_config" field, which was missing from the initial version. =back PK ! �T� �� 5.34.0/CPAN/Meta/Validator.pmnu �[��� use 5.006; use strict; use warnings; package CPAN::Meta::Validator; our $VERSION = '2.150010'; #pod =head1 SYNOPSIS #pod #pod my $struct = decode_json_file('META.json'); #pod #pod my $cmv = CPAN::Meta::Validator->new( $struct ); #pod #pod unless ( $cmv->is_valid ) { #pod my $msg = "Invalid META structure. Errors found:\n"; #pod $msg .= join( "\n", $cmv->errors ); #pod die $msg; #pod } #pod #pod =head1 DESCRIPTION #pod #pod This module validates a CPAN Meta structure against the version of the #pod the specification claimed in the C<meta-spec> field of the structure. #pod #pod =cut #--------------------------------------------------------------------------# # This code copied and adapted from Test::CPAN::Meta # by Barbie, <barbie@cpan.org> for Miss Barbell Productions, # L<http://www.missbarbell.co.uk> #--------------------------------------------------------------------------# #--------------------------------------------------------------------------# # Specification Definitions #--------------------------------------------------------------------------# my %known_specs = ( '1.4' => 'http://module-build.sourceforge.net/META-spec-v1.4.html', '1.3' => 'http://module-build.sourceforge.net/META-spec-v1.3.html', '1.2' => 'http://module-build.sourceforge.net/META-spec-v1.2.html', '1.1' => 'http://module-build.sourceforge.net/META-spec-v1.1.html', '1.0' => 'http://module-build.sourceforge.net/META-spec-v1.0.html' ); my %known_urls = map {$known_specs{$_} => $_} keys %known_specs; my $module_map1 = { 'map' => { ':key' => { name => \&module, value => \&exversion } } }; my $module_map2 = { 'map' => { ':key' => { name => \&module, value => \&version } } }; my $no_index_2 = { 'map' => { file => { list => { value => \&string } }, directory => { list => { value => \&string } }, 'package' => { list => { value => \&string } }, namespace => { list => { value => \&string } }, ':key' => { name => \&custom_2, value => \&anything }, } }; my $no_index_1_3 = { 'map' => { file => { list => { value => \&string } }, directory => { list => { value => \&string } }, 'package' => { list => { value => \&string } }, namespace => { list => { value => \&string } }, ':key' => { name => \&string, value => \&anything }, } }; my $no_index_1_2 = { 'map' => { file => { list => { value => \&string } }, dir => { list => { value => \&string } }, 'package' => { list => { value => \&string } }, namespace => { list => { value => \&string } }, ':key' => { name => \&string, value => \&anything }, } }; my $no_index_1_1 = { 'map' => { ':key' => { name => \&string, list => { value => \&string } }, } }; my $prereq_map = { map => { ':key' => { name => \&phase, 'map' => { ':key' => { name => \&relation, %$module_map1, }, }, } }, }; my %definitions = ( '2' => { # REQUIRED 'abstract' => { mandatory => 1, value => \&string }, 'author' => { mandatory => 1, list => { value => \&string } }, 'dynamic_config' => { mandatory => 1, value => \&boolean }, 'generated_by' => { mandatory => 1, value => \&string }, 'license' => { mandatory => 1, list => { value => \&license } }, 'meta-spec' => { mandatory => 1, 'map' => { version => { mandatory => 1, value => \&version}, url => { value => \&url }, ':key' => { name => \&custom_2, value => \&anything }, } }, 'name' => { mandatory => 1, value => \&string }, 'release_status' => { mandatory => 1, value => \&release_status }, 'version' => { mandatory => 1, value => \&version }, # OPTIONAL 'description' => { value => \&string }, 'keywords' => { list => { value => \&string } }, 'no_index' => $no_index_2, 'optional_features' => { 'map' => { ':key' => { name => \&string, 'map' => { description => { value => \&string }, prereqs => $prereq_map, ':key' => { name => \&custom_2, value => \&anything }, } } } }, 'prereqs' => $prereq_map, 'provides' => { 'map' => { ':key' => { name => \&module, 'map' => { file => { mandatory => 1, value => \&file }, version => { value => \&version }, ':key' => { name => \&custom_2, value => \&anything }, } } } }, 'resources' => { 'map' => { license => { list => { value => \&url } }, homepage => { value => \&url }, bugtracker => { 'map' => { web => { value => \&url }, mailto => { value => \&string}, ':key' => { name => \&custom_2, value => \&anything }, } }, repository => { 'map' => { web => { value => \&url }, url => { value => \&url }, type => { value => \&string }, ':key' => { name => \&custom_2, value => \&anything }, } }, ':key' => { value => \&string, name => \&custom_2 }, } }, # CUSTOM -- additional user defined key/value pairs # note we can only validate the key name, as the structure is user defined ':key' => { name => \&custom_2, value => \&anything }, }, '1.4' => { 'meta-spec' => { mandatory => 1, 'map' => { version => { mandatory => 1, value => \&version}, url => { mandatory => 1, value => \&urlspec }, ':key' => { name => \&string, value => \&anything }, }, }, 'name' => { mandatory => 1, value => \&string }, 'version' => { mandatory => 1, value => \&version }, 'abstract' => { mandatory => 1, value => \&string }, 'author' => { mandatory => 1, list => { value => \&string } }, 'license' => { mandatory => 1, value => \&license }, 'generated_by' => { mandatory => 1, value => \&string }, 'distribution_type' => { value => \&string }, 'dynamic_config' => { value => \&boolean }, 'requires' => $module_map1, 'recommends' => $module_map1, 'build_requires' => $module_map1, 'configure_requires' => $module_map1, 'conflicts' => $module_map2, 'optional_features' => { 'map' => { ':key' => { name => \&string, 'map' => { description => { value => \&string }, requires => $module_map1, recommends => $module_map1, build_requires => $module_map1, conflicts => $module_map2, ':key' => { name => \&string, value => \&anything }, } } } }, 'provides' => { 'map' => { ':key' => { name => \&module, 'map' => { file => { mandatory => 1, value => \&file }, version => { value => \&version }, ':key' => { name => \&string, value => \&anything }, } } } }, 'no_index' => $no_index_1_3, 'private' => $no_index_1_3, 'keywords' => { list => { value => \&string } }, 'resources' => { 'map' => { license => { value => \&url }, homepage => { value => \&url }, bugtracker => { value => \&url }, repository => { value => \&url }, ':key' => { value => \&string, name => \&custom_1 }, } }, # additional user defined key/value pairs # note we can only validate the key name, as the structure is user defined ':key' => { name => \&string, value => \&anything }, }, '1.3' => { 'meta-spec' => { mandatory => 1, 'map' => { version => { mandatory => 1, value => \&version}, url => { mandatory => 1, value => \&urlspec }, ':key' => { name => \&string, value => \&anything }, }, }, 'name' => { mandatory => 1, value => \&string }, 'version' => { mandatory => 1, value => \&version }, 'abstract' => { mandatory => 1, value => \&string }, 'author' => { mandatory => 1, list => { value => \&string } }, 'license' => { mandatory => 1, value => \&license }, 'generated_by' => { mandatory => 1, value => \&string }, 'distribution_type' => { value => \&string }, 'dynamic_config' => { value => \&boolean }, 'requires' => $module_map1, 'recommends' => $module_map1, 'build_requires' => $module_map1, 'conflicts' => $module_map2, 'optional_features' => { 'map' => { ':key' => { name => \&string, 'map' => { description => { value => \&string }, requires => $module_map1, recommends => $module_map1, build_requires => $module_map1, conflicts => $module_map2, ':key' => { name => \&string, value => \&anything }, } } } }, 'provides' => { 'map' => { ':key' => { name => \&module, 'map' => { file => { mandatory => 1, value => \&file }, version => { value => \&version }, ':key' => { name => \&string, value => \&anything }, } } } }, 'no_index' => $no_index_1_3, 'private' => $no_index_1_3, 'keywords' => { list => { value => \&string } }, 'resources' => { 'map' => { license => { value => \&url }, homepage => { value => \&url }, bugtracker => { value => \&url }, repository => { value => \&url }, ':key' => { value => \&string, name => \&custom_1 }, } }, # additional user defined key/value pairs # note we can only validate the key name, as the structure is user defined ':key' => { name => \&string, value => \&anything }, }, # v1.2 is misleading, it seems to assume that a number of fields where created # within v1.1, when they were created within v1.2. This may have been an # original mistake, and that a v1.1 was retro fitted into the timeline, when # v1.2 was originally slated as v1.1. But I could be wrong ;) '1.2' => { 'meta-spec' => { mandatory => 1, 'map' => { version => { mandatory => 1, value => \&version}, url => { mandatory => 1, value => \&urlspec }, ':key' => { name => \&string, value => \&anything }, }, }, 'name' => { mandatory => 1, value => \&string }, 'version' => { mandatory => 1, value => \&version }, 'license' => { mandatory => 1, value => \&license }, 'generated_by' => { mandatory => 1, value => \&string }, 'author' => { mandatory => 1, list => { value => \&string } }, 'abstract' => { mandatory => 1, value => \&string }, 'distribution_type' => { value => \&string }, 'dynamic_config' => { value => \&boolean }, 'keywords' => { list => { value => \&string } }, 'private' => $no_index_1_2, '$no_index' => $no_index_1_2, 'requires' => $module_map1, 'recommends' => $module_map1, 'build_requires' => $module_map1, 'conflicts' => $module_map2, 'optional_features' => { 'map' => { ':key' => { name => \&string, 'map' => { description => { value => \&string }, requires => $module_map1, recommends => $module_map1, build_requires => $module_map1, conflicts => $module_map2, ':key' => { name => \&string, value => \&anything }, } } } }, 'provides' => { 'map' => { ':key' => { name => \&module, 'map' => { file => { mandatory => 1, value => \&file }, version => { value => \&version }, ':key' => { name => \&string, value => \&anything }, } } } }, 'resources' => { 'map' => { license => { value => \&url }, homepage => { value => \&url }, bugtracker => { value => \&url }, repository => { value => \&url }, ':key' => { value => \&string, name => \&custom_1 }, } }, # additional user defined key/value pairs # note we can only validate the key name, as the structure is user defined ':key' => { name => \&string, value => \&anything }, }, # note that the 1.1 spec only specifies 'version' as mandatory '1.1' => { 'name' => { value => \&string }, 'version' => { mandatory => 1, value => \&version }, 'license' => { value => \&license }, 'generated_by' => { value => \&string }, 'license_uri' => { value => \&url }, 'distribution_type' => { value => \&string }, 'dynamic_config' => { value => \&boolean }, 'private' => $no_index_1_1, 'requires' => $module_map1, 'recommends' => $module_map1, 'build_requires' => $module_map1, 'conflicts' => $module_map2, # additional user defined key/value pairs # note we can only validate the key name, as the structure is user defined ':key' => { name => \&string, value => \&anything }, }, # note that the 1.0 spec doesn't specify optional or mandatory fields # but we will treat version as mandatory since otherwise META 1.0 is # completely arbitrary and pointless '1.0' => { 'name' => { value => \&string }, 'version' => { mandatory => 1, value => \&version }, 'license' => { value => \&license }, 'generated_by' => { value => \&string }, 'license_uri' => { value => \&url }, 'distribution_type' => { value => \&string }, 'dynamic_config' => { value => \&boolean }, 'requires' => $module_map1, 'recommends' => $module_map1, 'build_requires' => $module_map1, 'conflicts' => $module_map2, # additional user defined key/value pairs # note we can only validate the key name, as the structure is user defined ':key' => { name => \&string, value => \&anything }, }, ); #--------------------------------------------------------------------------# # Code #--------------------------------------------------------------------------# #pod =method new #pod #pod my $cmv = CPAN::Meta::Validator->new( $struct ) #pod #pod The constructor must be passed a metadata structure. #pod #pod =cut sub new { my ($class,$data) = @_; # create an attributes hash my $self = { 'data' => $data, 'spec' => eval { $data->{'meta-spec'}{'version'} } || "1.0", 'errors' => undef, }; # create the object return bless $self, $class; } #pod =method is_valid #pod #pod if ( $cmv->is_valid ) { #pod ... #pod } #pod #pod Returns a boolean value indicating whether the metadata provided #pod is valid. #pod #pod =cut sub is_valid { my $self = shift; my $data = $self->{data}; my $spec_version = $self->{spec}; $self->check_map($definitions{$spec_version},$data); return ! $self->errors; } #pod =method errors #pod #pod warn( join "\n", $cmv->errors ); #pod #pod Returns a list of errors seen during validation. #pod #pod =cut sub errors { my $self = shift; return () unless(defined $self->{errors}); return @{$self->{errors}}; } #pod =begin :internals #pod #pod =head2 Check Methods #pod #pod =over #pod #pod =item * #pod #pod check_map($spec,$data) #pod #pod Checks whether a map (or hash) part of the data structure conforms to the #pod appropriate specification definition. #pod #pod =item * #pod #pod check_list($spec,$data) #pod #pod Checks whether a list (or array) part of the data structure conforms to #pod the appropriate specification definition. #pod #pod =item * #pod #pod =back #pod #pod =cut my $spec_error = "Missing validation action in specification. " . "Must be one of 'map', 'list', or 'value'"; sub check_map { my ($self,$spec,$data) = @_; if(ref($spec) ne 'HASH') { $self->_error( "Unknown META specification, cannot validate." ); return; } if(ref($data) ne 'HASH') { $self->_error( "Expected a map structure from string or file." ); return; } for my $key (keys %$spec) { next unless($spec->{$key}->{mandatory}); next if(defined $data->{$key}); push @{$self->{stack}}, $key; $self->_error( "Missing mandatory field, '$key'" ); pop @{$self->{stack}}; } for my $key (keys %$data) { push @{$self->{stack}}, $key; if($spec->{$key}) { if($spec->{$key}{value}) { $spec->{$key}{value}->($self,$key,$data->{$key}); } elsif($spec->{$key}{'map'}) { $self->check_map($spec->{$key}{'map'},$data->{$key}); } elsif($spec->{$key}{'list'}) { $self->check_list($spec->{$key}{'list'},$data->{$key}); } else { $self->_error( "$spec_error for '$key'" ); } } elsif ($spec->{':key'}) { $spec->{':key'}{name}->($self,$key,$key); if($spec->{':key'}{value}) { $spec->{':key'}{value}->($self,$key,$data->{$key}); } elsif($spec->{':key'}{'map'}) { $self->check_map($spec->{':key'}{'map'},$data->{$key}); } elsif($spec->{':key'}{'list'}) { $self->check_list($spec->{':key'}{'list'},$data->{$key}); } else { $self->_error( "$spec_error for ':key'" ); } } else { $self->_error( "Unknown key, '$key', found in map structure" ); } pop @{$self->{stack}}; } } sub check_list { my ($self,$spec,$data) = @_; if(ref($data) ne 'ARRAY') { $self->_error( "Expected a list structure" ); return; } if(defined $spec->{mandatory}) { if(!defined $data->[0]) { $self->_error( "Missing entries from mandatory list" ); } } for my $value (@$data) { push @{$self->{stack}}, $value || "<undef>"; if(defined $spec->{value}) { $spec->{value}->($self,'list',$value); } elsif(defined $spec->{'map'}) { $self->check_map($spec->{'map'},$value); } elsif(defined $spec->{'list'}) { $self->check_list($spec->{'list'},$value); } elsif ($spec->{':key'}) { $self->check_map($spec,$value); } else { $self->_error( "$spec_error associated with '$self->{stack}[-2]'" ); } pop @{$self->{stack}}; } } #pod =head2 Validator Methods #pod #pod =over #pod #pod =item * #pod #pod header($self,$key,$value) #pod #pod Validates that the header is valid. #pod #pod Note: No longer used as we now read the data structure, not the file. #pod #pod =item * #pod #pod url($self,$key,$value) #pod #pod Validates that a given value is in an acceptable URL format #pod #pod =item * #pod #pod urlspec($self,$key,$value) #pod #pod Validates that the URL to a META specification is a known one. #pod #pod =item * #pod #pod string_or_undef($self,$key,$value) #pod #pod Validates that the value is either a string or an undef value. Bit of a #pod catchall function for parts of the data structure that are completely user #pod defined. #pod #pod =item * #pod #pod string($self,$key,$value) #pod #pod Validates that a string exists for the given key. #pod #pod =item * #pod #pod file($self,$key,$value) #pod #pod Validate that a file is passed for the given key. This may be made more #pod thorough in the future. For now it acts like \&string. #pod #pod =item * #pod #pod exversion($self,$key,$value) #pod #pod Validates a list of versions, e.g. '<= 5, >=2, ==3, !=4, >1, <6, 0'. #pod #pod =item * #pod #pod version($self,$key,$value) #pod #pod Validates a single version string. Versions of the type '5.8.8' and '0.00_00' #pod are both valid. A leading 'v' like 'v1.2.3' is also valid. #pod #pod =item * #pod #pod boolean($self,$key,$value) #pod #pod Validates for a boolean value: a defined value that is either "1" or "0" or #pod stringifies to those values. #pod #pod =item * #pod #pod license($self,$key,$value) #pod #pod Validates that a value is given for the license. Returns 1 if an known license #pod type, or 2 if a value is given but the license type is not a recommended one. #pod #pod =item * #pod #pod custom_1($self,$key,$value) #pod #pod Validates that the given key is in CamelCase, to indicate a user defined #pod keyword and only has characters in the class [-_a-zA-Z]. In version 1.X #pod of the spec, this was only explicitly stated for 'resources'. #pod #pod =item * #pod #pod custom_2($self,$key,$value) #pod #pod Validates that the given key begins with 'x_' or 'X_', to indicate a user #pod defined keyword and only has characters in the class [-_a-zA-Z] #pod #pod =item * #pod #pod identifier($self,$key,$value) #pod #pod Validates that key is in an acceptable format for the META specification, #pod for an identifier, i.e. any that matches the regular expression #pod qr/[a-z][a-z_]/i. #pod #pod =item * #pod #pod module($self,$key,$value) #pod #pod Validates that a given key is in an acceptable module name format, e.g. #pod 'Test::CPAN::Meta::Version'. #pod #pod =back #pod #pod =end :internals #pod #pod =cut sub header { my ($self,$key,$value) = @_; if(defined $value) { return 1 if($value && $value =~ /^--- #YAML:1.0/); } $self->_error( "file does not have a valid YAML header." ); return 0; } sub release_status { my ($self,$key,$value) = @_; if(defined $value) { my $version = $self->{data}{version} || ''; if ( $version =~ /_/ ) { return 1 if ( $value =~ /\A(?:testing|unstable)\z/ ); $self->_error( "'$value' for '$key' is invalid for version '$version'" ); } else { return 1 if ( $value =~ /\A(?:stable|testing|unstable)\z/ ); $self->_error( "'$value' for '$key' is invalid" ); } } else { $self->_error( "'$key' is not defined" ); } return 0; } # _uri_split taken from URI::Split by Gisle Aas, Copyright 2003 sub _uri_split { return $_[0] =~ m,(?:([^:/?#]+):)?(?://([^/?#]*))?([^?#]*)(?:\?([^#]*))?(?:#(.*))?,; } sub url { my ($self,$key,$value) = @_; if(defined $value) { my ($scheme, $auth, $path, $query, $frag) = _uri_split($value); unless ( defined $scheme && length $scheme ) { $self->_error( "'$value' for '$key' does not have a URL scheme" ); return 0; } unless ( defined $auth && length $auth ) { $self->_error( "'$value' for '$key' does not have a URL authority" ); return 0; } return 1; } $value ||= ''; $self->_error( "'$value' for '$key' is not a valid URL." ); return 0; } sub urlspec { my ($self,$key,$value) = @_; if(defined $value) { return 1 if($value && $known_specs{$self->{spec}} eq $value); if($value && $known_urls{$value}) { $self->_error( 'META specification URL does not match version' ); return 0; } } $self->_error( 'Unknown META specification' ); return 0; } sub anything { return 1 } sub string { my ($self,$key,$value) = @_; if(defined $value) { return 1 if($value || $value =~ /^0$/); } $self->_error( "value is an undefined string" ); return 0; } sub string_or_undef { my ($self,$key,$value) = @_; return 1 unless(defined $value); return 1 if($value || $value =~ /^0$/); $self->_error( "No string defined for '$key'" ); return 0; } sub file { my ($self,$key,$value) = @_; return 1 if(defined $value); $self->_error( "No file defined for '$key'" ); return 0; } sub exversion { my ($self,$key,$value) = @_; if(defined $value && ($value || $value =~ /0/)) { my $pass = 1; for(split(",",$value)) { $self->version($key,$_) or ($pass = 0); } return $pass; } $value = '<undef>' unless(defined $value); $self->_error( "'$value' for '$key' is not a valid version." ); return 0; } sub version { my ($self,$key,$value) = @_; if(defined $value) { return 0 unless($value || $value =~ /0/); return 1 if($value =~ /^\s*((<|<=|>=|>|!=|==)\s*)?v?\d+((\.\d+((_|\.)\d+)?)?)/); } else { $value = '<undef>'; } $self->_error( "'$value' for '$key' is not a valid version." ); return 0; } sub boolean { my ($self,$key,$value) = @_; if(defined $value) { return 1 if($value =~ /^(0|1)$/); } else { $value = '<undef>'; } $self->_error( "'$value' for '$key' is not a boolean value." ); return 0; } my %v1_licenses = ( 'perl' => 'http://dev.perl.org/licenses/', 'gpl' => 'http://www.opensource.org/licenses/gpl-license.php', 'apache' => 'http://apache.org/licenses/LICENSE-2.0', 'artistic' => 'http://opensource.org/licenses/artistic-license.php', 'artistic_2' => 'http://opensource.org/licenses/artistic-license-2.0.php', 'lgpl' => 'http://www.opensource.org/licenses/lgpl-license.php', 'bsd' => 'http://www.opensource.org/licenses/bsd-license.php', 'gpl' => 'http://www.opensource.org/licenses/gpl-license.php', 'mit' => 'http://opensource.org/licenses/mit-license.php', 'mozilla' => 'http://opensource.org/licenses/mozilla1.1.php', 'open_source' => undef, 'unrestricted' => undef, 'restrictive' => undef, 'unknown' => undef, ); my %v2_licenses = map { $_ => 1 } qw( agpl_3 apache_1_1 apache_2_0 artistic_1 artistic_2 bsd freebsd gfdl_1_2 gfdl_1_3 gpl_1 gpl_2 gpl_3 lgpl_2_1 lgpl_3_0 mit mozilla_1_0 mozilla_1_1 openssl perl_5 qpl_1_0 ssleay sun zlib open_source restricted unrestricted unknown ); sub license { my ($self,$key,$value) = @_; my $licenses = $self->{spec} < 2 ? \%v1_licenses : \%v2_licenses; if(defined $value) { return 1 if($value && exists $licenses->{$value}); } else { $value = '<undef>'; } $self->_error( "License '$value' is invalid" ); return 0; } sub custom_1 { my ($self,$key) = @_; if(defined $key) { # a valid user defined key should be alphabetic # and contain at least one capital case letter. return 1 if($key && $key =~ /^[_a-z]+$/i && $key =~ /[A-Z]/); } else { $key = '<undef>'; } $self->_error( "Custom resource '$key' must be in CamelCase." ); return 0; } sub custom_2 { my ($self,$key) = @_; if(defined $key) { return 1 if($key && $key =~ /^x_/i); # user defined } else { $key = '<undef>'; } $self->_error( "Custom key '$key' must begin with 'x_' or 'X_'." ); return 0; } sub identifier { my ($self,$key) = @_; if(defined $key) { return 1 if($key && $key =~ /^([a-z][_a-z]+)$/i); # spec 2.0 defined } else { $key = '<undef>'; } $self->_error( "Key '$key' is not a legal identifier." ); return 0; } sub module { my ($self,$key) = @_; if(defined $key) { return 1 if($key && $key =~ /^[A-Za-z0-9_]+(::[A-Za-z0-9_]+)*$/); } else { $key = '<undef>'; } $self->_error( "Key '$key' is not a legal module name." ); return 0; } my @valid_phases = qw/ configure build test runtime develop /; sub phase { my ($self,$key) = @_; if(defined $key) { return 1 if( length $key && grep { $key eq $_ } @valid_phases ); return 1 if $key =~ /x_/i; } else { $key = '<undef>'; } $self->_error( "Key '$key' is not a legal phase." ); return 0; } my @valid_relations = qw/ requires recommends suggests conflicts /; sub relation { my ($self,$key) = @_; if(defined $key) { return 1 if( length $key && grep { $key eq $_ } @valid_relations ); return 1 if $key =~ /x_/i; } else { $key = '<undef>'; } $self->_error( "Key '$key' is not a legal prereq relationship." ); return 0; } sub _error { my $self = shift; my $mess = shift; $mess .= ' ('.join(' -> ',@{$self->{stack}}).')' if($self->{stack}); $mess .= " [Validation: $self->{spec}]"; push @{$self->{errors}}, $mess; } 1; # ABSTRACT: validate CPAN distribution metadata structures =pod =encoding UTF-8 =head1 NAME CPAN::Meta::Validator - validate CPAN distribution metadata structures =head1 VERSION version 2.150010 =head1 SYNOPSIS my $struct = decode_json_file('META.json'); my $cmv = CPAN::Meta::Validator->new( $struct ); unless ( $cmv->is_valid ) { my $msg = "Invalid META structure. Errors found:\n"; $msg .= join( "\n", $cmv->errors ); die $msg; } =head1 DESCRIPTION This module validates a CPAN Meta structure against the version of the the specification claimed in the C<meta-spec> field of the structure. =head1 METHODS =head2 new my $cmv = CPAN::Meta::Validator->new( $struct ) The constructor must be passed a metadata structure. =head2 is_valid if ( $cmv->is_valid ) { ... } Returns a boolean value indicating whether the metadata provided is valid. =head2 errors warn( join "\n", $cmv->errors ); Returns a list of errors seen during validation. =begin :internals =head2 Check Methods =over =item * check_map($spec,$data) Checks whether a map (or hash) part of the data structure conforms to the appropriate specification definition. =item * check_list($spec,$data) Checks whether a list (or array) part of the data structure conforms to the appropriate specification definition. =item * =back =head2 Validator Methods =over =item * header($self,$key,$value) Validates that the header is valid. Note: No longer used as we now read the data structure, not the file. =item * url($self,$key,$value) Validates that a given value is in an acceptable URL format =item * urlspec($self,$key,$value) Validates that the URL to a META specification is a known one. =item * string_or_undef($self,$key,$value) Validates that the value is either a string or an undef value. Bit of a catchall function for parts of the data structure that are completely user defined. =item * string($self,$key,$value) Validates that a string exists for the given key. =item * file($self,$key,$value) Validate that a file is passed for the given key. This may be made more thorough in the future. For now it acts like \&string. =item * exversion($self,$key,$value) Validates a list of versions, e.g. '<= 5, >=2, ==3, !=4, >1, <6, 0'. =item * version($self,$key,$value) Validates a single version string. Versions of the type '5.8.8' and '0.00_00' are both valid. A leading 'v' like 'v1.2.3' is also valid. =item * boolean($self,$key,$value) Validates for a boolean value: a defined value that is either "1" or "0" or stringifies to those values. =item * license($self,$key,$value) Validates that a value is given for the license. Returns 1 if an known license type, or 2 if a value is given but the license type is not a recommended one. =item * custom_1($self,$key,$value) Validates that the given key is in CamelCase, to indicate a user defined keyword and only has characters in the class [-_a-zA-Z]. In version 1.X of the spec, this was only explicitly stated for 'resources'. =item * custom_2($self,$key,$value) Validates that the given key begins with 'x_' or 'X_', to indicate a user defined keyword and only has characters in the class [-_a-zA-Z] =item * identifier($self,$key,$value) Validates that key is in an acceptable format for the META specification, for an identifier, i.e. any that matches the regular expression qr/[a-z][a-z_]/i. =item * module($self,$key,$value) Validates that a given key is in an acceptable module name format, e.g. 'Test::CPAN::Meta::Version'. =back =end :internals =for Pod::Coverage anything boolean check_list custom_1 custom_2 exversion file identifier license module phase relation release_status string string_or_undef url urlspec version header check_map =head1 BUGS Please report any bugs or feature using the CPAN Request Tracker. Bugs can be submitted through the web interface at L<http://rt.cpan.org/Dist/Display.html?Queue=CPAN-Meta> When submitting a bug or request, please include a test-file or a patch to an existing test-file that illustrates the bug or desired feature. =head1 AUTHORS =over 4 =item * David Golden <dagolden@cpan.org> =item * Ricardo Signes <rjbs@cpan.org> =item * Adam Kennedy <adamk@cpan.org> =back =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2010 by David Golden, Ricardo Signes, Adam Kennedy and Contributors. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut __END__ # vim: ts=2 sts=2 sw=2 et : PK ! ��qN� N� 5.34.0/CPAN/Meta/Converter.pmnu �[��� use 5.006; use strict; use warnings; package CPAN::Meta::Converter; our $VERSION = '2.150010'; #pod =head1 SYNOPSIS #pod #pod my $struct = decode_json_file('META.json'); #pod #pod my $cmc = CPAN::Meta::Converter->new( $struct ); #pod #pod my $new_struct = $cmc->convert( version => "2" ); #pod #pod =head1 DESCRIPTION #pod #pod This module converts CPAN Meta structures from one form to another. The #pod primary use is to convert older structures to the most modern version of #pod the specification, but other transformations may be implemented in the #pod future as needed. (E.g. stripping all custom fields or stripping all #pod optional fields.) #pod #pod =cut use CPAN::Meta::Validator; use CPAN::Meta::Requirements; use Parse::CPAN::Meta 1.4400 (); # To help ExtUtils::MakeMaker bootstrap CPAN::Meta::Requirements on perls # before 5.10, we fall back to the EUMM bundled compatibility version module if # that's the only thing available. This shouldn't ever happen in a normal CPAN # install of CPAN::Meta::Requirements, as version.pm will be picked up from # prereqs and be available at runtime. BEGIN { eval "use version ()"; ## no critic if ( my $err = $@ ) { eval "use ExtUtils::MakeMaker::version" or die $err; ## no critic } } # Perl 5.10.0 didn't have "is_qv" in version.pm *_is_qv = version->can('is_qv') ? sub { $_[0]->is_qv } : sub { exists $_[0]->{qv} }; # We limit cloning to a maximum depth to bail out on circular data # structures. While actual cycle detection might be technically better, # we expect circularity in META data structures to be rare and generally # the result of user error. Therefore, a depth counter is lower overhead. our $DCLONE_MAXDEPTH = 1024; our $_CLONE_DEPTH; sub _dclone { my ( $ref ) = @_; return $ref unless my $reftype = ref $ref; local $_CLONE_DEPTH = defined $_CLONE_DEPTH ? $_CLONE_DEPTH - 1 : $DCLONE_MAXDEPTH; die "Depth Limit $DCLONE_MAXDEPTH Exceeded" if $_CLONE_DEPTH == 0; return [ map { _dclone( $_ ) } @{$ref} ] if 'ARRAY' eq $reftype; return { map { $_ => _dclone( $ref->{$_} ) } keys %{$ref} } if 'HASH' eq $reftype; if ( 'SCALAR' eq $reftype ) { my $new = _dclone(${$ref}); return \$new; } # We can't know if TO_JSON gives us cloned data, so refs must recurse if ( eval { $ref->can('TO_JSON') } ) { my $data = $ref->TO_JSON; return ref $data ? _dclone( $data ) : $data; } # Just stringify everything else return "$ref"; } my %known_specs = ( '2' => 'http://search.cpan.org/perldoc?CPAN::Meta::Spec', '1.4' => 'http://module-build.sourceforge.net/META-spec-v1.4.html', '1.3' => 'http://module-build.sourceforge.net/META-spec-v1.3.html', '1.2' => 'http://module-build.sourceforge.net/META-spec-v1.2.html', '1.1' => 'http://module-build.sourceforge.net/META-spec-v1.1.html', '1.0' => 'http://module-build.sourceforge.net/META-spec-v1.0.html' ); my @spec_list = sort { $a <=> $b } keys %known_specs; my ($LOWEST, $HIGHEST) = @spec_list[0,-1]; #--------------------------------------------------------------------------# # converters # # called as $converter->($element, $field_name, $full_meta, $to_version) # # defined return value used for field # undef return value means field is skipped #--------------------------------------------------------------------------# sub _keep { $_[0] } sub _keep_or_one { defined($_[0]) ? $_[0] : 1 } sub _keep_or_zero { defined($_[0]) ? $_[0] : 0 } sub _keep_or_unknown { defined($_[0]) && length($_[0]) ? $_[0] : "unknown" } sub _generated_by { my $gen = shift; my $sig = __PACKAGE__ . " version " . (__PACKAGE__->VERSION || "<dev>"); return $sig unless defined $gen and length $gen; return $gen if $gen =~ /\Q$sig/; return "$gen, $sig"; } sub _listify { ! defined $_[0] ? undef : ref $_[0] eq 'ARRAY' ? $_[0] : [$_[0]] } sub _prefix_custom { my $key = shift; $key =~ s/^(?!x_) # Unless it already starts with x_ (?:x-?)? # Remove leading x- or x (if present) /x_/ix; # and prepend x_ return $key; } sub _ucfirst_custom { my $key = shift; $key = ucfirst $key unless $key =~ /[A-Z]/; return $key; } sub _no_prefix_ucfirst_custom { my $key = shift; $key =~ s/^x_//; return _ucfirst_custom($key); } sub _change_meta_spec { my ($element, undef, undef, $version) = @_; return { version => $version, url => $known_specs{$version}, }; } my @open_source = ( 'perl', 'gpl', 'apache', 'artistic', 'artistic_2', 'lgpl', 'bsd', 'gpl', 'mit', 'mozilla', 'open_source', ); my %is_open_source = map {; $_ => 1 } @open_source; my @valid_licenses_1 = ( @open_source, 'unrestricted', 'restrictive', 'unknown', ); my %license_map_1 = ( ( map { $_ => $_ } @valid_licenses_1 ), artistic2 => 'artistic_2', ); sub _license_1 { my ($element) = @_; return 'unknown' unless defined $element; if ( $license_map_1{lc $element} ) { return $license_map_1{lc $element}; } else { return 'unknown'; } } my @valid_licenses_2 = qw( agpl_3 apache_1_1 apache_2_0 artistic_1 artistic_2 bsd freebsd gfdl_1_2 gfdl_1_3 gpl_1 gpl_2 gpl_3 lgpl_2_1 lgpl_3_0 mit mozilla_1_0 mozilla_1_1 openssl perl_5 qpl_1_0 ssleay sun zlib open_source restricted unrestricted unknown ); # The "old" values were defined by Module::Build, and were often vague. I have # made the decisions below based on reading Module::Build::API and how clearly # it specifies the version of the license. my %license_map_2 = ( (map { $_ => $_ } @valid_licenses_2), apache => 'apache_2_0', # clearly stated as 2.0 artistic => 'artistic_1', # clearly stated as 1 artistic2 => 'artistic_2', # clearly stated as 2 gpl => 'open_source', # we don't know which GPL; punt lgpl => 'open_source', # we don't know which LGPL; punt mozilla => 'open_source', # we don't know which MPL; punt perl => 'perl_5', # clearly Perl 5 restrictive => 'restricted', ); sub _license_2 { my ($element) = @_; return [ 'unknown' ] unless defined $element; $element = [ $element ] unless ref $element eq 'ARRAY'; my @new_list; for my $lic ( @$element ) { next unless defined $lic; if ( my $new = $license_map_2{lc $lic} ) { push @new_list, $new; } } return @new_list ? \@new_list : [ 'unknown' ]; } my %license_downgrade_map = qw( agpl_3 open_source apache_1_1 apache apache_2_0 apache artistic_1 artistic artistic_2 artistic_2 bsd bsd freebsd open_source gfdl_1_2 open_source gfdl_1_3 open_source gpl_1 gpl gpl_2 gpl gpl_3 gpl lgpl_2_1 lgpl lgpl_3_0 lgpl mit mit mozilla_1_0 mozilla mozilla_1_1 mozilla openssl open_source perl_5 perl qpl_1_0 open_source ssleay open_source sun open_source zlib open_source open_source open_source restricted restrictive unrestricted unrestricted unknown unknown ); sub _downgrade_license { my ($element) = @_; if ( ! defined $element ) { return "unknown"; } elsif( ref $element eq 'ARRAY' ) { if ( @$element > 1) { if (grep { !$is_open_source{ $license_downgrade_map{lc $_} || 'unknown' } } @$element) { return 'unknown'; } else { return 'open_source'; } } elsif ( @$element == 1 ) { return $license_downgrade_map{lc $element->[0]} || "unknown"; } } elsif ( ! ref $element ) { return $license_downgrade_map{lc $element} || "unknown"; } return "unknown"; } my $no_index_spec_1_2 = { 'file' => \&_listify, 'dir' => \&_listify, 'package' => \&_listify, 'namespace' => \&_listify, }; my $no_index_spec_1_3 = { 'file' => \&_listify, 'directory' => \&_listify, 'package' => \&_listify, 'namespace' => \&_listify, }; my $no_index_spec_2 = { 'file' => \&_listify, 'directory' => \&_listify, 'package' => \&_listify, 'namespace' => \&_listify, ':custom' => \&_prefix_custom, }; sub _no_index_1_2 { my (undef, undef, $meta) = @_; my $no_index = $meta->{no_index} || $meta->{private}; return unless $no_index; # cleanup wrong format if ( ! ref $no_index ) { my $item = $no_index; $no_index = { dir => [ $item ], file => [ $item ] }; } elsif ( ref $no_index eq 'ARRAY' ) { my $list = $no_index; $no_index = { dir => [ @$list ], file => [ @$list ] }; } # common mistake: files -> file if ( exists $no_index->{files} ) { $no_index->{file} = delete $no_index->{files}; } # common mistake: modules -> module if ( exists $no_index->{modules} ) { $no_index->{module} = delete $no_index->{modules}; } return _convert($no_index, $no_index_spec_1_2); } sub _no_index_directory { my ($element, $key, $meta, $version) = @_; return unless $element; # clean up wrong format if ( ! ref $element ) { my $item = $element; $element = { directory => [ $item ], file => [ $item ] }; } elsif ( ref $element eq 'ARRAY' ) { my $list = $element; $element = { directory => [ @$list ], file => [ @$list ] }; } if ( exists $element->{dir} ) { $element->{directory} = delete $element->{dir}; } # common mistake: files -> file if ( exists $element->{files} ) { $element->{file} = delete $element->{files}; } # common mistake: modules -> module if ( exists $element->{modules} ) { $element->{module} = delete $element->{modules}; } my $spec = $version == 2 ? $no_index_spec_2 : $no_index_spec_1_3; return _convert($element, $spec); } sub _is_module_name { my $mod = shift; return unless defined $mod && length $mod; return $mod =~ m{^[A-Za-z][A-Za-z0-9_]*(?:::[A-Za-z0-9_]+)*$}; } sub _clean_version { my ($element) = @_; return 0 if ! defined $element; $element =~ s{^\s*}{}; $element =~ s{\s*$}{}; $element =~ s{^\.}{0.}; return 0 if ! length $element; return 0 if ( $element eq 'undef' || $element eq '<undef>' ); my $v = eval { version->new($element) }; # XXX check defined $v and not just $v because version objects leak memory # in boolean context -- dagolden, 2012-02-03 if ( defined $v ) { return _is_qv($v) ? $v->normal : $element; } else { return 0; } } sub _bad_version_hook { my ($v) = @_; $v =~ s{^\s*}{}; $v =~ s{\s*$}{}; $v =~ s{[a-z]+$}{}; # strip trailing alphabetics my $vobj = eval { version->new($v) }; return defined($vobj) ? $vobj : version->new(0); # or give up } sub _version_map { my ($element) = @_; return unless defined $element; if ( ref $element eq 'HASH' ) { # XXX turn this into CPAN::Meta::Requirements with bad version hook # and then turn it back into a hash my $new_map = CPAN::Meta::Requirements->new( { bad_version_hook => \&_bad_version_hook } # punt ); while ( my ($k,$v) = each %$element ) { next unless _is_module_name($k); if ( !defined($v) || !length($v) || $v eq 'undef' || $v eq '<undef>' ) { $v = 0; } # some weird, old META have bad yml with module => module # so check if value is like a module name and not like a version if ( _is_module_name($v) && ! version::is_lax($v) ) { $new_map->add_minimum($k => 0); $new_map->add_minimum($v => 0); } $new_map->add_string_requirement($k => $v); } return $new_map->as_string_hash; } elsif ( ref $element eq 'ARRAY' ) { my $hashref = { map { $_ => 0 } @$element }; return _version_map($hashref); # clean up any weird stuff } elsif ( ref $element eq '' && length $element ) { return { $element => 0 } } return; } sub _prereqs_from_1 { my (undef, undef, $meta) = @_; my $prereqs = {}; for my $phase ( qw/build configure/ ) { my $key = "${phase}_requires"; $prereqs->{$phase}{requires} = _version_map($meta->{$key}) if $meta->{$key}; } for my $rel ( qw/requires recommends conflicts/ ) { $prereqs->{runtime}{$rel} = _version_map($meta->{$rel}) if $meta->{$rel}; } return $prereqs; } my $prereqs_spec = { configure => \&_prereqs_rel, build => \&_prereqs_rel, test => \&_prereqs_rel, runtime => \&_prereqs_rel, develop => \&_prereqs_rel, ':custom' => \&_prefix_custom, }; my $relation_spec = { requires => \&_version_map, recommends => \&_version_map, suggests => \&_version_map, conflicts => \&_version_map, ':custom' => \&_prefix_custom, }; sub _cleanup_prereqs { my ($prereqs, $key, $meta, $to_version) = @_; return unless $prereqs && ref $prereqs eq 'HASH'; return _convert( $prereqs, $prereqs_spec, $to_version ); } sub _prereqs_rel { my ($relation, $key, $meta, $to_version) = @_; return unless $relation && ref $relation eq 'HASH'; return _convert( $relation, $relation_spec, $to_version ); } BEGIN { my @old_prereqs = qw( requires configure_requires recommends conflicts ); for ( @old_prereqs ) { my $sub = "_get_$_"; my ($phase,$type) = split qr/_/, $_; if ( ! defined $type ) { $type = $phase; $phase = 'runtime'; } no strict 'refs'; *{$sub} = sub { _extract_prereqs($_[2]->{prereqs},$phase,$type) }; } } sub _get_build_requires { my ($data, $key, $meta) = @_; my $test_h = _extract_prereqs($_[2]->{prereqs}, qw(test requires)) || {}; my $build_h = _extract_prereqs($_[2]->{prereqs}, qw(build requires)) || {}; my $test_req = CPAN::Meta::Requirements->from_string_hash($test_h); my $build_req = CPAN::Meta::Requirements->from_string_hash($build_h); $test_req->add_requirements($build_req)->as_string_hash; } sub _extract_prereqs { my ($prereqs, $phase, $type) = @_; return unless ref $prereqs eq 'HASH'; return scalar _version_map($prereqs->{$phase}{$type}); } sub _downgrade_optional_features { my (undef, undef, $meta) = @_; return unless exists $meta->{optional_features}; my $origin = $meta->{optional_features}; my $features = {}; for my $name ( keys %$origin ) { $features->{$name} = { description => $origin->{$name}{description}, requires => _extract_prereqs($origin->{$name}{prereqs},'runtime','requires'), configure_requires => _extract_prereqs($origin->{$name}{prereqs},'runtime','configure_requires'), build_requires => _extract_prereqs($origin->{$name}{prereqs},'runtime','build_requires'), recommends => _extract_prereqs($origin->{$name}{prereqs},'runtime','recommends'), conflicts => _extract_prereqs($origin->{$name}{prereqs},'runtime','conflicts'), }; for my $k (keys %{$features->{$name}} ) { delete $features->{$name}{$k} unless defined $features->{$name}{$k}; } } return $features; } sub _upgrade_optional_features { my (undef, undef, $meta) = @_; return unless exists $meta->{optional_features}; my $origin = $meta->{optional_features}; my $features = {}; for my $name ( keys %$origin ) { $features->{$name} = { description => $origin->{$name}{description}, prereqs => _prereqs_from_1(undef, undef, $origin->{$name}), }; delete $features->{$name}{prereqs}{configure}; } return $features; } my $optional_features_2_spec = { description => \&_keep, prereqs => \&_cleanup_prereqs, ':custom' => \&_prefix_custom, }; sub _feature_2 { my ($element, $key, $meta, $to_version) = @_; return unless $element && ref $element eq 'HASH'; _convert( $element, $optional_features_2_spec, $to_version ); } sub _cleanup_optional_features_2 { my ($element, $key, $meta, $to_version) = @_; return unless $element && ref $element eq 'HASH'; my $new_data = {}; for my $k ( keys %$element ) { $new_data->{$k} = _feature_2( $element->{$k}, $k, $meta, $to_version ); } return unless keys %$new_data; return $new_data; } sub _optional_features_1_4 { my ($element) = @_; return unless $element; $element = _optional_features_as_map($element); for my $name ( keys %$element ) { for my $drop ( qw/requires_packages requires_os excluded_os/ ) { delete $element->{$name}{$drop}; } } return $element; } sub _optional_features_as_map { my ($element) = @_; return unless $element; if ( ref $element eq 'ARRAY' ) { my %map; for my $feature ( @$element ) { my (@parts) = %$feature; $map{$parts[0]} = $parts[1]; } $element = \%map; } return $element; } sub _is_urlish { defined $_[0] && $_[0] =~ m{\A[-+.a-z0-9]+:.+}i } sub _url_or_drop { my ($element) = @_; return $element if _is_urlish($element); return; } sub _url_list { my ($element) = @_; return unless $element; $element = _listify( $element ); $element = [ grep { _is_urlish($_) } @$element ]; return unless @$element; return $element; } sub _author_list { my ($element) = @_; return [ 'unknown' ] unless $element; $element = _listify( $element ); $element = [ map { defined $_ && length $_ ? $_ : 'unknown' } @$element ]; return [ 'unknown' ] unless @$element; return $element; } my $resource2_upgrade = { license => sub { return _is_urlish($_[0]) ? _listify( $_[0] ) : undef }, homepage => \&_url_or_drop, bugtracker => sub { my ($item) = @_; return unless $item; if ( $item =~ m{^mailto:(.*)$} ) { return { mailto => $1 } } elsif( _is_urlish($item) ) { return { web => $item } } else { return } }, repository => sub { return _is_urlish($_[0]) ? { url => $_[0] } : undef }, ':custom' => \&_prefix_custom, }; sub _upgrade_resources_2 { my (undef, undef, $meta, $version) = @_; return unless exists $meta->{resources}; return _convert($meta->{resources}, $resource2_upgrade); } my $bugtracker2_spec = { web => \&_url_or_drop, mailto => \&_keep, ':custom' => \&_prefix_custom, }; sub _repo_type { my ($element, $key, $meta, $to_version) = @_; return $element if defined $element; return unless exists $meta->{url}; my $repo_url = $meta->{url}; for my $type ( qw/git svn/ ) { return $type if $repo_url =~ m{\A$type}; } return; } my $repository2_spec = { web => \&_url_or_drop, url => \&_url_or_drop, type => \&_repo_type, ':custom' => \&_prefix_custom, }; my $resources2_cleanup = { license => \&_url_list, homepage => \&_url_or_drop, bugtracker => sub { ref $_[0] ? _convert( $_[0], $bugtracker2_spec ) : undef }, repository => sub { my $data = shift; ref $data ? _convert( $data, $repository2_spec ) : undef }, ':custom' => \&_prefix_custom, }; sub _cleanup_resources_2 { my ($resources, $key, $meta, $to_version) = @_; return unless $resources && ref $resources eq 'HASH'; return _convert($resources, $resources2_cleanup, $to_version); } my $resource1_spec = { license => \&_url_or_drop, homepage => \&_url_or_drop, bugtracker => \&_url_or_drop, repository => \&_url_or_drop, ':custom' => \&_keep, }; sub _resources_1_3 { my (undef, undef, $meta, $version) = @_; return unless exists $meta->{resources}; return _convert($meta->{resources}, $resource1_spec); } *_resources_1_4 = *_resources_1_3; sub _resources_1_2 { my (undef, undef, $meta) = @_; my $resources = $meta->{resources} || {}; if ( $meta->{license_url} && ! $resources->{license} ) { $resources->{license} = $meta->{license_url} if _is_urlish($meta->{license_url}); } return unless keys %$resources; return _convert($resources, $resource1_spec); } my $resource_downgrade_spec = { license => sub { return ref $_[0] ? $_[0]->[0] : $_[0] }, homepage => \&_url_or_drop, bugtracker => sub { return $_[0]->{web} }, repository => sub { return $_[0]->{url} || $_[0]->{web} }, ':custom' => \&_no_prefix_ucfirst_custom, }; sub _downgrade_resources { my (undef, undef, $meta, $version) = @_; return unless exists $meta->{resources}; return _convert($meta->{resources}, $resource_downgrade_spec); } sub _release_status { my ($element, undef, $meta) = @_; return $element if $element && $element =~ m{\A(?:stable|testing|unstable)\z}; return _release_status_from_version(undef, undef, $meta); } sub _release_status_from_version { my (undef, undef, $meta) = @_; my $version = $meta->{version} || ''; return ( $version =~ /_/ ) ? 'testing' : 'stable'; } my $provides_spec = { file => \&_keep, version => \&_keep, }; my $provides_spec_2 = { file => \&_keep, version => \&_keep, ':custom' => \&_prefix_custom, }; sub _provides { my ($element, $key, $meta, $to_version) = @_; return unless defined $element && ref $element eq 'HASH'; my $spec = $to_version == 2 ? $provides_spec_2 : $provides_spec; my $new_data = {}; for my $k ( keys %$element ) { $new_data->{$k} = _convert($element->{$k}, $spec, $to_version); $new_data->{$k}{version} = _clean_version($element->{$k}{version}) if exists $element->{$k}{version}; } return $new_data; } sub _convert { my ($data, $spec, $to_version, $is_fragment) = @_; my $new_data = {}; for my $key ( keys %$spec ) { next if $key eq ':custom' || $key eq ':drop'; next unless my $fcn = $spec->{$key}; if ( $is_fragment && $key eq 'generated_by' ) { $fcn = \&_keep; } die "spec for '$key' is not a coderef" unless ref $fcn && ref $fcn eq 'CODE'; my $new_value = $fcn->($data->{$key}, $key, $data, $to_version); $new_data->{$key} = $new_value if defined $new_value; } my $drop_list = $spec->{':drop'}; my $customizer = $spec->{':custom'} || \&_keep; for my $key ( keys %$data ) { next if $drop_list && grep { $key eq $_ } @$drop_list; next if exists $spec->{$key}; # we handled it $new_data->{ $customizer->($key) } = $data->{$key}; } return $new_data; } #--------------------------------------------------------------------------# # define converters for each conversion #--------------------------------------------------------------------------# # each converts from prior version # special ":custom" field is used for keys not recognized in spec my %up_convert = ( '2-from-1.4' => { # PRIOR MANDATORY 'abstract' => \&_keep_or_unknown, 'author' => \&_author_list, 'generated_by' => \&_generated_by, 'license' => \&_license_2, 'meta-spec' => \&_change_meta_spec, 'name' => \&_keep, 'version' => \&_keep, # CHANGED TO MANDATORY 'dynamic_config' => \&_keep_or_one, # ADDED MANDATORY 'release_status' => \&_release_status, # PRIOR OPTIONAL 'keywords' => \&_keep, 'no_index' => \&_no_index_directory, 'optional_features' => \&_upgrade_optional_features, 'provides' => \&_provides, 'resources' => \&_upgrade_resources_2, # ADDED OPTIONAL 'description' => \&_keep, 'prereqs' => \&_prereqs_from_1, # drop these deprecated fields, but only after we convert ':drop' => [ qw( build_requires configure_requires conflicts distribution_type license_url private recommends requires ) ], # other random keys need x_ prefixing ':custom' => \&_prefix_custom, }, '1.4-from-1.3' => { # PRIOR MANDATORY 'abstract' => \&_keep_or_unknown, 'author' => \&_author_list, 'generated_by' => \&_generated_by, 'license' => \&_license_1, 'meta-spec' => \&_change_meta_spec, 'name' => \&_keep, 'version' => \&_keep, # PRIOR OPTIONAL 'build_requires' => \&_version_map, 'conflicts' => \&_version_map, 'distribution_type' => \&_keep, 'dynamic_config' => \&_keep_or_one, 'keywords' => \&_keep, 'no_index' => \&_no_index_directory, 'optional_features' => \&_optional_features_1_4, 'provides' => \&_provides, 'recommends' => \&_version_map, 'requires' => \&_version_map, 'resources' => \&_resources_1_4, # ADDED OPTIONAL 'configure_requires' => \&_keep, # drop these deprecated fields, but only after we convert ':drop' => [ qw( license_url private )], # other random keys are OK if already valid ':custom' => \&_keep }, '1.3-from-1.2' => { # PRIOR MANDATORY 'abstract' => \&_keep_or_unknown, 'author' => \&_author_list, 'generated_by' => \&_generated_by, 'license' => \&_license_1, 'meta-spec' => \&_change_meta_spec, 'name' => \&_keep, 'version' => \&_keep, # PRIOR OPTIONAL 'build_requires' => \&_version_map, 'conflicts' => \&_version_map, 'distribution_type' => \&_keep, 'dynamic_config' => \&_keep_or_one, 'keywords' => \&_keep, 'no_index' => \&_no_index_directory, 'optional_features' => \&_optional_features_as_map, 'provides' => \&_provides, 'recommends' => \&_version_map, 'requires' => \&_version_map, 'resources' => \&_resources_1_3, # drop these deprecated fields, but only after we convert ':drop' => [ qw( license_url private )], # other random keys are OK if already valid ':custom' => \&_keep }, '1.2-from-1.1' => { # PRIOR MANDATORY 'version' => \&_keep, # CHANGED TO MANDATORY 'license' => \&_license_1, 'name' => \&_keep, 'generated_by' => \&_generated_by, # ADDED MANDATORY 'abstract' => \&_keep_or_unknown, 'author' => \&_author_list, 'meta-spec' => \&_change_meta_spec, # PRIOR OPTIONAL 'build_requires' => \&_version_map, 'conflicts' => \&_version_map, 'distribution_type' => \&_keep, 'dynamic_config' => \&_keep_or_one, 'recommends' => \&_version_map, 'requires' => \&_version_map, # ADDED OPTIONAL 'keywords' => \&_keep, 'no_index' => \&_no_index_1_2, 'optional_features' => \&_optional_features_as_map, 'provides' => \&_provides, 'resources' => \&_resources_1_2, # drop these deprecated fields, but only after we convert ':drop' => [ qw( license_url private )], # other random keys are OK if already valid ':custom' => \&_keep }, '1.1-from-1.0' => { # CHANGED TO MANDATORY 'version' => \&_keep, # IMPLIED MANDATORY 'name' => \&_keep, # PRIOR OPTIONAL 'build_requires' => \&_version_map, 'conflicts' => \&_version_map, 'distribution_type' => \&_keep, 'dynamic_config' => \&_keep_or_one, 'generated_by' => \&_generated_by, 'license' => \&_license_1, 'recommends' => \&_version_map, 'requires' => \&_version_map, # ADDED OPTIONAL 'license_url' => \&_url_or_drop, 'private' => \&_keep, # other random keys are OK if already valid ':custom' => \&_keep }, ); my %down_convert = ( '1.4-from-2' => { # MANDATORY 'abstract' => \&_keep_or_unknown, 'author' => \&_author_list, 'generated_by' => \&_generated_by, 'license' => \&_downgrade_license, 'meta-spec' => \&_change_meta_spec, 'name' => \&_keep, 'version' => \&_keep, # OPTIONAL 'build_requires' => \&_get_build_requires, 'configure_requires' => \&_get_configure_requires, 'conflicts' => \&_get_conflicts, 'distribution_type' => \&_keep, 'dynamic_config' => \&_keep_or_one, 'keywords' => \&_keep, 'no_index' => \&_no_index_directory, 'optional_features' => \&_downgrade_optional_features, 'provides' => \&_provides, 'recommends' => \&_get_recommends, 'requires' => \&_get_requires, 'resources' => \&_downgrade_resources, # drop these unsupported fields (after conversion) ':drop' => [ qw( description prereqs release_status )], # custom keys will be left unchanged ':custom' => \&_keep }, '1.3-from-1.4' => { # MANDATORY 'abstract' => \&_keep_or_unknown, 'author' => \&_author_list, 'generated_by' => \&_generated_by, 'license' => \&_license_1, 'meta-spec' => \&_change_meta_spec, 'name' => \&_keep, 'version' => \&_keep, # OPTIONAL 'build_requires' => \&_version_map, 'conflicts' => \&_version_map, 'distribution_type' => \&_keep, 'dynamic_config' => \&_keep_or_one, 'keywords' => \&_keep, 'no_index' => \&_no_index_directory, 'optional_features' => \&_optional_features_as_map, 'provides' => \&_provides, 'recommends' => \&_version_map, 'requires' => \&_version_map, 'resources' => \&_resources_1_3, # drop these unsupported fields, but only after we convert ':drop' => [ qw( configure_requires )], # other random keys are OK if already valid ':custom' => \&_keep, }, '1.2-from-1.3' => { # MANDATORY 'abstract' => \&_keep_or_unknown, 'author' => \&_author_list, 'generated_by' => \&_generated_by, 'license' => \&_license_1, 'meta-spec' => \&_change_meta_spec, 'name' => \&_keep, 'version' => \&_keep, # OPTIONAL 'build_requires' => \&_version_map, 'conflicts' => \&_version_map, 'distribution_type' => \&_keep, 'dynamic_config' => \&_keep_or_one, 'keywords' => \&_keep, 'no_index' => \&_no_index_1_2, 'optional_features' => \&_optional_features_as_map, 'provides' => \&_provides, 'recommends' => \&_version_map, 'requires' => \&_version_map, 'resources' => \&_resources_1_3, # other random keys are OK if already valid ':custom' => \&_keep, }, '1.1-from-1.2' => { # MANDATORY 'version' => \&_keep, # IMPLIED MANDATORY 'name' => \&_keep, 'meta-spec' => \&_change_meta_spec, # OPTIONAL 'build_requires' => \&_version_map, 'conflicts' => \&_version_map, 'distribution_type' => \&_keep, 'dynamic_config' => \&_keep_or_one, 'generated_by' => \&_generated_by, 'license' => \&_license_1, 'private' => \&_keep, 'recommends' => \&_version_map, 'requires' => \&_version_map, # drop unsupported fields ':drop' => [ qw( abstract author provides no_index keywords resources )], # other random keys are OK if already valid ':custom' => \&_keep, }, '1.0-from-1.1' => { # IMPLIED MANDATORY 'name' => \&_keep, 'meta-spec' => \&_change_meta_spec, 'version' => \&_keep, # PRIOR OPTIONAL 'build_requires' => \&_version_map, 'conflicts' => \&_version_map, 'distribution_type' => \&_keep, 'dynamic_config' => \&_keep_or_one, 'generated_by' => \&_generated_by, 'license' => \&_license_1, 'recommends' => \&_version_map, 'requires' => \&_version_map, # other random keys are OK if already valid ':custom' => \&_keep, }, ); my %cleanup = ( '2' => { # PRIOR MANDATORY 'abstract' => \&_keep_or_unknown, 'author' => \&_author_list, 'generated_by' => \&_generated_by, 'license' => \&_license_2, 'meta-spec' => \&_change_meta_spec, 'name' => \&_keep, 'version' => \&_keep, # CHANGED TO MANDATORY 'dynamic_config' => \&_keep_or_one, # ADDED MANDATORY 'release_status' => \&_release_status, # PRIOR OPTIONAL 'keywords' => \&_keep, 'no_index' => \&_no_index_directory, 'optional_features' => \&_cleanup_optional_features_2, 'provides' => \&_provides, 'resources' => \&_cleanup_resources_2, # ADDED OPTIONAL 'description' => \&_keep, 'prereqs' => \&_cleanup_prereqs, # drop these deprecated fields, but only after we convert ':drop' => [ qw( build_requires configure_requires conflicts distribution_type license_url private recommends requires ) ], # other random keys need x_ prefixing ':custom' => \&_prefix_custom, }, '1.4' => { # PRIOR MANDATORY 'abstract' => \&_keep_or_unknown, 'author' => \&_author_list, 'generated_by' => \&_generated_by, 'license' => \&_license_1, 'meta-spec' => \&_change_meta_spec, 'name' => \&_keep, 'version' => \&_keep, # PRIOR OPTIONAL 'build_requires' => \&_version_map, 'conflicts' => \&_version_map, 'distribution_type' => \&_keep, 'dynamic_config' => \&_keep_or_one, 'keywords' => \&_keep, 'no_index' => \&_no_index_directory, 'optional_features' => \&_optional_features_1_4, 'provides' => \&_provides, 'recommends' => \&_version_map, 'requires' => \&_version_map, 'resources' => \&_resources_1_4, # ADDED OPTIONAL 'configure_requires' => \&_keep, # other random keys are OK if already valid ':custom' => \&_keep }, '1.3' => { # PRIOR MANDATORY 'abstract' => \&_keep_or_unknown, 'author' => \&_author_list, 'generated_by' => \&_generated_by, 'license' => \&_license_1, 'meta-spec' => \&_change_meta_spec, 'name' => \&_keep, 'version' => \&_keep, # PRIOR OPTIONAL 'build_requires' => \&_version_map, 'conflicts' => \&_version_map, 'distribution_type' => \&_keep, 'dynamic_config' => \&_keep_or_one, 'keywords' => \&_keep, 'no_index' => \&_no_index_directory, 'optional_features' => \&_optional_features_as_map, 'provides' => \&_provides, 'recommends' => \&_version_map, 'requires' => \&_version_map, 'resources' => \&_resources_1_3, # other random keys are OK if already valid ':custom' => \&_keep }, '1.2' => { # PRIOR MANDATORY 'version' => \&_keep, # CHANGED TO MANDATORY 'license' => \&_license_1, 'name' => \&_keep, 'generated_by' => \&_generated_by, # ADDED MANDATORY 'abstract' => \&_keep_or_unknown, 'author' => \&_author_list, 'meta-spec' => \&_change_meta_spec, # PRIOR OPTIONAL 'build_requires' => \&_version_map, 'conflicts' => \&_version_map, 'distribution_type' => \&_keep, 'dynamic_config' => \&_keep_or_one, 'recommends' => \&_version_map, 'requires' => \&_version_map, # ADDED OPTIONAL 'keywords' => \&_keep, 'no_index' => \&_no_index_1_2, 'optional_features' => \&_optional_features_as_map, 'provides' => \&_provides, 'resources' => \&_resources_1_2, # other random keys are OK if already valid ':custom' => \&_keep }, '1.1' => { # CHANGED TO MANDATORY 'version' => \&_keep, # IMPLIED MANDATORY 'name' => \&_keep, 'meta-spec' => \&_change_meta_spec, # PRIOR OPTIONAL 'build_requires' => \&_version_map, 'conflicts' => \&_version_map, 'distribution_type' => \&_keep, 'dynamic_config' => \&_keep_or_one, 'generated_by' => \&_generated_by, 'license' => \&_license_1, 'recommends' => \&_version_map, 'requires' => \&_version_map, # ADDED OPTIONAL 'license_url' => \&_url_or_drop, 'private' => \&_keep, # other random keys are OK if already valid ':custom' => \&_keep }, '1.0' => { # IMPLIED MANDATORY 'name' => \&_keep, 'meta-spec' => \&_change_meta_spec, 'version' => \&_keep, # IMPLIED OPTIONAL 'build_requires' => \&_version_map, 'conflicts' => \&_version_map, 'distribution_type' => \&_keep, 'dynamic_config' => \&_keep_or_one, 'generated_by' => \&_generated_by, 'license' => \&_license_1, 'recommends' => \&_version_map, 'requires' => \&_version_map, # other random keys are OK if already valid ':custom' => \&_keep, }, ); # for a given field in a spec version, what fields will it feed # into in the *latest* spec (i.e. v2); meta-spec omitted because # we always expect a meta-spec to be generated my %fragments_generate = ( '2' => { 'abstract' => 'abstract', 'author' => 'author', 'generated_by' => 'generated_by', 'license' => 'license', 'name' => 'name', 'version' => 'version', 'dynamic_config' => 'dynamic_config', 'release_status' => 'release_status', 'keywords' => 'keywords', 'no_index' => 'no_index', 'optional_features' => 'optional_features', 'provides' => 'provides', 'resources' => 'resources', 'description' => 'description', 'prereqs' => 'prereqs', }, '1.4' => { 'abstract' => 'abstract', 'author' => 'author', 'generated_by' => 'generated_by', 'license' => 'license', 'name' => 'name', 'version' => 'version', 'build_requires' => 'prereqs', 'conflicts' => 'prereqs', 'distribution_type' => 'distribution_type', 'dynamic_config' => 'dynamic_config', 'keywords' => 'keywords', 'no_index' => 'no_index', 'optional_features' => 'optional_features', 'provides' => 'provides', 'recommends' => 'prereqs', 'requires' => 'prereqs', 'resources' => 'resources', 'configure_requires' => 'prereqs', }, ); # this is not quite true but will work well enough # as 1.4 is a superset of earlier ones $fragments_generate{$_} = $fragments_generate{'1.4'} for qw/1.3 1.2 1.1 1.0/; #--------------------------------------------------------------------------# # Code #--------------------------------------------------------------------------# #pod =method new #pod #pod my $cmc = CPAN::Meta::Converter->new( $struct ); #pod #pod The constructor should be passed a valid metadata structure but invalid #pod structures are accepted. If no meta-spec version is provided, version 1.0 will #pod be assumed. #pod #pod Optionally, you can provide a C<default_version> argument after C<$struct>: #pod #pod my $cmc = CPAN::Meta::Converter->new( $struct, default_version => "1.4" ); #pod #pod This is only needed when converting a metadata fragment that does not include a #pod C<meta-spec> field. #pod #pod =cut sub new { my ($class,$data,%args) = @_; # create an attributes hash my $self = { 'data' => $data, 'spec' => _extract_spec_version($data, $args{default_version}), }; # create the object return bless $self, $class; } sub _extract_spec_version { my ($data, $default) = @_; my $spec = $data->{'meta-spec'}; # is meta-spec there and valid? return( $default || "1.0" ) unless defined $spec && ref $spec eq 'HASH'; # before meta-spec? # does the version key look like a valid version? my $v = $spec->{version}; if ( defined $v && $v =~ /^\d+(?:\.\d+)?$/ ) { return $v if defined $v && grep { $v eq $_ } keys %known_specs; # known spec return $v+0 if defined $v && grep { $v == $_ } keys %known_specs; # 2.0 => 2 } # otherwise, use heuristics: look for 1.x vs 2.0 fields return "2" if exists $data->{prereqs}; return "1.4" if exists $data->{configure_requires}; return( $default || "1.2" ); # when meta-spec was first defined } #pod =method convert #pod #pod my $new_struct = $cmc->convert( version => "2" ); #pod #pod Returns a new hash reference with the metadata converted to a different form. #pod C<convert> will die if any conversion/standardization still results in an #pod invalid structure. #pod #pod Valid parameters include: #pod #pod =over #pod #pod =item * #pod #pod C<version> -- Indicates the desired specification version (e.g. "1.0", "1.1" ... "1.4", "2"). #pod Defaults to the latest version of the CPAN Meta Spec. #pod #pod =back #pod #pod Conversion proceeds through each version in turn. For example, a version 1.2 #pod structure might be converted to 1.3 then 1.4 then finally to version 2. The #pod conversion process attempts to clean-up simple errors and standardize data. #pod For example, if C<author> is given as a scalar, it will converted to an array #pod reference containing the item. (Converting a structure to its own version will #pod also clean-up and standardize.) #pod #pod When data are cleaned and standardized, missing or invalid fields will be #pod replaced with sensible defaults when possible. This may be lossy or imprecise. #pod For example, some badly structured META.yml files on CPAN have prerequisite #pod modules listed as both keys and values: #pod #pod requires => { 'Foo::Bar' => 'Bam::Baz' } #pod #pod These would be split and each converted to a prerequisite with a minimum #pod version of zero. #pod #pod When some mandatory fields are missing or invalid, the conversion will attempt #pod to provide a sensible default or will fill them with a value of 'unknown'. For #pod example a missing or unrecognized C<license> field will result in a C<license> #pod field of 'unknown'. Fields that may get an 'unknown' include: #pod #pod =for :list #pod * abstract #pod * author #pod * license #pod #pod =cut sub convert { my ($self, %args) = @_; my $args = { %args }; my $new_version = $args->{version} || $HIGHEST; my $is_fragment = $args->{is_fragment}; my ($old_version) = $self->{spec}; my $converted = _dclone($self->{data}); if ( $old_version == $new_version ) { $converted = _convert( $converted, $cleanup{$old_version}, $old_version, $is_fragment ); unless ( $args->{is_fragment} ) { my $cmv = CPAN::Meta::Validator->new( $converted ); unless ( $cmv->is_valid ) { my $errs = join("\n", $cmv->errors); die "Failed to clean-up $old_version metadata. Errors:\n$errs\n"; } } return $converted; } elsif ( $old_version > $new_version ) { my @vers = sort { $b <=> $a } keys %known_specs; for my $i ( 0 .. $#vers-1 ) { next if $vers[$i] > $old_version; last if $vers[$i+1] < $new_version; my $spec_string = "$vers[$i+1]-from-$vers[$i]"; $converted = _convert( $converted, $down_convert{$spec_string}, $vers[$i+1], $is_fragment ); unless ( $args->{is_fragment} ) { my $cmv = CPAN::Meta::Validator->new( $converted ); unless ( $cmv->is_valid ) { my $errs = join("\n", $cmv->errors); die "Failed to downconvert metadata to $vers[$i+1]. Errors:\n$errs\n"; } } } return $converted; } else { my @vers = sort { $a <=> $b } keys %known_specs; for my $i ( 0 .. $#vers-1 ) { next if $vers[$i] < $old_version; last if $vers[$i+1] > $new_version; my $spec_string = "$vers[$i+1]-from-$vers[$i]"; $converted = _convert( $converted, $up_convert{$spec_string}, $vers[$i+1], $is_fragment ); unless ( $args->{is_fragment} ) { my $cmv = CPAN::Meta::Validator->new( $converted ); unless ( $cmv->is_valid ) { my $errs = join("\n", $cmv->errors); die "Failed to upconvert metadata to $vers[$i+1]. Errors:\n$errs\n"; } } } return $converted; } } #pod =method upgrade_fragment #pod #pod my $new_struct = $cmc->upgrade_fragment; #pod #pod Returns a new hash reference with the metadata converted to the latest version #pod of the CPAN Meta Spec. No validation is done on the result -- you must #pod validate after merging fragments into a complete metadata document. #pod #pod Available since version 2.141170. #pod #pod =cut sub upgrade_fragment { my ($self) = @_; my ($old_version) = $self->{spec}; my %expected = map {; $_ => 1 } grep { defined } map { $fragments_generate{$old_version}{$_} } keys %{ $self->{data} }; my $converted = $self->convert( version => $HIGHEST, is_fragment => 1 ); for my $key ( keys %$converted ) { next if $key =~ /^x_/i || $key eq 'meta-spec'; delete $converted->{$key} unless $expected{$key}; } return $converted; } 1; # ABSTRACT: Convert CPAN distribution metadata structures =pod =encoding UTF-8 =head1 NAME CPAN::Meta::Converter - Convert CPAN distribution metadata structures =head1 VERSION version 2.150010 =head1 SYNOPSIS my $struct = decode_json_file('META.json'); my $cmc = CPAN::Meta::Converter->new( $struct ); my $new_struct = $cmc->convert( version => "2" ); =head1 DESCRIPTION This module converts CPAN Meta structures from one form to another. The primary use is to convert older structures to the most modern version of the specification, but other transformations may be implemented in the future as needed. (E.g. stripping all custom fields or stripping all optional fields.) =head1 METHODS =head2 new my $cmc = CPAN::Meta::Converter->new( $struct ); The constructor should be passed a valid metadata structure but invalid structures are accepted. If no meta-spec version is provided, version 1.0 will be assumed. Optionally, you can provide a C<default_version> argument after C<$struct>: my $cmc = CPAN::Meta::Converter->new( $struct, default_version => "1.4" ); This is only needed when converting a metadata fragment that does not include a C<meta-spec> field. =head2 convert my $new_struct = $cmc->convert( version => "2" ); Returns a new hash reference with the metadata converted to a different form. C<convert> will die if any conversion/standardization still results in an invalid structure. Valid parameters include: =over =item * C<version> -- Indicates the desired specification version (e.g. "1.0", "1.1" ... "1.4", "2"). Defaults to the latest version of the CPAN Meta Spec. =back Conversion proceeds through each version in turn. For example, a version 1.2 structure might be converted to 1.3 then 1.4 then finally to version 2. The conversion process attempts to clean-up simple errors and standardize data. For example, if C<author> is given as a scalar, it will converted to an array reference containing the item. (Converting a structure to its own version will also clean-up and standardize.) When data are cleaned and standardized, missing or invalid fields will be replaced with sensible defaults when possible. This may be lossy or imprecise. For example, some badly structured META.yml files on CPAN have prerequisite modules listed as both keys and values: requires => { 'Foo::Bar' => 'Bam::Baz' } These would be split and each converted to a prerequisite with a minimum version of zero. When some mandatory fields are missing or invalid, the conversion will attempt to provide a sensible default or will fill them with a value of 'unknown'. For example a missing or unrecognized C<license> field will result in a C<license> field of 'unknown'. Fields that may get an 'unknown' include: =over 4 =item * abstract =item * author =item * license =back =head2 upgrade_fragment my $new_struct = $cmc->upgrade_fragment; Returns a new hash reference with the metadata converted to the latest version of the CPAN Meta Spec. No validation is done on the result -- you must validate after merging fragments into a complete metadata document. Available since version 2.141170. =head1 BUGS Please report any bugs or feature using the CPAN Request Tracker. Bugs can be submitted through the web interface at L<http://rt.cpan.org/Dist/Display.html?Queue=CPAN-Meta> When submitting a bug or request, please include a test-file or a patch to an existing test-file that illustrates the bug or desired feature. =head1 AUTHORS =over 4 =item * David Golden <dagolden@cpan.org> =item * Ricardo Signes <rjbs@cpan.org> =item * Adam Kennedy <adamk@cpan.org> =back =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2010 by David Golden, Ricardo Signes, Adam Kennedy and Contributors. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut __END__ # vim: ts=2 sts=2 sw=2 et : PK ! V�}�� �� 5.34.0/CPAN/Meta/Spec.pmnu �[��� # XXX RULES FOR PATCHING THIS FILE XXX # Patches that fix typos or formatting are acceptable. Patches # that change semantics are not acceptable without prior approval # by David Golden or Ricardo Signes. use 5.006; use strict; use warnings; package CPAN::Meta::Spec; our $VERSION = '2.150010'; 1; # ABSTRACT: specification for CPAN distribution metadata # vi:tw=72 __END__ =pod =encoding UTF-8 =head1 NAME CPAN::Meta::Spec - specification for CPAN distribution metadata =head1 VERSION version 2.150010 =head1 SYNOPSIS my $distmeta = { name => 'Module-Build', abstract => 'Build and install Perl modules', description => "Module::Build is a system for " . "building, testing, and installing Perl modules. " . "It is meant to ... blah blah blah ...", version => '0.36', release_status => 'stable', author => [ 'Ken Williams <kwilliams@cpan.org>', 'Module-Build List <module-build@perl.org>', # additional contact ], license => [ 'perl_5' ], prereqs => { runtime => { requires => { 'perl' => '5.006', 'ExtUtils::Install' => '0', 'File::Basename' => '0', 'File::Compare' => '0', 'IO::File' => '0', }, recommends => { 'Archive::Tar' => '1.00', 'ExtUtils::Install' => '0.3', 'ExtUtils::ParseXS' => '2.02', }, }, build => { requires => { 'Test::More' => '0', }, } }, resources => { license => ['http://dev.perl.org/licenses/'], }, optional_features => { domination => { description => 'Take over the world', prereqs => { develop => { requires => { 'Genius::Evil' => '1.234' } }, runtime => { requires => { 'Machine::Weather' => '2.0' } }, }, }, }, dynamic_config => 1, keywords => [ qw/ toolchain cpan dual-life / ], 'meta-spec' => { version => '2', url => 'https://metacpan.org/pod/CPAN::Meta::Spec', }, generated_by => 'Module::Build version 0.36', }; =head1 DESCRIPTION This document describes version 2 of the CPAN distribution metadata specification, also known as the "CPAN Meta Spec". Revisions of this specification for typo corrections and prose clarifications may be issued as CPAN::Meta::Spec 2.I<x>. These revisions will never change semantics or add or remove specified behavior. Distribution metadata describe important properties of Perl distributions. Distribution building tools like Module::Build, Module::Install, ExtUtils::MakeMaker or Dist::Zilla should create a metadata file in accordance with this specification and include it with the distribution for use by automated tools that index, examine, package or install Perl distributions. =head1 TERMINOLOGY =over 4 =item distribution This is the primary object described by the metadata. In the context of this document it usually refers to a collection of modules, scripts, and/or documents that are distributed together for other developers to use. Examples of distributions are C<Class-Container>, C<libwww-perl>, or C<DBI>. =item module This refers to a reusable library of code contained in a single file. Modules usually contain one or more packages and are often referred to by the name of a primary package that can be mapped to the file name. For example, one might refer to C<File::Spec> instead of F<File/Spec.pm> =item package This refers to a namespace declared with the Perl C<package> statement. In Perl, packages often have a version number property given by the C<$VERSION> variable in the namespace. =item consumer This refers to code that reads a metadata file, deserializes it into a data structure in memory, or interprets a data structure of metadata elements. =item producer This refers to code that constructs a metadata data structure, serializes into a bytestream and/or writes it to disk. =item must, should, may, etc. These terms are interpreted as described in IETF RFC 2119. =back =head1 DATA TYPES Fields in the L</STRUCTURE> section describe data elements, each of which has an associated data type as described herein. There are four primitive types: Boolean, String, List and Map. Other types are subtypes of primitives and define compound data structures or define constraints on the values of a data element. =head2 Boolean A I<Boolean> is used to provide a true or false value. It B<must> be represented as a defined value that is either "1" or "0" or stringifies to those values. =head2 String A I<String> is data element containing a non-zero length sequence of Unicode characters, such as an ordinary Perl scalar that is not a reference. =head2 List A I<List> is an ordered collection of zero or more data elements. Elements of a List may be of mixed types. Producers B<must> represent List elements using a data structure which unambiguously indicates that multiple values are possible, such as a reference to a Perl array (an "arrayref"). Consumers expecting a List B<must> consider a String as equivalent to a List of length 1. =head2 Map A I<Map> is an unordered collection of zero or more data elements ("values"), indexed by associated String elements ("keys"). The Map's value elements may be of mixed types. =head2 License String A I<License String> is a subtype of String with a restricted set of values. Valid values are described in detail in the description of the L</license> field. =head2 URL I<URL> is a subtype of String containing a Uniform Resource Locator or Identifier. [ This type is called URL and not URI for historical reasons. ] =head2 Version A I<Version> is a subtype of String containing a value that describes the version number of packages or distributions. Restrictions on format are described in detail in the L</Version Formats> section. =head2 Version Range The I<Version Range> type is a subtype of String. It describes a range of Versions that may be present or installed to fulfill prerequisites. It is specified in detail in the L</Version Ranges> section. =head1 STRUCTURE The metadata structure is a data element of type Map. This section describes valid keys within the Map. Any keys not described in this specification document (whether top-level or within compound data structures described herein) are considered I<custom keys> and B<must> begin with an "x" or "X" and be followed by an underscore; i.e. they must match the pattern: C<< qr{\Ax_}i >>. If a custom key refers to a compound data structure, subkeys within it do not need an "x_" or "X_" prefix. Consumers of metadata may ignore any or all custom keys. All other keys not described herein are invalid and should be ignored by consumers. Producers must not generate or output invalid keys. For each key, an example is provided followed by a description. The description begins with the version of spec in which the key was added or in which the definition was modified, whether the key is I<required> or I<optional> and the data type of the corresponding data element. These items are in parentheses, brackets and braces, respectively. If a data type is a Map or Map subtype, valid subkeys will be described as well. Some fields are marked I<Deprecated>. These are shown for historical context and must not be produced in or consumed from any metadata structure of version 2 or higher. =head2 REQUIRED FIELDS =head3 abstract Example: abstract => 'Build and install Perl modules' (Spec 1.2) [required] {String} This is a short description of the purpose of the distribution. =head3 author Example: author => [ 'Ken Williams <kwilliams@cpan.org>' ] (Spec 1.2) [required] {List of one or more Strings} This List indicates the person(s) to contact concerning the distribution. The preferred form of the contact string is: contact-name <email-address> This field provides a general contact list independent of other structured fields provided within the L</resources> field, such as C<bugtracker>. The addressee(s) can be contacted for any purpose including but not limited to (security) problems with the distribution, questions about the distribution or bugs in the distribution. A distribution's original author is usually the contact listed within this field. Co-maintainers, successor maintainers or mailing lists devoted to the distribution may also be listed in addition to or instead of the original author. =head3 dynamic_config Example: dynamic_config => 1 (Spec 2) [required] {Boolean} A boolean flag indicating whether a F<Build.PL> or F<Makefile.PL> (or similar) must be executed to determine prerequisites. This field should be set to a true value if the distribution performs some dynamic configuration (asking questions, sensing the environment, etc.) as part of its configuration. This field should be set to a false value to indicate that prerequisites included in metadata may be considered final and valid for static analysis. Note: when this field is true, post-configuration prerequisites are not guaranteed to bear any relation whatsoever to those stated in the metadata, and relying on them doing so is an error. See also L</Prerequisites for dynamically configured distributions> in the implementors' notes. This field explicitly B<does not> indicate whether installation may be safely performed without using a Makefile or Build file, as there may be special files to install or custom installation targets (e.g. for dual-life modules that exist on CPAN as well as in the Perl core). This field only defines whether or not prerequisites are exactly as given in the metadata. =head3 generated_by Example: generated_by => 'Module::Build version 0.36' (Spec 1.0) [required] {String} This field indicates the tool that was used to create this metadata. There are no defined semantics for this field, but it is traditional to use a string in the form "Generating::Package version 1.23" or the author's name, if the file was generated by hand. =head3 license Example: license => [ 'perl_5' ] license => [ 'apache_2_0', 'mozilla_1_0' ] (Spec 2) [required] {List of one or more License Strings} One or more licenses that apply to some or all of the files in the distribution. If multiple licenses are listed, the distribution documentation should be consulted to clarify the interpretation of multiple licenses. The following list of license strings are valid: string description ------------- ----------------------------------------------- agpl_3 GNU Affero General Public License, Version 3 apache_1_1 Apache Software License, Version 1.1 apache_2_0 Apache License, Version 2.0 artistic_1 Artistic License, (Version 1) artistic_2 Artistic License, Version 2.0 bsd BSD License (three-clause) freebsd FreeBSD License (two-clause) gfdl_1_2 GNU Free Documentation License, Version 1.2 gfdl_1_3 GNU Free Documentation License, Version 1.3 gpl_1 GNU General Public License, Version 1 gpl_2 GNU General Public License, Version 2 gpl_3 GNU General Public License, Version 3 lgpl_2_1 GNU Lesser General Public License, Version 2.1 lgpl_3_0 GNU Lesser General Public License, Version 3.0 mit MIT (aka X11) License mozilla_1_0 Mozilla Public License, Version 1.0 mozilla_1_1 Mozilla Public License, Version 1.1 openssl OpenSSL License perl_5 The Perl 5 License (Artistic 1 & GPL 1 or later) qpl_1_0 Q Public License, Version 1.0 ssleay Original SSLeay License sun Sun Internet Standards Source License (SISSL) zlib zlib License The following license strings are also valid and indicate other licensing not described above: string description ------------- ----------------------------------------------- open_source Other Open Source Initiative (OSI) approved license restricted Requires special permission from copyright holder unrestricted Not an OSI approved license, but not restricted unknown License not provided in metadata All other strings are invalid in the license field. =head3 meta-spec Example: 'meta-spec' => { version => '2', url => 'http://search.cpan.org/perldoc?CPAN::Meta::Spec', } (Spec 1.2) [required] {Map} This field indicates the version of the CPAN Meta Spec that should be used to interpret the metadata. Consumers must check this key as soon as possible and abort further metadata processing if the meta-spec version is not supported by the consumer. The following keys are valid, but only C<version> is required. =over =item version This subkey gives the integer I<Version> of the CPAN Meta Spec against which the document was generated. =item url This is a I<URL> of the metadata specification document corresponding to the given version. This is strictly for human-consumption and should not impact the interpretation of the document. For the version 2 spec, either of these are recommended: =over 4 =item * C<https://metacpan.org/pod/CPAN::Meta::Spec> =item * C<http://search.cpan.org/perldoc?CPAN::Meta::Spec> =back =back =head3 name Example: name => 'Module-Build' (Spec 1.0) [required] {String} This field is the name of the distribution. This is often created by taking the "main package" in the distribution and changing C<::> to C<->, but the name may be completely unrelated to the packages within the distribution. For example, L<LWP::UserAgent> is distributed as part of the distribution name "libwww-perl". =head3 release_status Example: release_status => 'stable' (Spec 2) [required] {String} This field provides the release status of this distribution. If the C<version> field contains an underscore character, then C<release_status> B<must not> be "stable." The C<release_status> field B<must> have one of the following values: =over =item stable This indicates an ordinary, "final" release that should be indexed by PAUSE or other indexers. =item testing This indicates a "beta" release that is substantially complete, but has an elevated risk of bugs and requires additional testing. The distribution should not be installed over a stable release without an explicit request or other confirmation from a user. This release status may also be used for "release candidate" versions of a distribution. =item unstable This indicates an "alpha" release that is under active development, but has been released for early feedback or testing and may be missing features or may have serious bugs. The distribution should not be installed over a stable release without an explicit request or other confirmation from a user. =back Consumers B<may> use this field to determine how to index the distribution for CPAN or other repositories in addition to or in replacement of heuristics based on version number or file name. =head3 version Example: version => '0.36' (Spec 1.0) [required] {Version} This field gives the version of the distribution to which the metadata structure refers. =head2 OPTIONAL FIELDS =head3 description Example: description => "Module::Build is a system for " . "building, testing, and installing Perl modules. " . "It is meant to ... blah blah blah ...", (Spec 2) [optional] {String} A longer, more complete description of the purpose or intended use of the distribution than the one provided by the C<abstract> key. =head3 keywords Example: keywords => [ qw/ toolchain cpan dual-life / ] (Spec 1.1) [optional] {List of zero or more Strings} A List of keywords that describe this distribution. Keywords B<must not> include whitespace. =head3 no_index Example: no_index => { file => [ 'My/Module.pm' ], directory => [ 'My/Private' ], package => [ 'My::Module::Secret' ], namespace => [ 'My::Module::Sample' ], } (Spec 1.2) [optional] {Map} This Map describes any files, directories, packages, and namespaces that are private to the packaging or implementation of the distribution and should be ignored by indexing or search tools. Note that this is a list of exclusions, and the spec does not define what to I<include> - see L</Indexing distributions a la PAUSE> in the implementors notes for more information. Valid subkeys are as follows: =over =item file A I<List> of relative paths to files. Paths B<must be> specified with unix conventions. =item directory A I<List> of relative paths to directories. Paths B<must be> specified with unix conventions. [ Note: previous editions of the spec had C<dir> instead of C<directory> ] =item package A I<List> of package names. =item namespace A I<List> of package namespaces, where anything below the namespace must be ignored, but I<not> the namespace itself. In the example above for C<no_index>, C<My::Module::Sample::Foo> would be ignored, but C<My::Module::Sample> would not. =back =head3 optional_features Example: optional_features => { sqlite => { description => 'Provides SQLite support', prereqs => { runtime => { requires => { 'DBD::SQLite' => '1.25' } } } } } (Spec 2) [optional] {Map} This Map describes optional features with incremental prerequisites. Each key of the C<optional_features> Map is a String used to identify the feature and each value is a Map with additional information about the feature. Valid subkeys include: =over =item description This is a String describing the feature. Every optional feature should provide a description =item prereqs This entry is required and has the same structure as that of the C<L</prereqs>> key. It provides a list of package requirements that must be satisfied for the feature to be supported or enabled. There is one crucial restriction: the prereqs of an optional feature B<must not> include C<configure> phase prereqs. =back Consumers B<must not> include optional features as prerequisites without explicit instruction from users (whether via interactive prompting, a function parameter or a configuration value, etc. ). If an optional feature is used by a consumer to add additional prerequisites, the consumer should merge the optional feature prerequisites into those given by the C<prereqs> key using the same semantics. See L</Merging and Resolving Prerequisites> for details on merging prerequisites. I<Suggestion for disuse:> Because there is currently no way for a distribution to specify a dependency on an optional feature of another dependency, the use of C<optional_feature> is discouraged. Instead, create a separate, installable distribution that ensures the desired feature is available. For example, if C<Foo::Bar> has a C<Baz> feature, release a separate C<Foo-Bar-Baz> distribution that satisfies requirements for the feature. =head3 prereqs Example: prereqs => { runtime => { requires => { 'perl' => '5.006', 'File::Spec' => '0.86', 'JSON' => '2.16', }, recommends => { 'JSON::XS' => '2.26', }, suggests => { 'Archive::Tar' => '0', }, }, build => { requires => { 'Alien::SDL' => '1.00', }, }, test => { recommends => { 'Test::Deep' => '0.10', }, } } (Spec 2) [optional] {Map} This is a Map that describes all the prerequisites of the distribution. The keys are phases of activity, such as C<configure>, C<build>, C<test> or C<runtime>. Values are Maps in which the keys name the type of prerequisite relationship such as C<requires>, C<recommends>, or C<suggests> and the value provides a set of prerequisite relations. The set of relations B<must> be specified as a Map of package names to version ranges. The full definition for this field is given in the L</Prereq Spec> section. =head3 provides Example: provides => { 'Foo::Bar' => { file => 'lib/Foo/Bar.pm', version => '0.27_02', }, 'Foo::Bar::Blah' => { file => 'lib/Foo/Bar/Blah.pm', }, 'Foo::Bar::Baz' => { file => 'lib/Foo/Bar/Baz.pm', version => '0.3', }, } (Spec 1.2) [optional] {Map} This describes all packages provided by this distribution. This information is used by distribution and automation mechanisms like PAUSE, CPAN, metacpan.org and search.cpan.org to build indexes saying in which distribution various packages can be found. The keys of C<provides> are package names that can be found within the distribution. If a package name key is provided, it must have a Map with the following valid subkeys: =over =item file This field is required. It must contain a Unix-style relative file path from the root of the distribution directory to a file that contains or generates the package. It may be given as C<META.yml> or C<META.json> to claim a package for indexing without needing a C<*.pm>. =item version If it exists, this field must contains a I<Version> String for the package. If the package does not have a C<$VERSION>, this field must be omitted. =back =head3 resources Example: resources => { license => [ 'http://dev.perl.org/licenses/' ], homepage => 'http://sourceforge.net/projects/module-build', bugtracker => { web => 'http://rt.cpan.org/Public/Dist/Display.html?Name=CPAN-Meta', mailto => 'meta-bugs@example.com', }, repository => { url => 'git://github.com/dagolden/cpan-meta.git', web => 'http://github.com/dagolden/cpan-meta', type => 'git', }, x_twitter => 'http://twitter.com/cpan_linked/', } (Spec 2) [optional] {Map} This field describes resources related to this distribution. Valid subkeys include: =over =item homepage The official home of this project on the web. =item license A List of I<URL>'s that relate to this distribution's license. As with the top-level C<license> field, distribution documentation should be consulted to clarify the interpretation of multiple licenses provided here. =item bugtracker This entry describes the bug tracking system for this distribution. It is a Map with the following valid keys: web - a URL pointing to a web front-end for the bug tracker mailto - an email address to which bugs can be sent =item repository This entry describes the source control repository for this distribution. It is a Map with the following valid keys: url - a URL pointing to the repository itself web - a URL pointing to a web front-end for the repository type - a lowercase string indicating the VCS used Because a url like C<http://myrepo.example.com/> is ambiguous as to type, producers should provide a C<type> whenever a C<url> key is given. The C<type> field should be the name of the most common program used to work with the repository, e.g. C<git>, C<svn>, C<cvs>, C<darcs>, C<bzr> or C<hg>. =back =head2 DEPRECATED FIELDS =head3 build_requires I<(Deprecated in Spec 2)> [optional] {String} Replaced by C<prereqs> =head3 configure_requires I<(Deprecated in Spec 2)> [optional] {String} Replaced by C<prereqs> =head3 conflicts I<(Deprecated in Spec 2)> [optional] {String} Replaced by C<prereqs> =head3 distribution_type I<(Deprecated in Spec 2)> [optional] {String} This field indicated 'module' or 'script' but was considered meaningless, since many distributions are hybrids of several kinds of things. =head3 license_uri I<(Deprecated in Spec 1.2)> [optional] {URL} Replaced by C<license> in C<resources> =head3 private I<(Deprecated in Spec 1.2)> [optional] {Map} This field has been renamed to L</"no_index">. =head3 recommends I<(Deprecated in Spec 2)> [optional] {String} Replaced by C<prereqs> =head3 requires I<(Deprecated in Spec 2)> [optional] {String} Replaced by C<prereqs> =head1 VERSION NUMBERS =head2 Version Formats This section defines the Version type, used by several fields in the CPAN Meta Spec. Version numbers must be treated as strings, not numbers. For example, C<1.200> B<must not> be serialized as C<1.2>. Version comparison should be delegated to the Perl L<version> module, version 0.80 or newer. Unless otherwise specified, version numbers B<must> appear in one of two formats: =over =item Decimal versions Decimal versions are regular "decimal numbers", with some limitations. They B<must> be non-negative and B<must> begin and end with a digit. A single underscore B<may> be included, but B<must> be between two digits. They B<must not> use exponential notation ("1.23e-2"). version => '1.234' # OK version => '1.23_04' # OK version => '1.23_04_05' # Illegal version => '1.' # Illegal version => '.1' # Illegal =item Dotted-integer versions Dotted-integer (also known as dotted-decimal) versions consist of positive integers separated by full stop characters (i.e. "dots", "periods" or "decimal points"). This are equivalent in format to Perl "v-strings", with some additional restrictions on form. They must be given in "normal" form, which has a leading "v" character and at least three integer components. To retain a one-to-one mapping with decimal versions, all components after the first B<should> be restricted to the range 0 to 999. The final component B<may> be separated by an underscore character instead of a period. version => 'v1.2.3' # OK version => 'v1.2_3' # OK version => 'v1.2.3.4' # OK version => 'v1.2.3_4' # OK version => 'v2009.10.31' # OK version => 'v1.2' # Illegal version => '1.2.3' # Illegal version => 'v1.2_3_4' # Illegal version => 'v1.2009.10.31' # Not recommended =back =head2 Version Ranges Some fields (prereq, optional_features) indicate the particular version(s) of some other module that may be required as a prerequisite. This section details the Version Range type used to provide this information. The simplest format for a Version Range is just the version number itself, e.g. C<2.4>. This means that B<at least> version 2.4 must be present. To indicate that B<any> version of a prerequisite is okay, even if the prerequisite doesn't define a version at all, use the version C<0>. Alternatively, a version range B<may> use the operators E<lt> (less than), E<lt>= (less than or equal), E<gt> (greater than), E<gt>= (greater than or equal), == (equal), and != (not equal). For example, the specification C<E<lt> 2.0> means that any version of the prerequisite less than 2.0 is suitable. For more complicated situations, version specifications B<may> be AND-ed together using commas. The specification C<E<gt>= 1.2, != 1.5, E<lt> 2.0> indicates a version that must be B<at least> 1.2, B<less than> 2.0, and B<not equal to> 1.5. =head1 PREREQUISITES =head2 Prereq Spec The C<prereqs> key in the top-level metadata and within C<optional_features> define the relationship between a distribution and other packages. The prereq spec structure is a hierarchical data structure which divides prerequisites into I<Phases> of activity in the installation process and I<Relationships> that indicate how prerequisites should be resolved. For example, to specify that C<Data::Dumper> is C<required> during the C<test> phase, this entry would appear in the distribution metadata: prereqs => { test => { requires => { 'Data::Dumper' => '2.00' } } } =head3 Phases Requirements for regular use must be listed in the C<runtime> phase. Other requirements should be listed in the earliest stage in which they are required and consumers must accumulate and satisfy requirements across phases before executing the activity. For example, C<build> requirements must also be available during the C<test> phase. before action requirements that must be met ---------------- -------------------------------- perl Build.PL configure perl Makefile.PL make configure, runtime, build Build make test configure, runtime, build, test Build test Consumers that install the distribution must ensure that I<runtime> requirements are also installed and may install dependencies from other phases. after action requirements that must be met ---------------- -------------------------------- make install runtime Build install =over =item configure The configure phase occurs before any dynamic configuration has been attempted. Libraries required by the configure phase B<must> be available for use before the distribution building tool has been executed. =item build The build phase is when the distribution's source code is compiled (if necessary) and otherwise made ready for installation. =item test The test phase is when the distribution's automated test suite is run. Any library that is needed only for testing and not for subsequent use should be listed here. =item runtime The runtime phase refers not only to when the distribution's contents are installed, but also to its continued use. Any library that is a prerequisite for regular use of this distribution should be indicated here. =item develop The develop phase's prereqs are libraries needed to work on the distribution's source code as its author does. These tools might be needed to build a release tarball, to run author-only tests, or to perform other tasks related to developing new versions of the distribution. =back =head3 Relationships =over =item requires These dependencies B<must> be installed for proper completion of the phase. =item recommends Recommended dependencies are I<strongly> encouraged and should be satisfied except in resource constrained environments. =item suggests These dependencies are optional, but are suggested for enhanced operation of the described distribution. =item conflicts These libraries cannot be installed when the phase is in operation. This is a very rare situation, and the C<conflicts> relationship should be used with great caution, or not at all. =back =head2 Merging and Resolving Prerequisites Whenever metadata consumers merge prerequisites, either from different phases or from C<optional_features>, they should merged in a way which preserves the intended semantics of the prerequisite structure. Generally, this means concatenating the version specifications using commas, as described in the L<Version Ranges> section. Another subtle error that can occur in resolving prerequisites comes from the way that modules in prerequisites are indexed to distribution files on CPAN. When a module is deleted from a distribution, prerequisites calling for that module could indicate an older distribution should be installed, potentially overwriting files from a newer distribution. For example, as of Oct 31, 2009, the CPAN index file contained these module-distribution mappings: Class::MOP 0.94 D/DR/DROLSKY/Class-MOP-0.94.tar.gz Class::MOP::Class 0.94 D/DR/DROLSKY/Class-MOP-0.94.tar.gz Class::MOP::Class::Immutable 0.04 S/ST/STEVAN/Class-MOP-0.36.tar.gz Consider the case where "Class::MOP" 0.94 is installed. If a distribution specified "Class::MOP::Class::Immutable" as a prerequisite, it could result in Class-MOP-0.36.tar.gz being installed, overwriting any files from Class-MOP-0.94.tar.gz. Consumers of metadata B<should> test whether prerequisites would result in installed module files being "downgraded" to an older version and B<may> warn users or ignore the prerequisite that would cause such a result. =head1 SERIALIZATION Distribution metadata should be serialized (as a hashref) as JSON-encoded data and packaged with distributions as the file F<META.json>. In the past, the distribution metadata structure had been packed with distributions as F<META.yml>, a file in the YAML Tiny format (for which, see L<YAML::Tiny>). Tools that consume distribution metadata from disk should be capable of loading F<META.yml>, but should prefer F<META.json> if both are found. =head1 NOTES FOR IMPLEMENTORS =head2 Extracting Version Numbers from Perl Modules To get the version number from a Perl module, consumers should use the C<< MM->parse_version($file) >> method provided by L<ExtUtils::MakeMaker> or L<Module::Metadata>. For example, for the module given by C<$mod>, the version may be retrieved in one of the following ways: # via ExtUtils::MakeMaker my $file = MM->_installed_file_for_module($mod); my $version = MM->parse_version($file) The private C<_installed_file_for_module> method may be replaced with other methods for locating a module in C<@INC>. # via Module::Metadata my $info = Module::Metadata->new_from_module($mod); my $version = $info->version; If only a filename is available, the following approach may be used: # via Module::Build my $info = Module::Metadata->new_from_file($file); my $version = $info->version; =head2 Comparing Version Numbers The L<version> module provides the most reliable way to compare version numbers in all the various ways they might be provided or might exist within modules. Given two strings containing version numbers, C<$v1> and C<$v2>, they should be converted to C<version> objects before using ordinary comparison operators. For example: use version; if ( version->new($v1) <=> version->new($v2) ) { print "Versions are not equal\n"; } If the only comparison needed is whether an installed module is of a sufficiently high version, a direct test may be done using the string form of C<eval> and the C<use> function. For example, for module C<$mod> and version prerequisite C<$prereq>: if ( eval "use $mod $prereq (); 1" ) { print "Module $mod version is OK.\n"; } If the values of C<$mod> and C<$prereq> have not been scrubbed, however, this presents security implications. =head2 Prerequisites for dynamically configured distributions When C<dynamic_config> is true, it is an error to presume that the prerequisites given in distribution metadata will have any relationship whatsoever to the actual prerequisites of the distribution. In practice, however, one can generally expect such prerequisites to be one of two things: =over 4 =item * The minimum prerequisites for the distribution, to which dynamic configuration will only add items =item * Whatever the distribution configured with on the releaser's machine at release time =back The second case often turns out to have identical results to the first case, albeit only by accident. As such, consumers may use this data for informational analysis, but presenting it to the user as canonical or relying on it as such is invariably the height of folly. =head2 Indexing distributions a la PAUSE While no_index tells you what must be ignored when indexing, this spec holds no opinion on how you should get your initial candidate list of things to possibly index. For "normal" distributions you might consider simply indexing the contents of lib/, but there are many fascinating oddities on CPAN and many dists from the days when it was normal to put the main .pm file in the root of the distribution archive - so PAUSE currently indexes all .pm and .PL files that are not either (a) specifically excluded by no_index (b) in C<inc>, C<xt>, or C<t> directories, or common 'mistake' directories such as C<perl5>. Or: If you're trying to be PAUSE-like, make sure you skip C<inc>, C<xt> and C<t> as well as anything marked as no_index. Also remember: If the META file contains a provides field, you shouldn't be indexing anything in the first place - just use that. =head1 SEE ALSO =over 4 =item * CPAN, L<http://www.cpan.org/> =item * JSON, L<http://json.org/> =item * YAML, L<http://www.yaml.org/> =item * L<CPAN> =item * L<CPANPLUS> =item * L<ExtUtils::MakeMaker> =item * L<Module::Build> =item * L<Module::Install> =item * L<CPAN::Meta::History::Meta_1_4> =back =head1 HISTORY Ken Williams wrote the original CPAN Meta Spec (also known as the "META.yml spec") in 2003 and maintained it through several revisions with input from various members of the community. In 2005, Randy Sims redrafted it from HTML to POD for the version 1.2 release. Ken continued to maintain the spec through version 1.4. In late 2009, David Golden organized the version 2 proposal review process. David and Ricardo Signes drafted the final version 2 spec in April 2010 based on the version 1.4 spec and patches contributed during the proposal process. =head1 AUTHORS =over 4 =item * David Golden <dagolden@cpan.org> =item * Ricardo Signes <rjbs@cpan.org> =item * Adam Kennedy <adamk@cpan.org> =back =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2010 by David Golden, Ricardo Signes, Adam Kennedy and Contributors. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut PK ! ~���i# i# 5.34.0/CPAN/Meta/Merge.pmnu �[��� use strict; use warnings; package CPAN::Meta::Merge; our $VERSION = '2.150010'; use Carp qw/croak/; use Scalar::Util qw/blessed/; use CPAN::Meta::Converter 2.141170; sub _is_identical { my ($left, $right) = @_; return (not defined $left and not defined $right) # if either of these are references, we compare the serialized value || (defined $left and defined $right and $left eq $right); } sub _identical { my ($left, $right, $path) = @_; croak sprintf "Can't merge attribute %s: '%s' does not equal '%s'", join('.', @{$path}), $left, $right unless _is_identical($left, $right); return $left; } sub _merge { my ($current, $next, $mergers, $path) = @_; for my $key (keys %{$next}) { if (not exists $current->{$key}) { $current->{$key} = $next->{$key}; } elsif (my $merger = $mergers->{$key}) { $current->{$key} = $merger->($current->{$key}, $next->{$key}, [ @{$path}, $key ]); } elsif ($merger = $mergers->{':default'}) { $current->{$key} = $merger->($current->{$key}, $next->{$key}, [ @{$path}, $key ]); } else { croak sprintf "Can't merge unknown attribute '%s'", join '.', @{$path}, $key; } } return $current; } sub _uniq { my %seen = (); return grep { not $seen{$_}++ } @_; } sub _set_addition { my ($left, $right) = @_; return [ +_uniq(@{$left}, @{$right}) ]; } sub _uniq_map { my ($left, $right, $path) = @_; for my $key (keys %{$right}) { if (not exists $left->{$key}) { $left->{$key} = $right->{$key}; } # identical strings or references are merged identically elsif (_is_identical($left->{$key}, $right->{$key})) { 1; # do nothing - keep left } elsif (ref $left->{$key} eq 'HASH' and ref $right->{$key} eq 'HASH') { $left->{$key} = _uniq_map($left->{$key}, $right->{$key}, [ @{$path}, $key ]); } else { croak 'Duplication of element ' . join '.', @{$path}, $key; } } return $left; } sub _improvise { my ($left, $right, $path) = @_; my ($name) = reverse @{$path}; if ($name =~ /^x_/) { if (ref($left) eq 'ARRAY') { return _set_addition($left, $right, $path); } elsif (ref($left) eq 'HASH') { return _uniq_map($left, $right, $path); } else { return _identical($left, $right, $path); } } croak sprintf "Can't merge '%s'", join '.', @{$path}; } sub _optional_features { my ($left, $right, $path) = @_; for my $key (keys %{$right}) { if (not exists $left->{$key}) { $left->{$key} = $right->{$key}; } else { for my $subkey (keys %{ $right->{$key} }) { next if $subkey eq 'prereqs'; if (not exists $left->{$key}{$subkey}) { $left->{$key}{$subkey} = $right->{$key}{$subkey}; } else { Carp::croak "Cannot merge two optional_features named '$key' with different '$subkey' values" if do { no warnings 'uninitialized'; $left->{$key}{$subkey} ne $right->{$key}{$subkey} }; } } require CPAN::Meta::Prereqs; $left->{$key}{prereqs} = CPAN::Meta::Prereqs->new($left->{$key}{prereqs}) ->with_merged_prereqs(CPAN::Meta::Prereqs->new($right->{$key}{prereqs})) ->as_string_hash; } } return $left; } my %default = ( abstract => \&_identical, author => \&_set_addition, dynamic_config => sub { my ($left, $right) = @_; return $left || $right; }, generated_by => sub { my ($left, $right) = @_; return join ', ', _uniq(split(/, /, $left), split(/, /, $right)); }, license => \&_set_addition, 'meta-spec' => { version => \&_identical, url => \&_identical }, name => \&_identical, release_status => \&_identical, version => \&_identical, description => \&_identical, keywords => \&_set_addition, no_index => { map { ($_ => \&_set_addition) } qw/file directory package namespace/ }, optional_features => \&_optional_features, prereqs => sub { require CPAN::Meta::Prereqs; my ($left, $right) = map { CPAN::Meta::Prereqs->new($_) } @_[0,1]; return $left->with_merged_prereqs($right)->as_string_hash; }, provides => \&_uniq_map, resources => { license => \&_set_addition, homepage => \&_identical, bugtracker => \&_uniq_map, repository => \&_uniq_map, ':default' => \&_improvise, }, ':default' => \&_improvise, ); sub new { my ($class, %arguments) = @_; croak 'default version required' if not exists $arguments{default_version}; my %mapping = %default; my %extra = %{ $arguments{extra_mappings} || {} }; for my $key (keys %extra) { if (ref($mapping{$key}) eq 'HASH') { $mapping{$key} = { %{ $mapping{$key} }, %{ $extra{$key} } }; } else { $mapping{$key} = $extra{$key}; } } return bless { default_version => $arguments{default_version}, mapping => _coerce_mapping(\%mapping, []), }, $class; } my %coderef_for = ( set_addition => \&_set_addition, uniq_map => \&_uniq_map, identical => \&_identical, improvise => \&_improvise, improvize => \&_improvise, # [sic] for backwards compatibility ); sub _coerce_mapping { my ($orig, $map_path) = @_; my %ret; for my $key (keys %{$orig}) { my $value = $orig->{$key}; if (ref($orig->{$key}) eq 'CODE') { $ret{$key} = $value; } elsif (ref($value) eq 'HASH') { my $mapping = _coerce_mapping($value, [ @{$map_path}, $key ]); $ret{$key} = sub { my ($left, $right, $path) = @_; return _merge($left, $right, $mapping, [ @{$path} ]); }; } elsif ($coderef_for{$value}) { $ret{$key} = $coderef_for{$value}; } else { croak "Don't know what to do with " . join '.', @{$map_path}, $key; } } return \%ret; } sub merge { my ($self, @items) = @_; my $current = {}; for my $next (@items) { if ( blessed($next) && $next->isa('CPAN::Meta') ) { $next = $next->as_struct; } elsif ( ref($next) eq 'HASH' ) { my $cmc = CPAN::Meta::Converter->new( $next, default_version => $self->{default_version} ); $next = $cmc->upgrade_fragment; } else { croak "Don't know how to merge '$next'"; } $current = _merge($current, $next, $self->{mapping}, []); } return $current; } 1; # ABSTRACT: Merging CPAN Meta fragments # vim: ts=2 sts=2 sw=2 et : __END__ =pod =encoding UTF-8 =head1 NAME CPAN::Meta::Merge - Merging CPAN Meta fragments =head1 VERSION version 2.150010 =head1 SYNOPSIS my $merger = CPAN::Meta::Merge->new(default_version => "2"); my $meta = $merger->merge($base, @additional); =head1 DESCRIPTION =head1 METHODS =head2 new This creates a CPAN::Meta::Merge object. It takes one mandatory named argument, C<version>, declaring the version of the meta-spec that must be used for the merge. It can optionally take an C<extra_mappings> argument that allows one to add additional merging functions for specific elements. The C<extra_mappings> arguments takes a hash ref with the same type of structure as described in L<CPAN::Meta::Spec>, except with its values as one of the L<defined merge strategies|/"MERGE STRATEGIES"> or a code ref to a merging function. my $merger = CPAN::Meta::Merge->new( default_version => '2', extra_mappings => { 'optional_features' => \&custom_merge_function, 'x_custom' => 'set_addition', 'x_meta_meta' => { name => 'identical', tags => 'set_addition', } } ); =head2 merge(@fragments) Merge all C<@fragments> together. It will accept both CPAN::Meta objects and (possibly incomplete) hashrefs of metadata. =head1 MERGE STRATEGIES C<merge> uses various strategies to combine different elements of the CPAN::Meta objects. The following strategies can be used with the extra_mappings argument of C<new>: =over =item identical The elements must be identical =item set_addition The union of two array refs [ a, b ] U [ a, c] = [ a, b, c ] =item uniq_map Key value pairs from the right hash are merged to the left hash. Key collisions are only allowed if their values are the same. This merge function will recurse into nested hash refs following the same merge rules. =item improvise This merge strategy will try to pick the appropriate predefined strategy based on what element type. Array refs will try to use the C<set_addition> strategy, Hash refs will try to use the C<uniq_map> strategy, and everything else will try the C<identical> strategy. =back =head1 AUTHORS =over 4 =item * David Golden <dagolden@cpan.org> =item * Ricardo Signes <rjbs@cpan.org> =item * Adam Kennedy <adamk@cpan.org> =back =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2010 by David Golden, Ricardo Signes, Adam Kennedy and Contributors. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut PK ! ���A� � 5.34.0/CPAN/Meta/History.pmnu �[��� # vi:tw=72 use 5.006; use strict; use warnings; package CPAN::Meta::History; our $VERSION = '2.150010'; 1; # ABSTRACT: history of CPAN Meta Spec changes __END__ =pod =encoding UTF-8 =head1 NAME CPAN::Meta::History - history of CPAN Meta Spec changes =head1 VERSION version 2.150010 =head1 DESCRIPTION The CPAN Meta Spec has gone through several iterations. It was originally written in HTML and later revised into POD (though published in HTML generated from the POD). Fields were added, removed or changed, sometimes by design and sometimes to reflect real-world usage after the fact. This document reconstructs the history of the CPAN Meta Spec based on change logs, repository commit messages and the published HTML files. In some cases, particularly prior to version 1.2, the exact version when certain fields were introduced or changed is inconsistent between sources. When in doubt, the published HTML files for versions 1.0 to 1.4 as they existed when version 2 was developed are used as the definitive source. Starting with version 2, the specification document is part of the CPAN-Meta distribution and will be published on CPAN as L<CPAN::Meta::Spec>. Going forward, specification version numbers will be integers and decimal portions will correspond to a release date for the CPAN::Meta library. =head1 HISTORY =head2 Version 2 April 2010 =over =item * Revised spec examples as perl data structures rather than YAML =item * Switched to JSON serialization from YAML =item * Specified allowed version number formats =item * Replaced 'requires', 'build_requires', 'configure_requires', 'recommends' and 'conflicts' with new 'prereqs' data structure divided by I<phase> (configure, build, test, runtime, etc.) and I<relationship> (requires, recommends, suggests, conflicts) =item * Added support for 'develop' phase for requirements for maintaining a list of authoring tools =item * Changed 'license' to a list and revised the set of valid licenses =item * Made 'dynamic_config' mandatory to reduce confusion =item * Changed 'resources' subkey 'repository' to a hash that clarifies repository type, url for browsing and url for checkout =item * Changed 'resources' subkey 'bugtracker' to a hash for either web or mailto resource =item * Changed specification of 'optional_features': =over =item * Added formal specification and usage guide instead of just example =item * Changed to use new prereqs data structure instead of individual keys =back =item * Clarified intended use of 'author' as generalized contact list =item * Added 'release_status' field to indicate stable, testing or unstable status to provide hints to indexers =item * Added 'description' field for a longer description of the distribution =item * Formalized use of "x_" or "X_" for all custom keys not listed in the official spec =back =head2 Version 1.4 June 2008 =over =item * Noted explicit support for 'perl' in prerequisites =item * Added 'configure_requires' prerequisite type =item * Changed 'optional_features' =over =item * Example corrected to show map of maps instead of list of maps (though descriptive text said 'map' even in v1.3) =item * Removed 'requires_packages', 'requires_os' and 'excluded_os' as valid subkeys =back =back =head2 Version 1.3 November 2006 =over =item * Added 'no_index' subkey 'directory' and removed 'dir' to match actual usage in the wild =item * Added a 'repository' subkey to 'resources' =back =head2 Version 1.2 August 2005 =over =item * Re-wrote and restructured spec in POD syntax =item * Changed 'name' to be mandatory =item * Changed 'generated_by' to be mandatory =item * Changed 'license' to be mandatory =item * Added version range specifications for prerequisites =item * Added required 'abstract' field =item * Added required 'author' field =item * Added required 'meta-spec' field to define 'version' (and 'url') of the CPAN Meta Spec used for metadata =item * Added 'provides' field =item * Added 'no_index' field and deprecated 'private' field. 'no_index' subkeys include 'file', 'dir', 'package' and 'namespace' =item * Added 'keywords' field =item * Added 'resources' field with subkeys 'homepage', 'license', and 'bugtracker' =item * Added 'optional_features' field as an alternate under 'recommends'. Includes 'description', 'requires', 'build_requires', 'conflicts', 'requires_packages', 'requires_os' and 'excluded_os' as valid subkeys =item * Removed 'license_uri' field =back =head2 Version 1.1 May 2003 =over =item * Changed 'version' to be mandatory =item * Added 'private' field =item * Added 'license_uri' field =back =head2 Version 1.0 March 2003 =over =item * Original release (in HTML format only) =item * Included 'name', 'version', 'license', 'distribution_type', 'requires', 'recommends', 'build_requires', 'conflicts', 'dynamic_config', 'generated_by' =back =head1 AUTHORS =over 4 =item * David Golden <dagolden@cpan.org> =item * Ricardo Signes <rjbs@cpan.org> =item * Adam Kennedy <adamk@cpan.org> =back =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2010 by David Golden, Ricardo Signes, Adam Kennedy and Contributors. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut PK ! �somFU FU 5.34.0/CPAN/Meta/Requirements.pmnu ��6�$ use v5.10; use strict; use warnings; package CPAN::Meta::Requirements; # ABSTRACT: a set of version requirements for a CPAN dist our $VERSION = '2.143'; use CPAN::Meta::Requirements::Range; #pod =head1 SYNOPSIS #pod #pod use CPAN::Meta::Requirements; #pod #pod my $build_requires = CPAN::Meta::Requirements->new; #pod #pod $build_requires->add_minimum('Library::Foo' => 1.208); #pod #pod $build_requires->add_minimum('Library::Foo' => 2.602); #pod #pod $build_requires->add_minimum('Module::Bar' => 'v1.2.3'); #pod #pod $METAyml->{build_requires} = $build_requires->as_string_hash; #pod #pod =head1 DESCRIPTION #pod #pod A CPAN::Meta::Requirements object models a set of version constraints like #pod those specified in the F<META.yml> or F<META.json> files in CPAN distributions, #pod and as defined by L<CPAN::Meta::Spec>. #pod It can be built up by adding more and more constraints, and it will reduce them #pod to the simplest representation. #pod #pod Logically impossible constraints will be identified immediately by thrown #pod exceptions. #pod #pod =cut use Carp (); #pod =method new #pod #pod my $req = CPAN::Meta::Requirements->new; #pod #pod This returns a new CPAN::Meta::Requirements object. It takes an optional #pod hash reference argument. Currently, only one key is supported: #pod #pod =for :list #pod * C<bad_version_hook> -- if provided, when a version cannot be parsed into #pod a version object, this code reference will be called with the invalid #pod version string as first argument, and the module name as second #pod argument. It must return a valid version object. #pod #pod All other keys are ignored. #pod #pod =cut my @valid_options = qw( bad_version_hook ); sub new { my ($class, $options) = @_; $options ||= {}; Carp::croak "Argument to $class\->new() must be a hash reference" unless ref $options eq 'HASH'; my %self = map {; $_ => $options->{$_}} @valid_options; return bless \%self => $class; } #pod =method add_minimum #pod #pod $req->add_minimum( $module => $version ); #pod #pod This adds a new minimum version requirement. If the new requirement is #pod redundant to the existing specification, this has no effect. #pod #pod Minimum requirements are inclusive. C<$version> is required, along with any #pod greater version number. #pod #pod This method returns the requirements object. #pod #pod =method add_maximum #pod #pod $req->add_maximum( $module => $version ); #pod #pod This adds a new maximum version requirement. If the new requirement is #pod redundant to the existing specification, this has no effect. #pod #pod Maximum requirements are inclusive. No version strictly greater than the given #pod version is allowed. #pod #pod This method returns the requirements object. #pod #pod =method add_exclusion #pod #pod $req->add_exclusion( $module => $version ); #pod #pod This adds a new excluded version. For example, you might use these three #pod method calls: #pod #pod $req->add_minimum( $module => '1.00' ); #pod $req->add_maximum( $module => '1.82' ); #pod #pod $req->add_exclusion( $module => '1.75' ); #pod #pod Any version between 1.00 and 1.82 inclusive would be acceptable, except for #pod 1.75. #pod #pod This method returns the requirements object. #pod #pod =method exact_version #pod #pod $req->exact_version( $module => $version ); #pod #pod This sets the version required for the given module to I<exactly> the given #pod version. No other version would be considered acceptable. #pod #pod This method returns the requirements object. #pod #pod =cut BEGIN { for my $type (qw(maximum exclusion exact_version)) { my $method = "with_$type"; my $to_add = $type eq 'exact_version' ? $type : "add_$type"; my $code = sub { my ($self, $name, $version) = @_; $self->__modify_entry_for($name, $method, $version); return $self; }; no strict 'refs'; *$to_add = $code; } } # add_minimum is optimized compared to generated subs above because # it is called frequently and with "0" or equivalent input sub add_minimum { my ($self, $name, $version) = @_; # stringify $version so that version->new("0.00")->stringify ne "0" # which preserves the user's choice of "0.00" as the requirement if (not defined $version or "$version" eq '0') { return $self if $self->__entry_for($name); Carp::croak("can't add new requirements to finalized requirements") if $self->is_finalized; $self->{requirements}{ $name } = CPAN::Meta::Requirements::Range->with_minimum('0', $name); } else { $self->__modify_entry_for($name, 'with_minimum', $version); } return $self; } #pod =method version_range_for_module #pod #pod $req->version_range_for_module( $another_req_object ); #pod #pod =cut sub version_range_for_module { my ($self, $module) = @_; return $self->{requirements}{$module}; } #pod =method add_requirements #pod #pod $req->add_requirements( $another_req_object ); #pod #pod This method adds all the requirements in the given CPAN::Meta::Requirements #pod object to the requirements object on which it was called. If there are any #pod conflicts, an exception is thrown. #pod #pod This method returns the requirements object. #pod #pod =cut sub add_requirements { my ($self, $req) = @_; for my $module ($req->required_modules) { my $new_range = $req->version_range_for_module($module); $self->__modify_entry_for($module, 'with_range', $new_range); } return $self; } #pod =method accepts_module #pod #pod my $bool = $req->accepts_module($module => $version); #pod #pod Given an module and version, this method returns true if the version #pod specification for the module accepts the provided version. In other words, #pod given: #pod #pod Module => '>= 1.00, < 2.00' #pod #pod We will accept 1.00 and 1.75 but not 0.50 or 2.00. #pod #pod For modules that do not appear in the requirements, this method will return #pod true. #pod #pod =cut sub accepts_module { my ($self, $module, $version) = @_; return 1 unless my $range = $self->__entry_for($module); return $range->accepts($version); } #pod =method clear_requirement #pod #pod $req->clear_requirement( $module ); #pod #pod This removes the requirement for a given module from the object. #pod #pod This method returns the requirements object. #pod #pod =cut sub clear_requirement { my ($self, $module) = @_; return $self unless $self->__entry_for($module); Carp::croak("can't clear requirements on finalized requirements") if $self->is_finalized; delete $self->{requirements}{ $module }; return $self; } #pod =method requirements_for_module #pod #pod $req->requirements_for_module( $module ); #pod #pod This returns a string containing the version requirements for a given module in #pod the format described in L<CPAN::Meta::Spec> or undef if the given module has no #pod requirements. This should only be used for informational purposes such as error #pod messages and should not be interpreted or used for comparison (see #pod L</accepts_module> instead). #pod #pod =cut sub requirements_for_module { my ($self, $module) = @_; my $entry = $self->__entry_for($module); return unless $entry; return $entry->as_string; } #pod =method structured_requirements_for_module #pod #pod $req->structured_requirements_for_module( $module ); #pod #pod This returns a data structure containing the version requirements for a given #pod module or undef if the given module has no requirements. This should #pod not be used for version checks (see L</accepts_module> instead). #pod #pod Added in version 2.134. #pod #pod =cut sub structured_requirements_for_module { my ($self, $module) = @_; my $entry = $self->__entry_for($module); return unless $entry; return $entry->as_struct; } #pod =method required_modules #pod #pod This method returns a list of all the modules for which requirements have been #pod specified. #pod #pod =cut sub required_modules { keys %{ $_[0]{requirements} } } #pod =method clone #pod #pod $req->clone; #pod #pod This method returns a clone of the invocant. The clone and the original object #pod can then be changed independent of one another. #pod #pod =cut sub clone { my ($self) = @_; my $new = (ref $self)->new; return $new->add_requirements($self); } sub __entry_for { $_[0]{requirements}{ $_[1] } } sub __modify_entry_for { my ($self, $name, $method, $version) = @_; my $fin = $self->is_finalized; my $old = $self->__entry_for($name); Carp::croak("can't add new requirements to finalized requirements") if $fin and not $old; my $new = ($old || 'CPAN::Meta::Requirements::Range') ->$method($version, $name, $self->{bad_version_hook}); Carp::croak("can't modify finalized requirements") if $fin and $old->as_string ne $new->as_string; $self->{requirements}{ $name } = $new; } #pod =method is_simple #pod #pod This method returns true if and only if all requirements are inclusive minimums #pod -- that is, if their string expression is just the version number. #pod #pod =cut sub is_simple { my ($self) = @_; for my $module ($self->required_modules) { # XXX: This is a complete hack, but also entirely correct. return if not $self->__entry_for($module)->is_simple; } return 1; } #pod =method is_finalized #pod #pod This method returns true if the requirements have been finalized by having the #pod C<finalize> method called on them. #pod #pod =cut sub is_finalized { $_[0]{finalized} } #pod =method finalize #pod #pod This method marks the requirements finalized. Subsequent attempts to change #pod the requirements will be fatal, I<if> they would result in a change. If they #pod would not alter the requirements, they have no effect. #pod #pod If a finalized set of requirements is cloned, the cloned requirements are not #pod also finalized. #pod #pod =cut sub finalize { $_[0]{finalized} = 1 } #pod =method as_string_hash #pod #pod This returns a reference to a hash describing the requirements using the #pod strings in the L<CPAN::Meta::Spec> specification. #pod #pod For example after the following program: #pod #pod my $req = CPAN::Meta::Requirements->new; #pod #pod $req->add_minimum('CPAN::Meta::Requirements' => 0.102); #pod #pod $req->add_minimum('Library::Foo' => 1.208); #pod #pod $req->add_maximum('Library::Foo' => 2.602); #pod #pod $req->add_minimum('Module::Bar' => 'v1.2.3'); #pod #pod $req->add_exclusion('Module::Bar' => 'v1.2.8'); #pod #pod $req->exact_version('Xyzzy' => '6.01'); #pod #pod my $hashref = $req->as_string_hash; #pod #pod C<$hashref> would contain: #pod #pod { #pod 'CPAN::Meta::Requirements' => '0.102', #pod 'Library::Foo' => '>= 1.208, <= 2.206', #pod 'Module::Bar' => '>= v1.2.3, != v1.2.8', #pod 'Xyzzy' => '== 6.01', #pod } #pod #pod =cut sub as_string_hash { my ($self) = @_; my %hash = map {; $_ => $self->{requirements}{$_}->as_string } $self->required_modules; return \%hash; } #pod =method add_string_requirement #pod #pod $req->add_string_requirement('Library::Foo' => '>= 1.208, <= 2.206'); #pod $req->add_string_requirement('Library::Foo' => v1.208); #pod #pod This method parses the passed in string and adds the appropriate requirement #pod for the given module. A version can be a Perl "v-string". It understands #pod version ranges as described in the L<CPAN::Meta::Spec/Version Ranges>. For #pod example: #pod #pod =over 4 #pod #pod =item 1.3 #pod #pod =item >= 1.3 #pod #pod =item <= 1.3 #pod #pod =item == 1.3 #pod #pod =item != 1.3 #pod #pod =item > 1.3 #pod #pod =item < 1.3 #pod #pod =item >= 1.3, != 1.5, <= 2.0 #pod #pod A version number without an operator is equivalent to specifying a minimum #pod (C<E<gt>=>). Extra whitespace is allowed. #pod #pod =back #pod #pod =cut sub add_string_requirement { my ($self, $module, $req) = @_; $self->__modify_entry_for($module, 'with_string_requirement', $req); } #pod =method from_string_hash #pod #pod my $req = CPAN::Meta::Requirements->from_string_hash( \%hash ); #pod my $req = CPAN::Meta::Requirements->from_string_hash( \%hash, \%opts ); #pod #pod This is an alternate constructor for a CPAN::Meta::Requirements #pod object. It takes a hash of module names and version requirement #pod strings and returns a new CPAN::Meta::Requirements object. As with #pod add_string_requirement, a version can be a Perl "v-string". Optionally, #pod you can supply a hash-reference of options, exactly as with the L</new> #pod method. #pod #pod =cut sub from_string_hash { my ($class, $hash, $options) = @_; my $self = $class->new($options); for my $module (keys %$hash) { my $req = $hash->{$module}; $self->add_string_requirement($module, $req); } return $self; } 1; # vim: ts=2 sts=2 sw=2 et: __END__ =pod =encoding UTF-8 =head1 NAME CPAN::Meta::Requirements - a set of version requirements for a CPAN dist =head1 VERSION version 2.143 =head1 SYNOPSIS use CPAN::Meta::Requirements; my $build_requires = CPAN::Meta::Requirements->new; $build_requires->add_minimum('Library::Foo' => 1.208); $build_requires->add_minimum('Library::Foo' => 2.602); $build_requires->add_minimum('Module::Bar' => 'v1.2.3'); $METAyml->{build_requires} = $build_requires->as_string_hash; =head1 DESCRIPTION A CPAN::Meta::Requirements object models a set of version constraints like those specified in the F<META.yml> or F<META.json> files in CPAN distributions, and as defined by L<CPAN::Meta::Spec>. It can be built up by adding more and more constraints, and it will reduce them to the simplest representation. Logically impossible constraints will be identified immediately by thrown exceptions. =head1 METHODS =head2 new my $req = CPAN::Meta::Requirements->new; This returns a new CPAN::Meta::Requirements object. It takes an optional hash reference argument. Currently, only one key is supported: =over 4 =item * C<bad_version_hook> -- if provided, when a version cannot be parsed into a version object, this code reference will be called with the invalid version string as first argument, and the module name as second argument. It must return a valid version object. =back All other keys are ignored. =head2 add_minimum $req->add_minimum( $module => $version ); This adds a new minimum version requirement. If the new requirement is redundant to the existing specification, this has no effect. Minimum requirements are inclusive. C<$version> is required, along with any greater version number. This method returns the requirements object. =head2 add_maximum $req->add_maximum( $module => $version ); This adds a new maximum version requirement. If the new requirement is redundant to the existing specification, this has no effect. Maximum requirements are inclusive. No version strictly greater than the given version is allowed. This method returns the requirements object. =head2 add_exclusion $req->add_exclusion( $module => $version ); This adds a new excluded version. For example, you might use these three method calls: $req->add_minimum( $module => '1.00' ); $req->add_maximum( $module => '1.82' ); $req->add_exclusion( $module => '1.75' ); Any version between 1.00 and 1.82 inclusive would be acceptable, except for 1.75. This method returns the requirements object. =head2 exact_version $req->exact_version( $module => $version ); This sets the version required for the given module to I<exactly> the given version. No other version would be considered acceptable. This method returns the requirements object. =head2 version_range_for_module $req->version_range_for_module( $another_req_object ); =head2 add_requirements $req->add_requirements( $another_req_object ); This method adds all the requirements in the given CPAN::Meta::Requirements object to the requirements object on which it was called. If there are any conflicts, an exception is thrown. This method returns the requirements object. =head2 accepts_module my $bool = $req->accepts_module($module => $version); Given an module and version, this method returns true if the version specification for the module accepts the provided version. In other words, given: Module => '>= 1.00, < 2.00' We will accept 1.00 and 1.75 but not 0.50 or 2.00. For modules that do not appear in the requirements, this method will return true. =head2 clear_requirement $req->clear_requirement( $module ); This removes the requirement for a given module from the object. This method returns the requirements object. =head2 requirements_for_module $req->requirements_for_module( $module ); This returns a string containing the version requirements for a given module in the format described in L<CPAN::Meta::Spec> or undef if the given module has no requirements. This should only be used for informational purposes such as error messages and should not be interpreted or used for comparison (see L</accepts_module> instead). =head2 structured_requirements_for_module $req->structured_requirements_for_module( $module ); This returns a data structure containing the version requirements for a given module or undef if the given module has no requirements. This should not be used for version checks (see L</accepts_module> instead). Added in version 2.134. =head2 required_modules This method returns a list of all the modules for which requirements have been specified. =head2 clone $req->clone; This method returns a clone of the invocant. The clone and the original object can then be changed independent of one another. =head2 is_simple This method returns true if and only if all requirements are inclusive minimums -- that is, if their string expression is just the version number. =head2 is_finalized This method returns true if the requirements have been finalized by having the C<finalize> method called on them. =head2 finalize This method marks the requirements finalized. Subsequent attempts to change the requirements will be fatal, I<if> they would result in a change. If they would not alter the requirements, they have no effect. If a finalized set of requirements is cloned, the cloned requirements are not also finalized. =head2 as_string_hash This returns a reference to a hash describing the requirements using the strings in the L<CPAN::Meta::Spec> specification. For example after the following program: my $req = CPAN::Meta::Requirements->new; $req->add_minimum('CPAN::Meta::Requirements' => 0.102); $req->add_minimum('Library::Foo' => 1.208); $req->add_maximum('Library::Foo' => 2.602); $req->add_minimum('Module::Bar' => 'v1.2.3'); $req->add_exclusion('Module::Bar' => 'v1.2.8'); $req->exact_version('Xyzzy' => '6.01'); my $hashref = $req->as_string_hash; C<$hashref> would contain: { 'CPAN::Meta::Requirements' => '0.102', 'Library::Foo' => '>= 1.208, <= 2.206', 'Module::Bar' => '>= v1.2.3, != v1.2.8', 'Xyzzy' => '== 6.01', } =head2 add_string_requirement $req->add_string_requirement('Library::Foo' => '>= 1.208, <= 2.206'); $req->add_string_requirement('Library::Foo' => v1.208); This method parses the passed in string and adds the appropriate requirement for the given module. A version can be a Perl "v-string". It understands version ranges as described in the L<CPAN::Meta::Spec/Version Ranges>. For example: =over 4 =item 1.3 =item >= 1.3 =item <= 1.3 =item == 1.3 =item != 1.3 =item > 1.3 =item < 1.3 =item >= 1.3, != 1.5, <= 2.0 A version number without an operator is equivalent to specifying a minimum (C<E<gt>=>). Extra whitespace is allowed. =back =head2 from_string_hash my $req = CPAN::Meta::Requirements->from_string_hash( \%hash ); my $req = CPAN::Meta::Requirements->from_string_hash( \%hash, \%opts ); This is an alternate constructor for a CPAN::Meta::Requirements object. It takes a hash of module names and version requirement strings and returns a new CPAN::Meta::Requirements object. As with add_string_requirement, a version can be a Perl "v-string". Optionally, you can supply a hash-reference of options, exactly as with the L</new> method. =for :stopwords cpan testmatrix url bugtracker rt cpants kwalitee diff irc mailto metadata placeholders metacpan =head1 SUPPORT =head2 Bugs / Feature Requests Please report any bugs or feature requests through the issue tracker at L<https://github.com/Perl-Toolchain-Gang/CPAN-Meta-Requirements/issues>. You will be notified automatically of any progress on your issue. =head2 Source Code This is open source software. The code repository is available for public review and contribution under the terms of the license. L<https://github.com/Perl-Toolchain-Gang/CPAN-Meta-Requirements> git clone https://github.com/Perl-Toolchain-Gang/CPAN-Meta-Requirements.git =head1 AUTHORS =over 4 =item * David Golden <dagolden@cpan.org> =item * Ricardo Signes <rjbs@cpan.org> =back =head1 CONTRIBUTORS =for stopwords Ed J Graham Knop Karen Etheridge Leon Timmermans Paul Howarth Ricardo Signes robario Tatsuhiko Miyagawa =over 4 =item * Ed J <mohawk2@users.noreply.github.com> =item * Graham Knop <haarg@haarg.org> =item * Karen Etheridge <ether@cpan.org> =item * Leon Timmermans <fawaka@gmail.com> =item * Paul Howarth <paul@city-fan.org> =item * Ricardo Signes <rjbs@semiotic.systems> =item * robario <webmaster@robario.com> =item * Tatsuhiko Miyagawa <miyagawa@bulknews.net> =item * Tatsuhiko Miyagawa <miyagawa@gmail.com> =back =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2010 by David Golden and Ricardo Signes. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut PK ! X��a a 5.34.0/CPAN/Meta/Feature.pmnu �[��� use 5.006; use strict; use warnings; package CPAN::Meta::Feature; our $VERSION = '2.150010'; use CPAN::Meta::Prereqs; #pod =head1 DESCRIPTION #pod #pod A CPAN::Meta::Feature object describes an optional feature offered by a CPAN #pod distribution and specified in the distribution's F<META.json> (or F<META.yml>) #pod file. #pod #pod For the most part, this class will only be used when operating on the result of #pod the C<feature> or C<features> methods on a L<CPAN::Meta> object. #pod #pod =method new #pod #pod my $feature = CPAN::Meta::Feature->new( $identifier => \%spec ); #pod #pod This returns a new Feature object. The C<%spec> argument to the constructor #pod should be the same as the value of the C<optional_feature> entry in the #pod distmeta. It must contain entries for C<description> and C<prereqs>. #pod #pod =cut sub new { my ($class, $identifier, $spec) = @_; my %guts = ( identifier => $identifier, description => $spec->{description}, prereqs => CPAN::Meta::Prereqs->new($spec->{prereqs}), ); bless \%guts => $class; } #pod =method identifier #pod #pod This method returns the feature's identifier. #pod #pod =cut sub identifier { $_[0]{identifier} } #pod =method description #pod #pod This method returns the feature's long description. #pod #pod =cut sub description { $_[0]{description} } #pod =method prereqs #pod #pod This method returns the feature's prerequisites as a L<CPAN::Meta::Prereqs> #pod object. #pod #pod =cut sub prereqs { $_[0]{prereqs} } 1; # ABSTRACT: an optional feature provided by a CPAN distribution =pod =encoding UTF-8 =head1 NAME CPAN::Meta::Feature - an optional feature provided by a CPAN distribution =head1 VERSION version 2.150010 =head1 DESCRIPTION A CPAN::Meta::Feature object describes an optional feature offered by a CPAN distribution and specified in the distribution's F<META.json> (or F<META.yml>) file. For the most part, this class will only be used when operating on the result of the C<feature> or C<features> methods on a L<CPAN::Meta> object. =head1 METHODS =head2 new my $feature = CPAN::Meta::Feature->new( $identifier => \%spec ); This returns a new Feature object. The C<%spec> argument to the constructor should be the same as the value of the C<optional_feature> entry in the distmeta. It must contain entries for C<description> and C<prereqs>. =head2 identifier This method returns the feature's identifier. =head2 description This method returns the feature's long description. =head2 prereqs This method returns the feature's prerequisites as a L<CPAN::Meta::Prereqs> object. =head1 BUGS Please report any bugs or feature using the CPAN Request Tracker. Bugs can be submitted through the web interface at L<http://rt.cpan.org/Dist/Display.html?Queue=CPAN-Meta> When submitting a bug or request, please include a test-file or a patch to an existing test-file that illustrates the bug or desired feature. =head1 AUTHORS =over 4 =item * David Golden <dagolden@cpan.org> =item * Ricardo Signes <rjbs@cpan.org> =item * Adam Kennedy <adamk@cpan.org> =back =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2010 by David Golden, Ricardo Signes, Adam Kennedy and Contributors. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut __END__ # vim: ts=2 sts=2 sw=2 et : PK ! }l�+ + 5.34.0/CPAN/API/HOWTO.podnu �[��� =head1 NAME CPAN::API::HOWTO - a recipe book for programming with CPAN.pm =head1 RECIPES All of these recipes assume that you have put "use CPAN" at the top of your program. =head2 What distribution contains a particular module? my $distribution = CPAN::Shell->expand( "Module", "Data::UUID" )->distribution()->pretty_id(); This returns a string of the form "AUTHORID/TARBALL". If you want the full path and filename to this distribution on a CPAN mirror, then it is C<.../authors/id/A/AU/AUTHORID/TARBALL>. =head2 What modules does a particular distribution contain? CPAN::Index->reload(); my @modules = CPAN::Shell->expand( "Distribution", "JHI/Graph-0.83.tar.gz" )->containsmods(); You may also refer to a distribution in the form A/AU/AUTHORID/TARBALL. =head1 SEE ALSO the main CPAN.pm documentation =head1 LICENSE This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See L<http://www.perl.com/perl/misc/Artistic.html> =head1 AUTHOR David Cantrell =cut PK ! C���� � 5.34.0/CPAN/Plugin.pmnu �[��� package CPAN::Plugin; use strict; use warnings; our $VERSION = '0.97'; require CPAN; ###################################################################### sub new { # ; my ($class, %params) = @_; my $self = +{ (ref $class ? (%$class) : ()), %params, }; $self = bless $self, ref $class ? ref $class : $class; unless (ref $class) { local $_; no warnings 'once'; $CPAN::META->use_inst ($_) for $self->plugin_requires; } $self; } ###################################################################### sub plugin_requires { # ; } ###################################################################### sub distribution_object { # ; my ($self) = @_; $self->{distribution_object}; } ###################################################################### sub distribution { # ; my ($self) = @_; my $distribution = $self->distribution_object->id; CPAN::Shell->expand("Distribution",$distribution) or $self->frontend->mydie("Unknowns distribution '$distribution'\n"); } ###################################################################### sub distribution_info { # ; my ($self) = @_; CPAN::DistnameInfo->new ($self->distribution->id); } ###################################################################### sub build_dir { # ; my ($self) = @_; my $build_dir = $self->distribution->{build_dir} or $self->frontend->mydie("Distribution has not been built yet, cannot proceed"); } ###################################################################### sub is_xs { # my ($self) = @_; my @xs = glob File::Spec->catfile ($self->build_dir, '*.xs'); # quick try unless (@xs) { require ExtUtils::Manifest; my $manifest_file = File::Spec->catfile ($self->build_dir, "MANIFEST"); my $manifest = ExtUtils::Manifest::maniread($manifest_file); @xs = grep /\.xs$/, keys %$manifest; } scalar @xs; } ###################################################################### package CPAN::Plugin; 1; __END__ =pod =head1 NAME CPAN::Plugin - Base class for CPAN shell extensions =head1 SYNOPSIS package CPAN::Plugin::Flurb; use parent 'CPAN::Plugin'; sub post_test { my ($self, $distribution_object) = @_; $self = $self->new (distribution_object => $distribution_object); ...; } =head1 DESCRIPTION =head2 Alpha Status The plugin system in the CPAN shell was introduced in version 2.07 and is still considered experimental. =head2 How Plugins work? See L<CPAN/"Plugin support">. =head1 METHODS =head2 plugin_requires returns list of packages given plugin requires for functionality. This list is evaluated using C<< CPAN->use_inst >> method. =head2 distribution_object Get current distribution object. =head2 distribution =head2 distribution_info =head2 build_dir Simple delegatees for misc parameters derived from distribution =head2 is_xs Predicate to detect whether package contains XS. =head1 AUTHOR Branislav Zahradnik <barney@cpan.org> =cut PK ! ��o� � 5.34.0/CPAN/CacheMgr.pmnu �[��� # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- # vim: ts=4 sts=4 sw=4: package CPAN::CacheMgr; use strict; use CPAN::InfoObj; @CPAN::CacheMgr::ISA = qw(CPAN::InfoObj CPAN); use Cwd qw(chdir); use File::Find; use vars qw( $VERSION ); $VERSION = "5.5002"; package CPAN::CacheMgr; use strict; #-> sub CPAN::CacheMgr::as_string ; sub as_string { eval { require Data::Dumper }; if ($@) { return shift->SUPER::as_string; } else { return Data::Dumper::Dumper(shift); } } #-> sub CPAN::CacheMgr::cachesize ; sub cachesize { shift->{DU}; } #-> sub CPAN::CacheMgr::tidyup ; sub tidyup { my($self) = @_; return unless $CPAN::META->{LOCK}; return unless -d $self->{ID}; my @toremove = grep { $self->{SIZE}{$_}==0 } @{$self->{FIFO}}; for my $current (0..$#toremove) { my $toremove = $toremove[$current]; $CPAN::Frontend->myprint(sprintf( "DEL(%d/%d): %s \n", $current+1, scalar @toremove, $toremove, ) ); return if $CPAN::Signal; $self->_clean_cache($toremove); return if $CPAN::Signal; } $self->{FIFO} = []; } #-> sub CPAN::CacheMgr::dir ; sub dir { shift->{ID}; } #-> sub CPAN::CacheMgr::entries ; sub entries { my($self,$dir) = @_; return unless defined $dir; $self->debug("reading dir[$dir]") if $CPAN::DEBUG; $dir ||= $self->{ID}; my($cwd) = CPAN::anycwd(); chdir $dir or Carp::croak("Can't chdir to $dir: $!"); my $dh = DirHandle->new(File::Spec->curdir) or Carp::croak("Couldn't opendir $dir: $!"); my(@entries); for ($dh->read) { next if $_ eq "." || $_ eq ".."; if (-f $_) { push @entries, File::Spec->catfile($dir,$_); } elsif (-d _) { push @entries, File::Spec->catdir($dir,$_); } else { $CPAN::Frontend->mywarn("Warning: weird direntry in $dir: $_\n"); } } chdir $cwd or Carp::croak("Can't chdir to $cwd: $!"); sort { -M $a <=> -M $b} @entries; } #-> sub CPAN::CacheMgr::disk_usage ; sub disk_usage { my($self,$dir,$fast) = @_; return if exists $self->{SIZE}{$dir}; return if $CPAN::Signal; my($Du) = 0; if (-e $dir) { if (-d $dir) { unless (-x $dir) { unless (chmod 0755, $dir) { $CPAN::Frontend->mywarn("I have neither the -x permission nor the ". "permission to change the permission; cannot ". "estimate disk usage of '$dir'\n"); $CPAN::Frontend->mysleep(5); return; } } } elsif (-f $dir) { # nothing to say, no matter what the permissions } } else { $CPAN::Frontend->mywarn("File or directory '$dir' has gone, ignoring\n"); return; } if ($fast) { $Du = 0; # placeholder } else { find( sub { $File::Find::prune++ if $CPAN::Signal; return if -l $_; if ($^O eq 'MacOS') { require Mac::Files; my $cat = Mac::Files::FSpGetCatInfo($_); $Du += $cat->ioFlLgLen() + $cat->ioFlRLgLen() if $cat; } else { if (-d _) { unless (-x _) { unless (chmod 0755, $_) { $CPAN::Frontend->mywarn("I have neither the -x permission nor ". "the permission to change the permission; ". "can only partially estimate disk usage ". "of '$_'\n"); $CPAN::Frontend->mysleep(5); return; } } } else { $Du += (-s _); } } }, $dir ); } return if $CPAN::Signal; $self->{SIZE}{$dir} = $Du/1024/1024; unshift @{$self->{FIFO}}, $dir; $self->debug("measured $dir is $Du") if $CPAN::DEBUG; $self->{DU} += $Du/1024/1024; $self->{DU}; } #-> sub CPAN::CacheMgr::_clean_cache ; sub _clean_cache { my($self,$dir) = @_; return unless -e $dir; unless (File::Spec->canonpath(File::Basename::dirname($dir)) eq File::Spec->canonpath($CPAN::Config->{build_dir})) { $CPAN::Frontend->mywarn("Directory '$dir' not below $CPAN::Config->{build_dir}, ". "will not remove\n"); $CPAN::Frontend->mysleep(5); return; } $self->debug("have to rmtree $dir, will free $self->{SIZE}{$dir}") if $CPAN::DEBUG; File::Path::rmtree($dir); my $id_deleted = 0; if ($dir !~ /\.yml$/ && -f "$dir.yml") { my $yaml_module = CPAN::_yaml_module(); if ($CPAN::META->has_inst($yaml_module)) { my($peek_yaml) = eval { CPAN->_yaml_loadfile("$dir.yml"); }; if ($@) { $CPAN::Frontend->mywarn("(parse error on '$dir.yml' removing anyway)"); unlink "$dir.yml" or $CPAN::Frontend->mywarn("(Could not unlink '$dir.yml': $!)"); return; } elsif (my $id = $peek_yaml->[0]{distribution}{ID}) { $CPAN::META->delete("CPAN::Distribution", $id); # XXX we should restore the state NOW, otherwise this # distro does not exist until we read an index. BUG ALERT(?) # $CPAN::Frontend->mywarn (" +++\n"); $id_deleted++; } } unlink "$dir.yml"; # may fail unless ($id_deleted) { CPAN->debug("no distro found associated with '$dir'"); } } $self->{DU} -= $self->{SIZE}{$dir}; delete $self->{SIZE}{$dir}; } #-> sub CPAN::CacheMgr::new ; sub new { my($class,$phase) = @_; $phase ||= "atstart"; my $time = time; my($debug,$t2); $debug = ""; my $self = { ID => $CPAN::Config->{build_dir}, MAX => $CPAN::Config->{'build_cache'}, SCAN => $CPAN::Config->{'scan_cache'} || 'atstart', DU => 0 }; $CPAN::Frontend->mydie("Unknown scan_cache argument: $self->{SCAN}") unless $self->{SCAN} =~ /never|atstart|atexit/; File::Path::mkpath($self->{ID}); my $dh = DirHandle->new($self->{ID}); bless $self, $class; $self->scan_cache($phase); $t2 = time; $debug .= "timing of CacheMgr->new: ".($t2 - $time); $time = $t2; CPAN->debug($debug) if $CPAN::DEBUG; $self; } #-> sub CPAN::CacheMgr::scan_cache ; sub scan_cache { my ($self, $phase) = @_; $phase = '' unless defined $phase; return unless $phase eq $self->{SCAN}; return unless $CPAN::META->{LOCK}; $CPAN::Frontend->myprint( sprintf("Scanning cache %s for sizes\n", $self->{ID})); my $e; my @entries = $self->entries($self->{ID}); my $i = 0; my $painted = 0; for $e (@entries) { my $symbol = "."; if ($self->{DU} > $self->{MAX}) { $symbol = "-"; $self->disk_usage($e,1); } else { $self->disk_usage($e); } $i++; while (($painted/76) < ($i/@entries)) { $CPAN::Frontend->myprint($symbol); $painted++; } return if $CPAN::Signal; } $CPAN::Frontend->myprint("DONE\n"); $self->tidyup; } 1; PK ! �Y3� A A 5.34.0/CPAN/Tarzip.pmnu �[��� # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- package CPAN::Tarzip; use strict; use vars qw($VERSION @ISA $BUGHUNTING); use CPAN::Debug; use File::Basename qw(basename); $VERSION = "5.5013"; # module is internal to CPAN.pm @ISA = qw(CPAN::Debug); ## no critic $BUGHUNTING ||= 0; # released code must have turned off # it's ok if file doesn't exist, it just matters if it is .gz or .bz2 sub new { my($class,$file) = @_; $CPAN::Frontend->mydie("CPAN::Tarzip->new called without arg") unless defined $file; my $me = { FILE => $file }; if ($file =~ /\.(bz2|gz|zip|tbz|tgz)$/i) { $me->{ISCOMPRESSED} = 1; } else { $me->{ISCOMPRESSED} = 0; } if (0) { } elsif ($file =~ /\.(?:bz2|tbz)$/i) { unless ($me->{UNGZIPPRG} = $CPAN::Config->{bzip2}) { my $bzip2 = _my_which("bzip2"); if ($bzip2) { $me->{UNGZIPPRG} = $bzip2; } else { $CPAN::Frontend->mydie(qq{ CPAN.pm needs the external program bzip2 in order to handle '$file'. Please install it now and run 'o conf init bzip2' from the CPAN shell prompt to register it as external program. }); } } } else { $me->{UNGZIPPRG} = _my_which("gzip"); } $me->{TARPRG} = _my_which("tar") || _my_which("gtar"); bless $me, $class; } sub _zlib_ok () { $CPAN::META->has_inst("Compress::Zlib") or return; Compress::Zlib->can('gzopen'); } sub _my_which { my($what) = @_; if ($CPAN::Config->{$what}) { return $CPAN::Config->{$what}; } if ($CPAN::META->has_inst("File::Which")) { return File::Which::which($what); } my @cand = MM->maybe_command($what); return $cand[0] if @cand; require File::Spec; my $component; PATH_COMPONENT: foreach $component (File::Spec->path()) { next unless defined($component) && $component; my($abs) = File::Spec->catfile($component,$what); if (MM->maybe_command($abs)) { return $abs; } } return; } sub gzip { my($self,$read) = @_; my $write = $self->{FILE}; if (_zlib_ok) { my($buffer,$fhw); $fhw = FileHandle->new($read) or $CPAN::Frontend->mydie("Could not open $read: $!"); my $cwd = `pwd`; my $gz = Compress::Zlib::gzopen($write, "wb") or $CPAN::Frontend->mydie("Cannot gzopen $write: $! (pwd is $cwd)\n"); binmode($fhw); $gz->gzwrite($buffer) while read($fhw,$buffer,4096) > 0 ; $gz->gzclose() ; $fhw->close; return 1; } else { my $command = CPAN::HandleConfig->safe_quote($self->{UNGZIPPRG}); system(qq{$command -c "$read" > "$write"})==0; } } sub gunzip { my($self,$write) = @_; my $read = $self->{FILE}; if (_zlib_ok) { my($buffer,$fhw); $fhw = FileHandle->new(">$write") or $CPAN::Frontend->mydie("Could not open >$write: $!"); my $gz = Compress::Zlib::gzopen($read, "rb") or $CPAN::Frontend->mydie("Cannot gzopen $read: $!\n"); binmode($fhw); $fhw->print($buffer) while $gz->gzread($buffer) > 0 ; $CPAN::Frontend->mydie("Error reading from $read: $!\n") if $gz->gzerror != Compress::Zlib::Z_STREAM_END(); $gz->gzclose() ; $fhw->close; return 1; } else { my $command = CPAN::HandleConfig->safe_quote($self->{UNGZIPPRG}); system(qq{$command -d -c "$read" > "$write"})==0; } } sub gtest { my($self) = @_; return $self->{GTEST} if exists $self->{GTEST}; defined $self->{FILE} or $CPAN::Frontend->mydie("gtest called but no FILE specified"); my $read = $self->{FILE}; my $success; if ($read=~/\.(?:bz2|tbz)$/ && $CPAN::META->has_inst("Compress::Bzip2")) { my($buffer,$len); $len = 0; my $gz = Compress::Bzip2::bzopen($read, "rb") or $CPAN::Frontend->mydie(sprintf("Cannot bzopen %s: %s\n", $read, $Compress::Bzip2::bzerrno)); while ($gz->bzread($buffer) > 0 ) { $len += length($buffer); $buffer = ""; } my $err = $gz->bzerror; $success = ! $err || $err == Compress::Bzip2::BZ_STREAM_END(); if ($len == -s $read) { $success = 0; CPAN->debug("hit an uncompressed file") if $CPAN::DEBUG; } $gz->gzclose(); CPAN->debug("err[$err]success[$success]") if $CPAN::DEBUG; } elsif ( $read=~/\.(?:gz|tgz)$/ && _zlib_ok ) { # After I had reread the documentation in zlib.h, I discovered that # uncompressed files do not lead to an gzerror (anymore?). my($buffer,$len); $len = 0; my $gz = Compress::Zlib::gzopen($read, "rb") or $CPAN::Frontend->mydie(sprintf("Cannot gzopen %s: %s\n", $read, $Compress::Zlib::gzerrno)); while ($gz->gzread($buffer) > 0 ) { $len += length($buffer); $buffer = ""; } my $err = $gz->gzerror; $success = ! $err || $err == Compress::Zlib::Z_STREAM_END(); if ($len == -s $read) { $success = 0; CPAN->debug("hit an uncompressed file") if $CPAN::DEBUG; } $gz->gzclose(); CPAN->debug("err[$err]success[$success]") if $CPAN::DEBUG; } elsif (!$self->{ISCOMPRESSED}) { $success = 0; } else { my $command = CPAN::HandleConfig->safe_quote($self->{UNGZIPPRG}); $success = 0==system(qq{$command -qdt "$read"}); } return $self->{GTEST} = $success; } sub TIEHANDLE { my($class,$file) = @_; my $ret; $class->debug("file[$file]"); my $self = $class->new($file); if (0) { } elsif (!$self->gtest) { my $fh = FileHandle->new($file) or $CPAN::Frontend->mydie("Could not open file[$file]: $!"); binmode $fh; $self->{FH} = $fh; $class->debug("via uncompressed FH"); } elsif ($file =~ /\.(?:bz2|tbz)$/ && $CPAN::META->has_inst("Compress::Bzip2")) { my $gz = Compress::Bzip2::bzopen($file,"rb") or $CPAN::Frontend->mydie("Could not bzopen $file"); $self->{GZ} = $gz; $class->debug("via Compress::Bzip2"); } elsif ($file =~/\.(?:gz|tgz)$/ && _zlib_ok) { my $gz = Compress::Zlib::gzopen($file,"rb") or $CPAN::Frontend->mydie("Could not gzopen $file"); $self->{GZ} = $gz; $class->debug("via Compress::Zlib"); } else { my $gzip = CPAN::HandleConfig->safe_quote($self->{UNGZIPPRG}); my $pipe = "$gzip -d -c $file |"; my $fh = FileHandle->new($pipe) or $CPAN::Frontend->mydie("Could not pipe[$pipe]: $!"); binmode $fh; $self->{FH} = $fh; $class->debug("via external $gzip"); } $self; } sub READLINE { my($self) = @_; if (exists $self->{GZ}) { my $gz = $self->{GZ}; my($line,$bytesread); $bytesread = $gz->gzreadline($line); return undef if $bytesread <= 0; return $line; } else { my $fh = $self->{FH}; return scalar <$fh>; } } sub READ { my($self,$ref,$length,$offset) = @_; $CPAN::Frontend->mydie("read with offset not implemented") if defined $offset; if (exists $self->{GZ}) { my $gz = $self->{GZ}; my $byteread = $gz->gzread($$ref,$length);# 30eaf79e8b446ef52464b5422da328a8 return $byteread; } else { my $fh = $self->{FH}; return read($fh,$$ref,$length); } } sub DESTROY { my($self) = @_; if (exists $self->{GZ}) { my $gz = $self->{GZ}; $gz->gzclose() if defined $gz; # hard to say if it is allowed # to be undef ever. AK, 2000-09 } else { my $fh = $self->{FH}; $fh->close if defined $fh; } undef $self; } sub untar { my($self) = @_; my $file = $self->{FILE}; my($prefer) = 0; my $exttar = $self->{TARPRG} || ""; $exttar = "" if $exttar =~ /^\s+$/; # user refuses to use it my $extgzip = $self->{UNGZIPPRG} || ""; $extgzip = "" if $extgzip =~ /^\s+$/; # user refuses to use it if (0) { # makes changing order easier } elsif ($BUGHUNTING) { $prefer=2; } elsif ($CPAN::Config->{prefer_external_tar}) { $prefer = 1; } elsif ( $CPAN::META->has_usable("Archive::Tar") && _zlib_ok ) { my $prefer_external_tar = $CPAN::Config->{prefer_external_tar}; unless (defined $prefer_external_tar) { if ($^O =~ /(MSWin32|solaris)/) { $prefer_external_tar = 0; } else { $prefer_external_tar = 1; } } $prefer = $prefer_external_tar ? 1 : 2; } elsif ($exttar && $extgzip) { # no modules and not bz2 $prefer = 1; # but solaris binary tar is a problem if ($^O eq 'solaris' && qx($exttar --version 2>/dev/null) !~ /gnu/i) { $CPAN::Frontend->mywarn(<< 'END_WARN'); WARNING: Many CPAN distributions were archived with GNU tar and some of them may be incompatible with Solaris tar. We respectfully suggest you configure CPAN to use a GNU tar instead ("o conf init tar") or install a recent Archive::Tar instead; END_WARN } } else { my $foundtar = $exttar ? "'$exttar'" : "nothing"; my $foundzip = $extgzip ? "'$extgzip'" : $foundtar ? "nothing" : "also nothing"; my $foundAT; if ($CPAN::META->has_usable("Archive::Tar")) { $foundAT = sprintf "'%s'", "Archive::Tar::"->VERSION; } else { $foundAT = "nothing"; } my $foundCZ; if (_zlib_ok) { $foundCZ = sprintf "'%s'", "Compress::Zlib::"->VERSION; } elsif ($foundAT) { $foundCZ = "nothing"; } else { $foundCZ = "also nothing"; } $CPAN::Frontend->mydie(qq{ CPAN.pm needs either the external programs tar and gzip -or- both modules Archive::Tar and Compress::Zlib installed. For tar I found $foundtar, for gzip $foundzip. For Archive::Tar I found $foundAT, for Compress::Zlib $foundCZ; Can't continue cutting file '$file'. }); } my $tar_verb = "v"; if (defined $CPAN::Config->{tar_verbosity}) { $tar_verb = $CPAN::Config->{tar_verbosity} eq "none" ? "" : $CPAN::Config->{tar_verbosity}; } if ($prefer==1) { # 1 => external gzip+tar my($system); my $is_compressed = $self->gtest(); my $tarcommand = CPAN::HandleConfig->safe_quote($exttar); if ($is_compressed) { my $command = CPAN::HandleConfig->safe_quote($extgzip); $system = qq{$command -d -c }. qq{< "$file" | $tarcommand x${tar_verb}f -}; } else { $system = qq{$tarcommand x${tar_verb}f "$file"}; } if (system($system) != 0) { # people find the most curious tar binaries that cannot handle # pipes if ($is_compressed) { (my $ungzf = $file) =~ s/\.gz(?!\n)\Z//; $ungzf = basename $ungzf; my $ct = CPAN::Tarzip->new($file); if ($ct->gunzip($ungzf)) { $CPAN::Frontend->myprint(qq{Uncompressed $file successfully\n}); } else { $CPAN::Frontend->mydie(qq{Couldn\'t uncompress $file\n}); } $file = $ungzf; } $system = qq{$tarcommand x${tar_verb}f "$file"}; $CPAN::Frontend->myprint(qq{Using Tar:$system:\n}); my $ret = system($system); if ($ret==0) { $CPAN::Frontend->myprint(qq{Untarred $file successfully\n}); } else { if ($? == -1) { $CPAN::Frontend->mydie(sprintf qq{Couldn\'t untar %s: '%s'\n}, $file, $!); } elsif ($? & 127) { $CPAN::Frontend->mydie(sprintf qq{Couldn\'t untar %s: child died with signal %d, %s coredump\n}, $file, ($? & 127), ($? & 128) ? 'with' : 'without'); } else { $CPAN::Frontend->mydie(sprintf qq{Couldn\'t untar %s: child exited with value %d\n}, $file, $? >> 8); } } return 1; } else { return 1; } } elsif ($prefer==2) { # 2 => modules unless ($CPAN::META->has_usable("Archive::Tar")) { $CPAN::Frontend->mydie("Archive::Tar not installed, please install it to continue"); } # Make sure AT does not use uid/gid/permissions in the archive # This leaves it to the user's umask instead local $Archive::Tar::CHMOD = 1; local $Archive::Tar::SAME_PERMISSIONS = 0; # Make sure AT leaves current user as owner local $Archive::Tar::CHOWN = 0; my $tar = Archive::Tar->new($file,1); my $af; # archive file my @af; if ($BUGHUNTING) { # RCS 1.337 had this code, it turned out unacceptable slow but # it revealed a bug in Archive::Tar. Code is only here to hunt # the bug again. It should never be enabled in published code. # GDGraph3d-0.53 was an interesting case according to Larry # Virden. warn(">>>Bughunting code enabled<<< " x 20); for $af ($tar->list_files) { if ($af =~ m!^(/|\.\./)!) { $CPAN::Frontend->mydie("ALERT: Archive contains ". "illegal member [$af]"); } $CPAN::Frontend->myprint("$af\n"); $tar->extract($af); # slow but effective for finding the bug return if $CPAN::Signal; } } else { for $af ($tar->list_files) { if ($af =~ m!^(/|\.\./)!) { $CPAN::Frontend->mydie("ALERT: Archive contains ". "illegal member [$af]"); } if ($tar_verb eq "v" || $tar_verb eq "vv") { $CPAN::Frontend->myprint("$af\n"); } push @af, $af; return if $CPAN::Signal; } $tar->extract(@af) or $CPAN::Frontend->mydie("Could not untar with Archive::Tar."); } Mac::BuildTools::convert_files([$tar->list_files], 1) if ($^O eq 'MacOS'); return 1; } } sub unzip { my($self) = @_; my $file = $self->{FILE}; if ($CPAN::META->has_inst("Archive::Zip")) { # blueprint of the code from Archive::Zip::Tree::extractTree(); my $zip = Archive::Zip->new(); my $status; $status = $zip->read($file); $CPAN::Frontend->mydie("Read of file[$file] failed\n") if $status != Archive::Zip::AZ_OK(); $CPAN::META->debug("Successfully read file[$file]") if $CPAN::DEBUG; my @members = $zip->members(); for my $member ( @members ) { my $af = $member->fileName(); if ($af =~ m!^(/|\.\./)!) { $CPAN::Frontend->mydie("ALERT: Archive contains ". "illegal member [$af]"); } $status = $member->extractToFileNamed( $af ); $CPAN::META->debug("af[$af]status[$status]") if $CPAN::DEBUG; $CPAN::Frontend->mydie("Extracting of file[$af] from zipfile[$file] failed\n") if $status != Archive::Zip::AZ_OK(); return if $CPAN::Signal; } return 1; } elsif ( my $unzip = $CPAN::Config->{unzip} ) { my @system = ($unzip, $file); return system(@system) == 0; } else { $CPAN::Frontend->mydie(<<"END"); Can't unzip '$file': You have not configured an 'unzip' program and do not have Archive::Zip installed. Please either install Archive::Zip or else configure 'unzip' by running the command 'o conf init unzip' from the CPAN shell prompt. END } } 1; __END__ =head1 NAME CPAN::Tarzip - internal handling of tar archives for CPAN.pm =head1 LICENSE This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut PK ! z¤��! �! 5.34.0/CPAN/Plugin/Specfile.pmnu �[��� =head1 NAME CPAN::Plugin::Specfile - Proof of concept implementation of a trivial CPAN::Plugin =head1 SYNOPSIS # once in the cpan shell o conf plugin_list push CPAN::Plugin::Specfile # make permanent o conf commit # any time in the cpan shell to write a spec file test Acme::Meta # disable # if it is the last in plugin_list: o conf plugin_list pop # otherwise, determine the index to splice: o conf plugin_list # and then use splice, e.g. to splice position 3: o conf plugin_list splice 3 1 =head1 DESCRIPTION Implemented as a post-test hook, this plugin writes a specfile after every successful test run. The content is also written to the terminal. As a side effect, the timestamps of the written specfiles reflect the linear order of all dependencies. B<WARNING:> This code is just a small demo how to use the plugin system of the CPAN shell, not a full fledged spec file writer. Do not expect new features in this plugin. =head2 OPTIONS The target directory to store the spec files in can be set using C<dir> as in o conf plugin_list push CPAN::Plugin::Specfile=dir,/tmp/specfiles-000042 The default directory for this is the C<plugins/CPAN::Plugin::Specfile> directory in the I<cpan_home> directory. =head1 AUTHOR Andreas Koenig <andk@cpan.org>, Branislav Zahradnik <barney@cpan.org> =cut package CPAN::Plugin::Specfile; our $VERSION = '0.02'; use File::Path; use File::Spec; sub __accessor { my ($class, $key) = @_; no strict 'refs'; *{$class . '::' . $key} = sub { my $self = shift; if (@_) { $self->{$key} = shift; } return $self->{$key}; }; } BEGIN { __PACKAGE__->__accessor($_) for qw(dir dir_default) } sub new { my($class, @rest) = @_; my $self = bless {}, $class; while (my($arg,$val) = splice @rest, 0, 2) { $self->$arg($val); } $self->dir_default(File::Spec->catdir($CPAN::Config->{cpan_home},"plugins",__PACKAGE__)); $self; } sub post_test { my $self = shift; my $distribution_object = shift; my $distribution = $distribution_object->pretty_id; unless ($CPAN::META->has_inst("CPAN::DistnameInfo")){ $CPAN::Frontend->mydie("CPAN::DistnameInfo not installed; cannot continue"); } my $d = CPAN::Shell->expand("Distribution",$distribution) or $CPAN::Frontend->mydie("Unknowns distribution '$distribution'\n"); my $build_dir = $d->{build_dir} or $CPAN::Frontend->mydie("Distribution has not been built yet, cannot proceed"); my %contains = map {($_ => undef)} $d->containsmods; my @m; my $width = 16; my $header = sub { my($header,$value) = @_; push @m, sprintf("%-s:%*s%s\n", $header, $width-length($header), "", $value); }; my $dni = CPAN::DistnameInfo->new($distribution); my $dist = $dni->dist; my $summary = CPAN::Shell->_guess_manpage($d,\%contains,$dist); $header->("Name", "perl-$dist"); my $version = $dni->version; $header->("Version", $version); $header->("Release", "1%{?dist}"); #Summary: Template processing system #Group: Development/Libraries #License: GPL+ or Artistic #URL: http://www.template-toolkit.org/ #Source0: http://search.cpan.org/CPAN/authors/id/A/AB/ABW/Template-Toolkit-%{version}.tar.gz #Patch0: Template-2.22-SREZIC-01.patch #BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n) for my $h_tuple ([Summary => $summary], [Group => "Development/Libraries"], [License =>], [URL =>], [BuildRoot => "%{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)"], [Requires => "perl(:MODULE_COMPAT_%(eval \"`%{__perl} -V:version`\"; echo \$version))"], ) { my($h,$v) = @$h_tuple; $v = "unknown" unless defined $v; $header->($h, $v); } $header->("Source0", sprintf( "http://search.cpan.org/CPAN/authors/id/%s/%s/%s", substr($distribution,0,1), substr($distribution,0,2), $distribution )); require POSIX; my @xs = glob "$build_dir/*.xs"; # quick try unless (@xs) { require ExtUtils::Manifest; my $manifest_file = "$build_dir/MANIFEST"; my $manifest = ExtUtils::Manifest::maniread($manifest_file); @xs = grep /\.xs$/, keys %$manifest; } if (! @xs) { $header->('BuildArch', 'noarch'); } for my $k (sort keys %contains) { my $m = CPAN::Shell->expand("Module",$k); my $v = $contains{$k} = $m->cpan_version; my $vspec = $v eq "undef" ? "" : " = $v"; $header->("Provides", "perl($k)$vspec"); } if (my $prereq_pm = $d->{prereq_pm}) { my %req; for my $reqkey (keys %$prereq_pm) { while (my($k,$v) = each %{$prereq_pm->{$reqkey}}) { $req{$k} = $v; } } if (-e "$build_dir/Build.PL" && ! exists $req{"Module::Build"}) { $req{"Module::Build"} = 0; } for my $k (sort keys %req) { next if $k eq "perl"; my $v = $req{$k}; my $vspec = defined $v && length $v && $v > 0 ? " >= $v" : ""; $header->(BuildRequires => "perl($k)$vspec"); next if $k =~ /^(Module::Build)$/; # MB is always only a # BuildRequires; if we # turn it into a # Requires, then we # would have to make it # a BuildRequires # everywhere we depend # on *one* MB built # module. $header->(Requires => "perl($k)$vspec"); } } push @m, "\n%define _use_internal_dependency_generator 0 %define __find_requires %{nil} %define __find_provides %{nil} "; push @m, "\n%description\n%{summary}.\n"; push @m, "\n%prep\n%setup -q -n $dist-%{version}\n"; if (-e "$build_dir/Build.PL") { # see http://www.redhat.com/archives/rpm-list/2002-July/msg00110.html about RPM_BUILD_ROOT vs %{buildroot} push @m, <<'EOF'; %build %{__perl} Build.PL --installdirs=vendor --libdoc installvendorman3dir ./Build %install rm -rf $RPM_BUILD_ROOT ./Build install destdir=$RPM_BUILD_ROOT create_packlist=0 find $RPM_BUILD_ROOT -depth -type d -exec rmdir {} 2>/dev/null \; %{_fixperms} $RPM_BUILD_ROOT/* %check ./Build test EOF } elsif (-e "$build_dir/Makefile.PL") { push @m, <<'EOF'; %build %{__perl} Makefile.PL INSTALLDIRS=vendor make %{?_smp_mflags} %install rm -rf $RPM_BUILD_ROOT make pure_install DESTDIR=$RPM_BUILD_ROOT find $RPM_BUILD_ROOT -type f -name .packlist -exec rm -f {} ';' find $RPM_BUILD_ROOT -depth -type d -exec rmdir {} 2>/dev/null ';' %{_fixperms} $RPM_BUILD_ROOT/* %check make test EOF } else { $CPAN::Frontend->mydie("'$distribution' has neither a Build.PL nor a Makefile.PL\n"); } push @m, "\n%clean\nrm -rf \$RPM_BUILD_ROOT\n"; my $vendorlib = @xs ? "vendorarch" : "vendorlib"; my $date = POSIX::strftime("%a %b %d %Y", gmtime); my @doc = grep { -e "$build_dir/$_" } qw(README Changes); my $exe_stanza = "\n"; if (my $exe_files = $d->_exe_files) { if (@$exe_files) { $exe_stanza = "%{_mandir}/man1/*.1*\n"; for my $e (@$exe_files) { unless (CPAN->has_inst("File::Basename")) { $CPAN::Frontend->mydie("File::Basename not installed, cannot continue"); } my $basename = File::Basename::basename($e); $exe_stanza .= "/usr/bin/$basename\n"; } } } push @m, <<EOF; %files %defattr(-,root,root,-) %doc @doc %{perl_$vendorlib}/* %{_mandir}/man3/*.3* $exe_stanza %changelog * $date <specfile\@specfile.cpan.org> - $version-1 - autogenerated by CPAN::Plugin::Specfile() EOF my $ret = join "", @m; $CPAN::Frontend->myprint($ret); my $target_dir = $self->dir || $self->dir_default; File::Path::mkpath($target_dir); my $outfile = File::Spec->catfile($target_dir, "perl-$dist.spec"); open my $specout, ">", $outfile or $CPAN::Frontend->mydie("Could not open >$outfile: $!"); print $specout $ret; $CPAN::Frontend->myprint("Wrote $outfile"); $ret; } 1; PK ! �ܑH� � + 5.34.0/CPAN/Exception/yaml_process_error.pmnu �[��� # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- # vim: ts=4 sts=4 sw=4: package CPAN::Exception::yaml_process_error; use strict; use overload '""' => "as_string"; use vars qw( $VERSION ); $VERSION = "5.5"; sub new { my($class,$module,$file,$during,$error) = @_; # my $at = Carp::longmess(""); # XXX find something more beautiful bless { module => $module, file => $file, during => $during, error => $error, # at => $at, }, $class; } sub as_string { my($self) = shift; if ($self->{during}) { if ($self->{file}) { if ($self->{module}) { if ($self->{error}) { return "Alert: While trying to '$self->{during}' YAML file\n". " '$self->{file}'\n". "with '$self->{module}' the following error was encountered:\n". " $self->{error}\n"; } else { return "Alert: While trying to '$self->{during}' YAML file\n". " '$self->{file}'\n". "with '$self->{module}' some unknown error was encountered\n"; } } else { return "Alert: While trying to '$self->{during}' YAML file\n". " '$self->{file}'\n". "some unknown error was encountered\n"; } } else { return "Alert: While trying to '$self->{during}' some YAML file\n". "some unknown error was encountered\n"; } } else { return "Alert: unknown error encountered\n"; } } 1; PK ! ���1. . , 5.34.0/CPAN/Exception/RecursiveDependency.pmnu �[��� # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- # vim: ts=4 sts=4 sw=4: package CPAN::Exception::RecursiveDependency; use strict; use overload '""' => "as_string"; use vars qw( $VERSION ); $VERSION = "5.5001"; { package CPAN::Exception::RecursiveDependency::na; use overload '""' => "as_string"; sub new { bless {}, shift }; sub as_string { "N/A" }; } my $NA = CPAN::Exception::RecursiveDependency::na->new; # a module sees its distribution (no version) # a distribution sees its prereqs (which are module names) (usually with versions) # a bundle sees its module names and/or its distributions (no version) sub new { my($class) = shift; my($deps_arg) = shift; my (@deps,%seen,$loop_starts_with); DCHAIN: for my $dep (@$deps_arg) { push @deps, {name => $dep, display_as => $dep}; if ($seen{$dep}++) { $loop_starts_with = $dep; last DCHAIN; } } my $in_loop = 0; my %mark; DWALK: for my $i (0..$#deps) { my $x = $deps[$i]{name}; $in_loop ||= $loop_starts_with && $x eq $loop_starts_with; my $xo = CPAN::Shell->expandany($x) or next; if ($xo->isa("CPAN::Module")) { my $have = $xo->inst_version || $NA; my($want,$d,$want_type); if ($i>0 and $d = $deps[$i-1]{name}) { my $do = CPAN::Shell->expandany($d); $want = $do->{prereq_pm}{requires}{$x}; if (defined $want) { $want_type = "requires: "; } else { $want = $do->{prereq_pm}{build_requires}{$x}; if (defined $want) { $want_type = "build_requires: "; } else { $want_type = "unknown status"; $want = "???"; } } } else { $want = $xo->cpan_version; $want_type = "want: "; } $deps[$i]{have} = $have; $deps[$i]{want_type} = $want_type; $deps[$i]{want} = $want; $deps[$i]{display_as} = "$x (have: $have; $want_type$want)"; if ((! ref $have || !$have->isa('CPAN::Exception::RecursiveDependency::na')) && CPAN::Version->vge($have, $want)) { # https://rt.cpan.org/Ticket/Display.html?id=115340 undef $loop_starts_with; last DWALK; } } elsif ($xo->isa("CPAN::Distribution")) { my $pretty = $deps[$i]{display_as} = $xo->pretty_id; my $mark_as; if ($in_loop) { $mark_as = CPAN::Distrostatus->new("NO cannot resolve circular dependency"); } else { $mark_as = CPAN::Distrostatus->new("NO one dependency ($loop_starts_with) is a circular dependency"); } $mark{$pretty} = { xo => $xo, mark_as => $mark_as }; } } if ($loop_starts_with) { while (my($k,$v) = each %mark) { my $xo = $v->{xo}; $xo->{make} = $v->{mark_as}; $xo->store_persistent_state; # otherwise I will not reach # all involved parties for # the next session } } bless { deps => \@deps, loop_starts_with => $loop_starts_with }, $class; } sub is_resolvable { ! defined shift->{loop_starts_with}; } sub as_string { my($self) = shift; my $deps = $self->{deps}; my $loop_starts_with = $self->{loop_starts_with}; unless ($loop_starts_with) { return "--not a recursive/circular dependency--"; } my $ret = "\nRecursive dependency detected:\n "; $ret .= join("\n => ", map {$_->{display_as}} @$deps); $ret .= ".\nCannot resolve.\n"; $ret; } 1; PK ! T��� � + 5.34.0/CPAN/Exception/yaml_not_installed.pmnu �[��� # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- # vim: ts=4 sts=4 sw=4: package CPAN::Exception::yaml_not_installed; use strict; use overload '""' => "as_string"; use vars qw( $VERSION ); $VERSION = "5.5"; sub new { my($class,$module,$file,$during) = @_; bless { module => $module, file => $file, during => $during }, $class; } sub as_string { my($self) = shift; "'$self->{module}' not installed, cannot $self->{during} '$self->{file}'\n"; } 1; PK ! *�^� � ( 5.34.0/CPAN/Exception/blocked_urllist.pmnu �[��� # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- # vim: ts=4 sts=4 sw=4: package CPAN::Exception::blocked_urllist; use strict; use overload '""' => "as_string"; use vars qw( $VERSION ); $VERSION = "1.001"; sub new { my($class) = @_; bless {}, $class; } sub as_string { my($self) = shift; if ($CPAN::Config->{connect_to_internet_ok}) { return qq{ You have not configured a urllist for CPAN mirrors. Configure it with o conf init urllist }; } else { return qq{ You have not configured a urllist and do not allow connections to the internet to get a list of mirrors. If you wish to get a list of CPAN mirrors to pick from, use this command o conf init connect_to_internet_ok urllist If you do not wish to get a list of mirrors and would prefer to set your urllist manually, use just this command instead o conf init urllist }; } } 1; PK ! �2]� � 5.34.0/CPAN/Nox.pmnu �[��� package CPAN::Nox; use strict; use vars qw($VERSION @EXPORT); BEGIN{ $CPAN::Suppress_readline=1 unless defined $CPAN::term; } use Exporter (); @CPAN::ISA = ('Exporter'); use CPAN; $VERSION = "5.5001"; $CPAN::META->has_inst('Digest::MD5','no'); $CPAN::META->has_inst('LWP','no'); $CPAN::META->has_inst('Compress::Zlib','no'); @EXPORT = @CPAN::EXPORT; *AUTOLOAD = \&CPAN::AUTOLOAD; 1; __END__ =head1 NAME CPAN::Nox - Wrapper around CPAN.pm without using any XS module =head1 SYNOPSIS Interactive mode: perl -MCPAN::Nox -e shell; =head1 DESCRIPTION This package has the same functionality as CPAN.pm, but tries to prevent the usage of compiled extensions during its own execution. Its primary purpose is a rescue in case you upgraded perl and broke binary compatibility somehow. =head1 LICENSE This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO L<CPAN> =cut PK ! B��3� � 5.34.0/CPAN/Queue.pmnu �[��� # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- use strict; package CPAN::Queue::Item; # CPAN::Queue::Item::new ; sub new { my($class,@attr) = @_; my $self = bless { @attr }, $class; return $self; } sub as_string { my($self) = @_; $self->{qmod}; } # r => requires, b => build_requires, c => commandline sub reqtype { my($self) = @_; $self->{reqtype}; } sub optional { my($self) = @_; $self->{optional}; } package CPAN::Queue; # One use of the queue is to determine if we should or shouldn't # announce the availability of a new CPAN module # Now we try to use it for dependency tracking. For that to happen # we need to draw a dependency tree and do the leaves first. This can # easily be reached by running CPAN.pm recursively, but we don't want # to waste memory and run into deep recursion. So what we can do is # this: # CPAN::Queue is the package where the queue is maintained. Dependencies # often have high priority and must be brought to the head of the queue, # possibly by jumping the queue if they are already there. My first code # attempt tried to be extremely correct. Whenever a module needed # immediate treatment, I either unshifted it to the front of the queue, # or, if it was already in the queue, I spliced and let it bypass the # others. This became a too correct model that made it impossible to put # an item more than once into the queue. Why would you need that? Well, # you need temporary duplicates as the manager of the queue is a loop # that # # (1) looks at the first item in the queue without shifting it off # # (2) cares for the item # # (3) removes the item from the queue, *even if its agenda failed and # even if the item isn't the first in the queue anymore* (that way # protecting against never ending queues) # # So if an item has prerequisites, the installation fails now, but we # want to retry later. That's easy if we have it twice in the queue. # # I also expect insane dependency situations where an item gets more # than two lives in the queue. Simplest example is triggered by 'install # Foo Foo Foo'. People make this kind of mistakes and I don't want to # get in the way. I wanted the queue manager to be a dumb servant, not # one that knows everything. # # Who would I tell in this model that the user wants to be asked before # processing? I can't attach that information to the module object, # because not modules are installed but distributions. So I'd have to # tell the distribution object that it should ask the user before # processing. Where would the question be triggered then? Most probably # in CPAN::Distribution::rematein. use vars qw{ @All $VERSION }; $VERSION = "5.5003"; # CPAN::Queue::queue_item ; sub queue_item { my($class,@attr) = @_; my $item = "$class\::Item"->new(@attr); $class->qpush($item); return 1; } # CPAN::Queue::qpush ; sub qpush { my($class,$obj) = @_; push @All, $obj; CPAN->debug(sprintf("in new All[%s]", join("",map {sprintf " %s\[%s][%s]\n",$_->{qmod},$_->{reqtype},$_->{optional}} @All), )) if $CPAN::DEBUG; } # CPAN::Queue::first ; sub first { my $obj = $All[0]; $obj; } # CPAN::Queue::delete_first ; sub delete_first { my($class,$what) = @_; my $i; for my $i (0..$#All) { if ( $All[$i]->{qmod} eq $what ) { splice @All, $i, 1; last; } } CPAN->debug(sprintf("after delete_first mod[%s] All[%s]", $what, join("",map {sprintf " %s\[%s][%s]\n",$_->{qmod},$_->{reqtype},$_->{optional}} @All) )) if $CPAN::DEBUG; } # CPAN::Queue::jumpqueue ; sub jumpqueue { my $class = shift; my @what = @_; CPAN->debug(sprintf("before jumpqueue All[%s] what[%s]", join("",map {sprintf " %s\[%s][%s]\n",$_->{qmod},$_->{reqtype},$_->{optional}} @All), join("",map {sprintf " %s\[%s][%s]\n",$_->{qmod},$_->{reqtype},$_->{optional}} @what), )) if $CPAN::DEBUG; unless (defined $what[0]{reqtype}) { # apparently it was not the Shell that sent us this enquiry, # treat it as commandline $what[0]{reqtype} = "c"; } my $inherit_reqtype = $what[0]{reqtype} =~ /^(c|r)$/ ? "r" : "b"; WHAT: for my $what_tuple (@what) { my($qmod,$reqtype,$optional) = @$what_tuple{qw(qmod reqtype optional)}; if ($reqtype eq "r" && $inherit_reqtype eq "b" ) { $reqtype = "b"; } my $jumped = 0; for (my $i=0; $i<$#All;$i++) { #prevent deep recursion if ($All[$i]{qmod} eq $qmod) { $jumped++; } } # high jumped values are normal for popular modules when # dealing with large bundles: XML::Simple, # namespace::autoclean, UNIVERSAL::require CPAN->debug("qmod[$qmod]jumped[$jumped]") if $CPAN::DEBUG; my $obj = "$class\::Item"->new( qmod => $qmod, reqtype => $reqtype, optional => !! $optional, ); unshift @All, $obj; } CPAN->debug(sprintf("after jumpqueue All[%s]", join("",map {sprintf " %s\[%s][%s]\n",$_->{qmod},$_->{reqtype},$_->{optional}} @All) )) if $CPAN::DEBUG; } # CPAN::Queue::exists ; sub exists { my($self,$what) = @_; my @all = map { $_->{qmod} } @All; my $exists = grep { $_->{qmod} eq $what } @All; # warn "in exists what[$what] all[@all] exists[$exists]"; $exists; } # CPAN::Queue::delete ; sub delete { my($self,$mod) = @_; @All = grep { $_->{qmod} ne $mod } @All; CPAN->debug(sprintf("after delete mod[%s] All[%s]", $mod, join("",map {sprintf " %s\[%s][%s]\n",$_->{qmod},$_->{reqtype},$_->{optional}} @All) )) if $CPAN::DEBUG; } # CPAN::Queue::nullify_queue ; sub nullify_queue { @All = (); } # CPAN::Queue::size ; sub size { return scalar @All; } sub reqtype_of { my($self,$mod) = @_; my $best = ""; for my $item (grep { $_->{qmod} eq $mod } @All) { my $c = $item->{reqtype}; if ($c eq "c") { $best = $c; last; } elsif ($c eq "r") { $best = $c; } elsif ($c eq "b") { if ($best eq "") { $best = $c; } } else { die "Panic: in reqtype_of: reqtype[$c] seen, should never happen"; } } return $best; } sub iterator { my $i = 0; return sub { until ($All[$i] || $i > $#All) { $i++; } return if $i > $#All; return $All[$i++] }; } 1; __END__ =head1 NAME CPAN::Queue - internal queue support for CPAN.pm =head1 LICENSE This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut PK ! iۨD� � 5.34.0/CPAN/Distrostatus.pmnu �[��� # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- # vim: ts=4 sts=4 sw=4: package CPAN::Distrostatus; use overload '""' => "as_string", fallback => 1; use vars qw($something_has_failed_at); use vars qw( $VERSION ); $VERSION = "5.5"; sub new { my($class,$arg) = @_; my $failed = substr($arg,0,2) eq "NO"; if ($failed) { $something_has_failed_at = $CPAN::CurrentCommandId; } bless { TEXT => $arg, FAILED => $failed, COMMANDID => $CPAN::CurrentCommandId, TIME => time, }, $class; } sub something_has_just_failed () { defined $something_has_failed_at && $something_has_failed_at == $CPAN::CurrentCommandId; } sub commandid { shift->{COMMANDID} } sub failed { shift->{FAILED} } sub text { my($self,$set) = @_; if (defined $set) { $self->{TEXT} = $set; } $self->{TEXT}; } sub as_string { my($self) = @_; $self->text; } 1; PK ! � ��V �V 5.34.0/CPAN/Index.pmnu �[��� package CPAN::Index; use strict; use vars qw($LAST_TIME $DATE_OF_02 $DATE_OF_03 $HAVE_REANIMATED $VERSION); $VERSION = "2.12"; @CPAN::Index::ISA = qw(CPAN::Debug); $LAST_TIME ||= 0; $DATE_OF_03 ||= 0; # use constant PROTOCOL => "2.0"; # commented out to avoid warning on upgrade from 1.57 sub PROTOCOL { 2.0 } #-> sub CPAN::Index::force_reload ; sub force_reload { my($class) = @_; $CPAN::Index::LAST_TIME = 0; $class->reload(1); } my @indexbundle = ( { reader => "rd_authindex", dir => "authors", remotefile => '01mailrc.txt.gz', shortlocalfile => '01mailrc.gz', }, { reader => "rd_modpacks", dir => "modules", remotefile => '02packages.details.txt.gz', shortlocalfile => '02packag.gz', }, { reader => "rd_modlist", dir => "modules", remotefile => '03modlist.data.gz', shortlocalfile => '03mlist.gz', }, ); #-> sub CPAN::Index::reload ; sub reload { my($self,$force) = @_; my $time = time; # XXX check if a newer one is available. (We currently read it # from time to time) for ($CPAN::Config->{index_expire}) { $_ = 0.001 unless $_ && $_ > 0.001; } unless (1 || $CPAN::Have_warned->{readmetadatacache}++) { # debug here when CPAN doesn't seem to read the Metadata require Carp; Carp::cluck("META-PROTOCOL[$CPAN::META->{PROTOCOL}]"); } unless ($CPAN::META->{PROTOCOL}) { $self->read_metadata_cache; $CPAN::META->{PROTOCOL} ||= "1.0"; } if ( $CPAN::META->{PROTOCOL} < PROTOCOL ) { # warn "Setting last_time to 0"; $LAST_TIME = 0; # No warning necessary } if ($LAST_TIME + $CPAN::Config->{index_expire}*86400 > $time and ! $force) { # called too often # CPAN->debug("LAST_TIME[$LAST_TIME]index_expire[$CPAN::Config->{index_expire}]time[$time]"); } elsif (0) { # IFF we are developing, it helps to wipe out the memory # between reloads, otherwise it is not what a user expects. undef $CPAN::META; # Neue Gruendlichkeit since v1.52(r1.274) $CPAN::META = CPAN->new; } else { my($debug,$t2); local $LAST_TIME = $time; local $CPAN::META->{PROTOCOL} = PROTOCOL; my $needshort = $^O eq "dos"; INX: for my $indexbundle (@indexbundle) { my $reader = $indexbundle->{reader}; my $localfile = $needshort ? $indexbundle->{shortlocalfile} : $indexbundle->{remotefile}; my $localpath = File::Spec->catfile($indexbundle->{dir}, $localfile); my $remote = join "/", $indexbundle->{dir}, $indexbundle->{remotefile}; my $localized = $self->reload_x($remote, $localpath, $force); $self->$reader($localized); # may die but we let the shell catch it if ($CPAN::DEBUG){ $t2 = time; $debug = "timing reading 01[".($t2 - $time)."]"; $time = $t2; } return if $CPAN::Signal; # this is sometimes lengthy } $self->write_metadata_cache; if ($CPAN::DEBUG){ $t2 = time; $debug .= "03[".($t2 - $time)."]"; $time = $t2; } CPAN->debug($debug) if $CPAN::DEBUG; } if ($CPAN::Config->{build_dir_reuse}) { $self->reanimate_build_dir; } if (CPAN::_sqlite_running()) { $CPAN::SQLite->reload(time => $time, force => $force) if not $LAST_TIME; } $LAST_TIME = $time; $CPAN::META->{PROTOCOL} = PROTOCOL; } #-> sub CPAN::Index::reanimate_build_dir ; sub reanimate_build_dir { my($self) = @_; unless ($CPAN::META->has_inst($CPAN::Config->{yaml_module}||"YAML")) { return; } return if $HAVE_REANIMATED++; my $d = $CPAN::Config->{build_dir}; my $dh = DirHandle->new; opendir $dh, $d or return; # does not exist my $dirent; my $i = 0; my $painted = 0; my $restored = 0; my $start = CPAN::FTP::_mytime(); my @candidates = map { $_->[0] } sort { $b->[1] <=> $a->[1] } map { [ $_, -M File::Spec->catfile($d,$_) ] } grep {/(.+)\.yml$/ && -d File::Spec->catfile($d,$1)} readdir $dh; if ( @candidates ) { $CPAN::Frontend->myprint (sprintf("Reading %d yaml file%s from %s/\n", scalar @candidates, @candidates==1 ? "" : "s", $CPAN::Config->{build_dir} )); DISTRO: for $i (0..$#candidates) { my $dirent = $candidates[$i]; my $y = eval {CPAN->_yaml_loadfile(File::Spec->catfile($d,$dirent))}; if ($@) { warn "Error while parsing file '$dirent'; error: '$@'"; next DISTRO; } my $c = $y->[0]; if ($c && $c->{perl} && $c->{distribution} && CPAN->_perl_fingerprint($c->{perl})) { my $key = $c->{distribution}{ID}; for my $k (keys %{$c->{distribution}}) { if ($c->{distribution}{$k} && ref $c->{distribution}{$k} && UNIVERSAL::isa($c->{distribution}{$k},"CPAN::Distrostatus")) { $c->{distribution}{$k}{COMMANDID} = $i - @candidates; } } #we tried to restore only if element already #exists; but then we do not work with metadata #turned off. my $do = $CPAN::META->{readwrite}{'CPAN::Distribution'}{$key} = $c->{distribution}; for my $skipper (qw( badtestcnt configure_requires_later configure_requires_later_for force_update later later_for notest should_report sponsored_mods prefs negative_prefs_cache )) { delete $do->{$skipper}; } if ($do->can("tested_ok_but_not_installed")) { if ($do->tested_ok_but_not_installed) { $CPAN::META->is_tested($do->{build_dir},$do->{make_test}{TIME}); } else { next DISTRO; } } $restored++; } $i++; while (($painted/76) < ($i/@candidates)) { $CPAN::Frontend->myprint("."); $painted++; } } } else { $CPAN::Frontend->myprint("Build_dir empty, nothing to restore\n"); } my $took = CPAN::FTP::_mytime() - $start; $CPAN::Frontend->myprint(sprintf( "DONE\nRestored the state of %s (in %.4f secs)\n", $restored || "none", $took, )); } #-> sub CPAN::Index::reload_x ; sub reload_x { my($cl,$wanted,$localname,$force) = @_; $force |= 2; # means we're dealing with an index here CPAN::HandleConfig->load; # we should guarantee loading wherever # we rely on Config XXX $localname ||= $wanted; my $abs_wanted = File::Spec->catfile($CPAN::Config->{'keep_source_where'}, $localname); if ( -f $abs_wanted && -M $abs_wanted < $CPAN::Config->{'index_expire'} && !($force & 1) ) { my $s = $CPAN::Config->{'index_expire'} == 1 ? "" : "s"; $cl->debug(qq{$abs_wanted younger than $CPAN::Config->{'index_expire'} }. qq{day$s. I\'ll use that.}); return $abs_wanted; } else { $force |= 1; # means we're quite serious about it. } return CPAN::FTP->localize($wanted,$abs_wanted,$force); } #-> sub CPAN::Index::rd_authindex ; sub rd_authindex { my($cl, $index_target) = @_; return unless defined $index_target; return if CPAN::_sqlite_running(); my @lines; $CPAN::Frontend->myprint("Reading '$index_target'\n"); local(*FH); tie *FH, 'CPAN::Tarzip', $index_target; local($/) = "\n"; local($_); push @lines, split /\012/ while <FH>; my $i = 0; my $painted = 0; foreach (@lines) { my($userid,$fullname,$email) = m/alias\s+(\S+)\s+\"([^\"\<]*)\s+\<(.*)\>\"/; $fullname ||= $email; if ($userid && $fullname && $email) { my $userobj = $CPAN::META->instance('CPAN::Author',$userid); $userobj->set('FULLNAME' => $fullname, 'EMAIL' => $email); } else { CPAN->debug(sprintf "line[%s]", $_) if $CPAN::DEBUG; } $i++; while (($painted/76) < ($i/@lines)) { $CPAN::Frontend->myprint("."); $painted++; } return if $CPAN::Signal; } $CPAN::Frontend->myprint("DONE\n"); } sub userid { my($self,$dist) = @_; $dist = $self->{'id'} unless defined $dist; my($ret) = $dist =~ m|(?:\w/\w\w/)?([^/]+)/|; $ret; } #-> sub CPAN::Index::rd_modpacks ; sub rd_modpacks { my($self, $index_target) = @_; return unless defined $index_target; return if CPAN::_sqlite_running(); $CPAN::Frontend->myprint("Reading '$index_target'\n"); my $fh = CPAN::Tarzip->TIEHANDLE($index_target); local $_; CPAN->debug(sprintf "start[%d]", time) if $CPAN::DEBUG; my $slurp = ""; my $chunk; while (my $bytes = $fh->READ(\$chunk,8192)) { $slurp.=$chunk; } my @lines = split /\012/, $slurp; CPAN->debug(sprintf "end[%d]", time) if $CPAN::DEBUG; undef $fh; # read header my($line_count,$last_updated); while (@lines) { my $shift = shift(@lines); last if $shift =~ /^\s*$/; $shift =~ /^Line-Count:\s+(\d+)/ and $line_count = $1; $shift =~ /^Last-Updated:\s+(.+)/ and $last_updated = $1; } CPAN->debug("line_count[$line_count]last_updated[$last_updated]") if $CPAN::DEBUG; my $errors = 0; if (not defined $line_count) { $CPAN::Frontend->mywarn(qq{Warning: Your $index_target does not contain a Line-Count header. Please check the validity of the index file by comparing it to more than one CPAN mirror. I'll continue but problems seem likely to happen.\a }); $errors++; $CPAN::Frontend->mysleep(5); } elsif ($line_count != scalar @lines) { $CPAN::Frontend->mywarn(sprintf qq{Warning: Your %s contains a Line-Count header of %d but I see %d lines there. Please check the validity of the index file by comparing it to more than one CPAN mirror. I'll continue but problems seem likely to happen.\a\n}, $index_target, $line_count, scalar(@lines)); } if (not defined $last_updated) { $CPAN::Frontend->mywarn(qq{Warning: Your $index_target does not contain a Last-Updated header. Please check the validity of the index file by comparing it to more than one CPAN mirror. I'll continue but problems seem likely to happen.\a }); $errors++; $CPAN::Frontend->mysleep(5); } else { $CPAN::Frontend ->myprint(sprintf qq{ Database was generated on %s\n}, $last_updated); $DATE_OF_02 = $last_updated; my $age = time; if ($CPAN::META->has_inst('HTTP::Date')) { require HTTP::Date; $age -= HTTP::Date::str2time($last_updated); } else { $CPAN::Frontend->mywarn(" HTTP::Date not available\n"); require Time::Local; my(@d) = $last_updated =~ / (\d+) (\w+) (\d+) (\d+):(\d+):(\d+) /; $d[1] = index("Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec", $d[1])/4; $age -= $d[1]>=0 ? Time::Local::timegm(@d[5,4,3,0,1,2]) : 0; } $age /= 3600*24; if ($age > 30) { $CPAN::Frontend ->mywarn(sprintf qq{Warning: This index file is %d days old. Please check the host you chose as your CPAN mirror for staleness. I'll continue but problems seem likely to happen.\a\n}, $age); } elsif ($age < -1) { $CPAN::Frontend ->mywarn(sprintf qq{Warning: Your system date is %d days behind this index file! System time: %s Timestamp index file: %s Please fix your system time, problems with the make command expected.\n}, -$age, scalar gmtime, $DATE_OF_02, ); } } # A necessity since we have metadata_cache: delete what isn't # there anymore my $secondtime = $CPAN::META->exists("CPAN::Module","CPAN"); CPAN->debug("secondtime[$secondtime]") if $CPAN::DEBUG; my(%exists); my $i = 0; my $painted = 0; LINE: foreach (@lines) { # before 1.56 we split into 3 and discarded the rest. From # 1.57 we assign remaining text to $comment thus allowing to # influence isa_perl my($mod,$version,$dist,$comment) = split " ", $_, 4; unless ($mod && defined $version && $dist) { require Dumpvalue; my $dv = Dumpvalue->new(tick => '"'); $CPAN::Frontend->mywarn(sprintf "Could not split line[%s]\n", $dv->stringify($_)); if ($errors++ >= 5){ $CPAN::Frontend->mydie("Giving up parsing your $index_target, too many errors"); } next LINE; } my($bundle,$id,$userid); if ($mod eq 'CPAN' && ! ( CPAN::Queue->exists('Bundle::CPAN') || CPAN::Queue->exists('CPAN') ) ) { local($^W)= 0; if ($version > $CPAN::VERSION) { $CPAN::Frontend->mywarn(qq{ New CPAN.pm version (v$version) available. [Currently running version is v$CPAN::VERSION] You might want to try install CPAN reload cpan to both upgrade CPAN.pm and run the new version without leaving the current session. }); #}); $CPAN::Frontend->mysleep(2); $CPAN::Frontend->myprint(qq{\n}); } last if $CPAN::Signal; } elsif ($mod =~ /^Bundle::(.*)/) { $bundle = $1; } if ($bundle) { $id = $CPAN::META->instance('CPAN::Bundle',$mod); # Let's make it a module too, because bundles have so much # in common with modules. # Changed in 1.57_63: seems like memory bloat now without # any value, so commented out # $CPAN::META->instance('CPAN::Module',$mod); } else { # instantiate a module object $id = $CPAN::META->instance('CPAN::Module',$mod); } # Although CPAN prohibits same name with different version the # indexer may have changed the version for the same distro # since the last time ("Force Reindexing" feature) if ($id->cpan_file ne $dist || $id->cpan_version ne $version ) { $userid = $id->userid || $self->userid($dist); $id->set( 'CPAN_USERID' => $userid, 'CPAN_VERSION' => $version, 'CPAN_FILE' => $dist, ); } # instantiate a distribution object if ($CPAN::META->exists('CPAN::Distribution',$dist)) { # we do not need CONTAINSMODS unless we do something with # this dist, so we better produce it on demand. ## my $obj = $CPAN::META->instance( ## 'CPAN::Distribution' => $dist ## ); ## $obj->{CONTAINSMODS}{$mod} = undef; # experimental } else { $CPAN::META->instance( 'CPAN::Distribution' => $dist )->set( 'CPAN_USERID' => $userid, 'CPAN_COMMENT' => $comment, ); } if ($secondtime) { for my $name ($mod,$dist) { # $self->debug("exists name[$name]") if $CPAN::DEBUG; $exists{$name} = undef; } } $i++; while (($painted/76) < ($i/@lines)) { $CPAN::Frontend->myprint("."); $painted++; } return if $CPAN::Signal; } $CPAN::Frontend->myprint("DONE\n"); if ($secondtime) { for my $class (qw(CPAN::Module CPAN::Bundle CPAN::Distribution)) { for my $o ($CPAN::META->all_objects($class)) { next if exists $exists{$o->{ID}}; $CPAN::META->delete($class,$o->{ID}); # CPAN->debug("deleting ID[$o->{ID}] in class[$class]") # if $CPAN::DEBUG; } } } } #-> sub CPAN::Index::rd_modlist ; sub rd_modlist { my($cl,$index_target) = @_; return unless defined $index_target; return if CPAN::_sqlite_running(); $CPAN::Frontend->myprint("Reading '$index_target'\n"); my $fh = CPAN::Tarzip->TIEHANDLE($index_target); local $_; my $slurp = ""; my $chunk; while (my $bytes = $fh->READ(\$chunk,8192)) { $slurp.=$chunk; } my @eval2 = split /\012/, $slurp; while (@eval2) { my $shift = shift(@eval2); if ($shift =~ /^Date:\s+(.*)/) { if ($DATE_OF_03 eq $1) { $CPAN::Frontend->myprint("Unchanged.\n"); return; } ($DATE_OF_03) = $1; } last if $shift =~ /^\s*$/; } push @eval2, q{CPAN::Modulelist->data;}; local($^W) = 0; my($compmt) = Safe->new("CPAN::Safe1"); my($eval2) = join("\n", @eval2); CPAN->debug(sprintf "length of eval2[%d]", length $eval2) if $CPAN::DEBUG; my $ret = $compmt->reval($eval2); Carp::confess($@) if $@; return if $CPAN::Signal; my $i = 0; my $until = keys(%$ret); my $painted = 0; CPAN->debug(sprintf "until[%d]", $until) if $CPAN::DEBUG; for (sort keys %$ret) { my $obj = $CPAN::META->instance("CPAN::Module",$_); delete $ret->{$_}{modid}; # not needed here, maybe elsewhere $obj->set(%{$ret->{$_}}); $i++; while (($painted/76) < ($i/$until)) { $CPAN::Frontend->myprint("."); $painted++; } return if $CPAN::Signal; } $CPAN::Frontend->myprint("DONE\n"); } #-> sub CPAN::Index::write_metadata_cache ; sub write_metadata_cache { my($self) = @_; return unless $CPAN::Config->{'cache_metadata'}; return if CPAN::_sqlite_running(); return unless $CPAN::META->has_usable("Storable"); my $cache; foreach my $k (qw(CPAN::Bundle CPAN::Author CPAN::Module CPAN::Distribution)) { $cache->{$k} = $CPAN::META->{readonly}{$k}; # unsafe meta access, ok } my $metadata_file = File::Spec->catfile($CPAN::Config->{cpan_home},"Metadata"); $cache->{last_time} = $LAST_TIME; $cache->{DATE_OF_02} = $DATE_OF_02; $cache->{PROTOCOL} = PROTOCOL; $CPAN::Frontend->myprint("Writing $metadata_file\n"); eval { Storable::nstore($cache, $metadata_file) }; $CPAN::Frontend->mywarn($@) if $@; # ?? missing "\n" after $@ in mywarn ?? } #-> sub CPAN::Index::read_metadata_cache ; sub read_metadata_cache { my($self) = @_; return unless $CPAN::Config->{'cache_metadata'}; return if CPAN::_sqlite_running(); return unless $CPAN::META->has_usable("Storable"); my $metadata_file = File::Spec->catfile($CPAN::Config->{cpan_home},"Metadata"); return unless -r $metadata_file and -f $metadata_file; $CPAN::Frontend->myprint("Reading '$metadata_file'\n"); my $cache; eval { $cache = Storable::retrieve($metadata_file) }; $CPAN::Frontend->mywarn($@) if $@; # ?? missing "\n" after $@ in mywarn ?? if (!$cache || !UNIVERSAL::isa($cache, 'HASH')) { $LAST_TIME = 0; return; } if (exists $cache->{PROTOCOL}) { if (PROTOCOL > $cache->{PROTOCOL}) { $CPAN::Frontend->mywarn(sprintf("Ignoring Metadata cache written ". "with protocol v%s, requiring v%s\n", $cache->{PROTOCOL}, PROTOCOL) ); return; } } else { $CPAN::Frontend->mywarn("Ignoring Metadata cache written ". "with protocol v1.0\n"); return; } my $clcnt = 0; my $idcnt = 0; while(my($class,$v) = each %$cache) { next unless $class =~ /^CPAN::/; $CPAN::META->{readonly}{$class} = $v; # unsafe meta access, ok while (my($id,$ro) = each %$v) { $CPAN::META->{readwrite}{$class}{$id} ||= $class->new(ID=>$id, RO=>$ro); $idcnt++; } $clcnt++; } unless ($clcnt) { # sanity check $CPAN::Frontend->myprint("Warning: Found no data in $metadata_file\n"); return; } if ($idcnt < 1000) { $CPAN::Frontend->myprint("Warning: Found only $idcnt objects ". "in $metadata_file\n"); return; } $CPAN::META->{PROTOCOL} ||= $cache->{PROTOCOL}; # reading does not up or downgrade, but it # does initialize to some protocol $LAST_TIME = $cache->{last_time}; $DATE_OF_02 = $cache->{DATE_OF_02}; $CPAN::Frontend->myprint(" Database was generated on $DATE_OF_02\n") if defined $DATE_OF_02; # An old cache may not contain DATE_OF_02 return; } 1; PK ! ���L � � 5.34.0/CPAN/FTP.pmnu �[��� # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- # vim: ts=4 sts=4 sw=4: package CPAN::FTP; use strict; use Errno (); use Fcntl qw(:flock); use File::Basename qw(dirname); use File::Path qw(mkpath); use CPAN::FTP::netrc; use vars qw($connect_to_internet_ok $Ua $Thesite $ThesiteURL $Themethod); @CPAN::FTP::ISA = qw(CPAN::Debug); use vars qw( $VERSION ); $VERSION = "5.5013"; sub _plus_append_open { my($fh, $file) = @_; my $parent_dir = dirname $file; mkpath $parent_dir; my($cnt); until (open $fh, "+>>$file") { next if exists &Errno::EAGAIN && $! == &Errno::EAGAIN; # don't increment on EAGAIN $CPAN::Frontend->mydie("Could not open '$file' after 10000 tries: $!") if ++$cnt > 100000; sleep 0.0001; mkpath $parent_dir; } } #-> sub CPAN::FTP::ftp_statistics # if they want to rewrite, they need to pass in a filehandle sub _ftp_statistics { my($self,$fh) = @_; my $ftpstats_size = $CPAN::Config->{ftpstats_size}; return if defined $ftpstats_size && $ftpstats_size <= 0; my $locktype = $fh ? LOCK_EX : LOCK_SH; # XXX On Windows flock() implements mandatory locking, so we can # XXX only use shared locking to still allow _yaml_loadfile() to # XXX read from the file using a different filehandle. $locktype = LOCK_SH if $^O eq "MSWin32"; $fh ||= FileHandle->new; my $file = File::Spec->catfile($CPAN::Config->{cpan_home},"FTPstats.yml"); _plus_append_open($fh,$file); my $sleep = 1; my $waitstart; while (!CPAN::_flock($fh, $locktype|LOCK_NB)) { $waitstart ||= localtime(); if ($sleep>3) { my $now = localtime(); $CPAN::Frontend->mywarn("$now: waiting for read lock on '$file' (since $waitstart)\n"); } sleep($sleep); # this sleep must not be overridden; # Frontend->mysleep with AUTOMATED_TESTING has # provoked complete lock contention on my NFS if ($sleep <= 6) { $sleep+=0.5; } else { # retry to get a fresh handle. If it is NFS and the handle is stale, we will never get an flock _plus_append_open($fh, $file); } } my $stats = eval { CPAN->_yaml_loadfile($file); }; if ($@) { if (ref $@) { if (ref $@ eq "CPAN::Exception::yaml_not_installed") { chomp $@; $CPAN::Frontend->myprintonce("Warning (usually harmless): $@\n"); return; } elsif (ref $@ eq "CPAN::Exception::yaml_process_error") { my $time = time; my $to = "$file.$time"; $CPAN::Frontend->mywarn("Error reading '$file': $@ Trying to stash it away as '$to' to prevent further interruptions. You may want to remove that file later.\n"); # may fail because somebody else has moved it away in the meantime: rename $file, $to or $CPAN::Frontend->mywarn("Could not rename '$file' to '$to': $!\n"); return; } } else { $CPAN::Frontend->mydie($@); } } CPAN::_flock($fh, LOCK_UN); return $stats->[0]; } #-> sub CPAN::FTP::_mytime sub _mytime () { if (CPAN->has_inst("Time::HiRes")) { return Time::HiRes::time(); } else { return time; } } #-> sub CPAN::FTP::_new_stats sub _new_stats { my($self,$file) = @_; my $ret = { file => $file, attempts => [], start => _mytime, }; $ret; } #-> sub CPAN::FTP::_add_to_statistics sub _add_to_statistics { my($self,$stats) = @_; my $yaml_module = CPAN::_yaml_module(); $self->debug("yaml_module[$yaml_module]") if $CPAN::DEBUG; if ($CPAN::META->has_inst($yaml_module)) { $stats->{thesiteurl} = $ThesiteURL; $stats->{end} = CPAN::FTP::_mytime(); my $fh = FileHandle->new; my $time = time; my $sdebug = 0; my @debug; @debug = $time if $sdebug; my $fullstats = $self->_ftp_statistics($fh); close $fh if $fh && defined(fileno($fh)); $fullstats->{history} ||= []; push @debug, scalar @{$fullstats->{history}} if $sdebug; push @debug, time if $sdebug; push @{$fullstats->{history}}, $stats; # YAML.pm 0.62 is unacceptably slow with 999; # YAML::Syck 0.82 has no noticable performance problem with 999; my $ftpstats_size = $CPAN::Config->{ftpstats_size}; $ftpstats_size = 99 unless defined $ftpstats_size; my $ftpstats_period = $CPAN::Config->{ftpstats_period} || 14; while ( @{$fullstats->{history} || []} && ( @{$fullstats->{history}} > $ftpstats_size || $time - $fullstats->{history}[0]{start} > 86400*$ftpstats_period ) ) { shift @{$fullstats->{history}} } push @debug, scalar @{$fullstats->{history}} if $sdebug; push @debug, time if $sdebug; push @debug, scalar localtime($fullstats->{history}[0]{start}) if $sdebug; # need no eval because if this fails, it is serious my $sfile = File::Spec->catfile($CPAN::Config->{cpan_home},"FTPstats.yml"); CPAN->_yaml_dumpfile("$sfile.$$",$fullstats); if ( $sdebug ) { local $CPAN::DEBUG = 512; # FTP push @debug, time; CPAN->debug(sprintf("DEBUG history: before_read[%d]before[%d]at[%d]". "after[%d]at[%d]oldest[%s]dumped backat[%d]", @debug, )); } # Win32 cannot rename a file to an existing filename unlink($sfile) if ($^O eq 'MSWin32' or $^O eq 'os2'); _copy_stat($sfile, "$sfile.$$") if -e $sfile; rename "$sfile.$$", $sfile or $CPAN::Frontend->mywarn("Could not rename '$sfile.$$' to '$sfile': $!\nGiving up\n"); } } # Copy some stat information (owner, group, mode and) from one file to # another. # This is a utility function which might be moved to a utility repository. #-> sub CPAN::FTP::_copy_stat sub _copy_stat { my($src, $dest) = @_; my @stat = stat($src); if (!@stat) { $CPAN::Frontend->mywarn("Can't stat '$src': $!\n"); return; } eval { chmod $stat[2], $dest or $CPAN::Frontend->mywarn("Can't chmod '$dest' to " . sprintf("0%o", $stat[2]) . ": $!\n"); }; warn $@ if $@; eval { chown $stat[4], $stat[5], $dest or do { my $save_err = $!; # otherwise it's lost in the get... calls $CPAN::Frontend->mywarn("Can't chown '$dest' to " . (getpwuid($stat[4]))[0] . "/" . (getgrgid($stat[5]))[0] . ": $save_err\n" ); }; }; warn $@ if $@; } # if file is CHECKSUMS, suggest the place where we got the file to be # checked from, maybe only for young files? #-> sub CPAN::FTP::_recommend_url_for sub _recommend_url_for { my($self, $file, $urllist) = @_; if ($file =~ s|/CHECKSUMS(.gz)?$||) { my $fullstats = $self->_ftp_statistics(); my $history = $fullstats->{history} || []; while (my $last = pop @$history) { last if $last->{end} - time > 3600; # only young results are interesting next unless $last->{file}; # dirname of nothing dies! next unless $file eq dirname($last->{file}); return $last->{thesiteurl}; } } if ($CPAN::Config->{randomize_urllist} && rand(1) < $CPAN::Config->{randomize_urllist} ) { $urllist->[int rand scalar @$urllist]; } else { return (); } } #-> sub CPAN::FTP::_get_urllist sub _get_urllist { my($self, $with_defaults) = @_; $with_defaults ||= 0; CPAN->debug("with_defaults[$with_defaults]") if $CPAN::DEBUG; $CPAN::Config->{urllist} ||= []; unless (ref $CPAN::Config->{urllist} eq 'ARRAY') { $CPAN::Frontend->mywarn("Malformed urllist; ignoring. Configuration file corrupt?\n"); $CPAN::Config->{urllist} = []; } my @urllist = grep { defined $_ and length $_ } @{$CPAN::Config->{urllist}}; push @urllist, @CPAN::Defaultsites if $with_defaults; for my $u (@urllist) { CPAN->debug("u[$u]") if $CPAN::DEBUG; if (UNIVERSAL::can($u,"text")) { $u->{TEXT} .= "/" unless substr($u->{TEXT},-1) eq "/"; } else { $u .= "/" unless substr($u,-1) eq "/"; $u = CPAN::URL->new(TEXT => $u, FROM => "USER"); } } \@urllist; } #-> sub CPAN::FTP::ftp_get ; sub ftp_get { my($class,$host,$dir,$file,$target) = @_; $class->debug( qq[Going to fetch file [$file] from dir [$dir] on host [$host] as local [$target]\n] ) if $CPAN::DEBUG; my $ftp = Net::FTP->new($host); unless ($ftp) { $CPAN::Frontend->mywarn(" Could not connect to host '$host' with Net::FTP\n"); return; } return 0 unless defined $ftp; $ftp->debug(1) if $CPAN::DEBUG{'FTP'} & $CPAN::DEBUG; $class->debug(qq[Going to login("anonymous","$Config::Config{cf_email}")]); unless ( $ftp->login("anonymous",$Config::Config{'cf_email'}) ) { my $msg = $ftp->message; $CPAN::Frontend->mywarn(" Couldn't login on $host: $msg\n"); return; } unless ( $ftp->cwd($dir) ) { my $msg = $ftp->message; $CPAN::Frontend->mywarn(" Couldn't cwd $dir: $msg\n"); return; } $ftp->binary; $class->debug(qq[Going to ->get("$file","$target")\n]) if $CPAN::DEBUG; unless ( $ftp->get($file,$target) ) { my $msg = $ftp->message; $CPAN::Frontend->mywarn(" Couldn't fetch $file from $host: $msg\n"); return; } $ftp->quit; # it's ok if this fails return 1; } # If more accuracy is wanted/needed, Chris Leach sent me this patch... # > *** /install/perl/live/lib/CPAN.pm- Wed Sep 24 13:08:48 1997 # > --- /tmp/cp Wed Sep 24 13:26:40 1997 # > *************** # > *** 1562,1567 **** # > --- 1562,1580 ---- # > return 1 if substr($url,0,4) eq "file"; # > return 1 unless $url =~ m|://([^/]+)|; # > my $host = $1; # > + my $proxy = $CPAN::Config->{'http_proxy'} || $ENV{'http_proxy'}; # > + if ($proxy) { # > + $proxy =~ m|://([^/:]+)|; # > + $proxy = $1; # > + my $noproxy = $CPAN::Config->{'no_proxy'} || $ENV{'no_proxy'}; # > + if ($noproxy) { # > + if ($host !~ /$noproxy$/) { # > + $host = $proxy; # > + } # > + } else { # > + $host = $proxy; # > + } # > + } # > require Net::Ping; # > return 1 unless $Net::Ping::VERSION >= 2; # > my $p; #-> sub CPAN::FTP::localize ; sub localize { my($self,$file,$aslocal,$force,$with_defaults) = @_; $force ||= 0; Carp::croak( "Usage: ->localize(cpan_file,as_local_file[,\$force])" ) unless defined $aslocal; if ($CPAN::DEBUG){ require Carp; my $longmess = Carp::longmess(); $self->debug("file[$file] aslocal[$aslocal] force[$force] carplongmess[$longmess]"); } if ($^O eq 'MacOS') { # Comment by AK on 2000-09-03: Uniq short filenames would be # available in CHECKSUMS file my($name, $path) = File::Basename::fileparse($aslocal, ''); if (length($name) > 31) { $name =~ s/( \.( readme(\.(gz|Z))? | (tar\.)?(gz|Z) | tgz | zip | pm\.(gz|Z) ) )$//x; my $suf = $1; my $size = 31 - length($suf); while (length($name) > $size) { chop $name; } $name .= $suf; $aslocal = File::Spec->catfile($path, $name); } } if (-f $aslocal && -r _ && !($force & 1)) { my $size; if ($size = -s $aslocal) { $self->debug("aslocal[$aslocal]size[$size]") if $CPAN::DEBUG; return $aslocal; } else { # empty file from a previous unsuccessful attempt to download it unlink $aslocal or $CPAN::Frontend->mydie("Found a zero-length '$aslocal' that I ". "could not remove."); } } my($maybe_restore) = 0; if (-f $aslocal) { rename $aslocal, "$aslocal.bak$$"; $maybe_restore++; } my($aslocal_dir) = dirname($aslocal); # Inheritance is not easier to manage than a few if/else branches if ($CPAN::META->has_usable('LWP::UserAgent')) { unless ($Ua) { CPAN::LWP::UserAgent->config; eval {$Ua = CPAN::LWP::UserAgent->new;}; # Why is has_usable still not fit enough? if ($@) { $CPAN::Frontend->mywarn("CPAN::LWP::UserAgent->new dies with $@\n") if $CPAN::DEBUG; } else { my($var); $Ua->proxy('ftp', $var) if $var = $CPAN::Config->{ftp_proxy} || $ENV{ftp_proxy}; $Ua->proxy('http', $var) if $var = $CPAN::Config->{http_proxy} || $ENV{http_proxy}; $Ua->no_proxy($var) if $var = $CPAN::Config->{no_proxy} || $ENV{no_proxy}; } } } for my $prx (qw(ftp_proxy http_proxy no_proxy)) { $ENV{$prx} = $CPAN::Config->{$prx} if $CPAN::Config->{$prx}; } # Try the list of urls for each single object. We keep a record # where we did get a file from my(@reordered,$last); my $ccurllist = $self->_get_urllist($with_defaults); $last = $#$ccurllist; if ($force & 2) { # local cpans probably out of date, don't reorder @reordered = (0..$last); } else { @reordered = sort { (substr($ccurllist->[$b],0,4) eq "file") <=> (substr($ccurllist->[$a],0,4) eq "file") or defined($ThesiteURL) and ($ccurllist->[$b] eq $ThesiteURL) <=> ($ccurllist->[$a] eq $ThesiteURL) } 0..$last; } my(@levels); $Themethod ||= ""; $self->debug("Themethod[$Themethod]reordered[@reordered]") if $CPAN::DEBUG; my @all_levels = ( ["dleasy", "file"], ["dleasy"], ["dlhard"], ["dlhardest"], ["dleasy", "http","defaultsites"], ["dlhard", "http","defaultsites"], ["dleasy", "ftp", "defaultsites"], ["dlhard", "ftp", "defaultsites"], ["dlhardest","", "defaultsites"], ); if ($Themethod) { @levels = grep {$_->[0] eq $Themethod} @all_levels; push @levels, grep {$_->[0] ne $Themethod} @all_levels; } else { @levels = @all_levels; } @levels = qw/dleasy/ if $^O eq 'MacOS'; my($levelno); local $ENV{FTP_PASSIVE} = exists $CPAN::Config->{ftp_passive} ? $CPAN::Config->{ftp_passive} : 1; my $ret; my $stats = $self->_new_stats($file); for ($CPAN::Config->{connect_to_internet_ok}) { $connect_to_internet_ok = $_ if not defined $connect_to_internet_ok and defined $_; } LEVEL: for $levelno (0..$#levels) { my $level_tuple = $levels[$levelno]; my($level,$scheme,$sitetag) = @$level_tuple; $self->mymkpath($aslocal_dir) unless $scheme && "file" eq $scheme; my $defaultsites = $sitetag && $sitetag eq "defaultsites" && !@$ccurllist; my @urllist; if ($defaultsites) { unless (defined $connect_to_internet_ok) { $CPAN::Frontend->myprint(sprintf qq{ I would like to connect to one of the following sites to get '%s': %s }, $file, join("",map { " ".$_->text."\n" } @CPAN::Defaultsites), ); my $answer = CPAN::Shell::colorable_makemaker_prompt("Is it OK to try to connect to the Internet?", "yes"); if ($answer =~ /^y/i) { $connect_to_internet_ok = 1; } else { $connect_to_internet_ok = 0; } } if ($connect_to_internet_ok) { @urllist = @CPAN::Defaultsites; } else { my $sleep = 2; # the tricky thing about dying here is that everybody # believes that calls to exists() or all_objects() are # safe. require CPAN::Exception::blocked_urllist; die CPAN::Exception::blocked_urllist->new; } } else { # ! $defaultsites my @host_seq = $level =~ /dleasy/ ? @reordered : 0..$last; # reordered has file and $Thesiteurl first @urllist = map { $ccurllist->[$_] } @host_seq; } $self->debug("synth. urllist[@urllist]") if $CPAN::DEBUG; my $aslocal_tempfile = $aslocal . ".tmp" . $$; if (my $recommend = $self->_recommend_url_for($file,\@urllist)) { @urllist = grep { $_ ne $recommend } @urllist; unshift @urllist, $recommend; } $self->debug("synth. urllist[@urllist]") if $CPAN::DEBUG; $ret = $self->hostdlxxx($level,$scheme,\@urllist,$file,$aslocal_tempfile,$stats); if ($ret) { CPAN->debug("ret[$ret]aslocal[$aslocal]") if $CPAN::DEBUG; if ($ret eq $aslocal_tempfile) { # if we got it exactly as we asked for, only then we # want to rename rename $aslocal_tempfile, $aslocal or $CPAN::Frontend->mydie("Error while trying to rename ". "'$ret' to '$aslocal': $!"); $ret = $aslocal; } elsif (-f $ret && $scheme eq 'file' ) { # it's a local file, so there's nothing left to do, we # let them read from where it is } $Themethod = $level; my $now = time; # utime $now, $now, $aslocal; # too bad, if we do that, we # might alter a local mirror $self->debug("level[$level]") if $CPAN::DEBUG; last LEVEL; } else { unlink $aslocal_tempfile; last if $CPAN::Signal; # need to cleanup } } if ($ret) { $stats->{filesize} = -s $ret; } $self->debug("before _add_to_statistics") if $CPAN::DEBUG; $self->_add_to_statistics($stats); $self->debug("after _add_to_statistics") if $CPAN::DEBUG; if ($ret) { unlink "$aslocal.bak$$"; return $ret; } unless ($CPAN::Signal) { my(@mess); local $" = " "; if (@{$CPAN::Config->{urllist}}) { push @mess, qq{Please check, if the URLs I found in your configuration file \(}. join(", ", @{$CPAN::Config->{urllist}}). qq{\) are valid.}; } else { push @mess, qq{Your urllist is empty!}; } push @mess, qq{The urllist can be edited.}, qq{E.g. with 'o conf urllist push ftp://myurl/'}; $CPAN::Frontend->mywarn(Text::Wrap::wrap("","","@mess"). "\n\n"); $CPAN::Frontend->mydie("Could not fetch $file\n"); } if ($maybe_restore) { rename "$aslocal.bak$$", $aslocal; $CPAN::Frontend->myprint("Trying to get away with old file:\n" . $self->ls($aslocal) . "\n"); return $aslocal; } return; } sub mymkpath { my($self, $aslocal_dir) = @_; mkpath($aslocal_dir); $CPAN::Frontend->mywarn(qq{Warning: You are not allowed to write into }. qq{directory "$aslocal_dir". I\'ll continue, but if you encounter problems, they may be due to insufficient permissions.\n}) unless -w $aslocal_dir; } sub hostdlxxx { my $self = shift; my $level = shift; my $scheme = shift; my $h = shift; $h = [ grep /^\Q$scheme\E:/, @$h ] if $scheme; my $method = "host$level"; $self->$method($h, @_); } sub _set_attempt { my($self,$stats,$method,$url) = @_; push @{$stats->{attempts}}, { method => $method, start => _mytime, url => $url, }; } # package CPAN::FTP; sub hostdleasy { #called from hostdlxxx my($self,$host_seq,$file,$aslocal,$stats) = @_; my($ro_url); HOSTEASY: for $ro_url (@$host_seq) { $self->_set_attempt($stats,"dleasy",$ro_url); my $url = "$ro_url$file"; $self->debug("localizing perlish[$url]") if $CPAN::DEBUG; if ($url =~ /^file:/) { my $l; if ($CPAN::META->has_inst('URI::URL')) { my $u = URI::URL->new($url); $l = $u->file; } else { # works only on Unix, is poorly constructed, but # hopefully better than nothing. # RFC 1738 says fileurl BNF is # fileurl = "file://" [ host | "localhost" ] "/" fpath # Thanks to "Mark D. Baushke" <mdb@cisco.com> for # the code ($l = $url) =~ s|^file://[^/]*/|/|; # discard the host part $l =~ s|^file:||; # assume they # meant # file://localhost $l =~ s|^/||s if ! -f $l && $l =~ m|^/\w:|; # e.g. /P: } $self->debug("local file[$l]") if $CPAN::DEBUG; if ( -f $l && -r _) { $ThesiteURL = $ro_url; return $l; } # If request is for a compressed file and we can find the # uncompressed file also, return the path of the uncompressed file # otherwise, decompress it and return the resulting path if ($l =~ /(.+)\.gz$/) { my $ungz = $1; if ( -f $ungz && -r _) { $ThesiteURL = $ro_url; return $ungz; } elsif (-f $l && -r _) { eval { CPAN::Tarzip->new($l)->gunzip($aslocal) }; if ( -f $aslocal && -s _) { $ThesiteURL = $ro_url; return $aslocal; } elsif (! -s $aslocal) { unlink $aslocal; } elsif (-f $l) { $CPAN::Frontend->mywarn("Error decompressing '$l': $@\n") if $@; return; } } } # Otherwise, return the local file path if it exists elsif ( -f $l && -r _) { $ThesiteURL = $ro_url; return $l; } # If we can't find it, but there is a compressed version # of it, then decompress it elsif (-f "$l.gz") { $self->debug("found compressed $l.gz") if $CPAN::DEBUG; eval { CPAN::Tarzip->new("$l.gz")->gunzip($aslocal) }; if ( -f $aslocal) { $ThesiteURL = $ro_url; return $aslocal; } else { $CPAN::Frontend->mywarn("Error decompressing '$l': $@\n") if $@; return; } } $CPAN::Frontend->mywarn("Could not find '$l'\n"); } $self->debug("it was not a file URL") if $CPAN::DEBUG; if ($CPAN::META->has_usable('LWP')) { $CPAN::Frontend->myprint("Fetching with LWP:\n$url\n"); unless ($Ua) { CPAN::LWP::UserAgent->config; eval { $Ua = CPAN::LWP::UserAgent->new; }; if ($@) { $CPAN::Frontend->mywarn("CPAN::LWP::UserAgent->new dies with $@\n"); } } my $res = $Ua->mirror($url, $aslocal); if ($res->is_success) { $ThesiteURL = $ro_url; my $now = time; utime $now, $now, $aslocal; # download time is more # important than upload # time return $aslocal; } elsif ($url !~ /\.gz(?!\n)\Z/) { my $gzurl = "$url.gz"; $CPAN::Frontend->myprint("Fetching with LWP:\n$gzurl\n"); $res = $Ua->mirror($gzurl, "$aslocal.gz"); if ($res->is_success) { if (eval {CPAN::Tarzip->new("$aslocal.gz")->gunzip($aslocal)}) { $ThesiteURL = $ro_url; return $aslocal; } } } else { $CPAN::Frontend->myprint(sprintf( "LWP failed with code[%s] message[%s]\n", $res->code, $res->message, )); # Alan Burlison informed me that in firewall environments # Net::FTP can still succeed where LWP fails. So we do not # skip Net::FTP anymore when LWP is available. } } elsif ($url =~ /^http:/i && $CPAN::META->has_usable('HTTP::Tiny')) { require CPAN::HTTP::Client; my $chc = CPAN::HTTP::Client->new( proxy => $CPAN::Config->{http_proxy} || $ENV{http_proxy}, no_proxy => $CPAN::Config->{no_proxy} || $ENV{no_proxy}, ); for my $try ( $url, ( $url !~ /\.gz(?!\n)\Z/ ? "$url.gz" : () ) ) { $CPAN::Frontend->myprint("Fetching with HTTP::Tiny:\n$try\n"); my $res = eval { $chc->mirror($try, $aslocal) }; if ( $res && $res->{success} ) { $ThesiteURL = $ro_url; my $now = time; utime $now, $now, $aslocal; # download time is more # important than upload # time return $aslocal; } elsif ( $res && $res->{status} ne '599') { $CPAN::Frontend->myprint(sprintf( "HTTP::Tiny failed with code[%s] message[%s]\n", $res->{status}, $res->{reason}, ) ); } elsif ( $res && $res->{status} eq '599') { $CPAN::Frontend->myprint(sprintf( "HTTP::Tiny failed with an internal error: %s\n", $res->{content}, ) ); } else { my $err = $@ || 'Unknown error'; $CPAN::Frontend->myprint(sprintf( "Error downloading with HTTP::Tiny: %s\n", $err ) ); } } } return if $CPAN::Signal; if ($url =~ m|^ftp://(.*?)/(.*)/(.*)|) { # that's the nice and easy way thanks to Graham $self->debug("recognized ftp") if $CPAN::DEBUG; my($host,$dir,$getfile) = ($1,$2,$3); if ($CPAN::META->has_usable('Net::FTP')) { $dir =~ s|/+|/|g; $CPAN::Frontend->myprint("Fetching with Net::FTP:\n$url\n"); $self->debug("getfile[$getfile]dir[$dir]host[$host]" . "aslocal[$aslocal]") if $CPAN::DEBUG; if (CPAN::FTP->ftp_get($host,$dir,$getfile,$aslocal)) { $ThesiteURL = $ro_url; return $aslocal; } if ($aslocal !~ /\.gz(?!\n)\Z/) { my $gz = "$aslocal.gz"; $CPAN::Frontend->myprint("Fetching with Net::FTP\n$url.gz\n"); if (CPAN::FTP->ftp_get($host, $dir, "$getfile.gz", $gz) && eval{CPAN::Tarzip->new($gz)->gunzip($aslocal)} ) { $ThesiteURL = $ro_url; return $aslocal; } } # next HOSTEASY; } else { CPAN->debug("Net::FTP does not count as usable atm") if $CPAN::DEBUG; } } if ( UNIVERSAL::can($ro_url,"text") and $ro_url->{FROM} eq "USER" ) { ##address #17973: default URLs should not try to override ##user-defined URLs just because LWP is not available my $ret = $self->hostdlhard([$ro_url],$file,$aslocal,$stats); return $ret if $ret; } return if $CPAN::Signal; } } # package CPAN::FTP; sub hostdlhard { my($self,$host_seq,$file,$aslocal,$stats) = @_; # Came back if Net::FTP couldn't establish connection (or # failed otherwise) Maybe they are behind a firewall, but they # gave us a socksified (or other) ftp program... my($ro_url); my($devnull) = $CPAN::Config->{devnull} || ""; # < /dev/null "; my($aslocal_dir) = dirname($aslocal); mkpath($aslocal_dir); my $some_dl_success = 0; my $any_attempt = 0; HOSTHARD: for $ro_url (@$host_seq) { $self->_set_attempt($stats,"dlhard",$ro_url); my $url = "$ro_url$file"; my($proto,$host,$dir,$getfile); # Courtesy Mark Conty mark_conty@cargill.com change from # if ($url =~ m|^ftp://(.*?)/(.*)/(.*)|) { # to if ($url =~ m|^([^:]+)://(.*?)/(.*)/(.*)|) { # proto not yet used ($proto,$host,$dir,$getfile) = ($1,$2,$3,$4); } else { next HOSTHARD; # who said, we could ftp anything except ftp? } next HOSTHARD if $proto eq "file"; # file URLs would have had # success above. Likely a bogus URL # making at least one attempt against a host $any_attempt++; $self->debug("localizing funkyftpwise[$url]") if $CPAN::DEBUG; # Try the most capable first and leave ncftp* for last as it only # does FTP. my $proxy_vars = $self->_proxy_vars($ro_url); DLPRG: for my $f (qw(curl wget lynx ncftpget ncftp)) { my $funkyftp = CPAN::HandleConfig->safe_quote($CPAN::Config->{$f}); next DLPRG unless defined $funkyftp; next DLPRG if $funkyftp =~ /^\s*$/; my($src_switch) = ""; my($chdir) = ""; my($stdout_redir) = " > \"$aslocal\""; if ($f eq "lynx") { $src_switch = " -source"; } elsif ($f eq "ncftp") { next DLPRG unless $url =~ m{\Aftp://}; $src_switch = " -c"; } elsif ($f eq "wget") { $src_switch = " -O \"$aslocal\""; $stdout_redir = ""; } elsif ($f eq 'curl') { $src_switch = ' -L -f -s -S --netrc-optional'; if ($proxy_vars->{http_proxy}) { $src_switch .= qq{ -U "$proxy_vars->{proxy_user}:$proxy_vars->{proxy_pass}" -x "$proxy_vars->{http_proxy}"}; } } elsif ($f eq "ncftpget") { next DLPRG unless $url =~ m{\Aftp://}; $chdir = "cd $aslocal_dir && "; $stdout_redir = ""; } $CPAN::Frontend->myprint( qq[ Trying with $funkyftp$src_switch to get $url ]); my($system) = "$chdir$funkyftp$src_switch \"$url\" $devnull$stdout_redir"; $self->debug("system[$system]") if $CPAN::DEBUG; my($wstatus) = system($system); if ($f eq "lynx") { # lynx returns 0 when it fails somewhere if (-s $aslocal) { my $content = do { local *FH; open FH, $aslocal or die; local $/; <FH> }; if ($content =~ /^<.*(<title>[45]|Error [45])/si) { $CPAN::Frontend->mywarn(qq{ No success, the file that lynx has downloaded looks like an error message: $content }); $CPAN::Frontend->mysleep(1); next DLPRG; } $some_dl_success++; } else { $CPAN::Frontend->myprint(qq{ No success, the file that lynx has downloaded is an empty file. }); next DLPRG; } } if ($wstatus == 0) { if (-s $aslocal) { # Looks good $some_dl_success++; } $ThesiteURL = $ro_url; return $aslocal; } else { my $estatus = $wstatus >> 8; my $size = -f $aslocal ? ", left\n$aslocal with size ".-s _ : "\nWarning: expected file [$aslocal] doesn't exist"; $CPAN::Frontend->myprint(qq{ Function system("$system") returned status $estatus (wstat $wstatus)$size }); } return if $CPAN::Signal; } # download/transfer programs (DLPRG) } # host return unless $any_attempt; if ($some_dl_success) { $CPAN::Frontend->mywarn("Warning: doesn't seem we had substantial success downloading '$aslocal'. Don't know how to proceed.\n"); } else { $CPAN::Frontend->mywarn("Warning: no success downloading '$aslocal'. Giving up on it.\n"); } return; } #-> CPAN::FTP::_proxy_vars sub _proxy_vars { my($self,$url) = @_; my $ret = +{}; my $http_proxy = $CPAN::Config->{'http_proxy'} || $ENV{'http_proxy'}; if ($http_proxy) { my($host) = $url =~ m|://([^/:]+)|; my $want_proxy = 1; my $noproxy = $CPAN::Config->{'no_proxy'} || $ENV{'no_proxy'} || ""; my @noproxy = split /\s*,\s*/, $noproxy; if ($host) { DOMAIN: for my $domain (@noproxy) { if ($host =~ /\Q$domain\E$/) { # cf. LWP::UserAgent $want_proxy = 0; last DOMAIN; } } } else { $CPAN::Frontend->mywarn(" Could not determine host from http_proxy '$http_proxy'\n"); } if ($want_proxy) { my($user, $pass) = CPAN::HTTP::Credentials->get_proxy_credentials(); $ret = { proxy_user => $user, proxy_pass => $pass, http_proxy => $http_proxy }; } } return $ret; } # package CPAN::FTP; sub hostdlhardest { my($self,$host_seq,$file,$aslocal,$stats) = @_; return unless @$host_seq; my($ro_url); my($aslocal_dir) = dirname($aslocal); mkpath($aslocal_dir); my $ftpbin = $CPAN::Config->{ftp}; unless ($ftpbin && length $ftpbin && MM->maybe_command($ftpbin)) { $CPAN::Frontend->myprint("No external ftp command available\n\n"); return; } $CPAN::Frontend->mywarn(qq{ As a last resort we now switch to the external ftp command '$ftpbin' to get '$aslocal'. Doing so often leads to problems that are hard to diagnose. If you're the victim of such problems, please consider unsetting the ftp config variable with o conf ftp "" o conf commit }); $CPAN::Frontend->mysleep(2); HOSTHARDEST: for $ro_url (@$host_seq) { $self->_set_attempt($stats,"dlhardest",$ro_url); my $url = "$ro_url$file"; $self->debug("localizing ftpwise[$url]") if $CPAN::DEBUG; unless ($url =~ m|^ftp://(.*?)/(.*)/(.*)|) { next; } my($host,$dir,$getfile) = ($1,$2,$3); my $timestamp = 0; my($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime, $ctime,$blksize,$blocks) = stat($aslocal); $timestamp = $mtime ||= 0; my($netrc) = CPAN::FTP::netrc->new; my($netrcfile) = $netrc->netrc; my($verbose) = $CPAN::DEBUG{'FTP'} & $CPAN::DEBUG ? " -v" : ""; my $targetfile = File::Basename::basename($aslocal); my(@dialog); push( @dialog, "lcd $aslocal_dir", "cd /", map("cd $_", split /\//, $dir), # RFC 1738 "bin", "passive", "get $getfile $targetfile", "quit" ); if (! $netrcfile) { CPAN->debug("No ~/.netrc file found") if $CPAN::DEBUG; } elsif ($netrc->hasdefault || $netrc->contains($host)) { CPAN->debug(sprintf("hasdef[%d]cont($host)[%d]", $netrc->hasdefault, $netrc->contains($host))) if $CPAN::DEBUG; if ($netrc->protected) { my $dialog = join "", map { " $_\n" } @dialog; my $netrc_explain; if ($netrc->contains($host)) { $netrc_explain = "Relying that your .netrc entry for '$host' ". "manages the login"; } else { $netrc_explain = "Relying that your default .netrc entry ". "manages the login"; } $CPAN::Frontend->myprint(qq{ Trying with external ftp to get '$url' $netrc_explain Sending the dialog $dialog } ); $self->talk_ftp("$ftpbin$verbose $host", @dialog); ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) = stat($aslocal); $mtime ||= 0; if ($mtime > $timestamp) { $CPAN::Frontend->myprint("GOT $aslocal\n"); $ThesiteURL = $ro_url; return $aslocal; } else { $CPAN::Frontend->myprint("Hmm... Still failed!\n"); } return if $CPAN::Signal; } else { $CPAN::Frontend->mywarn(qq{Your $netrcfile is not }. qq{correctly protected.\n}); } } else { $CPAN::Frontend->mywarn("Your ~/.netrc neither contains $host nor does it have a default entry\n"); } # OK, they don't have a valid ~/.netrc. Use 'ftp -n' # then and login manually to host, using e-mail as # password. $CPAN::Frontend->myprint(qq{Issuing "$ftpbin$verbose -n"\n}); unshift( @dialog, "open $host", "user anonymous $Config::Config{'cf_email'}" ); my $dialog = join "", map { " $_\n" } @dialog; $CPAN::Frontend->myprint(qq{ Trying with external ftp to get $url Sending the dialog $dialog } ); $self->talk_ftp("$ftpbin$verbose -n", @dialog); ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) = stat($aslocal); $mtime ||= 0; if ($mtime > $timestamp) { $CPAN::Frontend->myprint("GOT $aslocal\n"); $ThesiteURL = $ro_url; return $aslocal; } else { $CPAN::Frontend->myprint("Bad luck... Still failed!\n"); } return if $CPAN::Signal; $CPAN::Frontend->mywarn("Can't access URL $url.\n\n"); $CPAN::Frontend->mysleep(2); } # host } # package CPAN::FTP; sub talk_ftp { my($self,$command,@dialog) = @_; my $fh = FileHandle->new; $fh->open("|$command") or die "Couldn't open ftp: $!"; foreach (@dialog) { $fh->print("$_\n") } $fh->close; # Wait for process to complete my $wstatus = $?; my $estatus = $wstatus >> 8; $CPAN::Frontend->myprint(qq{ Subprocess "|$command" returned status $estatus (wstat $wstatus) }) if $wstatus; } # find2perl needs modularization, too, all the following is stolen # from there # CPAN::FTP::ls sub ls { my($self,$name) = @_; my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$sizemm, $atime,$mtime,$ctime,$blksize,$blocks) = lstat($name); my($perms,%user,%group); my $pname = $name; if ($blocks) { $blocks = int(($blocks + 1) / 2); } else { $blocks = int(($sizemm + 1023) / 1024); } if (-f _) { $perms = '-'; } elsif (-d _) { $perms = 'd'; } elsif (-c _) { $perms = 'c'; $sizemm = &sizemm; } elsif (-b _) { $perms = 'b'; $sizemm = &sizemm; } elsif (-p _) { $perms = 'p'; } elsif (-S _) { $perms = 's'; } else { $perms = 'l'; $pname .= ' -> ' . readlink($_); } my(@rwx) = ('---','--x','-w-','-wx','r--','r-x','rw-','rwx'); my(@moname) = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec); my $tmpmode = $mode; my $tmp = $rwx[$tmpmode & 7]; $tmpmode >>= 3; $tmp = $rwx[$tmpmode & 7] . $tmp; $tmpmode >>= 3; $tmp = $rwx[$tmpmode & 7] . $tmp; substr($tmp,2,1) =~ tr/-x/Ss/ if -u _; substr($tmp,5,1) =~ tr/-x/Ss/ if -g _; substr($tmp,8,1) =~ tr/-x/Tt/ if -k _; $perms .= $tmp; my $user = $user{$uid} || $uid; # too lazy to implement lookup my $group = $group{$gid} || $gid; my($sec,$min,$hour,$mday,$mon,$year) = localtime($mtime); my($timeyear); my($moname) = $moname[$mon]; if (-M _ > 365.25 / 2) { $timeyear = $year + 1900; } else { $timeyear = sprintf("%02d:%02d", $hour, $min); } sprintf "%5lu %4ld %-10s %2d %-8s %-8s %8s %s %2d %5s %s\n", $ino, $blocks, $perms, $nlink, $user, $group, $sizemm, $moname, $mday, $timeyear, $pname; } 1; PK ! w)#9 9 # 5.34.0/CPAN/Kwalify/distroprefs.ymlnu �[��� --- type: map mapping: comment: type: text depends: type: map mapping: configure_requires: &requires_common type: map mapping: =: type: text build_requires: *requires_common requires: *requires_common match: type: map mapping: distribution: type: text module: type: text perl: type: text perlconfig: &matchhash_common type: map mapping: =: type: text env: *matchhash_common install: &args_env_expect type: map mapping: args: type: seq sequence: - type: text commandline: type: text env: type: map mapping: =: type: text expect: type: seq sequence: - type: text eexpect: type: map mapping: mode: type: text enum: - deterministic - anyorder timeout: type: number reuse: type: int talk: type: seq sequence: - type: text make: *args_env_expect pl: *args_env_expect test: *args_env_expect patches: type: seq sequence: - type: text disabled: type: int enum: - 0 - 1 goto: type: text cpanconfig: type: map mapping: =: type: text features: type: seq sequence: - type: text reminder: type: text PK ! �<��� � " 5.34.0/CPAN/Kwalify/distroprefs.ddnu �[��� $VAR1 = { "mapping" => { "comment" => { "type" => "text" }, "cpanconfig" => { "mapping" => { "=" => { "type" => "text" } }, "type" => "map" }, "depends" => { "mapping" => { "build_requires" => { "mapping" => { "=" => { "type" => "text" } }, "type" => "map" }, "configure_requires" => {}, "requires" => {} }, "type" => "map" }, "disabled" => { "enum" => [ 0, 1 ], "type" => "int" }, "features" => { "sequence" => [ { "type" => "text" } ], "type" => "seq" }, "goto" => { "type" => "text" }, "install" => { "mapping" => { "args" => { "sequence" => [ { "type" => "text" } ], "type" => "seq" }, "commandline" => { "type" => "text" }, "eexpect" => { "mapping" => { "mode" => { "enum" => [ "deterministic", "anyorder" ], "type" => "text" }, "reuse" => { "type" => "int" }, "talk" => { "sequence" => [ { "type" => "text" } ], "type" => "seq" }, "timeout" => { "type" => "number" } }, "type" => "map" }, "env" => { "mapping" => { "=" => { "type" => "text" } }, "type" => "map" }, "expect" => { "sequence" => [ { "type" => "text" } ], "type" => "seq" } }, "type" => "map" }, "make" => {}, "match" => { "mapping" => { "distribution" => { "type" => "text" }, "env" => { "mapping" => { "=" => { "type" => "text" } }, "type" => "map" }, "module" => { "type" => "text" }, "perl" => { "type" => "text" }, "perlconfig" => {} }, "type" => "map" }, "patches" => { "sequence" => [ { "type" => "text" } ], "type" => "seq" }, "pl" => {}, "reminder" => { "type" => "text" }, "test" => {} }, "type" => "map" }; $VAR1->{"mapping"}{"depends"}{"mapping"}{"configure_requires"} = $VAR1->{"mapping"}{"depends"}{"mapping"}{"build_requires"}; $VAR1->{"mapping"}{"depends"}{"mapping"}{"requires"} = $VAR1->{"mapping"}{"depends"}{"mapping"}{"build_requires"}; $VAR1->{"mapping"}{"make"} = $VAR1->{"mapping"}{"install"}; $VAR1->{"mapping"}{"match"}{"mapping"}{"perlconfig"} = $VAR1->{"mapping"}{"match"}{"mapping"}{"env"}; $VAR1->{"mapping"}{"pl"} = $VAR1->{"mapping"}{"install"}; $VAR1->{"mapping"}{"test"} = $VAR1->{"mapping"}{"install"}; PK ! 4A��' �' 5.34.0/CPAN/Bundle.pmnu �[��� # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- # vim: ts=4 sts=4 sw=4: package CPAN::Bundle; use strict; use CPAN::Module; @CPAN::Bundle::ISA = qw(CPAN::Module); use vars qw( $VERSION ); $VERSION = "5.5005"; sub look { my $self = shift; $CPAN::Frontend->myprint($self->as_string); } #-> CPAN::Bundle::undelay sub undelay { my $self = shift; delete $self->{later}; for my $c ( $self->contains ) { my $obj = CPAN::Shell->expandany($c) or next; if ($obj->id eq $self->id){ my $id = $obj->id; $CPAN::Frontend->mywarn("$id seems to contain itself, skipping\n"); next; } $obj->undelay; } } # mark as dirty/clean #-> sub CPAN::Bundle::color_cmd_tmps ; sub color_cmd_tmps { my($self) = shift; my($depth) = shift || 0; my($color) = shift || 0; my($ancestors) = shift || []; # a module needs to recurse to its cpan_file, a distribution needs # to recurse into its prereq_pms, a bundle needs to recurse into its modules return if exists $self->{incommandcolor} && $color==1 && $self->{incommandcolor}==$color; if ($depth>=$CPAN::MAX_RECURSION) { my $e = CPAN::Exception::RecursiveDependency->new($ancestors); if ($e->is_resolvable) { return $self->{incommandcolor}=2; } else { die $e; } } # warn "color_cmd_tmps $depth $color " . $self->id; # sleep 1; for my $c ( $self->contains ) { my $obj = CPAN::Shell->expandany($c) or next; CPAN->debug("c[$c]obj[$obj]") if $CPAN::DEBUG; $obj->color_cmd_tmps($depth+1,$color,[@$ancestors, $self->id]); } # never reached code? #if ($color==0) { #delete $self->{badtestcnt}; #} $self->{incommandcolor} = $color; } #-> sub CPAN::Bundle::as_string ; sub as_string { my($self) = @_; $self->contains; # following line must be "=", not "||=" because we have a moving target $self->{INST_VERSION} = $self->inst_version; return $self->SUPER::as_string; } #-> sub CPAN::Bundle::contains ; sub contains { my($self) = @_; my($inst_file) = $self->inst_file || ""; my($id) = $self->id; $self->debug("inst_file[$inst_file]id[$id]") if $CPAN::DEBUG; if ($inst_file && CPAN::Version->vlt($self->inst_version,$self->cpan_version)) { undef $inst_file; } unless ($inst_file) { # Try to get at it in the cpan directory $self->debug("no inst_file") if $CPAN::DEBUG; my $cpan_file; $CPAN::Frontend->mydie("I don't know a bundle with ID '$id'\n") unless $cpan_file = $self->cpan_file; if ($cpan_file eq "N/A") { $CPAN::Frontend->mywarn("Bundle '$id' not found on disk and not on CPAN. Maybe stale symlink? Maybe removed during session?\n"); return; } my $dist = $CPAN::META->instance('CPAN::Distribution', $self->cpan_file); $self->debug("before get id[$dist->{ID}]") if $CPAN::DEBUG; $dist->get; $self->debug("after get id[$dist->{ID}]") if $CPAN::DEBUG; my($todir) = $CPAN::Config->{'cpan_home'}; my(@me,$from,$to,$me); @me = split /::/, $self->id; $me[-1] .= ".pm"; $me = File::Spec->catfile(@me); my $build_dir; unless ($build_dir = $dist->{build_dir}) { $CPAN::Frontend->mywarn("Warning: cannot determine bundle content without a build_dir.\n"); return; } $from = $self->find_bundle_file($build_dir,join('/',@me)); $to = File::Spec->catfile($todir,$me); File::Path::mkpath(File::Basename::dirname($to)); File::Copy::copy($from, $to) or Carp::confess("Couldn't copy $from to $to: $!"); $inst_file = $to; } my @result; my $fh = FileHandle->new; local $/ = "\n"; open($fh,$inst_file) or die "Could not open '$inst_file': $!"; my $in_cont = 0; $self->debug("inst_file[$inst_file]") if $CPAN::DEBUG; while (<$fh>) { $in_cont = m/^=(?!head1\s+(?i-xsm:CONTENTS))/ ? 0 : m/^=head1\s+(?i-xsm:CONTENTS)/ ? 1 : $in_cont; next unless $in_cont; next if /^=/; s/\#.*//; next if /^\s+$/; chomp; push @result, (split " ", $_, 2)[0]; } close $fh; delete $self->{STATUS}; $self->{CONTAINS} = \@result; $self->debug("CONTAINS[@result]") if $CPAN::DEBUG; unless (@result) { $CPAN::Frontend->mywarn(qq{ The bundle file "$inst_file" may be a broken bundlefile. It seems not to contain any bundle definition. Please check the file and if it is bogus, please delete it. Sorry for the inconvenience. }); } @result; } #-> sub CPAN::Bundle::find_bundle_file # $where is in local format, $what is in unix format sub find_bundle_file { my($self,$where,$what) = @_; $self->debug("where[$where]what[$what]") if $CPAN::DEBUG; ### The following two lines let CPAN.pm become Bundle/CPAN.pm :-( ### my $bu = File::Spec->catfile($where,$what); ### return $bu if -f $bu; my $manifest = File::Spec->catfile($where,"MANIFEST"); unless (-f $manifest) { require ExtUtils::Manifest; my $cwd = CPAN::anycwd(); $self->safe_chdir($where); ExtUtils::Manifest::mkmanifest(); $self->safe_chdir($cwd); } my $fh = FileHandle->new($manifest) or Carp::croak("Couldn't open $manifest: $!"); local($/) = "\n"; my $bundle_filename = $what; $bundle_filename =~ s|Bundle.*/||; my $bundle_unixpath; while (<$fh>) { next if /^\s*\#/; my($file) = /(\S+)/; if ($file =~ m|\Q$what\E$|) { $bundle_unixpath = $file; # return File::Spec->catfile($where,$bundle_unixpath); # bad last; } # retry if she managed to have no Bundle directory $bundle_unixpath = $file if $file =~ m|\Q$bundle_filename\E$|; } return File::Spec->catfile($where, split /\//, $bundle_unixpath) if $bundle_unixpath; Carp::croak("Couldn't find a Bundle file in $where"); } # needs to work quite differently from Module::inst_file because of # cpan_home/Bundle/ directory and the possibility that we have # shadowing effect. As it makes no sense to take the first in @INC for # Bundles, we parse them all for $VERSION and take the newest. #-> sub CPAN::Bundle::inst_file ; sub inst_file { my($self) = @_; my($inst_file); my(@me); @me = split /::/, $self->id; $me[-1] .= ".pm"; my($incdir,$bestv); foreach $incdir ($CPAN::Config->{'cpan_home'},@INC) { my $parsefile = File::Spec->catfile($incdir, @me); CPAN->debug("parsefile[$parsefile]") if $CPAN::DEBUG; next unless -f $parsefile; my $have = eval { MM->parse_version($parsefile); }; if ($@) { $CPAN::Frontend->mywarn("Error while parsing version number in file '$parsefile'\n"); } if (!$bestv || CPAN::Version->vgt($have,$bestv)) { $self->{INST_FILE} = $parsefile; $self->{INST_VERSION} = $bestv = $have; } } $self->{INST_FILE}; } #-> sub CPAN::Bundle::inst_version ; sub inst_version { my($self) = @_; $self->inst_file; # finds INST_VERSION as side effect $self->{INST_VERSION}; } #-> sub CPAN::Bundle::rematein ; sub rematein { my($self,$meth) = @_; $self->debug("self[$self] meth[$meth]") if $CPAN::DEBUG; my($id) = $self->id; Carp::croak( "Can't $meth $id, don't have an associated bundle file. :-(\n" ) unless $self->inst_file || $self->cpan_file; my($s,%fail); for $s ($self->contains) { my($type) = $s =~ m|/| ? 'CPAN::Distribution' : $s =~ m|^Bundle::| ? 'CPAN::Bundle' : 'CPAN::Module'; if ($type eq 'CPAN::Distribution') { $CPAN::Frontend->mywarn(qq{ The Bundle }.$self->id.qq{ contains explicitly a file '$s'. Going to $meth that. }); $CPAN::Frontend->mysleep(5); } # possibly noisy action: $self->debug("type[$type] s[$s]") if $CPAN::DEBUG; my $obj = $CPAN::META->instance($type,$s); $obj->{reqtype} = $self->{reqtype}; $obj->{viabundle} ||= { id => $id, reqtype => $self->{reqtype}, optional => !$self->{mandatory}}; # $obj->$meth(); # XXX should optional be based on whether bundle was optional? -- xdg, 2012-04-01 # A: Sure, what could demand otherwise? --andk, 2013-11-25 CPAN::Queue->queue_item(qmod => $obj->id, reqtype => $self->{reqtype}, optional => !$self->{mandatory}); } } # If a bundle contains another that contains an xs_file we have here, # we just don't bother I suppose #-> sub CPAN::Bundle::xs_file sub xs_file { return 0; } #-> sub CPAN::Bundle::force ; sub fforce { shift->rematein('fforce',@_); } #-> sub CPAN::Bundle::force ; sub force { shift->rematein('force',@_); } #-> sub CPAN::Bundle::notest ; sub notest { shift->rematein('notest',@_); } #-> sub CPAN::Bundle::get ; sub get { shift->rematein('get',@_); } #-> sub CPAN::Bundle::make ; sub make { shift->rematein('make',@_); } #-> sub CPAN::Bundle::test ; sub test { my $self = shift; # $self->{badtestcnt} ||= 0; $self->rematein('test',@_); } #-> sub CPAN::Bundle::install ; sub install { my $self = shift; $self->rematein('install',@_); } #-> sub CPAN::Bundle::clean ; sub clean { shift->rematein('clean',@_); } #-> sub CPAN::Bundle::uptodate ; sub uptodate { my($self) = @_; return 0 unless $self->SUPER::uptodate; # we must have the current Bundle def my $c; foreach $c ($self->contains) { my $obj = CPAN::Shell->expandany($c); return 0 unless $obj->uptodate; } return 1; } #-> sub CPAN::Bundle::readme ; sub readme { my($self) = @_; my($file) = $self->cpan_file or $CPAN::Frontend->myprint(qq{ No File found for bundle } . $self->id . qq{\n}), return; $self->debug("self[$self] file[$file]") if $CPAN::DEBUG; $CPAN::META->instance('CPAN::Distribution',$file)->readme; } 1; PK ! �$ �d d 5.34.0/CPAN/Kwalify.pmnu �[��� =head1 NAME CPAN::Kwalify - Interface between CPAN.pm and Kwalify.pm =head1 SYNOPSIS use CPAN::Kwalify; validate($schema_name, $data, $file, $doc); =head1 DESCRIPTION =over =item _validate($schema_name, $data, $file, $doc) $schema_name is the name of a supported schema. Currently only C<distroprefs> is supported. $data is the data to be validated. $file is the absolute path to the file the data are coming from. $doc is the index of the document within $doc that is to be validated. The last two arguments are only there for better error reporting. Relies on being called from within CPAN.pm. Dies if something fails. Does not return anything useful. =item yaml($schema_name) Returns the YAML text of that schema. Dies if something fails. =back =head1 AUTHOR Andreas Koenig C<< <andk@cpan.org> >> =head1 LICENSE This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See L<http://www.perl.com/perl/misc/Artistic.html> =cut use strict; package CPAN::Kwalify; use vars qw($VERSION $VAR1); $VERSION = "5.50"; use File::Spec (); my %vcache = (); my $schema_loaded = {}; sub _validate { my($schema_name,$data,$abs,$y) = @_; my $yaml_module = CPAN->_yaml_module; if ( $CPAN::META->has_inst($yaml_module) && $CPAN::META->has_inst("Kwalify") ) { my $load = UNIVERSAL::can($yaml_module,"Load"); unless ($schema_loaded->{$schema_name}) { eval { my $schema_yaml = yaml($schema_name); $schema_loaded->{$schema_name} = $load->($schema_yaml); }; if ($@) { # we know that YAML.pm 0.62 cannot parse the schema, # so we try a fallback my $content = do { my $path = __FILE__; $path =~ s/\.pm$//; $path = File::Spec->catfile($path, "$schema_name.dd"); local *FH; open FH, $path or die "Could not open '$path': $!"; local $/; <FH>; }; $VAR1 = undef; eval $content; if (my $err = $@) { die "parsing of '$schema_name.dd' failed: $err"; } $schema_loaded->{$schema_name} = $VAR1; } } } if (my $schema = $schema_loaded->{$schema_name}) { my $mtime = (stat $abs)[9]; for my $k (keys %{$vcache{$abs}}) { delete $vcache{$abs}{$k} unless $k eq $mtime; } return if $vcache{$abs}{$mtime}{$y}++; eval { Kwalify::validate($schema, $data) }; if (my $err = $@) { my $info = {}; yaml($schema_name, info => $info); die "validation of distropref '$abs'[$y] against schema '$info->{path}' failed: $err"; } } } sub _clear_cache { %vcache = (); } sub yaml { my($schema_name, %opt) = @_; my $content = do { my $path = __FILE__; $path =~ s/\.pm$//; $path = File::Spec->catfile($path, "$schema_name.yml"); if ($opt{info}) { $opt{info}{path} = $path; } local *FH; open FH, $path or die "Could not open '$path': $!"; local $/; <FH>; }; return $content; } 1; # Local Variables: # mode: cperl # cperl-indent-level: 4 # End: PK ! ך�9L L 5.34.0/CPAN/URL.pmnu �[��� # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- # vim: ts=4 sts=4 sw=4: package CPAN::URL; use overload '""' => "as_string", fallback => 1; # accessors: TEXT(the url string), FROM(DEF=>defaultlist,USER=>urllist), # planned are things like age or quality use vars qw( $VERSION ); $VERSION = "5.5"; sub new { my($class,%args) = @_; bless { %args }, $class; } sub as_string { my($self) = @_; $self->text; } sub text { my($self,$set) = @_; if (defined $set) { $self->{TEXT} = $set; } $self->{TEXT}; } 1; PK ! ���bJG JG 5.34.0/CPAN/Mirrors.pmnu �[��� # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- # vim: ts=4 sts=4 sw=4: =head1 NAME CPAN::Mirrors - Get CPAN mirror information and select a fast one =head1 SYNOPSIS use CPAN::Mirrors; my $mirrors = CPAN::Mirrors->new( $mirrored_by_file ); my $seen = {}; my $best_continent = $mirrors->find_best_continents( { seen => $seen } ); my @mirrors = $mirrors->get_mirrors_by_continents( $best_continent ); my $callback = sub { my( $m ) = @_; printf "%s = %s\n", $m->hostname, $m->rtt }; $mirrors->get_mirrors_timings( \@mirrors, $seen, $callback, %args ); @mirrors = sort { $a->rtt <=> $b->rtt } @mirrors; print "Best mirrors are ", map( { $_->rtt } @mirrors[0..3] ), "\n"; =head1 DESCRIPTION =over =cut package CPAN::Mirrors; use strict; use vars qw($VERSION $urllist $silent); $VERSION = "2.27"; use Carp; use FileHandle; use Fcntl ":flock"; use Net::Ping (); use CPAN::Version; =item new( LOCAL_FILE_NAME ) Create a new CPAN::Mirrors object from LOCAL_FILE_NAME. This file should look like that in http://www.cpan.org/MIRRORED.BY . =cut sub new { my ($class, $file) = @_; croak "CPAN::Mirrors->new requires a filename" unless defined $file; croak "The file [$file] was not found" unless -e $file; my $self = bless { mirrors => [], geography => {}, }, $class; $self->parse_mirrored_by( $file ); return $self; } sub parse_mirrored_by { my ($self, $file) = @_; my $handle = FileHandle->new; $handle->open($file) or croak "Couldn't open $file: $!"; flock $handle, LOCK_SH; $self->_parse($file,$handle); flock $handle, LOCK_UN; $handle->close; } =item continents() Return a list of continents based on those defined in F<MIRRORED.BY>. =cut sub continents { my ($self) = @_; return sort keys %{$self->{geography} || {}}; } =item countries( [CONTINENTS] ) Return a list of countries based on those defined in F<MIRRORED.BY>. It only returns countries for the continents you specify (as defined in C<continents>). If you don't specify any continents, it returns all of the countries listed in F<MIRRORED.BY>. =cut sub countries { my ($self, @continents) = @_; @continents = $self->continents unless @continents; my @countries; for my $c (@continents) { push @countries, sort keys %{ $self->{geography}{$c} || {} }; } return @countries; } =item mirrors( [COUNTRIES] ) Return a list of mirrors based on those defined in F<MIRRORED.BY>. It only returns mirrors for the countries you specify (as defined in C<countries>). If you don't specify any countries, it returns all of the mirrors listed in F<MIRRORED.BY>. =cut sub mirrors { my ($self, @countries) = @_; return @{$self->{mirrors}} unless @countries; my %wanted = map { $_ => 1 } @countries; my @found; for my $m (@{$self->{mirrors}}) { push @found, $m if exists $wanted{$m->country}; } return @found; } =item get_mirrors_by_countries( [COUNTRIES] ) A more sensible synonym for mirrors. =cut sub get_mirrors_by_countries { &mirrors } =item get_mirrors_by_continents( [CONTINENTS] ) Return a list of mirrors for all of continents you specify. If you don't specify any continents, it returns all of the mirrors. You can specify a single continent or an array reference of continents. =cut sub get_mirrors_by_continents { my ($self, $continents ) = @_; $continents = [ $continents ] unless ref $continents; eval { $self->mirrors( $self->get_countries_by_continents( @$continents ) ); }; } =item get_countries_by_continents( [CONTINENTS] ) A more sensible synonym for countries. =cut sub get_countries_by_continents { &countries } =item default_mirror Returns the default mirror, http://www.cpan.org/ . This mirror uses dynamic DNS to give a close mirror. =cut sub default_mirror { CPAN::Mirrored::By->new({ http => 'http://www.cpan.org/'}); } =item best_mirrors C<best_mirrors> checks for the best mirrors based on the list of continents you pass, or, without that, all continents, as defined by C<CPAN::Mirrored::By>. It pings each mirror, up to the value of C<how_many>. In list context, it returns up to C<how_many> mirrors. In scalar context, it returns the single best mirror. Arguments how_many - the number of mirrors to return. Default: 1 callback - a callback for find_best_continents verbose - true or false on all the whining and moaning. Default: false continents - an array ref of the continents to check external_ping - if true, use external ping via Net::Ping::External. Default: false If you don't specify the continents, C<best_mirrors> calls C<find_best_continents> to get the list of continents to check. If you don't have L<Net::Ping> v2.13 or later, needed for timings, this returns the default mirror. C<external_ping> should be set and then C<Net::Ping::External> needs to be installed, if the local network has a transparent proxy. =cut sub best_mirrors { my ($self, %args) = @_; my $how_many = $args{how_many} || 1; my $callback = $args{callback}; my $verbose = defined $args{verbose} ? $args{verbose} : 0; my $continents = $args{continents} || []; $continents = [$continents] unless ref $continents; $args{external_ping} = 0 unless defined $args{external_ping}; my $external_ping = $args{external_ping}; # Old Net::Ping did not do timings at all my $min_version = '2.13'; unless( CPAN::Version->vgt(Net::Ping->VERSION, $min_version) ) { carp sprintf "Net::Ping version is %s (< %s). Returning %s", Net::Ping->VERSION, $min_version, $self->default_mirror; return $self->default_mirror; } my $seen = {}; if ( ! @$continents ) { print "Searching for the best continent ...\n" if $verbose; my @best_continents = $self->find_best_continents( seen => $seen, verbose => $verbose, callback => $callback, external_ping => $external_ping, ); # Only add enough continents to find enough mirrors my $count = 0; for my $continent ( @best_continents ) { push @$continents, $continent; $count += $self->mirrors( $self->countries($continent) ); last if $count >= $how_many; } } return $self->default_mirror unless @$continents; print "Scanning " . join(", ", @$continents) . " ...\n" if $verbose; my $trial_mirrors = $self->get_n_random_mirrors_by_continents( 3 * $how_many, $continents->[0] ); my $timings = $self->get_mirrors_timings( $trial_mirrors, $seen, $callback, %args, ); return $self->default_mirror unless @$timings; $how_many = @$timings if $how_many > @$timings; return wantarray ? @{$timings}[0 .. $how_many-1] : $timings->[0]; } =item get_n_random_mirrors_by_continents( N, [CONTINENTS] ) Returns up to N random mirrors for the specified continents. Specify the continents as an array reference. =cut sub get_n_random_mirrors_by_continents { my( $self, $n, $continents ) = @_; $n ||= 3; $continents = [ $continents ] unless ref $continents; if ( $n <= 0 ) { return wantarray ? () : []; } my @long_list = $self->get_mirrors_by_continents( $continents ); if ( $n eq '*' or $n > @long_list ) { return wantarray ? @long_list : \@long_list; } @long_list = map {$_->[0]} sort {$a->[1] <=> $b->[1]} map {[$_, rand]} @long_list; splice @long_list, $n; # truncate \@long_list; } =item get_mirrors_timings( MIRROR_LIST, SEEN, CALLBACK, %ARGS ); Pings the listed mirrors and returns a list of mirrors sorted in ascending ping times. C<MIRROR_LIST> is an anonymous array of C<CPAN::Mirrored::By> objects to ping. The optional argument C<SEEN> is a hash reference used to track the mirrors you've already pinged. The optional argument C<CALLBACK> is a subroutine reference to call after each ping. It gets the C<CPAN::Mirrored::By> object after each ping. =cut sub get_mirrors_timings { my( $self, $mirror_list, $seen, $callback, %args ) = @_; $seen = {} unless defined $seen; croak "The mirror list argument must be an array reference" unless ref $mirror_list eq ref []; croak "The seen argument must be a hash reference" unless ref $seen eq ref {}; croak "callback must be a subroutine" if( defined $callback and ref $callback ne ref sub {} ); my $timings = []; for my $m ( @$mirror_list ) { $seen->{$m->hostname} = $m; next unless eval{ $m->http }; if( $self->_try_a_ping( $seen, $m, ) ) { my $ping = $m->ping(%args); next unless defined $ping; # printf "m %s ping %s\n", $m, $ping; push @$timings, $m; $callback->( $m ) if $callback; } else { push @$timings, $seen->{$m->hostname} if defined $seen->{$m->hostname}->rtt; } } my @best = sort { if( defined $a->rtt and defined $b->rtt ) { $a->rtt <=> $b->rtt } elsif( defined $a->rtt and ! defined $b->rtt ) { return -1; } elsif( ! defined $a->rtt and defined $b->rtt ) { return 1; } elsif( ! defined $a->rtt and ! defined $b->rtt ) { return 0; } } @$timings; return wantarray ? @best : \@best; } =item find_best_continents( HASH_REF ); C<find_best_continents> goes through each continent and pings C<N> random mirrors on that continent. It then orders the continents by ascending median ping time. In list context, it returns the ordered list of continent. In scalar context, it returns the same list as an anonymous array. Arguments: n - the number of hosts to ping for each continent. Default: 3 seen - a hashref of cached hostname ping times verbose - true or false for noisy or quiet. Default: false callback - a subroutine to run after each ping. ping_cache_limit - how long, in seconds, to reuse previous ping times. Default: 1 day The C<seen> hash has hostnames as keys and anonymous arrays as values. The anonymous array is a triplet of a C<CPAN::Mirrored::By> object, a ping time, and the epoch time for the measurement. The callback subroutine gets the C<CPAN::Mirrored::By> object, the ping time, and measurement time (the same things in the C<seen> hashref) as arguments. C<find_best_continents> doesn't care what the callback does and ignores the return value. With a low value for C<N>, a single mirror might skew the results enough to choose a worse continent. If you have that problem, try a larger value. =cut sub find_best_continents { my ($self, %args) = @_; $args{n} ||= 3; $args{verbose} = 0 unless defined $args{verbose}; $args{seen} = {} unless defined $args{seen}; croak "The seen argument must be a hash reference" unless ref $args{seen} eq ref {}; $args{ping_cache_limit} = 24 * 60 * 60 unless defined $args{ping_cache_limit}; croak "callback must be a subroutine" if( defined $args{callback} and ref $args{callback} ne ref sub {} ); my %medians; CONT: for my $c ( $self->continents ) { my @mirrors = $self->mirrors( $self->countries($c) ); printf "Testing %s (%d mirrors)\n", $c, scalar @mirrors if $args{verbose}; next CONT unless @mirrors; my $n = (@mirrors < $args{n}) ? @mirrors : $args{n}; my @tests; my $tries = 0; RANDOM: while ( @mirrors && @tests < $n && $tries++ < 15 ) { my $m = splice( @mirrors, int(rand(@mirrors)), 1 ); if( $self->_try_a_ping( $args{seen}, $m, $args{ping_cache_limit} )) { $self->get_mirrors_timings( [ $m ], $args{seen}, $args{callback}, %args, ); next RANDOM unless defined $args{seen}{$m->hostname}->rtt; } printf "(%s -> %0.2f ms)", $m->hostname, join ' ', 1000 * $args{seen}{$m->hostname}->rtt if $args{verbose}; push @tests, $args{seen}{$m->hostname}->rtt; } my $median = $self->_get_median_ping_time( \@tests, $args{verbose} ); $medians{$c} = $median if defined $median; } my @best_cont = sort { $medians{$a} <=> $medians{$b} } keys %medians; if ( $args{verbose} ) { print "Median result by continent:\n"; if ( @best_cont ) { for my $c ( @best_cont ) { printf( " %7.2f ms %s\n", $medians{$c}*1000, $c ); } } else { print " **** No results found ****\n" } } return wantarray ? @best_cont : $best_cont[0]; } # retry if sub _try_a_ping { my ($self, $seen, $mirror, $ping_cache_limit ) = @_; ( ! exists $seen->{$mirror->hostname} or ! defined $seen->{$mirror->hostname}->rtt or ! defined $ping_cache_limit or time - $seen->{$mirror->hostname}->ping_time > $ping_cache_limit ) } sub _get_median_ping_time { my ($self, $tests, $verbose ) = @_; my @sorted = sort { $a <=> $b } @$tests; my $median = do { if ( @sorted == 0 ) { undef } elsif ( @sorted == 1 ) { $sorted[0] } elsif ( @sorted % 2 ) { $sorted[ int(@sorted / 2) ] } else { my $mid_high = int(@sorted/2); ($sorted[$mid_high-1] + $sorted[$mid_high])/2; } }; if ($verbose){ if ($median) { printf " => median time: %.2f ms\n", $median * 1000 } else { printf " => **** no median time ****\n"; } } return $median; } # Adapted from Parse::CPAN::MirroredBy by Adam Kennedy sub _parse { my ($self, $file, $handle) = @_; my $output = $self->{mirrors}; my $geo = $self->{geography}; local $/ = "\012"; my $line = 0; my $mirror = undef; while ( 1 ) { # Next line my $string = <$handle>; last if ! defined $string; $line = $line + 1; # Remove the useless lines chomp( $string ); next if $string =~ /^\s*$/; next if $string =~ /^\s*#/; # Hostname or property? if ( $string =~ /^\s/ ) { # Property unless ( $string =~ /^\s+(\w+)\s+=\s+\"(.*)\"$/ ) { croak("Invalid property on line $line"); } my ($prop, $value) = ($1,$2); $mirror ||= {}; if ( $prop eq 'dst_location' ) { my (@location,$continent,$country); @location = (split /\s*,\s*/, $value) and ($continent, $country) = @location[-1,-2]; $continent =~ s/\s\(.*//; $continent =~ s/\W+$//; # if Jarkko doesn't know latitude/longitude $geo->{$continent}{$country} = 1 if $continent && $country; $mirror->{continent} = $continent || "unknown"; $mirror->{country} = $country || "unknown"; } elsif ( $prop eq 'dst_http' ) { $mirror->{http} = $value; } elsif ( $prop eq 'dst_ftp' ) { $mirror->{ftp} = $value; } elsif ( $prop eq 'dst_rsync' ) { $mirror->{rsync} = $value; } else { $prop =~ s/^dst_//; $mirror->{$prop} = $value; } } else { # Hostname unless ( $string =~ /^([\w\.-]+)\:\s*$/ ) { croak("Invalid host name on line $line"); } my $current = $mirror; $mirror = { hostname => "$1" }; if ( $current ) { push @$output, CPAN::Mirrored::By->new($current); } } } if ( $mirror ) { push @$output, CPAN::Mirrored::By->new($mirror); } return; } #--------------------------------------------------------------------------# package CPAN::Mirrored::By; use strict; use Net::Ping (); sub new { my($self,$arg) = @_; $arg ||= {}; bless $arg, $self; } sub hostname { shift->{hostname} } sub continent { shift->{continent} } sub country { shift->{country} } sub http { shift->{http} || '' } sub ftp { shift->{ftp} || '' } sub rsync { shift->{rsync} || '' } sub rtt { shift->{rtt} } sub ping_time { shift->{ping_time} } sub url { my $self = shift; return $self->{http} || $self->{ftp}; } sub ping { my($self, %args) = @_; my $external_ping = $args{external_ping}; if ($external_ping) { eval { require Net::Ping::External } or die "Net::Ping::External required to use external ping command"; } my $ping = Net::Ping->new( $external_ping ? 'external' : $^O eq 'VMS' ? 'icmp' : 'tcp', 1 ); my ($proto) = $self->url =~ m{^([^:]+)}; my $port = $proto eq 'http' ? 80 : 21; return unless $port; if ( $ping->can('port_number') ) { $ping->port_number($port); } else { $ping->{'port_num'} = $port; } $ping->hires(1) if $ping->can('hires'); my ($alive,$rtt) = eval { $ping->ping($self->hostname); }; my $verbose = $args{verbose}; if ($verbose && !$alive) { printf "(host %s not alive)", $self->hostname; } $self->{rtt} = $alive ? $rtt : undef; $self->{ping_time} = time; $self->rtt; } 1; =back =head1 AUTHOR Andreas Koenig C<< <andk@cpan.org> >>, David Golden C<< <dagolden@cpan.org> >>, brian d foy C<< <bdfoy@cpan.org> >> =head1 LICENSE This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See L<http://www.perl.com/perl/misc/Artistic.html> =cut PK ! 7�S� � 5.34.0/CPAN/Author.pmnu �[��� # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- # vim: ts=4 sts=4 sw=4: package CPAN::Author; use strict; use CPAN::InfoObj; @CPAN::Author::ISA = qw(CPAN::InfoObj); use vars qw( $VERSION ); $VERSION = "5.5002"; package CPAN::Author; use strict; #-> sub CPAN::Author::force sub force { my $self = shift; $self->{force}++; } #-> sub CPAN::Author::force sub unforce { my $self = shift; delete $self->{force}; } #-> sub CPAN::Author::id sub id { my $self = shift; my $id = $self->{ID}; $CPAN::Frontend->mydie("Illegal author id[$id]") unless $id =~ /^[A-Z]/; $id; } #-> sub CPAN::Author::as_glimpse ; sub as_glimpse { my($self) = @_; my(@m); my $class = ref($self); $class =~ s/^CPAN:://; push @m, sprintf(qq{%-15s %s ("%s" <%s>)\n}, $class, $self->{ID}, $self->fullname, $self->email); join "", @m; } #-> sub CPAN::Author::fullname ; sub fullname { shift->ro->{FULLNAME}; } *name = \&fullname; #-> sub CPAN::Author::email ; sub email { shift->ro->{EMAIL}; } #-> sub CPAN::Author::ls ; sub ls { my $self = shift; my $glob = shift || ""; my $silent = shift || 0; my $id = $self->id; # adapted from CPAN::Distribution::verifyCHECKSUM ; my(@csf); # chksumfile @csf = $self->id =~ /(.)(.)(.*)/; $csf[1] = join "", @csf[0,1]; $csf[2] = join "", @csf[1,2]; # ("A","AN","ANDK") my(@dl); @dl = $self->dir_listing([$csf[0],"CHECKSUMS"], 0, 1); unless (grep {$_->[2] eq $csf[1]} @dl) { $CPAN::Frontend->myprint("Directory $csf[1]/ does not exist\n") unless $silent ; return; } @dl = $self->dir_listing([@csf[0,1],"CHECKSUMS"], 0, 1); unless (grep {$_->[2] eq $csf[2]} @dl) { $CPAN::Frontend->myprint("Directory $id/ does not exist\n") unless $silent; return; } @dl = $self->dir_listing([@csf,"CHECKSUMS"], 1, 1); if ($glob) { if ($CPAN::META->has_inst("Text::Glob")) { $glob =~ s|/$|/*|; my $rglob = Text::Glob::glob_to_regex($glob); CPAN->debug("glob[$glob]rglob[$rglob]dl[@dl]") if $CPAN::DEBUG; my @tmpdl = grep { $_->[2] =~ /$rglob/ } @dl; if (1==@tmpdl && $tmpdl[0][0]==0) { $rglob = Text::Glob::glob_to_regex("$glob/*"); @dl = grep { $_->[2] =~ /$rglob/ } @dl; } else { @dl = @tmpdl; } CPAN->debug("rglob[$rglob]dl[@dl]") if $CPAN::DEBUG; } else { $CPAN::Frontend->mydie("Text::Glob not installed, cannot proceed"); } } unless ($silent >= 2) { $CPAN::Frontend->myprint ( join "", map { sprintf ( "%8d %10s %s/%s%s\n", $_->[0], $_->[1], $id, $_->[2], 0==$_->[0]?"/":"", ) } sort { $a->[2] cmp $b->[2] } @dl ); } @dl; } # returns an array of arrays, the latter contain (size,mtime,filename) #-> sub CPAN::Author::dir_listing ; sub dir_listing { my $self = shift; my $chksumfile = shift; my $recursive = shift; my $may_ftp = shift; my $lc_want = File::Spec->catfile($CPAN::Config->{keep_source_where}, "authors", "id", @$chksumfile); my $fh; CPAN->debug("chksumfile[@$chksumfile]recursive[$recursive]may_ftp[$may_ftp]") if $CPAN::DEBUG; # Purge and refetch old (pre-PGP) CHECKSUMS; they are a security # hazard. (Without GPG installed they are not that much better, # though.) $fh = FileHandle->new; if (open($fh, $lc_want)) { my $line = <$fh>; close $fh; unlink($lc_want) unless $line =~ /PGP/; } local($") = "/"; # connect "force" argument with "index_expire". my $force = $self->{force}; if (my @stat = stat $lc_want) { $force ||= $stat[9] + $CPAN::Config->{index_expire}*86400 <= time; } my $lc_file; if ($may_ftp) { $lc_file = eval { CPAN::FTP->localize ( "authors/id/@$chksumfile", $lc_want, $force, ); }; unless ($lc_file) { $CPAN::Frontend->myprint("Trying $lc_want.gz\n"); $chksumfile->[-1] .= ".gz"; $lc_file = eval { CPAN::FTP->localize ("authors/id/@$chksumfile", "$lc_want.gz", 1, ); }; if ($lc_file) { $lc_file =~ s{\.gz(?!\n)\Z}{}; #}; eval{CPAN::Tarzip->new("$lc_file.gz")->gunzip($lc_file)}; } else { return; } } } else { $lc_file = $lc_want; # we *could* second-guess and if the user has a file: URL, # then we could look there. But on the other hand, if they do # have a file: URL, why did they choose to set # $CPAN::Config->{show_upload_date} to false? } # adapted from CPAN::Distribution::CHECKSUM_check_file ; $fh = FileHandle->new; my($cksum); if (open $fh, $lc_file) { local($/); my $eval = <$fh>; $eval =~ s/\015?\012/\n/g; close $fh; my($compmt) = Safe->new(); $cksum = $compmt->reval($eval); if ($@) { rename $lc_file, "$lc_file.bad"; Carp::confess($@) if $@; } } elsif ($may_ftp) { Carp::carp ("Could not open '$lc_file' for reading."); } else { # Maybe should warn: "You may want to set show_upload_date to a true value" return; } my(@result,$f); for $f (sort keys %$cksum) { if (exists $cksum->{$f}{isdir}) { if ($recursive) { my(@dir) = @$chksumfile; pop @dir; push @dir, $f, "CHECKSUMS"; push @result, [ 0, "-", $f ]; push @result, map { [$_->[0], $_->[1], "$f/$_->[2]"] } $self->dir_listing(\@dir,1,$may_ftp); } else { push @result, [ 0, "-", $f ]; } } else { push @result, [ ($cksum->{$f}{"size"}||0), $cksum->{$f}{"mtime"}||"---", $f ]; } } @result; } #-> sub CPAN::Author::reports sub reports { $CPAN::Frontend->mywarn("reports on authors not implemented. Please file a bugreport if you need this.\n"); } 1; PK ! :=T� � 5.34.0/CPAN/Distribution.pmnu �[��� # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- # vim: ts=4 sts=4 sw=4: package CPAN::Distribution; use strict; use Cwd qw(chdir); use CPAN::Distroprefs; use CPAN::InfoObj; use File::Path (); use POSIX ":sys_wait_h"; @CPAN::Distribution::ISA = qw(CPAN::InfoObj); use vars qw($VERSION); $VERSION = "2.27"; my $run_allow_installing_within_test = 1; # boolean; either in test or in install, there is no third option # no prepare, because prepare is not a command on the shell command line # TODO: clear instance cache on reload my %instance; for my $method (qw(get make test install)) { no strict 'refs'; for my $prefix (qw(pre post)) { my $hookname = sprintf "%s_%s", $prefix, $method; *$hookname = sub { my($self) = @_; for my $plugin (@{$CPAN::Config->{plugin_list}}) { my($plugin_proper,$args) = split /=/, $plugin, 2; $args = "" unless defined $args; if ($CPAN::META->has_inst($plugin_proper)){ my @args = split /,/, $args; $instance{$plugin} ||= $plugin_proper->new(@args); if ($instance{$plugin}->can($hookname)) { $instance{$plugin}->$hookname($self); } } else { $CPAN::Frontend->mydie("Plugin '$plugin_proper' not found for hook '$hookname'"); } } }; } } # Accessors sub cpan_comment { my $self = shift; my $ro = $self->ro or return; $ro->{CPAN_COMMENT} } #-> CPAN::Distribution::undelay sub undelay { my $self = shift; for my $delayer ( "configure_requires_later", "configure_requires_later_for", "later", "later_for", ) { delete $self->{$delayer}; } } #-> CPAN::Distribution::is_dot_dist sub is_dot_dist { my($self) = @_; return substr($self->id,-1,1) eq "."; } # add the A/AN/ stuff #-> CPAN::Distribution::normalize sub normalize { my($self,$s) = @_; $s = $self->id unless defined $s; if (substr($s,-1,1) eq ".") { # using a global because we are sometimes called as static method if (!$CPAN::META->{LOCK} && !$CPAN::Have_warned->{"$s is unlocked"}++ ) { $CPAN::Frontend->mywarn("You are visiting the local directory '$s' without lock, take care that concurrent processes do not do likewise.\n"); $CPAN::Frontend->mysleep(1); } if ($s eq ".") { $s = "$CPAN::iCwd/."; } elsif (File::Spec->file_name_is_absolute($s)) { } elsif (File::Spec->can("rel2abs")) { $s = File::Spec->rel2abs($s); } else { $CPAN::Frontend->mydie("Your File::Spec is too old, please upgrade File::Spec"); } CPAN->debug("s[$s]") if $CPAN::DEBUG; unless ($CPAN::META->exists("CPAN::Distribution", $s)) { for ($CPAN::META->instance("CPAN::Distribution", $s)) { $_->{build_dir} = $s; $_->{archived} = "local_directory"; $_->{unwrapped} = CPAN::Distrostatus->new("YES -- local_directory"); } } } elsif ( $s =~ tr|/|| == 1 or $s !~ m|[A-Z]/[A-Z-0-9]{2}/[A-Z-0-9]{2,}/| ) { return $s if $s =~ m:^N/A|^Contact Author: ; $s =~ s|^(.)(.)([^/]*/)(.+)$|$1/$1$2/$1$2$3$4|; CPAN->debug("s[$s]") if $CPAN::DEBUG; } $s; } #-> sub CPAN::Distribution::author ; sub author { my($self) = @_; my($authorid); if (substr($self->id,-1,1) eq ".") { $authorid = "LOCAL"; } else { ($authorid) = $self->pretty_id =~ /^([\w\-]+)/; } CPAN::Shell->expand("Author",$authorid); } # tries to get the yaml from CPAN instead of the distro itself: # EXPERIMENTAL, UNDOCUMENTED AND UNTESTED, for Tels sub fast_yaml { my($self) = @_; my $meta = $self->pretty_id; $meta =~ s/\.(tar.gz|tgz|zip|tar.bz2)/.meta/; my(@ls) = CPAN::Shell->globls($meta); my $norm = $self->normalize($meta); my($local_file); my($local_wanted) = File::Spec->catfile( $CPAN::Config->{keep_source_where}, "authors", "id", split(/\//,$norm) ); $self->debug("Doing localize") if $CPAN::DEBUG; unless ($local_file = CPAN::FTP->localize("authors/id/$norm", $local_wanted)) { $CPAN::Frontend->mydie("Giving up on downloading yaml file '$local_wanted'\n"); } my $yaml = CPAN->_yaml_loadfile($local_file)->[0]; } #-> sub CPAN::Distribution::cpan_userid sub cpan_userid { my $self = shift; if ($self->{ID} =~ m{[A-Z]/[A-Z\-]{2}/([A-Z\-]+)/}) { return $1; } return $self->SUPER::cpan_userid; } #-> sub CPAN::Distribution::pretty_id sub pretty_id { my $self = shift; my $id = $self->id; return $id unless $id =~ m|^./../|; substr($id,5); } #-> sub CPAN::Distribution::base_id sub base_id { my $self = shift; my $id = $self->pretty_id(); my $base_id = File::Basename::basename($id); $base_id =~ s{\.(?:tar\.(bz2|gz|Z)|t(?:gz|bz)|zip)$}{}i; return $base_id; } #-> sub CPAN::Distribution::tested_ok_but_not_installed sub tested_ok_but_not_installed { my $self = shift; return ( $self->{make_test} && $self->{build_dir} && (UNIVERSAL::can($self->{make_test},"failed") ? ! $self->{make_test}->failed : $self->{make_test} =~ /^YES/ ) && ( !$self->{install} || $self->{install}->failed ) ); } # mark as dirty/clean for the sake of recursion detection. $color=1 # means "in use", $color=0 means "not in use anymore". $color=2 means # we have determined prereqs now and thus insist on passing this # through (at least) once again. #-> sub CPAN::Distribution::color_cmd_tmps ; sub color_cmd_tmps { my($self) = shift; my($depth) = shift || 0; my($color) = shift || 0; my($ancestors) = shift || []; # a distribution needs to recurse into its prereq_pms $self->debug("color_cmd_tmps[$depth,$color,@$ancestors]") if $CPAN::DEBUG; return if exists $self->{incommandcolor} && $color==1 && $self->{incommandcolor}==$color; $CPAN::MAX_RECURSION||=0; # silence 'once' warnings if ($depth>=$CPAN::MAX_RECURSION) { my $e = CPAN::Exception::RecursiveDependency->new($ancestors); if ($e->is_resolvable) { return $self->{incommandcolor}=2; } else { die $e; } } # warn "color_cmd_tmps $depth $color " . $self->id; # sleep 1; my $prereq_pm = $self->prereq_pm; if (defined $prereq_pm) { # XXX also optional_req & optional_breq? -- xdg, 2012-04-01 # A: no, optional deps may recurse -- ak, 2014-05-07 PREREQ: for my $pre (sort( keys %{$prereq_pm->{requires}||{}}, keys %{$prereq_pm->{build_requires}||{}}, )) { next PREREQ if $pre eq "perl"; my $premo; unless ($premo = CPAN::Shell->expand("Module",$pre)) { $CPAN::Frontend->mywarn("prerequisite module[$pre] not known\n"); $CPAN::Frontend->mysleep(0.2); next PREREQ; } $premo->color_cmd_tmps($depth+1,$color,[@$ancestors, $self->id]); } } if ($color==0) { delete $self->{sponsored_mods}; # as we are at the end of a command, we'll give up this # reminder of a broken test. Other commands may test this guy # again. Maybe 'badtestcnt' should be renamed to # 'make_test_failed_within_command'? delete $self->{badtestcnt}; } $self->{incommandcolor} = $color; } #-> sub CPAN::Distribution::as_string ; sub as_string { my $self = shift; $self->containsmods; $self->upload_date; $self->SUPER::as_string(@_); } #-> sub CPAN::Distribution::containsmods ; sub containsmods { my $self = shift; return sort keys %{$self->{CONTAINSMODS}} if exists $self->{CONTAINSMODS}; my $dist_id = $self->{ID}; for my $mod ($CPAN::META->all_objects("CPAN::Module")) { my $mod_file = $mod->cpan_file or next; my $mod_id = $mod->{ID} or next; # warn "mod_file[$mod_file] dist_id[$dist_id] mod_id[$mod_id]"; # sleep 1; if ($CPAN::Signal) { delete $self->{CONTAINSMODS}; return; } $self->{CONTAINSMODS}{$mod_id} = undef if $mod_file eq $dist_id; } sort keys %{$self->{CONTAINSMODS}||={}}; } #-> sub CPAN::Distribution::upload_date ; sub upload_date { my $self = shift; return $self->{UPLOAD_DATE} if exists $self->{UPLOAD_DATE}; my(@local_wanted) = split(/\//,$self->id); my $filename = pop @local_wanted; push @local_wanted, "CHECKSUMS"; my $author = CPAN::Shell->expand("Author",$self->cpan_userid); return unless $author; my @dl = $author->dir_listing(\@local_wanted,0,$CPAN::Config->{show_upload_date}); return unless @dl; my($dirent) = grep { $_->[2] eq $filename } @dl; # warn sprintf "dirent[%s]id[%s]", $dirent, $self->id; return unless $dirent->[1]; return $self->{UPLOAD_DATE} = $dirent->[1]; } #-> sub CPAN::Distribution::uptodate ; sub uptodate { my($self) = @_; my $c; foreach $c ($self->containsmods) { my $obj = CPAN::Shell->expandany($c); unless ($obj->uptodate) { my $id = $self->pretty_id; $self->debug("$id not uptodate due to $c") if $CPAN::DEBUG; return 0; } } return 1; } #-> sub CPAN::Distribution::called_for ; sub called_for { my($self,$id) = @_; $self->{CALLED_FOR} = $id if defined $id; return $self->{CALLED_FOR}; } #-> sub CPAN::Distribution::shortcut_get ; # return values: undef means don't shortcut; 0 means shortcut as fail; # and 1 means shortcut as success sub shortcut_get { my ($self) = @_; if (exists $self->{cleanup_after_install_done}) { if ($self->{force_update}) { delete $self->{cleanup_after_install_done}; } else { my $id = $self->{CALLED_FOR} || $self->pretty_id; return $self->success( "Has already been *installed and cleaned up in the staging area* within this session, will not work on it again; if you really want to start over, try something like `force get $id`" ); } } if (my $why = $self->check_disabled) { $self->{unwrapped} = CPAN::Distrostatus->new("NO $why"); # XXX why is this goodbye() instead of just print/warn? # Alternatively, should other print/warns here be goodbye()? # -- xdg, 2012-04-05 return $self->goodbye("[disabled] -- NA $why"); } $self->debug("checking already unwrapped[$self->{ID}]") if $CPAN::DEBUG; if (exists $self->{build_dir} && -d $self->{build_dir}) { # this deserves print, not warn: return $self->success("Has already been unwrapped into directory ". "$self->{build_dir}" ); } # XXX I'm not sure this should be here because it's not really # a test for whether get should continue or return; this is # a side effect -- xdg, 2012-04-05 $self->debug("checking missing build_dir[$self->{ID}]") if $CPAN::DEBUG; if (exists $self->{build_dir} && ! -d $self->{build_dir}){ # we have lost it. $self->fforce(""); # no method to reset all phases but not set force (dodge) return undef; # no shortcut } # although we talk about 'force' we shall not test on # force directly. New model of force tries to refrain from # direct checking of force. $self->debug("checking unwrapping error[$self->{ID}]") if $CPAN::DEBUG; if ( exists $self->{unwrapped} and ( UNIVERSAL::can($self->{unwrapped},"failed") ? $self->{unwrapped}->failed : $self->{unwrapped} =~ /^NO/ ) ) { return $self->goodbye("Unwrapping had some problem, won't try again without force"); } return undef; # no shortcut } #-> sub CPAN::Distribution::get ; sub get { my($self) = @_; $self->pre_get(); $self->debug("checking goto id[$self->{ID}]") if $CPAN::DEBUG; if (my $goto = $self->prefs->{goto}) { $self->post_get(); return $self->goto($goto); } if ( defined( my $sc = $self->shortcut_get) ) { $self->post_get(); return $sc; } local $ENV{PERL5LIB} = defined($ENV{PERL5LIB}) ? $ENV{PERL5LIB} : ($ENV{PERLLIB} || ""); local $ENV{PERL5OPT} = defined $ENV{PERL5OPT} ? $ENV{PERL5OPT} : ""; # local $ENV{PERL_USE_UNSAFE_INC} = exists $ENV{PERL_USE_UNSAFE_INC} ? $ENV{PERL_USE_UNSAFE_INC} : 1; # get $CPAN::META->set_perl5lib; local $ENV{MAKEFLAGS}; # protect us from outer make calls my $sub_wd = CPAN::anycwd(); # for cleaning up as good as possible my($local_file); # XXX I don't think this check needs to be here, as it # is already checked in shortcut_get() -- xdg, 2012-04-05 unless ($self->{build_dir} && -d $self->{build_dir}) { $self->get_file_onto_local_disk; if ($CPAN::Signal){ $self->post_get(); return; } $self->check_integrity; if ($CPAN::Signal){ $self->post_get(); return; } (my $packagedir,$local_file) = $self->run_preps_on_packagedir; # XXX why is this check here? -- xdg, 2012-04-08 if (exists $self->{writemakefile} && ref $self->{writemakefile} && $self->{writemakefile}->can("failed") && $self->{writemakefile}->failed) { # $self->post_get(); return; } $packagedir ||= $self->{build_dir}; $self->{build_dir} = $packagedir; } # XXX should this move up to after run_preps_on_packagedir? # Otherwise, failing writemakefile can return without # a $CPAN::Signal check -- xdg, 2012-04-05 if ($CPAN::Signal) { $self->safe_chdir($sub_wd); $self->post_get(); return; } unless ($self->patch){ $self->post_get(); return; } $self->store_persistent_state; $self->post_get(); return 1; # success } #-> CPAN::Distribution::get_file_onto_local_disk sub get_file_onto_local_disk { my($self) = @_; return if $self->is_dot_dist; my($local_file); my($local_wanted) = File::Spec->catfile( $CPAN::Config->{keep_source_where}, "authors", "id", split(/\//,$self->id) ); $self->debug("Doing localize") if $CPAN::DEBUG; unless ($local_file = CPAN::FTP->localize("authors/id/$self->{ID}", $local_wanted)) { my $note = ""; if ($CPAN::Index::DATE_OF_02) { $note = "Note: Current database in memory was generated ". "on $CPAN::Index::DATE_OF_02\n"; } $CPAN::Frontend->mydie("Giving up on '$local_wanted'\n$note"); } $self->debug("local_wanted[$local_wanted]local_file[$local_file]") if $CPAN::DEBUG; $self->{localfile} = $local_file; } #-> CPAN::Distribution::check_integrity sub check_integrity { my($self) = @_; return if $self->is_dot_dist; if ($CPAN::META->has_inst("Digest::SHA")) { $self->debug("Digest::SHA is installed, verifying"); $self->verifyCHECKSUM; } else { $self->debug("Digest::SHA is NOT installed"); } } #-> CPAN::Distribution::run_preps_on_packagedir sub run_preps_on_packagedir { my($self) = @_; return if $self->is_dot_dist; $CPAN::META->{cachemgr} ||= CPAN::CacheMgr->new(); # unsafe meta access, ok my $builddir = $CPAN::META->{cachemgr}->dir; # unsafe meta access, ok $self->safe_chdir($builddir); $self->debug("Removing tmp-$$") if $CPAN::DEBUG; File::Path::rmtree("tmp-$$"); unless (mkdir "tmp-$$", 0755) { $CPAN::Frontend->unrecoverable_error(<<EOF); Couldn't mkdir '$builddir/tmp-$$': $! Cannot continue: Please find the reason why I cannot make the directory $builddir/tmp-$$ and fix the problem, then retry. EOF } if ($CPAN::Signal) { return; } $self->safe_chdir("tmp-$$"); # # Unpack the goods # my $local_file = $self->{localfile}; my $ct = eval{CPAN::Tarzip->new($local_file)}; unless ($ct) { $self->{unwrapped} = CPAN::Distrostatus->new("NO"); delete $self->{build_dir}; return; } if ($local_file =~ /(\.tar\.(bz2|gz|Z)|\.tgz)(?!\n)\Z/i) { $self->{was_uncompressed}++ unless eval{$ct->gtest()}; $self->untar_me($ct); } elsif ( $local_file =~ /\.zip(?!\n)\Z/i ) { $self->unzip_me($ct); } else { $self->{was_uncompressed}++ unless $ct->gtest(); $local_file = $self->handle_singlefile($local_file); } # we are still in the tmp directory! # Let's check if the package has its own directory. my $dh = DirHandle->new(File::Spec->curdir) or Carp::croak("Couldn't opendir .: $!"); my @readdir = grep $_ !~ /^\.\.?(?!\n)\Z/s, $dh->read; ### MAC?? if (grep { $_ eq "pax_global_header" } @readdir) { $CPAN::Frontend->mywarn("Your (un)tar seems to have extracted a file named 'pax_global_header' from the tarball '$local_file'. This is almost certainly an error. Please upgrade your tar. I'll ignore this file for now. See also http://rt.cpan.org/Ticket/Display.html?id=38932\n"); $CPAN::Frontend->mysleep(5); @readdir = grep { $_ ne "pax_global_header" } @readdir; } $dh->close; my $tdir_base; my $from_dir; my @dirents; if (@readdir == 1 && -d $readdir[0]) { $tdir_base = $readdir[0]; $from_dir = File::Spec->catdir(File::Spec->curdir,$readdir[0]); my($mode) = (stat $from_dir)[2]; chmod $mode | 00755, $from_dir; # JONATHAN/Math-Calculus-TaylorSeries-0.1.tar.gz has 0644 my $dh2; unless ($dh2 = DirHandle->new($from_dir)) { my $why = sprintf ( "Couldn't opendir '%s', mode '%o': %s", $from_dir, $mode, $!, ); $CPAN::Frontend->mywarn("$why\n"); $self->{writemakefile} = CPAN::Distrostatus->new("NO -- $why"); return; } @dirents = grep $_ !~ /^\.\.?(?!\n)\Z/s, $dh2->read; ### MAC?? } else { my $userid = $self->cpan_userid; CPAN->debug("userid[$userid]"); if (!$userid or $userid eq "N/A") { $userid = "anon"; } $tdir_base = $userid; $from_dir = File::Spec->curdir; @dirents = @readdir; } my $packagedir; my $eexist = ($CPAN::META->has_usable("Errno") && defined &Errno::EEXIST) ? &Errno::EEXIST : undef; for(my $suffix = 0; ; $suffix++) { $packagedir = File::Spec->catdir($builddir, "$tdir_base-$suffix"); my $parent = $builddir; mkdir($packagedir, 0777) and last; if((defined($eexist) && $! != $eexist) || $suffix == 999) { $CPAN::Frontend->mydie("Cannot create directory $packagedir: $!\n"); } } my $f; for $f (@dirents) { # is already without "." and ".." my $from = File::Spec->catfile($from_dir,$f); my($mode) = (stat $from)[2]; chmod $mode | 00755, $from if -d $from; # OTTO/Pod-Trial-LinkImg-0.005.tgz my $to = File::Spec->catfile($packagedir,$f); unless (File::Copy::move($from,$to)) { my $err = $!; $from = File::Spec->rel2abs($from); $CPAN::Frontend->mydie( "Couldn't move $from to $to: $err; #82295? ". "CPAN::VERSION=$CPAN::VERSION; ". "File::Copy::VERSION=$File::Copy::VERSION; ". "$from " . (-e $from ? "exists; " : "does not exist; "). "$to " . (-e $to ? "exists; " : "does not exist; "). "cwd=" . CPAN::anycwd() . ";" ); } } $self->{build_dir} = $packagedir; $self->safe_chdir($builddir); File::Path::rmtree("tmp-$$"); $self->safe_chdir($packagedir); $self->_signature_business(); $self->safe_chdir($builddir); return($packagedir,$local_file); } #-> sub CPAN::Distribution::pick_meta_file ; sub pick_meta_file { my($self, $filter) = @_; $filter = '.' unless defined $filter; my $build_dir; unless ($build_dir = $self->{build_dir}) { # maybe permission on build_dir was missing $CPAN::Frontend->mywarn("Warning: cannot determine META.yml without a build_dir.\n"); return; } my $has_cm = $CPAN::META->has_usable("CPAN::Meta"); my $has_pcm = $CPAN::META->has_usable("Parse::CPAN::Meta"); my @choices; push @choices, 'MYMETA.json' if $has_cm; push @choices, 'MYMETA.yml' if $has_cm || $has_pcm; push @choices, 'META.json' if $has_cm; push @choices, 'META.yml' if $has_cm || $has_pcm; for my $file ( grep { /$filter/ } @choices ) { my $path = File::Spec->catfile( $build_dir, $file ); return $path if -f $path } return; } #-> sub CPAN::Distribution::parse_meta_yml ; sub parse_meta_yml { my($self, $yaml) = @_; $self->debug(sprintf("parse_meta_yml[%s]",$yaml||'undef')) if $CPAN::DEBUG; my $build_dir = $self->{build_dir} or die "PANIC: cannot parse yaml without a build_dir"; $yaml ||= File::Spec->catfile($build_dir,"META.yml"); $self->debug("meta[$yaml]") if $CPAN::DEBUG; return unless -f $yaml; my $early_yaml; eval { $CPAN::META->has_inst("Parse::CPAN::Meta") or die; die "Parse::CPAN::Meta yaml too old" unless $Parse::CPAN::Meta::VERSION >= "1.40"; # P::C::M returns last document in scalar context $early_yaml = Parse::CPAN::Meta::LoadFile($yaml); }; unless ($early_yaml) { eval { $early_yaml = CPAN->_yaml_loadfile($yaml)->[0]; }; } $self->debug(sprintf("yaml[%s]", $early_yaml || 'UNDEF')) if $CPAN::DEBUG; $self->debug($early_yaml) if $CPAN::DEBUG && $early_yaml; if (!ref $early_yaml or ref $early_yaml ne "HASH"){ # fix rt.cpan.org #95271 $CPAN::Frontend->mywarn("The content of '$yaml' is not a HASH reference. Cannot use it.\n"); return {}; } return $early_yaml || undef; } #-> sub CPAN::Distribution::satisfy_requires ; # return values: 1 means requirements are satisfied; # and 0 means not satisfied (and maybe queued) sub satisfy_requires { my ($self) = @_; $self->debug("Entering satisfy_requires") if $CPAN::DEBUG; if (my @prereq = $self->unsat_prereq("later")) { if ($CPAN::DEBUG){ require Data::Dumper; my $prereq = Data::Dumper->new(\@prereq)->Terse(1)->Indent(0)->Dump; $self->debug("unsatisfied[$prereq]"); } if ($prereq[0][0] eq "perl") { my $need = "requires perl '$prereq[0][1]'"; my $id = $self->pretty_id; $CPAN::Frontend->mywarn("$id $need; you have only $]; giving up\n"); $self->{make} = CPAN::Distrostatus->new("NO $need"); $self->store_persistent_state; die "[prereq] -- NOT OK\n"; } else { my $follow = eval { $self->follow_prereqs("later",@prereq); }; if (0) { } elsif ($follow) { return; # we need deps } elsif ($@ && ref $@ && $@->isa("CPAN::Exception::RecursiveDependency")) { $CPAN::Frontend->mywarn($@); die "[depend] -- NOT OK\n"; } } } return 1; } #-> sub CPAN::Distribution::satisfy_configure_requires ; # return values: 1 means configure_require is satisfied; # and 0 means not satisfied (and maybe queued) sub satisfy_configure_requires { my($self) = @_; $self->debug("Entering satisfy_configure_requires") if $CPAN::DEBUG; my $enable_configure_requires = 1; if (!$enable_configure_requires) { return 1; # if we return 1 here, everything is as before we introduced # configure_requires that means, things with # configure_requires simply fail, all others succeed } my @prereq = $self->unsat_prereq("configure_requires_later"); $self->debug(sprintf "configure_requires[%s]", join(",",map {join "/",@$_} @prereq)) if $CPAN::DEBUG; return 1 unless @prereq; $self->debug(\@prereq) if $CPAN::DEBUG; if ($self->{configure_requires_later}) { for my $k (sort keys %{$self->{configure_requires_later_for}||{}}) { if ($self->{configure_requires_later_for}{$k}>1) { my $type = ""; for my $p (@prereq) { if ($p->[0] eq $k) { $type = $p->[1]; } } $type = " $type" if $type; $CPAN::Frontend->mywarn("Warning: unmanageable(?) prerequisite $k$type"); sleep 1; } } } if ($prereq[0][0] eq "perl") { my $need = "requires perl '$prereq[0][1]'"; my $id = $self->pretty_id; $CPAN::Frontend->mywarn("$id $need; you have only $]; giving up\n"); $self->{make} = CPAN::Distrostatus->new("NO $need"); $self->store_persistent_state; return $self->goodbye("[prereq] -- NOT OK"); } else { my $follow = eval { $self->follow_prereqs("configure_requires_later", @prereq); }; if (0) { } elsif ($follow) { return; # we need deps } elsif ($@ && ref $@ && $@->isa("CPAN::Exception::RecursiveDependency")) { $CPAN::Frontend->mywarn($@); return $self->goodbye("[depend] -- NOT OK"); } else { return $self->goodbye("[configure_requires] -- NOT OK"); } } die "never reached"; } #-> sub CPAN::Distribution::choose_MM_or_MB ; sub choose_MM_or_MB { my($self) = @_; $self->satisfy_configure_requires() or return; my $local_file = $self->{localfile}; my($mpl) = File::Spec->catfile($self->{build_dir},"Makefile.PL"); my($mpl_exists) = -f $mpl; unless ($mpl_exists) { # NFS has been reported to have racing problems after the # renaming of a directory in some environments. # This trick helps. $CPAN::Frontend->mysleep(1); my $mpldh = DirHandle->new($self->{build_dir}) or Carp::croak("Couldn't opendir $self->{build_dir}: $!"); $mpl_exists = grep /^Makefile\.PL$/, $mpldh->read; $mpldh->close; } my $prefer_installer = "eumm"; # eumm|mb if (-f File::Spec->catfile($self->{build_dir},"Build.PL")) { if ($mpl_exists) { # they *can* choose if ($CPAN::META->has_inst("Module::Build")) { $prefer_installer = CPAN::HandleConfig->prefs_lookup( $self, q{prefer_installer} ); # M::B <= 0.35 left a DATA handle open that # causes problems upgrading M::B on Windows close *Module::Build::Version::DATA if fileno *Module::Build::Version::DATA; } } else { $prefer_installer = "mb"; } } if (lc($prefer_installer) eq "rand") { $prefer_installer = rand()<.5 ? "eumm" : "mb"; } if (lc($prefer_installer) eq "mb") { $self->{modulebuild} = 1; } elsif ($self->{archived} eq "patch") { # not an edge case, nothing to install for sure my $why = "A patch file cannot be installed"; $CPAN::Frontend->mywarn("Refusing to handle this file: $why\n"); $self->{writemakefile} = CPAN::Distrostatus->new("NO $why"); } elsif (! $mpl_exists) { $self->_edge_cases($mpl,$local_file); } if ($self->{build_dir} && $CPAN::Config->{build_dir_reuse} ) { $self->store_persistent_state; } return $self; } # see also reanimate_build_dir #-> CPAN::Distribution::store_persistent_state sub store_persistent_state { my($self) = @_; my $dir = $self->{build_dir}; unless (defined $dir && length $dir) { my $id = $self->id; $CPAN::Frontend->mywarnonce("build_dir of $id is not known, ". "will not store persistent state\n"); return; } # self-build-dir my $sbd = Cwd::realpath( File::Spec->catdir($dir, File::Spec->updir ()) ); # config-build-dir my $cbd = Cwd::realpath( # the catdir is a workaround for bug https://rt.cpan.org/Ticket/Display.html?id=101283 File::Spec->catdir($CPAN::Config->{build_dir}, File::Spec->curdir()) ); unless ($sbd eq $cbd) { $CPAN::Frontend->mywarnonce("Directory '$dir' not below $CPAN::Config->{build_dir}, ". "will not store persistent state\n"); return; } my $file = sprintf "%s.yml", $dir; my $yaml_module = CPAN::_yaml_module(); if ($CPAN::META->has_inst($yaml_module)) { CPAN->_yaml_dumpfile( $file, { time => time, perl => CPAN::_perl_fingerprint(), distribution => $self, } ); } else { $CPAN::Frontend->myprintonce("'$yaml_module' not installed, ". "will not store persistent state\n"); } } #-> CPAN::Distribution::try_download sub try_download { my($self,$patch) = @_; my $norm = $self->normalize($patch); my($local_wanted) = File::Spec->catfile( $CPAN::Config->{keep_source_where}, "authors", "id", split(/\//,$norm), ); $self->debug("Doing localize") if $CPAN::DEBUG; return CPAN::FTP->localize("authors/id/$norm", $local_wanted); } { my $stdpatchargs = ""; #-> CPAN::Distribution::patch sub patch { my($self) = @_; $self->debug("checking patches id[$self->{ID}]") if $CPAN::DEBUG; my $patches = $self->prefs->{patches}; $patches ||= ""; $self->debug("patches[$patches]") if $CPAN::DEBUG; if ($patches) { return unless @$patches; $self->safe_chdir($self->{build_dir}); CPAN->debug("patches[$patches]") if $CPAN::DEBUG; my $patchbin = $CPAN::Config->{patch}; unless ($patchbin && length $patchbin) { $CPAN::Frontend->mydie("No external patch command configured\n\n". "Please run 'o conf init /patch/'\n\n"); } unless (MM->maybe_command($patchbin)) { $CPAN::Frontend->mydie("No external patch command available\n\n". "Please run 'o conf init /patch/'\n\n"); } $patchbin = CPAN::HandleConfig->safe_quote($patchbin); local $ENV{PATCH_GET} = 0; # formerly known as -g0 unless ($stdpatchargs) { my $system = "$patchbin --version |"; local *FH; open FH, $system or die "Could not fork '$system': $!"; local $/ = "\n"; my $pversion; PARSEVERSION: while (<FH>) { if (/^patch\s+([\d\.]+)/) { $pversion = $1; last PARSEVERSION; } } if ($pversion) { $stdpatchargs = "-N --fuzz=3"; } else { $stdpatchargs = "-N"; } } my $countedpatches = @$patches == 1 ? "1 patch" : (scalar @$patches . " patches"); $CPAN::Frontend->myprint("Applying $countedpatches:\n"); my $patches_dir = $CPAN::Config->{patches_dir}; for my $patch (@$patches) { if ($patches_dir && !File::Spec->file_name_is_absolute($patch)) { my $f = File::Spec->catfile($patches_dir, $patch); $patch = $f if -f $f; } unless (-f $patch) { CPAN->debug("not on disk: patch[$patch]") if $CPAN::DEBUG; if (my $trydl = $self->try_download($patch)) { $patch = $trydl; } else { my $fail = "Could not find patch '$patch'"; $CPAN::Frontend->mywarn("$fail; cannot continue\n"); $self->{unwrapped} = CPAN::Distrostatus->new("NO -- $fail"); delete $self->{build_dir}; return; } } $CPAN::Frontend->myprint(" $patch\n"); my $readfh = CPAN::Tarzip->TIEHANDLE($patch); my $pcommand; my($ppp,$pfiles) = $self->_patch_p_parameter($readfh); if ($ppp eq "applypatch") { $pcommand = "$CPAN::Config->{applypatch} -verbose"; } else { my $thispatchargs = join " ", $stdpatchargs, $ppp; $pcommand = "$patchbin $thispatchargs"; require Config; # usually loaded from CPAN.pm if ($Config::Config{osname} eq "solaris") { # native solaris patch cannot patch readonly files for my $file (@{$pfiles||[]}) { my @stat = stat $file or next; chmod $stat[2] | 0600, $file; # may fail } } } $readfh = CPAN::Tarzip->TIEHANDLE($patch); # open again my $writefh = FileHandle->new; $CPAN::Frontend->myprint(" $pcommand\n"); unless (open $writefh, "|$pcommand") { my $fail = "Could not fork '$pcommand'"; $CPAN::Frontend->mywarn("$fail; cannot continue\n"); $self->{unwrapped} = CPAN::Distrostatus->new("NO -- $fail"); delete $self->{build_dir}; return; } binmode($writefh); while (my $x = $readfh->READLINE) { print $writefh $x; } unless (close $writefh) { my $fail = "Could not apply patch '$patch'"; $CPAN::Frontend->mywarn("$fail; cannot continue\n"); $self->{unwrapped} = CPAN::Distrostatus->new("NO -- $fail"); delete $self->{build_dir}; return; } } $self->{patched}++; } return 1; } } # may return # - "applypatch" # - ("-p0"|"-p1", $files) sub _patch_p_parameter { my($self,$fh) = @_; my $cnt_files = 0; my $cnt_p0files = 0; my @files; local($_); while ($_ = $fh->READLINE) { if ( $CPAN::Config->{applypatch} && /\#\#\#\# ApplyPatch data follows \#\#\#\#/ ) { return "applypatch" } next unless /^[\*\+]{3}\s(\S+)/; my $file = $1; push @files, $file; $cnt_files++; $cnt_p0files++ if -f $file; CPAN->debug("file[$file]cnt_files[$cnt_files]cnt_p0files[$cnt_p0files]") if $CPAN::DEBUG; } return "-p1" unless $cnt_files; my $opt_p = $cnt_files==$cnt_p0files ? "-p0" : "-p1"; return ($opt_p, \@files); } #-> sub CPAN::Distribution::_edge_cases # with "configure" or "Makefile" or single file scripts sub _edge_cases { my($self,$mpl,$local_file) = @_; $self->debug(sprintf("makefilepl[%s]anycwd[%s]", $mpl, CPAN::anycwd(), )) if $CPAN::DEBUG; my $build_dir = $self->{build_dir}; my($configure) = File::Spec->catfile($build_dir,"Configure"); if (-f $configure) { # do we have anything to do? $self->{configure} = $configure; } elsif (-f File::Spec->catfile($build_dir,"Makefile")) { $CPAN::Frontend->mywarn(qq{ Package comes with a Makefile and without a Makefile.PL. We\'ll try to build it with that Makefile then. }); $self->{writemakefile} = CPAN::Distrostatus->new("YES"); $CPAN::Frontend->mysleep(2); } else { my $cf = $self->called_for || "unknown"; if ($cf =~ m|/|) { $cf =~ s|.*/||; $cf =~ s|\W.*||; } $cf =~ s|[/\\:]||g; # risk of filesystem damage $cf = "unknown" unless length($cf); if (my $crud = $self->_contains_crud($build_dir)) { my $why = qq{Package contains $crud; not recognized as a perl package, giving up}; $CPAN::Frontend->mywarn("$why\n"); $self->{writemakefile} = CPAN::Distrostatus->new(qq{NO -- $why}); return; } $CPAN::Frontend->mywarn(qq{Package seems to come without Makefile.PL. (The test -f "$mpl" returned false.) Writing one on our own (setting NAME to $cf)\a\n}); $self->{had_no_makefile_pl}++; $CPAN::Frontend->mysleep(3); # Writing our own Makefile.PL my $exefile_stanza = ""; if ($self->{archived} eq "maybe_pl") { $exefile_stanza = $self->_exefile_stanza($build_dir,$local_file); } my $fh = FileHandle->new; $fh->open(">$mpl") or Carp::croak("Could not open >$mpl: $!"); $fh->print( qq{# This Makefile.PL has been autogenerated by the module CPAN.pm # because there was no Makefile.PL supplied. # Autogenerated on: }.scalar localtime().qq{ use ExtUtils::MakeMaker; WriteMakefile( NAME => q[$cf],$exefile_stanza ); }); $fh->close; } } #-> CPAN;:Distribution::_contains_crud sub _contains_crud { my($self,$dir) = @_; my(@dirs, $dh, @files); opendir $dh, $dir or return; my $dirent; for $dirent (readdir $dh) { next if $dirent =~ /^\.\.?$/; my $path = File::Spec->catdir($dir,$dirent); if (-d $path) { push @dirs, $dirent; } elsif (-f $path) { push @files, $dirent; } } if (@dirs && @files) { return "both files[@files] and directories[@dirs]"; } elsif (@files > 2) { return "several files[@files] but no Makefile.PL or Build.PL"; } return; } #-> CPAN;:Distribution::_exefile_stanza sub _exefile_stanza { my($self,$build_dir,$local_file) = @_; my $fh = FileHandle->new; my $script_file = File::Spec->catfile($build_dir,$local_file); $fh->open($script_file) or Carp::croak("Could not open script '$script_file': $!"); local $/ = "\n"; # parse name and prereq my($state) = "poddir"; my($name, $prereq) = ("", ""); while (<$fh>) { if ($state eq "poddir" && /^=head\d\s+(\S+)/) { if ($1 eq 'NAME') { $state = "name"; } elsif ($1 eq 'PREREQUISITES') { $state = "prereq"; } } elsif ($state =~ m{^(name|prereq)$}) { if (/^=/) { $state = "poddir"; } elsif (/^\s*$/) { # nop } elsif ($state eq "name") { if ($name eq "") { ($name) = /^(\S+)/; $state = "poddir"; } } elsif ($state eq "prereq") { $prereq .= $_; } } elsif (/^=cut\b/) { last; } } $fh->close; for ($name) { s{.*<}{}; # strip X<...> s{>.*}{}; } chomp $prereq; $prereq = join " ", split /\s+/, $prereq; my($PREREQ_PM) = join("\n", map { s{.*<}{}; # strip X<...> s{>.*}{}; if (/[\s\'\"]/) { # prose? } else { s/[^\w:]$//; # period? " "x28 . "'$_' => 0,"; } } split /\s*,\s*/, $prereq); if ($name) { my $to_file = File::Spec->catfile($build_dir, $name); rename $script_file, $to_file or die "Can't rename $script_file to $to_file: $!"; } return " EXE_FILES => ['$name'], PREREQ_PM => { $PREREQ_PM }, "; } #-> CPAN::Distribution::_signature_business sub _signature_business { my($self) = @_; my $check_sigs = CPAN::HandleConfig->prefs_lookup($self, q{check_sigs}); if ($check_sigs) { if ($CPAN::META->has_inst("Module::Signature")) { if (-f "SIGNATURE") { $self->debug("Module::Signature is installed, verifying") if $CPAN::DEBUG; my $rv = Module::Signature::verify(); if ($rv != Module::Signature::SIGNATURE_OK() and $rv != Module::Signature::SIGNATURE_MISSING()) { $CPAN::Frontend->mywarn( qq{\nSignature invalid for }. qq{distribution file. }. qq{Please investigate.\n\n} ); my $wrap = sprintf(qq{I'd recommend removing %s. Some error occurred }. qq{while checking its signature, so it could }. qq{be invalid. Maybe you have configured }. qq{your 'urllist' with a bad URL. Please check this }. qq{array with 'o conf urllist' and retry. Or }. qq{examine the distribution in a subshell. Try look %s and run cpansign -v }, $self->{localfile}, $self->pretty_id, ); $self->{signature_verify} = CPAN::Distrostatus->new("NO"); $CPAN::Frontend->mywarn(Text::Wrap::wrap("","",$wrap)); $CPAN::Frontend->mysleep(5) if $CPAN::Frontend->can("mysleep"); } else { $self->{signature_verify} = CPAN::Distrostatus->new("YES"); $self->debug("Module::Signature has verified") if $CPAN::DEBUG; } } else { $CPAN::Frontend->mywarn(qq{Package came without SIGNATURE\n\n}); } } else { $self->debug("Module::Signature is NOT installed") if $CPAN::DEBUG; } } } #-> CPAN::Distribution::untar_me ; sub untar_me { my($self,$ct) = @_; $self->{archived} = "tar"; my $result = eval { $ct->untar() }; if ($result) { $self->{unwrapped} = CPAN::Distrostatus->new("YES"); } else { # unfortunately we have no $@ here, Tarzip is using mydie which dies with "\n" $self->{unwrapped} = CPAN::Distrostatus->new("NO -- untar failed"); } } # CPAN::Distribution::unzip_me ; sub unzip_me { my($self,$ct) = @_; $self->{archived} = "zip"; if (eval { $ct->unzip() }) { $self->{unwrapped} = CPAN::Distrostatus->new("YES"); } else { $self->{unwrapped} = CPAN::Distrostatus->new("NO -- unzip failed during unzip"); } return; } sub handle_singlefile { my($self,$local_file) = @_; if ( $local_file =~ /\.pm(\.(gz|Z))?(?!\n)\Z/ ) { $self->{archived} = "pm"; } elsif ( $local_file =~ /\.patch(\.(gz|bz2))?(?!\n)\Z/ ) { $self->{archived} = "patch"; } else { $self->{archived} = "maybe_pl"; } my $to = File::Basename::basename($local_file); if ($to =~ s/\.(gz|Z)(?!\n)\Z//) { if (eval{CPAN::Tarzip->new($local_file)->gunzip($to)}) { $self->{unwrapped} = CPAN::Distrostatus->new("YES"); } else { $self->{unwrapped} = CPAN::Distrostatus->new("NO -- uncompressing failed"); } } else { if (File::Copy::cp($local_file,".")) { $self->{unwrapped} = CPAN::Distrostatus->new("YES"); } else { $self->{unwrapped} = CPAN::Distrostatus->new("NO -- copying failed"); } } return $to; } #-> sub CPAN::Distribution::new ; sub new { my($class,%att) = @_; # $CPAN::META->{cachemgr} ||= CPAN::CacheMgr->new(); my $this = { %att }; return bless $this, $class; } #-> sub CPAN::Distribution::look ; sub look { my($self) = @_; if ($^O eq 'MacOS') { $self->Mac::BuildTools::look; return; } if ( $CPAN::Config->{'shell'} ) { $CPAN::Frontend->myprint(qq{ Trying to open a subshell in the build directory... }); } else { $CPAN::Frontend->myprint(qq{ Your configuration does not define a value for subshells. Please define it with "o conf shell <your shell>" }); return; } my $dist = $self->id; my $dir; unless ($dir = $self->dir) { $self->get; } unless ($dir ||= $self->dir) { $CPAN::Frontend->mywarn(qq{ Could not determine which directory to use for looking at $dist. }); return; } my $pwd = CPAN::anycwd(); $self->safe_chdir($dir); $CPAN::Frontend->myprint(qq{Working directory is $dir\n}); { local $ENV{CPAN_SHELL_LEVEL} = $ENV{CPAN_SHELL_LEVEL}||0; $ENV{CPAN_SHELL_LEVEL} += 1; my $shell = CPAN::HandleConfig->safe_quote($CPAN::Config->{'shell'}); local $ENV{PERL5LIB} = defined($ENV{PERL5LIB}) ? $ENV{PERL5LIB} : ($ENV{PERLLIB} || ""); local $ENV{PERL5OPT} = defined $ENV{PERL5OPT} ? $ENV{PERL5OPT} : ""; # local $ENV{PERL_USE_UNSAFE_INC} = exists $ENV{PERL_USE_UNSAFE_INC} ? $ENV{PERL_USE_UNSAFE_INC} : 1; # look $CPAN::META->set_perl5lib; local $ENV{MAKEFLAGS}; # protect us from outer make calls unless (system($shell) == 0) { my $code = $? >> 8; $CPAN::Frontend->mywarn("Subprocess shell exit code $code\n"); } } $self->safe_chdir($pwd); } # CPAN::Distribution::cvs_import ; sub cvs_import { my($self) = @_; $self->get; my $dir = $self->dir; my $package = $self->called_for; my $module = $CPAN::META->instance('CPAN::Module', $package); my $version = $module->cpan_version; my $userid = $self->cpan_userid; my $cvs_dir = (split /\//, $dir)[-1]; $cvs_dir =~ s/-\d+[^-]+(?!\n)\Z//; my $cvs_root = $CPAN::Config->{cvsroot} || $ENV{CVSROOT}; my $cvs_site_perl = $CPAN::Config->{cvs_site_perl} || $ENV{CVS_SITE_PERL}; if ($cvs_site_perl) { $cvs_dir = "$cvs_site_perl/$cvs_dir"; } my $cvs_log = qq{"imported $package $version sources"}; $version =~ s/\./_/g; # XXX cvs: undocumented and unclear how it was meant to work my @cmd = ('cvs', '-d', $cvs_root, 'import', '-m', $cvs_log, "$cvs_dir", $userid, "v$version"); my $pwd = CPAN::anycwd(); chdir($dir) or $CPAN::Frontend->mydie(qq{Could not chdir to "$dir": $!}); $CPAN::Frontend->myprint(qq{Working directory is $dir\n}); $CPAN::Frontend->myprint(qq{@cmd\n}); system(@cmd) == 0 or # XXX cvs $CPAN::Frontend->mydie("cvs import failed"); chdir($pwd) or $CPAN::Frontend->mydie(qq{Could not chdir to "$pwd": $!}); } #-> sub CPAN::Distribution::readme ; sub readme { my($self) = @_; my($dist) = $self->id; my($sans,$suffix) = $dist =~ /(.+)\.(tgz|tar[\._-]gz|tar\.Z|zip)$/; $self->debug("sans[$sans] suffix[$suffix]\n") if $CPAN::DEBUG; my($local_file); my($local_wanted) = File::Spec->catfile( $CPAN::Config->{keep_source_where}, "authors", "id", split(/\//,"$sans.readme"), ); my $readme = "authors/id/$sans.readme"; $self->debug("Doing localize for '$readme'") if $CPAN::DEBUG; $local_file = CPAN::FTP->localize($readme, $local_wanted) or $CPAN::Frontend->mydie(qq{No $sans.readme found}); if ($^O eq 'MacOS') { Mac::BuildTools::launch_file($local_file); return; } my $fh_pager = FileHandle->new; local($SIG{PIPE}) = "IGNORE"; my $pager = $CPAN::Config->{'pager'} || "cat"; $fh_pager->open("|$pager") or die "Could not open pager $pager\: $!"; my $fh_readme = FileHandle->new; $fh_readme->open($local_file) or $CPAN::Frontend->mydie(qq{Could not open "$local_file": $!}); $CPAN::Frontend->myprint(qq{ Displaying file $local_file with pager "$pager" }); $fh_pager->print(<$fh_readme>); $fh_pager->close; } #-> sub CPAN::Distribution::verifyCHECKSUM ; sub verifyCHECKSUM { my($self) = @_; EXCUSE: { my @e; $self->{CHECKSUM_STATUS} ||= ""; $self->{CHECKSUM_STATUS} eq "OK" and push @e, "Checksum was ok"; $CPAN::Frontend->myprint(join "", map {" $_\n"} @e) and return if @e; } my($lc_want,$lc_file,@local,$basename); @local = split(/\//,$self->id); pop @local; push @local, "CHECKSUMS"; $lc_want = File::Spec->catfile($CPAN::Config->{keep_source_where}, "authors", "id", @local); local($") = "/"; if (my $size = -s $lc_want) { $self->debug("lc_want[$lc_want]size[$size]") if $CPAN::DEBUG; if ($self->CHECKSUM_check_file($lc_want,1)) { return $self->{CHECKSUM_STATUS} = "OK"; } } $lc_file = CPAN::FTP->localize("authors/id/@local", $lc_want,1); unless ($lc_file) { $CPAN::Frontend->myprint("Trying $lc_want.gz\n"); $local[-1] .= ".gz"; $lc_file = CPAN::FTP->localize("authors/id/@local", "$lc_want.gz",1); if ($lc_file) { $lc_file =~ s/\.gz(?!\n)\Z//; eval{CPAN::Tarzip->new("$lc_file.gz")->gunzip($lc_file)}; } else { return; } } if ($self->CHECKSUM_check_file($lc_file)) { return $self->{CHECKSUM_STATUS} = "OK"; } } #-> sub CPAN::Distribution::SIG_check_file ; sub SIG_check_file { my($self,$chk_file) = @_; my $rv = eval { Module::Signature::_verify($chk_file) }; if ($rv eq Module::Signature::CANNOT_VERIFY()) { $CPAN::Frontend->myprint(qq{\nSignature for }. qq{file $chk_file could not be verified for an unknown reason. }. $self->as_string. qq{Module::Signature verification returned value $rv\n\n} ); my $wrap = qq{The manual says for this case: Cannot verify the OpenPGP signature, maybe due to the lack of a network connection to the key server, or if neither gnupg nor Crypt::OpenPGP exists on the system. You probably want to analyse the situation and if you cannot fix it you will have to decide whether you want to stop this session or you want to turn off signature verification. The latter would be done with the command 'o conf init check_sigs'}; $CPAN::Frontend->mydie(Text::Wrap::wrap("","",$wrap)); } if ($rv == Module::Signature::SIGNATURE_OK()) { $CPAN::Frontend->myprint("Signature for $chk_file ok\n"); return $self->{SIG_STATUS} = "OK"; } else { $CPAN::Frontend->mywarn(qq{\nSignature invalid for }. qq{file $chk_file. }. qq{Please investigate.\n\n}. $self->as_string. qq{Module::Signature verification returned value $rv\n\n} ); my $wrap = qq{I\'d recommend removing $chk_file. Its signature is invalid. Maybe you have configured your 'urllist' with a bad URL. Please check this array with 'o conf urllist', and retry.}; $CPAN::Frontend->mydie(Text::Wrap::wrap("","",$wrap)); } } #-> sub CPAN::Distribution::CHECKSUM_check_file ; # sloppy is 1 when we have an old checksums file that maybe is good # enough sub CHECKSUM_check_file { my($self,$chk_file,$sloppy) = @_; my($cksum,$file,$basename); $sloppy ||= 0; $self->debug("chk_file[$chk_file]sloppy[$sloppy]") if $CPAN::DEBUG; my $check_sigs = CPAN::HandleConfig->prefs_lookup($self, q{check_sigs}); if ($check_sigs) { if ($CPAN::META->has_inst("Module::Signature")) { $self->debug("Module::Signature is installed, verifying") if $CPAN::DEBUG; $self->SIG_check_file($chk_file); } else { $self->debug("Module::Signature is NOT installed") if $CPAN::DEBUG; } } $file = $self->{localfile}; $basename = File::Basename::basename($file); my($signed_data); my $fh = FileHandle->new; if ($check_sigs) { my $tempdir; if ($CPAN::META->has_usable("File::Temp")) { $tempdir = File::Temp::tempdir("CHECKSUMS-XXXX", CLEANUP => 1, DIR => "/tmp" ); } else { $tempdir = File::Spec->catdir(File::Spec->tmpdir, "CHECKSUMS-$$"); File::Path::mkpath($tempdir); } my $tempfile = File::Spec->catfile($tempdir, "CHECKSUMS.$$"); unlink $tempfile; # ignore missing file my $devnull = File::Spec->devnull; my $gpg = $CPAN::Config->{gpg} or $CPAN::Frontend->mydie("Your configuration suggests that you do not have 'gpg' installed. This is needed to verify checksums with the config variable 'check_sigs' on. Please configure it with 'o conf init gpg'"); my $system = qq{"$gpg" --verify --batch --no-tty --output "$tempfile" "$chk_file" 2> "$devnull"}; 0 == system $system or $CPAN::Frontend->mydie("gpg run was failing, cannot continue: $system"); open $fh, $tempfile or $CPAN::Frontend->mydie("Could not open $tempfile: $!"); local $/; $signed_data = <$fh>; close $fh; File::Path::rmtree($tempdir); } else { my $fh = FileHandle->new; if (open $fh, $chk_file) { local($/); $signed_data = <$fh>; } else { $CPAN::Frontend->mydie("Could not open $chk_file for reading"); } close $fh; } $signed_data =~ s/\015?\012/\n/g; my($compmt) = Safe->new(); $cksum = $compmt->reval($signed_data); if ($@) { rename $chk_file, "$chk_file.bad"; Carp::confess($@) if $@; } if (! ref $cksum or ref $cksum ne "HASH") { $CPAN::Frontend->mywarn(qq{ Warning: checksum file '$chk_file' broken. When trying to read that file I expected to get a hash reference for further processing, but got garbage instead. }); my $answer = CPAN::Shell::colorable_makemaker_prompt("Proceed nonetheless?", "no"); $answer =~ /^\s*y/i or $CPAN::Frontend->mydie("Aborted.\n"); $self->{CHECKSUM_STATUS} = "NIL -- CHECKSUMS file broken"; return; } elsif (exists $cksum->{$basename} && ! exists $cksum->{$basename}{cpan_path}) { $CPAN::Frontend->mywarn(qq{ Warning: checksum file '$chk_file' not conforming. The cksum does not contain the key 'cpan_path' for '$basename'. }); my $answer = CPAN::Shell::colorable_makemaker_prompt("Proceed nonetheless?", "no"); $answer =~ /^\s*y/i or $CPAN::Frontend->mydie("Aborted.\n"); $self->{CHECKSUM_STATUS} = "NIL -- CHECKSUMS file without cpan_path"; return; } elsif (exists $cksum->{$basename} && substr($self->{ID},0,length($cksum->{$basename}{cpan_path})) ne $cksum->{$basename}{cpan_path}) { $CPAN::Frontend->mywarn(qq{ Warning: checksum file not matching path '$self->{ID}'. The cksum contain the key 'cpan_path=$cksum->{$basename}{cpan_path}' which does not match the ID of the distribution '$self->{ID}'. Something's suspicious might be going on here. Please investigate. }); my $answer = CPAN::Shell::colorable_makemaker_prompt("Proceed nonetheless?", "no"); $answer =~ /^\s*y/i or $CPAN::Frontend->mydie("Aborted.\n"); $self->{CHECKSUM_STATUS} = "NIL -- CHECKSUMS non-matching cpan_path vs. ID"; return; } elsif (exists $cksum->{$basename}{sha256}) { $self->debug("Found checksum for $basename:" . "$cksum->{$basename}{sha256}\n") if $CPAN::DEBUG; open($fh, $file); binmode $fh; my $eq = $self->eq_CHECKSUM($fh,$cksum->{$basename}{sha256}); $fh->close; $fh = CPAN::Tarzip->TIEHANDLE($file); unless ($eq) { my $dg = Digest::SHA->new(256); my($data,$ref); $ref = \$data; while ($fh->READ($ref, 4096) > 0) { $dg->add($data); } my $hexdigest = $dg->hexdigest; $eq += $hexdigest eq $cksum->{$basename}{'sha256-ungz'}; } if ($eq) { $CPAN::Frontend->myprint("Checksum for $file ok\n"); return $self->{CHECKSUM_STATUS} = "OK"; } else { $CPAN::Frontend->myprint(qq{\nChecksum mismatch for }. qq{distribution file. }. qq{Please investigate.\n\n}. $self->as_string, $CPAN::META->instance( 'CPAN::Author', $self->cpan_userid )->as_string); my $wrap = qq{I\'d recommend removing $file. Its checksum is incorrect. Maybe you have configured your 'urllist' with a bad URL. Please check this array with 'o conf urllist', and retry.}; $CPAN::Frontend->mydie(Text::Wrap::wrap("","",$wrap)); # former versions just returned here but this seems a # serious threat that deserves a die # $CPAN::Frontend->myprint("\n\n"); # sleep 3; # return; } # close $fh if fileno($fh); } else { return if $sloppy; unless ($self->{CHECKSUM_STATUS}) { $CPAN::Frontend->mywarn(qq{ Warning: No checksum for $basename in $chk_file. The cause for this may be that the file is very new and the checksum has not yet been calculated, but it may also be that something is going awry right now. }); my $answer = CPAN::Shell::colorable_makemaker_prompt("Proceed?", "yes"); $answer =~ /^\s*y/i or $CPAN::Frontend->mydie("Aborted.\n"); } $self->{CHECKSUM_STATUS} = "NIL -- distro not in CHECKSUMS file"; return; } } #-> sub CPAN::Distribution::eq_CHECKSUM ; sub eq_CHECKSUM { my($self,$fh,$expect) = @_; if ($CPAN::META->has_inst("Digest::SHA")) { my $dg = Digest::SHA->new(256); my($data); while (read($fh, $data, 4096)) { $dg->add($data); } my $hexdigest = $dg->hexdigest; # warn "fh[$fh] hex[$hexdigest] aexp[$expectMD5]"; return $hexdigest eq $expect; } return 1; } #-> sub CPAN::Distribution::force ; # Both CPAN::Modules and CPAN::Distributions know if "force" is in # effect by autoinspection, not by inspecting a global variable. One # of the reason why this was chosen to work that way was the treatment # of dependencies. They should not automatically inherit the force # status. But this has the downside that ^C and die() will return to # the prompt but will not be able to reset the force_update # attributes. We try to correct for it currently in the read_metadata # routine, and immediately before we check for a Signal. I hope this # works out in one of v1.57_53ff # "Force get forgets previous error conditions" #-> sub CPAN::Distribution::fforce ; sub fforce { my($self, $method) = @_; $self->force($method,1); } #-> sub CPAN::Distribution::force ; sub force { my($self, $method,$fforce) = @_; my %phase_map = ( get => [ "unwrapped", "build_dir", "archived", "localfile", "CHECKSUM_STATUS", "signature_verify", "prefs", "prefs_file", "prefs_file_doc", "cleanup_after_install_done", ], make => [ "writemakefile", "make", "modulebuild", "prereq_pm", "cleanup_after_install_done", ], test => [ "badtestcnt", "make_test", "cleanup_after_install_done", ], install => [ "install", "cleanup_after_install_done", ], unknown => [ "reqtype", "yaml_content", "cleanup_after_install_done", ], ); my $methodmatch = 0; my $ldebug = 0; PHASE: for my $phase (qw(unknown get make test install)) { # order matters $methodmatch = 1 if $fforce || ($method && $phase eq $method); next unless $methodmatch; ATTRIBUTE: for my $att (@{$phase_map{$phase}}) { if ($phase eq "get") { if (substr($self->id,-1,1) eq "." && $att =~ /(unwrapped|build_dir|archived)/ ) { # cannot be undone for local distros next ATTRIBUTE; } if ($att eq "build_dir" && $self->{build_dir} && $CPAN::META->{is_tested} ) { delete $CPAN::META->{is_tested}{$self->{build_dir}}; } } elsif ($phase eq "test") { if ($att eq "make_test" && $self->{make_test} && $self->{make_test}{COMMANDID} && $self->{make_test}{COMMANDID} == $CPAN::CurrentCommandId ) { # endless loop too likely next ATTRIBUTE; } } delete $self->{$att}; if ($ldebug || $CPAN::DEBUG) { # local $CPAN::DEBUG = 16; # Distribution CPAN->debug(sprintf "id[%s]phase[%s]att[%s]", $self->id, $phase, $att); } } } if ($method && $method =~ /make|test|install/) { $self->{force_update} = 1; # name should probably have been force_install } } #-> sub CPAN::Distribution::notest ; sub notest { my($self, $method) = @_; # $CPAN::Frontend->mywarn("XDEBUG: set notest for $self $method"); $self->{"notest"}++; # name should probably have been force_install } #-> sub CPAN::Distribution::unnotest ; sub unnotest { my($self) = @_; # warn "XDEBUG: deleting notest"; delete $self->{notest}; } #-> sub CPAN::Distribution::unforce ; sub unforce { my($self) = @_; delete $self->{force_update}; } #-> sub CPAN::Distribution::isa_perl ; sub isa_perl { my($self) = @_; my $file = File::Basename::basename($self->id); if ($file =~ m{ ^ perl ( -(5\.\d+\.\d+) | (5)[._-](00[0-5](?:_[0-4][0-9])?) ) \.tar[._-](?:gz|bz2) (?!\n)\Z }xs) { my $perl_version; if ($2) { $perl_version = $2; } else { $perl_version = "$3.$4"; } return $perl_version; } elsif ($self->cpan_comment && $self->cpan_comment =~ /isa_perl\(.+?\)/) { return $1; } } #-> sub CPAN::Distribution::perl ; sub perl { my ($self) = @_; if (! $self) { use Carp qw(carp); carp __PACKAGE__ . "::perl was called without parameters."; } return CPAN::HandleConfig->safe_quote($CPAN::Perl); } #-> sub CPAN::Distribution::shortcut_prepare ; # return values: undef means don't shortcut; 0 means shortcut as fail; # and 1 means shortcut as success sub shortcut_prepare { my ($self) = @_; $self->debug("checking archive type[$self->{ID}]") if $CPAN::DEBUG; if (!$self->{archived} || $self->{archived} eq "NO") { return $self->goodbye("Is neither a tar nor a zip archive."); } $self->debug("checking unwrapping[$self->{ID}]") if $CPAN::DEBUG; if (!$self->{unwrapped} || ( UNIVERSAL::can($self->{unwrapped},"failed") ? $self->{unwrapped}->failed : $self->{unwrapped} =~ /^NO/ )) { return $self->goodbye("Had problems unarchiving. Please build manually"); } $self->debug("checking signature[$self->{ID}]") if $CPAN::DEBUG; if ( ! $self->{force_update} && exists $self->{signature_verify} && ( UNIVERSAL::can($self->{signature_verify},"failed") ? $self->{signature_verify}->failed : $self->{signature_verify} =~ /^NO/ ) ) { return $self->goodbye("Did not pass the signature test."); } $self->debug("checking writemakefile[$self->{ID}]") if $CPAN::DEBUG; if ($self->{writemakefile}) { if ( UNIVERSAL::can($self->{writemakefile},"failed") ? $self->{writemakefile}->failed : $self->{writemakefile} =~ /^NO/ ) { # XXX maybe a retry would be in order? my $err = UNIVERSAL::can($self->{writemakefile},"text") ? $self->{writemakefile}->text : $self->{writemakefile}; $err =~ s/^NO\s*(--\s+)?//; $err ||= "Had some problem writing Makefile"; $err .= ", not re-running"; return $self->goodbye($err); } else { return $self->success("Has already been prepared"); } } $self->debug("checking configure_requires_later[$self->{ID}]") if $CPAN::DEBUG; if( my $later = $self->{configure_requires_later} ) { # see also undelay return $self->goodbye($later); } return undef; # no shortcut } sub prepare { my ($self) = @_; $self->get or return; if ( defined( my $sc = $self->shortcut_prepare) ) { return $sc; } local $ENV{PERL5LIB} = defined($ENV{PERL5LIB}) ? $ENV{PERL5LIB} : ($ENV{PERLLIB} || ""); local $ENV{PERL5OPT} = defined $ENV{PERL5OPT} ? $ENV{PERL5OPT} : ""; local $ENV{PERL_USE_UNSAFE_INC} = exists $ENV{PERL_USE_UNSAFE_INC} && defined $ENV{PERL_USE_UNSAFE_INC} ? $ENV{PERL_USE_UNSAFE_INC} : 1; # prepare $CPAN::META->set_perl5lib; local $ENV{MAKEFLAGS}; # protect us from outer make calls if ($CPAN::Signal) { delete $self->{force_update}; return; } my $builddir = $self->dir or $CPAN::Frontend->mydie("PANIC: Cannot determine build directory\n"); unless (chdir $builddir) { $CPAN::Frontend->mywarn("Couldn't chdir to '$builddir': $!"); return; } if ($CPAN::Signal) { delete $self->{force_update}; return; } $self->debug("Changed directory to $builddir") if $CPAN::DEBUG; local $ENV{PERL_AUTOINSTALL} = $ENV{PERL_AUTOINSTALL} || ''; local $ENV{PERL_EXTUTILS_AUTOINSTALL} = $ENV{PERL_EXTUTILS_AUTOINSTALL} || ''; $self->choose_MM_or_MB or return; my $configurator = $self->{configure} ? "Configure" : $self->{modulebuild} ? "Build.PL" : "Makefile.PL"; $CPAN::Frontend->myprint("Configuring ".$self->id." with $configurator\n"); if ($CPAN::Config->{prerequisites_policy} eq "follow") { $ENV{PERL_AUTOINSTALL} ||= "--defaultdeps"; $ENV{PERL_EXTUTILS_AUTOINSTALL} ||= "--defaultdeps"; } my $system; my $pl_commandline; if ($self->prefs->{pl}) { $pl_commandline = $self->prefs->{pl}{commandline}; } local $ENV{PERL} = defined $ENV{PERL}? $ENV{PERL} : $^X; local $ENV{PERL5_CPAN_IS_EXECUTING} = $ENV{PERL5_CPAN_IS_EXECUTING} || ''; local $ENV{PERL_MM_USE_DEFAULT} = 1 if $CPAN::Config->{use_prompt_default}; local $ENV{NONINTERACTIVE_TESTING} = 1 if $CPAN::Config->{use_prompt_default}; if ($pl_commandline) { $system = $pl_commandline; $ENV{PERL} = $^X; } elsif ($self->{'configure'}) { $system = $self->{'configure'}; } elsif ($self->{modulebuild}) { my($perl) = $self->perl or die "Couldn\'t find executable perl\n"; my $mbuildpl_arg = $self->_make_phase_arg("pl"); $system = sprintf("%s Build.PL%s", $perl, $mbuildpl_arg ? " $mbuildpl_arg" : "", ); } else { my($perl) = $self->perl or die "Couldn\'t find executable perl\n"; my $switch = ""; # This needs a handler that can be turned on or off: # $switch = "-MExtUtils::MakeMaker ". # "-Mops=:default,:filesys_read,:filesys_open,require,chdir" # if $] > 5.00310; my $makepl_arg = $self->_make_phase_arg("pl"); $ENV{PERL5_CPAN_IS_EXECUTING} = File::Spec->catfile($self->{build_dir}, "Makefile.PL"); $system = sprintf("%s%s Makefile.PL%s", $perl, $switch ? " $switch" : "", $makepl_arg ? " $makepl_arg" : "", ); } my $pl_env; if ($self->prefs->{pl}) { $pl_env = $self->prefs->{pl}{env}; } local @ENV{keys %$pl_env} = values %$pl_env if $pl_env; if (exists $self->{writemakefile}) { } else { local($SIG{ALRM}) = sub { die "inactivity_timeout reached\n" }; my($ret,$pid,$output); $@ = ""; my $go_via_alarm; if ($CPAN::Config->{inactivity_timeout}) { require Config; if ($Config::Config{d_alarm} && $Config::Config{d_alarm} eq "define" ) { $go_via_alarm++ } else { $CPAN::Frontend->mywarn("Warning: you have configured the config ". "variable 'inactivity_timeout' to ". "'$CPAN::Config->{inactivity_timeout}'. But ". "on this machine the system call 'alarm' ". "isn't available. This means that we cannot ". "provide the feature of intercepting long ". "waiting code and will turn this feature off.\n" ); $CPAN::Config->{inactivity_timeout} = 0; } } if ($go_via_alarm) { if ( $self->_should_report('pl') ) { ($output, $ret) = CPAN::Reporter::record_command( $system, $CPAN::Config->{inactivity_timeout}, ); CPAN::Reporter::grade_PL( $self, $system, $output, $ret ); } else { eval { alarm $CPAN::Config->{inactivity_timeout}; local $SIG{CHLD}; # = sub { wait }; if (defined($pid = fork)) { if ($pid) { #parent # wait; waitpid $pid, 0; } else { #child # note, this exec isn't necessary if # inactivity_timeout is 0. On the Mac I'd # suggest, we set it always to 0. exec $system; } } else { $CPAN::Frontend->myprint("Cannot fork: $!"); return; } }; alarm 0; if ($@) { kill 9, $pid; waitpid $pid, 0; my $err = "$@"; $CPAN::Frontend->myprint($err); $self->{writemakefile} = CPAN::Distrostatus->new("NO $err"); $@ = ""; $self->store_persistent_state; return $self->goodbye("$system -- TIMED OUT"); } } } else { if (my $expect_model = $self->_prefs_with_expect("pl")) { # XXX probably want to check _should_report here and warn # about not being able to use CPAN::Reporter with expect $ret = $self->_run_via_expect($system,'writemakefile',$expect_model); if (! defined $ret && $self->{writemakefile} && $self->{writemakefile}->failed) { # timeout return; } } elsif ( $self->_should_report('pl') ) { ($output, $ret) = eval { CPAN::Reporter::record_command($system) }; if (! defined $output or $@) { my $err = $@ || "Unknown error"; $CPAN::Frontend->mywarn("Error while running PL phase: $err\n"); $self->{writemakefile} = CPAN::Distrostatus ->new("NO '$system' returned status $ret and no output"); return $self->goodbye("$system -- NOT OK"); } CPAN::Reporter::grade_PL( $self, $system, $output, $ret ); } else { $ret = system($system); } if ($ret != 0) { $self->{writemakefile} = CPAN::Distrostatus ->new("NO '$system' returned status $ret"); $CPAN::Frontend->mywarn("Warning: No success on command[$system]\n"); $self->store_persistent_state; return $self->goodbye("$system -- NOT OK"); } } if (-f "Makefile" || -f "Build" || ($^O eq 'VMS' && (-f 'descrip.mms' || -f 'Build.com'))) { $self->{writemakefile} = CPAN::Distrostatus->new("YES"); delete $self->{make_clean}; # if cleaned before, enable next $self->store_persistent_state; return $self->success("$system -- OK"); } else { my $makefile = $self->{modulebuild} ? "Build" : "Makefile"; my $why = "No '$makefile' created"; $CPAN::Frontend->mywarn($why); $self->{writemakefile} = CPAN::Distrostatus ->new(qq{NO -- $why\n}); $self->store_persistent_state; return $self->goodbye("$system -- NOT OK"); } } $self->store_persistent_state; return 1; # success } #-> sub CPAN::Distribution::shortcut_make ; # return values: undef means don't shortcut; 0 means shortcut as fail; # and 1 means shortcut as success sub shortcut_make { my ($self) = @_; $self->debug("checking make/build results[$self->{ID}]") if $CPAN::DEBUG; if (defined $self->{make}) { if (UNIVERSAL::can($self->{make},"failed") ? $self->{make}->failed : $self->{make} =~ /^NO/ ) { if ($self->{force_update}) { # Trying an already failed 'make' (unless somebody else blocks) return undef; # no shortcut } else { # introduced for turning recursion detection into a distrostatus my $error = length $self->{make}>3 ? substr($self->{make},3) : "Unknown error"; $self->store_persistent_state; return $self->goodbye("Could not make: $error\n"); } } else { return $self->success("Has already been made") } } return undef; # no shortcut } #-> sub CPAN::Distribution::make ; sub make { my($self) = @_; $self->pre_make(); if (exists $self->{cleanup_after_install_done}) { $self->post_make(); return $self->get; } $self->debug("checking goto id[$self->{ID}]") if $CPAN::DEBUG; if (my $goto = $self->prefs->{goto}) { $self->post_make(); return $self->goto($goto); } # Emergency brake if they said install Pippi and get newest perl # XXX Would this make more sense in shortcut_prepare, since # that doesn't make sense on a perl dist either? Broader # question: what is the purpose of suggesting force install # on a perl distribution? That seems unlikely to result in # such a dependency being satisfied, even if the perl is # successfully installed. This situation is tantamount to # a prereq on a version of perl greater than the current one # so I think we should just abort. -- xdg, 2012-04-06 if ($self->isa_perl) { if ( $self->called_for ne $self->id && ! $self->{force_update} ) { # if we die here, we break bundles $CPAN::Frontend ->mywarn(sprintf( qq{The most recent version "%s" of the module "%s" is part of the perl-%s distribution. To install that, you need to run force install %s --or-- install %s }, $CPAN::META->instance( 'CPAN::Module', $self->called_for )->cpan_version, $self->called_for, $self->isa_perl, $self->called_for, $self->pretty_id, )); $self->{make} = CPAN::Distrostatus->new("NO isa perl"); $CPAN::Frontend->mysleep(1); $self->post_make(); return; } } unless ($self->prepare){ $self->post_make(); return; } if ( defined( my $sc = $self->shortcut_make) ) { $self->post_make(); return $sc; } if ($CPAN::Signal) { delete $self->{force_update}; $self->post_make(); return; } my $builddir = $self->dir or $CPAN::Frontend->mydie("PANIC: Cannot determine build directory\n"); unless (chdir $builddir) { $CPAN::Frontend->mywarn("Couldn't chdir to '$builddir': $!"); $self->post_make(); return; } my $make = $self->{modulebuild} ? "Build" : "make"; $CPAN::Frontend->myprint(sprintf "Running %s for %s\n", $make, $self->id); local $ENV{PERL5LIB} = defined($ENV{PERL5LIB}) ? $ENV{PERL5LIB} : ($ENV{PERLLIB} || ""); local $ENV{PERL5OPT} = defined $ENV{PERL5OPT} ? $ENV{PERL5OPT} : ""; local $ENV{PERL_USE_UNSAFE_INC} = exists $ENV{PERL_USE_UNSAFE_INC} && defined $ENV{PERL_USE_UNSAFE_INC} ? $ENV{PERL_USE_UNSAFE_INC} : 1; # make $CPAN::META->set_perl5lib; local $ENV{MAKEFLAGS}; # protect us from outer make calls if ($CPAN::Signal) { delete $self->{force_update}; $self->post_make(); return; } if ($^O eq 'MacOS') { Mac::BuildTools::make($self); $self->post_make(); return; } my %env; while (my($k,$v) = each %ENV) { next if defined $v; $env{$k} = ''; } local @ENV{keys %env} = values %env; my $satisfied = eval { $self->satisfy_requires }; if ($@) { return $self->goodbye($@); } unless ($satisfied){ $self->post_make(); return; } if ($CPAN::Signal) { delete $self->{force_update}; $self->post_make(); return; } # need to chdir again, because $self->satisfy_requires might change the directory unless (chdir $builddir) { $CPAN::Frontend->mywarn("Couldn't chdir to '$builddir': $!"); $self->post_make(); return; } my $system; my $make_commandline; if ($self->prefs->{make}) { $make_commandline = $self->prefs->{make}{commandline}; } local $ENV{PERL} = defined $ENV{PERL}? $ENV{PERL} : $^X; local $ENV{PERL_MM_USE_DEFAULT} = 1 if $CPAN::Config->{use_prompt_default}; local $ENV{NONINTERACTIVE_TESTING} = 1 if $CPAN::Config->{use_prompt_default}; if ($make_commandline) { $system = $make_commandline; $ENV{PERL} = CPAN::find_perl(); } else { if ($self->{modulebuild}) { unless (-f "Build" || ($^O eq 'VMS' && -f 'Build.com')) { my $cwd = CPAN::anycwd(); $CPAN::Frontend->mywarn("Alert: no Build file available for 'make $self->{id}'". " in cwd[$cwd]. Danger, Will Robinson!\n"); $CPAN::Frontend->mysleep(5); } $system = join " ", $self->_build_command(), $CPAN::Config->{mbuild_arg}; } else { $system = join " ", $self->_make_command(), $CPAN::Config->{make_arg}; } $system =~ s/\s+$//; my $make_arg = $self->_make_phase_arg("make"); $system = sprintf("%s%s", $system, $make_arg ? " $make_arg" : "", ); } my $make_env; if ($self->prefs->{make}) { $make_env = $self->prefs->{make}{env}; } local @ENV{keys %$make_env} = values %$make_env if $make_env; my $expect_model = $self->_prefs_with_expect("make"); my $want_expect = 0; if ( $expect_model && @{$expect_model->{talk}} ) { my $can_expect = $CPAN::META->has_inst("Expect"); if ($can_expect) { $want_expect = 1; } else { $CPAN::Frontend->mywarn("Expect not installed, falling back to ". "system()\n"); } } my ($system_ok, $system_err); if ($want_expect) { # XXX probably want to check _should_report here and # warn about not being able to use CPAN::Reporter with expect $system_ok = $self->_run_via_expect($system,'make',$expect_model) == 0; } elsif ( $self->_should_report('make') ) { my ($output, $ret) = CPAN::Reporter::record_command($system); CPAN::Reporter::grade_make( $self, $system, $output, $ret ); $system_ok = ! $ret; } else { my $rc = system($system); $system_ok = $rc == 0; $system_err = $! if $rc == -1; } $self->introduce_myself; if ( $system_ok ) { $CPAN::Frontend->myprint(" $system -- OK\n"); $self->{make} = CPAN::Distrostatus->new("YES"); } else { $self->{writemakefile} ||= CPAN::Distrostatus->new("YES"); $self->{make} = CPAN::Distrostatus->new("NO"); $CPAN::Frontend->mywarn(" $system -- NOT OK\n"); $CPAN::Frontend->mywarn(" $system_err\n") if defined $system_err; } $self->store_persistent_state; $self->post_make(); return !! $system_ok; } # CPAN::Distribution::goodbye ; sub goodbye { my($self,$goodbye) = @_; my $id = $self->pretty_id; $CPAN::Frontend->mywarn(" $id\n $goodbye\n"); return 0; # must be explicit false, not undef } sub success { my($self,$why) = @_; my $id = $self->pretty_id; $CPAN::Frontend->myprint(" $id\n $why\n"); return 1; } # CPAN::Distribution::_run_via_expect ; sub _run_via_expect { my($self,$system,$phase,$expect_model) = @_; CPAN->debug("system[$system]expect_model[$expect_model]") if $CPAN::DEBUG; if ($CPAN::META->has_inst("Expect")) { my $expo = Expect->new; # expo Expect object; $expo->spawn($system); $expect_model->{mode} ||= "deterministic"; if ($expect_model->{mode} eq "deterministic") { return $self->_run_via_expect_deterministic($expo,$phase,$expect_model); } elsif ($expect_model->{mode} eq "anyorder") { return $self->_run_via_expect_anyorder($expo,$phase,$expect_model); } else { die "Panic: Illegal expect mode: $expect_model->{mode}"; } } else { $CPAN::Frontend->mywarn("Expect not installed, falling back to system()\n"); return system($system); } } sub _run_via_expect_anyorder { my($self,$expo,$phase,$expect_model) = @_; my $timeout = $expect_model->{timeout} || 5; my $reuse = $expect_model->{reuse}; my @expectacopy = @{$expect_model->{talk}}; # we trash it! my $but = ""; my $timeout_start = time; EXPECT: while () { my($eof,$ran_into_timeout); # XXX not up to the full power of expect. one could certainly # wrap all of the talk pairs into a single expect call and on # success tweak it and step ahead to the next question. The # current implementation unnecessarily limits itself to a # single match. my @match = $expo->expect(1, [ eof => sub { $eof++; } ], [ timeout => sub { $ran_into_timeout++; } ], -re => eval"qr{.}", ); if ($match[2]) { $but .= $match[2]; } $but .= $expo->clear_accum; if ($eof) { $expo->soft_close; return $expo->exitstatus(); } elsif ($ran_into_timeout) { # warn "DEBUG: they are asking a question, but[$but]"; for (my $i = 0; $i <= $#expectacopy; $i+=2) { my($next,$send) = @expectacopy[$i,$i+1]; my $regex = eval "qr{$next}"; # warn "DEBUG: will compare with regex[$regex]."; if ($but =~ /$regex/) { # warn "DEBUG: will send send[$send]"; $expo->send($send); # never allow reusing an QA pair unless they told us splice @expectacopy, $i, 2 unless $reuse; $but =~ s/(?s:^.*?)$regex//; $timeout_start = time; next EXPECT; } } my $have_waited = time - $timeout_start; if ($have_waited < $timeout) { # warn "DEBUG: have_waited[$have_waited]timeout[$timeout]"; next EXPECT; } my $why = "could not answer a question during the dialog"; $CPAN::Frontend->mywarn("Failing: $why\n"); $self->{$phase} = CPAN::Distrostatus->new("NO $why"); return 0; } } } sub _run_via_expect_deterministic { my($self,$expo,$phase,$expect_model) = @_; my $ran_into_timeout; my $ran_into_eof; my $timeout = $expect_model->{timeout} || 15; # currently unsettable my $expecta = $expect_model->{talk}; EXPECT: for (my $i = 0; $i <= $#$expecta; $i+=2) { my($re,$send) = @$expecta[$i,$i+1]; CPAN->debug("timeout[$timeout]re[$re]") if $CPAN::DEBUG; my $regex = eval "qr{$re}"; $expo->expect($timeout, [ eof => sub { my $but = $expo->clear_accum; $CPAN::Frontend->mywarn("EOF (maybe harmless) expected[$regex]\nbut[$but]\n\n"); $ran_into_eof++; } ], [ timeout => sub { my $but = $expo->clear_accum; $CPAN::Frontend->mywarn("TIMEOUT expected[$regex]\nbut[$but]\n\n"); $ran_into_timeout++; } ], -re => $regex); if ($ran_into_timeout) { # note that the caller expects 0 for success $self->{$phase} = CPAN::Distrostatus->new("NO timeout during expect dialog"); return 0; } elsif ($ran_into_eof) { last EXPECT; } $expo->send($send); } $expo->soft_close; return $expo->exitstatus(); } #-> CPAN::Distribution::_validate_distropref sub _validate_distropref { my($self,@args) = @_; if ( $CPAN::META->has_inst("CPAN::Kwalify") && $CPAN::META->has_inst("Kwalify") ) { eval {CPAN::Kwalify::_validate("distroprefs",@args);}; if ($@) { $CPAN::Frontend->mywarn($@); } } else { CPAN->debug("not validating '@args'") if $CPAN::DEBUG; } } #-> CPAN::Distribution::_find_prefs sub _find_prefs { my($self) = @_; my $distroid = $self->pretty_id; #CPAN->debug("distroid[$distroid]") if $CPAN::DEBUG; my $prefs_dir = $CPAN::Config->{prefs_dir}; return if $prefs_dir =~ /^\s*$/; eval { File::Path::mkpath($prefs_dir); }; if ($@) { $CPAN::Frontend->mydie("Cannot create directory $prefs_dir"); } # shortcut if there are no distroprefs files { my $dh = DirHandle->new($prefs_dir) or $CPAN::Frontend->mydie("Couldn't open '$prefs_dir': $!"); my @files = map { /\.(yml|dd|st)\z/i } $dh->read; return unless @files; } my $yaml_module = CPAN::_yaml_module(); my $ext_map = {}; my @extensions; if ($CPAN::META->has_inst($yaml_module)) { $ext_map->{yml} = 'CPAN'; } else { my @fallbacks; if ($CPAN::META->has_inst("Data::Dumper")) { push @fallbacks, $ext_map->{dd} = 'Data::Dumper'; } if ($CPAN::META->has_inst("Storable")) { push @fallbacks, $ext_map->{st} = 'Storable'; } if (@fallbacks) { local $" = " and "; unless ($self->{have_complained_about_missing_yaml}++) { $CPAN::Frontend->mywarnonce("'$yaml_module' not installed, falling back ". "to @fallbacks to read prefs '$prefs_dir'\n"); } } else { unless ($self->{have_complained_about_missing_yaml}++) { $CPAN::Frontend->mywarnonce("'$yaml_module' not installed, cannot ". "read prefs '$prefs_dir'\n"); } } } my $finder = CPAN::Distroprefs->find($prefs_dir, $ext_map); DIRENT: while (my $result = $finder->next) { if ($result->is_warning) { $CPAN::Frontend->mywarn($result->as_string); $CPAN::Frontend->mysleep(1); next DIRENT; } elsif ($result->is_fatal) { $CPAN::Frontend->mydie($result->as_string); } my @prefs = @{ $result->prefs }; ELEMENT: for my $y (0..$#prefs) { my $pref = $prefs[$y]; $self->_validate_distropref($pref->data, $result->abs, $y); # I don't know why we silently skip when there's no match, but # complain if there's an empty match hashref, and there's no # comment explaining why -- hdp, 2008-03-18 unless ($pref->has_any_match) { next ELEMENT; } unless ($pref->has_valid_subkeys) { $CPAN::Frontend->mydie(sprintf "Nonconforming .%s file '%s': " . "missing match/* subattribute. " . "Please remove, cannot continue.", $result->ext, $result->abs, ); } my $arg = { env => \%ENV, distribution => $distroid, perl => \&CPAN::find_perl, perlconfig => \%Config::Config, module => sub { [ $self->containsmods ] }, }; if ($pref->matches($arg)) { return { prefs => $pref->data, prefs_file => $result->abs, prefs_file_doc => $y, }; } } } return; } # CPAN::Distribution::prefs sub prefs { my($self) = @_; if (exists $self->{negative_prefs_cache} && $self->{negative_prefs_cache} != $CPAN::CurrentCommandId ) { delete $self->{negative_prefs_cache}; delete $self->{prefs}; } if (exists $self->{prefs}) { return $self->{prefs}; # XXX comment out during debugging } if ($CPAN::Config->{prefs_dir}) { CPAN->debug("prefs_dir[$CPAN::Config->{prefs_dir}]") if $CPAN::DEBUG; my $prefs = $self->_find_prefs(); $prefs ||= ""; # avoid warning next line CPAN->debug("prefs[$prefs]") if $CPAN::DEBUG; if ($prefs) { for my $x (qw(prefs prefs_file prefs_file_doc)) { $self->{$x} = $prefs->{$x}; } my $bs = sprintf( "%s[%s]", File::Basename::basename($self->{prefs_file}), $self->{prefs_file_doc}, ); my $filler1 = "_" x 22; my $filler2 = int(66 - length($bs))/2; $filler2 = 0 if $filler2 < 0; $filler2 = " " x $filler2; $CPAN::Frontend->myprint(" $filler1 D i s t r o P r e f s $filler1 $filler2 $bs $filler2 "); $CPAN::Frontend->mysleep(1); return $self->{prefs}; } } $self->{negative_prefs_cache} = $CPAN::CurrentCommandId; return $self->{prefs} = +{}; } # CPAN::Distribution::_make_phase_arg sub _make_phase_arg { my($self, $phase) = @_; my $_make_phase_arg; my $prefs = $self->prefs; if ( $prefs && exists $prefs->{$phase} && exists $prefs->{$phase}{args} && $prefs->{$phase}{args} ) { $_make_phase_arg = join(" ", map {CPAN::HandleConfig ->safe_quote($_)} @{$prefs->{$phase}{args}}, ); } # cpan[2]> o conf make[TAB] # make make_install_make_command # make_arg makepl_arg # make_install_arg # cpan[2]> o conf mbuild[TAB] # mbuild_arg mbuild_install_build_command # mbuild_install_arg mbuildpl_arg my $mantra; # must switch make/mbuild here if ($self->{modulebuild}) { $mantra = "mbuild"; } else { $mantra = "make"; } my %map = ( pl => "pl_arg", make => "_arg", test => "_test_arg", # does not really exist but maybe # will some day and now protects # us from unini warnings install => "_install_arg", ); my $phase_underscore_meshup = $map{$phase}; my $what = sprintf "%s%s", $mantra, $phase_underscore_meshup; $_make_phase_arg ||= $CPAN::Config->{$what}; return $_make_phase_arg; } # CPAN::Distribution::_make_command sub _make_command { my ($self) = @_; if ($self) { return CPAN::HandleConfig ->safe_quote( CPAN::HandleConfig->prefs_lookup($self, q{make}) || $Config::Config{make} || 'make' ); } else { # Old style call, without object. Deprecated Carp::confess("CPAN::_make_command() used as function. Don't Do That."); return safe_quote(undef, CPAN::HandleConfig->prefs_lookup($self,q{make}) || $CPAN::Config->{make} || $Config::Config{make} || 'make'); } } sub _make_install_make_command { my ($self) = @_; my $mimc = CPAN::HandleConfig->prefs_lookup($self, q{make_install_make_command}); return $self->_make_command() unless $mimc; # Quote the "make install" make command on Windows, where it is commonly # found in, e.g., C:\Program Files\... and therefore needs quoting. We can't # do this in general because the command maybe "sudo make..." (i.e. a # program with arguments), but that is unlikely to be the case on Windows. $mimc = CPAN::HandleConfig->safe_quote($mimc) if $^O eq 'MSWin32'; return $mimc; } #-> sub CPAN::Distribution::is_locally_optional sub is_locally_optional { my($self, $prereq_pm, $prereq) = @_; $prereq_pm ||= $self->{prereq_pm}; my($nmo,$opt); for my $rt (qw(requires build_requires)) { if (exists $prereq_pm->{$rt}{$prereq}) { # rt 121914 $nmo ||= $CPAN::META->instance("CPAN::Module",$prereq); my $av = $nmo->available_version; return 0 if !$av || CPAN::Version->vlt($av,$prereq_pm->{$rt}{$prereq}); } if (exists $prereq_pm->{"opt_$rt"}{$prereq}) { $opt = 1; } } return $opt||0; } #-> sub CPAN::Distribution::follow_prereqs ; sub follow_prereqs { my($self) = shift; my($slot) = shift; my(@prereq_tuples) = grep {$_->[0] ne "perl"} @_; return unless @prereq_tuples; my(@good_prereq_tuples); for my $p (@prereq_tuples) { # e.g. $p = ['Devel::PartialDump', 'r', 1] # promote if possible if ($p->[1] =~ /^(r|c)$/) { push @good_prereq_tuples, $p; } elsif ($p->[1] =~ /^(b)$/) { my $reqtype = CPAN::Queue->reqtype_of($p->[0]); if ($reqtype =~ /^(r|c)$/) { push @good_prereq_tuples, [$p->[0], $reqtype, $p->[2]]; } else { push @good_prereq_tuples, $p; } } else { die "Panic: in follow_prereqs: reqtype[$p->[1]] seen, should never happen"; } } my $pretty_id = $self->pretty_id; my %map = ( b => "build_requires", r => "requires", c => "commandline", ); my($filler1,$filler2,$filler3,$filler4); my $unsat = "Unsatisfied dependencies detected during"; my $w = length($unsat) > length($pretty_id) ? length($unsat) : length($pretty_id); { my $r = int(($w - length($unsat))/2); my $l = $w - length($unsat) - $r; $filler1 = "-"x4 . " "x$l; $filler2 = " "x$r . "-"x4 . "\n"; } { my $r = int(($w - length($pretty_id))/2); my $l = $w - length($pretty_id) - $r; $filler3 = "-"x4 . " "x$l; $filler4 = " "x$r . "-"x4 . "\n"; } $CPAN::Frontend-> myprint("$filler1 $unsat $filler2". "$filler3 $pretty_id $filler4". join("", map {sprintf " %s \[%s%s]\n", $_->[0], $map{$_->[1]}, $self->is_locally_optional(undef,$_->[0]) ? ",optional" : ""} @good_prereq_tuples), ); my $follow = 0; if ($CPAN::Config->{prerequisites_policy} eq "follow") { $follow = 1; } elsif ($CPAN::Config->{prerequisites_policy} eq "ask") { my $answer = CPAN::Shell::colorable_makemaker_prompt( "Shall I follow them and prepend them to the queue of modules we are processing right now?", "yes"); $follow = $answer =~ /^\s*y/i; } else { my @prereq = map { $_->[0] } @good_prereq_tuples; local($") = ", "; $CPAN::Frontend-> myprint(" Ignoring dependencies on modules @prereq\n"); } if ($follow) { my $id = $self->id; my(@to_queue_mand,@to_queue_opt); for my $gp (@good_prereq_tuples) { my($prereq,$reqtype,$optional) = @$gp; my $qthing = +{qmod=>$prereq,reqtype=>$reqtype,optional=>$optional}; if ($optional && $self->is_locally_optional(undef,$prereq) ){ # Since we do not depend on this one, we do not need # this in a mandatory arrangement: push @to_queue_opt, $qthing; } else { my $any = CPAN::Shell->expandany($prereq); $self->{$slot . "_for"}{$any->id}++; if ($any) { unless ($optional) { # No recursion check in an optional area of the tree $any->color_cmd_tmps(0,2); } } else { $CPAN::Frontend->mywarn("Warning (maybe a bug): Cannot expand prereq '$prereq'\n"); $CPAN::Frontend->mysleep(2); } # order everything that is not locally_optional just # like mandatory items: this keeps leaves before # branches unshift @to_queue_mand, $qthing; } } if (@to_queue_mand) { unshift @to_queue_mand, {qmod => $id, reqtype => $self->{reqtype}, optional=> !$self->{mandatory}}; CPAN::Queue->jumpqueue(@to_queue_opt,@to_queue_mand); $self->{$slot} = "Delayed until after prerequisites"; return 1; # signal we need dependencies } elsif (@to_queue_opt) { CPAN::Queue->jumpqueue(@to_queue_opt); } } return; } sub _feature_depends { my($self) = @_; my $meta_yml = $self->parse_meta_yml(); my $optf = $meta_yml->{optional_features} or return; if (!ref $optf or ref $optf ne "HASH"){ $CPAN::Frontend->mywarn("The content of optional_features is not a HASH reference. Cannot use it.\n"); $optf = {}; } my $wantf = $self->prefs->{features} or return; if (!ref $wantf or ref $wantf ne "ARRAY"){ $CPAN::Frontend->mywarn("The content of 'features' is not an ARRAY reference. Cannot use it.\n"); $wantf = []; } my $dep = +{}; for my $wf (@$wantf) { if (my $f = $optf->{$wf}) { $CPAN::Frontend->myprint("Found the demanded feature '$wf' that ". "is accompanied by this description:\n". $f->{description}. "\n\n" ); # configure_requires currently not in the spec, unlikely to be useful anyway for my $reqtype (qw(configure_requires build_requires requires)) { my $reqhash = $f->{$reqtype} or next; while (my($k,$v) = each %$reqhash) { $dep->{$reqtype}{$k} = $v; } } } else { $CPAN::Frontend->mywarn("The demanded feature '$wf' was not ". "found in the META.yml file". "\n\n" ); } } $dep; } sub prereqs_for_slot { my($self,$slot) = @_; my($prereq_pm); unless ($CPAN::META->has_usable("CPAN::Meta::Requirements")) { my $whynot = "not available"; if (defined $CPAN::Meta::Requirements::VERSION) { $whynot = "version $CPAN::Meta::Requirements::VERSION not sufficient"; } $CPAN::Frontend->mywarn("CPAN::Meta::Requirements $whynot\n"); my $before = ""; if ($self->{CALLED_FOR}){ if ($self->{CALLED_FOR} =~ /^( CPAN::Meta::Requirements |CPAN::DistnameInfo |version |parent |ExtUtils::MakeMaker |Test::Harness )$/x) { $CPAN::Frontend->mywarn("Please install CPAN::Meta::Requirements ". "as soon as possible; it is needed for a reliable operation of ". "the cpan shell; setting requirements to nil for '$1' for now ". "to prevent deadlock during bootstrapping\n"); return; } $before = " before $self->{CALLED_FOR}"; } $CPAN::Frontend->mydie("Please install CPAN::Meta::Requirements manually$before"); } my $merged = CPAN::Meta::Requirements->new; my $prefs_depends = $self->prefs->{depends}||{}; my $feature_depends = $self->_feature_depends(); if ($slot eq "configure_requires_later") { for my $hash ( $self->configure_requires, $prefs_depends->{configure_requires}, $feature_depends->{configure_requires}, ) { $merged->add_requirements( CPAN::Meta::Requirements->from_string_hash($hash) ); } if (-f "Build.PL" && ! -f File::Spec->catfile($self->{build_dir},"Makefile.PL") && ! $merged->requirements_for_module("Module::Build") && ! $CPAN::META->has_inst("Module::Build") ) { $CPAN::Frontend->mywarn( " Warning: CPAN.pm discovered Module::Build as undeclared prerequisite.\n". " Adding it now as such.\n" ); $CPAN::Frontend->mysleep(5); $merged->add_minimum( "Module::Build" => 0 ); delete $self->{writemakefile}; } $prereq_pm = {}; # configure_requires defined as "b" } elsif ($slot eq "later") { my $prereq_pm_0 = $self->prereq_pm || {}; for my $reqtype (qw(requires build_requires opt_requires opt_build_requires)) { $prereq_pm->{$reqtype} = {%{$prereq_pm_0->{$reqtype}||{}}}; # copy to not pollute it for my $dep ($prefs_depends,$feature_depends) { for my $k (keys %{$dep->{$reqtype}||{}}) { $prereq_pm->{$reqtype}{$k} = $dep->{$reqtype}{$k}; } } } # XXX what about optional_req|breq? -- xdg, 2012-04-01 for my $hash ( $prereq_pm->{requires}, $prereq_pm->{build_requires}, $prereq_pm->{opt_requires}, $prereq_pm->{opt_build_requires}, ) { $merged->add_requirements( CPAN::Meta::Requirements->from_string_hash($hash) ); } } else { die "Panic: illegal slot '$slot'"; } return ($merged->as_string_hash, $prereq_pm); } #-> sub CPAN::Distribution::unsat_prereq ; # return ([Foo,"r"],[Bar,"b"]) for normal modules # return ([perl=>5.008]) if we need a newer perl than we are running under # (sorry for the inconsistency, it was an accident) sub unsat_prereq { my($self,$slot) = @_; my($merged_hash,$prereq_pm) = $self->prereqs_for_slot($slot); my(@need); unless ($CPAN::META->has_usable("CPAN::Meta::Requirements")) { $CPAN::Frontend->mywarn("CPAN::Meta::Requirements not available, please install as soon as possible, trying to continue with severly limited capabilities\n"); return; } my $merged = CPAN::Meta::Requirements->from_string_hash($merged_hash); my @merged = sort $merged->required_modules; CPAN->debug("all merged_prereqs[@merged]") if $CPAN::DEBUG; NEED: for my $need_module ( @merged ) { my $need_version = $merged->requirements_for_module($need_module); my($available_version,$inst_file,$available_file,$nmo); if ($need_module eq "perl") { $available_version = $]; $available_file = CPAN::find_perl(); } else { if (CPAN::_sqlite_running()) { CPAN::Index->reload; $CPAN::SQLite->search("CPAN::Module",$need_module); } $nmo = $CPAN::META->instance("CPAN::Module",$need_module); $inst_file = $nmo->inst_file || ''; $available_file = $nmo->available_file || ''; $available_version = $nmo->available_version; if ($nmo->uptodate) { my $accepts = eval { $merged->accepts_module($need_module, $available_version); }; unless ($accepts) { my $rq = $merged->requirements_for_module( $need_module ); $CPAN::Frontend->mywarn( "Warning: Version '$available_version' of ". "'$need_module' is up to date but does not ". "fulfill requirements ($rq). I will continue, ". "but chances to succeed are low.\n"); } next NEED; } # if they have not specified a version, we accept any # installed one; in that case inst_file is always # sufficient and available_file is sufficient on # both build_requires and configure_requires my $sufficient = $inst_file || ( exists $prereq_pm->{requires}{$need_module} ? 0 : $available_file ); if ( $sufficient and ( # a few quick short circuits not defined $need_version or $need_version eq '0' # "==" would trigger warning when not numeric or $need_version eq "undef" )) { unless ($nmo->inst_deprecated) { next NEED; } } } # We only want to install prereqs if either they're not installed # or if the installed version is too old. We cannot omit this # check, because if 'force' is in effect, nobody else will check. # But we don't want to accept a deprecated module installed as part # of the Perl core, so we continue if the available file is the installed # one and is deprecated if ( $available_file ) { my $fulfills_all_version_rqs = $self->_fulfills_all_version_rqs ( $need_module, $available_file, $available_version, $need_version, ); if ( $inst_file && $available_file eq $inst_file && $nmo->inst_deprecated ) { # continue installing as a prereq. we really want that # because the deprecated module may spit out warnings # and third party did not know until today. Only one # exception is OK, because CPANPLUS is special after # all: if ( $fulfills_all_version_rqs and $nmo->id =~ /^CPANPLUS(?:::Dist::Build)$/ ) { # here we have an available version that is good # enough although deprecated (preventing circular # loop CPANPLUS => CPANPLUS::Dist::Build RT#83042) next NEED; } } elsif ( $self->{reqtype} # e.g. maybe we came via goto? && $self->{reqtype} =~ /^(r|c)$/ && ( exists $prereq_pm->{requires}{$need_module} || exists $prereq_pm->{opt_requires}{$need_module} ) && $nmo && !$inst_file ) { # continue installing as a prereq; this may be a # distro we already used when it was a build_requires # so we did not install it. But suddenly somebody # wants it as a requires my $need_distro = $nmo->distribution; if ($need_distro->{install} && $need_distro->{install}->failed && $need_distro->{install}->text =~ /is only/) { my $id = $need_distro->pretty_id; $CPAN::Frontend->myprint("Promoting $id from build_requires to requires due $need_module\n"); delete $need_distro->{install}; # promote to another installation attempt $need_distro->{reqtype} = "r"; $need_distro->install; next NEED; } } else { next NEED if $fulfills_all_version_rqs; } } if ($need_module eq "perl") { return ["perl", $need_version]; } $self->{sponsored_mods}{$need_module} ||= 0; CPAN->debug("need_module[$need_module]s/s/n[$self->{sponsored_mods}{$need_module}]") if $CPAN::DEBUG; if (my $sponsoring = $self->{sponsored_mods}{$need_module}++) { # We have already sponsored it and for some reason it's still # not available. So we do ... what?? # if we push it again, we have a potential infinite loop # The following "next" was a very problematic construct. # It helped a lot but broke some day and had to be # replaced. # We must be able to deal with modules that come again and # again as a prereq and have themselves prereqs and the # queue becomes long but finally we would find the correct # order. The RecursiveDependency check should trigger a # die when it's becoming too weird. Unfortunately removing # this next breaks many other things. # The bug that brought this up is described in Todo under # "5.8.9 cannot install Compress::Zlib" # next; # this is the next that had to go away # The following "next NEED" are fine and the error message # explains well what is going on. For example when the DBI # fails and consequently DBD::SQLite fails and now we are # processing CPAN::SQLite. Then we must have a "next" for # DBD::SQLite. How can we get it and how can we identify # all other cases we must identify? my $do = $nmo->distribution; next NEED unless $do; # not on CPAN if (CPAN::Version->vcmp($need_version, $nmo->ro->{CPAN_VERSION}) > 0){ $CPAN::Frontend->mywarn("Warning: Prerequisite ". "'$need_module => $need_version' ". "for '$self->{ID}' seems ". "not available according to the indices\n" ); next NEED; } NOSAYER: for my $nosayer ( "unwrapped", "writemakefile", "signature_verify", "make", "make_test", "install", "make_clean", ) { if ($do->{$nosayer}) { my $selfid = $self->pretty_id; my $did = $do->pretty_id; if (UNIVERSAL::can($do->{$nosayer},"failed") ? $do->{$nosayer}->failed : $do->{$nosayer} =~ /^NO/) { if ($nosayer eq "make_test" && $do->{make_test}{COMMANDID} != $CPAN::CurrentCommandId ) { next NOSAYER; } ### XXX don't complain about missing optional deps -- xdg, 2012-04-01 if ($self->is_locally_optional($prereq_pm, $need_module)) { # don't complain about failing optional prereqs } else { $CPAN::Frontend->mywarn("Warning: Prerequisite ". "'$need_module => $need_version' ". "for '$selfid' failed when ". "processing '$did' with ". "'$nosayer => $do->{$nosayer}'. Continuing, ". "but chances to succeed are limited.\n" ); $CPAN::Frontend->mysleep($sponsoring/10); } next NEED; } else { # the other guy succeeded if ($nosayer =~ /^(install|make_test)$/) { # we had this with # DMAKI/DateTime-Calendar-Chinese-0.05.tar.gz # in 2007-03 for 'make install' # and 2008-04: #30464 (for 'make test') # $CPAN::Frontend->mywarn("Warning: Prerequisite ". # "'$need_module => $need_version' ". # "for '$selfid' already built ". # "but the result looks suspicious. ". # "Skipping another build attempt, ". # "to prevent looping endlessly.\n" # ); next NEED; } } } } } my $needed_as; if (0) { } elsif (exists $prereq_pm->{requires}{$need_module} || exists $prereq_pm->{opt_requires}{$need_module} ) { $needed_as = "r"; } elsif ($slot eq "configure_requires_later") { # in ae872487d5 we said: C< we have not yet run the # {Build,Makefile}.PL, we must presume "r" >; but the # meta.yml standard says C< These dependencies are not # required after the distribution is installed. >; so now # we change it back to "b" and care for the proper # promotion later. $needed_as = "b"; } else { $needed_as = "b"; } # here need to flag as optional for recommends/suggests # -- xdg, 2012-04-01 $self->debug(sprintf "%s manadory?[%s]", $self->pretty_id, $self->{mandatory}) if $CPAN::DEBUG; my $optional = !$self->{mandatory} || $self->is_locally_optional($prereq_pm, $need_module); push @need, [$need_module,$needed_as,$optional]; } my @unfolded = map { "[".join(",",@$_)."]" } @need; CPAN->debug("returning from unsat_prereq[@unfolded]") if $CPAN::DEBUG; @need; } sub _fulfills_all_version_rqs { my($self,$need_module,$available_file,$available_version,$need_version) = @_; my(@all_requirements) = split /\s*,\s*/, $need_version; local($^W) = 0; my $ok = 0; RQ: for my $rq (@all_requirements) { if ($rq =~ s|>=\s*||) { } elsif ($rq =~ s|>\s*||) { # 2005-12: one user if (CPAN::Version->vgt($available_version,$rq)) { $ok++; } next RQ; } elsif ($rq =~ s|!=\s*||) { # 2005-12: no user if (CPAN::Version->vcmp($available_version,$rq)) { $ok++; next RQ; } else { $ok=0; last RQ; } } elsif ($rq =~ m|<=?\s*|) { # 2005-12: no user $CPAN::Frontend->mywarn("Downgrading not supported (rq[$rq])\n"); $ok++; next RQ; } elsif ($rq =~ s|==\s*||) { # 2009-07: ELLIOTJS/Perl-Critic-1.099_002.tar.gz if (CPAN::Version->vcmp($available_version,$rq)) { $ok=0; last RQ; } else { $ok++; next RQ; } } if (! CPAN::Version->vgt($rq, $available_version)) { $ok++; } CPAN->debug(sprintf("need_module[%s]available_file[%s]". "available_version[%s]rq[%s]ok[%d]", $need_module, $available_file, $available_version, CPAN::Version->readable($rq), $ok, )) if $CPAN::DEBUG; } my $ret = $ok == @all_requirements; CPAN->debug(sprintf("need_module[%s]ok[%s]all_requirements[%d]",$need_module, $ok, scalar @all_requirements)) if $CPAN::DEBUG; return $ret; } #-> sub CPAN::Distribution::read_meta # read any sort of meta files, return CPAN::Meta object if no errors sub read_meta { my($self) = @_; my $meta_file = $self->pick_meta_file or return; return unless $CPAN::META->has_usable("CPAN::Meta"); my $meta = eval { CPAN::Meta->load_file($meta_file)} or return; # Very old EU::MM could have wrong META if ($meta_file eq 'META.yml' && $meta->generated_by =~ /ExtUtils::MakeMaker version ([\d\._]+)/ ) { my $eummv = do { local $^W = 0; $1+0; }; return if $eummv < 6.2501; } return $meta; } #-> sub CPAN::Distribution::read_yaml ; # XXX This should be DEPRECATED -- dagolden, 2011-02-05 sub read_yaml { my($self) = @_; my $meta_file = $self->pick_meta_file('\.yml$'); $self->debug("meta_file[$meta_file]") if $CPAN::DEBUG; return unless $meta_file; my $yaml; eval { $yaml = $self->parse_meta_yml($meta_file) }; if ($@ or ! $yaml) { return undef; # if we die, then we cannot read YAML's own META.yml } # not "authoritative" if (defined $yaml && (! ref $yaml || ref $yaml ne "HASH")) { $CPAN::Frontend->mywarn("META.yml does not seem to be conforming, cannot use it.\n"); $yaml = undef; } $self->debug(sprintf "yaml[%s]", $yaml || "UNDEF") if $CPAN::DEBUG; $self->debug($yaml) if $CPAN::DEBUG && $yaml; # MYMETA.yml is static and authoritative by definition if ( $meta_file =~ /MYMETA\.yml/ ) { return $yaml; } # META.yml is authoritative only if dynamic_config is defined and false if ( defined $yaml->{dynamic_config} && ! $yaml->{dynamic_config} ) { return $yaml; } # otherwise, we can't use what we found return undef; } #-> sub CPAN::Distribution::configure_requires ; sub configure_requires { my($self) = @_; return unless my $meta_file = $self->pick_meta_file('^META'); if (my $meta_obj = $self->read_meta) { my $prereqs = $meta_obj->effective_prereqs; my $cr = $prereqs->requirements_for(qw/configure requires/); return $cr ? $cr->as_string_hash : undef; } else { my $yaml = eval { $self->parse_meta_yml($meta_file) }; return $yaml->{configure_requires}; } } #-> sub CPAN::Distribution::prereq_pm ; sub prereq_pm { my($self) = @_; return unless $self->{writemakefile} # no need to have succeeded # but we must have run it || $self->{modulebuild}; unless ($self->{build_dir}) { return; } # no Makefile/Build means configuration aborted, so don't look for prereqs my $makefile = File::Spec->catfile($self->{build_dir}, $^O eq 'VMS' ? 'descrip.mms' : 'Makefile'); my $buildfile = File::Spec->catfile($self->{build_dir}, $^O eq 'VMS' ? 'Build.com' : 'Build'); return unless -f $makefile || -f $buildfile; CPAN->debug(sprintf "writemakefile[%s]modulebuild[%s]", $self->{writemakefile}||"", $self->{modulebuild}||"", ) if $CPAN::DEBUG; my($req,$breq, $opt_req, $opt_breq); my $meta_obj = $self->read_meta; # META/MYMETA is only authoritative if dynamic_config is false if ($meta_obj && ! $meta_obj->dynamic_config) { my $prereqs = $meta_obj->effective_prereqs; my $requires = $prereqs->requirements_for(qw/runtime requires/); my $build_requires = $prereqs->requirements_for(qw/build requires/); my $test_requires = $prereqs->requirements_for(qw/test requires/); # XXX we don't yet distinguish build vs test, so merge them for now $build_requires->add_requirements($test_requires); $req = $requires->as_string_hash; $breq = $build_requires->as_string_hash; # XXX assemble optional_req && optional_breq from recommends/suggests # depending on corresponding policies -- xdg, 2012-04-01 CPAN->use_inst("CPAN::Meta::Requirements"); my $opt_runtime = CPAN::Meta::Requirements->new; my $opt_build = CPAN::Meta::Requirements->new; if ( $CPAN::Config->{recommends_policy} ) { $opt_runtime->add_requirements( $prereqs->requirements_for(qw/runtime recommends/)); $opt_build->add_requirements( $prereqs->requirements_for(qw/build recommends/)); $opt_build->add_requirements( $prereqs->requirements_for(qw/test recommends/)); } if ( $CPAN::Config->{suggests_policy} ) { $opt_runtime->add_requirements( $prereqs->requirements_for(qw/runtime suggests/)); $opt_build->add_requirements( $prereqs->requirements_for(qw/build suggests/)); $opt_build->add_requirements( $prereqs->requirements_for(qw/test suggests/)); } $opt_req = $opt_runtime->as_string_hash; $opt_breq = $opt_build->as_string_hash; } elsif (my $yaml = $self->read_yaml) { # often dynamic_config prevents a result here $req = $yaml->{requires} || {}; $breq = $yaml->{build_requires} || {}; if ( $CPAN::Config->{recommends_policy} ) { $opt_req = $yaml->{recommends} || {}; } undef $req unless ref $req eq "HASH" && %$req; if ($req) { if ($yaml->{generated_by} && $yaml->{generated_by} =~ /ExtUtils::MakeMaker version ([\d\._]+)/) { my $eummv = do { local $^W = 0; $1+0; }; if ($eummv < 6.2501) { # thanks to Slaven for digging that out: MM before # that could be wrong because it could reflect a # previous release undef $req; } } my $areq; my $do_replace; foreach my $k (sort keys %{$req||{}}) { my $v = $req->{$k}; next unless defined $v; if ($v =~ /\d/) { $areq->{$k} = $v; } elsif ($k =~ /[A-Za-z]/ && $v =~ /[A-Za-z]/ && $CPAN::META->exists("CPAN::Module",$v) ) { $CPAN::Frontend->mywarn("Suspicious key-value pair in META.yml's ". "requires hash: $k => $v; I'll take both ". "key and value as a module name\n"); $CPAN::Frontend->mysleep(1); $areq->{$k} = 0; $areq->{$v} = 0; $do_replace++; } } $req = $areq if $do_replace; } } else { $CPAN::Frontend->mywarnonce("Could not read metadata file. Falling back to other ". "methods to determine prerequisites\n"); } unless ($req || $breq) { my $build_dir; unless ( $build_dir = $self->{build_dir} ) { return; } my $makefile = File::Spec->catfile($build_dir,"Makefile"); my $fh; if (-f $makefile and $fh = FileHandle->new("<$makefile\0")) { CPAN->debug("Getting prereq from Makefile") if $CPAN::DEBUG; local($/) = "\n"; while (<$fh>) { last if /MakeMaker post_initialize section/; my($p) = m{^[\#] \s+PREREQ_PM\s+=>\s+(.+) }x; next unless $p; # warn "Found prereq expr[$p]"; # Regexp modified by A.Speer to remember actual version of file # PREREQ_PM hash key wants, then add to while ( $p =~ m/(?:\s)([\w\:]+)=>(q\[.*?\]|undef),?/g ) { my($m,$n) = ($1,$2); # When a prereq is mentioned twice: let the bigger # win; usual culprit is that they declared # build_requires separately from requires; see # rt.cpan.org #47774 my($prevn); if ( defined $req->{$m} ) { $prevn = $req->{$m}; } if ($n =~ /^q\[(.*?)\]$/) { $n = $1; } if (!$prevn || CPAN::Version->vlt($prevn, $n)){ $req->{$m} = $n; } } last; } } } unless ($req || $breq) { my $build_dir = $self->{build_dir} or die "Panic: no build_dir?"; my $buildfile = File::Spec->catfile($build_dir,"Build"); if (-f $buildfile) { CPAN->debug("Found '$buildfile'") if $CPAN::DEBUG; my $build_prereqs = File::Spec->catfile($build_dir,"_build","prereqs"); if (-f $build_prereqs) { CPAN->debug("Getting prerequisites from '$build_prereqs'") if $CPAN::DEBUG; my $content = do { local *FH; open FH, $build_prereqs or $CPAN::Frontend->mydie("Could not open ". "'$build_prereqs': $!"); local $/; <FH>; }; my $bphash = eval $content; if ($@) { } else { $req = $bphash->{requires} || +{}; $breq = $bphash->{build_requires} || +{}; } } } } # XXX needs to be adapted for optional_req & optional_breq -- xdg, 2012-04-01 if ($req || $breq || $opt_req || $opt_breq ) { return $self->{prereq_pm} = { requires => $req, build_requires => $breq, opt_requires => $opt_req, opt_build_requires => $opt_breq, }; } } #-> sub CPAN::Distribution::shortcut_test ; # return values: undef means don't shortcut; 0 means shortcut as fail; # and 1 means shortcut as success sub shortcut_test { my ($self) = @_; $self->debug("checking badtestcnt[$self->{ID}]") if $CPAN::DEBUG; $self->{badtestcnt} ||= 0; if ($self->{badtestcnt} > 0) { require Data::Dumper; CPAN->debug(sprintf "NOREPEAT[%s]", Data::Dumper::Dumper($self)) if $CPAN::DEBUG; return $self->goodbye("Won't repeat unsuccessful test during this command"); } for my $slot ( qw/later configure_requires_later/ ) { $self->debug("checking $slot slot[$self->{ID}]") if $CPAN::DEBUG; return $self->success($self->{$slot}) if $self->{$slot}; } $self->debug("checking if tests passed[$self->{ID}]") if $CPAN::DEBUG; if ( $self->{make_test} ) { if ( UNIVERSAL::can($self->{make_test},"failed") ? $self->{make_test}->failed : $self->{make_test} =~ /^NO/ ) { if ( UNIVERSAL::can($self->{make_test},"commandid") && $self->{make_test}->commandid == $CPAN::CurrentCommandId ) { return $self->goodbye("Has already been tested within this command"); } } else { # if global "is_tested" has been cleared, we need to mark this to # be added to PERL5LIB if not already installed if ($self->tested_ok_but_not_installed) { $CPAN::META->is_tested($self->{build_dir},$self->{make_test}{TIME}); } return $self->success("Has already been tested successfully"); } } if ($self->{notest}) { $self->{make_test} = CPAN::Distrostatus->new("YES"); return $self->success("Skipping test because of notest pragma"); } return undef; # no shortcut } #-> sub CPAN::Distribution::_exe_files ; sub _exe_files { my($self) = @_; return unless $self->{writemakefile} # no need to have succeeded # but we must have run it || $self->{modulebuild}; unless ($self->{build_dir}) { return; } CPAN->debug(sprintf "writemakefile[%s]modulebuild[%s]", $self->{writemakefile}||"", $self->{modulebuild}||"", ) if $CPAN::DEBUG; my $build_dir; unless ( $build_dir = $self->{build_dir} ) { return; } my $makefile = File::Spec->catfile($build_dir,"Makefile"); my $fh; my @exe_files; if (-f $makefile and $fh = FileHandle->new("<$makefile\0")) { CPAN->debug("Getting exefiles from Makefile") if $CPAN::DEBUG; local($/) = "\n"; while (<$fh>) { last if /MakeMaker post_initialize section/; my($p) = m{^[\#] \s+EXE_FILES\s+=>\s+\[(.+)\] }x; next unless $p; # warn "Found exefiles expr[$p]"; my @p = split /,\s*/, $p; for my $p2 (@p) { if ($p2 =~ /^q\[(.+)\]/) { push @exe_files, $1; } } } } return \@exe_files if @exe_files; my $buildparams = File::Spec->catfile($build_dir,"_build","build_params"); if (-f $buildparams) { CPAN->debug("Found '$buildparams'") if $CPAN::DEBUG; my $x = do $buildparams; for my $sf ($x->[2]{script_files}) { if (my $reftype = ref $sf) { if ($reftype eq "ARRAY") { push @exe_files, @$sf; } elsif ($reftype eq "HASH") { push @exe_files, keys %$sf; } else { $CPAN::Frontend->mywarn("Invalid reftype $reftype for Build.PL 'script_files'\n"); } } elsif (defined $sf) { push @exe_files, $sf; } } } return \@exe_files; } #-> sub CPAN::Distribution::test ; sub test { my($self) = @_; $self->pre_test(); if (exists $self->{cleanup_after_install_done}) { $self->post_test(); return $self->make; } $self->debug("checking goto id[$self->{ID}]") if $CPAN::DEBUG; if (my $goto = $self->prefs->{goto}) { $self->post_test(); return $self->goto($goto); } unless ($self->make){ $self->post_test(); return; } if ( defined( my $sc = $self->shortcut_test ) ) { $self->post_test(); return $sc; } if ($CPAN::Signal) { delete $self->{force_update}; $self->post_test(); return; } # warn "XDEBUG: checking for notest: $self->{notest} $self"; my $make = $self->{modulebuild} ? "Build" : "make"; local $ENV{PERL5LIB} = defined($ENV{PERL5LIB}) ? $ENV{PERL5LIB} : ($ENV{PERLLIB} || ""); local $ENV{PERL5OPT} = defined $ENV{PERL5OPT} ? $ENV{PERL5OPT} : ""; local $ENV{PERL_USE_UNSAFE_INC} = exists $ENV{PERL_USE_UNSAFE_INC} && defined $ENV{PERL_USE_UNSAFE_INC} ? $ENV{PERL_USE_UNSAFE_INC} : 1; # test $CPAN::META->set_perl5lib; local $ENV{MAKEFLAGS}; # protect us from outer make calls local $ENV{PERL_MM_USE_DEFAULT} = 1 if $CPAN::Config->{use_prompt_default}; local $ENV{NONINTERACTIVE_TESTING} = 1 if $CPAN::Config->{use_prompt_default}; if ($run_allow_installing_within_test) { my($allow_installing, $why) = $self->_allow_installing; if (! $allow_installing) { $CPAN::Frontend->mywarn("Testing/Installation stopped: $why\n"); $self->introduce_myself; $self->{make_test} = CPAN::Distrostatus->new("NO -- testing/installation stopped due $why"); $CPAN::Frontend->mywarn(" [testing] -- NOT OK\n"); delete $self->{force_update}; $self->post_test(); return; } } $CPAN::Frontend->myprint(sprintf "Running %s test for %s\n", $make, $self->pretty_id); my $builddir = $self->dir or $CPAN::Frontend->mydie("PANIC: Cannot determine build directory\n"); unless (chdir $builddir) { $CPAN::Frontend->mywarn("Couldn't chdir to '$builddir': $!"); $self->post_test(); return; } $self->debug("Changed directory to $self->{build_dir}") if $CPAN::DEBUG; if ($^O eq 'MacOS') { Mac::BuildTools::make_test($self); $self->post_test(); return; } if ($self->{modulebuild}) { my $thm = CPAN::Shell->expand("Module","Test::Harness"); my $v = $thm->inst_version; if (CPAN::Version->vlt($v,2.62)) { # XXX Eric Wilhelm reported this as a bug: klapperl: # Test::Harness 3.0 self-tests, so that should be 'unless # installing Test::Harness' unless ($self->id eq $thm->distribution->id) { $CPAN::Frontend->mywarn(qq{The version of your Test::Harness is only '$v', you need at least '2.62'. Please upgrade your Test::Harness.\n}); $self->{make_test} = CPAN::Distrostatus->new("NO Test::Harness too old"); $self->post_test(); return; } } } if ( ! $self->{force_update} ) { # bypass actual tests if "trust_test_report_history" and have a report my $have_tested_fcn; if ( $CPAN::Config->{trust_test_report_history} && $CPAN::META->has_inst("CPAN::Reporter::History") && ( $have_tested_fcn = CPAN::Reporter::History->can("have_tested" ))) { if ( my @reports = $have_tested_fcn->( dist => $self->base_id ) ) { # Do nothing if grade was DISCARD if ( $reports[-1]->{grade} =~ /^(?:PASS|UNKNOWN)$/ ) { $self->{make_test} = CPAN::Distrostatus->new("YES"); # if global "is_tested" has been cleared, we need to mark this to # be added to PERL5LIB if not already installed if ($self->tested_ok_but_not_installed) { $CPAN::META->is_tested($self->{build_dir},$self->{make_test}{TIME}); } $CPAN::Frontend->myprint("Found prior test report -- OK\n"); $self->post_test(); return; } elsif ( $reports[-1]->{grade} =~ /^(?:FAIL|NA)$/ ) { $self->{make_test} = CPAN::Distrostatus->new("NO"); $self->{badtestcnt}++; $CPAN::Frontend->mywarn("Found prior test report -- NOT OK\n"); $self->post_test(); return; } } } } my $system; my $prefs_test = $self->prefs->{test}; if (my $commandline = exists $prefs_test->{commandline} ? $prefs_test->{commandline} : "") { $system = $commandline; $ENV{PERL} = CPAN::find_perl(); } elsif ($self->{modulebuild}) { $system = sprintf "%s test", $self->_build_command(); unless (-e "Build" || ($^O eq 'VMS' && -e "Build.com")) { my $id = $self->pretty_id; $CPAN::Frontend->mywarn("Alert: no 'Build' file found while trying to test '$id'"); } } else { $system = join " ", $self->_make_command(), "test"; } my $make_test_arg = $self->_make_phase_arg("test"); $system = sprintf("%s%s", $system, $make_test_arg ? " $make_test_arg" : "", ); my($tests_ok); my $test_env; if ($self->prefs->{test}) { $test_env = $self->prefs->{test}{env}; } local @ENV{keys %$test_env} = values %$test_env if $test_env; my $expect_model = $self->_prefs_with_expect("test"); my $want_expect = 0; if ( $expect_model && @{$expect_model->{talk}} ) { my $can_expect = $CPAN::META->has_inst("Expect"); if ($can_expect) { $want_expect = 1; } else { $CPAN::Frontend->mywarn("Expect not installed, falling back to ". "testing without\n"); } } FORK: { my $pid = fork; if (! defined $pid) { # contention warn "Contention '$!', sleeping 2"; sleep 2; redo FORK; } elsif ($pid) { # parent if ($^O eq "MSWin32") { wait; } else { SUPERVISE: while (waitpid($pid, WNOHANG) <= 0) { if ($CPAN::Signal) { kill 9, -$pid; } sleep 1; } } $tests_ok = !$?; } else { # child POSIX::setsid() unless $^O eq "MSWin32"; my $c_ok; $|=1; if ($want_expect) { if ($self->_should_report('test')) { $CPAN::Frontend->mywarn("Reporting via CPAN::Reporter is currently ". "not supported when distroprefs specify ". "an interactive test\n"); } $c_ok = $self->_run_via_expect($system,'test',$expect_model) == 0; } elsif ( $self->_should_report('test') ) { $c_ok = CPAN::Reporter::test($self, $system); } else { $c_ok = system($system) == 0; } exit !$c_ok; } } # FORK $self->introduce_myself; my $but = $self->_make_test_illuminate_prereqs(); if ( $tests_ok ) { if ($but) { $CPAN::Frontend->mywarn("Tests succeeded but $but\n"); $self->{make_test} = CPAN::Distrostatus->new("NO $but"); $self->store_persistent_state; $self->post_test(); return $self->goodbye("[dependencies] -- NA"); } $CPAN::Frontend->myprint(" $system -- OK\n"); $self->{make_test} = CPAN::Distrostatus->new("YES"); $CPAN::META->is_tested($self->{build_dir},$self->{make_test}{TIME}); # probably impossible to need the next line because badtestcnt # has a lifespan of one command delete $self->{badtestcnt}; } else { if ($but) { $but .= "; additionally test harness failed"; $CPAN::Frontend->mywarn("$but\n"); $self->{make_test} = CPAN::Distrostatus->new("NO $but"); } elsif ( $self->{force_update} ) { $self->{make_test} = CPAN::Distrostatus->new( "NO but failure ignored because 'force' in effect" ); } elsif ($CPAN::Signal) { $self->{make_test} = CPAN::Distrostatus->new("NO -- Interrupted"); } else { $self->{make_test} = CPAN::Distrostatus->new("NO"); } $self->{badtestcnt}++; $CPAN::Frontend->mywarn(" $system -- NOT OK\n"); CPAN::Shell->optprint ("hint", sprintf ("//hint// to see the cpan-testers results for installing this module, try: reports %s\n", $self->pretty_id)); } $self->store_persistent_state; $self->post_test(); return $self->{force_update} ? 1 : !! $tests_ok; } sub _make_test_illuminate_prereqs { my($self) = @_; my @prereq; # local $CPAN::DEBUG = 16; # Distribution for my $m (sort keys %{$self->{sponsored_mods}}) { next unless $self->{sponsored_mods}{$m} > 0; my $m_obj = CPAN::Shell->expand("Module",$m) or next; # XXX we need available_version which reflects # $ENV{PERL5LIB} so that already tested but not yet # installed modules are counted. my $available_version = $m_obj->available_version; my $available_file = $m_obj->available_file; if ($available_version && !CPAN::Version->vlt($available_version,$self->{prereq_pm}{$m}) ) { CPAN->debug("m[$m] good enough available_version[$available_version]") if $CPAN::DEBUG; } elsif ($available_file && ( !$self->{prereq_pm}{$m} || $self->{prereq_pm}{$m} == 0 ) ) { # lex Class::Accessor::Chained::Fast which has no $VERSION CPAN->debug("m[$m] have available_file[$available_file]") if $CPAN::DEBUG; } else { push @prereq, $m unless $self->is_locally_optional(undef, $m); } } my $but; if (@prereq) { my $cnt = @prereq; my $which = join ",", @prereq; $but = $cnt == 1 ? "one dependency not OK ($which)" : "$cnt dependencies missing ($which)"; } $but; } sub _prefs_with_expect { my($self,$where) = @_; return unless my $prefs = $self->prefs; return unless my $where_prefs = $prefs->{$where}; if ($where_prefs->{expect}) { return { mode => "deterministic", timeout => 15, talk => $where_prefs->{expect}, }; } elsif ($where_prefs->{"eexpect"}) { return $where_prefs->{"eexpect"}; } return; } #-> sub CPAN::Distribution::clean ; sub clean { my($self) = @_; my $make = $self->{modulebuild} ? "Build" : "make"; $CPAN::Frontend->myprint(sprintf "Running %s clean for %s\n", $make, $self->pretty_id); unless (exists $self->{archived}) { $CPAN::Frontend->mywarn("Distribution seems to have never been unzipped". "/untarred, nothing done\n"); return 1; } unless (exists $self->{build_dir}) { $CPAN::Frontend->mywarn("Distribution has no own directory, nothing to do.\n"); return 1; } if (exists $self->{writemakefile} and $self->{writemakefile}->failed ) { $CPAN::Frontend->mywarn("No Makefile, don't know how to 'make clean'\n"); return 1; } EXCUSE: { my @e; exists $self->{make_clean} and $self->{make_clean} eq "YES" and push @e, "make clean already called once"; $CPAN::Frontend->myprint(join "", map {" $_\n"} @e) and return if @e; } chdir "$self->{build_dir}" or Carp::confess("Couldn't chdir to $self->{build_dir}: $!"); $self->debug("Changed directory to $self->{build_dir}") if $CPAN::DEBUG; if ($^O eq 'MacOS') { Mac::BuildTools::make_clean($self); return; } my $system; if ($self->{modulebuild}) { unless (-f "Build") { my $cwd = CPAN::anycwd(); $CPAN::Frontend->mywarn("Alert: no Build file available for 'clean $self->{id}". " in cwd[$cwd]. Danger, Will Robinson!"); $CPAN::Frontend->mysleep(5); } $system = sprintf "%s clean", $self->_build_command(); } else { $system = join " ", $self->_make_command(), "clean"; } my $system_ok = system($system) == 0; $self->introduce_myself; if ( $system_ok ) { $CPAN::Frontend->myprint(" $system -- OK\n"); # $self->force; # Jost Krieger pointed out that this "force" was wrong because # it has the effect that the next "install" on this distribution # will untar everything again. Instead we should bring the # object's state back to where it is after untarring. for my $k (qw( force_update install writemakefile make make_test )) { delete $self->{$k}; } $self->{make_clean} = CPAN::Distrostatus->new("YES"); } else { # Hmmm, what to do if make clean failed? $self->{make_clean} = CPAN::Distrostatus->new("NO"); $CPAN::Frontend->mywarn(qq{ $system -- NOT OK\n}); # 2006-02-27: seems silly to me to force a make now # $self->force("make"); # so that this directory won't be used again } $self->store_persistent_state; } #-> sub CPAN::Distribution::check_disabled ; sub check_disabled { my ($self) = @_; $self->debug("checking disabled id[$self->{ID}]") if $CPAN::DEBUG; if ($self->prefs->{disabled} && ! $self->{force_update}) { return sprintf( "Disabled via prefs file '%s' doc %d", $self->{prefs_file}, $self->{prefs_file_doc}, ); } return; } #-> sub CPAN::Distribution::goto ; sub goto { my($self,$goto) = @_; $goto = $self->normalize($goto); my $why = sprintf( "Goto '$goto' via prefs file '%s' doc %d", $self->{prefs_file}, $self->{prefs_file_doc}, ); $self->{unwrapped} = CPAN::Distrostatus->new("NO $why"); # 2007-07-16 akoenig : Better than NA would be if we could inherit # the status of the $goto distro but given the exceptional nature # of 'goto' I feel reluctant to implement it my $goodbye_message = "[goto] -- NA $why"; $self->goodbye($goodbye_message); # inject into the queue CPAN::Queue->delete($self->id); CPAN::Queue->jumpqueue({qmod => $goto, reqtype => $self->{reqtype}}); # and run where we left off my($method) = (caller(1))[3]; my $goto_do = CPAN->instance("CPAN::Distribution",$goto); $goto_do->called_for($self->called_for) unless $goto_do->called_for; $goto_do->{mandatory} ||= $self->{mandatory}; $goto_do->{reqtype} ||= $self->{reqtype}; $goto_do->{coming_from} = $self->pretty_id; $goto_do->$method(); CPAN::Queue->delete_first($goto); # XXX delete_first returns undef; is that what this should return # up the call stack, eg. return $sefl->goto($goto) -- xdg, 2012-04-04 } #-> sub CPAN::Distribution::shortcut_install ; # return values: undef means don't shortcut; 0 means shortcut as fail; # and 1 means shortcut as success sub shortcut_install { my ($self) = @_; $self->debug("checking previous install results[$self->{ID}]") if $CPAN::DEBUG; if (exists $self->{install}) { my $text = UNIVERSAL::can($self->{install},"text") ? $self->{install}->text : $self->{install}; if ($text =~ /^YES/) { $CPAN::META->is_installed($self->{build_dir}); return $self->success("Already done"); } elsif ($text =~ /is only/) { # e.g. 'is only build_requires': may be overruled later return $self->goodbye($text); } else { # comment in Todo on 2006-02-11; maybe retry? return $self->goodbye("Already tried without success"); } } for my $slot ( qw/later configure_requires_later/ ) { return $self->success($self->{$slot}) if $self->{$slot}; } return undef; } #-> sub CPAN::Distribution::is_being_sponsored ; # returns true if we find a distro object in the queue that has # sponsored this one sub is_being_sponsored { my($self) = @_; my $iterator = CPAN::Queue->iterator; QITEM: while (my $q = $iterator->()) { my $s = $q->as_string; my $obj = CPAN::Shell->expandany($s) or next QITEM; my $type = ref $obj; if ( $type eq 'CPAN::Distribution' ){ for my $module (sort keys %{$obj->{sponsored_mods} || {}}) { return 1 if grep { $_ eq $module } $self->containsmods; } } } return 0; } #-> sub CPAN::Distribution::install ; sub install { my($self) = @_; $self->pre_install(); if (exists $self->{cleanup_after_install_done}) { return $self->test; } $self->debug("checking goto id[$self->{ID}]") if $CPAN::DEBUG; if (my $goto = $self->prefs->{goto}) { $self->goto($goto); $self->post_install(); return; } unless ($self->test) { $self->post_install(); return; } if ( defined( my $sc = $self->shortcut_install ) ) { $self->post_install(); return $sc; } if ($CPAN::Signal) { delete $self->{force_update}; $self->post_install(); return; } my $builddir = $self->dir or $CPAN::Frontend->mydie("PANIC: Cannot determine build directory\n"); unless (chdir $builddir) { $CPAN::Frontend->mywarn("Couldn't chdir to '$builddir': $!"); $self->post_install(); return; } $self->debug("Changed directory to $self->{build_dir}") if $CPAN::DEBUG; my $make = $self->{modulebuild} ? "Build" : "make"; $CPAN::Frontend->myprint(sprintf "Running %s install for %s\n", $make, $self->pretty_id); if ($^O eq 'MacOS') { Mac::BuildTools::make_install($self); $self->post_install(); return; } my $system; if (my $commandline = $self->prefs->{install}{commandline}) { $system = $commandline; $ENV{PERL} = CPAN::find_perl(); } elsif ($self->{modulebuild}) { my($mbuild_install_build_command) = exists $CPAN::HandleConfig::keys{mbuild_install_build_command} && $CPAN::Config->{mbuild_install_build_command} ? $CPAN::Config->{mbuild_install_build_command} : $self->_build_command(); my $install_directive = $^O eq 'VMS' ? '"install"' : 'install'; $system = sprintf("%s %s %s", $mbuild_install_build_command, $install_directive, $CPAN::Config->{mbuild_install_arg}, ); } else { my($make_install_make_command) = $self->_make_install_make_command(); $system = sprintf("%s install %s", $make_install_make_command, $CPAN::Config->{make_install_arg}, ); } my($stderr) = $^O eq "MSWin32" || $^O eq 'VMS' ? "" : " 2>&1 "; my $brip = CPAN::HandleConfig->prefs_lookup($self, q{build_requires_install_policy}); $brip ||="ask/yes"; my $id = $self->id; my $reqtype = $self->{reqtype} ||= "c"; # in doubt it was a command my $want_install = "yes"; if ($reqtype eq "b") { if ($brip eq "no") { $want_install = "no"; } elsif ($brip =~ m|^ask/(.+)|) { my $default = $1; $default = "yes" unless $default =~ /^(y|n)/i; $want_install = CPAN::Shell::colorable_makemaker_prompt ("$id is just needed temporarily during building or testing. ". "Do you want to install it permanently?", $default); } } unless ($want_install =~ /^y/i) { my $is_only = "is only 'build_requires'"; $self->{install} = CPAN::Distrostatus->new("NO -- $is_only"); delete $self->{force_update}; $self->goodbye("Not installing because $is_only"); $self->post_install(); return; } local $ENV{PERL5LIB} = defined($ENV{PERL5LIB}) ? $ENV{PERL5LIB} : ($ENV{PERLLIB} || ""); local $ENV{PERL5OPT} = defined $ENV{PERL5OPT} ? $ENV{PERL5OPT} : ""; local $ENV{PERL_USE_UNSAFE_INC} = exists $ENV{PERL_USE_UNSAFE_INC} && defined $ENV{PERL_USE_UNSAFE_INC} ? $ENV{PERL_USE_UNSAFE_INC} : 1; # install $CPAN::META->set_perl5lib; local $ENV{PERL_MM_USE_DEFAULT} = 1 if $CPAN::Config->{use_prompt_default}; local $ENV{NONINTERACTIVE_TESTING} = 1 if $CPAN::Config->{use_prompt_default}; my $install_env; if ($self->prefs->{install}) { $install_env = $self->prefs->{install}{env}; } local @ENV{keys %$install_env} = values %$install_env if $install_env; if (! $run_allow_installing_within_test) { my($allow_installing, $why) = $self->_allow_installing; if (! $allow_installing) { $CPAN::Frontend->mywarn("Installation stopped: $why\n"); $self->introduce_myself; $self->{install} = CPAN::Distrostatus->new("NO -- installation stopped due $why"); $CPAN::Frontend->mywarn(" $system -- NOT OK\n"); delete $self->{force_update}; $self->post_install(); return; } } my($pipe) = FileHandle->new("$system $stderr |"); unless ($pipe) { $CPAN::Frontend->mywarn("Can't execute $system: $!"); $self->introduce_myself; $self->{install} = CPAN::Distrostatus->new("NO"); $CPAN::Frontend->mywarn(" $system -- NOT OK\n"); delete $self->{force_update}; $self->post_install(); return; } my($makeout) = ""; while (<$pipe>) { print $_; # intentionally NOT use Frontend->myprint because it # looks irritating when we markup in color what we # just pass through from an external program $makeout .= $_; } $pipe->close; my $close_ok = $? == 0; $self->introduce_myself; if ( $close_ok ) { $CPAN::Frontend->myprint(" $system -- OK\n"); $CPAN::META->is_installed($self->{build_dir}); $self->{install} = CPAN::Distrostatus->new("YES"); if ($CPAN::Config->{'cleanup_after_install'} && ! $self->is_dot_dist && ! $self->is_being_sponsored) { my $parent = File::Spec->catdir( $self->{build_dir}, File::Spec->updir ); chdir $parent or $CPAN::Frontend->mydie("Couldn't chdir to $parent: $!\n"); File::Path::rmtree($self->{build_dir}); my $yml = "$self->{build_dir}.yml"; if (-e $yml) { unlink $yml or $CPAN::Frontend->mydie("Couldn't unlink $yml: $!\n"); } $self->{cleanup_after_install_done}=1; } } else { $self->{install} = CPAN::Distrostatus->new("NO"); $CPAN::Frontend->mywarn(" $system -- NOT OK\n"); my $mimc = CPAN::HandleConfig->prefs_lookup($self, q{make_install_make_command}); if ( $makeout =~ /permission/s && $> > 0 && ( ! $mimc || $mimc eq (CPAN::HandleConfig->prefs_lookup($self, q{make})) ) ) { $CPAN::Frontend->myprint( qq{----\n}. qq{ You may have to su }. qq{to root to install the package\n}. qq{ (Or you may want to run something like\n}. qq{ o conf make_install_make_command 'sudo make'\n}. qq{ to raise your permissions.} ); } } delete $self->{force_update}; unless ($CPAN::Config->{'cleanup_after_install'}) { $self->store_persistent_state; } $self->post_install(); return !! $close_ok; } sub blib_pm_walk { my @queue = grep { -e $_ } File::Spec->catdir("blib","lib"), File::Spec->catdir("blib","arch"); return sub { LOOP: { if (@queue) { my $file = shift @queue; if (-d $file) { my $dh; opendir $dh, $file or next; my @newfiles = map { my @ret; my $maybedir = File::Spec->catdir($file, $_); if (-d $maybedir) { unless (File::Spec->catdir("blib","arch","auto") eq $maybedir) { # prune the blib/arch/auto directory, no pm files there @ret = $maybedir; } } elsif (/\.pm$/) { my $mustbefile = File::Spec->catfile($file, $_); if (-f $mustbefile) { @ret = $mustbefile; } } @ret; } grep { $_ ne "." && $_ ne ".." } readdir $dh; push @queue, @newfiles; redo LOOP; } else { return $file; } } else { return; } } }; } sub _allow_installing { my($self) = @_; my $id = my $pretty_id = $self->pretty_id; if ($self->{CALLED_FOR}) { $id .= " (called for $self->{CALLED_FOR})"; } my $allow_down = CPAN::HandleConfig->prefs_lookup($self,q{allow_installing_module_downgrades}); $allow_down ||= "ask/yes"; my $allow_outdd = CPAN::HandleConfig->prefs_lookup($self,q{allow_installing_outdated_dists}); $allow_outdd ||= "ask/yes"; return 1 if $allow_down eq "yes" && $allow_outdd eq "yes"; if (($allow_outdd ne "yes") && ! $CPAN::META->has_inst('CPAN::DistnameInfo')) { return 1 if grep { $_ eq 'CPAN::DistnameInfo'} $self->containsmods; if ($allow_outdd ne "yes") { $CPAN::Frontend->mywarn("The current configuration of allow_installing_outdated_dists is '$allow_outdd', but for this option we would need 'CPAN::DistnameInfo' installed. Please install 'CPAN::DistnameInfo' as soon as possible. As long as we are not equipped with 'CPAN::DistnameInfo' this option does not take effect\n"); $allow_outdd = "yes"; } } return 1 if $allow_down eq "yes" && $allow_outdd eq "yes"; my($dist_version, $dist_dist); if ($allow_outdd ne "yes"){ my $dni = CPAN::DistnameInfo->new($pretty_id); $dist_version = $dni->version; $dist_dist = $dni->dist; } my $iterator = blib_pm_walk(); my(@down,@outdd); while (my $file = $iterator->()) { my $version = CPAN::Module->parse_version($file); my($volume, $directories, $pmfile) = File::Spec->splitpath( $file ); my @dirs = File::Spec->splitdir( $directories ); my(@blib_plus1) = splice @dirs, 0, 2; my($pmpath) = File::Spec->catfile(grep { length($_) } @dirs, $pmfile); unless ($allow_down eq "yes") { if (my $inst_file = $self->_file_in_path($pmpath, \@INC)) { my $inst_version = CPAN::Module->parse_version($inst_file); my $cmp = CPAN::Version->vcmp($version, $inst_version); if ($cmp) { if ($cmp < 0) { push @down, { pmpath => $pmpath, version => $version, inst_version => $inst_version }; } } if (@down) { my $why = "allow_installing_module_downgrades: $id contains downgrading module(s) (e.g. '$down[0]{pmpath}' would downgrade installed '$down[0]{inst_version}' to '$down[0]{version}')"; if (my($default) = $allow_down =~ m|^ask/(.+)|) { $default = "yes" unless $default =~ /^(y|n)/i; my $answer = CPAN::Shell::colorable_makemaker_prompt ("$why. Do you want to allow installing it?", $default, "colorize_warn"); $allow_down = $answer =~ /^\s*y/i ? "yes" : "no"; } if ($allow_down eq "no") { return (0, $why); } } } } unless ($allow_outdd eq "yes") { my @pmpath = (@dirs, $pmfile); $pmpath[-1] =~ s/\.pm$//; my $mo = CPAN::Shell->expand("Module",join "::", grep { length($_) } @pmpath); if ($mo) { my $cpan_version = $mo->cpan_version; my $is_lower = CPAN::Version->vlt($version, $cpan_version); my $other_dist; if (my $mo_dist = $mo->distribution) { $other_dist = $mo_dist->pretty_id; my $dni = CPAN::DistnameInfo->new($other_dist); if ($dni->dist eq $dist_dist){ if (CPAN::Version->vgt($dni->version, $dist_version)) { push @outdd, { pmpath => $pmpath, cpan_path => $dni->pathname, dist_version => $dni->version, dist_dist => $dni->dist, }; } } } } if (@outdd && $allow_outdd ne "yes") { my $why = "allow_installing_outdated_dists: $id contains module(s) that are indexed on the CPAN with a different distro: (e.g. '$outdd[0]{pmpath}' is indexed with '$outdd[0]{cpan_path}')"; if ($outdd[0]{dist_dist} eq $dist_dist) { $why .= ", and this has a higher distribution-version, i.e. version '$outdd[0]{dist_version}' is higher than '$dist_version')"; } if (my($default) = $allow_outdd =~ m|^ask/(.+)|) { $default = "yes" unless $default =~ /^(y|n)/i; my $answer = CPAN::Shell::colorable_makemaker_prompt ("$why. Do you want to allow installing it?", $default, "colorize_warn"); $allow_outdd = $answer =~ /^\s*y/i ? "yes" : "no"; } if ($allow_outdd eq "no") { return (0, $why); } } } } return 1; } sub _file_in_path { # similar to CPAN::Module::_file_in_path my($self,$pmpath,$incpath) = @_; my($dir,@packpath); foreach $dir (@$incpath) { my $pmfile = File::Spec->catfile($dir,$pmpath); if (-f $pmfile) { return $pmfile; } } return; } sub introduce_myself { my($self) = @_; $CPAN::Frontend->myprint(sprintf(" %s\n",$self->pretty_id)); } #-> sub CPAN::Distribution::dir ; sub dir { shift->{build_dir}; } #-> sub CPAN::Distribution::perldoc ; sub perldoc { my($self) = @_; my($dist) = $self->id; my $package = $self->called_for; if ($CPAN::META->has_inst("Pod::Perldocs")) { my($perl) = $self->perl or $CPAN::Frontend->mydie("Couldn't find executable perl\n"); my @args = ($perl, q{-MPod::Perldocs}, q{-e}, q{Pod::Perldocs->run()}, $package); my($wstatus); unless ( ($wstatus = system(@args)) == 0 ) { my $estatus = $wstatus >> 8; $CPAN::Frontend->myprint(qq{ Function system("@args") returned status $estatus (wstat $wstatus) }); } } else { $self->_display_url( $CPAN::Defaultdocs . $package ); } } #-> sub CPAN::Distribution::_check_binary ; sub _check_binary { my ($dist,$shell,$binary) = @_; my ($pid,$out); $CPAN::Frontend->myprint(qq{ + _check_binary($binary)\n}) if $CPAN::DEBUG; if ($CPAN::META->has_inst("File::Which")) { return File::Which::which($binary); } else { local *README; $pid = open README, "which $binary|" or $CPAN::Frontend->mywarn(qq{Could not fork 'which $binary': $!\n}); return unless $pid; while (<README>) { $out .= $_; } close README or $CPAN::Frontend->mywarn("Could not run 'which $binary': $!\n") and return; } $CPAN::Frontend->myprint(qq{ + $out \n}) if $CPAN::DEBUG && $out; return $out; } #-> sub CPAN::Distribution::_display_url ; sub _display_url { my($self,$url) = @_; my($res,$saved_file,$pid,$out); $CPAN::Frontend->myprint(qq{ + _display_url($url)\n}) if $CPAN::DEBUG; # should we define it in the config instead? my $html_converter = "html2text"; my $web_browser = $CPAN::Config->{'lynx'} || undef; my $web_browser_out = $web_browser ? CPAN::Distribution->_check_binary($self,$web_browser) : undef; if ($web_browser_out) { # web browser found, run the action my $browser = CPAN::HandleConfig->safe_quote($CPAN::Config->{'lynx'}); $CPAN::Frontend->myprint(qq{system[$browser $url]}) if $CPAN::DEBUG; $CPAN::Frontend->myprint(qq{ Displaying URL $url with browser $browser }); $CPAN::Frontend->mysleep(1); system("$browser $url"); if ($saved_file) { 1 while unlink($saved_file) } } else { # web browser not found, let's try text only my $html_converter_out = CPAN::Distribution->_check_binary($self,$html_converter); $html_converter_out = CPAN::HandleConfig->safe_quote($html_converter_out); if ($html_converter_out ) { # html2text found, run it $saved_file = CPAN::Distribution->_getsave_url( $self, $url ); $CPAN::Frontend->mydie(qq{ERROR: problems while getting $url\n}) unless defined($saved_file); local *README; $pid = open README, "$html_converter $saved_file |" or $CPAN::Frontend->mydie(qq{ Could not fork '$html_converter $saved_file': $!}); my($fh,$filename); if ($CPAN::META->has_usable("File::Temp")) { $fh = File::Temp->new( dir => File::Spec->tmpdir, template => 'cpan_htmlconvert_XXXX', suffix => '.txt', unlink => 0, ); $filename = $fh->filename; } else { $filename = "cpan_htmlconvert_$$.txt"; $fh = FileHandle->new(); open $fh, ">$filename" or die; } while (<README>) { $fh->print($_); } close README or $CPAN::Frontend->mydie(qq{Could not run '$html_converter $saved_file': $!}); my $tmpin = $fh->filename; $CPAN::Frontend->myprint(sprintf(qq{ Run '%s %s' and saved output to %s\n}, $html_converter, $saved_file, $tmpin, )) if $CPAN::DEBUG; close $fh; local *FH; open FH, $tmpin or $CPAN::Frontend->mydie(qq{Could not open "$tmpin": $!}); my $fh_pager = FileHandle->new; local($SIG{PIPE}) = "IGNORE"; my $pager = $CPAN::Config->{'pager'} || "cat"; $fh_pager->open("|$pager") or $CPAN::Frontend->mydie(qq{ Could not open pager '$pager': $!}); $CPAN::Frontend->myprint(qq{ Displaying URL $url with pager "$pager" }); $CPAN::Frontend->mysleep(1); $fh_pager->print(<FH>); $fh_pager->close; } else { # coldn't find the web browser or html converter $CPAN::Frontend->myprint(qq{ You need to install lynx or $html_converter to use this feature.}); } } } #-> sub CPAN::Distribution::_getsave_url ; sub _getsave_url { my($dist, $shell, $url) = @_; $CPAN::Frontend->myprint(qq{ + _getsave_url($url)\n}) if $CPAN::DEBUG; my($fh,$filename); if ($CPAN::META->has_usable("File::Temp")) { $fh = File::Temp->new( dir => File::Spec->tmpdir, template => "cpan_getsave_url_XXXX", suffix => ".html", unlink => 0, ); $filename = $fh->filename; } else { $fh = FileHandle->new; $filename = "cpan_getsave_url_$$.html"; } my $tmpin = $filename; if ($CPAN::META->has_usable('LWP')) { $CPAN::Frontend->myprint("Fetching with LWP: $url "); my $Ua; CPAN::LWP::UserAgent->config; eval { $Ua = CPAN::LWP::UserAgent->new; }; if ($@) { $CPAN::Frontend->mywarn("ERROR: CPAN::LWP::UserAgent->new dies with $@\n"); return; } else { my($var); $Ua->proxy('http', $var) if $var = $CPAN::Config->{http_proxy} || $ENV{http_proxy}; $Ua->no_proxy($var) if $var = $CPAN::Config->{no_proxy} || $ENV{no_proxy}; } my $req = HTTP::Request->new(GET => $url); $req->header('Accept' => 'text/html'); my $res = $Ua->request($req); if ($res->is_success) { $CPAN::Frontend->myprint(" + request successful.\n") if $CPAN::DEBUG; print $fh $res->content; close $fh; $CPAN::Frontend->myprint(qq{ + saved content to $tmpin \n}) if $CPAN::DEBUG; return $tmpin; } else { $CPAN::Frontend->myprint(sprintf( "LWP failed with code[%s], message[%s]\n", $res->code, $res->message, )); return; } } else { $CPAN::Frontend->mywarn(" LWP not available\n"); return; } } #-> sub CPAN::Distribution::_build_command sub _build_command { my($self) = @_; if ($^O eq "MSWin32") { # special code needed at least up to # Module::Build 0.2611 and 0.2706; a fix # in M:B has been promised 2006-01-30 my($perl) = $self->perl or $CPAN::Frontend->mydie("Couldn't find executable perl\n"); return "$perl ./Build"; } elsif ($^O eq 'VMS') { return "$^X Build.com"; } return "./Build"; } #-> sub CPAN::Distribution::_should_report sub _should_report { my($self, $phase) = @_; die "_should_report() requires a 'phase' argument" if ! defined $phase; return unless $CPAN::META->has_usable("CPAN::Reporter"); # configured my $test_report = CPAN::HandleConfig->prefs_lookup($self, q{test_report}); return unless $test_report; # don't repeat if we cached a result return $self->{should_report} if exists $self->{should_report}; # don't report if we generated a Makefile.PL if ( $self->{had_no_makefile_pl} ) { $CPAN::Frontend->mywarn( "Will not send CPAN Testers report with generated Makefile.PL.\n" ); return $self->{should_report} = 0; } # available if ( ! $CPAN::META->has_inst("CPAN::Reporter")) { $CPAN::Frontend->mywarnonce( "CPAN::Reporter not installed. No reports will be sent.\n" ); return $self->{should_report} = 0; } # capable my $crv = CPAN::Reporter->VERSION; if ( CPAN::Version->vlt( $crv, 0.99 ) ) { # don't cache $self->{should_report} -- need to check each phase if ( $phase eq 'test' ) { return 1; } else { $CPAN::Frontend->mywarn( "Reporting on the '$phase' phase requires CPAN::Reporter 0.99, but \n" . "you only have version $crv\. Only 'test' phase reports will be sent.\n" ); return; } } # appropriate if ($self->is_dot_dist) { $CPAN::Frontend->mywarn("Reporting via CPAN::Reporter is disabled ". "for local directories\n"); return $self->{should_report} = 0; } if ($self->prefs->{patches} && @{$self->prefs->{patches}} && $self->{patched} ) { $CPAN::Frontend->mywarn("Reporting via CPAN::Reporter is disabled ". "when the source has been patched\n"); return $self->{should_report} = 0; } # proceed and cache success return $self->{should_report} = 1; } #-> sub CPAN::Distribution::reports sub reports { my($self) = @_; my $pathname = $self->id; $CPAN::Frontend->myprint("Distribution: $pathname\n"); unless ($CPAN::META->has_inst("CPAN::DistnameInfo")) { $CPAN::Frontend->mydie("CPAN::DistnameInfo not installed; cannot continue"); } unless ($CPAN::META->has_usable("LWP")) { $CPAN::Frontend->mydie("LWP not installed; cannot continue"); } unless ($CPAN::META->has_usable("File::Temp")) { $CPAN::Frontend->mydie("File::Temp not installed; cannot continue"); } my $format; if ($CPAN::META->has_inst("YAML::XS") || $CPAN::META->has_inst("YAML::Syck")){ $format = 'yaml'; } elsif (!$format && $CPAN::META->has_inst("JSON::PP") ) { $format = 'json'; } else { $CPAN::Frontend->mydie("JSON::PP not installed, cannot continue"); } my $d = CPAN::DistnameInfo->new($pathname); my $dist = $d->dist; # "CPAN-DistnameInfo" my $version = $d->version; # "0.02" my $maturity = $d->maturity; # "released" my $filename = $d->filename; # "CPAN-DistnameInfo-0.02.tar.gz" my $cpanid = $d->cpanid; # "GBARR" my $distvname = $d->distvname; # "CPAN-DistnameInfo-0.02" my $url = sprintf "http://www.cpantesters.org/show/%s.%s", $dist, $format; CPAN::LWP::UserAgent->config; my $Ua; eval { $Ua = CPAN::LWP::UserAgent->new; }; if ($@) { $CPAN::Frontend->mydie("CPAN::LWP::UserAgent->new dies with $@\n"); } $CPAN::Frontend->myprint("Fetching '$url'..."); my $resp = $Ua->get($url); unless ($resp->is_success) { $CPAN::Frontend->mydie(sprintf "Could not download '%s': %s\n", $url, $resp->code); } $CPAN::Frontend->myprint("DONE\n\n"); my $unserialized; if ( $format eq 'yaml' ) { my $yaml = $resp->content; # what a long way round! my $fh = File::Temp->new( dir => File::Spec->tmpdir, template => 'cpan_reports_XXXX', suffix => '.yaml', unlink => 0, ); my $tfilename = $fh->filename; print $fh $yaml; close $fh or $CPAN::Frontend->mydie("Could not close '$tfilename': $!"); $unserialized = CPAN->_yaml_loadfile($tfilename)->[0]; unlink $tfilename or $CPAN::Frontend->mydie("Could not unlink '$tfilename': $!"); } else { require JSON::PP; $unserialized = JSON::PP->new->utf8->decode($resp->content); } my %other_versions; my $this_version_seen; for my $rep (@$unserialized) { my $rversion = $rep->{version}; if ($rversion eq $version) { unless ($this_version_seen++) { $CPAN::Frontend->myprint ("$rep->{version}:\n"); } my $arch = $rep->{archname} || $rep->{platform} || '????'; my $grade = $rep->{action} || $rep->{status} || '????'; my $ostext = $rep->{ostext} || ucfirst($rep->{osname}) || '????'; $CPAN::Frontend->myprint (sprintf("%1s%1s%-4s %s on %s %s (%s)\n", $arch eq $Config::Config{archname}?"*":"", $grade eq "PASS"?"+":$grade eq"FAIL"?"-":"", $grade, $rep->{perl}, $ostext, $rep->{osvers}, $arch, )); } else { $other_versions{$rep->{version}}++; } } unless ($this_version_seen) { $CPAN::Frontend->myprint("No reports found for version '$version' Reports for other versions:\n"); for my $v (sort keys %other_versions) { $CPAN::Frontend->myprint(" $v\: $other_versions{$v}\n"); } } $url = substr($url,0,-4) . 'html'; $CPAN::Frontend->myprint("See $url for details\n"); } 1; PK ! ��H 5.34.0/CPAN/FTP/netrc.pmnu �[��� package CPAN::FTP::netrc; use strict; $CPAN::FTP::netrc::VERSION = $CPAN::FTP::netrc::VERSION = "1.01"; # package CPAN::FTP::netrc; sub new { my($class) = @_; my $file = File::Spec->catfile($ENV{HOME},".netrc"); my($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) = stat($file); $mode ||= 0; my $protected = 0; my($fh,@machines,$hasdefault); $hasdefault = 0; $fh = FileHandle->new or die "Could not create a filehandle"; if($fh->open($file)) { $protected = ($mode & 077) == 0; local($/) = ""; NETRC: while (<$fh>) { my(@tokens) = split " ", $_; TOKEN: while (@tokens) { my($t) = shift @tokens; if ($t eq "default") { $hasdefault++; last NETRC; } last TOKEN if $t eq "macdef"; if ($t eq "machine") { push @machines, shift @tokens; } } } } else { $file = $hasdefault = $protected = ""; } bless { 'mach' => [@machines], 'netrc' => $file, 'hasdefault' => $hasdefault, 'protected' => $protected, }, $class; } # CPAN::FTP::netrc::hasdefault; sub hasdefault { shift->{'hasdefault'} } sub netrc { shift->{'netrc'} } sub protected { shift->{'protected'} } sub contains { my($self,$mach) = @_; for ( @{$self->{'mach'}} ) { return 1 if $_ eq $mach; } return 0; } 1; PK ! 4t*�( ( 5.34.0/CPAN/HTTP/Client.pmnu �[��� # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- # vim: ts=4 sts=4 sw=4: package CPAN::HTTP::Client; use strict; use vars qw(@ISA); use CPAN::HTTP::Credentials; use HTTP::Tiny 0.005; $CPAN::HTTP::Client::VERSION = $CPAN::HTTP::Client::VERSION = "1.9601"; # CPAN::HTTP::Client is adapted from parts of cpanm by Tatsuhiko Miyagawa # and parts of LWP by Gisle Aas sub new { my $class = shift; my %args = @_; for my $k ( keys %args ) { $args{$k} = '' unless defined $args{$k}; } $args{no_proxy} = [split(",", $args{no_proxy}) ] if $args{no_proxy}; return bless \%args, $class; } # This executes a request with redirection (up to 5) and returns the # response structure generated by HTTP::Tiny # # If authentication fails, it will attempt to get new authentication # information and repeat up to 5 times sub mirror { my($self, $uri, $path) = @_; my $want_proxy = $self->_want_proxy($uri); my $http = HTTP::Tiny->new( verify_SSL => 1, $want_proxy ? (proxy => $self->{proxy}) : () ); my ($response, %headers); my $retries = 0; while ( $retries++ < 5 ) { $response = $http->mirror( $uri, $path, {headers => \%headers} ); if ( $response->{status} eq '401' ) { last unless $self->_get_auth_params( $response, 'non_proxy' ); } elsif ( $response->{status} eq '407' ) { last unless $self->_get_auth_params( $response, 'proxy' ); } else { last; # either success or failure } my %headers = ( $self->_auth_headers( $uri, 'non_proxy' ), ( $want_proxy ? $self->_auth_headers($uri, 'proxy') : () ), ); } return $response; } sub _want_proxy { my ($self, $uri) = @_; return unless $self->{proxy}; my($host) = $uri =~ m|://([^/:]+)|; return ! grep { $host =~ /\Q$_\E$/ } @{ $self->{no_proxy} || [] }; } # Generates the authentication headers for a given mode # C<mode> is 'proxy' or 'non_proxy' # C<_${mode}_type> is 'basic' or 'digest' # C<_${mode}_params> will be the challenge parameters from the 401/407 headers sub _auth_headers { my ($self, $uri, $mode) = @_; # Get names for our mode-specific attributes my ($type_key, $param_key) = map {"_" . $mode . $_} qw/_type _params/; # If _prepare_auth has not been called, we can't prepare headers return unless $self->{$type_key}; # Get user credentials for mode my $cred_method = "get_" . ($mode ? "proxy" : "non_proxy") ."_credentials"; my ($user, $pass) = CPAN::HTTP::Credentials->$cred_method; # Generate the header for the mode & type my $header = $mode eq 'proxy' ? 'Proxy-Authorization' : 'Authorization'; my $value_method = "_" . $self->{$type_key} . "_auth"; my $value = $self->$value_method($user, $pass, $self->{$param_key}, $uri); # If we didn't get a value, we didn't have the right modules available return $value ? ( $header, $value ) : (); } # Extract authentication parameters from headers, but clear any prior # credentials if we failed (so we might prompt user for password again) sub _get_auth_params { my ($self, $response, $mode) = @_; my $prefix = $mode eq 'proxy' ? 'Proxy' : 'WWW'; my ($type_key, $param_key) = map {"_" . $mode . $_} qw/_type _params/; if ( ! $response->{success} ) { # auth failed my $method = "clear_${mode}_credentials"; CPAN::HTTP::Credentials->$method; delete $self->{$_} for $type_key, $param_key; } ($self->{$type_key}, $self->{$param_key}) = $self->_get_challenge( $response, "${prefix}-Authenticate"); return $self->{$type_key}; } # Extract challenge type and parameters for a challenge list sub _get_challenge { my ($self, $response, $auth_header) = @_; my $auth_list = $response->{headers}(lc $auth_header); return unless defined $auth_list; $auth_list = [$auth_list] unless ref $auth_list; for my $challenge (@$auth_list) { $challenge =~ tr/,/;/; # "," is used to separate auth-params!! ($challenge) = $self->split_header_words($challenge); my $scheme = shift(@$challenge); shift(@$challenge); # no value $challenge = { @$challenge }; # make rest into a hash unless ($scheme =~ /^(basic|digest)$/) { next; # bad scheme } $scheme = $1; # untainted now return ($scheme, $challenge); } return; } # Generate a basic authentication header value sub _basic_auth { my ($self, $user, $pass) = @_; unless ( $CPAN::META->has_usable('MIME::Base64') ) { $CPAN::Frontend->mywarn( "MIME::Base64 is required for 'Basic' style authentication" ); return; } return "Basic " . MIME::Base64::encode_base64("$user\:$pass", q{}); } # Generate a digest authentication header value sub _digest_auth { my ($self, $user, $pass, $auth_param, $uri) = @_; unless ( $CPAN::META->has_usable('Digest::MD5') ) { $CPAN::Frontend->mywarn( "Digest::MD5 is required for 'Digest' style authentication" ); return; } my $nc = sprintf "%08X", ++$self->{_nonce_count}{$auth_param->{nonce}}; my $cnonce = sprintf "%8x", time; my ($path) = $uri =~ m{^\w+?://[^/]+(/.*)$}; $path = "/" unless defined $path; my $md5 = Digest::MD5->new; my(@digest); $md5->add(join(":", $user, $auth_param->{realm}, $pass)); push(@digest, $md5->hexdigest); $md5->reset; push(@digest, $auth_param->{nonce}); if ($auth_param->{qop}) { push(@digest, $nc, $cnonce, ($auth_param->{qop} =~ m|^auth[,;]auth-int$|) ? 'auth' : $auth_param->{qop}); } $md5->add(join(":", 'GET', $path)); push(@digest, $md5->hexdigest); $md5->reset; $md5->add(join(":", @digest)); my($digest) = $md5->hexdigest; $md5->reset; my %resp = map { $_ => $auth_param->{$_} } qw(realm nonce opaque); @resp{qw(username uri response algorithm)} = ($user, $path, $digest, "MD5"); if (($auth_param->{qop} || "") =~ m|^auth([,;]auth-int)?$|) { @resp{qw(qop cnonce nc)} = ("auth", $cnonce, $nc); } my(@order) = qw(username realm qop algorithm uri nonce nc cnonce response opaque); my @pairs; for (@order) { next unless defined $resp{$_}; push(@pairs, "$_=" . qq("$resp{$_}")); } my $auth_value = "Digest " . join(", ", @pairs); return $auth_value; } # split_header_words adapted from HTTP::Headers::Util sub split_header_words { my ($self, @words) = @_; my @res = $self->_split_header_words(@words); for my $arr (@res) { for (my $i = @$arr - 2; $i >= 0; $i -= 2) { $arr->[$i] = lc($arr->[$i]); } } return @res; } sub _split_header_words { my($self, @val) = @_; my @res; for (@val) { my @cur; while (length) { if (s/^\s*(=*[^\s=;,]+)//) { # 'token' or parameter 'attribute' push(@cur, $1); # a quoted value if (s/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) { my $val = $1; $val =~ s/\\(.)/$1/g; push(@cur, $val); # some unquoted value } elsif (s/^\s*=\s*([^;,\s]*)//) { my $val = $1; $val =~ s/\s+$//; push(@cur, $val); # no value, a lone token } else { push(@cur, undef); } } elsif (s/^\s*,//) { push(@res, [@cur]) if @cur; @cur = (); } elsif (s/^\s*;// || s/^\s+//) { # continue } else { die "This should not happen: '$_'"; } } push(@res, \@cur) if @cur; } @res; } 1; PK ! 3�y�I I 5.34.0/CPAN/HTTP/Credentials.pmnu �[��� # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- # vim: ts=4 sts=4 sw=4: package CPAN::HTTP::Credentials; use strict; use vars qw($USER $PASSWORD $PROXY_USER $PROXY_PASSWORD); $CPAN::HTTP::Credentials::VERSION = $CPAN::HTTP::Credentials::VERSION = "1.9601"; sub clear_credentials { clear_non_proxy_credentials(); clear_proxy_credentials(); } sub clear_non_proxy_credentials { undef $USER; undef $PASSWORD; } sub clear_proxy_credentials { undef $PROXY_USER; undef $PROXY_PASSWORD; } sub get_proxy_credentials { my $self = shift; if ($PROXY_USER && $PROXY_PASSWORD) { return ($PROXY_USER, $PROXY_PASSWORD); } if ( defined $CPAN::Config->{proxy_user} && $CPAN::Config->{proxy_user} ) { $PROXY_USER = $CPAN::Config->{proxy_user}; $PROXY_PASSWORD = $CPAN::Config->{proxy_pass} || ""; return ($PROXY_USER, $PROXY_PASSWORD); } my $username_prompt = "\nProxy authentication needed! (Note: to permanently configure username and password run o conf proxy_user your_username o conf proxy_pass your_password )\nUsername:"; ($PROXY_USER, $PROXY_PASSWORD) = _get_username_and_password_from_user($username_prompt); return ($PROXY_USER,$PROXY_PASSWORD); } sub get_non_proxy_credentials { my $self = shift; if ($USER && $PASSWORD) { return ($USER, $PASSWORD); } if ( defined $CPAN::Config->{username} ) { $USER = $CPAN::Config->{username}; $PASSWORD = $CPAN::Config->{password} || ""; return ($USER, $PASSWORD); } my $username_prompt = "\nAuthentication needed! (Note: to permanently configure username and password run o conf username your_username o conf password your_password )\nUsername:"; ($USER, $PASSWORD) = _get_username_and_password_from_user($username_prompt); return ($USER,$PASSWORD); } sub _get_username_and_password_from_user { my $username_message = shift; my ($username,$password); ExtUtils::MakeMaker->import(qw(prompt)); $username = prompt($username_message); if ($CPAN::META->has_inst("Term::ReadKey")) { Term::ReadKey::ReadMode("noecho"); } else { $CPAN::Frontend->mywarn( "Warning: Term::ReadKey seems not to be available, your password will be echoed to the terminal!\n" ); } $password = prompt("Password:"); if ($CPAN::META->has_inst("Term::ReadKey")) { Term::ReadKey::ReadMode("restore"); } $CPAN::Frontend->myprint("\n\n"); return ($username,$password); } 1; PK ! ���[ �[ 5.34.0/CPAN/HandleConfig.pmnu �[��� package CPAN::HandleConfig; use strict; use vars qw(%can %keys $loading $VERSION); use File::Path (); use File::Spec (); use File::Basename (); use Carp (); =head1 NAME CPAN::HandleConfig - internal configuration handling for CPAN.pm =cut $VERSION = "5.5011"; # see also CPAN::Config::VERSION at end of file %can = ( commit => "Commit changes to disk", defaults => "Reload defaults from disk", help => "Short help about 'o conf' usage", init => "Interactive setting of all options", ); # Q: where is the "How do I add a new config option" HOWTO? # A1: svn diff -r 757:758 # where dagolden added test_report [git e997b71de88f1019a1472fc13cb97b1b7f96610f] # A2: svn diff -r 985:986 # where andk added yaml_module [git 312b6d9b12b1bdec0b6e282d853482145475021f] # A3: 1. add new config option to %keys below # 2. add a Pod description in CPAN::FirstTime; it should include a # prompt line; see others for examples # 3. add a "matcher" section in CPAN::FirstTime::init that includes # a prompt function; see others for examples # 4. add config option to documentation section in CPAN.pm %keys = map { $_ => undef } ( "allow_installing_module_downgrades", "allow_installing_outdated_dists", "applypatch", "auto_commit", "build_cache", "build_dir", "build_dir_reuse", "build_requires_install_policy", "bzip2", "cache_metadata", "check_sigs", "cleanup_after_install", "colorize_debug", "colorize_output", "colorize_print", "colorize_warn", "commandnumber_in_prompt", "commands_quote", "connect_to_internet_ok", "cpan_home", "curl", "dontload_hash", # deprecated after 1.83_68 (rev. 581) "dontload_list", "ftp", "ftp_passive", "ftp_proxy", "ftpstats_size", "ftpstats_period", "getcwd", "gpg", "gzip", "halt_on_failure", "histfile", "histsize", "http_proxy", "inactivity_timeout", "index_expire", "inhibit_startup_message", "keep_source_where", "load_module_verbosity", "lynx", "make", "make_arg", "make_install_arg", "make_install_make_command", "makepl_arg", "mbuild_arg", "mbuild_install_arg", "mbuild_install_build_command", "mbuildpl_arg", "ncftp", "ncftpget", "no_proxy", "pager", "password", "patch", "patches_dir", "perl5lib_verbosity", "plugin_list", "prefer_external_tar", "prefer_installer", "prefs_dir", "prerequisites_policy", "proxy_pass", "proxy_user", "randomize_urllist", "recommends_policy", "scan_cache", "shell", "show_unparsable_versions", "show_upload_date", "show_zero_versions", "suggests_policy", "tar", "tar_verbosity", "term_is_latin", "term_ornaments", "test_report", "trust_test_report_history", "unzip", "urllist", "urllist_ping_verbose", "urllist_ping_external", "use_prompt_default", "use_sqlite", "username", "version_timeout", "wait_list", "wget", "yaml_load_code", "yaml_module", ); my %prefssupport = map { $_ => 1 } ( "allow_installing_module_downgrades", "allow_installing_outdated_dists", "build_requires_install_policy", "check_sigs", "make", "make_install_make_command", "prefer_installer", "test_report", ); # returns true on successful action sub edit { my($self,@args) = @_; return unless @args; CPAN->debug("self[$self]args[".join(" | ",@args)."]"); my($o,$str,$func,$args,$key_exists); $o = shift @args; if($can{$o}) { my $success = $self->$o(args => \@args); # o conf init => sub init => sub load unless ($success) { die "Panic: could not configure CPAN.pm for args [@args]. Giving up."; } } else { CPAN->debug("o[$o]") if $CPAN::DEBUG; unless (exists $keys{$o}) { $CPAN::Frontend->mywarn("Warning: unknown configuration variable '$o'\n"); } my $changed; # one day I used randomize_urllist for a boolean, so we must # list them explicitly --ak if (0) { } elsif ($o =~ /^(wait_list|urllist|dontload_list|plugin_list)$/) { # # ARRAYS # $func = shift @args; $func ||= ""; CPAN->debug("func[$func]args[@args]") if $CPAN::DEBUG; # Let's avoid eval, it's easier to comprehend without. if ($func eq "push") { push @{$CPAN::Config->{$o}}, @args; $changed = 1; } elsif ($func eq "pop") { pop @{$CPAN::Config->{$o}}; $changed = 1; } elsif ($func eq "shift") { shift @{$CPAN::Config->{$o}}; $changed = 1; } elsif ($func eq "unshift") { unshift @{$CPAN::Config->{$o}}, @args; $changed = 1; } elsif ($func eq "splice") { my $offset = shift @args || 0; my $length = shift @args || 0; splice @{$CPAN::Config->{$o}}, $offset, $length, @args; # may warn $changed = 1; } elsif ($func) { $CPAN::Config->{$o} = [$func, @args]; $changed = 1; } else { $self->prettyprint($o); } if ($changed) { if ($o eq "urllist") { # reset the cached values undef $CPAN::FTP::Thesite; undef $CPAN::FTP::Themethod; $CPAN::Index::LAST_TIME = 0; } elsif ($o eq "dontload_list") { # empty it, it will be built up again $CPAN::META->{dontload_hash} = {}; } } } elsif ($o =~ /_hash$/) { # # HASHES # if (@args==1 && $args[0] eq "") { @args = (); } elsif (@args % 2) { push @args, ""; } $CPAN::Config->{$o} = { @args }; $changed = 1; } else { # # SCALARS # if (defined $args[0]) { $CPAN::CONFIG_DIRTY = 1; $CPAN::Config->{$o} = $args[0]; $changed = 1; } $self->prettyprint($o) if exists $keys{$o} or defined $CPAN::Config->{$o}; } if ($changed) { if ($CPAN::Config->{auto_commit}) { $self->commit; } else { $CPAN::CONFIG_DIRTY = 1; $CPAN::Frontend->myprint("Please use 'o conf commit' to ". "make the config permanent!\n\n"); } } } } sub prettyprint { my($self,$k) = @_; my $v = $CPAN::Config->{$k}; if (ref $v) { my(@report); if (ref $v eq "ARRAY") { @report = map {"\t$_ \[$v->[$_]]\n"} 0..$#$v; } else { @report = map { sprintf "\t%-18s => %s\n", "[$_]", defined $v->{$_} ? "[$v->{$_}]" : "undef" } sort keys %$v; } $CPAN::Frontend->myprint( join( "", sprintf( " %-18s\n", $k ), @report ) ); } elsif (defined $v) { $CPAN::Frontend->myprint(sprintf " %-18s [%s]\n", $k, $v); } else { $CPAN::Frontend->myprint(sprintf " %-18s undef\n", $k); } } # generally, this should be called without arguments so that the currently # loaded config file is where changes are committed. sub commit { my($self,@args) = @_; CPAN->debug("args[@args]") if $CPAN::DEBUG; if ($CPAN::RUN_DEGRADED) { $CPAN::Frontend->mydie( "'o conf commit' disabled in ". "degraded mode. Maybe try\n". " !undef \$CPAN::RUN_DEGRADED\n" ); } my ($configpm, $must_reload); # XXX does anything do this? can it be simplified? -- dagolden, 2011-01-19 if (@args) { if ($args[0] eq "args") { # we have not signed that contract } else { $configpm = $args[0]; } } # use provided name or the current config or create a new MyConfig $configpm ||= require_myconfig_or_config() || make_new_config(); # commit to MyConfig if we can't write to Config if ( ! -w $configpm && $configpm =~ m{CPAN/Config\.pm} ) { my $myconfig = _new_config_name(); $CPAN::Frontend->mywarn( "Your $configpm file\n". "is not writable. I will attempt to write your configuration to\n" . "$myconfig instead.\n\n" ); $configpm = make_new_config(); $must_reload++; # so it gets loaded as $INC{'CPAN/MyConfig.pm'} } # XXX why not just "-w $configpm"? -- dagolden, 2011-01-19 my($mode); if (-f $configpm) { $mode = (stat $configpm)[2]; if ($mode && ! -w _) { _die_cant_write_config($configpm); } } $self->_write_config_file($configpm); require_myconfig_or_config() if $must_reload; #$mode = 0444 | ( $mode & 0111 ? 0111 : 0 ); #chmod $mode, $configpm; ###why was that so? $self->defaults; $CPAN::Frontend->myprint("commit: wrote '$configpm'\n"); $CPAN::CONFIG_DIRTY = 0; 1; } sub _write_config_file { my ($self, $configpm) = @_; my $msg; $msg = <<EOF if $configpm =~ m{CPAN/Config\.pm}; # This is CPAN.pm's systemwide configuration file. This file provides # defaults for users, and the values can be changed in a per-user # configuration file. EOF $msg ||= "\n"; my($fh) = FileHandle->new; rename $configpm, "$configpm~" if -f $configpm; open $fh, ">$configpm" or $CPAN::Frontend->mydie("Couldn't open >$configpm: $!"); $fh->print(qq[$msg\$CPAN::Config = \{\n]); foreach (sort keys %$CPAN::Config) { unless (exists $keys{$_}) { # do not drop them: forward compatibility! $CPAN::Frontend->mywarn("Unknown config variable '$_'\n"); next; } $fh->print( " '$_' => ", $self->neatvalue($CPAN::Config->{$_}), ",\n" ); } $fh->print("};\n1;\n__END__\n"); close $fh; return; } # stolen from MakeMaker; not taking the original because it is buggy; # bugreport will have to say: keys of hashes remain unquoted and can # produce syntax errors sub neatvalue { my($self, $v) = @_; return "undef" unless defined $v; my($t) = ref $v; unless ($t) { $v =~ s/\\/\\\\/g; return "q[$v]"; } if ($t eq 'ARRAY') { my(@m, @neat); push @m, "["; foreach my $elem (@$v) { push @neat, "q[$elem]"; } push @m, join ", ", @neat; push @m, "]"; return join "", @m; } return "$v" unless $t eq 'HASH'; my @m; foreach my $key (sort keys %$v) { my $val = $v->{$key}; push(@m,"q[$key]=>".$self->neatvalue($val)) ; } return "{ ".join(', ',@m)." }"; } sub defaults { my($self) = @_; if ($CPAN::RUN_DEGRADED) { $CPAN::Frontend->mydie( "'o conf defaults' disabled in ". "degraded mode. Maybe try\n". " !undef \$CPAN::RUN_DEGRADED\n" ); } my $done; for my $config (qw(CPAN/MyConfig.pm CPAN/Config.pm)) { if ($INC{$config}) { CPAN->debug("INC{'$config'}[$INC{$config}]") if $CPAN::DEBUG; CPAN::Shell->_reload_this($config,{reloforce => 1}); $CPAN::Frontend->myprint("'$INC{$config}' reread\n"); last; } } $CPAN::CONFIG_DIRTY = 0; 1; } =head2 C<< CLASS->safe_quote ITEM >> Quotes an item to become safe against spaces in shell interpolation. An item is enclosed in double quotes if: - the item contains spaces in the middle - the item does not start with a quote This happens to avoid shell interpolation problems when whitespace is present in directory names. This method uses C<commands_quote> to determine the correct quote. If C<commands_quote> is a space, no quoting will take place. if it starts and ends with the same quote character: leave it as it is if it contains no whitespace: leave it as it is if it contains whitespace, then if it contains quotes: better leave it as it is else: quote it with the correct quote type for the box we're on =cut { # Instead of patching the guess, set commands_quote # to the right value my ($quotes,$use_quote) = $^O eq 'MSWin32' ? ('"', '"') : (q{"'}, "'") ; sub safe_quote { my ($self, $command) = @_; # Set up quote/default quote my $quote = $CPAN::Config->{commands_quote} || $quotes; if ($quote ne ' ' and defined($command ) and $command =~ /\s/ and $command !~ /[$quote]/) { return qq<$use_quote$command$use_quote> } return $command; } } sub init { my($self,@args) = @_; CPAN->debug("self[$self]args[".join(",",@args)."]"); $self->load(do_init => 1, @args); 1; } # Loads CPAN::MyConfig or fall-back to CPAN::Config. Will not reload a file # if already loaded. Returns the path to the file %INC or else the empty string # # Note -- if CPAN::Config were loaded and CPAN::MyConfig subsequently # created, calling this again will leave *both* in %INC sub require_myconfig_or_config () { if ( $INC{"CPAN/MyConfig.pm"} || _try_loading("CPAN::MyConfig", cpan_home())) { return $INC{"CPAN/MyConfig.pm"}; } elsif ( $INC{"CPAN/Config.pm"} || _try_loading("CPAN::Config") ) { return $INC{"CPAN/Config.pm"}; } else { return q{}; } } # Load a module, but ignore "can't locate..." errors # Optionally take a list of directories to add to @INC for the load sub _try_loading { my ($module, @dirs) = @_; (my $file = $module) =~ s{::}{/}g; $file .= ".pm"; local @INC = @INC; for my $dir ( @dirs ) { if ( -f File::Spec->catfile($dir, $file) ) { unshift @INC, $dir; last; } } eval { require $file }; my $err_myconfig = $@; if ($err_myconfig and $err_myconfig !~ m#locate \Q$file\E#) { die "Error while requiring ${module}:\n$err_myconfig"; } return $INC{$file}; } # prioritized list of possible places for finding "CPAN/MyConfig.pm" sub cpan_home_dir_candidates { my @dirs; my $old_v = $CPAN::Config->{load_module_verbosity}; $CPAN::Config->{load_module_verbosity} = q[none]; if ($CPAN::META->has_usable('File::HomeDir')) { if ($^O ne 'darwin') { push @dirs, File::HomeDir->my_data; # my_data is ~/Library/Application Support on darwin, # which causes issues in the toolchain. } push @dirs, File::HomeDir->my_home; } # Windows might not have HOME, so check it first push @dirs, $ENV{HOME} if $ENV{HOME}; # Windows might have these instead push( @dirs, File::Spec->catpath($ENV{HOMEDRIVE}, $ENV{HOMEPATH}, '') ) if $ENV{HOMEDRIVE} && $ENV{HOMEPATH}; push @dirs, $ENV{USERPROFILE} if $ENV{USERPROFILE}; $CPAN::Config->{load_module_verbosity} = $old_v; my $dotcpan = $^O eq 'VMS' ? '_cpan' : '.cpan'; @dirs = map { File::Spec->catdir($_, $dotcpan) } grep { defined } @dirs; return wantarray ? @dirs : $dirs[0]; } sub load { my($self, %args) = @_; $CPAN::Be_Silent+=0; # protect against 'used only once' $CPAN::Be_Silent++ if $args{be_silent}; # do not use; planned to be removed in 2011 my $do_init = delete $args{do_init} || 0; my $make_myconfig = delete $args{make_myconfig}; $loading = 0 unless defined $loading; my $configpm = require_myconfig_or_config; my @miss = $self->missing_config_data; CPAN->debug("do_init[$do_init]loading[$loading]miss[@miss]") if $CPAN::DEBUG; return unless $do_init || @miss; # I'm not how we'd ever wind up in a recursive loop, but I'm leaving # this here for safety's sake -- dagolden, 2011-01-19 return if $loading; local $loading = ($loading||0) + 1; # Warn if we have a config file, but things were found missing if ($configpm && @miss && !$do_init) { if ($make_myconfig || ( ! -w $configpm && $configpm =~ m{CPAN/Config\.pm})) { $configpm = make_new_config(); $CPAN::Frontend->myprint(<<END); The system CPAN configuration file has provided some default values, but you need to complete the configuration dialog for CPAN.pm. Configuration will be written to <<$configpm>> END } else { $CPAN::Frontend->myprint(<<END); Sorry, we have to rerun the configuration dialog for CPAN.pm due to some missing parameters. Configuration will be written to <<$configpm>> END } } require CPAN::FirstTime; return CPAN::FirstTime::init($configpm || make_new_config(), %args); } # Creates a new, empty config file at the preferred location # Any existing will be renamed with a ".bak" suffix if possible # If the file cannot be created, an exception is thrown sub make_new_config { my $configpm = _new_config_name(); my $configpmdir = File::Basename::dirname( $configpm ); File::Path::mkpath($configpmdir) unless -d $configpmdir; if ( -w $configpmdir ) { #_#_# following code dumped core on me with 5.003_11, a.k. if( -f $configpm ) { my $configpm_bak = "$configpm.bak"; unlink $configpm_bak if -f $configpm_bak; if( rename $configpm, $configpm_bak ) { $CPAN::Frontend->mywarn(<<END); Old configuration file $configpm moved to $configpm_bak END } } my $fh = FileHandle->new; if ($fh->open(">$configpm")) { $fh->print("1;\n"); return $configpm; } } _die_cant_write_config($configpm); } sub _die_cant_write_config { my ($configpm) = @_; $CPAN::Frontend->mydie(<<"END"); WARNING: CPAN.pm is unable to write a configuration file. You must be able to create and write to '$configpm'. Aborting configuration. END } # From candidate directories, we would like (in descending preference order): # * the one that contains a MyConfig file # * one that exists (even without MyConfig) # * the first one on the list sub cpan_home { my @dirs = cpan_home_dir_candidates(); for my $d (@dirs) { return $d if -f "$d/CPAN/MyConfig.pm"; } for my $d (@dirs) { return $d if -d $d; } return $dirs[0]; } sub _new_config_name { return File::Spec->catfile(cpan_home(), 'CPAN', 'MyConfig.pm'); } # returns mandatory but missing entries in the Config sub missing_config_data { my(@miss); for ( "auto_commit", "build_cache", "build_dir", "cache_metadata", "cpan_home", "ftp_proxy", #"gzip", "http_proxy", "index_expire", #"inhibit_startup_message", "keep_source_where", #"make", "make_arg", "make_install_arg", "makepl_arg", "mbuild_arg", "mbuild_install_arg", ($^O eq "MSWin32" ? "" : "mbuild_install_build_command"), "mbuildpl_arg", "no_proxy", #"pager", "prerequisites_policy", "scan_cache", #"tar", #"unzip", "urllist", ) { next unless exists $keys{$_}; push @miss, $_ unless defined $CPAN::Config->{$_}; } return @miss; } sub help { $CPAN::Frontend->myprint(q[ Known options: commit commit session changes to disk defaults reload default config values from disk help this help init enter a dialog to set all or a set of parameters Edit key values as in the following (the "o" is a literal letter o): o conf build_cache 15 o conf build_dir "/foo/bar" o conf urllist shift o conf urllist unshift ftp://ftp.foo.bar/ o conf inhibit_startup_message 1 ]); 1; #don't reprint CPAN::Config } sub cpl { my($word,$line,$pos) = @_; $word ||= ""; CPAN->debug("word[$word] line[$line] pos[$pos]") if $CPAN::DEBUG; my(@words) = split " ", substr($line,0,$pos+1); if ( defined($words[2]) and $words[2] =~ /list$/ and ( @words == 3 || @words == 4 && length($word) ) ) { return grep /^\Q$word\E/, qw(splice shift unshift pop push); } elsif (defined($words[2]) and $words[2] eq "init" and ( @words == 3 || @words >= 4 && length($word) )) { return sort grep /^\Q$word\E/, keys %keys; } elsif (@words >= 4) { return (); } my %seen; my(@o_conf) = sort grep { !$seen{$_}++ } keys %can, keys %$CPAN::Config, keys %keys; return grep /^\Q$word\E/, @o_conf; } sub prefs_lookup { my($self,$distro,$what) = @_; if ($prefssupport{$what}) { return $CPAN::Config->{$what} unless $distro and $distro->prefs and $distro->prefs->{cpanconfig} and defined $distro->prefs->{cpanconfig}{$what}; return $distro->prefs->{cpanconfig}{$what}; } else { $CPAN::Frontend->mywarn("Warning: $what not yet officially ". "supported for distroprefs, doing a normal lookup\n"); return $CPAN::Config->{$what}; } } { package CPAN::Config; ####::###### #hide from indexer # note: J. Nick Koston wrote me that they are using # CPAN::Config->commit although undocumented. I suggested # CPAN::Shell->o("conf","commit") even when ugly it is at least # documented # that's why I added the CPAN::Config class with autoload and # deprecated warning use strict; use vars qw($AUTOLOAD $VERSION); $VERSION = "5.5011"; # formerly CPAN::HandleConfig was known as CPAN::Config sub AUTOLOAD { ## no critic my $class = shift; # e.g. in dh-make-perl: CPAN::Config my($l) = $AUTOLOAD; $CPAN::Frontend->mywarn("Dispatching deprecated method '$l' to CPAN::HandleConfig\n"); $l =~ s/.*:://; CPAN::HandleConfig->$l(@_); } } 1; __END__ =head1 LICENSE This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut # Local Variables: # mode: cperl # cperl-indent-level: 4 # End: # vim: ts=4 sts=4 sw=4: PK ! ��-F�" �" 5.34.0/CPAN/FirstTime.pmnu �[��� # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- # vim: ts=4 sts=4 sw=4: package CPAN::FirstTime; use strict; use ExtUtils::MakeMaker (); use FileHandle (); use File::Basename (); use File::Path (); use File::Spec (); use CPAN::Mirrors (); use CPAN::Version (); use vars qw($VERSION $auto_config); $VERSION = "5.5315"; =head1 NAME CPAN::FirstTime - Utility for CPAN::Config file Initialization =head1 SYNOPSIS CPAN::FirstTime::init() =head1 DESCRIPTION The init routine asks a few questions and writes a CPAN/Config.pm or CPAN/MyConfig.pm file (depending on what it is currently using). In the following all questions and explanations regarding config variables are collected. =cut # down until the next =back the manpage must be parsed by the program # because the text is used in the init dialogues. my @podpara = split /\n\n/, <<'=back'; =over 2 =item allow_installing_module_downgrades The CPAN shell can watch the C<blib/> directories that are built up before running C<make test> to determine whether the current distribution will end up with modules being overwritten with decreasing module version numbers. It can then let the build of this distro fail when it discovers a downgrade. Do you want to allow installing distros with decreasing module versions compared to what you have installed (yes, no, ask/yes, ask/no)? =item allow_installing_outdated_dists The CPAN shell can watch the C<blib/> directories that are built up before running C<make test> to determine whether the current distribution contains modules that are indexed with a distro with a higher distro-version number than the current one. It can then let the build of this distro fail when it would not represent the most up-to-date version of the distro. Note: choosing anything but 'yes' for this option will need CPAN::DistnameInfo being installed for taking effect. Do you want to allow installing distros that are not indexed as the highest distro-version for all contained modules (yes, no, ask/yes, ask/no)? =item auto_commit Normally CPAN.pm keeps config variables in memory and changes need to be saved in a separate 'o conf commit' command to make them permanent between sessions. If you set the 'auto_commit' option to true, changes to a config variable are always automatically committed to disk. Always commit changes to config variables to disk? =item build_cache CPAN.pm can limit the size of the disk area for keeping the build directories with all the intermediate files. Cache size for build directory (in MB)? =item build_dir Directory where the build process takes place? =item build_dir_reuse Until version 1.88 CPAN.pm never trusted the contents of the build_dir directory between sessions. Since 1.88_58 CPAN.pm has a YAML-based mechanism that makes it possible to share the contents of the build_dir/ directory between different sessions with the same version of perl. People who prefer to test things several days before installing will like this feature because it saves a lot of time. If you say yes to the following question, CPAN will try to store enough information about the build process so that it can pick up in future sessions at the same state of affairs as it left a previous session. Store and re-use state information about distributions between CPAN.pm sessions? =item build_requires_install_policy When a module declares another one as a 'build_requires' prerequisite this means that the other module is only needed for building or testing the module but need not be installed permanently. In this case you may wish to install that other module nonetheless or just keep it in the 'build_dir' directory to have it available only temporarily. Installing saves time on future installations but makes the perl installation bigger. You can choose if you want to always install (yes), never install (no) or be always asked. In the latter case you can set the default answer for the question to yes (ask/yes) or no (ask/no). Policy on installing 'build_requires' modules (yes, no, ask/yes, ask/no)? =item cache_metadata To considerably speed up the initial CPAN shell startup, it is possible to use Storable to create a cache of metadata. If Storable is not available, the normal index mechanism will be used. Note: this mechanism is not used when use_sqlite is on and SQLLite is running. Cache metadata (yes/no)? =item check_sigs CPAN packages can be digitally signed by authors and thus verified with the security provided by strong cryptography. The exact mechanism is defined in the Module::Signature module. While this is generally considered a good thing, it is not always convenient to the end user to install modules that are signed incorrectly or where the key of the author is not available or where some prerequisite for Module::Signature has a bug and so on. With the check_sigs parameter you can turn signature checking on and off. The default is off for now because the whole tool chain for the functionality is not yet considered mature by some. The author of CPAN.pm would recommend setting it to true most of the time and turning it off only if it turns out to be annoying. Note that if you do not have Module::Signature installed, no signature checks will be performed at all. Always try to check and verify signatures if a SIGNATURE file is in the package and Module::Signature is installed (yes/no)? =item cleanup_after_install Users who install modules and do not intend to look back, can free occupied disk space quickly by letting CPAN.pm cleanup each build directory immediately after a successful install. Remove build directory after a successful install? (yes/no)? =item colorize_output When you have Term::ANSIColor installed, you can turn on colorized output to have some visual differences between normal CPAN.pm output, warnings, debugging output, and the output of the modules being installed. Set your favorite colors after some experimenting with the Term::ANSIColor module. Please note that on Windows platforms colorized output also requires the Win32::Console::ANSI module. Do you want to turn on colored output? =item colorize_print Color for normal output? =item colorize_warn Color for warnings? =item colorize_debug Color for debugging messages? =item commandnumber_in_prompt The prompt of the cpan shell can contain the current command number for easier tracking of the session or be a plain string. Do you want the command number in the prompt (yes/no)? =item connect_to_internet_ok If you have never defined your own C<urllist> in your configuration then C<CPAN.pm> will be hesitant to use the built in default sites for downloading. It will ask you once per session if a connection to the internet is OK and only if you say yes, it will try to connect. But to avoid this question, you can choose your favorite download sites once and get away with it. Or, if you have no favorite download sites answer yes to the following question. If no urllist has been chosen yet, would you prefer CPAN.pm to connect to the built-in default sites without asking? (yes/no)? =item ftp_passive Shall we always set the FTP_PASSIVE environment variable when dealing with ftp download (yes/no)? =item ftpstats_period Statistics about downloads are truncated by size and period simultaneously. How many days shall we keep statistics about downloads? =item ftpstats_size Statistics about downloads are truncated by size and period simultaneously. Setting this to zero or negative disables download statistics. How many items shall we keep in the statistics about downloads? =item getcwd CPAN.pm changes the current working directory often and needs to determine its own current working directory. Per default it uses Cwd::cwd but if this doesn't work on your system for some reason, alternatives can be configured according to the following table: cwd Cwd::cwd getcwd Cwd::getcwd fastcwd Cwd::fastcwd getdcwd Cwd::getdcwd backtickcwd external command cwd Preferred method for determining the current working directory? =item halt_on_failure Normally, CPAN.pm continues processing the full list of targets and dependencies, even if one of them fails. However, you can specify that CPAN should halt after the first failure. (Note that optional recommended or suggested modules that fail will not cause a halt.) Do you want to halt on failure (yes/no)? =item histfile If you have one of the readline packages (Term::ReadLine::Perl, Term::ReadLine::Gnu, possibly others) installed, the interactive CPAN shell will have history support. The next two questions deal with the filename of the history file and with its size. If you do not want to set this variable, please hit SPACE ENTER to the following question. File to save your history? =item histsize Number of lines to save? =item inactivity_timeout Sometimes you may wish to leave the processes run by CPAN alone without caring about them. Because the Makefile.PL or the Build.PL sometimes contains question you're expected to answer, you can set a timer that will kill a 'perl Makefile.PL' process after the specified time in seconds. If you set this value to 0, these processes will wait forever. This is the default and recommended setting. Timeout for inactivity during {Makefile,Build}.PL? =item index_expire The CPAN indexes are usually rebuilt once or twice per hour, but the typical CPAN mirror mirrors only once or twice per day. Depending on the quality of your mirror and your desire to be on the bleeding edge, you may want to set the following value to more or less than one day (which is the default). It determines after how many days CPAN.pm downloads new indexes. Let the index expire after how many days? =item inhibit_startup_message When the CPAN shell is started it normally displays a greeting message that contains the running version and the status of readline support. Do you want to turn this message off? =item keep_source_where Unless you are accessing the CPAN on your filesystem via a file: URL, CPAN.pm needs to keep the source files it downloads somewhere. Please supply a directory where the downloaded files are to be kept. Download target directory? =item load_module_verbosity When CPAN.pm loads a module it needs for some optional feature, it usually reports about module name and version. Choose 'v' to get this message, 'none' to suppress it. Verbosity level for loading modules (none or v)? =item makepl_arg Every Makefile.PL is run by perl in a separate process. Likewise we run 'make' and 'make install' in separate processes. If you have any parameters (e.g. PREFIX, UNINST or the like) you want to pass to the calls, please specify them here. If you don't understand this question, just press ENTER. Typical frequently used settings: PREFIX=~/perl # non-root users (please see manual for more hints) Parameters for the 'perl Makefile.PL' command? =item make_arg Parameters for the 'make' command? Typical frequently used setting: -j3 # dual processor system (on GNU make) Your choice: =item make_install_arg Parameters for the 'make install' command? Typical frequently used setting: UNINST=1 # to always uninstall potentially conflicting files # (but do NOT use with local::lib or INSTALL_BASE) Your choice: =item make_install_make_command Do you want to use a different make command for 'make install'? Cautious people will probably prefer: su root -c make or sudo make or /path1/to/sudo -u admin_account /path2/to/make or some such. Your choice: =item mbuildpl_arg A Build.PL is run by perl in a separate process. Likewise we run './Build' and './Build install' in separate processes. If you have any parameters you want to pass to the calls, please specify them here. Typical frequently used settings: --install_base /home/xxx # different installation directory Parameters for the 'perl Build.PL' command? =item mbuild_arg Parameters for the './Build' command? Setting might be: --extra_linker_flags -L/usr/foo/lib # non-standard library location Your choice: =item mbuild_install_arg Parameters for the './Build install' command? Typical frequently used setting: --uninst 1 # uninstall conflicting files # (but do NOT use with local::lib or INSTALL_BASE) Your choice: =item mbuild_install_build_command Do you want to use a different command for './Build install'? Sudo users will probably prefer: su root -c ./Build or sudo ./Build or /path1/to/sudo -u admin_account ./Build or some such. Your choice: =item pager What is your favorite pager program? =item prefer_installer When you have Module::Build installed and a module comes with both a Makefile.PL and a Build.PL, which shall have precedence? The main two standard installer modules are the old and well established ExtUtils::MakeMaker (for short: EUMM) which uses the Makefile.PL. And the next generation installer Module::Build (MB) which works with the Build.PL (and often comes with a Makefile.PL too). If a module comes only with one of the two we will use that one but if both are supplied then a decision must be made between EUMM and MB. See also http://rt.cpan.org/Ticket/Display.html?id=29235 for a discussion about the right default. Or, as a third option you can choose RAND which will make a random decision (something regular CPAN testers will enjoy). In case you can choose between running a Makefile.PL or a Build.PL, which installer would you prefer (EUMM or MB or RAND)? =item prefs_dir CPAN.pm can store customized build environments based on regular expressions for distribution names. These are YAML files where the default options for CPAN.pm and the environment can be overridden and dialog sequences can be stored that can later be executed by an Expect.pm object. The CPAN.pm distribution comes with some prefab YAML files that cover sample distributions that can be used as blueprints to store your own prefs. Please check out the distroprefs/ directory of the CPAN.pm distribution to get a quick start into the prefs system. Directory where to store default options/environment/dialogs for building modules that need some customization? =item prerequisites_policy The CPAN module can detect when a module which you are trying to build depends on prerequisites. If this happens, it can build the prerequisites for you automatically ('follow'), ask you for confirmation ('ask'), or just ignore them ('ignore'). Choosing 'follow' also sets PERL_AUTOINSTALL and PERL_EXTUTILS_AUTOINSTALL for "--defaultdeps" if not already set. Please set your policy to one of the three values. Policy on building prerequisites (follow, ask or ignore)? =item randomize_urllist CPAN.pm can introduce some randomness when using hosts for download that are configured in the urllist parameter. Enter a numeric value between 0 and 1 to indicate how often you want to let CPAN.pm try a random host from the urllist. A value of one specifies to always use a random host as the first try. A value of zero means no randomness at all. Anything in between specifies how often, on average, a random host should be tried first. Randomize parameter =item recommends_policy (Experimental feature!) Some CPAN modules recommend additional, optional dependencies. These should generally be installed except in resource constrained environments. When this policy is true, recommended modules will be included with required modules. Include recommended modules? =item scan_cache By default, each time the CPAN module is started, cache scanning is performed to keep the cache size in sync ('atstart'). Alternatively, scanning and cleanup can happen when CPAN exits ('atexit'). To prevent any cache cleanup, answer 'never'. Perform cache scanning ('atstart', 'atexit' or 'never')? =item shell What is your favorite shell? =item show_unparsable_versions During the 'r' command CPAN.pm finds modules without version number. When the command finishes, it prints a report about this. If you want this report to be very verbose, say yes to the following variable. Show all individual modules that have no $VERSION? =item show_upload_date The 'd' and the 'm' command normally only show you information they have in their in-memory database and thus will never connect to the internet. If you set the 'show_upload_date' variable to true, 'm' and 'd' will additionally show you the upload date of the module or distribution. Per default this feature is off because it may require a net connection to get at the upload date. Always try to show upload date with 'd' and 'm' command (yes/no)? =item show_zero_versions During the 'r' command CPAN.pm finds modules with a version number of zero. When the command finishes, it prints a report about this. If you want this report to be very verbose, say yes to the following variable. Show all individual modules that have a $VERSION of zero? =item suggests_policy (Experimental feature!) Some CPAN modules suggest additional, optional dependencies. These 'suggest' dependencies provide enhanced operation. When this policy is true, suggested modules will be included with required modules. Include suggested modules? =item tar_verbosity When CPAN.pm uses the tar command, which switch for the verbosity shall be used? Choose 'none' for quiet operation, 'v' for file name listing, 'vv' for full listing. Tar command verbosity level (none or v or vv)? =item term_is_latin The next option deals with the charset (a.k.a. character set) your terminal supports. In general, CPAN is English speaking territory, so the charset does not matter much but some CPAN have names that are outside the ASCII range. If your terminal supports UTF-8, you should say no to the next question. If it expects ISO-8859-1 (also known as LATIN1) then you should say yes. If it supports neither, your answer does not matter because you will not be able to read the names of some authors anyway. If you answer no, names will be output in UTF-8. Your terminal expects ISO-8859-1 (yes/no)? =item term_ornaments When using Term::ReadLine, you can turn ornaments on so that your input stands out against the output from CPAN.pm. Do you want to turn ornaments on? =item test_report The goal of the CPAN Testers project (http://testers.cpan.org/) is to test as many CPAN packages as possible on as many platforms as possible. This provides valuable feedback to module authors and potential users to identify bugs or platform compatibility issues and improves the overall quality and value of CPAN. One way you can contribute is to send test results for each module that you install. If you install the CPAN::Reporter module, you have the option to automatically generate and deliver test reports to CPAN Testers whenever you run tests on a CPAN package. See the CPAN::Reporter documentation for additional details and configuration settings. If your firewall blocks outgoing traffic, you may need to configure CPAN::Reporter before sending reports. Generate test reports if CPAN::Reporter is installed (yes/no)? =item perl5lib_verbosity When CPAN.pm extends @INC via PERL5LIB, it prints a list of directories added (or a summary of how many directories are added). Choose 'v' to get this message, 'none' to suppress it. Verbosity level for PERL5LIB changes (none or v)? =item prefer_external_tar Per default all untar operations are done with the perl module Archive::Tar; by setting this variable to true the external tar command is used if available; on Unix this is usually preferred because they have a reliable and fast gnutar implementation. Use the external tar program instead of Archive::Tar? =item trust_test_report_history When a distribution has already been tested by CPAN::Reporter on this machine, CPAN can skip the test phase and just rely on the test report history instead. Note that this will not apply to distributions that failed tests because of missing dependencies. Also, tests can be run regardless of the history using "force". Do you want to rely on the test report history (yes/no)? =item urllist_ping_external When automatic selection of the nearest cpan mirrors is performed, turn on the use of the external ping via Net::Ping::External. This is recommended in the case the local network has a transparent proxy. Do you want to use the external ping command when autoselecting mirrors? =item urllist_ping_verbose When automatic selection of the nearest cpan mirrors is performed, this option can be used to turn on verbosity during the selection process. Do you want to see verbosity turned on when autoselecting mirrors? =item use_prompt_default When this is true, CPAN will set PERL_MM_USE_DEFAULT to a true value. This causes ExtUtils::MakeMaker (and compatible) prompts to use default values instead of stopping to prompt you to answer questions. It also sets NONINTERACTIVE_TESTING to a true value to signal more generally that distributions should not try to interact with you. Do you want to use prompt defaults (yes/no)? =item use_sqlite CPAN::SQLite is a layer between the index files that are downloaded from the CPAN and CPAN.pm that speeds up metadata queries and reduces memory consumption of CPAN.pm considerably. Use CPAN::SQLite if available? (yes/no)? =item version_timeout This timeout prevents CPAN from hanging when trying to parse a pathologically coded $VERSION from a module. The default is 15 seconds. If you set this value to 0, no timeout will occur, but this is not recommended. Timeout for parsing module versions? =item yaml_load_code Both YAML.pm and YAML::Syck are capable of deserialising code. As this requires a string eval, which might be a security risk, you can use this option to enable or disable the deserialisation of code via CPAN::DeferredCode. (Note: This does not work under perl 5.6) Do you want to enable code deserialisation (yes/no)? =item yaml_module At the time of this writing (2009-03) there are three YAML implementations working: YAML, YAML::Syck, and YAML::XS. The latter two are faster but need a C compiler installed on your system. There may be more alternative YAML conforming modules. When I tried two other players, YAML::Tiny and YAML::Perl, they seemed not powerful enough to work with CPAN.pm. This may have changed in the meantime. Which YAML implementation would you prefer? =back =head1 LICENSE This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut use vars qw( %prompts ); { my @prompts = ( auto_config => qq{ CPAN.pm requires configuration, but most of it can be done automatically. If you answer 'no' below, you will enter an interactive dialog for each configuration option instead. Would you like to configure as much as possible automatically?}, auto_pick => qq{ Would you like me to automatically choose some CPAN mirror sites for you? (This means connecting to the Internet)}, config_intro => qq{ The following questions are intended to help you with the configuration. The CPAN module needs a directory of its own to cache important index files and maybe keep a temporary mirror of CPAN files. This may be a site-wide or a personal directory. }, # cpan_home => qq{ }, cpan_home_where => qq{ First of all, I'd like to create this directory. Where? }, external_progs => qq{ The CPAN module will need a few external programs to work properly. Please correct me, if I guess the wrong path for a program. Don't panic if you do not have some of them, just press ENTER for those. To disable the use of a program, you can type a space followed by ENTER. }, proxy_intro => qq{ If you're accessing the net via proxies, you can specify them in the CPAN configuration or via environment variables. The variable in the \$CPAN::Config takes precedence. }, proxy_user => qq{ If your proxy is an authenticating proxy, you can store your username permanently. If you do not want that, just press ENTER. You will then be asked for your username in every future session. }, proxy_pass => qq{ Your password for the authenticating proxy can also be stored permanently on disk. If this violates your security policy, just press ENTER. You will then be asked for the password in every future session. }, urls_intro => qq{ Now you need to choose your CPAN mirror sites. You can let me pick mirrors for you, you can select them from a list or you can enter them by hand. }, urls_picker_intro => qq{First, pick a nearby continent and country by typing in the number(s) in front of the item(s) you want to select. You can pick several of each, separated by spaces. Then, you will be presented with a list of URLs of CPAN mirrors in the countries you selected, along with previously selected URLs. Select some of those URLs, or just keep the old list. Finally, you will be prompted for any extra URLs -- file:, ftp:, or http: -- that host a CPAN mirror. You should select more than one (just in case the first isn't available). }, password_warn => qq{ Warning: Term::ReadKey seems not to be available, your password will be echoed to the terminal! }, install_help => qq{ Warning: You do not have write permission for Perl library directories. To install modules, you need to configure a local Perl library directory or escalate your privileges. CPAN can help you by bootstrapping the local::lib module or by configuring itself to use 'sudo' (if available). You may also resolve this problem manually if you need to customize your setup. What approach do you want? (Choose 'local::lib', 'sudo' or 'manual') }, local_lib_installed => qq{ local::lib is installed. You must now add the following environment variables to your shell configuration files (or registry, if you are on Windows) and then restart your command line shell and CPAN before installing modules: }, ); die "Coding error in \@prompts declaration. Odd number of elements, above" if (@prompts % 2); %prompts = @prompts; if (scalar(keys %prompts) != scalar(@prompts)/2) { my %already; for my $item (0..$#prompts) { next if $item % 2; die "$prompts[$item] is duplicated\n" if $already{$prompts[$item]}++; } } shift @podpara; while (@podpara) { warn "Alert: cannot parse my own manpage for init dialog" unless $podpara[0] =~ s/^=item\s+//; my $name = shift @podpara; my @para; while (@podpara && $podpara[0] !~ /^=item/) { push @para, shift @podpara; } $prompts{$name} = pop @para; if (@para) { $prompts{$name . "_intro"} = join "", map { "$_\n\n" } @para; } } } sub init { my($configpm, %args) = @_; use Config; # extra args after 'o conf init' my $matcher = $args{args} && @{$args{args}} ? $args{args}[0] : ''; if ($matcher =~ /^\/(.*)\/$/) { # case /regex/ => take the first, ignore the rest $matcher = $1; shift @{$args{args}}; if (@{$args{args}}) { local $" = " "; $CPAN::Frontend->mywarn("Ignoring excessive arguments '@{$args{args}}'"); $CPAN::Frontend->mysleep(2); } } elsif (0 == length $matcher) { } elsif (0 && $matcher eq "~") { # extremely buggy, but a nice idea my @unconfigured = sort grep { not exists $CPAN::Config->{$_} or not defined $CPAN::Config->{$_} or not length $CPAN::Config->{$_} } keys %$CPAN::Config; $matcher = "\\b(".join("|", @unconfigured).")\\b"; $CPAN::Frontend->mywarn("matcher[$matcher]"); } else { # case WORD... => all arguments must be valid for my $arg (@{$args{args}}) { unless (exists $CPAN::HandleConfig::keys{$arg}) { $CPAN::Frontend->mywarn("'$arg' is not a valid configuration variable\n"); return; } } $matcher = "\\b(".join("|",@{$args{args}}).")\\b"; } CPAN->debug("matcher[$matcher]") if $CPAN::DEBUG; unless ($CPAN::VERSION) { require CPAN::Nox; } require CPAN::HandleConfig; CPAN::HandleConfig::require_myconfig_or_config(); $CPAN::Config ||= {}; local($/) = "\n"; local($\) = ""; local($|) = 1; my($ans,$default); # why so half global? # #= Files, directories # local *_real_prompt; if ( $args{autoconfig} ) { $auto_config = 1; } elsif ($matcher) { $auto_config = 0; } else { my $_conf = prompt($prompts{auto_config}, "yes"); $auto_config = ($_conf and $_conf =~ /^y/i) ? 1 : 0; } CPAN->debug("auto_config[$auto_config]") if $CPAN::DEBUG; if ( $auto_config ) { local $^W = 0; # prototype should match that of &MakeMaker::prompt my $current_second = time; my $current_second_count = 0; my $i_am_mad = 0; # silent prompting -- just quietly use default *_real_prompt = sub { return $_[1] }; } # # bootstrap local::lib or sudo # unless ( $matcher || _can_write_to_libdirs() || _using_installbase() || _using_sudo() ) { local $auto_config = 0; # We *must* ask, even under autoconfig local *_real_prompt; # We *must* show prompt my_prompt_loop(install_help => 'local::lib', $matcher, 'local::lib|sudo|manual'); } $CPAN::Config->{install_help} ||= ''; # Temporary to suppress warnings if (!$matcher or q{ build_dir build_dir_reuse cpan_home keep_source_where prefs_dir } =~ /$matcher/) { $CPAN::Frontend->myprint($prompts{config_intro}) unless $auto_config; init_cpan_home($matcher); my_dflt_prompt("keep_source_where", File::Spec->catdir($CPAN::Config->{cpan_home},"sources"), $matcher, ); my_dflt_prompt("build_dir", File::Spec->catdir($CPAN::Config->{cpan_home},"build"), $matcher ); my_yn_prompt(build_dir_reuse => 0, $matcher); my_dflt_prompt("prefs_dir", File::Spec->catdir($CPAN::Config->{cpan_home},"prefs"), $matcher ); } # #= Config: auto_commit # my_yn_prompt(auto_commit => 0, $matcher); # #= Cache size, Index expire # my_dflt_prompt(build_cache => 100, $matcher); my_dflt_prompt(index_expire => 1, $matcher); my_prompt_loop(scan_cache => 'atstart', $matcher, 'atstart|atexit|never'); my_yn_prompt(cleanup_after_install => 0, $matcher); # #= cache_metadata # my_yn_prompt(cache_metadata => 1, $matcher); my_yn_prompt(use_sqlite => 0, $matcher); # #= Do we follow PREREQ_PM? # my_prompt_loop(prerequisites_policy => 'follow', $matcher, 'follow|ask|ignore'); my_prompt_loop(build_requires_install_policy => 'yes', $matcher, 'yes|no|ask/yes|ask/no'); my_yn_prompt(recommends_policy => 1, $matcher); my_yn_prompt(suggests_policy => 0, $matcher); # #= Module::Signature # my_yn_prompt(check_sigs => 0, $matcher); # #= CPAN::Reporter # if (!$matcher or 'test_report' =~ /$matcher/) { my_yn_prompt(test_report => 0, $matcher); if ( $matcher && $CPAN::Config->{test_report} && $CPAN::META->has_inst("CPAN::Reporter") && CPAN::Reporter->can('configure') ) { my $_conf = prompt("Would you like me configure CPAN::Reporter now?", "yes"); if ($_conf =~ /^y/i) { $CPAN::Frontend->myprint("\nProceeding to configure CPAN::Reporter.\n"); CPAN::Reporter::configure(); $CPAN::Frontend->myprint("\nReturning to CPAN configuration.\n"); } } } my_yn_prompt(trust_test_report_history => 0, $matcher); # #= YAML vs. YAML::Syck # if (!$matcher or "yaml_module" =~ /$matcher/) { my_dflt_prompt(yaml_module => "YAML", $matcher); my $old_v = $CPAN::Config->{load_module_verbosity}; $CPAN::Config->{load_module_verbosity} = q[none]; if (!$auto_config && !$CPAN::META->has_inst($CPAN::Config->{yaml_module})) { $CPAN::Frontend->mywarn ("Warning (maybe harmless): '$CPAN::Config->{yaml_module}' not installed.\n"); $CPAN::Frontend->mysleep(3); } $CPAN::Config->{load_module_verbosity} = $old_v; } # #= YAML code deserialisation # my_yn_prompt(yaml_load_code => 0, $matcher); # #= External programs # my(@path) = split /$Config{'path_sep'}/, $ENV{'PATH'}; $CPAN::Frontend->myprint($prompts{external_progs}) if !$matcher && !$auto_config; _init_external_progs($matcher, { path => \@path, progs => [ qw/make bzip2 gzip tar unzip gpg patch applypatch/ ], shortcut => 0 }); _init_external_progs($matcher, { path => \@path, progs => [ qw/wget curl lynx ncftpget ncftp ftp/ ], shortcut => 1 }); { my $path = $CPAN::Config->{'pager'} || $ENV{PAGER} || find_exe("less",\@path) || find_exe("more",\@path) || ($^O eq 'MacOS' ? $ENV{EDITOR} : 0 ) || "more"; my_dflt_prompt(pager => $path, $matcher); } { my $path = $CPAN::Config->{'shell'}; if ($path && File::Spec->file_name_is_absolute($path)) { $CPAN::Frontend->mywarn("Warning: configured $path does not exist\n") unless -e $path; $path = ""; } $path ||= $ENV{SHELL}; $path ||= $ENV{COMSPEC} if $^O eq "MSWin32"; if ($^O eq 'MacOS') { $CPAN::Config->{'shell'} = 'not_here'; } else { $path ||= 'sh', $path =~ s,\\,/,g if $^O eq 'os2'; # Cosmetic only my_dflt_prompt(shell => $path, $matcher); } } { my $tar = $CPAN::Config->{tar}; my $prefer_external_tar = $CPAN::Config->{prefer_external_tar}; # XXX not yet supported unless (defined $prefer_external_tar) { if ($^O =~ /(MSWin32|solaris)/) { # both have a record of broken tars $prefer_external_tar = 0; } elsif ($tar) { $prefer_external_tar = 1; } else { $prefer_external_tar = 0; } } my_yn_prompt(prefer_external_tar => $prefer_external_tar, $matcher); } # # verbosity # my_prompt_loop(tar_verbosity => 'none', $matcher, 'none|v|vv'); my_prompt_loop(load_module_verbosity => 'none', $matcher, 'none|v'); my_prompt_loop(perl5lib_verbosity => 'none', $matcher, 'none|v'); my_yn_prompt(inhibit_startup_message => 0, $matcher); # #= Installer, arguments to make etc. # my_prompt_loop(prefer_installer => 'MB', $matcher, 'MB|EUMM|RAND'); if (!$matcher or 'makepl_arg make_arg' =~ /$matcher/) { my_dflt_prompt(makepl_arg => "INSTALLDIRS=site", $matcher); my_dflt_prompt(make_arg => "", $matcher); if ( $CPAN::Config->{makepl_arg} =~ /LIBS=|INC=/ ) { $CPAN::Frontend->mywarn( "Warning: Using LIBS or INC in makepl_arg will likely break distributions\n" . "that specify their own LIBS or INC options in Makefile.PL.\n" ); } } require CPAN::HandleConfig; if (exists $CPAN::HandleConfig::keys{make_install_make_command}) { # as long as Windows needs $self->_build_command, we cannot # support sudo on windows :-) my $default = $CPAN::Config->{make} || ""; if ( $default && $CPAN::Config->{install_help} eq 'sudo' ) { if ( find_exe('sudo') ) { $default = "sudo $default"; delete $CPAN::Config->{make_install_make_command} unless $CPAN::Config->{make_install_make_command} =~ /sudo/; } else { $CPAN::Frontend->mywarnonce("Could not find 'sudo' in PATH\n"); } } my_dflt_prompt(make_install_make_command => $default, $matcher); } my_dflt_prompt(make_install_arg => $CPAN::Config->{make_arg} || "", $matcher); my_dflt_prompt(mbuildpl_arg => "--installdirs site", $matcher); my_dflt_prompt(mbuild_arg => "", $matcher); if (exists $CPAN::HandleConfig::keys{mbuild_install_build_command} and $^O ne "MSWin32") { # as long as Windows needs $self->_build_command, we cannot # support sudo on windows :-) my $default = $^O eq 'VMS' ? '@Build.com' : "./Build"; if ( $CPAN::Config->{install_help} eq 'sudo' ) { if ( find_exe('sudo') ) { $default = "sudo $default"; delete $CPAN::Config->{mbuild_install_build_command} unless $CPAN::Config->{mbuild_install_build_command} =~ /sudo/; } else { $CPAN::Frontend->mywarnonce("Could not find 'sudo' in PATH\n"); } } my_dflt_prompt(mbuild_install_build_command => $default, $matcher); } my_dflt_prompt(mbuild_install_arg => "", $matcher); for my $o (qw( allow_installing_outdated_dists allow_installing_module_downgrades )) { my_prompt_loop($o => 'ask/no', $matcher, 'yes|no|ask/yes|ask/no'); } # #== use_prompt_default # my_yn_prompt(use_prompt_default => 0, $matcher); # #= Alarm period # my_dflt_prompt(inactivity_timeout => 0, $matcher); my_dflt_prompt(version_timeout => 15, $matcher); # #== halt_on_failure # my_yn_prompt(halt_on_failure => 0, $matcher); # #= Proxies # my @proxy_vars = qw/ftp_proxy http_proxy no_proxy/; my @proxy_user_vars = qw/proxy_user proxy_pass/; if (!$matcher or "@proxy_vars @proxy_user_vars" =~ /$matcher/) { $CPAN::Frontend->myprint($prompts{proxy_intro}) unless $auto_config; for (@proxy_vars) { $prompts{$_} = "Your $_?"; my_dflt_prompt($_ => $ENV{$_}||"", $matcher); } if ($CPAN::Config->{ftp_proxy} || $CPAN::Config->{http_proxy}) { $default = $CPAN::Config->{proxy_user} || $CPAN::LWP::UserAgent::USER || ""; $CPAN::Frontend->myprint($prompts{proxy_user}) unless $auto_config; if ($CPAN::Config->{proxy_user} = prompt("Your proxy user id?",$default)) { $CPAN::Frontend->myprint($prompts{proxy_pass}) unless $auto_config; if ($CPAN::META->has_inst("Term::ReadKey")) { Term::ReadKey::ReadMode("noecho"); } else { $CPAN::Frontend->myprint($prompts{password_warn}) unless $auto_config; } $CPAN::Config->{proxy_pass} = prompt_no_strip("Your proxy password?"); if ($CPAN::META->has_inst("Term::ReadKey")) { Term::ReadKey::ReadMode("restore"); } $CPAN::Frontend->myprint("\n\n") unless $auto_config; } } } # #= how plugins work # # XXX MISSING: my_array_prompt to be used with plugins. We did something like this near # git log -p fd68f8f5e33f4cecea4fdb7abc5ee19c12f138f0..test-notest-test-dependency # Need to do similar steps for plugin_list. As long as we do not support it here, people # must use the cpan shell prompt to write something like # o conf plugin_list push CPAN::Plugin::Specfile=dir,/tmp/foo-20141013,... # o conf commit # #= how FTP works # my_yn_prompt(ftp_passive => 1, $matcher); # #= how cwd works # my_prompt_loop(getcwd => 'cwd', $matcher, 'cwd|getcwd|fastcwd|getdcwd|backtickcwd'); # #= the CPAN shell itself (prompt, color) # my_yn_prompt(commandnumber_in_prompt => 1, $matcher); my_yn_prompt(term_ornaments => 1, $matcher); if ("colorize_output colorize_print colorize_warn colorize_debug" =~ $matcher) { my_yn_prompt(colorize_output => 0, $matcher); if ($CPAN::Config->{colorize_output}) { if ($CPAN::META->has_inst("Term::ANSIColor")) { my $T="gYw"; $CPAN::Frontend->myprint( " on_ on_y ". " on_ma on_\n") unless $auto_config; $CPAN::Frontend->myprint( " on_black on_red green ellow ". "on_blue genta on_cyan white\n") unless $auto_config; for my $FG ("", "bold", map {$_,"bold $_"} "black","red","green", "yellow","blue", "magenta", "cyan","white") { $CPAN::Frontend->myprint(sprintf( "%12s ", $FG)) unless $auto_config; for my $BG ("",map {"on_$_"} qw(black red green yellow blue magenta cyan white)) { $CPAN::Frontend->myprint( $FG||$BG ? Term::ANSIColor::colored(" $T ","$FG $BG") : " $T ") unless $auto_config; } $CPAN::Frontend->myprint( "\n" ) unless $auto_config; } $CPAN::Frontend->myprint( "\n" ) unless $auto_config; } for my $tuple ( ["colorize_print", "bold blue on_white"], ["colorize_warn", "bold red on_white"], ["colorize_debug", "black on_cyan"], ) { my_dflt_prompt($tuple->[0] => $tuple->[1], $matcher); if ($CPAN::META->has_inst("Term::ANSIColor")) { eval { Term::ANSIColor::color($CPAN::Config->{$tuple->[0]})}; if ($@) { $CPAN::Config->{$tuple->[0]} = $tuple->[1]; $CPAN::Frontend->mywarn($@."setting to default '$tuple->[1]'\n"); } } } } } # #== term_is_latin # my_yn_prompt(term_is_latin => 1, $matcher); # #== save history in file 'histfile' # if (!$matcher or 'histfile histsize' =~ /$matcher/) { $CPAN::Frontend->myprint($prompts{histfile_intro}) unless $auto_config; defined($default = $CPAN::Config->{histfile}) or $default = File::Spec->catfile($CPAN::Config->{cpan_home},"histfile"); my_dflt_prompt(histfile => $default, $matcher); if ($CPAN::Config->{histfile}) { defined($default = $CPAN::Config->{histsize}) or $default = 100; my_dflt_prompt(histsize => $default, $matcher); } } # #== do an ls on the m or the d command # my_yn_prompt(show_upload_date => 0, $matcher); # #== verbosity at the end of the r command # if (!$matcher or 'show_unparsable_versions' =~ /$matcher/ or 'show_zero_versions' =~ /$matcher/ ) { my_yn_prompt(show_unparsable_versions => 0, $matcher); my_yn_prompt(show_zero_versions => 0, $matcher); } # #= MIRRORED.BY and conf_sites() # # Let's assume they want to use the internet and make them turn it # off if they really don't. my_yn_prompt("connect_to_internet_ok" => 1, $matcher); # Allow matching but don't show during manual config if ($matcher) { if ("urllist_ping_external" =~ $matcher) { my_yn_prompt(urllist_ping_external => 0, $matcher); } if ("urllist_ping_verbose" =~ $matcher) { my_yn_prompt(urllist_ping_verbose => 0, $matcher); } if ("randomize_urllist" =~ $matcher) { my_dflt_prompt(randomize_urllist => 0, $matcher); } if ("ftpstats_size" =~ $matcher) { my_dflt_prompt(ftpstats_size => 99, $matcher); } if ("ftpstats_period" =~ $matcher) { my_dflt_prompt(ftpstats_period => 14, $matcher); } } $CPAN::Config->{urllist} ||= []; if ($auto_config) { if(@{ $CPAN::Config->{urllist} }) { $CPAN::Frontend->myprint( "Your 'urllist' is already configured. Type 'o conf init urllist' to change it.\n" ); } else { $CPAN::Config->{urllist} = [ 'http://www.cpan.org/' ]; } } elsif (!$matcher || "urllist" =~ $matcher) { _do_pick_mirrors(); } if ($auto_config) { $CPAN::Frontend->myprint( "\nAutoconfiguration complete.\n" ); $auto_config = 0; # reset } # bootstrap local::lib now if requested if ( $CPAN::Config->{install_help} eq 'local::lib' ) { if ( ! @{ $CPAN::Config->{urllist} } ) { $CPAN::Frontend->myprint( "Skipping local::lib bootstrap because 'urllist' is not configured.\n" ); } else { $CPAN::Frontend->myprint("\nAttempting to bootstrap local::lib...\n"); $CPAN::Frontend->myprint("\nWriting $configpm for bootstrap...\n"); delete $CPAN::Config->{install_help}; # temporary only CPAN::HandleConfig->commit; my($dist, $locallib); $locallib = CPAN::Shell->expand('Module', 'local::lib'); if ( $locallib and $dist = $locallib->distribution ) { # this is a hack to force bootstrapping $dist->{prefs}{pl}{commandline} = "$^X Makefile.PL --bootstrap"; # Set @INC for this process so we find things as they bootstrap require lib; lib->import(_local_lib_inc_path()); eval { $dist->install }; } if ( ! $dist || (my $err = $@) ) { $err ||= 'Could not locate local::lib in the CPAN index'; $CPAN::Frontend->mywarn("Error bootstrapping local::lib: $@\n"); $CPAN::Frontend->myprint("From the CPAN Shell, you might try 'look local::lib' and \n" . "run 'perl Makefile --bootstrap' and see if that is successful. Then\n" . "restart your CPAN client\n" ); } else { _local_lib_config(); } } } # install_help is temporary for configuration and not saved delete $CPAN::Config->{install_help}; $CPAN::Frontend->myprint("\n"); if ($matcher && !$CPAN::Config->{auto_commit}) { $CPAN::Frontend->myprint("Please remember to call 'o conf commit' to ". "make the config permanent!\n"); } else { CPAN::HandleConfig->commit; } if (! $matcher) { $CPAN::Frontend->myprint( "\nYou can re-run configuration any time with 'o conf init' in the CPAN shell\n" ); } } sub _local_lib_config { # Set environment stuff for this process require local::lib; # Tell user about environment vars to set $CPAN::Frontend->myprint($prompts{local_lib_installed}); local $ENV{SHELL} = $CPAN::Config->{shell} || $ENV{SHELL}; my $shellvars = local::lib->environment_vars_string_for(_local_lib_path()); $CPAN::Frontend->myprint($shellvars); # Set %ENV after getting string above my %env = local::lib->build_environment_vars_for(_local_lib_path(), 1); while ( my ($k, $v) = each %env ) { $ENV{$k} = $v; } # Offer to mangle the shell config my $munged_rc; if ( my $rc = _find_shell_config() ) { local $auto_config = 0; # We *must* ask, even under autoconfig local *_real_prompt; # We *must* show prompt my $_conf = prompt( "\nWould you like me to append that to $rc now?", "yes" ); if ($_conf =~ /^y/i) { open my $fh, ">>", $rc; print {$fh} "\n$shellvars"; close $fh; $munged_rc++; } } # Warn at exit time if ($munged_rc) { push @{$CPAN::META->_exit_messages}, << "HERE"; *** Remember to restart your shell before running cpan again *** HERE } else { push @{$CPAN::META->_exit_messages}, << "HERE"; *** Remember to add these environment variables to your shell config and restart your shell before running cpan again *** $shellvars HERE } } { my %shell_rc_map = ( map { $_ => ".${_}rc" } qw/ bash tcsh csh /, map { $_ => ".profile" } qw/dash ash sh/, zsh => ".zshenv", ); sub _find_shell_config { my $shell = File::Basename::basename($CPAN::Config->{shell}); if ( my $rc = $shell_rc_map{$shell} ) { my $path = File::Spec->catfile($ENV{HOME}, $rc); return $path if -w $path; } } } sub _local_lib_inc_path { return File::Spec->catdir(_local_lib_path(), qw/lib perl5/); } sub _local_lib_path { return File::Spec->catdir(_local_lib_home(), 'perl5'); } # Adapted from resolve_home_path() in local::lib -- this is where # local::lib thinks the user's home is { my $local_lib_home; sub _local_lib_home { $local_lib_home ||= File::Spec->rel2abs( do { if ($CPAN::META->has_usable("File::HomeDir") && File::HomeDir->VERSION >= 0.65) { File::HomeDir->my_home; } elsif (defined $ENV{HOME}) { $ENV{HOME}; } else { (getpwuid $<)[7] || "~"; } }); } } sub _do_pick_mirrors { local *_real_prompt; *_real_prompt = \&CPAN::Shell::colorable_makemaker_prompt; $CPAN::Frontend->myprint($prompts{urls_intro}); # Only prompt for auto-pick if Net::Ping is new enough to do timings my $_conf = 'n'; if ( $CPAN::META->has_usable("Net::Ping") && CPAN::Version->vgt(Net::Ping->VERSION, '2.13')) { $_conf = prompt($prompts{auto_pick}, "yes"); } else { prompt("Autoselection disabled due to Net::Ping missing or insufficient. Please press ENTER"); } my @old_list = @{ $CPAN::Config->{urllist} }; if ( $_conf =~ /^y/i ) { conf_sites( auto_pick => 1 ) or bring_your_own(); } else { _print_urllist('Current') if @old_list; my $msg = scalar @old_list ? "\nWould you like to edit the urllist or pick new mirrors from a list?" : "\nWould you like to pick from the CPAN mirror list?" ; my $_conf = prompt($msg, "yes"); if ( $_conf =~ /^y/i ) { conf_sites(); } bring_your_own(); } _print_urllist('New'); } sub _init_external_progs { my($matcher,$args) = @_; my $PATH = $args->{path}; my @external_progs = @{ $args->{progs} }; my $shortcut = $args->{shortcut}; my $showed_make_warning; if (!$matcher or "@external_progs" =~ /$matcher/) { my $old_warn = $^W; local $^W if $^O eq 'MacOS'; local $^W = $old_warn; my $progname; for $progname (@external_progs) { next if $matcher && $progname !~ /$matcher/; if ($^O eq 'MacOS') { $CPAN::Config->{$progname} = 'not_here'; next; } my $progcall = $progname; unless ($matcher) { # we really don't need ncftp if we have ncftpget, but # if they chose this dialog via matcher, they shall have it next if $progname eq "ncftp" && $CPAN::Config->{ncftpget} gt " "; } my $path = $CPAN::Config->{$progname} || $Config::Config{$progname} || ""; if (File::Spec->file_name_is_absolute($path)) { # testing existence is not good enough, some have these exe # extensions # warn "Warning: configured $path does not exist\n" unless -e $path; # $path = ""; } elsif ($path =~ /^\s+$/) { # preserve disabled programs } else { $path = ''; } unless ($path) { # e.g. make -> nmake $progcall = $Config::Config{$progname} if $Config::Config{$progname}; } $path ||= find_exe($progcall,$PATH); unless ($path) { # not -e $path, because find_exe already checked that local $"=";"; $CPAN::Frontend->mywarn("Warning: $progcall not found in PATH[@$PATH]\n") unless $auto_config; _beg_for_make(), $showed_make_warning++ if $progname eq "make"; } $prompts{$progname} = "Where is your $progname program?"; $path = my_dflt_prompt($progname,$path,$matcher,1); # 1 => no strip spaces my $disabling = $path =~ m/^\s*$/; # don't let them disable or misconfigure make without warning if ( $progname eq "make" && ( $disabling || ! _check_found($path) ) ) { if ( $disabling && $showed_make_warning ) { next; } else { _beg_for_make() unless $showed_make_warning++; undef $CPAN::Config->{$progname}; $CPAN::Frontend->mywarn("Press SPACE and ENTER to disable make (NOT RECOMMENDED)\n"); redo; } } elsif ( $disabling ) { next; } elsif ( _check_found( $CPAN::Config->{$progname} ) ) { last if $shortcut && !$matcher; } else { undef $CPAN::Config->{$progname}; $CPAN::Frontend->mywarn("Press SPACE and ENTER to disable $progname\n"); redo; } } } } sub _check_found { my ($prog) = @_; if ( ! -f $prog ) { $CPAN::Frontend->mywarn("Warning: '$prog' does not exist\n") unless $auto_config; return; } elsif ( ! -x $prog ) { $CPAN::Frontend->mywarn("Warning: '$prog' is not executable\n") unless $auto_config; return; } return 1; } sub _beg_for_make { $CPAN::Frontend->mywarn(<<"HERE"); ALERT: 'make' is an essential tool for building perl Modules. Please make sure you have 'make' (or some equivalent) working. HERE if ($^O eq "MSWin32") { $CPAN::Frontend->mywarn(<<"HERE"); Windows users may want to follow this procedure when back in the CPAN shell: look YVES/scripts/alien_nmake.pl perl alien_nmake.pl This will install nmake on your system which can be used as a 'make' substitute. You can then revisit this dialog with o conf init make HERE } } sub init_cpan_home { my($matcher) = @_; if (!$matcher or 'cpan_home' =~ /$matcher/) { my $cpan_home = $CPAN::Config->{cpan_home} || CPAN::HandleConfig::cpan_home(); if (-d $cpan_home) { $CPAN::Frontend->myprint( "\nI see you already have a directory\n" . "\n$cpan_home\n" . "Shall we use it as the general CPAN build and cache directory?\n\n" ) unless $auto_config; } else { # no cpan-home, must prompt and get one $CPAN::Frontend->myprint($prompts{cpan_home_where}) unless $auto_config; } my $default = $cpan_home; my $loop = 0; my($last_ans,$ans); $CPAN::Frontend->myprint(" <cpan_home>\n") unless $auto_config; PROMPT: while ($ans = prompt("CPAN build and cache directory?",$default)) { if (File::Spec->file_name_is_absolute($ans)) { my @cpan_home = split /[\/\\]/, $ans; DIR: for my $dir (@cpan_home) { if ($dir =~ /^~/ and (!$last_ans or $ans ne $last_ans)) { $CPAN::Frontend ->mywarn("Warning: a tilde in the path will be ". "taken as a literal tilde. Please ". "confirm again if you want to keep it\n"); $last_ans = $default = $ans; next PROMPT; } } } else { require Cwd; my $cwd = Cwd::cwd(); my $absans = File::Spec->catdir($cwd,$ans); $CPAN::Frontend->mywarn("The path '$ans' is not an ". "absolute path. Please specify ". "an absolute path\n"); $default = $absans; next PROMPT; } eval { File::Path::mkpath($ans); }; # dies if it can't if ($@) { $CPAN::Frontend->mywarn("Couldn't create directory $ans.\n". "Please retry.\n"); next PROMPT; } if (-d $ans && -w _) { last PROMPT; } else { $CPAN::Frontend->mywarn("Couldn't find directory $ans\n". "or directory is not writable. Please retry.\n"); if (++$loop > 5) { $CPAN::Frontend->mydie("Giving up"); } } } $CPAN::Config->{cpan_home} = $ans; } } sub my_dflt_prompt { my ($item, $dflt, $m, $no_strip) = @_; my $default = $CPAN::Config->{$item} || $dflt; if (!$auto_config && (!$m || $item =~ /$m/)) { if (my $intro = $prompts{$item . "_intro"}) { $CPAN::Frontend->myprint($intro); } $CPAN::Frontend->myprint(" <$item>\n"); $CPAN::Config->{$item} = $no_strip ? prompt_no_strip($prompts{$item}, $default) : prompt( $prompts{$item}, $default); } else { $CPAN::Config->{$item} = $default; } return $CPAN::Config->{$item}; } sub my_yn_prompt { my ($item, $dflt, $m) = @_; my $default; defined($default = $CPAN::Config->{$item}) or $default = $dflt; if (!$auto_config && (!$m || $item =~ /$m/)) { if (my $intro = $prompts{$item . "_intro"}) { $CPAN::Frontend->myprint($intro); } $CPAN::Frontend->myprint(" <$item>\n"); my $ans = prompt($prompts{$item}, $default ? 'yes' : 'no'); $CPAN::Config->{$item} = ($ans =~ /^[y1]/i ? 1 : 0); } else { $CPAN::Config->{$item} = $default; } } sub my_prompt_loop { my ($item, $dflt, $m, $ok) = @_; my $default = $CPAN::Config->{$item} || $dflt; my $ans; if (!$auto_config && (!$m || $item =~ /$m/)) { my $intro = $prompts{$item . "_intro"}; $CPAN::Frontend->myprint($intro) if defined $intro; $CPAN::Frontend->myprint(" <$item>\n"); do { $ans = prompt($prompts{$item}, $default); } until $ans =~ /$ok/; $CPAN::Config->{$item} = $ans; } else { $CPAN::Config->{$item} = $default; } } # Here's the logic about the MIRRORED.BY file. There are a number of scenarios: # (1) We have a cached MIRRORED.BY file # (1a) We're auto-picking # - Refresh it automatically if it's old # (1b) Otherwise, ask if using cached is ok. If old, default to no. # - If cached is not ok, get it from the Internet. If it succeeds we use # the new file. Otherwise, we use the old file. # (2) We don't have a copy at all # (2a) If we are allowed to connect, we try to get a new copy. If it succeeds, # we use it, otherwise, we warn about failure # (2b) If we aren't allowed to connect, sub conf_sites { my %args = @_; # auto pick implies using the internet $CPAN::Config->{connect_to_internet_ok} = 1 if $args{auto_pick}; my $m = 'MIRRORED.BY'; my $mby = File::Spec->catfile($CPAN::Config->{keep_source_where},$m); File::Path::mkpath(File::Basename::dirname($mby)); # Why are we using MIRRORED.BY from the current directory? # Is this for testing? -- dagolden, 2009-11-05 if (-f $mby && -f $m && -M $m < -M $mby) { require File::Copy; File::Copy::copy($m,$mby) or die "Could not update $mby: $!"; } local $^T = time; # if we have a cached copy is not older than 60 days, we either # use it or refresh it or fall back to it if the refresh failed. if ($mby && -f $mby && -s _ > 0 ) { my $very_old = (-M $mby > 60); my $mtime = localtime((stat _)[9]); # if auto_pick, refresh anything old automatically if ( $args{auto_pick} ) { if ( $very_old ) { $CPAN::Frontend->myprint(qq{Trying to refresh your mirror list\n}); eval { CPAN::FTP->localize($m,$mby,3,1) } or $CPAN::Frontend->myprint(qq{Refresh failed. Using the old cached copy instead.\n}); $CPAN::Frontend->myprint("\n"); } } else { my $prompt = qq{Found a cached mirror list as of $mtime If you'd like to just use the cached copy, answer 'yes', below. If you'd like an updated copy of the mirror list, answer 'no' and I'll get a fresh one from the Internet. Shall I use the cached mirror list?}; my $ans = prompt($prompt, $very_old ? "no" : "yes"); if ($ans =~ /^n/i) { $CPAN::Frontend->myprint(qq{Trying to refresh your mirror list\n}); # you asked for it from the Internet $CPAN::Config->{connect_to_internet_ok} = 1; eval { CPAN::FTP->localize($m,$mby,3,1) } or $CPAN::Frontend->myprint(qq{Refresh failed. Using the old cached copy instead.\n}); $CPAN::Frontend->myprint("\n"); } } } # else there is no cached copy and we must fetch or fail else { # If they haven't agree to connect to the internet, ask again if ( ! $CPAN::Config->{connect_to_internet_ok} ) { my $prompt = q{You are missing a copy of the CPAN mirror list. May I connect to the Internet to get it?}; my $ans = prompt($prompt, "yes"); if ($ans =~ /^y/i) { $CPAN::Config->{connect_to_internet_ok} = 1; } } # Now get it from the Internet or complain if ( $CPAN::Config->{connect_to_internet_ok} ) { $CPAN::Frontend->myprint(qq{Trying to fetch a mirror list from the Internet\n}); eval { CPAN::FTP->localize($m,$mby,3,1) } or $CPAN::Frontend->mywarn(<<'HERE'); We failed to get a copy of the mirror list from the Internet. You will need to provide CPAN mirror URLs yourself. HERE $CPAN::Frontend->myprint("\n"); } else { $CPAN::Frontend->mywarn(<<'HERE'); You will need to provide CPAN mirror URLs yourself or set 'o conf connect_to_internet_ok 1' and try again. HERE } } # if we finally have a good local MIRRORED.BY, get on with picking if (-f $mby && -s _ > 0){ $CPAN::Config->{urllist} = $args{auto_pick} ? auto_mirrored_by($mby) : choose_mirrored_by($mby); return 1; } return; } sub find_exe { my($exe,$path) = @_; $path ||= [split /$Config{'path_sep'}/, $ENV{'PATH'}]; my($dir); #warn "in find_exe exe[$exe] path[@$path]"; for $dir (@$path) { my $abs = File::Spec->catfile($dir,$exe); if (($abs = MM->maybe_command($abs))) { return $abs; } } } sub picklist { my($items,$prompt,$default,$require_nonempty,$empty_warning)=@_; CPAN->debug("picklist('$items','$prompt','$default','$require_nonempty',". "'$empty_warning')") if $CPAN::DEBUG; $default ||= ''; my $pos = 0; my @nums; SELECTION: while (1) { # display, at most, 15 items at a time my $limit = $#{ $items } - $pos; $limit = 15 if $limit > 15; # show the next $limit items, get the new position $pos = display_some($items, $limit, $pos, $default); $pos = 0 if $pos >= @$items; my $num = prompt($prompt,$default); @nums = split (' ', $num); { my %seen; @nums = grep { !$seen{$_}++ } @nums; } my $i = scalar @$items; unrangify(\@nums); if (0 == @nums) { # cannot allow nothing because nothing means paging! # return; } elsif (grep (/\D/ || $_ < 1 || $_ > $i, @nums)) { $CPAN::Frontend->mywarn("invalid items entered, try again\n"); if ("@nums" =~ /\D/) { $CPAN::Frontend->mywarn("(we are expecting only numbers between 1 and $i)\n"); } next SELECTION; } if ($require_nonempty && !@nums) { $CPAN::Frontend->mywarn("$empty_warning\n"); } # a blank line continues... unless (@nums){ $CPAN::Frontend->mysleep(0.1); # prevent hot spinning process on the next bug next SELECTION; } last; } for (@nums) { $_-- } @{$items}[@nums]; } sub unrangify ($) { my($nums) = $_[0]; my @nums2 = (); while (@{$nums||[]}) { my $n = shift @$nums; if ($n =~ /^(\d+)-(\d+)$/) { my @range = $1 .. $2; # warn "range[@range]"; push @nums2, @range; } else { push @nums2, $n; } } push @$nums, @nums2; } sub display_some { my ($items, $limit, $pos, $default) = @_; $pos ||= 0; my @displayable = @$items[$pos .. ($pos + $limit)]; for my $item (@displayable) { $CPAN::Frontend->myprint(sprintf "(%d) %s\n", ++$pos, $item); } my $hit_what = $default ? "SPACE ENTER" : "ENTER"; $CPAN::Frontend->myprint(sprintf("%d more items, hit %s to show them\n", (@$items - $pos), $hit_what, )) if $pos < @$items; return $pos; } sub auto_mirrored_by { my $local = shift or return; local $|=1; $CPAN::Frontend->myprint("Looking for CPAN mirrors near you (please be patient)\n"); my $mirrors = CPAN::Mirrors->new($local); my $cnt = 0; my $callback_was_active = 0; my @best = $mirrors->best_mirrors( how_many => 3, callback => sub { $callback_was_active++; $CPAN::Frontend->myprint("."); if ($cnt++>60) { $cnt=0; $CPAN::Frontend->myprint("\n"); } }, $CPAN::Config->{urllist_ping_external} ? (external_ping => 1) : (), $CPAN::Config->{urllist_ping_verbose} ? (verbose => 1) : (), ); my $urllist = [ map { $_->http } grep { $_ && ref $_ && $_->can('http') } @best ]; push @$urllist, grep { /^file:/ } @{$CPAN::Config->{urllist}}; $CPAN::Frontend->myprint(" done!\n\n") if $callback_was_active; return $urllist } sub choose_mirrored_by { my $local = shift or return; my ($default); my $mirrors = CPAN::Mirrors->new($local); my @previous_urls = @{$CPAN::Config->{urllist}}; $CPAN::Frontend->myprint($prompts{urls_picker_intro}); my (@cont, $cont, %cont, @countries, @urls, %seen); my $no_previous_warn = "Sorry! since you don't have any existing picks, you must make a\n" . "geographic selection."; my $offer_cont = [sort $mirrors->continents]; if (@previous_urls) { push @$offer_cont, "(edit previous picks)"; $default = @$offer_cont; } else { # cannot allow nothing because nothing means paging! # push @$offer_cont, "(none of the above)"; } @cont = picklist($offer_cont, "Select your continent (or several nearby continents)", $default, ! @previous_urls, $no_previous_warn); # cannot allow nothing because nothing means paging! # return unless @cont; foreach $cont (@cont) { my @c = sort $mirrors->countries($cont); @cont{@c} = map ($cont, 0..$#c); @c = map ("$_ ($cont)", @c) if @cont > 1; push (@countries, @c); } if (@previous_urls && @countries) { push @countries, "(edit previous picks)"; $default = @countries; } if (@countries) { @countries = picklist (\@countries, "Select your country (or several nearby countries)", $default, ! @previous_urls, $no_previous_warn); %seen = map (($_ => 1), @previous_urls); # hmmm, should take list of defaults from CPAN::Config->{'urllist'}... foreach my $country (@countries) { next if $country =~ /edit previous picks/; (my $bare_country = $country) =~ s/ \(.*\)//; my @u; for my $m ( $mirrors->mirrors($bare_country) ) { push @u, $m->ftp if $m->ftp; push @u, $m->http if $m->http; } @u = grep (! $seen{$_}, @u); @u = map ("$_ ($bare_country)", @u) if @countries > 1; push (@urls, sort @u); } } push (@urls, map ("$_ (previous pick)", @previous_urls)); my $prompt = "Select as many URLs as you like (by number), put them on one line, separated by blanks, hyphenated ranges allowed e.g. '1 4 5' or '7 1-4 8'"; if (@previous_urls) { $default = join (' ', ((scalar @urls) - (scalar @previous_urls) + 1) .. (scalar @urls)); $prompt .= "\n(or just hit ENTER to keep your previous picks)"; } @urls = picklist (\@urls, $prompt, $default); foreach (@urls) { s/ \(.*\)//; } return [ @urls ]; } sub bring_your_own { my $urllist = [ @{$CPAN::Config->{urllist}} ]; my %seen = map (($_ => 1), @$urllist); my($ans,@urls); my $eacnt = 0; # empty answers $CPAN::Frontend->myprint(<<'HERE'); Now you can enter your own CPAN URLs by hand. A local CPAN mirror can be listed using a 'file:' URL like 'file:///path/to/cpan/' HERE do { my $prompt = "Enter another URL or ENTER to quit:"; unless (%seen) { $prompt = qq{CPAN.pm needs at least one URL where it can fetch CPAN files from. Please enter your CPAN site:}; } $ans = prompt ($prompt, ""); if ($ans) { $ans =~ s|/?\z|/|; # has to end with one slash # XXX This manipulation is odd. Shouldn't we check that $ans is # a directory before converting to file:///? And we need /// below, # too, don't we? -- dagolden, 2009-11-05 $ans = "file:$ans" unless $ans =~ /:/; # without a scheme is a file: if ($ans =~ /^\w+:\/./) { push @urls, $ans unless $seen{$ans}++; } else { $CPAN::Frontend-> myprint(sprintf(qq{"%s" doesn\'t look like an URL at first sight. I\'ll ignore it for now. You can add it to your %s later if you\'re sure it\'s right.\n}, $ans, $INC{'CPAN/MyConfig.pm'} || $INC{'CPAN/Config.pm'} || "configuration file", )); } } else { if (++$eacnt >= 5) { $CPAN::Frontend-> mywarn("Giving up.\n"); $CPAN::Frontend->mysleep(5); return; } } } while $ans || !%seen; @$urllist = CPAN::_uniq(@$urllist, @urls); $CPAN::Config->{urllist} = $urllist; } sub _print_urllist { my ($which) = @_; $CPAN::Frontend->myprint("$which urllist\n"); for ( @{$CPAN::Config->{urllist} || []} ) { $CPAN::Frontend->myprint(" $_\n") }; } # Debian modification: return true if this directory # or the first existing one upwards is writable sub _can_write_to_this_or_parent { my ($dir) = @_; my @parts = File::Spec->splitdir($dir); while (@parts) { my $cur = File::Spec->catdir(@parts); return 1 if -w $cur; return 0 if -e _; pop @parts; } return 0; } # Debian specific modification: the site directories don't necessarily # exist on the system, but the build systems create them when necessary, # so return true if the first existing directory upwards is writable # # Furthermore, on Debian, only test the site directories # (installsite*, expanded to /usr/local/{share,lib}/perl), # not the core ones # (install*lib, expanded to /usr/{share,lib}/perl). # We pass INSTALLDIRS=site by default to keep CPAN from touching # the core directories. sub _can_write_to_libdirs { return _can_write_to_this_or_parent($Config{installsitelib}) && _can_write_to_this_or_parent($Config{installsitearch}) } sub _using_installbase { return 1 if $ENV{PERL_MM_OPT} && $ENV{PERL_MM_OPT} =~ /install_base/i; return 1 if grep { ($CPAN::Config->{$_}||q{}) =~ /install_base/i } qw(makepl_arg make_install_arg mbuildpl_arg mbuild_install_arg); return; } sub _using_sudo { return 1 if grep { ($CPAN::Config->{$_}||q{}) =~ /sudo/ } qw(make_install_make_command mbuild_install_build_command); return; } sub _strip_spaces { $_[0] =~ s/^\s+//; # no leading spaces $_[0] =~ s/\s+\z//; # no trailing spaces } sub prompt ($;$) { unless (defined &_real_prompt) { *_real_prompt = \&CPAN::Shell::colorable_makemaker_prompt; } my $ans = _real_prompt(@_); _strip_spaces($ans); $CPAN::Frontend->myprint("\n") unless $auto_config; return $ans; } sub prompt_no_strip ($;$) { unless (defined &_real_prompt) { *_real_prompt = \&CPAN::Shell::colorable_makemaker_prompt; } return _real_prompt(@_); } 1; PK ! >+�� � 5.34.0/CPAN/LWP/UserAgent.pmnu �[��� # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- # vim: ts=4 sts=4 sw=4: package CPAN::LWP::UserAgent; use strict; use vars qw(@ISA $USER $PASSWD $SETUPDONE); use CPAN::HTTP::Credentials; # we delay requiring LWP::UserAgent and setting up inheritance until we need it $CPAN::LWP::UserAgent::VERSION = $CPAN::LWP::UserAgent::VERSION = "1.9601"; sub config { return if $SETUPDONE; if ($CPAN::META->has_usable('LWP::UserAgent')) { require LWP::UserAgent; @ISA = qw(Exporter LWP::UserAgent); ## no critic $SETUPDONE++; } else { $CPAN::Frontend->mywarn(" LWP::UserAgent not available\n"); } } sub get_basic_credentials { my($self, $realm, $uri, $proxy) = @_; if ( $proxy ) { return CPAN::HTTP::Credentials->get_proxy_credentials(); } else { return CPAN::HTTP::Credentials->get_non_proxy_credentials(); } } sub no_proxy { my ( $self, $no_proxy ) = @_; return $self->SUPER::no_proxy( split(',',$no_proxy) ); } # mirror(): Its purpose is to deal with proxy authentication. When we # call SUPER::mirror, we really call the mirror method in # LWP::UserAgent. LWP::UserAgent will then call # $self->get_basic_credentials or some equivalent and this will be # $self->dispatched to our own get_basic_credentials method. # Our own get_basic_credentials sets $USER and $PASSWD, two globals. # 407 stands for HTTP_PROXY_AUTHENTICATION_REQUIRED. Which means # although we have gone through our get_basic_credentials, the proxy # server refuses to connect. This could be a case where the username or # password has changed in the meantime, so I'm trying once again without # $USER and $PASSWD to give the get_basic_credentials routine another # chance to set $USER and $PASSWD. sub mirror { my($self,$url,$aslocal) = @_; my $result = $self->SUPER::mirror($url,$aslocal); if ($result->code == 407) { CPAN::HTTP::Credentials->clear_credentials; $result = $self->SUPER::mirror($url,$aslocal); } $result; } 1; PK ! ��&( ( 5.34.0/FindBin.pmnu �[��� # FindBin.pm # # Copyright (c) 1995 Graham Barr & Nick Ing-Simmons. All rights reserved. # This program is free software; you can redistribute it and/or modify it # under the same terms as Perl itself. =head1 NAME FindBin - Locate directory of original perl script =head1 SYNOPSIS use FindBin; use lib "$FindBin::Bin/../lib"; or use FindBin qw($Bin); use lib "$Bin/../lib"; =head1 DESCRIPTION Locates the full path to the script bin directory to allow the use of paths relative to the bin directory. This allows a user to setup a directory tree for some software with directories C<< <root>/bin >> and C<< <root>/lib >>, and then the above example will allow the use of modules in the lib directory without knowing where the software tree is installed. If perl is invoked using the B<-e> option or the perl script is read from C<STDIN> then FindBin sets both C<$Bin> and C<$RealBin> to the current directory. =head1 EXPORTABLE VARIABLES $Bin - path to bin directory from where script was invoked $Script - basename of script from which perl was invoked $RealBin - $Bin with all links resolved $RealScript - $Script with all links resolved =head1 KNOWN ISSUES If there are two modules using C<FindBin> from different directories under the same interpreter, this won't work. Since C<FindBin> uses a C<BEGIN> block, it'll be executed only once, and only the first caller will get it right. This is a problem under mod_perl and other persistent Perl environments, where you shouldn't use this module. Which also means that you should avoid using C<FindBin> in modules that you plan to put on CPAN. To make sure that C<FindBin> will work is to call the C<again> function: use FindBin; FindBin::again(); # or FindBin->again; In former versions of FindBin there was no C<again> function. The workaround was to force the C<BEGIN> block to be executed again: delete $INC{'FindBin.pm'}; require FindBin; =head1 AUTHORS FindBin is supported as part of the core perl distribution. Please send bug reports to E<lt>F<perlbug@perl.org>E<gt> using the perlbug program included with perl. Graham Barr E<lt>F<gbarr@pobox.com>E<gt> Nick Ing-Simmons E<lt>F<nik@tiuk.ti.com>E<gt> =head1 COPYRIGHT Copyright (c) 1995 Graham Barr & Nick Ing-Simmons. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut package FindBin; use strict; use warnings; use Carp; require Exporter; use Cwd qw(getcwd cwd abs_path); use File::Basename; use File::Spec; our ($Bin, $Script, $RealBin, $RealScript, $Dir, $RealDir); our @EXPORT_OK = qw($Bin $Script $RealBin $RealScript $Dir $RealDir); our %EXPORT_TAGS = (ALL => [qw($Bin $Script $RealBin $RealScript $Dir $RealDir)]); our @ISA = qw(Exporter); our $VERSION = "1.52"; # needed for VMS-specific filename translation if( $^O eq 'VMS' ) { require VMS::Filespec; VMS::Filespec->import; } sub cwd2 { my $cwd = getcwd(); # getcwd might fail if it hasn't access to the current directory. # try harder. defined $cwd or $cwd = cwd(); $cwd; } sub init { *Dir = \$Bin; *RealDir = \$RealBin; if($0 eq '-e' || $0 eq '-') { # perl invoked with -e or script is on C<STDIN> $Script = $RealScript = $0; $Bin = $RealBin = cwd2(); $Bin = VMS::Filespec::unixify($Bin) if $^O eq 'VMS'; } else { my $script = $0; if ($^O eq 'VMS') { ($Bin,$Script) = VMS::Filespec::rmsexpand($0) =~ /(.*[\]>\/]+)(.*)/s; # C<use disk:[dev]/lib> isn't going to work, so unixify first ($Bin = VMS::Filespec::unixify($Bin)) =~ s/\/\z//; ($RealBin,$RealScript) = ($Bin,$Script); } else { croak("Cannot find current script '$0'") unless(-f $script); # Ensure $script contains the complete path in case we C<chdir> $script = File::Spec->catfile(cwd2(), $script) unless File::Spec->file_name_is_absolute($script); ($Script,$Bin) = fileparse($script); # Resolve $script if it is a link while(1) { my $linktext = readlink($script); ($RealScript,$RealBin) = fileparse($script); last unless defined $linktext; $script = (File::Spec->file_name_is_absolute($linktext)) ? $linktext : File::Spec->catfile($RealBin, $linktext); } # Get absolute paths to directories if ($Bin) { my $BinOld = $Bin; $Bin = abs_path($Bin); defined $Bin or $Bin = File::Spec->canonpath($BinOld); } $RealBin = abs_path($RealBin) if($RealBin); } } } BEGIN { init } *again = \&init; 1; # Keep require happy PK ! K�0�: �: 5.34.0/Config/Perl/V.pmnu �[��� package Config::Perl::V; use strict; use warnings; use Config; use Exporter; use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS); $VERSION = "0.33"; @ISA = qw( Exporter ); @EXPORT_OK = qw( plv2hash summary myconfig signature ); %EXPORT_TAGS = ( 'all' => [ @EXPORT_OK ], 'sig' => [ "signature" ], ); # Characteristics of this binary (from libperl): # Compile-time options: DEBUGGING PERL_DONT_CREATE_GVSV PERL_MALLOC_WRAP # USE_64_BIT_INT USE_LARGE_FILES USE_PERLIO # The list are as the perl binary has stored it in PL_bincompat_options # search for it in # perl.c line 1643 S_Internals_V () # perl -ne'(/^S_Internals_V/../^}/)&&s/^\s+"( .*)"/$1/ and print' perl.c # perl.h line 4566 PL_bincompat_options # perl -ne'(/^\w.*PL_bincompat/../^\w}/)&&s/^\s+"( .*)"/$1/ and print' perl.h my %BTD = map {( $_ => 0 )} qw( DEBUGGING NO_HASH_SEED NO_MATHOMS NO_TAINT_SUPPORT PERL_BOOL_AS_CHAR PERL_COPY_ON_WRITE PERL_DISABLE_PMC PERL_DONT_CREATE_GVSV PERL_EXTERNAL_GLOB PERL_HASH_FUNC_DJB2 PERL_HASH_FUNC_MURMUR3 PERL_HASH_FUNC_ONE_AT_A_TIME PERL_HASH_FUNC_ONE_AT_A_TIME_HARD PERL_HASH_FUNC_ONE_AT_A_TIME_OLD PERL_HASH_FUNC_SDBM PERL_HASH_FUNC_SIPHASH PERL_HASH_FUNC_SUPERFAST PERL_IS_MINIPERL PERL_MALLOC_WRAP PERL_MEM_LOG PERL_MEM_LOG_ENV PERL_MEM_LOG_ENV_FD PERL_MEM_LOG_NOIMPL PERL_MEM_LOG_STDERR PERL_MEM_LOG_TIMESTAMP PERL_NEW_COPY_ON_WRITE PERL_OP_PARENT PERL_PERTURB_KEYS_DETERMINISTIC PERL_PERTURB_KEYS_DISABLED PERL_PERTURB_KEYS_RANDOM PERL_PRESERVE_IVUV PERL_RELOCATABLE_INCPUSH PERL_USE_DEVEL PERL_USE_SAFE_PUTENV SILENT_NO_TAINT_SUPPORT UNLINK_ALL_VERSIONS USE_ATTRIBUTES_FOR_PERLIO USE_FAST_STDIO USE_HASH_SEED_EXPLICIT USE_LOCALE USE_LOCALE_CTYPE USE_NO_REGISTRY USE_PERL_ATOF USE_SITECUSTOMIZE USE_THREAD_SAFE_LOCALE DEBUG_LEAKING_SCALARS DEBUG_LEAKING_SCALARS_FORK_DUMP DECCRTL_SOCKETS FAKE_THREADS FCRYPT HAS_TIMES HAVE_INTERP_INTERN MULTIPLICITY MYMALLOC PERL_DEBUG_READONLY_COW PERL_DEBUG_READONLY_OPS PERL_GLOBAL_STRUCT PERL_GLOBAL_STRUCT_PRIVATE PERL_IMPLICIT_CONTEXT PERL_IMPLICIT_SYS PERLIO_LAYERS PERL_MAD PERL_MICRO PERL_NEED_APPCTX PERL_NEED_TIMESBASE PERL_OLD_COPY_ON_WRITE PERL_POISON PERL_SAWAMPERSAND PERL_TRACK_MEMPOOL PERL_USES_PL_PIDSTATUS PL_OP_SLAB_ALLOC THREADS_HAVE_PIDS USE_64_BIT_ALL USE_64_BIT_INT USE_IEEE USE_ITHREADS USE_LARGE_FILES USE_LOCALE_COLLATE USE_LOCALE_NUMERIC USE_LOCALE_TIME USE_LONG_DOUBLE USE_PERLIO USE_QUADMATH USE_REENTRANT_API USE_SFIO USE_SOCKS VMS_DO_SOCKETS VMS_SHORTEN_LONG_SYMBOLS VMS_SYMBOL_CASE_AS_IS ); # These are all the keys that are # 1. Always present in %Config - lib/Config.pm #87 tie %Config # 2. Reported by 'perl -V' (the rest) my @config_vars = qw( api_subversion api_version api_versionstring archlibexp dont_use_nlink d_readlink d_symlink exe_ext inc_version_list ldlibpthname patchlevel path_sep perl_patchlevel privlibexp scriptdir sitearchexp sitelibexp subversion usevendorprefix version git_commit_id git_describe git_branch git_uncommitted_changes git_commit_id_title git_snapshot_date package revision version_patchlevel_string osname osvers archname myuname config_args hint useposix d_sigaction useithreads usemultiplicity useperlio d_sfio uselargefiles usesocks use64bitint use64bitall uselongdouble usemymalloc default_inc_excludes_dot bincompat5005 cc ccflags optimize cppflags ccversion gccversion gccosandvers intsize longsize ptrsize doublesize byteorder d_longlong longlongsize d_longdbl longdblsize ivtype ivsize nvtype nvsize lseektype lseeksize alignbytes prototype ld ldflags libpth libs perllibs libc so useshrplib libperl gnulibc_version dlsrc dlext d_dlsymun ccdlflags cccdlflags lddlflags ); my %empty_build = ( 'osname' => "", 'stamp' => 0, 'options' => { %BTD }, 'patches' => [], ); sub _make_derived { my $conf = shift; for ( [ 'lseektype' => "Off_t" ], [ 'myuname' => "uname" ], [ 'perl_patchlevel' => "patch" ], ) { my ($official, $derived) = @{$_}; $conf->{'config'}{$derived} ||= $conf->{'config'}{$official}; $conf->{'config'}{$official} ||= $conf->{'config'}{$derived}; $conf->{'derived'}{$derived} = delete $conf->{'config'}{$derived}; } if (exists $conf->{'config'}{'version_patchlevel_string'} && !exists $conf->{'config'}{'api_version'}) { my $vps = $conf->{'config'}{'version_patchlevel_string'}; $vps =~ s{\b revision \s+ (\S+) }{}x and $conf->{'config'}{'revision'} ||= $1; $vps =~ s{\b version \s+ (\S+) }{}x and $conf->{'config'}{'api_version'} ||= $1; $vps =~ s{\b subversion \s+ (\S+) }{}x and $conf->{'config'}{'subversion'} ||= $1; $vps =~ s{\b patch \s+ (\S+) }{}x and $conf->{'config'}{'perl_patchlevel'} ||= $1; } ($conf->{'config'}{'version_patchlevel_string'} ||= join " ", map { ($_, $conf->{'config'}{$_} ) } grep { $conf->{'config'}{$_} } qw( api_version subversion perl_patchlevel )) =~ s/\bperl_//; $conf->{'config'}{'perl_patchlevel'} ||= ""; # 0 is not a valid patchlevel if ($conf->{'config'}{'perl_patchlevel'} =~ m{^git\w*-([^-]+)}i) { $conf->{'config'}{'git_branch'} ||= $1; $conf->{'config'}{'git_describe'} ||= $conf->{'config'}{'perl_patchlevel'}; } $conf->{'config'}{$_} ||= "undef" for grep m{^(?:use|def)} => @config_vars; $conf; } # _make_derived sub plv2hash { my %config; my $pv = join "\n" => @_; if ($pv =~ m{^Summary of my\s+(\S+)\s+\(\s*(.*?)\s*\)}m) { $config{'package'} = $1; my $rev = $2; $rev =~ s/^ revision \s+ (\S+) \s*//x and $config{'revision'} = $1; $rev and $config{'version_patchlevel_string'} = $rev; my ($rel) = $config{'package'} =~ m{perl(\d)}; my ($vers, $subvers) = $rev =~ m{version\s+(\d+)\s+subversion\s+(\d+)}; defined $vers && defined $subvers && defined $rel and $config{'version'} = "$rel.$vers.$subvers"; } if ($pv =~ m{^\s+(Snapshot of:)\s+(\S+)}) { $config{'git_commit_id_title'} = $1; $config{'git_commit_id'} = $2; } # these are always last on line and can have multiple quotation styles for my $k (qw( ccflags ldflags lddlflags )) { $pv =~ s{, \s* $k \s*=\s* (.*) \s*$}{}mx or next; my $v = $1; $v =~ s/\s*,\s*$//; $v =~ s/^(['"])(.*)\1$/$2/; $config{$k} = $v; } if (my %kv = ($pv =~ m{\b (\w+) # key \s*= # assign ( '\s*[^']*?\s*' # quoted value | \S+[^=]*?\s*\n # unquoted running till end of line | \S+ # unquoted value | \s*\n # empty ) (?:,?\s+|\s*\n)? # separator (5.8.x reports did not have a ',' }gx)) { # between every kv pair while (my ($k, $v) = each %kv) { $k =~ s{\s+$} {}; $v =~ s{\s*\n\z} {}; $v =~ s{,$} {}; $v =~ m{^'(.*)'$} and $v = $1; $v =~ s{\s+$} {}; $config{$k} = $v; } } my $build = { %empty_build }; $pv =~ m{^\s+Compiled at\s+(.*)}m and $build->{'stamp'} = $1; $pv =~ m{^\s+Locally applied patches:(?:\s+|\n)(.*?)(?:[\s\n]+Buil[td] under)}ms and $build->{'patches'} = [ split m{\n+\s*}, $1 ]; $pv =~ m{^\s+Compile-time options:(?:\s+|\n)(.*?)(?:[\s\n]+(?:Locally applied|Buil[td] under))}ms and map { $build->{'options'}{$_} = 1 } split m{\s+|\n} => $1; $build->{'osname'} = $config{'osname'}; $pv =~ m{^\s+Built under\s+(.*)}m and $build->{'osname'} = $1; $config{'osname'} ||= $build->{'osname'}; return _make_derived ({ 'build' => $build, 'environment' => {}, 'config' => \%config, 'derived' => {}, 'inc' => [], }); } # plv2hash sub summary { my $conf = shift || myconfig (); ref $conf eq "HASH" && exists $conf->{'config'} && exists $conf->{'build'} && ref $conf->{'config'} eq "HASH" && ref $conf->{'build'} eq "HASH" or return; my %info = map { exists $conf->{'config'}{$_} ? ( $_ => $conf->{'config'}{$_} ) : () } qw( archname osname osvers revision patchlevel subversion version cc ccversion gccversion config_args inc_version_list d_longdbl d_longlong use64bitall use64bitint useithreads uselongdouble usemultiplicity usemymalloc useperlio useshrplib doublesize intsize ivsize nvsize longdblsize longlongsize lseeksize default_inc_excludes_dot ); $info{$_}++ for grep { $conf->{'build'}{'options'}{$_} } keys %{$conf->{'build'}{'options'}}; return \%info; } # summary sub signature { my $no_md5 = "0" x 32; my $conf = summary (shift) or return $no_md5; eval { require Digest::MD5 }; $@ and return $no_md5; $conf->{'cc'} =~ s{.*\bccache\s+}{}; $conf->{'cc'} =~ s{.*[/\\]}{}; delete $conf->{'config_args'}; return Digest::MD5::md5_hex (join "\xFF" => map { "$_=".(defined $conf->{$_} ? $conf->{$_} : "\xFE"); } sort keys %{$conf}); } # signature sub myconfig { my $args = shift; my %args = ref $args eq "HASH" ? %{$args} : ref $args eq "ARRAY" ? @{$args} : (); my $build = { %empty_build }; # 5.14.0 and later provide all the information without shelling out my $stamp = eval { Config::compile_date () }; if (defined $stamp) { $stamp =~ s/^Compiled at //; $build->{'osname'} = $^O; $build->{'stamp'} = $stamp; $build->{'patches'} = [ Config::local_patches () ]; $build->{'options'}{$_} = 1 for Config::bincompat_options (), Config::non_bincompat_options (); } else { #y $pv = qx[$^X -e"sub Config::myconfig{};" -V]; my $cnf = plv2hash (qx[$^X -V]); $build->{$_} = $cnf->{'build'}{$_} for qw( osname stamp patches options ); } my @KEYS = keys %ENV; my %env = map {( $_ => $ENV{$_} )} grep m{^PERL} => @KEYS; if ($args{'env'}) { $env{$_} = $ENV{$_} for grep m{$args{'env'}} => @KEYS; } my %config = map { $_ => $Config{$_} } @config_vars; return _make_derived ({ 'build' => $build, 'environment' => \%env, 'config' => \%config, 'derived' => {}, 'inc' => \@INC, }); } # myconfig 1; __END__ =head1 NAME Config::Perl::V - Structured data retrieval of perl -V output =head1 SYNOPSIS use Config::Perl::V; my $local_config = Config::Perl::V::myconfig (); print $local_config->{config}{osname}; =head1 DESCRIPTION =head2 $conf = myconfig () This function will collect the data described in L</"The hash structure"> below, and return that as a hash reference. It optionally accepts an option to include more entries from %ENV. See L</environment> below. Note that this will not work on uninstalled perls when called with C<-I/path/to/uninstalled/perl/lib>, but it works when that path is in C<$PERL5LIB> or in C<$PERL5OPT>, as paths passed using C<-I> are not known when the C<-V> information is collected. =head2 $conf = plv2hash ($text [, ...]) Convert a sole 'perl -V' text block, or list of lines, to a complete myconfig hash. All unknown entries are defaulted. =head2 $info = summary ([$conf]) Return an arbitrary selection of the information. If no C<$conf> is given, C<myconfig ()> is used instead. =head2 $md5 = signature ([$conf]) Return the MD5 of the info returned by C<summary ()> without the C<config_args> entry. If C<Digest::MD5> is not available, it return a string with only C<0>'s. =head2 The hash structure The returned hash consists of 4 parts: =over 4 =item build This information is extracted from the second block that is emitted by C<perl -V>, and usually looks something like Characteristics of this binary (from libperl): Compile-time options: DEBUGGING USE_64_BIT_INT USE_LARGE_FILES Locally applied patches: defined-or MAINT24637 Built under linux Compiled at Jun 13 2005 10:44:20 @INC: /usr/lib/perl5/5.8.7/i686-linux-64int /usr/lib/perl5/5.8.7 /usr/lib/perl5/site_perl/5.8.7/i686-linux-64int /usr/lib/perl5/site_perl/5.8.7 /usr/lib/perl5/site_perl . or Characteristics of this binary (from libperl): Compile-time options: DEBUGGING MULTIPLICITY PERL_DONT_CREATE_GVSV PERL_IMPLICIT_CONTEXT PERL_MALLOC_WRAP PERL_TRACK_MEMPOOL PERL_USE_SAFE_PUTENV USE_ITHREADS USE_LARGE_FILES USE_PERLIO USE_REENTRANT_API Built under linux Compiled at Jan 28 2009 15:26:59 This information is not available anywhere else, including C<%Config>, but it is the information that is only known to the perl binary. The extracted information is stored in 5 entries in the C<build> hash: =over 4 =item osname This is most likely the same as C<$Config{osname}>, and was the name known when perl was built. It might be different if perl was cross-compiled. The default for this field, if it cannot be extracted, is to copy C<$Config{osname}>. The two may be differing in casing (OpenBSD vs openbsd). =item stamp This is the time string for which the perl binary was compiled. The default value is 0. =item options This is a hash with all the known defines as keys. The value is either 0, which means unknown or unset, or 1, which means defined. =item derived As some variables are reported by a different name in the output of C<perl -V> than their actual name in C<%Config>, I decided to leave the C<config> entry as close to reality as possible, and put in the entries that might have been guessed by the printed output in a separate block. =item patches This is a list of optionally locally applied patches. Default is an empty list. =back =item environment By default this hash is only filled with the environment variables out of %ENV that start with C<PERL>, but you can pass the C<env> option to myconfig to get more my $conf = Config::Perl::V::myconfig ({ env => qr/^ORACLE/ }); my $conf = Config::Perl::V::myconfig ([ env => qr/^ORACLE/ ]); =item config This hash is filled with the variables that C<perl -V> fills its report with, and it has the same variables that C<Config::myconfig> returns from C<%Config>. =item inc This is the list of default @INC. =back =head1 REASONING This module was written to be able to return the configuration for the currently used perl as deeply as needed for the CPANTESTERS framework. Up until now they used the output of myconfig as a single text blob, and so it was missing the vital binary characteristics of the running perl and the optional applied patches. =head1 BUGS Please feedback what is wrong =head1 TODO * Implement retrieval functions/methods * Documentation * Error checking * Tests =head1 AUTHOR H.Merijn Brand <h.m.brand@xs4all.nl> =head1 COPYRIGHT AND LICENSE Copyright (C) 2009-2020 H.Merijn Brand This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut PK ! �=K K 5.34.0/Config/Extensions.pmnu �[��� package Config::Extensions; use strict; our (%Extensions, $VERSION, @ISA, @EXPORT_OK); use Config; require Exporter; $VERSION = '0.03'; @ISA = 'Exporter'; @EXPORT_OK = '%Extensions'; foreach my $type (qw(static dynamic nonxs)) { foreach (split /\s+/, $Config{$type . '_ext'}) { s!/!::!g; $Extensions{$_} = $type; } } 1; __END__ =head1 NAME Config::Extensions - hash lookup of which core extensions were built. =head1 SYNOPSIS use Config::Extensions '%Extensions'; if ($Extensions{PerlIO::via}) { # This perl has PerlIO::via built } =head1 DESCRIPTION The Config::Extensions module provides a hash C<%Extensions> containing all the core extensions that were enabled for this perl. The hash is keyed by extension name, with each entry having one of 3 possible values: =over 4 =item dynamic The extension is dynamically linked =item nonxs The extension is pure perl, so doesn't need linking to the perl executable =item static The extension is statically linked to the perl binary =back As all values evaluate to true, a simple C<if> test is good enough to determine whether an extension is present. All the data uses to generate the C<%Extensions> hash is already present in the C<Config> module, but not in such a convenient format to quickly reference. =head1 AUTHOR Nicholas Clark <nick@ccl4.org> =cut PK ! a60Q: : 5.34.0/AnyDBM_File.pmnu �[��� package AnyDBM_File; use warnings; use strict; use 5.006_001; our $VERSION = '1.01'; our @ISA = qw(NDBM_File DB_File GDBM_File SDBM_File ODBM_File) unless @ISA; my $mod; for $mod (@ISA) { if (eval "require $mod") { @ISA = ($mod); # if we leave @ISA alone, warnings abound return 1; } } die "No DBM package was successfully found or installed"; __END__ =head1 NAME AnyDBM_File - provide framework for multiple DBMs NDBM_File, DB_File, GDBM_File, SDBM_File, ODBM_File - various DBM implementations =head1 SYNOPSIS use AnyDBM_File; =head1 DESCRIPTION This module is a "pure virtual base class"--it has nothing of its own. It's just there to inherit from one of the various DBM packages. It prefers ndbm for compatibility reasons with Perl 4, then Berkeley DB (See L<DB_File>), GDBM, SDBM (which is always there--it comes with Perl), and finally ODBM. This way old programs that used to use NDBM via dbmopen() can still do so, but new ones can reorder @ISA: BEGIN { @AnyDBM_File::ISA = qw(DB_File GDBM_File NDBM_File) } use AnyDBM_File; Having multiple DBM implementations makes it trivial to copy database formats: use Fcntl; use NDBM_File; use DB_File; tie %newhash, 'DB_File', $new_filename, O_CREAT|O_RDWR; tie %oldhash, 'NDBM_File', $old_filename, 1, 0; %newhash = %oldhash; =head2 DBM Comparisons Here's a partial table of features the different packages offer: odbm ndbm sdbm gdbm bsd-db ---- ---- ---- ---- ------ Linkage comes w/ perl yes yes yes yes yes Src comes w/ perl no no yes no no Comes w/ many unix os yes yes[0] no no no Builds ok on !unix ? ? yes yes ? Code Size ? ? small big big Database Size ? ? small big? ok[1] Speed ? ? slow ok fast FTPable no no yes yes yes Easy to build N/A N/A yes yes ok[2] Size limits 1k 4k 1k[3] none none Byte-order independent no no no no yes Licensing restrictions ? ? no yes no =over 4 =item [0] on mixed universe machines, may be in the bsd compat library, which is often shunned. =item [1] Can be trimmed if you compile for one access method. =item [2] See L<DB_File>. Requires symbolic links. =item [3] By default, but can be redefined. =back =head1 SEE ALSO dbm(3), ndbm(3), DB_File(3), L<perldbmfilter> =cut PK ! �ARף � 5.34.0/filetest.pmnu �[��� package filetest; our $VERSION = '1.03'; =head1 NAME filetest - Perl pragma to control the filetest permission operators =head1 SYNOPSIS $can_perhaps_read = -r "file"; # use the mode bits { use filetest 'access'; # intuit harder $can_really_read = -r "file"; } $can_perhaps_read = -r "file"; # use the mode bits again =head1 DESCRIPTION This pragma tells the compiler to change the behaviour of the filetest permission operators, C<-r> C<-w> C<-x> C<-R> C<-W> C<-X> (see L<perlfunc>). The default behaviour of file test operators is to use the simple mode bits as returned by the stat() family of system calls. However, many operating systems have additional features to define more complex access rights, for example ACLs (Access Control Lists). For such environments, C<use filetest> may help the permission operators to return results more consistent with other tools. The C<use filetest> or C<no filetest> statements affect file tests defined in their block, up to the end of the closest enclosing block (they are lexically block-scoped). Currently, only the C<access> sub-pragma is implemented. It enables (or disables) the use of access() when available, that is, on most UNIX systems and other POSIX environments. See details below. =head2 Consider this carefully The stat() mode bits are probably right for most of the files and directories found on your system, because few people want to use the additional features offered by access(). But you may encounter surprises if your program runs on a system that uses ACLs, since the stat() information won't reflect the actual permissions. There may be a slight performance decrease in the filetest operations when the filetest pragma is in effect, because checking bits is very cheap. Also, note that using the file tests for security purposes is a lost cause from the start: there is a window open for race conditions (who is to say that the permissions will not change between the test and the real operation?). Therefore if you are serious about security, just try the real operation and test for its success - think in terms of atomic operations. Filetests are more useful for filesystem administrative tasks, when you have no need for the content of the elements on disk. =head2 The "access" sub-pragma UNIX and POSIX systems provide an abstract access() operating system call, which should be used to query the read, write, and execute rights. This function hides various distinct approaches in additional operating system specific security features, like Access Control Lists (ACLs) The extended filetest functionality is used by Perl only when the argument of the operators is a filename, not when it is a filehandle. =head2 Limitation with regard to C<_> Because access() does not invoke stat() (at least not in a way visible to Perl), B<the stat result cache "_" is not set>. This means that the outcome of the following two tests is different. The first has the stat bits of F</etc/passwd> in C<_>, and in the second case this still contains the bits of C</etc>. { -d '/etc'; -w '/etc/passwd'; print -f _ ? 'Yes' : 'No'; # Yes } { use filetest 'access'; -d '/etc'; -w '/etc/passwd'; print -f _ ? 'Yes' : 'No'; # No } Of course, unless your OS does not implement access(), in which case the pragma is simply ignored. Best not to use C<_> at all in a file where the filetest pragma is active! As a side effect, as C<_> doesn't work, stacked filetest operators (C<-f -w $file>) won't work either. This limitation might be removed in a future version of perl. =cut $filetest::hint_bits = 0x00400000; # HINT_FILETEST_ACCESS sub import { if ( $_[1] eq 'access' ) { $^H |= $filetest::hint_bits; } else { die "filetest: the only implemented subpragma is 'access'.\n"; } } sub unimport { if ( $_[1] eq 'access' ) { $^H &= ~$filetest::hint_bits; } else { die "filetest: the only implemented subpragma is 'access'.\n"; } } 1; PK ! �F�Ư � 5.34.0/strict.pmnu �[��� package strict; $strict::VERSION = "1.12"; my ( %bitmask, %explicit_bitmask ); BEGIN { # Verify that we're called correctly so that strictures will work. # Can't use Carp, since Carp uses us! # see also warnings.pm. die sprintf "Incorrect use of pragma '%s' at %s line %d.\n", __PACKAGE__, +(caller)[1,2] if __FILE__ !~ ( '(?x) \b '.__PACKAGE__.' \.pmc? \z' ) && __FILE__ =~ ( '(?x) \b (?i:'.__PACKAGE__.') \.pmc? \z' ); %bitmask = ( refs => 0x00000002, subs => 0x00000200, vars => 0x00000400, ); %explicit_bitmask = ( refs => 0x00000020, subs => 0x00000040, vars => 0x00000080, ); my $bits = 0; $bits |= $_ for values %bitmask; my $inline_all_bits = $bits; *all_bits = sub () { $inline_all_bits }; $bits = 0; $bits |= $_ for values %explicit_bitmask; my $inline_all_explicit_bits = $bits; *all_explicit_bits = sub () { $inline_all_explicit_bits }; } sub bits { my $bits = 0; my @wrong; foreach my $s (@_) { if (exists $bitmask{$s}) { $^H |= $explicit_bitmask{$s}; $bits |= $bitmask{$s}; } else { push @wrong, $s; } } if (@wrong) { require Carp; Carp::croak("Unknown 'strict' tag(s) '@wrong'"); } $bits; } sub import { shift; $^H |= @_ ? &bits : all_bits | all_explicit_bits; } sub unimport { shift; if (@_) { $^H &= ~&bits; } else { $^H &= ~all_bits; $^H |= all_explicit_bits; } } 1; __END__ =head1 NAME strict - Perl pragma to restrict unsafe constructs =head1 SYNOPSIS use strict; use strict "vars"; use strict "refs"; use strict "subs"; use strict; no strict "vars"; =head1 DESCRIPTION The C<strict> pragma disables certain Perl expressions that could behave unexpectedly or are difficult to debug, turning them into errors. The effect of this pragma is limited to the current file or scope block. If no import list is supplied, all possible restrictions are assumed. (This is the safest mode to operate in, but is sometimes too strict for casual programming.) Currently, there are three possible things to be strict about: "subs", "vars", and "refs". =over 6 =item C<strict refs> This generates a runtime error if you use symbolic references (see L<perlref>). use strict 'refs'; $ref = \$foo; print $$ref; # ok $ref = "foo"; print $$ref; # runtime error; normally ok $file = "STDOUT"; print $file "Hi!"; # error; note: no comma after $file There is one exception to this rule: $bar = \&{'foo'}; &$bar; is allowed so that C<goto &$AUTOLOAD> would not break under stricture. =item C<strict vars> This generates a compile-time error if you access a variable that was neither explicitly declared (using any of C<my>, C<our>, C<state>, or C<use vars>) nor fully qualified. (Because this is to avoid variable suicide problems and subtle dynamic scoping issues, a merely C<local> variable isn't good enough.) See L<perlfunc/my>, L<perlfunc/our>, L<perlfunc/state>, L<perlfunc/local>, and L<vars>. use strict 'vars'; $X::foo = 1; # ok, fully qualified my $foo = 10; # ok, my() var local $baz = 9; # blows up, $baz not declared before package Cinna; our $bar; # Declares $bar in current package $bar = 'HgS'; # ok, global declared via pragma The local() generated a compile-time error because you just touched a global name without fully qualifying it. Because of their special use by sort(), the variables $a and $b are exempted from this check. =item C<strict subs> This disables the poetry optimization, generating a compile-time error if you try to use a bareword identifier that's not a subroutine, unless it is a simple identifier (no colons) and that it appears in curly braces, on the left hand side of the C<< => >> symbol, or has the unary minus operator applied to it. use strict 'subs'; $SIG{PIPE} = Plumber; # blows up $SIG{PIPE} = "Plumber"; # fine: quoted string is always ok $SIG{PIPE} = \&Plumber; # preferred form =back See L<perlmodlib/Pragmatic Modules>. =head1 HISTORY C<strict 'subs'>, with Perl 5.6.1, erroneously permitted to use an unquoted compound identifier (e.g. C<Foo::Bar>) as a hash key (before C<< => >> or inside curlies), but without forcing it always to a literal string. Starting with Perl 5.8.1 strict is strict about its restrictions: if unknown restrictions are used, the strict pragma will abort with Unknown 'strict' tag(s) '...' As of version 1.04 (Perl 5.10), strict verifies that it is used as "strict" to avoid the dreaded Strict trap on case insensitive file systems. =cut PK ! �`�� 5.34.0/Carp/Heavy.pmnu �[��� package Carp::Heavy; use Carp (); our $VERSION = '1.52'; $VERSION =~ tr/_//d; # Carp::Heavy was merged into Carp in version 1.12. Any mismatched versions # after this point are not significant and can be ignored. if(($Carp::VERSION || 0) < 1.12) { my $cv = defined($Carp::VERSION) ? $Carp::VERSION : "undef"; die "Version mismatch between Carp $cv ($INC{q(Carp.pm)}) and Carp::Heavy $VERSION ($INC{q(Carp/Heavy.pm)}). Did you alter \@INC after Carp was loaded?\n"; } 1; # Most of the machinery of Carp used to be here. # It has been moved in Carp.pm now, but this placeholder remains for # the benefit of modules that like to preload Carp::Heavy directly. # This must load Carp, because some modules rely on the historical # behaviour of Carp::Heavy loading Carp. PK ! �h�;� � 5.34.0/parent.pmnu �[��� package parent; use strict; our $VERSION = '0.238'; sub import { my $class = shift; my $inheritor = caller(0); if ( @_ and $_[0] eq '-norequire' ) { shift @_; } else { for ( my @filename = @_ ) { s{::|'}{/}g; require "$_.pm"; # dies if the file is not found } } { no strict 'refs'; push @{"$inheritor\::ISA"}, @_; # dies if a loop is detected }; }; 1; __END__ =encoding utf8 =head1 NAME parent - Establish an ISA relationship with base classes at compile time =head1 SYNOPSIS package Baz; use parent qw(Foo Bar); =head1 DESCRIPTION Allows you to both load one or more modules, while setting up inheritance from those modules at the same time. Mostly similar in effect to package Baz; BEGIN { require Foo; require Bar; push @ISA, qw(Foo Bar); } By default, every base class needs to live in a file of its own. If you want to have a subclass and its parent class in the same file, you can tell C<parent> not to load any modules by using the C<-norequire> switch: package Foo; sub exclaim { "I CAN HAS PERL" } package DoesNotLoadFooBar; use parent -norequire, 'Foo', 'Bar'; # will not go looking for Foo.pm or Bar.pm This is equivalent to the following code: package Foo; sub exclaim { "I CAN HAS PERL" } package DoesNotLoadFooBar; push @DoesNotLoadFooBar::ISA, 'Foo', 'Bar'; This is also helpful for the case where a package lives within a differently named file: package MyHash; use Tie::Hash; use parent -norequire, 'Tie::StdHash'; This is equivalent to the following code: package MyHash; require Tie::Hash; push @ISA, 'Tie::StdHash'; If you want to load a subclass from a file that C<require> would not consider an eligible filename (that is, it does not end in either C<.pm> or C<.pmc>), use the following code: package MySecondPlugin; require './plugins/custom.plugin'; # contains Plugin::Custom use parent -norequire, 'Plugin::Custom'; =head1 HISTORY This module was forked from L<base> to remove the cruft that had accumulated in it. =head1 CAVEATS =head1 SEE ALSO =over 4 =item L<base> =item L<parent::versioned> A fork of L<parent> that provides version checking in parent class modules. =back =head1 AUTHORS AND CONTRIBUTORS Rafaël Garcia-Suarez, Bart Lateur, Max Maischein, Anno Siegel, Michael Schwern =head1 MAINTAINER Max Maischein C< corion@cpan.org > Copyright (c) 2007-2017 Max Maischein C<< <corion@cpan.org> >> Based on the idea of C<base.pm>, which was introduced with Perl 5.004_04. =head1 LICENSE This module is released under the same terms as Perl itself. =cut PK ! y�S�� �� 5.34.0/Compress/Zlib.pmnu �[��� package Compress::Zlib; require 5.006 ; require Exporter; use Carp ; use IO::Handle ; use Scalar::Util qw(dualvar); use IO::Compress::Base::Common 2.101 ; use Compress::Raw::Zlib 2.101 ; use IO::Compress::Gzip 2.101 ; use IO::Uncompress::Gunzip 2.101 ; use strict ; use warnings ; use bytes ; our ($VERSION, $XS_VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); $VERSION = '2.102'; $XS_VERSION = $VERSION; $VERSION = eval $VERSION; @ISA = qw(Exporter); # Items to export into callers namespace by default. Note: do not export # names by default without a very good reason. Use EXPORT_OK instead. # Do not simply export all your public functions/methods/constants. @EXPORT = qw( deflateInit inflateInit compress uncompress gzopen $gzerrno ); push @EXPORT, @Compress::Raw::Zlib::EXPORT ; @EXPORT_OK = qw(memGunzip memGzip zlib_version); %EXPORT_TAGS = ( ALL => \@EXPORT ); BEGIN { *zlib_version = \&Compress::Raw::Zlib::zlib_version; } use constant FLAG_APPEND => 1 ; use constant FLAG_CRC => 2 ; use constant FLAG_ADLER => 4 ; use constant FLAG_CONSUME_INPUT => 8 ; our (@my_z_errmsg); @my_z_errmsg = ( "need dictionary", # Z_NEED_DICT 2 "stream end", # Z_STREAM_END 1 "", # Z_OK 0 "file error", # Z_ERRNO (-1) "stream error", # Z_STREAM_ERROR (-2) "data error", # Z_DATA_ERROR (-3) "insufficient memory", # Z_MEM_ERROR (-4) "buffer error", # Z_BUF_ERROR (-5) "incompatible version",# Z_VERSION_ERROR(-6) ); sub _set_gzerr { my $value = shift ; if ($value == 0) { $Compress::Zlib::gzerrno = 0 ; } elsif ($value == Z_ERRNO() || $value > 2) { $Compress::Zlib::gzerrno = $! ; } else { $Compress::Zlib::gzerrno = dualvar($value+0, $my_z_errmsg[2 - $value]); } return $value ; } sub _set_gzerr_undef { _set_gzerr(@_); return undef; } sub _save_gzerr { my $gz = shift ; my $test_eof = shift ; my $value = $gz->errorNo() || 0 ; my $eof = $gz->eof() ; if ($test_eof) { # gzread uses Z_STREAM_END to denote a successful end $value = Z_STREAM_END() if $gz->eof() && $value == 0 ; } _set_gzerr($value) ; } sub gzopen($$) { my ($file, $mode) = @_ ; my $gz ; my %defOpts = (Level => Z_DEFAULT_COMPRESSION(), Strategy => Z_DEFAULT_STRATEGY(), ); my $writing ; $writing = ! ($mode =~ /r/i) ; $writing = ($mode =~ /[wa]/i) ; $defOpts{Level} = $1 if $mode =~ /(\d)/; $defOpts{Strategy} = Z_FILTERED() if $mode =~ /f/i; $defOpts{Strategy} = Z_HUFFMAN_ONLY() if $mode =~ /h/i; $defOpts{Append} = 1 if $mode =~ /a/i; my $infDef = $writing ? 'deflate' : 'inflate'; my @params = () ; croak "gzopen: file parameter is not a filehandle or filename" unless isaFilehandle $file || isaFilename $file || (ref $file && ref $file eq 'SCALAR'); return undef unless $mode =~ /[rwa]/i ; _set_gzerr(0) ; if ($writing) { $gz = IO::Compress::Gzip->new($file, Minimal => 1, AutoClose => 1, %defOpts) or $Compress::Zlib::gzerrno = $IO::Compress::Gzip::GzipError; } else { $gz = IO::Uncompress::Gunzip->new($file, Transparent => 1, Append => 0, AutoClose => 1, MultiStream => 1, Strict => 0) or $Compress::Zlib::gzerrno = $IO::Uncompress::Gunzip::GunzipError; } return undef if ! defined $gz ; bless [$gz, $infDef], 'Compress::Zlib::gzFile'; } sub Compress::Zlib::gzFile::gzread { my $self = shift ; return _set_gzerr(Z_STREAM_ERROR()) if $self->[1] ne 'inflate'; my $len = defined $_[1] ? $_[1] : 4096 ; my $gz = $self->[0] ; if ($self->gzeof() || $len == 0) { # Zap the output buffer to match ver 1 behaviour. $_[0] = "" ; _save_gzerr($gz, 1); return 0 ; } my $status = $gz->read($_[0], $len) ; _save_gzerr($gz, 1); return $status ; } sub Compress::Zlib::gzFile::gzreadline { my $self = shift ; my $gz = $self->[0] ; { # Maintain backward compatibility with 1.x behaviour # It didn't support $/, so this can't either. local $/ = "\n" ; $_[0] = $gz->getline() ; } _save_gzerr($gz, 1); return defined $_[0] ? length $_[0] : 0 ; } sub Compress::Zlib::gzFile::gzwrite { my $self = shift ; my $gz = $self->[0] ; return _set_gzerr(Z_STREAM_ERROR()) if $self->[1] ne 'deflate'; $] >= 5.008 and (utf8::downgrade($_[0], 1) or croak "Wide character in gzwrite"); my $status = $gz->write($_[0]) ; _save_gzerr($gz); return $status ; } sub Compress::Zlib::gzFile::gztell { my $self = shift ; my $gz = $self->[0] ; my $status = $gz->tell() ; _save_gzerr($gz); return $status ; } sub Compress::Zlib::gzFile::gzseek { my $self = shift ; my $offset = shift ; my $whence = shift ; my $gz = $self->[0] ; my $status ; eval { local $SIG{__DIE__}; $status = $gz->seek($offset, $whence) ; }; if ($@) { my $error = $@; $error =~ s/^.*: /gzseek: /; $error =~ s/ at .* line \d+\s*$//; croak $error; } _save_gzerr($gz); return $status ; } sub Compress::Zlib::gzFile::gzflush { my $self = shift ; my $f = shift ; my $gz = $self->[0] ; my $status = $gz->flush($f) ; my $err = _save_gzerr($gz); return $status ? 0 : $err; } sub Compress::Zlib::gzFile::gzclose { my $self = shift ; my $gz = $self->[0] ; my $status = $gz->close() ; my $err = _save_gzerr($gz); return $status ? 0 : $err; } sub Compress::Zlib::gzFile::gzeof { my $self = shift ; my $gz = $self->[0] ; return 0 if $self->[1] ne 'inflate'; my $status = $gz->eof() ; _save_gzerr($gz); return $status ; } sub Compress::Zlib::gzFile::gzsetparams { my $self = shift ; croak "Usage: Compress::Zlib::gzFile::gzsetparams(file, level, strategy)" unless @_ eq 2 ; my $gz = $self->[0] ; my $level = shift ; my $strategy = shift; return _set_gzerr(Z_STREAM_ERROR()) if $self->[1] ne 'deflate'; my $status = *$gz->{Compress}->deflateParams(-Level => $level, -Strategy => $strategy); _save_gzerr($gz); return $status ; } sub Compress::Zlib::gzFile::gzerror { my $self = shift ; my $gz = $self->[0] ; return $Compress::Zlib::gzerrno ; } sub compress($;$) { my ($x, $output, $err, $in) =('', '', '', '') ; if (ref $_[0] ) { $in = $_[0] ; croak "not a scalar reference" unless ref $in eq 'SCALAR' ; } else { $in = \$_[0] ; } $] >= 5.008 and (utf8::downgrade($$in, 1) or croak "Wide character in compress"); my $level = (@_ == 2 ? $_[1] : Z_DEFAULT_COMPRESSION() ); $x = Compress::Raw::Zlib::_deflateInit(FLAG_APPEND, $level, Z_DEFLATED, MAX_WBITS, MAX_MEM_LEVEL, Z_DEFAULT_STRATEGY, 4096, '') or return undef ; $err = $x->deflate($in, $output) ; return undef unless $err == Z_OK() ; $err = $x->flush($output) ; return undef unless $err == Z_OK() ; return $output ; } sub uncompress($) { my ($output, $in) =('', '') ; if (ref $_[0] ) { $in = $_[0] ; croak "not a scalar reference" unless ref $in eq 'SCALAR' ; } else { $in = \$_[0] ; } $] >= 5.008 and (utf8::downgrade($$in, 1) or croak "Wide character in uncompress"); my ($obj, $status) = Compress::Raw::Zlib::_inflateInit(0, MAX_WBITS, 4096, "") ; $status == Z_OK or return undef; $obj->inflate($in, $output) == Z_STREAM_END or return undef; return $output; } sub deflateInit(@) { my ($got) = ParseParameters(0, { 'bufsize' => [IO::Compress::Base::Common::Parse_unsigned, 4096], 'level' => [IO::Compress::Base::Common::Parse_signed, Z_DEFAULT_COMPRESSION()], 'method' => [IO::Compress::Base::Common::Parse_unsigned, Z_DEFLATED()], 'windowbits' => [IO::Compress::Base::Common::Parse_signed, MAX_WBITS()], 'memlevel' => [IO::Compress::Base::Common::Parse_unsigned, MAX_MEM_LEVEL()], 'strategy' => [IO::Compress::Base::Common::Parse_unsigned, Z_DEFAULT_STRATEGY()], 'dictionary' => [IO::Compress::Base::Common::Parse_any, ""], }, @_ ) ; croak "Compress::Zlib::deflateInit: Bufsize must be >= 1, you specified " . $got->getValue('bufsize') unless $got->getValue('bufsize') >= 1; my $obj ; my $status = 0 ; ($obj, $status) = Compress::Raw::Zlib::_deflateInit(0, $got->getValue('level'), $got->getValue('method'), $got->getValue('windowbits'), $got->getValue('memlevel'), $got->getValue('strategy'), $got->getValue('bufsize'), $got->getValue('dictionary')) ; my $x = ($status == Z_OK() ? bless $obj, "Zlib::OldDeflate" : undef) ; return wantarray ? ($x, $status) : $x ; } sub inflateInit(@) { my ($got) = ParseParameters(0, { 'bufsize' => [IO::Compress::Base::Common::Parse_unsigned, 4096], 'windowbits' => [IO::Compress::Base::Common::Parse_signed, MAX_WBITS()], 'dictionary' => [IO::Compress::Base::Common::Parse_any, ""], }, @_) ; croak "Compress::Zlib::inflateInit: Bufsize must be >= 1, you specified " . $got->getValue('bufsize') unless $got->getValue('bufsize') >= 1; my $status = 0 ; my $obj ; ($obj, $status) = Compress::Raw::Zlib::_inflateInit(FLAG_CONSUME_INPUT, $got->getValue('windowbits'), $got->getValue('bufsize'), $got->getValue('dictionary')) ; my $x = ($status == Z_OK() ? bless $obj, "Zlib::OldInflate" : undef) ; wantarray ? ($x, $status) : $x ; } package Zlib::OldDeflate ; our (@ISA); @ISA = qw(Compress::Raw::Zlib::deflateStream); sub deflate { my $self = shift ; my $output ; my $status = $self->SUPER::deflate($_[0], $output) ; wantarray ? ($output, $status) : $output ; } sub flush { my $self = shift ; my $output ; my $flag = shift || Compress::Zlib::Z_FINISH(); my $status = $self->SUPER::flush($output, $flag) ; wantarray ? ($output, $status) : $output ; } package Zlib::OldInflate ; our (@ISA); @ISA = qw(Compress::Raw::Zlib::inflateStream); sub inflate { my $self = shift ; my $output ; my $status = $self->SUPER::inflate($_[0], $output) ; wantarray ? ($output, $status) : $output ; } package Compress::Zlib ; use IO::Compress::Gzip::Constants 2.101 ; sub memGzip($) { _set_gzerr(0); my $x = Compress::Raw::Zlib::_deflateInit(FLAG_APPEND|FLAG_CRC, Z_BEST_COMPRESSION, Z_DEFLATED, -MAX_WBITS(), MAX_MEM_LEVEL, Z_DEFAULT_STRATEGY, 4096, '') or return undef ; # if the deflation buffer isn't a reference, make it one my $string = (ref $_[0] ? $_[0] : \$_[0]) ; $] >= 5.008 and (utf8::downgrade($$string, 1) or croak "Wide character in memGzip"); my $out; my $status ; $x->deflate($string, $out) == Z_OK or return undef ; $x->flush($out) == Z_OK or return undef ; return IO::Compress::Gzip::Constants::GZIP_MINIMUM_HEADER . $out . pack("V V", $x->crc32(), $x->total_in()); } sub _removeGzipHeader($) { my $string = shift ; return Z_DATA_ERROR() if length($$string) < GZIP_MIN_HEADER_SIZE ; my ($magic1, $magic2, $method, $flags, $time, $xflags, $oscode) = unpack ('CCCCVCC', $$string); return Z_DATA_ERROR() unless $magic1 == GZIP_ID1 and $magic2 == GZIP_ID2 and $method == Z_DEFLATED() and !($flags & GZIP_FLG_RESERVED) ; substr($$string, 0, GZIP_MIN_HEADER_SIZE) = '' ; # skip extra field if ($flags & GZIP_FLG_FEXTRA) { return Z_DATA_ERROR() if length($$string) < GZIP_FEXTRA_HEADER_SIZE ; my ($extra_len) = unpack ('v', $$string); $extra_len += GZIP_FEXTRA_HEADER_SIZE; return Z_DATA_ERROR() if length($$string) < $extra_len ; substr($$string, 0, $extra_len) = ''; } # skip orig name if ($flags & GZIP_FLG_FNAME) { my $name_end = index ($$string, GZIP_NULL_BYTE); return Z_DATA_ERROR() if $name_end == -1 ; substr($$string, 0, $name_end + 1) = ''; } # skip comment if ($flags & GZIP_FLG_FCOMMENT) { my $comment_end = index ($$string, GZIP_NULL_BYTE); return Z_DATA_ERROR() if $comment_end == -1 ; substr($$string, 0, $comment_end + 1) = ''; } # skip header crc if ($flags & GZIP_FLG_FHCRC) { return Z_DATA_ERROR() if length ($$string) < GZIP_FHCRC_SIZE ; substr($$string, 0, GZIP_FHCRC_SIZE) = ''; } return Z_OK(); } sub _ret_gun_error { $Compress::Zlib::gzerrno = $IO::Uncompress::Gunzip::GunzipError; return undef; } sub memGunzip($) { # if the buffer isn't a reference, make it one my $string = (ref $_[0] ? $_[0] : \$_[0]); $] >= 5.008 and (utf8::downgrade($$string, 1) or croak "Wide character in memGunzip"); _set_gzerr(0); my $status = _removeGzipHeader($string) ; $status == Z_OK() or return _set_gzerr_undef($status); my $bufsize = length $$string > 4096 ? length $$string : 4096 ; my $x = Compress::Raw::Zlib::_inflateInit(FLAG_CRC | FLAG_CONSUME_INPUT, -MAX_WBITS(), $bufsize, '') or return _ret_gun_error(); my $output = '' ; $status = $x->inflate($string, $output); if ( $status == Z_OK() ) { _set_gzerr(Z_DATA_ERROR()); return undef; } return _ret_gun_error() if ($status != Z_STREAM_END()); if (length $$string >= 8) { my ($crc, $len) = unpack ("VV", substr($$string, 0, 8)); substr($$string, 0, 8) = ''; return _set_gzerr_undef(Z_DATA_ERROR()) unless $len == length($output) and $crc == Compress::Raw::Zlib::crc32($output); } else { $$string = ''; } return $output; } # Autoload methods go after __END__, and are processed by the autosplit program. 1; __END__ =head1 NAME Compress::Zlib - Interface to zlib compression library =head1 SYNOPSIS use Compress::Zlib ; ($d, $status) = deflateInit( [OPT] ) ; $status = $d->deflate($input, $output) ; $status = $d->flush([$flush_type]) ; $d->deflateParams(OPTS) ; $d->deflateTune(OPTS) ; $d->dict_adler() ; $d->crc32() ; $d->adler32() ; $d->total_in() ; $d->total_out() ; $d->msg() ; $d->get_Strategy(); $d->get_Level(); $d->get_BufSize(); ($i, $status) = inflateInit( [OPT] ) ; $status = $i->inflate($input, $output [, $eof]) ; $status = $i->inflateSync($input) ; $i->dict_adler() ; $d->crc32() ; $d->adler32() ; $i->total_in() ; $i->total_out() ; $i->msg() ; $d->get_BufSize(); $dest = compress($source) ; $dest = uncompress($source) ; $gz = gzopen($filename or filehandle, $mode) ; $bytesread = $gz->gzread($buffer [,$size]) ; $bytesread = $gz->gzreadline($line) ; $byteswritten = $gz->gzwrite($buffer) ; $status = $gz->gzflush($flush) ; $offset = $gz->gztell() ; $status = $gz->gzseek($offset, $whence) ; $status = $gz->gzclose() ; $status = $gz->gzeof() ; $status = $gz->gzsetparams($level, $strategy) ; $errstring = $gz->gzerror() ; $gzerrno $dest = Compress::Zlib::memGzip($buffer) ; $dest = Compress::Zlib::memGunzip($buffer) ; $crc = adler32($buffer [,$crc]) ; $crc = crc32($buffer [,$crc]) ; $crc = crc32_combine($crc1, $crc2, $len2); $adler = adler32_combine($adler1, $adler2, $len2); my $version = Compress::Raw::Zlib::zlib_version(); =head1 DESCRIPTION The I<Compress::Zlib> module provides a Perl interface to the I<zlib> compression library (see L</AUTHOR> for details about where to get I<zlib>). The C<Compress::Zlib> module can be split into two general areas of functionality, namely a simple read/write interface to I<gzip> files and a low-level in-memory compression/decompression interface. Each of these areas will be discussed in the following sections. =head2 Notes for users of Compress::Zlib version 1 The main change in C<Compress::Zlib> version 2.x is that it does not now interface directly to the zlib library. Instead it uses the C<IO::Compress::Gzip> and C<IO::Uncompress::Gunzip> modules for reading/writing gzip files, and the C<Compress::Raw::Zlib> module for some low-level zlib access. The interface provided by version 2 of this module should be 100% backward compatible with version 1. If you find a difference in the expected behaviour please contact the author (See L</AUTHOR>). See L<GZIP INTERFACE> With the creation of the C<IO::Compress> and C<IO::Uncompress> modules no new features are planned for C<Compress::Zlib> - the new modules do everything that C<Compress::Zlib> does and then some. Development on C<Compress::Zlib> will be limited to bug fixes only. If you are writing new code, your first port of call should be one of the new C<IO::Compress> or C<IO::Uncompress> modules. =head1 GZIP INTERFACE A number of functions are supplied in I<zlib> for reading and writing I<gzip> files that conform to RFC 1952. This module provides an interface to most of them. If you have previously used C<Compress::Zlib> 1.x, the following enhancements/changes have been made to the C<gzopen> interface: =over 5 =item 1 If you want to open either STDIN or STDOUT with C<gzopen>, you can now optionally use the special filename "C<->" as a synonym for C<\*STDIN> and C<\*STDOUT>. =item 2 In C<Compress::Zlib> version 1.x, C<gzopen> used the zlib library to open the underlying file. This made things especially tricky when a Perl filehandle was passed to C<gzopen>. Behind the scenes the numeric C file descriptor had to be extracted from the Perl filehandle and this passed to the zlib library. Apart from being non-portable to some operating systems, this made it difficult to use C<gzopen> in situations where you wanted to extract/create a gzip data stream that is embedded in a larger file, without having to resort to opening and closing the file multiple times. It also made it impossible to pass a perl filehandle that wasn't associated with a real filesystem file, like, say, an C<IO::String>. In C<Compress::Zlib> version 2.x, the C<gzopen> interface has been completely rewritten to use the L<IO::Compress::Gzip|IO::Compress::Gzip> for writing gzip files and L<IO::Uncompress::Gunzip|IO::Uncompress::Gunzip> for reading gzip files. None of the limitations mentioned above apply. =item 3 Addition of C<gzseek> to provide a restricted C<seek> interface. =item 4. Added C<gztell>. =back A more complete and flexible interface for reading/writing gzip files/buffers is included with the module C<IO-Compress-Zlib>. See L<IO::Compress::Gzip|IO::Compress::Gzip> and L<IO::Uncompress::Gunzip|IO::Uncompress::Gunzip> for more details. =over 5 =item B<$gz = gzopen($filename, $mode)> =item B<$gz = gzopen($filehandle, $mode)> This function opens either the I<gzip> file C<$filename> for reading or writing or attaches to the opened filehandle, C<$filehandle>. It returns an object on success and C<undef> on failure. When writing a gzip file this interface will I<always> create the smallest possible gzip header (exactly 10 bytes). If you want greater control over what gets stored in the gzip header (like the original filename or a comment) use L<IO::Compress::Gzip|IO::Compress::Gzip> instead. Similarly if you want to read the contents of the gzip header use L<IO::Uncompress::Gunzip|IO::Uncompress::Gunzip>. The second parameter, C<$mode>, is used to specify whether the file is opened for reading or writing and to optionally specify a compression level and compression strategy when writing. The format of the C<$mode> parameter is similar to the mode parameter to the 'C' function C<fopen>, so "rb" is used to open for reading, "wb" for writing and "ab" for appending (writing at the end of the file). To specify a compression level when writing, append a digit between 0 and 9 to the mode string -- 0 means no compression and 9 means maximum compression. If no compression level is specified Z_DEFAULT_COMPRESSION is used. To specify the compression strategy when writing, append 'f' for filtered data, 'h' for Huffman only compression, or 'R' for run-length encoding. If no strategy is specified Z_DEFAULT_STRATEGY is used. So, for example, "wb9" means open for writing with the maximum compression using the default strategy and "wb4R" means open for writing with compression level 4 and run-length encoding. Refer to the I<zlib> documentation for the exact format of the C<$mode> parameter. =item B<$bytesread = $gz-E<gt>gzread($buffer [, $size]) ;> Reads C<$size> bytes from the compressed file into C<$buffer>. If C<$size> is not specified, it will default to 4096. If the scalar C<$buffer> is not large enough, it will be extended automatically. Returns the number of bytes actually read. On EOF it returns 0 and in the case of an error, -1. =item B<$bytesread = $gz-E<gt>gzreadline($line) ;> Reads the next line from the compressed file into C<$line>. Returns the number of bytes actually read. On EOF it returns 0 and in the case of an error, -1. It is legal to intermix calls to C<gzread> and C<gzreadline>. To maintain backward compatibility with version 1.x of this module C<gzreadline> ignores the C<$/> variable - it I<always> uses the string C<"\n"> as the line delimiter. If you want to read a gzip file a line at a time and have it respect the C<$/> variable (or C<$INPUT_RECORD_SEPARATOR>, or C<$RS> when C<English> is in use) see L<IO::Uncompress::Gunzip|IO::Uncompress::Gunzip>. =item B<$byteswritten = $gz-E<gt>gzwrite($buffer) ;> Writes the contents of C<$buffer> to the compressed file. Returns the number of bytes actually written, or 0 on error. =item B<$status = $gz-E<gt>gzflush($flush_type) ;> Flushes all pending output into the compressed file. This method takes an optional parameter, C<$flush_type>, that controls how the flushing will be carried out. By default the C<$flush_type> used is C<Z_FINISH>. Other valid values for C<$flush_type> are C<Z_NO_FLUSH>, C<Z_SYNC_FLUSH>, C<Z_FULL_FLUSH> and C<Z_BLOCK>. It is strongly recommended that you only set the C<flush_type> parameter if you fully understand the implications of what it does - overuse of C<flush> can seriously degrade the level of compression achieved. See the C<zlib> documentation for details. Returns 0 on success. =item B<$offset = $gz-E<gt>gztell() ;> Returns the uncompressed file offset. =item B<$status = $gz-E<gt>gzseek($offset, $whence) ;> Provides a sub-set of the C<seek> functionality, with the restriction that it is only legal to seek forward in the compressed file. It is a fatal error to attempt to seek backward. When opened for writing, empty parts of the file will have NULL (0x00) bytes written to them. The C<$whence> parameter should be one of SEEK_SET, SEEK_CUR or SEEK_END. Returns 1 on success, 0 on failure. =item B<$gz-E<gt>gzclose> Closes the compressed file. Any pending data is flushed to the file before it is closed. Returns 0 on success. =item B<$gz-E<gt>gzsetparams($level, $strategy> Change settings for the deflate stream C<$gz>. The list of the valid options is shown below. Options not specified will remain unchanged. Note: This method is only available if you are running zlib 1.0.6 or better. =over 5 =item B<$level> Defines the compression level. Valid values are 0 through 9, C<Z_NO_COMPRESSION>, C<Z_BEST_SPEED>, C<Z_BEST_COMPRESSION>, and C<Z_DEFAULT_COMPRESSION>. =item B<$strategy> Defines the strategy used to tune the compression. The valid values are C<Z_DEFAULT_STRATEGY>, C<Z_FILTERED> and C<Z_HUFFMAN_ONLY>. =back =item B<$gz-E<gt>gzerror> Returns the I<zlib> error message or number for the last operation associated with C<$gz>. The return value will be the I<zlib> error number when used in a numeric context and the I<zlib> error message when used in a string context. The I<zlib> error number constants, shown below, are available for use. Z_OK Z_STREAM_END Z_ERRNO Z_STREAM_ERROR Z_DATA_ERROR Z_MEM_ERROR Z_BUF_ERROR =item B<$gzerrno> The C<$gzerrno> scalar holds the error code associated with the most recent I<gzip> routine. Note that unlike C<gzerror()>, the error is I<not> associated with a particular file. As with C<gzerror()> it returns an error number in numeric context and an error message in string context. Unlike C<gzerror()> though, the error message will correspond to the I<zlib> message when the error is associated with I<zlib> itself, or the UNIX error message when it is not (i.e. I<zlib> returned C<Z_ERRORNO>). As there is an overlap between the error numbers used by I<zlib> and UNIX, C<$gzerrno> should only be used to check for the presence of I<an> error in numeric context. Use C<gzerror()> to check for specific I<zlib> errors. The I<gzcat> example below shows how the variable can be used safely. =back =head2 Examples Here is an example script which uses the interface. It implements a I<gzcat> function. use strict ; use warnings ; use Compress::Zlib ; # use stdin if no files supplied @ARGV = '-' unless @ARGV ; foreach my $file (@ARGV) { my $buffer ; my $gz = gzopen($file, "rb") or die "Cannot open $file: $gzerrno\n" ; print $buffer while $gz->gzread($buffer) > 0 ; die "Error reading from $file: $gzerrno" . ($gzerrno+0) . "\n" if $gzerrno != Z_STREAM_END ; $gz->gzclose() ; } Below is a script which makes use of C<gzreadline>. It implements a very simple I<grep> like script. use strict ; use warnings ; use Compress::Zlib ; die "Usage: gzgrep pattern [file...]\n" unless @ARGV >= 1; my $pattern = shift ; # use stdin if no files supplied @ARGV = '-' unless @ARGV ; foreach my $file (@ARGV) { my $gz = gzopen($file, "rb") or die "Cannot open $file: $gzerrno\n" ; while ($gz->gzreadline($_) > 0) { print if /$pattern/ ; } die "Error reading from $file: $gzerrno\n" if $gzerrno != Z_STREAM_END ; $gz->gzclose() ; } This script, I<gzstream>, does the opposite of the I<gzcat> script above. It reads from standard input and writes a gzip data stream to standard output. use strict ; use warnings ; use Compress::Zlib ; binmode STDOUT; # gzopen only sets it on the fd my $gz = gzopen(\*STDOUT, "wb") or die "Cannot open stdout: $gzerrno\n" ; while (<>) { $gz->gzwrite($_) or die "error writing: $gzerrno\n" ; } $gz->gzclose ; =head2 Compress::Zlib::memGzip This function is used to create an in-memory gzip file with the minimum possible gzip header (exactly 10 bytes). $dest = Compress::Zlib::memGzip($buffer) or die "Cannot compress: $gzerrno\n"; If successful, it returns the in-memory gzip file. Otherwise it returns C<undef> and the C<$gzerrno> variable will store the zlib error code. The C<$buffer> parameter can either be a scalar or a scalar reference. See L<IO::Compress::Gzip|IO::Compress::Gzip> for an alternative way to carry out in-memory gzip compression. =head2 Compress::Zlib::memGunzip This function is used to uncompress an in-memory gzip file. $dest = Compress::Zlib::memGunzip($buffer) or die "Cannot uncompress: $gzerrno\n"; If successful, it returns the uncompressed gzip file. Otherwise it returns C<undef> and the C<$gzerrno> variable will store the zlib error code. The C<$buffer> parameter can either be a scalar or a scalar reference. The contents of the C<$buffer> parameter are destroyed after calling this function. If C<$buffer> consists of multiple concatenated gzip data streams only the first will be uncompressed. Use C<gunzip> with the C<MultiStream> option in the C<IO::Uncompress::Gunzip> module if you need to deal with concatenated data streams. See L<IO::Uncompress::Gunzip|IO::Uncompress::Gunzip> for an alternative way to carry out in-memory gzip uncompression. =head1 COMPRESS/UNCOMPRESS Two functions are provided to perform in-memory compression/uncompression of RFC 1950 data streams. They are called C<compress> and C<uncompress>. =over 5 =item B<$dest = compress($source [, $level] ) ;> Compresses C<$source>. If successful it returns the compressed data. Otherwise it returns I<undef>. The source buffer, C<$source>, can either be a scalar or a scalar reference. The C<$level> parameter defines the compression level. Valid values are 0 through 9, C<Z_NO_COMPRESSION>, C<Z_BEST_SPEED>, C<Z_BEST_COMPRESSION>, and C<Z_DEFAULT_COMPRESSION>. If C<$level> is not specified C<Z_DEFAULT_COMPRESSION> will be used. =item B<$dest = uncompress($source) ;> Uncompresses C<$source>. If successful it returns the uncompressed data. Otherwise it returns I<undef>. The source buffer can either be a scalar or a scalar reference. =back Please note: the two functions defined above are I<not> compatible with the Unix commands of the same name. See L<IO::Deflate|IO::Deflate> and L<IO::Inflate|IO::Inflate> included with this distribution for an alternative interface for reading/writing RFC 1950 files/buffers. =head1 Deflate Interface This section defines an interface that allows in-memory compression using the I<deflate> interface provided by zlib. Here is a definition of the interface available: =head2 B<($d, $status) = deflateInit( [OPT] )> Initialises a deflation stream. It combines the features of the I<zlib> functions C<deflateInit>, C<deflateInit2> and C<deflateSetDictionary>. If successful, it will return the initialised deflation stream, C<$d> and C<$status> of C<Z_OK> in a list context. In scalar context it returns the deflation stream, C<$d>, only. If not successful, the returned deflation stream (C<$d>) will be I<undef> and C<$status> will hold the exact I<zlib> error code. The function optionally takes a number of named options specified as C<< -Name=>value >> pairs. This allows individual options to be tailored without having to specify them all in the parameter list. For backward compatibility, it is also possible to pass the parameters as a reference to a hash containing the name=>value pairs. The function takes one optional parameter, a reference to a hash. The contents of the hash allow the deflation interface to be tailored. Here is a list of the valid options: =over 5 =item B<-Level> Defines the compression level. Valid values are 0 through 9, C<Z_NO_COMPRESSION>, C<Z_BEST_SPEED>, C<Z_BEST_COMPRESSION>, and C<Z_DEFAULT_COMPRESSION>. The default is Z_DEFAULT_COMPRESSION. =item B<-Method> Defines the compression method. The only valid value at present (and the default) is Z_DEFLATED. =item B<-WindowBits> To create an RFC 1950 data stream, set C<WindowBits> to a positive number. To create an RFC 1951 data stream, set C<WindowBits> to C<-MAX_WBITS>. For a full definition of the meaning and valid values for C<WindowBits> refer to the I<zlib> documentation for I<deflateInit2>. Defaults to MAX_WBITS. =item B<-MemLevel> For a definition of the meaning and valid values for C<MemLevel> refer to the I<zlib> documentation for I<deflateInit2>. Defaults to MAX_MEM_LEVEL. =item B<-Strategy> Defines the strategy used to tune the compression. The valid values are C<Z_DEFAULT_STRATEGY>, C<Z_FILTERED> and C<Z_HUFFMAN_ONLY>. The default is Z_DEFAULT_STRATEGY. =item B<-Dictionary> When a dictionary is specified I<Compress::Zlib> will automatically call C<deflateSetDictionary> directly after calling C<deflateInit>. The Adler32 value for the dictionary can be obtained by calling the method C<< $d->dict_adler() >>. The default is no dictionary. =item B<-Bufsize> Sets the initial size for the deflation buffer. If the buffer has to be reallocated to increase the size, it will grow in increments of C<Bufsize>. The default is 4096. =back Here is an example of using the C<deflateInit> optional parameter list to override the default buffer size and compression level. All other options will take their default values. deflateInit( -Bufsize => 300, -Level => Z_BEST_SPEED ) ; =head2 B<($out, $status) = $d-E<gt>deflate($buffer)> Deflates the contents of C<$buffer>. The buffer can either be a scalar or a scalar reference. When finished, C<$buffer> will be completely processed (assuming there were no errors). If the deflation was successful it returns the deflated output, C<$out>, and a status value, C<$status>, of C<Z_OK>. On error, C<$out> will be I<undef> and C<$status> will contain the I<zlib> error code. In a scalar context C<deflate> will return C<$out> only. As with the I<deflate> function in I<zlib>, it is not necessarily the case that any output will be produced by this method. So don't rely on the fact that C<$out> is empty for an error test. =head2 B<($out, $status) = $d-E<gt>flush()> =head2 B<($out, $status) = $d-E<gt>flush($flush_type)> Typically used to finish the deflation. Any pending output will be returned via C<$out>. C<$status> will have a value C<Z_OK> if successful. In a scalar context C<flush> will return C<$out> only. Note that flushing can seriously degrade the compression ratio, so it should only be used to terminate a decompression (using C<Z_FINISH>) or when you want to create a I<full flush point> (using C<Z_FULL_FLUSH>). By default the C<flush_type> used is C<Z_FINISH>. Other valid values for C<flush_type> are C<Z_NO_FLUSH>, C<Z_PARTIAL_FLUSH>, C<Z_SYNC_FLUSH> and C<Z_FULL_FLUSH>. It is strongly recommended that you only set the C<flush_type> parameter if you fully understand the implications of what it does. See the C<zlib> documentation for details. =head2 B<$status = $d-E<gt>deflateParams([OPT])> Change settings for the deflate stream C<$d>. The list of the valid options is shown below. Options not specified will remain unchanged. =over 5 =item B<-Level> Defines the compression level. Valid values are 0 through 9, C<Z_NO_COMPRESSION>, C<Z_BEST_SPEED>, C<Z_BEST_COMPRESSION>, and C<Z_DEFAULT_COMPRESSION>. =item B<-Strategy> Defines the strategy used to tune the compression. The valid values are C<Z_DEFAULT_STRATEGY>, C<Z_FILTERED> and C<Z_HUFFMAN_ONLY>. =back =head2 B<$d-E<gt>dict_adler()> Returns the adler32 value for the dictionary. =head2 B<$d-E<gt>msg()> Returns the last error message generated by zlib. =head2 B<$d-E<gt>total_in()> Returns the total number of bytes uncompressed bytes input to deflate. =head2 B<$d-E<gt>total_out()> Returns the total number of compressed bytes output from deflate. =head2 Example Here is a trivial example of using C<deflate>. It simply reads standard input, deflates it and writes it to standard output. use strict ; use warnings ; use Compress::Zlib ; binmode STDIN; binmode STDOUT; my $x = deflateInit() or die "Cannot create a deflation stream\n" ; my ($output, $status) ; while (<>) { ($output, $status) = $x->deflate($_) ; $status == Z_OK or die "deflation failed\n" ; print $output ; } ($output, $status) = $x->flush() ; $status == Z_OK or die "deflation failed\n" ; print $output ; =head1 Inflate Interface This section defines the interface available that allows in-memory uncompression using the I<deflate> interface provided by zlib. Here is a definition of the interface: =head2 B<($i, $status) = inflateInit()> Initialises an inflation stream. In a list context it returns the inflation stream, C<$i>, and the I<zlib> status code in C<$status>. In a scalar context it returns the inflation stream only. If successful, C<$i> will hold the inflation stream and C<$status> will be C<Z_OK>. If not successful, C<$i> will be I<undef> and C<$status> will hold the I<zlib> error code. The function optionally takes a number of named options specified as C<< -Name=>value >> pairs. This allows individual options to be tailored without having to specify them all in the parameter list. For backward compatibility, it is also possible to pass the parameters as a reference to a hash containing the name=>value pairs. The function takes one optional parameter, a reference to a hash. The contents of the hash allow the deflation interface to be tailored. Here is a list of the valid options: =over 5 =item B<-WindowBits> To uncompress an RFC 1950 data stream, set C<WindowBits> to a positive number. To uncompress an RFC 1951 data stream, set C<WindowBits> to C<-MAX_WBITS>. For a full definition of the meaning and valid values for C<WindowBits> refer to the I<zlib> documentation for I<inflateInit2>. Defaults to MAX_WBITS. =item B<-Bufsize> Sets the initial size for the inflation buffer. If the buffer has to be reallocated to increase the size, it will grow in increments of C<Bufsize>. Default is 4096. =item B<-Dictionary> The default is no dictionary. =back Here is an example of using the C<inflateInit> optional parameter to override the default buffer size. inflateInit( -Bufsize => 300 ) ; =head2 B<($out, $status) = $i-E<gt>inflate($buffer)> Inflates the complete contents of C<$buffer>. The buffer can either be a scalar or a scalar reference. Returns C<Z_OK> if successful and C<Z_STREAM_END> if the end of the compressed data has been successfully reached. If not successful, C<$out> will be I<undef> and C<$status> will hold the I<zlib> error code. The C<$buffer> parameter is modified by C<inflate>. On completion it will contain what remains of the input buffer after inflation. This means that C<$buffer> will be an empty string when the return status is C<Z_OK>. When the return status is C<Z_STREAM_END> the C<$buffer> parameter will contains what (if anything) was stored in the input buffer after the deflated data stream. This feature is useful when processing a file format that encapsulates a compressed data stream (e.g. gzip, zip). =head2 B<$status = $i-E<gt>inflateSync($buffer)> Scans C<$buffer> until it reaches either a I<full flush point> or the end of the buffer. If a I<full flush point> is found, C<Z_OK> is returned and C<$buffer> will be have all data up to the flush point removed. This can then be passed to the C<deflate> method. Any other return code means that a flush point was not found. If more data is available, C<inflateSync> can be called repeatedly with more compressed data until the flush point is found. =head2 B<$i-E<gt>dict_adler()> Returns the adler32 value for the dictionary. =head2 B<$i-E<gt>msg()> Returns the last error message generated by zlib. =head2 B<$i-E<gt>total_in()> Returns the total number of bytes compressed bytes input to inflate. =head2 B<$i-E<gt>total_out()> Returns the total number of uncompressed bytes output from inflate. =head2 Example Here is an example of using C<inflate>. use strict ; use warnings ; use Compress::Zlib ; my $x = inflateInit() or die "Cannot create a inflation stream\n" ; my $input = '' ; binmode STDIN; binmode STDOUT; my ($output, $status) ; while (read(STDIN, $input, 4096)) { ($output, $status) = $x->inflate(\$input) ; print $output if $status == Z_OK or $status == Z_STREAM_END ; last if $status != Z_OK ; } die "inflation failed\n" unless $status == Z_STREAM_END ; =head1 CHECKSUM FUNCTIONS Two functions are provided by I<zlib> to calculate checksums. For the Perl interface, the order of the two parameters in both functions has been reversed. This allows both running checksums and one off calculations to be done. $crc = adler32($buffer [,$crc]) ; $crc = crc32($buffer [,$crc]) ; The buffer parameters can either be a scalar or a scalar reference. If the $crc parameters is C<undef>, the crc value will be reset. If you have built this module with zlib 1.2.3 or better, two more CRC-related functions are available. $crc = crc32_combine($crc1, $crc2, $len2); $adler = adler32_combine($adler1, $adler2, $len2); These functions allow checksums to be merged. Refer to the I<zlib> documentation for more details. =head1 Misc =head2 my $version = Compress::Zlib::zlib_version(); Returns the version of the zlib library. =head1 CONSTANTS All the I<zlib> constants are automatically imported when you make use of I<Compress::Zlib>. =head1 SUPPORT General feedback/questions/bug reports should be sent to L<https://github.com/pmqs/IO-Compress/issues> (preferred) or L<https://rt.cpan.org/Public/Dist/Display.html?Name=IO-Compress>. =head1 SEE ALSO L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzip>, L<IO::Uncompress::UnLzip>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Compress::Zstd>, L<IO::Uncompress::UnZstd>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress> L<IO::Compress::FAQ|IO::Compress::FAQ> L<File::GlobMapper|File::GlobMapper>, L<Archive::Zip|Archive::Zip>, L<Archive::Tar|Archive::Tar>, L<IO::Zlib|IO::Zlib> For RFC 1950, 1951 and 1952 see L<http://www.faqs.org/rfcs/rfc1950.html>, L<http://www.faqs.org/rfcs/rfc1951.html> and L<http://www.faqs.org/rfcs/rfc1952.html> The I<zlib> compression library was written by Jean-loup Gailly C<gzip@prep.ai.mit.edu> and Mark Adler C<madler@alumni.caltech.edu>. The primary site for the I<zlib> compression library is L<http://www.zlib.org>. The primary site for gzip is L<http://www.gzip.org>. =head1 AUTHOR This module was written by Paul Marquess, C<pmqs@cpan.org>. =head1 MODIFICATION HISTORY See the Changes file. =head1 COPYRIGHT AND LICENSE Copyright (c) 1995-2021 Paul Marquess. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. PK ! ��l+� � 5.34.0/integer.pmnu �[��� package integer; our $VERSION = '1.01'; =head1 NAME integer - Perl pragma to use integer arithmetic instead of floating point =head1 SYNOPSIS use integer; $x = 10/3; # $x is now 3, not 3.33333333333333333 =head1 DESCRIPTION This tells the compiler to use integer operations from here to the end of the enclosing BLOCK. On many machines, this doesn't matter a great deal for most computations, but on those without floating point hardware, it can make a big difference in performance. Note that this only affects how most of the arithmetic and relational B<operators> handle their operands and results, and B<not> how all numbers everywhere are treated. Specifically, C<use integer;> has the effect that before computing the results of the arithmetic operators (+, -, *, /, %, +=, -=, *=, /=, %=, and unary minus), the comparison operators (<, <=, >, >=, ==, !=, <=>), and the bitwise operators (|, &, ^, <<, >>, |=, &=, ^=, <<=, >>=), the operands have their fractional portions truncated (or floored), and the result will have its fractional portion truncated as well. In addition, the range of operands and results is restricted to that of familiar two's complement integers, i.e., -(2**31) .. (2**31-1) on 32-bit architectures, and -(2**63) .. (2**63-1) on 64-bit architectures. For example, this code use integer; $x = 5.8; $y = 2.5; $z = 2.7; $a = 2**31 - 1; # Largest positive integer on 32-bit machines $, = ", "; print $x, -$x, $x+$y, $x-$y, $x/$y, $x*$y, $y==$z, $a, $a+1; will print: 5.8, -5, 7, 3, 2, 10, 1, 2147483647, -2147483648 Note that $x is still printed as having its true non-integer value of 5.8 since it wasn't operated on. And note too the wrap-around from the largest positive integer to the largest negative one. Also, arguments passed to functions and the values returned by them are B<not> affected by C<use integer;>. E.g., srand(1.5); $, = ", "; print sin(.5), cos(.5), atan2(1,2), sqrt(2), rand(10); will give the same result with or without C<use integer;> The power operator C<**> is also not affected, so that 2 ** .5 is always the square root of 2. Now, it so happens that the pre- and post- increment and decrement operators, ++ and --, are not affected by C<use integer;> either. Some may rightly consider this to be a bug -- but at least it's a long-standing one. Finally, C<use integer;> also has an additional affect on the bitwise operators. Normally, the operands and results are treated as B<unsigned> integers, but with C<use integer;> the operands and results are B<signed>. This means, among other things, that ~0 is -1, and -2 & -5 is -6. Internally, native integer arithmetic (as provided by your C compiler) is used. This means that Perl's own semantics for arithmetic operations may not be preserved. One common source of trouble is the modulus of negative numbers, which Perl does one way, but your hardware may do another. % perl -le 'print (4 % -3)' -2 % perl -Minteger -le 'print (4 % -3)' 1 See L<perlmodlib/"Pragmatic Modules">, L<perlop/"Integer Arithmetic"> =cut $integer::hint_bits = 0x1; sub import { $^H |= $integer::hint_bits; } sub unimport { $^H &= ~$integer::hint_bits; } 1; PK ! ���e� e� 5.34.0/overload.pmnu �[��� package overload; use strict; no strict 'refs'; our $VERSION = '1.33'; our %ops = ( with_assign => "+ - * / % ** << >> x .", assign => "+= -= *= /= %= **= <<= >>= x= .=", num_comparison => "< <= > >= == !=", '3way_comparison' => "<=> cmp", str_comparison => "lt le gt ge eq ne", binary => '& &= | |= ^ ^= &. &.= |. |.= ^. ^.=', unary => "neg ! ~ ~.", mutators => '++ --', func => "atan2 cos sin exp abs log sqrt int", conversion => 'bool "" 0+ qr', iterators => '<>', filetest => "-X", dereferencing => '${} @{} %{} &{} *{}', matching => '~~', special => 'nomethod fallback =', ); my %ops_seen; @ops_seen{ map split(/ /), values %ops } = (); sub nil {} sub OVERLOAD { my $package = shift; my %arg = @_; my $sub; *{$package . "::(("} = \&nil; # Make it findable via fetchmethod. for (keys %arg) { if ($_ eq 'fallback') { for my $sym (*{$package . "::()"}) { *$sym = \&nil; # Make it findable via fetchmethod. $$sym = $arg{$_}; } } else { warnings::warnif("overload arg '$_' is invalid") unless exists $ops_seen{$_}; $sub = $arg{$_}; if (not ref $sub) { $ {$package . "::(" . $_} = $sub; $sub = \&nil; } #print STDERR "Setting '$ {'package'}::\cO$_' to \\&'$sub'.\n"; *{$package . "::(" . $_} = \&{ $sub }; } } } sub import { my $package = (caller())[0]; # *{$package . "::OVERLOAD"} = \&OVERLOAD; shift; $package->overload::OVERLOAD(@_); } sub unimport { my $package = (caller())[0]; shift; *{$package . "::(("} = \&nil; for (@_) { warnings::warnif("overload arg '$_' is invalid") unless exists $ops_seen{$_}; delete $ {$package . "::"}{$_ eq 'fallback' ? '()' : "(" .$_}; } } sub Overloaded { my $package = shift; $package = ref $package if ref $package; mycan ($package, '()') || mycan ($package, '(('); } sub ov_method { my $globref = shift; return undef unless $globref; my $sub = \&{*$globref}; no overloading; return $sub if $sub != \&nil; return shift->can($ {*$globref}); } sub OverloadedStringify { my $package = shift; $package = ref $package if ref $package; #$package->can('(""') ov_method mycan($package, '(""'), $package or ov_method mycan($package, '(0+'), $package or ov_method mycan($package, '(bool'), $package or ov_method mycan($package, '(nomethod'), $package; } sub Method { my $package = shift; if(ref $package) { local $@; local $!; require Scalar::Util; $package = Scalar::Util::blessed($package); return undef if !defined $package; } #my $meth = $package->can('(' . shift); ov_method mycan($package, '(' . shift), $package; #return $meth if $meth ne \&nil; #return $ {*{$meth}}; } sub AddrRef { no overloading; "$_[0]"; } *StrVal = *AddrRef; sub mycan { # Real can would leave stubs. my ($package, $meth) = @_; local $@; local $!; require mro; my $mro = mro::get_linear_isa($package); foreach my $p (@$mro) { my $fqmeth = $p . q{::} . $meth; return \*{$fqmeth} if defined &{$fqmeth}; } return undef; } my %constants = ( 'integer' => 0x1000, # HINT_NEW_INTEGER 'float' => 0x2000, # HINT_NEW_FLOAT 'binary' => 0x4000, # HINT_NEW_BINARY 'q' => 0x8000, # HINT_NEW_STRING 'qr' => 0x10000, # HINT_NEW_RE ); use warnings::register; sub constant { # Arguments: what, sub while (@_) { if (@_ == 1) { warnings::warnif ("Odd number of arguments for overload::constant"); last; } elsif (!exists $constants {$_ [0]}) { warnings::warnif ("'$_[0]' is not an overloadable type"); } elsif (!ref $_ [1] || "$_[1]" !~ /(^|=)CODE\(0x[0-9a-f]+\)$/) { # Can't use C<ref $_[1] eq "CODE"> above as code references can be # blessed, and C<ref> would return the package the ref is blessed into. if (warnings::enabled) { $_ [1] = "undef" unless defined $_ [1]; warnings::warn ("'$_[1]' is not a code reference"); } } else { $^H{$_[0]} = $_[1]; $^H |= $constants{$_[0]}; } shift, shift; } } sub remove_constant { # Arguments: what, sub while (@_) { delete $^H{$_[0]}; $^H &= ~ $constants{$_[0]}; shift, shift; } } 1; __END__ =head1 NAME overload - Package for overloading Perl operations =head1 SYNOPSIS package SomeThing; use overload '+' => \&myadd, '-' => \&mysub; # etc ... package main; $a = SomeThing->new( 57 ); $b = 5 + $a; ... if (overload::Overloaded $b) {...} ... $strval = overload::StrVal $b; =head1 DESCRIPTION This pragma allows overloading of Perl's operators for a class. To overload built-in functions, see L<perlsub/Overriding Built-in Functions> instead. =head2 Fundamentals =head3 Declaration Arguments of the C<use overload> directive are (key, value) pairs. For the full set of legal keys, see L</Overloadable Operations> below. Operator implementations (the values) can be subroutines, references to subroutines, or anonymous subroutines - in other words, anything legal inside a C<&{ ... }> call. Values specified as strings are interpreted as method names. Thus package Number; use overload "-" => "minus", "*=" => \&muas, '""' => sub { ...; }; declares that subtraction is to be implemented by method C<minus()> in the class C<Number> (or one of its base classes), and that the function C<Number::muas()> is to be used for the assignment form of multiplication, C<*=>. It also defines an anonymous subroutine to implement stringification: this is called whenever an object blessed into the package C<Number> is used in a string context (this subroutine might, for example, return the number as a Roman numeral). =head3 Calling Conventions and Magic Autogeneration The following sample implementation of C<minus()> (which assumes that C<Number> objects are simply blessed references to scalars) illustrates the calling conventions: package Number; sub minus { my ($self, $other, $swap) = @_; my $result = $$self - $other; # * $result = -$result if $swap; ref $result ? $result : bless \$result; } # * may recurse once - see table below Three arguments are passed to all subroutines specified in the C<use overload> directive (with exceptions - see below, particularly L</nomethod>). The first of these is the operand providing the overloaded operator implementation - in this case, the object whose C<minus()> method is being called. The second argument is the other operand, or C<undef> in the case of a unary operator. The third argument is set to TRUE if (and only if) the two operands have been swapped. Perl may do this to ensure that the first argument (C<$self>) is an object implementing the overloaded operation, in line with general object calling conventions. For example, if C<$x> and C<$y> are C<Number>s: operation | generates a call to ============|====================== $x - $y | minus($x, $y, '') $x - 7 | minus($x, 7, '') 7 - $x | minus($x, 7, 1) Perl may also use C<minus()> to implement other operators which have not been specified in the C<use overload> directive, according to the rules for L</Magic Autogeneration> described later. For example, the C<use overload> above declared no subroutine for any of the operators C<-->, C<neg> (the overload key for unary minus), or C<-=>. Thus operation | generates a call to ============|====================== -$x | minus($x, 0, 1) $x-- | minus($x, 1, undef) $x -= 3 | minus($x, 3, undef) Note the C<undef>s: where autogeneration results in the method for a standard operator which does not change either of its operands, such as C<->, being used to implement an operator which changes the operand ("mutators": here, C<--> and C<-=>), Perl passes undef as the third argument. This still evaluates as FALSE, consistent with the fact that the operands have not been swapped, but gives the subroutine a chance to alter its behaviour in these cases. In all the above examples, C<minus()> is required only to return the result of the subtraction: Perl takes care of the assignment to $x. In fact, such methods should I<not> modify their operands, even if C<undef> is passed as the third argument (see L</Overloadable Operations>). The same is not true of implementations of C<++> and C<-->: these are expected to modify their operand. An appropriate implementation of C<--> might look like use overload '--' => "decr", # ... sub decr { --${$_[0]}; } If the "bitwise" feature is enabled (see L<feature>), a fifth TRUE argument is passed to subroutines handling C<&>, C<|>, C<^> and C<~>. This indicates that the caller is expecting numeric behaviour. The fourth argument will be C<undef>, as that position (C<$_[3]>) is reserved for use by L</nomethod>. =head3 Mathemagic, Mutators, and Copy Constructors The term 'mathemagic' describes the overloaded implementation of mathematical operators. Mathemagical operations raise an issue. Consider the code: $a = $b; --$a; If C<$a> and C<$b> are scalars then after these statements $a == $b - 1 An object, however, is a reference to blessed data, so if C<$a> and C<$b> are objects then the assignment C<$a = $b> copies only the reference, leaving C<$a> and C<$b> referring to the same object data. One might therefore expect the operation C<--$a> to decrement C<$b> as well as C<$a>. However, this would not be consistent with how we expect the mathematical operators to work. Perl resolves this dilemma by transparently calling a copy constructor before calling a method defined to implement a mutator (C<-->, C<+=>, and so on.). In the above example, when Perl reaches the decrement statement, it makes a copy of the object data in C<$a> and assigns to C<$a> a reference to the copied data. Only then does it call C<decr()>, which alters the copied data, leaving C<$b> unchanged. Thus the object metaphor is preserved as far as possible, while mathemagical operations still work according to the arithmetic metaphor. Note: the preceding paragraph describes what happens when Perl autogenerates the copy constructor for an object based on a scalar. For other cases, see L</Copy Constructor>. =head2 Overloadable Operations The complete list of keys that can be specified in the C<use overload> directive are given, separated by spaces, in the values of the hash C<%overload::ops>: with_assign => '+ - * / % ** << >> x .', assign => '+= -= *= /= %= **= <<= >>= x= .=', num_comparison => '< <= > >= == !=', '3way_comparison'=> '<=> cmp', str_comparison => 'lt le gt ge eq ne', binary => '& &= | |= ^ ^= &. &.= |. |.= ^. ^.=', unary => 'neg ! ~ ~.', mutators => '++ --', func => 'atan2 cos sin exp abs log sqrt int', conversion => 'bool "" 0+ qr', iterators => '<>', filetest => '-X', dereferencing => '${} @{} %{} &{} *{}', matching => '~~', special => 'nomethod fallback =' Most of the overloadable operators map one-to-one to these keys. Exceptions, including additional overloadable operations not apparent from this hash, are included in the notes which follow. This list is subject to growth over time. A warning is issued if an attempt is made to register an operator not found above. =over 5 =item * C<not> The operator C<not> is not a valid key for C<use overload>. However, if the operator C<!> is overloaded then the same implementation will be used for C<not> (since the two operators differ only in precedence). =item * C<neg> The key C<neg> is used for unary minus to disambiguate it from binary C<->. =item * C<++>, C<--> Assuming they are to behave analogously to Perl's C<++> and C<-->, overloaded implementations of these operators are required to mutate their operands. No distinction is made between prefix and postfix forms of the increment and decrement operators: these differ only in the point at which Perl calls the associated subroutine when evaluating an expression. =item * I<Assignments> += -= *= /= %= **= <<= >>= x= .= &= |= ^= &.= |.= ^.= Simple assignment is not overloadable (the C<'='> key is used for the L</Copy Constructor>). Perl does have a way to make assignments to an object do whatever you want, but this involves using tie(), not overload - see L<perlfunc/tie> and the L</COOKBOOK> examples below. The subroutine for the assignment variant of an operator is required only to return the result of the operation. It is permitted to change the value of its operand (this is safe because Perl calls the copy constructor first), but this is optional since Perl assigns the returned value to the left-hand operand anyway. An object that overloads an assignment operator does so only in respect of assignments to that object. In other words, Perl never calls the corresponding methods with the third argument (the "swap" argument) set to TRUE. For example, the operation $a *= $b cannot lead to C<$b>'s implementation of C<*=> being called, even if C<$a> is a scalar. (It can, however, generate a call to C<$b>'s method for C<*>). =item * I<Non-mutators with a mutator variant> + - * / % ** << >> x . & | ^ &. |. ^. As described L<above|"Calling Conventions and Magic Autogeneration">, Perl may call methods for operators like C<+> and C<&> in the course of implementing missing operations like C<++>, C<+=>, and C<&=>. While these methods may detect this usage by testing the definedness of the third argument, they should in all cases avoid changing their operands. This is because Perl does not call the copy constructor before invoking these methods. =item * C<int> Traditionally, the Perl function C<int> rounds to 0 (see L<perlfunc/int>), and so for floating-point-like types one should follow the same semantic. =item * I<String, numeric, boolean, and regexp conversions> "" 0+ bool These conversions are invoked according to context as necessary. For example, the subroutine for C<'""'> (stringify) may be used where the overloaded object is passed as an argument to C<print>, and that for C<'bool'> where it is tested in the condition of a flow control statement (like C<while>) or the ternary C<?:> operation. Of course, in contexts like, for example, C<$obj + 1>, Perl will invoke C<$obj>'s implementation of C<+> rather than (in this example) converting C<$obj> to a number using the numify method C<'0+'> (an exception to this is when no method has been provided for C<'+'> and L</fallback> is set to TRUE). The subroutines for C<'""'>, C<'0+'>, and C<'bool'> can return any arbitrary Perl value. If the corresponding operation for this value is overloaded too, the operation will be called again with this value. As a special case if the overload returns the object itself then it will be used directly. An overloaded conversion returning the object is probably a bug, because you're likely to get something that looks like C<YourPackage=HASH(0x8172b34)>. qr The subroutine for C<'qr'> is used wherever the object is interpolated into or used as a regexp, including when it appears on the RHS of a C<=~> or C<!~> operator. C<qr> must return a compiled regexp, or a ref to a compiled regexp (such as C<qr//> returns), and any further overloading on the return value will be ignored. =item * I<Iteration> If C<E<lt>E<gt>> is overloaded then the same implementation is used for both the I<read-filehandle> syntax C<E<lt>$varE<gt>> and I<globbing> syntax C<E<lt>${var}E<gt>>. =item * I<File tests> The key C<'-X'> is used to specify a subroutine to handle all the filetest operators (C<-f>, C<-x>, and so on: see L<perlfunc/-X> for the full list); it is not possible to overload any filetest operator individually. To distinguish them, the letter following the '-' is passed as the second argument (that is, in the slot that for binary operators is used to pass the second operand). Calling an overloaded filetest operator does not affect the stat value associated with the special filehandle C<_>. It still refers to the result of the last C<stat>, C<lstat> or unoverloaded filetest. This overload was introduced in Perl 5.12. =item * I<Matching> The key C<"~~"> allows you to override the smart matching logic used by the C<~~> operator and the switch construct (C<given>/C<when>). See L<perlsyn/Switch Statements> and L<feature>. Unusually, the overloaded implementation of the smart match operator does not get full control of the smart match behaviour. In particular, in the following code: package Foo; use overload '~~' => 'match'; my $obj = Foo->new(); $obj ~~ [ 1,2,3 ]; the smart match does I<not> invoke the method call like this: $obj->match([1,2,3],0); rather, the smart match distributive rule takes precedence, so $obj is smart matched against each array element in turn until a match is found, so you may see between one and three of these calls instead: $obj->match(1,0); $obj->match(2,0); $obj->match(3,0); Consult the match table in L<perlop/"Smartmatch Operator"> for details of when overloading is invoked. =item * I<Dereferencing> ${} @{} %{} &{} *{} If these operators are not explicitly overloaded then they work in the normal way, yielding the underlying scalar, array, or whatever stores the object data (or the appropriate error message if the dereference operator doesn't match it). Defining a catch-all C<'nomethod'> (see L<below|/nomethod>) makes no difference to this as the catch-all function will not be called to implement a missing dereference operator. If a dereference operator is overloaded then it must return a I<reference> of the appropriate type (for example, the subroutine for key C<'${}'> should return a reference to a scalar, not a scalar), or another object which overloads the operator: that is, the subroutine only determines what is dereferenced and the actual dereferencing is left to Perl. As a special case, if the subroutine returns the object itself then it will not be called again - avoiding infinite recursion. =item * I<Special> nomethod fallback = See L</Special Keys for C<use overload>>. =back =head2 Magic Autogeneration If a method for an operation is not found then Perl tries to autogenerate a substitute implementation from the operations that have been defined. Note: the behaviour described in this section can be disabled by setting C<fallback> to FALSE (see L</fallback>). In the following tables, numbers indicate priority. For example, the table below states that, if no implementation for C<'!'> has been defined then Perl will implement it using C<'bool'> (that is, by inverting the value returned by the method for C<'bool'>); if boolean conversion is also unimplemented then Perl will use C<'0+'> or, failing that, C<'""'>. operator | can be autogenerated from | | 0+ "" bool . x =========|========================== 0+ | 1 2 "" | 1 2 bool | 1 2 int | 1 2 3 ! | 2 3 1 qr | 2 1 3 . | 2 1 3 x | 2 1 3 .= | 3 2 4 1 x= | 3 2 4 1 <> | 2 1 3 -X | 2 1 3 Note: The iterator (C<'E<lt>E<gt>'>) and file test (C<'-X'>) operators work as normal: if the operand is not a blessed glob or IO reference then it is converted to a string (using the method for C<'""'>, C<'0+'>, or C<'bool'>) to be interpreted as a glob or filename. operator | can be autogenerated from | | < <=> neg -= - =========|========================== neg | 1 -= | 1 -- | 1 2 abs | a1 a2 b1 b2 [*] < | 1 <= | 1 > | 1 >= | 1 == | 1 != | 1 * one from [a1, a2] and one from [b1, b2] Just as numeric comparisons can be autogenerated from the method for C<< '<=>' >>, string comparisons can be autogenerated from that for C<'cmp'>: operators | can be autogenerated from ====================|=========================== lt gt le ge eq ne | cmp Similarly, autogeneration for keys C<'+='> and C<'++'> is analogous to C<'-='> and C<'--'> above: operator | can be autogenerated from | | += + =========|========================== += | 1 ++ | 1 2 And other assignment variations are analogous to C<'+='> and C<'-='> (and similar to C<'.='> and C<'x='> above): operator || *= /= %= **= <<= >>= &= ^= |= &.= ^.= |.= -------------------||------------------------------------------- autogenerated from || * / % ** << >> & ^ | &. ^. |. Note also that the copy constructor (key C<'='>) may be autogenerated, but only for objects based on scalars. See L</Copy Constructor>. =head3 Minimal Set of Overloaded Operations Since some operations can be automatically generated from others, there is a minimal set of operations that need to be overloaded in order to have the complete set of overloaded operations at one's disposal. Of course, the autogenerated operations may not do exactly what the user expects. The minimal set is: + - * / % ** << >> x <=> cmp & | ^ ~ &. |. ^. ~. atan2 cos sin exp log sqrt int "" 0+ bool ~~ Of the conversions, only one of string, boolean or numeric is needed because each can be generated from either of the other two. =head2 Special Keys for C<use overload> =head3 C<nomethod> The C<'nomethod'> key is used to specify a catch-all function to be called for any operator that is not individually overloaded. The specified function will be passed four parameters. The first three arguments coincide with those that would have been passed to the corresponding method if it had been defined. The fourth argument is the C<use overload> key for that missing method. If the "bitwise" feature is enabled (see L<feature>), a fifth TRUE argument is passed to subroutines handling C<&>, C<|>, C<^> and C<~> to indicate that the caller is expecting numeric behaviour. For example, if C<$a> is an object blessed into a package declaring use overload 'nomethod' => 'catch_all', # ... then the operation 3 + $a could (unless a method is specifically declared for the key C<'+'>) result in a call catch_all($a, 3, 1, '+') See L</How Perl Chooses an Operator Implementation>. =head3 C<fallback> The value assigned to the key C<'fallback'> tells Perl how hard it should try to find an alternative way to implement a missing operator. =over =item * defined, but FALSE use overload "fallback" => 0, # ... ; This disables L</Magic Autogeneration>. =item * C<undef> In the default case where no value is explicitly assigned to C<fallback>, magic autogeneration is enabled. =item * TRUE The same as for C<undef>, but if a missing operator cannot be autogenerated then, instead of issuing an error message, Perl is allowed to revert to what it would have done for that operator if there had been no C<use overload> directive. Note: in most cases, particularly the L</Copy Constructor>, this is unlikely to be appropriate behaviour. =back See L</How Perl Chooses an Operator Implementation>. =head3 Copy Constructor As mentioned L<above|"Mathemagic, Mutators, and Copy Constructors">, this operation is called when a mutator is applied to a reference that shares its object with some other reference. For example, if C<$b> is mathemagical, and C<'++'> is overloaded with C<'incr'>, and C<'='> is overloaded with C<'clone'>, then the code $a = $b; # ... (other code which does not modify $a or $b) ... ++$b; would be executed in a manner equivalent to $a = $b; # ... $b = $b->clone(undef, ""); $b->incr(undef, ""); Note: =over =item * The subroutine for C<'='> does not overload the Perl assignment operator: it is used only to allow mutators to work as described here. (See L</Assignments> above.) =item * As for other operations, the subroutine implementing '=' is passed three arguments, though the last two are always C<undef> and C<''>. =item * The copy constructor is called only before a call to a function declared to implement a mutator, for example, if C<++$b;> in the code above is effected via a method declared for key C<'++'> (or 'nomethod', passed C<'++'> as the fourth argument) or, by autogeneration, C<'+='>. It is not called if the increment operation is effected by a call to the method for C<'+'> since, in the equivalent code, $a = $b; $b = $b + 1; the data referred to by C<$a> is unchanged by the assignment to C<$b> of a reference to new object data. =item * The copy constructor is not called if Perl determines that it is unnecessary because there is no other reference to the data being modified. =item * If C<'fallback'> is undefined or TRUE then a copy constructor can be autogenerated, but only for objects based on scalars. In other cases it needs to be defined explicitly. Where an object's data is stored as, for example, an array of scalars, the following might be appropriate: use overload '=' => sub { bless [ @{$_[0]} ] }, # ... =item * If C<'fallback'> is TRUE and no copy constructor is defined then, for objects not based on scalars, Perl may silently fall back on simple assignment - that is, assignment of the object reference. In effect, this disables the copy constructor mechanism since no new copy of the object data is created. This is almost certainly not what you want. (It is, however, consistent: for example, Perl's fallback for the C<++> operator is to increment the reference itself.) =back =head2 How Perl Chooses an Operator Implementation Which is checked first, C<nomethod> or C<fallback>? If the two operands of an operator are of different types and both overload the operator, which implementation is used? The following are the precedence rules: =over =item 1. If the first operand has declared a subroutine to overload the operator then use that implementation. =item 2. Otherwise, if fallback is TRUE or undefined for the first operand then see if the L<rules for autogeneration|"Magic Autogeneration"> allows another of its operators to be used instead. =item 3. Unless the operator is an assignment (C<+=>, C<-=>, etc.), repeat step (1) in respect of the second operand. =item 4. Repeat Step (2) in respect of the second operand. =item 5. If the first operand has a "nomethod" method then use that. =item 6. If the second operand has a "nomethod" method then use that. =item 7. If C<fallback> is TRUE for both operands then perform the usual operation for the operator, treating the operands as numbers, strings, or booleans as appropriate for the operator (see note). =item 8. Nothing worked - die. =back Where there is only one operand (or only one operand with overloading) the checks in respect of the other operand above are skipped. There are exceptions to the above rules for dereference operations (which, if Step 1 fails, always fall back to the normal, built-in implementations - see Dereferencing), and for C<~~> (which has its own set of rules - see C<Matching> under L</Overloadable Operations> above). Note on Step 7: some operators have a different semantic depending on the type of their operands. As there is no way to instruct Perl to treat the operands as, e.g., numbers instead of strings, the result here may not be what you expect. See L</BUGS AND PITFALLS>. =head2 Losing Overloading The restriction for the comparison operation is that even if, for example, C<cmp> should return a blessed reference, the autogenerated C<lt> function will produce only a standard logical value based on the numerical value of the result of C<cmp>. In particular, a working numeric conversion is needed in this case (possibly expressed in terms of other conversions). Similarly, C<.=> and C<x=> operators lose their mathemagical properties if the string conversion substitution is applied. When you chop() a mathemagical object it is promoted to a string and its mathemagical properties are lost. The same can happen with other operations as well. =head2 Inheritance and Overloading Overloading respects inheritance via the @ISA hierarchy. Inheritance interacts with overloading in two ways. =over =item Method names in the C<use overload> directive If C<value> in use overload key => value; is a string, it is interpreted as a method name - which may (in the usual way) be inherited from another class. =item Overloading of an operation is inherited by derived classes Any class derived from an overloaded class is also overloaded and inherits its operator implementations. If the same operator is overloaded in more than one ancestor then the implementation is determined by the usual inheritance rules. For example, if C<A> inherits from C<B> and C<C> (in that order), C<B> overloads C<+> with C<\&D::plus_sub>, and C<C> overloads C<+> by C<"plus_meth">, then the subroutine C<D::plus_sub> will be called to implement operation C<+> for an object in package C<A>. =back Note that in Perl version prior to 5.18 inheritance of the C<fallback> key was not governed by the above rules. The value of C<fallback> in the first overloaded ancestor was used. This was fixed in 5.18 to follow the usual rules of inheritance. =head2 Run-time Overloading Since all C<use> directives are executed at compile-time, the only way to change overloading during run-time is to eval 'use overload "+" => \&addmethod'; You can also use eval 'no overload "+", "--", "<="'; though the use of these constructs during run-time is questionable. =head2 Public Functions Package C<overload.pm> provides the following public functions: =over 5 =item overload::StrVal(arg) Gives the string value of C<arg> as in the absence of stringify overloading. If you are using this to get the address of a reference (useful for checking if two references point to the same thing) then you may be better off using C<Scalar::Util::refaddr()>, which is faster. =item overload::Overloaded(arg) Returns true if C<arg> is subject to overloading of some operations. =item overload::Method(obj,op) Returns C<undef> or a reference to the method that implements C<op>. =back =head2 Overloading Constants For some applications, the Perl parser mangles constants too much. It is possible to hook into this process via C<overload::constant()> and C<overload::remove_constant()> functions. These functions take a hash as an argument. The recognized keys of this hash are: =over 8 =item integer to overload integer constants, =item float to overload floating point constants, =item binary to overload octal and hexadecimal constants, =item q to overload C<q>-quoted strings, constant pieces of C<qq>- and C<qx>-quoted strings and here-documents, =item qr to overload constant pieces of regular expressions. =back The corresponding values are references to functions which take three arguments: the first one is the I<initial> string form of the constant, the second one is how Perl interprets this constant, the third one is how the constant is used. Note that the initial string form does not contain string delimiters, and has backslashes in backslash-delimiter combinations stripped (thus the value of delimiter is not relevant for processing of this string). The return value of this function is how this constant is going to be interpreted by Perl. The third argument is undefined unless for overloaded C<q>- and C<qr>- constants, it is C<q> in single-quote context (comes from strings, regular expressions, and single-quote HERE documents), it is C<tr> for arguments of C<tr>/C<y> operators, it is C<s> for right-hand side of C<s>-operator, and it is C<qq> otherwise. Since an expression C<"ab$cd,,"> is just a shortcut for C<'ab' . $cd . ',,'>, it is expected that overloaded constant strings are equipped with reasonable overloaded catenation operator, otherwise absurd results will result. Similarly, negative numbers are considered as negations of positive constants. Note that it is probably meaningless to call the functions overload::constant() and overload::remove_constant() from anywhere but import() and unimport() methods. From these methods they may be called as sub import { shift; return unless @_; die "unknown import: @_" unless @_ == 1 and $_[0] eq ':constant'; overload::constant integer => sub {Math::BigInt->new(shift)}; } =head1 IMPLEMENTATION What follows is subject to change RSN. The table of methods for all operations is cached in magic for the symbol table hash for the package. The cache is invalidated during processing of C<use overload>, C<no overload>, new function definitions, and changes in @ISA. (Every SVish thing has a magic queue, and magic is an entry in that queue. This is how a single variable may participate in multiple forms of magic simultaneously. For instance, environment variables regularly have two forms at once: their %ENV magic and their taint magic. However, the magic which implements overloading is applied to the stashes, which are rarely used directly, thus should not slow down Perl.) If a package uses overload, it carries a special flag. This flag is also set when new functions are defined or @ISA is modified. There will be a slight speed penalty on the very first operation thereafter that supports overloading, while the overload tables are updated. If there is no overloading present, the flag is turned off. Thus the only speed penalty thereafter is the checking of this flag. It is expected that arguments to methods that are not explicitly supposed to be changed are constant (but this is not enforced). =head1 COOKBOOK Please add examples to what follows! =head2 Two-face Scalars Put this in F<two_face.pm> in your Perl library directory: package two_face; # Scalars with separate string and # numeric values. sub new { my $p = shift; bless [@_], $p } use overload '""' => \&str, '0+' => \&num, fallback => 1; sub num {shift->[1]} sub str {shift->[0]} Use it as follows: require two_face; my $seven = two_face->new("vii", 7); printf "seven=$seven, seven=%d, eight=%d\n", $seven, $seven+1; print "seven contains 'i'\n" if $seven =~ /i/; (The second line creates a scalar which has both a string value, and a numeric value.) This prints: seven=vii, seven=7, eight=8 seven contains 'i' =head2 Two-face References Suppose you want to create an object which is accessible as both an array reference and a hash reference. package two_refs; use overload '%{}' => \&gethash, '@{}' => sub { $ {shift()} }; sub new { my $p = shift; bless \ [@_], $p; } sub gethash { my %h; my $self = shift; tie %h, ref $self, $self; \%h; } sub TIEHASH { my $p = shift; bless \ shift, $p } my %fields; my $i = 0; $fields{$_} = $i++ foreach qw{zero one two three}; sub STORE { my $self = ${shift()}; my $key = $fields{shift()}; defined $key or die "Out of band access"; $$self->[$key] = shift; } sub FETCH { my $self = ${shift()}; my $key = $fields{shift()}; defined $key or die "Out of band access"; $$self->[$key]; } Now one can access an object using both the array and hash syntax: my $bar = two_refs->new(3,4,5,6); $bar->[2] = 11; $bar->{two} == 11 or die 'bad hash fetch'; Note several important features of this example. First of all, the I<actual> type of $bar is a scalar reference, and we do not overload the scalar dereference. Thus we can get the I<actual> non-overloaded contents of $bar by just using C<$$bar> (what we do in functions which overload dereference). Similarly, the object returned by the TIEHASH() method is a scalar reference. Second, we create a new tied hash each time the hash syntax is used. This allows us not to worry about a possibility of a reference loop, which would lead to a memory leak. Both these problems can be cured. Say, if we want to overload hash dereference on a reference to an object which is I<implemented> as a hash itself, the only problem one has to circumvent is how to access this I<actual> hash (as opposed to the I<virtual> hash exhibited by the overloaded dereference operator). Here is one possible fetching routine: sub access_hash { my ($self, $key) = (shift, shift); my $class = ref $self; bless $self, 'overload::dummy'; # Disable overloading of %{} my $out = $self->{$key}; bless $self, $class; # Restore overloading $out; } To remove creation of the tied hash on each access, one may an extra level of indirection which allows a non-circular structure of references: package two_refs1; use overload '%{}' => sub { ${shift()}->[1] }, '@{}' => sub { ${shift()}->[0] }; sub new { my $p = shift; my $a = [@_]; my %h; tie %h, $p, $a; bless \ [$a, \%h], $p; } sub gethash { my %h; my $self = shift; tie %h, ref $self, $self; \%h; } sub TIEHASH { my $p = shift; bless \ shift, $p } my %fields; my $i = 0; $fields{$_} = $i++ foreach qw{zero one two three}; sub STORE { my $a = ${shift()}; my $key = $fields{shift()}; defined $key or die "Out of band access"; $a->[$key] = shift; } sub FETCH { my $a = ${shift()}; my $key = $fields{shift()}; defined $key or die "Out of band access"; $a->[$key]; } Now if $baz is overloaded like this, then C<$baz> is a reference to a reference to the intermediate array, which keeps a reference to an actual array, and the access hash. The tie()ing object for the access hash is a reference to a reference to the actual array, so =over =item * There are no loops of references. =item * Both "objects" which are blessed into the class C<two_refs1> are references to a reference to an array, thus references to a I<scalar>. Thus the accessor expression C<$$foo-E<gt>[$ind]> involves no overloaded operations. =back =head2 Symbolic Calculator Put this in F<symbolic.pm> in your Perl library directory: package symbolic; # Primitive symbolic calculator use overload nomethod => \&wrap; sub new { shift; bless ['n', @_] } sub wrap { my ($obj, $other, $inv, $meth) = @_; ($obj, $other) = ($other, $obj) if $inv; bless [$meth, $obj, $other]; } This module is very unusual as overloaded modules go: it does not provide any usual overloaded operators, instead it provides an implementation for C<L</nomethod>>. In this example the C<nomethod> subroutine returns an object which encapsulates operations done over the objects: C<< symbolic->new(3) >> contains C<['n', 3]>, C<< 2 + symbolic->new(3) >> contains C<['+', 2, ['n', 3]]>. Here is an example of the script which "calculates" the side of circumscribed octagon using the above package: require symbolic; my $iter = 1; # 2**($iter+2) = 8 my $side = symbolic->new(1); my $cnt = $iter; while ($cnt--) { $side = (sqrt(1 + $side**2) - 1)/$side; } print "OK\n"; The value of $side is ['/', ['-', ['sqrt', ['+', 1, ['**', ['n', 1], 2]], undef], 1], ['n', 1]] Note that while we obtained this value using a nice little script, there is no simple way to I<use> this value. In fact this value may be inspected in debugger (see L<perldebug>), but only if C<bareStringify> B<O>ption is set, and not via C<p> command. If one attempts to print this value, then the overloaded operator C<""> will be called, which will call C<nomethod> operator. The result of this operator will be stringified again, but this result is again of type C<symbolic>, which will lead to an infinite loop. Add a pretty-printer method to the module F<symbolic.pm>: sub pretty { my ($meth, $a, $b) = @{+shift}; $a = 'u' unless defined $a; $b = 'u' unless defined $b; $a = $a->pretty if ref $a; $b = $b->pretty if ref $b; "[$meth $a $b]"; } Now one can finish the script by print "side = ", $side->pretty, "\n"; The method C<pretty> is doing object-to-string conversion, so it is natural to overload the operator C<""> using this method. However, inside such a method it is not necessary to pretty-print the I<components> $a and $b of an object. In the above subroutine C<"[$meth $a $b]"> is a catenation of some strings and components $a and $b. If these components use overloading, the catenation operator will look for an overloaded operator C<.>; if not present, it will look for an overloaded operator C<"">. Thus it is enough to use use overload nomethod => \&wrap, '""' => \&str; sub str { my ($meth, $a, $b) = @{+shift}; $a = 'u' unless defined $a; $b = 'u' unless defined $b; "[$meth $a $b]"; } Now one can change the last line of the script to print "side = $side\n"; which outputs side = [/ [- [sqrt [+ 1 [** [n 1 u] 2]] u] 1] [n 1 u]] and one can inspect the value in debugger using all the possible methods. Something is still amiss: consider the loop variable $cnt of the script. It was a number, not an object. We cannot make this value of type C<symbolic>, since then the loop will not terminate. Indeed, to terminate the cycle, the $cnt should become false. However, the operator C<bool> for checking falsity is overloaded (this time via overloaded C<"">), and returns a long string, thus any object of type C<symbolic> is true. To overcome this, we need a way to compare an object to 0. In fact, it is easier to write a numeric conversion routine. Here is the text of F<symbolic.pm> with such a routine added (and slightly modified str()): package symbolic; # Primitive symbolic calculator use overload nomethod => \&wrap, '""' => \&str, '0+' => \# sub new { shift; bless ['n', @_] } sub wrap { my ($obj, $other, $inv, $meth) = @_; ($obj, $other) = ($other, $obj) if $inv; bless [$meth, $obj, $other]; } sub str { my ($meth, $a, $b) = @{+shift}; $a = 'u' unless defined $a; if (defined $b) { "[$meth $a $b]"; } else { "[$meth $a]"; } } my %subr = ( n => sub {$_[0]}, sqrt => sub {sqrt $_[0]}, '-' => sub {shift() - shift()}, '+' => sub {shift() + shift()}, '/' => sub {shift() / shift()}, '*' => sub {shift() * shift()}, '**' => sub {shift() ** shift()}, ); sub num { my ($meth, $a, $b) = @{+shift}; my $subr = $subr{$meth} or die "Do not know how to ($meth) in symbolic"; $a = $a->num if ref $a eq __PACKAGE__; $b = $b->num if ref $b eq __PACKAGE__; $subr->($a,$b); } All the work of numeric conversion is done in %subr and num(). Of course, %subr is not complete, it contains only operators used in the example below. Here is the extra-credit question: why do we need an explicit recursion in num()? (Answer is at the end of this section.) Use this module like this: require symbolic; my $iter = symbolic->new(2); # 16-gon my $side = symbolic->new(1); my $cnt = $iter; while ($cnt) { $cnt = $cnt - 1; # Mutator '--' not implemented $side = (sqrt(1 + $side**2) - 1)/$side; } printf "%s=%f\n", $side, $side; printf "pi=%f\n", $side*(2**($iter+2)); It prints (without so many line breaks) [/ [- [sqrt [+ 1 [** [/ [- [sqrt [+ 1 [** [n 1] 2]]] 1] [n 1]] 2]]] 1] [/ [- [sqrt [+ 1 [** [n 1] 2]]] 1] [n 1]]]=0.198912 pi=3.182598 The above module is very primitive. It does not implement mutator methods (C<++>, C<-=> and so on), does not do deep copying (not required without mutators!), and implements only those arithmetic operations which are used in the example. To implement most arithmetic operations is easy; one should just use the tables of operations, and change the code which fills %subr to my %subr = ( 'n' => sub {$_[0]} ); foreach my $op (split " ", $overload::ops{with_assign}) { $subr{$op} = $subr{"$op="} = eval "sub {shift() $op shift()}"; } my @bins = qw(binary 3way_comparison num_comparison str_comparison); foreach my $op (split " ", "@overload::ops{ @bins }") { $subr{$op} = eval "sub {shift() $op shift()}"; } foreach my $op (split " ", "@overload::ops{qw(unary func)}") { print "defining '$op'\n"; $subr{$op} = eval "sub {$op shift()}"; } Since subroutines implementing assignment operators are not required to modify their operands (see L</Overloadable Operations> above), we do not need anything special to make C<+=> and friends work, besides adding these operators to %subr and defining a copy constructor (needed since Perl has no way to know that the implementation of C<'+='> does not mutate the argument - see L</Copy Constructor>). To implement a copy constructor, add C<< '=' => \&cpy >> to C<use overload> line, and code (this code assumes that mutators change things one level deep only, so recursive copying is not needed): sub cpy { my $self = shift; bless [@$self], ref $self; } To make C<++> and C<--> work, we need to implement actual mutators, either directly, or in C<nomethod>. We continue to do things inside C<nomethod>, thus add if ($meth eq '++' or $meth eq '--') { @$obj = ($meth, (bless [@$obj]), 1); # Avoid circular reference return $obj; } after the first line of wrap(). This is not a most effective implementation, one may consider sub inc { $_[0] = bless ['++', shift, 1]; } instead. As a final remark, note that one can fill %subr by my %subr = ( 'n' => sub {$_[0]} ); foreach my $op (split " ", $overload::ops{with_assign}) { $subr{$op} = $subr{"$op="} = eval "sub {shift() $op shift()}"; } my @bins = qw(binary 3way_comparison num_comparison str_comparison); foreach my $op (split " ", "@overload::ops{ @bins }") { $subr{$op} = eval "sub {shift() $op shift()}"; } foreach my $op (split " ", "@overload::ops{qw(unary func)}") { $subr{$op} = eval "sub {$op shift()}"; } $subr{'++'} = $subr{'+'}; $subr{'--'} = $subr{'-'}; This finishes implementation of a primitive symbolic calculator in 50 lines of Perl code. Since the numeric values of subexpressions are not cached, the calculator is very slow. Here is the answer for the exercise: In the case of str(), we need no explicit recursion since the overloaded C<.>-operator will fall back to an existing overloaded operator C<"">. Overloaded arithmetic operators I<do not> fall back to numeric conversion if C<fallback> is not explicitly requested. Thus without an explicit recursion num() would convert C<['+', $a, $b]> to C<$a + $b>, which would just rebuild the argument of num(). If you wonder why defaults for conversion are different for str() and num(), note how easy it was to write the symbolic calculator. This simplicity is due to an appropriate choice of defaults. One extra note: due to the explicit recursion num() is more fragile than sym(): we need to explicitly check for the type of $a and $b. If components $a and $b happen to be of some related type, this may lead to problems. =head2 I<Really> Symbolic Calculator One may wonder why we call the above calculator symbolic. The reason is that the actual calculation of the value of expression is postponed until the value is I<used>. To see it in action, add a method sub STORE { my $obj = shift; $#$obj = 1; @$obj->[0,1] = ('=', shift); } to the package C<symbolic>. After this change one can do my $a = symbolic->new(3); my $b = symbolic->new(4); my $c = sqrt($a**2 + $b**2); and the numeric value of $c becomes 5. However, after calling $a->STORE(12); $b->STORE(5); the numeric value of $c becomes 13. There is no doubt now that the module symbolic provides a I<symbolic> calculator indeed. To hide the rough edges under the hood, provide a tie()d interface to the package C<symbolic>. Add methods sub TIESCALAR { my $pack = shift; $pack->new(@_) } sub FETCH { shift } sub nop { } # Around a bug (the bug, fixed in Perl 5.14, is described in L<"BUGS">). One can use this new interface as tie $a, 'symbolic', 3; tie $b, 'symbolic', 4; $a->nop; $b->nop; # Around a bug my $c = sqrt($a**2 + $b**2); Now numeric value of $c is 5. After C<$a = 12; $b = 5> the numeric value of $c becomes 13. To insulate the user of the module add a method sub vars { my $p = shift; tie($_, $p), $_->nop foreach @_; } Now my ($a, $b); symbolic->vars($a, $b); my $c = sqrt($a**2 + $b**2); $a = 3; $b = 4; printf "c5 %s=%f\n", $c, $c; $a = 12; $b = 5; printf "c13 %s=%f\n", $c, $c; shows that the numeric value of $c follows changes to the values of $a and $b. =head1 AUTHOR Ilya Zakharevich E<lt>F<ilya@math.mps.ohio-state.edu>E<gt>. =head1 SEE ALSO The C<overloading> pragma can be used to enable or disable overloaded operations within a lexical scope - see L<overloading>. =head1 DIAGNOSTICS When Perl is run with the B<-Do> switch or its equivalent, overloading induces diagnostic messages. Using the C<m> command of Perl debugger (see L<perldebug>) one can deduce which operations are overloaded (and which ancestor triggers this overloading). Say, if C<eq> is overloaded, then the method C<(eq> is shown by debugger. The method C<()> corresponds to the C<fallback> key (in fact a presence of this method shows that this package has overloading enabled, and it is what is used by the C<Overloaded> function of module C<overload>). The module might issue the following warnings: =over 4 =item Odd number of arguments for overload::constant (W) The call to overload::constant contained an odd number of arguments. The arguments should come in pairs. =item '%s' is not an overloadable type (W) You tried to overload a constant type the overload package is unaware of. =item '%s' is not a code reference (W) The second (fourth, sixth, ...) argument of overload::constant needs to be a code reference. Either an anonymous subroutine, or a reference to a subroutine. =item overload arg '%s' is invalid (W) C<use overload> was passed an argument it did not recognize. Did you mistype an operator? =back =head1 BUGS AND PITFALLS =over =item * A pitfall when fallback is TRUE and Perl resorts to a built-in implementation of an operator is that some operators have more than one semantic, for example C<|>: use overload '0+' => sub { $_[0]->{n}; }, fallback => 1; my $x = bless { n => 4 }, "main"; my $y = bless { n => 8 }, "main"; print $x | $y, "\n"; You might expect this to output "12". In fact, it prints "<": the ASCII result of treating "|" as a bitwise string operator - that is, the result of treating the operands as the strings "4" and "8" rather than numbers. The fact that numify (C<0+>) is implemented but stringify (C<"">) isn't makes no difference since the latter is simply autogenerated from the former. The only way to change this is to provide your own subroutine for C<'|'>. =item * Magic autogeneration increases the potential for inadvertently creating self-referential structures. Currently Perl will not free self-referential structures until cycles are explicitly broken. For example, use overload '+' => 'add'; sub add { bless [ \$_[0], \$_[1] ] }; is asking for trouble, since $obj += $y; will effectively become $obj = add($obj, $y, undef); with the same result as $obj = [\$obj, \$foo]; Even if no I<explicit> assignment-variants of operators are present in the script, they may be generated by the optimizer. For example, "obj = $obj\n" may be optimized to my $tmp = 'obj = ' . $obj; $tmp .= "\n"; =item * The symbol table is filled with names looking like line-noise. =item * This bug was fixed in Perl 5.18, but may still trip you up if you are using older versions: For the purpose of inheritance every overloaded package behaves as if C<fallback> is present (possibly undefined). This may create interesting effects if some package is not overloaded, but inherits from two overloaded packages. =item * Before Perl 5.14, the relation between overloading and tie()ing was broken. Overloading was triggered or not based on the I<previous> class of the tie()d variable. This happened because the presence of overloading was checked too early, before any tie()d access was attempted. If the class of the value FETCH()ed from the tied variable does not change, a simple workaround for code that is to run on older Perl versions is to access the value (via C<() = $foo> or some such) immediately after tie()ing, so that after this call the I<previous> class coincides with the current one. =item * Barewords are not covered by overloaded string constants. =item * The range operator C<..> cannot be overloaded. =back =cut PK ! �QZ= 5.34.0/locale.pmnu �[��� package locale; use strict; use warnings; our $VERSION = '1.10'; use Config; $Carp::Internal{ (__PACKAGE__) } = 1; =head1 NAME locale - Perl pragma to use or avoid POSIX locales for built-in operations =head1 WARNING DO NOT USE this pragma in scripts that have multiple L<threads|threads> active. The locale is not local to a single thread. Another thread may change the locale at any time, which could cause at a minimum that a given thread is operating in a locale it isn't expecting to be in. On some platforms, segfaults can also occur. The locale change need not be explicit; some operations cause perl to change the locale itself. You are vulnerable simply by having done a C<"use locale">. =head1 SYNOPSIS @x = sort @y; # Native-platform/Unicode code point sort order { use locale; @x = sort @y; # Locale-defined sort order } @x = sort @y; # Native-platform/Unicode code point sort order # again =head1 DESCRIPTION This pragma tells the compiler to enable (or disable) the use of POSIX locales for built-in operations (for example, LC_CTYPE for regular expressions, LC_COLLATE for string comparison, and LC_NUMERIC for number formatting). Each "use locale" or "no locale" affects statements to the end of the enclosing BLOCK. See L<perllocale> for more detailed information on how Perl supports locales. On systems that don't have locales, this pragma will cause your operations to behave as if in the "C" locale; attempts to change the locale will fail. =cut # A separate bit is used for each of the two forms of the pragma, to save # having to look at %^H for the normal case of a plain 'use locale' without an # argument. $locale::hint_bits = 0x4; $locale::partial_hint_bits = 0x10; # If pragma has an argument # The pseudo-category :characters consists of 2 real ones; but it also is # given its own number, -1, because in the complement form it also has the # side effect of "use feature 'unicode_strings'" sub import { shift; # should be 'locale'; not checked $^H{locale} = 0 unless defined $^H{locale}; if (! @_) { # If no parameter, use the plain form that changes all categories $^H |= $locale::hint_bits; } else { my @categories = ( qw(:ctype :collate :messages :numeric :monetary :time) ); for (my $i = 0; $i < @_; $i++) { my $arg = $_[$i]; my $complement = $arg =~ s/ : ( ! | not_ ) /:/x; if (! grep { $arg eq $_ } @categories, ":characters") { require Carp; Carp::croak("Unknown parameter '$_[$i]' to 'use locale'"); } if ($complement) { if ($i != 0 || $i < @_ - 1) { require Carp; Carp::croak("Only one argument to 'use locale' allowed" . "if is $complement"); } if ($arg eq ':characters') { push @_, grep { $_ ne ':ctype' && $_ ne ':collate' } @categories; # We add 1 to the category number; This category number # is -1 $^H{locale} |= (1 << 0); } else { push @_, grep { $_ ne $arg } @categories; } next; } elsif ($arg eq ':characters') { push @_, ':ctype', ':collate'; next; } $^H |= $locale::partial_hint_bits; # This form of the pragma overrides the other $^H &= ~$locale::hint_bits; $arg =~ s/^://; eval { require POSIX; import POSIX 'locale_h'; }; # Map our names to the ones defined by POSIX my $LC = "LC_" . uc($arg); my $bit = eval "&POSIX::$LC"; if (defined $bit) { # XXX Should we warn that this category isn't # supported on this platform, or make it # always be the C locale? # Verify our assumption. if (! ($bit >= 0 && $bit < 31)) { require Carp; Carp::croak("Cannot have ':$arg' parameter to 'use locale'" . " on this platform. Use the 'perlbug' utility" . " to report this problem, or send email to" . " 'perlbug\@perl.org'. $LC=$bit"); } # 1 is added so that the pseudo-category :characters, which is # -1, comes out 0. $^H{locale} |= 1 << ($bit + 1); } } } } sub unimport { $^H &= ~($locale::hint_bits|$locale::partial_hint_bits); $^H{locale} = 0; } 1; PK ! �: E E 5.34.0/SelfLoader.pmnu �[��� package SelfLoader; use 5.008; use strict; use IO::Handle; our $VERSION = "1.26"; # The following bit of eval-magic is necessary to make this work on # perls < 5.009005. our $AttrList; BEGIN { if ($] > 5.009004) { eval <<'NEWERPERL'; use 5.009005; # due to new regexp features # allow checking for valid ': attrlist' attachments # see also AutoSplit $AttrList = qr{ \s* : \s* (?: # one attribute (?> # no backtrack (?! \d) \w+ (?<nested> \( (?: [^()]++ | (?&nested)++ )*+ \) ) ? ) (?: \s* : \s* | \s+ (?! :) ) )* }x; NEWERPERL } else { eval <<'OLDERPERL'; # allow checking for valid ': attrlist' attachments # (we use 'our' rather than 'my' here, due to the rather complex and buggy # behaviour of lexicals with qr// and (??{$lex}) ) our $nested; $nested = qr{ \( (?: (?> [^()]+ ) | (??{ $nested }) )* \) }x; our $one_attr = qr{ (?> (?! \d) \w+ (?:$nested)? ) (?:\s*\:\s*|\s+(?!\:)) }x; $AttrList = qr{ \s* : \s* (?: $one_attr )* }x; OLDERPERL } } use Exporter; our @ISA = qw(Exporter); our @EXPORT = qw(AUTOLOAD); sub Version {$VERSION} sub DEBUG () { 0 } my %Cache; # private cache for all SelfLoader's client packages # in croak and carp, protect $@ from "require Carp;" RT #40216 sub croak { { local $@; require Carp; } goto &Carp::croak } sub carp { { local $@; require Carp; } goto &Carp::carp } AUTOLOAD { our $AUTOLOAD; print STDERR "SelfLoader::AUTOLOAD for $AUTOLOAD\n" if DEBUG; my $SL_code = $Cache{$AUTOLOAD}; my $save = $@; # evals in both AUTOLOAD and _load_stubs can corrupt $@ unless ($SL_code) { # Maybe this pack had stubs before __DATA__, and never initialized. # Or, this maybe an automatic DESTROY method call when none exists. $AUTOLOAD =~ m/^(.*)::/; SelfLoader->_load_stubs($1) unless exists $Cache{"${1}::<DATA"}; $SL_code = $Cache{$AUTOLOAD}; $SL_code = "sub $AUTOLOAD { }" if (!$SL_code and $AUTOLOAD =~ m/::DESTROY$/); croak "Undefined subroutine $AUTOLOAD" unless $SL_code; } print STDERR "SelfLoader::AUTOLOAD eval: $SL_code\n" if DEBUG; { no strict; eval $SL_code; } if ($@) { $@ =~ s/ at .*\n//; croak $@; } $@ = $save; defined(&$AUTOLOAD) || die "SelfLoader inconsistency error"; delete $Cache{$AUTOLOAD}; goto &$AUTOLOAD } sub load_stubs { shift->_load_stubs((caller)[0]) } sub _load_stubs { # $endlines is used by Devel::SelfStubber to capture lines after __END__ my($self, $callpack, $endlines) = @_; no strict "refs"; my $fh = \*{"${callpack}::DATA"}; use strict; my $currpack = $callpack; my($line,$name,@lines, @stubs, $protoype); print STDERR "SelfLoader::load_stubs($callpack)\n" if DEBUG; croak("$callpack doesn't contain an __DATA__ token") unless defined fileno($fh); # Protect: fork() shares the file pointer between the parent and the kid if(sysseek($fh, tell($fh), 0)) { open my $nfh, '<&', $fh or croak "reopen: $!";# dup() the fd close $fh or die "close: $!"; # autocloses, but be # paranoid open $fh, '<&', $nfh or croak "reopen2: $!"; # dup() the fd "back" close $nfh or die "close after reopen: $!"; # autocloses, but be # paranoid $fh->untaint; } $Cache{"${currpack}::<DATA"} = 1; # indicate package is cached local($/) = "\n"; while(defined($line = <$fh>) and $line !~ m/^__END__/) { if ($line =~ m/ ^\s* # indentation sub\s+([\w:]+)\s* # 'sub' and sub name ( (?:\([\\\$\@\%\&\*\;]*\))? # optional prototype sigils (?:$AttrList)? # optional attribute list )/x) { push(@stubs, $self->_add_to_cache($name, $currpack, \@lines, $protoype)); $protoype = $2; @lines = ($line); if (index($1,'::') == -1) { # simple sub name $name = "${currpack}::$1"; } else { # sub name with package $name = $1; $name =~ m/^(.*)::/; if (defined(&{"${1}::AUTOLOAD"})) { \&{"${1}::AUTOLOAD"} == \&SelfLoader::AUTOLOAD || die 'SelfLoader Error: attempt to specify Selfloading', " sub $name in non-selfloading module $1"; } else { $self->export($1,'AUTOLOAD'); } } } elsif ($line =~ m/^package\s+([\w:]+)/) { # A package declared push(@stubs, $self->_add_to_cache($name, $currpack, \@lines, $protoype)); $self->_package_defined($line); $name = ''; @lines = (); $currpack = $1; $Cache{"${currpack}::<DATA"} = 1; # indicate package is cached if (defined(&{"${1}::AUTOLOAD"})) { \&{"${1}::AUTOLOAD"} == \&SelfLoader::AUTOLOAD || die 'SelfLoader Error: attempt to specify Selfloading', " package $currpack which already has AUTOLOAD"; } else { $self->export($currpack,'AUTOLOAD'); } } else { push(@lines,$line); } } if (defined($line) && $line =~ /^__END__/) { # __END__ unless ($line =~ /^__END__\s*DATA/) { if ($endlines) { # Devel::SelfStubber would like us to capture the lines after # __END__ so it can write out the entire file @$endlines = <$fh>; } close($fh); } } push(@stubs, $self->_add_to_cache($name, $currpack, \@lines, $protoype)); no strict; eval join('', @stubs) if @stubs; } sub _add_to_cache { my($self,$fullname,$pack,$lines, $protoype) = @_; return () unless $fullname; carp("Redefining sub $fullname") if exists $Cache{$fullname}; $Cache{$fullname} = join('', "\n\#line 1 \"sub $fullname\"\npackage $pack; ", @$lines); #$Cache{$fullname} = join('', "package $pack; ",@$lines); print STDERR "SelfLoader cached $fullname: $Cache{$fullname}" if DEBUG; # return stub to be eval'd defined($protoype) ? "sub $fullname $protoype;" : "sub $fullname;" } sub _package_defined {} 1; __END__ =head1 NAME SelfLoader - load functions only on demand =head1 SYNOPSIS package FOOBAR; use SelfLoader; ... (initializing code) __DATA__ sub {.... =head1 DESCRIPTION This module tells its users that functions in the FOOBAR package are to be autoloaded from after the C<__DATA__> token. See also L<perlsub/"Autoloading">. =head2 The __DATA__ token The C<__DATA__> token tells the perl compiler that the perl code for compilation is finished. Everything after the C<__DATA__> token is available for reading via the filehandle FOOBAR::DATA, where FOOBAR is the name of the current package when the C<__DATA__> token is reached. This works just the same as C<__END__> does in package 'main', but for other modules data after C<__END__> is not automatically retrievable, whereas data after C<__DATA__> is. The C<__DATA__> token is not recognized in versions of perl prior to 5.001m. Note that it is possible to have C<__DATA__> tokens in the same package in multiple files, and that the last C<__DATA__> token in a given package that is encountered by the compiler is the one accessible by the filehandle. This also applies to C<__END__> and main, i.e. if the 'main' program has an C<__END__>, but a module 'require'd (_not_ 'use'd) by that program has a 'package main;' declaration followed by an 'C<__DATA__>', then the C<DATA> filehandle is set to access the data after the C<__DATA__> in the module, _not_ the data after the C<__END__> token in the 'main' program, since the compiler encounters the 'require'd file later. =head2 SelfLoader autoloading The B<SelfLoader> works by the user placing the C<__DATA__> token I<after> perl code which needs to be compiled and run at 'require' time, but I<before> subroutine declarations that can be loaded in later - usually because they may never be called. The B<SelfLoader> will read from the FOOBAR::DATA filehandle to load in the data after C<__DATA__>, and load in any subroutine when it is called. The costs are the one-time parsing of the data after C<__DATA__>, and a load delay for the _first_ call of any autoloaded function. The benefits (hopefully) are a speeded up compilation phase, with no need to load functions which are never used. The B<SelfLoader> will stop reading from C<__DATA__> if it encounters the C<__END__> token - just as you would expect. If the C<__END__> token is present, and is followed by the token DATA, then the B<SelfLoader> leaves the FOOBAR::DATA filehandle open on the line after that token. The B<SelfLoader> exports the C<AUTOLOAD> subroutine to the package using the B<SelfLoader>, and this loads the called subroutine when it is first called. There is no advantage to putting subroutines which will _always_ be called after the C<__DATA__> token. =head2 Autoloading and package lexicals A 'my $pack_lexical' statement makes the variable $pack_lexical local _only_ to the file up to the C<__DATA__> token. Subroutines declared elsewhere _cannot_ see these types of variables, just as if you declared subroutines in the package but in another file, they cannot see these variables. So specifically, autoloaded functions cannot see package lexicals (this applies to both the B<SelfLoader> and the Autoloader). The C<vars> pragma provides an alternative to defining package-level globals that will be visible to autoloaded routines. See the documentation on B<vars> in the pragma section of L<perlmod>. =head2 SelfLoader and AutoLoader The B<SelfLoader> can replace the AutoLoader - just change 'use AutoLoader' to 'use SelfLoader' (though note that the B<SelfLoader> exports the AUTOLOAD function - but if you have your own AUTOLOAD and are using the AutoLoader too, you probably know what you're doing), and the C<__END__> token to C<__DATA__>. You will need perl version 5.001m or later to use this (version 5.001 with all patches up to patch m). There is no need to inherit from the B<SelfLoader>. The B<SelfLoader> works similarly to the AutoLoader, but picks up the subs from after the C<__DATA__> instead of in the 'lib/auto' directory. There is a maintenance gain in not needing to run AutoSplit on the module at installation, and a runtime gain in not needing to keep opening and closing files to load subs. There is a runtime loss in needing to parse the code after the C<__DATA__>. Details of the B<AutoLoader> and another view of these distinctions can be found in that module's documentation. =head2 __DATA__, __END__, and the FOOBAR::DATA filehandle. This section is only relevant if you want to use the C<FOOBAR::DATA> together with the B<SelfLoader>. Data after the C<__DATA__> token in a module is read using the FOOBAR::DATA filehandle. C<__END__> can still be used to denote the end of the C<__DATA__> section if followed by the token DATA - this is supported by the B<SelfLoader>. The C<FOOBAR::DATA> filehandle is left open if an C<__END__> followed by a DATA is found, with the filehandle positioned at the start of the line after the C<__END__> token. If no C<__END__> token is present, or an C<__END__> token with no DATA token on the same line, then the filehandle is closed. The B<SelfLoader> reads from wherever the current position of the C<FOOBAR::DATA> filehandle is, until the EOF or C<__END__>. This means that if you want to use that filehandle (and ONLY if you want to), you should either 1. Put all your subroutine declarations immediately after the C<__DATA__> token and put your own data after those declarations, using the C<__END__> token to mark the end of subroutine declarations. You must also ensure that the B<SelfLoader> reads first by calling 'SelfLoader-E<gt>load_stubs();', or by using a function which is selfloaded; or 2. You should read the C<FOOBAR::DATA> filehandle first, leaving the handle open and positioned at the first line of subroutine declarations. You could conceivably do both. =head2 Classes and inherited methods. For modules which are not classes, this section is not relevant. This section is only relevant if you have methods which could be inherited. A subroutine stub (or forward declaration) looks like sub stub; i.e. it is a subroutine declaration without the body of the subroutine. For modules which are not classes, there is no real need for stubs as far as autoloading is concerned. For modules which ARE classes, and need to handle inherited methods, stubs are needed to ensure that the method inheritance mechanism works properly. You can load the stubs into the module at 'require' time, by adding the statement 'SelfLoader-E<gt>load_stubs();' to the module to do this. The alternative is to put the stubs in before the C<__DATA__> token BEFORE releasing the module, and for this purpose the C<Devel::SelfStubber> module is available. However this does require the extra step of ensuring that the stubs are in the module. If this is done I strongly recommend that this is done BEFORE releasing the module - it should NOT be done at install time in general. =head1 Multiple packages and fully qualified subroutine names Subroutines in multiple packages within the same file are supported - but you should note that this requires exporting the C<SelfLoader::AUTOLOAD> to every package which requires it. This is done automatically by the B<SelfLoader> when it first loads the subs into the cache, but you should really specify it in the initialization before the C<__DATA__> by putting a 'use SelfLoader' statement in each package. Fully qualified subroutine names are also supported. For example, __DATA__ sub foo::bar {23} package baz; sub dob {32} will all be loaded correctly by the B<SelfLoader>, and the B<SelfLoader> will ensure that the packages 'foo' and 'baz' correctly have the B<SelfLoader> C<AUTOLOAD> method when the data after C<__DATA__> is first parsed. =head1 AUTHOR C<SelfLoader> is maintained by the perl5-porters. Please direct any questions to the canonical mailing list. Anything that is applicable to the CPAN release can be sent to its maintainer, though. Author and Maintainer: The Perl5-Porters <perl5-porters@perl.org> Maintainer of the CPAN release: Steffen Mueller <smueller@cpan.org> =head1 COPYRIGHT AND LICENSE This package has been part of the perl core since the first release of perl5. It has been released separately to CPAN so older installations can benefit from bug fixes. This package has the same copyright and license as the perl core: Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 by Larry Wall and others All rights reserved. This program is free software; you can redistribute it and/or modify it under the terms of either: =over 4 =item a) the GNU General Public License as published by the Free Software Foundation; either version 1, or (at your option) any later version, or =item b) the "Artistic License" which comes with this Kit. =back This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See either the GNU General Public License or the Artistic License for more details. You should have received a copy of the Artistic License with this Kit, in the file named "Artistic". If not, I'll be glad to provide one. You should also have received a copy of the GNU General Public License along with this program in the file named "Copying". If not, write to the Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA or visit their web page on the internet at L<http://www.gnu.org/copyleft/gpl.html>. For those of you that choose to use the GNU General Public License, my interpretation of the GNU General Public License is that no Perl script falls under the terms of the GPL unless you explicitly put said script under the terms of the GPL yourself. Furthermore, any object code linked with perl does not automatically fall under the terms of the GPL, provided such object code only adds definitions of subroutines and variables, and does not otherwise impair the resulting interpreter from executing any standard Perl script. I consider linking in C subroutines in this manner to be the moral equivalent of defining subroutines in the Perl language itself. You may sell such an object file as proprietary provided that you provide or offer to provide the Perl source, as specified by the GNU General Public License. (This is merely an alternate way of specifying input to the program.) You may also sell a binary produced by the dumping of a running Perl script that belongs to you, provided that you provide or offer to provide the Perl source as specified by the GPL. (The fact that a Perl interpreter and your code are in the same binary file is, in this case, a form of mere aggregation.) This is my interpretation of the GPL. If you still have concerns or difficulties understanding my intent, feel free to contact me. Of course, the Artistic License spells all this out for your protection, so you may prefer to use that. =cut PK ! R����� �� 5.34.0/warnings.pmnu �[��� # -*- buffer-read-only: t -*- # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is built by regen/warnings.pl. # Any changes made here will be lost! package warnings; our $VERSION = "1.51"; # Verify that we're called correctly so that warnings will work. # Can't use Carp, since Carp uses us! # String regexps because constant folding = smaller optree = less memory vs regexp literal # see also strict.pm. die sprintf "Incorrect use of pragma '%s' at %s line %d.\n", __PACKAGE__, +(caller)[1,2] if __FILE__ !~ ( '(?x) \b '.__PACKAGE__.' \.pmc? \z' ) && __FILE__ =~ ( '(?x) \b (?i:'.__PACKAGE__.') \.pmc? \z' ); our %Offsets = ( # Warnings Categories added in Perl 5.008 'all' => 0, 'closure' => 2, 'deprecated' => 4, 'exiting' => 6, 'glob' => 8, 'io' => 10, 'closed' => 12, 'exec' => 14, 'layer' => 16, 'newline' => 18, 'pipe' => 20, 'unopened' => 22, 'misc' => 24, 'numeric' => 26, 'once' => 28, 'overflow' => 30, 'pack' => 32, 'portable' => 34, 'recursion' => 36, 'redefine' => 38, 'regexp' => 40, 'severe' => 42, 'debugging' => 44, 'inplace' => 46, 'internal' => 48, 'malloc' => 50, 'signal' => 52, 'substr' => 54, 'syntax' => 56, 'ambiguous' => 58, 'bareword' => 60, 'digit' => 62, 'parenthesis' => 64, 'precedence' => 66, 'printf' => 68, 'prototype' => 70, 'qw' => 72, 'reserved' => 74, 'semicolon' => 76, 'taint' => 78, 'threads' => 80, 'uninitialized' => 82, 'unpack' => 84, 'untie' => 86, 'utf8' => 88, 'void' => 90, # Warnings Categories added in Perl 5.011 'imprecision' => 92, 'illegalproto' => 94, # Warnings Categories added in Perl 5.013 'non_unicode' => 96, 'nonchar' => 98, 'surrogate' => 100, # Warnings Categories added in Perl 5.017 'experimental' => 102, 'experimental::lexical_subs' => 104, 'experimental::regex_sets' => 106, 'experimental::smartmatch' => 108, # Warnings Categories added in Perl 5.019 'experimental::postderef' => 110, 'experimental::signatures' => 112, 'syscalls' => 114, # Warnings Categories added in Perl 5.021 'experimental::bitwise' => 116, 'experimental::const_attr' => 118, 'experimental::re_strict' => 120, 'experimental::refaliasing' => 122, 'experimental::win32_perlio' => 124, 'locale' => 126, 'missing' => 128, 'redundant' => 130, # Warnings Categories added in Perl 5.025 'experimental::declared_refs' => 132, # Warnings Categories added in Perl 5.027 'experimental::alpha_assertions' => 134, 'experimental::script_run' => 136, 'shadow' => 138, # Warnings Categories added in Perl 5.029 'experimental::private_use' => 140, 'experimental::uniprop_wildcards' => 142, 'experimental::vlb' => 144, # Warnings Categories added in Perl 5.031 'experimental::isa' => 146, # Warnings Categories added in Perl 5.033 'experimental::try' => 148, ); our %Bits = ( 'all' => "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55", # [0..75] 'ambiguous' => "\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [29] 'bareword' => "\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [30] 'closed' => "\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [6] 'closure' => "\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [1] 'debugging' => "\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [22] 'deprecated' => "\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [2] 'digit' => "\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [31] 'exec' => "\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [7] 'exiting' => "\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [3] 'experimental' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x55\x51\x15\x50\x51\x15", # [51..56,58..62,66..68,70..74] 'experimental::alpha_assertions' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00", # [67] 'experimental::bitwise' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00", # [58] 'experimental::const_attr' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00", # [59] 'experimental::declared_refs' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00", # [66] 'experimental::isa' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04", # [73] 'experimental::lexical_subs' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00", # [52] 'experimental::postderef' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00", # [55] 'experimental::private_use' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00", # [70] 'experimental::re_strict' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00", # [60] 'experimental::refaliasing' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00", # [61] 'experimental::regex_sets' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00", # [53] 'experimental::script_run' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00", # [68] 'experimental::signatures' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00", # [56] 'experimental::smartmatch' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00", # [54] 'experimental::try' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10", # [74] 'experimental::uniprop_wildcards' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00", # [71] 'experimental::vlb' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01", # [72] 'experimental::win32_perlio' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00", # [62] 'glob' => "\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [4] 'illegalproto' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00", # [47] 'imprecision' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00", # [46] 'inplace' => "\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [23] 'internal' => "\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [24] 'io' => "\x00\x54\x55\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00", # [5..11,57] 'layer' => "\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [8] 'locale' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00", # [63] 'malloc' => "\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [25] 'misc' => "\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [12] 'missing' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00", # [64] 'newline' => "\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [9] 'non_unicode' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00", # [48] 'nonchar' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00", # [49] 'numeric' => "\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [13] 'once' => "\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [14] 'overflow' => "\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [15] 'pack' => "\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [16] 'parenthesis' => "\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [32] 'pipe' => "\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [10] 'portable' => "\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [17] 'precedence' => "\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [33] 'printf' => "\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [34] 'prototype' => "\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [35] 'qw' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [36] 'recursion' => "\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [18] 'redefine' => "\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [19] 'redundant' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00", # [65] 'regexp' => "\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [20] 'reserved' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [37] 'semicolon' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [38] 'severe' => "\x00\x00\x00\x00\x00\x54\x05\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [21..25] 'shadow' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00", # [69] 'signal' => "\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [26] 'substr' => "\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [27] 'surrogate' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00", # [50] 'syntax' => "\x00\x00\x00\x00\x00\x00\x00\x55\x55\x15\x00\x40\x00\x00\x00\x00\x00\x00\x00", # [28..38,47] 'syscalls' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00", # [57] 'taint' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [39] 'threads' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00", # [40] 'uninitialized' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00", # [41] 'unopened' => "\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [11] 'unpack' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00", # [42] 'untie' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00", # [43] 'utf8' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x15\x00\x00\x00\x00\x00\x00", # [44,48..50] 'void' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00", # [45] ); our %DeadBits = ( 'all' => "\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa", # [0..75] 'ambiguous' => "\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [29] 'bareword' => "\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [30] 'closed' => "\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [6] 'closure' => "\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [1] 'debugging' => "\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [22] 'deprecated' => "\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [2] 'digit' => "\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [31] 'exec' => "\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [7] 'exiting' => "\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [3] 'experimental' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\xaa\xa2\x2a\xa0\xa2\x2a", # [51..56,58..62,66..68,70..74] 'experimental::alpha_assertions' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00", # [67] 'experimental::bitwise' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00", # [58] 'experimental::const_attr' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00", # [59] 'experimental::declared_refs' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00", # [66] 'experimental::isa' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08", # [73] 'experimental::lexical_subs' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00", # [52] 'experimental::postderef' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00", # [55] 'experimental::private_use' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00", # [70] 'experimental::re_strict' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00", # [60] 'experimental::refaliasing' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00", # [61] 'experimental::regex_sets' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00", # [53] 'experimental::script_run' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00", # [68] 'experimental::signatures' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00", # [56] 'experimental::smartmatch' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00", # [54] 'experimental::try' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20", # [74] 'experimental::uniprop_wildcards' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00", # [71] 'experimental::vlb' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02", # [72] 'experimental::win32_perlio' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00", # [62] 'glob' => "\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [4] 'illegalproto' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00", # [47] 'imprecision' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00", # [46] 'inplace' => "\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [23] 'internal' => "\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [24] 'io' => "\x00\xa8\xaa\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00", # [5..11,57] 'layer' => "\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [8] 'locale' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00", # [63] 'malloc' => "\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [25] 'misc' => "\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [12] 'missing' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00", # [64] 'newline' => "\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [9] 'non_unicode' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00", # [48] 'nonchar' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00", # [49] 'numeric' => "\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [13] 'once' => "\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [14] 'overflow' => "\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [15] 'pack' => "\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [16] 'parenthesis' => "\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [32] 'pipe' => "\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [10] 'portable' => "\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [17] 'precedence' => "\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [33] 'printf' => "\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [34] 'prototype' => "\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [35] 'qw' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [36] 'recursion' => "\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [18] 'redefine' => "\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [19] 'redundant' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00", # [65] 'regexp' => "\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [20] 'reserved' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [37] 'semicolon' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [38] 'severe' => "\x00\x00\x00\x00\x00\xa8\x0a\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [21..25] 'shadow' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00", # [69] 'signal' => "\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [26] 'substr' => "\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [27] 'surrogate' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00", # [50] 'syntax' => "\x00\x00\x00\x00\x00\x00\x00\xaa\xaa\x2a\x00\x80\x00\x00\x00\x00\x00\x00\x00", # [28..38,47] 'syscalls' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00", # [57] 'taint' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [39] 'threads' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00", # [40] 'uninitialized' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00", # [41] 'unopened' => "\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [11] 'unpack' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00", # [42] 'untie' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00", # [43] 'utf8' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x2a\x00\x00\x00\x00\x00\x00", # [44,48..50] 'void' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00", # [45] ); # These are used by various things, including our own tests our $NONE = "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"; our $DEFAULT = "\x10\x01\x00\x00\x00\x50\x04\x00\x00\x00\x00\x00\x00\x55\x51\x55\x50\x51\x15"; # [2,4,22,23,25,52..56,58..63,66..68,70..74] our $LAST_BIT = 150 ; our $BYTES = 19 ; sub Croaker { require Carp; # this initializes %CarpInternal local $Carp::CarpInternal{'warnings'}; delete $Carp::CarpInternal{'warnings'}; Carp::croak(@_); } sub _expand_bits { my $bits = shift; my $want_len = ($LAST_BIT + 7) >> 3; my $len = length($bits); if ($len != $want_len) { if ($bits eq "") { $bits = "\x00" x $want_len; } elsif ($len > $want_len) { substr $bits, $want_len, $len-$want_len, ""; } else { my $x = vec($bits, $Offsets{all} >> 1, 2); $x |= $x << 2; $x |= $x << 4; $bits .= chr($x) x ($want_len - $len); } } return $bits; } sub _bits { my $mask = shift ; my $catmask ; my $fatal = 0 ; my $no_fatal = 0 ; $mask = _expand_bits($mask); foreach my $word ( @_ ) { if ($word eq 'FATAL') { $fatal = 1; $no_fatal = 0; } elsif ($word eq 'NONFATAL') { $fatal = 0; $no_fatal = 1; } elsif ($catmask = $Bits{$word}) { $mask |= $catmask ; $mask |= $DeadBits{$word} if $fatal ; $mask = ~(~$mask | $DeadBits{$word}) if $no_fatal ; } else { Croaker("Unknown warnings category '$word'")} } return $mask ; } sub bits { # called from B::Deparse.pm push @_, 'all' unless @_ ; return _bits("", @_) ; } sub import { my $invocant = shift; # append 'all' when implied (empty import list or after a lone # "FATAL" or "NONFATAL") push @_, 'all' if !@_ || (@_==1 && ($_[0] eq 'FATAL' || $_[0] eq 'NONFATAL')); my @fatal = (); foreach my $warning (@_) { if($warning =~ /^(NON)?FATAL$/) { @fatal = ($warning); } elsif(substr($warning, 0, 1) ne '-') { my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ; ${^WARNING_BITS} = _bits($mask, @fatal, $warning); } else { $invocant->unimport(substr($warning, 1)); } } } sub unimport { shift; my $catmask ; my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ; # append 'all' when implied (empty import list or after a lone "FATAL") push @_, 'all' if !@_ || @_==1 && $_[0] eq 'FATAL'; $mask = _expand_bits($mask); foreach my $word ( @_ ) { if ($word eq 'FATAL') { next; } elsif ($catmask = $Bits{$word}) { $mask = ~(~$mask | $catmask | $DeadBits{$word}); } else { Croaker("Unknown warnings category '$word'")} } ${^WARNING_BITS} = $mask ; } my %builtin_type; @builtin_type{qw(SCALAR ARRAY HASH CODE REF GLOB LVALUE Regexp)} = (); sub LEVEL () { 8 }; sub MESSAGE () { 4 }; sub FATAL () { 2 }; sub NORMAL () { 1 }; sub __chk { my $category ; my $offset ; my $isobj = 0 ; my $wanted = shift; my $has_message = $wanted & MESSAGE; my $has_level = $wanted & LEVEL ; if ($has_level) { if (@_ != ($has_message ? 3 : 2)) { my $sub = (caller 1)[3]; my $syntax = $has_message ? "category, level, 'message'" : 'category, level'; Croaker("Usage: $sub($syntax)"); } } elsif (not @_ == 1 || @_ == ($has_message ? 2 : 0)) { my $sub = (caller 1)[3]; my $syntax = $has_message ? "[category,] 'message'" : '[category]'; Croaker("Usage: $sub($syntax)"); } my $message = pop if $has_message; if (@_) { # check the category supplied. $category = shift ; if (my $type = ref $category) { Croaker("not an object") if exists $builtin_type{$type}; $category = $type; $isobj = 1 ; } $offset = $Offsets{$category}; Croaker("Unknown warnings category '$category'") unless defined $offset; } else { $category = (caller(1))[0] ; $offset = $Offsets{$category}; Croaker("package '$category' not registered for warnings") unless defined $offset ; } my $i; if ($isobj) { my $pkg; $i = 2; while (do { { package DB; $pkg = (caller($i++))[0] } } ) { last unless @DB::args && $DB::args[0] =~ /^$category=/ ; } $i -= 2 ; } elsif ($has_level) { $i = 2 + shift; } else { $i = _error_loc(); # see where Carp will allocate the error } # Default to 0 if caller returns nothing. Default to $DEFAULT if it # explicitly returns undef. my(@callers_bitmask) = (caller($i))[9] ; my $callers_bitmask = @callers_bitmask ? $callers_bitmask[0] // $DEFAULT : 0 ; length($callers_bitmask) > ($offset >> 3) or $offset = $Offsets{all}; my @results; foreach my $type (FATAL, NORMAL) { next unless $wanted & $type; push @results, vec($callers_bitmask, $offset + $type - 1, 1); } # &enabled and &fatal_enabled return $results[0] unless $has_message; # &warnif, and the category is neither enabled as warning nor as fatal return if ($wanted & (NORMAL | FATAL | MESSAGE)) == (NORMAL | FATAL | MESSAGE) && !($results[0] || $results[1]); # If we have an explicit level, bypass Carp. if ($has_level and @callers_bitmask) { # logic copied from util.c:mess_sv my $stuff = " at " . join " line ", (caller $i)[1,2]; $stuff .= sprintf ", <%s> %s %d", *${^LAST_FH}{NAME}, ($/ eq "\n" ? "line" : "chunk"), $. if $. && ${^LAST_FH}; die "$message$stuff.\n" if $results[0]; return warn "$message$stuff.\n"; } require Carp; Carp::croak($message) if $results[0]; # will always get here for &warn. will only get here for &warnif if the # category is enabled Carp::carp($message); } sub _mkMask { my ($bit) = @_; my $mask = ""; vec($mask, $bit, 1) = 1; return $mask; } sub register_categories { my @names = @_; for my $name (@names) { if (! defined $Bits{$name}) { $Offsets{$name} = $LAST_BIT; $Bits{$name} = _mkMask($LAST_BIT++); $DeadBits{$name} = _mkMask($LAST_BIT++); if (length($Bits{$name}) > length($Bits{all})) { $Bits{all} .= "\x55"; $DeadBits{all} .= "\xaa"; } } } } sub _error_loc { require Carp; goto &Carp::short_error_loc; # don't introduce another stack frame } sub enabled { return __chk(NORMAL, @_); } sub fatal_enabled { return __chk(FATAL, @_); } sub warn { return __chk(FATAL | MESSAGE, @_); } sub warnif { return __chk(NORMAL | FATAL | MESSAGE, @_); } sub enabled_at_level { return __chk(NORMAL | LEVEL, @_); } sub fatal_enabled_at_level { return __chk(FATAL | LEVEL, @_); } sub warn_at_level { return __chk(FATAL | MESSAGE | LEVEL, @_); } sub warnif_at_level { return __chk(NORMAL | FATAL | MESSAGE | LEVEL, @_); } # These are not part of any public interface, so we can delete them to save # space. delete @warnings::{qw(NORMAL FATAL MESSAGE LEVEL)}; 1; __END__ =head1 NAME warnings - Perl pragma to control optional warnings =head1 SYNOPSIS use warnings; no warnings; use warnings "all"; no warnings "uninitialized"; # or equivalent to those last two ... use warnings qw(all -uninitialized); use warnings::register; if (warnings::enabled()) { warnings::warn("some warning"); } if (warnings::enabled("void")) { warnings::warn("void", "some warning"); } if (warnings::enabled($object)) { warnings::warn($object, "some warning"); } warnings::warnif("some warning"); warnings::warnif("void", "some warning"); warnings::warnif($object, "some warning"); =head1 DESCRIPTION The C<warnings> pragma gives control over which warnings are enabled in which parts of a Perl program. It's a more flexible alternative for both the command line flag B<-w> and the equivalent Perl variable, C<$^W>. This pragma works just like the C<strict> pragma. This means that the scope of the warning pragma is limited to the enclosing block. It also means that the pragma setting will not leak across files (via C<use>, C<require> or C<do>). This allows authors to independently define the degree of warning checks that will be applied to their module. By default, optional warnings are disabled, so any legacy code that doesn't attempt to control the warnings will work unchanged. All warnings are enabled in a block by either of these: use warnings; use warnings 'all'; Similarly all warnings are disabled in a block by either of these: no warnings; no warnings 'all'; For example, consider the code below: use warnings; my @x; { no warnings; my $y = @x[0]; } my $z = @x[0]; The code in the enclosing block has warnings enabled, but the inner block has them disabled. In this case that means the assignment to the scalar C<$z> will trip the C<"Scalar value @x[0] better written as $x[0]"> warning, but the assignment to the scalar C<$y> will not. =head2 Default Warnings and Optional Warnings Before the introduction of lexical warnings, Perl had two classes of warnings: mandatory and optional. As its name suggests, if your code tripped a mandatory warning, you would get a warning whether you wanted it or not. For example, the code below would always produce an C<"isn't numeric"> warning about the "2:". my $x = "2:" + 3; With the introduction of lexical warnings, mandatory warnings now become I<default> warnings. The difference is that although the previously mandatory warnings are still enabled by default, they can then be subsequently enabled or disabled with the lexical warning pragma. For example, in the code below, an C<"isn't numeric"> warning will only be reported for the C<$x> variable. my $x = "2:" + 3; no warnings; my $y = "2:" + 3; Note that neither the B<-w> flag or the C<$^W> can be used to disable/enable default warnings. They are still mandatory in this case. =head2 "Negative warnings" As a convenience, you can (as of Perl 5.34) pass arguments to the C<import()> method both positively and negatively. Negative warnings are those with a C<-> sign prepended to their names; positive warnings are anything else. This lets you turn on some warnings and turn off others in one command. So, assuming that you've already turned on a bunch of warnings but want to tweak them a bit in some block, you can do this: { use warnings qw(uninitialized -redefine); ... } which is equivalent to: { use warnings qw(uninitialized); no warnings qw(redefine); ... } The argument list is processed in the order you specify. So, for example, if you don't want to be warned about use of experimental features, except for C<somefeature> that you really dislike, you can say this: use warnings qw(all -experimental experimental::somefeature); which is equivalent to: use warnings 'all'; no warnings 'experimental'; use warnings 'experimental::somefeature'; =head2 What's wrong with B<-w> and C<$^W> Although very useful, the big problem with using B<-w> on the command line to enable warnings is that it is all or nothing. Take the typical scenario when you are writing a Perl program. Parts of the code you will write yourself, but it's very likely that you will make use of pre-written Perl modules. If you use the B<-w> flag in this case, you end up enabling warnings in pieces of code that you haven't written. Similarly, using C<$^W> to either disable or enable blocks of code is fundamentally flawed. For a start, say you want to disable warnings in a block of code. You might expect this to be enough to do the trick: { local ($^W) = 0; my $x =+ 2; my $y; chop $y; } When this code is run with the B<-w> flag, a warning will be produced for the C<$x> line: C<"Reversed += operator">. The problem is that Perl has both compile-time and run-time warnings. To disable compile-time warnings you need to rewrite the code like this: { BEGIN { $^W = 0 } my $x =+ 2; my $y; chop $y; } And note that unlike the first example, this will permanently set C<$^W> since it cannot both run during compile-time and be localized to a run-time block. The other big problem with C<$^W> is the way you can inadvertently change the warning setting in unexpected places in your code. For example, when the code below is run (without the B<-w> flag), the second call to C<doit> will trip a C<"Use of uninitialized value"> warning, whereas the first will not. sub doit { my $y; chop $y; } doit(); { local ($^W) = 1; doit() } This is a side-effect of C<$^W> being dynamically scoped. Lexical warnings get around these limitations by allowing finer control over where warnings can or can't be tripped. =head2 Controlling Warnings from the Command Line There are three Command Line flags that can be used to control when warnings are (or aren't) produced: =over 5 =item B<-w> X<-w> This is the existing flag. If the lexical warnings pragma is B<not> used in any of your code, or any of the modules that you use, this flag will enable warnings everywhere. See L</Backward Compatibility> for details of how this flag interacts with lexical warnings. =item B<-W> X<-W> If the B<-W> flag is used on the command line, it will enable all warnings throughout the program regardless of whether warnings were disabled locally using C<no warnings> or C<$^W =0>. This includes all files that get included via C<use>, C<require> or C<do>. Think of it as the Perl equivalent of the "lint" command. =item B<-X> X<-X> Does the exact opposite to the B<-W> flag, i.e. it disables all warnings. =back =head2 Backward Compatibility If you are used to working with a version of Perl prior to the introduction of lexically scoped warnings, or have code that uses both lexical warnings and C<$^W>, this section will describe how they interact. How Lexical Warnings interact with B<-w>/C<$^W>: =over 5 =item 1. If none of the three command line flags (B<-w>, B<-W> or B<-X>) that control warnings is used and neither C<$^W> nor the C<warnings> pragma are used, then default warnings will be enabled and optional warnings disabled. This means that legacy code that doesn't attempt to control the warnings will work unchanged. =item 2. The B<-w> flag just sets the global C<$^W> variable as in 5.005. This means that any legacy code that currently relies on manipulating C<$^W> to control warning behavior will still work as is. =item 3. Apart from now being a boolean, the C<$^W> variable operates in exactly the same horrible uncontrolled global way, except that it cannot disable/enable default warnings. =item 4. If a piece of code is under the control of the C<warnings> pragma, both the C<$^W> variable and the B<-w> flag will be ignored for the scope of the lexical warning. =item 5. The only way to override a lexical warnings setting is with the B<-W> or B<-X> command line flags. =back The combined effect of 3 & 4 is that it will allow code which uses the C<warnings> pragma to control the warning behavior of $^W-type code (using a C<local $^W=0>) if it really wants to, but not vice-versa. =head2 Category Hierarchy X<warning, categories> A hierarchy of "categories" have been defined to allow groups of warnings to be enabled/disabled in isolation. The current hierarchy is: all -+ | +- closure | +- deprecated | +- exiting | +- experimental --+ | | | +- experimental::alpha_assertions | | | +- experimental::bitwise | | | +- experimental::const_attr | | | +- experimental::declared_refs | | | +- experimental::isa | | | +- experimental::lexical_subs | | | +- experimental::postderef | | | +- experimental::private_use | | | +- experimental::re_strict | | | +- experimental::refaliasing | | | +- experimental::regex_sets | | | +- experimental::script_run | | | +- experimental::signatures | | | +- experimental::smartmatch | | | +- experimental::try | | | +- experimental::uniprop_wildcards | | | +- experimental::vlb | | | +- experimental::win32_perlio | +- glob | +- imprecision | +- io ------------+ | | | +- closed | | | +- exec | | | +- layer | | | +- newline | | | +- pipe | | | +- syscalls | | | +- unopened | +- locale | +- misc | +- missing | +- numeric | +- once | +- overflow | +- pack | +- portable | +- recursion | +- redefine | +- redundant | +- regexp | +- severe --------+ | | | +- debugging | | | +- inplace | | | +- internal | | | +- malloc | +- shadow | +- signal | +- substr | +- syntax --------+ | | | +- ambiguous | | | +- bareword | | | +- digit | | | +- illegalproto | | | +- parenthesis | | | +- precedence | | | +- printf | | | +- prototype | | | +- qw | | | +- reserved | | | +- semicolon | +- taint | +- threads | +- uninitialized | +- unpack | +- untie | +- utf8 ----------+ | | | +- non_unicode | | | +- nonchar | | | +- surrogate | +- void Just like the "strict" pragma any of these categories can be combined use warnings qw(void redefine); no warnings qw(io syntax untie); Also like the "strict" pragma, if there is more than one instance of the C<warnings> pragma in a given scope the cumulative effect is additive. use warnings qw(void); # only "void" warnings enabled ... use warnings qw(io); # only "void" & "io" warnings enabled ... no warnings qw(void); # only "io" warnings enabled To determine which category a specific warning has been assigned to see L<perldiag>. Note: Before Perl 5.8.0, the lexical warnings category "deprecated" was a sub-category of the "syntax" category. It is now a top-level category in its own right. Note: Before 5.21.0, the "missing" lexical warnings category was internally defined to be the same as the "uninitialized" category. It is now a top-level category in its own right. =head2 Fatal Warnings X<warning, fatal> The presence of the word "FATAL" in the category list will escalate warnings in those categories into fatal errors in that lexical scope. B<NOTE:> FATAL warnings should be used with care, particularly C<< FATAL => 'all' >>. Libraries using L<warnings::warn|/FUNCTIONS> for custom warning categories generally don't expect L<warnings::warn|/FUNCTIONS> to be fatal and can wind up in an unexpected state as a result. For XS modules issuing categorized warnings, such unanticipated exceptions could also expose memory leak bugs. Moreover, the Perl interpreter itself has had serious bugs involving fatalized warnings. For a summary of resolved and unresolved problems as of January 2015, please see L<this perl5-porters post|http://www.nntp.perl.org/group/perl.perl5.porters/2015/01/msg225235.html>. While some developers find fatalizing some warnings to be a useful defensive programming technique, using C<< FATAL => 'all' >> to fatalize all possible warning categories -- including custom ones -- is particularly risky. Therefore, the use of C<< FATAL => 'all' >> is L<discouraged|perlpolicy/discouraged>. The L<strictures|strictures/VERSION-2> module on CPAN offers one example of a warnings subset that the module's authors believe is relatively safe to fatalize. B<NOTE:> Users of FATAL warnings, especially those using C<< FATAL => 'all' >>, should be fully aware that they are risking future portability of their programs by doing so. Perl makes absolutely no commitments to not introduce new warnings or warnings categories in the future; indeed, we explicitly reserve the right to do so. Code that may not warn now may warn in a future release of Perl if the Perl5 development team deems it in the best interests of the community to do so. Should code using FATAL warnings break due to the introduction of a new warning we will NOT consider it an incompatible change. Users of FATAL warnings should take special caution during upgrades to check to see if their code triggers any new warnings and should pay particular attention to the fine print of the documentation of the features they use to ensure they do not exploit features that are documented as risky, deprecated, or unspecified, or where the documentation says "so don't do that", or anything with the same sense and spirit. Use of such features in combination with FATAL warnings is ENTIRELY AT THE USER'S RISK. The following documentation describes how to use FATAL warnings but the perl5 porters strongly recommend that you understand the risks before doing so, especially for library code intended for use by others, as there is no way for downstream users to change the choice of fatal categories. In the code below, the use of C<time>, C<length> and C<join> can all produce a C<"Useless use of xxx in void context"> warning. use warnings; time; { use warnings FATAL => qw(void); length "abc"; } join "", 1,2,3; print "done\n"; When run it produces this output Useless use of time in void context at fatal line 3. Useless use of length in void context at fatal line 7. The scope where C<length> is used has escalated the C<void> warnings category into a fatal error, so the program terminates immediately when it encounters the warning. To explicitly turn off a "FATAL" warning you just disable the warning it is associated with. So, for example, to disable the "void" warning in the example above, either of these will do the trick: no warnings qw(void); no warnings FATAL => qw(void); If you want to downgrade a warning that has been escalated into a fatal error back to a normal warning, you can use the "NONFATAL" keyword. For example, the code below will promote all warnings into fatal errors, except for those in the "syntax" category. use warnings FATAL => 'all', NONFATAL => 'syntax'; As of Perl 5.20, instead of C<< use warnings FATAL => 'all'; >> you can use: use v5.20; # Perl 5.20 or greater is required for the following use warnings 'FATAL'; # short form of "use warnings FATAL => 'all';" However, you should still heed the guidance earlier in this section against using C<use warnings FATAL => 'all';>. If you want your program to be compatible with versions of Perl before 5.20, you must use C<< use warnings FATAL => 'all'; >> instead. (In previous versions of Perl, the behavior of the statements C<< use warnings 'FATAL'; >>, C<< use warnings 'NONFATAL'; >> and C<< no warnings 'FATAL'; >> was unspecified; they did not behave as if they included the C<< => 'all' >> portion. As of 5.20, they do.) =head2 Reporting Warnings from a Module X<warning, reporting> X<warning, registering> The C<warnings> pragma provides a number of functions that are useful for module authors. These are used when you want to report a module-specific warning to a calling module has enabled warnings via the C<warnings> pragma. Consider the module C<MyMod::Abc> below. package MyMod::Abc; use warnings::register; sub open { my $path = shift; if ($path !~ m#^/#) { warnings::warn("changing relative path to /var/abc") if warnings::enabled(); $path = "/var/abc/$path"; } } 1; The call to C<warnings::register> will create a new warnings category called "MyMod::Abc", i.e. the new category name matches the current package name. The C<open> function in the module will display a warning message if it gets given a relative path as a parameter. This warnings will only be displayed if the code that uses C<MyMod::Abc> has actually enabled them with the C<warnings> pragma like below. use MyMod::Abc; use warnings 'MyMod::Abc'; ... abc::open("../fred.txt"); It is also possible to test whether the pre-defined warnings categories are set in the calling module with the C<warnings::enabled> function. Consider this snippet of code: package MyMod::Abc; sub open { if (warnings::enabled("deprecated")) { warnings::warn("deprecated", "open is deprecated, use new instead"); } new(@_); } sub new ... 1; The function C<open> has been deprecated, so code has been included to display a warning message whenever the calling module has (at least) the "deprecated" warnings category enabled. Something like this, say. use warnings 'deprecated'; use MyMod::Abc; ... MyMod::Abc::open($filename); Either the C<warnings::warn> or C<warnings::warnif> function should be used to actually display the warnings message. This is because they can make use of the feature that allows warnings to be escalated into fatal errors. So in this case use MyMod::Abc; use warnings FATAL => 'MyMod::Abc'; ... MyMod::Abc::open('../fred.txt'); the C<warnings::warnif> function will detect this and die after displaying the warning message. The three warnings functions, C<warnings::warn>, C<warnings::warnif> and C<warnings::enabled> can optionally take an object reference in place of a category name. In this case the functions will use the class name of the object as the warnings category. Consider this example: package Original; no warnings; use warnings::register; sub new { my $class = shift; bless [], $class; } sub check { my $self = shift; my $value = shift; if ($value % 2 && warnings::enabled($self)) { warnings::warn($self, "Odd numbers are unsafe") } } sub doit { my $self = shift; my $value = shift; $self->check($value); # ... } 1; package Derived; use warnings::register; use Original; our @ISA = qw( Original ); sub new { my $class = shift; bless [], $class; } 1; The code below makes use of both modules, but it only enables warnings from C<Derived>. use Original; use Derived; use warnings 'Derived'; my $x = Original->new(); $x->doit(1); my $y = Derived->new(); $x->doit(1); When this code is run only the C<Derived> object, C<$y>, will generate a warning. Odd numbers are unsafe at main.pl line 7 Notice also that the warning is reported at the line where the object is first used. When registering new categories of warning, you can supply more names to warnings::register like this: package MyModule; use warnings::register qw(format precision); ... warnings::warnif('MyModule::format', '...'); =head1 FUNCTIONS Note: The functions with names ending in C<_at_level> were added in Perl 5.28. =over 4 =item use warnings::register Creates a new warnings category with the same name as the package where the call to the pragma is used. =item warnings::enabled() Use the warnings category with the same name as the current package. Return TRUE if that warnings category is enabled in the calling module. Otherwise returns FALSE. =item warnings::enabled($category) Return TRUE if the warnings category, C<$category>, is enabled in the calling module. Otherwise returns FALSE. =item warnings::enabled($object) Use the name of the class for the object reference, C<$object>, as the warnings category. Return TRUE if that warnings category is enabled in the first scope where the object is used. Otherwise returns FALSE. =item warnings::enabled_at_level($category, $level) Like C<warnings::enabled>, but $level specifies the exact call frame, 0 being the immediate caller. =item warnings::fatal_enabled() Return TRUE if the warnings category with the same name as the current package has been set to FATAL in the calling module. Otherwise returns FALSE. =item warnings::fatal_enabled($category) Return TRUE if the warnings category C<$category> has been set to FATAL in the calling module. Otherwise returns FALSE. =item warnings::fatal_enabled($object) Use the name of the class for the object reference, C<$object>, as the warnings category. Return TRUE if that warnings category has been set to FATAL in the first scope where the object is used. Otherwise returns FALSE. =item warnings::fatal_enabled_at_level($category, $level) Like C<warnings::fatal_enabled>, but $level specifies the exact call frame, 0 being the immediate caller. =item warnings::warn($message) Print C<$message> to STDERR. Use the warnings category with the same name as the current package. If that warnings category has been set to "FATAL" in the calling module then die. Otherwise return. =item warnings::warn($category, $message) Print C<$message> to STDERR. If the warnings category, C<$category>, has been set to "FATAL" in the calling module then die. Otherwise return. =item warnings::warn($object, $message) Print C<$message> to STDERR. Use the name of the class for the object reference, C<$object>, as the warnings category. If that warnings category has been set to "FATAL" in the scope where C<$object> is first used then die. Otherwise return. =item warnings::warn_at_level($category, $level, $message) Like C<warnings::warn>, but $level specifies the exact call frame, 0 being the immediate caller. =item warnings::warnif($message) Equivalent to: if (warnings::enabled()) { warnings::warn($message) } =item warnings::warnif($category, $message) Equivalent to: if (warnings::enabled($category)) { warnings::warn($category, $message) } =item warnings::warnif($object, $message) Equivalent to: if (warnings::enabled($object)) { warnings::warn($object, $message) } =item warnings::warnif_at_level($category, $level, $message) Like C<warnings::warnif>, but $level specifies the exact call frame, 0 being the immediate caller. =item warnings::register_categories(@names) This registers warning categories for the given names and is primarily for use by the warnings::register pragma. =back See also L<perlmodlib/Pragmatic Modules> and L<perldiag>. =cut # ex: set ro: PK ! 5F�ˀ � 5.34.0/FileHandle.pmnu �[��� package FileHandle; use 5.006; use strict; our($VERSION, @ISA, @EXPORT, @EXPORT_OK); $VERSION = "2.03"; require IO::File; @ISA = qw(IO::File); @EXPORT = qw(_IOFBF _IOLBF _IONBF); @EXPORT_OK = qw( pipe autoflush output_field_separator output_record_separator input_record_separator input_line_number format_page_number format_lines_per_page format_lines_left format_name format_top_name format_line_break_characters format_formfeed print printf getline getlines ); # # Everything we're willing to export, we must first import. # IO::Handle->import( grep { !defined(&$_) } @EXPORT, @EXPORT_OK ); # # Some people call "FileHandle::function", so all the functions # that were in the old FileHandle class must be imported, too. # { no strict 'refs'; my %import = ( 'IO::Handle' => [qw(DESTROY new_from_fd fdopen close fileno getc ungetc gets eof flush error clearerr setbuf setvbuf _open_mode_string)], 'IO::Seekable' => [qw(seek tell getpos setpos)], 'IO::File' => [qw(new new_tmpfile open)] ); for my $pkg (keys %import) { for my $func (@{$import{$pkg}}) { my $c = *{"${pkg}::$func"}{CODE} or die "${pkg}::$func missing"; *$func = $c; } } } # # Specialized importer for Fcntl magic. # sub import { my $pkg = shift; my $callpkg = caller; require Exporter; Exporter::export($pkg, $callpkg, @_); # # If the Fcntl extension is available, # export its constants. # eval { require Fcntl; Exporter::export('Fcntl', $callpkg); }; } ################################################ # This is the only exported function we define; # the rest come from other classes. # sub pipe { my $r = IO::Handle->new; my $w = IO::Handle->new; CORE::pipe($r, $w) or return undef; ($r, $w); } # Rebless standard file handles bless *STDIN{IO}, "FileHandle" if ref *STDIN{IO} eq "IO::Handle"; bless *STDOUT{IO}, "FileHandle" if ref *STDOUT{IO} eq "IO::Handle"; bless *STDERR{IO}, "FileHandle" if ref *STDERR{IO} eq "IO::Handle"; 1; __END__ =head1 NAME FileHandle - supply object methods for filehandles =head1 SYNOPSIS use FileHandle; $fh = FileHandle->new; if ($fh->open("< file")) { print <$fh>; $fh->close; } $fh = FileHandle->new("> FOO"); if (defined $fh) { print $fh "bar\n"; $fh->close; } $fh = FileHandle->new("file", "r"); if (defined $fh) { print <$fh>; undef $fh; # automatically closes the file } $fh = FileHandle->new("file", O_WRONLY|O_APPEND); if (defined $fh) { print $fh "corge\n"; undef $fh; # automatically closes the file } $pos = $fh->getpos; $fh->setpos($pos); $fh->setvbuf($buffer_var, _IOLBF, 1024); ($readfh, $writefh) = FileHandle::pipe; autoflush STDOUT 1; =head1 DESCRIPTION NOTE: This class is now a front-end to the IO::* classes. C<FileHandle::new> creates a C<FileHandle>, which is a reference to a newly created symbol (see the C<Symbol> package). If it receives any parameters, they are passed to C<FileHandle::open>; if the open fails, the C<FileHandle> object is destroyed. Otherwise, it is returned to the caller. C<FileHandle::new_from_fd> creates a C<FileHandle> like C<new> does. It requires two parameters, which are passed to C<FileHandle::fdopen>; if the fdopen fails, the C<FileHandle> object is destroyed. Otherwise, it is returned to the caller. C<FileHandle::open> accepts one parameter or two. With one parameter, it is just a front end for the built-in C<open> function. With two parameters, the first parameter is a filename that may include whitespace or other special characters, and the second parameter is the open mode, optionally followed by a file permission value. If C<FileHandle::open> receives a Perl mode string (">", "+<", etc.) or a POSIX fopen() mode string ("w", "r+", etc.), it uses the basic Perl C<open> operator. If C<FileHandle::open> is given a numeric mode, it passes that mode and the optional permissions value to the Perl C<sysopen> operator. For convenience, C<FileHandle::import> tries to import the O_XXX constants from the Fcntl module. If dynamic loading is not available, this may fail, but the rest of FileHandle will still work. C<FileHandle::fdopen> is like C<open> except that its first parameter is not a filename but rather a file handle name, a FileHandle object, or a file descriptor number. If the C functions fgetpos() and fsetpos() are available, then C<FileHandle::getpos> returns an opaque value that represents the current position of the FileHandle, and C<FileHandle::setpos> uses that value to return to a previously visited position. If the C function setvbuf() is available, then C<FileHandle::setvbuf> sets the buffering policy for the FileHandle. The calling sequence for the Perl function is the same as its C counterpart, including the macros C<_IOFBF>, C<_IOLBF>, and C<_IONBF>, except that the buffer parameter specifies a scalar variable to use as a buffer. WARNING: A variable used as a buffer by C<FileHandle::setvbuf> must not be modified in any way until the FileHandle is closed or until C<FileHandle::setvbuf> is called again, or memory corruption may result! See L<perlfunc> for complete descriptions of each of the following supported C<FileHandle> methods, which are just front ends for the corresponding built-in functions: close fileno getc gets eof clearerr seek tell See L<perlvar> for complete descriptions of each of the following supported C<FileHandle> methods: autoflush output_field_separator output_record_separator input_record_separator input_line_number format_page_number format_lines_per_page format_lines_left format_name format_top_name format_line_break_characters format_formfeed Furthermore, for doing normal I/O you might need these: =over 4 =item $fh->print See L<perlfunc/print>. =item $fh->printf See L<perlfunc/printf>. =item $fh->getline This works like <$fh> described in L<perlop/"I/O Operators"> except that it's more readable and can be safely called in a list context but still returns just one line. =item $fh->getlines This works like <$fh> when called in a list context to read all the remaining lines in a file, except that it's more readable. It will also croak() if accidentally called in a scalar context. =back There are many other functions available since FileHandle is descended from IO::File, IO::Seekable, and IO::Handle. Please see those respective pages for documentation on more functions. =head1 SEE ALSO The B<IO> extension, L<perlfunc>, L<perlop/"I/O Operators">. =cut PK ! �� � � 5.34.0/Digest/base.pmnu �[��� package Digest::base; use strict; use warnings; our $VERSION = "1.19"; # subclass is supposed to implement at least these sub new; sub clone; sub add; sub digest; sub reset { my $self = shift; $self->new(@_); # ugly } sub addfile { my ( $self, $handle ) = @_; my $n; my $buf = ""; while ( ( $n = read( $handle, $buf, 4 * 1024 ) ) ) { $self->add($buf); } unless ( defined $n ) { require Carp; Carp::croak("Read failed: $!"); } $self; } sub add_bits { my $self = shift; my $bits; my $nbits; if ( @_ == 1 ) { my $arg = shift; $bits = pack( "B*", $arg ); $nbits = length($arg); } else { ( $bits, $nbits ) = @_; } if ( ( $nbits % 8 ) != 0 ) { require Carp; Carp::croak("Number of bits must be multiple of 8 for this algorithm"); } return $self->add( substr( $bits, 0, $nbits / 8 ) ); } sub hexdigest { my $self = shift; return unpack( "H*", $self->digest(@_) ); } sub b64digest { my $self = shift; my $b64 = $self->base64_padded_digest; $b64 =~ s/=+$//; return $b64; } sub base64_padded_digest { my $self = shift; require MIME::Base64; return MIME::Base64::encode( $self->digest(@_), "" ); } 1; __END__ =head1 NAME Digest::base - Digest base class =head1 SYNOPSIS package Digest::Foo; use base 'Digest::base'; =head1 DESCRIPTION The C<Digest::base> class provide implementations of the methods C<addfile> and C<add_bits> in terms of C<add>, and of the methods C<hexdigest> and C<b64digest> in terms of C<digest>. Digest implementations might want to inherit from this class to get this implementations of the alternative I<add> and I<digest> methods. A minimal subclass needs to implement the following methods by itself: new clone add digest The arguments and expected behaviour of these methods are described in L<Digest>. =head1 SEE ALSO L<Digest> PK ! ��h� � 5.34.0/Digest/file.pmnu �[��� package Digest::file; use strict; use warnings; use Exporter (); use Carp qw(croak); use Digest (); our $VERSION = "1.19"; our @ISA = qw(Exporter); our @EXPORT_OK = qw(digest_file_ctx digest_file digest_file_hex digest_file_base64); sub digest_file_ctx { my $file = shift; croak("No digest algorithm specified") unless @_; open( my $fh, "<", $file ) || croak("Can't open '$file': $!"); binmode($fh); my $ctx = Digest->new(@_); $ctx->addfile($fh); close($fh); return $ctx; } sub digest_file { digest_file_ctx(@_)->digest; } sub digest_file_hex { digest_file_ctx(@_)->hexdigest; } sub digest_file_base64 { digest_file_ctx(@_)->b64digest; } 1; __END__ =head1 NAME Digest::file - Calculate digests of files =head1 SYNOPSIS # Poor mans "md5sum" command use Digest::file qw(digest_file_hex); for (@ARGV) { print digest_file_hex($_, "MD5"), " $_\n"; } =head1 DESCRIPTION This module provide 3 convenience functions to calculate the digest of files. The following functions are provided: =over =item digest_file( $file, $algorithm, [$arg,...] ) This function will calculate and return the binary digest of the bytes of the given file. The function will croak if it fails to open or read the file. The $algorithm is a string like "MD2", "MD5", "SHA-1", "SHA-512". Additional arguments are passed to the constructor for the implementation of the given algorithm. =item digest_file_hex( $file, $algorithm, [$arg,...] ) Same as digest_file(), but return the digest in hex form. =item digest_file_base64( $file, $algorithm, [$arg,...] ) Same as digest_file(), but return the digest as a base64 encoded string. =back =head1 SEE ALSO L<Digest> PK ! �J�� � 5.34.0/UNIVERSAL.pmnu �[��� package UNIVERSAL; our $VERSION = '1.13'; # UNIVERSAL should not contain any extra subs/methods beyond those # that it exists to define. The existence of import() below is a historical # accident that can't be fixed without breaking code. # Make sure that even though the import method is called, it doesn't do # anything unless called on UNIVERSAL. sub import { return unless $_[0] eq __PACKAGE__; return unless @_ > 1; require Carp; Carp::croak("UNIVERSAL does not export anything"); } 1; __END__ =head1 NAME UNIVERSAL - base class for ALL classes (blessed references) =head1 SYNOPSIS $is_io = $fd->isa("IO::Handle"); $is_io = Class->isa("IO::Handle"); $does_log = $obj->DOES("Logger"); $does_log = Class->DOES("Logger"); $sub = $obj->can("print"); $sub = Class->can("print"); $sub = eval { $ref->can("fandango") }; $ver = $obj->VERSION; # but never do this! $is_io = UNIVERSAL::isa($fd, "IO::Handle"); $sub = UNIVERSAL::can($obj, "print"); =head1 DESCRIPTION C<UNIVERSAL> is the base class from which all blessed references inherit. See L<perlobj>. C<UNIVERSAL> provides the following methods: =over 4 =item C<< $obj->isa( TYPE ) >> =item C<< CLASS->isa( TYPE ) >> =item C<< eval { VAL->isa( TYPE ) } >> Where =over 4 =item C<TYPE> is a package name =item C<$obj> is a blessed reference or a package name =item C<CLASS> is a package name =item C<VAL> is any of the above or an unblessed reference =back When used as an instance or class method (C<< $obj->isa( TYPE ) >>), C<isa> returns I<true> if $obj is blessed into package C<TYPE> or inherits from package C<TYPE>. When used as a class method (C<< CLASS->isa( TYPE ) >>, sometimes referred to as a static method), C<isa> returns I<true> if C<CLASS> inherits from (or is itself) the name of the package C<TYPE> or inherits from package C<TYPE>. If you're not sure what you have (the C<VAL> case), wrap the method call in an C<eval> block to catch the exception if C<VAL> is undefined. If you want to be sure that you're calling C<isa> as a method, not a class, check the invocand with C<blessed> from L<Scalar::Util> first: use Scalar::Util 'blessed'; if ( blessed( $obj ) && $obj->isa("Some::Class") ) { ... } =item C<< $obj->DOES( ROLE ) >> =item C<< CLASS->DOES( ROLE ) >> C<DOES> checks if the object or class performs the role C<ROLE>. A role is a named group of specific behavior (often methods of particular names and signatures), similar to a class, but not necessarily a complete class by itself. For example, logging or serialization may be roles. C<DOES> and C<isa> are similar, in that if either is true, you know that the object or class on which you call the method can perform specific behavior. However, C<DOES> is different from C<isa> in that it does not care I<how> the invocand performs the operations, merely that it does. (C<isa> of course mandates an inheritance relationship. Other relationships include aggregation, delegation, and mocking.) By default, classes in Perl only perform the C<UNIVERSAL> role, as well as the role of all classes in their inheritance. In other words, by default C<DOES> responds identically to C<isa>. There is a relationship between roles and classes, as each class implies the existence of a role of the same name. There is also a relationship between inheritance and roles, in that a subclass that inherits from an ancestor class implicitly performs any roles its parent performs. Thus you can use C<DOES> in place of C<isa> safely, as it will return true in all places where C<isa> will return true (provided that any overridden C<DOES> I<and> C<isa> methods behave appropriately). =item C<< $obj->can( METHOD ) >> =item C<< CLASS->can( METHOD ) >> =item C<< eval { VAL->can( METHOD ) } >> C<can> checks if the object or class has a method called C<METHOD>. If it does, then it returns a reference to the sub. If it does not, then it returns I<undef>. This includes methods inherited or imported by C<$obj>, C<CLASS>, or C<VAL>. C<can> cannot know whether an object will be able to provide a method through AUTOLOAD (unless the object's class has overridden C<can> appropriately), so a return value of I<undef> does not necessarily mean the object will not be able to handle the method call. To get around this some module authors use a forward declaration (see L<perlsub>) for methods they will handle via AUTOLOAD. For such 'dummy' subs, C<can> will still return a code reference, which, when called, will fall through to the AUTOLOAD. If no suitable AUTOLOAD is provided, calling the coderef will cause an error. You may call C<can> as a class (static) method or an object method. Again, the same rule about having a valid invocand applies -- use an C<eval> block or C<blessed> if you need to be extra paranoid. =item C<VERSION ( [ REQUIRE ] )> C<VERSION> will return the value of the variable C<$VERSION> in the package the object is blessed into. If C<REQUIRE> is given then it will do a comparison and die if the package version is not greater than or equal to C<REQUIRE>, or if either C<$VERSION> or C<REQUIRE> is not a "lax" version number (as defined by the L<version> module). The return from C<VERSION> will actually be the stringified version object using the package C<$VERSION> scalar, which is guaranteed to be equivalent but may not be precisely the contents of the C<$VERSION> scalar. If you want the actual contents of C<$VERSION>, use C<$CLASS::VERSION> instead. C<VERSION> can be called as either a class (static) method or an object method. =back =head1 WARNINGS B<NOTE:> C<can> directly uses Perl's internal code for method lookup, and C<isa> uses a very similar method and cache-ing strategy. This may cause strange effects if the Perl code dynamically changes @ISA in any package. You may add other methods to the UNIVERSAL class via Perl or XS code. You do not need to C<use UNIVERSAL> to make these methods available to your program (and you should not do so). =head1 EXPORTS None. Previous versions of this documentation suggested using C<isa> as a function to determine the type of a reference: $yes = UNIVERSAL::isa($h, "HASH"); $yes = UNIVERSAL::isa("Foo", "Bar"); The problem is that this code would I<never> call an overridden C<isa> method in any class. Instead, use C<reftype> from L<Scalar::Util> for the first case: use Scalar::Util 'reftype'; $yes = reftype( $h ) eq "HASH"; and the method form of C<isa> for the second: $yes = Foo->isa("Bar"); =cut PK ! :�IcK cK 5.34.0/diagnostics.pmnu �[��� package diagnostics; =head1 NAME diagnostics, splain - produce verbose warning diagnostics =head1 SYNOPSIS Using the C<diagnostics> pragma: use diagnostics; use diagnostics -verbose; enable diagnostics; disable diagnostics; Using the C<splain> standalone filter program: perl program 2>diag.out splain [-v] [-p] diag.out Using diagnostics to get stack traces from a misbehaving script: perl -Mdiagnostics=-traceonly my_script.pl =head1 DESCRIPTION =head2 The C<diagnostics> Pragma This module extends the terse diagnostics normally emitted by both the perl compiler and the perl interpreter (from running perl with a -w switch or C<use warnings>), augmenting them with the more explicative and endearing descriptions found in L<perldiag>. Like the other pragmata, it affects the compilation phase of your program rather than merely the execution phase. To use in your program as a pragma, merely invoke use diagnostics; at the start (or near the start) of your program. (Note that this I<does> enable perl's B<-w> flag.) Your whole compilation will then be subject(ed :-) to the enhanced diagnostics. These still go out B<STDERR>. Due to the interaction between runtime and compiletime issues, and because it's probably not a very good idea anyway, you may not use C<no diagnostics> to turn them off at compiletime. However, you may control their behaviour at runtime using the disable() and enable() methods to turn them off and on respectively. The B<-verbose> flag first prints out the L<perldiag> introduction before any other diagnostics. The $diagnostics::PRETTY variable can generate nicer escape sequences for pagers. Warnings dispatched from perl itself (or more accurately, those that match descriptions found in L<perldiag>) are only displayed once (no duplicate descriptions). User code generated warnings a la warn() are unaffected, allowing duplicate user messages to be displayed. This module also adds a stack trace to the error message when perl dies. This is useful for pinpointing what caused the death. The B<-traceonly> (or just B<-t>) flag turns off the explanations of warning messages leaving just the stack traces. So if your script is dieing, run it again with perl -Mdiagnostics=-traceonly my_bad_script to see the call stack at the time of death. By supplying the B<-warntrace> (or just B<-w>) flag, any warnings emitted will also come with a stack trace. =head2 The I<splain> Program While apparently a whole nuther program, I<splain> is actually nothing more than a link to the (executable) F<diagnostics.pm> module, as well as a link to the F<diagnostics.pod> documentation. The B<-v> flag is like the C<use diagnostics -verbose> directive. The B<-p> flag is like the $diagnostics::PRETTY variable. Since you're post-processing with I<splain>, there's no sense in being able to enable() or disable() processing. Output from I<splain> is directed to B<STDOUT>, unlike the pragma. =head1 EXAMPLES The following file is certain to trigger a few errors at both runtime and compiletime: use diagnostics; print NOWHERE "nothing\n"; print STDERR "\n\tThis message should be unadorned.\n"; warn "\tThis is a user warning"; print "\nDIAGNOSTIC TESTER: Please enter a <CR> here: "; my $a, $b = scalar <STDIN>; print "\n"; print $x/$y; If you prefer to run your program first and look at its problem afterwards, do this: perl -w test.pl 2>test.out ./splain < test.out Note that this is not in general possible in shells of more dubious heritage, as the theoretical (perl -w test.pl >/dev/tty) >& test.out ./splain < test.out Because you just moved the existing B<stdout> to somewhere else. If you don't want to modify your source code, but still have on-the-fly warnings, do this: exec 3>&1; perl -w test.pl 2>&1 1>&3 3>&- | splain 1>&2 3>&- Nifty, eh? If you want to control warnings on the fly, do something like this. Make sure you do the C<use> first, or you won't be able to get at the enable() or disable() methods. use diagnostics; # checks entire compilation phase print "\ntime for 1st bogus diags: SQUAWKINGS\n"; print BOGUS1 'nada'; print "done with 1st bogus\n"; disable diagnostics; # only turns off runtime warnings print "\ntime for 2nd bogus: (squelched)\n"; print BOGUS2 'nada'; print "done with 2nd bogus\n"; enable diagnostics; # turns back on runtime warnings print "\ntime for 3rd bogus: SQUAWKINGS\n"; print BOGUS3 'nada'; print "done with 3rd bogus\n"; disable diagnostics; print "\ntime for 4th bogus: (squelched)\n"; print BOGUS4 'nada'; print "done with 4th bogus\n"; =head1 INTERNALS Diagnostic messages derive from the F<perldiag.pod> file when available at runtime. Otherwise, they may be embedded in the file itself when the splain package is built. See the F<Makefile> for details. If an extant $SIG{__WARN__} handler is discovered, it will continue to be honored, but only after the diagnostics::splainthis() function (the module's $SIG{__WARN__} interceptor) has had its way with your warnings. There is a $diagnostics::DEBUG variable you may set if you're desperately curious what sorts of things are being intercepted. BEGIN { $diagnostics::DEBUG = 1 } =head1 BUGS Not being able to say "no diagnostics" is annoying, but may not be insurmountable. The C<-pretty> directive is called too late to affect matters. You have to do this instead, and I<before> you load the module. BEGIN { $diagnostics::PRETTY = 1 } I could start up faster by delaying compilation until it should be needed, but this gets a "panic: top_level" when using the pragma form in Perl 5.001e. While it's true that this documentation is somewhat subserious, if you use a program named I<splain>, you should expect a bit of whimsy. =head1 AUTHOR Tom Christiansen <F<tchrist@mox.perl.com>>, 25 June 1995. =cut use strict; use 5.009001; use Carp; $Carp::Internal{__PACKAGE__.""}++; our $VERSION = '1.37'; our $DEBUG; our $VERBOSE; our $PRETTY; our $TRACEONLY = 0; our $WARNTRACE = 0; use Config; use Text::Tabs 'expand'; my $privlib = $Config{privlibexp}; if ($^O eq 'VMS') { require VMS::Filespec; $privlib = VMS::Filespec::unixify($privlib); } my @trypod = ( "$privlib/pod/perldiag.pod", "$privlib/pods/perldiag.pod", ); # handy for development testing of new warnings etc unshift @trypod, "./pod/perldiag.pod" if -e "pod/perldiag.pod"; (my $PODFILE) = ((grep { -e } @trypod), $trypod[$#trypod])[0]; $DEBUG ||= 0; local $| = 1; local $_; local $.; my $standalone; my(%HTML_2_Troff, %HTML_2_Latin_1, %HTML_2_ASCII_7); CONFIG: { our $opt_p = our $opt_d = our $opt_v = our $opt_f = ''; unless (caller) { $standalone++; require Getopt::Std; Getopt::Std::getopts('pdvf:') or die "Usage: $0 [-v] [-p] [-f splainpod]"; $PODFILE = $opt_f if $opt_f; $DEBUG = 2 if $opt_d; $VERBOSE = $opt_v; $PRETTY = $opt_p; } if (open(POD_DIAG, '<', $PODFILE)) { warn "Happy happy podfile from real $PODFILE\n" if $DEBUG; last CONFIG; } if (caller) { INCPATH: { for my $file ( (map { "$_/".__PACKAGE__.".pm" } @INC), $0) { warn "Checking $file\n" if $DEBUG; if (open(POD_DIAG, '<', $file)) { while (<POD_DIAG>) { next unless /^__END__\s*# wish diag dbase were more accessible/; print STDERR "podfile is $file\n" if $DEBUG; last INCPATH; } } } } } else { print STDERR "podfile is <DATA>\n" if $DEBUG; *POD_DIAG = *main::DATA; } } if (eof(POD_DIAG)) { die "couldn't find diagnostic data in $PODFILE @INC $0"; } %HTML_2_Troff = ( 'amp' => '&', # ampersand 'lt' => '<', # left chevron, less-than 'gt' => '>', # right chevron, greater-than 'quot' => '"', # double quote 'sol' => '/', # forward slash / solidus 'verbar' => '|', # vertical bar "Aacute" => "A\\*'", # capital A, acute accent # etc ); %HTML_2_Latin_1 = ( 'amp' => '&', # ampersand 'lt' => '<', # left chevron, less-than 'gt' => '>', # right chevron, greater-than 'quot' => '"', # double quote 'sol' => '/', # Forward slash / solidus 'verbar' => '|', # vertical bar "Aacute" => "\xC1" # capital A, acute accent # etc ); %HTML_2_ASCII_7 = ( 'amp' => '&', # ampersand 'lt' => '<', # left chevron, less-than 'gt' => '>', # right chevron, greater-than 'quot' => '"', # double quote 'sol' => '/', # Forward slash / solidus 'verbar' => '|', # vertical bar "Aacute" => "A" # capital A, acute accent # etc ); our %HTML_Escapes; *HTML_Escapes = do { if ($standalone) { $PRETTY ? \%HTML_2_Latin_1 : \%HTML_2_ASCII_7; } else { \%HTML_2_Latin_1; } }; *THITHER = $standalone ? *STDOUT : *STDERR; my %transfmt = (); my $transmo = <<EOFUNC; sub transmo { #local \$^W = 0; # recursive warnings we do NOT need! EOFUNC my %msg; my $over_level = 0; # We look only at =item lines at the first =over level { print STDERR "FINISHING COMPILATION for $_\n" if $DEBUG; local $/ = ''; local $_; my $header; my @headers; my $for_item; my $seen_body; while (<POD_DIAG>) { sub _split_pod_link { $_[0] =~ m'(?:([^|]*)\|)?([^/]*)(?:/("?)(.*)\3)?'s; ($1,$2,$4); } unescape(); if ($PRETTY) { sub noop { return $_[0] } # spensive for a noop sub bold { my $str =$_[0]; $str =~ s/(.)/$1\b$1/g; return $str; } sub italic { my $str = $_[0]; $str =~ s/(.)/_\b$1/g; return $str; } s/C<<< (.*?) >>>|C<< (.*?) >>|[BC]<(.*?)>/bold($+)/ges; s/[IF]<(.*?)>/italic($1)/ges; s/L<(.*?)>/ my($text,$page,$sect) = _split_pod_link($1); defined $text ? $text : defined $sect ? italic($sect) . ' in ' . italic($page) : italic($page) /ges; s/S<(.*?)>/ $1 /ges; } else { s/C<<< (.*?) >>>|C<< (.*?) >>|[BC]<(.*?)>/$+/gs; s/[IF]<(.*?)>/$1/gs; s/L<(.*?)>/ my($text,$page,$sect) = _split_pod_link($1); defined $text ? $text : defined $sect ? qq '"$sect" in $page' : $page /ges; s/S<(.*?)>/ $1 /ges; } unless (/^=/) { if (defined $header) { if ( $header eq 'DESCRIPTION' && ( /Optional warnings are enabled/ || /Some of these messages are generic./ ) ) { next; } $_ = expand $_; s/^/ /gm; $msg{$header} .= $_; for my $h(@headers) { $msg{$h} .= $_ } ++$seen_body; undef $for_item; } next; } # If we have not come across the body of the description yet, then # the previous header needs to share the same description. if ($seen_body) { @headers = (); } else { push @headers, $header if defined $header; } if ( ! s/=item (.*?)\s*\z//s || $over_level != 1) { if ( s/=head1\sDESCRIPTION//) { $msg{$header = 'DESCRIPTION'} = ''; undef $for_item; } elsif( s/^=for\s+diagnostics\s*\n(.*?)\s*\z// ) { $for_item = $1; } elsif( /^=over\b/ ) { $over_level++; } elsif( /^=back\b/ ) { # Stop processing body here $over_level--; if ($over_level == 0) { undef $header; undef $for_item; $seen_body = 0; next; } } next; } if( $for_item ) { $header = $for_item; undef $for_item } else { $header = $1; $header =~ s/\n/ /gs; # Allow multi-line headers } # strip formatting directives from =item line $header =~ s/[A-Z]<(.*?)>/$1/g; # Since we strip "(\.\s*)\n" when we search a warning, strip it here as well $header =~ s/(\.\s*)?$//; my @toks = split( /(%l?[dxX]|%[ucp]|%(?:\.\d+)?[fs])/, $header ); if (@toks > 1) { my $conlen = 0; for my $i (0..$#toks){ if( $i % 2 ){ if( $toks[$i] eq '%c' ){ $toks[$i] = '.'; } elsif( $toks[$i] =~ /^%(?:d|u)$/ ){ $toks[$i] = '\d+'; } elsif( $toks[$i] =~ '^%(?:s|.*f)$' ){ $toks[$i] = $i == $#toks ? '.*' : '.*?'; } elsif( $toks[$i] =~ '%.(\d+)s' ){ $toks[$i] = ".{$1}"; } elsif( $toks[$i] =~ '^%l*([pxX])$' ){ $toks[$i] = $1 eq 'X' ? '[\dA-F]+' : '[\da-f]+'; } } elsif( length( $toks[$i] ) ){ $toks[$i] = quotemeta $toks[$i]; $conlen += length( $toks[$i] ); } } my $lhs = join( '', @toks ); $lhs =~ s/(\\\s)+/\\s+/g; # Replace lit space with multi-space match $transfmt{$header}{pat} = " s^\\s*$lhs\\s*\Q$header\Es\n\t&& return 1;\n"; $transfmt{$header}{len} = $conlen; } else { my $lhs = "\Q$header\E"; $lhs =~ s/(\\\s)+/\\s+/g; # Replace lit space with multi-space match $transfmt{$header}{pat} = " s^\\s*$lhs\\s*\Q$header\E\n\t && return 1;\n"; $transfmt{$header}{len} = length( $header ); } print STDERR __PACKAGE__.": Duplicate entry: \"$header\"\n" if $msg{$header}; $msg{$header} = ''; $seen_body = 0; } close POD_DIAG unless *main::DATA eq *POD_DIAG; die "No diagnostics?" unless %msg; # Apply patterns in order of decreasing sum of lengths of fixed parts # Seems the best way of hitting the right one. for my $hdr ( sort { $transfmt{$b}{len} <=> $transfmt{$a}{len} } keys %transfmt ){ $transmo .= $transfmt{$hdr}{pat}; } $transmo .= " return 0;\n}\n"; print STDERR $transmo if $DEBUG; eval $transmo; die $@ if $@; } if ($standalone) { if (!@ARGV and -t STDIN) { print STDERR "$0: Reading from STDIN\n" } while (defined (my $error = <>)) { splainthis($error) || print THITHER $error; } exit; } my $olddie; my $oldwarn; sub import { shift; $^W = 1; # yup, clobbered the global variable; # tough, if you want diags, you want diags. return if defined $SIG{__WARN__} && ($SIG{__WARN__} eq \&warn_trap); for (@_) { /^-d(ebug)?$/ && do { $DEBUG++; next; }; /^-v(erbose)?$/ && do { $VERBOSE++; next; }; /^-p(retty)?$/ && do { print STDERR "$0: I'm afraid it's too late for prettiness.\n"; $PRETTY++; next; }; # matches trace and traceonly for legacy doc mixup reasons /^-t(race(only)?)?$/ && do { $TRACEONLY++; next; }; /^-w(arntrace)?$/ && do { $WARNTRACE++; next; }; warn "Unknown flag: $_"; } $oldwarn = $SIG{__WARN__}; $olddie = $SIG{__DIE__}; $SIG{__WARN__} = \&warn_trap; $SIG{__DIE__} = \&death_trap; } sub enable { &import } sub disable { shift; return unless $SIG{__WARN__} eq \&warn_trap; $SIG{__WARN__} = $oldwarn || ''; $SIG{__DIE__} = $olddie || ''; } sub warn_trap { my $warning = $_[0]; if (caller eq __PACKAGE__ or !splainthis($warning)) { if ($WARNTRACE) { print STDERR Carp::longmess($warning); } else { print STDERR $warning; } } goto &$oldwarn if defined $oldwarn and $oldwarn and $oldwarn ne \&warn_trap; }; sub death_trap { my $exception = $_[0]; # See if we are coming from anywhere within an eval. If so we don't # want to explain the exception because it's going to get caught. my $in_eval = 0; my $i = 0; while (my $caller = (caller($i++))[3]) { if ($caller eq '(eval)') { $in_eval = 1; last; } } splainthis($exception) unless $in_eval; if (caller eq __PACKAGE__) { print STDERR "INTERNAL EXCEPTION: $exception"; } &$olddie if defined $olddie and $olddie and $olddie ne \&death_trap; return if $in_eval; # We don't want to unset these if we're coming from an eval because # then we've turned off diagnostics. # Switch off our die/warn handlers so we don't wind up in our own # traps. $SIG{__DIE__} = $SIG{__WARN__} = ''; $exception =~ s/\n(?=.)/\n\t/gas; die Carp::longmess("__diagnostics__") =~ s/^__diagnostics__.*?line \d+\.?\n/ "Uncaught exception from user code:\n\t$exception" /re; # up we go; where we stop, nobody knows, but i think we die now # but i'm deeply afraid of the &$olddie guy reraising and us getting # into an indirect recursion loop }; my %exact_duplicate; my %old_diag; my $count; my $wantspace; sub splainthis { return 0 if $TRACEONLY; for (my $tmp = shift) { local $\; local $!; ### &finish_compilation unless %msg; s/(\.\s*)?\n+$//; my $orig = $_; # return unless defined; # get rid of the where-are-we-in-input part s/, <.*?> (?:line|chunk).*$//; # Discard 1st " at <file> line <no>" and all text beyond # but be aware of messages containing " at this-or-that" my $real = 0; my @secs = split( / at / ); return unless @secs; $_ = $secs[0]; for my $i ( 1..$#secs ){ if( $secs[$i] =~ /.+? (?:line|chunk) \d+/ ){ $real = 1; last; } else { $_ .= ' at ' . $secs[$i]; } } # remove parenthesis occurring at the end of some messages s/^\((.*)\)$/$1/; if ($exact_duplicate{$orig}++) { return &transmo; } else { return 0 unless &transmo; } my $short = shorten($orig); if ($old_diag{$_}) { autodescribe(); print THITHER "$short (#$old_diag{$_})\n"; $wantspace = 1; } elsif (!$msg{$_} && $orig =~ /\n./s) { # A multiline message, like "Attempt to reload / # Compilation failed" my $found; for (split /^/, $orig) { splainthis($_) and $found = 1; } return $found; } else { autodescribe(); $old_diag{$_} = ++$count; print THITHER "\n" if $wantspace; $wantspace = 0; print THITHER "$short (#$old_diag{$_})\n"; if ($msg{$_}) { print THITHER $msg{$_}; } else { if (0 and $standalone) { print THITHER " **** Error #$old_diag{$_} ", ($real ? "is" : "appears to be"), " an unknown diagnostic message.\n\n"; } return 0; } } return 1; } } sub autodescribe { if ($VERBOSE and not $count) { print THITHER &{$PRETTY ? \&bold : \&noop}("DESCRIPTION OF DIAGNOSTICS"), "\n$msg{DESCRIPTION}\n"; } } sub unescape { s { E< ( [A-Za-z]+ ) > } { do { exists $HTML_Escapes{$1} ? do { $HTML_Escapes{$1} } : do { warn "Unknown escape: E<$1> in $_"; "E<$1>"; } } }egx; } sub shorten { my $line = $_[0]; if (length($line) > 79 and index($line, "\n") == -1) { my $space_place = rindex($line, ' ', 79); if ($space_place != -1) { substr($line, $space_place, 1) = "\n\t"; } } return $line; } 1 unless $standalone; # or it'll complain about itself __END__ # wish diag dbase were more accessible PK ! 3��`G G 5.34.0/sort.pmnu �[��� package sort; our $VERSION = '2.04'; # The hints for pp_sort are now stored in $^H{sort}; older versions # of perl used the global variable $sort::hints. -- rjh 2005-12-19 $sort::stable_bit = 0x00000100; $sort::unstable_bit = 0x00000200; use strict; sub import { shift; if (@_ == 0) { require Carp; Carp::croak("sort pragma requires arguments"); } local $_; $^H{sort} //= 0; while ($_ = shift(@_)) { if ($_ eq 'stable') { $^H{sort} |= $sort::stable_bit; $^H{sort} &= ~$sort::unstable_bit; } elsif ($_ eq 'defaults') { $^H{sort} = 0; } else { require Carp; Carp::croak("sort: unknown subpragma '$_'"); } } } sub unimport { shift; if (@_ == 0) { require Carp; Carp::croak("sort pragma requires arguments"); } local $_; no warnings 'uninitialized'; # bitops would warn while ($_ = shift(@_)) { if ($_ eq 'stable') { $^H{sort} &= ~$sort::stable_bit; $^H{sort} |= $sort::unstable_bit; } else { require Carp; Carp::croak("sort: unknown subpragma '$_'"); } } } sub current { my @sort; if ($^H{sort}) { push @sort, 'stable' if $^H{sort} & $sort::stable_bit; } join(' ', @sort); } 1; __END__ =head1 NAME sort - perl pragma to control sort() behaviour =head1 SYNOPSIS use sort 'stable'; # guarantee stability use sort 'defaults'; # revert to default behavior no sort 'stable'; # stability not important my $current; BEGIN { $current = sort::current(); # identify prevailing pragmata } =head1 DESCRIPTION With the C<sort> pragma you can control the behaviour of the builtin C<sort()> function. A stable sort means that for records that compare equal, the original input ordering is preserved. Stability will matter only if elements that compare equal can be distinguished in some other way. That means that simple numerical and lexical sorts do not profit from stability, since equal elements are indistinguishable. However, with a comparison such as { substr($a, 0, 3) cmp substr($b, 0, 3) } stability might matter because elements that compare equal on the first 3 characters may be distinguished based on subsequent characters. Whether sorting is stable by default is an accident of implementation that can change (and has changed) between Perl versions. If stability is important, be sure to say so with a use sort 'stable'; The C<no sort> pragma doesn't I<forbid> what follows, it just leaves the choice open. Thus, after no sort 'stable'; sorting may happen to be stable anyway. =head1 CAVEATS As of Perl 5.10, this pragma is lexically scoped and takes effect at compile time. In earlier versions its effect was global and took effect at run-time; the documentation suggested using C<eval()> to change the behaviour: { eval 'no sort "stable"'; # stability not wanted print sort::current . "\n"; @a = sort @b; eval 'use sort "defaults"'; # clean up, for others } { eval 'use sort qw(defaults stable)'; # force stability print sort::current . "\n"; @c = sort @d; eval 'use sort "defaults"'; # clean up, for others } Such code no longer has the desired effect, for two reasons. Firstly, the use of C<eval()> means that the sorting algorithm is not changed until runtime, by which time it's too late to have any effect. Secondly, C<sort::current> is also called at run-time, when in fact the compile-time value of C<sort::current> is the one that matters. So now this code would be written: { no sort "stable"; # stability not wanted my $current; BEGIN { $current = sort::current; } print "$current\n"; @a = sort @b; # Pragmas go out of scope at the end of the block } { use sort qw(defaults stable); # force stability my $current; BEGIN { $current = sort::current; } print "$current\n"; @c = sort @d; } =cut PK ! OX���D �D 5.34.0/Getopt/Long.pmnu ��6�$ #! perl # Getopt::Long.pm -- Universal options parsing # Author : Johan Vromans # Created On : Tue Sep 11 15:00:12 1990 # Last Modified On: Tue Jun 11 13:18:11 2024 # Update Count : 1811 # Status : Released ################ Module Preamble ################ # Getopt::Long is reported to run under 5.6.1. Thanks Tux! use 5.006001; use strict; use warnings; package Getopt::Long; # Must match Getopt::Long::Parser::VERSION! our $VERSION = 2.58; use Exporter; use base qw(Exporter); # Exported subroutines. sub GetOptions(@); # always sub GetOptionsFromArray(@); # on demand sub GetOptionsFromString(@); # on demand sub Configure(@); # on demand sub HelpMessage(@); # on demand sub VersionMessage(@); # in demand our @EXPORT; our @EXPORT_OK; # Values for $order. See GNU getopt.c for details. our ($REQUIRE_ORDER, $PERMUTE, $RETURN_IN_ORDER); BEGIN { ($REQUIRE_ORDER, $PERMUTE, $RETURN_IN_ORDER) = (0..2); @EXPORT = qw(&GetOptions $REQUIRE_ORDER $PERMUTE $RETURN_IN_ORDER); @EXPORT_OK = qw(&HelpMessage &VersionMessage &Configure &GetOptionsFromArray &GetOptionsFromString); } # User visible variables. our ($error, $debug, $major_version, $minor_version); # Deprecated visible variables. our ($autoabbrev, $getopt_compat, $ignorecase, $bundling, $order, $passthrough); # Official invisible variables. our ($genprefix, $caller, $gnu_compat, $auto_help, $auto_version, $longprefix); # Really invisible variables. my $bundling_values; # Public subroutines. sub config(@); # deprecated name # Private subroutines. sub ConfigDefaults(); sub ParseOptionSpec($$); sub OptCtl($); sub FindOption($$$$$); sub ValidValue ($$$$$); ################ Local Variables ################ # $requested_version holds the version that was mentioned in the 'use' # or 'require', if any. It can be used to enable or disable specific # features. my $requested_version = 0; ################ Resident subroutines ################ sub ConfigDefaults() { # Handle POSIX compliancy. if ( defined $ENV{"POSIXLY_CORRECT"} ) { $genprefix = "(--|-)"; $autoabbrev = 0; # no automatic abbrev of options $bundling = 0; # no bundling of single letter switches $getopt_compat = 0; # disallow '+' to start options $order = $REQUIRE_ORDER; } else { $genprefix = "(--|-|\\+)"; $autoabbrev = 1; # automatic abbrev of options $bundling = 0; # bundling off by default $getopt_compat = 1; # allow '+' to start options $order = $PERMUTE; } # Other configurable settings. $debug = 0; # for debugging $error = 0; # error tally $ignorecase = 1; # ignore case when matching options $passthrough = 0; # leave unrecognized options alone $gnu_compat = 0; # require --opt=val if value is optional $longprefix = "(--)"; # what does a long prefix look like $bundling_values = 0; # no bundling of values } # Override import. sub import { my $pkg = shift; # package my @syms = (); # symbols to import my @config = (); # configuration my $dest = \@syms; # symbols first for ( @_ ) { if ( $_ eq ':config' ) { $dest = \@config; # config next next; } push(@$dest, $_); # push } # Hide one level and call super. local $Exporter::ExportLevel = 1; push(@syms, qw(&GetOptions)) if @syms; # always export GetOptions $requested_version = 0; $pkg->SUPER::import(@syms); # And configure. Configure(@config) if @config; } ################ Initialization ################ # Version major/minor numbers. ($major_version, $minor_version) = $VERSION =~ /^(\d+)\.(\d+)/; ConfigDefaults(); # Store a copy of the default configuration. Since ConfigDefaults has # just been called, what we get from Configure is the default. my $default_config = do { Getopt::Long::Configure () }; # For the parser only. sub _default_config { $default_config } ################ Back to Normal ################ # The ooparser was traditionally part of the main package. no warnings 'redefine'; sub Getopt::Long::Parser::new { require Getopt::Long::Parser; goto &Getopt::Long::Parser::new; } use warnings 'redefine'; # Indices in option control info. # Note that ParseOptions uses the fields directly. Search for 'hard-wired'. use constant CTL_TYPE => 0; #use constant CTL_TYPE_FLAG => ''; #use constant CTL_TYPE_NEG => '!'; #use constant CTL_TYPE_INCR => '+'; #use constant CTL_TYPE_INT => 'i'; #use constant CTL_TYPE_INTINC => 'I'; #use constant CTL_TYPE_XINT => 'o'; #use constant CTL_TYPE_FLOAT => 'f'; #use constant CTL_TYPE_STRING => 's'; use constant CTL_CNAME => 1; use constant CTL_DEFAULT => 2; use constant CTL_DEST => 3; use constant CTL_DEST_SCALAR => 0; use constant CTL_DEST_ARRAY => 1; use constant CTL_DEST_HASH => 2; use constant CTL_DEST_CODE => 3; use constant CTL_AMIN => 4; use constant CTL_AMAX => 5; # FFU. #use constant CTL_RANGE => ; #use constant CTL_REPEAT => ; # Rather liberal patterns to match numbers. use constant PAT_INT => "[-+]?_*[0-9][0-9_]*"; use constant PAT_XINT => "(?:". "[-+]?_*[1-9][0-9_]*". "|". "0x_*[0-9a-f][0-9a-f_]*". "|". "0b_*[01][01_]*". "|". "0[0-7_]*". ")"; use constant PAT_FLOAT => "[-+]?". # optional sign "(?=\\.?[0-9])". # must start with digit or dec.point "[0-9_]*". # digits before the dec.point "(\\.[0-9_]*)?". # optional fraction "([eE][-+]?[0-9_]+)?"; # optional exponent sub GetOptions(@) { # Shift in default array. unshift(@_, \@ARGV); # Try to keep caller() and Carp consistent. goto &GetOptionsFromArray; } sub GetOptionsFromString(@) { my ($string) = shift; require Text::ParseWords; my $args = [ Text::ParseWords::shellwords($string) ]; $caller ||= (caller)[0]; # current context my $ret = GetOptionsFromArray($args, @_); return ( $ret, $args ) if wantarray; if ( @$args ) { $ret = 0; warn("GetOptionsFromString: Excess data \"@$args\" in string \"$string\"\n"); } $ret; } sub GetOptionsFromArray(@) { my ($argv, @optionlist) = @_; # local copy of the option descriptions my $argend = '--'; # option list terminator my %opctl = (); # table of option specs my $pkg = $caller || (caller)[0]; # current context # Needed if linkage is omitted. my @ret = (); # accum for non-options my %linkage; # linkage my $userlinkage; # user supplied HASH my $opt; # current option my $prefix = $genprefix; # current prefix $error = ''; if ( $debug ) { # Avoid some warnings if debugging. local ($^W) = 0; print STDERR ("Getopt::Long $VERSION ", "called from package \"$pkg\".", "\n ", "argv: ", defined($argv) ? UNIVERSAL::isa( $argv, 'ARRAY' ) ? "(@$argv)" : $argv : "<undef>", "\n ", "autoabbrev=$autoabbrev,". "bundling=$bundling,", "bundling_values=$bundling_values,", "getopt_compat=$getopt_compat,", "gnu_compat=$gnu_compat,", "order=$order,", "\n ", "ignorecase=$ignorecase,", "requested_version=$requested_version,", "passthrough=$passthrough,", "genprefix=\"$genprefix\",", "longprefix=\"$longprefix\".", "\n"); } # Check for ref HASH as first argument. # First argument may be an object. It's OK to use this as long # as it is really a hash underneath. $userlinkage = undef; if ( @optionlist && ref($optionlist[0]) and UNIVERSAL::isa($optionlist[0],'HASH') ) { $userlinkage = shift (@optionlist); print STDERR ("=> user linkage: $userlinkage\n") if $debug; } # See if the first element of the optionlist contains option # starter characters. # Be careful not to interpret '<>' as option starters. if ( @optionlist && $optionlist[0] =~ /^\W+$/ && !($optionlist[0] eq '<>' && @optionlist > 0 && ref($optionlist[1])) ) { $prefix = shift (@optionlist); # Turn into regexp. Needs to be parenthesized! $prefix =~ s/(\W)/\\$1/g; $prefix = "([" . $prefix . "])"; print STDERR ("=> prefix=\"$prefix\"\n") if $debug; } # Verify correctness of optionlist. %opctl = (); while ( @optionlist ) { my $opt = shift (@optionlist); unless ( defined($opt) ) { $error .= "Undefined argument in option spec\n"; next; } # Strip leading prefix so people can specify "--foo=i" if they like. $opt = $+ if $opt =~ /^$prefix+(.*)$/s; if ( $opt eq '<>' ) { if ( (defined $userlinkage) && !(@optionlist > 0 && ref($optionlist[0])) && (exists $userlinkage->{$opt}) && ref($userlinkage->{$opt}) ) { unshift (@optionlist, $userlinkage->{$opt}); } unless ( @optionlist > 0 && ref($optionlist[0]) && ref($optionlist[0]) eq 'CODE' ) { $error .= "Option spec <> requires a reference to a subroutine\n"; # Kill the linkage (to avoid another error). shift (@optionlist) if @optionlist && ref($optionlist[0]); next; } $linkage{'<>'} = shift (@optionlist); next; } # Parse option spec. my ($name, $orig) = ParseOptionSpec ($opt, \%opctl); unless ( defined $name ) { # Failed. $orig contains the error message. Sorry for the abuse. $error .= $orig; # Kill the linkage (to avoid another error). shift (@optionlist) if @optionlist && ref($optionlist[0]); next; } # If no linkage is supplied in the @optionlist, copy it from # the userlinkage if available. if ( defined $userlinkage ) { unless ( @optionlist > 0 && ref($optionlist[0]) ) { if ( exists $userlinkage->{$orig} && ref($userlinkage->{$orig}) ) { print STDERR ("=> found userlinkage for \"$orig\": ", "$userlinkage->{$orig}\n") if $debug; unshift (@optionlist, $userlinkage->{$orig}); } else { # Do nothing. Being undefined will be handled later. next; } } } # Copy the linkage. If omitted, link to global variable. if ( @optionlist > 0 && ref($optionlist[0]) ) { print STDERR ("=> link \"$orig\" to $optionlist[0]\n") if $debug; my $rl = ref($linkage{$orig} = shift (@optionlist)); if ( $rl eq "ARRAY" ) { $opctl{$name}[CTL_DEST] = CTL_DEST_ARRAY; } elsif ( $rl eq "HASH" ) { $opctl{$name}[CTL_DEST] = CTL_DEST_HASH; } elsif ( $rl eq "SCALAR" || $rl eq "REF" ) { # if ( $opctl{$name}[CTL_DEST] == CTL_DEST_ARRAY ) { # my $t = $linkage{$orig}; # $$t = $linkage{$orig} = []; # } # elsif ( $opctl{$name}[CTL_DEST] == CTL_DEST_HASH ) { # } # else { # Ok. # } } elsif ( $rl eq "CODE" ) { # Ok. } else { $error .= "Invalid option linkage for \"$opt\"\n"; } } else { # Link to global $opt_XXX variable. # Make sure a valid perl identifier results. my $ov = $orig; $ov =~ s/\W/_/g; if ( $opctl{$name}[CTL_DEST] == CTL_DEST_ARRAY ) { print STDERR ("=> link \"$orig\" to \@$pkg","::opt_$ov\n") if $debug; eval ("\$linkage{\$orig} = \\\@".$pkg."::opt_$ov;"); } elsif ( $opctl{$name}[CTL_DEST] == CTL_DEST_HASH ) { print STDERR ("=> link \"$orig\" to \%$pkg","::opt_$ov\n") if $debug; eval ("\$linkage{\$orig} = \\\%".$pkg."::opt_$ov;"); } else { print STDERR ("=> link \"$orig\" to \$$pkg","::opt_$ov\n") if $debug; eval ("\$linkage{\$orig} = \\\$".$pkg."::opt_$ov;"); } } if ( $opctl{$name}[CTL_TYPE] eq 'I' && ( $opctl{$name}[CTL_DEST] == CTL_DEST_ARRAY || $opctl{$name}[CTL_DEST] == CTL_DEST_HASH ) ) { $error .= "Invalid option linkage for \"$opt\"\n"; } } $error .= "GetOptionsFromArray: 1st parameter is not an array reference\n" unless $argv && UNIVERSAL::isa( $argv, 'ARRAY' ); # Bail out if errors found. die ($error) if $error; $error = 0; # Supply --version and --help support, if needed and allowed. if ( defined($auto_version) ? $auto_version : ($requested_version >= 2.3203) ) { if ( !defined($opctl{version}) ) { $opctl{version} = ['','version',0,CTL_DEST_CODE,undef]; $linkage{version} = \&VersionMessage; } $auto_version = 1; } if ( defined($auto_help) ? $auto_help : ($requested_version >= 2.3203) ) { if ( !defined($opctl{help}) && !defined($opctl{'?'}) ) { $opctl{help} = $opctl{'?'} = ['','help',0,CTL_DEST_CODE,undef]; $linkage{help} = \&HelpMessage; } $auto_help = 1; } # Show the options tables if debugging. if ( $debug ) { my ($arrow, $k, $v); $arrow = "=> "; while ( ($k,$v) = each(%opctl) ) { print STDERR ($arrow, "\$opctl{$k} = $v ", OptCtl($v), "\n"); $arrow = " "; } } # Process argument list my $goon = 1; while ( $goon && @$argv > 0 ) { # Get next argument. $opt = shift (@$argv); print STDERR ("=> arg \"", $opt, "\"\n") if $debug; # Double dash is option list terminator. if ( defined($opt) && $opt eq $argend ) { push (@ret, $argend) if $passthrough; last; } # Look it up. my $tryopt = $opt; my $found; # success status my $key; # key (if hash type) my $arg; # option argument my $ctl; # the opctl entry my $starter; # the actual starter character(s) ($found, $opt, $ctl, $starter, $arg, $key) = FindOption ($argv, $prefix, $argend, $opt, \%opctl); if ( $found ) { # FindOption undefines $opt in case of errors. next unless defined $opt; my $argcnt = 0; while ( defined $arg ) { # Get the canonical name. my $given = $opt; print STDERR ("=> cname for \"$opt\" is ") if $debug; $opt = $ctl->[CTL_CNAME]; print STDERR ("\"$ctl->[CTL_CNAME]\"\n") if $debug; if ( defined $linkage{$opt} ) { print STDERR ("=> ref(\$L{$opt}) -> ", ref($linkage{$opt}), "\n") if $debug; if ( ref($linkage{$opt}) eq 'SCALAR' || ref($linkage{$opt}) eq 'REF' ) { if ( $ctl->[CTL_TYPE] eq '+' ) { print STDERR ("=> \$\$L{$opt} += \"$arg\"\n") if $debug; if ( defined ${$linkage{$opt}} ) { ${$linkage{$opt}} += $arg; } else { ${$linkage{$opt}} = $arg; } } elsif ( $ctl->[CTL_DEST] == CTL_DEST_ARRAY ) { print STDERR ("=> ref(\$L{$opt}) auto-vivified", " to ARRAY\n") if $debug; my $t = $linkage{$opt}; $$t = $linkage{$opt} = []; print STDERR ("=> push(\@{\$L{$opt}, \"$arg\")\n") if $debug; push (@{$linkage{$opt}}, $arg); } elsif ( $ctl->[CTL_DEST] == CTL_DEST_HASH ) { print STDERR ("=> ref(\$L{$opt}) auto-vivified", " to HASH\n") if $debug; my $t = $linkage{$opt}; $$t = $linkage{$opt} = {}; print STDERR ("=> \$\$L{$opt}->{$key} = \"$arg\"\n") if $debug; $linkage{$opt}->{$key} = $arg; } else { print STDERR ("=> \$\$L{$opt} = \"$arg\"\n") if $debug; ${$linkage{$opt}} = $arg; } } elsif ( ref($linkage{$opt}) eq 'ARRAY' ) { print STDERR ("=> push(\@{\$L{$opt}, \"$arg\")\n") if $debug; push (@{$linkage{$opt}}, $arg); } elsif ( ref($linkage{$opt}) eq 'HASH' ) { print STDERR ("=> \$\$L{$opt}->{$key} = \"$arg\"\n") if $debug; $linkage{$opt}->{$key} = $arg; } elsif ( ref($linkage{$opt}) eq 'CODE' ) { print STDERR ("=> &L{$opt}(\"$opt\"", $ctl->[CTL_DEST] == CTL_DEST_HASH ? ", \"$key\"" : "", ", \"$arg\")\n") if $debug; my $eval_error = do { local $@; local $SIG{__DIE__} = 'DEFAULT'; eval { &{$linkage{$opt}} (Getopt::Long::CallBack->new (name => $opt, given => $given, ctl => $ctl, opctl => \%opctl, linkage => \%linkage, prefix => $prefix, starter => $starter, ), $ctl->[CTL_DEST] == CTL_DEST_HASH ? ($key) : (), $arg); }; $@; }; print STDERR ("=> die($eval_error)\n") if $debug && $eval_error ne ''; if ( $eval_error =~ /^!/ ) { if ( $eval_error =~ /^!FINISH\b/ ) { $goon = 0; } } elsif ( $eval_error ne '' ) { warn ($eval_error); $error++; } } else { print STDERR ("Invalid REF type \"", ref($linkage{$opt}), "\" in linkage\n"); die("Getopt::Long -- internal error!\n"); } } # No entry in linkage means entry in userlinkage. elsif ( $ctl->[CTL_DEST] == CTL_DEST_ARRAY ) { if ( defined $userlinkage->{$opt} ) { print STDERR ("=> push(\@{\$L{$opt}}, \"$arg\")\n") if $debug; push (@{$userlinkage->{$opt}}, $arg); } else { print STDERR ("=>\$L{$opt} = [\"$arg\"]\n") if $debug; $userlinkage->{$opt} = [$arg]; } } elsif ( $ctl->[CTL_DEST] == CTL_DEST_HASH ) { if ( defined $userlinkage->{$opt} ) { print STDERR ("=> \$L{$opt}->{$key} = \"$arg\"\n") if $debug; $userlinkage->{$opt}->{$key} = $arg; } else { print STDERR ("=>\$L{$opt} = {$key => \"$arg\"}\n") if $debug; $userlinkage->{$opt} = {$key => $arg}; } } else { if ( $ctl->[CTL_TYPE] eq '+' ) { print STDERR ("=> \$L{$opt} += \"$arg\"\n") if $debug; if ( defined $userlinkage->{$opt} ) { $userlinkage->{$opt} += $arg; } else { $userlinkage->{$opt} = $arg; } } else { print STDERR ("=>\$L{$opt} = \"$arg\"\n") if $debug; $userlinkage->{$opt} = $arg; } } $argcnt++; last if $argcnt >= $ctl->[CTL_AMAX] && $ctl->[CTL_AMAX] != -1; undef($arg); # Need more args? if ( $argcnt < $ctl->[CTL_AMIN] ) { if ( @$argv ) { if ( ValidValue($ctl, $argv->[0], 1, $argend, $prefix) ) { $arg = shift(@$argv); if ( $ctl->[CTL_TYPE] =~ /^[iIo]$/ ) { $arg =~ tr/_//d; $arg = $ctl->[CTL_TYPE] eq 'o' && $arg =~ /^0/ ? oct($arg) : 0+$arg } ($key,$arg) = $arg =~ /^([^=]+)=(.*)/ if $ctl->[CTL_DEST] == CTL_DEST_HASH; next; } warn("Value \"$$argv[0]\" invalid for option $opt\n"); $error++; } else { warn("Insufficient arguments for option $opt\n"); $error++; } } # Any more args? if ( @$argv && ValidValue($ctl, $argv->[0], 0, $argend, $prefix) ) { $arg = shift(@$argv); if ( $ctl->[CTL_TYPE] =~ /^[iIo]$/ ) { $arg =~ tr/_//d; $arg = $ctl->[CTL_TYPE] eq 'o' && $arg =~ /^0/ ? oct($arg) : 0+$arg } ($key,$arg) = $arg =~ /^([^=]+)=(.*)/ if $ctl->[CTL_DEST] == CTL_DEST_HASH; next; } } } # Not an option. Save it if we $PERMUTE and don't have a <>. elsif ( $order == $PERMUTE ) { # Try non-options call-back. my $cb; if ( defined ($cb = $linkage{'<>'}) ) { print STDERR ("=> &L{$tryopt}(\"$tryopt\")\n") if $debug; my $eval_error = do { local $@; local $SIG{__DIE__} = 'DEFAULT'; eval { # The arg to <> cannot be the CallBack object # since it may be passed to other modules that # get confused (e.g., Archive::Tar). Well, # it's not relevant for this callback anyway. &$cb($tryopt); }; $@; }; print STDERR ("=> die($eval_error)\n") if $debug && $eval_error ne ''; if ( $eval_error =~ /^!/ ) { if ( $eval_error =~ /^!FINISH\b/ ) { $goon = 0; } } elsif ( $eval_error ne '' ) { warn ($eval_error); $error++; } } else { print STDERR ("=> saving \"$tryopt\" ", "(not an option, may permute)\n") if $debug; push (@ret, $tryopt); } next; } # ...otherwise, terminate. else { # Push this one back and exit. unshift (@$argv, $tryopt); return ($error == 0); } } # Finish. if ( @ret && ( $order == $PERMUTE || $passthrough ) ) { # Push back accumulated arguments print STDERR ("=> restoring \"", join('" "', @ret), "\"\n") if $debug; unshift (@$argv, @ret); } return ($error == 0); } # A readable representation of what's in an optbl. sub OptCtl ($) { my ($v) = @_; my @v = map { defined($_) ? ($_) : ("<undef>") } @$v; "[". join(",", "\"$v[CTL_TYPE]\"", "\"$v[CTL_CNAME]\"", "\"$v[CTL_DEFAULT]\"", ("\$","\@","\%","\&")[$v[CTL_DEST] || 0], $v[CTL_AMIN] || '', $v[CTL_AMAX] || '', # $v[CTL_RANGE] || '', # $v[CTL_REPEAT] || '', ). "]"; } # Parse an option specification and fill the tables. sub ParseOptionSpec ($$) { my ($opt, $opctl) = @_; # Allow period in option name unless passing through, my $op = $passthrough ? qr/(?: \w+[-\w]* )/x : qr/(?: \w+[-.\w]* )/x; # Match option spec. if ( $opt !~ m;^ ( # Option name $op # Aliases (?: \| (?: . [^|!+=:]* )? )* )? ( # Either modifiers ... [!+] | # ... or a value/dest/repeat specification [=:] [ionfs] [@%]? (?: \{\d*,?\d*\} )? | # ... or an optional-with-default spec : (?: 0[0-7]+ | 0[xX][0-9a-fA-F]+ | 0[bB][01]+ | -?\d+ | \+ ) [@%]? )? $;x ) { return (undef, "Error in option spec: \"$opt\"\n"); } my ($names, $spec) = ($1, $2); $spec = '' unless defined $spec; # $orig keeps track of the primary name the user specified. # This name will be used for the internal or external linkage. # In other words, if the user specifies "FoO|BaR", it will # match any case combinations of 'foo' and 'bar', but if a global # variable needs to be set, it will be $opt_FoO in the exact case # as specified. my $orig; my @names; if ( defined $names ) { @names = split (/\|/, $names); $orig = $names[0]; } else { @names = (''); $orig = ''; } # Construct the opctl entries. my $entry; if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) { # Fields are hard-wired here. $entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0]; } elsif ( $spec =~ /^:(0[0-7]+|0x[0-9a-f]+|0b[01]+|-?\d+|\+)([@%])?$/i ) { my $def = $1; my $dest = $2; my $type = 'i'; # assume integer if ( $def eq '+' ) { # Increment. $type = 'I'; } elsif ( $def =~ /^(0[0-7]+|0[xX][0-9a-fA-F]+|0[bB][01]+)$/ ) { # Octal, binary or hex. $type = 'o'; $def = oct($def); } elsif ( $def =~ /^-?\d+$/ ) { # Integer. $def = 0 + $def; } $dest ||= '$'; $dest = $dest eq '@' ? CTL_DEST_ARRAY : $dest eq '%' ? CTL_DEST_HASH : CTL_DEST_SCALAR; # Fields are hard-wired here. $entry = [$type,$orig,$def eq '+' ? undef : $def, $dest,0,1]; } else { my ($mand, $type, $dest) = $spec =~ /^([=:])([ionfs])([@%])?(\{(\d+)?(,)?(\d+)?\})?$/; return (undef, "Cannot repeat while bundling: \"$opt\"\n") if $bundling && defined($4); my ($mi, $cm, $ma) = ($5, $6, $7); return (undef, "{0} is useless in option spec: \"$opt\"\n") if defined($mi) && !$mi && !defined($ma) && !defined($cm); $type = 'i' if $type eq 'n'; $dest ||= '$'; $dest = $dest eq '@' ? CTL_DEST_ARRAY : $dest eq '%' ? CTL_DEST_HASH : CTL_DEST_SCALAR; # Default minargs to 1/0 depending on mand status. $mi = $mand eq '=' ? 1 : 0 unless defined $mi; # Adjust mand status according to minargs. $mand = $mi ? '=' : ':'; # Adjust maxargs. $ma = $mi ? $mi : 1 unless defined $ma || defined $cm; return (undef, "Max must be greater than zero in option spec: \"$opt\"\n") if defined($ma) && !$ma; return (undef, "Max less than min in option spec: \"$opt\"\n") if defined($ma) && $ma < $mi; # Fields are hard-wired here. $entry = [$type,$orig,undef,$dest,$mi,$ma||-1]; } # Process all names. First is canonical, the rest are aliases. my $dups = ''; foreach ( @names ) { $_ = lc ($_) if $ignorecase > (($bundling && length($_) == 1) ? 1 : 0); if ( exists $opctl->{$_} ) { $dups .= "Duplicate specification \"$opt\" for option \"$_\"\n"; } if ( $spec eq '!' ) { $opctl->{"no$_"} = $entry; $opctl->{"no-$_"} = $entry; $opctl->{$_} = [@$entry]; $opctl->{$_}->[CTL_TYPE] = ''; } else { $opctl->{$_} = $entry; } } if ( $dups ) { # Warn now. Will become fatal in a future release. foreach ( split(/\n+/, $dups) ) { warn($_."\n"); } } ($names[0], $orig); } # Option lookup. sub FindOption ($$$$$) { # returns (1, $opt, $ctl, $starter, $arg, $key) if okay, # returns (1, undef) if option in error, # returns (0) otherwise. my ($argv, $prefix, $argend, $opt, $opctl) = @_; print STDERR ("=> find \"$opt\"\n") if $debug; return (0) unless defined($opt); return (0) unless $opt =~ /^($prefix)(.*)$/s; return (0) if $opt eq "-" && !defined $opctl->{''}; $opt = substr( $opt, length($1) ); # retain taintedness my $starter = $1; print STDERR ("=> split \"$starter\"+\"$opt\"\n") if $debug; my $optarg; # value supplied with --opt=value my $rest; # remainder from unbundling # If it is a long option, it may include the value. # With getopt_compat, only if not bundling. if ( ($starter=~/^$longprefix$/ || ($getopt_compat && ($bundling == 0 || $bundling == 2))) && (my $oppos = index($opt, '=', 1)) > 0) { my $optorg = $opt; $opt = substr($optorg, 0, $oppos); $optarg = substr($optorg, $oppos + 1); # retain tainedness print STDERR ("=> option \"", $opt, "\", optarg = \"$optarg\"\n") if $debug; } #### Look it up ### my $tryopt = $opt; # option to try if ( ( $bundling || $bundling_values ) && $starter eq '-' ) { # To try overrides, obey case ignore. $tryopt = $ignorecase ? lc($opt) : $opt; # If bundling == 2, long options can override bundles. if ( $bundling == 2 && length($tryopt) > 1 && defined ($opctl->{$tryopt}) ) { print STDERR ("=> $starter$tryopt overrides unbundling\n") if $debug; } # If bundling_values, option may be followed by the value. elsif ( $bundling_values ) { $tryopt = $opt; # Unbundle single letter option. $rest = length ($tryopt) > 0 ? substr ($tryopt, 1) : ''; $tryopt = substr ($tryopt, 0, 1); $tryopt = lc ($tryopt) if $ignorecase > 1; print STDERR ("=> $starter$tryopt unbundled from ", "$starter$tryopt$rest\n") if $debug; # Whatever remains may not be considered an option. $optarg = $rest eq '' ? undef : $rest; $rest = undef; } # Split off a single letter and leave the rest for # further processing. else { $tryopt = $opt; # Unbundle single letter option. $rest = length ($tryopt) > 0 ? substr ($tryopt, 1) : ''; $tryopt = substr ($tryopt, 0, 1); $tryopt = lc ($tryopt) if $ignorecase > 1; print STDERR ("=> $starter$tryopt unbundled from ", "$starter$tryopt$rest\n") if $debug; $rest = undef unless $rest ne ''; } } # Try auto-abbreviation. elsif ( $autoabbrev && $opt ne "" ) { # Sort the possible long option names. my @names = sort(keys (%$opctl)); # Downcase if allowed. $opt = lc ($opt) if $ignorecase; $tryopt = $opt; # Turn option name into pattern. my $pat = quotemeta ($opt); # Look up in option names. my @hits = grep (/^$pat/, @names); print STDERR ("=> ", scalar(@hits), " hits (@hits) with \"$pat\" ", "out of ", scalar(@names), "\n") if $debug; # Check for ambiguous results. unless ( (@hits <= 1) || (grep ($_ eq $opt, @hits) == 1) ) { # See if all matches are for the same option. my %hit; foreach ( @hits ) { my $hit = $opctl->{$_}->[CTL_CNAME] if defined $opctl->{$_}->[CTL_CNAME]; $hit = "no" . $hit if $opctl->{$_}->[CTL_TYPE] eq '!'; $hit{$hit} = 1; } # Remove auto-supplied options (version, help). if ( keys(%hit) == 2 ) { if ( $auto_version && exists($hit{version}) ) { delete $hit{version}; } elsif ( $auto_help && exists($hit{help}) ) { delete $hit{help}; } } # Now see if it really is ambiguous. unless ( keys(%hit) == 1 ) { return (0) if $passthrough; warn ("Option ", $opt, " is ambiguous (", join(", ", @hits), ")\n"); $error++; return (1, undef); } @hits = keys(%hit); } # Complete the option name, if appropriate. if ( @hits == 1 && $hits[0] ne $opt ) { $tryopt = $hits[0]; $tryopt = lc ($tryopt) if $ignorecase > (($bundling && length($tryopt) == 1) ? 1 : 0); print STDERR ("=> option \"$opt\" -> \"$tryopt\"\n") if $debug; } } # Map to all lowercase if ignoring case. elsif ( $ignorecase ) { $tryopt = lc ($opt); } # Check validity by fetching the info. my $ctl = $opctl->{$tryopt}; unless ( defined $ctl ) { return (0) if $passthrough; # Pretend one char when bundling. if ( $bundling == 1 && length($starter) == 1 ) { $opt = substr($opt,0,1); unshift (@$argv, $starter.$rest) if defined $rest; } if ( $opt eq "" ) { warn ("Missing option after ", $starter, "\n"); } else { warn ("Unknown option: ", $opt, "\n"); } $error++; return (1, undef); } # Apparently valid. $opt = $tryopt; print STDERR ("=> found ", OptCtl($ctl), " for \"", $opt, "\"\n") if $debug; #### Determine argument status #### # If it is an option w/o argument, we're almost finished with it. my $type = $ctl->[CTL_TYPE]; my $arg; if ( $type eq '' || $type eq '!' || $type eq '+' ) { if ( defined $optarg ) { return (0) if $passthrough; warn ("Option ", $opt, " does not take an argument\n"); $error++; undef $opt; undef $optarg if $bundling_values; } elsif ( $type eq '' || $type eq '+' ) { # Supply explicit value. $arg = 1; } else { $opt =~ s/^no-?//i; # strip NO prefix $arg = 0; # supply explicit value } unshift (@$argv, $starter.$rest) if defined $rest; return (1, $opt, $ctl, $starter, $arg); } # Get mandatory status and type info. my $mand = $ctl->[CTL_AMIN]; # Check if there is an option argument available. if ( $gnu_compat ) { my $optargtype = 0; # none, 1 = empty, 2 = nonempty, 3 = aux if ( defined($optarg) ) { $optargtype = (length($optarg) == 0) ? 1 : 2; } elsif ( defined $rest || @$argv > 0 ) { # GNU getopt_long() does not accept the (optional) # argument to be passed to the option without = sign. # We do, since not doing so breaks existing scripts. $optargtype = 3; } if(($optargtype == 0) && !$mand) { if ( $type eq 'I' ) { # Fake incremental type. my @c = @$ctl; $c[CTL_TYPE] = '+'; return (1, $opt, \@c, $starter, 1); } my $val = defined($ctl->[CTL_DEFAULT]) ? $ctl->[CTL_DEFAULT] : $type eq 's' ? '' : 0; return (1, $opt, $ctl, $starter, $val); } return (1, $opt, $ctl, $starter, $type eq 's' ? '' : 0) if $optargtype == 1; # --foo= -> return nothing } # Check if there is an option argument available. if ( defined $optarg ? ($optarg eq '') : !(defined $rest || @$argv > 0) ) { # Complain if this option needs an argument. # if ( $mand && !($type eq 's' ? defined($optarg) : 0) ) { if ( $mand || $ctl->[CTL_DEST] == CTL_DEST_HASH ) { return (0) if $passthrough; warn ("Option ", $opt, " requires an argument\n"); $error++; return (1, undef); } if ( $type eq 'I' ) { # Fake incremental type. my @c = @$ctl; $c[CTL_TYPE] = '+'; return (1, $opt, \@c, $starter, 1); } return (1, $opt, $ctl, $starter, defined($ctl->[CTL_DEFAULT]) ? $ctl->[CTL_DEFAULT] : $type eq 's' ? '' : 0); } # Get (possibly optional) argument. $arg = (defined $rest ? $rest : (defined $optarg ? $optarg : shift (@$argv))); # Get key if this is a "name=value" pair for a hash option. my $key; if ($ctl->[CTL_DEST] == CTL_DEST_HASH && defined $arg) { ($key, $arg) = ($arg =~ /^([^=]*)=(.*)$/s) ? ($1, $2) : ($arg, defined($ctl->[CTL_DEFAULT]) ? $ctl->[CTL_DEFAULT] : ($mand ? undef : ($type eq 's' ? "" : 1))); if (! defined $arg) { warn ("Option $opt, key \"$key\", requires a value\n"); $error++; # Push back. unshift (@$argv, $starter.$rest) if defined $rest; return (1, undef); } } #### Check if the argument is valid for this option #### my $key_valid = $ctl->[CTL_DEST] == CTL_DEST_HASH ? "[^=]+=" : ""; if ( $type eq 's' ) { # string # A mandatory string takes anything. return (1, $opt, $ctl, $starter, $arg, $key) if $mand; # Same for optional string as a hash value return (1, $opt, $ctl, $starter, $arg, $key) if $ctl->[CTL_DEST] == CTL_DEST_HASH; # An optional string takes almost anything. return (1, $opt, $ctl, $starter, $arg, $key) if defined $optarg || defined $rest; return (1, $opt, $ctl, $starter, $arg, $key) if $arg eq "-"; # ?? # Check for option or option list terminator. if ($arg eq $argend || $arg =~ /^$prefix.+/) { # Push back. unshift (@$argv, $arg); # Supply empty value. $arg = ''; } } elsif ( $type eq 'i' # numeric/integer || $type eq 'I' # numeric/integer w/ incr default || $type eq 'o' ) { # dec/oct/hex/bin value my $o_valid = $type eq 'o' ? PAT_XINT : PAT_INT; if ( $bundling && defined $rest && $rest =~ /^($key_valid)($o_valid)(.*)$/si ) { ($key, $arg, $rest) = ($1, $2, $+); chop($key) if $key; $arg = ($type eq 'o' && $arg =~ /^0/) ? oct($arg) : 0+$arg; unshift (@$argv, $starter.$rest) if defined $rest && $rest ne ''; } elsif ( $arg =~ /^$o_valid$/si ) { $arg =~ tr/_//d; $arg = ($type eq 'o' && $arg =~ /^0/) ? oct($arg) : 0+$arg; } else { if ( defined $optarg || $mand ) { if ( $passthrough ) { unshift (@$argv, defined $rest ? $starter.$rest : $arg) unless defined $optarg; return (0); } warn ("Value \"", $arg, "\" invalid for option ", $opt, " (", $type eq 'o' ? "extended " : '', "integer number expected)\n"); $error++; # Push back. unshift (@$argv, $starter.$rest) if defined $rest; return (1, undef); } else { # Push back. unshift (@$argv, defined $rest ? $starter.$rest : $arg); if ( $type eq 'I' ) { # Fake incremental type. my @c = @$ctl; $c[CTL_TYPE] = '+'; return (1, $opt, \@c, $starter, 1); } # Supply default value. $arg = defined($ctl->[CTL_DEFAULT]) ? $ctl->[CTL_DEFAULT] : 0; } } } elsif ( $type eq 'f' ) { # real number, int is also ok my $o_valid = PAT_FLOAT; if ( $bundling && defined $rest && $rest =~ /^($key_valid)($o_valid)(.*)$/s ) { $arg =~ tr/_//d; ($key, $arg, $rest) = ($1, $2, $+); chop($key) if $key; unshift (@$argv, $starter.$rest) if defined $rest && $rest ne ''; } elsif ( $arg =~ /^$o_valid$/ ) { $arg =~ tr/_//d; } else { if ( defined $optarg || $mand ) { if ( $passthrough ) { unshift (@$argv, defined $rest ? $starter.$rest : $arg) unless defined $optarg; return (0); } warn ("Value \"", $arg, "\" invalid for option ", $opt, " (real number expected)\n"); $error++; # Push back. unshift (@$argv, $starter.$rest) if defined $rest; return (1, undef); } else { # Push back. unshift (@$argv, defined $rest ? $starter.$rest : $arg); # Supply default value. $arg = 0.0; } } } else { die("Getopt::Long internal error (Can't happen)\n"); } return (1, $opt, $ctl, $starter, $arg, $key); } sub ValidValue ($$$$$) { my ($ctl, $arg, $mand, $argend, $prefix) = @_; if ( $ctl->[CTL_DEST] == CTL_DEST_HASH ) { return 0 unless $arg =~ /[^=]+=(.*)/; $arg = $1; } my $type = $ctl->[CTL_TYPE]; if ( $type eq 's' ) { # string # A mandatory string takes anything. return (1) if $mand; return (1) if $arg eq "-"; # Check for option or option list terminator. return 0 if $arg eq $argend || $arg =~ /^$prefix.+/; return 1; } elsif ( $type eq 'i' # numeric/integer || $type eq 'I' # numeric/integer w/ incr default || $type eq 'o' ) { # dec/oct/hex/bin value my $o_valid = $type eq 'o' ? PAT_XINT : PAT_INT; return $arg =~ /^$o_valid$/si; } elsif ( $type eq 'f' ) { # real number, int is also ok my $o_valid = PAT_FLOAT; return $arg =~ /^$o_valid$/; } die("ValidValue: Cannot happen\n"); } # Getopt::Long Configuration. sub Configure (@) { my (@options) = @_; my $prevconfig = [ $error, $debug, $major_version, $minor_version, $caller, $autoabbrev, $getopt_compat, $ignorecase, $bundling, $order, $gnu_compat, $passthrough, $genprefix, $auto_version, $auto_help, $longprefix, $bundling_values ]; if ( ref($options[0]) eq 'ARRAY' ) { ( $error, $debug, $major_version, $minor_version, $caller, $autoabbrev, $getopt_compat, $ignorecase, $bundling, $order, $gnu_compat, $passthrough, $genprefix, $auto_version, $auto_help, $longprefix, $bundling_values ) = @{shift(@options)}; } my $opt; foreach $opt ( @options ) { my $try = lc ($opt); my $action = 1; if ( $try =~ /^no_?(.*)$/s ) { $action = 0; $try = $+; } if ( ($try eq 'default' or $try eq 'defaults') && $action ) { ConfigDefaults (); } elsif ( ($try eq 'posix_default' or $try eq 'posix_defaults') ) { local $ENV{POSIXLY_CORRECT}; $ENV{POSIXLY_CORRECT} = 1 if $action; ConfigDefaults (); } elsif ( $try eq 'auto_abbrev' or $try eq 'autoabbrev' ) { $autoabbrev = $action; } elsif ( $try eq 'getopt_compat' ) { $getopt_compat = $action; $genprefix = $action ? "(--|-|\\+)" : "(--|-)"; } elsif ( $try eq 'gnu_getopt' ) { if ( $action ) { $gnu_compat = 1; $bundling = 1; $getopt_compat = 0; $genprefix = "(--|-)"; $order = $PERMUTE; $bundling_values = 0; } } elsif ( $try eq 'gnu_compat' ) { $gnu_compat = $action; $bundling = 0; $bundling_values = 1; } elsif ( $try =~ /^(auto_?)?version$/ ) { $auto_version = $action; } elsif ( $try =~ /^(auto_?)?help$/ ) { $auto_help = $action; } elsif ( $try eq 'ignorecase' or $try eq 'ignore_case' ) { $ignorecase = $action; } elsif ( $try eq 'ignorecase_always' or $try eq 'ignore_case_always' ) { $ignorecase = $action ? 2 : 0; } elsif ( $try eq 'bundling' ) { $bundling = $action; $bundling_values = 0 if $action; } elsif ( $try eq 'bundling_override' ) { $bundling = $action ? 2 : 0; $bundling_values = 0 if $action; } elsif ( $try eq 'bundling_values' ) { $bundling_values = $action; $bundling = 0 if $action; } elsif ( $try eq 'require_order' ) { $order = $action ? $REQUIRE_ORDER : $PERMUTE; } elsif ( $try eq 'permute' ) { $order = $action ? $PERMUTE : $REQUIRE_ORDER; } elsif ( $try eq 'pass_through' or $try eq 'passthrough' ) { $passthrough = $action; } elsif ( $try =~ /^prefix=(.+)$/ && $action ) { $genprefix = $1; # Turn into regexp. Needs to be parenthesized! $genprefix = "(" . quotemeta($genprefix) . ")"; eval { '' =~ /$genprefix/; }; die("Getopt::Long: invalid pattern \"$genprefix\"\n") if $@; } elsif ( $try =~ /^prefix_pattern=(.+)$/ && $action ) { $genprefix = $1; # Parenthesize if needed. $genprefix = "(" . $genprefix . ")" unless $genprefix =~ /^\(.*\)$/; eval { '' =~ m"$genprefix"; }; die("Getopt::Long: invalid pattern \"$genprefix\"\n") if $@; } elsif ( $try =~ /^long_prefix_pattern=(.+)$/ && $action ) { $longprefix = $1; # Parenthesize if needed. $longprefix = "(" . $longprefix . ")" unless $longprefix =~ /^\(.*\)$/; eval { '' =~ m"$longprefix"; }; die("Getopt::Long: invalid long prefix pattern \"$longprefix\"\n") if $@; } elsif ( $try eq 'debug' ) { $debug = $action; } else { die("Getopt::Long: unknown or erroneous config parameter \"$opt\"\n") } } $prevconfig; } # Deprecated name. sub config (@) { Configure (@_); } # Issue a standard message for --version. # # The arguments are mostly the same as for Pod::Usage::pod2usage: # # - a number (exit value) # - a string (lead in message) # - a hash with options. See Pod::Usage for details. # sub VersionMessage(@) { # Massage args. my $pa = setup_pa_args("version", @_); my $v = $main::VERSION; my $fh = $pa->{-output} || ( ($pa->{-exitval} eq "NOEXIT" || $pa->{-exitval} < 2) ? \*STDOUT : \*STDERR ); print $fh (defined($pa->{-message}) ? $pa->{-message} : (), $0, defined $v ? " version $v" : (), "\n", "(", __PACKAGE__, "::", "GetOptions", " version $VERSION,", " Perl version ", $] >= 5.006 ? sprintf("%vd", $^V) : $], ")\n"); exit($pa->{-exitval}) unless $pa->{-exitval} eq "NOEXIT"; } # Issue a standard message for --help. # # The arguments are the same as for Pod::Usage::pod2usage: # # - a number (exit value) # - a string (lead in message) # - a hash with options. See Pod::Usage for details. # sub HelpMessage(@) { eval { require Pod::Usage; Pod::Usage->import; 1; } || die("Cannot provide help: cannot load Pod::Usage\n"); # Note that pod2usage will issue a warning if -exitval => NOEXIT. pod2usage(setup_pa_args("help", @_)); } # Helper routine to set up a normalized hash ref to be used as # argument to pod2usage. sub setup_pa_args($@) { my $tag = shift; # who's calling # If called by direct binding to an option, it will get the option # name and value as arguments. Remove these, if so. @_ = () if @_ == 2 && $_[0] eq $tag; my $pa; if ( @_ > 1 ) { $pa = { @_ }; } else { $pa = shift || {}; } # At this point, $pa can be a number (exit value), string # (message) or hash with options. if ( UNIVERSAL::isa($pa, 'HASH') ) { # Get rid of -msg vs. -message ambiguity. if (!defined $pa->{-message}) { $pa->{-message} = delete($pa->{-msg}); } } elsif ( $pa =~ /^-?\d+$/ ) { $pa = { -exitval => $pa }; } else { $pa = { -message => $pa }; } # These are _our_ defaults. $pa->{-verbose} = 0 unless exists($pa->{-verbose}); $pa->{-exitval} = 0 unless exists($pa->{-exitval}); $pa; } # Sneak way to know what version the user requested. sub VERSION { $requested_version = $_[1] if @_ > 1; shift->SUPER::VERSION(@_); } package Getopt::Long::CallBack; sub new { my ($pkg, %atts) = @_; bless { %atts }, $pkg; } sub name { my $self = shift; ''.$self->{name}; } sub given { my $self = shift; $self->{given}; } use overload # Treat this object as an ordinary string for legacy API. '""' => \&name, fallback => 1; 1; ################ Documentation ################ =head1 NAME Getopt::Long - Extended processing of command line options =head1 SYNOPSIS use Getopt::Long; my $data = "file.dat"; my $length = 24; my $verbose; GetOptions ("length=i" => \$length, # numeric "file=s" => \$data, # string "verbose" => \$verbose) # flag or die("Error in command line arguments\n"); =head1 DESCRIPTION The Getopt::Long module implements an extended getopt function called GetOptions(). It parses the command line from C<@ARGV>, recognizing and removing specified options and their possible values. This function adheres to the POSIX syntax for command line options, with GNU extensions. In general, this means that options have long names instead of single letters, and are introduced with a double dash "--". Support for bundling of command line options, as was the case with the more traditional single-letter approach, is provided but not enabled by default. =head1 Command Line Options, an Introduction Command line operated programs traditionally take their arguments from the command line, for example filenames or other information that the program needs to know. Besides arguments, these programs often take command line I<options> as well. Options are not necessary for the program to work, hence the name 'option', but are used to modify its default behaviour. For example, a program could do its job quietly, but with a suitable option it could provide verbose information about what it did. Command line options come in several flavours. Historically, they are preceded by a single dash C<->, and consist of a single letter. -l -a -c Usually, these single-character options can be bundled: -lac Options can have values, the value is placed after the option character. Sometimes with whitespace in between, sometimes not: -s 24 -s24 Due to the very cryptic nature of these options, another style was developed that used long names. So instead of a cryptic C<-l> one could use the more descriptive C<--long>. To distinguish between a bundle of single-character options and a long one, two dashes are used to precede the option name. Early implementations of long options used a plus C<+> instead. Also, option values could be specified either like --size=24 or --size 24 The C<+> form is now obsolete and strongly deprecated. =head1 Getting Started with Getopt::Long Getopt::Long is the Perl5 successor of C<newgetopt.pl>. This was the first Perl module that provided support for handling the new style of command line options, in particular long option names, hence the Perl5 name Getopt::Long. This module also supports single-character options and bundling. To use Getopt::Long from a Perl program, you must include the following line in your Perl program: use Getopt::Long; This will load the core of the Getopt::Long module and prepare your program for using it. Most of the actual Getopt::Long code is not loaded until you really call one of its functions. In the default configuration, options names may be abbreviated to uniqueness, case does not matter, and a single dash is sufficient, even for long option names. Also, options may be placed between non-option arguments. See L<Configuring Getopt::Long> for more details on how to configure Getopt::Long. =head2 Simple options The most simple options are the ones that take no values. Their mere presence on the command line enables the option. Popular examples are: --all --verbose --quiet --debug Handling simple options is straightforward: my $verbose = ''; # option variable with default value (false) my $all = ''; # option variable with default value (false) GetOptions ('verbose' => \$verbose, 'all' => \$all); The call to GetOptions() parses the command line arguments that are present in C<@ARGV> and sets the option variable to the value C<1> if the option did occur on the command line. Otherwise, the option variable is not touched. Setting the option value to true is often called I<enabling> the option. The option name as specified to the GetOptions() function is called the option I<specification>. Later we'll see that this specification can contain more than just the option name. The reference to the variable is called the option I<destination>. GetOptions() will return a true value if the command line could be processed successfully. Otherwise, it will write error messages using die() and warn(), and return a false result. =head2 A little bit less simple options Getopt::Long supports two useful variants of simple options: I<negatable> options and I<incremental> options. A negatable option is specified with an exclamation mark C<!> after the option name: my $verbose = ''; # option variable with default value (false) GetOptions ('verbose!' => \$verbose); Now, using C<--verbose> on the command line will enable C<$verbose>, as expected. But it is also allowed to use C<--noverbose>, which will disable C<$verbose> by setting its value to C<0>. Using a suitable default value, the program can find out whether C<$verbose> is false by default, or disabled by using C<--noverbose>. (If both C<--verbose> and C<--noverbose> are given, whichever is given last takes precedence.) An incremental option is specified with a plus C<+> after the option name: my $verbose = ''; # option variable with default value (false) GetOptions ('verbose+' => \$verbose); Using C<--verbose> on the command line will increment the value of C<$verbose>. This way the program can keep track of how many times the option occurred on the command line. For example, each occurrence of C<--verbose> could increase the verbosity level of the program. =head2 Mixing command line option with other arguments Usually programs take command line options as well as other arguments, for example, file names. It is good practice to always specify the options first, and the other arguments last. Getopt::Long will, however, allow the options and arguments to be mixed and 'filter out' all the options before passing the rest of the arguments to the program. To stop Getopt::Long from processing further arguments, insert a double dash C<--> on the command line: --size 24 -- --all In this example, C<--all> will I<not> be treated as an option, but passed to the program unharmed, in C<@ARGV>. =head2 Options with values For options that take values it must be specified whether the option value is required or not, and what kind of value the option expects. Three kinds of values are supported: integer numbers, floating point numbers, and strings. If the option value is required, Getopt::Long will take the command line argument that follows the option and assign this to the option variable. If, however, the option value is specified as optional, this will only be done if that value does not look like a valid command line option itself. my $tag = ''; # option variable with default value GetOptions ('tag=s' => \$tag); In the option specification, the option name is followed by an equals sign C<=> and the letter C<s>. The equals sign indicates that this option requires a value. The letter C<s> indicates that this value is an arbitrary string. Other possible value types are C<i> for integer values, and C<f> for floating point values. Using a colon C<:> instead of the equals sign indicates that the option value is optional. In this case, if no suitable value is supplied, string valued options get an empty string C<''> assigned, while numeric options are set to C<0>. (If the same option appears more than once on the command line, the last given value is used. If you want to take all the values, see below.) =head2 Options with multiple values Options sometimes take several values. For example, a program could use multiple directories to search for library files: --library lib/stdlib --library lib/extlib To accomplish this behaviour, simply specify an array reference as the destination for the option: GetOptions ("library=s" => \@libfiles); Alternatively, you can specify that the option can have multiple values by adding a "@", and pass a reference to a scalar as the destination: GetOptions ("library=s@" => \$libfiles); Used with the example above, C<@libfiles> c.q. C<@$libfiles> would contain two strings upon completion: C<"lib/stdlib"> and C<"lib/extlib">, in that order. It is also possible to specify that only integer or floating point numbers are acceptable values. Often it is useful to allow comma-separated lists of values as well as multiple occurrences of the options. This is easy using Perl's split() and join() operators: GetOptions ("library=s" => \@libfiles); @libfiles = split(/,/,join(',',@libfiles)); Of course, it is important to choose the right separator string for each purpose. Warning: What follows is an experimental feature. Options can take multiple values at once, for example --coordinates 52.2 16.4 --rgbcolor 255 255 149 This can be accomplished by adding a repeat specifier to the option specification. Repeat specifiers are very similar to the C<{...}> repeat specifiers that can be used with regular expression patterns. For example, the above command line would be handled as follows: GetOptions('coordinates=f{2}' => \@coor, 'rgbcolor=i{3}' => \@color); The destination for the option must be an array or array reference. It is also possible to specify the minimal and maximal number of arguments an option takes. C<foo=s{2,4}> indicates an option that takes at least two and at most 4 arguments. C<foo=s{1,}> indicates one or more values; C<foo:s{,}> indicates zero or more option values. =head2 Options with hash values If the option destination is a reference to a hash, the option will take, as value, strings of the form I<key>C<=>I<value>. The value will be stored with the specified key in the hash. GetOptions ("define=s" => \%defines); Alternatively you can use: GetOptions ("define=s%" => \$defines); When used with command line options: --define os=linux --define vendor=redhat the hash C<%defines> (or C<%$defines>) will contain two keys, C<"os"> with value C<"linux"> and C<"vendor"> with value C<"redhat">. It is also possible to specify that only integer or floating point numbers are acceptable values. The keys are always taken to be strings. =head2 User-defined subroutines to handle options Ultimate control over what should be done when (actually: each time) an option is encountered on the command line can be achieved by designating a reference to a subroutine (or an anonymous subroutine) as the option destination. When GetOptions() encounters the option, it will call the subroutine with two or three arguments. The first argument is the name of the option. (Actually, it is an object that stringifies to the name of the option.) For a scalar or array destination, the second argument is the value to be stored. For a hash destination, the second argument is the key to the hash, and the third argument the value to be stored. It is up to the subroutine to store the value, or do whatever it thinks is appropriate. A trivial application of this mechanism is to implement options that are related to each other. For example: my $verbose = ''; # option variable with default value (false) GetOptions ('verbose' => \$verbose, 'quiet' => sub { $verbose = 0 }); Here C<--verbose> and C<--quiet> control the same variable C<$verbose>, but with opposite values. If the subroutine needs to signal an error, it should call die() with the desired error message as its argument. GetOptions() will catch the die(), issue the error message, and record that an error result must be returned upon completion. If the text of the error message starts with an exclamation mark C<!> it is interpreted specially by GetOptions(). There is currently one special command implemented: C<die("!FINISH")> will cause GetOptions() to stop processing options, as if it encountered a double dash C<-->. Here is an example of how to access the option name and value from within a subroutine: GetOptions ('opt=i' => \&handler); sub handler { my ($opt_name, $opt_value) = @_; print("Option name is $opt_name and value is $opt_value\n"); } =head2 Options with multiple names Often it is user friendly to supply alternate mnemonic names for options. For example C<--height> could be an alternate name for C<--length>. Alternate names can be included in the option specification, separated by vertical bar C<|> characters. To implement the above example: GetOptions ('length|height=f' => \$length); The first name is called the I<primary> name, the other names are called I<aliases>. When using a hash to store options, the key will always be the primary name. Multiple alternate names are possible. =head2 Case and abbreviations Without additional configuration, GetOptions() will ignore the case of option names, and allow the options to be abbreviated to uniqueness. GetOptions ('length|height=f' => \$length, "head" => \$head); This call will allow C<--l> and C<--L> for the length option, but requires a least C<--hea> and C<--hei> for the head and height options. =head2 Summary of Option Specifications Each option specifier consists of two parts: the name specification and the argument specification. The name specification contains the name of the option, optionally followed by a list of alternative names separated by vertical bar characters. The name is made up of alphanumeric characters, hyphens, underscores. If C<pass_through> is disabled, a period is also allowed in option names. length option name is "length" length|size|l name is "length", aliases are "size" and "l" The argument specification is optional. If omitted, the option is considered boolean, a value of 1 will be assigned when the option is used on the command line. The argument specification can be =over 4 =item ! The option does not take an argument and may be negated by prefixing it with "no" or "no-". E.g. C<"foo!"> will allow C<--foo> (a value of 1 will be assigned) as well as C<--nofoo> and C<--no-foo> (a value of 0 will be assigned). If the option has aliases, this applies to the aliases as well. Using negation on a single letter option when bundling is in effect is pointless and will result in a warning. =item + The option does not take an argument and will be incremented by 1 every time it appears on the command line. E.g. C<"more+">, when used with C<--more --more --more>, will increment the value three times, resulting in a value of 3 (provided it was 0 or undefined at first). The C<+> specifier is ignored if the option destination is not a scalar. =item = I<type> [ I<desttype> ] [ I<repeat> ] The option requires an argument of the given type. Supported types are: =over 4 =item s String. An arbitrary sequence of characters. It is valid for the argument to start with C<-> or C<-->. =item i Integer. An optional leading plus or minus sign, followed by a sequence of digits. =item o Extended integer, Perl style. This can be either an optional leading plus or minus sign, followed by a sequence of digits, or an octal string (a zero, optionally followed by '0', '1', .. '7'), or a hexadecimal string (C<0x> followed by '0' .. '9', 'a' .. 'f', case insensitive), or a binary string (C<0b> followed by a series of '0' and '1'). =item f Real number. For example C<3.14>, C<-6.23E24> and so on. =back The I<desttype> can be C<@> or C<%> to specify that the option is list or a hash valued. This is only needed when the destination for the option value is not otherwise specified. It should be omitted when not needed. The I<repeat> specifies the number of values this option takes per occurrence on the command line. It has the format C<{> [ I<min> ] [ C<,> [ I<max> ] ] C<}>. I<min> denotes the minimal number of arguments. It defaults to 1 for options with C<=> and to 0 for options with C<:>, see below. Note that I<min> overrules the C<=> / C<:> semantics. I<max> denotes the maximum number of arguments. It must be at least I<min>. If I<max> is omitted, I<but the comma is not>, there is no upper bound to the number of argument values taken. =item : I<type> [ I<desttype> ] Like C<=>, but designates the argument as optional. If omitted, an empty string will be assigned to string values options, and the value zero to numeric options. Note that if a string argument starts with C<-> or C<-->, it will be considered an option on itself. =item : I<number> [ I<desttype> ] Like C<:i>, but if the value is omitted, the I<number> will be assigned. If the I<number> is octal, hexadecimal or binary, behaves like C<:o>. =item : + [ I<desttype> ] Like C<:i>, but if the value is omitted, the current value for the option will be incremented. =back =head1 Advanced Possibilities =head2 Object oriented interface See L<Getopt::Long::Parser>. =head2 Callback object In version 2.37 the first argument to the callback function was changed from string to object. This was done to make room for extensions and more detailed control. The object stringifies to the option name so this change should not introduce compatibility problems. The callback object has the following methods: =over =item name The name of the option, unabbreviated. For an option with multiple names it return the first (canonical) name. =item given The name of the option as actually used, unabbreveated. =back =head2 Thread Safety Getopt::Long is thread safe when using ithreads as of Perl 5.8. It is I<not> thread safe when using the older (experimental and now obsolete) threads implementation that was added to Perl 5.005. =head2 Documentation and help texts Getopt::Long encourages the use of Pod::Usage to produce help messages. For example: use Getopt::Long; use Pod::Usage; my $man = 0; my $help = 0; GetOptions('help|?' => \$help, man => \$man) or pod2usage(2); pod2usage(1) if $help; pod2usage(-exitval => 0, -verbose => 2) if $man; __END__ =head1 NAME sample - Using Getopt::Long and Pod::Usage =head1 SYNOPSIS sample [options] [file ...] Options: -help brief help message -man full documentation =head1 OPTIONS =over 8 =item B<-help> Print a brief help message and exits. =item B<-man> Prints the manual page and exits. =back =head1 DESCRIPTION B<This program> will read the given input file(s) and do something useful with the contents thereof. =cut See L<Pod::Usage> for details. =head2 Parsing options from an arbitrary array By default, GetOptions parses the options that are present in the global array C<@ARGV>. A special entry C<GetOptionsFromArray> can be used to parse options from an arbitrary array. use Getopt::Long qw(GetOptionsFromArray); $ret = GetOptionsFromArray(\@myopts, ...); When used like this, options and their possible values are removed from C<@myopts>, the global C<@ARGV> is not touched at all. The following two calls behave identically: $ret = GetOptions( ... ); $ret = GetOptionsFromArray(\@ARGV, ... ); This also means that a first argument hash reference now becomes the second argument: $ret = GetOptions(\%opts, ... ); $ret = GetOptionsFromArray(\@ARGV, \%opts, ... ); =head2 Parsing options from an arbitrary string A special entry C<GetOptionsFromString> can be used to parse options from an arbitrary string. use Getopt::Long qw(GetOptionsFromString); $ret = GetOptionsFromString($string, ...); The contents of the string are split into arguments using a call to C<Text::ParseWords::shellwords>. As with C<GetOptionsFromArray>, the global C<@ARGV> is not touched. It is possible that, upon completion, not all arguments in the string have been processed. C<GetOptionsFromString> will, when called in list context, return both the return status and an array reference to any remaining arguments: ($ret, $args) = GetOptionsFromString($string, ... ); If any arguments remain, and C<GetOptionsFromString> was not called in list context, a message will be given and C<GetOptionsFromString> will return failure. As with GetOptionsFromArray, a first argument hash reference now becomes the second argument. See the next section. =head2 Storing options values in a hash Sometimes, for example when there are a lot of options, having a separate variable for each of them can be cumbersome. GetOptions() supports, as an alternative mechanism, storing options values in a hash. To obtain this, a reference to a hash must be passed I<as the first argument> to GetOptions(). For each option that is specified on the command line, the option value will be stored in the hash with the option name as key. Options that are not actually used on the command line will not be put in the hash, on other words, C<exists($h{option})> (or defined()) can be used to test if an option was used. The drawback is that warnings will be issued if the program runs under C<use strict> and uses C<$h{option}> without testing with exists() or defined() first. my %h = (); GetOptions (\%h, 'length=i'); # will store in $h{length} For options that take list or hash values, it is necessary to indicate this by appending an C<@> or C<%> sign after the type: GetOptions (\%h, 'colours=s@'); # will push to @{$h{colours}} To make things more complicated, the hash may contain references to the actual destinations, for example: my $len = 0; my %h = ('length' => \$len); GetOptions (\%h, 'length=i'); # will store in $len This example is fully equivalent with: my $len = 0; GetOptions ('length=i' => \$len); # will store in $len Any mixture is possible. For example, the most frequently used options could be stored in variables while all other options get stored in the hash: my $verbose = 0; # frequently referred my $debug = 0; # frequently referred my %h = ('verbose' => \$verbose, 'debug' => \$debug); GetOptions (\%h, 'verbose', 'debug', 'filter', 'size=i'); if ( $verbose ) { ... } if ( exists $h{filter} ) { ... option 'filter' was specified ... } =head2 Bundling With bundling it is possible to set several single-character options at once. For example if C<a>, C<v> and C<x> are all valid options, -vax will set all three. Getopt::Long supports three styles of bundling. To enable bundling, a call to Getopt::Long::Configure is required. The simplest style of bundling can be enabled with: Getopt::Long::Configure ("bundling"); Configured this way, single-character options can be bundled but long options (and any of their auto-abbreviated shortened forms) B<must> always start with a double dash C<--> to avoid ambiguity. For example, when C<vax>, C<a>, C<v> and C<x> are all valid options, -vax will set C<a>, C<v> and C<x>, but --vax will set C<vax>. The second style of bundling lifts this restriction. It can be enabled with: Getopt::Long::Configure ("bundling_override"); Now, C<-vax> will set the option C<vax>. In all of the above cases, option values may be inserted in the bundle. For example: -h24w80 is equivalent to -h 24 -w 80 A third style of bundling allows only values to be bundled with options. It can be enabled with: Getopt::Long::Configure ("bundling_values"); Now, C<-h24> will set the option C<h> to C<24>, but option bundles like C<-vxa> and C<-h24w80> are flagged as errors. Enabling C<bundling_values> will disable the other two styles of bundling. When configured for bundling, single-character options are matched case sensitive while long options are matched case insensitive. To have the single-character options matched case insensitive as well, use: Getopt::Long::Configure ("bundling", "ignorecase_always"); It goes without saying that bundling can be quite confusing. =head2 The lonesome dash Normally, a lone dash C<-> on the command line will not be considered an option. Option processing will terminate (unless "permute" is configured) and the dash will be left in C<@ARGV>. It is possible to get special treatment for a lone dash. This can be achieved by adding an option specification with an empty name, for example: GetOptions ('' => \$stdio); A lone dash on the command line will now be a legal option, and using it will set variable C<$stdio>. =head2 Argument callback A special option 'name' C<< <> >> can be used to designate a subroutine to handle non-option arguments. When GetOptions() encounters an argument that does not look like an option, it will immediately call this subroutine and passes it one parameter: the argument name. For example: my $width = 80; sub process { ... } GetOptions ('width=i' => \$width, '<>' => \&process); When applied to the following command line: arg1 --width=72 arg2 --width=60 arg3 This will call C<process("arg1")> while C<$width> is C<80>, C<process("arg2")> while C<$width> is C<72>, and C<process("arg3")> while C<$width> is C<60>. This feature requires configuration option B<permute>, see section L<Configuring Getopt::Long>. =head1 Configuring Getopt::Long Getopt::Long can be configured by calling subroutine Getopt::Long::Configure(). This subroutine takes a list of quoted strings, each specifying a configuration option to be enabled, e.g. C<ignore_case>. To disable, prefix with C<no> or C<no_>, e.g. C<no_ignore_case>. Case does not matter. Multiple calls to Configure() are possible. Alternatively, as of version 2.24, the configuration options may be passed together with the C<use> statement: use Getopt::Long qw(:config no_ignore_case bundling); The following options are available: =over 12 =item default This option causes all configuration options to be reset to their default values. =item posix_default This option causes all configuration options to be reset to their default values as if the environment variable POSIXLY_CORRECT had been set. =item auto_abbrev Allow option names to be abbreviated to uniqueness. Default is enabled unless environment variable POSIXLY_CORRECT has been set, in which case C<auto_abbrev> is disabled. =item getopt_compat Allow C<+> to start options. Default is enabled unless environment variable POSIXLY_CORRECT has been set, in which case C<getopt_compat> is disabled. =item gnu_compat C<gnu_compat> controls whether C<--opt=> is allowed, and what it should do. Without C<gnu_compat>, C<--opt=> gives an error. With C<gnu_compat>, C<--opt=> will give option C<opt> an empty value. This is the way GNU getopt_long() does it. Note that for options with optional arguments, C<--opt value> is still accepted, even though GNU getopt_long() requires writing C<--opt=value> in this case. =item gnu_getopt This is a short way of setting C<gnu_compat> C<bundling> C<permute> C<no_getopt_compat>. With C<gnu_getopt>, command line handling should be reasonably compatible with GNU getopt_long(). =item require_order Whether command line arguments are allowed to be mixed with options. Default is disabled unless environment variable POSIXLY_CORRECT has been set, in which case C<require_order> is enabled. See also C<permute>, which is the opposite of C<require_order>. =item permute Whether command line arguments are allowed to be mixed with options. Default is enabled unless environment variable POSIXLY_CORRECT has been set, in which case C<permute> is disabled. Note that C<permute> is the opposite of C<require_order>. If C<permute> is enabled, this means that --foo arg1 --bar arg2 arg3 is equivalent to --foo --bar arg1 arg2 arg3 If an argument callback routine is specified, C<@ARGV> will always be empty upon successful return of GetOptions() since all options have been processed. The only exception is when C<--> is used: --foo arg1 --bar arg2 -- arg3 This will call the callback routine for arg1 and arg2, and then terminate GetOptions() leaving C<"arg3"> in C<@ARGV>. If C<require_order> is enabled, options processing terminates when the first non-option is encountered. --foo arg1 --bar arg2 arg3 is equivalent to --foo -- arg1 --bar arg2 arg3 If C<pass_through> is also enabled, options processing will terminate at the first unrecognized option, or non-option, whichever comes first. =item bundling (default: disabled) Enabling this option will allow single-character options to be bundled. To distinguish bundles from long option names, long options (and any of their auto-abbreviated shortened forms) I<must> be introduced with C<--> and bundles with C<->. Note that, if you have options C<a>, C<l> and C<all>, and auto_abbrev enabled, possible arguments and option settings are: using argument sets option(s) ------------------------------------------ -a, --a a -l, --l l -al, -la, -ala, -all,... a, l --al, --all all The surprising part is that C<--a> sets option C<a> (due to auto completion), not C<all>. Note: disabling C<bundling> also disables C<bundling_override>. =item bundling_override (default: disabled) If C<bundling_override> is enabled, bundling is enabled as with C<bundling> but now long option names override option bundles. Note: disabling C<bundling_override> also disables C<bundling>. B<Note:> Using option bundling can easily lead to unexpected results, especially when mixing long options and bundles. Caveat emptor. =item ignore_case (default: enabled) If enabled, case is ignored when matching option names. If, however, bundling is enabled as well, single character options will be treated case-sensitive. With C<ignore_case>, option specifications for options that only differ in case, e.g., C<"foo"> and C<"Foo">, will be flagged as duplicates. Note: disabling C<ignore_case> also disables C<ignore_case_always>. =item ignore_case_always (default: disabled) When bundling is in effect, case is ignored on single-character options also. Note: disabling C<ignore_case_always> also disables C<ignore_case>. =item auto_version (default:disabled) Automatically provide support for the B<--version> option if the application did not specify a handler for this option itself. Getopt::Long will provide a standard version message that includes the program name, its version (if $main::VERSION is defined), and the versions of Getopt::Long and Perl. The message will be written to standard output and processing will terminate. C<auto_version> will be enabled if the calling program explicitly specified a version number higher than 2.32 in the C<use> or C<require> statement. =item auto_help (default:disabled) Automatically provide support for the B<--help> and B<-?> options if the application did not specify a handler for this option itself. Getopt::Long will provide a help message using module L<Pod::Usage>. The message, derived from the SYNOPSIS POD section, will be written to standard output and processing will terminate. C<auto_help> will be enabled if the calling program explicitly specified a version number higher than 2.32 in the C<use> or C<require> statement. =item pass_through (default: disabled) With C<pass_through> anything that is unknown, ambiguous or supplied with an invalid option will not be flagged as an error. Instead the unknown option(s) will be passed to the catchall C<< <> >> if present, otherwise through to C<@ARGV>. This makes it possible to write wrapper scripts that process only part of the user supplied command line arguments, and pass the remaining options to some other program. If C<require_order> is enabled, options processing will terminate at the first unrecognized option, or non-option, whichever comes first and all remaining arguments are passed to C<@ARGV> instead of the catchall C<< <> >> if present. However, if C<permute> is enabled instead, results can become confusing. Note that the options terminator (default C<-->), if present, will also be passed through in C<@ARGV>. =item prefix The string that starts options. If a constant string is not sufficient, see C<prefix_pattern>. =item prefix_pattern A Perl pattern that identifies the strings that introduce options. Default is C<--|-|\+> unless environment variable POSIXLY_CORRECT has been set, in which case it is C<--|->. =item long_prefix_pattern A Perl pattern that allows the disambiguation of long and short prefixes. Default is C<-->. Typically you only need to set this if you are using nonstandard prefixes and want some or all of them to have the same semantics as '--' does under normal circumstances. For example, setting prefix_pattern to C<--|-|\+|\/> and long_prefix_pattern to C<--|\/> would add Win32 style argument handling. =item debug (default: disabled) Enable debugging output. =back =head1 Exportable Methods =over =item VersionMessage This subroutine provides a standard version message. Its argument can be: =over 4 =item * A string containing the text of a message to print I<before> printing the standard message. =item * A numeric value corresponding to the desired exit status. =item * A reference to a hash. =back If more than one argument is given then the entire argument list is assumed to be a hash. If a hash is supplied (either as a reference or as a list) it should contain one or more elements with the following keys: =over 4 =item C<-message> =item C<-msg> The text of a message to print immediately prior to printing the program's usage message. =item C<-exitval> The desired exit status to pass to the B<exit()> function. This should be an integer, or else the string "NOEXIT" to indicate that control should simply be returned without terminating the invoking process. =item C<-output> A reference to a filehandle, or the pathname of a file to which the usage message should be written. The default is C<\*STDERR> unless the exit value is less than 2 (in which case the default is C<\*STDOUT>). =back You cannot tie this routine directly to an option, e.g.: GetOptions("version" => \&VersionMessage); Use this instead: GetOptions("version" => sub { VersionMessage() }); =item HelpMessage This subroutine produces a standard help message, derived from the program's POD section SYNOPSIS using L<Pod::Usage>. It takes the same arguments as VersionMessage(). In particular, you cannot tie it directly to an option, e.g.: GetOptions("help" => \&HelpMessage); Use this instead: GetOptions("help" => sub { HelpMessage() }); =back =head1 Return values and Errors Configuration errors and errors in the option definitions are signalled using die() and will terminate the calling program unless the call to Getopt::Long::GetOptions() was embedded in C<eval { ... }>, or die() was trapped using C<$SIG{__DIE__}>. GetOptions returns true to indicate success. It returns false when the function detected one or more errors during option parsing. These errors are signalled using warn() and can be trapped with C<$SIG{__WARN__}>. =head1 Legacy The earliest development of C<newgetopt.pl> started in 1990, with Perl version 4. As a result, its development, and the development of Getopt::Long, has gone through several stages. Since backward compatibility has always been extremely important, the current version of Getopt::Long still supports a lot of constructs that nowadays are no longer necessary or otherwise unwanted. This section describes briefly some of these 'features'. =head2 Default destinations When no destination is specified for an option, GetOptions will store the resultant value in a global variable named C<opt_>I<XXX>, where I<XXX> is the primary name of this option. When a program executes under C<use strict> (recommended), these variables must be pre-declared with our(). our $opt_length = 0; GetOptions ('length=i'); # will store in $opt_length To yield a usable Perl variable, characters that are not part of the syntax for variables are translated to underscores. For example, C<--fpp-struct-return> will set the variable C<$opt_fpp_struct_return>. Note that this variable resides in the namespace of the calling program, not necessarily C<main>. For example: GetOptions ("size=i", "sizes=i@"); with command line "-size 10 -sizes 24 -sizes 48" will perform the equivalent of the assignments $opt_size = 10; @opt_sizes = (24, 48); =head2 Alternative option starters A string of alternative option starter characters may be passed as the first argument (or the first argument after a leading hash reference argument). my $len = 0; GetOptions ('/', 'length=i' => $len); Now the command line may look like: /length 24 -- arg Note that to terminate options processing still requires a double dash C<-->. GetOptions() will not interpret a leading C<< "<>" >> as option starters if the next argument is a reference. To force C<< "<" >> and C<< ">" >> as option starters, use C<< "><" >>. Confusing? Well, B<using a starter argument is strongly deprecated> anyway. =head2 Configuration variables Previous versions of Getopt::Long used variables for the purpose of configuring. Although manipulating these variables still work, it is strongly encouraged to use the C<Configure> routine that was introduced in version 2.17. Besides, it is much easier. =head1 Tips and Techniques =head2 Pushing multiple values in a hash option Sometimes you want to combine the best of hashes and arrays. For example, the command line: --list add=first --list add=second --list add=third where each successive 'list add' option will push the value of add into array ref $list->{'add'}. The result would be like $list->{add} = [qw(first second third)]; This can be accomplished with a destination routine: GetOptions('list=s%' => sub { push(@{$list{$_[1]}}, $_[2]) }); =head1 Troubleshooting =head2 GetOptions does not return a false result when an option is not supplied That's why they're called 'options'. =head2 GetOptions does not split the command line correctly The command line is not split by GetOptions, but by the command line interpreter (CLI). On Unix, this is the shell. On Windows, it is COMMAND.COM or CMD.EXE. Other operating systems have other CLIs. It is important to know that these CLIs may behave different when the command line contains special characters, in particular quotes or backslashes. For example, with Unix shells you can use single quotes (C<'>) and double quotes (C<">) to group words together. The following alternatives are equivalent on Unix: "two words" 'two words' two\ words In case of doubt, insert the following statement in front of your Perl program: print STDERR (join("|",@ARGV),"\n"); to verify how your CLI passes the arguments to the program. =head2 Undefined subroutine &main::GetOptions called Are you running Windows, and did you write use GetOpt::Long; (note the capital 'O')? =head2 How do I put a "-?" option into a Getopt::Long? You can only obtain this using an alias, and Getopt::Long of at least version 2.13. use Getopt::Long; GetOptions ("help|?"); # -help and -? will both set $opt_help Other characters that can't appear in Perl identifiers are also supported in aliases with Getopt::Long of at version 2.39. Note that the characters C<!>, C<|>, C<+>, C<=>, and C<:> can only appear as the first (or only) character of an alias. As of version 2.32 Getopt::Long provides auto-help, a quick and easy way to add the options --help and -? to your program, and handle them. See C<auto_help> in section L<Configuring Getopt::Long>. =head1 AUTHOR Johan Vromans <jvromans@squirrel.nl> =head1 COPYRIGHT AND DISCLAIMER This program is Copyright 1990,2015,2023 by Johan Vromans. This program is free software; you can redistribute it and/or modify it under the terms of the Perl Artistic License or the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. If you do not have a copy of the GNU General Public License write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. =cut PK ! kJ �# # 5.34.0/Getopt/Std.pmnu �[��� package Getopt::Std; use strict; use warnings; require Exporter; =head1 NAME Getopt::Std - Process single-character switches with switch clustering =head1 SYNOPSIS use Getopt::Std; getopts('oif:'); # -o & -i are boolean flags, -f takes an argument # Sets $opt_* as a side effect. getopts('oif:', \%opts); # options as above. Values in %opts getopt('oDI'); # -o, -D & -I take arg. # Sets $opt_* as a side effect. getopt('oDI', \%opts); # -o, -D & -I take arg. Values in %opts =head1 DESCRIPTION The C<getopts()> function processes single-character switches with switch clustering. Pass one argument which is a string containing all switches to be recognized. For each switch found, if an argument is expected and provided, C<getopts()> sets C<$opt_x> (where C<x> is the switch name) to the value of the argument. If an argument is expected but none is provided, C<$opt_x> is set to an undefined value. If a switch does not take an argument, C<$opt_x> is set to C<1>. Switches which take an argument don't care whether there is a space between the switch and the argument. If unspecified switches are found on the command-line, the user will be warned that an unknown option was given. The C<getopts()> function returns true unless an invalid option was found. The C<getopt()> function is similar, but its argument is a string containing all switches that take an argument. If no argument is provided for a switch, say, C<y>, the corresponding C<$opt_y> will be set to an undefined value. Unspecified switches are silently accepted. Use of C<getopt()> is not recommended. Note that, if your code is running under the recommended C<use strict vars> pragma, you will need to declare these package variables with C<our>: our($opt_x, $opt_y); For those of you who don't like additional global variables being created, C<getopt()> and C<getopts()> will also accept a hash reference as an optional second argument. Hash keys will be C<x> (where C<x> is the switch name) with key values the value of the argument or C<1> if no argument is specified. To allow programs to process arguments that look like switches, but aren't, both functions will stop processing switches when they see the argument C<-->. The C<--> will be removed from @ARGV. =head1 C<--help> and C<--version> If C<-> is not a recognized switch letter, getopts() supports arguments C<--help> and C<--version>. If C<main::HELP_MESSAGE()> and/or C<main::VERSION_MESSAGE()> are defined, they are called; the arguments are the output file handle, the name of option-processing package, its version, and the switches string. If the subroutines are not defined, an attempt is made to generate intelligent messages; for best results, define $main::VERSION. If embedded documentation (in pod format, see L<perlpod>) is detected in the script, C<--help> will also show how to access the documentation. Note that due to excessive paranoia, if $Getopt::Std::STANDARD_HELP_VERSION isn't true (the default is false), then the messages are printed on STDERR, and the processing continues after the messages are printed. This being the opposite of the standard-conforming behaviour, it is strongly recommended to set $Getopt::Std::STANDARD_HELP_VERSION to true. One can change the output file handle of the messages by setting $Getopt::Std::OUTPUT_HELP_VERSION. One can print the messages of C<--help> (without the C<Usage:> line) and C<--version> by calling functions help_mess() and version_mess() with the switches string as an argument. =cut our @ISA = qw(Exporter); our @EXPORT = qw(getopt getopts); our $VERSION = '1.13'; # uncomment the next line to disable 1.03-backward compatibility paranoia # $STANDARD_HELP_VERSION = 1; # Process single-character switches with switch clustering. Pass one argument # which is a string containing all switches that take an argument. For each # switch found, sets $opt_x (where x is the switch name) to the value of the # argument, or 1 if no argument. Switches which take an argument don't care # whether there is a space between the switch and the argument. # Usage: # getopt('oDI'); # -o, -D & -I take arg. Sets opt_* as a side effect. sub getopt (;$$) { my ($argumentative, $hash) = @_; $argumentative = '' if !defined $argumentative; my ($first,$rest); local $_; local @EXPORT; while (@ARGV && ($_ = $ARGV[0]) =~ /^-(.)(.*)/) { ($first,$rest) = ($1,$2); if (/^--$/) { # early exit if -- shift @ARGV; last; } if (index($argumentative,$first) >= 0) { if ($rest ne '') { shift(@ARGV); } else { shift(@ARGV); $rest = shift(@ARGV); } if (ref $hash) { $$hash{$first} = $rest; } else { no strict 'refs'; ${"opt_$first"} = $rest; push( @EXPORT, "\$opt_$first" ); } } else { if (ref $hash) { $$hash{$first} = 1; } else { no strict 'refs'; ${"opt_$first"} = 1; push( @EXPORT, "\$opt_$first" ); } if ($rest ne '') { $ARGV[0] = "-$rest"; } else { shift(@ARGV); } } } unless (ref $hash) { local $Exporter::ExportLevel = 1; import Getopt::Std; } } our ($OUTPUT_HELP_VERSION, $STANDARD_HELP_VERSION); sub output_h () { return $OUTPUT_HELP_VERSION if defined $OUTPUT_HELP_VERSION; return \*STDOUT if $STANDARD_HELP_VERSION; return \*STDERR; } sub try_exit () { exit 0 if $STANDARD_HELP_VERSION; my $p = __PACKAGE__; print {output_h()} <<EOM; [Now continuing due to backward compatibility and excessive paranoia. See 'perldoc $p' about \$$p\::STANDARD_HELP_VERSION.] EOM } sub version_mess ($;$) { my $args = shift; my $h = output_h; if (@_ and defined &main::VERSION_MESSAGE) { main::VERSION_MESSAGE($h, __PACKAGE__, $VERSION, $args); } else { my $v = $main::VERSION; $v = '[unknown]' unless defined $v; my $myv = $VERSION; $myv .= ' [paranoid]' unless $STANDARD_HELP_VERSION; my $perlv = $]; $perlv = sprintf "%vd", $^V if $] >= 5.006; print $h <<EOH; $0 version $v calling Getopt::Std::getopts (version $myv), running under Perl version $perlv. EOH } } sub help_mess ($;$) { my $args = shift; my $h = output_h; if (@_ and defined &main::HELP_MESSAGE) { main::HELP_MESSAGE($h, __PACKAGE__, $VERSION, $args); } else { my (@witharg) = ($args =~ /(\S)\s*:/g); my (@rest) = ($args =~ /([^\s:])(?!\s*:)/g); my ($help, $arg) = ('', ''); if (@witharg) { $help .= "\n\tWith arguments: -" . join " -", @witharg; $arg = "\nSpace is not required between options and their arguments."; } if (@rest) { $help .= "\n\tBoolean (without arguments): -" . join " -", @rest; } my ($scr) = ($0 =~ m,([^/\\]+)$,); print $h <<EOH if @_; # Let the script override this Usage: $scr [-OPTIONS [-MORE_OPTIONS]] [--] [PROGRAM_ARG1 ...] EOH print $h <<EOH; The following single-character options are accepted:$help Options may be merged together. -- stops processing of options.$arg EOH my $has_pod; if ( defined $0 and $0 ne '-e' and -f $0 and -r $0 and open my $script, '<', $0 ) { while (<$script>) { $has_pod = 1, last if /^=(pod|head1)/; } } print $h <<EOH if $has_pod; For more details run perldoc -F $0 EOH } } # Usage: # getopts('a:bc'); # -a takes arg. -b & -c not. Sets opt_* as a # # side effect. sub getopts ($;$) { my ($argumentative, $hash) = @_; my (@args,$first,$rest,$exit); my $errs = 0; local $_; local @EXPORT; @args = split( / */, $argumentative ); while(@ARGV && ($_ = $ARGV[0]) =~ /^-(.)(.*)/s) { ($first,$rest) = ($1,$2); if (/^--$/) { # early exit if -- shift @ARGV; last; } my $pos = index($argumentative,$first); if ($pos >= 0) { if (defined($args[$pos+1]) and ($args[$pos+1] eq ':')) { shift(@ARGV); if ($rest eq '') { ++$errs unless @ARGV; $rest = shift(@ARGV); } if (ref $hash) { $$hash{$first} = $rest; } else { no strict 'refs'; ${"opt_$first"} = $rest; push( @EXPORT, "\$opt_$first" ); } } else { if (ref $hash) { $$hash{$first} = 1; } else { no strict 'refs'; ${"opt_$first"} = 1; push( @EXPORT, "\$opt_$first" ); } if ($rest eq '') { shift(@ARGV); } else { $ARGV[0] = "-$rest"; } } } else { if ($first eq '-' and $rest eq 'help') { version_mess($argumentative, 'main'); help_mess($argumentative, 'main'); try_exit(); shift(@ARGV); next; } elsif ($first eq '-' and $rest eq 'version') { version_mess($argumentative, 'main'); try_exit(); shift(@ARGV); next; } warn "Unknown option: $first\n"; ++$errs; if ($rest ne '') { $ARGV[0] = "-$rest"; } else { shift(@ARGV); } } } unless (ref $hash) { local $Exporter::ExportLevel = 1; import Getopt::Std; } $errs == 0; } 1; PK ! F &� � 5.34.0/autouse.pmnu �[��� package autouse; #use strict; # debugging only use 5.006; # use warnings $autouse::VERSION = '1.11'; $autouse::DEBUG ||= 0; sub vet_import ($); sub croak { require Carp; Carp::croak(@_); } sub import { my $class = @_ ? shift : 'autouse'; croak "usage: use $class MODULE [,SUBS...]" unless @_; my $module = shift; (my $pm = $module) =~ s{::}{/}g; $pm .= '.pm'; if (exists $INC{$pm}) { vet_import $module; local $Exporter::ExportLevel = $Exporter::ExportLevel + 1; # $Exporter::Verbose = 1; return $module->import(map { (my $f = $_) =~ s/\(.*?\)$//; $f } @_); } # It is not loaded: need to do real work. my $callpkg = caller(0); print "autouse called from $callpkg\n" if $autouse::DEBUG; my $index; for my $f (@_) { my $proto; $proto = $1 if (my $func = $f) =~ s/\((.*)\)$//; my $closure_import_func = $func; # Full name my $closure_func = $func; # Name inside package my $index = rindex($func, '::'); if ($index == -1) { $closure_import_func = "${callpkg}::$func"; } else { $closure_func = substr $func, $index + 2; croak "autouse into different package attempted" unless substr($func, 0, $index) eq $module; } my $load_sub = sub { unless ($INC{$pm}) { require $pm; vet_import $module; } no warnings qw(redefine prototype); *$closure_import_func = \&{"${module}::$closure_func"}; print "autousing $module; " ."imported $closure_func as $closure_import_func\n" if $autouse::DEBUG; goto &$closure_import_func; }; if (defined $proto) { *$closure_import_func = eval "sub ($proto) { goto &\$load_sub }" || die; } else { *$closure_import_func = $load_sub; } } } sub vet_import ($) { my $module = shift; if (my $import = $module->can('import')) { croak "autoused module $module has unique import() method" unless defined(&Exporter::import) && ($import == \&Exporter::import || $import == \&UNIVERSAL::import) } } 1; __END__ =head1 NAME autouse - postpone load of modules until a function is used =head1 SYNOPSIS use autouse 'Carp' => qw(carp croak); carp "this carp was predeclared and autoused "; =head1 DESCRIPTION If the module C<Module> is already loaded, then the declaration use autouse 'Module' => qw(func1 func2($;$)); is equivalent to use Module qw(func1 func2); if C<Module> defines func2() with prototype C<($;$)>, and func1() has no prototypes. (At least if C<Module> uses C<Exporter>'s C<import>, otherwise it is a fatal error.) If the module C<Module> is not loaded yet, then the above declaration declares functions func1() and func2() in the current package. When these functions are called, they load the package C<Module> if needed, and substitute themselves with the correct definitions. =begin _deprecated use Module qw(Module::func3); will work and is the equivalent to: use Module qw(func3); It is not a very useful feature and has been deprecated. =end _deprecated =head1 WARNING Using C<autouse> will move important steps of your program's execution from compile time to runtime. This can =over 4 =item * Break the execution of your program if the module you C<autouse>d has some initialization which it expects to be done early. =item * hide bugs in your code since important checks (like correctness of prototypes) is moved from compile time to runtime. In particular, if the prototype you specified on C<autouse> line is wrong, you will not find it out until the corresponding function is executed. This will be very unfortunate for functions which are not always called (note that for such functions C<autouse>ing gives biggest win, for a workaround see below). =back To alleviate the second problem (partially) it is advised to write your scripts like this: use Module; use autouse Module => qw(carp($) croak(&$)); carp "this carp was predeclared and autoused "; The first line ensures that the errors in your argument specification are found early. When you ship your application you should comment out the first line, since it makes the second one useless. =head1 AUTHOR Ilya Zakharevich (ilya@math.ohio-state.edu) =head1 SEE ALSO perl(1). =cut PK ! �2PJ4 4 5.34.0/SelectSaver.pmnu �[��� package SelectSaver; our $VERSION = '1.02'; =head1 NAME SelectSaver - save and restore selected file handle =head1 SYNOPSIS use SelectSaver; { my $saver = SelectSaver->new(FILEHANDLE); # FILEHANDLE is selected } # previous handle is selected { my $saver = SelectSaver->new; # new handle may be selected, or not } # previous handle is selected =head1 DESCRIPTION A C<SelectSaver> object contains a reference to the file handle that was selected when it was created. If its C<new> method gets an extra parameter, then that parameter is selected; otherwise, the selected file handle remains unchanged. When a C<SelectSaver> is destroyed, it re-selects the file handle that was selected when it was created. =cut require 5.000; use Carp; use Symbol; sub new { @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )'; my $fh = select; my $self = bless \$fh, $_[0]; select qualify($_[1], caller) if @_ > 1; $self; } sub DESTROY { my $self = $_[0]; select $$self; } 1; PK ! p��>� � 5.34.0/warnings/register.pmnu �[��� package warnings::register; our $VERSION = '1.04'; require warnings; # left here as cruft in case other users were using this undocumented routine # -- rjbs, 2010-09-08 sub mkMask { my ($bit) = @_; my $mask = ""; vec($mask, $bit, 1) = 1; return $mask; } sub import { shift; my @categories = @_; my $package = (caller(0))[0]; warnings::register_categories($package); warnings::register_categories($package . "::$_") for @categories; } 1; __END__ =pod =head1 NAME warnings::register - warnings import function =head1 SYNOPSIS use warnings::register; =head1 DESCRIPTION Creates a warnings category with the same name as the current package. See L<warnings> for more information on this module's usage. =cut PK ! æ� � 5.34.0/encoding/warnings.pmnu �[��� package encoding::warnings; $encoding::warnings::VERSION = '0.13'; use strict; use 5.007; =head1 NAME encoding::warnings - Warn on implicit encoding conversions =head1 VERSION This document describes version 0.13 of encoding::warnings, released June 20, 2016. =head1 NOTICE As of Perl 5.26.0, this module has no effect. The internal Perl feature that was used to implement this module has been removed. In recent years, much work has been done on the Perl core to eliminate discrepancies in the treatment of upgraded versus downgraded strings. In addition, the L<encoding> pragma, which caused many of the problems, is no longer supported. Thus, the warnings this module produced are no longer necessary. Hence, if you load this module on Perl 5.26.0, you will get one warning that the module is no longer supported; and the module will do nothing thereafter. =head1 SYNOPSIS use encoding::warnings; # or 'FATAL' to raise fatal exceptions utf8::encode($a = chr(20000)); # a byte-string (raw bytes) $b = chr(20000); # a unicode-string (wide characters) # "Bytes implicitly upgraded into wide characters as iso-8859-1" $c = $a . $b; =head1 DESCRIPTION =head2 Overview of the problem By default, there is a fundamental asymmetry in Perl's unicode model: implicit upgrading from byte-strings to unicode-strings assumes that they were encoded in I<ISO 8859-1 (Latin-1)>, but unicode-strings are downgraded with UTF-8 encoding. This happens because the first 256 codepoints in Unicode happens to agree with Latin-1. However, this silent upgrading can easily cause problems, if you happen to mix unicode strings with non-Latin1 data -- i.e. byte-strings encoded in UTF-8 or other encodings. The error will not manifest until the combined string is written to output, at which time it would be impossible to see where did the silent upgrading occur. =head2 Detecting the problem This module simplifies the process of diagnosing such problems. Just put this line on top of your main program: use encoding::warnings; Afterwards, implicit upgrading of high-bit bytes will raise a warning. Ex.: C<Bytes implicitly upgraded into wide characters as iso-8859-1 at - line 7>. However, strings composed purely of ASCII code points (C<0x00>..C<0x7F>) will I<not> trigger this warning. You can also make the warnings fatal by importing this module as: use encoding::warnings 'FATAL'; =head2 Solving the problem Most of the time, this warning occurs when a byte-string is concatenated with a unicode-string. There are a number of ways to solve it: =over 4 =item * Upgrade both sides to unicode-strings If your program does not need compatibility for Perl 5.6 and earlier, the recommended approach is to apply appropriate IO disciplines, so all data in your program become unicode-strings. See L<encoding>, L<open> and L<perlfunc/binmode> for how. =item * Downgrade both sides to byte-strings The other way works too, especially if you are sure that all your data are under the same encoding, or if compatibility with older versions of Perl is desired. You may downgrade strings with C<Encode::encode> and C<utf8::encode>. See L<Encode> and L<utf8> for details. =item * Specify the encoding for implicit byte-string upgrading If you are confident that all byte-strings will be in a specific encoding like UTF-8, I<and> need not support older versions of Perl, use the C<encoding> pragma: use encoding 'utf8'; Similarly, this will silence warnings from this module, and preserve the default behaviour: use encoding 'iso-8859-1'; However, note that C<use encoding> actually had three distinct effects: =over 4 =item * PerlIO layers for B<STDIN> and B<STDOUT> This is similar to what L<open> pragma does. =item * Literal conversions This turns I<all> literal string in your program into unicode-strings (equivalent to a C<use utf8>), by decoding them using the specified encoding. =item * Implicit upgrading for byte-strings This will silence warnings from this module, as shown above. =back Because literal conversions also work on empty strings, it may surprise some people: use encoding 'big5'; my $byte_string = pack("C*", 0xA4, 0x40); print length $a; # 2 here. $a .= ""; # concatenating with a unicode string... print length $a; # 1 here! In other words, do not C<use encoding> unless you are certain that the program will not deal with any raw, 8-bit binary data at all. However, the C<Filter =E<gt> 1> flavor of C<use encoding> will I<not> affect implicit upgrading for byte-strings, and is thus incapable of silencing warnings from this module. See L<encoding> for more details. =back =head1 CAVEATS For Perl 5.9.4 or later, this module's effect is lexical. For Perl versions prior to 5.9.4, this module affects the whole script, instead of inside its lexical block. =cut # Constants. sub ASCII () { 0 } sub LATIN1 () { 1 } sub FATAL () { 2 } sub import { if ($] >= 5.025003) { require Carp; Carp::cluck( "encoding::warnings is not supported on Perl 5.26.0 and later" ); return; } # Install a ${^ENCODING} handler if no other one are already in place. my $class = shift; my $fatal = shift || ''; local $@; return if ${^ENCODING} and ref(${^ENCODING}) ne $class; return unless eval { require Encode; 1 }; my $ascii = Encode::find_encoding('us-ascii') or return; my $latin1 = Encode::find_encoding('iso-8859-1') or return; # Have to undef explicitly here undef ${^ENCODING}; # Install a warning handler for decode() my $decoder = bless( [ $ascii, $latin1, (($fatal eq 'FATAL') ? 'Carp::croak' : 'Carp::carp'), ], $class, ); no warnings 'deprecated'; ${^ENCODING} = $decoder; use warnings 'deprecated'; $^H{$class} = 1; } sub unimport { my $class = shift; $^H{$class} = undef; undef ${^ENCODING}; } # Don't worry about source code literals. sub cat_decode { my $self = shift; return $self->[LATIN1]->cat_decode(@_); } # Warn if the data is not purely US-ASCII. sub decode { my $self = shift; DO_WARN: { if ($] >= 5.009004) { my $hints = (caller(0))[10]; $hints->{ref($self)} or last DO_WARN; } local $@; my $rv = eval { $self->[ASCII]->decode($_[0], Encode::FB_CROAK()) }; return $rv unless $@; require Carp; no strict 'refs'; $self->[FATAL]->( "Bytes implicitly upgraded into wide characters as iso-8859-1" ); } return $self->[LATIN1]->decode(@_); } sub name { 'iso-8859-1' } 1; __END__ =head1 SEE ALSO L<perlunicode>, L<perluniintro> L<open>, L<utf8>, L<encoding>, L<Encode> =head1 AUTHORS Audrey Tang =head1 COPYRIGHT Copyright 2004, 2005, 2006, 2007 by Audrey Tang E<lt>cpan@audreyt.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See L<http://www.perl.com/perl/misc/Artistic.html> =cut PK ! v��r� � 5.34.0/less.pmnu �[��� package less; use strict; use warnings; our $VERSION = '0.03'; sub _pack_tags { return join ' ', @_; } sub _unpack_tags { return grep { defined and length } map { split ' ' } grep {defined} @_; } sub stash_name { $_[0] } sub of { my $class = shift @_; # If no one wants the result, don't bother computing it. return unless defined wantarray; my $hinthash = ( caller 0 )[10]; my %tags; @tags{ _unpack_tags( $hinthash->{ $class->stash_name } ) } = (); if (@_) { exists $tags{$_} and return !!1 for @_; return; } else { return keys %tags; } } sub import { my $class = shift @_; my $stash = $class->stash_name; @_ = 'please' if not @_; my %tags; @tags{ _unpack_tags( @_, $^H{ $stash } ) } = (); $^H{$stash} = _pack_tags( keys %tags ); return; } sub unimport { my $class = shift @_; if (@_) { my %tags; @tags{ _unpack_tags( $^H{$class} ) } = (); delete @tags{ _unpack_tags(@_) }; my $new = _pack_tags( keys %tags ); if ( not length $new ) { delete $^H{ $class->stash_name }; } else { $^H{ $class->stash_name } = $new; } } else { delete $^H{ $class->stash_name }; } return; } 1; __END__ =head1 NAME less - perl pragma to request less of something =head1 SYNOPSIS use less 'CPU'; =head1 DESCRIPTION This is a user-pragma. If you're very lucky some code you're using will know that you asked for less CPU usage or ram or fat or... we just can't know. Consult your documentation on everything you're currently using. For general suggestions, try requesting C<CPU> or C<memory>. use less 'memory'; use less 'CPU'; use less 'fat'; If you ask for nothing in particular, you'll be asking for C<less 'please'>. use less 'please'; =head1 FOR MODULE AUTHORS L<less> has been in the core as a "joke" module for ages now and it hasn't had any real way to communicating any information to anything. Thanks to Nicholas Clark we have user pragmas (see L<perlpragma>) and now C<less> can do something. You can probably expect your users to be able to guess that they can request less CPU or memory or just "less" overall. If the user didn't specify anything, it's interpreted as having used the C<please> tag. It's up to you to make this useful. # equivalent use less; use less 'please'; =head2 C<< BOOLEAN = less->of( FEATURE ) >> The class method C<< less->of( NAME ) >> returns a boolean to tell you whether your user requested less of something. if ( less->of( 'CPU' ) ) { ... } elsif ( less->of( 'memory' ) ) { } =head2 C<< FEATURES = less->of() >> If you don't ask for any feature, you get the list of features that the user requested you to be nice to. This has the nice side effect that if you don't respect anything in particular then you can just ask for it and use it like a boolean. if ( less->of ) { ... } else { ... } =head1 CAVEATS =over =item This probably does nothing. =item This works only on 5.10+ At least it's backwards compatible in not doing much. =back =cut PK ! ��~G) ) 5.34.0/Symbol.pmnu �[��� package Symbol; use strict; use warnings; =head1 NAME Symbol - manipulate Perl symbols and their names =head1 SYNOPSIS use Symbol; $sym = gensym; open($sym, '<', "filename"); $_ = <$sym>; # etc. ungensym $sym; # no effect # replace *FOO{IO} handle but not $FOO, %FOO, etc. *FOO = geniosym; print qualify("x"), "\n"; # "main::x" print qualify("x", "FOO"), "\n"; # "FOO::x" print qualify("BAR::x"), "\n"; # "BAR::x" print qualify("BAR::x", "FOO"), "\n"; # "BAR::x" print qualify("STDOUT", "FOO"), "\n"; # "main::STDOUT" (global) print qualify(\*x), "\n"; # returns \*x print qualify(\*x, "FOO"), "\n"; # returns \*x use strict refs; print { qualify_to_ref $fh } "foo!\n"; $ref = qualify_to_ref $name, $pkg; use Symbol qw(delete_package); delete_package('Foo::Bar'); print "deleted\n" unless exists $Foo::{'Bar::'}; =head1 DESCRIPTION C<Symbol::gensym> creates an anonymous glob and returns a reference to it. Such a glob reference can be used as a file or directory handle. For backward compatibility with older implementations that didn't support anonymous globs, C<Symbol::ungensym> is also provided. But it doesn't do anything. C<Symbol::geniosym> creates an anonymous IO handle. This can be assigned into an existing glob without affecting the non-IO portions of the glob. C<Symbol::qualify> turns unqualified symbol names into qualified variable names (e.g. "myvar" -E<gt> "MyPackage::myvar"). If it is given a second parameter, C<qualify> uses it as the default package; otherwise, it uses the package of its caller. Regardless, global variable names (e.g. "STDOUT", "ENV", "SIG") are always qualified with "main::". Qualification applies only to symbol names (strings). References are left unchanged under the assumption that they are glob references, which are qualified by their nature. C<Symbol::qualify_to_ref> is just like C<Symbol::qualify> except that it returns a glob ref rather than a symbol name, so you can use the result even if C<use strict 'refs'> is in effect. C<Symbol::delete_package> wipes out a whole package namespace. Note this routine is not exported by default--you may want to import it explicitly. =head1 BUGS C<Symbol::delete_package> is a bit too powerful. It undefines every symbol that lives in the specified package. Since perl, for performance reasons, does not perform a symbol table lookup each time a function is called or a global variable is accessed, some code that has already been loaded and that makes use of symbols in package C<Foo> may stop working after you delete C<Foo>, even if you reload the C<Foo> module afterwards. =cut require Exporter; our @ISA = qw(Exporter); our @EXPORT = qw(gensym ungensym qualify qualify_to_ref); our @EXPORT_OK = qw(delete_package geniosym); our $VERSION = '1.09'; my $genpkg = "Symbol::"; my $genseq = 0; my %global = map {$_ => 1} qw(ARGV ARGVOUT ENV INC SIG STDERR STDIN STDOUT); # # Note that we never _copy_ the glob; we just make a ref to it. # If we did copy it, then SVf_FAKE would be set on the copy, and # glob-specific behaviors (e.g. C<*$ref = \&func>) wouldn't work. # sub gensym () { my $name = "GEN" . $genseq++; no strict 'refs'; my $ref = \*{$genpkg . $name}; delete $$genpkg{$name}; $ref; } sub geniosym () { my $sym = gensym(); # force the IO slot to be filled select(select $sym); *$sym{IO}; } sub ungensym ($) {} sub qualify ($;$) { my ($name) = @_; if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { my $pkg; # Global names: special character, "^xyz", or other. if ($name =~ /^(([^a-z])|(\^[a-z_]+))\z/i || $global{$name}) { # RGS 2001-11-05 : translate leading ^X to control-char $name =~ s/^\^([a-z_])/'qq(\c'.$1.')'/eei; $pkg = "main"; } else { $pkg = (@_ > 1) ? $_[1] : caller; } $name = $pkg . "::" . $name; } $name; } sub qualify_to_ref ($;$) { no strict 'refs'; return \*{ qualify $_[0], @_ > 1 ? $_[1] : caller }; } # # of Safe.pm lineage # sub delete_package ($) { my $pkg = shift; # expand to full symbol table name if needed unless ($pkg =~ /^main::.*::$/) { $pkg = "main$pkg" if $pkg =~ /^::/; $pkg = "main::$pkg" unless $pkg =~ /^main::/; $pkg .= '::' unless $pkg =~ /::$/; } my($stem, $leaf) = $pkg =~ m/(.*::)(\w+::)$/; no strict 'refs'; my $stem_symtab = *{$stem}{HASH}; return unless defined $stem_symtab and exists $stem_symtab->{$leaf}; # free all the symbols in the package my $leaf_symtab = *{$stem_symtab->{$leaf}}{HASH}; foreach my $name (keys %$leaf_symtab) { undef *{$pkg . $name}; } use strict 'refs'; # delete the symbol table %$leaf_symtab = (); delete $stem_symtab->{$leaf}; } 1; PK ! �[q�< �< 5.34.0/TAP/Harness/Beyond.podnu �[��� =head1 NAME Test::Harness::Beyond - Beyond make test =head1 Beyond make test Test::Harness is responsible for running test scripts, analysing their output and reporting success or failure. When I type F<make test> (or F<./Build test>) for a module, Test::Harness is usually used to run the tests (not all modules use Test::Harness but the majority do). To start exploring some of the features of Test::Harness I need to switch from F<make test> to the F<prove> command (which ships with Test::Harness). For the following examples I'll also need a recent version of Test::Harness installed; 3.14 is current as I write. For the examples I'm going to assume that we're working with a 'normal' Perl module distribution. Specifically I'll assume that typing F<make> or F<./Build> causes the built, ready-to-install module code to be available below ./blib/lib and ./blib/arch and that there's a directory called 't' that contains our tests. Test::Harness isn't hardwired to that configuration but it saves me from explaining which files live where for each example. Back to F<prove>; like F<make test> it runs a test suite - but it provides far more control over which tests are executed, in what order and how their results are reported. Typically F<make test> runs all the test scripts below the 't' directory. To do the same thing with prove I type: prove -rb t The switches here are -r to recurse into any directories below 't' and -b which adds ./blib/lib and ./blib/arch to Perl's include path so that the tests can find the code they will be testing. If I'm testing a module of which an earlier version is already installed I need to be careful about the include path to make sure I'm not running my tests against the installed version rather than the new one that I'm working on. Unlike F<make test>, typing F<prove> doesn't automatically rebuild my module. If I forget to make before prove I will be testing against older versions of those files - which inevitably leads to confusion. I either get into the habit of typing make && prove -rb t or - if I have no XS code that needs to be built I use the modules below F<lib> instead prove -Ilib -r t So far I've shown you nothing that F<make test> doesn't do. Let's fix that. =head2 Saved State If I have failing tests in a test suite that consists of more than a handful of scripts and takes more than a few seconds to run it rapidly becomes tedious to run the whole test suite repeatedly as I track down the problems. I can tell prove just to run the tests that are failing like this: prove -b t/this_fails.t t/so_does_this.t That speeds things up but I have to make a note of which tests are failing and make sure that I run those tests. Instead I can use prove's --state switch and have it keep track of failing tests for me. First I do a complete run of the test suite and tell prove to save the results: prove -rb --state=save t That stores a machine readable summary of the test run in a file called '.prove' in the current directory. If I have failures I can then run just the failing scripts like this: prove -b --state=failed I can also tell prove to save the results again so that it updates its idea of which tests failed: prove -b --state=failed,save As soon as one of my failing tests passes it will be removed from the list of failed tests. Eventually I fix them all and prove can find no failing tests to run: Files=0, Tests=0, 0 wallclock secs ( 0.00 usr + 0.00 sys = 0.00 CPU) Result: NOTESTS As I work on a particular part of my module it's most likely that the tests that cover that code will fail. I'd like to run the whole test suite but have it prioritize these 'hot' tests. I can tell prove to do this: prove -rb --state=hot,save t All the tests will run but those that failed most recently will be run first. If no tests have failed since I started saving state all tests will run in their normal order. This combines full test coverage with early notification of failures. The --state switch supports a number of options; for example to run failed tests first followed by all remaining tests ordered by the timestamps of the test scripts - and save the results - I can use prove -rb --state=failed,new,save t See the prove documentation (type prove --man) for the full list of state options. When I tell prove to save state it writes a file called '.prove' ('_prove' on Windows) in the current directory. It's a YAML document so it's quite easy to write tools of your own that work on the saved test state - but the format isn't officially documented so it might change without (much) warning in the future. =head2 Parallel Testing If my tests take too long to run I may be able to speed them up by running multiple test scripts in parallel. This is particularly effective if the tests are I/O bound or if I have multiple CPU cores. I tell prove to run my tests in parallel like this: prove -rb -j 9 t The -j switch enables parallel testing; the number that follows it is the maximum number of tests to run in parallel. Sometimes tests that pass when run sequentially will fail when run in parallel. For example if two different test scripts use the same temporary file or attempt to listen on the same socket I'll have problems running them in parallel. If I see unexpected failures I need to check my tests to work out which of them are trampling on the same resource and rename temporary files or add locks as appropriate. To get the most performance benefit I want to have the test scripts that take the longest to run start first - otherwise I'll be waiting for the one test that takes nearly a minute to complete after all the others are done. I can use the --state switch to run the tests in slowest to fastest order: prove -rb -j 9 --state=slow,save t =head2 Non-Perl Tests The Test Anything Protocol (http://testanything.org/) isn't just for Perl. Just about any language can be used to write tests that output TAP. There are TAP based testing libraries for C, C++, PHP, Python and many others. If I can't find a TAP library for my language of choice it's easy to generate valid TAP. It looks like this: 1..3 ok 1 - init OK ok 2 - opened file not ok 3 - appended to file The first line is the plan - it specifies the number of tests I'm going to run so that it's easy to check that the test script didn't exit before running all the expected tests. The following lines are the test results - 'ok' for pass, 'not ok' for fail. Each test has a number and, optionally, a description. And that's it. Any language that can produce output like that on STDOUT can be used to write tests. Recently I've been rekindling a two-decades-old interest in Forth. Evidently I have a masochistic streak that even Perl can't satisfy. I want to write tests in Forth and run them using prove (you can find my gforth TAP experiments at https://svn.hexten.net/andy/Forth/Testing/). I can use the --exec switch to tell prove to run the tests using gforth like this: prove -r --exec gforth t Alternately, if the language used to write my tests allows a shebang line I can use that to specify the interpreter. Here's a test written in PHP: #!/usr/bin/php <?php print "1..2\n"; print "ok 1\n"; print "not ok 2\n"; ?> If I save that as t/phptest.t the shebang line will ensure that it runs correctly along with all my other tests. =head2 Mixing it up Subtle interdependencies between test programs can mask problems - for example an earlier test may neglect to remove a temporary file that affects the behaviour of a later test. To find this kind of problem I use the --shuffle and --reverse options to run my tests in random or reversed order. =head2 Rolling My Own If I need a feature that prove doesn't provide I can easily write my own. Typically you'll want to change how TAP gets I<input> into and I<output> from the parser. L<App::Prove> supports arbitrary plugins, and L<TAP::Harness> supports custom I<formatters> and I<source handlers> that you can load using either L<prove> or L<Module::Build>; there are many examples to base mine on. For more details see L<App::Prove>, L<TAP::Parser::SourceHandler>, and L<TAP::Formatter::Base>. If writing a plugin is not enough, you can write your own test harness; one of the motives for the 3.00 rewrite of Test::Harness was to make it easier to subclass and extend. The Test::Harness module is a compatibility wrapper around TAP::Harness. For new applications I should use TAP::Harness directly. As we'll see, prove uses TAP::Harness. When I run prove it processes its arguments, figures out which test scripts to run and then passes control to TAP::Harness to run the tests, parse, analyse and present the results. By subclassing TAP::Harness I can customise many aspects of the test run. I want to log my test results in a database so I can track them over time. To do this I override the summary method in TAP::Harness. I start with a simple prototype that dumps the results as a YAML document: package My::TAP::Harness; use base 'TAP::Harness'; use YAML; sub summary { my ( $self, $aggregate ) = @_; print Dump( $aggregate ); $self->SUPER::summary( $aggregate ); } 1; I need to tell prove to use my My::TAP::Harness. If My::TAP::Harness is on Perl's @INC include path I can prove --harness=My::TAP::Harness -rb t If I don't have My::TAP::Harness installed on @INC I need to provide the correct path to perl when I run prove: perl -Ilib `which prove` --harness=My::TAP::Harness -rb t I can incorporate these options into my own version of prove. It's pretty simple. Most of the work of prove is handled by App::Prove. The important code in prove is just: use App::Prove; my $app = App::Prove->new; $app->process_args(@ARGV); exit( $app->run ? 0 : 1 ); If I write a subclass of App::Prove I can customise any aspect of the test runner while inheriting all of prove's behaviour. Here's myprove: #!/usr/bin/env perl use lib qw( lib ); # Add ./lib to @INC use App::Prove; my $app = App::Prove->new; # Use custom TAP::Harness subclass $app->harness( 'My::TAP::Harness' ); $app->process_args( @ARGV ); exit( $app->run ? 0 : 1 ); Now I can run my tests like this ./myprove -rb t =head2 Deeper Customisation Now that I know how to subclass and replace TAP::Harness I can replace any other part of the harness. To do that I need to know which classes are responsible for which functionality. Here's a brief guided tour; the default class for each component is shown in parentheses. Normally any replacements I write will be subclasses of these default classes. When I run my tests TAP::Harness creates a scheduler (TAP::Parser::Scheduler) to work out the running order for the tests, an aggregator (TAP::Parser::Aggregator) to collect and analyse the test results and a formatter (TAP::Formatter::Console) to display those results. If I'm running my tests in parallel there may also be a multiplexer (TAP::Parser::Multiplexer) - the component that allows multiple tests to run simultaneously. Once it has created those helpers TAP::Harness starts running the tests. For each test it creates a new parser (TAP::Parser) which is responsible for running the test script and parsing its output. To replace any of these components I call one of these harness methods with the name of the replacement class: aggregator_class formatter_class multiplexer_class parser_class scheduler_class For example, to replace the aggregator I would $harness->aggregator_class( 'My::Aggregator' ); Alternately I can supply the names of my substitute classes to the TAP::Harness constructor: my $harness = TAP::Harness->new( { aggregator_class => 'My::Aggregator' } ); If I need to reach even deeper into the internals of the harness I can replace the classes that TAP::Parser uses to execute test scripts and tokenise their output. Before running a test script TAP::Parser creates a grammar (TAP::Parser::Grammar) to decode the raw TAP into tokens, a result factory (TAP::Parser::ResultFactory) to turn the decoded TAP results into objects and, depending on whether it's running a test script or reading TAP from a file, scalar or array a source or an iterator (TAP::Parser::IteratorFactory). Each of these objects may be replaced by calling one of these parser methods: source_class perl_source_class grammar_class iterator_factory_class result_factory_class =head2 Callbacks As an alternative to subclassing the components I need to change I can attach callbacks to the default classes. TAP::Harness exposes these callbacks: parser_args Tweak the parameters used to create the parser made_parser Just made a new parser before_runtests About to run tests after_runtests Have run all tests after_test Have run an individual test script TAP::Parser also supports callbacks; bailout, comment, plan, test, unknown, version and yaml are called for the corresponding TAP result types, ALL is called for all results, ELSE is called for all results for which a named callback is not installed and EOF is called once at the end of each TAP stream. To install a callback I pass the name of the callback and a subroutine reference to TAP::Harness or TAP::Parser's callback method: $harness->callback( after_test => sub { my ( $script, $desc, $parser ) = @_; } ); I can also pass callbacks to the constructor: my $harness = TAP::Harness->new({ callbacks => { after_test => sub { my ( $script, $desc, $parser ) = @_; # Do something interesting here } } }); When it comes to altering the behaviour of the test harness there's more than one way to do it. Which way is best depends on my requirements. In general if I only want to observe test execution without changing the harness' behaviour (for example to log test results to a database) I choose callbacks. If I want to make the harness behave differently subclassing gives me more control. =head2 Parsing TAP Perhaps I don't need a complete test harness. If I already have a TAP test log that I need to parse all I need is TAP::Parser and the various classes it depends upon. Here's the code I need to run a test and parse its TAP output use TAP::Parser; my $parser = TAP::Parser->new( { source => 't/simple.t' } ); while ( my $result = $parser->next ) { print $result->as_string, "\n"; } Alternately I can pass an open filehandle as source and have the parser read from that rather than attempting to run a test script: open my $tap, '<', 'tests.tap' or die "Can't read TAP transcript ($!)\n"; my $parser = TAP::Parser->new( { source => $tap } ); while ( my $result = $parser->next ) { print $result->as_string, "\n"; } This approach is useful if I need to convert my TAP based test results into some other representation. See TAP::Convert::TET (http://search.cpan.org/dist/TAP-Convert-TET/) for an example of this approach. =head2 Getting Support The Test::Harness developers hang out on the tapx-dev mailing list[1]. For discussion of general, language independent TAP issues there's the tap-l[2] list. Finally there's a wiki dedicated to the Test Anything Protocol[3]. Contributions to the wiki, patches and suggestions are all welcome. =for comment The URLs in [1] and [2] point to 404 pages. What are currently the correct URLs? [1] L<http://www.hexten.net/mailman/listinfo/tapx-dev> [2] L<http://testanything.org/mailman/listinfo/tap-l> [3] L<http://testanything.org/> PK ! ��yx( ( 5.34.0/TAP/Harness/Env.pmnu �[��� package TAP::Harness::Env; use strict; use warnings; use constant IS_VMS => ( $^O eq 'VMS' ); use TAP::Object; use Text::ParseWords qw/shellwords/; our $VERSION = '3.43'; # Get the parts of @INC which are changed from the stock list AND # preserve reordering of stock directories. sub _filtered_inc_vms { my @inc = grep { !ref } @INC; #28567 # VMS has a 255-byte limit on the length of %ENV entries, so # toss the ones that involve perl_root, the install location @inc = grep { !/perl_root/i } @inc; my @default_inc = _default_inc(); my @new_inc; my %seen; for my $dir (@inc) { next if $seen{$dir}++; if ( $dir eq ( $default_inc[0] || '' ) ) { shift @default_inc; } else { push @new_inc, $dir; } shift @default_inc while @default_inc and $seen{ $default_inc[0] }; } return @new_inc; } # Cache this to avoid repeatedly shelling out to Perl. my @inc; sub _default_inc { return @inc if @inc; local $ENV{PERL5LIB}; local $ENV{PERLLIB}; my $perl = $ENV{HARNESS_PERL} || $^X; # Avoid using -l for the benefit of Perl 6 chomp( @inc = `"$perl" -e "print join qq[\\n], \@INC, q[]"` ); return @inc; } sub create { my $package = shift; my %input = %{ shift || {} }; my @libs = @{ delete $input{libs} || [] }; my @raw_switches = @{ delete $input{switches} || [] }; my @opt = ( @raw_switches, shellwords( $ENV{HARNESS_PERL_SWITCHES} || '' ) ); my @switches; while ( my $opt = shift @opt ) { if ( $opt =~ /^ -I (.*) $ /x ) { push @libs, length($1) ? $1 : shift @opt; } else { push @switches, $opt; } } # Do things the old way on VMS... push @libs, _filtered_inc_vms() if IS_VMS; # If $Verbose isn't numeric default to 1. This helps core. my $verbose = $ENV{HARNESS_VERBOSE} ? $ENV{HARNESS_VERBOSE} !~ /\d/ ? 1 : $ENV{HARNESS_VERBOSE} : 0; my %args = ( lib => \@libs, timer => $ENV{HARNESS_TIMER} || 0, switches => \@switches, color => $ENV{HARNESS_COLOR} || 0, verbosity => $verbose, ignore_exit => $ENV{HARNESS_IGNORE_EXIT} || 0, ); my $class = delete $input{harness_class} || $ENV{HARNESS_SUBCLASS} || 'TAP::Harness'; if ( defined( my $env_opt = $ENV{HARNESS_OPTIONS} ) ) { for my $opt ( split /:/, $env_opt ) { if ( $opt =~ /^j(\d*)$/ ) { $args{jobs} = $1 || 9; } elsif ( $opt eq 'c' ) { $args{color} = 1; } elsif ( $opt =~ m/^f(.*)$/ ) { my $fmt = $1; $fmt =~ s/-/::/g; $args{formatter_class} = $fmt; } elsif ( $opt =~ m/^a(.*)$/ ) { my $archive = $1; $class = 'TAP::Harness::Archive'; $args{archive} = $archive; } else { die "Unknown HARNESS_OPTIONS item: $opt\n"; } } } return TAP::Object->_construct($class, { %args, %input }); } 1; =head1 NAME TAP::Harness::Env - Parsing harness related environmental variables where appropriate =head1 VERSION Version 3.43 =head1 SYNOPSIS my $harness = TAP::Harness::Env->create(\%extra_args) =head1 DESCRIPTION This module implements the environmental variables that L<Test::Harness> uses with TAP::Harness, and instantiates the appropriate class with the appropriate arguments. =head1 METHODS =over 4 =item * create( \%args ) This function reads the environment and generates an appropriate argument hash from it. If given any arguments in C<%extra_args>, these will override the environmental defaults. In accepts C<harness_class> (which defaults to C<TAP::Harness>), and any argument the harness class accepts. =back =head1 ENVIRONMENTAL VARIABLES =over 4 =item C<HARNESS_PERL_SWITCHES> Setting this adds perl command line switches to each test file run. For example, C<HARNESS_PERL_SWITCHES=-T> will turn on taint mode. C<HARNESS_PERL_SWITCHES=-MDevel::Cover> will run C<Devel::Cover> for each test. =item C<HARNESS_VERBOSE> If true, C<TAP::Harness> will output the verbose results of running its tests. =item C<HARNESS_SUBCLASS> Specifies a TAP::Harness subclass to be used in place of TAP::Harness. =item C<HARNESS_OPTIONS> Provide additional options to the harness. Currently supported options are: =over =item C<< j<n> >> Run <n> (default 9) parallel jobs. =item C<< c >> Try to color output. See L<TAP::Formatter::Base/"new">. =item C<< a<file.tgz> >> Will use L<TAP::Harness::Archive> as the harness class, and save the TAP to C<file.tgz> =item C<< fPackage-With-Dashes >> Set the formatter_class of the harness being run. Since the C<HARNESS_OPTIONS> is seperated by C<:>, we use C<-> instead. =back Multiple options may be separated by colons: HARNESS_OPTIONS=j9:c make test =item C<HARNESS_TIMER> Setting this to true will make the harness display the number of milliseconds each test took. You can also use F<prove>'s C<--timer> switch. =item C<HARNESS_COLOR> Attempt to produce color output. =item C<HARNESS_IGNORE_EXIT> If set to a true value instruct C<TAP::Parser> to ignore exit and wait status from test scripts. =back PK ! ш4�� � $ 5.34.0/TAP/Formatter/File/Session.pmnu �[��� package TAP::Formatter::File::Session; use strict; use warnings; use base 'TAP::Formatter::Session'; =head1 NAME TAP::Formatter::File::Session - Harness output delegate for file output =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 DESCRIPTION This provides file orientated output formatting for L<TAP::Harness>. It is particularly important when running with parallel tests, as it ensures that test results are not interleaved, even when run verbosely. =cut =head1 METHODS =head2 result Stores results for later output, all together. =cut sub result { my $self = shift; my $result = shift; my $parser = $self->parser; my $formatter = $self->formatter; if ( $result->is_bailout ) { $formatter->_failure_output( "Bailout called. Further testing stopped: " . $result->explanation . "\n" ); return; } if (!$formatter->quiet && ( $formatter->verbose || ( $result->is_test && $formatter->failures && !$result->is_ok ) || ( $formatter->comments && $result->is_comment ) || ( $result->has_directive && $formatter->directives ) ) ) { $self->{results} .= $self->_format_for_output($result) . "\n"; } } =head2 close_test When the test file finishes, outputs the summary, together. =cut sub close_test { my $self = shift; # Avoid circular references $self->parser(undef); my $parser = $self->parser; my $formatter = $self->formatter; my $pretty = $formatter->_format_name( $self->name ); return if $formatter->really_quiet; if ( my $skip_all = $parser->skip_all ) { $formatter->_output( $pretty . "skipped: $skip_all\n" ); } elsif ( $parser->has_problems ) { $formatter->_output( $pretty . ( $self->{results} ? "\n" . $self->{results} : "\n" ) ); $self->_output_test_failure($parser); } else { my $time_report = $self->time_report($formatter, $parser); $formatter->_output( $pretty . ( $self->{results} ? "\n" . $self->{results} : "" ) . $self->_make_ok_line($time_report) ); } } 1; PK ! ����R R 5.34.0/TAP/Formatter/File.pmnu �[��� package TAP::Formatter::File; use strict; use warnings; use TAP::Formatter::File::Session; use POSIX qw(strftime); use base 'TAP::Formatter::Base'; =head1 NAME TAP::Formatter::File - Harness output delegate for file output =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 DESCRIPTION This provides file orientated output formatting for TAP::Harness. =head1 SYNOPSIS use TAP::Formatter::File; my $harness = TAP::Formatter::File->new( \%args ); =head2 C<< open_test >> See L<TAP::Formatter::Base> =cut sub open_test { my ( $self, $test, $parser ) = @_; my $session = TAP::Formatter::File::Session->new( { name => $test, formatter => $self, parser => $parser, } ); $session->header; return $session; } sub _should_show_count { return 0; } 1; PK ! �m�; 5.34.0/TAP/Formatter/Color.pmnu �[��� package TAP::Formatter::Color; use strict; use warnings; use constant IS_WIN32 => ( $^O =~ /^(MS)?Win32$/ ); use base 'TAP::Object'; my $NO_COLOR; BEGIN { $NO_COLOR = 0; eval 'require Term::ANSIColor'; if ($@) { $NO_COLOR = $@; }; if (IS_WIN32) { eval 'use Win32::Console::ANSI'; if ($@) { $NO_COLOR = $@; } }; if ($NO_COLOR) { *set_color = sub { }; } else { *set_color = sub { my ( $self, $output, $color ) = @_; $output->( Term::ANSIColor::color($color) ); }; } } =head1 NAME TAP::Formatter::Color - Run Perl test scripts with color =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 DESCRIPTION Note that this harness is I<experimental>. You may not like the colors I've chosen and I haven't yet provided an easy way to override them. This test harness is the same as L<TAP::Harness>, but test results are output in color. Passing tests are printed in green. Failing tests are in red. Skipped tests are blue on a white background and TODO tests are printed in white. If L<Term::ANSIColor> cannot be found (and L<Win32::Console::ANSI> if running under Windows) tests will be run without color. =head1 SYNOPSIS use TAP::Formatter::Color; my $harness = TAP::Formatter::Color->new( \%args ); $harness->runtests(@tests); =head1 METHODS =head2 Class Methods =head3 C<new> The constructor returns a new C<TAP::Formatter::Color> object. If L<Term::ANSIColor> is not installed, returns undef. =cut # new() implementation supplied by TAP::Object sub _initialize { my $self = shift; if ($NO_COLOR) { # shorten that message a bit ( my $error = $NO_COLOR ) =~ s/ in \@INC .*//s; warn "Note: Cannot run tests in color: $error\n"; return; # abort object construction } return $self; } ############################################################################## =head3 C<can_color> Test::Formatter::Color->can_color() Returns a boolean indicating whether or not this module can actually generate colored output. This will be false if it could not load the modules needed for the current platform. =cut sub can_color { return !$NO_COLOR; } =head3 C<set_color> Set the output color. =cut 1; PK ! ���| | 5.34.0/TAP/Formatter/Session.pmnu �[��� package TAP::Formatter::Session; use strict; use warnings; use base 'TAP::Base'; my @ACCESSOR; BEGIN { @ACCESSOR = qw( name formatter parser show_count ); for my $method (@ACCESSOR) { no strict 'refs'; *$method = sub { shift->{$method} }; } } =head1 NAME TAP::Formatter::Session - Abstract base class for harness output delegate =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 METHODS =head2 Class Methods =head3 C<new> my %args = ( formatter => $self, ) my $harness = TAP::Formatter::Console::Session->new( \%args ); The constructor returns a new C<TAP::Formatter::Console::Session> object. =over 4 =item * C<formatter> =item * C<parser> =item * C<name> =item * C<show_count> =back =cut sub _initialize { my ( $self, $arg_for ) = @_; $arg_for ||= {}; $self->SUPER::_initialize($arg_for); my %arg_for = %$arg_for; # force a shallow copy for my $name (@ACCESSOR) { $self->{$name} = delete $arg_for{$name}; } if ( !defined $self->show_count ) { $self->{show_count} = 1; # defaults to true } if ( $self->show_count ) { # but may be a damned lie! $self->{show_count} = $self->_should_show_count; } if ( my @props = sort keys %arg_for ) { $self->_croak( "Unknown arguments to " . __PACKAGE__ . "::new (@props)" ); } return $self; } =head3 C<header> Output test preamble =head3 C<result> Called by the harness for each line of TAP it receives. =head3 C<close_test> Called to close a test session. =head3 C<clear_for_close> Called by C<close_test> to clear the line showing test progress, or the parallel test ruler, prior to printing the final test result. =head3 C<time_report> Return a formatted string about the elapsed (wall-clock) time and about the consumed CPU time. =cut sub header { } sub result { } sub close_test { } sub clear_for_close { } sub _should_show_count { my $self = shift; return !$self->formatter->verbose && -t $self->formatter->stdout && !$ENV{HARNESS_NOTTY}; } sub _format_for_output { my ( $self, $result ) = @_; return $self->formatter->normalize ? $result->as_string : $result->raw; } sub _output_test_failure { my ( $self, $parser ) = @_; my $formatter = $self->formatter; return if $formatter->really_quiet; my $tests_run = $parser->tests_run; my $tests_planned = $parser->tests_planned; my $total = defined $tests_planned ? $tests_planned : $tests_run; my $passed = $parser->passed; # The total number of fails includes any tests that were planned but # didn't run my $failed = $parser->failed + $total - $tests_run; my $exit = $parser->exit; if ( my $exit = $parser->exit ) { my $wstat = $parser->wait; my $status = sprintf( "%d (wstat %d, 0x%x)", $exit, $wstat, $wstat ); $formatter->_failure_output("Dubious, test returned $status\n"); } if ( $failed == 0 ) { $formatter->_failure_output( $total ? "All $total subtests passed " : 'No subtests run ' ); } else { $formatter->_failure_output("Failed $failed/$total subtests "); if ( !$total ) { $formatter->_failure_output("\nNo tests run!"); } } if ( my $skipped = $parser->skipped ) { $passed -= $skipped; my $test = 'subtest' . ( $skipped != 1 ? 's' : '' ); $formatter->_output( "\n\t(less $skipped skipped $test: $passed okay)"); } if ( my $failed = $parser->todo_passed ) { my $test = $failed > 1 ? 'tests' : 'test'; $formatter->_output( "\n\t($failed TODO $test unexpectedly succeeded)"); } $formatter->_output("\n"); } sub _make_ok_line { my ( $self, $suffix ) = @_; return "ok$suffix\n"; } sub time_report { my ( $self, $formatter, $parser ) = @_; my @time_report; if ( $formatter->timer ) { my $start_time = $parser->start_time; my $end_time = $parser->end_time; if ( defined $start_time and defined $end_time ) { my $elapsed = $end_time - $start_time; push @time_report, $self->time_is_hires ? sprintf( ' %8d ms', $elapsed * 1000 ) : sprintf( ' %8s s', $elapsed || '<1' ); } my $start_times = $parser->start_times(); my $end_times = $parser->end_times(); my $usr = $end_times->[0] - $start_times->[0]; my $sys = $end_times->[1] - $start_times->[1]; my $cusr = $end_times->[2] - $start_times->[2]; my $csys = $end_times->[3] - $start_times->[3]; push @time_report, sprintf('(%5.2f usr %5.2f sys + %5.2f cusr %5.2f csys = %5.2f CPU)', $usr, $sys, $cusr, $csys, $usr + $sys + $cusr + $csys); } return "@time_report"; } 1; PK ! TO� � ' 5.34.0/TAP/Formatter/Console/Session.pmnu �[��� package TAP::Formatter::Console::Session; use strict; use warnings; use base 'TAP::Formatter::Session'; my @ACCESSOR; BEGIN { my @CLOSURE_BINDING = qw( header result clear_for_close close_test ); for my $method (@CLOSURE_BINDING) { no strict 'refs'; *$method = sub { my $self = shift; return ( $self->{_closures} ||= $self->_closures )->{$method} ->(@_); }; } } =head1 NAME TAP::Formatter::Console::Session - Harness output delegate for default console output =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 DESCRIPTION This provides console orientated output formatting for TAP::Harness. =cut sub _get_output_result { my $self = shift; my @color_map = ( { test => sub { $_->is_test && !$_->is_ok }, colors => ['red'], }, { test => sub { $_->is_test && $_->has_skip }, colors => [ 'white', 'on_blue' ], }, { test => sub { $_->is_test && $_->has_todo }, colors => ['yellow'], }, ); my $formatter = $self->formatter; my $parser = $self->parser; return $formatter->_colorizer ? sub { my $result = shift; for my $col (@color_map) { local $_ = $result; if ( $col->{test}->() ) { $formatter->_set_colors( @{ $col->{colors} } ); last; } } $formatter->_output( $self->_format_for_output($result) ); $formatter->_set_colors('reset'); } : sub { $formatter->_output( $self->_format_for_output(shift) ); }; } sub _closures { my $self = shift; my $parser = $self->parser; my $formatter = $self->formatter; my $pretty = $formatter->_format_name( $self->name ); my $show_count = $self->show_count; my $really_quiet = $formatter->really_quiet; my $quiet = $formatter->quiet; my $verbose = $formatter->verbose; my $directives = $formatter->directives; my $failures = $formatter->failures; my $comments = $formatter->comments; my $output_result = $self->_get_output_result; my $output = '_output'; my $plan = ''; my $newline_printed = 0; my $last_status_printed = 0; return { header => sub { $formatter->_output($pretty) unless $really_quiet; }, result => sub { my $result = shift; if ( $result->is_bailout ) { $formatter->_failure_output( "Bailout called. Further testing stopped: " . $result->explanation . "\n" ); } return if $really_quiet; my $is_test = $result->is_test; # These are used in close_test - but only if $really_quiet # is false - so it's safe to only set them here unless that # relationship changes. if ( !$plan ) { my $planned = $parser->tests_planned || '?'; $plan = "/$planned "; } $output = $formatter->_get_output_method($parser); if ( $show_count and $is_test ) { my $number = $result->number; my $now = CORE::time; # Print status roughly once per second. # We will always get the first number as a side effect of # $last_status_printed starting with the value 0, which $now # will never be. (Unless someone sets their clock to 1970) if ( $last_status_printed != $now ) { $formatter->$output("\r$pretty$number$plan"); $last_status_printed = $now; } } if (!$quiet && ( $verbose || ( $is_test && $failures && !$result->is_ok ) || ( $comments && $result->is_comment ) || ( $directives && $result->has_directive ) ) ) { unless ($newline_printed) { $formatter->_output("\n"); $newline_printed = 1; } $output_result->($result); $formatter->_output("\n"); } }, clear_for_close => sub { my $spaces = ' ' x length( '.' . $pretty . $plan . $parser->tests_run ); $formatter->$output("\r$spaces"); }, close_test => sub { if ( $show_count && !$really_quiet ) { $self->clear_for_close; $formatter->$output("\r$pretty"); } # Avoid circular references $self->parser(undef); $self->{_closures} = {}; return if $really_quiet; if ( my $skip_all = $parser->skip_all ) { $formatter->_output("skipped: $skip_all\n"); } elsif ( $parser->has_problems ) { $self->_output_test_failure($parser); } else { my $time_report = $self->time_report($formatter, $parser); $formatter->_output( $self->_make_ok_line($time_report) ); } }, }; } =head2 C<< clear_for_close >> =head2 C<< close_test >> =head2 C<< header >> =head2 C<< result >> =cut 1; PK ! �!dW W / 5.34.0/TAP/Formatter/Console/ParallelSession.pmnu �[��� package TAP::Formatter::Console::ParallelSession; use strict; use warnings; use File::Spec; use File::Path; use Carp; use base 'TAP::Formatter::Console::Session'; use constant WIDTH => 72; # Because Eric says my %shared; sub _initialize { my ( $self, $arg_for ) = @_; $self->SUPER::_initialize($arg_for); my $formatter = $self->formatter; # Horrid bodge. This creates our shared context per harness. Maybe # TAP::Harness should give us this? my $context = $shared{$formatter} ||= $self->_create_shared_context; push @{ $context->{active} }, $self; return $self; } sub _create_shared_context { my $self = shift; return { active => [], tests => 0, fails => 0, }; } =head1 NAME TAP::Formatter::Console::ParallelSession - Harness output delegate for parallel console output =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 DESCRIPTION This provides console orientated output formatting for L<TAP::Harness> when run with multiple L<TAP::Harness/jobs>. =head1 SYNOPSIS =cut =head1 METHODS =head2 Class Methods =head3 C<header> Output test preamble =cut sub header { } sub _clear_ruler { my $self = shift; $self->formatter->_output( "\r" . ( ' ' x WIDTH ) . "\r" ); } my $now = 0; my $start; my $trailer = '... )==='; my $chop_length = WIDTH - length $trailer; sub _output_ruler { my ( $self, $refresh ) = @_; my $new_now = time; return if $new_now == $now and !$refresh; $now = $new_now; $start ||= $now; my $formatter = $self->formatter; return if $formatter->really_quiet; my $context = $shared{$formatter}; my $ruler = sprintf '===( %7d;%d ', $context->{tests}, $now - $start; for my $active ( @{ $context->{active} } ) { my $parser = $active->parser; my $tests = $parser->tests_run; my $planned = $parser->tests_planned || '?'; $ruler .= sprintf '%' . length($planned) . "d/$planned ", $tests; } chop $ruler; # Remove a trailing space $ruler .= ')==='; if ( length $ruler > WIDTH ) { $ruler =~ s/(.{$chop_length}).*/$1$trailer/o; } else { $ruler .= '=' x ( WIDTH - length($ruler) ); } $formatter->_output("\r$ruler"); } =head3 C<result> Called by the harness for each line of TAP it receives . =cut sub result { my ( $self, $result ) = @_; my $formatter = $self->formatter; # my $really_quiet = $formatter->really_quiet; # my $show_count = $self->_should_show_count; if ( $result->is_test ) { my $context = $shared{$formatter}; $context->{tests}++; my $active = $context->{active}; if ( @$active == 1 ) { # There is only one test, so use the serial output format. return $self->SUPER::result($result); } $self->_output_ruler( $self->parser->tests_run == 1 ); } elsif ( $result->is_bailout ) { $formatter->_failure_output( "Bailout called. Further testing stopped: " . $result->explanation . "\n" ); } } =head3 C<clear_for_close> =cut sub clear_for_close { my $self = shift; my $formatter = $self->formatter; return if $formatter->really_quiet; my $context = $shared{$formatter}; if ( @{ $context->{active} } == 1 ) { $self->SUPER::clear_for_close; } else { $self->_clear_ruler; } } =head3 C<close_test> =cut sub close_test { my $self = shift; my $name = $self->name; my $parser = $self->parser; my $formatter = $self->formatter; my $context = $shared{$formatter}; $self->SUPER::close_test; my $active = $context->{active}; my @pos = grep { $active->[$_]->name eq $name } 0 .. $#$active; die "Can't find myself" unless @pos; splice @$active, $pos[0], 1; if ( @$active > 1 ) { $self->_output_ruler(1); } elsif ( @$active == 1 ) { # Print out "test/name.t ...." $active->[0]->SUPER::header; } else { # $self->formatter->_output("\n"); delete $shared{$formatter}; } } 1; PK ! �u� � � 5.34.0/TAP/Formatter/Console.pmnu �[��� package TAP::Formatter::Console; use strict; use warnings; use base 'TAP::Formatter::Base'; use POSIX qw(strftime); =head1 NAME TAP::Formatter::Console - Harness output delegate for default console output =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 DESCRIPTION This provides console orientated output formatting for TAP::Harness. =head1 SYNOPSIS use TAP::Formatter::Console; my $harness = TAP::Formatter::Console->new( \%args ); =head2 C<< open_test >> See L<TAP::Formatter::Base> =cut sub open_test { my ( $self, $test, $parser ) = @_; my $class = $self->jobs > 1 ? 'TAP::Formatter::Console::ParallelSession' : 'TAP::Formatter::Console::Session'; eval "require $class"; $self->_croak($@) if $@; my $session = $class->new( { name => $test, formatter => $self, parser => $parser, show_count => $self->show_count, } ); $session->header; return $session; } # Use _colorizer delegate to set output color. NOP if we have no delegate sub _set_colors { my ( $self, @colors ) = @_; if ( my $colorizer = $self->_colorizer ) { my $output_func = $self->{_output_func} ||= sub { $self->_output(@_); }; $colorizer->set_color( $output_func, $_ ) for @colors; } } sub _failure_color { my ($self) = @_; return $ENV{'HARNESS_SUMMARY_COLOR_FAIL'} || 'red'; } sub _success_color { my ($self) = @_; return $ENV{'HARNESS_SUMMARY_COLOR_SUCCESS'} || 'green'; } sub _output_success { my ( $self, $msg ) = @_; $self->_set_colors( $self->_success_color() ); $self->_output($msg); $self->_set_colors('reset'); } sub _failure_output { my $self = shift; $self->_set_colors( $self->_failure_color() ); my $out = join '', @_; my $has_newline = chomp $out; $self->_output($out); $self->_set_colors('reset'); $self->_output($/) if $has_newline; } 1; PK ! lS��^. ^. 5.34.0/TAP/Formatter/Base.pmnu �[��� package TAP::Formatter::Base; use strict; use warnings; use base 'TAP::Base'; use POSIX qw(strftime); my $MAX_ERRORS = 5; my %VALIDATION_FOR; BEGIN { %VALIDATION_FOR = ( directives => sub { shift; shift }, verbosity => sub { shift; shift }, normalize => sub { shift; shift }, timer => sub { shift; shift }, failures => sub { shift; shift }, comments => sub { shift; shift }, errors => sub { shift; shift }, color => sub { shift; shift }, jobs => sub { shift; shift }, show_count => sub { shift; shift }, stdout => sub { my ( $self, $ref ) = @_; $self->_croak("option 'stdout' needs a filehandle") unless $self->_is_filehandle($ref); return $ref; }, ); sub _is_filehandle { my ( $self, $ref ) = @_; return 0 if !defined $ref; return 1 if ref $ref eq 'GLOB'; # lexical filehandle return 1 if !ref $ref && ref \$ref eq 'GLOB'; # bare glob like *STDOUT return 1 if eval { $ref->can('print') }; return 0; } my @getter_setters = qw( _longest _printed_summary_header _colorizer ); __PACKAGE__->mk_methods( @getter_setters, keys %VALIDATION_FOR ); } =head1 NAME TAP::Formatter::Base - Base class for harness output delegates =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 DESCRIPTION This provides console orientated output formatting for TAP::Harness. =head1 SYNOPSIS use TAP::Formatter::Console; my $harness = TAP::Formatter::Console->new( \%args ); =cut sub _initialize { my ( $self, $arg_for ) = @_; $arg_for ||= {}; $self->SUPER::_initialize($arg_for); my %arg_for = %$arg_for; # force a shallow copy $self->verbosity(0); for my $name ( keys %VALIDATION_FOR ) { my $property = delete $arg_for{$name}; if ( defined $property ) { my $validate = $VALIDATION_FOR{$name}; $self->$name( $self->$validate($property) ); } } if ( my @props = keys %arg_for ) { $self->_croak( "Unknown arguments to " . __PACKAGE__ . "::new (@props)" ); } $self->stdout( \*STDOUT ) unless $self->stdout; if ( $self->color ) { require TAP::Formatter::Color; $self->_colorizer( TAP::Formatter::Color->new ); } return $self; } sub verbose { shift->verbosity >= 1 } sub quiet { shift->verbosity <= -1 } sub really_quiet { shift->verbosity <= -2 } sub silent { shift->verbosity <= -3 } =head1 METHODS =head2 Class Methods =head3 C<new> my %args = ( verbose => 1, ) my $harness = TAP::Formatter::Console->new( \%args ); The constructor returns a new C<TAP::Formatter::Console> object. If a L<TAP::Harness> is created with no C<formatter> a C<TAP::Formatter::Console> is automatically created. If any of the following options were given to TAP::Harness->new they well be passed to this constructor which accepts an optional hashref whose allowed keys are: =over 4 =item * C<verbosity> Set the verbosity level. =item * C<verbose> Printing individual test results to STDOUT. =item * C<timer> Append run time for each test to output. Uses L<Time::HiRes> if available. =item * C<failures> Show test failures (this is a no-op if C<verbose> is selected). =item * C<comments> Show test comments (this is a no-op if C<verbose> is selected). =item * C<quiet> Suppressing some test output (mostly failures while tests are running). =item * C<really_quiet> Suppressing everything but the tests summary. =item * C<silent> Suppressing all output. =item * C<errors> If parse errors are found in the TAP output, a note of this will be made in the summary report. To see all of the parse errors, set this argument to true: errors => 1 =item * C<directives> If set to a true value, only test results with directives will be displayed. This overrides other settings such as C<verbose>, C<failures>, or C<comments>. =item * C<stdout> A filehandle for catching standard output. =item * C<color> If defined specifies whether color output is desired. If C<color> is not defined it will default to color output if color support is available on the current platform and output is not being redirected. =item * C<jobs> The number of concurrent jobs this formatter will handle. =item * C<show_count> Boolean value. If false, disables the C<X/Y> test count which shows up while tests are running. =back Any keys for which the value is C<undef> will be ignored. =cut # new supplied by TAP::Base =head3 C<prepare> Called by Test::Harness before any test output is generated. This is an advisory and may not be called in the case where tests are being supplied to Test::Harness by an iterator. =cut sub prepare { my ( $self, @tests ) = @_; my $longest = 0; for my $test (@tests) { $longest = length $test if length $test > $longest; } $self->_longest($longest); } sub _format_now { strftime "[%H:%M:%S]", localtime } sub _format_name { my ( $self, $test ) = @_; my $name = $test; my $periods = '.' x ( $self->_longest + 2 - length $test ); $periods = " $periods "; if ( $self->timer ) { my $stamp = $self->_format_now(); return "$stamp $name$periods"; } else { return "$name$periods"; } } =head3 C<open_test> Called to create a new test session. A test session looks like this: my $session = $formatter->open_test( $test, $parser ); while ( defined( my $result = $parser->next ) ) { $session->result($result); exit 1 if $result->is_bailout; } $session->close_test; =cut sub open_test { die "Unimplemented."; } sub _output_success { my ( $self, $msg ) = @_; $self->_output($msg); } =head3 C<summary> $harness->summary( $aggregate ); C<summary> prints the summary report after all tests are run. The first argument is an aggregate to summarise. An optional second argument may be set to a true value to indicate that the summary is being output as a result of an interrupted test run. =cut sub summary { my ( $self, $aggregate, $interrupted ) = @_; return if $self->silent; my @t = $aggregate->descriptions; my $tests = \@t; my $runtime = $aggregate->elapsed_timestr; my $total = $aggregate->total; my $passed = $aggregate->passed; if ( $self->timer ) { $self->_output( $self->_format_now(), "\n" ); } $self->_failure_output("Test run interrupted!\n") if $interrupted; # TODO: Check this condition still works when all subtests pass but # the exit status is nonzero if ( $aggregate->all_passed ) { $self->_output_success("All tests successful.\n"); } # ~TODO option where $aggregate->skipped generates reports if ( $total != $passed or $aggregate->has_problems ) { $self->_output("\nTest Summary Report"); $self->_output("\n-------------------\n"); for my $test (@$tests) { $self->_printed_summary_header(0); my ($parser) = $aggregate->parsers($test); $self->_output_summary_failure( 'failed', [ ' Failed test: ', ' Failed tests: ' ], $test, $parser ); $self->_output_summary_failure( 'todo_passed', " TODO passed: ", $test, $parser ); # ~TODO this cannot be the default #$self->_output_summary_failure( 'skipped', " Tests skipped: " ); if ( my $exit = $parser->exit ) { $self->_summary_test_header( $test, $parser ); $self->_failure_output(" Non-zero exit status: $exit\n"); } elsif ( my $wait = $parser->wait ) { $self->_summary_test_header( $test, $parser ); $self->_failure_output(" Non-zero wait status: $wait\n"); } if ( my @errors = $parser->parse_errors ) { my $explain; if ( @errors > $MAX_ERRORS && !$self->errors ) { $explain = "Displayed the first $MAX_ERRORS of " . scalar(@errors) . " TAP syntax errors.\n" . "Re-run prove with the -p option to see them all.\n"; splice @errors, $MAX_ERRORS; } $self->_summary_test_header( $test, $parser ); $self->_failure_output( sprintf " Parse errors: %s\n", shift @errors ); for my $error (@errors) { my $spaces = ' ' x 16; $self->_failure_output("$spaces$error\n"); } $self->_failure_output($explain) if $explain; } } } my $files = @$tests; $self->_output("Files=$files, Tests=$total, $runtime\n"); my $status = $aggregate->get_status; $self->_output("Result: $status\n"); } sub _output_summary_failure { my ( $self, $method, $name, $test, $parser ) = @_; # ugly hack. Must rethink this :( my $output = $method eq 'failed' ? '_failure_output' : '_output'; if ( my @r = $parser->$method() ) { $self->_summary_test_header( $test, $parser ); my ( $singular, $plural ) = 'ARRAY' eq ref $name ? @$name : ( $name, $name ); $self->$output( @r == 1 ? $singular : $plural ); my @results = $self->_balanced_range( 40, @r ); $self->$output( sprintf "%s\n" => shift @results ); my $spaces = ' ' x 16; while (@results) { $self->$output( sprintf "$spaces%s\n" => shift @results ); } } } sub _summary_test_header { my ( $self, $test, $parser ) = @_; return if $self->_printed_summary_header; my $spaces = ' ' x ( $self->_longest - length $test ); $spaces = ' ' unless $spaces; my $output = $self->_get_output_method($parser); my $wait = $parser->wait; defined $wait or $wait = '(none)'; $self->$output( sprintf "$test$spaces(Wstat: %s Tests: %d Failed: %d)\n", $wait, $parser->tests_run, scalar $parser->failed ); $self->_printed_summary_header(1); } sub _output { my $self = shift; print { $self->stdout } @_; } sub _failure_output { my $self = shift; $self->_output(@_); } sub _balanced_range { my ( $self, $limit, @range ) = @_; @range = $self->_range(@range); my $line = ""; my @lines; my $curr = 0; while (@range) { if ( $curr < $limit ) { my $range = ( shift @range ) . ", "; $line .= $range; $curr += length $range; } elsif (@range) { $line =~ s/, $//; push @lines => $line; $line = ''; $curr = 0; } } if ($line) { $line =~ s/, $//; push @lines => $line; } return @lines; } sub _range { my ( $self, @numbers ) = @_; # shouldn't be needed, but subclasses might call this @numbers = sort { $a <=> $b } @numbers; my ( $min, @range ); for my $i ( 0 .. $#numbers ) { my $num = $numbers[$i]; my $next = $numbers[ $i + 1 ]; if ( defined $next && $next == $num + 1 ) { if ( !defined $min ) { $min = $num; } } elsif ( defined $min ) { push @range => "$min-$num"; undef $min; } else { push @range => $num; } } return @range; } sub _get_output_method { my ( $self, $parser ) = @_; return $parser->has_problems ? '_failure_output' : '_output'; } 1; PK ! c�f��q �q 5.34.0/TAP/Harness.pmnu �[��� package TAP::Harness; use strict; use warnings; use Carp; use File::Spec; use File::Path; use IO::Handle; use base 'TAP::Base'; =head1 NAME TAP::Harness - Run test scripts with statistics =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; $ENV{HARNESS_ACTIVE} = 1; $ENV{HARNESS_VERSION} = $VERSION; END { # For VMS. delete $ENV{HARNESS_ACTIVE}; delete $ENV{HARNESS_VERSION}; } =head1 DESCRIPTION This is a simple test harness which allows tests to be run and results automatically aggregated and output to STDOUT. =head1 SYNOPSIS use TAP::Harness; my $harness = TAP::Harness->new( \%args ); $harness->runtests(@tests); =cut my %VALIDATION_FOR; my @FORMATTER_ARGS; sub _error { my $self = shift; return $self->{error} unless @_; $self->{error} = shift; } BEGIN { @FORMATTER_ARGS = qw( directives verbosity timer failures comments errors stdout color show_count normalize ); %VALIDATION_FOR = ( lib => sub { my ( $self, $libs ) = @_; $libs = [$libs] unless 'ARRAY' eq ref $libs; return [ map {"-I$_"} @$libs ]; }, switches => sub { shift; shift }, exec => sub { shift; shift }, merge => sub { shift; shift }, aggregator_class => sub { shift; shift }, formatter_class => sub { shift; shift }, multiplexer_class => sub { shift; shift }, parser_class => sub { shift; shift }, scheduler_class => sub { shift; shift }, formatter => sub { shift; shift }, jobs => sub { shift; shift }, test_args => sub { shift; shift }, ignore_exit => sub { shift; shift }, rules => sub { shift; shift }, rulesfile => sub { shift; shift }, sources => sub { shift; shift }, version => sub { shift; shift }, trap => sub { shift; shift }, ); for my $method ( sort keys %VALIDATION_FOR ) { no strict 'refs'; if ( $method eq 'lib' || $method eq 'switches' ) { *{$method} = sub { my $self = shift; unless (@_) { $self->{$method} ||= []; return wantarray ? @{ $self->{$method} } : $self->{$method}; } $self->_croak("Too many arguments to method '$method'") if @_ > 1; my $args = shift; $args = [$args] unless ref $args; $self->{$method} = $args; return $self; }; } else { *{$method} = sub { my $self = shift; return $self->{$method} unless @_; $self->{$method} = shift; }; } } for my $method (@FORMATTER_ARGS) { no strict 'refs'; *{$method} = sub { my $self = shift; return $self->formatter->$method(@_); }; } } ############################################################################## =head1 METHODS =head2 Class Methods =head3 C<new> my %args = ( verbosity => 1, lib => [ 'lib', 'blib/lib', 'blib/arch' ], ) my $harness = TAP::Harness->new( \%args ); The constructor returns a new C<TAP::Harness> object. It accepts an optional hashref whose allowed keys are: =over 4 =item * C<verbosity> Set the verbosity level: 1 verbose Print individual test results to STDOUT. 0 normal -1 quiet Suppress some test output (mostly failures while tests are running). -2 really quiet Suppress everything but the tests summary. -3 silent Suppress everything. =item * C<timer> Append run time for each test to output. Uses L<Time::HiRes> if available. =item * C<failures> Show test failures (this is a no-op if C<verbose> is selected). =item * C<comments> Show test comments (this is a no-op if C<verbose> is selected). =item * C<show_count> Update the running test count during testing. =item * C<normalize> Set to a true value to normalize the TAP that is emitted in verbose modes. =item * C<lib> Accepts a scalar value or array ref of scalar values indicating which paths to allowed libraries should be included if Perl tests are executed. Naturally, this only makes sense in the context of tests written in Perl. =item * C<switches> Accepts a scalar value or array ref of scalar values indicating which switches should be included if Perl tests are executed. Naturally, this only makes sense in the context of tests written in Perl. =item * C<test_args> A reference to an C<@INC> style array of arguments to be passed to each test program. test_args => ['foo', 'bar'], if you want to pass different arguments to each test then you should pass a hash of arrays, keyed by the alias for each test: test_args => { my_test => ['foo', 'bar'], other_test => ['baz'], } =item * C<color> Attempt to produce color output. =item * C<exec> Typically, Perl tests are run through this. However, anything which spits out TAP is fine. You can use this argument to specify the name of the program (and optional switches) to run your tests with: exec => ['/usr/bin/ruby', '-w'] You can also pass a subroutine reference in order to determine and return the proper program to run based on a given test script. The subroutine reference should expect the TAP::Harness object itself as the first argument, and the file name as the second argument. It should return an array reference containing the command to be run and including the test file name. It can also simply return C<undef>, in which case TAP::Harness will fall back on executing the test script in Perl: exec => sub { my ( $harness, $test_file ) = @_; # Let Perl tests run. return undef if $test_file =~ /[.]t$/; return [ qw( /usr/bin/ruby -w ), $test_file ] if $test_file =~ /[.]rb$/; } If the subroutine returns a scalar with a newline or a filehandle, it will be interpreted as raw TAP or as a TAP stream, respectively. =item * C<merge> If C<merge> is true the harness will create parsers that merge STDOUT and STDERR together for any processes they start. =item * C<sources> I<NEW to 3.18>. If set, C<sources> must be a hashref containing the names of the L<TAP::Parser::SourceHandler>s to load and/or configure. The values are a hash of configuration that will be accessible to the source handlers via L<TAP::Parser::Source/config_for>. For example: sources => { Perl => { exec => '/path/to/custom/perl' }, File => { extensions => [ '.tap', '.txt' ] }, MyCustom => { some => 'config' }, } The C<sources> parameter affects how C<source>, C<tap> and C<exec> parameters are handled. For more details, see the C<sources> parameter in L<TAP::Parser/new>, L<TAP::Parser::Source>, and L<TAP::Parser::IteratorFactory>. =item * C<aggregator_class> The name of the class to use to aggregate test results. The default is L<TAP::Parser::Aggregator>. =item * C<version> I<NEW to 3.22>. Assume this TAP version for L<TAP::Parser> instead of default TAP version 12. =item * C<formatter_class> The name of the class to use to format output. The default is L<TAP::Formatter::Console>, or L<TAP::Formatter::File> if the output isn't a TTY. =item * C<multiplexer_class> The name of the class to use to multiplex tests during parallel testing. The default is L<TAP::Parser::Multiplexer>. =item * C<parser_class> The name of the class to use to parse TAP. The default is L<TAP::Parser>. =item * C<scheduler_class> The name of the class to use to schedule test execution. The default is L<TAP::Parser::Scheduler>. =item * C<formatter> If set C<formatter> must be an object that is capable of formatting the TAP output. See L<TAP::Formatter::Console> for an example. =item * C<errors> If parse errors are found in the TAP output, a note of this will be made in the summary report. To see all of the parse errors, set this argument to true: errors => 1 =item * C<directives> If set to a true value, only test results with directives will be displayed. This overrides other settings such as C<verbose> or C<failures>. =item * C<ignore_exit> If set to a true value instruct C<TAP::Parser> to ignore exit and wait status from test scripts. =item * C<jobs> The maximum number of parallel tests to run at any time. Which tests can be run in parallel is controlled by C<rules>. The default is to run only one test at a time. =item * C<rules> A reference to a hash of rules that control which tests may be executed in parallel. If no rules are declared and L<CPAN::Meta::YAML> is available, C<TAP::Harness> attempts to load rules from a YAML file specified by the C<rulesfile> parameter. If no rules file exists, the default is for all tests to be eligible to be run in parallel. Here some simple examples. For the full details of the data structure and the related glob-style pattern matching, see L<TAP::Parser::Scheduler/"Rules data structure">. # Run all tests in sequence, except those starting with "p" $harness->rules({ par => 't/p*.t' }); # Equivalent YAML file --- par: t/p*.t # Run all tests in parallel, except those starting with "p" $harness->rules({ seq => [ { seq => 't/p*.t' }, { par => '**' }, ], }); # Equivalent YAML file --- seq: - seq: t/p*.t - par: ** # Run some startup tests in sequence, then some parallel tests than some # teardown tests in sequence. $harness->rules({ seq => [ { seq => 't/startup/*.t' }, { par => ['t/a/*.t','t/b/*.t','t/c/*.t'], } { seq => 't/shutdown/*.t' }, ], }); # Equivalent YAML file --- seq: - seq: t/startup/*.t - par: - t/a/*.t - t/b/*.t - t/c/*.t - seq: t/shutdown/*.t This is an experimental feature and the interface may change. =item * C<rulesfiles> This specifies where to find a YAML file of test scheduling rules. If not provided, it looks for a default file to use. It first checks for a file given in the C<HARNESS_RULESFILE> environment variable, then it checks for F<testrules.yml> and then F<t/testrules.yml>. =item * C<stdout> A filehandle for catching standard output. =item * C<trap> Attempt to print summary information if run is interrupted by SIGINT (Ctrl-C). =back Any keys for which the value is C<undef> will be ignored. =cut # new supplied by TAP::Base { my @legal_callback = qw( parser_args made_parser before_runtests after_runtests after_test ); my %default_class = ( aggregator_class => 'TAP::Parser::Aggregator', formatter_class => 'TAP::Formatter::Console', multiplexer_class => 'TAP::Parser::Multiplexer', parser_class => 'TAP::Parser', scheduler_class => 'TAP::Parser::Scheduler', ); sub _initialize { my ( $self, $arg_for ) = @_; $arg_for ||= {}; $self->SUPER::_initialize( $arg_for, \@legal_callback ); my %arg_for = %$arg_for; # force a shallow copy for my $name ( sort keys %VALIDATION_FOR ) { my $property = delete $arg_for{$name}; if ( defined $property ) { my $validate = $VALIDATION_FOR{$name}; my $value = $self->$validate($property); if ( $self->_error ) { $self->_croak; } $self->$name($value); } } $self->jobs(1) unless defined $self->jobs; if ( ! defined $self->rules ) { $self->_maybe_load_rulesfile; } local $default_class{formatter_class} = 'TAP::Formatter::File' unless -t ( $arg_for{stdout} || \*STDOUT ) && !$ENV{HARNESS_NOTTY}; while ( my ( $attr, $class ) = each %default_class ) { $self->$attr( $self->$attr() || $class ); } unless ( $self->formatter ) { # This is a little bodge to preserve legacy behaviour. It's # pretty horrible that we know which args are destined for # the formatter. my %formatter_args = ( jobs => $self->jobs ); for my $name (@FORMATTER_ARGS) { if ( defined( my $property = delete $arg_for{$name} ) ) { $formatter_args{$name} = $property; } } $self->formatter( $self->_construct( $self->formatter_class, \%formatter_args ) ); } if ( my @props = sort keys %arg_for ) { $self->_croak("Unknown arguments to TAP::Harness::new (@props)"); } return $self; } sub _maybe_load_rulesfile { my ($self) = @_; my ($rulesfile) = defined $self->rulesfile ? $self->rulesfile : defined($ENV{HARNESS_RULESFILE}) ? $ENV{HARNESS_RULESFILE} : grep { -r } qw(./testrules.yml t/testrules.yml); if ( defined $rulesfile && -r $rulesfile ) { if ( ! eval { require CPAN::Meta::YAML; 1} ) { warn "CPAN::Meta::YAML required to process $rulesfile" ; return; } my $layer = $] lt "5.008" ? "" : ":encoding(UTF-8)"; open my $fh, "<$layer", $rulesfile or die "Couldn't open $rulesfile: $!"; my $yaml_text = do { local $/; <$fh> }; my $yaml = CPAN::Meta::YAML->read_string($yaml_text) or die CPAN::Meta::YAML->errstr; $self->rules( $yaml->[0] ); } return; } } ############################################################################## =head2 Instance Methods =head3 C<runtests> $harness->runtests(@tests); Accepts an array of C<@tests> to be run. This should generally be the names of test files, but this is not required. Each element in C<@tests> will be passed to C<TAP::Parser::new()> as a C<source>. See L<TAP::Parser> for more information. It is possible to provide aliases that will be displayed in place of the test name by supplying the test as a reference to an array containing C<< [ $test, $alias ] >>: $harness->runtests( [ 't/foo.t', 'Foo Once' ], [ 't/foo.t', 'Foo Twice' ] ); Normally it is an error to attempt to run the same test twice. Aliases allow you to overcome this limitation by giving each run of the test a unique name. Tests will be run in the order found. If the environment variable C<PERL_TEST_HARNESS_DUMP_TAP> is defined it should name a directory into which a copy of the raw TAP for each test will be written. TAP is written to files named for each test. Subdirectories will be created as needed. Returns a L<TAP::Parser::Aggregator> containing the test results. =cut sub runtests { my ( $self, @tests ) = @_; my $aggregate = $self->_construct( $self->aggregator_class ); $self->_make_callback( 'before_runtests', $aggregate ); $aggregate->start; my $finish = sub { my $interrupted = shift; $aggregate->stop; $self->summary( $aggregate, $interrupted ); $self->_make_callback( 'after_runtests', $aggregate ); }; my $run = sub { $self->aggregate_tests( $aggregate, @tests ); $finish->(); }; if ( $self->trap ) { local $SIG{INT} = sub { print "\n"; $finish->(1); exit; }; $run->(); } else { $run->(); } return $aggregate; } =head3 C<summary> $harness->summary( $aggregator ); Output the summary for a L<TAP::Parser::Aggregator>. =cut sub summary { my ( $self, @args ) = @_; $self->formatter->summary(@args); } sub _after_test { my ( $self, $aggregate, $job, $parser ) = @_; $self->_make_callback( 'after_test', $job->as_array_ref, $parser ); $aggregate->add( $job->description, $parser ); } sub _bailout { my ( $self, $result ) = @_; my $explanation = $result->explanation; die "FAILED--Further testing stopped" . ( $explanation ? ": $explanation\n" : ".\n" ); } sub _aggregate_parallel { my ( $self, $aggregate, $scheduler ) = @_; my $jobs = $self->jobs; my $mux = $self->_construct( $self->multiplexer_class ); RESULT: { # Keep multiplexer topped up FILL: while ( $mux->parsers < $jobs ) { my $job = $scheduler->get_job; # If we hit a spinner stop filling and start running. last FILL if !defined $job || $job->is_spinner; my ( $parser, $session ) = $self->make_parser($job); $mux->add( $parser, [ $session, $job ] ); # The job has started: begin the timers $parser->start_time( $parser->get_time ); $parser->start_times( $parser->get_times ); } if ( my ( $parser, $stash, $result ) = $mux->next ) { my ( $session, $job ) = @$stash; if ( defined $result ) { $session->result($result); $self->_bailout($result) if $result->is_bailout; } else { # End of parser. Automatically removed from the mux. $self->finish_parser( $parser, $session ); $self->_after_test( $aggregate, $job, $parser ); $job->finish; } redo RESULT; } } return; } sub _aggregate_single { my ( $self, $aggregate, $scheduler ) = @_; JOB: while ( my $job = $scheduler->get_job ) { next JOB if $job->is_spinner; my ( $parser, $session ) = $self->make_parser($job); while ( defined( my $result = $parser->next ) ) { $session->result($result); if ( $result->is_bailout ) { # Keep reading until input is exhausted in the hope # of allowing any pending diagnostics to show up. 1 while $parser->next; $self->_bailout($result); } } $self->finish_parser( $parser, $session ); $self->_after_test( $aggregate, $job, $parser ); $job->finish; } return; } =head3 C<aggregate_tests> $harness->aggregate_tests( $aggregate, @tests ); Run the named tests and display a summary of result. Tests will be run in the order found. Test results will be added to the supplied L<TAP::Parser::Aggregator>. C<aggregate_tests> may be called multiple times to run several sets of tests. Multiple C<Test::Harness> instances may be used to pass results to a single aggregator so that different parts of a complex test suite may be run using different C<TAP::Harness> settings. This is useful, for example, in the case where some tests should run in parallel but others are unsuitable for parallel execution. my $formatter = TAP::Formatter::Console->new; my $ser_harness = TAP::Harness->new( { formatter => $formatter } ); my $par_harness = TAP::Harness->new( { formatter => $formatter, jobs => 9 } ); my $aggregator = TAP::Parser::Aggregator->new; $aggregator->start(); $ser_harness->aggregate_tests( $aggregator, @ser_tests ); $par_harness->aggregate_tests( $aggregator, @par_tests ); $aggregator->stop(); $formatter->summary($aggregator); Note that for simpler testing requirements it will often be possible to replace the above code with a single call to C<runtests>. Each element of the C<@tests> array is either: =over =item * the source name of a test to run =item * a reference to a [ source name, display name ] array =back In the case of a perl test suite, typically I<source names> are simply the file names of the test scripts to run. When you supply a separate display name it becomes possible to run a test more than once; the display name is effectively the alias by which the test is known inside the harness. The harness doesn't care if it runs the same test more than once when each invocation uses a different name. =cut sub aggregate_tests { my ( $self, $aggregate, @tests ) = @_; my $jobs = $self->jobs; my $scheduler = $self->make_scheduler(@tests); # #12458 local $ENV{HARNESS_IS_VERBOSE} = 1 if $self->formatter->verbosity > 0; # Formatter gets only names. $self->formatter->prepare( map { $_->description } $scheduler->get_all ); if ( $self->jobs > 1 ) { $self->_aggregate_parallel( $aggregate, $scheduler ); } else { $self->_aggregate_single( $aggregate, $scheduler ); } return; } sub _add_descriptions { my $self = shift; # Turn unwrapped scalars into anonymous arrays and copy the name as # the description for tests that have only a name. return map { @$_ == 1 ? [ $_->[0], $_->[0] ] : $_ } map { 'ARRAY' eq ref $_ ? $_ : [$_] } @_; } =head3 C<make_scheduler> Called by the harness when it needs to create a L<TAP::Parser::Scheduler>. Override in a subclass to provide an alternative scheduler. C<make_scheduler> is passed the list of tests that was passed to C<aggregate_tests>. =cut sub make_scheduler { my ( $self, @tests ) = @_; return $self->_construct( $self->scheduler_class, tests => [ $self->_add_descriptions(@tests) ], rules => $self->rules ); } =head3 C<jobs> Gets or sets the number of concurrent test runs the harness is handling. By default, this value is 1 -- for parallel testing, this should be set higher. =cut ############################################################################## sub _get_parser_args { my ( $self, $job ) = @_; my $test_prog = $job->filename; my %args = (); $args{sources} = $self->sources if $self->sources; my @switches; @switches = $self->lib if $self->lib; push @switches => $self->switches if $self->switches; $args{switches} = \@switches; $args{spool} = $self->_open_spool($test_prog); $args{merge} = $self->merge; $args{ignore_exit} = $self->ignore_exit; $args{version} = $self->version if $self->version; if ( my $exec = $self->exec ) { $args{exec} = ref $exec eq 'CODE' ? $exec->( $self, $test_prog ) : [ @$exec, $test_prog ]; if ( not defined $args{exec} ) { $args{source} = $test_prog; } elsif ( ( ref( $args{exec} ) || "" ) ne "ARRAY" ) { $args{source} = delete $args{exec}; } } else { $args{source} = $test_prog; } if ( defined( my $test_args = $self->test_args ) ) { if ( ref($test_args) eq 'HASH' ) { # different args for each test if ( exists( $test_args->{ $job->description } ) ) { $test_args = $test_args->{ $job->description }; } else { $self->_croak( "TAP::Harness Can't find test_args for " . $job->description ); } } $args{test_args} = $test_args; } return \%args; } =head3 C<make_parser> Make a new parser and display formatter session. Typically used and/or overridden in subclasses. my ( $parser, $session ) = $harness->make_parser; =cut sub make_parser { my ( $self, $job ) = @_; my $args = $self->_get_parser_args($job); $self->_make_callback( 'parser_args', $args, $job->as_array_ref ); my $parser = $self->_construct( $self->parser_class, $args ); $self->_make_callback( 'made_parser', $parser, $job->as_array_ref ); my $session = $self->formatter->open_test( $job->description, $parser ); return ( $parser, $session ); } =head3 C<finish_parser> Terminate use of a parser. Typically used and/or overridden in subclasses. The parser isn't destroyed as a result of this. =cut sub finish_parser { my ( $self, $parser, $session ) = @_; $session->close_test; $self->_close_spool($parser); return $parser; } sub _open_spool { my $self = shift; my $test = shift; if ( my $spool_dir = $ENV{PERL_TEST_HARNESS_DUMP_TAP} ) { my $spool = File::Spec->catfile( $spool_dir, $test ); # Make the directory my ( $vol, $dir, undef ) = File::Spec->splitpath($spool); my $path = File::Spec->catpath( $vol, $dir, '' ); eval { mkpath($path) }; $self->_croak($@) if $@; my $spool_handle = IO::Handle->new; open( $spool_handle, ">$spool" ) or $self->_croak(" Can't write $spool ( $! ) "); return $spool_handle; } return; } sub _close_spool { my $self = shift; my ($parser) = @_; if ( my $spool_handle = $parser->delete_spool ) { close($spool_handle) or $self->_croak(" Error closing TAP spool file( $! ) \n "); } return; } sub _croak { my ( $self, $message ) = @_; unless ($message) { $message = $self->_error; } $self->SUPER::_croak($message); return; } 1; __END__ ############################################################################## =head1 CONFIGURING C<TAP::Harness> is designed to be easy to configure. =head2 Plugins C<TAP::Parser> plugins let you change the way TAP is I<input> to and I<output> from the parser. L<TAP::Parser::SourceHandler>s handle TAP I<input>. You can configure them and load custom handlers using the C<sources> parameter to L</new>. L<TAP::Formatter>s handle TAP I<output>. You can load custom formatters by using the C<formatter_class> parameter to L</new>. To configure a formatter, you currently need to instantiate it outside of L<TAP::Harness> and pass it in with the C<formatter> parameter to L</new>. This I<may> be addressed by adding a I<formatters> parameter to L</new> in the future. =head2 C<Module::Build> L<Module::Build> version C<0.30> supports C<TAP::Harness>. To load C<TAP::Harness> plugins, you'll need to use the C<tap_harness_args> parameter to C<new>, typically from your C<Build.PL>. For example: Module::Build->new( module_name => 'MyApp', test_file_exts => [qw(.t .tap .txt)], use_tap_harness => 1, tap_harness_args => { sources => { MyCustom => {}, File => { extensions => ['.tap', '.txt'], }, }, formatter_class => 'TAP::Formatter::HTML', }, build_requires => { 'Module::Build' => '0.30', 'TAP::Harness' => '3.18', }, )->create_build_script; See L</new> =head2 C<ExtUtils::MakeMaker> L<ExtUtils::MakeMaker> does not support L<TAP::Harness> out-of-the-box. =head2 C<prove> L<prove> supports C<TAP::Harness> plugins, and has a plugin system of its own. See L<prove/FORMATTERS>, L<prove/SOURCE HANDLERS> and L<App::Prove> for more details. =head1 WRITING PLUGINS If you can't configure C<TAP::Harness> to do what you want, and you can't find an existing plugin, consider writing one. The two primary use cases supported by L<TAP::Harness> for plugins are I<input> and I<output>: =over 2 =item Customize how TAP gets into the parser To do this, you can either extend an existing L<TAP::Parser::SourceHandler>, or write your own. It's a pretty simple API, and they can be loaded and configured using the C<sources> parameter to L</new>. =item Customize how TAP results are output from the parser To do this, you can either extend an existing L<TAP::Formatter>, or write your own. Writing formatters are a bit more involved than writing a I<SourceHandler>, as you'll need to understand the L<TAP::Parser> API. A good place to start is by understanding how L</aggregate_tests> works. Custom formatters can be loaded configured using the C<formatter_class> parameter to L</new>. =back =head1 SUBCLASSING If you can't configure C<TAP::Harness> to do exactly what you want, and writing a plugin isn't an option, consider extending it. It is designed to be (mostly) easy to subclass, though the cases when sub-classing is necessary should be few and far between. =head2 Methods The following methods are ones you may wish to override if you want to subclass C<TAP::Harness>. =over 4 =item L</new> =item L</runtests> =item L</summary> =back =cut =head1 REPLACING If you like the C<prove> utility and L<TAP::Parser> but you want your own harness, all you need to do is write one and provide C<new> and C<runtests> methods. Then you can use the C<prove> utility like so: prove --harness My::Test::Harness Note that while C<prove> accepts a list of tests (or things to be tested), C<new> has a fairly rich set of arguments. You'll probably want to read over this code carefully to see how all of them are being used. =head1 SEE ALSO L<Test::Harness> =cut # vim:ts=4:sw=4:et:sta PK ! �S��� � 5.34.0/TAP/Object.pmnu �[��� package TAP::Object; use strict; use warnings; =head1 NAME TAP::Object - Base class that provides common functionality to all C<TAP::*> modules =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 SYNOPSIS package TAP::Whatever; use strict; use base 'TAP::Object'; # new() implementation by TAP::Object sub _initialize { my ( $self, @args) = @_; # initialize your object return $self; } # ... later ... my $obj = TAP::Whatever->new(@args); =head1 DESCRIPTION C<TAP::Object> provides a default constructor and exception model for all C<TAP::*> classes. Exceptions are raised using L<Carp>. =head1 METHODS =head2 Class Methods =head3 C<new> Create a new object. Any arguments passed to C<new> will be passed on to the L</_initialize> method. Returns a new object. =cut sub new { my $class = shift; my $self = bless {}, $class; return $self->_initialize(@_); } =head2 Instance Methods =head3 C<_initialize> Initializes a new object. This method is a stub by default, you should override it as appropriate. I<Note:> L</new> expects you to return C<$self> or raise an exception. See L</_croak>, and L<Carp>. =cut sub _initialize { return $_[0]; } =head3 C<_croak> Raise an exception using C<croak> from L<Carp>, eg: $self->_croak( 'why me?', 'aaarrgh!' ); May also be called as a I<class> method. $class->_croak( 'this works too' ); =cut sub _croak { my $proto = shift; require Carp; Carp::croak(@_); return; } =head3 C<_confess> Raise an exception using C<confess> from L<Carp>, eg: $self->_confess( 'why me?', 'aaarrgh!' ); May also be called as a I<class> method. $class->_confess( 'this works too' ); =cut sub _confess { my $proto = shift; require Carp; Carp::confess(@_); return; } =head3 C<_construct> Create a new instance of the specified class. =cut sub _construct { my ( $self, $class, @args ) = @_; $self->_croak("Bad module name $class") unless $class =~ /^ \w+ (?: :: \w+ ) *$/x; unless ( $class->can('new') ) { local $@; eval "require $class"; $self->_croak("Can't load $class: $@") if $@; } return $class->new(@args); } =head3 C<mk_methods> Create simple getter/setters. __PACKAGE__->mk_methods(@method_names); =cut sub mk_methods { my ( $class, @methods ) = @_; for my $method_name (@methods) { my $method = "${class}::$method_name"; no strict 'refs'; *$method = sub { my $self = shift; $self->{$method_name} = shift if @_; return $self->{$method_name}; }; } } 1; PK ! ;�~� � 5.34.0/TAP/Base.pmnu �[��� package TAP::Base; use strict; use warnings; use base 'TAP::Object'; =head1 NAME TAP::Base - Base class that provides common functionality to L<TAP::Parser> and L<TAP::Harness> =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; use constant GOT_TIME_HIRES => do { eval 'use Time::HiRes qw(time);'; $@ ? 0 : 1; }; =head1 SYNOPSIS package TAP::Whatever; use base 'TAP::Base'; # ... later ... my $thing = TAP::Whatever->new(); $thing->callback( event => sub { # do something interesting } ); =head1 DESCRIPTION C<TAP::Base> provides callback management. =head1 METHODS =head2 Class Methods =cut sub _initialize { my ( $self, $arg_for, $ok_callback ) = @_; my %ok_map = map { $_ => 1 } @$ok_callback; $self->{ok_callbacks} = \%ok_map; if ( my $cb = delete $arg_for->{callbacks} ) { while ( my ( $event, $callback ) = each %$cb ) { $self->callback( $event, $callback ); } } return $self; } =head3 C<callback> Install a callback for a named event. =cut sub callback { my ( $self, $event, $callback ) = @_; my %ok_map = %{ $self->{ok_callbacks} }; $self->_croak('No callbacks may be installed') unless %ok_map; $self->_croak( "Callback $event is not supported. Valid callbacks are " . join( ', ', sort keys %ok_map ) ) unless exists $ok_map{$event}; push @{ $self->{code_for}{$event} }, $callback; return; } sub _has_callbacks { my $self = shift; return keys %{ $self->{code_for} } != 0; } sub _callback_for { my ( $self, $event ) = @_; return $self->{code_for}{$event}; } sub _make_callback { my $self = shift; my $event = shift; my $cb = $self->_callback_for($event); return unless defined $cb; return map { $_->(@_) } @$cb; } =head3 C<get_time> Return the current time using Time::HiRes if available. =cut sub get_time { return time() } =head3 C<time_is_hires> Return true if the time returned by get_time is high resolution (i.e. if Time::HiRes is available). =cut sub time_is_hires { return GOT_TIME_HIRES } =head3 C<get_times> Return array reference of the four-element list of CPU seconds, as with L<perlfunc/times>. =cut sub get_times { return [ times() ] } 1; PK ! q�Q!�� �� 5.34.0/TAP/Parser.pmnu �[��� package TAP::Parser; use strict; use warnings; use TAP::Parser::Grammar (); use TAP::Parser::Result (); use TAP::Parser::ResultFactory (); use TAP::Parser::Source (); use TAP::Parser::Iterator (); use TAP::Parser::IteratorFactory (); use TAP::Parser::SourceHandler::Executable (); use TAP::Parser::SourceHandler::Perl (); use TAP::Parser::SourceHandler::File (); use TAP::Parser::SourceHandler::RawTAP (); use TAP::Parser::SourceHandler::Handle (); use Carp qw( confess ); use base 'TAP::Base'; =encoding utf8 =head1 NAME TAP::Parser - Parse L<TAP|Test::Harness::TAP> output =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; my $DEFAULT_TAP_VERSION = 12; my $MAX_TAP_VERSION = 13; $ENV{TAP_VERSION} = $MAX_TAP_VERSION; END { # For VMS. delete $ENV{TAP_VERSION}; } BEGIN { # making accessors __PACKAGE__->mk_methods( qw( _iterator _spool exec exit is_good_plan plan tests_planned tests_run wait version in_todo start_time end_time start_times end_times skip_all grammar_class result_factory_class iterator_factory_class ) ); sub _stream { # deprecated my $self = shift; $self->_iterator(@_); } } # done making accessors =head1 SYNOPSIS use TAP::Parser; my $parser = TAP::Parser->new( { source => $source } ); while ( my $result = $parser->next ) { print $result->as_string; } =head1 DESCRIPTION C<TAP::Parser> is designed to produce a proper parse of TAP output. For an example of how to run tests through this module, see the simple harnesses C<examples/>. There's a wiki dedicated to the Test Anything Protocol: L<http://testanything.org> It includes the TAP::Parser Cookbook: L<http://testanything.org/testing-with-tap/perl/tap::parser-cookbook.html> =head1 METHODS =head2 Class Methods =head3 C<new> my $parser = TAP::Parser->new(\%args); Returns a new C<TAP::Parser> object. The arguments should be a hashref with I<one> of the following keys: =over 4 =item * C<source> I<CHANGED in 3.18> This is the preferred method of passing input to the constructor. The C<source> is used to create a L<TAP::Parser::Source> that is passed to the L</iterator_factory_class> which in turn figures out how to handle the source and creates a <TAP::Parser::Iterator> for it. The iterator is used by the parser to read in the TAP stream. To configure the I<IteratorFactory> use the C<sources> parameter below. Note that C<source>, C<tap> and C<exec> are I<mutually exclusive>. =item * C<tap> I<CHANGED in 3.18> The value should be the complete TAP output. The I<tap> is used to create a L<TAP::Parser::Source> that is passed to the L</iterator_factory_class> which in turn figures out how to handle the source and creates a <TAP::Parser::Iterator> for it. The iterator is used by the parser to read in the TAP stream. To configure the I<IteratorFactory> use the C<sources> parameter below. Note that C<source>, C<tap> and C<exec> are I<mutually exclusive>. =item * C<exec> Must be passed an array reference. The I<exec> array ref is used to create a L<TAP::Parser::Source> that is passed to the L</iterator_factory_class> which in turn figures out how to handle the source and creates a <TAP::Parser::Iterator> for it. The iterator is used by the parser to read in the TAP stream. By default the L<TAP::Parser::SourceHandler::Executable> class will create a L<TAP::Parser::Iterator::Process> object to handle the source. This passes the array reference strings as command arguments to L<IPC::Open3::open3|IPC::Open3>: exec => [ '/usr/bin/ruby', 't/my_test.rb' ] If any C<test_args> are given they will be appended to the end of the command argument list. To configure the I<IteratorFactory> use the C<sources> parameter below. Note that C<source>, C<tap> and C<exec> are I<mutually exclusive>. =back The following keys are optional. =over 4 =item * C<sources> I<NEW to 3.18>. If set, C<sources> must be a hashref containing the names of the L<TAP::Parser::SourceHandler>s to load and/or configure. The values are a hash of configuration that will be accessible to the source handlers via L<TAP::Parser::Source/config_for>. For example: sources => { Perl => { exec => '/path/to/custom/perl' }, File => { extensions => [ '.tap', '.txt' ] }, MyCustom => { some => 'config' }, } This will cause C<TAP::Parser> to pass custom configuration to two of the built- in source handlers - L<TAP::Parser::SourceHandler::Perl>, L<TAP::Parser::SourceHandler::File> - and attempt to load the C<MyCustom> class. See L<TAP::Parser::IteratorFactory/load_handlers> for more detail. The C<sources> parameter affects how C<source>, C<tap> and C<exec> parameters are handled. See L<TAP::Parser::IteratorFactory>, L<TAP::Parser::SourceHandler> and subclasses for more details. =item * C<callback> If present, each callback corresponding to a given result type will be called with the result as the argument if the C<run> method is used: my %callbacks = ( test => \&test_callback, plan => \&plan_callback, comment => \&comment_callback, bailout => \&bailout_callback, unknown => \&unknown_callback, ); my $aggregator = TAP::Parser::Aggregator->new; for my $file ( @test_files ) { my $parser = TAP::Parser->new( { source => $file, callbacks => \%callbacks, } ); $parser->run; $aggregator->add( $file, $parser ); } =item * C<switches> If using a Perl file as a source, optional switches may be passed which will be used when invoking the perl executable. my $parser = TAP::Parser->new( { source => $test_file, switches => [ '-Ilib' ], } ); =item * C<test_args> Used in conjunction with the C<source> and C<exec> option to supply a reference to an C<@ARGV> style array of arguments to pass to the test program. =item * C<spool> If passed a filehandle will write a copy of all parsed TAP to that handle. =item * C<merge> If false, STDERR is not captured (though it is 'relayed' to keep it somewhat synchronized with STDOUT.) If true, STDERR and STDOUT are the same filehandle. This may cause breakage if STDERR contains anything resembling TAP format, but does allow exact synchronization. Subtleties of this behavior may be platform-dependent and may change in the future. =item * C<grammar_class> This option was introduced to let you easily customize which I<grammar> class the parser should use. It defaults to L<TAP::Parser::Grammar>. See also L</make_grammar>. =item * C<result_factory_class> This option was introduced to let you easily customize which I<result> factory class the parser should use. It defaults to L<TAP::Parser::ResultFactory>. See also L</make_result>. =item * C<iterator_factory_class> I<CHANGED in 3.18> This option was introduced to let you easily customize which I<iterator> factory class the parser should use. It defaults to L<TAP::Parser::IteratorFactory>. =back =cut # new() implementation supplied by TAP::Base # This should make overriding behaviour of the Parser in subclasses easier: sub _default_grammar_class {'TAP::Parser::Grammar'} sub _default_result_factory_class {'TAP::Parser::ResultFactory'} sub _default_iterator_factory_class {'TAP::Parser::IteratorFactory'} ############################################################################## =head2 Instance Methods =head3 C<next> my $parser = TAP::Parser->new( { source => $file } ); while ( my $result = $parser->next ) { print $result->as_string, "\n"; } This method returns the results of the parsing, one result at a time. Note that it is destructive. You can't rewind and examine previous results. If callbacks are used, they will be issued before this call returns. Each result returned is a subclass of L<TAP::Parser::Result>. See that module and related classes for more information on how to use them. =cut sub next { my $self = shift; return ( $self->{_iter} ||= $self->_iter )->(); } ############################################################################## =head3 C<run> $parser->run; This method merely runs the parser and parses all of the TAP. =cut sub run { my $self = shift; while ( defined( my $result = $self->next ) ) { # do nothing } } ############################################################################## =head3 C<make_grammar> Make a new L<TAP::Parser::Grammar> object and return it. Passes through any arguments given. The C<grammar_class> can be customized, as described in L</new>. =head3 C<make_result> Make a new L<TAP::Parser::Result> object using the parser's L<TAP::Parser::ResultFactory>, and return it. Passes through any arguments given. The C<result_factory_class> can be customized, as described in L</new>. =head3 C<make_iterator_factory> I<NEW to 3.18>. Make a new L<TAP::Parser::IteratorFactory> object and return it. Passes through any arguments given. C<iterator_factory_class> can be customized, as described in L</new>. =cut # This should make overriding behaviour of the Parser in subclasses easier: sub make_iterator_factory { shift->iterator_factory_class->new(@_); } sub make_grammar { shift->grammar_class->new(@_); } sub make_result { shift->result_factory_class->make_result(@_); } { # of the following, anything beginning with an underscore is strictly # internal and should not be exposed. my %initialize = ( version => $DEFAULT_TAP_VERSION, plan => '', # the test plan (e.g., 1..3) tests_run => 0, # actual current test numbers skipped => [], # todo => [], # passed => [], # failed => [], # actual_failed => [], # how many tests really failed actual_passed => [], # how many tests really passed todo_passed => [], # tests which unexpectedly succeed parse_errors => [], # perfect TAP should have none ); # We seem to have this list hanging around all over the place. We could # probably get it from somewhere else to avoid the repetition. my @legal_callback = qw( test version plan comment bailout unknown yaml ALL ELSE EOF ); my @class_overrides = qw( grammar_class result_factory_class iterator_factory_class ); sub _initialize { my ( $self, $arg_for ) = @_; # everything here is basically designed to convert any TAP source to a # TAP::Parser::Iterator. # Shallow copy my %args = %{ $arg_for || {} }; $self->SUPER::_initialize( \%args, \@legal_callback ); # get any class overrides out first: for my $key (@class_overrides) { my $default_method = "_default_$key"; my $val = delete $args{$key} || $self->$default_method(); $self->$key($val); } my $iterator = delete $args{iterator}; $iterator ||= delete $args{stream}; # deprecated my $tap = delete $args{tap}; my $version = delete $args{version}; my $raw_source = delete $args{source}; my $sources = delete $args{sources}; my $exec = delete $args{exec}; my $merge = delete $args{merge}; my $spool = delete $args{spool}; my $switches = delete $args{switches}; my $ignore_exit = delete $args{ignore_exit}; my $test_args = delete $args{test_args} || []; if ( 1 < grep {defined} $iterator, $tap, $raw_source, $exec ) { $self->_croak( "You may only choose one of 'exec', 'tap', 'source' or 'iterator'" ); } if ( my @excess = sort keys %args ) { $self->_croak("Unknown options: @excess"); } # convert $tap & $exec to $raw_source equiv. my $type = ''; my $source = TAP::Parser::Source->new; if ($tap) { $type = 'raw TAP'; $source->raw( \$tap ); } elsif ($exec) { $type = 'exec ' . $exec->[0]; $source->raw( { exec => $exec } ); } elsif ($raw_source) { $type = 'source ' . ref($raw_source) || $raw_source; $source->raw( ref($raw_source) ? $raw_source : \$raw_source ); } elsif ($iterator) { $type = 'iterator ' . ref($iterator); } if ( $source->raw ) { my $src_factory = $self->make_iterator_factory($sources); $source->merge($merge)->switches($switches) ->test_args($test_args); $iterator = $src_factory->make_iterator($source); } unless ($iterator) { $self->_croak( "PANIC: could not determine iterator for input $type"); } while ( my ( $k, $v ) = each %initialize ) { $self->{$k} = 'ARRAY' eq ref $v ? [] : $v; } $self->version($version) if $version; $self->_iterator($iterator); $self->_spool($spool); $self->ignore_exit($ignore_exit); return $self; } } =head1 INDIVIDUAL RESULTS If you've read this far in the docs, you've seen this: while ( my $result = $parser->next ) { print $result->as_string; } Each result returned is a L<TAP::Parser::Result> subclass, referred to as I<result types>. =head2 Result types Basically, you fetch individual results from the TAP. The six types, with examples of each, are as follows: =over 4 =item * Version TAP version 12 =item * Plan 1..42 =item * Pragma pragma +strict =item * Test ok 3 - We should start with some foobar! =item * Comment # Hope we don't use up the foobar. =item * Bailout Bail out! We ran out of foobar! =item * Unknown ... yo, this ain't TAP! ... =back Each result fetched is a result object of a different type. There are common methods to each result object and different types may have methods unique to their type. Sometimes a type method may be overridden in a subclass, but its use is guaranteed to be identical. =head2 Common type methods =head3 C<type> Returns the type of result, such as C<comment> or C<test>. =head3 C<as_string> Prints a string representation of the token. This might not be the exact output, however. Tests will have test numbers added if not present, TODO and SKIP directives will be capitalized and, in general, things will be cleaned up. If you need the original text for the token, see the C<raw> method. =head3 C<raw> Returns the original line of text which was parsed. =head3 C<is_plan> Indicates whether or not this is the test plan line. =head3 C<is_test> Indicates whether or not this is a test line. =head3 C<is_comment> Indicates whether or not this is a comment. Comments will generally only appear in the TAP stream if STDERR is merged to STDOUT. See the C<merge> option. =head3 C<is_bailout> Indicates whether or not this is bailout line. =head3 C<is_yaml> Indicates whether or not the current item is a YAML block. =head3 C<is_unknown> Indicates whether or not the current line could be parsed. =head3 C<is_ok> if ( $result->is_ok ) { ... } Reports whether or not a given result has passed. Anything which is B<not> a test result returns true. This is merely provided as a convenient shortcut which allows you to do this: my $parser = TAP::Parser->new( { source => $source } ); while ( my $result = $parser->next ) { # only print failing results print $result->as_string unless $result->is_ok; } =head2 C<plan> methods if ( $result->is_plan ) { ... } If the above evaluates as true, the following methods will be available on the C<$result> object. =head3 C<plan> if ( $result->is_plan ) { print $result->plan; } This is merely a synonym for C<as_string>. =head3 C<directive> my $directive = $result->directive; If a SKIP directive is included with the plan, this method will return it. 1..0 # SKIP: why bother? =head3 C<explanation> my $explanation = $result->explanation; If a SKIP directive was included with the plan, this method will return the explanation, if any. =head2 C<pragma> methods if ( $result->is_pragma ) { ... } If the above evaluates as true, the following methods will be available on the C<$result> object. =head3 C<pragmas> Returns a list of pragmas each of which is a + or - followed by the pragma name. =head2 C<comment> methods if ( $result->is_comment ) { ... } If the above evaluates as true, the following methods will be available on the C<$result> object. =head3 C<comment> if ( $result->is_comment ) { my $comment = $result->comment; print "I have something to say: $comment"; } =head2 C<bailout> methods if ( $result->is_bailout ) { ... } If the above evaluates as true, the following methods will be available on the C<$result> object. =head3 C<explanation> if ( $result->is_bailout ) { my $explanation = $result->explanation; print "We bailed out because ($explanation)"; } If, and only if, a token is a bailout token, you can get an "explanation" via this method. The explanation is the text after the mystical "Bail out!" words which appear in the tap output. =head2 C<unknown> methods if ( $result->is_unknown ) { ... } There are no unique methods for unknown results. =head2 C<test> methods if ( $result->is_test ) { ... } If the above evaluates as true, the following methods will be available on the C<$result> object. =head3 C<ok> my $ok = $result->ok; Returns the literal text of the C<ok> or C<not ok> status. =head3 C<number> my $test_number = $result->number; Returns the number of the test, even if the original TAP output did not supply that number. =head3 C<description> my $description = $result->description; Returns the description of the test, if any. This is the portion after the test number but before the directive. =head3 C<directive> my $directive = $result->directive; Returns either C<TODO> or C<SKIP> if either directive was present for a test line. =head3 C<explanation> my $explanation = $result->explanation; If a test had either a C<TODO> or C<SKIP> directive, this method will return the accompanying explanation, if present. not ok 17 - 'Pigs can fly' # TODO not enough acid For the above line, the explanation is I<not enough acid>. =head3 C<is_ok> if ( $result->is_ok ) { ... } Returns a boolean value indicating whether or not the test passed. Remember that for TODO tests, the test always passes. B<Note:> this was formerly C<passed>. The latter method is deprecated and will issue a warning. =head3 C<is_actual_ok> if ( $result->is_actual_ok ) { ... } Returns a boolean value indicating whether or not the test passed, regardless of its TODO status. B<Note:> this was formerly C<actual_passed>. The latter method is deprecated and will issue a warning. =head3 C<is_unplanned> if ( $test->is_unplanned ) { ... } If a test number is greater than the number of planned tests, this method will return true. Unplanned tests will I<always> return false for C<is_ok>, regardless of whether or not the test C<has_todo> (see L<TAP::Parser::Result::Test> for more information about this). =head3 C<has_skip> if ( $result->has_skip ) { ... } Returns a boolean value indicating whether or not this test had a SKIP directive. =head3 C<has_todo> if ( $result->has_todo ) { ... } Returns a boolean value indicating whether or not this test had a TODO directive. Note that TODO tests I<always> pass. If you need to know whether or not they really passed, check the C<is_actual_ok> method. =head3 C<in_todo> if ( $parser->in_todo ) { ... } True while the most recent result was a TODO. Becomes true before the TODO result is returned and stays true until just before the next non- TODO test is returned. =head1 TOTAL RESULTS After parsing the TAP, there are many methods available to let you dig through the results and determine what is meaningful to you. =head2 Individual Results These results refer to individual tests which are run. =head3 C<passed> my @passed = $parser->passed; # the test numbers which passed my $passed = $parser->passed; # the number of tests which passed This method lets you know which (or how many) tests passed. If a test failed but had a TODO directive, it will be counted as a passed test. =cut sub passed { return @{ $_[0]->{passed} } if ref $_[0]->{passed}; return wantarray ? 1 .. $_[0]->{passed} : $_[0]->{passed}; } =head3 C<failed> my @failed = $parser->failed; # the test numbers which failed my $failed = $parser->failed; # the number of tests which failed This method lets you know which (or how many) tests failed. If a test passed but had a TODO directive, it will B<NOT> be counted as a failed test. =cut sub failed { @{ shift->{failed} } } =head3 C<actual_passed> # the test numbers which actually passed my @actual_passed = $parser->actual_passed; # the number of tests which actually passed my $actual_passed = $parser->actual_passed; This method lets you know which (or how many) tests actually passed, regardless of whether or not a TODO directive was found. =cut sub actual_passed { return @{ $_[0]->{actual_passed} } if ref $_[0]->{actual_passed}; return wantarray ? 1 .. $_[0]->{actual_passed} : $_[0]->{actual_passed}; } *actual_ok = \&actual_passed; =head3 C<actual_ok> This method is a synonym for C<actual_passed>. =head3 C<actual_failed> # the test numbers which actually failed my @actual_failed = $parser->actual_failed; # the number of tests which actually failed my $actual_failed = $parser->actual_failed; This method lets you know which (or how many) tests actually failed, regardless of whether or not a TODO directive was found. =cut sub actual_failed { @{ shift->{actual_failed} } } ############################################################################## =head3 C<todo> my @todo = $parser->todo; # the test numbers with todo directives my $todo = $parser->todo; # the number of tests with todo directives This method lets you know which (or how many) tests had TODO directives. =cut sub todo { @{ shift->{todo} } } =head3 C<todo_passed> # the test numbers which unexpectedly succeeded my @todo_passed = $parser->todo_passed; # the number of tests which unexpectedly succeeded my $todo_passed = $parser->todo_passed; This method lets you know which (or how many) tests actually passed but were declared as "TODO" tests. =cut sub todo_passed { @{ shift->{todo_passed} } } ############################################################################## =head3 C<todo_failed> # deprecated in favor of 'todo_passed'. This method was horribly misnamed. This was a badly misnamed method. It indicates which TODO tests unexpectedly succeeded. Will now issue a warning and call C<todo_passed>. =cut sub todo_failed { warn '"todo_failed" is deprecated. Please use "todo_passed". See the docs.'; goto &todo_passed; } =head3 C<skipped> my @skipped = $parser->skipped; # the test numbers with SKIP directives my $skipped = $parser->skipped; # the number of tests with SKIP directives This method lets you know which (or how many) tests had SKIP directives. =cut sub skipped { @{ shift->{skipped} } } =head2 Pragmas =head3 C<pragma> Get or set a pragma. To get the state of a pragma: if ( $p->pragma('strict') ) { # be strict } To set the state of a pragma: $p->pragma('strict', 1); # enable strict mode =cut sub pragma { my ( $self, $pragma ) = splice @_, 0, 2; return $self->{pragma}->{$pragma} unless @_; if ( my $state = shift ) { $self->{pragma}->{$pragma} = 1; } else { delete $self->{pragma}->{$pragma}; } return; } =head3 C<pragmas> Get a list of all the currently enabled pragmas: my @pragmas_enabled = $p->pragmas; =cut sub pragmas { sort keys %{ shift->{pragma} || {} } } =head2 Summary Results These results are "meta" information about the total results of an individual test program. =head3 C<plan> my $plan = $parser->plan; Returns the test plan, if found. =head3 C<good_plan> Deprecated. Use C<is_good_plan> instead. =cut sub good_plan { warn 'good_plan() is deprecated. Please use "is_good_plan()"'; goto &is_good_plan; } ############################################################################## =head3 C<is_good_plan> if ( $parser->is_good_plan ) { ... } Returns a boolean value indicating whether or not the number of tests planned matches the number of tests run. B<Note:> this was formerly C<good_plan>. The latter method is deprecated and will issue a warning. And since we're on that subject ... =head3 C<tests_planned> print $parser->tests_planned; Returns the number of tests planned, according to the plan. For example, a plan of '1..17' will mean that 17 tests were planned. =head3 C<tests_run> print $parser->tests_run; Returns the number of tests which actually were run. Hopefully this will match the number of C<< $parser->tests_planned >>. =head3 C<skip_all> Returns a true value (actually the reason for skipping) if all tests were skipped. =head3 C<start_time> Returns the wall-clock time when the Parser was created. =head3 C<end_time> Returns the wall-clock time when the end of TAP input was seen. =head3 C<start_times> Returns the CPU times (like L<perlfunc/times> when the Parser was created. =head3 C<end_times> Returns the CPU times (like L<perlfunc/times> when the end of TAP input was seen. =head3 C<has_problems> if ( $parser->has_problems ) { ... } This is a 'catch-all' method which returns true if any tests have currently failed, any TODO tests unexpectedly succeeded, or any parse errors occurred. =cut sub has_problems { my $self = shift; return $self->failed || $self->parse_errors || ( !$self->ignore_exit && ( $self->wait || $self->exit ) ); } =head3 C<version> $parser->version; Once the parser is done, this will return the version number for the parsed TAP. Version numbers were introduced with TAP version 13 so if no version number is found version 12 is assumed. =head3 C<exit> $parser->exit; Once the parser is done, this will return the exit status. If the parser ran an executable, it returns the exit status of the executable. =head3 C<wait> $parser->wait; Once the parser is done, this will return the wait status. If the parser ran an executable, it returns the wait status of the executable. Otherwise, this merely returns the C<exit> status. =head2 C<ignore_exit> $parser->ignore_exit(1); Tell the parser to ignore the exit status from the test when determining whether the test passed. Normally tests with non-zero exit status are considered to have failed even if all individual tests passed. In cases where it is not possible to control the exit value of the test script use this option to ignore it. =cut sub ignore_exit { shift->pragma( 'ignore_exit', @_ ) } =head3 C<parse_errors> my @errors = $parser->parse_errors; # the parser errors my $errors = $parser->parse_errors; # the number of parser_errors Fortunately, all TAP output is perfect. In the event that it is not, this method will return parser errors. Note that a junk line which the parser does not recognize is C<not> an error. This allows this parser to handle future versions of TAP. The following are all TAP errors reported by the parser: =over 4 =item * Misplaced plan The plan (for example, '1..5'), must only come at the beginning or end of the TAP output. =item * No plan Gotta have a plan! =item * More than one plan 1..3 ok 1 - input file opened not ok 2 - first line of the input valid # todo some data ok 3 read the rest of the file 1..3 Right. Very funny. Don't do that. =item * Test numbers out of sequence 1..3 ok 1 - input file opened not ok 2 - first line of the input valid # todo some data ok 2 read the rest of the file That last test line above should have the number '3' instead of '2'. Note that it's perfectly acceptable for some lines to have test numbers and others to not have them. However, when a test number is found, it must be in sequence. The following is also an error: 1..3 ok 1 - input file opened not ok - first line of the input valid # todo some data ok 2 read the rest of the file But this is not: 1..3 ok - input file opened not ok - first line of the input valid # todo some data ok 3 read the rest of the file =back =cut sub parse_errors { @{ shift->{parse_errors} } } sub _add_error { my ( $self, $error ) = @_; push @{ $self->{parse_errors} } => $error; return $self; } sub _make_state_table { my $self = shift; my %states; my %planned_todo = (); # These transitions are defaults for all states my %state_globals = ( comment => {}, bailout => {}, yaml => {}, version => { act => sub { $self->_add_error( 'If TAP version is present it must be the first line of output' ); }, }, unknown => { act => sub { my $unk = shift; if ( $self->pragma('strict') ) { $self->_add_error( 'Unknown TAP token: "' . $unk->raw . '"' ); } }, }, pragma => { act => sub { my ($pragma) = @_; for my $pr ( $pragma->pragmas ) { if ( $pr =~ /^ ([-+])(\w+) $/x ) { $self->pragma( $2, $1 eq '+' ); } } }, }, ); # Provides default elements for transitions my %state_defaults = ( plan => { act => sub { my ($plan) = @_; $self->tests_planned( $plan->tests_planned ); $self->plan( $plan->plan ); if ( $plan->has_skip ) { $self->skip_all( $plan->explanation || '(no reason given)' ); } $planned_todo{$_}++ for @{ $plan->todo_list }; }, }, test => { act => sub { my ($test) = @_; my ( $number, $tests_run ) = ( $test->number, ++$self->{tests_run} ); # Fake TODO state if ( defined $number && delete $planned_todo{$number} ) { $test->set_directive('TODO'); } my $has_todo = $test->has_todo; $self->in_todo($has_todo); if ( defined( my $tests_planned = $self->tests_planned ) ) { if ( $tests_run > $tests_planned ) { $test->is_unplanned(1); } } if ( defined $number ) { if ( $number != $tests_run ) { my $count = $tests_run; $self->_add_error( "Tests out of sequence. Found " . "($number) but expected ($count)" ); } } else { $test->_number( $number = $tests_run ); } push @{ $self->{todo} } => $number if $has_todo; push @{ $self->{todo_passed} } => $number if $test->todo_passed; push @{ $self->{skipped} } => $number if $test->has_skip; push @{ $self->{ $test->is_ok ? 'passed' : 'failed' } } => $number; push @{ $self->{ $test->is_actual_ok ? 'actual_passed' : 'actual_failed' } } => $number; }, }, yaml => { act => sub { }, }, ); # Each state contains a hash the keys of which match a token type. For # each token # type there may be: # act A coderef to run # goto The new state to move to. Stay in this state if # missing # continue Goto the new state and run the new state for the # current token %states = ( INIT => { version => { act => sub { my ($version) = @_; my $ver_num = $version->version; if ( $ver_num <= $DEFAULT_TAP_VERSION ) { my $ver_min = $DEFAULT_TAP_VERSION + 1; $self->_add_error( "Explicit TAP version must be at least " . "$ver_min. Got version $ver_num" ); $ver_num = $DEFAULT_TAP_VERSION; } if ( $ver_num > $MAX_TAP_VERSION ) { $self->_add_error( "TAP specified version $ver_num but " . "we don't know about versions later " . "than $MAX_TAP_VERSION" ); $ver_num = $MAX_TAP_VERSION; } $self->version($ver_num); $self->_grammar->set_version($ver_num); }, goto => 'PLAN' }, plan => { goto => 'PLANNED' }, test => { goto => 'UNPLANNED' }, }, PLAN => { plan => { goto => 'PLANNED' }, test => { goto => 'UNPLANNED' }, }, PLANNED => { test => { goto => 'PLANNED_AFTER_TEST' }, plan => { act => sub { my ($version) = @_; $self->_add_error( 'More than one plan found in TAP output'); }, }, }, PLANNED_AFTER_TEST => { test => { goto => 'PLANNED_AFTER_TEST' }, plan => { act => sub { }, continue => 'PLANNED' }, yaml => { goto => 'PLANNED' }, }, GOT_PLAN => { test => { act => sub { my ($plan) = @_; my $line = $self->plan; $self->_add_error( "Plan ($line) must be at the beginning " . "or end of the TAP output" ); $self->is_good_plan(0); }, continue => 'PLANNED' }, plan => { continue => 'PLANNED' }, }, UNPLANNED => { test => { goto => 'UNPLANNED_AFTER_TEST' }, plan => { goto => 'GOT_PLAN' }, }, UNPLANNED_AFTER_TEST => { test => { act => sub { }, continue => 'UNPLANNED' }, plan => { act => sub { }, continue => 'UNPLANNED' }, yaml => { goto => 'UNPLANNED' }, }, ); # Apply globals and defaults to state table for my $name ( keys %states ) { # Merge with globals my $st = { %state_globals, %{ $states{$name} } }; # Add defaults for my $next ( sort keys %{$st} ) { if ( my $default = $state_defaults{$next} ) { for my $def ( sort keys %{$default} ) { $st->{$next}->{$def} ||= $default->{$def}; } } } # Stuff back in table $states{$name} = $st; } return \%states; } =head3 C<get_select_handles> Get an a list of file handles which can be passed to C<select> to determine the readiness of this parser. =cut sub get_select_handles { shift->_iterator->get_select_handles } sub _grammar { my $self = shift; return $self->{_grammar} = shift if @_; return $self->{_grammar} ||= $self->make_grammar( { iterator => $self->_iterator, parser => $self, version => $self->version } ); } sub _iter { my $self = shift; my $iterator = $self->_iterator; my $grammar = $self->_grammar; my $spool = $self->_spool; my $state = 'INIT'; my $state_table = $self->_make_state_table; $self->start_time( $self->get_time ) unless $self->{start_time}; $self->start_times( $self->get_times ) unless $self->{start_times}; # Make next_state closure my $next_state = sub { my $token = shift; my $type = $token->type; TRANS: { my $state_spec = $state_table->{$state} or die "Illegal state: $state"; if ( my $next = $state_spec->{$type} ) { if ( my $act = $next->{act} ) { $act->($token); } if ( my $cont = $next->{continue} ) { $state = $cont; redo TRANS; } elsif ( my $goto = $next->{goto} ) { $state = $goto; } } else { confess("Unhandled token type: $type\n"); } } return $token; }; # Handle end of stream - which means either pop a block or finish my $end_handler = sub { $self->exit( $iterator->exit ); $self->wait( $iterator->wait ); $self->_finish; return; }; # Finally make the closure that we return. For performance reasons # there are two versions of the returned function: one that handles # callbacks and one that does not. if ( $self->_has_callbacks ) { return sub { my $result = eval { $grammar->tokenize }; $self->_add_error($@) if $@; if ( defined $result ) { $result = $next_state->($result); if ( my $code = $self->_callback_for( $result->type ) ) { $_->($result) for @{$code}; } else { $self->_make_callback( 'ELSE', $result ); } $self->_make_callback( 'ALL', $result ); # Echo TAP to spool file print {$spool} $result->raw, "\n" if $spool; } else { $result = $end_handler->(); $self->_make_callback( 'EOF', $self ) unless defined $result; } return $result; }; } # _has_callbacks else { return sub { my $result = eval { $grammar->tokenize }; $self->_add_error($@) if $@; if ( defined $result ) { $result = $next_state->($result); # Echo TAP to spool file print {$spool} $result->raw, "\n" if $spool; } else { $result = $end_handler->(); } return $result; }; } # no callbacks } sub _finish { my $self = shift; $self->end_time( $self->get_time ); $self->end_times( $self->get_times ); # Avoid leaks $self->_iterator(undef); $self->_grammar(undef); # If we just delete the iter we won't get a fault if it's recreated. # Instead we set it to a sub that returns an infinite # stream of undef. This segfaults on 5.5.4, presumably because # we're still executing the closure that gets replaced and it hasn't # been protected with a refcount. $self->{_iter} = sub {return} if $] >= 5.006; # sanity checks if ( !$self->plan ) { $self->_add_error('No plan found in TAP output'); } else { $self->is_good_plan(1) unless defined $self->is_good_plan; } if ( $self->tests_run != ( $self->tests_planned || 0 ) ) { $self->is_good_plan(0); if ( defined( my $planned = $self->tests_planned ) ) { my $ran = $self->tests_run; $self->_add_error( "Bad plan. You planned $planned tests but ran $ran."); } } if ( $self->tests_run != ( $self->passed + $self->failed ) ) { # this should never happen my $actual = $self->tests_run; my $passed = $self->passed; my $failed = $self->failed; $self->_croak( "Panic: planned test count ($actual) did not equal " . "sum of passed ($passed) and failed ($failed) tests!" ); } $self->is_good_plan(0) unless defined $self->is_good_plan; unless ( $self->parse_errors ) { # Optimise storage where possible if ( $self->tests_run == @{$self->{passed}} ) { $self->{passed} = $self->tests_run; } if ( $self->tests_run == @{$self->{actual_passed}} ) { $self->{actual_passed} = $self->tests_run; } } return $self; } =head3 C<delete_spool> Delete and return the spool. my $fh = $parser->delete_spool; =cut sub delete_spool { my $self = shift; return delete $self->{_spool}; } ############################################################################## =head1 CALLBACKS As mentioned earlier, a "callback" key may be added to the C<TAP::Parser> constructor. If present, each callback corresponding to a given result type will be called with the result as the argument if the C<run> method is used. The callback is expected to be a subroutine reference (or anonymous subroutine) which is invoked with the parser result as its argument. my %callbacks = ( test => \&test_callback, plan => \&plan_callback, comment => \&comment_callback, bailout => \&bailout_callback, unknown => \&unknown_callback, ); my $aggregator = TAP::Parser::Aggregator->new; for my $file ( @test_files ) { my $parser = TAP::Parser->new( { source => $file, callbacks => \%callbacks, } ); $parser->run; $aggregator->add( $file, $parser ); } Callbacks may also be added like this: $parser->callback( test => \&test_callback ); $parser->callback( plan => \&plan_callback ); The following keys allowed for callbacks. These keys are case-sensitive. =over 4 =item * C<test> Invoked if C<< $result->is_test >> returns true. =item * C<version> Invoked if C<< $result->is_version >> returns true. =item * C<plan> Invoked if C<< $result->is_plan >> returns true. =item * C<comment> Invoked if C<< $result->is_comment >> returns true. =item * C<bailout> Invoked if C<< $result->is_unknown >> returns true. =item * C<yaml> Invoked if C<< $result->is_yaml >> returns true. =item * C<unknown> Invoked if C<< $result->is_unknown >> returns true. =item * C<ELSE> If a result does not have a callback defined for it, this callback will be invoked. Thus, if all of the previous result types are specified as callbacks, this callback will I<never> be invoked. =item * C<ALL> This callback will always be invoked and this will happen for each result after one of the above callbacks is invoked. For example, if L<Term::ANSIColor> is loaded, you could use the following to color your test output: my %callbacks = ( test => sub { my $test = shift; if ( $test->is_ok && not $test->directive ) { # normal passing test print color 'green'; } elsif ( !$test->is_ok ) { # even if it's TODO print color 'white on_red'; } elsif ( $test->has_skip ) { print color 'white on_blue'; } elsif ( $test->has_todo ) { print color 'white'; } }, ELSE => sub { # plan, comment, and so on (anything which isn't a test line) print color 'black on_white'; }, ALL => sub { # now print them print shift->as_string; print color 'reset'; print "\n"; }, ); =item * C<EOF> Invoked when there are no more lines to be parsed. Since there is no accompanying L<TAP::Parser::Result> object the C<TAP::Parser> object is passed instead. =back =head1 TAP GRAMMAR If you're looking for an EBNF grammar, see L<TAP::Parser::Grammar>. =head1 BACKWARDS COMPATIBILITY The Perl-QA list attempted to ensure backwards compatibility with L<Test::Harness>. However, there are some minor differences. =head2 Differences =over 4 =item * TODO plans A little-known feature of L<Test::Harness> is that it supported TODO lists in the plan: 1..2 todo 2 ok 1 - We have liftoff not ok 2 - Anti-gravity device activated Under L<Test::Harness>, test number 2 would I<pass> because it was listed as a TODO test on the plan line. However, we are not aware of anyone actually using this feature and hard-coding test numbers is discouraged because it's very easy to add a test and break the test number sequence. This makes test suites very fragile. Instead, the following should be used: 1..2 ok 1 - We have liftoff not ok 2 - Anti-gravity device activated # TODO =item * 'Missing' tests It rarely happens, but sometimes a harness might encounter 'missing tests: ok 1 ok 2 ok 15 ok 16 ok 17 L<Test::Harness> would report tests 3-14 as having failed. For the C<TAP::Parser>, these tests are not considered failed because they've never run. They're reported as parse failures (tests out of sequence). =back =head1 SUBCLASSING If you find you need to provide custom functionality (as you would have using L<Test::Harness::Straps>), you're in luck: C<TAP::Parser> and friends are designed to be easily plugged-into and/or subclassed. Before you start, it's important to know a few things: =over 2 =item 1 All C<TAP::*> objects inherit from L<TAP::Object>. =item 2 Many C<TAP::*> classes have a I<SUBCLASSING> section to guide you. =item 3 Note that C<TAP::Parser> is designed to be the central "maker" - ie: it is responsible for creating most new objects in the C<TAP::Parser::*> namespace. This makes it possible for you to have a single point of configuring what subclasses should be used, which means that in many cases you'll find you only need to sub-class one of the parser's components. The exception to this rule are I<SourceHandlers> & I<Iterators>, but those are both created with customizable I<IteratorFactory>. =item 4 By subclassing, you may end up overriding undocumented methods. That's not a bad thing per se, but be forewarned that undocumented methods may change without warning from one release to the next - we cannot guarantee backwards compatibility. If any I<documented> method needs changing, it will be deprecated first, and changed in a later release. =back =head2 Parser Components =head3 Sources A TAP parser consumes input from a single I<raw source> of TAP, which could come from anywhere (a file, an executable, a database, an IO handle, a URI, etc..). The source gets bundled up in a L<TAP::Parser::Source> object which gathers some meta data about it. The parser then uses a L<TAP::Parser::IteratorFactory> to determine which L<TAP::Parser::SourceHandler> to use to turn the raw source into a stream of TAP by way of L</Iterators>. If you simply want C<TAP::Parser> to handle a new source of TAP you probably don't need to subclass C<TAP::Parser> itself. Rather, you'll need to create a new L<TAP::Parser::SourceHandler> class, and just plug it into the parser using the I<sources> param to L</new>. Before you start writing one, read through L<TAP::Parser::IteratorFactory> to get a feel for how the system works first. If you find you really need to use your own iterator factory you can still do so without sub-classing C<TAP::Parser> by setting L</iterator_factory_class>. If you just need to customize the objects on creation, subclass L<TAP::Parser> and override L</make_iterator_factory>. Note that C<make_source> & C<make_perl_source> have been I<DEPRECATED> and are now removed. =head3 Iterators A TAP parser uses I<iterators> to loop through the I<stream> of TAP read in from the I<source> it was given. There are a few types of Iterators available by default, all sub-classes of L<TAP::Parser::Iterator>. Choosing which iterator to use is the responsibility of the I<iterator factory>, though it simply delegates to the I<Source Handler> it uses. If you're writing your own L<TAP::Parser::SourceHandler>, you may need to create your own iterators too. If so you'll need to subclass L<TAP::Parser::Iterator>. Note that L</make_iterator> has been I<DEPRECATED> and is now removed. =head3 Results A TAP parser creates L<TAP::Parser::Result>s as it iterates through the input I<stream>. There are quite a few result types available; choosing which class to use is the responsibility of the I<result factory>. To create your own result types you have two options: =over 2 =item option 1 Subclass L<TAP::Parser::Result> and register your new result type/class with the default L<TAP::Parser::ResultFactory>. =item option 2 Subclass L<TAP::Parser::ResultFactory> itself and implement your own L<TAP::Parser::Result> creation logic. Then you'll need to customize the class used by your parser by setting the C<result_factory_class> parameter. See L</new> for more details. =back If you need to customize the objects on creation, subclass L<TAP::Parser> and override L</make_result>. =head3 Grammar L<TAP::Parser::Grammar> is the heart of the parser. It tokenizes the TAP input I<stream> and produces results. If you need to customize its behaviour you should probably familiarize yourself with the source first. Enough lecturing. Subclass L<TAP::Parser::Grammar> and customize your parser by setting the C<grammar_class> parameter. See L</new> for more details. If you need to customize the objects on creation, subclass L<TAP::Parser> and override L</make_grammar> =head1 ACKNOWLEDGMENTS All of the following have helped. Bug reports, patches, (im)moral support, or just words of encouragement have all been forthcoming. =over 4 =item * Michael Schwern =item * Andy Lester =item * chromatic =item * GEOFFR =item * Shlomi Fish =item * Torsten Schoenfeld =item * Jerry Gay =item * Aristotle =item * Adam Kennedy =item * Yves Orton =item * Adrian Howard =item * Sean & Lil =item * Andreas J. Koenig =item * Florian Ragwitz =item * Corion =item * Mark Stosberg =item * Matt Kraai =item * David Wheeler =item * Alex Vandiver =item * Cosimo Streppone =item * Ville Skyttä =back =head1 AUTHORS Curtis "Ovid" Poe <ovid@cpan.org> Andy Armstong <andy@hexten.net> Eric Wilhelm @ <ewilhelm at cpan dot org> Michael Peters <mpeters at plusthree dot com> Leif Eriksen <leif dot eriksen at bigpond dot com> Steve Purkis <spurkis@cpan.org> Nicholas Clark <nick@ccl4.org> Lee Johnson <notfadeaway at btinternet dot com> Philippe Bruhat <book@cpan.org> =head1 BUGS Please report any bugs or feature requests to C<bug-test-harness@rt.cpan.org>, or through the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Test-Harness>. We will be notified, and then you'll automatically be notified of progress on your bug as we make changes. Obviously, bugs which include patches are best. If you prefer, you can patch against bleed by via anonymous checkout of the latest version: git clone git://github.com/Perl-Toolchain-Gang/Test-Harness.git =head1 COPYRIGHT & LICENSE Copyright 2006-2008 Curtis "Ovid" Poe, all rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut 1; PK ! �;�- - 5.34.0/TAP/Parser/Scheduler.pmnu �[��� package TAP::Parser::Scheduler; use strict; use warnings; use Carp; use TAP::Parser::Scheduler::Job; use TAP::Parser::Scheduler::Spinner; =head1 NAME TAP::Parser::Scheduler - Schedule tests during parallel testing =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 SYNOPSIS use TAP::Parser::Scheduler; =head1 DESCRIPTION =head1 METHODS =head2 Class Methods =head3 C<new> my $sched = TAP::Parser::Scheduler->new(tests => \@tests); my $sched = TAP::Parser::Scheduler->new( tests => [ ['t/test_name.t','Test Description'], ... ], rules => \%rules, ); Given 'tests' and optional 'rules' as input, returns a new C<TAP::Parser::Scheduler> object. Each member of C<@tests> should be either a a test file name, or a two element arrayref, where the first element is a test file name, and the second element is a test description. By default, we'll use the test name as the description. The optional C<rules> attribute provides direction on which tests should be run in parallel and which should be run sequentially. If no rule data structure is provided, a default data structure is used which makes every test eligible to be run in parallel: { par => '**' }, The rules data structure is documented more in the next section. =head2 Rules data structure The "C<rules>" data structure is the the heart of the scheduler. It allows you to express simple rules like "run all tests in sequence" or "run all tests in parallel except these five tests.". However, the rules structure also supports glob-style pattern matching and recursive definitions, so you can also express arbitarily complicated patterns. The rule must only have one top level key: either 'par' for "parallel" or 'seq' for "sequence". Values must be either strings with possible glob-style matching, or arrayrefs of strings or hashrefs which follow this pattern recursively. Every element in an arrayref directly below a 'par' key is eligible to be run in parallel, while vavalues directly below a 'seq' key must be run in sequence. =head3 Rules examples Here are some examples: # All tests be run in parallel (the default rule) { par => '**' }, # Run all tests in sequence, except those starting with "p" { par => 't/p*.t' }, # Run all tests in parallel, except those starting with "p" { seq => [ { seq => 't/p*.t' }, { par => '**' }, ], } # Run some startup tests in sequence, then some parallel tests then some # teardown tests in sequence. { seq => [ { seq => 't/startup/*.t' }, { par => ['t/a/*.t','t/b/*.t','t/c/*.t'], } { seq => 't/shutdown/*.t' }, ], }, =head3 Rules resolution =over 4 =item * By default, all tests are eligible to be run in parallel. Specifying any of your own rules removes this one. =item * "First match wins". The first rule that matches a test will be the one that applies. =item * Any test which does not match a rule will be run in sequence at the end of the run. =item * The existence of a rule does not imply selecting a test. You must still specify the tests to run. =item * Specifying a rule to allow tests to run in parallel does not make the run in parallel. You still need specify the number of parallel C<jobs> in your Harness object. =back =head3 Glob-style pattern matching for rules We implement our own glob-style pattern matching. Here are the patterns it supports: ** is any number of characters, including /, within a pathname * is zero or more characters within a filename/directory name ? is exactly one character within a filename/directory name {foo,bar,baz} is any of foo, bar or baz. \ is an escape character =cut sub new { my $class = shift; croak "Need a number of key, value pairs" if @_ % 2; my %args = @_; my $tests = delete $args{tests} || croak "Need a 'tests' argument"; my $rules = delete $args{rules} || { par => '**' }; croak "Unknown arg(s): ", join ', ', sort keys %args if keys %args; # Turn any simple names into a name, description pair. TODO: Maybe # construct jobs here? my $self = bless {}, $class; $self->_set_rules( $rules, $tests ); return $self; } # Build the scheduler data structure. # # SCHEDULER-DATA ::= JOB # || ARRAY OF ARRAY OF SCHEDULER-DATA # # The nested arrays are the key to scheduling. The outer array contains # a list of things that may be executed in parallel. Whenever an # eligible job is sought any element of the outer array that is ready to # execute can be selected. The inner arrays represent sequential # execution. They can only proceed when the first job is ready to run. sub _set_rules { my ( $self, $rules, $tests ) = @_; # Convert all incoming tests to job objects. # If no test description is provided use the file name as the description. my @tests = map { TAP::Parser::Scheduler::Job->new(@$_) } map { 'ARRAY' eq ref $_ ? $_ : [ $_, $_ ] } @$tests; my $schedule = $self->_rule_clause( $rules, \@tests ); # If any tests are left add them as a sequential block at the end of # the run. $schedule = [ [ $schedule, @tests ] ] if @tests; $self->{schedule} = $schedule; } sub _rule_clause { my ( $self, $rule, $tests ) = @_; croak 'Rule clause must be a hash' unless 'HASH' eq ref $rule; my @type = keys %$rule; croak 'Rule clause must have exactly one key' unless @type == 1; my %handlers = ( par => sub { [ map { [$_] } @_ ]; }, seq => sub { [ [@_] ] }, ); my $handler = $handlers{ $type[0] } || croak 'Unknown scheduler type: ', $type[0]; my $val = $rule->{ $type[0] }; return $handler->( map { 'HASH' eq ref $_ ? $self->_rule_clause( $_, $tests ) : $self->_expand( $_, $tests ) } 'ARRAY' eq ref $val ? @$val : $val ); } sub _glob_to_regexp { my ( $self, $glob ) = @_; my $nesting; my $pattern; while (1) { if ( $glob =~ /\G\*\*/gc ) { # ** is any number of characters, including /, within a pathname $pattern .= '.*?'; } elsif ( $glob =~ /\G\*/gc ) { # * is zero or more characters within a filename/directory name $pattern .= '[^/]*'; } elsif ( $glob =~ /\G\?/gc ) { # ? is exactly one character within a filename/directory name $pattern .= '[^/]'; } elsif ( $glob =~ /\G\{/gc ) { # {foo,bar,baz} is any of foo, bar or baz. $pattern .= '(?:'; ++$nesting; } elsif ( $nesting and $glob =~ /\G,/gc ) { # , is only special inside {} $pattern .= '|'; } elsif ( $nesting and $glob =~ /\G\}/gc ) { # } that matches { is special. But unbalanced } are not. $pattern .= ')'; --$nesting; } elsif ( $glob =~ /\G(\\.)/gc ) { # A quoted literal $pattern .= $1; } elsif ( $glob =~ /\G([\},])/gc ) { # Sometimes meta characters $pattern .= '\\' . $1; } else { # Eat everything that is not a meta character. $glob =~ /\G([^{?*\\\},]*)/gc; $pattern .= quotemeta $1; } return $pattern if pos $glob == length $glob; } } sub _expand { my ( $self, $name, $tests ) = @_; my $pattern = $self->_glob_to_regexp($name); $pattern = qr/^ $pattern $/x; my @match = (); for ( my $ti = 0; $ti < @$tests; $ti++ ) { if ( $tests->[$ti]->filename =~ $pattern ) { push @match, splice @$tests, $ti, 1; $ti--; } } return @match; } =head2 Instance Methods =head3 C<get_all> Get a list of all remaining tests. =cut sub get_all { my $self = shift; my @all = $self->_gather( $self->{schedule} ); $self->{count} = @all; @all; } sub _gather { my ( $self, $rule ) = @_; return unless defined $rule; return $rule unless 'ARRAY' eq ref $rule; return map { defined() ? $self->_gather($_) : () } map {@$_} @$rule; } =head3 C<get_job> Return the next available job as L<TAP::Parser::Scheduler::Job> object or C<undef> if none are available. Returns a L<TAP::Parser::Scheduler::Spinner> if the scheduler still has pending jobs but none are available to run right now. =cut sub get_job { my $self = shift; $self->{count} ||= $self->get_all; my @jobs = $self->_find_next_job( $self->{schedule} ); if (@jobs) { --$self->{count}; return $jobs[0]; } return TAP::Parser::Scheduler::Spinner->new if $self->{count}; return; } sub _not_empty { my $ar = shift; return 1 unless 'ARRAY' eq ref $ar; for (@$ar) { return 1 if _not_empty($_); } return; } sub _is_empty { !_not_empty(@_) } sub _find_next_job { my ( $self, $rule ) = @_; my @queue = (); my $index = 0; while ( $index < @$rule ) { my $seq = $rule->[$index]; # Prune any exhausted items. shift @$seq while @$seq && _is_empty( $seq->[0] ); if (@$seq) { if ( defined $seq->[0] ) { if ( 'ARRAY' eq ref $seq->[0] ) { push @queue, $seq; } else { my $job = splice @$seq, 0, 1, undef; $job->on_finish( sub { shift @$seq } ); return $job; } } ++$index; } else { # Remove the empty sub-array from the array splice @$rule, $index, 1; } } for my $seq (@queue) { if ( my @jobs = $self->_find_next_job( $seq->[0] ) ) { return @jobs; } } return; } =head3 C<as_string> Return a human readable representation of the scheduling tree. For example: my @tests = (qw{ t/startup/foo.t t/shutdown/foo.t t/a/foo.t t/b/foo.t t/c/foo.t t/d/foo.t }); my $sched = TAP::Parser::Scheduler->new( tests => \@tests, rules => { seq => [ { seq => 't/startup/*.t' }, { par => ['t/a/*.t','t/b/*.t','t/c/*.t'] }, { seq => 't/shutdown/*.t' }, ], }, ); Produces: par: seq: par: seq: par: seq: 't/startup/foo.t' par: seq: 't/a/foo.t' seq: 't/b/foo.t' seq: 't/c/foo.t' par: seq: 't/shutdown/foo.t' 't/d/foo.t' =cut sub as_string { my $self = shift; return $self->_as_string( $self->{schedule} ); } sub _as_string { my ( $self, $rule, $depth ) = ( shift, shift, shift || 0 ); my $pad = ' ' x 2; my $indent = $pad x $depth; if ( !defined $rule ) { return "$indent(undef)\n"; } elsif ( 'ARRAY' eq ref $rule ) { return unless @$rule; my $type = ( 'par', 'seq' )[ $depth % 2 ]; return join( '', "$indent$type:\n", map { $self->_as_string( $_, $depth + 1 ) } @$rule ); } else { return "$indent'" . $rule->filename . "'\n"; } } 1; PK ! ��9\" " " 5.34.0/TAP/Parser/SourceHandler.pmnu �[��� package TAP::Parser::SourceHandler; use strict; use warnings; use TAP::Parser::Iterator (); use base 'TAP::Object'; =head1 NAME TAP::Parser::SourceHandler - Base class for different TAP source handlers =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 SYNOPSIS # abstract class - don't use directly! # see TAP::Parser::IteratorFactory for general usage # must be sub-classed for use package MySourceHandler; use base 'TAP::Parser::SourceHandler'; sub can_handle { return $confidence_level } sub make_iterator { return $iterator } # see example below for more details =head1 DESCRIPTION This is an abstract base class for L<TAP::Parser::Source> handlers / handlers. A C<TAP::Parser::SourceHandler> does whatever is necessary to produce & capture a stream of TAP from the I<raw> source, and package it up in a L<TAP::Parser::Iterator> for the parser to consume. C<SourceHandlers> must implement the I<source detection & handling> interface used by L<TAP::Parser::IteratorFactory>. At 2 methods, the interface is pretty simple: L</can_handle> and L</make_source>. Unless you're writing a new L<TAP::Parser::SourceHandler>, a plugin, or subclassing L<TAP::Parser>, you probably won't need to use this module directly. =head1 METHODS =head2 Class Methods =head3 C<can_handle> I<Abstract method>. my $vote = $class->can_handle( $source ); C<$source> is a L<TAP::Parser::Source>. Returns a number between C<0> & C<1> reflecting how confidently the raw source can be handled. For example, C<0> means the source cannot handle it, C<0.5> means it may be able to, and C<1> means it definitely can. See L<TAP::Parser::IteratorFactory/detect_source> for details on how this is used. =cut sub can_handle { my ( $class, $args ) = @_; $class->_croak( "Abstract method 'can_handle' not implemented for $class!"); return; } =head3 C<make_iterator> I<Abstract method>. my $iterator = $class->make_iterator( $source ); C<$source> is a L<TAP::Parser::Source>. Returns a new L<TAP::Parser::Iterator> object for use by the L<TAP::Parser>. C<croak>s on error. =cut sub make_iterator { my ( $class, $args ) = @_; $class->_croak( "Abstract method 'make_iterator' not implemented for $class!"); return; } 1; __END__ =head1 SUBCLASSING Please see L<TAP::Parser/SUBCLASSING> for a subclassing overview, and any of the subclasses that ship with this module as an example. What follows is a quick overview. Start by familiarizing yourself with L<TAP::Parser::Source> and L<TAP::Parser::IteratorFactory>. L<TAP::Parser::SourceHandler::RawTAP> is the easiest sub-class to use as an example. It's important to point out that if you want your subclass to be automatically used by L<TAP::Parser> you'll have to and make sure it gets loaded somehow. If you're using L<prove> you can write an L<App::Prove> plugin. If you're using L<TAP::Parser> or L<TAP::Harness> directly (e.g. through a custom script, L<ExtUtils::MakeMaker>, or L<Module::Build>) you can use the C<config> option which will cause L<TAP::Parser::IteratorFactory/load_sources> to load your subclass). Don't forget to register your class with L<TAP::Parser::IteratorFactory/register_handler>. =head2 Example package MySourceHandler; use strict; use MySourceHandler; # see TAP::Parser::SourceHandler use TAP::Parser::IteratorFactory; use base 'TAP::Parser::SourceHandler'; TAP::Parser::IteratorFactory->register_handler( __PACKAGE__ ); sub can_handle { my ( $class, $src ) = @_; my $meta = $src->meta; my $config = $src->config_for( $class ); if ($config->{accept_all}) { return 1.0; } elsif (my $file = $meta->{file}) { return 0.0 unless $file->{exists}; return 1.0 if $file->{lc_ext} eq '.tap'; return 0.9 if $file->{shebang} && $file->{shebang} =~ /^#!.+tap/; return 0.5 if $file->{text}; return 0.1 if $file->{binary}; } elsif ($meta->{scalar}) { return 0.8 if $$raw_source_ref =~ /\d\.\.\d/; return 0.6 if $meta->{has_newlines}; } elsif ($meta->{array}) { return 0.8 if $meta->{size} < 5; return 0.6 if $raw_source_ref->[0] =~ /foo/; return 0.5; } elsif ($meta->{hash}) { return 0.6 if $raw_source_ref->{foo}; return 0.2; } return 0; } sub make_iterator { my ($class, $source) = @_; # this is where you manipulate the source and # capture the stream of TAP in an iterator # either pick a TAP::Parser::Iterator::* or write your own... my $iterator = TAP::Parser::Iterator::Array->new([ 'foo', 'bar' ]); return $iterator; } 1; =head1 AUTHORS TAPx Developers. Source detection stuff added by Steve Purkis =head1 SEE ALSO L<TAP::Object>, L<TAP::Parser>, L<TAP::Parser::Source>, L<TAP::Parser::Iterator>, L<TAP::Parser::IteratorFactory>, L<TAP::Parser::SourceHandler::Executable>, L<TAP::Parser::SourceHandler::Perl>, L<TAP::Parser::SourceHandler::File>, L<TAP::Parser::SourceHandler::Handle>, L<TAP::Parser::SourceHandler::RawTAP> =cut PK ! �KO�� � " 5.34.0/TAP/Parser/Scheduler/Job.pmnu �[��� package TAP::Parser::Scheduler::Job; use strict; use warnings; use Carp; =head1 NAME TAP::Parser::Scheduler::Job - A single testing job. =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 SYNOPSIS use TAP::Parser::Scheduler::Job; =head1 DESCRIPTION Represents a single test 'job'. =head1 METHODS =head2 Class Methods =head3 C<new> my $job = TAP::Parser::Scheduler::Job->new( $filename, $description ); Given the filename and description of a test as scalars, returns a new L<TAP::Parser::Scheduler::Job> object. =cut sub new { my ( $class, $name, $desc, @ctx ) = @_; return bless { filename => $name, description => $desc, @ctx ? ( context => \@ctx ) : (), }, $class; } =head2 Instance Methods =head3 C<on_finish> $self->on_finish(\&method). Register a closure to be called when this job is destroyed. The callback will be passed the C<TAP::Parser::Scheduler::Job> object as it's only argument. =cut sub on_finish { my ( $self, $cb ) = @_; $self->{on_finish} = $cb; } =head3 C<finish> $self->finish; Called when a job is complete to unlock it. If a callback has been registered with C<on_finish>, it calls it. Otherwise, it does nothing. =cut sub finish { my $self = shift; if ( my $cb = $self->{on_finish} ) { $cb->($self); } } =head2 Attributes $self->filename; $self->description; $self->context; These are all "getters" which return the data set for these attributes during object construction. =head3 C<filename> =head3 C<description> =head3 C<context> =cut sub filename { shift->{filename} } sub description { shift->{description} } sub context { @{ shift->{context} || [] } } =head3 C<as_array_ref> For backwards compatibility in callbacks. =cut sub as_array_ref { my $self = shift; return [ $self->filename, $self->description, $self->{context} ||= [] ]; } =head3 C<is_spinner> $self->is_spinner; Returns false indicating that this is a real job rather than a 'spinner'. Spinners are returned when the scheduler still has pending jobs but can't (because of locking) return one right now. =cut sub is_spinner {0} 1; PK ! �K��� � & 5.34.0/TAP/Parser/Scheduler/Spinner.pmnu �[��� package TAP::Parser::Scheduler::Spinner; use strict; use warnings; use Carp; =head1 NAME TAP::Parser::Scheduler::Spinner - A no-op job. =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 SYNOPSIS use TAP::Parser::Scheduler::Spinner; =head1 DESCRIPTION A no-op job. Returned by C<TAP::Parser::Scheduler> as an instruction to the harness to spin (keep executing tests) while the scheduler can't return a real job. =head1 METHODS =head2 Class Methods =head3 C<new> my $job = TAP::Parser::Scheduler::Spinner->new; Ignores any arguments and returns a new C<TAP::Parser::Scheduler::Spinner> object. =cut sub new { bless {}, shift } =head2 Instance Methods =head3 C<is_spinner> Returns true indicating that is a 'spinner' job. Spinners are returned when the scheduler still has pending jobs but can't (because of locking) return one right now. =cut sub is_spinner {1} =head1 SEE ALSO L<TAP::Parser::Scheduler>, L<TAP::Parser::Scheduler::Job> =cut 1; PK ! h>�� � 5.34.0/TAP/Parser/Iterator.pmnu �[��� package TAP::Parser::Iterator; use strict; use warnings; use base 'TAP::Object'; =head1 NAME TAP::Parser::Iterator - Base class for TAP source iterators =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 SYNOPSIS # to subclass: use TAP::Parser::Iterator (); use base 'TAP::Parser::Iterator'; sub _initialize { # see TAP::Object... } sub next_raw { ... } sub wait { ... } sub exit { ... } =head1 DESCRIPTION This is a simple iterator base class that defines L<TAP::Parser>'s iterator API. Iterators are typically created from L<TAP::Parser::SourceHandler>s. =head1 METHODS =head2 Class Methods =head3 C<new> Create an iterator. Provided by L<TAP::Object>. =head2 Instance Methods =head3 C<next> while ( my $item = $iter->next ) { ... } Iterate through it, of course. =head3 C<next_raw> B<Note:> this method is abstract and should be overridden. while ( my $item = $iter->next_raw ) { ... } Iterate raw input without applying any fixes for quirky input syntax. =cut sub next { my $self = shift; my $line = $self->next_raw; # vms nit: When encountering 'not ok', vms often has the 'not' on a line # by itself: # not # ok 1 - 'I hate VMS' if ( defined($line) and $line =~ /^\s*not\s*$/ ) { $line .= ( $self->next_raw || '' ); } return $line; } sub next_raw { require Carp; my $msg = Carp::longmess('abstract method called directly!'); $_[0]->_croak($msg); } =head3 C<handle_unicode> If necessary switch the input stream to handle unicode. This only has any effect for I/O handle based streams. The default implementation does nothing. =cut sub handle_unicode { } =head3 C<get_select_handles> Return a list of filehandles that may be used upstream in a select() call to signal that this Iterator is ready. Iterators that are not handle-based should return an empty list. The default implementation does nothing. =cut sub get_select_handles { return; } =head3 C<wait> B<Note:> this method is abstract and should be overridden. my $wait_status = $iter->wait; Return the C<wait> status for this iterator. =head3 C<exit> B<Note:> this method is abstract and should be overridden. my $wait_status = $iter->exit; Return the C<exit> status for this iterator. =cut sub wait { require Carp; my $msg = Carp::longmess('abstract method called directly!'); $_[0]->_croak($msg); } sub exit { require Carp; my $msg = Carp::longmess('abstract method called directly!'); $_[0]->_croak($msg); } 1; =head1 SUBCLASSING Please see L<TAP::Parser/SUBCLASSING> for a subclassing overview. You must override the abstract methods as noted above. =head2 Example L<TAP::Parser::Iterator::Array> is probably the easiest example to follow. There's not much point repeating it here. =head1 SEE ALSO L<TAP::Object>, L<TAP::Parser>, L<TAP::Parser::Iterator::Array>, L<TAP::Parser::Iterator::Stream>, L<TAP::Parser::Iterator::Process>, =cut PK ! I�@s s $ 5.34.0/TAP/Parser/IteratorFactory.pmnu �[��� package TAP::Parser::IteratorFactory; use strict; use warnings; use Carp qw( confess ); use File::Basename qw( fileparse ); use base 'TAP::Object'; use constant handlers => []; =head1 NAME TAP::Parser::IteratorFactory - Figures out which SourceHandler objects to use for a given Source =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 SYNOPSIS use TAP::Parser::IteratorFactory; my $factory = TAP::Parser::IteratorFactory->new({ %config }); my $iterator = $factory->make_iterator( $filename ); =head1 DESCRIPTION This is a factory class that takes a L<TAP::Parser::Source> and runs it through all the registered L<TAP::Parser::SourceHandler>s to see which one should handle the source. If you're a plugin author, you'll be interested in how to L</register_handler>s, how L</detect_source> works. =head1 METHODS =head2 Class Methods =head3 C<new> Creates a new factory class: my $sf = TAP::Parser::IteratorFactory->new( $config ); C<$config> is optional. If given, sets L</config> and calls L</load_handlers>. =cut sub _initialize { my ( $self, $config ) = @_; $self->config( $config || {} )->load_handlers; return $self; } =head3 C<register_handler> Registers a new L<TAP::Parser::SourceHandler> with this factory. __PACKAGE__->register_handler( $handler_class ); =head3 C<handlers> List of handlers that have been registered. =cut sub register_handler { my ( $class, $dclass ) = @_; confess("$dclass must implement can_handle & make_iterator methods!") unless UNIVERSAL::can( $dclass, 'can_handle' ) && UNIVERSAL::can( $dclass, 'make_iterator' ); my $handlers = $class->handlers; push @{$handlers}, $dclass unless grep { $_ eq $dclass } @{$handlers}; return $class; } ############################################################################## =head2 Instance Methods =head3 C<config> my $cfg = $sf->config; $sf->config({ Perl => { %config } }); Chaining getter/setter for the configuration of the available source handlers. This is a hashref keyed on handler class whose values contain config to be passed onto the handlers during detection & creation. Class names may be fully qualified or abbreviated, eg: # these are equivalent $sf->config({ 'TAP::Parser::SourceHandler::Perl' => { %config } }); $sf->config({ 'Perl' => { %config } }); =cut sub config { my $self = shift; return $self->{config} unless @_; unless ( 'HASH' eq ref $_[0] ) { $self->_croak('Argument to &config must be a hash reference'); } $self->{config} = shift; return $self; } sub _last_handler { my $self = shift; return $self->{last_handler} unless @_; $self->{last_handler} = shift; return $self; } sub _testing { my $self = shift; return $self->{testing} unless @_; $self->{testing} = shift; return $self; } ############################################################################## =head3 C<load_handlers> $sf->load_handlers; Loads the handler classes defined in L</config>. For example, given a config: $sf->config({ MySourceHandler => { some => 'config' }, }); C<load_handlers> will attempt to load the C<MySourceHandler> class by looking in C<@INC> for it in this order: TAP::Parser::SourceHandler::MySourceHandler MySourceHandler C<croak>s on error. =cut sub load_handlers { my ($self) = @_; for my $handler ( keys %{ $self->config } ) { my $sclass = $self->_load_handler($handler); # TODO: store which class we loaded anywhere? } return $self; } sub _load_handler { my ( $self, $handler ) = @_; my @errors; for my $dclass ( "TAP::Parser::SourceHandler::$handler", $handler ) { return $dclass if UNIVERSAL::can( $dclass, 'can_handle' ) && UNIVERSAL::can( $dclass, 'make_iterator' ); eval "use $dclass"; if ( my $e = $@ ) { push @errors, $e; next; } return $dclass if UNIVERSAL::can( $dclass, 'can_handle' ) && UNIVERSAL::can( $dclass, 'make_iterator' ); push @errors, "handler '$dclass' does not implement can_handle & make_iterator"; } $self->_croak( "Cannot load handler '$handler': " . join( "\n", @errors ) ); } ############################################################################## =head3 C<make_iterator> my $iterator = $src_factory->make_iterator( $source ); Given a L<TAP::Parser::Source>, finds the most suitable L<TAP::Parser::SourceHandler> to use to create a L<TAP::Parser::Iterator> (see L</detect_source>). Dies on error. =cut sub make_iterator { my ( $self, $source ) = @_; $self->_croak('no raw source defined!') unless defined $source->raw; $source->config( $self->config )->assemble_meta; # is the raw source already an object? return $source->raw if ( $source->meta->{is_object} && UNIVERSAL::isa( $source->raw, 'TAP::Parser::SourceHandler' ) ); # figure out what kind of source it is my $sd_class = $self->detect_source($source); $self->_last_handler($sd_class); return if $self->_testing; # create it my $iterator = $sd_class->make_iterator($source); return $iterator; } =head3 C<detect_source> Given a L<TAP::Parser::Source>, detects what kind of source it is and returns I<one> L<TAP::Parser::SourceHandler> (the most confident one). Dies on error. The detection algorithm works something like this: for (@registered_handlers) { # ask them how confident they are about handling this source $confidence{$handler} = $handler->can_handle( $source ) } # choose the most confident handler Ties are handled by choosing the first handler. =cut sub detect_source { my ( $self, $source ) = @_; confess('no raw source ref defined!') unless defined $source->raw; # find a list of handlers that can handle this source: my %confidence_for; for my $handler ( @{ $self->handlers } ) { my $confidence = $handler->can_handle($source); # warn "handler: $handler: $confidence\n"; $confidence_for{$handler} = $confidence if $confidence; } if ( !%confidence_for ) { # error: can't detect source my $raw_source_short = substr( ${ $source->raw }, 0, 50 ); confess("Cannot detect source of '$raw_source_short'!"); return; } # if multiple handlers can handle it, choose the most confident one my @handlers = sort { $confidence_for{$b} <=> $confidence_for{$a} } keys %confidence_for; # Check for a tie. if( @handlers > 1 && $confidence_for{$handlers[0]} == $confidence_for{$handlers[1]} ) { my $filename = $source->meta->{file}{basename}; die("There is a tie between $handlers[0] and $handlers[1].\n". "Both voted $confidence_for{$handlers[0]} on $filename.\n"); } # this is really useful for debugging handlers: if ( $ENV{TAP_HARNESS_SOURCE_FACTORY_VOTES} ) { warn( "votes: ", join( ', ', map {"$_: $confidence_for{$_}"} @handlers ), "\n" ); } # return 1st return $handlers[0]; } 1; __END__ =head1 SUBCLASSING Please see L<TAP::Parser/SUBCLASSING> for a subclassing overview. =head2 Example If we've done things right, you'll probably want to write a new source, rather than sub-classing this (see L<TAP::Parser::SourceHandler> for that). But in case you find the need to... package MyIteratorFactory; use strict; use base 'TAP::Parser::IteratorFactory'; # override source detection algorithm sub detect_source { my ($self, $raw_source_ref, $meta) = @_; # do detective work, using $meta and whatever else... } 1; =head1 AUTHORS Steve Purkis =head1 ATTRIBUTION Originally ripped off from L<Test::Harness>. Moved out of L<TAP::Parser> & converted to a factory class to support extensible TAP source detective work by Steve Purkis. =head1 SEE ALSO L<TAP::Object>, L<TAP::Parser>, L<TAP::Parser::SourceHandler>, L<TAP::Parser::SourceHandler::File>, L<TAP::Parser::SourceHandler::Perl>, L<TAP::Parser::SourceHandler::RawTAP>, L<TAP::Parser::SourceHandler::Handle>, L<TAP::Parser::SourceHandler::Executable> =cut PK ! �۰$ $ 5.34.0/TAP/Parser/Aggregator.pmnu �[��� package TAP::Parser::Aggregator; use strict; use warnings; use Benchmark; use base 'TAP::Object'; =head1 NAME TAP::Parser::Aggregator - Aggregate TAP::Parser results =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 SYNOPSIS use TAP::Parser::Aggregator; my $aggregate = TAP::Parser::Aggregator->new; $aggregate->add( 't/00-load.t', $load_parser ); $aggregate->add( 't/10-lex.t', $lex_parser ); my $summary = <<'END_SUMMARY'; Passed: %s Failed: %s Unexpectedly succeeded: %s END_SUMMARY printf $summary, scalar $aggregate->passed, scalar $aggregate->failed, scalar $aggregate->todo_passed; =head1 DESCRIPTION C<TAP::Parser::Aggregator> collects parser objects and allows reporting/querying their aggregate results. =head1 METHODS =head2 Class Methods =head3 C<new> my $aggregate = TAP::Parser::Aggregator->new; Returns a new C<TAP::Parser::Aggregator> object. =cut # new() implementation supplied by TAP::Object my %SUMMARY_METHOD_FOR; BEGIN { # install summary methods %SUMMARY_METHOD_FOR = map { $_ => $_ } qw( failed parse_errors passed skipped todo todo_passed total wait exit ); $SUMMARY_METHOD_FOR{total} = 'tests_run'; $SUMMARY_METHOD_FOR{planned} = 'tests_planned'; for my $method ( keys %SUMMARY_METHOD_FOR ) { next if 'total' eq $method; no strict 'refs'; *$method = sub { my $self = shift; return wantarray ? @{ $self->{"descriptions_for_$method"} } : $self->{$method}; }; } } # end install summary methods sub _initialize { my ($self) = @_; $self->{parser_for} = {}; $self->{parse_order} = []; for my $summary ( keys %SUMMARY_METHOD_FOR ) { $self->{$summary} = 0; next if 'total' eq $summary; $self->{"descriptions_for_$summary"} = []; } return $self; } ############################################################################## =head2 Instance Methods =head3 C<add> $aggregate->add( $description => $parser ); The C<$description> is usually a test file name (but only by convention.) It is used as a unique identifier (see e.g. L<"parsers">.) Reusing a description is a fatal error. The C<$parser> is a L<TAP::Parser|TAP::Parser> object. =cut sub add { my ( $self, $description, $parser ) = @_; if ( exists $self->{parser_for}{$description} ) { $self->_croak( "You already have a parser for ($description)." . " Perhaps you have run the same test twice." ); } push @{ $self->{parse_order} } => $description; $self->{parser_for}{$description} = $parser; while ( my ( $summary, $method ) = each %SUMMARY_METHOD_FOR ) { # Slightly nasty. Instead we should maybe have 'cooked' accessors # for results that may be masked by the parser. next if ( $method eq 'exit' || $method eq 'wait' ) && $parser->ignore_exit; if ( my $count = $parser->$method() ) { $self->{$summary} += $count; push @{ $self->{"descriptions_for_$summary"} } => $description; } } return $self; } ############################################################################## =head3 C<parsers> my $count = $aggregate->parsers; my @parsers = $aggregate->parsers; my @parsers = $aggregate->parsers(@descriptions); In scalar context without arguments, this method returns the number of parsers aggregated. In list context without arguments, returns the parsers in the order they were added. If C<@descriptions> is given, these correspond to the keys used in each call to the add() method. Returns an array of the requested parsers (in the requested order) in list context or an array reference in scalar context. Requesting an unknown identifier is a fatal error. =cut sub parsers { my $self = shift; return $self->_get_parsers(@_) if @_; my $descriptions = $self->{parse_order}; my @parsers = @{ $self->{parser_for} }{@$descriptions}; # Note: Because of the way context works, we must assign the parsers to # the @parsers array or else this method does not work as documented. return @parsers; } sub _get_parsers { my ( $self, @descriptions ) = @_; my @parsers; for my $description (@descriptions) { $self->_croak("A parser for ($description) could not be found") unless exists $self->{parser_for}{$description}; push @parsers => $self->{parser_for}{$description}; } return wantarray ? @parsers : \@parsers; } =head3 C<descriptions> Get an array of descriptions in the order in which they were added to the aggregator. =cut sub descriptions { @{ shift->{parse_order} || [] } } =head3 C<start> Call C<start> immediately before adding any results to the aggregator. Among other times it records the start time for the test run. =cut sub start { my $self = shift; $self->{start_time} = Benchmark->new; } =head3 C<stop> Call C<stop> immediately after adding all test results to the aggregator. =cut sub stop { my $self = shift; $self->{end_time} = Benchmark->new; } =head3 C<elapsed> Elapsed returns a L<Benchmark> object that represents the running time of the aggregated tests. In order for C<elapsed> to be valid you must call C<start> before running the tests and C<stop> immediately afterwards. =cut sub elapsed { my $self = shift; require Carp; Carp::croak q{Can't call elapsed without first calling start and then stop} unless defined $self->{start_time} && defined $self->{end_time}; return timediff( $self->{end_time}, $self->{start_time} ); } =head3 C<elapsed_timestr> Returns a formatted string representing the runtime returned by C<elapsed()>. This lets the caller not worry about Benchmark. =cut sub elapsed_timestr { my $self = shift; my $elapsed = $self->elapsed; return timestr($elapsed); } =head3 C<all_passed> Return true if all the tests passed and no parse errors were detected. =cut sub all_passed { my $self = shift; return $self->total && $self->total == $self->passed && !$self->has_errors; } =head3 C<get_status> Get a single word describing the status of the aggregated tests. Depending on the outcome of the tests returns 'PASS', 'FAIL' or 'NOTESTS'. This token is understood by L<CPAN::Reporter>. =cut sub get_status { my $self = shift; my $total = $self->total; my $passed = $self->passed; return ( $self->has_errors || $total != $passed ) ? 'FAIL' : $total ? 'PASS' : 'NOTESTS'; } ############################################################################## =head2 Summary methods Each of the following methods will return the total number of corresponding tests if called in scalar context. If called in list context, returns the descriptions of the parsers which contain the corresponding tests (see C<add> for an explanation of description. =over 4 =item * failed =item * parse_errors =item * passed =item * planned =item * skipped =item * todo =item * todo_passed =item * wait =item * exit =back For example, to find out how many tests unexpectedly succeeded (TODO tests which passed when they shouldn't): my $count = $aggregate->todo_passed; my @descriptions = $aggregate->todo_passed; Note that C<wait> and C<exit> are the totals of the wait and exit statuses of each of the tests. These values are totalled only to provide a true value if any of them are non-zero. =cut ############################################################################## =head3 C<total> my $tests_run = $aggregate->total; Returns the total number of tests run. =cut sub total { shift->{total} } ############################################################################## =head3 C<has_problems> if ( $parser->has_problems ) { ... } Identical to C<has_errors>, but also returns true if any TODO tests unexpectedly succeeded. This is more akin to "warnings". =cut sub has_problems { my $self = shift; return $self->todo_passed || $self->has_errors; } ############################################################################## =head3 C<has_errors> if ( $parser->has_errors ) { ... } Returns true if I<any> of the parsers failed. This includes: =over 4 =item * Failed tests =item * Parse errors =item * Bad exit or wait status =back =cut sub has_errors { my $self = shift; return $self->failed || $self->parse_errors || $self->exit || $self->wait; } ############################################################################## =head3 C<todo_failed> # deprecated in favor of 'todo_passed'. This method was horribly misnamed. This was a badly misnamed method. It indicates which TODO tests unexpectedly succeeded. Will now issue a warning and call C<todo_passed>. =cut sub todo_failed { warn '"todo_failed" is deprecated. Please use "todo_passed". See the docs.'; goto &todo_passed; } =head1 See Also L<TAP::Parser> L<TAP::Harness> =cut 1; PK ! ͫP�� � " 5.34.0/TAP/Parser/ResultFactory.pmnu �[��� package TAP::Parser::ResultFactory; use strict; use warnings; use TAP::Parser::Result::Bailout (); use TAP::Parser::Result::Comment (); use TAP::Parser::Result::Plan (); use TAP::Parser::Result::Pragma (); use TAP::Parser::Result::Test (); use TAP::Parser::Result::Unknown (); use TAP::Parser::Result::Version (); use TAP::Parser::Result::YAML (); use base 'TAP::Object'; ############################################################################## =head1 NAME TAP::Parser::ResultFactory - Factory for creating TAP::Parser output objects =head1 SYNOPSIS use TAP::Parser::ResultFactory; my $token = {...}; my $factory = TAP::Parser::ResultFactory->new; my $result = $factory->make_result( $token ); =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head2 DESCRIPTION This is a simple factory class which returns a L<TAP::Parser::Result> subclass representing the current bit of test data from TAP (usually a single line). It is used primarily by L<TAP::Parser::Grammar>. Unless you're subclassing, you probably won't need to use this module directly. =head2 METHODS =head2 Class Methods =head3 C<new> Creates a new factory class. I<Note:> You currently don't need to instantiate a factory in order to use it. =head3 C<make_result> Returns an instance the appropriate class for the test token passed in. my $result = TAP::Parser::ResultFactory->make_result($token); Can also be called as an instance method. =cut sub make_result { my ( $proto, $token ) = @_; my $type = $token->{type}; return $proto->class_for($type)->new($token); } =head3 C<class_for> Takes one argument: C<$type>. Returns the class for this $type, or C<croak>s with an error. =head3 C<register_type> Takes two arguments: C<$type>, C<$class> This lets you override an existing type with your own custom type, or register a completely new type, eg: # create a custom result type: package MyResult; use strict; use base 'TAP::Parser::Result'; # register with the factory: TAP::Parser::ResultFactory->register_type( 'my_type' => __PACKAGE__ ); # use it: my $r = TAP::Parser::ResultFactory->( { type => 'my_type' } ); Your custom type should then be picked up automatically by the L<TAP::Parser>. =cut our %CLASS_FOR = ( plan => 'TAP::Parser::Result::Plan', pragma => 'TAP::Parser::Result::Pragma', test => 'TAP::Parser::Result::Test', comment => 'TAP::Parser::Result::Comment', bailout => 'TAP::Parser::Result::Bailout', version => 'TAP::Parser::Result::Version', unknown => 'TAP::Parser::Result::Unknown', yaml => 'TAP::Parser::Result::YAML', ); sub class_for { my ( $class, $type ) = @_; # return target class: return $CLASS_FOR{$type} if exists $CLASS_FOR{$type}; # or complain: require Carp; Carp::croak("Could not determine class for result type '$type'"); } sub register_type { my ( $class, $type, $rclass ) = @_; # register it blindly, assume they know what they're doing $CLASS_FOR{$type} = $rclass; return $class; } 1; =head1 SUBCLASSING Please see L<TAP::Parser/SUBCLASSING> for a subclassing overview. There are a few things to bear in mind when creating your own C<ResultFactory>: =over 4 =item 1 The factory itself is never instantiated (this I<may> change in the future). This means that C<_initialize> is never called. =item 2 C<TAP::Parser::Result-E<gt>new> is never called, $tokens are reblessed. This I<will> change in a future version! =item 3 L<TAP::Parser::Result> subclasses will register themselves with L<TAP::Parser::ResultFactory> directly: package MyFooResult; TAP::Parser::ResultFactory->register_type( foo => __PACKAGE__ ); Of course, it's up to you to decide whether or not to ignore them. =back =head2 Example package MyResultFactory; use strict; use MyResult; use base 'TAP::Parser::ResultFactory'; # force all results to be 'MyResult' sub class_for { return 'MyResult'; } 1; =head1 SEE ALSO L<TAP::Parser>, L<TAP::Parser::Result>, L<TAP::Parser::Grammar> =cut PK ! 1�� � � 5.34.0/TAP/Parser/Multiplexer.pmnu �[��� package TAP::Parser::Multiplexer; use strict; use warnings; use IO::Select; use base 'TAP::Object'; use constant IS_WIN32 => $^O =~ /^(MS)?Win32$/; use constant IS_VMS => $^O eq 'VMS'; use constant SELECT_OK => !( IS_VMS || IS_WIN32 ); =head1 NAME TAP::Parser::Multiplexer - Multiplex multiple TAP::Parsers =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 SYNOPSIS use TAP::Parser::Multiplexer; my $mux = TAP::Parser::Multiplexer->new; $mux->add( $parser1, $stash1 ); $mux->add( $parser2, $stash2 ); while ( my ( $parser, $stash, $result ) = $mux->next ) { # do stuff } =head1 DESCRIPTION C<TAP::Parser::Multiplexer> gathers input from multiple TAP::Parsers. Internally it calls select on the input file handles for those parsers to wait for one or more of them to have input available. See L<TAP::Harness> for an example of its use. =head1 METHODS =head2 Class Methods =head3 C<new> my $mux = TAP::Parser::Multiplexer->new; Returns a new C<TAP::Parser::Multiplexer> object. =cut # new() implementation supplied by TAP::Object sub _initialize { my $self = shift; $self->{select} = IO::Select->new; $self->{avid} = []; # Parsers that can't select $self->{count} = 0; return $self; } ############################################################################## =head2 Instance Methods =head3 C<add> $mux->add( $parser, $stash ); Add a TAP::Parser to the multiplexer. C<$stash> is an optional opaque reference that will be returned from C<next> along with the parser and the next result. =cut sub add { my ( $self, $parser, $stash ) = @_; if ( SELECT_OK && ( my @handles = $parser->get_select_handles ) ) { my $sel = $self->{select}; # We have to turn handles into file numbers here because by # the time we want to remove them from our IO::Select they # will already have been closed by the iterator. my @filenos = map { fileno $_ } @handles; for my $h (@handles) { $sel->add( [ $h, $parser, $stash, @filenos ] ); } $self->{count}++; } else { push @{ $self->{avid} }, [ $parser, $stash ]; } } =head3 C<parsers> my $count = $mux->parsers; Returns the number of parsers. Parsers are removed from the multiplexer when their input is exhausted. =cut sub parsers { my $self = shift; return $self->{count} + scalar @{ $self->{avid} }; } sub _iter { my $self = shift; my $sel = $self->{select}; my $avid = $self->{avid}; my @ready = (); return sub { # Drain all the non-selectable parsers first if (@$avid) { my ( $parser, $stash ) = @{ $avid->[0] }; my $result = $parser->next; shift @$avid unless defined $result; return ( $parser, $stash, $result ); } unless (@ready) { return unless $sel->count; @ready = $sel->can_read; } my ( $h, $parser, $stash, @handles ) = @{ shift @ready }; my $result = $parser->next; unless ( defined $result ) { $sel->remove(@handles); $self->{count}--; # Force another can_read - we may now have removed a handle # thought to have been ready. @ready = (); } return ( $parser, $stash, $result ); }; } =head3 C<next> Return a result from the next available parser. Returns a list containing the parser from which the result came, the stash that corresponds with that parser and the result. my ( $parser, $stash, $result ) = $mux->next; If C<$result> is undefined the corresponding parser has reached the end of its input (and will automatically be removed from the multiplexer). When all parsers are exhausted an empty list will be returned. if ( my ( $parser, $stash, $result ) = $mux->next ) { if ( ! defined $result ) { # End of this parser } else { # Process result } } else { # All parsers finished } =cut sub next { my $self = shift; return ( $self->{_iter} ||= $self->_iter )->(); } =head1 See Also L<TAP::Parser> L<TAP::Harness> =cut 1; PK ! �C2 5.34.0/TAP/Parser/Result.pmnu �[��� package TAP::Parser::Result; use strict; use warnings; use base 'TAP::Object'; BEGIN { # make is_* methods my @attrs = qw( plan pragma test comment bailout version unknown yaml ); no strict 'refs'; for my $token (@attrs) { my $method = "is_$token"; *$method = sub { return $token eq shift->type }; } } ############################################################################## =head1 NAME TAP::Parser::Result - Base class for TAP::Parser output objects =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 SYNOPSIS # abstract class - not meant to be used directly # see TAP::Parser::ResultFactory for preferred usage # directly: use TAP::Parser::Result; my $token = {...}; my $result = TAP::Parser::Result->new( $token ); =head2 DESCRIPTION This is a simple base class used by L<TAP::Parser> to store objects that represent the current bit of test output data from TAP (usually a single line). Unless you're subclassing, you probably won't need to use this module directly. =head2 METHODS =head3 C<new> # see TAP::Parser::ResultFactory for preferred usage # to use directly: my $result = TAP::Parser::Result->new($token); Returns an instance the appropriate class for the test token passed in. =cut # new() implementation provided by TAP::Object sub _initialize { my ( $self, $token ) = @_; if ($token) { # assign to a hash slice to make a shallow copy of the token. # I guess we could assign to the hash as (by default) there are not # contents, but that seems less helpful if someone wants to subclass us @{$self}{ keys %$token } = values %$token; } return $self; } ############################################################################## =head2 Boolean methods The following methods all return a boolean value and are to be overridden in the appropriate subclass. =over 4 =item * C<is_plan> Indicates whether or not this is the test plan line. 1..3 =item * C<is_pragma> Indicates whether or not this is a pragma line. pragma +strict =item * C<is_test> Indicates whether or not this is a test line. ok 1 Is OK! =item * C<is_comment> Indicates whether or not this is a comment. # this is a comment =item * C<is_bailout> Indicates whether or not this is bailout line. Bail out! We're out of dilithium crystals. =item * C<is_version> Indicates whether or not this is a TAP version line. TAP version 4 =item * C<is_unknown> Indicates whether or not the current line could be parsed. ... this line is junk ... =item * C<is_yaml> Indicates whether or not this is a YAML chunk. =back =cut ############################################################################## =head3 C<raw> print $result->raw; Returns the original line of text which was parsed. =cut sub raw { shift->{raw} } ############################################################################## =head3 C<type> my $type = $result->type; Returns the "type" of a token, such as C<comment> or C<test>. =cut sub type { shift->{type} } ############################################################################## =head3 C<as_string> print $result->as_string; Prints a string representation of the token. This might not be the exact output, however. Tests will have test numbers added if not present, TODO and SKIP directives will be capitalized and, in general, things will be cleaned up. If you need the original text for the token, see the C<raw> method. =cut sub as_string { shift->{raw} } ############################################################################## =head3 C<is_ok> if ( $result->is_ok ) { ... } Reports whether or not a given result has passed. Anything which is B<not> a test result returns true. This is merely provided as a convenient shortcut. =cut sub is_ok {1} ############################################################################## =head3 C<passed> Deprecated. Please use C<is_ok> instead. =cut sub passed { warn 'passed() is deprecated. Please use "is_ok()"'; shift->is_ok; } ############################################################################## =head3 C<has_directive> if ( $result->has_directive ) { ... } Indicates whether or not the given result has a TODO or SKIP directive. =cut sub has_directive { my $self = shift; return ( $self->has_todo || $self->has_skip ); } ############################################################################## =head3 C<has_todo> if ( $result->has_todo ) { ... } Indicates whether or not the given result has a TODO directive. =cut sub has_todo { 'TODO' eq ( shift->{directive} || '' ) } ############################################################################## =head3 C<has_skip> if ( $result->has_skip ) { ... } Indicates whether or not the given result has a SKIP directive. =cut sub has_skip { 'SKIP' eq ( shift->{directive} || '' ) } =head3 C<set_directive> Set the directive associated with this token. Used internally to fake TODO tests. =cut sub set_directive { my ( $self, $dir ) = @_; $self->{directive} = $dir; } 1; =head1 SUBCLASSING Please see L<TAP::Parser/SUBCLASSING> for a subclassing overview. Remember: if you want your subclass to be automatically used by the parser, you'll have to register it with L<TAP::Parser::ResultFactory/register_type>. If you're creating a completely new result I<type>, you'll probably need to subclass L<TAP::Parser::Grammar> too, or else it'll never get used. =head2 Example package MyResult; use strict; use base 'TAP::Parser::Result'; # register with the factory: TAP::Parser::ResultFactory->register_type( 'my_type' => __PACKAGE__ ); sub as_string { 'My results all look the same' } =head1 SEE ALSO L<TAP::Object>, L<TAP::Parser>, L<TAP::Parser::ResultFactory>, L<TAP::Parser::Result::Bailout>, L<TAP::Parser::Result::Comment>, L<TAP::Parser::Result::Plan>, L<TAP::Parser::Result::Pragma>, L<TAP::Parser::Result::Test>, L<TAP::Parser::Result::Unknown>, L<TAP::Parser::Result::Version>, L<TAP::Parser::Result::YAML>, =cut PK ! z�M$s s # 5.34.0/TAP/Parser/YAMLish/Writer.pmnu �[��� package TAP::Parser::YAMLish::Writer; use strict; use warnings; use base 'TAP::Object'; our $VERSION = '3.43'; my $ESCAPE_CHAR = qr{ [ \x00-\x1f \" ] }x; my $ESCAPE_KEY = qr{ (?: ^\W ) | $ESCAPE_CHAR }x; my @UNPRINTABLE = qw( z x01 x02 x03 x04 x05 x06 a x08 t n v f r x0e x0f x10 x11 x12 x13 x14 x15 x16 x17 x18 x19 x1a e x1c x1d x1e x1f ); # new() implementation supplied by TAP::Object sub write { my $self = shift; die "Need something to write" unless @_; my $obj = shift; my $out = shift || \*STDOUT; die "Need a reference to something I can write to" unless ref $out; $self->{writer} = $self->_make_writer($out); $self->_write_obj( '---', $obj ); $self->_put('...'); delete $self->{writer}; } sub _make_writer { my $self = shift; my $out = shift; my $ref = ref $out; if ( 'CODE' eq $ref ) { return $out; } elsif ( 'ARRAY' eq $ref ) { return sub { push @$out, shift }; } elsif ( 'SCALAR' eq $ref ) { return sub { $$out .= shift() . "\n" }; } elsif ( 'GLOB' eq $ref || 'IO::Handle' eq $ref ) { return sub { print $out shift(), "\n" }; } die "Can't write to $out"; } sub _put { my $self = shift; $self->{writer}->( join '', @_ ); } sub _enc_scalar { my $self = shift; my $val = shift; my $rule = shift; return '~' unless defined $val; if ( $val =~ /$rule/ ) { $val =~ s/\\/\\\\/g; $val =~ s/"/\\"/g; $val =~ s/ ( [\x00-\x1f] ) / '\\' . $UNPRINTABLE[ ord($1) ] /gex; return qq{"$val"}; } if ( length($val) == 0 or $val =~ /\s/ ) { $val =~ s/'/''/; return "'$val'"; } return $val; } sub _write_obj { my $self = shift; my $prefix = shift; my $obj = shift; my $indent = shift || 0; if ( my $ref = ref $obj ) { my $pad = ' ' x $indent; if ( 'HASH' eq $ref ) { if ( keys %$obj ) { $self->_put($prefix); for my $key ( sort keys %$obj ) { my $value = $obj->{$key}; $self->_write_obj( $pad . $self->_enc_scalar( $key, $ESCAPE_KEY ) . ':', $value, $indent + 1 ); } } else { $self->_put( $prefix, ' {}' ); } } elsif ( 'ARRAY' eq $ref ) { if (@$obj) { $self->_put($prefix); for my $value (@$obj) { $self->_write_obj( $pad . '-', $value, $indent + 1 ); } } else { $self->_put( $prefix, ' []' ); } } else { die "Don't know how to encode $ref"; } } else { $self->_put( $prefix, ' ', $self->_enc_scalar( $obj, $ESCAPE_CHAR ) ); } } 1; __END__ =pod =head1 NAME TAP::Parser::YAMLish::Writer - Write YAMLish data =head1 VERSION Version 3.43 =head1 SYNOPSIS use TAP::Parser::YAMLish::Writer; my $data = { one => 1, two => 2, three => [ 1, 2, 3 ], }; my $yw = TAP::Parser::YAMLish::Writer->new; # Write to an array... $yw->write( $data, \@some_array ); # ...an open file handle... $yw->write( $data, $some_file_handle ); # ...a string ... $yw->write( $data, \$some_string ); # ...or a closure $yw->write( $data, sub { my $line = shift; print "$line\n"; } ); =head1 DESCRIPTION Encodes a scalar, hash reference or array reference as YAMLish. =head1 METHODS =head2 Class Methods =head3 C<new> my $writer = TAP::Parser::YAMLish::Writer->new; The constructor C<new> creates and returns an empty C<TAP::Parser::YAMLish::Writer> object. =head2 Instance Methods =head3 C<write> $writer->write($obj, $output ); Encode a scalar, hash reference or array reference as YAML. my $writer = sub { my $line = shift; print SOMEFILE "$line\n"; }; my $data = { one => 1, two => 2, three => [ 1, 2, 3 ], }; my $yw = TAP::Parser::YAMLish::Writer->new; $yw->write( $data, $writer ); The C< $output > argument may be: =over =item * a reference to a scalar to append YAML to =item * the handle of an open file =item * a reference to an array into which YAML will be pushed =item * a code reference =back If you supply a code reference the subroutine will be called once for each line of output with the line as its only argument. Passed lines will have no trailing newline. =head1 AUTHOR Andy Armstrong, <andy@hexten.net> =head1 SEE ALSO L<YAML::Tiny>, L<YAML>, L<YAML::Syck>, L<Config::Tiny>, L<CSS::Tiny>, L<http://use.perl.org/~Alias/journal/29427> =head1 COPYRIGHT Copyright 2007-2011 Andy Armstrong. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. The full text of the license can be found in the LICENSE file included with this module. =cut PK ! [ � � # 5.34.0/TAP/Parser/YAMLish/Reader.pmnu �[��� package TAP::Parser::YAMLish::Reader; use strict; use warnings; use base 'TAP::Object'; our $VERSION = '3.43'; # TODO: # Handle blessed object syntax # Printable characters for escapes my %UNESCAPES = ( z => "\x00", a => "\x07", t => "\x09", n => "\x0a", v => "\x0b", f => "\x0c", r => "\x0d", e => "\x1b", '\\' => '\\', ); my $QQ_STRING = qr{ " (?:\\. | [^"])* " }x; my $HASH_LINE = qr{ ^ ($QQ_STRING|\S+) \s* : \s* (?: (.+?) \s* )? $ }x; my $IS_HASH_KEY = qr{ ^ [\w\'\"] }x; my $IS_END_YAML = qr{ ^ \.\.\. \s* $ }x; my $IS_QQ_STRING = qr{ ^ $QQ_STRING $ }x; # new() implementation supplied by TAP::Object sub read { my $self = shift; my $obj = shift; die "Must have a code reference to read input from" unless ref $obj eq 'CODE'; $self->{reader} = $obj; $self->{capture} = []; # Prime the reader $self->_next; return unless $self->{next}; my $doc = $self->_read; # The terminator is mandatory otherwise we'd consume a line from the # iterator that doesn't belong to us. If we want to remove this # restriction we'll have to implement look-ahead in the iterators. # Which might not be a bad idea. my $dots = $self->_peek; die "Missing '...' at end of YAMLish" unless defined $dots and $dots =~ $IS_END_YAML; delete $self->{reader}; delete $self->{next}; return $doc; } sub get_raw { join( "\n", grep defined, @{ shift->{capture} || [] } ) . "\n" } sub _peek { my $self = shift; return $self->{next} unless wantarray; my $line = $self->{next}; $line =~ /^ (\s*) (.*) $ /x; return ( $2, length $1 ); } sub _next { my $self = shift; die "_next called with no reader" unless $self->{reader}; my $line = $self->{reader}->(); $self->{next} = $line; push @{ $self->{capture} }, $line; } sub _read { my $self = shift; my $line = $self->_peek; # Do we have a document header? if ( $line =~ /^ --- (?: \s* (.+?)? \s* )? $/x ) { $self->_next; return $self->_read_scalar($1) if defined $1; # Inline? my ( $next, $indent ) = $self->_peek; if ( $next =~ /^ - /x ) { return $self->_read_array($indent); } elsif ( $next =~ $IS_HASH_KEY ) { return $self->_read_hash( $next, $indent ); } elsif ( $next =~ $IS_END_YAML ) { die "Premature end of YAMLish"; } else { die "Unsupported YAMLish syntax: '$next'"; } } else { die "YAMLish document header not found"; } } # Parse a double quoted string sub _read_qq { my $self = shift; my $str = shift; unless ( $str =~ s/^ " (.*?) " $/$1/x ) { die "Internal: not a quoted string"; } $str =~ s/\\"/"/gx; $str =~ s/ \\ ( [tartan\\favez] | x([0-9a-fA-F]{2}) ) / (length($1) > 1) ? pack("H2", $2) : $UNESCAPES{$1} /gex; return $str; } # Parse a scalar string to the actual scalar sub _read_scalar { my $self = shift; my $string = shift; return undef if $string eq '~'; return {} if $string eq '{}'; return [] if $string eq '[]'; if ( $string eq '>' || $string eq '|' ) { my ( $line, $indent ) = $self->_peek; die "Multi-line scalar content missing" unless defined $line; my @multiline = ($line); while (1) { $self->_next; my ( $next, $ind ) = $self->_peek; last if $ind < $indent; my $pad = $string eq '|' ? ( ' ' x ( $ind - $indent ) ) : ''; push @multiline, $pad . $next; } return join( ( $string eq '>' ? ' ' : "\n" ), @multiline ) . "\n"; } if ( $string =~ /^ ' (.*) ' $/x ) { ( my $rv = $1 ) =~ s/''/'/g; return $rv; } if ( $string =~ $IS_QQ_STRING ) { return $self->_read_qq($string); } if ( $string =~ /^['"]/ ) { # A quote with folding... we don't support that die __PACKAGE__ . " does not support multi-line quoted scalars"; } # Regular unquoted string return $string; } sub _read_nested { my $self = shift; my ( $line, $indent ) = $self->_peek; if ( $line =~ /^ -/x ) { return $self->_read_array($indent); } elsif ( $line =~ $IS_HASH_KEY ) { return $self->_read_hash( $line, $indent ); } else { die "Unsupported YAMLish syntax: '$line'"; } } # Parse an array sub _read_array { my ( $self, $limit ) = @_; my $ar = []; while (1) { my ( $line, $indent ) = $self->_peek; last if $indent < $limit || !defined $line || $line =~ $IS_END_YAML; if ( $indent > $limit ) { die "Array line over-indented"; } if ( $line =~ /^ (- \s+) \S+ \s* : (?: \s+ | $ ) /x ) { $indent += length $1; $line =~ s/-\s+//; push @$ar, $self->_read_hash( $line, $indent ); } elsif ( $line =~ /^ - \s* (.+?) \s* $/x ) { die "Unexpected start of YAMLish" if $line =~ /^---/; $self->_next; push @$ar, $self->_read_scalar($1); } elsif ( $line =~ /^ - \s* $/x ) { $self->_next; push @$ar, $self->_read_nested; } elsif ( $line =~ $IS_HASH_KEY ) { $self->_next; push @$ar, $self->_read_hash( $line, $indent, ); } else { die "Unsupported YAMLish syntax: '$line'"; } } return $ar; } sub _read_hash { my ( $self, $line, $limit ) = @_; my $indent; my $hash = {}; while (1) { die "Badly formed hash line: '$line'" unless $line =~ $HASH_LINE; my ( $key, $value ) = ( $self->_read_scalar($1), $2 ); $self->_next; if ( defined $value ) { $hash->{$key} = $self->_read_scalar($value); } else { $hash->{$key} = $self->_read_nested; } ( $line, $indent ) = $self->_peek; last if $indent < $limit || !defined $line || $line =~ $IS_END_YAML; } return $hash; } 1; __END__ =pod =head1 NAME TAP::Parser::YAMLish::Reader - Read YAMLish data from iterator =head1 VERSION Version 3.43 =head1 SYNOPSIS =head1 DESCRIPTION Note that parts of this code were derived from L<YAML::Tiny> with the permission of Adam Kennedy. =head1 METHODS =head2 Class Methods =head3 C<new> The constructor C<new> creates and returns an empty C<TAP::Parser::YAMLish::Reader> object. my $reader = TAP::Parser::YAMLish::Reader->new; =head2 Instance Methods =head3 C<read> my $got = $reader->read($iterator); Read YAMLish from a L<TAP::Parser::Iterator> and return the data structure it represents. =head3 C<get_raw> my $source = $reader->get_source; Return the raw YAMLish source from the most recent C<read>. =head1 AUTHOR Andy Armstrong, <andy@hexten.net> Adam Kennedy wrote L<YAML::Tiny> which provided the template and many of the YAML matching regular expressions for this module. =head1 SEE ALSO L<YAML::Tiny>, L<YAML>, L<YAML::Syck>, L<Config::Tiny>, L<CSS::Tiny>, L<http://use.perl.org/~Alias/journal/29427> =head1 COPYRIGHT Copyright 2007-2011 Andy Armstrong. Portions copyright 2006-2008 Adam Kennedy. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. The full text of the license can be found in the LICENSE file included with this module. =cut PK ! j�ľ � 5.34.0/TAP/Parser/Result/Test.pmnu �[��� package TAP::Parser::Result::Test; use strict; use warnings; use base 'TAP::Parser::Result'; =head1 NAME TAP::Parser::Result::Test - Test result token. =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 DESCRIPTION This is a subclass of L<TAP::Parser::Result>. A token of this class will be returned if a test line is encountered. 1..1 ok 1 - woo hooo! =head1 OVERRIDDEN METHODS This class is the workhorse of the L<TAP::Parser> system. Most TAP lines will be test lines and if C<< $result->is_test >>, then you have a bunch of methods at your disposal. =head2 Instance Methods =cut ############################################################################## =head3 C<ok> my $ok = $result->ok; Returns the literal text of the C<ok> or C<not ok> status. =cut sub ok { shift->{ok} } ############################################################################## =head3 C<number> my $test_number = $result->number; Returns the number of the test, even if the original TAP output did not supply that number. =cut sub number { shift->{test_num} } sub _number { my ( $self, $number ) = @_; $self->{test_num} = $number; } ############################################################################## =head3 C<description> my $description = $result->description; Returns the description of the test, if any. This is the portion after the test number but before the directive. =cut sub description { shift->{description} } ############################################################################## =head3 C<directive> my $directive = $result->directive; Returns either C<TODO> or C<SKIP> if either directive was present for a test line. =cut sub directive { shift->{directive} } ############################################################################## =head3 C<explanation> my $explanation = $result->explanation; If a test had either a C<TODO> or C<SKIP> directive, this method will return the accompanying explanation, if present. not ok 17 - 'Pigs can fly' # TODO not enough acid For the above line, the explanation is I<not enough acid>. =cut sub explanation { shift->{explanation} } ############################################################################## =head3 C<is_ok> if ( $result->is_ok ) { ... } Returns a boolean value indicating whether or not the test passed. Remember that for TODO tests, the test always passes. If the test is unplanned, this method will always return false. See C<is_unplanned>. =cut sub is_ok { my $self = shift; return if $self->is_unplanned; # TODO directives reverse the sense of a test. return $self->has_todo ? 1 : $self->ok !~ /not/; } ############################################################################## =head3 C<is_actual_ok> if ( $result->is_actual_ok ) { ... } Returns a boolean value indicating whether or not the test passed, regardless of its TODO status. =cut sub is_actual_ok { my $self = shift; return $self->{ok} !~ /not/; } ############################################################################## =head3 C<actual_passed> Deprecated. Please use C<is_actual_ok> instead. =cut sub actual_passed { warn 'actual_passed() is deprecated. Please use "is_actual_ok()"'; goto &is_actual_ok; } ############################################################################## =head3 C<todo_passed> if ( $test->todo_passed ) { # test unexpectedly succeeded } If this is a TODO test and an 'ok' line, this method returns true. Otherwise, it will always return false (regardless of passing status on non-todo tests). This is used to track which tests unexpectedly succeeded. =cut sub todo_passed { my $self = shift; return $self->has_todo && $self->is_actual_ok; } ############################################################################## =head3 C<todo_failed> # deprecated in favor of 'todo_passed'. This method was horribly misnamed. This was a badly misnamed method. It indicates which TODO tests unexpectedly succeeded. Will now issue a warning and call C<todo_passed>. =cut sub todo_failed { warn 'todo_failed() is deprecated. Please use "todo_passed()"'; goto &todo_passed; } ############################################################################## =head3 C<has_skip> if ( $result->has_skip ) { ... } Returns a boolean value indicating whether or not this test has a SKIP directive. =head3 C<has_todo> if ( $result->has_todo ) { ... } Returns a boolean value indicating whether or not this test has a TODO directive. =head3 C<as_string> print $result->as_string; This method prints the test as a string. It will probably be similar, but not necessarily identical, to the original test line. Directives are capitalized, some whitespace may be trimmed and a test number will be added if it was not present in the original line. If you need the original text of the test line, use the C<raw> method. =cut sub as_string { my $self = shift; my $string = $self->ok . " " . $self->number; if ( my $description = $self->description ) { $string .= " $description"; } if ( my $directive = $self->directive ) { my $explanation = $self->explanation; $string .= " # $directive $explanation"; } return $string; } ############################################################################## =head3 C<is_unplanned> if ( $test->is_unplanned ) { ... } $test->is_unplanned(1); If a test number is greater than the number of planned tests, this method will return true. Unplanned tests will I<always> return false for C<is_ok>, regardless of whether or not the test C<has_todo>. Note that if tests have a trailing plan, it is not possible to set this property for unplanned tests as we do not know it's unplanned until the plan is reached: print <<'END'; ok 1 ok 2 1..1 END =cut sub is_unplanned { my $self = shift; return ( $self->{unplanned} || '' ) unless @_; $self->{unplanned} = !!shift; return $self; } 1; PK ! .�p p 5.34.0/TAP/Parser/Result/YAML.pmnu �[��� package TAP::Parser::Result::YAML; use strict; use warnings; use base 'TAP::Parser::Result'; =head1 NAME TAP::Parser::Result::YAML - YAML result token. =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 DESCRIPTION This is a subclass of L<TAP::Parser::Result>. A token of this class will be returned if a YAML block is encountered. 1..1 ok 1 - woo hooo! C<1..1> is the plan. Gotta have a plan. =head1 OVERRIDDEN METHODS Mainly listed here to shut up the pitiful screams of the pod coverage tests. They keep me awake at night. =over 4 =item * C<as_string> =item * C<raw> =back =cut ############################################################################## =head2 Instance Methods =head3 C<data> if ( $result->is_yaml ) { print $result->data; } Return the parsed YAML data for this result =cut sub data { shift->{data} } 1; PK ! (A�I� � # 5.34.0/TAP/Parser/Result/Unknown.pmnu �[��� package TAP::Parser::Result::Unknown; use strict; use warnings; use base 'TAP::Parser::Result'; =head1 NAME TAP::Parser::Result::Unknown - Unknown result token. =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 DESCRIPTION This is a subclass of L<TAP::Parser::Result>. A token of this class will be returned if the parser does not recognize the token line. For example: 1..5 VERSION 7 ok 1 - woo hooo! ... woo hooo! is cool! In the above "TAP", the second and fourth lines will generate "Unknown" tokens. =head1 OVERRIDDEN METHODS Mainly listed here to shut up the pitiful screams of the pod coverage tests. They keep me awake at night. =over 4 =item * C<as_string> =item * C<raw> =back =cut 1; PK ! Ĩ�� � # 5.34.0/TAP/Parser/Result/Version.pmnu �[��� package TAP::Parser::Result::Version; use strict; use warnings; use base 'TAP::Parser::Result'; =head1 NAME TAP::Parser::Result::Version - TAP syntax version token. =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 DESCRIPTION This is a subclass of L<TAP::Parser::Result>. A token of this class will be returned if a version line is encountered. TAP version 13 ok 1 not ok 2 The first version of TAP to include an explicit version number is 13. =head1 OVERRIDDEN METHODS Mainly listed here to shut up the pitiful screams of the pod coverage tests. They keep me awake at night. =over 4 =item * C<as_string> =item * C<raw> =back =cut ############################################################################## =head2 Instance Methods =head3 C<version> if ( $result->is_version ) { print $result->version; } This is merely a synonym for C<as_string>. =cut sub version { shift->{version} } 1; PK ! |Ȏ_| | # 5.34.0/TAP/Parser/Result/Bailout.pmnu �[��� package TAP::Parser::Result::Bailout; use strict; use warnings; use base 'TAP::Parser::Result'; =head1 NAME TAP::Parser::Result::Bailout - Bailout result token. =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 DESCRIPTION This is a subclass of L<TAP::Parser::Result>. A token of this class will be returned if a bail out line is encountered. 1..5 ok 1 - woo hooo! Bail out! Well, so much for "woo hooo!" =head1 OVERRIDDEN METHODS Mainly listed here to shut up the pitiful screams of the pod coverage tests. They keep me awake at night. =over 4 =item * C<as_string> =back =cut ############################################################################## =head2 Instance Methods =head3 C<explanation> if ( $result->is_bailout ) { my $explanation = $result->explanation; print "We bailed out because ($explanation)"; } If, and only if, a token is a bailout token, you can get an "explanation" via this method. The explanation is the text after the mystical "Bail out!" words which appear in the tap output. =cut sub explanation { shift->{bailout} } sub as_string { shift->{bailout} } 1; PK ! �L� 5.34.0/TAP/Parser/Result/Plan.pmnu �[��� package TAP::Parser::Result::Plan; use strict; use warnings; use base 'TAP::Parser::Result'; =head1 NAME TAP::Parser::Result::Plan - Plan result token. =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 DESCRIPTION This is a subclass of L<TAP::Parser::Result>. A token of this class will be returned if a plan line is encountered. 1..1 ok 1 - woo hooo! C<1..1> is the plan. Gotta have a plan. =head1 OVERRIDDEN METHODS Mainly listed here to shut up the pitiful screams of the pod coverage tests. They keep me awake at night. =over 4 =item * C<as_string> =item * C<raw> =back =cut ############################################################################## =head2 Instance Methods =head3 C<plan> if ( $result->is_plan ) { print $result->plan; } This is merely a synonym for C<as_string>. =cut sub plan { '1..' . shift->{tests_planned} } ############################################################################## =head3 C<tests_planned> my $planned = $result->tests_planned; Returns the number of tests planned. For example, a plan of C<1..17> will cause this method to return '17'. =cut sub tests_planned { shift->{tests_planned} } ############################################################################## =head3 C<directive> my $directive = $plan->directive; If a SKIP directive is included with the plan, this method will return it. 1..0 # SKIP: why bother? =cut sub directive { shift->{directive} } ############################################################################## =head3 C<has_skip> if ( $result->has_skip ) { ... } Returns a boolean value indicating whether or not this test has a SKIP directive. =head3 C<explanation> my $explanation = $plan->explanation; If a SKIP directive was included with the plan, this method will return the explanation, if any. =cut sub explanation { shift->{explanation} } =head3 C<todo_list> my $todo = $result->todo_list; for ( @$todo ) { ... } =cut sub todo_list { shift->{todo_list} } 1; PK ! L6-�� � # 5.34.0/TAP/Parser/Result/Comment.pmnu �[��� package TAP::Parser::Result::Comment; use strict; use warnings; use base 'TAP::Parser::Result'; =head1 NAME TAP::Parser::Result::Comment - Comment result token. =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 DESCRIPTION This is a subclass of L<TAP::Parser::Result>. A token of this class will be returned if a comment line is encountered. 1..1 ok 1 - woo hooo! # this is a comment =head1 OVERRIDDEN METHODS Mainly listed here to shut up the pitiful screams of the pod coverage tests. They keep me awake at night. =over 4 =item * C<as_string> Note that this method merely returns the comment preceded by a '# '. =back =cut ############################################################################## =head2 Instance Methods =head3 C<comment> if ( $result->is_comment ) { my $comment = $result->comment; print "I have something to say: $comment"; } =cut sub comment { shift->{comment} } sub as_string { shift->{raw} } 1; PK ! ��E̲ � " 5.34.0/TAP/Parser/Result/Pragma.pmnu �[��� package TAP::Parser::Result::Pragma; use strict; use warnings; use base 'TAP::Parser::Result'; =head1 NAME TAP::Parser::Result::Pragma - TAP pragma token. =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 DESCRIPTION This is a subclass of L<TAP::Parser::Result>. A token of this class will be returned if a pragma is encountered. TAP version 13 pragma +strict, -foo Pragmas are only supported from TAP version 13 onwards. =head1 OVERRIDDEN METHODS Mainly listed here to shut up the pitiful screams of the pod coverage tests. They keep me awake at night. =over 4 =item * C<as_string> =item * C<raw> =back =cut ############################################################################## =head2 Instance Methods =head3 C<pragmas> if ( $result->is_pragma ) { @pragmas = $result->pragmas; } =cut sub pragmas { my @pragmas = @{ shift->{pragmas} }; return wantarray ? @pragmas : \@pragmas; } 1; PK ! ~�V�O% O% 5.34.0/TAP/Parser/Source.pmnu �[��� package TAP::Parser::Source; use strict; use warnings; use File::Basename qw( fileparse ); use base 'TAP::Object'; use constant BLK_SIZE => 512; =head1 NAME TAP::Parser::Source - a TAP source & meta data about it =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 SYNOPSIS use TAP::Parser::Source; my $source = TAP::Parser::Source->new; $source->raw( \'reference to raw TAP source' ) ->config( \%config ) ->merge( $boolean ) ->switches( \@switches ) ->test_args( \@args ) ->assemble_meta; do { ... } if $source->meta->{is_file}; # see assemble_meta for a full list of data available =head1 DESCRIPTION A TAP I<source> is something that produces a stream of TAP for the parser to consume, such as an executable file, a text file, an archive, an IO handle, a database, etc. C<TAP::Parser::Source>s encapsulate these I<raw> sources, and provide some useful meta data about them. They are used by L<TAP::Parser::SourceHandler>s, which do whatever is required to produce & capture a stream of TAP from the I<raw> source, and package it up in a L<TAP::Parser::Iterator> for the parser to consume. Unless you're writing a new L<TAP::Parser::SourceHandler>, a plugin or subclassing L<TAP::Parser>, you probably won't need to use this module directly. =head1 METHODS =head2 Class Methods =head3 C<new> my $source = TAP::Parser::Source->new; Returns a new C<TAP::Parser::Source> object. =cut # new() implementation supplied by TAP::Object sub _initialize { my ($self) = @_; $self->meta( {} ); $self->config( {} ); return $self; } ############################################################################## =head2 Instance Methods =head3 C<raw> my $raw = $source->raw; $source->raw( $some_value ); Chaining getter/setter for the raw TAP source. This is a reference, as it may contain large amounts of data (eg: raw TAP). =head3 C<meta> my $meta = $source->meta; $source->meta({ %some_value }); Chaining getter/setter for meta data about the source. This defaults to an empty hashref. See L</assemble_meta> for more info. =head3 C<has_meta> True if the source has meta data. =head3 C<config> my $config = $source->config; $source->config({ %some_value }); Chaining getter/setter for the source's configuration, if any has been provided by the user. How it's used is up to you. This defaults to an empty hashref. See L</config_for> for more info. =head3 C<merge> my $merge = $source->merge; $source->config( $bool ); Chaining getter/setter for the flag that dictates whether STDOUT and STDERR should be merged (where appropriate). Defaults to undef. =head3 C<switches> my $switches = $source->switches; $source->config([ @switches ]); Chaining getter/setter for the list of command-line switches that should be passed to the source (where appropriate). Defaults to undef. =head3 C<test_args> my $test_args = $source->test_args; $source->config([ @test_args ]); Chaining getter/setter for the list of command-line arguments that should be passed to the source (where appropriate). Defaults to undef. =cut sub raw { my $self = shift; return $self->{raw} unless @_; $self->{raw} = shift; return $self; } sub meta { my $self = shift; return $self->{meta} unless @_; $self->{meta} = shift; return $self; } sub has_meta { return scalar %{ shift->meta } ? 1 : 0; } sub config { my $self = shift; return $self->{config} unless @_; $self->{config} = shift; return $self; } sub merge { my $self = shift; return $self->{merge} unless @_; $self->{merge} = shift; return $self; } sub switches { my $self = shift; return $self->{switches} unless @_; $self->{switches} = shift; return $self; } sub test_args { my $self = shift; return $self->{test_args} unless @_; $self->{test_args} = shift; return $self; } =head3 C<assemble_meta> my $meta = $source->assemble_meta; Gathers meta data about the L</raw> source, stashes it in L</meta> and returns it as a hashref. This is done so that the L<TAP::Parser::SourceHandler>s don't have to repeat common checks. Currently this includes: is_scalar => $bool, is_hash => $bool, is_array => $bool, # for scalars: length => $n has_newlines => $bool # only done if the scalar looks like a filename is_file => $bool, is_dir => $bool, is_symlink => $bool, file => { # only done if the scalar looks like a filename basename => $string, # including ext dir => $string, ext => $string, lc_ext => $string, # system checks exists => $bool, stat => [ ... ], # perldoc -f stat empty => $bool, size => $n, text => $bool, binary => $bool, read => $bool, write => $bool, execute => $bool, setuid => $bool, setgid => $bool, sticky => $bool, is_file => $bool, is_dir => $bool, is_symlink => $bool, # only done if the file's a symlink lstat => [ ... ], # perldoc -f lstat # only done if the file's a readable text file shebang => $first_line, } # for arrays: size => $n, =cut sub assemble_meta { my ($self) = @_; return $self->meta if $self->has_meta; my $meta = $self->meta; my $raw = $self->raw; # rudimentary is object test - if it's blessed it'll # inherit from UNIVERSAL $meta->{is_object} = UNIVERSAL::isa( $raw, 'UNIVERSAL' ) ? 1 : 0; if ( $meta->{is_object} ) { $meta->{class} = ref($raw); } else { my $ref = lc( ref($raw) ); $meta->{"is_$ref"} = 1; } if ( $meta->{is_scalar} ) { my $source = $$raw; $meta->{length} = length($$raw); $meta->{has_newlines} = $$raw =~ /\n/ ? 1 : 0; # only do file checks if it looks like a filename if ( !$meta->{has_newlines} and $meta->{length} < 1024 ) { my $file = {}; $file->{exists} = -e $source ? 1 : 0; if ( $file->{exists} ) { $meta->{file} = $file; # avoid extra system calls (see `perldoc -f -X`) $file->{stat} = [ stat(_) ]; $file->{empty} = -z _ ? 1 : 0; $file->{size} = -s _; $file->{text} = -T _ ? 1 : 0; $file->{binary} = -B _ ? 1 : 0; $file->{read} = -r _ ? 1 : 0; $file->{write} = -w _ ? 1 : 0; $file->{execute} = -x _ ? 1 : 0; $file->{setuid} = -u _ ? 1 : 0; $file->{setgid} = -g _ ? 1 : 0; $file->{sticky} = -k _ ? 1 : 0; $meta->{is_file} = $file->{is_file} = -f _ ? 1 : 0; $meta->{is_dir} = $file->{is_dir} = -d _ ? 1 : 0; # symlink check requires another system call $meta->{is_symlink} = $file->{is_symlink} = -l $source ? 1 : 0; if ( $file->{is_symlink} ) { $file->{lstat} = [ lstat(_) ]; } # put together some common info about the file ( $file->{basename}, $file->{dir}, $file->{ext} ) = map { defined $_ ? $_ : '' } fileparse( $source, qr/\.[^.]*/ ); $file->{lc_ext} = lc( $file->{ext} ); $file->{basename} .= $file->{ext} if $file->{ext}; if ( !$file->{is_dir} && $file->{read} ) { eval { $file->{shebang} = $self->shebang($$raw); }; if ( my $e = $@ ) { warn $e; } } } } } elsif ( $meta->{is_array} ) { $meta->{size} = $#$raw + 1; } elsif ( $meta->{is_hash} ) { ; # do nothing } return $meta; } =head3 C<shebang> Get the shebang line for a script file. my $shebang = TAP::Parser::Source->shebang( $some_script ); May be called as a class method =cut { # Global shebang cache. my %shebang_for; sub _read_shebang { my ( $class, $file ) = @_; open my $fh, '<', $file or die "Can't read $file: $!\n"; # Might be a binary file - so read a fixed number of bytes. my $got = read $fh, my ($buf), BLK_SIZE; defined $got or die "I/O error: $!\n"; return $1 if $buf =~ /(.*)/; return; } sub shebang { my ( $class, $file ) = @_; $shebang_for{$file} = $class->_read_shebang($file) unless exists $shebang_for{$file}; return $shebang_for{$file}; } } =head3 C<config_for> my $config = $source->config_for( $class ); Returns L</config> for the $class given. Class names may be fully qualified or abbreviated, eg: # these are equivalent $source->config_for( 'Perl' ); $source->config_for( 'TAP::Parser::SourceHandler::Perl' ); If a fully qualified $class is given, its abbreviated version is checked first. =cut sub config_for { my ( $self, $class ) = @_; my ($abbrv_class) = ( $class =~ /(?:\:\:)?(\w+)$/ ); my $config = $self->config->{$abbrv_class} || $self->config->{$class}; return $config; } 1; __END__ =head1 AUTHORS Steve Purkis. =head1 SEE ALSO L<TAP::Object>, L<TAP::Parser>, L<TAP::Parser::IteratorFactory>, L<TAP::Parser::SourceHandler> =cut PK ! FJ�u� � ' 5.34.0/TAP/Parser/SourceHandler/File.pmnu �[��� package TAP::Parser::SourceHandler::File; use strict; use warnings; use TAP::Parser::IteratorFactory (); use TAP::Parser::Iterator::Stream (); use base 'TAP::Parser::SourceHandler'; TAP::Parser::IteratorFactory->register_handler(__PACKAGE__); =head1 NAME TAP::Parser::SourceHandler::File - Stream TAP from a text file. =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 SYNOPSIS use TAP::Parser::Source; use TAP::Parser::SourceHandler::File; my $source = TAP::Parser::Source->new->raw( \'file.tap' ); $source->assemble_meta; my $class = 'TAP::Parser::SourceHandler::File'; my $vote = $class->can_handle( $source ); my $iter = $class->make_iterator( $source ); =head1 DESCRIPTION This is a I<raw TAP stored in a file> L<TAP::Parser::SourceHandler> - it has 2 jobs: 1. Figure out if the I<raw> source it's given is a file containing raw TAP output. See L<TAP::Parser::IteratorFactory> for more details. 2. Takes raw TAP from the text file given, and converts into an iterator. Unless you're writing a plugin or subclassing L<TAP::Parser>, you probably won't need to use this module directly. =head1 METHODS =head2 Class Methods =head3 C<can_handle> my $vote = $class->can_handle( $source ); Only votes if $source looks like a regular file. Casts the following votes: 0.9 if it's a .tap file 0.9 if it has an extension matching any given in user config. =cut sub can_handle { my ( $class, $src ) = @_; my $meta = $src->meta; my $config = $src->config_for($class); return 0 unless $meta->{is_file}; my $file = $meta->{file}; return 0.9 if $file->{lc_ext} eq '.tap'; if ( my $exts = $config->{extensions} ) { my @exts = ref $exts eq 'ARRAY' ? @$exts : $exts; return 0.9 if grep { lc($_) eq $file->{lc_ext} } @exts; } return 0; } =head3 C<make_iterator> my $iterator = $class->make_iterator( $source ); Returns a new L<TAP::Parser::Iterator::Stream> for the source. C<croak>s on error. =cut sub make_iterator { my ( $class, $source ) = @_; $class->_croak('$source->raw must be a scalar ref') unless $source->meta->{is_scalar}; my $file = ${ $source->raw }; my $fh; open( $fh, '<', $file ) or $class->_croak("error opening TAP source file '$file': $!"); return $class->iterator_class->new($fh); } =head3 C<iterator_class> The class of iterator to use, override if you're sub-classing. Defaults to L<TAP::Parser::Iterator::Stream>. =cut use constant iterator_class => 'TAP::Parser::Iterator::Stream'; 1; __END__ =head1 CONFIGURATION { extensions => [ @case_insensitive_exts_to_match ] } =head1 SUBCLASSING Please see L<TAP::Parser/SUBCLASSING> for a subclassing overview. =head1 SEE ALSO L<TAP::Object>, L<TAP::Parser>, L<TAP::Parser::SourceHandler>, L<TAP::Parser::SourceHandler::Executable>, L<TAP::Parser::SourceHandler::Perl>, L<TAP::Parser::SourceHandler::Handle>, L<TAP::Parser::SourceHandler::RawTAP> =cut PK ! ��[ [ ) 5.34.0/TAP/Parser/SourceHandler/Handle.pmnu �[��� package TAP::Parser::SourceHandler::Handle; use strict; use warnings; use TAP::Parser::IteratorFactory (); use TAP::Parser::Iterator::Stream (); use base 'TAP::Parser::SourceHandler'; TAP::Parser::IteratorFactory->register_handler(__PACKAGE__); =head1 NAME TAP::Parser::SourceHandler::Handle - Stream TAP from an IO::Handle or a GLOB. =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 SYNOPSIS use TAP::Parser::Source; use TAP::Parser::SourceHandler::Executable; my $source = TAP::Parser::Source->new->raw( \*TAP_FILE ); $source->assemble_meta; my $class = 'TAP::Parser::SourceHandler::Handle'; my $vote = $class->can_handle( $source ); my $iter = $class->make_iterator( $source ); =head1 DESCRIPTION This is a I<raw TAP stored in an IO Handle> L<TAP::Parser::SourceHandler> class. It has 2 jobs: 1. Figure out if the L<TAP::Parser::Source> it's given is an L<IO::Handle> or GLOB containing raw TAP output (L</can_handle>). 2. Creates an iterator for IO::Handle's & globs (L</make_iterator>). Unless you're writing a plugin or subclassing L<TAP::Parser>, you probably won't need to use this module directly. =head1 METHODS =head2 Class Methods =head3 C<can_handle> my $vote = $class->can_handle( $source ); Casts the following votes: 0.9 if $source is an IO::Handle 0.8 if $source is a glob =cut sub can_handle { my ( $class, $src ) = @_; my $meta = $src->meta; return 0.9 if $meta->{is_object} && UNIVERSAL::isa( $src->raw, 'IO::Handle' ); return 0.8 if $meta->{is_glob}; return 0; } =head3 C<make_iterator> my $iterator = $class->make_iterator( $source ); Returns a new L<TAP::Parser::Iterator::Stream> for the source. =cut sub make_iterator { my ( $class, $source ) = @_; $class->_croak('$source->raw must be a glob ref or an IO::Handle') unless $source->meta->{is_glob} || UNIVERSAL::isa( $source->raw, 'IO::Handle' ); return $class->iterator_class->new( $source->raw ); } =head3 C<iterator_class> The class of iterator to use, override if you're sub-classing. Defaults to L<TAP::Parser::Iterator::Stream>. =cut use constant iterator_class => 'TAP::Parser::Iterator::Stream'; 1; =head1 SUBCLASSING Please see L<TAP::Parser/SUBCLASSING> for a subclassing overview. =head1 SEE ALSO L<TAP::Object>, L<TAP::Parser>, L<TAP::Parser::Iterator>, L<TAP::Parser::Iterator::Stream>, L<TAP::Parser::IteratorFactory>, L<TAP::Parser::SourceHandler>, L<TAP::Parser::SourceHandler::Executable>, L<TAP::Parser::SourceHandler::Perl>, L<TAP::Parser::SourceHandler::File>, L<TAP::Parser::SourceHandler::RawTAP> =cut PK ! ���$ �$ ' 5.34.0/TAP/Parser/SourceHandler/Perl.pmnu �[��� package TAP::Parser::SourceHandler::Perl; use strict; use warnings; use Config; use constant IS_WIN32 => ( $^O =~ /^(MS)?Win32$/ ); use constant IS_VMS => ( $^O eq 'VMS' ); use TAP::Parser::IteratorFactory (); use TAP::Parser::Iterator::Process (); use Text::ParseWords qw(shellwords); use base 'TAP::Parser::SourceHandler::Executable'; TAP::Parser::IteratorFactory->register_handler(__PACKAGE__); =head1 NAME TAP::Parser::SourceHandler::Perl - Stream TAP from a Perl executable =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 SYNOPSIS use TAP::Parser::Source; use TAP::Parser::SourceHandler::Perl; my $source = TAP::Parser::Source->new->raw( \'script.pl' ); $source->assemble_meta; my $class = 'TAP::Parser::SourceHandler::Perl'; my $vote = $class->can_handle( $source ); my $iter = $class->make_iterator( $source ); =head1 DESCRIPTION This is a I<Perl> L<TAP::Parser::SourceHandler> - it has 2 jobs: 1. Figure out if the L<TAP::Parser::Source> it's given is actually a Perl script (L</can_handle>). 2. Creates an iterator for Perl sources (L</make_iterator>). Unless you're writing a plugin or subclassing L<TAP::Parser>, you probably won't need to use this module directly. =head1 METHODS =head2 Class Methods =head3 C<can_handle> my $vote = $class->can_handle( $source ); Only votes if $source looks like a file. Casts the following votes: 0.9 if it has a shebang ala "#!...perl" 0.75 if it has any shebang 0.8 if it's a .t file 0.9 if it's a .pl file 0.75 if it's in a 't' directory 0.25 by default (backwards compat) =cut sub can_handle { my ( $class, $source ) = @_; my $meta = $source->meta; return 0 unless $meta->{is_file}; my $file = $meta->{file}; if ( my $shebang = $file->{shebang} ) { return 0.9 if $shebang =~ /^#!.*\bperl/; # We favour Perl as the interpreter for any shebang to preserve # previous semantics: we used to execute everything via Perl and # relied on it to pass the shebang off to the appropriate # interpreter. return 0.3; } return 0.8 if $file->{lc_ext} eq '.t'; # vote higher than Executable return 0.9 if $file->{lc_ext} eq '.pl'; return 0.75 if $file->{dir} =~ /^t\b/; # vote higher than Executable # backwards compat, always vote: return 0.25; } =head3 C<make_iterator> my $iterator = $class->make_iterator( $source ); Constructs & returns a new L<TAP::Parser::Iterator::Process> for the source. Assumes C<$source-E<gt>raw> contains a reference to the perl script. C<croak>s if the file could not be found. The command to run is built as follows: $perl @switches $perl_script @test_args The perl command to use is determined by L</get_perl>. The command generated is guaranteed to preserve: PERL5LIB PERL5OPT Taint Mode, if set in the script's shebang I<Note:> the command generated will I<not> respect any shebang line defined in your Perl script. This is only a problem if you have compiled a custom version of Perl or if you want to use a specific version of Perl for one test and a different version for another, for example: #!/path/to/a/custom_perl --some --args #!/usr/local/perl-5.6/bin/perl -w Currently you need to write a plugin to get around this. =cut sub _autoflush_stdhandles { my ($class) = @_; $class->_autoflush( \*STDOUT ); $class->_autoflush( \*STDERR ); } sub make_iterator { my ( $class, $source ) = @_; my $meta = $source->meta; my $perl_script = ${ $source->raw }; $class->_croak("Cannot find ($perl_script)") unless $meta->{is_file}; # TODO: does this really need to be done here? $class->_autoflush_stdhandles; my ( $libs, $switches ) = $class->_mangle_switches( $class->_filter_libs( $class->_switches($source) ) ); $class->_run( $source, $libs, $switches ); } sub _has_taint_switch { my( $class, $switches ) = @_; my $has_taint = grep { $_ eq "-T" || $_ eq "-t" } @{$switches}; return $has_taint ? 1 : 0; } sub _mangle_switches { my ( $class, $libs, $switches ) = @_; # Taint mode ignores environment variables so we must retranslate # PERL5LIB as -I switches and place PERL5OPT on the command line # in order that it be seen. if ( $class->_has_taint_switch($switches) ) { my @perl5lib = defined $ENV{PERL5LIB} ? split /$Config{path_sep}/, $ENV{PERL5LIB} : (); return ( $libs, [ @{$switches}, $class->_libs2switches([@$libs, @perl5lib]), defined $ENV{PERL5OPT} ? shellwords( $ENV{PERL5OPT} ) : () ], ); } return ( $libs, $switches ); } sub _filter_libs { my ( $class, @switches ) = @_; my $path_sep = $Config{path_sep}; my $path_re = qr{$path_sep}; # Filter out any -I switches to be handled as libs later. # # Nasty kludge. It might be nicer if we got the libs separately # although at least this way we find any -I switches that were # supplied other then as explicit libs. # # We filter out any names containing colons because they will break # PERL5LIB my @libs; my @filtered_switches; for (@switches) { if ( !/$path_re/ && m/ ^ ['"]? -I ['"]? (.*?) ['"]? $ /x ) { push @libs, $1; } else { push @filtered_switches, $_; } } return \@libs, \@filtered_switches; } sub _iterator_hooks { my ( $class, $source, $libs, $switches ) = @_; my $setup = sub { if ( @{$libs} and !$class->_has_taint_switch($switches) ) { $ENV{PERL5LIB} = join( $Config{path_sep}, grep {defined} @{$libs}, $ENV{PERL5LIB} ); } }; # VMS environment variables aren't guaranteed to reset at the end of # the process, so we need to put PERL5LIB back. my $previous = $ENV{PERL5LIB}; my $teardown = sub { if ( defined $previous ) { $ENV{PERL5LIB} = $previous; } else { delete $ENV{PERL5LIB}; } }; return ( $setup, $teardown ); } sub _run { my ( $class, $source, $libs, $switches ) = @_; my @command = $class->_get_command_for_switches( $source, $switches ) or $class->_croak("No command found!"); my ( $setup, $teardown ) = $class->_iterator_hooks( $source, $libs, $switches ); return $class->_create_iterator( $source, \@command, $setup, $teardown ); } sub _create_iterator { my ( $class, $source, $command, $setup, $teardown ) = @_; return TAP::Parser::Iterator::Process->new( { command => $command, merge => $source->merge, setup => $setup, teardown => $teardown, } ); } sub _get_command_for_switches { my ( $class, $source, $switches ) = @_; my $file = ${ $source->raw }; my @args = @{ $source->test_args || [] }; my $command = $class->get_perl; # XXX don't need to quote if we treat the parts as atoms (except maybe vms) #$file = qq["$file"] if ( $file =~ /\s/ ) && ( $file !~ /^".*"$/ ); my @command = ( $command, @{$switches}, $file, @args ); return @command; } sub _libs2switches { my $class = shift; return map {"-I$_"} grep {$_} @{ $_[0] }; } =head3 C<get_taint> Decode any taint switches from a Perl shebang line. # $taint will be 't' my $taint = TAP::Parser::SourceHandler::Perl->get_taint( '#!/usr/bin/perl -t' ); # $untaint will be undefined my $untaint = TAP::Parser::SourceHandler::Perl->get_taint( '#!/usr/bin/perl' ); =cut sub get_taint { my ( $class, $shebang ) = @_; return unless defined $shebang && $shebang =~ /^#!.*\bperl.*\s-\w*([Tt]+)/; return $1; } sub _switches { my ( $class, $source ) = @_; my $file = ${ $source->raw }; my @switches = @{ $source->switches || [] }; my $shebang = $source->meta->{file}->{shebang}; return unless defined $shebang; my $taint = $class->get_taint($shebang); push @switches, "-$taint" if defined $taint; # Quote the argument if we're VMS, since VMS will downcase anything # not quoted. if (IS_VMS) { for (@switches) { $_ = qq["$_"]; } } return @switches; } =head3 C<get_perl> Gets the version of Perl currently running the test suite. =cut sub get_perl { my $class = shift; return $ENV{HARNESS_PERL} if defined $ENV{HARNESS_PERL}; return qq["$^X"] if IS_WIN32 && ( $^X =~ /[^\w\.\/\\]/ ); return $^X; } 1; __END__ =head1 SUBCLASSING Please see L<TAP::Parser/SUBCLASSING> for a subclassing overview. =head2 Example package MyPerlSourceHandler; use strict; use TAP::Parser::SourceHandler::Perl; use base 'TAP::Parser::SourceHandler::Perl'; # use the version of perl from the shebang line in the test file sub get_perl { my $self = shift; if (my $shebang = $self->shebang( $self->{file} )) { $shebang =~ /^#!(.*\bperl.*?)(?:(?:\s)|(?:$))/; return $1 if $1; } return $self->SUPER::get_perl(@_); } =head1 SEE ALSO L<TAP::Object>, L<TAP::Parser>, L<TAP::Parser::IteratorFactory>, L<TAP::Parser::SourceHandler>, L<TAP::Parser::SourceHandler::Executable>, L<TAP::Parser::SourceHandler::File>, L<TAP::Parser::SourceHandler::Handle>, L<TAP::Parser::SourceHandler::RawTAP> =cut PK ! �� ) 5.34.0/TAP/Parser/SourceHandler/RawTAP.pmnu �[��� package TAP::Parser::SourceHandler::RawTAP; use strict; use warnings; use TAP::Parser::IteratorFactory (); use TAP::Parser::Iterator::Array (); use base 'TAP::Parser::SourceHandler'; TAP::Parser::IteratorFactory->register_handler(__PACKAGE__); =head1 NAME TAP::Parser::SourceHandler::RawTAP - Stream output from raw TAP in a scalar/array ref. =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 SYNOPSIS use TAP::Parser::Source; use TAP::Parser::SourceHandler::RawTAP; my $source = TAP::Parser::Source->new->raw( \"1..1\nok 1\n" ); $source->assemble_meta; my $class = 'TAP::Parser::SourceHandler::RawTAP'; my $vote = $class->can_handle( $source ); my $iter = $class->make_iterator( $source ); =head1 DESCRIPTION This is a I<raw TAP output> L<TAP::Parser::SourceHandler> - it has 2 jobs: 1. Figure out if the L<TAP::Parser::Source> it's given is raw TAP output (L</can_handle>). 2. Creates an iterator for raw TAP output (L</make_iterator>). Unless you're writing a plugin or subclassing L<TAP::Parser>, you probably won't need to use this module directly. =head1 METHODS =head2 Class Methods =head3 C<can_handle> my $vote = $class->can_handle( $source ); Only votes if $source is an array, or a scalar with newlines. Casts the following votes: 0.9 if it's a scalar with '..' in it 0.7 if it's a scalar with 'ok' in it 0.3 if it's just a scalar with newlines 0.5 if it's an array =cut sub can_handle { my ( $class, $src ) = @_; my $meta = $src->meta; return 0 if $meta->{file}; if ( $meta->{is_scalar} ) { return 0 unless $meta->{has_newlines}; return 0.9 if ${ $src->raw } =~ /\d\.\.\d/; return 0.7 if ${ $src->raw } =~ /ok/; return 0.3; } elsif ( $meta->{is_array} ) { return 0.5; } return 0; } =head3 C<make_iterator> my $iterator = $class->make_iterator( $source ); Returns a new L<TAP::Parser::Iterator::Array> for the source. C<$source-E<gt>raw> must be an array ref, or a scalar ref. C<croak>s on error. =cut sub make_iterator { my ( $class, $src ) = @_; my $meta = $src->meta; my $tap_array; if ( $meta->{is_scalar} ) { $tap_array = [ split "\n" => ${ $src->raw } ]; } elsif ( $meta->{is_array} ) { $tap_array = $src->raw; } $class->_croak('No raw TAP found in $source->raw') unless scalar $tap_array; return TAP::Parser::Iterator::Array->new($tap_array); } 1; =head1 SUBCLASSING Please see L<TAP::Parser/SUBCLASSING> for a subclassing overview. =head1 SEE ALSO L<TAP::Object>, L<TAP::Parser>, L<TAP::Parser::IteratorFactory>, L<TAP::Parser::SourceHandler>, L<TAP::Parser::SourceHandler::Executable>, L<TAP::Parser::SourceHandler::Perl>, L<TAP::Parser::SourceHandler::File>, L<TAP::Parser::SourceHandler::Handle> =cut PK ! ĉ<�� � - 5.34.0/TAP/Parser/SourceHandler/Executable.pmnu �[��� package TAP::Parser::SourceHandler::Executable; use strict; use warnings; use TAP::Parser::IteratorFactory (); use TAP::Parser::Iterator::Process (); use base 'TAP::Parser::SourceHandler'; TAP::Parser::IteratorFactory->register_handler(__PACKAGE__); =head1 NAME TAP::Parser::SourceHandler::Executable - Stream output from an executable TAP source =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 SYNOPSIS use TAP::Parser::Source; use TAP::Parser::SourceHandler::Executable; my $source = TAP::Parser::Source->new->raw(['/usr/bin/ruby', 'mytest.rb']); $source->assemble_meta; my $class = 'TAP::Parser::SourceHandler::Executable'; my $vote = $class->can_handle( $source ); my $iter = $class->make_iterator( $source ); =head1 DESCRIPTION This is an I<executable> L<TAP::Parser::SourceHandler> - it has 2 jobs: 1. Figure out if the L<TAP::Parser::Source> it's given is an executable command (L</can_handle>). 2. Creates an iterator for executable commands (L</make_iterator>). Unless you're writing a plugin or subclassing L<TAP::Parser>, you probably won't need to use this module directly. =head1 METHODS =head2 Class Methods =head3 C<can_handle> my $vote = $class->can_handle( $source ); Only votes if $source looks like an executable file. Casts the following votes: 0.9 if it's a hash with an 'exec' key 0.8 if it's a .bat file 0.75 if it's got an execute bit set =cut sub can_handle { my ( $class, $src ) = @_; my $meta = $src->meta; if ( $meta->{is_file} ) { my $file = $meta->{file}; return 0.85 if $file->{execute} && $file->{binary}; return 0.8 if $file->{lc_ext} eq '.bat'; return 0.25 if $file->{execute}; } elsif ( $meta->{is_hash} ) { return 0.9 if $src->raw->{exec}; } return 0; } =head3 C<make_iterator> my $iterator = $class->make_iterator( $source ); Returns a new L<TAP::Parser::Iterator::Process> for the source. C<$source-E<gt>raw> must be in one of the following forms: { exec => [ @exec ] } [ @exec ] $file C<croak>s on error. =cut sub make_iterator { my ( $class, $source ) = @_; my $meta = $source->meta; my @command; if ( $meta->{is_hash} ) { @command = @{ $source->raw->{exec} || [] }; } elsif ( $meta->{is_scalar} ) { @command = ${ $source->raw }; } elsif ( $meta->{is_array} ) { @command = @{ $source->raw }; } $class->_croak('No command found in $source->raw!') unless @command; $class->_autoflush( \*STDOUT ); $class->_autoflush( \*STDERR ); push @command, @{ $source->test_args || [] }; return $class->iterator_class->new( { command => \@command, merge => $source->merge } ); } =head3 C<iterator_class> The class of iterator to use, override if you're sub-classing. Defaults to L<TAP::Parser::Iterator::Process>. =cut use constant iterator_class => 'TAP::Parser::Iterator::Process'; # Turns on autoflush for the handle passed sub _autoflush { my ( $class, $flushed ) = @_; my $old_fh = select $flushed; $| = 1; select $old_fh; } 1; =head1 SUBCLASSING Please see L<TAP::Parser/SUBCLASSING> for a subclassing overview. =head2 Example package MyRubySourceHandler; use strict; use Carp qw( croak ); use TAP::Parser::SourceHandler::Executable; use base 'TAP::Parser::SourceHandler::Executable'; # expect $handler->(['mytest.rb', 'cmdline', 'args']); sub make_iterator { my ($self, $source) = @_; my @test_args = @{ $source->test_args }; my $rb_file = $test_args[0]; croak("error: Ruby file '$rb_file' not found!") unless (-f $rb_file); return $self->SUPER::raw_source(['/usr/bin/ruby', @test_args]); } =head1 SEE ALSO L<TAP::Object>, L<TAP::Parser>, L<TAP::Parser::IteratorFactory>, L<TAP::Parser::SourceHandler>, L<TAP::Parser::SourceHandler::Perl>, L<TAP::Parser::SourceHandler::File>, L<TAP::Parser::SourceHandler::Handle>, L<TAP::Parser::SourceHandler::RawTAP> =cut PK ! �;]2= 2= 5.34.0/TAP/Parser/Grammar.pmnu �[��� package TAP::Parser::Grammar; use strict; use warnings; use TAP::Parser::ResultFactory (); use TAP::Parser::YAMLish::Reader (); use base 'TAP::Object'; =head1 NAME TAP::Parser::Grammar - A grammar for the Test Anything Protocol. =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 SYNOPSIS use TAP::Parser::Grammar; my $grammar = $self->make_grammar({ iterator => $tap_parser_iterator, parser => $tap_parser, version => 12, }); my $result = $grammar->tokenize; =head1 DESCRIPTION C<TAP::Parser::Grammar> tokenizes lines from a L<TAP::Parser::Iterator> and constructs L<TAP::Parser::Result> subclasses to represent the tokens. Do not attempt to use this class directly. It won't make sense. It's mainly here to ensure that we will be able to have pluggable grammars when TAP is expanded at some future date (plus, this stuff was really cluttering the parser). =head1 METHODS =head2 Class Methods =head3 C<new> my $grammar = TAP::Parser::Grammar->new({ iterator => $iterator, parser => $parser, version => $version, }); Returns L<TAP::Parser> grammar object that will parse the TAP stream from the specified iterator. Both C<iterator> and C<parser> are required arguments. If C<version> is not set it defaults to C<12> (see L</set_version> for more details). =cut # new() implementation supplied by TAP::Object sub _initialize { my ( $self, $args ) = @_; $self->{iterator} = $args->{iterator}; # TODO: accessor $self->{iterator} ||= $args->{stream}; # deprecated $self->{parser} = $args->{parser}; # TODO: accessor $self->set_version( $args->{version} || 12 ); return $self; } my %language_for; { # XXX the 'not' and 'ok' might be on separate lines in VMS ... my $ok = qr/(?:not )?ok\b/; my $num = qr/\d+/; my %v12 = ( version => { syntax => qr/^TAP\s+version\s+(\d+)\s*\z/i, handler => sub { my ( $self, $line ) = @_; my $version = $1; return $self->_make_version_token( $line, $version, ); }, }, plan => { syntax => qr/^1\.\.(\d+)\s*(.*)\z/, handler => sub { my ( $self, $line ) = @_; my ( $tests_planned, $tail ) = ( $1, $2 ); my $explanation = undef; my $skip = ''; if ( $tail =~ /^todo((?:\s+\d+)+)/ ) { my @todo = split /\s+/, _trim($1); return $self->_make_plan_token( $line, $tests_planned, 'TODO', '', \@todo ); } elsif ( 0 == $tests_planned ) { $skip = 'SKIP'; # If we can't match # SKIP the directive should be undef. ($explanation) = $tail =~ /^#\s*SKIP\S*\s+(.*)/i; } elsif ( $tail !~ /^\s*$/ ) { return $self->_make_unknown_token($line); } $explanation = '' unless defined $explanation; return $self->_make_plan_token( $line, $tests_planned, $skip, $explanation, [] ); }, }, # An optimization to handle the most common test lines without # directives. simple_test => { syntax => qr/^($ok) \ ($num) (?:\ ([^#]+))? \z/x, handler => sub { my ( $self, $line ) = @_; my ( $ok, $num, $desc ) = ( $1, $2, $3 ); return $self->_make_test_token( $line, $ok, $num, $desc ); }, }, test => { syntax => qr/^($ok) \s* ($num)? \s* (.*) \z/x, handler => sub { my ( $self, $line ) = @_; my ( $ok, $num, $desc ) = ( $1, $2, $3 ); my ( $dir, $explanation ) = ( '', '' ); if ($desc =~ m/^ ( [^\\\#]* (?: \\. [^\\\#]* )* ) \# \s* (SKIP|TODO) \b \s* (.*) $/ix ) { ( $desc, $dir, $explanation ) = ( $1, $2, $3 ); } return $self->_make_test_token( $line, $ok, $num, $desc, $dir, $explanation ); }, }, comment => { syntax => qr/^#(.*)/, handler => sub { my ( $self, $line ) = @_; my $comment = $1; return $self->_make_comment_token( $line, $comment ); }, }, bailout => { syntax => qr/^\s*Bail out!\s*(.*)/, handler => sub { my ( $self, $line ) = @_; my $explanation = $1; return $self->_make_bailout_token( $line, $explanation ); }, }, ); my %v13 = ( %v12, plan => { syntax => qr/^1\.\.(\d+)\s*(?:\s*#\s*SKIP\b(.*))?\z/i, handler => sub { my ( $self, $line ) = @_; my ( $tests_planned, $explanation ) = ( $1, $2 ); my $skip = ( 0 == $tests_planned || defined $explanation ) ? 'SKIP' : ''; $explanation = '' unless defined $explanation; return $self->_make_plan_token( $line, $tests_planned, $skip, $explanation, [] ); }, }, yaml => { syntax => qr/^ (\s+) (---.*) $/x, handler => sub { my ( $self, $line ) = @_; my ( $pad, $marker ) = ( $1, $2 ); return $self->_make_yaml_token( $pad, $marker ); }, }, pragma => { syntax => qr/^ pragma \s+ ( [-+] \w+ \s* (?: , \s* [-+] \w+ \s* )* ) $/x, handler => sub { my ( $self, $line ) = @_; my $pragmas = $1; return $self->_make_pragma_token( $line, $pragmas ); }, }, ); %language_for = ( '12' => { tokens => \%v12, }, '13' => { tokens => \%v13, setup => sub { shift->{iterator}->handle_unicode; }, }, ); } ############################################################################## =head2 Instance Methods =head3 C<set_version> $grammar->set_version(13); Tell the grammar which TAP syntax version to support. The lowest supported version is 12. Although 'TAP version' isn't valid version 12 syntax it is accepted so that higher version numbers may be parsed. =cut sub set_version { my $self = shift; my $version = shift; if ( my $language = $language_for{$version} ) { $self->{version} = $version; $self->{tokens} = $language->{tokens}; if ( my $setup = $language->{setup} ) { $self->$setup(); } $self->_order_tokens; } else { require Carp; Carp::croak("Unsupported syntax version: $version"); } } # Optimization to put the most frequent tokens first. sub _order_tokens { my $self = shift; my %copy = %{ $self->{tokens} }; my @ordered_tokens = grep {defined} map { delete $copy{$_} } qw( simple_test test comment plan ); push @ordered_tokens, values %copy; $self->{ordered_tokens} = \@ordered_tokens; } ############################################################################## =head3 C<tokenize> my $token = $grammar->tokenize; This method will return a L<TAP::Parser::Result> object representing the current line of TAP. =cut sub tokenize { my $self = shift; my $line = $self->{iterator}->next; unless ( defined $line ) { delete $self->{parser}; # break circular ref return; } my $token; for my $token_data ( @{ $self->{ordered_tokens} } ) { if ( $line =~ $token_data->{syntax} ) { my $handler = $token_data->{handler}; $token = $self->$handler($line); last; } } $token = $self->_make_unknown_token($line) unless $token; return $self->{parser}->make_result($token); } ############################################################################## =head3 C<token_types> my @types = $grammar->token_types; Returns the different types of tokens which this grammar can parse. =cut sub token_types { my $self = shift; return keys %{ $self->{tokens} }; } ############################################################################## =head3 C<syntax_for> my $syntax = $grammar->syntax_for($token_type); Returns a pre-compiled regular expression which will match a chunk of TAP corresponding to the token type. For example (not that you should really pay attention to this, C<< $grammar->syntax_for('comment') >> will return C<< qr/^#(.*)/ >>. =cut sub syntax_for { my ( $self, $type ) = @_; return $self->{tokens}->{$type}->{syntax}; } ############################################################################## =head3 C<handler_for> my $handler = $grammar->handler_for($token_type); Returns a code reference which, when passed an appropriate line of TAP, returns the lexed token corresponding to that line. As a result, the basic TAP parsing loop looks similar to the following: my @tokens; my $grammar = TAP::Grammar->new; LINE: while ( defined( my $line = $parser->_next_chunk_of_tap ) ) { for my $type ( $grammar->token_types ) { my $syntax = $grammar->syntax_for($type); if ( $line =~ $syntax ) { my $handler = $grammar->handler_for($type); push @tokens => $grammar->$handler($line); next LINE; } } push @tokens => $grammar->_make_unknown_token($line); } =cut sub handler_for { my ( $self, $type ) = @_; return $self->{tokens}->{$type}->{handler}; } sub _make_version_token { my ( $self, $line, $version ) = @_; return { type => 'version', raw => $line, version => $version, }; } sub _make_plan_token { my ( $self, $line, $tests_planned, $directive, $explanation, $todo ) = @_; if ( $directive eq 'SKIP' && 0 != $tests_planned && $self->{version} < 13 ) { warn "Specified SKIP directive in plan but more than 0 tests ($line)\n"; } return { type => 'plan', raw => $line, tests_planned => $tests_planned, directive => $directive, explanation => _trim($explanation), todo_list => $todo, }; } sub _make_test_token { my ( $self, $line, $ok, $num, $desc, $dir, $explanation ) = @_; return { ok => $ok, # forcing this to be an integer (and not a string) reduces memory # consumption. RT #84939 test_num => ( defined $num ? 0 + $num : undef ), description => _trim($desc), directive => ( defined $dir ? uc $dir : '' ), explanation => _trim($explanation), raw => $line, type => 'test', }; } sub _make_unknown_token { my ( $self, $line ) = @_; return { raw => $line, type => 'unknown', }; } sub _make_comment_token { my ( $self, $line, $comment ) = @_; return { type => 'comment', raw => $line, comment => _trim($comment) }; } sub _make_bailout_token { my ( $self, $line, $explanation ) = @_; return { type => 'bailout', raw => $line, bailout => _trim($explanation) }; } sub _make_yaml_token { my ( $self, $pad, $marker ) = @_; my $yaml = TAP::Parser::YAMLish::Reader->new; my $iterator = $self->{iterator}; # Construct a reader that reads from our input stripping leading # spaces from each line. my $leader = length($pad); my $strip = qr{ ^ (\s{$leader}) (.*) $ }x; my @extra = ($marker); my $reader = sub { return shift @extra if @extra; my $line = $iterator->next; return $2 if $line =~ $strip; return; }; my $data = $yaml->read($reader); # Reconstitute input. This is convoluted. Maybe we should just # record it on the way in... chomp( my $raw = $yaml->get_raw ); $raw =~ s/^/$pad/mg; return { type => 'yaml', raw => $raw, data => $data }; } sub _make_pragma_token { my ( $self, $line, $pragmas ) = @_; return { type => 'pragma', raw => $line, pragmas => [ split /\s*,\s*/, _trim($pragmas) ], }; } sub _trim { my $data = shift; return '' unless defined $data; $data =~ s/^\s+//; $data =~ s/\s+$//; return $data; } 1; =head1 TAP GRAMMAR B<NOTE:> This grammar is slightly out of date. There's still some discussion about it and a new one will be provided when we have things better defined. The L<TAP::Parser> does not use a formal grammar because TAP is essentially a stream-based protocol. In fact, it's quite legal to have an infinite stream. For the same reason that we don't apply regexes to streams, we're not using a formal grammar here. Instead, we parse the TAP in lines. For purposes for forward compatibility, any result which does not match the following grammar is currently referred to as L<TAP::Parser::Result::Unknown>. It is I<not> a parse error. A formal grammar would look similar to the following: (* For the time being, I'm cheating on the EBNF by allowing certain terms to be defined by POSIX character classes by using the following syntax: digit ::= [:digit:] As far as I am aware, that's not valid EBNF. Sue me. I didn't know how to write "char" otherwise (Unicode issues). Suggestions welcome. *) tap ::= version? { comment | unknown } leading_plan lines | lines trailing_plan {comment} version ::= 'TAP version ' positiveInteger {positiveInteger} "\n" leading_plan ::= plan skip_directive? "\n" trailing_plan ::= plan "\n" plan ::= '1..' nonNegativeInteger lines ::= line {line} line ::= (comment | test | unknown | bailout ) "\n" test ::= status positiveInteger? description? directive? status ::= 'not '? 'ok ' description ::= (character - (digit | '#')) {character - '#'} directive ::= todo_directive | skip_directive todo_directive ::= hash_mark 'TODO' ' ' {character} skip_directive ::= hash_mark 'SKIP' ' ' {character} comment ::= hash_mark {character} hash_mark ::= '#' {' '} bailout ::= 'Bail out!' {character} unknown ::= { (character - "\n") } (* POSIX character classes and other terminals *) digit ::= [:digit:] character ::= ([:print:] - "\n") positiveInteger ::= ( digit - '0' ) {digit} nonNegativeInteger ::= digit {digit} =head1 SUBCLASSING Please see L<TAP::Parser/SUBCLASSING> for a subclassing overview. If you I<really> want to subclass L<TAP::Parser>'s grammar the best thing to do is read through the code. There's no easy way of summarizing it here. =head1 SEE ALSO L<TAP::Object>, L<TAP::Parser>, L<TAP::Parser::Iterator>, L<TAP::Parser::Result>, =cut PK ! rn�n� � $ 5.34.0/TAP/Parser/Iterator/Stream.pmnu �[��� package TAP::Parser::Iterator::Stream; use strict; use warnings; use base 'TAP::Parser::Iterator'; =head1 NAME TAP::Parser::Iterator::Stream - Iterator for filehandle-based TAP sources =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 SYNOPSIS use TAP::Parser::Iterator::Stream; open( TEST, 'test.tap' ); my $it = TAP::Parser::Iterator::Stream->new(\*TEST); my $line = $it->next; =head1 DESCRIPTION This is a simple iterator wrapper for reading from filehandles, used by L<TAP::Parser>. Unless you're writing a plugin or subclassing, you probably won't need to use this module directly. =head1 METHODS =head2 Class Methods =head3 C<new> Create an iterator. Expects one argument containing a filehandle. =cut # new() implementation supplied by TAP::Object sub _initialize { my ( $self, $thing ) = @_; $self->{fh} = $thing; return $self; } =head2 Instance Methods =head3 C<next> Iterate through it, of course. =head3 C<next_raw> Iterate raw input without applying any fixes for quirky input syntax. =head3 C<wait> Get the wait status for this iterator. Always returns zero. =head3 C<exit> Get the exit status for this iterator. Always returns zero. =cut sub wait { shift->exit } sub exit { shift->{fh} ? () : 0 } sub next_raw { my $self = shift; my $fh = $self->{fh}; if ( defined( my $line = <$fh> ) ) { chomp $line; return $line; } else { $self->_finish; return; } } sub _finish { my $self = shift; close delete $self->{fh}; } sub get_select_handles { my $self = shift; # return our handle in case it's a socket or pipe (select()-able) return ( $self->{fh}, ) if (-S $self->{fh} || -p $self->{fh}); return; } 1; =head1 ATTRIBUTION Originally ripped off from L<Test::Harness>. =head1 SEE ALSO L<TAP::Object>, L<TAP::Parser>, L<TAP::Parser::Iterator>, =cut PK ! Z�E��# �# % 5.34.0/TAP/Parser/Iterator/Process.pmnu �[��� package TAP::Parser::Iterator::Process; use strict; use warnings; use Config; use IO::Handle; use base 'TAP::Parser::Iterator'; my $IS_WIN32 = ( $^O =~ /^(MS)?Win32$/ ); =head1 NAME TAP::Parser::Iterator::Process - Iterator for process-based TAP sources =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 SYNOPSIS use TAP::Parser::Iterator::Process; my %args = ( command => ['python', 'setup.py', 'test'], merge => 1, setup => sub { ... }, teardown => sub { ... }, ); my $it = TAP::Parser::Iterator::Process->new(\%args); my $line = $it->next; =head1 DESCRIPTION This is a simple iterator wrapper for executing external processes, used by L<TAP::Parser>. Unless you're writing a plugin or subclassing, you probably won't need to use this module directly. =head1 METHODS =head2 Class Methods =head3 C<new> Create an iterator. Expects one argument containing a hashref of the form: command => \@command_to_execute merge => $attempt_merge_stderr_and_stdout? setup => $callback_to_setup_command teardown => $callback_to_teardown_command Tries to uses L<IPC::Open3> & L<IO::Select> to communicate with the spawned process if they are available. Falls back onto C<open()>. =head2 Instance Methods =head3 C<next> Iterate through the process output, of course. =head3 C<next_raw> Iterate raw input without applying any fixes for quirky input syntax. =head3 C<wait> Get the wait status for this iterator's process. =head3 C<exit> Get the exit status for this iterator's process. =cut { no warnings 'uninitialized'; # get around a catch22 in the test suite that causes failures on Win32: local $SIG{__DIE__} = undef; eval { require POSIX; &POSIX::WEXITSTATUS(0) }; if ($@) { *_wait2exit = sub { $_[1] >> 8 }; } else { *_wait2exit = sub { POSIX::WEXITSTATUS( $_[1] ) } } } sub _use_open3 { my $self = shift; return unless $Config{d_fork} || $IS_WIN32; for my $module (qw( IPC::Open3 IO::Select )) { eval "use $module"; return if $@; } return 1; } { my $got_unicode; sub _get_unicode { return $got_unicode if defined $got_unicode; eval 'use Encode qw(decode_utf8);'; $got_unicode = $@ ? 0 : 1; } } # new() implementation supplied by TAP::Object sub _initialize { my ( $self, $args ) = @_; my @command = @{ delete $args->{command} || [] } or die "Must supply a command to execute"; $self->{command} = [@command]; # Private. Used to frig with chunk size during testing. my $chunk_size = delete $args->{_chunk_size} || 65536; my $merge = delete $args->{merge}; my ( $pid, $err, $sel ); if ( my $setup = delete $args->{setup} ) { $setup->(@command); } my $out = IO::Handle->new; if ( $self->_use_open3 ) { # HOTPATCH {{{ my $xclose = \&IPC::Open3::xclose; no warnings; local *IPC::Open3::xclose = sub { my $fh = shift; no strict 'refs'; return if ( fileno($fh) == fileno(STDIN) ); $xclose->($fh); }; # }}} if ($IS_WIN32) { $err = $merge ? '' : '>&STDERR'; eval { $pid = open3( '<&STDIN', $out, $merge ? '' : $err, @command ); }; die "Could not execute (@command): $@" if $@; if ( $] >= 5.006 ) { binmode($out, ":crlf"); } } else { $err = $merge ? '' : IO::Handle->new; eval { $pid = open3( '<&STDIN', $out, $err, @command ); }; die "Could not execute (@command): $@" if $@; $sel = $merge ? undef : IO::Select->new( $out, $err ); } } else { $err = ''; my $command = join( ' ', map { $_ =~ /\s/ ? qq{"$_"} : $_ } @command ); open( $out, "$command|" ) or die "Could not execute ($command): $!"; } $self->{out} = $out; $self->{err} = $err; $self->{sel} = $sel; $self->{pid} = $pid; $self->{exit} = undef; $self->{chunk_size} = $chunk_size; if ( my $teardown = delete $args->{teardown} ) { $self->{teardown} = sub { $teardown->(@command); }; } return $self; } =head3 C<handle_unicode> Upgrade the input stream to handle UTF8. =cut sub handle_unicode { my $self = shift; if ( $self->{sel} ) { if ( _get_unicode() ) { # Make sure our iterator has been constructed and... my $next = $self->{_next} ||= $self->_next; # ...wrap it to do UTF8 casting $self->{_next} = sub { my $line = $next->(); return decode_utf8($line) if defined $line; return; }; } } else { if ( $] >= 5.008 ) { eval 'binmode($self->{out}, ":utf8")'; } } } ############################################################################## sub wait { shift->{wait} } sub exit { shift->{exit} } sub _next { my $self = shift; if ( my $out = $self->{out} ) { if ( my $sel = $self->{sel} ) { my $err = $self->{err}; my @buf = (); my $partial = ''; # Partial line my $chunk_size = $self->{chunk_size}; return sub { return shift @buf if @buf; READ: while ( my @ready = $sel->can_read ) { for my $fh (@ready) { my $got = sysread $fh, my ($chunk), $chunk_size; if ( $got == 0 ) { $sel->remove($fh); } elsif ( $fh == $err ) { print STDERR $chunk; # echo STDERR } else { $chunk = $partial . $chunk; $partial = ''; # Make sure we have a complete line unless ( substr( $chunk, -1, 1 ) eq "\n" ) { my $nl = rindex $chunk, "\n"; if ( $nl == -1 ) { $partial = $chunk; redo READ; } else { $partial = substr( $chunk, $nl + 1 ); $chunk = substr( $chunk, 0, $nl ); } } push @buf, split /\n/, $chunk; return shift @buf if @buf; } } } # Return partial last line if ( length $partial ) { my $last = $partial; $partial = ''; return $last; } $self->_finish; return; }; } else { return sub { if ( defined( my $line = <$out> ) ) { chomp $line; return $line; } $self->_finish; return; }; } } else { return sub { $self->_finish; return; }; } } sub next_raw { my $self = shift; return ( $self->{_next} ||= $self->_next )->(); } sub _finish { my $self = shift; my $status = $?; # Avoid circular refs $self->{_next} = sub {return} if $] >= 5.006; # If we have a subprocess we need to wait for it to terminate if ( defined $self->{pid} ) { if ( $self->{pid} == waitpid( $self->{pid}, 0 ) ) { $status = $?; } } ( delete $self->{out} )->close if $self->{out}; # If we have an IO::Select we also have an error handle to close. if ( $self->{sel} ) { ( delete $self->{err} )->close; delete $self->{sel}; } else { $status = $?; } # Sometimes we get -1 on Windows. Presumably that means status not # available. $status = 0 if $IS_WIN32 && $status == -1; $self->{wait} = $status; $self->{exit} = $self->_wait2exit($status); if ( my $teardown = $self->{teardown} ) { $teardown->(); } return $self; } =head3 C<get_select_handles> Return a list of filehandles that may be used upstream in a select() call to signal that this Iterator is ready. Iterators that are not handle based should return an empty list. =cut sub get_select_handles { my $self = shift; return grep $_, ( $self->{out}, $self->{err} ); } 1; =head1 ATTRIBUTION Originally ripped off from L<Test::Harness>. =head1 SEE ALSO L<TAP::Object>, L<TAP::Parser>, L<TAP::Parser::Iterator>, =cut PK ! e�� � # 5.34.0/TAP/Parser/Iterator/Array.pmnu �[��� package TAP::Parser::Iterator::Array; use strict; use warnings; use base 'TAP::Parser::Iterator'; =head1 NAME TAP::Parser::Iterator::Array - Iterator for array-based TAP sources =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 SYNOPSIS use TAP::Parser::Iterator::Array; my @data = ('foo', 'bar', baz'); my $it = TAP::Parser::Iterator::Array->new(\@data); my $line = $it->next; =head1 DESCRIPTION This is a simple iterator wrapper for arrays of scalar content, used by L<TAP::Parser>. Unless you're writing a plugin or subclassing, you probably won't need to use this module directly. =head1 METHODS =head2 Class Methods =head3 C<new> Create an iterator. Takes one argument: an C<$array_ref> =head2 Instance Methods =head3 C<next> Iterate through it, of course. =head3 C<next_raw> Iterate raw input without applying any fixes for quirky input syntax. =head3 C<wait> Get the wait status for this iterator. For an array iterator this will always be zero. =head3 C<exit> Get the exit status for this iterator. For an array iterator this will always be zero. =cut # new() implementation supplied by TAP::Object sub _initialize { my ( $self, $thing ) = @_; chomp @$thing; $self->{idx} = 0; $self->{array} = $thing; $self->{exit} = undef; return $self; } sub wait { shift->exit } sub exit { my $self = shift; return 0 if $self->{idx} >= @{ $self->{array} }; return; } sub next_raw { my $self = shift; return $self->{array}->[ $self->{idx}++ ]; } 1; =head1 ATTRIBUTION Originally ripped off from L<Test::Harness>. =head1 SEE ALSO L<TAP::Object>, L<TAP::Parser>, L<TAP::Parser::Iterator>, =cut PK ! g�P P 5.34.0/Perl/OSType.pmnu �[��� use strict; use warnings; package Perl::OSType; # ABSTRACT: Map Perl operating system names to generic types our $VERSION = '1.010'; require Exporter; our @ISA = qw(Exporter); our %EXPORT_TAGS = ( all => [qw( os_type is_os_type )] ); our @EXPORT_OK = @{ $EXPORT_TAGS{all} }; # originally taken from Module::Build by Ken Williams et al. my %OSTYPES = qw( aix Unix bsdos Unix beos Unix bitrig Unix dgux Unix dragonfly Unix dynixptx Unix freebsd Unix linux Unix haiku Unix hpux Unix iphoneos Unix irix Unix darwin Unix machten Unix midnightbsd Unix minix Unix mirbsd Unix next Unix openbsd Unix netbsd Unix dec_osf Unix nto Unix svr4 Unix svr5 Unix sco Unix sco_sv Unix unicos Unix unicosmk Unix solaris Unix sunos Unix cygwin Unix msys Unix os2 Unix interix Unix gnu Unix gnukfreebsd Unix nto Unix qnx Unix android Unix dos Windows MSWin32 Windows os390 EBCDIC os400 EBCDIC posix-bc EBCDIC vmesa EBCDIC MacOS MacOS VMS VMS vos VOS riscos RiscOS amigaos Amiga mpeix MPEiX ); sub os_type { my ($os) = @_; $os = $^O unless defined $os; return $OSTYPES{$os} || q{}; } sub is_os_type { my ( $type, $os ) = @_; return unless $type; $os = $^O unless defined $os; return os_type($os) eq $type; } 1; =pod =encoding UTF-8 =head1 NAME Perl::OSType - Map Perl operating system names to generic types =head1 VERSION version 1.010 =head1 SYNOPSIS use Perl::OSType ':all'; $current_type = os_type(); $other_type = os_type('dragonfly'); # gives 'Unix' =head1 DESCRIPTION Modules that provide OS-specific behaviors often need to know if the current operating system matches a more generic type of operating systems. For example, 'linux' is a type of 'Unix' operating system and so is 'freebsd'. This module provides a mapping between an operating system name as given by C<$^O> and a more generic type. The initial version is based on the OS type mappings provided in L<Module::Build> and L<ExtUtils::CBuilder>. (Thus, Microsoft operating systems are given the type 'Windows' rather than 'Win32'.) =head1 USAGE No functions are exported by default. The export tag ":all" will export all functions listed below. =head2 os_type() $os_type = os_type(); $os_type = os_type('MSWin32'); Returns a single, generic OS type for a given operating system name. With no arguments, returns the OS type for the current value of C<$^O>. If the operating system is not recognized, the function will return the empty string. =head2 is_os_type() $is_windows = is_os_type('Windows'); $is_unix = is_os_type('Unix', 'dragonfly'); Given an OS type and OS name, returns true or false if the OS name is of the given type. As with C<os_type>, it will use the current operating system as a default if no OS name is provided. =head1 SEE ALSO =over 4 =item * L<Devel::CheckOS> =back =for :stopwords cpan testmatrix url annocpan anno bugtracker rt cpants kwalitee diff irc mailto metadata placeholders metacpan =head1 SUPPORT =head2 Bugs / Feature Requests Please report any bugs or feature requests through the issue tracker at L<https://github.com/Perl-Toolchain-Gang/Perl-OSType/issues>. You will be notified automatically of any progress on your issue. =head2 Source Code This is open source software. The code repository is available for public review and contribution under the terms of the license. L<https://github.com/Perl-Toolchain-Gang/Perl-OSType> git clone https://github.com/Perl-Toolchain-Gang/Perl-OSType.git =head1 AUTHOR David Golden <dagolden@cpan.org> =head1 CONTRIBUTORS =for stopwords Chris 'BinGOs' Williams David Golden Graham Ollis Jonas B. Nielsen Owain G. Ainsworth Paul Green Piotr Roszatycki =over 4 =item * Chris 'BinGOs' Williams <chris@bingosnet.co.uk> =item * David Golden <xdg@xdg.me> =item * Graham Ollis <plicease@cpan.org> =item * Jonas B. Nielsen <jonasbn@hoarfrost.local> =item * Owain G. Ainsworth <oga@nicotinebsd.org> =item * Paul Green <Paul.Green@stratus.com> =item * Piotr Roszatycki <piotr.roszatycki@gmail.com> =back =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2016 by David Golden. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut __END__ # vim: ts=4 sts=4 sw=4 et: PK ! �e��G �G 5.34.0/Test/Tester.pmnu �[��� use strict; package Test::Tester; BEGIN { if (*Test::Builder::new{CODE}) { warn "You should load Test::Tester before Test::Builder (or anything that loads Test::Builder)" } } use Test::Builder; use Test::Tester::CaptureRunner; use Test::Tester::Delegate; require Exporter; use vars qw( @ISA @EXPORT ); our $VERSION = '1.302183'; @EXPORT = qw( run_tests check_tests check_test cmp_results show_space ); @ISA = qw( Exporter ); my $Test = Test::Builder->new; my $Capture = Test::Tester::Capture->new; my $Delegator = Test::Tester::Delegate->new; $Delegator->{Object} = $Test; my $runner = Test::Tester::CaptureRunner->new; my $want_space = $ENV{TESTTESTERSPACE}; sub show_space { $want_space = 1; } my $colour = ''; my $reset = ''; if (my $want_colour = $ENV{TESTTESTERCOLOUR} || $ENV{TESTTESTERCOLOR}) { if (eval { require Term::ANSIColor; 1 }) { eval { require Win32::Console::ANSI } if 'MSWin32' eq $^O; # support color on windows platforms my ($f, $b) = split(",", $want_colour); $colour = Term::ANSIColor::color($f).Term::ANSIColor::color("on_$b"); $reset = Term::ANSIColor::color("reset"); } } sub new_new { return $Delegator; } sub capture { return Test::Tester::Capture->new; } sub fh { # experiment with capturing output, I don't like it $runner = Test::Tester::FHRunner->new; return $Test; } sub find_run_tests { my $d = 1; my $found = 0; while ((not $found) and (my ($sub) = (caller($d))[3]) ) { # print "$d: $sub\n"; $found = ($sub eq "Test::Tester::run_tests"); $d++; } # die "Didn't find 'run_tests' in caller stack" unless $found; return $d; } sub run_tests { local($Delegator->{Object}) = $Capture; $runner->run_tests(@_); return ($runner->get_premature, $runner->get_results); } sub check_test { my $test = shift; my $expect = shift; my $name = shift; $name = "" unless defined($name); @_ = ($test, [$expect], $name); goto &check_tests; } sub check_tests { my $test = shift; my $expects = shift; my $name = shift; $name = "" unless defined($name); my ($prem, @results) = eval { run_tests($test, $name) }; $Test->ok(! $@, "Test '$name' completed") || $Test->diag($@); $Test->ok(! length($prem), "Test '$name' no premature diagnostication") || $Test->diag("Before any testing anything, your tests said\n$prem"); local $Test::Builder::Level = $Test::Builder::Level + 1; cmp_results(\@results, $expects, $name); return ($prem, @results); } sub cmp_field { my ($result, $expect, $field, $desc) = @_; if (defined $expect->{$field}) { $Test->is_eq($result->{$field}, $expect->{$field}, "$desc compare $field"); } } sub cmp_result { my ($result, $expect, $name) = @_; my $sub_name = $result->{name}; $sub_name = "" unless defined($name); my $desc = "subtest '$sub_name' of '$name'"; { local $Test::Builder::Level = $Test::Builder::Level + 1; cmp_field($result, $expect, "ok", $desc); cmp_field($result, $expect, "actual_ok", $desc); cmp_field($result, $expect, "type", $desc); cmp_field($result, $expect, "reason", $desc); cmp_field($result, $expect, "name", $desc); } # if we got no depth then default to 1 my $depth = 1; if (exists $expect->{depth}) { $depth = $expect->{depth}; } # if depth was explicitly undef then don't test it if (defined $depth) { $Test->is_eq($result->{depth}, $depth, "checking depth") || $Test->diag('You need to change $Test::Builder::Level'); } if (defined(my $exp = $expect->{diag})) { my $got = ''; if (ref $exp eq 'Regexp') { if (not $Test->like($result->{diag}, $exp, "subtest '$sub_name' of '$name' compare diag")) { $got = $result->{diag}; } } else { # if there actually is some diag then put a \n on the end if it's not # there already $exp .= "\n" if (length($exp) and $exp !~ /\n$/); if (not $Test->ok($result->{diag} eq $exp, "subtest '$sub_name' of '$name' compare diag")) { $got = $result->{diag}; } } if ($got) { my $glen = length($got); my $elen = length($exp); for ($got, $exp) { my @lines = split("\n", $_); $_ = join("\n", map { if ($want_space) { $_ = $colour.escape($_).$reset; } else { "'$colour$_$reset'" } } @lines); } $Test->diag(<<EOM); Got diag ($glen bytes): $got Expected diag ($elen bytes): $exp EOM } } } sub escape { my $str = shift; my $res = ''; for my $char (split("", $str)) { my $c = ord($char); if(($c>32 and $c<125) or $c == 10) { $res .= $char; } else { $res .= sprintf('\x{%x}', $c) } } return $res; } sub cmp_results { my ($results, $expects, $name) = @_; $Test->is_num(scalar @$results, scalar @$expects, "Test '$name' result count"); for (my $i = 0; $i < @$expects; $i++) { my $expect = $expects->[$i]; my $result = $results->[$i]; local $Test::Builder::Level = $Test::Builder::Level + 1; cmp_result($result, $expect, $name); } } ######## nicked from Test::More sub plan { my(@plan) = @_; my $caller = caller; $Test->exported_to($caller); my @imports = (); foreach my $idx (0..$#plan) { if( $plan[$idx] eq 'import' ) { my($tag, $imports) = splice @plan, $idx, 2; @imports = @$imports; last; } } $Test->plan(@plan); __PACKAGE__->_export_to_level(1, __PACKAGE__, @imports); } sub import { my($class) = shift; { no warnings 'redefine'; *Test::Builder::new = \&new_new; } goto &plan; } sub _export_to_level { my $pkg = shift; my $level = shift; (undef) = shift; # redundant arg my $callpkg = caller($level); $pkg->export($callpkg, @_); } ############ 1; __END__ =head1 NAME Test::Tester - Ease testing test modules built with Test::Builder =head1 SYNOPSIS use Test::Tester tests => 6; use Test::MyStyle; check_test( sub { is_mystyle_eq("this", "that", "not eq"); }, { ok => 0, # expect this to fail name => "not eq", diag => "Expected: 'this'\nGot: 'that'", } ); or use Test::Tester tests => 6; use Test::MyStyle; check_test( sub { is_mystyle_qr("this", "that", "not matching"); }, { ok => 0, # expect this to fail name => "not matching", diag => qr/Expected: 'this'\s+Got: 'that'/, } ); or use Test::Tester; use Test::More tests => 3; use Test::MyStyle; my ($premature, @results) = run_tests( sub { is_database_alive("dbname"); } ); # now use Test::More::like to check the diagnostic output like($results[0]->{diag}, "/^Database ping took \\d+ seconds$"/, "diag"); =head1 DESCRIPTION If you have written a test module based on Test::Builder then Test::Tester allows you to test it with the minimum of effort. =head1 HOW TO USE (THE EASY WAY) From version 0.08 Test::Tester no longer requires you to included anything special in your test modules. All you need to do is use Test::Tester; in your test script B<before> any other Test::Builder based modules and away you go. Other modules based on Test::Builder can be used to help with the testing. In fact you can even use functions from your module to test other functions from the same module (while this is possible it is probably not a good idea, if your module has bugs, then using it to test itself may give the wrong answers). The easiest way to test is to do something like check_test( sub { is_mystyle_eq("this", "that", "not eq") }, { ok => 0, # we expect the test to fail name => "not eq", diag => "Expected: 'this'\nGot: 'that'", } ); this will execute the is_mystyle_eq test, capturing its results and checking that they are what was expected. You may need to examine the test results in a more flexible way, for example, the diagnostic output may be quite long or complex or it may involve something that you cannot predict in advance like a timestamp. In this case you can get direct access to the test results: my ($premature, @results) = run_tests( sub { is_database_alive("dbname"); } ); like($result[0]->{diag}, "/^Database ping took \\d+ seconds$"/, "diag"); or check_test( sub { is_mystyle_qr("this", "that", "not matching") }, { ok => 0, # we expect the test to fail name => "not matching", diag => qr/Expected: 'this'\s+Got: 'that'/, } ); We cannot predict how long the database ping will take so we use Test::More's like() test to check that the diagnostic string is of the right form. =head1 HOW TO USE (THE HARD WAY) I<This is here for backwards compatibility only> Make your module use the Test::Tester::Capture object instead of the Test::Builder one. How to do this depends on your module but assuming that your module holds the Test::Builder object in $Test and that all your test routines access it through $Test then providing a function something like this sub set_builder { $Test = shift; } should allow your test scripts to do Test::YourModule::set_builder(Test::Tester->capture); and after that any tests inside your module will captured. =head1 TEST RESULTS The result of each test is captured in a hash. These hashes are the same as the hashes returned by Test::Builder->details but with a couple of extra fields. These fields are documented in L<Test::Builder> in the details() function =over 2 =item ok Did the test pass? =item actual_ok Did the test really pass? That is, did the pass come from Test::Builder->ok() or did it pass because it was a TODO test? =item name The name supplied for the test. =item type What kind of test? Possibilities include, skip, todo etc. See L<Test::Builder> for more details. =item reason The reason for the skip, todo etc. See L<Test::Builder> for more details. =back These fields are exclusive to Test::Tester. =over 2 =item diag Any diagnostics that were output for the test. This only includes diagnostics output B<after> the test result is declared. Note that Test::Builder ensures that any diagnostics end in a \n and it in earlier versions of Test::Tester it was essential that you have the final \n in your expected diagnostics. From version 0.10 onward, Test::Tester will add the \n if you forgot it. It will not add a \n if you are expecting no diagnostics. See below for help tracking down hard to find space and tab related problems. =item depth This allows you to check that your test module is setting the correct value for $Test::Builder::Level and thus giving the correct file and line number when a test fails. It is calculated by looking at caller() and $Test::Builder::Level. It should count how many subroutines there are before jumping into the function you are testing. So for example in run_tests( sub { my_test_function("a", "b") } ); the depth should be 1 and in sub deeper { my_test_function("a", "b") } run_tests(sub { deeper() }); depth should be 2, that is 1 for the sub {} and one for deeper(). This might seem a little complex but if your tests look like the simple examples in this doc then you don't need to worry as the depth will always be 1 and that's what Test::Tester expects by default. B<Note>: if you do not specify a value for depth in check_test() then it automatically compares it against 1, if you really want to skip the depth test then pass in undef. B<Note>: depth will not be correctly calculated for tests that run from a signal handler or an END block or anywhere else that hides the call stack. =back Some of Test::Tester's functions return arrays of these hashes, just like Test::Builder->details. That is, the hash for the first test will be array element 1 (not 0). Element 0 will not be a hash it will be a string which contains any diagnostic output that came before the first test. This should usually be empty, if it's not, it means something output diagnostics before any test results showed up. =head1 SPACES AND TABS Appearances can be deceptive, especially when it comes to emptiness. If you are scratching your head trying to work out why Test::Tester is saying that your diagnostics are wrong when they look perfectly right then the answer is probably whitespace. From version 0.10 on, Test::Tester surrounds the expected and got diag values with single quotes to make it easier to spot trailing whitespace. So in this example # Got diag (5 bytes): # 'abcd ' # Expected diag (4 bytes): # 'abcd' it is quite clear that there is a space at the end of the first string. Another way to solve this problem is to use colour and inverse video on an ANSI terminal, see below COLOUR below if you want this. Unfortunately this is sometimes not enough, neither colour nor quotes will help you with problems involving tabs, other non-printing characters and certain kinds of problems inherent in Unicode. To deal with this, you can switch Test::Tester into a mode whereby all "tricky" characters are shown as \{xx}. Tricky characters are those with ASCII code less than 33 or higher than 126. This makes the output more difficult to read but much easier to find subtle differences between strings. To turn on this mode either call C<show_space()> in your test script or set the C<TESTTESTERSPACE> environment variable to be a true value. The example above would then look like # Got diag (5 bytes): # abcd\x{20} # Expected diag (4 bytes): # abcd =head1 COLOUR If you prefer to use colour as a means of finding tricky whitespace characters then you can set the C<TESTTESTCOLOUR> environment variable to a comma separated pair of colours, the first for the foreground, the second for the background. For example "white,red" will print white text on a red background. This requires the Term::ANSIColor module. You can specify any colour that would be acceptable to the Term::ANSIColor::color function. If you spell colour differently, that's no problem. The C<TESTTESTERCOLOR> variable also works (if both are set then the British spelling wins out). =head1 EXPORTED FUNCTIONS =head3 ($premature, @results) = run_tests(\&test_sub) \&test_sub is a reference to a subroutine. run_tests runs the subroutine in $test_sub and captures the results of any tests inside it. You can run more than 1 test inside this subroutine if you like. $premature is a string containing any diagnostic output from before the first test. @results is an array of test result hashes. =head3 cmp_result(\%result, \%expect, $name) \%result is a ref to a test result hash. \%expect is a ref to a hash of expected values for the test result. cmp_result compares the result with the expected values. If any differences are found it outputs diagnostics. You may leave out any field from the expected result and cmp_result will not do the comparison of that field. =head3 cmp_results(\@results, \@expects, $name) \@results is a ref to an array of test results. \@expects is a ref to an array of hash refs. cmp_results checks that the results match the expected results and if any differences are found it outputs diagnostics. It first checks that the number of elements in \@results and \@expects is the same. Then it goes through each result checking it against the expected result as in cmp_result() above. =head3 ($premature, @results) = check_tests(\&test_sub, \@expects, $name) \&test_sub is a reference to a subroutine. \@expect is a ref to an array of hash refs which are expected test results. check_tests combines run_tests and cmp_tests into a single call. It also checks if the tests died at any stage. It returns the same values as run_tests, so you can further examine the test results if you need to. =head3 ($premature, @results) = check_test(\&test_sub, \%expect, $name) \&test_sub is a reference to a subroutine. \%expect is a ref to an hash of expected values for the test result. check_test is a wrapper around check_tests. It combines run_tests and cmp_tests into a single call, checking if the test died. It assumes that only a single test is run inside \&test_sub and include a test to make sure this is true. It returns the same values as run_tests, so you can further examine the test results if you need to. =head3 show_space() Turn on the escaping of characters as described in the SPACES AND TABS section. =head1 HOW IT WORKS Normally, a test module (let's call it Test:MyStyle) calls Test::Builder->new to get the Test::Builder object. Test::MyStyle calls methods on this object to record information about test results. When Test::Tester is loaded, it replaces Test::Builder's new() method with one which returns a Test::Tester::Delegate object. Most of the time this object behaves as the real Test::Builder object. Any methods that are called are delegated to the real Test::Builder object so everything works perfectly. However once we go into test mode, the method calls are no longer passed to the real Test::Builder object, instead they go to the Test::Tester::Capture object. This object seems exactly like the real Test::Builder object, except, instead of outputting test results and diagnostics, it just records all the information for later analysis. =head1 CAVEATS Support for calling Test::Builder->note is minimal. It's implemented as an empty stub, so modules that use it will not crash but the calls are not recorded for testing purposes like the others. Patches welcome. =head1 SEE ALSO L<Test::Builder> the source of testing goodness. L<Test::Builder::Tester> for an alternative approach to the problem tackled by Test::Tester - captures the strings output by Test::Builder. This means you cannot get separate access to the individual pieces of information and you must predict B<exactly> what your test will output. =head1 AUTHOR This module is copyright 2005 Fergal Daly <fergal@esatclear.ie>, some parts are based on other people's work. Plan handling lifted from Test::More. written by Michael G Schwern <schwern@pobox.com>. Test::Tester::Capture is a cut down and hacked up version of Test::Builder. Test::Builder was written by chromatic <chromatic@wgz.org> and Michael G Schwern <schwern@pobox.com>. =head1 LICENSE Under the same license as Perl itself See http://www.perl.com/perl/misc/Artistic.html =cut PK ! h�/�Z� Z� 5.34.0/Test/Builder.pmnu �[��� package Test::Builder; use 5.006; use strict; use warnings; our $VERSION = '1.302183'; BEGIN { if( $] < 5.008 ) { require Test::Builder::IO::Scalar; } } use Scalar::Util qw/blessed reftype weaken/; use Test2::Util qw/USE_THREADS try get_tid/; use Test2::API qw/context release/; # Make Test::Builder thread-safe for ithreads. BEGIN { warn "Test::Builder was loaded after Test2 initialization, this is not recommended." if Test2::API::test2_init_done() || Test2::API::test2_load_done(); if (USE_THREADS && ! Test2::API::test2_ipc_disabled()) { require Test2::IPC; require Test2::IPC::Driver::Files; Test2::IPC::Driver::Files->import; Test2::API::test2_ipc_enable_polling(); Test2::API::test2_no_wait(1); } } use Test2::Event::Subtest; use Test2::Hub::Subtest; use Test::Builder::Formatter; use Test::Builder::TodoDiag; our $Level = 1; our $Test = $ENV{TB_NO_EARLY_INIT} ? undef : Test::Builder->new; sub _add_ts_hooks { my $self = shift; my $hub = $self->{Stack}->top; # Take a reference to the hash key, we do this to avoid closing over $self # which is the singleton. We use a reference because the value could change # in rare cases. my $epkgr = \$self->{Exported_To}; #$hub->add_context_aquire(sub {$_[0]->{level} += $Level - 1}); $hub->pre_filter( sub { my ($active_hub, $e) = @_; my $epkg = $$epkgr; my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; no strict 'refs'; no warnings 'once'; my $todo; $todo = ${"$cpkg\::TODO"} if $cpkg; $todo = ${"$epkg\::TODO"} if $epkg && !$todo; return $e unless defined($todo); return $e unless length($todo); # Turn a diag into a todo diag return Test::Builder::TodoDiag->new(%$e) if ref($e) eq 'Test2::Event::Diag'; $e->set_todo($todo) if $e->can('set_todo'); $e->add_amnesty({tag => 'TODO', details => $todo}); # Set todo on ok's if ($e->isa('Test2::Event::Ok')) { $e->set_effective_pass(1); if (my $result = $e->get_meta(__PACKAGE__)) { $result->{reason} ||= $todo; $result->{type} ||= 'todo'; $result->{ok} = 1; } } return $e; }, inherit => 1, intercept_inherit => { clean => sub { my %params = @_; my $state = $params{state}; my $trace = $params{trace}; my $epkg = $$epkgr; my $cpkg = $trace->{frame}->[0]; no strict 'refs'; no warnings 'once'; $state->{+__PACKAGE__} = {}; $state->{+__PACKAGE__}->{"$cpkg\::TODO"} = ${"$cpkg\::TODO"} if $cpkg; $state->{+__PACKAGE__}->{"$epkg\::TODO"} = ${"$epkg\::TODO"} if $epkg; ${"$cpkg\::TODO"} = undef if $cpkg; ${"$epkg\::TODO"} = undef if $epkg; }, restore => sub { my %params = @_; my $state = $params{state}; no strict 'refs'; no warnings 'once'; for my $item (keys %{$state->{+__PACKAGE__}}) { no strict 'refs'; no warnings 'once'; ${"$item"} = $state->{+__PACKAGE__}->{$item}; } }, }, ); } { no warnings; INIT { use warnings; Test2::API::test2_load() unless Test2::API::test2_in_preload(); } } sub new { my($class) = shift; unless($Test) { $Test = $class->create(singleton => 1); Test2::API::test2_add_callback_post_load( sub { $Test->{Original_Pid} = $$ if !$Test->{Original_Pid} || $Test->{Original_Pid} == 0; $Test->reset(singleton => 1); $Test->_add_ts_hooks; } ); # Non-TB tools normally expect 0 added to the level. $Level is normally 1. So # we only want the level to change if $Level != 1. # TB->ctx compensates for this later. Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); Test2::API::test2_add_callback_exit(sub { $Test->_ending(@_) }); Test2::API::test2_ipc()->set_no_fatal(1) if Test2::API::test2_has_ipc(); } return $Test; } sub create { my $class = shift; my %params = @_; my $self = bless {}, $class; if ($params{singleton}) { $self->{Stack} = Test2::API::test2_stack(); } else { $self->{Stack} = Test2::API::Stack->new; $self->{Stack}->new_hub( formatter => Test::Builder::Formatter->new, ipc => Test2::API::test2_ipc(), ); $self->reset(%params); $self->_add_ts_hooks; } return $self; } sub ctx { my $self = shift; context( # 1 for our frame, another for the -1 off of $Level in our hook at the top. level => 2, fudge => 1, stack => $self->{Stack}, hub => $self->{Hub}, wrapped => 1, @_ ); } sub parent { my $self = shift; my $ctx = $self->ctx; my $chub = $self->{Hub} || $ctx->hub; $ctx->release; my $meta = $chub->meta(__PACKAGE__, {}); my $parent = $meta->{parent}; return undef unless $parent; return bless { Original_Pid => $$, Stack => $self->{Stack}, Hub => $parent, }, blessed($self); } sub child { my( $self, $name ) = @_; $name ||= "Child of " . $self->name; my $ctx = $self->ctx; my $parent = $ctx->hub; my $pmeta = $parent->meta(__PACKAGE__, {}); $self->croak("You already have a child named ($pmeta->{child}) running") if $pmeta->{child}; $pmeta->{child} = $name; # Clear $TODO for the child. my $orig_TODO = $self->find_TODO(undef, 1, undef); my $subevents = []; my $hub = $ctx->stack->new_hub( class => 'Test2::Hub::Subtest', ); $hub->pre_filter(sub { my ($active_hub, $e) = @_; # Turn a diag into a todo diag return Test::Builder::TodoDiag->new(%$e) if ref($e) eq 'Test2::Event::Diag'; return $e; }, inherit => 1) if $orig_TODO; $hub->listen(sub { push @$subevents => $_[1] }); $hub->set_nested( $parent->nested + 1 ); my $meta = $hub->meta(__PACKAGE__, {}); $meta->{Name} = $name; $meta->{TODO} = $orig_TODO; $meta->{TODO_PKG} = $ctx->trace->package; $meta->{parent} = $parent; $meta->{Test_Results} = []; $meta->{subevents} = $subevents; $meta->{subtest_id} = $hub->id; $meta->{subtest_uuid} = $hub->uuid; $meta->{subtest_buffered} = $parent->format ? 0 : 1; $self->_add_ts_hooks; $ctx->release; return bless { Original_Pid => $$, Stack => $self->{Stack}, Hub => $hub, no_log_results => $self->{no_log_results} }, blessed($self); } sub finalize { my $self = shift; my $ok = 1; ($ok) = @_ if @_; my $st_ctx = $self->ctx; my $chub = $self->{Hub} || return $st_ctx->release; my $meta = $chub->meta(__PACKAGE__, {}); if ($meta->{child}) { $self->croak("Can't call finalize() with child ($meta->{child}) active"); } local $? = 0; # don't fail if $subtests happened to set $? nonzero $self->{Stack}->pop($chub); $self->find_TODO($meta->{TODO_PKG}, 1, $meta->{TODO}); my $parent = $self->parent; my $ctx = $parent->ctx; my $trace = $ctx->trace; delete $ctx->hub->meta(__PACKAGE__, {})->{child}; $chub->finalize($trace->snapshot(hid => $chub->hid, nested => $chub->nested), 1) if $ok && $chub->count && !$chub->no_ending && !$chub->ended; my $plan = $chub->plan || 0; my $count = $chub->count; my $failed = $chub->failed; my $passed = $chub->is_passing; my $num_extra = $plan =~ m/\D/ ? 0 : $count - $plan; if ($count && $num_extra != 0) { my $s = $plan == 1 ? '' : 's'; $st_ctx->diag(<<"FAIL"); Looks like you planned $plan test$s but ran $count. FAIL } if ($failed) { my $s = $failed == 1 ? '' : 's'; my $qualifier = $num_extra == 0 ? '' : ' run'; $st_ctx->diag(<<"FAIL"); Looks like you failed $failed test$s of $count$qualifier. FAIL } if (!$passed && !$failed && $count && !$num_extra) { $st_ctx->diag(<<"FAIL"); All assertions inside the subtest passed, but errors were encountered. FAIL } $st_ctx->release; unless ($chub->bailed_out) { my $plan = $chub->plan; if ( $plan && $plan eq 'SKIP' ) { $parent->skip($chub->skip_reason, $meta->{Name}); } elsif ( !$chub->count ) { $parent->ok( 0, sprintf q[No tests run for subtest "%s"], $meta->{Name} ); } else { $parent->{subevents} = $meta->{subevents}; $parent->{subtest_id} = $meta->{subtest_id}; $parent->{subtest_uuid} = $meta->{subtest_uuid}; $parent->{subtest_buffered} = $meta->{subtest_buffered}; $parent->ok( $chub->is_passing, $meta->{Name} ); } } $ctx->release; return $chub->is_passing; } sub subtest { my $self = shift; my ($name, $code, @args) = @_; my $ctx = $self->ctx; $ctx->throw("subtest()'s second argument must be a code ref") unless $code && reftype($code) eq 'CODE'; $name ||= "Child of " . $self->name; $_->($name,$code,@args) for Test2::API::test2_list_pre_subtest_callbacks(); $ctx->note("Subtest: $name"); my $child = $self->child($name); my $start_pid = $$; my $st_ctx; my ($ok, $err, $finished, $child_error); T2_SUBTEST_WRAPPER: { my $ctx = $self->ctx; $st_ctx = $ctx->snapshot; $ctx->release; $ok = eval { local $Level = 1; $code->(@args); 1 }; ($err, $child_error) = ($@, $?); # They might have done 'BEGIN { skip_all => "whatever" }' if (!$ok && $err =~ m/Label not found for "last T2_SUBTEST_WRAPPER"/ || (blessed($err) && blessed($err) eq 'Test::Builder::Exception')) { $ok = undef; $err = undef; } else { $finished = 1; } } if ($start_pid != $$ && !$INC{'Test2/IPC.pm'}) { warn $ok ? "Forked inside subtest, but subtest never finished!\n" : $err; exit 255; } my $trace = $ctx->trace; if (!$finished) { if(my $bailed = $st_ctx->hub->bailed_out) { my $chub = $child->{Hub}; $self->{Stack}->pop($chub); $ctx->bail($bailed->reason); } my $code = $st_ctx->hub->exit_code; $ok = !$code; $err = "Subtest ended with exit code $code" if $code; } my $st_hub = $st_ctx->hub; my $plan = $st_hub->plan; my $count = $st_hub->count; if (!$count && (!defined($plan) || "$plan" ne 'SKIP')) { $st_ctx->plan(0) unless defined $plan; $st_ctx->diag('No tests run!'); } $child->finalize($st_ctx->trace); $ctx->release; die $err unless $ok; $? = $child_error if defined $child_error; return $st_hub->is_passing; } sub name { my $self = shift; my $ctx = $self->ctx; release $ctx, $ctx->hub->meta(__PACKAGE__, {})->{Name}; } sub reset { ## no critic (Subroutines::ProhibitBuiltinHomonyms) my ($self, %params) = @_; Test2::API::test2_unset_is_end(); # We leave this a global because it has to be localized and localizing # hash keys is just asking for pain. Also, it was documented. $Level = 1; $self->{no_log_results} = $ENV{TEST_NO_LOG_RESULTS} ? 1 : 0 unless $params{singleton}; $self->{Original_Pid} = Test2::API::test2_in_preload() ? -1 : $$; my $ctx = $self->ctx; my $hub = $ctx->hub; $ctx->release; unless ($params{singleton}) { $hub->reset_state(); $hub->_tb_reset(); } $ctx = $self->ctx; my $meta = $ctx->hub->meta(__PACKAGE__, {}); %$meta = ( Name => $0, Ending => 0, Done_Testing => undef, Skip_All => 0, Test_Results => [], parent => $meta->{parent}, ); $self->{Exported_To} = undef unless $params{singleton}; $self->{Orig_Handles} ||= do { my $format = $ctx->hub->format; my $out; if ($format && $format->isa('Test2::Formatter::TAP')) { $out = $format->handles; } $out ? [@$out] : []; }; $self->use_numbers(1); $self->no_header(0) unless $params{singleton}; $self->no_ending(0) unless $params{singleton}; $self->reset_outputs; $ctx->release; return; } my %plan_cmds = ( no_plan => \&no_plan, skip_all => \&skip_all, tests => \&_plan_tests, ); sub plan { my( $self, $cmd, $arg ) = @_; return unless $cmd; my $ctx = $self->ctx; my $hub = $ctx->hub; $ctx->throw("You tried to plan twice") if $hub->plan; local $Level = $Level + 1; if( my $method = $plan_cmds{$cmd} ) { local $Level = $Level + 1; $self->$method($arg); } else { my @args = grep { defined } ( $cmd, $arg ); $ctx->throw("plan() doesn't understand @args"); } release $ctx, 1; } sub _plan_tests { my($self, $arg) = @_; my $ctx = $self->ctx; if($arg) { local $Level = $Level + 1; $self->expected_tests($arg); } elsif( !defined $arg ) { $ctx->throw("Got an undefined number of tests"); } else { $ctx->throw("You said to run 0 tests"); } $ctx->release; } sub expected_tests { my $self = shift; my($max) = @_; my $ctx = $self->ctx; if(@_) { $self->croak("Number of tests must be a positive integer. You gave it '$max'") unless $max =~ /^\+?\d+$/; $ctx->plan($max); } my $hub = $ctx->hub; $ctx->release; my $plan = $hub->plan; return 0 unless $plan; return 0 if $plan =~ m/\D/; return $plan; } sub no_plan { my($self, $arg) = @_; my $ctx = $self->ctx; if (defined $ctx->hub->plan) { warn "Plan already set, no_plan() is a no-op, this will change to a hard failure in the future."; $ctx->release; return; } $ctx->alert("no_plan takes no arguments") if $arg; $ctx->hub->plan('NO PLAN'); release $ctx, 1; } sub done_testing { my($self, $num_tests) = @_; my $ctx = $self->ctx; my $meta = $ctx->hub->meta(__PACKAGE__, {}); if ($meta->{Done_Testing}) { my ($file, $line) = @{$meta->{Done_Testing}}[1,2]; local $ctx->hub->{ended}; # OMG This is awful. $self->ok(0, "done_testing() was already called at $file line $line"); $ctx->release; return; } $meta->{Done_Testing} = [$ctx->trace->call]; my $plan = $ctx->hub->plan; my $count = $ctx->hub->count; # If done_testing() specified the number of tests, shut off no_plan if( defined $num_tests ) { $ctx->plan($num_tests) if !$plan || $plan eq 'NO PLAN'; } elsif ($count && defined $num_tests && $count != $num_tests) { $self->ok(0, "planned to run @{[ $self->expected_tests ]} but done_testing() expects $num_tests"); } else { $num_tests = $self->current_test; } if( $self->expected_tests && $num_tests != $self->expected_tests ) { $self->ok(0, "planned to run @{[ $self->expected_tests ]} ". "but done_testing() expects $num_tests"); } $ctx->plan($num_tests) if $ctx->hub->plan && $ctx->hub->plan eq 'NO PLAN'; $ctx->hub->finalize($ctx->trace, 1); release $ctx, 1; } sub has_plan { my $self = shift; my $ctx = $self->ctx; my $plan = $ctx->hub->plan; $ctx->release; return( $plan ) if $plan && $plan !~ m/\D/; return('no_plan') if $plan && $plan eq 'NO PLAN'; return(undef); } sub skip_all { my( $self, $reason ) = @_; my $ctx = $self->ctx; $ctx->hub->meta(__PACKAGE__, {})->{Skip_All} = $reason || 1; # Work around old perl bug if ($] < 5.020000) { my $begin = 0; my $level = 0; while (my @call = caller($level++)) { last unless @call && $call[0]; next unless $call[3] =~ m/::BEGIN$/; $begin++; last; } # HACK! die 'Label not found for "last T2_SUBTEST_WRAPPER"' if $begin && $ctx->hub->meta(__PACKAGE__, {})->{parent}; } $ctx->plan(0, SKIP => $reason); } sub exported_to { my( $self, $pack ) = @_; if( defined $pack ) { $self->{Exported_To} = $pack; } return $self->{Exported_To}; } sub ok { my( $self, $test, $name ) = @_; my $ctx = $self->ctx; # $test might contain an object which we don't want to accidentally # store, so we turn it into a boolean. $test = $test ? 1 : 0; # In case $name is a string overloaded object, force it to stringify. no warnings qw/uninitialized numeric/; $name = "$name" if defined $name; # Profiling showed that the regex here was a huge time waster, doing the # numeric addition first cuts our profile time from ~300ms to ~50ms $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; You named your test '$name'. You shouldn't use numbers for your test names. Very confusing. ERR use warnings qw/uninitialized numeric/; my $trace = $ctx->{trace}; my $hub = $ctx->{hub}; my $result = { ok => $test, actual_ok => $test, reason => '', type => '', (name => defined($name) ? $name : ''), }; $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; my $orig_name = $name; my @attrs; my $subevents = delete $self->{subevents}; my $subtest_id = delete $self->{subtest_id}; my $subtest_uuid = delete $self->{subtest_uuid}; my $subtest_buffered = delete $self->{subtest_buffered}; my $epkg = 'Test2::Event::Ok'; if ($subevents) { $epkg = 'Test2::Event::Subtest'; push @attrs => (subevents => $subevents, subtest_id => $subtest_id, subtest_uuid => $subtest_uuid, buffered => $subtest_buffered); } my $e = bless { trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), pass => $test, name => $name, _meta => {'Test::Builder' => $result}, effective_pass => $test, @attrs, }, $epkg; $hub->send($e); $self->_ok_debug($trace, $orig_name) unless($test); $ctx->release; return $test; } sub _ok_debug { my $self = shift; my ($trace, $orig_name) = @_; my $is_todo = $self->in_todo; my $msg = $is_todo ? "Failed (TODO)" : "Failed"; my (undef, $file, $line) = $trace->call; if (defined $orig_name) { $self->diag(qq[ $msg test '$orig_name'\n at $file line $line.\n]); } else { $self->diag(qq[ $msg test at $file line $line.\n]); } } sub _diag_fh { my $self = shift; local $Level = $Level + 1; return $self->in_todo ? $self->todo_output : $self->failure_output; } sub _unoverload { my ($self, $type, $thing) = @_; return unless ref $$thing; return unless blessed($$thing) || scalar $self->_try(sub{ $$thing->isa('UNIVERSAL') }); { local ($!, $@); require overload; } my $string_meth = overload::Method( $$thing, $type ) || return; $$thing = $$thing->$string_meth(); } sub _unoverload_str { my $self = shift; $self->_unoverload( q[""], $_ ) for @_; } sub _unoverload_num { my $self = shift; $self->_unoverload( '0+', $_ ) for @_; for my $val (@_) { next unless $self->_is_dualvar($$val); $$val = $$val + 0; } } # This is a hack to detect a dualvar such as $! sub _is_dualvar { my( $self, $val ) = @_; # Objects are not dualvars. return 0 if ref $val; no warnings 'numeric'; my $numval = $val + 0; return ($numval != 0 and $numval ne $val ? 1 : 0); } sub is_eq { my( $self, $got, $expect, $name ) = @_; my $ctx = $self->ctx; local $Level = $Level + 1; if( !defined $got || !defined $expect ) { # undef only matches undef and nothing else my $test = !defined $got && !defined $expect; $self->ok( $test, $name ); $self->_is_diag( $got, 'eq', $expect ) unless $test; $ctx->release; return $test; } release $ctx, $self->cmp_ok( $got, 'eq', $expect, $name ); } sub is_num { my( $self, $got, $expect, $name ) = @_; my $ctx = $self->ctx; local $Level = $Level + 1; if( !defined $got || !defined $expect ) { # undef only matches undef and nothing else my $test = !defined $got && !defined $expect; $self->ok( $test, $name ); $self->_is_diag( $got, '==', $expect ) unless $test; $ctx->release; return $test; } release $ctx, $self->cmp_ok( $got, '==', $expect, $name ); } sub _diag_fmt { my( $self, $type, $val ) = @_; if( defined $$val ) { if( $type eq 'eq' or $type eq 'ne' ) { # quote and force string context $$val = "'$$val'"; } else { # force numeric context $self->_unoverload_num($val); } } else { $$val = 'undef'; } return; } sub _is_diag { my( $self, $got, $type, $expect ) = @_; $self->_diag_fmt( $type, $_ ) for \$got, \$expect; local $Level = $Level + 1; return $self->diag(<<"DIAGNOSTIC"); got: $got expected: $expect DIAGNOSTIC } sub _isnt_diag { my( $self, $got, $type ) = @_; $self->_diag_fmt( $type, \$got ); local $Level = $Level + 1; return $self->diag(<<"DIAGNOSTIC"); got: $got expected: anything else DIAGNOSTIC } sub isnt_eq { my( $self, $got, $dont_expect, $name ) = @_; my $ctx = $self->ctx; local $Level = $Level + 1; if( !defined $got || !defined $dont_expect ) { # undef only matches undef and nothing else my $test = defined $got || defined $dont_expect; $self->ok( $test, $name ); $self->_isnt_diag( $got, 'ne' ) unless $test; $ctx->release; return $test; } release $ctx, $self->cmp_ok( $got, 'ne', $dont_expect, $name ); } sub isnt_num { my( $self, $got, $dont_expect, $name ) = @_; my $ctx = $self->ctx; local $Level = $Level + 1; if( !defined $got || !defined $dont_expect ) { # undef only matches undef and nothing else my $test = defined $got || defined $dont_expect; $self->ok( $test, $name ); $self->_isnt_diag( $got, '!=' ) unless $test; $ctx->release; return $test; } release $ctx, $self->cmp_ok( $got, '!=', $dont_expect, $name ); } sub like { my( $self, $thing, $regex, $name ) = @_; my $ctx = $self->ctx; local $Level = $Level + 1; release $ctx, $self->_regex_ok( $thing, $regex, '=~', $name ); } sub unlike { my( $self, $thing, $regex, $name ) = @_; my $ctx = $self->ctx; local $Level = $Level + 1; release $ctx, $self->_regex_ok( $thing, $regex, '!~', $name ); } my %numeric_cmps = map { ( $_, 1 ) } ( "<", "<=", ">", ">=", "==", "!=", "<=>" ); # Bad, these are not comparison operators. Should we include more? my %cmp_ok_bl = map { ( $_, 1 ) } ( "=", "+=", ".=", "x=", "^=", "|=", "||=", "&&=", "..."); sub cmp_ok { my( $self, $got, $type, $expect, $name ) = @_; my $ctx = $self->ctx; if ($cmp_ok_bl{$type}) { $ctx->throw("$type is not a valid comparison operator in cmp_ok()"); } my ($test, $succ); my $error; { ## no critic (BuiltinFunctions::ProhibitStringyEval) local( $@, $!, $SIG{__DIE__} ); # isolate eval my($pack, $file, $line) = $ctx->trace->call(); my $warning_bits = $ctx->trace->warning_bits; # convert this to a code string so the BEGIN doesn't have to close # over it, which can lead to issues with Devel::Cover my $bits_code = defined $warning_bits ? qq["\Q$warning_bits\E"] : 'undef'; # This is so that warnings come out at the caller's level $succ = eval qq[ BEGIN {\${^WARNING_BITS} = $bits_code}; #line $line "(eval in cmp_ok) $file" \$test = (\$got $type \$expect); 1; ]; $error = $@; } local $Level = $Level + 1; my $ok = $self->ok( $test, $name ); # Treat overloaded objects as numbers if we're asked to do a # numeric comparison. my $unoverload = $numeric_cmps{$type} ? '_unoverload_num' : '_unoverload_str'; $self->diag(<<"END") unless $succ; An error occurred while using $type: ------------------------------------ $error ------------------------------------ END unless($ok) { $self->$unoverload( \$got, \$expect ); if( $type =~ /^(eq|==)$/ ) { $self->_is_diag( $got, $type, $expect ); } elsif( $type =~ /^(ne|!=)$/ ) { no warnings; my $eq = ($got eq $expect || $got == $expect) && ( (defined($got) xor defined($expect)) || (length($got) != length($expect)) ); use warnings; if ($eq) { $self->_cmp_diag( $got, $type, $expect ); } else { $self->_isnt_diag( $got, $type ); } } else { $self->_cmp_diag( $got, $type, $expect ); } } return release $ctx, $ok; } sub _cmp_diag { my( $self, $got, $type, $expect ) = @_; $got = defined $got ? "'$got'" : 'undef'; $expect = defined $expect ? "'$expect'" : 'undef'; local $Level = $Level + 1; return $self->diag(<<"DIAGNOSTIC"); $got $type $expect DIAGNOSTIC } sub _caller_context { my $self = shift; my( $pack, $file, $line ) = $self->caller(1); my $code = ''; $code .= "#line $line $file\n" if defined $file and defined $line; return $code; } sub BAIL_OUT { my( $self, $reason ) = @_; my $ctx = $self->ctx; $self->{Bailed_Out} = 1; $ctx->bail($reason); } { no warnings 'once'; *BAILOUT = \&BAIL_OUT; } sub skip { my( $self, $why, $name ) = @_; $why ||= ''; $name = '' unless defined $name; $self->_unoverload_str( \$why ); my $ctx = $self->ctx; $ctx->hub->meta(__PACKAGE__, {})->{Test_Results}[ $ctx->hub->count ] = { 'ok' => 1, actual_ok => 1, name => $name, type => 'skip', reason => $why, } unless $self->{no_log_results}; $name =~ s|#|\\#|g; # # in a name can confuse Test::Harness. $name =~ s{\n}{\n# }sg; $why =~ s{\n}{\n# }sg; my $tctx = $ctx->snapshot; $tctx->skip('', $why); return release $ctx, 1; } sub todo_skip { my( $self, $why ) = @_; $why ||= ''; my $ctx = $self->ctx; $ctx->hub->meta(__PACKAGE__, {})->{Test_Results}[ $ctx->hub->count ] = { 'ok' => 1, actual_ok => 0, name => '', type => 'todo_skip', reason => $why, } unless $self->{no_log_results}; $why =~ s{\n}{\n# }sg; my $tctx = $ctx->snapshot; $tctx->send_event( 'Skip', todo => $why, todo_diag => 1, reason => $why, pass => 0); return release $ctx, 1; } sub maybe_regex { my( $self, $regex ) = @_; my $usable_regex = undef; return $usable_regex unless defined $regex; my( $re, $opts ); # Check for qr/foo/ if( _is_qr($regex) ) { $usable_regex = $regex; } # Check for '/foo/' or 'm,foo,' elsif(( $re, $opts ) = $regex =~ m{^ /(.*)/ (\w*) $ }sx or ( undef, $re, $opts ) = $regex =~ m,^ m([^\w\s]) (.+) \1 (\w*) $,sx ) { $usable_regex = length $opts ? "(?$opts)$re" : $re; } return $usable_regex; } sub _is_qr { my $regex = shift; # is_regexp() checks for regexes in a robust manner, say if they're # blessed. return re::is_regexp($regex) if defined &re::is_regexp; return ref $regex eq 'Regexp'; } sub _regex_ok { my( $self, $thing, $regex, $cmp, $name ) = @_; my $ok = 0; my $usable_regex = $self->maybe_regex($regex); unless( defined $usable_regex ) { local $Level = $Level + 1; $ok = $self->ok( 0, $name ); $self->diag(" '$regex' doesn't look much like a regex to me."); return $ok; } { my $test; my $context = $self->_caller_context; { ## no critic (BuiltinFunctions::ProhibitStringyEval) local( $@, $!, $SIG{__DIE__} ); # isolate eval # No point in issuing an uninit warning, they'll see it in the diagnostics no warnings 'uninitialized'; $test = eval $context . q{$test = $thing =~ /$usable_regex/ ? 1 : 0}; } $test = !$test if $cmp eq '!~'; local $Level = $Level + 1; $ok = $self->ok( $test, $name ); } unless($ok) { $thing = defined $thing ? "'$thing'" : 'undef'; my $match = $cmp eq '=~' ? "doesn't match" : "matches"; local $Level = $Level + 1; $self->diag( sprintf <<'DIAGNOSTIC', $thing, $match, $regex ); %s %13s '%s' DIAGNOSTIC } return $ok; } sub is_fh { my $self = shift; my $maybe_fh = shift; return 0 unless defined $maybe_fh; return 1 if ref $maybe_fh eq 'GLOB'; # its a glob ref return 1 if ref \$maybe_fh eq 'GLOB'; # its a glob return eval { $maybe_fh->isa("IO::Handle") } || eval { tied($maybe_fh)->can('TIEHANDLE') }; } sub level { my( $self, $level ) = @_; if( defined $level ) { $Level = $level; } return $Level; } sub use_numbers { my( $self, $use_nums ) = @_; my $ctx = $self->ctx; my $format = $ctx->hub->format; unless ($format && $format->can('no_numbers') && $format->can('set_no_numbers')) { warn "The current formatter does not support 'use_numbers'" if $format; return release $ctx, 0; } $format->set_no_numbers(!$use_nums) if defined $use_nums; return release $ctx, $format->no_numbers ? 0 : 1; } BEGIN { for my $method (qw(no_header no_diag)) { my $set = "set_$method"; my $code = sub { my( $self, $no ) = @_; my $ctx = $self->ctx; my $format = $ctx->hub->format; unless ($format && $format->can($set)) { warn "The current formatter does not support '$method'" if $format; $ctx->release; return } $format->$set($no) if defined $no; return release $ctx, $format->$method ? 1 : 0; }; no strict 'refs'; ## no critic *$method = $code; } } sub no_ending { my( $self, $no ) = @_; my $ctx = $self->ctx; $ctx->hub->set_no_ending($no) if defined $no; return release $ctx, $ctx->hub->no_ending; } sub diag { my $self = shift; return unless @_; my $text = join '' => map {defined($_) ? $_ : 'undef'} @_; if (Test2::API::test2_in_preload()) { chomp($text); $text =~ s/^/# /msg; print STDERR $text, "\n"; return 0; } my $ctx = $self->ctx; $ctx->diag($text); $ctx->release; return 0; } sub note { my $self = shift; return unless @_; my $text = join '' => map {defined($_) ? $_ : 'undef'} @_; if (Test2::API::test2_in_preload()) { chomp($text); $text =~ s/^/# /msg; print STDOUT $text, "\n"; return 0; } my $ctx = $self->ctx; $ctx->note($text); $ctx->release; return 0; } sub explain { my $self = shift; local ($@, $!); require Data::Dumper; return map { ref $_ ? do { my $dumper = Data::Dumper->new( [$_] ); $dumper->Indent(1)->Terse(1); $dumper->Sortkeys(1) if $dumper->can("Sortkeys"); $dumper->Dump; } : $_ } @_; } sub output { my( $self, $fh ) = @_; my $ctx = $self->ctx; my $format = $ctx->hub->format; $ctx->release; return unless $format && $format->isa('Test2::Formatter::TAP'); $format->handles->[Test2::Formatter::TAP::OUT_STD()] = $self->_new_fh($fh) if defined $fh; return $format->handles->[Test2::Formatter::TAP::OUT_STD()]; } sub failure_output { my( $self, $fh ) = @_; my $ctx = $self->ctx; my $format = $ctx->hub->format; $ctx->release; return unless $format && $format->isa('Test2::Formatter::TAP'); $format->handles->[Test2::Formatter::TAP::OUT_ERR()] = $self->_new_fh($fh) if defined $fh; return $format->handles->[Test2::Formatter::TAP::OUT_ERR()]; } sub todo_output { my( $self, $fh ) = @_; my $ctx = $self->ctx; my $format = $ctx->hub->format; $ctx->release; return unless $format && $format->isa('Test::Builder::Formatter'); $format->handles->[Test::Builder::Formatter::OUT_TODO()] = $self->_new_fh($fh) if defined $fh; return $format->handles->[Test::Builder::Formatter::OUT_TODO()]; } sub _new_fh { my $self = shift; my($file_or_fh) = shift; my $fh; if( $self->is_fh($file_or_fh) ) { $fh = $file_or_fh; } elsif( ref $file_or_fh eq 'SCALAR' ) { # Scalar refs as filehandles was added in 5.8. if( $] >= 5.008 ) { open $fh, ">>", $file_or_fh or $self->croak("Can't open scalar ref $file_or_fh: $!"); } # Emulate scalar ref filehandles with a tie. else { $fh = Test::Builder::IO::Scalar->new($file_or_fh) or $self->croak("Can't tie scalar ref $file_or_fh"); } } else { open $fh, ">", $file_or_fh or $self->croak("Can't open test output log $file_or_fh: $!"); _autoflush($fh); } return $fh; } sub _autoflush { my($fh) = shift; my $old_fh = select $fh; $| = 1; select $old_fh; return; } sub reset_outputs { my $self = shift; my $ctx = $self->ctx; my $format = $ctx->hub->format; $ctx->release; return unless $format && $format->isa('Test2::Formatter::TAP'); $format->set_handles([@{$self->{Orig_Handles}}]) if $self->{Orig_Handles}; return; } sub carp { my $self = shift; my $ctx = $self->ctx; $ctx->alert(join "", @_); $ctx->release; } sub croak { my $self = shift; my $ctx = $self->ctx; $ctx->throw(join "", @_); $ctx->release; } sub current_test { my( $self, $num ) = @_; my $ctx = $self->ctx; my $hub = $ctx->hub; if( defined $num ) { $hub->set_count($num); unless ($self->{no_log_results}) { # If the test counter is being pushed forward fill in the details. my $test_results = $ctx->hub->meta(__PACKAGE__, {})->{Test_Results}; if ($num > @$test_results) { my $start = @$test_results ? @$test_results : 0; for ($start .. $num - 1) { $test_results->[$_] = { 'ok' => 1, actual_ok => undef, reason => 'incrementing test number', type => 'unknown', name => undef }; } } # If backward, wipe history. Its their funeral. elsif ($num < @$test_results) { $#{$test_results} = $num - 1; } } } return release $ctx, $hub->count; } sub is_passing { my $self = shift; my $ctx = $self->ctx; my $hub = $ctx->hub; if( @_ ) { my ($bool) = @_; $hub->set_failed(0) if $bool; $hub->is_passing($bool); } return release $ctx, $hub->is_passing; } sub summary { my($self) = shift; return if $self->{no_log_results}; my $ctx = $self->ctx; my $data = $ctx->hub->meta(__PACKAGE__, {})->{Test_Results}; $ctx->release; return map { $_ ? $_->{'ok'} : () } @$data; } sub details { my $self = shift; return if $self->{no_log_results}; my $ctx = $self->ctx; my $data = $ctx->hub->meta(__PACKAGE__, {})->{Test_Results}; $ctx->release; return @$data; } sub find_TODO { my( $self, $pack, $set, $new_value ) = @_; my $ctx = $self->ctx; $pack ||= $ctx->trace->package || $self->exported_to; $ctx->release; return unless $pack; no strict 'refs'; ## no critic no warnings 'once'; my $old_value = ${ $pack . '::TODO' }; $set and ${ $pack . '::TODO' } = $new_value; return $old_value; } sub todo { my( $self, $pack ) = @_; local $Level = $Level + 1; my $ctx = $self->ctx; $ctx->release; my $meta = $ctx->hub->meta(__PACKAGE__, {todo => []})->{todo}; return $meta->[-1]->[1] if $meta && @$meta; $pack ||= $ctx->trace->package; return unless $pack; no strict 'refs'; ## no critic no warnings 'once'; return ${ $pack . '::TODO' }; } sub in_todo { my $self = shift; local $Level = $Level + 1; my $ctx = $self->ctx; $ctx->release; my $meta = $ctx->hub->meta(__PACKAGE__, {todo => []})->{todo}; return 1 if $meta && @$meta; my $pack = $ctx->trace->package || return 0; no strict 'refs'; ## no critic no warnings 'once'; my $todo = ${ $pack . '::TODO' }; return 0 unless defined $todo; return 0 if "$todo" eq ''; return 1; } sub todo_start { my $self = shift; my $message = @_ ? shift : ''; my $ctx = $self->ctx; my $hub = $ctx->hub; my $filter = $hub->pre_filter(sub { my ($active_hub, $e) = @_; # Turn a diag into a todo diag return Test::Builder::TodoDiag->new(%$e) if ref($e) eq 'Test2::Event::Diag'; # Set todo on ok's if ($hub == $active_hub && $e->isa('Test2::Event::Ok')) { $e->set_todo($message); $e->set_effective_pass(1); if (my $result = $e->get_meta(__PACKAGE__)) { $result->{reason} ||= $message; $result->{type} ||= 'todo'; $result->{ok} = 1; } } return $e; }, inherit => 1); push @{$ctx->hub->meta(__PACKAGE__, {todo => []})->{todo}} => [$filter, $message]; $ctx->release; return; } sub todo_end { my $self = shift; my $ctx = $self->ctx; my $set = pop @{$ctx->hub->meta(__PACKAGE__, {todo => []})->{todo}}; $ctx->throw('todo_end() called without todo_start()') unless $set; $ctx->hub->pre_unfilter($set->[0]); $ctx->release; return; } sub caller { ## no critic (Subroutines::ProhibitBuiltinHomonyms) my( $self ) = @_; my $ctx = $self->ctx; my $trace = $ctx->trace; $ctx->release; return wantarray ? $trace->call : $trace->package; } sub _try { my( $self, $code, %opts ) = @_; my $error; my $return; { local $!; # eval can mess up $! local $@; # don't set $@ in the test local $SIG{__DIE__}; # don't trip an outside DIE handler. $return = eval { $code->() }; $error = $@; } die $error if $error and $opts{die_on_fail}; return wantarray ? ( $return, $error ) : $return; } sub _ending { my $self = shift; my ($ctx, $real_exit_code, $new) = @_; unless ($ctx) { my $octx = $self->ctx; $ctx = $octx->snapshot; $octx->release; } return if $ctx->hub->no_ending; return if $ctx->hub->meta(__PACKAGE__, {})->{Ending}++; # Don't bother with an ending if this is a forked copy. Only the parent # should do the ending. return unless $self->{Original_Pid} == $$; my $hub = $ctx->hub; return if $hub->bailed_out; my $plan = $hub->plan; my $count = $hub->count; my $failed = $hub->failed; my $passed = $hub->is_passing; return unless $plan || $count || $failed; # Ran tests but never declared a plan or hit done_testing if( !$hub->plan and $hub->count ) { $self->diag("Tests were run but no plan was declared and done_testing() was not seen."); if($real_exit_code) { $self->diag(<<"FAIL"); Looks like your test exited with $real_exit_code just after $count. FAIL $$new ||= $real_exit_code; return; } # But if the tests ran, handle exit code. if($failed > 0) { my $exit_code = $failed <= 254 ? $failed : 254; $$new ||= $exit_code; return; } $$new ||= 254; return; } if ($real_exit_code && !$count) { $self->diag("Looks like your test exited with $real_exit_code before it could output anything."); $$new ||= $real_exit_code; return; } return if $plan && "$plan" eq 'SKIP'; if (!$count) { $self->diag('No tests run!'); $$new ||= 255; return; } if ($real_exit_code) { $self->diag(<<"FAIL"); Looks like your test exited with $real_exit_code just after $count. FAIL $$new ||= $real_exit_code; return; } if ($plan eq 'NO PLAN') { $ctx->plan( $count ); $plan = $hub->plan; } # Figure out if we passed or failed and print helpful messages. my $num_extra = $count - $plan; if ($num_extra != 0) { my $s = $plan == 1 ? '' : 's'; $self->diag(<<"FAIL"); Looks like you planned $plan test$s but ran $count. FAIL } if ($failed) { my $s = $failed == 1 ? '' : 's'; my $qualifier = $num_extra == 0 ? '' : ' run'; $self->diag(<<"FAIL"); Looks like you failed $failed test$s of $count$qualifier. FAIL } if (!$passed && !$failed && $count && !$num_extra) { $ctx->diag(<<"FAIL"); All assertions passed, but errors were encountered. FAIL } my $exit_code = 0; if ($failed) { $exit_code = $failed <= 254 ? $failed : 254; } elsif ($num_extra != 0) { $exit_code = 255; } elsif (!$passed) { $exit_code = 255; } $$new ||= $exit_code; return; } # Some things used this even though it was private... I am looking at you # Test::Builder::Prefix... sub _print_comment { my( $self, $fh, @msgs ) = @_; return if $self->no_diag; return unless @msgs; # Prevent printing headers when compiling (i.e. -c) return if $^C; # Smash args together like print does. # Convert undef to 'undef' so its readable. my $msg = join '', map { defined($_) ? $_ : 'undef' } @msgs; # Escape the beginning, _print will take care of the rest. $msg =~ s/^/# /; local( $\, $", $, ) = ( undef, ' ', '' ); print $fh $msg; return 0; } # This is used by Test::SharedFork to turn on IPC after the fact. Not # documenting because I do not want it used. The method name is borrowed from # Test::Builder 2 # Once Test2 stuff goes stable this method will be removed and Test::SharedFork # will be made smarter. sub coordinate_forks { my $self = shift; { local ($@, $!); require Test2::IPC; } Test2::IPC->import; Test2::API::test2_ipc_enable_polling(); Test2::API::test2_load(); my $ipc = Test2::IPC::apply_ipc($self->{Stack}); $ipc->set_no_fatal(1); Test2::API::test2_no_wait(1); } sub no_log_results { $_[0]->{no_log_results} = 1 } 1; __END__ =head1 NAME Test::Builder - Backend for building test libraries =head1 SYNOPSIS package My::Test::Module; use base 'Test::Builder::Module'; my $CLASS = __PACKAGE__; sub ok { my($test, $name) = @_; my $tb = $CLASS->builder; $tb->ok($test, $name); } =head1 DESCRIPTION L<Test::Simple> and L<Test::More> have proven to be popular testing modules, but they're not always flexible enough. Test::Builder provides a building block upon which to write your own test libraries I<which can work together>. =head2 Construction =over 4 =item B<new> my $Test = Test::Builder->new; Returns a Test::Builder object representing the current state of the test. Since you only run one test per program C<new> always returns the same Test::Builder object. No matter how many times you call C<new()>, you're getting the same object. This is called a singleton. This is done so that multiple modules share such global information as the test counter and where test output is going. If you want a completely new Test::Builder object different from the singleton, use C<create>. =item B<create> my $Test = Test::Builder->create; Ok, so there can be more than one Test::Builder object and this is how you get it. You might use this instead of C<new()> if you're testing a Test::Builder based module, but otherwise you probably want C<new>. B<NOTE>: the implementation is not complete. C<level>, for example, is still shared by B<all> Test::Builder objects, even ones created using this method. Also, the method name may change in the future. =item B<subtest> $builder->subtest($name, \&subtests, @args); See documentation of C<subtest> in Test::More. C<subtest> also, and optionally, accepts arguments which will be passed to the subtests reference. =item B<name> diag $builder->name; Returns the name of the current builder. Top level builders default to C<$0> (the name of the executable). Child builders are named via the C<child> method. If no name is supplied, will be named "Child of $parent->name". =item B<reset> $Test->reset; Reinitializes the Test::Builder singleton to its original state. Mostly useful for tests run in persistent environments where the same test might be run multiple times in the same process. =back =head2 Setting up tests These methods are for setting up tests and declaring how many there are. You usually only want to call one of these methods. =over 4 =item B<plan> $Test->plan('no_plan'); $Test->plan( skip_all => $reason ); $Test->plan( tests => $num_tests ); A convenient way to set up your tests. Call this and Test::Builder will print the appropriate headers and take the appropriate actions. If you call C<plan()>, don't call any of the other methods below. =item B<expected_tests> my $max = $Test->expected_tests; $Test->expected_tests($max); Gets/sets the number of tests we expect this test to run and prints out the appropriate headers. =item B<no_plan> $Test->no_plan; Declares that this test will run an indeterminate number of tests. =item B<done_testing> $Test->done_testing(); $Test->done_testing($num_tests); Declares that you are done testing, no more tests will be run after this point. If a plan has not yet been output, it will do so. $num_tests is the number of tests you planned to run. If a numbered plan was already declared, and if this contradicts, a failing test will be run to reflect the planning mistake. If C<no_plan> was declared, this will override. If C<done_testing()> is called twice, the second call will issue a failing test. If C<$num_tests> is omitted, the number of tests run will be used, like no_plan. C<done_testing()> is, in effect, used when you'd want to use C<no_plan>, but safer. You'd use it like so: $Test->ok($a == $b); $Test->done_testing(); Or to plan a variable number of tests: for my $test (@tests) { $Test->ok($test); } $Test->done_testing(scalar @tests); =item B<has_plan> $plan = $Test->has_plan Find out whether a plan has been defined. C<$plan> is either C<undef> (no plan has been set), C<no_plan> (indeterminate # of tests) or an integer (the number of expected tests). =item B<skip_all> $Test->skip_all; $Test->skip_all($reason); Skips all the tests, using the given C<$reason>. Exits immediately with 0. =item B<exported_to> my $pack = $Test->exported_to; $Test->exported_to($pack); Tells Test::Builder what package you exported your functions to. This method isn't terribly useful since modules which share the same Test::Builder object might get exported to different packages and only the last one will be honored. =back =head2 Running tests These actually run the tests, analogous to the functions in Test::More. They all return true if the test passed, false if the test failed. C<$name> is always optional. =over 4 =item B<ok> $Test->ok($test, $name); Your basic test. Pass if C<$test> is true, fail if $test is false. Just like Test::Simple's C<ok()>. =item B<is_eq> $Test->is_eq($got, $expected, $name); Like Test::More's C<is()>. Checks if C<$got eq $expected>. This is the string version. C<undef> only ever matches another C<undef>. =item B<is_num> $Test->is_num($got, $expected, $name); Like Test::More's C<is()>. Checks if C<$got == $expected>. This is the numeric version. C<undef> only ever matches another C<undef>. =item B<isnt_eq> $Test->isnt_eq($got, $dont_expect, $name); Like L<Test::More>'s C<isnt()>. Checks if C<$got ne $dont_expect>. This is the string version. =item B<isnt_num> $Test->isnt_num($got, $dont_expect, $name); Like L<Test::More>'s C<isnt()>. Checks if C<$got ne $dont_expect>. This is the numeric version. =item B<like> $Test->like($thing, qr/$regex/, $name); $Test->like($thing, '/$regex/', $name); Like L<Test::More>'s C<like()>. Checks if $thing matches the given C<$regex>. =item B<unlike> $Test->unlike($thing, qr/$regex/, $name); $Test->unlike($thing, '/$regex/', $name); Like L<Test::More>'s C<unlike()>. Checks if $thing B<does not match> the given C<$regex>. =item B<cmp_ok> $Test->cmp_ok($thing, $type, $that, $name); Works just like L<Test::More>'s C<cmp_ok()>. $Test->cmp_ok($big_num, '!=', $other_big_num); =back =head2 Other Testing Methods These are methods which are used in the course of writing a test but are not themselves tests. =over 4 =item B<BAIL_OUT> $Test->BAIL_OUT($reason); Indicates to the L<Test::Harness> that things are going so badly all testing should terminate. This includes running any additional test scripts. It will exit with 255. =for deprecated BAIL_OUT() used to be BAILOUT() =item B<skip> $Test->skip; $Test->skip($why); Skips the current test, reporting C<$why>. =item B<todo_skip> $Test->todo_skip; $Test->todo_skip($why); Like C<skip()>, only it will declare the test as failing and TODO. Similar to print "not ok $tnum # TODO $why\n"; =begin _unimplemented =item B<skip_rest> $Test->skip_rest; $Test->skip_rest($reason); Like C<skip()>, only it skips all the rest of the tests you plan to run and terminates the test. If you're running under C<no_plan>, it skips once and terminates the test. =end _unimplemented =back =head2 Test building utility methods These methods are useful when writing your own test methods. =over 4 =item B<maybe_regex> $Test->maybe_regex(qr/$regex/); $Test->maybe_regex('/$regex/'); This method used to be useful back when Test::Builder worked on Perls before 5.6 which didn't have qr//. Now its pretty useless. Convenience method for building testing functions that take regular expressions as arguments. Takes a quoted regular expression produced by C<qr//>, or a string representing a regular expression. Returns a Perl value which may be used instead of the corresponding regular expression, or C<undef> if its argument is not recognized. For example, a version of C<like()>, sans the useful diagnostic messages, could be written as: sub laconic_like { my ($self, $thing, $regex, $name) = @_; my $usable_regex = $self->maybe_regex($regex); die "expecting regex, found '$regex'\n" unless $usable_regex; $self->ok($thing =~ m/$usable_regex/, $name); } =item B<is_fh> my $is_fh = $Test->is_fh($thing); Determines if the given C<$thing> can be used as a filehandle. =cut =back =head2 Test style =over 4 =item B<level> $Test->level($how_high); How far up the call stack should C<$Test> look when reporting where the test failed. Defaults to 1. Setting C<$Test::Builder::Level> overrides. This is typically useful localized: sub my_ok { my $test = shift; local $Test::Builder::Level = $Test::Builder::Level + 1; $TB->ok($test); } To be polite to other functions wrapping your own you usually want to increment C<$Level> rather than set it to a constant. =item B<use_numbers> $Test->use_numbers($on_or_off); Whether or not the test should output numbers. That is, this if true: ok 1 ok 2 ok 3 or this if false ok ok ok Most useful when you can't depend on the test output order, such as when threads or forking is involved. Defaults to on. =item B<no_diag> $Test->no_diag($no_diag); If set true no diagnostics will be printed. This includes calls to C<diag()>. =item B<no_ending> $Test->no_ending($no_ending); Normally, Test::Builder does some extra diagnostics when the test ends. It also changes the exit code as described below. If this is true, none of that will be done. =item B<no_header> $Test->no_header($no_header); If set to true, no "1..N" header will be printed. =back =head2 Output Controlling where the test output goes. It's ok for your test to change where STDOUT and STDERR point to, Test::Builder's default output settings will not be affected. =over 4 =item B<diag> $Test->diag(@msgs); Prints out the given C<@msgs>. Like C<print>, arguments are simply appended together. Normally, it uses the C<failure_output()> handle, but if this is for a TODO test, the C<todo_output()> handle is used. Output will be indented and marked with a # so as not to interfere with test output. A newline will be put on the end if there isn't one already. We encourage using this rather than calling print directly. Returns false. Why? Because C<diag()> is often used in conjunction with a failing test (C<ok() || diag()>) it "passes through" the failure. return ok(...) || diag(...); =for blame transfer Mark Fowler <mark@twoshortplanks.com> =item B<note> $Test->note(@msgs); Like C<diag()>, but it prints to the C<output()> handle so it will not normally be seen by the user except in verbose mode. =item B<explain> my @dump = $Test->explain(@msgs); Will dump the contents of any references in a human readable format. Handy for things like... is_deeply($have, $want) || diag explain $have; or is_deeply($have, $want) || note explain $have; =item B<output> =item B<failure_output> =item B<todo_output> my $filehandle = $Test->output; $Test->output($filehandle); $Test->output($filename); $Test->output(\$scalar); These methods control where Test::Builder will print its output. They take either an open C<$filehandle>, a C<$filename> to open and write to or a C<$scalar> reference to append to. It will always return a C<$filehandle>. B<output> is where normal "ok/not ok" test output goes. Defaults to STDOUT. B<failure_output> is where diagnostic output on test failures and C<diag()> goes. It is normally not read by Test::Harness and instead is displayed to the user. Defaults to STDERR. C<todo_output> is used instead of C<failure_output()> for the diagnostics of a failing TODO test. These will not be seen by the user. Defaults to STDOUT. =item reset_outputs $tb->reset_outputs; Resets all the output filehandles back to their defaults. =item carp $tb->carp(@message); Warns with C<@message> but the message will appear to come from the point where the original test function was called (C<< $tb->caller >>). =item croak $tb->croak(@message); Dies with C<@message> but the message will appear to come from the point where the original test function was called (C<< $tb->caller >>). =back =head2 Test Status and Info =over 4 =item B<no_log_results> This will turn off result long-term storage. Calling this method will make C<details> and C<summary> useless. You may want to use this if you are running enough tests to fill up all available memory. Test::Builder->new->no_log_results(); There is no way to turn it back on. =item B<current_test> my $curr_test = $Test->current_test; $Test->current_test($num); Gets/sets the current test number we're on. You usually shouldn't have to set this. If set forward, the details of the missing tests are filled in as 'unknown'. if set backward, the details of the intervening tests are deleted. You can erase history if you really want to. =item B<is_passing> my $ok = $builder->is_passing; Indicates if the test suite is currently passing. More formally, it will be false if anything has happened which makes it impossible for the test suite to pass. True otherwise. For example, if no tests have run C<is_passing()> will be true because even though a suite with no tests is a failure you can add a passing test to it and start passing. Don't think about it too much. =item B<summary> my @tests = $Test->summary; A simple summary of the tests so far. True for pass, false for fail. This is a logical pass/fail, so todos are passes. Of course, test #1 is $tests[0], etc... =item B<details> my @tests = $Test->details; Like C<summary()>, but with a lot more detail. $tests[$test_num - 1] = { 'ok' => is the test considered a pass? actual_ok => did it literally say 'ok'? name => name of the test (if any) type => type of test (if any, see below). reason => reason for the above (if any) }; 'ok' is true if Test::Harness will consider the test to be a pass. 'actual_ok' is a reflection of whether or not the test literally printed 'ok' or 'not ok'. This is for examining the result of 'todo' tests. 'name' is the name of the test. 'type' indicates if it was a special test. Normal tests have a type of ''. Type can be one of the following: skip see skip() todo see todo() todo_skip see todo_skip() unknown see below Sometimes the Test::Builder test counter is incremented without it printing any test output, for example, when C<current_test()> is changed. In these cases, Test::Builder doesn't know the result of the test, so its type is 'unknown'. These details for these tests are filled in. They are considered ok, but the name and actual_ok is left C<undef>. For example "not ok 23 - hole count # TODO insufficient donuts" would result in this structure: $tests[22] = # 23 - 1, since arrays start from 0. { ok => 1, # logically, the test passed since its todo actual_ok => 0, # in absolute terms, it failed name => 'hole count', type => 'todo', reason => 'insufficient donuts' }; =item B<todo> my $todo_reason = $Test->todo; my $todo_reason = $Test->todo($pack); If the current tests are considered "TODO" it will return the reason, if any. This reason can come from a C<$TODO> variable or the last call to C<todo_start()>. Since a TODO test does not need a reason, this function can return an empty string even when inside a TODO block. Use C<< $Test->in_todo >> to determine if you are currently inside a TODO block. C<todo()> is about finding the right package to look for C<$TODO> in. It's pretty good at guessing the right package to look at. It first looks for the caller based on C<$Level + 1>, since C<todo()> is usually called inside a test function. As a last resort it will use C<exported_to()>. Sometimes there is some confusion about where C<todo()> should be looking for the C<$TODO> variable. If you want to be sure, tell it explicitly what $pack to use. =item B<find_TODO> my $todo_reason = $Test->find_TODO(); my $todo_reason = $Test->find_TODO($pack); Like C<todo()> but only returns the value of C<$TODO> ignoring C<todo_start()>. Can also be used to set C<$TODO> to a new value while returning the old value: my $old_reason = $Test->find_TODO($pack, 1, $new_reason); =item B<in_todo> my $in_todo = $Test->in_todo; Returns true if the test is currently inside a TODO block. =item B<todo_start> $Test->todo_start(); $Test->todo_start($message); This method allows you declare all subsequent tests as TODO tests, up until the C<todo_end> method has been called. The C<TODO:> and C<$TODO> syntax is generally pretty good about figuring out whether or not we're in a TODO test. However, often we find that this is not possible to determine (such as when we want to use C<$TODO> but the tests are being executed in other packages which can't be inferred beforehand). Note that you can use this to nest "todo" tests $Test->todo_start('working on this'); # lots of code $Test->todo_start('working on that'); # more code $Test->todo_end; $Test->todo_end; This is generally not recommended, but large testing systems often have weird internal needs. We've tried to make this also work with the TODO: syntax, but it's not guaranteed and its use is also discouraged: TODO: { local $TODO = 'We have work to do!'; $Test->todo_start('working on this'); # lots of code $Test->todo_start('working on that'); # more code $Test->todo_end; $Test->todo_end; } Pick one style or another of "TODO" to be on the safe side. =item C<todo_end> $Test->todo_end; Stops running tests as "TODO" tests. This method is fatal if called without a preceding C<todo_start> method call. =item B<caller> my $package = $Test->caller; my($pack, $file, $line) = $Test->caller; my($pack, $file, $line) = $Test->caller($height); Like the normal C<caller()>, except it reports according to your C<level()>. C<$height> will be added to the C<level()>. If C<caller()> winds up off the top of the stack it report the highest context. =back =head1 EXIT CODES If all your tests passed, Test::Builder will exit with zero (which is normal). If anything failed it will exit with how many failed. If you run less (or more) tests than you planned, the missing (or extras) will be considered failures. If no tests were ever run Test::Builder will throw a warning and exit with 255. If the test died, even after having successfully completed all its tests, it will still be considered a failure and will exit with 255. So the exit codes are... 0 all tests successful 255 test died or all passed but wrong # of tests run any other number how many failed (including missing or extras) If you fail more than 254 tests, it will be reported as 254. =head1 THREADS In perl 5.8.1 and later, Test::Builder is thread-safe. The test number is shared by all threads. This means if one thread sets the test number using C<current_test()> they will all be effected. While versions earlier than 5.8.1 had threads they contain too many bugs to support. Test::Builder is only thread-aware if threads.pm is loaded I<before> Test::Builder. You can directly disable thread support with one of the following: $ENV{T2_NO_IPC} = 1 or no Test2::IPC; or Test2::API::test2_ipc_disable() =head1 MEMORY An informative hash, accessible via C<details()>, is stored for each test you perform. So memory usage will scale linearly with each test run. Although this is not a problem for most test suites, it can become an issue if you do large (hundred thousands to million) combinatorics tests in the same run. In such cases, you are advised to either split the test file into smaller ones, or use a reverse approach, doing "normal" (code) compares and triggering C<fail()> should anything go unexpected. Future versions of Test::Builder will have a way to turn history off. =head1 EXAMPLES CPAN can provide the best examples. L<Test::Simple>, L<Test::More>, L<Test::Exception> and L<Test::Differences> all use Test::Builder. =head1 SEE ALSO =head2 INTERNALS L<Test2>, L<Test2::API> =head2 LEGACY L<Test::Simple>, L<Test::More> =head2 EXTERNAL L<Test::Harness> =head1 AUTHORS Original code by chromatic, maintained by Michael G Schwern E<lt>schwern@pobox.comE<gt> =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2002-2008 by chromatic E<lt>chromatic@wgz.orgE<gt> and Michael G Schwern E<lt>schwern@pobox.comE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://www.perl.com/perl/misc/Artistic.html> PK ! Iz2sF sF 5.34.0/Test/Builder/Tester.pmnu �[��� package Test::Builder::Tester; use strict; our $VERSION = '1.302183'; use Test::Builder; use Symbol; use Carp; =head1 NAME Test::Builder::Tester - test testsuites that have been built with Test::Builder =head1 SYNOPSIS use Test::Builder::Tester tests => 1; use Test::More; test_out("not ok 1 - foo"); test_fail(+1); fail("foo"); test_test("fail works"); =head1 DESCRIPTION A module that helps you test testing modules that are built with L<Test::Builder>. The testing system is designed to be used by performing a three step process for each test you wish to test. This process starts with using C<test_out> and C<test_err> in advance to declare what the testsuite you are testing will output with L<Test::Builder> to stdout and stderr. You then can run the test(s) from your test suite that call L<Test::Builder>. At this point the output of L<Test::Builder> is safely captured by L<Test::Builder::Tester> rather than being interpreted as real test output. The final stage is to call C<test_test> that will simply compare what you predeclared to what L<Test::Builder> actually outputted, and report the results back with a "ok" or "not ok" (with debugging) to the normal output. =cut #### # set up testing #### my $t = Test::Builder->new; ### # make us an exporter ### use Exporter; our @ISA = qw(Exporter); our @EXPORT = qw(test_out test_err test_fail test_diag test_test line_num); sub import { my $class = shift; my(@plan) = @_; my $caller = caller; $t->exported_to($caller); $t->plan(@plan); my @imports = (); foreach my $idx ( 0 .. $#plan ) { if( $plan[$idx] eq 'import' ) { @imports = @{ $plan[ $idx + 1 ] }; last; } } __PACKAGE__->export_to_level( 1, __PACKAGE__, @imports ); } ### # set up file handles ### # create some private file handles my $output_handle = gensym; my $error_handle = gensym; # and tie them to this package my $out = tie *$output_handle, "Test::Builder::Tester::Tie", "STDOUT"; my $err = tie *$error_handle, "Test::Builder::Tester::Tie", "STDERR"; #### # exported functions #### # for remembering that we're testing and where we're testing at my $testing = 0; my $testing_num; my $original_is_passing; # remembering where the file handles were originally connected my $original_output_handle; my $original_failure_handle; my $original_todo_handle; my $original_formatter; my $original_harness_env; # function that starts testing and redirects the filehandles for now sub _start_testing { # Hack for things that conditioned on Test-Stream being loaded $INC{'Test/Stream.pm'} ||= 'fake' if $INC{'Test/Moose/More.pm'}; # even if we're running under Test::Harness pretend we're not # for now. This needed so Test::Builder doesn't add extra spaces $original_harness_env = $ENV{HARNESS_ACTIVE} || 0; $ENV{HARNESS_ACTIVE} = 0; my $hub = $t->{Hub} || ($t->{Stack} ? $t->{Stack}->top : Test2::API::test2_stack->top); $original_formatter = $hub->format; unless ($original_formatter && $original_formatter->isa('Test::Builder::Formatter')) { my $fmt = Test::Builder::Formatter->new; $hub->format($fmt); } # remember what the handles were set to $original_output_handle = $t->output(); $original_failure_handle = $t->failure_output(); $original_todo_handle = $t->todo_output(); # switch out to our own handles $t->output($output_handle); $t->failure_output($error_handle); $t->todo_output($output_handle); # clear the expected list $out->reset(); $err->reset(); # remember that we're testing $testing = 1; $testing_num = $t->current_test; $t->current_test(0); $original_is_passing = $t->is_passing; $t->is_passing(1); # look, we shouldn't do the ending stuff $t->no_ending(1); } =head2 Functions These are the six methods that are exported as default. =over 4 =item test_out =item test_err Procedures for predeclaring the output that your test suite is expected to produce until C<test_test> is called. These procedures automatically assume that each line terminates with "\n". So test_out("ok 1","ok 2"); is the same as test_out("ok 1\nok 2"); which is even the same as test_out("ok 1"); test_out("ok 2"); Once C<test_out> or C<test_err> (or C<test_fail> or C<test_diag>) have been called, all further output from L<Test::Builder> will be captured by L<Test::Builder::Tester>. This means that you will not be able perform further tests to the normal output in the normal way until you call C<test_test> (well, unless you manually meddle with the output filehandles) =cut sub test_out { # do we need to do any setup? _start_testing() unless $testing; $out->expect(@_); } sub test_err { # do we need to do any setup? _start_testing() unless $testing; $err->expect(@_); } =item test_fail Because the standard failure message that L<Test::Builder> produces whenever a test fails will be a common occurrence in your test error output, and because it has changed between Test::Builder versions, rather than forcing you to call C<test_err> with the string all the time like so test_err("# Failed test ($0 at line ".line_num(+1).")"); C<test_fail> exists as a convenience function that can be called instead. It takes one argument, the offset from the current line that the line that causes the fail is on. test_fail(+1); This means that the example in the synopsis could be rewritten more simply as: test_out("not ok 1 - foo"); test_fail(+1); fail("foo"); test_test("fail works"); =cut sub test_fail { # do we need to do any setup? _start_testing() unless $testing; # work out what line we should be on my( $package, $filename, $line ) = caller; $line = $line + ( shift() || 0 ); # prevent warnings # expect that on stderr $err->expect("# Failed test ($filename at line $line)"); } =item test_diag As most of the remaining expected output to the error stream will be created by L<Test::Builder>'s C<diag> function, L<Test::Builder::Tester> provides a convenience function C<test_diag> that you can use instead of C<test_err>. The C<test_diag> function prepends comment hashes and spacing to the start and newlines to the end of the expected output passed to it and adds it to the list of expected error output. So, instead of writing test_err("# Couldn't open file"); you can write test_diag("Couldn't open file"); Remember that L<Test::Builder>'s diag function will not add newlines to the end of output and test_diag will. So to check Test::Builder->new->diag("foo\n","bar\n"); You would do test_diag("foo","bar") without the newlines. =cut sub test_diag { # do we need to do any setup? _start_testing() unless $testing; # expect the same thing, but prepended with "# " local $_; $err->expect( map { "# $_" } @_ ); } =item test_test Actually performs the output check testing the tests, comparing the data (with C<eq>) that we have captured from L<Test::Builder> against what was declared with C<test_out> and C<test_err>. This takes name/value pairs that effect how the test is run. =over =item title (synonym 'name', 'label') The name of the test that will be displayed after the C<ok> or C<not ok>. =item skip_out Setting this to a true value will cause the test to ignore if the output sent by the test to the output stream does not match that declared with C<test_out>. =item skip_err Setting this to a true value will cause the test to ignore if the output sent by the test to the error stream does not match that declared with C<test_err>. =back As a convenience, if only one argument is passed then this argument is assumed to be the name of the test (as in the above examples.) Once C<test_test> has been run test output will be redirected back to the original filehandles that L<Test::Builder> was connected to (probably STDOUT and STDERR,) meaning any further tests you run will function normally and cause success/errors for L<Test::Harness>. =cut sub test_test { # END the hack delete $INC{'Test/Stream.pm'} if $INC{'Test/Stream.pm'} && $INC{'Test/Stream.pm'} eq 'fake'; # decode the arguments as described in the pod my $mess; my %args; if( @_ == 1 ) { $mess = shift } else { %args = @_; $mess = $args{name} if exists( $args{name} ); $mess = $args{title} if exists( $args{title} ); $mess = $args{label} if exists( $args{label} ); } # er, are we testing? croak "Not testing. You must declare output with a test function first." unless $testing; my $hub = $t->{Hub} || Test2::API::test2_stack->top; $hub->format($original_formatter); # okay, reconnect the test suite back to the saved handles $t->output($original_output_handle); $t->failure_output($original_failure_handle); $t->todo_output($original_todo_handle); # restore the test no, etc, back to the original point $t->current_test($testing_num); $testing = 0; $t->is_passing($original_is_passing); # re-enable the original setting of the harness $ENV{HARNESS_ACTIVE} = $original_harness_env; # check the output we've stashed unless( $t->ok( ( $args{skip_out} || $out->check ) && ( $args{skip_err} || $err->check ), $mess ) ) { # print out the diagnostic information about why this # test failed local $_; $t->diag( map { "$_\n" } $out->complaint ) unless $args{skip_out} || $out->check; $t->diag( map { "$_\n" } $err->complaint ) unless $args{skip_err} || $err->check; } } =item line_num A utility function that returns the line number that the function was called on. You can pass it an offset which will be added to the result. This is very useful for working out the correct text of diagnostic functions that contain line numbers. Essentially this is the same as the C<__LINE__> macro, but the C<line_num(+3)> idiom is arguably nicer. =cut sub line_num { my( $package, $filename, $line ) = caller; return $line + ( shift() || 0 ); # prevent warnings } =back In addition to the six exported functions there exists one function that can only be accessed with a fully qualified function call. =over 4 =item color When C<test_test> is called and the output that your tests generate does not match that which you declared, C<test_test> will print out debug information showing the two conflicting versions. As this output itself is debug information it can be confusing which part of the output is from C<test_test> and which was the original output from your original tests. Also, it may be hard to spot things like extraneous whitespace at the end of lines that may cause your test to fail even though the output looks similar. To assist you C<test_test> can colour the background of the debug information to disambiguate the different types of output. The debug output will have its background coloured green and red. The green part represents the text which is the same between the executed and actual output, the red shows which part differs. The C<color> function determines if colouring should occur or not. Passing it a true or false value will enable or disable colouring respectively, and the function called with no argument will return the current setting. To enable colouring from the command line, you can use the L<Text::Builder::Tester::Color> module like so: perl -Mlib=Text::Builder::Tester::Color test.t Or by including the L<Test::Builder::Tester::Color> module directly in the PERL5LIB. =cut my $color; sub color { $color = shift if @_; $color; } =back =head1 BUGS Test::Builder::Tester does not handle plans well. It has never done anything special with plans. This means that plans from outside Test::Builder::Tester will effect Test::Builder::Tester, worse plans when using Test::Builder::Tester will effect overall testing. At this point there are no plans to fix this bug as people have come to depend on it, and Test::Builder::Tester is now discouraged in favor of C<Test2::API::intercept()>. See L<https://github.com/Test-More/test-more/issues/667> Calls C<< Test::Builder->no_ending >> turning off the ending tests. This is needed as otherwise it will trip out because we've run more tests than we strictly should have and it'll register any failures we had that we were testing for as real failures. The color function doesn't work unless L<Term::ANSIColor> is compatible with your terminal. Additionally, L<Win32::Console::ANSI> must be installed on windows platforms for color output. Bugs (and requests for new features) can be reported to the author though GitHub: L<https://github.com/Test-More/test-more/issues> =head1 AUTHOR Copyright Mark Fowler E<lt>mark@twoshortplanks.comE<gt> 2002, 2004. Some code taken from L<Test::More> and L<Test::Catch>, written by Michael G Schwern E<lt>schwern@pobox.comE<gt>. Hence, those parts Copyright Micheal G Schwern 2001. Used and distributed with permission. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 NOTES Thanks to Richard Clamp E<lt>richardc@unixbeard.netE<gt> for letting me use his testing system to try this module out on. =head1 SEE ALSO L<Test::Builder>, L<Test::Builder::Tester::Color>, L<Test::More>. =cut 1; #################################################################### # Helper class that is used to remember expected and received data package Test::Builder::Tester::Tie; ## # add line(s) to be expected sub expect { my $self = shift; my @checks = @_; foreach my $check (@checks) { $check = $self->_account_for_subtest($check); $check = $self->_translate_Failed_check($check); push @{ $self->{wanted} }, ref $check ? $check : "$check\n"; } } sub _account_for_subtest { my( $self, $check ) = @_; my $hub = $t->{Stack}->top; my $nesting = $hub->isa('Test2::Hub::Subtest') ? $hub->nested : 0; return ref($check) ? $check : (' ' x $nesting) . $check; } sub _translate_Failed_check { my( $self, $check ) = @_; if( $check =~ /\A(.*)# (Failed .*test) \((.*?) at line (\d+)\)\Z(?!\n)/ ) { $check = "/\Q$1\E#\\s+\Q$2\E.*?\\n?.*?\Qat $3\E line \Q$4\E.*\\n?/"; } return $check; } ## # return true iff the expected data matches the got data sub check { my $self = shift; # turn off warnings as these might be undef local $^W = 0; my @checks = @{ $self->{wanted} }; my $got = $self->{got}; foreach my $check (@checks) { $check = "\Q$check\E" unless( $check =~ s,^/(.*)/$,$1, or ref $check ); return 0 unless $got =~ s/^$check//; } return length $got == 0; } ## # a complaint message about the inputs not matching (to be # used for debugging messages) sub complaint { my $self = shift; my $type = $self->type; my $got = $self->got; my $wanted = join '', @{ $self->wanted }; # are we running in colour mode? if(Test::Builder::Tester::color) { # get color eval { require Term::ANSIColor }; unless($@) { eval { require Win32::Console::ANSI } if 'MSWin32' eq $^O; # support color on windows platforms # colours my $green = Term::ANSIColor::color("black") . Term::ANSIColor::color("on_green"); my $red = Term::ANSIColor::color("black") . Term::ANSIColor::color("on_red"); my $reset = Term::ANSIColor::color("reset"); # work out where the two strings start to differ my $char = 0; $char++ while substr( $got, $char, 1 ) eq substr( $wanted, $char, 1 ); # get the start string and the two end strings my $start = $green . substr( $wanted, 0, $char ); my $gotend = $red . substr( $got, $char ) . $reset; my $wantedend = $red . substr( $wanted, $char ) . $reset; # make the start turn green on and off $start =~ s/\n/$reset\n$green/g; # make the ends turn red on and off $gotend =~ s/\n/$reset\n$red/g; $wantedend =~ s/\n/$reset\n$red/g; # rebuild the strings $got = $start . $gotend; $wanted = $start . $wantedend; } } my @got = split "\n", $got; my @wanted = split "\n", $wanted; $got = ""; $wanted = ""; while (@got || @wanted) { my $g = shift @got || ""; my $w = shift @wanted || ""; if ($g ne $w) { if($g =~ s/(\s+)$/ |> /g) { $g .= ($_ eq ' ' ? '_' : '\t') for split '', $1; } if($w =~ s/(\s+)$/ |> /g) { $w .= ($_ eq ' ' ? '_' : '\t') for split '', $1; } $g = "> $g"; $w = "> $w"; } else { $g = " $g"; $w = " $w"; } $got = $got ? "$got\n$g" : $g; $wanted = $wanted ? "$wanted\n$w" : $w; } return "$type is:\n" . "$got\nnot:\n$wanted\nas expected"; } ## # forget all expected and got data sub reset { my $self = shift; %$self = ( type => $self->{type}, got => '', wanted => [], ); } sub got { my $self = shift; return $self->{got}; } sub wanted { my $self = shift; return $self->{wanted}; } sub type { my $self = shift; return $self->{type}; } ### # tie interface ### sub PRINT { my $self = shift; $self->{got} .= join '', @_; } sub TIEHANDLE { my( $class, $type ) = @_; my $self = bless { type => $type }, $class; $self->reset; return $self; } sub READ { } sub READLINE { } sub GETC { } sub FILENO { } 1; PK ! �+�� � 5.34.0/Test/Builder/Module.pmnu �[��� package Test::Builder::Module; use strict; use Test::Builder; require Exporter; our @ISA = qw(Exporter); our $VERSION = '1.302183'; =head1 NAME Test::Builder::Module - Base class for test modules =head1 SYNOPSIS # Emulates Test::Simple package Your::Module; my $CLASS = __PACKAGE__; use parent 'Test::Builder::Module'; @EXPORT = qw(ok); sub ok ($;$) { my $tb = $CLASS->builder; return $tb->ok(@_); } 1; =head1 DESCRIPTION This is a superclass for L<Test::Builder>-based modules. It provides a handful of common functionality and a method of getting at the underlying L<Test::Builder> object. =head2 Importing Test::Builder::Module is a subclass of L<Exporter> which means your module is also a subclass of Exporter. @EXPORT, @EXPORT_OK, etc... all act normally. A few methods are provided to do the C<< use Your::Module tests => 23 >> part for you. =head3 import Test::Builder::Module provides an C<import()> method which acts in the same basic way as L<Test::More>'s, setting the plan and controlling exporting of functions and variables. This allows your module to set the plan independent of L<Test::More>. All arguments passed to C<import()> are passed onto C<< Your::Module->builder->plan() >> with the exception of C<< import =>[qw(things to import)] >>. use Your::Module import => [qw(this that)], tests => 23; says to import the functions C<this()> and C<that()> as well as set the plan to be 23 tests. C<import()> also sets the C<exported_to()> attribute of your builder to be the caller of the C<import()> function. Additional behaviors can be added to your C<import()> method by overriding C<import_extra()>. =cut sub import { my($class) = shift; Test2::API::test2_load() unless Test2::API::test2_in_preload(); # Don't run all this when loading ourself. return 1 if $class eq 'Test::Builder::Module'; my $test = $class->builder; my $caller = caller; $test->exported_to($caller); $class->import_extra( \@_ ); my(@imports) = $class->_strip_imports( \@_ ); $test->plan(@_); local $Exporter::ExportLevel = $Exporter::ExportLevel + 1; $class->Exporter::import(@imports); } sub _strip_imports { my $class = shift; my $list = shift; my @imports = (); my @other = (); my $idx = 0; while( $idx <= $#{$list} ) { my $item = $list->[$idx]; if( defined $item and $item eq 'import' ) { push @imports, @{ $list->[ $idx + 1 ] }; $idx++; } else { push @other, $item; } $idx++; } @$list = @other; return @imports; } =head3 import_extra Your::Module->import_extra(\@import_args); C<import_extra()> is called by C<import()>. It provides an opportunity for you to add behaviors to your module based on its import list. Any extra arguments which shouldn't be passed on to C<plan()> should be stripped off by this method. See L<Test::More> for an example of its use. B<NOTE> This mechanism is I<VERY ALPHA AND LIKELY TO CHANGE> as it feels like a bit of an ugly hack in its current form. =cut sub import_extra { } =head2 Builder Test::Builder::Module provides some methods of getting at the underlying Test::Builder object. =head3 builder my $builder = Your::Class->builder; This method returns the L<Test::Builder> object associated with Your::Class. It is not a constructor so you can call it as often as you like. This is the preferred way to get the L<Test::Builder> object. You should I<not> get it via C<< Test::Builder->new >> as was previously recommended. The object returned by C<builder()> may change at runtime so you should call C<builder()> inside each function rather than store it in a global. sub ok { my $builder = Your::Class->builder; return $builder->ok(@_); } =cut sub builder { return Test::Builder->new; } =head1 SEE ALSO L<< Test2::Manual::Tooling::TestBuilder >> describes the improved options for writing testing modules provided by L<< Test2 >>. =cut 1; PK ! �i�J J 5.34.0/Test/Builder/Formatter.pmnu �[��� package Test::Builder::Formatter; use strict; use warnings; our $VERSION = '1.302183'; BEGIN { require Test2::Formatter::TAP; our @ISA = qw(Test2::Formatter::TAP) } use Test2::Util::HashBase qw/no_header no_diag/; BEGIN { *OUT_STD = Test2::Formatter::TAP->can('OUT_STD'); *OUT_ERR = Test2::Formatter::TAP->can('OUT_ERR'); my $todo = OUT_ERR() + 1; *OUT_TODO = sub() { $todo }; } sub init { my $self = shift; $self->SUPER::init(@_); $self->{+HANDLES}->[OUT_TODO] = $self->{+HANDLES}->[OUT_STD]; } sub plan_tap { my ($self, $f) = @_; return if $self->{+NO_HEADER}; return $self->SUPER::plan_tap($f); } sub debug_tap { my ($self, $f, $num) = @_; return if $self->{+NO_DIAG}; my @out = $self->SUPER::debug_tap($f, $num); $self->redirect(\@out) if @out && ref $f->{about} && defined $f->{about}->{package} && $f->{about}->{package} eq 'Test::Builder::TodoDiag'; return @out; } sub info_tap { my ($self, $f) = @_; return if $self->{+NO_DIAG}; my @out = $self->SUPER::info_tap($f); $self->redirect(\@out) if @out && ref $f->{about} && defined $f->{about}->{package} && $f->{about}->{package} eq 'Test::Builder::TodoDiag'; return @out; } sub redirect { my ($self, $out) = @_; $_->[0] = OUT_TODO for @$out; } sub no_subtest_space { 1 } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test::Builder::Formatter - Test::Builder subclass of Test2::Formatter::TAP =head1 DESCRIPTION This is what takes events and turns them into TAP. =head1 SYNOPSIS use Test::Builder; # Loads Test::Builder::Formatter for you =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! �+w� � # 5.34.0/Test/Builder/Tester/Color.pmnu �[��� package Test::Builder::Tester::Color; use strict; our $VERSION = '1.302183'; require Test::Builder::Tester; =head1 NAME Test::Builder::Tester::Color - turn on colour in Test::Builder::Tester =head1 SYNOPSIS When running a test script perl -MTest::Builder::Tester::Color test.t =head1 DESCRIPTION Importing this module causes the subroutine color in Test::Builder::Tester to be called with a true value causing colour highlighting to be turned on in debug output. The sole purpose of this module is to enable colour highlighting from the command line. =cut sub import { Test::Builder::Tester::color(1); } =head1 AUTHOR Copyright Mark Fowler E<lt>mark@twoshortplanks.comE<gt> 2002. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 BUGS This module will have no effect unless Term::ANSIColor is installed. =head1 SEE ALSO L<Test::Builder::Tester>, L<Term::ANSIColor> =cut 1; PK ! ���H5 H5 5.34.0/Test/Builder/IO/Scalar.pmnu �[��� package Test::Builder::IO::Scalar; =head1 NAME Test::Builder::IO::Scalar - A copy of IO::Scalar for Test::Builder =head1 DESCRIPTION This is a copy of L<IO::Scalar> which ships with L<Test::Builder> to support scalar references as filehandles on Perl 5.6. Newer versions of Perl simply use C<open()>'s built in support. L<Test::Builder> can not have dependencies on other modules without careful consideration, so its simply been copied into the distribution. =head1 COPYRIGHT and LICENSE This file came from the "IO-stringy" Perl5 toolkit. Copyright (c) 1996 by Eryq. All rights reserved. Copyright (c) 1999,2001 by ZeeGee Software Inc. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut # This is copied code, I don't care. ##no critic use Carp; use strict; use vars qw($VERSION @ISA); use IO::Handle; use 5.005; ### The package version, both in 1.23 style *and* usable by MakeMaker: $VERSION = "2.114"; ### Inheritance: @ISA = qw(IO::Handle); #============================== =head2 Construction =over 4 =cut #------------------------------ =item new [ARGS...] I<Class method.> Return a new, unattached scalar handle. If any arguments are given, they're sent to open(). =cut sub new { my $proto = shift; my $class = ref($proto) || $proto; my $self = bless \do { local *FH }, $class; tie *$self, $class, $self; $self->open(@_); ### open on anonymous by default $self; } sub DESTROY { shift->close; } #------------------------------ =item open [SCALARREF] I<Instance method.> Open the scalar handle on a new scalar, pointed to by SCALARREF. If no SCALARREF is given, a "private" scalar is created to hold the file data. Returns the self object on success, undefined on error. =cut sub open { my ($self, $sref) = @_; ### Sanity: defined($sref) or do {my $s = ''; $sref = \$s}; (ref($sref) eq "SCALAR") or croak "open() needs a ref to a scalar"; ### Setup: *$self->{Pos} = 0; ### seek position *$self->{SR} = $sref; ### scalar reference $self; } #------------------------------ =item opened I<Instance method.> Is the scalar handle opened on something? =cut sub opened { *{shift()}->{SR}; } #------------------------------ =item close I<Instance method.> Disassociate the scalar handle from its underlying scalar. Done automatically on destroy. =cut sub close { my $self = shift; %{*$self} = (); 1; } =back =cut #============================== =head2 Input and output =over 4 =cut #------------------------------ =item flush I<Instance method.> No-op, provided for OO compatibility. =cut sub flush { "0 but true" } #------------------------------ =item getc I<Instance method.> Return the next character, or undef if none remain. =cut sub getc { my $self = shift; ### Return undef right away if at EOF; else, move pos forward: return undef if $self->eof; substr(${*$self->{SR}}, *$self->{Pos}++, 1); } #------------------------------ =item getline I<Instance method.> Return the next line, or undef on end of string. Can safely be called in an array context. Currently, lines are delimited by "\n". =cut sub getline { my $self = shift; ### Return undef right away if at EOF: return undef if $self->eof; ### Get next line: my $sr = *$self->{SR}; my $i = *$self->{Pos}; ### Start matching at this point. ### Minimal impact implementation! ### We do the fast fast thing (no regexps) if using the ### classic input record separator. ### Case 1: $/ is undef: slurp all... if (!defined($/)) { *$self->{Pos} = length $$sr; return substr($$sr, $i); } ### Case 2: $/ is "\n": zoom zoom zoom... elsif ($/ eq "\012") { ### Seek ahead for "\n"... yes, this really is faster than regexps. my $len = length($$sr); for (; $i < $len; ++$i) { last if ord (substr ($$sr, $i, 1)) == 10; } ### Extract the line: my $line; if ($i < $len) { ### We found a "\n": $line = substr ($$sr, *$self->{Pos}, $i - *$self->{Pos} + 1); *$self->{Pos} = $i+1; ### Remember where we finished up. } else { ### No "\n"; slurp the remainder: $line = substr ($$sr, *$self->{Pos}, $i - *$self->{Pos}); *$self->{Pos} = $len; } return $line; } ### Case 3: $/ is ref to int. Do fixed-size records. ### (Thanks to Dominique Quatravaux.) elsif (ref($/)) { my $len = length($$sr); my $i = ${$/} + 0; my $line = substr ($$sr, *$self->{Pos}, $i); *$self->{Pos} += $i; *$self->{Pos} = $len if (*$self->{Pos} > $len); return $line; } ### Case 4: $/ is either "" (paragraphs) or something weird... ### This is Graham's general-purpose stuff, which might be ### a tad slower than Case 2 for typical data, because ### of the regexps. else { pos($$sr) = $i; ### If in paragraph mode, skip leading lines (and update i!): length($/) or (($$sr =~ m/\G\n*/g) and ($i = pos($$sr))); ### If we see the separator in the buffer ahead... if (length($/) ? $$sr =~ m,\Q$/\E,g ### (ordinary sep) TBD: precomp! : $$sr =~ m,\n\n,g ### (a paragraph) ) { *$self->{Pos} = pos $$sr; return substr($$sr, $i, *$self->{Pos}-$i); } ### Else if no separator remains, just slurp the rest: else { *$self->{Pos} = length $$sr; return substr($$sr, $i); } } } #------------------------------ =item getlines I<Instance method.> Get all remaining lines. It will croak() if accidentally called in a scalar context. =cut sub getlines { my $self = shift; wantarray or croak("can't call getlines in scalar context!"); my ($line, @lines); push @lines, $line while (defined($line = $self->getline)); @lines; } #------------------------------ =item print ARGS... I<Instance method.> Print ARGS to the underlying scalar. B<Warning:> this continues to always cause a seek to the end of the string, but if you perform seek()s and tell()s, it is still safer to explicitly seek-to-end before subsequent print()s. =cut sub print { my $self = shift; *$self->{Pos} = length(${*$self->{SR}} .= join('', @_) . (defined($\) ? $\ : "")); 1; } sub _unsafe_print { my $self = shift; my $append = join('', @_) . $\; ${*$self->{SR}} .= $append; *$self->{Pos} += length($append); 1; } sub _old_print { my $self = shift; ${*$self->{SR}} .= join('', @_) . $\; *$self->{Pos} = length(${*$self->{SR}}); 1; } #------------------------------ =item read BUF, NBYTES, [OFFSET] I<Instance method.> Read some bytes from the scalar. Returns the number of bytes actually read, 0 on end-of-file, undef on error. =cut sub read { my $self = $_[0]; my $n = $_[2]; my $off = $_[3] || 0; my $read = substr(${*$self->{SR}}, *$self->{Pos}, $n); $n = length($read); *$self->{Pos} += $n; ($off ? substr($_[1], $off) : $_[1]) = $read; return $n; } #------------------------------ =item write BUF, NBYTES, [OFFSET] I<Instance method.> Write some bytes to the scalar. =cut sub write { my $self = $_[0]; my $n = $_[2]; my $off = $_[3] || 0; my $data = substr($_[1], $off, $n); $n = length($data); $self->print($data); return $n; } #------------------------------ =item sysread BUF, LEN, [OFFSET] I<Instance method.> Read some bytes from the scalar. Returns the number of bytes actually read, 0 on end-of-file, undef on error. =cut sub sysread { my $self = shift; $self->read(@_); } #------------------------------ =item syswrite BUF, NBYTES, [OFFSET] I<Instance method.> Write some bytes to the scalar. =cut sub syswrite { my $self = shift; $self->write(@_); } =back =cut #============================== =head2 Seeking/telling and other attributes =over 4 =cut #------------------------------ =item autoflush I<Instance method.> No-op, provided for OO compatibility. =cut sub autoflush {} #------------------------------ =item binmode I<Instance method.> No-op, provided for OO compatibility. =cut sub binmode {} #------------------------------ =item clearerr I<Instance method.> Clear the error and EOF flags. A no-op. =cut sub clearerr { 1 } #------------------------------ =item eof I<Instance method.> Are we at end of file? =cut sub eof { my $self = shift; (*$self->{Pos} >= length(${*$self->{SR}})); } #------------------------------ =item seek OFFSET, WHENCE I<Instance method.> Seek to a given position in the stream. =cut sub seek { my ($self, $pos, $whence) = @_; my $eofpos = length(${*$self->{SR}}); ### Seek: if ($whence == 0) { *$self->{Pos} = $pos } ### SEEK_SET elsif ($whence == 1) { *$self->{Pos} += $pos } ### SEEK_CUR elsif ($whence == 2) { *$self->{Pos} = $eofpos + $pos} ### SEEK_END else { croak "bad seek whence ($whence)" } ### Fixup: if (*$self->{Pos} < 0) { *$self->{Pos} = 0 } if (*$self->{Pos} > $eofpos) { *$self->{Pos} = $eofpos } return 1; } #------------------------------ =item sysseek OFFSET, WHENCE I<Instance method.> Identical to C<seek OFFSET, WHENCE>, I<q.v.> =cut sub sysseek { my $self = shift; $self->seek (@_); } #------------------------------ =item tell I<Instance method.> Return the current position in the stream, as a numeric offset. =cut sub tell { *{shift()}->{Pos} } #------------------------------ =item use_RS [YESNO] I<Instance method.> B<Deprecated and ignored.> Obey the current setting of $/, like IO::Handle does? Default is false in 1.x, but cold-welded true in 2.x and later. =cut sub use_RS { my ($self, $yesno) = @_; carp "use_RS is deprecated and ignored; \$/ is always consulted\n"; } #------------------------------ =item setpos POS I<Instance method.> Set the current position, using the opaque value returned by C<getpos()>. =cut sub setpos { shift->seek($_[0],0) } #------------------------------ =item getpos I<Instance method.> Return the current position in the string, as an opaque object. =cut *getpos = \&tell; #------------------------------ =item sref I<Instance method.> Return a reference to the underlying scalar. =cut sub sref { *{shift()}->{SR} } #------------------------------ # Tied handle methods... #------------------------------ # Conventional tiehandle interface: sub TIEHANDLE { ((defined($_[1]) && UNIVERSAL::isa($_[1], __PACKAGE__)) ? $_[1] : shift->new(@_)); } sub GETC { shift->getc(@_) } sub PRINT { shift->print(@_) } sub PRINTF { shift->print(sprintf(shift, @_)) } sub READ { shift->read(@_) } sub READLINE { wantarray ? shift->getlines(@_) : shift->getline(@_) } sub WRITE { shift->write(@_); } sub CLOSE { shift->close(@_); } sub SEEK { shift->seek(@_); } sub TELL { shift->tell(@_); } sub EOF { shift->eof(@_); } sub FILENO { -1 } #------------------------------------------------------------ 1; __END__ =back =cut =head1 WARNINGS Perl's TIEHANDLE spec was incomplete prior to 5.005_57; it was missing support for C<seek()>, C<tell()>, and C<eof()>. Attempting to use these functions with an IO::Scalar will not work prior to 5.005_57. IO::Scalar will not have the relevant methods invoked; and even worse, this kind of bug can lie dormant for a while. If you turn warnings on (via C<$^W> or C<perl -w>), and you see something like this... attempt to seek on unopened filehandle ...then you are probably trying to use one of these functions on an IO::Scalar with an old Perl. The remedy is to simply use the OO version; e.g.: $SH->seek(0,0); ### GOOD: will work on any 5.005 seek($SH,0,0); ### WARNING: will only work on 5.005_57 and beyond =head1 VERSION $Id: Scalar.pm,v 1.6 2005/02/10 21:21:53 dfs Exp $ =head1 AUTHORS =head2 Primary Maintainer David F. Skoll (F<dfs@roaringpenguin.com>). =head2 Principal author Eryq (F<eryq@zeegee.com>). President, ZeeGee Software Inc (F<http://www.zeegee.com>). =head2 Other contributors The full set of contributors always includes the folks mentioned in L<IO::Stringy/"CHANGE LOG">. But just the same, special thanks to the following individuals for their invaluable contributions (if I've forgotten or misspelled your name, please email me!): I<Andy Glew,> for contributing C<getc()>. I<Brandon Browning,> for suggesting C<opened()>. I<David Richter,> for finding and fixing the bug in C<PRINTF()>. I<Eric L. Brine,> for his offset-using read() and write() implementations. I<Richard Jones,> for his patches to massively improve the performance of C<getline()> and add C<sysread> and C<syswrite>. I<B. K. Oxley (binkley),> for stringification and inheritance improvements, and sundry good ideas. I<Doug Wilson,> for the IO::Handle inheritance and automatic tie-ing. =head1 SEE ALSO L<IO::String>, which is quite similar but which was designed more-recently and with an IO::Handle-like interface in mind, so you could mix OO- and native-filehandle usage without using tied(). I<Note:> as of version 2.x, these classes all work like their IO::Handle counterparts, so we have comparable functionality to IO::String. =cut PK ! ��u�9 9 5.34.0/Test/Builder/TodoDiag.pmnu �[��� package Test::Builder::TodoDiag; use strict; use warnings; our $VERSION = '1.302183'; BEGIN { require Test2::Event::Diag; our @ISA = qw(Test2::Event::Diag) } sub diagnostics { 0 } sub facet_data { my $self = shift; my $out = $self->SUPER::facet_data(); $out->{info}->[0]->{debug} = 0; return $out; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test::Builder::TodoDiag - Test::Builder subclass of Test2::Event::Diag =head1 DESCRIPTION This is used to encapsulate diag messages created inside TODO. =head1 SYNOPSIS You do not need to use this directly. =head1 SOURCE The source code repository for Test2 can be found at F<http://github.com/Test-More/test-more/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut PK ! /p5��K �K 5.34.0/Test/Tutorial.podnu �[��� =head1 NAME Test::Tutorial - A tutorial about writing really basic tests =head1 DESCRIPTION I<AHHHHHHH!!!! NOT TESTING! Anything but testing! Beat me, whip me, send me to Detroit, but don't make me write tests!> I<*sob*> I<Besides, I don't know how to write the damned things.> Is this you? Is writing tests right up there with writing documentation and having your fingernails pulled out? Did you open up a test and read ######## We start with some black magic and decide that's quite enough for you? It's ok. That's all gone now. We've done all the black magic for you. And here are the tricks... =head2 Nuts and bolts of testing. Here's the most basic test program. #!/usr/bin/perl -w print "1..1\n"; print 1 + 1 == 2 ? "ok 1\n" : "not ok 1\n"; Because 1 + 1 is 2, it prints: 1..1 ok 1 What this says is: C<1..1> "I'm going to run one test." [1] C<ok 1> "The first test passed". And that's about all magic there is to testing. Your basic unit of testing is the I<ok>. For each thing you test, an C<ok> is printed. Simple. L<Test::Harness> interprets your test results to determine if you succeeded or failed (more on that later). Writing all these print statements rapidly gets tedious. Fortunately, there's L<Test::Simple>. It has one function, C<ok()>. #!/usr/bin/perl -w use Test::Simple tests => 1; ok( 1 + 1 == 2 ); That does the same thing as the previous code. C<ok()> is the backbone of Perl testing, and we'll be using it instead of roll-your-own from here on. If C<ok()> gets a true value, the test passes. False, it fails. #!/usr/bin/perl -w use Test::Simple tests => 2; ok( 1 + 1 == 2 ); ok( 2 + 2 == 5 ); From that comes: 1..2 ok 1 not ok 2 # Failed test (test.pl at line 5) # Looks like you failed 1 tests of 2. C<1..2> "I'm going to run two tests." This number is a I<plan>. It helps to ensure your test program ran all the way through and didn't die or skip some tests. C<ok 1> "The first test passed." C<not ok 2> "The second test failed". Test::Simple helpfully prints out some extra commentary about your tests. It's not scary. Come, hold my hand. We're going to give an example of testing a module. For our example, we'll be testing a date library, L<Date::ICal>. It's on CPAN, so download a copy and follow along. [2] =head2 Where to start? This is the hardest part of testing, where do you start? People often get overwhelmed at the apparent enormity of the task of testing a whole module. The best place to start is at the beginning. L<Date::ICal> is an object-oriented module, and that means you start by making an object. Test C<new()>. #!/usr/bin/perl -w # assume these two lines are in all subsequent examples use strict; use warnings; use Test::Simple tests => 2; use Date::ICal; my $ical = Date::ICal->new; # create an object ok( defined $ical ); # check that we got something ok( $ical->isa('Date::ICal') ); # and it's the right class Run that and you should get: 1..2 ok 1 ok 2 Congratulations! You've written your first useful test. =head2 Names That output isn't terribly descriptive, is it? When you have two tests you can figure out which one is #2, but what if you have 102 tests? Each test can be given a little descriptive name as the second argument to C<ok()>. use Test::Simple tests => 2; ok( defined $ical, 'new() returned something' ); ok( $ical->isa('Date::ICal'), " and it's the right class" ); Now you'll see: 1..2 ok 1 - new() returned something ok 2 - and it's the right class =head2 Test the manual The simplest way to build up a decent testing suite is to just test what the manual says it does. [3] Let's pull something out of the L<Date::ICal/SYNOPSIS> and test that all its bits work. #!/usr/bin/perl -w use Test::Simple tests => 8; use Date::ICal; $ical = Date::ICal->new( year => 1964, month => 10, day => 16, hour => 16, min => 12, sec => 47, tz => '0530' ); ok( defined $ical, 'new() returned something' ); ok( $ical->isa('Date::ICal'), " and it's the right class" ); ok( $ical->sec == 47, ' sec()' ); ok( $ical->min == 12, ' min()' ); ok( $ical->hour == 16, ' hour()' ); ok( $ical->day == 17, ' day()' ); ok( $ical->month == 10, ' month()' ); ok( $ical->year == 1964, ' year()' ); Run that and you get: 1..8 ok 1 - new() returned something ok 2 - and it's the right class ok 3 - sec() ok 4 - min() ok 5 - hour() not ok 6 - day() # Failed test (- at line 16) ok 7 - month() ok 8 - year() # Looks like you failed 1 tests of 8. Whoops, a failure! [4] L<Test::Simple> helpfully lets us know on what line the failure occurred, but not much else. We were supposed to get 17, but we didn't. What did we get?? Dunno. You could re-run the test in the debugger or throw in some print statements to find out. Instead, switch from L<Test::Simple> to L<Test::More>. L<Test::More> does everything L<Test::Simple> does, and more! In fact, L<Test::More> does things I<exactly> the way L<Test::Simple> does. You can literally swap L<Test::Simple> out and put L<Test::More> in its place. That's just what we're going to do. L<Test::More> does more than L<Test::Simple>. The most important difference at this point is it provides more informative ways to say "ok". Although you can write almost any test with a generic C<ok()>, it can't tell you what went wrong. The C<is()> function lets us declare that something is supposed to be the same as something else: use Test::More tests => 8; use Date::ICal; $ical = Date::ICal->new( year => 1964, month => 10, day => 16, hour => 16, min => 12, sec => 47, tz => '0530' ); ok( defined $ical, 'new() returned something' ); ok( $ical->isa('Date::ICal'), " and it's the right class" ); is( $ical->sec, 47, ' sec()' ); is( $ical->min, 12, ' min()' ); is( $ical->hour, 16, ' hour()' ); is( $ical->day, 17, ' day()' ); is( $ical->month, 10, ' month()' ); is( $ical->year, 1964, ' year()' ); "Is C<< $ical->sec >> 47?" "Is C<< $ical->min >> 12?" With C<is()> in place, you get more information: 1..8 ok 1 - new() returned something ok 2 - and it's the right class ok 3 - sec() ok 4 - min() ok 5 - hour() not ok 6 - day() # Failed test (- at line 16) # got: '16' # expected: '17' ok 7 - month() ok 8 - year() # Looks like you failed 1 tests of 8. Aha. C<< $ical->day >> returned 16, but we expected 17. A quick check shows that the code is working fine, we made a mistake when writing the tests. Change it to: is( $ical->day, 16, ' day()' ); ... and everything works. Any time you're doing a "this equals that" sort of test, use C<is()>. It even works on arrays. The test is always in scalar context, so you can test how many elements are in an array this way. [5] is( @foo, 5, 'foo has 5 elements' ); =head2 Sometimes the tests are wrong This brings up a very important lesson. Code has bugs. Tests are code. Ergo, tests have bugs. A failing test could mean a bug in the code, but don't discount the possibility that the test is wrong. On the flip side, don't be tempted to prematurely declare a test incorrect just because you're having trouble finding the bug. Invalidating a test isn't something to be taken lightly, and don't use it as a cop out to avoid work. =head2 Testing lots of values We're going to be wanting to test a lot of dates here, trying to trick the code with lots of different edge cases. Does it work before 1970? After 2038? Before 1904? Do years after 10,000 give it trouble? Does it get leap years right? We could keep repeating the code above, or we could set up a little try/expect loop. use Test::More tests => 32; use Date::ICal; my %ICal_Dates = ( # An ICal string And the year, month, day # hour, minute and second we expect. '19971024T120000' => # from the docs. [ 1997, 10, 24, 12, 0, 0 ], '20390123T232832' => # after the Unix epoch [ 2039, 1, 23, 23, 28, 32 ], '19671225T000000' => # before the Unix epoch [ 1967, 12, 25, 0, 0, 0 ], '18990505T232323' => # before the MacOS epoch [ 1899, 5, 5, 23, 23, 23 ], ); while( my($ical_str, $expect) = each %ICal_Dates ) { my $ical = Date::ICal->new( ical => $ical_str ); ok( defined $ical, "new(ical => '$ical_str')" ); ok( $ical->isa('Date::ICal'), " and it's the right class" ); is( $ical->year, $expect->[0], ' year()' ); is( $ical->month, $expect->[1], ' month()' ); is( $ical->day, $expect->[2], ' day()' ); is( $ical->hour, $expect->[3], ' hour()' ); is( $ical->min, $expect->[4], ' min()' ); is( $ical->sec, $expect->[5], ' sec()' ); } Now we can test bunches of dates by just adding them to C<%ICal_Dates>. Now that it's less work to test with more dates, you'll be inclined to just throw more in as you think of them. Only problem is, every time we add to that we have to keep adjusting the C<< use Test::More tests => ## >> line. That can rapidly get annoying. There are ways to make this work better. First, we can calculate the plan dynamically using the C<plan()> function. use Test::More; use Date::ICal; my %ICal_Dates = ( ...same as before... ); # For each key in the hash we're running 8 tests. plan tests => keys(%ICal_Dates) * 8; ...and then your tests... To be even more flexible, use C<done_testing>. This means we're just running some tests, don't know how many. [6] use Test::More; # instead of tests => 32 ... # tests here done_testing(); # reached the end safely If you don't specify a plan, L<Test::More> expects to see C<done_testing()> before your program exits. It will warn you if you forget it. You can give C<done_testing()> an optional number of tests you expected to run, and if the number ran differs, L<Test::More> will give you another kind of warning. =head2 Informative names Take a look at the line: ok( defined $ical, "new(ical => '$ical_str')" ); We've added more detail about what we're testing and the ICal string itself we're trying out to the name. So you get results like: ok 25 - new(ical => '19971024T120000') ok 26 - and it's the right class ok 27 - year() ok 28 - month() ok 29 - day() ok 30 - hour() ok 31 - min() ok 32 - sec() If something in there fails, you'll know which one it was and that will make tracking down the problem easier. Try to put a bit of debugging information into the test names. Describe what the tests test, to make debugging a failed test easier for you or for the next person who runs your test. =head2 Skipping tests Poking around in the existing L<Date::ICal> tests, I found this in F<t/01sanity.t> [7] #!/usr/bin/perl -w use Test::More tests => 7; use Date::ICal; # Make sure epoch time is being handled sanely. my $t1 = Date::ICal->new( epoch => 0 ); is( $t1->epoch, 0, "Epoch time of 0" ); # XXX This will only work on unix systems. is( $t1->ical, '19700101Z', " epoch to ical" ); is( $t1->year, 1970, " year()" ); is( $t1->month, 1, " month()" ); is( $t1->day, 1, " day()" ); # like the tests above, but starting with ical instead of epoch my $t2 = Date::ICal->new( ical => '19700101Z' ); is( $t2->ical, '19700101Z', "Start of epoch in ICal notation" ); is( $t2->epoch, 0, " and back to ICal" ); The beginning of the epoch is different on most non-Unix operating systems [8]. Even though Perl smooths out the differences for the most part, certain ports do it differently. MacPerl is one off the top of my head. [9] Rather than putting a comment in the test and hoping someone will read the test while debugging the failure, we can explicitly say it's never going to work and skip the test. use Test::More tests => 7; use Date::ICal; # Make sure epoch time is being handled sanely. my $t1 = Date::ICal->new( epoch => 0 ); is( $t1->epoch, 0, "Epoch time of 0" ); SKIP: { skip('epoch to ICal not working on Mac OS', 6) if $^O eq 'MacOS'; is( $t1->ical, '19700101Z', " epoch to ical" ); is( $t1->year, 1970, " year()" ); is( $t1->month, 1, " month()" ); is( $t1->day, 1, " day()" ); # like the tests above, but starting with ical instead of epoch my $t2 = Date::ICal->new( ical => '19700101Z' ); is( $t2->ical, '19700101Z', "Start of epoch in ICal notation" ); is( $t2->epoch, 0, " and back to ICal" ); } A little bit of magic happens here. When running on anything but MacOS, all the tests run normally. But when on MacOS, C<skip()> causes the entire contents of the SKIP block to be jumped over. It never runs. Instead, C<skip()> prints special output that tells L<Test::Harness> that the tests have been skipped. 1..7 ok 1 - Epoch time of 0 ok 2 # skip epoch to ICal not working on MacOS ok 3 # skip epoch to ICal not working on MacOS ok 4 # skip epoch to ICal not working on MacOS ok 5 # skip epoch to ICal not working on MacOS ok 6 # skip epoch to ICal not working on MacOS ok 7 # skip epoch to ICal not working on MacOS This means your tests won't fail on MacOS. This means fewer emails from MacPerl users telling you about failing tests that you know will never work. You've got to be careful with skip tests. These are for tests which don't work and I<never will>. It is not for skipping genuine bugs (we'll get to that in a moment). The tests are wholly and completely skipped. [10] This will work. SKIP: { skip("I don't wanna die!"); die, die, die, die, die; } =head2 Todo tests While thumbing through the L<Date::ICal> man page, I came across this: ical $ical_string = $ical->ical; Retrieves, or sets, the date on the object, using any valid ICal date/time string. "Retrieves or sets". Hmmm. I didn't see a test for using C<ical()> to set the date in the Date::ICal test suite. So I wrote one: use Test::More tests => 1; use Date::ICal; my $ical = Date::ICal->new; $ical->ical('20201231Z'); is( $ical->ical, '20201231Z', 'Setting via ical()' ); Run that. I saw: 1..1 not ok 1 - Setting via ical() # Failed test (- at line 6) # got: '20010814T233649Z' # expected: '20201231Z' # Looks like you failed 1 tests of 1. Whoops! Looks like it's unimplemented. Assume you don't have the time to fix this. [11] Normally, you'd just comment out the test and put a note in a todo list somewhere. Instead, explicitly state "this test will fail" by wrapping it in a C<TODO> block: use Test::More tests => 1; TODO: { local $TODO = 'ical($ical) not yet implemented'; my $ical = Date::ICal->new; $ical->ical('20201231Z'); is( $ical->ical, '20201231Z', 'Setting via ical()' ); } Now when you run, it's a little different: 1..1 not ok 1 - Setting via ical() # TODO ical($ical) not yet implemented # got: '20010822T201551Z' # expected: '20201231Z' L<Test::More> doesn't say "Looks like you failed 1 tests of 1". That '# TODO' tells L<Test::Harness> "this is supposed to fail" and it treats a failure as a successful test. You can write tests even before you've fixed the underlying code. If a TODO test passes, L<Test::Harness> will report it "UNEXPECTEDLY SUCCEEDED". When that happens, remove the TODO block with C<local $TODO> and turn it into a real test. =head2 Testing with taint mode. Taint mode is a funny thing. It's the globalest of all global features. Once you turn it on, it affects I<all> code in your program and I<all> modules used (and all the modules they use). If a single piece of code isn't taint clean, the whole thing explodes. With that in mind, it's very important to ensure your module works under taint mode. It's very simple to have your tests run under taint mode. Just throw a C<-T> into the C<#!> line. L<Test::Harness> will read the switches in C<#!> and use them to run your tests. #!/usr/bin/perl -Tw ...test normally here... When you say C<make test> it will run with taint mode on. =head1 FOOTNOTES =over 4 =item 1 The first number doesn't really mean anything, but it has to be 1. It's the second number that's important. =item 2 For those following along at home, I'm using version 1.31. It has some bugs, which is good -- we'll uncover them with our tests. =item 3 You can actually take this one step further and test the manual itself. Have a look at L<Test::Inline> (formerly L<Pod::Tests>). =item 4 Yes, there's a mistake in the test suite. What! Me, contrived? =item 5 We'll get to testing the contents of lists later. =item 6 But what happens if your test program dies halfway through?! Since we didn't say how many tests we're going to run, how can we know it failed? No problem, L<Test::More> employs some magic to catch that death and turn the test into a failure, even if every test passed up to that point. =item 7 I cleaned it up a little. =item 8 Most Operating Systems record time as the number of seconds since a certain date. This date is the beginning of the epoch. Unix's starts at midnight January 1st, 1970 GMT. =item 9 MacOS's epoch is midnight January 1st, 1904. VMS's is midnight, November 17th, 1858, but vmsperl emulates the Unix epoch so it's not a problem. =item 10 As long as the code inside the SKIP block at least compiles. Please don't ask how. No, it's not a filter. =item 11 Do NOT be tempted to use TODO tests as a way to avoid fixing simple bugs! =back =head1 AUTHORS Michael G Schwern E<lt>schwern@pobox.comE<gt> and the perl-qa dancers! =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2001 by Michael G Schwern E<lt>schwern@pobox.comE<gt>. This documentation is free; you can redistribute it and/or modify it under the same terms as Perl itself. Irrespective of its distribution, all code examples in these files are hereby placed into the public domain. You are permitted and encouraged to use this code in your own programs for fun or for profit as you see fit. A simple comment in the code giving credit would be courteous but is not required. =cut PK ! ���\ \ 5.34.0/Test/Simple.pmnu �[��� package Test::Simple; use 5.006; use strict; our $VERSION = '1.302183'; use Test::Builder::Module; our @ISA = qw(Test::Builder::Module); our @EXPORT = qw(ok); my $CLASS = __PACKAGE__; =head1 NAME Test::Simple - Basic utilities for writing tests. =head1 SYNOPSIS use Test::Simple tests => 1; ok( $foo eq $bar, 'foo is bar' ); =head1 DESCRIPTION ** If you are unfamiliar with testing B<read L<Test::Tutorial> first!> ** This is an extremely simple, extremely basic module for writing tests suitable for CPAN modules and other pursuits. If you wish to do more complicated testing, use the Test::More module (a drop-in replacement for this one). The basic unit of Perl testing is the ok. For each thing you want to test your program will print out an "ok" or "not ok" to indicate pass or fail. You do this with the C<ok()> function (see below). The only other constraint is you must pre-declare how many tests you plan to run. This is in case something goes horribly wrong during the test and your test program aborts, or skips a test or whatever. You do this like so: use Test::Simple tests => 23; You must have a plan. =over 4 =item B<ok> ok( $foo eq $bar, $name ); ok( $foo eq $bar ); C<ok()> is given an expression (in this case C<$foo eq $bar>). If it's true, the test passed. If it's false, it didn't. That's about it. C<ok()> prints out either "ok" or "not ok" along with a test number (it keeps track of that for you). # This produces "ok 1 - Hell not yet frozen over" (or not ok) ok( get_temperature($hell) > 0, 'Hell not yet frozen over' ); If you provide a $name, that will be printed along with the "ok/not ok" to make it easier to find your test when if fails (just search for the name). It also makes it easier for the next guy to understand what your test is for. It's highly recommended you use test names. All tests are run in scalar context. So this: ok( @stuff, 'I have some stuff' ); will do what you mean (fail if stuff is empty) =cut sub ok ($;$) { ## no critic (Subroutines::ProhibitSubroutinePrototypes) return $CLASS->builder->ok(@_); } =back Test::Simple will start by printing number of tests run in the form "1..M" (so "1..5" means you're going to run 5 tests). This strange format lets L<Test::Harness> know how many tests you plan on running in case something goes horribly wrong. If all your tests passed, Test::Simple will exit with zero (which is normal). If anything failed it will exit with how many failed. If you run less (or more) tests than you planned, the missing (or extras) will be considered failures. If no tests were ever run Test::Simple will throw a warning and exit with 255. If the test died, even after having successfully completed all its tests, it will still be considered a failure and will exit with 255. So the exit codes are... 0 all tests successful 255 test died or all passed but wrong # of tests run any other number how many failed (including missing or extras) If you fail more than 254 tests, it will be reported as 254. This module is by no means trying to be a complete testing system. It's just to get you started. Once you're off the ground its recommended you look at L<Test::More>. =head1 EXAMPLE Here's an example of a simple .t file for the fictional Film module. use Test::Simple tests => 5; use Film; # What you're testing. my $btaste = Film->new({ Title => 'Bad Taste', Director => 'Peter Jackson', Rating => 'R', NumExplodingSheep => 1 }); ok( defined($btaste) && ref $btaste eq 'Film', 'new() works' ); ok( $btaste->Title eq 'Bad Taste', 'Title() get' ); ok( $btaste->Director eq 'Peter Jackson', 'Director() get' ); ok( $btaste->Rating eq 'R', 'Rating() get' ); ok( $btaste->NumExplodingSheep == 1, 'NumExplodingSheep() get' ); It will produce output like this: 1..5 ok 1 - new() works ok 2 - Title() get ok 3 - Director() get not ok 4 - Rating() get # Failed test 'Rating() get' # in t/film.t at line 14. ok 5 - NumExplodingSheep() get # Looks like you failed 1 tests of 5 Indicating the Film::Rating() method is broken. =head1 CAVEATS Test::Simple will only report a maximum of 254 failures in its exit code. If this is a problem, you probably have a huge test script. Split it into multiple files. (Otherwise blame the Unix folks for using an unsigned short integer as the exit status). Because VMS's exit codes are much, much different than the rest of the universe, and perl does horrible mangling to them that gets in my way, it works like this on VMS. 0 SS$_NORMAL all tests successful 4 SS$_ABORT something went wrong Unfortunately, I can't differentiate any further. =head1 NOTES Test::Simple is B<explicitly> tested all the way back to perl 5.6.0. Test::Simple is thread-safe in perl 5.8.1 and up. =head1 HISTORY This module was conceived while talking with Tony Bowden in his kitchen one night about the problems I was having writing some really complicated feature into the new Testing module. He observed that the main problem is not dealing with these edge cases but that people hate to write tests B<at all>. What was needed was a dead simple module that took all the hard work out of testing and was really, really easy to learn. Paul Johnson simultaneously had this idea (unfortunately, he wasn't in Tony's kitchen). This is it. =head1 SEE ALSO =over 4 =item L<Test::More> More testing functions! Once you outgrow Test::Simple, look at L<Test::More>. Test::Simple is 100% forward compatible with L<Test::More> (i.e. you can just use L<Test::More> instead of Test::Simple in your programs and things will still work). =back Look in L<Test::More>'s SEE ALSO for more testing modules. =head1 AUTHORS Idea by Tony Bowden and Paul Johnson, code by Michael G Schwern E<lt>schwern@pobox.comE<gt>, wardrobe by Calvin Klein. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2001-2008 by Michael G Schwern E<lt>schwern@pobox.comE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://www.perl.com/perl/misc/Artistic.html> =cut 1; PK ! �Ի # 5.34.0/Test/Tester/CaptureRunner.pmnu �[��� # $Header: /home/fergal/my/cvs/Test-Tester/lib/Test/Tester/CaptureRunner.pm,v 1.3 2003/03/05 01:07:55 fergal Exp $ use strict; package Test::Tester::CaptureRunner; our $VERSION = '1.302183'; use Test::Tester::Capture; require Exporter; sub new { my $pkg = shift; my $self = bless {}, $pkg; return $self; } sub run_tests { my $self = shift; my $test = shift; capture()->reset; $self->{StartLevel} = $Test::Builder::Level; &$test(); } sub get_results { my $self = shift; my @results = capture()->details; my $start = $self->{StartLevel}; foreach my $res (@results) { next if defined $res->{depth}; my $depth = $res->{_depth} - $res->{_level} - $start - 3; # print "my $depth = $res->{_depth} - $res->{_level} - $start - 1\n"; $res->{depth} = $depth; } return @results; } sub get_premature { return capture()->premature; } sub capture { return Test::Tester::Capture->new; } __END__ =head1 NAME Test::Tester::CaptureRunner - Help testing test modules built with Test::Builder =head1 DESCRIPTION This stuff if needed to allow me to play with other ways of monitoring the test results. =head1 AUTHOR Copyright 2003 by Fergal Daly <fergal@esatclear.ie>. =head1 LICENSE Under the same license as Perl itself See http://www.perl.com/perl/misc/Artistic.html =cut PK ! ���>H H 5.34.0/Test/Tester/Capture.pmnu �[��� use strict; package Test::Tester::Capture; our $VERSION = '1.302183'; use Test::Builder; use vars qw( @ISA ); @ISA = qw( Test::Builder ); # Make Test::Tester::Capture thread-safe for ithreads. BEGIN { use Config; *share = sub { 0 }; *lock = sub { 0 }; } my $Curr_Test = 0; share($Curr_Test); my @Test_Results = (); share(@Test_Results); my $Prem_Diag = {diag => ""}; share($Curr_Test); sub new { # Test::Tester::Capgture::new used to just return __PACKAGE__ # because Test::Builder::new enforced its singleton nature by # return __PACKAGE__. That has since changed, Test::Builder::new now # returns a blessed has and around version 0.78, Test::Builder::todo # started wanting to modify $self. To cope with this, we now return # a blessed hash. This is a short-term hack, the correct thing to do # is to detect which style of Test::Builder we're dealing with and # act appropriately. my $class = shift; return bless {}, $class; } sub ok { my($self, $test, $name) = @_; my $ctx = $self->ctx; # $test might contain an object which we don't want to accidentally # store, so we turn it into a boolean. $test = $test ? 1 : 0; lock $Curr_Test; $Curr_Test++; my($pack, $file, $line) = $self->caller; my $todo = $self->todo(); my $result = {}; share($result); unless( $test ) { @$result{ 'ok', 'actual_ok' } = ( ( $todo ? 1 : 0 ), 0 ); } else { @$result{ 'ok', 'actual_ok' } = ( 1, $test ); } if( defined $name ) { $name =~ s|#|\\#|g; # # in a name can confuse Test::Harness. $result->{name} = $name; } else { $result->{name} = ''; } if( $todo ) { my $what_todo = $todo; $result->{reason} = $what_todo; $result->{type} = 'todo'; } else { $result->{reason} = ''; $result->{type} = ''; } $Test_Results[$Curr_Test-1] = $result; unless( $test ) { my $msg = $todo ? "Failed (TODO)" : "Failed"; $result->{fail_diag} = (" $msg test ($file at line $line)\n"); } $result->{diag} = ""; $result->{_level} = $Test::Builder::Level; $result->{_depth} = Test::Tester::find_run_tests(); $ctx->release; return $test ? 1 : 0; } sub skip { my($self, $why) = @_; $why ||= ''; my $ctx = $self->ctx; lock($Curr_Test); $Curr_Test++; my %result; share(%result); %result = ( 'ok' => 1, actual_ok => 1, name => '', type => 'skip', reason => $why, diag => "", _level => $Test::Builder::Level, _depth => Test::Tester::find_run_tests(), ); $Test_Results[$Curr_Test-1] = \%result; $ctx->release; return 1; } sub todo_skip { my($self, $why) = @_; $why ||= ''; my $ctx = $self->ctx; lock($Curr_Test); $Curr_Test++; my %result; share(%result); %result = ( 'ok' => 1, actual_ok => 0, name => '', type => 'todo_skip', reason => $why, diag => "", _level => $Test::Builder::Level, _depth => Test::Tester::find_run_tests(), ); $Test_Results[$Curr_Test-1] = \%result; $ctx->release; return 1; } sub diag { my($self, @msgs) = @_; return unless @msgs; # Prevent printing headers when compiling (i.e. -c) return if $^C; my $ctx = $self->ctx; # Escape each line with a #. foreach (@msgs) { $_ = 'undef' unless defined; } push @msgs, "\n" unless $msgs[-1] =~ /\n\Z/; my $result = $Curr_Test ? $Test_Results[$Curr_Test - 1] : $Prem_Diag; $result->{diag} .= join("", @msgs); $ctx->release; return 0; } sub details { return @Test_Results; } # Stub. Feel free to send me a patch to implement this. sub note { } sub explain { return Test::Builder::explain(@_); } sub premature { return $Prem_Diag->{diag}; } sub current_test { if (@_ > 1) { die "Don't try to change the test number!"; } else { return $Curr_Test; } } sub reset { $Curr_Test = 0; @Test_Results = (); $Prem_Diag = {diag => ""}; } 1; __END__ =head1 NAME Test::Tester::Capture - Help testing test modules built with Test::Builder =head1 DESCRIPTION This is a subclass of Test::Builder that overrides many of the methods so that they don't output anything. It also keeps track of its own set of test results so that you can use Test::Builder based modules to perform tests on other Test::Builder based modules. =head1 AUTHOR Most of the code here was lifted straight from Test::Builder and then had chunks removed by Fergal Daly <fergal@esatclear.ie>. =head1 LICENSE Under the same license as Perl itself See http://www.perl.com/perl/misc/Artistic.html =cut PK ! ��uY; ; 5.34.0/Test/Tester/Delegate.pmnu �[��� use strict; use warnings; package Test::Tester::Delegate; our $VERSION = '1.302183'; use Scalar::Util(); use vars '$AUTOLOAD'; sub new { my $pkg = shift; my $obj = shift; my $self = bless {}, $pkg; return $self; } sub AUTOLOAD { my ($sub) = $AUTOLOAD =~ /.*::(.*?)$/; return if $sub eq "DESTROY"; my $obj = $_[0]->{Object}; my $ref = $obj->can($sub); shift(@_); unshift(@_, $obj); goto &$ref; } sub can { my $this = shift; my ($sub) = @_; return $this->{Object}->can($sub) if Scalar::Util::blessed($this); return $this->SUPER::can(@_); } 1; PK ! �9T A A 5.34.0/Test/Harness.pmnu �[��� package Test::Harness; use 5.006; use strict; use warnings; use constant IS_WIN32 => ( $^O =~ /^(MS)?Win32$/ ); use constant IS_VMS => ( $^O eq 'VMS' ); use TAP::Harness (); use TAP::Parser::Aggregator (); use TAP::Parser::Source (); use TAP::Parser::SourceHandler::Perl (); use Text::ParseWords qw(shellwords); use Config; use base 'Exporter'; # $ML $Last_ML_Print BEGIN { eval q{use Time::HiRes 'time'}; our $has_time_hires = !$@; } =head1 NAME Test::Harness - Run Perl standard test scripts with statistics =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; # Backwards compatibility for exportable variable names. *verbose = *Verbose; *switches = *Switches; *debug = *Debug; $ENV{HARNESS_ACTIVE} = 1; $ENV{HARNESS_VERSION} = $VERSION; END { # For VMS. delete $ENV{HARNESS_ACTIVE}; delete $ENV{HARNESS_VERSION}; } our @EXPORT = qw(&runtests); our @EXPORT_OK = qw(&execute_tests $verbose $switches); our $Verbose = $ENV{HARNESS_VERBOSE} || 0; our $Debug = $ENV{HARNESS_DEBUG} || 0; our $Switches = '-w'; our $Columns = $ENV{HARNESS_COLUMNS} || $ENV{COLUMNS} || 80; $Columns--; # Some shells have trouble with a full line of text. our $Timer = $ENV{HARNESS_TIMER} || 0; our $Color = $ENV{HARNESS_COLOR} || 0; our $IgnoreExit = $ENV{HARNESS_IGNORE_EXIT} || 0; =head1 SYNOPSIS use Test::Harness; runtests(@test_files); =head1 DESCRIPTION Although, for historical reasons, the L<Test::Harness> distribution takes its name from this module it now exists only to provide L<TAP::Harness> with an interface that is somewhat backwards compatible with L<Test::Harness> 2.xx. If you're writing new code consider using L<TAP::Harness> directly instead. Emulation is provided for C<runtests> and C<execute_tests> but the pluggable 'Straps' interface that previous versions of L<Test::Harness> supported is not reproduced here. Straps is now available as a stand alone module: L<Test::Harness::Straps>. See L<TAP::Parser>, L<TAP::Harness> for the main documentation for this distribution. =head1 FUNCTIONS The following functions are available. =head2 runtests( @test_files ) This runs all the given I<@test_files> and divines whether they passed or failed based on their output to STDOUT (details above). It prints out each individual test which failed along with a summary report and a how long it all took. It returns true if everything was ok. Otherwise it will C<die()> with one of the messages in the DIAGNOSTICS section. =cut sub _has_taint { my $test = shift; return TAP::Parser::SourceHandler::Perl->get_taint( TAP::Parser::Source->shebang($test) ); } sub _aggregate { my ( $harness, $aggregate, @tests ) = @_; # Don't propagate to our children local $ENV{HARNESS_OPTIONS}; _apply_extra_INC($harness); _aggregate_tests( $harness, $aggregate, @tests ); } # Make sure the child sees all the extra junk in @INC sub _apply_extra_INC { my $harness = shift; $harness->callback( parser_args => sub { my ( $args, $test ) = @_; push @{ $args->{switches} }, map {"-I$_"} _filtered_inc(); } ); } sub _aggregate_tests { my ( $harness, $aggregate, @tests ) = @_; $aggregate->start(); $harness->aggregate_tests( $aggregate, @tests ); $aggregate->stop(); } sub runtests { my @tests = @_; # shield against -l local ( $\, $, ); my $harness = _new_harness(); my $aggregate = TAP::Parser::Aggregator->new(); local $ENV{PERL_USE_UNSAFE_INC} = 1 if not exists $ENV{PERL_USE_UNSAFE_INC}; _aggregate( $harness, $aggregate, @tests ); $harness->formatter->summary($aggregate); my $total = $aggregate->total; my $passed = $aggregate->passed; my $failed = $aggregate->failed; my @parsers = $aggregate->parsers; my $num_bad = 0; for my $parser (@parsers) { $num_bad++ if $parser->has_problems; } die(sprintf( "Failed %d/%d test programs. %d/%d subtests failed.\n", $num_bad, scalar @parsers, $failed, $total ) ) if $num_bad; return $total && $total == $passed; } sub _canon { my @list = sort { $a <=> $b } @_; my @ranges = (); my $count = scalar @list; my $pos = 0; while ( $pos < $count ) { my $end = $pos + 1; $end++ while $end < $count && $list[$end] <= $list[ $end - 1 ] + 1; push @ranges, ( $end == $pos + 1 ) ? $list[$pos] : join( '-', $list[$pos], $list[ $end - 1 ] ); $pos = $end; } return join( ' ', @ranges ); } sub _new_harness { my $sub_args = shift || {}; my ( @lib, @switches ); my @opt = map { shellwords($_) } grep { defined } $Switches, $ENV{HARNESS_PERL_SWITCHES}; while ( my $opt = shift @opt ) { if ( $opt =~ /^ -I (.*) $ /x ) { push @lib, length($1) ? $1 : shift @opt; } else { push @switches, $opt; } } # Do things the old way on VMS... push @lib, _filtered_inc() if IS_VMS; # If $Verbose isn't numeric default to 1. This helps core. my $verbosity = ( $Verbose ? ( $Verbose !~ /\d/ ) ? 1 : $Verbose : 0 ); my $args = { timer => $Timer, directives => our $Directives, lib => \@lib, switches => \@switches, color => $Color, verbosity => $verbosity, ignore_exit => $IgnoreExit, }; $args->{stdout} = $sub_args->{out} if exists $sub_args->{out}; my $class = $ENV{HARNESS_SUBCLASS} || 'TAP::Harness'; if ( defined( my $env_opt = $ENV{HARNESS_OPTIONS} ) ) { for my $opt ( split /:/, $env_opt ) { if ( $opt =~ /^j(\d*)$/ ) { $args->{jobs} = $1 || 9; } elsif ( $opt eq 'c' ) { $args->{color} = 1; } elsif ( $opt =~ m/^f(.*)$/ ) { my $fmt = $1; $fmt =~ s/-/::/g; $args->{formatter_class} = $fmt; } elsif ( $opt =~ m/^a(.*)$/ ) { my $archive = $1; $class = "TAP::Harness::Archive"; $args->{archive} = $archive; } else { die "Unknown HARNESS_OPTIONS item: $opt\n"; } } } return TAP::Harness->_construct( $class, $args ); } # Get the parts of @INC which are changed from the stock list AND # preserve reordering of stock directories. sub _filtered_inc { my @inc = grep { !ref } @INC; #28567 if (IS_VMS) { # VMS has a 255-byte limit on the length of %ENV entries, so # toss the ones that involve perl_root, the install location @inc = grep !/perl_root/i, @inc; } elsif (IS_WIN32) { # Lose any trailing backslashes in the Win32 paths s/[\\\/]+$// for @inc; } my @default_inc = _default_inc(); my @new_inc; my %seen; for my $dir (@inc) { next if $seen{$dir}++; if ( $dir eq ( $default_inc[0] || '' ) ) { shift @default_inc; } else { push @new_inc, $dir; } shift @default_inc while @default_inc and $seen{ $default_inc[0] }; } return @new_inc; } { # Cache this to avoid repeatedly shelling out to Perl. my @inc; sub _default_inc { return @inc if @inc; local $ENV{PERL5LIB}; local $ENV{PERLLIB}; my $perl = $ENV{HARNESS_PERL} || $^X; # Avoid using -l for the benefit of Perl 6 chomp( @inc = `"$perl" -e "print join qq[\\n], \@INC, q[]"` ); return @inc; } } sub _check_sequence { my @list = @_; my $prev; while ( my $next = shift @list ) { return if defined $prev && $next <= $prev; $prev = $next; } return 1; } sub execute_tests { my %args = @_; my $harness = _new_harness( \%args ); my $aggregate = TAP::Parser::Aggregator->new(); my %tot = ( bonus => 0, max => 0, ok => 0, bad => 0, good => 0, files => 0, tests => 0, sub_skipped => 0, todo => 0, skipped => 0, bench => undef, ); # Install a callback so we get to see any plans the # harness executes. $harness->callback( made_parser => sub { my $parser = shift; $parser->callback( plan => sub { my $plan = shift; if ( $plan->directive eq 'SKIP' ) { $tot{skipped}++; } } ); } ); local $ENV{PERL_USE_UNSAFE_INC} = 1 if not exists $ENV{PERL_USE_UNSAFE_INC}; _aggregate( $harness, $aggregate, @{ $args{tests} } ); $tot{bench} = $aggregate->elapsed; my @tests = $aggregate->descriptions; # TODO: Work out the circumstances under which the files # and tests totals can differ. $tot{files} = $tot{tests} = scalar @tests; my %failedtests = (); my %todo_passed = (); for my $test (@tests) { my ($parser) = $aggregate->parsers($test); my @failed = $parser->failed; my $wstat = $parser->wait; my $estat = $parser->exit; my $planned = $parser->tests_planned; my @errors = $parser->parse_errors; my $passed = $parser->passed; my $actual_passed = $parser->actual_passed; my $ok_seq = _check_sequence( $parser->actual_passed ); # Duplicate exit, wait status semantics of old version $estat ||= '' unless $wstat; $wstat ||= ''; $tot{max} += ( $planned || 0 ); $tot{bonus} += $parser->todo_passed; $tot{ok} += $passed > $actual_passed ? $passed : $actual_passed; $tot{sub_skipped} += $parser->skipped; $tot{todo} += $parser->todo; if ( @failed || $estat || @errors ) { $tot{bad}++; my $huh_planned = $planned ? undef : '??'; my $huh_errors = $ok_seq ? undef : '??'; $failedtests{$test} = { 'canon' => $huh_planned || $huh_errors || _canon(@failed) || '??', 'estat' => $estat, 'failed' => $huh_planned || $huh_errors || scalar @failed, 'max' => $huh_planned || $planned, 'name' => $test, 'wstat' => $wstat }; } else { $tot{good}++; } my @todo = $parser->todo_passed; if (@todo) { $todo_passed{$test} = { 'canon' => _canon(@todo), 'estat' => $estat, 'failed' => scalar @todo, 'max' => scalar $parser->todo, 'name' => $test, 'wstat' => $wstat }; } } return ( \%tot, \%failedtests, \%todo_passed ); } =head2 execute_tests( tests => \@test_files, out => \*FH ) Runs all the given C<@test_files> (just like C<runtests()>) but doesn't generate the final report. During testing, progress information will be written to the currently selected output filehandle (usually C<STDOUT>), or to the filehandle given by the C<out> parameter. The I<out> is optional. Returns a list of two values, C<$total> and C<$failed>, describing the results. C<$total> is a hash ref summary of all the tests run. Its keys and values are this: bonus Number of individual todo tests unexpectedly passed max Number of individual tests ran ok Number of individual tests passed sub_skipped Number of individual tests skipped todo Number of individual todo tests files Number of test files ran good Number of test files passed bad Number of test files failed tests Number of test files originally given skipped Number of test files skipped If C<< $total->{bad} == 0 >> and C<< $total->{max} > 0 >>, you've got a successful test. C<$failed> is a hash ref of all the test scripts that failed. Each key is the name of a test script, each value is another hash representing how that script failed. Its keys are these: name Name of the test which failed estat Script's exit value wstat Script's wait status max Number of individual tests failed Number which failed canon List of tests which failed (as string). C<$failed> should be empty if everything passed. =cut 1; __END__ =head1 EXPORT C<&runtests> is exported by C<Test::Harness> by default. C<&execute_tests>, C<$verbose>, C<$switches> and C<$debug> are exported upon request. =head1 ENVIRONMENT VARIABLES THAT TAP::HARNESS::COMPATIBLE SETS C<Test::Harness> sets these before executing the individual tests. =over 4 =item C<HARNESS_ACTIVE> This is set to a true value. It allows the tests to determine if they are being executed through the harness or by any other means. =item C<HARNESS_VERSION> This is the version of C<Test::Harness>. =back =head1 ENVIRONMENT VARIABLES THAT AFFECT TEST::HARNESS =over 4 =item C<HARNESS_PERL_SWITCHES> Setting this adds perl command line switches to each test file run. For example, C<HARNESS_PERL_SWITCHES=-T> will turn on taint mode. C<HARNESS_PERL_SWITCHES=-MDevel::Cover> will run C<Devel::Cover> for each test. C<-w> is always set. You can turn this off in the test with C<BEGIN { $^W = 0 }>. =item C<HARNESS_TIMER> Setting this to true will make the harness display the number of milliseconds each test took. You can also use F<prove>'s C<--timer> switch. =item C<HARNESS_VERBOSE> If true, C<Test::Harness> will output the verbose results of running its tests. Setting C<$Test::Harness::verbose> will override this, or you can use the C<-v> switch in the F<prove> utility. =item C<HARNESS_OPTIONS> Provide additional options to the harness. Currently supported options are: =over =item C<< j<n> >> Run <n> (default 9) parallel jobs. =item C<< c >> Try to color output. See L<TAP::Formatter::Base/"new">. =item C<< a<file.tgz> >> Will use L<TAP::Harness::Archive> as the harness class, and save the TAP to C<file.tgz> =item C<< fPackage-With-Dashes >> Set the formatter_class of the harness being run. Since the C<HARNESS_OPTIONS> is seperated by C<:>, we use C<-> instead. =back Multiple options may be separated by colons: HARNESS_OPTIONS=j9:c make test =item C<HARNESS_SUBCLASS> Specifies a TAP::Harness subclass to be used in place of TAP::Harness. =item C<HARNESS_SUMMARY_COLOR_SUCCESS> Determines the L<Term::ANSIColor> for the summary in case it is successful. This color defaults to C<'green'>. =item C<HARNESS_SUMMARY_COLOR_FAIL> Determines the L<Term::ANSIColor> for the failure in case it is successful. This color defaults to C<'red'>. =back =head1 Taint Mode Normally when a Perl program is run in taint mode the contents of the C<PERL5LIB> environment variable do not appear in C<@INC>. Because C<PERL5LIB> is often used during testing to add build directories to C<@INC> C<Test::Harness> passes the names of any directories found in C<PERL5LIB> as -I switches. The net effect of this is that C<PERL5LIB> is honoured even in taint mode. =head1 SEE ALSO L<TAP::Harness> =head1 BUGS Please report any bugs or feature requests to C<bug-test-harness at rt.cpan.org>, or through the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Test-Harness>. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes. =head1 AUTHORS Andy Armstrong C<< <andy@hexten.net> >> L<Test::Harness> 2.64 (maintained by Andy Lester and on which this module is based) has this attribution: Either Tim Bunce or Andreas Koenig, we don't know. What we know for sure is, that it was inspired by Larry Wall's F<TEST> script that came with perl distributions for ages. Numerous anonymous contributors exist. Andreas Koenig held the torch for many years, and then Michael G Schwern. =head1 LICENCE AND COPYRIGHT Copyright (c) 2007-2011, Andy Armstrong C<< <andy@hexten.net> >>. All rights reserved. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See L<perlartistic>. PK ! Tm���� �� 5.34.0/Test/More.pmnu �[��� package Test::More; use 5.006; use strict; use warnings; #---- perlcritic exemptions. ----# # We use a lot of subroutine prototypes ## no critic (Subroutines::ProhibitSubroutinePrototypes) # Can't use Carp because it might cause C<use_ok()> to accidentally succeed # even though the module being used forgot to use Carp. Yes, this # actually happened. sub _carp { my( $file, $line ) = ( caller(1) )[ 1, 2 ]; return warn @_, " at $file line $line\n"; } our $VERSION = '1.302183'; use Test::Builder::Module; our @ISA = qw(Test::Builder::Module); our @EXPORT = qw(ok use_ok require_ok is isnt like unlike is_deeply cmp_ok skip todo todo_skip pass fail eq_array eq_hash eq_set $TODO plan done_testing can_ok isa_ok new_ok diag note explain subtest BAIL_OUT ); =head1 NAME Test::More - yet another framework for writing test scripts =head1 SYNOPSIS use Test::More tests => 23; # or use Test::More skip_all => $reason; # or use Test::More; # see done_testing() require_ok( 'Some::Module' ); # Various ways to say "ok" ok($got eq $expected, $test_name); is ($got, $expected, $test_name); isnt($got, $expected, $test_name); # Rather than print STDERR "# here's what went wrong\n" diag("here's what went wrong"); like ($got, qr/expected/, $test_name); unlike($got, qr/expected/, $test_name); cmp_ok($got, '==', $expected, $test_name); is_deeply($got_complex_structure, $expected_complex_structure, $test_name); SKIP: { skip $why, $how_many unless $have_some_feature; ok( foo(), $test_name ); is( foo(42), 23, $test_name ); }; TODO: { local $TODO = $why; ok( foo(), $test_name ); is( foo(42), 23, $test_name ); }; can_ok($module, @methods); isa_ok($object, $class); pass($test_name); fail($test_name); BAIL_OUT($why); # UNIMPLEMENTED!!! my @status = Test::More::status; =head1 DESCRIPTION B<STOP!> If you're just getting started writing tests, have a look at L<Test2::Suite> first. This is a drop in replacement for Test::Simple which you can switch to once you get the hang of basic testing. The purpose of this module is to provide a wide range of testing utilities. Various ways to say "ok" with better diagnostics, facilities to skip tests, test future features and compare complicated data structures. While you can do almost anything with a simple C<ok()> function, it doesn't provide good diagnostic output. =head2 I love it when a plan comes together Before anything else, you need a testing plan. This basically declares how many tests your script is going to run to protect against premature failure. The preferred way to do this is to declare a plan when you C<use Test::More>. use Test::More tests => 23; There are cases when you will not know beforehand how many tests your script is going to run. In this case, you can declare your tests at the end. use Test::More; ... run your tests ... done_testing( $number_of_tests_run ); B<NOTE> C<done_testing()> should never be called in an C<END { ... }> block. Sometimes you really don't know how many tests were run, or it's too difficult to calculate. In which case you can leave off $number_of_tests_run. In some cases, you'll want to completely skip an entire testing script. use Test::More skip_all => $skip_reason; Your script will declare a skip with the reason why you skipped and exit immediately with a zero (success). See L<Test::Harness> for details. If you want to control what functions Test::More will export, you have to use the 'import' option. For example, to import everything but 'fail', you'd do: use Test::More tests => 23, import => ['!fail']; Alternatively, you can use the C<plan()> function. Useful for when you have to calculate the number of tests. use Test::More; plan tests => keys %Stuff * 3; or for deciding between running the tests at all: use Test::More; if( $^O eq 'MacOS' ) { plan skip_all => 'Test irrelevant on MacOS'; } else { plan tests => 42; } =cut sub plan { my $tb = Test::More->builder; return $tb->plan(@_); } # This implements "use Test::More 'no_diag'" but the behavior is # deprecated. sub import_extra { my $class = shift; my $list = shift; my @other = (); my $idx = 0; my $import; while( $idx <= $#{$list} ) { my $item = $list->[$idx]; if( defined $item and $item eq 'no_diag' ) { $class->builder->no_diag(1); } elsif( defined $item and $item eq 'import' ) { if ($import) { push @$import, @{$list->[ ++$idx ]}; } else { $import = $list->[ ++$idx ]; push @other, $item, $import; } } else { push @other, $item; } $idx++; } @$list = @other; if ($class eq __PACKAGE__ && (!$import || grep $_ eq '$TODO', @$import)) { my $to = $class->builder->exported_to; no strict 'refs'; *{"$to\::TODO"} = \our $TODO; if ($import) { @$import = grep $_ ne '$TODO', @$import; } else { push @$list, import => [grep $_ ne '$TODO', @EXPORT]; } } return; } =over 4 =item B<done_testing> done_testing(); done_testing($number_of_tests); If you don't know how many tests you're going to run, you can issue the plan when you're done running tests. $number_of_tests is the same as C<plan()>, it's the number of tests you expected to run. You can omit this, in which case the number of tests you ran doesn't matter, just the fact that your tests ran to conclusion. This is safer than and replaces the "no_plan" plan. B<Note:> You must never put C<done_testing()> inside an C<END { ... }> block. The plan is there to ensure your test does not exit before testing has completed. If you use an END block you completely bypass this protection. =back =cut sub done_testing { my $tb = Test::More->builder; $tb->done_testing(@_); } =head2 Test names By convention, each test is assigned a number in order. This is largely done automatically for you. However, it's often very useful to assign a name to each test. Which would you rather see: ok 4 not ok 5 ok 6 or ok 4 - basic multi-variable not ok 5 - simple exponential ok 6 - force == mass * acceleration The later gives you some idea of what failed. It also makes it easier to find the test in your script, simply search for "simple exponential". All test functions take a name argument. It's optional, but highly suggested that you use it. =head2 I'm ok, you're not ok. The basic purpose of this module is to print out either "ok #" or "not ok #" depending on if a given test succeeded or failed. Everything else is just gravy. All of the following print "ok" or "not ok" depending on if the test succeeded or failed. They all also return true or false, respectively. =over 4 =item B<ok> ok($got eq $expected, $test_name); This simply evaluates any expression (C<$got eq $expected> is just a simple example) and uses that to determine if the test succeeded or failed. A true expression passes, a false one fails. Very simple. For example: ok( $exp{9} == 81, 'simple exponential' ); ok( Film->can('db_Main'), 'set_db()' ); ok( $p->tests == 4, 'saw tests' ); ok( !grep(!defined $_, @items), 'all items defined' ); (Mnemonic: "This is ok.") $test_name is a very short description of the test that will be printed out. It makes it very easy to find a test in your script when it fails and gives others an idea of your intentions. $test_name is optional, but we B<very> strongly encourage its use. Should an C<ok()> fail, it will produce some diagnostics: not ok 18 - sufficient mucus # Failed test 'sufficient mucus' # in foo.t at line 42. This is the same as L<Test::Simple>'s C<ok()> routine. =cut sub ok ($;$) { my( $test, $name ) = @_; my $tb = Test::More->builder; return $tb->ok( $test, $name ); } =item B<is> =item B<isnt> is ( $got, $expected, $test_name ); isnt( $got, $expected, $test_name ); Similar to C<ok()>, C<is()> and C<isnt()> compare their two arguments with C<eq> and C<ne> respectively and use the result of that to determine if the test succeeded or failed. So these: # Is the ultimate answer 42? is( ultimate_answer(), 42, "Meaning of Life" ); # $foo isn't empty isnt( $foo, '', "Got some foo" ); are similar to these: ok( ultimate_answer() eq 42, "Meaning of Life" ); ok( $foo ne '', "Got some foo" ); C<undef> will only ever match C<undef>. So you can test a value against C<undef> like this: is($not_defined, undef, "undefined as expected"); (Mnemonic: "This is that." "This isn't that.") So why use these? They produce better diagnostics on failure. C<ok()> cannot know what you are testing for (beyond the name), but C<is()> and C<isnt()> know what the test was and why it failed. For example this test: my $foo = 'waffle'; my $bar = 'yarblokos'; is( $foo, $bar, 'Is foo the same as bar?' ); Will produce something like this: not ok 17 - Is foo the same as bar? # Failed test 'Is foo the same as bar?' # in foo.t at line 139. # got: 'waffle' # expected: 'yarblokos' So you can figure out what went wrong without rerunning the test. You are encouraged to use C<is()> and C<isnt()> over C<ok()> where possible, however do not be tempted to use them to find out if something is true or false! # XXX BAD! is( exists $brooklyn{tree}, 1, 'A tree grows in Brooklyn' ); This does not check if C<exists $brooklyn{tree}> is true, it checks if it returns 1. Very different. Similar caveats exist for false and 0. In these cases, use C<ok()>. ok( exists $brooklyn{tree}, 'A tree grows in Brooklyn' ); A simple call to C<isnt()> usually does not provide a strong test but there are cases when you cannot say much more about a value than that it is different from some other value: new_ok $obj, "Foo"; my $clone = $obj->clone; isa_ok $obj, "Foo", "Foo->clone"; isnt $obj, $clone, "clone() produces a different object"; For those grammatical pedants out there, there's an C<isn't()> function which is an alias of C<isnt()>. =cut sub is ($$;$) { my $tb = Test::More->builder; return $tb->is_eq(@_); } sub isnt ($$;$) { my $tb = Test::More->builder; return $tb->isnt_eq(@_); } *isn't = \&isnt; # ' to unconfuse syntax higlighters =item B<like> like( $got, qr/expected/, $test_name ); Similar to C<ok()>, C<like()> matches $got against the regex C<qr/expected/>. So this: like($got, qr/expected/, 'this is like that'); is similar to: ok( $got =~ m/expected/, 'this is like that'); (Mnemonic "This is like that".) The second argument is a regular expression. It may be given as a regex reference (i.e. C<qr//>) or (for better compatibility with older perls) as a string that looks like a regex (alternative delimiters are currently not supported): like( $got, '/expected/', 'this is like that' ); Regex options may be placed on the end (C<'/expected/i'>). Its advantages over C<ok()> are similar to that of C<is()> and C<isnt()>. Better diagnostics on failure. =cut sub like ($$;$) { my $tb = Test::More->builder; return $tb->like(@_); } =item B<unlike> unlike( $got, qr/expected/, $test_name ); Works exactly as C<like()>, only it checks if $got B<does not> match the given pattern. =cut sub unlike ($$;$) { my $tb = Test::More->builder; return $tb->unlike(@_); } =item B<cmp_ok> cmp_ok( $got, $op, $expected, $test_name ); Halfway between C<ok()> and C<is()> lies C<cmp_ok()>. This allows you to compare two arguments using any binary perl operator. The test passes if the comparison is true and fails otherwise. # ok( $got eq $expected ); cmp_ok( $got, 'eq', $expected, 'this eq that' ); # ok( $got == $expected ); cmp_ok( $got, '==', $expected, 'this == that' ); # ok( $got && $expected ); cmp_ok( $got, '&&', $expected, 'this && that' ); ...etc... Its advantage over C<ok()> is when the test fails you'll know what $got and $expected were: not ok 1 # Failed test in foo.t at line 12. # '23' # && # undef It's also useful in those cases where you are comparing numbers and C<is()>'s use of C<eq> will interfere: cmp_ok( $big_hairy_number, '==', $another_big_hairy_number ); It's especially useful when comparing greater-than or smaller-than relation between values: cmp_ok( $some_value, '<=', $upper_limit ); =cut sub cmp_ok($$$;$) { my $tb = Test::More->builder; return $tb->cmp_ok(@_); } =item B<can_ok> can_ok($module, @methods); can_ok($object, @methods); Checks to make sure the $module or $object can do these @methods (works with functions, too). can_ok('Foo', qw(this that whatever)); is almost exactly like saying: ok( Foo->can('this') && Foo->can('that') && Foo->can('whatever') ); only without all the typing and with a better interface. Handy for quickly testing an interface. No matter how many @methods you check, a single C<can_ok()> call counts as one test. If you desire otherwise, use: foreach my $meth (@methods) { can_ok('Foo', $meth); } =cut sub can_ok ($@) { my( $proto, @methods ) = @_; my $class = ref $proto || $proto; my $tb = Test::More->builder; unless($class) { my $ok = $tb->ok( 0, "->can(...)" ); $tb->diag(' can_ok() called with empty class or reference'); return $ok; } unless(@methods) { my $ok = $tb->ok( 0, "$class->can(...)" ); $tb->diag(' can_ok() called with no methods'); return $ok; } my @nok = (); foreach my $method (@methods) { $tb->_try( sub { $proto->can($method) } ) or push @nok, $method; } my $name = (@methods == 1) ? "$class->can('$methods[0]')" : "$class->can(...)" ; my $ok = $tb->ok( !@nok, $name ); $tb->diag( map " $class->can('$_') failed\n", @nok ); return $ok; } =item B<isa_ok> isa_ok($object, $class, $object_name); isa_ok($subclass, $class, $object_name); isa_ok($ref, $type, $ref_name); Checks to see if the given C<< $object->isa($class) >>. Also checks to make sure the object was defined in the first place. Handy for this sort of thing: my $obj = Some::Module->new; isa_ok( $obj, 'Some::Module' ); where you'd otherwise have to write my $obj = Some::Module->new; ok( defined $obj && $obj->isa('Some::Module') ); to safeguard against your test script blowing up. You can also test a class, to make sure that it has the right ancestor: isa_ok( 'Vole', 'Rodent' ); It works on references, too: isa_ok( $array_ref, 'ARRAY' ); The diagnostics of this test normally just refer to 'the object'. If you'd like them to be more specific, you can supply an $object_name (for example 'Test customer'). =cut sub isa_ok ($$;$) { my( $thing, $class, $thing_name ) = @_; my $tb = Test::More->builder; my $whatami; if( !defined $thing ) { $whatami = 'undef'; } elsif( ref $thing ) { $whatami = 'reference'; local($@,$!); require Scalar::Util; if( Scalar::Util::blessed($thing) ) { $whatami = 'object'; } } else { $whatami = 'class'; } # We can't use UNIVERSAL::isa because we want to honor isa() overrides my( $rslt, $error ) = $tb->_try( sub { $thing->isa($class) } ); if($error) { die <<WHOA unless $error =~ /^Can't (locate|call) method "isa"/; WHOA! I tried to call ->isa on your $whatami and got some weird error. Here's the error. $error WHOA } # Special case for isa_ok( [], "ARRAY" ) and like if( $whatami eq 'reference' ) { $rslt = UNIVERSAL::isa($thing, $class); } my($diag, $name); if( defined $thing_name ) { $name = "'$thing_name' isa '$class'"; $diag = defined $thing ? "'$thing_name' isn't a '$class'" : "'$thing_name' isn't defined"; } elsif( $whatami eq 'object' ) { my $my_class = ref $thing; $thing_name = qq[An object of class '$my_class']; $name = "$thing_name isa '$class'"; $diag = "The object of class '$my_class' isn't a '$class'"; } elsif( $whatami eq 'reference' ) { my $type = ref $thing; $thing_name = qq[A reference of type '$type']; $name = "$thing_name isa '$class'"; $diag = "The reference of type '$type' isn't a '$class'"; } elsif( $whatami eq 'undef' ) { $thing_name = 'undef'; $name = "$thing_name isa '$class'"; $diag = "$thing_name isn't defined"; } elsif( $whatami eq 'class' ) { $thing_name = qq[The class (or class-like) '$thing']; $name = "$thing_name isa '$class'"; $diag = "$thing_name isn't a '$class'"; } else { die; } my $ok; if($rslt) { $ok = $tb->ok( 1, $name ); } else { $ok = $tb->ok( 0, $name ); $tb->diag(" $diag\n"); } return $ok; } =item B<new_ok> my $obj = new_ok( $class ); my $obj = new_ok( $class => \@args ); my $obj = new_ok( $class => \@args, $object_name ); A convenience function which combines creating an object and calling C<isa_ok()> on that object. It is basically equivalent to: my $obj = $class->new(@args); isa_ok $obj, $class, $object_name; If @args is not given, an empty list will be used. This function only works on C<new()> and it assumes C<new()> will return just a single object which isa C<$class>. =cut sub new_ok { my $tb = Test::More->builder; $tb->croak("new_ok() must be given at least a class") unless @_; my( $class, $args, $object_name ) = @_; $args ||= []; my $obj; my( $success, $error ) = $tb->_try( sub { $obj = $class->new(@$args); 1 } ); if($success) { local $Test::Builder::Level = $Test::Builder::Level + 1; isa_ok $obj, $class, $object_name; } else { $class = 'undef' if !defined $class; $tb->ok( 0, "$class->new() died" ); $tb->diag(" Error was: $error"); } return $obj; } =item B<subtest> subtest $name => \&code, @args; C<subtest()> runs the &code as its own little test with its own plan and its own result. The main test counts this as a single test using the result of the whole subtest to determine if its ok or not ok. For example... use Test::More tests => 3; pass("First test"); subtest 'An example subtest' => sub { plan tests => 2; pass("This is a subtest"); pass("So is this"); }; pass("Third test"); This would produce. 1..3 ok 1 - First test # Subtest: An example subtest 1..2 ok 1 - This is a subtest ok 2 - So is this ok 2 - An example subtest ok 3 - Third test A subtest may call C<skip_all>. No tests will be run, but the subtest is considered a skip. subtest 'skippy' => sub { plan skip_all => 'cuz I said so'; pass('this test will never be run'); }; Returns true if the subtest passed, false otherwise. Due to how subtests work, you may omit a plan if you desire. This adds an implicit C<done_testing()> to the end of your subtest. The following two subtests are equivalent: subtest 'subtest with implicit done_testing()', sub { ok 1, 'subtests with an implicit done testing should work'; ok 1, '... and support more than one test'; ok 1, '... no matter how many tests are run'; }; subtest 'subtest with explicit done_testing()', sub { ok 1, 'subtests with an explicit done testing should work'; ok 1, '... and support more than one test'; ok 1, '... no matter how many tests are run'; done_testing(); }; Extra arguments given to C<subtest> are passed to the callback. For example: sub my_subtest { my $range = shift; ... } for my $range (1, 10, 100, 1000) { subtest "testing range $range", \&my_subtest, $range; } =cut sub subtest { my $tb = Test::More->builder; return $tb->subtest(@_); } =item B<pass> =item B<fail> pass($test_name); fail($test_name); Sometimes you just want to say that the tests have passed. Usually the case is you've got some complicated condition that is difficult to wedge into an C<ok()>. In this case, you can simply use C<pass()> (to declare the test ok) or fail (for not ok). They are synonyms for C<ok(1)> and C<ok(0)>. Use these very, very, very sparingly. =cut sub pass (;$) { my $tb = Test::More->builder; return $tb->ok( 1, @_ ); } sub fail (;$) { my $tb = Test::More->builder; return $tb->ok( 0, @_ ); } =back =head2 Module tests Sometimes you want to test if a module, or a list of modules, can successfully load. For example, you'll often want a first test which simply loads all the modules in the distribution to make sure they work before going on to do more complicated testing. For such purposes we have C<use_ok> and C<require_ok>. =over 4 =item B<require_ok> require_ok($module); require_ok($file); Tries to C<require> the given $module or $file. If it loads successfully, the test will pass. Otherwise it fails and displays the load error. C<require_ok> will guess whether the input is a module name or a filename. No exception will be thrown if the load fails. # require Some::Module require_ok "Some::Module"; # require "Some/File.pl"; require_ok "Some/File.pl"; # stop testing if any of your modules will not load for my $module (@module) { require_ok $module or BAIL_OUT "Can't load $module"; } =cut sub require_ok ($) { my($module) = shift; my $tb = Test::More->builder; my $pack = caller; # Try to determine if we've been given a module name or file. # Module names must be barewords, files not. $module = qq['$module'] unless _is_module_name($module); my $code = <<REQUIRE; package $pack; require $module; 1; REQUIRE my( $eval_result, $eval_error ) = _eval($code); my $ok = $tb->ok( $eval_result, "require $module;" ); unless($ok) { chomp $eval_error; $tb->diag(<<DIAGNOSTIC); Tried to require '$module'. Error: $eval_error DIAGNOSTIC } return $ok; } sub _is_module_name { my $module = shift; # Module names start with a letter. # End with an alphanumeric. # The rest is an alphanumeric or :: $module =~ s/\b::\b//g; return $module =~ /^[a-zA-Z]\w*$/ ? 1 : 0; } =item B<use_ok> BEGIN { use_ok($module); } BEGIN { use_ok($module, @imports); } Like C<require_ok>, but it will C<use> the $module in question and only loads modules, not files. If you just want to test a module can be loaded, use C<require_ok>. If you just want to load a module in a test, we recommend simply using C<use> directly. It will cause the test to stop. It's recommended that you run C<use_ok()> inside a BEGIN block so its functions are exported at compile-time and prototypes are properly honored. If @imports are given, they are passed through to the use. So this: BEGIN { use_ok('Some::Module', qw(foo bar)) } is like doing this: use Some::Module qw(foo bar); Version numbers can be checked like so: # Just like "use Some::Module 1.02" BEGIN { use_ok('Some::Module', 1.02) } Don't try to do this: BEGIN { use_ok('Some::Module'); ...some code that depends on the use... ...happening at compile time... } because the notion of "compile-time" is relative. Instead, you want: BEGIN { use_ok('Some::Module') } BEGIN { ...some code that depends on the use... } If you want the equivalent of C<use Foo ()>, use a module but not import anything, use C<require_ok>. BEGIN { require_ok "Foo" } =cut sub use_ok ($;@) { my( $module, @imports ) = @_; @imports = () unless @imports; my $tb = Test::More->builder; my %caller; @caller{qw/pack file line sub args want eval req strict warn/} = caller(0); my ($pack, $filename, $line, $warn) = @caller{qw/pack file line warn/}; $filename =~ y/\n\r/_/; # so it doesn't run off the "#line $line $f" line my $code; if( @imports == 1 and $imports[0] =~ /^\d+(?:\.\d+)?$/ ) { # probably a version check. Perl needs to see the bare number # for it to work with non-Exporter based modules. $code = <<USE; package $pack; BEGIN { \${^WARNING_BITS} = \$args[-1] if defined \$args[-1] } #line $line $filename use $module $imports[0]; 1; USE } else { $code = <<USE; package $pack; BEGIN { \${^WARNING_BITS} = \$args[-1] if defined \$args[-1] } #line $line $filename use $module \@{\$args[0]}; 1; USE } my ($eval_result, $eval_error) = _eval($code, \@imports, $warn); my $ok = $tb->ok( $eval_result, "use $module;" ); unless($ok) { chomp $eval_error; $@ =~ s{^BEGIN failed--compilation aborted at .*$} {BEGIN failed--compilation aborted at $filename line $line.}m; $tb->diag(<<DIAGNOSTIC); Tried to use '$module'. Error: $eval_error DIAGNOSTIC } return $ok; } sub _eval { my( $code, @args ) = @_; # Work around oddities surrounding resetting of $@ by immediately # storing it. my( $sigdie, $eval_result, $eval_error ); { local( $@, $!, $SIG{__DIE__} ); # isolate eval $eval_result = eval $code; ## no critic (BuiltinFunctions::ProhibitStringyEval) $eval_error = $@; $sigdie = $SIG{__DIE__} || undef; } # make sure that $code got a chance to set $SIG{__DIE__} $SIG{__DIE__} = $sigdie if defined $sigdie; return( $eval_result, $eval_error ); } =back =head2 Complex data structures Not everything is a simple eq check or regex. There are times you need to see if two data structures are equivalent. For these instances Test::More provides a handful of useful functions. B<NOTE> I'm not quite sure what will happen with filehandles. =over 4 =item B<is_deeply> is_deeply( $got, $expected, $test_name ); Similar to C<is()>, except that if $got and $expected are references, it does a deep comparison walking each data structure to see if they are equivalent. If the two structures are different, it will display the place where they start differing. C<is_deeply()> compares the dereferenced values of references, the references themselves (except for their type) are ignored. This means aspects such as blessing and ties are not considered "different". C<is_deeply()> currently has very limited handling of function reference and globs. It merely checks if they have the same referent. This may improve in the future. L<Test::Differences> and L<Test::Deep> provide more in-depth functionality along these lines. B<NOTE> is_deeply() has limitations when it comes to comparing strings and refs: my $path = path('.'); my $hash = {}; is_deeply( $path, "$path" ); # ok is_deeply( $hash, "$hash" ); # fail This happens because is_deeply will unoverload all arguments unconditionally. It is probably best not to use is_deeply with overloading. For legacy reasons this is not likely to ever be fixed. If you would like a much better tool for this you should see L<Test2::Suite> Specifically L<Test2::Tools::Compare> has an C<is()> function that works like C<is_deeply> with many improvements. =cut our( @Data_Stack, %Refs_Seen ); my $DNE = bless [], 'Does::Not::Exist'; sub _dne { return ref $_[0] eq ref $DNE; } ## no critic (Subroutines::RequireArgUnpacking) sub is_deeply { my $tb = Test::More->builder; unless( @_ == 2 or @_ == 3 ) { my $msg = <<'WARNING'; is_deeply() takes two or three args, you gave %d. This usually means you passed an array or hash instead of a reference to it WARNING chop $msg; # clip off newline so carp() will put in line/file _carp sprintf $msg, scalar @_; return $tb->ok(0); } my( $got, $expected, $name ) = @_; $tb->_unoverload_str( \$expected, \$got ); my $ok; if( !ref $got and !ref $expected ) { # neither is a reference $ok = $tb->is_eq( $got, $expected, $name ); } elsif( !ref $got xor !ref $expected ) { # one's a reference, one isn't $ok = $tb->ok( 0, $name ); $tb->diag( _format_stack({ vals => [ $got, $expected ] }) ); } else { # both references local @Data_Stack = (); if( _deep_check( $got, $expected ) ) { $ok = $tb->ok( 1, $name ); } else { $ok = $tb->ok( 0, $name ); $tb->diag( _format_stack(@Data_Stack) ); } } return $ok; } sub _format_stack { my(@Stack) = @_; my $var = '$FOO'; my $did_arrow = 0; foreach my $entry (@Stack) { my $type = $entry->{type} || ''; my $idx = $entry->{'idx'}; if( $type eq 'HASH' ) { $var .= "->" unless $did_arrow++; $var .= "{$idx}"; } elsif( $type eq 'ARRAY' ) { $var .= "->" unless $did_arrow++; $var .= "[$idx]"; } elsif( $type eq 'REF' ) { $var = "\${$var}"; } } my @vals = @{ $Stack[-1]{vals} }[ 0, 1 ]; my @vars = (); ( $vars[0] = $var ) =~ s/\$FOO/ \$got/; ( $vars[1] = $var ) =~ s/\$FOO/\$expected/; my $out = "Structures begin differing at:\n"; foreach my $idx ( 0 .. $#vals ) { my $val = $vals[$idx]; $vals[$idx] = !defined $val ? 'undef' : _dne($val) ? "Does not exist" : ref $val ? "$val" : "'$val'"; } $out .= "$vars[0] = $vals[0]\n"; $out .= "$vars[1] = $vals[1]\n"; $out =~ s/^/ /msg; return $out; } sub _type { my $thing = shift; return '' if !ref $thing; for my $type (qw(Regexp ARRAY HASH REF SCALAR GLOB CODE VSTRING)) { return $type if UNIVERSAL::isa( $thing, $type ); } return ''; } =back =head2 Diagnostics If you pick the right test function, you'll usually get a good idea of what went wrong when it failed. But sometimes it doesn't work out that way. So here we have ways for you to write your own diagnostic messages which are safer than just C<print STDERR>. =over 4 =item B<diag> diag(@diagnostic_message); Prints a diagnostic message which is guaranteed not to interfere with test output. Like C<print> @diagnostic_message is simply concatenated together. Returns false, so as to preserve failure. Handy for this sort of thing: ok( grep(/foo/, @users), "There's a foo user" ) or diag("Since there's no foo, check that /etc/bar is set up right"); which would produce: not ok 42 - There's a foo user # Failed test 'There's a foo user' # in foo.t at line 52. # Since there's no foo, check that /etc/bar is set up right. You might remember C<ok() or diag()> with the mnemonic C<open() or die()>. B<NOTE> The exact formatting of the diagnostic output is still changing, but it is guaranteed that whatever you throw at it won't interfere with the test. =item B<note> note(@diagnostic_message); Like C<diag()>, except the message will not be seen when the test is run in a harness. It will only be visible in the verbose TAP stream. Handy for putting in notes which might be useful for debugging, but don't indicate a problem. note("Tempfile is $tempfile"); =cut sub diag { return Test::More->builder->diag(@_); } sub note { return Test::More->builder->note(@_); } =item B<explain> my @dump = explain @diagnostic_message; Will dump the contents of any references in a human readable format. Usually you want to pass this into C<note> or C<diag>. Handy for things like... is_deeply($have, $want) || diag explain $have; or note explain \%args; Some::Class->method(%args); =cut sub explain { return Test::More->builder->explain(@_); } =back =head2 Conditional tests Sometimes running a test under certain conditions will cause the test script to die. A certain function or method isn't implemented (such as C<fork()> on MacOS), some resource isn't available (like a net connection) or a module isn't available. In these cases it's necessary to skip tests, or declare that they are supposed to fail but will work in the future (a todo test). For more details on the mechanics of skip and todo tests see L<Test::Harness>. The way Test::More handles this is with a named block. Basically, a block of tests which can be skipped over or made todo. It's best if I just show you... =over 4 =item B<SKIP: BLOCK> SKIP: { skip $why, $how_many if $condition; ...normal testing code goes here... } This declares a block of tests that might be skipped, $how_many tests there are, $why and under what $condition to skip them. An example is the easiest way to illustrate: SKIP: { eval { require HTML::Lint }; skip "HTML::Lint not installed", 2 if $@; my $lint = new HTML::Lint; isa_ok( $lint, "HTML::Lint" ); $lint->parse( $html ); is( $lint->errors, 0, "No errors found in HTML" ); } If the user does not have HTML::Lint installed, the whole block of code I<won't be run at all>. Test::More will output special ok's which Test::Harness interprets as skipped, but passing, tests. It's important that $how_many accurately reflects the number of tests in the SKIP block so the # of tests run will match up with your plan. If your plan is C<no_plan> $how_many is optional and will default to 1. It's perfectly safe to nest SKIP blocks. Each SKIP block must have the label C<SKIP>, or Test::More can't work its magic. You don't skip tests which are failing because there's a bug in your program, or for which you don't yet have code written. For that you use TODO. Read on. =cut ## no critic (Subroutines::RequireFinalReturn) sub skip { my( $why, $how_many ) = @_; my $tb = Test::More->builder; # If the plan is set, and is static, then skip needs a count. If the plan # is 'no_plan' we are fine. As well if plan is undefined then we are # waiting for done_testing. unless (defined $how_many) { my $plan = $tb->has_plan; _carp "skip() needs to know \$how_many tests are in the block" if $plan && $plan =~ m/^\d+$/; $how_many = 1; } if( defined $how_many and $how_many =~ /\D/ ) { _carp "skip() was passed a non-numeric number of tests. Did you get the arguments backwards?"; $how_many = 1; } for( 1 .. $how_many ) { $tb->skip($why); } no warnings 'exiting'; last SKIP; } =item B<TODO: BLOCK> TODO: { local $TODO = $why if $condition; ...normal testing code goes here... } Declares a block of tests you expect to fail and $why. Perhaps it's because you haven't fixed a bug or haven't finished a new feature: TODO: { local $TODO = "URI::Geller not finished"; my $card = "Eight of clubs"; is( URI::Geller->your_card, $card, 'Is THIS your card?' ); my $spoon; URI::Geller->bend_spoon; is( $spoon, 'bent', "Spoon bending, that's original" ); } With a todo block, the tests inside are expected to fail. Test::More will run the tests normally, but print out special flags indicating they are "todo". L<Test::Harness> will interpret failures as being ok. Should anything succeed, it will report it as an unexpected success. You then know the thing you had todo is done and can remove the TODO flag. The nice part about todo tests, as opposed to simply commenting out a block of tests, is that it is like having a programmatic todo list. You know how much work is left to be done, you're aware of what bugs there are, and you'll know immediately when they're fixed. Once a todo test starts succeeding, simply move it outside the block. When the block is empty, delete it. =item B<todo_skip> TODO: { todo_skip $why, $how_many if $condition; ...normal testing code... } With todo tests, it's best to have the tests actually run. That way you'll know when they start passing. Sometimes this isn't possible. Often a failing test will cause the whole program to die or hang, even inside an C<eval BLOCK> with and using C<alarm>. In these extreme cases you have no choice but to skip over the broken tests entirely. The syntax and behavior is similar to a C<SKIP: BLOCK> except the tests will be marked as failing but todo. L<Test::Harness> will interpret them as passing. =cut sub todo_skip { my( $why, $how_many ) = @_; my $tb = Test::More->builder; unless( defined $how_many ) { # $how_many can only be avoided when no_plan is in use. _carp "todo_skip() needs to know \$how_many tests are in the block" unless $tb->has_plan eq 'no_plan'; $how_many = 1; } for( 1 .. $how_many ) { $tb->todo_skip($why); } no warnings 'exiting'; last TODO; } =item When do I use SKIP vs. TODO? B<If it's something the user might not be able to do>, use SKIP. This includes optional modules that aren't installed, running under an OS that doesn't have some feature (like C<fork()> or symlinks), or maybe you need an Internet connection and one isn't available. B<If it's something the programmer hasn't done yet>, use TODO. This is for any code you haven't written yet, or bugs you have yet to fix, but want to put tests in your testing script (always a good idea). =back =head2 Test control =over 4 =item B<BAIL_OUT> BAIL_OUT($reason); Indicates to the harness that things are going so badly all testing should terminate. This includes the running of any additional test scripts. This is typically used when testing cannot continue such as a critical module failing to compile or a necessary external utility not being available such as a database connection failing. The test will exit with 255. For even better control look at L<Test::Most>. =cut sub BAIL_OUT { my $reason = shift; my $tb = Test::More->builder; $tb->BAIL_OUT($reason); } =back =head2 Discouraged comparison functions The use of the following functions is discouraged as they are not actually testing functions and produce no diagnostics to help figure out what went wrong. They were written before C<is_deeply()> existed because I couldn't figure out how to display a useful diff of two arbitrary data structures. These functions are usually used inside an C<ok()>. ok( eq_array(\@got, \@expected) ); C<is_deeply()> can do that better and with diagnostics. is_deeply( \@got, \@expected ); They may be deprecated in future versions. =over 4 =item B<eq_array> my $is_eq = eq_array(\@got, \@expected); Checks if two arrays are equivalent. This is a deep check, so multi-level structures are handled correctly. =cut #'# sub eq_array { local @Data_Stack = (); _deep_check(@_); } sub _eq_array { my( $a1, $a2 ) = @_; if( grep _type($_) ne 'ARRAY', $a1, $a2 ) { warn "eq_array passed a non-array ref"; return 0; } return 1 if $a1 eq $a2; my $ok = 1; my $max = $#$a1 > $#$a2 ? $#$a1 : $#$a2; for( 0 .. $max ) { my $e1 = $_ > $#$a1 ? $DNE : $a1->[$_]; my $e2 = $_ > $#$a2 ? $DNE : $a2->[$_]; next if _equal_nonrefs($e1, $e2); push @Data_Stack, { type => 'ARRAY', idx => $_, vals => [ $e1, $e2 ] }; $ok = _deep_check( $e1, $e2 ); pop @Data_Stack if $ok; last unless $ok; } return $ok; } sub _equal_nonrefs { my( $e1, $e2 ) = @_; return if ref $e1 or ref $e2; if ( defined $e1 ) { return 1 if defined $e2 and $e1 eq $e2; } else { return 1 if !defined $e2; } return; } sub _deep_check { my( $e1, $e2 ) = @_; my $tb = Test::More->builder; my $ok = 0; # Effectively turn %Refs_Seen into a stack. This avoids picking up # the same referenced used twice (such as [\$a, \$a]) to be considered # circular. local %Refs_Seen = %Refs_Seen; { $tb->_unoverload_str( \$e1, \$e2 ); # Either they're both references or both not. my $same_ref = !( !ref $e1 xor !ref $e2 ); my $not_ref = ( !ref $e1 and !ref $e2 ); if( defined $e1 xor defined $e2 ) { $ok = 0; } elsif( !defined $e1 and !defined $e2 ) { # Shortcut if they're both undefined. $ok = 1; } elsif( _dne($e1) xor _dne($e2) ) { $ok = 0; } elsif( $same_ref and( $e1 eq $e2 ) ) { $ok = 1; } elsif($not_ref) { push @Data_Stack, { type => '', vals => [ $e1, $e2 ] }; $ok = 0; } else { if( $Refs_Seen{$e1} ) { return $Refs_Seen{$e1} eq $e2; } else { $Refs_Seen{$e1} = "$e2"; } my $type = _type($e1); $type = 'DIFFERENT' unless _type($e2) eq $type; if( $type eq 'DIFFERENT' ) { push @Data_Stack, { type => $type, vals => [ $e1, $e2 ] }; $ok = 0; } elsif( $type eq 'ARRAY' ) { $ok = _eq_array( $e1, $e2 ); } elsif( $type eq 'HASH' ) { $ok = _eq_hash( $e1, $e2 ); } elsif( $type eq 'REF' ) { push @Data_Stack, { type => $type, vals => [ $e1, $e2 ] }; $ok = _deep_check( $$e1, $$e2 ); pop @Data_Stack if $ok; } elsif( $type eq 'SCALAR' ) { push @Data_Stack, { type => 'REF', vals => [ $e1, $e2 ] }; $ok = _deep_check( $$e1, $$e2 ); pop @Data_Stack if $ok; } elsif($type) { push @Data_Stack, { type => $type, vals => [ $e1, $e2 ] }; $ok = 0; } else { _whoa( 1, "No type in _deep_check" ); } } } return $ok; } sub _whoa { my( $check, $desc ) = @_; if($check) { die <<"WHOA"; WHOA! $desc This should never happen! Please contact the author immediately! WHOA } } =item B<eq_hash> my $is_eq = eq_hash(\%got, \%expected); Determines if the two hashes contain the same keys and values. This is a deep check. =cut sub eq_hash { local @Data_Stack = (); return _deep_check(@_); } sub _eq_hash { my( $a1, $a2 ) = @_; if( grep _type($_) ne 'HASH', $a1, $a2 ) { warn "eq_hash passed a non-hash ref"; return 0; } return 1 if $a1 eq $a2; my $ok = 1; my $bigger = keys %$a1 > keys %$a2 ? $a1 : $a2; foreach my $k ( keys %$bigger ) { my $e1 = exists $a1->{$k} ? $a1->{$k} : $DNE; my $e2 = exists $a2->{$k} ? $a2->{$k} : $DNE; next if _equal_nonrefs($e1, $e2); push @Data_Stack, { type => 'HASH', idx => $k, vals => [ $e1, $e2 ] }; $ok = _deep_check( $e1, $e2 ); pop @Data_Stack if $ok; last unless $ok; } return $ok; } =item B<eq_set> my $is_eq = eq_set(\@got, \@expected); Similar to C<eq_array()>, except the order of the elements is B<not> important. This is a deep check, but the irrelevancy of order only applies to the top level. ok( eq_set(\@got, \@expected) ); Is better written: is_deeply( [sort @got], [sort @expected] ); B<NOTE> By historical accident, this is not a true set comparison. While the order of elements does not matter, duplicate elements do. B<NOTE> C<eq_set()> does not know how to deal with references at the top level. The following is an example of a comparison which might not work: eq_set([\1, \2], [\2, \1]); L<Test::Deep> contains much better set comparison functions. =cut sub eq_set { my( $a1, $a2 ) = @_; return 0 unless @$a1 == @$a2; no warnings 'uninitialized'; # It really doesn't matter how we sort them, as long as both arrays are # sorted with the same algorithm. # # Ensure that references are not accidentally treated the same as a # string containing the reference. # # Have to inline the sort routine due to a threading/sort bug. # See [rt.cpan.org 6782] # # I don't know how references would be sorted so we just don't sort # them. This means eq_set doesn't really work with refs. return eq_array( [ grep( ref, @$a1 ), sort( grep( !ref, @$a1 ) ) ], [ grep( ref, @$a2 ), sort( grep( !ref, @$a2 ) ) ], ); } =back =head2 Extending and Embedding Test::More Sometimes the Test::More interface isn't quite enough. Fortunately, Test::More is built on top of L<Test::Builder> which provides a single, unified backend for any test library to use. This means two test libraries which both use <Test::Builder> B<can> be used together in the same program>. If you simply want to do a little tweaking of how the tests behave, you can access the underlying L<Test::Builder> object like so: =over 4 =item B<builder> my $test_builder = Test::More->builder; Returns the L<Test::Builder> object underlying Test::More for you to play with. =back =head1 EXIT CODES If all your tests passed, L<Test::Builder> will exit with zero (which is normal). If anything failed it will exit with how many failed. If you run less (or more) tests than you planned, the missing (or extras) will be considered failures. If no tests were ever run L<Test::Builder> will throw a warning and exit with 255. If the test died, even after having successfully completed all its tests, it will still be considered a failure and will exit with 255. So the exit codes are... 0 all tests successful 255 test died or all passed but wrong # of tests run any other number how many failed (including missing or extras) If you fail more than 254 tests, it will be reported as 254. B<NOTE> This behavior may go away in future versions. =head1 COMPATIBILITY Test::More works with Perls as old as 5.8.1. Thread support is not very reliable before 5.10.1, but that's because threads are not very reliable before 5.10.1. Although Test::More has been a core module in versions of Perl since 5.6.2, Test::More has evolved since then, and not all of the features you're used to will be present in the shipped version of Test::More. If you are writing a module, don't forget to indicate in your package metadata the minimum version of Test::More that you require. For instance, if you want to use C<done_testing()> but want your test script to run on Perl 5.10.0, you will need to explicitly require Test::More > 0.88. Key feature milestones include: =over 4 =item subtests Subtests were released in Test::More 0.94, which came with Perl 5.12.0. Subtests did not implicitly call C<done_testing()> until 0.96; the first Perl with that fix was Perl 5.14.0 with 0.98. =item C<done_testing()> This was released in Test::More 0.88 and first shipped with Perl in 5.10.1 as part of Test::More 0.92. =item C<cmp_ok()> Although C<cmp_ok()> was introduced in 0.40, 0.86 fixed an important bug to make it safe for overloaded objects; the fixed first shipped with Perl in 5.10.1 as part of Test::More 0.92. =item C<new_ok()> C<note()> and C<explain()> These were was released in Test::More 0.82, and first shipped with Perl in 5.10.1 as part of Test::More 0.92. =back There is a full version history in the Changes file, and the Test::More versions included as core can be found using L<Module::CoreList>: $ corelist -a Test::More =head1 CAVEATS and NOTES =over 4 =item utf8 / "Wide character in print" If you use utf8 or other non-ASCII characters with Test::More you might get a "Wide character in print" warning. Using C<< binmode STDOUT, ":utf8" >> will not fix it. L<Test::Builder> (which powers Test::More) duplicates STDOUT and STDERR. So any changes to them, including changing their output disciplines, will not be seen by Test::More. One work around is to apply encodings to STDOUT and STDERR as early as possible and before Test::More (or any other Test module) loads. use open ':std', ':encoding(utf8)'; use Test::More; A more direct work around is to change the filehandles used by L<Test::Builder>. my $builder = Test::More->builder; binmode $builder->output, ":encoding(utf8)"; binmode $builder->failure_output, ":encoding(utf8)"; binmode $builder->todo_output, ":encoding(utf8)"; =item Overloaded objects String overloaded objects are compared B<as strings> (or in C<cmp_ok()>'s case, strings or numbers as appropriate to the comparison op). This prevents Test::More from piercing an object's interface allowing better blackbox testing. So if a function starts returning overloaded objects instead of bare strings your tests won't notice the difference. This is good. However, it does mean that functions like C<is_deeply()> cannot be used to test the internals of string overloaded objects. In this case I would suggest L<Test::Deep> which contains more flexible testing functions for complex data structures. =item Threads Test::More will only be aware of threads if C<use threads> has been done I<before> Test::More is loaded. This is ok: use threads; use Test::More; This may cause problems: use Test::More use threads; 5.8.1 and above are supported. Anything below that has too many bugs. =back =head1 HISTORY This is a case of convergent evolution with Joshua Pritikin's L<Test> module. I was largely unaware of its existence when I'd first written my own C<ok()> routines. This module exists because I can't figure out how to easily wedge test names into Test's interface (along with a few other problems). The goal here is to have a testing utility that's simple to learn, quick to use and difficult to trip yourself up with while still providing more flexibility than the existing Test.pm. As such, the names of the most common routines are kept tiny, special cases and magic side-effects are kept to a minimum. WYSIWYG. =head1 SEE ALSO =head2 =head2 ALTERNATIVES L<Test2::Suite> is the most recent and modern set of tools for testing. L<Test::Simple> if all this confuses you and you just want to write some tests. You can upgrade to Test::More later (it's forward compatible). L<Test::Legacy> tests written with Test.pm, the original testing module, do not play well with other testing libraries. Test::Legacy emulates the Test.pm interface and does play well with others. =head2 ADDITIONAL LIBRARIES L<Test::Differences> for more ways to test complex data structures. And it plays well with Test::More. L<Test::Class> is like xUnit but more perlish. L<Test::Deep> gives you more powerful complex data structure testing. L<Test::Inline> shows the idea of embedded testing. L<Mock::Quick> The ultimate mocking library. Easily spawn objects defined on the fly. Can also override, block, or reimplement packages as needed. L<Test::FixtureBuilder> Quickly define fixture data for unit tests. =head2 OTHER COMPONENTS L<Test::Harness> is the test runner and output interpreter for Perl. It's the thing that powers C<make test> and where the C<prove> utility comes from. =head2 BUNDLES L<Test::Most> Most commonly needed test functions and features. =head1 AUTHORS Michael G Schwern E<lt>schwern@pobox.comE<gt> with much inspiration from Joshua Pritikin's Test module and lots of help from Barrie Slaymaker, Tony Bowden, blackstar.co.uk, chromatic, Fergal Daly and the perl-qa gang. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 BUGS See F<https://github.com/Test-More/test-more/issues> to report and view bugs. =head1 SOURCE The source code repository for Test::More can be found at F<http://github.com/Test-More/test-more/>. =head1 COPYRIGHT Copyright 2001-2008 by Michael G Schwern E<lt>schwern@pobox.comE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://www.perl.com/perl/misc/Artistic.html> =cut 1; PK ! ��+dP P 5.34.0/Test/use/ok.pmnu �[��� package Test::use::ok; use 5.005; our $VERSION = '1.302183'; __END__ =head1 NAME Test::use::ok - Alternative to Test::More::use_ok =head1 SYNOPSIS use ok 'Some::Module'; =head1 DESCRIPTION According to the B<Test::More> documentation, it is recommended to run C<use_ok()> inside a C<BEGIN> block, so functions are exported at compile-time and prototypes are properly honored. That is, instead of writing this: use_ok( 'Some::Module' ); use_ok( 'Other::Module' ); One should write this: BEGIN { use_ok( 'Some::Module' ); } BEGIN { use_ok( 'Other::Module' ); } However, people often either forget to add C<BEGIN>, or mistakenly group C<use_ok> with other tests in a single C<BEGIN> block, which can create subtle differences in execution order. With this module, simply change all C<use_ok> in test scripts to C<use ok>, and they will be executed at C<BEGIN> time. The explicit space after C<use> makes it clear that this is a single compile-time action. =head1 SEE ALSO L<Test::More> =head1 MAINTAINER =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =encoding utf8 =head1 CC0 1.0 Universal To the extent possible under law, 唐鳳 has waived all copyright and related or neighboring rights to L<Test-use-ok>. This work is published from Taiwan. L<http://creativecommons.org/publicdomain/zero/1.0> =cut PK ! e_>)* * 5.34.0/utf8.pmnu �[��� package utf8; use strict; use warnings; our $hint_bits = 0x00800000; our $VERSION = '1.24'; our $AUTOLOAD; sub import { $^H |= $hint_bits; } sub unimport { $^H &= ~$hint_bits; } sub AUTOLOAD { goto &$AUTOLOAD if defined &$AUTOLOAD; require Carp; Carp::croak("Undefined subroutine $AUTOLOAD called"); } 1; __END__ =head1 NAME utf8 - Perl pragma to enable/disable UTF-8 (or UTF-EBCDIC) in source code =head1 SYNOPSIS use utf8; no utf8; # Convert the internal representation of a Perl scalar to/from UTF-8. $num_octets = utf8::upgrade($string); $success = utf8::downgrade($string[, $fail_ok]); # Change each character of a Perl scalar to/from a series of # characters that represent the UTF-8 bytes of each original character. utf8::encode($string); # "\x{100}" becomes "\xc4\x80" utf8::decode($string); # "\xc4\x80" becomes "\x{100}" # Convert a code point from the platform native character set to # Unicode, and vice-versa. $unicode = utf8::native_to_unicode(ord('A')); # returns 65 on both # ASCII and EBCDIC # platforms $native = utf8::unicode_to_native(65); # returns 65 on ASCII # platforms; 193 on # EBCDIC $flag = utf8::is_utf8($string); # since Perl 5.8.1 $flag = utf8::valid($string); =head1 DESCRIPTION The C<use utf8> pragma tells the Perl parser to allow UTF-8 in the program text in the current lexical scope. The C<no utf8> pragma tells Perl to switch back to treating the source text as literal bytes in the current lexical scope. (On EBCDIC platforms, technically it is allowing UTF-EBCDIC, and not UTF-8, but this distinction is academic, so in this document the term UTF-8 is used to mean both). B<Do not use this pragma for anything else than telling Perl that your script is written in UTF-8.> The utility functions described below are directly usable without C<use utf8;>. Because it is not possible to reliably tell UTF-8 from native 8 bit encodings, you need either a Byte Order Mark at the beginning of your source code, or C<use utf8;>, to instruct perl. When UTF-8 becomes the standard source format, this pragma will effectively become a no-op. See also the effects of the C<-C> switch and its cousin, the C<PERL_UNICODE> environment variable, in L<perlrun>. Enabling the C<utf8> pragma has the following effect: =over 4 =item * Bytes in the source text that are not in the ASCII character set will be treated as being part of a literal UTF-8 sequence. This includes most literals such as identifier names, string constants, and constant regular expression patterns. =back Note that if you have non-ASCII, non-UTF-8 bytes in your script (for example embedded Latin-1 in your string literals), C<use utf8> will be unhappy. If you want to have such bytes under C<use utf8>, you can disable this pragma until the end the block (or file, if at top level) by C<no utf8;>. =head2 Utility functions The following functions are defined in the C<utf8::> package by the Perl core. You do not need to say C<use utf8> to use these and in fact you should not say that unless you really want to have UTF-8 source code. =over 4 =item * C<$num_octets = utf8::upgrade($string)> (Since Perl v5.8.0) Converts in-place the internal representation of the string from an octet sequence in the native encoding (Latin-1 or EBCDIC) to UTF-8. The logical character sequence itself is unchanged. If I<$string> is already upgraded, then this is a no-op. Returns the number of octets necessary to represent the string as UTF-8. If your code needs to be compatible with versions of perl without C<use feature 'unicode_strings';>, you can force Unicode semantics on a given string: # force unicode semantics for $string without the # "unicode_strings" feature utf8::upgrade($string); For example: # without explicit or implicit use feature 'unicode_strings' my $x = "\xDF"; # LATIN SMALL LETTER SHARP S $x =~ /ss/i; # won't match my $y = uc($x); # won't convert utf8::upgrade($x); $x =~ /ss/i; # matches my $z = uc($x); # converts to "SS" B<Note that this function does not handle arbitrary encodings>; use L<Encode> instead. =item * C<$success = utf8::downgrade($string[, $fail_ok])> (Since Perl v5.8.0) Converts in-place the internal representation of the string from UTF-8 to the equivalent octet sequence in the native encoding (Latin-1 or EBCDIC). The logical character sequence itself is unchanged. If I<$string> is already stored as native 8 bit, then this is a no-op. Can be used to make sure that the UTF-8 flag is off, e.g. when you want to make sure that the substr() or length() function works with the usually faster byte algorithm. Fails if the original UTF-8 sequence cannot be represented in the native 8 bit encoding. On failure dies or, if the value of I<$fail_ok> is true, returns false. Returns true on success. If your code expects an octet sequence this can be used to validate that you've received one: # throw an exception if not representable as octets utf8::downgrade($string) # or do your own error handling utf8::downgrade($string, 1) or die "string must be octets"; B<Note that this function does not handle arbitrary encodings>; use L<Encode> instead. =item * C<utf8::encode($string)> (Since Perl v5.8.0) Converts in-place the character sequence to the corresponding octet sequence in Perl's extended UTF-8. That is, every (possibly wide) character gets replaced with a sequence of one or more characters that represent the individual UTF-8 bytes of the character. The UTF8 flag is turned off. Returns nothing. my $x = "\x{100}"; # $x contains one character, with ord 0x100 utf8::encode($x); # $x contains two characters, with ords (on # ASCII platforms) 0xc4 and 0x80. On EBCDIC # 1047, this would instead be 0x8C and 0x41. Similar to: use Encode; $x = Encode::encode("utf8", $x); B<Note that this function does not handle arbitrary encodings>; use L<Encode> instead. =item * C<$success = utf8::decode($string)> (Since Perl v5.8.0) Attempts to convert in-place the octet sequence encoded in Perl's extended UTF-8 to the corresponding character sequence. That is, it replaces each sequence of characters in the string whose ords represent a valid (extended) UTF-8 byte sequence, with the corresponding single character. The UTF-8 flag is turned on only if the source string contains multiple-byte UTF-8 characters. If I<$string> is invalid as extended UTF-8, returns false; otherwise returns true. my $x = "\xc4\x80"; # $x contains two characters, with ords # 0xc4 and 0x80 utf8::decode($x); # On ASCII platforms, $x contains one char, # with ord 0x100. Since these bytes aren't # legal UTF-EBCDIC, on EBCDIC platforms, $x is # unchanged and the function returns FALSE. my $y = "\xc3\x83\xc2\xab"; This has been encoded twice; this # example is only for ASCII platforms utf8::decode($y); # Converts $y to \xc3\xab, returns TRUE; utf8::decode($y); # Further converts to \xeb, returns TRUE; utf8::decode($y); # Returns FALSE, leaves $y unchanged B<Note that this function does not handle arbitrary encodings>; use L<Encode> instead. =item * C<$unicode = utf8::native_to_unicode($code_point)> (Since Perl v5.8.0) This takes an unsigned integer (which represents the ordinal number of a character (or a code point) on the platform the program is being run on) and returns its Unicode equivalent value. Since ASCII platforms natively use the Unicode code points, this function returns its input on them. On EBCDIC platforms it converts from EBCDIC to Unicode. A meaningless value will currently be returned if the input is not an unsigned integer. Since Perl v5.22.0, calls to this function are optimized out on ASCII platforms, so there is no performance hit in using it there. =item * C<$native = utf8::unicode_to_native($code_point)> (Since Perl v5.8.0) This is the inverse of C<utf8::native_to_unicode()>, converting the other direction. Again, on ASCII platforms, this returns its input, but on EBCDIC platforms it will find the native platform code point, given any Unicode one. A meaningless value will currently be returned if the input is not an unsigned integer. Since Perl v5.22.0, calls to this function are optimized out on ASCII platforms, so there is no performance hit in using it there. =item * C<$flag = utf8::is_utf8($string)> (Since Perl 5.8.1) Test whether I<$string> is marked internally as encoded in UTF-8. Functionally the same as C<Encode::is_utf8($string)>. Typically only necessary for debugging and testing, if you need to dump the internals of an SV, L<Devel::Peek's|Devel::Peek> Dump() provides more detail in a compact form. If you still think you need this outside of debugging, testing or dealing with filenames, you should probably read L<perlunitut> and L<perlunifaq/What is "the UTF8 flag"?>. Don't use this flag as a marker to distinguish character and binary data: that should be decided for each variable when you write your code. To force unicode semantics in code portable to perl 5.8 and 5.10, call C<utf8::upgrade($string)> unconditionally. =item * C<$flag = utf8::valid($string)> [INTERNAL] Test whether I<$string> is in a consistent state regarding UTF-8. Will return true if it is well-formed Perl extended UTF-8 and has the UTF-8 flag on B<or> if I<$string> is held as bytes (both these states are 'consistent'). The main reason for this routine is to allow Perl's test suite to check that operations have left strings in a consistent state. =back C<utf8::encode> is like C<utf8::upgrade>, but the UTF8 flag is cleared. See L<perlunicode>, and the C API functions C<L<sv_utf8_upgrade|perlapi/sv_utf8_upgrade>>, C<L<perlapi/sv_utf8_downgrade>>, C<L<perlapi/sv_utf8_encode>>, and C<L<perlapi/sv_utf8_decode>>, which are wrapped by the Perl functions C<utf8::upgrade>, C<utf8::downgrade>, C<utf8::encode> and C<utf8::decode>. Also, the functions C<utf8::is_utf8>, C<utf8::valid>, C<utf8::encode>, C<utf8::decode>, C<utf8::upgrade>, and C<utf8::downgrade> are actually internal, and thus always available, without a C<require utf8> statement. =head1 BUGS Some filesystems may not support UTF-8 file names, or they may be supported incompatibly with Perl. Therefore UTF-8 names that are visible to the filesystem, such as module names may not work. =head1 SEE ALSO L<perlunitut>, L<perluniintro>, L<perlrun>, L<bytes>, L<perlunicode> =cut PK ! ��� � � 5.34.0/bytes_heavy.plnu �[��� package bytes; sub length (_) { BEGIN { bytes::import() } return CORE::length($_[0]); } sub substr ($$;$$) { BEGIN { bytes::import() } return @_ == 2 ? CORE::substr($_[0], $_[1]) : @_ == 3 ? CORE::substr($_[0], $_[1], $_[2]) : CORE::substr($_[0], $_[1], $_[2], $_[3]) ; } sub ord (_) { BEGIN { bytes::import() } return CORE::ord($_[0]); } sub chr (_) { BEGIN { bytes::import() } return CORE::chr($_[0]); } sub index ($$;$) { BEGIN { bytes::import() } return @_ == 2 ? CORE::index($_[0], $_[1]) : CORE::index($_[0], $_[1], $_[2]) ; } sub rindex ($$;$) { BEGIN { bytes::import() } return @_ == 2 ? CORE::rindex($_[0], $_[1]) : CORE::rindex($_[0], $_[1], $_[2]) ; } 1; PK ! ��r�� � 5.34.0/version.pmnu �[��� #!perl -w package version; use 5.006002; use strict; use warnings::register; if ($] >= 5.015) { warnings::register_categories(qw/version/); } our $VERSION = 0.9928; our $CLASS = 'version'; our (@ISA, $STRICT, $LAX); # avoid using Exporter require version::regex; *version::is_lax = \&version::regex::is_lax; *version::is_strict = \&version::regex::is_strict; *LAX = \$version::regex::LAX; *LAX_DECIMAL_VERSION = \$version::regex::LAX_DECIMAL_VERSION; *LAX_DOTTED_DECIMAL_VERSION = \$version::regex::LAX_DOTTED_DECIMAL_VERSION; *STRICT = \$version::regex::STRICT; *STRICT_DECIMAL_VERSION = \$version::regex::STRICT_DECIMAL_VERSION; *STRICT_DOTTED_DECIMAL_VERSION = \$version::regex::STRICT_DOTTED_DECIMAL_VERSION; sub import { no strict 'refs'; my ($class) = shift; # Set up any derived class unless ($class eq $CLASS) { local $^W; *{$class.'::declare'} = \&{$CLASS.'::declare'}; *{$class.'::qv'} = \&{$CLASS.'::qv'}; } my %args; if (@_) { # any remaining terms are arguments map { $args{$_} = 1 } @_ } else { # no parameters at all on use line %args = ( qv => 1, 'UNIVERSAL::VERSION' => 1, ); } my $callpkg = caller(); if (exists($args{declare})) { *{$callpkg.'::declare'} = sub {return $class->declare(shift) } unless defined(&{$callpkg.'::declare'}); } if (exists($args{qv})) { *{$callpkg.'::qv'} = sub {return $class->qv(shift) } unless defined(&{$callpkg.'::qv'}); } if (exists($args{'UNIVERSAL::VERSION'})) { local $^W; *UNIVERSAL::VERSION = \&{$CLASS.'::_VERSION'}; } if (exists($args{'VERSION'})) { *{$callpkg.'::VERSION'} = \&{$CLASS.'::_VERSION'}; } if (exists($args{'is_strict'})) { *{$callpkg.'::is_strict'} = \&{$CLASS.'::is_strict'} unless defined(&{$callpkg.'::is_strict'}); } if (exists($args{'is_lax'})) { *{$callpkg.'::is_lax'} = \&{$CLASS.'::is_lax'} unless defined(&{$callpkg.'::is_lax'}); } } 1; PK ! �t t 5.34.0/CORE.podnu �[��� =head1 NAME CORE - Namespace for Perl's core routines =head1 SYNOPSIS BEGIN { *CORE::GLOBAL::hex = sub { 1; }; } print hex("0x50"),"\n"; # prints 1 print CORE::hex("0x50"),"\n"; # prints 80 CORE::say "yes"; # prints yes BEGIN { *shove = \&CORE::push; } shove @array, 1,2,3; # pushes on to @array =head1 DESCRIPTION The C<CORE> namespace gives access to the original built-in functions of Perl. The C<CORE> package is built into Perl, and therefore you do not need to use or require a hypothetical "CORE" module prior to accessing routines in this namespace. A list of the built-in functions in Perl can be found in L<perlfunc>. For all Perl keywords, a C<CORE::> prefix will force the built-in function to be used, even if it has been overridden or would normally require the L<feature> pragma. Despite appearances, this has nothing to do with the CORE package, but is part of Perl's syntax. For many Perl functions, the CORE package contains real subroutines. This feature is new in Perl 5.16. You can take references to these and make aliases. However, some can only be called as barewords; i.e., you cannot use ampersand syntax (C<&foo>) or call them through references. See the C<shove> example above. These subroutines exist for all keywords except the following: C<__DATA__>, C<__END__>, C<and>, C<cmp>, C<default>, C<do>, C<dump>, C<else>, C<elsif>, C<eq>, C<eval>, C<for>, C<foreach>, C<format>, C<ge>, C<given>, C<goto>, C<grep>, C<gt>, C<if>, C<last>, C<le>, C<local>, C<lt>, C<m>, C<map>, C<my>, C<ne>, C<next>, C<no>, C<or>, C<our>, C<package>, C<print>, C<printf>, C<q>, C<qq>, C<qr>, C<qw>, C<qx>, C<redo>, C<require>, C<return>, C<s>, C<say>, C<sort>, C<state>, C<sub>, C<tr>, C<unless>, C<until>, C<use>, C<when>, C<while>, C<x>, C<xor>, C<y> Calling with ampersand syntax and through references does not work for the following functions, as they have special syntax that cannot always be translated into a simple list (e.g., C<eof> vs C<eof()>): C<chdir>, C<chomp>, C<chop>, C<defined>, C<delete>, C<eof>, C<exec>, C<exists>, C<lstat>, C<split>, C<stat>, C<system>, C<truncate>, C<unlink> =head1 OVERRIDING CORE FUNCTIONS To override a Perl built-in routine with your own version, you need to import it at compile-time. This can be conveniently achieved with the C<subs> pragma. This will affect only the package in which you've imported the said subroutine: use subs 'chdir'; sub chdir { ... } chdir $somewhere; To override a built-in globally (that is, in all namespaces), you need to import your function into the C<CORE::GLOBAL> pseudo-namespace at compile time: BEGIN { *CORE::GLOBAL::hex = sub { # ... your code here }; } The new routine will be called whenever a built-in function is called without a qualifying package: print hex("0x50"),"\n"; # prints 1 In both cases, if you want access to the original, unaltered routine, use the C<CORE::> prefix: print CORE::hex("0x50"),"\n"; # prints 80 =head1 AUTHOR This documentation provided by Tels <nospam-abuse@bloodgate.com> 2007. =head1 SEE ALSO L<perlsub>, L<perlfunc>. =cut PK ! ��� � 5.34.0/experimental.pmnu �[��� package experimental; $experimental::VERSION = '0.024'; use strict; use warnings; use version (); BEGIN { eval { require feature } }; use Carp qw/croak carp/; my %warnings = map { $_ => 1 } grep { /^experimental::/ } keys %warnings::Offsets; my %features = map { $_ => 1 } $] > 5.015006 ? keys %feature::feature : do { my @features; if ($] >= 5.010) { push @features, qw/switch say state/; push @features, 'unicode_strings' if $] > 5.011002; } @features; }; my %min_version = ( array_base => '5', autoderef => '5.14.0', bitwise => '5.22.0', const_attr => '5.22.0', current_sub => '5.16.0', declared_refs => '5.26.0', evalbytes => '5.16.0', fc => '5.16.0', isa => '5.31.7', lexical_topic => '5.10.0', lexical_subs => '5.18.0', postderef => '5.20.0', postderef_qq => '5.20.0', refaliasing => '5.22.0', regex_sets => '5.18.0', say => '5.10.0', smartmatch => '5.10.0', signatures => '5.20.0', state => '5.10.0', switch => '5.10.0', try => '5.33.6', unicode_eval => '5.16.0', unicode_strings => '5.12.0', ); my %removed_in_version = ( array_base => '5.29.4', autoderef => '5.23.1', lexical_topic => '5.23.4', ); $_ = version->new($_) for values %min_version; $_ = version->new($_) for values %removed_in_version; my %additional = ( postderef => ['postderef_qq'], switch => ['smartmatch'], declared_refs => ['refaliasing'], ); sub _enable { my $pragma = shift; if ($warnings{"experimental::$pragma"}) { warnings->unimport("experimental::$pragma"); feature->import($pragma) if exists $features{$pragma}; _enable(@{ $additional{$pragma} }) if $additional{$pragma}; } elsif ($features{$pragma}) { feature->import($pragma); _enable(@{ $additional{$pragma} }) if $additional{$pragma}; } elsif (not exists $min_version{$pragma}) { croak "Can't enable unknown feature $pragma"; } elsif ($] < $min_version{$pragma}) { my $stable = $min_version{$pragma}; if ($stable->{version}[1] % 2) { $stable = version->new( "5.".($stable->{version}[1]+1).'.0' ); } croak "Need perl $stable or later for feature $pragma"; } elsif ($] >= ($removed_in_version{$pragma} || 7)) { croak "Experimental feature $pragma has been removed from perl in version $removed_in_version{$pragma}"; } } sub import { my ($self, @pragmas) = @_; for my $pragma (@pragmas) { _enable($pragma); } return; } sub _disable { my $pragma = shift; if ($warnings{"experimental::$pragma"}) { warnings->import("experimental::$pragma"); feature->unimport($pragma) if exists $features{$pragma}; _disable(@{ $additional{$pragma} }) if $additional{$pragma}; } elsif ($features{$pragma}) { feature->unimport($pragma); _disable(@{ $additional{$pragma} }) if $additional{$pragma}; } elsif (not exists $min_version{$pragma}) { carp "Can't disable unknown feature $pragma, ignoring"; } } sub unimport { my ($self, @pragmas) = @_; for my $pragma (@pragmas) { _disable($pragma); } return; } 1; #ABSTRACT: Experimental features made easy __END__ =pod =encoding UTF-8 =head1 NAME experimental - Experimental features made easy =head1 VERSION version 0.024 =head1 SYNOPSIS use experimental 'lexical_subs', 'smartmatch'; my sub foo { $_[0] ~~ 1 } =head1 DESCRIPTION This pragma provides an easy and convenient way to enable or disable experimental features. Every version of perl has some number of features present but considered "experimental." For much of the life of Perl 5, this was only a designation found in the documentation. Starting in Perl v5.10.0, and more aggressively in v5.18.0, experimental features were placed behind pragmata used to enable the feature and disable associated warnings. The C<experimental> pragma exists to combine the required incantations into a single interface stable across releases of perl. For every experimental feature, this should enable the feature and silence warnings for the enclosing lexical scope: use experimental 'feature-name'; To disable the feature and, if applicable, re-enable any warnings, use: no experimental 'feature-name'; The supported features, documented further below, are: =over 4 =item * C<array_base> - allow the use of C<$[> to change the starting index of C<@array>. This is supported on all versions of perl. =item * C<autoderef> - allow push, each, keys, and other built-ins on references. This was added in perl 5.14.0 and removed in perl 5.23.1. =item * C<bitwise> - allow the new stringwise bit operators This was added in perl 5.22.0. =item * C<const_attr> - allow the :const attribute on subs This was added in perl 5.22.0. =item * C<declared_refs> - enables aliasing via assignment to references This was added in perl 5.26.0. =item * C<isa> - allow the use of the C<isa> infix operator This was added in perl 5.32.0. =item * C<lexical_topic> - allow the use of lexical C<$_> via C<my $_>. This was added in perl 5.10.0 and removed in perl 5.23.4. =item * C<lexical_subs> - allow the use of lexical subroutines. This was added in 5.18.0. =item * C<postderef> - allow the use of postfix dereferencing expressions This was added in perl 5.20.0, and became non-experimental (and always enabled) in 5.24.0. =item * C<postderef_qq> - allow the use of postfix dereferencing expressions inside interpolating strings This was added in perl 5.20.0, and became non-experimental (and always enabled) in 5.24.0. =item * C<re_strict> - enables strict mode in regular expressions This was added in perl 5.22.0. =item * C<refaliasing> - allow aliasing via C<\$x = \$y> This was added in perl 5.22.0. =item * C<regex_sets> - allow extended bracketed character classes in regexps This was added in perl 5.18.0. =item * C<signatures> - allow subroutine signatures (for named arguments) This was added in perl 5.20.0. =item * C<smartmatch> - allow the use of C<~~> This was added in perl 5.10.0, but it should be noted there are significant incompatibilities between 5.10.0 and 5.10.1. =item * C<switch> - allow the use of C<~~>, given, and when This was added in perl 5.10.0. =item * C<win32_perlio> - allows the use of the :win32 IO layer. This was added on perl 5.22.0. =back =head2 Ordering matters Using this pragma to 'enable an experimental feature' is another way of saying that this pragma will disable the warnings which would result from using that feature. Therefore, the order in which pragmas are applied is important. In particular, you probably want to enable experimental features I<after> you enable warnings: use warnings; use experimental 'smartmatch'; You also need to take care with modules that enable warnings for you. A common example being Moose. In this example, warnings for the 'smartmatch' feature are first turned on by the warnings pragma, off by the experimental pragma and back on again by the Moose module (fix is to switch the last two lines): use warnings; use experimental 'smartmatch'; use Moose; =head2 Disclaimer Because of the nature of the features it enables, forward compatibility can not be guaranteed in any way. =head1 SEE ALSO L<perlexperiment|perlexperiment> contains more information about experimental features. =head1 AUTHOR Leon Timmermans <leont@cpan.org> =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2013 by Leon Timmermans. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut PK ! W� 5.34.0/Search/Dict.pmnu �[��� package Search::Dict; require 5.000; require Exporter; my $fc_available; BEGIN { $fc_available = '5.015008'; if ( $] ge $fc_available ) { require feature; 'feature'->import('fc'); # string avoids warning on old Perls <sigh> } } use strict; our $VERSION = '1.07'; our @ISA = qw(Exporter); our @EXPORT = qw(look); =head1 NAME Search::Dict - look - search for key in dictionary file =head1 SYNOPSIS use Search::Dict; look *FILEHANDLE, $key, $dict, $fold; use Search::Dict; look *FILEHANDLE, $params; =head1 DESCRIPTION Sets file position in FILEHANDLE to be first line greater than or equal (stringwise) to I<$key>. Returns the new file position, or -1 if an error occurs. The flags specify dictionary order and case folding: If I<$dict> is true, search by dictionary order (ignore anything but word characters and whitespace). The default is honour all characters. If I<$fold> is true, ignore case. The default is to honour case. If there are only three arguments and the third argument is a hash reference, the keys of that hash can have values C<dict>, C<fold>, and C<comp> or C<xfrm> (see below), and their corresponding values will be used as the parameters. If a comparison subroutine (comp) is defined, it must return less than zero, zero, or greater than zero, if the first comparand is less than, equal, or greater than the second comparand. If a transformation subroutine (xfrm) is defined, its value is used to transform the lines read from the filehandle before their comparison. =cut sub look { my($fh,$key,$dict,$fold) = @_; my ($comp, $xfrm); if (@_ == 3 && ref $dict eq 'HASH') { my $params = $dict; $dict = 0; $dict = $params->{dict} if exists $params->{dict}; $fold = $params->{fold} if exists $params->{fold}; $comp = $params->{comp} if exists $params->{comp}; $xfrm = $params->{xfrm} if exists $params->{xfrm}; } $comp = sub { $_[0] cmp $_[1] } unless defined $comp; local($_); my $fno = fileno $fh; my @stat; if ( defined $fno && $fno >= 0 && ! tied *{$fh} ) { # real, open file @stat = eval { stat($fh) }; # in case fileno lies } my($size, $blksize) = @stat[7,11]; $size = do { seek($fh,0,2); my $s = tell($fh); seek($fh,0,0); $s } unless defined $size; $blksize ||= 8192; $key =~ s/[^\w\s]//g if $dict; if ( $fold ) { $key = $] ge $fc_available ? fc($key) : lc($key); } # find the right block my($min, $max) = (0, int($size / $blksize)); my $mid; while ($max - $min > 1) { $mid = int(($max + $min) / 2); seek($fh, $mid * $blksize, 0) or return -1; <$fh> if $mid; # probably a partial line $_ = <$fh>; $_ = $xfrm->($_) if defined $xfrm; chomp; s/[^\w\s]//g if $dict; if ( $fold ) { $_ = $] ge $fc_available ? fc($_) : lc($_); } if (defined($_) && $comp->($_, $key) < 0) { $min = $mid; } else { $max = $mid; } } # find the right line $min *= $blksize; seek($fh,$min,0) or return -1; <$fh> if $min; for (;;) { $min = tell($fh); defined($_ = <$fh>) or last; $_ = $xfrm->($_) if defined $xfrm; chomp; s/[^\w\s]//g if $dict; if ( $fold ) { $_ = $] ge $fc_available ? fc($_) : lc($_); } last if $comp->($_, $key) >= 0; } seek($fh,$min,0); $min; } 1; PK ! �&�_O _O 5.34.0/Class/Struct.pmnu �[��� package Class::Struct; ## See POD after __END__ use 5.006_001; use strict; use warnings::register; our(@ISA, @EXPORT, $VERSION); use Carp; require Exporter; @ISA = qw(Exporter); @EXPORT = qw(struct); $VERSION = '0.66'; my $print = 0; sub printem { if (@_) { $print = shift } else { $print++ } } { package Class::Struct::Tie_ISA; sub TIEARRAY { my $class = shift; return bless [], $class; } sub STORE { my ($self, $index, $value) = @_; Class::Struct::_subclass_error(); } sub FETCH { my ($self, $index) = @_; $self->[$index]; } sub FETCHSIZE { my $self = shift; return scalar(@$self); } sub DESTROY { } } sub import { my $self = shift; if ( @_ == 0 ) { $self->export_to_level( 1, $self, @EXPORT ); } elsif ( @_ == 1 ) { # This is admittedly a little bit silly: # do we ever export anything else than 'struct'...? $self->export_to_level( 1, $self, @_ ); } else { goto &struct; } } sub struct { # Determine parameter list structure, one of: # struct( class => [ element-list ]) # struct( class => { element-list }) # struct( element-list ) # Latter form assumes current package name as struct name. my ($class, @decls); my $base_type = ref $_[1]; if ( $base_type eq 'HASH' ) { $class = shift; @decls = %{shift()}; _usage_error() if @_; } elsif ( $base_type eq 'ARRAY' ) { $class = shift; @decls = @{shift()}; _usage_error() if @_; } else { $base_type = 'ARRAY'; $class = (caller())[0]; @decls = @_; } _usage_error() if @decls % 2 == 1; # Ensure we are not, and will not be, a subclass. my $isa = do { no strict 'refs'; \@{$class . '::ISA'}; }; _subclass_error() if @$isa; tie @$isa, 'Class::Struct::Tie_ISA'; # Create constructor. croak "function 'new' already defined in package $class" if do { no strict 'refs'; defined &{$class . "::new"} }; my @methods = (); my %refs = (); my %arrays = (); my %hashes = (); my %classes = (); my $got_class = 0; my $out = ''; $out = "{\n package $class;\n use Carp;\n sub new {\n"; $out .= " my (\$class, \%init) = \@_;\n"; $out .= " \$class = __PACKAGE__ unless \@_;\n"; my $cnt = 0; my $idx = 0; my( $cmt, $name, $type, $elem ); if( $base_type eq 'HASH' ){ $out .= " my(\$r) = {};\n"; $cmt = ''; } elsif( $base_type eq 'ARRAY' ){ $out .= " my(\$r) = [];\n"; } $out .= " bless \$r, \$class;\n\n"; while( $idx < @decls ){ $name = $decls[$idx]; $type = $decls[$idx+1]; push( @methods, $name ); if( $base_type eq 'HASH' ){ $elem = "{'${class}::$name'}"; } elsif( $base_type eq 'ARRAY' ){ $elem = "[$cnt]"; ++$cnt; $cmt = " # $name"; } if( $type =~ /^\*(.)/ ){ $refs{$name}++; $type = $1; } my $init = "defined(\$init{'$name'}) ? \$init{'$name'} :"; if( $type eq '@' ){ $out .= " croak 'Initializer for $name must be array reference'\n"; $out .= " if defined(\$init{'$name'}) && ref(\$init{'$name'}) ne 'ARRAY';\n"; $out .= " \$r->$name( $init [] );$cmt\n"; $arrays{$name}++; } elsif( $type eq '%' ){ $out .= " croak 'Initializer for $name must be hash reference'\n"; $out .= " if defined(\$init{'$name'}) && ref(\$init{'$name'}) ne 'HASH';\n"; $out .= " \$r->$name( $init {} );$cmt\n"; $hashes{$name}++; } elsif ( $type eq '$') { $out .= " \$r->$name( $init undef );$cmt\n"; } elsif( $type =~ /^\w+(?:::\w+)*$/ ){ $out .= " if (defined(\$init{'$name'})) {\n"; $out .= " if (ref \$init{'$name'} eq 'HASH')\n"; $out .= " { \$r->$name( $type->new(\%{\$init{'$name'}}) ) } $cmt\n"; $out .= " elsif (UNIVERSAL::isa(\$init{'$name'}, '$type'))\n"; $out .= " { \$r->$name( \$init{'$name'} ) } $cmt\n"; $out .= " else { croak 'Initializer for $name must be hash or $type reference' }\n"; $out .= " }\n"; $classes{$name} = $type; $got_class = 1; } else{ croak "'$type' is not a valid struct element type"; } $idx += 2; } $out .= "\n \$r;\n}\n"; # Create accessor methods. my( $pre, $pst, $sel ); $cnt = 0; foreach $name (@methods){ if ( do { no strict 'refs'; defined &{$class . "::$name"} } ) { warnings::warnif("function '$name' already defined, overrides struct accessor method"); } else { $pre = $pst = $cmt = $sel = ''; if( defined $refs{$name} ){ $pre = "\\("; $pst = ")"; $cmt = " # returns ref"; } $out .= " sub $name {$cmt\n my \$r = shift;\n"; if( $base_type eq 'ARRAY' ){ $elem = "[$cnt]"; ++$cnt; } elsif( $base_type eq 'HASH' ){ $elem = "{'${class}::$name'}"; } if( defined $arrays{$name} ){ $out .= " my \$i;\n"; $out .= " \@_ ? (\$i = shift) : return \$r->$elem;\n"; $out .= " if (ref(\$i) eq 'ARRAY' && !\@_) { \$r->$elem = \$i; return \$r }\n"; $sel = "->[\$i]"; } elsif( defined $hashes{$name} ){ $out .= " my \$i;\n"; $out .= " \@_ ? (\$i = shift) : return \$r->$elem;\n"; $out .= " if (ref(\$i) eq 'HASH' && !\@_) { \$r->$elem = \$i; return \$r }\n"; $sel = "->{\$i}"; } elsif( defined $classes{$name} ){ $out .= " croak '$name argument is wrong class' if \@_ && ! UNIVERSAL::isa(\$_[0], '$classes{$name}');\n"; } $out .= " croak 'Too many args to $name' if \@_ > 1;\n"; $out .= " \@_ ? ($pre\$r->$elem$sel = shift$pst) : $pre\$r->$elem$sel$pst;\n"; $out .= " }\n"; } } $out .= "}\n1;\n"; print $out if $print; my $result = eval $out; carp $@ if $@; } sub _usage_error { confess "struct usage error"; } sub _subclass_error { croak 'struct class cannot be a subclass (@ISA not allowed)'; } 1; # for require __END__ =head1 NAME Class::Struct - declare struct-like datatypes as Perl classes =head1 SYNOPSIS use Class::Struct; # declare struct, based on array: struct( CLASS_NAME => [ ELEMENT_NAME => ELEMENT_TYPE, ... ]); # declare struct, based on hash: struct( CLASS_NAME => { ELEMENT_NAME => ELEMENT_TYPE, ... }); package CLASS_NAME; use Class::Struct; # declare struct, based on array, implicit class name: struct( ELEMENT_NAME => ELEMENT_TYPE, ... ); # Declare struct at compile time use Class::Struct CLASS_NAME => [ELEMENT_NAME => ELEMENT_TYPE, ...]; use Class::Struct CLASS_NAME => {ELEMENT_NAME => ELEMENT_TYPE, ...}; # declare struct at compile time, based on array, implicit # class name: package CLASS_NAME; use Class::Struct ELEMENT_NAME => ELEMENT_TYPE, ... ; package Myobj; use Class::Struct; # declare struct with four types of elements: struct( s => '$', a => '@', h => '%', c => 'My_Other_Class' ); $obj = new Myobj; # constructor # scalar type accessor: $element_value = $obj->s; # element value $obj->s('new value'); # assign to element # array type accessor: $ary_ref = $obj->a; # reference to whole array $ary_element_value = $obj->a(2); # array element value $obj->a(2, 'new value'); # assign to array element # hash type accessor: $hash_ref = $obj->h; # reference to whole hash $hash_element_value = $obj->h('x'); # hash element value $obj->h('x', 'new value'); # assign to hash element # class type accessor: $element_value = $obj->c; # object reference $obj->c->method(...); # call method of object $obj->c(new My_Other_Class); # assign a new object =head1 DESCRIPTION C<Class::Struct> exports a single function, C<struct>. Given a list of element names and types, and optionally a class name, C<struct> creates a Perl 5 class that implements a "struct-like" data structure. The new class is given a constructor method, C<new>, for creating struct objects. Each element in the struct data has an accessor method, which is used to assign to the element and to fetch its value. The default accessor can be overridden by declaring a C<sub> of the same name in the package. (See Example 2.) Each element's type can be scalar, array, hash, or class. =head2 The C<struct()> function The C<struct> function has three forms of parameter-list. struct( CLASS_NAME => [ ELEMENT_LIST ]); struct( CLASS_NAME => { ELEMENT_LIST }); struct( ELEMENT_LIST ); The first and second forms explicitly identify the name of the class being created. The third form assumes the current package name as the class name. An object of a class created by the first and third forms is based on an array, whereas an object of a class created by the second form is based on a hash. The array-based forms will be somewhat faster and smaller; the hash-based forms are more flexible. The class created by C<struct> must not be a subclass of another class other than C<UNIVERSAL>. It can, however, be used as a superclass for other classes. To facilitate this, the generated constructor method uses a two-argument blessing. Furthermore, if the class is hash-based, the key of each element is prefixed with the class name (see I<Perl Cookbook>, Recipe 13.12). A function named C<new> must not be explicitly defined in a class created by C<struct>. The I<ELEMENT_LIST> has the form NAME => TYPE, ... Each name-type pair declares one element of the struct. Each element name will be defined as an accessor method unless a method by that name is explicitly defined; in the latter case, a warning is issued if the warning flag (B<-w>) is set. =head2 Class Creation at Compile Time C<Class::Struct> can create your class at compile time. The main reason for doing this is obvious, so your class acts like every other class in Perl. Creating your class at compile time will make the order of events similar to using any other class ( or Perl module ). There is no significant speed gain between compile time and run time class creation, there is just a new, more standard order of events. =head2 Element Types and Accessor Methods The four element types -- scalar, array, hash, and class -- are represented by strings -- C<'$'>, C<'@'>, C<'%'>, and a class name -- optionally preceded by a C<'*'>. The accessor method provided by C<struct> for an element depends on the declared type of the element. =over 4 =item Scalar (C<'$'> or C<'*$'>) The element is a scalar, and by default is initialized to C<undef> (but see L</Initializing with new>). The accessor's argument, if any, is assigned to the element. If the element type is C<'$'>, the value of the element (after assignment) is returned. If the element type is C<'*$'>, a reference to the element is returned. =item Array (C<'@'> or C<'*@'>) The element is an array, initialized by default to C<()>. With no argument, the accessor returns a reference to the element's whole array (whether or not the element was specified as C<'@'> or C<'*@'>). With one or two arguments, the first argument is an index specifying one element of the array; the second argument, if present, is assigned to the array element. If the element type is C<'@'>, the accessor returns the array element value. If the element type is C<'*@'>, a reference to the array element is returned. As a special case, when the accessor is called with an array reference as the sole argument, this causes an assignment of the whole array element. The object reference is returned. =item Hash (C<'%'> or C<'*%'>) The element is a hash, initialized by default to C<()>. With no argument, the accessor returns a reference to the element's whole hash (whether or not the element was specified as C<'%'> or C<'*%'>). With one or two arguments, the first argument is a key specifying one element of the hash; the second argument, if present, is assigned to the hash element. If the element type is C<'%'>, the accessor returns the hash element value. If the element type is C<'*%'>, a reference to the hash element is returned. As a special case, when the accessor is called with a hash reference as the sole argument, this causes an assignment of the whole hash element. The object reference is returned. =item Class (C<'Class_Name'> or C<'*Class_Name'>) The element's value must be a reference blessed to the named class or to one of its subclasses. The element is not initialized by default. The accessor's argument, if any, is assigned to the element. The accessor will C<croak> if this is not an appropriate object reference. If the element type does not start with a C<'*'>, the accessor returns the element value (after assignment). If the element type starts with a C<'*'>, a reference to the element itself is returned. =back =head2 Initializing with C<new> C<struct> always creates a constructor called C<new>. That constructor may take a list of initializers for the various elements of the new struct. Each initializer is a pair of values: I<element name>C< =E<gt> >I<value>. The initializer value for a scalar element is just a scalar value. The initializer for an array element is an array reference. The initializer for a hash is a hash reference. The initializer for a class element is an object of the corresponding class, or of one of it's subclasses, or a reference to a hash containing named arguments to be passed to the element's constructor. See Example 3 below for an example of initialization. =head1 EXAMPLES =over 4 =item Example 1 Giving a struct element a class type that is also a struct is how structs are nested. Here, C<Timeval> represents a time (seconds and microseconds), and C<Rusage> has two elements, each of which is of type C<Timeval>. use Class::Struct; struct( Rusage => { ru_utime => 'Timeval', # user time used ru_stime => 'Timeval', # system time used }); struct( Timeval => [ tv_secs => '$', # seconds tv_usecs => '$', # microseconds ]); # create an object: my $t = Rusage->new(ru_utime=>Timeval->new(), ru_stime=>Timeval->new()); # $t->ru_utime and $t->ru_stime are objects of type Timeval. # set $t->ru_utime to 100.0 sec and $t->ru_stime to 5.0 sec. $t->ru_utime->tv_secs(100); $t->ru_utime->tv_usecs(0); $t->ru_stime->tv_secs(5); $t->ru_stime->tv_usecs(0); =item Example 2 An accessor function can be redefined in order to provide additional checking of values, etc. Here, we want the C<count> element always to be nonnegative, so we redefine the C<count> accessor accordingly. package MyObj; use Class::Struct; # declare the struct struct ( 'MyObj', { count => '$', stuff => '%' } ); # override the default accessor method for 'count' sub count { my $self = shift; if ( @_ ) { die 'count must be nonnegative' if $_[0] < 0; $self->{'MyObj::count'} = shift; warn "Too many args to count" if @_; } return $self->{'MyObj::count'}; } package main; $x = new MyObj; print "\$x->count(5) = ", $x->count(5), "\n"; # prints '$x->count(5) = 5' print "\$x->count = ", $x->count, "\n"; # prints '$x->count = 5' print "\$x->count(-5) = ", $x->count(-5), "\n"; # dies due to negative argument! =item Example 3 The constructor of a generated class can be passed a list of I<element>=>I<value> pairs, with which to initialize the struct. If no initializer is specified for a particular element, its default initialization is performed instead. Initializers for non-existent elements are silently ignored. Note that the initializer for a nested class may be specified as an object of that class, or as a reference to a hash of initializers that are passed on to the nested struct's constructor. use Class::Struct; struct Breed => { name => '$', cross => '$', }; struct Cat => [ name => '$', kittens => '@', markings => '%', breed => 'Breed', ]; my $cat = Cat->new( name => 'Socks', kittens => ['Monica', 'Kenneth'], markings => { socks=>1, blaze=>"white" }, breed => Breed->new(name=>'short-hair', cross=>1), or: breed => {name=>'short-hair', cross=>1}, ); print "Once a cat called ", $cat->name, "\n"; print "(which was a ", $cat->breed->name, ")\n"; print "had 2 kittens: ", join(' and ', @{$cat->kittens}), "\n"; =back =head1 Author and Modification History Modified by Damian Conway, 2001-09-10, v0.62. Modified implicit construction of nested objects. Now will also take an object ref instead of requiring a hash ref. Also default initializes nested object attributes to undef, rather than calling object constructor without args Original over-helpfulness was fraught with problems: * the class's constructor might not be called 'new' * the class might not have a hash-like-arguments constructor * the class might not have a no-argument constructor * "recursive" data structures didn't work well: package Person; struct { mother => 'Person', father => 'Person'}; Modified by Casey West, 2000-11-08, v0.59. Added the ability for compile time class creation. Modified by Damian Conway, 1999-03-05, v0.58. Added handling of hash-like arg list to class ctor. Changed to two-argument blessing in ctor to support derivation from created classes. Added classname prefixes to keys in hash-based classes (refer to "Perl Cookbook", Recipe 13.12 for rationale). Corrected behaviour of accessors for '*@' and '*%' struct elements. Package now implements documented behaviour when returning a reference to an entire hash or array element. Previously these were returned as a reference to a reference to the element. Renamed to C<Class::Struct> and modified by Jim Miner, 1997-04-02. members() function removed. Documentation corrected and extended. Use of struct() in a subclass prohibited. User definition of accessor allowed. Treatment of '*' in element types corrected. Treatment of classes as element types corrected. Class name to struct() made optional. Diagnostic checks added. Originally C<Class::Template> by Dean Roehrich. # Template.pm --- struct/member template builder # 12mar95 # Dean Roehrich # # changes/bugs fixed since 28nov94 version: # - podified # changes/bugs fixed since 21nov94 version: # - Fixed examples. # changes/bugs fixed since 02sep94 version: # - Moved to Class::Template. # changes/bugs fixed since 20feb94 version: # - Updated to be a more proper module. # - Added "use strict". # - Bug in build_methods, was using @var when @$var needed. # - Now using my() rather than local(). # # Uses perl5 classes to create nested data types. # This is offered as one implementation of Tom Christiansen's # "structs.pl" idea. =cut PK ! X� � 5.34.0/unicore/versionnu �[��� 13.0.0 PK ! $6 v� v� 5.34.0/unicore/uni_keywords.plnu �[��� # -*- buffer-read-only: t -*- # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is built by regen/mk_invlists.pl from Unicode::UCD. # Any changes made here will be lost! %Unicode::UCD::uni_prop_ptrs_indices = ( '_perl_any_folds' => 1187, '_perl_charname_begin' => 1188, '_perl_charname_continue' => 1189, '_perl_folds_to_multi_char' => 1190, '_perl_idcont' => 1191, '_perl_idstart' => 1192, '_perl_is_in_multi_char_fold' => 1193, '_perl_nchar' => 1194, '_perl_patws' => 1195, '_perl_problematic_locale_foldeds_start' => 1196, '_perl_problematic_locale_folds' => 1197, '_perl_quotemeta' => 1198, '_perl_surrogate' => 1199, 'adlm' => 1, 'aegeannumbers' => 2, 'age=10' => 3, 'age=11' => 4, 'age=12' => 5, 'age=12.1' => 6, 'age=13' => 7, 'age=2' => 8, 'age=2.1' => 9, 'age=3' => 10, 'age=3.1' => 11, 'age=3.2' => 12, 'age=4' => 13, 'age=4.1' => 14, 'age=5' => 15, 'age=5.1' => 16, 'age=5.2' => 17, 'age=6' => 18, 'age=6.1' => 19, 'age=6.2' => 20, 'age=6.3' => 21, 'age=7' => 22, 'age=8' => 23, 'age=9' => 24, 'age=na' => 25, 'aghb' => 26, 'ahex' => 970, 'ahom' => 27, 'alchemical' => 28, 'all' => 29, 'alnum' => 1161, 'alpha' => 1162, 'alphabetic' => 1162, 'alphabeticpf' => 30, 'ancientgreekmusic' => 31, 'ancientgreeknumbers' => 32, 'ancientsymbols' => 33, 'any' => 34, 'arab' => 35, 'arabicexta' => 36, 'arabicmath' => 37, 'arabicpfa' => 38, 'arabicpfb' => 39, 'arabicsup' => 40, 'armi' => 41, 'armn' => 42, 'arrows' => 43, 'ascii' => 44, 'asciihexdigit' => 970, 'assigned' => 45, 'avst' => 46, 'bali' => 47, 'bamu' => 48, 'bamumsup' => 49, 'basiclatin' => 44, 'bass' => 50, 'batk' => 51, 'bc=al' => 52, 'bc=an' => 53, 'bc=b' => 54, 'bc=bn' => 55, 'bc=cs' => 56, 'bc=en' => 57, 'bc=es' => 58, 'bc=et' => 59, 'bc=fsi' => 60, 'bc=l' => 61, 'bc=lre' => 62, 'bc=lri' => 63, 'bc=lro' => 64, 'bc=nsm' => 65, 'bc=on' => 66, 'bc=pdf' => 67, 'bc=pdi' => 68, 'bc=r' => 69, 'bc=rle' => 70, 'bc=rli' => 71, 'bc=rlo' => 72, 'bc=s' => 73, 'bc=ws' => 74, 'beng' => 75, 'bhks' => 76, 'bidic' => 77, 'bidim' => 78, 'blank' => 1163, 'blockelements' => 79, 'bopo' => 80, 'bopomofoext' => 81, 'boxdrawing' => 82, 'bpt=c' => 83, 'bpt=n' => 84, 'bpt=o' => 85, 'brah' => 86, 'brai' => 87, 'bugi' => 88, 'buhd' => 89, 'byzantinemusic' => 90, 'c' => 91, 'cakm' => 92, 'cans' => 93, 'cari' => 94, 'cased' => 95, 'casedletter' => 96, 'cc' => 1164, 'ccc=0' => 97, 'ccc=1' => 98, 'ccc=10' => 99, 'ccc=103' => 100, 'ccc=107' => 101, 'ccc=11' => 102, 'ccc=118' => 103, 'ccc=12' => 104, 'ccc=122' => 105, 'ccc=129' => 106, 'ccc=13' => 107, 'ccc=130' => 108, 'ccc=132' => 109, 'ccc=14' => 110, 'ccc=15' => 111, 'ccc=16' => 112, 'ccc=17' => 113, 'ccc=18' => 114, 'ccc=19' => 115, 'ccc=20' => 116, 'ccc=202' => 117, 'ccc=21' => 118, 'ccc=214' => 119, 'ccc=216' => 120, 'ccc=22' => 121, 'ccc=23' => 122, 'ccc=24' => 123, 'ccc=25' => 124, 'ccc=26' => 125, 'ccc=27' => 126, 'ccc=28' => 127, 'ccc=29' => 128, 'ccc=30' => 129, 'ccc=31' => 130, 'ccc=32' => 131, 'ccc=33' => 132, 'ccc=34' => 133, 'ccc=35' => 134, 'ccc=36' => 135, 'ccc=6' => 136, 'ccc=7' => 137, 'ccc=8' => 138, 'ccc=84' => 139, 'ccc=9' => 140, 'ccc=91' => 141, 'ccc=a' => 142, 'ccc=al' => 143, 'ccc=ar' => 144, 'ccc=b' => 145, 'ccc=bl' => 146, 'ccc=br' => 147, 'ccc=da' => 148, 'ccc=db' => 149, 'ccc=is' => 150, 'ccc=l' => 151, 'ccc=r' => 152, 'ce' => 153, 'cf' => 154, 'cham' => 155, 'cher' => 156, 'cherokeesup' => 157, 'chesssymbols' => 158, 'chrs' => 159, 'ci' => 160, 'cjk' => 161, 'cjkcompat' => 162, 'cjkcompatforms' => 163, 'cjkcompatideographs' => 164, 'cjkcompatideographssup' => 165, 'cjkexta' => 166, 'cjkextb' => 167, 'cjkextc' => 168, 'cjkextd' => 169, 'cjkexte' => 170, 'cjkextf' => 171, 'cjkextg' => 172, 'cjkradicalssup' => 173, 'cjkstrokes' => 174, 'cjksymbols' => 175, 'cn' => 176, 'cntrl' => 1164, 'co' => 177, 'compatjamo' => 178, 'compex' => 179, 'control' => 1164, 'controlpictures' => 180, 'copt' => 181, 'copticepactnumbers' => 182, 'countingrod' => 183, 'cprt' => 184, 'cuneiformnumbers' => 185, 'currencysymbols' => 186, 'cwcf' => 187, 'cwcm' => 188, 'cwkcf' => 189, 'cwl' => 190, 'cwt' => 191, 'cwu' => 192, 'cypriotsyllabary' => 193, 'cyrillicexta' => 194, 'cyrillicextb' => 195, 'cyrillicextc' => 196, 'cyrillicsup' => 197, 'cyrl' => 198, 'dash' => 199, 'decimalnumber' => 1165, 'dep' => 200, 'deva' => 201, 'devanagariext' => 202, 'di' => 203, 'dia' => 204, 'diacriticals' => 205, 'diacriticalsext' => 206, 'diacriticalsforsymbols' => 207, 'diacriticalssup' => 208, 'diak' => 209, 'digit' => 1165, 'dingbats' => 210, 'dogr' => 211, 'domino' => 212, 'dsrt' => 213, 'dt=can' => 214, 'dt=com' => 215, 'dt=enc' => 216, 'dt=fin' => 217, 'dt=font' => 218, 'dt=fra' => 219, 'dt=init' => 220, 'dt=iso' => 221, 'dt=med' => 222, 'dt=nar' => 223, 'dt=nb' => 224, 'dt=noncanon' => 225, 'dt=none' => 226, 'dt=sml' => 227, 'dt=sqr' => 228, 'dt=sub' => 229, 'dt=sup' => 230, 'dt=vert' => 231, 'dupl' => 232, 'ea=a' => 234, 'ea=f' => 235, 'ea=h' => 236, 'ea=n' => 237, 'ea=na' => 238, 'ea=w' => 239, 'earlydynasticcuneiform' => 233, 'ebase' => 240, 'ecomp' => 241, 'egyp' => 242, 'egyptianhieroglyphformatcontrols' => 243, 'elba' => 244, 'elym' => 245, 'emod' => 246, 'emoji' => 247, 'emoticons' => 248, 'enclosedalphanum' => 249, 'enclosedalphanumsup' => 250, 'enclosedcjk' => 251, 'enclosedideographicsup' => 252, 'epres' => 253, 'ethi' => 254, 'ethiopicext' => 255, 'ethiopicexta' => 256, 'ethiopicsup' => 257, 'ext' => 258, 'extpict' => 259, 'gcb=cn' => 260, 'gcb=ex' => 261, 'gcb=l' => 262, 'gcb=pp' => 263, 'gcb=sm' => 264, 'gcb=t' => 265, 'gcb=v' => 266, 'gcb=xx' => 267, 'geometricshapes' => 268, 'geometricshapesext' => 269, 'geor' => 270, 'georgianext' => 271, 'georgiansup' => 272, 'glag' => 273, 'glagoliticsup' => 274, 'gong' => 275, 'gonm' => 276, 'goth' => 277, 'gran' => 278, 'graph' => 1166, 'grbase' => 279, 'greekext' => 280, 'grek' => 281, 'grext' => 282, 'gujr' => 283, 'guru' => 284, 'halfandfullforms' => 285, 'halfmarks' => 286, 'han' => 287, 'hang' => 288, 'hano' => 289, 'hatr' => 290, 'hebr' => 291, 'hex' => 1173, 'hexdigit' => 1173, 'highpusurrogates' => 292, 'highsurrogates' => 293, 'hira' => 294, 'hluw' => 295, 'hmng' => 296, 'hmnp' => 297, 'horizspace' => 1163, 'hst=na' => 298, 'hung' => 299, 'hyphen_perl_aux' => 300, 'idc' => 301, 'identifierstatus=allowed' => 302, 'identifierstatus=restricted' => 303, 'identifiertype=defaultignorable' => 304, 'identifiertype=exclusion' => 305, 'identifiertype=inclusion' => 306, 'identifiertype=limiteduse' => 307, 'identifiertype=notcharacter' => 308, 'identifiertype=notnfkc' => 309, 'identifiertype=notxid' => 310, 'identifiertype=obsolete' => 311, 'identifiertype=recommended' => 312, 'identifiertype=technical' => 313, 'identifiertype=uncommonuse' => 314, 'ideo' => 315, 'ideographicsymbols' => 316, 'ids' => 317, 'idsb' => 318, 'idst' => 319, 'in=1.1' => 517, 'in=10' => 512, 'in=11' => 513, 'in=12' => 514, 'in=12.1' => 515, 'in=13' => 516, 'in=2' => 518, 'in=2.1' => 519, 'in=3' => 520, 'in=3.1' => 521, 'in=3.2' => 522, 'in=4' => 523, 'in=4.1' => 524, 'in=5' => 525, 'in=5.1' => 526, 'in=5.2' => 527, 'in=6' => 528, 'in=6.1' => 529, 'in=6.2' => 530, 'in=6.3' => 531, 'in=7' => 532, 'in=8' => 533, 'in=9' => 534, 'inadlam' => 320, 'inahom' => 321, 'inanatolianhieroglyphs' => 322, 'inarabic' => 323, 'inarmenian' => 324, 'inavestan' => 325, 'inbalinese' => 326, 'inbamum' => 327, 'inbassavah' => 328, 'inbatak' => 329, 'inbengali' => 330, 'inbhaiksuki' => 331, 'inbopomofo' => 332, 'inbrahmi' => 333, 'inbuginese' => 334, 'inbuhid' => 335, 'incarian' => 336, 'incaucasianalbanian' => 337, 'inchakma' => 338, 'incham' => 339, 'incherokee' => 340, 'inchorasmian' => 341, 'incoptic' => 342, 'incuneiform' => 343, 'incyrillic' => 344, 'indevanagari' => 345, 'indicnumberforms' => 346, 'indicsiyaqnumbers' => 347, 'indivesakuru' => 348, 'indogra' => 349, 'induployan' => 350, 'inegyptianhieroglyphs' => 351, 'inelbasan' => 352, 'inelymaic' => 353, 'inethiopic' => 354, 'ingeorgian' => 355, 'inglagolitic' => 356, 'ingothic' => 357, 'ingrantha' => 358, 'ingreek' => 359, 'ingujarati' => 360, 'ingunjalagondi' => 361, 'ingurmukhi' => 362, 'inhangul' => 363, 'inhanifirohingya' => 364, 'inhanunoo' => 365, 'inhatran' => 366, 'inhebrew' => 367, 'inhiragana' => 368, 'inidc' => 369, 'inimperialaramaic' => 370, 'ininscriptionalpahlavi' => 371, 'ininscriptionalparthian' => 372, 'injavanese' => 373, 'inkaithi' => 374, 'inkannada' => 375, 'inkatakana' => 376, 'inkharoshthi' => 377, 'inkhitansmallscript' => 378, 'inkhmer' => 379, 'inkhojki' => 380, 'inkhudawadi' => 381, 'inlao' => 382, 'inlepcha' => 383, 'inlimbu' => 384, 'inlineara' => 385, 'inlisu' => 386, 'inlycian' => 387, 'inlydian' => 388, 'inmahajani' => 389, 'inmakasar' => 390, 'inmalayalam' => 391, 'inmandaic' => 392, 'inmanichaean' => 393, 'inmarchen' => 394, 'inmasaramgondi' => 395, 'inmedefaidrin' => 396, 'inmeeteimayek' => 397, 'inmendekikakui' => 398, 'inmeroiticcursive' => 399, 'inmiao' => 400, 'inmodi' => 401, 'inmongolian' => 402, 'inmro' => 403, 'inmultani' => 404, 'inmyanmar' => 405, 'innabataean' => 406, 'innandinagari' => 407, 'innewa' => 408, 'innewtailue' => 409, 'innko' => 410, 'innushu' => 411, 'innyiakengpuachuehmong' => 412, 'inogham' => 413, 'inoldhungarian' => 414, 'inolditalic' => 415, 'inoldpermic' => 416, 'inoldpersian' => 417, 'inoldsogdian' => 418, 'inoldturkic' => 419, 'inoriya' => 420, 'inosage' => 421, 'inosmanya' => 422, 'inpahawhhmong' => 423, 'inpaucinhau' => 424, 'inpc=bottom' => 425, 'inpc=bottomandleft' => 426, 'inpc=bottomandright' => 427, 'inpc=left' => 428, 'inpc=leftandright' => 429, 'inpc=na' => 430, 'inpc=overstruck' => 431, 'inpc=right' => 432, 'inpc=top' => 433, 'inpc=topandbottom' => 434, 'inpc=topandbottomandleft' => 435, 'inpc=topandbottomandright' => 436, 'inpc=topandleft' => 437, 'inpc=topandleftandright' => 438, 'inpc=topandright' => 439, 'inphagspa' => 440, 'inphoenician' => 441, 'inpsalterpahlavi' => 442, 'inpunctuation' => 443, 'inrejang' => 444, 'inrunic' => 445, 'insamaritan' => 446, 'insaurashtra' => 447, 'insc=avagraha' => 448, 'insc=bindu' => 449, 'insc=brahmijoiningnumber' => 450, 'insc=cantillationmark' => 451, 'insc=consonant' => 452, 'insc=consonantdead' => 453, 'insc=consonantfinal' => 454, 'insc=consonantheadletter' => 455, 'insc=consonantinitialpostfixed' => 456, 'insc=consonantkiller' => 457, 'insc=consonantmedial' => 458, 'insc=consonantplaceholder' => 459, 'insc=consonantprecedingrepha' => 460, 'insc=consonantprefixed' => 461, 'insc=consonantsubjoined' => 462, 'insc=consonantsucceedingrepha' => 463, 'insc=consonantwithstacker' => 464, 'insc=geminationmark' => 465, 'insc=invisiblestacker' => 466, 'insc=modifyingletter' => 467, 'insc=nonjoiner' => 468, 'insc=nukta' => 469, 'insc=number' => 470, 'insc=numberjoiner' => 471, 'insc=other' => 472, 'insc=purekiller' => 473, 'insc=registershifter' => 474, 'insc=syllablemodifier' => 475, 'insc=toneletter' => 476, 'insc=tonemark' => 477, 'insc=virama' => 478, 'insc=visarga' => 479, 'insc=vowel' => 480, 'insc=voweldependent' => 481, 'insc=vowelindependent' => 482, 'insiddham' => 483, 'insinhala' => 484, 'insogdian' => 485, 'insorasompeng' => 486, 'insoyombo' => 487, 'insundanese' => 488, 'insylotinagri' => 489, 'insyriac' => 490, 'intagalog' => 491, 'intagbanwa' => 492, 'intaile' => 493, 'intaitham' => 494, 'intaiviet' => 495, 'intakri' => 496, 'intamil' => 497, 'intangut' => 498, 'intelugu' => 499, 'inthaana' => 500, 'inthai' => 501, 'intibetan' => 502, 'intifinagh' => 503, 'intirhuta' => 504, 'inugaritic' => 505, 'invai' => 506, 'invs' => 507, 'inwancho' => 508, 'inwarangciti' => 509, 'inyezidi' => 510, 'inzanabazarsquare' => 511, 'ipaext' => 535, 'ital' => 536, 'jamo' => 537, 'jamoexta' => 538, 'jamoextb' => 539, 'java' => 540, 'jg=africanfeh' => 541, 'jg=africannoon' => 542, 'jg=africanqaf' => 543, 'jg=ain' => 544, 'jg=alaph' => 545, 'jg=alef' => 546, 'jg=beh' => 547, 'jg=beth' => 548, 'jg=burushaskiyehbarree' => 549, 'jg=dal' => 550, 'jg=dalathrish' => 551, 'jg=e' => 552, 'jg=farsiyeh' => 553, 'jg=fe' => 554, 'jg=feh' => 555, 'jg=finalsemkath' => 556, 'jg=gaf' => 557, 'jg=gamal' => 558, 'jg=hah' => 559, 'jg=hamzaonhehgoal' => 560, 'jg=hanifirohingyakinnaya' => 561, 'jg=hanifirohingyapa' => 562, 'jg=he' => 563, 'jg=heh' => 564, 'jg=hehgoal' => 565, 'jg=heth' => 566, 'jg=kaf' => 567, 'jg=kaph' => 568, 'jg=khaph' => 569, 'jg=knottedheh' => 570, 'jg=lam' => 571, 'jg=lamadh' => 572, 'jg=malayalambha' => 573, 'jg=malayalamja' => 574, 'jg=malayalamlla' => 575, 'jg=malayalamllla' => 576, 'jg=malayalamnga' => 577, 'jg=malayalamnna' => 578, 'jg=malayalamnnna' => 579, 'jg=malayalamnya' => 580, 'jg=malayalamra' => 581, 'jg=malayalamssa' => 582, 'jg=malayalamtta' => 583, 'jg=manichaeanaleph' => 584, 'jg=manichaeanayin' => 585, 'jg=manichaeanbeth' => 586, 'jg=manichaeandaleth' => 587, 'jg=manichaeandhamedh' => 588, 'jg=manichaeanfive' => 589, 'jg=manichaeangimel' => 590, 'jg=manichaeanheth' => 591, 'jg=manichaeanhundred' => 592, 'jg=manichaeankaph' => 593, 'jg=manichaeanlamedh' => 594, 'jg=manichaeanmem' => 595, 'jg=manichaeannun' => 596, 'jg=manichaeanone' => 597, 'jg=manichaeanpe' => 598, 'jg=manichaeanqoph' => 599, 'jg=manichaeanresh' => 600, 'jg=manichaeansadhe' => 601, 'jg=manichaeansamekh' => 602, 'jg=manichaeantaw' => 603, 'jg=manichaeanten' => 604, 'jg=manichaeanteth' => 605, 'jg=manichaeanthamedh' => 606, 'jg=manichaeantwenty' => 607, 'jg=manichaeanwaw' => 608, 'jg=manichaeanyodh' => 609, 'jg=manichaeanzayin' => 610, 'jg=meem' => 611, 'jg=mim' => 612, 'jg=nojoininggroup' => 613, 'jg=noon' => 614, 'jg=nun' => 615, 'jg=nya' => 616, 'jg=pe' => 617, 'jg=qaf' => 618, 'jg=qaph' => 619, 'jg=reh' => 620, 'jg=reversedpe' => 621, 'jg=rohingyayeh' => 622, 'jg=sad' => 623, 'jg=sadhe' => 624, 'jg=seen' => 625, 'jg=semkath' => 626, 'jg=shin' => 627, 'jg=straightwaw' => 628, 'jg=swashkaf' => 629, 'jg=syriacwaw' => 630, 'jg=tah' => 631, 'jg=taw' => 632, 'jg=tehmarbuta' => 633, 'jg=teth' => 634, 'jg=waw' => 635, 'jg=yeh' => 636, 'jg=yehbarree' => 637, 'jg=yehwithtail' => 638, 'jg=yudh' => 639, 'jg=yudhhe' => 640, 'jg=zain' => 641, 'jg=zhain' => 642, 'joinc' => 643, 'jt=c' => 644, 'jt=d' => 645, 'jt=l' => 646, 'jt=r' => 647, 'jt=t' => 648, 'jt=u' => 649, 'kali' => 650, 'kana' => 651, 'kanaexta' => 652, 'kanasup' => 653, 'kanbun' => 654, 'kangxi' => 655, 'katakanaext' => 656, 'khar' => 657, 'khmersymbols' => 658, 'khmr' => 659, 'khoj' => 660, 'kits' => 661, 'knda' => 662, 'kthi' => 663, 'l' => 664, 'l_' => 96, 'l_amp_' => 96, 'lana' => 665, 'lao' => 666, 'latin1' => 667, 'latinexta' => 668, 'latinextadditional' => 669, 'latinextb' => 670, 'latinextc' => 671, 'latinextd' => 672, 'latinexte' => 673, 'latn' => 674, 'lb=ai' => 675, 'lb=al' => 676, 'lb=b2' => 677, 'lb=ba' => 678, 'lb=bb' => 679, 'lb=bk' => 680, 'lb=cb' => 681, 'lb=cj' => 682, 'lb=cl' => 683, 'lb=cm' => 684, 'lb=cp' => 685, 'lb=cr' => 686, 'lb=ex' => 687, 'lb=gl' => 688, 'lb=h2' => 689, 'lb=h3' => 690, 'lb=hl' => 691, 'lb=hy' => 692, 'lb=id' => 693, 'lb=in' => 694, 'lb=is' => 695, 'lb=lf' => 696, 'lb=nl' => 697, 'lb=ns' => 698, 'lb=nu' => 699, 'lb=op' => 700, 'lb=po' => 701, 'lb=pr' => 702, 'lb=qu' => 703, 'lb=sa' => 704, 'lb=sg_perl_aux' => 705, 'lb=sp' => 706, 'lb=sy' => 707, 'lb=wj' => 708, 'lb=xx' => 709, 'lb=zw' => 710, 'lb=zwj' => 711, 'lc' => 96, 'lepc' => 712, 'letterlikesymbols' => 713, 'limb' => 714, 'lina' => 715, 'linb' => 716, 'linearbideograms' => 717, 'linearbsyllabary' => 718, 'lisu' => 719, 'lisusup' => 720, 'll' => 724, 'lm' => 721, 'lo' => 722, 'loe' => 723, 'lower' => 1167, 'lowercase' => 1167, 'lowercaseletter' => 724, 'lowsurrogates' => 725, 'lt' => 1124, 'lu' => 1130, 'lyci' => 726, 'lydi' => 727, 'm' => 728, 'mahj' => 729, 'mahjong' => 730, 'maka' => 731, 'mand' => 732, 'mani' => 733, 'marc' => 734, 'math' => 735, 'mathalphanum' => 736, 'mathoperators' => 737, 'mayannumerals' => 738, 'mc' => 739, 'me' => 740, 'medf' => 741, 'meeteimayekext' => 742, 'mend' => 743, 'merc' => 744, 'mero' => 745, 'miao' => 746, 'miscarrows' => 747, 'miscmathsymbolsa' => 748, 'miscmathsymbolsb' => 749, 'miscpictographs' => 750, 'miscsymbols' => 751, 'misctechnical' => 752, 'mlym' => 753, 'mn' => 754, 'modi' => 755, 'modifierletters' => 756, 'modifiertoneletters' => 757, 'mong' => 758, 'mongoliansup' => 759, 'mro' => 760, 'mtei' => 761, 'mult' => 762, 'music' => 763, 'myanmarexta' => 764, 'myanmarextb' => 765, 'mymr' => 766, 'n' => 767, 'nand' => 768, 'narb' => 769, 'nb' => 770, 'nbat' => 771, 'nd' => 1165, 'newa' => 772, 'nfcqc=m' => 773, 'nfcqc=y' => 774, 'nfdqc=y' => 775, 'nfkcqc=n' => 776, 'nfkcqc=y' => 777, 'nfkdqc=n' => 778, 'nko' => 779, 'nl' => 780, 'no' => 781, 'nshu' => 782, 'nt=di' => 783, 'nt=nu' => 784, 'numberforms' => 785, 'nv=0' => 786, 'nv=1' => 787, 'nv=1/10' => 812, 'nv=1/12' => 813, 'nv=1/16' => 814, 'nv=1/160' => 815, 'nv=1/2' => 816, 'nv=1/20' => 817, 'nv=1/3' => 818, 'nv=1/32' => 819, 'nv=1/320' => 820, 'nv=1/4' => 821, 'nv=1/40' => 822, 'nv=1/5' => 823, 'nv=1/6' => 824, 'nv=1/64' => 825, 'nv=1/7' => 826, 'nv=1/8' => 827, 'nv=1/80' => 828, 'nv=1/9' => 829, 'nv=10' => 788, 'nv=100' => 789, 'nv=1000' => 790, 'nv=10000' => 791, 'nv=100000' => 792, 'nv=1000000' => 793, 'nv=10000000' => 794, 'nv=100000000' => 795, 'nv=10000000000' => 796, 'nv=1000000000000' => 797, 'nv=11' => 798, 'nv=11/12' => 799, 'nv=11/2' => 800, 'nv=12' => 801, 'nv=13' => 802, 'nv=13/2' => 803, 'nv=14' => 804, 'nv=15' => 805, 'nv=15/2' => 806, 'nv=16' => 807, 'nv=17' => 808, 'nv=17/2' => 809, 'nv=18' => 810, 'nv=19' => 811, 'nv=2' => 830, 'nv=2/3' => 847, 'nv=2/5' => 848, 'nv=20' => 831, 'nv=200' => 832, 'nv=2000' => 833, 'nv=20000' => 834, 'nv=200000' => 835, 'nv=20000000' => 836, 'nv=21' => 837, 'nv=216000' => 838, 'nv=22' => 839, 'nv=23' => 840, 'nv=24' => 841, 'nv=25' => 842, 'nv=26' => 843, 'nv=27' => 844, 'nv=28' => 845, 'nv=29' => 846, 'nv=3' => 849, 'nv=3/16' => 864, 'nv=3/2' => 865, 'nv=3/20' => 866, 'nv=3/4' => 867, 'nv=3/5' => 868, 'nv=3/64' => 869, 'nv=3/8' => 870, 'nv=3/80' => 871, 'nv=30' => 850, 'nv=300' => 851, 'nv=3000' => 852, 'nv=30000' => 853, 'nv=300000' => 854, 'nv=31' => 855, 'nv=32' => 856, 'nv=33' => 857, 'nv=34' => 858, 'nv=35' => 859, 'nv=36' => 860, 'nv=37' => 861, 'nv=38' => 862, 'nv=39' => 863, 'nv=4' => 872, 'nv=4/5' => 888, 'nv=40' => 873, 'nv=400' => 874, 'nv=4000' => 875, 'nv=40000' => 876, 'nv=400000' => 877, 'nv=41' => 878, 'nv=42' => 879, 'nv=43' => 880, 'nv=432000' => 881, 'nv=44' => 882, 'nv=45' => 883, 'nv=46' => 884, 'nv=47' => 885, 'nv=48' => 886, 'nv=49' => 887, 'nv=5' => 889, 'nv=5/12' => 895, 'nv=5/2' => 896, 'nv=5/6' => 897, 'nv=5/8' => 898, 'nv=50' => 890, 'nv=500' => 891, 'nv=5000' => 892, 'nv=50000' => 893, 'nv=500000' => 894, 'nv=6' => 899, 'nv=60' => 900, 'nv=600' => 901, 'nv=6000' => 902, 'nv=60000' => 903, 'nv=600000' => 904, 'nv=7' => 905, 'nv=7/12' => 911, 'nv=7/2' => 912, 'nv=7/8' => 913, 'nv=70' => 906, 'nv=700' => 907, 'nv=7000' => 908, 'nv=70000' => 909, 'nv=700000' => 910, 'nv=8' => 914, 'nv=80' => 915, 'nv=800' => 916, 'nv=8000' => 917, 'nv=80000' => 918, 'nv=800000' => 919, 'nv=9' => 920, 'nv=9/2' => 926, 'nv=90' => 921, 'nv=900' => 922, 'nv=9000' => 923, 'nv=90000' => 924, 'nv=900000' => 925, 'nv=_minus_1/2' => 928, 'nv=nan' => 927, 'ocr' => 929, 'ogam' => 930, 'olck' => 931, 'orkh' => 932, 'ornamentaldingbats' => 933, 'orya' => 934, 'osge' => 935, 'osma' => 936, 'ottomansiyaqnumbers' => 937, 'p' => 938, 'palm' => 939, 'patsyn' => 940, 'pauc' => 941, 'pc' => 942, 'pcm' => 943, 'pd' => 944, 'pe' => 945, 'perlspace' => 967, 'perlword' => 969, 'perm' => 946, 'pf' => 947, 'phag' => 948, 'phaistos' => 949, 'phli' => 950, 'phlp' => 951, 'phnx' => 952, 'phoneticext' => 953, 'phoneticextsup' => 954, 'pi' => 955, 'playingcards' => 956, 'po' => 957, 'posixalnum' => 958, 'posixalpha' => 959, 'posixblank' => 960, 'posixcntrl' => 961, 'posixdigit' => 962, 'posixgraph' => 963, 'posixlower' => 964, 'posixprint' => 965, 'posixpunct' => 966, 'posixspace' => 967, 'posixupper' => 968, 'posixword' => 969, 'posixxdigit' => 970, 'print' => 1168, 'prti' => 971, 'ps' => 972, 'pua' => 973, 'qaai' => 974, 'qmark' => 975, 'radical' => 976, 'ri' => 977, 'rjng' => 978, 'rohg' => 979, 'rumi' => 980, 'runr' => 981, 's' => 982, 'samr' => 983, 'sarb' => 984, 'saur' => 985, 'sb=at' => 986, 'sb=cl' => 987, 'sb=ex' => 988, 'sb=fo' => 989, 'sb=le' => 990, 'sb=lo' => 991, 'sb=nu' => 992, 'sb=sc' => 993, 'sb=se' => 994, 'sb=sp' => 995, 'sb=st' => 996, 'sb=up' => 997, 'sb=xx' => 998, 'sc' => 999, 'sc=adlm' => 1000, 'sc=arab' => 1001, 'sc=beng' => 1002, 'sc=bopo' => 1003, 'sc=bugi' => 1004, 'sc=buhd' => 1005, 'sc=cakm' => 1006, 'sc=copt' => 1007, 'sc=cprt' => 1008, 'sc=cyrl' => 1009, 'sc=deva' => 1010, 'sc=dogr' => 1011, 'sc=dupl' => 1012, 'sc=geor' => 1013, 'sc=glag' => 1014, 'sc=gong' => 1015, 'sc=gonm' => 1016, 'sc=gran' => 1017, 'sc=grek' => 1018, 'sc=gujr' => 1019, 'sc=guru' => 1020, 'sc=han' => 1021, 'sc=hang' => 1022, 'sc=hano' => 1023, 'sc=hira' => 1024, 'sc=java' => 1025, 'sc=kali' => 1026, 'sc=kana' => 1027, 'sc=khoj' => 1028, 'sc=knda' => 1029, 'sc=kthi' => 1030, 'sc=latn' => 1031, 'sc=limb' => 1032, 'sc=lina' => 1033, 'sc=linb' => 1034, 'sc=mahj' => 1035, 'sc=mand' => 1036, 'sc=mani' => 1037, 'sc=mlym' => 1038, 'sc=modi' => 1039, 'sc=mong' => 1040, 'sc=mult' => 1041, 'sc=mymr' => 1042, 'sc=nand' => 1043, 'sc=orya' => 1044, 'sc=perm' => 1045, 'sc=phag' => 1046, 'sc=phlp' => 1047, 'sc=qaai' => 1048, 'sc=rohg' => 1049, 'sc=shrd' => 1050, 'sc=sind' => 1051, 'sc=sinh' => 1052, 'sc=sogd' => 1053, 'sc=sylo' => 1054, 'sc=syrc' => 1055, 'sc=tagb' => 1056, 'sc=takr' => 1057, 'sc=tale' => 1058, 'sc=taml' => 1059, 'sc=telu' => 1060, 'sc=tglg' => 1061, 'sc=thaa' => 1062, 'sc=tirh' => 1063, 'sc=yezi' => 1064, 'sc=yi' => 1065, 'sc=zyyy' => 1066, 'sd' => 1067, 'sgnw' => 1068, 'shaw' => 1069, 'shorthandformatcontrols' => 1070, 'shrd' => 1071, 'sidd' => 1072, 'sind' => 1073, 'sinh' => 1074, 'sinhalaarchaicnumbers' => 1075, 'sk' => 1076, 'sm' => 1077, 'smallforms' => 1078, 'smallkanaext' => 1079, 'so' => 1080, 'sogd' => 1081, 'sogo' => 1082, 'sora' => 1083, 'soyo' => 1084, 'space' => 1170, 'spaceperl' => 1170, 'specials' => 1085, 'sterm' => 1086, 'sund' => 1087, 'sundanesesup' => 1088, 'suparrowsa' => 1089, 'suparrowsb' => 1090, 'suparrowsc' => 1091, 'superandsub' => 1092, 'supmathoperators' => 1093, 'suppuaa' => 1094, 'suppuab' => 1095, 'suppunctuation' => 1096, 'supsymbolsandpictographs' => 1097, 'suttonsignwriting' => 1098, 'sylo' => 1099, 'symbolsandpictographsexta' => 1100, 'symbolsforlegacycomputing' => 1101, 'syrc' => 1102, 'syriacsup' => 1103, 'tagb' => 1104, 'tags' => 1105, 'taixuanjing' => 1106, 'takr' => 1107, 'tale' => 1108, 'talu' => 1109, 'tamilsup' => 1110, 'taml' => 1111, 'tang' => 1112, 'tangutcomponents' => 1113, 'tangutsup' => 1114, 'tavt' => 1115, 'telu' => 1116, 'term' => 1117, 'tfng' => 1118, 'tglg' => 1119, 'thaa' => 1120, 'thai' => 1121, 'tibt' => 1122, 'tirh' => 1123, 'title' => 1124, 'titlecase' => 1124, 'titlecaseletter' => 1124, 'transportandmap' => 1125, 'ucas' => 1126, 'ucasext' => 1127, 'ugar' => 1128, 'uideo' => 1129, 'upper' => 1171, 'uppercase' => 1171, 'uppercaseletter' => 1130, 'vai' => 1131, 'vedicext' => 1132, 'verticalforms' => 1133, 'vertspace' => 1134, 'vo=r' => 1135, 'vo=tr' => 1136, 'vo=tu' => 1137, 'vo=u' => 1138, 'vs' => 1139, 'vssup' => 1140, 'wara' => 1141, 'wb=dq' => 1142, 'wb=eb' => 1143, 'wb=ex' => 1144, 'wb=extend' => 1145, 'wb=fo' => 1146, 'wb=ka' => 1147, 'wb=le' => 1148, 'wb=mb' => 1149, 'wb=ml' => 1150, 'wb=mn' => 1151, 'wb=nl' => 1152, 'wb=nu' => 1153, 'wb=sq' => 1154, 'wb=wsegspace' => 1155, 'wb=xx' => 1156, 'wcho' => 1157, 'whitespace' => 1170, 'word' => 1172, 'wspace' => 1170, 'xdigit' => 1173, 'xidc' => 1158, 'xids' => 1159, 'xpeo' => 1160, 'xperlspace' => 1170, 'xposixalnum' => 1161, 'xposixalpha' => 1162, 'xposixblank' => 1163, 'xposixcntrl' => 1164, 'xposixdigit' => 1165, 'xposixgraph' => 1166, 'xposixlower' => 1167, 'xposixprint' => 1168, 'xposixpunct' => 1169, 'xposixspace' => 1170, 'xposixupper' => 1171, 'xposixword' => 1172, 'xposixxdigit' => 1173, 'xsux' => 1174, 'yezi' => 1175, 'yi' => 1176, 'yijing' => 1177, 'yiradicals' => 1178, 'yisyllables' => 1179, 'z' => 1180, 'zanb' => 1181, 'zl' => 1182, 'zp' => 1183, 'zs' => 1184, 'zyyy' => 1185, 'zzzz' => 1186, ); 1; # Generated from: # d60b1a3dffe16c4aaaf3f00d21993bb320d05e9828b106182214764d4c69935c lib/Unicode/UCD.pm # ce96627d4fc91b4fd886c409caeb9b76cf7bd345e12f05c6701add7f233f6437 lib/unicore/ArabicShaping.txt # 0e69eef3da722cc104522d8372e86d5b86bb7afcc761b0c991e39e832294946d lib/unicore/BidiBrackets.txt # a00d9d21585106a52113fb7b1d3d0373a5835be72e76862fb559ebddd474d70e lib/unicore/BidiMirroring.txt # 81a82b6a9fcf1a9c12f588d7a1decd73a9afdc4cac95b0eb7e576e7942d6c19f lib/unicore/Blocks.txt # 99d231d7c91688bbe8ca8ccebcc2f46b5b222f844babe4827295bae11e2abe5f lib/unicore/CaseFolding.txt # 38badafd818d8405324fe298c0676be0c95186368c84b5368375fd871a645144 lib/unicore/CompositionExclusions.txt # e779a443d3aa2a3166a15becaa2b737c922480e32c0453d5956093633555078f lib/unicore/DAge.txt # a5d45f59b39deaab3c72ce8c1a2e212a5e086dff11b1f9d5bb0e352642e82248 lib/unicore/DCoreProperties.txt # 3ac44e11c84bdaf6b207d2c2c20eed857ae17052393fc7f71b0fe951186ba906 lib/unicore/DNormalizationProps.txt # 4f822ec7a9ebbb3138ad29bade8b9688d25b39c7a3c0b7431f01e7229e4fcb6e lib/unicore/EastAsianWidth.txt # fc535aa1047a70105ab9a22c2b4c3f363a2ff02fe48ebbc5eeb9873b2752ff0b lib/unicore/EquivalentUnifiedIdeograph.txt # b9c5158ce944d2fec57e0e4ecb716bdabfc3bdde73525f1772fe03f61a30d473 lib/unicore/HangulSyllableType.txt # 36c1b2a626ff1fb23b8b21e6ea8712698f8ce668dded1cb48b8ddf6a6a1b04e9 lib/unicore/IdStatus.txt # 4857c4ffa3898e6128b2d46b0a02e499a663fb91464a69ef3611096f01293acc lib/unicore/IdType.txt # 69197b019fa5f2fb0d8c6ed1ed8acb9f2e8b5b8f45a947953ffa652f3bf54983 lib/unicore/IndicPositionalCategory.txt # 6604e2f0fde7428675364aa0006bc686b79488dcc60ae8cb29800af2be3352e8 lib/unicore/IndicSyllabicCategory.txt # 84ead63924aaa74b988b2eaf254a8733276ed108633ce2ef77a9ee1de7818162 lib/unicore/Jamo.txt # d5abcd8f54c8a2aa912924c485ccf7f968ad98feaa303d8e9a29ad89172f1faf lib/unicore/LineBreak.txt # 985128e8c8b2540233331d9b27d897d2c23bd5bcf1d05da960befce6efc59542 lib/unicore/NameAliases.txt # 27282b8aa01d4d0c44aef436cb74195ae8639ffa187aeee4e6247af76febea76 lib/unicore/NamedSequences.txt # 485b5a3ed25dbf1f94dfa5a9b69d8b4550ffd0c33045ccc55ccfd7c80b2a40cf lib/unicore/PropList.txt # 6b3902e9268cd843fe65cbdea992108c9528343ec0679f800b96f356bb553e5a lib/unicore/PropValueAliases.txt # 2bd5777847e3d6add3c7e5c0d1393ddcab89e5a0ac3ff498cb0c53041f0b86e4 lib/unicore/PropertyAliases.txt # 03a61dc89422e44cc2b73e8e893321007880ab69e2a4d281c0f1bc29c602b9d0 lib/unicore/ScriptExtensions.txt # 9a5ed1ec9b5f0d7147e9371ad792ab39203611af7637cff2aa4a5c663b172cde lib/unicore/Scripts.txt # 6424312f1dc39b22e0ff9c0ffb13dfad424d9b03e6a6dc6bca941f6bf5ef1ffd lib/unicore/SpecialCasing.txt # bdbffbbfc8ad4d3a6d01b5891510458f3d36f7170422af4ea2bed3211a73e8bb lib/unicore/UnicodeData.txt # 160f41816234addb511901d5f21febd69574578dd93de6ef8153e35693325575 lib/unicore/VerticalOrientation.txt # 32dfb37d21db530529a6ec3dc13d96f21f8e7c7faf7ff3db8a9760cd76cec81d lib/unicore/auxiliary/GCBTest.txt # 2bd3c5e2d62701ff81fb3ec318e179a4618cabb1493b1e0dd2b4e7e56c5437c4 lib/unicore/auxiliary/GraphemeBreakProperty.txt # c51fbebfa82a0f36473b44bfd71d5ef6cb6a1f81fb313375dc9a1910d79bb2b6 lib/unicore/auxiliary/LBTest.txt # 80b0107750818d8f370bd120b6fe56b6855b60581f72affe8b60409a469b4b65 lib/unicore/auxiliary/SBTest.txt # 09e3166ebab166ac630a227f77f4e794ebd433271abd5588f5a67e7f199c71ee lib/unicore/auxiliary/SentenceBreakProperty.txt # bf5373ce28a5df06796c93dc159dd15a997bb2950c92704b40ae8190cfc3716d lib/unicore/auxiliary/WBTest.txt # a2b7373cf2fe3fa3b26dbb53405ca849985f771ff47f1c61743978003ff80499 lib/unicore/auxiliary/WordBreakProperty.txt # d2686f400a638c80775d7c662556fb8fa8dd3bbe4aa548d9d31624264c6e1bb1 lib/unicore/emoji/emoji.txt # b827ae5da8c2b08947cc9a120a7b7fd2f1676fb160b508df78075381635b127c lib/unicore/extracted/DBidiClass.txt # 6fdc5b5ef40444a8f0c772e6b67c00498d4216fe0c0fdf76744ce338f2ad3810 lib/unicore/extracted/DBinaryProperties.txt # e14928a5bf6ad5958a80332bd42e96e14420080a95c660e5da29384e496755d0 lib/unicore/extracted/DCombiningClass.txt # 579a03281fbe87b78d5d9a8523de4d255edd7e4ca6eab0e4c7729de97e9b89b1 lib/unicore/extracted/DDecompositionType.txt # ad83c59b257e9d480ffd3001d4ac240c5fed7cb1919453e1c4e8877035256bcd lib/unicore/extracted/DEastAsianWidth.txt # 4502f0969e4e6558c4b4c6ca4c23dad70b863d61dd3d5eed1a62a6c3c99fd570 lib/unicore/extracted/DGeneralCategory.txt # 00bb88b89e2adb646f3177f9444e2d3192386b81a5de9556104b338274b253e1 lib/unicore/extracted/DJoinGroup.txt # ac835b6e11a60c9820d3cf2d1cb0558dd68efb8f53f404a51632e4726690a6d7 lib/unicore/extracted/DJoinType.txt # baba9dfc133e3cb770a89aaf0973b1341fa61c2da6c176baf6428898b3b568d8 lib/unicore/extracted/DLineBreak.txt # 6d4a8c945dd7db83ed617cbb7d937de7f4ecf016ff22970d846e996a7c9a2a5d lib/unicore/extracted/DNumType.txt # 5b7c14380d5cceeaffcfbc18db1ed936391d2af2d51f5a41f1a17b692c77e59b lib/unicore/extracted/DNumValues.txt # 28076ceb3f4e2514ea9db243f4b918b9a7c2807b036237e2276b99b2659d9474 lib/unicore/mktables # 50b85a67451145545a65cea370dab8d3444fbfe07e9c34cef560c5b7da9d3eef lib/unicore/version # 24120d5e0c9685c442c93bc1dbea9b85ef973bf8e9474baf0e55b160c288226b regen/charset_translations.pl # 9f74e34278592ddf58fef8c32236b294e94ea5e12627f911f4563e8040a07292 regen/mk_PL_charclass.pl # 5eb9e6c825496cc9aa705e3cd33bc6d5a9657dcca16d4c4acc4824ff30b34a26 regen/mk_invlists.pl # ex: set ro: PK ! �̓/�* �* 5.34.0/unicore/Name.pmnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. package charnames; # This module contains machine-generated tables and code for the # algorithmically-determinable Unicode character names. The following # routines can be used to translate between name and code point and vice versa { # Closure # Matches legal code point. 4-6 hex numbers, If there are 6, the first # two must be 10; if there are 5, the first must not be a 0. Written this # way to decrease backtracking. The first regex allows the code point to # be at the end of a word, but to work properly, the word shouldn't end # with a valid hex character. The second one won't match a code point at # the end of a word, and doesn't have the run-on issue my $run_on_code_point_re = qr/(?^aax: (?: 10[0-9A-F]{4} | [1-9A-F][0-9A-F]{4} | [0-9A-F]{4} ) \b)/; my $code_point_re = qr/(?^aa:\b(?^aax: (?: 10[0-9A-F]{4} | [1-9A-F][0-9A-F]{4} | [0-9A-F]{4} ) \b))/; # In the following hash, the keys are the bases of names which include # the code point in the name, like CJK UNIFIED IDEOGRAPH-4E01. The value # of each key is another hash which is used to get the low and high ends # for each range of code points that apply to the name. my %names_ending_in_code_point = ( 'CJK COMPATIBILITY IDEOGRAPH' => { 'high' => [ 64109, 64217, 195101, ], 'low' => [ 63744, 64112, 194560, ], }, 'CJK UNIFIED IDEOGRAPH' => { 'high' => [ 19903, 40956, 173789, 177972, 178205, 183969, 191456, 201546, ], 'low' => [ 13312, 19968, 131072, 173824, 177984, 178208, 183984, 196608, ], }, 'KHITAN SMALL SCRIPT CHARACTER' => { 'high' => [ 101589, ], 'low' => [ 101120, ], }, 'NUSHU CHARACTER' => { 'high' => [ 111355, ], 'low' => [ 110960, ], }, 'TANGUT IDEOGRAPH' => { 'high' => [ 100343, ], 'low' => [ 94208, ], }, 'TANGUT IDEOGRAPH SUPPLEMENT' => { 'high' => [ 101640, ], 'low' => [ 101632, ], }, ); # The following hash is a copy of the previous one, except is for loose # matching, so each name has blanks and dashes squeezed out my %loose_names_ending_in_code_point = ( 'CJKCOMPATIBILITYIDEOGRAPH' => { 'high' => [ 64109, 64217, 195101, ], 'low' => [ 63744, 64112, 194560, ], }, 'CJKUNIFIEDIDEOGRAPH' => { 'high' => [ 19903, 40956, 173789, 177972, 178205, 183969, 191456, 201546, ], 'low' => [ 13312, 19968, 131072, 173824, 177984, 178208, 183984, 196608, ], }, 'KHITANSMALLSCRIPTCHARACTER' => { 'high' => [ 101589, ], 'low' => [ 101120, ], }, 'NUSHUCHARACTER' => { 'high' => [ 111355, ], 'low' => [ 110960, ], }, 'TANGUTIDEOGRAPH' => { 'high' => [ 100343, ], 'low' => [ 94208, ], }, 'TANGUTIDEOGRAPHSUPPLEMENT' => { 'high' => [ 101640, ], 'low' => [ 101632, ], }, ); # And the following array gives the inverse mapping from code points to # names. Lowest code points are first @code_points_ending_in_code_point = ( { 'high' => 19903, 'legal' => ' -0123456789ABCDEFGHIJKNOPRU', 'low' => 13312, 'name' => 'CJK UNIFIED IDEOGRAPH', }, { 'high' => 40956, 'legal' => ' -0123456789ABCDEFGHIJKNOPRU', 'low' => 19968, 'name' => 'CJK UNIFIED IDEOGRAPH', }, { 'high' => 64109, 'legal' => ' -0123456789ABCDEFGHIJKLMOPRTY', 'low' => 63744, 'name' => 'CJK COMPATIBILITY IDEOGRAPH', }, { 'high' => 64217, 'legal' => ' -0123456789ABCDEFGHIJKLMOPRTY', 'low' => 64112, 'name' => 'CJK COMPATIBILITY IDEOGRAPH', }, { 'high' => 100343, 'legal' => ' -0123456789ABCDEFGHINOPRTU', 'low' => 94208, 'name' => 'TANGUT IDEOGRAPH', }, { 'high' => 101589, 'legal' => ' -0123456789ABCDEFHIKLMNPRST', 'low' => 101120, 'name' => 'KHITAN SMALL SCRIPT CHARACTER', }, { 'high' => 101640, 'legal' => ' -0123456789ABCDEFGHILMNOPRSTU', 'low' => 101632, 'name' => 'TANGUT IDEOGRAPH SUPPLEMENT', }, { 'high' => 111355, 'legal' => ' -0123456789ABCDEFHNRSTU', 'low' => 110960, 'name' => 'NUSHU CHARACTER', }, { 'high' => 173789, 'legal' => ' -0123456789ABCDEFGHIJKNOPRU', 'low' => 131072, 'name' => 'CJK UNIFIED IDEOGRAPH', }, { 'high' => 177972, 'legal' => ' -0123456789ABCDEFGHIJKNOPRU', 'low' => 173824, 'name' => 'CJK UNIFIED IDEOGRAPH', }, { 'high' => 178205, 'legal' => ' -0123456789ABCDEFGHIJKNOPRU', 'low' => 177984, 'name' => 'CJK UNIFIED IDEOGRAPH', }, { 'high' => 183969, 'legal' => ' -0123456789ABCDEFGHIJKNOPRU', 'low' => 178208, 'name' => 'CJK UNIFIED IDEOGRAPH', }, { 'high' => 191456, 'legal' => ' -0123456789ABCDEFGHIJKNOPRU', 'low' => 183984, 'name' => 'CJK UNIFIED IDEOGRAPH', }, { 'high' => 195101, 'legal' => ' -0123456789ABCDEFGHIJKLMOPRTY', 'low' => 194560, 'name' => 'CJK COMPATIBILITY IDEOGRAPH', }, { 'high' => 201546, 'legal' => ' -0123456789ABCDEFGHIJKNOPRU', 'low' => 196608, 'name' => 'CJK UNIFIED IDEOGRAPH', }, , ); # Is exportable, make read-only Internals::SvREADONLY(@code_points_ending_in_code_point, 1); # Convert from code point to Jamo short name for use in composing Hangul # syllable names my %Jamo = ( 4352 => 'G', 4353 => 'GG', 4354 => 'N', 4355 => 'D', 4356 => 'DD', 4357 => 'R', 4358 => 'M', 4359 => 'B', 4360 => 'BB', 4361 => 'S', 4362 => 'SS', 4363 => '', 4364 => 'J', 4365 => 'JJ', 4366 => 'C', 4367 => 'K', 4368 => 'T', 4369 => 'P', 4370 => 'H', 4449 => 'A', 4450 => 'AE', 4451 => 'YA', 4452 => 'YAE', 4453 => 'EO', 4454 => 'E', 4455 => 'YEO', 4456 => 'YE', 4457 => 'O', 4458 => 'WA', 4459 => 'WAE', 4460 => 'OE', 4461 => 'YO', 4462 => 'U', 4463 => 'WEO', 4464 => 'WE', 4465 => 'WI', 4466 => 'YU', 4467 => 'EU', 4468 => 'YI', 4469 => 'I', 4520 => 'G', 4521 => 'GG', 4522 => 'GS', 4523 => 'N', 4524 => 'NJ', 4525 => 'NH', 4526 => 'D', 4527 => 'L', 4528 => 'LG', 4529 => 'LM', 4530 => 'LB', 4531 => 'LS', 4532 => 'LT', 4533 => 'LP', 4534 => 'LH', 4535 => 'M', 4536 => 'B', 4537 => 'BS', 4538 => 'S', 4539 => 'SS', 4540 => 'NG', 4541 => 'J', 4542 => 'C', 4543 => 'K', 4544 => 'T', 4545 => 'P', 4546 => 'H', ); # Leading consonant (can be null) my %Jamo_L = ( '' => 11, 'B' => 7, 'BB' => 8, 'C' => 14, 'D' => 3, 'DD' => 4, 'G' => 0, 'GG' => 1, 'H' => 18, 'J' => 12, 'JJ' => 13, 'K' => 15, 'M' => 6, 'N' => 2, 'P' => 17, 'R' => 5, 'S' => 9, 'SS' => 10, 'T' => 16, ); # Vowel my %Jamo_V = ( 'A' => 0, 'AE' => 1, 'E' => 5, 'EO' => 4, 'EU' => 18, 'I' => 20, 'O' => 8, 'OE' => 11, 'U' => 13, 'WA' => 9, 'WAE' => 10, 'WE' => 15, 'WEO' => 14, 'WI' => 16, 'YA' => 2, 'YAE' => 3, 'YE' => 7, 'YEO' => 6, 'YI' => 19, 'YO' => 12, 'YU' => 17, ); # Optional trailing consonant my %Jamo_T = ( 'B' => 17, 'BS' => 18, 'C' => 23, 'D' => 7, 'G' => 1, 'GG' => 2, 'GS' => 3, 'H' => 27, 'J' => 22, 'K' => 24, 'L' => 8, 'LB' => 11, 'LG' => 9, 'LH' => 15, 'LM' => 10, 'LP' => 14, 'LS' => 12, 'LT' => 13, 'M' => 16, 'N' => 4, 'NG' => 21, 'NH' => 6, 'NJ' => 5, 'P' => 26, 'S' => 19, 'SS' => 20, 'T' => 25, ); # Computed re that splits up a Hangul name into LVT or LV syllables my $syllable_re = qr/(|B|BB|C|D|DD|G|GG|H|J|JJ|K|M|N|P|R|S|SS|T)(A|AE|E|EO|EU|I|O|OE|U|WA|WAE|WE|WEO|WI|YA|YAE|YE|YEO|YI|YO|YU)(B|BS|C|D|G|GG|GS|H|J|K|L|LB|LG|LH|LM|LP|LS|LT|M|N|NG|NH|NJ|P|S|SS|T)?/; my $HANGUL_SYLLABLE = "HANGUL SYLLABLE "; my $loose_HANGUL_SYLLABLE = "HANGULSYLLABLE"; # These constants names and values were taken from the Unicode standard, # version 5.1, section 3.12. They are used in conjunction with Hangul # syllables my $SBase = 0xAC00; my $LBase = 0x1100; my $VBase = 0x1161; my $TBase = 0x11A7; my $SCount = 11172; my $LCount = 19; my $VCount = 21; my $TCount = 28; my $NCount = $VCount * $TCount; sub name_to_code_point_special { my ($name, $loose) = @_; # Returns undef if not one of the specially handled names; otherwise # returns the code point equivalent to the input name # $loose is non-zero if to use loose matching, 'name' in that case # must be input as upper case with all blanks and dashes squeezed out. if ((! $loose && $name =~ s/$HANGUL_SYLLABLE//) || ($loose && $name =~ s/$loose_HANGUL_SYLLABLE//)) { return if $name !~ qr/^$syllable_re$/; my $L = $Jamo_L{$1}; my $V = $Jamo_V{$2}; my $T = (defined $3) ? $Jamo_T{$3} : 0; return ($L * $VCount + $V) * $TCount + $T + $SBase; } # Name must end in 'code_point' for this to handle. return if (($loose && $name !~ /^ (.*?) ($run_on_code_point_re) $/x) || (! $loose && $name !~ /^ (.*) ($code_point_re) $/x)); my $base = $1; my $code_point = CORE::hex $2; my $names_ref; if ($loose) { $names_ref = \%loose_names_ending_in_code_point; } else { return if $base !~ s/-$//; $names_ref = \%names_ending_in_code_point; } # Name must be one of the ones which has the code point in it. return if ! $names_ref->{$base}; # Look through the list of ranges that apply to this name to see if # the code point is in one of them. for (my $i = 0; $i < scalar @{$names_ref->{$base}{'low'}}; $i++) { return if $names_ref->{$base}{'low'}->[$i] > $code_point; next if $names_ref->{$base}{'high'}->[$i] < $code_point; # Here, the code point is in the range. return $code_point; } # Here, looked like the name had a code point number in it, but # did not match one of the valid ones. return; } sub code_point_to_name_special { my $code_point = shift; # Returns the name of a code point if algorithmically determinable; # undef if not # If in the Hangul range, calculate the name based on Unicode's # algorithm if ($code_point >= $SBase && $code_point <= $SBase + $SCount -1) { use integer; my $SIndex = $code_point - $SBase; my $L = $LBase + $SIndex / $NCount; my $V = $VBase + ($SIndex % $NCount) / $TCount; my $T = $TBase + $SIndex % $TCount; $name = "$HANGUL_SYLLABLE$Jamo{$L}$Jamo{$V}"; $name .= $Jamo{$T} if $T != $TBase; return $name; } # Look through list of these code points for one in range. foreach my $hash (@code_points_ending_in_code_point) { return if $code_point < $hash->{'low'}; if ($code_point <= $hash->{'high'}) { return sprintf("%s-%04X", $hash->{'name'}, $code_point); } } return; # None found } } # End closure 1; PK ! �67 �" �" 5.34.0/unicore/lib/XIDC/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1474 48 58 65 91 95 96 97 123 170 171 181 182 183 184 186 187 192 215 216 247 248 706 710 722 736 741 748 749 750 751 768 885 886 888 891 894 895 896 902 907 908 909 910 930 931 1014 1015 1154 1155 1160 1162 1328 1329 1367 1369 1370 1376 1417 1425 1470 1471 1472 1473 1475 1476 1478 1479 1480 1488 1515 1519 1523 1552 1563 1568 1642 1646 1748 1749 1757 1759 1769 1770 1789 1791 1792 1808 1867 1869 1970 1984 2038 2042 2043 2045 2046 2048 2094 2112 2140 2144 2155 2208 2229 2230 2248 2259 2274 2275 2404 2406 2416 2417 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2546 2556 2557 2558 2559 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2678 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2800 2809 2816 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2901 2904 2908 2910 2911 2916 2918 2928 2929 2930 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3056 3072 3085 3086 3089 3090 3113 3114 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3163 3168 3172 3174 3184 3200 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3328 3341 3342 3345 3346 3397 3398 3401 3402 3407 3412 3416 3423 3428 3430 3440 3450 3456 3457 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3558 3568 3570 3572 3585 3643 3648 3663 3664 3674 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3808 3840 3841 3864 3866 3872 3882 3893 3894 3895 3896 3897 3898 3902 3912 3913 3949 3953 3973 3974 3992 3993 4029 4038 4039 4096 4170 4176 4254 4256 4294 4295 4296 4301 4302 4304 4347 4348 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4960 4969 4978 4992 5008 5024 5110 5112 5118 5121 5741 5743 5760 5761 5787 5792 5867 5870 5881 5888 5901 5902 5909 5920 5941 5952 5972 5984 5997 5998 6001 6002 6004 6016 6100 6103 6104 6108 6110 6112 6122 6155 6158 6160 6170 6176 6265 6272 6315 6320 6390 6400 6431 6432 6444 6448 6460 6470 6510 6512 6517 6528 6572 6576 6602 6608 6619 6656 6684 6688 6751 6752 6781 6783 6794 6800 6810 6823 6824 6832 6846 6847 6849 6912 6988 6992 7002 7019 7028 7040 7156 7168 7224 7232 7242 7245 7294 7296 7305 7312 7355 7357 7360 7376 7379 7380 7419 7424 7674 7675 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8125 8126 8127 8130 8133 8134 8141 8144 8148 8150 8156 8160 8173 8178 8181 8182 8189 8255 8257 8276 8277 8305 8306 8319 8320 8336 8349 8400 8413 8417 8418 8421 8433 8450 8451 8455 8456 8458 8468 8469 8470 8472 8478 8484 8485 8486 8487 8488 8489 8490 8506 8508 8512 8517 8522 8526 8527 8544 8585 11264 11311 11312 11359 11360 11493 11499 11508 11520 11558 11559 11560 11565 11566 11568 11624 11631 11632 11647 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11776 12293 12296 12321 12336 12337 12342 12344 12349 12353 12439 12441 12443 12445 12448 12449 12539 12540 12544 12549 12592 12593 12687 12704 12736 12784 12800 13312 19904 19968 40957 40960 42125 42192 42238 42240 42509 42512 42540 42560 42608 42612 42622 42623 42738 42775 42784 42786 42889 42891 42944 42946 42955 42997 43048 43052 43053 43072 43124 43136 43206 43216 43226 43232 43256 43259 43260 43261 43310 43312 43348 43360 43389 43392 43457 43471 43482 43488 43519 43520 43575 43584 43598 43600 43610 43616 43639 43642 43715 43739 43742 43744 43760 43762 43767 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43867 43868 43882 43888 44011 44012 44014 44016 44026 44032 55204 55216 55239 55243 55292 63744 64110 64112 64218 64256 64263 64275 64280 64285 64297 64298 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64606 64612 64830 64848 64912 64914 64968 65008 65018 65024 65040 65056 65072 65075 65077 65101 65104 65137 65138 65139 65140 65143 65144 65145 65146 65147 65148 65149 65150 65151 65277 65296 65306 65313 65339 65343 65344 65345 65371 65382 65471 65474 65480 65482 65488 65490 65496 65498 65501 65536 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65856 65909 66045 66046 66176 66205 66208 66257 66272 66273 66304 66336 66349 66379 66384 66427 66432 66462 66464 66500 66504 66512 66513 66518 66560 66718 66720 66730 66736 66772 66776 66812 66816 66856 66864 66916 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67680 67703 67712 67743 67808 67827 67828 67830 67840 67862 67872 67898 67968 68024 68030 68032 68096 68100 68101 68103 68108 68116 68117 68120 68121 68150 68152 68155 68159 68160 68192 68221 68224 68253 68288 68296 68297 68327 68352 68406 68416 68438 68448 68467 68480 68498 68608 68681 68736 68787 68800 68851 68864 68904 68912 68922 69248 69290 69291 69293 69296 69298 69376 69405 69415 69416 69424 69457 69552 69573 69600 69623 69632 69703 69734 69744 69759 69819 69840 69865 69872 69882 69888 69941 69942 69952 69956 69960 69968 70004 70006 70007 70016 70085 70089 70093 70094 70107 70108 70109 70144 70162 70163 70200 70206 70207 70272 70279 70280 70281 70282 70286 70287 70302 70303 70313 70320 70379 70384 70394 70400 70404 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70459 70469 70471 70473 70475 70478 70480 70481 70487 70488 70493 70500 70502 70509 70512 70517 70656 70731 70736 70746 70750 70754 70784 70854 70855 70856 70864 70874 71040 71094 71096 71105 71128 71134 71168 71233 71236 71237 71248 71258 71296 71353 71360 71370 71424 71451 71453 71468 71472 71482 71680 71739 71840 71914 71935 71943 71945 71946 71948 71956 71957 71959 71960 71990 71991 71993 71995 72004 72016 72026 72096 72104 72106 72152 72154 72162 72163 72165 72192 72255 72263 72264 72272 72346 72349 72350 72384 72441 72704 72713 72714 72759 72760 72769 72784 72794 72818 72848 72850 72872 72873 72887 72960 72967 72968 72970 72971 73015 73018 73019 73020 73022 73023 73032 73040 73050 73056 73062 73063 73065 73066 73103 73104 73106 73107 73113 73120 73130 73440 73463 73648 73649 73728 74650 74752 74863 74880 75076 77824 78895 82944 83527 92160 92729 92736 92767 92768 92778 92880 92910 92912 92917 92928 92983 92992 92996 93008 93018 93027 93048 93053 93072 93760 93824 93952 94027 94031 94088 94095 94112 94176 94178 94179 94181 94192 94194 94208 100344 100352 101590 101632 101641 110592 110879 110928 110931 110948 110952 110960 111356 113664 113771 113776 113789 113792 113801 113808 113818 113821 113823 119141 119146 119149 119155 119163 119171 119173 119180 119210 119214 119362 119365 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120513 120514 120539 120540 120571 120572 120597 120598 120629 120630 120655 120656 120687 120688 120713 120714 120745 120746 120771 120772 120780 120782 120832 121344 121399 121403 121453 121461 121462 121476 121477 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123136 123181 123184 123198 123200 123210 123214 123215 123584 123642 124928 125125 125136 125143 125184 125260 125264 125274 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 130032 130042 131072 173790 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196608 201547 917760 918000 END PK ! Wk�� 5.34.0/unicore/lib/Cased/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V282 65 91 97 123 170 171 181 182 186 187 192 215 216 247 248 443 444 448 452 660 661 697 704 706 736 741 837 838 880 884 886 888 890 894 895 896 902 903 904 907 908 909 910 930 931 1014 1015 1154 1162 1328 1329 1367 1376 1417 4256 4294 4295 4296 4301 4302 4304 4347 4349 4352 5024 5110 5112 5118 7296 7305 7312 7355 7357 7360 7424 7616 7680 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8125 8126 8127 8130 8133 8134 8141 8144 8148 8150 8156 8160 8173 8178 8181 8182 8189 8305 8306 8319 8320 8336 8349 8450 8451 8455 8456 8458 8468 8469 8470 8473 8478 8484 8485 8486 8487 8488 8489 8490 8494 8495 8501 8505 8506 8508 8512 8517 8522 8526 8527 8544 8576 8579 8581 9398 9450 11264 11311 11312 11359 11360 11493 11499 11503 11506 11508 11520 11558 11559 11560 11565 11566 42560 42606 42624 42654 42786 42888 42891 42895 42896 42944 42946 42955 42997 42999 43000 43003 43824 43867 43868 43881 43888 43968 64256 64263 64275 64280 65313 65339 65345 65371 66560 66640 66736 66772 66776 66812 68736 68787 68800 68851 71840 71904 93760 93824 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120513 120514 120539 120540 120571 120572 120597 120598 120629 120630 120655 120656 120687 120688 120713 120714 120745 120746 120771 120772 120780 125184 125252 127280 127306 127312 127338 127344 127370 END PK ! ��qQ! ! 5.34.0/unicore/lib/Bpt/N.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V59 0 40 42 91 92 93 94 123 124 125 126 3898 3902 5787 5789 8261 8263 8317 8319 8333 8335 8968 8972 9001 9003 10088 10102 10181 10183 10214 10224 10627 10649 10712 10716 10748 10750 11810 11818 12296 12306 12308 12316 65113 65119 65288 65290 65339 65340 65341 65342 65371 65372 65373 65374 65375 65377 65378 65380 END PK ! ���� � 5.34.0/unicore/lib/Bpt/O.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V120 40 41 91 92 123 124 3898 3899 3900 3901 5787 5788 8261 8262 8317 8318 8333 8334 8968 8969 8970 8971 9001 9002 10088 10089 10090 10091 10092 10093 10094 10095 10096 10097 10098 10099 10100 10101 10181 10182 10214 10215 10216 10217 10218 10219 10220 10221 10222 10223 10627 10628 10629 10630 10631 10632 10633 10634 10635 10636 10637 10638 10639 10640 10641 10642 10643 10644 10645 10646 10647 10648 10712 10713 10714 10715 10748 10749 11810 11811 11812 11813 11814 11815 11816 11817 12296 12297 12298 12299 12300 12301 12302 12303 12304 12305 12308 12309 12310 12311 12312 12313 12314 12315 65113 65114 65115 65116 65117 65118 65288 65289 65339 65340 65371 65372 65375 65376 65378 65379 END PK ! �+�>� � 5.34.0/unicore/lib/Bpt/C.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V120 41 42 93 94 125 126 3899 3900 3901 3902 5788 5789 8262 8263 8318 8319 8334 8335 8969 8970 8971 8972 9002 9003 10089 10090 10091 10092 10093 10094 10095 10096 10097 10098 10099 10100 10101 10102 10182 10183 10215 10216 10217 10218 10219 10220 10221 10222 10223 10224 10628 10629 10630 10631 10632 10633 10634 10635 10636 10637 10638 10639 10640 10641 10642 10643 10644 10645 10646 10647 10648 10649 10713 10714 10715 10716 10749 10750 11811 11812 11813 11814 11815 11816 11817 11818 12297 12298 12299 12300 12301 12302 12303 12304 12305 12306 12309 12310 12311 12312 12313 12314 12315 12316 65114 65115 65116 65117 65118 65119 65289 65290 65341 65342 65373 65374 65376 65377 65379 65380 END PK ! ���S S 5.34.0/unicore/lib/Ext/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V64 183 184 720 722 1600 1601 2042 2043 2901 2902 3654 3655 3782 3783 6154 6155 6211 6212 6823 6824 7222 7223 7291 7292 12293 12294 12337 12342 12445 12447 12540 12543 40981 40982 42508 42509 43471 43472 43494 43495 43632 43633 43741 43742 43763 43765 65392 65393 70493 70494 71110 71113 72344 72345 92994 92996 94176 94178 94179 94180 123196 123198 125252 125255 END PK ! j��� � 5.34.0/unicore/lib/GrExt/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V688 768 880 1155 1162 1425 1470 1471 1472 1473 1475 1476 1478 1479 1480 1552 1563 1611 1632 1648 1649 1750 1757 1759 1765 1767 1769 1770 1774 1809 1810 1840 1867 1958 1969 2027 2036 2045 2046 2070 2074 2075 2084 2085 2088 2089 2094 2137 2140 2259 2274 2275 2307 2362 2363 2364 2365 2369 2377 2381 2382 2385 2392 2402 2404 2433 2434 2492 2493 2494 2495 2497 2501 2509 2510 2519 2520 2530 2532 2558 2559 2561 2563 2620 2621 2625 2627 2631 2633 2635 2638 2641 2642 2672 2674 2677 2678 2689 2691 2748 2749 2753 2758 2759 2761 2765 2766 2786 2788 2810 2816 2817 2818 2876 2877 2878 2880 2881 2885 2893 2894 2901 2904 2914 2916 2946 2947 3006 3007 3008 3009 3021 3022 3031 3032 3072 3073 3076 3077 3134 3137 3142 3145 3146 3150 3157 3159 3170 3172 3201 3202 3260 3261 3263 3264 3266 3267 3270 3271 3276 3278 3285 3287 3298 3300 3328 3330 3387 3389 3390 3391 3393 3397 3405 3406 3415 3416 3426 3428 3457 3458 3530 3531 3535 3536 3538 3541 3542 3543 3551 3552 3633 3634 3636 3643 3655 3663 3761 3762 3764 3773 3784 3790 3864 3866 3893 3894 3895 3896 3897 3898 3953 3967 3968 3973 3974 3976 3981 3992 3993 4029 4038 4039 4141 4145 4146 4152 4153 4155 4157 4159 4184 4186 4190 4193 4209 4213 4226 4227 4229 4231 4237 4238 4253 4254 4957 4960 5906 5909 5938 5941 5970 5972 6002 6004 6068 6070 6071 6078 6086 6087 6089 6100 6109 6110 6155 6158 6277 6279 6313 6314 6432 6435 6439 6441 6450 6451 6457 6460 6679 6681 6683 6684 6742 6743 6744 6751 6752 6753 6754 6755 6757 6765 6771 6781 6783 6784 6832 6849 6912 6916 6964 6971 6972 6973 6978 6979 7019 7028 7040 7042 7074 7078 7080 7082 7083 7086 7142 7143 7144 7146 7149 7150 7151 7154 7212 7220 7222 7224 7376 7379 7380 7393 7394 7401 7405 7406 7412 7413 7416 7418 7616 7674 7675 7680 8204 8205 8400 8433 11503 11506 11647 11648 11744 11776 12330 12336 12441 12443 42607 42611 42612 42622 42654 42656 42736 42738 43010 43011 43014 43015 43019 43020 43045 43047 43052 43053 43204 43206 43232 43250 43263 43264 43302 43310 43335 43346 43392 43395 43443 43444 43446 43450 43452 43454 43493 43494 43561 43567 43569 43571 43573 43575 43587 43588 43596 43597 43644 43645 43696 43697 43698 43701 43703 43705 43710 43712 43713 43714 43756 43758 43766 43767 44005 44006 44008 44009 44013 44014 64286 64287 65024 65040 65056 65072 65438 65440 66045 66046 66272 66273 66422 66427 68097 68100 68101 68103 68108 68112 68152 68155 68159 68160 68325 68327 68900 68904 69291 69293 69446 69457 69633 69634 69688 69703 69759 69762 69811 69815 69817 69819 69888 69891 69927 69932 69933 69941 70003 70004 70016 70018 70070 70079 70089 70093 70095 70096 70191 70194 70196 70197 70198 70200 70206 70207 70367 70368 70371 70379 70400 70402 70459 70461 70462 70463 70464 70465 70487 70488 70502 70509 70512 70517 70712 70720 70722 70725 70726 70727 70750 70751 70832 70833 70835 70841 70842 70843 70845 70846 70847 70849 70850 70852 71087 71088 71090 71094 71100 71102 71103 71105 71132 71134 71219 71227 71229 71230 71231 71233 71339 71340 71341 71342 71344 71350 71351 71352 71453 71456 71458 71462 71463 71468 71727 71736 71737 71739 71984 71985 71995 71997 71998 71999 72003 72004 72148 72152 72154 72156 72160 72161 72193 72203 72243 72249 72251 72255 72263 72264 72273 72279 72281 72284 72330 72343 72344 72346 72752 72759 72760 72766 72767 72768 72850 72872 72874 72881 72882 72884 72885 72887 73009 73015 73018 73019 73020 73022 73023 73030 73031 73032 73104 73106 73109 73110 73111 73112 73459 73461 92912 92917 92976 92983 94031 94032 94095 94099 94180 94181 113821 113823 119141 119142 119143 119146 119150 119155 119163 119171 119173 119180 119210 119214 119362 119365 121344 121399 121403 121453 121461 121462 121476 121477 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123184 123191 123628 123632 125136 125143 125252 125259 917536 917632 917760 918000 END PK ! �d� ! 5.34.0/unicore/lib/Jg/HanifiRo.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 68889 68890 68894 68895 68896 68897 68899 68900 END PK ! �+'3 3 ! 5.34.0/unicore/lib/Jg/NoJoinin.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V61 0 1568 1569 1570 1600 1601 1611 1646 1648 1649 1652 1653 1748 1749 1750 1774 1776 1786 1789 1791 1792 1808 1809 1810 1840 1869 1920 2144 2155 2208 2221 2222 2229 2230 2248 68288 68294 68295 68296 68297 68299 68301 68322 68324 68325 68331 68336 68866 68867 68873 68874 68889 68890 68892 68893 68894 68895 68896 68897 68899 68900 END PK ! �b6� 5.34.0/unicore/lib/Jg/Sad.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 1589 1591 1693 1695 1787 1788 2223 2224 END PK ! ��B 5.34.0/unicore/lib/Jg/Kaf.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 1603 1604 1708 1711 1919 1920 2228 2229 END PK ! ߐ�; ; 5.34.0/unicore/lib/Jg/Yeh.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V16 1568 1569 1574 1575 1609 1611 1656 1657 1744 1746 1911 1912 2216 2218 2234 2235 END PK ! �R�Q' ' 5.34.0/unicore/lib/Jg/Alef.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V12 1570 1572 1573 1574 1575 1576 1649 1652 1653 1654 1907 1909 END PK ! {�gu 5.34.0/unicore/lib/Jg/Feh.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 1601 1602 1697 1703 1888 1890 2212 2213 END PK ! ��e�O O 5.34.0/unicore/lib/Jg/Hah.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V20 1580 1583 1665 1672 1727 1728 1879 1881 1902 1904 1906 1907 1916 1917 2210 2211 2241 2242 2245 2247 END PK ! ��9�' ' 5.34.0/unicore/lib/Jg/Ain.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V12 1593 1595 1696 1697 1788 1789 1885 1888 2227 2228 2243 2244 END PK ! �F\� 5.34.0/unicore/lib/Jg/Lam.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V10 1604 1605 1717 1721 1898 1899 2214 2215 2247 2248 END PK ! �(�1 1 5.34.0/unicore/lib/Jg/Gaf.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 1595 1597 1705 1706 1707 1708 1711 1717 1890 1893 2224 2225 2242 2243 END PK ! ˨�Z; ; 5.34.0/unicore/lib/Jg/Beh.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V16 1576 1577 1578 1580 1646 1647 1657 1665 1872 1879 2208 2210 2230 2233 2238 2241 END PK ! �䫬1 1 5.34.0/unicore/lib/Jg/Waw.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 1572 1573 1608 1609 1654 1656 1732 1740 1743 1744 1912 1914 2219 2220 END PK ! �T�J1 1 5.34.0/unicore/lib/Jg/Seen.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 1587 1589 1690 1693 1786 1787 1884 1885 1901 1902 1904 1905 1917 1919 END PK ! 3��� 5.34.0/unicore/lib/Jg/Dal.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V10 1583 1585 1672 1681 1774 1775 1881 1883 2222 2223 END PK ! ��Wd ! 5.34.0/unicore/lib/Jg/FarsiYeh.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 1597 1600 1740 1741 1742 1743 1909 1911 END PK ! �溾E E 5.34.0/unicore/lib/Jg/Reh.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V18 1585 1587 1681 1690 1775 1776 1883 1884 1899 1901 1905 1906 2218 2219 2226 2227 2233 2234 END PK ! B�$ 5.34.0/unicore/lib/Jg/Qaf.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 1602 1603 1647 1648 1703 1705 2213 2214 END PK ! �q� 5.34.0/unicore/lib/CWT/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1236 97 123 181 182 223 247 248 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 378 379 380 381 382 385 387 388 389 390 392 393 396 397 402 403 405 406 409 411 414 415 417 418 419 420 421 422 424 425 429 430 432 433 436 437 438 439 441 442 445 446 447 448 452 453 454 456 457 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 498 499 500 501 502 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 572 573 575 577 578 579 583 584 585 586 587 588 589 590 591 597 598 600 601 602 603 605 608 610 611 612 613 615 616 621 623 624 625 627 629 630 637 638 640 641 642 644 647 653 658 659 669 671 837 838 881 882 883 884 887 888 891 894 912 913 940 975 976 978 981 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1012 1013 1014 1016 1017 1019 1020 1072 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 1328 1377 1416 5112 5118 7296 7305 7545 7546 7549 7550 7566 7567 7681 7682 7683 7684 7685 7686 7687 7688 7689 7690 7691 7692 7693 7694 7695 7696 7697 7698 7699 7700 7701 7702 7703 7704 7705 7706 7707 7708 7709 7710 7711 7712 7713 7714 7715 7716 7717 7718 7719 7720 7721 7722 7723 7724 7725 7726 7727 7728 7729 7730 7731 7732 7733 7734 7735 7736 7737 7738 7739 7740 7741 7742 7743 7744 7745 7746 7747 7748 7749 7750 7751 7752 7753 7754 7755 7756 7757 7758 7759 7760 7761 7762 7763 7764 7765 7766 7767 7768 7769 7770 7771 7772 7773 7774 7775 7776 7777 7778 7779 7780 7781 7782 7783 7784 7785 7786 7787 7788 7789 7790 7791 7792 7793 7794 7795 7796 7797 7798 7799 7800 7801 7802 7803 7804 7805 7806 7807 7808 7809 7810 7811 7812 7813 7814 7815 7816 7817 7818 7819 7820 7821 7822 7823 7824 7825 7826 7827 7828 7829 7836 7841 7842 7843 7844 7845 7846 7847 7848 7849 7850 7851 7852 7853 7854 7855 7856 7857 7858 7859 7860 7861 7862 7863 7864 7865 7866 7867 7868 7869 7870 7871 7872 7873 7874 7875 7876 7877 7878 7879 7880 7881 7882 7883 7884 7885 7886 7887 7888 7889 7890 7891 7892 7893 7894 7895 7896 7897 7898 7899 7900 7901 7902 7903 7904 7905 7906 7907 7908 7909 7910 7911 7912 7913 7914 7915 7916 7917 7918 7919 7920 7921 7922 7923 7924 7925 7926 7927 7928 7929 7930 7931 7932 7933 7934 7935 7944 7952 7958 7968 7976 7984 7992 8000 8006 8016 8024 8032 8040 8048 8062 8064 8072 8080 8088 8096 8104 8112 8117 8118 8120 8126 8127 8130 8133 8134 8136 8144 8148 8150 8152 8160 8168 8178 8181 8182 8184 8526 8527 8560 8576 8580 8581 9424 9450 11312 11359 11361 11362 11365 11367 11368 11369 11370 11371 11372 11373 11379 11380 11382 11383 11393 11394 11395 11396 11397 11398 11399 11400 11401 11402 11403 11404 11405 11406 11407 11408 11409 11410 11411 11412 11413 11414 11415 11416 11417 11418 11419 11420 11421 11422 11423 11424 11425 11426 11427 11428 11429 11430 11431 11432 11433 11434 11435 11436 11437 11438 11439 11440 11441 11442 11443 11444 11445 11446 11447 11448 11449 11450 11451 11452 11453 11454 11455 11456 11457 11458 11459 11460 11461 11462 11463 11464 11465 11466 11467 11468 11469 11470 11471 11472 11473 11474 11475 11476 11477 11478 11479 11480 11481 11482 11483 11484 11485 11486 11487 11488 11489 11490 11491 11492 11500 11501 11502 11503 11507 11508 11520 11558 11559 11560 11565 11566 42561 42562 42563 42564 42565 42566 42567 42568 42569 42570 42571 42572 42573 42574 42575 42576 42577 42578 42579 42580 42581 42582 42583 42584 42585 42586 42587 42588 42589 42590 42591 42592 42593 42594 42595 42596 42597 42598 42599 42600 42601 42602 42603 42604 42605 42606 42625 42626 42627 42628 42629 42630 42631 42632 42633 42634 42635 42636 42637 42638 42639 42640 42641 42642 42643 42644 42645 42646 42647 42648 42649 42650 42651 42652 42787 42788 42789 42790 42791 42792 42793 42794 42795 42796 42797 42798 42799 42800 42803 42804 42805 42806 42807 42808 42809 42810 42811 42812 42813 42814 42815 42816 42817 42818 42819 42820 42821 42822 42823 42824 42825 42826 42827 42828 42829 42830 42831 42832 42833 42834 42835 42836 42837 42838 42839 42840 42841 42842 42843 42844 42845 42846 42847 42848 42849 42850 42851 42852 42853 42854 42855 42856 42857 42858 42859 42860 42861 42862 42863 42864 42874 42875 42876 42877 42879 42880 42881 42882 42883 42884 42885 42886 42887 42888 42892 42893 42897 42898 42899 42901 42903 42904 42905 42906 42907 42908 42909 42910 42911 42912 42913 42914 42915 42916 42917 42918 42919 42920 42921 42922 42933 42934 42935 42936 42937 42938 42939 42940 42941 42942 42943 42944 42947 42948 42952 42953 42954 42955 42998 42999 43859 43860 43888 43968 64256 64263 64275 64280 65345 65371 66600 66640 66776 66812 68800 68851 71872 71904 93792 93824 125218 125252 END PK ! �E�8 8 5.34.0/unicore/lib/Dt/Fin.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V226 64337 64338 64339 64340 64343 64344 64347 64348 64351 64352 64355 64356 64359 64360 64363 64364 64367 64368 64371 64372 64375 64376 64379 64380 64383 64384 64387 64388 64389 64390 64391 64392 64393 64394 64395 64396 64397 64398 64399 64400 64403 64404 64407 64408 64411 64412 64415 64416 64417 64418 64421 64422 64423 64424 64427 64428 64431 64432 64433 64434 64468 64469 64472 64473 64474 64475 64476 64477 64479 64480 64481 64482 64483 64484 64485 64486 64491 64492 64493 64494 64495 64496 64497 64498 64499 64500 64501 64502 64503 64504 64506 64507 64509 64510 64612 64663 64785 64813 64828 64829 64849 64850 64856 64857 64858 64860 64862 64864 64866 64867 64868 64869 64870 64872 64873 64875 64876 64877 64878 64880 64881 64882 64884 64887 64888 64893 64894 64899 64900 64902 64903 64904 64907 64908 64918 64920 64921 64925 64926 64948 64950 64952 64953 64954 64955 64963 64966 64968 65154 65155 65156 65157 65158 65159 65160 65161 65162 65163 65166 65167 65168 65169 65172 65173 65174 65175 65178 65179 65182 65183 65186 65187 65190 65191 65194 65195 65196 65197 65198 65199 65200 65201 65202 65203 65206 65207 65210 65211 65214 65215 65218 65219 65222 65223 65226 65227 65230 65231 65234 65235 65238 65239 65242 65243 65246 65247 65250 65251 65254 65255 65258 65259 65262 65263 65264 65265 65266 65267 65270 65271 65272 65273 65274 65275 65276 65277 END PK ! ��7v' ' 5.34.0/unicore/lib/Dt/Vert.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V10 12447 12448 12543 12544 65040 65050 65072 65093 65095 65097 END PK ! W�ܝt t 5.34.0/unicore/lib/Dt/Med.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V108 64341 64342 64345 64346 64349 64350 64353 64354 64357 64358 64361 64362 64365 64366 64369 64370 64373 64374 64377 64378 64381 64382 64385 64386 64401 64402 64405 64406 64409 64410 64413 64414 64419 64420 64425 64426 64429 64430 64470 64471 64487 64488 64489 64490 64511 64512 64735 64757 64820 64828 65137 65138 65143 65144 65145 65146 65147 65148 65149 65150 65151 65152 65164 65165 65170 65171 65176 65177 65180 65181 65184 65185 65188 65189 65192 65193 65204 65205 65208 65209 65212 65213 65216 65217 65220 65221 65224 65225 65228 65229 65232 65233 65236 65237 65240 65241 65244 65245 65248 65249 65252 65253 65256 65257 65260 65261 65268 65269 END PK ! NSwwp p ! 5.34.0/unicore/lib/Dt/NonCanon.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V374 160 161 168 169 170 171 175 176 178 182 184 187 188 191 306 308 319 321 329 330 383 384 452 461 497 500 688 697 728 734 736 741 890 891 900 901 976 979 981 983 1008 1011 1012 1014 1017 1018 1415 1416 1653 1657 3635 3636 3763 3764 3804 3806 3852 3853 3959 3960 3961 3962 4348 4349 7468 7471 7472 7483 7484 7502 7503 7531 7544 7545 7579 7616 7834 7835 8125 8126 8127 8129 8190 8191 8194 8203 8209 8210 8215 8216 8228 8231 8239 8240 8243 8245 8246 8248 8252 8253 8254 8255 8263 8266 8279 8280 8287 8288 8304 8306 8308 8335 8336 8349 8360 8361 8448 8452 8453 8456 8457 8468 8469 8471 8473 8478 8480 8483 8484 8485 8488 8489 8492 8494 8495 8498 8499 8506 8507 8513 8517 8522 8528 8576 8585 8586 8748 8750 8751 8753 9312 9451 10764 10765 10868 10871 11388 11390 11631 11632 11935 11936 12019 12020 12032 12246 12288 12289 12342 12343 12344 12347 12443 12445 12447 12448 12543 12544 12593 12687 12690 12704 12800 12831 12832 12872 12880 12927 12928 13312 42652 42654 42864 42865 43000 43002 43868 43872 43881 43882 64256 64263 64275 64280 64288 64298 64335 64434 64467 64830 64848 64912 64914 64968 65008 65021 65040 65050 65072 65093 65095 65107 65108 65127 65128 65132 65136 65139 65140 65141 65142 65277 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 120832 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 127232 127243 127248 127279 127280 127312 127338 127341 127376 127377 127488 127491 127504 127548 127552 127561 127568 127570 130032 130042 END PK ! ��}� 5.34.0/unicore/lib/Dt/Sub.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 7522 7531 8320 8335 8336 8349 11388 11389 END PK ! ��'� 5.34.0/unicore/lib/Dt/Nb.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V10 160 161 3852 3853 8199 8200 8209 8210 8239 8240 END PK ! ףep p 5.34.0/unicore/lib/Dt/Init.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V150 64340 64341 64344 64345 64348 64349 64352 64353 64356 64357 64360 64361 64364 64365 64368 64369 64372 64373 64376 64377 64380 64381 64384 64385 64400 64401 64404 64405 64408 64409 64412 64413 64418 64419 64424 64425 64428 64429 64469 64470 64486 64487 64488 64489 64504 64505 64507 64508 64510 64511 64663 64735 64813 64820 64848 64849 64850 64856 64857 64858 64860 64862 64864 64866 64867 64868 64869 64870 64872 64873 64875 64876 64877 64878 64880 64881 64882 64884 64887 64888 64893 64894 64899 64900 64902 64903 64904 64907 64908 64912 64914 64918 64920 64921 64925 64926 64948 64950 64952 64953 64954 64955 64963 64966 65163 65164 65169 65170 65175 65176 65179 65180 65183 65184 65187 65188 65191 65192 65203 65204 65207 65208 65211 65212 65215 65216 65219 65220 65223 65224 65227 65228 65231 65232 65235 65236 65239 65240 65243 65244 65247 65248 65251 65252 65255 65256 65259 65260 65267 65268 END PK ! ��h�3 3 5.34.0/unicore/lib/Dt/Nar.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V12 65377 65471 65474 65480 65482 65488 65490 65496 65498 65501 65512 65519 END PK ! >F �� � 5.34.0/unicore/lib/Dt/Iso.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V196 64336 64337 64338 64339 64342 64343 64346 64347 64350 64351 64354 64355 64358 64359 64362 64363 64366 64367 64370 64371 64374 64375 64378 64379 64382 64383 64386 64387 64388 64389 64390 64391 64392 64393 64394 64395 64396 64397 64398 64399 64402 64403 64406 64407 64410 64411 64414 64415 64416 64417 64420 64421 64422 64423 64426 64427 64430 64431 64432 64433 64467 64468 64471 64472 64473 64474 64475 64476 64477 64479 64480 64481 64482 64483 64484 64485 64490 64491 64492 64493 64494 64495 64496 64497 64498 64499 64500 64501 64502 64503 64505 64506 64508 64509 64512 64612 64757 64785 64829 64830 65008 65021 65136 65137 65138 65139 65140 65141 65142 65143 65144 65145 65146 65147 65148 65149 65150 65151 65152 65154 65155 65156 65157 65158 65159 65160 65161 65162 65165 65166 65167 65168 65171 65172 65173 65174 65177 65178 65181 65182 65185 65186 65189 65190 65193 65194 65195 65196 65197 65198 65199 65200 65201 65202 65205 65206 65209 65210 65213 65214 65217 65218 65221 65222 65225 65226 65229 65230 65233 65234 65237 65238 65241 65242 65245 65246 65249 65250 65253 65254 65257 65258 65261 65262 65263 65264 65265 65266 65269 65270 65271 65272 65273 65274 65275 65276 END PK ! ٦_�r r 5.34.0/unicore/lib/Dt/Font.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V136 8450 8451 8458 8468 8469 8470 8473 8478 8484 8485 8488 8489 8492 8494 8495 8498 8499 8501 8505 8506 8508 8513 8517 8522 64288 64298 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 120832 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 130032 130042 END PK ! k�&�� � 5.34.0/unicore/lib/Dt/Com.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V148 168 169 175 176 180 182 184 185 306 308 319 321 329 330 383 384 452 461 497 500 728 734 890 891 900 901 976 979 981 983 1008 1011 1012 1014 1017 1018 1415 1416 1653 1657 3635 3636 3763 3764 3804 3806 3959 3960 3961 3962 7834 7835 8125 8126 8127 8129 8190 8191 8194 8199 8200 8203 8215 8216 8228 8231 8243 8245 8246 8248 8252 8253 8254 8255 8263 8266 8279 8280 8287 8288 8360 8361 8448 8450 8451 8452 8453 8456 8457 8458 8470 8471 8481 8482 8501 8505 8507 8508 8544 8576 8748 8750 8751 8753 9332 9398 10764 10765 10868 10871 11935 11936 12019 12020 12032 12246 12342 12343 12344 12347 12443 12445 12593 12687 12800 12831 12832 12868 12992 13004 13144 13169 13280 13311 64256 64263 64275 64280 64335 64336 65097 65104 127232 127243 127248 127275 127552 127561 END PK ! U�K�K K 5.34.0/unicore/lib/Dt/Enc.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V16 9312 9332 9398 9451 12868 12872 12881 12927 12928 12992 13008 13055 127275 127279 127568 127570 END PK ! M�Rp_ _ 5.34.0/unicore/lib/Dt/Sqr.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V18 12880 12881 13004 13008 13055 13144 13169 13280 13311 13312 127280 127312 127376 127377 127488 127491 127504 127548 END PK ! �q#Z� � 5.34.0/unicore/lib/Dt/Sup.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V50 170 171 178 180 185 187 688 697 736 741 4348 4349 7468 7471 7472 7483 7484 7502 7503 7522 7544 7545 7579 7616 8304 8306 8308 8320 8480 8481 8482 8483 11389 11390 11631 11632 12690 12704 42652 42654 42864 42865 43000 43002 43868 43872 43881 43882 127338 127341 END PK ! *e��K K 5.34.0/unicore/lib/SD/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V62 105 107 303 304 585 586 616 617 669 670 690 691 1011 1012 1110 1111 1112 1113 7522 7523 7574 7575 7588 7589 7592 7593 7725 7726 7883 7884 8305 8306 8520 8522 11388 11389 119842 119844 119894 119896 119946 119948 119998 120000 120050 120052 120102 120104 120154 120156 120206 120208 120258 120260 120310 120312 120362 120364 120414 120416 120466 120468 END PK ! _R)� � 5.34.0/unicore/lib/CWCM/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V248 65 91 97 123 181 182 192 215 216 247 248 312 313 397 398 411 412 426 428 442 444 446 447 448 452 545 546 564 570 597 598 600 601 602 603 605 608 610 611 612 613 615 616 621 623 624 625 627 629 630 637 638 640 641 642 644 647 653 658 659 669 671 837 838 880 884 886 888 891 894 895 896 902 903 904 907 908 909 910 930 931 978 981 1014 1015 1020 1021 1154 1162 1328 1329 1367 1377 1416 4256 4294 4295 4296 4301 4302 4304 4347 4349 4352 5024 5110 5112 5118 7296 7305 7312 7355 7357 7360 7545 7546 7549 7550 7566 7567 7680 7836 7838 7839 7840 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8125 8126 8127 8130 8133 8134 8141 8144 8148 8150 8156 8160 8173 8178 8181 8182 8189 8486 8487 8490 8492 8498 8499 8526 8527 8544 8576 8579 8581 9398 9450 11264 11311 11312 11359 11360 11377 11378 11380 11381 11383 11390 11492 11499 11503 11506 11508 11520 11558 11559 11560 11565 11566 42560 42606 42624 42652 42786 42800 42802 42864 42873 42888 42891 42894 42896 42901 42902 42927 42928 42944 42946 42955 42997 42999 43859 43860 43888 43968 64256 64263 64275 64280 65313 65339 65345 65371 66560 66640 66736 66772 66776 66812 68736 68787 68800 68851 71840 71904 93760 93824 125184 125252 END PK ! dϖ��# �# 5.34.0/unicore/lib/CWKCF/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1654 65 91 160 161 168 169 170 171 173 174 175 176 178 182 184 187 188 191 192 215 216 224 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 309 310 311 313 314 315 316 317 318 319 322 323 324 325 326 327 328 329 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 378 379 380 381 382 383 384 385 387 388 389 390 392 393 396 398 402 403 405 406 409 412 414 415 417 418 419 420 421 422 424 425 426 428 429 430 432 433 436 437 438 439 441 444 445 452 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 497 501 502 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 570 572 573 575 577 578 579 583 584 585 586 587 588 589 590 591 688 697 728 734 736 741 832 834 835 838 847 848 880 881 882 883 884 885 886 887 890 891 894 896 900 907 908 909 910 912 913 930 931 940 962 963 975 983 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1011 1012 1014 1015 1016 1017 1019 1021 1072 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 1329 1367 1415 1416 1564 1565 1653 1657 2392 2400 2524 2526 2527 2528 2611 2612 2614 2615 2649 2652 2654 2655 2908 2910 3635 3636 3763 3764 3804 3806 3852 3853 3907 3908 3917 3918 3922 3923 3927 3928 3932 3933 3945 3946 3955 3956 3957 3962 3969 3970 3987 3988 3997 3998 4002 4003 4007 4008 4012 4013 4025 4026 4256 4294 4295 4296 4301 4302 4348 4349 4447 4449 5112 5118 6068 6070 6155 6159 7296 7305 7312 7355 7357 7360 7468 7471 7472 7483 7484 7502 7503 7531 7544 7545 7579 7616 7680 7681 7682 7683 7684 7685 7686 7687 7688 7689 7690 7691 7692 7693 7694 7695 7696 7697 7698 7699 7700 7701 7702 7703 7704 7705 7706 7707 7708 7709 7710 7711 7712 7713 7714 7715 7716 7717 7718 7719 7720 7721 7722 7723 7724 7725 7726 7727 7728 7729 7730 7731 7732 7733 7734 7735 7736 7737 7738 7739 7740 7741 7742 7743 7744 7745 7746 7747 7748 7749 7750 7751 7752 7753 7754 7755 7756 7757 7758 7759 7760 7761 7762 7763 7764 7765 7766 7767 7768 7769 7770 7771 7772 7773 7774 7775 7776 7777 7778 7779 7780 7781 7782 7783 7784 7785 7786 7787 7788 7789 7790 7791 7792 7793 7794 7795 7796 7797 7798 7799 7800 7801 7802 7803 7804 7805 7806 7807 7808 7809 7810 7811 7812 7813 7814 7815 7816 7817 7818 7819 7820 7821 7822 7823 7824 7825 7826 7827 7828 7829 7834 7836 7838 7839 7840 7841 7842 7843 7844 7845 7846 7847 7848 7849 7850 7851 7852 7853 7854 7855 7856 7857 7858 7859 7860 7861 7862 7863 7864 7865 7866 7867 7868 7869 7870 7871 7872 7873 7874 7875 7876 7877 7878 7879 7880 7881 7882 7883 7884 7885 7886 7887 7888 7889 7890 7891 7892 7893 7894 7895 7896 7897 7898 7899 7900 7901 7902 7903 7904 7905 7906 7907 7908 7909 7910 7911 7912 7913 7914 7915 7916 7917 7918 7919 7920 7921 7922 7923 7924 7925 7926 7927 7928 7929 7930 7931 7932 7933 7934 7935 7944 7952 7960 7966 7976 7984 7992 8000 8008 8014 8025 8026 8027 8028 8029 8030 8031 8032 8040 8048 8049 8050 8051 8052 8053 8054 8055 8056 8057 8058 8059 8060 8061 8062 8064 8112 8114 8117 8119 8133 8135 8144 8147 8148 8152 8156 8157 8160 8163 8164 8168 8176 8178 8181 8183 8191 8192 8208 8209 8210 8215 8216 8228 8231 8234 8240 8243 8245 8246 8248 8252 8253 8254 8255 8263 8266 8279 8280 8287 8306 8308 8335 8336 8349 8360 8361 8448 8452 8453 8456 8457 8468 8469 8471 8473 8478 8480 8483 8484 8485 8486 8487 8488 8489 8490 8494 8495 8506 8507 8513 8517 8522 8528 8576 8579 8580 8585 8586 8748 8750 8751 8753 9001 9003 9312 9451 10764 10765 10868 10871 10972 10973 11264 11311 11360 11361 11362 11365 11367 11368 11369 11370 11371 11372 11373 11377 11378 11379 11381 11382 11388 11393 11394 11395 11396 11397 11398 11399 11400 11401 11402 11403 11404 11405 11406 11407 11408 11409 11410 11411 11412 11413 11414 11415 11416 11417 11418 11419 11420 11421 11422 11423 11424 11425 11426 11427 11428 11429 11430 11431 11432 11433 11434 11435 11436 11437 11438 11439 11440 11441 11442 11443 11444 11445 11446 11447 11448 11449 11450 11451 11452 11453 11454 11455 11456 11457 11458 11459 11460 11461 11462 11463 11464 11465 11466 11467 11468 11469 11470 11471 11472 11473 11474 11475 11476 11477 11478 11479 11480 11481 11482 11483 11484 11485 11486 11487 11488 11489 11490 11491 11499 11500 11501 11502 11506 11507 11631 11632 11935 11936 12019 12020 12032 12246 12288 12289 12342 12343 12344 12347 12443 12445 12447 12448 12543 12544 12593 12687 12690 12704 12800 12831 12832 12872 12880 12927 12928 13312 42560 42561 42562 42563 42564 42565 42566 42567 42568 42569 42570 42571 42572 42573 42574 42575 42576 42577 42578 42579 42580 42581 42582 42583 42584 42585 42586 42587 42588 42589 42590 42591 42592 42593 42594 42595 42596 42597 42598 42599 42600 42601 42602 42603 42604 42605 42624 42625 42626 42627 42628 42629 42630 42631 42632 42633 42634 42635 42636 42637 42638 42639 42640 42641 42642 42643 42644 42645 42646 42647 42648 42649 42650 42651 42652 42654 42786 42787 42788 42789 42790 42791 42792 42793 42794 42795 42796 42797 42798 42799 42802 42803 42804 42805 42806 42807 42808 42809 42810 42811 42812 42813 42814 42815 42816 42817 42818 42819 42820 42821 42822 42823 42824 42825 42826 42827 42828 42829 42830 42831 42832 42833 42834 42835 42836 42837 42838 42839 42840 42841 42842 42843 42844 42845 42846 42847 42848 42849 42850 42851 42852 42853 42854 42855 42856 42857 42858 42859 42860 42861 42862 42863 42864 42865 42873 42874 42875 42876 42877 42879 42880 42881 42882 42883 42884 42885 42886 42887 42891 42892 42893 42894 42896 42897 42898 42899 42902 42903 42904 42905 42906 42907 42908 42909 42910 42911 42912 42913 42914 42915 42916 42917 42918 42919 42920 42921 42922 42927 42928 42933 42934 42935 42936 42937 42938 42939 42940 42941 42942 42943 42946 42947 42948 42952 42953 42954 42997 42998 43000 43002 43868 43872 43881 43882 43888 43968 63744 64014 64016 64017 64018 64019 64021 64031 64032 64033 64034 64035 64037 64039 64042 64110 64112 64218 64256 64263 64275 64280 64285 64286 64287 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64830 64848 64912 64914 64968 65008 65021 65024 65050 65072 65093 65095 65107 65108 65127 65128 65132 65136 65139 65140 65141 65142 65277 65279 65280 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65520 65529 66560 66600 66736 66772 68736 68787 71840 71872 93760 93792 113824 113828 119134 119141 119155 119163 119227 119233 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 120832 125184 125218 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 127232 127243 127248 127279 127280 127312 127338 127341 127376 127377 127488 127491 127504 127548 127552 127561 127568 127570 130032 130042 194560 195102 917504 921600 END PK ! m5lW� � 5.34.0/unicore/lib/DI/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V34 173 174 847 848 1564 1565 4447 4449 6068 6070 6155 6159 8203 8208 8234 8239 8288 8304 12644 12645 65024 65040 65279 65280 65440 65441 65520 65529 113824 113828 119155 119163 917504 921600 END PK ! "kc�� � 5.34.0/unicore/lib/CI/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V820 39 40 46 47 58 59 94 95 96 97 168 169 173 174 175 176 180 181 183 185 688 880 884 886 890 891 900 902 903 904 1155 1162 1369 1370 1375 1376 1425 1470 1471 1472 1473 1475 1476 1478 1479 1480 1524 1525 1536 1542 1552 1563 1564 1565 1600 1601 1611 1632 1648 1649 1750 1758 1759 1769 1770 1774 1807 1808 1809 1810 1840 1867 1958 1969 2027 2038 2042 2043 2045 2046 2070 2094 2137 2140 2259 2307 2362 2363 2364 2365 2369 2377 2381 2382 2385 2392 2402 2404 2417 2418 2433 2434 2492 2493 2497 2501 2509 2510 2530 2532 2558 2559 2561 2563 2620 2621 2625 2627 2631 2633 2635 2638 2641 2642 2672 2674 2677 2678 2689 2691 2748 2749 2753 2758 2759 2761 2765 2766 2786 2788 2810 2816 2817 2818 2876 2877 2879 2880 2881 2885 2893 2894 2901 2903 2914 2916 2946 2947 3008 3009 3021 3022 3072 3073 3076 3077 3134 3137 3142 3145 3146 3150 3157 3159 3170 3172 3201 3202 3260 3261 3263 3264 3270 3271 3276 3278 3298 3300 3328 3330 3387 3389 3393 3397 3405 3406 3426 3428 3457 3458 3530 3531 3538 3541 3542 3543 3633 3634 3636 3643 3654 3663 3761 3762 3764 3773 3782 3783 3784 3790 3864 3866 3893 3894 3895 3896 3897 3898 3953 3967 3968 3973 3974 3976 3981 3992 3993 4029 4038 4039 4141 4145 4146 4152 4153 4155 4157 4159 4184 4186 4190 4193 4209 4213 4226 4227 4229 4231 4237 4238 4253 4254 4348 4349 4957 4960 5906 5909 5938 5941 5970 5972 6002 6004 6068 6070 6071 6078 6086 6087 6089 6100 6103 6104 6109 6110 6155 6159 6211 6212 6277 6279 6313 6314 6432 6435 6439 6441 6450 6451 6457 6460 6679 6681 6683 6684 6742 6743 6744 6751 6752 6753 6754 6755 6757 6765 6771 6781 6783 6784 6823 6824 6832 6849 6912 6916 6964 6965 6966 6971 6972 6973 6978 6979 7019 7028 7040 7042 7074 7078 7080 7082 7083 7086 7142 7143 7144 7146 7149 7150 7151 7154 7212 7220 7222 7224 7288 7294 7376 7379 7380 7393 7394 7401 7405 7406 7412 7413 7416 7418 7468 7531 7544 7545 7579 7674 7675 7680 8125 8126 8127 8130 8141 8144 8157 8160 8173 8176 8189 8191 8203 8208 8216 8218 8228 8229 8231 8232 8234 8239 8288 8293 8294 8304 8305 8306 8319 8320 8336 8349 8400 8433 11388 11390 11503 11506 11631 11632 11647 11648 11744 11776 11823 11824 12293 12294 12330 12334 12337 12342 12347 12348 12441 12447 12540 12543 40981 40982 42232 42238 42508 42509 42607 42611 42612 42622 42623 42624 42652 42656 42736 42738 42752 42786 42864 42865 42888 42891 43000 43002 43010 43011 43014 43015 43019 43020 43045 43047 43052 43053 43204 43206 43232 43250 43263 43264 43302 43310 43335 43346 43392 43395 43443 43444 43446 43450 43452 43454 43471 43472 43493 43495 43561 43567 43569 43571 43573 43575 43587 43588 43596 43597 43632 43633 43644 43645 43696 43697 43698 43701 43703 43705 43710 43712 43713 43714 43741 43742 43756 43758 43763 43765 43766 43767 43867 43872 43881 43884 44005 44006 44008 44009 44013 44014 64286 64287 64434 64450 65024 65040 65043 65044 65056 65072 65106 65107 65109 65110 65279 65280 65287 65288 65294 65295 65306 65307 65342 65343 65344 65345 65392 65393 65438 65440 65507 65508 65529 65532 66045 66046 66272 66273 66422 66427 68097 68100 68101 68103 68108 68112 68152 68155 68159 68160 68325 68327 68900 68904 69291 69293 69446 69457 69633 69634 69688 69703 69759 69762 69811 69815 69817 69819 69821 69822 69837 69838 69888 69891 69927 69932 69933 69941 70003 70004 70016 70018 70070 70079 70089 70093 70095 70096 70191 70194 70196 70197 70198 70200 70206 70207 70367 70368 70371 70379 70400 70402 70459 70461 70464 70465 70502 70509 70512 70517 70712 70720 70722 70725 70726 70727 70750 70751 70835 70841 70842 70843 70847 70849 70850 70852 71090 71094 71100 71102 71103 71105 71132 71134 71219 71227 71229 71230 71231 71233 71339 71340 71341 71342 71344 71350 71351 71352 71453 71456 71458 71462 71463 71468 71727 71736 71737 71739 71995 71997 71998 71999 72003 72004 72148 72152 72154 72156 72160 72161 72193 72203 72243 72249 72251 72255 72263 72264 72273 72279 72281 72284 72330 72343 72344 72346 72752 72759 72760 72766 72767 72768 72850 72872 72874 72881 72882 72884 72885 72887 73009 73015 73018 73019 73020 73022 73023 73030 73031 73032 73104 73106 73109 73110 73111 73112 73459 73461 78896 78905 92912 92917 92976 92983 92992 92996 94031 94032 94095 94112 94176 94178 94179 94181 113821 113823 113824 113828 119143 119146 119155 119171 119173 119180 119210 119214 119362 119365 121344 121399 121403 121453 121461 121462 121476 121477 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123184 123198 123628 123632 125136 125143 125252 125260 127995 128000 917505 917506 917536 917632 917760 918000 END PK ! ��� � 5.34.0/unicore/lib/IDS/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1244 65 91 97 123 170 171 181 182 186 187 192 215 216 247 248 706 710 722 736 741 748 749 750 751 880 885 886 888 890 894 895 896 902 903 904 907 908 909 910 930 931 1014 1015 1154 1162 1328 1329 1367 1369 1370 1376 1417 1488 1515 1519 1523 1568 1611 1646 1648 1649 1748 1749 1750 1765 1767 1774 1776 1786 1789 1791 1792 1808 1809 1810 1840 1869 1958 1969 1970 1994 2027 2036 2038 2042 2043 2048 2070 2074 2075 2084 2085 2088 2089 2112 2137 2144 2155 2208 2229 2230 2248 2308 2362 2365 2366 2384 2385 2392 2402 2417 2433 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2493 2494 2510 2511 2524 2526 2527 2530 2544 2546 2556 2557 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2649 2653 2654 2655 2674 2677 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2749 2750 2768 2769 2784 2786 2809 2810 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2877 2878 2908 2910 2911 2914 2929 2930 2947 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3024 3025 3077 3085 3086 3089 3090 3113 3114 3130 3133 3134 3160 3163 3168 3170 3200 3201 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3261 3262 3294 3295 3296 3298 3313 3315 3332 3341 3342 3345 3346 3387 3389 3390 3406 3407 3412 3415 3423 3426 3450 3456 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3585 3633 3634 3636 3648 3655 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3761 3762 3764 3773 3774 3776 3781 3782 3783 3804 3808 3840 3841 3904 3912 3913 3949 3976 3981 4096 4139 4159 4160 4176 4182 4186 4190 4193 4194 4197 4199 4206 4209 4213 4226 4238 4239 4256 4294 4295 4296 4301 4302 4304 4347 4348 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4992 5008 5024 5110 5112 5118 5121 5741 5743 5760 5761 5787 5792 5867 5870 5881 5888 5901 5902 5906 5920 5938 5952 5970 5984 5997 5998 6001 6016 6068 6103 6104 6108 6109 6176 6265 6272 6313 6314 6315 6320 6390 6400 6431 6480 6510 6512 6517 6528 6572 6576 6602 6656 6679 6688 6741 6823 6824 6917 6964 6981 6988 7043 7073 7086 7088 7098 7142 7168 7204 7245 7248 7258 7294 7296 7305 7312 7355 7357 7360 7401 7405 7406 7412 7413 7415 7418 7419 7424 7616 7680 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8125 8126 8127 8130 8133 8134 8141 8144 8148 8150 8156 8160 8173 8178 8181 8182 8189 8305 8306 8319 8320 8336 8349 8450 8451 8455 8456 8458 8468 8469 8470 8472 8478 8484 8485 8486 8487 8488 8489 8490 8506 8508 8512 8517 8522 8526 8527 8544 8585 11264 11311 11312 11359 11360 11493 11499 11503 11506 11508 11520 11558 11559 11560 11565 11566 11568 11624 11631 11632 11648 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 12293 12296 12321 12330 12337 12342 12344 12349 12353 12439 12443 12448 12449 12539 12540 12544 12549 12592 12593 12687 12704 12736 12784 12800 13312 19904 19968 40957 40960 42125 42192 42238 42240 42509 42512 42528 42538 42540 42560 42607 42623 42654 42656 42736 42775 42784 42786 42889 42891 42944 42946 42955 42997 43010 43011 43014 43015 43019 43020 43043 43072 43124 43138 43188 43250 43256 43259 43260 43261 43263 43274 43302 43312 43335 43360 43389 43396 43443 43471 43472 43488 43493 43494 43504 43514 43519 43520 43561 43584 43587 43588 43596 43616 43639 43642 43643 43646 43696 43697 43698 43701 43703 43705 43710 43712 43713 43714 43715 43739 43742 43744 43755 43762 43765 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43867 43868 43882 43888 44003 44032 55204 55216 55239 55243 55292 63744 64110 64112 64218 64256 64263 64275 64280 64285 64286 64287 64297 64298 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64830 64848 64912 64914 64968 65008 65020 65136 65141 65142 65277 65313 65339 65345 65371 65382 65471 65474 65480 65482 65488 65490 65496 65498 65501 65536 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65856 65909 66176 66205 66208 66257 66304 66336 66349 66379 66384 66422 66432 66462 66464 66500 66504 66512 66513 66518 66560 66718 66736 66772 66776 66812 66816 66856 66864 66916 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67680 67703 67712 67743 67808 67827 67828 67830 67840 67862 67872 67898 67968 68024 68030 68032 68096 68097 68112 68116 68117 68120 68121 68150 68192 68221 68224 68253 68288 68296 68297 68325 68352 68406 68416 68438 68448 68467 68480 68498 68608 68681 68736 68787 68800 68851 68864 68900 69248 69290 69296 69298 69376 69405 69415 69416 69424 69446 69552 69573 69600 69623 69635 69688 69763 69808 69840 69865 69891 69927 69956 69957 69959 69960 69968 70003 70006 70007 70019 70067 70081 70085 70106 70107 70108 70109 70144 70162 70163 70188 70272 70279 70280 70281 70282 70286 70287 70302 70303 70313 70320 70367 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70461 70462 70480 70481 70493 70498 70656 70709 70727 70731 70751 70754 70784 70832 70852 70854 70855 70856 71040 71087 71128 71132 71168 71216 71236 71237 71296 71339 71352 71353 71424 71451 71680 71724 71840 71904 71935 71943 71945 71946 71948 71956 71957 71959 71960 71984 71999 72000 72001 72002 72096 72104 72106 72145 72161 72162 72163 72164 72192 72193 72203 72243 72250 72251 72272 72273 72284 72330 72349 72350 72384 72441 72704 72713 72714 72751 72768 72769 72818 72848 72960 72967 72968 72970 72971 73009 73030 73031 73056 73062 73063 73065 73066 73098 73112 73113 73440 73459 73648 73649 73728 74650 74752 74863 74880 75076 77824 78895 82944 83527 92160 92729 92736 92767 92880 92910 92928 92976 92992 92996 93027 93048 93053 93072 93760 93824 93952 94027 94032 94033 94099 94112 94176 94178 94179 94180 94208 100344 100352 101590 101632 101641 110592 110879 110928 110931 110948 110952 110960 111356 113664 113771 113776 113789 113792 113801 113808 113818 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120513 120514 120539 120540 120571 120572 120597 120598 120629 120630 120655 120656 120687 120688 120713 120714 120745 120746 120771 120772 120780 123136 123181 123191 123198 123214 123215 123584 123628 124928 125125 125184 125252 125259 125260 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 131072 173790 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196608 201547 END PK ! ��R�� � 5.34.0/unicore/lib/Lb/PR.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V48 36 37 43 44 92 93 163 166 177 178 1423 1424 2046 2048 2555 2556 2801 2802 3065 3066 3647 3648 6107 6108 8352 8359 8360 8374 8375 8379 8380 8382 8383 8400 8470 8471 8722 8724 65129 65130 65284 65285 65505 65506 65509 65511 123647 123648 END PK ! "q�. . 5.34.0/unicore/lib/Lb/AI.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V218 167 169 170 171 178 180 182 187 188 191 215 216 247 248 711 712 713 716 717 718 720 721 728 732 733 734 8213 8215 8224 8226 8251 8252 8308 8309 8319 8320 8321 8325 8453 8454 8467 8468 8481 8483 8491 8492 8532 8534 8539 8540 8542 8543 8544 8556 8560 8570 8585 8586 8592 8602 8658 8659 8660 8661 8704 8705 8706 8708 8711 8713 8715 8716 8719 8720 8721 8722 8725 8726 8730 8731 8733 8737 8739 8740 8741 8742 8743 8749 8750 8751 8756 8760 8764 8766 8776 8777 8780 8781 8786 8787 8800 8802 8804 8808 8810 8812 8814 8816 8834 8836 8838 8840 8853 8854 8857 8858 8869 8870 8895 8896 8978 8979 9312 9471 9472 9548 9552 9589 9600 9616 9618 9622 9632 9634 9635 9642 9650 9652 9654 9656 9660 9662 9664 9666 9670 9673 9675 9676 9678 9682 9698 9702 9711 9712 9733 9735 9737 9738 9742 9744 9750 9752 9792 9793 9794 9795 9824 9826 9827 9830 9831 9832 9833 9835 9836 9838 9839 9840 9886 9888 9929 9933 9938 9939 9941 9944 9946 9948 9949 9951 9955 9956 9960 9962 9963 9969 9974 9975 9979 9981 10071 10072 10102 10132 11093 11098 12872 12880 65533 65534 127232 127245 127248 127278 127280 127338 127344 127405 END PK ! #��(� � 5.34.0/unicore/lib/Lb/NS.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V34 6102 6103 8252 8254 8263 8266 12293 12294 12316 12317 12347 12349 12443 12447 12448 12449 12539 12540 12541 12543 40981 40982 65108 65110 65306 65308 65381 65382 65438 65440 94176 94180 128633 128636 END PK ! ^|TU� � 5.34.0/unicore/lib/Lb/NU.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V122 48 58 1632 1642 1643 1645 1776 1786 1984 1994 2406 2416 2534 2544 2662 2672 2790 2800 2918 2928 3046 3056 3174 3184 3302 3312 3430 3440 3558 3568 3664 3674 3792 3802 3872 3882 4160 4170 4240 4250 6112 6122 6160 6170 6470 6480 6608 6618 6784 6794 6800 6810 6992 7002 7088 7098 7232 7242 7248 7258 42528 42538 43216 43226 43264 43274 43472 43482 43504 43514 43600 43610 44016 44026 66720 66730 68912 68922 69734 69744 69872 69882 69942 69952 70096 70106 70384 70394 70736 70746 70864 70874 71248 71258 71360 71370 71472 71482 71904 71914 72016 72026 72784 72794 73040 73050 73120 73130 92768 92778 93008 93018 120782 120832 123200 123210 123632 123642 125264 125274 130032 130042 END PK ! R���k k 5.34.0/unicore/lib/Lb/GL.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V26 160 161 847 848 860 867 3848 3849 3852 3853 3858 3859 4057 4059 6158 6159 8199 8200 8209 8210 8239 8240 78896 78903 94180 94181 END PK ! G�C@� � 5.34.0/unicore/lib/Lb/BB.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V48 180 181 712 713 716 717 735 736 3191 3192 3204 3205 3841 3845 3846 3848 3849 3851 4048 4050 4051 4052 6150 6151 8189 8190 43124 43126 43260 43261 70005 70006 70107 70108 71105 71106 71264 71277 72162 72163 72255 72256 72261 72262 72350 72353 72816 72817 END PK ! Xs>�m m 5.34.0/unicore/lib/Lb/QU.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V26 34 35 39 40 171 172 187 188 8216 8218 8219 8222 8223 8224 8249 8251 10075 10081 11776 11790 11804 11806 11808 11810 128630 128633 END PK ! #A7W� � 5.34.0/unicore/lib/Lb/CL.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V166 125 126 3899 3900 3901 3902 5788 5789 8262 8263 8318 8319 8334 8335 8969 8970 8971 8972 9002 9003 10089 10090 10091 10092 10093 10094 10095 10096 10097 10098 10099 10100 10101 10102 10182 10183 10215 10216 10217 10218 10219 10220 10221 10222 10223 10224 10628 10629 10630 10631 10632 10633 10634 10635 10636 10637 10638 10639 10640 10641 10642 10643 10644 10645 10646 10647 10648 10649 10713 10714 10715 10716 10749 10750 11811 11812 11813 11814 11815 11816 11817 11818 12289 12291 12297 12298 12299 12300 12301 12302 12303 12304 12305 12306 12309 12310 12311 12312 12313 12314 12315 12316 12318 12320 64830 64831 65041 65043 65048 65049 65078 65079 65080 65081 65082 65083 65084 65085 65086 65087 65088 65089 65090 65091 65092 65093 65096 65097 65104 65105 65106 65107 65114 65115 65116 65117 65118 65119 65289 65290 65292 65293 65294 65295 65341 65342 65373 65374 65376 65378 65379 65381 78427 78430 78466 78467 78471 78472 78473 78474 78714 78716 78904 78905 83407 83408 END PK ! �\�9 9 5.34.0/unicore/lib/Lb/BA.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V196 9 10 124 125 173 174 1418 1419 1470 1471 2404 2406 3674 3676 3851 3852 3892 3893 3967 3968 3973 3974 4030 4032 4050 4051 4170 4172 4961 4962 5120 5121 5760 5761 5867 5870 5941 5943 6100 6102 6104 6105 6106 6107 6148 6150 7002 7004 7005 7009 7227 7232 7294 7296 8192 8199 8200 8203 8208 8209 8210 8212 8231 8232 8278 8279 8280 8284 8285 8288 11514 11517 11519 11520 11632 11633 11790 11798 11799 11800 11801 11802 11818 11822 11824 11826 11827 11829 11836 11839 11840 11842 11843 11851 11852 11853 11854 11856 12288 12289 42238 42240 42509 42510 42511 42512 42739 42744 43214 43216 43310 43312 43463 43466 43613 43616 43760 43762 44011 44012 65792 65795 66463 66464 66512 66513 67671 67672 67871 67872 68176 68184 68336 68342 68409 68416 69293 69294 69703 69705 69822 69826 69952 69956 70085 70087 70088 70089 70109 70112 70200 70202 70203 70205 70313 70314 70731 70735 70746 70748 71106 71108 71113 71128 71233 71235 71484 71487 72004 72007 72257 72261 72346 72349 72353 72355 72769 72774 73727 73728 74864 74869 92782 92784 92917 92918 92983 92986 92996 92997 93847 93849 113823 113824 121479 121483 END PK ! �.�+� � 5.34.0/unicore/lib/Lb/EX.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V48 33 34 63 64 1478 1479 1563 1564 1566 1568 1748 1749 2041 2042 3853 3858 3860 3861 6146 6148 6152 6154 6468 6470 10082 10084 11513 11514 11518 11519 11822 11823 42510 42511 43126 43128 65045 65047 65110 65112 65281 65282 65311 65312 71108 71110 72817 72818 END PK ! {p��3 3 5.34.0/unicore/lib/Lb/CJ.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V54 12353 12354 12355 12356 12357 12358 12359 12360 12361 12362 12387 12388 12419 12420 12421 12422 12423 12424 12430 12431 12437 12439 12449 12450 12451 12452 12453 12454 12455 12456 12457 12458 12483 12484 12515 12516 12517 12518 12519 12520 12526 12527 12533 12535 12540 12541 12784 12800 65383 65393 110928 110931 110948 110952 END PK ! � � 5.34.0/unicore/lib/Lb/IN.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 8228 8231 8943 8944 65049 65050 68342 68343 END PK ! �v� � 5.34.0/unicore/lib/Lb/PO.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V46 37 38 162 163 176 177 1545 1548 1642 1643 2546 2548 2553 2554 3449 3450 8240 8248 8359 8360 8374 8375 8379 8380 8382 8383 8451 8452 8457 8458 43064 43065 65020 65021 65130 65131 65285 65286 65504 65505 73693 73697 126124 126125 126128 126129 END PK ! �NkY Y 5.34.0/unicore/lib/Lb/SA.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V70 3585 3643 3648 3663 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3774 3776 3781 3782 3783 3784 3790 3804 3808 4096 4160 4176 4240 4250 4256 6016 6100 6103 6104 6108 6110 6480 6510 6512 6517 6528 6572 6576 6602 6618 6619 6622 6624 6688 6751 6752 6781 6816 6830 43488 43504 43514 43519 43616 43715 43739 43744 71424 71451 71453 71468 71482 71484 71487 71488 END PK ! a) �b b 5.34.0/unicore/lib/Lb/XX.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1265 888 890 896 900 907 908 909 910 930 931 1328 1329 1367 1369 1419 1421 1424 1425 1480 1488 1515 1519 1525 1536 1565 1566 1806 1807 1867 1869 1970 1984 2043 2045 2094 2096 2111 2112 2140 2142 2143 2144 2155 2208 2229 2230 2248 2259 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2559 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2679 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2802 2809 2816 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2901 2904 2908 2910 2911 2916 2918 2936 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3067 3072 3085 3086 3089 3090 3113 3114 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3163 3168 3172 3174 3184 3191 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3328 3341 3342 3345 3346 3397 3398 3401 3402 3408 3412 3428 3430 3456 3457 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3558 3568 3570 3573 3585 3643 3647 3676 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3808 3840 3912 3913 3949 3953 3992 3993 4029 4030 4045 4046 4059 4096 4294 4295 4296 4301 4302 4304 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4989 4992 5018 5024 5110 5112 5118 5120 5789 5792 5881 5888 5901 5902 5909 5920 5943 5952 5972 5984 5997 5998 6001 6002 6004 6016 6110 6112 6122 6128 6138 6144 6159 6160 6170 6176 6265 6272 6315 6320 6390 6400 6431 6432 6444 6448 6460 6464 6465 6468 6510 6512 6517 6528 6572 6576 6602 6608 6619 6622 6684 6686 6751 6752 6781 6783 6794 6800 6810 6816 6830 6832 6849 6912 6988 6992 7037 7040 7156 7164 7224 7227 7242 7245 7305 7312 7355 7357 7368 7376 7419 7424 7674 7675 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8293 8294 8306 8308 8335 8336 8349 8352 8433 8448 8588 8592 9255 9280 9291 9312 11124 11126 11158 11159 11311 11312 11359 11360 11508 11513 11558 11559 11560 11565 11566 11568 11624 11631 11633 11647 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11859 11904 11930 11931 12020 12032 12246 12272 12284 12288 12352 12353 12439 12441 12544 12549 12592 12593 12687 12688 12772 12784 12831 12832 42125 42128 42183 42192 42540 42560 42744 42752 42944 42946 42955 42997 43053 43056 43066 43072 43128 43136 43206 43214 43226 43232 43348 43359 43389 43392 43470 43471 43482 43486 43519 43520 43575 43584 43598 43600 43610 43612 43715 43739 43767 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43884 43888 44014 44016 44026 44032 55204 55216 55239 55243 55292 55296 57344 63744 64263 64275 64280 64285 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64450 64467 64832 64848 64912 64914 64968 65008 65022 65024 65050 65056 65107 65108 65127 65128 65132 65136 65141 65142 65277 65279 65280 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65529 65534 65536 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65792 65795 65799 65844 65847 65935 65936 65949 65952 65953 66000 66046 66176 66205 66208 66257 66272 66300 66304 66340 66349 66379 66384 66427 66432 66462 66463 66500 66504 66518 66560 66718 66720 66730 66736 66772 66776 66812 66816 66856 66864 66916 66927 66928 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67671 67743 67751 67760 67808 67827 67828 67830 67835 67868 67871 67898 67903 67904 67968 68024 68028 68048 68050 68100 68101 68103 68108 68116 68117 68120 68121 68150 68152 68155 68159 68169 68176 68185 68192 68256 68288 68327 68331 68343 68352 68406 68409 68438 68440 68467 68472 68498 68505 68509 68521 68528 68608 68681 68736 68787 68800 68851 68858 68904 68912 68922 69216 69247 69248 69290 69291 69294 69296 69298 69376 69416 69424 69466 69552 69580 69600 69623 69632 69710 69714 69744 69759 69826 69837 69838 69840 69865 69872 69882 69888 69941 69942 69960 69968 70007 70016 70112 70113 70133 70144 70162 70163 70207 70272 70279 70280 70281 70282 70286 70287 70302 70303 70314 70320 70379 70384 70394 70400 70404 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70459 70469 70471 70473 70475 70478 70480 70481 70487 70488 70493 70500 70502 70509 70512 70517 70656 70748 70749 70754 70784 70856 70864 70874 71040 71094 71096 71134 71168 71237 71248 71258 71264 71277 71296 71353 71360 71370 71424 71451 71453 71468 71472 71488 71680 71740 71840 71923 71935 71943 71945 71946 71948 71956 71957 71959 71960 71990 71991 71993 71995 72007 72016 72026 72096 72104 72106 72152 72154 72165 72192 72264 72272 72355 72384 72441 72704 72713 72714 72759 72760 72774 72784 72813 72816 72848 72850 72872 72873 72887 72960 72967 72968 72970 72971 73015 73018 73019 73020 73022 73023 73032 73040 73050 73056 73062 73063 73065 73066 73103 73104 73106 73107 73113 73120 73130 73440 73465 73648 73649 73664 73714 73727 74650 74752 74863 74864 74869 74880 75076 77824 78895 78896 78905 82944 83527 92160 92729 92736 92767 92768 92778 92782 92784 92880 92910 92912 92918 92928 92998 93008 93018 93019 93026 93027 93048 93053 93072 93760 93851 93952 94027 94031 94088 94095 94112 94176 94181 94192 94194 94208 100344 100352 101590 101632 101641 110592 110879 110928 110931 110948 110952 110960 111356 113664 113771 113776 113789 113792 113801 113808 113818 113820 113828 118784 119030 119040 119079 119081 119273 119296 119366 119520 119540 119552 119639 119648 119673 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 121484 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123136 123181 123184 123198 123200 123210 123214 123216 123584 123642 123647 123648 124928 125125 125127 125143 125184 125260 125264 125274 125278 125280 126065 126133 126209 126270 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 126704 126706 126976 129939 129940 129995 130032 130042 130048 131070 131072 196606 196608 262142 917505 917506 917536 917632 917760 918000 END PK ! �Z� E E 5.34.0/unicore/lib/Lb/IS.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V20 44 45 46 47 58 60 894 895 1417 1418 1548 1550 2040 2041 8260 8261 65040 65041 65043 65045 END PK ! j��)� � 5.34.0/unicore/lib/Lb/CM.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V556 0 9 14 32 127 133 134 160 768 847 848 860 867 880 1155 1162 1425 1470 1471 1472 1473 1475 1476 1478 1479 1480 1552 1563 1564 1565 1611 1632 1648 1649 1750 1757 1759 1765 1767 1769 1770 1774 1809 1810 1840 1867 1958 1969 2027 2036 2045 2046 2070 2074 2075 2084 2085 2088 2089 2094 2137 2140 2259 2274 2275 2308 2362 2365 2366 2384 2385 2392 2402 2404 2433 2436 2492 2493 2494 2501 2503 2505 2507 2510 2519 2520 2530 2532 2558 2559 2561 2564 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2672 2674 2677 2678 2689 2692 2748 2749 2750 2758 2759 2762 2763 2766 2786 2788 2810 2816 2817 2820 2876 2877 2878 2885 2887 2889 2891 2894 2901 2904 2914 2916 2946 2947 3006 3011 3014 3017 3018 3022 3031 3032 3072 3077 3134 3141 3142 3145 3146 3150 3157 3159 3170 3172 3201 3204 3260 3261 3262 3269 3270 3273 3274 3278 3285 3287 3298 3300 3328 3332 3387 3389 3390 3397 3398 3401 3402 3406 3415 3416 3426 3428 3457 3460 3530 3531 3535 3541 3542 3543 3544 3552 3570 3572 3864 3866 3893 3894 3895 3896 3897 3898 3902 3904 3953 3967 3968 3973 3974 3976 3981 3992 3993 4029 4038 4039 4957 4960 5906 5909 5938 5941 5970 5972 6002 6004 6155 6158 6277 6279 6313 6314 6432 6444 6448 6460 6679 6684 6783 6784 6832 6849 6912 6917 6964 6981 7019 7028 7040 7043 7073 7086 7142 7156 7204 7224 7376 7379 7380 7401 7405 7406 7412 7413 7415 7418 7616 7674 7675 7680 8204 8205 8206 8208 8234 8239 8294 8304 8400 8433 11503 11506 11647 11648 11744 11776 12330 12336 12341 12342 12441 12443 42607 42611 42612 42622 42654 42656 42736 42738 43010 43011 43014 43015 43019 43020 43043 43048 43052 43053 43136 43138 43188 43206 43232 43250 43263 43264 43302 43310 43335 43348 43392 43396 43443 43457 43561 43575 43587 43588 43596 43598 43755 43760 43765 43767 44003 44011 44012 44014 64286 64287 65024 65040 65056 65072 65529 65532 66045 66046 66272 66273 66422 66427 68097 68100 68101 68103 68108 68112 68152 68155 68159 68160 68325 68327 68900 68904 69291 69293 69446 69457 69632 69635 69688 69703 69759 69763 69808 69819 69888 69891 69927 69941 69957 69959 70003 70004 70016 70019 70067 70081 70089 70093 70094 70096 70188 70200 70206 70207 70367 70379 70400 70404 70459 70461 70462 70469 70471 70473 70475 70478 70487 70488 70498 70500 70502 70509 70512 70517 70709 70727 70750 70751 70832 70852 71087 71094 71096 71105 71132 71134 71216 71233 71339 71352 71724 71739 71984 71990 71991 71993 71995 71999 72000 72001 72002 72004 72145 72152 72154 72161 72164 72165 72193 72203 72243 72250 72251 72255 72263 72264 72273 72284 72330 72346 72751 72759 72760 72768 72850 72872 72873 72887 73009 73015 73018 73019 73020 73022 73023 73030 73031 73032 73098 73103 73104 73106 73107 73112 73459 73463 92912 92917 92976 92983 94031 94032 94033 94088 94095 94099 94192 94194 113821 113823 113824 113828 119141 119146 119149 119171 119173 119180 119210 119214 119362 119365 121344 121399 121403 121453 121461 121462 121476 121477 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123184 123191 123628 123632 125136 125143 125252 125259 917505 917506 917536 917632 917760 918000 END PK ! �D�K�# �# 5.34.0/unicore/lib/Lb/AL.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1540 35 36 38 39 42 43 60 63 64 91 94 123 126 127 166 167 169 170 172 173 174 176 181 182 192 215 216 247 248 711 718 720 721 728 732 733 734 735 736 768 880 888 890 894 895 896 900 907 908 909 910 930 931 1155 1162 1328 1329 1367 1369 1417 1421 1423 1472 1473 1475 1476 1523 1525 1536 1545 1550 1552 1568 1611 1645 1648 1649 1748 1749 1750 1757 1759 1765 1767 1769 1770 1774 1776 1786 1806 1807 1809 1810 1840 1869 1958 1969 1970 1994 2027 2036 2040 2042 2043 2048 2070 2074 2075 2084 2085 2088 2089 2096 2111 2112 2137 2142 2143 2144 2155 2208 2229 2230 2248 2274 2275 2308 2362 2365 2366 2384 2385 2392 2402 2416 2433 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2493 2494 2510 2511 2524 2526 2527 2530 2544 2546 2548 2553 2554 2555 2556 2558 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2649 2653 2654 2655 2674 2677 2678 2679 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2749 2750 2768 2769 2784 2786 2800 2801 2809 2810 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2877 2878 2908 2910 2911 2914 2928 2936 2947 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3024 3025 3056 3065 3066 3067 3077 3085 3086 3089 3090 3113 3114 3130 3133 3134 3160 3163 3168 3170 3192 3201 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3261 3262 3294 3295 3296 3298 3313 3315 3332 3341 3342 3345 3346 3387 3389 3390 3406 3408 3412 3415 3416 3426 3440 3449 3450 3456 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3572 3573 3663 3664 3840 3841 3845 3846 3859 3860 3861 3864 3866 3872 3882 3892 3894 3895 3896 3897 3904 3912 3913 3949 3976 3981 4032 4038 4039 4045 4046 4048 4052 4057 4172 4176 4256 4294 4295 4296 4301 4302 4304 4352 4608 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4960 4961 4962 4989 4992 5018 5024 5110 5112 5118 5121 5760 5761 5787 5792 5867 5870 5881 5888 5901 5902 5906 5920 5938 5952 5970 5984 5997 5998 6001 6105 6106 6128 6138 6144 6146 6151 6152 6154 6155 6176 6265 6272 6277 6279 6313 6314 6315 6320 6390 6400 6431 6464 6465 6624 6679 6686 6688 6917 6964 6981 6988 7004 7005 7009 7019 7028 7037 7043 7073 7086 7088 7098 7142 7164 7204 7245 7248 7258 7294 7296 7305 7312 7355 7357 7368 7379 7380 7401 7405 7406 7412 7413 7415 7418 7419 7424 7616 7680 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8189 8190 8191 8215 8216 8226 8228 8248 8249 8254 8260 8266 8278 8279 8280 8284 8285 8289 8293 8304 8306 8309 8317 8320 8321 8325 8333 8336 8349 8448 8451 8452 8453 8454 8457 8458 8467 8468 8470 8471 8481 8483 8491 8492 8532 8534 8539 8540 8542 8543 8544 8556 8560 8570 8585 8586 8588 8602 8658 8659 8660 8661 8704 8705 8706 8708 8711 8713 8715 8716 8719 8720 8721 8724 8725 8726 8730 8731 8733 8737 8739 8740 8741 8742 8743 8749 8750 8751 8756 8760 8764 8766 8776 8777 8780 8781 8786 8787 8800 8802 8804 8808 8810 8812 8814 8816 8834 8836 8838 8840 8853 8854 8857 8858 8869 8870 8895 8896 8943 8944 8968 8972 8978 8979 8986 8988 9001 9003 9200 9204 9255 9280 9291 9471 9472 9548 9552 9589 9600 9616 9618 9622 9632 9634 9635 9642 9650 9652 9654 9656 9660 9662 9664 9666 9670 9673 9675 9676 9678 9682 9698 9702 9711 9712 9728 9732 9733 9735 9737 9738 9742 9744 9748 9753 9754 9760 9785 9788 9792 9793 9794 9795 9824 9826 9827 9830 9831 9835 9836 9838 9839 9840 9855 9856 9886 9888 9917 9934 9935 9954 9955 9956 9960 9989 9992 9998 10071 10072 10075 10081 10082 10085 10088 10132 10181 10183 10214 10224 10627 10649 10712 10716 10748 10750 11093 11098 11124 11126 11158 11159 11311 11312 11359 11360 11503 11506 11508 11517 11518 11520 11558 11559 11560 11565 11566 11568 11624 11631 11632 11648 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11798 11799 11802 11804 11806 11808 11823 11824 11826 11827 11829 11834 11839 11840 11851 11852 11853 11854 11856 11859 19904 19968 42192 42238 42240 42509 42512 42528 42538 42540 42560 42607 42611 42612 42622 42654 42656 42736 42738 42739 42752 42944 42946 42955 42997 43010 43011 43014 43015 43019 43020 43043 43048 43052 43056 43064 43065 43066 43072 43124 43138 43188 43250 43260 43261 43263 43274 43302 43312 43335 43359 43360 43396 43443 43457 43463 43466 43470 43471 43472 43486 43488 43520 43561 43584 43587 43588 43596 43612 43613 43744 43755 43762 43765 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43884 43888 44003 64256 64263 64275 64280 64297 64298 64336 64450 64467 64830 64848 64912 64914 64968 65008 65020 65021 65022 65136 65141 65142 65277 65512 65519 65536 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65799 65844 65847 65935 65936 65949 65952 65953 66000 66045 66176 66205 66208 66257 66273 66300 66304 66340 66349 66379 66384 66422 66432 66462 66464 66500 66504 66512 66513 66518 66560 66718 66736 66772 66776 66812 66816 66856 66864 66916 66927 66928 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67672 67743 67751 67760 67808 67827 67828 67830 67835 67868 67872 67898 67903 67904 67968 68024 68028 68048 68050 68097 68112 68116 68117 68120 68121 68150 68160 68169 68184 68185 68192 68256 68288 68325 68331 68336 68352 68406 68416 68438 68440 68467 68472 68498 68505 68509 68521 68528 68608 68681 68736 68787 68800 68851 68858 68900 69216 69247 69248 69290 69296 69298 69376 69416 69424 69446 69457 69466 69552 69580 69600 69623 69635 69688 69705 69710 69714 69734 69763 69808 69819 69822 69837 69838 69840 69865 69891 69927 69956 69957 69959 69960 69968 70003 70004 70005 70006 70007 70019 70067 70081 70085 70087 70088 70093 70094 70106 70107 70108 70109 70113 70133 70144 70162 70163 70188 70202 70203 70205 70206 70272 70279 70280 70281 70282 70286 70287 70302 70303 70313 70320 70367 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70461 70462 70480 70481 70493 70498 70656 70709 70727 70731 70735 70736 70749 70750 70751 70754 70784 70832 70852 70856 71040 71087 71110 71113 71128 71132 71168 71216 71235 71237 71296 71339 71352 71353 71680 71724 71739 71740 71840 71904 71914 71923 71935 71943 71945 71946 71948 71956 71957 71959 71960 71984 71999 72000 72001 72002 72096 72104 72106 72145 72161 72162 72163 72164 72192 72193 72203 72243 72250 72251 72256 72257 72262 72263 72272 72273 72284 72330 72349 72350 72384 72441 72704 72713 72714 72751 72768 72769 72794 72813 72818 72848 72960 72967 72968 72970 72971 73009 73030 73031 73056 73062 73063 73065 73066 73098 73112 73113 73440 73459 73463 73465 73648 73649 73664 73693 73697 73714 73728 74650 74752 74863 74880 75076 77824 78424 78430 78466 78467 78470 78474 78713 78716 78895 82944 83406 83408 83527 92160 92729 92736 92767 92880 92910 92928 92976 92986 92996 92997 92998 93019 93026 93027 93048 93053 93072 93760 93847 93849 93851 93952 94027 94032 94033 94099 94112 101120 101590 113664 113771 113776 113789 113792 113801 113808 113818 113820 113821 118784 119030 119040 119079 119081 119141 119146 119149 119171 119173 119180 119210 119214 119273 119296 119362 119365 119366 119520 119540 119552 119639 119648 119673 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120832 121344 121399 121403 121453 121461 121462 121476 121477 121479 121483 121484 123136 123181 123191 123198 123214 123216 123584 123628 124928 125125 125127 125136 125184 125252 125259 125260 126065 126124 126125 126128 126129 126133 126209 126270 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 126704 126706 127278 127280 127338 127341 127900 127902 127925 127927 127932 127933 128160 128161 128162 128163 128164 128165 128175 128176 128177 128179 128256 128263 128279 128293 128306 128330 128468 128476 128500 128506 128592 128630 128636 128640 128768 128884 128896 128981 129024 129036 129040 129096 129104 129114 129120 129160 129168 129198 129280 129292 129536 129620 129792 129939 129940 129995 END PK ! �$O� 5.34.0/unicore/lib/Lb/ID.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V330 8986 8988 9200 9204 9728 9732 9748 9750 9752 9753 9754 9757 9758 9760 9785 9788 9832 9833 9855 9856 9917 9929 9933 9934 9935 9938 9939 9941 9944 9946 9948 9949 9951 9954 9962 9963 9969 9974 9975 9977 9978 9979 9981 9989 9992 9994 10084 10085 11904 11930 11931 12020 12032 12246 12272 12284 12291 12293 12294 12296 12306 12308 12320 12330 12336 12341 12342 12347 12349 12352 12354 12355 12356 12357 12358 12359 12360 12361 12362 12387 12388 12419 12420 12421 12422 12423 12424 12430 12431 12437 12447 12448 12450 12451 12452 12453 12454 12455 12456 12457 12458 12483 12484 12515 12516 12517 12518 12519 12520 12526 12527 12533 12535 12539 12543 12544 12549 12592 12593 12687 12688 12772 12800 12831 12832 12872 12880 19904 19968 40981 40982 42125 42128 42183 63744 64256 65072 65077 65093 65095 65097 65104 65105 65106 65112 65113 65119 65127 65128 65129 65131 65132 65282 65284 65286 65288 65290 65292 65293 65294 65295 65306 65308 65311 65312 65339 65340 65341 65342 65371 65372 65373 65374 65375 65382 65383 65393 65438 65440 65471 65474 65480 65482 65488 65490 65496 65498 65501 65506 65509 94208 100344 100352 101120 101632 101641 110592 110879 110960 111356 126976 127232 127245 127248 127341 127344 127405 127462 127488 127877 127878 127900 127902 127925 127927 127932 127933 127938 127941 127943 127944 127946 127949 127995 128000 128066 128068 128070 128081 128102 128121 128124 128125 128129 128132 128133 128136 128143 128144 128145 128146 128160 128161 128162 128163 128164 128165 128170 128171 128175 128176 128177 128179 128256 128263 128279 128293 128306 128330 128372 128374 128378 128379 128400 128401 128405 128407 128468 128476 128500 128506 128581 128584 128587 128640 128675 128676 128692 128695 128704 128705 128716 128717 128768 128884 128896 128981 129024 129036 129040 129096 129104 129114 129120 129160 129168 129198 129280 129293 129295 129296 129304 129312 129318 129319 129328 129338 129340 129343 129399 129400 129461 129463 129464 129466 129467 129468 129485 129488 129489 129502 129536 129620 129792 130048 131070 131072 196606 196608 262142 END PK ! �+#ʼ � 5.34.0/unicore/lib/Lb/OP.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V170 40 41 91 92 123 124 161 162 191 192 3898 3899 3900 3901 5787 5788 8218 8219 8222 8223 8261 8262 8317 8318 8333 8334 8968 8969 8970 8971 9001 9002 10088 10089 10090 10091 10092 10093 10094 10095 10096 10097 10098 10099 10100 10101 10181 10182 10214 10215 10216 10217 10218 10219 10220 10221 10222 10223 10627 10628 10629 10630 10631 10632 10633 10634 10635 10636 10637 10638 10639 10640 10641 10642 10643 10644 10645 10646 10647 10648 10712 10713 10714 10715 10748 10749 11800 11801 11810 11811 11812 11813 11814 11815 11816 11817 11842 11843 12296 12297 12298 12299 12300 12301 12302 12303 12304 12305 12308 12309 12310 12311 12312 12313 12314 12315 12317 12318 64831 64832 65047 65048 65077 65078 65079 65080 65081 65082 65083 65084 65085 65086 65087 65088 65089 65090 65091 65092 65095 65096 65113 65114 65115 65116 65117 65118 65288 65289 65339 65340 65371 65372 65375 65376 65378 65379 78424 78427 78470 78471 78472 78473 78713 78714 78903 78904 83406 83407 125278 125280 END PK ! (bJ" J" 5.34.0/unicore/lib/IDC/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1460 48 58 65 91 95 96 97 123 170 171 181 182 183 184 186 187 192 215 216 247 248 706 710 722 736 741 748 749 750 751 768 885 886 888 890 894 895 896 902 907 908 909 910 930 931 1014 1015 1154 1155 1160 1162 1328 1329 1367 1369 1370 1376 1417 1425 1470 1471 1472 1473 1475 1476 1478 1479 1480 1488 1515 1519 1523 1552 1563 1568 1642 1646 1748 1749 1757 1759 1769 1770 1789 1791 1792 1808 1867 1869 1970 1984 2038 2042 2043 2045 2046 2048 2094 2112 2140 2144 2155 2208 2229 2230 2248 2259 2274 2275 2404 2406 2416 2417 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2546 2556 2557 2558 2559 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2678 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2800 2809 2816 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2901 2904 2908 2910 2911 2916 2918 2928 2929 2930 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3056 3072 3085 3086 3089 3090 3113 3114 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3163 3168 3172 3174 3184 3200 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3328 3341 3342 3345 3346 3397 3398 3401 3402 3407 3412 3416 3423 3428 3430 3440 3450 3456 3457 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3558 3568 3570 3572 3585 3643 3648 3663 3664 3674 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3808 3840 3841 3864 3866 3872 3882 3893 3894 3895 3896 3897 3898 3902 3912 3913 3949 3953 3973 3974 3992 3993 4029 4038 4039 4096 4170 4176 4254 4256 4294 4295 4296 4301 4302 4304 4347 4348 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4960 4969 4978 4992 5008 5024 5110 5112 5118 5121 5741 5743 5760 5761 5787 5792 5867 5870 5881 5888 5901 5902 5909 5920 5941 5952 5972 5984 5997 5998 6001 6002 6004 6016 6100 6103 6104 6108 6110 6112 6122 6155 6158 6160 6170 6176 6265 6272 6315 6320 6390 6400 6431 6432 6444 6448 6460 6470 6510 6512 6517 6528 6572 6576 6602 6608 6619 6656 6684 6688 6751 6752 6781 6783 6794 6800 6810 6823 6824 6832 6846 6847 6849 6912 6988 6992 7002 7019 7028 7040 7156 7168 7224 7232 7242 7245 7294 7296 7305 7312 7355 7357 7360 7376 7379 7380 7419 7424 7674 7675 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8125 8126 8127 8130 8133 8134 8141 8144 8148 8150 8156 8160 8173 8178 8181 8182 8189 8255 8257 8276 8277 8305 8306 8319 8320 8336 8349 8400 8413 8417 8418 8421 8433 8450 8451 8455 8456 8458 8468 8469 8470 8472 8478 8484 8485 8486 8487 8488 8489 8490 8506 8508 8512 8517 8522 8526 8527 8544 8585 11264 11311 11312 11359 11360 11493 11499 11508 11520 11558 11559 11560 11565 11566 11568 11624 11631 11632 11647 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11776 12293 12296 12321 12336 12337 12342 12344 12349 12353 12439 12441 12448 12449 12539 12540 12544 12549 12592 12593 12687 12704 12736 12784 12800 13312 19904 19968 40957 40960 42125 42192 42238 42240 42509 42512 42540 42560 42608 42612 42622 42623 42738 42775 42784 42786 42889 42891 42944 42946 42955 42997 43048 43052 43053 43072 43124 43136 43206 43216 43226 43232 43256 43259 43260 43261 43310 43312 43348 43360 43389 43392 43457 43471 43482 43488 43519 43520 43575 43584 43598 43600 43610 43616 43639 43642 43715 43739 43742 43744 43760 43762 43767 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43867 43868 43882 43888 44011 44012 44014 44016 44026 44032 55204 55216 55239 55243 55292 63744 64110 64112 64218 64256 64263 64275 64280 64285 64297 64298 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64830 64848 64912 64914 64968 65008 65020 65024 65040 65056 65072 65075 65077 65101 65104 65136 65141 65142 65277 65296 65306 65313 65339 65343 65344 65345 65371 65382 65471 65474 65480 65482 65488 65490 65496 65498 65501 65536 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65856 65909 66045 66046 66176 66205 66208 66257 66272 66273 66304 66336 66349 66379 66384 66427 66432 66462 66464 66500 66504 66512 66513 66518 66560 66718 66720 66730 66736 66772 66776 66812 66816 66856 66864 66916 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67680 67703 67712 67743 67808 67827 67828 67830 67840 67862 67872 67898 67968 68024 68030 68032 68096 68100 68101 68103 68108 68116 68117 68120 68121 68150 68152 68155 68159 68160 68192 68221 68224 68253 68288 68296 68297 68327 68352 68406 68416 68438 68448 68467 68480 68498 68608 68681 68736 68787 68800 68851 68864 68904 68912 68922 69248 69290 69291 69293 69296 69298 69376 69405 69415 69416 69424 69457 69552 69573 69600 69623 69632 69703 69734 69744 69759 69819 69840 69865 69872 69882 69888 69941 69942 69952 69956 69960 69968 70004 70006 70007 70016 70085 70089 70093 70094 70107 70108 70109 70144 70162 70163 70200 70206 70207 70272 70279 70280 70281 70282 70286 70287 70302 70303 70313 70320 70379 70384 70394 70400 70404 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70459 70469 70471 70473 70475 70478 70480 70481 70487 70488 70493 70500 70502 70509 70512 70517 70656 70731 70736 70746 70750 70754 70784 70854 70855 70856 70864 70874 71040 71094 71096 71105 71128 71134 71168 71233 71236 71237 71248 71258 71296 71353 71360 71370 71424 71451 71453 71468 71472 71482 71680 71739 71840 71914 71935 71943 71945 71946 71948 71956 71957 71959 71960 71990 71991 71993 71995 72004 72016 72026 72096 72104 72106 72152 72154 72162 72163 72165 72192 72255 72263 72264 72272 72346 72349 72350 72384 72441 72704 72713 72714 72759 72760 72769 72784 72794 72818 72848 72850 72872 72873 72887 72960 72967 72968 72970 72971 73015 73018 73019 73020 73022 73023 73032 73040 73050 73056 73062 73063 73065 73066 73103 73104 73106 73107 73113 73120 73130 73440 73463 73648 73649 73728 74650 74752 74863 74880 75076 77824 78895 82944 83527 92160 92729 92736 92767 92768 92778 92880 92910 92912 92917 92928 92983 92992 92996 93008 93018 93027 93048 93053 93072 93760 93824 93952 94027 94031 94088 94095 94112 94176 94178 94179 94181 94192 94194 94208 100344 100352 101590 101632 101641 110592 110879 110928 110931 110948 110952 110960 111356 113664 113771 113776 113789 113792 113801 113808 113818 113821 113823 119141 119146 119149 119155 119163 119171 119173 119180 119210 119214 119362 119365 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120513 120514 120539 120540 120571 120572 120597 120598 120629 120630 120655 120656 120687 120688 120713 120714 120745 120746 120771 120772 120780 120782 120832 121344 121399 121403 121453 121461 121462 121476 121477 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123136 123181 123184 123198 123200 123210 123214 123215 123584 123642 124928 125125 125136 125143 125184 125260 125264 125274 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 130032 130042 131072 173790 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196608 201547 917760 918000 END PK ! ~..�g g % 5.34.0/unicore/lib/IdType/Recommen.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V732 48 58 65 91 95 96 97 123 192 215 216 247 248 306 308 319 321 329 330 383 399 400 416 418 431 433 461 477 478 484 486 497 500 502 504 540 542 544 550 564 601 602 699 701 748 749 768 773 774 781 783 786 787 789 795 796 803 809 813 815 816 818 821 822 824 826 834 835 837 838 891 894 902 903 904 907 908 909 910 930 931 975 1020 1120 1162 1280 1296 1322 1326 1328 1329 1367 1369 1370 1377 1415 1460 1461 1488 1515 1519 1523 1568 1600 1601 1622 1632 1642 1648 1651 1652 1653 1657 1678 1679 1697 1698 1748 1749 1750 1765 1767 1774 1789 1791 1792 1872 1970 2208 2221 2226 2227 2230 2248 2305 2382 2383 2385 2390 2392 2400 2404 2406 2416 2417 2424 2425 2432 2433 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2528 2532 2534 2546 2558 2559 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2611 2613 2614 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2652 2653 2662 2677 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2800 2810 2816 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2884 2887 2889 2891 2894 2901 2904 2911 2914 2918 2928 2929 2930 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3056 3073 3085 3086 3089 3090 3113 3114 3124 3125 3130 3133 3141 3142 3145 3146 3150 3157 3159 3168 3170 3174 3184 3200 3201 3202 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3296 3300 3302 3312 3313 3315 3328 3329 3330 3332 3333 3341 3342 3345 3346 3387 3389 3396 3398 3401 3402 3407 3412 3416 3424 3426 3430 3440 3450 3456 3458 3460 3461 3471 3473 3479 3482 3494 3495 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3551 3570 3571 3585 3635 3636 3643 3648 3663 3664 3674 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3763 3764 3774 3776 3781 3782 3783 3784 3790 3792 3802 3806 3808 3840 3841 3872 3882 3893 3894 3895 3896 3902 3907 3908 3912 3913 3917 3918 3922 3923 3927 3928 3932 3933 3945 3946 3949 3953 3955 3956 3957 3962 3969 3970 3973 3974 3987 3988 3992 3993 3997 3998 4002 4003 4007 4008 4012 4013 4025 4026 4029 4038 4039 4096 4170 4176 4254 4295 4296 4301 4302 4304 4337 4343 4347 4349 4352 4608 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4960 4992 5008 6016 6051 6053 6056 6057 6068 6070 6091 6098 6099 6103 6104 6108 6109 6112 6122 7312 7355 7357 7360 7680 7834 7838 7839 7840 7930 7936 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8049 8050 8051 8052 8053 8054 8055 8056 8057 8058 8059 8060 8061 8064 8117 8118 8123 8124 8125 8130 8133 8134 8137 8138 8139 8140 8141 8144 8147 8150 8155 8160 8163 8164 8171 8172 8173 8178 8181 8182 8185 8186 8187 8188 8189 11559 11560 11565 11566 11648 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 12293 12296 12353 12439 12441 12443 12445 12447 12449 12539 12540 12543 12549 12590 12591 12592 12704 12736 13312 19904 19968 40957 42623 42624 42775 42784 42888 42889 42893 42894 42898 42900 42922 42923 42926 42927 42936 42938 42946 42955 43495 43519 43616 43639 43642 43648 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43878 43880 44032 55204 64014 64016 64017 64018 64019 64021 64031 64032 64033 64034 64035 64037 64039 64042 70401 70402 70403 70404 70459 70461 94192 94194 110928 110931 110948 110952 131072 173790 173824 177973 177984 178206 178208 183970 183984 191457 196608 201547 END PK ! l�f� � % 5.34.0/unicore/lib/IdType/NotChara.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1357 0 9 14 32 127 133 134 160 888 890 896 900 907 908 909 910 930 931 1328 1329 1367 1369 1419 1421 1424 1425 1480 1488 1515 1519 1525 1536 1565 1566 1806 1807 1867 1869 1970 1984 2043 2045 2094 2096 2111 2112 2140 2142 2143 2144 2155 2208 2229 2230 2248 2259 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2559 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2679 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2802 2809 2816 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2901 2904 2908 2910 2911 2916 2918 2936 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3067 3072 3085 3086 3089 3090 3113 3114 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3163 3168 3172 3174 3184 3191 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3328 3341 3342 3345 3346 3397 3398 3401 3402 3408 3412 3428 3430 3456 3457 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3558 3568 3570 3573 3585 3643 3647 3676 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3808 3840 3912 3913 3949 3953 3992 3993 4029 4030 4045 4046 4059 4096 4294 4295 4296 4301 4302 4304 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4989 4992 5018 5024 5110 5112 5118 5120 5789 5792 5881 5888 5901 5902 5909 5920 5943 5952 5972 5984 5997 5998 6001 6002 6004 6016 6110 6112 6122 6128 6138 6144 6159 6160 6170 6176 6265 6272 6315 6320 6390 6400 6431 6432 6444 6448 6460 6464 6465 6468 6510 6512 6517 6528 6572 6576 6602 6608 6619 6622 6684 6686 6751 6752 6781 6783 6794 6800 6810 6816 6830 6832 6849 6912 6988 6992 7037 7040 7156 7164 7224 7227 7242 7245 7305 7312 7355 7357 7368 7376 7419 7424 7674 7675 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8293 8294 8306 8308 8335 8336 8349 8352 8384 8400 8433 8448 8588 8592 9255 9280 9291 9312 11124 11126 11158 11159 11311 11312 11359 11360 11508 11513 11558 11559 11560 11565 11566 11568 11624 11631 11633 11647 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11859 11904 11930 11931 12020 12032 12246 12272 12284 12288 12352 12353 12439 12441 12544 12549 12592 12593 12687 12688 12772 12784 12831 12832 40957 40960 42125 42128 42183 42192 42540 42560 42744 42752 42944 42946 42955 42997 43053 43056 43066 43072 43128 43136 43206 43214 43226 43232 43348 43359 43389 43392 43470 43471 43482 43486 43519 43520 43575 43584 43598 43600 43610 43612 43715 43739 43767 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43884 43888 44014 44016 44026 44032 55204 55216 55239 55243 55292 63744 64110 64112 64218 64256 64263 64275 64280 64285 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64450 64467 64832 64848 64912 64914 64968 65008 65022 65024 65050 65056 65107 65108 65127 65128 65132 65136 65141 65142 65277 65279 65280 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65529 65534 65536 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65792 65795 65799 65844 65847 65935 65936 65949 65952 65953 66000 66046 66176 66205 66208 66257 66272 66300 66304 66340 66349 66379 66384 66427 66432 66462 66463 66500 66504 66518 66560 66718 66720 66730 66736 66772 66776 66812 66816 66856 66864 66916 66927 66928 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67671 67743 67751 67760 67808 67827 67828 67830 67835 67868 67871 67898 67903 67904 67968 68024 68028 68048 68050 68100 68101 68103 68108 68116 68117 68120 68121 68150 68152 68155 68159 68169 68176 68185 68192 68256 68288 68327 68331 68343 68352 68406 68409 68438 68440 68467 68472 68498 68505 68509 68521 68528 68608 68681 68736 68787 68800 68851 68858 68904 68912 68922 69216 69247 69248 69290 69291 69294 69296 69298 69376 69416 69424 69466 69552 69580 69600 69623 69632 69710 69714 69744 69759 69826 69837 69838 69840 69865 69872 69882 69888 69941 69942 69960 69968 70007 70016 70112 70113 70133 70144 70162 70163 70207 70272 70279 70280 70281 70282 70286 70287 70302 70303 70314 70320 70379 70384 70394 70400 70404 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70459 70469 70471 70473 70475 70478 70480 70481 70487 70488 70493 70500 70502 70509 70512 70517 70656 70748 70749 70754 70784 70856 70864 70874 71040 71094 71096 71134 71168 71237 71248 71258 71264 71277 71296 71353 71360 71370 71424 71451 71453 71468 71472 71488 71680 71740 71840 71923 71935 71943 71945 71946 71948 71956 71957 71959 71960 71990 71991 71993 71995 72007 72016 72026 72096 72104 72106 72152 72154 72165 72192 72264 72272 72355 72384 72441 72704 72713 72714 72759 72760 72774 72784 72813 72816 72848 72850 72872 72873 72887 72960 72967 72968 72970 72971 73015 73018 73019 73020 73022 73023 73032 73040 73050 73056 73062 73063 73065 73066 73103 73104 73106 73107 73113 73120 73130 73440 73465 73648 73649 73664 73714 73727 74650 74752 74863 74864 74869 74880 75076 77824 78895 78896 78905 82944 83527 92160 92729 92736 92767 92768 92778 92782 92784 92880 92910 92912 92918 92928 92998 93008 93018 93019 93026 93027 93048 93053 93072 93760 93851 93952 94027 94031 94088 94095 94112 94176 94181 94192 94194 94208 100344 100352 101590 101632 101641 110592 110879 110928 110931 110948 110952 110960 111356 113664 113771 113776 113789 113792 113801 113808 113818 113820 113828 118784 119030 119040 119079 119081 119273 119296 119366 119520 119540 119552 119639 119648 119673 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 121484 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123136 123181 123184 123198 123200 123210 123214 123216 123584 123642 123647 123648 124928 125125 125127 125143 125184 125260 125264 125274 125278 125280 126065 126133 126209 126270 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 126704 126706 126976 127020 127024 127124 127136 127151 127153 127168 127169 127184 127185 127222 127232 127406 127462 127491 127504 127548 127552 127561 127568 127570 127584 127590 127744 128728 128736 128749 128752 128765 128768 128884 128896 128985 128992 129004 129024 129036 129040 129096 129104 129114 129120 129160 129168 129198 129200 129202 129280 129401 129402 129484 129485 129620 129632 129646 129648 129653 129656 129659 129664 129671 129680 129705 129712 129719 129728 129731 129744 129751 129792 129939 129940 129995 130032 130042 131072 173790 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196608 201547 917505 917506 917536 917632 917760 918000 END PK ! ?��� $ 5.34.0/unicore/lib/IdType/NotNFKC.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V502 160 161 168 169 170 171 175 176 178 182 184 187 188 191 306 308 319 321 383 384 452 461 497 500 688 697 728 734 736 741 832 834 835 837 884 885 890 891 894 895 900 902 903 904 976 983 1008 1011 1012 1014 1017 1018 1415 1416 1653 1657 2392 2400 2524 2526 2527 2528 2611 2612 2614 2615 2649 2652 2654 2655 2908 2910 3635 3636 3763 3764 3804 3806 3852 3853 3907 3908 3917 3918 3922 3923 3927 3928 3932 3933 3945 3946 3955 3956 3957 3959 3960 3961 3969 3970 3987 3988 3997 3998 4002 4003 4007 4008 4012 4013 4025 4026 4348 4349 7468 7471 7472 7483 7484 7502 7503 7531 7544 7545 7579 7616 7834 7836 8049 8050 8051 8052 8053 8054 8055 8056 8057 8058 8059 8060 8061 8062 8123 8124 8125 8130 8137 8138 8139 8140 8141 8144 8147 8148 8155 8156 8157 8160 8163 8164 8171 8172 8173 8176 8185 8186 8187 8188 8189 8191 8192 8203 8209 8210 8215 8216 8228 8231 8239 8240 8243 8245 8246 8248 8252 8253 8254 8255 8263 8266 8279 8280 8287 8288 8304 8306 8308 8335 8336 8349 8360 8361 8448 8452 8453 8456 8457 8468 8469 8471 8473 8478 8480 8483 8484 8485 8486 8487 8488 8489 8490 8494 8495 8498 8499 8506 8507 8513 8517 8522 8528 8576 8585 8586 8748 8750 8751 8753 9312 9451 10764 10765 10868 10871 10972 10973 11388 11390 11631 11632 11935 11936 12019 12020 12032 12246 12288 12289 12342 12343 12344 12347 12443 12445 12447 12448 12543 12544 12593 12644 12645 12687 12690 12704 12800 12831 12832 12872 12880 12927 12928 13312 42652 42654 42864 42865 43000 43002 43868 43872 43881 43882 63744 64014 64016 64017 64018 64019 64021 64031 64032 64033 64034 64035 64037 64039 64042 64110 64112 64218 64256 64263 64275 64280 64285 64286 64287 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64830 64848 64912 64914 64968 65008 65021 65040 65050 65072 65093 65095 65107 65108 65127 65128 65132 65136 65139 65140 65141 65142 65277 65281 65440 65441 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 119134 119141 119227 119233 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 120832 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 127232 127243 127248 127279 127280 127312 127338 127341 127376 127377 127488 127491 127504 127548 127552 127561 127568 127570 130032 130042 194560 195102 END PK ! �.M� � % 5.34.0/unicore/lib/IdType/DefaultI.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V38 173 174 847 848 1564 1565 4447 4449 6068 6070 6155 6159 8203 8204 8206 8208 8234 8239 8288 8293 8294 8298 12644 12645 65024 65040 65279 65280 65440 65441 113824 113828 119155 119163 917536 917632 917760 918000 END PK ! k�,: : # 5.34.0/unicore/lib/IdType/NotXID.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V690 9 14 32 39 40 45 47 48 59 65 91 95 96 97 123 127 133 134 161 168 169 170 171 173 174 175 176 178 182 183 187 188 191 192 215 216 247 248 706 710 722 728 734 736 741 748 749 750 751 768 1014 1015 1154 1155 1160 1162 1370 1376 1417 1418 1421 1424 1470 1471 1472 1473 1475 1476 1478 1479 1536 1552 1563 1564 1566 1568 1642 1646 1748 1749 1757 1759 1769 1770 1792 1806 1807 1808 2038 2042 2046 2048 2096 2111 2142 2143 2274 2275 2404 2406 2416 2417 2546 2556 2557 2558 2678 2679 2800 2802 2928 2929 2930 2936 3056 3067 3191 3200 3204 3205 3407 3408 3416 3423 3440 3450 3572 3573 3647 3648 3663 3664 3674 3676 3841 3851 3853 3864 3866 3872 3882 3893 3894 3895 3896 3897 3898 3902 3973 3974 4030 4038 4039 4045 4046 4059 4170 4176 4254 4256 4347 4348 4960 4969 4978 4989 5008 5018 5120 5121 5741 5743 5760 5761 5787 5789 5867 5870 5941 5943 6100 6103 6104 6108 6128 6138 6144 6155 6464 6465 6468 6470 6622 6656 6686 6688 6816 6823 6824 6830 6846 6847 7002 7019 7028 7037 7164 7168 7227 7232 7294 7296 7360 7368 7379 7380 8210 8215 8216 8217 8218 8228 8232 8234 8240 8243 8245 8246 8248 8252 8253 8254 8257 8263 8266 8276 8277 8279 8280 8287 8352 8360 8361 8384 8413 8417 8418 8421 8452 8453 8456 8457 8468 8469 8471 8472 8478 8480 8483 8484 8485 8486 8487 8488 8489 8490 8506 8507 8513 8517 8522 8526 8527 8528 8586 8588 8592 8748 8750 8751 8753 9001 9003 9255 9280 9291 9451 10764 10765 10868 10871 10972 10973 11124 11126 11158 11159 11264 11493 11499 11513 11520 11632 11633 11776 11859 11904 11930 11931 11935 11936 12019 12272 12284 12289 12293 12296 12321 12336 12337 12343 12344 12349 12352 12688 12690 12736 12772 12872 12880 12927 12928 19904 19968 42128 42183 42238 42240 42509 42512 42608 42612 42622 42623 42738 42744 42752 42775 42784 42786 42889 42891 43048 43052 43056 43066 43124 43128 43214 43216 43256 43259 43260 43261 43310 43312 43359 43360 43457 43470 43486 43488 43612 43616 43639 43642 43742 43744 43760 43762 43867 43868 43882 43884 44011 44012 64434 64450 64830 64832 65021 65022 65093 65095 65529 65534 65792 65795 65799 65844 65847 65856 65909 65935 65936 65949 65952 65953 66000 66045 66273 66300 66336 66340 66463 66464 66512 66513 66927 66928 67671 67680 67703 67712 67751 67760 67835 67840 67862 67868 67871 67872 67903 67904 68028 68030 68032 68048 68050 68096 68160 68169 68176 68185 68221 68224 68253 68256 68296 68297 68331 68343 68409 68416 68440 68448 68472 68480 68505 68509 68521 68528 68858 68864 69216 69247 69293 69294 69405 69415 69457 69466 69573 69580 69703 69710 69714 69734 69819 69826 69837 69838 69952 69956 70004 70006 70085 70089 70093 70094 70107 70108 70109 70112 70113 70133 70200 70206 70313 70314 70731 70736 70746 70748 70749 70750 70854 70855 71105 71128 71233 71236 71264 71277 71482 71488 71739 71740 71914 71923 72004 72007 72162 72163 72255 72263 72346 72349 72350 72355 72769 72774 72794 72813 72816 72818 73463 73465 73664 73714 73727 73728 74864 74869 78896 78905 92782 92784 92917 92918 92983 92992 92996 92998 93019 93026 93824 93851 94178 94179 113820 113821 113823 113824 118784 119030 119040 119079 119081 119134 119146 119149 119171 119173 119180 119210 119214 119227 119233 119273 119296 119362 119365 119366 119520 119540 119552 119639 119648 119673 120832 121344 121399 121403 121453 121461 121462 121476 121477 121484 123215 123216 123647 123648 125127 125136 125278 125280 126065 126133 126209 126270 126704 126706 126976 127020 127024 127124 127136 127151 127153 127168 127169 127184 127185 127222 127243 127248 127279 127280 127312 127338 127341 127376 127377 127406 127462 127488 127584 127590 127744 128728 128736 128749 128752 128765 128768 128884 128896 128985 128992 129004 129024 129036 129040 129096 129104 129114 129120 129160 129168 129198 129200 129202 129280 129401 129402 129484 129485 129620 129632 129646 129648 129653 129656 129659 129664 129671 129680 129705 129712 129719 129728 129731 129744 129751 129792 129939 129940 129995 END PK ! � �u u % 5.34.0/unicore/lib/IdType/Inclusio.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V30 39 40 45 47 58 59 183 184 885 886 1418 1419 1523 1525 1789 1791 3851 3852 8204 8206 8208 8209 8217 8218 8231 8232 12448 12449 12539 12540 END PK ! Q�f�� � % 5.34.0/unicore/lib/IdType/Exclusio.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V424 994 1008 2048 2094 2096 2111 5760 5789 5792 5867 5870 5881 5888 5901 5902 5909 5920 5943 5952 5972 5984 5997 5998 6001 6002 6004 6144 6155 6160 6170 6176 6265 6272 6315 6656 6684 6686 6688 7418 7419 11264 11311 11312 11359 11392 11508 11513 11520 43072 43128 43312 43348 43359 43360 43471 43472 65536 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65792 65795 65799 65844 65847 65856 66176 66205 66208 66257 66304 66340 66349 66379 66384 66427 66432 66462 66463 66500 66504 66518 66560 66718 66720 66730 66816 66856 66864 66916 66927 66928 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67671 67743 67751 67760 67808 67827 67828 67830 67835 67868 67871 67898 67903 67904 67968 68024 68028 68048 68050 68100 68101 68103 68108 68116 68117 68120 68121 68150 68152 68155 68159 68169 68176 68185 68192 68256 68288 68327 68331 68343 68352 68406 68409 68438 68440 68467 68472 68498 68505 68509 68521 68528 68608 68681 68736 68787 68800 68851 68858 68864 69248 69290 69291 69294 69296 69298 69376 69416 69424 69466 69552 69580 69600 69623 69632 69710 69714 69744 69759 69826 69837 69838 69840 69865 69872 69882 69968 70007 70016 70112 70144 70162 70163 70207 70272 70279 70280 70281 70282 70286 70287 70302 70303 70314 70320 70379 70384 70394 70400 70401 70402 70403 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70461 70469 70471 70473 70475 70478 70480 70481 70487 70488 70493 70500 70502 70509 70512 70517 70784 70856 70864 70874 71040 71094 71096 71134 71168 71237 71248 71258 71264 71277 71296 71353 71360 71370 71424 71451 71453 71468 71472 71488 71680 71740 71840 71923 71935 71943 71945 71946 71948 71956 71957 71959 71960 71990 71991 71993 71995 72007 72016 72026 72096 72104 72106 72152 72154 72165 72192 72264 72272 72355 72384 72441 72704 72713 72714 72759 72760 72774 72784 72813 72816 72848 72850 72872 72873 72887 72960 72967 72968 72970 72971 73015 73018 73019 73020 73022 73023 73032 73040 73050 73440 73465 73728 74650 74752 74863 74864 74869 74880 75076 77824 78895 78896 78905 82944 83527 92736 92767 92768 92778 92782 92784 92880 92910 92912 92918 92928 92998 93008 93018 93019 93026 93027 93048 93053 93072 93760 93851 94176 94178 94180 94181 94208 100344 100352 101590 101632 101641 110960 111356 113664 113771 113776 113789 113792 113801 113808 113818 113820 113824 120832 121484 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 124928 125125 125127 125143 END PK ! ���;� � % 5.34.0/unicore/lib/IdType/Technica.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V190 384 385 397 398 426 428 442 444 446 447 448 452 564 567 592 601 602 688 697 699 701 706 710 722 750 751 782 783 786 787 789 790 791 795 796 801 809 813 815 816 819 820 823 824 826 832 838 847 848 856 857 867 975 976 983 984 1011 1012 1156 1160 1376 1377 1416 1417 1479 1480 1856 1867 2387 2389 3332 3333 3457 3458 3471 3473 3494 3495 3551 3552 3571 3572 3864 3866 6091 6098 6109 6110 6847 6849 7424 7468 7471 7472 7483 7484 7502 7503 7531 7544 7545 7579 7616 7674 7675 7680 7836 7838 7839 7840 7930 7936 8255 8257 8400 8433 8472 8473 8494 8495 8576 8580 9451 9472 10240 10496 11360 11368 11383 11388 11504 11506 11776 11790 12321 12336 12337 12342 12347 12349 12784 12800 12927 12928 19904 19968 42760 42775 42786 42800 42894 42895 42927 42928 42938 42944 43002 43003 43880 43881 64286 64287 64434 64450 64830 64832 65021 65022 65056 65072 65093 65095 65139 65140 118784 119030 119040 119079 119081 119134 119141 119155 119163 119227 119233 119273 119362 119365 119552 119639 END PK ! ���( ( % 5.34.0/unicore/lib/IdType/Obsolete.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V206 397 398 426 428 441 444 446 448 502 504 540 542 631 632 636 637 670 671 867 884 886 888 895 896 984 994 1011 1012 1015 1017 1018 1020 1120 1162 1280 1296 1322 1326 1442 1443 1477 1479 1600 1601 1646 1648 1678 1679 1697 1698 2024 2027 2042 2043 2221 2226 2382 2383 2385 2387 2424 2425 2432 2433 2556 2557 3072 3073 3124 3125 3160 3162 3201 3202 3294 3295 3329 3330 3332 3333 3387 3389 3423 3424 3558 3568 4256 4294 4337 4343 4352 4447 4449 4608 4969 4978 6056 6057 6097 6098 6099 6100 6104 6105 6109 6110 6832 6846 7296 7305 7376 7418 7616 7620 7630 7631 7633 7655 8278 8279 8280 8287 8487 8488 8498 8499 8526 8528 8576 8585 11373 11383 11390 11392 11520 11558 11744 11799 11818 11827 11829 11830 11833 11834 12318 12319 12334 12336 12590 12591 42512 42515 42538 42540 42560 42607 42608 42620 42624 42652 42654 42656 42752 42760 42786 42864 42865 42888 42896 42898 42900 42922 42923 42926 42928 42930 42997 43000 43003 43008 43232 43264 43360 43389 43488 43495 43824 43867 43876 43878 55216 55239 55243 55292 65856 65909 66000 66046 66272 66300 94179 94180 110592 110879 119296 119366 END PK ! ��,s� � % 5.34.0/unicore/lib/IdType/Uncommon.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V152 385 397 398 399 400 416 418 426 428 431 433 441 444 446 477 478 484 486 544 550 567 592 595 597 598 600 603 604 611 612 616 618 626 627 649 650 658 659 773 774 781 782 790 791 801 803 818 819 820 821 822 823 856 857 1425 1460 1461 1470 1471 1472 1473 1475 1476 1478 1479 1480 1552 1563 1622 1632 1750 1757 1759 1765 1767 1769 1770 1774 2227 2229 2259 2274 2275 2305 2389 2390 2641 2642 2677 2678 2809 2810 2884 2885 2914 2916 3162 3163 3170 3172 3396 3397 3426 3428 3471 3473 3494 3495 3551 3552 3571 3572 3897 3898 6313 6314 8276 8277 8586 8588 11244 11248 11368 11373 42607 42608 42620 42622 42654 42655 42891 42893 42895 42896 42930 42936 43260 43262 43872 43876 64286 64287 65070 65072 92736 92767 92768 92778 119262 119273 128335 128336 END PK ! Lؖ�� � % 5.34.0/unicore/lib/IdType/LimitedU.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V170 1792 1806 1807 1867 1869 1872 1984 2043 2045 2048 2112 2140 2142 2143 2144 2155 5024 5110 5112 5118 5120 5760 6320 6390 6400 6431 6432 6444 6448 6460 6464 6465 6468 6510 6512 6517 6528 6572 6576 6602 6608 6619 6622 6624 6688 6751 6752 6781 6783 6794 6800 6810 6816 6830 6912 6988 6992 7037 7040 7156 7164 7224 7227 7242 7245 7296 7360 7368 11568 11624 11632 11633 11647 11648 40960 42125 42128 42183 42192 42540 42656 42744 43008 43053 43136 43206 43214 43226 43264 43310 43311 43312 43392 43470 43471 43482 43486 43488 43520 43575 43584 43598 43600 43610 43612 43616 43648 43715 43739 43767 43888 44014 44016 44026 66736 66772 66776 66812 68864 68904 68912 68922 69888 69941 69942 69960 70656 70748 70749 70754 73056 73062 73063 73065 73066 73103 73104 73106 73107 73113 73120 73130 73648 73649 92160 92729 93952 94027 94031 94088 94095 94112 123136 123181 123184 123198 123200 123210 123214 123216 123584 123642 123647 123648 125184 125260 125264 125274 125278 125280 END PK ! dV�< 5.34.0/unicore/lib/BidiC/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 1564 1565 8206 8208 8234 8239 8294 8298 END PK ! ���� � 5.34.0/unicore/lib/NFCQC/M.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V84 768 773 774 781 783 784 785 786 787 789 795 796 803 809 813 815 816 818 824 825 834 835 837 838 1619 1622 2364 2365 2494 2495 2519 2520 2878 2879 2902 2904 3006 3007 3031 3032 3158 3159 3266 3267 3285 3287 3390 3391 3415 3416 3530 3531 3535 3536 3551 3552 4142 4143 4449 4470 4520 4547 6965 6966 12441 12443 69818 69819 69927 69928 70462 70463 70487 70488 70832 70833 70842 70843 70845 70846 71087 71088 71984 71985 END PK ! ��e�v v 5.34.0/unicore/lib/NFCQC/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V225 0 768 773 774 781 783 784 785 786 787 789 795 796 803 809 813 815 816 818 824 825 832 838 884 885 894 895 903 904 1619 1622 2364 2365 2392 2400 2494 2495 2519 2520 2524 2526 2527 2528 2611 2612 2614 2615 2649 2652 2654 2655 2878 2879 2902 2904 2908 2910 3006 3007 3031 3032 3158 3159 3266 3267 3285 3287 3390 3391 3415 3416 3530 3531 3535 3536 3551 3552 3907 3908 3917 3918 3922 3923 3927 3928 3932 3933 3945 3946 3955 3956 3957 3959 3960 3961 3969 3970 3987 3988 3997 3998 4002 4003 4007 4008 4012 4013 4025 4026 4142 4143 4449 4470 4520 4547 6965 6966 8049 8050 8051 8052 8053 8054 8055 8056 8057 8058 8059 8060 8061 8062 8123 8124 8126 8127 8137 8138 8139 8140 8147 8148 8155 8156 8163 8164 8171 8172 8174 8176 8185 8186 8187 8188 8189 8190 8192 8194 8486 8487 8490 8492 9001 9003 10972 10973 12441 12443 63744 64014 64016 64017 64018 64019 64021 64031 64032 64033 64034 64035 64037 64039 64042 64110 64112 64218 64285 64286 64287 64288 64298 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64335 69818 69819 69927 69928 70462 70463 70487 70488 70832 70833 70842 70843 70845 70846 71087 71088 71984 71985 119134 119141 119227 119233 194560 195102 END PK ! ��z # 5.34.0/unicore/lib/InPC/Overstru.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 7380 7381 7394 7401 68097 68098 68102 68103 END PK ! G�� ! 5.34.0/unicore/lib/InPC/Bottom.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V286 2364 2365 2369 2373 2381 2382 2386 2387 2390 2392 2402 2404 2492 2493 2497 2501 2509 2510 2530 2532 2620 2621 2625 2627 2637 2638 2641 2642 2677 2678 2748 2749 2753 2757 2765 2766 2786 2788 2876 2877 2881 2885 2893 2894 2914 2916 3158 3159 3170 3172 3260 3261 3298 3300 3395 3397 3426 3428 3540 3541 3542 3543 3640 3643 3768 3771 3772 3773 3864 3866 3893 3894 3895 3896 3953 3954 3956 3958 3972 3973 3981 3992 3993 4029 4038 4039 4143 4145 4151 4152 4157 4159 4184 4186 4190 4193 4226 4227 4237 4238 5907 5909 5939 5941 5971 5972 6003 6004 6075 6078 6434 6435 6450 6451 6457 6458 6459 6460 6680 6681 6742 6743 6747 6751 6761 6763 6764 6765 6783 6784 6968 6971 7020 7021 7074 7076 7077 7078 7084 7086 7212 7213 7223 7224 7381 7386 7388 7392 7405 7406 43045 43046 43052 43053 43204 43205 43307 43310 43335 43338 43339 43343 43448 43450 43453 43454 43565 43566 43570 43571 43573 43575 43700 43701 43756 43757 44008 44009 44013 44014 68098 68100 68108 68111 68153 68155 69692 69698 69811 69813 69817 69819 69930 69932 69937 69939 70003 70004 70070 70076 70089 70091 70092 70093 70191 70192 70371 70373 70377 70379 70459 70461 70712 70718 70722 70723 70726 70727 70835 70841 70850 70852 71090 71094 71103 71105 71132 71134 71219 71225 71231 71232 71344 71346 71351 71352 71453 71454 71460 71462 71464 71465 71727 71731 71737 71739 72003 72004 72148 72152 72160 72161 72194 72196 72202 72203 72243 72245 72251 72255 72274 72276 72281 72284 72330 72342 72754 72759 72767 72768 72850 72872 72874 72881 72882 72883 73014 73015 73026 73027 73028 73029 73031 73032 73460 73461 END PK ! �_"� � 5.34.0/unicore/lib/InPC/Left.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V94 2367 2368 2382 2383 2495 2496 2503 2505 2623 2624 2751 2752 2887 2888 3014 3017 3398 3401 3545 3546 3547 3548 3903 3904 4145 4146 4228 4229 6081 6084 6681 6682 6741 6742 6766 6771 6974 6976 7078 7079 7207 7209 7220 7222 43450 43452 43567 43569 43572 43573 43755 43756 43758 43759 69809 69810 69932 69933 70068 70069 70094 70095 70369 70370 70471 70473 70710 70711 70833 70834 70841 70842 71088 71089 71096 71097 71342 71343 71462 71463 71725 71726 71989 71990 71991 71992 72146 72147 72164 72165 72881 72882 73461 73462 END PK ! � �� � 5.34.0/unicore/lib/InPC/Right.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V328 2307 2308 2363 2364 2366 2367 2368 2369 2377 2381 2383 2384 2434 2436 2494 2495 2496 2497 2519 2520 2563 2564 2622 2623 2624 2625 2691 2692 2750 2751 2752 2753 2763 2765 2818 2820 2878 2879 2880 2881 3006 3008 3009 3011 3031 3032 3073 3076 3137 3141 3202 3204 3262 3263 3265 3269 3285 3287 3330 3332 3390 3395 3415 3416 3458 3460 3535 3538 3544 3545 3551 3552 3570 3572 3632 3633 3634 3636 3653 3654 3760 3761 3762 3764 3902 3903 3967 3968 4139 4141 4152 4153 4155 4156 4182 4184 4194 4197 4199 4206 4227 4228 4231 4237 4239 4240 4250 4253 6070 6071 6087 6089 6435 6437 6441 6444 6448 6450 6451 6457 6576 6581 6584 6586 6587 6593 6600 6602 6682 6683 6743 6744 6753 6754 6755 6757 6765 6766 6916 6917 6965 6966 6980 6981 7042 7043 7073 7074 7079 7080 7082 7083 7143 7144 7146 7149 7150 7151 7154 7156 7204 7207 7210 7212 7393 7394 7415 7416 43043 43045 43047 43048 43136 43138 43188 43204 43346 43348 43395 43396 43444 43446 43571 43572 43597 43598 43643 43644 43645 43646 43697 43698 43706 43707 43709 43710 43759 43760 43765 43766 44003 44005 44006 44008 44009 44011 44012 44013 69632 69633 69634 69635 69762 69763 69808 69809 69810 69811 69815 69817 69957 69959 70018 70019 70067 70068 70069 70070 70080 70081 70188 70191 70197 70198 70368 70369 70370 70371 70402 70404 70462 70464 70465 70469 70477 70478 70487 70488 70498 70500 70709 70710 70711 70712 70720 70722 70725 70726 70832 70833 70834 70835 70845 70846 70849 70850 71087 71088 71089 71090 71102 71103 71216 71219 71227 71229 71230 71231 71340 71341 71343 71344 71350 71351 71456 71458 71724 71725 71726 71727 71736 71737 71984 71989 71997 71998 72000 72001 72145 72146 72147 72148 72156 72160 72249 72250 72279 72281 72343 72344 72751 72752 72766 72767 72873 72874 72884 72885 73030 73031 73098 73103 73107 73109 73110 73111 73462 73463 END PK ! �*�y� � # 5.34.0/unicore/lib/InPC/LeftAndR.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V28 2507 2509 2891 2892 3018 3021 3402 3405 3548 3549 3550 3551 6080 6081 6084 6086 6976 6978 70475 70477 70844 70845 70846 70847 71098 71099 71992 71993 END PK ! ��x�I I # 5.34.0/unicore/lib/InPC/TopAndRi.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V18 2761 2762 2903 2904 3264 3265 3271 3273 3274 3276 6437 6439 6979 6980 70079 70080 70194 70196 END PK ! 6x��8 8 5.34.0/unicore/lib/InPC/Top.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V386 2304 2307 2362 2363 2373 2377 2385 2386 2387 2390 2433 2434 2558 2559 2561 2563 2631 2633 2635 2637 2672 2674 2689 2691 2757 2758 2759 2761 2810 2816 2817 2818 2879 2880 2901 2903 2946 2947 3008 3009 3021 3022 3072 3073 3076 3077 3134 3137 3142 3144 3146 3150 3157 3158 3201 3202 3263 3264 3270 3271 3276 3278 3328 3330 3387 3389 3405 3407 3457 3458 3530 3531 3538 3540 3633 3634 3636 3640 3655 3663 3761 3762 3764 3768 3771 3772 3784 3790 3897 3898 3954 3955 3962 3967 3968 3969 3970 3972 3974 3976 4141 4143 4146 4151 4154 4155 4209 4213 4229 4231 4253 4254 5906 5907 5938 5939 5970 5971 6002 6003 6071 6075 6086 6087 6089 6098 6099 6100 6109 6110 6432 6434 6439 6441 6458 6459 6679 6680 6683 6684 6744 6747 6754 6755 6757 6761 6763 6764 6771 6781 6912 6916 6964 6965 6966 6968 6978 6979 7019 7020 7021 7028 7040 7042 7076 7077 7080 7082 7142 7143 7144 7146 7149 7150 7151 7154 7213 7220 7222 7223 7376 7379 7386 7388 7392 7393 7412 7413 7675 7676 8432 8433 43010 43011 43014 43015 43019 43020 43046 43047 43205 43206 43232 43250 43263 43264 43338 43339 43343 43346 43392 43395 43443 43444 43446 43448 43452 43453 43493 43494 43561 43565 43566 43567 43569 43570 43587 43588 43596 43597 43644 43645 43696 43697 43698 43700 43703 43705 43710 43712 43713 43714 43757 43758 44005 44006 68101 68102 68111 68112 68152 68153 69633 69634 69688 69692 69698 69703 69760 69762 69813 69815 69888 69891 69927 69930 69933 69934 69936 69937 69940 69941 70016 70018 70076 70079 70082 70084 70091 70092 70095 70096 70192 70194 70196 70197 70198 70200 70206 70207 70367 70368 70373 70377 70400 70402 70464 70465 70502 70509 70512 70517 70718 70720 70723 70725 70750 70751 70842 70843 70847 70849 71100 71102 71225 71227 71229 71230 71232 71233 71339 71340 71341 71342 71346 71350 71455 71456 71458 71460 71463 71464 71465 71468 71731 71736 71995 71997 71999 72000 72001 72002 72154 72156 72193 72194 72196 72202 72245 72249 72250 72251 72273 72274 72276 72279 72324 72330 72342 72343 72344 72345 72752 72754 72760 72766 72883 72884 72885 72887 73009 73014 73018 73019 73020 73022 73023 73026 73027 73028 73104 73106 73109 73110 73459 73460 END PK ! (1� # 5.34.0/unicore/lib/InPC/TopAndL2.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 2892 2893 3549 3550 6079 6080 71099 71100 END PK ! .u��7 7 # 5.34.0/unicore/lib/InPC/VisualOr.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 3648 3653 3776 3781 6581 6584 6586 6587 43701 43703 43705 43706 43707 43709 END PK ! �wǵ+ + # 5.34.0/unicore/lib/InPC/TopAndLe.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V12 2888 2889 3546 3547 6078 6079 7209 7210 70843 70844 71097 71098 END PK ! �#�) ) # 5.34.0/unicore/lib/InPC/TopAndBo.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V12 3144 3145 3955 3956 3958 3962 3969 3970 6972 6973 69934 69936 END PK ! ��} # 5.34.0/unicore/lib/InPC/BottomAn.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 6971 6972 43454 43455 43456 43457 72002 72003 END PK ! ����� � 5.34.0/unicore/lib/InPC/NA.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V421 0 2304 2308 2362 2365 2366 2384 2385 2392 2402 2404 2433 2436 2492 2493 2494 2501 2503 2505 2507 2510 2519 2520 2530 2532 2558 2559 2561 2564 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2672 2674 2677 2678 2689 2692 2748 2749 2750 2758 2759 2762 2763 2766 2786 2788 2810 2816 2817 2820 2876 2877 2878 2885 2887 2889 2891 2894 2901 2904 2914 2916 2946 2947 3006 3011 3014 3017 3018 3022 3031 3032 3072 3077 3134 3141 3142 3145 3146 3150 3157 3159 3170 3172 3201 3204 3260 3261 3262 3269 3270 3273 3274 3278 3285 3287 3298 3300 3328 3332 3387 3389 3390 3397 3398 3401 3402 3407 3415 3416 3426 3428 3457 3460 3530 3531 3535 3541 3542 3543 3544 3552 3570 3572 3632 3643 3648 3654 3655 3663 3760 3773 3776 3781 3784 3790 3864 3866 3893 3894 3895 3896 3897 3898 3902 3904 3953 3973 3974 3976 3981 3992 3993 4029 4038 4039 4139 4153 4154 4159 4182 4186 4190 4193 4194 4197 4199 4206 4209 4213 4226 4238 4239 4240 4250 4254 5906 5909 5938 5941 5970 5972 6002 6004 6070 6098 6099 6100 6109 6110 6432 6444 6448 6460 6576 6593 6600 6602 6679 6684 6741 6751 6753 6781 6783 6784 6912 6917 6964 6981 7019 7028 7040 7043 7073 7083 7084 7086 7142 7156 7204 7224 7376 7379 7380 7401 7405 7406 7412 7413 7415 7416 7675 7676 8432 8433 43010 43011 43014 43015 43019 43020 43043 43048 43052 43053 43136 43138 43188 43206 43232 43250 43263 43264 43307 43310 43335 43348 43392 43396 43443 43457 43493 43494 43561 43575 43587 43588 43596 43598 43643 43646 43696 43712 43713 43714 43755 43760 43765 43766 44003 44011 44012 44014 68097 68100 68101 68103 68108 68112 68152 68155 69632 69635 69688 69703 69760 69763 69808 69819 69888 69891 69927 69939 69940 69941 69957 69959 70003 70004 70016 70019 70067 70081 70082 70084 70089 70093 70094 70096 70188 70200 70206 70207 70367 70379 70400 70404 70459 70461 70462 70469 70471 70473 70475 70478 70487 70488 70498 70500 70502 70509 70512 70517 70709 70727 70750 70751 70832 70852 71087 71094 71096 71105 71132 71134 71216 71233 71339 71352 71453 71468 71724 71739 71984 71990 71991 71993 71995 71998 71999 72004 72145 72152 72154 72161 72164 72165 72193 72203 72243 72255 72273 72284 72324 72345 72751 72759 72760 72768 72850 72872 72873 72887 73009 73015 73018 73019 73020 73022 73023 73029 73030 73032 73098 73103 73104 73106 73107 73111 73459 73463 END PK ! �Z�� � 5.34.0/unicore/lib/NFKDQC/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V785 0 160 161 168 169 170 171 175 176 178 182 184 187 188 191 192 198 199 208 209 215 217 222 224 230 231 240 241 247 249 254 255 272 274 294 296 305 306 312 313 321 323 330 332 338 340 358 360 384 416 418 431 433 452 477 478 484 486 502 504 540 542 544 550 564 688 697 728 734 736 741 832 834 835 837 884 885 890 891 894 895 900 907 908 909 910 913 938 945 970 975 976 983 1008 1011 1012 1014 1017 1018 1024 1026 1027 1028 1031 1032 1036 1039 1049 1050 1081 1082 1104 1106 1107 1108 1111 1112 1116 1119 1142 1144 1217 1219 1232 1236 1238 1240 1242 1248 1250 1256 1258 1270 1272 1274 1415 1416 1570 1575 1653 1657 1728 1729 1730 1731 1747 1748 2345 2346 2353 2354 2356 2357 2392 2400 2507 2509 2524 2526 2527 2528 2611 2612 2614 2615 2649 2652 2654 2655 2888 2889 2891 2893 2908 2910 2964 2965 3018 3021 3144 3145 3264 3265 3271 3273 3274 3276 3402 3405 3546 3547 3548 3551 3635 3636 3763 3764 3804 3806 3852 3853 3907 3908 3917 3918 3922 3923 3927 3928 3932 3933 3945 3946 3955 3956 3957 3962 3969 3970 3987 3988 3997 3998 4002 4003 4007 4008 4012 4013 4025 4026 4134 4135 4348 4349 6918 6919 6920 6921 6922 6923 6924 6925 6926 6927 6930 6931 6971 6972 6973 6974 6976 6978 6979 6980 7468 7471 7472 7483 7484 7502 7503 7531 7544 7545 7579 7616 7680 7836 7840 7930 7936 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8203 8209 8210 8215 8216 8228 8231 8239 8240 8243 8245 8246 8248 8252 8253 8254 8255 8263 8266 8279 8280 8287 8288 8304 8306 8308 8335 8336 8349 8360 8361 8448 8452 8453 8456 8457 8468 8469 8471 8473 8478 8480 8483 8484 8485 8486 8487 8488 8489 8490 8494 8495 8498 8499 8506 8507 8513 8517 8522 8528 8576 8585 8586 8602 8604 8622 8623 8653 8656 8708 8709 8713 8714 8716 8717 8740 8741 8742 8743 8748 8750 8751 8753 8769 8770 8772 8773 8775 8776 8777 8778 8800 8801 8802 8803 8813 8818 8820 8822 8824 8826 8832 8834 8836 8838 8840 8842 8876 8880 8928 8932 8938 8942 9001 9003 9312 9451 10764 10765 10868 10871 10972 10973 11388 11390 11631 11632 11935 11936 12019 12020 12032 12246 12288 12289 12342 12343 12344 12347 12364 12365 12366 12367 12368 12369 12370 12371 12372 12373 12374 12375 12376 12377 12378 12379 12380 12381 12382 12383 12384 12385 12386 12387 12389 12390 12391 12392 12393 12394 12400 12402 12403 12405 12406 12408 12409 12411 12412 12414 12436 12437 12443 12445 12446 12448 12460 12461 12462 12463 12464 12465 12466 12467 12468 12469 12470 12471 12472 12473 12474 12475 12476 12477 12478 12479 12480 12481 12482 12483 12485 12486 12487 12488 12489 12490 12496 12498 12499 12501 12502 12504 12505 12507 12508 12510 12532 12533 12535 12539 12542 12544 12593 12687 12690 12704 12800 12831 12832 12872 12880 12927 12928 13312 42652 42654 42864 42865 43000 43002 43868 43872 43881 43882 44032 55204 63744 64014 64016 64017 64018 64019 64021 64031 64032 64033 64034 64035 64037 64039 64042 64110 64112 64218 64256 64263 64275 64280 64285 64286 64287 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64830 64848 64912 64914 64968 65008 65021 65040 65050 65072 65093 65095 65107 65108 65127 65128 65132 65136 65139 65140 65141 65142 65277 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 69786 69787 69788 69789 69803 69804 69934 69936 70475 70477 70843 70845 70846 70847 71098 71100 71992 71993 119134 119141 119227 119233 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 120832 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 127232 127243 127248 127279 127280 127312 127338 127341 127376 127377 127488 127491 127504 127548 127552 127561 127568 127570 130032 130042 194560 195102 END PK ! �p��� � 5.34.0/unicore/lib/NFKDQC/N.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V784 160 161 168 169 170 171 175 176 178 182 184 187 188 191 192 198 199 208 209 215 217 222 224 230 231 240 241 247 249 254 255 272 274 294 296 305 306 312 313 321 323 330 332 338 340 358 360 384 416 418 431 433 452 477 478 484 486 502 504 540 542 544 550 564 688 697 728 734 736 741 832 834 835 837 884 885 890 891 894 895 900 907 908 909 910 913 938 945 970 975 976 983 1008 1011 1012 1014 1017 1018 1024 1026 1027 1028 1031 1032 1036 1039 1049 1050 1081 1082 1104 1106 1107 1108 1111 1112 1116 1119 1142 1144 1217 1219 1232 1236 1238 1240 1242 1248 1250 1256 1258 1270 1272 1274 1415 1416 1570 1575 1653 1657 1728 1729 1730 1731 1747 1748 2345 2346 2353 2354 2356 2357 2392 2400 2507 2509 2524 2526 2527 2528 2611 2612 2614 2615 2649 2652 2654 2655 2888 2889 2891 2893 2908 2910 2964 2965 3018 3021 3144 3145 3264 3265 3271 3273 3274 3276 3402 3405 3546 3547 3548 3551 3635 3636 3763 3764 3804 3806 3852 3853 3907 3908 3917 3918 3922 3923 3927 3928 3932 3933 3945 3946 3955 3956 3957 3962 3969 3970 3987 3988 3997 3998 4002 4003 4007 4008 4012 4013 4025 4026 4134 4135 4348 4349 6918 6919 6920 6921 6922 6923 6924 6925 6926 6927 6930 6931 6971 6972 6973 6974 6976 6978 6979 6980 7468 7471 7472 7483 7484 7502 7503 7531 7544 7545 7579 7616 7680 7836 7840 7930 7936 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8203 8209 8210 8215 8216 8228 8231 8239 8240 8243 8245 8246 8248 8252 8253 8254 8255 8263 8266 8279 8280 8287 8288 8304 8306 8308 8335 8336 8349 8360 8361 8448 8452 8453 8456 8457 8468 8469 8471 8473 8478 8480 8483 8484 8485 8486 8487 8488 8489 8490 8494 8495 8498 8499 8506 8507 8513 8517 8522 8528 8576 8585 8586 8602 8604 8622 8623 8653 8656 8708 8709 8713 8714 8716 8717 8740 8741 8742 8743 8748 8750 8751 8753 8769 8770 8772 8773 8775 8776 8777 8778 8800 8801 8802 8803 8813 8818 8820 8822 8824 8826 8832 8834 8836 8838 8840 8842 8876 8880 8928 8932 8938 8942 9001 9003 9312 9451 10764 10765 10868 10871 10972 10973 11388 11390 11631 11632 11935 11936 12019 12020 12032 12246 12288 12289 12342 12343 12344 12347 12364 12365 12366 12367 12368 12369 12370 12371 12372 12373 12374 12375 12376 12377 12378 12379 12380 12381 12382 12383 12384 12385 12386 12387 12389 12390 12391 12392 12393 12394 12400 12402 12403 12405 12406 12408 12409 12411 12412 12414 12436 12437 12443 12445 12446 12448 12460 12461 12462 12463 12464 12465 12466 12467 12468 12469 12470 12471 12472 12473 12474 12475 12476 12477 12478 12479 12480 12481 12482 12483 12485 12486 12487 12488 12489 12490 12496 12498 12499 12501 12502 12504 12505 12507 12508 12510 12532 12533 12535 12539 12542 12544 12593 12687 12690 12704 12800 12831 12832 12872 12880 12927 12928 13312 42652 42654 42864 42865 43000 43002 43868 43872 43881 43882 44032 55204 63744 64014 64016 64017 64018 64019 64021 64031 64032 64033 64034 64035 64037 64039 64042 64110 64112 64218 64256 64263 64275 64280 64285 64286 64287 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64830 64848 64912 64914 64968 65008 65021 65040 65050 65072 65093 65095 65107 65108 65127 65128 65132 65136 65139 65140 65141 65142 65277 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 69786 69787 69788 69789 69803 69804 69934 69936 70475 70477 70843 70845 70846 70847 71098 71100 71992 71993 119134 119141 119227 119233 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 120832 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 127232 127243 127248 127279 127280 127312 127338 127341 127376 127377 127488 127491 127504 127548 127552 127561 127568 127570 130032 130042 194560 195102 END PK ! nɢ�T T 5.34.0/unicore/lib/NFDQC/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V465 0 192 198 199 208 209 215 217 222 224 230 231 240 241 247 249 254 255 272 274 294 296 305 308 312 313 319 323 329 332 338 340 358 360 383 416 418 431 433 461 477 478 484 486 497 500 502 504 540 542 544 550 564 832 834 835 837 884 885 894 895 901 907 908 909 910 913 938 945 970 975 979 981 1024 1026 1027 1028 1031 1032 1036 1039 1049 1050 1081 1082 1104 1106 1107 1108 1111 1112 1116 1119 1142 1144 1217 1219 1232 1236 1238 1240 1242 1248 1250 1256 1258 1270 1272 1274 1570 1575 1728 1729 1730 1731 1747 1748 2345 2346 2353 2354 2356 2357 2392 2400 2507 2509 2524 2526 2527 2528 2611 2612 2614 2615 2649 2652 2654 2655 2888 2889 2891 2893 2908 2910 2964 2965 3018 3021 3144 3145 3264 3265 3271 3273 3274 3276 3402 3405 3546 3547 3548 3551 3907 3908 3917 3918 3922 3923 3927 3928 3932 3933 3945 3946 3955 3956 3957 3959 3960 3961 3969 3970 3987 3988 3997 3998 4002 4003 4007 4008 4012 4013 4025 4026 4134 4135 6918 6919 6920 6921 6922 6923 6924 6925 6926 6927 6930 6931 6971 6972 6973 6974 6976 6978 6979 6980 7680 7834 7835 7836 7840 7930 7936 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8125 8126 8127 8129 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8190 8192 8194 8486 8487 8490 8492 8602 8604 8622 8623 8653 8656 8708 8709 8713 8714 8716 8717 8740 8741 8742 8743 8769 8770 8772 8773 8775 8776 8777 8778 8800 8801 8802 8803 8813 8818 8820 8822 8824 8826 8832 8834 8836 8838 8840 8842 8876 8880 8928 8932 8938 8942 9001 9003 10972 10973 12364 12365 12366 12367 12368 12369 12370 12371 12372 12373 12374 12375 12376 12377 12378 12379 12380 12381 12382 12383 12384 12385 12386 12387 12389 12390 12391 12392 12393 12394 12400 12402 12403 12405 12406 12408 12409 12411 12412 12414 12436 12437 12446 12447 12460 12461 12462 12463 12464 12465 12466 12467 12468 12469 12470 12471 12472 12473 12474 12475 12476 12477 12478 12479 12480 12481 12482 12483 12485 12486 12487 12488 12489 12490 12496 12498 12499 12501 12502 12504 12505 12507 12508 12510 12532 12533 12535 12539 12542 12543 44032 55204 63744 64014 64016 64017 64018 64019 64021 64031 64032 64033 64034 64035 64037 64039 64042 64110 64112 64218 64285 64286 64287 64288 64298 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64335 69786 69787 69788 69789 69803 69804 69934 69936 70475 70477 70843 70845 70846 70847 71098 71100 71992 71993 119134 119141 119227 119233 194560 195102 END PK ! �v�R R 5.34.0/unicore/lib/NFDQC/N.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V464 192 198 199 208 209 215 217 222 224 230 231 240 241 247 249 254 255 272 274 294 296 305 308 312 313 319 323 329 332 338 340 358 360 383 416 418 431 433 461 477 478 484 486 497 500 502 504 540 542 544 550 564 832 834 835 837 884 885 894 895 901 907 908 909 910 913 938 945 970 975 979 981 1024 1026 1027 1028 1031 1032 1036 1039 1049 1050 1081 1082 1104 1106 1107 1108 1111 1112 1116 1119 1142 1144 1217 1219 1232 1236 1238 1240 1242 1248 1250 1256 1258 1270 1272 1274 1570 1575 1728 1729 1730 1731 1747 1748 2345 2346 2353 2354 2356 2357 2392 2400 2507 2509 2524 2526 2527 2528 2611 2612 2614 2615 2649 2652 2654 2655 2888 2889 2891 2893 2908 2910 2964 2965 3018 3021 3144 3145 3264 3265 3271 3273 3274 3276 3402 3405 3546 3547 3548 3551 3907 3908 3917 3918 3922 3923 3927 3928 3932 3933 3945 3946 3955 3956 3957 3959 3960 3961 3969 3970 3987 3988 3997 3998 4002 4003 4007 4008 4012 4013 4025 4026 4134 4135 6918 6919 6920 6921 6922 6923 6924 6925 6926 6927 6930 6931 6971 6972 6973 6974 6976 6978 6979 6980 7680 7834 7835 7836 7840 7930 7936 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8125 8126 8127 8129 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8190 8192 8194 8486 8487 8490 8492 8602 8604 8622 8623 8653 8656 8708 8709 8713 8714 8716 8717 8740 8741 8742 8743 8769 8770 8772 8773 8775 8776 8777 8778 8800 8801 8802 8803 8813 8818 8820 8822 8824 8826 8832 8834 8836 8838 8840 8842 8876 8880 8928 8932 8938 8942 9001 9003 10972 10973 12364 12365 12366 12367 12368 12369 12370 12371 12372 12373 12374 12375 12376 12377 12378 12379 12380 12381 12382 12383 12384 12385 12386 12387 12389 12390 12391 12392 12393 12394 12400 12402 12403 12405 12406 12408 12409 12411 12412 12414 12436 12437 12446 12447 12460 12461 12462 12463 12464 12465 12466 12467 12468 12469 12470 12471 12472 12473 12474 12475 12476 12477 12478 12479 12480 12481 12482 12483 12485 12486 12487 12488 12489 12490 12496 12498 12499 12501 12502 12504 12505 12507 12508 12510 12532 12533 12535 12539 12542 12543 44032 55204 63744 64014 64016 64017 64018 64019 64021 64031 64032 64033 64034 64035 64037 64039 64042 64110 64112 64218 64285 64286 64287 64288 64298 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64335 69786 69787 69788 69789 69803 69804 69934 69936 70475 70477 70843 70845 70846 70847 71098 71100 71992 71993 119134 119141 119227 119233 194560 195102 END PK ! ��Z�� � 5.34.0/unicore/lib/Nv/1_2.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V34 189 190 2931 2932 3444 3445 3882 3883 11517 11518 43057 43058 65857 65858 65909 65911 68029 68030 68091 68092 68168 68169 69243 69244 69414 69415 73681 73683 74852 74853 126126 126127 126268 126269 END PK ! C �{O O 5.34.0/unicore/lib/Nv/3_4.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V18 190 191 2552 2553 2932 2933 3445 3446 43058 43059 65912 65913 68094 68095 73683 73684 126127 126128 END PK ! �� u� � 5.34.0/unicore/lib/Nv/60.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V26 4983 4984 12877 12878 65813 65814 66287 66288 68046 68047 69230 69231 69728 69729 70127 70128 71919 71920 72808 72809 119662 119663 126079 126080 126223 126224 END PK ! y �� 5.34.0/unicore/lib/Nv/30000.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 65837 65838 68070 68071 126103 126104 126247 126248 END PK ! k�M+7 7 5.34.0/unicore/lib/Nv/16.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 2553 2554 9327 9328 9347 9348 9367 9368 9456 9457 93840 93841 119536 119537 END PK ! ��m�C C 5.34.0/unicore/lib/Nv/300.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 65819 65820 65899 65900 66293 66294 68052 68053 69236 69237 126085 126086 126229 126230 END PK ! �)�3 5.34.0/unicore/lib/Nv/90000.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 65843 65844 68076 68077 126109 126110 126253 126254 END PK ! �Qu�� � 5.34.0/unicore/lib/Nv/5.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V256 53 54 1637 1638 1781 1782 1989 1990 2411 2412 2539 2540 2667 2668 2795 2796 2923 2924 3051 3052 3179 3180 3307 3308 3435 3436 3563 3564 3669 3670 3797 3798 3877 3878 4165 4166 4245 4246 4973 4974 6117 6118 6133 6134 6165 6166 6475 6476 6613 6614 6789 6790 6805 6806 6997 6998 7093 7094 7237 7238 7253 7254 8309 8310 8325 8326 8548 8549 8564 8565 9316 9317 9336 9337 9356 9357 9465 9466 10106 10107 10116 10117 10126 10127 12325 12326 12836 12837 12932 12933 13317 13318 14378 14379 20116 20117 20237 20238 42533 42534 42730 42731 43221 43222 43269 43270 43477 43478 43509 43510 43605 43606 44021 44022 65301 65302 65803 65804 65859 65860 65864 65865 65871 65872 65887 65888 65907 65908 66277 66278 66337 66338 66725 66726 67709 67710 67756 67757 67836 67837 68036 68037 68332 68333 68859 68860 68917 68918 69220 69221 69409 69410 69718 69719 69739 69740 69877 69878 69947 69948 70101 70102 70117 70118 70389 70390 70741 70742 70869 70870 71253 71254 71365 71366 71477 71478 71909 71910 72021 72022 72789 72790 72798 72799 73045 73046 73125 73126 74755 74756 74762 74763 74768 74769 74777 74778 74786 74787 74791 74792 74801 74802 74809 74810 74829 74830 74836 74838 74858 74859 92773 92774 93013 93014 93829 93830 119525 119526 119652 119653 119670 119671 119672 119673 120787 120788 120797 120798 120807 120808 120817 120818 120827 120828 123205 123206 123637 123638 125131 125132 125269 125270 126069 126070 126119 126120 126213 126214 126258 126259 127238 127239 130037 130038 131361 131362 END PK ! �xb& & 5.34.0/unicore/lib/Nv/1.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V274 49 50 185 186 1633 1634 1777 1778 1985 1986 2407 2408 2535 2536 2663 2664 2791 2792 2919 2920 3047 3048 3175 3176 3193 3194 3196 3197 3303 3304 3431 3432 3559 3560 3665 3666 3793 3794 3873 3874 4161 4162 4241 4242 4969 4970 6113 6114 6129 6130 6161 6162 6471 6472 6609 6610 6618 6619 6785 6786 6801 6802 6993 6994 7089 7090 7233 7234 7249 7250 8321 8322 8543 8545 8560 8561 9312 9313 9332 9333 9352 9353 9461 9462 10102 10103 10112 10113 10122 10123 12321 12322 12690 12691 12832 12833 12928 12929 19968 19969 22769 22770 22777 22778 24186 24187 24332 24333 42529 42530 42726 42727 43217 43218 43265 43266 43473 43474 43505 43506 43601 43602 44017 44018 65297 65298 65799 65800 65858 65859 65880 65883 66273 66274 66336 66337 66513 66514 66721 66722 67672 67673 67705 67706 67751 67752 67835 67836 67862 67863 68032 68033 68160 68161 68221 68222 68253 68254 68331 68332 68440 68441 68472 68473 68521 68522 68858 68859 68913 68914 69216 69217 69405 69406 69457 69458 69573 69574 69714 69715 69735 69736 69873 69874 69943 69944 70097 70098 70113 70114 70385 70386 70737 70738 70865 70866 71249 71250 71361 71362 71473 71474 71905 71906 72017 72018 72785 72786 72794 72795 73041 73042 73121 73122 74773 74774 74782 74783 74796 74797 74804 74805 74831 74832 74840 74841 92769 92770 93009 93010 93825 93826 93844 93845 119521 119522 119648 119649 119666 119667 119671 119672 120783 120784 120793 120794 120803 120804 120813 120814 120823 120824 123201 123202 123633 123634 125127 125128 125265 125266 126065 126066 126115 126116 126129 126130 126209 126210 127234 127235 130033 130034 133418 133419 END PK ! ���M M 5.34.0/unicore/lib/Nv/5000.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V16 8577 8578 65830 65831 65862 65863 65870 65871 65906 65907 68063 68064 126096 126097 126240 126241 END PK ! �cx� � 5.34.0/unicore/lib/Nv/10.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V116 3056 3057 3440 3441 4978 4979 8553 8554 8569 8570 9321 9322 9341 9342 9361 9362 9470 9471 10111 10112 10121 10122 10131 10132 12344 12345 12841 12842 12872 12873 12937 12938 20160 20161 21313 21314 25342 25343 63859 63860 63997 63998 65808 65809 65865 65866 65872 65873 65879 65880 65888 65893 66282 66283 66338 66339 66515 66516 67675 67676 67710 67711 67757 67758 67837 67838 67863 67864 68041 68042 68164 68165 68254 68255 68333 68334 68444 68445 68476 68477 68525 68526 68860 68861 69225 69226 69410 69411 69458 69459 69577 69578 69723 69724 70122 70123 71482 71483 71914 71915 72803 72804 93019 93020 93834 93835 119530 119531 119657 119658 126074 126075 126218 126219 126263 126264 END PK ! 8`ߣ� � 5.34.0/unicore/lib/Nv/0.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V162 48 49 1632 1633 1776 1777 1984 1985 2406 2407 2534 2535 2662 2663 2790 2791 2918 2919 3046 3047 3174 3175 3192 3193 3302 3303 3430 3431 3558 3559 3664 3665 3792 3793 3872 3873 4160 4161 4240 4241 6112 6113 6128 6129 6160 6161 6470 6471 6608 6609 6784 6785 6800 6801 6992 6993 7088 7089 7232 7233 7248 7249 8304 8305 8320 8321 8585 8586 9450 9451 9471 9472 12295 12296 38646 38647 42528 42529 42735 42736 43216 43217 43264 43265 43472 43473 43504 43505 43600 43601 44016 44017 63922 63923 65296 65297 65930 65931 66720 66721 68912 68913 69734 69735 69872 69873 69942 69943 70096 70097 70384 70385 70736 70737 70864 70865 71248 71249 71360 71361 71472 71473 71904 71905 72016 72017 72784 72785 73040 73041 73120 73121 92768 92769 93008 93009 93824 93825 119520 119521 120782 120783 120792 120793 120802 120803 120812 120813 120822 120823 123200 123201 123632 123633 125264 125265 127232 127234 127243 127245 130032 130033 END PK ! �;�*- - 5.34.0/unicore/lib/Nv/14.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V12 9325 9326 9345 9346 9365 9366 9454 9455 93838 93839 119534 119535 END PK ! ~�+ + 5.34.0/unicore/lib/Nv/100000.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V10 8584 8585 68077 68078 126110 126111 126112 126113 126132 126133 END PK ! EM�:� � 5.34.0/unicore/lib/Nv/4.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V252 52 53 1636 1637 1780 1781 1988 1989 2410 2411 2538 2539 2666 2667 2794 2795 2922 2923 3050 3051 3178 3179 3306 3307 3434 3435 3562 3563 3668 3669 3796 3797 3876 3877 4164 4165 4244 4245 4972 4973 6116 6117 6132 6133 6164 6165 6474 6475 6612 6613 6788 6789 6804 6805 6996 6997 7092 7093 7236 7237 7252 7253 8308 8309 8324 8325 8547 8548 8563 8564 9315 9316 9335 9336 9355 9356 9464 9465 10105 10106 10115 10116 10125 10126 12324 12325 12693 12694 12835 12836 12931 12932 20118 20119 22235 22236 32902 32903 42532 42533 42729 42730 43220 43221 43268 43269 43476 43477 43508 43509 43604 43605 44020 44021 65300 65301 65802 65803 66276 66277 66724 66725 67708 67709 67754 67756 68035 68036 68163 68164 68443 68444 68475 68476 68524 68525 68916 68917 69219 69220 69408 69409 69576 69577 69717 69718 69738 69739 69876 69877 69946 69947 70100 70101 70116 70117 70388 70389 70740 70741 70868 70869 71252 71253 71364 71365 71476 71477 71908 71909 72020 72021 72788 72789 72797 72798 73044 73045 73124 73125 74754 74755 74761 74762 74767 74768 74776 74777 74785 74786 74790 74791 74800 74801 74808 74809 74812 74816 74828 74829 74834 74836 74857 74858 92772 92773 93012 93013 93828 93829 119524 119525 119651 119652 119669 119670 120786 120787 120796 120797 120806 120807 120816 120817 120826 120827 123204 123205 123636 123637 125130 125131 125268 125269 126068 126069 126118 126119 126212 126213 126257 126258 127237 127238 130036 130037 131172 131173 131298 131299 156269 156270 END PK ! ��� � 5.34.0/unicore/lib/Nv/3.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V266 51 52 179 180 1635 1636 1779 1780 1987 1988 2409 2410 2537 2538 2665 2666 2793 2794 2921 2922 3049 3050 3177 3178 3195 3196 3198 3199 3305 3306 3433 3434 3561 3562 3667 3668 3795 3796 3875 3876 4163 4164 4243 4244 4971 4972 6115 6116 6131 6132 6163 6164 6473 6474 6611 6612 6787 6788 6803 6804 6995 6996 7091 7092 7235 7236 7251 7252 8323 8324 8546 8547 8562 8563 9314 9315 9334 9335 9354 9355 9463 9464 10104 10105 10114 10115 10124 10125 12323 12324 12692 12693 12834 12835 12930 12931 19977 19978 20200 20201 21441 21445 24334 24335 42531 42532 42728 42729 43219 43220 43267 43268 43475 43476 43507 43508 43603 43604 44019 44020 63851 63852 65299 65300 65801 65802 66275 66276 66723 66724 67674 67675 67707 67708 67753 67754 67867 67868 68034 68035 68162 68163 68442 68443 68474 68475 68523 68524 68915 68916 69218 69219 69407 69408 69575 69576 69716 69717 69737 69738 69875 69876 69945 69946 70099 70100 70115 70116 70387 70388 70739 70740 70867 70868 71251 71252 71363 71364 71475 71476 71907 71908 72019 72020 72787 72788 72796 72797 73043 73044 73123 73124 74753 74754 74760 74761 74775 74776 74784 74785 74788 74790 74798 74800 74806 74808 74810 74812 74827 74828 74833 74834 74839 74840 92771 92772 93011 93012 93827 93828 93846 93847 119523 119524 119650 119651 119668 119669 120785 120786 120795 120796 120805 120806 120815 120816 120825 120826 123203 123204 123635 123636 125129 125130 125267 125268 126067 126068 126117 126118 126211 126212 126256 126257 127236 127237 130035 130036 133885 133886 133913 133914 141720 141721 146203 146204 END PK ! y}� 7 7 5.34.0/unicore/lib/Nv/1_8.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 2549 2550 2934 2935 3447 3448 8539 8540 43060 43061 73676 73677 74847 74848 END PK ! S ��- - 5.34.0/unicore/lib/Nv/2000.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V10 65827 65828 68060 68061 126093 126094 126237 126238 126266 126267 END PK ! ]K�7 7 5.34.0/unicore/lib/Nv/700.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V12 65823 65824 66297 66298 68056 68057 69240 69241 126089 126090 126233 126234 END PK ! /{�- - 5.34.0/unicore/lib/Nv/13.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V12 9324 9325 9344 9345 9364 9365 9453 9454 93837 93838 119533 119534 END PK ! ���C 5.34.0/unicore/lib/Nv/60000.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 65840 65841 68073 68074 126106 126107 126250 126251 END PK ! � T�7 7 5.34.0/unicore/lib/Nv/17.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 5870 5871 9328 9329 9348 9349 9368 9369 9457 9458 93841 93842 119537 119538 END PK ! ��K�� � 5.34.0/unicore/lib/Nv/10000.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V26 4988 4989 8578 8579 19975 19976 33836 33837 65835 65836 65877 65878 67679 67680 68068 68069 93021 93022 126101 126102 126131 126132 126245 126246 126267 126268 END PK ! �\ՠ� � 5.34.0/unicore/lib/Nv/20.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V72 4979 4980 9331 9332 9351 9352 9371 9372 9460 9461 12345 12346 12873 12874 21316 21317 24319 24320 65809 65810 66283 66284 66516 66517 67676 67677 67711 67712 67758 67759 67838 67839 67864 67865 68042 68043 68165 68166 68255 68256 68334 68335 68445 68446 68477 68478 68526 68527 69226 69227 69411 69412 69459 69460 69578 69579 69724 69725 70123 70124 71483 71484 71915 71916 72804 72805 119658 119659 126075 126076 126219 126220 END PK ! ��= 5.34.0/unicore/lib/Nv/70000.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 65841 65842 68074 68075 126107 126108 126251 126252 END PK ! ���7 7 5.34.0/unicore/lib/Nv/18.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 5871 5872 9329 9330 9349 9350 9369 9370 9458 9459 93842 93843 119538 119539 END PK ! t�2 5.34.0/unicore/lib/Nv/1_6.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 8537 8538 68087 68088 74849 74850 126269 126270 END PK ! M� = = 5.34.0/unicore/lib/Nv/2_3.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 8532 8533 65911 65912 68093 68094 69246 69247 74843 74844 74846 74847 74854 74855 END PK ! ��ۋ � 5.34.0/unicore/lib/Nv/70.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V26 4984 4985 12878 12879 65814 65815 66288 66289 68047 68048 69231 69232 69729 69730 70128 70129 71920 71921 72809 72810 119663 119664 126080 126081 126224 126225 END PK ! �� 5.34.0/unicore/lib/Nv/9000.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 65834 65835 68067 68068 126100 126101 126244 126245 END PK ! 7��! ! 5.34.0/unicore/lib/Nv/1_16.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V10 2548 2549 2933 2934 3446 3447 43059 43060 73673 73675 END PK ! �9��! ! 5.34.0/unicore/lib/Nv/50.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V52 4982 4983 8556 8557 8572 8573 8582 8583 12876 12877 12991 12992 65812 65813 65860 65861 65866 65867 65873 65874 65894 65898 65908 65909 66286 66287 66339 66340 68045 68046 68222 68223 68861 68862 69229 69230 69727 69728 70126 70127 71918 71919 72807 72808 74856 74857 119661 119662 126078 126079 126222 126223 END PK ! �B��E E 5.34.0/unicore/lib/Nv/600.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 65822 65823 66296 66297 68055 68056 69239 69240 126088 126089 126232 126233 126265 126266 END PK ! � � 5.34.0/unicore/lib/Nv/3000.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 65828 65829 68061 68062 126094 126095 126238 126239 END PK ! )��~ 5.34.0/unicore/lib/Nv/2.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V272 50 51 178 179 1634 1635 1778 1779 1986 1987 2408 2409 2536 2537 2664 2665 2792 2793 2920 2921 3048 3049 3176 3177 3194 3195 3197 3198 3304 3305 3432 3433 3560 3561 3666 3667 3794 3795 3874 3875 4162 4163 4242 4243 4970 4971 6114 6115 6130 6131 6162 6163 6472 6473 6610 6611 6786 6787 6802 6803 6994 6995 7090 7091 7234 7235 7250 7251 8322 8323 8545 8546 8561 8562 9313 9314 9333 9334 9353 9354 9462 9463 10103 10104 10113 10114 10123 10124 12322 12323 12691 12692 12833 12834 12929 12930 13443 13444 20108 20109 20841 20842 24333 24334 24336 24337 36014 36015 36019 36020 36144 36145 42530 42531 42727 42728 43218 43219 43266 43267 43474 43475 43506 43507 43602 43603 44018 44019 63864 63865 65298 65299 65800 65801 65883 65887 66274 66275 66514 66515 66722 66723 67673 67674 67706 67707 67752 67753 67866 67867 68033 68034 68161 68162 68441 68442 68473 68474 68522 68523 68914 68915 69217 69218 69406 69407 69574 69575 69715 69716 69736 69737 69874 69875 69944 69945 70098 70099 70114 70115 70386 70387 70738 70739 70866 70867 71250 71251 71362 71363 71474 71475 71906 71907 72018 72019 72786 72787 72795 72796 73042 73043 73122 73123 74752 74753 74774 74775 74783 74784 74787 74788 74797 74798 74805 74806 74826 74827 74832 74833 74838 74839 74841 74842 92770 92771 93010 93011 93826 93827 93845 93846 119522 119523 119649 119650 119667 119668 120784 120785 120794 120795 120804 120805 120814 120815 120824 120825 123202 123203 123634 123635 125128 125129 125266 125267 126066 126067 126116 126117 126130 126131 126210 126211 126255 126256 127235 127236 130034 130035 140176 140177 END PK ! �}.�E E 5.34.0/unicore/lib/Nv/400.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 65820 65821 66294 66295 68053 68054 69237 69238 126086 126087 126230 126231 126264 126265 END PK ! ^�� 5.34.0/unicore/lib/Nv/6.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V226 54 55 1638 1639 1782 1783 1990 1991 2412 2413 2540 2541 2668 2669 2796 2797 2924 2925 3052 3053 3180 3181 3308 3309 3436 3437 3564 3565 3670 3671 3798 3799 3878 3879 4166 4167 4246 4247 4974 4975 6118 6119 6134 6135 6166 6167 6476 6477 6614 6615 6790 6791 6806 6807 6998 6999 7094 7095 7238 7239 7254 7255 8310 8311 8326 8327 8549 8550 8565 8566 8581 8582 9317 9318 9337 9338 9357 9358 9466 9467 10107 10108 10117 10118 10127 10128 12326 12327 12837 12838 12933 12934 20845 20846 38470 38471 38520 38521 42534 42535 42731 42732 43222 43223 43270 43271 43478 43479 43510 43511 43606 43607 44022 44023 63953 63954 63955 63956 65302 65303 65804 65805 66278 66279 66726 66727 68037 68038 68918 68919 69221 69222 69719 69720 69740 69741 69878 69879 69948 69949 70102 70103 70118 70119 70390 70391 70742 70743 70870 70871 71254 71255 71366 71367 71478 71479 71910 71911 72022 72023 72790 72791 72799 72800 73046 73047 73126 73127 74756 74757 74763 74764 74769 74770 74778 74779 74792 74793 74816 74817 74830 74831 74859 74860 92774 92775 93014 93015 93830 93831 119526 119527 119653 119654 120788 120789 120798 120799 120808 120809 120818 120819 120828 120829 123206 123207 123638 123639 125132 125133 125270 125271 126070 126071 126120 126121 126214 126215 126259 126260 127239 127240 130038 130039 133866 133867 END PK ! �j �� � 5.34.0/unicore/lib/Nv/9.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V218 57 58 1641 1642 1785 1786 1993 1994 2415 2416 2543 2544 2671 2672 2799 2800 2927 2928 3055 3056 3183 3184 3311 3312 3439 3440 3567 3568 3673 3674 3801 3802 3881 3882 4169 4170 4249 4250 4977 4978 6121 6122 6137 6138 6169 6170 6479 6480 6617 6618 6793 6794 6809 6810 7001 7002 7097 7098 7241 7242 7257 7258 8313 8314 8329 8330 8552 8553 8568 8569 9320 9321 9340 9341 9360 9361 9469 9470 10110 10111 10120 10121 10130 10131 12329 12330 12840 12841 12936 12937 20061 20062 24318 24319 29590 29591 42537 42538 42734 42735 43225 43226 43273 43274 43481 43482 43513 43514 43609 43610 44025 44026 65305 65306 65807 65808 66281 66282 66729 66730 68040 68041 68921 68922 69224 69225 69722 69723 69743 69744 69881 69882 69951 69952 70105 70106 70121 70122 70393 70394 70745 70746 70873 70874 71257 71258 71369 71370 71481 71482 71913 71914 72025 72026 72793 72794 72802 72803 73049 73050 73129 73130 74759 74760 74766 74767 74772 74773 74781 74782 74795 74796 74822 74826 74862 74863 92777 92778 93017 93018 93833 93834 119529 119530 119656 119657 120791 120792 120801 120802 120811 120812 120821 120822 120831 120832 123209 123210 123641 123642 125135 125136 125273 125274 126073 126074 126123 126124 126217 126218 126262 126263 127242 127243 130041 130042 194704 194705 END PK ! ��w� � 5.34.0/unicore/lib/Nv/1000.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V42 3058 3059 3442 3443 8559 8560 8575 8577 20191 20192 21315 21316 38433 38434 65826 65827 65869 65870 65876 65877 65905 65906 67678 67679 68059 68060 68167 68168 68447 68448 68479 68480 68863 68864 69733 69734 70132 70133 126092 126093 126236 126237 END PK ! ��h� � 5.34.0/unicore/lib/Nv/30.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V38 4980 4981 12346 12347 12874 12875 12890 12891 21317 21318 65810 65811 65893 65894 66284 66285 68043 68044 69227 69228 69412 69413 69725 69726 70124 70125 71916 71917 72805 72806 119659 119660 126076 126077 126220 126221 133507 133508 END PK ! �l��A A 5.34.0/unicore/lib/Nv/11.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V16 8554 8555 8570 8571 9322 9323 9342 9343 9362 9363 9451 9452 93835 93836 119531 119532 END PK ! /��Q 5.34.0/unicore/lib/Nv/40000.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 65838 65839 68071 68072 126104 126105 126248 126249 END PK ! :��� 5.34.0/unicore/lib/Nv/90.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V24 4986 4987 65816 65817 66290 66291 66369 66370 69233 69234 69731 69732 70130 70131 71922 71923 72811 72812 119665 119666 126082 126083 126226 126227 END PK ! �.f 5.34.0/unicore/lib/Nv/1_4.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V26 188 189 2551 2552 2930 2931 3443 3444 43056 43057 65856 65857 65931 65932 68088 68089 69244 69245 73680 73681 74848 74849 74850 74852 126125 126126 END PK ! ���%� � 5.34.0/unicore/lib/Nv/7.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V220 55 56 1639 1640 1783 1784 1991 1992 2413 2414 2541 2542 2669 2670 2797 2798 2925 2926 3053 3054 3181 3182 3309 3310 3437 3438 3565 3566 3671 3672 3799 3800 3879 3880 4167 4168 4247 4248 4975 4976 6119 6120 6135 6136 6167 6168 6477 6478 6615 6616 6791 6792 6807 6808 6999 7000 7095 7096 7239 7240 7255 7256 8311 8312 8327 8328 8550 8551 8566 8567 9318 9319 9338 9339 9358 9359 9467 9468 10108 10109 10118 10119 10128 10129 12327 12328 12838 12839 12934 12935 15181 15182 19971 19972 26578 26579 28422 28423 42535 42536 42732 42733 43223 43224 43271 43272 43479 43480 43511 43512 43607 43608 44023 44024 65303 65304 65805 65806 66279 66280 66727 66728 68038 68039 68919 68920 69222 69223 69720 69721 69741 69742 69879 69880 69949 69950 70103 70104 70119 70120 70391 70392 70743 70744 70871 70872 71255 71256 71367 71368 71479 71480 71911 71912 72023 72024 72791 72792 72800 72801 73047 73048 73127 73128 74757 74758 74764 74765 74770 74771 74779 74780 74793 74794 74817 74820 74860 74861 92775 92776 93015 93016 93831 93832 119527 119528 119654 119655 120789 120790 120799 120800 120809 120810 120819 120820 120829 120830 123207 123208 123639 123640 125133 125134 125271 125272 126071 126072 126121 126122 126215 126216 126260 126261 127240 127241 130039 130040 131073 131074 END PK ! �� 5.34.0/unicore/lib/Nv/7000.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 65832 65833 68065 68066 126098 126099 126242 126243 END PK ! �|�- - 5.34.0/unicore/lib/Nv/15.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V12 9326 9327 9346 9347 9366 9367 9455 9456 93839 93840 119535 119536 END PK ! �*ٹ 5.34.0/unicore/lib/Nv/8000.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 65833 65834 68066 68067 126099 126100 126243 126244 END PK ! �� �{ { 5.34.0/unicore/lib/Nv/500.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V24 8558 8559 8574 8575 65821 65822 65861 65862 65868 65869 65875 65876 65900 65905 66295 66296 68054 68055 69238 69239 126087 126088 126231 126232 END PK ! �'�j� � 5.34.0/unicore/lib/Nv/8.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V214 56 57 1640 1641 1784 1785 1992 1993 2414 2415 2542 2543 2670 2671 2798 2799 2926 2927 3054 3055 3182 3183 3310 3311 3438 3439 3566 3567 3672 3673 3800 3801 3880 3881 4168 4169 4248 4249 4976 4977 6120 6121 6136 6137 6168 6169 6478 6479 6616 6617 6792 6793 6808 6809 7000 7001 7096 7097 7240 7241 7256 7257 8312 8313 8328 8329 8551 8552 8567 8568 9319 9320 9339 9340 9359 9360 9468 9469 10109 10110 10119 10120 10129 10130 12328 12329 12839 12840 12935 12936 20843 20844 25420 25421 42536 42537 42733 42734 43224 43225 43272 43273 43480 43481 43512 43513 43608 43609 44024 44025 65304 65305 65806 65807 66280 66281 66728 66729 68039 68040 68920 68921 69223 69224 69721 69722 69742 69743 69880 69881 69950 69951 70104 70105 70120 70121 70392 70393 70744 70745 70872 70873 71256 71257 71368 71369 71480 71481 71912 71913 72024 72025 72792 72793 72801 72802 73048 73049 73128 73129 74758 74759 74765 74766 74771 74772 74780 74781 74794 74795 74820 74822 74861 74862 92776 92777 93016 93017 93832 93833 119528 119529 119655 119656 120790 120791 120800 120801 120810 120811 120820 120821 120830 120831 123208 123209 123640 123641 125134 125135 125272 125273 126072 126073 126122 126123 126216 126217 126261 126262 127241 127242 130040 130041 END PK ! ¡!� 5.34.0/unicore/lib/Nv/4000.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 65829 65830 68062 68063 126095 126096 126239 126240 END PK ! ��}� 5.34.0/unicore/lib/Nv/6000.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 65831 65832 68064 68065 126097 126098 126241 126242 END PK ! �Y�xA A 5.34.0/unicore/lib/Nv/50000.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 8583 8584 65839 65840 65863 65864 65878 65879 68072 68073 126105 126106 126249 126250 END PK ! �M�{� � 5.34.0/unicore/lib/Nv/100.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V70 3057 3058 3441 3442 4987 4988 8557 8558 8573 8574 20336 20337 30334 30335 38476 38477 65817 65818 65867 65868 65874 65875 65898 65899 66291 66292 66517 66518 67677 67678 67759 67760 67839 67840 67865 67866 68050 68051 68166 68167 68335 68336 68446 68447 68478 68479 68527 68528 68862 68863 69234 69235 69413 69414 69460 69461 69579 69580 69732 69733 70131 70132 72812 72813 93020 93021 126083 126084 126227 126228 END PK ! ��! ! 5.34.0/unicore/lib/Nv/3_16.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V10 2550 2551 2935 2936 3448 3449 43061 43062 73678 73679 END PK ! Q9�@� � 5.34.0/unicore/lib/Nv/40.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V36 4981 4982 12875 12876 12981 12982 21324 21325 65811 65812 66285 66286 68044 68045 69228 69229 69726 69727 70125 70126 71917 71918 72806 72807 74855 74856 119660 119661 126077 126078 126221 126222 133516 133517 133532 133533 END PK ! ���7C C 5.34.0/unicore/lib/Nv/900.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 65825 65826 66299 66300 66378 66379 68058 68059 69242 69243 126091 126092 126235 126236 END PK ! OYp+7 7 5.34.0/unicore/lib/Nv/19.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 5872 5873 9330 9331 9350 9351 9370 9371 9459 9460 93843 93844 119539 119540 END PK ! j�~� 5.34.0/unicore/lib/Nv/80.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V24 4985 4986 12879 12880 65815 65816 66289 66290 69232 69233 69730 69731 70129 70130 71921 71922 72810 72811 119664 119665 126081 126082 126225 126226 END PK ! Q 0�1 1 5.34.0/unicore/lib/Nv/1_3.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V12 8531 8532 68089 68090 69245 69246 74842 74843 74845 74846 74853 74854 END PK ! �!�_7 7 5.34.0/unicore/lib/Nv/200.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V12 65818 65819 66292 66293 68051 68052 69235 69236 126084 126085 126228 126229 END PK ! ���7 7 5.34.0/unicore/lib/Nv/800.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V12 65824 65825 66298 66299 68057 68058 69241 69242 126090 126091 126234 126235 END PK ! {9?A A 5.34.0/unicore/lib/Nv/12.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V16 8555 8556 8571 8572 9323 9324 9343 9344 9363 9364 9452 9453 93836 93837 119532 119533 END PK ! {�K� 5.34.0/unicore/lib/Nv/20000.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 65836 65837 68069 68070 126102 126103 126246 126247 END PK ! �l 9 5.34.0/unicore/lib/Nv/80000.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 65842 65843 68075 68076 126108 126109 126252 126253 END PK ! ��qyO O 5.34.0/unicore/lib/CE/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V66 2392 2400 2524 2526 2527 2528 2611 2612 2614 2615 2649 2652 2654 2655 2908 2910 3907 3908 3917 3918 3922 3923 3927 3928 3932 3933 3945 3946 3958 3959 3960 3961 3987 3988 3997 3998 4002 4003 4007 4008 4012 4013 4025 4026 10972 10973 64285 64286 64287 64288 64298 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64335 119134 119141 119227 119233 END PK ! �7� 5.34.0/unicore/lib/InSC/Nukta.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V52 2364 2365 2492 2493 2620 2621 2748 2749 2813 2816 2876 2877 3260 3261 3897 3898 6964 6965 7142 7143 7223 7224 43443 43444 68152 68155 69818 69819 70003 70004 70090 70091 70198 70199 70377 70378 70459 70461 70726 70727 70851 70852 71104 71105 71351 71352 71738 71739 72003 72004 73026 73027 END PK ! ��c� � # 5.34.0/unicore/lib/InSC/PureKill.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V42 3387 3389 3642 3643 3662 3663 3770 3771 3972 3973 4154 4155 5908 5909 5940 5941 6097 6098 6778 6779 7082 7083 7154 7156 43052 43053 43347 43348 44013 44014 69940 69941 70378 70379 71467 71468 71997 71998 72244 72245 73028 73029 END PK ! hz� # 5.34.0/unicore/lib/InSC/Consona2.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 2510 2511 3412 3415 3450 3456 7410 7412 END PK ! #� # 5.34.0/unicore/lib/InSC/Consona9.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 6092 6093 6915 6916 7041 7042 43394 43395 END PK ! �!ن � # 5.34.0/unicore/lib/InSC/VowelDep.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V264 2362 2364 2366 2381 2382 2384 2389 2392 2402 2404 2494 2501 2503 2505 2507 2509 2519 2520 2530 2532 2622 2627 2631 2633 2635 2637 2750 2758 2759 2762 2763 2765 2786 2788 2878 2885 2887 2889 2891 2893 2901 2904 2914 2916 3006 3011 3014 3017 3018 3021 3031 3032 3134 3141 3142 3145 3146 3149 3157 3159 3170 3172 3262 3269 3270 3273 3274 3277 3285 3287 3298 3300 3390 3397 3398 3401 3402 3405 3415 3416 3426 3428 3535 3541 3542 3543 3544 3552 3570 3572 3632 3642 3648 3654 3655 3656 3760 3770 3771 3772 3776 3781 3953 3966 3968 3970 4139 4150 4182 4186 4194 4195 4199 4201 4209 4213 4227 4231 4252 4254 5906 5908 5938 5940 5970 5972 6002 6004 6070 6086 6088 6089 6432 6441 6458 6459 6576 6593 6679 6684 6753 6772 6965 6980 7076 7082 7143 7152 7206 7213 43010 43011 43043 43048 43189 43204 43263 43264 43335 43343 43444 43453 43493 43494 43561 43571 43696 43711 43755 43760 44003 44011 68097 68100 68101 68103 68108 68110 69688 69702 69808 69817 69927 69939 69957 69959 70067 70080 70091 70093 70094 70095 70188 70196 70368 70377 70462 70469 70471 70473 70475 70477 70487 70488 70498 70500 70709 70722 70832 70847 71087 71094 71096 71100 71132 71134 71216 71229 71232 71233 71341 71350 71456 71467 71724 71735 71984 71990 71991 71993 72145 72152 72154 72158 72164 72165 72193 72203 72273 72284 72751 72759 72760 72764 72880 72885 73009 73015 73018 73019 73020 73022 73023 73024 73027 73028 73098 73103 73104 73106 73107 73109 73459 73463 END PK ! ����k k # 5.34.0/unicore/lib/InSC/Cantilla.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V24 2385 2387 2641 2642 2810 2813 7376 7379 7380 7394 7412 7413 7415 7418 8432 8433 43232 43250 70206 70207 70502 70509 70512 70517 END PK ! � s% % 5.34.0/unicore/lib/InSC/Vowel.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V10 6499 6510 43102 43106 43110 43111 43298 43307 69968 69973 END PK ! c�_Cs s " 5.34.0/unicore/lib/InSC/Visarga.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V70 2307 2308 2435 2436 2563 2564 2691 2692 2819 2820 3075 3076 3203 3204 3331 3332 3459 3460 3967 3968 4152 4153 6087 6088 6916 6917 7042 7043 43137 43138 43395 43396 43765 43766 68111 68112 69634 69635 69762 69763 69890 69891 70018 70019 70403 70404 70725 70726 70849 70850 71102 71103 71230 71231 71340 71341 71736 71737 72159 72160 72249 72250 72343 72344 72766 72767 73025 73026 73110 73111 END PK ! ,��ց � # 5.34.0/unicore/lib/InSC/Consona7.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V30 45 46 160 161 215 216 2432 2433 2674 2676 4171 4172 4174 4175 6400 6401 7418 7419 8208 8213 9676 9677 43636 43639 72255 72256 72261 72262 73458 73459 END PK ! ��߇ � # 5.34.0/unicore/lib/InSC/Consona4.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V28 2677 2678 3772 3774 4155 4159 4190 4193 4226 4227 6741 6743 43188 43189 43453 43456 43571 43575 71453 71456 72000 72001 72002 72003 72251 72255 73031 73032 END PK ! �C��� � # 5.34.0/unicore/lib/InSC/VowelInd.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V174 2308 2325 2400 2402 2418 2424 2437 2445 2447 2449 2451 2453 2528 2530 2565 2571 2575 2577 2579 2581 2693 2702 2703 2706 2707 2709 2784 2786 2821 2829 2831 2833 2835 2837 2912 2914 2949 2955 2958 2961 2962 2965 3077 3085 3086 3089 3090 3093 3168 3170 3205 3213 3214 3217 3218 3221 3296 3298 3333 3341 3342 3345 3346 3349 3423 3426 3461 3479 4129 4139 4178 4182 5888 5891 5920 5923 5952 5955 5984 5987 6051 6068 6733 6739 6917 6931 7043 7050 7140 7142 43008 43010 43011 43014 43138 43154 43262 43263 43396 43401 43404 43407 43520 43526 43744 43746 43982 43984 43985 43986 69637 69651 69763 69773 69891 69895 70019 70033 70144 70152 70272 70276 70320 70330 70405 70413 70415 70417 70419 70421 70496 70498 70656 70670 70785 70799 71040 71054 71128 71132 71168 71182 71296 71306 71680 71690 71936 71943 71945 71946 72096 72104 72106 72110 72192 72193 72272 72273 72704 72713 72714 72718 72960 72967 72968 72970 72971 72972 73056 73062 73063 73065 73066 73068 END PK ! 3&R�a a # 5.34.0/unicore/lib/InSC/Consona3.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V22 6448 6450 6451 6458 6593 6600 6744 6746 7102 7104 7152 7154 7213 7220 43343 43347 43584 43598 43995 44003 72330 72342 END PK ! �`Z1 # 5.34.0/unicore/lib/InSC/Consona5.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 70082 70084 71999 72000 72250 72251 72324 72330 END PK ! �ָ�Z Z 5.34.0/unicore/lib/InSC/Bindu.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V112 2304 2307 2433 2435 2556 2557 2561 2563 2672 2673 2689 2691 2817 2819 2946 2947 3072 3075 3076 3077 3200 3203 3328 3331 3332 3333 3457 3459 3661 3662 3789 3790 3966 3967 3970 3972 4150 4151 6086 6087 6450 6451 6772 6773 6912 6915 7040 7041 7220 7222 43019 43020 43123 43124 43136 43137 43205 43206 43250 43252 43392 43394 68110 68111 69632 69634 69760 69762 69888 69890 70016 70018 70095 70096 70196 70197 70367 70368 70400 70403 70494 70496 70723 70725 70751 70752 70847 70849 71100 71102 71229 71230 71339 71340 71735 71736 71995 71997 72158 72159 72245 72249 72342 72343 72764 72766 72885 72887 73024 73025 73109 73110 END PK ! ��a� � ! 5.34.0/unicore/lib/InSC/Number.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V90 48 58 2406 2416 2534 2544 2662 2672 2790 2800 2918 2928 3046 3056 3174 3184 3302 3312 3430 3440 3558 3568 3664 3674 3792 3802 3872 3892 4160 4170 4240 4250 6112 6122 6470 6480 6608 6619 6784 6794 6800 6810 6992 7002 7088 7098 7232 7242 43216 43226 43264 43274 43472 43482 43504 43514 43600 43610 44016 44026 68160 68169 69734 69744 69942 69952 70096 70106 70113 70133 70384 70394 70736 70746 70864 70874 71248 71258 71360 71370 71472 71484 72016 72026 72784 72813 73040 73050 73120 73130 END PK ! �h �k k # 5.34.0/unicore/lib/InSC/Consona6.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V24 3981 3992 3993 4029 6441 6444 6743 6744 6747 6751 7073 7076 7084 7086 7204 7206 43111 43113 43121 43122 72850 72872 72873 72880 END PK ! �- Dh h # 5.34.0/unicore/lib/InSC/Consonan.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V306 2325 2362 2392 2400 2424 2432 2453 2473 2474 2481 2482 2483 2486 2490 2524 2526 2527 2528 2544 2546 2581 2601 2602 2609 2610 2612 2613 2615 2616 2618 2649 2653 2654 2655 2709 2729 2730 2737 2738 2740 2741 2746 2809 2810 2837 2857 2858 2865 2866 2868 2869 2874 2908 2910 2911 2912 2929 2930 2965 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3093 3113 3114 3130 3160 3163 3221 3241 3242 3252 3253 3258 3294 3295 3349 3387 3482 3506 3507 3516 3517 3518 3520 3527 3585 3631 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3759 3804 3808 3904 3912 3913 3949 4096 4129 4159 4160 4176 4178 4186 4190 4193 4194 4197 4199 4206 4209 4213 4226 4238 4239 5891 5901 5902 5906 5923 5938 5955 5970 5987 5997 5998 6001 6016 6051 6401 6431 6480 6499 6528 6572 6656 6679 6688 6733 6739 6741 6931 6964 6981 6988 7050 7073 7086 7088 7099 7102 7104 7140 7168 7204 7245 7248 43015 43019 43020 43043 43072 43102 43106 43110 43113 43121 43122 43123 43154 43188 43274 43298 43312 43335 43401 43404 43407 43443 43488 43493 43495 43504 43514 43519 43526 43561 43616 43632 43633 43636 43642 43643 43646 43696 43746 43755 43968 43982 43984 43985 43986 43995 68096 68097 68112 68116 68117 68120 68121 68150 69651 69688 69773 69808 69895 69927 69956 69957 69959 69960 69973 70003 70033 70067 70152 70162 70163 70188 70276 70279 70280 70281 70282 70286 70287 70302 70303 70313 70330 70367 70421 70441 70442 70449 70450 70452 70453 70458 70670 70709 70799 70832 71054 71087 71182 71216 71306 71339 71352 71353 71424 71451 71690 71724 71948 71956 71957 71959 71960 71984 72110 72145 72203 72243 72284 72324 72718 72751 72818 72848 72972 73009 73068 73098 73440 73458 END PK ! ���� ! 5.34.0/unicore/lib/InSC/Virama.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V54 2381 2382 2509 2510 2637 2638 2765 2766 2893 2894 3021 3022 3149 3150 3277 3278 3405 3406 3530 3531 6980 6981 43014 43015 43204 43205 43456 43457 69702 69703 69817 69818 70080 70081 70197 70198 70477 70478 70722 70723 70850 70851 71103 71104 71231 71232 71350 71351 71737 71738 72160 72161 72767 72768 END PK ! 4� � � # 5.34.0/unicore/lib/InSC/Syllable.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V38 178 180 2558 2559 3893 3894 3895 3896 4038 4039 6091 6092 6094 6097 6099 6100 6109 6110 6459 6460 6779 6781 6783 6784 7222 7223 7675 7676 8308 8309 8322 8325 70089 70090 70750 70751 72243 72244 END PK ! !� � # 5.34.0/unicore/lib/InSC/Avagraha.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V34 2365 2366 2493 2494 2749 2750 2877 2878 3133 3134 3261 3262 3389 3390 3973 3974 6108 6109 7098 7099 70081 70082 70461 70462 70727 70728 70852 70853 72161 72162 72349 72350 72768 72769 END PK ! T��� � # 5.34.0/unicore/lib/InSC/ToneMark.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V30 3656 3660 3784 3788 4151 4152 4195 4197 4201 4206 4231 4238 4239 4240 4250 4252 6600 6602 6773 6778 43307 43310 43643 43646 43711 43712 43713 43714 44012 44013 END PK ! _kZs s # 5.34.0/unicore/lib/InSC/Invisibl.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V24 4153 4154 6098 6099 6752 6753 7083 7084 43766 43767 68159 68160 69939 69940 71998 71999 72263 72264 72345 72346 73029 73030 73111 73112 END PK ! �Hv # 5.34.0/unicore/lib/InSC/Consona8.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 3313 3315 7413 7415 69635 69637 70752 70754 END PK ! F[�X X 5.34.0/unicore/lib/InSC/Other.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V643 0 45 46 48 58 160 161 178 180 215 216 2304 2384 2385 2387 2389 2404 2406 2416 2418 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2546 2556 2557 2558 2559 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2676 2677 2678 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2784 2788 2790 2800 2809 2816 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2901 2904 2908 2910 2911 2916 2918 2928 2929 2930 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3031 3032 3046 3056 3072 3085 3086 3089 3090 3113 3114 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3163 3168 3172 3174 3184 3200 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3328 3341 3342 3345 3346 3397 3398 3401 3402 3407 3412 3416 3423 3428 3430 3440 3450 3456 3457 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3558 3568 3570 3572 3585 3631 3632 3643 3648 3654 3655 3663 3664 3674 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3759 3760 3774 3776 3781 3784 3788 3789 3790 3792 3802 3804 3808 3872 3892 3893 3894 3895 3896 3897 3898 3904 3912 3913 3949 3953 3974 3976 3992 3993 4029 4038 4039 4096 4170 4171 4172 4174 4175 4176 4254 5888 5901 5902 5909 5920 5941 5952 5972 5984 5997 5998 6001 6002 6004 6016 6068 6070 6100 6108 6110 6112 6122 6400 6431 6432 6444 6448 6460 6470 6510 6512 6517 6528 6572 6576 6602 6608 6619 6656 6684 6688 6751 6752 6781 6783 6794 6800 6810 6912 6988 6992 7002 7040 7156 7168 7224 7232 7242 7245 7248 7376 7379 7380 7394 7410 7419 7675 7676 8204 8206 8208 8213 8308 8309 8322 8325 8432 8433 9676 9677 43008 43048 43052 43053 43072 43124 43136 43206 43216 43226 43232 43252 43262 43310 43312 43348 43392 43457 43472 43482 43488 43494 43495 43519 43520 43575 43584 43598 43600 43610 43616 43632 43633 43639 43642 43715 43744 43760 43765 43767 43968 44011 44012 44014 44016 44026 68096 68100 68101 68103 68108 68116 68117 68120 68121 68150 68152 68155 68159 68169 69632 69703 69714 69744 69759 69819 69888 69941 69942 69952 69956 69960 69968 70004 70016 70084 70089 70093 70094 70106 70113 70133 70144 70162 70163 70200 70206 70207 70272 70279 70280 70281 70282 70286 70287 70302 70303 70313 70320 70379 70384 70394 70400 70404 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70459 70469 70471 70473 70475 70478 70487 70488 70494 70500 70502 70509 70512 70517 70656 70728 70736 70746 70750 70754 70785 70853 70864 70874 71040 71094 71096 71105 71128 71134 71168 71233 71248 71258 71296 71353 71360 71370 71424 71451 71453 71468 71472 71484 71680 71739 71936 71943 71945 71946 71948 71956 71957 71959 71960 71990 71991 71993 71995 72004 72016 72026 72096 72104 72106 72152 72154 72162 72164 72165 72192 72256 72261 72262 72263 72264 72272 72346 72349 72350 72704 72713 72714 72759 72760 72769 72784 72813 72818 72848 72850 72872 72873 72887 72960 72967 72968 72970 72971 73015 73018 73019 73020 73022 73023 73032 73040 73050 73056 73062 73063 73065 73066 73103 73104 73106 73107 73112 73120 73130 73440 73463 END PK ! �5� � 5.34.0/unicore/lib/PatSyn/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V56 33 48 58 65 91 95 96 97 123 127 161 168 169 170 171 173 174 175 176 178 182 183 187 188 191 192 215 216 247 248 8208 8232 8240 8255 8257 8276 8277 8287 8592 9312 9472 10102 10132 11264 11776 11904 12289 12292 12296 12321 12336 12337 64830 64832 65093 65095 END PK ! ٩v$� � 5.34.0/unicore/lib/WB/NU.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V124 48 58 1632 1642 1643 1644 1776 1786 1984 1994 2406 2416 2534 2544 2662 2672 2790 2800 2918 2928 3046 3056 3174 3184 3302 3312 3430 3440 3558 3568 3664 3674 3792 3802 3872 3882 4160 4170 4240 4250 6112 6122 6160 6170 6470 6480 6608 6618 6784 6794 6800 6810 6992 7002 7088 7098 7232 7242 7248 7258 42528 42538 43216 43226 43264 43274 43472 43482 43504 43514 43600 43610 44016 44026 65296 65306 66720 66730 68912 68922 69734 69744 69872 69882 69942 69952 70096 70106 70384 70394 70736 70746 70864 70874 71248 71258 71360 71370 71472 71482 71904 71914 72016 72026 72784 72794 73040 73050 73120 73130 92768 92778 93008 93018 120782 120832 123200 123210 123632 123642 125264 125274 130032 130042 END PK ! [��/ / 5.34.0/unicore/lib/WB/LE.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1094 65 91 97 123 170 171 181 182 186 187 192 215 216 247 248 728 734 768 880 885 886 888 890 894 895 896 902 903 904 907 908 909 910 930 931 1014 1015 1154 1162 1328 1329 1367 1369 1373 1374 1375 1376 1417 1418 1419 1523 1524 1568 1611 1646 1648 1649 1748 1749 1750 1765 1767 1774 1776 1786 1789 1791 1792 1808 1809 1810 1840 1869 1958 1969 1970 1994 2027 2036 2038 2042 2043 2048 2070 2074 2075 2084 2085 2088 2089 2112 2137 2144 2155 2208 2229 2230 2248 2308 2362 2365 2366 2384 2385 2392 2402 2417 2433 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2493 2494 2510 2511 2524 2526 2527 2530 2544 2546 2556 2557 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2649 2653 2654 2655 2674 2677 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2749 2750 2768 2769 2784 2786 2809 2810 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2877 2878 2908 2910 2911 2914 2929 2930 2947 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3024 3025 3077 3085 3086 3089 3090 3113 3114 3130 3133 3134 3160 3163 3168 3170 3200 3201 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3261 3262 3294 3295 3296 3298 3313 3315 3332 3341 3342 3345 3346 3387 3389 3390 3406 3407 3412 3415 3423 3426 3450 3456 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3840 3841 3904 3912 3913 3949 3976 3981 4256 4294 4295 4296 4301 4302 4304 4347 4348 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4992 5008 5024 5110 5112 5118 5121 5741 5743 5760 5761 5787 5792 5867 5870 5881 5888 5901 5902 5906 5920 5938 5952 5970 5984 5997 5998 6001 6176 6265 6272 6277 6279 6313 6314 6315 6320 6390 6400 6431 6656 6679 6917 6964 6981 6988 7043 7073 7086 7088 7098 7142 7168 7204 7245 7248 7258 7294 7296 7305 7312 7355 7357 7360 7401 7405 7406 7412 7413 7415 7418 7419 7424 7616 7680 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8125 8126 8127 8130 8133 8134 8141 8144 8148 8150 8156 8160 8173 8178 8181 8182 8189 8305 8306 8319 8320 8336 8349 8450 8451 8455 8456 8458 8468 8469 8470 8473 8478 8484 8485 8486 8487 8488 8489 8490 8494 8495 8506 8508 8512 8517 8522 8526 8527 8544 8585 9398 9450 11264 11311 11312 11359 11360 11493 11499 11503 11506 11508 11520 11558 11559 11560 11565 11566 11568 11624 11631 11632 11648 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11823 11824 12293 12294 12347 12349 12549 12592 12593 12687 12704 12736 40960 42125 42192 42238 42240 42509 42512 42528 42538 42540 42560 42607 42623 42654 42656 42736 42760 42944 42946 42955 42997 43010 43011 43014 43015 43019 43020 43043 43072 43124 43138 43188 43250 43256 43259 43260 43261 43263 43274 43302 43312 43335 43360 43389 43396 43443 43471 43472 43520 43561 43584 43587 43588 43596 43744 43755 43762 43765 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43882 43888 44003 44032 55204 55216 55239 55243 55292 64256 64263 64275 64280 64336 64434 64467 64830 64848 64912 64914 64968 65008 65020 65136 65141 65142 65277 65313 65339 65345 65371 65440 65471 65474 65480 65482 65488 65490 65496 65498 65501 65536 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65856 65909 66176 66205 66208 66257 66304 66336 66349 66379 66384 66422 66432 66462 66464 66500 66504 66512 66513 66518 66560 66718 66736 66772 66776 66812 66816 66856 66864 66916 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67680 67703 67712 67743 67808 67827 67828 67830 67840 67862 67872 67898 67968 68024 68030 68032 68096 68097 68112 68116 68117 68120 68121 68150 68192 68221 68224 68253 68288 68296 68297 68325 68352 68406 68416 68438 68448 68467 68480 68498 68608 68681 68736 68787 68800 68851 68864 68900 69248 69290 69296 69298 69376 69405 69415 69416 69424 69446 69552 69573 69600 69623 69635 69688 69763 69808 69840 69865 69891 69927 69956 69957 69959 69960 69968 70003 70006 70007 70019 70067 70081 70085 70106 70107 70108 70109 70144 70162 70163 70188 70272 70279 70280 70281 70282 70286 70287 70302 70303 70313 70320 70367 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70461 70462 70480 70481 70493 70498 70656 70709 70727 70731 70751 70754 70784 70832 70852 70854 70855 70856 71040 71087 71128 71132 71168 71216 71236 71237 71296 71339 71352 71353 71680 71724 71840 71904 71935 71943 71945 71946 71948 71956 71957 71959 71960 71984 71999 72000 72001 72002 72096 72104 72106 72145 72161 72162 72163 72164 72192 72193 72203 72243 72250 72251 72272 72273 72284 72330 72349 72350 72384 72441 72704 72713 72714 72751 72768 72769 72818 72848 72960 72967 72968 72970 72971 73009 73030 73031 73056 73062 73063 73065 73066 73098 73112 73113 73440 73459 73648 73649 73728 74650 74752 74863 74880 75076 77824 78895 82944 83527 92160 92729 92736 92767 92880 92910 92928 92976 92992 92996 93027 93048 93053 93072 93760 93824 93952 94027 94032 94033 94099 94112 94176 94178 94179 94180 113664 113771 113776 113789 113792 113801 113808 113818 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120513 120514 120539 120540 120571 120572 120597 120598 120629 120630 120655 120656 120687 120688 120713 120714 120745 120746 120771 120772 120780 123136 123181 123191 123198 123214 123215 123584 123628 124928 125125 125184 125252 125259 125260 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 127280 127306 127312 127338 127344 127370 END PK ! d��qg g 5.34.0/unicore/lib/WB/KA.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V20 12337 12342 12443 12445 12448 12539 12540 12544 12784 12800 13008 13055 13056 13144 65382 65438 110592 110593 110948 110952 END PK ! ����C C 5.34.0/unicore/lib/WB/ML.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V18 58 59 183 184 903 904 1375 1376 1524 1525 8231 8232 65043 65044 65109 65110 65306 65307 END PK ! �v�y� � 5.34.0/unicore/lib/WB/FO.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V38 173 174 1536 1542 1564 1565 1757 1758 1807 1808 2274 2275 6158 6159 8206 8208 8234 8239 8288 8293 8294 8304 65279 65280 65529 65532 69821 69822 69837 69838 78896 78905 113824 113828 119155 119163 917505 917506 END PK ! Rv��) ) 5.34.0/unicore/lib/WB/MB.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V12 46 47 8216 8218 8228 8229 65106 65107 65287 65288 65294 65295 END PK ! � ̺ � 5.34.0/unicore/lib/WB/Extend.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V588 768 880 1155 1162 1425 1470 1471 1472 1473 1475 1476 1478 1479 1480 1552 1563 1611 1632 1648 1649 1750 1757 1759 1765 1767 1769 1770 1774 1809 1810 1840 1867 1958 1969 2027 2036 2045 2046 2070 2074 2075 2084 2085 2088 2089 2094 2137 2140 2259 2274 2275 2308 2362 2365 2366 2384 2385 2392 2402 2404 2433 2436 2492 2493 2494 2501 2503 2505 2507 2510 2519 2520 2530 2532 2558 2559 2561 2564 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2672 2674 2677 2678 2689 2692 2748 2749 2750 2758 2759 2762 2763 2766 2786 2788 2810 2816 2817 2820 2876 2877 2878 2885 2887 2889 2891 2894 2901 2904 2914 2916 2946 2947 3006 3011 3014 3017 3018 3022 3031 3032 3072 3077 3134 3141 3142 3145 3146 3150 3157 3159 3170 3172 3201 3204 3260 3261 3262 3269 3270 3273 3274 3278 3285 3287 3298 3300 3328 3332 3387 3389 3390 3397 3398 3401 3402 3406 3415 3416 3426 3428 3457 3460 3530 3531 3535 3541 3542 3543 3544 3552 3570 3572 3633 3634 3636 3643 3655 3663 3761 3762 3764 3773 3784 3790 3864 3866 3893 3894 3895 3896 3897 3898 3902 3904 3953 3973 3974 3976 3981 3992 3993 4029 4038 4039 4139 4159 4182 4186 4190 4193 4194 4197 4199 4206 4209 4213 4226 4238 4239 4240 4250 4254 4957 4960 5906 5909 5938 5941 5970 5972 6002 6004 6068 6100 6109 6110 6155 6158 6277 6279 6313 6314 6432 6444 6448 6460 6679 6684 6741 6751 6752 6781 6783 6784 6832 6849 6912 6917 6964 6981 7019 7028 7040 7043 7073 7086 7142 7156 7204 7224 7376 7379 7380 7401 7405 7406 7412 7413 7415 7418 7616 7674 7675 7680 8204 8205 8400 8433 11503 11506 11647 11648 11744 11776 12330 12336 12441 12443 42607 42611 42612 42622 42654 42656 42736 42738 43010 43011 43014 43015 43019 43020 43043 43048 43052 43053 43136 43138 43188 43206 43232 43250 43263 43264 43302 43310 43335 43348 43392 43396 43443 43457 43493 43494 43561 43575 43587 43588 43596 43598 43643 43646 43696 43697 43698 43701 43703 43705 43710 43712 43713 43714 43755 43760 43765 43767 44003 44011 44012 44014 64286 64287 65024 65040 65056 65072 65438 65440 66045 66046 66272 66273 66422 66427 68097 68100 68101 68103 68108 68112 68152 68155 68159 68160 68325 68327 68900 68904 69291 69293 69446 69457 69632 69635 69688 69703 69759 69763 69808 69819 69888 69891 69927 69941 69957 69959 70003 70004 70016 70019 70067 70081 70089 70093 70094 70096 70188 70200 70206 70207 70367 70379 70400 70404 70459 70461 70462 70469 70471 70473 70475 70478 70487 70488 70498 70500 70502 70509 70512 70517 70709 70727 70750 70751 70832 70852 71087 71094 71096 71105 71132 71134 71216 71233 71339 71352 71453 71468 71724 71739 71984 71990 71991 71993 71995 71999 72000 72001 72002 72004 72145 72152 72154 72161 72164 72165 72193 72203 72243 72250 72251 72255 72263 72264 72273 72284 72330 72346 72751 72759 72760 72768 72850 72872 72873 72887 73009 73015 73018 73019 73020 73022 73023 73030 73031 73032 73098 73103 73104 73106 73107 73112 73459 73463 92912 92917 92976 92983 94031 94032 94033 94088 94095 94099 94180 94181 94192 94194 113821 113823 119141 119146 119149 119155 119163 119171 119173 119180 119210 119214 119362 119365 121344 121399 121403 121453 121461 121462 121476 121477 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123184 123191 123628 123632 125136 125143 125252 125259 127995 128000 917536 917632 917760 918000 END PK ! n�` 3 3 5.34.0/unicore/lib/WB/EX.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 95 96 8239 8240 8255 8257 8276 8277 65075 65077 65101 65104 65343 65344 END PK ! ����% % ! 5.34.0/unicore/lib/WB/WSegSpac.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V12 32 33 5760 5761 8192 8199 8200 8203 8287 8288 12288 12289 END PK ! ��m�_ _ 5.34.0/unicore/lib/WB/HL.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V20 1488 1515 1519 1523 64285 64286 64287 64297 64298 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64336 END PK ! �<�y y 5.34.0/unicore/lib/WB/MN.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V28 44 45 59 60 894 895 1417 1418 1548 1550 1644 1645 2040 2041 8260 8261 65040 65041 65044 65045 65104 65105 65108 65109 65292 65293 65307 65308 END PK ! ���,�" �" 5.34.0/unicore/lib/WB/XX.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1487 0 10 14 32 33 34 35 39 40 44 45 46 47 48 60 65 91 95 96 97 123 133 134 170 171 173 174 181 182 183 184 186 187 192 215 216 247 248 728 734 885 886 888 890 896 902 907 908 909 910 930 931 1014 1015 1154 1155 1328 1329 1367 1369 1373 1374 1419 1425 1470 1471 1472 1473 1475 1476 1478 1479 1480 1488 1515 1519 1525 1536 1542 1548 1550 1552 1563 1564 1565 1568 1642 1643 1645 1646 1748 1749 1758 1759 1769 1770 1789 1791 1792 1807 1867 1869 1970 1984 2038 2040 2041 2042 2043 2045 2046 2048 2094 2112 2140 2144 2155 2208 2229 2230 2248 2259 2404 2406 2416 2417 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2546 2556 2557 2558 2559 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2678 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2800 2809 2816 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2901 2904 2908 2910 2911 2916 2918 2928 2929 2930 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3056 3072 3085 3086 3089 3090 3113 3114 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3163 3168 3172 3174 3184 3200 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3328 3341 3342 3345 3346 3397 3398 3401 3402 3407 3412 3416 3423 3428 3430 3440 3450 3456 3457 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3558 3568 3570 3572 3633 3634 3636 3643 3655 3663 3664 3674 3761 3762 3764 3773 3784 3790 3792 3802 3840 3841 3864 3866 3872 3882 3893 3894 3895 3896 3897 3898 3902 3912 3913 3949 3953 3973 3974 3992 3993 4029 4038 4039 4139 4159 4160 4170 4182 4186 4190 4193 4194 4197 4199 4206 4209 4213 4226 4238 4239 4254 4256 4294 4295 4296 4301 4302 4304 4347 4348 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4960 4992 5008 5024 5110 5112 5118 5121 5741 5743 5787 5792 5867 5870 5881 5888 5901 5902 5909 5920 5941 5952 5972 5984 5997 5998 6001 6002 6004 6068 6100 6109 6110 6112 6122 6155 6159 6160 6170 6176 6265 6272 6315 6320 6390 6400 6431 6432 6444 6448 6460 6470 6480 6608 6618 6656 6684 6741 6751 6752 6781 6783 6794 6800 6810 6832 6849 6912 6988 6992 7002 7019 7028 7040 7156 7168 7224 7232 7242 7245 7294 7296 7305 7312 7355 7357 7360 7376 7379 7380 7419 7424 7674 7675 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8125 8126 8127 8130 8133 8134 8141 8144 8148 8150 8156 8160 8173 8178 8181 8182 8189 8192 8199 8200 8203 8204 8208 8216 8218 8228 8229 8231 8240 8255 8257 8260 8261 8276 8277 8287 8293 8294 8304 8305 8306 8319 8320 8336 8349 8400 8433 8450 8451 8455 8456 8458 8468 8469 8470 8473 8478 8484 8485 8486 8487 8488 8489 8490 8494 8495 8506 8508 8512 8517 8522 8526 8527 8544 8585 9398 9450 11264 11311 11312 11359 11360 11493 11499 11508 11520 11558 11559 11560 11565 11566 11568 11624 11631 11632 11647 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11776 11823 11824 12288 12289 12293 12294 12330 12336 12337 12342 12347 12349 12441 12445 12448 12539 12540 12544 12549 12592 12593 12687 12704 12736 12784 12800 13008 13055 13056 13144 40960 42125 42192 42238 42240 42509 42512 42540 42560 42611 42612 42622 42623 42738 42760 42944 42946 42955 42997 43048 43052 43053 43072 43124 43136 43206 43216 43226 43232 43256 43259 43260 43261 43310 43312 43348 43360 43389 43392 43457 43471 43482 43493 43494 43504 43514 43520 43575 43584 43598 43600 43610 43643 43646 43696 43697 43698 43701 43703 43705 43710 43712 43713 43714 43744 43760 43762 43767 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43882 43888 44011 44012 44014 44016 44026 44032 55204 55216 55239 55243 55292 64256 64263 64275 64280 64285 64297 64298 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64830 64848 64912 64914 64968 65008 65020 65024 65041 65043 65045 65056 65072 65075 65077 65101 65105 65106 65107 65108 65110 65136 65141 65142 65277 65279 65280 65287 65288 65292 65293 65294 65295 65296 65308 65313 65339 65343 65344 65345 65371 65382 65471 65474 65480 65482 65488 65490 65496 65498 65501 65529 65532 65536 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65856 65909 66045 66046 66176 66205 66208 66257 66272 66273 66304 66336 66349 66379 66384 66427 66432 66462 66464 66500 66504 66512 66513 66518 66560 66718 66720 66730 66736 66772 66776 66812 66816 66856 66864 66916 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67680 67703 67712 67743 67808 67827 67828 67830 67840 67862 67872 67898 67968 68024 68030 68032 68096 68100 68101 68103 68108 68116 68117 68120 68121 68150 68152 68155 68159 68160 68192 68221 68224 68253 68288 68296 68297 68327 68352 68406 68416 68438 68448 68467 68480 68498 68608 68681 68736 68787 68800 68851 68864 68904 68912 68922 69248 69290 69291 69293 69296 69298 69376 69405 69415 69416 69424 69457 69552 69573 69600 69623 69632 69703 69734 69744 69759 69819 69821 69822 69837 69838 69840 69865 69872 69882 69888 69941 69942 69952 69956 69960 69968 70004 70006 70007 70016 70085 70089 70093 70094 70107 70108 70109 70144 70162 70163 70200 70206 70207 70272 70279 70280 70281 70282 70286 70287 70302 70303 70313 70320 70379 70384 70394 70400 70404 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70459 70469 70471 70473 70475 70478 70480 70481 70487 70488 70493 70500 70502 70509 70512 70517 70656 70731 70736 70746 70750 70754 70784 70854 70855 70856 70864 70874 71040 71094 71096 71105 71128 71134 71168 71233 71236 71237 71248 71258 71296 71353 71360 71370 71453 71468 71472 71482 71680 71739 71840 71914 71935 71943 71945 71946 71948 71956 71957 71959 71960 71990 71991 71993 71995 72004 72016 72026 72096 72104 72106 72152 72154 72162 72163 72165 72192 72255 72263 72264 72272 72346 72349 72350 72384 72441 72704 72713 72714 72759 72760 72769 72784 72794 72818 72848 72850 72872 72873 72887 72960 72967 72968 72970 72971 73015 73018 73019 73020 73022 73023 73032 73040 73050 73056 73062 73063 73065 73066 73103 73104 73106 73107 73113 73120 73130 73440 73463 73648 73649 73728 74650 74752 74863 74880 75076 77824 78895 78896 78905 82944 83527 92160 92729 92736 92767 92768 92778 92880 92910 92912 92917 92928 92983 92992 92996 93008 93018 93027 93048 93053 93072 93760 93824 93952 94027 94031 94088 94095 94112 94176 94178 94179 94181 94192 94194 110592 110593 110948 110952 113664 113771 113776 113789 113792 113801 113808 113818 113821 113823 113824 113828 119141 119146 119149 119171 119173 119180 119210 119214 119362 119365 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120513 120514 120539 120540 120571 120572 120597 120598 120629 120630 120655 120656 120687 120688 120713 120714 120745 120746 120771 120772 120780 120782 120832 121344 121399 121403 121453 121461 121462 121476 121477 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123136 123181 123184 123198 123200 123210 123214 123215 123584 123642 124928 125125 125136 125143 125184 125260 125264 125274 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 127280 127306 127312 127338 127344 127370 127462 127488 127995 128000 130032 130042 917505 917506 917536 917632 917760 918000 END PK ! ����d d 5.34.0/unicore/lib/Dia/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V352 94 95 96 97 168 169 175 176 180 181 183 185 688 847 848 856 861 867 884 886 890 891 900 902 1155 1160 1369 1370 1425 1442 1443 1470 1471 1472 1473 1475 1476 1477 1611 1619 1623 1625 1759 1761 1765 1767 1770 1773 1840 1867 1958 1969 2027 2038 2072 2074 2275 2303 2364 2365 2381 2382 2385 2389 2417 2418 2492 2493 2509 2510 2620 2621 2637 2638 2748 2749 2765 2766 2813 2816 2876 2877 2893 2894 2901 2902 3021 3022 3149 3150 3260 3261 3277 3278 3387 3389 3405 3406 3530 3531 3655 3661 3662 3663 3770 3771 3784 3789 3864 3866 3893 3894 3895 3896 3897 3898 3902 3904 3970 3973 3974 3976 4038 4039 4151 4152 4153 4155 4195 4197 4201 4206 4231 4238 4239 4240 4250 4252 4957 4960 6089 6100 6109 6110 6457 6460 6773 6781 6783 6784 6832 6846 6964 6965 6980 6981 7019 7028 7082 7084 7222 7224 7288 7294 7376 7401 7405 7406 7412 7413 7415 7418 7468 7531 7620 7632 7669 7674 7677 7680 8125 8126 8127 8130 8141 8144 8157 8160 8173 8176 8189 8191 11503 11506 11823 11824 12330 12336 12441 12445 12540 12541 42607 42608 42620 42622 42623 42624 42652 42654 42736 42738 42752 42786 42888 42891 43000 43002 43204 43205 43232 43250 43307 43311 43347 43348 43443 43444 43456 43457 43493 43494 43643 43646 43711 43715 43766 43767 43867 43872 43881 43884 44012 44014 64286 64287 65056 65072 65342 65343 65344 65345 65392 65393 65438 65440 65507 65508 66272 66273 68325 68327 68898 68904 69446 69457 69817 69819 69939 69941 70003 70004 70080 70081 70090 70093 70197 70199 70377 70379 70460 70461 70477 70478 70502 70509 70512 70517 70722 70723 70726 70727 70850 70852 71103 71105 71231 71232 71350 71352 71467 71468 71737 71739 71997 71999 72003 72004 72160 72161 72244 72245 72263 72264 72345 72346 72767 72768 73026 73027 73028 73030 73111 73112 92912 92917 92976 92983 94095 94112 94192 94194 119143 119146 119149 119155 119163 119171 119173 119180 119210 119214 123184 123191 123628 123632 125136 125143 125252 125255 125256 125259 END PK ! ��;A A 5.34.0/unicore/lib/In/11_0.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1336 0 888 890 896 900 907 908 909 910 930 931 1328 1329 1367 1369 1419 1421 1424 1425 1480 1488 1515 1519 1525 1536 1565 1566 1806 1807 1867 1869 1970 1984 2043 2045 2094 2096 2111 2112 2140 2142 2143 2144 2155 2208 2229 2230 2238 2259 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2559 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2679 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2802 2809 2816 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2902 2904 2908 2910 2911 2916 2918 2936 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3067 3072 3085 3086 3089 3090 3113 3114 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3163 3168 3172 3174 3184 3192 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3328 3332 3333 3341 3342 3345 3346 3397 3398 3401 3402 3408 3412 3428 3430 3456 3458 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3558 3568 3570 3573 3585 3643 3647 3676 3713 3715 3716 3717 3719 3721 3722 3723 3725 3726 3732 3736 3737 3744 3745 3748 3749 3750 3751 3752 3754 3756 3757 3770 3771 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3808 3840 3912 3913 3949 3953 3992 3993 4029 4030 4045 4046 4059 4096 4294 4295 4296 4301 4302 4304 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4989 4992 5018 5024 5110 5112 5118 5120 5789 5792 5881 5888 5901 5902 5909 5920 5943 5952 5972 5984 5997 5998 6001 6002 6004 6016 6110 6112 6122 6128 6138 6144 6159 6160 6170 6176 6265 6272 6315 6320 6390 6400 6431 6432 6444 6448 6460 6464 6465 6468 6510 6512 6517 6528 6572 6576 6602 6608 6619 6622 6684 6686 6751 6752 6781 6783 6794 6800 6810 6816 6830 6832 6847 6912 6988 6992 7037 7040 7156 7164 7224 7227 7242 7245 7305 7312 7355 7357 7368 7376 7418 7424 7674 7675 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8293 8294 8306 8308 8335 8336 8349 8352 8384 8400 8433 8448 8588 8592 9255 9280 9291 9312 11124 11126 11158 11160 11209 11210 11263 11264 11311 11312 11359 11360 11508 11513 11558 11559 11560 11565 11566 11568 11624 11631 11633 11647 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11855 11904 11930 11931 12020 12032 12246 12272 12284 12288 12352 12353 12439 12441 12544 12549 12592 12593 12687 12688 12731 12736 12772 12784 12831 12832 13055 13056 19894 19904 40944 40960 42125 42128 42183 42192 42540 42560 42744 42752 42938 42999 43052 43056 43066 43072 43128 43136 43206 43214 43226 43232 43348 43359 43389 43392 43470 43471 43482 43486 43519 43520 43575 43584 43598 43600 43610 43612 43715 43739 43767 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43878 43888 44014 44016 44026 44032 55204 55216 55239 55243 55292 55296 64110 64112 64218 64256 64263 64275 64280 64285 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64450 64467 64832 64848 64912 64914 64968 64976 65022 65024 65050 65056 65107 65108 65127 65128 65132 65136 65141 65142 65277 65279 65280 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65529 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65792 65795 65799 65844 65847 65935 65936 65948 65952 65953 66000 66046 66176 66205 66208 66257 66272 66300 66304 66340 66349 66379 66384 66427 66432 66462 66463 66500 66504 66518 66560 66718 66720 66730 66736 66772 66776 66812 66816 66856 66864 66916 66927 66928 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67671 67743 67751 67760 67808 67827 67828 67830 67835 67868 67871 67898 67903 67904 67968 68024 68028 68048 68050 68100 68101 68103 68108 68116 68117 68120 68121 68150 68152 68155 68159 68169 68176 68185 68192 68256 68288 68327 68331 68343 68352 68406 68409 68438 68440 68467 68472 68498 68505 68509 68521 68528 68608 68681 68736 68787 68800 68851 68858 68904 68912 68922 69216 69247 69376 69416 69424 69466 69632 69710 69714 69744 69759 69826 69837 69838 69840 69865 69872 69882 69888 69941 69942 69959 69968 70007 70016 70094 70096 70112 70113 70133 70144 70162 70163 70207 70272 70279 70280 70281 70282 70286 70287 70302 70303 70314 70320 70379 70384 70394 70400 70404 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70459 70469 70471 70473 70475 70478 70480 70481 70487 70488 70493 70500 70502 70509 70512 70517 70656 70746 70747 70748 70749 70751 70784 70856 70864 70874 71040 71094 71096 71134 71168 71237 71248 71258 71264 71277 71296 71352 71360 71370 71424 71451 71453 71468 71472 71488 71680 71740 71840 71923 71935 71936 72192 72264 72272 72324 72326 72355 72384 72441 72704 72713 72714 72759 72760 72774 72784 72813 72816 72848 72850 72872 72873 72887 72960 72967 72968 72970 72971 73015 73018 73019 73020 73022 73023 73032 73040 73050 73056 73062 73063 73065 73066 73103 73104 73106 73107 73113 73120 73130 73440 73465 73728 74650 74752 74863 74864 74869 74880 75076 77824 78895 82944 83527 92160 92729 92736 92767 92768 92778 92782 92784 92880 92910 92912 92918 92928 92998 93008 93018 93019 93026 93027 93048 93053 93072 93760 93851 93952 94021 94032 94079 94095 94112 94176 94178 94208 100338 100352 101107 110592 110879 110960 111356 113664 113771 113776 113789 113792 113801 113808 113818 113820 113828 118784 119030 119040 119079 119081 119273 119296 119366 119520 119540 119552 119639 119648 119673 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 121484 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 124928 125125 125127 125143 125184 125259 125264 125274 125278 125280 126065 126133 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 126704 126706 126976 127020 127024 127124 127136 127151 127153 127168 127169 127184 127185 127222 127232 127245 127248 127340 127344 127405 127462 127491 127504 127548 127552 127561 127568 127570 127584 127590 127744 128725 128736 128749 128752 128762 128768 128884 128896 128985 129024 129036 129040 129096 129104 129114 129120 129160 129168 129198 129280 129292 129296 129343 129344 129393 129395 129399 129402 129403 129404 129443 129456 129466 129472 129475 129488 129536 129632 129646 131070 173783 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196606 196608 262142 262144 327678 327680 393214 393216 458750 458752 524286 524288 589822 589824 655358 655360 720894 720896 786430 786432 851966 851968 917502 917504 917505 917506 917536 917632 917760 918000 983038 1114112 END PK ! ��� � 5.34.0/unicore/lib/In/3_0.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V738 0 544 546 564 592 686 688 751 768 847 864 867 884 886 890 891 894 895 900 907 908 909 910 930 931 975 976 984 986 1012 1024 1159 1160 1162 1164 1221 1223 1225 1227 1229 1232 1270 1272 1274 1329 1367 1369 1376 1377 1416 1417 1419 1425 1442 1443 1466 1467 1477 1488 1515 1520 1525 1548 1549 1563 1564 1567 1568 1569 1595 1600 1622 1632 1646 1648 1774 1776 1791 1792 1806 1807 1837 1840 1867 1920 1969 2305 2308 2309 2362 2364 2382 2384 2389 2392 2417 2433 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2493 2494 2501 2503 2505 2507 2510 2519 2520 2524 2526 2527 2532 2534 2555 2562 2563 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2649 2653 2654 2655 2662 2677 2689 2692 2693 2700 2701 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2785 2790 2800 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2870 2874 2876 2884 2887 2889 2891 2894 2902 2904 2908 2910 2911 2914 2918 2929 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 2998 2999 3002 3006 3011 3014 3017 3018 3022 3031 3032 3047 3059 3073 3076 3077 3085 3086 3089 3090 3113 3114 3124 3125 3130 3134 3141 3142 3145 3146 3150 3157 3159 3168 3170 3174 3184 3202 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3262 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3298 3302 3312 3330 3332 3333 3341 3342 3345 3346 3369 3370 3386 3390 3396 3398 3401 3402 3406 3415 3416 3424 3426 3430 3440 3458 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3570 3573 3585 3643 3647 3676 3713 3715 3716 3717 3719 3721 3722 3723 3725 3726 3732 3736 3737 3744 3745 3748 3749 3750 3751 3752 3754 3756 3757 3770 3771 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3806 3840 3912 3913 3947 3953 3980 3984 3992 3993 4029 4030 4045 4047 4048 4096 4130 4131 4136 4137 4139 4140 4147 4150 4154 4160 4186 4256 4294 4304 4343 4347 4348 4352 4442 4447 4515 4520 4602 4608 4615 4616 4679 4680 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4743 4744 4745 4746 4750 4752 4783 4784 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4815 4816 4823 4824 4847 4848 4879 4880 4881 4882 4886 4888 4895 4896 4935 4936 4955 4961 4989 5024 5109 5121 5751 5760 5789 5792 5873 6016 6109 6112 6122 6144 6159 6160 6170 6176 6264 6272 6314 7680 7836 7840 7930 7936 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8263 8264 8270 8298 8305 8308 8335 8352 8368 8400 8420 8448 8507 8531 8580 8592 8692 8704 8946 8960 9084 9085 9115 9216 9255 9280 9291 9312 9451 9472 9622 9632 9720 9728 9748 9753 9842 9985 9989 9990 9994 9996 10024 10025 10060 10061 10062 10063 10067 10070 10071 10072 10079 10081 10088 10102 10133 10136 10160 10161 10175 10240 10496 11904 11930 11931 12020 12032 12246 12272 12284 12288 12347 12350 12352 12353 12437 12441 12447 12449 12543 12549 12589 12593 12687 12688 12728 12800 12829 12832 12868 12896 12924 12927 12977 12992 13004 13008 13055 13056 13175 13179 13278 13280 13311 13312 19894 19968 40870 40960 42125 42128 42146 42148 42164 42165 42177 42178 42181 42182 42183 44032 55204 55296 64046 64256 64263 64275 64280 64285 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64832 64848 64912 64914 64968 65008 65020 65056 65060 65072 65093 65097 65107 65108 65127 65128 65132 65136 65139 65140 65141 65142 65277 65279 65280 65281 65375 65377 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65529 65536 131070 131072 196606 196608 262142 262144 327678 327680 393214 393216 458750 458752 524286 524288 589822 589824 655358 655360 720894 720896 786430 786432 851966 851968 917502 917504 983038 1114112 END PK ! ����� � 5.34.0/unicore/lib/In/10_0.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1318 0 888 890 896 900 907 908 909 910 930 931 1328 1329 1367 1369 1376 1377 1416 1417 1419 1421 1424 1425 1480 1488 1515 1520 1525 1536 1565 1566 1806 1807 1867 1869 1970 1984 2043 2048 2094 2096 2111 2112 2140 2142 2143 2144 2155 2208 2229 2230 2238 2260 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2558 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2678 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2802 2809 2816 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2902 2904 2908 2910 2911 2916 2918 2936 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3067 3072 3076 3077 3085 3086 3089 3090 3113 3114 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3163 3168 3172 3174 3184 3192 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3328 3332 3333 3341 3342 3345 3346 3397 3398 3401 3402 3408 3412 3428 3430 3456 3458 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3558 3568 3570 3573 3585 3643 3647 3676 3713 3715 3716 3717 3719 3721 3722 3723 3725 3726 3732 3736 3737 3744 3745 3748 3749 3750 3751 3752 3754 3756 3757 3770 3771 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3808 3840 3912 3913 3949 3953 3992 3993 4029 4030 4045 4046 4059 4096 4294 4295 4296 4301 4302 4304 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4989 4992 5018 5024 5110 5112 5118 5120 5789 5792 5881 5888 5901 5902 5909 5920 5943 5952 5972 5984 5997 5998 6001 6002 6004 6016 6110 6112 6122 6128 6138 6144 6159 6160 6170 6176 6264 6272 6315 6320 6390 6400 6431 6432 6444 6448 6460 6464 6465 6468 6510 6512 6517 6528 6572 6576 6602 6608 6619 6622 6684 6686 6751 6752 6781 6783 6794 6800 6810 6816 6830 6832 6847 6912 6988 6992 7037 7040 7156 7164 7224 7227 7242 7245 7305 7360 7368 7376 7418 7424 7674 7675 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8293 8294 8306 8308 8335 8336 8349 8352 8384 8400 8433 8448 8588 8592 9255 9280 9291 9312 11124 11126 11158 11160 11194 11197 11209 11210 11219 11244 11248 11264 11311 11312 11359 11360 11508 11513 11558 11559 11560 11565 11566 11568 11624 11631 11633 11647 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11850 11904 11930 11931 12020 12032 12246 12272 12284 12288 12352 12353 12439 12441 12544 12549 12591 12593 12687 12688 12731 12736 12772 12784 12831 12832 13055 13056 19894 19904 40939 40960 42125 42128 42183 42192 42540 42560 42744 42752 42927 42928 42936 42999 43052 43056 43066 43072 43128 43136 43206 43214 43226 43232 43262 43264 43348 43359 43389 43392 43470 43471 43482 43486 43519 43520 43575 43584 43598 43600 43610 43612 43715 43739 43767 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43878 43888 44014 44016 44026 44032 55204 55216 55239 55243 55292 55296 64110 64112 64218 64256 64263 64275 64280 64285 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64450 64467 64832 64848 64912 64914 64968 64976 65022 65024 65050 65056 65107 65108 65127 65128 65132 65136 65141 65142 65277 65279 65280 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65529 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65792 65795 65799 65844 65847 65935 65936 65948 65952 65953 66000 66046 66176 66205 66208 66257 66272 66300 66304 66340 66349 66379 66384 66427 66432 66462 66463 66500 66504 66518 66560 66718 66720 66730 66736 66772 66776 66812 66816 66856 66864 66916 66927 66928 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67671 67743 67751 67760 67808 67827 67828 67830 67835 67868 67871 67898 67903 67904 67968 68024 68028 68048 68050 68100 68101 68103 68108 68116 68117 68120 68121 68148 68152 68155 68159 68168 68176 68185 68192 68256 68288 68327 68331 68343 68352 68406 68409 68438 68440 68467 68472 68498 68505 68509 68521 68528 68608 68681 68736 68787 68800 68851 68858 68864 69216 69247 69632 69710 69714 69744 69759 69826 69840 69865 69872 69882 69888 69941 69942 69956 69968 70007 70016 70094 70096 70112 70113 70133 70144 70162 70163 70207 70272 70279 70280 70281 70282 70286 70287 70302 70303 70314 70320 70379 70384 70394 70400 70404 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70460 70469 70471 70473 70475 70478 70480 70481 70487 70488 70493 70500 70502 70509 70512 70517 70656 70746 70747 70748 70749 70750 70784 70856 70864 70874 71040 71094 71096 71134 71168 71237 71248 71258 71264 71277 71296 71352 71360 71370 71424 71450 71453 71468 71472 71488 71840 71923 71935 71936 72192 72264 72272 72324 72326 72349 72350 72355 72384 72441 72704 72713 72714 72759 72760 72774 72784 72813 72816 72848 72850 72872 72873 72887 72960 72967 72968 72970 72971 73015 73018 73019 73020 73022 73023 73032 73040 73050 73728 74650 74752 74863 74864 74869 74880 75076 77824 78895 82944 83527 92160 92729 92736 92767 92768 92778 92782 92784 92880 92910 92912 92918 92928 92998 93008 93018 93019 93026 93027 93048 93053 93072 93952 94021 94032 94079 94095 94112 94176 94178 94208 100333 100352 101107 110592 110879 110960 111356 113664 113771 113776 113789 113792 113801 113808 113818 113820 113828 118784 119030 119040 119079 119081 119273 119296 119366 119552 119639 119648 119666 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 121484 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 124928 125125 125127 125143 125184 125259 125264 125274 125278 125280 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 126704 126706 126976 127020 127024 127124 127136 127151 127153 127168 127169 127184 127185 127222 127232 127245 127248 127279 127280 127340 127344 127405 127462 127491 127504 127548 127552 127561 127568 127570 127584 127590 127744 128725 128736 128749 128752 128761 128768 128884 128896 128981 129024 129036 129040 129096 129104 129114 129120 129160 129168 129198 129280 129292 129296 129343 129344 129357 129360 129388 129408 129432 129472 129473 129488 129511 131070 173783 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196606 196608 262142 262144 327678 327680 393214 393216 458750 458752 524286 524288 589822 589824 655358 655360 720894 720896 786430 786432 851966 851968 917502 917504 917505 917506 917536 917632 917760 918000 983038 1114112 END PK ! �G��h h 5.34.0/unicore/lib/In/6_2.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1098 0 888 890 895 900 907 908 909 910 930 931 1320 1329 1367 1369 1376 1377 1416 1417 1419 1423 1424 1425 1480 1488 1515 1520 1525 1536 1541 1542 1564 1566 1806 1807 1867 1869 1970 1984 2043 2048 2094 2096 2111 2112 2140 2142 2143 2208 2209 2210 2221 2276 2303 2304 2424 2425 2432 2433 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2556 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2678 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2802 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2902 2904 2908 2910 2911 2916 2918 2936 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3067 3073 3076 3077 3085 3086 3089 3090 3113 3114 3124 3125 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3162 3168 3172 3174 3184 3192 3200 3202 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3330 3332 3333 3341 3342 3345 3346 3387 3389 3397 3398 3401 3402 3407 3415 3416 3424 3428 3430 3446 3449 3456 3458 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3570 3573 3585 3643 3647 3676 3713 3715 3716 3717 3719 3721 3722 3723 3725 3726 3732 3736 3737 3744 3745 3748 3749 3750 3751 3752 3754 3756 3757 3770 3771 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3808 3840 3912 3913 3949 3953 3992 3993 4029 4030 4045 4046 4059 4096 4294 4295 4296 4301 4302 4304 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4989 4992 5018 5024 5109 5120 5789 5792 5873 5888 5901 5902 5909 5920 5943 5952 5972 5984 5997 5998 6001 6002 6004 6016 6110 6112 6122 6128 6138 6144 6159 6160 6170 6176 6264 6272 6315 6320 6390 6400 6429 6432 6444 6448 6460 6464 6465 6468 6510 6512 6517 6528 6572 6576 6602 6608 6619 6622 6684 6686 6751 6752 6781 6783 6794 6800 6810 6816 6830 6912 6988 6992 7037 7040 7156 7164 7224 7227 7242 7245 7296 7360 7368 7376 7415 7424 7655 7676 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8293 8298 8306 8308 8335 8336 8349 8352 8379 8400 8433 8448 8586 8592 9204 9216 9255 9280 9291 9312 9984 9985 11085 11088 11098 11264 11311 11312 11359 11360 11508 11513 11558 11559 11560 11565 11566 11568 11624 11631 11633 11647 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11836 11904 11930 11931 12020 12032 12246 12272 12284 12288 12352 12353 12439 12441 12544 12549 12590 12593 12687 12688 12731 12736 12772 12784 12831 12832 13055 13056 19894 19904 40909 40960 42125 42128 42183 42192 42540 42560 42648 42655 42744 42752 42895 42896 42900 42912 42923 43000 43052 43056 43066 43072 43128 43136 43205 43214 43226 43232 43260 43264 43348 43359 43389 43392 43470 43471 43482 43486 43488 43520 43575 43584 43598 43600 43610 43612 43644 43648 43715 43739 43767 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43968 44014 44016 44026 44032 55204 55216 55239 55243 55292 55296 64110 64112 64218 64256 64263 64275 64280 64285 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64450 64467 64832 64848 64912 64914 64968 64976 65022 65024 65050 65056 65063 65072 65107 65108 65127 65128 65132 65136 65141 65142 65277 65279 65280 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65529 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65792 65795 65799 65844 65847 65931 65936 65948 66000 66046 66176 66205 66208 66257 66304 66335 66336 66340 66352 66379 66432 66462 66463 66500 66504 66518 66560 66718 66720 66730 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67671 67680 67840 67868 67871 67898 67903 67904 67968 68024 68030 68032 68096 68100 68101 68103 68108 68116 68117 68120 68121 68148 68152 68155 68159 68168 68176 68185 68192 68224 68352 68406 68409 68438 68440 68467 68472 68480 68608 68681 69216 69247 69632 69710 69714 69744 69760 69826 69840 69865 69872 69882 69888 69941 69942 69956 70016 70089 70096 70106 71296 71352 71360 71370 73728 74607 74752 74851 74864 74868 77824 78895 92160 92729 93952 94021 94032 94079 94095 94112 110592 110594 118784 119030 119040 119079 119081 119262 119296 119366 119552 119639 119648 119666 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 120832 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 126704 126706 126976 127020 127024 127124 127136 127151 127153 127167 127169 127184 127185 127200 127232 127243 127248 127279 127280 127340 127344 127387 127462 127491 127504 127547 127552 127561 127568 127570 127744 127777 127792 127798 127799 127869 127872 127892 127904 127941 127942 127947 127968 127985 128000 128063 128064 128065 128066 128248 128249 128253 128256 128318 128320 128324 128336 128360 128507 128577 128581 128592 128640 128710 128768 128884 131070 173783 173824 177973 177984 178206 194560 195102 196606 196608 262142 262144 327678 327680 393214 393216 458750 458752 524286 524288 589822 589824 655358 655360 720894 720896 786430 786432 851966 851968 917502 917504 917505 917506 917536 917632 917760 918000 983038 1114112 END PK ! ���E! E! 5.34.0/unicore/lib/In/13_0.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1372 0 888 890 896 900 907 908 909 910 930 931 1328 1329 1367 1369 1419 1421 1424 1425 1480 1488 1515 1519 1525 1536 1565 1566 1806 1807 1867 1869 1970 1984 2043 2045 2094 2096 2111 2112 2140 2142 2143 2144 2155 2208 2229 2230 2248 2259 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2559 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2679 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2802 2809 2816 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2901 2904 2908 2910 2911 2916 2918 2936 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3067 3072 3085 3086 3089 3090 3113 3114 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3163 3168 3172 3174 3184 3191 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3328 3341 3342 3345 3346 3397 3398 3401 3402 3408 3412 3428 3430 3456 3457 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3558 3568 3570 3573 3585 3643 3647 3676 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3808 3840 3912 3913 3949 3953 3992 3993 4029 4030 4045 4046 4059 4096 4294 4295 4296 4301 4302 4304 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4989 4992 5018 5024 5110 5112 5118 5120 5789 5792 5881 5888 5901 5902 5909 5920 5943 5952 5972 5984 5997 5998 6001 6002 6004 6016 6110 6112 6122 6128 6138 6144 6159 6160 6170 6176 6265 6272 6315 6320 6390 6400 6431 6432 6444 6448 6460 6464 6465 6468 6510 6512 6517 6528 6572 6576 6602 6608 6619 6622 6684 6686 6751 6752 6781 6783 6794 6800 6810 6816 6830 6832 6849 6912 6988 6992 7037 7040 7156 7164 7224 7227 7242 7245 7305 7312 7355 7357 7368 7376 7419 7424 7674 7675 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8293 8294 8306 8308 8335 8336 8349 8352 8384 8400 8433 8448 8588 8592 9255 9280 9291 9312 11124 11126 11158 11159 11311 11312 11359 11360 11508 11513 11558 11559 11560 11565 11566 11568 11624 11631 11633 11647 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11859 11904 11930 11931 12020 12032 12246 12272 12284 12288 12352 12353 12439 12441 12544 12549 12592 12593 12687 12688 12772 12784 12831 12832 40957 40960 42125 42128 42183 42192 42540 42560 42744 42752 42944 42946 42955 42997 43053 43056 43066 43072 43128 43136 43206 43214 43226 43232 43348 43359 43389 43392 43470 43471 43482 43486 43519 43520 43575 43584 43598 43600 43610 43612 43715 43739 43767 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43884 43888 44014 44016 44026 44032 55204 55216 55239 55243 55292 55296 64110 64112 64218 64256 64263 64275 64280 64285 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64450 64467 64832 64848 64912 64914 64968 64976 65022 65024 65050 65056 65107 65108 65127 65128 65132 65136 65141 65142 65277 65279 65280 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65529 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65792 65795 65799 65844 65847 65935 65936 65949 65952 65953 66000 66046 66176 66205 66208 66257 66272 66300 66304 66340 66349 66379 66384 66427 66432 66462 66463 66500 66504 66518 66560 66718 66720 66730 66736 66772 66776 66812 66816 66856 66864 66916 66927 66928 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67671 67743 67751 67760 67808 67827 67828 67830 67835 67868 67871 67898 67903 67904 67968 68024 68028 68048 68050 68100 68101 68103 68108 68116 68117 68120 68121 68150 68152 68155 68159 68169 68176 68185 68192 68256 68288 68327 68331 68343 68352 68406 68409 68438 68440 68467 68472 68498 68505 68509 68521 68528 68608 68681 68736 68787 68800 68851 68858 68904 68912 68922 69216 69247 69248 69290 69291 69294 69296 69298 69376 69416 69424 69466 69552 69580 69600 69623 69632 69710 69714 69744 69759 69826 69837 69838 69840 69865 69872 69882 69888 69941 69942 69960 69968 70007 70016 70112 70113 70133 70144 70162 70163 70207 70272 70279 70280 70281 70282 70286 70287 70302 70303 70314 70320 70379 70384 70394 70400 70404 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70459 70469 70471 70473 70475 70478 70480 70481 70487 70488 70493 70500 70502 70509 70512 70517 70656 70748 70749 70754 70784 70856 70864 70874 71040 71094 71096 71134 71168 71237 71248 71258 71264 71277 71296 71353 71360 71370 71424 71451 71453 71468 71472 71488 71680 71740 71840 71923 71935 71943 71945 71946 71948 71956 71957 71959 71960 71990 71991 71993 71995 72007 72016 72026 72096 72104 72106 72152 72154 72165 72192 72264 72272 72355 72384 72441 72704 72713 72714 72759 72760 72774 72784 72813 72816 72848 72850 72872 72873 72887 72960 72967 72968 72970 72971 73015 73018 73019 73020 73022 73023 73032 73040 73050 73056 73062 73063 73065 73066 73103 73104 73106 73107 73113 73120 73130 73440 73465 73648 73649 73664 73714 73727 74650 74752 74863 74864 74869 74880 75076 77824 78895 78896 78905 82944 83527 92160 92729 92736 92767 92768 92778 92782 92784 92880 92910 92912 92918 92928 92998 93008 93018 93019 93026 93027 93048 93053 93072 93760 93851 93952 94027 94031 94088 94095 94112 94176 94181 94192 94194 94208 100344 100352 101590 101632 101641 110592 110879 110928 110931 110948 110952 110960 111356 113664 113771 113776 113789 113792 113801 113808 113818 113820 113828 118784 119030 119040 119079 119081 119273 119296 119366 119520 119540 119552 119639 119648 119673 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 121484 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123136 123181 123184 123198 123200 123210 123214 123216 123584 123642 123647 123648 124928 125125 125127 125143 125184 125260 125264 125274 125278 125280 126065 126133 126209 126270 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 126704 126706 126976 127020 127024 127124 127136 127151 127153 127168 127169 127184 127185 127222 127232 127406 127462 127491 127504 127548 127552 127561 127568 127570 127584 127590 127744 128728 128736 128749 128752 128765 128768 128884 128896 128985 128992 129004 129024 129036 129040 129096 129104 129114 129120 129160 129168 129198 129200 129202 129280 129401 129402 129484 129485 129620 129632 129646 129648 129653 129656 129659 129664 129671 129680 129705 129712 129719 129728 129731 129744 129751 129792 129939 129940 129995 130032 130042 131070 173790 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196606 201547 262142 262144 327678 327680 393214 393216 458750 458752 524286 524288 589822 589824 655358 655360 720894 720896 786430 786432 851966 851968 917502 917504 917505 917506 917536 917632 917760 918000 983038 1114112 END PK ! {�j#� � 5.34.0/unicore/lib/In/2_0.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V624 0 502 506 536 592 681 688 735 736 746 768 838 864 866 884 886 890 891 894 895 900 907 908 909 910 930 931 975 976 983 986 987 988 989 990 991 992 993 994 1012 1025 1037 1038 1104 1105 1117 1118 1159 1168 1221 1223 1225 1227 1229 1232 1260 1262 1270 1272 1274 1329 1367 1369 1376 1377 1416 1417 1418 1425 1442 1443 1466 1467 1477 1488 1515 1520 1525 1548 1549 1563 1564 1567 1568 1569 1595 1600 1619 1632 1646 1648 1720 1722 1727 1728 1743 1744 1774 1776 1786 2305 2308 2309 2362 2364 2382 2384 2389 2392 2417 2433 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2493 2494 2501 2503 2505 2507 2510 2519 2520 2524 2526 2527 2532 2534 2555 2562 2563 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2649 2653 2654 2655 2662 2677 2689 2692 2693 2700 2701 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2785 2790 2800 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2870 2874 2876 2884 2887 2889 2891 2894 2902 2904 2908 2910 2911 2914 2918 2929 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 2998 2999 3002 3006 3011 3014 3017 3018 3022 3031 3032 3047 3059 3073 3076 3077 3085 3086 3089 3090 3113 3114 3124 3125 3130 3134 3141 3142 3145 3146 3150 3157 3159 3168 3170 3174 3184 3202 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3262 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3298 3302 3312 3330 3332 3333 3341 3342 3345 3346 3369 3370 3386 3390 3396 3398 3401 3402 3406 3415 3416 3424 3426 3430 3440 3585 3643 3647 3676 3713 3715 3716 3717 3719 3721 3722 3723 3725 3726 3732 3736 3737 3744 3745 3748 3749 3750 3751 3752 3754 3756 3757 3770 3771 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3806 3840 3912 3913 3946 3953 3980 3984 3990 3991 3992 3993 4014 4017 4024 4025 4026 4256 4294 4304 4343 4347 4348 4352 4442 4447 4515 4520 4602 7680 7836 7840 7930 7936 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8239 8240 8263 8298 8305 8308 8335 8352 8364 8400 8418 8448 8505 8531 8579 8592 8683 8704 8946 8960 8961 8962 9083 9216 9253 9280 9291 9312 9451 9472 9622 9632 9712 9728 9748 9754 9840 9985 9989 9990 9994 9996 10024 10025 10060 10061 10062 10063 10067 10070 10071 10072 10079 10081 10088 10102 10133 10136 10160 10161 10175 12288 12344 12351 12352 12353 12437 12441 12447 12449 12543 12549 12589 12593 12687 12688 12704 12800 12829 12832 12868 12896 12924 12927 12977 12992 13004 13008 13055 13056 13175 13179 13278 13280 13311 19968 40870 44032 55204 55296 64046 64256 64263 64275 64280 64286 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64832 64848 64912 64914 64968 65008 65020 65056 65060 65072 65093 65097 65107 65108 65127 65128 65132 65136 65139 65140 65141 65142 65277 65279 65280 65281 65375 65377 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65533 65536 131070 131072 196606 196608 262142 262144 327678 327680 393214 393216 458750 458752 524286 524288 589822 589824 655358 655360 720894 720896 786430 786432 851966 851968 917502 917504 983038 1114112 END PK ! � ]�\ \ 5.34.0/unicore/lib/In/7_0.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1220 0 888 890 896 900 907 908 909 910 930 931 1328 1329 1367 1369 1376 1377 1416 1417 1419 1421 1424 1425 1480 1488 1515 1520 1525 1536 1565 1566 1806 1807 1867 1869 1970 1984 2043 2048 2094 2096 2111 2112 2140 2142 2143 2208 2227 2276 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2556 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2678 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2802 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2902 2904 2908 2910 2911 2916 2918 2936 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3067 3072 3076 3077 3085 3086 3089 3090 3113 3114 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3162 3168 3172 3174 3184 3192 3200 3201 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3329 3332 3333 3341 3342 3345 3346 3387 3389 3397 3398 3401 3402 3407 3415 3416 3424 3428 3430 3446 3449 3456 3458 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3558 3568 3570 3573 3585 3643 3647 3676 3713 3715 3716 3717 3719 3721 3722 3723 3725 3726 3732 3736 3737 3744 3745 3748 3749 3750 3751 3752 3754 3756 3757 3770 3771 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3808 3840 3912 3913 3949 3953 3992 3993 4029 4030 4045 4046 4059 4096 4294 4295 4296 4301 4302 4304 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4989 4992 5018 5024 5109 5120 5789 5792 5881 5888 5901 5902 5909 5920 5943 5952 5972 5984 5997 5998 6001 6002 6004 6016 6110 6112 6122 6128 6138 6144 6159 6160 6170 6176 6264 6272 6315 6320 6390 6400 6431 6432 6444 6448 6460 6464 6465 6468 6510 6512 6517 6528 6572 6576 6602 6608 6619 6622 6684 6686 6751 6752 6781 6783 6794 6800 6810 6816 6830 6832 6847 6912 6988 6992 7037 7040 7156 7164 7224 7227 7242 7245 7296 7360 7368 7376 7415 7416 7418 7424 7670 7676 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8293 8294 8306 8308 8335 8336 8349 8352 8382 8400 8433 8448 8586 8592 9211 9216 9255 9280 9291 9312 11124 11126 11158 11160 11194 11197 11209 11210 11218 11264 11311 11312 11359 11360 11508 11513 11558 11559 11560 11565 11566 11568 11624 11631 11633 11647 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11843 11904 11930 11931 12020 12032 12246 12272 12284 12288 12352 12353 12439 12441 12544 12549 12590 12593 12687 12688 12731 12736 12772 12784 12831 12832 13055 13056 19894 19904 40909 40960 42125 42128 42183 42192 42540 42560 42654 42655 42744 42752 42895 42896 42926 42928 42930 42999 43052 43056 43066 43072 43128 43136 43205 43214 43226 43232 43260 43264 43348 43359 43389 43392 43470 43471 43482 43486 43519 43520 43575 43584 43598 43600 43610 43612 43715 43739 43767 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43872 43876 43878 43968 44014 44016 44026 44032 55204 55216 55239 55243 55292 55296 64110 64112 64218 64256 64263 64275 64280 64285 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64450 64467 64832 64848 64912 64914 64968 64976 65022 65024 65050 65056 65070 65072 65107 65108 65127 65128 65132 65136 65141 65142 65277 65279 65280 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65529 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65792 65795 65799 65844 65847 65933 65936 65948 65952 65953 66000 66046 66176 66205 66208 66257 66272 66300 66304 66340 66352 66379 66384 66427 66432 66462 66463 66500 66504 66518 66560 66718 66720 66730 66816 66856 66864 66916 66927 66928 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67671 67743 67751 67760 67840 67868 67871 67898 67903 67904 67968 68024 68030 68032 68096 68100 68101 68103 68108 68116 68117 68120 68121 68148 68152 68155 68159 68168 68176 68185 68192 68256 68288 68327 68331 68343 68352 68406 68409 68438 68440 68467 68472 68498 68505 68509 68521 68528 68608 68681 69216 69247 69632 69710 69714 69744 69759 69826 69840 69865 69872 69882 69888 69941 69942 69956 69968 70007 70016 70089 70093 70094 70096 70107 70113 70133 70144 70162 70163 70206 70320 70379 70384 70394 70401 70404 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70460 70469 70471 70473 70475 70478 70487 70488 70493 70500 70502 70509 70512 70517 70784 70856 70864 70874 71040 71094 71096 71114 71168 71237 71248 71258 71296 71352 71360 71370 71840 71923 71935 71936 72384 72441 73728 74649 74752 74863 74864 74869 77824 78895 92160 92729 92736 92767 92768 92778 92782 92784 92880 92910 92912 92918 92928 92998 93008 93018 93019 93026 93027 93048 93053 93072 93952 94021 94032 94079 94095 94112 110592 110594 113664 113771 113776 113789 113792 113801 113808 113818 113820 113828 118784 119030 119040 119079 119081 119262 119296 119366 119552 119639 119648 119666 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 120832 124928 125125 125127 125143 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 126704 126706 126976 127020 127024 127124 127136 127151 127153 127168 127169 127184 127185 127222 127232 127245 127248 127279 127280 127340 127344 127387 127462 127491 127504 127547 127552 127561 127568 127570 127744 127789 127792 127870 127872 127951 127956 127992 128000 128255 128256 128331 128336 128378 128379 128420 128421 128579 128581 128720 128736 128749 128752 128756 128768 128884 128896 128981 129024 129036 129040 129096 129104 129114 129120 129160 129168 129198 131070 173783 173824 177973 177984 178206 194560 195102 196606 196608 262142 262144 327678 327680 393214 393216 458750 458752 524286 524288 589822 589824 655358 655360 720894 720896 786430 786432 851966 851968 917502 917504 917505 917506 917536 917632 917760 918000 983038 1114112 END PK ! SK�v� � 5.34.0/unicore/lib/In/12_0.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1354 0 888 890 896 900 907 908 909 910 930 931 1328 1329 1367 1369 1419 1421 1424 1425 1480 1488 1515 1519 1525 1536 1565 1566 1806 1807 1867 1869 1970 1984 2043 2045 2094 2096 2111 2112 2140 2142 2143 2144 2155 2208 2229 2230 2238 2259 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2559 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2679 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2802 2809 2816 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2902 2904 2908 2910 2911 2916 2918 2936 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3067 3072 3085 3086 3089 3090 3113 3114 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3163 3168 3172 3174 3184 3191 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3328 3332 3333 3341 3342 3345 3346 3397 3398 3401 3402 3408 3412 3428 3430 3456 3458 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3558 3568 3570 3573 3585 3643 3647 3676 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3808 3840 3912 3913 3949 3953 3992 3993 4029 4030 4045 4046 4059 4096 4294 4295 4296 4301 4302 4304 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4989 4992 5018 5024 5110 5112 5118 5120 5789 5792 5881 5888 5901 5902 5909 5920 5943 5952 5972 5984 5997 5998 6001 6002 6004 6016 6110 6112 6122 6128 6138 6144 6159 6160 6170 6176 6265 6272 6315 6320 6390 6400 6431 6432 6444 6448 6460 6464 6465 6468 6510 6512 6517 6528 6572 6576 6602 6608 6619 6622 6684 6686 6751 6752 6781 6783 6794 6800 6810 6816 6830 6832 6847 6912 6988 6992 7037 7040 7156 7164 7224 7227 7242 7245 7305 7312 7355 7357 7368 7376 7419 7424 7674 7675 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8293 8294 8306 8308 8335 8336 8349 8352 8384 8400 8433 8448 8588 8592 9255 9280 9291 9312 11124 11126 11158 11160 11311 11312 11359 11360 11508 11513 11558 11559 11560 11565 11566 11568 11624 11631 11633 11647 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11856 11904 11930 11931 12020 12032 12246 12272 12284 12288 12352 12353 12439 12441 12544 12549 12592 12593 12687 12688 12731 12736 12772 12784 12831 12832 13055 13056 19894 19904 40944 40960 42125 42128 42183 42192 42540 42560 42744 42752 42944 42946 42951 42999 43052 43056 43066 43072 43128 43136 43206 43214 43226 43232 43348 43359 43389 43392 43470 43471 43482 43486 43519 43520 43575 43584 43598 43600 43610 43612 43715 43739 43767 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43880 43888 44014 44016 44026 44032 55204 55216 55239 55243 55292 55296 64110 64112 64218 64256 64263 64275 64280 64285 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64450 64467 64832 64848 64912 64914 64968 64976 65022 65024 65050 65056 65107 65108 65127 65128 65132 65136 65141 65142 65277 65279 65280 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65529 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65792 65795 65799 65844 65847 65935 65936 65948 65952 65953 66000 66046 66176 66205 66208 66257 66272 66300 66304 66340 66349 66379 66384 66427 66432 66462 66463 66500 66504 66518 66560 66718 66720 66730 66736 66772 66776 66812 66816 66856 66864 66916 66927 66928 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67671 67743 67751 67760 67808 67827 67828 67830 67835 67868 67871 67898 67903 67904 67968 68024 68028 68048 68050 68100 68101 68103 68108 68116 68117 68120 68121 68150 68152 68155 68159 68169 68176 68185 68192 68256 68288 68327 68331 68343 68352 68406 68409 68438 68440 68467 68472 68498 68505 68509 68521 68528 68608 68681 68736 68787 68800 68851 68858 68904 68912 68922 69216 69247 69376 69416 69424 69466 69600 69623 69632 69710 69714 69744 69759 69826 69837 69838 69840 69865 69872 69882 69888 69941 69942 69959 69968 70007 70016 70094 70096 70112 70113 70133 70144 70162 70163 70207 70272 70279 70280 70281 70282 70286 70287 70302 70303 70314 70320 70379 70384 70394 70400 70404 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70459 70469 70471 70473 70475 70478 70480 70481 70487 70488 70493 70500 70502 70509 70512 70517 70656 70746 70747 70748 70749 70752 70784 70856 70864 70874 71040 71094 71096 71134 71168 71237 71248 71258 71264 71277 71296 71353 71360 71370 71424 71451 71453 71468 71472 71488 71680 71740 71840 71923 71935 71936 72096 72104 72106 72152 72154 72165 72192 72264 72272 72355 72384 72441 72704 72713 72714 72759 72760 72774 72784 72813 72816 72848 72850 72872 72873 72887 72960 72967 72968 72970 72971 73015 73018 73019 73020 73022 73023 73032 73040 73050 73056 73062 73063 73065 73066 73103 73104 73106 73107 73113 73120 73130 73440 73465 73664 73714 73727 74650 74752 74863 74864 74869 74880 75076 77824 78895 78896 78905 82944 83527 92160 92729 92736 92767 92768 92778 92782 92784 92880 92910 92912 92918 92928 92998 93008 93018 93019 93026 93027 93048 93053 93072 93760 93851 93952 94027 94031 94088 94095 94112 94176 94180 94208 100344 100352 101107 110592 110879 110928 110931 110948 110952 110960 111356 113664 113771 113776 113789 113792 113801 113808 113818 113820 113828 118784 119030 119040 119079 119081 119273 119296 119366 119520 119540 119552 119639 119648 119673 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 121484 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123136 123181 123184 123198 123200 123210 123214 123216 123584 123642 123647 123648 124928 125125 125127 125143 125184 125260 125264 125274 125278 125280 126065 126133 126209 126270 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 126704 126706 126976 127020 127024 127124 127136 127151 127153 127168 127169 127184 127185 127222 127232 127245 127248 127341 127344 127405 127462 127491 127504 127548 127552 127561 127568 127570 127584 127590 127744 128726 128736 128749 128752 128763 128768 128884 128896 128985 128992 129004 129024 129036 129040 129096 129104 129114 129120 129160 129168 129198 129280 129292 129293 129394 129395 129399 129402 129443 129445 129451 129454 129483 129485 129620 129632 129646 129648 129652 129656 129659 129664 129667 129680 129686 131070 173783 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196606 196608 262142 262144 327678 327680 393214 393216 458750 458752 524286 524288 589822 589824 655358 655360 720894 720896 786430 786432 851966 851968 917502 917504 917505 917506 917536 917632 917760 918000 983038 1114112 END PK ! $��R� � 5.34.0/unicore/lib/In/2_1.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V624 0 502 506 536 592 681 688 735 736 746 768 838 864 866 884 886 890 891 894 895 900 907 908 909 910 930 931 975 976 983 986 987 988 989 990 991 992 993 994 1012 1025 1037 1038 1104 1105 1117 1118 1159 1168 1221 1223 1225 1227 1229 1232 1260 1262 1270 1272 1274 1329 1367 1369 1376 1377 1416 1417 1418 1425 1442 1443 1466 1467 1477 1488 1515 1520 1525 1548 1549 1563 1564 1567 1568 1569 1595 1600 1619 1632 1646 1648 1720 1722 1727 1728 1743 1744 1774 1776 1786 2305 2308 2309 2362 2364 2382 2384 2389 2392 2417 2433 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2493 2494 2501 2503 2505 2507 2510 2519 2520 2524 2526 2527 2532 2534 2555 2562 2563 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2649 2653 2654 2655 2662 2677 2689 2692 2693 2700 2701 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2785 2790 2800 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2870 2874 2876 2884 2887 2889 2891 2894 2902 2904 2908 2910 2911 2914 2918 2929 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 2998 2999 3002 3006 3011 3014 3017 3018 3022 3031 3032 3047 3059 3073 3076 3077 3085 3086 3089 3090 3113 3114 3124 3125 3130 3134 3141 3142 3145 3146 3150 3157 3159 3168 3170 3174 3184 3202 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3262 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3298 3302 3312 3330 3332 3333 3341 3342 3345 3346 3369 3370 3386 3390 3396 3398 3401 3402 3406 3415 3416 3424 3426 3430 3440 3585 3643 3647 3676 3713 3715 3716 3717 3719 3721 3722 3723 3725 3726 3732 3736 3737 3744 3745 3748 3749 3750 3751 3752 3754 3756 3757 3770 3771 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3806 3840 3912 3913 3946 3953 3980 3984 3990 3991 3992 3993 4014 4017 4024 4025 4026 4256 4294 4304 4343 4347 4348 4352 4442 4447 4515 4520 4602 7680 7836 7840 7930 7936 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8239 8240 8263 8298 8305 8308 8335 8352 8365 8400 8418 8448 8505 8531 8579 8592 8683 8704 8946 8960 8961 8962 9083 9216 9253 9280 9291 9312 9451 9472 9622 9632 9712 9728 9748 9754 9840 9985 9989 9990 9994 9996 10024 10025 10060 10061 10062 10063 10067 10070 10071 10072 10079 10081 10088 10102 10133 10136 10160 10161 10175 12288 12344 12351 12352 12353 12437 12441 12447 12449 12543 12549 12589 12593 12687 12688 12704 12800 12829 12832 12868 12896 12924 12927 12977 12992 13004 13008 13055 13056 13175 13179 13278 13280 13311 19968 40870 44032 55204 55296 64046 64256 64263 64275 64280 64286 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64832 64848 64912 64914 64968 65008 65020 65056 65060 65072 65093 65097 65107 65108 65127 65128 65132 65136 65139 65140 65141 65142 65277 65279 65280 65281 65375 65377 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65532 65536 131070 131072 196606 196608 262142 262144 327678 327680 393214 393216 458750 458752 524286 524288 589822 589824 655358 655360 720894 720896 786430 786432 851966 851968 917502 917504 983038 1114112 END PK ! ..��s s 5.34.0/unicore/lib/In/5_1.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V910 0 888 890 895 900 907 908 909 910 930 931 1316 1329 1367 1369 1376 1377 1416 1417 1419 1425 1480 1488 1515 1520 1525 1536 1540 1542 1564 1566 1568 1569 1631 1632 1806 1807 1867 1869 1970 1984 2043 2305 2362 2364 2382 2384 2389 2392 2419 2427 2432 2433 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2555 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2678 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2800 2801 2802 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2902 2904 2908 2910 2911 2916 2918 2930 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3067 3073 3076 3077 3085 3086 3089 3090 3113 3114 3124 3125 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3162 3168 3172 3174 3184 3192 3200 3202 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3330 3332 3333 3341 3342 3345 3346 3369 3370 3386 3389 3397 3398 3401 3402 3406 3415 3416 3424 3428 3430 3446 3449 3456 3458 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3570 3573 3585 3643 3647 3676 3713 3715 3716 3717 3719 3721 3722 3723 3725 3726 3732 3736 3737 3744 3745 3748 3749 3750 3751 3752 3754 3756 3757 3770 3771 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3806 3840 3912 3913 3949 3953 3980 3984 3992 3993 4029 4030 4045 4046 4053 4096 4250 4254 4294 4304 4349 4352 4442 4447 4515 4520 4602 4608 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4959 4989 4992 5018 5024 5109 5121 5751 5760 5789 5792 5873 5888 5901 5902 5909 5920 5943 5952 5972 5984 5997 5998 6001 6002 6004 6016 6110 6112 6122 6128 6138 6144 6159 6160 6170 6176 6264 6272 6315 6400 6429 6432 6444 6448 6460 6464 6465 6468 6510 6512 6517 6528 6570 6576 6602 6608 6618 6622 6684 6686 6688 6912 6988 6992 7037 7040 7083 7086 7098 7168 7224 7227 7242 7245 7296 7424 7655 7678 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8293 8298 8306 8308 8335 8336 8341 8352 8374 8400 8433 8448 8528 8531 8585 8592 9192 9216 9255 9280 9291 9312 9886 9888 9917 9920 9924 9985 9989 9990 9994 9996 10024 10025 10060 10061 10062 10063 10067 10070 10071 10072 10079 10081 10133 10136 10160 10161 10175 10176 10187 10188 10189 10192 11085 11088 11093 11264 11311 11312 11359 11360 11376 11377 11390 11392 11499 11513 11558 11568 11622 11631 11632 11648 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11825 11904 11930 11931 12020 12032 12246 12272 12284 12288 12352 12353 12439 12441 12544 12549 12590 12593 12687 12688 12728 12736 12772 12784 12831 12832 12868 12880 13055 13056 19894 19904 40900 40960 42125 42128 42183 42240 42540 42560 42592 42594 42612 42620 42648 42752 42893 43003 43052 43072 43128 43136 43205 43214 43226 43264 43348 43359 43360 43520 43575 43584 43598 43600 43610 43612 43616 44032 55204 55296 64046 64048 64107 64112 64218 64256 64263 64275 64280 64285 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64832 64848 64912 64914 64968 64976 65022 65024 65050 65056 65063 65072 65107 65108 65127 65128 65132 65136 65141 65142 65277 65279 65280 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65529 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65792 65795 65799 65844 65847 65931 65936 65948 66000 66046 66176 66205 66208 66257 66304 66335 66336 66340 66352 66379 66432 66462 66463 66500 66504 66518 66560 66718 66720 66730 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67648 67840 67866 67871 67898 67903 67904 68096 68100 68101 68103 68108 68116 68117 68120 68121 68148 68152 68155 68159 68168 68176 68185 73728 74607 74752 74851 74864 74868 118784 119030 119040 119079 119081 119262 119296 119366 119552 119639 119648 119666 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 120832 126976 127020 127024 127124 131070 173783 194560 195102 196606 196608 262142 262144 327678 327680 393214 393216 458750 458752 524286 524288 589822 589824 655358 655360 720894 720896 786430 786432 851966 851968 917502 917504 917505 917506 917536 917632 917760 918000 983038 1114112 END PK ! ��� � 5.34.0/unicore/lib/In/5_0.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V880 0 880 884 886 890 895 900 907 908 909 910 930 931 975 976 1159 1160 1300 1329 1367 1369 1376 1377 1416 1417 1419 1425 1480 1488 1515 1520 1525 1536 1540 1547 1558 1563 1564 1566 1568 1569 1595 1600 1631 1632 1806 1807 1867 1869 1902 1920 1970 1984 2043 2305 2362 2364 2382 2384 2389 2392 2417 2427 2432 2433 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2555 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2649 2653 2654 2655 2662 2677 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2800 2801 2802 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2884 2887 2889 2891 2894 2902 2904 2908 2910 2911 2914 2918 2930 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3031 3032 3046 3067 3073 3076 3077 3085 3086 3089 3090 3113 3114 3124 3125 3130 3134 3141 3142 3145 3146 3150 3157 3159 3168 3170 3174 3184 3202 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3330 3332 3333 3341 3342 3345 3346 3369 3370 3386 3390 3396 3398 3401 3402 3406 3415 3416 3424 3426 3430 3440 3458 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3570 3573 3585 3643 3647 3676 3713 3715 3716 3717 3719 3721 3722 3723 3725 3726 3732 3736 3737 3744 3745 3748 3749 3750 3751 3752 3754 3756 3757 3770 3771 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3806 3840 3912 3913 3947 3953 3980 3984 3992 3993 4029 4030 4045 4047 4050 4096 4130 4131 4136 4137 4139 4140 4147 4150 4154 4160 4186 4256 4294 4304 4349 4352 4442 4447 4515 4520 4602 4608 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4959 4989 4992 5018 5024 5109 5121 5751 5760 5789 5792 5873 5888 5901 5902 5909 5920 5943 5952 5972 5984 5997 5998 6001 6002 6004 6016 6110 6112 6122 6128 6138 6144 6159 6160 6170 6176 6264 6272 6314 6400 6429 6432 6444 6448 6460 6464 6465 6468 6510 6512 6517 6528 6570 6576 6602 6608 6618 6622 6684 6686 6688 6912 6988 6992 7037 7424 7627 7678 7836 7840 7930 7936 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8292 8298 8306 8308 8335 8336 8341 8352 8374 8400 8432 8448 8527 8531 8581 8592 9192 9216 9255 9280 9291 9312 9885 9888 9907 9985 9989 9990 9994 9996 10024 10025 10060 10061 10062 10063 10067 10070 10071 10072 10079 10081 10133 10136 10160 10161 10175 10176 10187 10192 10220 10224 11035 11040 11044 11264 11311 11312 11359 11360 11373 11380 11384 11392 11499 11513 11558 11568 11622 11631 11632 11648 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11776 11800 11804 11806 11904 11930 11931 12020 12032 12246 12272 12284 12288 12352 12353 12439 12441 12544 12549 12589 12593 12687 12688 12728 12736 12752 12784 12831 12832 12868 12880 13055 13056 19894 19904 40892 40960 42125 42128 42183 42752 42779 42784 42786 43008 43052 43072 43128 44032 55204 55296 64046 64048 64107 64112 64218 64256 64263 64275 64280 64285 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64832 64848 64912 64914 64968 64976 65022 65024 65050 65056 65060 65072 65107 65108 65127 65128 65132 65136 65141 65142 65277 65279 65280 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65529 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65792 65795 65799 65844 65847 65931 66304 66335 66336 66340 66352 66379 66432 66462 66463 66500 66504 66518 66560 66718 66720 66730 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67648 67840 67866 67871 67872 68096 68100 68101 68103 68108 68116 68117 68120 68121 68148 68152 68155 68159 68168 68176 68185 73728 74607 74752 74851 74864 74868 118784 119030 119040 119079 119082 119262 119296 119366 119552 119639 119648 119666 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 120832 131070 173783 194560 195102 196606 196608 262142 262144 327678 327680 393214 393216 458750 458752 524286 524288 589822 589824 655358 655360 720894 720896 786430 786432 851966 851968 917502 917504 917505 917506 917536 917632 917760 918000 983038 1114112 END PK ! Ih h 5.34.0/unicore/lib/In/6_1.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1098 0 888 890 895 900 907 908 909 910 930 931 1320 1329 1367 1369 1376 1377 1416 1417 1419 1423 1424 1425 1480 1488 1515 1520 1525 1536 1541 1542 1564 1566 1806 1807 1867 1869 1970 1984 2043 2048 2094 2096 2111 2112 2140 2142 2143 2208 2209 2210 2221 2276 2303 2304 2424 2425 2432 2433 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2556 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2678 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2802 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2902 2904 2908 2910 2911 2916 2918 2936 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3067 3073 3076 3077 3085 3086 3089 3090 3113 3114 3124 3125 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3162 3168 3172 3174 3184 3192 3200 3202 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3330 3332 3333 3341 3342 3345 3346 3387 3389 3397 3398 3401 3402 3407 3415 3416 3424 3428 3430 3446 3449 3456 3458 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3570 3573 3585 3643 3647 3676 3713 3715 3716 3717 3719 3721 3722 3723 3725 3726 3732 3736 3737 3744 3745 3748 3749 3750 3751 3752 3754 3756 3757 3770 3771 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3808 3840 3912 3913 3949 3953 3992 3993 4029 4030 4045 4046 4059 4096 4294 4295 4296 4301 4302 4304 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4989 4992 5018 5024 5109 5120 5789 5792 5873 5888 5901 5902 5909 5920 5943 5952 5972 5984 5997 5998 6001 6002 6004 6016 6110 6112 6122 6128 6138 6144 6159 6160 6170 6176 6264 6272 6315 6320 6390 6400 6429 6432 6444 6448 6460 6464 6465 6468 6510 6512 6517 6528 6572 6576 6602 6608 6619 6622 6684 6686 6751 6752 6781 6783 6794 6800 6810 6816 6830 6912 6988 6992 7037 7040 7156 7164 7224 7227 7242 7245 7296 7360 7368 7376 7415 7424 7655 7676 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8293 8298 8306 8308 8335 8336 8349 8352 8378 8400 8433 8448 8586 8592 9204 9216 9255 9280 9291 9312 9984 9985 11085 11088 11098 11264 11311 11312 11359 11360 11508 11513 11558 11559 11560 11565 11566 11568 11624 11631 11633 11647 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11836 11904 11930 11931 12020 12032 12246 12272 12284 12288 12352 12353 12439 12441 12544 12549 12590 12593 12687 12688 12731 12736 12772 12784 12831 12832 13055 13056 19894 19904 40909 40960 42125 42128 42183 42192 42540 42560 42648 42655 42744 42752 42895 42896 42900 42912 42923 43000 43052 43056 43066 43072 43128 43136 43205 43214 43226 43232 43260 43264 43348 43359 43389 43392 43470 43471 43482 43486 43488 43520 43575 43584 43598 43600 43610 43612 43644 43648 43715 43739 43767 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43968 44014 44016 44026 44032 55204 55216 55239 55243 55292 55296 64110 64112 64218 64256 64263 64275 64280 64285 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64450 64467 64832 64848 64912 64914 64968 64976 65022 65024 65050 65056 65063 65072 65107 65108 65127 65128 65132 65136 65141 65142 65277 65279 65280 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65529 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65792 65795 65799 65844 65847 65931 65936 65948 66000 66046 66176 66205 66208 66257 66304 66335 66336 66340 66352 66379 66432 66462 66463 66500 66504 66518 66560 66718 66720 66730 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67671 67680 67840 67868 67871 67898 67903 67904 67968 68024 68030 68032 68096 68100 68101 68103 68108 68116 68117 68120 68121 68148 68152 68155 68159 68168 68176 68185 68192 68224 68352 68406 68409 68438 68440 68467 68472 68480 68608 68681 69216 69247 69632 69710 69714 69744 69760 69826 69840 69865 69872 69882 69888 69941 69942 69956 70016 70089 70096 70106 71296 71352 71360 71370 73728 74607 74752 74851 74864 74868 77824 78895 92160 92729 93952 94021 94032 94079 94095 94112 110592 110594 118784 119030 119040 119079 119081 119262 119296 119366 119552 119639 119648 119666 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 120832 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 126704 126706 126976 127020 127024 127124 127136 127151 127153 127167 127169 127184 127185 127200 127232 127243 127248 127279 127280 127340 127344 127387 127462 127491 127504 127547 127552 127561 127568 127570 127744 127777 127792 127798 127799 127869 127872 127892 127904 127941 127942 127947 127968 127985 128000 128063 128064 128065 128066 128248 128249 128253 128256 128318 128320 128324 128336 128360 128507 128577 128581 128592 128640 128710 128768 128884 131070 173783 173824 177973 177984 178206 194560 195102 196606 196608 262142 262144 327678 327680 393214 393216 458750 458752 524286 524288 589822 589824 655358 655360 720894 720896 786430 786432 851966 851968 917502 917504 917505 917506 917536 917632 917760 918000 983038 1114112 END PK ! �; ; 5.34.0/unicore/lib/In/9_0.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1296 0 888 890 896 900 907 908 909 910 930 931 1328 1329 1367 1369 1376 1377 1416 1417 1419 1421 1424 1425 1480 1488 1515 1520 1525 1536 1565 1566 1806 1807 1867 1869 1970 1984 2043 2048 2094 2096 2111 2112 2140 2142 2143 2208 2229 2230 2238 2260 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2556 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2678 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2802 2809 2810 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2902 2904 2908 2910 2911 2916 2918 2936 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3067 3072 3076 3077 3085 3086 3089 3090 3113 3114 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3163 3168 3172 3174 3184 3192 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3329 3332 3333 3341 3342 3345 3346 3387 3389 3397 3398 3401 3402 3408 3412 3428 3430 3456 3458 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3558 3568 3570 3573 3585 3643 3647 3676 3713 3715 3716 3717 3719 3721 3722 3723 3725 3726 3732 3736 3737 3744 3745 3748 3749 3750 3751 3752 3754 3756 3757 3770 3771 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3808 3840 3912 3913 3949 3953 3992 3993 4029 4030 4045 4046 4059 4096 4294 4295 4296 4301 4302 4304 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4989 4992 5018 5024 5110 5112 5118 5120 5789 5792 5881 5888 5901 5902 5909 5920 5943 5952 5972 5984 5997 5998 6001 6002 6004 6016 6110 6112 6122 6128 6138 6144 6159 6160 6170 6176 6264 6272 6315 6320 6390 6400 6431 6432 6444 6448 6460 6464 6465 6468 6510 6512 6517 6528 6572 6576 6602 6608 6619 6622 6684 6686 6751 6752 6781 6783 6794 6800 6810 6816 6830 6832 6847 6912 6988 6992 7037 7040 7156 7164 7224 7227 7242 7245 7305 7360 7368 7376 7415 7416 7418 7424 7670 7675 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8293 8294 8306 8308 8335 8336 8349 8352 8383 8400 8433 8448 8588 8592 9215 9216 9255 9280 9291 9312 11124 11126 11158 11160 11194 11197 11209 11210 11218 11244 11248 11264 11311 11312 11359 11360 11508 11513 11558 11559 11560 11565 11566 11568 11624 11631 11633 11647 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11845 11904 11930 11931 12020 12032 12246 12272 12284 12288 12352 12353 12439 12441 12544 12549 12590 12593 12687 12688 12731 12736 12772 12784 12831 12832 13055 13056 19894 19904 40918 40960 42125 42128 42183 42192 42540 42560 42744 42752 42927 42928 42936 42999 43052 43056 43066 43072 43128 43136 43206 43214 43226 43232 43262 43264 43348 43359 43389 43392 43470 43471 43482 43486 43519 43520 43575 43584 43598 43600 43610 43612 43715 43739 43767 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43878 43888 44014 44016 44026 44032 55204 55216 55239 55243 55292 55296 64110 64112 64218 64256 64263 64275 64280 64285 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64450 64467 64832 64848 64912 64914 64968 64976 65022 65024 65050 65056 65107 65108 65127 65128 65132 65136 65141 65142 65277 65279 65280 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65529 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65792 65795 65799 65844 65847 65935 65936 65948 65952 65953 66000 66046 66176 66205 66208 66257 66272 66300 66304 66340 66352 66379 66384 66427 66432 66462 66463 66500 66504 66518 66560 66718 66720 66730 66736 66772 66776 66812 66816 66856 66864 66916 66927 66928 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67671 67743 67751 67760 67808 67827 67828 67830 67835 67868 67871 67898 67903 67904 67968 68024 68028 68048 68050 68100 68101 68103 68108 68116 68117 68120 68121 68148 68152 68155 68159 68168 68176 68185 68192 68256 68288 68327 68331 68343 68352 68406 68409 68438 68440 68467 68472 68498 68505 68509 68521 68528 68608 68681 68736 68787 68800 68851 68858 68864 69216 69247 69632 69710 69714 69744 69759 69826 69840 69865 69872 69882 69888 69941 69942 69956 69968 70007 70016 70094 70096 70112 70113 70133 70144 70162 70163 70207 70272 70279 70280 70281 70282 70286 70287 70302 70303 70314 70320 70379 70384 70394 70400 70404 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70460 70469 70471 70473 70475 70478 70480 70481 70487 70488 70493 70500 70502 70509 70512 70517 70656 70746 70747 70748 70749 70750 70784 70856 70864 70874 71040 71094 71096 71134 71168 71237 71248 71258 71264 71277 71296 71352 71360 71370 71424 71450 71453 71468 71472 71488 71840 71923 71935 71936 72384 72441 72704 72713 72714 72759 72760 72774 72784 72813 72816 72848 72850 72872 72873 72887 73728 74650 74752 74863 74864 74869 74880 75076 77824 78895 82944 83527 92160 92729 92736 92767 92768 92778 92782 92784 92880 92910 92912 92918 92928 92998 93008 93018 93019 93026 93027 93048 93053 93072 93952 94021 94032 94079 94095 94112 94176 94177 94208 100333 100352 101107 110592 110594 113664 113771 113776 113789 113792 113801 113808 113818 113820 113828 118784 119030 119040 119079 119081 119273 119296 119366 119552 119639 119648 119666 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 121484 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 124928 125125 125127 125143 125184 125259 125264 125274 125278 125280 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 126704 126706 126976 127020 127024 127124 127136 127151 127153 127168 127169 127184 127185 127222 127232 127245 127248 127279 127280 127340 127344 127405 127462 127491 127504 127548 127552 127561 127568 127570 127744 128723 128736 128749 128752 128759 128768 128884 128896 128981 129024 129036 129040 129096 129104 129114 129120 129160 129168 129198 129296 129311 129312 129320 129328 129329 129331 129343 129344 129356 129360 129375 129408 129426 129472 129473 131070 173783 173824 177973 177984 178206 178208 183970 194560 195102 196606 196608 262142 262144 327678 327680 393214 393216 458750 458752 524286 524288 589822 589824 655358 655360 720894 720896 786430 786432 851966 851968 917502 917504 917505 917506 917536 917632 917760 918000 983038 1114112 END PK ! ��\2� � 5.34.0/unicore/lib/In/3_2.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V794 0 545 546 564 592 686 688 751 768 848 864 880 884 886 890 891 894 895 900 907 908 909 910 930 931 975 976 1015 1024 1159 1160 1231 1232 1270 1272 1274 1280 1296 1329 1367 1369 1376 1377 1416 1417 1419 1425 1442 1443 1466 1467 1477 1488 1515 1520 1525 1548 1549 1563 1564 1567 1568 1569 1595 1600 1622 1632 1774 1776 1791 1792 1806 1807 1837 1840 1867 1920 1970 2305 2308 2309 2362 2364 2382 2384 2389 2392 2417 2433 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2493 2494 2501 2503 2505 2507 2510 2519 2520 2524 2526 2527 2532 2534 2555 2562 2563 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2649 2653 2654 2655 2662 2677 2689 2692 2693 2700 2701 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2785 2790 2800 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2870 2874 2876 2884 2887 2889 2891 2894 2902 2904 2908 2910 2911 2914 2918 2929 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 2998 2999 3002 3006 3011 3014 3017 3018 3022 3031 3032 3047 3059 3073 3076 3077 3085 3086 3089 3090 3113 3114 3124 3125 3130 3134 3141 3142 3145 3146 3150 3157 3159 3168 3170 3174 3184 3202 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3262 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3298 3302 3312 3330 3332 3333 3341 3342 3345 3346 3369 3370 3386 3390 3396 3398 3401 3402 3406 3415 3416 3424 3426 3430 3440 3458 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3570 3573 3585 3643 3647 3676 3713 3715 3716 3717 3719 3721 3722 3723 3725 3726 3732 3736 3737 3744 3745 3748 3749 3750 3751 3752 3754 3756 3757 3770 3771 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3806 3840 3912 3913 3947 3953 3980 3984 3992 3993 4029 4030 4045 4047 4048 4096 4130 4131 4136 4137 4139 4140 4147 4150 4154 4160 4186 4256 4294 4304 4345 4347 4348 4352 4442 4447 4515 4520 4602 4608 4615 4616 4679 4680 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4743 4744 4745 4746 4750 4752 4783 4784 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4815 4816 4823 4824 4847 4848 4879 4880 4881 4882 4886 4888 4895 4896 4935 4936 4955 4961 4989 5024 5109 5121 5751 5760 5789 5792 5873 5888 5901 5902 5909 5920 5943 5952 5972 5984 5997 5998 6001 6002 6004 6016 6109 6112 6122 6144 6159 6160 6170 6176 6264 6272 6314 7680 7836 7840 7930 7936 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8275 8279 8280 8287 8292 8298 8306 8308 8335 8352 8370 8400 8427 8448 8507 8509 8524 8531 8580 8592 9167 9216 9255 9280 9291 9312 9471 9472 9748 9750 9752 9753 9854 9856 9866 9985 9989 9990 9994 9996 10024 10025 10060 10061 10062 10063 10067 10070 10071 10072 10079 10081 10133 10136 10160 10161 10175 10192 10220 10224 11008 11904 11930 11931 12020 12032 12246 12272 12284 12288 12352 12353 12439 12441 12544 12549 12589 12593 12687 12688 12728 12784 12829 12832 12868 12881 12924 12927 13004 13008 13055 13056 13175 13179 13278 13280 13311 13312 19894 19968 40870 40960 42125 42128 42183 44032 55204 55296 64046 64048 64107 64256 64263 64275 64280 64285 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64832 64848 64912 64914 64968 64976 65021 65024 65040 65056 65060 65072 65095 65097 65107 65108 65127 65128 65132 65136 65141 65142 65277 65279 65280 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65529 65536 66304 66335 66336 66340 66352 66379 66560 66598 66600 66638 118784 119030 119040 119079 119082 119262 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120001 120002 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120484 120488 120778 120782 120832 131070 173783 194560 195102 196606 196608 262142 262144 327678 327680 393214 393216 458750 458752 524286 524288 589822 589824 655358 655360 720894 720896 786430 786432 851966 851968 917502 917504 917505 917506 917536 917632 983038 1114112 END PK ! S�{k= = 5.34.0/unicore/lib/In/4_0.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V824 0 567 592 856 861 880 884 886 890 891 894 895 900 907 908 909 910 930 931 975 976 1020 1024 1159 1160 1231 1232 1270 1272 1274 1280 1296 1329 1367 1369 1376 1377 1416 1417 1419 1425 1442 1443 1466 1467 1477 1488 1515 1520 1525 1536 1540 1548 1558 1563 1564 1567 1568 1569 1595 1600 1625 1632 1806 1807 1867 1869 1872 1920 1970 2305 2362 2364 2382 2384 2389 2392 2417 2433 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2510 2519 2520 2524 2526 2527 2532 2534 2555 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2649 2653 2654 2655 2662 2677 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2800 2801 2802 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2884 2887 2889 2891 2894 2902 2904 2908 2910 2911 2914 2918 2930 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 2998 2999 3002 3006 3011 3014 3017 3018 3022 3031 3032 3047 3067 3073 3076 3077 3085 3086 3089 3090 3113 3114 3124 3125 3130 3134 3141 3142 3145 3146 3150 3157 3159 3168 3170 3174 3184 3202 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3298 3302 3312 3330 3332 3333 3341 3342 3345 3346 3369 3370 3386 3390 3396 3398 3401 3402 3406 3415 3416 3424 3426 3430 3440 3458 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3570 3573 3585 3643 3647 3676 3713 3715 3716 3717 3719 3721 3722 3723 3725 3726 3732 3736 3737 3744 3745 3748 3749 3750 3751 3752 3754 3756 3757 3770 3771 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3806 3840 3912 3913 3947 3953 3980 3984 3992 3993 4029 4030 4045 4047 4048 4096 4130 4131 4136 4137 4139 4140 4147 4150 4154 4160 4186 4256 4294 4304 4345 4347 4348 4352 4442 4447 4515 4520 4602 4608 4615 4616 4679 4680 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4743 4744 4745 4746 4750 4752 4783 4784 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4815 4816 4823 4824 4847 4848 4879 4880 4881 4882 4886 4888 4895 4896 4935 4936 4955 4961 4989 5024 5109 5121 5751 5760 5789 5792 5873 5888 5901 5902 5909 5920 5943 5952 5972 5984 5997 5998 6001 6002 6004 6016 6110 6112 6122 6128 6138 6144 6159 6160 6170 6176 6264 6272 6314 6400 6429 6432 6444 6448 6460 6464 6465 6468 6510 6512 6517 6624 6656 7424 7532 7680 7836 7840 7930 7936 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8277 8279 8280 8287 8292 8298 8306 8308 8335 8352 8370 8400 8427 8448 8508 8509 8524 8531 8580 8592 9169 9216 9255 9280 9291 9312 9752 9753 9854 9856 9874 9888 9890 9985 9989 9990 9994 9996 10024 10025 10060 10061 10062 10063 10067 10070 10071 10072 10079 10081 10133 10136 10160 10161 10175 10192 10220 10224 11022 11904 11930 11931 12020 12032 12246 12272 12284 12288 12352 12353 12439 12441 12544 12549 12589 12593 12687 12688 12728 12784 12831 12832 12868 12880 12926 12927 13055 13056 19894 19904 40870 40960 42125 42128 42183 44032 55204 55296 64046 64048 64107 64256 64263 64275 64280 64285 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64832 64848 64912 64914 64968 64976 65022 65024 65040 65056 65060 65072 65107 65108 65127 65128 65132 65136 65141 65142 65277 65279 65280 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65529 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65792 65795 65799 65844 65847 65856 66304 66335 66336 66340 66352 66379 66432 66462 66463 66464 66560 66718 66720 66730 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67648 118784 119030 119040 119079 119082 119262 119552 119639 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120484 120488 120778 120782 120832 131070 173783 194560 195102 196606 196608 262142 262144 327678 327680 393214 393216 458750 458752 524286 524288 589822 589824 655358 655360 720894 720896 786430 786432 851966 851968 917502 917504 917505 917506 917536 917632 917760 918000 983038 1114112 END PK ! R�#�� � 5.34.0/unicore/lib/In/12_1.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1352 0 888 890 896 900 907 908 909 910 930 931 1328 1329 1367 1369 1419 1421 1424 1425 1480 1488 1515 1519 1525 1536 1565 1566 1806 1807 1867 1869 1970 1984 2043 2045 2094 2096 2111 2112 2140 2142 2143 2144 2155 2208 2229 2230 2238 2259 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2559 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2679 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2802 2809 2816 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2902 2904 2908 2910 2911 2916 2918 2936 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3067 3072 3085 3086 3089 3090 3113 3114 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3163 3168 3172 3174 3184 3191 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3328 3332 3333 3341 3342 3345 3346 3397 3398 3401 3402 3408 3412 3428 3430 3456 3458 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3558 3568 3570 3573 3585 3643 3647 3676 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3808 3840 3912 3913 3949 3953 3992 3993 4029 4030 4045 4046 4059 4096 4294 4295 4296 4301 4302 4304 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4989 4992 5018 5024 5110 5112 5118 5120 5789 5792 5881 5888 5901 5902 5909 5920 5943 5952 5972 5984 5997 5998 6001 6002 6004 6016 6110 6112 6122 6128 6138 6144 6159 6160 6170 6176 6265 6272 6315 6320 6390 6400 6431 6432 6444 6448 6460 6464 6465 6468 6510 6512 6517 6528 6572 6576 6602 6608 6619 6622 6684 6686 6751 6752 6781 6783 6794 6800 6810 6816 6830 6832 6847 6912 6988 6992 7037 7040 7156 7164 7224 7227 7242 7245 7305 7312 7355 7357 7368 7376 7419 7424 7674 7675 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8293 8294 8306 8308 8335 8336 8349 8352 8384 8400 8433 8448 8588 8592 9255 9280 9291 9312 11124 11126 11158 11160 11311 11312 11359 11360 11508 11513 11558 11559 11560 11565 11566 11568 11624 11631 11633 11647 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11856 11904 11930 11931 12020 12032 12246 12272 12284 12288 12352 12353 12439 12441 12544 12549 12592 12593 12687 12688 12731 12736 12772 12784 12831 12832 19894 19904 40944 40960 42125 42128 42183 42192 42540 42560 42744 42752 42944 42946 42951 42999 43052 43056 43066 43072 43128 43136 43206 43214 43226 43232 43348 43359 43389 43392 43470 43471 43482 43486 43519 43520 43575 43584 43598 43600 43610 43612 43715 43739 43767 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43880 43888 44014 44016 44026 44032 55204 55216 55239 55243 55292 55296 64110 64112 64218 64256 64263 64275 64280 64285 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64450 64467 64832 64848 64912 64914 64968 64976 65022 65024 65050 65056 65107 65108 65127 65128 65132 65136 65141 65142 65277 65279 65280 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65529 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65792 65795 65799 65844 65847 65935 65936 65948 65952 65953 66000 66046 66176 66205 66208 66257 66272 66300 66304 66340 66349 66379 66384 66427 66432 66462 66463 66500 66504 66518 66560 66718 66720 66730 66736 66772 66776 66812 66816 66856 66864 66916 66927 66928 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67671 67743 67751 67760 67808 67827 67828 67830 67835 67868 67871 67898 67903 67904 67968 68024 68028 68048 68050 68100 68101 68103 68108 68116 68117 68120 68121 68150 68152 68155 68159 68169 68176 68185 68192 68256 68288 68327 68331 68343 68352 68406 68409 68438 68440 68467 68472 68498 68505 68509 68521 68528 68608 68681 68736 68787 68800 68851 68858 68904 68912 68922 69216 69247 69376 69416 69424 69466 69600 69623 69632 69710 69714 69744 69759 69826 69837 69838 69840 69865 69872 69882 69888 69941 69942 69959 69968 70007 70016 70094 70096 70112 70113 70133 70144 70162 70163 70207 70272 70279 70280 70281 70282 70286 70287 70302 70303 70314 70320 70379 70384 70394 70400 70404 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70459 70469 70471 70473 70475 70478 70480 70481 70487 70488 70493 70500 70502 70509 70512 70517 70656 70746 70747 70748 70749 70752 70784 70856 70864 70874 71040 71094 71096 71134 71168 71237 71248 71258 71264 71277 71296 71353 71360 71370 71424 71451 71453 71468 71472 71488 71680 71740 71840 71923 71935 71936 72096 72104 72106 72152 72154 72165 72192 72264 72272 72355 72384 72441 72704 72713 72714 72759 72760 72774 72784 72813 72816 72848 72850 72872 72873 72887 72960 72967 72968 72970 72971 73015 73018 73019 73020 73022 73023 73032 73040 73050 73056 73062 73063 73065 73066 73103 73104 73106 73107 73113 73120 73130 73440 73465 73664 73714 73727 74650 74752 74863 74864 74869 74880 75076 77824 78895 78896 78905 82944 83527 92160 92729 92736 92767 92768 92778 92782 92784 92880 92910 92912 92918 92928 92998 93008 93018 93019 93026 93027 93048 93053 93072 93760 93851 93952 94027 94031 94088 94095 94112 94176 94180 94208 100344 100352 101107 110592 110879 110928 110931 110948 110952 110960 111356 113664 113771 113776 113789 113792 113801 113808 113818 113820 113828 118784 119030 119040 119079 119081 119273 119296 119366 119520 119540 119552 119639 119648 119673 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 121484 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123136 123181 123184 123198 123200 123210 123214 123216 123584 123642 123647 123648 124928 125125 125127 125143 125184 125260 125264 125274 125278 125280 126065 126133 126209 126270 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 126704 126706 126976 127020 127024 127124 127136 127151 127153 127168 127169 127184 127185 127222 127232 127245 127248 127341 127344 127405 127462 127491 127504 127548 127552 127561 127568 127570 127584 127590 127744 128726 128736 128749 128752 128763 128768 128884 128896 128985 128992 129004 129024 129036 129040 129096 129104 129114 129120 129160 129168 129198 129280 129292 129293 129394 129395 129399 129402 129443 129445 129451 129454 129483 129485 129620 129632 129646 129648 129652 129656 129659 129664 129667 129680 129686 131070 173783 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196606 196608 262142 262144 327678 327680 393214 393216 458750 458752 524286 524288 589822 589824 655358 655360 720894 720896 786430 786432 851966 851968 917502 917504 917505 917506 917536 917632 917760 918000 983038 1114112 END PK ! 2�ޑ� � 5.34.0/unicore/lib/In/3_1.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V804 0 544 546 564 592 686 688 751 768 847 864 867 884 886 890 891 894 895 900 907 908 909 910 930 931 975 976 984 986 1014 1024 1159 1160 1162 1164 1221 1223 1225 1227 1229 1232 1270 1272 1274 1329 1367 1369 1376 1377 1416 1417 1419 1425 1442 1443 1466 1467 1477 1488 1515 1520 1525 1548 1549 1563 1564 1567 1568 1569 1595 1600 1622 1632 1646 1648 1774 1776 1791 1792 1806 1807 1837 1840 1867 1920 1969 2305 2308 2309 2362 2364 2382 2384 2389 2392 2417 2433 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2493 2494 2501 2503 2505 2507 2510 2519 2520 2524 2526 2527 2532 2534 2555 2562 2563 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2649 2653 2654 2655 2662 2677 2689 2692 2693 2700 2701 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2785 2790 2800 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2870 2874 2876 2884 2887 2889 2891 2894 2902 2904 2908 2910 2911 2914 2918 2929 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 2998 2999 3002 3006 3011 3014 3017 3018 3022 3031 3032 3047 3059 3073 3076 3077 3085 3086 3089 3090 3113 3114 3124 3125 3130 3134 3141 3142 3145 3146 3150 3157 3159 3168 3170 3174 3184 3202 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3262 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3298 3302 3312 3330 3332 3333 3341 3342 3345 3346 3369 3370 3386 3390 3396 3398 3401 3402 3406 3415 3416 3424 3426 3430 3440 3458 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3570 3573 3585 3643 3647 3676 3713 3715 3716 3717 3719 3721 3722 3723 3725 3726 3732 3736 3737 3744 3745 3748 3749 3750 3751 3752 3754 3756 3757 3770 3771 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3806 3840 3912 3913 3947 3953 3980 3984 3992 3993 4029 4030 4045 4047 4048 4096 4130 4131 4136 4137 4139 4140 4147 4150 4154 4160 4186 4256 4294 4304 4343 4347 4348 4352 4442 4447 4515 4520 4602 4608 4615 4616 4679 4680 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4743 4744 4745 4746 4750 4752 4783 4784 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4815 4816 4823 4824 4847 4848 4879 4880 4881 4882 4886 4888 4895 4896 4935 4936 4955 4961 4989 5024 5109 5121 5751 5760 5789 5792 5873 6016 6109 6112 6122 6144 6159 6160 6170 6176 6264 6272 6314 7680 7836 7840 7930 7936 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8263 8264 8270 8298 8305 8308 8335 8352 8368 8400 8420 8448 8507 8531 8580 8592 8692 8704 8946 8960 9084 9085 9115 9216 9255 9280 9291 9312 9451 9472 9622 9632 9720 9728 9748 9753 9842 9985 9989 9990 9994 9996 10024 10025 10060 10061 10062 10063 10067 10070 10071 10072 10079 10081 10088 10102 10133 10136 10160 10161 10175 10240 10496 11904 11930 11931 12020 12032 12246 12272 12284 12288 12347 12350 12352 12353 12437 12441 12447 12449 12543 12549 12589 12593 12687 12688 12728 12800 12829 12832 12868 12896 12924 12927 12977 12992 13004 13008 13055 13056 13175 13179 13278 13280 13311 13312 19894 19968 40870 40960 42125 42128 42146 42148 42164 42165 42177 42178 42181 42182 42183 44032 55204 55296 64046 64256 64263 64275 64280 64285 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64832 64848 64912 64914 64968 64976 65020 65056 65060 65072 65093 65097 65107 65108 65127 65128 65132 65136 65139 65140 65141 65142 65277 65279 65280 65281 65375 65377 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65529 65536 66304 66335 66336 66340 66352 66379 66560 66598 66600 66638 118784 119030 119040 119079 119082 119262 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120001 120002 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120484 120488 120778 120782 120832 131070 173783 194560 195102 196606 196608 262142 262144 327678 327680 393214 393216 458750 458752 524286 524288 589822 589824 655358 655360 720894 720896 786430 786432 851966 851968 917502 917504 917505 917506 917536 917632 983038 1114112 END PK ! a�h�3 3 5.34.0/unicore/lib/In/4_1.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V860 0 578 592 880 884 886 890 891 894 895 900 907 908 909 910 930 931 975 976 1159 1160 1231 1232 1274 1280 1296 1329 1367 1369 1376 1377 1416 1417 1419 1425 1466 1467 1480 1488 1515 1520 1525 1536 1540 1547 1558 1563 1564 1566 1568 1569 1595 1600 1631 1632 1806 1807 1867 1869 1902 1920 1970 2305 2362 2364 2382 2384 2389 2392 2417 2429 2430 2433 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2555 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2649 2653 2654 2655 2662 2677 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2800 2801 2802 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2884 2887 2889 2891 2894 2902 2904 2908 2910 2911 2914 2918 2930 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3031 3032 3046 3067 3073 3076 3077 3085 3086 3089 3090 3113 3114 3124 3125 3130 3134 3141 3142 3145 3146 3150 3157 3159 3168 3170 3174 3184 3202 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3298 3302 3312 3330 3332 3333 3341 3342 3345 3346 3369 3370 3386 3390 3396 3398 3401 3402 3406 3415 3416 3424 3426 3430 3440 3458 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3570 3573 3585 3643 3647 3676 3713 3715 3716 3717 3719 3721 3722 3723 3725 3726 3732 3736 3737 3744 3745 3748 3749 3750 3751 3752 3754 3756 3757 3770 3771 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3806 3840 3912 3913 3947 3953 3980 3984 3992 3993 4029 4030 4045 4047 4050 4096 4130 4131 4136 4137 4139 4140 4147 4150 4154 4160 4186 4256 4294 4304 4349 4352 4442 4447 4515 4520 4602 4608 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4959 4989 4992 5018 5024 5109 5121 5751 5760 5789 5792 5873 5888 5901 5902 5909 5920 5943 5952 5972 5984 5997 5998 6001 6002 6004 6016 6110 6112 6122 6128 6138 6144 6159 6160 6170 6176 6264 6272 6314 6400 6429 6432 6444 6448 6460 6464 6465 6468 6510 6512 6517 6528 6570 6576 6602 6608 6618 6622 6684 6686 6688 7424 7620 7680 7836 7840 7930 7936 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8292 8298 8306 8308 8335 8336 8341 8352 8374 8400 8428 8448 8525 8531 8580 8592 9180 9216 9255 9280 9291 9312 9885 9888 9906 9985 9989 9990 9994 9996 10024 10025 10060 10061 10062 10063 10067 10070 10071 10072 10079 10081 10133 10136 10160 10161 10175 10176 10183 10192 10220 10224 11028 11264 11311 11312 11359 11392 11499 11513 11558 11568 11622 11631 11632 11648 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11776 11800 11804 11806 11904 11930 11931 12020 12032 12246 12272 12284 12288 12352 12353 12439 12441 12544 12549 12589 12593 12687 12688 12728 12736 12752 12784 12831 12832 12868 12880 13055 13056 19894 19904 40892 40960 42125 42128 42183 42752 42775 43008 43052 44032 55204 55296 64046 64048 64107 64112 64218 64256 64263 64275 64280 64285 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64832 64848 64912 64914 64968 64976 65022 65024 65050 65056 65060 65072 65107 65108 65127 65128 65132 65136 65141 65142 65277 65279 65280 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65529 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65792 65795 65799 65844 65847 65931 66304 66335 66336 66340 66352 66379 66432 66462 66463 66500 66504 66518 66560 66718 66720 66730 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67648 68096 68100 68101 68103 68108 68116 68117 68120 68121 68148 68152 68155 68159 68168 68176 68185 118784 119030 119040 119079 119082 119262 119296 119366 119552 119639 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120778 120782 120832 131070 173783 194560 195102 196606 196608 262142 262144 327678 327680 393214 393216 458750 458752 524286 524288 589822 589824 655358 655360 720894 720896 786430 786432 851966 851968 917502 917504 917505 917506 917536 917632 917760 918000 983038 1114112 END PK ! ��w�h h 5.34.0/unicore/lib/In/6_3.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1098 0 888 890 895 900 907 908 909 910 930 931 1320 1329 1367 1369 1376 1377 1416 1417 1419 1423 1424 1425 1480 1488 1515 1520 1525 1536 1541 1542 1565 1566 1806 1807 1867 1869 1970 1984 2043 2048 2094 2096 2111 2112 2140 2142 2143 2208 2209 2210 2221 2276 2303 2304 2424 2425 2432 2433 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2556 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2678 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2802 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2902 2904 2908 2910 2911 2916 2918 2936 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3067 3073 3076 3077 3085 3086 3089 3090 3113 3114 3124 3125 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3162 3168 3172 3174 3184 3192 3200 3202 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3330 3332 3333 3341 3342 3345 3346 3387 3389 3397 3398 3401 3402 3407 3415 3416 3424 3428 3430 3446 3449 3456 3458 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3570 3573 3585 3643 3647 3676 3713 3715 3716 3717 3719 3721 3722 3723 3725 3726 3732 3736 3737 3744 3745 3748 3749 3750 3751 3752 3754 3756 3757 3770 3771 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3808 3840 3912 3913 3949 3953 3992 3993 4029 4030 4045 4046 4059 4096 4294 4295 4296 4301 4302 4304 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4989 4992 5018 5024 5109 5120 5789 5792 5873 5888 5901 5902 5909 5920 5943 5952 5972 5984 5997 5998 6001 6002 6004 6016 6110 6112 6122 6128 6138 6144 6159 6160 6170 6176 6264 6272 6315 6320 6390 6400 6429 6432 6444 6448 6460 6464 6465 6468 6510 6512 6517 6528 6572 6576 6602 6608 6619 6622 6684 6686 6751 6752 6781 6783 6794 6800 6810 6816 6830 6912 6988 6992 7037 7040 7156 7164 7224 7227 7242 7245 7296 7360 7368 7376 7415 7424 7655 7676 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8293 8294 8306 8308 8335 8336 8349 8352 8379 8400 8433 8448 8586 8592 9204 9216 9255 9280 9291 9312 9984 9985 11085 11088 11098 11264 11311 11312 11359 11360 11508 11513 11558 11559 11560 11565 11566 11568 11624 11631 11633 11647 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11836 11904 11930 11931 12020 12032 12246 12272 12284 12288 12352 12353 12439 12441 12544 12549 12590 12593 12687 12688 12731 12736 12772 12784 12831 12832 13055 13056 19894 19904 40909 40960 42125 42128 42183 42192 42540 42560 42648 42655 42744 42752 42895 42896 42900 42912 42923 43000 43052 43056 43066 43072 43128 43136 43205 43214 43226 43232 43260 43264 43348 43359 43389 43392 43470 43471 43482 43486 43488 43520 43575 43584 43598 43600 43610 43612 43644 43648 43715 43739 43767 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43968 44014 44016 44026 44032 55204 55216 55239 55243 55292 55296 64110 64112 64218 64256 64263 64275 64280 64285 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64450 64467 64832 64848 64912 64914 64968 64976 65022 65024 65050 65056 65063 65072 65107 65108 65127 65128 65132 65136 65141 65142 65277 65279 65280 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65529 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65792 65795 65799 65844 65847 65931 65936 65948 66000 66046 66176 66205 66208 66257 66304 66335 66336 66340 66352 66379 66432 66462 66463 66500 66504 66518 66560 66718 66720 66730 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67671 67680 67840 67868 67871 67898 67903 67904 67968 68024 68030 68032 68096 68100 68101 68103 68108 68116 68117 68120 68121 68148 68152 68155 68159 68168 68176 68185 68192 68224 68352 68406 68409 68438 68440 68467 68472 68480 68608 68681 69216 69247 69632 69710 69714 69744 69760 69826 69840 69865 69872 69882 69888 69941 69942 69956 70016 70089 70096 70106 71296 71352 71360 71370 73728 74607 74752 74851 74864 74868 77824 78895 92160 92729 93952 94021 94032 94079 94095 94112 110592 110594 118784 119030 119040 119079 119081 119262 119296 119366 119552 119639 119648 119666 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 120832 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 126704 126706 126976 127020 127024 127124 127136 127151 127153 127167 127169 127184 127185 127200 127232 127243 127248 127279 127280 127340 127344 127387 127462 127491 127504 127547 127552 127561 127568 127570 127744 127777 127792 127798 127799 127869 127872 127892 127904 127941 127942 127947 127968 127985 128000 128063 128064 128065 128066 128248 128249 128253 128256 128318 128320 128324 128336 128360 128507 128577 128581 128592 128640 128710 128768 128884 131070 173783 173824 177973 177984 178206 194560 195102 196606 196608 262142 262144 327678 327680 393214 393216 458750 458752 524286 524288 589822 589824 655358 655360 720894 720896 786430 786432 851966 851968 917502 917504 917505 917506 917536 917632 917760 918000 983038 1114112 END PK ! n�F�� � 5.34.0/unicore/lib/In/8_0.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1246 0 888 890 896 900 907 908 909 910 930 931 1328 1329 1367 1369 1376 1377 1416 1417 1419 1421 1424 1425 1480 1488 1515 1520 1525 1536 1565 1566 1806 1807 1867 1869 1970 1984 2043 2048 2094 2096 2111 2112 2140 2142 2143 2208 2229 2275 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2556 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2678 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2802 2809 2810 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2902 2904 2908 2910 2911 2916 2918 2936 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3067 3072 3076 3077 3085 3086 3089 3090 3113 3114 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3163 3168 3172 3174 3184 3192 3200 3201 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3329 3332 3333 3341 3342 3345 3346 3387 3389 3397 3398 3401 3402 3407 3415 3416 3423 3428 3430 3446 3449 3456 3458 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3558 3568 3570 3573 3585 3643 3647 3676 3713 3715 3716 3717 3719 3721 3722 3723 3725 3726 3732 3736 3737 3744 3745 3748 3749 3750 3751 3752 3754 3756 3757 3770 3771 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3808 3840 3912 3913 3949 3953 3992 3993 4029 4030 4045 4046 4059 4096 4294 4295 4296 4301 4302 4304 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4989 4992 5018 5024 5110 5112 5118 5120 5789 5792 5881 5888 5901 5902 5909 5920 5943 5952 5972 5984 5997 5998 6001 6002 6004 6016 6110 6112 6122 6128 6138 6144 6159 6160 6170 6176 6264 6272 6315 6320 6390 6400 6431 6432 6444 6448 6460 6464 6465 6468 6510 6512 6517 6528 6572 6576 6602 6608 6619 6622 6684 6686 6751 6752 6781 6783 6794 6800 6810 6816 6830 6832 6847 6912 6988 6992 7037 7040 7156 7164 7224 7227 7242 7245 7296 7360 7368 7376 7415 7416 7418 7424 7670 7676 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8293 8294 8306 8308 8335 8336 8349 8352 8383 8400 8433 8448 8588 8592 9211 9216 9255 9280 9291 9312 11124 11126 11158 11160 11194 11197 11209 11210 11218 11244 11248 11264 11311 11312 11359 11360 11508 11513 11558 11559 11560 11565 11566 11568 11624 11631 11633 11647 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11843 11904 11930 11931 12020 12032 12246 12272 12284 12288 12352 12353 12439 12441 12544 12549 12590 12593 12687 12688 12731 12736 12772 12784 12831 12832 13055 13056 19894 19904 40918 40960 42125 42128 42183 42192 42540 42560 42744 42752 42926 42928 42936 42999 43052 43056 43066 43072 43128 43136 43205 43214 43226 43232 43262 43264 43348 43359 43389 43392 43470 43471 43482 43486 43519 43520 43575 43584 43598 43600 43610 43612 43715 43739 43767 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43878 43888 44014 44016 44026 44032 55204 55216 55239 55243 55292 55296 64110 64112 64218 64256 64263 64275 64280 64285 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64450 64467 64832 64848 64912 64914 64968 64976 65022 65024 65050 65056 65107 65108 65127 65128 65132 65136 65141 65142 65277 65279 65280 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65529 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65792 65795 65799 65844 65847 65933 65936 65948 65952 65953 66000 66046 66176 66205 66208 66257 66272 66300 66304 66340 66352 66379 66384 66427 66432 66462 66463 66500 66504 66518 66560 66718 66720 66730 66816 66856 66864 66916 66927 66928 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67671 67743 67751 67760 67808 67827 67828 67830 67835 67868 67871 67898 67903 67904 67968 68024 68028 68048 68050 68100 68101 68103 68108 68116 68117 68120 68121 68148 68152 68155 68159 68168 68176 68185 68192 68256 68288 68327 68331 68343 68352 68406 68409 68438 68440 68467 68472 68498 68505 68509 68521 68528 68608 68681 68736 68787 68800 68851 68858 68864 69216 69247 69632 69710 69714 69744 69759 69826 69840 69865 69872 69882 69888 69941 69942 69956 69968 70007 70016 70094 70096 70112 70113 70133 70144 70162 70163 70206 70272 70279 70280 70281 70282 70286 70287 70302 70303 70314 70320 70379 70384 70394 70400 70404 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70460 70469 70471 70473 70475 70478 70480 70481 70487 70488 70493 70500 70502 70509 70512 70517 70784 70856 70864 70874 71040 71094 71096 71134 71168 71237 71248 71258 71296 71352 71360 71370 71424 71450 71453 71468 71472 71488 71840 71923 71935 71936 72384 72441 73728 74650 74752 74863 74864 74869 74880 75076 77824 78895 82944 83527 92160 92729 92736 92767 92768 92778 92782 92784 92880 92910 92912 92918 92928 92998 93008 93018 93019 93026 93027 93048 93053 93072 93952 94021 94032 94079 94095 94112 110592 110594 113664 113771 113776 113789 113792 113801 113808 113818 113820 113828 118784 119030 119040 119079 119081 119273 119296 119366 119552 119639 119648 119666 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 121484 121499 121504 121505 121520 124928 125125 125127 125143 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 126704 126706 126976 127020 127024 127124 127136 127151 127153 127168 127169 127184 127185 127222 127232 127245 127248 127279 127280 127340 127344 127387 127462 127491 127504 127547 127552 127561 127568 127570 127744 128378 128379 128420 128421 128721 128736 128749 128752 128756 128768 128884 128896 128981 129024 129036 129040 129096 129104 129114 129120 129160 129168 129198 129296 129305 129408 129413 129472 129473 131070 173783 173824 177973 177984 178206 178208 183970 194560 195102 196606 196608 262142 262144 327678 327680 393214 393216 458750 458752 524286 524288 589822 589824 655358 655360 720894 720896 786430 786432 851966 851968 917502 917504 917505 917506 917536 917632 917760 918000 983038 1114112 END PK ! kG�s s 5.34.0/unicore/lib/In/5_2.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V990 0 888 890 895 900 907 908 909 910 930 931 1318 1329 1367 1369 1376 1377 1416 1417 1419 1425 1480 1488 1515 1520 1525 1536 1540 1542 1564 1566 1568 1569 1631 1632 1806 1807 1867 1869 1970 1984 2043 2048 2094 2096 2111 2304 2362 2364 2383 2384 2390 2392 2419 2425 2432 2433 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2556 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2678 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2800 2801 2802 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2902 2904 2908 2910 2911 2916 2918 2930 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3067 3073 3076 3077 3085 3086 3089 3090 3113 3114 3124 3125 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3162 3168 3172 3174 3184 3192 3200 3202 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3330 3332 3333 3341 3342 3345 3346 3369 3370 3386 3389 3397 3398 3401 3402 3406 3415 3416 3424 3428 3430 3446 3449 3456 3458 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3570 3573 3585 3643 3647 3676 3713 3715 3716 3717 3719 3721 3722 3723 3725 3726 3732 3736 3737 3744 3745 3748 3749 3750 3751 3752 3754 3756 3757 3770 3771 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3806 3840 3912 3913 3949 3953 3980 3984 3992 3993 4029 4030 4045 4046 4057 4096 4294 4304 4349 4352 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4959 4989 4992 5018 5024 5109 5120 5789 5792 5873 5888 5901 5902 5909 5920 5943 5952 5972 5984 5997 5998 6001 6002 6004 6016 6110 6112 6122 6128 6138 6144 6159 6160 6170 6176 6264 6272 6315 6320 6390 6400 6429 6432 6444 6448 6460 6464 6465 6468 6510 6512 6517 6528 6572 6576 6602 6608 6619 6622 6684 6686 6751 6752 6781 6783 6794 6800 6810 6816 6830 6912 6988 6992 7037 7040 7083 7086 7098 7168 7224 7227 7242 7245 7296 7376 7411 7424 7655 7677 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8293 8298 8306 8308 8335 8336 8341 8352 8377 8400 8433 8448 8586 8592 9193 9216 9255 9280 9291 9312 9934 9935 9954 9955 9956 9960 9984 9985 9989 9990 9994 9996 10024 10025 10060 10061 10062 10063 10067 10070 10079 10081 10133 10136 10160 10161 10175 10176 10187 10188 10189 10192 11085 11088 11098 11264 11311 11312 11359 11360 11506 11513 11558 11568 11622 11631 11632 11648 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11826 11904 11930 11931 12020 12032 12246 12272 12284 12288 12352 12353 12439 12441 12544 12549 12590 12593 12687 12688 12728 12736 12772 12784 12831 12832 13055 13056 19894 19904 40908 40960 42125 42128 42183 42192 42540 42560 42592 42594 42612 42620 42648 42656 42744 42752 42893 43003 43052 43056 43066 43072 43128 43136 43205 43214 43226 43232 43260 43264 43348 43359 43389 43392 43470 43471 43482 43486 43488 43520 43575 43584 43598 43600 43610 43612 43644 43648 43715 43739 43744 43968 44014 44016 44026 44032 55204 55216 55239 55243 55292 55296 64046 64048 64110 64112 64218 64256 64263 64275 64280 64285 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64832 64848 64912 64914 64968 64976 65022 65024 65050 65056 65063 65072 65107 65108 65127 65128 65132 65136 65141 65142 65277 65279 65280 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65529 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65792 65795 65799 65844 65847 65931 65936 65948 66000 66046 66176 66205 66208 66257 66304 66335 66336 66340 66352 66379 66432 66462 66463 66500 66504 66518 66560 66718 66720 66730 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67671 67680 67840 67868 67871 67898 67903 67904 68096 68100 68101 68103 68108 68116 68117 68120 68121 68148 68152 68155 68159 68168 68176 68185 68192 68224 68352 68406 68409 68438 68440 68467 68472 68480 68608 68681 69216 69247 69760 69826 73728 74607 74752 74851 74864 74868 77824 78895 118784 119030 119040 119079 119081 119262 119296 119366 119552 119639 119648 119666 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 120832 126976 127020 127024 127124 127232 127243 127248 127279 127281 127282 127293 127294 127295 127296 127298 127299 127302 127303 127306 127311 127319 127320 127327 127328 127353 127354 127355 127357 127359 127360 127370 127374 127376 127377 127488 127489 127504 127538 127552 127561 131070 173783 173824 177973 194560 195102 196606 196608 262142 262144 327678 327680 393214 393216 458750 458752 524286 524288 589822 589824 655358 655360 720894 720896 786430 786432 851966 851968 917502 917504 917505 917506 917536 917632 917760 918000 983038 1114112 END PK ! ���[v v 5.34.0/unicore/lib/In/6_0.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1022 0 888 890 895 900 907 908 909 910 930 931 1320 1329 1367 1369 1376 1377 1416 1417 1419 1425 1480 1488 1515 1520 1525 1536 1540 1542 1564 1566 1806 1807 1867 1869 1970 1984 2043 2048 2094 2096 2111 2112 2140 2142 2143 2304 2424 2425 2432 2433 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2556 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2678 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2800 2801 2802 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2902 2904 2908 2910 2911 2916 2918 2936 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3067 3073 3076 3077 3085 3086 3089 3090 3113 3114 3124 3125 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3162 3168 3172 3174 3184 3192 3200 3202 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3330 3332 3333 3341 3342 3345 3346 3387 3389 3397 3398 3401 3402 3407 3415 3416 3424 3428 3430 3446 3449 3456 3458 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3570 3573 3585 3643 3647 3676 3713 3715 3716 3717 3719 3721 3722 3723 3725 3726 3732 3736 3737 3744 3745 3748 3749 3750 3751 3752 3754 3756 3757 3770 3771 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3806 3840 3912 3913 3949 3953 3992 3993 4029 4030 4045 4046 4059 4096 4294 4304 4349 4352 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4989 4992 5018 5024 5109 5120 5789 5792 5873 5888 5901 5902 5909 5920 5943 5952 5972 5984 5997 5998 6001 6002 6004 6016 6110 6112 6122 6128 6138 6144 6159 6160 6170 6176 6264 6272 6315 6320 6390 6400 6429 6432 6444 6448 6460 6464 6465 6468 6510 6512 6517 6528 6572 6576 6602 6608 6619 6622 6684 6686 6751 6752 6781 6783 6794 6800 6810 6816 6830 6912 6988 6992 7037 7040 7083 7086 7098 7104 7156 7164 7224 7227 7242 7245 7296 7376 7411 7424 7655 7676 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8293 8298 8306 8308 8335 8336 8349 8352 8378 8400 8433 8448 8586 8592 9204 9216 9255 9280 9291 9312 9984 9985 10187 10188 10189 10190 11085 11088 11098 11264 11311 11312 11359 11360 11506 11513 11558 11568 11622 11631 11633 11647 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11826 11904 11930 11931 12020 12032 12246 12272 12284 12288 12352 12353 12439 12441 12544 12549 12590 12593 12687 12688 12731 12736 12772 12784 12831 12832 13055 13056 19894 19904 40908 40960 42125 42128 42183 42192 42540 42560 42612 42620 42648 42656 42744 42752 42895 42896 42898 42912 42922 43002 43052 43056 43066 43072 43128 43136 43205 43214 43226 43232 43260 43264 43348 43359 43389 43392 43470 43471 43482 43486 43488 43520 43575 43584 43598 43600 43610 43612 43644 43648 43715 43739 43744 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43968 44014 44016 44026 44032 55204 55216 55239 55243 55292 55296 64046 64048 64110 64112 64218 64256 64263 64275 64280 64285 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64450 64467 64832 64848 64912 64914 64968 64976 65022 65024 65050 65056 65063 65072 65107 65108 65127 65128 65132 65136 65141 65142 65277 65279 65280 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65529 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65792 65795 65799 65844 65847 65931 65936 65948 66000 66046 66176 66205 66208 66257 66304 66335 66336 66340 66352 66379 66432 66462 66463 66500 66504 66518 66560 66718 66720 66730 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67671 67680 67840 67868 67871 67898 67903 67904 68096 68100 68101 68103 68108 68116 68117 68120 68121 68148 68152 68155 68159 68168 68176 68185 68192 68224 68352 68406 68409 68438 68440 68467 68472 68480 68608 68681 69216 69247 69632 69710 69714 69744 69760 69826 73728 74607 74752 74851 74864 74868 77824 78895 92160 92729 110592 110594 118784 119030 119040 119079 119081 119262 119296 119366 119552 119639 119648 119666 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 120832 126976 127020 127024 127124 127136 127151 127153 127167 127169 127184 127185 127200 127232 127243 127248 127279 127280 127338 127344 127387 127462 127491 127504 127547 127552 127561 127568 127570 127744 127777 127792 127798 127799 127869 127872 127892 127904 127941 127942 127947 127968 127985 128000 128063 128064 128065 128066 128248 128249 128253 128256 128318 128336 128360 128507 128512 128513 128529 128530 128533 128534 128535 128536 128537 128538 128539 128540 128543 128544 128550 128552 128556 128557 128558 128560 128564 128565 128577 128581 128592 128640 128710 128768 128884 131070 173783 173824 177973 177984 178206 194560 195102 196606 196608 262142 262144 327678 327680 393214 393216 458750 458752 524286 524288 589822 589824 655358 655360 720894 720896 786430 786432 851966 851968 917502 917504 917505 917506 917536 917632 917760 918000 983038 1114112 END PK ! KU|> > 5.34.0/unicore/lib/STerm/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V152 33 34 46 47 63 64 1417 1418 1566 1568 1748 1749 1792 1795 2041 2042 2103 2104 2105 2106 2109 2111 2404 2406 4170 4172 4962 4963 4967 4969 5742 5743 5941 5943 6147 6148 6153 6154 6468 6470 6824 6828 7002 7004 7006 7008 7227 7229 7294 7296 8252 8254 8263 8266 11822 11823 11836 11837 12290 12291 42239 42240 42510 42512 42739 42740 42743 42744 43126 43128 43214 43216 43311 43312 43464 43466 43613 43616 43760 43762 44011 44012 65106 65107 65110 65112 65281 65282 65294 65295 65311 65312 65377 65378 68182 68184 69461 69466 69703 69705 69822 69826 69953 69956 70085 70087 70093 70094 70110 70112 70200 70202 70203 70205 70313 70314 70731 70733 71106 71108 71113 71128 71233 71235 71484 71487 72004 72005 72006 72007 72258 72260 72347 72349 72769 72771 73463 73465 92782 92784 92917 92918 92983 92985 92996 92997 93848 93849 113823 113824 121480 121481 END PK ! �`�c� � 5.34.0/unicore/lib/SB/SC.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V38 44 46 58 59 1373 1374 1548 1550 2040 2041 6146 6147 6152 6153 8211 8213 12289 12290 65040 65042 65043 65044 65073 65075 65104 65106 65109 65110 65112 65113 65123 65124 65292 65294 65306 65307 65380 65381 END PK ! Ơ�� � 5.34.0/unicore/lib/SB/NU.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V124 48 58 1632 1642 1643 1645 1776 1786 1984 1994 2406 2416 2534 2544 2662 2672 2790 2800 2918 2928 3046 3056 3174 3184 3302 3312 3430 3440 3558 3568 3664 3674 3792 3802 3872 3882 4160 4170 4240 4250 6112 6122 6160 6170 6470 6480 6608 6618 6784 6794 6800 6810 6992 7002 7088 7098 7232 7242 7248 7258 42528 42538 43216 43226 43264 43274 43472 43482 43504 43514 43600 43610 44016 44026 65296 65306 66720 66730 68912 68922 69734 69744 69872 69882 69942 69952 70096 70106 70384 70394 70736 70746 70864 70874 71248 71258 71360 71370 71472 71482 71904 71914 72016 72026 72784 72794 73040 73050 73120 73130 92768 92778 93008 93018 120782 120832 123200 123210 123632 123642 125264 125274 130032 130042 END PK ! �4�� � 5.34.0/unicore/lib/SB/LE.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1038 443 444 448 452 660 661 697 704 710 722 748 749 750 751 884 885 1369 1370 1488 1515 1519 1524 1568 1611 1646 1648 1649 1748 1749 1750 1765 1767 1774 1776 1786 1789 1791 1792 1808 1809 1810 1840 1869 1958 1969 1970 1994 2027 2036 2038 2042 2043 2048 2070 2074 2075 2084 2085 2088 2089 2112 2137 2144 2155 2208 2229 2230 2248 2308 2362 2365 2366 2384 2385 2392 2402 2417 2433 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2493 2494 2510 2511 2524 2526 2527 2530 2544 2546 2556 2557 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2649 2653 2654 2655 2674 2677 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2749 2750 2768 2769 2784 2786 2809 2810 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2877 2878 2908 2910 2911 2914 2929 2930 2947 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3024 3025 3077 3085 3086 3089 3090 3113 3114 3130 3133 3134 3160 3163 3168 3170 3200 3201 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3261 3262 3294 3295 3296 3298 3313 3315 3332 3341 3342 3345 3346 3387 3389 3390 3406 3407 3412 3415 3423 3426 3450 3456 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3585 3633 3634 3636 3648 3655 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3761 3762 3764 3773 3774 3776 3781 3782 3783 3804 3808 3840 3841 3904 3912 3913 3949 3976 3981 4096 4139 4159 4160 4176 4182 4186 4190 4193 4194 4197 4199 4206 4209 4213 4226 4238 4239 4304 4347 4348 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4992 5008 5121 5741 5743 5760 5761 5787 5792 5867 5870 5881 5888 5901 5902 5906 5920 5938 5952 5970 5984 5997 5998 6001 6016 6068 6103 6104 6108 6109 6176 6265 6272 6277 6279 6313 6314 6315 6320 6390 6400 6431 6480 6510 6512 6517 6528 6572 6576 6602 6656 6679 6688 6741 6823 6824 6917 6964 6981 6988 7043 7073 7086 7088 7098 7142 7168 7204 7245 7248 7258 7294 7312 7355 7357 7360 7401 7405 7406 7412 7413 7415 7418 7419 8501 8505 8576 8579 8581 8585 11568 11624 11631 11632 11648 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11823 11824 12293 12296 12321 12330 12337 12342 12344 12349 12353 12439 12445 12448 12449 12539 12540 12544 12549 12592 12593 12687 12704 12736 12784 12800 13312 19904 19968 40957 40960 42125 42192 42238 42240 42509 42512 42528 42538 42540 42606 42607 42623 42624 42656 42736 42775 42784 42888 42889 42895 42896 42999 43000 43003 43010 43011 43014 43015 43019 43020 43043 43072 43124 43138 43188 43250 43256 43259 43260 43261 43263 43274 43302 43312 43335 43360 43389 43396 43443 43471 43472 43488 43493 43494 43504 43514 43519 43520 43561 43584 43587 43588 43596 43616 43639 43642 43643 43646 43696 43697 43698 43701 43703 43705 43710 43712 43713 43714 43715 43739 43742 43744 43755 43762 43765 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43881 43882 43968 44003 44032 55204 55216 55239 55243 55292 63744 64110 64112 64218 64285 64286 64287 64297 64298 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64830 64848 64912 64914 64968 65008 65020 65136 65141 65142 65277 65382 65438 65440 65471 65474 65480 65482 65488 65490 65496 65498 65501 65536 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65856 65909 66176 66205 66208 66257 66304 66336 66349 66379 66384 66422 66432 66462 66464 66500 66504 66512 66513 66518 66640 66718 66816 66856 66864 66916 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67680 67703 67712 67743 67808 67827 67828 67830 67840 67862 67872 67898 67968 68024 68030 68032 68096 68097 68112 68116 68117 68120 68121 68150 68192 68221 68224 68253 68288 68296 68297 68325 68352 68406 68416 68438 68448 68467 68480 68498 68608 68681 68864 68900 69248 69290 69296 69298 69376 69405 69415 69416 69424 69446 69552 69573 69600 69623 69635 69688 69763 69808 69840 69865 69891 69927 69956 69957 69959 69960 69968 70003 70006 70007 70019 70067 70081 70085 70106 70107 70108 70109 70144 70162 70163 70188 70272 70279 70280 70281 70282 70286 70287 70302 70303 70313 70320 70367 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70461 70462 70480 70481 70493 70498 70656 70709 70727 70731 70751 70754 70784 70832 70852 70854 70855 70856 71040 71087 71128 71132 71168 71216 71236 71237 71296 71339 71352 71353 71424 71451 71680 71724 71935 71943 71945 71946 71948 71956 71957 71959 71960 71984 71999 72000 72001 72002 72096 72104 72106 72145 72161 72162 72163 72164 72192 72193 72203 72243 72250 72251 72272 72273 72284 72330 72349 72350 72384 72441 72704 72713 72714 72751 72768 72769 72818 72848 72960 72967 72968 72970 72971 73009 73030 73031 73056 73062 73063 73065 73066 73098 73112 73113 73440 73459 73648 73649 73728 74650 74752 74863 74880 75076 77824 78895 82944 83527 92160 92729 92736 92767 92880 92910 92928 92976 92992 92996 93027 93048 93053 93072 93952 94027 94032 94033 94099 94112 94176 94178 94179 94180 94208 100344 100352 101590 101632 101641 110592 110879 110928 110931 110948 110952 110960 111356 113664 113771 113776 113789 113792 113801 113808 113818 123136 123181 123191 123198 123214 123215 123584 123628 124928 125125 125259 125260 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 131072 173790 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196608 201547 END PK ! -?�� � 5.34.0/unicore/lib/SB/FO.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V40 173 174 1536 1542 1564 1565 1757 1758 1807 1808 2274 2275 6158 6159 8203 8204 8206 8208 8234 8239 8288 8293 8294 8304 65279 65280 65529 65532 69821 69822 69837 69838 78896 78905 113824 113828 119155 119163 917505 917506 END PK ! $m v8 8 5.34.0/unicore/lib/SB/Sp.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V18 9 10 11 13 32 33 160 161 5760 5761 8192 8203 8239 8240 8287 8288 12288 12289 END PK ! ^�e� � 5.34.0/unicore/lib/SB/CL.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V88 34 35 39 42 91 92 93 94 123 124 125 126 171 172 187 188 3898 3902 5787 5789 8216 8224 8249 8251 8261 8263 8317 8319 8333 8335 8968 8972 9001 9003 10075 10081 10088 10102 10181 10183 10214 10224 10627 10649 10712 10716 10748 10750 11776 11790 11804 11806 11808 11818 11842 11843 12296 12306 12308 12316 12317 12320 64830 64832 65047 65049 65077 65093 65095 65097 65113 65119 65288 65290 65339 65340 65341 65342 65371 65372 65373 65374 65375 65377 65378 65380 128630 128633 END PK ! �M�{� � 5.34.0/unicore/lib/SB/EX.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V586 768 880 1155 1162 1425 1470 1471 1472 1473 1475 1476 1478 1479 1480 1552 1563 1611 1632 1648 1649 1750 1757 1759 1765 1767 1769 1770 1774 1809 1810 1840 1867 1958 1969 2027 2036 2045 2046 2070 2074 2075 2084 2085 2088 2089 2094 2137 2140 2259 2274 2275 2308 2362 2365 2366 2384 2385 2392 2402 2404 2433 2436 2492 2493 2494 2501 2503 2505 2507 2510 2519 2520 2530 2532 2558 2559 2561 2564 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2672 2674 2677 2678 2689 2692 2748 2749 2750 2758 2759 2762 2763 2766 2786 2788 2810 2816 2817 2820 2876 2877 2878 2885 2887 2889 2891 2894 2901 2904 2914 2916 2946 2947 3006 3011 3014 3017 3018 3022 3031 3032 3072 3077 3134 3141 3142 3145 3146 3150 3157 3159 3170 3172 3201 3204 3260 3261 3262 3269 3270 3273 3274 3278 3285 3287 3298 3300 3328 3332 3387 3389 3390 3397 3398 3401 3402 3406 3415 3416 3426 3428 3457 3460 3530 3531 3535 3541 3542 3543 3544 3552 3570 3572 3633 3634 3636 3643 3655 3663 3761 3762 3764 3773 3784 3790 3864 3866 3893 3894 3895 3896 3897 3898 3902 3904 3953 3973 3974 3976 3981 3992 3993 4029 4038 4039 4139 4159 4182 4186 4190 4193 4194 4197 4199 4206 4209 4213 4226 4238 4239 4240 4250 4254 4957 4960 5906 5909 5938 5941 5970 5972 6002 6004 6068 6100 6109 6110 6155 6158 6277 6279 6313 6314 6432 6444 6448 6460 6679 6684 6741 6751 6752 6781 6783 6784 6832 6849 6912 6917 6964 6981 7019 7028 7040 7043 7073 7086 7142 7156 7204 7224 7376 7379 7380 7401 7405 7406 7412 7413 7415 7418 7616 7674 7675 7680 8204 8206 8400 8433 11503 11506 11647 11648 11744 11776 12330 12336 12441 12443 42607 42611 42612 42622 42654 42656 42736 42738 43010 43011 43014 43015 43019 43020 43043 43048 43052 43053 43136 43138 43188 43206 43232 43250 43263 43264 43302 43310 43335 43348 43392 43396 43443 43457 43493 43494 43561 43575 43587 43588 43596 43598 43643 43646 43696 43697 43698 43701 43703 43705 43710 43712 43713 43714 43755 43760 43765 43767 44003 44011 44012 44014 64286 64287 65024 65040 65056 65072 65438 65440 66045 66046 66272 66273 66422 66427 68097 68100 68101 68103 68108 68112 68152 68155 68159 68160 68325 68327 68900 68904 69291 69293 69446 69457 69632 69635 69688 69703 69759 69763 69808 69819 69888 69891 69927 69941 69957 69959 70003 70004 70016 70019 70067 70081 70089 70093 70094 70096 70188 70200 70206 70207 70367 70379 70400 70404 70459 70461 70462 70469 70471 70473 70475 70478 70487 70488 70498 70500 70502 70509 70512 70517 70709 70727 70750 70751 70832 70852 71087 71094 71096 71105 71132 71134 71216 71233 71339 71352 71453 71468 71724 71739 71984 71990 71991 71993 71995 71999 72000 72001 72002 72004 72145 72152 72154 72161 72164 72165 72193 72203 72243 72250 72251 72255 72263 72264 72273 72284 72330 72346 72751 72759 72760 72768 72850 72872 72873 72887 73009 73015 73018 73019 73020 73022 73023 73030 73031 73032 73098 73103 73104 73106 73107 73112 73459 73463 92912 92917 92976 92983 94031 94032 94033 94088 94095 94099 94180 94181 94192 94194 113821 113823 119141 119146 119149 119155 119163 119171 119173 119180 119210 119214 119362 119365 121344 121399 121403 121453 121461 121462 121476 121477 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123184 123191 123628 123632 125136 125143 125252 125259 917536 917632 917760 918000 END PK ! )�� � 5.34.0/unicore/lib/SB/UP.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1288 65 91 192 215 216 223 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 378 379 380 381 382 385 387 388 389 390 392 393 396 398 402 403 405 406 409 412 414 415 417 418 419 420 421 422 424 425 426 428 429 430 432 433 436 437 438 439 441 444 445 452 454 455 457 458 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 497 499 500 501 502 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 570 572 573 575 577 578 579 583 584 585 586 587 588 589 590 591 880 881 882 883 886 887 895 896 902 903 904 907 908 909 910 912 913 930 931 940 975 976 978 981 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1012 1013 1015 1016 1017 1019 1021 1072 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 1329 1367 4256 4294 4295 4296 4301 4302 5024 5110 7680 7681 7682 7683 7684 7685 7686 7687 7688 7689 7690 7691 7692 7693 7694 7695 7696 7697 7698 7699 7700 7701 7702 7703 7704 7705 7706 7707 7708 7709 7710 7711 7712 7713 7714 7715 7716 7717 7718 7719 7720 7721 7722 7723 7724 7725 7726 7727 7728 7729 7730 7731 7732 7733 7734 7735 7736 7737 7738 7739 7740 7741 7742 7743 7744 7745 7746 7747 7748 7749 7750 7751 7752 7753 7754 7755 7756 7757 7758 7759 7760 7761 7762 7763 7764 7765 7766 7767 7768 7769 7770 7771 7772 7773 7774 7775 7776 7777 7778 7779 7780 7781 7782 7783 7784 7785 7786 7787 7788 7789 7790 7791 7792 7793 7794 7795 7796 7797 7798 7799 7800 7801 7802 7803 7804 7805 7806 7807 7808 7809 7810 7811 7812 7813 7814 7815 7816 7817 7818 7819 7820 7821 7822 7823 7824 7825 7826 7827 7828 7829 7838 7839 7840 7841 7842 7843 7844 7845 7846 7847 7848 7849 7850 7851 7852 7853 7854 7855 7856 7857 7858 7859 7860 7861 7862 7863 7864 7865 7866 7867 7868 7869 7870 7871 7872 7873 7874 7875 7876 7877 7878 7879 7880 7881 7882 7883 7884 7885 7886 7887 7888 7889 7890 7891 7892 7893 7894 7895 7896 7897 7898 7899 7900 7901 7902 7903 7904 7905 7906 7907 7908 7909 7910 7911 7912 7913 7914 7915 7916 7917 7918 7919 7920 7921 7922 7923 7924 7925 7926 7927 7928 7929 7930 7931 7932 7933 7934 7935 7944 7952 7960 7966 7976 7984 7992 8000 8008 8014 8025 8026 8027 8028 8029 8030 8031 8032 8040 8048 8072 8080 8088 8096 8104 8112 8120 8125 8136 8141 8152 8156 8168 8173 8184 8189 8450 8451 8455 8456 8459 8462 8464 8467 8469 8470 8473 8478 8484 8485 8486 8487 8488 8489 8490 8494 8496 8500 8510 8512 8517 8518 8544 8560 8579 8580 9398 9424 11264 11311 11360 11361 11362 11365 11367 11368 11369 11370 11371 11372 11373 11377 11378 11379 11381 11382 11390 11393 11394 11395 11396 11397 11398 11399 11400 11401 11402 11403 11404 11405 11406 11407 11408 11409 11410 11411 11412 11413 11414 11415 11416 11417 11418 11419 11420 11421 11422 11423 11424 11425 11426 11427 11428 11429 11430 11431 11432 11433 11434 11435 11436 11437 11438 11439 11440 11441 11442 11443 11444 11445 11446 11447 11448 11449 11450 11451 11452 11453 11454 11455 11456 11457 11458 11459 11460 11461 11462 11463 11464 11465 11466 11467 11468 11469 11470 11471 11472 11473 11474 11475 11476 11477 11478 11479 11480 11481 11482 11483 11484 11485 11486 11487 11488 11489 11490 11491 11499 11500 11501 11502 11506 11507 42560 42561 42562 42563 42564 42565 42566 42567 42568 42569 42570 42571 42572 42573 42574 42575 42576 42577 42578 42579 42580 42581 42582 42583 42584 42585 42586 42587 42588 42589 42590 42591 42592 42593 42594 42595 42596 42597 42598 42599 42600 42601 42602 42603 42604 42605 42624 42625 42626 42627 42628 42629 42630 42631 42632 42633 42634 42635 42636 42637 42638 42639 42640 42641 42642 42643 42644 42645 42646 42647 42648 42649 42650 42651 42786 42787 42788 42789 42790 42791 42792 42793 42794 42795 42796 42797 42798 42799 42802 42803 42804 42805 42806 42807 42808 42809 42810 42811 42812 42813 42814 42815 42816 42817 42818 42819 42820 42821 42822 42823 42824 42825 42826 42827 42828 42829 42830 42831 42832 42833 42834 42835 42836 42837 42838 42839 42840 42841 42842 42843 42844 42845 42846 42847 42848 42849 42850 42851 42852 42853 42854 42855 42856 42857 42858 42859 42860 42861 42862 42863 42873 42874 42875 42876 42877 42879 42880 42881 42882 42883 42884 42885 42886 42887 42891 42892 42893 42894 42896 42897 42898 42899 42902 42903 42904 42905 42906 42907 42908 42909 42910 42911 42912 42913 42914 42915 42916 42917 42918 42919 42920 42921 42922 42927 42928 42933 42934 42935 42936 42937 42938 42939 42940 42941 42942 42943 42946 42947 42948 42952 42953 42954 42997 42998 65313 65339 66560 66600 66736 66772 68736 68787 71840 71872 93760 93792 119808 119834 119860 119886 119912 119938 119964 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119990 120016 120042 120068 120070 120071 120075 120077 120085 120086 120093 120120 120122 120123 120127 120128 120133 120134 120135 120138 120145 120172 120198 120224 120250 120276 120302 120328 120354 120380 120406 120432 120458 120488 120513 120546 120571 120604 120629 120662 120687 120720 120745 120778 120779 125184 125218 127280 127306 127312 127338 127344 127370 END PK ! KcL7� � 5.34.0/unicore/lib/SB/LO.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1298 97 123 170 171 181 182 186 187 223 247 248 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 378 379 380 381 382 385 387 388 389 390 392 393 396 398 402 403 405 406 409 412 414 415 417 418 419 420 421 422 424 425 426 428 429 430 432 433 436 437 438 439 441 443 445 448 454 455 457 458 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 497 499 500 501 502 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 570 572 573 575 577 578 579 583 584 585 586 587 588 589 590 591 660 661 697 704 706 736 741 881 882 883 884 887 888 890 894 912 913 940 975 976 978 981 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1012 1013 1014 1016 1017 1019 1021 1072 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 1328 1376 1417 5112 5118 7296 7305 7424 7616 7681 7682 7683 7684 7685 7686 7687 7688 7689 7690 7691 7692 7693 7694 7695 7696 7697 7698 7699 7700 7701 7702 7703 7704 7705 7706 7707 7708 7709 7710 7711 7712 7713 7714 7715 7716 7717 7718 7719 7720 7721 7722 7723 7724 7725 7726 7727 7728 7729 7730 7731 7732 7733 7734 7735 7736 7737 7738 7739 7740 7741 7742 7743 7744 7745 7746 7747 7748 7749 7750 7751 7752 7753 7754 7755 7756 7757 7758 7759 7760 7761 7762 7763 7764 7765 7766 7767 7768 7769 7770 7771 7772 7773 7774 7775 7776 7777 7778 7779 7780 7781 7782 7783 7784 7785 7786 7787 7788 7789 7790 7791 7792 7793 7794 7795 7796 7797 7798 7799 7800 7801 7802 7803 7804 7805 7806 7807 7808 7809 7810 7811 7812 7813 7814 7815 7816 7817 7818 7819 7820 7821 7822 7823 7824 7825 7826 7827 7828 7829 7838 7839 7840 7841 7842 7843 7844 7845 7846 7847 7848 7849 7850 7851 7852 7853 7854 7855 7856 7857 7858 7859 7860 7861 7862 7863 7864 7865 7866 7867 7868 7869 7870 7871 7872 7873 7874 7875 7876 7877 7878 7879 7880 7881 7882 7883 7884 7885 7886 7887 7888 7889 7890 7891 7892 7893 7894 7895 7896 7897 7898 7899 7900 7901 7902 7903 7904 7905 7906 7907 7908 7909 7910 7911 7912 7913 7914 7915 7916 7917 7918 7919 7920 7921 7922 7923 7924 7925 7926 7927 7928 7929 7930 7931 7932 7933 7934 7935 7944 7952 7958 7968 7976 7984 7992 8000 8006 8016 8024 8032 8040 8048 8062 8064 8072 8080 8088 8096 8104 8112 8117 8118 8120 8126 8127 8130 8133 8134 8136 8144 8148 8150 8152 8160 8168 8178 8181 8182 8184 8305 8306 8319 8320 8336 8349 8458 8459 8462 8464 8467 8468 8495 8496 8500 8501 8505 8506 8508 8510 8518 8522 8526 8527 8560 8576 8580 8581 9424 9450 11312 11359 11361 11362 11365 11367 11368 11369 11370 11371 11372 11373 11377 11378 11379 11381 11382 11390 11393 11394 11395 11396 11397 11398 11399 11400 11401 11402 11403 11404 11405 11406 11407 11408 11409 11410 11411 11412 11413 11414 11415 11416 11417 11418 11419 11420 11421 11422 11423 11424 11425 11426 11427 11428 11429 11430 11431 11432 11433 11434 11435 11436 11437 11438 11439 11440 11441 11442 11443 11444 11445 11446 11447 11448 11449 11450 11451 11452 11453 11454 11455 11456 11457 11458 11459 11460 11461 11462 11463 11464 11465 11466 11467 11468 11469 11470 11471 11472 11473 11474 11475 11476 11477 11478 11479 11480 11481 11482 11483 11484 11485 11486 11487 11488 11489 11490 11491 11493 11500 11501 11502 11503 11507 11508 11520 11558 11559 11560 11565 11566 42561 42562 42563 42564 42565 42566 42567 42568 42569 42570 42571 42572 42573 42574 42575 42576 42577 42578 42579 42580 42581 42582 42583 42584 42585 42586 42587 42588 42589 42590 42591 42592 42593 42594 42595 42596 42597 42598 42599 42600 42601 42602 42603 42604 42605 42606 42625 42626 42627 42628 42629 42630 42631 42632 42633 42634 42635 42636 42637 42638 42639 42640 42641 42642 42643 42644 42645 42646 42647 42648 42649 42650 42651 42654 42787 42788 42789 42790 42791 42792 42793 42794 42795 42796 42797 42798 42799 42802 42803 42804 42805 42806 42807 42808 42809 42810 42811 42812 42813 42814 42815 42816 42817 42818 42819 42820 42821 42822 42823 42824 42825 42826 42827 42828 42829 42830 42831 42832 42833 42834 42835 42836 42837 42838 42839 42840 42841 42842 42843 42844 42845 42846 42847 42848 42849 42850 42851 42852 42853 42854 42855 42856 42857 42858 42859 42860 42861 42862 42863 42873 42874 42875 42876 42877 42879 42880 42881 42882 42883 42884 42885 42886 42887 42888 42892 42893 42894 42895 42897 42898 42899 42902 42903 42904 42905 42906 42907 42908 42909 42910 42911 42912 42913 42914 42915 42916 42917 42918 42919 42920 42921 42922 42927 42928 42933 42934 42935 42936 42937 42938 42939 42940 42941 42942 42943 42944 42947 42948 42952 42953 42954 42955 42998 42999 43000 43003 43824 43867 43868 43881 43888 43968 64256 64263 64275 64280 65345 65371 66600 66640 66776 66812 68800 68851 71872 71904 93792 93824 119834 119860 119886 119893 119894 119912 119938 119964 119990 119994 119995 119996 119997 120004 120005 120016 120042 120068 120094 120120 120146 120172 120198 120224 120250 120276 120302 120328 120354 120380 120406 120432 120458 120486 120514 120539 120540 120546 120572 120597 120598 120604 120630 120655 120656 120662 120688 120713 120714 120720 120746 120771 120772 120778 120779 120780 125218 125252 END PK ! �� 5.34.0/unicore/lib/SB/ST.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V146 33 34 63 64 1417 1418 1566 1568 1748 1749 1792 1795 2041 2042 2103 2104 2105 2106 2109 2111 2404 2406 4170 4172 4962 4963 4967 4969 5742 5743 5941 5943 6147 6148 6153 6154 6468 6470 6824 6828 7002 7004 7006 7008 7227 7229 7294 7296 8252 8254 8263 8266 11822 11823 11836 11837 12290 12291 42239 42240 42510 42512 42739 42740 42743 42744 43126 43128 43214 43216 43311 43312 43464 43466 43613 43616 43760 43762 44011 44012 65110 65112 65281 65282 65311 65312 65377 65378 68182 68184 69461 69466 69703 69705 69822 69826 69953 69956 70085 70087 70093 70094 70110 70112 70200 70202 70203 70205 70313 70314 70731 70733 71106 71108 71113 71128 71233 71235 71484 71487 72004 72005 72006 72007 72258 72260 72347 72349 72769 72771 73463 73465 92782 92784 92917 92918 92983 92985 92996 92997 93848 93849 113823 113824 121480 121481 END PK ! G�s�% �% 5.34.0/unicore/lib/SB/XX.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1611 0 9 14 32 35 39 42 44 47 48 59 63 64 65 92 93 94 97 124 125 126 133 134 160 161 170 172 173 174 181 182 186 188 192 215 216 247 248 706 710 722 736 741 748 749 750 751 768 885 886 888 890 894 895 896 902 903 904 907 908 909 910 930 931 1014 1015 1154 1155 1328 1329 1367 1369 1370 1373 1374 1376 1418 1425 1470 1471 1472 1473 1475 1476 1478 1479 1480 1488 1515 1519 1524 1536 1542 1548 1550 1552 1563 1564 1565 1566 1642 1643 1645 1646 1758 1759 1769 1770 1789 1791 1795 1807 1867 1869 1970 1984 2038 2040 2043 2045 2046 2048 2094 2103 2104 2105 2106 2109 2111 2112 2140 2144 2155 2208 2229 2230 2248 2259 2416 2417 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2546 2556 2557 2558 2559 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2678 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2800 2809 2816 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2901 2904 2908 2910 2911 2916 2918 2928 2929 2930 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3056 3072 3085 3086 3089 3090 3113 3114 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3163 3168 3172 3174 3184 3200 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3328 3341 3342 3345 3346 3397 3398 3401 3402 3407 3412 3416 3423 3428 3430 3440 3450 3456 3457 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3558 3568 3570 3572 3585 3643 3648 3663 3664 3674 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3808 3840 3841 3864 3866 3872 3882 3893 3894 3895 3896 3897 3912 3913 3949 3953 3973 3974 3992 3993 4029 4038 4039 4096 4172 4176 4254 4256 4294 4295 4296 4301 4302 4304 4347 4348 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4960 4962 4963 4967 4969 4992 5008 5024 5110 5112 5118 5121 5741 5742 5789 5792 5867 5870 5881 5888 5901 5902 5909 5920 5943 5952 5972 5984 5997 5998 6001 6002 6004 6016 6100 6103 6104 6108 6110 6112 6122 6146 6148 6152 6154 6155 6159 6160 6170 6176 6265 6272 6315 6320 6390 6400 6431 6432 6444 6448 6460 6468 6510 6512 6517 6528 6572 6576 6602 6608 6618 6656 6684 6688 6751 6752 6781 6783 6794 6800 6810 6823 6828 6832 6849 6912 6988 6992 7004 7006 7008 7019 7028 7040 7156 7168 7224 7227 7229 7232 7242 7245 7305 7312 7355 7357 7360 7376 7379 7380 7419 7424 7674 7675 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8125 8126 8127 8130 8133 8134 8141 8144 8148 8150 8156 8160 8173 8178 8181 8182 8189 8192 8208 8211 8213 8216 8224 8228 8229 8232 8240 8249 8251 8252 8254 8261 8266 8287 8293 8294 8304 8305 8306 8317 8320 8333 8335 8336 8349 8400 8433 8450 8451 8455 8456 8458 8468 8469 8470 8473 8478 8484 8485 8486 8487 8488 8489 8490 8494 8495 8506 8508 8512 8517 8522 8526 8527 8544 8585 8968 8972 9001 9003 9398 9450 10075 10081 10088 10102 10181 10183 10214 10224 10627 10649 10712 10716 10748 10750 11264 11311 11312 11359 11360 11493 11499 11508 11520 11558 11559 11560 11565 11566 11568 11624 11631 11632 11647 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11790 11804 11806 11808 11818 11822 11824 11836 11837 11842 11843 12288 12291 12293 12306 12308 12316 12317 12320 12321 12336 12337 12342 12344 12349 12353 12439 12441 12443 12445 12448 12449 12539 12540 12544 12549 12592 12593 12687 12704 12736 12784 12800 13312 19904 19968 40957 40960 42125 42192 42238 42239 42509 42510 42540 42560 42611 42612 42622 42623 42738 42739 42740 42743 42744 42775 42784 42786 42889 42891 42944 42946 42955 42997 43048 43052 43053 43072 43124 43126 43128 43136 43206 43214 43226 43232 43256 43259 43260 43261 43310 43311 43348 43360 43389 43392 43457 43464 43466 43471 43482 43488 43519 43520 43575 43584 43598 43600 43610 43613 43639 43642 43715 43739 43742 43744 43767 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43867 43868 43882 43888 44014 44016 44026 44032 55204 55216 55239 55243 55292 63744 64110 64112 64218 64256 64263 64275 64280 64285 64297 64298 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64832 64848 64912 64914 64968 65008 65020 65024 65042 65043 65044 65047 65049 65056 65072 65073 65075 65077 65093 65095 65097 65104 65107 65109 65119 65123 65124 65136 65141 65142 65277 65279 65280 65281 65282 65288 65290 65292 65295 65296 65307 65311 65312 65313 65340 65341 65342 65345 65372 65373 65374 65375 65381 65382 65471 65474 65480 65482 65488 65490 65496 65498 65501 65529 65532 65536 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65856 65909 66045 66046 66176 66205 66208 66257 66272 66273 66304 66336 66349 66379 66384 66427 66432 66462 66464 66500 66504 66512 66513 66518 66560 66718 66720 66730 66736 66772 66776 66812 66816 66856 66864 66916 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67680 67703 67712 67743 67808 67827 67828 67830 67840 67862 67872 67898 67968 68024 68030 68032 68096 68100 68101 68103 68108 68116 68117 68120 68121 68150 68152 68155 68159 68160 68182 68184 68192 68221 68224 68253 68288 68296 68297 68327 68352 68406 68416 68438 68448 68467 68480 68498 68608 68681 68736 68787 68800 68851 68864 68904 68912 68922 69248 69290 69291 69293 69296 69298 69376 69405 69415 69416 69424 69457 69461 69466 69552 69573 69600 69623 69632 69705 69734 69744 69759 69819 69821 69826 69837 69838 69840 69865 69872 69882 69888 69941 69942 69952 69953 69960 69968 70004 70006 70007 70016 70087 70089 70107 70108 70109 70110 70112 70144 70162 70163 70202 70203 70205 70206 70207 70272 70279 70280 70281 70282 70286 70287 70302 70303 70314 70320 70379 70384 70394 70400 70404 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70459 70469 70471 70473 70475 70478 70480 70481 70487 70488 70493 70500 70502 70509 70512 70517 70656 70733 70736 70746 70750 70754 70784 70854 70855 70856 70864 70874 71040 71094 71096 71105 71106 71108 71113 71134 71168 71235 71236 71237 71248 71258 71296 71353 71360 71370 71424 71451 71453 71468 71472 71482 71484 71487 71680 71739 71840 71914 71935 71943 71945 71946 71948 71956 71957 71959 71960 71990 71991 71993 71995 72005 72006 72007 72016 72026 72096 72104 72106 72152 72154 72162 72163 72165 72192 72255 72258 72260 72263 72264 72272 72346 72347 72350 72384 72441 72704 72713 72714 72759 72760 72771 72784 72794 72818 72848 72850 72872 72873 72887 72960 72967 72968 72970 72971 73015 73018 73019 73020 73022 73023 73032 73040 73050 73056 73062 73063 73065 73066 73103 73104 73106 73107 73113 73120 73130 73440 73465 73648 73649 73728 74650 74752 74863 74880 75076 77824 78895 78896 78905 82944 83527 92160 92729 92736 92767 92768 92778 92782 92784 92880 92910 92912 92918 92928 92985 92992 92997 93008 93018 93027 93048 93053 93072 93760 93824 93848 93849 93952 94027 94031 94088 94095 94112 94176 94178 94179 94181 94192 94194 94208 100344 100352 101590 101632 101641 110592 110879 110928 110931 110948 110952 110960 111356 113664 113771 113776 113789 113792 113801 113808 113818 113821 113828 119141 119146 119149 119171 119173 119180 119210 119214 119362 119365 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120513 120514 120539 120540 120571 120572 120597 120598 120629 120630 120655 120656 120687 120688 120713 120714 120745 120746 120771 120772 120780 120782 120832 121344 121399 121403 121453 121461 121462 121476 121477 121480 121481 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123136 123181 123184 123198 123200 123210 123214 123215 123584 123642 124928 125125 125136 125143 125184 125260 125264 125274 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 127280 127306 127312 127338 127344 127370 128630 128633 130032 130042 131072 173790 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196608 201547 917505 917506 917536 917632 917760 918000 END PK ! #ກ 5.34.0/unicore/lib/SB/AT.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 46 47 8228 8229 65106 65107 65294 65295 END PK ! ��U U 5.34.0/unicore/lib/EComp/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V20 35 36 42 43 48 58 8205 8206 8419 8420 65039 65040 127462 127488 127995 128000 129456 129460 917536 917632 END PK ! �h�s s 5.34.0/unicore/lib/Bc/BN.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V64 0 9 14 28 127 133 134 160 173 174 6158 6159 8203 8206 8288 8294 8298 8304 64976 65008 65279 65280 65520 65529 65534 65536 113824 113828 119155 119163 131070 131072 196606 196608 262142 262144 327678 327680 393214 393216 458750 458752 524286 524288 589822 589824 655358 655360 720894 720896 786430 786432 851966 851968 917502 917760 918000 921600 983038 983040 1048574 1048576 1114110 1114112 END PK ! -���u u 5.34.0/unicore/lib/Bc/EN.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V26 48 58 178 180 185 186 1776 1786 8304 8305 8308 8314 8320 8330 9352 9372 65296 65306 66273 66300 120782 120832 127232 127243 130032 130042 END PK ! �e � � 5.34.0/unicore/lib/Bc/R.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V78 1424 1425 1470 1471 1472 1473 1475 1476 1478 1479 1480 1536 1984 2027 2036 2038 2042 2045 2046 2070 2074 2075 2084 2085 2088 2089 2094 2137 2140 2144 2160 2208 8207 8208 64285 64286 64287 64297 64298 64336 67584 67871 67872 68097 68100 68101 68103 68108 68112 68152 68155 68159 68160 68325 68327 68409 68416 68864 68928 69216 69247 69291 69293 69424 69488 69632 124928 125136 125143 125252 125259 126064 126144 126208 126288 126464 126720 126976 END PK ! �|�+ + 5.34.0/unicore/lib/Bc/WS.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 12 13 32 33 5760 5761 8192 8203 8232 8233 8287 8288 12288 12289 END PK ! HZmk k 5.34.0/unicore/lib/Bc/CS.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V26 44 45 46 48 58 59 160 161 1548 1549 8239 8240 8260 8261 65104 65105 65106 65107 65109 65110 65292 65293 65294 65296 65306 65307 END PK ! N��� � 5.34.0/unicore/lib/Bc/NSM.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V644 768 880 1155 1162 1425 1470 1471 1472 1473 1475 1476 1478 1479 1480 1552 1563 1611 1632 1648 1649 1750 1757 1759 1765 1767 1769 1770 1774 1809 1810 1840 1867 1958 1969 2027 2036 2045 2046 2070 2074 2075 2084 2085 2088 2089 2094 2137 2140 2259 2274 2275 2307 2362 2363 2364 2365 2369 2377 2381 2382 2385 2392 2402 2404 2433 2434 2492 2493 2497 2501 2509 2510 2530 2532 2558 2559 2561 2563 2620 2621 2625 2627 2631 2633 2635 2638 2641 2642 2672 2674 2677 2678 2689 2691 2748 2749 2753 2758 2759 2761 2765 2766 2786 2788 2810 2816 2817 2818 2876 2877 2879 2880 2881 2885 2893 2894 2901 2903 2914 2916 2946 2947 3008 3009 3021 3022 3072 3073 3076 3077 3134 3137 3142 3145 3146 3150 3157 3159 3170 3172 3201 3202 3260 3261 3276 3278 3298 3300 3328 3330 3387 3389 3393 3397 3405 3406 3426 3428 3457 3458 3530 3531 3538 3541 3542 3543 3633 3634 3636 3643 3655 3663 3761 3762 3764 3773 3784 3790 3864 3866 3893 3894 3895 3896 3897 3898 3953 3967 3968 3973 3974 3976 3981 3992 3993 4029 4038 4039 4141 4145 4146 4152 4153 4155 4157 4159 4184 4186 4190 4193 4209 4213 4226 4227 4229 4231 4237 4238 4253 4254 4957 4960 5906 5909 5938 5941 5970 5972 6002 6004 6068 6070 6071 6078 6086 6087 6089 6100 6109 6110 6155 6158 6277 6279 6313 6314 6432 6435 6439 6441 6450 6451 6457 6460 6679 6681 6683 6684 6742 6743 6744 6751 6752 6753 6754 6755 6757 6765 6771 6781 6783 6784 6832 6849 6912 6916 6964 6965 6966 6971 6972 6973 6978 6979 7019 7028 7040 7042 7074 7078 7080 7082 7083 7086 7142 7143 7144 7146 7149 7150 7151 7154 7212 7220 7222 7224 7376 7379 7380 7393 7394 7401 7405 7406 7412 7413 7416 7418 7616 7674 7675 7680 8400 8433 11503 11506 11647 11648 11744 11776 12330 12334 12441 12443 42607 42611 42612 42622 42654 42656 42736 42738 43010 43011 43014 43015 43019 43020 43045 43047 43052 43053 43204 43206 43232 43250 43263 43264 43302 43310 43335 43346 43392 43395 43443 43444 43446 43450 43452 43454 43493 43494 43561 43567 43569 43571 43573 43575 43587 43588 43596 43597 43644 43645 43696 43697 43698 43701 43703 43705 43710 43712 43713 43714 43756 43758 43766 43767 44005 44006 44008 44009 44013 44014 64286 64287 65024 65040 65056 65072 66045 66046 66272 66273 66422 66427 68097 68100 68101 68103 68108 68112 68152 68155 68159 68160 68325 68327 68900 68904 69291 69293 69446 69457 69633 69634 69688 69703 69759 69762 69811 69815 69817 69819 69888 69891 69927 69932 69933 69941 70003 70004 70016 70018 70070 70079 70089 70093 70095 70096 70191 70194 70196 70197 70198 70200 70206 70207 70367 70368 70371 70379 70400 70402 70459 70461 70464 70465 70502 70509 70512 70517 70712 70720 70722 70725 70726 70727 70750 70751 70835 70841 70842 70843 70847 70849 70850 70852 71090 71094 71100 71102 71103 71105 71132 71134 71219 71227 71229 71230 71231 71233 71339 71340 71341 71342 71344 71350 71351 71352 71453 71456 71458 71462 71463 71468 71727 71736 71737 71739 71995 71997 71998 71999 72003 72004 72148 72152 72154 72156 72160 72161 72193 72199 72201 72203 72243 72249 72251 72255 72263 72264 72273 72279 72281 72284 72330 72343 72344 72346 72752 72759 72760 72766 72850 72872 72874 72881 72882 72884 72885 72887 73009 73015 73018 73019 73020 73022 73023 73030 73031 73032 73104 73106 73109 73110 73111 73112 73459 73461 92912 92917 92976 92983 94031 94032 94095 94099 94180 94181 113821 113823 119143 119146 119163 119171 119173 119180 119210 119214 119362 119365 121344 121399 121403 121453 121461 121462 121476 121477 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123184 123191 123628 123632 125136 125143 125252 125259 917760 918000 END PK ! ��5 5 5.34.0/unicore/lib/Bc/AN.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 1536 1542 1632 1642 1643 1645 1757 1758 2274 2275 68912 68922 69216 69247 END PK ! �(E E 5.34.0/unicore/lib/Bc/ES.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V18 43 44 45 46 8314 8316 8330 8332 8722 8723 64297 64298 65122 65124 65291 65292 65293 65294 END PK ! �F� � 5.34.0/unicore/lib/Bc/L.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V925 65 91 97 123 170 171 181 182 186 187 192 215 216 247 248 697 699 706 720 722 736 741 750 751 880 884 886 894 895 900 902 903 904 1014 1015 1155 1162 1418 1419 1421 2307 2362 2363 2364 2365 2369 2377 2381 2382 2385 2392 2402 2404 2433 2434 2492 2493 2497 2501 2509 2510 2530 2532 2546 2548 2555 2556 2558 2559 2561 2563 2620 2621 2625 2627 2631 2633 2635 2638 2641 2642 2672 2674 2677 2678 2689 2691 2748 2749 2753 2758 2759 2761 2765 2766 2786 2788 2801 2802 2810 2816 2817 2818 2876 2877 2879 2880 2881 2885 2893 2894 2901 2903 2914 2916 2946 2947 3008 3009 3021 3022 3059 3067 3072 3073 3076 3077 3134 3137 3142 3145 3146 3150 3157 3159 3170 3172 3192 3199 3201 3202 3260 3261 3276 3278 3298 3300 3328 3330 3387 3389 3393 3397 3405 3406 3426 3428 3457 3458 3530 3531 3538 3541 3542 3543 3633 3634 3636 3643 3647 3648 3655 3663 3761 3762 3764 3773 3784 3790 3864 3866 3893 3894 3895 3896 3897 3902 3953 3967 3968 3973 3974 3976 3981 3992 3993 4029 4038 4039 4141 4145 4146 4152 4153 4155 4157 4159 4184 4186 4190 4193 4209 4213 4226 4227 4229 4231 4237 4238 4253 4254 4957 4960 5008 5018 5120 5121 5760 5761 5787 5789 5906 5909 5938 5941 5970 5972 6002 6004 6068 6070 6071 6078 6086 6087 6089 6100 6107 6108 6109 6110 6128 6138 6144 6159 6277 6279 6313 6314 6432 6435 6439 6441 6450 6451 6457 6460 6464 6465 6468 6470 6622 6656 6679 6681 6683 6684 6742 6743 6744 6751 6752 6753 6754 6755 6757 6765 6771 6781 6783 6784 6832 6849 6912 6916 6964 6965 6966 6971 6972 6973 6978 6979 7019 7028 7040 7042 7074 7078 7080 7082 7083 7086 7142 7143 7144 7146 7149 7150 7151 7154 7212 7220 7222 7224 7376 7379 7380 7393 7394 7401 7405 7406 7412 7413 7416 7418 7616 7674 7675 7680 8125 8126 8127 8130 8141 8144 8157 8160 8173 8176 8189 8191 8192 8206 8207 8305 8308 8319 8320 8335 8352 8433 8448 8450 8451 8455 8456 8458 8468 8469 8470 8473 8478 8484 8485 8486 8487 8488 8489 8490 8494 8495 8506 8508 8512 8517 8522 8526 8528 8544 8585 8588 8592 9014 9083 9109 9110 9255 9280 9291 9312 9372 9450 9900 9901 10240 10496 11124 11126 11158 11159 11264 11493 11499 11503 11506 11513 11520 11647 11648 11744 11859 11904 11930 11931 12020 12032 12246 12272 12284 12288 12293 12296 12321 12330 12334 12336 12337 12342 12344 12349 12352 12441 12445 12448 12449 12539 12540 12736 12772 12829 12831 12880 12896 12924 12927 12977 12992 13004 13008 13175 13179 13278 13280 13311 13312 19904 19968 42128 42183 42509 42512 42607 42624 42654 42656 42736 42738 42752 42786 42888 42889 43010 43011 43014 43015 43019 43020 43045 43047 43048 43053 43064 43066 43124 43128 43204 43206 43232 43250 43263 43264 43302 43310 43335 43346 43392 43395 43443 43444 43446 43450 43452 43454 43493 43494 43561 43567 43569 43571 43573 43575 43587 43588 43596 43597 43644 43645 43696 43697 43698 43701 43703 43705 43710 43712 43713 43714 43756 43758 43766 43767 43882 43884 44005 44006 44008 44009 44013 44014 64285 65050 65056 65107 65108 65127 65128 65132 65136 65280 65281 65313 65339 65345 65371 65382 65504 65511 65512 65519 65520 65536 65793 65794 65856 65933 65936 65949 65952 65953 66045 66046 66272 66300 66422 66427 67584 69632 69633 69634 69688 69703 69714 69734 69759 69762 69811 69815 69817 69819 69888 69891 69927 69932 69933 69941 70003 70004 70016 70018 70070 70079 70089 70093 70095 70096 70191 70194 70196 70197 70198 70200 70206 70207 70367 70368 70371 70379 70400 70402 70459 70461 70464 70465 70502 70509 70512 70517 70712 70720 70722 70725 70726 70727 70750 70751 70835 70841 70842 70843 70847 70849 70850 70852 71090 71094 71100 71102 71103 71105 71132 71134 71219 71227 71229 71230 71231 71233 71264 71277 71339 71340 71341 71342 71344 71350 71351 71352 71453 71456 71458 71462 71463 71468 71727 71736 71737 71739 71995 71997 71998 71999 72003 72004 72148 72152 72154 72156 72160 72161 72193 72199 72201 72203 72243 72249 72251 72255 72263 72264 72273 72279 72281 72284 72330 72343 72344 72346 72752 72759 72760 72766 72850 72872 72874 72881 72882 72884 72885 72887 73009 73015 73018 73019 73020 73022 73023 73030 73031 73032 73104 73106 73109 73110 73111 73112 73459 73461 73685 73714 92912 92917 92976 92983 94031 94032 94095 94099 94178 94179 94180 94181 113821 113823 113824 113828 119143 119146 119155 119171 119173 119180 119210 119214 119296 119366 119552 119639 120539 120540 120597 120598 120655 120656 120713 120714 120771 120772 120782 120832 121344 121399 121403 121453 121461 121462 121476 121477 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123184 123191 123628 123632 123647 123648 124928 127020 127024 127124 127136 127151 127153 127168 127169 127184 127185 127222 127232 127248 127279 127280 127338 127344 127405 127406 127584 127590 127744 128728 128736 128749 128752 128765 128768 128884 128896 128985 128992 129004 129024 129036 129040 129096 129104 129114 129120 129160 129168 129198 129200 129202 129280 129401 129402 129484 129485 129620 129632 129646 129648 129653 129656 129659 129664 129671 129680 129705 129712 129719 129728 129731 129744 129751 129792 129939 129940 129995 130032 130042 131070 131072 196606 196608 262142 262144 327678 327680 393214 393216 458750 458752 524286 524288 589822 589824 655358 655360 720894 720896 786430 786432 851966 851968 917502 921600 983038 983040 1048574 1048576 1114110 1114112 END PK ! +'� 5.34.0/unicore/lib/Bc/B.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V10 10 11 13 14 28 31 133 134 8233 8234 END PK ! t>Y$' ' 5.34.0/unicore/lib/Bc/AL.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V56 1544 1545 1547 1548 1549 1550 1563 1611 1645 1648 1649 1750 1765 1767 1774 1776 1786 1809 1810 1840 1867 1958 1969 1984 2144 2160 2208 2259 64336 64830 64832 64976 65008 65021 65022 65024 65136 65279 68864 68900 68904 68912 68922 68928 69424 69446 69457 69488 126064 126144 126208 126288 126464 126704 126706 126720 END PK ! .I� � � 5.34.0/unicore/lib/Bc/ET.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V48 35 38 162 166 176 178 1423 1424 1545 1547 1642 1643 2546 2548 2555 2556 2801 2802 3065 3066 3647 3648 6107 6108 8240 8245 8352 8400 8494 8495 8723 8724 43064 43066 65119 65120 65129 65131 65283 65286 65504 65506 65509 65511 73693 73697 123647 123648 END PK ! %ibOI I 5.34.0/unicore/lib/Bc/ON.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V376 33 35 38 43 59 65 91 97 123 127 161 162 166 170 171 173 174 176 180 181 182 185 187 192 215 216 247 248 697 699 706 720 722 736 741 750 751 768 884 886 894 895 900 902 903 904 1014 1015 1418 1419 1421 1423 1542 1544 1550 1552 1758 1759 1769 1770 2038 2042 3059 3065 3066 3067 3192 3199 3898 3902 5008 5018 5120 5121 5787 5789 6128 6138 6144 6155 6464 6465 6468 6470 6622 6656 8125 8126 8127 8130 8141 8144 8157 8160 8173 8176 8189 8191 8208 8232 8245 8260 8261 8287 8316 8319 8332 8335 8448 8450 8451 8455 8456 8458 8468 8469 8470 8473 8478 8484 8485 8486 8487 8488 8489 8490 8506 8508 8512 8517 8522 8526 8528 8544 8585 8588 8592 8722 8724 9014 9083 9109 9110 9255 9280 9291 9312 9352 9450 9900 9901 10240 10496 11124 11126 11158 11159 11264 11493 11499 11513 11520 11776 11859 11904 11930 11931 12020 12032 12246 12272 12284 12289 12293 12296 12321 12336 12337 12342 12344 12349 12352 12443 12445 12448 12449 12539 12540 12736 12772 12829 12831 12880 12896 12924 12927 12977 12992 13004 13008 13175 13179 13278 13280 13311 13312 19904 19968 42128 42183 42509 42512 42611 42612 42622 42624 42752 42786 42888 42889 43048 43052 43124 43128 43882 43884 64830 64832 65021 65022 65040 65050 65072 65104 65105 65106 65108 65109 65110 65119 65120 65122 65124 65127 65128 65129 65131 65132 65281 65283 65286 65291 65307 65313 65339 65345 65371 65382 65506 65509 65512 65519 65529 65534 65793 65794 65856 65933 65936 65949 65952 65953 67871 67872 68409 68416 69714 69734 71264 71277 73685 73693 73697 73714 94178 94179 119296 119362 119365 119366 119552 119639 120539 120540 120597 120598 120655 120656 120713 120714 120771 120772 126704 126706 126976 127020 127024 127124 127136 127151 127153 127168 127169 127184 127185 127222 127243 127248 127279 127280 127338 127344 127405 127406 127584 127590 127744 128728 128736 128749 128752 128765 128768 128884 128896 128985 128992 129004 129024 129036 129040 129096 129104 129114 129120 129160 129168 129198 129200 129202 129280 129401 129402 129484 129485 129620 129632 129646 129648 129653 129656 129659 129664 129671 129680 129705 129712 129719 129728 129731 129744 129751 129792 129939 129940 129995 END PK ! R�y,� � 5.34.0/unicore/lib/Dash/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V44 45 46 1418 1419 1470 1471 5120 5121 6150 6151 8208 8214 8275 8276 8315 8316 8331 8332 8722 8723 11799 11800 11802 11803 11834 11836 11840 11841 12316 12317 12336 12337 12448 12449 65073 65075 65112 65113 65123 65124 65293 65294 69293 69294 END PK ! ��� � 5.34.0/unicore/lib/CWCF/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1228 65 91 181 182 192 215 216 224 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 378 379 380 381 382 383 384 385 387 388 389 390 392 393 396 398 402 403 405 406 409 412 414 415 417 418 419 420 421 422 424 425 426 428 429 430 432 433 436 437 438 439 441 444 445 452 454 455 457 458 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 497 499 500 501 502 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 570 572 573 575 577 578 579 583 584 585 586 587 588 589 590 591 837 838 880 881 882 883 886 887 895 896 902 903 904 907 908 909 910 912 913 930 931 940 962 963 975 978 981 983 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1010 1012 1014 1015 1016 1017 1019 1021 1072 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 1329 1367 1415 1416 4256 4294 4295 4296 4301 4302 5112 5118 7296 7305 7312 7355 7357 7360 7680 7681 7682 7683 7684 7685 7686 7687 7688 7689 7690 7691 7692 7693 7694 7695 7696 7697 7698 7699 7700 7701 7702 7703 7704 7705 7706 7707 7708 7709 7710 7711 7712 7713 7714 7715 7716 7717 7718 7719 7720 7721 7722 7723 7724 7725 7726 7727 7728 7729 7730 7731 7732 7733 7734 7735 7736 7737 7738 7739 7740 7741 7742 7743 7744 7745 7746 7747 7748 7749 7750 7751 7752 7753 7754 7755 7756 7757 7758 7759 7760 7761 7762 7763 7764 7765 7766 7767 7768 7769 7770 7771 7772 7773 7774 7775 7776 7777 7778 7779 7780 7781 7782 7783 7784 7785 7786 7787 7788 7789 7790 7791 7792 7793 7794 7795 7796 7797 7798 7799 7800 7801 7802 7803 7804 7805 7806 7807 7808 7809 7810 7811 7812 7813 7814 7815 7816 7817 7818 7819 7820 7821 7822 7823 7824 7825 7826 7827 7828 7829 7834 7836 7838 7839 7840 7841 7842 7843 7844 7845 7846 7847 7848 7849 7850 7851 7852 7853 7854 7855 7856 7857 7858 7859 7860 7861 7862 7863 7864 7865 7866 7867 7868 7869 7870 7871 7872 7873 7874 7875 7876 7877 7878 7879 7880 7881 7882 7883 7884 7885 7886 7887 7888 7889 7890 7891 7892 7893 7894 7895 7896 7897 7898 7899 7900 7901 7902 7903 7904 7905 7906 7907 7908 7909 7910 7911 7912 7913 7914 7915 7916 7917 7918 7919 7920 7921 7922 7923 7924 7925 7926 7927 7928 7929 7930 7931 7932 7933 7934 7935 7944 7952 7960 7966 7976 7984 7992 8000 8008 8014 8025 8026 8027 8028 8029 8030 8031 8032 8040 8048 8064 8112 8114 8117 8119 8125 8130 8133 8135 8141 8152 8156 8168 8173 8178 8181 8183 8189 8486 8487 8490 8492 8498 8499 8544 8560 8579 8580 9398 9424 11264 11311 11360 11361 11362 11365 11367 11368 11369 11370 11371 11372 11373 11377 11378 11379 11381 11382 11390 11393 11394 11395 11396 11397 11398 11399 11400 11401 11402 11403 11404 11405 11406 11407 11408 11409 11410 11411 11412 11413 11414 11415 11416 11417 11418 11419 11420 11421 11422 11423 11424 11425 11426 11427 11428 11429 11430 11431 11432 11433 11434 11435 11436 11437 11438 11439 11440 11441 11442 11443 11444 11445 11446 11447 11448 11449 11450 11451 11452 11453 11454 11455 11456 11457 11458 11459 11460 11461 11462 11463 11464 11465 11466 11467 11468 11469 11470 11471 11472 11473 11474 11475 11476 11477 11478 11479 11480 11481 11482 11483 11484 11485 11486 11487 11488 11489 11490 11491 11499 11500 11501 11502 11506 11507 42560 42561 42562 42563 42564 42565 42566 42567 42568 42569 42570 42571 42572 42573 42574 42575 42576 42577 42578 42579 42580 42581 42582 42583 42584 42585 42586 42587 42588 42589 42590 42591 42592 42593 42594 42595 42596 42597 42598 42599 42600 42601 42602 42603 42604 42605 42624 42625 42626 42627 42628 42629 42630 42631 42632 42633 42634 42635 42636 42637 42638 42639 42640 42641 42642 42643 42644 42645 42646 42647 42648 42649 42650 42651 42786 42787 42788 42789 42790 42791 42792 42793 42794 42795 42796 42797 42798 42799 42802 42803 42804 42805 42806 42807 42808 42809 42810 42811 42812 42813 42814 42815 42816 42817 42818 42819 42820 42821 42822 42823 42824 42825 42826 42827 42828 42829 42830 42831 42832 42833 42834 42835 42836 42837 42838 42839 42840 42841 42842 42843 42844 42845 42846 42847 42848 42849 42850 42851 42852 42853 42854 42855 42856 42857 42858 42859 42860 42861 42862 42863 42873 42874 42875 42876 42877 42879 42880 42881 42882 42883 42884 42885 42886 42887 42891 42892 42893 42894 42896 42897 42898 42899 42902 42903 42904 42905 42906 42907 42908 42909 42910 42911 42912 42913 42914 42915 42916 42917 42918 42919 42920 42921 42922 42927 42928 42933 42934 42935 42936 42937 42938 42939 42940 42941 42942 42943 42946 42947 42948 42952 42953 42954 42997 42998 43888 43968 64256 64263 64275 64280 65313 65339 66560 66600 66736 66772 68736 68787 71840 71872 93760 93792 125184 125218 END PK ! Ι�# # 5.34.0/unicore/lib/CWU/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1238 97 123 181 182 223 247 248 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 378 379 380 381 382 385 387 388 389 390 392 393 396 397 402 403 405 406 409 411 414 415 417 418 419 420 421 422 424 425 429 430 432 433 436 437 438 439 441 442 445 446 447 448 453 455 456 458 459 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 497 498 500 501 502 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 572 573 575 577 578 579 583 584 585 586 587 588 589 590 591 597 598 600 601 602 603 605 608 610 611 612 613 615 616 621 623 624 625 627 629 630 637 638 640 641 642 644 647 653 658 659 669 671 837 838 881 882 883 884 887 888 891 894 912 913 940 975 976 978 981 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1012 1013 1014 1016 1017 1019 1020 1072 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 1328 1377 1416 4304 4347 4349 4352 5112 5118 7296 7305 7545 7546 7549 7550 7566 7567 7681 7682 7683 7684 7685 7686 7687 7688 7689 7690 7691 7692 7693 7694 7695 7696 7697 7698 7699 7700 7701 7702 7703 7704 7705 7706 7707 7708 7709 7710 7711 7712 7713 7714 7715 7716 7717 7718 7719 7720 7721 7722 7723 7724 7725 7726 7727 7728 7729 7730 7731 7732 7733 7734 7735 7736 7737 7738 7739 7740 7741 7742 7743 7744 7745 7746 7747 7748 7749 7750 7751 7752 7753 7754 7755 7756 7757 7758 7759 7760 7761 7762 7763 7764 7765 7766 7767 7768 7769 7770 7771 7772 7773 7774 7775 7776 7777 7778 7779 7780 7781 7782 7783 7784 7785 7786 7787 7788 7789 7790 7791 7792 7793 7794 7795 7796 7797 7798 7799 7800 7801 7802 7803 7804 7805 7806 7807 7808 7809 7810 7811 7812 7813 7814 7815 7816 7817 7818 7819 7820 7821 7822 7823 7824 7825 7826 7827 7828 7829 7836 7841 7842 7843 7844 7845 7846 7847 7848 7849 7850 7851 7852 7853 7854 7855 7856 7857 7858 7859 7860 7861 7862 7863 7864 7865 7866 7867 7868 7869 7870 7871 7872 7873 7874 7875 7876 7877 7878 7879 7880 7881 7882 7883 7884 7885 7886 7887 7888 7889 7890 7891 7892 7893 7894 7895 7896 7897 7898 7899 7900 7901 7902 7903 7904 7905 7906 7907 7908 7909 7910 7911 7912 7913 7914 7915 7916 7917 7918 7919 7920 7921 7922 7923 7924 7925 7926 7927 7928 7929 7930 7931 7932 7933 7934 7935 7944 7952 7958 7968 7976 7984 7992 8000 8006 8016 8024 8032 8040 8048 8062 8064 8117 8118 8120 8124 8125 8126 8127 8130 8133 8134 8136 8140 8141 8144 8148 8150 8152 8160 8168 8178 8181 8182 8184 8188 8189 8526 8527 8560 8576 8580 8581 9424 9450 11312 11359 11361 11362 11365 11367 11368 11369 11370 11371 11372 11373 11379 11380 11382 11383 11393 11394 11395 11396 11397 11398 11399 11400 11401 11402 11403 11404 11405 11406 11407 11408 11409 11410 11411 11412 11413 11414 11415 11416 11417 11418 11419 11420 11421 11422 11423 11424 11425 11426 11427 11428 11429 11430 11431 11432 11433 11434 11435 11436 11437 11438 11439 11440 11441 11442 11443 11444 11445 11446 11447 11448 11449 11450 11451 11452 11453 11454 11455 11456 11457 11458 11459 11460 11461 11462 11463 11464 11465 11466 11467 11468 11469 11470 11471 11472 11473 11474 11475 11476 11477 11478 11479 11480 11481 11482 11483 11484 11485 11486 11487 11488 11489 11490 11491 11492 11500 11501 11502 11503 11507 11508 11520 11558 11559 11560 11565 11566 42561 42562 42563 42564 42565 42566 42567 42568 42569 42570 42571 42572 42573 42574 42575 42576 42577 42578 42579 42580 42581 42582 42583 42584 42585 42586 42587 42588 42589 42590 42591 42592 42593 42594 42595 42596 42597 42598 42599 42600 42601 42602 42603 42604 42605 42606 42625 42626 42627 42628 42629 42630 42631 42632 42633 42634 42635 42636 42637 42638 42639 42640 42641 42642 42643 42644 42645 42646 42647 42648 42649 42650 42651 42652 42787 42788 42789 42790 42791 42792 42793 42794 42795 42796 42797 42798 42799 42800 42803 42804 42805 42806 42807 42808 42809 42810 42811 42812 42813 42814 42815 42816 42817 42818 42819 42820 42821 42822 42823 42824 42825 42826 42827 42828 42829 42830 42831 42832 42833 42834 42835 42836 42837 42838 42839 42840 42841 42842 42843 42844 42845 42846 42847 42848 42849 42850 42851 42852 42853 42854 42855 42856 42857 42858 42859 42860 42861 42862 42863 42864 42874 42875 42876 42877 42879 42880 42881 42882 42883 42884 42885 42886 42887 42888 42892 42893 42897 42898 42899 42901 42903 42904 42905 42906 42907 42908 42909 42910 42911 42912 42913 42914 42915 42916 42917 42918 42919 42920 42921 42922 42933 42934 42935 42936 42937 42938 42939 42940 42941 42942 42943 42944 42947 42948 42952 42953 42954 42955 42998 42999 43859 43860 43888 43968 64256 64263 64275 64280 65345 65371 66600 66640 66776 66812 68800 68851 71872 71904 93792 93824 125218 125252 END PK ! Z�D� � 5.34.0/unicore/lib/Emoji/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V304 35 36 42 43 48 58 169 170 174 175 8252 8253 8265 8266 8482 8483 8505 8506 8596 8602 8617 8619 8986 8988 9000 9001 9167 9168 9193 9204 9208 9211 9410 9411 9642 9644 9654 9655 9664 9665 9723 9727 9728 9733 9742 9743 9745 9746 9748 9750 9752 9753 9757 9758 9760 9761 9762 9764 9766 9767 9770 9771 9774 9776 9784 9787 9792 9793 9794 9795 9800 9812 9823 9825 9827 9828 9829 9831 9832 9833 9851 9852 9854 9856 9874 9880 9881 9882 9883 9885 9888 9890 9895 9896 9898 9900 9904 9906 9917 9919 9924 9926 9928 9929 9934 9936 9937 9938 9939 9941 9961 9963 9968 9974 9975 9979 9981 9982 9986 9987 9989 9990 9992 9998 9999 10000 10002 10003 10004 10005 10006 10007 10013 10014 10017 10018 10024 10025 10035 10037 10052 10053 10055 10056 10060 10061 10062 10063 10067 10070 10071 10072 10083 10085 10133 10136 10145 10146 10160 10161 10175 10176 10548 10550 11013 11016 11035 11037 11088 11089 11093 11094 12336 12337 12349 12350 12951 12952 12953 12954 126980 126981 127183 127184 127344 127346 127358 127360 127374 127375 127377 127387 127462 127488 127489 127491 127514 127515 127535 127536 127538 127547 127568 127570 127744 127778 127780 127892 127894 127896 127897 127900 127902 127985 127987 127990 127991 128254 128255 128318 128329 128335 128336 128360 128367 128369 128371 128379 128391 128392 128394 128398 128400 128401 128405 128407 128420 128422 128424 128425 128433 128435 128444 128445 128450 128453 128465 128468 128476 128479 128481 128482 128483 128484 128488 128489 128495 128496 128499 128500 128506 128592 128640 128710 128715 128723 128725 128728 128736 128742 128745 128746 128747 128749 128752 128753 128755 128765 128992 129004 129292 129339 129340 129350 129351 129401 129402 129484 129485 129536 129648 129653 129656 129659 129664 129671 129680 129705 129712 129719 129728 129731 129744 129751 END PK ! �� �J J 5.34.0/unicore/lib/Age/V20.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V58 1425 1442 1443 1456 1476 1477 3840 3912 3913 3946 3953 3980 3984 3990 3991 3992 3993 4014 4017 4024 4025 4026 7835 7836 8363 8364 44032 55204 55296 57344 131070 131072 196606 196608 262142 262144 327678 327680 393214 393216 458750 458752 524286 524288 589822 589824 655358 655360 720894 720896 786430 786432 851966 851968 917502 917504 983038 1114112 END PK ! >:��u u 5.34.0/unicore/lib/Age/V90.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V104 2230 2238 2260 2275 3200 3201 3407 3408 3412 3415 3416 3423 3446 3449 7296 7305 7675 7676 9211 9215 11843 11845 42926 42927 43205 43206 65933 65935 66736 66772 66776 66812 70206 70207 70656 70746 70747 70748 70749 70750 71264 71277 72704 72713 72714 72759 72760 72774 72784 72813 72816 72848 72850 72872 72873 72887 94176 94177 94208 100333 100352 101107 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 125184 125259 125264 125274 125278 125280 127387 127405 127547 127548 128378 128379 128420 128421 128721 128723 128756 128759 129305 129311 129312 129320 129328 129329 129331 129343 129344 129356 129360 129375 129413 129426 END PK ! ::8S� � 5.34.0/unicore/lib/Age/V30.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V242 502 506 536 544 546 564 681 686 735 736 746 751 838 847 866 867 983 984 987 988 989 990 991 992 993 994 1024 1025 1037 1038 1104 1105 1117 1118 1160 1162 1164 1168 1260 1262 1418 1419 1619 1622 1720 1722 1727 1728 1743 1744 1786 1791 1792 1806 1807 1837 1840 1867 1920 1969 3458 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3570 3573 3946 3947 3990 3991 4014 4017 4024 4025 4026 4029 4030 4045 4047 4048 4096 4130 4131 4136 4137 4139 4140 4147 4150 4154 4160 4186 4608 4615 4616 4679 4680 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4743 4744 4745 4746 4750 4752 4783 4784 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4815 4816 4823 4824 4847 4848 4879 4880 4881 4882 4886 4888 4895 4896 4935 4936 4955 4961 4989 5024 5109 5121 5751 5760 5789 5792 5873 6016 6109 6112 6122 6144 6159 6160 6170 6176 6264 6272 6314 8239 8240 8264 8270 8365 8368 8418 8420 8505 8507 8579 8580 8683 8692 8961 8962 9083 9084 9085 9115 9253 9255 9712 9720 9753 9754 9840 9842 10240 10496 11904 11930 11931 12020 12032 12246 12272 12284 12344 12347 12350 12351 12704 12728 13312 19894 40960 42125 42128 42146 42148 42164 42165 42177 42178 42181 42182 42183 64285 64286 65529 65532 END PK ! �b^�� � 5.34.0/unicore/lib/Age/V130.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V118 2238 2248 2901 2902 3332 3333 3457 3458 6847 6849 11159 11160 11856 11859 12731 12736 19894 19904 40944 40957 42951 42955 42997 42999 43052 43053 43880 43884 65948 65949 69248 69290 69291 69294 69296 69298 69552 69580 69959 69960 70094 70096 70746 70747 70752 70754 71936 71943 71945 71946 71948 71956 71957 71959 71960 71990 71991 71993 71995 72007 72016 72026 73648 73649 94180 94181 94192 94194 101107 101590 101632 101641 127245 127248 127341 127344 127405 127406 128726 128728 128763 128765 129200 129202 129292 129293 129394 129395 129399 129401 129443 129445 129451 129454 129483 129484 129652 129653 129667 129671 129686 129705 129712 129719 129728 129731 129744 129751 129792 129939 129940 129995 130032 130042 173783 173790 196608 201547 END PK ! �d&� 5.34.0/unicore/lib/Age/V60.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V212 1318 1320 1568 1569 1631 1632 2112 2140 2142 2143 2362 2364 2383 2384 2390 2392 2419 2424 2930 2936 3369 3370 3386 3387 3406 3407 3980 3984 4057 4059 4957 4959 7104 7156 7164 7168 7676 7677 8341 8349 8377 8378 9193 9204 9934 9935 9954 9955 9956 9960 9989 9990 9994 9996 10024 10025 10060 10061 10062 10063 10067 10070 10079 10081 10133 10136 10160 10161 10175 10176 10190 10192 11632 11633 11647 11648 12728 12731 42592 42594 42893 42895 42896 42898 42912 42922 43002 43003 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 64434 64450 69632 69710 69714 69744 92160 92729 110592 110594 127136 127151 127153 127167 127169 127184 127185 127200 127280 127281 127282 127293 127294 127295 127296 127298 127299 127302 127303 127306 127311 127319 127320 127327 127328 127338 127344 127353 127354 127355 127357 127359 127360 127370 127374 127376 127377 127387 127462 127488 127489 127491 127538 127547 127568 127570 127744 127777 127792 127798 127799 127869 127872 127892 127904 127941 127942 127947 127968 127985 128000 128063 128064 128065 128066 128248 128249 128253 128256 128318 128336 128360 128507 128512 128513 128529 128530 128533 128534 128535 128536 128537 128538 128539 128540 128543 128544 128550 128552 128556 128557 128558 128560 128564 128565 128577 128581 128592 128640 128710 128768 128884 177984 178206 END PK ! �# � � 5.34.0/unicore/lib/Age/V120.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V120 3191 3192 3718 3719 3721 3722 3724 3725 3726 3732 3736 3737 3744 3745 3752 3754 3756 3757 3770 3771 7418 7419 11209 11210 11263 11264 11855 11856 42938 42944 42946 42951 43878 43880 69600 69623 70751 70752 71352 71353 72096 72104 72106 72152 72154 72165 72324 72326 73664 73714 73727 73728 78896 78905 94021 94027 94031 94032 94079 94088 94178 94180 100338 100344 110928 110931 110948 110952 123136 123181 123184 123198 123200 123210 123214 123216 123584 123642 123647 123648 125259 125260 126209 126270 127340 127341 128725 128726 128762 128763 128992 129004 129293 129296 129343 129344 129393 129394 129403 129404 129445 129451 129454 129456 129466 129472 129475 129483 129485 129488 129536 129620 129648 129652 129656 129659 129664 129667 129680 129686 END PK ! ��q@� � 5.34.0/unicore/lib/Age/V100.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V80 2144 2155 2556 2558 2810 2816 3328 3329 3387 3389 7415 7416 7670 7674 8383 8384 9215 9216 11218 11219 11845 11850 12590 12591 40918 40939 66349 66352 72192 72264 72272 72324 72326 72349 72350 72355 72960 72967 72968 72970 72971 73015 73018 73019 73020 73022 73023 73032 73040 73050 94177 94178 110594 110879 110960 111356 127584 127590 128723 128725 128759 128761 129280 129292 129311 129312 129320 129328 129329 129331 129356 129357 129375 129388 129426 129432 129488 129511 183984 191457 END PK ! R7� � 5.34.0/unicore/lib/Age/V51.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V178 880 884 886 888 975 976 1159 1160 1300 1316 1542 1547 1558 1563 1595 1600 1902 1920 2417 2419 2641 2642 2677 2678 2884 2885 2914 2916 3024 3025 3133 3134 3160 3162 3170 3172 3192 3200 3389 3390 3396 3397 3426 3428 3440 3446 3449 3456 3947 3949 4046 4047 4050 4053 4130 4131 4136 4137 4139 4140 4147 4150 4154 4160 4186 4250 4254 4256 6314 6315 7040 7083 7086 7098 7168 7224 7227 7242 7245 7296 7627 7655 7836 7840 7930 7936 8292 8293 8432 8433 8527 8528 8581 8585 9885 9886 9907 9917 9920 9924 10188 10189 10220 10224 11035 11040 11044 11085 11088 11093 11373 11376 11377 11380 11384 11390 11744 11776 11800 11804 11806 11825 12589 12590 12752 12772 40892 40900 42240 42540 42560 42592 42594 42612 42620 42648 42779 42784 42786 42893 43003 43008 43136 43205 43214 43226 43264 43348 43359 43360 43520 43575 43584 43598 43600 43610 43612 43616 65060 65063 65936 65948 66000 66046 66176 66205 66208 66257 67872 67898 67903 67904 119081 119082 126976 127020 127024 127124 END PK ! .�_Gx x 5.34.0/unicore/lib/Age/V11.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V576 0 502 506 536 592 681 688 735 736 746 768 838 864 866 884 886 890 891 894 895 900 907 908 909 910 930 931 975 976 983 986 987 988 989 990 991 992 993 994 1012 1025 1037 1038 1104 1105 1117 1118 1159 1168 1221 1223 1225 1227 1229 1232 1260 1262 1270 1272 1274 1329 1367 1369 1376 1377 1416 1417 1418 1456 1466 1467 1476 1488 1515 1520 1525 1548 1549 1563 1564 1567 1568 1569 1595 1600 1619 1632 1646 1648 1720 1722 1727 1728 1743 1744 1774 1776 1786 2305 2308 2309 2362 2364 2382 2384 2389 2392 2417 2433 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2493 2494 2501 2503 2505 2507 2510 2519 2520 2524 2526 2527 2532 2534 2555 2562 2563 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2649 2653 2654 2655 2662 2677 2689 2692 2693 2700 2701 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2785 2790 2800 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2870 2874 2876 2884 2887 2889 2891 2894 2902 2904 2908 2910 2911 2914 2918 2929 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 2998 2999 3002 3006 3011 3014 3017 3018 3022 3031 3032 3047 3059 3073 3076 3077 3085 3086 3089 3090 3113 3114 3124 3125 3130 3134 3141 3142 3145 3146 3150 3157 3159 3168 3170 3174 3184 3202 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3262 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3298 3302 3312 3330 3332 3333 3341 3342 3345 3346 3369 3370 3386 3390 3396 3398 3401 3402 3406 3415 3416 3424 3426 3430 3440 3585 3643 3647 3676 3713 3715 3716 3717 3719 3721 3722 3723 3725 3726 3732 3736 3737 3744 3745 3748 3749 3750 3751 3752 3754 3756 3757 3770 3771 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3806 4256 4294 4304 4343 4347 4348 4352 4442 4447 4515 4520 4602 7680 7835 7840 7930 7936 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8239 8240 8263 8298 8305 8308 8335 8352 8363 8400 8418 8448 8505 8531 8579 8592 8683 8704 8946 8960 8961 8962 9083 9216 9253 9280 9291 9312 9451 9472 9622 9632 9712 9728 9748 9754 9840 9985 9989 9990 9994 9996 10024 10025 10060 10061 10062 10063 10067 10070 10071 10072 10079 10081 10088 10102 10133 10136 10160 10161 10175 12288 12344 12351 12352 12353 12437 12441 12447 12449 12543 12549 12589 12593 12687 12688 12704 12800 12829 12832 12868 12896 12924 12927 12977 12992 13004 13008 13055 13056 13175 13179 13278 13280 13311 19968 40870 57344 64046 64256 64263 64275 64280 64286 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64832 64848 64912 64914 64968 65008 65020 65056 65060 65072 65093 65097 65107 65108 65127 65128 65132 65136 65139 65140 65141 65142 65277 65279 65280 65281 65375 65377 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65533 65536 END PK ! ��Z]g g 5.34.0/unicore/lib/Age/V50.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V70 578 592 891 894 1231 1232 1274 1280 1296 1300 1466 1467 1984 2043 2427 2429 2430 2432 3298 3300 3313 3315 6912 6988 6992 7037 7620 7627 7678 7680 8428 8432 8525 8527 8580 8581 9180 9192 9906 9907 10183 10187 11028 11035 11040 11044 11360 11373 11380 11384 42775 42779 42784 42786 43072 43128 67840 67866 67871 67872 73728 74607 74752 74851 74864 74868 119648 119666 120778 120780 END PK ! �%ɾ � 5.34.0/unicore/lib/Age/V80.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V118 2227 2229 2275 2276 2809 2810 3162 3163 3423 3424 5109 5110 5112 5118 8382 8383 8586 8588 11244 11248 40909 40918 42654 42655 42895 42896 42930 42936 43260 43262 43872 43876 43888 43968 65070 65072 67808 67827 67828 67830 67835 67840 68028 68030 68032 68048 68050 68096 68736 68787 68800 68851 68858 68864 70089 70093 70107 70112 70272 70279 70280 70281 70282 70286 70287 70302 70303 70314 70400 70401 70480 70481 71114 71134 71424 71450 71453 71468 71472 71488 74649 74650 74880 75076 82944 83527 119262 119273 120832 121484 121499 121504 121505 121520 127789 127792 127870 127872 127951 127956 127992 128000 128255 128256 128331 128336 128579 128581 128720 128721 129296 129305 129408 129413 129472 129473 178208 183970 END PK ! �M� � � 5.34.0/unicore/lib/Age/V70.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V282 895 896 1320 1328 1421 1423 1541 1542 2209 2210 2221 2227 2303 2304 2424 2425 2432 2433 3072 3073 3124 3125 3201 3202 3329 3330 3558 3568 5873 5881 6429 6431 6832 6847 7416 7418 7655 7670 8379 8382 9204 9211 9984 9985 11085 11088 11098 11124 11126 11158 11160 11194 11197 11209 11210 11218 11836 11843 42648 42654 42900 42912 42923 42926 42928 42930 42999 43000 43488 43519 43644 43648 43824 43872 43876 43878 65063 65070 65931 65933 65952 65953 66272 66300 66335 66336 66384 66427 66816 66856 66864 66916 66927 66928 67072 67383 67392 67414 67424 67432 67680 67743 67751 67760 68224 68256 68288 68327 68331 68343 68480 68498 68505 68509 68521 68528 69759 69760 69968 70007 70093 70094 70106 70107 70113 70133 70144 70162 70163 70206 70320 70379 70384 70394 70401 70404 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70460 70469 70471 70473 70475 70478 70487 70488 70493 70500 70502 70509 70512 70517 70784 70856 70864 70874 71040 71094 71096 71114 71168 71237 71248 71258 71840 71923 71935 71936 72384 72441 74607 74649 74851 74863 74868 74869 92736 92767 92768 92778 92782 92784 92880 92910 92912 92918 92928 92998 93008 93018 93019 93026 93027 93048 93053 93072 113664 113771 113776 113789 113792 113801 113808 113818 113820 113828 124928 125125 125127 125143 127167 127168 127200 127222 127243 127245 127777 127789 127798 127799 127869 127870 127892 127904 127941 127942 127947 127951 127956 127968 127985 127992 128063 128064 128065 128066 128248 128249 128253 128255 128318 128320 128324 128331 128360 128378 128379 128420 128421 128507 128577 128579 128592 128640 128710 128720 128736 128749 128752 128756 128896 128981 129024 129036 129040 129096 129104 129114 129120 129160 129168 129198 END PK ! W�. . 5.34.0/unicore/lib/Age/V40.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V154 545 546 564 567 686 688 751 768 848 856 861 864 1015 1020 1536 1540 1549 1558 1622 1625 1774 1776 1791 1792 1837 1840 1869 1872 2308 2309 2493 2494 2561 2562 2563 2564 2700 2701 2785 2788 2801 2802 2869 2870 2929 2930 3059 3067 3260 3262 6109 6110 6128 6138 6400 6429 6432 6444 6448 6460 6464 6465 6468 6510 6512 6517 6624 6656 7424 7532 8275 8277 8507 8508 9167 9169 9471 9472 9748 9750 9866 9874 9888 9890 11008 11022 12829 12831 12880 12881 12924 12926 13004 13008 13175 13179 13278 13280 13311 13312 19904 19968 65021 65022 65095 65097 65536 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65792 65795 65799 65844 65847 65856 66432 66462 66463 66464 66598 66600 66638 66718 66720 66730 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67648 119552 119639 120001 120002 917760 918000 END PK ! ��|Z Z 5.34.0/unicore/lib/Age/V61.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V178 1423 1424 1540 1541 2208 2209 2210 2221 2276 2303 2800 2801 3806 3808 4295 4296 4301 4302 4349 4352 7083 7086 7098 7104 7360 7368 7411 7415 10187 10188 10189 10190 11506 11508 11559 11560 11565 11566 11622 11624 11826 11836 40908 40909 42612 42620 42655 42656 42898 42900 42922 42923 43000 43002 43744 43767 64046 64048 67968 68024 68030 68032 69840 69865 69872 69882 69888 69941 69942 69956 70016 70089 70096 70106 71296 71352 71360 71370 93952 94021 94032 94079 94095 94112 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 126704 126706 127338 127340 128320 128324 128512 128513 128529 128530 128533 128534 128535 128536 128537 128538 128539 128540 128543 128544 128550 128552 128556 128557 128558 128560 128564 128565 END PK ! ��Q� � 5.34.0/unicore/lib/Age/V110.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V118 1376 1377 1416 1417 1519 1520 2045 2048 2259 2260 2558 2559 2678 2679 3076 3077 3204 3205 6264 6265 7312 7355 7357 7360 11194 11197 11219 11244 11248 11263 11850 11855 12591 12592 40939 40944 42927 42928 42936 42938 43262 43264 68148 68150 68168 68169 68864 68904 68912 68922 69376 69416 69424 69466 69837 69838 69956 69959 70459 70460 70750 70751 71450 71451 71680 71740 72349 72350 73056 73062 73063 73065 73066 73103 73104 73106 73107 73113 73120 73130 73440 73465 93760 93851 100333 100338 119520 119540 119666 119673 126065 126133 127279 127280 128761 128762 128981 128985 129357 129360 129388 129393 129395 129399 129402 129403 129404 129408 129432 129443 129456 129466 129473 129475 129511 129536 129632 129646 END PK ! �E� � 5.34.0/unicore/lib/Age/V41.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V172 567 578 856 861 1020 1024 1270 1272 1442 1443 1477 1480 1547 1548 1566 1567 1625 1631 1872 1902 2429 2430 2510 2511 2998 2999 3046 3047 4048 4050 4345 4347 4348 4349 4615 4616 4679 4680 4743 4744 4783 4784 4815 4816 4847 4848 4879 4880 4895 4896 4935 4936 4959 4961 4992 5018 6528 6570 6576 6602 6608 6618 6622 6624 6656 6684 6686 6688 7532 7620 8277 8279 8280 8287 8336 8341 8370 8374 8427 8428 8508 8509 8524 8525 9169 9180 9752 9753 9854 9856 9874 9885 9890 9906 10176 10183 11022 11028 11264 11311 11312 11359 11392 11499 11513 11558 11568 11622 11631 11632 11648 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11776 11800 11804 11806 12736 12752 12926 12927 40870 40892 42752 42775 43008 43052 64112 64218 65040 65050 65856 65931 66464 66500 66504 66518 68096 68100 68101 68103 68108 68116 68117 68120 68121 68148 68152 68155 68159 68168 68176 68185 119296 119366 120484 120486 END PK ! ��k\ \ 5.34.0/unicore/lib/Age/V32.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V118 544 545 847 848 867 880 984 986 1014 1015 1162 1164 1221 1223 1225 1227 1229 1231 1280 1296 1646 1648 1969 1970 4343 4345 5888 5901 5902 5909 5920 5943 5952 5972 5984 5997 5998 6001 6002 6004 8263 8264 8270 8275 8279 8280 8287 8292 8305 8306 8368 8370 8420 8427 8509 8524 8692 8704 8946 8960 9084 9085 9115 9167 9451 9471 9622 9632 9720 9728 9750 9752 9842 9854 9856 9866 10088 10102 10192 10220 10224 10240 10496 11008 12347 12350 12437 12439 12447 12449 12543 12544 12784 12800 12881 12896 12977 12992 42146 42148 42164 42165 42177 42178 42181 42182 64048 64107 65020 65021 65024 65040 65093 65095 65139 65140 65375 65377 END PK ! �q�D 5.34.0/unicore/lib/Age/V52.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V180 1316 1318 2048 2094 2096 2111 2304 2305 2382 2383 2389 2390 2425 2427 2555 2556 4053 4057 4250 4254 4442 4447 4515 4520 4602 4608 5120 5121 5751 5760 6320 6390 6570 6572 6618 6619 6688 6751 6752 6781 6783 6794 6800 6810 6816 6830 7376 7411 7677 7678 8374 8377 8528 8531 8585 8586 9192 9193 9886 9888 9917 9920 9924 9934 9935 9954 9955 9956 9960 9984 10071 10072 11093 11098 11376 11377 11390 11392 11499 11506 11825 11826 12868 12880 40900 40908 42192 42240 42656 42744 43056 43066 43232 43260 43360 43389 43392 43470 43471 43482 43486 43488 43616 43644 43648 43715 43739 43744 43968 44014 44016 44026 55216 55239 55243 55292 64107 64110 67648 67670 67671 67680 67866 67868 68192 68224 68352 68406 68409 68438 68440 68467 68472 68480 68608 68681 69216 69247 69760 69826 77824 78895 127232 127243 127248 127279 127281 127282 127293 127294 127295 127296 127298 127299 127302 127303 127306 127311 127319 127320 127327 127328 127353 127354 127355 127357 127359 127360 127370 127374 127376 127377 127488 127489 127504 127538 127552 127561 173824 177973 END PK ! ����� � 5.34.0/unicore/lib/Age/V31.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V72 1012 1014 64976 65008 66304 66335 66336 66340 66352 66379 66560 66598 66600 66638 118784 119030 119040 119079 119082 119262 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120001 120002 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120484 120488 120778 120782 120832 131072 173783 194560 195102 917505 917506 917536 917632 END PK ! z��C! C! 5.34.0/unicore/lib/Age/NA.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1371 888 890 896 900 907 908 909 910 930 931 1328 1329 1367 1369 1419 1421 1424 1425 1480 1488 1515 1519 1525 1536 1565 1566 1806 1807 1867 1869 1970 1984 2043 2045 2094 2096 2111 2112 2140 2142 2143 2144 2155 2208 2229 2230 2248 2259 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2559 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2679 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2802 2809 2816 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2901 2904 2908 2910 2911 2916 2918 2936 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3067 3072 3085 3086 3089 3090 3113 3114 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3163 3168 3172 3174 3184 3191 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3328 3341 3342 3345 3346 3397 3398 3401 3402 3408 3412 3428 3430 3456 3457 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3558 3568 3570 3573 3585 3643 3647 3676 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3808 3840 3912 3913 3949 3953 3992 3993 4029 4030 4045 4046 4059 4096 4294 4295 4296 4301 4302 4304 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4989 4992 5018 5024 5110 5112 5118 5120 5789 5792 5881 5888 5901 5902 5909 5920 5943 5952 5972 5984 5997 5998 6001 6002 6004 6016 6110 6112 6122 6128 6138 6144 6159 6160 6170 6176 6265 6272 6315 6320 6390 6400 6431 6432 6444 6448 6460 6464 6465 6468 6510 6512 6517 6528 6572 6576 6602 6608 6619 6622 6684 6686 6751 6752 6781 6783 6794 6800 6810 6816 6830 6832 6849 6912 6988 6992 7037 7040 7156 7164 7224 7227 7242 7245 7305 7312 7355 7357 7368 7376 7419 7424 7674 7675 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8293 8294 8306 8308 8335 8336 8349 8352 8384 8400 8433 8448 8588 8592 9255 9280 9291 9312 11124 11126 11158 11159 11311 11312 11359 11360 11508 11513 11558 11559 11560 11565 11566 11568 11624 11631 11633 11647 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11859 11904 11930 11931 12020 12032 12246 12272 12284 12288 12352 12353 12439 12441 12544 12549 12592 12593 12687 12688 12772 12784 12831 12832 40957 40960 42125 42128 42183 42192 42540 42560 42744 42752 42944 42946 42955 42997 43053 43056 43066 43072 43128 43136 43206 43214 43226 43232 43348 43359 43389 43392 43470 43471 43482 43486 43519 43520 43575 43584 43598 43600 43610 43612 43715 43739 43767 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43884 43888 44014 44016 44026 44032 55204 55216 55239 55243 55292 55296 64110 64112 64218 64256 64263 64275 64280 64285 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64450 64467 64832 64848 64912 64914 64968 64976 65022 65024 65050 65056 65107 65108 65127 65128 65132 65136 65141 65142 65277 65279 65280 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65529 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65792 65795 65799 65844 65847 65935 65936 65949 65952 65953 66000 66046 66176 66205 66208 66257 66272 66300 66304 66340 66349 66379 66384 66427 66432 66462 66463 66500 66504 66518 66560 66718 66720 66730 66736 66772 66776 66812 66816 66856 66864 66916 66927 66928 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67671 67743 67751 67760 67808 67827 67828 67830 67835 67868 67871 67898 67903 67904 67968 68024 68028 68048 68050 68100 68101 68103 68108 68116 68117 68120 68121 68150 68152 68155 68159 68169 68176 68185 68192 68256 68288 68327 68331 68343 68352 68406 68409 68438 68440 68467 68472 68498 68505 68509 68521 68528 68608 68681 68736 68787 68800 68851 68858 68904 68912 68922 69216 69247 69248 69290 69291 69294 69296 69298 69376 69416 69424 69466 69552 69580 69600 69623 69632 69710 69714 69744 69759 69826 69837 69838 69840 69865 69872 69882 69888 69941 69942 69960 69968 70007 70016 70112 70113 70133 70144 70162 70163 70207 70272 70279 70280 70281 70282 70286 70287 70302 70303 70314 70320 70379 70384 70394 70400 70404 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70459 70469 70471 70473 70475 70478 70480 70481 70487 70488 70493 70500 70502 70509 70512 70517 70656 70748 70749 70754 70784 70856 70864 70874 71040 71094 71096 71134 71168 71237 71248 71258 71264 71277 71296 71353 71360 71370 71424 71451 71453 71468 71472 71488 71680 71740 71840 71923 71935 71943 71945 71946 71948 71956 71957 71959 71960 71990 71991 71993 71995 72007 72016 72026 72096 72104 72106 72152 72154 72165 72192 72264 72272 72355 72384 72441 72704 72713 72714 72759 72760 72774 72784 72813 72816 72848 72850 72872 72873 72887 72960 72967 72968 72970 72971 73015 73018 73019 73020 73022 73023 73032 73040 73050 73056 73062 73063 73065 73066 73103 73104 73106 73107 73113 73120 73130 73440 73465 73648 73649 73664 73714 73727 74650 74752 74863 74864 74869 74880 75076 77824 78895 78896 78905 82944 83527 92160 92729 92736 92767 92768 92778 92782 92784 92880 92910 92912 92918 92928 92998 93008 93018 93019 93026 93027 93048 93053 93072 93760 93851 93952 94027 94031 94088 94095 94112 94176 94181 94192 94194 94208 100344 100352 101590 101632 101641 110592 110879 110928 110931 110948 110952 110960 111356 113664 113771 113776 113789 113792 113801 113808 113818 113820 113828 118784 119030 119040 119079 119081 119273 119296 119366 119520 119540 119552 119639 119648 119673 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 121484 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123136 123181 123184 123198 123200 123210 123214 123216 123584 123642 123647 123648 124928 125125 125127 125143 125184 125260 125264 125274 125278 125280 126065 126133 126209 126270 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 126704 126706 126976 127020 127024 127124 127136 127151 127153 127168 127169 127184 127185 127222 127232 127406 127462 127491 127504 127548 127552 127561 127568 127570 127584 127590 127744 128728 128736 128749 128752 128765 128768 128884 128896 128985 128992 129004 129024 129036 129040 129096 129104 129114 129120 129160 129168 129198 129200 129202 129280 129401 129402 129484 129485 129620 129632 129646 129648 129653 129656 129659 129664 129671 129680 129705 129712 129719 129728 129731 129744 129751 129792 129939 129940 129995 130032 130042 131070 173790 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196606 201547 262142 262144 327678 327680 393214 393216 458750 458752 524286 524288 589822 589824 655358 655360 720894 720896 786430 786432 851966 851968 917502 917504 917505 917506 917536 917632 917760 918000 983038 1114112 END PK ! Yx��� � 5.34.0/unicore/lib/Blk/NB.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V109 2160 2208 12256 12272 66048 66176 66528 66560 66928 67072 67456 67584 67760 67808 67904 67968 68256 68288 68528 68608 68688 68736 68928 69216 69312 69376 69488 69552 70224 70272 70528 70656 70880 71040 71376 71424 71488 71680 71760 71840 72032 72096 72368 72384 72448 72704 72896 72960 73136 73440 73472 73648 75088 77824 78912 82944 83584 92160 92784 92880 93072 93760 93856 93952 94112 94176 101776 110592 111360 113664 113840 118784 119376 119520 119680 119808 121520 122880 122928 123136 123216 123584 123648 124928 125152 125184 125280 126064 126144 126208 126288 126464 126720 126976 130048 131072 173792 173824 191472 194560 195104 196608 201552 917504 917632 917760 918000 983040 1114112 END PK ! f� ' ' 5.34.0/unicore/lib/Hst/NA.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V11 0 4352 4608 43360 43389 44032 55204 55216 55239 55243 55292 END PK ! �gf��' �' 5.34.0/unicore/lib/GrBase/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1668 32 127 160 173 174 768 880 888 890 896 900 907 908 909 910 930 931 1155 1162 1328 1329 1367 1369 1419 1421 1424 1470 1471 1472 1473 1475 1476 1478 1479 1488 1515 1519 1525 1542 1552 1563 1564 1566 1611 1632 1648 1649 1750 1758 1759 1765 1767 1769 1770 1774 1806 1808 1809 1810 1840 1869 1958 1969 1970 1984 2027 2036 2043 2046 2070 2074 2075 2084 2085 2088 2089 2096 2111 2112 2137 2142 2143 2144 2155 2208 2229 2230 2248 2307 2362 2363 2364 2365 2369 2377 2381 2382 2385 2392 2402 2404 2433 2434 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2493 2494 2495 2497 2503 2505 2507 2509 2510 2511 2524 2526 2527 2530 2534 2558 2563 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2622 2625 2649 2653 2654 2655 2662 2672 2674 2677 2678 2679 2691 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2749 2753 2761 2762 2763 2765 2768 2769 2784 2786 2790 2802 2809 2810 2818 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2877 2878 2880 2881 2887 2889 2891 2893 2908 2910 2911 2914 2918 2936 2947 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3007 3008 3009 3011 3014 3017 3018 3021 3024 3025 3046 3067 3073 3076 3077 3085 3086 3089 3090 3113 3114 3130 3133 3134 3137 3141 3160 3163 3168 3170 3174 3184 3191 3201 3202 3213 3214 3217 3218 3241 3242 3252 3253 3258 3261 3263 3264 3266 3267 3269 3271 3273 3274 3276 3294 3295 3296 3298 3302 3312 3313 3315 3330 3341 3342 3345 3346 3387 3389 3390 3391 3393 3398 3401 3402 3405 3406 3408 3412 3415 3416 3426 3430 3456 3458 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3536 3538 3544 3551 3558 3568 3570 3573 3585 3633 3634 3636 3647 3655 3663 3676 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3761 3762 3764 3773 3774 3776 3781 3782 3783 3792 3802 3804 3808 3840 3864 3866 3893 3894 3895 3896 3897 3898 3912 3913 3949 3967 3968 3973 3974 3976 3981 4030 4038 4039 4045 4046 4059 4096 4141 4145 4146 4152 4153 4155 4157 4159 4184 4186 4190 4193 4209 4213 4226 4227 4229 4231 4237 4238 4253 4254 4294 4295 4296 4301 4302 4304 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4960 4989 4992 5018 5024 5110 5112 5118 5120 5789 5792 5881 5888 5901 5902 5906 5920 5938 5941 5943 5952 5970 5984 5997 5998 6001 6016 6068 6070 6071 6078 6086 6087 6089 6100 6109 6112 6122 6128 6138 6144 6155 6160 6170 6176 6265 6272 6277 6279 6313 6314 6315 6320 6390 6400 6431 6435 6439 6441 6444 6448 6450 6451 6457 6464 6465 6468 6510 6512 6517 6528 6572 6576 6602 6608 6619 6622 6679 6681 6683 6686 6742 6743 6744 6753 6754 6755 6757 6765 6771 6784 6794 6800 6810 6816 6830 6916 6964 6971 6972 6973 6978 6979 6988 6992 7019 7028 7037 7042 7074 7078 7080 7082 7083 7086 7142 7143 7144 7146 7149 7150 7151 7154 7156 7164 7212 7220 7222 7227 7242 7245 7305 7312 7355 7357 7368 7379 7380 7393 7394 7401 7405 7406 7412 7413 7416 7418 7419 7424 7616 7680 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8203 8208 8232 8239 8288 8304 8306 8308 8335 8336 8349 8352 8384 8448 8588 8592 9255 9280 9291 9312 11124 11126 11158 11159 11311 11312 11359 11360 11503 11506 11508 11513 11558 11559 11560 11565 11566 11568 11624 11631 11633 11648 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11776 11859 11904 11930 11931 12020 12032 12246 12272 12284 12288 12330 12336 12352 12353 12439 12443 12544 12549 12592 12593 12687 12688 12772 12784 12831 12832 40957 40960 42125 42128 42183 42192 42540 42560 42607 42611 42612 42622 42654 42656 42736 42738 42744 42752 42944 42946 42955 42997 43010 43011 43014 43015 43019 43020 43045 43047 43052 43056 43066 43072 43128 43136 43204 43214 43226 43250 43263 43264 43302 43310 43335 43346 43348 43359 43389 43395 43443 43444 43446 43450 43452 43454 43470 43471 43482 43486 43493 43494 43519 43520 43561 43567 43569 43571 43573 43584 43587 43588 43596 43597 43598 43600 43610 43612 43644 43645 43696 43697 43698 43701 43703 43705 43710 43712 43713 43714 43715 43739 43756 43758 43766 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43884 43888 44005 44006 44008 44009 44013 44016 44026 44032 55204 55216 55239 55243 55292 63744 64110 64112 64218 64256 64263 64275 64280 64285 64286 64287 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64450 64467 64832 64848 64912 64914 64968 65008 65022 65040 65050 65072 65107 65108 65127 65128 65132 65136 65141 65142 65277 65281 65438 65440 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65532 65534 65536 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65792 65795 65799 65844 65847 65935 65936 65949 65952 65953 66000 66045 66176 66205 66208 66257 66273 66300 66304 66340 66349 66379 66384 66422 66432 66462 66463 66500 66504 66518 66560 66718 66720 66730 66736 66772 66776 66812 66816 66856 66864 66916 66927 66928 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67671 67743 67751 67760 67808 67827 67828 67830 67835 67868 67871 67898 67903 67904 67968 68024 68028 68048 68050 68097 68112 68116 68117 68120 68121 68150 68160 68169 68176 68185 68192 68256 68288 68325 68331 68343 68352 68406 68409 68438 68440 68467 68472 68498 68505 68509 68521 68528 68608 68681 68736 68787 68800 68851 68858 68900 68912 68922 69216 69247 69248 69290 69293 69294 69296 69298 69376 69416 69424 69446 69457 69466 69552 69580 69600 69623 69632 69633 69634 69688 69703 69710 69714 69744 69762 69811 69815 69817 69819 69821 69822 69826 69840 69865 69872 69882 69891 69927 69932 69933 69942 69960 69968 70003 70004 70007 70018 70070 70079 70089 70093 70095 70096 70112 70113 70133 70144 70162 70163 70191 70194 70196 70197 70198 70200 70206 70272 70279 70280 70281 70282 70286 70287 70302 70303 70314 70320 70367 70368 70371 70384 70394 70402 70404 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70461 70462 70463 70464 70465 70469 70471 70473 70475 70478 70480 70481 70493 70500 70656 70712 70720 70722 70725 70726 70727 70748 70749 70750 70751 70754 70784 70832 70833 70835 70841 70842 70843 70845 70846 70847 70849 70850 70852 70856 70864 70874 71040 71087 71088 71090 71096 71100 71102 71103 71105 71132 71168 71219 71227 71229 71230 71231 71233 71237 71248 71258 71264 71277 71296 71339 71340 71341 71342 71344 71350 71351 71352 71353 71360 71370 71424 71451 71456 71458 71462 71463 71472 71488 71680 71727 71736 71737 71739 71740 71840 71923 71935 71943 71945 71946 71948 71956 71957 71959 71960 71984 71985 71990 71991 71993 71997 71998 71999 72003 72004 72007 72016 72026 72096 72104 72106 72148 72156 72160 72161 72165 72192 72193 72203 72243 72249 72251 72255 72263 72272 72273 72279 72281 72284 72330 72343 72344 72346 72355 72384 72441 72704 72713 72714 72752 72766 72767 72768 72774 72784 72813 72816 72848 72873 72874 72881 72882 72884 72885 72960 72967 72968 72970 72971 73009 73030 73031 73040 73050 73056 73062 73063 73065 73066 73103 73107 73109 73110 73111 73112 73113 73120 73130 73440 73459 73461 73465 73648 73649 73664 73714 73727 74650 74752 74863 74864 74869 74880 75076 77824 78895 82944 83527 92160 92729 92736 92767 92768 92778 92782 92784 92880 92910 92917 92918 92928 92976 92983 92998 93008 93018 93019 93026 93027 93048 93053 93072 93760 93851 93952 94027 94032 94088 94099 94112 94176 94180 94192 94194 94208 100344 100352 101590 101632 101641 110592 110879 110928 110931 110948 110952 110960 111356 113664 113771 113776 113789 113792 113801 113808 113818 113820 113821 113823 113824 118784 119030 119040 119079 119081 119141 119142 119143 119146 119150 119171 119173 119180 119210 119214 119273 119296 119362 119365 119366 119520 119540 119552 119639 119648 119673 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 121344 121399 121403 121453 121461 121462 121476 121477 121484 123136 123181 123191 123198 123200 123210 123214 123216 123584 123628 123632 123642 123647 123648 124928 125125 125127 125136 125184 125252 125259 125260 125264 125274 125278 125280 126065 126133 126209 126270 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 126704 126706 126976 127020 127024 127124 127136 127151 127153 127168 127169 127184 127185 127222 127232 127406 127462 127491 127504 127548 127552 127561 127568 127570 127584 127590 127744 128728 128736 128749 128752 128765 128768 128884 128896 128985 128992 129004 129024 129036 129040 129096 129104 129114 129120 129160 129168 129198 129200 129202 129280 129401 129402 129484 129485 129620 129632 129646 129648 129653 129656 129659 129664 129671 129680 129705 129712 129719 129728 129731 129744 129751 129792 129939 129940 129995 130032 130042 131072 173790 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196608 201547 END PK ! �>� 5.34.0/unicore/lib/Nt/Nu.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V302 188 191 2548 2554 2930 2936 3056 3059 3192 3199 3416 3423 3440 3449 3882 3892 4978 4989 5870 5873 6128 6138 8528 8579 8581 8586 9321 9332 9341 9352 9361 9372 9451 9461 9470 9471 10111 10112 10121 10122 10131 10132 11517 11518 12295 12296 12321 12330 12344 12347 12690 12694 12832 12842 12872 12880 12881 12896 12928 12938 12977 12992 13317 13318 13443 13444 14378 14379 15181 15182 19968 19969 19971 19972 19975 19976 19977 19978 20061 20062 20108 20109 20116 20117 20118 20119 20159 20161 20191 20192 20200 20201 20237 20238 20336 20337 20740 20741 20806 20807 20841 20842 20843 20844 20845 20846 21313 21314 21315 21318 21324 21325 21441 21445 22235 22236 22769 22770 22777 22778 24186 24187 24318 24320 24332 24335 24336 24337 25342 25343 25420 25421 26578 26579 28422 28423 29590 29591 30334 30335 32902 32903 33836 33837 36014 36015 36019 36020 36144 36145 38433 38434 38470 38471 38476 38477 38520 38521 38646 38647 42726 42736 43056 43062 63851 63852 63859 63860 63864 63865 63922 63923 63953 63954 63955 63956 63997 63998 65799 65844 65856 65913 65930 65932 66273 66300 66336 66340 66369 66370 66378 66379 66513 66518 67672 67680 67705 67712 67751 67760 67835 67840 67862 67868 68028 68030 68032 68048 68050 68096 68164 68169 68221 68223 68253 68256 68331 68336 68440 68448 68472 68480 68521 68528 68858 68864 69225 69247 69405 69415 69457 69461 69573 69580 69723 69734 70113 70133 71482 71484 71914 71923 72794 72813 73664 73685 74752 74863 93019 93026 93824 93847 119520 119540 119648 119673 125127 125136 126065 126124 126125 126128 126129 126133 126209 126254 126255 126270 127243 127245 131073 131074 131172 131173 131298 131299 131361 131362 133418 133419 133507 133508 133516 133517 133532 133533 133866 133867 133885 133886 133913 133914 140176 140177 141720 141721 146203 146204 156269 156270 194704 194705 END PK ! ��T#` ` 5.34.0/unicore/lib/Nt/None.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V411 0 48 58 178 180 185 186 188 191 1632 1642 1776 1786 1984 1994 2406 2416 2534 2544 2548 2554 2662 2672 2790 2800 2918 2928 2930 2936 3046 3059 3174 3184 3192 3199 3302 3312 3416 3423 3430 3449 3558 3568 3664 3674 3792 3802 3872 3892 4160 4170 4240 4250 4969 4989 5870 5873 6112 6122 6128 6138 6160 6170 6470 6480 6608 6619 6784 6794 6800 6810 6992 7002 7088 7098 7232 7242 7248 7258 8304 8305 8308 8314 8320 8330 8528 8579 8581 8586 9312 9372 9450 9472 10102 10132 11517 11518 12295 12296 12321 12330 12344 12347 12690 12694 12832 12842 12872 12880 12881 12896 12928 12938 12977 12992 13317 13318 13443 13444 14378 14379 15181 15182 19968 19969 19971 19972 19975 19976 19977 19978 20061 20062 20108 20109 20116 20117 20118 20119 20159 20161 20191 20192 20200 20201 20237 20238 20336 20337 20740 20741 20806 20807 20841 20842 20843 20844 20845 20846 21313 21314 21315 21318 21324 21325 21441 21445 22235 22236 22769 22770 22777 22778 24186 24187 24318 24320 24332 24335 24336 24337 25342 25343 25420 25421 26578 26579 28422 28423 29590 29591 30334 30335 32902 32903 33836 33837 36014 36015 36019 36020 36144 36145 38433 38434 38470 38471 38476 38477 38520 38521 38646 38647 42528 42538 42726 42736 43056 43062 43216 43226 43264 43274 43472 43482 43504 43514 43600 43610 44016 44026 63851 63852 63859 63860 63864 63865 63922 63923 63953 63954 63955 63956 63997 63998 65296 65306 65799 65844 65856 65913 65930 65932 66273 66300 66336 66340 66369 66370 66378 66379 66513 66518 66720 66730 67672 67680 67705 67712 67751 67760 67835 67840 67862 67868 68028 68030 68032 68048 68050 68096 68160 68169 68221 68223 68253 68256 68331 68336 68440 68448 68472 68480 68521 68528 68858 68864 68912 68922 69216 69247 69405 69415 69457 69461 69573 69580 69714 69744 69872 69882 69942 69952 70096 70106 70113 70133 70384 70394 70736 70746 70864 70874 71248 71258 71360 71370 71472 71484 71904 71923 72016 72026 72784 72813 73040 73050 73120 73130 73664 73685 74752 74863 92768 92778 93008 93018 93019 93026 93824 93847 119520 119540 119648 119673 120782 120832 123200 123210 123632 123642 125127 125136 125264 125274 126065 126124 126125 126128 126129 126133 126209 126254 126255 126270 127232 127245 130032 130042 131073 131074 131172 131173 131298 131299 131361 131362 133418 133419 133507 133508 133516 133517 133532 133533 133866 133867 133885 133886 133913 133914 140176 140177 141720 141721 146203 146204 156269 156270 194704 194705 END PK ! U�ݿ � 5.34.0/unicore/lib/Nt/Di.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V40 178 180 185 186 4969 4978 6618 6619 8304 8305 8308 8314 8320 8330 9312 9321 9332 9341 9352 9361 9450 9451 9461 9470 9471 9472 10102 10111 10112 10121 10122 10131 68160 68164 69216 69225 69714 69723 127232 127243 END PK ! ��+� � 5.34.0/unicore/lib/EBase/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V76 9757 9758 9977 9978 9994 9998 127877 127878 127938 127941 127943 127944 127946 127949 128066 128068 128070 128081 128102 128121 128124 128125 128129 128132 128133 128136 128143 128144 128145 128146 128170 128171 128372 128374 128378 128379 128400 128401 128405 128407 128581 128584 128587 128592 128675 128676 128692 128695 128704 128705 128716 128717 129292 129293 129295 129296 129304 129312 129318 129319 129328 129338 129340 129343 129399 129400 129461 129463 129464 129466 129467 129468 129485 129488 129489 129502 END PK ! ���@� � 5.34.0/unicore/lib/Vo/R.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V177 0 167 168 169 170 174 175 177 178 188 191 215 216 247 248 746 748 4352 4608 5121 5760 6320 6400 8214 8215 8224 8226 8240 8242 8251 8253 8258 8259 8263 8266 8273 8274 8293 8294 8413 8417 8418 8421 8448 8450 8451 8458 8463 8464 8467 8469 8470 8472 8478 8484 8485 8486 8487 8488 8489 8490 8494 8495 8501 8512 8517 8523 8524 8526 8527 8586 8588 8592 8734 8735 8756 8758 8960 8968 8972 8992 8996 9004 9085 9115 9150 9166 9167 9168 9169 9180 9186 9251 9252 9472 9632 9754 9760 10088 10102 10132 11026 11056 11088 11098 11159 11160 11192 11218 11219 11244 11248 11264 11856 11858 11904 42192 43360 43392 44032 55296 57344 64256 65040 65056 65072 65097 65104 65112 65113 65123 65127 65136 65281 65293 65294 65308 65311 65377 65504 65512 65520 65529 65532 65534 67968 68000 71040 71168 72192 72368 77824 78912 82944 83584 94176 101776 110592 111360 118784 119296 119520 119680 120832 121520 126976 129024 129280 129792 131072 196606 196608 262142 983040 1048574 1048576 1114110 END PK ! ��m�� � 5.34.0/unicore/lib/Vo/U.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V254 167 168 169 170 174 175 177 178 188 191 215 216 247 248 746 748 4352 4608 5121 5760 6320 6400 8214 8215 8224 8226 8240 8242 8251 8253 8258 8259 8263 8266 8273 8274 8293 8294 8413 8417 8418 8421 8448 8450 8451 8458 8463 8464 8467 8469 8470 8472 8478 8484 8485 8486 8487 8488 8489 8490 8494 8495 8501 8512 8517 8523 8524 8526 8527 8586 8588 8592 8734 8735 8756 8758 8960 8968 8972 8992 8996 9001 9003 9004 9085 9115 9150 9166 9167 9168 9169 9180 9186 9251 9252 9472 9632 9754 9760 10088 10102 10132 11026 11056 11088 11098 11159 11160 11192 11218 11219 11244 11248 11264 11856 11858 11904 12289 12291 12296 12306 12308 12320 12336 12337 12353 12354 12355 12356 12357 12358 12359 12360 12361 12362 12387 12388 12419 12420 12421 12422 12423 12424 12430 12431 12437 12439 12443 12445 12448 12450 12451 12452 12453 12454 12455 12456 12457 12458 12483 12484 12515 12516 12517 12518 12519 12520 12526 12527 12533 12535 12540 12541 12583 12584 12784 12800 13055 13144 13179 13184 42192 43360 43392 44032 55296 57344 64256 65040 65056 65072 65097 65107 65112 65119 65123 65127 65136 65282 65288 65290 65292 65295 65306 65312 65339 65340 65341 65342 65343 65344 65371 65504 65507 65508 65512 65520 65529 65532 65534 67968 68000 71040 71168 72192 72368 77824 78912 82944 83584 94176 101776 110592 111360 118784 119296 119520 119680 120832 121520 126976 127488 127490 129024 129280 129792 131072 196606 196608 262142 983040 1048574 1048576 1114110 END PK ! (Y�>� � 5.34.0/unicore/lib/Vo/Tr.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V28 9001 9003 12296 12306 12308 12320 12336 12337 12448 12449 12540 12541 65113 65119 65288 65290 65306 65308 65339 65340 65341 65342 65343 65344 65371 65377 65507 65508 END PK ! &� � 5.34.0/unicore/lib/Vo/Tu.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V68 12289 12291 12353 12354 12355 12356 12357 12358 12359 12360 12361 12362 12387 12388 12419 12420 12421 12422 12423 12424 12430 12431 12437 12439 12443 12445 12449 12450 12451 12452 12453 12454 12455 12456 12457 12458 12483 12484 12515 12516 12517 12518 12519 12520 12526 12527 12533 12535 12583 12584 12784 12800 13055 13144 13179 13184 65104 65107 65281 65282 65292 65293 65294 65295 65311 65312 127488 127490 END PK ! ��/& # 5.34.0/unicore/lib/Perl/_PerlAny.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V268 65 91 97 123 181 182 192 215 216 247 248 305 306 312 313 397 398 411 412 426 428 442 444 446 447 448 452 545 546 564 570 597 598 600 601 602 603 605 608 610 611 612 613 615 616 621 623 624 625 627 629 630 637 638 640 641 642 644 647 653 658 659 669 671 700 701 702 703 768 770 775 777 778 779 780 781 787 788 817 818 834 835 837 838 880 884 886 888 891 894 895 896 902 903 904 907 908 909 910 930 931 978 981 1014 1015 1020 1021 1154 1162 1328 1329 1367 1377 1416 4256 4294 4295 4296 4301 4302 4304 4347 4349 4352 5024 5110 5112 5118 7296 7305 7312 7355 7357 7360 7545 7546 7549 7550 7566 7567 7680 7836 7838 7839 7840 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8125 8126 8127 8130 8133 8134 8141 8144 8148 8150 8156 8160 8173 8178 8181 8182 8189 8486 8487 8490 8492 8498 8499 8526 8527 8544 8576 8579 8581 9398 9450 11264 11311 11312 11359 11360 11377 11378 11380 11381 11383 11390 11492 11499 11503 11506 11508 11520 11558 11559 11560 11565 11566 42560 42606 42624 42652 42786 42800 42802 42864 42873 42888 42891 42894 42896 42901 42902 42927 42928 42944 42946 42955 42997 42999 43859 43860 43888 43968 64256 64263 64275 64280 65313 65339 65345 65371 66560 66640 66736 66772 66776 66812 68736 68787 68800 68851 71840 71904 93760 93824 125184 125252 END PK ! ����J" J" 5.34.0/unicore/lib/Perl/Alnum.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1464 48 58 65 91 97 123 170 171 181 182 186 187 192 215 216 247 248 706 710 722 736 741 748 749 750 751 837 838 880 885 886 888 890 894 895 896 902 903 904 907 908 909 910 930 931 1014 1015 1154 1162 1328 1329 1367 1369 1370 1376 1417 1456 1470 1471 1472 1473 1475 1476 1478 1479 1480 1488 1515 1519 1523 1552 1563 1568 1624 1625 1642 1646 1748 1749 1757 1761 1769 1773 1789 1791 1792 1808 1856 1869 1970 1984 2027 2036 2038 2042 2043 2048 2072 2074 2093 2112 2137 2144 2155 2208 2229 2230 2248 2260 2272 2275 2282 2288 2364 2365 2381 2382 2385 2389 2404 2406 2416 2417 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2493 2501 2503 2505 2507 2509 2510 2511 2519 2520 2524 2526 2527 2532 2534 2546 2556 2557 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2622 2627 2631 2633 2635 2637 2641 2642 2649 2653 2654 2655 2662 2678 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2749 2758 2759 2762 2763 2765 2768 2769 2784 2788 2790 2800 2809 2813 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2877 2885 2887 2889 2891 2893 2902 2904 2908 2910 2911 2916 2918 2928 2929 2930 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3021 3024 3025 3031 3032 3046 3056 3072 3076 3077 3085 3086 3089 3090 3113 3114 3130 3133 3141 3142 3145 3146 3149 3157 3159 3160 3163 3168 3172 3174 3184 3200 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3261 3269 3270 3273 3274 3277 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3328 3341 3342 3345 3346 3387 3389 3397 3398 3401 3402 3405 3406 3407 3412 3416 3423 3428 3430 3440 3450 3456 3457 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3535 3541 3542 3543 3544 3552 3558 3568 3570 3572 3585 3643 3648 3655 3661 3662 3664 3674 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3770 3771 3774 3776 3781 3782 3783 3789 3790 3792 3802 3804 3808 3840 3841 3872 3882 3904 3912 3913 3949 3953 3970 3976 3992 3993 4029 4096 4151 4152 4153 4155 4170 4176 4254 4256 4294 4295 4296 4301 4302 4304 4347 4348 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4992 5008 5024 5110 5112 5118 5121 5741 5743 5760 5761 5787 5792 5867 5870 5881 5888 5901 5902 5908 5920 5940 5952 5972 5984 5997 5998 6001 6002 6004 6016 6068 6070 6089 6103 6104 6108 6109 6112 6122 6160 6170 6176 6265 6272 6315 6320 6390 6400 6431 6432 6444 6448 6457 6470 6510 6512 6517 6528 6572 6576 6602 6608 6618 6656 6684 6688 6751 6753 6773 6784 6794 6800 6810 6823 6824 6847 6849 6912 6964 6965 6980 6981 6988 6992 7002 7040 7082 7084 7142 7143 7154 7168 7223 7232 7242 7245 7294 7296 7305 7312 7355 7357 7360 7401 7405 7406 7412 7413 7415 7418 7419 7424 7616 7655 7669 7680 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8125 8126 8127 8130 8133 8134 8141 8144 8148 8150 8156 8160 8173 8178 8181 8182 8189 8305 8306 8319 8320 8336 8349 8450 8451 8455 8456 8458 8468 8469 8470 8473 8478 8484 8485 8486 8487 8488 8489 8490 8494 8495 8506 8508 8512 8517 8522 8526 8527 8544 8585 9398 9450 11264 11311 11312 11359 11360 11493 11499 11503 11506 11508 11520 11558 11559 11560 11565 11566 11568 11624 11631 11632 11648 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11776 11823 11824 12293 12296 12321 12330 12337 12342 12344 12349 12353 12439 12445 12448 12449 12539 12540 12544 12549 12592 12593 12687 12704 12736 12784 12800 13312 19904 19968 40957 40960 42125 42192 42238 42240 42509 42512 42540 42560 42607 42612 42620 42623 42736 42775 42784 42786 42889 42891 42944 42946 42955 42997 43014 43015 43048 43072 43124 43136 43204 43205 43206 43216 43226 43250 43256 43259 43260 43261 43307 43312 43347 43360 43389 43392 43443 43444 43456 43471 43482 43488 43519 43520 43575 43584 43598 43600 43610 43616 43639 43642 43711 43712 43713 43714 43715 43739 43742 43744 43760 43762 43766 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43867 43868 43882 43888 44011 44016 44026 44032 55204 55216 55239 55243 55292 63744 64110 64112 64218 64256 64263 64275 64280 64285 64297 64298 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64830 64848 64912 64914 64968 65008 65020 65136 65141 65142 65277 65296 65306 65313 65339 65345 65371 65382 65471 65474 65480 65482 65488 65490 65496 65498 65501 65536 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65856 65909 66176 66205 66208 66257 66304 66336 66349 66379 66384 66427 66432 66462 66464 66500 66504 66512 66513 66518 66560 66718 66720 66730 66736 66772 66776 66812 66816 66856 66864 66916 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67680 67703 67712 67743 67808 67827 67828 67830 67840 67862 67872 67898 67968 68024 68030 68032 68096 68100 68101 68103 68108 68116 68117 68120 68121 68150 68192 68221 68224 68253 68288 68296 68297 68325 68352 68406 68416 68438 68448 68467 68480 68498 68608 68681 68736 68787 68800 68851 68864 68904 68912 68922 69248 69290 69291 69293 69296 69298 69376 69405 69415 69416 69424 69446 69552 69573 69600 69623 69632 69702 69734 69744 69762 69817 69840 69865 69872 69882 69888 69939 69942 69952 69956 69960 69968 70003 70006 70007 70016 70080 70081 70085 70094 70107 70108 70109 70144 70162 70163 70197 70199 70200 70206 70207 70272 70279 70280 70281 70282 70286 70287 70302 70303 70313 70320 70377 70384 70394 70400 70404 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70461 70469 70471 70473 70475 70477 70480 70481 70487 70488 70493 70500 70656 70722 70723 70726 70727 70731 70736 70746 70751 70754 70784 70850 70852 70854 70855 70856 70864 70874 71040 71094 71096 71103 71128 71134 71168 71231 71232 71233 71236 71237 71248 71258 71296 71350 71352 71353 71360 71370 71424 71451 71453 71467 71472 71482 71680 71737 71840 71914 71935 71943 71945 71946 71948 71956 71957 71959 71960 71990 71991 71993 71995 71997 71999 72003 72016 72026 72096 72104 72106 72152 72154 72160 72161 72162 72163 72165 72192 72243 72245 72255 72272 72344 72349 72350 72384 72441 72704 72713 72714 72759 72760 72767 72768 72769 72784 72794 72818 72848 72850 72872 72873 72887 72960 72967 72968 72970 72971 73015 73018 73019 73020 73022 73023 73026 73027 73028 73030 73032 73040 73050 73056 73062 73063 73065 73066 73103 73104 73106 73107 73111 73112 73113 73120 73130 73440 73463 73648 73649 73728 74650 74752 74863 74880 75076 77824 78895 82944 83527 92160 92729 92736 92767 92768 92778 92880 92910 92928 92976 92992 92996 93008 93018 93027 93048 93053 93072 93760 93824 93952 94027 94031 94088 94095 94112 94176 94178 94179 94180 94192 94194 94208 100344 100352 101590 101632 101641 110592 110879 110928 110931 110948 110952 110960 111356 113664 113771 113776 113789 113792 113801 113808 113818 113822 113823 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120513 120514 120539 120540 120571 120572 120597 120598 120629 120630 120655 120656 120687 120688 120713 120714 120745 120746 120771 120772 120780 120782 120832 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123136 123181 123191 123198 123200 123210 123214 123215 123584 123628 123632 123642 124928 125125 125184 125252 125255 125256 125259 125260 125264 125274 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 127280 127306 127312 127338 127344 127370 130032 130042 131072 173790 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196608 201547 END PK ! �<q q # 5.34.0/unicore/lib/Perl/_PerlQuo.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V78 0 48 58 65 91 95 96 97 123 168 169 170 171 175 176 178 182 183 187 188 191 192 215 216 247 248 847 848 1564 1565 4447 4449 5760 5761 6068 6070 6155 6159 8192 8255 8257 8276 8277 8304 8592 9312 9472 10102 10132 11264 11776 11904 12288 12292 12296 12321 12336 12337 12644 12645 64830 64832 65024 65040 65093 65095 65279 65280 65440 65441 65520 65529 113824 113828 119155 119163 917504 921600 END PK ! �ح�� � 5.34.0/unicore/lib/Perl/Graph.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1364 33 127 161 888 890 896 900 907 908 909 910 930 931 1328 1329 1367 1369 1419 1421 1424 1425 1480 1488 1515 1519 1525 1536 1565 1566 1806 1807 1867 1869 1970 1984 2043 2045 2094 2096 2111 2112 2140 2142 2143 2144 2155 2208 2229 2230 2248 2259 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2559 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2679 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2802 2809 2816 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2901 2904 2908 2910 2911 2916 2918 2936 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3067 3072 3085 3086 3089 3090 3113 3114 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3163 3168 3172 3174 3184 3191 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3328 3341 3342 3345 3346 3397 3398 3401 3402 3408 3412 3428 3430 3456 3457 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3558 3568 3570 3573 3585 3643 3647 3676 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3808 3840 3912 3913 3949 3953 3992 3993 4029 4030 4045 4046 4059 4096 4294 4295 4296 4301 4302 4304 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4989 4992 5018 5024 5110 5112 5118 5120 5760 5761 5789 5792 5881 5888 5901 5902 5909 5920 5943 5952 5972 5984 5997 5998 6001 6002 6004 6016 6110 6112 6122 6128 6138 6144 6159 6160 6170 6176 6265 6272 6315 6320 6390 6400 6431 6432 6444 6448 6460 6464 6465 6468 6510 6512 6517 6528 6572 6576 6602 6608 6619 6622 6684 6686 6751 6752 6781 6783 6794 6800 6810 6816 6830 6832 6849 6912 6988 6992 7037 7040 7156 7164 7224 7227 7242 7245 7305 7312 7355 7357 7368 7376 7419 7424 7674 7675 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8203 8232 8234 8239 8240 8287 8288 8293 8294 8306 8308 8335 8336 8349 8352 8384 8400 8433 8448 8588 8592 9255 9280 9291 9312 11124 11126 11158 11159 11311 11312 11359 11360 11508 11513 11558 11559 11560 11565 11566 11568 11624 11631 11633 11647 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11859 11904 11930 11931 12020 12032 12246 12272 12284 12289 12352 12353 12439 12441 12544 12549 12592 12593 12687 12688 12772 12784 12831 12832 40957 40960 42125 42128 42183 42192 42540 42560 42744 42752 42944 42946 42955 42997 43053 43056 43066 43072 43128 43136 43206 43214 43226 43232 43348 43359 43389 43392 43470 43471 43482 43486 43519 43520 43575 43584 43598 43600 43610 43612 43715 43739 43767 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43884 43888 44014 44016 44026 44032 55204 55216 55239 55243 55292 57344 64110 64112 64218 64256 64263 64275 64280 64285 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64450 64467 64832 64848 64912 64914 64968 65008 65022 65024 65050 65056 65107 65108 65127 65128 65132 65136 65141 65142 65277 65279 65280 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65529 65534 65536 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65792 65795 65799 65844 65847 65935 65936 65949 65952 65953 66000 66046 66176 66205 66208 66257 66272 66300 66304 66340 66349 66379 66384 66427 66432 66462 66463 66500 66504 66518 66560 66718 66720 66730 66736 66772 66776 66812 66816 66856 66864 66916 66927 66928 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67671 67743 67751 67760 67808 67827 67828 67830 67835 67868 67871 67898 67903 67904 67968 68024 68028 68048 68050 68100 68101 68103 68108 68116 68117 68120 68121 68150 68152 68155 68159 68169 68176 68185 68192 68256 68288 68327 68331 68343 68352 68406 68409 68438 68440 68467 68472 68498 68505 68509 68521 68528 68608 68681 68736 68787 68800 68851 68858 68904 68912 68922 69216 69247 69248 69290 69291 69294 69296 69298 69376 69416 69424 69466 69552 69580 69600 69623 69632 69710 69714 69744 69759 69826 69837 69838 69840 69865 69872 69882 69888 69941 69942 69960 69968 70007 70016 70112 70113 70133 70144 70162 70163 70207 70272 70279 70280 70281 70282 70286 70287 70302 70303 70314 70320 70379 70384 70394 70400 70404 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70459 70469 70471 70473 70475 70478 70480 70481 70487 70488 70493 70500 70502 70509 70512 70517 70656 70748 70749 70754 70784 70856 70864 70874 71040 71094 71096 71134 71168 71237 71248 71258 71264 71277 71296 71353 71360 71370 71424 71451 71453 71468 71472 71488 71680 71740 71840 71923 71935 71943 71945 71946 71948 71956 71957 71959 71960 71990 71991 71993 71995 72007 72016 72026 72096 72104 72106 72152 72154 72165 72192 72264 72272 72355 72384 72441 72704 72713 72714 72759 72760 72774 72784 72813 72816 72848 72850 72872 72873 72887 72960 72967 72968 72970 72971 73015 73018 73019 73020 73022 73023 73032 73040 73050 73056 73062 73063 73065 73066 73103 73104 73106 73107 73113 73120 73130 73440 73465 73648 73649 73664 73714 73727 74650 74752 74863 74864 74869 74880 75076 77824 78895 78896 78905 82944 83527 92160 92729 92736 92767 92768 92778 92782 92784 92880 92910 92912 92918 92928 92998 93008 93018 93019 93026 93027 93048 93053 93072 93760 93851 93952 94027 94031 94088 94095 94112 94176 94181 94192 94194 94208 100344 100352 101590 101632 101641 110592 110879 110928 110931 110948 110952 110960 111356 113664 113771 113776 113789 113792 113801 113808 113818 113820 113828 118784 119030 119040 119079 119081 119273 119296 119366 119520 119540 119552 119639 119648 119673 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 121484 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123136 123181 123184 123198 123200 123210 123214 123216 123584 123642 123647 123648 124928 125125 125127 125143 125184 125260 125264 125274 125278 125280 126065 126133 126209 126270 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 126704 126706 126976 127020 127024 127124 127136 127151 127153 127168 127169 127184 127185 127222 127232 127406 127462 127491 127504 127548 127552 127561 127568 127570 127584 127590 127744 128728 128736 128749 128752 128765 128768 128884 128896 128985 128992 129004 129024 129036 129040 129096 129104 129114 129120 129160 129168 129198 129200 129202 129280 129401 129402 129484 129485 129620 129632 129646 129648 129653 129656 129659 129664 129671 129680 129705 129712 129719 129728 129731 129744 129751 129792 129939 129940 129995 130032 130042 131072 173790 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196608 201547 917505 917506 917536 917632 917760 918000 983040 1048574 1048576 1114110 END PK ! ���$ # 5.34.0/unicore/lib/Perl/PerlWord.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 48 58 65 91 95 96 97 123 END PK ! Y��_� � # 5.34.0/unicore/lib/Perl/XPosixPu.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V360 33 48 58 65 91 97 123 127 161 162 167 168 171 172 182 184 187 188 191 192 894 895 903 904 1370 1376 1417 1419 1470 1471 1472 1473 1475 1476 1478 1479 1523 1525 1545 1547 1548 1550 1563 1564 1566 1568 1642 1646 1748 1749 1792 1806 2039 2042 2096 2111 2142 2143 2404 2406 2416 2417 2557 2558 2678 2679 2800 2801 3191 3192 3204 3205 3572 3573 3663 3664 3674 3676 3844 3859 3860 3861 3898 3902 3973 3974 4048 4053 4057 4059 4170 4176 4347 4348 4960 4969 5120 5121 5742 5743 5787 5789 5867 5870 5941 5943 6100 6103 6104 6107 6144 6155 6468 6470 6686 6688 6816 6823 6824 6830 7002 7009 7164 7168 7227 7232 7294 7296 7360 7368 7379 7380 8208 8232 8240 8260 8261 8274 8275 8287 8317 8319 8333 8335 8968 8972 9001 9003 10088 10102 10181 10183 10214 10224 10627 10649 10712 10716 10748 10750 11513 11517 11518 11520 11632 11633 11776 11823 11824 11856 11858 11859 12289 12292 12296 12306 12308 12320 12336 12337 12349 12350 12448 12449 12539 12540 42238 42240 42509 42512 42611 42612 42622 42623 42738 42744 43124 43128 43214 43216 43256 43259 43260 43261 43310 43312 43359 43360 43457 43470 43486 43488 43612 43616 43742 43744 43760 43762 44011 44012 64830 64832 65040 65050 65072 65107 65108 65122 65123 65124 65128 65129 65130 65132 65281 65284 65285 65291 65292 65296 65306 65308 65311 65313 65339 65342 65343 65344 65371 65372 65373 65374 65375 65382 65792 65795 66463 66464 66512 66513 66927 66928 67671 67672 67871 67872 67903 67904 68176 68185 68223 68224 68336 68343 68409 68416 68505 68509 69293 69294 69461 69466 69703 69710 69819 69821 69822 69826 69952 69956 70004 70006 70085 70089 70093 70094 70107 70108 70109 70112 70200 70206 70313 70314 70731 70736 70746 70748 70749 70750 70854 70855 71105 71128 71233 71236 71264 71277 71484 71487 71739 71740 72004 72007 72162 72163 72255 72263 72346 72349 72350 72355 72769 72774 72816 72818 73463 73465 73727 73728 74864 74869 92782 92784 92917 92918 92983 92988 92996 92997 93847 93851 94178 94179 113823 113824 121479 121484 125278 125280 END PK ! j � [ [ # 5.34.0/unicore/lib/Perl/_PerlPro.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V26 0 256 304 306 329 330 376 377 383 384 496 497 775 776 924 925 956 957 7830 7835 7838 7839 8490 8492 64256 64263 END PK ! �</�2 2 5.34.0/unicore/lib/Perl/Blank.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V16 9 10 32 33 160 161 5760 5761 8192 8203 8239 8240 8287 8288 12288 12289 END PK ! ��m2 # 5.34.0/unicore/lib/Perl/_PerlPat.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V10 9 14 32 33 133 134 8206 8208 8232 8234 END PK ! :���" �" # 5.34.0/unicore/lib/Perl/_PerlCh2.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1480 32 33 40 42 45 46 48 58 65 91 95 96 97 123 170 171 181 182 186 187 192 215 216 247 248 706 710 722 736 741 748 749 750 751 768 885 886 888 891 894 895 896 902 903 904 907 908 909 910 930 931 1014 1015 1154 1155 1160 1162 1328 1329 1367 1369 1370 1376 1417 1425 1470 1471 1472 1473 1475 1476 1478 1479 1480 1488 1515 1519 1523 1552 1563 1568 1642 1646 1748 1749 1757 1759 1769 1770 1789 1791 1792 1808 1867 1869 1970 1984 2038 2042 2043 2045 2046 2048 2094 2112 2140 2144 2155 2208 2229 2230 2248 2259 2274 2275 2404 2406 2416 2417 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2546 2556 2557 2558 2559 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2678 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2800 2809 2816 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2901 2904 2908 2910 2911 2916 2918 2928 2929 2930 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3056 3072 3085 3086 3089 3090 3113 3114 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3163 3168 3172 3174 3184 3200 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3328 3341 3342 3345 3346 3397 3398 3401 3402 3407 3412 3416 3423 3428 3430 3440 3450 3456 3457 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3558 3568 3570 3572 3585 3643 3648 3663 3664 3674 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3808 3840 3841 3864 3866 3872 3882 3893 3894 3895 3896 3897 3898 3902 3912 3913 3949 3953 3973 3974 3992 3993 4029 4038 4039 4096 4170 4176 4254 4256 4294 4295 4296 4301 4302 4304 4347 4348 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4960 4992 5008 5024 5110 5112 5118 5121 5741 5743 5760 5761 5787 5792 5867 5870 5881 5888 5901 5902 5909 5920 5941 5952 5972 5984 5997 5998 6001 6002 6004 6016 6100 6103 6104 6108 6110 6112 6122 6155 6158 6160 6170 6176 6265 6272 6315 6320 6390 6400 6431 6432 6444 6448 6460 6470 6510 6512 6517 6528 6572 6576 6602 6608 6618 6656 6684 6688 6751 6752 6781 6783 6794 6800 6810 6823 6824 6832 6846 6847 6849 6912 6988 6992 7002 7019 7028 7040 7156 7168 7224 7232 7242 7245 7294 7296 7305 7312 7355 7357 7360 7376 7379 7380 7419 7424 7674 7675 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8125 8126 8127 8130 8133 8134 8141 8144 8148 8150 8156 8160 8173 8178 8181 8182 8189 8255 8257 8276 8277 8305 8306 8319 8320 8336 8349 8400 8413 8417 8418 8421 8433 8450 8451 8455 8456 8458 8468 8469 8470 8473 8478 8484 8485 8486 8487 8488 8489 8490 8494 8495 8506 8508 8512 8517 8522 8526 8527 8544 8585 11264 11311 11312 11359 11360 11493 11499 11508 11520 11558 11559 11560 11565 11566 11568 11624 11631 11632 11647 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11776 12293 12296 12321 12336 12337 12342 12344 12349 12353 12439 12441 12443 12445 12448 12449 12539 12540 12544 12549 12592 12593 12687 12704 12736 12784 12800 13312 19904 19968 40957 40960 42125 42192 42238 42240 42509 42512 42540 42560 42608 42612 42622 42623 42738 42775 42784 42786 42889 42891 42944 42946 42955 42997 43048 43052 43053 43072 43124 43136 43206 43216 43226 43232 43256 43259 43260 43261 43310 43312 43348 43360 43389 43392 43457 43471 43482 43488 43519 43520 43575 43584 43598 43600 43610 43616 43639 43642 43715 43739 43742 43744 43760 43762 43767 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43867 43868 43882 43888 44011 44012 44014 44016 44026 44032 55204 55216 55239 55243 55292 63744 64110 64112 64218 64256 64263 64275 64280 64285 64297 64298 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64606 64612 64830 64848 64912 64914 64968 65008 65018 65024 65040 65056 65072 65075 65077 65101 65104 65137 65138 65139 65140 65143 65144 65145 65146 65147 65148 65149 65150 65151 65277 65296 65306 65313 65339 65343 65344 65345 65371 65382 65471 65474 65480 65482 65488 65490 65496 65498 65501 65536 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65856 65909 66045 66046 66176 66205 66208 66257 66272 66273 66304 66336 66349 66379 66384 66427 66432 66462 66464 66500 66504 66512 66513 66518 66560 66718 66720 66730 66736 66772 66776 66812 66816 66856 66864 66916 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67680 67703 67712 67743 67808 67827 67828 67830 67840 67862 67872 67898 67968 68024 68030 68032 68096 68100 68101 68103 68108 68116 68117 68120 68121 68150 68152 68155 68159 68160 68192 68221 68224 68253 68288 68296 68297 68327 68352 68406 68416 68438 68448 68467 68480 68498 68608 68681 68736 68787 68800 68851 68864 68904 68912 68922 69248 69290 69291 69293 69296 69298 69376 69405 69415 69416 69424 69457 69552 69573 69600 69623 69632 69703 69734 69744 69759 69819 69840 69865 69872 69882 69888 69941 69942 69952 69956 69960 69968 70004 70006 70007 70016 70085 70089 70093 70094 70107 70108 70109 70144 70162 70163 70200 70206 70207 70272 70279 70280 70281 70282 70286 70287 70302 70303 70313 70320 70379 70384 70394 70400 70404 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70459 70469 70471 70473 70475 70478 70480 70481 70487 70488 70493 70500 70502 70509 70512 70517 70656 70731 70736 70746 70750 70754 70784 70854 70855 70856 70864 70874 71040 71094 71096 71105 71128 71134 71168 71233 71236 71237 71248 71258 71296 71353 71360 71370 71424 71451 71453 71468 71472 71482 71680 71739 71840 71914 71935 71943 71945 71946 71948 71956 71957 71959 71960 71990 71991 71993 71995 72004 72016 72026 72096 72104 72106 72152 72154 72162 72163 72165 72192 72255 72263 72264 72272 72346 72349 72350 72384 72441 72704 72713 72714 72759 72760 72769 72784 72794 72818 72848 72850 72872 72873 72887 72960 72967 72968 72970 72971 73015 73018 73019 73020 73022 73023 73032 73040 73050 73056 73062 73063 73065 73066 73103 73104 73106 73107 73113 73120 73130 73440 73463 73648 73649 73728 74650 74752 74863 74880 75076 77824 78895 82944 83527 92160 92729 92736 92767 92768 92778 92880 92910 92912 92917 92928 92983 92992 92996 93008 93018 93027 93048 93053 93072 93760 93824 93952 94027 94031 94088 94095 94112 94176 94178 94179 94181 94192 94194 94208 100344 100352 101590 101632 101641 110592 110879 110928 110931 110948 110952 110960 111356 113664 113771 113776 113789 113792 113801 113808 113818 113821 113823 119141 119146 119149 119155 119163 119171 119173 119180 119210 119214 119362 119365 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120513 120514 120539 120540 120571 120572 120597 120598 120629 120630 120655 120656 120687 120688 120713 120714 120745 120746 120771 120772 120780 120782 120832 121344 121399 121403 121453 121461 121462 121476 121477 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123136 123181 123184 123198 123200 123210 123214 123215 123584 123642 124928 125125 125136 125143 125184 125260 125264 125274 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 130032 130042 131072 173790 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196608 201547 917760 918000 END PK ! �� �G G 5.34.0/unicore/lib/Perl/Title.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V20 453 454 456 457 459 460 498 499 8072 8080 8088 8096 8104 8112 8124 8125 8140 8141 8188 8189 END PK ! h �� � # 5.34.0/unicore/lib/Perl/_PerlCha.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1256 65 91 97 123 170 171 181 182 186 187 192 215 216 247 248 706 710 722 736 741 748 749 750 751 880 885 886 888 891 894 895 896 902 903 904 907 908 909 910 930 931 1014 1015 1154 1162 1328 1329 1367 1369 1370 1376 1417 1488 1515 1519 1523 1568 1611 1646 1648 1649 1748 1749 1750 1765 1767 1774 1776 1786 1789 1791 1792 1808 1809 1810 1840 1869 1958 1969 1970 1994 2027 2036 2038 2042 2043 2048 2070 2074 2075 2084 2085 2088 2089 2112 2137 2144 2155 2208 2229 2230 2248 2308 2362 2365 2366 2384 2385 2392 2402 2417 2433 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2493 2494 2510 2511 2524 2526 2527 2530 2544 2546 2556 2557 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2649 2653 2654 2655 2674 2677 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2749 2750 2768 2769 2784 2786 2809 2810 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2877 2878 2908 2910 2911 2914 2929 2930 2947 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3024 3025 3077 3085 3086 3089 3090 3113 3114 3130 3133 3134 3160 3163 3168 3170 3200 3201 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3261 3262 3294 3295 3296 3298 3313 3315 3332 3341 3342 3345 3346 3387 3389 3390 3406 3407 3412 3415 3423 3426 3450 3456 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3585 3633 3634 3635 3648 3655 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3761 3762 3763 3773 3774 3776 3781 3782 3783 3804 3808 3840 3841 3904 3912 3913 3949 3976 3981 4096 4139 4159 4160 4176 4182 4186 4190 4193 4194 4197 4199 4206 4209 4213 4226 4238 4239 4256 4294 4295 4296 4301 4302 4304 4347 4348 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4992 5008 5024 5110 5112 5118 5121 5741 5743 5760 5761 5787 5792 5867 5873 5881 5888 5901 5902 5906 5920 5938 5952 5970 5984 5997 5998 6001 6016 6068 6103 6104 6108 6109 6176 6265 6272 6277 6279 6313 6314 6315 6320 6390 6400 6431 6480 6510 6512 6517 6528 6572 6576 6602 6656 6679 6688 6741 6823 6824 6917 6964 6981 6988 7043 7073 7086 7088 7098 7142 7168 7204 7245 7248 7258 7294 7296 7305 7312 7355 7357 7360 7401 7405 7406 7412 7413 7415 7418 7419 7424 7616 7680 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8125 8126 8127 8130 8133 8134 8141 8144 8148 8150 8156 8160 8173 8178 8181 8182 8189 8305 8306 8319 8320 8336 8349 8450 8451 8455 8456 8458 8468 8469 8470 8473 8478 8484 8485 8486 8487 8488 8489 8490 8494 8495 8506 8508 8512 8517 8522 8526 8527 8579 8581 11264 11311 11312 11359 11360 11493 11499 11503 11506 11508 11520 11558 11559 11560 11565 11566 11568 11624 11631 11632 11648 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 12293 12295 12337 12342 12347 12349 12353 12439 12445 12448 12449 12539 12540 12544 12549 12592 12593 12687 12704 12736 12784 12800 13312 19904 19968 40957 40960 42125 42192 42238 42240 42509 42512 42528 42538 42540 42560 42607 42623 42654 42656 42726 42775 42784 42786 42889 42891 42944 42946 42955 42997 43010 43011 43014 43015 43019 43020 43043 43072 43124 43138 43188 43250 43256 43259 43260 43261 43263 43274 43302 43312 43335 43360 43389 43396 43443 43471 43472 43488 43493 43494 43504 43514 43519 43520 43561 43584 43587 43588 43596 43616 43639 43642 43643 43646 43696 43697 43698 43701 43703 43705 43710 43712 43713 43714 43715 43739 43742 43744 43755 43762 43765 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43867 43868 43882 43888 44003 44032 55204 55216 55239 55243 55292 63744 64110 64112 64218 64256 64263 64275 64280 64285 64286 64287 64297 64298 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64606 64612 64830 64848 64912 64914 64968 65008 65018 65137 65138 65139 65140 65143 65144 65145 65146 65147 65148 65149 65150 65151 65277 65313 65339 65345 65371 65382 65438 65440 65471 65474 65480 65482 65488 65490 65496 65498 65501 65536 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 66176 66205 66208 66257 66304 66336 66349 66369 66370 66378 66384 66422 66432 66462 66464 66500 66504 66512 66560 66718 66736 66772 66776 66812 66816 66856 66864 66916 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67680 67703 67712 67743 67808 67827 67828 67830 67840 67862 67872 67898 67968 68024 68030 68032 68096 68097 68112 68116 68117 68120 68121 68150 68192 68221 68224 68253 68288 68296 68297 68325 68352 68406 68416 68438 68448 68467 68480 68498 68608 68681 68736 68787 68800 68851 68864 68900 69248 69290 69296 69298 69376 69405 69415 69416 69424 69446 69552 69573 69600 69623 69635 69688 69763 69808 69840 69865 69891 69927 69956 69957 69959 69960 69968 70003 70006 70007 70019 70067 70081 70085 70106 70107 70108 70109 70144 70162 70163 70188 70272 70279 70280 70281 70282 70286 70287 70302 70303 70313 70320 70367 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70461 70462 70480 70481 70493 70498 70656 70709 70727 70731 70751 70754 70784 70832 70852 70854 70855 70856 71040 71087 71128 71132 71168 71216 71236 71237 71296 71339 71352 71353 71424 71451 71680 71724 71840 71904 71935 71943 71945 71946 71948 71956 71957 71959 71960 71984 71999 72000 72001 72002 72096 72104 72106 72145 72161 72162 72163 72164 72192 72193 72203 72243 72250 72251 72272 72273 72284 72330 72349 72350 72384 72441 72704 72713 72714 72751 72768 72769 72818 72848 72960 72967 72968 72970 72971 73009 73030 73031 73056 73062 73063 73065 73066 73098 73112 73113 73440 73459 73648 73649 73728 74650 74880 75076 77824 78895 82944 83527 92160 92729 92736 92767 92880 92910 92928 92976 92992 92996 93027 93048 93053 93072 93760 93824 93952 94027 94032 94033 94099 94112 94176 94178 94179 94180 94208 100344 100352 101590 101632 101641 110592 110879 110928 110931 110948 110952 110960 111356 113664 113771 113776 113789 113792 113801 113808 113818 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120513 120514 120539 120540 120571 120572 120597 120598 120629 120630 120655 120656 120687 120688 120713 120714 120745 120746 120771 120772 120780 123136 123181 123191 123198 123214 123215 123584 123628 124928 125125 125184 125252 125259 125260 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 131072 173790 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196608 201547 END PK ! +�� � # 5.34.0/unicore/lib/Perl/Assigned.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1354 0 888 890 896 900 907 908 909 910 930 931 1328 1329 1367 1369 1419 1421 1424 1425 1480 1488 1515 1519 1525 1536 1565 1566 1806 1807 1867 1869 1970 1984 2043 2045 2094 2096 2111 2112 2140 2142 2143 2144 2155 2208 2229 2230 2248 2259 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2559 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2679 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2802 2809 2816 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2901 2904 2908 2910 2911 2916 2918 2936 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3067 3072 3085 3086 3089 3090 3113 3114 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3163 3168 3172 3174 3184 3191 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3328 3341 3342 3345 3346 3397 3398 3401 3402 3408 3412 3428 3430 3456 3457 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3558 3568 3570 3573 3585 3643 3647 3676 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3808 3840 3912 3913 3949 3953 3992 3993 4029 4030 4045 4046 4059 4096 4294 4295 4296 4301 4302 4304 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4989 4992 5018 5024 5110 5112 5118 5120 5789 5792 5881 5888 5901 5902 5909 5920 5943 5952 5972 5984 5997 5998 6001 6002 6004 6016 6110 6112 6122 6128 6138 6144 6159 6160 6170 6176 6265 6272 6315 6320 6390 6400 6431 6432 6444 6448 6460 6464 6465 6468 6510 6512 6517 6528 6572 6576 6602 6608 6619 6622 6684 6686 6751 6752 6781 6783 6794 6800 6810 6816 6830 6832 6849 6912 6988 6992 7037 7040 7156 7164 7224 7227 7242 7245 7305 7312 7355 7357 7368 7376 7419 7424 7674 7675 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8293 8294 8306 8308 8335 8336 8349 8352 8384 8400 8433 8448 8588 8592 9255 9280 9291 9312 11124 11126 11158 11159 11311 11312 11359 11360 11508 11513 11558 11559 11560 11565 11566 11568 11624 11631 11633 11647 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11859 11904 11930 11931 12020 12032 12246 12272 12284 12288 12352 12353 12439 12441 12544 12549 12592 12593 12687 12688 12772 12784 12831 12832 40957 40960 42125 42128 42183 42192 42540 42560 42744 42752 42944 42946 42955 42997 43053 43056 43066 43072 43128 43136 43206 43214 43226 43232 43348 43359 43389 43392 43470 43471 43482 43486 43519 43520 43575 43584 43598 43600 43610 43612 43715 43739 43767 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43884 43888 44014 44016 44026 44032 55204 55216 55239 55243 55292 55296 64110 64112 64218 64256 64263 64275 64280 64285 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64450 64467 64832 64848 64912 64914 64968 65008 65022 65024 65050 65056 65107 65108 65127 65128 65132 65136 65141 65142 65277 65279 65280 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65529 65534 65536 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65792 65795 65799 65844 65847 65935 65936 65949 65952 65953 66000 66046 66176 66205 66208 66257 66272 66300 66304 66340 66349 66379 66384 66427 66432 66462 66463 66500 66504 66518 66560 66718 66720 66730 66736 66772 66776 66812 66816 66856 66864 66916 66927 66928 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67671 67743 67751 67760 67808 67827 67828 67830 67835 67868 67871 67898 67903 67904 67968 68024 68028 68048 68050 68100 68101 68103 68108 68116 68117 68120 68121 68150 68152 68155 68159 68169 68176 68185 68192 68256 68288 68327 68331 68343 68352 68406 68409 68438 68440 68467 68472 68498 68505 68509 68521 68528 68608 68681 68736 68787 68800 68851 68858 68904 68912 68922 69216 69247 69248 69290 69291 69294 69296 69298 69376 69416 69424 69466 69552 69580 69600 69623 69632 69710 69714 69744 69759 69826 69837 69838 69840 69865 69872 69882 69888 69941 69942 69960 69968 70007 70016 70112 70113 70133 70144 70162 70163 70207 70272 70279 70280 70281 70282 70286 70287 70302 70303 70314 70320 70379 70384 70394 70400 70404 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70459 70469 70471 70473 70475 70478 70480 70481 70487 70488 70493 70500 70502 70509 70512 70517 70656 70748 70749 70754 70784 70856 70864 70874 71040 71094 71096 71134 71168 71237 71248 71258 71264 71277 71296 71353 71360 71370 71424 71451 71453 71468 71472 71488 71680 71740 71840 71923 71935 71943 71945 71946 71948 71956 71957 71959 71960 71990 71991 71993 71995 72007 72016 72026 72096 72104 72106 72152 72154 72165 72192 72264 72272 72355 72384 72441 72704 72713 72714 72759 72760 72774 72784 72813 72816 72848 72850 72872 72873 72887 72960 72967 72968 72970 72971 73015 73018 73019 73020 73022 73023 73032 73040 73050 73056 73062 73063 73065 73066 73103 73104 73106 73107 73113 73120 73130 73440 73465 73648 73649 73664 73714 73727 74650 74752 74863 74864 74869 74880 75076 77824 78895 78896 78905 82944 83527 92160 92729 92736 92767 92768 92778 92782 92784 92880 92910 92912 92918 92928 92998 93008 93018 93019 93026 93027 93048 93053 93072 93760 93851 93952 94027 94031 94088 94095 94112 94176 94181 94192 94194 94208 100344 100352 101590 101632 101641 110592 110879 110928 110931 110948 110952 110960 111356 113664 113771 113776 113789 113792 113801 113808 113818 113820 113828 118784 119030 119040 119079 119081 119273 119296 119366 119520 119540 119552 119639 119648 119673 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 121484 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123136 123181 123184 123198 123200 123210 123214 123216 123584 123642 123647 123648 124928 125125 125127 125143 125184 125260 125264 125274 125278 125280 126065 126133 126209 126270 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 126704 126706 126976 127020 127024 127124 127136 127151 127153 127168 127169 127184 127185 127222 127232 127406 127462 127491 127504 127548 127552 127561 127568 127570 127584 127590 127744 128728 128736 128749 128752 128765 128768 128884 128896 128985 128992 129004 129024 129036 129040 129096 129104 129114 129120 129160 129168 129198 129200 129202 129280 129401 129402 129484 129485 129620 129632 129646 129648 129653 129656 129659 129664 129671 129680 129705 129712 129719 129728 129731 129744 129751 129792 129939 129940 129995 130032 130042 131072 173790 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196608 201547 917505 917506 917536 917632 917760 918000 983040 1048574 1048576 1114110 END PK ! o��][ [ # 5.34.0/unicore/lib/Perl/_PerlPr2.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V26 0 256 304 306 329 330 376 377 383 384 496 497 700 701 924 925 956 957 7830 7835 7838 7839 8490 8492 64256 64263 END PK ! v���� � 5.34.0/unicore/lib/Perl/Print.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1358 32 127 160 888 890 896 900 907 908 909 910 930 931 1328 1329 1367 1369 1419 1421 1424 1425 1480 1488 1515 1519 1525 1536 1565 1566 1806 1807 1867 1869 1970 1984 2043 2045 2094 2096 2111 2112 2140 2142 2143 2144 2155 2208 2229 2230 2248 2259 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2559 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2679 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2802 2809 2816 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2901 2904 2908 2910 2911 2916 2918 2936 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3067 3072 3085 3086 3089 3090 3113 3114 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3163 3168 3172 3174 3184 3191 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3328 3341 3342 3345 3346 3397 3398 3401 3402 3408 3412 3428 3430 3456 3457 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3558 3568 3570 3573 3585 3643 3647 3676 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3808 3840 3912 3913 3949 3953 3992 3993 4029 4030 4045 4046 4059 4096 4294 4295 4296 4301 4302 4304 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4989 4992 5018 5024 5110 5112 5118 5120 5789 5792 5881 5888 5901 5902 5909 5920 5943 5952 5972 5984 5997 5998 6001 6002 6004 6016 6110 6112 6122 6128 6138 6144 6159 6160 6170 6176 6265 6272 6315 6320 6390 6400 6431 6432 6444 6448 6460 6464 6465 6468 6510 6512 6517 6528 6572 6576 6602 6608 6619 6622 6684 6686 6751 6752 6781 6783 6794 6800 6810 6816 6830 6832 6849 6912 6988 6992 7037 7040 7156 7164 7224 7227 7242 7245 7305 7312 7355 7357 7368 7376 7419 7424 7674 7675 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8232 8234 8293 8294 8306 8308 8335 8336 8349 8352 8384 8400 8433 8448 8588 8592 9255 9280 9291 9312 11124 11126 11158 11159 11311 11312 11359 11360 11508 11513 11558 11559 11560 11565 11566 11568 11624 11631 11633 11647 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11859 11904 11930 11931 12020 12032 12246 12272 12284 12288 12352 12353 12439 12441 12544 12549 12592 12593 12687 12688 12772 12784 12831 12832 40957 40960 42125 42128 42183 42192 42540 42560 42744 42752 42944 42946 42955 42997 43053 43056 43066 43072 43128 43136 43206 43214 43226 43232 43348 43359 43389 43392 43470 43471 43482 43486 43519 43520 43575 43584 43598 43600 43610 43612 43715 43739 43767 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43884 43888 44014 44016 44026 44032 55204 55216 55239 55243 55292 57344 64110 64112 64218 64256 64263 64275 64280 64285 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64450 64467 64832 64848 64912 64914 64968 65008 65022 65024 65050 65056 65107 65108 65127 65128 65132 65136 65141 65142 65277 65279 65280 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65529 65534 65536 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65792 65795 65799 65844 65847 65935 65936 65949 65952 65953 66000 66046 66176 66205 66208 66257 66272 66300 66304 66340 66349 66379 66384 66427 66432 66462 66463 66500 66504 66518 66560 66718 66720 66730 66736 66772 66776 66812 66816 66856 66864 66916 66927 66928 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67671 67743 67751 67760 67808 67827 67828 67830 67835 67868 67871 67898 67903 67904 67968 68024 68028 68048 68050 68100 68101 68103 68108 68116 68117 68120 68121 68150 68152 68155 68159 68169 68176 68185 68192 68256 68288 68327 68331 68343 68352 68406 68409 68438 68440 68467 68472 68498 68505 68509 68521 68528 68608 68681 68736 68787 68800 68851 68858 68904 68912 68922 69216 69247 69248 69290 69291 69294 69296 69298 69376 69416 69424 69466 69552 69580 69600 69623 69632 69710 69714 69744 69759 69826 69837 69838 69840 69865 69872 69882 69888 69941 69942 69960 69968 70007 70016 70112 70113 70133 70144 70162 70163 70207 70272 70279 70280 70281 70282 70286 70287 70302 70303 70314 70320 70379 70384 70394 70400 70404 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70459 70469 70471 70473 70475 70478 70480 70481 70487 70488 70493 70500 70502 70509 70512 70517 70656 70748 70749 70754 70784 70856 70864 70874 71040 71094 71096 71134 71168 71237 71248 71258 71264 71277 71296 71353 71360 71370 71424 71451 71453 71468 71472 71488 71680 71740 71840 71923 71935 71943 71945 71946 71948 71956 71957 71959 71960 71990 71991 71993 71995 72007 72016 72026 72096 72104 72106 72152 72154 72165 72192 72264 72272 72355 72384 72441 72704 72713 72714 72759 72760 72774 72784 72813 72816 72848 72850 72872 72873 72887 72960 72967 72968 72970 72971 73015 73018 73019 73020 73022 73023 73032 73040 73050 73056 73062 73063 73065 73066 73103 73104 73106 73107 73113 73120 73130 73440 73465 73648 73649 73664 73714 73727 74650 74752 74863 74864 74869 74880 75076 77824 78895 78896 78905 82944 83527 92160 92729 92736 92767 92768 92778 92782 92784 92880 92910 92912 92918 92928 92998 93008 93018 93019 93026 93027 93048 93053 93072 93760 93851 93952 94027 94031 94088 94095 94112 94176 94181 94192 94194 94208 100344 100352 101590 101632 101641 110592 110879 110928 110931 110948 110952 110960 111356 113664 113771 113776 113789 113792 113801 113808 113818 113820 113828 118784 119030 119040 119079 119081 119273 119296 119366 119520 119540 119552 119639 119648 119673 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 121484 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123136 123181 123184 123198 123200 123210 123214 123216 123584 123642 123647 123648 124928 125125 125127 125143 125184 125260 125264 125274 125278 125280 126065 126133 126209 126270 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 126704 126706 126976 127020 127024 127124 127136 127151 127153 127168 127169 127184 127185 127222 127232 127406 127462 127491 127504 127548 127552 127561 127568 127570 127584 127590 127744 128728 128736 128749 128752 128765 128768 128884 128896 128985 128992 129004 129024 129036 129040 129096 129104 129114 129120 129160 129168 129198 129200 129202 129280 129401 129402 129484 129485 129620 129632 129646 129648 129653 129656 129659 129664 129671 129680 129705 129712 129719 129728 129731 129744 129751 129792 129939 129940 129995 130032 130042 131072 173790 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196608 201547 917505 917506 917536 917632 917760 918000 983040 1048574 1048576 1114110 END PK ! 3�� # 5.34.0/unicore/lib/Perl/_PerlFol.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V58 223 224 304 305 329 330 496 497 912 913 944 945 1415 1416 7830 7835 7838 7839 8016 8017 8018 8019 8020 8021 8022 8023 8064 8112 8114 8117 8118 8120 8124 8125 8130 8133 8134 8136 8140 8141 8146 8148 8150 8152 8162 8165 8166 8168 8178 8181 8182 8184 8188 8189 64256 64263 64275 64280 END PK ! 7@�� � # 5.34.0/unicore/lib/Perl/_PerlNch.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V36 64976 65008 65534 65536 131070 131072 196606 196608 262142 262144 327678 327680 393214 393216 458750 458752 524286 524288 589822 589824 655358 655360 720894 720896 786430 786432 851966 851968 917502 917504 983038 983040 1048574 1048576 1114110 1114112 END PK ! Fթ�" �" # 5.34.0/unicore/lib/Perl/_PerlIDC.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1474 48 58 65 91 95 96 97 123 170 171 181 182 186 187 192 215 216 247 248 706 710 722 736 741 748 749 750 751 768 885 886 888 891 894 895 896 902 903 904 907 908 909 910 930 931 1014 1015 1154 1155 1160 1162 1328 1329 1367 1369 1370 1376 1417 1425 1470 1471 1472 1473 1475 1476 1478 1479 1480 1488 1515 1519 1523 1552 1563 1568 1642 1646 1748 1749 1757 1759 1769 1770 1789 1791 1792 1808 1867 1869 1970 1984 2038 2042 2043 2045 2046 2048 2094 2112 2140 2144 2155 2208 2229 2230 2248 2259 2274 2275 2404 2406 2416 2417 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2546 2556 2557 2558 2559 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2678 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2800 2809 2816 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2901 2904 2908 2910 2911 2916 2918 2928 2929 2930 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3056 3072 3085 3086 3089 3090 3113 3114 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3163 3168 3172 3174 3184 3200 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3328 3341 3342 3345 3346 3397 3398 3401 3402 3407 3412 3416 3423 3428 3430 3440 3450 3456 3457 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3558 3568 3570 3572 3585 3643 3648 3663 3664 3674 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3808 3840 3841 3864 3866 3872 3882 3893 3894 3895 3896 3897 3898 3902 3912 3913 3949 3953 3973 3974 3992 3993 4029 4038 4039 4096 4170 4176 4254 4256 4294 4295 4296 4301 4302 4304 4347 4348 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4960 4992 5008 5024 5110 5112 5118 5121 5741 5743 5760 5761 5787 5792 5867 5870 5881 5888 5901 5902 5909 5920 5941 5952 5972 5984 5997 5998 6001 6002 6004 6016 6100 6103 6104 6108 6110 6112 6122 6155 6158 6160 6170 6176 6265 6272 6315 6320 6390 6400 6431 6432 6444 6448 6460 6470 6510 6512 6517 6528 6572 6576 6602 6608 6618 6656 6684 6688 6751 6752 6781 6783 6794 6800 6810 6823 6824 6832 6846 6847 6849 6912 6988 6992 7002 7019 7028 7040 7156 7168 7224 7232 7242 7245 7294 7296 7305 7312 7355 7357 7360 7376 7379 7380 7419 7424 7674 7675 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8125 8126 8127 8130 8133 8134 8141 8144 8148 8150 8156 8160 8173 8178 8181 8182 8189 8255 8257 8276 8277 8305 8306 8319 8320 8336 8349 8400 8413 8417 8418 8421 8433 8450 8451 8455 8456 8458 8468 8469 8470 8473 8478 8484 8485 8486 8487 8488 8489 8490 8494 8495 8506 8508 8512 8517 8522 8526 8527 8544 8585 11264 11311 11312 11359 11360 11493 11499 11508 11520 11558 11559 11560 11565 11566 11568 11624 11631 11632 11647 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11776 12293 12296 12321 12336 12337 12342 12344 12349 12353 12439 12441 12443 12445 12448 12449 12539 12540 12544 12549 12592 12593 12687 12704 12736 12784 12800 13312 19904 19968 40957 40960 42125 42192 42238 42240 42509 42512 42540 42560 42608 42612 42622 42623 42738 42775 42784 42786 42889 42891 42944 42946 42955 42997 43048 43052 43053 43072 43124 43136 43206 43216 43226 43232 43256 43259 43260 43261 43310 43312 43348 43360 43389 43392 43457 43471 43482 43488 43519 43520 43575 43584 43598 43600 43610 43616 43639 43642 43715 43739 43742 43744 43760 43762 43767 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43867 43868 43882 43888 44011 44012 44014 44016 44026 44032 55204 55216 55239 55243 55292 63744 64110 64112 64218 64256 64263 64275 64280 64285 64297 64298 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64606 64612 64830 64848 64912 64914 64968 65008 65018 65024 65040 65056 65072 65075 65077 65101 65104 65137 65138 65139 65140 65143 65144 65145 65146 65147 65148 65149 65150 65151 65277 65296 65306 65313 65339 65343 65344 65345 65371 65382 65471 65474 65480 65482 65488 65490 65496 65498 65501 65536 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65856 65909 66045 66046 66176 66205 66208 66257 66272 66273 66304 66336 66349 66379 66384 66427 66432 66462 66464 66500 66504 66512 66513 66518 66560 66718 66720 66730 66736 66772 66776 66812 66816 66856 66864 66916 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67680 67703 67712 67743 67808 67827 67828 67830 67840 67862 67872 67898 67968 68024 68030 68032 68096 68100 68101 68103 68108 68116 68117 68120 68121 68150 68152 68155 68159 68160 68192 68221 68224 68253 68288 68296 68297 68327 68352 68406 68416 68438 68448 68467 68480 68498 68608 68681 68736 68787 68800 68851 68864 68904 68912 68922 69248 69290 69291 69293 69296 69298 69376 69405 69415 69416 69424 69457 69552 69573 69600 69623 69632 69703 69734 69744 69759 69819 69840 69865 69872 69882 69888 69941 69942 69952 69956 69960 69968 70004 70006 70007 70016 70085 70089 70093 70094 70107 70108 70109 70144 70162 70163 70200 70206 70207 70272 70279 70280 70281 70282 70286 70287 70302 70303 70313 70320 70379 70384 70394 70400 70404 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70459 70469 70471 70473 70475 70478 70480 70481 70487 70488 70493 70500 70502 70509 70512 70517 70656 70731 70736 70746 70750 70754 70784 70854 70855 70856 70864 70874 71040 71094 71096 71105 71128 71134 71168 71233 71236 71237 71248 71258 71296 71353 71360 71370 71424 71451 71453 71468 71472 71482 71680 71739 71840 71914 71935 71943 71945 71946 71948 71956 71957 71959 71960 71990 71991 71993 71995 72004 72016 72026 72096 72104 72106 72152 72154 72162 72163 72165 72192 72255 72263 72264 72272 72346 72349 72350 72384 72441 72704 72713 72714 72759 72760 72769 72784 72794 72818 72848 72850 72872 72873 72887 72960 72967 72968 72970 72971 73015 73018 73019 73020 73022 73023 73032 73040 73050 73056 73062 73063 73065 73066 73103 73104 73106 73107 73113 73120 73130 73440 73463 73648 73649 73728 74650 74752 74863 74880 75076 77824 78895 82944 83527 92160 92729 92736 92767 92768 92778 92880 92910 92912 92917 92928 92983 92992 92996 93008 93018 93027 93048 93053 93072 93760 93824 93952 94027 94031 94088 94095 94112 94176 94178 94179 94181 94192 94194 94208 100344 100352 101590 101632 101641 110592 110879 110928 110931 110948 110952 110960 111356 113664 113771 113776 113789 113792 113801 113808 113818 113821 113823 119141 119146 119149 119155 119163 119171 119173 119180 119210 119214 119362 119365 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120513 120514 120539 120540 120571 120572 120597 120598 120629 120630 120655 120656 120687 120688 120713 120714 120745 120746 120771 120772 120780 120782 120832 121344 121399 121403 121453 121461 121462 121476 121477 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123136 123181 123184 123198 123200 123210 123214 123215 123584 123642 124928 125125 125136 125143 125184 125260 125264 125274 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 130032 130042 131072 173790 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196608 201547 917760 918000 END PK ! �d�D D # 5.34.0/unicore/lib/Perl/SpacePer.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V20 9 14 32 33 133 134 160 161 5760 5761 8192 8203 8232 8234 8239 8240 8287 8288 12288 12289 END PK ! ز%�x" x" 5.34.0/unicore/lib/Perl/Word.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1466 48 58 65 91 95 96 97 123 170 171 181 182 186 187 192 215 216 247 248 706 710 722 736 741 748 749 750 751 768 885 886 888 890 894 895 896 902 903 904 907 908 909 910 930 931 1014 1015 1154 1155 1328 1329 1367 1369 1370 1376 1417 1425 1470 1471 1472 1473 1475 1476 1478 1479 1480 1488 1515 1519 1523 1552 1563 1568 1642 1646 1748 1749 1757 1759 1769 1770 1789 1791 1792 1808 1867 1869 1970 1984 2038 2042 2043 2045 2046 2048 2094 2112 2140 2144 2155 2208 2229 2230 2248 2259 2274 2275 2404 2406 2416 2417 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2546 2556 2557 2558 2559 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2678 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2800 2809 2816 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2901 2904 2908 2910 2911 2916 2918 2928 2929 2930 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3056 3072 3085 3086 3089 3090 3113 3114 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3163 3168 3172 3174 3184 3200 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3328 3341 3342 3345 3346 3397 3398 3401 3402 3407 3412 3416 3423 3428 3430 3440 3450 3456 3457 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3558 3568 3570 3572 3585 3643 3648 3663 3664 3674 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3808 3840 3841 3864 3866 3872 3882 3893 3894 3895 3896 3897 3898 3902 3912 3913 3949 3953 3973 3974 3992 3993 4029 4038 4039 4096 4170 4176 4254 4256 4294 4295 4296 4301 4302 4304 4347 4348 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4960 4992 5008 5024 5110 5112 5118 5121 5741 5743 5760 5761 5787 5792 5867 5870 5881 5888 5901 5902 5909 5920 5941 5952 5972 5984 5997 5998 6001 6002 6004 6016 6100 6103 6104 6108 6110 6112 6122 6155 6158 6160 6170 6176 6265 6272 6315 6320 6390 6400 6431 6432 6444 6448 6460 6470 6510 6512 6517 6528 6572 6576 6602 6608 6618 6656 6684 6688 6751 6752 6781 6783 6794 6800 6810 6823 6824 6832 6849 6912 6988 6992 7002 7019 7028 7040 7156 7168 7224 7232 7242 7245 7294 7296 7305 7312 7355 7357 7360 7376 7379 7380 7419 7424 7674 7675 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8125 8126 8127 8130 8133 8134 8141 8144 8148 8150 8156 8160 8173 8178 8181 8182 8189 8204 8206 8255 8257 8276 8277 8305 8306 8319 8320 8336 8349 8400 8433 8450 8451 8455 8456 8458 8468 8469 8470 8473 8478 8484 8485 8486 8487 8488 8489 8490 8494 8495 8506 8508 8512 8517 8522 8526 8527 8544 8585 9398 9450 11264 11311 11312 11359 11360 11493 11499 11508 11520 11558 11559 11560 11565 11566 11568 11624 11631 11632 11647 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11776 11823 11824 12293 12296 12321 12336 12337 12342 12344 12349 12353 12439 12441 12443 12445 12448 12449 12539 12540 12544 12549 12592 12593 12687 12704 12736 12784 12800 13312 19904 19968 40957 40960 42125 42192 42238 42240 42509 42512 42540 42560 42611 42612 42622 42623 42738 42775 42784 42786 42889 42891 42944 42946 42955 42997 43048 43052 43053 43072 43124 43136 43206 43216 43226 43232 43256 43259 43260 43261 43310 43312 43348 43360 43389 43392 43457 43471 43482 43488 43519 43520 43575 43584 43598 43600 43610 43616 43639 43642 43715 43739 43742 43744 43760 43762 43767 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43867 43868 43882 43888 44011 44012 44014 44016 44026 44032 55204 55216 55239 55243 55292 63744 64110 64112 64218 64256 64263 64275 64280 64285 64297 64298 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64830 64848 64912 64914 64968 65008 65020 65024 65040 65056 65072 65075 65077 65101 65104 65136 65141 65142 65277 65296 65306 65313 65339 65343 65344 65345 65371 65382 65471 65474 65480 65482 65488 65490 65496 65498 65501 65536 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65856 65909 66045 66046 66176 66205 66208 66257 66272 66273 66304 66336 66349 66379 66384 66427 66432 66462 66464 66500 66504 66512 66513 66518 66560 66718 66720 66730 66736 66772 66776 66812 66816 66856 66864 66916 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67680 67703 67712 67743 67808 67827 67828 67830 67840 67862 67872 67898 67968 68024 68030 68032 68096 68100 68101 68103 68108 68116 68117 68120 68121 68150 68152 68155 68159 68160 68192 68221 68224 68253 68288 68296 68297 68327 68352 68406 68416 68438 68448 68467 68480 68498 68608 68681 68736 68787 68800 68851 68864 68904 68912 68922 69248 69290 69291 69293 69296 69298 69376 69405 69415 69416 69424 69457 69552 69573 69600 69623 69632 69703 69734 69744 69759 69819 69840 69865 69872 69882 69888 69941 69942 69952 69956 69960 69968 70004 70006 70007 70016 70085 70089 70093 70094 70107 70108 70109 70144 70162 70163 70200 70206 70207 70272 70279 70280 70281 70282 70286 70287 70302 70303 70313 70320 70379 70384 70394 70400 70404 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70459 70469 70471 70473 70475 70478 70480 70481 70487 70488 70493 70500 70502 70509 70512 70517 70656 70731 70736 70746 70750 70754 70784 70854 70855 70856 70864 70874 71040 71094 71096 71105 71128 71134 71168 71233 71236 71237 71248 71258 71296 71353 71360 71370 71424 71451 71453 71468 71472 71482 71680 71739 71840 71914 71935 71943 71945 71946 71948 71956 71957 71959 71960 71990 71991 71993 71995 72004 72016 72026 72096 72104 72106 72152 72154 72162 72163 72165 72192 72255 72263 72264 72272 72346 72349 72350 72384 72441 72704 72713 72714 72759 72760 72769 72784 72794 72818 72848 72850 72872 72873 72887 72960 72967 72968 72970 72971 73015 73018 73019 73020 73022 73023 73032 73040 73050 73056 73062 73063 73065 73066 73103 73104 73106 73107 73113 73120 73130 73440 73463 73648 73649 73728 74650 74752 74863 74880 75076 77824 78895 82944 83527 92160 92729 92736 92767 92768 92778 92880 92910 92912 92917 92928 92983 92992 92996 93008 93018 93027 93048 93053 93072 93760 93824 93952 94027 94031 94088 94095 94112 94176 94178 94179 94181 94192 94194 94208 100344 100352 101590 101632 101641 110592 110879 110928 110931 110948 110952 110960 111356 113664 113771 113776 113789 113792 113801 113808 113818 113821 113823 119141 119146 119149 119155 119163 119171 119173 119180 119210 119214 119362 119365 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120513 120514 120539 120540 120571 120572 120597 120598 120629 120630 120655 120656 120687 120688 120713 120714 120745 120746 120771 120772 120780 120782 120832 121344 121399 121403 121453 121461 121462 121476 121477 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123136 123181 123184 123198 123200 123210 123214 123215 123584 123642 124928 125125 125136 125143 125184 125260 125264 125274 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 127280 127306 127312 127338 127344 127370 130032 130042 131072 173790 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196608 201547 917760 918000 END PK ! �{; ; # 5.34.0/unicore/lib/Perl/_PerlIsI.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V78 97 98 102 103 104 107 108 109 110 111 115 117 119 120 121 122 700 701 702 703 768 770 775 777 778 779 780 781 787 788 817 818 834 835 940 941 942 943 945 946 951 952 953 954 961 962 965 966 969 970 974 975 1381 1382 1387 1388 1389 1390 1396 1397 1398 1399 1406 1407 1410 1411 7936 7944 7968 7976 8032 8040 8048 8049 8052 8053 8060 8061 END PK ! e1�� � # 5.34.0/unicore/lib/Perl/_PerlIDS.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1262 65 91 95 96 97 123 170 171 181 182 186 187 192 215 216 247 248 706 710 722 736 741 748 749 750 751 880 885 886 888 891 894 895 896 902 903 904 907 908 909 910 930 931 1014 1015 1154 1162 1328 1329 1367 1369 1370 1376 1417 1488 1515 1519 1523 1568 1611 1646 1648 1649 1748 1749 1750 1765 1767 1774 1776 1786 1789 1791 1792 1808 1809 1810 1840 1869 1958 1969 1970 1994 2027 2036 2038 2042 2043 2048 2070 2074 2075 2084 2085 2088 2089 2112 2137 2144 2155 2208 2229 2230 2248 2308 2362 2365 2366 2384 2385 2392 2402 2417 2433 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2493 2494 2510 2511 2524 2526 2527 2530 2544 2546 2556 2557 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2649 2653 2654 2655 2674 2677 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2749 2750 2768 2769 2784 2786 2809 2810 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2877 2878 2908 2910 2911 2914 2929 2930 2947 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3024 3025 3077 3085 3086 3089 3090 3113 3114 3130 3133 3134 3160 3163 3168 3170 3200 3201 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3261 3262 3294 3295 3296 3298 3313 3315 3332 3341 3342 3345 3346 3387 3389 3390 3406 3407 3412 3415 3423 3426 3450 3456 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3585 3633 3634 3635 3648 3655 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3761 3762 3763 3773 3774 3776 3781 3782 3783 3804 3808 3840 3841 3904 3912 3913 3949 3976 3981 4096 4139 4159 4160 4176 4182 4186 4190 4193 4194 4197 4199 4206 4209 4213 4226 4238 4239 4256 4294 4295 4296 4301 4302 4304 4347 4348 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4992 5008 5024 5110 5112 5118 5121 5741 5743 5760 5761 5787 5792 5867 5870 5881 5888 5901 5902 5906 5920 5938 5952 5970 5984 5997 5998 6001 6016 6068 6103 6104 6108 6109 6176 6265 6272 6313 6314 6315 6320 6390 6400 6431 6480 6510 6512 6517 6528 6572 6576 6602 6656 6679 6688 6741 6823 6824 6917 6964 6981 6988 7043 7073 7086 7088 7098 7142 7168 7204 7245 7248 7258 7294 7296 7305 7312 7355 7357 7360 7401 7405 7406 7412 7413 7415 7418 7419 7424 7616 7680 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8125 8126 8127 8130 8133 8134 8141 8144 8148 8150 8156 8160 8173 8178 8181 8182 8189 8305 8306 8319 8320 8336 8349 8450 8451 8455 8456 8458 8468 8469 8470 8473 8478 8484 8485 8486 8487 8488 8489 8490 8494 8495 8506 8508 8512 8517 8522 8526 8527 8544 8585 11264 11311 11312 11359 11360 11493 11499 11503 11506 11508 11520 11558 11559 11560 11565 11566 11568 11624 11631 11632 11648 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 12293 12296 12321 12330 12337 12342 12344 12349 12353 12439 12445 12448 12449 12539 12540 12544 12549 12592 12593 12687 12704 12736 12784 12800 13312 19904 19968 40957 40960 42125 42192 42238 42240 42509 42512 42528 42538 42540 42560 42607 42623 42654 42656 42736 42775 42784 42786 42889 42891 42944 42946 42955 42997 43010 43011 43014 43015 43019 43020 43043 43072 43124 43138 43188 43250 43256 43259 43260 43261 43263 43274 43302 43312 43335 43360 43389 43396 43443 43471 43472 43488 43493 43494 43504 43514 43519 43520 43561 43584 43587 43588 43596 43616 43639 43642 43643 43646 43696 43697 43698 43701 43703 43705 43710 43712 43713 43714 43715 43739 43742 43744 43755 43762 43765 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43867 43868 43882 43888 44003 44032 55204 55216 55239 55243 55292 63744 64110 64112 64218 64256 64263 64275 64280 64285 64286 64287 64297 64298 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64606 64612 64830 64848 64912 64914 64968 65008 65018 65137 65138 65139 65140 65143 65144 65145 65146 65147 65148 65149 65150 65151 65277 65313 65339 65345 65371 65382 65438 65440 65471 65474 65480 65482 65488 65490 65496 65498 65501 65536 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65856 65909 66176 66205 66208 66257 66304 66336 66349 66379 66384 66422 66432 66462 66464 66500 66504 66512 66513 66518 66560 66718 66736 66772 66776 66812 66816 66856 66864 66916 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67680 67703 67712 67743 67808 67827 67828 67830 67840 67862 67872 67898 67968 68024 68030 68032 68096 68097 68112 68116 68117 68120 68121 68150 68192 68221 68224 68253 68288 68296 68297 68325 68352 68406 68416 68438 68448 68467 68480 68498 68608 68681 68736 68787 68800 68851 68864 68900 69248 69290 69296 69298 69376 69405 69415 69416 69424 69446 69552 69573 69600 69623 69635 69688 69763 69808 69840 69865 69891 69927 69956 69957 69959 69960 69968 70003 70006 70007 70019 70067 70081 70085 70106 70107 70108 70109 70144 70162 70163 70188 70272 70279 70280 70281 70282 70286 70287 70302 70303 70313 70320 70367 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70461 70462 70480 70481 70493 70498 70656 70709 70727 70731 70751 70754 70784 70832 70852 70854 70855 70856 71040 71087 71128 71132 71168 71216 71236 71237 71296 71339 71352 71353 71424 71451 71680 71724 71840 71904 71935 71943 71945 71946 71948 71956 71957 71959 71960 71984 71999 72000 72001 72002 72096 72104 72106 72145 72161 72162 72163 72164 72192 72193 72203 72243 72250 72251 72272 72273 72284 72330 72349 72350 72384 72441 72704 72713 72714 72751 72768 72769 72818 72848 72960 72967 72968 72970 72971 73009 73030 73031 73056 73062 73063 73065 73066 73098 73112 73113 73440 73459 73648 73649 73728 74650 74752 74863 74880 75076 77824 78895 82944 83527 92160 92729 92736 92767 92880 92910 92928 92976 92992 92996 93027 93048 93053 93072 93760 93824 93952 94027 94032 94033 94099 94112 94176 94178 94179 94180 94208 100344 100352 101590 101632 101641 110592 110879 110928 110931 110948 110952 110960 111356 113664 113771 113776 113789 113792 113801 113808 113818 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120513 120514 120539 120540 120571 120572 120597 120598 120629 120630 120655 120656 120687 120688 120713 120714 120745 120746 120771 120772 120780 123136 123181 123191 123198 123214 123215 123584 123628 124928 125125 125184 125252 125259 125260 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 131072 173790 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196608 201547 END PK ! mt'� # 5.34.0/unicore/lib/Perl/PosixPun.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 33 48 58 65 91 97 123 127 END PK ! p�� + + 5.34.0/unicore/lib/PCM/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V12 1536 1542 1757 1758 1807 1808 2274 2275 69821 69822 69837 69838 END PK ! ȪS� � 5.34.0/unicore/lib/BidiM/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V226 40 42 60 61 62 63 91 92 93 94 123 124 125 126 171 172 187 188 3898 3902 5787 5789 8249 8251 8261 8263 8317 8319 8333 8335 8512 8513 8705 8709 8712 8718 8721 8722 8725 8727 8730 8734 8735 8739 8740 8741 8742 8743 8747 8756 8761 8762 8763 8781 8786 8790 8799 8801 8802 8803 8804 8812 8814 8845 8847 8851 8856 8857 8866 8868 8870 8889 8894 8896 8905 8910 8912 8914 8918 8942 8944 8960 8968 8972 8992 8994 9001 9003 10088 10102 10176 10177 10179 10183 10184 10186 10187 10190 10195 10199 10204 10207 10210 10224 10627 10649 10651 10657 10658 10672 10680 10681 10688 10694 10697 10698 10702 10707 10708 10710 10712 10717 10721 10722 10723 10726 10728 10730 10740 10746 10748 10750 10762 10781 10782 10786 10788 10789 10790 10791 10793 10794 10795 10799 10804 10806 10812 10815 10839 10841 10852 10854 10858 10862 10863 10865 10867 10869 10873 10916 10918 10926 10927 10967 10972 10973 10974 10975 10978 10983 10988 10991 10995 10996 10999 11004 11005 11006 11262 11263 11778 11782 11785 11787 11788 11790 11804 11806 11808 11818 12296 12306 12308 12316 65113 65119 65124 65126 65288 65290 65308 65309 65310 65311 65339 65340 65341 65342 65371 65372 65373 65374 65375 65377 65378 65380 120539 120540 120597 120598 120655 120656 120713 120714 120771 120772 END PK ! ��� � 5.34.0/unicore/lib/Alpha/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1390 65 91 97 123 170 171 181 182 186 187 192 215 216 247 248 706 710 722 736 741 748 749 750 751 837 838 880 885 886 888 890 894 895 896 902 903 904 907 908 909 910 930 931 1014 1015 1154 1162 1328 1329 1367 1369 1370 1376 1417 1456 1470 1471 1472 1473 1475 1476 1478 1479 1480 1488 1515 1519 1523 1552 1563 1568 1624 1625 1632 1646 1748 1749 1757 1761 1769 1773 1776 1786 1789 1791 1792 1808 1856 1869 1970 1994 2027 2036 2038 2042 2043 2048 2072 2074 2093 2112 2137 2144 2155 2208 2229 2230 2248 2260 2272 2275 2282 2288 2364 2365 2381 2382 2385 2389 2404 2417 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2493 2501 2503 2505 2507 2509 2510 2511 2519 2520 2524 2526 2527 2532 2544 2546 2556 2557 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2622 2627 2631 2633 2635 2637 2641 2642 2649 2653 2654 2655 2672 2678 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2749 2758 2759 2762 2763 2765 2768 2769 2784 2788 2809 2813 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2877 2885 2887 2889 2891 2893 2902 2904 2908 2910 2911 2916 2929 2930 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3021 3024 3025 3031 3032 3072 3076 3077 3085 3086 3089 3090 3113 3114 3130 3133 3141 3142 3145 3146 3149 3157 3159 3160 3163 3168 3172 3200 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3261 3269 3270 3273 3274 3277 3285 3287 3294 3295 3296 3300 3313 3315 3328 3341 3342 3345 3346 3387 3389 3397 3398 3401 3402 3405 3406 3407 3412 3416 3423 3428 3450 3456 3457 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3535 3541 3542 3543 3544 3552 3570 3572 3585 3643 3648 3655 3661 3662 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3770 3771 3774 3776 3781 3782 3783 3789 3790 3804 3808 3840 3841 3904 3912 3913 3949 3953 3970 3976 3992 3993 4029 4096 4151 4152 4153 4155 4160 4176 4240 4250 4254 4256 4294 4295 4296 4301 4302 4304 4347 4348 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4992 5008 5024 5110 5112 5118 5121 5741 5743 5760 5761 5787 5792 5867 5870 5881 5888 5901 5902 5908 5920 5940 5952 5972 5984 5997 5998 6001 6002 6004 6016 6068 6070 6089 6103 6104 6108 6109 6176 6265 6272 6315 6320 6390 6400 6431 6432 6444 6448 6457 6480 6510 6512 6517 6528 6572 6576 6602 6656 6684 6688 6751 6753 6773 6823 6824 6847 6849 6912 6964 6965 6980 6981 6988 7040 7082 7084 7088 7098 7142 7143 7154 7168 7223 7245 7248 7258 7294 7296 7305 7312 7355 7357 7360 7401 7405 7406 7412 7413 7415 7418 7419 7424 7616 7655 7669 7680 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8125 8126 8127 8130 8133 8134 8141 8144 8148 8150 8156 8160 8173 8178 8181 8182 8189 8305 8306 8319 8320 8336 8349 8450 8451 8455 8456 8458 8468 8469 8470 8473 8478 8484 8485 8486 8487 8488 8489 8490 8494 8495 8506 8508 8512 8517 8522 8526 8527 8544 8585 9398 9450 11264 11311 11312 11359 11360 11493 11499 11503 11506 11508 11520 11558 11559 11560 11565 11566 11568 11624 11631 11632 11648 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11776 11823 11824 12293 12296 12321 12330 12337 12342 12344 12349 12353 12439 12445 12448 12449 12539 12540 12544 12549 12592 12593 12687 12704 12736 12784 12800 13312 19904 19968 40957 40960 42125 42192 42238 42240 42509 42512 42528 42538 42540 42560 42607 42612 42620 42623 42736 42775 42784 42786 42889 42891 42944 42946 42955 42997 43014 43015 43048 43072 43124 43136 43204 43205 43206 43250 43256 43259 43260 43261 43264 43274 43307 43312 43347 43360 43389 43392 43443 43444 43456 43471 43472 43488 43504 43514 43519 43520 43575 43584 43598 43616 43639 43642 43711 43712 43713 43714 43715 43739 43742 43744 43760 43762 43766 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43867 43868 43882 43888 44011 44032 55204 55216 55239 55243 55292 63744 64110 64112 64218 64256 64263 64275 64280 64285 64297 64298 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64830 64848 64912 64914 64968 65008 65020 65136 65141 65142 65277 65313 65339 65345 65371 65382 65471 65474 65480 65482 65488 65490 65496 65498 65501 65536 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65856 65909 66176 66205 66208 66257 66304 66336 66349 66379 66384 66427 66432 66462 66464 66500 66504 66512 66513 66518 66560 66718 66736 66772 66776 66812 66816 66856 66864 66916 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67680 67703 67712 67743 67808 67827 67828 67830 67840 67862 67872 67898 67968 68024 68030 68032 68096 68100 68101 68103 68108 68116 68117 68120 68121 68150 68192 68221 68224 68253 68288 68296 68297 68325 68352 68406 68416 68438 68448 68467 68480 68498 68608 68681 68736 68787 68800 68851 68864 68904 69248 69290 69291 69293 69296 69298 69376 69405 69415 69416 69424 69446 69552 69573 69600 69623 69632 69702 69762 69817 69840 69865 69888 69939 69956 69960 69968 70003 70006 70007 70016 70080 70081 70085 70094 70096 70106 70107 70108 70109 70144 70162 70163 70197 70199 70200 70206 70207 70272 70279 70280 70281 70282 70286 70287 70302 70303 70313 70320 70377 70400 70404 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70461 70469 70471 70473 70475 70477 70480 70481 70487 70488 70493 70500 70656 70722 70723 70726 70727 70731 70751 70754 70784 70850 70852 70854 70855 70856 71040 71094 71096 71103 71128 71134 71168 71231 71232 71233 71236 71237 71296 71350 71352 71353 71424 71451 71453 71467 71680 71737 71840 71904 71935 71943 71945 71946 71948 71956 71957 71959 71960 71990 71991 71993 71995 71997 71999 72003 72096 72104 72106 72152 72154 72160 72161 72162 72163 72165 72192 72243 72245 72255 72272 72344 72349 72350 72384 72441 72704 72713 72714 72759 72760 72767 72768 72769 72818 72848 72850 72872 72873 72887 72960 72967 72968 72970 72971 73015 73018 73019 73020 73022 73023 73026 73027 73028 73030 73032 73056 73062 73063 73065 73066 73103 73104 73106 73107 73111 73112 73113 73440 73463 73648 73649 73728 74650 74752 74863 74880 75076 77824 78895 82944 83527 92160 92729 92736 92767 92880 92910 92928 92976 92992 92996 93027 93048 93053 93072 93760 93824 93952 94027 94031 94088 94095 94112 94176 94178 94179 94180 94192 94194 94208 100344 100352 101590 101632 101641 110592 110879 110928 110931 110948 110952 110960 111356 113664 113771 113776 113789 113792 113801 113808 113818 113822 113823 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120513 120514 120539 120540 120571 120572 120597 120598 120629 120630 120655 120656 120687 120688 120713 120714 120745 120746 120771 120772 120780 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123136 123181 123191 123198 123214 123215 123584 123628 124928 125125 125184 125252 125255 125256 125259 125260 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 127280 127306 127312 127338 127344 127370 131072 173790 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196608 201547 END PK ! ���Ȉ � 5.34.0/unicore/lib/Gc/M.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V580 768 880 1155 1162 1425 1470 1471 1472 1473 1475 1476 1478 1479 1480 1552 1563 1611 1632 1648 1649 1750 1757 1759 1765 1767 1769 1770 1774 1809 1810 1840 1867 1958 1969 2027 2036 2045 2046 2070 2074 2075 2084 2085 2088 2089 2094 2137 2140 2259 2274 2275 2308 2362 2365 2366 2384 2385 2392 2402 2404 2433 2436 2492 2493 2494 2501 2503 2505 2507 2510 2519 2520 2530 2532 2558 2559 2561 2564 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2672 2674 2677 2678 2689 2692 2748 2749 2750 2758 2759 2762 2763 2766 2786 2788 2810 2816 2817 2820 2876 2877 2878 2885 2887 2889 2891 2894 2901 2904 2914 2916 2946 2947 3006 3011 3014 3017 3018 3022 3031 3032 3072 3077 3134 3141 3142 3145 3146 3150 3157 3159 3170 3172 3201 3204 3260 3261 3262 3269 3270 3273 3274 3278 3285 3287 3298 3300 3328 3332 3387 3389 3390 3397 3398 3401 3402 3406 3415 3416 3426 3428 3457 3460 3530 3531 3535 3541 3542 3543 3544 3552 3570 3572 3633 3634 3636 3643 3655 3663 3761 3762 3764 3773 3784 3790 3864 3866 3893 3894 3895 3896 3897 3898 3902 3904 3953 3973 3974 3976 3981 3992 3993 4029 4038 4039 4139 4159 4182 4186 4190 4193 4194 4197 4199 4206 4209 4213 4226 4238 4239 4240 4250 4254 4957 4960 5906 5909 5938 5941 5970 5972 6002 6004 6068 6100 6109 6110 6155 6158 6277 6279 6313 6314 6432 6444 6448 6460 6679 6684 6741 6751 6752 6781 6783 6784 6832 6849 6912 6917 6964 6981 7019 7028 7040 7043 7073 7086 7142 7156 7204 7224 7376 7379 7380 7401 7405 7406 7412 7413 7415 7418 7616 7674 7675 7680 8400 8433 11503 11506 11647 11648 11744 11776 12330 12336 12441 12443 42607 42611 42612 42622 42654 42656 42736 42738 43010 43011 43014 43015 43019 43020 43043 43048 43052 43053 43136 43138 43188 43206 43232 43250 43263 43264 43302 43310 43335 43348 43392 43396 43443 43457 43493 43494 43561 43575 43587 43588 43596 43598 43643 43646 43696 43697 43698 43701 43703 43705 43710 43712 43713 43714 43755 43760 43765 43767 44003 44011 44012 44014 64286 64287 65024 65040 65056 65072 66045 66046 66272 66273 66422 66427 68097 68100 68101 68103 68108 68112 68152 68155 68159 68160 68325 68327 68900 68904 69291 69293 69446 69457 69632 69635 69688 69703 69759 69763 69808 69819 69888 69891 69927 69941 69957 69959 70003 70004 70016 70019 70067 70081 70089 70093 70094 70096 70188 70200 70206 70207 70367 70379 70400 70404 70459 70461 70462 70469 70471 70473 70475 70478 70487 70488 70498 70500 70502 70509 70512 70517 70709 70727 70750 70751 70832 70852 71087 71094 71096 71105 71132 71134 71216 71233 71339 71352 71453 71468 71724 71739 71984 71990 71991 71993 71995 71999 72000 72001 72002 72004 72145 72152 72154 72161 72164 72165 72193 72203 72243 72250 72251 72255 72263 72264 72273 72284 72330 72346 72751 72759 72760 72768 72850 72872 72873 72887 73009 73015 73018 73019 73020 73022 73023 73030 73031 73032 73098 73103 73104 73106 73107 73112 73459 73463 92912 92917 92976 92983 94031 94032 94033 94088 94095 94099 94180 94181 94192 94194 113821 113823 119141 119146 119149 119155 119163 119171 119173 119180 119210 119214 119362 119365 121344 121399 121403 121453 121461 121462 121476 121477 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123184 123191 123628 123632 125136 125143 125252 125259 917760 918000 END PK ! ��+�� � 5.34.0/unicore/lib/Gc/Ll.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1290 97 123 181 182 223 247 248 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 378 379 380 381 382 385 387 388 389 390 392 393 396 398 402 403 405 406 409 412 414 415 417 418 419 420 421 422 424 425 426 428 429 430 432 433 436 437 438 439 441 443 445 448 454 455 457 458 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 497 499 500 501 502 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 570 572 573 575 577 578 579 583 584 585 586 587 588 589 590 591 660 661 688 881 882 883 884 887 888 891 894 912 913 940 975 976 978 981 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1012 1013 1014 1016 1017 1019 1021 1072 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 1328 1376 1417 4304 4347 4349 4352 5112 5118 7296 7305 7424 7468 7531 7544 7545 7579 7681 7682 7683 7684 7685 7686 7687 7688 7689 7690 7691 7692 7693 7694 7695 7696 7697 7698 7699 7700 7701 7702 7703 7704 7705 7706 7707 7708 7709 7710 7711 7712 7713 7714 7715 7716 7717 7718 7719 7720 7721 7722 7723 7724 7725 7726 7727 7728 7729 7730 7731 7732 7733 7734 7735 7736 7737 7738 7739 7740 7741 7742 7743 7744 7745 7746 7747 7748 7749 7750 7751 7752 7753 7754 7755 7756 7757 7758 7759 7760 7761 7762 7763 7764 7765 7766 7767 7768 7769 7770 7771 7772 7773 7774 7775 7776 7777 7778 7779 7780 7781 7782 7783 7784 7785 7786 7787 7788 7789 7790 7791 7792 7793 7794 7795 7796 7797 7798 7799 7800 7801 7802 7803 7804 7805 7806 7807 7808 7809 7810 7811 7812 7813 7814 7815 7816 7817 7818 7819 7820 7821 7822 7823 7824 7825 7826 7827 7828 7829 7838 7839 7840 7841 7842 7843 7844 7845 7846 7847 7848 7849 7850 7851 7852 7853 7854 7855 7856 7857 7858 7859 7860 7861 7862 7863 7864 7865 7866 7867 7868 7869 7870 7871 7872 7873 7874 7875 7876 7877 7878 7879 7880 7881 7882 7883 7884 7885 7886 7887 7888 7889 7890 7891 7892 7893 7894 7895 7896 7897 7898 7899 7900 7901 7902 7903 7904 7905 7906 7907 7908 7909 7910 7911 7912 7913 7914 7915 7916 7917 7918 7919 7920 7921 7922 7923 7924 7925 7926 7927 7928 7929 7930 7931 7932 7933 7934 7935 7944 7952 7958 7968 7976 7984 7992 8000 8006 8016 8024 8032 8040 8048 8062 8064 8072 8080 8088 8096 8104 8112 8117 8118 8120 8126 8127 8130 8133 8134 8136 8144 8148 8150 8152 8160 8168 8178 8181 8182 8184 8458 8459 8462 8464 8467 8468 8495 8496 8500 8501 8505 8506 8508 8510 8518 8522 8526 8527 8580 8581 11312 11359 11361 11362 11365 11367 11368 11369 11370 11371 11372 11373 11377 11378 11379 11381 11382 11388 11393 11394 11395 11396 11397 11398 11399 11400 11401 11402 11403 11404 11405 11406 11407 11408 11409 11410 11411 11412 11413 11414 11415 11416 11417 11418 11419 11420 11421 11422 11423 11424 11425 11426 11427 11428 11429 11430 11431 11432 11433 11434 11435 11436 11437 11438 11439 11440 11441 11442 11443 11444 11445 11446 11447 11448 11449 11450 11451 11452 11453 11454 11455 11456 11457 11458 11459 11460 11461 11462 11463 11464 11465 11466 11467 11468 11469 11470 11471 11472 11473 11474 11475 11476 11477 11478 11479 11480 11481 11482 11483 11484 11485 11486 11487 11488 11489 11490 11491 11493 11500 11501 11502 11503 11507 11508 11520 11558 11559 11560 11565 11566 42561 42562 42563 42564 42565 42566 42567 42568 42569 42570 42571 42572 42573 42574 42575 42576 42577 42578 42579 42580 42581 42582 42583 42584 42585 42586 42587 42588 42589 42590 42591 42592 42593 42594 42595 42596 42597 42598 42599 42600 42601 42602 42603 42604 42605 42606 42625 42626 42627 42628 42629 42630 42631 42632 42633 42634 42635 42636 42637 42638 42639 42640 42641 42642 42643 42644 42645 42646 42647 42648 42649 42650 42651 42652 42787 42788 42789 42790 42791 42792 42793 42794 42795 42796 42797 42798 42799 42802 42803 42804 42805 42806 42807 42808 42809 42810 42811 42812 42813 42814 42815 42816 42817 42818 42819 42820 42821 42822 42823 42824 42825 42826 42827 42828 42829 42830 42831 42832 42833 42834 42835 42836 42837 42838 42839 42840 42841 42842 42843 42844 42845 42846 42847 42848 42849 42850 42851 42852 42853 42854 42855 42856 42857 42858 42859 42860 42861 42862 42863 42864 42865 42873 42874 42875 42876 42877 42879 42880 42881 42882 42883 42884 42885 42886 42887 42888 42892 42893 42894 42895 42897 42898 42899 42902 42903 42904 42905 42906 42907 42908 42909 42910 42911 42912 42913 42914 42915 42916 42917 42918 42919 42920 42921 42922 42927 42928 42933 42934 42935 42936 42937 42938 42939 42940 42941 42942 42943 42944 42947 42948 42952 42953 42954 42955 42998 42999 43002 43003 43824 43867 43872 43881 43888 43968 64256 64263 64275 64280 65345 65371 66600 66640 66776 66812 68800 68851 71872 71904 93792 93824 119834 119860 119886 119893 119894 119912 119938 119964 119990 119994 119995 119996 119997 120004 120005 120016 120042 120068 120094 120120 120146 120172 120198 120224 120250 120276 120302 120328 120354 120380 120406 120432 120458 120486 120514 120539 120540 120546 120572 120597 120598 120604 120630 120655 120656 120662 120688 120713 120714 120720 120746 120771 120772 120778 120779 120780 125218 125252 END PK ! �2� 5.34.0/unicore/lib/Gc/Mn.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V654 768 880 1155 1160 1425 1470 1471 1472 1473 1475 1476 1478 1479 1480 1552 1563 1611 1632 1648 1649 1750 1757 1759 1765 1767 1769 1770 1774 1809 1810 1840 1867 1958 1969 2027 2036 2045 2046 2070 2074 2075 2084 2085 2088 2089 2094 2137 2140 2259 2274 2275 2307 2362 2363 2364 2365 2369 2377 2381 2382 2385 2392 2402 2404 2433 2434 2492 2493 2497 2501 2509 2510 2530 2532 2558 2559 2561 2563 2620 2621 2625 2627 2631 2633 2635 2638 2641 2642 2672 2674 2677 2678 2689 2691 2748 2749 2753 2758 2759 2761 2765 2766 2786 2788 2810 2816 2817 2818 2876 2877 2879 2880 2881 2885 2893 2894 2901 2903 2914 2916 2946 2947 3008 3009 3021 3022 3072 3073 3076 3077 3134 3137 3142 3145 3146 3150 3157 3159 3170 3172 3201 3202 3260 3261 3263 3264 3270 3271 3276 3278 3298 3300 3328 3330 3387 3389 3393 3397 3405 3406 3426 3428 3457 3458 3530 3531 3538 3541 3542 3543 3633 3634 3636 3643 3655 3663 3761 3762 3764 3773 3784 3790 3864 3866 3893 3894 3895 3896 3897 3898 3953 3967 3968 3973 3974 3976 3981 3992 3993 4029 4038 4039 4141 4145 4146 4152 4153 4155 4157 4159 4184 4186 4190 4193 4209 4213 4226 4227 4229 4231 4237 4238 4253 4254 4957 4960 5906 5909 5938 5941 5970 5972 6002 6004 6068 6070 6071 6078 6086 6087 6089 6100 6109 6110 6155 6158 6277 6279 6313 6314 6432 6435 6439 6441 6450 6451 6457 6460 6679 6681 6683 6684 6742 6743 6744 6751 6752 6753 6754 6755 6757 6765 6771 6781 6783 6784 6832 6846 6847 6849 6912 6916 6964 6965 6966 6971 6972 6973 6978 6979 7019 7028 7040 7042 7074 7078 7080 7082 7083 7086 7142 7143 7144 7146 7149 7150 7151 7154 7212 7220 7222 7224 7376 7379 7380 7393 7394 7401 7405 7406 7412 7413 7416 7418 7616 7674 7675 7680 8400 8413 8417 8418 8421 8433 11503 11506 11647 11648 11744 11776 12330 12334 12441 12443 42607 42608 42612 42622 42654 42656 42736 42738 43010 43011 43014 43015 43019 43020 43045 43047 43052 43053 43204 43206 43232 43250 43263 43264 43302 43310 43335 43346 43392 43395 43443 43444 43446 43450 43452 43454 43493 43494 43561 43567 43569 43571 43573 43575 43587 43588 43596 43597 43644 43645 43696 43697 43698 43701 43703 43705 43710 43712 43713 43714 43756 43758 43766 43767 44005 44006 44008 44009 44013 44014 64286 64287 65024 65040 65056 65072 66045 66046 66272 66273 66422 66427 68097 68100 68101 68103 68108 68112 68152 68155 68159 68160 68325 68327 68900 68904 69291 69293 69446 69457 69633 69634 69688 69703 69759 69762 69811 69815 69817 69819 69888 69891 69927 69932 69933 69941 70003 70004 70016 70018 70070 70079 70089 70093 70095 70096 70191 70194 70196 70197 70198 70200 70206 70207 70367 70368 70371 70379 70400 70402 70459 70461 70464 70465 70502 70509 70512 70517 70712 70720 70722 70725 70726 70727 70750 70751 70835 70841 70842 70843 70847 70849 70850 70852 71090 71094 71100 71102 71103 71105 71132 71134 71219 71227 71229 71230 71231 71233 71339 71340 71341 71342 71344 71350 71351 71352 71453 71456 71458 71462 71463 71468 71727 71736 71737 71739 71995 71997 71998 71999 72003 72004 72148 72152 72154 72156 72160 72161 72193 72203 72243 72249 72251 72255 72263 72264 72273 72279 72281 72284 72330 72343 72344 72346 72752 72759 72760 72766 72767 72768 72850 72872 72874 72881 72882 72884 72885 72887 73009 73015 73018 73019 73020 73022 73023 73030 73031 73032 73104 73106 73109 73110 73111 73112 73459 73461 92912 92917 92976 92983 94031 94032 94095 94099 94180 94181 113821 113823 119143 119146 119163 119171 119173 119180 119210 119214 119362 119365 121344 121399 121403 121453 121461 121462 121476 121477 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123184 123191 123628 123632 125136 125143 125252 125259 917760 918000 END PK ! k�~�v v 5.34.0/unicore/lib/Gc/Mc.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V350 2307 2308 2363 2364 2366 2369 2377 2381 2382 2384 2434 2436 2494 2497 2503 2505 2507 2509 2519 2520 2563 2564 2622 2625 2691 2692 2750 2753 2761 2762 2763 2765 2818 2820 2878 2879 2880 2881 2887 2889 2891 2893 2903 2904 3006 3008 3009 3011 3014 3017 3018 3021 3031 3032 3073 3076 3137 3141 3202 3204 3262 3263 3264 3269 3271 3273 3274 3276 3285 3287 3330 3332 3390 3393 3398 3401 3402 3405 3415 3416 3458 3460 3535 3538 3544 3552 3570 3572 3902 3904 3967 3968 4139 4141 4145 4146 4152 4153 4155 4157 4182 4184 4194 4197 4199 4206 4227 4229 4231 4237 4239 4240 4250 4253 6070 6071 6078 6086 6087 6089 6435 6439 6441 6444 6448 6450 6451 6457 6681 6683 6741 6742 6743 6744 6753 6754 6755 6757 6765 6771 6916 6917 6965 6966 6971 6972 6973 6978 6979 6981 7042 7043 7073 7074 7078 7080 7082 7083 7143 7144 7146 7149 7150 7151 7154 7156 7204 7212 7220 7222 7393 7394 7415 7416 12334 12336 43043 43045 43047 43048 43136 43138 43188 43204 43346 43348 43395 43396 43444 43446 43450 43452 43454 43457 43567 43569 43571 43573 43597 43598 43643 43644 43645 43646 43755 43756 43758 43760 43765 43766 44003 44005 44006 44008 44009 44011 44012 44013 69632 69633 69634 69635 69762 69763 69808 69811 69815 69817 69932 69933 69957 69959 70018 70019 70067 70070 70079 70081 70094 70095 70188 70191 70194 70196 70197 70198 70368 70371 70402 70404 70462 70464 70465 70469 70471 70473 70475 70478 70487 70488 70498 70500 70709 70712 70720 70722 70725 70726 70832 70835 70841 70842 70843 70847 70849 70850 71087 71090 71096 71100 71102 71103 71216 71219 71227 71229 71230 71231 71340 71341 71342 71344 71350 71351 71456 71458 71462 71463 71724 71727 71736 71737 71984 71990 71991 71993 71997 71998 72000 72001 72002 72003 72145 72148 72156 72160 72164 72165 72249 72250 72279 72281 72343 72344 72751 72752 72766 72767 72873 72874 72881 72882 72884 72885 73098 73103 73107 73109 73110 73111 73461 73463 94033 94088 94192 94194 119141 119143 119149 119155 END PK ! �L�$ $ 5.34.0/unicore/lib/Gc/No.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V142 178 180 185 186 188 191 2548 2554 2930 2936 3056 3059 3192 3199 3416 3423 3440 3449 3882 3892 4969 4989 6128 6138 6618 6619 8304 8305 8308 8314 8320 8330 8528 8544 8585 8586 9312 9372 9450 9472 10102 10132 11517 11518 12690 12694 12832 12842 12872 12880 12881 12896 12928 12938 12977 12992 43056 43062 65799 65844 65909 65913 65930 65932 66273 66300 66336 66340 67672 67680 67705 67712 67751 67760 67835 67840 67862 67868 68028 68030 68032 68048 68050 68096 68160 68169 68221 68223 68253 68256 68331 68336 68440 68448 68472 68480 68521 68528 68858 68864 69216 69247 69405 69415 69457 69461 69573 69580 69714 69734 70113 70133 71482 71484 71914 71923 72794 72813 73664 73685 93019 93026 93824 93847 119520 119540 119648 119673 125127 125136 126065 126124 126125 126128 126129 126133 126209 126254 126255 126270 127232 127245 END PK ! ���9) ) 5.34.0/unicore/lib/Gc/Pc.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V12 95 96 8255 8257 8276 8277 65075 65077 65101 65104 65343 65344 END PK ! �w�C C 5.34.0/unicore/lib/Gc/S.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V458 36 37 43 44 60 63 94 95 96 97 124 125 126 127 162 167 168 170 172 173 174 178 180 181 184 185 215 216 247 248 706 710 722 736 741 748 749 750 751 768 885 886 900 902 1014 1015 1154 1155 1421 1424 1542 1545 1547 1548 1550 1552 1758 1759 1769 1770 1789 1791 2038 2039 2046 2048 2546 2548 2554 2556 2801 2802 2928 2929 3059 3067 3199 3200 3407 3408 3449 3450 3647 3648 3841 3844 3859 3860 3861 3864 3866 3872 3892 3893 3894 3895 3896 3897 4030 4038 4039 4045 4046 4048 4053 4057 4254 4256 5008 5018 5741 5742 6107 6108 6464 6465 6622 6656 7009 7019 7028 7037 8125 8126 8127 8130 8141 8144 8157 8160 8173 8176 8189 8191 8260 8261 8274 8275 8314 8317 8330 8333 8352 8384 8448 8450 8451 8455 8456 8458 8468 8469 8470 8473 8478 8484 8485 8486 8487 8488 8489 8490 8494 8495 8506 8508 8512 8517 8522 8526 8527 8528 8586 8588 8592 8968 8972 9001 9003 9255 9280 9291 9372 9450 9472 10088 10132 10181 10183 10214 10224 10627 10649 10712 10716 10748 10750 11124 11126 11158 11159 11264 11493 11499 11856 11858 11904 11930 11931 12020 12032 12246 12272 12284 12292 12293 12306 12308 12320 12321 12342 12344 12350 12352 12443 12445 12688 12690 12694 12704 12736 12772 12800 12831 12842 12872 12880 12881 12896 12928 12938 12977 12992 13312 19904 19968 42128 42183 42752 42775 42784 42786 42889 42891 43048 43052 43062 43066 43639 43642 43867 43868 43882 43884 64297 64298 64434 64450 65020 65022 65122 65123 65124 65127 65129 65130 65284 65285 65291 65292 65308 65311 65342 65343 65344 65345 65372 65373 65374 65375 65504 65511 65512 65519 65532 65534 65847 65856 65913 65930 65932 65935 65936 65949 65952 65953 66000 66045 67703 67705 68296 68297 71487 71488 73685 73714 92988 92992 92997 92998 113820 113821 118784 119030 119040 119079 119081 119141 119146 119149 119171 119173 119180 119210 119214 119273 119296 119362 119365 119366 119552 119639 120513 120514 120539 120540 120571 120572 120597 120598 120629 120630 120655 120656 120687 120688 120713 120714 120745 120746 120771 120772 120832 121344 121399 121403 121453 121461 121462 121476 121477 121479 123215 123216 123647 123648 126124 126125 126128 126129 126254 126255 126704 126706 126976 127020 127024 127124 127136 127151 127153 127168 127169 127184 127185 127222 127245 127406 127462 127491 127504 127548 127552 127561 127568 127570 127584 127590 127744 128728 128736 128749 128752 128765 128768 128884 128896 128985 128992 129004 129024 129036 129040 129096 129104 129114 129120 129160 129168 129198 129200 129202 129280 129401 129402 129484 129485 129620 129632 129646 129648 129653 129656 129659 129664 129671 129680 129705 129712 129719 129728 129731 129744 129751 129792 129939 129940 129995 END PK ! o�8p� � 5.34.0/unicore/lib/Gc/Cn.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1353 888 890 896 900 907 908 909 910 930 931 1328 1329 1367 1369 1419 1421 1424 1425 1480 1488 1515 1519 1525 1536 1565 1566 1806 1807 1867 1869 1970 1984 2043 2045 2094 2096 2111 2112 2140 2142 2143 2144 2155 2208 2229 2230 2248 2259 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2559 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2679 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2802 2809 2816 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2901 2904 2908 2910 2911 2916 2918 2936 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3067 3072 3085 3086 3089 3090 3113 3114 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3163 3168 3172 3174 3184 3191 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3328 3341 3342 3345 3346 3397 3398 3401 3402 3408 3412 3428 3430 3456 3457 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3558 3568 3570 3573 3585 3643 3647 3676 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3808 3840 3912 3913 3949 3953 3992 3993 4029 4030 4045 4046 4059 4096 4294 4295 4296 4301 4302 4304 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4989 4992 5018 5024 5110 5112 5118 5120 5789 5792 5881 5888 5901 5902 5909 5920 5943 5952 5972 5984 5997 5998 6001 6002 6004 6016 6110 6112 6122 6128 6138 6144 6159 6160 6170 6176 6265 6272 6315 6320 6390 6400 6431 6432 6444 6448 6460 6464 6465 6468 6510 6512 6517 6528 6572 6576 6602 6608 6619 6622 6684 6686 6751 6752 6781 6783 6794 6800 6810 6816 6830 6832 6849 6912 6988 6992 7037 7040 7156 7164 7224 7227 7242 7245 7305 7312 7355 7357 7368 7376 7419 7424 7674 7675 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8293 8294 8306 8308 8335 8336 8349 8352 8384 8400 8433 8448 8588 8592 9255 9280 9291 9312 11124 11126 11158 11159 11311 11312 11359 11360 11508 11513 11558 11559 11560 11565 11566 11568 11624 11631 11633 11647 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11859 11904 11930 11931 12020 12032 12246 12272 12284 12288 12352 12353 12439 12441 12544 12549 12592 12593 12687 12688 12772 12784 12831 12832 40957 40960 42125 42128 42183 42192 42540 42560 42744 42752 42944 42946 42955 42997 43053 43056 43066 43072 43128 43136 43206 43214 43226 43232 43348 43359 43389 43392 43470 43471 43482 43486 43519 43520 43575 43584 43598 43600 43610 43612 43715 43739 43767 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43884 43888 44014 44016 44026 44032 55204 55216 55239 55243 55292 55296 64110 64112 64218 64256 64263 64275 64280 64285 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64450 64467 64832 64848 64912 64914 64968 65008 65022 65024 65050 65056 65107 65108 65127 65128 65132 65136 65141 65142 65277 65279 65280 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65529 65534 65536 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65792 65795 65799 65844 65847 65935 65936 65949 65952 65953 66000 66046 66176 66205 66208 66257 66272 66300 66304 66340 66349 66379 66384 66427 66432 66462 66463 66500 66504 66518 66560 66718 66720 66730 66736 66772 66776 66812 66816 66856 66864 66916 66927 66928 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67671 67743 67751 67760 67808 67827 67828 67830 67835 67868 67871 67898 67903 67904 67968 68024 68028 68048 68050 68100 68101 68103 68108 68116 68117 68120 68121 68150 68152 68155 68159 68169 68176 68185 68192 68256 68288 68327 68331 68343 68352 68406 68409 68438 68440 68467 68472 68498 68505 68509 68521 68528 68608 68681 68736 68787 68800 68851 68858 68904 68912 68922 69216 69247 69248 69290 69291 69294 69296 69298 69376 69416 69424 69466 69552 69580 69600 69623 69632 69710 69714 69744 69759 69826 69837 69838 69840 69865 69872 69882 69888 69941 69942 69960 69968 70007 70016 70112 70113 70133 70144 70162 70163 70207 70272 70279 70280 70281 70282 70286 70287 70302 70303 70314 70320 70379 70384 70394 70400 70404 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70459 70469 70471 70473 70475 70478 70480 70481 70487 70488 70493 70500 70502 70509 70512 70517 70656 70748 70749 70754 70784 70856 70864 70874 71040 71094 71096 71134 71168 71237 71248 71258 71264 71277 71296 71353 71360 71370 71424 71451 71453 71468 71472 71488 71680 71740 71840 71923 71935 71943 71945 71946 71948 71956 71957 71959 71960 71990 71991 71993 71995 72007 72016 72026 72096 72104 72106 72152 72154 72165 72192 72264 72272 72355 72384 72441 72704 72713 72714 72759 72760 72774 72784 72813 72816 72848 72850 72872 72873 72887 72960 72967 72968 72970 72971 73015 73018 73019 73020 73022 73023 73032 73040 73050 73056 73062 73063 73065 73066 73103 73104 73106 73107 73113 73120 73130 73440 73465 73648 73649 73664 73714 73727 74650 74752 74863 74864 74869 74880 75076 77824 78895 78896 78905 82944 83527 92160 92729 92736 92767 92768 92778 92782 92784 92880 92910 92912 92918 92928 92998 93008 93018 93019 93026 93027 93048 93053 93072 93760 93851 93952 94027 94031 94088 94095 94112 94176 94181 94192 94194 94208 100344 100352 101590 101632 101641 110592 110879 110928 110931 110948 110952 110960 111356 113664 113771 113776 113789 113792 113801 113808 113818 113820 113828 118784 119030 119040 119079 119081 119273 119296 119366 119520 119540 119552 119639 119648 119673 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 121484 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123136 123181 123184 123198 123200 123210 123214 123216 123584 123642 123647 123648 124928 125125 125127 125143 125184 125260 125264 125274 125278 125280 126065 126133 126209 126270 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 126704 126706 126976 127020 127024 127124 127136 127151 127153 127168 127169 127184 127185 127222 127232 127406 127462 127491 127504 127548 127552 127561 127568 127570 127584 127590 127744 128728 128736 128749 128752 128765 128768 128884 128896 128985 128992 129004 129024 129036 129040 129096 129104 129114 129120 129160 129168 129198 129200 129202 129280 129401 129402 129484 129485 129620 129632 129646 129648 129653 129656 129659 129664 129671 129680 129705 129712 129719 129728 129731 129744 129751 129792 129939 129940 129995 130032 130042 131072 173790 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196608 201547 917505 917506 917536 917632 917760 918000 983040 1048574 1048576 1114110 END PK ! ����� � 5.34.0/unicore/lib/Gc/P.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V370 33 36 37 43 44 48 58 60 63 65 91 94 95 96 123 124 125 126 161 162 167 168 171 172 182 184 187 188 191 192 894 895 903 904 1370 1376 1417 1419 1470 1471 1472 1473 1475 1476 1478 1479 1523 1525 1545 1547 1548 1550 1563 1564 1566 1568 1642 1646 1748 1749 1792 1806 2039 2042 2096 2111 2142 2143 2404 2406 2416 2417 2557 2558 2678 2679 2800 2801 3191 3192 3204 3205 3572 3573 3663 3664 3674 3676 3844 3859 3860 3861 3898 3902 3973 3974 4048 4053 4057 4059 4170 4176 4347 4348 4960 4969 5120 5121 5742 5743 5787 5789 5867 5870 5941 5943 6100 6103 6104 6107 6144 6155 6468 6470 6686 6688 6816 6823 6824 6830 7002 7009 7164 7168 7227 7232 7294 7296 7360 7368 7379 7380 8208 8232 8240 8260 8261 8274 8275 8287 8317 8319 8333 8335 8968 8972 9001 9003 10088 10102 10181 10183 10214 10224 10627 10649 10712 10716 10748 10750 11513 11517 11518 11520 11632 11633 11776 11823 11824 11856 11858 11859 12289 12292 12296 12306 12308 12320 12336 12337 12349 12350 12448 12449 12539 12540 42238 42240 42509 42512 42611 42612 42622 42623 42738 42744 43124 43128 43214 43216 43256 43259 43260 43261 43310 43312 43359 43360 43457 43470 43486 43488 43612 43616 43742 43744 43760 43762 44011 44012 64830 64832 65040 65050 65072 65107 65108 65122 65123 65124 65128 65129 65130 65132 65281 65284 65285 65291 65292 65296 65306 65308 65311 65313 65339 65342 65343 65344 65371 65372 65373 65374 65375 65382 65792 65795 66463 66464 66512 66513 66927 66928 67671 67672 67871 67872 67903 67904 68176 68185 68223 68224 68336 68343 68409 68416 68505 68509 69293 69294 69461 69466 69703 69710 69819 69821 69822 69826 69952 69956 70004 70006 70085 70089 70093 70094 70107 70108 70109 70112 70200 70206 70313 70314 70731 70736 70746 70748 70749 70750 70854 70855 71105 71128 71233 71236 71264 71277 71484 71487 71739 71740 72004 72007 72162 72163 72255 72263 72346 72349 72350 72355 72769 72774 72816 72818 73463 73465 73727 73728 74864 74869 92782 92784 92917 92918 92983 92988 92996 92997 93847 93851 94178 94179 113823 113824 121479 121484 125278 125280 END PK ! ���M- - 5.34.0/unicore/lib/Gc/Zs.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 32 33 160 161 5760 5761 8192 8203 8239 8240 8287 8288 12288 12289 END PK ! DH�� � 5.34.0/unicore/lib/Gc/N.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V266 48 58 178 180 185 186 188 191 1632 1642 1776 1786 1984 1994 2406 2416 2534 2544 2548 2554 2662 2672 2790 2800 2918 2928 2930 2936 3046 3059 3174 3184 3192 3199 3302 3312 3416 3423 3430 3449 3558 3568 3664 3674 3792 3802 3872 3892 4160 4170 4240 4250 4969 4989 5870 5873 6112 6122 6128 6138 6160 6170 6470 6480 6608 6619 6784 6794 6800 6810 6992 7002 7088 7098 7232 7242 7248 7258 8304 8305 8308 8314 8320 8330 8528 8579 8581 8586 9312 9372 9450 9472 10102 10132 11517 11518 12295 12296 12321 12330 12344 12347 12690 12694 12832 12842 12872 12880 12881 12896 12928 12938 12977 12992 42528 42538 42726 42736 43056 43062 43216 43226 43264 43274 43472 43482 43504 43514 43600 43610 44016 44026 65296 65306 65799 65844 65856 65913 65930 65932 66273 66300 66336 66340 66369 66370 66378 66379 66513 66518 66720 66730 67672 67680 67705 67712 67751 67760 67835 67840 67862 67868 68028 68030 68032 68048 68050 68096 68160 68169 68221 68223 68253 68256 68331 68336 68440 68448 68472 68480 68521 68528 68858 68864 68912 68922 69216 69247 69405 69415 69457 69461 69573 69580 69714 69744 69872 69882 69942 69952 70096 70106 70113 70133 70384 70394 70736 70746 70864 70874 71248 71258 71360 71370 71472 71484 71904 71923 72016 72026 72784 72813 73040 73050 73120 73130 73664 73685 74752 74863 92768 92778 93008 93018 93019 93026 93824 93847 119520 119540 119648 119673 120782 120832 123200 123210 123632 123642 125127 125136 125264 125274 126065 126124 126125 126128 126129 126133 126209 126254 126255 126270 127232 127245 130032 130042 END PK ! ��X� 5.34.0/unicore/lib/Gc/Me.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V10 1160 1162 6846 6847 8413 8417 8418 8421 42608 42611 END PK ! ���� � 5.34.0/unicore/lib/Gc/Nd.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V122 48 58 1632 1642 1776 1786 1984 1994 2406 2416 2534 2544 2662 2672 2790 2800 2918 2928 3046 3056 3174 3184 3302 3312 3430 3440 3558 3568 3664 3674 3792 3802 3872 3882 4160 4170 4240 4250 6112 6122 6160 6170 6470 6480 6608 6618 6784 6794 6800 6810 6992 7002 7088 7098 7232 7242 7248 7258 42528 42538 43216 43226 43264 43274 43472 43482 43504 43514 43600 43610 44016 44026 65296 65306 66720 66730 68912 68922 69734 69744 69872 69882 69942 69952 70096 70106 70384 70394 70736 70746 70864 70874 71248 71258 71360 71370 71472 71482 71904 71914 72016 72026 72784 72794 73040 73050 73120 73130 92768 92778 93008 93018 120782 120832 123200 123210 123632 123642 125264 125274 130032 130042 END PK ! 6\�iK K 5.34.0/unicore/lib/Gc/So.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V364 166 167 169 170 174 175 176 177 1154 1155 1421 1423 1550 1552 1758 1759 1769 1770 1789 1791 2038 2039 2554 2555 2928 2929 3059 3065 3066 3067 3199 3200 3407 3408 3449 3450 3841 3844 3859 3860 3861 3864 3866 3872 3892 3893 3894 3895 3896 3897 4030 4038 4039 4045 4046 4048 4053 4057 4254 4256 5008 5018 5741 5742 6464 6465 6622 6656 7009 7019 7028 7037 8448 8450 8451 8455 8456 8458 8468 8469 8470 8472 8478 8484 8485 8486 8487 8488 8489 8490 8494 8495 8506 8508 8522 8523 8524 8526 8527 8528 8586 8588 8597 8602 8604 8608 8609 8611 8612 8614 8615 8622 8623 8654 8656 8658 8659 8660 8661 8692 8960 8968 8972 8992 8994 9001 9003 9084 9085 9115 9140 9180 9186 9255 9280 9291 9372 9450 9472 9655 9656 9665 9666 9720 9728 9839 9840 10088 10132 10176 10240 10496 11008 11056 11077 11079 11085 11124 11126 11158 11159 11264 11493 11499 11856 11858 11904 11930 11931 12020 12032 12246 12272 12284 12292 12293 12306 12308 12320 12321 12342 12344 12350 12352 12688 12690 12694 12704 12736 12772 12800 12831 12842 12872 12880 12881 12896 12928 12938 12977 12992 13312 19904 19968 42128 42183 43048 43052 43062 43064 43065 43066 43639 43642 65021 65022 65508 65509 65512 65513 65517 65519 65532 65534 65847 65856 65913 65930 65932 65935 65936 65949 65952 65953 66000 66045 67703 67705 68296 68297 71487 71488 73685 73693 73697 73714 92988 92992 92997 92998 113820 113821 118784 119030 119040 119079 119081 119141 119146 119149 119171 119173 119180 119210 119214 119273 119296 119362 119365 119366 119552 119639 120832 121344 121399 121403 121453 121461 121462 121476 121477 121479 123215 123216 126124 126125 126254 126255 126976 127020 127024 127124 127136 127151 127153 127168 127169 127184 127185 127222 127245 127406 127462 127491 127504 127548 127552 127561 127568 127570 127584 127590 127744 127995 128000 128728 128736 128749 128752 128765 128768 128884 128896 128985 128992 129004 129024 129036 129040 129096 129104 129114 129120 129160 129168 129198 129200 129202 129280 129401 129402 129484 129485 129620 129632 129646 129648 129653 129656 129659 129664 129671 129680 129705 129712 129719 129728 129731 129744 129751 129792 129939 129940 129995 END PK ! ���� � 5.34.0/unicore/lib/Gc/LC.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V264 65 91 97 123 181 182 192 215 216 247 248 443 444 448 452 660 661 688 880 884 886 888 891 894 895 896 902 903 904 907 908 909 910 930 931 1014 1015 1154 1162 1328 1329 1367 1376 1417 4256 4294 4295 4296 4301 4302 4304 4347 4349 4352 5024 5110 5112 5118 7296 7305 7312 7355 7357 7360 7424 7468 7531 7544 7545 7579 7680 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8125 8126 8127 8130 8133 8134 8141 8144 8148 8150 8156 8160 8173 8178 8181 8182 8189 8450 8451 8455 8456 8458 8468 8469 8470 8473 8478 8484 8485 8486 8487 8488 8489 8490 8494 8495 8501 8505 8506 8508 8512 8517 8522 8526 8527 8579 8581 11264 11311 11312 11359 11360 11388 11390 11493 11499 11503 11506 11508 11520 11558 11559 11560 11565 11566 42560 42606 42624 42652 42786 42864 42865 42888 42891 42895 42896 42944 42946 42955 42997 42999 43002 43003 43824 43867 43872 43881 43888 43968 64256 64263 64275 64280 65313 65339 65345 65371 66560 66640 66736 66772 66776 66812 68736 68787 68800 68851 71840 71904 93760 93824 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120513 120514 120539 120540 120571 120572 120597 120598 120629 120630 120655 120656 120687 120688 120713 120714 120745 120746 120771 120772 120780 125184 125252 END PK ! �a��� � 5.34.0/unicore/lib/Gc/Sc.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V42 36 37 162 166 1423 1424 1547 1548 2046 2048 2546 2548 2555 2556 2801 2802 3065 3066 3647 3648 6107 6108 8352 8384 43064 43065 65020 65021 65129 65130 65284 65285 65504 65506 65509 65511 73693 73697 123647 123648 126128 126129 END PK ! ���;� � 5.34.0/unicore/lib/Gc/L.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1244 65 91 97 123 170 171 181 182 186 187 192 215 216 247 248 706 710 722 736 741 748 749 750 751 880 885 886 888 890 894 895 896 902 903 904 907 908 909 910 930 931 1014 1015 1154 1162 1328 1329 1367 1369 1370 1376 1417 1488 1515 1519 1523 1568 1611 1646 1648 1649 1748 1749 1750 1765 1767 1774 1776 1786 1789 1791 1792 1808 1809 1810 1840 1869 1958 1969 1970 1994 2027 2036 2038 2042 2043 2048 2070 2074 2075 2084 2085 2088 2089 2112 2137 2144 2155 2208 2229 2230 2248 2308 2362 2365 2366 2384 2385 2392 2402 2417 2433 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2493 2494 2510 2511 2524 2526 2527 2530 2544 2546 2556 2557 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2649 2653 2654 2655 2674 2677 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2749 2750 2768 2769 2784 2786 2809 2810 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2877 2878 2908 2910 2911 2914 2929 2930 2947 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3024 3025 3077 3085 3086 3089 3090 3113 3114 3130 3133 3134 3160 3163 3168 3170 3200 3201 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3261 3262 3294 3295 3296 3298 3313 3315 3332 3341 3342 3345 3346 3387 3389 3390 3406 3407 3412 3415 3423 3426 3450 3456 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3585 3633 3634 3636 3648 3655 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3761 3762 3764 3773 3774 3776 3781 3782 3783 3804 3808 3840 3841 3904 3912 3913 3949 3976 3981 4096 4139 4159 4160 4176 4182 4186 4190 4193 4194 4197 4199 4206 4209 4213 4226 4238 4239 4256 4294 4295 4296 4301 4302 4304 4347 4348 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4992 5008 5024 5110 5112 5118 5121 5741 5743 5760 5761 5787 5792 5867 5873 5881 5888 5901 5902 5906 5920 5938 5952 5970 5984 5997 5998 6001 6016 6068 6103 6104 6108 6109 6176 6265 6272 6277 6279 6313 6314 6315 6320 6390 6400 6431 6480 6510 6512 6517 6528 6572 6576 6602 6656 6679 6688 6741 6823 6824 6917 6964 6981 6988 7043 7073 7086 7088 7098 7142 7168 7204 7245 7248 7258 7294 7296 7305 7312 7355 7357 7360 7401 7405 7406 7412 7413 7415 7418 7419 7424 7616 7680 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8125 8126 8127 8130 8133 8134 8141 8144 8148 8150 8156 8160 8173 8178 8181 8182 8189 8305 8306 8319 8320 8336 8349 8450 8451 8455 8456 8458 8468 8469 8470 8473 8478 8484 8485 8486 8487 8488 8489 8490 8494 8495 8506 8508 8512 8517 8522 8526 8527 8579 8581 11264 11311 11312 11359 11360 11493 11499 11503 11506 11508 11520 11558 11559 11560 11565 11566 11568 11624 11631 11632 11648 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11823 11824 12293 12295 12337 12342 12347 12349 12353 12439 12445 12448 12449 12539 12540 12544 12549 12592 12593 12687 12704 12736 12784 12800 13312 19904 19968 40957 40960 42125 42192 42238 42240 42509 42512 42528 42538 42540 42560 42607 42623 42654 42656 42726 42775 42784 42786 42889 42891 42944 42946 42955 42997 43010 43011 43014 43015 43019 43020 43043 43072 43124 43138 43188 43250 43256 43259 43260 43261 43263 43274 43302 43312 43335 43360 43389 43396 43443 43471 43472 43488 43493 43494 43504 43514 43519 43520 43561 43584 43587 43588 43596 43616 43639 43642 43643 43646 43696 43697 43698 43701 43703 43705 43710 43712 43713 43714 43715 43739 43742 43744 43755 43762 43765 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43867 43868 43882 43888 44003 44032 55204 55216 55239 55243 55292 63744 64110 64112 64218 64256 64263 64275 64280 64285 64286 64287 64297 64298 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64830 64848 64912 64914 64968 65008 65020 65136 65141 65142 65277 65313 65339 65345 65371 65382 65471 65474 65480 65482 65488 65490 65496 65498 65501 65536 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 66176 66205 66208 66257 66304 66336 66349 66369 66370 66378 66384 66422 66432 66462 66464 66500 66504 66512 66560 66718 66736 66772 66776 66812 66816 66856 66864 66916 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67680 67703 67712 67743 67808 67827 67828 67830 67840 67862 67872 67898 67968 68024 68030 68032 68096 68097 68112 68116 68117 68120 68121 68150 68192 68221 68224 68253 68288 68296 68297 68325 68352 68406 68416 68438 68448 68467 68480 68498 68608 68681 68736 68787 68800 68851 68864 68900 69248 69290 69296 69298 69376 69405 69415 69416 69424 69446 69552 69573 69600 69623 69635 69688 69763 69808 69840 69865 69891 69927 69956 69957 69959 69960 69968 70003 70006 70007 70019 70067 70081 70085 70106 70107 70108 70109 70144 70162 70163 70188 70272 70279 70280 70281 70282 70286 70287 70302 70303 70313 70320 70367 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70461 70462 70480 70481 70493 70498 70656 70709 70727 70731 70751 70754 70784 70832 70852 70854 70855 70856 71040 71087 71128 71132 71168 71216 71236 71237 71296 71339 71352 71353 71424 71451 71680 71724 71840 71904 71935 71943 71945 71946 71948 71956 71957 71959 71960 71984 71999 72000 72001 72002 72096 72104 72106 72145 72161 72162 72163 72164 72192 72193 72203 72243 72250 72251 72272 72273 72284 72330 72349 72350 72384 72441 72704 72713 72714 72751 72768 72769 72818 72848 72960 72967 72968 72970 72971 73009 73030 73031 73056 73062 73063 73065 73066 73098 73112 73113 73440 73459 73648 73649 73728 74650 74880 75076 77824 78895 82944 83527 92160 92729 92736 92767 92880 92910 92928 92976 92992 92996 93027 93048 93053 93072 93760 93824 93952 94027 94032 94033 94099 94112 94176 94178 94179 94180 94208 100344 100352 101590 101632 101641 110592 110879 110928 110931 110948 110952 110960 111356 113664 113771 113776 113789 113792 113801 113808 113818 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120513 120514 120539 120540 120571 120572 120597 120598 120629 120630 120655 120656 120687 120688 120713 120714 120745 120746 120771 120772 120780 123136 123181 123191 123198 123214 123215 123584 123628 124928 125125 125184 125252 125259 125260 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 131072 173790 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196608 201547 END PK ! � i>u u 5.34.0/unicore/lib/Gc/Nl.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V24 5870 5873 8544 8579 8581 8585 12295 12296 12321 12330 12344 12347 42726 42736 65856 65909 66369 66370 66378 66379 66513 66518 74752 74863 END PK ! �rϽ � 5.34.0/unicore/lib/Gc/C.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1357 0 32 127 160 173 174 888 890 896 900 907 908 909 910 930 931 1328 1329 1367 1369 1419 1421 1424 1425 1480 1488 1515 1519 1525 1542 1564 1566 1757 1758 1806 1808 1867 1869 1970 1984 2043 2045 2094 2096 2111 2112 2140 2142 2143 2144 2155 2208 2229 2230 2248 2259 2274 2275 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2559 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2679 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2802 2809 2816 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2901 2904 2908 2910 2911 2916 2918 2936 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3067 3072 3085 3086 3089 3090 3113 3114 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3163 3168 3172 3174 3184 3191 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3328 3341 3342 3345 3346 3397 3398 3401 3402 3408 3412 3428 3430 3456 3457 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3558 3568 3570 3573 3585 3643 3647 3676 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3808 3840 3912 3913 3949 3953 3992 3993 4029 4030 4045 4046 4059 4096 4294 4295 4296 4301 4302 4304 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4989 4992 5018 5024 5110 5112 5118 5120 5789 5792 5881 5888 5901 5902 5909 5920 5943 5952 5972 5984 5997 5998 6001 6002 6004 6016 6110 6112 6122 6128 6138 6144 6158 6160 6170 6176 6265 6272 6315 6320 6390 6400 6431 6432 6444 6448 6460 6464 6465 6468 6510 6512 6517 6528 6572 6576 6602 6608 6619 6622 6684 6686 6751 6752 6781 6783 6794 6800 6810 6816 6830 6832 6849 6912 6988 6992 7037 7040 7156 7164 7224 7227 7242 7245 7305 7312 7355 7357 7368 7376 7419 7424 7674 7675 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8203 8208 8234 8239 8288 8304 8306 8308 8335 8336 8349 8352 8384 8400 8433 8448 8588 8592 9255 9280 9291 9312 11124 11126 11158 11159 11311 11312 11359 11360 11508 11513 11558 11559 11560 11565 11566 11568 11624 11631 11633 11647 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11859 11904 11930 11931 12020 12032 12246 12272 12284 12288 12352 12353 12439 12441 12544 12549 12592 12593 12687 12688 12772 12784 12831 12832 40957 40960 42125 42128 42183 42192 42540 42560 42744 42752 42944 42946 42955 42997 43053 43056 43066 43072 43128 43136 43206 43214 43226 43232 43348 43359 43389 43392 43470 43471 43482 43486 43519 43520 43575 43584 43598 43600 43610 43612 43715 43739 43767 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43884 43888 44014 44016 44026 44032 55204 55216 55239 55243 55292 63744 64110 64112 64218 64256 64263 64275 64280 64285 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64450 64467 64832 64848 64912 64914 64968 65008 65022 65024 65050 65056 65107 65108 65127 65128 65132 65136 65141 65142 65277 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65532 65534 65536 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65792 65795 65799 65844 65847 65935 65936 65949 65952 65953 66000 66046 66176 66205 66208 66257 66272 66300 66304 66340 66349 66379 66384 66427 66432 66462 66463 66500 66504 66518 66560 66718 66720 66730 66736 66772 66776 66812 66816 66856 66864 66916 66927 66928 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67671 67743 67751 67760 67808 67827 67828 67830 67835 67868 67871 67898 67903 67904 67968 68024 68028 68048 68050 68100 68101 68103 68108 68116 68117 68120 68121 68150 68152 68155 68159 68169 68176 68185 68192 68256 68288 68327 68331 68343 68352 68406 68409 68438 68440 68467 68472 68498 68505 68509 68521 68528 68608 68681 68736 68787 68800 68851 68858 68904 68912 68922 69216 69247 69248 69290 69291 69294 69296 69298 69376 69416 69424 69466 69552 69580 69600 69623 69632 69710 69714 69744 69759 69821 69822 69826 69840 69865 69872 69882 69888 69941 69942 69960 69968 70007 70016 70112 70113 70133 70144 70162 70163 70207 70272 70279 70280 70281 70282 70286 70287 70302 70303 70314 70320 70379 70384 70394 70400 70404 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70459 70469 70471 70473 70475 70478 70480 70481 70487 70488 70493 70500 70502 70509 70512 70517 70656 70748 70749 70754 70784 70856 70864 70874 71040 71094 71096 71134 71168 71237 71248 71258 71264 71277 71296 71353 71360 71370 71424 71451 71453 71468 71472 71488 71680 71740 71840 71923 71935 71943 71945 71946 71948 71956 71957 71959 71960 71990 71991 71993 71995 72007 72016 72026 72096 72104 72106 72152 72154 72165 72192 72264 72272 72355 72384 72441 72704 72713 72714 72759 72760 72774 72784 72813 72816 72848 72850 72872 72873 72887 72960 72967 72968 72970 72971 73015 73018 73019 73020 73022 73023 73032 73040 73050 73056 73062 73063 73065 73066 73103 73104 73106 73107 73113 73120 73130 73440 73465 73648 73649 73664 73714 73727 74650 74752 74863 74864 74869 74880 75076 77824 78895 82944 83527 92160 92729 92736 92767 92768 92778 92782 92784 92880 92910 92912 92918 92928 92998 93008 93018 93019 93026 93027 93048 93053 93072 93760 93851 93952 94027 94031 94088 94095 94112 94176 94181 94192 94194 94208 100344 100352 101590 101632 101641 110592 110879 110928 110931 110948 110952 110960 111356 113664 113771 113776 113789 113792 113801 113808 113818 113820 113824 118784 119030 119040 119079 119081 119155 119163 119273 119296 119366 119520 119540 119552 119639 119648 119673 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 121484 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123136 123181 123184 123198 123200 123210 123214 123216 123584 123642 123647 123648 124928 125125 125127 125143 125184 125260 125264 125274 125278 125280 126065 126133 126209 126270 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 126704 126706 126976 127020 127024 127124 127136 127151 127153 127168 127169 127184 127185 127222 127232 127406 127462 127491 127504 127548 127552 127561 127568 127570 127584 127590 127744 128728 128736 128749 128752 128765 128768 128884 128896 128985 128992 129004 129024 129036 129040 129096 129104 129114 129120 129160 129168 129198 129200 129202 129280 129401 129402 129484 129485 129620 129632 129646 129648 129653 129656 129659 129664 129671 129680 129705 129712 129719 129728 129731 129744 129751 129792 129939 129940 129995 130032 130042 131072 173790 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196608 201547 917760 918000 END PK ! ��/�Y Y 5.34.0/unicore/lib/Gc/Pf.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V20 187 188 8217 8218 8221 8222 8250 8251 11779 11780 11781 11782 11786 11787 11789 11790 11805 11806 11809 11810 END PK ! v�t�� � 5.34.0/unicore/lib/Gc/Sm.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V128 43 44 60 63 124 125 126 127 172 173 177 178 215 216 247 248 1014 1015 1542 1545 8260 8261 8274 8275 8314 8317 8330 8333 8472 8473 8512 8517 8523 8524 8592 8597 8602 8604 8608 8609 8611 8612 8614 8615 8622 8623 8654 8656 8658 8659 8660 8661 8692 8960 8992 8994 9084 9085 9115 9140 9180 9186 9655 9656 9665 9666 9720 9728 9839 9840 10176 10181 10183 10214 10224 10240 10496 10627 10649 10712 10716 10748 10750 11008 11056 11077 11079 11085 64297 64298 65122 65123 65124 65127 65291 65292 65308 65311 65372 65373 65374 65375 65506 65507 65513 65517 120513 120514 120539 120540 120571 120572 120597 120598 120629 120630 120655 120656 120687 120688 120713 120714 120745 120746 120771 120772 126704 126706 END PK ! o� 5.34.0/unicore/lib/Gc/Sk.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V60 94 95 96 97 168 169 175 176 180 181 184 185 706 710 722 736 741 748 749 750 751 768 885 886 900 902 8125 8126 8127 8130 8141 8144 8157 8160 8173 8176 8189 8191 12443 12445 42752 42775 42784 42786 42889 42891 43867 43868 43882 43884 64434 64450 65342 65343 65344 65345 65507 65508 127995 128000 END PK ! }&L� � 5.34.0/unicore/lib/Gc/Lm.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V122 688 706 710 722 736 741 748 749 750 751 884 885 890 891 1369 1370 1600 1601 1765 1767 2036 2038 2042 2043 2074 2075 2084 2085 2088 2089 2417 2418 3654 3655 3782 3783 4348 4349 6103 6104 6211 6212 6823 6824 7288 7294 7468 7531 7544 7545 7579 7616 8305 8306 8319 8320 8336 8349 11388 11390 11631 11632 11823 11824 12293 12294 12337 12342 12347 12348 12445 12447 12540 12543 40981 40982 42232 42238 42508 42509 42623 42624 42652 42654 42775 42784 42864 42865 42888 42889 43000 43002 43471 43472 43494 43495 43632 43633 43741 43742 43763 43765 43868 43872 43881 43882 65392 65393 65438 65440 92992 92996 94099 94112 94176 94178 94179 94180 123191 123198 125259 125260 END PK ! 5�2�7 7 5.34.0/unicore/lib/Gc/Z.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V16 32 33 160 161 5760 5761 8192 8203 8232 8234 8239 8240 8287 8288 12288 12289 END PK ! 4`YY� � 5.34.0/unicore/lib/Gc/Lo.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V978 170 171 186 187 443 444 448 452 660 661 1488 1515 1519 1523 1568 1600 1601 1611 1646 1648 1649 1748 1749 1750 1774 1776 1786 1789 1791 1792 1808 1809 1810 1840 1869 1958 1969 1970 1994 2027 2048 2070 2112 2137 2144 2155 2208 2229 2230 2248 2308 2362 2365 2366 2384 2385 2392 2402 2418 2433 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2493 2494 2510 2511 2524 2526 2527 2530 2544 2546 2556 2557 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2649 2653 2654 2655 2674 2677 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2749 2750 2768 2769 2784 2786 2809 2810 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2877 2878 2908 2910 2911 2914 2929 2930 2947 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3024 3025 3077 3085 3086 3089 3090 3113 3114 3130 3133 3134 3160 3163 3168 3170 3200 3201 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3261 3262 3294 3295 3296 3298 3313 3315 3332 3341 3342 3345 3346 3387 3389 3390 3406 3407 3412 3415 3423 3426 3450 3456 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3585 3633 3634 3636 3648 3654 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3761 3762 3764 3773 3774 3776 3781 3804 3808 3840 3841 3904 3912 3913 3949 3976 3981 4096 4139 4159 4160 4176 4182 4186 4190 4193 4194 4197 4199 4206 4209 4213 4226 4238 4239 4352 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4992 5008 5121 5741 5743 5760 5761 5787 5792 5867 5873 5881 5888 5901 5902 5906 5920 5938 5952 5970 5984 5997 5998 6001 6016 6068 6108 6109 6176 6211 6212 6265 6272 6277 6279 6313 6314 6315 6320 6390 6400 6431 6480 6510 6512 6517 6528 6572 6576 6602 6656 6679 6688 6741 6917 6964 6981 6988 7043 7073 7086 7088 7098 7142 7168 7204 7245 7248 7258 7288 7401 7405 7406 7412 7413 7415 7418 7419 8501 8505 11568 11624 11648 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 12294 12295 12348 12349 12353 12439 12447 12448 12449 12539 12543 12544 12549 12592 12593 12687 12704 12736 12784 12800 13312 19904 19968 40957 40960 40981 40982 42125 42192 42232 42240 42508 42512 42528 42538 42540 42606 42607 42656 42726 42895 42896 42999 43000 43003 43010 43011 43014 43015 43019 43020 43043 43072 43124 43138 43188 43250 43256 43259 43260 43261 43263 43274 43302 43312 43335 43360 43389 43396 43443 43488 43493 43495 43504 43514 43519 43520 43561 43584 43587 43588 43596 43616 43632 43633 43639 43642 43643 43646 43696 43697 43698 43701 43703 43705 43710 43712 43713 43714 43715 43739 43741 43744 43755 43762 43763 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43968 44003 44032 55204 55216 55239 55243 55292 63744 64110 64112 64218 64285 64286 64287 64297 64298 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64830 64848 64912 64914 64968 65008 65020 65136 65141 65142 65277 65382 65392 65393 65438 65440 65471 65474 65480 65482 65488 65490 65496 65498 65501 65536 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 66176 66205 66208 66257 66304 66336 66349 66369 66370 66378 66384 66422 66432 66462 66464 66500 66504 66512 66640 66718 66816 66856 66864 66916 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67680 67703 67712 67743 67808 67827 67828 67830 67840 67862 67872 67898 67968 68024 68030 68032 68096 68097 68112 68116 68117 68120 68121 68150 68192 68221 68224 68253 68288 68296 68297 68325 68352 68406 68416 68438 68448 68467 68480 68498 68608 68681 68864 68900 69248 69290 69296 69298 69376 69405 69415 69416 69424 69446 69552 69573 69600 69623 69635 69688 69763 69808 69840 69865 69891 69927 69956 69957 69959 69960 69968 70003 70006 70007 70019 70067 70081 70085 70106 70107 70108 70109 70144 70162 70163 70188 70272 70279 70280 70281 70282 70286 70287 70302 70303 70313 70320 70367 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70461 70462 70480 70481 70493 70498 70656 70709 70727 70731 70751 70754 70784 70832 70852 70854 70855 70856 71040 71087 71128 71132 71168 71216 71236 71237 71296 71339 71352 71353 71424 71451 71680 71724 71935 71943 71945 71946 71948 71956 71957 71959 71960 71984 71999 72000 72001 72002 72096 72104 72106 72145 72161 72162 72163 72164 72192 72193 72203 72243 72250 72251 72272 72273 72284 72330 72349 72350 72384 72441 72704 72713 72714 72751 72768 72769 72818 72848 72960 72967 72968 72970 72971 73009 73030 73031 73056 73062 73063 73065 73066 73098 73112 73113 73440 73459 73648 73649 73728 74650 74880 75076 77824 78895 82944 83527 92160 92729 92736 92767 92880 92910 92928 92976 93027 93048 93053 93072 93952 94027 94032 94033 94208 100344 100352 101590 101632 101641 110592 110879 110928 110931 110948 110952 110960 111356 113664 113771 113776 113789 113792 113801 113808 113818 123136 123181 123214 123215 123584 123628 124928 125125 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 131072 173790 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196608 201547 END PK ! ({��c c 5.34.0/unicore/lib/Gc/Pi.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V22 171 172 8216 8217 8219 8221 8223 8224 8249 8250 11778 11779 11780 11781 11785 11786 11788 11789 11804 11805 11808 11809 END PK ! ��!3� � 5.34.0/unicore/lib/Gc/Cf.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V40 173 174 1536 1542 1564 1565 1757 1758 1807 1808 2274 2275 6158 6159 8203 8208 8234 8239 8288 8293 8294 8304 65279 65280 65529 65532 69821 69822 69837 69838 78896 78905 113824 113828 119155 119163 917505 917506 917536 917632 END PK ! bɼг � 5.34.0/unicore/lib/Gc/Pd.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V36 45 46 1418 1419 1470 1471 5120 5121 6150 6151 8208 8214 11799 11800 11802 11803 11834 11836 11840 11841 12316 12317 12336 12337 12448 12449 65073 65075 65112 65113 65123 65124 65293 65294 69293 69294 END PK ! ��}m m 5.34.0/unicore/lib/Gc/Lu.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1276 65 91 192 215 216 223 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 378 379 380 381 382 385 387 388 389 390 392 393 396 398 402 403 405 406 409 412 414 415 417 418 419 420 421 422 424 425 426 428 429 430 432 433 436 437 438 439 441 444 445 452 453 455 456 458 459 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 497 498 500 501 502 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 570 572 573 575 577 578 579 583 584 585 586 587 588 589 590 591 880 881 882 883 886 887 895 896 902 903 904 907 908 909 910 912 913 930 931 940 975 976 978 981 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1012 1013 1015 1016 1017 1019 1021 1072 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 1329 1367 4256 4294 4295 4296 4301 4302 5024 5110 7312 7355 7357 7360 7680 7681 7682 7683 7684 7685 7686 7687 7688 7689 7690 7691 7692 7693 7694 7695 7696 7697 7698 7699 7700 7701 7702 7703 7704 7705 7706 7707 7708 7709 7710 7711 7712 7713 7714 7715 7716 7717 7718 7719 7720 7721 7722 7723 7724 7725 7726 7727 7728 7729 7730 7731 7732 7733 7734 7735 7736 7737 7738 7739 7740 7741 7742 7743 7744 7745 7746 7747 7748 7749 7750 7751 7752 7753 7754 7755 7756 7757 7758 7759 7760 7761 7762 7763 7764 7765 7766 7767 7768 7769 7770 7771 7772 7773 7774 7775 7776 7777 7778 7779 7780 7781 7782 7783 7784 7785 7786 7787 7788 7789 7790 7791 7792 7793 7794 7795 7796 7797 7798 7799 7800 7801 7802 7803 7804 7805 7806 7807 7808 7809 7810 7811 7812 7813 7814 7815 7816 7817 7818 7819 7820 7821 7822 7823 7824 7825 7826 7827 7828 7829 7838 7839 7840 7841 7842 7843 7844 7845 7846 7847 7848 7849 7850 7851 7852 7853 7854 7855 7856 7857 7858 7859 7860 7861 7862 7863 7864 7865 7866 7867 7868 7869 7870 7871 7872 7873 7874 7875 7876 7877 7878 7879 7880 7881 7882 7883 7884 7885 7886 7887 7888 7889 7890 7891 7892 7893 7894 7895 7896 7897 7898 7899 7900 7901 7902 7903 7904 7905 7906 7907 7908 7909 7910 7911 7912 7913 7914 7915 7916 7917 7918 7919 7920 7921 7922 7923 7924 7925 7926 7927 7928 7929 7930 7931 7932 7933 7934 7935 7944 7952 7960 7966 7976 7984 7992 8000 8008 8014 8025 8026 8027 8028 8029 8030 8031 8032 8040 8048 8120 8124 8136 8140 8152 8156 8168 8173 8184 8188 8450 8451 8455 8456 8459 8462 8464 8467 8469 8470 8473 8478 8484 8485 8486 8487 8488 8489 8490 8494 8496 8500 8510 8512 8517 8518 8579 8580 11264 11311 11360 11361 11362 11365 11367 11368 11369 11370 11371 11372 11373 11377 11378 11379 11381 11382 11390 11393 11394 11395 11396 11397 11398 11399 11400 11401 11402 11403 11404 11405 11406 11407 11408 11409 11410 11411 11412 11413 11414 11415 11416 11417 11418 11419 11420 11421 11422 11423 11424 11425 11426 11427 11428 11429 11430 11431 11432 11433 11434 11435 11436 11437 11438 11439 11440 11441 11442 11443 11444 11445 11446 11447 11448 11449 11450 11451 11452 11453 11454 11455 11456 11457 11458 11459 11460 11461 11462 11463 11464 11465 11466 11467 11468 11469 11470 11471 11472 11473 11474 11475 11476 11477 11478 11479 11480 11481 11482 11483 11484 11485 11486 11487 11488 11489 11490 11491 11499 11500 11501 11502 11506 11507 42560 42561 42562 42563 42564 42565 42566 42567 42568 42569 42570 42571 42572 42573 42574 42575 42576 42577 42578 42579 42580 42581 42582 42583 42584 42585 42586 42587 42588 42589 42590 42591 42592 42593 42594 42595 42596 42597 42598 42599 42600 42601 42602 42603 42604 42605 42624 42625 42626 42627 42628 42629 42630 42631 42632 42633 42634 42635 42636 42637 42638 42639 42640 42641 42642 42643 42644 42645 42646 42647 42648 42649 42650 42651 42786 42787 42788 42789 42790 42791 42792 42793 42794 42795 42796 42797 42798 42799 42802 42803 42804 42805 42806 42807 42808 42809 42810 42811 42812 42813 42814 42815 42816 42817 42818 42819 42820 42821 42822 42823 42824 42825 42826 42827 42828 42829 42830 42831 42832 42833 42834 42835 42836 42837 42838 42839 42840 42841 42842 42843 42844 42845 42846 42847 42848 42849 42850 42851 42852 42853 42854 42855 42856 42857 42858 42859 42860 42861 42862 42863 42873 42874 42875 42876 42877 42879 42880 42881 42882 42883 42884 42885 42886 42887 42891 42892 42893 42894 42896 42897 42898 42899 42902 42903 42904 42905 42906 42907 42908 42909 42910 42911 42912 42913 42914 42915 42916 42917 42918 42919 42920 42921 42922 42927 42928 42933 42934 42935 42936 42937 42938 42939 42940 42941 42942 42943 42946 42947 42948 42952 42953 42954 42997 42998 65313 65339 66560 66600 66736 66772 68736 68787 71840 71872 93760 93792 119808 119834 119860 119886 119912 119938 119964 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119990 120016 120042 120068 120070 120071 120075 120077 120085 120086 120093 120120 120122 120123 120127 120128 120133 120134 120135 120138 120145 120172 120198 120224 120250 120276 120302 120328 120354 120380 120406 120432 120458 120488 120513 120546 120571 120604 120629 120662 120687 120720 120745 120778 120779 125184 125218 END PK ! �M|J J 5.34.0/unicore/lib/Gc/Ps.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V150 40 41 91 92 123 124 3898 3899 3900 3901 5787 5788 8218 8219 8222 8223 8261 8262 8317 8318 8333 8334 8968 8969 8970 8971 9001 9002 10088 10089 10090 10091 10092 10093 10094 10095 10096 10097 10098 10099 10100 10101 10181 10182 10214 10215 10216 10217 10218 10219 10220 10221 10222 10223 10627 10628 10629 10630 10631 10632 10633 10634 10635 10636 10637 10638 10639 10640 10641 10642 10643 10644 10645 10646 10647 10648 10712 10713 10714 10715 10748 10749 11810 11811 11812 11813 11814 11815 11816 11817 11842 11843 12296 12297 12298 12299 12300 12301 12302 12303 12304 12305 12308 12309 12310 12311 12312 12313 12314 12315 12317 12318 64831 64832 65047 65048 65077 65078 65079 65080 65081 65082 65083 65084 65085 65086 65087 65088 65089 65090 65091 65092 65095 65096 65113 65114 65115 65116 65117 65118 65288 65289 65339 65340 65371 65372 65375 65376 65378 65379 END PK ! M�cN* * 5.34.0/unicore/lib/Gc/Pe.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V144 41 42 93 94 125 126 3899 3900 3901 3902 5788 5789 8262 8263 8318 8319 8334 8335 8969 8970 8971 8972 9002 9003 10089 10090 10091 10092 10093 10094 10095 10096 10097 10098 10099 10100 10101 10102 10182 10183 10215 10216 10217 10218 10219 10220 10221 10222 10223 10224 10628 10629 10630 10631 10632 10633 10634 10635 10636 10637 10638 10639 10640 10641 10642 10643 10644 10645 10646 10647 10648 10649 10713 10714 10715 10716 10749 10750 11811 11812 11813 11814 11815 11816 11817 11818 12297 12298 12299 12300 12301 12302 12303 12304 12305 12306 12309 12310 12311 12312 12313 12314 12315 12316 12318 12320 64830 64831 65048 65049 65078 65079 65080 65081 65082 65083 65084 65085 65086 65087 65088 65089 65090 65091 65092 65093 65096 65097 65114 65115 65116 65117 65118 65119 65289 65290 65341 65342 65373 65374 65376 65377 65379 65380 END PK ! ��O�� � 5.34.0/unicore/lib/Gc/Po.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V362 33 36 37 40 42 43 44 45 46 48 58 60 63 65 92 93 161 162 167 168 182 184 191 192 894 895 903 904 1370 1376 1417 1418 1472 1473 1475 1476 1478 1479 1523 1525 1545 1547 1548 1550 1563 1564 1566 1568 1642 1646 1748 1749 1792 1806 2039 2042 2096 2111 2142 2143 2404 2406 2416 2417 2557 2558 2678 2679 2800 2801 3191 3192 3204 3205 3572 3573 3663 3664 3674 3676 3844 3859 3860 3861 3973 3974 4048 4053 4057 4059 4170 4176 4347 4348 4960 4969 5742 5743 5867 5870 5941 5943 6100 6103 6104 6107 6144 6150 6151 6155 6468 6470 6686 6688 6816 6823 6824 6830 7002 7009 7164 7168 7227 7232 7294 7296 7360 7368 7379 7380 8214 8216 8224 8232 8240 8249 8251 8255 8257 8260 8263 8274 8275 8276 8277 8287 11513 11517 11518 11520 11632 11633 11776 11778 11782 11785 11787 11788 11790 11799 11800 11802 11803 11804 11806 11808 11818 11823 11824 11834 11836 11840 11841 11842 11843 11856 11858 11859 12289 12292 12349 12350 12539 12540 42238 42240 42509 42512 42611 42612 42622 42623 42738 42744 43124 43128 43214 43216 43256 43259 43260 43261 43310 43312 43359 43360 43457 43470 43486 43488 43612 43616 43742 43744 43760 43762 44011 44012 65040 65047 65049 65050 65072 65073 65093 65095 65097 65101 65104 65107 65108 65112 65119 65122 65128 65129 65130 65132 65281 65284 65285 65288 65290 65291 65292 65293 65294 65296 65306 65308 65311 65313 65340 65341 65377 65378 65380 65382 65792 65795 66463 66464 66512 66513 66927 66928 67671 67672 67871 67872 67903 67904 68176 68185 68223 68224 68336 68343 68409 68416 68505 68509 69461 69466 69703 69710 69819 69821 69822 69826 69952 69956 70004 70006 70085 70089 70093 70094 70107 70108 70109 70112 70200 70206 70313 70314 70731 70736 70746 70748 70749 70750 70854 70855 71105 71128 71233 71236 71264 71277 71484 71487 71739 71740 72004 72007 72162 72163 72255 72263 72346 72349 72350 72355 72769 72774 72816 72818 73463 73465 73727 73728 74864 74869 92782 92784 92917 92918 92983 92988 92996 92997 93847 93851 94178 94179 113823 113824 121479 121484 125278 125280 END PK ! 7�+�o o 5.34.0/unicore/lib/QMark/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V26 34 35 39 40 171 172 187 188 8216 8224 8249 8251 11842 11843 12300 12304 12317 12320 65089 65093 65282 65283 65287 65288 65378 65380 END PK ! S��. . 5.34.0/unicore/lib/Math/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V276 43 44 60 63 94 95 124 125 126 127 172 173 177 178 215 216 247 248 976 979 981 982 1008 1010 1012 1015 1542 1545 8214 8215 8242 8245 8256 8257 8260 8261 8274 8275 8289 8293 8314 8319 8330 8335 8400 8413 8417 8418 8421 8423 8427 8432 8450 8451 8455 8456 8458 8468 8469 8470 8472 8478 8484 8485 8488 8490 8492 8494 8495 8498 8499 8505 8508 8522 8523 8524 8592 8616 8617 8623 8624 8626 8630 8632 8636 8668 8669 8670 8676 8678 8692 8960 8968 8972 8992 8994 9084 9085 9115 9142 9143 9144 9168 9169 9180 9187 9632 9634 9646 9656 9660 9666 9670 9672 9674 9676 9679 9684 9698 9699 9700 9701 9703 9709 9720 9728 9733 9735 9792 9793 9794 9795 9824 9828 9837 9840 10176 10240 10496 11008 11056 11077 11079 11085 64297 64298 65121 65127 65128 65129 65291 65292 65308 65311 65340 65341 65342 65343 65372 65373 65374 65375 65506 65507 65513 65517 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 120832 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 126704 126706 END PK ! Q�.' ' 5.34.0/unicore/lib/Scx/Hmng.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V10 92928 92998 93008 93018 93019 93026 93027 93048 93053 93072 END PK ! �1K K 5.34.0/unicore/lib/Scx/Khar.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V16 68096 68100 68101 68103 68108 68116 68117 68120 68121 68150 68152 68155 68159 68169 68176 68185 END PK ! *#�1 1 5.34.0/unicore/lib/Scx/Dupl.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V10 113664 113771 113776 113789 113792 113801 113808 113818 113820 113828 END PK ! ��"') ) 5.34.0/unicore/lib/Scx/Mong.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V12 6144 6159 6160 6170 6176 6265 6272 6315 8239 8240 71264 71277 END PK ! ��� 5.34.0/unicore/lib/Scx/Cakm.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 2534 2544 4160 4170 69888 69941 69942 69960 END PK ! Y�k�5 5 5.34.0/unicore/lib/Scx/Thaa.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 1548 1549 1563 1565 1567 1568 1632 1642 1920 1970 65010 65011 65021 65022 END PK ! �|I I 5.34.0/unicore/lib/Scx/Gonm.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V16 2404 2406 72960 72967 72968 72970 72971 73015 73018 73019 73020 73022 73023 73032 73040 73050 END PK ! ȅ� 5.34.0/unicore/lib/Scx/Adlm.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 1600 1601 125184 125260 125264 125274 125278 125280 END PK ! <V`� 5.34.0/unicore/lib/Scx/Armn.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 1329 1367 1369 1419 1421 1424 64275 64280 END PK ! q�q� 5.34.0/unicore/lib/Scx/Bhks.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 72704 72713 72714 72759 72760 72774 72784 72813 END PK ! �UA�1 1 5.34.0/unicore/lib/Scx/Tibt.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 3840 3912 3913 3949 3953 3992 3993 4029 4030 4045 4046 4053 4057 4059 END PK ! ߞ�qY Y 5.34.0/unicore/lib/Scx/Syrc.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V22 1548 1549 1563 1565 1567 1568 1600 1601 1611 1622 1648 1649 1792 1806 1807 1867 1869 1872 2144 2155 7672 7673 END PK ! $x�� 5.34.0/unicore/lib/Scx/Takr.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 2404 2406 43056 43066 71296 71353 71360 71370 END PK ! Ґ�/K K 5.34.0/unicore/lib/Scx/Geor.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V18 4256 4294 4295 4296 4301 4302 4304 4352 7312 7355 7357 7360 11520 11558 11559 11560 11565 11566 END PK ! [��� � 5.34.0/unicore/lib/Scx/Telu.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V32 2385 2387 2404 2406 3072 3085 3086 3089 3090 3113 3114 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3163 3168 3172 3174 3184 3191 3200 7386 7387 7410 7411 END PK ! �;�[1 1 5.34.0/unicore/lib/Scx/Mult.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V12 2662 2672 70272 70279 70280 70281 70282 70286 70287 70302 70303 70314 END PK ! .�= c c 5.34.0/unicore/lib/Scx/Linb.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V20 65536 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65792 65795 65799 65844 65847 65856 END PK ! Kob� 5.34.0/unicore/lib/Scx/Zyyy.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V296 0 65 91 97 123 170 171 186 187 192 215 216 247 248 697 736 741 746 748 768 884 885 894 895 901 902 903 904 1541 1542 1757 1758 2274 2275 3647 3648 4053 4057 5867 5870 8192 8204 8206 8239 8240 8293 8294 8305 8308 8319 8320 8335 8352 8384 8448 8486 8487 8490 8492 8498 8499 8526 8527 8544 8585 8588 8592 9255 9280 9291 9312 10240 10496 11124 11126 11158 11159 11264 11776 11843 11844 11859 12272 12284 12288 12289 12292 12293 12306 12307 12320 12321 12342 12343 12872 12896 12927 12928 12977 12992 13004 13008 13169 13179 13184 13280 13311 13312 19904 19968 42760 42786 42888 42891 43867 43868 43882 43884 64830 64832 65040 65050 65072 65093 65095 65107 65108 65127 65128 65132 65279 65280 65281 65313 65339 65345 65371 65377 65504 65511 65512 65519 65529 65534 65936 65949 66000 66045 94178 94180 118784 119030 119040 119079 119081 119143 119146 119163 119171 119173 119180 119210 119214 119273 119520 119540 119552 119639 119666 119673 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 120832 126065 126133 126209 126270 126976 127020 127024 127124 127136 127151 127153 127168 127169 127184 127185 127222 127232 127406 127462 127488 127489 127491 127504 127548 127552 127561 127584 127590 127744 128728 128736 128749 128752 128765 128768 128884 128896 128985 128992 129004 129024 129036 129040 129096 129104 129114 129120 129160 129168 129198 129200 129202 129280 129401 129402 129484 129485 129620 129632 129646 129648 129653 129656 129659 129664 129671 129680 129705 129712 129719 129728 129731 129744 129751 129792 129939 129940 129995 130032 130042 917505 917506 917536 917632 END PK ! �b] 5 5 5.34.0/unicore/lib/Scx/Deva.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 2304 2387 2389 2432 7376 7415 7416 7418 8432 8433 43056 43066 43232 43264 END PK ! d�- - 5.34.0/unicore/lib/Scx/Tirh.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V12 2385 2387 2404 2406 7410 7411 43056 43066 70784 70856 70864 70874 END PK ! gbF� 5.34.0/unicore/lib/Scx/Xsux.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 73728 74650 74752 74863 74864 74869 74880 75076 END PK ! � DmK K 5.34.0/unicore/lib/Scx/Diak.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V16 71936 71943 71945 71946 71948 71956 71957 71959 71960 71990 71991 71993 71995 72007 72016 72026 END PK ! ��E�7 7 5.34.0/unicore/lib/Scx/Yezi.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 1548 1549 1563 1564 1567 1568 1632 1642 69248 69290 69291 69294 69296 69298 END PK ! ���) ) 5.34.0/unicore/lib/Scx/Shrd.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V12 2385 2386 7383 7384 7385 7386 7388 7390 7392 7393 70016 70112 END PK ! ��S= = 5.34.0/unicore/lib/Scx/Gong.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 2404 2406 73056 73062 73063 73065 73066 73103 73104 73106 73107 73113 73120 73130 END PK ! =rI? ? 5.34.0/unicore/lib/Scx/Yi.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 12289 12291 12296 12306 12308 12316 12539 12540 40960 42125 42128 42183 65377 65382 END PK ! �ON�Q Q 5.34.0/unicore/lib/Scx/Hebr.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V18 1425 1480 1488 1515 1519 1525 64285 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64336 END PK ! ��2w w 5.34.0/unicore/lib/Scx/Bopo.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V24 746 748 12289 12292 12296 12306 12307 12320 12330 12334 12336 12337 12343 12344 12539 12540 12549 12592 12704 12736 65093 65095 65377 65382 END PK ! �Q�' ' 5.34.0/unicore/lib/Scx/Limb.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V12 2405 2406 6400 6431 6432 6444 6448 6460 6464 6465 6468 6480 END PK ! �^�W W 5.34.0/unicore/lib/Scx/Cprt.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V18 65792 65795 65799 65844 65847 65856 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67648 END PK ! �cVM� � 5.34.0/unicore/lib/Scx/Zzzz.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1349 888 890 896 900 907 908 909 910 930 931 1328 1329 1367 1369 1419 1421 1424 1425 1480 1488 1515 1519 1525 1536 1565 1566 1806 1807 1867 1869 1970 1984 2043 2045 2094 2096 2111 2112 2140 2142 2143 2144 2155 2208 2229 2230 2248 2259 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2559 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2679 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2802 2809 2816 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2901 2904 2908 2910 2911 2916 2918 2936 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3067 3072 3085 3086 3089 3090 3113 3114 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3163 3168 3172 3174 3184 3191 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 3328 3341 3342 3345 3346 3397 3398 3401 3402 3408 3412 3428 3430 3456 3457 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3558 3568 3570 3573 3585 3643 3647 3676 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3808 3840 3912 3913 3949 3953 3992 3993 4029 4030 4045 4046 4059 4096 4294 4295 4296 4301 4302 4304 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4989 4992 5018 5024 5110 5112 5118 5120 5789 5792 5881 5888 5901 5902 5909 5920 5943 5952 5972 5984 5997 5998 6001 6002 6004 6016 6110 6112 6122 6128 6138 6144 6159 6160 6170 6176 6265 6272 6315 6320 6390 6400 6431 6432 6444 6448 6460 6464 6465 6468 6510 6512 6517 6528 6572 6576 6602 6608 6619 6622 6684 6686 6751 6752 6781 6783 6794 6800 6810 6816 6830 6832 6849 6912 6988 6992 7037 7040 7156 7164 7224 7227 7242 7245 7305 7312 7355 7357 7368 7376 7419 7424 7674 7675 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8192 8293 8294 8306 8308 8335 8336 8349 8352 8384 8400 8433 8448 8588 8592 9255 9280 9291 9312 11124 11126 11158 11159 11311 11312 11359 11360 11508 11513 11558 11559 11560 11565 11566 11568 11624 11631 11633 11647 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 11744 11859 11904 11930 11931 12020 12032 12246 12272 12284 12288 12352 12353 12439 12441 12544 12549 12592 12593 12687 12688 12772 12784 12831 12832 40957 40960 42125 42128 42183 42192 42540 42560 42744 42752 42944 42946 42955 42997 43053 43056 43066 43072 43128 43136 43206 43214 43226 43232 43348 43359 43389 43392 43470 43471 43482 43486 43519 43520 43575 43584 43598 43600 43610 43612 43715 43739 43767 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43884 43888 44014 44016 44026 44032 55204 55216 55239 55243 55292 63744 64110 64112 64218 64256 64263 64275 64280 64285 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64450 64467 64832 64848 64912 64914 64968 65008 65022 65024 65050 65056 65107 65108 65127 65128 65132 65136 65141 65142 65277 65279 65280 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65529 65534 65536 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65792 65795 65799 65844 65847 65935 65936 65949 65952 65953 66000 66046 66176 66205 66208 66257 66272 66300 66304 66340 66349 66379 66384 66427 66432 66462 66463 66500 66504 66518 66560 66718 66720 66730 66736 66772 66776 66812 66816 66856 66864 66916 66927 66928 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67671 67743 67751 67760 67808 67827 67828 67830 67835 67868 67871 67898 67903 67904 67968 68024 68028 68048 68050 68100 68101 68103 68108 68116 68117 68120 68121 68150 68152 68155 68159 68169 68176 68185 68192 68256 68288 68327 68331 68343 68352 68406 68409 68438 68440 68467 68472 68498 68505 68509 68521 68528 68608 68681 68736 68787 68800 68851 68858 68904 68912 68922 69216 69247 69248 69290 69291 69294 69296 69298 69376 69416 69424 69466 69552 69580 69600 69623 69632 69710 69714 69744 69759 69826 69837 69838 69840 69865 69872 69882 69888 69941 69942 69960 69968 70007 70016 70112 70113 70133 70144 70162 70163 70207 70272 70279 70280 70281 70282 70286 70287 70302 70303 70314 70320 70379 70384 70394 70400 70404 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70459 70469 70471 70473 70475 70478 70480 70481 70487 70488 70493 70500 70502 70509 70512 70517 70656 70748 70749 70754 70784 70856 70864 70874 71040 71094 71096 71134 71168 71237 71248 71258 71264 71277 71296 71353 71360 71370 71424 71451 71453 71468 71472 71488 71680 71740 71840 71923 71935 71943 71945 71946 71948 71956 71957 71959 71960 71990 71991 71993 71995 72007 72016 72026 72096 72104 72106 72152 72154 72165 72192 72264 72272 72355 72384 72441 72704 72713 72714 72759 72760 72774 72784 72813 72816 72848 72850 72872 72873 72887 72960 72967 72968 72970 72971 73015 73018 73019 73020 73022 73023 73032 73040 73050 73056 73062 73063 73065 73066 73103 73104 73106 73107 73113 73120 73130 73440 73465 73648 73649 73664 73714 73727 74650 74752 74863 74864 74869 74880 75076 77824 78895 78896 78905 82944 83527 92160 92729 92736 92767 92768 92778 92782 92784 92880 92910 92912 92918 92928 92998 93008 93018 93019 93026 93027 93048 93053 93072 93760 93851 93952 94027 94031 94088 94095 94112 94176 94181 94192 94194 94208 100344 100352 101590 101632 101641 110592 110879 110928 110931 110948 110952 110960 111356 113664 113771 113776 113789 113792 113801 113808 113818 113820 113828 118784 119030 119040 119079 119081 119273 119296 119366 119520 119540 119552 119639 119648 119673 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 121484 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123136 123181 123184 123198 123200 123210 123214 123216 123584 123642 123647 123648 124928 125125 125127 125143 125184 125260 125264 125274 125278 125280 126065 126133 126209 126270 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 126704 126706 126976 127020 127024 127124 127136 127151 127153 127168 127169 127184 127185 127222 127232 127406 127462 127491 127504 127548 127552 127561 127568 127570 127584 127590 127744 128728 128736 128749 128752 128765 128768 128884 128896 128985 128992 129004 129024 129036 129040 129096 129104 129114 129120 129160 129168 129198 129200 129202 129280 129401 129402 129484 129485 129620 129632 129646 129648 129653 129656 129659 129664 129671 129680 129705 129712 129719 129728 129731 129744 129751 129792 129939 129940 129995 130032 130042 131072 173790 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196608 201547 917505 917506 917536 917632 917760 918000 END PK ! @E�� 5.34.0/unicore/lib/Scx/Copt.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 994 1008 11392 11508 11513 11520 66272 66300 END PK ! ���u u 5.34.0/unicore/lib/Scx/Glag.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V22 1156 1157 1159 1160 11264 11311 11312 11359 11843 11844 42607 42608 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 END PK ! z_��" " 5.34.0/unicore/lib/Scx/Hmnp.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 123136 123181 123184 123198 123200 123210 123214 123216 END PK ! �nt=� � 5.34.0/unicore/lib/Scx/Orya.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V36 2385 2387 2404 2406 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2901 2904 2908 2910 2911 2916 2918 2936 7386 7387 7410 7411 END PK ! �Ԥ 5.34.0/unicore/lib/Scx/Gran.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V50 2385 2387 2404 2406 3046 3060 7376 7377 7378 7380 7410 7413 7416 7418 8432 8433 70400 70404 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70459 70469 70471 70473 70475 70478 70480 70481 70487 70488 70493 70500 70502 70509 70512 70517 73680 73682 73683 73684 END PK ! 7��� 5.34.0/unicore/lib/Scx/Khoj.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 2790 2800 43056 43066 70144 70162 70163 70207 END PK ! �"� � 5.34.0/unicore/lib/Scx/Hang.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V42 4352 4608 12289 12292 12296 12306 12307 12320 12334 12337 12343 12344 12539 12540 12593 12687 12800 12831 12896 12927 43360 43389 44032 55204 55216 55239 55243 55292 65093 65095 65377 65382 65440 65471 65474 65480 65482 65488 65490 65496 65498 65501 END PK ! ��? 5.34.0/unicore/lib/Scx/Talu.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 6528 6572 6576 6602 6608 6619 6622 6624 END PK ! /o,� � 5.34.0/unicore/lib/Scx/Zinh.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V36 768 834 835 837 838 867 2387 2389 6832 6849 7618 7672 7673 7674 7675 7680 8204 8206 8400 8432 65024 65040 65056 65070 66045 66046 119143 119146 119163 119171 119173 119180 119210 119214 917760 918000 END PK ! ���� 5.34.0/unicore/lib/Scx/Kthi.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 2406 2416 43056 43066 69760 69826 69837 69838 END PK ! �3ң 5.34.0/unicore/lib/Scx/Sind.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 2404 2406 43056 43066 70320 70379 70384 70394 END PK ! �@&� � 5.34.0/unicore/lib/Scx/Kana.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V30 12289 12292 12296 12306 12307 12320 12336 12342 12343 12344 12348 12350 12441 12445 12448 12544 12784 12800 13008 13055 13056 13144 65093 65095 65377 65440 110592 110593 110948 110952 END PK ! ��%�Y Y 5.34.0/unicore/lib/Scx/Grek.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V76 834 835 837 838 880 884 885 888 890 894 895 896 900 901 902 903 904 907 908 909 910 930 931 994 1008 1024 7462 7467 7517 7522 7526 7531 7615 7618 7936 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8486 8487 43877 43878 65856 65935 65952 65953 119296 119366 END PK ! \�;Y Y 5.34.0/unicore/lib/Scx/Lao.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V22 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3774 3776 3781 3782 3783 3784 3790 3792 3802 3804 3808 END PK ! |x_ 5.34.0/unicore/lib/Scx/Phlp.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 1600 1601 68480 68498 68505 68509 68521 68528 END PK ! + �y y 5.34.0/unicore/lib/Scx/Sinh.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V28 2404 2406 3457 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3558 3568 3570 3573 70113 70133 END PK ! �Xbe 5.34.0/unicore/lib/Scx/Tang.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 94176 94177 94208 100344 100352 101120 101632 101641 END PK ! ��;Y� � 5.34.0/unicore/lib/Scx/Taml.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V50 2385 2387 2404 2406 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3067 7386 7387 43251 43252 70401 70402 70403 70404 70459 70461 73664 73714 73727 73728 END PK ! ��> 5.34.0/unicore/lib/Scx/Mymr.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 4096 4256 43310 43311 43488 43519 43616 43648 END PK ! �|j߫ � 5.34.0/unicore/lib/Scx/Guru.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V38 2385 2387 2404 2406 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2679 43056 43066 END PK ! m��� � 5.34.0/unicore/lib/Scx/Arab.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V104 1536 1541 1542 1565 1566 1757 1758 1792 1872 1920 2208 2229 2230 2248 2259 2274 2275 2304 64336 64450 64467 64830 64848 64912 64914 64968 65008 65022 65136 65141 65142 65277 66272 66300 69216 69247 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 126704 126706 END PK ! ar�[ [ 5.34.0/unicore/lib/Scx/Mlym.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V22 2385 2387 2404 2406 3328 3341 3342 3345 3346 3397 3398 3401 3402 3408 3412 3428 3430 3456 7386 7387 43056 43059 END PK ! 4w5� 5.34.0/unicore/lib/Scx/Lana.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V10 6688 6751 6752 6781 6783 6794 6800 6810 6816 6830 END PK ! �|��� � 5.34.0/unicore/lib/Scx/Beng.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V52 2385 2387 2404 2406 2432 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2559 7376 7377 7378 7379 7381 7383 7384 7385 7393 7394 7402 7403 7405 7406 7410 7411 7413 7416 43249 43250 END PK ! ߴ`� � 5.34.0/unicore/lib/Scx/Gujr.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V34 2385 2387 2404 2406 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2802 2809 2816 43056 43066 END PK ! ��r�5 5 5.34.0/unicore/lib/Scx/Rohg.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 1548 1549 1563 1564 1567 1568 1600 1601 1748 1749 68864 68904 68912 68922 END PK ! ^�� 5.34.0/unicore/lib/Scx/Lina.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 65799 65844 67072 67383 67392 67414 67424 67432 END PK ! �P�z 5.34.0/unicore/lib/Scx/Khmr.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 6016 6110 6112 6122 6128 6138 6624 6656 END PK ! ���|M M 5.34.0/unicore/lib/Scx/Cyrl.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V18 1024 1328 7296 7305 7467 7468 7544 7545 7672 7673 11744 11776 11843 11844 42560 42656 65070 65072 END PK ! ����M M 5.34.0/unicore/lib/Scx/Nand.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V18 2404 2406 3302 3312 7401 7402 7410 7411 7418 7419 43056 43062 72096 72104 72106 72152 72154 72165 END PK ! �-G G 5.34.0/unicore/lib/Scx/Ethi.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V64 4608 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4989 4992 5018 11648 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 END PK ! �L�� � 5.34.0/unicore/lib/Scx/Han.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V72 11904 11930 11931 12020 12032 12246 12289 12292 12293 12306 12307 12320 12321 12334 12336 12337 12343 12352 12539 12540 12688 12704 12736 12772 12832 12872 12928 12977 12992 13004 13055 13056 13144 13169 13179 13184 13280 13311 13312 19904 19968 40957 42752 42760 63744 64110 64112 64218 65093 65095 65377 65382 94192 94194 119648 119666 127568 127570 131072 173790 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196608 201547 END PK ! �T# � � 5.34.0/unicore/lib/Scx/Knda.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V42 2385 2387 2404 2406 3200 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 7376 7377 7378 7379 7386 7387 7410 7411 7412 7413 43056 43062 END PK ! �5� 5.34.0/unicore/lib/Scx/Cham.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 43520 43575 43584 43598 43600 43610 43612 43616 END PK ! !��5� � 5.34.0/unicore/lib/Scx/Latn.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V80 65 91 97 123 170 171 186 187 192 215 216 247 248 697 736 741 867 880 1157 1159 2385 2387 4347 4348 7424 7462 7468 7517 7522 7526 7531 7544 7545 7615 7680 7936 8239 8240 8305 8306 8319 8320 8336 8349 8432 8433 8490 8492 8498 8499 8526 8527 8544 8585 11360 11392 42752 42760 42786 42888 42891 42944 42946 42955 42997 43008 43310 43311 43824 43867 43868 43877 43878 43882 64256 64263 65313 65339 65345 65371 END PK ! 0���� � 5.34.0/unicore/lib/Scx/Hira.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V32 12289 12292 12296 12306 12307 12320 12336 12342 12343 12344 12348 12350 12353 12439 12441 12449 12539 12541 65093 65095 65377 65382 65392 65393 65438 65440 110593 110879 110928 110931 127488 127489 END PK ! ' ݠ 5.34.0/unicore/lib/Scx/Tagb.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 5941 5943 5984 5997 5998 6001 6002 6004 END PK ! � &� � 5.34.0/unicore/lib/XIDS/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1258 65 91 97 123 170 171 181 182 186 187 192 215 216 247 248 706 710 722 736 741 748 749 750 751 880 885 886 888 891 894 895 896 902 903 904 907 908 909 910 930 931 1014 1015 1154 1162 1328 1329 1367 1369 1370 1376 1417 1488 1515 1519 1523 1568 1611 1646 1648 1649 1748 1749 1750 1765 1767 1774 1776 1786 1789 1791 1792 1808 1809 1810 1840 1869 1958 1969 1970 1994 2027 2036 2038 2042 2043 2048 2070 2074 2075 2084 2085 2088 2089 2112 2137 2144 2155 2208 2229 2230 2248 2308 2362 2365 2366 2384 2385 2392 2402 2417 2433 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2493 2494 2510 2511 2524 2526 2527 2530 2544 2546 2556 2557 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2649 2653 2654 2655 2674 2677 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2749 2750 2768 2769 2784 2786 2809 2810 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2877 2878 2908 2910 2911 2914 2929 2930 2947 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3024 3025 3077 3085 3086 3089 3090 3113 3114 3130 3133 3134 3160 3163 3168 3170 3200 3201 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3261 3262 3294 3295 3296 3298 3313 3315 3332 3341 3342 3345 3346 3387 3389 3390 3406 3407 3412 3415 3423 3426 3450 3456 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3585 3633 3634 3635 3648 3655 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3761 3762 3763 3773 3774 3776 3781 3782 3783 3804 3808 3840 3841 3904 3912 3913 3949 3976 3981 4096 4139 4159 4160 4176 4182 4186 4190 4193 4194 4197 4199 4206 4209 4213 4226 4238 4239 4256 4294 4295 4296 4301 4302 4304 4347 4348 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4992 5008 5024 5110 5112 5118 5121 5741 5743 5760 5761 5787 5792 5867 5870 5881 5888 5901 5902 5906 5920 5938 5952 5970 5984 5997 5998 6001 6016 6068 6103 6104 6108 6109 6176 6265 6272 6313 6314 6315 6320 6390 6400 6431 6480 6510 6512 6517 6528 6572 6576 6602 6656 6679 6688 6741 6823 6824 6917 6964 6981 6988 7043 7073 7086 7088 7098 7142 7168 7204 7245 7248 7258 7294 7296 7305 7312 7355 7357 7360 7401 7405 7406 7412 7413 7415 7418 7419 7424 7616 7680 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8125 8126 8127 8130 8133 8134 8141 8144 8148 8150 8156 8160 8173 8178 8181 8182 8189 8305 8306 8319 8320 8336 8349 8450 8451 8455 8456 8458 8468 8469 8470 8472 8478 8484 8485 8486 8487 8488 8489 8490 8506 8508 8512 8517 8522 8526 8527 8544 8585 11264 11311 11312 11359 11360 11493 11499 11503 11506 11508 11520 11558 11559 11560 11565 11566 11568 11624 11631 11632 11648 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 12293 12296 12321 12330 12337 12342 12344 12349 12353 12439 12445 12448 12449 12539 12540 12544 12549 12592 12593 12687 12704 12736 12784 12800 13312 19904 19968 40957 40960 42125 42192 42238 42240 42509 42512 42528 42538 42540 42560 42607 42623 42654 42656 42736 42775 42784 42786 42889 42891 42944 42946 42955 42997 43010 43011 43014 43015 43019 43020 43043 43072 43124 43138 43188 43250 43256 43259 43260 43261 43263 43274 43302 43312 43335 43360 43389 43396 43443 43471 43472 43488 43493 43494 43504 43514 43519 43520 43561 43584 43587 43588 43596 43616 43639 43642 43643 43646 43696 43697 43698 43701 43703 43705 43710 43712 43713 43714 43715 43739 43742 43744 43755 43762 43765 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43824 43867 43868 43882 43888 44003 44032 55204 55216 55239 55243 55292 63744 64110 64112 64218 64256 64263 64275 64280 64285 64286 64287 64297 64298 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64606 64612 64830 64848 64912 64914 64968 65008 65018 65137 65138 65139 65140 65143 65144 65145 65146 65147 65148 65149 65150 65151 65277 65313 65339 65345 65371 65382 65438 65440 65471 65474 65480 65482 65488 65490 65496 65498 65501 65536 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 65856 65909 66176 66205 66208 66257 66304 66336 66349 66379 66384 66422 66432 66462 66464 66500 66504 66512 66513 66518 66560 66718 66736 66772 66776 66812 66816 66856 66864 66916 67072 67383 67392 67414 67424 67432 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67670 67680 67703 67712 67743 67808 67827 67828 67830 67840 67862 67872 67898 67968 68024 68030 68032 68096 68097 68112 68116 68117 68120 68121 68150 68192 68221 68224 68253 68288 68296 68297 68325 68352 68406 68416 68438 68448 68467 68480 68498 68608 68681 68736 68787 68800 68851 68864 68900 69248 69290 69296 69298 69376 69405 69415 69416 69424 69446 69552 69573 69600 69623 69635 69688 69763 69808 69840 69865 69891 69927 69956 69957 69959 69960 69968 70003 70006 70007 70019 70067 70081 70085 70106 70107 70108 70109 70144 70162 70163 70188 70272 70279 70280 70281 70282 70286 70287 70302 70303 70313 70320 70367 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70461 70462 70480 70481 70493 70498 70656 70709 70727 70731 70751 70754 70784 70832 70852 70854 70855 70856 71040 71087 71128 71132 71168 71216 71236 71237 71296 71339 71352 71353 71424 71451 71680 71724 71840 71904 71935 71943 71945 71946 71948 71956 71957 71959 71960 71984 71999 72000 72001 72002 72096 72104 72106 72145 72161 72162 72163 72164 72192 72193 72203 72243 72250 72251 72272 72273 72284 72330 72349 72350 72384 72441 72704 72713 72714 72751 72768 72769 72818 72848 72960 72967 72968 72970 72971 73009 73030 73031 73056 73062 73063 73065 73066 73098 73112 73113 73440 73459 73648 73649 73728 74650 74752 74863 74880 75076 77824 78895 82944 83527 92160 92729 92736 92767 92880 92910 92928 92976 92992 92996 93027 93048 93053 93072 93760 93824 93952 94027 94032 94033 94099 94112 94176 94178 94179 94180 94208 100344 100352 101590 101632 101641 110592 110879 110928 110931 110948 110952 110960 111356 113664 113771 113776 113789 113792 113801 113808 113818 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120513 120514 120539 120540 120571 120572 120597 120598 120629 120630 120655 120656 120687 120688 120713 120714 120745 120746 120771 120772 120780 123136 123181 123191 123198 123214 123215 123584 123628 124928 125125 125184 125252 125259 125260 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 131072 173790 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196608 201547 END PK ! k��{� � 5.34.0/unicore/lib/CompEx/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V146 832 834 835 837 884 885 894 895 903 904 2392 2400 2524 2526 2527 2528 2611 2612 2614 2615 2649 2652 2654 2655 2908 2910 3907 3908 3917 3918 3922 3923 3927 3928 3932 3933 3945 3946 3955 3956 3957 3959 3960 3961 3969 3970 3987 3988 3997 3998 4002 4003 4007 4008 4012 4013 4025 4026 8049 8050 8051 8052 8053 8054 8055 8056 8057 8058 8059 8060 8061 8062 8123 8124 8126 8127 8137 8138 8139 8140 8147 8148 8155 8156 8163 8164 8171 8172 8174 8176 8185 8186 8187 8188 8189 8190 8192 8194 8486 8487 8490 8492 9001 9003 10972 10973 63744 64014 64016 64017 64018 64019 64021 64031 64032 64033 64034 64035 64037 64039 64042 64110 64112 64218 64285 64286 64287 64288 64298 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64335 119134 119141 119227 119233 194560 195102 END PK ! ΰ+ 5.34.0/unicore/lib/Ccc/ATAR.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 795 796 3897 3898 119141 119143 119150 119155 END PK ! %u�/c c 5.34.0/unicore/lib/Ccc/OV.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V22 820 825 7380 7381 7394 7401 8402 8404 8408 8411 8421 8423 8426 8428 68153 68154 92912 92917 113822 113823 119143 119146 END PK ! ����H H 5.34.0/unicore/lib/Ccc/VR.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V108 2381 2382 2509 2510 2637 2638 2765 2766 2893 2894 3021 3022 3149 3150 3277 3278 3387 3389 3405 3406 3530 3531 3642 3643 3770 3771 3972 3973 4153 4155 5908 5909 5940 5941 6098 6099 6752 6753 6980 6981 7082 7084 7154 7156 11647 11648 43014 43015 43052 43053 43204 43205 43347 43348 43456 43457 43766 43767 44013 44014 68159 68160 69702 69703 69759 69760 69817 69818 69939 69941 70080 70081 70197 70198 70378 70379 70477 70478 70722 70723 70850 70851 71103 71104 71231 71232 71350 71351 71467 71468 71737 71738 71997 71999 72160 72161 72244 72245 72263 72264 72345 72346 72767 72768 73028 73030 73111 73112 END PK ! �_�� � 5.34.0/unicore/lib/Ccc/NR.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V369 0 768 847 848 880 1155 1160 1425 1470 1471 1472 1473 1475 1476 1478 1479 1480 1552 1563 1611 1632 1648 1649 1750 1757 1759 1765 1767 1769 1770 1774 1809 1810 1840 1867 2027 2036 2045 2046 2070 2074 2075 2084 2085 2088 2089 2094 2137 2140 2259 2274 2275 2304 2364 2365 2381 2382 2385 2389 2492 2493 2509 2510 2558 2559 2620 2621 2637 2638 2748 2749 2765 2766 2876 2877 2893 2894 3021 3022 3149 3150 3157 3159 3260 3261 3277 3278 3387 3389 3405 3406 3530 3531 3640 3643 3656 3660 3768 3771 3784 3788 3864 3866 3893 3894 3895 3896 3897 3898 3953 3955 3956 3957 3962 3966 3968 3969 3970 3973 3974 3976 4038 4039 4151 4152 4153 4155 4237 4238 4957 4960 5908 5909 5940 5941 6098 6099 6109 6110 6313 6314 6457 6460 6679 6681 6752 6753 6773 6781 6783 6784 6832 6846 6847 6849 6964 6965 6980 6981 7019 7028 7082 7084 7142 7143 7154 7156 7223 7224 7376 7379 7380 7393 7394 7401 7405 7406 7412 7413 7416 7418 7616 7674 7675 7680 8400 8413 8417 8418 8421 8433 11503 11506 11647 11648 11744 11776 12330 12336 12441 12443 42607 42608 42612 42622 42654 42656 42736 42738 43014 43015 43052 43053 43204 43205 43232 43250 43307 43310 43347 43348 43443 43444 43456 43457 43696 43697 43698 43701 43703 43705 43710 43712 43713 43714 43766 43767 44013 44014 64286 64287 65056 65072 66045 66046 66272 66273 66422 66427 68109 68110 68111 68112 68152 68155 68159 68160 68325 68327 68900 68904 69291 69293 69446 69457 69702 69703 69759 69760 69817 69819 69888 69891 69939 69941 70003 70004 70080 70081 70090 70091 70197 70199 70377 70379 70459 70461 70477 70478 70502 70509 70512 70517 70722 70723 70726 70727 70750 70751 70850 70852 71103 71105 71231 71232 71350 71352 71467 71468 71737 71739 71997 71999 72003 72004 72160 72161 72244 72245 72263 72264 72345 72346 72767 72768 73026 73027 73028 73030 73111 73112 92912 92917 92976 92983 94192 94194 113822 113823 119141 119146 119149 119155 119163 119171 119173 119180 119210 119214 119362 119365 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123184 123191 123628 123632 125136 125143 125252 125259 END PK ! �}YH 5.34.0/unicore/lib/Ccc/NK.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V50 2364 2365 2492 2493 2620 2621 2748 2749 2876 2877 3260 3261 4151 4152 6964 6965 7142 7143 7223 7224 43443 43444 69818 69819 70003 70004 70090 70091 70198 70199 70377 70378 70459 70461 70726 70727 70851 70852 71104 71105 71351 71352 71738 71739 72003 72004 73026 73027 125258 125259 END PK ! m���� � 5.34.0/unicore/lib/Ccc/A.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V236 768 789 829 837 838 839 842 845 848 851 855 856 859 860 867 880 1155 1160 1426 1430 1431 1434 1436 1442 1448 1450 1451 1453 1455 1456 1476 1477 1552 1560 1619 1621 1623 1628 1629 1631 1750 1757 1759 1763 1764 1765 1767 1769 1771 1773 1840 1841 1842 1844 1845 1847 1850 1851 1853 1854 1855 1858 1859 1860 1861 1862 1863 1864 1865 1867 2027 2034 2035 2036 2070 2074 2075 2084 2085 2088 2089 2094 2260 2274 2276 2278 2279 2281 2282 2285 2291 2294 2295 2297 2299 2304 2385 2386 2387 2389 2558 2559 3970 3972 3974 3976 4957 4960 6109 6110 6458 6459 6679 6680 6773 6781 6832 6837 6843 6845 7019 7020 7021 7028 7376 7379 7386 7388 7392 7393 7412 7413 7416 7418 7616 7618 7619 7626 7627 7629 7633 7670 7675 7676 7678 7679 8400 8402 8404 8408 8411 8413 8417 8418 8423 8424 8425 8426 8432 8433 11503 11506 11744 11776 42607 42608 42612 42622 42654 42656 42736 42738 43232 43250 43696 43697 43698 43700 43703 43705 43710 43712 43713 43714 65056 65063 65070 65072 66422 66427 68111 68112 68152 68153 68325 68326 68900 68904 69291 69293 69448 69451 69452 69453 69888 69891 70502 70509 70512 70517 70750 70751 92976 92983 119173 119178 119210 119214 119362 119365 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123184 123191 123628 123632 125252 125258 END PK ! 7I� 5.34.0/unicore/lib/Ccc/B.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V156 790 794 796 801 803 807 809 820 825 829 839 842 845 847 851 855 857 859 1425 1426 1430 1431 1435 1436 1442 1448 1450 1451 1477 1478 1621 1623 1628 1629 1631 1632 1763 1764 1770 1771 1773 1774 1841 1842 1844 1845 1847 1850 1851 1853 1854 1855 1858 1859 1860 1861 1862 1863 1864 1865 2034 2035 2045 2046 2137 2140 2259 2260 2275 2276 2278 2279 2281 2282 2285 2288 2294 2295 2297 2299 2386 2387 3864 3866 3893 3894 3895 3896 4038 4039 4237 4238 6459 6460 6680 6681 6783 6784 6837 6843 6845 6846 6847 6849 7020 7021 7381 7386 7388 7392 7405 7406 7618 7619 7626 7627 7631 7632 7673 7674 7677 7678 7679 7680 8424 8425 8428 8432 43307 43310 43700 43701 65063 65070 66045 66046 66272 66273 68109 68110 68154 68155 68326 68327 69446 69448 69451 69452 69453 69457 119163 119171 119178 119180 125136 125143 END PK ! η�� 5.34.0/unicore/lib/Ccc/AL.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 1454 1455 6313 6314 7671 7673 12331 12332 END PK ! Q��� 5.34.0/unicore/lib/Ccc/BR.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 1434 1435 1453 1454 6457 6458 12333 12334 END PK ! �{� 5.34.0/unicore/lib/Ccc/DB.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 860 861 863 864 866 867 7676 7677 END PK ! %#� 5.34.0/unicore/lib/Ccc/AR.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V10 789 790 794 795 856 857 7670 7671 12332 12333 END PK ! [�&H= = 5.34.0/unicore/lib/Dep/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V16 329 330 1651 1652 3959 3960 3961 3962 6051 6053 8298 8304 9001 9003 917505 917506 END PK ! j��j j 5.34.0/unicore/lib/Term/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V208 33 34 44 45 46 47 58 60 63 64 894 895 903 904 1417 1418 1475 1476 1548 1549 1563 1564 1566 1568 1748 1749 1792 1803 1804 1805 2040 2042 2096 2111 2142 2143 2404 2406 3674 3676 3848 3849 3853 3859 4170 4172 4961 4969 5742 5743 5867 5870 5941 5943 6100 6103 6106 6107 6146 6150 6152 6154 6468 6470 6824 6828 7002 7004 7005 7008 7227 7232 7294 7296 8252 8254 8263 8266 11822 11823 11836 11837 11841 11842 11852 11853 11854 11856 12289 12291 42238 42240 42509 42512 42739 42744 43126 43128 43214 43216 43311 43312 43463 43466 43613 43616 43743 43744 43760 43762 44011 44012 65104 65107 65108 65112 65281 65282 65292 65293 65294 65295 65306 65308 65311 65312 65377 65378 65380 65381 66463 66464 66512 66513 67671 67672 67871 67872 68182 68184 68336 68342 68410 68416 68505 68509 69461 69466 69703 69710 69822 69826 69953 69956 70085 70087 70093 70094 70110 70112 70200 70205 70313 70314 70731 70734 70746 70748 71106 71110 71113 71128 71233 71235 71484 71487 72004 72005 72006 72007 72258 72260 72347 72349 72353 72355 72769 72772 72817 72818 73463 73465 74864 74869 92782 92784 92917 92918 92983 92986 92996 92997 93847 93849 113823 113824 121479 121483 END PK ! �I��" " 5.34.0/unicore/lib/Hex/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V12 48 58 65 71 97 103 65296 65306 65313 65319 65345 65351 END PK ! �!�T= = 5.34.0/unicore/lib/Ea/H.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 8361 8362 65377 65471 65474 65480 65482 65488 65490 65496 65498 65501 65512 65519 END PK ! �5 �� � 5.34.0/unicore/lib/Ea/N.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V553 0 32 127 161 169 170 171 172 181 182 187 188 192 198 199 208 209 215 217 222 226 230 231 232 235 236 238 240 241 242 244 247 251 252 253 254 255 257 258 273 274 275 276 283 284 294 296 299 300 305 308 312 313 319 323 324 325 328 332 333 334 338 340 358 360 363 364 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 593 594 609 610 708 709 711 712 713 716 717 718 720 721 728 732 733 734 735 736 768 880 913 930 931 938 945 962 963 970 1025 1026 1040 1104 1105 1106 4352 4448 8208 8209 8211 8215 8216 8218 8220 8222 8224 8227 8228 8232 8240 8241 8242 8244 8245 8246 8251 8252 8254 8255 8308 8309 8319 8320 8321 8325 8361 8362 8364 8365 8451 8452 8453 8454 8457 8458 8467 8468 8470 8471 8481 8483 8486 8487 8491 8492 8531 8533 8539 8543 8544 8556 8560 8570 8585 8586 8592 8602 8632 8634 8658 8659 8660 8661 8679 8680 8704 8705 8706 8708 8711 8713 8715 8716 8719 8720 8721 8722 8725 8726 8730 8731 8733 8737 8739 8740 8741 8742 8743 8749 8750 8751 8756 8760 8764 8766 8776 8777 8780 8781 8786 8787 8800 8802 8804 8808 8810 8812 8814 8816 8834 8836 8838 8840 8853 8854 8857 8858 8869 8870 8895 8896 8978 8979 8986 8988 9001 9003 9193 9197 9200 9201 9203 9204 9312 9450 9451 9548 9552 9588 9600 9616 9618 9622 9632 9634 9635 9642 9650 9652 9654 9656 9660 9662 9664 9666 9670 9673 9675 9676 9678 9682 9698 9702 9711 9712 9725 9727 9733 9735 9737 9738 9742 9744 9748 9750 9756 9757 9758 9759 9792 9793 9794 9795 9800 9812 9824 9826 9827 9830 9831 9835 9836 9838 9839 9840 9855 9856 9875 9876 9886 9888 9889 9890 9898 9900 9917 9920 9924 9954 9955 9956 9960 9984 9989 9990 9994 9996 10024 10025 10045 10046 10060 10061 10062 10063 10067 10070 10071 10072 10102 10112 10133 10136 10160 10161 10175 10176 10214 10222 10629 10631 11035 11037 11088 11089 11093 11098 11904 11930 11931 12020 12032 12246 12272 12284 12288 12351 12353 12439 12441 12544 12549 12592 12593 12687 12688 12772 12784 12831 12832 19904 19968 42125 42128 42183 43360 43389 44032 55204 57344 64256 65024 65050 65072 65107 65108 65127 65128 65132 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 65533 65534 94176 94181 94192 94194 94208 100344 100352 101590 101632 101641 110592 110879 110928 110931 110948 110952 110960 111356 126980 126981 127183 127184 127232 127243 127248 127278 127280 127338 127344 127405 127488 127491 127504 127548 127552 127561 127568 127570 127584 127590 127744 127777 127789 127798 127799 127869 127870 127892 127904 127947 127951 127956 127968 127985 127988 127989 127992 128063 128064 128065 128066 128253 128255 128318 128331 128335 128336 128360 128378 128379 128405 128407 128420 128421 128507 128592 128640 128710 128716 128717 128720 128723 128725 128728 128747 128749 128756 128765 128992 129004 129292 129339 129340 129350 129351 129401 129402 129484 129485 129536 129648 129653 129656 129659 129664 129671 129680 129705 129712 129719 129728 129731 129744 129751 131072 196606 196608 262142 917760 918000 983040 1048574 1048576 1114110 END PK ! �9$� � 5.34.0/unicore/lib/Ea/A.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V358 161 162 164 165 167 169 170 171 173 175 176 181 182 187 188 192 198 199 208 209 215 217 222 226 230 231 232 235 236 238 240 241 242 244 247 251 252 253 254 255 257 258 273 274 275 276 283 284 294 296 299 300 305 308 312 313 319 323 324 325 328 332 333 334 338 340 358 360 363 364 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 593 594 609 610 708 709 711 712 713 716 717 718 720 721 728 732 733 734 735 736 768 880 913 930 931 938 945 962 963 970 1025 1026 1040 1104 1105 1106 8208 8209 8211 8215 8216 8218 8220 8222 8224 8227 8228 8232 8240 8241 8242 8244 8245 8246 8251 8252 8254 8255 8308 8309 8319 8320 8321 8325 8364 8365 8451 8452 8453 8454 8457 8458 8467 8468 8470 8471 8481 8483 8486 8487 8491 8492 8531 8533 8539 8543 8544 8556 8560 8570 8585 8586 8592 8602 8632 8634 8658 8659 8660 8661 8679 8680 8704 8705 8706 8708 8711 8713 8715 8716 8719 8720 8721 8722 8725 8726 8730 8731 8733 8737 8739 8740 8741 8742 8743 8749 8750 8751 8756 8760 8764 8766 8776 8777 8780 8781 8786 8787 8800 8802 8804 8808 8810 8812 8814 8816 8834 8836 8838 8840 8853 8854 8857 8858 8869 8870 8895 8896 8978 8979 9312 9450 9451 9548 9552 9588 9600 9616 9618 9622 9632 9634 9635 9642 9650 9652 9654 9656 9660 9662 9664 9666 9670 9673 9675 9676 9678 9682 9698 9702 9711 9712 9733 9735 9737 9738 9742 9744 9756 9757 9758 9759 9792 9793 9794 9795 9824 9826 9827 9830 9831 9835 9836 9838 9839 9840 9886 9888 9919 9920 9926 9934 9935 9940 9941 9954 9955 9956 9960 9962 9963 9970 9972 9973 9974 9978 9979 9981 9982 9984 10045 10046 10102 10112 11094 11098 12872 12880 57344 63744 65024 65040 65533 65534 127232 127243 127248 127278 127280 127338 127344 127374 127375 127377 127387 127405 917760 918000 983040 1048574 1048576 1114110 END PK ! O���* * 5.34.0/unicore/lib/Ea/Na.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 32 127 162 164 165 167 172 173 175 176 10214 10222 10629 10631 END PK ! �"@�� � 5.34.0/unicore/lib/Ea/W.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V228 4352 4448 8986 8988 9001 9003 9193 9197 9200 9201 9203 9204 9725 9727 9748 9750 9800 9812 9855 9856 9875 9876 9889 9890 9898 9900 9917 9919 9924 9926 9934 9935 9940 9941 9962 9963 9970 9972 9973 9974 9978 9979 9981 9982 9989 9990 9994 9996 10024 10025 10060 10061 10062 10063 10067 10070 10071 10072 10133 10136 10160 10161 10175 10176 11035 11037 11088 11089 11093 11094 11904 11930 11931 12020 12032 12246 12272 12284 12289 12351 12353 12439 12441 12544 12549 12592 12593 12687 12688 12772 12784 12831 12832 12872 12880 19904 19968 42125 42128 42183 43360 43389 44032 55204 63744 64256 65040 65050 65072 65107 65108 65127 65128 65132 94176 94181 94192 94194 94208 100344 100352 101590 101632 101641 110592 110879 110928 110931 110948 110952 110960 111356 126980 126981 127183 127184 127374 127375 127377 127387 127488 127491 127504 127548 127552 127561 127568 127570 127584 127590 127744 127777 127789 127798 127799 127869 127870 127892 127904 127947 127951 127956 127968 127985 127988 127989 127992 128063 128064 128065 128066 128253 128255 128318 128331 128335 128336 128360 128378 128379 128405 128407 128420 128421 128507 128592 128640 128710 128716 128717 128720 128723 128725 128728 128747 128749 128756 128765 128992 129004 129292 129339 129340 129350 129351 129401 129402 129484 129485 129536 129648 129653 129656 129659 129664 129671 129680 129705 129712 129719 129728 129731 129744 129751 131072 196606 196608 262142 END PK ! _�@ � � 5.34.0/unicore/lib/Ideo/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V38 12294 12296 12321 12330 12344 12347 13312 19904 19968 40957 63744 64110 64112 64218 94180 94181 94208 100344 100352 101590 101632 101641 110960 111356 131072 173790 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196608 201547 END PK ! �h��S S 5.34.0/unicore/lib/Hyphen/T.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V20 45 46 173 174 1418 1419 6150 6151 8208 8210 11799 11800 12539 12540 65123 65124 65293 65294 65381 65382 END PK ! Q� �1 1 5.34.0/unicore/lib/Sc/Dupl.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V10 113664 113771 113776 113789 113792 113801 113808 113818 113820 113824 END PK ! E�`�3 3 5.34.0/unicore/lib/Sc/Mong.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 6144 6146 6148 6149 6150 6159 6160 6170 6176 6265 6272 6315 71264 71277 END PK ! ��~? ? 5.34.0/unicore/lib/Sc/Gonm.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 72960 72967 72968 72970 72971 73015 73018 73019 73020 73022 73023 73032 73040 73050 END PK ! ���� 5.34.0/unicore/lib/Sc/Syrc.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 1792 1806 1807 1867 1869 1872 2144 2155 END PK ! ��h3U U 5.34.0/unicore/lib/Sc/Geor.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V20 4256 4294 4295 4296 4301 4302 4304 4347 4348 4352 7312 7355 7357 7360 11520 11558 11559 11560 11565 11566 END PK ! �1�c c 5.34.0/unicore/lib/Sc/Telu.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V24 3072 3085 3086 3089 3090 3113 3114 3130 3133 3141 3142 3145 3146 3150 3157 3159 3160 3163 3168 3172 3174 3184 3191 3200 END PK ! T�4c' ' 5.34.0/unicore/lib/Sc/Mult.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V10 70272 70279 70280 70281 70282 70286 70287 70302 70303 70314 END PK ! �a�? ? 5.34.0/unicore/lib/Sc/Linb.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 65536 65548 65549 65575 65576 65595 65596 65598 65599 65614 65616 65630 65664 65787 END PK ! EO=� 5.34.0/unicore/lib/Sc/Zyyy.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V346 0 65 91 97 123 170 171 186 187 192 215 216 247 248 697 736 741 746 748 768 884 885 894 895 901 902 903 904 1541 1542 1548 1549 1563 1564 1567 1568 1600 1601 1757 1758 2274 2275 2404 2406 3647 3648 4053 4057 4347 4348 5867 5870 5941 5943 6146 6148 6149 6150 7379 7380 7393 7394 7401 7405 7406 7412 7413 7416 7418 7419 8192 8204 8206 8293 8294 8305 8308 8319 8320 8335 8352 8384 8448 8486 8487 8490 8492 8498 8499 8526 8527 8544 8585 8588 8592 9255 9280 9291 9312 10240 10496 11124 11126 11158 11159 11264 11776 11859 12272 12284 12288 12293 12294 12295 12296 12321 12336 12344 12348 12352 12443 12445 12448 12449 12539 12541 12688 12704 12736 12772 12832 12896 12927 13008 13055 13056 13144 13312 19904 19968 42752 42786 42888 42891 43056 43066 43310 43311 43471 43472 43867 43868 43882 43884 64830 64832 65040 65050 65072 65107 65108 65127 65128 65132 65279 65280 65281 65313 65339 65345 65371 65382 65392 65393 65438 65440 65504 65511 65512 65519 65529 65534 65792 65795 65799 65844 65847 65856 65936 65949 66000 66045 66273 66300 94178 94180 113824 113828 118784 119030 119040 119079 119081 119143 119146 119163 119171 119173 119180 119210 119214 119273 119520 119540 119552 119639 119648 119673 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 120832 126065 126133 126209 126270 126976 127020 127024 127124 127136 127151 127153 127168 127169 127184 127185 127222 127232 127406 127462 127488 127489 127491 127504 127548 127552 127561 127568 127570 127584 127590 127744 128728 128736 128749 128752 128765 128768 128884 128896 128985 128992 129004 129024 129036 129040 129096 129104 129114 129120 129160 129168 129198 129200 129202 129280 129401 129402 129484 129485 129620 129632 129646 129648 129653 129656 129659 129664 129671 129680 129705 129712 129719 129728 129731 129744 129751 129792 129939 129940 129995 130032 130042 917505 917506 917536 917632 END PK ! �} 5.34.0/unicore/lib/Sc/Deva.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 2304 2385 2389 2404 2406 2432 43232 43264 END PK ! C�j3 3 5.34.0/unicore/lib/Sc/Gong.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V12 73056 73062 73063 73065 73066 73103 73104 73106 73107 73113 73120 73130 END PK ! ε(J 5.34.0/unicore/lib/Sc/Limb.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V10 6400 6431 6432 6444 6448 6460 6464 6465 6468 6480 END PK ! � ��3 3 5.34.0/unicore/lib/Sc/Cprt.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V12 67584 67590 67592 67593 67594 67638 67639 67641 67644 67645 67647 67648 END PK ! g I I 5.34.0/unicore/lib/Sc/Glag.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 11264 11311 11312 11359 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 END PK ! M �w w 5.34.0/unicore/lib/Sc/Orya.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V28 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2885 2887 2889 2891 2894 2901 2904 2908 2910 2911 2916 2918 2936 END PK ! d+�۟ � 5.34.0/unicore/lib/Sc/Gran.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V30 70400 70404 70405 70413 70415 70417 70419 70441 70442 70449 70450 70452 70453 70458 70460 70469 70471 70473 70475 70478 70480 70481 70487 70488 70493 70500 70502 70509 70512 70517 END PK ! �<�g� � 5.34.0/unicore/lib/Sc/Hang.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V28 4352 4608 12334 12336 12593 12687 12800 12831 12896 12927 43360 43389 44032 55204 55216 55239 55243 55292 65440 65471 65474 65480 65482 65488 65490 65496 65498 65501 END PK ! �չ�# # 5.34.0/unicore/lib/Sc/Zinh.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V56 768 880 1157 1159 1611 1622 1648 1649 2385 2389 6832 6849 7376 7379 7380 7393 7394 7401 7405 7406 7412 7413 7416 7418 7616 7674 7675 7680 8204 8206 8400 8433 12330 12334 12441 12443 65024 65040 65056 65070 66045 66046 66272 66273 70459 70460 119143 119146 119163 119171 119173 119180 119210 119214 917760 918000 END PK ! �+�[ [ 5.34.0/unicore/lib/Sc/Kana.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V18 12449 12539 12541 12544 12784 12800 13008 13055 13056 13144 65382 65392 65393 65438 110592 110593 110948 110952 END PK ! '6SaI I 5.34.0/unicore/lib/Sc/Grek.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V72 880 884 885 888 890 894 895 896 900 901 902 903 904 907 908 909 910 930 931 994 1008 1024 7462 7467 7517 7522 7526 7531 7615 7616 7936 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8062 8064 8117 8118 8133 8134 8148 8150 8156 8157 8176 8178 8181 8182 8191 8486 8487 43877 43878 65856 65935 65952 65953 119296 119366 END PK ! E��to o 5.34.0/unicore/lib/Sc/Sinh.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V26 3457 3460 3461 3479 3482 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3552 3558 3568 3570 3573 70113 70133 END PK ! �/��� � 5.34.0/unicore/lib/Sc/Taml.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V36 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3067 73664 73714 73727 73728 END PK ! �*Pq� � 5.34.0/unicore/lib/Sc/Guru.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V32 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2612 2613 2615 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2649 2653 2654 2655 2662 2679 END PK ! čQ�� � 5.34.0/unicore/lib/Sc/Arab.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V114 1536 1541 1542 1548 1549 1563 1564 1565 1566 1567 1568 1600 1601 1611 1622 1648 1649 1757 1758 1792 1872 1920 2208 2229 2230 2248 2259 2274 2275 2304 64336 64450 64467 64830 64848 64912 64914 64968 65008 65022 65136 65141 65142 65277 69216 69247 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 126704 126706 END PK ! a m_1 1 5.34.0/unicore/lib/Sc/Mlym.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V14 3328 3341 3342 3345 3346 3397 3398 3401 3402 3408 3412 3428 3430 3456 END PK ! ��w w 5.34.0/unicore/lib/Sc/Beng.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V28 2432 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2524 2526 2527 2532 2534 2559 END PK ! &��Gw w 5.34.0/unicore/lib/Sc/Gujr.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V28 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2802 2809 2816 END PK ! �g�A A 5.34.0/unicore/lib/Sc/Cyrl.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V16 1024 1157 1159 1328 7296 7305 7467 7468 7544 7545 11744 11776 42560 42656 65070 65072 END PK ! D E� � 5.34.0/unicore/lib/Sc/Han.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V38 11904 11930 11931 12020 12032 12246 12293 12294 12295 12296 12321 12330 12344 12348 13312 19904 19968 40957 63744 64110 64112 64218 94192 94194 131072 173790 173824 177973 177984 178206 178208 183970 183984 191457 194560 195102 196608 201547 END PK ! ���m m 5.34.0/unicore/lib/Sc/Knda.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V26 3200 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3294 3295 3296 3300 3302 3312 3313 3315 END PK ! A�.A. . 5.34.0/unicore/lib/Sc/Latn.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V64 65 91 97 123 170 171 186 187 192 215 216 247 248 697 736 741 7424 7462 7468 7517 7522 7526 7531 7544 7545 7615 7680 7936 8305 8306 8319 8320 8336 8349 8490 8492 8498 8499 8526 8527 8544 8585 11360 11392 42786 42888 42891 42944 42946 42955 42997 43008 43824 43867 43868 43877 43878 43882 64256 64263 65313 65339 65345 65371 END PK ! �\XO- - 5.34.0/unicore/lib/Sc/Hira.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V10 12353 12439 12445 12448 110593 110879 110928 110931 127488 127489 END PK ! DX�1� � 5.34.0/unicore/lib/GCB/CN.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V38 0 10 11 13 14 32 127 160 173 174 1564 1565 6158 6159 8203 8204 8206 8208 8232 8239 8288 8304 65279 65280 65520 65532 78896 78905 113824 113828 119155 119163 917504 917536 917632 917760 918000 921600 END PK ! #3�� � 5.34.0/unicore/lib/GCB/EX.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V690 768 880 1155 1162 1425 1470 1471 1472 1473 1475 1476 1478 1479 1480 1552 1563 1611 1632 1648 1649 1750 1757 1759 1765 1767 1769 1770 1774 1809 1810 1840 1867 1958 1969 2027 2036 2045 2046 2070 2074 2075 2084 2085 2088 2089 2094 2137 2140 2259 2274 2275 2307 2362 2363 2364 2365 2369 2377 2381 2382 2385 2392 2402 2404 2433 2434 2492 2493 2494 2495 2497 2501 2509 2510 2519 2520 2530 2532 2558 2559 2561 2563 2620 2621 2625 2627 2631 2633 2635 2638 2641 2642 2672 2674 2677 2678 2689 2691 2748 2749 2753 2758 2759 2761 2765 2766 2786 2788 2810 2816 2817 2818 2876 2877 2878 2880 2881 2885 2893 2894 2901 2904 2914 2916 2946 2947 3006 3007 3008 3009 3021 3022 3031 3032 3072 3073 3076 3077 3134 3137 3142 3145 3146 3150 3157 3159 3170 3172 3201 3202 3260 3261 3263 3264 3266 3267 3270 3271 3276 3278 3285 3287 3298 3300 3328 3330 3387 3389 3390 3391 3393 3397 3405 3406 3415 3416 3426 3428 3457 3458 3530 3531 3535 3536 3538 3541 3542 3543 3551 3552 3633 3634 3636 3643 3655 3663 3761 3762 3764 3773 3784 3790 3864 3866 3893 3894 3895 3896 3897 3898 3953 3967 3968 3973 3974 3976 3981 3992 3993 4029 4038 4039 4141 4145 4146 4152 4153 4155 4157 4159 4184 4186 4190 4193 4209 4213 4226 4227 4229 4231 4237 4238 4253 4254 4957 4960 5906 5909 5938 5941 5970 5972 6002 6004 6068 6070 6071 6078 6086 6087 6089 6100 6109 6110 6155 6158 6277 6279 6313 6314 6432 6435 6439 6441 6450 6451 6457 6460 6679 6681 6683 6684 6742 6743 6744 6751 6752 6753 6754 6755 6757 6765 6771 6781 6783 6784 6832 6849 6912 6916 6964 6971 6972 6973 6978 6979 7019 7028 7040 7042 7074 7078 7080 7082 7083 7086 7142 7143 7144 7146 7149 7150 7151 7154 7212 7220 7222 7224 7376 7379 7380 7393 7394 7401 7405 7406 7412 7413 7416 7418 7616 7674 7675 7680 8204 8205 8400 8433 11503 11506 11647 11648 11744 11776 12330 12336 12441 12443 42607 42611 42612 42622 42654 42656 42736 42738 43010 43011 43014 43015 43019 43020 43045 43047 43052 43053 43204 43206 43232 43250 43263 43264 43302 43310 43335 43346 43392 43395 43443 43444 43446 43450 43452 43454 43493 43494 43561 43567 43569 43571 43573 43575 43587 43588 43596 43597 43644 43645 43696 43697 43698 43701 43703 43705 43710 43712 43713 43714 43756 43758 43766 43767 44005 44006 44008 44009 44013 44014 64286 64287 65024 65040 65056 65072 65438 65440 66045 66046 66272 66273 66422 66427 68097 68100 68101 68103 68108 68112 68152 68155 68159 68160 68325 68327 68900 68904 69291 69293 69446 69457 69633 69634 69688 69703 69759 69762 69811 69815 69817 69819 69888 69891 69927 69932 69933 69941 70003 70004 70016 70018 70070 70079 70089 70093 70095 70096 70191 70194 70196 70197 70198 70200 70206 70207 70367 70368 70371 70379 70400 70402 70459 70461 70462 70463 70464 70465 70487 70488 70502 70509 70512 70517 70712 70720 70722 70725 70726 70727 70750 70751 70832 70833 70835 70841 70842 70843 70845 70846 70847 70849 70850 70852 71087 71088 71090 71094 71100 71102 71103 71105 71132 71134 71219 71227 71229 71230 71231 71233 71339 71340 71341 71342 71344 71350 71351 71352 71453 71456 71458 71462 71463 71468 71727 71736 71737 71739 71984 71985 71995 71997 71998 71999 72003 72004 72148 72152 72154 72156 72160 72161 72193 72203 72243 72249 72251 72255 72263 72264 72273 72279 72281 72284 72330 72343 72344 72346 72752 72759 72760 72766 72767 72768 72850 72872 72874 72881 72882 72884 72885 72887 73009 73015 73018 73019 73020 73022 73023 73030 73031 73032 73104 73106 73109 73110 73111 73112 73459 73461 92912 92917 92976 92983 94031 94032 94095 94099 94180 94181 113821 113823 119141 119142 119143 119146 119150 119155 119163 119171 119173 119180 119210 119214 119362 119365 121344 121399 121403 121453 121461 121462 121476 121477 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123184 123191 123628 123632 125136 125143 125252 125259 127995 128000 917536 917632 917760 918000 END PK ! z@�� � 5.34.0/unicore/lib/GCB/LVT.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V798 44033 44060 44061 44088 44089 44116 44117 44144 44145 44172 44173 44200 44201 44228 44229 44256 44257 44284 44285 44312 44313 44340 44341 44368 44369 44396 44397 44424 44425 44452 44453 44480 44481 44508 44509 44536 44537 44564 44565 44592 44593 44620 44621 44648 44649 44676 44677 44704 44705 44732 44733 44760 44761 44788 44789 44816 44817 44844 44845 44872 44873 44900 44901 44928 44929 44956 44957 44984 44985 45012 45013 45040 45041 45068 45069 45096 45097 45124 45125 45152 45153 45180 45181 45208 45209 45236 45237 45264 45265 45292 45293 45320 45321 45348 45349 45376 45377 45404 45405 45432 45433 45460 45461 45488 45489 45516 45517 45544 45545 45572 45573 45600 45601 45628 45629 45656 45657 45684 45685 45712 45713 45740 45741 45768 45769 45796 45797 45824 45825 45852 45853 45880 45881 45908 45909 45936 45937 45964 45965 45992 45993 46020 46021 46048 46049 46076 46077 46104 46105 46132 46133 46160 46161 46188 46189 46216 46217 46244 46245 46272 46273 46300 46301 46328 46329 46356 46357 46384 46385 46412 46413 46440 46441 46468 46469 46496 46497 46524 46525 46552 46553 46580 46581 46608 46609 46636 46637 46664 46665 46692 46693 46720 46721 46748 46749 46776 46777 46804 46805 46832 46833 46860 46861 46888 46889 46916 46917 46944 46945 46972 46973 47000 47001 47028 47029 47056 47057 47084 47085 47112 47113 47140 47141 47168 47169 47196 47197 47224 47225 47252 47253 47280 47281 47308 47309 47336 47337 47364 47365 47392 47393 47420 47421 47448 47449 47476 47477 47504 47505 47532 47533 47560 47561 47588 47589 47616 47617 47644 47645 47672 47673 47700 47701 47728 47729 47756 47757 47784 47785 47812 47813 47840 47841 47868 47869 47896 47897 47924 47925 47952 47953 47980 47981 48008 48009 48036 48037 48064 48065 48092 48093 48120 48121 48148 48149 48176 48177 48204 48205 48232 48233 48260 48261 48288 48289 48316 48317 48344 48345 48372 48373 48400 48401 48428 48429 48456 48457 48484 48485 48512 48513 48540 48541 48568 48569 48596 48597 48624 48625 48652 48653 48680 48681 48708 48709 48736 48737 48764 48765 48792 48793 48820 48821 48848 48849 48876 48877 48904 48905 48932 48933 48960 48961 48988 48989 49016 49017 49044 49045 49072 49073 49100 49101 49128 49129 49156 49157 49184 49185 49212 49213 49240 49241 49268 49269 49296 49297 49324 49325 49352 49353 49380 49381 49408 49409 49436 49437 49464 49465 49492 49493 49520 49521 49548 49549 49576 49577 49604 49605 49632 49633 49660 49661 49688 49689 49716 49717 49744 49745 49772 49773 49800 49801 49828 49829 49856 49857 49884 49885 49912 49913 49940 49941 49968 49969 49996 49997 50024 50025 50052 50053 50080 50081 50108 50109 50136 50137 50164 50165 50192 50193 50220 50221 50248 50249 50276 50277 50304 50305 50332 50333 50360 50361 50388 50389 50416 50417 50444 50445 50472 50473 50500 50501 50528 50529 50556 50557 50584 50585 50612 50613 50640 50641 50668 50669 50696 50697 50724 50725 50752 50753 50780 50781 50808 50809 50836 50837 50864 50865 50892 50893 50920 50921 50948 50949 50976 50977 51004 51005 51032 51033 51060 51061 51088 51089 51116 51117 51144 51145 51172 51173 51200 51201 51228 51229 51256 51257 51284 51285 51312 51313 51340 51341 51368 51369 51396 51397 51424 51425 51452 51453 51480 51481 51508 51509 51536 51537 51564 51565 51592 51593 51620 51621 51648 51649 51676 51677 51704 51705 51732 51733 51760 51761 51788 51789 51816 51817 51844 51845 51872 51873 51900 51901 51928 51929 51956 51957 51984 51985 52012 52013 52040 52041 52068 52069 52096 52097 52124 52125 52152 52153 52180 52181 52208 52209 52236 52237 52264 52265 52292 52293 52320 52321 52348 52349 52376 52377 52404 52405 52432 52433 52460 52461 52488 52489 52516 52517 52544 52545 52572 52573 52600 52601 52628 52629 52656 52657 52684 52685 52712 52713 52740 52741 52768 52769 52796 52797 52824 52825 52852 52853 52880 52881 52908 52909 52936 52937 52964 52965 52992 52993 53020 53021 53048 53049 53076 53077 53104 53105 53132 53133 53160 53161 53188 53189 53216 53217 53244 53245 53272 53273 53300 53301 53328 53329 53356 53357 53384 53385 53412 53413 53440 53441 53468 53469 53496 53497 53524 53525 53552 53553 53580 53581 53608 53609 53636 53637 53664 53665 53692 53693 53720 53721 53748 53749 53776 53777 53804 53805 53832 53833 53860 53861 53888 53889 53916 53917 53944 53945 53972 53973 54000 54001 54028 54029 54056 54057 54084 54085 54112 54113 54140 54141 54168 54169 54196 54197 54224 54225 54252 54253 54280 54281 54308 54309 54336 54337 54364 54365 54392 54393 54420 54421 54448 54449 54476 54477 54504 54505 54532 54533 54560 54561 54588 54589 54616 54617 54644 54645 54672 54673 54700 54701 54728 54729 54756 54757 54784 54785 54812 54813 54840 54841 54868 54869 54896 54897 54924 54925 54952 54953 54980 54981 55008 55009 55036 55037 55064 55065 55092 55093 55120 55121 55148 55149 55176 55177 55204 END PK ! ���} } 5.34.0/unicore/lib/GCB/PP.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V26 1536 1542 1757 1758 1807 1808 2274 2275 3406 3407 69821 69822 69837 69838 70082 70084 71999 72000 72001 72002 72250 72251 72324 72330 73030 73031 END PK ! fvm�[ [ 5.34.0/unicore/lib/GCB/XX.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V619 32 127 160 173 174 768 880 1155 1162 1425 1470 1471 1472 1473 1475 1476 1478 1479 1480 1536 1542 1552 1563 1564 1565 1611 1632 1648 1649 1750 1758 1759 1765 1767 1769 1770 1774 1807 1808 1809 1810 1840 1867 1958 1969 2027 2036 2045 2046 2070 2074 2075 2084 2085 2088 2089 2094 2137 2140 2259 2308 2362 2365 2366 2384 2385 2392 2402 2404 2433 2436 2492 2493 2494 2501 2503 2505 2507 2510 2519 2520 2530 2532 2558 2559 2561 2564 2620 2621 2622 2627 2631 2633 2635 2638 2641 2642 2672 2674 2677 2678 2689 2692 2748 2749 2750 2758 2759 2762 2763 2766 2786 2788 2810 2816 2817 2820 2876 2877 2878 2885 2887 2889 2891 2894 2901 2904 2914 2916 2946 2947 3006 3011 3014 3017 3018 3022 3031 3032 3072 3077 3134 3141 3142 3145 3146 3150 3157 3159 3170 3172 3201 3204 3260 3261 3262 3269 3270 3273 3274 3278 3285 3287 3298 3300 3328 3332 3387 3389 3390 3397 3398 3401 3402 3407 3415 3416 3426 3428 3457 3460 3530 3531 3535 3541 3542 3543 3544 3552 3570 3572 3633 3634 3635 3643 3655 3663 3761 3762 3763 3773 3784 3790 3864 3866 3893 3894 3895 3896 3897 3898 3902 3904 3953 3973 3974 3976 3981 3992 3993 4029 4038 4039 4141 4152 4153 4159 4182 4186 4190 4193 4209 4213 4226 4227 4228 4231 4237 4238 4253 4254 4352 4608 4957 4960 5906 5909 5938 5941 5970 5972 6002 6004 6068 6100 6109 6110 6155 6159 6277 6279 6313 6314 6432 6444 6448 6460 6679 6684 6741 6751 6752 6753 6754 6755 6757 6781 6783 6784 6832 6849 6912 6917 6964 6981 7019 7028 7040 7043 7073 7086 7142 7156 7204 7224 7376 7379 7380 7401 7405 7406 7412 7413 7415 7418 7616 7674 7675 7680 8203 8208 8232 8239 8288 8304 8400 8433 11503 11506 11647 11648 11744 11776 12330 12336 12441 12443 42607 42611 42612 42622 42654 42656 42736 42738 43010 43011 43014 43015 43019 43020 43043 43048 43052 43053 43136 43138 43188 43206 43232 43250 43263 43264 43302 43310 43335 43348 43360 43389 43392 43396 43443 43457 43493 43494 43561 43575 43587 43588 43596 43598 43644 43645 43696 43697 43698 43701 43703 43705 43710 43712 43713 43714 43755 43760 43765 43767 44003 44011 44012 44014 44032 55204 55216 55239 55243 55292 64286 64287 65024 65040 65056 65072 65279 65280 65438 65440 65520 65532 66045 66046 66272 66273 66422 66427 68097 68100 68101 68103 68108 68112 68152 68155 68159 68160 68325 68327 68900 68904 69291 69293 69446 69457 69632 69635 69688 69703 69759 69763 69808 69819 69821 69822 69837 69838 69888 69891 69927 69941 69957 69959 70003 70004 70016 70019 70067 70081 70082 70084 70089 70093 70094 70096 70188 70200 70206 70207 70367 70379 70400 70404 70459 70461 70462 70469 70471 70473 70475 70478 70487 70488 70498 70500 70502 70509 70512 70517 70709 70727 70750 70751 70832 70852 71087 71094 71096 71105 71132 71134 71216 71233 71339 71352 71453 71468 71724 71739 71984 71990 71991 71993 71995 72004 72145 72152 72154 72161 72164 72165 72193 72203 72243 72255 72263 72264 72273 72284 72324 72346 72751 72759 72760 72768 72850 72872 72873 72887 73009 73015 73018 73019 73020 73022 73023 73032 73098 73103 73104 73106 73107 73112 73459 73463 78896 78905 92912 92917 92976 92983 94031 94032 94033 94088 94095 94099 94180 94181 94192 94194 113821 113823 113824 113828 119141 119146 119149 119171 119173 119180 119210 119214 119362 119365 121344 121399 121403 121453 121461 121462 121476 121477 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123184 123191 123628 123632 125136 125143 125252 125259 127462 127488 127995 128000 917504 921600 END PK ! b4��� � 5.34.0/unicore/lib/GCB/SM.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V318 2307 2308 2363 2364 2366 2369 2377 2381 2382 2384 2434 2436 2495 2497 2503 2505 2507 2509 2563 2564 2622 2625 2691 2692 2750 2753 2761 2762 2763 2765 2818 2820 2880 2881 2887 2889 2891 2893 3007 3008 3009 3011 3014 3017 3018 3021 3073 3076 3137 3141 3202 3204 3262 3263 3264 3266 3267 3269 3271 3273 3274 3276 3330 3332 3391 3393 3398 3401 3402 3405 3458 3460 3536 3538 3544 3551 3570 3572 3635 3636 3763 3764 3902 3904 3967 3968 4145 4146 4155 4157 4182 4184 4228 4229 6070 6071 6078 6086 6087 6089 6435 6439 6441 6444 6448 6450 6451 6457 6681 6683 6741 6742 6743 6744 6765 6771 6916 6917 6971 6972 6973 6978 6979 6981 7042 7043 7073 7074 7078 7080 7082 7083 7143 7144 7146 7149 7150 7151 7154 7156 7204 7212 7220 7222 7393 7394 7415 7416 43043 43045 43047 43048 43136 43138 43188 43204 43346 43348 43395 43396 43444 43446 43450 43452 43454 43457 43567 43569 43571 43573 43597 43598 43755 43756 43758 43760 43765 43766 44003 44005 44006 44008 44009 44011 44012 44013 69632 69633 69634 69635 69762 69763 69808 69811 69815 69817 69932 69933 69957 69959 70018 70019 70067 70070 70079 70081 70094 70095 70188 70191 70194 70196 70197 70198 70368 70371 70402 70404 70463 70464 70465 70469 70471 70473 70475 70478 70498 70500 70709 70712 70720 70722 70725 70726 70833 70835 70841 70842 70843 70845 70846 70847 70849 70850 71088 71090 71096 71100 71102 71103 71216 71219 71227 71229 71230 71231 71340 71341 71342 71344 71350 71351 71456 71458 71462 71463 71724 71727 71736 71737 71985 71990 71991 71993 71997 71998 72000 72001 72002 72003 72145 72148 72156 72160 72164 72165 72249 72250 72279 72281 72343 72344 72751 72752 72766 72767 72873 72874 72881 72882 72884 72885 73098 73103 73107 73109 73110 73111 73461 73463 94033 94088 94192 94194 119142 119143 119149 119150 END PK ! ���-� � 5.34.0/unicore/lib/GCB/LV.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V798 44032 44033 44060 44061 44088 44089 44116 44117 44144 44145 44172 44173 44200 44201 44228 44229 44256 44257 44284 44285 44312 44313 44340 44341 44368 44369 44396 44397 44424 44425 44452 44453 44480 44481 44508 44509 44536 44537 44564 44565 44592 44593 44620 44621 44648 44649 44676 44677 44704 44705 44732 44733 44760 44761 44788 44789 44816 44817 44844 44845 44872 44873 44900 44901 44928 44929 44956 44957 44984 44985 45012 45013 45040 45041 45068 45069 45096 45097 45124 45125 45152 45153 45180 45181 45208 45209 45236 45237 45264 45265 45292 45293 45320 45321 45348 45349 45376 45377 45404 45405 45432 45433 45460 45461 45488 45489 45516 45517 45544 45545 45572 45573 45600 45601 45628 45629 45656 45657 45684 45685 45712 45713 45740 45741 45768 45769 45796 45797 45824 45825 45852 45853 45880 45881 45908 45909 45936 45937 45964 45965 45992 45993 46020 46021 46048 46049 46076 46077 46104 46105 46132 46133 46160 46161 46188 46189 46216 46217 46244 46245 46272 46273 46300 46301 46328 46329 46356 46357 46384 46385 46412 46413 46440 46441 46468 46469 46496 46497 46524 46525 46552 46553 46580 46581 46608 46609 46636 46637 46664 46665 46692 46693 46720 46721 46748 46749 46776 46777 46804 46805 46832 46833 46860 46861 46888 46889 46916 46917 46944 46945 46972 46973 47000 47001 47028 47029 47056 47057 47084 47085 47112 47113 47140 47141 47168 47169 47196 47197 47224 47225 47252 47253 47280 47281 47308 47309 47336 47337 47364 47365 47392 47393 47420 47421 47448 47449 47476 47477 47504 47505 47532 47533 47560 47561 47588 47589 47616 47617 47644 47645 47672 47673 47700 47701 47728 47729 47756 47757 47784 47785 47812 47813 47840 47841 47868 47869 47896 47897 47924 47925 47952 47953 47980 47981 48008 48009 48036 48037 48064 48065 48092 48093 48120 48121 48148 48149 48176 48177 48204 48205 48232 48233 48260 48261 48288 48289 48316 48317 48344 48345 48372 48373 48400 48401 48428 48429 48456 48457 48484 48485 48512 48513 48540 48541 48568 48569 48596 48597 48624 48625 48652 48653 48680 48681 48708 48709 48736 48737 48764 48765 48792 48793 48820 48821 48848 48849 48876 48877 48904 48905 48932 48933 48960 48961 48988 48989 49016 49017 49044 49045 49072 49073 49100 49101 49128 49129 49156 49157 49184 49185 49212 49213 49240 49241 49268 49269 49296 49297 49324 49325 49352 49353 49380 49381 49408 49409 49436 49437 49464 49465 49492 49493 49520 49521 49548 49549 49576 49577 49604 49605 49632 49633 49660 49661 49688 49689 49716 49717 49744 49745 49772 49773 49800 49801 49828 49829 49856 49857 49884 49885 49912 49913 49940 49941 49968 49969 49996 49997 50024 50025 50052 50053 50080 50081 50108 50109 50136 50137 50164 50165 50192 50193 50220 50221 50248 50249 50276 50277 50304 50305 50332 50333 50360 50361 50388 50389 50416 50417 50444 50445 50472 50473 50500 50501 50528 50529 50556 50557 50584 50585 50612 50613 50640 50641 50668 50669 50696 50697 50724 50725 50752 50753 50780 50781 50808 50809 50836 50837 50864 50865 50892 50893 50920 50921 50948 50949 50976 50977 51004 51005 51032 51033 51060 51061 51088 51089 51116 51117 51144 51145 51172 51173 51200 51201 51228 51229 51256 51257 51284 51285 51312 51313 51340 51341 51368 51369 51396 51397 51424 51425 51452 51453 51480 51481 51508 51509 51536 51537 51564 51565 51592 51593 51620 51621 51648 51649 51676 51677 51704 51705 51732 51733 51760 51761 51788 51789 51816 51817 51844 51845 51872 51873 51900 51901 51928 51929 51956 51957 51984 51985 52012 52013 52040 52041 52068 52069 52096 52097 52124 52125 52152 52153 52180 52181 52208 52209 52236 52237 52264 52265 52292 52293 52320 52321 52348 52349 52376 52377 52404 52405 52432 52433 52460 52461 52488 52489 52516 52517 52544 52545 52572 52573 52600 52601 52628 52629 52656 52657 52684 52685 52712 52713 52740 52741 52768 52769 52796 52797 52824 52825 52852 52853 52880 52881 52908 52909 52936 52937 52964 52965 52992 52993 53020 53021 53048 53049 53076 53077 53104 53105 53132 53133 53160 53161 53188 53189 53216 53217 53244 53245 53272 53273 53300 53301 53328 53329 53356 53357 53384 53385 53412 53413 53440 53441 53468 53469 53496 53497 53524 53525 53552 53553 53580 53581 53608 53609 53636 53637 53664 53665 53692 53693 53720 53721 53748 53749 53776 53777 53804 53805 53832 53833 53860 53861 53888 53889 53916 53917 53944 53945 53972 53973 54000 54001 54028 54029 54056 54057 54084 54085 54112 54113 54140 54141 54168 54169 54196 54197 54224 54225 54252 54253 54280 54281 54308 54309 54336 54337 54364 54365 54392 54393 54420 54421 54448 54449 54476 54477 54504 54505 54532 54533 54560 54561 54588 54589 54616 54617 54644 54645 54672 54673 54700 54701 54728 54729 54756 54757 54784 54785 54812 54813 54840 54841 54868 54869 54896 54897 54924 54925 54952 54953 54980 54981 55008 55009 55036 55037 55064 55065 55092 55093 55120 55121 55148 55149 55176 55177 END PK ! 2?�V� � 5.34.0/unicore/lib/EPres/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V162 8986 8988 9193 9197 9200 9201 9203 9204 9725 9727 9748 9750 9800 9812 9855 9856 9875 9876 9889 9890 9898 9900 9917 9919 9924 9926 9934 9935 9940 9941 9962 9963 9970 9972 9973 9974 9978 9979 9981 9982 9989 9990 9994 9996 10024 10025 10060 10061 10062 10063 10067 10070 10071 10072 10133 10136 10160 10161 10175 10176 11035 11037 11088 11089 11093 11094 126980 126981 127183 127184 127374 127375 127377 127387 127462 127488 127489 127490 127514 127515 127535 127536 127538 127543 127544 127547 127568 127570 127744 127777 127789 127798 127799 127869 127870 127892 127904 127947 127951 127956 127968 127985 127988 127989 127992 128063 128064 128065 128066 128253 128255 128318 128331 128335 128336 128360 128378 128379 128405 128407 128420 128421 128507 128592 128640 128710 128716 128717 128720 128723 128725 128728 128747 128749 128756 128765 128992 129004 129292 129339 129340 129350 129351 129401 129402 129484 129485 129536 129648 129653 129656 129659 129664 129671 129680 129705 129712 129719 129728 129731 129744 129751 END PK ! � � � 5.34.0/unicore/lib/CWL/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1202 65 91 192 215 216 223 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 378 379 380 381 382 385 387 388 389 390 392 393 396 398 402 403 405 406 409 412 414 415 417 418 419 420 421 422 424 425 426 428 429 430 432 433 436 437 438 439 441 444 445 452 454 455 457 458 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 497 499 500 501 502 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 570 572 573 575 577 578 579 583 584 585 586 587 588 589 590 591 880 881 882 883 886 887 895 896 902 903 904 907 908 909 910 912 913 930 931 940 975 976 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1012 1013 1015 1016 1017 1019 1021 1072 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 1329 1367 4256 4294 4295 4296 4301 4302 5024 5110 7312 7355 7357 7360 7680 7681 7682 7683 7684 7685 7686 7687 7688 7689 7690 7691 7692 7693 7694 7695 7696 7697 7698 7699 7700 7701 7702 7703 7704 7705 7706 7707 7708 7709 7710 7711 7712 7713 7714 7715 7716 7717 7718 7719 7720 7721 7722 7723 7724 7725 7726 7727 7728 7729 7730 7731 7732 7733 7734 7735 7736 7737 7738 7739 7740 7741 7742 7743 7744 7745 7746 7747 7748 7749 7750 7751 7752 7753 7754 7755 7756 7757 7758 7759 7760 7761 7762 7763 7764 7765 7766 7767 7768 7769 7770 7771 7772 7773 7774 7775 7776 7777 7778 7779 7780 7781 7782 7783 7784 7785 7786 7787 7788 7789 7790 7791 7792 7793 7794 7795 7796 7797 7798 7799 7800 7801 7802 7803 7804 7805 7806 7807 7808 7809 7810 7811 7812 7813 7814 7815 7816 7817 7818 7819 7820 7821 7822 7823 7824 7825 7826 7827 7828 7829 7838 7839 7840 7841 7842 7843 7844 7845 7846 7847 7848 7849 7850 7851 7852 7853 7854 7855 7856 7857 7858 7859 7860 7861 7862 7863 7864 7865 7866 7867 7868 7869 7870 7871 7872 7873 7874 7875 7876 7877 7878 7879 7880 7881 7882 7883 7884 7885 7886 7887 7888 7889 7890 7891 7892 7893 7894 7895 7896 7897 7898 7899 7900 7901 7902 7903 7904 7905 7906 7907 7908 7909 7910 7911 7912 7913 7914 7915 7916 7917 7918 7919 7920 7921 7922 7923 7924 7925 7926 7927 7928 7929 7930 7931 7932 7933 7934 7935 7944 7952 7960 7966 7976 7984 7992 8000 8008 8014 8025 8026 8027 8028 8029 8030 8031 8032 8040 8048 8072 8080 8088 8096 8104 8112 8120 8125 8136 8141 8152 8156 8168 8173 8184 8189 8486 8487 8490 8492 8498 8499 8544 8560 8579 8580 9398 9424 11264 11311 11360 11361 11362 11365 11367 11368 11369 11370 11371 11372 11373 11377 11378 11379 11381 11382 11390 11393 11394 11395 11396 11397 11398 11399 11400 11401 11402 11403 11404 11405 11406 11407 11408 11409 11410 11411 11412 11413 11414 11415 11416 11417 11418 11419 11420 11421 11422 11423 11424 11425 11426 11427 11428 11429 11430 11431 11432 11433 11434 11435 11436 11437 11438 11439 11440 11441 11442 11443 11444 11445 11446 11447 11448 11449 11450 11451 11452 11453 11454 11455 11456 11457 11458 11459 11460 11461 11462 11463 11464 11465 11466 11467 11468 11469 11470 11471 11472 11473 11474 11475 11476 11477 11478 11479 11480 11481 11482 11483 11484 11485 11486 11487 11488 11489 11490 11491 11499 11500 11501 11502 11506 11507 42560 42561 42562 42563 42564 42565 42566 42567 42568 42569 42570 42571 42572 42573 42574 42575 42576 42577 42578 42579 42580 42581 42582 42583 42584 42585 42586 42587 42588 42589 42590 42591 42592 42593 42594 42595 42596 42597 42598 42599 42600 42601 42602 42603 42604 42605 42624 42625 42626 42627 42628 42629 42630 42631 42632 42633 42634 42635 42636 42637 42638 42639 42640 42641 42642 42643 42644 42645 42646 42647 42648 42649 42650 42651 42786 42787 42788 42789 42790 42791 42792 42793 42794 42795 42796 42797 42798 42799 42802 42803 42804 42805 42806 42807 42808 42809 42810 42811 42812 42813 42814 42815 42816 42817 42818 42819 42820 42821 42822 42823 42824 42825 42826 42827 42828 42829 42830 42831 42832 42833 42834 42835 42836 42837 42838 42839 42840 42841 42842 42843 42844 42845 42846 42847 42848 42849 42850 42851 42852 42853 42854 42855 42856 42857 42858 42859 42860 42861 42862 42863 42873 42874 42875 42876 42877 42879 42880 42881 42882 42883 42884 42885 42886 42887 42891 42892 42893 42894 42896 42897 42898 42899 42902 42903 42904 42905 42906 42907 42908 42909 42910 42911 42912 42913 42914 42915 42916 42917 42918 42919 42920 42921 42922 42927 42928 42933 42934 42935 42936 42937 42938 42939 42940 42941 42942 42943 42946 42947 42948 42952 42953 42954 42997 42998 65313 65339 66560 66600 66736 66772 68736 68787 71840 71872 93760 93792 125184 125218 END PK ! 7�cN� � 5.34.0/unicore/lib/Jt/R.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V124 1570 1574 1575 1576 1577 1578 1583 1587 1608 1609 1649 1652 1653 1656 1672 1690 1728 1729 1731 1740 1741 1742 1743 1744 1746 1748 1749 1750 1774 1776 1808 1809 1813 1818 1822 1823 1832 1833 1834 1835 1836 1837 1839 1840 1869 1870 1881 1884 1899 1901 1905 1906 1907 1909 1912 1914 2112 2113 2118 2120 2121 2122 2132 2133 2134 2137 2151 2152 2153 2155 2218 2221 2222 2223 2225 2227 2233 2234 68293 68294 68295 68296 68297 68299 68302 68307 68317 68318 68321 68322 68324 68325 68335 68336 68481 68482 68483 68486 68489 68490 68492 68493 68494 68496 68497 68498 68521 68525 68898 68899 69427 69428 69460 69461 69556 69559 69561 69563 69565 69566 69570 69572 69577 69578 END PK ! �o՚� � 5.34.0/unicore/lib/Jt/D.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V144 1568 1569 1574 1575 1576 1577 1578 1583 1587 1600 1601 1608 1609 1611 1646 1648 1656 1672 1690 1728 1729 1731 1740 1741 1742 1743 1744 1746 1786 1789 1791 1792 1810 1813 1818 1822 1823 1832 1833 1834 1835 1836 1837 1839 1870 1881 1884 1899 1901 1905 1906 1907 1909 1912 1914 1920 1994 2027 2113 2118 2120 2121 2122 2132 2133 2134 2144 2145 2146 2150 2152 2153 2208 2218 2223 2225 2227 2229 2230 2233 2234 2248 6151 6152 6176 6265 6279 6313 6314 6315 43072 43122 68288 68293 68307 68311 68312 68317 68318 68321 68331 68335 68480 68481 68482 68483 68486 68489 68490 68492 68493 68494 68496 68497 68525 68527 68865 68898 68899 68900 69424 69427 69428 69445 69457 69460 69552 69553 69554 69556 69560 69561 69563 69565 69566 69568 69569 69570 69572 69573 69578 69579 125184 125252 END PK ! �ëh� � 5.34.0/unicore/lib/Jt/U.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V727 0 173 174 768 880 1155 1162 1425 1470 1471 1472 1473 1475 1476 1478 1479 1480 1552 1563 1564 1565 1568 1569 1570 1632 1646 1652 1653 1748 1749 1757 1759 1765 1767 1769 1770 1776 1786 1789 1791 1792 1807 1867 1869 1920 1958 1969 1994 2036 2042 2043 2045 2046 2070 2074 2075 2084 2085 2088 2089 2094 2112 2140 2144 2145 2146 2150 2151 2155 2208 2221 2222 2229 2230 2248 2259 2274 2275 2307 2362 2363 2364 2365 2369 2377 2381 2382 2385 2392 2402 2404 2433 2434 2492 2493 2497 2501 2509 2510 2530 2532 2558 2559 2561 2563 2620 2621 2625 2627 2631 2633 2635 2638 2641 2642 2672 2674 2677 2678 2689 2691 2748 2749 2753 2758 2759 2761 2765 2766 2786 2788 2810 2816 2817 2818 2876 2877 2879 2880 2881 2885 2893 2894 2901 2903 2914 2916 2946 2947 3008 3009 3021 3022 3072 3073 3076 3077 3134 3137 3142 3145 3146 3150 3157 3159 3170 3172 3201 3202 3260 3261 3263 3264 3270 3271 3276 3278 3298 3300 3328 3330 3387 3389 3393 3397 3405 3406 3426 3428 3457 3458 3530 3531 3538 3541 3542 3543 3633 3634 3636 3643 3655 3663 3761 3762 3764 3773 3784 3790 3864 3866 3893 3894 3895 3896 3897 3898 3953 3967 3968 3973 3974 3976 3981 3992 3993 4029 4038 4039 4141 4145 4146 4152 4153 4155 4157 4159 4184 4186 4190 4193 4209 4213 4226 4227 4229 4231 4237 4238 4253 4254 4957 4960 5906 5909 5938 5941 5970 5972 6002 6004 6068 6070 6071 6078 6086 6087 6089 6100 6109 6110 6151 6152 6154 6158 6176 6265 6277 6315 6432 6435 6439 6441 6450 6451 6457 6460 6679 6681 6683 6684 6742 6743 6744 6751 6752 6753 6754 6755 6757 6765 6771 6781 6783 6784 6832 6849 6912 6916 6964 6965 6966 6971 6972 6973 6978 6979 7019 7028 7040 7042 7074 7078 7080 7082 7083 7086 7142 7143 7144 7146 7149 7150 7151 7154 7212 7220 7222 7224 7376 7379 7380 7393 7394 7401 7405 7406 7412 7413 7416 7418 7616 7674 7675 7680 8203 8204 8205 8208 8234 8239 8288 8293 8298 8304 8400 8433 11503 11506 11647 11648 11744 11776 12330 12334 12441 12443 42607 42611 42612 42622 42654 42656 42736 42738 43010 43011 43014 43015 43019 43020 43045 43047 43052 43053 43072 43123 43204 43206 43232 43250 43263 43264 43302 43310 43335 43346 43392 43395 43443 43444 43446 43450 43452 43454 43493 43494 43561 43567 43569 43571 43573 43575 43587 43588 43596 43597 43644 43645 43696 43697 43698 43701 43703 43705 43710 43712 43713 43714 43756 43758 43766 43767 44005 44006 44008 44009 44013 44014 64286 64287 65024 65040 65056 65072 65279 65280 65529 65532 66045 66046 66272 66273 66422 66427 68097 68100 68101 68103 68108 68112 68152 68155 68159 68160 68288 68294 68295 68296 68297 68299 68301 68322 68324 68327 68331 68336 68480 68498 68521 68527 68864 68904 69291 69293 69424 69445 69446 69461 69552 69553 69554 69559 69560 69568 69569 69573 69577 69580 69633 69634 69688 69703 69759 69762 69811 69815 69817 69819 69888 69891 69927 69932 69933 69941 70003 70004 70016 70018 70070 70079 70089 70093 70095 70096 70191 70194 70196 70197 70198 70200 70206 70207 70367 70368 70371 70379 70400 70402 70459 70461 70464 70465 70502 70509 70512 70517 70712 70720 70722 70725 70726 70727 70750 70751 70835 70841 70842 70843 70847 70849 70850 70852 71090 71094 71100 71102 71103 71105 71132 71134 71219 71227 71229 71230 71231 71233 71339 71340 71341 71342 71344 71350 71351 71352 71453 71456 71458 71462 71463 71468 71727 71736 71737 71739 71995 71997 71998 71999 72003 72004 72148 72152 72154 72156 72160 72161 72193 72203 72243 72249 72251 72255 72263 72264 72273 72279 72281 72284 72330 72343 72344 72346 72752 72759 72760 72766 72767 72768 72850 72872 72874 72881 72882 72884 72885 72887 73009 73015 73018 73019 73020 73022 73023 73030 73031 73032 73104 73106 73109 73110 73111 73112 73459 73461 78896 78905 92912 92917 92976 92983 94031 94032 94095 94099 94180 94181 113821 113823 113824 113828 119143 119146 119155 119171 119173 119180 119210 119214 119362 119365 121344 121399 121403 121453 121461 121462 121476 121477 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123184 123191 123628 123632 125136 125143 125184 125260 917505 917506 917536 917632 917760 918000 END PK ! �5��' ' 5.34.0/unicore/lib/Jt/L.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V10 43122 43123 68301 68302 68311 68312 68864 68865 69579 69580 END PK ! ��� 5.34.0/unicore/lib/Jt/C.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V8 1600 1601 2042 2043 6154 6155 8205 8206 END PK ! |�砚 � 5.34.0/unicore/lib/Jt/T.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V676 173 174 768 880 1155 1162 1425 1470 1471 1472 1473 1475 1476 1478 1479 1480 1552 1563 1564 1565 1611 1632 1648 1649 1750 1757 1759 1765 1767 1769 1770 1774 1807 1808 1809 1810 1840 1867 1958 1969 2027 2036 2045 2046 2070 2074 2075 2084 2085 2088 2089 2094 2137 2140 2259 2274 2275 2307 2362 2363 2364 2365 2369 2377 2381 2382 2385 2392 2402 2404 2433 2434 2492 2493 2497 2501 2509 2510 2530 2532 2558 2559 2561 2563 2620 2621 2625 2627 2631 2633 2635 2638 2641 2642 2672 2674 2677 2678 2689 2691 2748 2749 2753 2758 2759 2761 2765 2766 2786 2788 2810 2816 2817 2818 2876 2877 2879 2880 2881 2885 2893 2894 2901 2903 2914 2916 2946 2947 3008 3009 3021 3022 3072 3073 3076 3077 3134 3137 3142 3145 3146 3150 3157 3159 3170 3172 3201 3202 3260 3261 3263 3264 3270 3271 3276 3278 3298 3300 3328 3330 3387 3389 3393 3397 3405 3406 3426 3428 3457 3458 3530 3531 3538 3541 3542 3543 3633 3634 3636 3643 3655 3663 3761 3762 3764 3773 3784 3790 3864 3866 3893 3894 3895 3896 3897 3898 3953 3967 3968 3973 3974 3976 3981 3992 3993 4029 4038 4039 4141 4145 4146 4152 4153 4155 4157 4159 4184 4186 4190 4193 4209 4213 4226 4227 4229 4231 4237 4238 4253 4254 4957 4960 5906 5909 5938 5941 5970 5972 6002 6004 6068 6070 6071 6078 6086 6087 6089 6100 6109 6110 6155 6158 6277 6279 6313 6314 6432 6435 6439 6441 6450 6451 6457 6460 6679 6681 6683 6684 6742 6743 6744 6751 6752 6753 6754 6755 6757 6765 6771 6781 6783 6784 6832 6849 6912 6916 6964 6965 6966 6971 6972 6973 6978 6979 7019 7028 7040 7042 7074 7078 7080 7082 7083 7086 7142 7143 7144 7146 7149 7150 7151 7154 7212 7220 7222 7224 7376 7379 7380 7393 7394 7401 7405 7406 7412 7413 7416 7418 7616 7674 7675 7680 8203 8204 8206 8208 8234 8239 8288 8293 8298 8304 8400 8433 11503 11506 11647 11648 11744 11776 12330 12334 12441 12443 42607 42611 42612 42622 42654 42656 42736 42738 43010 43011 43014 43015 43019 43020 43045 43047 43052 43053 43204 43206 43232 43250 43263 43264 43302 43310 43335 43346 43392 43395 43443 43444 43446 43450 43452 43454 43493 43494 43561 43567 43569 43571 43573 43575 43587 43588 43596 43597 43644 43645 43696 43697 43698 43701 43703 43705 43710 43712 43713 43714 43756 43758 43766 43767 44005 44006 44008 44009 44013 44014 64286 64287 65024 65040 65056 65072 65279 65280 65529 65532 66045 66046 66272 66273 66422 66427 68097 68100 68101 68103 68108 68112 68152 68155 68159 68160 68325 68327 68900 68904 69291 69293 69446 69457 69633 69634 69688 69703 69759 69762 69811 69815 69817 69819 69888 69891 69927 69932 69933 69941 70003 70004 70016 70018 70070 70079 70089 70093 70095 70096 70191 70194 70196 70197 70198 70200 70206 70207 70367 70368 70371 70379 70400 70402 70459 70461 70464 70465 70502 70509 70512 70517 70712 70720 70722 70725 70726 70727 70750 70751 70835 70841 70842 70843 70847 70849 70850 70852 71090 71094 71100 71102 71103 71105 71132 71134 71219 71227 71229 71230 71231 71233 71339 71340 71341 71342 71344 71350 71351 71352 71453 71456 71458 71462 71463 71468 71727 71736 71737 71739 71995 71997 71998 71999 72003 72004 72148 72152 72154 72156 72160 72161 72193 72203 72243 72249 72251 72255 72263 72264 72273 72279 72281 72284 72330 72343 72344 72346 72752 72759 72760 72766 72767 72768 72850 72872 72874 72881 72882 72884 72885 72887 73009 73015 73018 73019 73020 73022 73023 73030 73031 73032 73104 73106 73109 73110 73111 73112 73459 73461 78896 78905 92912 92917 92976 92983 94031 94032 94095 94099 94180 94181 113821 113823 113824 113828 119143 119146 119155 119171 119173 119180 119210 119214 119362 119365 121344 121399 121403 121453 121461 121462 121476 121477 121499 121504 121505 121520 122880 122887 122888 122905 122907 122914 122915 122917 122918 122923 123184 123191 123628 123632 125136 125143 125252 125260 917505 917506 917536 917632 917760 918000 END PK ! ��D#� � 5.34.0/unicore/lib/Lower/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1304 97 123 170 171 181 182 186 187 223 247 248 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 378 379 380 381 382 385 387 388 389 390 392 393 396 398 402 403 405 406 409 412 414 415 417 418 419 420 421 422 424 425 426 428 429 430 432 433 436 437 438 439 441 443 445 448 454 455 457 458 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 497 499 500 501 502 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 570 572 573 575 577 578 579 583 584 585 586 587 588 589 590 591 660 661 697 704 706 736 741 837 838 881 882 883 884 887 888 890 894 912 913 940 975 976 978 981 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1012 1013 1014 1016 1017 1019 1021 1072 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 1328 1376 1417 4304 4347 4349 4352 5112 5118 7296 7305 7424 7616 7681 7682 7683 7684 7685 7686 7687 7688 7689 7690 7691 7692 7693 7694 7695 7696 7697 7698 7699 7700 7701 7702 7703 7704 7705 7706 7707 7708 7709 7710 7711 7712 7713 7714 7715 7716 7717 7718 7719 7720 7721 7722 7723 7724 7725 7726 7727 7728 7729 7730 7731 7732 7733 7734 7735 7736 7737 7738 7739 7740 7741 7742 7743 7744 7745 7746 7747 7748 7749 7750 7751 7752 7753 7754 7755 7756 7757 7758 7759 7760 7761 7762 7763 7764 7765 7766 7767 7768 7769 7770 7771 7772 7773 7774 7775 7776 7777 7778 7779 7780 7781 7782 7783 7784 7785 7786 7787 7788 7789 7790 7791 7792 7793 7794 7795 7796 7797 7798 7799 7800 7801 7802 7803 7804 7805 7806 7807 7808 7809 7810 7811 7812 7813 7814 7815 7816 7817 7818 7819 7820 7821 7822 7823 7824 7825 7826 7827 7828 7829 7838 7839 7840 7841 7842 7843 7844 7845 7846 7847 7848 7849 7850 7851 7852 7853 7854 7855 7856 7857 7858 7859 7860 7861 7862 7863 7864 7865 7866 7867 7868 7869 7870 7871 7872 7873 7874 7875 7876 7877 7878 7879 7880 7881 7882 7883 7884 7885 7886 7887 7888 7889 7890 7891 7892 7893 7894 7895 7896 7897 7898 7899 7900 7901 7902 7903 7904 7905 7906 7907 7908 7909 7910 7911 7912 7913 7914 7915 7916 7917 7918 7919 7920 7921 7922 7923 7924 7925 7926 7927 7928 7929 7930 7931 7932 7933 7934 7935 7944 7952 7958 7968 7976 7984 7992 8000 8006 8016 8024 8032 8040 8048 8062 8064 8072 8080 8088 8096 8104 8112 8117 8118 8120 8126 8127 8130 8133 8134 8136 8144 8148 8150 8152 8160 8168 8178 8181 8182 8184 8305 8306 8319 8320 8336 8349 8458 8459 8462 8464 8467 8468 8495 8496 8500 8501 8505 8506 8508 8510 8518 8522 8526 8527 8560 8576 8580 8581 9424 9450 11312 11359 11361 11362 11365 11367 11368 11369 11370 11371 11372 11373 11377 11378 11379 11381 11382 11390 11393 11394 11395 11396 11397 11398 11399 11400 11401 11402 11403 11404 11405 11406 11407 11408 11409 11410 11411 11412 11413 11414 11415 11416 11417 11418 11419 11420 11421 11422 11423 11424 11425 11426 11427 11428 11429 11430 11431 11432 11433 11434 11435 11436 11437 11438 11439 11440 11441 11442 11443 11444 11445 11446 11447 11448 11449 11450 11451 11452 11453 11454 11455 11456 11457 11458 11459 11460 11461 11462 11463 11464 11465 11466 11467 11468 11469 11470 11471 11472 11473 11474 11475 11476 11477 11478 11479 11480 11481 11482 11483 11484 11485 11486 11487 11488 11489 11490 11491 11493 11500 11501 11502 11503 11507 11508 11520 11558 11559 11560 11565 11566 42561 42562 42563 42564 42565 42566 42567 42568 42569 42570 42571 42572 42573 42574 42575 42576 42577 42578 42579 42580 42581 42582 42583 42584 42585 42586 42587 42588 42589 42590 42591 42592 42593 42594 42595 42596 42597 42598 42599 42600 42601 42602 42603 42604 42605 42606 42625 42626 42627 42628 42629 42630 42631 42632 42633 42634 42635 42636 42637 42638 42639 42640 42641 42642 42643 42644 42645 42646 42647 42648 42649 42650 42651 42654 42787 42788 42789 42790 42791 42792 42793 42794 42795 42796 42797 42798 42799 42802 42803 42804 42805 42806 42807 42808 42809 42810 42811 42812 42813 42814 42815 42816 42817 42818 42819 42820 42821 42822 42823 42824 42825 42826 42827 42828 42829 42830 42831 42832 42833 42834 42835 42836 42837 42838 42839 42840 42841 42842 42843 42844 42845 42846 42847 42848 42849 42850 42851 42852 42853 42854 42855 42856 42857 42858 42859 42860 42861 42862 42863 42873 42874 42875 42876 42877 42879 42880 42881 42882 42883 42884 42885 42886 42887 42888 42892 42893 42894 42895 42897 42898 42899 42902 42903 42904 42905 42906 42907 42908 42909 42910 42911 42912 42913 42914 42915 42916 42917 42918 42919 42920 42921 42922 42927 42928 42933 42934 42935 42936 42937 42938 42939 42940 42941 42942 42943 42944 42947 42948 42952 42953 42954 42955 42998 42999 43000 43003 43824 43867 43868 43881 43888 43968 64256 64263 64275 64280 65345 65371 66600 66640 66776 66812 68800 68851 71872 71904 93792 93824 119834 119860 119886 119893 119894 119912 119938 119964 119990 119994 119995 119996 119997 120004 120005 120016 120042 120068 120094 120120 120146 120172 120198 120224 120250 120276 120302 120328 120354 120380 120406 120432 120458 120486 120514 120539 120540 120546 120572 120597 120598 120604 120630 120655 120656 120662 120688 120713 120714 120720 120746 120771 120772 120778 120779 120780 125218 125252 END PK ! )%p� � & 5.34.0/unicore/lib/IdStatus/Allowed.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V748 39 40 45 47 48 59 65 91 95 96 97 123 183 184 192 215 216 247 248 306 308 319 321 329 330 383 399 400 416 418 431 433 461 477 478 484 486 497 500 502 504 540 542 544 550 564 601 602 699 701 748 749 768 773 774 781 783 786 787 789 795 796 803 809 813 815 816 818 821 822 824 826 834 835 837 838 885 886 891 894 902 903 904 907 908 909 910 930 931 975 1020 1120 1162 1280 1296 1322 1326 1328 1329 1367 1369 1370 1377 1415 1418 1419 1460 1461 1488 1515 1519 1525 1568 1600 1601 1622 1632 1642 1648 1651 1652 1653 1657 1678 1679 1697 1698 1748 1749 1750 1765 1767 1774 1792 1872 1970 2208 2221 2226 2227 2230 2248 2305 2382 2383 2385 2390 2392 2400 2404 2406 2416 2417 2424 2425 2432 2433 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2528 2532 2534 2546 2558 2559 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2611 2613 2614 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2652 2653 2662 2677 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2800 2810 2816 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2884 2887 2889 2891 2894 2901 2904 2911 2914 2918 2928 2929 2930 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3056 3073 3085 3086 3089 3090 3113 3114 3124 3125 3130 3133 3141 3142 3145 3146 3150 3157 3159 3168 3170 3174 3184 3200 3201 3202 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3296 3300 3302 3312 3313 3315 3328 3329 3330 3332 3333 3341 3342 3345 3346 3387 3389 3396 3398 3401 3402 3407 3412 3416 3424 3426 3430 3440 3450 3456 3458 3460 3461 3471 3473 3479 3482 3494 3495 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3551 3570 3571 3585 3635 3636 3643 3648 3663 3664 3674 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3763 3764 3774 3776 3781 3782 3783 3784 3790 3792 3802 3806 3808 3840 3841 3851 3852 3872 3882 3893 3894 3895 3896 3902 3907 3908 3912 3913 3917 3918 3922 3923 3927 3928 3932 3933 3945 3946 3949 3953 3955 3956 3957 3962 3969 3970 3973 3974 3987 3988 3992 3993 3997 3998 4002 4003 4007 4008 4012 4013 4025 4026 4029 4038 4039 4096 4170 4176 4254 4295 4296 4301 4302 4304 4337 4343 4347 4349 4352 4608 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4960 4992 5008 6016 6051 6053 6056 6057 6068 6070 6091 6098 6099 6103 6104 6108 6109 6112 6122 7312 7355 7357 7360 7680 7834 7838 7839 7840 7930 7936 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8049 8050 8051 8052 8053 8054 8055 8056 8057 8058 8059 8060 8061 8064 8117 8118 8123 8124 8125 8130 8133 8134 8137 8138 8139 8140 8141 8144 8147 8150 8155 8160 8163 8164 8171 8172 8173 8178 8181 8182 8185 8186 8187 8188 8189 8204 8206 8208 8209 8217 8218 8231 8232 11559 11560 11565 11566 11648 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 12293 12296 12353 12439 12441 12443 12445 12447 12448 12543 12549 12590 12591 12592 12704 12736 13312 19904 19968 40957 42623 42624 42775 42784 42888 42889 42893 42894 42898 42900 42922 42923 42926 42927 42936 42938 42946 42955 43495 43519 43616 43639 43642 43648 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43878 43880 44032 55204 64014 64016 64017 64018 64019 64021 64031 64032 64033 64034 64035 64037 64039 64042 70401 70402 70403 70404 70459 70461 94192 94194 110928 110931 110948 110952 131072 173790 173824 177973 177984 178206 178208 183970 183984 191457 196608 201547 END PK ! R�X� � ' 5.34.0/unicore/lib/IdStatus/Restrict.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V749 0 39 40 45 47 48 59 65 91 95 96 97 123 183 184 192 215 216 247 248 306 308 319 321 329 330 383 399 400 416 418 431 433 461 477 478 484 486 497 500 502 504 540 542 544 550 564 601 602 699 701 748 749 768 773 774 781 783 786 787 789 795 796 803 809 813 815 816 818 821 822 824 826 834 835 837 838 885 886 891 894 902 903 904 907 908 909 910 930 931 975 1020 1120 1162 1280 1296 1322 1326 1328 1329 1367 1369 1370 1377 1415 1418 1419 1460 1461 1488 1515 1519 1525 1568 1600 1601 1622 1632 1642 1648 1651 1652 1653 1657 1678 1679 1697 1698 1748 1749 1750 1765 1767 1774 1792 1872 1970 2208 2221 2226 2227 2230 2248 2305 2382 2383 2385 2390 2392 2400 2404 2406 2416 2417 2424 2425 2432 2433 2436 2437 2445 2447 2449 2451 2473 2474 2481 2482 2483 2486 2490 2492 2501 2503 2505 2507 2511 2519 2520 2528 2532 2534 2546 2558 2559 2561 2564 2565 2571 2575 2577 2579 2601 2602 2609 2610 2611 2613 2614 2616 2618 2620 2621 2622 2627 2631 2633 2635 2638 2652 2653 2662 2677 2689 2692 2693 2702 2703 2706 2707 2729 2730 2737 2738 2740 2741 2746 2748 2758 2759 2762 2763 2766 2768 2769 2784 2788 2790 2800 2810 2816 2817 2820 2821 2829 2831 2833 2835 2857 2858 2865 2866 2868 2869 2874 2876 2884 2887 2889 2891 2894 2901 2904 2911 2914 2918 2928 2929 2930 2946 2948 2949 2955 2958 2961 2962 2966 2969 2971 2972 2973 2974 2976 2979 2981 2984 2987 2990 3002 3006 3011 3014 3017 3018 3022 3024 3025 3031 3032 3046 3056 3073 3085 3086 3089 3090 3113 3114 3124 3125 3130 3133 3141 3142 3145 3146 3150 3157 3159 3168 3170 3174 3184 3200 3201 3202 3204 3205 3213 3214 3217 3218 3241 3242 3252 3253 3258 3260 3269 3270 3273 3274 3278 3285 3287 3296 3300 3302 3312 3313 3315 3328 3329 3330 3332 3333 3341 3342 3345 3346 3387 3389 3396 3398 3401 3402 3407 3412 3416 3424 3426 3430 3440 3450 3456 3458 3460 3461 3471 3473 3479 3482 3494 3495 3506 3507 3516 3517 3518 3520 3527 3530 3531 3535 3541 3542 3543 3544 3551 3570 3571 3585 3635 3636 3643 3648 3663 3664 3674 3713 3715 3716 3717 3718 3723 3724 3748 3749 3750 3751 3763 3764 3774 3776 3781 3782 3783 3784 3790 3792 3802 3806 3808 3840 3841 3851 3852 3872 3882 3893 3894 3895 3896 3902 3907 3908 3912 3913 3917 3918 3922 3923 3927 3928 3932 3933 3945 3946 3949 3953 3955 3956 3957 3962 3969 3970 3973 3974 3987 3988 3992 3993 3997 3998 4002 4003 4007 4008 4012 4013 4025 4026 4029 4038 4039 4096 4170 4176 4254 4295 4296 4301 4302 4304 4337 4343 4347 4349 4352 4608 4681 4682 4686 4688 4695 4696 4697 4698 4702 4704 4745 4746 4750 4752 4785 4786 4790 4792 4799 4800 4801 4802 4806 4808 4823 4824 4881 4882 4886 4888 4955 4957 4960 4992 5008 6016 6051 6053 6056 6057 6068 6070 6091 6098 6099 6103 6104 6108 6109 6112 6122 7312 7355 7357 7360 7680 7834 7838 7839 7840 7930 7936 7958 7960 7966 7968 8006 8008 8014 8016 8024 8025 8026 8027 8028 8029 8030 8031 8049 8050 8051 8052 8053 8054 8055 8056 8057 8058 8059 8060 8061 8064 8117 8118 8123 8124 8125 8130 8133 8134 8137 8138 8139 8140 8141 8144 8147 8150 8155 8160 8163 8164 8171 8172 8173 8178 8181 8182 8185 8186 8187 8188 8189 8204 8206 8208 8209 8217 8218 8231 8232 11559 11560 11565 11566 11648 11671 11680 11687 11688 11695 11696 11703 11704 11711 11712 11719 11720 11727 11728 11735 11736 11743 12293 12296 12353 12439 12441 12443 12445 12447 12448 12543 12549 12590 12591 12592 12704 12736 13312 19904 19968 40957 42623 42624 42775 42784 42888 42889 42893 42894 42898 42900 42922 42923 42926 42927 42936 42938 42946 42955 43495 43519 43616 43639 43642 43648 43777 43783 43785 43791 43793 43799 43808 43815 43816 43823 43878 43880 44032 55204 64014 64016 64017 64018 64019 64021 64031 64032 64033 64034 64035 64037 64039 64042 70401 70402 70403 70404 70459 70461 94192 94194 110928 110931 110948 110952 131072 173790 173824 177973 177984 178206 178208 183970 183984 191457 196608 201547 END PK ! ��� � 5.34.0/unicore/lib/NFKCQC/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V577 0 160 161 168 169 170 171 175 176 178 182 184 187 188 191 306 308 319 321 329 330 383 384 452 461 497 500 688 697 728 734 736 741 768 773 774 781 783 784 785 786 787 789 795 796 803 809 813 815 816 818 824 825 832 838 884 885 890 891 894 895 900 902 903 904 976 983 1008 1011 1012 1014 1017 1018 1415 1416 1619 1622 1653 1657 2364 2365 2392 2400 2494 2495 2519 2520 2524 2526 2527 2528 2611 2612 2614 2615 2649 2652 2654 2655 2878 2879 2902 2904 2908 2910 3006 3007 3031 3032 3158 3159 3266 3267 3285 3287 3390 3391 3415 3416 3530 3531 3535 3536 3551 3552 3635 3636 3763 3764 3804 3806 3852 3853 3907 3908 3917 3918 3922 3923 3927 3928 3932 3933 3945 3946 3955 3956 3957 3962 3969 3970 3987 3988 3997 3998 4002 4003 4007 4008 4012 4013 4025 4026 4142 4143 4348 4349 4449 4470 4520 4547 6965 6966 7468 7471 7472 7483 7484 7502 7503 7531 7544 7545 7579 7616 7834 7836 8049 8050 8051 8052 8053 8054 8055 8056 8057 8058 8059 8060 8061 8062 8123 8124 8125 8130 8137 8138 8139 8140 8141 8144 8147 8148 8155 8156 8157 8160 8163 8164 8171 8172 8173 8176 8185 8186 8187 8188 8189 8191 8192 8203 8209 8210 8215 8216 8228 8231 8239 8240 8243 8245 8246 8248 8252 8253 8254 8255 8263 8266 8279 8280 8287 8288 8304 8306 8308 8335 8336 8349 8360 8361 8448 8452 8453 8456 8457 8468 8469 8471 8473 8478 8480 8483 8484 8485 8486 8487 8488 8489 8490 8494 8495 8498 8499 8506 8507 8513 8517 8522 8528 8576 8585 8586 8748 8750 8751 8753 9001 9003 9312 9451 10764 10765 10868 10871 10972 10973 11388 11390 11631 11632 11935 11936 12019 12020 12032 12246 12288 12289 12342 12343 12344 12347 12441 12445 12447 12448 12543 12544 12593 12687 12690 12704 12800 12831 12832 12872 12880 12927 12928 13312 42652 42654 42864 42865 43000 43002 43868 43872 43881 43882 63744 64014 64016 64017 64018 64019 64021 64031 64032 64033 64034 64035 64037 64039 64042 64110 64112 64218 64256 64263 64275 64280 64285 64286 64287 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64830 64848 64912 64914 64968 65008 65021 65040 65050 65072 65093 65095 65107 65108 65127 65128 65132 65136 65139 65140 65141 65142 65277 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 69818 69819 69927 69928 70462 70463 70487 70488 70832 70833 70842 70843 70845 70846 71087 71088 71984 71985 119134 119141 119227 119233 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 120832 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 127232 127243 127248 127279 127280 127312 127338 127341 127376 127377 127488 127491 127504 127548 127552 127561 127568 127570 130032 130042 194560 195102 END PK ! �9Z 5.34.0/unicore/lib/NFKCQC/N.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V500 160 161 168 169 170 171 175 176 178 182 184 187 188 191 306 308 319 321 329 330 383 384 452 461 497 500 688 697 728 734 736 741 832 834 835 837 884 885 890 891 894 895 900 902 903 904 976 983 1008 1011 1012 1014 1017 1018 1415 1416 1653 1657 2392 2400 2524 2526 2527 2528 2611 2612 2614 2615 2649 2652 2654 2655 2908 2910 3635 3636 3763 3764 3804 3806 3852 3853 3907 3908 3917 3918 3922 3923 3927 3928 3932 3933 3945 3946 3955 3956 3957 3962 3969 3970 3987 3988 3997 3998 4002 4003 4007 4008 4012 4013 4025 4026 4348 4349 7468 7471 7472 7483 7484 7502 7503 7531 7544 7545 7579 7616 7834 7836 8049 8050 8051 8052 8053 8054 8055 8056 8057 8058 8059 8060 8061 8062 8123 8124 8125 8130 8137 8138 8139 8140 8141 8144 8147 8148 8155 8156 8157 8160 8163 8164 8171 8172 8173 8176 8185 8186 8187 8188 8189 8191 8192 8203 8209 8210 8215 8216 8228 8231 8239 8240 8243 8245 8246 8248 8252 8253 8254 8255 8263 8266 8279 8280 8287 8288 8304 8306 8308 8335 8336 8349 8360 8361 8448 8452 8453 8456 8457 8468 8469 8471 8473 8478 8480 8483 8484 8485 8486 8487 8488 8489 8490 8494 8495 8498 8499 8506 8507 8513 8517 8522 8528 8576 8585 8586 8748 8750 8751 8753 9001 9003 9312 9451 10764 10765 10868 10871 10972 10973 11388 11390 11631 11632 11935 11936 12019 12020 12032 12246 12288 12289 12342 12343 12344 12347 12443 12445 12447 12448 12543 12544 12593 12687 12690 12704 12800 12831 12832 12872 12880 12927 12928 13312 42652 42654 42864 42865 43000 43002 43868 43872 43881 43882 63744 64014 64016 64017 64018 64019 64021 64031 64032 64033 64034 64035 64037 64039 64042 64110 64112 64218 64256 64263 64275 64280 64285 64286 64287 64311 64312 64317 64318 64319 64320 64322 64323 64325 64326 64434 64467 64830 64848 64912 64914 64968 65008 65021 65040 65050 65072 65093 65095 65107 65108 65127 65128 65132 65136 65139 65140 65141 65142 65277 65281 65471 65474 65480 65482 65488 65490 65496 65498 65501 65504 65511 65512 65519 119134 119141 119227 119233 119808 119893 119894 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119994 119995 119996 119997 120004 120005 120070 120071 120075 120077 120085 120086 120093 120094 120122 120123 120127 120128 120133 120134 120135 120138 120145 120146 120486 120488 120780 120782 120832 126464 126468 126469 126496 126497 126499 126500 126501 126503 126504 126505 126515 126516 126520 126521 126522 126523 126524 126530 126531 126535 126536 126537 126538 126539 126540 126541 126544 126545 126547 126548 126549 126551 126552 126553 126554 126555 126556 126557 126558 126559 126560 126561 126563 126564 126565 126567 126571 126572 126579 126580 126584 126585 126589 126590 126591 126592 126602 126603 126620 126625 126628 126629 126634 126635 126652 127232 127243 127248 127279 127280 127312 127338 127341 127376 127377 127488 127491 127504 127548 127552 127561 127568 127570 130032 130042 194560 195102 END PK ! �2�� � 5.34.0/unicore/lib/UIdeo/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V30 13312 19904 19968 40957 64014 64016 64017 64018 64019 64021 64031 64032 64033 64034 64035 64037 64039 64042 131072 173790 173824 177973 177984 178206 178208 183970 183984 191457 196608 201547 END PK ! �j b� � 5.34.0/unicore/lib/Upper/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V1286 65 91 192 215 216 223 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 378 379 380 381 382 385 387 388 389 390 392 393 396 398 402 403 405 406 409 412 414 415 417 418 419 420 421 422 424 425 426 428 429 430 432 433 436 437 438 439 441 444 445 452 453 455 456 458 459 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 497 498 500 501 502 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 570 572 573 575 577 578 579 583 584 585 586 587 588 589 590 591 880 881 882 883 886 887 895 896 902 903 904 907 908 909 910 912 913 930 931 940 975 976 978 981 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1012 1013 1015 1016 1017 1019 1021 1072 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 1329 1367 4256 4294 4295 4296 4301 4302 5024 5110 7312 7355 7357 7360 7680 7681 7682 7683 7684 7685 7686 7687 7688 7689 7690 7691 7692 7693 7694 7695 7696 7697 7698 7699 7700 7701 7702 7703 7704 7705 7706 7707 7708 7709 7710 7711 7712 7713 7714 7715 7716 7717 7718 7719 7720 7721 7722 7723 7724 7725 7726 7727 7728 7729 7730 7731 7732 7733 7734 7735 7736 7737 7738 7739 7740 7741 7742 7743 7744 7745 7746 7747 7748 7749 7750 7751 7752 7753 7754 7755 7756 7757 7758 7759 7760 7761 7762 7763 7764 7765 7766 7767 7768 7769 7770 7771 7772 7773 7774 7775 7776 7777 7778 7779 7780 7781 7782 7783 7784 7785 7786 7787 7788 7789 7790 7791 7792 7793 7794 7795 7796 7797 7798 7799 7800 7801 7802 7803 7804 7805 7806 7807 7808 7809 7810 7811 7812 7813 7814 7815 7816 7817 7818 7819 7820 7821 7822 7823 7824 7825 7826 7827 7828 7829 7838 7839 7840 7841 7842 7843 7844 7845 7846 7847 7848 7849 7850 7851 7852 7853 7854 7855 7856 7857 7858 7859 7860 7861 7862 7863 7864 7865 7866 7867 7868 7869 7870 7871 7872 7873 7874 7875 7876 7877 7878 7879 7880 7881 7882 7883 7884 7885 7886 7887 7888 7889 7890 7891 7892 7893 7894 7895 7896 7897 7898 7899 7900 7901 7902 7903 7904 7905 7906 7907 7908 7909 7910 7911 7912 7913 7914 7915 7916 7917 7918 7919 7920 7921 7922 7923 7924 7925 7926 7927 7928 7929 7930 7931 7932 7933 7934 7935 7944 7952 7960 7966 7976 7984 7992 8000 8008 8014 8025 8026 8027 8028 8029 8030 8031 8032 8040 8048 8120 8124 8136 8140 8152 8156 8168 8173 8184 8188 8450 8451 8455 8456 8459 8462 8464 8467 8469 8470 8473 8478 8484 8485 8486 8487 8488 8489 8490 8494 8496 8500 8510 8512 8517 8518 8544 8560 8579 8580 9398 9424 11264 11311 11360 11361 11362 11365 11367 11368 11369 11370 11371 11372 11373 11377 11378 11379 11381 11382 11390 11393 11394 11395 11396 11397 11398 11399 11400 11401 11402 11403 11404 11405 11406 11407 11408 11409 11410 11411 11412 11413 11414 11415 11416 11417 11418 11419 11420 11421 11422 11423 11424 11425 11426 11427 11428 11429 11430 11431 11432 11433 11434 11435 11436 11437 11438 11439 11440 11441 11442 11443 11444 11445 11446 11447 11448 11449 11450 11451 11452 11453 11454 11455 11456 11457 11458 11459 11460 11461 11462 11463 11464 11465 11466 11467 11468 11469 11470 11471 11472 11473 11474 11475 11476 11477 11478 11479 11480 11481 11482 11483 11484 11485 11486 11487 11488 11489 11490 11491 11499 11500 11501 11502 11506 11507 42560 42561 42562 42563 42564 42565 42566 42567 42568 42569 42570 42571 42572 42573 42574 42575 42576 42577 42578 42579 42580 42581 42582 42583 42584 42585 42586 42587 42588 42589 42590 42591 42592 42593 42594 42595 42596 42597 42598 42599 42600 42601 42602 42603 42604 42605 42624 42625 42626 42627 42628 42629 42630 42631 42632 42633 42634 42635 42636 42637 42638 42639 42640 42641 42642 42643 42644 42645 42646 42647 42648 42649 42650 42651 42786 42787 42788 42789 42790 42791 42792 42793 42794 42795 42796 42797 42798 42799 42802 42803 42804 42805 42806 42807 42808 42809 42810 42811 42812 42813 42814 42815 42816 42817 42818 42819 42820 42821 42822 42823 42824 42825 42826 42827 42828 42829 42830 42831 42832 42833 42834 42835 42836 42837 42838 42839 42840 42841 42842 42843 42844 42845 42846 42847 42848 42849 42850 42851 42852 42853 42854 42855 42856 42857 42858 42859 42860 42861 42862 42863 42873 42874 42875 42876 42877 42879 42880 42881 42882 42883 42884 42885 42886 42887 42891 42892 42893 42894 42896 42897 42898 42899 42902 42903 42904 42905 42906 42907 42908 42909 42910 42911 42912 42913 42914 42915 42916 42917 42918 42919 42920 42921 42922 42927 42928 42933 42934 42935 42936 42937 42938 42939 42940 42941 42942 42943 42946 42947 42948 42952 42953 42954 42997 42998 65313 65339 66560 66600 66736 66772 68736 68787 71840 71872 93760 93792 119808 119834 119860 119886 119912 119938 119964 119965 119966 119968 119970 119971 119973 119975 119977 119981 119982 119990 120016 120042 120068 120070 120071 120075 120077 120085 120086 120093 120120 120122 120123 120127 120128 120133 120134 120135 120138 120145 120172 120198 120224 120250 120276 120302 120328 120354 120380 120406 120432 120458 120488 120513 120546 120571 120604 120629 120662 120687 120720 120745 120778 120779 125184 125218 127280 127306 127312 127338 127344 127370 END PK ! ��� � 5.34.0/unicore/lib/ExtPict/Y.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; V156 169 170 174 175 8252 8253 8265 8266 8482 8483 8505 8506 8596 8602 8617 8619 8986 8988 9000 9001 9096 9097 9167 9168 9193 9204 9208 9211 9410 9411 9642 9644 9654 9655 9664 9665 9723 9727 9728 9734 9735 9747 9748 9862 9872 9990 9992 10003 10004 10005 10006 10007 10013 10014 10017 10018 10024 10025 10035 10037 10052 10053 10055 10056 10060 10061 10062 10063 10067 10070 10071 10072 10083 10088 10133 10136 10145 10146 10160 10161 10175 10176 10548 10550 11013 11016 11035 11037 11088 11089 11093 11094 12336 12337 12349 12350 12951 12952 12953 12954 126976 127232 127245 127248 127279 127280 127340 127346 127358 127360 127374 127375 127377 127387 127405 127462 127489 127504 127514 127515 127535 127536 127538 127547 127548 127552 127561 127995 128000 128318 128326 128592 128640 128768 128884 128896 128981 129024 129036 129040 129096 129104 129114 129120 129160 129168 129198 129280 129292 129339 129340 129350 129351 129792 130048 131070 END PK ! 3��z�A �A 5.34.0/unicore/SpecialCasing.txtnu �[��� # SpecialCasing-13.0.0.txt # Date: 2019-09-08, 23:31:24 GMT # © 2019 Unicode®, Inc. # Unicode and the Unicode Logo are registered trademarks of Unicode, Inc. in the U.S. and other countries. # For terms of use, see http://www.unicode.org/terms_of_use.html # # Unicode Character Database # For documentation, see http://www.unicode.org/reports/tr44/ # # Special Casing # # This file is a supplement to the UnicodeData.txt file. It does not define any # properties, but rather provides additional information about the casing of # Unicode characters, for situations when casing incurs a change in string length # or is dependent on context or locale. For compatibility, the UnicodeData.txt # file only contains simple case mappings for characters where they are one-to-one # and independent of context and language. The data in this file, combined with # the simple case mappings in UnicodeData.txt, defines the full case mappings # Lowercase_Mapping (lc), Titlecase_Mapping (tc), and Uppercase_Mapping (uc). # # Note that the preferred mechanism for defining tailored casing operations is # the Unicode Common Locale Data Repository (CLDR). For more information, see the # discussion of case mappings and case algorithms in the Unicode Standard. # # All code points not listed in this file that do not have a simple case mappings # in UnicodeData.txt map to themselves. # ================================================================================ # Format # ================================================================================ # The entries in this file are in the following machine-readable format: # # <code>; <lower>; <title>; <upper>; (<condition_list>;)? # <comment> # # <code>, <lower>, <title>, and <upper> provide the respective full case mappings # of <code>, expressed as character values in hex. If there is more than one character, # they are separated by spaces. Other than as used to separate elements, spaces are # to be ignored. # # The <condition_list> is optional. Where present, it consists of one or more language IDs # or casing contexts, separated by spaces. In these conditions: # - A condition list overrides the normal behavior if all of the listed conditions are true. # - The casing context is always the context of the characters in the original string, # NOT in the resulting string. # - Case distinctions in the condition list are not significant. # - Conditions preceded by "Not_" represent the negation of the condition. # The condition list is not represented in the UCD as a formal property. # # A language ID is defined by BCP 47, with '-' and '_' treated equivalently. # # A casing context for a character is defined by Section 3.13 Default Case Algorithms # of The Unicode Standard. # # Parsers of this file must be prepared to deal with future additions to this format: # * Additional contexts # * Additional fields # ================================================================================ # ================================================================================ # Unconditional mappings # ================================================================================ # The German es-zed is special--the normal mapping is to SS. # Note: the titlecase should never occur in practice. It is equal to titlecase(uppercase(<es-zed>)) 00DF; 00DF; 0053 0073; 0053 0053; # LATIN SMALL LETTER SHARP S # Preserve canonical equivalence for I with dot. Turkic is handled below. 0130; 0069 0307; 0130; 0130; # LATIN CAPITAL LETTER I WITH DOT ABOVE # Ligatures FB00; FB00; 0046 0066; 0046 0046; # LATIN SMALL LIGATURE FF FB01; FB01; 0046 0069; 0046 0049; # LATIN SMALL LIGATURE FI FB02; FB02; 0046 006C; 0046 004C; # LATIN SMALL LIGATURE FL FB03; FB03; 0046 0066 0069; 0046 0046 0049; # LATIN SMALL LIGATURE FFI FB04; FB04; 0046 0066 006C; 0046 0046 004C; # LATIN SMALL LIGATURE FFL FB05; FB05; 0053 0074; 0053 0054; # LATIN SMALL LIGATURE LONG S T FB06; FB06; 0053 0074; 0053 0054; # LATIN SMALL LIGATURE ST 0587; 0587; 0535 0582; 0535 0552; # ARMENIAN SMALL LIGATURE ECH YIWN FB13; FB13; 0544 0576; 0544 0546; # ARMENIAN SMALL LIGATURE MEN NOW FB14; FB14; 0544 0565; 0544 0535; # ARMENIAN SMALL LIGATURE MEN ECH FB15; FB15; 0544 056B; 0544 053B; # ARMENIAN SMALL LIGATURE MEN INI FB16; FB16; 054E 0576; 054E 0546; # ARMENIAN SMALL LIGATURE VEW NOW FB17; FB17; 0544 056D; 0544 053D; # ARMENIAN SMALL LIGATURE MEN XEH # No corresponding uppercase precomposed character 0149; 0149; 02BC 004E; 02BC 004E; # LATIN SMALL LETTER N PRECEDED BY APOSTROPHE 0390; 0390; 0399 0308 0301; 0399 0308 0301; # GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS 03B0; 03B0; 03A5 0308 0301; 03A5 0308 0301; # GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS 01F0; 01F0; 004A 030C; 004A 030C; # LATIN SMALL LETTER J WITH CARON 1E96; 1E96; 0048 0331; 0048 0331; # LATIN SMALL LETTER H WITH LINE BELOW 1E97; 1E97; 0054 0308; 0054 0308; # LATIN SMALL LETTER T WITH DIAERESIS 1E98; 1E98; 0057 030A; 0057 030A; # LATIN SMALL LETTER W WITH RING ABOVE 1E99; 1E99; 0059 030A; 0059 030A; # LATIN SMALL LETTER Y WITH RING ABOVE 1E9A; 1E9A; 0041 02BE; 0041 02BE; # LATIN SMALL LETTER A WITH RIGHT HALF RING 1F50; 1F50; 03A5 0313; 03A5 0313; # GREEK SMALL LETTER UPSILON WITH PSILI 1F52; 1F52; 03A5 0313 0300; 03A5 0313 0300; # GREEK SMALL LETTER UPSILON WITH PSILI AND VARIA 1F54; 1F54; 03A5 0313 0301; 03A5 0313 0301; # GREEK SMALL LETTER UPSILON WITH PSILI AND OXIA 1F56; 1F56; 03A5 0313 0342; 03A5 0313 0342; # GREEK SMALL LETTER UPSILON WITH PSILI AND PERISPOMENI 1FB6; 1FB6; 0391 0342; 0391 0342; # GREEK SMALL LETTER ALPHA WITH PERISPOMENI 1FC6; 1FC6; 0397 0342; 0397 0342; # GREEK SMALL LETTER ETA WITH PERISPOMENI 1FD2; 1FD2; 0399 0308 0300; 0399 0308 0300; # GREEK SMALL LETTER IOTA WITH DIALYTIKA AND VARIA 1FD3; 1FD3; 0399 0308 0301; 0399 0308 0301; # GREEK SMALL LETTER IOTA WITH DIALYTIKA AND OXIA 1FD6; 1FD6; 0399 0342; 0399 0342; # GREEK SMALL LETTER IOTA WITH PERISPOMENI 1FD7; 1FD7; 0399 0308 0342; 0399 0308 0342; # GREEK SMALL LETTER IOTA WITH DIALYTIKA AND PERISPOMENI 1FE2; 1FE2; 03A5 0308 0300; 03A5 0308 0300; # GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND VARIA 1FE3; 1FE3; 03A5 0308 0301; 03A5 0308 0301; # GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND OXIA 1FE4; 1FE4; 03A1 0313; 03A1 0313; # GREEK SMALL LETTER RHO WITH PSILI 1FE6; 1FE6; 03A5 0342; 03A5 0342; # GREEK SMALL LETTER UPSILON WITH PERISPOMENI 1FE7; 1FE7; 03A5 0308 0342; 03A5 0308 0342; # GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND PERISPOMENI 1FF6; 1FF6; 03A9 0342; 03A9 0342; # GREEK SMALL LETTER OMEGA WITH PERISPOMENI # IMPORTANT-when iota-subscript (0345) is uppercased or titlecased, # the result will be incorrect unless the iota-subscript is moved to the end # of any sequence of combining marks. Otherwise, the accents will go on the capital iota. # This process can be achieved by first transforming the text to NFC before casing. # E.g. <alpha><iota_subscript><acute> is uppercased to <ALPHA><acute><IOTA> # The following cases are already in the UnicodeData.txt file, so are only commented here. # 0345; 0345; 0399; 0399; # COMBINING GREEK YPOGEGRAMMENI # All letters with YPOGEGRAMMENI (iota-subscript) or PROSGEGRAMMENI (iota adscript) # have special uppercases. # Note: characters with PROSGEGRAMMENI are actually titlecase, not uppercase! 1F80; 1F80; 1F88; 1F08 0399; # GREEK SMALL LETTER ALPHA WITH PSILI AND YPOGEGRAMMENI 1F81; 1F81; 1F89; 1F09 0399; # GREEK SMALL LETTER ALPHA WITH DASIA AND YPOGEGRAMMENI 1F82; 1F82; 1F8A; 1F0A 0399; # GREEK SMALL LETTER ALPHA WITH PSILI AND VARIA AND YPOGEGRAMMENI 1F83; 1F83; 1F8B; 1F0B 0399; # GREEK SMALL LETTER ALPHA WITH DASIA AND VARIA AND YPOGEGRAMMENI 1F84; 1F84; 1F8C; 1F0C 0399; # GREEK SMALL LETTER ALPHA WITH PSILI AND OXIA AND YPOGEGRAMMENI 1F85; 1F85; 1F8D; 1F0D 0399; # GREEK SMALL LETTER ALPHA WITH DASIA AND OXIA AND YPOGEGRAMMENI 1F86; 1F86; 1F8E; 1F0E 0399; # GREEK SMALL LETTER ALPHA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI 1F87; 1F87; 1F8F; 1F0F 0399; # GREEK SMALL LETTER ALPHA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI 1F88; 1F80; 1F88; 1F08 0399; # GREEK CAPITAL LETTER ALPHA WITH PSILI AND PROSGEGRAMMENI 1F89; 1F81; 1F89; 1F09 0399; # GREEK CAPITAL LETTER ALPHA WITH DASIA AND PROSGEGRAMMENI 1F8A; 1F82; 1F8A; 1F0A 0399; # GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA AND PROSGEGRAMMENI 1F8B; 1F83; 1F8B; 1F0B 0399; # GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA AND PROSGEGRAMMENI 1F8C; 1F84; 1F8C; 1F0C 0399; # GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA AND PROSGEGRAMMENI 1F8D; 1F85; 1F8D; 1F0D 0399; # GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA AND PROSGEGRAMMENI 1F8E; 1F86; 1F8E; 1F0E 0399; # GREEK CAPITAL LETTER ALPHA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI 1F8F; 1F87; 1F8F; 1F0F 0399; # GREEK CAPITAL LETTER ALPHA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI 1F90; 1F90; 1F98; 1F28 0399; # GREEK SMALL LETTER ETA WITH PSILI AND YPOGEGRAMMENI 1F91; 1F91; 1F99; 1F29 0399; # GREEK SMALL LETTER ETA WITH DASIA AND YPOGEGRAMMENI 1F92; 1F92; 1F9A; 1F2A 0399; # GREEK SMALL LETTER ETA WITH PSILI AND VARIA AND YPOGEGRAMMENI 1F93; 1F93; 1F9B; 1F2B 0399; # GREEK SMALL LETTER ETA WITH DASIA AND VARIA AND YPOGEGRAMMENI 1F94; 1F94; 1F9C; 1F2C 0399; # GREEK SMALL LETTER ETA WITH PSILI AND OXIA AND YPOGEGRAMMENI 1F95; 1F95; 1F9D; 1F2D 0399; # GREEK SMALL LETTER ETA WITH DASIA AND OXIA AND YPOGEGRAMMENI 1F96; 1F96; 1F9E; 1F2E 0399; # GREEK SMALL LETTER ETA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI 1F97; 1F97; 1F9F; 1F2F 0399; # GREEK SMALL LETTER ETA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI 1F98; 1F90; 1F98; 1F28 0399; # GREEK CAPITAL LETTER ETA WITH PSILI AND PROSGEGRAMMENI 1F99; 1F91; 1F99; 1F29 0399; # GREEK CAPITAL LETTER ETA WITH DASIA AND PROSGEGRAMMENI 1F9A; 1F92; 1F9A; 1F2A 0399; # GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA AND PROSGEGRAMMENI 1F9B; 1F93; 1F9B; 1F2B 0399; # GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA AND PROSGEGRAMMENI 1F9C; 1F94; 1F9C; 1F2C 0399; # GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA AND PROSGEGRAMMENI 1F9D; 1F95; 1F9D; 1F2D 0399; # GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA AND PROSGEGRAMMENI 1F9E; 1F96; 1F9E; 1F2E 0399; # GREEK CAPITAL LETTER ETA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI 1F9F; 1F97; 1F9F; 1F2F 0399; # GREEK CAPITAL LETTER ETA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI 1FA0; 1FA0; 1FA8; 1F68 0399; # GREEK SMALL LETTER OMEGA WITH PSILI AND YPOGEGRAMMENI 1FA1; 1FA1; 1FA9; 1F69 0399; # GREEK SMALL LETTER OMEGA WITH DASIA AND YPOGEGRAMMENI 1FA2; 1FA2; 1FAA; 1F6A 0399; # GREEK SMALL LETTER OMEGA WITH PSILI AND VARIA AND YPOGEGRAMMENI 1FA3; 1FA3; 1FAB; 1F6B 0399; # GREEK SMALL LETTER OMEGA WITH DASIA AND VARIA AND YPOGEGRAMMENI 1FA4; 1FA4; 1FAC; 1F6C 0399; # GREEK SMALL LETTER OMEGA WITH PSILI AND OXIA AND YPOGEGRAMMENI 1FA5; 1FA5; 1FAD; 1F6D 0399; # GREEK SMALL LETTER OMEGA WITH DASIA AND OXIA AND YPOGEGRAMMENI 1FA6; 1FA6; 1FAE; 1F6E 0399; # GREEK SMALL LETTER OMEGA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI 1FA7; 1FA7; 1FAF; 1F6F 0399; # GREEK SMALL LETTER OMEGA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI 1FA8; 1FA0; 1FA8; 1F68 0399; # GREEK CAPITAL LETTER OMEGA WITH PSILI AND PROSGEGRAMMENI 1FA9; 1FA1; 1FA9; 1F69 0399; # GREEK CAPITAL LETTER OMEGA WITH DASIA AND PROSGEGRAMMENI 1FAA; 1FA2; 1FAA; 1F6A 0399; # GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA AND PROSGEGRAMMENI 1FAB; 1FA3; 1FAB; 1F6B 0399; # GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA AND PROSGEGRAMMENI 1FAC; 1FA4; 1FAC; 1F6C 0399; # GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA AND PROSGEGRAMMENI 1FAD; 1FA5; 1FAD; 1F6D 0399; # GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA AND PROSGEGRAMMENI 1FAE; 1FA6; 1FAE; 1F6E 0399; # GREEK CAPITAL LETTER OMEGA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI 1FAF; 1FA7; 1FAF; 1F6F 0399; # GREEK CAPITAL LETTER OMEGA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI 1FB3; 1FB3; 1FBC; 0391 0399; # GREEK SMALL LETTER ALPHA WITH YPOGEGRAMMENI 1FBC; 1FB3; 1FBC; 0391 0399; # GREEK CAPITAL LETTER ALPHA WITH PROSGEGRAMMENI 1FC3; 1FC3; 1FCC; 0397 0399; # GREEK SMALL LETTER ETA WITH YPOGEGRAMMENI 1FCC; 1FC3; 1FCC; 0397 0399; # GREEK CAPITAL LETTER ETA WITH PROSGEGRAMMENI 1FF3; 1FF3; 1FFC; 03A9 0399; # GREEK SMALL LETTER OMEGA WITH YPOGEGRAMMENI 1FFC; 1FF3; 1FFC; 03A9 0399; # GREEK CAPITAL LETTER OMEGA WITH PROSGEGRAMMENI # Some characters with YPOGEGRAMMENI also have no corresponding titlecases 1FB2; 1FB2; 1FBA 0345; 1FBA 0399; # GREEK SMALL LETTER ALPHA WITH VARIA AND YPOGEGRAMMENI 1FB4; 1FB4; 0386 0345; 0386 0399; # GREEK SMALL LETTER ALPHA WITH OXIA AND YPOGEGRAMMENI 1FC2; 1FC2; 1FCA 0345; 1FCA 0399; # GREEK SMALL LETTER ETA WITH VARIA AND YPOGEGRAMMENI 1FC4; 1FC4; 0389 0345; 0389 0399; # GREEK SMALL LETTER ETA WITH OXIA AND YPOGEGRAMMENI 1FF2; 1FF2; 1FFA 0345; 1FFA 0399; # GREEK SMALL LETTER OMEGA WITH VARIA AND YPOGEGRAMMENI 1FF4; 1FF4; 038F 0345; 038F 0399; # GREEK SMALL LETTER OMEGA WITH OXIA AND YPOGEGRAMMENI 1FB7; 1FB7; 0391 0342 0345; 0391 0342 0399; # GREEK SMALL LETTER ALPHA WITH PERISPOMENI AND YPOGEGRAMMENI 1FC7; 1FC7; 0397 0342 0345; 0397 0342 0399; # GREEK SMALL LETTER ETA WITH PERISPOMENI AND YPOGEGRAMMENI 1FF7; 1FF7; 03A9 0342 0345; 03A9 0342 0399; # GREEK SMALL LETTER OMEGA WITH PERISPOMENI AND YPOGEGRAMMENI # ================================================================================ # Conditional Mappings # The remainder of this file provides conditional casing data used to produce # full case mappings. # ================================================================================ # Language-Insensitive Mappings # These are characters whose full case mappings do not depend on language, but do # depend on context (which characters come before or after). For more information # see the header of this file and the Unicode Standard. # ================================================================================ # Special case for final form of sigma 03A3; 03C2; 03A3; 03A3; Final_Sigma; # GREEK CAPITAL LETTER SIGMA # Note: the following cases for non-final are already in the UnicodeData.txt file. # 03A3; 03C3; 03A3; 03A3; # GREEK CAPITAL LETTER SIGMA # 03C3; 03C3; 03A3; 03A3; # GREEK SMALL LETTER SIGMA # 03C2; 03C2; 03A3; 03A3; # GREEK SMALL LETTER FINAL SIGMA # Note: the following cases are not included, since they would case-fold in lowercasing # 03C3; 03C2; 03A3; 03A3; Final_Sigma; # GREEK SMALL LETTER SIGMA # 03C2; 03C3; 03A3; 03A3; Not_Final_Sigma; # GREEK SMALL LETTER FINAL SIGMA # ================================================================================ # Language-Sensitive Mappings # These are characters whose full case mappings depend on language and perhaps also # context (which characters come before or after). For more information # see the header of this file and the Unicode Standard. # ================================================================================ # Lithuanian # Lithuanian retains the dot in a lowercase i when followed by accents. # Remove DOT ABOVE after "i" with upper or titlecase 0307; 0307; ; ; lt After_Soft_Dotted; # COMBINING DOT ABOVE # Introduce an explicit dot above when lowercasing capital I's and J's # whenever there are more accents above. # (of the accents used in Lithuanian: grave, acute, tilde above, and ogonek) 0049; 0069 0307; 0049; 0049; lt More_Above; # LATIN CAPITAL LETTER I 004A; 006A 0307; 004A; 004A; lt More_Above; # LATIN CAPITAL LETTER J 012E; 012F 0307; 012E; 012E; lt More_Above; # LATIN CAPITAL LETTER I WITH OGONEK 00CC; 0069 0307 0300; 00CC; 00CC; lt; # LATIN CAPITAL LETTER I WITH GRAVE 00CD; 0069 0307 0301; 00CD; 00CD; lt; # LATIN CAPITAL LETTER I WITH ACUTE 0128; 0069 0307 0303; 0128; 0128; lt; # LATIN CAPITAL LETTER I WITH TILDE # ================================================================================ # Turkish and Azeri # I and i-dotless; I-dot and i are case pairs in Turkish and Azeri # The following rules handle those cases. 0130; 0069; 0130; 0130; tr; # LATIN CAPITAL LETTER I WITH DOT ABOVE 0130; 0069; 0130; 0130; az; # LATIN CAPITAL LETTER I WITH DOT ABOVE # When lowercasing, remove dot_above in the sequence I + dot_above, which will turn into i. # This matches the behavior of the canonically equivalent I-dot_above 0307; ; 0307; 0307; tr After_I; # COMBINING DOT ABOVE 0307; ; 0307; 0307; az After_I; # COMBINING DOT ABOVE # When lowercasing, unless an I is before a dot_above, it turns into a dotless i. 0049; 0131; 0049; 0049; tr Not_Before_Dot; # LATIN CAPITAL LETTER I 0049; 0131; 0049; 0049; az Not_Before_Dot; # LATIN CAPITAL LETTER I # When uppercasing, i turns into a dotted capital I 0069; 0069; 0130; 0130; tr; # LATIN SMALL LETTER I 0069; 0069; 0130; 0130; az; # LATIN SMALL LETTER I # Note: the following case is already in the UnicodeData.txt file. # 0131; 0131; 0049; 0049; tr; # LATIN SMALL LETTER DOTLESS I # EOF PK ! a��U� U� 5.34.0/unicore/Decomposition.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; A0 <noBreak> 0020 A8 <compat> 0020 0308 AA <super> 0061 AF <compat> 0020 0304 B2 <super> 0032 B3 <super> 0033 B4 <compat> 0020 0301 B5 <compat> 03BC B8 <compat> 0020 0327 B9 <super> 0031 BA <super> 006F BC <fraction> 0031 2044 0034 BD <fraction> 0031 2044 0032 BE <fraction> 0033 2044 0034 C0 0041 0300 C1 0041 0301 C2 0041 0302 C3 0041 0303 C4 0041 0308 C5 0041 030A C7 0043 0327 C8 0045 0300 C9 0045 0301 CA 0045 0302 CB 0045 0308 CC 0049 0300 CD 0049 0301 CE 0049 0302 CF 0049 0308 D1 004E 0303 D2 004F 0300 D3 004F 0301 D4 004F 0302 D5 004F 0303 D6 004F 0308 D9 0055 0300 DA 0055 0301 DB 0055 0302 DC 0055 0308 DD 0059 0301 E0 0061 0300 E1 0061 0301 E2 0061 0302 E3 0061 0303 E4 0061 0308 E5 0061 030A E7 0063 0327 E8 0065 0300 E9 0065 0301 EA 0065 0302 EB 0065 0308 EC 0069 0300 ED 0069 0301 EE 0069 0302 EF 0069 0308 F1 006E 0303 F2 006F 0300 F3 006F 0301 F4 006F 0302 F5 006F 0303 F6 006F 0308 F9 0075 0300 FA 0075 0301 FB 0075 0302 FC 0075 0308 FD 0079 0301 FF 0079 0308 100 0041 0304 101 0061 0304 102 0041 0306 103 0061 0306 104 0041 0328 105 0061 0328 106 0043 0301 107 0063 0301 108 0043 0302 109 0063 0302 10A 0043 0307 10B 0063 0307 10C 0043 030C 10D 0063 030C 10E 0044 030C 10F 0064 030C 112 0045 0304 113 0065 0304 114 0045 0306 115 0065 0306 116 0045 0307 117 0065 0307 118 0045 0328 119 0065 0328 11A 0045 030C 11B 0065 030C 11C 0047 0302 11D 0067 0302 11E 0047 0306 11F 0067 0306 120 0047 0307 121 0067 0307 122 0047 0327 123 0067 0327 124 0048 0302 125 0068 0302 128 0049 0303 129 0069 0303 12A 0049 0304 12B 0069 0304 12C 0049 0306 12D 0069 0306 12E 0049 0328 12F 0069 0328 130 0049 0307 132 <compat> 0049 004A 133 <compat> 0069 006A 134 004A 0302 135 006A 0302 136 004B 0327 137 006B 0327 139 004C 0301 13A 006C 0301 13B 004C 0327 13C 006C 0327 13D 004C 030C 13E 006C 030C 13F <compat> 004C 00B7 140 <compat> 006C 00B7 143 004E 0301 144 006E 0301 145 004E 0327 146 006E 0327 147 004E 030C 148 006E 030C 149 <compat> 02BC 006E 14C 004F 0304 14D 006F 0304 14E 004F 0306 14F 006F 0306 150 004F 030B 151 006F 030B 154 0052 0301 155 0072 0301 156 0052 0327 157 0072 0327 158 0052 030C 159 0072 030C 15A 0053 0301 15B 0073 0301 15C 0053 0302 15D 0073 0302 15E 0053 0327 15F 0073 0327 160 0053 030C 161 0073 030C 162 0054 0327 163 0074 0327 164 0054 030C 165 0074 030C 168 0055 0303 169 0075 0303 16A 0055 0304 16B 0075 0304 16C 0055 0306 16D 0075 0306 16E 0055 030A 16F 0075 030A 170 0055 030B 171 0075 030B 172 0055 0328 173 0075 0328 174 0057 0302 175 0077 0302 176 0059 0302 177 0079 0302 178 0059 0308 179 005A 0301 17A 007A 0301 17B 005A 0307 17C 007A 0307 17D 005A 030C 17E 007A 030C 17F <compat> 0073 1A0 004F 031B 1A1 006F 031B 1AF 0055 031B 1B0 0075 031B 1C4 <compat> 0044 017D 1C5 <compat> 0044 017E 1C6 <compat> 0064 017E 1C7 <compat> 004C 004A 1C8 <compat> 004C 006A 1C9 <compat> 006C 006A 1CA <compat> 004E 004A 1CB <compat> 004E 006A 1CC <compat> 006E 006A 1CD 0041 030C 1CE 0061 030C 1CF 0049 030C 1D0 0069 030C 1D1 004F 030C 1D2 006F 030C 1D3 0055 030C 1D4 0075 030C 1D5 00DC 0304 1D6 00FC 0304 1D7 00DC 0301 1D8 00FC 0301 1D9 00DC 030C 1DA 00FC 030C 1DB 00DC 0300 1DC 00FC 0300 1DE 00C4 0304 1DF 00E4 0304 1E0 0226 0304 1E1 0227 0304 1E2 00C6 0304 1E3 00E6 0304 1E6 0047 030C 1E7 0067 030C 1E8 004B 030C 1E9 006B 030C 1EA 004F 0328 1EB 006F 0328 1EC 01EA 0304 1ED 01EB 0304 1EE 01B7 030C 1EF 0292 030C 1F0 006A 030C 1F1 <compat> 0044 005A 1F2 <compat> 0044 007A 1F3 <compat> 0064 007A 1F4 0047 0301 1F5 0067 0301 1F8 004E 0300 1F9 006E 0300 1FA 00C5 0301 1FB 00E5 0301 1FC 00C6 0301 1FD 00E6 0301 1FE 00D8 0301 1FF 00F8 0301 200 0041 030F 201 0061 030F 202 0041 0311 203 0061 0311 204 0045 030F 205 0065 030F 206 0045 0311 207 0065 0311 208 0049 030F 209 0069 030F 20A 0049 0311 20B 0069 0311 20C 004F 030F 20D 006F 030F 20E 004F 0311 20F 006F 0311 210 0052 030F 211 0072 030F 212 0052 0311 213 0072 0311 214 0055 030F 215 0075 030F 216 0055 0311 217 0075 0311 218 0053 0326 219 0073 0326 21A 0054 0326 21B 0074 0326 21E 0048 030C 21F 0068 030C 226 0041 0307 227 0061 0307 228 0045 0327 229 0065 0327 22A 00D6 0304 22B 00F6 0304 22C 00D5 0304 22D 00F5 0304 22E 004F 0307 22F 006F 0307 230 022E 0304 231 022F 0304 232 0059 0304 233 0079 0304 2B0 <super> 0068 2B1 <super> 0266 2B2 <super> 006A 2B3 <super> 0072 2B4 <super> 0279 2B5 <super> 027B 2B6 <super> 0281 2B7 <super> 0077 2B8 <super> 0079 2D8 <compat> 0020 0306 2D9 <compat> 0020 0307 2DA <compat> 0020 030A 2DB <compat> 0020 0328 2DC <compat> 0020 0303 2DD <compat> 0020 030B 2E0 <super> 0263 2E1 <super> 006C 2E2 <super> 0073 2E3 <super> 0078 2E4 <super> 0295 340 0300 341 0301 343 0313 344 0308 0301 374 02B9 37A <compat> 0020 0345 37E 003B 384 <compat> 0020 0301 385 00A8 0301 386 0391 0301 387 00B7 388 0395 0301 389 0397 0301 38A 0399 0301 38C 039F 0301 38E 03A5 0301 38F 03A9 0301 390 03CA 0301 3AA 0399 0308 3AB 03A5 0308 3AC 03B1 0301 3AD 03B5 0301 3AE 03B7 0301 3AF 03B9 0301 3B0 03CB 0301 3CA 03B9 0308 3CB 03C5 0308 3CC 03BF 0301 3CD 03C5 0301 3CE 03C9 0301 3D0 <compat> 03B2 3D1 <compat> 03B8 3D2 <compat> 03A5 3D3 03D2 0301 3D4 03D2 0308 3D5 <compat> 03C6 3D6 <compat> 03C0 3F0 <compat> 03BA 3F1 <compat> 03C1 3F2 <compat> 03C2 3F4 <compat> 0398 3F5 <compat> 03B5 3F9 <compat> 03A3 400 0415 0300 401 0415 0308 403 0413 0301 407 0406 0308 40C 041A 0301 40D 0418 0300 40E 0423 0306 419 0418 0306 439 0438 0306 450 0435 0300 451 0435 0308 453 0433 0301 457 0456 0308 45C 043A 0301 45D 0438 0300 45E 0443 0306 476 0474 030F 477 0475 030F 4C1 0416 0306 4C2 0436 0306 4D0 0410 0306 4D1 0430 0306 4D2 0410 0308 4D3 0430 0308 4D6 0415 0306 4D7 0435 0306 4DA 04D8 0308 4DB 04D9 0308 4DC 0416 0308 4DD 0436 0308 4DE 0417 0308 4DF 0437 0308 4E2 0418 0304 4E3 0438 0304 4E4 0418 0308 4E5 0438 0308 4E6 041E 0308 4E7 043E 0308 4EA 04E8 0308 4EB 04E9 0308 4EC 042D 0308 4ED 044D 0308 4EE 0423 0304 4EF 0443 0304 4F0 0423 0308 4F1 0443 0308 4F2 0423 030B 4F3 0443 030B 4F4 0427 0308 4F5 0447 0308 4F8 042B 0308 4F9 044B 0308 587 <compat> 0565 0582 622 0627 0653 623 0627 0654 624 0648 0654 625 0627 0655 626 064A 0654 675 <compat> 0627 0674 676 <compat> 0648 0674 677 <compat> 06C7 0674 678 <compat> 064A 0674 6C0 06D5 0654 6C2 06C1 0654 6D3 06D2 0654 929 0928 093C 931 0930 093C 934 0933 093C 958 0915 093C 959 0916 093C 95A 0917 093C 95B 091C 093C 95C 0921 093C 95D 0922 093C 95E 092B 093C 95F 092F 093C 9CB 09C7 09BE 9CC 09C7 09D7 9DC 09A1 09BC 9DD 09A2 09BC 9DF 09AF 09BC A33 0A32 0A3C A36 0A38 0A3C A59 0A16 0A3C A5A 0A17 0A3C A5B 0A1C 0A3C A5E 0A2B 0A3C B48 0B47 0B56 B4B 0B47 0B3E B4C 0B47 0B57 B5C 0B21 0B3C B5D 0B22 0B3C B94 0B92 0BD7 BCA 0BC6 0BBE BCB 0BC7 0BBE BCC 0BC6 0BD7 C48 0C46 0C56 CC0 0CBF 0CD5 CC7 0CC6 0CD5 CC8 0CC6 0CD6 CCA 0CC6 0CC2 CCB 0CCA 0CD5 D4A 0D46 0D3E D4B 0D47 0D3E D4C 0D46 0D57 DDA 0DD9 0DCA DDC 0DD9 0DCF DDD 0DDC 0DCA DDE 0DD9 0DDF E33 <compat> 0E4D 0E32 EB3 <compat> 0ECD 0EB2 EDC <compat> 0EAB 0E99 EDD <compat> 0EAB 0EA1 F0C <noBreak> 0F0B F43 0F42 0FB7 F4D 0F4C 0FB7 F52 0F51 0FB7 F57 0F56 0FB7 F5C 0F5B 0FB7 F69 0F40 0FB5 F73 0F71 0F72 F75 0F71 0F74 F76 0FB2 0F80 F77 <compat> 0FB2 0F81 F78 0FB3 0F80 F79 <compat> 0FB3 0F81 F81 0F71 0F80 F93 0F92 0FB7 F9D 0F9C 0FB7 FA2 0FA1 0FB7 FA7 0FA6 0FB7 FAC 0FAB 0FB7 FB9 0F90 0FB5 1026 1025 102E 10FC <super> 10DC 1B06 1B05 1B35 1B08 1B07 1B35 1B0A 1B09 1B35 1B0C 1B0B 1B35 1B0E 1B0D 1B35 1B12 1B11 1B35 1B3B 1B3A 1B35 1B3D 1B3C 1B35 1B40 1B3E 1B35 1B41 1B3F 1B35 1B43 1B42 1B35 1D2C <super> 0041 1D2D <super> 00C6 1D2E <super> 0042 1D30 <super> 0044 1D31 <super> 0045 1D32 <super> 018E 1D33 <super> 0047 1D34 <super> 0048 1D35 <super> 0049 1D36 <super> 004A 1D37 <super> 004B 1D38 <super> 004C 1D39 <super> 004D 1D3A <super> 004E 1D3C <super> 004F 1D3D <super> 0222 1D3E <super> 0050 1D3F <super> 0052 1D40 <super> 0054 1D41 <super> 0055 1D42 <super> 0057 1D43 <super> 0061 1D44 <super> 0250 1D45 <super> 0251 1D46 <super> 1D02 1D47 <super> 0062 1D48 <super> 0064 1D49 <super> 0065 1D4A <super> 0259 1D4B <super> 025B 1D4C <super> 025C 1D4D <super> 0067 1D4F <super> 006B 1D50 <super> 006D 1D51 <super> 014B 1D52 <super> 006F 1D53 <super> 0254 1D54 <super> 1D16 1D55 <super> 1D17 1D56 <super> 0070 1D57 <super> 0074 1D58 <super> 0075 1D59 <super> 1D1D 1D5A <super> 026F 1D5B <super> 0076 1D5C <super> 1D25 1D5D <super> 03B2 1D5E <super> 03B3 1D5F <super> 03B4 1D60 <super> 03C6 1D61 <super> 03C7 1D62 <sub> 0069 1D63 <sub> 0072 1D64 <sub> 0075 1D65 <sub> 0076 1D66 <sub> 03B2 1D67 <sub> 03B3 1D68 <sub> 03C1 1D69 <sub> 03C6 1D6A <sub> 03C7 1D78 <super> 043D 1D9B <super> 0252 1D9C <super> 0063 1D9D <super> 0255 1D9E <super> 00F0 1D9F <super> 025C 1DA0 <super> 0066 1DA1 <super> 025F 1DA2 <super> 0261 1DA3 <super> 0265 1DA4 <super> 0268 1DA5 <super> 0269 1DA6 <super> 026A 1DA7 <super> 1D7B 1DA8 <super> 029D 1DA9 <super> 026D 1DAA <super> 1D85 1DAB <super> 029F 1DAC <super> 0271 1DAD <super> 0270 1DAE <super> 0272 1DAF <super> 0273 1DB0 <super> 0274 1DB1 <super> 0275 1DB2 <super> 0278 1DB3 <super> 0282 1DB4 <super> 0283 1DB5 <super> 01AB 1DB6 <super> 0289 1DB7 <super> 028A 1DB8 <super> 1D1C 1DB9 <super> 028B 1DBA <super> 028C 1DBB <super> 007A 1DBC <super> 0290 1DBD <super> 0291 1DBE <super> 0292 1DBF <super> 03B8 1E00 0041 0325 1E01 0061 0325 1E02 0042 0307 1E03 0062 0307 1E04 0042 0323 1E05 0062 0323 1E06 0042 0331 1E07 0062 0331 1E08 00C7 0301 1E09 00E7 0301 1E0A 0044 0307 1E0B 0064 0307 1E0C 0044 0323 1E0D 0064 0323 1E0E 0044 0331 1E0F 0064 0331 1E10 0044 0327 1E11 0064 0327 1E12 0044 032D 1E13 0064 032D 1E14 0112 0300 1E15 0113 0300 1E16 0112 0301 1E17 0113 0301 1E18 0045 032D 1E19 0065 032D 1E1A 0045 0330 1E1B 0065 0330 1E1C 0228 0306 1E1D 0229 0306 1E1E 0046 0307 1E1F 0066 0307 1E20 0047 0304 1E21 0067 0304 1E22 0048 0307 1E23 0068 0307 1E24 0048 0323 1E25 0068 0323 1E26 0048 0308 1E27 0068 0308 1E28 0048 0327 1E29 0068 0327 1E2A 0048 032E 1E2B 0068 032E 1E2C 0049 0330 1E2D 0069 0330 1E2E 00CF 0301 1E2F 00EF 0301 1E30 004B 0301 1E31 006B 0301 1E32 004B 0323 1E33 006B 0323 1E34 004B 0331 1E35 006B 0331 1E36 004C 0323 1E37 006C 0323 1E38 1E36 0304 1E39 1E37 0304 1E3A 004C 0331 1E3B 006C 0331 1E3C 004C 032D 1E3D 006C 032D 1E3E 004D 0301 1E3F 006D 0301 1E40 004D 0307 1E41 006D 0307 1E42 004D 0323 1E43 006D 0323 1E44 004E 0307 1E45 006E 0307 1E46 004E 0323 1E47 006E 0323 1E48 004E 0331 1E49 006E 0331 1E4A 004E 032D 1E4B 006E 032D 1E4C 00D5 0301 1E4D 00F5 0301 1E4E 00D5 0308 1E4F 00F5 0308 1E50 014C 0300 1E51 014D 0300 1E52 014C 0301 1E53 014D 0301 1E54 0050 0301 1E55 0070 0301 1E56 0050 0307 1E57 0070 0307 1E58 0052 0307 1E59 0072 0307 1E5A 0052 0323 1E5B 0072 0323 1E5C 1E5A 0304 1E5D 1E5B 0304 1E5E 0052 0331 1E5F 0072 0331 1E60 0053 0307 1E61 0073 0307 1E62 0053 0323 1E63 0073 0323 1E64 015A 0307 1E65 015B 0307 1E66 0160 0307 1E67 0161 0307 1E68 1E62 0307 1E69 1E63 0307 1E6A 0054 0307 1E6B 0074 0307 1E6C 0054 0323 1E6D 0074 0323 1E6E 0054 0331 1E6F 0074 0331 1E70 0054 032D 1E71 0074 032D 1E72 0055 0324 1E73 0075 0324 1E74 0055 0330 1E75 0075 0330 1E76 0055 032D 1E77 0075 032D 1E78 0168 0301 1E79 0169 0301 1E7A 016A 0308 1E7B 016B 0308 1E7C 0056 0303 1E7D 0076 0303 1E7E 0056 0323 1E7F 0076 0323 1E80 0057 0300 1E81 0077 0300 1E82 0057 0301 1E83 0077 0301 1E84 0057 0308 1E85 0077 0308 1E86 0057 0307 1E87 0077 0307 1E88 0057 0323 1E89 0077 0323 1E8A 0058 0307 1E8B 0078 0307 1E8C 0058 0308 1E8D 0078 0308 1E8E 0059 0307 1E8F 0079 0307 1E90 005A 0302 1E91 007A 0302 1E92 005A 0323 1E93 007A 0323 1E94 005A 0331 1E95 007A 0331 1E96 0068 0331 1E97 0074 0308 1E98 0077 030A 1E99 0079 030A 1E9A <compat> 0061 02BE 1E9B 017F 0307 1EA0 0041 0323 1EA1 0061 0323 1EA2 0041 0309 1EA3 0061 0309 1EA4 00C2 0301 1EA5 00E2 0301 1EA6 00C2 0300 1EA7 00E2 0300 1EA8 00C2 0309 1EA9 00E2 0309 1EAA 00C2 0303 1EAB 00E2 0303 1EAC 1EA0 0302 1EAD 1EA1 0302 1EAE 0102 0301 1EAF 0103 0301 1EB0 0102 0300 1EB1 0103 0300 1EB2 0102 0309 1EB3 0103 0309 1EB4 0102 0303 1EB5 0103 0303 1EB6 1EA0 0306 1EB7 1EA1 0306 1EB8 0045 0323 1EB9 0065 0323 1EBA 0045 0309 1EBB 0065 0309 1EBC 0045 0303 1EBD 0065 0303 1EBE 00CA 0301 1EBF 00EA 0301 1EC0 00CA 0300 1EC1 00EA 0300 1EC2 00CA 0309 1EC3 00EA 0309 1EC4 00CA 0303 1EC5 00EA 0303 1EC6 1EB8 0302 1EC7 1EB9 0302 1EC8 0049 0309 1EC9 0069 0309 1ECA 0049 0323 1ECB 0069 0323 1ECC 004F 0323 1ECD 006F 0323 1ECE 004F 0309 1ECF 006F 0309 1ED0 00D4 0301 1ED1 00F4 0301 1ED2 00D4 0300 1ED3 00F4 0300 1ED4 00D4 0309 1ED5 00F4 0309 1ED6 00D4 0303 1ED7 00F4 0303 1ED8 1ECC 0302 1ED9 1ECD 0302 1EDA 01A0 0301 1EDB 01A1 0301 1EDC 01A0 0300 1EDD 01A1 0300 1EDE 01A0 0309 1EDF 01A1 0309 1EE0 01A0 0303 1EE1 01A1 0303 1EE2 01A0 0323 1EE3 01A1 0323 1EE4 0055 0323 1EE5 0075 0323 1EE6 0055 0309 1EE7 0075 0309 1EE8 01AF 0301 1EE9 01B0 0301 1EEA 01AF 0300 1EEB 01B0 0300 1EEC 01AF 0309 1EED 01B0 0309 1EEE 01AF 0303 1EEF 01B0 0303 1EF0 01AF 0323 1EF1 01B0 0323 1EF2 0059 0300 1EF3 0079 0300 1EF4 0059 0323 1EF5 0079 0323 1EF6 0059 0309 1EF7 0079 0309 1EF8 0059 0303 1EF9 0079 0303 1F00 03B1 0313 1F01 03B1 0314 1F02 1F00 0300 1F03 1F01 0300 1F04 1F00 0301 1F05 1F01 0301 1F06 1F00 0342 1F07 1F01 0342 1F08 0391 0313 1F09 0391 0314 1F0A 1F08 0300 1F0B 1F09 0300 1F0C 1F08 0301 1F0D 1F09 0301 1F0E 1F08 0342 1F0F 1F09 0342 1F10 03B5 0313 1F11 03B5 0314 1F12 1F10 0300 1F13 1F11 0300 1F14 1F10 0301 1F15 1F11 0301 1F18 0395 0313 1F19 0395 0314 1F1A 1F18 0300 1F1B 1F19 0300 1F1C 1F18 0301 1F1D 1F19 0301 1F20 03B7 0313 1F21 03B7 0314 1F22 1F20 0300 1F23 1F21 0300 1F24 1F20 0301 1F25 1F21 0301 1F26 1F20 0342 1F27 1F21 0342 1F28 0397 0313 1F29 0397 0314 1F2A 1F28 0300 1F2B 1F29 0300 1F2C 1F28 0301 1F2D 1F29 0301 1F2E 1F28 0342 1F2F 1F29 0342 1F30 03B9 0313 1F31 03B9 0314 1F32 1F30 0300 1F33 1F31 0300 1F34 1F30 0301 1F35 1F31 0301 1F36 1F30 0342 1F37 1F31 0342 1F38 0399 0313 1F39 0399 0314 1F3A 1F38 0300 1F3B 1F39 0300 1F3C 1F38 0301 1F3D 1F39 0301 1F3E 1F38 0342 1F3F 1F39 0342 1F40 03BF 0313 1F41 03BF 0314 1F42 1F40 0300 1F43 1F41 0300 1F44 1F40 0301 1F45 1F41 0301 1F48 039F 0313 1F49 039F 0314 1F4A 1F48 0300 1F4B 1F49 0300 1F4C 1F48 0301 1F4D 1F49 0301 1F50 03C5 0313 1F51 03C5 0314 1F52 1F50 0300 1F53 1F51 0300 1F54 1F50 0301 1F55 1F51 0301 1F56 1F50 0342 1F57 1F51 0342 1F59 03A5 0314 1F5B 1F59 0300 1F5D 1F59 0301 1F5F 1F59 0342 1F60 03C9 0313 1F61 03C9 0314 1F62 1F60 0300 1F63 1F61 0300 1F64 1F60 0301 1F65 1F61 0301 1F66 1F60 0342 1F67 1F61 0342 1F68 03A9 0313 1F69 03A9 0314 1F6A 1F68 0300 1F6B 1F69 0300 1F6C 1F68 0301 1F6D 1F69 0301 1F6E 1F68 0342 1F6F 1F69 0342 1F70 03B1 0300 1F71 03AC 1F72 03B5 0300 1F73 03AD 1F74 03B7 0300 1F75 03AE 1F76 03B9 0300 1F77 03AF 1F78 03BF 0300 1F79 03CC 1F7A 03C5 0300 1F7B 03CD 1F7C 03C9 0300 1F7D 03CE 1F80 1F00 0345 1F81 1F01 0345 1F82 1F02 0345 1F83 1F03 0345 1F84 1F04 0345 1F85 1F05 0345 1F86 1F06 0345 1F87 1F07 0345 1F88 1F08 0345 1F89 1F09 0345 1F8A 1F0A 0345 1F8B 1F0B 0345 1F8C 1F0C 0345 1F8D 1F0D 0345 1F8E 1F0E 0345 1F8F 1F0F 0345 1F90 1F20 0345 1F91 1F21 0345 1F92 1F22 0345 1F93 1F23 0345 1F94 1F24 0345 1F95 1F25 0345 1F96 1F26 0345 1F97 1F27 0345 1F98 1F28 0345 1F99 1F29 0345 1F9A 1F2A 0345 1F9B 1F2B 0345 1F9C 1F2C 0345 1F9D 1F2D 0345 1F9E 1F2E 0345 1F9F 1F2F 0345 1FA0 1F60 0345 1FA1 1F61 0345 1FA2 1F62 0345 1FA3 1F63 0345 1FA4 1F64 0345 1FA5 1F65 0345 1FA6 1F66 0345 1FA7 1F67 0345 1FA8 1F68 0345 1FA9 1F69 0345 1FAA 1F6A 0345 1FAB 1F6B 0345 1FAC 1F6C 0345 1FAD 1F6D 0345 1FAE 1F6E 0345 1FAF 1F6F 0345 1FB0 03B1 0306 1FB1 03B1 0304 1FB2 1F70 0345 1FB3 03B1 0345 1FB4 03AC 0345 1FB6 03B1 0342 1FB7 1FB6 0345 1FB8 0391 0306 1FB9 0391 0304 1FBA 0391 0300 1FBB 0386 1FBC 0391 0345 1FBD <compat> 0020 0313 1FBE 03B9 1FBF <compat> 0020 0313 1FC0 <compat> 0020 0342 1FC1 00A8 0342 1FC2 1F74 0345 1FC3 03B7 0345 1FC4 03AE 0345 1FC6 03B7 0342 1FC7 1FC6 0345 1FC8 0395 0300 1FC9 0388 1FCA 0397 0300 1FCB 0389 1FCC 0397 0345 1FCD 1FBF 0300 1FCE 1FBF 0301 1FCF 1FBF 0342 1FD0 03B9 0306 1FD1 03B9 0304 1FD2 03CA 0300 1FD3 0390 1FD6 03B9 0342 1FD7 03CA 0342 1FD8 0399 0306 1FD9 0399 0304 1FDA 0399 0300 1FDB 038A 1FDD 1FFE 0300 1FDE 1FFE 0301 1FDF 1FFE 0342 1FE0 03C5 0306 1FE1 03C5 0304 1FE2 03CB 0300 1FE3 03B0 1FE4 03C1 0313 1FE5 03C1 0314 1FE6 03C5 0342 1FE7 03CB 0342 1FE8 03A5 0306 1FE9 03A5 0304 1FEA 03A5 0300 1FEB 038E 1FEC 03A1 0314 1FED 00A8 0300 1FEE 0385 1FEF 0060 1FF2 1F7C 0345 1FF3 03C9 0345 1FF4 03CE 0345 1FF6 03C9 0342 1FF7 1FF6 0345 1FF8 039F 0300 1FF9 038C 1FFA 03A9 0300 1FFB 038F 1FFC 03A9 0345 1FFD 00B4 1FFE <compat> 0020 0314 2000 2002 2001 2003 2002 2006 <compat> 0020 2007 <noBreak> 0020 2008 200A <compat> 0020 2011 <noBreak> 2010 2017 <compat> 0020 0333 2024 <compat> 002E 2025 <compat> 002E 002E 2026 <compat> 002E 002E 002E 202F <noBreak> 0020 2033 <compat> 2032 2032 2034 <compat> 2032 2032 2032 2036 <compat> 2035 2035 2037 <compat> 2035 2035 2035 203C <compat> 0021 0021 203E <compat> 0020 0305 2047 <compat> 003F 003F 2048 <compat> 003F 0021 2049 <compat> 0021 003F 2057 <compat> 2032 2032 2032 2032 205F <compat> 0020 2070 <super> 0030 2071 <super> 0069 2074 <super> 0034 2075 <super> 0035 2076 <super> 0036 2077 <super> 0037 2078 <super> 0038 2079 <super> 0039 207A <super> 002B 207B <super> 2212 207C <super> 003D 207D <super> 0028 207E <super> 0029 207F <super> 006E 2080 <sub> 0030 2081 <sub> 0031 2082 <sub> 0032 2083 <sub> 0033 2084 <sub> 0034 2085 <sub> 0035 2086 <sub> 0036 2087 <sub> 0037 2088 <sub> 0038 2089 <sub> 0039 208A <sub> 002B 208B <sub> 2212 208C <sub> 003D 208D <sub> 0028 208E <sub> 0029 2090 <sub> 0061 2091 <sub> 0065 2092 <sub> 006F 2093 <sub> 0078 2094 <sub> 0259 2095 <sub> 0068 2096 <sub> 006B 2097 <sub> 006C 2098 <sub> 006D 2099 <sub> 006E 209A <sub> 0070 209B <sub> 0073 209C <sub> 0074 20A8 <compat> 0052 0073 2100 <compat> 0061 002F 0063 2101 <compat> 0061 002F 0073 2102 <font> 0043 2103 <compat> 00B0 0043 2105 <compat> 0063 002F 006F 2106 <compat> 0063 002F 0075 2107 <compat> 0190 2109 <compat> 00B0 0046 210A <font> 0067 210B 210D <font> 0048 210E <font> 0068 210F <font> 0127 2110 2111 <font> 0049 2112 <font> 004C 2113 <font> 006C 2115 <font> 004E 2116 <compat> 004E 006F 2119 <font> 0050 211A <font> 0051 211B 211D <font> 0052 2120 <super> 0053 004D 2121 <compat> 0054 0045 004C 2122 <super> 0054 004D 2124 <font> 005A 2126 03A9 2128 <font> 005A 212A 004B 212B 00C5 212C <font> 0042 212D <font> 0043 212F <font> 0065 2130 <font> 0045 2131 <font> 0046 2133 <font> 004D 2134 <font> 006F 2135 <compat> 05D0 2136 <compat> 05D1 2137 <compat> 05D2 2138 <compat> 05D3 2139 <font> 0069 213B <compat> 0046 0041 0058 213C <font> 03C0 213D <font> 03B3 213E <font> 0393 213F <font> 03A0 2140 <font> 2211 2145 <font> 0044 2146 <font> 0064 2147 <font> 0065 2148 <font> 0069 2149 <font> 006A 2150 <fraction> 0031 2044 0037 2151 <fraction> 0031 2044 0039 2152 <fraction> 0031 2044 0031 0030 2153 <fraction> 0031 2044 0033 2154 <fraction> 0032 2044 0033 2155 <fraction> 0031 2044 0035 2156 <fraction> 0032 2044 0035 2157 <fraction> 0033 2044 0035 2158 <fraction> 0034 2044 0035 2159 <fraction> 0031 2044 0036 215A <fraction> 0035 2044 0036 215B <fraction> 0031 2044 0038 215C <fraction> 0033 2044 0038 215D <fraction> 0035 2044 0038 215E <fraction> 0037 2044 0038 215F <fraction> 0031 2044 2160 <compat> 0049 2161 <compat> 0049 0049 2162 <compat> 0049 0049 0049 2163 <compat> 0049 0056 2164 <compat> 0056 2165 <compat> 0056 0049 2166 <compat> 0056 0049 0049 2167 <compat> 0056 0049 0049 0049 2168 <compat> 0049 0058 2169 <compat> 0058 216A <compat> 0058 0049 216B <compat> 0058 0049 0049 216C <compat> 004C 216D <compat> 0043 216E <compat> 0044 216F <compat> 004D 2170 <compat> 0069 2171 <compat> 0069 0069 2172 <compat> 0069 0069 0069 2173 <compat> 0069 0076 2174 <compat> 0076 2175 <compat> 0076 0069 2176 <compat> 0076 0069 0069 2177 <compat> 0076 0069 0069 0069 2178 <compat> 0069 0078 2179 <compat> 0078 217A <compat> 0078 0069 217B <compat> 0078 0069 0069 217C <compat> 006C 217D <compat> 0063 217E <compat> 0064 217F <compat> 006D 2189 <fraction> 0030 2044 0033 219A 2190 0338 219B 2192 0338 21AE 2194 0338 21CD 21D0 0338 21CE 21D4 0338 21CF 21D2 0338 2204 2203 0338 2209 2208 0338 220C 220B 0338 2224 2223 0338 2226 2225 0338 222C <compat> 222B 222B 222D <compat> 222B 222B 222B 222F <compat> 222E 222E 2230 <compat> 222E 222E 222E 2241 223C 0338 2244 2243 0338 2247 2245 0338 2249 2248 0338 2260 003D 0338 2262 2261 0338 226D 224D 0338 226E 003C 0338 226F 003E 0338 2270 2264 0338 2271 2265 0338 2274 2272 0338 2275 2273 0338 2278 2276 0338 2279 2277 0338 2280 227A 0338 2281 227B 0338 2284 2282 0338 2285 2283 0338 2288 2286 0338 2289 2287 0338 22AC 22A2 0338 22AD 22A8 0338 22AE 22A9 0338 22AF 22AB 0338 22E0 227C 0338 22E1 227D 0338 22E2 2291 0338 22E3 2292 0338 22EA 22B2 0338 22EB 22B3 0338 22EC 22B4 0338 22ED 22B5 0338 2329 3008 232A 3009 2460 <circle> 0031 2461 <circle> 0032 2462 <circle> 0033 2463 <circle> 0034 2464 <circle> 0035 2465 <circle> 0036 2466 <circle> 0037 2467 <circle> 0038 2468 <circle> 0039 2469 <circle> 0031 0030 246A <circle> 0031 0031 246B <circle> 0031 0032 246C <circle> 0031 0033 246D <circle> 0031 0034 246E <circle> 0031 0035 246F <circle> 0031 0036 2470 <circle> 0031 0037 2471 <circle> 0031 0038 2472 <circle> 0031 0039 2473 <circle> 0032 0030 2474 <compat> 0028 0031 0029 2475 <compat> 0028 0032 0029 2476 <compat> 0028 0033 0029 2477 <compat> 0028 0034 0029 2478 <compat> 0028 0035 0029 2479 <compat> 0028 0036 0029 247A <compat> 0028 0037 0029 247B <compat> 0028 0038 0029 247C <compat> 0028 0039 0029 247D <compat> 0028 0031 0030 0029 247E <compat> 0028 0031 0031 0029 247F <compat> 0028 0031 0032 0029 2480 <compat> 0028 0031 0033 0029 2481 <compat> 0028 0031 0034 0029 2482 <compat> 0028 0031 0035 0029 2483 <compat> 0028 0031 0036 0029 2484 <compat> 0028 0031 0037 0029 2485 <compat> 0028 0031 0038 0029 2486 <compat> 0028 0031 0039 0029 2487 <compat> 0028 0032 0030 0029 2488 <compat> 0031 002E 2489 <compat> 0032 002E 248A <compat> 0033 002E 248B <compat> 0034 002E 248C <compat> 0035 002E 248D <compat> 0036 002E 248E <compat> 0037 002E 248F <compat> 0038 002E 2490 <compat> 0039 002E 2491 <compat> 0031 0030 002E 2492 <compat> 0031 0031 002E 2493 <compat> 0031 0032 002E 2494 <compat> 0031 0033 002E 2495 <compat> 0031 0034 002E 2496 <compat> 0031 0035 002E 2497 <compat> 0031 0036 002E 2498 <compat> 0031 0037 002E 2499 <compat> 0031 0038 002E 249A <compat> 0031 0039 002E 249B <compat> 0032 0030 002E 249C <compat> 0028 0061 0029 249D <compat> 0028 0062 0029 249E <compat> 0028 0063 0029 249F <compat> 0028 0064 0029 24A0 <compat> 0028 0065 0029 24A1 <compat> 0028 0066 0029 24A2 <compat> 0028 0067 0029 24A3 <compat> 0028 0068 0029 24A4 <compat> 0028 0069 0029 24A5 <compat> 0028 006A 0029 24A6 <compat> 0028 006B 0029 24A7 <compat> 0028 006C 0029 24A8 <compat> 0028 006D 0029 24A9 <compat> 0028 006E 0029 24AA <compat> 0028 006F 0029 24AB <compat> 0028 0070 0029 24AC <compat> 0028 0071 0029 24AD <compat> 0028 0072 0029 24AE <compat> 0028 0073 0029 24AF <compat> 0028 0074 0029 24B0 <compat> 0028 0075 0029 24B1 <compat> 0028 0076 0029 24B2 <compat> 0028 0077 0029 24B3 <compat> 0028 0078 0029 24B4 <compat> 0028 0079 0029 24B5 <compat> 0028 007A 0029 24B6 <circle> 0041 24B7 <circle> 0042 24B8 <circle> 0043 24B9 <circle> 0044 24BA <circle> 0045 24BB <circle> 0046 24BC <circle> 0047 24BD <circle> 0048 24BE <circle> 0049 24BF <circle> 004A 24C0 <circle> 004B 24C1 <circle> 004C 24C2 <circle> 004D 24C3 <circle> 004E 24C4 <circle> 004F 24C5 <circle> 0050 24C6 <circle> 0051 24C7 <circle> 0052 24C8 <circle> 0053 24C9 <circle> 0054 24CA <circle> 0055 24CB <circle> 0056 24CC <circle> 0057 24CD <circle> 0058 24CE <circle> 0059 24CF <circle> 005A 24D0 <circle> 0061 24D1 <circle> 0062 24D2 <circle> 0063 24D3 <circle> 0064 24D4 <circle> 0065 24D5 <circle> 0066 24D6 <circle> 0067 24D7 <circle> 0068 24D8 <circle> 0069 24D9 <circle> 006A 24DA <circle> 006B 24DB <circle> 006C 24DC <circle> 006D 24DD <circle> 006E 24DE <circle> 006F 24DF <circle> 0070 24E0 <circle> 0071 24E1 <circle> 0072 24E2 <circle> 0073 24E3 <circle> 0074 24E4 <circle> 0075 24E5 <circle> 0076 24E6 <circle> 0077 24E7 <circle> 0078 24E8 <circle> 0079 24E9 <circle> 007A 24EA <circle> 0030 2A0C <compat> 222B 222B 222B 222B 2A74 <compat> 003A 003A 003D 2A75 <compat> 003D 003D 2A76 <compat> 003D 003D 003D 2ADC 2ADD 0338 2C7C <sub> 006A 2C7D <super> 0056 2D6F <super> 2D61 2E9F <compat> 6BCD 2EF3 <compat> 9F9F 2F00 <compat> 4E00 2F01 <compat> 4E28 2F02 <compat> 4E36 2F03 <compat> 4E3F 2F04 <compat> 4E59 2F05 <compat> 4E85 2F06 <compat> 4E8C 2F07 <compat> 4EA0 2F08 <compat> 4EBA 2F09 <compat> 513F 2F0A <compat> 5165 2F0B <compat> 516B 2F0C <compat> 5182 2F0D <compat> 5196 2F0E <compat> 51AB 2F0F <compat> 51E0 2F10 <compat> 51F5 2F11 <compat> 5200 2F12 <compat> 529B 2F13 <compat> 52F9 2F14 <compat> 5315 2F15 <compat> 531A 2F16 <compat> 5338 2F17 <compat> 5341 2F18 <compat> 535C 2F19 <compat> 5369 2F1A <compat> 5382 2F1B <compat> 53B6 2F1C <compat> 53C8 2F1D <compat> 53E3 2F1E <compat> 56D7 2F1F <compat> 571F 2F20 <compat> 58EB 2F21 <compat> 5902 2F22 <compat> 590A 2F23 <compat> 5915 2F24 <compat> 5927 2F25 <compat> 5973 2F26 <compat> 5B50 2F27 <compat> 5B80 2F28 <compat> 5BF8 2F29 <compat> 5C0F 2F2A <compat> 5C22 2F2B <compat> 5C38 2F2C <compat> 5C6E 2F2D <compat> 5C71 2F2E <compat> 5DDB 2F2F <compat> 5DE5 2F30 <compat> 5DF1 2F31 <compat> 5DFE 2F32 <compat> 5E72 2F33 <compat> 5E7A 2F34 <compat> 5E7F 2F35 <compat> 5EF4 2F36 <compat> 5EFE 2F37 <compat> 5F0B 2F38 <compat> 5F13 2F39 <compat> 5F50 2F3A <compat> 5F61 2F3B <compat> 5F73 2F3C <compat> 5FC3 2F3D <compat> 6208 2F3E <compat> 6236 2F3F <compat> 624B 2F40 <compat> 652F 2F41 <compat> 6534 2F42 <compat> 6587 2F43 <compat> 6597 2F44 <compat> 65A4 2F45 <compat> 65B9 2F46 <compat> 65E0 2F47 <compat> 65E5 2F48 <compat> 66F0 2F49 <compat> 6708 2F4A <compat> 6728 2F4B <compat> 6B20 2F4C <compat> 6B62 2F4D <compat> 6B79 2F4E <compat> 6BB3 2F4F <compat> 6BCB 2F50 <compat> 6BD4 2F51 <compat> 6BDB 2F52 <compat> 6C0F 2F53 <compat> 6C14 2F54 <compat> 6C34 2F55 <compat> 706B 2F56 <compat> 722A 2F57 <compat> 7236 2F58 <compat> 723B 2F59 <compat> 723F 2F5A <compat> 7247 2F5B <compat> 7259 2F5C <compat> 725B 2F5D <compat> 72AC 2F5E <compat> 7384 2F5F <compat> 7389 2F60 <compat> 74DC 2F61 <compat> 74E6 2F62 <compat> 7518 2F63 <compat> 751F 2F64 <compat> 7528 2F65 <compat> 7530 2F66 <compat> 758B 2F67 <compat> 7592 2F68 <compat> 7676 2F69 <compat> 767D 2F6A <compat> 76AE 2F6B <compat> 76BF 2F6C <compat> 76EE 2F6D <compat> 77DB 2F6E <compat> 77E2 2F6F <compat> 77F3 2F70 <compat> 793A 2F71 <compat> 79B8 2F72 <compat> 79BE 2F73 <compat> 7A74 2F74 <compat> 7ACB 2F75 <compat> 7AF9 2F76 <compat> 7C73 2F77 <compat> 7CF8 2F78 <compat> 7F36 2F79 <compat> 7F51 2F7A <compat> 7F8A 2F7B <compat> 7FBD 2F7C <compat> 8001 2F7D <compat> 800C 2F7E <compat> 8012 2F7F <compat> 8033 2F80 <compat> 807F 2F81 <compat> 8089 2F82 <compat> 81E3 2F83 <compat> 81EA 2F84 <compat> 81F3 2F85 <compat> 81FC 2F86 <compat> 820C 2F87 <compat> 821B 2F88 <compat> 821F 2F89 <compat> 826E 2F8A <compat> 8272 2F8B <compat> 8278 2F8C <compat> 864D 2F8D <compat> 866B 2F8E <compat> 8840 2F8F <compat> 884C 2F90 <compat> 8863 2F91 <compat> 897E 2F92 <compat> 898B 2F93 <compat> 89D2 2F94 <compat> 8A00 2F95 <compat> 8C37 2F96 <compat> 8C46 2F97 <compat> 8C55 2F98 <compat> 8C78 2F99 <compat> 8C9D 2F9A <compat> 8D64 2F9B <compat> 8D70 2F9C <compat> 8DB3 2F9D <compat> 8EAB 2F9E <compat> 8ECA 2F9F <compat> 8F9B 2FA0 <compat> 8FB0 2FA1 <compat> 8FB5 2FA2 <compat> 9091 2FA3 <compat> 9149 2FA4 <compat> 91C6 2FA5 <compat> 91CC 2FA6 <compat> 91D1 2FA7 <compat> 9577 2FA8 <compat> 9580 2FA9 <compat> 961C 2FAA <compat> 96B6 2FAB <compat> 96B9 2FAC <compat> 96E8 2FAD <compat> 9751 2FAE <compat> 975E 2FAF <compat> 9762 2FB0 <compat> 9769 2FB1 <compat> 97CB 2FB2 <compat> 97ED 2FB3 <compat> 97F3 2FB4 <compat> 9801 2FB5 <compat> 98A8 2FB6 <compat> 98DB 2FB7 <compat> 98DF 2FB8 <compat> 9996 2FB9 <compat> 9999 2FBA <compat> 99AC 2FBB <compat> 9AA8 2FBC <compat> 9AD8 2FBD <compat> 9ADF 2FBE <compat> 9B25 2FBF <compat> 9B2F 2FC0 <compat> 9B32 2FC1 <compat> 9B3C 2FC2 <compat> 9B5A 2FC3 <compat> 9CE5 2FC4 <compat> 9E75 2FC5 <compat> 9E7F 2FC6 <compat> 9EA5 2FC7 <compat> 9EBB 2FC8 <compat> 9EC3 2FC9 <compat> 9ECD 2FCA <compat> 9ED1 2FCB <compat> 9EF9 2FCC <compat> 9EFD 2FCD <compat> 9F0E 2FCE <compat> 9F13 2FCF <compat> 9F20 2FD0 <compat> 9F3B 2FD1 <compat> 9F4A 2FD2 <compat> 9F52 2FD3 <compat> 9F8D 2FD4 <compat> 9F9C 2FD5 <compat> 9FA0 3000 <wide> 0020 3036 <compat> 3012 3038 <compat> 5341 3039 <compat> 5344 303A <compat> 5345 304C 304B 3099 304E 304D 3099 3050 304F 3099 3052 3051 3099 3054 3053 3099 3056 3055 3099 3058 3057 3099 305A 3059 3099 305C 305B 3099 305E 305D 3099 3060 305F 3099 3062 3061 3099 3065 3064 3099 3067 3066 3099 3069 3068 3099 3070 306F 3099 3071 306F 309A 3073 3072 3099 3074 3072 309A 3076 3075 3099 3077 3075 309A 3079 3078 3099 307A 3078 309A 307C 307B 3099 307D 307B 309A 3094 3046 3099 309B <compat> 0020 3099 309C <compat> 0020 309A 309E 309D 3099 309F <vertical> 3088 308A 30AC 30AB 3099 30AE 30AD 3099 30B0 30AF 3099 30B2 30B1 3099 30B4 30B3 3099 30B6 30B5 3099 30B8 30B7 3099 30BA 30B9 3099 30BC 30BB 3099 30BE 30BD 3099 30C0 30BF 3099 30C2 30C1 3099 30C5 30C4 3099 30C7 30C6 3099 30C9 30C8 3099 30D0 30CF 3099 30D1 30CF 309A 30D3 30D2 3099 30D4 30D2 309A 30D6 30D5 3099 30D7 30D5 309A 30D9 30D8 3099 30DA 30D8 309A 30DC 30DB 3099 30DD 30DB 309A 30F4 30A6 3099 30F7 30EF 3099 30F8 30F0 3099 30F9 30F1 3099 30FA 30F2 3099 30FE 30FD 3099 30FF <vertical> 30B3 30C8 3131 <compat> 1100 3132 <compat> 1101 3133 <compat> 11AA 3134 <compat> 1102 3135 <compat> 11AC 3136 <compat> 11AD 3137 <compat> 1103 3138 <compat> 1104 3139 <compat> 1105 313A <compat> 11B0 313B <compat> 11B1 313C <compat> 11B2 313D <compat> 11B3 313E <compat> 11B4 313F <compat> 11B5 3140 <compat> 111A 3141 <compat> 1106 3142 <compat> 1107 3143 <compat> 1108 3144 <compat> 1121 3145 <compat> 1109 3146 <compat> 110A 3147 <compat> 110B 3148 <compat> 110C 3149 <compat> 110D 314A <compat> 110E 314B <compat> 110F 314C <compat> 1110 314D <compat> 1111 314E <compat> 1112 314F <compat> 1161 3150 <compat> 1162 3151 <compat> 1163 3152 <compat> 1164 3153 <compat> 1165 3154 <compat> 1166 3155 <compat> 1167 3156 <compat> 1168 3157 <compat> 1169 3158 <compat> 116A 3159 <compat> 116B 315A <compat> 116C 315B <compat> 116D 315C <compat> 116E 315D <compat> 116F 315E <compat> 1170 315F <compat> 1171 3160 <compat> 1172 3161 <compat> 1173 3162 <compat> 1174 3163 <compat> 1175 3164 <compat> 1160 3165 <compat> 1114 3166 <compat> 1115 3167 <compat> 11C7 3168 <compat> 11C8 3169 <compat> 11CC 316A <compat> 11CE 316B <compat> 11D3 316C <compat> 11D7 316D <compat> 11D9 316E <compat> 111C 316F <compat> 11DD 3170 <compat> 11DF 3171 <compat> 111D 3172 <compat> 111E 3173 <compat> 1120 3174 <compat> 1122 3175 <compat> 1123 3176 <compat> 1127 3177 <compat> 1129 3178 <compat> 112B 3179 <compat> 112C 317A <compat> 112D 317B <compat> 112E 317C <compat> 112F 317D <compat> 1132 317E <compat> 1136 317F <compat> 1140 3180 <compat> 1147 3181 <compat> 114C 3182 <compat> 11F1 3183 <compat> 11F2 3184 <compat> 1157 3185 <compat> 1158 3186 <compat> 1159 3187 <compat> 1184 3188 <compat> 1185 3189 <compat> 1188 318A <compat> 1191 318B <compat> 1192 318C <compat> 1194 318D <compat> 119E 318E <compat> 11A1 3192 <super> 4E00 3193 <super> 4E8C 3194 <super> 4E09 3195 <super> 56DB 3196 <super> 4E0A 3197 <super> 4E2D 3198 <super> 4E0B 3199 <super> 7532 319A <super> 4E59 319B <super> 4E19 319C <super> 4E01 319D <super> 5929 319E <super> 5730 319F <super> 4EBA 3200 <compat> 0028 1100 0029 3201 <compat> 0028 1102 0029 3202 <compat> 0028 1103 0029 3203 <compat> 0028 1105 0029 3204 <compat> 0028 1106 0029 3205 <compat> 0028 1107 0029 3206 <compat> 0028 1109 0029 3207 <compat> 0028 110B 0029 3208 <compat> 0028 110C 0029 3209 <compat> 0028 110E 0029 320A <compat> 0028 110F 0029 320B <compat> 0028 1110 0029 320C <compat> 0028 1111 0029 320D <compat> 0028 1112 0029 320E <compat> 0028 1100 1161 0029 320F <compat> 0028 1102 1161 0029 3210 <compat> 0028 1103 1161 0029 3211 <compat> 0028 1105 1161 0029 3212 <compat> 0028 1106 1161 0029 3213 <compat> 0028 1107 1161 0029 3214 <compat> 0028 1109 1161 0029 3215 <compat> 0028 110B 1161 0029 3216 <compat> 0028 110C 1161 0029 3217 <compat> 0028 110E 1161 0029 3218 <compat> 0028 110F 1161 0029 3219 <compat> 0028 1110 1161 0029 321A <compat> 0028 1111 1161 0029 321B <compat> 0028 1112 1161 0029 321C <compat> 0028 110C 116E 0029 321D <compat> 0028 110B 1169 110C 1165 11AB 0029 321E <compat> 0028 110B 1169 1112 116E 0029 3220 <compat> 0028 4E00 0029 3221 <compat> 0028 4E8C 0029 3222 <compat> 0028 4E09 0029 3223 <compat> 0028 56DB 0029 3224 <compat> 0028 4E94 0029 3225 <compat> 0028 516D 0029 3226 <compat> 0028 4E03 0029 3227 <compat> 0028 516B 0029 3228 <compat> 0028 4E5D 0029 3229 <compat> 0028 5341 0029 322A <compat> 0028 6708 0029 322B <compat> 0028 706B 0029 322C <compat> 0028 6C34 0029 322D <compat> 0028 6728 0029 322E <compat> 0028 91D1 0029 322F <compat> 0028 571F 0029 3230 <compat> 0028 65E5 0029 3231 <compat> 0028 682A 0029 3232 <compat> 0028 6709 0029 3233 <compat> 0028 793E 0029 3234 <compat> 0028 540D 0029 3235 <compat> 0028 7279 0029 3236 <compat> 0028 8CA1 0029 3237 <compat> 0028 795D 0029 3238 <compat> 0028 52B4 0029 3239 <compat> 0028 4EE3 0029 323A <compat> 0028 547C 0029 323B <compat> 0028 5B66 0029 323C <compat> 0028 76E3 0029 323D <compat> 0028 4F01 0029 323E <compat> 0028 8CC7 0029 323F <compat> 0028 5354 0029 3240 <compat> 0028 796D 0029 3241 <compat> 0028 4F11 0029 3242 <compat> 0028 81EA 0029 3243 <compat> 0028 81F3 0029 3244 <circle> 554F 3245 <circle> 5E7C 3246 <circle> 6587 3247 <circle> 7B8F 3250 <square> 0050 0054 0045 3251 <circle> 0032 0031 3252 <circle> 0032 0032 3253 <circle> 0032 0033 3254 <circle> 0032 0034 3255 <circle> 0032 0035 3256 <circle> 0032 0036 3257 <circle> 0032 0037 3258 <circle> 0032 0038 3259 <circle> 0032 0039 325A <circle> 0033 0030 325B <circle> 0033 0031 325C <circle> 0033 0032 325D <circle> 0033 0033 325E <circle> 0033 0034 325F <circle> 0033 0035 3260 <circle> 1100 3261 <circle> 1102 3262 <circle> 1103 3263 <circle> 1105 3264 <circle> 1106 3265 <circle> 1107 3266 <circle> 1109 3267 <circle> 110B 3268 <circle> 110C 3269 <circle> 110E 326A <circle> 110F 326B <circle> 1110 326C <circle> 1111 326D <circle> 1112 326E <circle> 1100 1161 326F <circle> 1102 1161 3270 <circle> 1103 1161 3271 <circle> 1105 1161 3272 <circle> 1106 1161 3273 <circle> 1107 1161 3274 <circle> 1109 1161 3275 <circle> 110B 1161 3276 <circle> 110C 1161 3277 <circle> 110E 1161 3278 <circle> 110F 1161 3279 <circle> 1110 1161 327A <circle> 1111 1161 327B <circle> 1112 1161 327C <circle> 110E 1161 11B7 1100 1169 327D <circle> 110C 116E 110B 1174 327E <circle> 110B 116E 3280 <circle> 4E00 3281 <circle> 4E8C 3282 <circle> 4E09 3283 <circle> 56DB 3284 <circle> 4E94 3285 <circle> 516D 3286 <circle> 4E03 3287 <circle> 516B 3288 <circle> 4E5D 3289 <circle> 5341 328A <circle> 6708 328B <circle> 706B 328C <circle> 6C34 328D <circle> 6728 328E <circle> 91D1 328F <circle> 571F 3290 <circle> 65E5 3291 <circle> 682A 3292 <circle> 6709 3293 <circle> 793E 3294 <circle> 540D 3295 <circle> 7279 3296 <circle> 8CA1 3297 <circle> 795D 3298 <circle> 52B4 3299 <circle> 79D8 329A <circle> 7537 329B <circle> 5973 329C <circle> 9069 329D <circle> 512A 329E <circle> 5370 329F <circle> 6CE8 32A0 <circle> 9805 32A1 <circle> 4F11 32A2 <circle> 5199 32A3 <circle> 6B63 32A4 <circle> 4E0A 32A5 <circle> 4E2D 32A6 <circle> 4E0B 32A7 <circle> 5DE6 32A8 <circle> 53F3 32A9 <circle> 533B 32AA <circle> 5B97 32AB <circle> 5B66 32AC <circle> 76E3 32AD <circle> 4F01 32AE <circle> 8CC7 32AF <circle> 5354 32B0 <circle> 591C 32B1 <circle> 0033 0036 32B2 <circle> 0033 0037 32B3 <circle> 0033 0038 32B4 <circle> 0033 0039 32B5 <circle> 0034 0030 32B6 <circle> 0034 0031 32B7 <circle> 0034 0032 32B8 <circle> 0034 0033 32B9 <circle> 0034 0034 32BA <circle> 0034 0035 32BB <circle> 0034 0036 32BC <circle> 0034 0037 32BD <circle> 0034 0038 32BE <circle> 0034 0039 32BF <circle> 0035 0030 32C0 <compat> 0031 6708 32C1 <compat> 0032 6708 32C2 <compat> 0033 6708 32C3 <compat> 0034 6708 32C4 <compat> 0035 6708 32C5 <compat> 0036 6708 32C6 <compat> 0037 6708 32C7 <compat> 0038 6708 32C8 <compat> 0039 6708 32C9 <compat> 0031 0030 6708 32CA <compat> 0031 0031 6708 32CB <compat> 0031 0032 6708 32CC <square> 0048 0067 32CD <square> 0065 0072 0067 32CE <square> 0065 0056 32CF <square> 004C 0054 0044 32D0 <circle> 30A2 32D1 <circle> 30A4 32D2 <circle> 30A6 32D3 <circle> 30A8 32D4 <circle> 30AA 32D5 <circle> 30AB 32D6 <circle> 30AD 32D7 <circle> 30AF 32D8 <circle> 30B1 32D9 <circle> 30B3 32DA <circle> 30B5 32DB <circle> 30B7 32DC <circle> 30B9 32DD <circle> 30BB 32DE <circle> 30BD 32DF <circle> 30BF 32E0 <circle> 30C1 32E1 <circle> 30C4 32E2 <circle> 30C6 32E3 <circle> 30C8 32E4 <circle> 30CA 32E5 <circle> 30CB 32E6 <circle> 30CC 32E7 <circle> 30CD 32E8 <circle> 30CE 32E9 <circle> 30CF 32EA <circle> 30D2 32EB <circle> 30D5 32EC <circle> 30D8 32ED <circle> 30DB 32EE <circle> 30DE 32EF <circle> 30DF 32F0 <circle> 30E0 32F1 <circle> 30E1 32F2 <circle> 30E2 32F3 <circle> 30E4 32F4 <circle> 30E6 32F5 <circle> 30E8 32F6 <circle> 30E9 32F7 <circle> 30EA 32F8 <circle> 30EB 32F9 <circle> 30EC 32FA <circle> 30ED 32FB <circle> 30EF 32FC <circle> 30F0 32FD <circle> 30F1 32FE <circle> 30F2 32FF <square> 4EE4 548C 3300 <square> 30A2 30D1 30FC 30C8 3301 <square> 30A2 30EB 30D5 30A1 3302 <square> 30A2 30F3 30DA 30A2 3303 <square> 30A2 30FC 30EB 3304 <square> 30A4 30CB 30F3 30B0 3305 <square> 30A4 30F3 30C1 3306 <square> 30A6 30A9 30F3 3307 <square> 30A8 30B9 30AF 30FC 30C9 3308 <square> 30A8 30FC 30AB 30FC 3309 <square> 30AA 30F3 30B9 330A <square> 30AA 30FC 30E0 330B <square> 30AB 30A4 30EA 330C <square> 30AB 30E9 30C3 30C8 330D <square> 30AB 30ED 30EA 30FC 330E <square> 30AC 30ED 30F3 330F <square> 30AC 30F3 30DE 3310 <square> 30AE 30AC 3311 <square> 30AE 30CB 30FC 3312 <square> 30AD 30E5 30EA 30FC 3313 <square> 30AE 30EB 30C0 30FC 3314 <square> 30AD 30ED 3315 <square> 30AD 30ED 30B0 30E9 30E0 3316 <square> 30AD 30ED 30E1 30FC 30C8 30EB 3317 <square> 30AD 30ED 30EF 30C3 30C8 3318 <square> 30B0 30E9 30E0 3319 <square> 30B0 30E9 30E0 30C8 30F3 331A <square> 30AF 30EB 30BC 30A4 30ED 331B <square> 30AF 30ED 30FC 30CD 331C <square> 30B1 30FC 30B9 331D <square> 30B3 30EB 30CA 331E <square> 30B3 30FC 30DD 331F <square> 30B5 30A4 30AF 30EB 3320 <square> 30B5 30F3 30C1 30FC 30E0 3321 <square> 30B7 30EA 30F3 30B0 3322 <square> 30BB 30F3 30C1 3323 <square> 30BB 30F3 30C8 3324 <square> 30C0 30FC 30B9 3325 <square> 30C7 30B7 3326 <square> 30C9 30EB 3327 <square> 30C8 30F3 3328 <square> 30CA 30CE 3329 <square> 30CE 30C3 30C8 332A <square> 30CF 30A4 30C4 332B <square> 30D1 30FC 30BB 30F3 30C8 332C <square> 30D1 30FC 30C4 332D <square> 30D0 30FC 30EC 30EB 332E <square> 30D4 30A2 30B9 30C8 30EB 332F <square> 30D4 30AF 30EB 3330 <square> 30D4 30B3 3331 <square> 30D3 30EB 3332 <square> 30D5 30A1 30E9 30C3 30C9 3333 <square> 30D5 30A3 30FC 30C8 3334 <square> 30D6 30C3 30B7 30A7 30EB 3335 <square> 30D5 30E9 30F3 3336 <square> 30D8 30AF 30BF 30FC 30EB 3337 <square> 30DA 30BD 3338 <square> 30DA 30CB 30D2 3339 <square> 30D8 30EB 30C4 333A <square> 30DA 30F3 30B9 333B <square> 30DA 30FC 30B8 333C <square> 30D9 30FC 30BF 333D <square> 30DD 30A4 30F3 30C8 333E <square> 30DC 30EB 30C8 333F <square> 30DB 30F3 3340 <square> 30DD 30F3 30C9 3341 <square> 30DB 30FC 30EB 3342 <square> 30DB 30FC 30F3 3343 <square> 30DE 30A4 30AF 30ED 3344 <square> 30DE 30A4 30EB 3345 <square> 30DE 30C3 30CF 3346 <square> 30DE 30EB 30AF 3347 <square> 30DE 30F3 30B7 30E7 30F3 3348 <square> 30DF 30AF 30ED 30F3 3349 <square> 30DF 30EA 334A <square> 30DF 30EA 30D0 30FC 30EB 334B <square> 30E1 30AC 334C <square> 30E1 30AC 30C8 30F3 334D <square> 30E1 30FC 30C8 30EB 334E <square> 30E4 30FC 30C9 334F <square> 30E4 30FC 30EB 3350 <square> 30E6 30A2 30F3 3351 <square> 30EA 30C3 30C8 30EB 3352 <square> 30EA 30E9 3353 <square> 30EB 30D4 30FC 3354 <square> 30EB 30FC 30D6 30EB 3355 <square> 30EC 30E0 3356 <square> 30EC 30F3 30C8 30B2 30F3 3357 <square> 30EF 30C3 30C8 3358 <compat> 0030 70B9 3359 <compat> 0031 70B9 335A <compat> 0032 70B9 335B <compat> 0033 70B9 335C <compat> 0034 70B9 335D <compat> 0035 70B9 335E <compat> 0036 70B9 335F <compat> 0037 70B9 3360 <compat> 0038 70B9 3361 <compat> 0039 70B9 3362 <compat> 0031 0030 70B9 3363 <compat> 0031 0031 70B9 3364 <compat> 0031 0032 70B9 3365 <compat> 0031 0033 70B9 3366 <compat> 0031 0034 70B9 3367 <compat> 0031 0035 70B9 3368 <compat> 0031 0036 70B9 3369 <compat> 0031 0037 70B9 336A <compat> 0031 0038 70B9 336B <compat> 0031 0039 70B9 336C <compat> 0032 0030 70B9 336D <compat> 0032 0031 70B9 336E <compat> 0032 0032 70B9 336F <compat> 0032 0033 70B9 3370 <compat> 0032 0034 70B9 3371 <square> 0068 0050 0061 3372 <square> 0064 0061 3373 <square> 0041 0055 3374 <square> 0062 0061 0072 3375 <square> 006F 0056 3376 <square> 0070 0063 3377 <square> 0064 006D 3378 <square> 0064 006D 00B2 3379 <square> 0064 006D 00B3 337A <square> 0049 0055 337B <square> 5E73 6210 337C <square> 662D 548C 337D <square> 5927 6B63 337E <square> 660E 6CBB 337F <square> 682A 5F0F 4F1A 793E 3380 <square> 0070 0041 3381 <square> 006E 0041 3382 <square> 03BC 0041 3383 <square> 006D 0041 3384 <square> 006B 0041 3385 <square> 004B 0042 3386 <square> 004D 0042 3387 <square> 0047 0042 3388 <square> 0063 0061 006C 3389 <square> 006B 0063 0061 006C 338A <square> 0070 0046 338B <square> 006E 0046 338C <square> 03BC 0046 338D <square> 03BC 0067 338E <square> 006D 0067 338F <square> 006B 0067 3390 <square> 0048 007A 3391 <square> 006B 0048 007A 3392 <square> 004D 0048 007A 3393 <square> 0047 0048 007A 3394 <square> 0054 0048 007A 3395 <square> 03BC 2113 3396 <square> 006D 2113 3397 <square> 0064 2113 3398 <square> 006B 2113 3399 <square> 0066 006D 339A <square> 006E 006D 339B <square> 03BC 006D 339C <square> 006D 006D 339D <square> 0063 006D 339E <square> 006B 006D 339F <square> 006D 006D 00B2 33A0 <square> 0063 006D 00B2 33A1 <square> 006D 00B2 33A2 <square> 006B 006D 00B2 33A3 <square> 006D 006D 00B3 33A4 <square> 0063 006D 00B3 33A5 <square> 006D 00B3 33A6 <square> 006B 006D 00B3 33A7 <square> 006D 2215 0073 33A8 <square> 006D 2215 0073 00B2 33A9 <square> 0050 0061 33AA <square> 006B 0050 0061 33AB <square> 004D 0050 0061 33AC <square> 0047 0050 0061 33AD <square> 0072 0061 0064 33AE <square> 0072 0061 0064 2215 0073 33AF <square> 0072 0061 0064 2215 0073 00B2 33B0 <square> 0070 0073 33B1 <square> 006E 0073 33B2 <square> 03BC 0073 33B3 <square> 006D 0073 33B4 <square> 0070 0056 33B5 <square> 006E 0056 33B6 <square> 03BC 0056 33B7 <square> 006D 0056 33B8 <square> 006B 0056 33B9 <square> 004D 0056 33BA <square> 0070 0057 33BB <square> 006E 0057 33BC <square> 03BC 0057 33BD <square> 006D 0057 33BE <square> 006B 0057 33BF <square> 004D 0057 33C0 <square> 006B 03A9 33C1 <square> 004D 03A9 33C2 <square> 0061 002E 006D 002E 33C3 <square> 0042 0071 33C4 <square> 0063 0063 33C5 <square> 0063 0064 33C6 <square> 0043 2215 006B 0067 33C7 <square> 0043 006F 002E 33C8 <square> 0064 0042 33C9 <square> 0047 0079 33CA <square> 0068 0061 33CB <square> 0048 0050 33CC <square> 0069 006E 33CD <square> 004B 004B 33CE <square> 004B 004D 33CF <square> 006B 0074 33D0 <square> 006C 006D 33D1 <square> 006C 006E 33D2 <square> 006C 006F 0067 33D3 <square> 006C 0078 33D4 <square> 006D 0062 33D5 <square> 006D 0069 006C 33D6 <square> 006D 006F 006C 33D7 <square> 0050 0048 33D8 <square> 0070 002E 006D 002E 33D9 <square> 0050 0050 004D 33DA <square> 0050 0052 33DB <square> 0073 0072 33DC <square> 0053 0076 33DD <square> 0057 0062 33DE <square> 0056 2215 006D 33DF <square> 0041 2215 006D 33E0 <compat> 0031 65E5 33E1 <compat> 0032 65E5 33E2 <compat> 0033 65E5 33E3 <compat> 0034 65E5 33E4 <compat> 0035 65E5 33E5 <compat> 0036 65E5 33E6 <compat> 0037 65E5 33E7 <compat> 0038 65E5 33E8 <compat> 0039 65E5 33E9 <compat> 0031 0030 65E5 33EA <compat> 0031 0031 65E5 33EB <compat> 0031 0032 65E5 33EC <compat> 0031 0033 65E5 33ED <compat> 0031 0034 65E5 33EE <compat> 0031 0035 65E5 33EF <compat> 0031 0036 65E5 33F0 <compat> 0031 0037 65E5 33F1 <compat> 0031 0038 65E5 33F2 <compat> 0031 0039 65E5 33F3 <compat> 0032 0030 65E5 33F4 <compat> 0032 0031 65E5 33F5 <compat> 0032 0032 65E5 33F6 <compat> 0032 0033 65E5 33F7 <compat> 0032 0034 65E5 33F8 <compat> 0032 0035 65E5 33F9 <compat> 0032 0036 65E5 33FA <compat> 0032 0037 65E5 33FB <compat> 0032 0038 65E5 33FC <compat> 0032 0039 65E5 33FD <compat> 0033 0030 65E5 33FE <compat> 0033 0031 65E5 33FF <square> 0067 0061 006C A69C <super> 044A A69D <super> 044C A770 <super> A76F A7F8 <super> 0126 A7F9 <super> 0153 AB5C <super> A727 AB5D <super> AB37 AB5E <super> 026B AB5F <super> AB52 AB69 <super> 028D F900 8C48 F901 66F4 F902 8ECA F903 8CC8 F904 6ED1 F905 4E32 F906 53E5 F907 F908 9F9C F909 5951 F90A 91D1 F90B 5587 F90C 5948 F90D 61F6 F90E 7669 F90F 7F85 F910 863F F911 87BA F912 88F8 F913 908F F914 6A02 F915 6D1B F916 70D9 F917 73DE F918 843D F919 916A F91A 99F1 F91B 4E82 F91C 5375 F91D 6B04 F91E 721B F91F 862D F920 9E1E F921 5D50 F922 6FEB F923 85CD F924 8964 F925 62C9 F926 81D8 F927 881F F928 5ECA F929 6717 F92A 6D6A F92B 72FC F92C 90CE F92D 4F86 F92E 51B7 F92F 52DE F930 64C4 F931 6AD3 F932 7210 F933 76E7 F934 8001 F935 8606 F936 865C F937 8DEF F938 9732 F939 9B6F F93A 9DFA F93B 788C F93C 797F F93D 7DA0 F93E 83C9 F93F 9304 F940 9E7F F941 8AD6 F942 58DF F943 5F04 F944 7C60 F945 807E F946 7262 F947 78CA F948 8CC2 F949 96F7 F94A 58D8 F94B 5C62 F94C 6A13 F94D 6DDA F94E 6F0F F94F 7D2F F950 7E37 F951 964B F952 52D2 F953 808B F954 51DC F955 51CC F956 7A1C F957 7DBE F958 83F1 F959 9675 F95A 8B80 F95B 62CF F95C 6A02 F95D 8AFE F95E 4E39 F95F 5BE7 F960 6012 F961 7387 F962 7570 F963 5317 F964 78FB F965 4FBF F966 5FA9 F967 4E0D F968 6CCC F969 6578 F96A 7D22 F96B 53C3 F96C 585E F96D 7701 F96E 8449 F96F 8AAA F970 6BBA F971 8FB0 F972 6C88 F973 62FE F974 82E5 F975 63A0 F976 7565 F977 4EAE F978 5169 F979 51C9 F97A 6881 F97B 7CE7 F97C 826F F97D 8AD2 F97E 91CF F97F 52F5 F980 5442 F981 5973 F982 5EEC F983 65C5 F984 6FFE F985 792A F986 95AD F987 9A6A F988 9E97 F989 9ECE F98A 529B F98B 66C6 F98C 6B77 F98D 8F62 F98E 5E74 F98F 6190 F990 6200 F991 649A F992 6F23 F993 7149 F994 7489 F995 79CA F996 7DF4 F997 806F F998 8F26 F999 84EE F99A 9023 F99B 934A F99C 5217 F99D 52A3 F99E 54BD F99F 70C8 F9A0 88C2 F9A1 8AAA F9A2 5EC9 F9A3 5FF5 F9A4 637B F9A5 6BAE F9A6 7C3E F9A7 7375 F9A8 4EE4 F9A9 56F9 F9AA 5BE7 F9AB 5DBA F9AC 601C F9AD 73B2 F9AE 7469 F9AF 7F9A F9B0 8046 F9B1 9234 F9B2 96F6 F9B3 9748 F9B4 9818 F9B5 4F8B F9B6 79AE F9B7 91B4 F9B8 96B8 F9B9 60E1 F9BA 4E86 F9BB 50DA F9BC 5BEE F9BD 5C3F F9BE 6599 F9BF 6A02 F9C0 71CE F9C1 7642 F9C2 84FC F9C3 907C F9C4 9F8D F9C5 6688 F9C6 962E F9C7 5289 F9C8 677B F9C9 67F3 F9CA 6D41 F9CB 6E9C F9CC 7409 F9CD 7559 F9CE 786B F9CF 7D10 F9D0 985E F9D1 516D F9D2 622E F9D3 9678 F9D4 502B F9D5 5D19 F9D6 6DEA F9D7 8F2A F9D8 5F8B F9D9 6144 F9DA 6817 F9DB 7387 F9DC 9686 F9DD 5229 F9DE 540F F9DF 5C65 F9E0 6613 F9E1 674E F9E2 68A8 F9E3 6CE5 F9E4 7406 F9E5 75E2 F9E6 7F79 F9E7 88CF F9E8 88E1 F9E9 91CC F9EA 96E2 F9EB 533F F9EC 6EBA F9ED 541D F9EE 71D0 F9EF 7498 F9F0 85FA F9F1 96A3 F9F2 9C57 F9F3 9E9F F9F4 6797 F9F5 6DCB F9F6 81E8 F9F7 7ACB F9F8 7B20 F9F9 7C92 F9FA 72C0 F9FB 7099 F9FC 8B58 F9FD 4EC0 F9FE 8336 F9FF 523A FA00 5207 FA01 5EA6 FA02 62D3 FA03 7CD6 FA04 5B85 FA05 6D1E FA06 66B4 FA07 8F3B FA08 884C FA09 964D FA0A 898B FA0B 5ED3 FA0C 5140 FA0D 55C0 FA10 585A FA12 6674 FA15 51DE FA16 732A FA17 76CA FA18 793C FA19 795E FA1A 7965 FA1B 798F FA1C 9756 FA1D 7CBE FA1E 7FBD FA20 8612 FA22 8AF8 FA25 9038 FA26 90FD FA2A 98EF FA2B 98FC FA2C 9928 FA2D 9DB4 FA2E 90DE FA2F 96B7 FA30 4FAE FA31 50E7 FA32 514D FA33 52C9 FA34 52E4 FA35 5351 FA36 559D FA37 5606 FA38 5668 FA39 5840 FA3A 58A8 FA3B 5C64 FA3C 5C6E FA3D 6094 FA3E 6168 FA3F 618E FA40 61F2 FA41 654F FA42 65E2 FA43 6691 FA44 6885 FA45 6D77 FA46 6E1A FA47 6F22 FA48 716E FA49 722B FA4A 7422 FA4B 7891 FA4C 793E FA4D 7949 FA4E 7948 FA4F 7950 FA50 7956 FA51 795D FA52 798D FA53 798E FA54 7A40 FA55 7A81 FA56 7BC0 FA57 7DF4 FA58 7E09 FA59 7E41 FA5A 7F72 FA5B 8005 FA5C 81ED FA5D FA5E 8279 FA5F 8457 FA60 8910 FA61 8996 FA62 8B01 FA63 8B39 FA64 8CD3 FA65 8D08 FA66 8FB6 FA67 9038 FA68 96E3 FA69 97FF FA6A 983B FA6B 6075 FA6C 242EE FA6D 8218 FA70 4E26 FA71 51B5 FA72 5168 FA73 4F80 FA74 5145 FA75 5180 FA76 52C7 FA77 52FA FA78 559D FA79 5555 FA7A 5599 FA7B 55E2 FA7C 585A FA7D 58B3 FA7E 5944 FA7F 5954 FA80 5A62 FA81 5B28 FA82 5ED2 FA83 5ED9 FA84 5F69 FA85 5FAD FA86 60D8 FA87 614E FA88 6108 FA89 618E FA8A 6160 FA8B 61F2 FA8C 6234 FA8D 63C4 FA8E 641C FA8F 6452 FA90 6556 FA91 6674 FA92 6717 FA93 671B FA94 6756 FA95 6B79 FA96 6BBA FA97 6D41 FA98 6EDB FA99 6ECB FA9A 6F22 FA9B 701E FA9C 716E FA9D 77A7 FA9E 7235 FA9F 72AF FAA0 732A FAA1 7471 FAA2 7506 FAA3 753B FAA4 761D FAA5 761F FAA6 76CA FAA7 76DB FAA8 76F4 FAA9 774A FAAA 7740 FAAB 78CC FAAC 7AB1 FAAD 7BC0 FAAE 7C7B FAAF 7D5B FAB0 7DF4 FAB1 7F3E FAB2 8005 FAB3 8352 FAB4 83EF FAB5 8779 FAB6 8941 FAB7 8986 FAB8 8996 FAB9 8ABF FABA 8AF8 FABB 8ACB FABC 8B01 FABD 8AFE FABE 8AED FABF 8B39 FAC0 8B8A FAC1 8D08 FAC2 8F38 FAC3 9072 FAC4 9199 FAC5 9276 FAC6 967C FAC7 96E3 FAC8 9756 FAC9 97DB FACA 97FF FACB 980B FACC 983B FACD 9B12 FACE 9F9C FACF 2284A FAD0 22844 FAD1 233D5 FAD2 3B9D FAD3 4018 FAD4 4039 FAD5 25249 FAD6 25CD0 FAD7 27ED3 FAD8 9F43 FAD9 9F8E FB00 <compat> 0066 0066 FB01 <compat> 0066 0069 FB02 <compat> 0066 006C FB03 <compat> 0066 0066 0069 FB04 <compat> 0066 0066 006C FB05 <compat> 017F 0074 FB06 <compat> 0073 0074 FB13 <compat> 0574 0576 FB14 <compat> 0574 0565 FB15 <compat> 0574 056B FB16 <compat> 057E 0576 FB17 <compat> 0574 056D FB1D 05D9 05B4 FB1F 05F2 05B7 FB20 <font> 05E2 FB21 <font> 05D0 FB22 <font> 05D3 FB23 <font> 05D4 FB24 <font> 05DB FB25 <font> 05DC FB26 <font> 05DD FB27 <font> 05E8 FB28 <font> 05EA FB29 <font> 002B FB2A 05E9 05C1 FB2B 05E9 05C2 FB2C FB49 05C1 FB2D FB49 05C2 FB2E 05D0 05B7 FB2F 05D0 05B8 FB30 05D0 05BC FB31 05D1 05BC FB32 05D2 05BC FB33 05D3 05BC FB34 05D4 05BC FB35 05D5 05BC FB36 05D6 05BC FB38 05D8 05BC FB39 05D9 05BC FB3A 05DA 05BC FB3B 05DB 05BC FB3C 05DC 05BC FB3E 05DE 05BC FB40 05E0 05BC FB41 05E1 05BC FB43 05E3 05BC FB44 05E4 05BC FB46 05E6 05BC FB47 05E7 05BC FB48 05E8 05BC FB49 05E9 05BC FB4A 05EA 05BC FB4B 05D5 05B9 FB4C 05D1 05BF FB4D 05DB 05BF FB4E 05E4 05BF FB4F <compat> 05D0 05DC FB50 <isolated> 0671 FB51 <final> 0671 FB52 <isolated> 067B FB53 <final> 067B FB54 <initial> 067B FB55 <medial> 067B FB56 <isolated> 067E FB57 <final> 067E FB58 <initial> 067E FB59 <medial> 067E FB5A <isolated> 0680 FB5B <final> 0680 FB5C <initial> 0680 FB5D <medial> 0680 FB5E <isolated> 067A FB5F <final> 067A FB60 <initial> 067A FB61 <medial> 067A FB62 <isolated> 067F FB63 <final> 067F FB64 <initial> 067F FB65 <medial> 067F FB66 <isolated> 0679 FB67 <final> 0679 FB68 <initial> 0679 FB69 <medial> 0679 FB6A <isolated> 06A4 FB6B <final> 06A4 FB6C <initial> 06A4 FB6D <medial> 06A4 FB6E <isolated> 06A6 FB6F <final> 06A6 FB70 <initial> 06A6 FB71 <medial> 06A6 FB72 <isolated> 0684 FB73 <final> 0684 FB74 <initial> 0684 FB75 <medial> 0684 FB76 <isolated> 0683 FB77 <final> 0683 FB78 <initial> 0683 FB79 <medial> 0683 FB7A <isolated> 0686 FB7B <final> 0686 FB7C <initial> 0686 FB7D <medial> 0686 FB7E <isolated> 0687 FB7F <final> 0687 FB80 <initial> 0687 FB81 <medial> 0687 FB82 <isolated> 068D FB83 <final> 068D FB84 <isolated> 068C FB85 <final> 068C FB86 <isolated> 068E FB87 <final> 068E FB88 <isolated> 0688 FB89 <final> 0688 FB8A <isolated> 0698 FB8B <final> 0698 FB8C <isolated> 0691 FB8D <final> 0691 FB8E <isolated> 06A9 FB8F <final> 06A9 FB90 <initial> 06A9 FB91 <medial> 06A9 FB92 <isolated> 06AF FB93 <final> 06AF FB94 <initial> 06AF FB95 <medial> 06AF FB96 <isolated> 06B3 FB97 <final> 06B3 FB98 <initial> 06B3 FB99 <medial> 06B3 FB9A <isolated> 06B1 FB9B <final> 06B1 FB9C <initial> 06B1 FB9D <medial> 06B1 FB9E <isolated> 06BA FB9F <final> 06BA FBA0 <isolated> 06BB FBA1 <final> 06BB FBA2 <initial> 06BB FBA3 <medial> 06BB FBA4 <isolated> 06C0 FBA5 <final> 06C0 FBA6 <isolated> 06C1 FBA7 <final> 06C1 FBA8 <initial> 06C1 FBA9 <medial> 06C1 FBAA <isolated> 06BE FBAB <final> 06BE FBAC <initial> 06BE FBAD <medial> 06BE FBAE <isolated> 06D2 FBAF <final> 06D2 FBB0 <isolated> 06D3 FBB1 <final> 06D3 FBD3 <isolated> 06AD FBD4 <final> 06AD FBD5 <initial> 06AD FBD6 <medial> 06AD FBD7 <isolated> 06C7 FBD8 <final> 06C7 FBD9 <isolated> 06C6 FBDA <final> 06C6 FBDB <isolated> 06C8 FBDC <final> 06C8 FBDD <isolated> 0677 FBDE <isolated> 06CB FBDF <final> 06CB FBE0 <isolated> 06C5 FBE1 <final> 06C5 FBE2 <isolated> 06C9 FBE3 <final> 06C9 FBE4 <isolated> 06D0 FBE5 <final> 06D0 FBE6 <initial> 06D0 FBE7 <medial> 06D0 FBE8 <initial> 0649 FBE9 <medial> 0649 FBEA <isolated> 0626 0627 FBEB <final> 0626 0627 FBEC <isolated> 0626 06D5 FBED <final> 0626 06D5 FBEE <isolated> 0626 0648 FBEF <final> 0626 0648 FBF0 <isolated> 0626 06C7 FBF1 <final> 0626 06C7 FBF2 <isolated> 0626 06C6 FBF3 <final> 0626 06C6 FBF4 <isolated> 0626 06C8 FBF5 <final> 0626 06C8 FBF6 <isolated> 0626 06D0 FBF7 <final> 0626 06D0 FBF8 <initial> 0626 06D0 FBF9 <isolated> 0626 0649 FBFA <final> 0626 0649 FBFB <initial> 0626 0649 FBFC <isolated> 06CC FBFD <final> 06CC FBFE <initial> 06CC FBFF <medial> 06CC FC00 <isolated> 0626 062C FC01 <isolated> 0626 062D FC02 <isolated> 0626 0645 FC03 <isolated> 0626 0649 FC04 <isolated> 0626 064A FC05 <isolated> 0628 062C FC06 <isolated> 0628 062D FC07 <isolated> 0628 062E FC08 <isolated> 0628 0645 FC09 <isolated> 0628 0649 FC0A <isolated> 0628 064A FC0B <isolated> 062A 062C FC0C <isolated> 062A 062D FC0D <isolated> 062A 062E FC0E <isolated> 062A 0645 FC0F <isolated> 062A 0649 FC10 <isolated> 062A 064A FC11 <isolated> 062B 062C FC12 <isolated> 062B 0645 FC13 <isolated> 062B 0649 FC14 <isolated> 062B 064A FC15 <isolated> 062C 062D FC16 <isolated> 062C 0645 FC17 <isolated> 062D 062C FC18 <isolated> 062D 0645 FC19 <isolated> 062E 062C FC1A <isolated> 062E 062D FC1B <isolated> 062E 0645 FC1C <isolated> 0633 062C FC1D <isolated> 0633 062D FC1E <isolated> 0633 062E FC1F <isolated> 0633 0645 FC20 <isolated> 0635 062D FC21 <isolated> 0635 0645 FC22 <isolated> 0636 062C FC23 <isolated> 0636 062D FC24 <isolated> 0636 062E FC25 <isolated> 0636 0645 FC26 <isolated> 0637 062D FC27 <isolated> 0637 0645 FC28 <isolated> 0638 0645 FC29 <isolated> 0639 062C FC2A <isolated> 0639 0645 FC2B <isolated> 063A 062C FC2C <isolated> 063A 0645 FC2D <isolated> 0641 062C FC2E <isolated> 0641 062D FC2F <isolated> 0641 062E FC30 <isolated> 0641 0645 FC31 <isolated> 0641 0649 FC32 <isolated> 0641 064A FC33 <isolated> 0642 062D FC34 <isolated> 0642 0645 FC35 <isolated> 0642 0649 FC36 <isolated> 0642 064A FC37 <isolated> 0643 0627 FC38 <isolated> 0643 062C FC39 <isolated> 0643 062D FC3A <isolated> 0643 062E FC3B <isolated> 0643 0644 FC3C <isolated> 0643 0645 FC3D <isolated> 0643 0649 FC3E <isolated> 0643 064A FC3F <isolated> 0644 062C FC40 <isolated> 0644 062D FC41 <isolated> 0644 062E FC42 <isolated> 0644 0645 FC43 <isolated> 0644 0649 FC44 <isolated> 0644 064A FC45 <isolated> 0645 062C FC46 <isolated> 0645 062D FC47 <isolated> 0645 062E FC48 <isolated> 0645 0645 FC49 <isolated> 0645 0649 FC4A <isolated> 0645 064A FC4B <isolated> 0646 062C FC4C <isolated> 0646 062D FC4D <isolated> 0646 062E FC4E <isolated> 0646 0645 FC4F <isolated> 0646 0649 FC50 <isolated> 0646 064A FC51 <isolated> 0647 062C FC52 <isolated> 0647 0645 FC53 <isolated> 0647 0649 FC54 <isolated> 0647 064A FC55 <isolated> 064A 062C FC56 <isolated> 064A 062D FC57 <isolated> 064A 062E FC58 <isolated> 064A 0645 FC59 <isolated> 064A 0649 FC5A <isolated> 064A 064A FC5B <isolated> 0630 0670 FC5C <isolated> 0631 0670 FC5D <isolated> 0649 0670 FC5E <isolated> 0020 064C 0651 FC5F <isolated> 0020 064D 0651 FC60 <isolated> 0020 064E 0651 FC61 <isolated> 0020 064F 0651 FC62 <isolated> 0020 0650 0651 FC63 <isolated> 0020 0651 0670 FC64 <final> 0626 0631 FC65 <final> 0626 0632 FC66 <final> 0626 0645 FC67 <final> 0626 0646 FC68 <final> 0626 0649 FC69 <final> 0626 064A FC6A <final> 0628 0631 FC6B <final> 0628 0632 FC6C <final> 0628 0645 FC6D <final> 0628 0646 FC6E <final> 0628 0649 FC6F <final> 0628 064A FC70 <final> 062A 0631 FC71 <final> 062A 0632 FC72 <final> 062A 0645 FC73 <final> 062A 0646 FC74 <final> 062A 0649 FC75 <final> 062A 064A FC76 <final> 062B 0631 FC77 <final> 062B 0632 FC78 <final> 062B 0645 FC79 <final> 062B 0646 FC7A <final> 062B 0649 FC7B <final> 062B 064A FC7C <final> 0641 0649 FC7D <final> 0641 064A FC7E <final> 0642 0649 FC7F <final> 0642 064A FC80 <final> 0643 0627 FC81 <final> 0643 0644 FC82 <final> 0643 0645 FC83 <final> 0643 0649 FC84 <final> 0643 064A FC85 <final> 0644 0645 FC86 <final> 0644 0649 FC87 <final> 0644 064A FC88 <final> 0645 0627 FC89 <final> 0645 0645 FC8A <final> 0646 0631 FC8B <final> 0646 0632 FC8C <final> 0646 0645 FC8D <final> 0646 0646 FC8E <final> 0646 0649 FC8F <final> 0646 064A FC90 <final> 0649 0670 FC91 <final> 064A 0631 FC92 <final> 064A 0632 FC93 <final> 064A 0645 FC94 <final> 064A 0646 FC95 <final> 064A 0649 FC96 <final> 064A 064A FC97 <initial> 0626 062C FC98 <initial> 0626 062D FC99 <initial> 0626 062E FC9A <initial> 0626 0645 FC9B <initial> 0626 0647 FC9C <initial> 0628 062C FC9D <initial> 0628 062D FC9E <initial> 0628 062E FC9F <initial> 0628 0645 FCA0 <initial> 0628 0647 FCA1 <initial> 062A 062C FCA2 <initial> 062A 062D FCA3 <initial> 062A 062E FCA4 <initial> 062A 0645 FCA5 <initial> 062A 0647 FCA6 <initial> 062B 0645 FCA7 <initial> 062C 062D FCA8 <initial> 062C 0645 FCA9 <initial> 062D 062C FCAA <initial> 062D 0645 FCAB <initial> 062E 062C FCAC <initial> 062E 0645 FCAD <initial> 0633 062C FCAE <initial> 0633 062D FCAF <initial> 0633 062E FCB0 <initial> 0633 0645 FCB1 <initial> 0635 062D FCB2 <initial> 0635 062E FCB3 <initial> 0635 0645 FCB4 <initial> 0636 062C FCB5 <initial> 0636 062D FCB6 <initial> 0636 062E FCB7 <initial> 0636 0645 FCB8 <initial> 0637 062D FCB9 <initial> 0638 0645 FCBA <initial> 0639 062C FCBB <initial> 0639 0645 FCBC <initial> 063A 062C FCBD <initial> 063A 0645 FCBE <initial> 0641 062C FCBF <initial> 0641 062D FCC0 <initial> 0641 062E FCC1 <initial> 0641 0645 FCC2 <initial> 0642 062D FCC3 <initial> 0642 0645 FCC4 <initial> 0643 062C FCC5 <initial> 0643 062D FCC6 <initial> 0643 062E FCC7 <initial> 0643 0644 FCC8 <initial> 0643 0645 FCC9 <initial> 0644 062C FCCA <initial> 0644 062D FCCB <initial> 0644 062E FCCC <initial> 0644 0645 FCCD <initial> 0644 0647 FCCE <initial> 0645 062C FCCF <initial> 0645 062D FCD0 <initial> 0645 062E FCD1 <initial> 0645 0645 FCD2 <initial> 0646 062C FCD3 <initial> 0646 062D FCD4 <initial> 0646 062E FCD5 <initial> 0646 0645 FCD6 <initial> 0646 0647 FCD7 <initial> 0647 062C FCD8 <initial> 0647 0645 FCD9 <initial> 0647 0670 FCDA <initial> 064A 062C FCDB <initial> 064A 062D FCDC <initial> 064A 062E FCDD <initial> 064A 0645 FCDE <initial> 064A 0647 FCDF <medial> 0626 0645 FCE0 <medial> 0626 0647 FCE1 <medial> 0628 0645 FCE2 <medial> 0628 0647 FCE3 <medial> 062A 0645 FCE4 <medial> 062A 0647 FCE5 <medial> 062B 0645 FCE6 <medial> 062B 0647 FCE7 <medial> 0633 0645 FCE8 <medial> 0633 0647 FCE9 <medial> 0634 0645 FCEA <medial> 0634 0647 FCEB <medial> 0643 0644 FCEC <medial> 0643 0645 FCED <medial> 0644 0645 FCEE <medial> 0646 0645 FCEF <medial> 0646 0647 FCF0 <medial> 064A 0645 FCF1 <medial> 064A 0647 FCF2 <medial> 0640 064E 0651 FCF3 <medial> 0640 064F 0651 FCF4 <medial> 0640 0650 0651 FCF5 <isolated> 0637 0649 FCF6 <isolated> 0637 064A FCF7 <isolated> 0639 0649 FCF8 <isolated> 0639 064A FCF9 <isolated> 063A 0649 FCFA <isolated> 063A 064A FCFB <isolated> 0633 0649 FCFC <isolated> 0633 064A FCFD <isolated> 0634 0649 FCFE <isolated> 0634 064A FCFF <isolated> 062D 0649 FD00 <isolated> 062D 064A FD01 <isolated> 062C 0649 FD02 <isolated> 062C 064A FD03 <isolated> 062E 0649 FD04 <isolated> 062E 064A FD05 <isolated> 0635 0649 FD06 <isolated> 0635 064A FD07 <isolated> 0636 0649 FD08 <isolated> 0636 064A FD09 <isolated> 0634 062C FD0A <isolated> 0634 062D FD0B <isolated> 0634 062E FD0C <isolated> 0634 0645 FD0D <isolated> 0634 0631 FD0E <isolated> 0633 0631 FD0F <isolated> 0635 0631 FD10 <isolated> 0636 0631 FD11 <final> 0637 0649 FD12 <final> 0637 064A FD13 <final> 0639 0649 FD14 <final> 0639 064A FD15 <final> 063A 0649 FD16 <final> 063A 064A FD17 <final> 0633 0649 FD18 <final> 0633 064A FD19 <final> 0634 0649 FD1A <final> 0634 064A FD1B <final> 062D 0649 FD1C <final> 062D 064A FD1D <final> 062C 0649 FD1E <final> 062C 064A FD1F <final> 062E 0649 FD20 <final> 062E 064A FD21 <final> 0635 0649 FD22 <final> 0635 064A FD23 <final> 0636 0649 FD24 <final> 0636 064A FD25 <final> 0634 062C FD26 <final> 0634 062D FD27 <final> 0634 062E FD28 <final> 0634 0645 FD29 <final> 0634 0631 FD2A <final> 0633 0631 FD2B <final> 0635 0631 FD2C <final> 0636 0631 FD2D <initial> 0634 062C FD2E <initial> 0634 062D FD2F <initial> 0634 062E FD30 <initial> 0634 0645 FD31 <initial> 0633 0647 FD32 <initial> 0634 0647 FD33 <initial> 0637 0645 FD34 <medial> 0633 062C FD35 <medial> 0633 062D FD36 <medial> 0633 062E FD37 <medial> 0634 062C FD38 <medial> 0634 062D FD39 <medial> 0634 062E FD3A <medial> 0637 0645 FD3B <medial> 0638 0645 FD3C <final> 0627 064B FD3D <isolated> 0627 064B FD50 <initial> 062A 062C 0645 FD51 <final> 062A 062D 062C FD52 <initial> 062A 062D 062C FD53 <initial> 062A 062D 0645 FD54 <initial> 062A 062E 0645 FD55 <initial> 062A 0645 062C FD56 <initial> 062A 0645 062D FD57 <initial> 062A 0645 062E FD58 <final> 062C 0645 062D FD59 <initial> 062C 0645 062D FD5A <final> 062D 0645 064A FD5B <final> 062D 0645 0649 FD5C <initial> 0633 062D 062C FD5D <initial> 0633 062C 062D FD5E <final> 0633 062C 0649 FD5F <final> 0633 0645 062D FD60 <initial> 0633 0645 062D FD61 <initial> 0633 0645 062C FD62 <final> 0633 0645 0645 FD63 <initial> 0633 0645 0645 FD64 <final> 0635 062D 062D FD65 <initial> 0635 062D 062D FD66 <final> 0635 0645 0645 FD67 <final> 0634 062D 0645 FD68 <initial> 0634 062D 0645 FD69 <final> 0634 062C 064A FD6A <final> 0634 0645 062E FD6B <initial> 0634 0645 062E FD6C <final> 0634 0645 0645 FD6D <initial> 0634 0645 0645 FD6E <final> 0636 062D 0649 FD6F <final> 0636 062E 0645 FD70 <initial> 0636 062E 0645 FD71 <final> 0637 0645 062D FD72 <initial> 0637 0645 062D FD73 <initial> 0637 0645 0645 FD74 <final> 0637 0645 064A FD75 <final> 0639 062C 0645 FD76 <final> 0639 0645 0645 FD77 <initial> 0639 0645 0645 FD78 <final> 0639 0645 0649 FD79 <final> 063A 0645 0645 FD7A <final> 063A 0645 064A FD7B <final> 063A 0645 0649 FD7C <final> 0641 062E 0645 FD7D <initial> 0641 062E 0645 FD7E <final> 0642 0645 062D FD7F <final> 0642 0645 0645 FD80 <final> 0644 062D 0645 FD81 <final> 0644 062D 064A FD82 <final> 0644 062D 0649 FD83 <initial> 0644 062C 062C FD84 <final> 0644 062C 062C FD85 <final> 0644 062E 0645 FD86 <initial> 0644 062E 0645 FD87 <final> 0644 0645 062D FD88 <initial> 0644 0645 062D FD89 <initial> 0645 062D 062C FD8A <initial> 0645 062D 0645 FD8B <final> 0645 062D 064A FD8C <initial> 0645 062C 062D FD8D <initial> 0645 062C 0645 FD8E <initial> 0645 062E 062C FD8F <initial> 0645 062E 0645 FD92 <initial> 0645 062C 062E FD93 <initial> 0647 0645 062C FD94 <initial> 0647 0645 0645 FD95 <initial> 0646 062D 0645 FD96 <final> 0646 062D 0649 FD97 <final> 0646 062C 0645 FD98 <initial> 0646 062C 0645 FD99 <final> 0646 062C 0649 FD9A <final> 0646 0645 064A FD9B <final> 0646 0645 0649 FD9C <final> 064A 0645 0645 FD9D <initial> 064A 0645 0645 FD9E <final> 0628 062E 064A FD9F <final> 062A 062C 064A FDA0 <final> 062A 062C 0649 FDA1 <final> 062A 062E 064A FDA2 <final> 062A 062E 0649 FDA3 <final> 062A 0645 064A FDA4 <final> 062A 0645 0649 FDA5 <final> 062C 0645 064A FDA6 <final> 062C 062D 0649 FDA7 <final> 062C 0645 0649 FDA8 <final> 0633 062E 0649 FDA9 <final> 0635 062D 064A FDAA <final> 0634 062D 064A FDAB <final> 0636 062D 064A FDAC <final> 0644 062C 064A FDAD <final> 0644 0645 064A FDAE <final> 064A 062D 064A FDAF <final> 064A 062C 064A FDB0 <final> 064A 0645 064A FDB1 <final> 0645 0645 064A FDB2 <final> 0642 0645 064A FDB3 <final> 0646 062D 064A FDB4 <initial> 0642 0645 062D FDB5 <initial> 0644 062D 0645 FDB6 <final> 0639 0645 064A FDB7 <final> 0643 0645 064A FDB8 <initial> 0646 062C 062D FDB9 <final> 0645 062E 064A FDBA <initial> 0644 062C 0645 FDBB <final> 0643 0645 0645 FDBC <final> 0644 062C 0645 FDBD <final> 0646 062C 062D FDBE <final> 062C 062D 064A FDBF <final> 062D 062C 064A FDC0 <final> 0645 062C 064A FDC1 <final> 0641 0645 064A FDC2 <final> 0628 062D 064A FDC3 <initial> 0643 0645 0645 FDC4 <initial> 0639 062C 0645 FDC5 <initial> 0635 0645 0645 FDC6 <final> 0633 062E 064A FDC7 <final> 0646 062C 064A FDF0 <isolated> 0635 0644 06D2 FDF1 <isolated> 0642 0644 06D2 FDF2 <isolated> 0627 0644 0644 0647 FDF3 <isolated> 0627 0643 0628 0631 FDF4 <isolated> 0645 062D 0645 062F FDF5 <isolated> 0635 0644 0639 0645 FDF6 <isolated> 0631 0633 0648 0644 FDF7 <isolated> 0639 0644 064A 0647 FDF8 <isolated> 0648 0633 0644 0645 FDF9 <isolated> 0635 0644 0649 FDFA <isolated> 0635 0644 0649 0020 0627 0644 0644 0647 0020 0639 0644 064A 0647 0020 0648 0633 0644 0645 FDFB <isolated> 062C 0644 0020 062C 0644 0627 0644 0647 FDFC <isolated> 0631 06CC 0627 0644 FE10 <vertical> 002C FE11 <vertical> 3001 FE12 <vertical> 3002 FE13 <vertical> 003A FE14 <vertical> 003B FE15 <vertical> 0021 FE16 <vertical> 003F FE17 <vertical> 3016 FE18 <vertical> 3017 FE19 <vertical> 2026 FE30 <vertical> 2025 FE31 <vertical> 2014 FE32 <vertical> 2013 FE33 FE34 <vertical> 005F FE35 <vertical> 0028 FE36 <vertical> 0029 FE37 <vertical> 007B FE38 <vertical> 007D FE39 <vertical> 3014 FE3A <vertical> 3015 FE3B <vertical> 3010 FE3C <vertical> 3011 FE3D <vertical> 300A FE3E <vertical> 300B FE3F <vertical> 3008 FE40 <vertical> 3009 FE41 <vertical> 300C FE42 <vertical> 300D FE43 <vertical> 300E FE44 <vertical> 300F FE47 <vertical> 005B FE48 <vertical> 005D FE49 FE4C <compat> 203E FE4D FE4F <compat> 005F FE50 <small> 002C FE51 <small> 3001 FE52 <small> 002E FE54 <small> 003B FE55 <small> 003A FE56 <small> 003F FE57 <small> 0021 FE58 <small> 2014 FE59 <small> 0028 FE5A <small> 0029 FE5B <small> 007B FE5C <small> 007D FE5D <small> 3014 FE5E <small> 3015 FE5F <small> 0023 FE60 <small> 0026 FE61 <small> 002A FE62 <small> 002B FE63 <small> 002D FE64 <small> 003C FE65 <small> 003E FE66 <small> 003D FE68 <small> 005C FE69 <small> 0024 FE6A <small> 0025 FE6B <small> 0040 FE70 <isolated> 0020 064B FE71 <medial> 0640 064B FE72 <isolated> 0020 064C FE74 <isolated> 0020 064D FE76 <isolated> 0020 064E FE77 <medial> 0640 064E FE78 <isolated> 0020 064F FE79 <medial> 0640 064F FE7A <isolated> 0020 0650 FE7B <medial> 0640 0650 FE7C <isolated> 0020 0651 FE7D <medial> 0640 0651 FE7E <isolated> 0020 0652 FE7F <medial> 0640 0652 FE80 <isolated> 0621 FE81 <isolated> 0622 FE82 <final> 0622 FE83 <isolated> 0623 FE84 <final> 0623 FE85 <isolated> 0624 FE86 <final> 0624 FE87 <isolated> 0625 FE88 <final> 0625 FE89 <isolated> 0626 FE8A <final> 0626 FE8B <initial> 0626 FE8C <medial> 0626 FE8D <isolated> 0627 FE8E <final> 0627 FE8F <isolated> 0628 FE90 <final> 0628 FE91 <initial> 0628 FE92 <medial> 0628 FE93 <isolated> 0629 FE94 <final> 0629 FE95 <isolated> 062A FE96 <final> 062A FE97 <initial> 062A FE98 <medial> 062A FE99 <isolated> 062B FE9A <final> 062B FE9B <initial> 062B FE9C <medial> 062B FE9D <isolated> 062C FE9E <final> 062C FE9F <initial> 062C FEA0 <medial> 062C FEA1 <isolated> 062D FEA2 <final> 062D FEA3 <initial> 062D FEA4 <medial> 062D FEA5 <isolated> 062E FEA6 <final> 062E FEA7 <initial> 062E FEA8 <medial> 062E FEA9 <isolated> 062F FEAA <final> 062F FEAB <isolated> 0630 FEAC <final> 0630 FEAD <isolated> 0631 FEAE <final> 0631 FEAF <isolated> 0632 FEB0 <final> 0632 FEB1 <isolated> 0633 FEB2 <final> 0633 FEB3 <initial> 0633 FEB4 <medial> 0633 FEB5 <isolated> 0634 FEB6 <final> 0634 FEB7 <initial> 0634 FEB8 <medial> 0634 FEB9 <isolated> 0635 FEBA <final> 0635 FEBB <initial> 0635 FEBC <medial> 0635 FEBD <isolated> 0636 FEBE <final> 0636 FEBF <initial> 0636 FEC0 <medial> 0636 FEC1 <isolated> 0637 FEC2 <final> 0637 FEC3 <initial> 0637 FEC4 <medial> 0637 FEC5 <isolated> 0638 FEC6 <final> 0638 FEC7 <initial> 0638 FEC8 <medial> 0638 FEC9 <isolated> 0639 FECA <final> 0639 FECB <initial> 0639 FECC <medial> 0639 FECD <isolated> 063A FECE <final> 063A FECF <initial> 063A FED0 <medial> 063A FED1 <isolated> 0641 FED2 <final> 0641 FED3 <initial> 0641 FED4 <medial> 0641 FED5 <isolated> 0642 FED6 <final> 0642 FED7 <initial> 0642 FED8 <medial> 0642 FED9 <isolated> 0643 FEDA <final> 0643 FEDB <initial> 0643 FEDC <medial> 0643 FEDD <isolated> 0644 FEDE <final> 0644 FEDF <initial> 0644 FEE0 <medial> 0644 FEE1 <isolated> 0645 FEE2 <final> 0645 FEE3 <initial> 0645 FEE4 <medial> 0645 FEE5 <isolated> 0646 FEE6 <final> 0646 FEE7 <initial> 0646 FEE8 <medial> 0646 FEE9 <isolated> 0647 FEEA <final> 0647 FEEB <initial> 0647 FEEC <medial> 0647 FEED <isolated> 0648 FEEE <final> 0648 FEEF <isolated> 0649 FEF0 <final> 0649 FEF1 <isolated> 064A FEF2 <final> 064A FEF3 <initial> 064A FEF4 <medial> 064A FEF5 <isolated> 0644 0622 FEF6 <final> 0644 0622 FEF7 <isolated> 0644 0623 FEF8 <final> 0644 0623 FEF9 <isolated> 0644 0625 FEFA <final> 0644 0625 FEFB <isolated> 0644 0627 FEFC <final> 0644 0627 FF01 <wide> 0021 FF02 <wide> 0022 FF03 <wide> 0023 FF04 <wide> 0024 FF05 <wide> 0025 FF06 <wide> 0026 FF07 <wide> 0027 FF08 <wide> 0028 FF09 <wide> 0029 FF0A <wide> 002A FF0B <wide> 002B FF0C <wide> 002C FF0D <wide> 002D FF0E <wide> 002E FF0F <wide> 002F FF10 <wide> 0030 FF11 <wide> 0031 FF12 <wide> 0032 FF13 <wide> 0033 FF14 <wide> 0034 FF15 <wide> 0035 FF16 <wide> 0036 FF17 <wide> 0037 FF18 <wide> 0038 FF19 <wide> 0039 FF1A <wide> 003A FF1B <wide> 003B FF1C <wide> 003C FF1D <wide> 003D FF1E <wide> 003E FF1F <wide> 003F FF20 <wide> 0040 FF21 <wide> 0041 FF22 <wide> 0042 FF23 <wide> 0043 FF24 <wide> 0044 FF25 <wide> 0045 FF26 <wide> 0046 FF27 <wide> 0047 FF28 <wide> 0048 FF29 <wide> 0049 FF2A <wide> 004A FF2B <wide> 004B FF2C <wide> 004C FF2D <wide> 004D FF2E <wide> 004E FF2F <wide> 004F FF30 <wide> 0050 FF31 <wide> 0051 FF32 <wide> 0052 FF33 <wide> 0053 FF34 <wide> 0054 FF35 <wide> 0055 FF36 <wide> 0056 FF37 <wide> 0057 FF38 <wide> 0058 FF39 <wide> 0059 FF3A <wide> 005A FF3B <wide> 005B FF3C <wide> 005C FF3D <wide> 005D FF3E <wide> 005E FF3F <wide> 005F FF40 <wide> 0060 FF41 <wide> 0061 FF42 <wide> 0062 FF43 <wide> 0063 FF44 <wide> 0064 FF45 <wide> 0065 FF46 <wide> 0066 FF47 <wide> 0067 FF48 <wide> 0068 FF49 <wide> 0069 FF4A <wide> 006A FF4B <wide> 006B FF4C <wide> 006C FF4D <wide> 006D FF4E <wide> 006E FF4F <wide> 006F FF50 <wide> 0070 FF51 <wide> 0071 FF52 <wide> 0072 FF53 <wide> 0073 FF54 <wide> 0074 FF55 <wide> 0075 FF56 <wide> 0076 FF57 <wide> 0077 FF58 <wide> 0078 FF59 <wide> 0079 FF5A <wide> 007A FF5B <wide> 007B FF5C <wide> 007C FF5D <wide> 007D FF5E <wide> 007E FF5F <wide> 2985 FF60 <wide> 2986 FF61 <narrow> 3002 FF62 <narrow> 300C FF63 <narrow> 300D FF64 <narrow> 3001 FF65 <narrow> 30FB FF66 <narrow> 30F2 FF67 <narrow> 30A1 FF68 <narrow> 30A3 FF69 <narrow> 30A5 FF6A <narrow> 30A7 FF6B <narrow> 30A9 FF6C <narrow> 30E3 FF6D <narrow> 30E5 FF6E <narrow> 30E7 FF6F <narrow> 30C3 FF70 <narrow> 30FC FF71 <narrow> 30A2 FF72 <narrow> 30A4 FF73 <narrow> 30A6 FF74 <narrow> 30A8 FF75 <narrow> 30AA FF76 <narrow> 30AB FF77 <narrow> 30AD FF78 <narrow> 30AF FF79 <narrow> 30B1 FF7A <narrow> 30B3 FF7B <narrow> 30B5 FF7C <narrow> 30B7 FF7D <narrow> 30B9 FF7E <narrow> 30BB FF7F <narrow> 30BD FF80 <narrow> 30BF FF81 <narrow> 30C1 FF82 <narrow> 30C4 FF83 <narrow> 30C6 FF84 <narrow> 30C8 FF85 <narrow> 30CA FF86 <narrow> 30CB FF87 <narrow> 30CC FF88 <narrow> 30CD FF89 <narrow> 30CE FF8A <narrow> 30CF FF8B <narrow> 30D2 FF8C <narrow> 30D5 FF8D <narrow> 30D8 FF8E <narrow> 30DB FF8F <narrow> 30DE FF90 <narrow> 30DF FF91 <narrow> 30E0 FF92 <narrow> 30E1 FF93 <narrow> 30E2 FF94 <narrow> 30E4 FF95 <narrow> 30E6 FF96 <narrow> 30E8 FF97 <narrow> 30E9 FF98 <narrow> 30EA FF99 <narrow> 30EB FF9A <narrow> 30EC FF9B <narrow> 30ED FF9C <narrow> 30EF FF9D <narrow> 30F3 FF9E <narrow> 3099 FF9F <narrow> 309A FFA0 <narrow> 3164 FFA1 <narrow> 3131 FFA2 <narrow> 3132 FFA3 <narrow> 3133 FFA4 <narrow> 3134 FFA5 <narrow> 3135 FFA6 <narrow> 3136 FFA7 <narrow> 3137 FFA8 <narrow> 3138 FFA9 <narrow> 3139 FFAA <narrow> 313A FFAB <narrow> 313B FFAC <narrow> 313C FFAD <narrow> 313D FFAE <narrow> 313E FFAF <narrow> 313F FFB0 <narrow> 3140 FFB1 <narrow> 3141 FFB2 <narrow> 3142 FFB3 <narrow> 3143 FFB4 <narrow> 3144 FFB5 <narrow> 3145 FFB6 <narrow> 3146 FFB7 <narrow> 3147 FFB8 <narrow> 3148 FFB9 <narrow> 3149 FFBA <narrow> 314A FFBB <narrow> 314B FFBC <narrow> 314C FFBD <narrow> 314D FFBE <narrow> 314E FFC2 <narrow> 314F FFC3 <narrow> 3150 FFC4 <narrow> 3151 FFC5 <narrow> 3152 FFC6 <narrow> 3153 FFC7 <narrow> 3154 FFCA <narrow> 3155 FFCB <narrow> 3156 FFCC <narrow> 3157 FFCD <narrow> 3158 FFCE <narrow> 3159 FFCF <narrow> 315A FFD2 <narrow> 315B FFD3 <narrow> 315C FFD4 <narrow> 315D FFD5 <narrow> 315E FFD6 <narrow> 315F FFD7 <narrow> 3160 FFDA <narrow> 3161 FFDB <narrow> 3162 FFDC <narrow> 3163 FFE0 <wide> 00A2 FFE1 <wide> 00A3 FFE2 <wide> 00AC FFE3 <wide> 00AF FFE4 <wide> 00A6 FFE5 <wide> 00A5 FFE6 <wide> 20A9 FFE8 <narrow> 2502 FFE9 <narrow> 2190 FFEA <narrow> 2191 FFEB <narrow> 2192 FFEC <narrow> 2193 FFED <narrow> 25A0 FFEE <narrow> 25CB 1109A 11099 110BA 1109C 1109B 110BA 110AB 110A5 110BA 1112E 11131 11127 1112F 11132 11127 1134B 11347 1133E 1134C 11347 11357 114BB 114B9 114BA 114BC 114B9 114B0 114BE 114B9 114BD 115BA 115B8 115AF 115BB 115B9 115AF 11938 11935 11930 1D15E 1D157 1D165 1D15F 1D158 1D165 1D160 1D15F 1D16E 1D161 1D15F 1D16F 1D162 1D15F 1D170 1D163 1D15F 1D171 1D164 1D15F 1D172 1D1BB 1D1B9 1D165 1D1BC 1D1BA 1D165 1D1BD 1D1BB 1D16E 1D1BE 1D1BC 1D16E 1D1BF 1D1BB 1D16F 1D1C0 1D1BC 1D16F 1D400 <font> 0041 1D401 <font> 0042 1D402 <font> 0043 1D403 <font> 0044 1D404 <font> 0045 1D405 <font> 0046 1D406 <font> 0047 1D407 <font> 0048 1D408 <font> 0049 1D409 <font> 004A 1D40A <font> 004B 1D40B <font> 004C 1D40C <font> 004D 1D40D <font> 004E 1D40E <font> 004F 1D40F <font> 0050 1D410 <font> 0051 1D411 <font> 0052 1D412 <font> 0053 1D413 <font> 0054 1D414 <font> 0055 1D415 <font> 0056 1D416 <font> 0057 1D417 <font> 0058 1D418 <font> 0059 1D419 <font> 005A 1D41A <font> 0061 1D41B <font> 0062 1D41C <font> 0063 1D41D <font> 0064 1D41E <font> 0065 1D41F <font> 0066 1D420 <font> 0067 1D421 <font> 0068 1D422 <font> 0069 1D423 <font> 006A 1D424 <font> 006B 1D425 <font> 006C 1D426 <font> 006D 1D427 <font> 006E 1D428 <font> 006F 1D429 <font> 0070 1D42A <font> 0071 1D42B <font> 0072 1D42C <font> 0073 1D42D <font> 0074 1D42E <font> 0075 1D42F <font> 0076 1D430 <font> 0077 1D431 <font> 0078 1D432 <font> 0079 1D433 <font> 007A 1D434 <font> 0041 1D435 <font> 0042 1D436 <font> 0043 1D437 <font> 0044 1D438 <font> 0045 1D439 <font> 0046 1D43A <font> 0047 1D43B <font> 0048 1D43C <font> 0049 1D43D <font> 004A 1D43E <font> 004B 1D43F <font> 004C 1D440 <font> 004D 1D441 <font> 004E 1D442 <font> 004F 1D443 <font> 0050 1D444 <font> 0051 1D445 <font> 0052 1D446 <font> 0053 1D447 <font> 0054 1D448 <font> 0055 1D449 <font> 0056 1D44A <font> 0057 1D44B <font> 0058 1D44C <font> 0059 1D44D <font> 005A 1D44E <font> 0061 1D44F <font> 0062 1D450 <font> 0063 1D451 <font> 0064 1D452 <font> 0065 1D453 <font> 0066 1D454 <font> 0067 1D456 <font> 0069 1D457 <font> 006A 1D458 <font> 006B 1D459 <font> 006C 1D45A <font> 006D 1D45B <font> 006E 1D45C <font> 006F 1D45D <font> 0070 1D45E <font> 0071 1D45F <font> 0072 1D460 <font> 0073 1D461 <font> 0074 1D462 <font> 0075 1D463 <font> 0076 1D464 <font> 0077 1D465 <font> 0078 1D466 <font> 0079 1D467 <font> 007A 1D468 <font> 0041 1D469 <font> 0042 1D46A <font> 0043 1D46B <font> 0044 1D46C <font> 0045 1D46D <font> 0046 1D46E <font> 0047 1D46F <font> 0048 1D470 <font> 0049 1D471 <font> 004A 1D472 <font> 004B 1D473 <font> 004C 1D474 <font> 004D 1D475 <font> 004E 1D476 <font> 004F 1D477 <font> 0050 1D478 <font> 0051 1D479 <font> 0052 1D47A <font> 0053 1D47B <font> 0054 1D47C <font> 0055 1D47D <font> 0056 1D47E <font> 0057 1D47F <font> 0058 1D480 <font> 0059 1D481 <font> 005A 1D482 <font> 0061 1D483 <font> 0062 1D484 <font> 0063 1D485 <font> 0064 1D486 <font> 0065 1D487 <font> 0066 1D488 <font> 0067 1D489 <font> 0068 1D48A <font> 0069 1D48B <font> 006A 1D48C <font> 006B 1D48D <font> 006C 1D48E <font> 006D 1D48F <font> 006E 1D490 <font> 006F 1D491 <font> 0070 1D492 <font> 0071 1D493 <font> 0072 1D494 <font> 0073 1D495 <font> 0074 1D496 <font> 0075 1D497 <font> 0076 1D498 <font> 0077 1D499 <font> 0078 1D49A <font> 0079 1D49B <font> 007A 1D49C <font> 0041 1D49E <font> 0043 1D49F <font> 0044 1D4A2 <font> 0047 1D4A5 <font> 004A 1D4A6 <font> 004B 1D4A9 <font> 004E 1D4AA <font> 004F 1D4AB <font> 0050 1D4AC <font> 0051 1D4AE <font> 0053 1D4AF <font> 0054 1D4B0 <font> 0055 1D4B1 <font> 0056 1D4B2 <font> 0057 1D4B3 <font> 0058 1D4B4 <font> 0059 1D4B5 <font> 005A 1D4B6 <font> 0061 1D4B7 <font> 0062 1D4B8 <font> 0063 1D4B9 <font> 0064 1D4BB <font> 0066 1D4BD <font> 0068 1D4BE <font> 0069 1D4BF <font> 006A 1D4C0 <font> 006B 1D4C1 <font> 006C 1D4C2 <font> 006D 1D4C3 <font> 006E 1D4C5 <font> 0070 1D4C6 <font> 0071 1D4C7 <font> 0072 1D4C8 <font> 0073 1D4C9 <font> 0074 1D4CA <font> 0075 1D4CB <font> 0076 1D4CC <font> 0077 1D4CD <font> 0078 1D4CE <font> 0079 1D4CF <font> 007A 1D4D0 <font> 0041 1D4D1 <font> 0042 1D4D2 <font> 0043 1D4D3 <font> 0044 1D4D4 <font> 0045 1D4D5 <font> 0046 1D4D6 <font> 0047 1D4D7 <font> 0048 1D4D8 <font> 0049 1D4D9 <font> 004A 1D4DA <font> 004B 1D4DB <font> 004C 1D4DC <font> 004D 1D4DD <font> 004E 1D4DE <font> 004F 1D4DF <font> 0050 1D4E0 <font> 0051 1D4E1 <font> 0052 1D4E2 <font> 0053 1D4E3 <font> 0054 1D4E4 <font> 0055 1D4E5 <font> 0056 1D4E6 <font> 0057 1D4E7 <font> 0058 1D4E8 <font> 0059 1D4E9 <font> 005A 1D4EA <font> 0061 1D4EB <font> 0062 1D4EC <font> 0063 1D4ED <font> 0064 1D4EE <font> 0065 1D4EF <font> 0066 1D4F0 <font> 0067 1D4F1 <font> 0068 1D4F2 <font> 0069 1D4F3 <font> 006A 1D4F4 <font> 006B 1D4F5 <font> 006C 1D4F6 <font> 006D 1D4F7 <font> 006E 1D4F8 <font> 006F 1D4F9 <font> 0070 1D4FA <font> 0071 1D4FB <font> 0072 1D4FC <font> 0073 1D4FD <font> 0074 1D4FE <font> 0075 1D4FF <font> 0076 1D500 <font> 0077 1D501 <font> 0078 1D502 <font> 0079 1D503 <font> 007A 1D504 <font> 0041 1D505 <font> 0042 1D507 <font> 0044 1D508 <font> 0045 1D509 <font> 0046 1D50A <font> 0047 1D50D <font> 004A 1D50E <font> 004B 1D50F <font> 004C 1D510 <font> 004D 1D511 <font> 004E 1D512 <font> 004F 1D513 <font> 0050 1D514 <font> 0051 1D516 <font> 0053 1D517 <font> 0054 1D518 <font> 0055 1D519 <font> 0056 1D51A <font> 0057 1D51B <font> 0058 1D51C <font> 0059 1D51E <font> 0061 1D51F <font> 0062 1D520 <font> 0063 1D521 <font> 0064 1D522 <font> 0065 1D523 <font> 0066 1D524 <font> 0067 1D525 <font> 0068 1D526 <font> 0069 1D527 <font> 006A 1D528 <font> 006B 1D529 <font> 006C 1D52A <font> 006D 1D52B <font> 006E 1D52C <font> 006F 1D52D <font> 0070 1D52E <font> 0071 1D52F <font> 0072 1D530 <font> 0073 1D531 <font> 0074 1D532 <font> 0075 1D533 <font> 0076 1D534 <font> 0077 1D535 <font> 0078 1D536 <font> 0079 1D537 <font> 007A 1D538 <font> 0041 1D539 <font> 0042 1D53B <font> 0044 1D53C <font> 0045 1D53D <font> 0046 1D53E <font> 0047 1D540 <font> 0049 1D541 <font> 004A 1D542 <font> 004B 1D543 <font> 004C 1D544 <font> 004D 1D546 <font> 004F 1D54A <font> 0053 1D54B <font> 0054 1D54C <font> 0055 1D54D <font> 0056 1D54E <font> 0057 1D54F <font> 0058 1D550 <font> 0059 1D552 <font> 0061 1D553 <font> 0062 1D554 <font> 0063 1D555 <font> 0064 1D556 <font> 0065 1D557 <font> 0066 1D558 <font> 0067 1D559 <font> 0068 1D55A <font> 0069 1D55B <font> 006A 1D55C <font> 006B 1D55D <font> 006C 1D55E <font> 006D 1D55F <font> 006E 1D560 <font> 006F 1D561 <font> 0070 1D562 <font> 0071 1D563 <font> 0072 1D564 <font> 0073 1D565 <font> 0074 1D566 <font> 0075 1D567 <font> 0076 1D568 <font> 0077 1D569 <font> 0078 1D56A <font> 0079 1D56B <font> 007A 1D56C <font> 0041 1D56D <font> 0042 1D56E <font> 0043 1D56F <font> 0044 1D570 <font> 0045 1D571 <font> 0046 1D572 <font> 0047 1D573 <font> 0048 1D574 <font> 0049 1D575 <font> 004A 1D576 <font> 004B 1D577 <font> 004C 1D578 <font> 004D 1D579 <font> 004E 1D57A <font> 004F 1D57B <font> 0050 1D57C <font> 0051 1D57D <font> 0052 1D57E <font> 0053 1D57F <font> 0054 1D580 <font> 0055 1D581 <font> 0056 1D582 <font> 0057 1D583 <font> 0058 1D584 <font> 0059 1D585 <font> 005A 1D586 <font> 0061 1D587 <font> 0062 1D588 <font> 0063 1D589 <font> 0064 1D58A <font> 0065 1D58B <font> 0066 1D58C <font> 0067 1D58D <font> 0068 1D58E <font> 0069 1D58F <font> 006A 1D590 <font> 006B 1D591 <font> 006C 1D592 <font> 006D 1D593 <font> 006E 1D594 <font> 006F 1D595 <font> 0070 1D596 <font> 0071 1D597 <font> 0072 1D598 <font> 0073 1D599 <font> 0074 1D59A <font> 0075 1D59B <font> 0076 1D59C <font> 0077 1D59D <font> 0078 1D59E <font> 0079 1D59F <font> 007A 1D5A0 <font> 0041 1D5A1 <font> 0042 1D5A2 <font> 0043 1D5A3 <font> 0044 1D5A4 <font> 0045 1D5A5 <font> 0046 1D5A6 <font> 0047 1D5A7 <font> 0048 1D5A8 <font> 0049 1D5A9 <font> 004A 1D5AA <font> 004B 1D5AB <font> 004C 1D5AC <font> 004D 1D5AD <font> 004E 1D5AE <font> 004F 1D5AF <font> 0050 1D5B0 <font> 0051 1D5B1 <font> 0052 1D5B2 <font> 0053 1D5B3 <font> 0054 1D5B4 <font> 0055 1D5B5 <font> 0056 1D5B6 <font> 0057 1D5B7 <font> 0058 1D5B8 <font> 0059 1D5B9 <font> 005A 1D5BA <font> 0061 1D5BB <font> 0062 1D5BC <font> 0063 1D5BD <font> 0064 1D5BE <font> 0065 1D5BF <font> 0066 1D5C0 <font> 0067 1D5C1 <font> 0068 1D5C2 <font> 0069 1D5C3 <font> 006A 1D5C4 <font> 006B 1D5C5 <font> 006C 1D5C6 <font> 006D 1D5C7 <font> 006E 1D5C8 <font> 006F 1D5C9 <font> 0070 1D5CA <font> 0071 1D5CB <font> 0072 1D5CC <font> 0073 1D5CD <font> 0074 1D5CE <font> 0075 1D5CF <font> 0076 1D5D0 <font> 0077 1D5D1 <font> 0078 1D5D2 <font> 0079 1D5D3 <font> 007A 1D5D4 <font> 0041 1D5D5 <font> 0042 1D5D6 <font> 0043 1D5D7 <font> 0044 1D5D8 <font> 0045 1D5D9 <font> 0046 1D5DA <font> 0047 1D5DB <font> 0048 1D5DC <font> 0049 1D5DD <font> 004A 1D5DE <font> 004B 1D5DF <font> 004C 1D5E0 <font> 004D 1D5E1 <font> 004E 1D5E2 <font> 004F 1D5E3 <font> 0050 1D5E4 <font> 0051 1D5E5 <font> 0052 1D5E6 <font> 0053 1D5E7 <font> 0054 1D5E8 <font> 0055 1D5E9 <font> 0056 1D5EA <font> 0057 1D5EB <font> 0058 1D5EC <font> 0059 1D5ED <font> 005A 1D5EE <font> 0061 1D5EF <font> 0062 1D5F0 <font> 0063 1D5F1 <font> 0064 1D5F2 <font> 0065 1D5F3 <font> 0066 1D5F4 <font> 0067 1D5F5 <font> 0068 1D5F6 <font> 0069 1D5F7 <font> 006A 1D5F8 <font> 006B 1D5F9 <font> 006C 1D5FA <font> 006D 1D5FB <font> 006E 1D5FC <font> 006F 1D5FD <font> 0070 1D5FE <font> 0071 1D5FF <font> 0072 1D600 <font> 0073 1D601 <font> 0074 1D602 <font> 0075 1D603 <font> 0076 1D604 <font> 0077 1D605 <font> 0078 1D606 <font> 0079 1D607 <font> 007A 1D608 <font> 0041 1D609 <font> 0042 1D60A <font> 0043 1D60B <font> 0044 1D60C <font> 0045 1D60D <font> 0046 1D60E <font> 0047 1D60F <font> 0048 1D610 <font> 0049 1D611 <font> 004A 1D612 <font> 004B 1D613 <font> 004C 1D614 <font> 004D 1D615 <font> 004E 1D616 <font> 004F 1D617 <font> 0050 1D618 <font> 0051 1D619 <font> 0052 1D61A <font> 0053 1D61B <font> 0054 1D61C <font> 0055 1D61D <font> 0056 1D61E <font> 0057 1D61F <font> 0058 1D620 <font> 0059 1D621 <font> 005A 1D622 <font> 0061 1D623 <font> 0062 1D624 <font> 0063 1D625 <font> 0064 1D626 <font> 0065 1D627 <font> 0066 1D628 <font> 0067 1D629 <font> 0068 1D62A <font> 0069 1D62B <font> 006A 1D62C <font> 006B 1D62D <font> 006C 1D62E <font> 006D 1D62F <font> 006E 1D630 <font> 006F 1D631 <font> 0070 1D632 <font> 0071 1D633 <font> 0072 1D634 <font> 0073 1D635 <font> 0074 1D636 <font> 0075 1D637 <font> 0076 1D638 <font> 0077 1D639 <font> 0078 1D63A <font> 0079 1D63B <font> 007A 1D63C <font> 0041 1D63D <font> 0042 1D63E <font> 0043 1D63F <font> 0044 1D640 <font> 0045 1D641 <font> 0046 1D642 <font> 0047 1D643 <font> 0048 1D644 <font> 0049 1D645 <font> 004A 1D646 <font> 004B 1D647 <font> 004C 1D648 <font> 004D 1D649 <font> 004E 1D64A <font> 004F 1D64B <font> 0050 1D64C <font> 0051 1D64D <font> 0052 1D64E <font> 0053 1D64F <font> 0054 1D650 <font> 0055 1D651 <font> 0056 1D652 <font> 0057 1D653 <font> 0058 1D654 <font> 0059 1D655 <font> 005A 1D656 <font> 0061 1D657 <font> 0062 1D658 <font> 0063 1D659 <font> 0064 1D65A <font> 0065 1D65B <font> 0066 1D65C <font> 0067 1D65D <font> 0068 1D65E <font> 0069 1D65F <font> 006A 1D660 <font> 006B 1D661 <font> 006C 1D662 <font> 006D 1D663 <font> 006E 1D664 <font> 006F 1D665 <font> 0070 1D666 <font> 0071 1D667 <font> 0072 1D668 <font> 0073 1D669 <font> 0074 1D66A <font> 0075 1D66B <font> 0076 1D66C <font> 0077 1D66D <font> 0078 1D66E <font> 0079 1D66F <font> 007A 1D670 <font> 0041 1D671 <font> 0042 1D672 <font> 0043 1D673 <font> 0044 1D674 <font> 0045 1D675 <font> 0046 1D676 <font> 0047 1D677 <font> 0048 1D678 <font> 0049 1D679 <font> 004A 1D67A <font> 004B 1D67B <font> 004C 1D67C <font> 004D 1D67D <font> 004E 1D67E <font> 004F 1D67F <font> 0050 1D680 <font> 0051 1D681 <font> 0052 1D682 <font> 0053 1D683 <font> 0054 1D684 <font> 0055 1D685 <font> 0056 1D686 <font> 0057 1D687 <font> 0058 1D688 <font> 0059 1D689 <font> 005A 1D68A <font> 0061 1D68B <font> 0062 1D68C <font> 0063 1D68D <font> 0064 1D68E <font> 0065 1D68F <font> 0066 1D690 <font> 0067 1D691 <font> 0068 1D692 <font> 0069 1D693 <font> 006A 1D694 <font> 006B 1D695 <font> 006C 1D696 <font> 006D 1D697 <font> 006E 1D698 <font> 006F 1D699 <font> 0070 1D69A <font> 0071 1D69B <font> 0072 1D69C <font> 0073 1D69D <font> 0074 1D69E <font> 0075 1D69F <font> 0076 1D6A0 <font> 0077 1D6A1 <font> 0078 1D6A2 <font> 0079 1D6A3 <font> 007A 1D6A4 <font> 0131 1D6A5 <font> 0237 1D6A8 <font> 0391 1D6A9 <font> 0392 1D6AA <font> 0393 1D6AB <font> 0394 1D6AC <font> 0395 1D6AD <font> 0396 1D6AE <font> 0397 1D6AF <font> 0398 1D6B0 <font> 0399 1D6B1 <font> 039A 1D6B2 <font> 039B 1D6B3 <font> 039C 1D6B4 <font> 039D 1D6B5 <font> 039E 1D6B6 <font> 039F 1D6B7 <font> 03A0 1D6B8 <font> 03A1 1D6B9 <font> 03F4 1D6BA <font> 03A3 1D6BB <font> 03A4 1D6BC <font> 03A5 1D6BD <font> 03A6 1D6BE <font> 03A7 1D6BF <font> 03A8 1D6C0 <font> 03A9 1D6C1 <font> 2207 1D6C2 <font> 03B1 1D6C3 <font> 03B2 1D6C4 <font> 03B3 1D6C5 <font> 03B4 1D6C6 <font> 03B5 1D6C7 <font> 03B6 1D6C8 <font> 03B7 1D6C9 <font> 03B8 1D6CA <font> 03B9 1D6CB <font> 03BA 1D6CC <font> 03BB 1D6CD <font> 03BC 1D6CE <font> 03BD 1D6CF <font> 03BE 1D6D0 <font> 03BF 1D6D1 <font> 03C0 1D6D2 <font> 03C1 1D6D3 <font> 03C2 1D6D4 <font> 03C3 1D6D5 <font> 03C4 1D6D6 <font> 03C5 1D6D7 <font> 03C6 1D6D8 <font> 03C7 1D6D9 <font> 03C8 1D6DA <font> 03C9 1D6DB <font> 2202 1D6DC <font> 03F5 1D6DD <font> 03D1 1D6DE <font> 03F0 1D6DF <font> 03D5 1D6E0 <font> 03F1 1D6E1 <font> 03D6 1D6E2 <font> 0391 1D6E3 <font> 0392 1D6E4 <font> 0393 1D6E5 <font> 0394 1D6E6 <font> 0395 1D6E7 <font> 0396 1D6E8 <font> 0397 1D6E9 <font> 0398 1D6EA <font> 0399 1D6EB <font> 039A 1D6EC <font> 039B 1D6ED <font> 039C 1D6EE <font> 039D 1D6EF <font> 039E 1D6F0 <font> 039F 1D6F1 <font> 03A0 1D6F2 <font> 03A1 1D6F3 <font> 03F4 1D6F4 <font> 03A3 1D6F5 <font> 03A4 1D6F6 <font> 03A5 1D6F7 <font> 03A6 1D6F8 <font> 03A7 1D6F9 <font> 03A8 1D6FA <font> 03A9 1D6FB <font> 2207 1D6FC <font> 03B1 1D6FD <font> 03B2 1D6FE <font> 03B3 1D6FF <font> 03B4 1D700 <font> 03B5 1D701 <font> 03B6 1D702 <font> 03B7 1D703 <font> 03B8 1D704 <font> 03B9 1D705 <font> 03BA 1D706 <font> 03BB 1D707 <font> 03BC 1D708 <font> 03BD 1D709 <font> 03BE 1D70A <font> 03BF 1D70B <font> 03C0 1D70C <font> 03C1 1D70D <font> 03C2 1D70E <font> 03C3 1D70F <font> 03C4 1D710 <font> 03C5 1D711 <font> 03C6 1D712 <font> 03C7 1D713 <font> 03C8 1D714 <font> 03C9 1D715 <font> 2202 1D716 <font> 03F5 1D717 <font> 03D1 1D718 <font> 03F0 1D719 <font> 03D5 1D71A <font> 03F1 1D71B <font> 03D6 1D71C <font> 0391 1D71D <font> 0392 1D71E <font> 0393 1D71F <font> 0394 1D720 <font> 0395 1D721 <font> 0396 1D722 <font> 0397 1D723 <font> 0398 1D724 <font> 0399 1D725 <font> 039A 1D726 <font> 039B 1D727 <font> 039C 1D728 <font> 039D 1D729 <font> 039E 1D72A <font> 039F 1D72B <font> 03A0 1D72C <font> 03A1 1D72D <font> 03F4 1D72E <font> 03A3 1D72F <font> 03A4 1D730 <font> 03A5 1D731 <font> 03A6 1D732 <font> 03A7 1D733 <font> 03A8 1D734 <font> 03A9 1D735 <font> 2207 1D736 <font> 03B1 1D737 <font> 03B2 1D738 <font> 03B3 1D739 <font> 03B4 1D73A <font> 03B5 1D73B <font> 03B6 1D73C <font> 03B7 1D73D <font> 03B8 1D73E <font> 03B9 1D73F <font> 03BA 1D740 <font> 03BB 1D741 <font> 03BC 1D742 <font> 03BD 1D743 <font> 03BE 1D744 <font> 03BF 1D745 <font> 03C0 1D746 <font> 03C1 1D747 <font> 03C2 1D748 <font> 03C3 1D749 <font> 03C4 1D74A <font> 03C5 1D74B <font> 03C6 1D74C <font> 03C7 1D74D <font> 03C8 1D74E <font> 03C9 1D74F <font> 2202 1D750 <font> 03F5 1D751 <font> 03D1 1D752 <font> 03F0 1D753 <font> 03D5 1D754 <font> 03F1 1D755 <font> 03D6 1D756 <font> 0391 1D757 <font> 0392 1D758 <font> 0393 1D759 <font> 0394 1D75A <font> 0395 1D75B <font> 0396 1D75C <font> 0397 1D75D <font> 0398 1D75E <font> 0399 1D75F <font> 039A 1D760 <font> 039B 1D761 <font> 039C 1D762 <font> 039D 1D763 <font> 039E 1D764 <font> 039F 1D765 <font> 03A0 1D766 <font> 03A1 1D767 <font> 03F4 1D768 <font> 03A3 1D769 <font> 03A4 1D76A <font> 03A5 1D76B <font> 03A6 1D76C <font> 03A7 1D76D <font> 03A8 1D76E <font> 03A9 1D76F <font> 2207 1D770 <font> 03B1 1D771 <font> 03B2 1D772 <font> 03B3 1D773 <font> 03B4 1D774 <font> 03B5 1D775 <font> 03B6 1D776 <font> 03B7 1D777 <font> 03B8 1D778 <font> 03B9 1D779 <font> 03BA 1D77A <font> 03BB 1D77B <font> 03BC 1D77C <font> 03BD 1D77D <font> 03BE 1D77E <font> 03BF 1D77F <font> 03C0 1D780 <font> 03C1 1D781 <font> 03C2 1D782 <font> 03C3 1D783 <font> 03C4 1D784 <font> 03C5 1D785 <font> 03C6 1D786 <font> 03C7 1D787 <font> 03C8 1D788 <font> 03C9 1D789 <font> 2202 1D78A <font> 03F5 1D78B <font> 03D1 1D78C <font> 03F0 1D78D <font> 03D5 1D78E <font> 03F1 1D78F <font> 03D6 1D790 <font> 0391 1D791 <font> 0392 1D792 <font> 0393 1D793 <font> 0394 1D794 <font> 0395 1D795 <font> 0396 1D796 <font> 0397 1D797 <font> 0398 1D798 <font> 0399 1D799 <font> 039A 1D79A <font> 039B 1D79B <font> 039C 1D79C <font> 039D 1D79D <font> 039E 1D79E <font> 039F 1D79F <font> 03A0 1D7A0 <font> 03A1 1D7A1 <font> 03F4 1D7A2 <font> 03A3 1D7A3 <font> 03A4 1D7A4 <font> 03A5 1D7A5 <font> 03A6 1D7A6 <font> 03A7 1D7A7 <font> 03A8 1D7A8 <font> 03A9 1D7A9 <font> 2207 1D7AA <font> 03B1 1D7AB <font> 03B2 1D7AC <font> 03B3 1D7AD <font> 03B4 1D7AE <font> 03B5 1D7AF <font> 03B6 1D7B0 <font> 03B7 1D7B1 <font> 03B8 1D7B2 <font> 03B9 1D7B3 <font> 03BA 1D7B4 <font> 03BB 1D7B5 <font> 03BC 1D7B6 <font> 03BD 1D7B7 <font> 03BE 1D7B8 <font> 03BF 1D7B9 <font> 03C0 1D7BA <font> 03C1 1D7BB <font> 03C2 1D7BC <font> 03C3 1D7BD <font> 03C4 1D7BE <font> 03C5 1D7BF <font> 03C6 1D7C0 <font> 03C7 1D7C1 <font> 03C8 1D7C2 <font> 03C9 1D7C3 <font> 2202 1D7C4 <font> 03F5 1D7C5 <font> 03D1 1D7C6 <font> 03F0 1D7C7 <font> 03D5 1D7C8 <font> 03F1 1D7C9 <font> 03D6 1D7CA <font> 03DC 1D7CB <font> 03DD 1D7CE <font> 0030 1D7CF <font> 0031 1D7D0 <font> 0032 1D7D1 <font> 0033 1D7D2 <font> 0034 1D7D3 <font> 0035 1D7D4 <font> 0036 1D7D5 <font> 0037 1D7D6 <font> 0038 1D7D7 <font> 0039 1D7D8 <font> 0030 1D7D9 <font> 0031 1D7DA <font> 0032 1D7DB <font> 0033 1D7DC <font> 0034 1D7DD <font> 0035 1D7DE <font> 0036 1D7DF <font> 0037 1D7E0 <font> 0038 1D7E1 <font> 0039 1D7E2 <font> 0030 1D7E3 <font> 0031 1D7E4 <font> 0032 1D7E5 <font> 0033 1D7E6 <font> 0034 1D7E7 <font> 0035 1D7E8 <font> 0036 1D7E9 <font> 0037 1D7EA <font> 0038 1D7EB <font> 0039 1D7EC <font> 0030 1D7ED <font> 0031 1D7EE <font> 0032 1D7EF <font> 0033 1D7F0 <font> 0034 1D7F1 <font> 0035 1D7F2 <font> 0036 1D7F3 <font> 0037 1D7F4 <font> 0038 1D7F5 <font> 0039 1D7F6 <font> 0030 1D7F7 <font> 0031 1D7F8 <font> 0032 1D7F9 <font> 0033 1D7FA <font> 0034 1D7FB <font> 0035 1D7FC <font> 0036 1D7FD <font> 0037 1D7FE <font> 0038 1D7FF <font> 0039 1EE00 <font> 0627 1EE01 <font> 0628 1EE02 <font> 062C 1EE03 <font> 062F 1EE05 <font> 0648 1EE06 <font> 0632 1EE07 <font> 062D 1EE08 <font> 0637 1EE09 <font> 064A 1EE0A <font> 0643 1EE0B <font> 0644 1EE0C <font> 0645 1EE0D <font> 0646 1EE0E <font> 0633 1EE0F <font> 0639 1EE10 <font> 0641 1EE11 <font> 0635 1EE12 <font> 0642 1EE13 <font> 0631 1EE14 <font> 0634 1EE15 <font> 062A 1EE16 <font> 062B 1EE17 <font> 062E 1EE18 <font> 0630 1EE19 <font> 0636 1EE1A <font> 0638 1EE1B <font> 063A 1EE1C <font> 066E 1EE1D <font> 06BA 1EE1E <font> 06A1 1EE1F <font> 066F 1EE21 <font> 0628 1EE22 <font> 062C 1EE24 <font> 0647 1EE27 <font> 062D 1EE29 <font> 064A 1EE2A <font> 0643 1EE2B <font> 0644 1EE2C <font> 0645 1EE2D <font> 0646 1EE2E <font> 0633 1EE2F <font> 0639 1EE30 <font> 0641 1EE31 <font> 0635 1EE32 <font> 0642 1EE34 <font> 0634 1EE35 <font> 062A 1EE36 <font> 062B 1EE37 <font> 062E 1EE39 <font> 0636 1EE3B <font> 063A 1EE42 <font> 062C 1EE47 <font> 062D 1EE49 <font> 064A 1EE4B <font> 0644 1EE4D <font> 0646 1EE4E <font> 0633 1EE4F <font> 0639 1EE51 <font> 0635 1EE52 <font> 0642 1EE54 <font> 0634 1EE57 <font> 062E 1EE59 <font> 0636 1EE5B <font> 063A 1EE5D <font> 06BA 1EE5F <font> 066F 1EE61 <font> 0628 1EE62 <font> 062C 1EE64 <font> 0647 1EE67 <font> 062D 1EE68 <font> 0637 1EE69 <font> 064A 1EE6A <font> 0643 1EE6C <font> 0645 1EE6D <font> 0646 1EE6E <font> 0633 1EE6F <font> 0639 1EE70 <font> 0641 1EE71 <font> 0635 1EE72 <font> 0642 1EE74 <font> 0634 1EE75 <font> 062A 1EE76 <font> 062B 1EE77 <font> 062E 1EE79 <font> 0636 1EE7A <font> 0638 1EE7B <font> 063A 1EE7C <font> 066E 1EE7E <font> 06A1 1EE80 <font> 0627 1EE81 <font> 0628 1EE82 <font> 062C 1EE83 <font> 062F 1EE84 <font> 0647 1EE85 <font> 0648 1EE86 <font> 0632 1EE87 <font> 062D 1EE88 <font> 0637 1EE89 <font> 064A 1EE8B <font> 0644 1EE8C <font> 0645 1EE8D <font> 0646 1EE8E <font> 0633 1EE8F <font> 0639 1EE90 <font> 0641 1EE91 <font> 0635 1EE92 <font> 0642 1EE93 <font> 0631 1EE94 <font> 0634 1EE95 <font> 062A 1EE96 <font> 062B 1EE97 <font> 062E 1EE98 <font> 0630 1EE99 <font> 0636 1EE9A <font> 0638 1EE9B <font> 063A 1EEA1 <font> 0628 1EEA2 <font> 062C 1EEA3 <font> 062F 1EEA5 <font> 0648 1EEA6 <font> 0632 1EEA7 <font> 062D 1EEA8 <font> 0637 1EEA9 <font> 064A 1EEAB <font> 0644 1EEAC <font> 0645 1EEAD <font> 0646 1EEAE <font> 0633 1EEAF <font> 0639 1EEB0 <font> 0641 1EEB1 <font> 0635 1EEB2 <font> 0642 1EEB3 <font> 0631 1EEB4 <font> 0634 1EEB5 <font> 062A 1EEB6 <font> 062B 1EEB7 <font> 062E 1EEB8 <font> 0630 1EEB9 <font> 0636 1EEBA <font> 0638 1EEBB <font> 063A 1F100 <compat> 0030 002E 1F101 <compat> 0030 002C 1F102 <compat> 0031 002C 1F103 <compat> 0032 002C 1F104 <compat> 0033 002C 1F105 <compat> 0034 002C 1F106 <compat> 0035 002C 1F107 <compat> 0036 002C 1F108 <compat> 0037 002C 1F109 <compat> 0038 002C 1F10A <compat> 0039 002C 1F110 <compat> 0028 0041 0029 1F111 <compat> 0028 0042 0029 1F112 <compat> 0028 0043 0029 1F113 <compat> 0028 0044 0029 1F114 <compat> 0028 0045 0029 1F115 <compat> 0028 0046 0029 1F116 <compat> 0028 0047 0029 1F117 <compat> 0028 0048 0029 1F118 <compat> 0028 0049 0029 1F119 <compat> 0028 004A 0029 1F11A <compat> 0028 004B 0029 1F11B <compat> 0028 004C 0029 1F11C <compat> 0028 004D 0029 1F11D <compat> 0028 004E 0029 1F11E <compat> 0028 004F 0029 1F11F <compat> 0028 0050 0029 1F120 <compat> 0028 0051 0029 1F121 <compat> 0028 0052 0029 1F122 <compat> 0028 0053 0029 1F123 <compat> 0028 0054 0029 1F124 <compat> 0028 0055 0029 1F125 <compat> 0028 0056 0029 1F126 <compat> 0028 0057 0029 1F127 <compat> 0028 0058 0029 1F128 <compat> 0028 0059 0029 1F129 <compat> 0028 005A 0029 1F12A <compat> 3014 0053 3015 1F12B <circle> 0043 1F12C <circle> 0052 1F12D <circle> 0043 0044 1F12E <circle> 0057 005A 1F130 <square> 0041 1F131 <square> 0042 1F132 <square> 0043 1F133 <square> 0044 1F134 <square> 0045 1F135 <square> 0046 1F136 <square> 0047 1F137 <square> 0048 1F138 <square> 0049 1F139 <square> 004A 1F13A <square> 004B 1F13B <square> 004C 1F13C <square> 004D 1F13D <square> 004E 1F13E <square> 004F 1F13F <square> 0050 1F140 <square> 0051 1F141 <square> 0052 1F142 <square> 0053 1F143 <square> 0054 1F144 <square> 0055 1F145 <square> 0056 1F146 <square> 0057 1F147 <square> 0058 1F148 <square> 0059 1F149 <square> 005A 1F14A <square> 0048 0056 1F14B <square> 004D 0056 1F14C <square> 0053 0044 1F14D <square> 0053 0053 1F14E <square> 0050 0050 0056 1F14F <square> 0057 0043 1F16A <super> 004D 0043 1F16B <super> 004D 0044 1F16C <super> 004D 0052 1F190 <square> 0044 004A 1F200 <square> 307B 304B 1F201 <square> 30B3 30B3 1F202 <square> 30B5 1F210 <square> 624B 1F211 <square> 5B57 1F212 <square> 53CC 1F213 <square> 30C7 1F214 <square> 4E8C 1F215 <square> 591A 1F216 <square> 89E3 1F217 <square> 5929 1F218 <square> 4EA4 1F219 <square> 6620 1F21A <square> 7121 1F21B <square> 6599 1F21C <square> 524D 1F21D <square> 5F8C 1F21E <square> 518D 1F21F <square> 65B0 1F220 <square> 521D 1F221 <square> 7D42 1F222 <square> 751F 1F223 <square> 8CA9 1F224 <square> 58F0 1F225 <square> 5439 1F226 <square> 6F14 1F227 <square> 6295 1F228 <square> 6355 1F229 <square> 4E00 1F22A <square> 4E09 1F22B <square> 904A 1F22C <square> 5DE6 1F22D <square> 4E2D 1F22E <square> 53F3 1F22F <square> 6307 1F230 <square> 8D70 1F231 <square> 6253 1F232 <square> 7981 1F233 <square> 7A7A 1F234 <square> 5408 1F235 <square> 6E80 1F236 <square> 6709 1F237 <square> 6708 1F238 <square> 7533 1F239 <square> 5272 1F23A <square> 55B6 1F23B <square> 914D 1F240 <compat> 3014 672C 3015 1F241 <compat> 3014 4E09 3015 1F242 <compat> 3014 4E8C 3015 1F243 <compat> 3014 5B89 3015 1F244 <compat> 3014 70B9 3015 1F245 <compat> 3014 6253 3015 1F246 <compat> 3014 76D7 3015 1F247 <compat> 3014 52DD 3015 1F248 <compat> 3014 6557 3015 1F250 <circle> 5F97 1F251 <circle> 53EF 1FBF0 <font> 0030 1FBF1 <font> 0031 1FBF2 <font> 0032 1FBF3 <font> 0033 1FBF4 <font> 0034 1FBF5 <font> 0035 1FBF6 <font> 0036 1FBF7 <font> 0037 1FBF8 <font> 0038 1FBF9 <font> 0039 2F800 4E3D 2F801 4E38 2F802 4E41 2F803 20122 2F804 4F60 2F805 4FAE 2F806 4FBB 2F807 5002 2F808 507A 2F809 5099 2F80A 50E7 2F80B 50CF 2F80C 349E 2F80D 2063A 2F80E 514D 2F80F 5154 2F810 5164 2F811 5177 2F812 2051C 2F813 34B9 2F814 5167 2F815 518D 2F816 2054B 2F817 5197 2F818 51A4 2F819 4ECC 2F81A 51AC 2F81B 51B5 2F81C 291DF 2F81D 51F5 2F81E 5203 2F81F 34DF 2F820 523B 2F821 5246 2F822 5272 2F823 5277 2F824 3515 2F825 52C7 2F826 52C9 2F827 52E4 2F828 52FA 2F829 5305 2F82A 5306 2F82B 5317 2F82C 5349 2F82D 5351 2F82E 535A 2F82F 5373 2F830 537D 2F831 2F833 537F 2F834 20A2C 2F835 7070 2F836 53CA 2F837 53DF 2F838 20B63 2F839 53EB 2F83A 53F1 2F83B 5406 2F83C 549E 2F83D 5438 2F83E 5448 2F83F 5468 2F840 54A2 2F841 54F6 2F842 5510 2F843 5553 2F844 5563 2F845 2F846 5584 2F847 5599 2F848 55AB 2F849 55B3 2F84A 55C2 2F84B 5716 2F84C 5606 2F84D 5717 2F84E 5651 2F84F 5674 2F850 5207 2F851 58EE 2F852 57CE 2F853 57F4 2F854 580D 2F855 578B 2F856 5832 2F857 5831 2F858 58AC 2F859 214E4 2F85A 58F2 2F85B 58F7 2F85C 5906 2F85D 591A 2F85E 5922 2F85F 5962 2F860 216A8 2F861 216EA 2F862 59EC 2F863 5A1B 2F864 5A27 2F865 59D8 2F866 5A66 2F867 36EE 2F868 36FC 2F869 5B08 2F86A 2F86B 5B3E 2F86C 219C8 2F86D 5BC3 2F86E 5BD8 2F86F 5BE7 2F870 5BF3 2F871 21B18 2F872 5BFF 2F873 5C06 2F874 5F53 2F875 5C22 2F876 3781 2F877 5C60 2F878 5C6E 2F879 5CC0 2F87A 5C8D 2F87B 21DE4 2F87C 5D43 2F87D 21DE6 2F87E 5D6E 2F87F 5D6B 2F880 5D7C 2F881 5DE1 2F882 5DE2 2F883 382F 2F884 5DFD 2F885 5E28 2F886 5E3D 2F887 5E69 2F888 3862 2F889 22183 2F88A 387C 2F88B 5EB0 2F88C 5EB3 2F88D 5EB6 2F88E 5ECA 2F88F 2A392 2F890 5EFE 2F891 2F892 22331 2F893 8201 2F894 2F895 5F22 2F896 38C7 2F897 232B8 2F898 261DA 2F899 5F62 2F89A 5F6B 2F89B 38E3 2F89C 5F9A 2F89D 5FCD 2F89E 5FD7 2F89F 5FF9 2F8A0 6081 2F8A1 393A 2F8A2 391C 2F8A3 6094 2F8A4 226D4 2F8A5 60C7 2F8A6 6148 2F8A7 614C 2F8A8 614E 2F8A9 614C 2F8AA 617A 2F8AB 618E 2F8AC 61B2 2F8AD 61A4 2F8AE 61AF 2F8AF 61DE 2F8B0 61F2 2F8B1 61F6 2F8B2 6210 2F8B3 621B 2F8B4 625D 2F8B5 62B1 2F8B6 62D4 2F8B7 6350 2F8B8 22B0C 2F8B9 633D 2F8BA 62FC 2F8BB 6368 2F8BC 6383 2F8BD 63E4 2F8BE 22BF1 2F8BF 6422 2F8C0 63C5 2F8C1 63A9 2F8C2 3A2E 2F8C3 6469 2F8C4 647E 2F8C5 649D 2F8C6 6477 2F8C7 3A6C 2F8C8 654F 2F8C9 656C 2F8CA 2300A 2F8CB 65E3 2F8CC 66F8 2F8CD 6649 2F8CE 3B19 2F8CF 6691 2F8D0 3B08 2F8D1 3AE4 2F8D2 5192 2F8D3 5195 2F8D4 6700 2F8D5 669C 2F8D6 80AD 2F8D7 43D9 2F8D8 6717 2F8D9 671B 2F8DA 6721 2F8DB 675E 2F8DC 6753 2F8DD 233C3 2F8DE 3B49 2F8DF 67FA 2F8E0 6785 2F8E1 6852 2F8E2 6885 2F8E3 2346D 2F8E4 688E 2F8E5 681F 2F8E6 6914 2F8E7 3B9D 2F8E8 6942 2F8E9 69A3 2F8EA 69EA 2F8EB 6AA8 2F8EC 236A3 2F8ED 6ADB 2F8EE 3C18 2F8EF 6B21 2F8F0 238A7 2F8F1 6B54 2F8F2 3C4E 2F8F3 6B72 2F8F4 6B9F 2F8F5 6BBA 2F8F6 6BBB 2F8F7 23A8D 2F8F8 21D0B 2F8F9 23AFA 2F8FA 6C4E 2F8FB 23CBC 2F8FC 6CBF 2F8FD 6CCD 2F8FE 6C67 2F8FF 6D16 2F900 6D3E 2F901 6D77 2F902 6D41 2F903 6D69 2F904 6D78 2F905 6D85 2F906 23D1E 2F907 6D34 2F908 6E2F 2F909 6E6E 2F90A 3D33 2F90B 6ECB 2F90C 6EC7 2F90D 23ED1 2F90E 6DF9 2F90F 6F6E 2F910 23F5E 2F911 23F8E 2F912 6FC6 2F913 7039 2F914 701E 2F915 701B 2F916 3D96 2F917 704A 2F918 707D 2F919 7077 2F91A 70AD 2F91B 20525 2F91C 7145 2F91D 24263 2F91E 719C 2F91F 243AB 2F920 7228 2F921 7235 2F922 7250 2F923 24608 2F924 7280 2F925 7295 2F926 24735 2F927 24814 2F928 737A 2F929 738B 2F92A 3EAC 2F92B 73A5 2F92C 2F92D 3EB8 2F92E 7447 2F92F 745C 2F930 7471 2F931 7485 2F932 74CA 2F933 3F1B 2F934 7524 2F935 24C36 2F936 753E 2F937 24C92 2F938 7570 2F939 2219F 2F93A 7610 2F93B 24FA1 2F93C 24FB8 2F93D 25044 2F93E 3FFC 2F93F 4008 2F940 76F4 2F941 250F3 2F942 250F2 2F943 25119 2F944 25133 2F945 771E 2F946 2F947 771F 2F948 774A 2F949 4039 2F94A 778B 2F94B 4046 2F94C 4096 2F94D 2541D 2F94E 784E 2F94F 788C 2F950 78CC 2F951 40E3 2F952 25626 2F953 7956 2F954 2569A 2F955 256C5 2F956 798F 2F957 79EB 2F958 412F 2F959 7A40 2F95A 7A4A 2F95B 7A4F 2F95C 2597C 2F95D 2F95E 25AA7 2F95F 7AEE 2F960 4202 2F961 25BAB 2F962 7BC6 2F963 7BC9 2F964 4227 2F965 25C80 2F966 7CD2 2F967 42A0 2F968 7CE8 2F969 7CE3 2F96A 7D00 2F96B 25F86 2F96C 7D63 2F96D 4301 2F96E 7DC7 2F96F 7E02 2F970 7E45 2F971 4334 2F972 26228 2F973 26247 2F974 4359 2F975 262D9 2F976 7F7A 2F977 2633E 2F978 7F95 2F979 7FFA 2F97A 8005 2F97B 264DA 2F97C 26523 2F97D 8060 2F97E 265A8 2F97F 8070 2F980 2335F 2F981 43D5 2F982 80B2 2F983 8103 2F984 440B 2F985 813E 2F986 5AB5 2F987 267A7 2F988 267B5 2F989 23393 2F98A 2339C 2F98B 8201 2F98C 8204 2F98D 8F9E 2F98E 446B 2F98F 8291 2F990 828B 2F991 829D 2F992 52B3 2F993 82B1 2F994 82B3 2F995 82BD 2F996 82E6 2F997 26B3C 2F998 82E5 2F999 831D 2F99A 8363 2F99B 83AD 2F99C 8323 2F99D 83BD 2F99E 83E7 2F99F 8457 2F9A0 8353 2F9A1 83CA 2F9A2 83CC 2F9A3 83DC 2F9A4 26C36 2F9A5 26D6B 2F9A6 26CD5 2F9A7 452B 2F9A8 84F1 2F9A9 84F3 2F9AA 8516 2F9AB 273CA 2F9AC 8564 2F9AD 26F2C 2F9AE 455D 2F9AF 4561 2F9B0 26FB1 2F9B1 270D2 2F9B2 456B 2F9B3 8650 2F9B4 865C 2F9B5 8667 2F9B6 8669 2F9B7 86A9 2F9B8 8688 2F9B9 870E 2F9BA 86E2 2F9BB 8779 2F9BC 8728 2F9BD 876B 2F9BE 8786 2F9BF 45D7 2F9C0 87E1 2F9C1 8801 2F9C2 45F9 2F9C3 8860 2F9C4 8863 2F9C5 27667 2F9C6 88D7 2F9C7 88DE 2F9C8 4635 2F9C9 88FA 2F9CA 34BB 2F9CB 278AE 2F9CC 27966 2F9CD 46BE 2F9CE 46C7 2F9CF 8AA0 2F9D0 8AED 2F9D1 8B8A 2F9D2 8C55 2F9D3 27CA8 2F9D4 8CAB 2F9D5 8CC1 2F9D6 8D1B 2F9D7 8D77 2F9D8 27F2F 2F9D9 20804 2F9DA 8DCB 2F9DB 8DBC 2F9DC 8DF0 2F9DD 208DE 2F9DE 8ED4 2F9DF 8F38 2F9E0 285D2 2F9E1 285ED 2F9E2 9094 2F9E3 90F1 2F9E4 9111 2F9E5 2872E 2F9E6 911B 2F9E7 9238 2F9E8 92D7 2F9E9 92D8 2F9EA 927C 2F9EB 93F9 2F9EC 9415 2F9ED 28BFA 2F9EE 958B 2F9EF 4995 2F9F0 95B7 2F9F1 28D77 2F9F2 49E6 2F9F3 96C3 2F9F4 5DB2 2F9F5 9723 2F9F6 29145 2F9F7 2921A 2F9F8 4A6E 2F9F9 4A76 2F9FA 97E0 2F9FB 2940A 2F9FC 4AB2 2F9FD 29496 2F9FE 2F9FF 980B 2FA00 9829 2FA01 295B6 2FA02 98E2 2FA03 4B33 2FA04 9929 2FA05 99A7 2FA06 99C2 2FA07 99FE 2FA08 4BCE 2FA09 29B30 2FA0A 9B12 2FA0B 9C40 2FA0C 9CFD 2FA0D 4CCE 2FA0E 4CED 2FA0F 9D67 2FA10 2A0CE 2FA11 4CF8 2FA12 2A105 2FA13 2A20E 2FA14 2A291 2FA15 9EBB 2FA16 4D56 2FA17 9EF9 2FA18 9EFE 2FA19 9F05 2FA1A 9F0F 2FA1B 9F16 2FA1C 9F3B 2FA1D 2A600 END PK ! �' �Q Q 5.34.0/unicore/To/Scx.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToScx'}{'format'} = 'sw'; # string, but some elements are interpreted as a list; white space occurs only as list item separators $Unicode::UCD::SwashInfo{'ToScx'}{'missing'} = 'Unknown'; return <<'END'; 0 40 Common 41 5A Latin 5B 60 Common 61 7A Latin 7B A9 Common AA Latin AB B9 Common BA Latin BB BF Common C0 D6 Latin D7 Common D8 F6 Latin F7 Common F8 2B8 Latin 2B9 2DF Common 2E0 2E4 Latin 2E5 2E9 Common 2EA 2EB Bopomofo 2EC 2FF Common 300 341 Inherited 342 Greek 343 344 Inherited 345 Greek 346 362 Inherited 363 36F Latin 370 373 Greek 374 Common 375 377 Greek 37A 37D Greek 37E Common 37F Greek 384 Greek 385 Common 386 Greek 387 Common 388 38A Greek 38C Greek 38E 3A1 Greek 3A3 3E1 Greek 3E2 3EF Coptic 3F0 3FF Greek 400 482 Cyrillic 483 Cyrillic Old_Permic 484 Cyrillic Glagolitic 485 486 Cyrillic Latin 487 Cyrillic Glagolitic 488 52F Cyrillic 531 556 Armenian 559 58A Armenian 58D 58F Armenian 591 5C7 Hebrew 5D0 5EA Hebrew 5EF 5F4 Hebrew 600 604 Arabic 605 Common 606 60B Arabic 60C Arabic Hanifi_Rohingya Syriac Thaana Yezidi 60D 61A Arabic 61B Arabic Hanifi_Rohingya Syriac Thaana Yezidi 61C Arabic Syriac Thaana 61E Arabic 61F Arabic Hanifi_Rohingya Syriac Thaana Yezidi 620 63F Arabic 640 Adlam Arabic Mandaic Manichaean Psalter_Pahlavi Hanifi_Rohingya Sogdian Syriac 641 64A Arabic 64B 655 Arabic Syriac 656 65F Arabic 660 669 Arabic Thaana Yezidi 66A 66F Arabic 670 Arabic Syriac 671 6D3 Arabic 6D4 Arabic Hanifi_Rohingya 6D5 6DC Arabic 6DD Common 6DE 6FF Arabic 700 70D Syriac 70F 74A Syriac 74D 74F Syriac 750 77F Arabic 780 7B1 Thaana 7C0 7FA Nko 7FD 7FF Nko 800 82D Samaritan 830 83E Samaritan 840 85B Mandaic 85E Mandaic 860 86A Syriac 8A0 8B4 Arabic 8B6 8C7 Arabic 8D3 8E1 Arabic 8E2 Common 8E3 8FF Arabic 900 950 Devanagari 951 Bengali Devanagari Grantha Gujarati Gurmukhi Kannada Latin Malayalam Oriya Sharada Tamil Telugu Tirhuta 952 Bengali Devanagari Grantha Gujarati Gurmukhi Kannada Latin Malayalam Oriya Tamil Telugu Tirhuta 953 954 Inherited 955 963 Devanagari 964 Bengali Devanagari Dogra Gunjala_Gondi Masaram_Gondi Grantha Gujarati Gurmukhi Kannada Mahajani Malayalam Nandinagari Oriya Khudawadi Sinhala Syloti_Nagri Takri Tamil Telugu Tirhuta 965 Bengali Devanagari Dogra Gunjala_Gondi Masaram_Gondi Grantha Gujarati Gurmukhi Kannada Limbu Mahajani Malayalam Nandinagari Oriya Khudawadi Sinhala Syloti_Nagri Takri Tamil Telugu Tirhuta 966 96F Devanagari Dogra Kaithi Mahajani 970 97F Devanagari 980 983 Bengali 985 98C Bengali 98F 990 Bengali 993 9A8 Bengali 9AA 9B0 Bengali 9B2 Bengali 9B6 9B9 Bengali 9BC 9C4 Bengali 9C7 9C8 Bengali 9CB 9CE Bengali 9D7 Bengali 9DC 9DD Bengali 9DF 9E3 Bengali 9E6 9EF Bengali Chakma Syloti_Nagri 9F0 9FE Bengali A01 A03 Gurmukhi A05 A0A Gurmukhi A0F A10 Gurmukhi A13 A28 Gurmukhi A2A A30 Gurmukhi A32 A33 Gurmukhi A35 A36 Gurmukhi A38 A39 Gurmukhi A3C Gurmukhi A3E A42 Gurmukhi A47 A48 Gurmukhi A4B A4D Gurmukhi A51 Gurmukhi A59 A5C Gurmukhi A5E Gurmukhi A66 A6F Gurmukhi Multani A70 A76 Gurmukhi A81 A83 Gujarati A85 A8D Gujarati A8F A91 Gujarati A93 AA8 Gujarati AAA AB0 Gujarati AB2 AB3 Gujarati AB5 AB9 Gujarati ABC AC5 Gujarati AC7 AC9 Gujarati ACB ACD Gujarati AD0 Gujarati AE0 AE3 Gujarati AE6 AEF Gujarati Khojki AF0 AF1 Gujarati AF9 AFF Gujarati B01 B03 Oriya B05 B0C Oriya B0F B10 Oriya B13 B28 Oriya B2A B30 Oriya B32 B33 Oriya B35 B39 Oriya B3C B44 Oriya B47 B48 Oriya B4B B4D Oriya B55 B57 Oriya B5C B5D Oriya B5F B63 Oriya B66 B77 Oriya B82 B83 Tamil B85 B8A Tamil B8E B90 Tamil B92 B95 Tamil B99 B9A Tamil B9C Tamil B9E B9F Tamil BA3 BA4 Tamil BA8 BAA Tamil BAE BB9 Tamil BBE BC2 Tamil BC6 BC8 Tamil BCA BCD Tamil BD0 Tamil BD7 Tamil BE6 BF3 Grantha Tamil BF4 BFA Tamil C00 C0C Telugu C0E C10 Telugu C12 C28 Telugu C2A C39 Telugu C3D C44 Telugu C46 C48 Telugu C4A C4D Telugu C55 C56 Telugu C58 C5A Telugu C60 C63 Telugu C66 C6F Telugu C77 C7F Telugu C80 C8C Kannada C8E C90 Kannada C92 CA8 Kannada CAA CB3 Kannada CB5 CB9 Kannada CBC CC4 Kannada CC6 CC8 Kannada CCA CCD Kannada CD5 CD6 Kannada CDE Kannada CE0 CE3 Kannada CE6 CEF Kannada Nandinagari CF1 CF2 Kannada D00 D0C Malayalam D0E D10 Malayalam D12 D44 Malayalam D46 D48 Malayalam D4A D4F Malayalam D54 D63 Malayalam D66 D7F Malayalam D81 D83 Sinhala D85 D96 Sinhala D9A DB1 Sinhala DB3 DBB Sinhala DBD Sinhala DC0 DC6 Sinhala DCA Sinhala DCF DD4 Sinhala DD6 Sinhala DD8 DDF Sinhala DE6 DEF Sinhala DF2 DF4 Sinhala E01 E3A Thai E3F Common E40 E5B Thai E81 E82 Lao E84 Lao E86 E8A Lao E8C EA3 Lao EA5 Lao EA7 EBD Lao EC0 EC4 Lao EC6 Lao EC8 ECD Lao ED0 ED9 Lao EDC EDF Lao F00 F47 Tibetan F49 F6C Tibetan F71 F97 Tibetan F99 FBC Tibetan FBE FCC Tibetan FCE FD4 Tibetan FD5 FD8 Common FD9 FDA Tibetan 1000 103F Myanmar 1040 1049 Chakma Myanmar Tai_Le 104A 109F Myanmar 10A0 10C5 Georgian 10C7 Georgian 10CD Georgian 10D0 10FA Georgian 10FB Georgian Latin 10FC 10FF Georgian 1100 11FF Hangul 1200 1248 Ethiopic 124A 124D Ethiopic 1250 1256 Ethiopic 1258 Ethiopic 125A 125D Ethiopic 1260 1288 Ethiopic 128A 128D Ethiopic 1290 12B0 Ethiopic 12B2 12B5 Ethiopic 12B8 12BE Ethiopic 12C0 Ethiopic 12C2 12C5 Ethiopic 12C8 12D6 Ethiopic 12D8 1310 Ethiopic 1312 1315 Ethiopic 1318 135A Ethiopic 135D 137C Ethiopic 1380 1399 Ethiopic 13A0 13F5 Cherokee 13F8 13FD Cherokee 1400 167F Canadian_Aboriginal 1680 169C Ogham 16A0 16EA Runic 16EB 16ED Common 16EE 16F8 Runic 1700 170C Tagalog 170E 1714 Tagalog 1720 1734 Hanunoo 1735 1736 Buhid Hanunoo Tagbanwa Tagalog 1740 1753 Buhid 1760 176C Tagbanwa 176E 1770 Tagbanwa 1772 1773 Tagbanwa 1780 17DD Khmer 17E0 17E9 Khmer 17F0 17F9 Khmer 1800 1801 Mongolian 1802 1803 Mongolian Phags_Pa 1804 Mongolian 1805 Mongolian Phags_Pa 1806 180E Mongolian 1810 1819 Mongolian 1820 1878 Mongolian 1880 18AA Mongolian 18B0 18F5 Canadian_Aboriginal 1900 191E Limbu 1920 192B Limbu 1930 193B Limbu 1940 Limbu 1944 194F Limbu 1950 196D Tai_Le 1970 1974 Tai_Le 1980 19AB New_Tai_Lue 19B0 19C9 New_Tai_Lue 19D0 19DA New_Tai_Lue 19DE 19DF New_Tai_Lue 19E0 19FF Khmer 1A00 1A1B Buginese 1A1E 1A1F Buginese 1A20 1A5E Tai_Tham 1A60 1A7C Tai_Tham 1A7F 1A89 Tai_Tham 1A90 1A99 Tai_Tham 1AA0 1AAD Tai_Tham 1AB0 1AC0 Inherited 1B00 1B4B Balinese 1B50 1B7C Balinese 1B80 1BBF Sundanese 1BC0 1BF3 Batak 1BFC 1BFF Batak 1C00 1C37 Lepcha 1C3B 1C49 Lepcha 1C4D 1C4F Lepcha 1C50 1C7F Ol_Chiki 1C80 1C88 Cyrillic 1C90 1CBA Georgian 1CBD 1CBF Georgian 1CC0 1CC7 Sundanese 1CD0 Bengali Devanagari Grantha Kannada 1CD1 Devanagari 1CD2 Bengali Devanagari Grantha Kannada 1CD3 Devanagari Grantha 1CD4 Devanagari 1CD5 1CD6 Bengali Devanagari 1CD7 Devanagari Sharada 1CD8 Bengali Devanagari 1CD9 Devanagari Sharada 1CDA Devanagari Kannada Malayalam Oriya Tamil Telugu 1CDB Devanagari 1CDC 1CDD Devanagari Sharada 1CDE 1CDF Devanagari 1CE0 Devanagari Sharada 1CE1 Bengali Devanagari 1CE2 1CE8 Devanagari 1CE9 Devanagari Nandinagari 1CEA Bengali Devanagari 1CEB 1CEC Devanagari 1CED Bengali Devanagari 1CEE 1CF1 Devanagari 1CF2 Bengali Devanagari Grantha Kannada Nandinagari Oriya Telugu Tirhuta 1CF3 Devanagari Grantha 1CF4 Devanagari Grantha Kannada 1CF5 1CF6 Bengali Devanagari 1CF7 Bengali 1CF8 1CF9 Devanagari Grantha 1CFA Nandinagari 1D00 1D25 Latin 1D26 1D2A Greek 1D2B Cyrillic 1D2C 1D5C Latin 1D5D 1D61 Greek 1D62 1D65 Latin 1D66 1D6A Greek 1D6B 1D77 Latin 1D78 Cyrillic 1D79 1DBE Latin 1DBF 1DC1 Greek 1DC2 1DF7 Inherited 1DF8 Cyrillic Syriac 1DF9 Inherited 1DFB 1DFF Inherited 1E00 1EFF Latin 1F00 1F15 Greek 1F18 1F1D Greek 1F20 1F45 Greek 1F48 1F4D Greek 1F50 1F57 Greek 1F59 Greek 1F5B Greek 1F5D Greek 1F5F 1F7D Greek 1F80 1FB4 Greek 1FB6 1FC4 Greek 1FC6 1FD3 Greek 1FD6 1FDB Greek 1FDD 1FEF Greek 1FF2 1FF4 Greek 1FF6 1FFE Greek 2000 200B Common 200C 200D Inherited 200E 202E Common 202F Latin Mongolian 2030 2064 Common 2066 2070 Common 2071 Latin 2074 207E Common 207F Latin 2080 208E Common 2090 209C Latin 20A0 20BF Common 20D0 20EF Inherited 20F0 Devanagari Grantha Latin 2100 2125 Common 2126 Greek 2127 2129 Common 212A 212B Latin 212C 2131 Common 2132 Latin 2133 214D Common 214E Latin 214F 215F Common 2160 2188 Latin 2189 218B Common 2190 2426 Common 2440 244A Common 2460 27FF Common 2800 28FF Braille 2900 2B73 Common 2B76 2B95 Common 2B97 2BFF Common 2C00 2C2E Glagolitic 2C30 2C5E Glagolitic 2C60 2C7F Latin 2C80 2CF3 Coptic 2CF9 2CFF Coptic 2D00 2D25 Georgian 2D27 Georgian 2D2D Georgian 2D30 2D67 Tifinagh 2D6F 2D70 Tifinagh 2D7F Tifinagh 2D80 2D96 Ethiopic 2DA0 2DA6 Ethiopic 2DA8 2DAE Ethiopic 2DB0 2DB6 Ethiopic 2DB8 2DBE Ethiopic 2DC0 2DC6 Ethiopic 2DC8 2DCE Ethiopic 2DD0 2DD6 Ethiopic 2DD8 2DDE Ethiopic 2DE0 2DFF Cyrillic 2E00 2E42 Common 2E43 Cyrillic Glagolitic 2E44 2E52 Common 2E80 2E99 Han 2E9B 2EF3 Han 2F00 2FD5 Han 2FF0 2FFB Common 3000 Common 3001 3002 Bopomofo Hangul Han Hiragana Katakana Yi 3003 Bopomofo Hangul Han Hiragana Katakana 3004 Common 3005 3007 Han 3008 3011 Bopomofo Hangul Han Hiragana Katakana Yi 3012 Common 3013 Bopomofo Hangul Han Hiragana Katakana 3014 301B Bopomofo Hangul Han Hiragana Katakana Yi 301C 301F Bopomofo Hangul Han Hiragana Katakana 3020 Common 3021 3029 Han 302A 302D Bopomofo Han 302E 302F Hangul 3030 Bopomofo Hangul Han Hiragana Katakana 3031 3035 Hiragana Katakana 3036 Common 3037 Bopomofo Hangul Han Hiragana Katakana 3038 303B Han 303C 303D Han Hiragana Katakana 303E 303F Han 3041 3096 Hiragana 3099 309C Hiragana Katakana 309D 309F Hiragana 30A0 Hiragana Katakana 30A1 30FA Katakana 30FB Bopomofo Hangul Han Hiragana Katakana Yi 30FC Hiragana Katakana 30FD 30FF Katakana 3105 312F Bopomofo 3131 318E Hangul 3190 319F Han 31A0 31BF Bopomofo 31C0 31E3 Han 31F0 31FF Katakana 3200 321E Hangul 3220 3247 Han 3248 325F Common 3260 327E Hangul 327F Common 3280 32B0 Han 32B1 32BF Common 32C0 32CB Han 32CC 32CF Common 32D0 32FE Katakana 32FF Han 3300 3357 Katakana 3358 3370 Han 3371 337A Common 337B 337F Han 3380 33DF Common 33E0 33FE Han 33FF Common 3400 4DBF Han 4DC0 4DFF Common 4E00 9FFC Han A000 A48C Yi A490 A4C6 Yi A4D0 A4FF Lisu A500 A62B Vai A640 A66E Cyrillic A66F Cyrillic Glagolitic A670 A69F Cyrillic A6A0 A6F7 Bamum A700 A707 Han Latin A708 A721 Common A722 A787 Latin A788 A78A Common A78B A7BF Latin A7C2 A7CA Latin A7F5 A7FF Latin A800 A82C Syloti_Nagri A830 A832 Devanagari Dogra Gujarati Gurmukhi Khojki Kannada Kaithi Mahajani Malayalam Modi Nandinagari Khudawadi Takri Tirhuta A833 A835 Devanagari Dogra Gujarati Gurmukhi Khojki Kannada Kaithi Mahajani Modi Nandinagari Khudawadi Takri Tirhuta A836 A839 Devanagari Dogra Gujarati Gurmukhi Khojki Kaithi Mahajani Modi Khudawadi Takri Tirhuta A840 A877 Phags_Pa A880 A8C5 Saurashtra A8CE A8D9 Saurashtra A8E0 A8F0 Devanagari A8F1 Bengali Devanagari A8F2 Devanagari A8F3 Devanagari Tamil A8F4 A8FF Devanagari A900 A92D Kayah_Li A92E Kayah_Li Latin Myanmar A92F Kayah_Li A930 A953 Rejang A95F Rejang A960 A97C Hangul A980 A9CD Javanese A9CF Buginese Javanese A9D0 A9D9 Javanese A9DE A9DF Javanese A9E0 A9FE Myanmar AA00 AA36 Cham AA40 AA4D Cham AA50 AA59 Cham AA5C AA5F Cham AA60 AA7F Myanmar AA80 AAC2 Tai_Viet AADB AADF Tai_Viet AAE0 AAF6 Meetei_Mayek AB01 AB06 Ethiopic AB09 AB0E Ethiopic AB11 AB16 Ethiopic AB20 AB26 Ethiopic AB28 AB2E Ethiopic AB30 AB5A Latin AB5B Common AB5C AB64 Latin AB65 Greek AB66 AB69 Latin AB6A AB6B Common AB70 ABBF Cherokee ABC0 ABED Meetei_Mayek ABF0 ABF9 Meetei_Mayek AC00 D7A3 Hangul D7B0 D7C6 Hangul D7CB D7FB Hangul F900 FA6D Han FA70 FAD9 Han FB00 FB06 Latin FB13 FB17 Armenian FB1D FB36 Hebrew FB38 FB3C Hebrew FB3E Hebrew FB40 FB41 Hebrew FB43 FB44 Hebrew FB46 FB4F Hebrew FB50 FBC1 Arabic FBD3 FD3D Arabic FD3E FD3F Common FD50 FD8F Arabic FD92 FDC7 Arabic FDF0 FDF1 Arabic FDF2 Arabic Thaana FDF3 FDFC Arabic FDFD Arabic Thaana FE00 FE0F Inherited FE10 FE19 Common FE20 FE2D Inherited FE2E FE2F Cyrillic FE30 FE44 Common FE45 FE46 Bopomofo Hangul Han Hiragana Katakana FE47 FE52 Common FE54 FE66 Common FE68 FE6B Common FE70 FE74 Arabic FE76 FEFC Arabic FEFF Common FF01 FF20 Common FF21 FF3A Latin FF3B FF40 Common FF41 FF5A Latin FF5B FF60 Common FF61 FF65 Bopomofo Hangul Han Hiragana Katakana Yi FF66 FF6F Katakana FF70 Hiragana Katakana FF71 FF9D Katakana FF9E FF9F Hiragana Katakana FFA0 FFBE Hangul FFC2 FFC7 Hangul FFCA FFCF Hangul FFD2 FFD7 Hangul FFDA FFDC Hangul FFE0 FFE6 Common FFE8 FFEE Common FFF9 FFFD Common 10000 1000B Linear_B 1000D 10026 Linear_B 10028 1003A Linear_B 1003C 1003D Linear_B 1003F 1004D Linear_B 10050 1005D Linear_B 10080 100FA Linear_B 10100 10102 Cypriot Linear_B 10107 10133 Cypriot Linear_A Linear_B 10137 1013F Cypriot Linear_B 10140 1018E Greek 10190 1019C Common 101A0 Greek 101D0 101FC Common 101FD Inherited 10280 1029C Lycian 102A0 102D0 Carian 102E0 102FB Arabic Coptic 10300 10323 Old_Italic 1032D 1032F Old_Italic 10330 1034A Gothic 10350 1037A Old_Permic 10380 1039D Ugaritic 1039F Ugaritic 103A0 103C3 Old_Persian 103C8 103D5 Old_Persian 10400 1044F Deseret 10450 1047F Shavian 10480 1049D Osmanya 104A0 104A9 Osmanya 104B0 104D3 Osage 104D8 104FB Osage 10500 10527 Elbasan 10530 10563 Caucasian_Albanian 1056F Caucasian_Albanian 10600 10736 Linear_A 10740 10755 Linear_A 10760 10767 Linear_A 10800 10805 Cypriot 10808 Cypriot 1080A 10835 Cypriot 10837 10838 Cypriot 1083C Cypriot 1083F Cypriot 10840 10855 Imperial_Aramaic 10857 1085F Imperial_Aramaic 10860 1087F Palmyrene 10880 1089E Nabataean 108A7 108AF Nabataean 108E0 108F2 Hatran 108F4 108F5 Hatran 108FB 108FF Hatran 10900 1091B Phoenician 1091F Phoenician 10920 10939 Lydian 1093F Lydian 10980 1099F Meroitic_Hieroglyphs 109A0 109B7 Meroitic_Cursive 109BC 109CF Meroitic_Cursive 109D2 109FF Meroitic_Cursive 10A00 10A03 Kharoshthi 10A05 10A06 Kharoshthi 10A0C 10A13 Kharoshthi 10A15 10A17 Kharoshthi 10A19 10A35 Kharoshthi 10A38 10A3A Kharoshthi 10A3F 10A48 Kharoshthi 10A50 10A58 Kharoshthi 10A60 10A7F Old_South_Arabian 10A80 10A9F Old_North_Arabian 10AC0 10AE6 Manichaean 10AEB 10AF6 Manichaean 10B00 10B35 Avestan 10B39 10B3F Avestan 10B40 10B55 Inscriptional_Parthian 10B58 10B5F Inscriptional_Parthian 10B60 10B72 Inscriptional_Pahlavi 10B78 10B7F Inscriptional_Pahlavi 10B80 10B91 Psalter_Pahlavi 10B99 10B9C Psalter_Pahlavi 10BA9 10BAF Psalter_Pahlavi 10C00 10C48 Old_Turkic 10C80 10CB2 Old_Hungarian 10CC0 10CF2 Old_Hungarian 10CFA 10CFF Old_Hungarian 10D00 10D27 Hanifi_Rohingya 10D30 10D39 Hanifi_Rohingya 10E60 10E7E Arabic 10E80 10EA9 Yezidi 10EAB 10EAD Yezidi 10EB0 10EB1 Yezidi 10F00 10F27 Old_Sogdian 10F30 10F59 Sogdian 10FB0 10FCB Chorasmian 10FE0 10FF6 Elymaic 11000 1104D Brahmi 11052 1106F Brahmi 1107F Brahmi 11080 110C1 Kaithi 110CD Kaithi 110D0 110E8 Sora_Sompeng 110F0 110F9 Sora_Sompeng 11100 11134 Chakma 11136 11147 Chakma 11150 11176 Mahajani 11180 111DF Sharada 111E1 111F4 Sinhala 11200 11211 Khojki 11213 1123E Khojki 11280 11286 Multani 11288 Multani 1128A 1128D Multani 1128F 1129D Multani 1129F 112A9 Multani 112B0 112EA Khudawadi 112F0 112F9 Khudawadi 11300 Grantha 11301 Grantha Tamil 11302 Grantha 11303 Grantha Tamil 11305 1130C Grantha 1130F 11310 Grantha 11313 11328 Grantha 1132A 11330 Grantha 11332 11333 Grantha 11335 11339 Grantha 1133B 1133C Grantha Tamil 1133D 11344 Grantha 11347 11348 Grantha 1134B 1134D Grantha 11350 Grantha 11357 Grantha 1135D 11363 Grantha 11366 1136C Grantha 11370 11374 Grantha 11400 1145B Newa 1145D 11461 Newa 11480 114C7 Tirhuta 114D0 114D9 Tirhuta 11580 115B5 Siddham 115B8 115DD Siddham 11600 11644 Modi 11650 11659 Modi 11660 1166C Mongolian 11680 116B8 Takri 116C0 116C9 Takri 11700 1171A Ahom 1171D 1172B Ahom 11730 1173F Ahom 11800 1183B Dogra 118A0 118F2 Warang_Citi 118FF Warang_Citi 11900 11906 Dives_Akuru 11909 Dives_Akuru 1190C 11913 Dives_Akuru 11915 11916 Dives_Akuru 11918 11935 Dives_Akuru 11937 11938 Dives_Akuru 1193B 11946 Dives_Akuru 11950 11959 Dives_Akuru 119A0 119A7 Nandinagari 119AA 119D7 Nandinagari 119DA 119E4 Nandinagari 11A00 11A47 Zanabazar_Square 11A50 11AA2 Soyombo 11AC0 11AF8 Pau_Cin_Hau 11C00 11C08 Bhaiksuki 11C0A 11C36 Bhaiksuki 11C38 11C45 Bhaiksuki 11C50 11C6C Bhaiksuki 11C70 11C8F Marchen 11C92 11CA7 Marchen 11CA9 11CB6 Marchen 11D00 11D06 Masaram_Gondi 11D08 11D09 Masaram_Gondi 11D0B 11D36 Masaram_Gondi 11D3A Masaram_Gondi 11D3C 11D3D Masaram_Gondi 11D3F 11D47 Masaram_Gondi 11D50 11D59 Masaram_Gondi 11D60 11D65 Gunjala_Gondi 11D67 11D68 Gunjala_Gondi 11D6A 11D8E Gunjala_Gondi 11D90 11D91 Gunjala_Gondi 11D93 11D98 Gunjala_Gondi 11DA0 11DA9 Gunjala_Gondi 11EE0 11EF8 Makasar 11FB0 Lisu 11FC0 11FCF Tamil 11FD0 11FD1 Grantha Tamil 11FD2 Tamil 11FD3 Grantha Tamil 11FD4 11FF1 Tamil 11FFF Tamil 12000 12399 Cuneiform 12400 1246E Cuneiform 12470 12474 Cuneiform 12480 12543 Cuneiform 13000 1342E Egyptian_Hieroglyphs 13430 13438 Egyptian_Hieroglyphs 14400 14646 Anatolian_Hieroglyphs 16800 16A38 Bamum 16A40 16A5E Mro 16A60 16A69 Mro 16A6E 16A6F Mro 16AD0 16AED Bassa_Vah 16AF0 16AF5 Bassa_Vah 16B00 16B45 Pahawh_Hmong 16B50 16B59 Pahawh_Hmong 16B5B 16B61 Pahawh_Hmong 16B63 16B77 Pahawh_Hmong 16B7D 16B8F Pahawh_Hmong 16E40 16E9A Medefaidrin 16F00 16F4A Miao 16F4F 16F87 Miao 16F8F 16F9F Miao 16FE0 Tangut 16FE1 Nushu 16FE2 16FE3 Common 16FE4 Khitan_Small_Script 16FF0 16FF1 Han 17000 187F7 Tangut 18800 18AFF Tangut 18B00 18CD5 Khitan_Small_Script 18D00 18D08 Tangut 1B000 Katakana 1B001 1B11E Hiragana 1B150 1B152 Hiragana 1B164 1B167 Katakana 1B170 1B2FB Nushu 1BC00 1BC6A Duployan 1BC70 1BC7C Duployan 1BC80 1BC88 Duployan 1BC90 1BC99 Duployan 1BC9C 1BCA3 Duployan 1D000 1D0F5 Common 1D100 1D126 Common 1D129 1D166 Common 1D167 1D169 Inherited 1D16A 1D17A Common 1D17B 1D182 Inherited 1D183 1D184 Common 1D185 1D18B Inherited 1D18C 1D1A9 Common 1D1AA 1D1AD Inherited 1D1AE 1D1E8 Common 1D200 1D245 Greek 1D2E0 1D2F3 Common 1D300 1D356 Common 1D360 1D371 Han 1D372 1D378 Common 1D400 1D454 Common 1D456 1D49C Common 1D49E 1D49F Common 1D4A2 Common 1D4A5 1D4A6 Common 1D4A9 1D4AC Common 1D4AE 1D4B9 Common 1D4BB Common 1D4BD 1D4C3 Common 1D4C5 1D505 Common 1D507 1D50A Common 1D50D 1D514 Common 1D516 1D51C Common 1D51E 1D539 Common 1D53B 1D53E Common 1D540 1D544 Common 1D546 Common 1D54A 1D550 Common 1D552 1D6A5 Common 1D6A8 1D7CB Common 1D7CE 1D7FF Common 1D800 1DA8B SignWriting 1DA9B 1DA9F SignWriting 1DAA1 1DAAF SignWriting 1E000 1E006 Glagolitic 1E008 1E018 Glagolitic 1E01B 1E021 Glagolitic 1E023 1E024 Glagolitic 1E026 1E02A Glagolitic 1E100 1E12C Nyiakeng_Puachue_Hmong 1E130 1E13D Nyiakeng_Puachue_Hmong 1E140 1E149 Nyiakeng_Puachue_Hmong 1E14E 1E14F Nyiakeng_Puachue_Hmong 1E2C0 1E2F9 Wancho 1E2FF Wancho 1E800 1E8C4 Mende_Kikakui 1E8C7 1E8D6 Mende_Kikakui 1E900 1E94B Adlam 1E950 1E959 Adlam 1E95E 1E95F Adlam 1EC71 1ECB4 Common 1ED01 1ED3D Common 1EE00 1EE03 Arabic 1EE05 1EE1F Arabic 1EE21 1EE22 Arabic 1EE24 Arabic 1EE27 Arabic 1EE29 1EE32 Arabic 1EE34 1EE37 Arabic 1EE39 Arabic 1EE3B Arabic 1EE42 Arabic 1EE47 Arabic 1EE49 Arabic 1EE4B Arabic 1EE4D 1EE4F Arabic 1EE51 1EE52 Arabic 1EE54 Arabic 1EE57 Arabic 1EE59 Arabic 1EE5B Arabic 1EE5D Arabic 1EE5F Arabic 1EE61 1EE62 Arabic 1EE64 Arabic 1EE67 1EE6A Arabic 1EE6C 1EE72 Arabic 1EE74 1EE77 Arabic 1EE79 1EE7C Arabic 1EE7E Arabic 1EE80 1EE89 Arabic 1EE8B 1EE9B Arabic 1EEA1 1EEA3 Arabic 1EEA5 1EEA9 Arabic 1EEAB 1EEBB Arabic 1EEF0 1EEF1 Arabic 1F000 1F02B Common 1F030 1F093 Common 1F0A0 1F0AE Common 1F0B1 1F0BF Common 1F0C1 1F0CF Common 1F0D1 1F0F5 Common 1F100 1F1AD Common 1F1E6 1F1FF Common 1F200 Hiragana 1F201 1F202 Common 1F210 1F23B Common 1F240 1F248 Common 1F250 1F251 Han 1F260 1F265 Common 1F300 1F6D7 Common 1F6E0 1F6EC Common 1F6F0 1F6FC Common 1F700 1F773 Common 1F780 1F7D8 Common 1F7E0 1F7EB Common 1F800 1F80B Common 1F810 1F847 Common 1F850 1F859 Common 1F860 1F887 Common 1F890 1F8AD Common 1F8B0 1F8B1 Common 1F900 1F978 Common 1F97A 1F9CB Common 1F9CD 1FA53 Common 1FA60 1FA6D Common 1FA70 1FA74 Common 1FA78 1FA7A Common 1FA80 1FA86 Common 1FA90 1FAA8 Common 1FAB0 1FAB6 Common 1FAC0 1FAC2 Common 1FAD0 1FAD6 Common 1FB00 1FB92 Common 1FB94 1FBCA Common 1FBF0 1FBF9 Common 20000 2A6DD Han 2A700 2B734 Han 2B740 2B81D Han 2B820 2CEA1 Han 2CEB0 2EBE0 Han 2F800 2FA1D Han 30000 3134A Han E0001 Common E0020 E007F Common E0100 E01EF Inherited END PK ! ֢�^ ^ 5.34.0/unicore/To/Bpb.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToBpb'}{'format'} = 'x'; # non-negative hex whole number; a code point $Unicode::UCD::SwashInfo{'ToBpb'}{'missing'} = ''; # code point maps to the null string return <<'END'; 28 0029 29 0028 5B 005D 5D 005B 7B 007D 7D 007B F3A 0F3B F3B 0F3A F3C 0F3D F3D 0F3C 169B 169C 169C 169B 2045 2046 2046 2045 207D 207E 207E 207D 208D 208E 208E 208D 2308 2309 2309 2308 230A 230B 230B 230A 2329 232A 232A 2329 2768 2769 2769 2768 276A 276B 276B 276A 276C 276D 276D 276C 276E 276F 276F 276E 2770 2771 2771 2770 2772 2773 2773 2772 2774 2775 2775 2774 27C5 27C6 27C6 27C5 27E6 27E7 27E7 27E6 27E8 27E9 27E9 27E8 27EA 27EB 27EB 27EA 27EC 27ED 27ED 27EC 27EE 27EF 27EF 27EE 2983 2984 2984 2983 2985 2986 2986 2985 2987 2988 2988 2987 2989 298A 298A 2989 298B 298C 298C 298B 298D 2990 298E 298F 298F 298E 2990 298D 2991 2992 2992 2991 2993 2994 2994 2993 2995 2996 2996 2995 2997 2998 2998 2997 29D8 29D9 29D9 29D8 29DA 29DB 29DB 29DA 29FC 29FD 29FD 29FC 2E22 2E23 2E23 2E22 2E24 2E25 2E25 2E24 2E26 2E27 2E27 2E26 2E28 2E29 2E29 2E28 3008 3009 3009 3008 300A 300B 300B 300A 300C 300D 300D 300C 300E 300F 300F 300E 3010 3011 3011 3010 3014 3015 3015 3014 3016 3017 3017 3016 3018 3019 3019 3018 301A 301B 301B 301A FE59 FE5A FE5A FE59 FE5B FE5C FE5C FE5B FE5D FE5E FE5E FE5D FF08 FF09 FF09 FF08 FF3B FF3D FF3D FF3B FF5B FF5D FF5D FF5B FF5F FF60 FF60 FF5F FF62 FF63 FF63 FF62 END PK ! �p\/ / 5.34.0/unicore/To/Isc.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToIsc'}{'format'} = 'd'; # single decimal digit $Unicode::UCD::SwashInfo{'ToIsc'}{'missing'} = ''; # code point maps to the null string return <<'END'; END PK ! hXи� � 5.34.0/unicore/To/NFKDQC.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToNFKDQC'}{'format'} = 's'; # string $Unicode::UCD::SwashInfo{'ToNFKDQC'}{'missing'} = 'Yes'; return <<'END'; A0 N A8 N AA N AF N B2 B5 N B8 BA N BC BE N C0 C5 N C7 CF N D1 D6 N D9 DD N E0 E5 N E7 EF N F1 F6 N F9 FD N FF 10F N 112 125 N 128 130 N 132 137 N 139 140 N 143 149 N 14C 151 N 154 165 N 168 17F N 1A0 1A1 N 1AF 1B0 N 1C4 1DC N 1DE 1E3 N 1E6 1F5 N 1F8 21B N 21E 21F N 226 233 N 2B0 2B8 N 2D8 2DD N 2E0 2E4 N 340 341 N 343 344 N 374 N 37A N 37E N 384 38A N 38C N 38E 390 N 3AA 3B0 N 3CA 3CE N 3D0 3D6 N 3F0 3F2 N 3F4 3F5 N 3F9 N 400 401 N 403 N 407 N 40C 40E N 419 N 439 N 450 451 N 453 N 457 N 45C 45E N 476 477 N 4C1 4C2 N 4D0 4D3 N 4D6 4D7 N 4DA 4DF N 4E2 4E7 N 4EA 4F5 N 4F8 4F9 N 587 N 622 626 N 675 678 N 6C0 N 6C2 N 6D3 N 929 N 931 N 934 N 958 95F N 9CB 9CC N 9DC 9DD N 9DF N A33 N A36 N A59 A5B N A5E N B48 N B4B B4C N B5C B5D N B94 N BCA BCC N C48 N CC0 N CC7 CC8 N CCA CCB N D4A D4C N DDA N DDC DDE N E33 N EB3 N EDC EDD N F0C N F43 N F4D N F52 N F57 N F5C N F69 N F73 N F75 F79 N F81 N F93 N F9D N FA2 N FA7 N FAC N FB9 N 1026 N 10FC N 1B06 N 1B08 N 1B0A N 1B0C N 1B0E N 1B12 N 1B3B N 1B3D N 1B40 1B41 N 1B43 N 1D2C 1D2E N 1D30 1D3A N 1D3C 1D4D N 1D4F 1D6A N 1D78 N 1D9B 1DBF N 1E00 1E9B N 1EA0 1EF9 N 1F00 1F15 N 1F18 1F1D N 1F20 1F45 N 1F48 1F4D N 1F50 1F57 N 1F59 N 1F5B N 1F5D N 1F5F 1F7D N 1F80 1FB4 N 1FB6 1FC4 N 1FC6 1FD3 N 1FD6 1FDB N 1FDD 1FEF N 1FF2 1FF4 N 1FF6 1FFE N 2000 200A N 2011 N 2017 N 2024 2026 N 202F N 2033 2034 N 2036 2037 N 203C N 203E N 2047 2049 N 2057 N 205F N 2070 2071 N 2074 208E N 2090 209C N 20A8 N 2100 2103 N 2105 2107 N 2109 2113 N 2115 2116 N 2119 211D N 2120 2122 N 2124 N 2126 N 2128 N 212A 212D N 212F 2131 N 2133 2139 N 213B 2140 N 2145 2149 N 2150 217F N 2189 N 219A 219B N 21AE N 21CD 21CF N 2204 N 2209 N 220C N 2224 N 2226 N 222C 222D N 222F 2230 N 2241 N 2244 N 2247 N 2249 N 2260 N 2262 N 226D 2271 N 2274 2275 N 2278 2279 N 2280 2281 N 2284 2285 N 2288 2289 N 22AC 22AF N 22E0 22E3 N 22EA 22ED N 2329 232A N 2460 24EA N 2A0C N 2A74 2A76 N 2ADC N 2C7C 2C7D N 2D6F N 2E9F N 2EF3 N 2F00 2FD5 N 3000 N 3036 N 3038 303A N 304C N 304E N 3050 N 3052 N 3054 N 3056 N 3058 N 305A N 305C N 305E N 3060 N 3062 N 3065 N 3067 N 3069 N 3070 3071 N 3073 3074 N 3076 3077 N 3079 307A N 307C 307D N 3094 N 309B 309C N 309E 309F N 30AC N 30AE N 30B0 N 30B2 N 30B4 N 30B6 N 30B8 N 30BA N 30BC N 30BE N 30C0 N 30C2 N 30C5 N 30C7 N 30C9 N 30D0 30D1 N 30D3 30D4 N 30D6 30D7 N 30D9 30DA N 30DC 30DD N 30F4 N 30F7 30FA N 30FE 30FF N 3131 318E N 3192 319F N 3200 321E N 3220 3247 N 3250 327E N 3280 33FF N A69C A69D N A770 N A7F8 A7F9 N AB5C AB5F N AB69 N AC00 D7A3 N F900 FA0D N FA10 N FA12 N FA15 FA1E N FA20 N FA22 N FA25 FA26 N FA2A FA6D N FA70 FAD9 N FB00 FB06 N FB13 FB17 N FB1D N FB1F FB36 N FB38 FB3C N FB3E N FB40 FB41 N FB43 FB44 N FB46 FBB1 N FBD3 FD3D N FD50 FD8F N FD92 FDC7 N FDF0 FDFC N FE10 FE19 N FE30 FE44 N FE47 FE52 N FE54 FE66 N FE68 FE6B N FE70 FE72 N FE74 N FE76 FEFC N FF01 FFBE N FFC2 FFC7 N FFCA FFCF N FFD2 FFD7 N FFDA FFDC N FFE0 FFE6 N FFE8 FFEE N 1109A N 1109C N 110AB N 1112E 1112F N 1134B 1134C N 114BB 114BC N 114BE N 115BA 115BB N 11938 N 1D15E 1D164 N 1D1BB 1D1C0 N 1D400 1D454 N 1D456 1D49C N 1D49E 1D49F N 1D4A2 N 1D4A5 1D4A6 N 1D4A9 1D4AC N 1D4AE 1D4B9 N 1D4BB N 1D4BD 1D4C3 N 1D4C5 1D505 N 1D507 1D50A N 1D50D 1D514 N 1D516 1D51C N 1D51E 1D539 N 1D53B 1D53E N 1D540 1D544 N 1D546 N 1D54A 1D550 N 1D552 1D6A5 N 1D6A8 1D7CB N 1D7CE 1D7FF N 1EE00 1EE03 N 1EE05 1EE1F N 1EE21 1EE22 N 1EE24 N 1EE27 N 1EE29 1EE32 N 1EE34 1EE37 N 1EE39 N 1EE3B N 1EE42 N 1EE47 N 1EE49 N 1EE4B N 1EE4D 1EE4F N 1EE51 1EE52 N 1EE54 N 1EE57 N 1EE59 N 1EE5B N 1EE5D N 1EE5F N 1EE61 1EE62 N 1EE64 N 1EE67 1EE6A N 1EE6C 1EE72 N 1EE74 1EE77 N 1EE79 1EE7C N 1EE7E N 1EE80 1EE89 N 1EE8B 1EE9B N 1EEA1 1EEA3 N 1EEA5 1EEA9 N 1EEAB 1EEBB N 1F100 1F10A N 1F110 1F12E N 1F130 1F14F N 1F16A 1F16C N 1F190 N 1F200 1F202 N 1F210 1F23B N 1F240 1F248 N 1F250 1F251 N 1FBF0 1FBF9 N 2F800 2FA1D N END PK ! h&ux�5 �5 5.34.0/unicore/To/NameAlia.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToNameAlias'}{'format'} = 's'; # string $Unicode::UCD::SwashInfo{'ToNameAlias'}{'missing'} = ''; # code point maps to the null string return <<'END'; 0 NULL: control 0 NUL: abbreviation 1 START OF HEADING: control 1 SOH: abbreviation 2 START OF TEXT: control 2 STX: abbreviation 3 END OF TEXT: control 3 ETX: abbreviation 4 END OF TRANSMISSION: control 4 EOT: abbreviation 5 ENQUIRY: control 5 ENQ: abbreviation 6 ACKNOWLEDGE: control 6 ACK: abbreviation 7 ALERT: control 7 BEL: abbreviation 8 BACKSPACE: control 8 BS: abbreviation 9 CHARACTER TABULATION: control 9 HORIZONTAL TABULATION: control 9 HT: abbreviation 9 TAB: abbreviation A LINE FEED: control A NEW LINE: control A END OF LINE: control A LF: abbreviation A NL: abbreviation A EOL: abbreviation B LINE TABULATION: control B VERTICAL TABULATION: control B VT: abbreviation C FORM FEED: control C FF: abbreviation D CARRIAGE RETURN: control D CR: abbreviation E SHIFT OUT: control E LOCKING-SHIFT ONE: control E SO: abbreviation F SHIFT IN: control F LOCKING-SHIFT ZERO: control F SI: abbreviation 10 DATA LINK ESCAPE: control 10 DLE: abbreviation 11 DEVICE CONTROL ONE: control 11 DC1: abbreviation 12 DEVICE CONTROL TWO: control 12 DC2: abbreviation 13 DEVICE CONTROL THREE: control 13 DC3: abbreviation 14 DEVICE CONTROL FOUR: control 14 DC4: abbreviation 15 NEGATIVE ACKNOWLEDGE: control 15 NAK: abbreviation 16 SYNCHRONOUS IDLE: control 16 SYN: abbreviation 17 END OF TRANSMISSION BLOCK: control 17 ETB: abbreviation 18 CANCEL: control 18 CAN: abbreviation 19 END OF MEDIUM: control 19 EOM: abbreviation 1A SUBSTITUTE: control 1A SUB: abbreviation 1B ESCAPE: control 1B ESC: abbreviation 1C INFORMATION SEPARATOR FOUR: control 1C FILE SEPARATOR: control 1C FS: abbreviation 1D INFORMATION SEPARATOR THREE: control 1D GROUP SEPARATOR: control 1D GS: abbreviation 1E INFORMATION SEPARATOR TWO: control 1E RECORD SEPARATOR: control 1E RS: abbreviation 1F INFORMATION SEPARATOR ONE: control 1F UNIT SEPARATOR: control 1F US: abbreviation 20 SP: abbreviation 7F DELETE: control 7F DEL: abbreviation 80 PADDING CHARACTER: figment 80 PAD: abbreviation 81 HIGH OCTET PRESET: figment 81 HOP: abbreviation 82 BREAK PERMITTED HERE: control 82 BPH: abbreviation 83 NO BREAK HERE: control 83 NBH: abbreviation 84 INDEX: control 84 IND: abbreviation 85 NEXT LINE: control 85 NEL: abbreviation 86 START OF SELECTED AREA: control 86 SSA: abbreviation 87 END OF SELECTED AREA: control 87 ESA: abbreviation 88 CHARACTER TABULATION SET: control 88 HORIZONTAL TABULATION SET: control 88 HTS: abbreviation 89 CHARACTER TABULATION WITH JUSTIFICATION: control 89 HORIZONTAL TABULATION WITH JUSTIFICATION: control 89 HTJ: abbreviation 8A LINE TABULATION SET: control 8A VERTICAL TABULATION SET: control 8A VTS: abbreviation 8B PARTIAL LINE FORWARD: control 8B PARTIAL LINE DOWN: control 8B PLD: abbreviation 8C PARTIAL LINE BACKWARD: control 8C PARTIAL LINE UP: control 8C PLU: abbreviation 8D REVERSE LINE FEED: control 8D REVERSE INDEX: control 8D RI: abbreviation 8E SINGLE SHIFT TWO: control 8E SINGLE-SHIFT-2: control 8E SS2: abbreviation 8F SINGLE SHIFT THREE: control 8F SINGLE-SHIFT-3: control 8F SS3: abbreviation 90 DEVICE CONTROL STRING: control 90 DCS: abbreviation 91 PRIVATE USE ONE: control 91 PRIVATE USE-1: control 91 PU1: abbreviation 92 PRIVATE USE TWO: control 92 PRIVATE USE-2: control 92 PU2: abbreviation 93 SET TRANSMIT STATE: control 93 STS: abbreviation 94 CANCEL CHARACTER: control 94 CCH: abbreviation 95 MESSAGE WAITING: control 95 MW: abbreviation 96 START OF GUARDED AREA: control 96 START OF PROTECTED AREA: control 96 SPA: abbreviation 97 END OF GUARDED AREA: control 97 END OF PROTECTED AREA: control 97 EPA: abbreviation 98 START OF STRING: control 98 SOS: abbreviation 99 SINGLE GRAPHIC CHARACTER INTRODUCER: figment 99 SGC: abbreviation 9A SINGLE CHARACTER INTRODUCER: control 9A SCI: abbreviation 9B CONTROL SEQUENCE INTRODUCER: control 9B CSI: abbreviation 9C STRING TERMINATOR: control 9C ST: abbreviation 9D OPERATING SYSTEM COMMAND: control 9D OSC: abbreviation 9E PRIVACY MESSAGE: control 9E PM: abbreviation 9F APPLICATION PROGRAM COMMAND: control 9F APC: abbreviation A0 NBSP: abbreviation AD SHY: abbreviation 1A2 LATIN CAPITAL LETTER GHA: correction 1A3 LATIN SMALL LETTER GHA: correction 34F CGJ: abbreviation 61C ALM: abbreviation 709 SYRIAC SUBLINEAR COLON SKEWED LEFT: correction CDE KANNADA LETTER LLLA: correction E9D LAO LETTER FO FON: correction E9F LAO LETTER FO FAY: correction EA3 LAO LETTER RO: correction EA5 LAO LETTER LO: correction FD0 TIBETAN MARK BKA- SHOG GI MGO RGYAN: correction 11EC HANGUL JONGSEONG YESIEUNG-KIYEOK: correction 11ED HANGUL JONGSEONG YESIEUNG-SSANGKIYEOK: correction 11EE HANGUL JONGSEONG SSANGYESIEUNG: correction 11EF HANGUL JONGSEONG YESIEUNG-KHIEUKH: correction 180B FVS1: abbreviation 180C FVS2: abbreviation 180D FVS3: abbreviation 180E MVS: abbreviation 200B ZWSP: abbreviation 200C ZWNJ: abbreviation 200D ZWJ: abbreviation 200E LRM: abbreviation 200F RLM: abbreviation 202A LRE: abbreviation 202B RLE: abbreviation 202C PDF: abbreviation 202D LRO: abbreviation 202E RLO: abbreviation 202F NNBSP: abbreviation 205F MMSP: abbreviation 2060 WJ: abbreviation 2066 LRI: abbreviation 2067 RLI: abbreviation 2068 FSI: abbreviation 2069 PDI: abbreviation 2118 WEIERSTRASS ELLIPTIC FUNCTION: correction 2448 MICR ON US SYMBOL: correction 2449 MICR DASH SYMBOL: correction 2B7A LEFTWARDS TRIANGLE-HEADED ARROW WITH DOUBLE VERTICAL STROKE: correction 2B7C RIGHTWARDS TRIANGLE-HEADED ARROW WITH DOUBLE VERTICAL STROKE: correction A015 YI SYLLABLE ITERATION MARK: correction FE00 VS1: abbreviation FE01 VS2: abbreviation FE02 VS3: abbreviation FE03 VS4: abbreviation FE04 VS5: abbreviation FE05 VS6: abbreviation FE06 VS7: abbreviation FE07 VS8: abbreviation FE08 VS9: abbreviation FE09 VS10: abbreviation FE0A VS11: abbreviation FE0B VS12: abbreviation FE0C VS13: abbreviation FE0D VS14: abbreviation FE0E VS15: abbreviation FE0F VS16: abbreviation FE18 PRESENTATION FORM FOR VERTICAL RIGHT WHITE LENTICULAR BRACKET: correction FEFF BYTE ORDER MARK: alternate FEFF BOM: abbreviation FEFF ZWNBSP: abbreviation 122D4 CUNEIFORM SIGN NU11 TENU: correction 122D5 CUNEIFORM SIGN NU11 OVER NU11 BUR OVER BUR: correction 16E56 MEDEFAIDRIN CAPITAL LETTER H: correction 16E57 MEDEFAIDRIN CAPITAL LETTER NG: correction 16E76 MEDEFAIDRIN SMALL LETTER H: correction 16E77 MEDEFAIDRIN SMALL LETTER NG: correction 1B001 HENTAIGANA LETTER E-1: correction 1D0C5 BYZANTINE MUSICAL SYMBOL FTHORA SKLIRON CHROMA VASIS: correction E0100 VS17: abbreviation E0101 VS18: abbreviation E0102 VS19: abbreviation E0103 VS20: abbreviation E0104 VS21: abbreviation E0105 VS22: abbreviation E0106 VS23: abbreviation E0107 VS24: abbreviation E0108 VS25: abbreviation E0109 VS26: abbreviation E010A VS27: abbreviation E010B VS28: abbreviation E010C VS29: abbreviation E010D VS30: abbreviation E010E VS31: abbreviation E010F VS32: abbreviation E0110 VS33: abbreviation E0111 VS34: abbreviation E0112 VS35: abbreviation E0113 VS36: abbreviation E0114 VS37: abbreviation E0115 VS38: abbreviation E0116 VS39: abbreviation E0117 VS40: abbreviation E0118 VS41: abbreviation E0119 VS42: abbreviation E011A VS43: abbreviation E011B VS44: abbreviation E011C VS45: abbreviation E011D VS46: abbreviation E011E VS47: abbreviation E011F VS48: abbreviation E0120 VS49: abbreviation E0121 VS50: abbreviation E0122 VS51: abbreviation E0123 VS52: abbreviation E0124 VS53: abbreviation E0125 VS54: abbreviation E0126 VS55: abbreviation E0127 VS56: abbreviation E0128 VS57: abbreviation E0129 VS58: abbreviation E012A VS59: abbreviation E012B VS60: abbreviation E012C VS61: abbreviation E012D VS62: abbreviation E012E VS63: abbreviation E012F VS64: abbreviation E0130 VS65: abbreviation E0131 VS66: abbreviation E0132 VS67: abbreviation E0133 VS68: abbreviation E0134 VS69: abbreviation E0135 VS70: abbreviation E0136 VS71: abbreviation E0137 VS72: abbreviation E0138 VS73: abbreviation E0139 VS74: abbreviation E013A VS75: abbreviation E013B VS76: abbreviation E013C VS77: abbreviation E013D VS78: abbreviation E013E VS79: abbreviation E013F VS80: abbreviation E0140 VS81: abbreviation E0141 VS82: abbreviation E0142 VS83: abbreviation E0143 VS84: abbreviation E0144 VS85: abbreviation E0145 VS86: abbreviation E0146 VS87: abbreviation E0147 VS88: abbreviation E0148 VS89: abbreviation E0149 VS90: abbreviation E014A VS91: abbreviation E014B VS92: abbreviation E014C VS93: abbreviation E014D VS94: abbreviation E014E VS95: abbreviation E014F VS96: abbreviation E0150 VS97: abbreviation E0151 VS98: abbreviation E0152 VS99: abbreviation E0153 VS100: abbreviation E0154 VS101: abbreviation E0155 VS102: abbreviation E0156 VS103: abbreviation E0157 VS104: abbreviation E0158 VS105: abbreviation E0159 VS106: abbreviation E015A VS107: abbreviation E015B VS108: abbreviation E015C VS109: abbreviation E015D VS110: abbreviation E015E VS111: abbreviation E015F VS112: abbreviation E0160 VS113: abbreviation E0161 VS114: abbreviation E0162 VS115: abbreviation E0163 VS116: abbreviation E0164 VS117: abbreviation E0165 VS118: abbreviation E0166 VS119: abbreviation E0167 VS120: abbreviation E0168 VS121: abbreviation E0169 VS122: abbreviation E016A VS123: abbreviation E016B VS124: abbreviation E016C VS125: abbreviation E016D VS126: abbreviation E016E VS127: abbreviation E016F VS128: abbreviation E0170 VS129: abbreviation E0171 VS130: abbreviation E0172 VS131: abbreviation E0173 VS132: abbreviation E0174 VS133: abbreviation E0175 VS134: abbreviation E0176 VS135: abbreviation E0177 VS136: abbreviation E0178 VS137: abbreviation E0179 VS138: abbreviation E017A VS139: abbreviation E017B VS140: abbreviation E017C VS141: abbreviation E017D VS142: abbreviation E017E VS143: abbreviation E017F VS144: abbreviation E0180 VS145: abbreviation E0181 VS146: abbreviation E0182 VS147: abbreviation E0183 VS148: abbreviation E0184 VS149: abbreviation E0185 VS150: abbreviation E0186 VS151: abbreviation E0187 VS152: abbreviation E0188 VS153: abbreviation E0189 VS154: abbreviation E018A VS155: abbreviation E018B VS156: abbreviation E018C VS157: abbreviation E018D VS158: abbreviation E018E VS159: abbreviation E018F VS160: abbreviation E0190 VS161: abbreviation E0191 VS162: abbreviation E0192 VS163: abbreviation E0193 VS164: abbreviation E0194 VS165: abbreviation E0195 VS166: abbreviation E0196 VS167: abbreviation E0197 VS168: abbreviation E0198 VS169: abbreviation E0199 VS170: abbreviation E019A VS171: abbreviation E019B VS172: abbreviation E019C VS173: abbreviation E019D VS174: abbreviation E019E VS175: abbreviation E019F VS176: abbreviation E01A0 VS177: abbreviation E01A1 VS178: abbreviation E01A2 VS179: abbreviation E01A3 VS180: abbreviation E01A4 VS181: abbreviation E01A5 VS182: abbreviation E01A6 VS183: abbreviation E01A7 VS184: abbreviation E01A8 VS185: abbreviation E01A9 VS186: abbreviation E01AA VS187: abbreviation E01AB VS188: abbreviation E01AC VS189: abbreviation E01AD VS190: abbreviation E01AE VS191: abbreviation E01AF VS192: abbreviation E01B0 VS193: abbreviation E01B1 VS194: abbreviation E01B2 VS195: abbreviation E01B3 VS196: abbreviation E01B4 VS197: abbreviation E01B5 VS198: abbreviation E01B6 VS199: abbreviation E01B7 VS200: abbreviation E01B8 VS201: abbreviation E01B9 VS202: abbreviation E01BA VS203: abbreviation E01BB VS204: abbreviation E01BC VS205: abbreviation E01BD VS206: abbreviation E01BE VS207: abbreviation E01BF VS208: abbreviation E01C0 VS209: abbreviation E01C1 VS210: abbreviation E01C2 VS211: abbreviation E01C3 VS212: abbreviation E01C4 VS213: abbreviation E01C5 VS214: abbreviation E01C6 VS215: abbreviation E01C7 VS216: abbreviation E01C8 VS217: abbreviation E01C9 VS218: abbreviation E01CA VS219: abbreviation E01CB VS220: abbreviation E01CC VS221: abbreviation E01CD VS222: abbreviation E01CE VS223: abbreviation E01CF VS224: abbreviation E01D0 VS225: abbreviation E01D1 VS226: abbreviation E01D2 VS227: abbreviation E01D3 VS228: abbreviation E01D4 VS229: abbreviation E01D5 VS230: abbreviation E01D6 VS231: abbreviation E01D7 VS232: abbreviation E01D8 VS233: abbreviation E01D9 VS234: abbreviation E01DA VS235: abbreviation E01DB VS236: abbreviation E01DC VS237: abbreviation E01DD VS238: abbreviation E01DE VS239: abbreviation E01DF VS240: abbreviation E01E0 VS241: abbreviation E01E1 VS242: abbreviation E01E2 VS243: abbreviation E01E3 VS244: abbreviation E01E4 VS245: abbreviation E01E5 VS246: abbreviation E01E6 VS247: abbreviation E01E7 VS248: abbreviation E01E8 VS249: abbreviation E01E9 VS250: abbreviation E01EA VS251: abbreviation E01EB VS252: abbreviation E01EC VS253: abbreviation E01ED VS254: abbreviation E01EE VS255: abbreviation E01EF VS256: abbreviation END PK ! U"��:_ :_ 5.34.0/unicore/To/Upper.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! IT IS DEPRECATED TO USE THIS FILE !!!!!!! # This file is for internal use by core Perl only. It is retained for # backwards compatibility with applications that may have come to rely on it, # but its format and even its name or existence are subject to change without # notice in a future Perl version. Don't use it directly. Instead, its # contents are now retrievable through a stable API in the Unicode::UCD # module: Unicode::UCD::prop_invmap('Uppercase_Mapping') (Values for individual # code points can be retrieved via Unicode::UCD::charprop()); # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToUpper'}{'format'} = 'x'; # non-negative hex whole number; a code point $Unicode::UCD::SwashInfo{'ToUpper'}{'specials_name'} = 'Unicode::UCD::ToSpecUpper'; # Name of hash of special mappings $Unicode::UCD::SwashInfo{'ToUpper'}{'missing'} = '<code point>'; # code point maps to itself # Some code points require special handling because their mappings are each to # multiple code points. These do not appear in the main body, but are defined # in the hash below. # Each key is the string of N bytes that together make up the UTF-8 encoding # for the code point. (i.e. the same as looking at the code point's UTF-8 # under "use bytes"). Each value is the UTF-8 of the translation, for speed. %Unicode::UCD::ToSpecUpper = ( "\xC3\x9F" => "\x{0053}\x{0053}", # U+00DF => 0053 0053 "\xC5\x89" => "\x{02BC}\x{004E}", # U+0149 => 02BC 004E "\xC7\xB0" => "\x{004A}\x{030C}", # U+01F0 => 004A 030C "\xCE\x90" => "\x{0399}\x{0308}\x{0301}", # U+0390 => 0399 0308 0301 "\xCE\xB0" => "\x{03A5}\x{0308}\x{0301}", # U+03B0 => 03A5 0308 0301 "\xD6\x87" => "\x{0535}\x{0552}", # U+0587 => 0535 0552 "\xE1\xBA\x96" => "\x{0048}\x{0331}", # U+1E96 => 0048 0331 "\xE1\xBA\x97" => "\x{0054}\x{0308}", # U+1E97 => 0054 0308 "\xE1\xBA\x98" => "\x{0057}\x{030A}", # U+1E98 => 0057 030A "\xE1\xBA\x99" => "\x{0059}\x{030A}", # U+1E99 => 0059 030A "\xE1\xBA\x9A" => "\x{0041}\x{02BE}", # U+1E9A => 0041 02BE "\xE1\xBD\x90" => "\x{03A5}\x{0313}", # U+1F50 => 03A5 0313 "\xE1\xBD\x92" => "\x{03A5}\x{0313}\x{0300}", # U+1F52 => 03A5 0313 0300 "\xE1\xBD\x94" => "\x{03A5}\x{0313}\x{0301}", # U+1F54 => 03A5 0313 0301 "\xE1\xBD\x96" => "\x{03A5}\x{0313}\x{0342}", # U+1F56 => 03A5 0313 0342 "\xE1\xBE\x80" => "\x{1F08}\x{0399}", # U+1F80 => 1F08 0399 "\xE1\xBE\x81" => "\x{1F09}\x{0399}", # U+1F81 => 1F09 0399 "\xE1\xBE\x82" => "\x{1F0A}\x{0399}", # U+1F82 => 1F0A 0399 "\xE1\xBE\x83" => "\x{1F0B}\x{0399}", # U+1F83 => 1F0B 0399 "\xE1\xBE\x84" => "\x{1F0C}\x{0399}", # U+1F84 => 1F0C 0399 "\xE1\xBE\x85" => "\x{1F0D}\x{0399}", # U+1F85 => 1F0D 0399 "\xE1\xBE\x86" => "\x{1F0E}\x{0399}", # U+1F86 => 1F0E 0399 "\xE1\xBE\x87" => "\x{1F0F}\x{0399}", # U+1F87 => 1F0F 0399 "\xE1\xBE\x88" => "\x{1F08}\x{0399}", # U+1F88 => 1F08 0399 "\xE1\xBE\x89" => "\x{1F09}\x{0399}", # U+1F89 => 1F09 0399 "\xE1\xBE\x8A" => "\x{1F0A}\x{0399}", # U+1F8A => 1F0A 0399 "\xE1\xBE\x8B" => "\x{1F0B}\x{0399}", # U+1F8B => 1F0B 0399 "\xE1\xBE\x8C" => "\x{1F0C}\x{0399}", # U+1F8C => 1F0C 0399 "\xE1\xBE\x8D" => "\x{1F0D}\x{0399}", # U+1F8D => 1F0D 0399 "\xE1\xBE\x8E" => "\x{1F0E}\x{0399}", # U+1F8E => 1F0E 0399 "\xE1\xBE\x8F" => "\x{1F0F}\x{0399}", # U+1F8F => 1F0F 0399 "\xE1\xBE\x90" => "\x{1F28}\x{0399}", # U+1F90 => 1F28 0399 "\xE1\xBE\x91" => "\x{1F29}\x{0399}", # U+1F91 => 1F29 0399 "\xE1\xBE\x92" => "\x{1F2A}\x{0399}", # U+1F92 => 1F2A 0399 "\xE1\xBE\x93" => "\x{1F2B}\x{0399}", # U+1F93 => 1F2B 0399 "\xE1\xBE\x94" => "\x{1F2C}\x{0399}", # U+1F94 => 1F2C 0399 "\xE1\xBE\x95" => "\x{1F2D}\x{0399}", # U+1F95 => 1F2D 0399 "\xE1\xBE\x96" => "\x{1F2E}\x{0399}", # U+1F96 => 1F2E 0399 "\xE1\xBE\x97" => "\x{1F2F}\x{0399}", # U+1F97 => 1F2F 0399 "\xE1\xBE\x98" => "\x{1F28}\x{0399}", # U+1F98 => 1F28 0399 "\xE1\xBE\x99" => "\x{1F29}\x{0399}", # U+1F99 => 1F29 0399 "\xE1\xBE\x9A" => "\x{1F2A}\x{0399}", # U+1F9A => 1F2A 0399 "\xE1\xBE\x9B" => "\x{1F2B}\x{0399}", # U+1F9B => 1F2B 0399 "\xE1\xBE\x9C" => "\x{1F2C}\x{0399}", # U+1F9C => 1F2C 0399 "\xE1\xBE\x9D" => "\x{1F2D}\x{0399}", # U+1F9D => 1F2D 0399 "\xE1\xBE\x9E" => "\x{1F2E}\x{0399}", # U+1F9E => 1F2E 0399 "\xE1\xBE\x9F" => "\x{1F2F}\x{0399}", # U+1F9F => 1F2F 0399 "\xE1\xBE\xA0" => "\x{1F68}\x{0399}", # U+1FA0 => 1F68 0399 "\xE1\xBE\xA1" => "\x{1F69}\x{0399}", # U+1FA1 => 1F69 0399 "\xE1\xBE\xA2" => "\x{1F6A}\x{0399}", # U+1FA2 => 1F6A 0399 "\xE1\xBE\xA3" => "\x{1F6B}\x{0399}", # U+1FA3 => 1F6B 0399 "\xE1\xBE\xA4" => "\x{1F6C}\x{0399}", # U+1FA4 => 1F6C 0399 "\xE1\xBE\xA5" => "\x{1F6D}\x{0399}", # U+1FA5 => 1F6D 0399 "\xE1\xBE\xA6" => "\x{1F6E}\x{0399}", # U+1FA6 => 1F6E 0399 "\xE1\xBE\xA7" => "\x{1F6F}\x{0399}", # U+1FA7 => 1F6F 0399 "\xE1\xBE\xA8" => "\x{1F68}\x{0399}", # U+1FA8 => 1F68 0399 "\xE1\xBE\xA9" => "\x{1F69}\x{0399}", # U+1FA9 => 1F69 0399 "\xE1\xBE\xAA" => "\x{1F6A}\x{0399}", # U+1FAA => 1F6A 0399 "\xE1\xBE\xAB" => "\x{1F6B}\x{0399}", # U+1FAB => 1F6B 0399 "\xE1\xBE\xAC" => "\x{1F6C}\x{0399}", # U+1FAC => 1F6C 0399 "\xE1\xBE\xAD" => "\x{1F6D}\x{0399}", # U+1FAD => 1F6D 0399 "\xE1\xBE\xAE" => "\x{1F6E}\x{0399}", # U+1FAE => 1F6E 0399 "\xE1\xBE\xAF" => "\x{1F6F}\x{0399}", # U+1FAF => 1F6F 0399 "\xE1\xBE\xB2" => "\x{1FBA}\x{0399}", # U+1FB2 => 1FBA 0399 "\xE1\xBE\xB3" => "\x{0391}\x{0399}", # U+1FB3 => 0391 0399 "\xE1\xBE\xB4" => "\x{0386}\x{0399}", # U+1FB4 => 0386 0399 "\xE1\xBE\xB6" => "\x{0391}\x{0342}", # U+1FB6 => 0391 0342 "\xE1\xBE\xB7" => "\x{0391}\x{0342}\x{0399}", # U+1FB7 => 0391 0342 0399 "\xE1\xBE\xBC" => "\x{0391}\x{0399}", # U+1FBC => 0391 0399 "\xE1\xBF\x82" => "\x{1FCA}\x{0399}", # U+1FC2 => 1FCA 0399 "\xE1\xBF\x83" => "\x{0397}\x{0399}", # U+1FC3 => 0397 0399 "\xE1\xBF\x84" => "\x{0389}\x{0399}", # U+1FC4 => 0389 0399 "\xE1\xBF\x86" => "\x{0397}\x{0342}", # U+1FC6 => 0397 0342 "\xE1\xBF\x87" => "\x{0397}\x{0342}\x{0399}", # U+1FC7 => 0397 0342 0399 "\xE1\xBF\x8C" => "\x{0397}\x{0399}", # U+1FCC => 0397 0399 "\xE1\xBF\x92" => "\x{0399}\x{0308}\x{0300}", # U+1FD2 => 0399 0308 0300 "\xE1\xBF\x93" => "\x{0399}\x{0308}\x{0301}", # U+1FD3 => 0399 0308 0301 "\xE1\xBF\x96" => "\x{0399}\x{0342}", # U+1FD6 => 0399 0342 "\xE1\xBF\x97" => "\x{0399}\x{0308}\x{0342}", # U+1FD7 => 0399 0308 0342 "\xE1\xBF\xA2" => "\x{03A5}\x{0308}\x{0300}", # U+1FE2 => 03A5 0308 0300 "\xE1\xBF\xA3" => "\x{03A5}\x{0308}\x{0301}", # U+1FE3 => 03A5 0308 0301 "\xE1\xBF\xA4" => "\x{03A1}\x{0313}", # U+1FE4 => 03A1 0313 "\xE1\xBF\xA6" => "\x{03A5}\x{0342}", # U+1FE6 => 03A5 0342 "\xE1\xBF\xA7" => "\x{03A5}\x{0308}\x{0342}", # U+1FE7 => 03A5 0308 0342 "\xE1\xBF\xB2" => "\x{1FFA}\x{0399}", # U+1FF2 => 1FFA 0399 "\xE1\xBF\xB3" => "\x{03A9}\x{0399}", # U+1FF3 => 03A9 0399 "\xE1\xBF\xB4" => "\x{038F}\x{0399}", # U+1FF4 => 038F 0399 "\xE1\xBF\xB6" => "\x{03A9}\x{0342}", # U+1FF6 => 03A9 0342 "\xE1\xBF\xB7" => "\x{03A9}\x{0342}\x{0399}", # U+1FF7 => 03A9 0342 0399 "\xE1\xBF\xBC" => "\x{03A9}\x{0399}", # U+1FFC => 03A9 0399 "\xEF\xAC\x80" => "\x{0046}\x{0046}", # U+FB00 => 0046 0046 "\xEF\xAC\x81" => "\x{0046}\x{0049}", # U+FB01 => 0046 0049 "\xEF\xAC\x82" => "\x{0046}\x{004C}", # U+FB02 => 0046 004C "\xEF\xAC\x83" => "\x{0046}\x{0046}\x{0049}", # U+FB03 => 0046 0046 0049 "\xEF\xAC\x84" => "\x{0046}\x{0046}\x{004C}", # U+FB04 => 0046 0046 004C "\xEF\xAC\x85" => "\x{0053}\x{0054}", # U+FB05 => 0053 0054 "\xEF\xAC\x86" => "\x{0053}\x{0054}", # U+FB06 => 0053 0054 "\xEF\xAC\x93" => "\x{0544}\x{0546}", # U+FB13 => 0544 0546 "\xEF\xAC\x94" => "\x{0544}\x{0535}", # U+FB14 => 0544 0535 "\xEF\xAC\x95" => "\x{0544}\x{053B}", # U+FB15 => 0544 053B "\xEF\xAC\x96" => "\x{054E}\x{0546}", # U+FB16 => 054E 0546 "\xEF\xAC\x97" => "\x{0544}\x{053D}", # U+FB17 => 0544 053D ); return <<'END'; 0061 0041 0062 0042 0063 0043 0064 0044 0065 0045 0066 0046 0067 0047 0068 0048 0069 0049 006A 004A 006B 004B 006C 004C 006D 004D 006E 004E 006F 004F 0070 0050 0071 0051 0072 0052 0073 0053 0074 0054 0075 0055 0076 0056 0077 0057 0078 0058 0079 0059 007A 005A 00B5 039C 00E0 00C0 00E1 00C1 00E2 00C2 00E3 00C3 00E4 00C4 00E5 00C5 00E6 00C6 00E7 00C7 00E8 00C8 00E9 00C9 00EA 00CA 00EB 00CB 00EC 00CC 00ED 00CD 00EE 00CE 00EF 00CF 00F0 00D0 00F1 00D1 00F2 00D2 00F3 00D3 00F4 00D4 00F5 00D5 00F6 00D6 00F8 00D8 00F9 00D9 00FA 00DA 00FB 00DB 00FC 00DC 00FD 00DD 00FE 00DE 00FF 0178 0101 0100 0103 0102 0105 0104 0107 0106 0109 0108 010B 010A 010D 010C 010F 010E 0111 0110 0113 0112 0115 0114 0117 0116 0119 0118 011B 011A 011D 011C 011F 011E 0121 0120 0123 0122 0125 0124 0127 0126 0129 0128 012B 012A 012D 012C 012F 012E 0131 0049 0133 0132 0135 0134 0137 0136 013A 0139 013C 013B 013E 013D 0140 013F 0142 0141 0144 0143 0146 0145 0148 0147 014B 014A 014D 014C 014F 014E 0151 0150 0153 0152 0155 0154 0157 0156 0159 0158 015B 015A 015D 015C 015F 015E 0161 0160 0163 0162 0165 0164 0167 0166 0169 0168 016B 016A 016D 016C 016F 016E 0171 0170 0173 0172 0175 0174 0177 0176 017A 0179 017C 017B 017E 017D 017F 0053 0180 0243 0183 0182 0185 0184 0188 0187 018C 018B 0192 0191 0195 01F6 0199 0198 019A 023D 019E 0220 01A1 01A0 01A3 01A2 01A5 01A4 01A8 01A7 01AD 01AC 01B0 01AF 01B4 01B3 01B6 01B5 01B9 01B8 01BD 01BC 01BF 01F7 01C5 01C4 01C6 01C4 01C8 01C7 01C9 01C7 01CB 01CA 01CC 01CA 01CE 01CD 01D0 01CF 01D2 01D1 01D4 01D3 01D6 01D5 01D8 01D7 01DA 01D9 01DC 01DB 01DD 018E 01DF 01DE 01E1 01E0 01E3 01E2 01E5 01E4 01E7 01E6 01E9 01E8 01EB 01EA 01ED 01EC 01EF 01EE 01F2 01F1 01F3 01F1 01F5 01F4 01F9 01F8 01FB 01FA 01FD 01FC 01FF 01FE 0201 0200 0203 0202 0205 0204 0207 0206 0209 0208 020B 020A 020D 020C 020F 020E 0211 0210 0213 0212 0215 0214 0217 0216 0219 0218 021B 021A 021D 021C 021F 021E 0223 0222 0225 0224 0227 0226 0229 0228 022B 022A 022D 022C 022F 022E 0231 0230 0233 0232 023C 023B 023F 2C7E 0240 2C7F 0242 0241 0247 0246 0249 0248 024B 024A 024D 024C 024F 024E 0250 2C6F 0251 2C6D 0252 2C70 0253 0181 0254 0186 0256 0189 0257 018A 0259 018F 025B 0190 025C A7AB 0260 0193 0261 A7AC 0263 0194 0265 A78D 0266 A7AA 0268 0197 0269 0196 026A A7AE 026B 2C62 026C A7AD 026F 019C 0271 2C6E 0272 019D 0275 019F 027D 2C64 0280 01A6 0282 A7C5 0283 01A9 0287 A7B1 0288 01AE 0289 0244 028A 01B1 028B 01B2 028C 0245 0292 01B7 029D A7B2 029E A7B0 0345 0399 0371 0370 0373 0372 0377 0376 037B 03FD 037C 03FE 037D 03FF 03AC 0386 03AD 0388 03AE 0389 03AF 038A 03B1 0391 03B2 0392 03B3 0393 03B4 0394 03B5 0395 03B6 0396 03B7 0397 03B8 0398 03B9 0399 03BA 039A 03BB 039B 03BC 039C 03BD 039D 03BE 039E 03BF 039F 03C0 03A0 03C1 03A1 03C2 03A3 03C3 03A3 03C4 03A4 03C5 03A5 03C6 03A6 03C7 03A7 03C8 03A8 03C9 03A9 03CA 03AA 03CB 03AB 03CC 038C 03CD 038E 03CE 038F 03D0 0392 03D1 0398 03D5 03A6 03D6 03A0 03D7 03CF 03D9 03D8 03DB 03DA 03DD 03DC 03DF 03DE 03E1 03E0 03E3 03E2 03E5 03E4 03E7 03E6 03E9 03E8 03EB 03EA 03ED 03EC 03EF 03EE 03F0 039A 03F1 03A1 03F2 03F9 03F3 037F 03F5 0395 03F8 03F7 03FB 03FA 0430 0410 0431 0411 0432 0412 0433 0413 0434 0414 0435 0415 0436 0416 0437 0417 0438 0418 0439 0419 043A 041A 043B 041B 043C 041C 043D 041D 043E 041E 043F 041F 0440 0420 0441 0421 0442 0422 0443 0423 0444 0424 0445 0425 0446 0426 0447 0427 0448 0428 0449 0429 044A 042A 044B 042B 044C 042C 044D 042D 044E 042E 044F 042F 0450 0400 0451 0401 0452 0402 0453 0403 0454 0404 0455 0405 0456 0406 0457 0407 0458 0408 0459 0409 045A 040A 045B 040B 045C 040C 045D 040D 045E 040E 045F 040F 0461 0460 0463 0462 0465 0464 0467 0466 0469 0468 046B 046A 046D 046C 046F 046E 0471 0470 0473 0472 0475 0474 0477 0476 0479 0478 047B 047A 047D 047C 047F 047E 0481 0480 048B 048A 048D 048C 048F 048E 0491 0490 0493 0492 0495 0494 0497 0496 0499 0498 049B 049A 049D 049C 049F 049E 04A1 04A0 04A3 04A2 04A5 04A4 04A7 04A6 04A9 04A8 04AB 04AA 04AD 04AC 04AF 04AE 04B1 04B0 04B3 04B2 04B5 04B4 04B7 04B6 04B9 04B8 04BB 04BA 04BD 04BC 04BF 04BE 04C2 04C1 04C4 04C3 04C6 04C5 04C8 04C7 04CA 04C9 04CC 04CB 04CE 04CD 04CF 04C0 04D1 04D0 04D3 04D2 04D5 04D4 04D7 04D6 04D9 04D8 04DB 04DA 04DD 04DC 04DF 04DE 04E1 04E0 04E3 04E2 04E5 04E4 04E7 04E6 04E9 04E8 04EB 04EA 04ED 04EC 04EF 04EE 04F1 04F0 04F3 04F2 04F5 04F4 04F7 04F6 04F9 04F8 04FB 04FA 04FD 04FC 04FF 04FE 0501 0500 0503 0502 0505 0504 0507 0506 0509 0508 050B 050A 050D 050C 050F 050E 0511 0510 0513 0512 0515 0514 0517 0516 0519 0518 051B 051A 051D 051C 051F 051E 0521 0520 0523 0522 0525 0524 0527 0526 0529 0528 052B 052A 052D 052C 052F 052E 0561 0531 0562 0532 0563 0533 0564 0534 0565 0535 0566 0536 0567 0537 0568 0538 0569 0539 056A 053A 056B 053B 056C 053C 056D 053D 056E 053E 056F 053F 0570 0540 0571 0541 0572 0542 0573 0543 0574 0544 0575 0545 0576 0546 0577 0547 0578 0548 0579 0549 057A 054A 057B 054B 057C 054C 057D 054D 057E 054E 057F 054F 0580 0550 0581 0551 0582 0552 0583 0553 0584 0554 0585 0555 0586 0556 10D0 1C90 10D1 1C91 10D2 1C92 10D3 1C93 10D4 1C94 10D5 1C95 10D6 1C96 10D7 1C97 10D8 1C98 10D9 1C99 10DA 1C9A 10DB 1C9B 10DC 1C9C 10DD 1C9D 10DE 1C9E 10DF 1C9F 10E0 1CA0 10E1 1CA1 10E2 1CA2 10E3 1CA3 10E4 1CA4 10E5 1CA5 10E6 1CA6 10E7 1CA7 10E8 1CA8 10E9 1CA9 10EA 1CAA 10EB 1CAB 10EC 1CAC 10ED 1CAD 10EE 1CAE 10EF 1CAF 10F0 1CB0 10F1 1CB1 10F2 1CB2 10F3 1CB3 10F4 1CB4 10F5 1CB5 10F6 1CB6 10F7 1CB7 10F8 1CB8 10F9 1CB9 10FA 1CBA 10FD 1CBD 10FE 1CBE 10FF 1CBF 13F8 13F0 13F9 13F1 13FA 13F2 13FB 13F3 13FC 13F4 13FD 13F5 1C80 0412 1C81 0414 1C82 041E 1C83 0421 1C84 0422 1C85 0422 1C86 042A 1C87 0462 1C88 A64A 1D79 A77D 1D7D 2C63 1D8E A7C6 1E01 1E00 1E03 1E02 1E05 1E04 1E07 1E06 1E09 1E08 1E0B 1E0A 1E0D 1E0C 1E0F 1E0E 1E11 1E10 1E13 1E12 1E15 1E14 1E17 1E16 1E19 1E18 1E1B 1E1A 1E1D 1E1C 1E1F 1E1E 1E21 1E20 1E23 1E22 1E25 1E24 1E27 1E26 1E29 1E28 1E2B 1E2A 1E2D 1E2C 1E2F 1E2E 1E31 1E30 1E33 1E32 1E35 1E34 1E37 1E36 1E39 1E38 1E3B 1E3A 1E3D 1E3C 1E3F 1E3E 1E41 1E40 1E43 1E42 1E45 1E44 1E47 1E46 1E49 1E48 1E4B 1E4A 1E4D 1E4C 1E4F 1E4E 1E51 1E50 1E53 1E52 1E55 1E54 1E57 1E56 1E59 1E58 1E5B 1E5A 1E5D 1E5C 1E5F 1E5E 1E61 1E60 1E63 1E62 1E65 1E64 1E67 1E66 1E69 1E68 1E6B 1E6A 1E6D 1E6C 1E6F 1E6E 1E71 1E70 1E73 1E72 1E75 1E74 1E77 1E76 1E79 1E78 1E7B 1E7A 1E7D 1E7C 1E7F 1E7E 1E81 1E80 1E83 1E82 1E85 1E84 1E87 1E86 1E89 1E88 1E8B 1E8A 1E8D 1E8C 1E8F 1E8E 1E91 1E90 1E93 1E92 1E95 1E94 1E9B 1E60 1EA1 1EA0 1EA3 1EA2 1EA5 1EA4 1EA7 1EA6 1EA9 1EA8 1EAB 1EAA 1EAD 1EAC 1EAF 1EAE 1EB1 1EB0 1EB3 1EB2 1EB5 1EB4 1EB7 1EB6 1EB9 1EB8 1EBB 1EBA 1EBD 1EBC 1EBF 1EBE 1EC1 1EC0 1EC3 1EC2 1EC5 1EC4 1EC7 1EC6 1EC9 1EC8 1ECB 1ECA 1ECD 1ECC 1ECF 1ECE 1ED1 1ED0 1ED3 1ED2 1ED5 1ED4 1ED7 1ED6 1ED9 1ED8 1EDB 1EDA 1EDD 1EDC 1EDF 1EDE 1EE1 1EE0 1EE3 1EE2 1EE5 1EE4 1EE7 1EE6 1EE9 1EE8 1EEB 1EEA 1EED 1EEC 1EEF 1EEE 1EF1 1EF0 1EF3 1EF2 1EF5 1EF4 1EF7 1EF6 1EF9 1EF8 1EFB 1EFA 1EFD 1EFC 1EFF 1EFE 1F00 1F08 1F01 1F09 1F02 1F0A 1F03 1F0B 1F04 1F0C 1F05 1F0D 1F06 1F0E 1F07 1F0F 1F10 1F18 1F11 1F19 1F12 1F1A 1F13 1F1B 1F14 1F1C 1F15 1F1D 1F20 1F28 1F21 1F29 1F22 1F2A 1F23 1F2B 1F24 1F2C 1F25 1F2D 1F26 1F2E 1F27 1F2F 1F30 1F38 1F31 1F39 1F32 1F3A 1F33 1F3B 1F34 1F3C 1F35 1F3D 1F36 1F3E 1F37 1F3F 1F40 1F48 1F41 1F49 1F42 1F4A 1F43 1F4B 1F44 1F4C 1F45 1F4D 1F51 1F59 1F53 1F5B 1F55 1F5D 1F57 1F5F 1F60 1F68 1F61 1F69 1F62 1F6A 1F63 1F6B 1F64 1F6C 1F65 1F6D 1F66 1F6E 1F67 1F6F 1F70 1FBA 1F71 1FBB 1F72 1FC8 1F73 1FC9 1F74 1FCA 1F75 1FCB 1F76 1FDA 1F77 1FDB 1F78 1FF8 1F79 1FF9 1F7A 1FEA 1F7B 1FEB 1F7C 1FFA 1F7D 1FFB 1FB0 1FB8 1FB1 1FB9 1FBE 0399 1FD0 1FD8 1FD1 1FD9 1FE0 1FE8 1FE1 1FE9 1FE5 1FEC 214E 2132 2170 2160 2171 2161 2172 2162 2173 2163 2174 2164 2175 2165 2176 2166 2177 2167 2178 2168 2179 2169 217A 216A 217B 216B 217C 216C 217D 216D 217E 216E 217F 216F 2184 2183 24D0 24B6 24D1 24B7 24D2 24B8 24D3 24B9 24D4 24BA 24D5 24BB 24D6 24BC 24D7 24BD 24D8 24BE 24D9 24BF 24DA 24C0 24DB 24C1 24DC 24C2 24DD 24C3 24DE 24C4 24DF 24C5 24E0 24C6 24E1 24C7 24E2 24C8 24E3 24C9 24E4 24CA 24E5 24CB 24E6 24CC 24E7 24CD 24E8 24CE 24E9 24CF 2C30 2C00 2C31 2C01 2C32 2C02 2C33 2C03 2C34 2C04 2C35 2C05 2C36 2C06 2C37 2C07 2C38 2C08 2C39 2C09 2C3A 2C0A 2C3B 2C0B 2C3C 2C0C 2C3D 2C0D 2C3E 2C0E 2C3F 2C0F 2C40 2C10 2C41 2C11 2C42 2C12 2C43 2C13 2C44 2C14 2C45 2C15 2C46 2C16 2C47 2C17 2C48 2C18 2C49 2C19 2C4A 2C1A 2C4B 2C1B 2C4C 2C1C 2C4D 2C1D 2C4E 2C1E 2C4F 2C1F 2C50 2C20 2C51 2C21 2C52 2C22 2C53 2C23 2C54 2C24 2C55 2C25 2C56 2C26 2C57 2C27 2C58 2C28 2C59 2C29 2C5A 2C2A 2C5B 2C2B 2C5C 2C2C 2C5D 2C2D 2C5E 2C2E 2C61 2C60 2C65 023A 2C66 023E 2C68 2C67 2C6A 2C69 2C6C 2C6B 2C73 2C72 2C76 2C75 2C81 2C80 2C83 2C82 2C85 2C84 2C87 2C86 2C89 2C88 2C8B 2C8A 2C8D 2C8C 2C8F 2C8E 2C91 2C90 2C93 2C92 2C95 2C94 2C97 2C96 2C99 2C98 2C9B 2C9A 2C9D 2C9C 2C9F 2C9E 2CA1 2CA0 2CA3 2CA2 2CA5 2CA4 2CA7 2CA6 2CA9 2CA8 2CAB 2CAA 2CAD 2CAC 2CAF 2CAE 2CB1 2CB0 2CB3 2CB2 2CB5 2CB4 2CB7 2CB6 2CB9 2CB8 2CBB 2CBA 2CBD 2CBC 2CBF 2CBE 2CC1 2CC0 2CC3 2CC2 2CC5 2CC4 2CC7 2CC6 2CC9 2CC8 2CCB 2CCA 2CCD 2CCC 2CCF 2CCE 2CD1 2CD0 2CD3 2CD2 2CD5 2CD4 2CD7 2CD6 2CD9 2CD8 2CDB 2CDA 2CDD 2CDC 2CDF 2CDE 2CE1 2CE0 2CE3 2CE2 2CEC 2CEB 2CEE 2CED 2CF3 2CF2 2D00 10A0 2D01 10A1 2D02 10A2 2D03 10A3 2D04 10A4 2D05 10A5 2D06 10A6 2D07 10A7 2D08 10A8 2D09 10A9 2D0A 10AA 2D0B 10AB 2D0C 10AC 2D0D 10AD 2D0E 10AE 2D0F 10AF 2D10 10B0 2D11 10B1 2D12 10B2 2D13 10B3 2D14 10B4 2D15 10B5 2D16 10B6 2D17 10B7 2D18 10B8 2D19 10B9 2D1A 10BA 2D1B 10BB 2D1C 10BC 2D1D 10BD 2D1E 10BE 2D1F 10BF 2D20 10C0 2D21 10C1 2D22 10C2 2D23 10C3 2D24 10C4 2D25 10C5 2D27 10C7 2D2D 10CD A641 A640 A643 A642 A645 A644 A647 A646 A649 A648 A64B A64A A64D A64C A64F A64E A651 A650 A653 A652 A655 A654 A657 A656 A659 A658 A65B A65A A65D A65C A65F A65E A661 A660 A663 A662 A665 A664 A667 A666 A669 A668 A66B A66A A66D A66C A681 A680 A683 A682 A685 A684 A687 A686 A689 A688 A68B A68A A68D A68C A68F A68E A691 A690 A693 A692 A695 A694 A697 A696 A699 A698 A69B A69A A723 A722 A725 A724 A727 A726 A729 A728 A72B A72A A72D A72C A72F A72E A733 A732 A735 A734 A737 A736 A739 A738 A73B A73A A73D A73C A73F A73E A741 A740 A743 A742 A745 A744 A747 A746 A749 A748 A74B A74A A74D A74C A74F A74E A751 A750 A753 A752 A755 A754 A757 A756 A759 A758 A75B A75A A75D A75C A75F A75E A761 A760 A763 A762 A765 A764 A767 A766 A769 A768 A76B A76A A76D A76C A76F A76E A77A A779 A77C A77B A77F A77E A781 A780 A783 A782 A785 A784 A787 A786 A78C A78B A791 A790 A793 A792 A794 A7C4 A797 A796 A799 A798 A79B A79A A79D A79C A79F A79E A7A1 A7A0 A7A3 A7A2 A7A5 A7A4 A7A7 A7A6 A7A9 A7A8 A7B5 A7B4 A7B7 A7B6 A7B9 A7B8 A7BB A7BA A7BD A7BC A7BF A7BE A7C3 A7C2 A7C8 A7C7 A7CA A7C9 A7F6 A7F5 AB53 A7B3 AB70 13A0 AB71 13A1 AB72 13A2 AB73 13A3 AB74 13A4 AB75 13A5 AB76 13A6 AB77 13A7 AB78 13A8 AB79 13A9 AB7A 13AA AB7B 13AB AB7C 13AC AB7D 13AD AB7E 13AE AB7F 13AF AB80 13B0 AB81 13B1 AB82 13B2 AB83 13B3 AB84 13B4 AB85 13B5 AB86 13B6 AB87 13B7 AB88 13B8 AB89 13B9 AB8A 13BA AB8B 13BB AB8C 13BC AB8D 13BD AB8E 13BE AB8F 13BF AB90 13C0 AB91 13C1 AB92 13C2 AB93 13C3 AB94 13C4 AB95 13C5 AB96 13C6 AB97 13C7 AB98 13C8 AB99 13C9 AB9A 13CA AB9B 13CB AB9C 13CC AB9D 13CD AB9E 13CE AB9F 13CF ABA0 13D0 ABA1 13D1 ABA2 13D2 ABA3 13D3 ABA4 13D4 ABA5 13D5 ABA6 13D6 ABA7 13D7 ABA8 13D8 ABA9 13D9 ABAA 13DA ABAB 13DB ABAC 13DC ABAD 13DD ABAE 13DE ABAF 13DF ABB0 13E0 ABB1 13E1 ABB2 13E2 ABB3 13E3 ABB4 13E4 ABB5 13E5 ABB6 13E6 ABB7 13E7 ABB8 13E8 ABB9 13E9 ABBA 13EA ABBB 13EB ABBC 13EC ABBD 13ED ABBE 13EE ABBF 13EF FF41 FF21 FF42 FF22 FF43 FF23 FF44 FF24 FF45 FF25 FF46 FF26 FF47 FF27 FF48 FF28 FF49 FF29 FF4A FF2A FF4B FF2B FF4C FF2C FF4D FF2D FF4E FF2E FF4F FF2F FF50 FF30 FF51 FF31 FF52 FF32 FF53 FF33 FF54 FF34 FF55 FF35 FF56 FF36 FF57 FF37 FF58 FF38 FF59 FF39 FF5A FF3A 10428 10400 10429 10401 1042A 10402 1042B 10403 1042C 10404 1042D 10405 1042E 10406 1042F 10407 10430 10408 10431 10409 10432 1040A 10433 1040B 10434 1040C 10435 1040D 10436 1040E 10437 1040F 10438 10410 10439 10411 1043A 10412 1043B 10413 1043C 10414 1043D 10415 1043E 10416 1043F 10417 10440 10418 10441 10419 10442 1041A 10443 1041B 10444 1041C 10445 1041D 10446 1041E 10447 1041F 10448 10420 10449 10421 1044A 10422 1044B 10423 1044C 10424 1044D 10425 1044E 10426 1044F 10427 104D8 104B0 104D9 104B1 104DA 104B2 104DB 104B3 104DC 104B4 104DD 104B5 104DE 104B6 104DF 104B7 104E0 104B8 104E1 104B9 104E2 104BA 104E3 104BB 104E4 104BC 104E5 104BD 104E6 104BE 104E7 104BF 104E8 104C0 104E9 104C1 104EA 104C2 104EB 104C3 104EC 104C4 104ED 104C5 104EE 104C6 104EF 104C7 104F0 104C8 104F1 104C9 104F2 104CA 104F3 104CB 104F4 104CC 104F5 104CD 104F6 104CE 104F7 104CF 104F8 104D0 104F9 104D1 104FA 104D2 104FB 104D3 10CC0 10C80 10CC1 10C81 10CC2 10C82 10CC3 10C83 10CC4 10C84 10CC5 10C85 10CC6 10C86 10CC7 10C87 10CC8 10C88 10CC9 10C89 10CCA 10C8A 10CCB 10C8B 10CCC 10C8C 10CCD 10C8D 10CCE 10C8E 10CCF 10C8F 10CD0 10C90 10CD1 10C91 10CD2 10C92 10CD3 10C93 10CD4 10C94 10CD5 10C95 10CD6 10C96 10CD7 10C97 10CD8 10C98 10CD9 10C99 10CDA 10C9A 10CDB 10C9B 10CDC 10C9C 10CDD 10C9D 10CDE 10C9E 10CDF 10C9F 10CE0 10CA0 10CE1 10CA1 10CE2 10CA2 10CE3 10CA3 10CE4 10CA4 10CE5 10CA5 10CE6 10CA6 10CE7 10CA7 10CE8 10CA8 10CE9 10CA9 10CEA 10CAA 10CEB 10CAB 10CEC 10CAC 10CED 10CAD 10CEE 10CAE 10CEF 10CAF 10CF0 10CB0 10CF1 10CB1 10CF2 10CB2 118C0 118A0 118C1 118A1 118C2 118A2 118C3 118A3 118C4 118A4 118C5 118A5 118C6 118A6 118C7 118A7 118C8 118A8 118C9 118A9 118CA 118AA 118CB 118AB 118CC 118AC 118CD 118AD 118CE 118AE 118CF 118AF 118D0 118B0 118D1 118B1 118D2 118B2 118D3 118B3 118D4 118B4 118D5 118B5 118D6 118B6 118D7 118B7 118D8 118B8 118D9 118B9 118DA 118BA 118DB 118BB 118DC 118BC 118DD 118BD 118DE 118BE 118DF 118BF 16E60 16E40 16E61 16E41 16E62 16E42 16E63 16E43 16E64 16E44 16E65 16E45 16E66 16E46 16E67 16E47 16E68 16E48 16E69 16E49 16E6A 16E4A 16E6B 16E4B 16E6C 16E4C 16E6D 16E4D 16E6E 16E4E 16E6F 16E4F 16E70 16E50 16E71 16E51 16E72 16E52 16E73 16E53 16E74 16E54 16E75 16E55 16E76 16E56 16E77 16E57 16E78 16E58 16E79 16E59 16E7A 16E5A 16E7B 16E5B 16E7C 16E5C 16E7D 16E5D 16E7E 16E5E 16E7F 16E5F 1E922 1E900 1E923 1E901 1E924 1E902 1E925 1E903 1E926 1E904 1E927 1E905 1E928 1E906 1E929 1E907 1E92A 1E908 1E92B 1E909 1E92C 1E90A 1E92D 1E90B 1E92E 1E90C 1E92F 1E90D 1E930 1E90E 1E931 1E90F 1E932 1E910 1E933 1E911 1E934 1E912 1E935 1E913 1E936 1E914 1E937 1E915 1E938 1E916 1E939 1E917 1E93A 1E918 1E93B 1E919 1E93C 1E91A 1E93D 1E91B 1E93E 1E91C 1E93F 1E91D 1E940 1E91E 1E941 1E91F 1E942 1E920 1E943 1E921 END PK ! )Ŷ�# # 5.34.0/unicore/To/NFKCCF.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! IT IS DEPRECATED TO USE THIS FILE !!!!!!! # This file is for internal use by core Perl only. It is retained for # backwards compatibility with applications that may have come to rely on it, # but its format and even its name or existence are subject to change without # notice in a future Perl version. Don't use it directly. Instead, its # contents are now retrievable through a stable API in the Unicode::UCD # module: Unicode::UCD::prop_invmap('NFKC_Casefold') (Values for individual # code points can be retrieved via Unicode::UCD::charprop()); # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToNFKCCF'}{'format'} = 'x'; # non-negative hex whole number; a code point $Unicode::UCD::SwashInfo{'ToNFKCCF'}{'specials_name'} = 'Unicode::UCD::ToSpecNFKCCF'; # Name of hash of special mappings $Unicode::UCD::SwashInfo{'ToNFKCCF'}{'missing'} = '<code point>'; # code point maps to itself # Some code points require special handling because their mappings are each to # multiple code points. These do not appear in the main body, but are defined # in the hash below. # Each key is the string of N bytes that together make up the UTF-8 encoding # for the code point. (i.e. the same as looking at the code point's UTF-8 # under "use bytes"). Each value is the UTF-8 of the translation, for speed. %Unicode::UCD::ToSpecNFKCCF = ( "\xC2\xA8" => "\x{0020}\x{0308}", # U+00A8 => 0020 0308 "\xC2\xAD" => "", # U+00AD => "\xC2\xAF" => "\x{0020}\x{0304}", # U+00AF => 0020 0304 "\xC2\xB4" => "\x{0020}\x{0301}", # U+00B4 => 0020 0301 "\xC2\xB8" => "\x{0020}\x{0327}", # U+00B8 => 0020 0327 "\xC2\xBC" => "\x{0031}\x{2044}\x{0034}", # U+00BC => 0031 2044 0034 "\xC2\xBD" => "\x{0031}\x{2044}\x{0032}", # U+00BD => 0031 2044 0032 "\xC2\xBE" => "\x{0033}\x{2044}\x{0034}", # U+00BE => 0033 2044 0034 "\xC3\x9F" => "\x{0073}\x{0073}", # U+00DF => 0073 0073 "\xC4\xB0" => "\x{0069}\x{0307}", # U+0130 => 0069 0307 "\xC4\xB2" => "\x{0069}\x{006A}", # U+0132 => 0069 006A "\xC4\xB3" => "\x{0069}\x{006A}", # U+0133 => 0069 006A "\xC4\xBF" => "\x{006C}\x{00B7}", # U+013F => 006C 00B7 "\xC5\x80" => "\x{006C}\x{00B7}", # U+0140 => 006C 00B7 "\xC5\x89" => "\x{02BC}\x{006E}", # U+0149 => 02BC 006E "\xC7\x84" => "\x{0064}\x{017E}", # U+01C4 => 0064 017E "\xC7\x85" => "\x{0064}\x{017E}", # U+01C5 => 0064 017E "\xC7\x86" => "\x{0064}\x{017E}", # U+01C6 => 0064 017E "\xC7\x87" => "\x{006C}\x{006A}", # U+01C7 => 006C 006A "\xC7\x88" => "\x{006C}\x{006A}", # U+01C8 => 006C 006A "\xC7\x89" => "\x{006C}\x{006A}", # U+01C9 => 006C 006A "\xC7\x8A" => "\x{006E}\x{006A}", # U+01CA => 006E 006A "\xC7\x8B" => "\x{006E}\x{006A}", # U+01CB => 006E 006A "\xC7\x8C" => "\x{006E}\x{006A}", # U+01CC => 006E 006A "\xC7\xB1" => "\x{0064}\x{007A}", # U+01F1 => 0064 007A "\xC7\xB2" => "\x{0064}\x{007A}", # U+01F2 => 0064 007A "\xC7\xB3" => "\x{0064}\x{007A}", # U+01F3 => 0064 007A "\xCB\x98" => "\x{0020}\x{0306}", # U+02D8 => 0020 0306 "\xCB\x99" => "\x{0020}\x{0307}", # U+02D9 => 0020 0307 "\xCB\x9A" => "\x{0020}\x{030A}", # U+02DA => 0020 030A "\xCB\x9B" => "\x{0020}\x{0328}", # U+02DB => 0020 0328 "\xCB\x9C" => "\x{0020}\x{0303}", # U+02DC => 0020 0303 "\xCB\x9D" => "\x{0020}\x{030B}", # U+02DD => 0020 030B "\xCD\x84" => "\x{0308}\x{0301}", # U+0344 => 0308 0301 "\xCD\x8F" => "", # U+034F => "\xCD\xBA" => "\x{0020}\x{03B9}", # U+037A => 0020 03B9 "\xCE\x84" => "\x{0020}\x{0301}", # U+0384 => 0020 0301 "\xCE\x85" => "\x{0020}\x{0308}\x{0301}", # U+0385 => 0020 0308 0301 "\xD6\x87" => "\x{0565}\x{0582}", # U+0587 => 0565 0582 "\xD8\x9C" => "", # U+061C => "\xD9\xB5" => "\x{0627}\x{0674}", # U+0675 => 0627 0674 "\xD9\xB6" => "\x{0648}\x{0674}", # U+0676 => 0648 0674 "\xD9\xB7" => "\x{06C7}\x{0674}", # U+0677 => 06C7 0674 "\xD9\xB8" => "\x{064A}\x{0674}", # U+0678 => 064A 0674 "\xE0\xA5\x98" => "\x{0915}\x{093C}", # U+0958 => 0915 093C "\xE0\xA5\x99" => "\x{0916}\x{093C}", # U+0959 => 0916 093C "\xE0\xA5\x9A" => "\x{0917}\x{093C}", # U+095A => 0917 093C "\xE0\xA5\x9B" => "\x{091C}\x{093C}", # U+095B => 091C 093C "\xE0\xA5\x9C" => "\x{0921}\x{093C}", # U+095C => 0921 093C "\xE0\xA5\x9D" => "\x{0922}\x{093C}", # U+095D => 0922 093C "\xE0\xA5\x9E" => "\x{092B}\x{093C}", # U+095E => 092B 093C "\xE0\xA5\x9F" => "\x{092F}\x{093C}", # U+095F => 092F 093C "\xE0\xA7\x9C" => "\x{09A1}\x{09BC}", # U+09DC => 09A1 09BC "\xE0\xA7\x9D" => "\x{09A2}\x{09BC}", # U+09DD => 09A2 09BC "\xE0\xA7\x9F" => "\x{09AF}\x{09BC}", # U+09DF => 09AF 09BC "\xE0\xA8\xB3" => "\x{0A32}\x{0A3C}", # U+0A33 => 0A32 0A3C "\xE0\xA8\xB6" => "\x{0A38}\x{0A3C}", # U+0A36 => 0A38 0A3C "\xE0\xA9\x99" => "\x{0A16}\x{0A3C}", # U+0A59 => 0A16 0A3C "\xE0\xA9\x9A" => "\x{0A17}\x{0A3C}", # U+0A5A => 0A17 0A3C "\xE0\xA9\x9B" => "\x{0A1C}\x{0A3C}", # U+0A5B => 0A1C 0A3C "\xE0\xA9\x9E" => "\x{0A2B}\x{0A3C}", # U+0A5E => 0A2B 0A3C "\xE0\xAD\x9C" => "\x{0B21}\x{0B3C}", # U+0B5C => 0B21 0B3C "\xE0\xAD\x9D" => "\x{0B22}\x{0B3C}", # U+0B5D => 0B22 0B3C "\xE0\xB8\xB3" => "\x{0E4D}\x{0E32}", # U+0E33 => 0E4D 0E32 "\xE0\xBA\xB3" => "\x{0ECD}\x{0EB2}", # U+0EB3 => 0ECD 0EB2 "\xE0\xBB\x9C" => "\x{0EAB}\x{0E99}", # U+0EDC => 0EAB 0E99 "\xE0\xBB\x9D" => "\x{0EAB}\x{0EA1}", # U+0EDD => 0EAB 0EA1 "\xE0\xBD\x83" => "\x{0F42}\x{0FB7}", # U+0F43 => 0F42 0FB7 "\xE0\xBD\x8D" => "\x{0F4C}\x{0FB7}", # U+0F4D => 0F4C 0FB7 "\xE0\xBD\x92" => "\x{0F51}\x{0FB7}", # U+0F52 => 0F51 0FB7 "\xE0\xBD\x97" => "\x{0F56}\x{0FB7}", # U+0F57 => 0F56 0FB7 "\xE0\xBD\x9C" => "\x{0F5B}\x{0FB7}", # U+0F5C => 0F5B 0FB7 "\xE0\xBD\xA9" => "\x{0F40}\x{0FB5}", # U+0F69 => 0F40 0FB5 "\xE0\xBD\xB3" => "\x{0F71}\x{0F72}", # U+0F73 => 0F71 0F72 "\xE0\xBD\xB5" => "\x{0F71}\x{0F74}", # U+0F75 => 0F71 0F74 "\xE0\xBD\xB6" => "\x{0FB2}\x{0F80}", # U+0F76 => 0FB2 0F80 "\xE0\xBD\xB7" => "\x{0FB2}\x{0F71}\x{0F80}", # U+0F77 => 0FB2 0F71 0F80 "\xE0\xBD\xB8" => "\x{0FB3}\x{0F80}", # U+0F78 => 0FB3 0F80 "\xE0\xBD\xB9" => "\x{0FB3}\x{0F71}\x{0F80}", # U+0F79 => 0FB3 0F71 0F80 "\xE0\xBE\x81" => "\x{0F71}\x{0F80}", # U+0F81 => 0F71 0F80 "\xE0\xBE\x93" => "\x{0F92}\x{0FB7}", # U+0F93 => 0F92 0FB7 "\xE0\xBE\x9D" => "\x{0F9C}\x{0FB7}", # U+0F9D => 0F9C 0FB7 "\xE0\xBE\xA2" => "\x{0FA1}\x{0FB7}", # U+0FA2 => 0FA1 0FB7 "\xE0\xBE\xA7" => "\x{0FA6}\x{0FB7}", # U+0FA7 => 0FA6 0FB7 "\xE0\xBE\xAC" => "\x{0FAB}\x{0FB7}", # U+0FAC => 0FAB 0FB7 "\xE0\xBE\xB9" => "\x{0F90}\x{0FB5}", # U+0FB9 => 0F90 0FB5 "\xE1\x85\x9F" => "", # U+115F => "\xE1\x85\xA0" => "", # U+1160 => "\xE1\x9E\xB4" => "", # U+17B4 => "\xE1\x9E\xB5" => "", # U+17B5 => "\xE1\xA0\x8B" => "", # U+180B => "\xE1\xA0\x8C" => "", # U+180C => "\xE1\xA0\x8D" => "", # U+180D => "\xE1\xA0\x8E" => "", # U+180E => "\xE1\xBA\x9A" => "\x{0061}\x{02BE}", # U+1E9A => 0061 02BE "\xE1\xBA\x9E" => "\x{0073}\x{0073}", # U+1E9E => 0073 0073 "\xE1\xBE\x80" => "\x{1F00}\x{03B9}", # U+1F80 => 1F00 03B9 "\xE1\xBE\x81" => "\x{1F01}\x{03B9}", # U+1F81 => 1F01 03B9 "\xE1\xBE\x82" => "\x{1F02}\x{03B9}", # U+1F82 => 1F02 03B9 "\xE1\xBE\x83" => "\x{1F03}\x{03B9}", # U+1F83 => 1F03 03B9 "\xE1\xBE\x84" => "\x{1F04}\x{03B9}", # U+1F84 => 1F04 03B9 "\xE1\xBE\x85" => "\x{1F05}\x{03B9}", # U+1F85 => 1F05 03B9 "\xE1\xBE\x86" => "\x{1F06}\x{03B9}", # U+1F86 => 1F06 03B9 "\xE1\xBE\x87" => "\x{1F07}\x{03B9}", # U+1F87 => 1F07 03B9 "\xE1\xBE\x88" => "\x{1F00}\x{03B9}", # U+1F88 => 1F00 03B9 "\xE1\xBE\x89" => "\x{1F01}\x{03B9}", # U+1F89 => 1F01 03B9 "\xE1\xBE\x8A" => "\x{1F02}\x{03B9}", # U+1F8A => 1F02 03B9 "\xE1\xBE\x8B" => "\x{1F03}\x{03B9}", # U+1F8B => 1F03 03B9 "\xE1\xBE\x8C" => "\x{1F04}\x{03B9}", # U+1F8C => 1F04 03B9 "\xE1\xBE\x8D" => "\x{1F05}\x{03B9}", # U+1F8D => 1F05 03B9 "\xE1\xBE\x8E" => "\x{1F06}\x{03B9}", # U+1F8E => 1F06 03B9 "\xE1\xBE\x8F" => "\x{1F07}\x{03B9}", # U+1F8F => 1F07 03B9 "\xE1\xBE\x90" => "\x{1F20}\x{03B9}", # U+1F90 => 1F20 03B9 "\xE1\xBE\x91" => "\x{1F21}\x{03B9}", # U+1F91 => 1F21 03B9 "\xE1\xBE\x92" => "\x{1F22}\x{03B9}", # U+1F92 => 1F22 03B9 "\xE1\xBE\x93" => "\x{1F23}\x{03B9}", # U+1F93 => 1F23 03B9 "\xE1\xBE\x94" => "\x{1F24}\x{03B9}", # U+1F94 => 1F24 03B9 "\xE1\xBE\x95" => "\x{1F25}\x{03B9}", # U+1F95 => 1F25 03B9 "\xE1\xBE\x96" => "\x{1F26}\x{03B9}", # U+1F96 => 1F26 03B9 "\xE1\xBE\x97" => "\x{1F27}\x{03B9}", # U+1F97 => 1F27 03B9 "\xE1\xBE\x98" => "\x{1F20}\x{03B9}", # U+1F98 => 1F20 03B9 "\xE1\xBE\x99" => "\x{1F21}\x{03B9}", # U+1F99 => 1F21 03B9 "\xE1\xBE\x9A" => "\x{1F22}\x{03B9}", # U+1F9A => 1F22 03B9 "\xE1\xBE\x9B" => "\x{1F23}\x{03B9}", # U+1F9B => 1F23 03B9 "\xE1\xBE\x9C" => "\x{1F24}\x{03B9}", # U+1F9C => 1F24 03B9 "\xE1\xBE\x9D" => "\x{1F25}\x{03B9}", # U+1F9D => 1F25 03B9 "\xE1\xBE\x9E" => "\x{1F26}\x{03B9}", # U+1F9E => 1F26 03B9 "\xE1\xBE\x9F" => "\x{1F27}\x{03B9}", # U+1F9F => 1F27 03B9 "\xE1\xBE\xA0" => "\x{1F60}\x{03B9}", # U+1FA0 => 1F60 03B9 "\xE1\xBE\xA1" => "\x{1F61}\x{03B9}", # U+1FA1 => 1F61 03B9 "\xE1\xBE\xA2" => "\x{1F62}\x{03B9}", # U+1FA2 => 1F62 03B9 "\xE1\xBE\xA3" => "\x{1F63}\x{03B9}", # U+1FA3 => 1F63 03B9 "\xE1\xBE\xA4" => "\x{1F64}\x{03B9}", # U+1FA4 => 1F64 03B9 "\xE1\xBE\xA5" => "\x{1F65}\x{03B9}", # U+1FA5 => 1F65 03B9 "\xE1\xBE\xA6" => "\x{1F66}\x{03B9}", # U+1FA6 => 1F66 03B9 "\xE1\xBE\xA7" => "\x{1F67}\x{03B9}", # U+1FA7 => 1F67 03B9 "\xE1\xBE\xA8" => "\x{1F60}\x{03B9}", # U+1FA8 => 1F60 03B9 "\xE1\xBE\xA9" => "\x{1F61}\x{03B9}", # U+1FA9 => 1F61 03B9 "\xE1\xBE\xAA" => "\x{1F62}\x{03B9}", # U+1FAA => 1F62 03B9 "\xE1\xBE\xAB" => "\x{1F63}\x{03B9}", # U+1FAB => 1F63 03B9 "\xE1\xBE\xAC" => "\x{1F64}\x{03B9}", # U+1FAC => 1F64 03B9 "\xE1\xBE\xAD" => "\x{1F65}\x{03B9}", # U+1FAD => 1F65 03B9 "\xE1\xBE\xAE" => "\x{1F66}\x{03B9}", # U+1FAE => 1F66 03B9 "\xE1\xBE\xAF" => "\x{1F67}\x{03B9}", # U+1FAF => 1F67 03B9 "\xE1\xBE\xB2" => "\x{1F70}\x{03B9}", # U+1FB2 => 1F70 03B9 "\xE1\xBE\xB3" => "\x{03B1}\x{03B9}", # U+1FB3 => 03B1 03B9 "\xE1\xBE\xB4" => "\x{03AC}\x{03B9}", # U+1FB4 => 03AC 03B9 "\xE1\xBE\xB7" => "\x{1FB6}\x{03B9}", # U+1FB7 => 1FB6 03B9 "\xE1\xBE\xBC" => "\x{03B1}\x{03B9}", # U+1FBC => 03B1 03B9 "\xE1\xBE\xBD" => "\x{0020}\x{0313}", # U+1FBD => 0020 0313 "\xE1\xBE\xBF" => "\x{0020}\x{0313}", # U+1FBF => 0020 0313 "\xE1\xBF\x80" => "\x{0020}\x{0342}", # U+1FC0 => 0020 0342 "\xE1\xBF\x81" => "\x{0020}\x{0308}\x{0342}", # U+1FC1 => 0020 0308 0342 "\xE1\xBF\x82" => "\x{1F74}\x{03B9}", # U+1FC2 => 1F74 03B9 "\xE1\xBF\x83" => "\x{03B7}\x{03B9}", # U+1FC3 => 03B7 03B9 "\xE1\xBF\x84" => "\x{03AE}\x{03B9}", # U+1FC4 => 03AE 03B9 "\xE1\xBF\x87" => "\x{1FC6}\x{03B9}", # U+1FC7 => 1FC6 03B9 "\xE1\xBF\x8C" => "\x{03B7}\x{03B9}", # U+1FCC => 03B7 03B9 "\xE1\xBF\x8D" => "\x{0020}\x{0313}\x{0300}", # U+1FCD => 0020 0313 0300 "\xE1\xBF\x8E" => "\x{0020}\x{0313}\x{0301}", # U+1FCE => 0020 0313 0301 "\xE1\xBF\x8F" => "\x{0020}\x{0313}\x{0342}", # U+1FCF => 0020 0313 0342 "\xE1\xBF\x9D" => "\x{0020}\x{0314}\x{0300}", # U+1FDD => 0020 0314 0300 "\xE1\xBF\x9E" => "\x{0020}\x{0314}\x{0301}", # U+1FDE => 0020 0314 0301 "\xE1\xBF\x9F" => "\x{0020}\x{0314}\x{0342}", # U+1FDF => 0020 0314 0342 "\xE1\xBF\xAD" => "\x{0020}\x{0308}\x{0300}", # U+1FED => 0020 0308 0300 "\xE1\xBF\xAE" => "\x{0020}\x{0308}\x{0301}", # U+1FEE => 0020 0308 0301 "\xE1\xBF\xB2" => "\x{1F7C}\x{03B9}", # U+1FF2 => 1F7C 03B9 "\xE1\xBF\xB3" => "\x{03C9}\x{03B9}", # U+1FF3 => 03C9 03B9 "\xE1\xBF\xB4" => "\x{03CE}\x{03B9}", # U+1FF4 => 03CE 03B9 "\xE1\xBF\xB7" => "\x{1FF6}\x{03B9}", # U+1FF7 => 1FF6 03B9 "\xE1\xBF\xBC" => "\x{03C9}\x{03B9}", # U+1FFC => 03C9 03B9 "\xE1\xBF\xBD" => "\x{0020}\x{0301}", # U+1FFD => 0020 0301 "\xE1\xBF\xBE" => "\x{0020}\x{0314}", # U+1FFE => 0020 0314 "\xE2\x80\x8B" => "", # U+200B => "\xE2\x80\x8C" => "", # U+200C => "\xE2\x80\x8D" => "", # U+200D => "\xE2\x80\x8E" => "", # U+200E => "\xE2\x80\x8F" => "", # U+200F => "\xE2\x80\x97" => "\x{0020}\x{0333}", # U+2017 => 0020 0333 "\xE2\x80\xA5" => "\x{002E}\x{002E}", # U+2025 => 002E 002E "\xE2\x80\xA6" => "\x{002E}\x{002E}\x{002E}", # U+2026 => 002E 002E 002E "\xE2\x80\xAA" => "", # U+202A => "\xE2\x80\xAB" => "", # U+202B => "\xE2\x80\xAC" => "", # U+202C => "\xE2\x80\xAD" => "", # U+202D => "\xE2\x80\xAE" => "", # U+202E => "\xE2\x80\xB3" => "\x{2032}\x{2032}", # U+2033 => 2032 2032 "\xE2\x80\xB4" => "\x{2032}\x{2032}\x{2032}", # U+2034 => 2032 2032 2032 "\xE2\x80\xB6" => "\x{2035}\x{2035}", # U+2036 => 2035 2035 "\xE2\x80\xB7" => "\x{2035}\x{2035}\x{2035}", # U+2037 => 2035 2035 2035 "\xE2\x80\xBC" => "\x{0021}\x{0021}", # U+203C => 0021 0021 "\xE2\x80\xBE" => "\x{0020}\x{0305}", # U+203E => 0020 0305 "\xE2\x81\x87" => "\x{003F}\x{003F}", # U+2047 => 003F 003F "\xE2\x81\x88" => "\x{003F}\x{0021}", # U+2048 => 003F 0021 "\xE2\x81\x89" => "\x{0021}\x{003F}", # U+2049 => 0021 003F "\xE2\x81\x97" => "\x{2032}\x{2032}\x{2032}\x{2032}", # U+2057 => 2032 2032 2032 2032 "\xE2\x81\xA0" => "", # U+2060 => "\xE2\x81\xA1" => "", # U+2061 => "\xE2\x81\xA2" => "", # U+2062 => "\xE2\x81\xA3" => "", # U+2063 => "\xE2\x81\xA4" => "", # U+2064 => "\xE2\x81\xA5" => "", # U+2065 => "\xE2\x81\xA6" => "", # U+2066 => "\xE2\x81\xA7" => "", # U+2067 => "\xE2\x81\xA8" => "", # U+2068 => "\xE2\x81\xA9" => "", # U+2069 => "\xE2\x81\xAA" => "", # U+206A => "\xE2\x81\xAB" => "", # U+206B => "\xE2\x81\xAC" => "", # U+206C => "\xE2\x81\xAD" => "", # U+206D => "\xE2\x81\xAE" => "", # U+206E => "\xE2\x81\xAF" => "", # U+206F => "\xE2\x82\xA8" => "\x{0072}\x{0073}", # U+20A8 => 0072 0073 "\xE2\x84\x80" => "\x{0061}\x{002F}\x{0063}", # U+2100 => 0061 002F 0063 "\xE2\x84\x81" => "\x{0061}\x{002F}\x{0073}", # U+2101 => 0061 002F 0073 "\xE2\x84\x83" => "\x{00B0}\x{0063}", # U+2103 => 00B0 0063 "\xE2\x84\x85" => "\x{0063}\x{002F}\x{006F}", # U+2105 => 0063 002F 006F "\xE2\x84\x86" => "\x{0063}\x{002F}\x{0075}", # U+2106 => 0063 002F 0075 "\xE2\x84\x89" => "\x{00B0}\x{0066}", # U+2109 => 00B0 0066 "\xE2\x84\x96" => "\x{006E}\x{006F}", # U+2116 => 006E 006F "\xE2\x84\xA0" => "\x{0073}\x{006D}", # U+2120 => 0073 006D "\xE2\x84\xA1" => "\x{0074}\x{0065}\x{006C}", # U+2121 => 0074 0065 006C "\xE2\x84\xA2" => "\x{0074}\x{006D}", # U+2122 => 0074 006D "\xE2\x84\xBB" => "\x{0066}\x{0061}\x{0078}", # U+213B => 0066 0061 0078 "\xE2\x85\x90" => "\x{0031}\x{2044}\x{0037}", # U+2150 => 0031 2044 0037 "\xE2\x85\x91" => "\x{0031}\x{2044}\x{0039}", # U+2151 => 0031 2044 0039 "\xE2\x85\x92" => "\x{0031}\x{2044}\x{0031}\x{0030}", # U+2152 => 0031 2044 0031 0030 "\xE2\x85\x93" => "\x{0031}\x{2044}\x{0033}", # U+2153 => 0031 2044 0033 "\xE2\x85\x94" => "\x{0032}\x{2044}\x{0033}", # U+2154 => 0032 2044 0033 "\xE2\x85\x95" => "\x{0031}\x{2044}\x{0035}", # U+2155 => 0031 2044 0035 "\xE2\x85\x96" => "\x{0032}\x{2044}\x{0035}", # U+2156 => 0032 2044 0035 "\xE2\x85\x97" => "\x{0033}\x{2044}\x{0035}", # U+2157 => 0033 2044 0035 "\xE2\x85\x98" => "\x{0034}\x{2044}\x{0035}", # U+2158 => 0034 2044 0035 "\xE2\x85\x99" => "\x{0031}\x{2044}\x{0036}", # U+2159 => 0031 2044 0036 "\xE2\x85\x9A" => "\x{0035}\x{2044}\x{0036}", # U+215A => 0035 2044 0036 "\xE2\x85\x9B" => "\x{0031}\x{2044}\x{0038}", # U+215B => 0031 2044 0038 "\xE2\x85\x9C" => "\x{0033}\x{2044}\x{0038}", # U+215C => 0033 2044 0038 "\xE2\x85\x9D" => "\x{0035}\x{2044}\x{0038}", # U+215D => 0035 2044 0038 "\xE2\x85\x9E" => "\x{0037}\x{2044}\x{0038}", # U+215E => 0037 2044 0038 "\xE2\x85\x9F" => "\x{0031}\x{2044}", # U+215F => 0031 2044 "\xE2\x85\xA1" => "\x{0069}\x{0069}", # U+2161 => 0069 0069 "\xE2\x85\xA2" => "\x{0069}\x{0069}\x{0069}", # U+2162 => 0069 0069 0069 "\xE2\x85\xA3" => "\x{0069}\x{0076}", # U+2163 => 0069 0076 "\xE2\x85\xA5" => "\x{0076}\x{0069}", # U+2165 => 0076 0069 "\xE2\x85\xA6" => "\x{0076}\x{0069}\x{0069}", # U+2166 => 0076 0069 0069 "\xE2\x85\xA7" => "\x{0076}\x{0069}\x{0069}\x{0069}", # U+2167 => 0076 0069 0069 0069 "\xE2\x85\xA8" => "\x{0069}\x{0078}", # U+2168 => 0069 0078 "\xE2\x85\xAA" => "\x{0078}\x{0069}", # U+216A => 0078 0069 "\xE2\x85\xAB" => "\x{0078}\x{0069}\x{0069}", # U+216B => 0078 0069 0069 "\xE2\x85\xB1" => "\x{0069}\x{0069}", # U+2171 => 0069 0069 "\xE2\x85\xB2" => "\x{0069}\x{0069}\x{0069}", # U+2172 => 0069 0069 0069 "\xE2\x85\xB3" => "\x{0069}\x{0076}", # U+2173 => 0069 0076 "\xE2\x85\xB5" => "\x{0076}\x{0069}", # U+2175 => 0076 0069 "\xE2\x85\xB6" => "\x{0076}\x{0069}\x{0069}", # U+2176 => 0076 0069 0069 "\xE2\x85\xB7" => "\x{0076}\x{0069}\x{0069}\x{0069}", # U+2177 => 0076 0069 0069 0069 "\xE2\x85\xB8" => "\x{0069}\x{0078}", # U+2178 => 0069 0078 "\xE2\x85\xBA" => "\x{0078}\x{0069}", # U+217A => 0078 0069 "\xE2\x85\xBB" => "\x{0078}\x{0069}\x{0069}", # U+217B => 0078 0069 0069 "\xE2\x86\x89" => "\x{0030}\x{2044}\x{0033}", # U+2189 => 0030 2044 0033 "\xE2\x88\xAC" => "\x{222B}\x{222B}", # U+222C => 222B 222B "\xE2\x88\xAD" => "\x{222B}\x{222B}\x{222B}", # U+222D => 222B 222B 222B "\xE2\x88\xAF" => "\x{222E}\x{222E}", # U+222F => 222E 222E "\xE2\x88\xB0" => "\x{222E}\x{222E}\x{222E}", # U+2230 => 222E 222E 222E "\xE2\x91\xA9" => "\x{0031}\x{0030}", # U+2469 => 0031 0030 "\xE2\x91\xAA" => "\x{0031}\x{0031}", # U+246A => 0031 0031 "\xE2\x91\xAB" => "\x{0031}\x{0032}", # U+246B => 0031 0032 "\xE2\x91\xAC" => "\x{0031}\x{0033}", # U+246C => 0031 0033 "\xE2\x91\xAD" => "\x{0031}\x{0034}", # U+246D => 0031 0034 "\xE2\x91\xAE" => "\x{0031}\x{0035}", # U+246E => 0031 0035 "\xE2\x91\xAF" => "\x{0031}\x{0036}", # U+246F => 0031 0036 "\xE2\x91\xB0" => "\x{0031}\x{0037}", # U+2470 => 0031 0037 "\xE2\x91\xB1" => "\x{0031}\x{0038}", # U+2471 => 0031 0038 "\xE2\x91\xB2" => "\x{0031}\x{0039}", # U+2472 => 0031 0039 "\xE2\x91\xB3" => "\x{0032}\x{0030}", # U+2473 => 0032 0030 "\xE2\x91\xB4" => "\x{0028}\x{0031}\x{0029}", # U+2474 => 0028 0031 0029 "\xE2\x91\xB5" => "\x{0028}\x{0032}\x{0029}", # U+2475 => 0028 0032 0029 "\xE2\x91\xB6" => "\x{0028}\x{0033}\x{0029}", # U+2476 => 0028 0033 0029 "\xE2\x91\xB7" => "\x{0028}\x{0034}\x{0029}", # U+2477 => 0028 0034 0029 "\xE2\x91\xB8" => "\x{0028}\x{0035}\x{0029}", # U+2478 => 0028 0035 0029 "\xE2\x91\xB9" => "\x{0028}\x{0036}\x{0029}", # U+2479 => 0028 0036 0029 "\xE2\x91\xBA" => "\x{0028}\x{0037}\x{0029}", # U+247A => 0028 0037 0029 "\xE2\x91\xBB" => "\x{0028}\x{0038}\x{0029}", # U+247B => 0028 0038 0029 "\xE2\x91\xBC" => "\x{0028}\x{0039}\x{0029}", # U+247C => 0028 0039 0029 "\xE2\x91\xBD" => "\x{0028}\x{0031}\x{0030}\x{0029}", # U+247D => 0028 0031 0030 0029 "\xE2\x91\xBE" => "\x{0028}\x{0031}\x{0031}\x{0029}", # U+247E => 0028 0031 0031 0029 "\xE2\x91\xBF" => "\x{0028}\x{0031}\x{0032}\x{0029}", # U+247F => 0028 0031 0032 0029 "\xE2\x92\x80" => "\x{0028}\x{0031}\x{0033}\x{0029}", # U+2480 => 0028 0031 0033 0029 "\xE2\x92\x81" => "\x{0028}\x{0031}\x{0034}\x{0029}", # U+2481 => 0028 0031 0034 0029 "\xE2\x92\x82" => "\x{0028}\x{0031}\x{0035}\x{0029}", # U+2482 => 0028 0031 0035 0029 "\xE2\x92\x83" => "\x{0028}\x{0031}\x{0036}\x{0029}", # U+2483 => 0028 0031 0036 0029 "\xE2\x92\x84" => "\x{0028}\x{0031}\x{0037}\x{0029}", # U+2484 => 0028 0031 0037 0029 "\xE2\x92\x85" => "\x{0028}\x{0031}\x{0038}\x{0029}", # U+2485 => 0028 0031 0038 0029 "\xE2\x92\x86" => "\x{0028}\x{0031}\x{0039}\x{0029}", # U+2486 => 0028 0031 0039 0029 "\xE2\x92\x87" => "\x{0028}\x{0032}\x{0030}\x{0029}", # U+2487 => 0028 0032 0030 0029 "\xE2\x92\x88" => "\x{0031}\x{002E}", # U+2488 => 0031 002E "\xE2\x92\x89" => "\x{0032}\x{002E}", # U+2489 => 0032 002E "\xE2\x92\x8A" => "\x{0033}\x{002E}", # U+248A => 0033 002E "\xE2\x92\x8B" => "\x{0034}\x{002E}", # U+248B => 0034 002E "\xE2\x92\x8C" => "\x{0035}\x{002E}", # U+248C => 0035 002E "\xE2\x92\x8D" => "\x{0036}\x{002E}", # U+248D => 0036 002E "\xE2\x92\x8E" => "\x{0037}\x{002E}", # U+248E => 0037 002E "\xE2\x92\x8F" => "\x{0038}\x{002E}", # U+248F => 0038 002E "\xE2\x92\x90" => "\x{0039}\x{002E}", # U+2490 => 0039 002E "\xE2\x92\x91" => "\x{0031}\x{0030}\x{002E}", # U+2491 => 0031 0030 002E "\xE2\x92\x92" => "\x{0031}\x{0031}\x{002E}", # U+2492 => 0031 0031 002E "\xE2\x92\x93" => "\x{0031}\x{0032}\x{002E}", # U+2493 => 0031 0032 002E "\xE2\x92\x94" => "\x{0031}\x{0033}\x{002E}", # U+2494 => 0031 0033 002E "\xE2\x92\x95" => "\x{0031}\x{0034}\x{002E}", # U+2495 => 0031 0034 002E "\xE2\x92\x96" => "\x{0031}\x{0035}\x{002E}", # U+2496 => 0031 0035 002E "\xE2\x92\x97" => "\x{0031}\x{0036}\x{002E}", # U+2497 => 0031 0036 002E "\xE2\x92\x98" => "\x{0031}\x{0037}\x{002E}", # U+2498 => 0031 0037 002E "\xE2\x92\x99" => "\x{0031}\x{0038}\x{002E}", # U+2499 => 0031 0038 002E "\xE2\x92\x9A" => "\x{0031}\x{0039}\x{002E}", # U+249A => 0031 0039 002E "\xE2\x92\x9B" => "\x{0032}\x{0030}\x{002E}", # U+249B => 0032 0030 002E "\xE2\x92\x9C" => "\x{0028}\x{0061}\x{0029}", # U+249C => 0028 0061 0029 "\xE2\x92\x9D" => "\x{0028}\x{0062}\x{0029}", # U+249D => 0028 0062 0029 "\xE2\x92\x9E" => "\x{0028}\x{0063}\x{0029}", # U+249E => 0028 0063 0029 "\xE2\x92\x9F" => "\x{0028}\x{0064}\x{0029}", # U+249F => 0028 0064 0029 "\xE2\x92\xA0" => "\x{0028}\x{0065}\x{0029}", # U+24A0 => 0028 0065 0029 "\xE2\x92\xA1" => "\x{0028}\x{0066}\x{0029}", # U+24A1 => 0028 0066 0029 "\xE2\x92\xA2" => "\x{0028}\x{0067}\x{0029}", # U+24A2 => 0028 0067 0029 "\xE2\x92\xA3" => "\x{0028}\x{0068}\x{0029}", # U+24A3 => 0028 0068 0029 "\xE2\x92\xA4" => "\x{0028}\x{0069}\x{0029}", # U+24A4 => 0028 0069 0029 "\xE2\x92\xA5" => "\x{0028}\x{006A}\x{0029}", # U+24A5 => 0028 006A 0029 "\xE2\x92\xA6" => "\x{0028}\x{006B}\x{0029}", # U+24A6 => 0028 006B 0029 "\xE2\x92\xA7" => "\x{0028}\x{006C}\x{0029}", # U+24A7 => 0028 006C 0029 "\xE2\x92\xA8" => "\x{0028}\x{006D}\x{0029}", # U+24A8 => 0028 006D 0029 "\xE2\x92\xA9" => "\x{0028}\x{006E}\x{0029}", # U+24A9 => 0028 006E 0029 "\xE2\x92\xAA" => "\x{0028}\x{006F}\x{0029}", # U+24AA => 0028 006F 0029 "\xE2\x92\xAB" => "\x{0028}\x{0070}\x{0029}", # U+24AB => 0028 0070 0029 "\xE2\x92\xAC" => "\x{0028}\x{0071}\x{0029}", # U+24AC => 0028 0071 0029 "\xE2\x92\xAD" => "\x{0028}\x{0072}\x{0029}", # U+24AD => 0028 0072 0029 "\xE2\x92\xAE" => "\x{0028}\x{0073}\x{0029}", # U+24AE => 0028 0073 0029 "\xE2\x92\xAF" => "\x{0028}\x{0074}\x{0029}", # U+24AF => 0028 0074 0029 "\xE2\x92\xB0" => "\x{0028}\x{0075}\x{0029}", # U+24B0 => 0028 0075 0029 "\xE2\x92\xB1" => "\x{0028}\x{0076}\x{0029}", # U+24B1 => 0028 0076 0029 "\xE2\x92\xB2" => "\x{0028}\x{0077}\x{0029}", # U+24B2 => 0028 0077 0029 "\xE2\x92\xB3" => "\x{0028}\x{0078}\x{0029}", # U+24B3 => 0028 0078 0029 "\xE2\x92\xB4" => "\x{0028}\x{0079}\x{0029}", # U+24B4 => 0028 0079 0029 "\xE2\x92\xB5" => "\x{0028}\x{007A}\x{0029}", # U+24B5 => 0028 007A 0029 "\xE2\xA8\x8C" => "\x{222B}\x{222B}\x{222B}\x{222B}", # U+2A0C => 222B 222B 222B 222B "\xE2\xA9\xB4" => "\x{003A}\x{003A}\x{003D}", # U+2A74 => 003A 003A 003D "\xE2\xA9\xB5" => "\x{003D}\x{003D}", # U+2A75 => 003D 003D "\xE2\xA9\xB6" => "\x{003D}\x{003D}\x{003D}", # U+2A76 => 003D 003D 003D "\xE2\xAB\x9C" => "\x{2ADD}\x{0338}", # U+2ADC => 2ADD 0338 "\xE3\x82\x9B" => "\x{0020}\x{3099}", # U+309B => 0020 3099 "\xE3\x82\x9C" => "\x{0020}\x{309A}", # U+309C => 0020 309A "\xE3\x82\x9F" => "\x{3088}\x{308A}", # U+309F => 3088 308A "\xE3\x83\xBF" => "\x{30B3}\x{30C8}", # U+30FF => 30B3 30C8 "\xE3\x85\xA4" => "", # U+3164 => "\xE3\x88\x80" => "\x{0028}\x{1100}\x{0029}", # U+3200 => 0028 1100 0029 "\xE3\x88\x81" => "\x{0028}\x{1102}\x{0029}", # U+3201 => 0028 1102 0029 "\xE3\x88\x82" => "\x{0028}\x{1103}\x{0029}", # U+3202 => 0028 1103 0029 "\xE3\x88\x83" => "\x{0028}\x{1105}\x{0029}", # U+3203 => 0028 1105 0029 "\xE3\x88\x84" => "\x{0028}\x{1106}\x{0029}", # U+3204 => 0028 1106 0029 "\xE3\x88\x85" => "\x{0028}\x{1107}\x{0029}", # U+3205 => 0028 1107 0029 "\xE3\x88\x86" => "\x{0028}\x{1109}\x{0029}", # U+3206 => 0028 1109 0029 "\xE3\x88\x87" => "\x{0028}\x{110B}\x{0029}", # U+3207 => 0028 110B 0029 "\xE3\x88\x88" => "\x{0028}\x{110C}\x{0029}", # U+3208 => 0028 110C 0029 "\xE3\x88\x89" => "\x{0028}\x{110E}\x{0029}", # U+3209 => 0028 110E 0029 "\xE3\x88\x8A" => "\x{0028}\x{110F}\x{0029}", # U+320A => 0028 110F 0029 "\xE3\x88\x8B" => "\x{0028}\x{1110}\x{0029}", # U+320B => 0028 1110 0029 "\xE3\x88\x8C" => "\x{0028}\x{1111}\x{0029}", # U+320C => 0028 1111 0029 "\xE3\x88\x8D" => "\x{0028}\x{1112}\x{0029}", # U+320D => 0028 1112 0029 "\xE3\x88\x8E" => "\x{0028}\x{AC00}\x{0029}", # U+320E => 0028 AC00 0029 "\xE3\x88\x8F" => "\x{0028}\x{B098}\x{0029}", # U+320F => 0028 B098 0029 "\xE3\x88\x90" => "\x{0028}\x{B2E4}\x{0029}", # U+3210 => 0028 B2E4 0029 "\xE3\x88\x91" => "\x{0028}\x{B77C}\x{0029}", # U+3211 => 0028 B77C 0029 "\xE3\x88\x92" => "\x{0028}\x{B9C8}\x{0029}", # U+3212 => 0028 B9C8 0029 "\xE3\x88\x93" => "\x{0028}\x{BC14}\x{0029}", # U+3213 => 0028 BC14 0029 "\xE3\x88\x94" => "\x{0028}\x{C0AC}\x{0029}", # U+3214 => 0028 C0AC 0029 "\xE3\x88\x95" => "\x{0028}\x{C544}\x{0029}", # U+3215 => 0028 C544 0029 "\xE3\x88\x96" => "\x{0028}\x{C790}\x{0029}", # U+3216 => 0028 C790 0029 "\xE3\x88\x97" => "\x{0028}\x{CC28}\x{0029}", # U+3217 => 0028 CC28 0029 "\xE3\x88\x98" => "\x{0028}\x{CE74}\x{0029}", # U+3218 => 0028 CE74 0029 "\xE3\x88\x99" => "\x{0028}\x{D0C0}\x{0029}", # U+3219 => 0028 D0C0 0029 "\xE3\x88\x9A" => "\x{0028}\x{D30C}\x{0029}", # U+321A => 0028 D30C 0029 "\xE3\x88\x9B" => "\x{0028}\x{D558}\x{0029}", # U+321B => 0028 D558 0029 "\xE3\x88\x9C" => "\x{0028}\x{C8FC}\x{0029}", # U+321C => 0028 C8FC 0029 "\xE3\x88\x9D" => "\x{0028}\x{C624}\x{C804}\x{0029}", # U+321D => 0028 C624 C804 0029 "\xE3\x88\x9E" => "\x{0028}\x{C624}\x{D6C4}\x{0029}", # U+321E => 0028 C624 D6C4 0029 "\xE3\x88\xA0" => "\x{0028}\x{4E00}\x{0029}", # U+3220 => 0028 4E00 0029 "\xE3\x88\xA1" => "\x{0028}\x{4E8C}\x{0029}", # U+3221 => 0028 4E8C 0029 "\xE3\x88\xA2" => "\x{0028}\x{4E09}\x{0029}", # U+3222 => 0028 4E09 0029 "\xE3\x88\xA3" => "\x{0028}\x{56DB}\x{0029}", # U+3223 => 0028 56DB 0029 "\xE3\x88\xA4" => "\x{0028}\x{4E94}\x{0029}", # U+3224 => 0028 4E94 0029 "\xE3\x88\xA5" => "\x{0028}\x{516D}\x{0029}", # U+3225 => 0028 516D 0029 "\xE3\x88\xA6" => "\x{0028}\x{4E03}\x{0029}", # U+3226 => 0028 4E03 0029 "\xE3\x88\xA7" => "\x{0028}\x{516B}\x{0029}", # U+3227 => 0028 516B 0029 "\xE3\x88\xA8" => "\x{0028}\x{4E5D}\x{0029}", # U+3228 => 0028 4E5D 0029 "\xE3\x88\xA9" => "\x{0028}\x{5341}\x{0029}", # U+3229 => 0028 5341 0029 "\xE3\x88\xAA" => "\x{0028}\x{6708}\x{0029}", # U+322A => 0028 6708 0029 "\xE3\x88\xAB" => "\x{0028}\x{706B}\x{0029}", # U+322B => 0028 706B 0029 "\xE3\x88\xAC" => "\x{0028}\x{6C34}\x{0029}", # U+322C => 0028 6C34 0029 "\xE3\x88\xAD" => "\x{0028}\x{6728}\x{0029}", # U+322D => 0028 6728 0029 "\xE3\x88\xAE" => "\x{0028}\x{91D1}\x{0029}", # U+322E => 0028 91D1 0029 "\xE3\x88\xAF" => "\x{0028}\x{571F}\x{0029}", # U+322F => 0028 571F 0029 "\xE3\x88\xB0" => "\x{0028}\x{65E5}\x{0029}", # U+3230 => 0028 65E5 0029 "\xE3\x88\xB1" => "\x{0028}\x{682A}\x{0029}", # U+3231 => 0028 682A 0029 "\xE3\x88\xB2" => "\x{0028}\x{6709}\x{0029}", # U+3232 => 0028 6709 0029 "\xE3\x88\xB3" => "\x{0028}\x{793E}\x{0029}", # U+3233 => 0028 793E 0029 "\xE3\x88\xB4" => "\x{0028}\x{540D}\x{0029}", # U+3234 => 0028 540D 0029 "\xE3\x88\xB5" => "\x{0028}\x{7279}\x{0029}", # U+3235 => 0028 7279 0029 "\xE3\x88\xB6" => "\x{0028}\x{8CA1}\x{0029}", # U+3236 => 0028 8CA1 0029 "\xE3\x88\xB7" => "\x{0028}\x{795D}\x{0029}", # U+3237 => 0028 795D 0029 "\xE3\x88\xB8" => "\x{0028}\x{52B4}\x{0029}", # U+3238 => 0028 52B4 0029 "\xE3\x88\xB9" => "\x{0028}\x{4EE3}\x{0029}", # U+3239 => 0028 4EE3 0029 "\xE3\x88\xBA" => "\x{0028}\x{547C}\x{0029}", # U+323A => 0028 547C 0029 "\xE3\x88\xBB" => "\x{0028}\x{5B66}\x{0029}", # U+323B => 0028 5B66 0029 "\xE3\x88\xBC" => "\x{0028}\x{76E3}\x{0029}", # U+323C => 0028 76E3 0029 "\xE3\x88\xBD" => "\x{0028}\x{4F01}\x{0029}", # U+323D => 0028 4F01 0029 "\xE3\x88\xBE" => "\x{0028}\x{8CC7}\x{0029}", # U+323E => 0028 8CC7 0029 "\xE3\x88\xBF" => "\x{0028}\x{5354}\x{0029}", # U+323F => 0028 5354 0029 "\xE3\x89\x80" => "\x{0028}\x{796D}\x{0029}", # U+3240 => 0028 796D 0029 "\xE3\x89\x81" => "\x{0028}\x{4F11}\x{0029}", # U+3241 => 0028 4F11 0029 "\xE3\x89\x82" => "\x{0028}\x{81EA}\x{0029}", # U+3242 => 0028 81EA 0029 "\xE3\x89\x83" => "\x{0028}\x{81F3}\x{0029}", # U+3243 => 0028 81F3 0029 "\xE3\x89\x90" => "\x{0070}\x{0074}\x{0065}", # U+3250 => 0070 0074 0065 "\xE3\x89\x91" => "\x{0032}\x{0031}", # U+3251 => 0032 0031 "\xE3\x89\x92" => "\x{0032}\x{0032}", # U+3252 => 0032 0032 "\xE3\x89\x93" => "\x{0032}\x{0033}", # U+3253 => 0032 0033 "\xE3\x89\x94" => "\x{0032}\x{0034}", # U+3254 => 0032 0034 "\xE3\x89\x95" => "\x{0032}\x{0035}", # U+3255 => 0032 0035 "\xE3\x89\x96" => "\x{0032}\x{0036}", # U+3256 => 0032 0036 "\xE3\x89\x97" => "\x{0032}\x{0037}", # U+3257 => 0032 0037 "\xE3\x89\x98" => "\x{0032}\x{0038}", # U+3258 => 0032 0038 "\xE3\x89\x99" => "\x{0032}\x{0039}", # U+3259 => 0032 0039 "\xE3\x89\x9A" => "\x{0033}\x{0030}", # U+325A => 0033 0030 "\xE3\x89\x9B" => "\x{0033}\x{0031}", # U+325B => 0033 0031 "\xE3\x89\x9C" => "\x{0033}\x{0032}", # U+325C => 0033 0032 "\xE3\x89\x9D" => "\x{0033}\x{0033}", # U+325D => 0033 0033 "\xE3\x89\x9E" => "\x{0033}\x{0034}", # U+325E => 0033 0034 "\xE3\x89\x9F" => "\x{0033}\x{0035}", # U+325F => 0033 0035 "\xE3\x89\xBC" => "\x{CC38}\x{ACE0}", # U+327C => CC38 ACE0 "\xE3\x89\xBD" => "\x{C8FC}\x{C758}", # U+327D => C8FC C758 "\xE3\x8A\xB1" => "\x{0033}\x{0036}", # U+32B1 => 0033 0036 "\xE3\x8A\xB2" => "\x{0033}\x{0037}", # U+32B2 => 0033 0037 "\xE3\x8A\xB3" => "\x{0033}\x{0038}", # U+32B3 => 0033 0038 "\xE3\x8A\xB4" => "\x{0033}\x{0039}", # U+32B4 => 0033 0039 "\xE3\x8A\xB5" => "\x{0034}\x{0030}", # U+32B5 => 0034 0030 "\xE3\x8A\xB6" => "\x{0034}\x{0031}", # U+32B6 => 0034 0031 "\xE3\x8A\xB7" => "\x{0034}\x{0032}", # U+32B7 => 0034 0032 "\xE3\x8A\xB8" => "\x{0034}\x{0033}", # U+32B8 => 0034 0033 "\xE3\x8A\xB9" => "\x{0034}\x{0034}", # U+32B9 => 0034 0034 "\xE3\x8A\xBA" => "\x{0034}\x{0035}", # U+32BA => 0034 0035 "\xE3\x8A\xBB" => "\x{0034}\x{0036}", # U+32BB => 0034 0036 "\xE3\x8A\xBC" => "\x{0034}\x{0037}", # U+32BC => 0034 0037 "\xE3\x8A\xBD" => "\x{0034}\x{0038}", # U+32BD => 0034 0038 "\xE3\x8A\xBE" => "\x{0034}\x{0039}", # U+32BE => 0034 0039 "\xE3\x8A\xBF" => "\x{0035}\x{0030}", # U+32BF => 0035 0030 "\xE3\x8B\x80" => "\x{0031}\x{6708}", # U+32C0 => 0031 6708 "\xE3\x8B\x81" => "\x{0032}\x{6708}", # U+32C1 => 0032 6708 "\xE3\x8B\x82" => "\x{0033}\x{6708}", # U+32C2 => 0033 6708 "\xE3\x8B\x83" => "\x{0034}\x{6708}", # U+32C3 => 0034 6708 "\xE3\x8B\x84" => "\x{0035}\x{6708}", # U+32C4 => 0035 6708 "\xE3\x8B\x85" => "\x{0036}\x{6708}", # U+32C5 => 0036 6708 "\xE3\x8B\x86" => "\x{0037}\x{6708}", # U+32C6 => 0037 6708 "\xE3\x8B\x87" => "\x{0038}\x{6708}", # U+32C7 => 0038 6708 "\xE3\x8B\x88" => "\x{0039}\x{6708}", # U+32C8 => 0039 6708 "\xE3\x8B\x89" => "\x{0031}\x{0030}\x{6708}", # U+32C9 => 0031 0030 6708 "\xE3\x8B\x8A" => "\x{0031}\x{0031}\x{6708}", # U+32CA => 0031 0031 6708 "\xE3\x8B\x8B" => "\x{0031}\x{0032}\x{6708}", # U+32CB => 0031 0032 6708 "\xE3\x8B\x8C" => "\x{0068}\x{0067}", # U+32CC => 0068 0067 "\xE3\x8B\x8D" => "\x{0065}\x{0072}\x{0067}", # U+32CD => 0065 0072 0067 "\xE3\x8B\x8E" => "\x{0065}\x{0076}", # U+32CE => 0065 0076 "\xE3\x8B\x8F" => "\x{006C}\x{0074}\x{0064}", # U+32CF => 006C 0074 0064 "\xE3\x8B\xBF" => "\x{4EE4}\x{548C}", # U+32FF => 4EE4 548C "\xE3\x8C\x80" => "\x{30A2}\x{30D1}\x{30FC}\x{30C8}", # U+3300 => 30A2 30D1 30FC 30C8 "\xE3\x8C\x81" => "\x{30A2}\x{30EB}\x{30D5}\x{30A1}", # U+3301 => 30A2 30EB 30D5 30A1 "\xE3\x8C\x82" => "\x{30A2}\x{30F3}\x{30DA}\x{30A2}", # U+3302 => 30A2 30F3 30DA 30A2 "\xE3\x8C\x83" => "\x{30A2}\x{30FC}\x{30EB}", # U+3303 => 30A2 30FC 30EB "\xE3\x8C\x84" => "\x{30A4}\x{30CB}\x{30F3}\x{30B0}", # U+3304 => 30A4 30CB 30F3 30B0 "\xE3\x8C\x85" => "\x{30A4}\x{30F3}\x{30C1}", # U+3305 => 30A4 30F3 30C1 "\xE3\x8C\x86" => "\x{30A6}\x{30A9}\x{30F3}", # U+3306 => 30A6 30A9 30F3 "\xE3\x8C\x87" => "\x{30A8}\x{30B9}\x{30AF}\x{30FC}\x{30C9}", # U+3307 => 30A8 30B9 30AF 30FC 30C9 "\xE3\x8C\x88" => "\x{30A8}\x{30FC}\x{30AB}\x{30FC}", # U+3308 => 30A8 30FC 30AB 30FC "\xE3\x8C\x89" => "\x{30AA}\x{30F3}\x{30B9}", # U+3309 => 30AA 30F3 30B9 "\xE3\x8C\x8A" => "\x{30AA}\x{30FC}\x{30E0}", # U+330A => 30AA 30FC 30E0 "\xE3\x8C\x8B" => "\x{30AB}\x{30A4}\x{30EA}", # U+330B => 30AB 30A4 30EA "\xE3\x8C\x8C" => "\x{30AB}\x{30E9}\x{30C3}\x{30C8}", # U+330C => 30AB 30E9 30C3 30C8 "\xE3\x8C\x8D" => "\x{30AB}\x{30ED}\x{30EA}\x{30FC}", # U+330D => 30AB 30ED 30EA 30FC "\xE3\x8C\x8E" => "\x{30AC}\x{30ED}\x{30F3}", # U+330E => 30AC 30ED 30F3 "\xE3\x8C\x8F" => "\x{30AC}\x{30F3}\x{30DE}", # U+330F => 30AC 30F3 30DE "\xE3\x8C\x90" => "\x{30AE}\x{30AC}", # U+3310 => 30AE 30AC "\xE3\x8C\x91" => "\x{30AE}\x{30CB}\x{30FC}", # U+3311 => 30AE 30CB 30FC "\xE3\x8C\x92" => "\x{30AD}\x{30E5}\x{30EA}\x{30FC}", # U+3312 => 30AD 30E5 30EA 30FC "\xE3\x8C\x93" => "\x{30AE}\x{30EB}\x{30C0}\x{30FC}", # U+3313 => 30AE 30EB 30C0 30FC "\xE3\x8C\x94" => "\x{30AD}\x{30ED}", # U+3314 => 30AD 30ED "\xE3\x8C\x95" => "\x{30AD}\x{30ED}\x{30B0}\x{30E9}\x{30E0}", # U+3315 => 30AD 30ED 30B0 30E9 30E0 "\xE3\x8C\x96" => "\x{30AD}\x{30ED}\x{30E1}\x{30FC}\x{30C8}\x{30EB}", # U+3316 => 30AD 30ED 30E1 30FC 30C8 30EB "\xE3\x8C\x97" => "\x{30AD}\x{30ED}\x{30EF}\x{30C3}\x{30C8}", # U+3317 => 30AD 30ED 30EF 30C3 30C8 "\xE3\x8C\x98" => "\x{30B0}\x{30E9}\x{30E0}", # U+3318 => 30B0 30E9 30E0 "\xE3\x8C\x99" => "\x{30B0}\x{30E9}\x{30E0}\x{30C8}\x{30F3}", # U+3319 => 30B0 30E9 30E0 30C8 30F3 "\xE3\x8C\x9A" => "\x{30AF}\x{30EB}\x{30BC}\x{30A4}\x{30ED}", # U+331A => 30AF 30EB 30BC 30A4 30ED "\xE3\x8C\x9B" => "\x{30AF}\x{30ED}\x{30FC}\x{30CD}", # U+331B => 30AF 30ED 30FC 30CD "\xE3\x8C\x9C" => "\x{30B1}\x{30FC}\x{30B9}", # U+331C => 30B1 30FC 30B9 "\xE3\x8C\x9D" => "\x{30B3}\x{30EB}\x{30CA}", # U+331D => 30B3 30EB 30CA "\xE3\x8C\x9E" => "\x{30B3}\x{30FC}\x{30DD}", # U+331E => 30B3 30FC 30DD "\xE3\x8C\x9F" => "\x{30B5}\x{30A4}\x{30AF}\x{30EB}", # U+331F => 30B5 30A4 30AF 30EB "\xE3\x8C\xA0" => "\x{30B5}\x{30F3}\x{30C1}\x{30FC}\x{30E0}", # U+3320 => 30B5 30F3 30C1 30FC 30E0 "\xE3\x8C\xA1" => "\x{30B7}\x{30EA}\x{30F3}\x{30B0}", # U+3321 => 30B7 30EA 30F3 30B0 "\xE3\x8C\xA2" => "\x{30BB}\x{30F3}\x{30C1}", # U+3322 => 30BB 30F3 30C1 "\xE3\x8C\xA3" => "\x{30BB}\x{30F3}\x{30C8}", # U+3323 => 30BB 30F3 30C8 "\xE3\x8C\xA4" => "\x{30C0}\x{30FC}\x{30B9}", # U+3324 => 30C0 30FC 30B9 "\xE3\x8C\xA5" => "\x{30C7}\x{30B7}", # U+3325 => 30C7 30B7 "\xE3\x8C\xA6" => "\x{30C9}\x{30EB}", # U+3326 => 30C9 30EB "\xE3\x8C\xA7" => "\x{30C8}\x{30F3}", # U+3327 => 30C8 30F3 "\xE3\x8C\xA8" => "\x{30CA}\x{30CE}", # U+3328 => 30CA 30CE "\xE3\x8C\xA9" => "\x{30CE}\x{30C3}\x{30C8}", # U+3329 => 30CE 30C3 30C8 "\xE3\x8C\xAA" => "\x{30CF}\x{30A4}\x{30C4}", # U+332A => 30CF 30A4 30C4 "\xE3\x8C\xAB" => "\x{30D1}\x{30FC}\x{30BB}\x{30F3}\x{30C8}", # U+332B => 30D1 30FC 30BB 30F3 30C8 "\xE3\x8C\xAC" => "\x{30D1}\x{30FC}\x{30C4}", # U+332C => 30D1 30FC 30C4 "\xE3\x8C\xAD" => "\x{30D0}\x{30FC}\x{30EC}\x{30EB}", # U+332D => 30D0 30FC 30EC 30EB "\xE3\x8C\xAE" => "\x{30D4}\x{30A2}\x{30B9}\x{30C8}\x{30EB}", # U+332E => 30D4 30A2 30B9 30C8 30EB "\xE3\x8C\xAF" => "\x{30D4}\x{30AF}\x{30EB}", # U+332F => 30D4 30AF 30EB "\xE3\x8C\xB0" => "\x{30D4}\x{30B3}", # U+3330 => 30D4 30B3 "\xE3\x8C\xB1" => "\x{30D3}\x{30EB}", # U+3331 => 30D3 30EB "\xE3\x8C\xB2" => "\x{30D5}\x{30A1}\x{30E9}\x{30C3}\x{30C9}", # U+3332 => 30D5 30A1 30E9 30C3 30C9 "\xE3\x8C\xB3" => "\x{30D5}\x{30A3}\x{30FC}\x{30C8}", # U+3333 => 30D5 30A3 30FC 30C8 "\xE3\x8C\xB4" => "\x{30D6}\x{30C3}\x{30B7}\x{30A7}\x{30EB}", # U+3334 => 30D6 30C3 30B7 30A7 30EB "\xE3\x8C\xB5" => "\x{30D5}\x{30E9}\x{30F3}", # U+3335 => 30D5 30E9 30F3 "\xE3\x8C\xB6" => "\x{30D8}\x{30AF}\x{30BF}\x{30FC}\x{30EB}", # U+3336 => 30D8 30AF 30BF 30FC 30EB "\xE3\x8C\xB7" => "\x{30DA}\x{30BD}", # U+3337 => 30DA 30BD "\xE3\x8C\xB8" => "\x{30DA}\x{30CB}\x{30D2}", # U+3338 => 30DA 30CB 30D2 "\xE3\x8C\xB9" => "\x{30D8}\x{30EB}\x{30C4}", # U+3339 => 30D8 30EB 30C4 "\xE3\x8C\xBA" => "\x{30DA}\x{30F3}\x{30B9}", # U+333A => 30DA 30F3 30B9 "\xE3\x8C\xBB" => "\x{30DA}\x{30FC}\x{30B8}", # U+333B => 30DA 30FC 30B8 "\xE3\x8C\xBC" => "\x{30D9}\x{30FC}\x{30BF}", # U+333C => 30D9 30FC 30BF "\xE3\x8C\xBD" => "\x{30DD}\x{30A4}\x{30F3}\x{30C8}", # U+333D => 30DD 30A4 30F3 30C8 "\xE3\x8C\xBE" => "\x{30DC}\x{30EB}\x{30C8}", # U+333E => 30DC 30EB 30C8 "\xE3\x8C\xBF" => "\x{30DB}\x{30F3}", # U+333F => 30DB 30F3 "\xE3\x8D\x80" => "\x{30DD}\x{30F3}\x{30C9}", # U+3340 => 30DD 30F3 30C9 "\xE3\x8D\x81" => "\x{30DB}\x{30FC}\x{30EB}", # U+3341 => 30DB 30FC 30EB "\xE3\x8D\x82" => "\x{30DB}\x{30FC}\x{30F3}", # U+3342 => 30DB 30FC 30F3 "\xE3\x8D\x83" => "\x{30DE}\x{30A4}\x{30AF}\x{30ED}", # U+3343 => 30DE 30A4 30AF 30ED "\xE3\x8D\x84" => "\x{30DE}\x{30A4}\x{30EB}", # U+3344 => 30DE 30A4 30EB "\xE3\x8D\x85" => "\x{30DE}\x{30C3}\x{30CF}", # U+3345 => 30DE 30C3 30CF "\xE3\x8D\x86" => "\x{30DE}\x{30EB}\x{30AF}", # U+3346 => 30DE 30EB 30AF "\xE3\x8D\x87" => "\x{30DE}\x{30F3}\x{30B7}\x{30E7}\x{30F3}", # U+3347 => 30DE 30F3 30B7 30E7 30F3 "\xE3\x8D\x88" => "\x{30DF}\x{30AF}\x{30ED}\x{30F3}", # U+3348 => 30DF 30AF 30ED 30F3 "\xE3\x8D\x89" => "\x{30DF}\x{30EA}", # U+3349 => 30DF 30EA "\xE3\x8D\x8A" => "\x{30DF}\x{30EA}\x{30D0}\x{30FC}\x{30EB}", # U+334A => 30DF 30EA 30D0 30FC 30EB "\xE3\x8D\x8B" => "\x{30E1}\x{30AC}", # U+334B => 30E1 30AC "\xE3\x8D\x8C" => "\x{30E1}\x{30AC}\x{30C8}\x{30F3}", # U+334C => 30E1 30AC 30C8 30F3 "\xE3\x8D\x8D" => "\x{30E1}\x{30FC}\x{30C8}\x{30EB}", # U+334D => 30E1 30FC 30C8 30EB "\xE3\x8D\x8E" => "\x{30E4}\x{30FC}\x{30C9}", # U+334E => 30E4 30FC 30C9 "\xE3\x8D\x8F" => "\x{30E4}\x{30FC}\x{30EB}", # U+334F => 30E4 30FC 30EB "\xE3\x8D\x90" => "\x{30E6}\x{30A2}\x{30F3}", # U+3350 => 30E6 30A2 30F3 "\xE3\x8D\x91" => "\x{30EA}\x{30C3}\x{30C8}\x{30EB}", # U+3351 => 30EA 30C3 30C8 30EB "\xE3\x8D\x92" => "\x{30EA}\x{30E9}", # U+3352 => 30EA 30E9 "\xE3\x8D\x93" => "\x{30EB}\x{30D4}\x{30FC}", # U+3353 => 30EB 30D4 30FC "\xE3\x8D\x94" => "\x{30EB}\x{30FC}\x{30D6}\x{30EB}", # U+3354 => 30EB 30FC 30D6 30EB "\xE3\x8D\x95" => "\x{30EC}\x{30E0}", # U+3355 => 30EC 30E0 "\xE3\x8D\x96" => "\x{30EC}\x{30F3}\x{30C8}\x{30B2}\x{30F3}", # U+3356 => 30EC 30F3 30C8 30B2 30F3 "\xE3\x8D\x97" => "\x{30EF}\x{30C3}\x{30C8}", # U+3357 => 30EF 30C3 30C8 "\xE3\x8D\x98" => "\x{0030}\x{70B9}", # U+3358 => 0030 70B9 "\xE3\x8D\x99" => "\x{0031}\x{70B9}", # U+3359 => 0031 70B9 "\xE3\x8D\x9A" => "\x{0032}\x{70B9}", # U+335A => 0032 70B9 "\xE3\x8D\x9B" => "\x{0033}\x{70B9}", # U+335B => 0033 70B9 "\xE3\x8D\x9C" => "\x{0034}\x{70B9}", # U+335C => 0034 70B9 "\xE3\x8D\x9D" => "\x{0035}\x{70B9}", # U+335D => 0035 70B9 "\xE3\x8D\x9E" => "\x{0036}\x{70B9}", # U+335E => 0036 70B9 "\xE3\x8D\x9F" => "\x{0037}\x{70B9}", # U+335F => 0037 70B9 "\xE3\x8D\xA0" => "\x{0038}\x{70B9}", # U+3360 => 0038 70B9 "\xE3\x8D\xA1" => "\x{0039}\x{70B9}", # U+3361 => 0039 70B9 "\xE3\x8D\xA2" => "\x{0031}\x{0030}\x{70B9}", # U+3362 => 0031 0030 70B9 "\xE3\x8D\xA3" => "\x{0031}\x{0031}\x{70B9}", # U+3363 => 0031 0031 70B9 "\xE3\x8D\xA4" => "\x{0031}\x{0032}\x{70B9}", # U+3364 => 0031 0032 70B9 "\xE3\x8D\xA5" => "\x{0031}\x{0033}\x{70B9}", # U+3365 => 0031 0033 70B9 "\xE3\x8D\xA6" => "\x{0031}\x{0034}\x{70B9}", # U+3366 => 0031 0034 70B9 "\xE3\x8D\xA7" => "\x{0031}\x{0035}\x{70B9}", # U+3367 => 0031 0035 70B9 "\xE3\x8D\xA8" => "\x{0031}\x{0036}\x{70B9}", # U+3368 => 0031 0036 70B9 "\xE3\x8D\xA9" => "\x{0031}\x{0037}\x{70B9}", # U+3369 => 0031 0037 70B9 "\xE3\x8D\xAA" => "\x{0031}\x{0038}\x{70B9}", # U+336A => 0031 0038 70B9 "\xE3\x8D\xAB" => "\x{0031}\x{0039}\x{70B9}", # U+336B => 0031 0039 70B9 "\xE3\x8D\xAC" => "\x{0032}\x{0030}\x{70B9}", # U+336C => 0032 0030 70B9 "\xE3\x8D\xAD" => "\x{0032}\x{0031}\x{70B9}", # U+336D => 0032 0031 70B9 "\xE3\x8D\xAE" => "\x{0032}\x{0032}\x{70B9}", # U+336E => 0032 0032 70B9 "\xE3\x8D\xAF" => "\x{0032}\x{0033}\x{70B9}", # U+336F => 0032 0033 70B9 "\xE3\x8D\xB0" => "\x{0032}\x{0034}\x{70B9}", # U+3370 => 0032 0034 70B9 "\xE3\x8D\xB1" => "\x{0068}\x{0070}\x{0061}", # U+3371 => 0068 0070 0061 "\xE3\x8D\xB2" => "\x{0064}\x{0061}", # U+3372 => 0064 0061 "\xE3\x8D\xB3" => "\x{0061}\x{0075}", # U+3373 => 0061 0075 "\xE3\x8D\xB4" => "\x{0062}\x{0061}\x{0072}", # U+3374 => 0062 0061 0072 "\xE3\x8D\xB5" => "\x{006F}\x{0076}", # U+3375 => 006F 0076 "\xE3\x8D\xB6" => "\x{0070}\x{0063}", # U+3376 => 0070 0063 "\xE3\x8D\xB7" => "\x{0064}\x{006D}", # U+3377 => 0064 006D "\xE3\x8D\xB8" => "\x{0064}\x{006D}\x{0032}", # U+3378 => 0064 006D 0032 "\xE3\x8D\xB9" => "\x{0064}\x{006D}\x{0033}", # U+3379 => 0064 006D 0033 "\xE3\x8D\xBA" => "\x{0069}\x{0075}", # U+337A => 0069 0075 "\xE3\x8D\xBB" => "\x{5E73}\x{6210}", # U+337B => 5E73 6210 "\xE3\x8D\xBC" => "\x{662D}\x{548C}", # U+337C => 662D 548C "\xE3\x8D\xBD" => "\x{5927}\x{6B63}", # U+337D => 5927 6B63 "\xE3\x8D\xBE" => "\x{660E}\x{6CBB}", # U+337E => 660E 6CBB "\xE3\x8D\xBF" => "\x{682A}\x{5F0F}\x{4F1A}\x{793E}", # U+337F => 682A 5F0F 4F1A 793E "\xE3\x8E\x80" => "\x{0070}\x{0061}", # U+3380 => 0070 0061 "\xE3\x8E\x81" => "\x{006E}\x{0061}", # U+3381 => 006E 0061 "\xE3\x8E\x82" => "\x{03BC}\x{0061}", # U+3382 => 03BC 0061 "\xE3\x8E\x83" => "\x{006D}\x{0061}", # U+3383 => 006D 0061 "\xE3\x8E\x84" => "\x{006B}\x{0061}", # U+3384 => 006B 0061 "\xE3\x8E\x85" => "\x{006B}\x{0062}", # U+3385 => 006B 0062 "\xE3\x8E\x86" => "\x{006D}\x{0062}", # U+3386 => 006D 0062 "\xE3\x8E\x87" => "\x{0067}\x{0062}", # U+3387 => 0067 0062 "\xE3\x8E\x88" => "\x{0063}\x{0061}\x{006C}", # U+3388 => 0063 0061 006C "\xE3\x8E\x89" => "\x{006B}\x{0063}\x{0061}\x{006C}", # U+3389 => 006B 0063 0061 006C "\xE3\x8E\x8A" => "\x{0070}\x{0066}", # U+338A => 0070 0066 "\xE3\x8E\x8B" => "\x{006E}\x{0066}", # U+338B => 006E 0066 "\xE3\x8E\x8C" => "\x{03BC}\x{0066}", # U+338C => 03BC 0066 "\xE3\x8E\x8D" => "\x{03BC}\x{0067}", # U+338D => 03BC 0067 "\xE3\x8E\x8E" => "\x{006D}\x{0067}", # U+338E => 006D 0067 "\xE3\x8E\x8F" => "\x{006B}\x{0067}", # U+338F => 006B 0067 "\xE3\x8E\x90" => "\x{0068}\x{007A}", # U+3390 => 0068 007A "\xE3\x8E\x91" => "\x{006B}\x{0068}\x{007A}", # U+3391 => 006B 0068 007A "\xE3\x8E\x92" => "\x{006D}\x{0068}\x{007A}", # U+3392 => 006D 0068 007A "\xE3\x8E\x93" => "\x{0067}\x{0068}\x{007A}", # U+3393 => 0067 0068 007A "\xE3\x8E\x94" => "\x{0074}\x{0068}\x{007A}", # U+3394 => 0074 0068 007A "\xE3\x8E\x95" => "\x{03BC}\x{006C}", # U+3395 => 03BC 006C "\xE3\x8E\x96" => "\x{006D}\x{006C}", # U+3396 => 006D 006C "\xE3\x8E\x97" => "\x{0064}\x{006C}", # U+3397 => 0064 006C "\xE3\x8E\x98" => "\x{006B}\x{006C}", # U+3398 => 006B 006C "\xE3\x8E\x99" => "\x{0066}\x{006D}", # U+3399 => 0066 006D "\xE3\x8E\x9A" => "\x{006E}\x{006D}", # U+339A => 006E 006D "\xE3\x8E\x9B" => "\x{03BC}\x{006D}", # U+339B => 03BC 006D "\xE3\x8E\x9C" => "\x{006D}\x{006D}", # U+339C => 006D 006D "\xE3\x8E\x9D" => "\x{0063}\x{006D}", # U+339D => 0063 006D "\xE3\x8E\x9E" => "\x{006B}\x{006D}", # U+339E => 006B 006D "\xE3\x8E\x9F" => "\x{006D}\x{006D}\x{0032}", # U+339F => 006D 006D 0032 "\xE3\x8E\xA0" => "\x{0063}\x{006D}\x{0032}", # U+33A0 => 0063 006D 0032 "\xE3\x8E\xA1" => "\x{006D}\x{0032}", # U+33A1 => 006D 0032 "\xE3\x8E\xA2" => "\x{006B}\x{006D}\x{0032}", # U+33A2 => 006B 006D 0032 "\xE3\x8E\xA3" => "\x{006D}\x{006D}\x{0033}", # U+33A3 => 006D 006D 0033 "\xE3\x8E\xA4" => "\x{0063}\x{006D}\x{0033}", # U+33A4 => 0063 006D 0033 "\xE3\x8E\xA5" => "\x{006D}\x{0033}", # U+33A5 => 006D 0033 "\xE3\x8E\xA6" => "\x{006B}\x{006D}\x{0033}", # U+33A6 => 006B 006D 0033 "\xE3\x8E\xA7" => "\x{006D}\x{2215}\x{0073}", # U+33A7 => 006D 2215 0073 "\xE3\x8E\xA8" => "\x{006D}\x{2215}\x{0073}\x{0032}", # U+33A8 => 006D 2215 0073 0032 "\xE3\x8E\xA9" => "\x{0070}\x{0061}", # U+33A9 => 0070 0061 "\xE3\x8E\xAA" => "\x{006B}\x{0070}\x{0061}", # U+33AA => 006B 0070 0061 "\xE3\x8E\xAB" => "\x{006D}\x{0070}\x{0061}", # U+33AB => 006D 0070 0061 "\xE3\x8E\xAC" => "\x{0067}\x{0070}\x{0061}", # U+33AC => 0067 0070 0061 "\xE3\x8E\xAD" => "\x{0072}\x{0061}\x{0064}", # U+33AD => 0072 0061 0064 "\xE3\x8E\xAE" => "\x{0072}\x{0061}\x{0064}\x{2215}\x{0073}", # U+33AE => 0072 0061 0064 2215 0073 "\xE3\x8E\xAF" => "\x{0072}\x{0061}\x{0064}\x{2215}\x{0073}\x{0032}", # U+33AF => 0072 0061 0064 2215 0073 0032 "\xE3\x8E\xB0" => "\x{0070}\x{0073}", # U+33B0 => 0070 0073 "\xE3\x8E\xB1" => "\x{006E}\x{0073}", # U+33B1 => 006E 0073 "\xE3\x8E\xB2" => "\x{03BC}\x{0073}", # U+33B2 => 03BC 0073 "\xE3\x8E\xB3" => "\x{006D}\x{0073}", # U+33B3 => 006D 0073 "\xE3\x8E\xB4" => "\x{0070}\x{0076}", # U+33B4 => 0070 0076 "\xE3\x8E\xB5" => "\x{006E}\x{0076}", # U+33B5 => 006E 0076 "\xE3\x8E\xB6" => "\x{03BC}\x{0076}", # U+33B6 => 03BC 0076 "\xE3\x8E\xB7" => "\x{006D}\x{0076}", # U+33B7 => 006D 0076 "\xE3\x8E\xB8" => "\x{006B}\x{0076}", # U+33B8 => 006B 0076 "\xE3\x8E\xB9" => "\x{006D}\x{0076}", # U+33B9 => 006D 0076 "\xE3\x8E\xBA" => "\x{0070}\x{0077}", # U+33BA => 0070 0077 "\xE3\x8E\xBB" => "\x{006E}\x{0077}", # U+33BB => 006E 0077 "\xE3\x8E\xBC" => "\x{03BC}\x{0077}", # U+33BC => 03BC 0077 "\xE3\x8E\xBD" => "\x{006D}\x{0077}", # U+33BD => 006D 0077 "\xE3\x8E\xBE" => "\x{006B}\x{0077}", # U+33BE => 006B 0077 "\xE3\x8E\xBF" => "\x{006D}\x{0077}", # U+33BF => 006D 0077 "\xE3\x8F\x80" => "\x{006B}\x{03C9}", # U+33C0 => 006B 03C9 "\xE3\x8F\x81" => "\x{006D}\x{03C9}", # U+33C1 => 006D 03C9 "\xE3\x8F\x82" => "\x{0061}\x{002E}\x{006D}\x{002E}", # U+33C2 => 0061 002E 006D 002E "\xE3\x8F\x83" => "\x{0062}\x{0071}", # U+33C3 => 0062 0071 "\xE3\x8F\x84" => "\x{0063}\x{0063}", # U+33C4 => 0063 0063 "\xE3\x8F\x85" => "\x{0063}\x{0064}", # U+33C5 => 0063 0064 "\xE3\x8F\x86" => "\x{0063}\x{2215}\x{006B}\x{0067}", # U+33C6 => 0063 2215 006B 0067 "\xE3\x8F\x87" => "\x{0063}\x{006F}\x{002E}", # U+33C7 => 0063 006F 002E "\xE3\x8F\x88" => "\x{0064}\x{0062}", # U+33C8 => 0064 0062 "\xE3\x8F\x89" => "\x{0067}\x{0079}", # U+33C9 => 0067 0079 "\xE3\x8F\x8A" => "\x{0068}\x{0061}", # U+33CA => 0068 0061 "\xE3\x8F\x8B" => "\x{0068}\x{0070}", # U+33CB => 0068 0070 "\xE3\x8F\x8C" => "\x{0069}\x{006E}", # U+33CC => 0069 006E "\xE3\x8F\x8D" => "\x{006B}\x{006B}", # U+33CD => 006B 006B "\xE3\x8F\x8E" => "\x{006B}\x{006D}", # U+33CE => 006B 006D "\xE3\x8F\x8F" => "\x{006B}\x{0074}", # U+33CF => 006B 0074 "\xE3\x8F\x90" => "\x{006C}\x{006D}", # U+33D0 => 006C 006D "\xE3\x8F\x91" => "\x{006C}\x{006E}", # U+33D1 => 006C 006E "\xE3\x8F\x92" => "\x{006C}\x{006F}\x{0067}", # U+33D2 => 006C 006F 0067 "\xE3\x8F\x93" => "\x{006C}\x{0078}", # U+33D3 => 006C 0078 "\xE3\x8F\x94" => "\x{006D}\x{0062}", # U+33D4 => 006D 0062 "\xE3\x8F\x95" => "\x{006D}\x{0069}\x{006C}", # U+33D5 => 006D 0069 006C "\xE3\x8F\x96" => "\x{006D}\x{006F}\x{006C}", # U+33D6 => 006D 006F 006C "\xE3\x8F\x97" => "\x{0070}\x{0068}", # U+33D7 => 0070 0068 "\xE3\x8F\x98" => "\x{0070}\x{002E}\x{006D}\x{002E}", # U+33D8 => 0070 002E 006D 002E "\xE3\x8F\x99" => "\x{0070}\x{0070}\x{006D}", # U+33D9 => 0070 0070 006D "\xE3\x8F\x9A" => "\x{0070}\x{0072}", # U+33DA => 0070 0072 "\xE3\x8F\x9B" => "\x{0073}\x{0072}", # U+33DB => 0073 0072 "\xE3\x8F\x9C" => "\x{0073}\x{0076}", # U+33DC => 0073 0076 "\xE3\x8F\x9D" => "\x{0077}\x{0062}", # U+33DD => 0077 0062 "\xE3\x8F\x9E" => "\x{0076}\x{2215}\x{006D}", # U+33DE => 0076 2215 006D "\xE3\x8F\x9F" => "\x{0061}\x{2215}\x{006D}", # U+33DF => 0061 2215 006D "\xE3\x8F\xA0" => "\x{0031}\x{65E5}", # U+33E0 => 0031 65E5 "\xE3\x8F\xA1" => "\x{0032}\x{65E5}", # U+33E1 => 0032 65E5 "\xE3\x8F\xA2" => "\x{0033}\x{65E5}", # U+33E2 => 0033 65E5 "\xE3\x8F\xA3" => "\x{0034}\x{65E5}", # U+33E3 => 0034 65E5 "\xE3\x8F\xA4" => "\x{0035}\x{65E5}", # U+33E4 => 0035 65E5 "\xE3\x8F\xA5" => "\x{0036}\x{65E5}", # U+33E5 => 0036 65E5 "\xE3\x8F\xA6" => "\x{0037}\x{65E5}", # U+33E6 => 0037 65E5 "\xE3\x8F\xA7" => "\x{0038}\x{65E5}", # U+33E7 => 0038 65E5 "\xE3\x8F\xA8" => "\x{0039}\x{65E5}", # U+33E8 => 0039 65E5 "\xE3\x8F\xA9" => "\x{0031}\x{0030}\x{65E5}", # U+33E9 => 0031 0030 65E5 "\xE3\x8F\xAA" => "\x{0031}\x{0031}\x{65E5}", # U+33EA => 0031 0031 65E5 "\xE3\x8F\xAB" => "\x{0031}\x{0032}\x{65E5}", # U+33EB => 0031 0032 65E5 "\xE3\x8F\xAC" => "\x{0031}\x{0033}\x{65E5}", # U+33EC => 0031 0033 65E5 "\xE3\x8F\xAD" => "\x{0031}\x{0034}\x{65E5}", # U+33ED => 0031 0034 65E5 "\xE3\x8F\xAE" => "\x{0031}\x{0035}\x{65E5}", # U+33EE => 0031 0035 65E5 "\xE3\x8F\xAF" => "\x{0031}\x{0036}\x{65E5}", # U+33EF => 0031 0036 65E5 "\xE3\x8F\xB0" => "\x{0031}\x{0037}\x{65E5}", # U+33F0 => 0031 0037 65E5 "\xE3\x8F\xB1" => "\x{0031}\x{0038}\x{65E5}", # U+33F1 => 0031 0038 65E5 "\xE3\x8F\xB2" => "\x{0031}\x{0039}\x{65E5}", # U+33F2 => 0031 0039 65E5 "\xE3\x8F\xB3" => "\x{0032}\x{0030}\x{65E5}", # U+33F3 => 0032 0030 65E5 "\xE3\x8F\xB4" => "\x{0032}\x{0031}\x{65E5}", # U+33F4 => 0032 0031 65E5 "\xE3\x8F\xB5" => "\x{0032}\x{0032}\x{65E5}", # U+33F5 => 0032 0032 65E5 "\xE3\x8F\xB6" => "\x{0032}\x{0033}\x{65E5}", # U+33F6 => 0032 0033 65E5 "\xE3\x8F\xB7" => "\x{0032}\x{0034}\x{65E5}", # U+33F7 => 0032 0034 65E5 "\xE3\x8F\xB8" => "\x{0032}\x{0035}\x{65E5}", # U+33F8 => 0032 0035 65E5 "\xE3\x8F\xB9" => "\x{0032}\x{0036}\x{65E5}", # U+33F9 => 0032 0036 65E5 "\xE3\x8F\xBA" => "\x{0032}\x{0037}\x{65E5}", # U+33FA => 0032 0037 65E5 "\xE3\x8F\xBB" => "\x{0032}\x{0038}\x{65E5}", # U+33FB => 0032 0038 65E5 "\xE3\x8F\xBC" => "\x{0032}\x{0039}\x{65E5}", # U+33FC => 0032 0039 65E5 "\xE3\x8F\xBD" => "\x{0033}\x{0030}\x{65E5}", # U+33FD => 0033 0030 65E5 "\xE3\x8F\xBE" => "\x{0033}\x{0031}\x{65E5}", # U+33FE => 0033 0031 65E5 "\xE3\x8F\xBF" => "\x{0067}\x{0061}\x{006C}", # U+33FF => 0067 0061 006C "\xEF\xAC\x80" => "\x{0066}\x{0066}", # U+FB00 => 0066 0066 "\xEF\xAC\x81" => "\x{0066}\x{0069}", # U+FB01 => 0066 0069 "\xEF\xAC\x82" => "\x{0066}\x{006C}", # U+FB02 => 0066 006C "\xEF\xAC\x83" => "\x{0066}\x{0066}\x{0069}", # U+FB03 => 0066 0066 0069 "\xEF\xAC\x84" => "\x{0066}\x{0066}\x{006C}", # U+FB04 => 0066 0066 006C "\xEF\xAC\x85" => "\x{0073}\x{0074}", # U+FB05 => 0073 0074 "\xEF\xAC\x86" => "\x{0073}\x{0074}", # U+FB06 => 0073 0074 "\xEF\xAC\x93" => "\x{0574}\x{0576}", # U+FB13 => 0574 0576 "\xEF\xAC\x94" => "\x{0574}\x{0565}", # U+FB14 => 0574 0565 "\xEF\xAC\x95" => "\x{0574}\x{056B}", # U+FB15 => 0574 056B "\xEF\xAC\x96" => "\x{057E}\x{0576}", # U+FB16 => 057E 0576 "\xEF\xAC\x97" => "\x{0574}\x{056D}", # U+FB17 => 0574 056D "\xEF\xAC\x9D" => "\x{05D9}\x{05B4}", # U+FB1D => 05D9 05B4 "\xEF\xAC\x9F" => "\x{05F2}\x{05B7}", # U+FB1F => 05F2 05B7 "\xEF\xAC\xAA" => "\x{05E9}\x{05C1}", # U+FB2A => 05E9 05C1 "\xEF\xAC\xAB" => "\x{05E9}\x{05C2}", # U+FB2B => 05E9 05C2 "\xEF\xAC\xAC" => "\x{05E9}\x{05BC}\x{05C1}", # U+FB2C => 05E9 05BC 05C1 "\xEF\xAC\xAD" => "\x{05E9}\x{05BC}\x{05C2}", # U+FB2D => 05E9 05BC 05C2 "\xEF\xAC\xAE" => "\x{05D0}\x{05B7}", # U+FB2E => 05D0 05B7 "\xEF\xAC\xAF" => "\x{05D0}\x{05B8}", # U+FB2F => 05D0 05B8 "\xEF\xAC\xB0" => "\x{05D0}\x{05BC}", # U+FB30 => 05D0 05BC "\xEF\xAC\xB1" => "\x{05D1}\x{05BC}", # U+FB31 => 05D1 05BC "\xEF\xAC\xB2" => "\x{05D2}\x{05BC}", # U+FB32 => 05D2 05BC "\xEF\xAC\xB3" => "\x{05D3}\x{05BC}", # U+FB33 => 05D3 05BC "\xEF\xAC\xB4" => "\x{05D4}\x{05BC}", # U+FB34 => 05D4 05BC "\xEF\xAC\xB5" => "\x{05D5}\x{05BC}", # U+FB35 => 05D5 05BC "\xEF\xAC\xB6" => "\x{05D6}\x{05BC}", # U+FB36 => 05D6 05BC "\xEF\xAC\xB8" => "\x{05D8}\x{05BC}", # U+FB38 => 05D8 05BC "\xEF\xAC\xB9" => "\x{05D9}\x{05BC}", # U+FB39 => 05D9 05BC "\xEF\xAC\xBA" => "\x{05DA}\x{05BC}", # U+FB3A => 05DA 05BC "\xEF\xAC\xBB" => "\x{05DB}\x{05BC}", # U+FB3B => 05DB 05BC "\xEF\xAC\xBC" => "\x{05DC}\x{05BC}", # U+FB3C => 05DC 05BC "\xEF\xAC\xBE" => "\x{05DE}\x{05BC}", # U+FB3E => 05DE 05BC "\xEF\xAD\x80" => "\x{05E0}\x{05BC}", # U+FB40 => 05E0 05BC "\xEF\xAD\x81" => "\x{05E1}\x{05BC}", # U+FB41 => 05E1 05BC "\xEF\xAD\x83" => "\x{05E3}\x{05BC}", # U+FB43 => 05E3 05BC "\xEF\xAD\x84" => "\x{05E4}\x{05BC}", # U+FB44 => 05E4 05BC "\xEF\xAD\x86" => "\x{05E6}\x{05BC}", # U+FB46 => 05E6 05BC "\xEF\xAD\x87" => "\x{05E7}\x{05BC}", # U+FB47 => 05E7 05BC "\xEF\xAD\x88" => "\x{05E8}\x{05BC}", # U+FB48 => 05E8 05BC "\xEF\xAD\x89" => "\x{05E9}\x{05BC}", # U+FB49 => 05E9 05BC "\xEF\xAD\x8A" => "\x{05EA}\x{05BC}", # U+FB4A => 05EA 05BC "\xEF\xAD\x8B" => "\x{05D5}\x{05B9}", # U+FB4B => 05D5 05B9 "\xEF\xAD\x8C" => "\x{05D1}\x{05BF}", # U+FB4C => 05D1 05BF "\xEF\xAD\x8D" => "\x{05DB}\x{05BF}", # U+FB4D => 05DB 05BF "\xEF\xAD\x8E" => "\x{05E4}\x{05BF}", # U+FB4E => 05E4 05BF "\xEF\xAD\x8F" => "\x{05D0}\x{05DC}", # U+FB4F => 05D0 05DC "\xEF\xAF\x9D" => "\x{06C7}\x{0674}", # U+FBDD => 06C7 0674 "\xEF\xAF\xAA" => "\x{0626}\x{0627}", # U+FBEA => 0626 0627 "\xEF\xAF\xAB" => "\x{0626}\x{0627}", # U+FBEB => 0626 0627 "\xEF\xAF\xAC" => "\x{0626}\x{06D5}", # U+FBEC => 0626 06D5 "\xEF\xAF\xAD" => "\x{0626}\x{06D5}", # U+FBED => 0626 06D5 "\xEF\xAF\xAE" => "\x{0626}\x{0648}", # U+FBEE => 0626 0648 "\xEF\xAF\xAF" => "\x{0626}\x{0648}", # U+FBEF => 0626 0648 "\xEF\xAF\xB0" => "\x{0626}\x{06C7}", # U+FBF0 => 0626 06C7 "\xEF\xAF\xB1" => "\x{0626}\x{06C7}", # U+FBF1 => 0626 06C7 "\xEF\xAF\xB2" => "\x{0626}\x{06C6}", # U+FBF2 => 0626 06C6 "\xEF\xAF\xB3" => "\x{0626}\x{06C6}", # U+FBF3 => 0626 06C6 "\xEF\xAF\xB4" => "\x{0626}\x{06C8}", # U+FBF4 => 0626 06C8 "\xEF\xAF\xB5" => "\x{0626}\x{06C8}", # U+FBF5 => 0626 06C8 "\xEF\xAF\xB6" => "\x{0626}\x{06D0}", # U+FBF6 => 0626 06D0 "\xEF\xAF\xB7" => "\x{0626}\x{06D0}", # U+FBF7 => 0626 06D0 "\xEF\xAF\xB8" => "\x{0626}\x{06D0}", # U+FBF8 => 0626 06D0 "\xEF\xAF\xB9" => "\x{0626}\x{0649}", # U+FBF9 => 0626 0649 "\xEF\xAF\xBA" => "\x{0626}\x{0649}", # U+FBFA => 0626 0649 "\xEF\xAF\xBB" => "\x{0626}\x{0649}", # U+FBFB => 0626 0649 "\xEF\xB0\x80" => "\x{0626}\x{062C}", # U+FC00 => 0626 062C "\xEF\xB0\x81" => "\x{0626}\x{062D}", # U+FC01 => 0626 062D "\xEF\xB0\x82" => "\x{0626}\x{0645}", # U+FC02 => 0626 0645 "\xEF\xB0\x83" => "\x{0626}\x{0649}", # U+FC03 => 0626 0649 "\xEF\xB0\x84" => "\x{0626}\x{064A}", # U+FC04 => 0626 064A "\xEF\xB0\x85" => "\x{0628}\x{062C}", # U+FC05 => 0628 062C "\xEF\xB0\x86" => "\x{0628}\x{062D}", # U+FC06 => 0628 062D "\xEF\xB0\x87" => "\x{0628}\x{062E}", # U+FC07 => 0628 062E "\xEF\xB0\x88" => "\x{0628}\x{0645}", # U+FC08 => 0628 0645 "\xEF\xB0\x89" => "\x{0628}\x{0649}", # U+FC09 => 0628 0649 "\xEF\xB0\x8A" => "\x{0628}\x{064A}", # U+FC0A => 0628 064A "\xEF\xB0\x8B" => "\x{062A}\x{062C}", # U+FC0B => 062A 062C "\xEF\xB0\x8C" => "\x{062A}\x{062D}", # U+FC0C => 062A 062D "\xEF\xB0\x8D" => "\x{062A}\x{062E}", # U+FC0D => 062A 062E "\xEF\xB0\x8E" => "\x{062A}\x{0645}", # U+FC0E => 062A 0645 "\xEF\xB0\x8F" => "\x{062A}\x{0649}", # U+FC0F => 062A 0649 "\xEF\xB0\x90" => "\x{062A}\x{064A}", # U+FC10 => 062A 064A "\xEF\xB0\x91" => "\x{062B}\x{062C}", # U+FC11 => 062B 062C "\xEF\xB0\x92" => "\x{062B}\x{0645}", # U+FC12 => 062B 0645 "\xEF\xB0\x93" => "\x{062B}\x{0649}", # U+FC13 => 062B 0649 "\xEF\xB0\x94" => "\x{062B}\x{064A}", # U+FC14 => 062B 064A "\xEF\xB0\x95" => "\x{062C}\x{062D}", # U+FC15 => 062C 062D "\xEF\xB0\x96" => "\x{062C}\x{0645}", # U+FC16 => 062C 0645 "\xEF\xB0\x97" => "\x{062D}\x{062C}", # U+FC17 => 062D 062C "\xEF\xB0\x98" => "\x{062D}\x{0645}", # U+FC18 => 062D 0645 "\xEF\xB0\x99" => "\x{062E}\x{062C}", # U+FC19 => 062E 062C "\xEF\xB0\x9A" => "\x{062E}\x{062D}", # U+FC1A => 062E 062D "\xEF\xB0\x9B" => "\x{062E}\x{0645}", # U+FC1B => 062E 0645 "\xEF\xB0\x9C" => "\x{0633}\x{062C}", # U+FC1C => 0633 062C "\xEF\xB0\x9D" => "\x{0633}\x{062D}", # U+FC1D => 0633 062D "\xEF\xB0\x9E" => "\x{0633}\x{062E}", # U+FC1E => 0633 062E "\xEF\xB0\x9F" => "\x{0633}\x{0645}", # U+FC1F => 0633 0645 "\xEF\xB0\xA0" => "\x{0635}\x{062D}", # U+FC20 => 0635 062D "\xEF\xB0\xA1" => "\x{0635}\x{0645}", # U+FC21 => 0635 0645 "\xEF\xB0\xA2" => "\x{0636}\x{062C}", # U+FC22 => 0636 062C "\xEF\xB0\xA3" => "\x{0636}\x{062D}", # U+FC23 => 0636 062D "\xEF\xB0\xA4" => "\x{0636}\x{062E}", # U+FC24 => 0636 062E "\xEF\xB0\xA5" => "\x{0636}\x{0645}", # U+FC25 => 0636 0645 "\xEF\xB0\xA6" => "\x{0637}\x{062D}", # U+FC26 => 0637 062D "\xEF\xB0\xA7" => "\x{0637}\x{0645}", # U+FC27 => 0637 0645 "\xEF\xB0\xA8" => "\x{0638}\x{0645}", # U+FC28 => 0638 0645 "\xEF\xB0\xA9" => "\x{0639}\x{062C}", # U+FC29 => 0639 062C "\xEF\xB0\xAA" => "\x{0639}\x{0645}", # U+FC2A => 0639 0645 "\xEF\xB0\xAB" => "\x{063A}\x{062C}", # U+FC2B => 063A 062C "\xEF\xB0\xAC" => "\x{063A}\x{0645}", # U+FC2C => 063A 0645 "\xEF\xB0\xAD" => "\x{0641}\x{062C}", # U+FC2D => 0641 062C "\xEF\xB0\xAE" => "\x{0641}\x{062D}", # U+FC2E => 0641 062D "\xEF\xB0\xAF" => "\x{0641}\x{062E}", # U+FC2F => 0641 062E "\xEF\xB0\xB0" => "\x{0641}\x{0645}", # U+FC30 => 0641 0645 "\xEF\xB0\xB1" => "\x{0641}\x{0649}", # U+FC31 => 0641 0649 "\xEF\xB0\xB2" => "\x{0641}\x{064A}", # U+FC32 => 0641 064A "\xEF\xB0\xB3" => "\x{0642}\x{062D}", # U+FC33 => 0642 062D "\xEF\xB0\xB4" => "\x{0642}\x{0645}", # U+FC34 => 0642 0645 "\xEF\xB0\xB5" => "\x{0642}\x{0649}", # U+FC35 => 0642 0649 "\xEF\xB0\xB6" => "\x{0642}\x{064A}", # U+FC36 => 0642 064A "\xEF\xB0\xB7" => "\x{0643}\x{0627}", # U+FC37 => 0643 0627 "\xEF\xB0\xB8" => "\x{0643}\x{062C}", # U+FC38 => 0643 062C "\xEF\xB0\xB9" => "\x{0643}\x{062D}", # U+FC39 => 0643 062D "\xEF\xB0\xBA" => "\x{0643}\x{062E}", # U+FC3A => 0643 062E "\xEF\xB0\xBB" => "\x{0643}\x{0644}", # U+FC3B => 0643 0644 "\xEF\xB0\xBC" => "\x{0643}\x{0645}", # U+FC3C => 0643 0645 "\xEF\xB0\xBD" => "\x{0643}\x{0649}", # U+FC3D => 0643 0649 "\xEF\xB0\xBE" => "\x{0643}\x{064A}", # U+FC3E => 0643 064A "\xEF\xB0\xBF" => "\x{0644}\x{062C}", # U+FC3F => 0644 062C "\xEF\xB1\x80" => "\x{0644}\x{062D}", # U+FC40 => 0644 062D "\xEF\xB1\x81" => "\x{0644}\x{062E}", # U+FC41 => 0644 062E "\xEF\xB1\x82" => "\x{0644}\x{0645}", # U+FC42 => 0644 0645 "\xEF\xB1\x83" => "\x{0644}\x{0649}", # U+FC43 => 0644 0649 "\xEF\xB1\x84" => "\x{0644}\x{064A}", # U+FC44 => 0644 064A "\xEF\xB1\x85" => "\x{0645}\x{062C}", # U+FC45 => 0645 062C "\xEF\xB1\x86" => "\x{0645}\x{062D}", # U+FC46 => 0645 062D "\xEF\xB1\x87" => "\x{0645}\x{062E}", # U+FC47 => 0645 062E "\xEF\xB1\x88" => "\x{0645}\x{0645}", # U+FC48 => 0645 0645 "\xEF\xB1\x89" => "\x{0645}\x{0649}", # U+FC49 => 0645 0649 "\xEF\xB1\x8A" => "\x{0645}\x{064A}", # U+FC4A => 0645 064A "\xEF\xB1\x8B" => "\x{0646}\x{062C}", # U+FC4B => 0646 062C "\xEF\xB1\x8C" => "\x{0646}\x{062D}", # U+FC4C => 0646 062D "\xEF\xB1\x8D" => "\x{0646}\x{062E}", # U+FC4D => 0646 062E "\xEF\xB1\x8E" => "\x{0646}\x{0645}", # U+FC4E => 0646 0645 "\xEF\xB1\x8F" => "\x{0646}\x{0649}", # U+FC4F => 0646 0649 "\xEF\xB1\x90" => "\x{0646}\x{064A}", # U+FC50 => 0646 064A "\xEF\xB1\x91" => "\x{0647}\x{062C}", # U+FC51 => 0647 062C "\xEF\xB1\x92" => "\x{0647}\x{0645}", # U+FC52 => 0647 0645 "\xEF\xB1\x93" => "\x{0647}\x{0649}", # U+FC53 => 0647 0649 "\xEF\xB1\x94" => "\x{0647}\x{064A}", # U+FC54 => 0647 064A "\xEF\xB1\x95" => "\x{064A}\x{062C}", # U+FC55 => 064A 062C "\xEF\xB1\x96" => "\x{064A}\x{062D}", # U+FC56 => 064A 062D "\xEF\xB1\x97" => "\x{064A}\x{062E}", # U+FC57 => 064A 062E "\xEF\xB1\x98" => "\x{064A}\x{0645}", # U+FC58 => 064A 0645 "\xEF\xB1\x99" => "\x{064A}\x{0649}", # U+FC59 => 064A 0649 "\xEF\xB1\x9A" => "\x{064A}\x{064A}", # U+FC5A => 064A 064A "\xEF\xB1\x9B" => "\x{0630}\x{0670}", # U+FC5B => 0630 0670 "\xEF\xB1\x9C" => "\x{0631}\x{0670}", # U+FC5C => 0631 0670 "\xEF\xB1\x9D" => "\x{0649}\x{0670}", # U+FC5D => 0649 0670 "\xEF\xB1\x9E" => "\x{0020}\x{064C}\x{0651}", # U+FC5E => 0020 064C 0651 "\xEF\xB1\x9F" => "\x{0020}\x{064D}\x{0651}", # U+FC5F => 0020 064D 0651 "\xEF\xB1\xA0" => "\x{0020}\x{064E}\x{0651}", # U+FC60 => 0020 064E 0651 "\xEF\xB1\xA1" => "\x{0020}\x{064F}\x{0651}", # U+FC61 => 0020 064F 0651 "\xEF\xB1\xA2" => "\x{0020}\x{0650}\x{0651}", # U+FC62 => 0020 0650 0651 "\xEF\xB1\xA3" => "\x{0020}\x{0651}\x{0670}", # U+FC63 => 0020 0651 0670 "\xEF\xB1\xA4" => "\x{0626}\x{0631}", # U+FC64 => 0626 0631 "\xEF\xB1\xA5" => "\x{0626}\x{0632}", # U+FC65 => 0626 0632 "\xEF\xB1\xA6" => "\x{0626}\x{0645}", # U+FC66 => 0626 0645 "\xEF\xB1\xA7" => "\x{0626}\x{0646}", # U+FC67 => 0626 0646 "\xEF\xB1\xA8" => "\x{0626}\x{0649}", # U+FC68 => 0626 0649 "\xEF\xB1\xA9" => "\x{0626}\x{064A}", # U+FC69 => 0626 064A "\xEF\xB1\xAA" => "\x{0628}\x{0631}", # U+FC6A => 0628 0631 "\xEF\xB1\xAB" => "\x{0628}\x{0632}", # U+FC6B => 0628 0632 "\xEF\xB1\xAC" => "\x{0628}\x{0645}", # U+FC6C => 0628 0645 "\xEF\xB1\xAD" => "\x{0628}\x{0646}", # U+FC6D => 0628 0646 "\xEF\xB1\xAE" => "\x{0628}\x{0649}", # U+FC6E => 0628 0649 "\xEF\xB1\xAF" => "\x{0628}\x{064A}", # U+FC6F => 0628 064A "\xEF\xB1\xB0" => "\x{062A}\x{0631}", # U+FC70 => 062A 0631 "\xEF\xB1\xB1" => "\x{062A}\x{0632}", # U+FC71 => 062A 0632 "\xEF\xB1\xB2" => "\x{062A}\x{0645}", # U+FC72 => 062A 0645 "\xEF\xB1\xB3" => "\x{062A}\x{0646}", # U+FC73 => 062A 0646 "\xEF\xB1\xB4" => "\x{062A}\x{0649}", # U+FC74 => 062A 0649 "\xEF\xB1\xB5" => "\x{062A}\x{064A}", # U+FC75 => 062A 064A "\xEF\xB1\xB6" => "\x{062B}\x{0631}", # U+FC76 => 062B 0631 "\xEF\xB1\xB7" => "\x{062B}\x{0632}", # U+FC77 => 062B 0632 "\xEF\xB1\xB8" => "\x{062B}\x{0645}", # U+FC78 => 062B 0645 "\xEF\xB1\xB9" => "\x{062B}\x{0646}", # U+FC79 => 062B 0646 "\xEF\xB1\xBA" => "\x{062B}\x{0649}", # U+FC7A => 062B 0649 "\xEF\xB1\xBB" => "\x{062B}\x{064A}", # U+FC7B => 062B 064A "\xEF\xB1\xBC" => "\x{0641}\x{0649}", # U+FC7C => 0641 0649 "\xEF\xB1\xBD" => "\x{0641}\x{064A}", # U+FC7D => 0641 064A "\xEF\xB1\xBE" => "\x{0642}\x{0649}", # U+FC7E => 0642 0649 "\xEF\xB1\xBF" => "\x{0642}\x{064A}", # U+FC7F => 0642 064A "\xEF\xB2\x80" => "\x{0643}\x{0627}", # U+FC80 => 0643 0627 "\xEF\xB2\x81" => "\x{0643}\x{0644}", # U+FC81 => 0643 0644 "\xEF\xB2\x82" => "\x{0643}\x{0645}", # U+FC82 => 0643 0645 "\xEF\xB2\x83" => "\x{0643}\x{0649}", # U+FC83 => 0643 0649 "\xEF\xB2\x84" => "\x{0643}\x{064A}", # U+FC84 => 0643 064A "\xEF\xB2\x85" => "\x{0644}\x{0645}", # U+FC85 => 0644 0645 "\xEF\xB2\x86" => "\x{0644}\x{0649}", # U+FC86 => 0644 0649 "\xEF\xB2\x87" => "\x{0644}\x{064A}", # U+FC87 => 0644 064A "\xEF\xB2\x88" => "\x{0645}\x{0627}", # U+FC88 => 0645 0627 "\xEF\xB2\x89" => "\x{0645}\x{0645}", # U+FC89 => 0645 0645 "\xEF\xB2\x8A" => "\x{0646}\x{0631}", # U+FC8A => 0646 0631 "\xEF\xB2\x8B" => "\x{0646}\x{0632}", # U+FC8B => 0646 0632 "\xEF\xB2\x8C" => "\x{0646}\x{0645}", # U+FC8C => 0646 0645 "\xEF\xB2\x8D" => "\x{0646}\x{0646}", # U+FC8D => 0646 0646 "\xEF\xB2\x8E" => "\x{0646}\x{0649}", # U+FC8E => 0646 0649 "\xEF\xB2\x8F" => "\x{0646}\x{064A}", # U+FC8F => 0646 064A "\xEF\xB2\x90" => "\x{0649}\x{0670}", # U+FC90 => 0649 0670 "\xEF\xB2\x91" => "\x{064A}\x{0631}", # U+FC91 => 064A 0631 "\xEF\xB2\x92" => "\x{064A}\x{0632}", # U+FC92 => 064A 0632 "\xEF\xB2\x93" => "\x{064A}\x{0645}", # U+FC93 => 064A 0645 "\xEF\xB2\x94" => "\x{064A}\x{0646}", # U+FC94 => 064A 0646 "\xEF\xB2\x95" => "\x{064A}\x{0649}", # U+FC95 => 064A 0649 "\xEF\xB2\x96" => "\x{064A}\x{064A}", # U+FC96 => 064A 064A "\xEF\xB2\x97" => "\x{0626}\x{062C}", # U+FC97 => 0626 062C "\xEF\xB2\x98" => "\x{0626}\x{062D}", # U+FC98 => 0626 062D "\xEF\xB2\x99" => "\x{0626}\x{062E}", # U+FC99 => 0626 062E "\xEF\xB2\x9A" => "\x{0626}\x{0645}", # U+FC9A => 0626 0645 "\xEF\xB2\x9B" => "\x{0626}\x{0647}", # U+FC9B => 0626 0647 "\xEF\xB2\x9C" => "\x{0628}\x{062C}", # U+FC9C => 0628 062C "\xEF\xB2\x9D" => "\x{0628}\x{062D}", # U+FC9D => 0628 062D "\xEF\xB2\x9E" => "\x{0628}\x{062E}", # U+FC9E => 0628 062E "\xEF\xB2\x9F" => "\x{0628}\x{0645}", # U+FC9F => 0628 0645 "\xEF\xB2\xA0" => "\x{0628}\x{0647}", # U+FCA0 => 0628 0647 "\xEF\xB2\xA1" => "\x{062A}\x{062C}", # U+FCA1 => 062A 062C "\xEF\xB2\xA2" => "\x{062A}\x{062D}", # U+FCA2 => 062A 062D "\xEF\xB2\xA3" => "\x{062A}\x{062E}", # U+FCA3 => 062A 062E "\xEF\xB2\xA4" => "\x{062A}\x{0645}", # U+FCA4 => 062A 0645 "\xEF\xB2\xA5" => "\x{062A}\x{0647}", # U+FCA5 => 062A 0647 "\xEF\xB2\xA6" => "\x{062B}\x{0645}", # U+FCA6 => 062B 0645 "\xEF\xB2\xA7" => "\x{062C}\x{062D}", # U+FCA7 => 062C 062D "\xEF\xB2\xA8" => "\x{062C}\x{0645}", # U+FCA8 => 062C 0645 "\xEF\xB2\xA9" => "\x{062D}\x{062C}", # U+FCA9 => 062D 062C "\xEF\xB2\xAA" => "\x{062D}\x{0645}", # U+FCAA => 062D 0645 "\xEF\xB2\xAB" => "\x{062E}\x{062C}", # U+FCAB => 062E 062C "\xEF\xB2\xAC" => "\x{062E}\x{0645}", # U+FCAC => 062E 0645 "\xEF\xB2\xAD" => "\x{0633}\x{062C}", # U+FCAD => 0633 062C "\xEF\xB2\xAE" => "\x{0633}\x{062D}", # U+FCAE => 0633 062D "\xEF\xB2\xAF" => "\x{0633}\x{062E}", # U+FCAF => 0633 062E "\xEF\xB2\xB0" => "\x{0633}\x{0645}", # U+FCB0 => 0633 0645 "\xEF\xB2\xB1" => "\x{0635}\x{062D}", # U+FCB1 => 0635 062D "\xEF\xB2\xB2" => "\x{0635}\x{062E}", # U+FCB2 => 0635 062E "\xEF\xB2\xB3" => "\x{0635}\x{0645}", # U+FCB3 => 0635 0645 "\xEF\xB2\xB4" => "\x{0636}\x{062C}", # U+FCB4 => 0636 062C "\xEF\xB2\xB5" => "\x{0636}\x{062D}", # U+FCB5 => 0636 062D "\xEF\xB2\xB6" => "\x{0636}\x{062E}", # U+FCB6 => 0636 062E "\xEF\xB2\xB7" => "\x{0636}\x{0645}", # U+FCB7 => 0636 0645 "\xEF\xB2\xB8" => "\x{0637}\x{062D}", # U+FCB8 => 0637 062D "\xEF\xB2\xB9" => "\x{0638}\x{0645}", # U+FCB9 => 0638 0645 "\xEF\xB2\xBA" => "\x{0639}\x{062C}", # U+FCBA => 0639 062C "\xEF\xB2\xBB" => "\x{0639}\x{0645}", # U+FCBB => 0639 0645 "\xEF\xB2\xBC" => "\x{063A}\x{062C}", # U+FCBC => 063A 062C "\xEF\xB2\xBD" => "\x{063A}\x{0645}", # U+FCBD => 063A 0645 "\xEF\xB2\xBE" => "\x{0641}\x{062C}", # U+FCBE => 0641 062C "\xEF\xB2\xBF" => "\x{0641}\x{062D}", # U+FCBF => 0641 062D "\xEF\xB3\x80" => "\x{0641}\x{062E}", # U+FCC0 => 0641 062E "\xEF\xB3\x81" => "\x{0641}\x{0645}", # U+FCC1 => 0641 0645 "\xEF\xB3\x82" => "\x{0642}\x{062D}", # U+FCC2 => 0642 062D "\xEF\xB3\x83" => "\x{0642}\x{0645}", # U+FCC3 => 0642 0645 "\xEF\xB3\x84" => "\x{0643}\x{062C}", # U+FCC4 => 0643 062C "\xEF\xB3\x85" => "\x{0643}\x{062D}", # U+FCC5 => 0643 062D "\xEF\xB3\x86" => "\x{0643}\x{062E}", # U+FCC6 => 0643 062E "\xEF\xB3\x87" => "\x{0643}\x{0644}", # U+FCC7 => 0643 0644 "\xEF\xB3\x88" => "\x{0643}\x{0645}", # U+FCC8 => 0643 0645 "\xEF\xB3\x89" => "\x{0644}\x{062C}", # U+FCC9 => 0644 062C "\xEF\xB3\x8A" => "\x{0644}\x{062D}", # U+FCCA => 0644 062D "\xEF\xB3\x8B" => "\x{0644}\x{062E}", # U+FCCB => 0644 062E "\xEF\xB3\x8C" => "\x{0644}\x{0645}", # U+FCCC => 0644 0645 "\xEF\xB3\x8D" => "\x{0644}\x{0647}", # U+FCCD => 0644 0647 "\xEF\xB3\x8E" => "\x{0645}\x{062C}", # U+FCCE => 0645 062C "\xEF\xB3\x8F" => "\x{0645}\x{062D}", # U+FCCF => 0645 062D "\xEF\xB3\x90" => "\x{0645}\x{062E}", # U+FCD0 => 0645 062E "\xEF\xB3\x91" => "\x{0645}\x{0645}", # U+FCD1 => 0645 0645 "\xEF\xB3\x92" => "\x{0646}\x{062C}", # U+FCD2 => 0646 062C "\xEF\xB3\x93" => "\x{0646}\x{062D}", # U+FCD3 => 0646 062D "\xEF\xB3\x94" => "\x{0646}\x{062E}", # U+FCD4 => 0646 062E "\xEF\xB3\x95" => "\x{0646}\x{0645}", # U+FCD5 => 0646 0645 "\xEF\xB3\x96" => "\x{0646}\x{0647}", # U+FCD6 => 0646 0647 "\xEF\xB3\x97" => "\x{0647}\x{062C}", # U+FCD7 => 0647 062C "\xEF\xB3\x98" => "\x{0647}\x{0645}", # U+FCD8 => 0647 0645 "\xEF\xB3\x99" => "\x{0647}\x{0670}", # U+FCD9 => 0647 0670 "\xEF\xB3\x9A" => "\x{064A}\x{062C}", # U+FCDA => 064A 062C "\xEF\xB3\x9B" => "\x{064A}\x{062D}", # U+FCDB => 064A 062D "\xEF\xB3\x9C" => "\x{064A}\x{062E}", # U+FCDC => 064A 062E "\xEF\xB3\x9D" => "\x{064A}\x{0645}", # U+FCDD => 064A 0645 "\xEF\xB3\x9E" => "\x{064A}\x{0647}", # U+FCDE => 064A 0647 "\xEF\xB3\x9F" => "\x{0626}\x{0645}", # U+FCDF => 0626 0645 "\xEF\xB3\xA0" => "\x{0626}\x{0647}", # U+FCE0 => 0626 0647 "\xEF\xB3\xA1" => "\x{0628}\x{0645}", # U+FCE1 => 0628 0645 "\xEF\xB3\xA2" => "\x{0628}\x{0647}", # U+FCE2 => 0628 0647 "\xEF\xB3\xA3" => "\x{062A}\x{0645}", # U+FCE3 => 062A 0645 "\xEF\xB3\xA4" => "\x{062A}\x{0647}", # U+FCE4 => 062A 0647 "\xEF\xB3\xA5" => "\x{062B}\x{0645}", # U+FCE5 => 062B 0645 "\xEF\xB3\xA6" => "\x{062B}\x{0647}", # U+FCE6 => 062B 0647 "\xEF\xB3\xA7" => "\x{0633}\x{0645}", # U+FCE7 => 0633 0645 "\xEF\xB3\xA8" => "\x{0633}\x{0647}", # U+FCE8 => 0633 0647 "\xEF\xB3\xA9" => "\x{0634}\x{0645}", # U+FCE9 => 0634 0645 "\xEF\xB3\xAA" => "\x{0634}\x{0647}", # U+FCEA => 0634 0647 "\xEF\xB3\xAB" => "\x{0643}\x{0644}", # U+FCEB => 0643 0644 "\xEF\xB3\xAC" => "\x{0643}\x{0645}", # U+FCEC => 0643 0645 "\xEF\xB3\xAD" => "\x{0644}\x{0645}", # U+FCED => 0644 0645 "\xEF\xB3\xAE" => "\x{0646}\x{0645}", # U+FCEE => 0646 0645 "\xEF\xB3\xAF" => "\x{0646}\x{0647}", # U+FCEF => 0646 0647 "\xEF\xB3\xB0" => "\x{064A}\x{0645}", # U+FCF0 => 064A 0645 "\xEF\xB3\xB1" => "\x{064A}\x{0647}", # U+FCF1 => 064A 0647 "\xEF\xB3\xB2" => "\x{0640}\x{064E}\x{0651}", # U+FCF2 => 0640 064E 0651 "\xEF\xB3\xB3" => "\x{0640}\x{064F}\x{0651}", # U+FCF3 => 0640 064F 0651 "\xEF\xB3\xB4" => "\x{0640}\x{0650}\x{0651}", # U+FCF4 => 0640 0650 0651 "\xEF\xB3\xB5" => "\x{0637}\x{0649}", # U+FCF5 => 0637 0649 "\xEF\xB3\xB6" => "\x{0637}\x{064A}", # U+FCF6 => 0637 064A "\xEF\xB3\xB7" => "\x{0639}\x{0649}", # U+FCF7 => 0639 0649 "\xEF\xB3\xB8" => "\x{0639}\x{064A}", # U+FCF8 => 0639 064A "\xEF\xB3\xB9" => "\x{063A}\x{0649}", # U+FCF9 => 063A 0649 "\xEF\xB3\xBA" => "\x{063A}\x{064A}", # U+FCFA => 063A 064A "\xEF\xB3\xBB" => "\x{0633}\x{0649}", # U+FCFB => 0633 0649 "\xEF\xB3\xBC" => "\x{0633}\x{064A}", # U+FCFC => 0633 064A "\xEF\xB3\xBD" => "\x{0634}\x{0649}", # U+FCFD => 0634 0649 "\xEF\xB3\xBE" => "\x{0634}\x{064A}", # U+FCFE => 0634 064A "\xEF\xB3\xBF" => "\x{062D}\x{0649}", # U+FCFF => 062D 0649 "\xEF\xB4\x80" => "\x{062D}\x{064A}", # U+FD00 => 062D 064A "\xEF\xB4\x81" => "\x{062C}\x{0649}", # U+FD01 => 062C 0649 "\xEF\xB4\x82" => "\x{062C}\x{064A}", # U+FD02 => 062C 064A "\xEF\xB4\x83" => "\x{062E}\x{0649}", # U+FD03 => 062E 0649 "\xEF\xB4\x84" => "\x{062E}\x{064A}", # U+FD04 => 062E 064A "\xEF\xB4\x85" => "\x{0635}\x{0649}", # U+FD05 => 0635 0649 "\xEF\xB4\x86" => "\x{0635}\x{064A}", # U+FD06 => 0635 064A "\xEF\xB4\x87" => "\x{0636}\x{0649}", # U+FD07 => 0636 0649 "\xEF\xB4\x88" => "\x{0636}\x{064A}", # U+FD08 => 0636 064A "\xEF\xB4\x89" => "\x{0634}\x{062C}", # U+FD09 => 0634 062C "\xEF\xB4\x8A" => "\x{0634}\x{062D}", # U+FD0A => 0634 062D "\xEF\xB4\x8B" => "\x{0634}\x{062E}", # U+FD0B => 0634 062E "\xEF\xB4\x8C" => "\x{0634}\x{0645}", # U+FD0C => 0634 0645 "\xEF\xB4\x8D" => "\x{0634}\x{0631}", # U+FD0D => 0634 0631 "\xEF\xB4\x8E" => "\x{0633}\x{0631}", # U+FD0E => 0633 0631 "\xEF\xB4\x8F" => "\x{0635}\x{0631}", # U+FD0F => 0635 0631 "\xEF\xB4\x90" => "\x{0636}\x{0631}", # U+FD10 => 0636 0631 "\xEF\xB4\x91" => "\x{0637}\x{0649}", # U+FD11 => 0637 0649 "\xEF\xB4\x92" => "\x{0637}\x{064A}", # U+FD12 => 0637 064A "\xEF\xB4\x93" => "\x{0639}\x{0649}", # U+FD13 => 0639 0649 "\xEF\xB4\x94" => "\x{0639}\x{064A}", # U+FD14 => 0639 064A "\xEF\xB4\x95" => "\x{063A}\x{0649}", # U+FD15 => 063A 0649 "\xEF\xB4\x96" => "\x{063A}\x{064A}", # U+FD16 => 063A 064A "\xEF\xB4\x97" => "\x{0633}\x{0649}", # U+FD17 => 0633 0649 "\xEF\xB4\x98" => "\x{0633}\x{064A}", # U+FD18 => 0633 064A "\xEF\xB4\x99" => "\x{0634}\x{0649}", # U+FD19 => 0634 0649 "\xEF\xB4\x9A" => "\x{0634}\x{064A}", # U+FD1A => 0634 064A "\xEF\xB4\x9B" => "\x{062D}\x{0649}", # U+FD1B => 062D 0649 "\xEF\xB4\x9C" => "\x{062D}\x{064A}", # U+FD1C => 062D 064A "\xEF\xB4\x9D" => "\x{062C}\x{0649}", # U+FD1D => 062C 0649 "\xEF\xB4\x9E" => "\x{062C}\x{064A}", # U+FD1E => 062C 064A "\xEF\xB4\x9F" => "\x{062E}\x{0649}", # U+FD1F => 062E 0649 "\xEF\xB4\xA0" => "\x{062E}\x{064A}", # U+FD20 => 062E 064A "\xEF\xB4\xA1" => "\x{0635}\x{0649}", # U+FD21 => 0635 0649 "\xEF\xB4\xA2" => "\x{0635}\x{064A}", # U+FD22 => 0635 064A "\xEF\xB4\xA3" => "\x{0636}\x{0649}", # U+FD23 => 0636 0649 "\xEF\xB4\xA4" => "\x{0636}\x{064A}", # U+FD24 => 0636 064A "\xEF\xB4\xA5" => "\x{0634}\x{062C}", # U+FD25 => 0634 062C "\xEF\xB4\xA6" => "\x{0634}\x{062D}", # U+FD26 => 0634 062D "\xEF\xB4\xA7" => "\x{0634}\x{062E}", # U+FD27 => 0634 062E "\xEF\xB4\xA8" => "\x{0634}\x{0645}", # U+FD28 => 0634 0645 "\xEF\xB4\xA9" => "\x{0634}\x{0631}", # U+FD29 => 0634 0631 "\xEF\xB4\xAA" => "\x{0633}\x{0631}", # U+FD2A => 0633 0631 "\xEF\xB4\xAB" => "\x{0635}\x{0631}", # U+FD2B => 0635 0631 "\xEF\xB4\xAC" => "\x{0636}\x{0631}", # U+FD2C => 0636 0631 "\xEF\xB4\xAD" => "\x{0634}\x{062C}", # U+FD2D => 0634 062C "\xEF\xB4\xAE" => "\x{0634}\x{062D}", # U+FD2E => 0634 062D "\xEF\xB4\xAF" => "\x{0634}\x{062E}", # U+FD2F => 0634 062E "\xEF\xB4\xB0" => "\x{0634}\x{0645}", # U+FD30 => 0634 0645 "\xEF\xB4\xB1" => "\x{0633}\x{0647}", # U+FD31 => 0633 0647 "\xEF\xB4\xB2" => "\x{0634}\x{0647}", # U+FD32 => 0634 0647 "\xEF\xB4\xB3" => "\x{0637}\x{0645}", # U+FD33 => 0637 0645 "\xEF\xB4\xB4" => "\x{0633}\x{062C}", # U+FD34 => 0633 062C "\xEF\xB4\xB5" => "\x{0633}\x{062D}", # U+FD35 => 0633 062D "\xEF\xB4\xB6" => "\x{0633}\x{062E}", # U+FD36 => 0633 062E "\xEF\xB4\xB7" => "\x{0634}\x{062C}", # U+FD37 => 0634 062C "\xEF\xB4\xB8" => "\x{0634}\x{062D}", # U+FD38 => 0634 062D "\xEF\xB4\xB9" => "\x{0634}\x{062E}", # U+FD39 => 0634 062E "\xEF\xB4\xBA" => "\x{0637}\x{0645}", # U+FD3A => 0637 0645 "\xEF\xB4\xBB" => "\x{0638}\x{0645}", # U+FD3B => 0638 0645 "\xEF\xB4\xBC" => "\x{0627}\x{064B}", # U+FD3C => 0627 064B "\xEF\xB4\xBD" => "\x{0627}\x{064B}", # U+FD3D => 0627 064B "\xEF\xB5\x90" => "\x{062A}\x{062C}\x{0645}", # U+FD50 => 062A 062C 0645 "\xEF\xB5\x91" => "\x{062A}\x{062D}\x{062C}", # U+FD51 => 062A 062D 062C "\xEF\xB5\x92" => "\x{062A}\x{062D}\x{062C}", # U+FD52 => 062A 062D 062C "\xEF\xB5\x93" => "\x{062A}\x{062D}\x{0645}", # U+FD53 => 062A 062D 0645 "\xEF\xB5\x94" => "\x{062A}\x{062E}\x{0645}", # U+FD54 => 062A 062E 0645 "\xEF\xB5\x95" => "\x{062A}\x{0645}\x{062C}", # U+FD55 => 062A 0645 062C "\xEF\xB5\x96" => "\x{062A}\x{0645}\x{062D}", # U+FD56 => 062A 0645 062D "\xEF\xB5\x97" => "\x{062A}\x{0645}\x{062E}", # U+FD57 => 062A 0645 062E "\xEF\xB5\x98" => "\x{062C}\x{0645}\x{062D}", # U+FD58 => 062C 0645 062D "\xEF\xB5\x99" => "\x{062C}\x{0645}\x{062D}", # U+FD59 => 062C 0645 062D "\xEF\xB5\x9A" => "\x{062D}\x{0645}\x{064A}", # U+FD5A => 062D 0645 064A "\xEF\xB5\x9B" => "\x{062D}\x{0645}\x{0649}", # U+FD5B => 062D 0645 0649 "\xEF\xB5\x9C" => "\x{0633}\x{062D}\x{062C}", # U+FD5C => 0633 062D 062C "\xEF\xB5\x9D" => "\x{0633}\x{062C}\x{062D}", # U+FD5D => 0633 062C 062D "\xEF\xB5\x9E" => "\x{0633}\x{062C}\x{0649}", # U+FD5E => 0633 062C 0649 "\xEF\xB5\x9F" => "\x{0633}\x{0645}\x{062D}", # U+FD5F => 0633 0645 062D "\xEF\xB5\xA0" => "\x{0633}\x{0645}\x{062D}", # U+FD60 => 0633 0645 062D "\xEF\xB5\xA1" => "\x{0633}\x{0645}\x{062C}", # U+FD61 => 0633 0645 062C "\xEF\xB5\xA2" => "\x{0633}\x{0645}\x{0645}", # U+FD62 => 0633 0645 0645 "\xEF\xB5\xA3" => "\x{0633}\x{0645}\x{0645}", # U+FD63 => 0633 0645 0645 "\xEF\xB5\xA4" => "\x{0635}\x{062D}\x{062D}", # U+FD64 => 0635 062D 062D "\xEF\xB5\xA5" => "\x{0635}\x{062D}\x{062D}", # U+FD65 => 0635 062D 062D "\xEF\xB5\xA6" => "\x{0635}\x{0645}\x{0645}", # U+FD66 => 0635 0645 0645 "\xEF\xB5\xA7" => "\x{0634}\x{062D}\x{0645}", # U+FD67 => 0634 062D 0645 "\xEF\xB5\xA8" => "\x{0634}\x{062D}\x{0645}", # U+FD68 => 0634 062D 0645 "\xEF\xB5\xA9" => "\x{0634}\x{062C}\x{064A}", # U+FD69 => 0634 062C 064A "\xEF\xB5\xAA" => "\x{0634}\x{0645}\x{062E}", # U+FD6A => 0634 0645 062E "\xEF\xB5\xAB" => "\x{0634}\x{0645}\x{062E}", # U+FD6B => 0634 0645 062E "\xEF\xB5\xAC" => "\x{0634}\x{0645}\x{0645}", # U+FD6C => 0634 0645 0645 "\xEF\xB5\xAD" => "\x{0634}\x{0645}\x{0645}", # U+FD6D => 0634 0645 0645 "\xEF\xB5\xAE" => "\x{0636}\x{062D}\x{0649}", # U+FD6E => 0636 062D 0649 "\xEF\xB5\xAF" => "\x{0636}\x{062E}\x{0645}", # U+FD6F => 0636 062E 0645 "\xEF\xB5\xB0" => "\x{0636}\x{062E}\x{0645}", # U+FD70 => 0636 062E 0645 "\xEF\xB5\xB1" => "\x{0637}\x{0645}\x{062D}", # U+FD71 => 0637 0645 062D "\xEF\xB5\xB2" => "\x{0637}\x{0645}\x{062D}", # U+FD72 => 0637 0645 062D "\xEF\xB5\xB3" => "\x{0637}\x{0645}\x{0645}", # U+FD73 => 0637 0645 0645 "\xEF\xB5\xB4" => "\x{0637}\x{0645}\x{064A}", # U+FD74 => 0637 0645 064A "\xEF\xB5\xB5" => "\x{0639}\x{062C}\x{0645}", # U+FD75 => 0639 062C 0645 "\xEF\xB5\xB6" => "\x{0639}\x{0645}\x{0645}", # U+FD76 => 0639 0645 0645 "\xEF\xB5\xB7" => "\x{0639}\x{0645}\x{0645}", # U+FD77 => 0639 0645 0645 "\xEF\xB5\xB8" => "\x{0639}\x{0645}\x{0649}", # U+FD78 => 0639 0645 0649 "\xEF\xB5\xB9" => "\x{063A}\x{0645}\x{0645}", # U+FD79 => 063A 0645 0645 "\xEF\xB5\xBA" => "\x{063A}\x{0645}\x{064A}", # U+FD7A => 063A 0645 064A "\xEF\xB5\xBB" => "\x{063A}\x{0645}\x{0649}", # U+FD7B => 063A 0645 0649 "\xEF\xB5\xBC" => "\x{0641}\x{062E}\x{0645}", # U+FD7C => 0641 062E 0645 "\xEF\xB5\xBD" => "\x{0641}\x{062E}\x{0645}", # U+FD7D => 0641 062E 0645 "\xEF\xB5\xBE" => "\x{0642}\x{0645}\x{062D}", # U+FD7E => 0642 0645 062D "\xEF\xB5\xBF" => "\x{0642}\x{0645}\x{0645}", # U+FD7F => 0642 0645 0645 "\xEF\xB6\x80" => "\x{0644}\x{062D}\x{0645}", # U+FD80 => 0644 062D 0645 "\xEF\xB6\x81" => "\x{0644}\x{062D}\x{064A}", # U+FD81 => 0644 062D 064A "\xEF\xB6\x82" => "\x{0644}\x{062D}\x{0649}", # U+FD82 => 0644 062D 0649 "\xEF\xB6\x83" => "\x{0644}\x{062C}\x{062C}", # U+FD83 => 0644 062C 062C "\xEF\xB6\x84" => "\x{0644}\x{062C}\x{062C}", # U+FD84 => 0644 062C 062C "\xEF\xB6\x85" => "\x{0644}\x{062E}\x{0645}", # U+FD85 => 0644 062E 0645 "\xEF\xB6\x86" => "\x{0644}\x{062E}\x{0645}", # U+FD86 => 0644 062E 0645 "\xEF\xB6\x87" => "\x{0644}\x{0645}\x{062D}", # U+FD87 => 0644 0645 062D "\xEF\xB6\x88" => "\x{0644}\x{0645}\x{062D}", # U+FD88 => 0644 0645 062D "\xEF\xB6\x89" => "\x{0645}\x{062D}\x{062C}", # U+FD89 => 0645 062D 062C "\xEF\xB6\x8A" => "\x{0645}\x{062D}\x{0645}", # U+FD8A => 0645 062D 0645 "\xEF\xB6\x8B" => "\x{0645}\x{062D}\x{064A}", # U+FD8B => 0645 062D 064A "\xEF\xB6\x8C" => "\x{0645}\x{062C}\x{062D}", # U+FD8C => 0645 062C 062D "\xEF\xB6\x8D" => "\x{0645}\x{062C}\x{0645}", # U+FD8D => 0645 062C 0645 "\xEF\xB6\x8E" => "\x{0645}\x{062E}\x{062C}", # U+FD8E => 0645 062E 062C "\xEF\xB6\x8F" => "\x{0645}\x{062E}\x{0645}", # U+FD8F => 0645 062E 0645 "\xEF\xB6\x92" => "\x{0645}\x{062C}\x{062E}", # U+FD92 => 0645 062C 062E "\xEF\xB6\x93" => "\x{0647}\x{0645}\x{062C}", # U+FD93 => 0647 0645 062C "\xEF\xB6\x94" => "\x{0647}\x{0645}\x{0645}", # U+FD94 => 0647 0645 0645 "\xEF\xB6\x95" => "\x{0646}\x{062D}\x{0645}", # U+FD95 => 0646 062D 0645 "\xEF\xB6\x96" => "\x{0646}\x{062D}\x{0649}", # U+FD96 => 0646 062D 0649 "\xEF\xB6\x97" => "\x{0646}\x{062C}\x{0645}", # U+FD97 => 0646 062C 0645 "\xEF\xB6\x98" => "\x{0646}\x{062C}\x{0645}", # U+FD98 => 0646 062C 0645 "\xEF\xB6\x99" => "\x{0646}\x{062C}\x{0649}", # U+FD99 => 0646 062C 0649 "\xEF\xB6\x9A" => "\x{0646}\x{0645}\x{064A}", # U+FD9A => 0646 0645 064A "\xEF\xB6\x9B" => "\x{0646}\x{0645}\x{0649}", # U+FD9B => 0646 0645 0649 "\xEF\xB6\x9C" => "\x{064A}\x{0645}\x{0645}", # U+FD9C => 064A 0645 0645 "\xEF\xB6\x9D" => "\x{064A}\x{0645}\x{0645}", # U+FD9D => 064A 0645 0645 "\xEF\xB6\x9E" => "\x{0628}\x{062E}\x{064A}", # U+FD9E => 0628 062E 064A "\xEF\xB6\x9F" => "\x{062A}\x{062C}\x{064A}", # U+FD9F => 062A 062C 064A "\xEF\xB6\xA0" => "\x{062A}\x{062C}\x{0649}", # U+FDA0 => 062A 062C 0649 "\xEF\xB6\xA1" => "\x{062A}\x{062E}\x{064A}", # U+FDA1 => 062A 062E 064A "\xEF\xB6\xA2" => "\x{062A}\x{062E}\x{0649}", # U+FDA2 => 062A 062E 0649 "\xEF\xB6\xA3" => "\x{062A}\x{0645}\x{064A}", # U+FDA3 => 062A 0645 064A "\xEF\xB6\xA4" => "\x{062A}\x{0645}\x{0649}", # U+FDA4 => 062A 0645 0649 "\xEF\xB6\xA5" => "\x{062C}\x{0645}\x{064A}", # U+FDA5 => 062C 0645 064A "\xEF\xB6\xA6" => "\x{062C}\x{062D}\x{0649}", # U+FDA6 => 062C 062D 0649 "\xEF\xB6\xA7" => "\x{062C}\x{0645}\x{0649}", # U+FDA7 => 062C 0645 0649 "\xEF\xB6\xA8" => "\x{0633}\x{062E}\x{0649}", # U+FDA8 => 0633 062E 0649 "\xEF\xB6\xA9" => "\x{0635}\x{062D}\x{064A}", # U+FDA9 => 0635 062D 064A "\xEF\xB6\xAA" => "\x{0634}\x{062D}\x{064A}", # U+FDAA => 0634 062D 064A "\xEF\xB6\xAB" => "\x{0636}\x{062D}\x{064A}", # U+FDAB => 0636 062D 064A "\xEF\xB6\xAC" => "\x{0644}\x{062C}\x{064A}", # U+FDAC => 0644 062C 064A "\xEF\xB6\xAD" => "\x{0644}\x{0645}\x{064A}", # U+FDAD => 0644 0645 064A "\xEF\xB6\xAE" => "\x{064A}\x{062D}\x{064A}", # U+FDAE => 064A 062D 064A "\xEF\xB6\xAF" => "\x{064A}\x{062C}\x{064A}", # U+FDAF => 064A 062C 064A "\xEF\xB6\xB0" => "\x{064A}\x{0645}\x{064A}", # U+FDB0 => 064A 0645 064A "\xEF\xB6\xB1" => "\x{0645}\x{0645}\x{064A}", # U+FDB1 => 0645 0645 064A "\xEF\xB6\xB2" => "\x{0642}\x{0645}\x{064A}", # U+FDB2 => 0642 0645 064A "\xEF\xB6\xB3" => "\x{0646}\x{062D}\x{064A}", # U+FDB3 => 0646 062D 064A "\xEF\xB6\xB4" => "\x{0642}\x{0645}\x{062D}", # U+FDB4 => 0642 0645 062D "\xEF\xB6\xB5" => "\x{0644}\x{062D}\x{0645}", # U+FDB5 => 0644 062D 0645 "\xEF\xB6\xB6" => "\x{0639}\x{0645}\x{064A}", # U+FDB6 => 0639 0645 064A "\xEF\xB6\xB7" => "\x{0643}\x{0645}\x{064A}", # U+FDB7 => 0643 0645 064A "\xEF\xB6\xB8" => "\x{0646}\x{062C}\x{062D}", # U+FDB8 => 0646 062C 062D "\xEF\xB6\xB9" => "\x{0645}\x{062E}\x{064A}", # U+FDB9 => 0645 062E 064A "\xEF\xB6\xBA" => "\x{0644}\x{062C}\x{0645}", # U+FDBA => 0644 062C 0645 "\xEF\xB6\xBB" => "\x{0643}\x{0645}\x{0645}", # U+FDBB => 0643 0645 0645 "\xEF\xB6\xBC" => "\x{0644}\x{062C}\x{0645}", # U+FDBC => 0644 062C 0645 "\xEF\xB6\xBD" => "\x{0646}\x{062C}\x{062D}", # U+FDBD => 0646 062C 062D "\xEF\xB6\xBE" => "\x{062C}\x{062D}\x{064A}", # U+FDBE => 062C 062D 064A "\xEF\xB6\xBF" => "\x{062D}\x{062C}\x{064A}", # U+FDBF => 062D 062C 064A "\xEF\xB7\x80" => "\x{0645}\x{062C}\x{064A}", # U+FDC0 => 0645 062C 064A "\xEF\xB7\x81" => "\x{0641}\x{0645}\x{064A}", # U+FDC1 => 0641 0645 064A "\xEF\xB7\x82" => "\x{0628}\x{062D}\x{064A}", # U+FDC2 => 0628 062D 064A "\xEF\xB7\x83" => "\x{0643}\x{0645}\x{0645}", # U+FDC3 => 0643 0645 0645 "\xEF\xB7\x84" => "\x{0639}\x{062C}\x{0645}", # U+FDC4 => 0639 062C 0645 "\xEF\xB7\x85" => "\x{0635}\x{0645}\x{0645}", # U+FDC5 => 0635 0645 0645 "\xEF\xB7\x86" => "\x{0633}\x{062E}\x{064A}", # U+FDC6 => 0633 062E 064A "\xEF\xB7\x87" => "\x{0646}\x{062C}\x{064A}", # U+FDC7 => 0646 062C 064A "\xEF\xB7\xB0" => "\x{0635}\x{0644}\x{06D2}", # U+FDF0 => 0635 0644 06D2 "\xEF\xB7\xB1" => "\x{0642}\x{0644}\x{06D2}", # U+FDF1 => 0642 0644 06D2 "\xEF\xB7\xB2" => "\x{0627}\x{0644}\x{0644}\x{0647}", # U+FDF2 => 0627 0644 0644 0647 "\xEF\xB7\xB3" => "\x{0627}\x{0643}\x{0628}\x{0631}", # U+FDF3 => 0627 0643 0628 0631 "\xEF\xB7\xB4" => "\x{0645}\x{062D}\x{0645}\x{062F}", # U+FDF4 => 0645 062D 0645 062F "\xEF\xB7\xB5" => "\x{0635}\x{0644}\x{0639}\x{0645}", # U+FDF5 => 0635 0644 0639 0645 "\xEF\xB7\xB6" => "\x{0631}\x{0633}\x{0648}\x{0644}", # U+FDF6 => 0631 0633 0648 0644 "\xEF\xB7\xB7" => "\x{0639}\x{0644}\x{064A}\x{0647}", # U+FDF7 => 0639 0644 064A 0647 "\xEF\xB7\xB8" => "\x{0648}\x{0633}\x{0644}\x{0645}", # U+FDF8 => 0648 0633 0644 0645 "\xEF\xB7\xB9" => "\x{0635}\x{0644}\x{0649}", # U+FDF9 => 0635 0644 0649 "\xEF\xB7\xBA" => "\x{0635}\x{0644}\x{0649}\x{0020}\x{0627}\x{0644}\x{0644}\x{0647}\x{0020}\x{0639}\x{0644}\x{064A}\x{0647}\x{0020}\x{0648}\x{0633}\x{0644}\x{0645}", # U+FDFA => 0635 0644 0649 0020 0627 0644 0644 0647 0020 0639 0644 064A 0647 0020 0648 0633 0644 0645 "\xEF\xB7\xBB" => "\x{062C}\x{0644}\x{0020}\x{062C}\x{0644}\x{0627}\x{0644}\x{0647}", # U+FDFB => 062C 0644 0020 062C 0644 0627 0644 0647 "\xEF\xB7\xBC" => "\x{0631}\x{06CC}\x{0627}\x{0644}", # U+FDFC => 0631 06CC 0627 0644 "\xEF\xB8\x80" => "", # U+FE00 => "\xEF\xB8\x81" => "", # U+FE01 => "\xEF\xB8\x82" => "", # U+FE02 => "\xEF\xB8\x83" => "", # U+FE03 => "\xEF\xB8\x84" => "", # U+FE04 => "\xEF\xB8\x85" => "", # U+FE05 => "\xEF\xB8\x86" => "", # U+FE06 => "\xEF\xB8\x87" => "", # U+FE07 => "\xEF\xB8\x88" => "", # U+FE08 => "\xEF\xB8\x89" => "", # U+FE09 => "\xEF\xB8\x8A" => "", # U+FE0A => "\xEF\xB8\x8B" => "", # U+FE0B => "\xEF\xB8\x8C" => "", # U+FE0C => "\xEF\xB8\x8D" => "", # U+FE0D => "\xEF\xB8\x8E" => "", # U+FE0E => "\xEF\xB8\x8F" => "", # U+FE0F => "\xEF\xB8\x99" => "\x{002E}\x{002E}\x{002E}", # U+FE19 => 002E 002E 002E "\xEF\xB8\xB0" => "\x{002E}\x{002E}", # U+FE30 => 002E 002E "\xEF\xB9\x89" => "\x{0020}\x{0305}", # U+FE49 => 0020 0305 "\xEF\xB9\x8A" => "\x{0020}\x{0305}", # U+FE4A => 0020 0305 "\xEF\xB9\x8B" => "\x{0020}\x{0305}", # U+FE4B => 0020 0305 "\xEF\xB9\x8C" => "\x{0020}\x{0305}", # U+FE4C => 0020 0305 "\xEF\xB9\xB0" => "\x{0020}\x{064B}", # U+FE70 => 0020 064B "\xEF\xB9\xB1" => "\x{0640}\x{064B}", # U+FE71 => 0640 064B "\xEF\xB9\xB2" => "\x{0020}\x{064C}", # U+FE72 => 0020 064C "\xEF\xB9\xB4" => "\x{0020}\x{064D}", # U+FE74 => 0020 064D "\xEF\xB9\xB6" => "\x{0020}\x{064E}", # U+FE76 => 0020 064E "\xEF\xB9\xB7" => "\x{0640}\x{064E}", # U+FE77 => 0640 064E "\xEF\xB9\xB8" => "\x{0020}\x{064F}", # U+FE78 => 0020 064F "\xEF\xB9\xB9" => "\x{0640}\x{064F}", # U+FE79 => 0640 064F "\xEF\xB9\xBA" => "\x{0020}\x{0650}", # U+FE7A => 0020 0650 "\xEF\xB9\xBB" => "\x{0640}\x{0650}", # U+FE7B => 0640 0650 "\xEF\xB9\xBC" => "\x{0020}\x{0651}", # U+FE7C => 0020 0651 "\xEF\xB9\xBD" => "\x{0640}\x{0651}", # U+FE7D => 0640 0651 "\xEF\xB9\xBE" => "\x{0020}\x{0652}", # U+FE7E => 0020 0652 "\xEF\xB9\xBF" => "\x{0640}\x{0652}", # U+FE7F => 0640 0652 "\xEF\xBB\xB5" => "\x{0644}\x{0622}", # U+FEF5 => 0644 0622 "\xEF\xBB\xB6" => "\x{0644}\x{0622}", # U+FEF6 => 0644 0622 "\xEF\xBB\xB7" => "\x{0644}\x{0623}", # U+FEF7 => 0644 0623 "\xEF\xBB\xB8" => "\x{0644}\x{0623}", # U+FEF8 => 0644 0623 "\xEF\xBB\xB9" => "\x{0644}\x{0625}", # U+FEF9 => 0644 0625 "\xEF\xBB\xBA" => "\x{0644}\x{0625}", # U+FEFA => 0644 0625 "\xEF\xBB\xBB" => "\x{0644}\x{0627}", # U+FEFB => 0644 0627 "\xEF\xBB\xBC" => "\x{0644}\x{0627}", # U+FEFC => 0644 0627 "\xEF\xBB\xBF" => "", # U+FEFF => "\xEF\xBE\xA0" => "", # U+FFA0 => "\xEF\xBF\xA3" => "\x{0020}\x{0304}", # U+FFE3 => 0020 0304 "\xEF\xBF\xB0" => "", # U+FFF0 => "\xEF\xBF\xB1" => "", # U+FFF1 => "\xEF\xBF\xB2" => "", # U+FFF2 => "\xEF\xBF\xB3" => "", # U+FFF3 => "\xEF\xBF\xB4" => "", # U+FFF4 => "\xEF\xBF\xB5" => "", # U+FFF5 => "\xEF\xBF\xB6" => "", # U+FFF6 => "\xEF\xBF\xB7" => "", # U+FFF7 => "\xEF\xBF\xB8" => "", # U+FFF8 => "\xF0\x9B\xB2\xA0" => "", # U+1BCA0 => "\xF0\x9B\xB2\xA1" => "", # U+1BCA1 => "\xF0\x9B\xB2\xA2" => "", # U+1BCA2 => "\xF0\x9B\xB2\xA3" => "", # U+1BCA3 => "\xF0\x9D\x85\x9E" => "\x{1D157}\x{1D165}", # U+1D15E => 1D157 1D165 "\xF0\x9D\x85\x9F" => "\x{1D158}\x{1D165}", # U+1D15F => 1D158 1D165 "\xF0\x9D\x85\xA0" => "\x{1D158}\x{1D165}\x{1D16E}", # U+1D160 => 1D158 1D165 1D16E "\xF0\x9D\x85\xA1" => "\x{1D158}\x{1D165}\x{1D16F}", # U+1D161 => 1D158 1D165 1D16F "\xF0\x9D\x85\xA2" => "\x{1D158}\x{1D165}\x{1D170}", # U+1D162 => 1D158 1D165 1D170 "\xF0\x9D\x85\xA3" => "\x{1D158}\x{1D165}\x{1D171}", # U+1D163 => 1D158 1D165 1D171 "\xF0\x9D\x85\xA4" => "\x{1D158}\x{1D165}\x{1D172}", # U+1D164 => 1D158 1D165 1D172 "\xF0\x9D\x85\xB3" => "", # U+1D173 => "\xF0\x9D\x85\xB4" => "", # U+1D174 => "\xF0\x9D\x85\xB5" => "", # U+1D175 => "\xF0\x9D\x85\xB6" => "", # U+1D176 => "\xF0\x9D\x85\xB7" => "", # U+1D177 => "\xF0\x9D\x85\xB8" => "", # U+1D178 => "\xF0\x9D\x85\xB9" => "", # U+1D179 => "\xF0\x9D\x85\xBA" => "", # U+1D17A => "\xF0\x9D\x86\xBB" => "\x{1D1B9}\x{1D165}", # U+1D1BB => 1D1B9 1D165 "\xF0\x9D\x86\xBC" => "\x{1D1BA}\x{1D165}", # U+1D1BC => 1D1BA 1D165 "\xF0\x9D\x86\xBD" => "\x{1D1B9}\x{1D165}\x{1D16E}", # U+1D1BD => 1D1B9 1D165 1D16E "\xF0\x9D\x86\xBE" => "\x{1D1BA}\x{1D165}\x{1D16E}", # U+1D1BE => 1D1BA 1D165 1D16E "\xF0\x9D\x86\xBF" => "\x{1D1B9}\x{1D165}\x{1D16F}", # U+1D1BF => 1D1B9 1D165 1D16F "\xF0\x9D\x87\x80" => "\x{1D1BA}\x{1D165}\x{1D16F}", # U+1D1C0 => 1D1BA 1D165 1D16F "\xF0\x9F\x84\x80" => "\x{0030}\x{002E}", # U+1F100 => 0030 002E "\xF0\x9F\x84\x81" => "\x{0030}\x{002C}", # U+1F101 => 0030 002C "\xF0\x9F\x84\x82" => "\x{0031}\x{002C}", # U+1F102 => 0031 002C "\xF0\x9F\x84\x83" => "\x{0032}\x{002C}", # U+1F103 => 0032 002C "\xF0\x9F\x84\x84" => "\x{0033}\x{002C}", # U+1F104 => 0033 002C "\xF0\x9F\x84\x85" => "\x{0034}\x{002C}", # U+1F105 => 0034 002C "\xF0\x9F\x84\x86" => "\x{0035}\x{002C}", # U+1F106 => 0035 002C "\xF0\x9F\x84\x87" => "\x{0036}\x{002C}", # U+1F107 => 0036 002C "\xF0\x9F\x84\x88" => "\x{0037}\x{002C}", # U+1F108 => 0037 002C "\xF0\x9F\x84\x89" => "\x{0038}\x{002C}", # U+1F109 => 0038 002C "\xF0\x9F\x84\x8A" => "\x{0039}\x{002C}", # U+1F10A => 0039 002C "\xF0\x9F\x84\x90" => "\x{0028}\x{0061}\x{0029}", # U+1F110 => 0028 0061 0029 "\xF0\x9F\x84\x91" => "\x{0028}\x{0062}\x{0029}", # U+1F111 => 0028 0062 0029 "\xF0\x9F\x84\x92" => "\x{0028}\x{0063}\x{0029}", # U+1F112 => 0028 0063 0029 "\xF0\x9F\x84\x93" => "\x{0028}\x{0064}\x{0029}", # U+1F113 => 0028 0064 0029 "\xF0\x9F\x84\x94" => "\x{0028}\x{0065}\x{0029}", # U+1F114 => 0028 0065 0029 "\xF0\x9F\x84\x95" => "\x{0028}\x{0066}\x{0029}", # U+1F115 => 0028 0066 0029 "\xF0\x9F\x84\x96" => "\x{0028}\x{0067}\x{0029}", # U+1F116 => 0028 0067 0029 "\xF0\x9F\x84\x97" => "\x{0028}\x{0068}\x{0029}", # U+1F117 => 0028 0068 0029 "\xF0\x9F\x84\x98" => "\x{0028}\x{0069}\x{0029}", # U+1F118 => 0028 0069 0029 "\xF0\x9F\x84\x99" => "\x{0028}\x{006A}\x{0029}", # U+1F119 => 0028 006A 0029 "\xF0\x9F\x84\x9A" => "\x{0028}\x{006B}\x{0029}", # U+1F11A => 0028 006B 0029 "\xF0\x9F\x84\x9B" => "\x{0028}\x{006C}\x{0029}", # U+1F11B => 0028 006C 0029 "\xF0\x9F\x84\x9C" => "\x{0028}\x{006D}\x{0029}", # U+1F11C => 0028 006D 0029 "\xF0\x9F\x84\x9D" => "\x{0028}\x{006E}\x{0029}", # U+1F11D => 0028 006E 0029 "\xF0\x9F\x84\x9E" => "\x{0028}\x{006F}\x{0029}", # U+1F11E => 0028 006F 0029 "\xF0\x9F\x84\x9F" => "\x{0028}\x{0070}\x{0029}", # U+1F11F => 0028 0070 0029 "\xF0\x9F\x84\xA0" => "\x{0028}\x{0071}\x{0029}", # U+1F120 => 0028 0071 0029 "\xF0\x9F\x84\xA1" => "\x{0028}\x{0072}\x{0029}", # U+1F121 => 0028 0072 0029 "\xF0\x9F\x84\xA2" => "\x{0028}\x{0073}\x{0029}", # U+1F122 => 0028 0073 0029 "\xF0\x9F\x84\xA3" => "\x{0028}\x{0074}\x{0029}", # U+1F123 => 0028 0074 0029 "\xF0\x9F\x84\xA4" => "\x{0028}\x{0075}\x{0029}", # U+1F124 => 0028 0075 0029 "\xF0\x9F\x84\xA5" => "\x{0028}\x{0076}\x{0029}", # U+1F125 => 0028 0076 0029 "\xF0\x9F\x84\xA6" => "\x{0028}\x{0077}\x{0029}", # U+1F126 => 0028 0077 0029 "\xF0\x9F\x84\xA7" => "\x{0028}\x{0078}\x{0029}", # U+1F127 => 0028 0078 0029 "\xF0\x9F\x84\xA8" => "\x{0028}\x{0079}\x{0029}", # U+1F128 => 0028 0079 0029 "\xF0\x9F\x84\xA9" => "\x{0028}\x{007A}\x{0029}", # U+1F129 => 0028 007A 0029 "\xF0\x9F\x84\xAA" => "\x{3014}\x{0073}\x{3015}", # U+1F12A => 3014 0073 3015 "\xF0\x9F\x84\xAD" => "\x{0063}\x{0064}", # U+1F12D => 0063 0064 "\xF0\x9F\x84\xAE" => "\x{0077}\x{007A}", # U+1F12E => 0077 007A "\xF0\x9F\x85\x8A" => "\x{0068}\x{0076}", # U+1F14A => 0068 0076 "\xF0\x9F\x85\x8B" => "\x{006D}\x{0076}", # U+1F14B => 006D 0076 "\xF0\x9F\x85\x8C" => "\x{0073}\x{0064}", # U+1F14C => 0073 0064 "\xF0\x9F\x85\x8D" => "\x{0073}\x{0073}", # U+1F14D => 0073 0073 "\xF0\x9F\x85\x8E" => "\x{0070}\x{0070}\x{0076}", # U+1F14E => 0070 0070 0076 "\xF0\x9F\x85\x8F" => "\x{0077}\x{0063}", # U+1F14F => 0077 0063 "\xF0\x9F\x85\xAA" => "\x{006D}\x{0063}", # U+1F16A => 006D 0063 "\xF0\x9F\x85\xAB" => "\x{006D}\x{0064}", # U+1F16B => 006D 0064 "\xF0\x9F\x85\xAC" => "\x{006D}\x{0072}", # U+1F16C => 006D 0072 "\xF0\x9F\x86\x90" => "\x{0064}\x{006A}", # U+1F190 => 0064 006A "\xF0\x9F\x88\x80" => "\x{307B}\x{304B}", # U+1F200 => 307B 304B "\xF0\x9F\x88\x81" => "\x{30B3}\x{30B3}", # U+1F201 => 30B3 30B3 "\xF0\x9F\x89\x80" => "\x{3014}\x{672C}\x{3015}", # U+1F240 => 3014 672C 3015 "\xF0\x9F\x89\x81" => "\x{3014}\x{4E09}\x{3015}", # U+1F241 => 3014 4E09 3015 "\xF0\x9F\x89\x82" => "\x{3014}\x{4E8C}\x{3015}", # U+1F242 => 3014 4E8C 3015 "\xF0\x9F\x89\x83" => "\x{3014}\x{5B89}\x{3015}", # U+1F243 => 3014 5B89 3015 "\xF0\x9F\x89\x84" => "\x{3014}\x{70B9}\x{3015}", # U+1F244 => 3014 70B9 3015 "\xF0\x9F\x89\x85" => "\x{3014}\x{6253}\x{3015}", # U+1F245 => 3014 6253 3015 "\xF0\x9F\x89\x86" => "\x{3014}\x{76D7}\x{3015}", # U+1F246 => 3014 76D7 3015 "\xF0\x9F\x89\x87" => "\x{3014}\x{52DD}\x{3015}", # U+1F247 => 3014 52DD 3015 "\xF0\x9F\x89\x88" => "\x{3014}\x{6557}\x{3015}", # U+1F248 => 3014 6557 3015 "\xF3\xA0\x80\x80" => "", # U+E0000 => "\xF3\xA0\x80\x81" => "", # U+E0001 => "\xF3\xA0\x80\x82" => "", # U+E0002 => "\xF3\xA0\x80\x83" => "", # U+E0003 => "\xF3\xA0\x80\x84" => "", # U+E0004 => "\xF3\xA0\x80\x85" => "", # U+E0005 => "\xF3\xA0\x80\x86" => "", # U+E0006 => "\xF3\xA0\x80\x87" => "", # U+E0007 => "\xF3\xA0\x80\x88" => "", # U+E0008 => "\xF3\xA0\x80\x89" => "", # U+E0009 => "\xF3\xA0\x80\x8A" => "", # U+E000A => "\xF3\xA0\x80\x8B" => "", # U+E000B => "\xF3\xA0\x80\x8C" => "", # U+E000C => "\xF3\xA0\x80\x8D" => "", # U+E000D => "\xF3\xA0\x80\x8E" => "", # U+E000E => "\xF3\xA0\x80\x8F" => "", # U+E000F => "\xF3\xA0\x80\x90" => "", # U+E0010 => "\xF3\xA0\x80\x91" => "", # U+E0011 => "\xF3\xA0\x80\x92" => "", # U+E0012 => "\xF3\xA0\x80\x93" => "", # U+E0013 => "\xF3\xA0\x80\x94" => "", # U+E0014 => "\xF3\xA0\x80\x95" => "", # U+E0015 => "\xF3\xA0\x80\x96" => "", # U+E0016 => "\xF3\xA0\x80\x97" => "", # U+E0017 => "\xF3\xA0\x80\x98" => "", # U+E0018 => "\xF3\xA0\x80\x99" => "", # U+E0019 => "\xF3\xA0\x80\x9A" => "", # U+E001A => "\xF3\xA0\x80\x9B" => "", # U+E001B => "\xF3\xA0\x80\x9C" => "", # U+E001C => "\xF3\xA0\x80\x9D" => "", # U+E001D => "\xF3\xA0\x80\x9E" => "", # U+E001E => "\xF3\xA0\x80\x9F" => "", # U+E001F => "\xF3\xA0\x80\xA0" => "", # U+E0020 => "\xF3\xA0\x80\xA1" => "", # U+E0021 => "\xF3\xA0\x80\xA2" => "", # U+E0022 => "\xF3\xA0\x80\xA3" => "", # U+E0023 => "\xF3\xA0\x80\xA4" => "", # U+E0024 => "\xF3\xA0\x80\xA5" => "", # U+E0025 => "\xF3\xA0\x80\xA6" => "", # U+E0026 => "\xF3\xA0\x80\xA7" => "", # U+E0027 => "\xF3\xA0\x80\xA8" => "", # U+E0028 => "\xF3\xA0\x80\xA9" => "", # U+E0029 => "\xF3\xA0\x80\xAA" => "", # U+E002A => "\xF3\xA0\x80\xAB" => "", # U+E002B => "\xF3\xA0\x80\xAC" => "", # U+E002C => "\xF3\xA0\x80\xAD" => "", # U+E002D => "\xF3\xA0\x80\xAE" => "", # U+E002E => "\xF3\xA0\x80\xAF" => "", # U+E002F => "\xF3\xA0\x80\xB0" => "", # U+E0030 => "\xF3\xA0\x80\xB1" => "", # U+E0031 => "\xF3\xA0\x80\xB2" => "", # U+E0032 => "\xF3\xA0\x80\xB3" => "", # U+E0033 => "\xF3\xA0\x80\xB4" => "", # U+E0034 => "\xF3\xA0\x80\xB5" => "", # U+E0035 => "\xF3\xA0\x80\xB6" => "", # U+E0036 => "\xF3\xA0\x80\xB7" => "", # U+E0037 => "\xF3\xA0\x80\xB8" => "", # U+E0038 => "\xF3\xA0\x80\xB9" => "", # U+E0039 => "\xF3\xA0\x80\xBA" => "", # U+E003A => "\xF3\xA0\x80\xBB" => "", # U+E003B => "\xF3\xA0\x80\xBC" => "", # U+E003C => "\xF3\xA0\x80\xBD" => "", # U+E003D => "\xF3\xA0\x80\xBE" => "", # U+E003E => "\xF3\xA0\x80\xBF" => "", # U+E003F => "\xF3\xA0\x81\x80" => "", # U+E0040 => "\xF3\xA0\x81\x81" => "", # U+E0041 => "\xF3\xA0\x81\x82" => "", # U+E0042 => "\xF3\xA0\x81\x83" => "", # U+E0043 => "\xF3\xA0\x81\x84" => "", # U+E0044 => "\xF3\xA0\x81\x85" => "", # U+E0045 => "\xF3\xA0\x81\x86" => "", # U+E0046 => "\xF3\xA0\x81\x87" => "", # U+E0047 => "\xF3\xA0\x81\x88" => "", # U+E0048 => "\xF3\xA0\x81\x89" => "", # U+E0049 => "\xF3\xA0\x81\x8A" => "", # U+E004A => "\xF3\xA0\x81\x8B" => "", # U+E004B => "\xF3\xA0\x81\x8C" => "", # U+E004C => "\xF3\xA0\x81\x8D" => "", # U+E004D => "\xF3\xA0\x81\x8E" => "", # U+E004E => "\xF3\xA0\x81\x8F" => "", # U+E004F => "\xF3\xA0\x81\x90" => "", # U+E0050 => "\xF3\xA0\x81\x91" => "", # U+E0051 => "\xF3\xA0\x81\x92" => "", # U+E0052 => "\xF3\xA0\x81\x93" => "", # U+E0053 => "\xF3\xA0\x81\x94" => "", # U+E0054 => "\xF3\xA0\x81\x95" => "", # U+E0055 => "\xF3\xA0\x81\x96" => "", # U+E0056 => "\xF3\xA0\x81\x97" => "", # U+E0057 => "\xF3\xA0\x81\x98" => "", # U+E0058 => "\xF3\xA0\x81\x99" => "", # U+E0059 => "\xF3\xA0\x81\x9A" => "", # U+E005A => "\xF3\xA0\x81\x9B" => "", # U+E005B => "\xF3\xA0\x81\x9C" => "", # U+E005C => "\xF3\xA0\x81\x9D" => "", # U+E005D => "\xF3\xA0\x81\x9E" => "", # U+E005E => "\xF3\xA0\x81\x9F" => "", # U+E005F => "\xF3\xA0\x81\xA0" => "", # U+E0060 => "\xF3\xA0\x81\xA1" => "", # U+E0061 => "\xF3\xA0\x81\xA2" => "", # U+E0062 => "\xF3\xA0\x81\xA3" => "", # U+E0063 => "\xF3\xA0\x81\xA4" => "", # U+E0064 => "\xF3\xA0\x81\xA5" => "", # U+E0065 => "\xF3\xA0\x81\xA6" => "", # U+E0066 => "\xF3\xA0\x81\xA7" => "", # U+E0067 => "\xF3\xA0\x81\xA8" => "", # U+E0068 => "\xF3\xA0\x81\xA9" => "", # U+E0069 => "\xF3\xA0\x81\xAA" => "", # U+E006A => "\xF3\xA0\x81\xAB" => "", # U+E006B => "\xF3\xA0\x81\xAC" => "", # U+E006C => "\xF3\xA0\x81\xAD" => "", # U+E006D => "\xF3\xA0\x81\xAE" => "", # U+E006E => "\xF3\xA0\x81\xAF" => "", # U+E006F => "\xF3\xA0\x81\xB0" => "", # U+E0070 => "\xF3\xA0\x81\xB1" => "", # U+E0071 => "\xF3\xA0\x81\xB2" => "", # U+E0072 => "\xF3\xA0\x81\xB3" => "", # U+E0073 => "\xF3\xA0\x81\xB4" => "", # U+E0074 => "\xF3\xA0\x81\xB5" => "", # U+E0075 => "\xF3\xA0\x81\xB6" => "", # U+E0076 => "\xF3\xA0\x81\xB7" => "", # U+E0077 => "\xF3\xA0\x81\xB8" => "", # U+E0078 => "\xF3\xA0\x81\xB9" => "", # U+E0079 => "\xF3\xA0\x81\xBA" => "", # U+E007A => "\xF3\xA0\x81\xBB" => "", # U+E007B => "\xF3\xA0\x81\xBC" => "", # U+E007C => "\xF3\xA0\x81\xBD" => "", # U+E007D => "\xF3\xA0\x81\xBE" => "", # U+E007E => "\xF3\xA0\x81\xBF" => "", # U+E007F => "\xF3\xA0\x82\x80" => "", # U+E0080 => "\xF3\xA0\x82\x81" => "", # U+E0081 => "\xF3\xA0\x82\x82" => "", # U+E0082 => "\xF3\xA0\x82\x83" => "", # U+E0083 => "\xF3\xA0\x82\x84" => "", # U+E0084 => "\xF3\xA0\x82\x85" => "", # U+E0085 => "\xF3\xA0\x82\x86" => "", # U+E0086 => "\xF3\xA0\x82\x87" => "", # U+E0087 => "\xF3\xA0\x82\x88" => "", # U+E0088 => "\xF3\xA0\x82\x89" => "", # U+E0089 => "\xF3\xA0\x82\x8A" => "", # U+E008A => "\xF3\xA0\x82\x8B" => "", # U+E008B => "\xF3\xA0\x82\x8C" => "", # U+E008C => "\xF3\xA0\x82\x8D" => "", # U+E008D => "\xF3\xA0\x82\x8E" => "", # U+E008E => "\xF3\xA0\x82\x8F" => "", # U+E008F => "\xF3\xA0\x82\x90" => "", # U+E0090 => "\xF3\xA0\x82\x91" => "", # U+E0091 => "\xF3\xA0\x82\x92" => "", # U+E0092 => "\xF3\xA0\x82\x93" => "", # U+E0093 => "\xF3\xA0\x82\x94" => "", # U+E0094 => "\xF3\xA0\x82\x95" => "", # U+E0095 => "\xF3\xA0\x82\x96" => "", # U+E0096 => "\xF3\xA0\x82\x97" => "", # U+E0097 => "\xF3\xA0\x82\x98" => "", # U+E0098 => "\xF3\xA0\x82\x99" => "", # U+E0099 => "\xF3\xA0\x82\x9A" => "", # U+E009A => "\xF3\xA0\x82\x9B" => "", # U+E009B => "\xF3\xA0\x82\x9C" => "", # U+E009C => "\xF3\xA0\x82\x9D" => "", # U+E009D => "\xF3\xA0\x82\x9E" => "", # U+E009E => "\xF3\xA0\x82\x9F" => "", # U+E009F => "\xF3\xA0\x82\xA0" => "", # U+E00A0 => "\xF3\xA0\x82\xA1" => "", # U+E00A1 => "\xF3\xA0\x82\xA2" => "", # U+E00A2 => "\xF3\xA0\x82\xA3" => "", # U+E00A3 => "\xF3\xA0\x82\xA4" => "", # U+E00A4 => "\xF3\xA0\x82\xA5" => "", # U+E00A5 => "\xF3\xA0\x82\xA6" => "", # U+E00A6 => "\xF3\xA0\x82\xA7" => "", # U+E00A7 => "\xF3\xA0\x82\xA8" => "", # U+E00A8 => "\xF3\xA0\x82\xA9" => "", # U+E00A9 => "\xF3\xA0\x82\xAA" => "", # U+E00AA => "\xF3\xA0\x82\xAB" => "", # U+E00AB => "\xF3\xA0\x82\xAC" => "", # U+E00AC => "\xF3\xA0\x82\xAD" => "", # U+E00AD => "\xF3\xA0\x82\xAE" => "", # U+E00AE => "\xF3\xA0\x82\xAF" => "", # U+E00AF => "\xF3\xA0\x82\xB0" => "", # U+E00B0 => "\xF3\xA0\x82\xB1" => "", # U+E00B1 => "\xF3\xA0\x82\xB2" => "", # U+E00B2 => "\xF3\xA0\x82\xB3" => "", # U+E00B3 => "\xF3\xA0\x82\xB4" => "", # U+E00B4 => "\xF3\xA0\x82\xB5" => "", # U+E00B5 => "\xF3\xA0\x82\xB6" => "", # U+E00B6 => "\xF3\xA0\x82\xB7" => "", # U+E00B7 => "\xF3\xA0\x82\xB8" => "", # U+E00B8 => "\xF3\xA0\x82\xB9" => "", # U+E00B9 => "\xF3\xA0\x82\xBA" => "", # U+E00BA => "\xF3\xA0\x82\xBB" => "", # U+E00BB => "\xF3\xA0\x82\xBC" => "", # U+E00BC => "\xF3\xA0\x82\xBD" => "", # U+E00BD => "\xF3\xA0\x82\xBE" => "", # U+E00BE => "\xF3\xA0\x82\xBF" => "", # U+E00BF => "\xF3\xA0\x83\x80" => "", # U+E00C0 => "\xF3\xA0\x83\x81" => "", # U+E00C1 => "\xF3\xA0\x83\x82" => "", # U+E00C2 => "\xF3\xA0\x83\x83" => "", # U+E00C3 => "\xF3\xA0\x83\x84" => "", # U+E00C4 => "\xF3\xA0\x83\x85" => "", # U+E00C5 => "\xF3\xA0\x83\x86" => "", # U+E00C6 => "\xF3\xA0\x83\x87" => "", # U+E00C7 => "\xF3\xA0\x83\x88" => "", # U+E00C8 => "\xF3\xA0\x83\x89" => "", # U+E00C9 => "\xF3\xA0\x83\x8A" => "", # U+E00CA => "\xF3\xA0\x83\x8B" => "", # U+E00CB => "\xF3\xA0\x83\x8C" => "", # U+E00CC => "\xF3\xA0\x83\x8D" => "", # U+E00CD => "\xF3\xA0\x83\x8E" => "", # U+E00CE => "\xF3\xA0\x83\x8F" => "", # U+E00CF => "\xF3\xA0\x83\x90" => "", # U+E00D0 => "\xF3\xA0\x83\x91" => "", # U+E00D1 => "\xF3\xA0\x83\x92" => "", # U+E00D2 => "\xF3\xA0\x83\x93" => "", # U+E00D3 => "\xF3\xA0\x83\x94" => "", # U+E00D4 => "\xF3\xA0\x83\x95" => "", # U+E00D5 => "\xF3\xA0\x83\x96" => "", # U+E00D6 => "\xF3\xA0\x83\x97" => "", # U+E00D7 => "\xF3\xA0\x83\x98" => "", # U+E00D8 => "\xF3\xA0\x83\x99" => "", # U+E00D9 => "\xF3\xA0\x83\x9A" => "", # U+E00DA => "\xF3\xA0\x83\x9B" => "", # U+E00DB => "\xF3\xA0\x83\x9C" => "", # U+E00DC => "\xF3\xA0\x83\x9D" => "", # U+E00DD => "\xF3\xA0\x83\x9E" => "", # U+E00DE => "\xF3\xA0\x83\x9F" => "", # U+E00DF => "\xF3\xA0\x83\xA0" => "", # U+E00E0 => "\xF3\xA0\x83\xA1" => "", # U+E00E1 => "\xF3\xA0\x83\xA2" => "", # U+E00E2 => "\xF3\xA0\x83\xA3" => "", # U+E00E3 => "\xF3\xA0\x83\xA4" => "", # U+E00E4 => "\xF3\xA0\x83\xA5" => "", # U+E00E5 => "\xF3\xA0\x83\xA6" => "", # U+E00E6 => "\xF3\xA0\x83\xA7" => "", # U+E00E7 => "\xF3\xA0\x83\xA8" => "", # U+E00E8 => "\xF3\xA0\x83\xA9" => "", # U+E00E9 => "\xF3\xA0\x83\xAA" => "", # U+E00EA => "\xF3\xA0\x83\xAB" => "", # U+E00EB => "\xF3\xA0\x83\xAC" => "", # U+E00EC => "\xF3\xA0\x83\xAD" => "", # U+E00ED => "\xF3\xA0\x83\xAE" => "", # U+E00EE => "\xF3\xA0\x83\xAF" => "", # U+E00EF => "\xF3\xA0\x83\xB0" => "", # U+E00F0 => "\xF3\xA0\x83\xB1" => "", # U+E00F1 => "\xF3\xA0\x83\xB2" => "", # U+E00F2 => "\xF3\xA0\x83\xB3" => "", # U+E00F3 => "\xF3\xA0\x83\xB4" => "", # U+E00F4 => "\xF3\xA0\x83\xB5" => "", # U+E00F5 => "\xF3\xA0\x83\xB6" => "", # U+E00F6 => "\xF3\xA0\x83\xB7" => "", # U+E00F7 => "\xF3\xA0\x83\xB8" => "", # U+E00F8 => "\xF3\xA0\x83\xB9" => "", # U+E00F9 => "\xF3\xA0\x83\xBA" => "", # U+E00FA => "\xF3\xA0\x83\xBB" => "", # U+E00FB => "\xF3\xA0\x83\xBC" => "", # U+E00FC => "\xF3\xA0\x83\xBD" => "", # U+E00FD => "\xF3\xA0\x83\xBE" => "", # U+E00FE => "\xF3\xA0\x83\xBF" => "", # U+E00FF => "\xF3\xA0\x84\x80" => "", # U+E0100 => "\xF3\xA0\x84\x81" => "", # U+E0101 => "\xF3\xA0\x84\x82" => "", # U+E0102 => "\xF3\xA0\x84\x83" => "", # U+E0103 => "\xF3\xA0\x84\x84" => "", # U+E0104 => "\xF3\xA0\x84\x85" => "", # U+E0105 => "\xF3\xA0\x84\x86" => "", # U+E0106 => "\xF3\xA0\x84\x87" => "", # U+E0107 => "\xF3\xA0\x84\x88" => "", # U+E0108 => "\xF3\xA0\x84\x89" => "", # U+E0109 => "\xF3\xA0\x84\x8A" => "", # U+E010A => "\xF3\xA0\x84\x8B" => "", # U+E010B => "\xF3\xA0\x84\x8C" => "", # U+E010C => "\xF3\xA0\x84\x8D" => "", # U+E010D => "\xF3\xA0\x84\x8E" => "", # U+E010E => "\xF3\xA0\x84\x8F" => "", # U+E010F => "\xF3\xA0\x84\x90" => "", # U+E0110 => "\xF3\xA0\x84\x91" => "", # U+E0111 => "\xF3\xA0\x84\x92" => "", # U+E0112 => "\xF3\xA0\x84\x93" => "", # U+E0113 => "\xF3\xA0\x84\x94" => "", # U+E0114 => "\xF3\xA0\x84\x95" => "", # U+E0115 => "\xF3\xA0\x84\x96" => "", # U+E0116 => "\xF3\xA0\x84\x97" => "", # U+E0117 => "\xF3\xA0\x84\x98" => "", # U+E0118 => "\xF3\xA0\x84\x99" => "", # U+E0119 => "\xF3\xA0\x84\x9A" => "", # U+E011A => "\xF3\xA0\x84\x9B" => "", # U+E011B => "\xF3\xA0\x84\x9C" => "", # U+E011C => "\xF3\xA0\x84\x9D" => "", # U+E011D => "\xF3\xA0\x84\x9E" => "", # U+E011E => "\xF3\xA0\x84\x9F" => "", # U+E011F => "\xF3\xA0\x84\xA0" => "", # U+E0120 => "\xF3\xA0\x84\xA1" => "", # U+E0121 => "\xF3\xA0\x84\xA2" => "", # U+E0122 => "\xF3\xA0\x84\xA3" => "", # U+E0123 => "\xF3\xA0\x84\xA4" => "", # U+E0124 => "\xF3\xA0\x84\xA5" => "", # U+E0125 => "\xF3\xA0\x84\xA6" => "", # U+E0126 => "\xF3\xA0\x84\xA7" => "", # U+E0127 => "\xF3\xA0\x84\xA8" => "", # U+E0128 => "\xF3\xA0\x84\xA9" => "", # U+E0129 => "\xF3\xA0\x84\xAA" => "", # U+E012A => "\xF3\xA0\x84\xAB" => "", # U+E012B => "\xF3\xA0\x84\xAC" => "", # U+E012C => "\xF3\xA0\x84\xAD" => "", # U+E012D => "\xF3\xA0\x84\xAE" => "", # U+E012E => "\xF3\xA0\x84\xAF" => "", # U+E012F => "\xF3\xA0\x84\xB0" => "", # U+E0130 => "\xF3\xA0\x84\xB1" => "", # U+E0131 => "\xF3\xA0\x84\xB2" => "", # U+E0132 => "\xF3\xA0\x84\xB3" => "", # U+E0133 => "\xF3\xA0\x84\xB4" => "", # U+E0134 => "\xF3\xA0\x84\xB5" => "", # U+E0135 => "\xF3\xA0\x84\xB6" => "", # U+E0136 => "\xF3\xA0\x84\xB7" => "", # U+E0137 => "\xF3\xA0\x84\xB8" => "", # U+E0138 => "\xF3\xA0\x84\xB9" => "", # U+E0139 => "\xF3\xA0\x84\xBA" => "", # U+E013A => "\xF3\xA0\x84\xBB" => "", # U+E013B => "\xF3\xA0\x84\xBC" => "", # U+E013C => "\xF3\xA0\x84\xBD" => "", # U+E013D => "\xF3\xA0\x84\xBE" => "", # U+E013E => "\xF3\xA0\x84\xBF" => "", # U+E013F => "\xF3\xA0\x85\x80" => "", # U+E0140 => "\xF3\xA0\x85\x81" => "", # U+E0141 => "\xF3\xA0\x85\x82" => "", # U+E0142 => "\xF3\xA0\x85\x83" => "", # U+E0143 => "\xF3\xA0\x85\x84" => "", # U+E0144 => "\xF3\xA0\x85\x85" => "", # U+E0145 => "\xF3\xA0\x85\x86" => "", # U+E0146 => "\xF3\xA0\x85\x87" => "", # U+E0147 => "\xF3\xA0\x85\x88" => "", # U+E0148 => "\xF3\xA0\x85\x89" => "", # U+E0149 => "\xF3\xA0\x85\x8A" => "", # U+E014A => "\xF3\xA0\x85\x8B" => "", # U+E014B => "\xF3\xA0\x85\x8C" => "", # U+E014C => "\xF3\xA0\x85\x8D" => "", # U+E014D => "\xF3\xA0\x85\x8E" => "", # U+E014E => "\xF3\xA0\x85\x8F" => "", # U+E014F => "\xF3\xA0\x85\x90" => "", # U+E0150 => "\xF3\xA0\x85\x91" => "", # U+E0151 => "\xF3\xA0\x85\x92" => "", # U+E0152 => "\xF3\xA0\x85\x93" => "", # U+E0153 => "\xF3\xA0\x85\x94" => "", # U+E0154 => "\xF3\xA0\x85\x95" => "", # U+E0155 => "\xF3\xA0\x85\x96" => "", # U+E0156 => "\xF3\xA0\x85\x97" => "", # U+E0157 => "\xF3\xA0\x85\x98" => "", # U+E0158 => "\xF3\xA0\x85\x99" => "", # U+E0159 => "\xF3\xA0\x85\x9A" => "", # U+E015A => "\xF3\xA0\x85\x9B" => "", # U+E015B => "\xF3\xA0\x85\x9C" => "", # U+E015C => "\xF3\xA0\x85\x9D" => "", # U+E015D => "\xF3\xA0\x85\x9E" => "", # U+E015E => "\xF3\xA0\x85\x9F" => "", # U+E015F => "\xF3\xA0\x85\xA0" => "", # U+E0160 => "\xF3\xA0\x85\xA1" => "", # U+E0161 => "\xF3\xA0\x85\xA2" => "", # U+E0162 => "\xF3\xA0\x85\xA3" => "", # U+E0163 => "\xF3\xA0\x85\xA4" => "", # U+E0164 => "\xF3\xA0\x85\xA5" => "", # U+E0165 => "\xF3\xA0\x85\xA6" => "", # U+E0166 => "\xF3\xA0\x85\xA7" => "", # U+E0167 => "\xF3\xA0\x85\xA8" => "", # U+E0168 => "\xF3\xA0\x85\xA9" => "", # U+E0169 => "\xF3\xA0\x85\xAA" => "", # U+E016A => "\xF3\xA0\x85\xAB" => "", # U+E016B => "\xF3\xA0\x85\xAC" => "", # U+E016C => "\xF3\xA0\x85\xAD" => "", # U+E016D => "\xF3\xA0\x85\xAE" => "", # U+E016E => "\xF3\xA0\x85\xAF" => "", # U+E016F => "\xF3\xA0\x85\xB0" => "", # U+E0170 => "\xF3\xA0\x85\xB1" => "", # U+E0171 => "\xF3\xA0\x85\xB2" => "", # U+E0172 => "\xF3\xA0\x85\xB3" => "", # U+E0173 => "\xF3\xA0\x85\xB4" => "", # U+E0174 => "\xF3\xA0\x85\xB5" => "", # U+E0175 => "\xF3\xA0\x85\xB6" => "", # U+E0176 => "\xF3\xA0\x85\xB7" => "", # U+E0177 => "\xF3\xA0\x85\xB8" => "", # U+E0178 => "\xF3\xA0\x85\xB9" => "", # U+E0179 => "\xF3\xA0\x85\xBA" => "", # U+E017A => "\xF3\xA0\x85\xBB" => "", # U+E017B => "\xF3\xA0\x85\xBC" => "", # U+E017C => "\xF3\xA0\x85\xBD" => "", # U+E017D => "\xF3\xA0\x85\xBE" => "", # U+E017E => "\xF3\xA0\x85\xBF" => "", # U+E017F => "\xF3\xA0\x86\x80" => "", # U+E0180 => "\xF3\xA0\x86\x81" => "", # U+E0181 => "\xF3\xA0\x86\x82" => "", # U+E0182 => "\xF3\xA0\x86\x83" => "", # U+E0183 => "\xF3\xA0\x86\x84" => "", # U+E0184 => "\xF3\xA0\x86\x85" => "", # U+E0185 => "\xF3\xA0\x86\x86" => "", # U+E0186 => "\xF3\xA0\x86\x87" => "", # U+E0187 => "\xF3\xA0\x86\x88" => "", # U+E0188 => "\xF3\xA0\x86\x89" => "", # U+E0189 => "\xF3\xA0\x86\x8A" => "", # U+E018A => "\xF3\xA0\x86\x8B" => "", # U+E018B => "\xF3\xA0\x86\x8C" => "", # U+E018C => "\xF3\xA0\x86\x8D" => "", # U+E018D => "\xF3\xA0\x86\x8E" => "", # U+E018E => "\xF3\xA0\x86\x8F" => "", # U+E018F => "\xF3\xA0\x86\x90" => "", # U+E0190 => "\xF3\xA0\x86\x91" => "", # U+E0191 => "\xF3\xA0\x86\x92" => "", # U+E0192 => "\xF3\xA0\x86\x93" => "", # U+E0193 => "\xF3\xA0\x86\x94" => "", # U+E0194 => "\xF3\xA0\x86\x95" => "", # U+E0195 => "\xF3\xA0\x86\x96" => "", # U+E0196 => "\xF3\xA0\x86\x97" => "", # U+E0197 => "\xF3\xA0\x86\x98" => "", # U+E0198 => "\xF3\xA0\x86\x99" => "", # U+E0199 => "\xF3\xA0\x86\x9A" => "", # U+E019A => "\xF3\xA0\x86\x9B" => "", # U+E019B => "\xF3\xA0\x86\x9C" => "", # U+E019C => "\xF3\xA0\x86\x9D" => "", # U+E019D => "\xF3\xA0\x86\x9E" => "", # U+E019E => "\xF3\xA0\x86\x9F" => "", # U+E019F => "\xF3\xA0\x86\xA0" => "", # U+E01A0 => "\xF3\xA0\x86\xA1" => "", # U+E01A1 => "\xF3\xA0\x86\xA2" => "", # U+E01A2 => "\xF3\xA0\x86\xA3" => "", # U+E01A3 => "\xF3\xA0\x86\xA4" => "", # U+E01A4 => "\xF3\xA0\x86\xA5" => "", # U+E01A5 => "\xF3\xA0\x86\xA6" => "", # U+E01A6 => "\xF3\xA0\x86\xA7" => "", # U+E01A7 => "\xF3\xA0\x86\xA8" => "", # U+E01A8 => "\xF3\xA0\x86\xA9" => "", # U+E01A9 => "\xF3\xA0\x86\xAA" => "", # U+E01AA => "\xF3\xA0\x86\xAB" => "", # U+E01AB => "\xF3\xA0\x86\xAC" => "", # U+E01AC => "\xF3\xA0\x86\xAD" => "", # U+E01AD => "\xF3\xA0\x86\xAE" => "", # U+E01AE => "\xF3\xA0\x86\xAF" => "", # U+E01AF => "\xF3\xA0\x86\xB0" => "", # U+E01B0 => "\xF3\xA0\x86\xB1" => "", # U+E01B1 => "\xF3\xA0\x86\xB2" => "", # U+E01B2 => "\xF3\xA0\x86\xB3" => "", # U+E01B3 => "\xF3\xA0\x86\xB4" => "", # U+E01B4 => "\xF3\xA0\x86\xB5" => "", # U+E01B5 => "\xF3\xA0\x86\xB6" => "", # U+E01B6 => "\xF3\xA0\x86\xB7" => "", # U+E01B7 => "\xF3\xA0\x86\xB8" => "", # U+E01B8 => "\xF3\xA0\x86\xB9" => "", # U+E01B9 => "\xF3\xA0\x86\xBA" => "", # U+E01BA => "\xF3\xA0\x86\xBB" => "", # U+E01BB => "\xF3\xA0\x86\xBC" => "", # U+E01BC => "\xF3\xA0\x86\xBD" => "", # U+E01BD => "\xF3\xA0\x86\xBE" => "", # U+E01BE => "\xF3\xA0\x86\xBF" => "", # U+E01BF => "\xF3\xA0\x87\x80" => "", # U+E01C0 => "\xF3\xA0\x87\x81" => "", # U+E01C1 => "\xF3\xA0\x87\x82" => "", # U+E01C2 => "\xF3\xA0\x87\x83" => "", # U+E01C3 => "\xF3\xA0\x87\x84" => "", # U+E01C4 => "\xF3\xA0\x87\x85" => "", # U+E01C5 => "\xF3\xA0\x87\x86" => "", # U+E01C6 => "\xF3\xA0\x87\x87" => "", # U+E01C7 => "\xF3\xA0\x87\x88" => "", # U+E01C8 => "\xF3\xA0\x87\x89" => "", # U+E01C9 => "\xF3\xA0\x87\x8A" => "", # U+E01CA => "\xF3\xA0\x87\x8B" => "", # U+E01CB => "\xF3\xA0\x87\x8C" => "", # U+E01CC => "\xF3\xA0\x87\x8D" => "", # U+E01CD => "\xF3\xA0\x87\x8E" => "", # U+E01CE => "\xF3\xA0\x87\x8F" => "", # U+E01CF => "\xF3\xA0\x87\x90" => "", # U+E01D0 => "\xF3\xA0\x87\x91" => "", # U+E01D1 => "\xF3\xA0\x87\x92" => "", # U+E01D2 => "\xF3\xA0\x87\x93" => "", # U+E01D3 => "\xF3\xA0\x87\x94" => "", # U+E01D4 => "\xF3\xA0\x87\x95" => "", # U+E01D5 => "\xF3\xA0\x87\x96" => "", # U+E01D6 => "\xF3\xA0\x87\x97" => "", # U+E01D7 => "\xF3\xA0\x87\x98" => "", # U+E01D8 => "\xF3\xA0\x87\x99" => "", # U+E01D9 => "\xF3\xA0\x87\x9A" => "", # U+E01DA => "\xF3\xA0\x87\x9B" => "", # U+E01DB => "\xF3\xA0\x87\x9C" => "", # U+E01DC => "\xF3\xA0\x87\x9D" => "", # U+E01DD => "\xF3\xA0\x87\x9E" => "", # U+E01DE => "\xF3\xA0\x87\x9F" => "", # U+E01DF => "\xF3\xA0\x87\xA0" => "", # U+E01E0 => "\xF3\xA0\x87\xA1" => "", # U+E01E1 => "\xF3\xA0\x87\xA2" => "", # U+E01E2 => "\xF3\xA0\x87\xA3" => "", # U+E01E3 => "\xF3\xA0\x87\xA4" => "", # U+E01E4 => "\xF3\xA0\x87\xA5" => "", # U+E01E5 => "\xF3\xA0\x87\xA6" => "", # U+E01E6 => "\xF3\xA0\x87\xA7" => "", # U+E01E7 => "\xF3\xA0\x87\xA8" => "", # U+E01E8 => "\xF3\xA0\x87\xA9" => "", # U+E01E9 => "\xF3\xA0\x87\xAA" => "", # U+E01EA => "\xF3\xA0\x87\xAB" => "", # U+E01EB => "\xF3\xA0\x87\xAC" => "", # U+E01EC => "\xF3\xA0\x87\xAD" => "", # U+E01ED => "\xF3\xA0\x87\xAE" => "", # U+E01EE => "\xF3\xA0\x87\xAF" => "", # U+E01EF => "\xF3\xA0\x87\xB0" => "", # U+E01F0 => "\xF3\xA0\x87\xB1" => "", # U+E01F1 => "\xF3\xA0\x87\xB2" => "", # U+E01F2 => "\xF3\xA0\x87\xB3" => "", # U+E01F3 => "\xF3\xA0\x87\xB4" => "", # U+E01F4 => "\xF3\xA0\x87\xB5" => "", # U+E01F5 => "\xF3\xA0\x87\xB6" => "", # U+E01F6 => "\xF3\xA0\x87\xB7" => "", # U+E01F7 => "\xF3\xA0\x87\xB8" => "", # U+E01F8 => "\xF3\xA0\x87\xB9" => "", # U+E01F9 => "\xF3\xA0\x87\xBA" => "", # U+E01FA => "\xF3\xA0\x87\xBB" => "", # U+E01FB => "\xF3\xA0\x87\xBC" => "", # U+E01FC => "\xF3\xA0\x87\xBD" => "", # U+E01FD => "\xF3\xA0\x87\xBE" => "", # U+E01FE => "\xF3\xA0\x87\xBF" => "", # U+E01FF => "\xF3\xA0\x88\x80" => "", # U+E0200 => "\xF3\xA0\x88\x81" => "", # U+E0201 => "\xF3\xA0\x88\x82" => "", # U+E0202 => "\xF3\xA0\x88\x83" => "", # U+E0203 => "\xF3\xA0\x88\x84" => "", # U+E0204 => "\xF3\xA0\x88\x85" => "", # U+E0205 => "\xF3\xA0\x88\x86" => "", # U+E0206 => "\xF3\xA0\x88\x87" => "", # U+E0207 => "\xF3\xA0\x88\x88" => "", # U+E0208 => "\xF3\xA0\x88\x89" => "", # U+E0209 => "\xF3\xA0\x88\x8A" => "", # U+E020A => "\xF3\xA0\x88\x8B" => "", # U+E020B => "\xF3\xA0\x88\x8C" => "", # U+E020C => "\xF3\xA0\x88\x8D" => "", # U+E020D => "\xF3\xA0\x88\x8E" => "", # U+E020E => "\xF3\xA0\x88\x8F" => "", # U+E020F => "\xF3\xA0\x88\x90" => "", # U+E0210 => "\xF3\xA0\x88\x91" => "", # U+E0211 => "\xF3\xA0\x88\x92" => "", # U+E0212 => "\xF3\xA0\x88\x93" => "", # U+E0213 => "\xF3\xA0\x88\x94" => "", # U+E0214 => "\xF3\xA0\x88\x95" => "", # U+E0215 => "\xF3\xA0\x88\x96" => "", # U+E0216 => "\xF3\xA0\x88\x97" => "", # U+E0217 => "\xF3\xA0\x88\x98" => "", # U+E0218 => "\xF3\xA0\x88\x99" => "", # U+E0219 => "\xF3\xA0\x88\x9A" => "", # U+E021A => "\xF3\xA0\x88\x9B" => "", # U+E021B => "\xF3\xA0\x88\x9C" => "", # U+E021C => "\xF3\xA0\x88\x9D" => "", # U+E021D => "\xF3\xA0\x88\x9E" => "", # U+E021E => "\xF3\xA0\x88\x9F" => "", # U+E021F => "\xF3\xA0\x88\xA0" => "", # U+E0220 => "\xF3\xA0\x88\xA1" => "", # U+E0221 => "\xF3\xA0\x88\xA2" => "", # U+E0222 => "\xF3\xA0\x88\xA3" => "", # U+E0223 => "\xF3\xA0\x88\xA4" => "", # U+E0224 => "\xF3\xA0\x88\xA5" => "", # U+E0225 => "\xF3\xA0\x88\xA6" => "", # U+E0226 => "\xF3\xA0\x88\xA7" => "", # U+E0227 => "\xF3\xA0\x88\xA8" => "", # U+E0228 => "\xF3\xA0\x88\xA9" => "", # U+E0229 => "\xF3\xA0\x88\xAA" => "", # U+E022A => "\xF3\xA0\x88\xAB" => "", # U+E022B => "\xF3\xA0\x88\xAC" => "", # U+E022C => "\xF3\xA0\x88\xAD" => "", # U+E022D => "\xF3\xA0\x88\xAE" => "", # U+E022E => "\xF3\xA0\x88\xAF" => "", # U+E022F => "\xF3\xA0\x88\xB0" => "", # U+E0230 => "\xF3\xA0\x88\xB1" => "", # U+E0231 => "\xF3\xA0\x88\xB2" => "", # U+E0232 => "\xF3\xA0\x88\xB3" => "", # U+E0233 => "\xF3\xA0\x88\xB4" => "", # U+E0234 => "\xF3\xA0\x88\xB5" => "", # U+E0235 => "\xF3\xA0\x88\xB6" => "", # U+E0236 => "\xF3\xA0\x88\xB7" => "", # U+E0237 => "\xF3\xA0\x88\xB8" => "", # U+E0238 => "\xF3\xA0\x88\xB9" => "", # U+E0239 => "\xF3\xA0\x88\xBA" => "", # U+E023A => "\xF3\xA0\x88\xBB" => "", # U+E023B => "\xF3\xA0\x88\xBC" => "", # U+E023C => "\xF3\xA0\x88\xBD" => "", # U+E023D => "\xF3\xA0\x88\xBE" => "", # U+E023E => "\xF3\xA0\x88\xBF" => "", # U+E023F => "\xF3\xA0\x89\x80" => "", # U+E0240 => "\xF3\xA0\x89\x81" => "", # U+E0241 => "\xF3\xA0\x89\x82" => "", # U+E0242 => "\xF3\xA0\x89\x83" => "", # U+E0243 => "\xF3\xA0\x89\x84" => "", # U+E0244 => "\xF3\xA0\x89\x85" => "", # U+E0245 => "\xF3\xA0\x89\x86" => "", # U+E0246 => "\xF3\xA0\x89\x87" => "", # U+E0247 => "\xF3\xA0\x89\x88" => "", # U+E0248 => "\xF3\xA0\x89\x89" => "", # U+E0249 => "\xF3\xA0\x89\x8A" => "", # U+E024A => "\xF3\xA0\x89\x8B" => "", # U+E024B => "\xF3\xA0\x89\x8C" => "", # U+E024C => "\xF3\xA0\x89\x8D" => "", # U+E024D => "\xF3\xA0\x89\x8E" => "", # U+E024E => "\xF3\xA0\x89\x8F" => "", # U+E024F => "\xF3\xA0\x89\x90" => "", # U+E0250 => "\xF3\xA0\x89\x91" => "", # U+E0251 => "\xF3\xA0\x89\x92" => "", # U+E0252 => "\xF3\xA0\x89\x93" => "", # U+E0253 => "\xF3\xA0\x89\x94" => "", # U+E0254 => "\xF3\xA0\x89\x95" => "", # U+E0255 => "\xF3\xA0\x89\x96" => "", # U+E0256 => "\xF3\xA0\x89\x97" => "", # U+E0257 => "\xF3\xA0\x89\x98" => "", # U+E0258 => "\xF3\xA0\x89\x99" => "", # U+E0259 => "\xF3\xA0\x89\x9A" => "", # U+E025A => "\xF3\xA0\x89\x9B" => "", # U+E025B => "\xF3\xA0\x89\x9C" => "", # U+E025C => "\xF3\xA0\x89\x9D" => "", # U+E025D => "\xF3\xA0\x89\x9E" => "", # U+E025E => "\xF3\xA0\x89\x9F" => "", # U+E025F => "\xF3\xA0\x89\xA0" => "", # U+E0260 => "\xF3\xA0\x89\xA1" => "", # U+E0261 => "\xF3\xA0\x89\xA2" => "", # U+E0262 => "\xF3\xA0\x89\xA3" => "", # U+E0263 => "\xF3\xA0\x89\xA4" => "", # U+E0264 => "\xF3\xA0\x89\xA5" => "", # U+E0265 => "\xF3\xA0\x89\xA6" => "", # U+E0266 => "\xF3\xA0\x89\xA7" => "", # U+E0267 => "\xF3\xA0\x89\xA8" => "", # U+E0268 => "\xF3\xA0\x89\xA9" => "", # U+E0269 => "\xF3\xA0\x89\xAA" => "", # U+E026A => "\xF3\xA0\x89\xAB" => "", # U+E026B => "\xF3\xA0\x89\xAC" => "", # U+E026C => "\xF3\xA0\x89\xAD" => "", # U+E026D => "\xF3\xA0\x89\xAE" => "", # U+E026E => "\xF3\xA0\x89\xAF" => "", # U+E026F => "\xF3\xA0\x89\xB0" => "", # U+E0270 => "\xF3\xA0\x89\xB1" => "", # U+E0271 => "\xF3\xA0\x89\xB2" => "", # U+E0272 => "\xF3\xA0\x89\xB3" => "", # U+E0273 => "\xF3\xA0\x89\xB4" => "", # U+E0274 => "\xF3\xA0\x89\xB5" => "", # U+E0275 => "\xF3\xA0\x89\xB6" => "", # U+E0276 => "\xF3\xA0\x89\xB7" => "", # U+E0277 => "\xF3\xA0\x89\xB8" => "", # U+E0278 => "\xF3\xA0\x89\xB9" => "", # U+E0279 => "\xF3\xA0\x89\xBA" => "", # U+E027A => "\xF3\xA0\x89\xBB" => "", # U+E027B => "\xF3\xA0\x89\xBC" => "", # U+E027C => "\xF3\xA0\x89\xBD" => "", # U+E027D => "\xF3\xA0\x89\xBE" => "", # U+E027E => "\xF3\xA0\x89\xBF" => "", # U+E027F => "\xF3\xA0\x8A\x80" => "", # U+E0280 => "\xF3\xA0\x8A\x81" => "", # U+E0281 => "\xF3\xA0\x8A\x82" => "", # U+E0282 => "\xF3\xA0\x8A\x83" => "", # U+E0283 => "\xF3\xA0\x8A\x84" => "", # U+E0284 => "\xF3\xA0\x8A\x85" => "", # U+E0285 => "\xF3\xA0\x8A\x86" => "", # U+E0286 => "\xF3\xA0\x8A\x87" => "", # U+E0287 => "\xF3\xA0\x8A\x88" => "", # U+E0288 => "\xF3\xA0\x8A\x89" => "", # U+E0289 => "\xF3\xA0\x8A\x8A" => "", # U+E028A => "\xF3\xA0\x8A\x8B" => "", # U+E028B => "\xF3\xA0\x8A\x8C" => "", # U+E028C => "\xF3\xA0\x8A\x8D" => "", # U+E028D => "\xF3\xA0\x8A\x8E" => "", # U+E028E => "\xF3\xA0\x8A\x8F" => "", # U+E028F => "\xF3\xA0\x8A\x90" => "", # U+E0290 => "\xF3\xA0\x8A\x91" => "", # U+E0291 => "\xF3\xA0\x8A\x92" => "", # U+E0292 => "\xF3\xA0\x8A\x93" => "", # U+E0293 => "\xF3\xA0\x8A\x94" => "", # U+E0294 => "\xF3\xA0\x8A\x95" => "", # U+E0295 => "\xF3\xA0\x8A\x96" => "", # U+E0296 => "\xF3\xA0\x8A\x97" => "", # U+E0297 => "\xF3\xA0\x8A\x98" => "", # U+E0298 => "\xF3\xA0\x8A\x99" => "", # U+E0299 => "\xF3\xA0\x8A\x9A" => "", # U+E029A => "\xF3\xA0\x8A\x9B" => "", # U+E029B => "\xF3\xA0\x8A\x9C" => "", # U+E029C => "\xF3\xA0\x8A\x9D" => "", # U+E029D => "\xF3\xA0\x8A\x9E" => "", # U+E029E => "\xF3\xA0\x8A\x9F" => "", # U+E029F => "\xF3\xA0\x8A\xA0" => "", # U+E02A0 => "\xF3\xA0\x8A\xA1" => "", # U+E02A1 => "\xF3\xA0\x8A\xA2" => "", # U+E02A2 => "\xF3\xA0\x8A\xA3" => "", # U+E02A3 => "\xF3\xA0\x8A\xA4" => "", # U+E02A4 => "\xF3\xA0\x8A\xA5" => "", # U+E02A5 => "\xF3\xA0\x8A\xA6" => "", # U+E02A6 => "\xF3\xA0\x8A\xA7" => "", # U+E02A7 => "\xF3\xA0\x8A\xA8" => "", # U+E02A8 => "\xF3\xA0\x8A\xA9" => "", # U+E02A9 => "\xF3\xA0\x8A\xAA" => "", # U+E02AA => "\xF3\xA0\x8A\xAB" => "", # U+E02AB => "\xF3\xA0\x8A\xAC" => "", # U+E02AC => "\xF3\xA0\x8A\xAD" => "", # U+E02AD => "\xF3\xA0\x8A\xAE" => "", # U+E02AE => "\xF3\xA0\x8A\xAF" => "", # U+E02AF => "\xF3\xA0\x8A\xB0" => "", # U+E02B0 => "\xF3\xA0\x8A\xB1" => "", # U+E02B1 => "\xF3\xA0\x8A\xB2" => "", # U+E02B2 => "\xF3\xA0\x8A\xB3" => "", # U+E02B3 => "\xF3\xA0\x8A\xB4" => "", # U+E02B4 => "\xF3\xA0\x8A\xB5" => "", # U+E02B5 => "\xF3\xA0\x8A\xB6" => "", # U+E02B6 => "\xF3\xA0\x8A\xB7" => "", # U+E02B7 => "\xF3\xA0\x8A\xB8" => "", # U+E02B8 => "\xF3\xA0\x8A\xB9" => "", # U+E02B9 => "\xF3\xA0\x8A\xBA" => "", # U+E02BA => "\xF3\xA0\x8A\xBB" => "", # U+E02BB => "\xF3\xA0\x8A\xBC" => "", # U+E02BC => "\xF3\xA0\x8A\xBD" => "", # U+E02BD => "\xF3\xA0\x8A\xBE" => "", # U+E02BE => "\xF3\xA0\x8A\xBF" => "", # U+E02BF => "\xF3\xA0\x8B\x80" => "", # U+E02C0 => "\xF3\xA0\x8B\x81" => "", # U+E02C1 => "\xF3\xA0\x8B\x82" => "", # U+E02C2 => "\xF3\xA0\x8B\x83" => "", # U+E02C3 => "\xF3\xA0\x8B\x84" => "", # U+E02C4 => "\xF3\xA0\x8B\x85" => "", # U+E02C5 => "\xF3\xA0\x8B\x86" => "", # U+E02C6 => "\xF3\xA0\x8B\x87" => "", # U+E02C7 => "\xF3\xA0\x8B\x88" => "", # U+E02C8 => "\xF3\xA0\x8B\x89" => "", # U+E02C9 => "\xF3\xA0\x8B\x8A" => "", # U+E02CA => "\xF3\xA0\x8B\x8B" => "", # U+E02CB => "\xF3\xA0\x8B\x8C" => "", # U+E02CC => "\xF3\xA0\x8B\x8D" => "", # U+E02CD => "\xF3\xA0\x8B\x8E" => "", # U+E02CE => "\xF3\xA0\x8B\x8F" => "", # U+E02CF => "\xF3\xA0\x8B\x90" => "", # U+E02D0 => "\xF3\xA0\x8B\x91" => "", # U+E02D1 => "\xF3\xA0\x8B\x92" => "", # U+E02D2 => "\xF3\xA0\x8B\x93" => "", # U+E02D3 => "\xF3\xA0\x8B\x94" => "", # U+E02D4 => "\xF3\xA0\x8B\x95" => "", # U+E02D5 => "\xF3\xA0\x8B\x96" => "", # U+E02D6 => "\xF3\xA0\x8B\x97" => "", # U+E02D7 => "\xF3\xA0\x8B\x98" => "", # U+E02D8 => "\xF3\xA0\x8B\x99" => "", # U+E02D9 => "\xF3\xA0\x8B\x9A" => "", # U+E02DA => "\xF3\xA0\x8B\x9B" => "", # U+E02DB => "\xF3\xA0\x8B\x9C" => "", # U+E02DC => "\xF3\xA0\x8B\x9D" => "", # U+E02DD => "\xF3\xA0\x8B\x9E" => "", # U+E02DE => "\xF3\xA0\x8B\x9F" => "", # U+E02DF => "\xF3\xA0\x8B\xA0" => "", # U+E02E0 => "\xF3\xA0\x8B\xA1" => "", # U+E02E1 => "\xF3\xA0\x8B\xA2" => "", # U+E02E2 => "\xF3\xA0\x8B\xA3" => "", # U+E02E3 => "\xF3\xA0\x8B\xA4" => "", # U+E02E4 => "\xF3\xA0\x8B\xA5" => "", # U+E02E5 => "\xF3\xA0\x8B\xA6" => "", # U+E02E6 => "\xF3\xA0\x8B\xA7" => "", # U+E02E7 => "\xF3\xA0\x8B\xA8" => "", # U+E02E8 => "\xF3\xA0\x8B\xA9" => "", # U+E02E9 => "\xF3\xA0\x8B\xAA" => "", # U+E02EA => "\xF3\xA0\x8B\xAB" => "", # U+E02EB => "\xF3\xA0\x8B\xAC" => "", # U+E02EC => "\xF3\xA0\x8B\xAD" => "", # U+E02ED => "\xF3\xA0\x8B\xAE" => "", # U+E02EE => "\xF3\xA0\x8B\xAF" => "", # U+E02EF => "\xF3\xA0\x8B\xB0" => "", # U+E02F0 => "\xF3\xA0\x8B\xB1" => "", # U+E02F1 => "\xF3\xA0\x8B\xB2" => "", # U+E02F2 => "\xF3\xA0\x8B\xB3" => "", # U+E02F3 => "\xF3\xA0\x8B\xB4" => "", # U+E02F4 => "\xF3\xA0\x8B\xB5" => "", # U+E02F5 => "\xF3\xA0\x8B\xB6" => "", # U+E02F6 => "\xF3\xA0\x8B\xB7" => "", # U+E02F7 => "\xF3\xA0\x8B\xB8" => "", # U+E02F8 => "\xF3\xA0\x8B\xB9" => "", # U+E02F9 => "\xF3\xA0\x8B\xBA" => "", # U+E02FA => "\xF3\xA0\x8B\xBB" => "", # U+E02FB => "\xF3\xA0\x8B\xBC" => "", # U+E02FC => "\xF3\xA0\x8B\xBD" => "", # U+E02FD => "\xF3\xA0\x8B\xBE" => "", # U+E02FE => "\xF3\xA0\x8B\xBF" => "", # U+E02FF => "\xF3\xA0\x8C\x80" => "", # U+E0300 => "\xF3\xA0\x8C\x81" => "", # U+E0301 => "\xF3\xA0\x8C\x82" => "", # U+E0302 => "\xF3\xA0\x8C\x83" => "", # U+E0303 => "\xF3\xA0\x8C\x84" => "", # U+E0304 => "\xF3\xA0\x8C\x85" => "", # U+E0305 => "\xF3\xA0\x8C\x86" => "", # U+E0306 => "\xF3\xA0\x8C\x87" => "", # U+E0307 => "\xF3\xA0\x8C\x88" => "", # U+E0308 => "\xF3\xA0\x8C\x89" => "", # U+E0309 => "\xF3\xA0\x8C\x8A" => "", # U+E030A => "\xF3\xA0\x8C\x8B" => "", # U+E030B => "\xF3\xA0\x8C\x8C" => "", # U+E030C => "\xF3\xA0\x8C\x8D" => "", # U+E030D => "\xF3\xA0\x8C\x8E" => "", # U+E030E => "\xF3\xA0\x8C\x8F" => "", # U+E030F => "\xF3\xA0\x8C\x90" => "", # U+E0310 => "\xF3\xA0\x8C\x91" => "", # U+E0311 => "\xF3\xA0\x8C\x92" => "", # U+E0312 => "\xF3\xA0\x8C\x93" => "", # U+E0313 => "\xF3\xA0\x8C\x94" => "", # U+E0314 => "\xF3\xA0\x8C\x95" => "", # U+E0315 => "\xF3\xA0\x8C\x96" => "", # U+E0316 => "\xF3\xA0\x8C\x97" => "", # U+E0317 => "\xF3\xA0\x8C\x98" => "", # U+E0318 => "\xF3\xA0\x8C\x99" => "", # U+E0319 => "\xF3\xA0\x8C\x9A" => "", # U+E031A => "\xF3\xA0\x8C\x9B" => "", # U+E031B => "\xF3\xA0\x8C\x9C" => "", # U+E031C => "\xF3\xA0\x8C\x9D" => "", # U+E031D => "\xF3\xA0\x8C\x9E" => "", # U+E031E => "\xF3\xA0\x8C\x9F" => "", # U+E031F => "\xF3\xA0\x8C\xA0" => "", # U+E0320 => "\xF3\xA0\x8C\xA1" => "", # U+E0321 => "\xF3\xA0\x8C\xA2" => "", # U+E0322 => "\xF3\xA0\x8C\xA3" => "", # U+E0323 => "\xF3\xA0\x8C\xA4" => "", # U+E0324 => "\xF3\xA0\x8C\xA5" => "", # U+E0325 => "\xF3\xA0\x8C\xA6" => "", # U+E0326 => "\xF3\xA0\x8C\xA7" => "", # U+E0327 => "\xF3\xA0\x8C\xA8" => "", # U+E0328 => "\xF3\xA0\x8C\xA9" => "", # U+E0329 => "\xF3\xA0\x8C\xAA" => "", # U+E032A => "\xF3\xA0\x8C\xAB" => "", # U+E032B => "\xF3\xA0\x8C\xAC" => "", # U+E032C => "\xF3\xA0\x8C\xAD" => "", # U+E032D => "\xF3\xA0\x8C\xAE" => "", # U+E032E => "\xF3\xA0\x8C\xAF" => "", # U+E032F => "\xF3\xA0\x8C\xB0" => "", # U+E0330 => "\xF3\xA0\x8C\xB1" => "", # U+E0331 => "\xF3\xA0\x8C\xB2" => "", # U+E0332 => "\xF3\xA0\x8C\xB3" => "", # U+E0333 => "\xF3\xA0\x8C\xB4" => "", # U+E0334 => "\xF3\xA0\x8C\xB5" => "", # U+E0335 => "\xF3\xA0\x8C\xB6" => "", # U+E0336 => "\xF3\xA0\x8C\xB7" => "", # U+E0337 => "\xF3\xA0\x8C\xB8" => "", # U+E0338 => "\xF3\xA0\x8C\xB9" => "", # U+E0339 => "\xF3\xA0\x8C\xBA" => "", # U+E033A => "\xF3\xA0\x8C\xBB" => "", # U+E033B => "\xF3\xA0\x8C\xBC" => "", # U+E033C => "\xF3\xA0\x8C\xBD" => "", # U+E033D => "\xF3\xA0\x8C\xBE" => "", # U+E033E => "\xF3\xA0\x8C\xBF" => "", # U+E033F => "\xF3\xA0\x8D\x80" => "", # U+E0340 => "\xF3\xA0\x8D\x81" => "", # U+E0341 => "\xF3\xA0\x8D\x82" => "", # U+E0342 => "\xF3\xA0\x8D\x83" => "", # U+E0343 => "\xF3\xA0\x8D\x84" => "", # U+E0344 => "\xF3\xA0\x8D\x85" => "", # U+E0345 => "\xF3\xA0\x8D\x86" => "", # U+E0346 => "\xF3\xA0\x8D\x87" => "", # U+E0347 => "\xF3\xA0\x8D\x88" => "", # U+E0348 => "\xF3\xA0\x8D\x89" => "", # U+E0349 => "\xF3\xA0\x8D\x8A" => "", # U+E034A => "\xF3\xA0\x8D\x8B" => "", # U+E034B => "\xF3\xA0\x8D\x8C" => "", # U+E034C => "\xF3\xA0\x8D\x8D" => "", # U+E034D => "\xF3\xA0\x8D\x8E" => "", # U+E034E => "\xF3\xA0\x8D\x8F" => "", # U+E034F => "\xF3\xA0\x8D\x90" => "", # U+E0350 => "\xF3\xA0\x8D\x91" => "", # U+E0351 => "\xF3\xA0\x8D\x92" => "", # U+E0352 => "\xF3\xA0\x8D\x93" => "", # U+E0353 => "\xF3\xA0\x8D\x94" => "", # U+E0354 => "\xF3\xA0\x8D\x95" => "", # U+E0355 => "\xF3\xA0\x8D\x96" => "", # U+E0356 => "\xF3\xA0\x8D\x97" => "", # U+E0357 => "\xF3\xA0\x8D\x98" => "", # U+E0358 => "\xF3\xA0\x8D\x99" => "", # U+E0359 => "\xF3\xA0\x8D\x9A" => "", # U+E035A => "\xF3\xA0\x8D\x9B" => "", # U+E035B => "\xF3\xA0\x8D\x9C" => "", # U+E035C => "\xF3\xA0\x8D\x9D" => "", # U+E035D => "\xF3\xA0\x8D\x9E" => "", # U+E035E => "\xF3\xA0\x8D\x9F" => "", # U+E035F => "\xF3\xA0\x8D\xA0" => "", # U+E0360 => "\xF3\xA0\x8D\xA1" => "", # U+E0361 => "\xF3\xA0\x8D\xA2" => "", # U+E0362 => "\xF3\xA0\x8D\xA3" => "", # U+E0363 => "\xF3\xA0\x8D\xA4" => "", # U+E0364 => "\xF3\xA0\x8D\xA5" => "", # U+E0365 => "\xF3\xA0\x8D\xA6" => "", # U+E0366 => "\xF3\xA0\x8D\xA7" => "", # U+E0367 => "\xF3\xA0\x8D\xA8" => "", # U+E0368 => "\xF3\xA0\x8D\xA9" => "", # U+E0369 => "\xF3\xA0\x8D\xAA" => "", # U+E036A => "\xF3\xA0\x8D\xAB" => "", # U+E036B => "\xF3\xA0\x8D\xAC" => "", # U+E036C => "\xF3\xA0\x8D\xAD" => "", # U+E036D => "\xF3\xA0\x8D\xAE" => "", # U+E036E => "\xF3\xA0\x8D\xAF" => "", # U+E036F => "\xF3\xA0\x8D\xB0" => "", # U+E0370 => "\xF3\xA0\x8D\xB1" => "", # U+E0371 => "\xF3\xA0\x8D\xB2" => "", # U+E0372 => "\xF3\xA0\x8D\xB3" => "", # U+E0373 => "\xF3\xA0\x8D\xB4" => "", # U+E0374 => "\xF3\xA0\x8D\xB5" => "", # U+E0375 => "\xF3\xA0\x8D\xB6" => "", # U+E0376 => "\xF3\xA0\x8D\xB7" => "", # U+E0377 => "\xF3\xA0\x8D\xB8" => "", # U+E0378 => "\xF3\xA0\x8D\xB9" => "", # U+E0379 => "\xF3\xA0\x8D\xBA" => "", # U+E037A => "\xF3\xA0\x8D\xBB" => "", # U+E037B => "\xF3\xA0\x8D\xBC" => "", # U+E037C => "\xF3\xA0\x8D\xBD" => "", # U+E037D => "\xF3\xA0\x8D\xBE" => "", # U+E037E => "\xF3\xA0\x8D\xBF" => "", # U+E037F => "\xF3\xA0\x8E\x80" => "", # U+E0380 => "\xF3\xA0\x8E\x81" => "", # U+E0381 => "\xF3\xA0\x8E\x82" => "", # U+E0382 => "\xF3\xA0\x8E\x83" => "", # U+E0383 => "\xF3\xA0\x8E\x84" => "", # U+E0384 => "\xF3\xA0\x8E\x85" => "", # U+E0385 => "\xF3\xA0\x8E\x86" => "", # U+E0386 => "\xF3\xA0\x8E\x87" => "", # U+E0387 => "\xF3\xA0\x8E\x88" => "", # U+E0388 => "\xF3\xA0\x8E\x89" => "", # U+E0389 => "\xF3\xA0\x8E\x8A" => "", # U+E038A => "\xF3\xA0\x8E\x8B" => "", # U+E038B => "\xF3\xA0\x8E\x8C" => "", # U+E038C => "\xF3\xA0\x8E\x8D" => "", # U+E038D => "\xF3\xA0\x8E\x8E" => "", # U+E038E => "\xF3\xA0\x8E\x8F" => "", # U+E038F => "\xF3\xA0\x8E\x90" => "", # U+E0390 => "\xF3\xA0\x8E\x91" => "", # U+E0391 => "\xF3\xA0\x8E\x92" => "", # U+E0392 => "\xF3\xA0\x8E\x93" => "", # U+E0393 => "\xF3\xA0\x8E\x94" => "", # U+E0394 => "\xF3\xA0\x8E\x95" => "", # U+E0395 => "\xF3\xA0\x8E\x96" => "", # U+E0396 => "\xF3\xA0\x8E\x97" => "", # U+E0397 => "\xF3\xA0\x8E\x98" => "", # U+E0398 => "\xF3\xA0\x8E\x99" => "", # U+E0399 => "\xF3\xA0\x8E\x9A" => "", # U+E039A => "\xF3\xA0\x8E\x9B" => "", # U+E039B => "\xF3\xA0\x8E\x9C" => "", # U+E039C => "\xF3\xA0\x8E\x9D" => "", # U+E039D => "\xF3\xA0\x8E\x9E" => "", # U+E039E => "\xF3\xA0\x8E\x9F" => "", # U+E039F => "\xF3\xA0\x8E\xA0" => "", # U+E03A0 => "\xF3\xA0\x8E\xA1" => "", # U+E03A1 => "\xF3\xA0\x8E\xA2" => "", # U+E03A2 => "\xF3\xA0\x8E\xA3" => "", # U+E03A3 => "\xF3\xA0\x8E\xA4" => "", # U+E03A4 => "\xF3\xA0\x8E\xA5" => "", # U+E03A5 => "\xF3\xA0\x8E\xA6" => "", # U+E03A6 => "\xF3\xA0\x8E\xA7" => "", # U+E03A7 => "\xF3\xA0\x8E\xA8" => "", # U+E03A8 => "\xF3\xA0\x8E\xA9" => "", # U+E03A9 => "\xF3\xA0\x8E\xAA" => "", # U+E03AA => "\xF3\xA0\x8E\xAB" => "", # U+E03AB => "\xF3\xA0\x8E\xAC" => "", # U+E03AC => "\xF3\xA0\x8E\xAD" => "", # U+E03AD => "\xF3\xA0\x8E\xAE" => "", # U+E03AE => "\xF3\xA0\x8E\xAF" => "", # U+E03AF => "\xF3\xA0\x8E\xB0" => "", # U+E03B0 => "\xF3\xA0\x8E\xB1" => "", # U+E03B1 => "\xF3\xA0\x8E\xB2" => "", # U+E03B2 => "\xF3\xA0\x8E\xB3" => "", # U+E03B3 => "\xF3\xA0\x8E\xB4" => "", # U+E03B4 => "\xF3\xA0\x8E\xB5" => "", # U+E03B5 => "\xF3\xA0\x8E\xB6" => "", # U+E03B6 => "\xF3\xA0\x8E\xB7" => "", # U+E03B7 => "\xF3\xA0\x8E\xB8" => "", # U+E03B8 => "\xF3\xA0\x8E\xB9" => "", # U+E03B9 => "\xF3\xA0\x8E\xBA" => "", # U+E03BA => "\xF3\xA0\x8E\xBB" => "", # U+E03BB => "\xF3\xA0\x8E\xBC" => "", # U+E03BC => "\xF3\xA0\x8E\xBD" => "", # U+E03BD => "\xF3\xA0\x8E\xBE" => "", # U+E03BE => "\xF3\xA0\x8E\xBF" => "", # U+E03BF => "\xF3\xA0\x8F\x80" => "", # U+E03C0 => "\xF3\xA0\x8F\x81" => "", # U+E03C1 => "\xF3\xA0\x8F\x82" => "", # U+E03C2 => "\xF3\xA0\x8F\x83" => "", # U+E03C3 => "\xF3\xA0\x8F\x84" => "", # U+E03C4 => "\xF3\xA0\x8F\x85" => "", # U+E03C5 => "\xF3\xA0\x8F\x86" => "", # U+E03C6 => "\xF3\xA0\x8F\x87" => "", # U+E03C7 => "\xF3\xA0\x8F\x88" => "", # U+E03C8 => "\xF3\xA0\x8F\x89" => "", # U+E03C9 => "\xF3\xA0\x8F\x8A" => "", # U+E03CA => "\xF3\xA0\x8F\x8B" => "", # U+E03CB => "\xF3\xA0\x8F\x8C" => "", # U+E03CC => "\xF3\xA0\x8F\x8D" => "", # U+E03CD => "\xF3\xA0\x8F\x8E" => "", # U+E03CE => "\xF3\xA0\x8F\x8F" => "", # U+E03CF => "\xF3\xA0\x8F\x90" => "", # U+E03D0 => "\xF3\xA0\x8F\x91" => "", # U+E03D1 => "\xF3\xA0\x8F\x92" => "", # U+E03D2 => "\xF3\xA0\x8F\x93" => "", # U+E03D3 => "\xF3\xA0\x8F\x94" => "", # U+E03D4 => "\xF3\xA0\x8F\x95" => "", # U+E03D5 => "\xF3\xA0\x8F\x96" => "", # U+E03D6 => "\xF3\xA0\x8F\x97" => "", # U+E03D7 => "\xF3\xA0\x8F\x98" => "", # U+E03D8 => "\xF3\xA0\x8F\x99" => "", # U+E03D9 => "\xF3\xA0\x8F\x9A" => "", # U+E03DA => "\xF3\xA0\x8F\x9B" => "", # U+E03DB => "\xF3\xA0\x8F\x9C" => "", # U+E03DC => "\xF3\xA0\x8F\x9D" => "", # U+E03DD => "\xF3\xA0\x8F\x9E" => "", # U+E03DE => "\xF3\xA0\x8F\x9F" => "", # U+E03DF => "\xF3\xA0\x8F\xA0" => "", # U+E03E0 => "\xF3\xA0\x8F\xA1" => "", # U+E03E1 => "\xF3\xA0\x8F\xA2" => "", # U+E03E2 => "\xF3\xA0\x8F\xA3" => "", # U+E03E3 => "\xF3\xA0\x8F\xA4" => "", # U+E03E4 => "\xF3\xA0\x8F\xA5" => "", # U+E03E5 => "\xF3\xA0\x8F\xA6" => "", # U+E03E6 => "\xF3\xA0\x8F\xA7" => "", # U+E03E7 => "\xF3\xA0\x8F\xA8" => "", # U+E03E8 => "\xF3\xA0\x8F\xA9" => "", # U+E03E9 => "\xF3\xA0\x8F\xAA" => "", # U+E03EA => "\xF3\xA0\x8F\xAB" => "", # U+E03EB => "\xF3\xA0\x8F\xAC" => "", # U+E03EC => "\xF3\xA0\x8F\xAD" => "", # U+E03ED => "\xF3\xA0\x8F\xAE" => "", # U+E03EE => "\xF3\xA0\x8F\xAF" => "", # U+E03EF => "\xF3\xA0\x8F\xB0" => "", # U+E03F0 => "\xF3\xA0\x8F\xB1" => "", # U+E03F1 => "\xF3\xA0\x8F\xB2" => "", # U+E03F2 => "\xF3\xA0\x8F\xB3" => "", # U+E03F3 => "\xF3\xA0\x8F\xB4" => "", # U+E03F4 => "\xF3\xA0\x8F\xB5" => "", # U+E03F5 => "\xF3\xA0\x8F\xB6" => "", # U+E03F6 => "\xF3\xA0\x8F\xB7" => "", # U+E03F7 => "\xF3\xA0\x8F\xB8" => "", # U+E03F8 => "\xF3\xA0\x8F\xB9" => "", # U+E03F9 => "\xF3\xA0\x8F\xBA" => "", # U+E03FA => "\xF3\xA0\x8F\xBB" => "", # U+E03FB => "\xF3\xA0\x8F\xBC" => "", # U+E03FC => "\xF3\xA0\x8F\xBD" => "", # U+E03FD => "\xF3\xA0\x8F\xBE" => "", # U+E03FE => "\xF3\xA0\x8F\xBF" => "", # U+E03FF => "\xF3\xA0\x90\x80" => "", # U+E0400 => "\xF3\xA0\x90\x81" => "", # U+E0401 => "\xF3\xA0\x90\x82" => "", # U+E0402 => "\xF3\xA0\x90\x83" => "", # U+E0403 => "\xF3\xA0\x90\x84" => "", # U+E0404 => "\xF3\xA0\x90\x85" => "", # U+E0405 => "\xF3\xA0\x90\x86" => "", # U+E0406 => "\xF3\xA0\x90\x87" => "", # U+E0407 => "\xF3\xA0\x90\x88" => "", # U+E0408 => "\xF3\xA0\x90\x89" => "", # U+E0409 => "\xF3\xA0\x90\x8A" => "", # U+E040A => "\xF3\xA0\x90\x8B" => "", # U+E040B => "\xF3\xA0\x90\x8C" => "", # U+E040C => "\xF3\xA0\x90\x8D" => "", # U+E040D => "\xF3\xA0\x90\x8E" => "", # U+E040E => "\xF3\xA0\x90\x8F" => "", # U+E040F => "\xF3\xA0\x90\x90" => "", # U+E0410 => "\xF3\xA0\x90\x91" => "", # U+E0411 => "\xF3\xA0\x90\x92" => "", # U+E0412 => "\xF3\xA0\x90\x93" => "", # U+E0413 => "\xF3\xA0\x90\x94" => "", # U+E0414 => "\xF3\xA0\x90\x95" => "", # U+E0415 => "\xF3\xA0\x90\x96" => "", # U+E0416 => "\xF3\xA0\x90\x97" => "", # U+E0417 => "\xF3\xA0\x90\x98" => "", # U+E0418 => "\xF3\xA0\x90\x99" => "", # U+E0419 => "\xF3\xA0\x90\x9A" => "", # U+E041A => "\xF3\xA0\x90\x9B" => "", # U+E041B => "\xF3\xA0\x90\x9C" => "", # U+E041C => "\xF3\xA0\x90\x9D" => "", # U+E041D => "\xF3\xA0\x90\x9E" => "", # U+E041E => "\xF3\xA0\x90\x9F" => "", # U+E041F => "\xF3\xA0\x90\xA0" => "", # U+E0420 => "\xF3\xA0\x90\xA1" => "", # U+E0421 => "\xF3\xA0\x90\xA2" => "", # U+E0422 => "\xF3\xA0\x90\xA3" => "", # U+E0423 => "\xF3\xA0\x90\xA4" => "", # U+E0424 => "\xF3\xA0\x90\xA5" => "", # U+E0425 => "\xF3\xA0\x90\xA6" => "", # U+E0426 => "\xF3\xA0\x90\xA7" => "", # U+E0427 => "\xF3\xA0\x90\xA8" => "", # U+E0428 => "\xF3\xA0\x90\xA9" => "", # U+E0429 => "\xF3\xA0\x90\xAA" => "", # U+E042A => "\xF3\xA0\x90\xAB" => "", # U+E042B => "\xF3\xA0\x90\xAC" => "", # U+E042C => "\xF3\xA0\x90\xAD" => "", # U+E042D => "\xF3\xA0\x90\xAE" => "", # U+E042E => "\xF3\xA0\x90\xAF" => "", # U+E042F => "\xF3\xA0\x90\xB0" => "", # U+E0430 => "\xF3\xA0\x90\xB1" => "", # U+E0431 => "\xF3\xA0\x90\xB2" => "", # U+E0432 => "\xF3\xA0\x90\xB3" => "", # U+E0433 => "\xF3\xA0\x90\xB4" => "", # U+E0434 => "\xF3\xA0\x90\xB5" => "", # U+E0435 => "\xF3\xA0\x90\xB6" => "", # U+E0436 => "\xF3\xA0\x90\xB7" => "", # U+E0437 => "\xF3\xA0\x90\xB8" => "", # U+E0438 => "\xF3\xA0\x90\xB9" => "", # U+E0439 => "\xF3\xA0\x90\xBA" => "", # U+E043A => "\xF3\xA0\x90\xBB" => "", # U+E043B => "\xF3\xA0\x90\xBC" => "", # U+E043C => "\xF3\xA0\x90\xBD" => "", # U+E043D => "\xF3\xA0\x90\xBE" => "", # U+E043E => "\xF3\xA0\x90\xBF" => "", # U+E043F => "\xF3\xA0\x91\x80" => "", # U+E0440 => "\xF3\xA0\x91\x81" => "", # U+E0441 => "\xF3\xA0\x91\x82" => "", # U+E0442 => "\xF3\xA0\x91\x83" => "", # U+E0443 => "\xF3\xA0\x91\x84" => "", # U+E0444 => "\xF3\xA0\x91\x85" => "", # U+E0445 => "\xF3\xA0\x91\x86" => "", # U+E0446 => "\xF3\xA0\x91\x87" => "", # U+E0447 => "\xF3\xA0\x91\x88" => "", # U+E0448 => "\xF3\xA0\x91\x89" => "", # U+E0449 => "\xF3\xA0\x91\x8A" => "", # U+E044A => "\xF3\xA0\x91\x8B" => "", # U+E044B => "\xF3\xA0\x91\x8C" => "", # U+E044C => "\xF3\xA0\x91\x8D" => "", # U+E044D => "\xF3\xA0\x91\x8E" => "", # U+E044E => "\xF3\xA0\x91\x8F" => "", # U+E044F => "\xF3\xA0\x91\x90" => "", # U+E0450 => "\xF3\xA0\x91\x91" => "", # U+E0451 => "\xF3\xA0\x91\x92" => "", # U+E0452 => "\xF3\xA0\x91\x93" => "", # U+E0453 => "\xF3\xA0\x91\x94" => "", # U+E0454 => "\xF3\xA0\x91\x95" => "", # U+E0455 => "\xF3\xA0\x91\x96" => "", # U+E0456 => "\xF3\xA0\x91\x97" => "", # U+E0457 => "\xF3\xA0\x91\x98" => "", # U+E0458 => "\xF3\xA0\x91\x99" => "", # U+E0459 => "\xF3\xA0\x91\x9A" => "", # U+E045A => "\xF3\xA0\x91\x9B" => "", # U+E045B => "\xF3\xA0\x91\x9C" => "", # U+E045C => "\xF3\xA0\x91\x9D" => "", # U+E045D => "\xF3\xA0\x91\x9E" => "", # U+E045E => "\xF3\xA0\x91\x9F" => "", # U+E045F => "\xF3\xA0\x91\xA0" => "", # U+E0460 => "\xF3\xA0\x91\xA1" => "", # U+E0461 => "\xF3\xA0\x91\xA2" => "", # U+E0462 => "\xF3\xA0\x91\xA3" => "", # U+E0463 => "\xF3\xA0\x91\xA4" => "", # U+E0464 => "\xF3\xA0\x91\xA5" => "", # U+E0465 => "\xF3\xA0\x91\xA6" => "", # U+E0466 => "\xF3\xA0\x91\xA7" => "", # U+E0467 => "\xF3\xA0\x91\xA8" => "", # U+E0468 => "\xF3\xA0\x91\xA9" => "", # U+E0469 => "\xF3\xA0\x91\xAA" => "", # U+E046A => "\xF3\xA0\x91\xAB" => "", # U+E046B => "\xF3\xA0\x91\xAC" => "", # U+E046C => "\xF3\xA0\x91\xAD" => "", # U+E046D => "\xF3\xA0\x91\xAE" => "", # U+E046E => "\xF3\xA0\x91\xAF" => "", # U+E046F => "\xF3\xA0\x91\xB0" => "", # U+E0470 => "\xF3\xA0\x91\xB1" => "", # U+E0471 => "\xF3\xA0\x91\xB2" => "", # U+E0472 => "\xF3\xA0\x91\xB3" => "", # U+E0473 => "\xF3\xA0\x91\xB4" => "", # U+E0474 => "\xF3\xA0\x91\xB5" => "", # U+E0475 => "\xF3\xA0\x91\xB6" => "", # U+E0476 => "\xF3\xA0\x91\xB7" => "", # U+E0477 => "\xF3\xA0\x91\xB8" => "", # U+E0478 => "\xF3\xA0\x91\xB9" => "", # U+E0479 => "\xF3\xA0\x91\xBA" => "", # U+E047A => "\xF3\xA0\x91\xBB" => "", # U+E047B => "\xF3\xA0\x91\xBC" => "", # U+E047C => "\xF3\xA0\x91\xBD" => "", # U+E047D => "\xF3\xA0\x91\xBE" => "", # U+E047E => "\xF3\xA0\x91\xBF" => "", # U+E047F => "\xF3\xA0\x92\x80" => "", # U+E0480 => "\xF3\xA0\x92\x81" => "", # U+E0481 => "\xF3\xA0\x92\x82" => "", # U+E0482 => "\xF3\xA0\x92\x83" => "", # U+E0483 => "\xF3\xA0\x92\x84" => "", # U+E0484 => "\xF3\xA0\x92\x85" => "", # U+E0485 => "\xF3\xA0\x92\x86" => "", # U+E0486 => "\xF3\xA0\x92\x87" => "", # U+E0487 => "\xF3\xA0\x92\x88" => "", # U+E0488 => "\xF3\xA0\x92\x89" => "", # U+E0489 => "\xF3\xA0\x92\x8A" => "", # U+E048A => "\xF3\xA0\x92\x8B" => "", # U+E048B => "\xF3\xA0\x92\x8C" => "", # U+E048C => "\xF3\xA0\x92\x8D" => "", # U+E048D => "\xF3\xA0\x92\x8E" => "", # U+E048E => "\xF3\xA0\x92\x8F" => "", # U+E048F => "\xF3\xA0\x92\x90" => "", # U+E0490 => "\xF3\xA0\x92\x91" => "", # U+E0491 => "\xF3\xA0\x92\x92" => "", # U+E0492 => "\xF3\xA0\x92\x93" => "", # U+E0493 => "\xF3\xA0\x92\x94" => "", # U+E0494 => "\xF3\xA0\x92\x95" => "", # U+E0495 => "\xF3\xA0\x92\x96" => "", # U+E0496 => "\xF3\xA0\x92\x97" => "", # U+E0497 => "\xF3\xA0\x92\x98" => "", # U+E0498 => "\xF3\xA0\x92\x99" => "", # U+E0499 => "\xF3\xA0\x92\x9A" => "", # U+E049A => "\xF3\xA0\x92\x9B" => "", # U+E049B => "\xF3\xA0\x92\x9C" => "", # U+E049C => "\xF3\xA0\x92\x9D" => "", # U+E049D => "\xF3\xA0\x92\x9E" => "", # U+E049E => "\xF3\xA0\x92\x9F" => "", # U+E049F => "\xF3\xA0\x92\xA0" => "", # U+E04A0 => "\xF3\xA0\x92\xA1" => "", # U+E04A1 => "\xF3\xA0\x92\xA2" => "", # U+E04A2 => "\xF3\xA0\x92\xA3" => "", # U+E04A3 => "\xF3\xA0\x92\xA4" => "", # U+E04A4 => "\xF3\xA0\x92\xA5" => "", # U+E04A5 => "\xF3\xA0\x92\xA6" => "", # U+E04A6 => "\xF3\xA0\x92\xA7" => "", # U+E04A7 => "\xF3\xA0\x92\xA8" => "", # U+E04A8 => "\xF3\xA0\x92\xA9" => "", # U+E04A9 => "\xF3\xA0\x92\xAA" => "", # U+E04AA => "\xF3\xA0\x92\xAB" => "", # U+E04AB => "\xF3\xA0\x92\xAC" => "", # U+E04AC => "\xF3\xA0\x92\xAD" => "", # U+E04AD => "\xF3\xA0\x92\xAE" => "", # U+E04AE => "\xF3\xA0\x92\xAF" => "", # U+E04AF => "\xF3\xA0\x92\xB0" => "", # U+E04B0 => "\xF3\xA0\x92\xB1" => "", # U+E04B1 => "\xF3\xA0\x92\xB2" => "", # U+E04B2 => "\xF3\xA0\x92\xB3" => "", # U+E04B3 => "\xF3\xA0\x92\xB4" => "", # U+E04B4 => "\xF3\xA0\x92\xB5" => "", # U+E04B5 => "\xF3\xA0\x92\xB6" => "", # U+E04B6 => "\xF3\xA0\x92\xB7" => "", # U+E04B7 => "\xF3\xA0\x92\xB8" => "", # U+E04B8 => "\xF3\xA0\x92\xB9" => "", # U+E04B9 => "\xF3\xA0\x92\xBA" => "", # U+E04BA => "\xF3\xA0\x92\xBB" => "", # U+E04BB => "\xF3\xA0\x92\xBC" => "", # U+E04BC => "\xF3\xA0\x92\xBD" => "", # U+E04BD => "\xF3\xA0\x92\xBE" => "", # U+E04BE => "\xF3\xA0\x92\xBF" => "", # U+E04BF => "\xF3\xA0\x93\x80" => "", # U+E04C0 => "\xF3\xA0\x93\x81" => "", # U+E04C1 => "\xF3\xA0\x93\x82" => "", # U+E04C2 => "\xF3\xA0\x93\x83" => "", # U+E04C3 => "\xF3\xA0\x93\x84" => "", # U+E04C4 => "\xF3\xA0\x93\x85" => "", # U+E04C5 => "\xF3\xA0\x93\x86" => "", # U+E04C6 => "\xF3\xA0\x93\x87" => "", # U+E04C7 => "\xF3\xA0\x93\x88" => "", # U+E04C8 => "\xF3\xA0\x93\x89" => "", # U+E04C9 => "\xF3\xA0\x93\x8A" => "", # U+E04CA => "\xF3\xA0\x93\x8B" => "", # U+E04CB => "\xF3\xA0\x93\x8C" => "", # U+E04CC => "\xF3\xA0\x93\x8D" => "", # U+E04CD => "\xF3\xA0\x93\x8E" => "", # U+E04CE => "\xF3\xA0\x93\x8F" => "", # U+E04CF => "\xF3\xA0\x93\x90" => "", # U+E04D0 => "\xF3\xA0\x93\x91" => "", # U+E04D1 => "\xF3\xA0\x93\x92" => "", # U+E04D2 => "\xF3\xA0\x93\x93" => "", # U+E04D3 => "\xF3\xA0\x93\x94" => "", # U+E04D4 => "\xF3\xA0\x93\x95" => "", # U+E04D5 => "\xF3\xA0\x93\x96" => "", # U+E04D6 => "\xF3\xA0\x93\x97" => "", # U+E04D7 => "\xF3\xA0\x93\x98" => "", # U+E04D8 => "\xF3\xA0\x93\x99" => "", # U+E04D9 => "\xF3\xA0\x93\x9A" => "", # U+E04DA => "\xF3\xA0\x93\x9B" => "", # U+E04DB => "\xF3\xA0\x93\x9C" => "", # U+E04DC => "\xF3\xA0\x93\x9D" => "", # U+E04DD => "\xF3\xA0\x93\x9E" => "", # U+E04DE => "\xF3\xA0\x93\x9F" => "", # U+E04DF => "\xF3\xA0\x93\xA0" => "", # U+E04E0 => "\xF3\xA0\x93\xA1" => "", # U+E04E1 => "\xF3\xA0\x93\xA2" => "", # U+E04E2 => "\xF3\xA0\x93\xA3" => "", # U+E04E3 => "\xF3\xA0\x93\xA4" => "", # U+E04E4 => "\xF3\xA0\x93\xA5" => "", # U+E04E5 => "\xF3\xA0\x93\xA6" => "", # U+E04E6 => "\xF3\xA0\x93\xA7" => "", # U+E04E7 => "\xF3\xA0\x93\xA8" => "", # U+E04E8 => "\xF3\xA0\x93\xA9" => "", # U+E04E9 => "\xF3\xA0\x93\xAA" => "", # U+E04EA => "\xF3\xA0\x93\xAB" => "", # U+E04EB => "\xF3\xA0\x93\xAC" => "", # U+E04EC => "\xF3\xA0\x93\xAD" => "", # U+E04ED => "\xF3\xA0\x93\xAE" => "", # U+E04EE => "\xF3\xA0\x93\xAF" => "", # U+E04EF => "\xF3\xA0\x93\xB0" => "", # U+E04F0 => "\xF3\xA0\x93\xB1" => "", # U+E04F1 => "\xF3\xA0\x93\xB2" => "", # U+E04F2 => "\xF3\xA0\x93\xB3" => "", # U+E04F3 => "\xF3\xA0\x93\xB4" => "", # U+E04F4 => "\xF3\xA0\x93\xB5" => "", # U+E04F5 => "\xF3\xA0\x93\xB6" => "", # U+E04F6 => "\xF3\xA0\x93\xB7" => "", # U+E04F7 => "\xF3\xA0\x93\xB8" => "", # U+E04F8 => "\xF3\xA0\x93\xB9" => "", # U+E04F9 => "\xF3\xA0\x93\xBA" => "", # U+E04FA => "\xF3\xA0\x93\xBB" => "", # U+E04FB => "\xF3\xA0\x93\xBC" => "", # U+E04FC => "\xF3\xA0\x93\xBD" => "", # U+E04FD => "\xF3\xA0\x93\xBE" => "", # U+E04FE => "\xF3\xA0\x93\xBF" => "", # U+E04FF => "\xF3\xA0\x94\x80" => "", # U+E0500 => "\xF3\xA0\x94\x81" => "", # U+E0501 => "\xF3\xA0\x94\x82" => "", # U+E0502 => "\xF3\xA0\x94\x83" => "", # U+E0503 => "\xF3\xA0\x94\x84" => "", # U+E0504 => "\xF3\xA0\x94\x85" => "", # U+E0505 => "\xF3\xA0\x94\x86" => "", # U+E0506 => "\xF3\xA0\x94\x87" => "", # U+E0507 => "\xF3\xA0\x94\x88" => "", # U+E0508 => "\xF3\xA0\x94\x89" => "", # U+E0509 => "\xF3\xA0\x94\x8A" => "", # U+E050A => "\xF3\xA0\x94\x8B" => "", # U+E050B => "\xF3\xA0\x94\x8C" => "", # U+E050C => "\xF3\xA0\x94\x8D" => "", # U+E050D => "\xF3\xA0\x94\x8E" => "", # U+E050E => "\xF3\xA0\x94\x8F" => "", # U+E050F => "\xF3\xA0\x94\x90" => "", # U+E0510 => "\xF3\xA0\x94\x91" => "", # U+E0511 => "\xF3\xA0\x94\x92" => "", # U+E0512 => "\xF3\xA0\x94\x93" => "", # U+E0513 => "\xF3\xA0\x94\x94" => "", # U+E0514 => "\xF3\xA0\x94\x95" => "", # U+E0515 => "\xF3\xA0\x94\x96" => "", # U+E0516 => "\xF3\xA0\x94\x97" => "", # U+E0517 => "\xF3\xA0\x94\x98" => "", # U+E0518 => "\xF3\xA0\x94\x99" => "", # U+E0519 => "\xF3\xA0\x94\x9A" => "", # U+E051A => "\xF3\xA0\x94\x9B" => "", # U+E051B => "\xF3\xA0\x94\x9C" => "", # U+E051C => "\xF3\xA0\x94\x9D" => "", # U+E051D => "\xF3\xA0\x94\x9E" => "", # U+E051E => "\xF3\xA0\x94\x9F" => "", # U+E051F => "\xF3\xA0\x94\xA0" => "", # U+E0520 => "\xF3\xA0\x94\xA1" => "", # U+E0521 => "\xF3\xA0\x94\xA2" => "", # U+E0522 => "\xF3\xA0\x94\xA3" => "", # U+E0523 => "\xF3\xA0\x94\xA4" => "", # U+E0524 => "\xF3\xA0\x94\xA5" => "", # U+E0525 => "\xF3\xA0\x94\xA6" => "", # U+E0526 => "\xF3\xA0\x94\xA7" => "", # U+E0527 => "\xF3\xA0\x94\xA8" => "", # U+E0528 => "\xF3\xA0\x94\xA9" => "", # U+E0529 => "\xF3\xA0\x94\xAA" => "", # U+E052A => "\xF3\xA0\x94\xAB" => "", # U+E052B => "\xF3\xA0\x94\xAC" => "", # U+E052C => "\xF3\xA0\x94\xAD" => "", # U+E052D => "\xF3\xA0\x94\xAE" => "", # U+E052E => "\xF3\xA0\x94\xAF" => "", # U+E052F => "\xF3\xA0\x94\xB0" => "", # U+E0530 => "\xF3\xA0\x94\xB1" => "", # U+E0531 => "\xF3\xA0\x94\xB2" => "", # U+E0532 => "\xF3\xA0\x94\xB3" => "", # U+E0533 => "\xF3\xA0\x94\xB4" => "", # U+E0534 => "\xF3\xA0\x94\xB5" => "", # U+E0535 => "\xF3\xA0\x94\xB6" => "", # U+E0536 => "\xF3\xA0\x94\xB7" => "", # U+E0537 => "\xF3\xA0\x94\xB8" => "", # U+E0538 => "\xF3\xA0\x94\xB9" => "", # U+E0539 => "\xF3\xA0\x94\xBA" => "", # U+E053A => "\xF3\xA0\x94\xBB" => "", # U+E053B => "\xF3\xA0\x94\xBC" => "", # U+E053C => "\xF3\xA0\x94\xBD" => "", # U+E053D => "\xF3\xA0\x94\xBE" => "", # U+E053E => "\xF3\xA0\x94\xBF" => "", # U+E053F => "\xF3\xA0\x95\x80" => "", # U+E0540 => "\xF3\xA0\x95\x81" => "", # U+E0541 => "\xF3\xA0\x95\x82" => "", # U+E0542 => "\xF3\xA0\x95\x83" => "", # U+E0543 => "\xF3\xA0\x95\x84" => "", # U+E0544 => "\xF3\xA0\x95\x85" => "", # U+E0545 => "\xF3\xA0\x95\x86" => "", # U+E0546 => "\xF3\xA0\x95\x87" => "", # U+E0547 => "\xF3\xA0\x95\x88" => "", # U+E0548 => "\xF3\xA0\x95\x89" => "", # U+E0549 => "\xF3\xA0\x95\x8A" => "", # U+E054A => "\xF3\xA0\x95\x8B" => "", # U+E054B => "\xF3\xA0\x95\x8C" => "", # U+E054C => "\xF3\xA0\x95\x8D" => "", # U+E054D => "\xF3\xA0\x95\x8E" => "", # U+E054E => "\xF3\xA0\x95\x8F" => "", # U+E054F => "\xF3\xA0\x95\x90" => "", # U+E0550 => "\xF3\xA0\x95\x91" => "", # U+E0551 => "\xF3\xA0\x95\x92" => "", # U+E0552 => "\xF3\xA0\x95\x93" => "", # U+E0553 => "\xF3\xA0\x95\x94" => "", # U+E0554 => "\xF3\xA0\x95\x95" => "", # U+E0555 => "\xF3\xA0\x95\x96" => "", # U+E0556 => "\xF3\xA0\x95\x97" => "", # U+E0557 => "\xF3\xA0\x95\x98" => "", # U+E0558 => "\xF3\xA0\x95\x99" => "", # U+E0559 => "\xF3\xA0\x95\x9A" => "", # U+E055A => "\xF3\xA0\x95\x9B" => "", # U+E055B => "\xF3\xA0\x95\x9C" => "", # U+E055C => "\xF3\xA0\x95\x9D" => "", # U+E055D => "\xF3\xA0\x95\x9E" => "", # U+E055E => "\xF3\xA0\x95\x9F" => "", # U+E055F => "\xF3\xA0\x95\xA0" => "", # U+E0560 => "\xF3\xA0\x95\xA1" => "", # U+E0561 => "\xF3\xA0\x95\xA2" => "", # U+E0562 => "\xF3\xA0\x95\xA3" => "", # U+E0563 => "\xF3\xA0\x95\xA4" => "", # U+E0564 => "\xF3\xA0\x95\xA5" => "", # U+E0565 => "\xF3\xA0\x95\xA6" => "", # U+E0566 => "\xF3\xA0\x95\xA7" => "", # U+E0567 => "\xF3\xA0\x95\xA8" => "", # U+E0568 => "\xF3\xA0\x95\xA9" => "", # U+E0569 => "\xF3\xA0\x95\xAA" => "", # U+E056A => "\xF3\xA0\x95\xAB" => "", # U+E056B => "\xF3\xA0\x95\xAC" => "", # U+E056C => "\xF3\xA0\x95\xAD" => "", # U+E056D => "\xF3\xA0\x95\xAE" => "", # U+E056E => "\xF3\xA0\x95\xAF" => "", # U+E056F => "\xF3\xA0\x95\xB0" => "", # U+E0570 => "\xF3\xA0\x95\xB1" => "", # U+E0571 => "\xF3\xA0\x95\xB2" => "", # U+E0572 => "\xF3\xA0\x95\xB3" => "", # U+E0573 => "\xF3\xA0\x95\xB4" => "", # U+E0574 => "\xF3\xA0\x95\xB5" => "", # U+E0575 => "\xF3\xA0\x95\xB6" => "", # U+E0576 => "\xF3\xA0\x95\xB7" => "", # U+E0577 => "\xF3\xA0\x95\xB8" => "", # U+E0578 => "\xF3\xA0\x95\xB9" => "", # U+E0579 => "\xF3\xA0\x95\xBA" => "", # U+E057A => "\xF3\xA0\x95\xBB" => "", # U+E057B => "\xF3\xA0\x95\xBC" => "", # U+E057C => "\xF3\xA0\x95\xBD" => "", # U+E057D => "\xF3\xA0\x95\xBE" => "", # U+E057E => "\xF3\xA0\x95\xBF" => "", # U+E057F => "\xF3\xA0\x96\x80" => "", # U+E0580 => "\xF3\xA0\x96\x81" => "", # U+E0581 => "\xF3\xA0\x96\x82" => "", # U+E0582 => "\xF3\xA0\x96\x83" => "", # U+E0583 => "\xF3\xA0\x96\x84" => "", # U+E0584 => "\xF3\xA0\x96\x85" => "", # U+E0585 => "\xF3\xA0\x96\x86" => "", # U+E0586 => "\xF3\xA0\x96\x87" => "", # U+E0587 => "\xF3\xA0\x96\x88" => "", # U+E0588 => "\xF3\xA0\x96\x89" => "", # U+E0589 => "\xF3\xA0\x96\x8A" => "", # U+E058A => "\xF3\xA0\x96\x8B" => "", # U+E058B => "\xF3\xA0\x96\x8C" => "", # U+E058C => "\xF3\xA0\x96\x8D" => "", # U+E058D => "\xF3\xA0\x96\x8E" => "", # U+E058E => "\xF3\xA0\x96\x8F" => "", # U+E058F => "\xF3\xA0\x96\x90" => "", # U+E0590 => "\xF3\xA0\x96\x91" => "", # U+E0591 => "\xF3\xA0\x96\x92" => "", # U+E0592 => "\xF3\xA0\x96\x93" => "", # U+E0593 => "\xF3\xA0\x96\x94" => "", # U+E0594 => "\xF3\xA0\x96\x95" => "", # U+E0595 => "\xF3\xA0\x96\x96" => "", # U+E0596 => "\xF3\xA0\x96\x97" => "", # U+E0597 => "\xF3\xA0\x96\x98" => "", # U+E0598 => "\xF3\xA0\x96\x99" => "", # U+E0599 => "\xF3\xA0\x96\x9A" => "", # U+E059A => "\xF3\xA0\x96\x9B" => "", # U+E059B => "\xF3\xA0\x96\x9C" => "", # U+E059C => "\xF3\xA0\x96\x9D" => "", # U+E059D => "\xF3\xA0\x96\x9E" => "", # U+E059E => "\xF3\xA0\x96\x9F" => "", # U+E059F => "\xF3\xA0\x96\xA0" => "", # U+E05A0 => "\xF3\xA0\x96\xA1" => "", # U+E05A1 => "\xF3\xA0\x96\xA2" => "", # U+E05A2 => "\xF3\xA0\x96\xA3" => "", # U+E05A3 => "\xF3\xA0\x96\xA4" => "", # U+E05A4 => "\xF3\xA0\x96\xA5" => "", # U+E05A5 => "\xF3\xA0\x96\xA6" => "", # U+E05A6 => "\xF3\xA0\x96\xA7" => "", # U+E05A7 => "\xF3\xA0\x96\xA8" => "", # U+E05A8 => "\xF3\xA0\x96\xA9" => "", # U+E05A9 => "\xF3\xA0\x96\xAA" => "", # U+E05AA => "\xF3\xA0\x96\xAB" => "", # U+E05AB => "\xF3\xA0\x96\xAC" => "", # U+E05AC => "\xF3\xA0\x96\xAD" => "", # U+E05AD => "\xF3\xA0\x96\xAE" => "", # U+E05AE => "\xF3\xA0\x96\xAF" => "", # U+E05AF => "\xF3\xA0\x96\xB0" => "", # U+E05B0 => "\xF3\xA0\x96\xB1" => "", # U+E05B1 => "\xF3\xA0\x96\xB2" => "", # U+E05B2 => "\xF3\xA0\x96\xB3" => "", # U+E05B3 => "\xF3\xA0\x96\xB4" => "", # U+E05B4 => "\xF3\xA0\x96\xB5" => "", # U+E05B5 => "\xF3\xA0\x96\xB6" => "", # U+E05B6 => "\xF3\xA0\x96\xB7" => "", # U+E05B7 => "\xF3\xA0\x96\xB8" => "", # U+E05B8 => "\xF3\xA0\x96\xB9" => "", # U+E05B9 => "\xF3\xA0\x96\xBA" => "", # U+E05BA => "\xF3\xA0\x96\xBB" => "", # U+E05BB => "\xF3\xA0\x96\xBC" => "", # U+E05BC => "\xF3\xA0\x96\xBD" => "", # U+E05BD => "\xF3\xA0\x96\xBE" => "", # U+E05BE => "\xF3\xA0\x96\xBF" => "", # U+E05BF => "\xF3\xA0\x97\x80" => "", # U+E05C0 => "\xF3\xA0\x97\x81" => "", # U+E05C1 => "\xF3\xA0\x97\x82" => "", # U+E05C2 => "\xF3\xA0\x97\x83" => "", # U+E05C3 => "\xF3\xA0\x97\x84" => "", # U+E05C4 => "\xF3\xA0\x97\x85" => "", # U+E05C5 => "\xF3\xA0\x97\x86" => "", # U+E05C6 => "\xF3\xA0\x97\x87" => "", # U+E05C7 => "\xF3\xA0\x97\x88" => "", # U+E05C8 => "\xF3\xA0\x97\x89" => "", # U+E05C9 => "\xF3\xA0\x97\x8A" => "", # U+E05CA => "\xF3\xA0\x97\x8B" => "", # U+E05CB => "\xF3\xA0\x97\x8C" => "", # U+E05CC => "\xF3\xA0\x97\x8D" => "", # U+E05CD => "\xF3\xA0\x97\x8E" => "", # U+E05CE => "\xF3\xA0\x97\x8F" => "", # U+E05CF => "\xF3\xA0\x97\x90" => "", # U+E05D0 => "\xF3\xA0\x97\x91" => "", # U+E05D1 => "\xF3\xA0\x97\x92" => "", # U+E05D2 => "\xF3\xA0\x97\x93" => "", # U+E05D3 => "\xF3\xA0\x97\x94" => "", # U+E05D4 => "\xF3\xA0\x97\x95" => "", # U+E05D5 => "\xF3\xA0\x97\x96" => "", # U+E05D6 => "\xF3\xA0\x97\x97" => "", # U+E05D7 => "\xF3\xA0\x97\x98" => "", # U+E05D8 => "\xF3\xA0\x97\x99" => "", # U+E05D9 => "\xF3\xA0\x97\x9A" => "", # U+E05DA => "\xF3\xA0\x97\x9B" => "", # U+E05DB => "\xF3\xA0\x97\x9C" => "", # U+E05DC => "\xF3\xA0\x97\x9D" => "", # U+E05DD => "\xF3\xA0\x97\x9E" => "", # U+E05DE => "\xF3\xA0\x97\x9F" => "", # U+E05DF => "\xF3\xA0\x97\xA0" => "", # U+E05E0 => "\xF3\xA0\x97\xA1" => "", # U+E05E1 => "\xF3\xA0\x97\xA2" => "", # U+E05E2 => "\xF3\xA0\x97\xA3" => "", # U+E05E3 => "\xF3\xA0\x97\xA4" => "", # U+E05E4 => "\xF3\xA0\x97\xA5" => "", # U+E05E5 => "\xF3\xA0\x97\xA6" => "", # U+E05E6 => "\xF3\xA0\x97\xA7" => "", # U+E05E7 => "\xF3\xA0\x97\xA8" => "", # U+E05E8 => "\xF3\xA0\x97\xA9" => "", # U+E05E9 => "\xF3\xA0\x97\xAA" => "", # U+E05EA => "\xF3\xA0\x97\xAB" => "", # U+E05EB => "\xF3\xA0\x97\xAC" => "", # U+E05EC => "\xF3\xA0\x97\xAD" => "", # U+E05ED => "\xF3\xA0\x97\xAE" => "", # U+E05EE => "\xF3\xA0\x97\xAF" => "", # U+E05EF => "\xF3\xA0\x97\xB0" => "", # U+E05F0 => "\xF3\xA0\x97\xB1" => "", # U+E05F1 => "\xF3\xA0\x97\xB2" => "", # U+E05F2 => "\xF3\xA0\x97\xB3" => "", # U+E05F3 => "\xF3\xA0\x97\xB4" => "", # U+E05F4 => "\xF3\xA0\x97\xB5" => "", # U+E05F5 => "\xF3\xA0\x97\xB6" => "", # U+E05F6 => "\xF3\xA0\x97\xB7" => "", # U+E05F7 => "\xF3\xA0\x97\xB8" => "", # U+E05F8 => "\xF3\xA0\x97\xB9" => "", # U+E05F9 => "\xF3\xA0\x97\xBA" => "", # U+E05FA => "\xF3\xA0\x97\xBB" => "", # U+E05FB => "\xF3\xA0\x97\xBC" => "", # U+E05FC => "\xF3\xA0\x97\xBD" => "", # U+E05FD => "\xF3\xA0\x97\xBE" => "", # U+E05FE => "\xF3\xA0\x97\xBF" => "", # U+E05FF => "\xF3\xA0\x98\x80" => "", # U+E0600 => "\xF3\xA0\x98\x81" => "", # U+E0601 => "\xF3\xA0\x98\x82" => "", # U+E0602 => "\xF3\xA0\x98\x83" => "", # U+E0603 => "\xF3\xA0\x98\x84" => "", # U+E0604 => "\xF3\xA0\x98\x85" => "", # U+E0605 => "\xF3\xA0\x98\x86" => "", # U+E0606 => "\xF3\xA0\x98\x87" => "", # U+E0607 => "\xF3\xA0\x98\x88" => "", # U+E0608 => "\xF3\xA0\x98\x89" => "", # U+E0609 => "\xF3\xA0\x98\x8A" => "", # U+E060A => "\xF3\xA0\x98\x8B" => "", # U+E060B => "\xF3\xA0\x98\x8C" => "", # U+E060C => "\xF3\xA0\x98\x8D" => "", # U+E060D => "\xF3\xA0\x98\x8E" => "", # U+E060E => "\xF3\xA0\x98\x8F" => "", # U+E060F => "\xF3\xA0\x98\x90" => "", # U+E0610 => "\xF3\xA0\x98\x91" => "", # U+E0611 => "\xF3\xA0\x98\x92" => "", # U+E0612 => "\xF3\xA0\x98\x93" => "", # U+E0613 => "\xF3\xA0\x98\x94" => "", # U+E0614 => "\xF3\xA0\x98\x95" => "", # U+E0615 => "\xF3\xA0\x98\x96" => "", # U+E0616 => "\xF3\xA0\x98\x97" => "", # U+E0617 => "\xF3\xA0\x98\x98" => "", # U+E0618 => "\xF3\xA0\x98\x99" => "", # U+E0619 => "\xF3\xA0\x98\x9A" => "", # U+E061A => "\xF3\xA0\x98\x9B" => "", # U+E061B => "\xF3\xA0\x98\x9C" => "", # U+E061C => "\xF3\xA0\x98\x9D" => "", # U+E061D => "\xF3\xA0\x98\x9E" => "", # U+E061E => "\xF3\xA0\x98\x9F" => "", # U+E061F => "\xF3\xA0\x98\xA0" => "", # U+E0620 => "\xF3\xA0\x98\xA1" => "", # U+E0621 => "\xF3\xA0\x98\xA2" => "", # U+E0622 => "\xF3\xA0\x98\xA3" => "", # U+E0623 => "\xF3\xA0\x98\xA4" => "", # U+E0624 => "\xF3\xA0\x98\xA5" => "", # U+E0625 => "\xF3\xA0\x98\xA6" => "", # U+E0626 => "\xF3\xA0\x98\xA7" => "", # U+E0627 => "\xF3\xA0\x98\xA8" => "", # U+E0628 => "\xF3\xA0\x98\xA9" => "", # U+E0629 => "\xF3\xA0\x98\xAA" => "", # U+E062A => "\xF3\xA0\x98\xAB" => "", # U+E062B => "\xF3\xA0\x98\xAC" => "", # U+E062C => "\xF3\xA0\x98\xAD" => "", # U+E062D => "\xF3\xA0\x98\xAE" => "", # U+E062E => "\xF3\xA0\x98\xAF" => "", # U+E062F => "\xF3\xA0\x98\xB0" => "", # U+E0630 => "\xF3\xA0\x98\xB1" => "", # U+E0631 => "\xF3\xA0\x98\xB2" => "", # U+E0632 => "\xF3\xA0\x98\xB3" => "", # U+E0633 => "\xF3\xA0\x98\xB4" => "", # U+E0634 => "\xF3\xA0\x98\xB5" => "", # U+E0635 => "\xF3\xA0\x98\xB6" => "", # U+E0636 => "\xF3\xA0\x98\xB7" => "", # U+E0637 => "\xF3\xA0\x98\xB8" => "", # U+E0638 => "\xF3\xA0\x98\xB9" => "", # U+E0639 => "\xF3\xA0\x98\xBA" => "", # U+E063A => "\xF3\xA0\x98\xBB" => "", # U+E063B => "\xF3\xA0\x98\xBC" => "", # U+E063C => "\xF3\xA0\x98\xBD" => "", # U+E063D => "\xF3\xA0\x98\xBE" => "", # U+E063E => "\xF3\xA0\x98\xBF" => "", # U+E063F => "\xF3\xA0\x99\x80" => "", # U+E0640 => "\xF3\xA0\x99\x81" => "", # U+E0641 => "\xF3\xA0\x99\x82" => "", # U+E0642 => "\xF3\xA0\x99\x83" => "", # U+E0643 => "\xF3\xA0\x99\x84" => "", # U+E0644 => "\xF3\xA0\x99\x85" => "", # U+E0645 => "\xF3\xA0\x99\x86" => "", # U+E0646 => "\xF3\xA0\x99\x87" => "", # U+E0647 => "\xF3\xA0\x99\x88" => "", # U+E0648 => "\xF3\xA0\x99\x89" => "", # U+E0649 => "\xF3\xA0\x99\x8A" => "", # U+E064A => "\xF3\xA0\x99\x8B" => "", # U+E064B => "\xF3\xA0\x99\x8C" => "", # U+E064C => "\xF3\xA0\x99\x8D" => "", # U+E064D => "\xF3\xA0\x99\x8E" => "", # U+E064E => "\xF3\xA0\x99\x8F" => "", # U+E064F => "\xF3\xA0\x99\x90" => "", # U+E0650 => "\xF3\xA0\x99\x91" => "", # U+E0651 => "\xF3\xA0\x99\x92" => "", # U+E0652 => "\xF3\xA0\x99\x93" => "", # U+E0653 => "\xF3\xA0\x99\x94" => "", # U+E0654 => "\xF3\xA0\x99\x95" => "", # U+E0655 => "\xF3\xA0\x99\x96" => "", # U+E0656 => "\xF3\xA0\x99\x97" => "", # U+E0657 => "\xF3\xA0\x99\x98" => "", # U+E0658 => "\xF3\xA0\x99\x99" => "", # U+E0659 => "\xF3\xA0\x99\x9A" => "", # U+E065A => "\xF3\xA0\x99\x9B" => "", # U+E065B => "\xF3\xA0\x99\x9C" => "", # U+E065C => "\xF3\xA0\x99\x9D" => "", # U+E065D => "\xF3\xA0\x99\x9E" => "", # U+E065E => "\xF3\xA0\x99\x9F" => "", # U+E065F => "\xF3\xA0\x99\xA0" => "", # U+E0660 => "\xF3\xA0\x99\xA1" => "", # U+E0661 => "\xF3\xA0\x99\xA2" => "", # U+E0662 => "\xF3\xA0\x99\xA3" => "", # U+E0663 => "\xF3\xA0\x99\xA4" => "", # U+E0664 => "\xF3\xA0\x99\xA5" => "", # U+E0665 => "\xF3\xA0\x99\xA6" => "", # U+E0666 => "\xF3\xA0\x99\xA7" => "", # U+E0667 => "\xF3\xA0\x99\xA8" => "", # U+E0668 => "\xF3\xA0\x99\xA9" => "", # U+E0669 => "\xF3\xA0\x99\xAA" => "", # U+E066A => "\xF3\xA0\x99\xAB" => "", # U+E066B => "\xF3\xA0\x99\xAC" => "", # U+E066C => "\xF3\xA0\x99\xAD" => "", # U+E066D => "\xF3\xA0\x99\xAE" => "", # U+E066E => "\xF3\xA0\x99\xAF" => "", # U+E066F => "\xF3\xA0\x99\xB0" => "", # U+E0670 => "\xF3\xA0\x99\xB1" => "", # U+E0671 => "\xF3\xA0\x99\xB2" => "", # U+E0672 => "\xF3\xA0\x99\xB3" => "", # U+E0673 => "\xF3\xA0\x99\xB4" => "", # U+E0674 => "\xF3\xA0\x99\xB5" => "", # U+E0675 => "\xF3\xA0\x99\xB6" => "", # U+E0676 => "\xF3\xA0\x99\xB7" => "", # U+E0677 => "\xF3\xA0\x99\xB8" => "", # U+E0678 => "\xF3\xA0\x99\xB9" => "", # U+E0679 => "\xF3\xA0\x99\xBA" => "", # U+E067A => "\xF3\xA0\x99\xBB" => "", # U+E067B => "\xF3\xA0\x99\xBC" => "", # U+E067C => "\xF3\xA0\x99\xBD" => "", # U+E067D => "\xF3\xA0\x99\xBE" => "", # U+E067E => "\xF3\xA0\x99\xBF" => "", # U+E067F => "\xF3\xA0\x9A\x80" => "", # U+E0680 => "\xF3\xA0\x9A\x81" => "", # U+E0681 => "\xF3\xA0\x9A\x82" => "", # U+E0682 => "\xF3\xA0\x9A\x83" => "", # U+E0683 => "\xF3\xA0\x9A\x84" => "", # U+E0684 => "\xF3\xA0\x9A\x85" => "", # U+E0685 => "\xF3\xA0\x9A\x86" => "", # U+E0686 => "\xF3\xA0\x9A\x87" => "", # U+E0687 => "\xF3\xA0\x9A\x88" => "", # U+E0688 => "\xF3\xA0\x9A\x89" => "", # U+E0689 => "\xF3\xA0\x9A\x8A" => "", # U+E068A => "\xF3\xA0\x9A\x8B" => "", # U+E068B => "\xF3\xA0\x9A\x8C" => "", # U+E068C => "\xF3\xA0\x9A\x8D" => "", # U+E068D => "\xF3\xA0\x9A\x8E" => "", # U+E068E => "\xF3\xA0\x9A\x8F" => "", # U+E068F => "\xF3\xA0\x9A\x90" => "", # U+E0690 => "\xF3\xA0\x9A\x91" => "", # U+E0691 => "\xF3\xA0\x9A\x92" => "", # U+E0692 => "\xF3\xA0\x9A\x93" => "", # U+E0693 => "\xF3\xA0\x9A\x94" => "", # U+E0694 => "\xF3\xA0\x9A\x95" => "", # U+E0695 => "\xF3\xA0\x9A\x96" => "", # U+E0696 => "\xF3\xA0\x9A\x97" => "", # U+E0697 => "\xF3\xA0\x9A\x98" => "", # U+E0698 => "\xF3\xA0\x9A\x99" => "", # U+E0699 => "\xF3\xA0\x9A\x9A" => "", # U+E069A => "\xF3\xA0\x9A\x9B" => "", # U+E069B => "\xF3\xA0\x9A\x9C" => "", # U+E069C => "\xF3\xA0\x9A\x9D" => "", # U+E069D => "\xF3\xA0\x9A\x9E" => "", # U+E069E => "\xF3\xA0\x9A\x9F" => "", # U+E069F => "\xF3\xA0\x9A\xA0" => "", # U+E06A0 => "\xF3\xA0\x9A\xA1" => "", # U+E06A1 => "\xF3\xA0\x9A\xA2" => "", # U+E06A2 => "\xF3\xA0\x9A\xA3" => "", # U+E06A3 => "\xF3\xA0\x9A\xA4" => "", # U+E06A4 => "\xF3\xA0\x9A\xA5" => "", # U+E06A5 => "\xF3\xA0\x9A\xA6" => "", # U+E06A6 => "\xF3\xA0\x9A\xA7" => "", # U+E06A7 => "\xF3\xA0\x9A\xA8" => "", # U+E06A8 => "\xF3\xA0\x9A\xA9" => "", # U+E06A9 => "\xF3\xA0\x9A\xAA" => "", # U+E06AA => "\xF3\xA0\x9A\xAB" => "", # U+E06AB => "\xF3\xA0\x9A\xAC" => "", # U+E06AC => "\xF3\xA0\x9A\xAD" => "", # U+E06AD => "\xF3\xA0\x9A\xAE" => "", # U+E06AE => "\xF3\xA0\x9A\xAF" => "", # U+E06AF => "\xF3\xA0\x9A\xB0" => "", # U+E06B0 => "\xF3\xA0\x9A\xB1" => "", # U+E06B1 => "\xF3\xA0\x9A\xB2" => "", # U+E06B2 => "\xF3\xA0\x9A\xB3" => "", # U+E06B3 => "\xF3\xA0\x9A\xB4" => "", # U+E06B4 => "\xF3\xA0\x9A\xB5" => "", # U+E06B5 => "\xF3\xA0\x9A\xB6" => "", # U+E06B6 => "\xF3\xA0\x9A\xB7" => "", # U+E06B7 => "\xF3\xA0\x9A\xB8" => "", # U+E06B8 => "\xF3\xA0\x9A\xB9" => "", # U+E06B9 => "\xF3\xA0\x9A\xBA" => "", # U+E06BA => "\xF3\xA0\x9A\xBB" => "", # U+E06BB => "\xF3\xA0\x9A\xBC" => "", # U+E06BC => "\xF3\xA0\x9A\xBD" => "", # U+E06BD => "\xF3\xA0\x9A\xBE" => "", # U+E06BE => "\xF3\xA0\x9A\xBF" => "", # U+E06BF => "\xF3\xA0\x9B\x80" => "", # U+E06C0 => "\xF3\xA0\x9B\x81" => "", # U+E06C1 => "\xF3\xA0\x9B\x82" => "", # U+E06C2 => "\xF3\xA0\x9B\x83" => "", # U+E06C3 => "\xF3\xA0\x9B\x84" => "", # U+E06C4 => "\xF3\xA0\x9B\x85" => "", # U+E06C5 => "\xF3\xA0\x9B\x86" => "", # U+E06C6 => "\xF3\xA0\x9B\x87" => "", # U+E06C7 => "\xF3\xA0\x9B\x88" => "", # U+E06C8 => "\xF3\xA0\x9B\x89" => "", # U+E06C9 => "\xF3\xA0\x9B\x8A" => "", # U+E06CA => "\xF3\xA0\x9B\x8B" => "", # U+E06CB => "\xF3\xA0\x9B\x8C" => "", # U+E06CC => "\xF3\xA0\x9B\x8D" => "", # U+E06CD => "\xF3\xA0\x9B\x8E" => "", # U+E06CE => "\xF3\xA0\x9B\x8F" => "", # U+E06CF => "\xF3\xA0\x9B\x90" => "", # U+E06D0 => "\xF3\xA0\x9B\x91" => "", # U+E06D1 => "\xF3\xA0\x9B\x92" => "", # U+E06D2 => "\xF3\xA0\x9B\x93" => "", # U+E06D3 => "\xF3\xA0\x9B\x94" => "", # U+E06D4 => "\xF3\xA0\x9B\x95" => "", # U+E06D5 => "\xF3\xA0\x9B\x96" => "", # U+E06D6 => "\xF3\xA0\x9B\x97" => "", # U+E06D7 => "\xF3\xA0\x9B\x98" => "", # U+E06D8 => "\xF3\xA0\x9B\x99" => "", # U+E06D9 => "\xF3\xA0\x9B\x9A" => "", # U+E06DA => "\xF3\xA0\x9B\x9B" => "", # U+E06DB => "\xF3\xA0\x9B\x9C" => "", # U+E06DC => "\xF3\xA0\x9B\x9D" => "", # U+E06DD => "\xF3\xA0\x9B\x9E" => "", # U+E06DE => "\xF3\xA0\x9B\x9F" => "", # U+E06DF => "\xF3\xA0\x9B\xA0" => "", # U+E06E0 => "\xF3\xA0\x9B\xA1" => "", # U+E06E1 => "\xF3\xA0\x9B\xA2" => "", # U+E06E2 => "\xF3\xA0\x9B\xA3" => "", # U+E06E3 => "\xF3\xA0\x9B\xA4" => "", # U+E06E4 => "\xF3\xA0\x9B\xA5" => "", # U+E06E5 => "\xF3\xA0\x9B\xA6" => "", # U+E06E6 => "\xF3\xA0\x9B\xA7" => "", # U+E06E7 => "\xF3\xA0\x9B\xA8" => "", # U+E06E8 => "\xF3\xA0\x9B\xA9" => "", # U+E06E9 => "\xF3\xA0\x9B\xAA" => "", # U+E06EA => "\xF3\xA0\x9B\xAB" => "", # U+E06EB => "\xF3\xA0\x9B\xAC" => "", # U+E06EC => "\xF3\xA0\x9B\xAD" => "", # U+E06ED => "\xF3\xA0\x9B\xAE" => "", # U+E06EE => "\xF3\xA0\x9B\xAF" => "", # U+E06EF => "\xF3\xA0\x9B\xB0" => "", # U+E06F0 => "\xF3\xA0\x9B\xB1" => "", # U+E06F1 => "\xF3\xA0\x9B\xB2" => "", # U+E06F2 => "\xF3\xA0\x9B\xB3" => "", # U+E06F3 => "\xF3\xA0\x9B\xB4" => "", # U+E06F4 => "\xF3\xA0\x9B\xB5" => "", # U+E06F5 => "\xF3\xA0\x9B\xB6" => "", # U+E06F6 => "\xF3\xA0\x9B\xB7" => "", # U+E06F7 => "\xF3\xA0\x9B\xB8" => "", # U+E06F8 => "\xF3\xA0\x9B\xB9" => "", # U+E06F9 => "\xF3\xA0\x9B\xBA" => "", # U+E06FA => "\xF3\xA0\x9B\xBB" => "", # U+E06FB => "\xF3\xA0\x9B\xBC" => "", # U+E06FC => "\xF3\xA0\x9B\xBD" => "", # U+E06FD => "\xF3\xA0\x9B\xBE" => "", # U+E06FE => "\xF3\xA0\x9B\xBF" => "", # U+E06FF => "\xF3\xA0\x9C\x80" => "", # U+E0700 => "\xF3\xA0\x9C\x81" => "", # U+E0701 => "\xF3\xA0\x9C\x82" => "", # U+E0702 => "\xF3\xA0\x9C\x83" => "", # U+E0703 => "\xF3\xA0\x9C\x84" => "", # U+E0704 => "\xF3\xA0\x9C\x85" => "", # U+E0705 => "\xF3\xA0\x9C\x86" => "", # U+E0706 => "\xF3\xA0\x9C\x87" => "", # U+E0707 => "\xF3\xA0\x9C\x88" => "", # U+E0708 => "\xF3\xA0\x9C\x89" => "", # U+E0709 => "\xF3\xA0\x9C\x8A" => "", # U+E070A => "\xF3\xA0\x9C\x8B" => "", # U+E070B => "\xF3\xA0\x9C\x8C" => "", # U+E070C => "\xF3\xA0\x9C\x8D" => "", # U+E070D => "\xF3\xA0\x9C\x8E" => "", # U+E070E => "\xF3\xA0\x9C\x8F" => "", # U+E070F => "\xF3\xA0\x9C\x90" => "", # U+E0710 => "\xF3\xA0\x9C\x91" => "", # U+E0711 => "\xF3\xA0\x9C\x92" => "", # U+E0712 => "\xF3\xA0\x9C\x93" => "", # U+E0713 => "\xF3\xA0\x9C\x94" => "", # U+E0714 => "\xF3\xA0\x9C\x95" => "", # U+E0715 => "\xF3\xA0\x9C\x96" => "", # U+E0716 => "\xF3\xA0\x9C\x97" => "", # U+E0717 => "\xF3\xA0\x9C\x98" => "", # U+E0718 => "\xF3\xA0\x9C\x99" => "", # U+E0719 => "\xF3\xA0\x9C\x9A" => "", # U+E071A => "\xF3\xA0\x9C\x9B" => "", # U+E071B => "\xF3\xA0\x9C\x9C" => "", # U+E071C => "\xF3\xA0\x9C\x9D" => "", # U+E071D => "\xF3\xA0\x9C\x9E" => "", # U+E071E => "\xF3\xA0\x9C\x9F" => "", # U+E071F => "\xF3\xA0\x9C\xA0" => "", # U+E0720 => "\xF3\xA0\x9C\xA1" => "", # U+E0721 => "\xF3\xA0\x9C\xA2" => "", # U+E0722 => "\xF3\xA0\x9C\xA3" => "", # U+E0723 => "\xF3\xA0\x9C\xA4" => "", # U+E0724 => "\xF3\xA0\x9C\xA5" => "", # U+E0725 => "\xF3\xA0\x9C\xA6" => "", # U+E0726 => "\xF3\xA0\x9C\xA7" => "", # U+E0727 => "\xF3\xA0\x9C\xA8" => "", # U+E0728 => "\xF3\xA0\x9C\xA9" => "", # U+E0729 => "\xF3\xA0\x9C\xAA" => "", # U+E072A => "\xF3\xA0\x9C\xAB" => "", # U+E072B => "\xF3\xA0\x9C\xAC" => "", # U+E072C => "\xF3\xA0\x9C\xAD" => "", # U+E072D => "\xF3\xA0\x9C\xAE" => "", # U+E072E => "\xF3\xA0\x9C\xAF" => "", # U+E072F => "\xF3\xA0\x9C\xB0" => "", # U+E0730 => "\xF3\xA0\x9C\xB1" => "", # U+E0731 => "\xF3\xA0\x9C\xB2" => "", # U+E0732 => "\xF3\xA0\x9C\xB3" => "", # U+E0733 => "\xF3\xA0\x9C\xB4" => "", # U+E0734 => "\xF3\xA0\x9C\xB5" => "", # U+E0735 => "\xF3\xA0\x9C\xB6" => "", # U+E0736 => "\xF3\xA0\x9C\xB7" => "", # U+E0737 => "\xF3\xA0\x9C\xB8" => "", # U+E0738 => "\xF3\xA0\x9C\xB9" => "", # U+E0739 => "\xF3\xA0\x9C\xBA" => "", # U+E073A => "\xF3\xA0\x9C\xBB" => "", # U+E073B => "\xF3\xA0\x9C\xBC" => "", # U+E073C => "\xF3\xA0\x9C\xBD" => "", # U+E073D => "\xF3\xA0\x9C\xBE" => "", # U+E073E => "\xF3\xA0\x9C\xBF" => "", # U+E073F => "\xF3\xA0\x9D\x80" => "", # U+E0740 => "\xF3\xA0\x9D\x81" => "", # U+E0741 => "\xF3\xA0\x9D\x82" => "", # U+E0742 => "\xF3\xA0\x9D\x83" => "", # U+E0743 => "\xF3\xA0\x9D\x84" => "", # U+E0744 => "\xF3\xA0\x9D\x85" => "", # U+E0745 => "\xF3\xA0\x9D\x86" => "", # U+E0746 => "\xF3\xA0\x9D\x87" => "", # U+E0747 => "\xF3\xA0\x9D\x88" => "", # U+E0748 => "\xF3\xA0\x9D\x89" => "", # U+E0749 => "\xF3\xA0\x9D\x8A" => "", # U+E074A => "\xF3\xA0\x9D\x8B" => "", # U+E074B => "\xF3\xA0\x9D\x8C" => "", # U+E074C => "\xF3\xA0\x9D\x8D" => "", # U+E074D => "\xF3\xA0\x9D\x8E" => "", # U+E074E => "\xF3\xA0\x9D\x8F" => "", # U+E074F => "\xF3\xA0\x9D\x90" => "", # U+E0750 => "\xF3\xA0\x9D\x91" => "", # U+E0751 => "\xF3\xA0\x9D\x92" => "", # U+E0752 => "\xF3\xA0\x9D\x93" => "", # U+E0753 => "\xF3\xA0\x9D\x94" => "", # U+E0754 => "\xF3\xA0\x9D\x95" => "", # U+E0755 => "\xF3\xA0\x9D\x96" => "", # U+E0756 => "\xF3\xA0\x9D\x97" => "", # U+E0757 => "\xF3\xA0\x9D\x98" => "", # U+E0758 => "\xF3\xA0\x9D\x99" => "", # U+E0759 => "\xF3\xA0\x9D\x9A" => "", # U+E075A => "\xF3\xA0\x9D\x9B" => "", # U+E075B => "\xF3\xA0\x9D\x9C" => "", # U+E075C => "\xF3\xA0\x9D\x9D" => "", # U+E075D => "\xF3\xA0\x9D\x9E" => "", # U+E075E => "\xF3\xA0\x9D\x9F" => "", # U+E075F => "\xF3\xA0\x9D\xA0" => "", # U+E0760 => "\xF3\xA0\x9D\xA1" => "", # U+E0761 => "\xF3\xA0\x9D\xA2" => "", # U+E0762 => "\xF3\xA0\x9D\xA3" => "", # U+E0763 => "\xF3\xA0\x9D\xA4" => "", # U+E0764 => "\xF3\xA0\x9D\xA5" => "", # U+E0765 => "\xF3\xA0\x9D\xA6" => "", # U+E0766 => "\xF3\xA0\x9D\xA7" => "", # U+E0767 => "\xF3\xA0\x9D\xA8" => "", # U+E0768 => "\xF3\xA0\x9D\xA9" => "", # U+E0769 => "\xF3\xA0\x9D\xAA" => "", # U+E076A => "\xF3\xA0\x9D\xAB" => "", # U+E076B => "\xF3\xA0\x9D\xAC" => "", # U+E076C => "\xF3\xA0\x9D\xAD" => "", # U+E076D => "\xF3\xA0\x9D\xAE" => "", # U+E076E => "\xF3\xA0\x9D\xAF" => "", # U+E076F => "\xF3\xA0\x9D\xB0" => "", # U+E0770 => "\xF3\xA0\x9D\xB1" => "", # U+E0771 => "\xF3\xA0\x9D\xB2" => "", # U+E0772 => "\xF3\xA0\x9D\xB3" => "", # U+E0773 => "\xF3\xA0\x9D\xB4" => "", # U+E0774 => "\xF3\xA0\x9D\xB5" => "", # U+E0775 => "\xF3\xA0\x9D\xB6" => "", # U+E0776 => "\xF3\xA0\x9D\xB7" => "", # U+E0777 => "\xF3\xA0\x9D\xB8" => "", # U+E0778 => "\xF3\xA0\x9D\xB9" => "", # U+E0779 => "\xF3\xA0\x9D\xBA" => "", # U+E077A => "\xF3\xA0\x9D\xBB" => "", # U+E077B => "\xF3\xA0\x9D\xBC" => "", # U+E077C => "\xF3\xA0\x9D\xBD" => "", # U+E077D => "\xF3\xA0\x9D\xBE" => "", # U+E077E => "\xF3\xA0\x9D\xBF" => "", # U+E077F => "\xF3\xA0\x9E\x80" => "", # U+E0780 => "\xF3\xA0\x9E\x81" => "", # U+E0781 => "\xF3\xA0\x9E\x82" => "", # U+E0782 => "\xF3\xA0\x9E\x83" => "", # U+E0783 => "\xF3\xA0\x9E\x84" => "", # U+E0784 => "\xF3\xA0\x9E\x85" => "", # U+E0785 => "\xF3\xA0\x9E\x86" => "", # U+E0786 => "\xF3\xA0\x9E\x87" => "", # U+E0787 => "\xF3\xA0\x9E\x88" => "", # U+E0788 => "\xF3\xA0\x9E\x89" => "", # U+E0789 => "\xF3\xA0\x9E\x8A" => "", # U+E078A => "\xF3\xA0\x9E\x8B" => "", # U+E078B => "\xF3\xA0\x9E\x8C" => "", # U+E078C => "\xF3\xA0\x9E\x8D" => "", # U+E078D => "\xF3\xA0\x9E\x8E" => "", # U+E078E => "\xF3\xA0\x9E\x8F" => "", # U+E078F => "\xF3\xA0\x9E\x90" => "", # U+E0790 => "\xF3\xA0\x9E\x91" => "", # U+E0791 => "\xF3\xA0\x9E\x92" => "", # U+E0792 => "\xF3\xA0\x9E\x93" => "", # U+E0793 => "\xF3\xA0\x9E\x94" => "", # U+E0794 => "\xF3\xA0\x9E\x95" => "", # U+E0795 => "\xF3\xA0\x9E\x96" => "", # U+E0796 => "\xF3\xA0\x9E\x97" => "", # U+E0797 => "\xF3\xA0\x9E\x98" => "", # U+E0798 => "\xF3\xA0\x9E\x99" => "", # U+E0799 => "\xF3\xA0\x9E\x9A" => "", # U+E079A => "\xF3\xA0\x9E\x9B" => "", # U+E079B => "\xF3\xA0\x9E\x9C" => "", # U+E079C => "\xF3\xA0\x9E\x9D" => "", # U+E079D => "\xF3\xA0\x9E\x9E" => "", # U+E079E => "\xF3\xA0\x9E\x9F" => "", # U+E079F => "\xF3\xA0\x9E\xA0" => "", # U+E07A0 => "\xF3\xA0\x9E\xA1" => "", # U+E07A1 => "\xF3\xA0\x9E\xA2" => "", # U+E07A2 => "\xF3\xA0\x9E\xA3" => "", # U+E07A3 => "\xF3\xA0\x9E\xA4" => "", # U+E07A4 => "\xF3\xA0\x9E\xA5" => "", # U+E07A5 => "\xF3\xA0\x9E\xA6" => "", # U+E07A6 => "\xF3\xA0\x9E\xA7" => "", # U+E07A7 => "\xF3\xA0\x9E\xA8" => "", # U+E07A8 => "\xF3\xA0\x9E\xA9" => "", # U+E07A9 => "\xF3\xA0\x9E\xAA" => "", # U+E07AA => "\xF3\xA0\x9E\xAB" => "", # U+E07AB => "\xF3\xA0\x9E\xAC" => "", # U+E07AC => "\xF3\xA0\x9E\xAD" => "", # U+E07AD => "\xF3\xA0\x9E\xAE" => "", # U+E07AE => "\xF3\xA0\x9E\xAF" => "", # U+E07AF => "\xF3\xA0\x9E\xB0" => "", # U+E07B0 => "\xF3\xA0\x9E\xB1" => "", # U+E07B1 => "\xF3\xA0\x9E\xB2" => "", # U+E07B2 => "\xF3\xA0\x9E\xB3" => "", # U+E07B3 => "\xF3\xA0\x9E\xB4" => "", # U+E07B4 => "\xF3\xA0\x9E\xB5" => "", # U+E07B5 => "\xF3\xA0\x9E\xB6" => "", # U+E07B6 => "\xF3\xA0\x9E\xB7" => "", # U+E07B7 => "\xF3\xA0\x9E\xB8" => "", # U+E07B8 => "\xF3\xA0\x9E\xB9" => "", # U+E07B9 => "\xF3\xA0\x9E\xBA" => "", # U+E07BA => "\xF3\xA0\x9E\xBB" => "", # U+E07BB => "\xF3\xA0\x9E\xBC" => "", # U+E07BC => "\xF3\xA0\x9E\xBD" => "", # U+E07BD => "\xF3\xA0\x9E\xBE" => "", # U+E07BE => "\xF3\xA0\x9E\xBF" => "", # U+E07BF => "\xF3\xA0\x9F\x80" => "", # U+E07C0 => "\xF3\xA0\x9F\x81" => "", # U+E07C1 => "\xF3\xA0\x9F\x82" => "", # U+E07C2 => "\xF3\xA0\x9F\x83" => "", # U+E07C3 => "\xF3\xA0\x9F\x84" => "", # U+E07C4 => "\xF3\xA0\x9F\x85" => "", # U+E07C5 => "\xF3\xA0\x9F\x86" => "", # U+E07C6 => "\xF3\xA0\x9F\x87" => "", # U+E07C7 => "\xF3\xA0\x9F\x88" => "", # U+E07C8 => "\xF3\xA0\x9F\x89" => "", # U+E07C9 => "\xF3\xA0\x9F\x8A" => "", # U+E07CA => "\xF3\xA0\x9F\x8B" => "", # U+E07CB => "\xF3\xA0\x9F\x8C" => "", # U+E07CC => "\xF3\xA0\x9F\x8D" => "", # U+E07CD => "\xF3\xA0\x9F\x8E" => "", # U+E07CE => "\xF3\xA0\x9F\x8F" => "", # U+E07CF => "\xF3\xA0\x9F\x90" => "", # U+E07D0 => "\xF3\xA0\x9F\x91" => "", # U+E07D1 => "\xF3\xA0\x9F\x92" => "", # U+E07D2 => "\xF3\xA0\x9F\x93" => "", # U+E07D3 => "\xF3\xA0\x9F\x94" => "", # U+E07D4 => "\xF3\xA0\x9F\x95" => "", # U+E07D5 => "\xF3\xA0\x9F\x96" => "", # U+E07D6 => "\xF3\xA0\x9F\x97" => "", # U+E07D7 => "\xF3\xA0\x9F\x98" => "", # U+E07D8 => "\xF3\xA0\x9F\x99" => "", # U+E07D9 => "\xF3\xA0\x9F\x9A" => "", # U+E07DA => "\xF3\xA0\x9F\x9B" => "", # U+E07DB => "\xF3\xA0\x9F\x9C" => "", # U+E07DC => "\xF3\xA0\x9F\x9D" => "", # U+E07DD => "\xF3\xA0\x9F\x9E" => "", # U+E07DE => "\xF3\xA0\x9F\x9F" => "", # U+E07DF => "\xF3\xA0\x9F\xA0" => "", # U+E07E0 => "\xF3\xA0\x9F\xA1" => "", # U+E07E1 => "\xF3\xA0\x9F\xA2" => "", # U+E07E2 => "\xF3\xA0\x9F\xA3" => "", # U+E07E3 => "\xF3\xA0\x9F\xA4" => "", # U+E07E4 => "\xF3\xA0\x9F\xA5" => "", # U+E07E5 => "\xF3\xA0\x9F\xA6" => "", # U+E07E6 => "\xF3\xA0\x9F\xA7" => "", # U+E07E7 => "\xF3\xA0\x9F\xA8" => "", # U+E07E8 => "\xF3\xA0\x9F\xA9" => "", # U+E07E9 => "\xF3\xA0\x9F\xAA" => "", # U+E07EA => "\xF3\xA0\x9F\xAB" => "", # U+E07EB => "\xF3\xA0\x9F\xAC" => "", # U+E07EC => "\xF3\xA0\x9F\xAD" => "", # U+E07ED => "\xF3\xA0\x9F\xAE" => "", # U+E07EE => "\xF3\xA0\x9F\xAF" => "", # U+E07EF => "\xF3\xA0\x9F\xB0" => "", # U+E07F0 => "\xF3\xA0\x9F\xB1" => "", # U+E07F1 => "\xF3\xA0\x9F\xB2" => "", # U+E07F2 => "\xF3\xA0\x9F\xB3" => "", # U+E07F3 => "\xF3\xA0\x9F\xB4" => "", # U+E07F4 => "\xF3\xA0\x9F\xB5" => "", # U+E07F5 => "\xF3\xA0\x9F\xB6" => "", # U+E07F6 => "\xF3\xA0\x9F\xB7" => "", # U+E07F7 => "\xF3\xA0\x9F\xB8" => "", # U+E07F8 => "\xF3\xA0\x9F\xB9" => "", # U+E07F9 => "\xF3\xA0\x9F\xBA" => "", # U+E07FA => "\xF3\xA0\x9F\xBB" => "", # U+E07FB => "\xF3\xA0\x9F\xBC" => "", # U+E07FC => "\xF3\xA0\x9F\xBD" => "", # U+E07FD => "\xF3\xA0\x9F\xBE" => "", # U+E07FE => "\xF3\xA0\x9F\xBF" => "", # U+E07FF => "\xF3\xA0\xA0\x80" => "", # U+E0800 => "\xF3\xA0\xA0\x81" => "", # U+E0801 => "\xF3\xA0\xA0\x82" => "", # U+E0802 => "\xF3\xA0\xA0\x83" => "", # U+E0803 => "\xF3\xA0\xA0\x84" => "", # U+E0804 => "\xF3\xA0\xA0\x85" => "", # U+E0805 => "\xF3\xA0\xA0\x86" => "", # U+E0806 => "\xF3\xA0\xA0\x87" => "", # U+E0807 => "\xF3\xA0\xA0\x88" => "", # U+E0808 => "\xF3\xA0\xA0\x89" => "", # U+E0809 => "\xF3\xA0\xA0\x8A" => "", # U+E080A => "\xF3\xA0\xA0\x8B" => "", # U+E080B => "\xF3\xA0\xA0\x8C" => "", # U+E080C => "\xF3\xA0\xA0\x8D" => "", # U+E080D => "\xF3\xA0\xA0\x8E" => "", # U+E080E => "\xF3\xA0\xA0\x8F" => "", # U+E080F => "\xF3\xA0\xA0\x90" => "", # U+E0810 => "\xF3\xA0\xA0\x91" => "", # U+E0811 => "\xF3\xA0\xA0\x92" => "", # U+E0812 => "\xF3\xA0\xA0\x93" => "", # U+E0813 => "\xF3\xA0\xA0\x94" => "", # U+E0814 => "\xF3\xA0\xA0\x95" => "", # U+E0815 => "\xF3\xA0\xA0\x96" => "", # U+E0816 => "\xF3\xA0\xA0\x97" => "", # U+E0817 => "\xF3\xA0\xA0\x98" => "", # U+E0818 => "\xF3\xA0\xA0\x99" => "", # U+E0819 => "\xF3\xA0\xA0\x9A" => "", # U+E081A => "\xF3\xA0\xA0\x9B" => "", # U+E081B => "\xF3\xA0\xA0\x9C" => "", # U+E081C => "\xF3\xA0\xA0\x9D" => "", # U+E081D => "\xF3\xA0\xA0\x9E" => "", # U+E081E => "\xF3\xA0\xA0\x9F" => "", # U+E081F => "\xF3\xA0\xA0\xA0" => "", # U+E0820 => "\xF3\xA0\xA0\xA1" => "", # U+E0821 => "\xF3\xA0\xA0\xA2" => "", # U+E0822 => "\xF3\xA0\xA0\xA3" => "", # U+E0823 => "\xF3\xA0\xA0\xA4" => "", # U+E0824 => "\xF3\xA0\xA0\xA5" => "", # U+E0825 => "\xF3\xA0\xA0\xA6" => "", # U+E0826 => "\xF3\xA0\xA0\xA7" => "", # U+E0827 => "\xF3\xA0\xA0\xA8" => "", # U+E0828 => "\xF3\xA0\xA0\xA9" => "", # U+E0829 => "\xF3\xA0\xA0\xAA" => "", # U+E082A => "\xF3\xA0\xA0\xAB" => "", # U+E082B => "\xF3\xA0\xA0\xAC" => "", # U+E082C => "\xF3\xA0\xA0\xAD" => "", # U+E082D => "\xF3\xA0\xA0\xAE" => "", # U+E082E => "\xF3\xA0\xA0\xAF" => "", # U+E082F => "\xF3\xA0\xA0\xB0" => "", # U+E0830 => "\xF3\xA0\xA0\xB1" => "", # U+E0831 => "\xF3\xA0\xA0\xB2" => "", # U+E0832 => "\xF3\xA0\xA0\xB3" => "", # U+E0833 => "\xF3\xA0\xA0\xB4" => "", # U+E0834 => "\xF3\xA0\xA0\xB5" => "", # U+E0835 => "\xF3\xA0\xA0\xB6" => "", # U+E0836 => "\xF3\xA0\xA0\xB7" => "", # U+E0837 => "\xF3\xA0\xA0\xB8" => "", # U+E0838 => "\xF3\xA0\xA0\xB9" => "", # U+E0839 => "\xF3\xA0\xA0\xBA" => "", # U+E083A => "\xF3\xA0\xA0\xBB" => "", # U+E083B => "\xF3\xA0\xA0\xBC" => "", # U+E083C => "\xF3\xA0\xA0\xBD" => "", # U+E083D => "\xF3\xA0\xA0\xBE" => "", # U+E083E => "\xF3\xA0\xA0\xBF" => "", # U+E083F => "\xF3\xA0\xA1\x80" => "", # U+E0840 => "\xF3\xA0\xA1\x81" => "", # U+E0841 => "\xF3\xA0\xA1\x82" => "", # U+E0842 => "\xF3\xA0\xA1\x83" => "", # U+E0843 => "\xF3\xA0\xA1\x84" => "", # U+E0844 => "\xF3\xA0\xA1\x85" => "", # U+E0845 => "\xF3\xA0\xA1\x86" => "", # U+E0846 => "\xF3\xA0\xA1\x87" => "", # U+E0847 => "\xF3\xA0\xA1\x88" => "", # U+E0848 => "\xF3\xA0\xA1\x89" => "", # U+E0849 => "\xF3\xA0\xA1\x8A" => "", # U+E084A => "\xF3\xA0\xA1\x8B" => "", # U+E084B => "\xF3\xA0\xA1\x8C" => "", # U+E084C => "\xF3\xA0\xA1\x8D" => "", # U+E084D => "\xF3\xA0\xA1\x8E" => "", # U+E084E => "\xF3\xA0\xA1\x8F" => "", # U+E084F => "\xF3\xA0\xA1\x90" => "", # U+E0850 => "\xF3\xA0\xA1\x91" => "", # U+E0851 => "\xF3\xA0\xA1\x92" => "", # U+E0852 => "\xF3\xA0\xA1\x93" => "", # U+E0853 => "\xF3\xA0\xA1\x94" => "", # U+E0854 => "\xF3\xA0\xA1\x95" => "", # U+E0855 => "\xF3\xA0\xA1\x96" => "", # U+E0856 => "\xF3\xA0\xA1\x97" => "", # U+E0857 => "\xF3\xA0\xA1\x98" => "", # U+E0858 => "\xF3\xA0\xA1\x99" => "", # U+E0859 => "\xF3\xA0\xA1\x9A" => "", # U+E085A => "\xF3\xA0\xA1\x9B" => "", # U+E085B => "\xF3\xA0\xA1\x9C" => "", # U+E085C => "\xF3\xA0\xA1\x9D" => "", # U+E085D => "\xF3\xA0\xA1\x9E" => "", # U+E085E => "\xF3\xA0\xA1\x9F" => "", # U+E085F => "\xF3\xA0\xA1\xA0" => "", # U+E0860 => "\xF3\xA0\xA1\xA1" => "", # U+E0861 => "\xF3\xA0\xA1\xA2" => "", # U+E0862 => "\xF3\xA0\xA1\xA3" => "", # U+E0863 => "\xF3\xA0\xA1\xA4" => "", # U+E0864 => "\xF3\xA0\xA1\xA5" => "", # U+E0865 => "\xF3\xA0\xA1\xA6" => "", # U+E0866 => "\xF3\xA0\xA1\xA7" => "", # U+E0867 => "\xF3\xA0\xA1\xA8" => "", # U+E0868 => "\xF3\xA0\xA1\xA9" => "", # U+E0869 => "\xF3\xA0\xA1\xAA" => "", # U+E086A => "\xF3\xA0\xA1\xAB" => "", # U+E086B => "\xF3\xA0\xA1\xAC" => "", # U+E086C => "\xF3\xA0\xA1\xAD" => "", # U+E086D => "\xF3\xA0\xA1\xAE" => "", # U+E086E => "\xF3\xA0\xA1\xAF" => "", # U+E086F => "\xF3\xA0\xA1\xB0" => "", # U+E0870 => "\xF3\xA0\xA1\xB1" => "", # U+E0871 => "\xF3\xA0\xA1\xB2" => "", # U+E0872 => "\xF3\xA0\xA1\xB3" => "", # U+E0873 => "\xF3\xA0\xA1\xB4" => "", # U+E0874 => "\xF3\xA0\xA1\xB5" => "", # U+E0875 => "\xF3\xA0\xA1\xB6" => "", # U+E0876 => "\xF3\xA0\xA1\xB7" => "", # U+E0877 => "\xF3\xA0\xA1\xB8" => "", # U+E0878 => "\xF3\xA0\xA1\xB9" => "", # U+E0879 => "\xF3\xA0\xA1\xBA" => "", # U+E087A => "\xF3\xA0\xA1\xBB" => "", # U+E087B => "\xF3\xA0\xA1\xBC" => "", # U+E087C => "\xF3\xA0\xA1\xBD" => "", # U+E087D => "\xF3\xA0\xA1\xBE" => "", # U+E087E => "\xF3\xA0\xA1\xBF" => "", # U+E087F => "\xF3\xA0\xA2\x80" => "", # U+E0880 => "\xF3\xA0\xA2\x81" => "", # U+E0881 => "\xF3\xA0\xA2\x82" => "", # U+E0882 => "\xF3\xA0\xA2\x83" => "", # U+E0883 => "\xF3\xA0\xA2\x84" => "", # U+E0884 => "\xF3\xA0\xA2\x85" => "", # U+E0885 => "\xF3\xA0\xA2\x86" => "", # U+E0886 => "\xF3\xA0\xA2\x87" => "", # U+E0887 => "\xF3\xA0\xA2\x88" => "", # U+E0888 => "\xF3\xA0\xA2\x89" => "", # U+E0889 => "\xF3\xA0\xA2\x8A" => "", # U+E088A => "\xF3\xA0\xA2\x8B" => "", # U+E088B => "\xF3\xA0\xA2\x8C" => "", # U+E088C => "\xF3\xA0\xA2\x8D" => "", # U+E088D => "\xF3\xA0\xA2\x8E" => "", # U+E088E => "\xF3\xA0\xA2\x8F" => "", # U+E088F => "\xF3\xA0\xA2\x90" => "", # U+E0890 => "\xF3\xA0\xA2\x91" => "", # U+E0891 => "\xF3\xA0\xA2\x92" => "", # U+E0892 => "\xF3\xA0\xA2\x93" => "", # U+E0893 => "\xF3\xA0\xA2\x94" => "", # U+E0894 => "\xF3\xA0\xA2\x95" => "", # U+E0895 => "\xF3\xA0\xA2\x96" => "", # U+E0896 => "\xF3\xA0\xA2\x97" => "", # U+E0897 => "\xF3\xA0\xA2\x98" => "", # U+E0898 => "\xF3\xA0\xA2\x99" => "", # U+E0899 => "\xF3\xA0\xA2\x9A" => "", # U+E089A => "\xF3\xA0\xA2\x9B" => "", # U+E089B => "\xF3\xA0\xA2\x9C" => "", # U+E089C => "\xF3\xA0\xA2\x9D" => "", # U+E089D => "\xF3\xA0\xA2\x9E" => "", # U+E089E => "\xF3\xA0\xA2\x9F" => "", # U+E089F => "\xF3\xA0\xA2\xA0" => "", # U+E08A0 => "\xF3\xA0\xA2\xA1" => "", # U+E08A1 => "\xF3\xA0\xA2\xA2" => "", # U+E08A2 => "\xF3\xA0\xA2\xA3" => "", # U+E08A3 => "\xF3\xA0\xA2\xA4" => "", # U+E08A4 => "\xF3\xA0\xA2\xA5" => "", # U+E08A5 => "\xF3\xA0\xA2\xA6" => "", # U+E08A6 => "\xF3\xA0\xA2\xA7" => "", # U+E08A7 => "\xF3\xA0\xA2\xA8" => "", # U+E08A8 => "\xF3\xA0\xA2\xA9" => "", # U+E08A9 => "\xF3\xA0\xA2\xAA" => "", # U+E08AA => "\xF3\xA0\xA2\xAB" => "", # U+E08AB => "\xF3\xA0\xA2\xAC" => "", # U+E08AC => "\xF3\xA0\xA2\xAD" => "", # U+E08AD => "\xF3\xA0\xA2\xAE" => "", # U+E08AE => "\xF3\xA0\xA2\xAF" => "", # U+E08AF => "\xF3\xA0\xA2\xB0" => "", # U+E08B0 => "\xF3\xA0\xA2\xB1" => "", # U+E08B1 => "\xF3\xA0\xA2\xB2" => "", # U+E08B2 => "\xF3\xA0\xA2\xB3" => "", # U+E08B3 => "\xF3\xA0\xA2\xB4" => "", # U+E08B4 => "\xF3\xA0\xA2\xB5" => "", # U+E08B5 => "\xF3\xA0\xA2\xB6" => "", # U+E08B6 => "\xF3\xA0\xA2\xB7" => "", # U+E08B7 => "\xF3\xA0\xA2\xB8" => "", # U+E08B8 => "\xF3\xA0\xA2\xB9" => "", # U+E08B9 => "\xF3\xA0\xA2\xBA" => "", # U+E08BA => "\xF3\xA0\xA2\xBB" => "", # U+E08BB => "\xF3\xA0\xA2\xBC" => "", # U+E08BC => "\xF3\xA0\xA2\xBD" => "", # U+E08BD => "\xF3\xA0\xA2\xBE" => "", # U+E08BE => "\xF3\xA0\xA2\xBF" => "", # U+E08BF => "\xF3\xA0\xA3\x80" => "", # U+E08C0 => "\xF3\xA0\xA3\x81" => "", # U+E08C1 => "\xF3\xA0\xA3\x82" => "", # U+E08C2 => "\xF3\xA0\xA3\x83" => "", # U+E08C3 => "\xF3\xA0\xA3\x84" => "", # U+E08C4 => "\xF3\xA0\xA3\x85" => "", # U+E08C5 => "\xF3\xA0\xA3\x86" => "", # U+E08C6 => "\xF3\xA0\xA3\x87" => "", # U+E08C7 => "\xF3\xA0\xA3\x88" => "", # U+E08C8 => "\xF3\xA0\xA3\x89" => "", # U+E08C9 => "\xF3\xA0\xA3\x8A" => "", # U+E08CA => "\xF3\xA0\xA3\x8B" => "", # U+E08CB => "\xF3\xA0\xA3\x8C" => "", # U+E08CC => "\xF3\xA0\xA3\x8D" => "", # U+E08CD => "\xF3\xA0\xA3\x8E" => "", # U+E08CE => "\xF3\xA0\xA3\x8F" => "", # U+E08CF => "\xF3\xA0\xA3\x90" => "", # U+E08D0 => "\xF3\xA0\xA3\x91" => "", # U+E08D1 => "\xF3\xA0\xA3\x92" => "", # U+E08D2 => "\xF3\xA0\xA3\x93" => "", # U+E08D3 => "\xF3\xA0\xA3\x94" => "", # U+E08D4 => "\xF3\xA0\xA3\x95" => "", # U+E08D5 => "\xF3\xA0\xA3\x96" => "", # U+E08D6 => "\xF3\xA0\xA3\x97" => "", # U+E08D7 => "\xF3\xA0\xA3\x98" => "", # U+E08D8 => "\xF3\xA0\xA3\x99" => "", # U+E08D9 => "\xF3\xA0\xA3\x9A" => "", # U+E08DA => "\xF3\xA0\xA3\x9B" => "", # U+E08DB => "\xF3\xA0\xA3\x9C" => "", # U+E08DC => "\xF3\xA0\xA3\x9D" => "", # U+E08DD => "\xF3\xA0\xA3\x9E" => "", # U+E08DE => "\xF3\xA0\xA3\x9F" => "", # U+E08DF => "\xF3\xA0\xA3\xA0" => "", # U+E08E0 => "\xF3\xA0\xA3\xA1" => "", # U+E08E1 => "\xF3\xA0\xA3\xA2" => "", # U+E08E2 => "\xF3\xA0\xA3\xA3" => "", # U+E08E3 => "\xF3\xA0\xA3\xA4" => "", # U+E08E4 => "\xF3\xA0\xA3\xA5" => "", # U+E08E5 => "\xF3\xA0\xA3\xA6" => "", # U+E08E6 => "\xF3\xA0\xA3\xA7" => "", # U+E08E7 => "\xF3\xA0\xA3\xA8" => "", # U+E08E8 => "\xF3\xA0\xA3\xA9" => "", # U+E08E9 => "\xF3\xA0\xA3\xAA" => "", # U+E08EA => "\xF3\xA0\xA3\xAB" => "", # U+E08EB => "\xF3\xA0\xA3\xAC" => "", # U+E08EC => "\xF3\xA0\xA3\xAD" => "", # U+E08ED => "\xF3\xA0\xA3\xAE" => "", # U+E08EE => "\xF3\xA0\xA3\xAF" => "", # U+E08EF => "\xF3\xA0\xA3\xB0" => "", # U+E08F0 => "\xF3\xA0\xA3\xB1" => "", # U+E08F1 => "\xF3\xA0\xA3\xB2" => "", # U+E08F2 => "\xF3\xA0\xA3\xB3" => "", # U+E08F3 => "\xF3\xA0\xA3\xB4" => "", # U+E08F4 => "\xF3\xA0\xA3\xB5" => "", # U+E08F5 => "\xF3\xA0\xA3\xB6" => "", # U+E08F6 => "\xF3\xA0\xA3\xB7" => "", # U+E08F7 => "\xF3\xA0\xA3\xB8" => "", # U+E08F8 => "\xF3\xA0\xA3\xB9" => "", # U+E08F9 => "\xF3\xA0\xA3\xBA" => "", # U+E08FA => "\xF3\xA0\xA3\xBB" => "", # U+E08FB => "\xF3\xA0\xA3\xBC" => "", # U+E08FC => "\xF3\xA0\xA3\xBD" => "", # U+E08FD => "\xF3\xA0\xA3\xBE" => "", # U+E08FE => "\xF3\xA0\xA3\xBF" => "", # U+E08FF => "\xF3\xA0\xA4\x80" => "", # U+E0900 => "\xF3\xA0\xA4\x81" => "", # U+E0901 => "\xF3\xA0\xA4\x82" => "", # U+E0902 => "\xF3\xA0\xA4\x83" => "", # U+E0903 => "\xF3\xA0\xA4\x84" => "", # U+E0904 => "\xF3\xA0\xA4\x85" => "", # U+E0905 => "\xF3\xA0\xA4\x86" => "", # U+E0906 => "\xF3\xA0\xA4\x87" => "", # U+E0907 => "\xF3\xA0\xA4\x88" => "", # U+E0908 => "\xF3\xA0\xA4\x89" => "", # U+E0909 => "\xF3\xA0\xA4\x8A" => "", # U+E090A => "\xF3\xA0\xA4\x8B" => "", # U+E090B => "\xF3\xA0\xA4\x8C" => "", # U+E090C => "\xF3\xA0\xA4\x8D" => "", # U+E090D => "\xF3\xA0\xA4\x8E" => "", # U+E090E => "\xF3\xA0\xA4\x8F" => "", # U+E090F => "\xF3\xA0\xA4\x90" => "", # U+E0910 => "\xF3\xA0\xA4\x91" => "", # U+E0911 => "\xF3\xA0\xA4\x92" => "", # U+E0912 => "\xF3\xA0\xA4\x93" => "", # U+E0913 => "\xF3\xA0\xA4\x94" => "", # U+E0914 => "\xF3\xA0\xA4\x95" => "", # U+E0915 => "\xF3\xA0\xA4\x96" => "", # U+E0916 => "\xF3\xA0\xA4\x97" => "", # U+E0917 => "\xF3\xA0\xA4\x98" => "", # U+E0918 => "\xF3\xA0\xA4\x99" => "", # U+E0919 => "\xF3\xA0\xA4\x9A" => "", # U+E091A => "\xF3\xA0\xA4\x9B" => "", # U+E091B => "\xF3\xA0\xA4\x9C" => "", # U+E091C => "\xF3\xA0\xA4\x9D" => "", # U+E091D => "\xF3\xA0\xA4\x9E" => "", # U+E091E => "\xF3\xA0\xA4\x9F" => "", # U+E091F => "\xF3\xA0\xA4\xA0" => "", # U+E0920 => "\xF3\xA0\xA4\xA1" => "", # U+E0921 => "\xF3\xA0\xA4\xA2" => "", # U+E0922 => "\xF3\xA0\xA4\xA3" => "", # U+E0923 => "\xF3\xA0\xA4\xA4" => "", # U+E0924 => "\xF3\xA0\xA4\xA5" => "", # U+E0925 => "\xF3\xA0\xA4\xA6" => "", # U+E0926 => "\xF3\xA0\xA4\xA7" => "", # U+E0927 => "\xF3\xA0\xA4\xA8" => "", # U+E0928 => "\xF3\xA0\xA4\xA9" => "", # U+E0929 => "\xF3\xA0\xA4\xAA" => "", # U+E092A => "\xF3\xA0\xA4\xAB" => "", # U+E092B => "\xF3\xA0\xA4\xAC" => "", # U+E092C => "\xF3\xA0\xA4\xAD" => "", # U+E092D => "\xF3\xA0\xA4\xAE" => "", # U+E092E => "\xF3\xA0\xA4\xAF" => "", # U+E092F => "\xF3\xA0\xA4\xB0" => "", # U+E0930 => "\xF3\xA0\xA4\xB1" => "", # U+E0931 => "\xF3\xA0\xA4\xB2" => "", # U+E0932 => "\xF3\xA0\xA4\xB3" => "", # U+E0933 => "\xF3\xA0\xA4\xB4" => "", # U+E0934 => "\xF3\xA0\xA4\xB5" => "", # U+E0935 => "\xF3\xA0\xA4\xB6" => "", # U+E0936 => "\xF3\xA0\xA4\xB7" => "", # U+E0937 => "\xF3\xA0\xA4\xB8" => "", # U+E0938 => "\xF3\xA0\xA4\xB9" => "", # U+E0939 => "\xF3\xA0\xA4\xBA" => "", # U+E093A => "\xF3\xA0\xA4\xBB" => "", # U+E093B => "\xF3\xA0\xA4\xBC" => "", # U+E093C => "\xF3\xA0\xA4\xBD" => "", # U+E093D => "\xF3\xA0\xA4\xBE" => "", # U+E093E => "\xF3\xA0\xA4\xBF" => "", # U+E093F => "\xF3\xA0\xA5\x80" => "", # U+E0940 => "\xF3\xA0\xA5\x81" => "", # U+E0941 => "\xF3\xA0\xA5\x82" => "", # U+E0942 => "\xF3\xA0\xA5\x83" => "", # U+E0943 => "\xF3\xA0\xA5\x84" => "", # U+E0944 => "\xF3\xA0\xA5\x85" => "", # U+E0945 => "\xF3\xA0\xA5\x86" => "", # U+E0946 => "\xF3\xA0\xA5\x87" => "", # U+E0947 => "\xF3\xA0\xA5\x88" => "", # U+E0948 => "\xF3\xA0\xA5\x89" => "", # U+E0949 => "\xF3\xA0\xA5\x8A" => "", # U+E094A => "\xF3\xA0\xA5\x8B" => "", # U+E094B => "\xF3\xA0\xA5\x8C" => "", # U+E094C => "\xF3\xA0\xA5\x8D" => "", # U+E094D => "\xF3\xA0\xA5\x8E" => "", # U+E094E => "\xF3\xA0\xA5\x8F" => "", # U+E094F => "\xF3\xA0\xA5\x90" => "", # U+E0950 => "\xF3\xA0\xA5\x91" => "", # U+E0951 => "\xF3\xA0\xA5\x92" => "", # U+E0952 => "\xF3\xA0\xA5\x93" => "", # U+E0953 => "\xF3\xA0\xA5\x94" => "", # U+E0954 => "\xF3\xA0\xA5\x95" => "", # U+E0955 => "\xF3\xA0\xA5\x96" => "", # U+E0956 => "\xF3\xA0\xA5\x97" => "", # U+E0957 => "\xF3\xA0\xA5\x98" => "", # U+E0958 => "\xF3\xA0\xA5\x99" => "", # U+E0959 => "\xF3\xA0\xA5\x9A" => "", # U+E095A => "\xF3\xA0\xA5\x9B" => "", # U+E095B => "\xF3\xA0\xA5\x9C" => "", # U+E095C => "\xF3\xA0\xA5\x9D" => "", # U+E095D => "\xF3\xA0\xA5\x9E" => "", # U+E095E => "\xF3\xA0\xA5\x9F" => "", # U+E095F => "\xF3\xA0\xA5\xA0" => "", # U+E0960 => "\xF3\xA0\xA5\xA1" => "", # U+E0961 => "\xF3\xA0\xA5\xA2" => "", # U+E0962 => "\xF3\xA0\xA5\xA3" => "", # U+E0963 => "\xF3\xA0\xA5\xA4" => "", # U+E0964 => "\xF3\xA0\xA5\xA5" => "", # U+E0965 => "\xF3\xA0\xA5\xA6" => "", # U+E0966 => "\xF3\xA0\xA5\xA7" => "", # U+E0967 => "\xF3\xA0\xA5\xA8" => "", # U+E0968 => "\xF3\xA0\xA5\xA9" => "", # U+E0969 => "\xF3\xA0\xA5\xAA" => "", # U+E096A => "\xF3\xA0\xA5\xAB" => "", # U+E096B => "\xF3\xA0\xA5\xAC" => "", # U+E096C => "\xF3\xA0\xA5\xAD" => "", # U+E096D => "\xF3\xA0\xA5\xAE" => "", # U+E096E => "\xF3\xA0\xA5\xAF" => "", # U+E096F => "\xF3\xA0\xA5\xB0" => "", # U+E0970 => "\xF3\xA0\xA5\xB1" => "", # U+E0971 => "\xF3\xA0\xA5\xB2" => "", # U+E0972 => "\xF3\xA0\xA5\xB3" => "", # U+E0973 => "\xF3\xA0\xA5\xB4" => "", # U+E0974 => "\xF3\xA0\xA5\xB5" => "", # U+E0975 => "\xF3\xA0\xA5\xB6" => "", # U+E0976 => "\xF3\xA0\xA5\xB7" => "", # U+E0977 => "\xF3\xA0\xA5\xB8" => "", # U+E0978 => "\xF3\xA0\xA5\xB9" => "", # U+E0979 => "\xF3\xA0\xA5\xBA" => "", # U+E097A => "\xF3\xA0\xA5\xBB" => "", # U+E097B => "\xF3\xA0\xA5\xBC" => "", # U+E097C => "\xF3\xA0\xA5\xBD" => "", # U+E097D => "\xF3\xA0\xA5\xBE" => "", # U+E097E => "\xF3\xA0\xA5\xBF" => "", # U+E097F => "\xF3\xA0\xA6\x80" => "", # U+E0980 => "\xF3\xA0\xA6\x81" => "", # U+E0981 => "\xF3\xA0\xA6\x82" => "", # U+E0982 => "\xF3\xA0\xA6\x83" => "", # U+E0983 => "\xF3\xA0\xA6\x84" => "", # U+E0984 => "\xF3\xA0\xA6\x85" => "", # U+E0985 => "\xF3\xA0\xA6\x86" => "", # U+E0986 => "\xF3\xA0\xA6\x87" => "", # U+E0987 => "\xF3\xA0\xA6\x88" => "", # U+E0988 => "\xF3\xA0\xA6\x89" => "", # U+E0989 => "\xF3\xA0\xA6\x8A" => "", # U+E098A => "\xF3\xA0\xA6\x8B" => "", # U+E098B => "\xF3\xA0\xA6\x8C" => "", # U+E098C => "\xF3\xA0\xA6\x8D" => "", # U+E098D => "\xF3\xA0\xA6\x8E" => "", # U+E098E => "\xF3\xA0\xA6\x8F" => "", # U+E098F => "\xF3\xA0\xA6\x90" => "", # U+E0990 => "\xF3\xA0\xA6\x91" => "", # U+E0991 => "\xF3\xA0\xA6\x92" => "", # U+E0992 => "\xF3\xA0\xA6\x93" => "", # U+E0993 => "\xF3\xA0\xA6\x94" => "", # U+E0994 => "\xF3\xA0\xA6\x95" => "", # U+E0995 => "\xF3\xA0\xA6\x96" => "", # U+E0996 => "\xF3\xA0\xA6\x97" => "", # U+E0997 => "\xF3\xA0\xA6\x98" => "", # U+E0998 => "\xF3\xA0\xA6\x99" => "", # U+E0999 => "\xF3\xA0\xA6\x9A" => "", # U+E099A => "\xF3\xA0\xA6\x9B" => "", # U+E099B => "\xF3\xA0\xA6\x9C" => "", # U+E099C => "\xF3\xA0\xA6\x9D" => "", # U+E099D => "\xF3\xA0\xA6\x9E" => "", # U+E099E => "\xF3\xA0\xA6\x9F" => "", # U+E099F => "\xF3\xA0\xA6\xA0" => "", # U+E09A0 => "\xF3\xA0\xA6\xA1" => "", # U+E09A1 => "\xF3\xA0\xA6\xA2" => "", # U+E09A2 => "\xF3\xA0\xA6\xA3" => "", # U+E09A3 => "\xF3\xA0\xA6\xA4" => "", # U+E09A4 => "\xF3\xA0\xA6\xA5" => "", # U+E09A5 => "\xF3\xA0\xA6\xA6" => "", # U+E09A6 => "\xF3\xA0\xA6\xA7" => "", # U+E09A7 => "\xF3\xA0\xA6\xA8" => "", # U+E09A8 => "\xF3\xA0\xA6\xA9" => "", # U+E09A9 => "\xF3\xA0\xA6\xAA" => "", # U+E09AA => "\xF3\xA0\xA6\xAB" => "", # U+E09AB => "\xF3\xA0\xA6\xAC" => "", # U+E09AC => "\xF3\xA0\xA6\xAD" => "", # U+E09AD => "\xF3\xA0\xA6\xAE" => "", # U+E09AE => "\xF3\xA0\xA6\xAF" => "", # U+E09AF => "\xF3\xA0\xA6\xB0" => "", # U+E09B0 => "\xF3\xA0\xA6\xB1" => "", # U+E09B1 => "\xF3\xA0\xA6\xB2" => "", # U+E09B2 => "\xF3\xA0\xA6\xB3" => "", # U+E09B3 => "\xF3\xA0\xA6\xB4" => "", # U+E09B4 => "\xF3\xA0\xA6\xB5" => "", # U+E09B5 => "\xF3\xA0\xA6\xB6" => "", # U+E09B6 => "\xF3\xA0\xA6\xB7" => "", # U+E09B7 => "\xF3\xA0\xA6\xB8" => "", # U+E09B8 => "\xF3\xA0\xA6\xB9" => "", # U+E09B9 => "\xF3\xA0\xA6\xBA" => "", # U+E09BA => "\xF3\xA0\xA6\xBB" => "", # U+E09BB => "\xF3\xA0\xA6\xBC" => "", # U+E09BC => "\xF3\xA0\xA6\xBD" => "", # U+E09BD => "\xF3\xA0\xA6\xBE" => "", # U+E09BE => "\xF3\xA0\xA6\xBF" => "", # U+E09BF => "\xF3\xA0\xA7\x80" => "", # U+E09C0 => "\xF3\xA0\xA7\x81" => "", # U+E09C1 => "\xF3\xA0\xA7\x82" => "", # U+E09C2 => "\xF3\xA0\xA7\x83" => "", # U+E09C3 => "\xF3\xA0\xA7\x84" => "", # U+E09C4 => "\xF3\xA0\xA7\x85" => "", # U+E09C5 => "\xF3\xA0\xA7\x86" => "", # U+E09C6 => "\xF3\xA0\xA7\x87" => "", # U+E09C7 => "\xF3\xA0\xA7\x88" => "", # U+E09C8 => "\xF3\xA0\xA7\x89" => "", # U+E09C9 => "\xF3\xA0\xA7\x8A" => "", # U+E09CA => "\xF3\xA0\xA7\x8B" => "", # U+E09CB => "\xF3\xA0\xA7\x8C" => "", # U+E09CC => "\xF3\xA0\xA7\x8D" => "", # U+E09CD => "\xF3\xA0\xA7\x8E" => "", # U+E09CE => "\xF3\xA0\xA7\x8F" => "", # U+E09CF => "\xF3\xA0\xA7\x90" => "", # U+E09D0 => "\xF3\xA0\xA7\x91" => "", # U+E09D1 => "\xF3\xA0\xA7\x92" => "", # U+E09D2 => "\xF3\xA0\xA7\x93" => "", # U+E09D3 => "\xF3\xA0\xA7\x94" => "", # U+E09D4 => "\xF3\xA0\xA7\x95" => "", # U+E09D5 => "\xF3\xA0\xA7\x96" => "", # U+E09D6 => "\xF3\xA0\xA7\x97" => "", # U+E09D7 => "\xF3\xA0\xA7\x98" => "", # U+E09D8 => "\xF3\xA0\xA7\x99" => "", # U+E09D9 => "\xF3\xA0\xA7\x9A" => "", # U+E09DA => "\xF3\xA0\xA7\x9B" => "", # U+E09DB => "\xF3\xA0\xA7\x9C" => "", # U+E09DC => "\xF3\xA0\xA7\x9D" => "", # U+E09DD => "\xF3\xA0\xA7\x9E" => "", # U+E09DE => "\xF3\xA0\xA7\x9F" => "", # U+E09DF => "\xF3\xA0\xA7\xA0" => "", # U+E09E0 => "\xF3\xA0\xA7\xA1" => "", # U+E09E1 => "\xF3\xA0\xA7\xA2" => "", # U+E09E2 => "\xF3\xA0\xA7\xA3" => "", # U+E09E3 => "\xF3\xA0\xA7\xA4" => "", # U+E09E4 => "\xF3\xA0\xA7\xA5" => "", # U+E09E5 => "\xF3\xA0\xA7\xA6" => "", # U+E09E6 => "\xF3\xA0\xA7\xA7" => "", # U+E09E7 => "\xF3\xA0\xA7\xA8" => "", # U+E09E8 => "\xF3\xA0\xA7\xA9" => "", # U+E09E9 => "\xF3\xA0\xA7\xAA" => "", # U+E09EA => "\xF3\xA0\xA7\xAB" => "", # U+E09EB => "\xF3\xA0\xA7\xAC" => "", # U+E09EC => "\xF3\xA0\xA7\xAD" => "", # U+E09ED => "\xF3\xA0\xA7\xAE" => "", # U+E09EE => "\xF3\xA0\xA7\xAF" => "", # U+E09EF => "\xF3\xA0\xA7\xB0" => "", # U+E09F0 => "\xF3\xA0\xA7\xB1" => "", # U+E09F1 => "\xF3\xA0\xA7\xB2" => "", # U+E09F2 => "\xF3\xA0\xA7\xB3" => "", # U+E09F3 => "\xF3\xA0\xA7\xB4" => "", # U+E09F4 => "\xF3\xA0\xA7\xB5" => "", # U+E09F5 => "\xF3\xA0\xA7\xB6" => "", # U+E09F6 => "\xF3\xA0\xA7\xB7" => "", # U+E09F7 => "\xF3\xA0\xA7\xB8" => "", # U+E09F8 => "\xF3\xA0\xA7\xB9" => "", # U+E09F9 => "\xF3\xA0\xA7\xBA" => "", # U+E09FA => "\xF3\xA0\xA7\xBB" => "", # U+E09FB => "\xF3\xA0\xA7\xBC" => "", # U+E09FC => "\xF3\xA0\xA7\xBD" => "", # U+E09FD => "\xF3\xA0\xA7\xBE" => "", # U+E09FE => "\xF3\xA0\xA7\xBF" => "", # U+E09FF => "\xF3\xA0\xA8\x80" => "", # U+E0A00 => "\xF3\xA0\xA8\x81" => "", # U+E0A01 => "\xF3\xA0\xA8\x82" => "", # U+E0A02 => "\xF3\xA0\xA8\x83" => "", # U+E0A03 => "\xF3\xA0\xA8\x84" => "", # U+E0A04 => "\xF3\xA0\xA8\x85" => "", # U+E0A05 => "\xF3\xA0\xA8\x86" => "", # U+E0A06 => "\xF3\xA0\xA8\x87" => "", # U+E0A07 => "\xF3\xA0\xA8\x88" => "", # U+E0A08 => "\xF3\xA0\xA8\x89" => "", # U+E0A09 => "\xF3\xA0\xA8\x8A" => "", # U+E0A0A => "\xF3\xA0\xA8\x8B" => "", # U+E0A0B => "\xF3\xA0\xA8\x8C" => "", # U+E0A0C => "\xF3\xA0\xA8\x8D" => "", # U+E0A0D => "\xF3\xA0\xA8\x8E" => "", # U+E0A0E => "\xF3\xA0\xA8\x8F" => "", # U+E0A0F => "\xF3\xA0\xA8\x90" => "", # U+E0A10 => "\xF3\xA0\xA8\x91" => "", # U+E0A11 => "\xF3\xA0\xA8\x92" => "", # U+E0A12 => "\xF3\xA0\xA8\x93" => "", # U+E0A13 => "\xF3\xA0\xA8\x94" => "", # U+E0A14 => "\xF3\xA0\xA8\x95" => "", # U+E0A15 => "\xF3\xA0\xA8\x96" => "", # U+E0A16 => "\xF3\xA0\xA8\x97" => "", # U+E0A17 => "\xF3\xA0\xA8\x98" => "", # U+E0A18 => "\xF3\xA0\xA8\x99" => "", # U+E0A19 => "\xF3\xA0\xA8\x9A" => "", # U+E0A1A => "\xF3\xA0\xA8\x9B" => "", # U+E0A1B => "\xF3\xA0\xA8\x9C" => "", # U+E0A1C => "\xF3\xA0\xA8\x9D" => "", # U+E0A1D => "\xF3\xA0\xA8\x9E" => "", # U+E0A1E => "\xF3\xA0\xA8\x9F" => "", # U+E0A1F => "\xF3\xA0\xA8\xA0" => "", # U+E0A20 => "\xF3\xA0\xA8\xA1" => "", # U+E0A21 => "\xF3\xA0\xA8\xA2" => "", # U+E0A22 => "\xF3\xA0\xA8\xA3" => "", # U+E0A23 => "\xF3\xA0\xA8\xA4" => "", # U+E0A24 => "\xF3\xA0\xA8\xA5" => "", # U+E0A25 => "\xF3\xA0\xA8\xA6" => "", # U+E0A26 => "\xF3\xA0\xA8\xA7" => "", # U+E0A27 => "\xF3\xA0\xA8\xA8" => "", # U+E0A28 => "\xF3\xA0\xA8\xA9" => "", # U+E0A29 => "\xF3\xA0\xA8\xAA" => "", # U+E0A2A => "\xF3\xA0\xA8\xAB" => "", # U+E0A2B => "\xF3\xA0\xA8\xAC" => "", # U+E0A2C => "\xF3\xA0\xA8\xAD" => "", # U+E0A2D => "\xF3\xA0\xA8\xAE" => "", # U+E0A2E => "\xF3\xA0\xA8\xAF" => "", # U+E0A2F => "\xF3\xA0\xA8\xB0" => "", # U+E0A30 => "\xF3\xA0\xA8\xB1" => "", # U+E0A31 => "\xF3\xA0\xA8\xB2" => "", # U+E0A32 => "\xF3\xA0\xA8\xB3" => "", # U+E0A33 => "\xF3\xA0\xA8\xB4" => "", # U+E0A34 => "\xF3\xA0\xA8\xB5" => "", # U+E0A35 => "\xF3\xA0\xA8\xB6" => "", # U+E0A36 => "\xF3\xA0\xA8\xB7" => "", # U+E0A37 => "\xF3\xA0\xA8\xB8" => "", # U+E0A38 => "\xF3\xA0\xA8\xB9" => "", # U+E0A39 => "\xF3\xA0\xA8\xBA" => "", # U+E0A3A => "\xF3\xA0\xA8\xBB" => "", # U+E0A3B => "\xF3\xA0\xA8\xBC" => "", # U+E0A3C => "\xF3\xA0\xA8\xBD" => "", # U+E0A3D => "\xF3\xA0\xA8\xBE" => "", # U+E0A3E => "\xF3\xA0\xA8\xBF" => "", # U+E0A3F => "\xF3\xA0\xA9\x80" => "", # U+E0A40 => "\xF3\xA0\xA9\x81" => "", # U+E0A41 => "\xF3\xA0\xA9\x82" => "", # U+E0A42 => "\xF3\xA0\xA9\x83" => "", # U+E0A43 => "\xF3\xA0\xA9\x84" => "", # U+E0A44 => "\xF3\xA0\xA9\x85" => "", # U+E0A45 => "\xF3\xA0\xA9\x86" => "", # U+E0A46 => "\xF3\xA0\xA9\x87" => "", # U+E0A47 => "\xF3\xA0\xA9\x88" => "", # U+E0A48 => "\xF3\xA0\xA9\x89" => "", # U+E0A49 => "\xF3\xA0\xA9\x8A" => "", # U+E0A4A => "\xF3\xA0\xA9\x8B" => "", # U+E0A4B => "\xF3\xA0\xA9\x8C" => "", # U+E0A4C => "\xF3\xA0\xA9\x8D" => "", # U+E0A4D => "\xF3\xA0\xA9\x8E" => "", # U+E0A4E => "\xF3\xA0\xA9\x8F" => "", # U+E0A4F => "\xF3\xA0\xA9\x90" => "", # U+E0A50 => "\xF3\xA0\xA9\x91" => "", # U+E0A51 => "\xF3\xA0\xA9\x92" => "", # U+E0A52 => "\xF3\xA0\xA9\x93" => "", # U+E0A53 => "\xF3\xA0\xA9\x94" => "", # U+E0A54 => "\xF3\xA0\xA9\x95" => "", # U+E0A55 => "\xF3\xA0\xA9\x96" => "", # U+E0A56 => "\xF3\xA0\xA9\x97" => "", # U+E0A57 => "\xF3\xA0\xA9\x98" => "", # U+E0A58 => "\xF3\xA0\xA9\x99" => "", # U+E0A59 => "\xF3\xA0\xA9\x9A" => "", # U+E0A5A => "\xF3\xA0\xA9\x9B" => "", # U+E0A5B => "\xF3\xA0\xA9\x9C" => "", # U+E0A5C => "\xF3\xA0\xA9\x9D" => "", # U+E0A5D => "\xF3\xA0\xA9\x9E" => "", # U+E0A5E => "\xF3\xA0\xA9\x9F" => "", # U+E0A5F => "\xF3\xA0\xA9\xA0" => "", # U+E0A60 => "\xF3\xA0\xA9\xA1" => "", # U+E0A61 => "\xF3\xA0\xA9\xA2" => "", # U+E0A62 => "\xF3\xA0\xA9\xA3" => "", # U+E0A63 => "\xF3\xA0\xA9\xA4" => "", # U+E0A64 => "\xF3\xA0\xA9\xA5" => "", # U+E0A65 => "\xF3\xA0\xA9\xA6" => "", # U+E0A66 => "\xF3\xA0\xA9\xA7" => "", # U+E0A67 => "\xF3\xA0\xA9\xA8" => "", # U+E0A68 => "\xF3\xA0\xA9\xA9" => "", # U+E0A69 => "\xF3\xA0\xA9\xAA" => "", # U+E0A6A => "\xF3\xA0\xA9\xAB" => "", # U+E0A6B => "\xF3\xA0\xA9\xAC" => "", # U+E0A6C => "\xF3\xA0\xA9\xAD" => "", # U+E0A6D => "\xF3\xA0\xA9\xAE" => "", # U+E0A6E => "\xF3\xA0\xA9\xAF" => "", # U+E0A6F => "\xF3\xA0\xA9\xB0" => "", # U+E0A70 => "\xF3\xA0\xA9\xB1" => "", # U+E0A71 => "\xF3\xA0\xA9\xB2" => "", # U+E0A72 => "\xF3\xA0\xA9\xB3" => "", # U+E0A73 => "\xF3\xA0\xA9\xB4" => "", # U+E0A74 => "\xF3\xA0\xA9\xB5" => "", # U+E0A75 => "\xF3\xA0\xA9\xB6" => "", # U+E0A76 => "\xF3\xA0\xA9\xB7" => "", # U+E0A77 => "\xF3\xA0\xA9\xB8" => "", # U+E0A78 => "\xF3\xA0\xA9\xB9" => "", # U+E0A79 => "\xF3\xA0\xA9\xBA" => "", # U+E0A7A => "\xF3\xA0\xA9\xBB" => "", # U+E0A7B => "\xF3\xA0\xA9\xBC" => "", # U+E0A7C => "\xF3\xA0\xA9\xBD" => "", # U+E0A7D => "\xF3\xA0\xA9\xBE" => "", # U+E0A7E => "\xF3\xA0\xA9\xBF" => "", # U+E0A7F => "\xF3\xA0\xAA\x80" => "", # U+E0A80 => "\xF3\xA0\xAA\x81" => "", # U+E0A81 => "\xF3\xA0\xAA\x82" => "", # U+E0A82 => "\xF3\xA0\xAA\x83" => "", # U+E0A83 => "\xF3\xA0\xAA\x84" => "", # U+E0A84 => "\xF3\xA0\xAA\x85" => "", # U+E0A85 => "\xF3\xA0\xAA\x86" => "", # U+E0A86 => "\xF3\xA0\xAA\x87" => "", # U+E0A87 => "\xF3\xA0\xAA\x88" => "", # U+E0A88 => "\xF3\xA0\xAA\x89" => "", # U+E0A89 => "\xF3\xA0\xAA\x8A" => "", # U+E0A8A => "\xF3\xA0\xAA\x8B" => "", # U+E0A8B => "\xF3\xA0\xAA\x8C" => "", # U+E0A8C => "\xF3\xA0\xAA\x8D" => "", # U+E0A8D => "\xF3\xA0\xAA\x8E" => "", # U+E0A8E => "\xF3\xA0\xAA\x8F" => "", # U+E0A8F => "\xF3\xA0\xAA\x90" => "", # U+E0A90 => "\xF3\xA0\xAA\x91" => "", # U+E0A91 => "\xF3\xA0\xAA\x92" => "", # U+E0A92 => "\xF3\xA0\xAA\x93" => "", # U+E0A93 => "\xF3\xA0\xAA\x94" => "", # U+E0A94 => "\xF3\xA0\xAA\x95" => "", # U+E0A95 => "\xF3\xA0\xAA\x96" => "", # U+E0A96 => "\xF3\xA0\xAA\x97" => "", # U+E0A97 => "\xF3\xA0\xAA\x98" => "", # U+E0A98 => "\xF3\xA0\xAA\x99" => "", # U+E0A99 => "\xF3\xA0\xAA\x9A" => "", # U+E0A9A => "\xF3\xA0\xAA\x9B" => "", # U+E0A9B => "\xF3\xA0\xAA\x9C" => "", # U+E0A9C => "\xF3\xA0\xAA\x9D" => "", # U+E0A9D => "\xF3\xA0\xAA\x9E" => "", # U+E0A9E => "\xF3\xA0\xAA\x9F" => "", # U+E0A9F => "\xF3\xA0\xAA\xA0" => "", # U+E0AA0 => "\xF3\xA0\xAA\xA1" => "", # U+E0AA1 => "\xF3\xA0\xAA\xA2" => "", # U+E0AA2 => "\xF3\xA0\xAA\xA3" => "", # U+E0AA3 => "\xF3\xA0\xAA\xA4" => "", # U+E0AA4 => "\xF3\xA0\xAA\xA5" => "", # U+E0AA5 => "\xF3\xA0\xAA\xA6" => "", # U+E0AA6 => "\xF3\xA0\xAA\xA7" => "", # U+E0AA7 => "\xF3\xA0\xAA\xA8" => "", # U+E0AA8 => "\xF3\xA0\xAA\xA9" => "", # U+E0AA9 => "\xF3\xA0\xAA\xAA" => "", # U+E0AAA => "\xF3\xA0\xAA\xAB" => "", # U+E0AAB => "\xF3\xA0\xAA\xAC" => "", # U+E0AAC => "\xF3\xA0\xAA\xAD" => "", # U+E0AAD => "\xF3\xA0\xAA\xAE" => "", # U+E0AAE => "\xF3\xA0\xAA\xAF" => "", # U+E0AAF => "\xF3\xA0\xAA\xB0" => "", # U+E0AB0 => "\xF3\xA0\xAA\xB1" => "", # U+E0AB1 => "\xF3\xA0\xAA\xB2" => "", # U+E0AB2 => "\xF3\xA0\xAA\xB3" => "", # U+E0AB3 => "\xF3\xA0\xAA\xB4" => "", # U+E0AB4 => "\xF3\xA0\xAA\xB5" => "", # U+E0AB5 => "\xF3\xA0\xAA\xB6" => "", # U+E0AB6 => "\xF3\xA0\xAA\xB7" => "", # U+E0AB7 => "\xF3\xA0\xAA\xB8" => "", # U+E0AB8 => "\xF3\xA0\xAA\xB9" => "", # U+E0AB9 => "\xF3\xA0\xAA\xBA" => "", # U+E0ABA => "\xF3\xA0\xAA\xBB" => "", # U+E0ABB => "\xF3\xA0\xAA\xBC" => "", # U+E0ABC => "\xF3\xA0\xAA\xBD" => "", # U+E0ABD => "\xF3\xA0\xAA\xBE" => "", # U+E0ABE => "\xF3\xA0\xAA\xBF" => "", # U+E0ABF => "\xF3\xA0\xAB\x80" => "", # U+E0AC0 => "\xF3\xA0\xAB\x81" => "", # U+E0AC1 => "\xF3\xA0\xAB\x82" => "", # U+E0AC2 => "\xF3\xA0\xAB\x83" => "", # U+E0AC3 => "\xF3\xA0\xAB\x84" => "", # U+E0AC4 => "\xF3\xA0\xAB\x85" => "", # U+E0AC5 => "\xF3\xA0\xAB\x86" => "", # U+E0AC6 => "\xF3\xA0\xAB\x87" => "", # U+E0AC7 => "\xF3\xA0\xAB\x88" => "", # U+E0AC8 => "\xF3\xA0\xAB\x89" => "", # U+E0AC9 => "\xF3\xA0\xAB\x8A" => "", # U+E0ACA => "\xF3\xA0\xAB\x8B" => "", # U+E0ACB => "\xF3\xA0\xAB\x8C" => "", # U+E0ACC => "\xF3\xA0\xAB\x8D" => "", # U+E0ACD => "\xF3\xA0\xAB\x8E" => "", # U+E0ACE => "\xF3\xA0\xAB\x8F" => "", # U+E0ACF => "\xF3\xA0\xAB\x90" => "", # U+E0AD0 => "\xF3\xA0\xAB\x91" => "", # U+E0AD1 => "\xF3\xA0\xAB\x92" => "", # U+E0AD2 => "\xF3\xA0\xAB\x93" => "", # U+E0AD3 => "\xF3\xA0\xAB\x94" => "", # U+E0AD4 => "\xF3\xA0\xAB\x95" => "", # U+E0AD5 => "\xF3\xA0\xAB\x96" => "", # U+E0AD6 => "\xF3\xA0\xAB\x97" => "", # U+E0AD7 => "\xF3\xA0\xAB\x98" => "", # U+E0AD8 => "\xF3\xA0\xAB\x99" => "", # U+E0AD9 => "\xF3\xA0\xAB\x9A" => "", # U+E0ADA => "\xF3\xA0\xAB\x9B" => "", # U+E0ADB => "\xF3\xA0\xAB\x9C" => "", # U+E0ADC => "\xF3\xA0\xAB\x9D" => "", # U+E0ADD => "\xF3\xA0\xAB\x9E" => "", # U+E0ADE => "\xF3\xA0\xAB\x9F" => "", # U+E0ADF => "\xF3\xA0\xAB\xA0" => "", # U+E0AE0 => "\xF3\xA0\xAB\xA1" => "", # U+E0AE1 => "\xF3\xA0\xAB\xA2" => "", # U+E0AE2 => "\xF3\xA0\xAB\xA3" => "", # U+E0AE3 => "\xF3\xA0\xAB\xA4" => "", # U+E0AE4 => "\xF3\xA0\xAB\xA5" => "", # U+E0AE5 => "\xF3\xA0\xAB\xA6" => "", # U+E0AE6 => "\xF3\xA0\xAB\xA7" => "", # U+E0AE7 => "\xF3\xA0\xAB\xA8" => "", # U+E0AE8 => "\xF3\xA0\xAB\xA9" => "", # U+E0AE9 => "\xF3\xA0\xAB\xAA" => "", # U+E0AEA => "\xF3\xA0\xAB\xAB" => "", # U+E0AEB => "\xF3\xA0\xAB\xAC" => "", # U+E0AEC => "\xF3\xA0\xAB\xAD" => "", # U+E0AED => "\xF3\xA0\xAB\xAE" => "", # U+E0AEE => "\xF3\xA0\xAB\xAF" => "", # U+E0AEF => "\xF3\xA0\xAB\xB0" => "", # U+E0AF0 => "\xF3\xA0\xAB\xB1" => "", # U+E0AF1 => "\xF3\xA0\xAB\xB2" => "", # U+E0AF2 => "\xF3\xA0\xAB\xB3" => "", # U+E0AF3 => "\xF3\xA0\xAB\xB4" => "", # U+E0AF4 => "\xF3\xA0\xAB\xB5" => "", # U+E0AF5 => "\xF3\xA0\xAB\xB6" => "", # U+E0AF6 => "\xF3\xA0\xAB\xB7" => "", # U+E0AF7 => "\xF3\xA0\xAB\xB8" => "", # U+E0AF8 => "\xF3\xA0\xAB\xB9" => "", # U+E0AF9 => "\xF3\xA0\xAB\xBA" => "", # U+E0AFA => "\xF3\xA0\xAB\xBB" => "", # U+E0AFB => "\xF3\xA0\xAB\xBC" => "", # U+E0AFC => "\xF3\xA0\xAB\xBD" => "", # U+E0AFD => "\xF3\xA0\xAB\xBE" => "", # U+E0AFE => "\xF3\xA0\xAB\xBF" => "", # U+E0AFF => "\xF3\xA0\xAC\x80" => "", # U+E0B00 => "\xF3\xA0\xAC\x81" => "", # U+E0B01 => "\xF3\xA0\xAC\x82" => "", # U+E0B02 => "\xF3\xA0\xAC\x83" => "", # U+E0B03 => "\xF3\xA0\xAC\x84" => "", # U+E0B04 => "\xF3\xA0\xAC\x85" => "", # U+E0B05 => "\xF3\xA0\xAC\x86" => "", # U+E0B06 => "\xF3\xA0\xAC\x87" => "", # U+E0B07 => "\xF3\xA0\xAC\x88" => "", # U+E0B08 => "\xF3\xA0\xAC\x89" => "", # U+E0B09 => "\xF3\xA0\xAC\x8A" => "", # U+E0B0A => "\xF3\xA0\xAC\x8B" => "", # U+E0B0B => "\xF3\xA0\xAC\x8C" => "", # U+E0B0C => "\xF3\xA0\xAC\x8D" => "", # U+E0B0D => "\xF3\xA0\xAC\x8E" => "", # U+E0B0E => "\xF3\xA0\xAC\x8F" => "", # U+E0B0F => "\xF3\xA0\xAC\x90" => "", # U+E0B10 => "\xF3\xA0\xAC\x91" => "", # U+E0B11 => "\xF3\xA0\xAC\x92" => "", # U+E0B12 => "\xF3\xA0\xAC\x93" => "", # U+E0B13 => "\xF3\xA0\xAC\x94" => "", # U+E0B14 => "\xF3\xA0\xAC\x95" => "", # U+E0B15 => "\xF3\xA0\xAC\x96" => "", # U+E0B16 => "\xF3\xA0\xAC\x97" => "", # U+E0B17 => "\xF3\xA0\xAC\x98" => "", # U+E0B18 => "\xF3\xA0\xAC\x99" => "", # U+E0B19 => "\xF3\xA0\xAC\x9A" => "", # U+E0B1A => "\xF3\xA0\xAC\x9B" => "", # U+E0B1B => "\xF3\xA0\xAC\x9C" => "", # U+E0B1C => "\xF3\xA0\xAC\x9D" => "", # U+E0B1D => "\xF3\xA0\xAC\x9E" => "", # U+E0B1E => "\xF3\xA0\xAC\x9F" => "", # U+E0B1F => "\xF3\xA0\xAC\xA0" => "", # U+E0B20 => "\xF3\xA0\xAC\xA1" => "", # U+E0B21 => "\xF3\xA0\xAC\xA2" => "", # U+E0B22 => "\xF3\xA0\xAC\xA3" => "", # U+E0B23 => "\xF3\xA0\xAC\xA4" => "", # U+E0B24 => "\xF3\xA0\xAC\xA5" => "", # U+E0B25 => "\xF3\xA0\xAC\xA6" => "", # U+E0B26 => "\xF3\xA0\xAC\xA7" => "", # U+E0B27 => "\xF3\xA0\xAC\xA8" => "", # U+E0B28 => "\xF3\xA0\xAC\xA9" => "", # U+E0B29 => "\xF3\xA0\xAC\xAA" => "", # U+E0B2A => "\xF3\xA0\xAC\xAB" => "", # U+E0B2B => "\xF3\xA0\xAC\xAC" => "", # U+E0B2C => "\xF3\xA0\xAC\xAD" => "", # U+E0B2D => "\xF3\xA0\xAC\xAE" => "", # U+E0B2E => "\xF3\xA0\xAC\xAF" => "", # U+E0B2F => "\xF3\xA0\xAC\xB0" => "", # U+E0B30 => "\xF3\xA0\xAC\xB1" => "", # U+E0B31 => "\xF3\xA0\xAC\xB2" => "", # U+E0B32 => "\xF3\xA0\xAC\xB3" => "", # U+E0B33 => "\xF3\xA0\xAC\xB4" => "", # U+E0B34 => "\xF3\xA0\xAC\xB5" => "", # U+E0B35 => "\xF3\xA0\xAC\xB6" => "", # U+E0B36 => "\xF3\xA0\xAC\xB7" => "", # U+E0B37 => "\xF3\xA0\xAC\xB8" => "", # U+E0B38 => "\xF3\xA0\xAC\xB9" => "", # U+E0B39 => "\xF3\xA0\xAC\xBA" => "", # U+E0B3A => "\xF3\xA0\xAC\xBB" => "", # U+E0B3B => "\xF3\xA0\xAC\xBC" => "", # U+E0B3C => "\xF3\xA0\xAC\xBD" => "", # U+E0B3D => "\xF3\xA0\xAC\xBE" => "", # U+E0B3E => "\xF3\xA0\xAC\xBF" => "", # U+E0B3F => "\xF3\xA0\xAD\x80" => "", # U+E0B40 => "\xF3\xA0\xAD\x81" => "", # U+E0B41 => "\xF3\xA0\xAD\x82" => "", # U+E0B42 => "\xF3\xA0\xAD\x83" => "", # U+E0B43 => "\xF3\xA0\xAD\x84" => "", # U+E0B44 => "\xF3\xA0\xAD\x85" => "", # U+E0B45 => "\xF3\xA0\xAD\x86" => "", # U+E0B46 => "\xF3\xA0\xAD\x87" => "", # U+E0B47 => "\xF3\xA0\xAD\x88" => "", # U+E0B48 => "\xF3\xA0\xAD\x89" => "", # U+E0B49 => "\xF3\xA0\xAD\x8A" => "", # U+E0B4A => "\xF3\xA0\xAD\x8B" => "", # U+E0B4B => "\xF3\xA0\xAD\x8C" => "", # U+E0B4C => "\xF3\xA0\xAD\x8D" => "", # U+E0B4D => "\xF3\xA0\xAD\x8E" => "", # U+E0B4E => "\xF3\xA0\xAD\x8F" => "", # U+E0B4F => "\xF3\xA0\xAD\x90" => "", # U+E0B50 => "\xF3\xA0\xAD\x91" => "", # U+E0B51 => "\xF3\xA0\xAD\x92" => "", # U+E0B52 => "\xF3\xA0\xAD\x93" => "", # U+E0B53 => "\xF3\xA0\xAD\x94" => "", # U+E0B54 => "\xF3\xA0\xAD\x95" => "", # U+E0B55 => "\xF3\xA0\xAD\x96" => "", # U+E0B56 => "\xF3\xA0\xAD\x97" => "", # U+E0B57 => "\xF3\xA0\xAD\x98" => "", # U+E0B58 => "\xF3\xA0\xAD\x99" => "", # U+E0B59 => "\xF3\xA0\xAD\x9A" => "", # U+E0B5A => "\xF3\xA0\xAD\x9B" => "", # U+E0B5B => "\xF3\xA0\xAD\x9C" => "", # U+E0B5C => "\xF3\xA0\xAD\x9D" => "", # U+E0B5D => "\xF3\xA0\xAD\x9E" => "", # U+E0B5E => "\xF3\xA0\xAD\x9F" => "", # U+E0B5F => "\xF3\xA0\xAD\xA0" => "", # U+E0B60 => "\xF3\xA0\xAD\xA1" => "", # U+E0B61 => "\xF3\xA0\xAD\xA2" => "", # U+E0B62 => "\xF3\xA0\xAD\xA3" => "", # U+E0B63 => "\xF3\xA0\xAD\xA4" => "", # U+E0B64 => "\xF3\xA0\xAD\xA5" => "", # U+E0B65 => "\xF3\xA0\xAD\xA6" => "", # U+E0B66 => "\xF3\xA0\xAD\xA7" => "", # U+E0B67 => "\xF3\xA0\xAD\xA8" => "", # U+E0B68 => "\xF3\xA0\xAD\xA9" => "", # U+E0B69 => "\xF3\xA0\xAD\xAA" => "", # U+E0B6A => "\xF3\xA0\xAD\xAB" => "", # U+E0B6B => "\xF3\xA0\xAD\xAC" => "", # U+E0B6C => "\xF3\xA0\xAD\xAD" => "", # U+E0B6D => "\xF3\xA0\xAD\xAE" => "", # U+E0B6E => "\xF3\xA0\xAD\xAF" => "", # U+E0B6F => "\xF3\xA0\xAD\xB0" => "", # U+E0B70 => "\xF3\xA0\xAD\xB1" => "", # U+E0B71 => "\xF3\xA0\xAD\xB2" => "", # U+E0B72 => "\xF3\xA0\xAD\xB3" => "", # U+E0B73 => "\xF3\xA0\xAD\xB4" => "", # U+E0B74 => "\xF3\xA0\xAD\xB5" => "", # U+E0B75 => "\xF3\xA0\xAD\xB6" => "", # U+E0B76 => "\xF3\xA0\xAD\xB7" => "", # U+E0B77 => "\xF3\xA0\xAD\xB8" => "", # U+E0B78 => "\xF3\xA0\xAD\xB9" => "", # U+E0B79 => "\xF3\xA0\xAD\xBA" => "", # U+E0B7A => "\xF3\xA0\xAD\xBB" => "", # U+E0B7B => "\xF3\xA0\xAD\xBC" => "", # U+E0B7C => "\xF3\xA0\xAD\xBD" => "", # U+E0B7D => "\xF3\xA0\xAD\xBE" => "", # U+E0B7E => "\xF3\xA0\xAD\xBF" => "", # U+E0B7F => "\xF3\xA0\xAE\x80" => "", # U+E0B80 => "\xF3\xA0\xAE\x81" => "", # U+E0B81 => "\xF3\xA0\xAE\x82" => "", # U+E0B82 => "\xF3\xA0\xAE\x83" => "", # U+E0B83 => "\xF3\xA0\xAE\x84" => "", # U+E0B84 => "\xF3\xA0\xAE\x85" => "", # U+E0B85 => "\xF3\xA0\xAE\x86" => "", # U+E0B86 => "\xF3\xA0\xAE\x87" => "", # U+E0B87 => "\xF3\xA0\xAE\x88" => "", # U+E0B88 => "\xF3\xA0\xAE\x89" => "", # U+E0B89 => "\xF3\xA0\xAE\x8A" => "", # U+E0B8A => "\xF3\xA0\xAE\x8B" => "", # U+E0B8B => "\xF3\xA0\xAE\x8C" => "", # U+E0B8C => "\xF3\xA0\xAE\x8D" => "", # U+E0B8D => "\xF3\xA0\xAE\x8E" => "", # U+E0B8E => "\xF3\xA0\xAE\x8F" => "", # U+E0B8F => "\xF3\xA0\xAE\x90" => "", # U+E0B90 => "\xF3\xA0\xAE\x91" => "", # U+E0B91 => "\xF3\xA0\xAE\x92" => "", # U+E0B92 => "\xF3\xA0\xAE\x93" => "", # U+E0B93 => "\xF3\xA0\xAE\x94" => "", # U+E0B94 => "\xF3\xA0\xAE\x95" => "", # U+E0B95 => "\xF3\xA0\xAE\x96" => "", # U+E0B96 => "\xF3\xA0\xAE\x97" => "", # U+E0B97 => "\xF3\xA0\xAE\x98" => "", # U+E0B98 => "\xF3\xA0\xAE\x99" => "", # U+E0B99 => "\xF3\xA0\xAE\x9A" => "", # U+E0B9A => "\xF3\xA0\xAE\x9B" => "", # U+E0B9B => "\xF3\xA0\xAE\x9C" => "", # U+E0B9C => "\xF3\xA0\xAE\x9D" => "", # U+E0B9D => "\xF3\xA0\xAE\x9E" => "", # U+E0B9E => "\xF3\xA0\xAE\x9F" => "", # U+E0B9F => "\xF3\xA0\xAE\xA0" => "", # U+E0BA0 => "\xF3\xA0\xAE\xA1" => "", # U+E0BA1 => "\xF3\xA0\xAE\xA2" => "", # U+E0BA2 => "\xF3\xA0\xAE\xA3" => "", # U+E0BA3 => "\xF3\xA0\xAE\xA4" => "", # U+E0BA4 => "\xF3\xA0\xAE\xA5" => "", # U+E0BA5 => "\xF3\xA0\xAE\xA6" => "", # U+E0BA6 => "\xF3\xA0\xAE\xA7" => "", # U+E0BA7 => "\xF3\xA0\xAE\xA8" => "", # U+E0BA8 => "\xF3\xA0\xAE\xA9" => "", # U+E0BA9 => "\xF3\xA0\xAE\xAA" => "", # U+E0BAA => "\xF3\xA0\xAE\xAB" => "", # U+E0BAB => "\xF3\xA0\xAE\xAC" => "", # U+E0BAC => "\xF3\xA0\xAE\xAD" => "", # U+E0BAD => "\xF3\xA0\xAE\xAE" => "", # U+E0BAE => "\xF3\xA0\xAE\xAF" => "", # U+E0BAF => "\xF3\xA0\xAE\xB0" => "", # U+E0BB0 => "\xF3\xA0\xAE\xB1" => "", # U+E0BB1 => "\xF3\xA0\xAE\xB2" => "", # U+E0BB2 => "\xF3\xA0\xAE\xB3" => "", # U+E0BB3 => "\xF3\xA0\xAE\xB4" => "", # U+E0BB4 => "\xF3\xA0\xAE\xB5" => "", # U+E0BB5 => "\xF3\xA0\xAE\xB6" => "", # U+E0BB6 => "\xF3\xA0\xAE\xB7" => "", # U+E0BB7 => "\xF3\xA0\xAE\xB8" => "", # U+E0BB8 => "\xF3\xA0\xAE\xB9" => "", # U+E0BB9 => "\xF3\xA0\xAE\xBA" => "", # U+E0BBA => "\xF3\xA0\xAE\xBB" => "", # U+E0BBB => "\xF3\xA0\xAE\xBC" => "", # U+E0BBC => "\xF3\xA0\xAE\xBD" => "", # U+E0BBD => "\xF3\xA0\xAE\xBE" => "", # U+E0BBE => "\xF3\xA0\xAE\xBF" => "", # U+E0BBF => "\xF3\xA0\xAF\x80" => "", # U+E0BC0 => "\xF3\xA0\xAF\x81" => "", # U+E0BC1 => "\xF3\xA0\xAF\x82" => "", # U+E0BC2 => "\xF3\xA0\xAF\x83" => "", # U+E0BC3 => "\xF3\xA0\xAF\x84" => "", # U+E0BC4 => "\xF3\xA0\xAF\x85" => "", # U+E0BC5 => "\xF3\xA0\xAF\x86" => "", # U+E0BC6 => "\xF3\xA0\xAF\x87" => "", # U+E0BC7 => "\xF3\xA0\xAF\x88" => "", # U+E0BC8 => "\xF3\xA0\xAF\x89" => "", # U+E0BC9 => "\xF3\xA0\xAF\x8A" => "", # U+E0BCA => "\xF3\xA0\xAF\x8B" => "", # U+E0BCB => "\xF3\xA0\xAF\x8C" => "", # U+E0BCC => "\xF3\xA0\xAF\x8D" => "", # U+E0BCD => "\xF3\xA0\xAF\x8E" => "", # U+E0BCE => "\xF3\xA0\xAF\x8F" => "", # U+E0BCF => "\xF3\xA0\xAF\x90" => "", # U+E0BD0 => "\xF3\xA0\xAF\x91" => "", # U+E0BD1 => "\xF3\xA0\xAF\x92" => "", # U+E0BD2 => "\xF3\xA0\xAF\x93" => "", # U+E0BD3 => "\xF3\xA0\xAF\x94" => "", # U+E0BD4 => "\xF3\xA0\xAF\x95" => "", # U+E0BD5 => "\xF3\xA0\xAF\x96" => "", # U+E0BD6 => "\xF3\xA0\xAF\x97" => "", # U+E0BD7 => "\xF3\xA0\xAF\x98" => "", # U+E0BD8 => "\xF3\xA0\xAF\x99" => "", # U+E0BD9 => "\xF3\xA0\xAF\x9A" => "", # U+E0BDA => "\xF3\xA0\xAF\x9B" => "", # U+E0BDB => "\xF3\xA0\xAF\x9C" => "", # U+E0BDC => "\xF3\xA0\xAF\x9D" => "", # U+E0BDD => "\xF3\xA0\xAF\x9E" => "", # U+E0BDE => "\xF3\xA0\xAF\x9F" => "", # U+E0BDF => "\xF3\xA0\xAF\xA0" => "", # U+E0BE0 => "\xF3\xA0\xAF\xA1" => "", # U+E0BE1 => "\xF3\xA0\xAF\xA2" => "", # U+E0BE2 => "\xF3\xA0\xAF\xA3" => "", # U+E0BE3 => "\xF3\xA0\xAF\xA4" => "", # U+E0BE4 => "\xF3\xA0\xAF\xA5" => "", # U+E0BE5 => "\xF3\xA0\xAF\xA6" => "", # U+E0BE6 => "\xF3\xA0\xAF\xA7" => "", # U+E0BE7 => "\xF3\xA0\xAF\xA8" => "", # U+E0BE8 => "\xF3\xA0\xAF\xA9" => "", # U+E0BE9 => "\xF3\xA0\xAF\xAA" => "", # U+E0BEA => "\xF3\xA0\xAF\xAB" => "", # U+E0BEB => "\xF3\xA0\xAF\xAC" => "", # U+E0BEC => "\xF3\xA0\xAF\xAD" => "", # U+E0BED => "\xF3\xA0\xAF\xAE" => "", # U+E0BEE => "\xF3\xA0\xAF\xAF" => "", # U+E0BEF => "\xF3\xA0\xAF\xB0" => "", # U+E0BF0 => "\xF3\xA0\xAF\xB1" => "", # U+E0BF1 => "\xF3\xA0\xAF\xB2" => "", # U+E0BF2 => "\xF3\xA0\xAF\xB3" => "", # U+E0BF3 => "\xF3\xA0\xAF\xB4" => "", # U+E0BF4 => "\xF3\xA0\xAF\xB5" => "", # U+E0BF5 => "\xF3\xA0\xAF\xB6" => "", # U+E0BF6 => "\xF3\xA0\xAF\xB7" => "", # U+E0BF7 => "\xF3\xA0\xAF\xB8" => "", # U+E0BF8 => "\xF3\xA0\xAF\xB9" => "", # U+E0BF9 => "\xF3\xA0\xAF\xBA" => "", # U+E0BFA => "\xF3\xA0\xAF\xBB" => "", # U+E0BFB => "\xF3\xA0\xAF\xBC" => "", # U+E0BFC => "\xF3\xA0\xAF\xBD" => "", # U+E0BFD => "\xF3\xA0\xAF\xBE" => "", # U+E0BFE => "\xF3\xA0\xAF\xBF" => "", # U+E0BFF => "\xF3\xA0\xB0\x80" => "", # U+E0C00 => "\xF3\xA0\xB0\x81" => "", # U+E0C01 => "\xF3\xA0\xB0\x82" => "", # U+E0C02 => "\xF3\xA0\xB0\x83" => "", # U+E0C03 => "\xF3\xA0\xB0\x84" => "", # U+E0C04 => "\xF3\xA0\xB0\x85" => "", # U+E0C05 => "\xF3\xA0\xB0\x86" => "", # U+E0C06 => "\xF3\xA0\xB0\x87" => "", # U+E0C07 => "\xF3\xA0\xB0\x88" => "", # U+E0C08 => "\xF3\xA0\xB0\x89" => "", # U+E0C09 => "\xF3\xA0\xB0\x8A" => "", # U+E0C0A => "\xF3\xA0\xB0\x8B" => "", # U+E0C0B => "\xF3\xA0\xB0\x8C" => "", # U+E0C0C => "\xF3\xA0\xB0\x8D" => "", # U+E0C0D => "\xF3\xA0\xB0\x8E" => "", # U+E0C0E => "\xF3\xA0\xB0\x8F" => "", # U+E0C0F => "\xF3\xA0\xB0\x90" => "", # U+E0C10 => "\xF3\xA0\xB0\x91" => "", # U+E0C11 => "\xF3\xA0\xB0\x92" => "", # U+E0C12 => "\xF3\xA0\xB0\x93" => "", # U+E0C13 => "\xF3\xA0\xB0\x94" => "", # U+E0C14 => "\xF3\xA0\xB0\x95" => "", # U+E0C15 => "\xF3\xA0\xB0\x96" => "", # U+E0C16 => "\xF3\xA0\xB0\x97" => "", # U+E0C17 => "\xF3\xA0\xB0\x98" => "", # U+E0C18 => "\xF3\xA0\xB0\x99" => "", # U+E0C19 => "\xF3\xA0\xB0\x9A" => "", # U+E0C1A => "\xF3\xA0\xB0\x9B" => "", # U+E0C1B => "\xF3\xA0\xB0\x9C" => "", # U+E0C1C => "\xF3\xA0\xB0\x9D" => "", # U+E0C1D => "\xF3\xA0\xB0\x9E" => "", # U+E0C1E => "\xF3\xA0\xB0\x9F" => "", # U+E0C1F => "\xF3\xA0\xB0\xA0" => "", # U+E0C20 => "\xF3\xA0\xB0\xA1" => "", # U+E0C21 => "\xF3\xA0\xB0\xA2" => "", # U+E0C22 => "\xF3\xA0\xB0\xA3" => "", # U+E0C23 => "\xF3\xA0\xB0\xA4" => "", # U+E0C24 => "\xF3\xA0\xB0\xA5" => "", # U+E0C25 => "\xF3\xA0\xB0\xA6" => "", # U+E0C26 => "\xF3\xA0\xB0\xA7" => "", # U+E0C27 => "\xF3\xA0\xB0\xA8" => "", # U+E0C28 => "\xF3\xA0\xB0\xA9" => "", # U+E0C29 => "\xF3\xA0\xB0\xAA" => "", # U+E0C2A => "\xF3\xA0\xB0\xAB" => "", # U+E0C2B => "\xF3\xA0\xB0\xAC" => "", # U+E0C2C => "\xF3\xA0\xB0\xAD" => "", # U+E0C2D => "\xF3\xA0\xB0\xAE" => "", # U+E0C2E => "\xF3\xA0\xB0\xAF" => "", # U+E0C2F => "\xF3\xA0\xB0\xB0" => "", # U+E0C30 => "\xF3\xA0\xB0\xB1" => "", # U+E0C31 => "\xF3\xA0\xB0\xB2" => "", # U+E0C32 => "\xF3\xA0\xB0\xB3" => "", # U+E0C33 => "\xF3\xA0\xB0\xB4" => "", # U+E0C34 => "\xF3\xA0\xB0\xB5" => "", # U+E0C35 => "\xF3\xA0\xB0\xB6" => "", # U+E0C36 => "\xF3\xA0\xB0\xB7" => "", # U+E0C37 => "\xF3\xA0\xB0\xB8" => "", # U+E0C38 => "\xF3\xA0\xB0\xB9" => "", # U+E0C39 => "\xF3\xA0\xB0\xBA" => "", # U+E0C3A => "\xF3\xA0\xB0\xBB" => "", # U+E0C3B => "\xF3\xA0\xB0\xBC" => "", # U+E0C3C => "\xF3\xA0\xB0\xBD" => "", # U+E0C3D => "\xF3\xA0\xB0\xBE" => "", # U+E0C3E => "\xF3\xA0\xB0\xBF" => "", # U+E0C3F => "\xF3\xA0\xB1\x80" => "", # U+E0C40 => "\xF3\xA0\xB1\x81" => "", # U+E0C41 => "\xF3\xA0\xB1\x82" => "", # U+E0C42 => "\xF3\xA0\xB1\x83" => "", # U+E0C43 => "\xF3\xA0\xB1\x84" => "", # U+E0C44 => "\xF3\xA0\xB1\x85" => "", # U+E0C45 => "\xF3\xA0\xB1\x86" => "", # U+E0C46 => "\xF3\xA0\xB1\x87" => "", # U+E0C47 => "\xF3\xA0\xB1\x88" => "", # U+E0C48 => "\xF3\xA0\xB1\x89" => "", # U+E0C49 => "\xF3\xA0\xB1\x8A" => "", # U+E0C4A => "\xF3\xA0\xB1\x8B" => "", # U+E0C4B => "\xF3\xA0\xB1\x8C" => "", # U+E0C4C => "\xF3\xA0\xB1\x8D" => "", # U+E0C4D => "\xF3\xA0\xB1\x8E" => "", # U+E0C4E => "\xF3\xA0\xB1\x8F" => "", # U+E0C4F => "\xF3\xA0\xB1\x90" => "", # U+E0C50 => "\xF3\xA0\xB1\x91" => "", # U+E0C51 => "\xF3\xA0\xB1\x92" => "", # U+E0C52 => "\xF3\xA0\xB1\x93" => "", # U+E0C53 => "\xF3\xA0\xB1\x94" => "", # U+E0C54 => "\xF3\xA0\xB1\x95" => "", # U+E0C55 => "\xF3\xA0\xB1\x96" => "", # U+E0C56 => "\xF3\xA0\xB1\x97" => "", # U+E0C57 => "\xF3\xA0\xB1\x98" => "", # U+E0C58 => "\xF3\xA0\xB1\x99" => "", # U+E0C59 => "\xF3\xA0\xB1\x9A" => "", # U+E0C5A => "\xF3\xA0\xB1\x9B" => "", # U+E0C5B => "\xF3\xA0\xB1\x9C" => "", # U+E0C5C => "\xF3\xA0\xB1\x9D" => "", # U+E0C5D => "\xF3\xA0\xB1\x9E" => "", # U+E0C5E => "\xF3\xA0\xB1\x9F" => "", # U+E0C5F => "\xF3\xA0\xB1\xA0" => "", # U+E0C60 => "\xF3\xA0\xB1\xA1" => "", # U+E0C61 => "\xF3\xA0\xB1\xA2" => "", # U+E0C62 => "\xF3\xA0\xB1\xA3" => "", # U+E0C63 => "\xF3\xA0\xB1\xA4" => "", # U+E0C64 => "\xF3\xA0\xB1\xA5" => "", # U+E0C65 => "\xF3\xA0\xB1\xA6" => "", # U+E0C66 => "\xF3\xA0\xB1\xA7" => "", # U+E0C67 => "\xF3\xA0\xB1\xA8" => "", # U+E0C68 => "\xF3\xA0\xB1\xA9" => "", # U+E0C69 => "\xF3\xA0\xB1\xAA" => "", # U+E0C6A => "\xF3\xA0\xB1\xAB" => "", # U+E0C6B => "\xF3\xA0\xB1\xAC" => "", # U+E0C6C => "\xF3\xA0\xB1\xAD" => "", # U+E0C6D => "\xF3\xA0\xB1\xAE" => "", # U+E0C6E => "\xF3\xA0\xB1\xAF" => "", # U+E0C6F => "\xF3\xA0\xB1\xB0" => "", # U+E0C70 => "\xF3\xA0\xB1\xB1" => "", # U+E0C71 => "\xF3\xA0\xB1\xB2" => "", # U+E0C72 => "\xF3\xA0\xB1\xB3" => "", # U+E0C73 => "\xF3\xA0\xB1\xB4" => "", # U+E0C74 => "\xF3\xA0\xB1\xB5" => "", # U+E0C75 => "\xF3\xA0\xB1\xB6" => "", # U+E0C76 => "\xF3\xA0\xB1\xB7" => "", # U+E0C77 => "\xF3\xA0\xB1\xB8" => "", # U+E0C78 => "\xF3\xA0\xB1\xB9" => "", # U+E0C79 => "\xF3\xA0\xB1\xBA" => "", # U+E0C7A => "\xF3\xA0\xB1\xBB" => "", # U+E0C7B => "\xF3\xA0\xB1\xBC" => "", # U+E0C7C => "\xF3\xA0\xB1\xBD" => "", # U+E0C7D => "\xF3\xA0\xB1\xBE" => "", # U+E0C7E => "\xF3\xA0\xB1\xBF" => "", # U+E0C7F => "\xF3\xA0\xB2\x80" => "", # U+E0C80 => "\xF3\xA0\xB2\x81" => "", # U+E0C81 => "\xF3\xA0\xB2\x82" => "", # U+E0C82 => "\xF3\xA0\xB2\x83" => "", # U+E0C83 => "\xF3\xA0\xB2\x84" => "", # U+E0C84 => "\xF3\xA0\xB2\x85" => "", # U+E0C85 => "\xF3\xA0\xB2\x86" => "", # U+E0C86 => "\xF3\xA0\xB2\x87" => "", # U+E0C87 => "\xF3\xA0\xB2\x88" => "", # U+E0C88 => "\xF3\xA0\xB2\x89" => "", # U+E0C89 => "\xF3\xA0\xB2\x8A" => "", # U+E0C8A => "\xF3\xA0\xB2\x8B" => "", # U+E0C8B => "\xF3\xA0\xB2\x8C" => "", # U+E0C8C => "\xF3\xA0\xB2\x8D" => "", # U+E0C8D => "\xF3\xA0\xB2\x8E" => "", # U+E0C8E => "\xF3\xA0\xB2\x8F" => "", # U+E0C8F => "\xF3\xA0\xB2\x90" => "", # U+E0C90 => "\xF3\xA0\xB2\x91" => "", # U+E0C91 => "\xF3\xA0\xB2\x92" => "", # U+E0C92 => "\xF3\xA0\xB2\x93" => "", # U+E0C93 => "\xF3\xA0\xB2\x94" => "", # U+E0C94 => "\xF3\xA0\xB2\x95" => "", # U+E0C95 => "\xF3\xA0\xB2\x96" => "", # U+E0C96 => "\xF3\xA0\xB2\x97" => "", # U+E0C97 => "\xF3\xA0\xB2\x98" => "", # U+E0C98 => "\xF3\xA0\xB2\x99" => "", # U+E0C99 => "\xF3\xA0\xB2\x9A" => "", # U+E0C9A => "\xF3\xA0\xB2\x9B" => "", # U+E0C9B => "\xF3\xA0\xB2\x9C" => "", # U+E0C9C => "\xF3\xA0\xB2\x9D" => "", # U+E0C9D => "\xF3\xA0\xB2\x9E" => "", # U+E0C9E => "\xF3\xA0\xB2\x9F" => "", # U+E0C9F => "\xF3\xA0\xB2\xA0" => "", # U+E0CA0 => "\xF3\xA0\xB2\xA1" => "", # U+E0CA1 => "\xF3\xA0\xB2\xA2" => "", # U+E0CA2 => "\xF3\xA0\xB2\xA3" => "", # U+E0CA3 => "\xF3\xA0\xB2\xA4" => "", # U+E0CA4 => "\xF3\xA0\xB2\xA5" => "", # U+E0CA5 => "\xF3\xA0\xB2\xA6" => "", # U+E0CA6 => "\xF3\xA0\xB2\xA7" => "", # U+E0CA7 => "\xF3\xA0\xB2\xA8" => "", # U+E0CA8 => "\xF3\xA0\xB2\xA9" => "", # U+E0CA9 => "\xF3\xA0\xB2\xAA" => "", # U+E0CAA => "\xF3\xA0\xB2\xAB" => "", # U+E0CAB => "\xF3\xA0\xB2\xAC" => "", # U+E0CAC => "\xF3\xA0\xB2\xAD" => "", # U+E0CAD => "\xF3\xA0\xB2\xAE" => "", # U+E0CAE => "\xF3\xA0\xB2\xAF" => "", # U+E0CAF => "\xF3\xA0\xB2\xB0" => "", # U+E0CB0 => "\xF3\xA0\xB2\xB1" => "", # U+E0CB1 => "\xF3\xA0\xB2\xB2" => "", # U+E0CB2 => "\xF3\xA0\xB2\xB3" => "", # U+E0CB3 => "\xF3\xA0\xB2\xB4" => "", # U+E0CB4 => "\xF3\xA0\xB2\xB5" => "", # U+E0CB5 => "\xF3\xA0\xB2\xB6" => "", # U+E0CB6 => "\xF3\xA0\xB2\xB7" => "", # U+E0CB7 => "\xF3\xA0\xB2\xB8" => "", # U+E0CB8 => "\xF3\xA0\xB2\xB9" => "", # U+E0CB9 => "\xF3\xA0\xB2\xBA" => "", # U+E0CBA => "\xF3\xA0\xB2\xBB" => "", # U+E0CBB => "\xF3\xA0\xB2\xBC" => "", # U+E0CBC => "\xF3\xA0\xB2\xBD" => "", # U+E0CBD => "\xF3\xA0\xB2\xBE" => "", # U+E0CBE => "\xF3\xA0\xB2\xBF" => "", # U+E0CBF => "\xF3\xA0\xB3\x80" => "", # U+E0CC0 => "\xF3\xA0\xB3\x81" => "", # U+E0CC1 => "\xF3\xA0\xB3\x82" => "", # U+E0CC2 => "\xF3\xA0\xB3\x83" => "", # U+E0CC3 => "\xF3\xA0\xB3\x84" => "", # U+E0CC4 => "\xF3\xA0\xB3\x85" => "", # U+E0CC5 => "\xF3\xA0\xB3\x86" => "", # U+E0CC6 => "\xF3\xA0\xB3\x87" => "", # U+E0CC7 => "\xF3\xA0\xB3\x88" => "", # U+E0CC8 => "\xF3\xA0\xB3\x89" => "", # U+E0CC9 => "\xF3\xA0\xB3\x8A" => "", # U+E0CCA => "\xF3\xA0\xB3\x8B" => "", # U+E0CCB => "\xF3\xA0\xB3\x8C" => "", # U+E0CCC => "\xF3\xA0\xB3\x8D" => "", # U+E0CCD => "\xF3\xA0\xB3\x8E" => "", # U+E0CCE => "\xF3\xA0\xB3\x8F" => "", # U+E0CCF => "\xF3\xA0\xB3\x90" => "", # U+E0CD0 => "\xF3\xA0\xB3\x91" => "", # U+E0CD1 => "\xF3\xA0\xB3\x92" => "", # U+E0CD2 => "\xF3\xA0\xB3\x93" => "", # U+E0CD3 => "\xF3\xA0\xB3\x94" => "", # U+E0CD4 => "\xF3\xA0\xB3\x95" => "", # U+E0CD5 => "\xF3\xA0\xB3\x96" => "", # U+E0CD6 => "\xF3\xA0\xB3\x97" => "", # U+E0CD7 => "\xF3\xA0\xB3\x98" => "", # U+E0CD8 => "\xF3\xA0\xB3\x99" => "", # U+E0CD9 => "\xF3\xA0\xB3\x9A" => "", # U+E0CDA => "\xF3\xA0\xB3\x9B" => "", # U+E0CDB => "\xF3\xA0\xB3\x9C" => "", # U+E0CDC => "\xF3\xA0\xB3\x9D" => "", # U+E0CDD => "\xF3\xA0\xB3\x9E" => "", # U+E0CDE => "\xF3\xA0\xB3\x9F" => "", # U+E0CDF => "\xF3\xA0\xB3\xA0" => "", # U+E0CE0 => "\xF3\xA0\xB3\xA1" => "", # U+E0CE1 => "\xF3\xA0\xB3\xA2" => "", # U+E0CE2 => "\xF3\xA0\xB3\xA3" => "", # U+E0CE3 => "\xF3\xA0\xB3\xA4" => "", # U+E0CE4 => "\xF3\xA0\xB3\xA5" => "", # U+E0CE5 => "\xF3\xA0\xB3\xA6" => "", # U+E0CE6 => "\xF3\xA0\xB3\xA7" => "", # U+E0CE7 => "\xF3\xA0\xB3\xA8" => "", # U+E0CE8 => "\xF3\xA0\xB3\xA9" => "", # U+E0CE9 => "\xF3\xA0\xB3\xAA" => "", # U+E0CEA => "\xF3\xA0\xB3\xAB" => "", # U+E0CEB => "\xF3\xA0\xB3\xAC" => "", # U+E0CEC => "\xF3\xA0\xB3\xAD" => "", # U+E0CED => "\xF3\xA0\xB3\xAE" => "", # U+E0CEE => "\xF3\xA0\xB3\xAF" => "", # U+E0CEF => "\xF3\xA0\xB3\xB0" => "", # U+E0CF0 => "\xF3\xA0\xB3\xB1" => "", # U+E0CF1 => "\xF3\xA0\xB3\xB2" => "", # U+E0CF2 => "\xF3\xA0\xB3\xB3" => "", # U+E0CF3 => "\xF3\xA0\xB3\xB4" => "", # U+E0CF4 => "\xF3\xA0\xB3\xB5" => "", # U+E0CF5 => "\xF3\xA0\xB3\xB6" => "", # U+E0CF6 => "\xF3\xA0\xB3\xB7" => "", # U+E0CF7 => "\xF3\xA0\xB3\xB8" => "", # U+E0CF8 => "\xF3\xA0\xB3\xB9" => "", # U+E0CF9 => "\xF3\xA0\xB3\xBA" => "", # U+E0CFA => "\xF3\xA0\xB3\xBB" => "", # U+E0CFB => "\xF3\xA0\xB3\xBC" => "", # U+E0CFC => "\xF3\xA0\xB3\xBD" => "", # U+E0CFD => "\xF3\xA0\xB3\xBE" => "", # U+E0CFE => "\xF3\xA0\xB3\xBF" => "", # U+E0CFF => "\xF3\xA0\xB4\x80" => "", # U+E0D00 => "\xF3\xA0\xB4\x81" => "", # U+E0D01 => "\xF3\xA0\xB4\x82" => "", # U+E0D02 => "\xF3\xA0\xB4\x83" => "", # U+E0D03 => "\xF3\xA0\xB4\x84" => "", # U+E0D04 => "\xF3\xA0\xB4\x85" => "", # U+E0D05 => "\xF3\xA0\xB4\x86" => "", # U+E0D06 => "\xF3\xA0\xB4\x87" => "", # U+E0D07 => "\xF3\xA0\xB4\x88" => "", # U+E0D08 => "\xF3\xA0\xB4\x89" => "", # U+E0D09 => "\xF3\xA0\xB4\x8A" => "", # U+E0D0A => "\xF3\xA0\xB4\x8B" => "", # U+E0D0B => "\xF3\xA0\xB4\x8C" => "", # U+E0D0C => "\xF3\xA0\xB4\x8D" => "", # U+E0D0D => "\xF3\xA0\xB4\x8E" => "", # U+E0D0E => "\xF3\xA0\xB4\x8F" => "", # U+E0D0F => "\xF3\xA0\xB4\x90" => "", # U+E0D10 => "\xF3\xA0\xB4\x91" => "", # U+E0D11 => "\xF3\xA0\xB4\x92" => "", # U+E0D12 => "\xF3\xA0\xB4\x93" => "", # U+E0D13 => "\xF3\xA0\xB4\x94" => "", # U+E0D14 => "\xF3\xA0\xB4\x95" => "", # U+E0D15 => "\xF3\xA0\xB4\x96" => "", # U+E0D16 => "\xF3\xA0\xB4\x97" => "", # U+E0D17 => "\xF3\xA0\xB4\x98" => "", # U+E0D18 => "\xF3\xA0\xB4\x99" => "", # U+E0D19 => "\xF3\xA0\xB4\x9A" => "", # U+E0D1A => "\xF3\xA0\xB4\x9B" => "", # U+E0D1B => "\xF3\xA0\xB4\x9C" => "", # U+E0D1C => "\xF3\xA0\xB4\x9D" => "", # U+E0D1D => "\xF3\xA0\xB4\x9E" => "", # U+E0D1E => "\xF3\xA0\xB4\x9F" => "", # U+E0D1F => "\xF3\xA0\xB4\xA0" => "", # U+E0D20 => "\xF3\xA0\xB4\xA1" => "", # U+E0D21 => "\xF3\xA0\xB4\xA2" => "", # U+E0D22 => "\xF3\xA0\xB4\xA3" => "", # U+E0D23 => "\xF3\xA0\xB4\xA4" => "", # U+E0D24 => "\xF3\xA0\xB4\xA5" => "", # U+E0D25 => "\xF3\xA0\xB4\xA6" => "", # U+E0D26 => "\xF3\xA0\xB4\xA7" => "", # U+E0D27 => "\xF3\xA0\xB4\xA8" => "", # U+E0D28 => "\xF3\xA0\xB4\xA9" => "", # U+E0D29 => "\xF3\xA0\xB4\xAA" => "", # U+E0D2A => "\xF3\xA0\xB4\xAB" => "", # U+E0D2B => "\xF3\xA0\xB4\xAC" => "", # U+E0D2C => "\xF3\xA0\xB4\xAD" => "", # U+E0D2D => "\xF3\xA0\xB4\xAE" => "", # U+E0D2E => "\xF3\xA0\xB4\xAF" => "", # U+E0D2F => "\xF3\xA0\xB4\xB0" => "", # U+E0D30 => "\xF3\xA0\xB4\xB1" => "", # U+E0D31 => "\xF3\xA0\xB4\xB2" => "", # U+E0D32 => "\xF3\xA0\xB4\xB3" => "", # U+E0D33 => "\xF3\xA0\xB4\xB4" => "", # U+E0D34 => "\xF3\xA0\xB4\xB5" => "", # U+E0D35 => "\xF3\xA0\xB4\xB6" => "", # U+E0D36 => "\xF3\xA0\xB4\xB7" => "", # U+E0D37 => "\xF3\xA0\xB4\xB8" => "", # U+E0D38 => "\xF3\xA0\xB4\xB9" => "", # U+E0D39 => "\xF3\xA0\xB4\xBA" => "", # U+E0D3A => "\xF3\xA0\xB4\xBB" => "", # U+E0D3B => "\xF3\xA0\xB4\xBC" => "", # U+E0D3C => "\xF3\xA0\xB4\xBD" => "", # U+E0D3D => "\xF3\xA0\xB4\xBE" => "", # U+E0D3E => "\xF3\xA0\xB4\xBF" => "", # U+E0D3F => "\xF3\xA0\xB5\x80" => "", # U+E0D40 => "\xF3\xA0\xB5\x81" => "", # U+E0D41 => "\xF3\xA0\xB5\x82" => "", # U+E0D42 => "\xF3\xA0\xB5\x83" => "", # U+E0D43 => "\xF3\xA0\xB5\x84" => "", # U+E0D44 => "\xF3\xA0\xB5\x85" => "", # U+E0D45 => "\xF3\xA0\xB5\x86" => "", # U+E0D46 => "\xF3\xA0\xB5\x87" => "", # U+E0D47 => "\xF3\xA0\xB5\x88" => "", # U+E0D48 => "\xF3\xA0\xB5\x89" => "", # U+E0D49 => "\xF3\xA0\xB5\x8A" => "", # U+E0D4A => "\xF3\xA0\xB5\x8B" => "", # U+E0D4B => "\xF3\xA0\xB5\x8C" => "", # U+E0D4C => "\xF3\xA0\xB5\x8D" => "", # U+E0D4D => "\xF3\xA0\xB5\x8E" => "", # U+E0D4E => "\xF3\xA0\xB5\x8F" => "", # U+E0D4F => "\xF3\xA0\xB5\x90" => "", # U+E0D50 => "\xF3\xA0\xB5\x91" => "", # U+E0D51 => "\xF3\xA0\xB5\x92" => "", # U+E0D52 => "\xF3\xA0\xB5\x93" => "", # U+E0D53 => "\xF3\xA0\xB5\x94" => "", # U+E0D54 => "\xF3\xA0\xB5\x95" => "", # U+E0D55 => "\xF3\xA0\xB5\x96" => "", # U+E0D56 => "\xF3\xA0\xB5\x97" => "", # U+E0D57 => "\xF3\xA0\xB5\x98" => "", # U+E0D58 => "\xF3\xA0\xB5\x99" => "", # U+E0D59 => "\xF3\xA0\xB5\x9A" => "", # U+E0D5A => "\xF3\xA0\xB5\x9B" => "", # U+E0D5B => "\xF3\xA0\xB5\x9C" => "", # U+E0D5C => "\xF3\xA0\xB5\x9D" => "", # U+E0D5D => "\xF3\xA0\xB5\x9E" => "", # U+E0D5E => "\xF3\xA0\xB5\x9F" => "", # U+E0D5F => "\xF3\xA0\xB5\xA0" => "", # U+E0D60 => "\xF3\xA0\xB5\xA1" => "", # U+E0D61 => "\xF3\xA0\xB5\xA2" => "", # U+E0D62 => "\xF3\xA0\xB5\xA3" => "", # U+E0D63 => "\xF3\xA0\xB5\xA4" => "", # U+E0D64 => "\xF3\xA0\xB5\xA5" => "", # U+E0D65 => "\xF3\xA0\xB5\xA6" => "", # U+E0D66 => "\xF3\xA0\xB5\xA7" => "", # U+E0D67 => "\xF3\xA0\xB5\xA8" => "", # U+E0D68 => "\xF3\xA0\xB5\xA9" => "", # U+E0D69 => "\xF3\xA0\xB5\xAA" => "", # U+E0D6A => "\xF3\xA0\xB5\xAB" => "", # U+E0D6B => "\xF3\xA0\xB5\xAC" => "", # U+E0D6C => "\xF3\xA0\xB5\xAD" => "", # U+E0D6D => "\xF3\xA0\xB5\xAE" => "", # U+E0D6E => "\xF3\xA0\xB5\xAF" => "", # U+E0D6F => "\xF3\xA0\xB5\xB0" => "", # U+E0D70 => "\xF3\xA0\xB5\xB1" => "", # U+E0D71 => "\xF3\xA0\xB5\xB2" => "", # U+E0D72 => "\xF3\xA0\xB5\xB3" => "", # U+E0D73 => "\xF3\xA0\xB5\xB4" => "", # U+E0D74 => "\xF3\xA0\xB5\xB5" => "", # U+E0D75 => "\xF3\xA0\xB5\xB6" => "", # U+E0D76 => "\xF3\xA0\xB5\xB7" => "", # U+E0D77 => "\xF3\xA0\xB5\xB8" => "", # U+E0D78 => "\xF3\xA0\xB5\xB9" => "", # U+E0D79 => "\xF3\xA0\xB5\xBA" => "", # U+E0D7A => "\xF3\xA0\xB5\xBB" => "", # U+E0D7B => "\xF3\xA0\xB5\xBC" => "", # U+E0D7C => "\xF3\xA0\xB5\xBD" => "", # U+E0D7D => "\xF3\xA0\xB5\xBE" => "", # U+E0D7E => "\xF3\xA0\xB5\xBF" => "", # U+E0D7F => "\xF3\xA0\xB6\x80" => "", # U+E0D80 => "\xF3\xA0\xB6\x81" => "", # U+E0D81 => "\xF3\xA0\xB6\x82" => "", # U+E0D82 => "\xF3\xA0\xB6\x83" => "", # U+E0D83 => "\xF3\xA0\xB6\x84" => "", # U+E0D84 => "\xF3\xA0\xB6\x85" => "", # U+E0D85 => "\xF3\xA0\xB6\x86" => "", # U+E0D86 => "\xF3\xA0\xB6\x87" => "", # U+E0D87 => "\xF3\xA0\xB6\x88" => "", # U+E0D88 => "\xF3\xA0\xB6\x89" => "", # U+E0D89 => "\xF3\xA0\xB6\x8A" => "", # U+E0D8A => "\xF3\xA0\xB6\x8B" => "", # U+E0D8B => "\xF3\xA0\xB6\x8C" => "", # U+E0D8C => "\xF3\xA0\xB6\x8D" => "", # U+E0D8D => "\xF3\xA0\xB6\x8E" => "", # U+E0D8E => "\xF3\xA0\xB6\x8F" => "", # U+E0D8F => "\xF3\xA0\xB6\x90" => "", # U+E0D90 => "\xF3\xA0\xB6\x91" => "", # U+E0D91 => "\xF3\xA0\xB6\x92" => "", # U+E0D92 => "\xF3\xA0\xB6\x93" => "", # U+E0D93 => "\xF3\xA0\xB6\x94" => "", # U+E0D94 => "\xF3\xA0\xB6\x95" => "", # U+E0D95 => "\xF3\xA0\xB6\x96" => "", # U+E0D96 => "\xF3\xA0\xB6\x97" => "", # U+E0D97 => "\xF3\xA0\xB6\x98" => "", # U+E0D98 => "\xF3\xA0\xB6\x99" => "", # U+E0D99 => "\xF3\xA0\xB6\x9A" => "", # U+E0D9A => "\xF3\xA0\xB6\x9B" => "", # U+E0D9B => "\xF3\xA0\xB6\x9C" => "", # U+E0D9C => "\xF3\xA0\xB6\x9D" => "", # U+E0D9D => "\xF3\xA0\xB6\x9E" => "", # U+E0D9E => "\xF3\xA0\xB6\x9F" => "", # U+E0D9F => "\xF3\xA0\xB6\xA0" => "", # U+E0DA0 => "\xF3\xA0\xB6\xA1" => "", # U+E0DA1 => "\xF3\xA0\xB6\xA2" => "", # U+E0DA2 => "\xF3\xA0\xB6\xA3" => "", # U+E0DA3 => "\xF3\xA0\xB6\xA4" => "", # U+E0DA4 => "\xF3\xA0\xB6\xA5" => "", # U+E0DA5 => "\xF3\xA0\xB6\xA6" => "", # U+E0DA6 => "\xF3\xA0\xB6\xA7" => "", # U+E0DA7 => "\xF3\xA0\xB6\xA8" => "", # U+E0DA8 => "\xF3\xA0\xB6\xA9" => "", # U+E0DA9 => "\xF3\xA0\xB6\xAA" => "", # U+E0DAA => "\xF3\xA0\xB6\xAB" => "", # U+E0DAB => "\xF3\xA0\xB6\xAC" => "", # U+E0DAC => "\xF3\xA0\xB6\xAD" => "", # U+E0DAD => "\xF3\xA0\xB6\xAE" => "", # U+E0DAE => "\xF3\xA0\xB6\xAF" => "", # U+E0DAF => "\xF3\xA0\xB6\xB0" => "", # U+E0DB0 => "\xF3\xA0\xB6\xB1" => "", # U+E0DB1 => "\xF3\xA0\xB6\xB2" => "", # U+E0DB2 => "\xF3\xA0\xB6\xB3" => "", # U+E0DB3 => "\xF3\xA0\xB6\xB4" => "", # U+E0DB4 => "\xF3\xA0\xB6\xB5" => "", # U+E0DB5 => "\xF3\xA0\xB6\xB6" => "", # U+E0DB6 => "\xF3\xA0\xB6\xB7" => "", # U+E0DB7 => "\xF3\xA0\xB6\xB8" => "", # U+E0DB8 => "\xF3\xA0\xB6\xB9" => "", # U+E0DB9 => "\xF3\xA0\xB6\xBA" => "", # U+E0DBA => "\xF3\xA0\xB6\xBB" => "", # U+E0DBB => "\xF3\xA0\xB6\xBC" => "", # U+E0DBC => "\xF3\xA0\xB6\xBD" => "", # U+E0DBD => "\xF3\xA0\xB6\xBE" => "", # U+E0DBE => "\xF3\xA0\xB6\xBF" => "", # U+E0DBF => "\xF3\xA0\xB7\x80" => "", # U+E0DC0 => "\xF3\xA0\xB7\x81" => "", # U+E0DC1 => "\xF3\xA0\xB7\x82" => "", # U+E0DC2 => "\xF3\xA0\xB7\x83" => "", # U+E0DC3 => "\xF3\xA0\xB7\x84" => "", # U+E0DC4 => "\xF3\xA0\xB7\x85" => "", # U+E0DC5 => "\xF3\xA0\xB7\x86" => "", # U+E0DC6 => "\xF3\xA0\xB7\x87" => "", # U+E0DC7 => "\xF3\xA0\xB7\x88" => "", # U+E0DC8 => "\xF3\xA0\xB7\x89" => "", # U+E0DC9 => "\xF3\xA0\xB7\x8A" => "", # U+E0DCA => "\xF3\xA0\xB7\x8B" => "", # U+E0DCB => "\xF3\xA0\xB7\x8C" => "", # U+E0DCC => "\xF3\xA0\xB7\x8D" => "", # U+E0DCD => "\xF3\xA0\xB7\x8E" => "", # U+E0DCE => "\xF3\xA0\xB7\x8F" => "", # U+E0DCF => "\xF3\xA0\xB7\x90" => "", # U+E0DD0 => "\xF3\xA0\xB7\x91" => "", # U+E0DD1 => "\xF3\xA0\xB7\x92" => "", # U+E0DD2 => "\xF3\xA0\xB7\x93" => "", # U+E0DD3 => "\xF3\xA0\xB7\x94" => "", # U+E0DD4 => "\xF3\xA0\xB7\x95" => "", # U+E0DD5 => "\xF3\xA0\xB7\x96" => "", # U+E0DD6 => "\xF3\xA0\xB7\x97" => "", # U+E0DD7 => "\xF3\xA0\xB7\x98" => "", # U+E0DD8 => "\xF3\xA0\xB7\x99" => "", # U+E0DD9 => "\xF3\xA0\xB7\x9A" => "", # U+E0DDA => "\xF3\xA0\xB7\x9B" => "", # U+E0DDB => "\xF3\xA0\xB7\x9C" => "", # U+E0DDC => "\xF3\xA0\xB7\x9D" => "", # U+E0DDD => "\xF3\xA0\xB7\x9E" => "", # U+E0DDE => "\xF3\xA0\xB7\x9F" => "", # U+E0DDF => "\xF3\xA0\xB7\xA0" => "", # U+E0DE0 => "\xF3\xA0\xB7\xA1" => "", # U+E0DE1 => "\xF3\xA0\xB7\xA2" => "", # U+E0DE2 => "\xF3\xA0\xB7\xA3" => "", # U+E0DE3 => "\xF3\xA0\xB7\xA4" => "", # U+E0DE4 => "\xF3\xA0\xB7\xA5" => "", # U+E0DE5 => "\xF3\xA0\xB7\xA6" => "", # U+E0DE6 => "\xF3\xA0\xB7\xA7" => "", # U+E0DE7 => "\xF3\xA0\xB7\xA8" => "", # U+E0DE8 => "\xF3\xA0\xB7\xA9" => "", # U+E0DE9 => "\xF3\xA0\xB7\xAA" => "", # U+E0DEA => "\xF3\xA0\xB7\xAB" => "", # U+E0DEB => "\xF3\xA0\xB7\xAC" => "", # U+E0DEC => "\xF3\xA0\xB7\xAD" => "", # U+E0DED => "\xF3\xA0\xB7\xAE" => "", # U+E0DEE => "\xF3\xA0\xB7\xAF" => "", # U+E0DEF => "\xF3\xA0\xB7\xB0" => "", # U+E0DF0 => "\xF3\xA0\xB7\xB1" => "", # U+E0DF1 => "\xF3\xA0\xB7\xB2" => "", # U+E0DF2 => "\xF3\xA0\xB7\xB3" => "", # U+E0DF3 => "\xF3\xA0\xB7\xB4" => "", # U+E0DF4 => "\xF3\xA0\xB7\xB5" => "", # U+E0DF5 => "\xF3\xA0\xB7\xB6" => "", # U+E0DF6 => "\xF3\xA0\xB7\xB7" => "", # U+E0DF7 => "\xF3\xA0\xB7\xB8" => "", # U+E0DF8 => "\xF3\xA0\xB7\xB9" => "", # U+E0DF9 => "\xF3\xA0\xB7\xBA" => "", # U+E0DFA => "\xF3\xA0\xB7\xBB" => "", # U+E0DFB => "\xF3\xA0\xB7\xBC" => "", # U+E0DFC => "\xF3\xA0\xB7\xBD" => "", # U+E0DFD => "\xF3\xA0\xB7\xBE" => "", # U+E0DFE => "\xF3\xA0\xB7\xBF" => "", # U+E0DFF => "\xF3\xA0\xB8\x80" => "", # U+E0E00 => "\xF3\xA0\xB8\x81" => "", # U+E0E01 => "\xF3\xA0\xB8\x82" => "", # U+E0E02 => "\xF3\xA0\xB8\x83" => "", # U+E0E03 => "\xF3\xA0\xB8\x84" => "", # U+E0E04 => "\xF3\xA0\xB8\x85" => "", # U+E0E05 => "\xF3\xA0\xB8\x86" => "", # U+E0E06 => "\xF3\xA0\xB8\x87" => "", # U+E0E07 => "\xF3\xA0\xB8\x88" => "", # U+E0E08 => "\xF3\xA0\xB8\x89" => "", # U+E0E09 => "\xF3\xA0\xB8\x8A" => "", # U+E0E0A => "\xF3\xA0\xB8\x8B" => "", # U+E0E0B => "\xF3\xA0\xB8\x8C" => "", # U+E0E0C => "\xF3\xA0\xB8\x8D" => "", # U+E0E0D => "\xF3\xA0\xB8\x8E" => "", # U+E0E0E => "\xF3\xA0\xB8\x8F" => "", # U+E0E0F => "\xF3\xA0\xB8\x90" => "", # U+E0E10 => "\xF3\xA0\xB8\x91" => "", # U+E0E11 => "\xF3\xA0\xB8\x92" => "", # U+E0E12 => "\xF3\xA0\xB8\x93" => "", # U+E0E13 => "\xF3\xA0\xB8\x94" => "", # U+E0E14 => "\xF3\xA0\xB8\x95" => "", # U+E0E15 => "\xF3\xA0\xB8\x96" => "", # U+E0E16 => "\xF3\xA0\xB8\x97" => "", # U+E0E17 => "\xF3\xA0\xB8\x98" => "", # U+E0E18 => "\xF3\xA0\xB8\x99" => "", # U+E0E19 => "\xF3\xA0\xB8\x9A" => "", # U+E0E1A => "\xF3\xA0\xB8\x9B" => "", # U+E0E1B => "\xF3\xA0\xB8\x9C" => "", # U+E0E1C => "\xF3\xA0\xB8\x9D" => "", # U+E0E1D => "\xF3\xA0\xB8\x9E" => "", # U+E0E1E => "\xF3\xA0\xB8\x9F" => "", # U+E0E1F => "\xF3\xA0\xB8\xA0" => "", # U+E0E20 => "\xF3\xA0\xB8\xA1" => "", # U+E0E21 => "\xF3\xA0\xB8\xA2" => "", # U+E0E22 => "\xF3\xA0\xB8\xA3" => "", # U+E0E23 => "\xF3\xA0\xB8\xA4" => "", # U+E0E24 => "\xF3\xA0\xB8\xA5" => "", # U+E0E25 => "\xF3\xA0\xB8\xA6" => "", # U+E0E26 => "\xF3\xA0\xB8\xA7" => "", # U+E0E27 => "\xF3\xA0\xB8\xA8" => "", # U+E0E28 => "\xF3\xA0\xB8\xA9" => "", # U+E0E29 => "\xF3\xA0\xB8\xAA" => "", # U+E0E2A => "\xF3\xA0\xB8\xAB" => "", # U+E0E2B => "\xF3\xA0\xB8\xAC" => "", # U+E0E2C => "\xF3\xA0\xB8\xAD" => "", # U+E0E2D => "\xF3\xA0\xB8\xAE" => "", # U+E0E2E => "\xF3\xA0\xB8\xAF" => "", # U+E0E2F => "\xF3\xA0\xB8\xB0" => "", # U+E0E30 => "\xF3\xA0\xB8\xB1" => "", # U+E0E31 => "\xF3\xA0\xB8\xB2" => "", # U+E0E32 => "\xF3\xA0\xB8\xB3" => "", # U+E0E33 => "\xF3\xA0\xB8\xB4" => "", # U+E0E34 => "\xF3\xA0\xB8\xB5" => "", # U+E0E35 => "\xF3\xA0\xB8\xB6" => "", # U+E0E36 => "\xF3\xA0\xB8\xB7" => "", # U+E0E37 => "\xF3\xA0\xB8\xB8" => "", # U+E0E38 => "\xF3\xA0\xB8\xB9" => "", # U+E0E39 => "\xF3\xA0\xB8\xBA" => "", # U+E0E3A => "\xF3\xA0\xB8\xBB" => "", # U+E0E3B => "\xF3\xA0\xB8\xBC" => "", # U+E0E3C => "\xF3\xA0\xB8\xBD" => "", # U+E0E3D => "\xF3\xA0\xB8\xBE" => "", # U+E0E3E => "\xF3\xA0\xB8\xBF" => "", # U+E0E3F => "\xF3\xA0\xB9\x80" => "", # U+E0E40 => "\xF3\xA0\xB9\x81" => "", # U+E0E41 => "\xF3\xA0\xB9\x82" => "", # U+E0E42 => "\xF3\xA0\xB9\x83" => "", # U+E0E43 => "\xF3\xA0\xB9\x84" => "", # U+E0E44 => "\xF3\xA0\xB9\x85" => "", # U+E0E45 => "\xF3\xA0\xB9\x86" => "", # U+E0E46 => "\xF3\xA0\xB9\x87" => "", # U+E0E47 => "\xF3\xA0\xB9\x88" => "", # U+E0E48 => "\xF3\xA0\xB9\x89" => "", # U+E0E49 => "\xF3\xA0\xB9\x8A" => "", # U+E0E4A => "\xF3\xA0\xB9\x8B" => "", # U+E0E4B => "\xF3\xA0\xB9\x8C" => "", # U+E0E4C => "\xF3\xA0\xB9\x8D" => "", # U+E0E4D => "\xF3\xA0\xB9\x8E" => "", # U+E0E4E => "\xF3\xA0\xB9\x8F" => "", # U+E0E4F => "\xF3\xA0\xB9\x90" => "", # U+E0E50 => "\xF3\xA0\xB9\x91" => "", # U+E0E51 => "\xF3\xA0\xB9\x92" => "", # U+E0E52 => "\xF3\xA0\xB9\x93" => "", # U+E0E53 => "\xF3\xA0\xB9\x94" => "", # U+E0E54 => "\xF3\xA0\xB9\x95" => "", # U+E0E55 => "\xF3\xA0\xB9\x96" => "", # U+E0E56 => "\xF3\xA0\xB9\x97" => "", # U+E0E57 => "\xF3\xA0\xB9\x98" => "", # U+E0E58 => "\xF3\xA0\xB9\x99" => "", # U+E0E59 => "\xF3\xA0\xB9\x9A" => "", # U+E0E5A => "\xF3\xA0\xB9\x9B" => "", # U+E0E5B => "\xF3\xA0\xB9\x9C" => "", # U+E0E5C => "\xF3\xA0\xB9\x9D" => "", # U+E0E5D => "\xF3\xA0\xB9\x9E" => "", # U+E0E5E => "\xF3\xA0\xB9\x9F" => "", # U+E0E5F => "\xF3\xA0\xB9\xA0" => "", # U+E0E60 => "\xF3\xA0\xB9\xA1" => "", # U+E0E61 => "\xF3\xA0\xB9\xA2" => "", # U+E0E62 => "\xF3\xA0\xB9\xA3" => "", # U+E0E63 => "\xF3\xA0\xB9\xA4" => "", # U+E0E64 => "\xF3\xA0\xB9\xA5" => "", # U+E0E65 => "\xF3\xA0\xB9\xA6" => "", # U+E0E66 => "\xF3\xA0\xB9\xA7" => "", # U+E0E67 => "\xF3\xA0\xB9\xA8" => "", # U+E0E68 => "\xF3\xA0\xB9\xA9" => "", # U+E0E69 => "\xF3\xA0\xB9\xAA" => "", # U+E0E6A => "\xF3\xA0\xB9\xAB" => "", # U+E0E6B => "\xF3\xA0\xB9\xAC" => "", # U+E0E6C => "\xF3\xA0\xB9\xAD" => "", # U+E0E6D => "\xF3\xA0\xB9\xAE" => "", # U+E0E6E => "\xF3\xA0\xB9\xAF" => "", # U+E0E6F => "\xF3\xA0\xB9\xB0" => "", # U+E0E70 => "\xF3\xA0\xB9\xB1" => "", # U+E0E71 => "\xF3\xA0\xB9\xB2" => "", # U+E0E72 => "\xF3\xA0\xB9\xB3" => "", # U+E0E73 => "\xF3\xA0\xB9\xB4" => "", # U+E0E74 => "\xF3\xA0\xB9\xB5" => "", # U+E0E75 => "\xF3\xA0\xB9\xB6" => "", # U+E0E76 => "\xF3\xA0\xB9\xB7" => "", # U+E0E77 => "\xF3\xA0\xB9\xB8" => "", # U+E0E78 => "\xF3\xA0\xB9\xB9" => "", # U+E0E79 => "\xF3\xA0\xB9\xBA" => "", # U+E0E7A => "\xF3\xA0\xB9\xBB" => "", # U+E0E7B => "\xF3\xA0\xB9\xBC" => "", # U+E0E7C => "\xF3\xA0\xB9\xBD" => "", # U+E0E7D => "\xF3\xA0\xB9\xBE" => "", # U+E0E7E => "\xF3\xA0\xB9\xBF" => "", # U+E0E7F => "\xF3\xA0\xBA\x80" => "", # U+E0E80 => "\xF3\xA0\xBA\x81" => "", # U+E0E81 => "\xF3\xA0\xBA\x82" => "", # U+E0E82 => "\xF3\xA0\xBA\x83" => "", # U+E0E83 => "\xF3\xA0\xBA\x84" => "", # U+E0E84 => "\xF3\xA0\xBA\x85" => "", # U+E0E85 => "\xF3\xA0\xBA\x86" => "", # U+E0E86 => "\xF3\xA0\xBA\x87" => "", # U+E0E87 => "\xF3\xA0\xBA\x88" => "", # U+E0E88 => "\xF3\xA0\xBA\x89" => "", # U+E0E89 => "\xF3\xA0\xBA\x8A" => "", # U+E0E8A => "\xF3\xA0\xBA\x8B" => "", # U+E0E8B => "\xF3\xA0\xBA\x8C" => "", # U+E0E8C => "\xF3\xA0\xBA\x8D" => "", # U+E0E8D => "\xF3\xA0\xBA\x8E" => "", # U+E0E8E => "\xF3\xA0\xBA\x8F" => "", # U+E0E8F => "\xF3\xA0\xBA\x90" => "", # U+E0E90 => "\xF3\xA0\xBA\x91" => "", # U+E0E91 => "\xF3\xA0\xBA\x92" => "", # U+E0E92 => "\xF3\xA0\xBA\x93" => "", # U+E0E93 => "\xF3\xA0\xBA\x94" => "", # U+E0E94 => "\xF3\xA0\xBA\x95" => "", # U+E0E95 => "\xF3\xA0\xBA\x96" => "", # U+E0E96 => "\xF3\xA0\xBA\x97" => "", # U+E0E97 => "\xF3\xA0\xBA\x98" => "", # U+E0E98 => "\xF3\xA0\xBA\x99" => "", # U+E0E99 => "\xF3\xA0\xBA\x9A" => "", # U+E0E9A => "\xF3\xA0\xBA\x9B" => "", # U+E0E9B => "\xF3\xA0\xBA\x9C" => "", # U+E0E9C => "\xF3\xA0\xBA\x9D" => "", # U+E0E9D => "\xF3\xA0\xBA\x9E" => "", # U+E0E9E => "\xF3\xA0\xBA\x9F" => "", # U+E0E9F => "\xF3\xA0\xBA\xA0" => "", # U+E0EA0 => "\xF3\xA0\xBA\xA1" => "", # U+E0EA1 => "\xF3\xA0\xBA\xA2" => "", # U+E0EA2 => "\xF3\xA0\xBA\xA3" => "", # U+E0EA3 => "\xF3\xA0\xBA\xA4" => "", # U+E0EA4 => "\xF3\xA0\xBA\xA5" => "", # U+E0EA5 => "\xF3\xA0\xBA\xA6" => "", # U+E0EA6 => "\xF3\xA0\xBA\xA7" => "", # U+E0EA7 => "\xF3\xA0\xBA\xA8" => "", # U+E0EA8 => "\xF3\xA0\xBA\xA9" => "", # U+E0EA9 => "\xF3\xA0\xBA\xAA" => "", # U+E0EAA => "\xF3\xA0\xBA\xAB" => "", # U+E0EAB => "\xF3\xA0\xBA\xAC" => "", # U+E0EAC => "\xF3\xA0\xBA\xAD" => "", # U+E0EAD => "\xF3\xA0\xBA\xAE" => "", # U+E0EAE => "\xF3\xA0\xBA\xAF" => "", # U+E0EAF => "\xF3\xA0\xBA\xB0" => "", # U+E0EB0 => "\xF3\xA0\xBA\xB1" => "", # U+E0EB1 => "\xF3\xA0\xBA\xB2" => "", # U+E0EB2 => "\xF3\xA0\xBA\xB3" => "", # U+E0EB3 => "\xF3\xA0\xBA\xB4" => "", # U+E0EB4 => "\xF3\xA0\xBA\xB5" => "", # U+E0EB5 => "\xF3\xA0\xBA\xB6" => "", # U+E0EB6 => "\xF3\xA0\xBA\xB7" => "", # U+E0EB7 => "\xF3\xA0\xBA\xB8" => "", # U+E0EB8 => "\xF3\xA0\xBA\xB9" => "", # U+E0EB9 => "\xF3\xA0\xBA\xBA" => "", # U+E0EBA => "\xF3\xA0\xBA\xBB" => "", # U+E0EBB => "\xF3\xA0\xBA\xBC" => "", # U+E0EBC => "\xF3\xA0\xBA\xBD" => "", # U+E0EBD => "\xF3\xA0\xBA\xBE" => "", # U+E0EBE => "\xF3\xA0\xBA\xBF" => "", # U+E0EBF => "\xF3\xA0\xBB\x80" => "", # U+E0EC0 => "\xF3\xA0\xBB\x81" => "", # U+E0EC1 => "\xF3\xA0\xBB\x82" => "", # U+E0EC2 => "\xF3\xA0\xBB\x83" => "", # U+E0EC3 => "\xF3\xA0\xBB\x84" => "", # U+E0EC4 => "\xF3\xA0\xBB\x85" => "", # U+E0EC5 => "\xF3\xA0\xBB\x86" => "", # U+E0EC6 => "\xF3\xA0\xBB\x87" => "", # U+E0EC7 => "\xF3\xA0\xBB\x88" => "", # U+E0EC8 => "\xF3\xA0\xBB\x89" => "", # U+E0EC9 => "\xF3\xA0\xBB\x8A" => "", # U+E0ECA => "\xF3\xA0\xBB\x8B" => "", # U+E0ECB => "\xF3\xA0\xBB\x8C" => "", # U+E0ECC => "\xF3\xA0\xBB\x8D" => "", # U+E0ECD => "\xF3\xA0\xBB\x8E" => "", # U+E0ECE => "\xF3\xA0\xBB\x8F" => "", # U+E0ECF => "\xF3\xA0\xBB\x90" => "", # U+E0ED0 => "\xF3\xA0\xBB\x91" => "", # U+E0ED1 => "\xF3\xA0\xBB\x92" => "", # U+E0ED2 => "\xF3\xA0\xBB\x93" => "", # U+E0ED3 => "\xF3\xA0\xBB\x94" => "", # U+E0ED4 => "\xF3\xA0\xBB\x95" => "", # U+E0ED5 => "\xF3\xA0\xBB\x96" => "", # U+E0ED6 => "\xF3\xA0\xBB\x97" => "", # U+E0ED7 => "\xF3\xA0\xBB\x98" => "", # U+E0ED8 => "\xF3\xA0\xBB\x99" => "", # U+E0ED9 => "\xF3\xA0\xBB\x9A" => "", # U+E0EDA => "\xF3\xA0\xBB\x9B" => "", # U+E0EDB => "\xF3\xA0\xBB\x9C" => "", # U+E0EDC => "\xF3\xA0\xBB\x9D" => "", # U+E0EDD => "\xF3\xA0\xBB\x9E" => "", # U+E0EDE => "\xF3\xA0\xBB\x9F" => "", # U+E0EDF => "\xF3\xA0\xBB\xA0" => "", # U+E0EE0 => "\xF3\xA0\xBB\xA1" => "", # U+E0EE1 => "\xF3\xA0\xBB\xA2" => "", # U+E0EE2 => "\xF3\xA0\xBB\xA3" => "", # U+E0EE3 => "\xF3\xA0\xBB\xA4" => "", # U+E0EE4 => "\xF3\xA0\xBB\xA5" => "", # U+E0EE5 => "\xF3\xA0\xBB\xA6" => "", # U+E0EE6 => "\xF3\xA0\xBB\xA7" => "", # U+E0EE7 => "\xF3\xA0\xBB\xA8" => "", # U+E0EE8 => "\xF3\xA0\xBB\xA9" => "", # U+E0EE9 => "\xF3\xA0\xBB\xAA" => "", # U+E0EEA => "\xF3\xA0\xBB\xAB" => "", # U+E0EEB => "\xF3\xA0\xBB\xAC" => "", # U+E0EEC => "\xF3\xA0\xBB\xAD" => "", # U+E0EED => "\xF3\xA0\xBB\xAE" => "", # U+E0EEE => "\xF3\xA0\xBB\xAF" => "", # U+E0EEF => "\xF3\xA0\xBB\xB0" => "", # U+E0EF0 => "\xF3\xA0\xBB\xB1" => "", # U+E0EF1 => "\xF3\xA0\xBB\xB2" => "", # U+E0EF2 => "\xF3\xA0\xBB\xB3" => "", # U+E0EF3 => "\xF3\xA0\xBB\xB4" => "", # U+E0EF4 => "\xF3\xA0\xBB\xB5" => "", # U+E0EF5 => "\xF3\xA0\xBB\xB6" => "", # U+E0EF6 => "\xF3\xA0\xBB\xB7" => "", # U+E0EF7 => "\xF3\xA0\xBB\xB8" => "", # U+E0EF8 => "\xF3\xA0\xBB\xB9" => "", # U+E0EF9 => "\xF3\xA0\xBB\xBA" => "", # U+E0EFA => "\xF3\xA0\xBB\xBB" => "", # U+E0EFB => "\xF3\xA0\xBB\xBC" => "", # U+E0EFC => "\xF3\xA0\xBB\xBD" => "", # U+E0EFD => "\xF3\xA0\xBB\xBE" => "", # U+E0EFE => "\xF3\xA0\xBB\xBF" => "", # U+E0EFF => "\xF3\xA0\xBC\x80" => "", # U+E0F00 => "\xF3\xA0\xBC\x81" => "", # U+E0F01 => "\xF3\xA0\xBC\x82" => "", # U+E0F02 => "\xF3\xA0\xBC\x83" => "", # U+E0F03 => "\xF3\xA0\xBC\x84" => "", # U+E0F04 => "\xF3\xA0\xBC\x85" => "", # U+E0F05 => "\xF3\xA0\xBC\x86" => "", # U+E0F06 => "\xF3\xA0\xBC\x87" => "", # U+E0F07 => "\xF3\xA0\xBC\x88" => "", # U+E0F08 => "\xF3\xA0\xBC\x89" => "", # U+E0F09 => "\xF3\xA0\xBC\x8A" => "", # U+E0F0A => "\xF3\xA0\xBC\x8B" => "", # U+E0F0B => "\xF3\xA0\xBC\x8C" => "", # U+E0F0C => "\xF3\xA0\xBC\x8D" => "", # U+E0F0D => "\xF3\xA0\xBC\x8E" => "", # U+E0F0E => "\xF3\xA0\xBC\x8F" => "", # U+E0F0F => "\xF3\xA0\xBC\x90" => "", # U+E0F10 => "\xF3\xA0\xBC\x91" => "", # U+E0F11 => "\xF3\xA0\xBC\x92" => "", # U+E0F12 => "\xF3\xA0\xBC\x93" => "", # U+E0F13 => "\xF3\xA0\xBC\x94" => "", # U+E0F14 => "\xF3\xA0\xBC\x95" => "", # U+E0F15 => "\xF3\xA0\xBC\x96" => "", # U+E0F16 => "\xF3\xA0\xBC\x97" => "", # U+E0F17 => "\xF3\xA0\xBC\x98" => "", # U+E0F18 => "\xF3\xA0\xBC\x99" => "", # U+E0F19 => "\xF3\xA0\xBC\x9A" => "", # U+E0F1A => "\xF3\xA0\xBC\x9B" => "", # U+E0F1B => "\xF3\xA0\xBC\x9C" => "", # U+E0F1C => "\xF3\xA0\xBC\x9D" => "", # U+E0F1D => "\xF3\xA0\xBC\x9E" => "", # U+E0F1E => "\xF3\xA0\xBC\x9F" => "", # U+E0F1F => "\xF3\xA0\xBC\xA0" => "", # U+E0F20 => "\xF3\xA0\xBC\xA1" => "", # U+E0F21 => "\xF3\xA0\xBC\xA2" => "", # U+E0F22 => "\xF3\xA0\xBC\xA3" => "", # U+E0F23 => "\xF3\xA0\xBC\xA4" => "", # U+E0F24 => "\xF3\xA0\xBC\xA5" => "", # U+E0F25 => "\xF3\xA0\xBC\xA6" => "", # U+E0F26 => "\xF3\xA0\xBC\xA7" => "", # U+E0F27 => "\xF3\xA0\xBC\xA8" => "", # U+E0F28 => "\xF3\xA0\xBC\xA9" => "", # U+E0F29 => "\xF3\xA0\xBC\xAA" => "", # U+E0F2A => "\xF3\xA0\xBC\xAB" => "", # U+E0F2B => "\xF3\xA0\xBC\xAC" => "", # U+E0F2C => "\xF3\xA0\xBC\xAD" => "", # U+E0F2D => "\xF3\xA0\xBC\xAE" => "", # U+E0F2E => "\xF3\xA0\xBC\xAF" => "", # U+E0F2F => "\xF3\xA0\xBC\xB0" => "", # U+E0F30 => "\xF3\xA0\xBC\xB1" => "", # U+E0F31 => "\xF3\xA0\xBC\xB2" => "", # U+E0F32 => "\xF3\xA0\xBC\xB3" => "", # U+E0F33 => "\xF3\xA0\xBC\xB4" => "", # U+E0F34 => "\xF3\xA0\xBC\xB5" => "", # U+E0F35 => "\xF3\xA0\xBC\xB6" => "", # U+E0F36 => "\xF3\xA0\xBC\xB7" => "", # U+E0F37 => "\xF3\xA0\xBC\xB8" => "", # U+E0F38 => "\xF3\xA0\xBC\xB9" => "", # U+E0F39 => "\xF3\xA0\xBC\xBA" => "", # U+E0F3A => "\xF3\xA0\xBC\xBB" => "", # U+E0F3B => "\xF3\xA0\xBC\xBC" => "", # U+E0F3C => "\xF3\xA0\xBC\xBD" => "", # U+E0F3D => "\xF3\xA0\xBC\xBE" => "", # U+E0F3E => "\xF3\xA0\xBC\xBF" => "", # U+E0F3F => "\xF3\xA0\xBD\x80" => "", # U+E0F40 => "\xF3\xA0\xBD\x81" => "", # U+E0F41 => "\xF3\xA0\xBD\x82" => "", # U+E0F42 => "\xF3\xA0\xBD\x83" => "", # U+E0F43 => "\xF3\xA0\xBD\x84" => "", # U+E0F44 => "\xF3\xA0\xBD\x85" => "", # U+E0F45 => "\xF3\xA0\xBD\x86" => "", # U+E0F46 => "\xF3\xA0\xBD\x87" => "", # U+E0F47 => "\xF3\xA0\xBD\x88" => "", # U+E0F48 => "\xF3\xA0\xBD\x89" => "", # U+E0F49 => "\xF3\xA0\xBD\x8A" => "", # U+E0F4A => "\xF3\xA0\xBD\x8B" => "", # U+E0F4B => "\xF3\xA0\xBD\x8C" => "", # U+E0F4C => "\xF3\xA0\xBD\x8D" => "", # U+E0F4D => "\xF3\xA0\xBD\x8E" => "", # U+E0F4E => "\xF3\xA0\xBD\x8F" => "", # U+E0F4F => "\xF3\xA0\xBD\x90" => "", # U+E0F50 => "\xF3\xA0\xBD\x91" => "", # U+E0F51 => "\xF3\xA0\xBD\x92" => "", # U+E0F52 => "\xF3\xA0\xBD\x93" => "", # U+E0F53 => "\xF3\xA0\xBD\x94" => "", # U+E0F54 => "\xF3\xA0\xBD\x95" => "", # U+E0F55 => "\xF3\xA0\xBD\x96" => "", # U+E0F56 => "\xF3\xA0\xBD\x97" => "", # U+E0F57 => "\xF3\xA0\xBD\x98" => "", # U+E0F58 => "\xF3\xA0\xBD\x99" => "", # U+E0F59 => "\xF3\xA0\xBD\x9A" => "", # U+E0F5A => "\xF3\xA0\xBD\x9B" => "", # U+E0F5B => "\xF3\xA0\xBD\x9C" => "", # U+E0F5C => "\xF3\xA0\xBD\x9D" => "", # U+E0F5D => "\xF3\xA0\xBD\x9E" => "", # U+E0F5E => "\xF3\xA0\xBD\x9F" => "", # U+E0F5F => "\xF3\xA0\xBD\xA0" => "", # U+E0F60 => "\xF3\xA0\xBD\xA1" => "", # U+E0F61 => "\xF3\xA0\xBD\xA2" => "", # U+E0F62 => "\xF3\xA0\xBD\xA3" => "", # U+E0F63 => "\xF3\xA0\xBD\xA4" => "", # U+E0F64 => "\xF3\xA0\xBD\xA5" => "", # U+E0F65 => "\xF3\xA0\xBD\xA6" => "", # U+E0F66 => "\xF3\xA0\xBD\xA7" => "", # U+E0F67 => "\xF3\xA0\xBD\xA8" => "", # U+E0F68 => "\xF3\xA0\xBD\xA9" => "", # U+E0F69 => "\xF3\xA0\xBD\xAA" => "", # U+E0F6A => "\xF3\xA0\xBD\xAB" => "", # U+E0F6B => "\xF3\xA0\xBD\xAC" => "", # U+E0F6C => "\xF3\xA0\xBD\xAD" => "", # U+E0F6D => "\xF3\xA0\xBD\xAE" => "", # U+E0F6E => "\xF3\xA0\xBD\xAF" => "", # U+E0F6F => "\xF3\xA0\xBD\xB0" => "", # U+E0F70 => "\xF3\xA0\xBD\xB1" => "", # U+E0F71 => "\xF3\xA0\xBD\xB2" => "", # U+E0F72 => "\xF3\xA0\xBD\xB3" => "", # U+E0F73 => "\xF3\xA0\xBD\xB4" => "", # U+E0F74 => "\xF3\xA0\xBD\xB5" => "", # U+E0F75 => "\xF3\xA0\xBD\xB6" => "", # U+E0F76 => "\xF3\xA0\xBD\xB7" => "", # U+E0F77 => "\xF3\xA0\xBD\xB8" => "", # U+E0F78 => "\xF3\xA0\xBD\xB9" => "", # U+E0F79 => "\xF3\xA0\xBD\xBA" => "", # U+E0F7A => "\xF3\xA0\xBD\xBB" => "", # U+E0F7B => "\xF3\xA0\xBD\xBC" => "", # U+E0F7C => "\xF3\xA0\xBD\xBD" => "", # U+E0F7D => "\xF3\xA0\xBD\xBE" => "", # U+E0F7E => "\xF3\xA0\xBD\xBF" => "", # U+E0F7F => "\xF3\xA0\xBE\x80" => "", # U+E0F80 => "\xF3\xA0\xBE\x81" => "", # U+E0F81 => "\xF3\xA0\xBE\x82" => "", # U+E0F82 => "\xF3\xA0\xBE\x83" => "", # U+E0F83 => "\xF3\xA0\xBE\x84" => "", # U+E0F84 => "\xF3\xA0\xBE\x85" => "", # U+E0F85 => "\xF3\xA0\xBE\x86" => "", # U+E0F86 => "\xF3\xA0\xBE\x87" => "", # U+E0F87 => "\xF3\xA0\xBE\x88" => "", # U+E0F88 => "\xF3\xA0\xBE\x89" => "", # U+E0F89 => "\xF3\xA0\xBE\x8A" => "", # U+E0F8A => "\xF3\xA0\xBE\x8B" => "", # U+E0F8B => "\xF3\xA0\xBE\x8C" => "", # U+E0F8C => "\xF3\xA0\xBE\x8D" => "", # U+E0F8D => "\xF3\xA0\xBE\x8E" => "", # U+E0F8E => "\xF3\xA0\xBE\x8F" => "", # U+E0F8F => "\xF3\xA0\xBE\x90" => "", # U+E0F90 => "\xF3\xA0\xBE\x91" => "", # U+E0F91 => "\xF3\xA0\xBE\x92" => "", # U+E0F92 => "\xF3\xA0\xBE\x93" => "", # U+E0F93 => "\xF3\xA0\xBE\x94" => "", # U+E0F94 => "\xF3\xA0\xBE\x95" => "", # U+E0F95 => "\xF3\xA0\xBE\x96" => "", # U+E0F96 => "\xF3\xA0\xBE\x97" => "", # U+E0F97 => "\xF3\xA0\xBE\x98" => "", # U+E0F98 => "\xF3\xA0\xBE\x99" => "", # U+E0F99 => "\xF3\xA0\xBE\x9A" => "", # U+E0F9A => "\xF3\xA0\xBE\x9B" => "", # U+E0F9B => "\xF3\xA0\xBE\x9C" => "", # U+E0F9C => "\xF3\xA0\xBE\x9D" => "", # U+E0F9D => "\xF3\xA0\xBE\x9E" => "", # U+E0F9E => "\xF3\xA0\xBE\x9F" => "", # U+E0F9F => "\xF3\xA0\xBE\xA0" => "", # U+E0FA0 => "\xF3\xA0\xBE\xA1" => "", # U+E0FA1 => "\xF3\xA0\xBE\xA2" => "", # U+E0FA2 => "\xF3\xA0\xBE\xA3" => "", # U+E0FA3 => "\xF3\xA0\xBE\xA4" => "", # U+E0FA4 => "\xF3\xA0\xBE\xA5" => "", # U+E0FA5 => "\xF3\xA0\xBE\xA6" => "", # U+E0FA6 => "\xF3\xA0\xBE\xA7" => "", # U+E0FA7 => "\xF3\xA0\xBE\xA8" => "", # U+E0FA8 => "\xF3\xA0\xBE\xA9" => "", # U+E0FA9 => "\xF3\xA0\xBE\xAA" => "", # U+E0FAA => "\xF3\xA0\xBE\xAB" => "", # U+E0FAB => "\xF3\xA0\xBE\xAC" => "", # U+E0FAC => "\xF3\xA0\xBE\xAD" => "", # U+E0FAD => "\xF3\xA0\xBE\xAE" => "", # U+E0FAE => "\xF3\xA0\xBE\xAF" => "", # U+E0FAF => "\xF3\xA0\xBE\xB0" => "", # U+E0FB0 => "\xF3\xA0\xBE\xB1" => "", # U+E0FB1 => "\xF3\xA0\xBE\xB2" => "", # U+E0FB2 => "\xF3\xA0\xBE\xB3" => "", # U+E0FB3 => "\xF3\xA0\xBE\xB4" => "", # U+E0FB4 => "\xF3\xA0\xBE\xB5" => "", # U+E0FB5 => "\xF3\xA0\xBE\xB6" => "", # U+E0FB6 => "\xF3\xA0\xBE\xB7" => "", # U+E0FB7 => "\xF3\xA0\xBE\xB8" => "", # U+E0FB8 => "\xF3\xA0\xBE\xB9" => "", # U+E0FB9 => "\xF3\xA0\xBE\xBA" => "", # U+E0FBA => "\xF3\xA0\xBE\xBB" => "", # U+E0FBB => "\xF3\xA0\xBE\xBC" => "", # U+E0FBC => "\xF3\xA0\xBE\xBD" => "", # U+E0FBD => "\xF3\xA0\xBE\xBE" => "", # U+E0FBE => "\xF3\xA0\xBE\xBF" => "", # U+E0FBF => "\xF3\xA0\xBF\x80" => "", # U+E0FC0 => "\xF3\xA0\xBF\x81" => "", # U+E0FC1 => "\xF3\xA0\xBF\x82" => "", # U+E0FC2 => "\xF3\xA0\xBF\x83" => "", # U+E0FC3 => "\xF3\xA0\xBF\x84" => "", # U+E0FC4 => "\xF3\xA0\xBF\x85" => "", # U+E0FC5 => "\xF3\xA0\xBF\x86" => "", # U+E0FC6 => "\xF3\xA0\xBF\x87" => "", # U+E0FC7 => "\xF3\xA0\xBF\x88" => "", # U+E0FC8 => "\xF3\xA0\xBF\x89" => "", # U+E0FC9 => "\xF3\xA0\xBF\x8A" => "", # U+E0FCA => "\xF3\xA0\xBF\x8B" => "", # U+E0FCB => "\xF3\xA0\xBF\x8C" => "", # U+E0FCC => "\xF3\xA0\xBF\x8D" => "", # U+E0FCD => "\xF3\xA0\xBF\x8E" => "", # U+E0FCE => "\xF3\xA0\xBF\x8F" => "", # U+E0FCF => "\xF3\xA0\xBF\x90" => "", # U+E0FD0 => "\xF3\xA0\xBF\x91" => "", # U+E0FD1 => "\xF3\xA0\xBF\x92" => "", # U+E0FD2 => "\xF3\xA0\xBF\x93" => "", # U+E0FD3 => "\xF3\xA0\xBF\x94" => "", # U+E0FD4 => "\xF3\xA0\xBF\x95" => "", # U+E0FD5 => "\xF3\xA0\xBF\x96" => "", # U+E0FD6 => "\xF3\xA0\xBF\x97" => "", # U+E0FD7 => "\xF3\xA0\xBF\x98" => "", # U+E0FD8 => "\xF3\xA0\xBF\x99" => "", # U+E0FD9 => "\xF3\xA0\xBF\x9A" => "", # U+E0FDA => "\xF3\xA0\xBF\x9B" => "", # U+E0FDB => "\xF3\xA0\xBF\x9C" => "", # U+E0FDC => "\xF3\xA0\xBF\x9D" => "", # U+E0FDD => "\xF3\xA0\xBF\x9E" => "", # U+E0FDE => "\xF3\xA0\xBF\x9F" => "", # U+E0FDF => "\xF3\xA0\xBF\xA0" => "", # U+E0FE0 => "\xF3\xA0\xBF\xA1" => "", # U+E0FE1 => "\xF3\xA0\xBF\xA2" => "", # U+E0FE2 => "\xF3\xA0\xBF\xA3" => "", # U+E0FE3 => "\xF3\xA0\xBF\xA4" => "", # U+E0FE4 => "\xF3\xA0\xBF\xA5" => "", # U+E0FE5 => "\xF3\xA0\xBF\xA6" => "", # U+E0FE6 => "\xF3\xA0\xBF\xA7" => "", # U+E0FE7 => "\xF3\xA0\xBF\xA8" => "", # U+E0FE8 => "\xF3\xA0\xBF\xA9" => "", # U+E0FE9 => "\xF3\xA0\xBF\xAA" => "", # U+E0FEA => "\xF3\xA0\xBF\xAB" => "", # U+E0FEB => "\xF3\xA0\xBF\xAC" => "", # U+E0FEC => "\xF3\xA0\xBF\xAD" => "", # U+E0FED => "\xF3\xA0\xBF\xAE" => "", # U+E0FEE => "\xF3\xA0\xBF\xAF" => "", # U+E0FEF => "\xF3\xA0\xBF\xB0" => "", # U+E0FF0 => "\xF3\xA0\xBF\xB1" => "", # U+E0FF1 => "\xF3\xA0\xBF\xB2" => "", # U+E0FF2 => "\xF3\xA0\xBF\xB3" => "", # U+E0FF3 => "\xF3\xA0\xBF\xB4" => "", # U+E0FF4 => "\xF3\xA0\xBF\xB5" => "", # U+E0FF5 => "\xF3\xA0\xBF\xB6" => "", # U+E0FF6 => "\xF3\xA0\xBF\xB7" => "", # U+E0FF7 => "\xF3\xA0\xBF\xB8" => "", # U+E0FF8 => "\xF3\xA0\xBF\xB9" => "", # U+E0FF9 => "\xF3\xA0\xBF\xBA" => "", # U+E0FFA => "\xF3\xA0\xBF\xBB" => "", # U+E0FFB => "\xF3\xA0\xBF\xBC" => "", # U+E0FFC => "\xF3\xA0\xBF\xBD" => "", # U+E0FFD => "\xF3\xA0\xBF\xBE" => "", # U+E0FFE => "\xF3\xA0\xBF\xBF" => "", # U+E0FFF => ); return <<'END'; 0041 0061 0042 0062 0043 0063 0044 0064 0045 0065 0046 0066 0047 0067 0048 0068 0049 0069 004A 006A 004B 006B 004C 006C 004D 006D 004E 006E 004F 006F 0050 0070 0051 0071 0052 0072 0053 0073 0054 0074 0055 0075 0056 0076 0057 0077 0058 0078 0059 0079 005A 007A 00A0 0020 00AA 0061 00B2 0032 00B3 0033 00B5 03BC 00B9 0031 00BA 006F 00C0 00E0 00C1 00E1 00C2 00E2 00C3 00E3 00C4 00E4 00C5 00E5 00C6 00E6 00C7 00E7 00C8 00E8 00C9 00E9 00CA 00EA 00CB 00EB 00CC 00EC 00CD 00ED 00CE 00EE 00CF 00EF 00D0 00F0 00D1 00F1 00D2 00F2 00D3 00F3 00D4 00F4 00D5 00F5 00D6 00F6 00D8 00F8 00D9 00F9 00DA 00FA 00DB 00FB 00DC 00FC 00DD 00FD 00DE 00FE 0100 0101 0102 0103 0104 0105 0106 0107 0108 0109 010A 010B 010C 010D 010E 010F 0110 0111 0112 0113 0114 0115 0116 0117 0118 0119 011A 011B 011C 011D 011E 011F 0120 0121 0122 0123 0124 0125 0126 0127 0128 0129 012A 012B 012C 012D 012E 012F 0134 0135 0136 0137 0139 013A 013B 013C 013D 013E 0141 0142 0143 0144 0145 0146 0147 0148 014A 014B 014C 014D 014E 014F 0150 0151 0152 0153 0154 0155 0156 0157 0158 0159 015A 015B 015C 015D 015E 015F 0160 0161 0162 0163 0164 0165 0166 0167 0168 0169 016A 016B 016C 016D 016E 016F 0170 0171 0172 0173 0174 0175 0176 0177 0178 00FF 0179 017A 017B 017C 017D 017E 017F 0073 0181 0253 0182 0183 0184 0185 0186 0254 0187 0188 0189 0256 018A 0257 018B 018C 018E 01DD 018F 0259 0190 025B 0191 0192 0193 0260 0194 0263 0196 0269 0197 0268 0198 0199 019C 026F 019D 0272 019F 0275 01A0 01A1 01A2 01A3 01A4 01A5 01A6 0280 01A7 01A8 01A9 0283 01AC 01AD 01AE 0288 01AF 01B0 01B1 028A 01B2 028B 01B3 01B4 01B5 01B6 01B7 0292 01B8 01B9 01BC 01BD 01CD 01CE 01CF 01D0 01D1 01D2 01D3 01D4 01D5 01D6 01D7 01D8 01D9 01DA 01DB 01DC 01DE 01DF 01E0 01E1 01E2 01E3 01E4 01E5 01E6 01E7 01E8 01E9 01EA 01EB 01EC 01ED 01EE 01EF 01F4 01F5 01F6 0195 01F7 01BF 01F8 01F9 01FA 01FB 01FC 01FD 01FE 01FF 0200 0201 0202 0203 0204 0205 0206 0207 0208 0209 020A 020B 020C 020D 020E 020F 0210 0211 0212 0213 0214 0215 0216 0217 0218 0219 021A 021B 021C 021D 021E 021F 0220 019E 0222 0223 0224 0225 0226 0227 0228 0229 022A 022B 022C 022D 022E 022F 0230 0231 0232 0233 023A 2C65 023B 023C 023D 019A 023E 2C66 0241 0242 0243 0180 0244 0289 0245 028C 0246 0247 0248 0249 024A 024B 024C 024D 024E 024F 02B0 0068 02B1 0266 02B2 006A 02B3 0072 02B4 0279 02B5 027B 02B6 0281 02B7 0077 02B8 0079 02E0 0263 02E1 006C 02E2 0073 02E3 0078 02E4 0295 0340 0300 0341 0301 0343 0313 0345 03B9 0370 0371 0372 0373 0374 02B9 0376 0377 037E 003B 037F 03F3 0386 03AC 0387 00B7 0388 03AD 0389 03AE 038A 03AF 038C 03CC 038E 03CD 038F 03CE 0391 03B1 0392 03B2 0393 03B3 0394 03B4 0395 03B5 0396 03B6 0397 03B7 0398 03B8 0399 03B9 039A 03BA 039B 03BB 039C 03BC 039D 03BD 039E 03BE 039F 03BF 03A0 03C0 03A1 03C1 03A3 03C3 03A4 03C4 03A5 03C5 03A6 03C6 03A7 03C7 03A8 03C8 03A9 03C9 03AA 03CA 03AB 03CB 03C2 03C3 03CF 03D7 03D0 03B2 03D1 03B8 03D2 03C5 03D3 03CD 03D4 03CB 03D5 03C6 03D6 03C0 03D8 03D9 03DA 03DB 03DC 03DD 03DE 03DF 03E0 03E1 03E2 03E3 03E4 03E5 03E6 03E7 03E8 03E9 03EA 03EB 03EC 03ED 03EE 03EF 03F0 03BA 03F1 03C1 03F2 03C3 03F4 03B8 03F5 03B5 03F7 03F8 03F9 03C3 03FA 03FB 03FD 037B 03FE 037C 03FF 037D 0400 0450 0401 0451 0402 0452 0403 0453 0404 0454 0405 0455 0406 0456 0407 0457 0408 0458 0409 0459 040A 045A 040B 045B 040C 045C 040D 045D 040E 045E 040F 045F 0410 0430 0411 0431 0412 0432 0413 0433 0414 0434 0415 0435 0416 0436 0417 0437 0418 0438 0419 0439 041A 043A 041B 043B 041C 043C 041D 043D 041E 043E 041F 043F 0420 0440 0421 0441 0422 0442 0423 0443 0424 0444 0425 0445 0426 0446 0427 0447 0428 0448 0429 0449 042A 044A 042B 044B 042C 044C 042D 044D 042E 044E 042F 044F 0460 0461 0462 0463 0464 0465 0466 0467 0468 0469 046A 046B 046C 046D 046E 046F 0470 0471 0472 0473 0474 0475 0476 0477 0478 0479 047A 047B 047C 047D 047E 047F 0480 0481 048A 048B 048C 048D 048E 048F 0490 0491 0492 0493 0494 0495 0496 0497 0498 0499 049A 049B 049C 049D 049E 049F 04A0 04A1 04A2 04A3 04A4 04A5 04A6 04A7 04A8 04A9 04AA 04AB 04AC 04AD 04AE 04AF 04B0 04B1 04B2 04B3 04B4 04B5 04B6 04B7 04B8 04B9 04BA 04BB 04BC 04BD 04BE 04BF 04C0 04CF 04C1 04C2 04C3 04C4 04C5 04C6 04C7 04C8 04C9 04CA 04CB 04CC 04CD 04CE 04D0 04D1 04D2 04D3 04D4 04D5 04D6 04D7 04D8 04D9 04DA 04DB 04DC 04DD 04DE 04DF 04E0 04E1 04E2 04E3 04E4 04E5 04E6 04E7 04E8 04E9 04EA 04EB 04EC 04ED 04EE 04EF 04F0 04F1 04F2 04F3 04F4 04F5 04F6 04F7 04F8 04F9 04FA 04FB 04FC 04FD 04FE 04FF 0500 0501 0502 0503 0504 0505 0506 0507 0508 0509 050A 050B 050C 050D 050E 050F 0510 0511 0512 0513 0514 0515 0516 0517 0518 0519 051A 051B 051C 051D 051E 051F 0520 0521 0522 0523 0524 0525 0526 0527 0528 0529 052A 052B 052C 052D 052E 052F 0531 0561 0532 0562 0533 0563 0534 0564 0535 0565 0536 0566 0537 0567 0538 0568 0539 0569 053A 056A 053B 056B 053C 056C 053D 056D 053E 056E 053F 056F 0540 0570 0541 0571 0542 0572 0543 0573 0544 0574 0545 0575 0546 0576 0547 0577 0548 0578 0549 0579 054A 057A 054B 057B 054C 057C 054D 057D 054E 057E 054F 057F 0550 0580 0551 0581 0552 0582 0553 0583 0554 0584 0555 0585 0556 0586 0F0C 0F0B 10A0 2D00 10A1 2D01 10A2 2D02 10A3 2D03 10A4 2D04 10A5 2D05 10A6 2D06 10A7 2D07 10A8 2D08 10A9 2D09 10AA 2D0A 10AB 2D0B 10AC 2D0C 10AD 2D0D 10AE 2D0E 10AF 2D0F 10B0 2D10 10B1 2D11 10B2 2D12 10B3 2D13 10B4 2D14 10B5 2D15 10B6 2D16 10B7 2D17 10B8 2D18 10B9 2D19 10BA 2D1A 10BB 2D1B 10BC 2D1C 10BD 2D1D 10BE 2D1E 10BF 2D1F 10C0 2D20 10C1 2D21 10C2 2D22 10C3 2D23 10C4 2D24 10C5 2D25 10C7 2D27 10CD 2D2D 10FC 10DC 13F8 13F0 13F9 13F1 13FA 13F2 13FB 13F3 13FC 13F4 13FD 13F5 1C80 0432 1C81 0434 1C82 043E 1C83 0441 1C84 0442 1C85 0442 1C86 044A 1C87 0463 1C88 A64B 1C90 10D0 1C91 10D1 1C92 10D2 1C93 10D3 1C94 10D4 1C95 10D5 1C96 10D6 1C97 10D7 1C98 10D8 1C99 10D9 1C9A 10DA 1C9B 10DB 1C9C 10DC 1C9D 10DD 1C9E 10DE 1C9F 10DF 1CA0 10E0 1CA1 10E1 1CA2 10E2 1CA3 10E3 1CA4 10E4 1CA5 10E5 1CA6 10E6 1CA7 10E7 1CA8 10E8 1CA9 10E9 1CAA 10EA 1CAB 10EB 1CAC 10EC 1CAD 10ED 1CAE 10EE 1CAF 10EF 1CB0 10F0 1CB1 10F1 1CB2 10F2 1CB3 10F3 1CB4 10F4 1CB5 10F5 1CB6 10F6 1CB7 10F7 1CB8 10F8 1CB9 10F9 1CBA 10FA 1CBD 10FD 1CBE 10FE 1CBF 10FF 1D2C 0061 1D2D 00E6 1D2E 0062 1D30 0064 1D31 0065 1D32 01DD 1D33 0067 1D34 0068 1D35 0069 1D36 006A 1D37 006B 1D38 006C 1D39 006D 1D3A 006E 1D3C 006F 1D3D 0223 1D3E 0070 1D3F 0072 1D40 0074 1D41 0075 1D42 0077 1D43 0061 1D44 0250 1D45 0251 1D46 1D02 1D47 0062 1D48 0064 1D49 0065 1D4A 0259 1D4B 025B 1D4C 025C 1D4D 0067 1D4F 006B 1D50 006D 1D51 014B 1D52 006F 1D53 0254 1D54 1D16 1D55 1D17 1D56 0070 1D57 0074 1D58 0075 1D59 1D1D 1D5A 026F 1D5B 0076 1D5C 1D25 1D5D 03B2 1D5E 03B3 1D5F 03B4 1D60 03C6 1D61 03C7 1D62 0069 1D63 0072 1D64 0075 1D65 0076 1D66 03B2 1D67 03B3 1D68 03C1 1D69 03C6 1D6A 03C7 1D78 043D 1D9B 0252 1D9C 0063 1D9D 0255 1D9E 00F0 1D9F 025C 1DA0 0066 1DA1 025F 1DA2 0261 1DA3 0265 1DA4 0268 1DA5 0269 1DA6 026A 1DA7 1D7B 1DA8 029D 1DA9 026D 1DAA 1D85 1DAB 029F 1DAC 0271 1DAD 0270 1DAE 0272 1DAF 0273 1DB0 0274 1DB1 0275 1DB2 0278 1DB3 0282 1DB4 0283 1DB5 01AB 1DB6 0289 1DB7 028A 1DB8 1D1C 1DB9 028B 1DBA 028C 1DBB 007A 1DBC 0290 1DBD 0291 1DBE 0292 1DBF 03B8 1E00 1E01 1E02 1E03 1E04 1E05 1E06 1E07 1E08 1E09 1E0A 1E0B 1E0C 1E0D 1E0E 1E0F 1E10 1E11 1E12 1E13 1E14 1E15 1E16 1E17 1E18 1E19 1E1A 1E1B 1E1C 1E1D 1E1E 1E1F 1E20 1E21 1E22 1E23 1E24 1E25 1E26 1E27 1E28 1E29 1E2A 1E2B 1E2C 1E2D 1E2E 1E2F 1E30 1E31 1E32 1E33 1E34 1E35 1E36 1E37 1E38 1E39 1E3A 1E3B 1E3C 1E3D 1E3E 1E3F 1E40 1E41 1E42 1E43 1E44 1E45 1E46 1E47 1E48 1E49 1E4A 1E4B 1E4C 1E4D 1E4E 1E4F 1E50 1E51 1E52 1E53 1E54 1E55 1E56 1E57 1E58 1E59 1E5A 1E5B 1E5C 1E5D 1E5E 1E5F 1E60 1E61 1E62 1E63 1E64 1E65 1E66 1E67 1E68 1E69 1E6A 1E6B 1E6C 1E6D 1E6E 1E6F 1E70 1E71 1E72 1E73 1E74 1E75 1E76 1E77 1E78 1E79 1E7A 1E7B 1E7C 1E7D 1E7E 1E7F 1E80 1E81 1E82 1E83 1E84 1E85 1E86 1E87 1E88 1E89 1E8A 1E8B 1E8C 1E8D 1E8E 1E8F 1E90 1E91 1E92 1E93 1E94 1E95 1E9B 1E61 1EA0 1EA1 1EA2 1EA3 1EA4 1EA5 1EA6 1EA7 1EA8 1EA9 1EAA 1EAB 1EAC 1EAD 1EAE 1EAF 1EB0 1EB1 1EB2 1EB3 1EB4 1EB5 1EB6 1EB7 1EB8 1EB9 1EBA 1EBB 1EBC 1EBD 1EBE 1EBF 1EC0 1EC1 1EC2 1EC3 1EC4 1EC5 1EC6 1EC7 1EC8 1EC9 1ECA 1ECB 1ECC 1ECD 1ECE 1ECF 1ED0 1ED1 1ED2 1ED3 1ED4 1ED5 1ED6 1ED7 1ED8 1ED9 1EDA 1EDB 1EDC 1EDD 1EDE 1EDF 1EE0 1EE1 1EE2 1EE3 1EE4 1EE5 1EE6 1EE7 1EE8 1EE9 1EEA 1EEB 1EEC 1EED 1EEE 1EEF 1EF0 1EF1 1EF2 1EF3 1EF4 1EF5 1EF6 1EF7 1EF8 1EF9 1EFA 1EFB 1EFC 1EFD 1EFE 1EFF 1F08 1F00 1F09 1F01 1F0A 1F02 1F0B 1F03 1F0C 1F04 1F0D 1F05 1F0E 1F06 1F0F 1F07 1F18 1F10 1F19 1F11 1F1A 1F12 1F1B 1F13 1F1C 1F14 1F1D 1F15 1F28 1F20 1F29 1F21 1F2A 1F22 1F2B 1F23 1F2C 1F24 1F2D 1F25 1F2E 1F26 1F2F 1F27 1F38 1F30 1F39 1F31 1F3A 1F32 1F3B 1F33 1F3C 1F34 1F3D 1F35 1F3E 1F36 1F3F 1F37 1F48 1F40 1F49 1F41 1F4A 1F42 1F4B 1F43 1F4C 1F44 1F4D 1F45 1F59 1F51 1F5B 1F53 1F5D 1F55 1F5F 1F57 1F68 1F60 1F69 1F61 1F6A 1F62 1F6B 1F63 1F6C 1F64 1F6D 1F65 1F6E 1F66 1F6F 1F67 1F71 03AC 1F73 03AD 1F75 03AE 1F77 03AF 1F79 03CC 1F7B 03CD 1F7D 03CE 1FB8 1FB0 1FB9 1FB1 1FBA 1F70 1FBB 03AC 1FBE 03B9 1FC8 1F72 1FC9 03AD 1FCA 1F74 1FCB 03AE 1FD3 0390 1FD8 1FD0 1FD9 1FD1 1FDA 1F76 1FDB 03AF 1FE3 03B0 1FE8 1FE0 1FE9 1FE1 1FEA 1F7A 1FEB 03CD 1FEC 1FE5 1FEF 0060 1FF8 1F78 1FF9 03CC 1FFA 1F7C 1FFB 03CE 2000 0020 2001 0020 2002 0020 2003 0020 2004 0020 2005 0020 2006 0020 2007 0020 2008 0020 2009 0020 200A 0020 2011 2010 2024 002E 202F 0020 205F 0020 2070 0030 2071 0069 2074 0034 2075 0035 2076 0036 2077 0037 2078 0038 2079 0039 207A 002B 207B 2212 207C 003D 207D 0028 207E 0029 207F 006E 2080 0030 2081 0031 2082 0032 2083 0033 2084 0034 2085 0035 2086 0036 2087 0037 2088 0038 2089 0039 208A 002B 208B 2212 208C 003D 208D 0028 208E 0029 2090 0061 2091 0065 2092 006F 2093 0078 2094 0259 2095 0068 2096 006B 2097 006C 2098 006D 2099 006E 209A 0070 209B 0073 209C 0074 2102 0063 2107 025B 210A 0067 210B 0068 210C 0068 210D 0068 210E 0068 210F 0127 2110 0069 2111 0069 2112 006C 2113 006C 2115 006E 2119 0070 211A 0071 211B 0072 211C 0072 211D 0072 2124 007A 2126 03C9 2128 007A 212A 006B 212B 00E5 212C 0062 212D 0063 212F 0065 2130 0065 2131 0066 2132 214E 2133 006D 2134 006F 2135 05D0 2136 05D1 2137 05D2 2138 05D3 2139 0069 213C 03C0 213D 03B3 213E 03B3 213F 03C0 2140 2211 2145 0064 2146 0064 2147 0065 2148 0069 2149 006A 2160 0069 2164 0076 2169 0078 216C 006C 216D 0063 216E 0064 216F 006D 2170 0069 2174 0076 2179 0078 217C 006C 217D 0063 217E 0064 217F 006D 2183 2184 2329 3008 232A 3009 2460 0031 2461 0032 2462 0033 2463 0034 2464 0035 2465 0036 2466 0037 2467 0038 2468 0039 24B6 0061 24B7 0062 24B8 0063 24B9 0064 24BA 0065 24BB 0066 24BC 0067 24BD 0068 24BE 0069 24BF 006A 24C0 006B 24C1 006C 24C2 006D 24C3 006E 24C4 006F 24C5 0070 24C6 0071 24C7 0072 24C8 0073 24C9 0074 24CA 0075 24CB 0076 24CC 0077 24CD 0078 24CE 0079 24CF 007A 24D0 0061 24D1 0062 24D2 0063 24D3 0064 24D4 0065 24D5 0066 24D6 0067 24D7 0068 24D8 0069 24D9 006A 24DA 006B 24DB 006C 24DC 006D 24DD 006E 24DE 006F 24DF 0070 24E0 0071 24E1 0072 24E2 0073 24E3 0074 24E4 0075 24E5 0076 24E6 0077 24E7 0078 24E8 0079 24E9 007A 24EA 0030 2C00 2C30 2C01 2C31 2C02 2C32 2C03 2C33 2C04 2C34 2C05 2C35 2C06 2C36 2C07 2C37 2C08 2C38 2C09 2C39 2C0A 2C3A 2C0B 2C3B 2C0C 2C3C 2C0D 2C3D 2C0E 2C3E 2C0F 2C3F 2C10 2C40 2C11 2C41 2C12 2C42 2C13 2C43 2C14 2C44 2C15 2C45 2C16 2C46 2C17 2C47 2C18 2C48 2C19 2C49 2C1A 2C4A 2C1B 2C4B 2C1C 2C4C 2C1D 2C4D 2C1E 2C4E 2C1F 2C4F 2C20 2C50 2C21 2C51 2C22 2C52 2C23 2C53 2C24 2C54 2C25 2C55 2C26 2C56 2C27 2C57 2C28 2C58 2C29 2C59 2C2A 2C5A 2C2B 2C5B 2C2C 2C5C 2C2D 2C5D 2C2E 2C5E 2C60 2C61 2C62 026B 2C63 1D7D 2C64 027D 2C67 2C68 2C69 2C6A 2C6B 2C6C 2C6D 0251 2C6E 0271 2C6F 0250 2C70 0252 2C72 2C73 2C75 2C76 2C7C 006A 2C7D 0076 2C7E 023F 2C7F 0240 2C80 2C81 2C82 2C83 2C84 2C85 2C86 2C87 2C88 2C89 2C8A 2C8B 2C8C 2C8D 2C8E 2C8F 2C90 2C91 2C92 2C93 2C94 2C95 2C96 2C97 2C98 2C99 2C9A 2C9B 2C9C 2C9D 2C9E 2C9F 2CA0 2CA1 2CA2 2CA3 2CA4 2CA5 2CA6 2CA7 2CA8 2CA9 2CAA 2CAB 2CAC 2CAD 2CAE 2CAF 2CB0 2CB1 2CB2 2CB3 2CB4 2CB5 2CB6 2CB7 2CB8 2CB9 2CBA 2CBB 2CBC 2CBD 2CBE 2CBF 2CC0 2CC1 2CC2 2CC3 2CC4 2CC5 2CC6 2CC7 2CC8 2CC9 2CCA 2CCB 2CCC 2CCD 2CCE 2CCF 2CD0 2CD1 2CD2 2CD3 2CD4 2CD5 2CD6 2CD7 2CD8 2CD9 2CDA 2CDB 2CDC 2CDD 2CDE 2CDF 2CE0 2CE1 2CE2 2CE3 2CEB 2CEC 2CED 2CEE 2CF2 2CF3 2D6F 2D61 2E9F 6BCD 2EF3 9F9F 2F00 4E00 2F01 4E28 2F02 4E36 2F03 4E3F 2F04 4E59 2F05 4E85 2F06 4E8C 2F07 4EA0 2F08 4EBA 2F09 513F 2F0A 5165 2F0B 516B 2F0C 5182 2F0D 5196 2F0E 51AB 2F0F 51E0 2F10 51F5 2F11 5200 2F12 529B 2F13 52F9 2F14 5315 2F15 531A 2F16 5338 2F17 5341 2F18 535C 2F19 5369 2F1A 5382 2F1B 53B6 2F1C 53C8 2F1D 53E3 2F1E 56D7 2F1F 571F 2F20 58EB 2F21 5902 2F22 590A 2F23 5915 2F24 5927 2F25 5973 2F26 5B50 2F27 5B80 2F28 5BF8 2F29 5C0F 2F2A 5C22 2F2B 5C38 2F2C 5C6E 2F2D 5C71 2F2E 5DDB 2F2F 5DE5 2F30 5DF1 2F31 5DFE 2F32 5E72 2F33 5E7A 2F34 5E7F 2F35 5EF4 2F36 5EFE 2F37 5F0B 2F38 5F13 2F39 5F50 2F3A 5F61 2F3B 5F73 2F3C 5FC3 2F3D 6208 2F3E 6236 2F3F 624B 2F40 652F 2F41 6534 2F42 6587 2F43 6597 2F44 65A4 2F45 65B9 2F46 65E0 2F47 65E5 2F48 66F0 2F49 6708 2F4A 6728 2F4B 6B20 2F4C 6B62 2F4D 6B79 2F4E 6BB3 2F4F 6BCB 2F50 6BD4 2F51 6BDB 2F52 6C0F 2F53 6C14 2F54 6C34 2F55 706B 2F56 722A 2F57 7236 2F58 723B 2F59 723F 2F5A 7247 2F5B 7259 2F5C 725B 2F5D 72AC 2F5E 7384 2F5F 7389 2F60 74DC 2F61 74E6 2F62 7518 2F63 751F 2F64 7528 2F65 7530 2F66 758B 2F67 7592 2F68 7676 2F69 767D 2F6A 76AE 2F6B 76BF 2F6C 76EE 2F6D 77DB 2F6E 77E2 2F6F 77F3 2F70 793A 2F71 79B8 2F72 79BE 2F73 7A74 2F74 7ACB 2F75 7AF9 2F76 7C73 2F77 7CF8 2F78 7F36 2F79 7F51 2F7A 7F8A 2F7B 7FBD 2F7C 8001 2F7D 800C 2F7E 8012 2F7F 8033 2F80 807F 2F81 8089 2F82 81E3 2F83 81EA 2F84 81F3 2F85 81FC 2F86 820C 2F87 821B 2F88 821F 2F89 826E 2F8A 8272 2F8B 8278 2F8C 864D 2F8D 866B 2F8E 8840 2F8F 884C 2F90 8863 2F91 897E 2F92 898B 2F93 89D2 2F94 8A00 2F95 8C37 2F96 8C46 2F97 8C55 2F98 8C78 2F99 8C9D 2F9A 8D64 2F9B 8D70 2F9C 8DB3 2F9D 8EAB 2F9E 8ECA 2F9F 8F9B 2FA0 8FB0 2FA1 8FB5 2FA2 9091 2FA3 9149 2FA4 91C6 2FA5 91CC 2FA6 91D1 2FA7 9577 2FA8 9580 2FA9 961C 2FAA 96B6 2FAB 96B9 2FAC 96E8 2FAD 9751 2FAE 975E 2FAF 9762 2FB0 9769 2FB1 97CB 2FB2 97ED 2FB3 97F3 2FB4 9801 2FB5 98A8 2FB6 98DB 2FB7 98DF 2FB8 9996 2FB9 9999 2FBA 99AC 2FBB 9AA8 2FBC 9AD8 2FBD 9ADF 2FBE 9B25 2FBF 9B2F 2FC0 9B32 2FC1 9B3C 2FC2 9B5A 2FC3 9CE5 2FC4 9E75 2FC5 9E7F 2FC6 9EA5 2FC7 9EBB 2FC8 9EC3 2FC9 9ECD 2FCA 9ED1 2FCB 9EF9 2FCC 9EFD 2FCD 9F0E 2FCE 9F13 2FCF 9F20 2FD0 9F3B 2FD1 9F4A 2FD2 9F52 2FD3 9F8D 2FD4 9F9C 2FD5 9FA0 3000 0020 3036 3012 3038 5341 3039 5344 303A 5345 3131 1100 3132 1101 3133 11AA 3134 1102 3135 11AC 3136 11AD 3137 1103 3138 1104 3139 1105 313A 11B0 313B 11B1 313C 11B2 313D 11B3 313E 11B4 313F 11B5 3140 111A 3141 1106 3142 1107 3143 1108 3144 1121 3145 1109 3146 110A 3147 110B 3148 110C 3149 110D 314A 110E 314B 110F 314C 1110 314D 1111 314E 1112 314F 1161 3150 1162 3151 1163 3152 1164 3153 1165 3154 1166 3155 1167 3156 1168 3157 1169 3158 116A 3159 116B 315A 116C 315B 116D 315C 116E 315D 116F 315E 1170 315F 1171 3160 1172 3161 1173 3162 1174 3163 1175 3165 1114 3166 1115 3167 11C7 3168 11C8 3169 11CC 316A 11CE 316B 11D3 316C 11D7 316D 11D9 316E 111C 316F 11DD 3170 11DF 3171 111D 3172 111E 3173 1120 3174 1122 3175 1123 3176 1127 3177 1129 3178 112B 3179 112C 317A 112D 317B 112E 317C 112F 317D 1132 317E 1136 317F 1140 3180 1147 3181 114C 3182 11F1 3183 11F2 3184 1157 3185 1158 3186 1159 3187 1184 3188 1185 3189 1188 318A 1191 318B 1192 318C 1194 318D 119E 318E 11A1 3192 4E00 3193 4E8C 3194 4E09 3195 56DB 3196 4E0A 3197 4E2D 3198 4E0B 3199 7532 319A 4E59 319B 4E19 319C 4E01 319D 5929 319E 5730 319F 4EBA 3244 554F 3245 5E7C 3246 6587 3247 7B8F 3260 1100 3261 1102 3262 1103 3263 1105 3264 1106 3265 1107 3266 1109 3267 110B 3268 110C 3269 110E 326A 110F 326B 1110 326C 1111 326D 1112 326E AC00 326F B098 3270 B2E4 3271 B77C 3272 B9C8 3273 BC14 3274 C0AC 3275 C544 3276 C790 3277 CC28 3278 CE74 3279 D0C0 327A D30C 327B D558 327E C6B0 3280 4E00 3281 4E8C 3282 4E09 3283 56DB 3284 4E94 3285 516D 3286 4E03 3287 516B 3288 4E5D 3289 5341 328A 6708 328B 706B 328C 6C34 328D 6728 328E 91D1 328F 571F 3290 65E5 3291 682A 3292 6709 3293 793E 3294 540D 3295 7279 3296 8CA1 3297 795D 3298 52B4 3299 79D8 329A 7537 329B 5973 329C 9069 329D 512A 329E 5370 329F 6CE8 32A0 9805 32A1 4F11 32A2 5199 32A3 6B63 32A4 4E0A 32A5 4E2D 32A6 4E0B 32A7 5DE6 32A8 53F3 32A9 533B 32AA 5B97 32AB 5B66 32AC 76E3 32AD 4F01 32AE 8CC7 32AF 5354 32B0 591C 32D0 30A2 32D1 30A4 32D2 30A6 32D3 30A8 32D4 30AA 32D5 30AB 32D6 30AD 32D7 30AF 32D8 30B1 32D9 30B3 32DA 30B5 32DB 30B7 32DC 30B9 32DD 30BB 32DE 30BD 32DF 30BF 32E0 30C1 32E1 30C4 32E2 30C6 32E3 30C8 32E4 30CA 32E5 30CB 32E6 30CC 32E7 30CD 32E8 30CE 32E9 30CF 32EA 30D2 32EB 30D5 32EC 30D8 32ED 30DB 32EE 30DE 32EF 30DF 32F0 30E0 32F1 30E1 32F2 30E2 32F3 30E4 32F4 30E6 32F5 30E8 32F6 30E9 32F7 30EA 32F8 30EB 32F9 30EC 32FA 30ED 32FB 30EF 32FC 30F0 32FD 30F1 32FE 30F2 A640 A641 A642 A643 A644 A645 A646 A647 A648 A649 A64A A64B A64C A64D A64E A64F A650 A651 A652 A653 A654 A655 A656 A657 A658 A659 A65A A65B A65C A65D A65E A65F A660 A661 A662 A663 A664 A665 A666 A667 A668 A669 A66A A66B A66C A66D A680 A681 A682 A683 A684 A685 A686 A687 A688 A689 A68A A68B A68C A68D A68E A68F A690 A691 A692 A693 A694 A695 A696 A697 A698 A699 A69A A69B A69C 044A A69D 044C A722 A723 A724 A725 A726 A727 A728 A729 A72A A72B A72C A72D A72E A72F A732 A733 A734 A735 A736 A737 A738 A739 A73A A73B A73C A73D A73E A73F A740 A741 A742 A743 A744 A745 A746 A747 A748 A749 A74A A74B A74C A74D A74E A74F A750 A751 A752 A753 A754 A755 A756 A757 A758 A759 A75A A75B A75C A75D A75E A75F A760 A761 A762 A763 A764 A765 A766 A767 A768 A769 A76A A76B A76C A76D A76E A76F A770 A76F A779 A77A A77B A77C A77D 1D79 A77E A77F A780 A781 A782 A783 A784 A785 A786 A787 A78B A78C A78D 0265 A790 A791 A792 A793 A796 A797 A798 A799 A79A A79B A79C A79D A79E A79F A7A0 A7A1 A7A2 A7A3 A7A4 A7A5 A7A6 A7A7 A7A8 A7A9 A7AA 0266 A7AB 025C A7AC 0261 A7AD 026C A7AE 026A A7B0 029E A7B1 0287 A7B2 029D A7B3 AB53 A7B4 A7B5 A7B6 A7B7 A7B8 A7B9 A7BA A7BB A7BC A7BD A7BE A7BF A7C2 A7C3 A7C4 A794 A7C5 0282 A7C6 1D8E A7C7 A7C8 A7C9 A7CA A7F5 A7F6 A7F8 0127 A7F9 0153 AB5C A727 AB5D AB37 AB5E 026B AB5F AB52 AB69 028D AB70 13A0 AB71 13A1 AB72 13A2 AB73 13A3 AB74 13A4 AB75 13A5 AB76 13A6 AB77 13A7 AB78 13A8 AB79 13A9 AB7A 13AA AB7B 13AB AB7C 13AC AB7D 13AD AB7E 13AE AB7F 13AF AB80 13B0 AB81 13B1 AB82 13B2 AB83 13B3 AB84 13B4 AB85 13B5 AB86 13B6 AB87 13B7 AB88 13B8 AB89 13B9 AB8A 13BA AB8B 13BB AB8C 13BC AB8D 13BD AB8E 13BE AB8F 13BF AB90 13C0 AB91 13C1 AB92 13C2 AB93 13C3 AB94 13C4 AB95 13C5 AB96 13C6 AB97 13C7 AB98 13C8 AB99 13C9 AB9A 13CA AB9B 13CB AB9C 13CC AB9D 13CD AB9E 13CE AB9F 13CF ABA0 13D0 ABA1 13D1 ABA2 13D2 ABA3 13D3 ABA4 13D4 ABA5 13D5 ABA6 13D6 ABA7 13D7 ABA8 13D8 ABA9 13D9 ABAA 13DA ABAB 13DB ABAC 13DC ABAD 13DD ABAE 13DE ABAF 13DF ABB0 13E0 ABB1 13E1 ABB2 13E2 ABB3 13E3 ABB4 13E4 ABB5 13E5 ABB6 13E6 ABB7 13E7 ABB8 13E8 ABB9 13E9 ABBA 13EA ABBB 13EB ABBC 13EC ABBD 13ED ABBE 13EE ABBF 13EF F900 8C48 F901 66F4 F902 8ECA F903 8CC8 F904 6ED1 F905 4E32 F906 53E5 F907 9F9C F908 9F9C F909 5951 F90A 91D1 F90B 5587 F90C 5948 F90D 61F6 F90E 7669 F90F 7F85 F910 863F F911 87BA F912 88F8 F913 908F F914 6A02 F915 6D1B F916 70D9 F917 73DE F918 843D F919 916A F91A 99F1 F91B 4E82 F91C 5375 F91D 6B04 F91E 721B F91F 862D F920 9E1E F921 5D50 F922 6FEB F923 85CD F924 8964 F925 62C9 F926 81D8 F927 881F F928 5ECA F929 6717 F92A 6D6A F92B 72FC F92C 90CE F92D 4F86 F92E 51B7 F92F 52DE F930 64C4 F931 6AD3 F932 7210 F933 76E7 F934 8001 F935 8606 F936 865C F937 8DEF F938 9732 F939 9B6F F93A 9DFA F93B 788C F93C 797F F93D 7DA0 F93E 83C9 F93F 9304 F940 9E7F F941 8AD6 F942 58DF F943 5F04 F944 7C60 F945 807E F946 7262 F947 78CA F948 8CC2 F949 96F7 F94A 58D8 F94B 5C62 F94C 6A13 F94D 6DDA F94E 6F0F F94F 7D2F F950 7E37 F951 964B F952 52D2 F953 808B F954 51DC F955 51CC F956 7A1C F957 7DBE F958 83F1 F959 9675 F95A 8B80 F95B 62CF F95C 6A02 F95D 8AFE F95E 4E39 F95F 5BE7 F960 6012 F961 7387 F962 7570 F963 5317 F964 78FB F965 4FBF F966 5FA9 F967 4E0D F968 6CCC F969 6578 F96A 7D22 F96B 53C3 F96C 585E F96D 7701 F96E 8449 F96F 8AAA F970 6BBA F971 8FB0 F972 6C88 F973 62FE F974 82E5 F975 63A0 F976 7565 F977 4EAE F978 5169 F979 51C9 F97A 6881 F97B 7CE7 F97C 826F F97D 8AD2 F97E 91CF F97F 52F5 F980 5442 F981 5973 F982 5EEC F983 65C5 F984 6FFE F985 792A F986 95AD F987 9A6A F988 9E97 F989 9ECE F98A 529B F98B 66C6 F98C 6B77 F98D 8F62 F98E 5E74 F98F 6190 F990 6200 F991 649A F992 6F23 F993 7149 F994 7489 F995 79CA F996 7DF4 F997 806F F998 8F26 F999 84EE F99A 9023 F99B 934A F99C 5217 F99D 52A3 F99E 54BD F99F 70C8 F9A0 88C2 F9A1 8AAA F9A2 5EC9 F9A3 5FF5 F9A4 637B F9A5 6BAE F9A6 7C3E F9A7 7375 F9A8 4EE4 F9A9 56F9 F9AA 5BE7 F9AB 5DBA F9AC 601C F9AD 73B2 F9AE 7469 F9AF 7F9A F9B0 8046 F9B1 9234 F9B2 96F6 F9B3 9748 F9B4 9818 F9B5 4F8B F9B6 79AE F9B7 91B4 F9B8 96B8 F9B9 60E1 F9BA 4E86 F9BB 50DA F9BC 5BEE F9BD 5C3F F9BE 6599 F9BF 6A02 F9C0 71CE F9C1 7642 F9C2 84FC F9C3 907C F9C4 9F8D F9C5 6688 F9C6 962E F9C7 5289 F9C8 677B F9C9 67F3 F9CA 6D41 F9CB 6E9C F9CC 7409 F9CD 7559 F9CE 786B F9CF 7D10 F9D0 985E F9D1 516D F9D2 622E F9D3 9678 F9D4 502B F9D5 5D19 F9D6 6DEA F9D7 8F2A F9D8 5F8B F9D9 6144 F9DA 6817 F9DB 7387 F9DC 9686 F9DD 5229 F9DE 540F F9DF 5C65 F9E0 6613 F9E1 674E F9E2 68A8 F9E3 6CE5 F9E4 7406 F9E5 75E2 F9E6 7F79 F9E7 88CF F9E8 88E1 F9E9 91CC F9EA 96E2 F9EB 533F F9EC 6EBA F9ED 541D F9EE 71D0 F9EF 7498 F9F0 85FA F9F1 96A3 F9F2 9C57 F9F3 9E9F F9F4 6797 F9F5 6DCB F9F6 81E8 F9F7 7ACB F9F8 7B20 F9F9 7C92 F9FA 72C0 F9FB 7099 F9FC 8B58 F9FD 4EC0 F9FE 8336 F9FF 523A FA00 5207 FA01 5EA6 FA02 62D3 FA03 7CD6 FA04 5B85 FA05 6D1E FA06 66B4 FA07 8F3B FA08 884C FA09 964D FA0A 898B FA0B 5ED3 FA0C 5140 FA0D 55C0 FA10 585A FA12 6674 FA15 51DE FA16 732A FA17 76CA FA18 793C FA19 795E FA1A 7965 FA1B 798F FA1C 9756 FA1D 7CBE FA1E 7FBD FA20 8612 FA22 8AF8 FA25 9038 FA26 90FD FA2A 98EF FA2B 98FC FA2C 9928 FA2D 9DB4 FA2E 90DE FA2F 96B7 FA30 4FAE FA31 50E7 FA32 514D FA33 52C9 FA34 52E4 FA35 5351 FA36 559D FA37 5606 FA38 5668 FA39 5840 FA3A 58A8 FA3B 5C64 FA3C 5C6E FA3D 6094 FA3E 6168 FA3F 618E FA40 61F2 FA41 654F FA42 65E2 FA43 6691 FA44 6885 FA45 6D77 FA46 6E1A FA47 6F22 FA48 716E FA49 722B FA4A 7422 FA4B 7891 FA4C 793E FA4D 7949 FA4E 7948 FA4F 7950 FA50 7956 FA51 795D FA52 798D FA53 798E FA54 7A40 FA55 7A81 FA56 7BC0 FA57 7DF4 FA58 7E09 FA59 7E41 FA5A 7F72 FA5B 8005 FA5C 81ED FA5D 8279 FA5E 8279 FA5F 8457 FA60 8910 FA61 8996 FA62 8B01 FA63 8B39 FA64 8CD3 FA65 8D08 FA66 8FB6 FA67 9038 FA68 96E3 FA69 97FF FA6A 983B FA6B 6075 FA6C 242EE FA6D 8218 FA70 4E26 FA71 51B5 FA72 5168 FA73 4F80 FA74 5145 FA75 5180 FA76 52C7 FA77 52FA FA78 559D FA79 5555 FA7A 5599 FA7B 55E2 FA7C 585A FA7D 58B3 FA7E 5944 FA7F 5954 FA80 5A62 FA81 5B28 FA82 5ED2 FA83 5ED9 FA84 5F69 FA85 5FAD FA86 60D8 FA87 614E FA88 6108 FA89 618E FA8A 6160 FA8B 61F2 FA8C 6234 FA8D 63C4 FA8E 641C FA8F 6452 FA90 6556 FA91 6674 FA92 6717 FA93 671B FA94 6756 FA95 6B79 FA96 6BBA FA97 6D41 FA98 6EDB FA99 6ECB FA9A 6F22 FA9B 701E FA9C 716E FA9D 77A7 FA9E 7235 FA9F 72AF FAA0 732A FAA1 7471 FAA2 7506 FAA3 753B FAA4 761D FAA5 761F FAA6 76CA FAA7 76DB FAA8 76F4 FAA9 774A FAAA 7740 FAAB 78CC FAAC 7AB1 FAAD 7BC0 FAAE 7C7B FAAF 7D5B FAB0 7DF4 FAB1 7F3E FAB2 8005 FAB3 8352 FAB4 83EF FAB5 8779 FAB6 8941 FAB7 8986 FAB8 8996 FAB9 8ABF FABA 8AF8 FABB 8ACB FABC 8B01 FABD 8AFE FABE 8AED FABF 8B39 FAC0 8B8A FAC1 8D08 FAC2 8F38 FAC3 9072 FAC4 9199 FAC5 9276 FAC6 967C FAC7 96E3 FAC8 9756 FAC9 97DB FACA 97FF FACB 980B FACC 983B FACD 9B12 FACE 9F9C FACF 2284A FAD0 22844 FAD1 233D5 FAD2 3B9D FAD3 4018 FAD4 4039 FAD5 25249 FAD6 25CD0 FAD7 27ED3 FAD8 9F43 FAD9 9F8E FB20 05E2 FB21 05D0 FB22 05D3 FB23 05D4 FB24 05DB FB25 05DC FB26 05DD FB27 05E8 FB28 05EA FB29 002B FB50 0671 FB51 0671 FB52 067B FB53 067B FB54 067B FB55 067B FB56 067E FB57 067E FB58 067E FB59 067E FB5A 0680 FB5B 0680 FB5C 0680 FB5D 0680 FB5E 067A FB5F 067A FB60 067A FB61 067A FB62 067F FB63 067F FB64 067F FB65 067F FB66 0679 FB67 0679 FB68 0679 FB69 0679 FB6A 06A4 FB6B 06A4 FB6C 06A4 FB6D 06A4 FB6E 06A6 FB6F 06A6 FB70 06A6 FB71 06A6 FB72 0684 FB73 0684 FB74 0684 FB75 0684 FB76 0683 FB77 0683 FB78 0683 FB79 0683 FB7A 0686 FB7B 0686 FB7C 0686 FB7D 0686 FB7E 0687 FB7F 0687 FB80 0687 FB81 0687 FB82 068D FB83 068D FB84 068C FB85 068C FB86 068E FB87 068E FB88 0688 FB89 0688 FB8A 0698 FB8B 0698 FB8C 0691 FB8D 0691 FB8E 06A9 FB8F 06A9 FB90 06A9 FB91 06A9 FB92 06AF FB93 06AF FB94 06AF FB95 06AF FB96 06B3 FB97 06B3 FB98 06B3 FB99 06B3 FB9A 06B1 FB9B 06B1 FB9C 06B1 FB9D 06B1 FB9E 06BA FB9F 06BA FBA0 06BB FBA1 06BB FBA2 06BB FBA3 06BB FBA4 06C0 FBA5 06C0 FBA6 06C1 FBA7 06C1 FBA8 06C1 FBA9 06C1 FBAA 06BE FBAB 06BE FBAC 06BE FBAD 06BE FBAE 06D2 FBAF 06D2 FBB0 06D3 FBB1 06D3 FBD3 06AD FBD4 06AD FBD5 06AD FBD6 06AD FBD7 06C7 FBD8 06C7 FBD9 06C6 FBDA 06C6 FBDB 06C8 FBDC 06C8 FBDE 06CB FBDF 06CB FBE0 06C5 FBE1 06C5 FBE2 06C9 FBE3 06C9 FBE4 06D0 FBE5 06D0 FBE6 06D0 FBE7 06D0 FBE8 0649 FBE9 0649 FBFC 06CC FBFD 06CC FBFE 06CC FBFF 06CC FE10 002C FE11 3001 FE12 3002 FE13 003A FE14 003B FE15 0021 FE16 003F FE17 3016 FE18 3017 FE31 2014 FE32 2013 FE33 005F FE34 005F FE35 0028 FE36 0029 FE37 007B FE38 007D FE39 3014 FE3A 3015 FE3B 3010 FE3C 3011 FE3D 300A FE3E 300B FE3F 3008 FE40 3009 FE41 300C FE42 300D FE43 300E FE44 300F FE47 005B FE48 005D FE4D 005F FE4E 005F FE4F 005F FE50 002C FE51 3001 FE52 002E FE54 003B FE55 003A FE56 003F FE57 0021 FE58 2014 FE59 0028 FE5A 0029 FE5B 007B FE5C 007D FE5D 3014 FE5E 3015 FE5F 0023 FE60 0026 FE61 002A FE62 002B FE63 002D FE64 003C FE65 003E FE66 003D FE68 005C FE69 0024 FE6A 0025 FE6B 0040 FE80 0621 FE81 0622 FE82 0622 FE83 0623 FE84 0623 FE85 0624 FE86 0624 FE87 0625 FE88 0625 FE89 0626 FE8A 0626 FE8B 0626 FE8C 0626 FE8D 0627 FE8E 0627 FE8F 0628 FE90 0628 FE91 0628 FE92 0628 FE93 0629 FE94 0629 FE95 062A FE96 062A FE97 062A FE98 062A FE99 062B FE9A 062B FE9B 062B FE9C 062B FE9D 062C FE9E 062C FE9F 062C FEA0 062C FEA1 062D FEA2 062D FEA3 062D FEA4 062D FEA5 062E FEA6 062E FEA7 062E FEA8 062E FEA9 062F FEAA 062F FEAB 0630 FEAC 0630 FEAD 0631 FEAE 0631 FEAF 0632 FEB0 0632 FEB1 0633 FEB2 0633 FEB3 0633 FEB4 0633 FEB5 0634 FEB6 0634 FEB7 0634 FEB8 0634 FEB9 0635 FEBA 0635 FEBB 0635 FEBC 0635 FEBD 0636 FEBE 0636 FEBF 0636 FEC0 0636 FEC1 0637 FEC2 0637 FEC3 0637 FEC4 0637 FEC5 0638 FEC6 0638 FEC7 0638 FEC8 0638 FEC9 0639 FECA 0639 FECB 0639 FECC 0639 FECD 063A FECE 063A FECF 063A FED0 063A FED1 0641 FED2 0641 FED3 0641 FED4 0641 FED5 0642 FED6 0642 FED7 0642 FED8 0642 FED9 0643 FEDA 0643 FEDB 0643 FEDC 0643 FEDD 0644 FEDE 0644 FEDF 0644 FEE0 0644 FEE1 0645 FEE2 0645 FEE3 0645 FEE4 0645 FEE5 0646 FEE6 0646 FEE7 0646 FEE8 0646 FEE9 0647 FEEA 0647 FEEB 0647 FEEC 0647 FEED 0648 FEEE 0648 FEEF 0649 FEF0 0649 FEF1 064A FEF2 064A FEF3 064A FEF4 064A FF01 0021 FF02 0022 FF03 0023 FF04 0024 FF05 0025 FF06 0026 FF07 0027 FF08 0028 FF09 0029 FF0A 002A FF0B 002B FF0C 002C FF0D 002D FF0E 002E FF0F 002F FF10 0030 FF11 0031 FF12 0032 FF13 0033 FF14 0034 FF15 0035 FF16 0036 FF17 0037 FF18 0038 FF19 0039 FF1A 003A FF1B 003B FF1C 003C FF1D 003D FF1E 003E FF1F 003F FF20 0040 FF21 0061 FF22 0062 FF23 0063 FF24 0064 FF25 0065 FF26 0066 FF27 0067 FF28 0068 FF29 0069 FF2A 006A FF2B 006B FF2C 006C FF2D 006D FF2E 006E FF2F 006F FF30 0070 FF31 0071 FF32 0072 FF33 0073 FF34 0074 FF35 0075 FF36 0076 FF37 0077 FF38 0078 FF39 0079 FF3A 007A FF3B 005B FF3C 005C FF3D 005D FF3E 005E FF3F 005F FF40 0060 FF41 0061 FF42 0062 FF43 0063 FF44 0064 FF45 0065 FF46 0066 FF47 0067 FF48 0068 FF49 0069 FF4A 006A FF4B 006B FF4C 006C FF4D 006D FF4E 006E FF4F 006F FF50 0070 FF51 0071 FF52 0072 FF53 0073 FF54 0074 FF55 0075 FF56 0076 FF57 0077 FF58 0078 FF59 0079 FF5A 007A FF5B 007B FF5C 007C FF5D 007D FF5E 007E FF5F 2985 FF60 2986 FF61 3002 FF62 300C FF63 300D FF64 3001 FF65 30FB FF66 30F2 FF67 30A1 FF68 30A3 FF69 30A5 FF6A 30A7 FF6B 30A9 FF6C 30E3 FF6D 30E5 FF6E 30E7 FF6F 30C3 FF70 30FC FF71 30A2 FF72 30A4 FF73 30A6 FF74 30A8 FF75 30AA FF76 30AB FF77 30AD FF78 30AF FF79 30B1 FF7A 30B3 FF7B 30B5 FF7C 30B7 FF7D 30B9 FF7E 30BB FF7F 30BD FF80 30BF FF81 30C1 FF82 30C4 FF83 30C6 FF84 30C8 FF85 30CA FF86 30CB FF87 30CC FF88 30CD FF89 30CE FF8A 30CF FF8B 30D2 FF8C 30D5 FF8D 30D8 FF8E 30DB FF8F 30DE FF90 30DF FF91 30E0 FF92 30E1 FF93 30E2 FF94 30E4 FF95 30E6 FF96 30E8 FF97 30E9 FF98 30EA FF99 30EB FF9A 30EC FF9B 30ED FF9C 30EF FF9D 30F3 FF9E 3099 FF9F 309A FFA1 1100 FFA2 1101 FFA3 11AA FFA4 1102 FFA5 11AC FFA6 11AD FFA7 1103 FFA8 1104 FFA9 1105 FFAA 11B0 FFAB 11B1 FFAC 11B2 FFAD 11B3 FFAE 11B4 FFAF 11B5 FFB0 111A FFB1 1106 FFB2 1107 FFB3 1108 FFB4 1121 FFB5 1109 FFB6 110A FFB7 110B FFB8 110C FFB9 110D FFBA 110E FFBB 110F FFBC 1110 FFBD 1111 FFBE 1112 FFC2 1161 FFC3 1162 FFC4 1163 FFC5 1164 FFC6 1165 FFC7 1166 FFCA 1167 FFCB 1168 FFCC 1169 FFCD 116A FFCE 116B FFCF 116C FFD2 116D FFD3 116E FFD4 116F FFD5 1170 FFD6 1171 FFD7 1172 FFDA 1173 FFDB 1174 FFDC 1175 FFE0 00A2 FFE1 00A3 FFE2 00AC FFE4 00A6 FFE5 00A5 FFE6 20A9 FFE8 2502 FFE9 2190 FFEA 2191 FFEB 2192 FFEC 2193 FFED 25A0 FFEE 25CB 10400 10428 10401 10429 10402 1042A 10403 1042B 10404 1042C 10405 1042D 10406 1042E 10407 1042F 10408 10430 10409 10431 1040A 10432 1040B 10433 1040C 10434 1040D 10435 1040E 10436 1040F 10437 10410 10438 10411 10439 10412 1043A 10413 1043B 10414 1043C 10415 1043D 10416 1043E 10417 1043F 10418 10440 10419 10441 1041A 10442 1041B 10443 1041C 10444 1041D 10445 1041E 10446 1041F 10447 10420 10448 10421 10449 10422 1044A 10423 1044B 10424 1044C 10425 1044D 10426 1044E 10427 1044F 104B0 104D8 104B1 104D9 104B2 104DA 104B3 104DB 104B4 104DC 104B5 104DD 104B6 104DE 104B7 104DF 104B8 104E0 104B9 104E1 104BA 104E2 104BB 104E3 104BC 104E4 104BD 104E5 104BE 104E6 104BF 104E7 104C0 104E8 104C1 104E9 104C2 104EA 104C3 104EB 104C4 104EC 104C5 104ED 104C6 104EE 104C7 104EF 104C8 104F0 104C9 104F1 104CA 104F2 104CB 104F3 104CC 104F4 104CD 104F5 104CE 104F6 104CF 104F7 104D0 104F8 104D1 104F9 104D2 104FA 104D3 104FB 10C80 10CC0 10C81 10CC1 10C82 10CC2 10C83 10CC3 10C84 10CC4 10C85 10CC5 10C86 10CC6 10C87 10CC7 10C88 10CC8 10C89 10CC9 10C8A 10CCA 10C8B 10CCB 10C8C 10CCC 10C8D 10CCD 10C8E 10CCE 10C8F 10CCF 10C90 10CD0 10C91 10CD1 10C92 10CD2 10C93 10CD3 10C94 10CD4 10C95 10CD5 10C96 10CD6 10C97 10CD7 10C98 10CD8 10C99 10CD9 10C9A 10CDA 10C9B 10CDB 10C9C 10CDC 10C9D 10CDD 10C9E 10CDE 10C9F 10CDF 10CA0 10CE0 10CA1 10CE1 10CA2 10CE2 10CA3 10CE3 10CA4 10CE4 10CA5 10CE5 10CA6 10CE6 10CA7 10CE7 10CA8 10CE8 10CA9 10CE9 10CAA 10CEA 10CAB 10CEB 10CAC 10CEC 10CAD 10CED 10CAE 10CEE 10CAF 10CEF 10CB0 10CF0 10CB1 10CF1 10CB2 10CF2 118A0 118C0 118A1 118C1 118A2 118C2 118A3 118C3 118A4 118C4 118A5 118C5 118A6 118C6 118A7 118C7 118A8 118C8 118A9 118C9 118AA 118CA 118AB 118CB 118AC 118CC 118AD 118CD 118AE 118CE 118AF 118CF 118B0 118D0 118B1 118D1 118B2 118D2 118B3 118D3 118B4 118D4 118B5 118D5 118B6 118D6 118B7 118D7 118B8 118D8 118B9 118D9 118BA 118DA 118BB 118DB 118BC 118DC 118BD 118DD 118BE 118DE 118BF 118DF 16E40 16E60 16E41 16E61 16E42 16E62 16E43 16E63 16E44 16E64 16E45 16E65 16E46 16E66 16E47 16E67 16E48 16E68 16E49 16E69 16E4A 16E6A 16E4B 16E6B 16E4C 16E6C 16E4D 16E6D 16E4E 16E6E 16E4F 16E6F 16E50 16E70 16E51 16E71 16E52 16E72 16E53 16E73 16E54 16E74 16E55 16E75 16E56 16E76 16E57 16E77 16E58 16E78 16E59 16E79 16E5A 16E7A 16E5B 16E7B 16E5C 16E7C 16E5D 16E7D 16E5E 16E7E 16E5F 16E7F 1D400 0061 1D401 0062 1D402 0063 1D403 0064 1D404 0065 1D405 0066 1D406 0067 1D407 0068 1D408 0069 1D409 006A 1D40A 006B 1D40B 006C 1D40C 006D 1D40D 006E 1D40E 006F 1D40F 0070 1D410 0071 1D411 0072 1D412 0073 1D413 0074 1D414 0075 1D415 0076 1D416 0077 1D417 0078 1D418 0079 1D419 007A 1D41A 0061 1D41B 0062 1D41C 0063 1D41D 0064 1D41E 0065 1D41F 0066 1D420 0067 1D421 0068 1D422 0069 1D423 006A 1D424 006B 1D425 006C 1D426 006D 1D427 006E 1D428 006F 1D429 0070 1D42A 0071 1D42B 0072 1D42C 0073 1D42D 0074 1D42E 0075 1D42F 0076 1D430 0077 1D431 0078 1D432 0079 1D433 007A 1D434 0061 1D435 0062 1D436 0063 1D437 0064 1D438 0065 1D439 0066 1D43A 0067 1D43B 0068 1D43C 0069 1D43D 006A 1D43E 006B 1D43F 006C 1D440 006D 1D441 006E 1D442 006F 1D443 0070 1D444 0071 1D445 0072 1D446 0073 1D447 0074 1D448 0075 1D449 0076 1D44A 0077 1D44B 0078 1D44C 0079 1D44D 007A 1D44E 0061 1D44F 0062 1D450 0063 1D451 0064 1D452 0065 1D453 0066 1D454 0067 1D456 0069 1D457 006A 1D458 006B 1D459 006C 1D45A 006D 1D45B 006E 1D45C 006F 1D45D 0070 1D45E 0071 1D45F 0072 1D460 0073 1D461 0074 1D462 0075 1D463 0076 1D464 0077 1D465 0078 1D466 0079 1D467 007A 1D468 0061 1D469 0062 1D46A 0063 1D46B 0064 1D46C 0065 1D46D 0066 1D46E 0067 1D46F 0068 1D470 0069 1D471 006A 1D472 006B 1D473 006C 1D474 006D 1D475 006E 1D476 006F 1D477 0070 1D478 0071 1D479 0072 1D47A 0073 1D47B 0074 1D47C 0075 1D47D 0076 1D47E 0077 1D47F 0078 1D480 0079 1D481 007A 1D482 0061 1D483 0062 1D484 0063 1D485 0064 1D486 0065 1D487 0066 1D488 0067 1D489 0068 1D48A 0069 1D48B 006A 1D48C 006B 1D48D 006C 1D48E 006D 1D48F 006E 1D490 006F 1D491 0070 1D492 0071 1D493 0072 1D494 0073 1D495 0074 1D496 0075 1D497 0076 1D498 0077 1D499 0078 1D49A 0079 1D49B 007A 1D49C 0061 1D49E 0063 1D49F 0064 1D4A2 0067 1D4A5 006A 1D4A6 006B 1D4A9 006E 1D4AA 006F 1D4AB 0070 1D4AC 0071 1D4AE 0073 1D4AF 0074 1D4B0 0075 1D4B1 0076 1D4B2 0077 1D4B3 0078 1D4B4 0079 1D4B5 007A 1D4B6 0061 1D4B7 0062 1D4B8 0063 1D4B9 0064 1D4BB 0066 1D4BD 0068 1D4BE 0069 1D4BF 006A 1D4C0 006B 1D4C1 006C 1D4C2 006D 1D4C3 006E 1D4C5 0070 1D4C6 0071 1D4C7 0072 1D4C8 0073 1D4C9 0074 1D4CA 0075 1D4CB 0076 1D4CC 0077 1D4CD 0078 1D4CE 0079 1D4CF 007A 1D4D0 0061 1D4D1 0062 1D4D2 0063 1D4D3 0064 1D4D4 0065 1D4D5 0066 1D4D6 0067 1D4D7 0068 1D4D8 0069 1D4D9 006A 1D4DA 006B 1D4DB 006C 1D4DC 006D 1D4DD 006E 1D4DE 006F 1D4DF 0070 1D4E0 0071 1D4E1 0072 1D4E2 0073 1D4E3 0074 1D4E4 0075 1D4E5 0076 1D4E6 0077 1D4E7 0078 1D4E8 0079 1D4E9 007A 1D4EA 0061 1D4EB 0062 1D4EC 0063 1D4ED 0064 1D4EE 0065 1D4EF 0066 1D4F0 0067 1D4F1 0068 1D4F2 0069 1D4F3 006A 1D4F4 006B 1D4F5 006C 1D4F6 006D 1D4F7 006E 1D4F8 006F 1D4F9 0070 1D4FA 0071 1D4FB 0072 1D4FC 0073 1D4FD 0074 1D4FE 0075 1D4FF 0076 1D500 0077 1D501 0078 1D502 0079 1D503 007A 1D504 0061 1D505 0062 1D507 0064 1D508 0065 1D509 0066 1D50A 0067 1D50D 006A 1D50E 006B 1D50F 006C 1D510 006D 1D511 006E 1D512 006F 1D513 0070 1D514 0071 1D516 0073 1D517 0074 1D518 0075 1D519 0076 1D51A 0077 1D51B 0078 1D51C 0079 1D51E 0061 1D51F 0062 1D520 0063 1D521 0064 1D522 0065 1D523 0066 1D524 0067 1D525 0068 1D526 0069 1D527 006A 1D528 006B 1D529 006C 1D52A 006D 1D52B 006E 1D52C 006F 1D52D 0070 1D52E 0071 1D52F 0072 1D530 0073 1D531 0074 1D532 0075 1D533 0076 1D534 0077 1D535 0078 1D536 0079 1D537 007A 1D538 0061 1D539 0062 1D53B 0064 1D53C 0065 1D53D 0066 1D53E 0067 1D540 0069 1D541 006A 1D542 006B 1D543 006C 1D544 006D 1D546 006F 1D54A 0073 1D54B 0074 1D54C 0075 1D54D 0076 1D54E 0077 1D54F 0078 1D550 0079 1D552 0061 1D553 0062 1D554 0063 1D555 0064 1D556 0065 1D557 0066 1D558 0067 1D559 0068 1D55A 0069 1D55B 006A 1D55C 006B 1D55D 006C 1D55E 006D 1D55F 006E 1D560 006F 1D561 0070 1D562 0071 1D563 0072 1D564 0073 1D565 0074 1D566 0075 1D567 0076 1D568 0077 1D569 0078 1D56A 0079 1D56B 007A 1D56C 0061 1D56D 0062 1D56E 0063 1D56F 0064 1D570 0065 1D571 0066 1D572 0067 1D573 0068 1D574 0069 1D575 006A 1D576 006B 1D577 006C 1D578 006D 1D579 006E 1D57A 006F 1D57B 0070 1D57C 0071 1D57D 0072 1D57E 0073 1D57F 0074 1D580 0075 1D581 0076 1D582 0077 1D583 0078 1D584 0079 1D585 007A 1D586 0061 1D587 0062 1D588 0063 1D589 0064 1D58A 0065 1D58B 0066 1D58C 0067 1D58D 0068 1D58E 0069 1D58F 006A 1D590 006B 1D591 006C 1D592 006D 1D593 006E 1D594 006F 1D595 0070 1D596 0071 1D597 0072 1D598 0073 1D599 0074 1D59A 0075 1D59B 0076 1D59C 0077 1D59D 0078 1D59E 0079 1D59F 007A 1D5A0 0061 1D5A1 0062 1D5A2 0063 1D5A3 0064 1D5A4 0065 1D5A5 0066 1D5A6 0067 1D5A7 0068 1D5A8 0069 1D5A9 006A 1D5AA 006B 1D5AB 006C 1D5AC 006D 1D5AD 006E 1D5AE 006F 1D5AF 0070 1D5B0 0071 1D5B1 0072 1D5B2 0073 1D5B3 0074 1D5B4 0075 1D5B5 0076 1D5B6 0077 1D5B7 0078 1D5B8 0079 1D5B9 007A 1D5BA 0061 1D5BB 0062 1D5BC 0063 1D5BD 0064 1D5BE 0065 1D5BF 0066 1D5C0 0067 1D5C1 0068 1D5C2 0069 1D5C3 006A 1D5C4 006B 1D5C5 006C 1D5C6 006D 1D5C7 006E 1D5C8 006F 1D5C9 0070 1D5CA 0071 1D5CB 0072 1D5CC 0073 1D5CD 0074 1D5CE 0075 1D5CF 0076 1D5D0 0077 1D5D1 0078 1D5D2 0079 1D5D3 007A 1D5D4 0061 1D5D5 0062 1D5D6 0063 1D5D7 0064 1D5D8 0065 1D5D9 0066 1D5DA 0067 1D5DB 0068 1D5DC 0069 1D5DD 006A 1D5DE 006B 1D5DF 006C 1D5E0 006D 1D5E1 006E 1D5E2 006F 1D5E3 0070 1D5E4 0071 1D5E5 0072 1D5E6 0073 1D5E7 0074 1D5E8 0075 1D5E9 0076 1D5EA 0077 1D5EB 0078 1D5EC 0079 1D5ED 007A 1D5EE 0061 1D5EF 0062 1D5F0 0063 1D5F1 0064 1D5F2 0065 1D5F3 0066 1D5F4 0067 1D5F5 0068 1D5F6 0069 1D5F7 006A 1D5F8 006B 1D5F9 006C 1D5FA 006D 1D5FB 006E 1D5FC 006F 1D5FD 0070 1D5FE 0071 1D5FF 0072 1D600 0073 1D601 0074 1D602 0075 1D603 0076 1D604 0077 1D605 0078 1D606 0079 1D607 007A 1D608 0061 1D609 0062 1D60A 0063 1D60B 0064 1D60C 0065 1D60D 0066 1D60E 0067 1D60F 0068 1D610 0069 1D611 006A 1D612 006B 1D613 006C 1D614 006D 1D615 006E 1D616 006F 1D617 0070 1D618 0071 1D619 0072 1D61A 0073 1D61B 0074 1D61C 0075 1D61D 0076 1D61E 0077 1D61F 0078 1D620 0079 1D621 007A 1D622 0061 1D623 0062 1D624 0063 1D625 0064 1D626 0065 1D627 0066 1D628 0067 1D629 0068 1D62A 0069 1D62B 006A 1D62C 006B 1D62D 006C 1D62E 006D 1D62F 006E 1D630 006F 1D631 0070 1D632 0071 1D633 0072 1D634 0073 1D635 0074 1D636 0075 1D637 0076 1D638 0077 1D639 0078 1D63A 0079 1D63B 007A 1D63C 0061 1D63D 0062 1D63E 0063 1D63F 0064 1D640 0065 1D641 0066 1D642 0067 1D643 0068 1D644 0069 1D645 006A 1D646 006B 1D647 006C 1D648 006D 1D649 006E 1D64A 006F 1D64B 0070 1D64C 0071 1D64D 0072 1D64E 0073 1D64F 0074 1D650 0075 1D651 0076 1D652 0077 1D653 0078 1D654 0079 1D655 007A 1D656 0061 1D657 0062 1D658 0063 1D659 0064 1D65A 0065 1D65B 0066 1D65C 0067 1D65D 0068 1D65E 0069 1D65F 006A 1D660 006B 1D661 006C 1D662 006D 1D663 006E 1D664 006F 1D665 0070 1D666 0071 1D667 0072 1D668 0073 1D669 0074 1D66A 0075 1D66B 0076 1D66C 0077 1D66D 0078 1D66E 0079 1D66F 007A 1D670 0061 1D671 0062 1D672 0063 1D673 0064 1D674 0065 1D675 0066 1D676 0067 1D677 0068 1D678 0069 1D679 006A 1D67A 006B 1D67B 006C 1D67C 006D 1D67D 006E 1D67E 006F 1D67F 0070 1D680 0071 1D681 0072 1D682 0073 1D683 0074 1D684 0075 1D685 0076 1D686 0077 1D687 0078 1D688 0079 1D689 007A 1D68A 0061 1D68B 0062 1D68C 0063 1D68D 0064 1D68E 0065 1D68F 0066 1D690 0067 1D691 0068 1D692 0069 1D693 006A 1D694 006B 1D695 006C 1D696 006D 1D697 006E 1D698 006F 1D699 0070 1D69A 0071 1D69B 0072 1D69C 0073 1D69D 0074 1D69E 0075 1D69F 0076 1D6A0 0077 1D6A1 0078 1D6A2 0079 1D6A3 007A 1D6A4 0131 1D6A5 0237 1D6A8 03B1 1D6A9 03B2 1D6AA 03B3 1D6AB 03B4 1D6AC 03B5 1D6AD 03B6 1D6AE 03B7 1D6AF 03B8 1D6B0 03B9 1D6B1 03BA 1D6B2 03BB 1D6B3 03BC 1D6B4 03BD 1D6B5 03BE 1D6B6 03BF 1D6B7 03C0 1D6B8 03C1 1D6B9 03B8 1D6BA 03C3 1D6BB 03C4 1D6BC 03C5 1D6BD 03C6 1D6BE 03C7 1D6BF 03C8 1D6C0 03C9 1D6C1 2207 1D6C2 03B1 1D6C3 03B2 1D6C4 03B3 1D6C5 03B4 1D6C6 03B5 1D6C7 03B6 1D6C8 03B7 1D6C9 03B8 1D6CA 03B9 1D6CB 03BA 1D6CC 03BB 1D6CD 03BC 1D6CE 03BD 1D6CF 03BE 1D6D0 03BF 1D6D1 03C0 1D6D2 03C1 1D6D3 03C3 1D6D4 03C3 1D6D5 03C4 1D6D6 03C5 1D6D7 03C6 1D6D8 03C7 1D6D9 03C8 1D6DA 03C9 1D6DB 2202 1D6DC 03B5 1D6DD 03B8 1D6DE 03BA 1D6DF 03C6 1D6E0 03C1 1D6E1 03C0 1D6E2 03B1 1D6E3 03B2 1D6E4 03B3 1D6E5 03B4 1D6E6 03B5 1D6E7 03B6 1D6E8 03B7 1D6E9 03B8 1D6EA 03B9 1D6EB 03BA 1D6EC 03BB 1D6ED 03BC 1D6EE 03BD 1D6EF 03BE 1D6F0 03BF 1D6F1 03C0 1D6F2 03C1 1D6F3 03B8 1D6F4 03C3 1D6F5 03C4 1D6F6 03C5 1D6F7 03C6 1D6F8 03C7 1D6F9 03C8 1D6FA 03C9 1D6FB 2207 1D6FC 03B1 1D6FD 03B2 1D6FE 03B3 1D6FF 03B4 1D700 03B5 1D701 03B6 1D702 03B7 1D703 03B8 1D704 03B9 1D705 03BA 1D706 03BB 1D707 03BC 1D708 03BD 1D709 03BE 1D70A 03BF 1D70B 03C0 1D70C 03C1 1D70D 03C3 1D70E 03C3 1D70F 03C4 1D710 03C5 1D711 03C6 1D712 03C7 1D713 03C8 1D714 03C9 1D715 2202 1D716 03B5 1D717 03B8 1D718 03BA 1D719 03C6 1D71A 03C1 1D71B 03C0 1D71C 03B1 1D71D 03B2 1D71E 03B3 1D71F 03B4 1D720 03B5 1D721 03B6 1D722 03B7 1D723 03B8 1D724 03B9 1D725 03BA 1D726 03BB 1D727 03BC 1D728 03BD 1D729 03BE 1D72A 03BF 1D72B 03C0 1D72C 03C1 1D72D 03B8 1D72E 03C3 1D72F 03C4 1D730 03C5 1D731 03C6 1D732 03C7 1D733 03C8 1D734 03C9 1D735 2207 1D736 03B1 1D737 03B2 1D738 03B3 1D739 03B4 1D73A 03B5 1D73B 03B6 1D73C 03B7 1D73D 03B8 1D73E 03B9 1D73F 03BA 1D740 03BB 1D741 03BC 1D742 03BD 1D743 03BE 1D744 03BF 1D745 03C0 1D746 03C1 1D747 03C3 1D748 03C3 1D749 03C4 1D74A 03C5 1D74B 03C6 1D74C 03C7 1D74D 03C8 1D74E 03C9 1D74F 2202 1D750 03B5 1D751 03B8 1D752 03BA 1D753 03C6 1D754 03C1 1D755 03C0 1D756 03B1 1D757 03B2 1D758 03B3 1D759 03B4 1D75A 03B5 1D75B 03B6 1D75C 03B7 1D75D 03B8 1D75E 03B9 1D75F 03BA 1D760 03BB 1D761 03BC 1D762 03BD 1D763 03BE 1D764 03BF 1D765 03C0 1D766 03C1 1D767 03B8 1D768 03C3 1D769 03C4 1D76A 03C5 1D76B 03C6 1D76C 03C7 1D76D 03C8 1D76E 03C9 1D76F 2207 1D770 03B1 1D771 03B2 1D772 03B3 1D773 03B4 1D774 03B5 1D775 03B6 1D776 03B7 1D777 03B8 1D778 03B9 1D779 03BA 1D77A 03BB 1D77B 03BC 1D77C 03BD 1D77D 03BE 1D77E 03BF 1D77F 03C0 1D780 03C1 1D781 03C3 1D782 03C3 1D783 03C4 1D784 03C5 1D785 03C6 1D786 03C7 1D787 03C8 1D788 03C9 1D789 2202 1D78A 03B5 1D78B 03B8 1D78C 03BA 1D78D 03C6 1D78E 03C1 1D78F 03C0 1D790 03B1 1D791 03B2 1D792 03B3 1D793 03B4 1D794 03B5 1D795 03B6 1D796 03B7 1D797 03B8 1D798 03B9 1D799 03BA 1D79A 03BB 1D79B 03BC 1D79C 03BD 1D79D 03BE 1D79E 03BF 1D79F 03C0 1D7A0 03C1 1D7A1 03B8 1D7A2 03C3 1D7A3 03C4 1D7A4 03C5 1D7A5 03C6 1D7A6 03C7 1D7A7 03C8 1D7A8 03C9 1D7A9 2207 1D7AA 03B1 1D7AB 03B2 1D7AC 03B3 1D7AD 03B4 1D7AE 03B5 1D7AF 03B6 1D7B0 03B7 1D7B1 03B8 1D7B2 03B9 1D7B3 03BA 1D7B4 03BB 1D7B5 03BC 1D7B6 03BD 1D7B7 03BE 1D7B8 03BF 1D7B9 03C0 1D7BA 03C1 1D7BB 03C3 1D7BC 03C3 1D7BD 03C4 1D7BE 03C5 1D7BF 03C6 1D7C0 03C7 1D7C1 03C8 1D7C2 03C9 1D7C3 2202 1D7C4 03B5 1D7C5 03B8 1D7C6 03BA 1D7C7 03C6 1D7C8 03C1 1D7C9 03C0 1D7CA 03DD 1D7CB 03DD 1D7CE 0030 1D7CF 0031 1D7D0 0032 1D7D1 0033 1D7D2 0034 1D7D3 0035 1D7D4 0036 1D7D5 0037 1D7D6 0038 1D7D7 0039 1D7D8 0030 1D7D9 0031 1D7DA 0032 1D7DB 0033 1D7DC 0034 1D7DD 0035 1D7DE 0036 1D7DF 0037 1D7E0 0038 1D7E1 0039 1D7E2 0030 1D7E3 0031 1D7E4 0032 1D7E5 0033 1D7E6 0034 1D7E7 0035 1D7E8 0036 1D7E9 0037 1D7EA 0038 1D7EB 0039 1D7EC 0030 1D7ED 0031 1D7EE 0032 1D7EF 0033 1D7F0 0034 1D7F1 0035 1D7F2 0036 1D7F3 0037 1D7F4 0038 1D7F5 0039 1D7F6 0030 1D7F7 0031 1D7F8 0032 1D7F9 0033 1D7FA 0034 1D7FB 0035 1D7FC 0036 1D7FD 0037 1D7FE 0038 1D7FF 0039 1E900 1E922 1E901 1E923 1E902 1E924 1E903 1E925 1E904 1E926 1E905 1E927 1E906 1E928 1E907 1E929 1E908 1E92A 1E909 1E92B 1E90A 1E92C 1E90B 1E92D 1E90C 1E92E 1E90D 1E92F 1E90E 1E930 1E90F 1E931 1E910 1E932 1E911 1E933 1E912 1E934 1E913 1E935 1E914 1E936 1E915 1E937 1E916 1E938 1E917 1E939 1E918 1E93A 1E919 1E93B 1E91A 1E93C 1E91B 1E93D 1E91C 1E93E 1E91D 1E93F 1E91E 1E940 1E91F 1E941 1E920 1E942 1E921 1E943 1EE00 0627 1EE01 0628 1EE02 062C 1EE03 062F 1EE05 0648 1EE06 0632 1EE07 062D 1EE08 0637 1EE09 064A 1EE0A 0643 1EE0B 0644 1EE0C 0645 1EE0D 0646 1EE0E 0633 1EE0F 0639 1EE10 0641 1EE11 0635 1EE12 0642 1EE13 0631 1EE14 0634 1EE15 062A 1EE16 062B 1EE17 062E 1EE18 0630 1EE19 0636 1EE1A 0638 1EE1B 063A 1EE1C 066E 1EE1D 06BA 1EE1E 06A1 1EE1F 066F 1EE21 0628 1EE22 062C 1EE24 0647 1EE27 062D 1EE29 064A 1EE2A 0643 1EE2B 0644 1EE2C 0645 1EE2D 0646 1EE2E 0633 1EE2F 0639 1EE30 0641 1EE31 0635 1EE32 0642 1EE34 0634 1EE35 062A 1EE36 062B 1EE37 062E 1EE39 0636 1EE3B 063A 1EE42 062C 1EE47 062D 1EE49 064A 1EE4B 0644 1EE4D 0646 1EE4E 0633 1EE4F 0639 1EE51 0635 1EE52 0642 1EE54 0634 1EE57 062E 1EE59 0636 1EE5B 063A 1EE5D 06BA 1EE5F 066F 1EE61 0628 1EE62 062C 1EE64 0647 1EE67 062D 1EE68 0637 1EE69 064A 1EE6A 0643 1EE6C 0645 1EE6D 0646 1EE6E 0633 1EE6F 0639 1EE70 0641 1EE71 0635 1EE72 0642 1EE74 0634 1EE75 062A 1EE76 062B 1EE77 062E 1EE79 0636 1EE7A 0638 1EE7B 063A 1EE7C 066E 1EE7E 06A1 1EE80 0627 1EE81 0628 1EE82 062C 1EE83 062F 1EE84 0647 1EE85 0648 1EE86 0632 1EE87 062D 1EE88 0637 1EE89 064A 1EE8B 0644 1EE8C 0645 1EE8D 0646 1EE8E 0633 1EE8F 0639 1EE90 0641 1EE91 0635 1EE92 0642 1EE93 0631 1EE94 0634 1EE95 062A 1EE96 062B 1EE97 062E 1EE98 0630 1EE99 0636 1EE9A 0638 1EE9B 063A 1EEA1 0628 1EEA2 062C 1EEA3 062F 1EEA5 0648 1EEA6 0632 1EEA7 062D 1EEA8 0637 1EEA9 064A 1EEAB 0644 1EEAC 0645 1EEAD 0646 1EEAE 0633 1EEAF 0639 1EEB0 0641 1EEB1 0635 1EEB2 0642 1EEB3 0631 1EEB4 0634 1EEB5 062A 1EEB6 062B 1EEB7 062E 1EEB8 0630 1EEB9 0636 1EEBA 0638 1EEBB 063A 1F12B 0063 1F12C 0072 1F130 0061 1F131 0062 1F132 0063 1F133 0064 1F134 0065 1F135 0066 1F136 0067 1F137 0068 1F138 0069 1F139 006A 1F13A 006B 1F13B 006C 1F13C 006D 1F13D 006E 1F13E 006F 1F13F 0070 1F140 0071 1F141 0072 1F142 0073 1F143 0074 1F144 0075 1F145 0076 1F146 0077 1F147 0078 1F148 0079 1F149 007A 1F202 30B5 1F210 624B 1F211 5B57 1F212 53CC 1F213 30C7 1F214 4E8C 1F215 591A 1F216 89E3 1F217 5929 1F218 4EA4 1F219 6620 1F21A 7121 1F21B 6599 1F21C 524D 1F21D 5F8C 1F21E 518D 1F21F 65B0 1F220 521D 1F221 7D42 1F222 751F 1F223 8CA9 1F224 58F0 1F225 5439 1F226 6F14 1F227 6295 1F228 6355 1F229 4E00 1F22A 4E09 1F22B 904A 1F22C 5DE6 1F22D 4E2D 1F22E 53F3 1F22F 6307 1F230 8D70 1F231 6253 1F232 7981 1F233 7A7A 1F234 5408 1F235 6E80 1F236 6709 1F237 6708 1F238 7533 1F239 5272 1F23A 55B6 1F23B 914D 1F250 5F97 1F251 53EF 1FBF0 0030 1FBF1 0031 1FBF2 0032 1FBF3 0033 1FBF4 0034 1FBF5 0035 1FBF6 0036 1FBF7 0037 1FBF8 0038 1FBF9 0039 2F800 4E3D 2F801 4E38 2F802 4E41 2F803 20122 2F804 4F60 2F805 4FAE 2F806 4FBB 2F807 5002 2F808 507A 2F809 5099 2F80A 50E7 2F80B 50CF 2F80C 349E 2F80D 2063A 2F80E 514D 2F80F 5154 2F810 5164 2F811 5177 2F812 2051C 2F813 34B9 2F814 5167 2F815 518D 2F816 2054B 2F817 5197 2F818 51A4 2F819 4ECC 2F81A 51AC 2F81B 51B5 2F81C 291DF 2F81D 51F5 2F81E 5203 2F81F 34DF 2F820 523B 2F821 5246 2F822 5272 2F823 5277 2F824 3515 2F825 52C7 2F826 52C9 2F827 52E4 2F828 52FA 2F829 5305 2F82A 5306 2F82B 5317 2F82C 5349 2F82D 5351 2F82E 535A 2F82F 5373 2F830 537D 2F831 537F 2F832 537F 2F833 537F 2F834 20A2C 2F835 7070 2F836 53CA 2F837 53DF 2F838 20B63 2F839 53EB 2F83A 53F1 2F83B 5406 2F83C 549E 2F83D 5438 2F83E 5448 2F83F 5468 2F840 54A2 2F841 54F6 2F842 5510 2F843 5553 2F844 5563 2F845 5584 2F846 5584 2F847 5599 2F848 55AB 2F849 55B3 2F84A 55C2 2F84B 5716 2F84C 5606 2F84D 5717 2F84E 5651 2F84F 5674 2F850 5207 2F851 58EE 2F852 57CE 2F853 57F4 2F854 580D 2F855 578B 2F856 5832 2F857 5831 2F858 58AC 2F859 214E4 2F85A 58F2 2F85B 58F7 2F85C 5906 2F85D 591A 2F85E 5922 2F85F 5962 2F860 216A8 2F861 216EA 2F862 59EC 2F863 5A1B 2F864 5A27 2F865 59D8 2F866 5A66 2F867 36EE 2F868 36FC 2F869 5B08 2F86A 5B3E 2F86B 5B3E 2F86C 219C8 2F86D 5BC3 2F86E 5BD8 2F86F 5BE7 2F870 5BF3 2F871 21B18 2F872 5BFF 2F873 5C06 2F874 5F53 2F875 5C22 2F876 3781 2F877 5C60 2F878 5C6E 2F879 5CC0 2F87A 5C8D 2F87B 21DE4 2F87C 5D43 2F87D 21DE6 2F87E 5D6E 2F87F 5D6B 2F880 5D7C 2F881 5DE1 2F882 5DE2 2F883 382F 2F884 5DFD 2F885 5E28 2F886 5E3D 2F887 5E69 2F888 3862 2F889 22183 2F88A 387C 2F88B 5EB0 2F88C 5EB3 2F88D 5EB6 2F88E 5ECA 2F88F 2A392 2F890 5EFE 2F891 22331 2F892 22331 2F893 8201 2F894 5F22 2F895 5F22 2F896 38C7 2F897 232B8 2F898 261DA 2F899 5F62 2F89A 5F6B 2F89B 38E3 2F89C 5F9A 2F89D 5FCD 2F89E 5FD7 2F89F 5FF9 2F8A0 6081 2F8A1 393A 2F8A2 391C 2F8A3 6094 2F8A4 226D4 2F8A5 60C7 2F8A6 6148 2F8A7 614C 2F8A8 614E 2F8A9 614C 2F8AA 617A 2F8AB 618E 2F8AC 61B2 2F8AD 61A4 2F8AE 61AF 2F8AF 61DE 2F8B0 61F2 2F8B1 61F6 2F8B2 6210 2F8B3 621B 2F8B4 625D 2F8B5 62B1 2F8B6 62D4 2F8B7 6350 2F8B8 22B0C 2F8B9 633D 2F8BA 62FC 2F8BB 6368 2F8BC 6383 2F8BD 63E4 2F8BE 22BF1 2F8BF 6422 2F8C0 63C5 2F8C1 63A9 2F8C2 3A2E 2F8C3 6469 2F8C4 647E 2F8C5 649D 2F8C6 6477 2F8C7 3A6C 2F8C8 654F 2F8C9 656C 2F8CA 2300A 2F8CB 65E3 2F8CC 66F8 2F8CD 6649 2F8CE 3B19 2F8CF 6691 2F8D0 3B08 2F8D1 3AE4 2F8D2 5192 2F8D3 5195 2F8D4 6700 2F8D5 669C 2F8D6 80AD 2F8D7 43D9 2F8D8 6717 2F8D9 671B 2F8DA 6721 2F8DB 675E 2F8DC 6753 2F8DD 233C3 2F8DE 3B49 2F8DF 67FA 2F8E0 6785 2F8E1 6852 2F8E2 6885 2F8E3 2346D 2F8E4 688E 2F8E5 681F 2F8E6 6914 2F8E7 3B9D 2F8E8 6942 2F8E9 69A3 2F8EA 69EA 2F8EB 6AA8 2F8EC 236A3 2F8ED 6ADB 2F8EE 3C18 2F8EF 6B21 2F8F0 238A7 2F8F1 6B54 2F8F2 3C4E 2F8F3 6B72 2F8F4 6B9F 2F8F5 6BBA 2F8F6 6BBB 2F8F7 23A8D 2F8F8 21D0B 2F8F9 23AFA 2F8FA 6C4E 2F8FB 23CBC 2F8FC 6CBF 2F8FD 6CCD 2F8FE 6C67 2F8FF 6D16 2F900 6D3E 2F901 6D77 2F902 6D41 2F903 6D69 2F904 6D78 2F905 6D85 2F906 23D1E 2F907 6D34 2F908 6E2F 2F909 6E6E 2F90A 3D33 2F90B 6ECB 2F90C 6EC7 2F90D 23ED1 2F90E 6DF9 2F90F 6F6E 2F910 23F5E 2F911 23F8E 2F912 6FC6 2F913 7039 2F914 701E 2F915 701B 2F916 3D96 2F917 704A 2F918 707D 2F919 7077 2F91A 70AD 2F91B 20525 2F91C 7145 2F91D 24263 2F91E 719C 2F91F 243AB 2F920 7228 2F921 7235 2F922 7250 2F923 24608 2F924 7280 2F925 7295 2F926 24735 2F927 24814 2F928 737A 2F929 738B 2F92A 3EAC 2F92B 73A5 2F92C 3EB8 2F92D 3EB8 2F92E 7447 2F92F 745C 2F930 7471 2F931 7485 2F932 74CA 2F933 3F1B 2F934 7524 2F935 24C36 2F936 753E 2F937 24C92 2F938 7570 2F939 2219F 2F93A 7610 2F93B 24FA1 2F93C 24FB8 2F93D 25044 2F93E 3FFC 2F93F 4008 2F940 76F4 2F941 250F3 2F942 250F2 2F943 25119 2F944 25133 2F945 771E 2F946 771F 2F947 771F 2F948 774A 2F949 4039 2F94A 778B 2F94B 4046 2F94C 4096 2F94D 2541D 2F94E 784E 2F94F 788C 2F950 78CC 2F951 40E3 2F952 25626 2F953 7956 2F954 2569A 2F955 256C5 2F956 798F 2F957 79EB 2F958 412F 2F959 7A40 2F95A 7A4A 2F95B 7A4F 2F95C 2597C 2F95D 25AA7 2F95E 25AA7 2F95F 7AEE 2F960 4202 2F961 25BAB 2F962 7BC6 2F963 7BC9 2F964 4227 2F965 25C80 2F966 7CD2 2F967 42A0 2F968 7CE8 2F969 7CE3 2F96A 7D00 2F96B 25F86 2F96C 7D63 2F96D 4301 2F96E 7DC7 2F96F 7E02 2F970 7E45 2F971 4334 2F972 26228 2F973 26247 2F974 4359 2F975 262D9 2F976 7F7A 2F977 2633E 2F978 7F95 2F979 7FFA 2F97A 8005 2F97B 264DA 2F97C 26523 2F97D 8060 2F97E 265A8 2F97F 8070 2F980 2335F 2F981 43D5 2F982 80B2 2F983 8103 2F984 440B 2F985 813E 2F986 5AB5 2F987 267A7 2F988 267B5 2F989 23393 2F98A 2339C 2F98B 8201 2F98C 8204 2F98D 8F9E 2F98E 446B 2F98F 8291 2F990 828B 2F991 829D 2F992 52B3 2F993 82B1 2F994 82B3 2F995 82BD 2F996 82E6 2F997 26B3C 2F998 82E5 2F999 831D 2F99A 8363 2F99B 83AD 2F99C 8323 2F99D 83BD 2F99E 83E7 2F99F 8457 2F9A0 8353 2F9A1 83CA 2F9A2 83CC 2F9A3 83DC 2F9A4 26C36 2F9A5 26D6B 2F9A6 26CD5 2F9A7 452B 2F9A8 84F1 2F9A9 84F3 2F9AA 8516 2F9AB 273CA 2F9AC 8564 2F9AD 26F2C 2F9AE 455D 2F9AF 4561 2F9B0 26FB1 2F9B1 270D2 2F9B2 456B 2F9B3 8650 2F9B4 865C 2F9B5 8667 2F9B6 8669 2F9B7 86A9 2F9B8 8688 2F9B9 870E 2F9BA 86E2 2F9BB 8779 2F9BC 8728 2F9BD 876B 2F9BE 8786 2F9BF 45D7 2F9C0 87E1 2F9C1 8801 2F9C2 45F9 2F9C3 8860 2F9C4 8863 2F9C5 27667 2F9C6 88D7 2F9C7 88DE 2F9C8 4635 2F9C9 88FA 2F9CA 34BB 2F9CB 278AE 2F9CC 27966 2F9CD 46BE 2F9CE 46C7 2F9CF 8AA0 2F9D0 8AED 2F9D1 8B8A 2F9D2 8C55 2F9D3 27CA8 2F9D4 8CAB 2F9D5 8CC1 2F9D6 8D1B 2F9D7 8D77 2F9D8 27F2F 2F9D9 20804 2F9DA 8DCB 2F9DB 8DBC 2F9DC 8DF0 2F9DD 208DE 2F9DE 8ED4 2F9DF 8F38 2F9E0 285D2 2F9E1 285ED 2F9E2 9094 2F9E3 90F1 2F9E4 9111 2F9E5 2872E 2F9E6 911B 2F9E7 9238 2F9E8 92D7 2F9E9 92D8 2F9EA 927C 2F9EB 93F9 2F9EC 9415 2F9ED 28BFA 2F9EE 958B 2F9EF 4995 2F9F0 95B7 2F9F1 28D77 2F9F2 49E6 2F9F3 96C3 2F9F4 5DB2 2F9F5 9723 2F9F6 29145 2F9F7 2921A 2F9F8 4A6E 2F9F9 4A76 2F9FA 97E0 2F9FB 2940A 2F9FC 4AB2 2F9FD 29496 2F9FE 980B 2F9FF 980B 2FA00 9829 2FA01 295B6 2FA02 98E2 2FA03 4B33 2FA04 9929 2FA05 99A7 2FA06 99C2 2FA07 99FE 2FA08 4BCE 2FA09 29B30 2FA0A 9B12 2FA0B 9C40 2FA0C 9CFD 2FA0D 4CCE 2FA0E 4CED 2FA0F 9D67 2FA10 2A0CE 2FA11 4CF8 2FA12 2A105 2FA13 2A20E 2FA14 2A291 2FA15 9EBB 2FA16 4D56 2FA17 9EF9 2FA18 9EFE 2FA19 9F05 2FA1A 9F0F 2FA1B 9F16 2FA1C 9F3B 2FA1D 2A600 END PK ! � � � 5.34.0/unicore/To/NFCQC.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToNFCQC'}{'format'} = 's'; # string $Unicode::UCD::SwashInfo{'ToNFCQC'}{'missing'} = 'Yes'; return <<'END'; 300 304 M 306 30C M 30F M 311 M 313 314 M 31B M 323 328 M 32D 32E M 330 331 M 338 M 340 341 N 342 M 343 344 N 345 M 374 N 37E N 387 N 653 655 M 93C M 958 95F N 9BE M 9D7 M 9DC 9DD N 9DF N A33 N A36 N A59 A5B N A5E N B3E M B56 B57 M B5C B5D N BBE M BD7 M C56 M CC2 M CD5 CD6 M D3E M D57 M DCA M DCF M DDF M F43 N F4D N F52 N F57 N F5C N F69 N F73 N F75 F76 N F78 N F81 N F93 N F9D N FA2 N FA7 N FAC N FB9 N 102E M 1161 1175 M 11A8 11C2 M 1B35 M 1F71 N 1F73 N 1F75 N 1F77 N 1F79 N 1F7B N 1F7D N 1FBB N 1FBE N 1FC9 N 1FCB N 1FD3 N 1FDB N 1FE3 N 1FEB N 1FEE 1FEF N 1FF9 N 1FFB N 1FFD N 2000 2001 N 2126 N 212A 212B N 2329 232A N 2ADC N 3099 309A M F900 FA0D N FA10 N FA12 N FA15 FA1E N FA20 N FA22 N FA25 FA26 N FA2A FA6D N FA70 FAD9 N FB1D N FB1F N FB2A FB36 N FB38 FB3C N FB3E N FB40 FB41 N FB43 FB44 N FB46 FB4E N 110BA M 11127 M 1133E M 11357 M 114B0 M 114BA M 114BD M 115AF M 11930 M 1D15E 1D164 N 1D1BB 1D1C0 N 2F800 2FA1D N END PK ! K�$�l7 l7 5.34.0/unicore/To/Vo.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToVo'}{'format'} = 's'; # string $Unicode::UCD::SwashInfo{'ToVo'}{'missing'} = 'R'; return <<'END'; 0 A6 Rotated A7 U A8 Rotated A9 U AA AD Rotated AE U AF B0 Rotated B1 U B2 BB Rotated BC BE U BF D6 Rotated D7 U D8 F6 Rotated F7 U F8 2E9 Rotated 2EA 2EB U 2EC 377 Rotated 37A 37F Rotated 384 38A Rotated 38C Rotated 38E 3A1 Rotated 3A3 52F Rotated 531 556 Rotated 559 58A Rotated 58D 58F Rotated 591 5C7 Rotated 5D0 5EA Rotated 5EF 5F4 Rotated 600 61C Rotated 61E 70D Rotated 70F 74A Rotated 74D 7B1 Rotated 7C0 7FA Rotated 7FD 82D Rotated 830 83E Rotated 840 85B Rotated 85E Rotated 860 86A Rotated 8A0 8B4 Rotated 8B6 8C7 Rotated 8D3 983 Rotated 985 98C Rotated 98F 990 Rotated 993 9A8 Rotated 9AA 9B0 Rotated 9B2 Rotated 9B6 9B9 Rotated 9BC 9C4 Rotated 9C7 9C8 Rotated 9CB 9CE Rotated 9D7 Rotated 9DC 9DD Rotated 9DF 9E3 Rotated 9E6 9FE Rotated A01 A03 Rotated A05 A0A Rotated A0F A10 Rotated A13 A28 Rotated A2A A30 Rotated A32 A33 Rotated A35 A36 Rotated A38 A39 Rotated A3C Rotated A3E A42 Rotated A47 A48 Rotated A4B A4D Rotated A51 Rotated A59 A5C Rotated A5E Rotated A66 A76 Rotated A81 A83 Rotated A85 A8D Rotated A8F A91 Rotated A93 AA8 Rotated AAA AB0 Rotated AB2 AB3 Rotated AB5 AB9 Rotated ABC AC5 Rotated AC7 AC9 Rotated ACB ACD Rotated AD0 Rotated AE0 AE3 Rotated AE6 AF1 Rotated AF9 AFF Rotated B01 B03 Rotated B05 B0C Rotated B0F B10 Rotated B13 B28 Rotated B2A B30 Rotated B32 B33 Rotated B35 B39 Rotated B3C B44 Rotated B47 B48 Rotated B4B B4D Rotated B55 B57 Rotated B5C B5D Rotated B5F B63 Rotated B66 B77 Rotated B82 B83 Rotated B85 B8A Rotated B8E B90 Rotated B92 B95 Rotated B99 B9A Rotated B9C Rotated B9E B9F Rotated BA3 BA4 Rotated BA8 BAA Rotated BAE BB9 Rotated BBE BC2 Rotated BC6 BC8 Rotated BCA BCD Rotated BD0 Rotated BD7 Rotated BE6 BFA Rotated C00 C0C Rotated C0E C10 Rotated C12 C28 Rotated C2A C39 Rotated C3D C44 Rotated C46 C48 Rotated C4A C4D Rotated C55 C56 Rotated C58 C5A Rotated C60 C63 Rotated C66 C6F Rotated C77 C8C Rotated C8E C90 Rotated C92 CA8 Rotated CAA CB3 Rotated CB5 CB9 Rotated CBC CC4 Rotated CC6 CC8 Rotated CCA CCD Rotated CD5 CD6 Rotated CDE Rotated CE0 CE3 Rotated CE6 CEF Rotated CF1 CF2 Rotated D00 D0C Rotated D0E D10 Rotated D12 D44 Rotated D46 D48 Rotated D4A D4F Rotated D54 D63 Rotated D66 D7F Rotated D81 D83 Rotated D85 D96 Rotated D9A DB1 Rotated DB3 DBB Rotated DBD Rotated DC0 DC6 Rotated DCA Rotated DCF DD4 Rotated DD6 Rotated DD8 DDF Rotated DE6 DEF Rotated DF2 DF4 Rotated E01 E3A Rotated E3F E5B Rotated E81 E82 Rotated E84 Rotated E86 E8A Rotated E8C EA3 Rotated EA5 Rotated EA7 EBD Rotated EC0 EC4 Rotated EC6 Rotated EC8 ECD Rotated ED0 ED9 Rotated EDC EDF Rotated F00 F47 Rotated F49 F6C Rotated F71 F97 Rotated F99 FBC Rotated FBE FCC Rotated FCE FDA Rotated 1000 10C5 Rotated 10C7 Rotated 10CD Rotated 10D0 10FF Rotated 1100 11FF U 1200 1248 Rotated 124A 124D Rotated 1250 1256 Rotated 1258 Rotated 125A 125D Rotated 1260 1288 Rotated 128A 128D Rotated 1290 12B0 Rotated 12B2 12B5 Rotated 12B8 12BE Rotated 12C0 Rotated 12C2 12C5 Rotated 12C8 12D6 Rotated 12D8 1310 Rotated 1312 1315 Rotated 1318 135A Rotated 135D 137C Rotated 1380 1399 Rotated 13A0 13F5 Rotated 13F8 13FD Rotated 1400 Rotated 1401 167F U 1680 169C Rotated 16A0 16F8 Rotated 1700 170C Rotated 170E 1714 Rotated 1720 1736 Rotated 1740 1753 Rotated 1760 176C Rotated 176E 1770 Rotated 1772 1773 Rotated 1780 17DD Rotated 17E0 17E9 Rotated 17F0 17F9 Rotated 1800 180E Rotated 1810 1819 Rotated 1820 1878 Rotated 1880 18AA Rotated 18B0 18FF U 1900 191E Rotated 1920 192B Rotated 1930 193B Rotated 1940 Rotated 1944 196D Rotated 1970 1974 Rotated 1980 19AB Rotated 19B0 19C9 Rotated 19D0 19DA Rotated 19DE 1A1B Rotated 1A1E 1A5E Rotated 1A60 1A7C Rotated 1A7F 1A89 Rotated 1A90 1A99 Rotated 1AA0 1AAD Rotated 1AB0 1AC0 Rotated 1B00 1B4B Rotated 1B50 1B7C Rotated 1B80 1BF3 Rotated 1BFC 1C37 Rotated 1C3B 1C49 Rotated 1C4D 1C88 Rotated 1C90 1CBA Rotated 1CBD 1CC7 Rotated 1CD0 1CFA Rotated 1D00 1DF9 Rotated 1DFB 1F15 Rotated 1F18 1F1D Rotated 1F20 1F45 Rotated 1F48 1F4D Rotated 1F50 1F57 Rotated 1F59 Rotated 1F5B Rotated 1F5D Rotated 1F5F 1F7D Rotated 1F80 1FB4 Rotated 1FB6 1FC4 Rotated 1FC6 1FD3 Rotated 1FD6 1FDB Rotated 1FDD 1FEF Rotated 1FF2 1FF4 Rotated 1FF6 1FFE Rotated 2000 2015 Rotated 2016 U 2017 201F Rotated 2020 2021 U 2022 202F Rotated 2030 2031 U 2032 203A Rotated 203B 203C U 203D 2041 Rotated 2042 U 2043 2046 Rotated 2047 2049 U 204A 2050 Rotated 2051 U 2052 2064 Rotated 2065 U 2066 2071 Rotated 2074 208E Rotated 2090 209C Rotated 20A0 20BF Rotated 20D0 20DC Rotated 20DD 20E0 U 20E1 Rotated 20E2 20E4 U 20E5 20F0 Rotated 2100 2101 U 2102 Rotated 2103 2109 U 210A 210E Rotated 210F U 2110 2112 Rotated 2113 2114 U 2115 Rotated 2116 2117 U 2118 211D Rotated 211E 2123 U 2124 Rotated 2125 U 2126 Rotated 2127 U 2128 Rotated 2129 U 212A 212D Rotated 212E U 212F 2134 Rotated 2135 213F U 2140 2144 Rotated 2145 214A U 214B Rotated 214C 214D U 214E Rotated 214F 2189 U 218A 218B Rotated 218C 218F U 2190 221D Rotated 221E U 221F 2233 Rotated 2234 2235 U 2236 22FF Rotated 2300 2307 U 2308 230B Rotated 230C 231F U 2320 2323 Rotated 2324 2328 U 2329 232A Tr 232B U 232C 237C Rotated 237D 239A U 239B 23BD Rotated 23BE 23CD U 23CE Rotated 23CF U 23D0 Rotated 23D1 23DB U 23DC 23E1 Rotated 23E2 2422 U 2423 Rotated 2424 24FF U 2500 259F Rotated 25A0 2619 U 261A 261F Rotated 2620 2767 U 2768 2775 Rotated 2776 2793 U 2794 2B11 Rotated 2B12 2B2F U 2B30 2B4F Rotated 2B50 2B59 U 2B5A 2B73 Rotated 2B76 2B95 Rotated 2B97 U 2B98 2BB7 Rotated 2BB8 2BD1 U 2BD2 Rotated 2BD3 2BEB U 2BEC 2BEF Rotated 2BF0 2BFF U 2C00 2C2E Rotated 2C30 2C5E Rotated 2C60 2CF3 Rotated 2CF9 2D25 Rotated 2D27 Rotated 2D2D Rotated 2D30 2D67 Rotated 2D6F 2D70 Rotated 2D7F 2D96 Rotated 2DA0 2DA6 Rotated 2DA8 2DAE Rotated 2DB0 2DB6 Rotated 2DB8 2DBE Rotated 2DC0 2DC6 Rotated 2DC8 2DCE Rotated 2DD0 2DD6 Rotated 2DD8 2DDE Rotated 2DE0 2E4F Rotated 2E50 2E51 U 2E52 Rotated 2E80 3000 U 3001 3002 Tu 3003 3007 U 3008 3011 Tr 3012 3013 U 3014 301F Tr 3020 302F U 3030 Tr 3031 3040 U 3041 Tu 3042 U 3043 Tu 3044 U 3045 Tu 3046 U 3047 Tu 3048 U 3049 Tu 304A 3062 U 3063 Tu 3064 3082 U 3083 Tu 3084 U 3085 Tu 3086 U 3087 Tu 3088 308D U 308E Tu 308F 3094 U 3095 3096 Tu 3097 309A U 309B 309C Tu 309D 309F U 30A0 Tr 30A1 Tu 30A2 U 30A3 Tu 30A4 U 30A5 Tu 30A6 U 30A7 Tu 30A8 U 30A9 Tu 30AA 30C2 U 30C3 Tu 30C4 30E2 U 30E3 Tu 30E4 U 30E5 Tu 30E6 U 30E7 Tu 30E8 30ED U 30EE Tu 30EF 30F4 U 30F5 30F6 Tu 30F7 30FB U 30FC Tr 30FD 3126 U 3127 Tu 3128 31EF U 31F0 31FF Tu 3200 32FE U 32FF 3357 Tu 3358 337A U 337B 337F Tu 3380 A4CF U A4D0 A62B Rotated A640 A6F7 Rotated A700 A7BF Rotated A7C2 A7CA Rotated A7F5 A82C Rotated A830 A839 Rotated A840 A877 Rotated A880 A8C5 Rotated A8CE A8D9 Rotated A8E0 A953 Rotated A95F Rotated A960 A97F U A980 A9CD Rotated A9CF A9D9 Rotated A9DE A9FE Rotated AA00 AA36 Rotated AA40 AA4D Rotated AA50 AA59 Rotated AA5C AAC2 Rotated AADB AAF6 Rotated AB01 AB06 Rotated AB09 AB0E Rotated AB11 AB16 Rotated AB20 AB26 Rotated AB28 AB2E Rotated AB30 AB6B Rotated AB70 ABED Rotated ABF0 ABF9 Rotated AC00 D7FF U D800 DFFF Rotated E000 FAFF U FB00 FB06 Rotated FB13 FB17 Rotated FB1D FB36 Rotated FB38 FB3C Rotated FB3E Rotated FB40 FB41 Rotated FB43 FB44 Rotated FB46 FBC1 Rotated FBD3 FD3F Rotated FD50 FD8F Rotated FD92 FDC7 Rotated FDF0 FDFD Rotated FE00 FE0F Rotated FE10 FE1F U FE20 FE2F Rotated FE30 FE48 U FE49 FE4F Rotated FE50 FE52 Tu FE53 FE57 U FE58 Rotated FE59 FE5E Tr FE5F FE62 U FE63 FE66 Rotated FE67 FE6F U FE70 FE74 Rotated FE76 FEFC Rotated FEFF Rotated FF01 Tu FF02 FF07 U FF08 FF09 Tr FF0A FF0B U FF0C Tu FF0D Rotated FF0E Tu FF0F FF19 U FF1A FF1B Tr FF1C FF1E Rotated FF1F Tu FF20 FF3A U FF3B Tr FF3C U FF3D Tr FF3E U FF3F Tr FF40 FF5A U FF5B FF60 Tr FF61 FFBE Rotated FFC2 FFC7 Rotated FFCA FFCF Rotated FFD2 FFD7 Rotated FFDA FFDC Rotated FFE0 FFE2 U FFE3 Tr FFE4 FFE7 U FFE8 FFEE Rotated FFF0 FFF8 U FFF9 FFFB Rotated FFFC FFFD U 10000 1000B Rotated 1000D 10026 Rotated 10028 1003A Rotated 1003C 1003D Rotated 1003F 1004D Rotated 10050 1005D Rotated 10080 100FA Rotated 10100 10102 Rotated 10107 10133 Rotated 10137 1018E Rotated 10190 1019C Rotated 101A0 Rotated 101D0 101FD Rotated 10280 1029C Rotated 102A0 102D0 Rotated 102E0 102FB Rotated 10300 10323 Rotated 1032D 1034A Rotated 10350 1037A Rotated 10380 1039D Rotated 1039F 103C3 Rotated 103C8 103D5 Rotated 10400 1049D Rotated 104A0 104A9 Rotated 104B0 104D3 Rotated 104D8 104FB Rotated 10500 10527 Rotated 10530 10563 Rotated 1056F Rotated 10600 10736 Rotated 10740 10755 Rotated 10760 10767 Rotated 10800 10805 Rotated 10808 Rotated 1080A 10835 Rotated 10837 10838 Rotated 1083C Rotated 1083F 10855 Rotated 10857 1089E Rotated 108A7 108AF Rotated 108E0 108F2 Rotated 108F4 108F5 Rotated 108FB 1091B Rotated 1091F 10939 Rotated 1093F Rotated 10980 1099F U 109A0 109B7 Rotated 109BC 109CF Rotated 109D2 10A03 Rotated 10A05 10A06 Rotated 10A0C 10A13 Rotated 10A15 10A17 Rotated 10A19 10A35 Rotated 10A38 10A3A Rotated 10A3F 10A48 Rotated 10A50 10A58 Rotated 10A60 10A9F Rotated 10AC0 10AE6 Rotated 10AEB 10AF6 Rotated 10B00 10B35 Rotated 10B39 10B55 Rotated 10B58 10B72 Rotated 10B78 10B91 Rotated 10B99 10B9C Rotated 10BA9 10BAF Rotated 10C00 10C48 Rotated 10C80 10CB2 Rotated 10CC0 10CF2 Rotated 10CFA 10D27 Rotated 10D30 10D39 Rotated 10E60 10E7E Rotated 10E80 10EA9 Rotated 10EAB 10EAD Rotated 10EB0 10EB1 Rotated 10F00 10F27 Rotated 10F30 10F59 Rotated 10FB0 10FCB Rotated 10FE0 10FF6 Rotated 11000 1104D Rotated 11052 1106F Rotated 1107F 110C1 Rotated 110CD Rotated 110D0 110E8 Rotated 110F0 110F9 Rotated 11100 11134 Rotated 11136 11147 Rotated 11150 11176 Rotated 11180 111DF Rotated 111E1 111F4 Rotated 11200 11211 Rotated 11213 1123E Rotated 11280 11286 Rotated 11288 Rotated 1128A 1128D Rotated 1128F 1129D Rotated 1129F 112A9 Rotated 112B0 112EA Rotated 112F0 112F9 Rotated 11300 11303 Rotated 11305 1130C Rotated 1130F 11310 Rotated 11313 11328 Rotated 1132A 11330 Rotated 11332 11333 Rotated 11335 11339 Rotated 1133B 11344 Rotated 11347 11348 Rotated 1134B 1134D Rotated 11350 Rotated 11357 Rotated 1135D 11363 Rotated 11366 1136C Rotated 11370 11374 Rotated 11400 1145B Rotated 1145D 11461 Rotated 11480 114C7 Rotated 114D0 114D9 Rotated 11580 115FF U 11600 11644 Rotated 11650 11659 Rotated 11660 1166C Rotated 11680 116B8 Rotated 116C0 116C9 Rotated 11700 1171A Rotated 1171D 1172B Rotated 11730 1173F Rotated 11800 1183B Rotated 118A0 118F2 Rotated 118FF 11906 Rotated 11909 Rotated 1190C 11913 Rotated 11915 11916 Rotated 11918 11935 Rotated 11937 11938 Rotated 1193B 11946 Rotated 11950 11959 Rotated 119A0 119A7 Rotated 119AA 119D7 Rotated 119DA 119E4 Rotated 11A00 11AAF U 11AC0 11AF8 Rotated 11C00 11C08 Rotated 11C0A 11C36 Rotated 11C38 11C45 Rotated 11C50 11C6C Rotated 11C70 11C8F Rotated 11C92 11CA7 Rotated 11CA9 11CB6 Rotated 11D00 11D06 Rotated 11D08 11D09 Rotated 11D0B 11D36 Rotated 11D3A Rotated 11D3C 11D3D Rotated 11D3F 11D47 Rotated 11D50 11D59 Rotated 11D60 11D65 Rotated 11D67 11D68 Rotated 11D6A 11D8E Rotated 11D90 11D91 Rotated 11D93 11D98 Rotated 11DA0 11DA9 Rotated 11EE0 11EF8 Rotated 11FB0 Rotated 11FC0 11FF1 Rotated 11FFF 12399 Rotated 12400 1246E Rotated 12470 12474 Rotated 12480 12543 Rotated 13000 1343F U 14400 1467F U 16800 16A38 Rotated 16A40 16A5E Rotated 16A60 16A69 Rotated 16A6E 16A6F Rotated 16AD0 16AED Rotated 16AF0 16AF5 Rotated 16B00 16B45 Rotated 16B50 16B59 Rotated 16B5B 16B61 Rotated 16B63 16B77 Rotated 16B7D 16B8F Rotated 16E40 16E9A Rotated 16F00 16F4A Rotated 16F4F 16F87 Rotated 16F8F 16F9F Rotated 16FE0 18D8F U 1B000 1B2FF U 1BC00 1BC6A Rotated 1BC70 1BC7C Rotated 1BC80 1BC88 Rotated 1BC90 1BC99 Rotated 1BC9C 1BCA3 Rotated 1D000 1D1FF U 1D200 1D245 Rotated 1D2E0 1D37F U 1D400 1D454 Rotated 1D456 1D49C Rotated 1D49E 1D49F Rotated 1D4A2 Rotated 1D4A5 1D4A6 Rotated 1D4A9 1D4AC Rotated 1D4AE 1D4B9 Rotated 1D4BB Rotated 1D4BD 1D4C3 Rotated 1D4C5 1D505 Rotated 1D507 1D50A Rotated 1D50D 1D514 Rotated 1D516 1D51C Rotated 1D51E 1D539 Rotated 1D53B 1D53E Rotated 1D540 1D544 Rotated 1D546 Rotated 1D54A 1D550 Rotated 1D552 1D6A5 Rotated 1D6A8 1D7CB Rotated 1D7CE 1D7FF Rotated 1D800 1DAAF U 1E000 1E006 Rotated 1E008 1E018 Rotated 1E01B 1E021 Rotated 1E023 1E024 Rotated 1E026 1E02A Rotated 1E100 1E12C Rotated 1E130 1E13D Rotated 1E140 1E149 Rotated 1E14E 1E14F Rotated 1E2C0 1E2F9 Rotated 1E2FF Rotated 1E800 1E8C4 Rotated 1E8C7 1E8D6 Rotated 1E900 1E94B Rotated 1E950 1E959 Rotated 1E95E 1E95F Rotated 1EC71 1ECB4 Rotated 1ED01 1ED3D Rotated 1EE00 1EE03 Rotated 1EE05 1EE1F Rotated 1EE21 1EE22 Rotated 1EE24 Rotated 1EE27 Rotated 1EE29 1EE32 Rotated 1EE34 1EE37 Rotated 1EE39 Rotated 1EE3B Rotated 1EE42 Rotated 1EE47 Rotated 1EE49 Rotated 1EE4B Rotated 1EE4D 1EE4F Rotated 1EE51 1EE52 Rotated 1EE54 Rotated 1EE57 Rotated 1EE59 Rotated 1EE5B Rotated 1EE5D Rotated 1EE5F Rotated 1EE61 1EE62 Rotated 1EE64 Rotated 1EE67 1EE6A Rotated 1EE6C 1EE72 Rotated 1EE74 1EE77 Rotated 1EE79 1EE7C Rotated 1EE7E Rotated 1EE80 1EE89 Rotated 1EE8B 1EE9B Rotated 1EEA1 1EEA3 Rotated 1EEA5 1EEA9 Rotated 1EEAB 1EEBB Rotated 1EEF0 1EEF1 Rotated 1F000 1F1FF U 1F200 1F201 Tu 1F202 1F7FF U 1F800 1F80B Rotated 1F810 1F847 Rotated 1F850 1F859 Rotated 1F860 1F887 Rotated 1F890 1F8AD Rotated 1F8B0 1F8B1 Rotated 1F900 1FAFF U 1FB00 1FB92 Rotated 1FB94 1FBCA Rotated 1FBF0 1FBF9 Rotated 20000 2FFFD U 30000 3FFFD U E0001 Rotated E0020 E007F Rotated E0100 E01EF Rotated F0000 FFFFD U 100000 10FFFD U END PK ! �^��P P 5.34.0/unicore/To/Title.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! IT IS DEPRECATED TO USE THIS FILE !!!!!!! # This file is for internal use by core Perl only. It is retained for # backwards compatibility with applications that may have come to rely on it, # but its format and even its name or existence are subject to change without # notice in a future Perl version. Don't use it directly. Instead, its # contents are now retrievable through a stable API in the Unicode::UCD # module: Unicode::UCD::prop_invmap('Titlecase_Mapping') (Values for individual # code points can be retrieved via Unicode::UCD::charprop()); # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToTitle'}{'format'} = 'x'; # non-negative hex whole number; a code point $Unicode::UCD::SwashInfo{'ToTitle'}{'specials_name'} = 'Unicode::UCD::ToSpecTitle'; # Name of hash of special mappings $Unicode::UCD::SwashInfo{'ToTitle'}{'missing'} = '<code point>'; # code point maps to itself # Some code points require special handling because their mappings are each to # multiple code points. These do not appear in the main body, but are defined # in the hash below. # Each key is the string of N bytes that together make up the UTF-8 encoding # for the code point. (i.e. the same as looking at the code point's UTF-8 # under "use bytes"). Each value is the UTF-8 of the translation, for speed. %Unicode::UCD::ToSpecTitle = ( "\xC3\x9F" => "\x{0053}\x{0073}", # U+00DF => 0053 0073 "\xC5\x89" => "\x{02BC}\x{004E}", # U+0149 => 02BC 004E "\xC7\xB0" => "\x{004A}\x{030C}", # U+01F0 => 004A 030C "\xCE\x90" => "\x{0399}\x{0308}\x{0301}", # U+0390 => 0399 0308 0301 "\xCE\xB0" => "\x{03A5}\x{0308}\x{0301}", # U+03B0 => 03A5 0308 0301 "\xD6\x87" => "\x{0535}\x{0582}", # U+0587 => 0535 0582 "\xE1\xBA\x96" => "\x{0048}\x{0331}", # U+1E96 => 0048 0331 "\xE1\xBA\x97" => "\x{0054}\x{0308}", # U+1E97 => 0054 0308 "\xE1\xBA\x98" => "\x{0057}\x{030A}", # U+1E98 => 0057 030A "\xE1\xBA\x99" => "\x{0059}\x{030A}", # U+1E99 => 0059 030A "\xE1\xBA\x9A" => "\x{0041}\x{02BE}", # U+1E9A => 0041 02BE "\xE1\xBD\x90" => "\x{03A5}\x{0313}", # U+1F50 => 03A5 0313 "\xE1\xBD\x92" => "\x{03A5}\x{0313}\x{0300}", # U+1F52 => 03A5 0313 0300 "\xE1\xBD\x94" => "\x{03A5}\x{0313}\x{0301}", # U+1F54 => 03A5 0313 0301 "\xE1\xBD\x96" => "\x{03A5}\x{0313}\x{0342}", # U+1F56 => 03A5 0313 0342 "\xE1\xBE\xB2" => "\x{1FBA}\x{0345}", # U+1FB2 => 1FBA 0345 "\xE1\xBE\xB4" => "\x{0386}\x{0345}", # U+1FB4 => 0386 0345 "\xE1\xBE\xB6" => "\x{0391}\x{0342}", # U+1FB6 => 0391 0342 "\xE1\xBE\xB7" => "\x{0391}\x{0342}\x{0345}", # U+1FB7 => 0391 0342 0345 "\xE1\xBF\x82" => "\x{1FCA}\x{0345}", # U+1FC2 => 1FCA 0345 "\xE1\xBF\x84" => "\x{0389}\x{0345}", # U+1FC4 => 0389 0345 "\xE1\xBF\x86" => "\x{0397}\x{0342}", # U+1FC6 => 0397 0342 "\xE1\xBF\x87" => "\x{0397}\x{0342}\x{0345}", # U+1FC7 => 0397 0342 0345 "\xE1\xBF\x92" => "\x{0399}\x{0308}\x{0300}", # U+1FD2 => 0399 0308 0300 "\xE1\xBF\x93" => "\x{0399}\x{0308}\x{0301}", # U+1FD3 => 0399 0308 0301 "\xE1\xBF\x96" => "\x{0399}\x{0342}", # U+1FD6 => 0399 0342 "\xE1\xBF\x97" => "\x{0399}\x{0308}\x{0342}", # U+1FD7 => 0399 0308 0342 "\xE1\xBF\xA2" => "\x{03A5}\x{0308}\x{0300}", # U+1FE2 => 03A5 0308 0300 "\xE1\xBF\xA3" => "\x{03A5}\x{0308}\x{0301}", # U+1FE3 => 03A5 0308 0301 "\xE1\xBF\xA4" => "\x{03A1}\x{0313}", # U+1FE4 => 03A1 0313 "\xE1\xBF\xA6" => "\x{03A5}\x{0342}", # U+1FE6 => 03A5 0342 "\xE1\xBF\xA7" => "\x{03A5}\x{0308}\x{0342}", # U+1FE7 => 03A5 0308 0342 "\xE1\xBF\xB2" => "\x{1FFA}\x{0345}", # U+1FF2 => 1FFA 0345 "\xE1\xBF\xB4" => "\x{038F}\x{0345}", # U+1FF4 => 038F 0345 "\xE1\xBF\xB6" => "\x{03A9}\x{0342}", # U+1FF6 => 03A9 0342 "\xE1\xBF\xB7" => "\x{03A9}\x{0342}\x{0345}", # U+1FF7 => 03A9 0342 0345 "\xEF\xAC\x80" => "\x{0046}\x{0066}", # U+FB00 => 0046 0066 "\xEF\xAC\x81" => "\x{0046}\x{0069}", # U+FB01 => 0046 0069 "\xEF\xAC\x82" => "\x{0046}\x{006C}", # U+FB02 => 0046 006C "\xEF\xAC\x83" => "\x{0046}\x{0066}\x{0069}", # U+FB03 => 0046 0066 0069 "\xEF\xAC\x84" => "\x{0046}\x{0066}\x{006C}", # U+FB04 => 0046 0066 006C "\xEF\xAC\x85" => "\x{0053}\x{0074}", # U+FB05 => 0053 0074 "\xEF\xAC\x86" => "\x{0053}\x{0074}", # U+FB06 => 0053 0074 "\xEF\xAC\x93" => "\x{0544}\x{0576}", # U+FB13 => 0544 0576 "\xEF\xAC\x94" => "\x{0544}\x{0565}", # U+FB14 => 0544 0565 "\xEF\xAC\x95" => "\x{0544}\x{056B}", # U+FB15 => 0544 056B "\xEF\xAC\x96" => "\x{054E}\x{0576}", # U+FB16 => 054E 0576 "\xEF\xAC\x97" => "\x{0544}\x{056D}", # U+FB17 => 0544 056D ); return <<'END'; 0061 0041 0062 0042 0063 0043 0064 0044 0065 0045 0066 0046 0067 0047 0068 0048 0069 0049 006A 004A 006B 004B 006C 004C 006D 004D 006E 004E 006F 004F 0070 0050 0071 0051 0072 0052 0073 0053 0074 0054 0075 0055 0076 0056 0077 0057 0078 0058 0079 0059 007A 005A 00B5 039C 00E0 00C0 00E1 00C1 00E2 00C2 00E3 00C3 00E4 00C4 00E5 00C5 00E6 00C6 00E7 00C7 00E8 00C8 00E9 00C9 00EA 00CA 00EB 00CB 00EC 00CC 00ED 00CD 00EE 00CE 00EF 00CF 00F0 00D0 00F1 00D1 00F2 00D2 00F3 00D3 00F4 00D4 00F5 00D5 00F6 00D6 00F8 00D8 00F9 00D9 00FA 00DA 00FB 00DB 00FC 00DC 00FD 00DD 00FE 00DE 00FF 0178 0101 0100 0103 0102 0105 0104 0107 0106 0109 0108 010B 010A 010D 010C 010F 010E 0111 0110 0113 0112 0115 0114 0117 0116 0119 0118 011B 011A 011D 011C 011F 011E 0121 0120 0123 0122 0125 0124 0127 0126 0129 0128 012B 012A 012D 012C 012F 012E 0131 0049 0133 0132 0135 0134 0137 0136 013A 0139 013C 013B 013E 013D 0140 013F 0142 0141 0144 0143 0146 0145 0148 0147 014B 014A 014D 014C 014F 014E 0151 0150 0153 0152 0155 0154 0157 0156 0159 0158 015B 015A 015D 015C 015F 015E 0161 0160 0163 0162 0165 0164 0167 0166 0169 0168 016B 016A 016D 016C 016F 016E 0171 0170 0173 0172 0175 0174 0177 0176 017A 0179 017C 017B 017E 017D 017F 0053 0180 0243 0183 0182 0185 0184 0188 0187 018C 018B 0192 0191 0195 01F6 0199 0198 019A 023D 019E 0220 01A1 01A0 01A3 01A2 01A5 01A4 01A8 01A7 01AD 01AC 01B0 01AF 01B4 01B3 01B6 01B5 01B9 01B8 01BD 01BC 01BF 01F7 01C4 01C5 01C6 01C5 01C7 01C8 01C9 01C8 01CA 01CB 01CC 01CB 01CE 01CD 01D0 01CF 01D2 01D1 01D4 01D3 01D6 01D5 01D8 01D7 01DA 01D9 01DC 01DB 01DD 018E 01DF 01DE 01E1 01E0 01E3 01E2 01E5 01E4 01E7 01E6 01E9 01E8 01EB 01EA 01ED 01EC 01EF 01EE 01F1 01F2 01F3 01F2 01F5 01F4 01F9 01F8 01FB 01FA 01FD 01FC 01FF 01FE 0201 0200 0203 0202 0205 0204 0207 0206 0209 0208 020B 020A 020D 020C 020F 020E 0211 0210 0213 0212 0215 0214 0217 0216 0219 0218 021B 021A 021D 021C 021F 021E 0223 0222 0225 0224 0227 0226 0229 0228 022B 022A 022D 022C 022F 022E 0231 0230 0233 0232 023C 023B 023F 2C7E 0240 2C7F 0242 0241 0247 0246 0249 0248 024B 024A 024D 024C 024F 024E 0250 2C6F 0251 2C6D 0252 2C70 0253 0181 0254 0186 0256 0189 0257 018A 0259 018F 025B 0190 025C A7AB 0260 0193 0261 A7AC 0263 0194 0265 A78D 0266 A7AA 0268 0197 0269 0196 026A A7AE 026B 2C62 026C A7AD 026F 019C 0271 2C6E 0272 019D 0275 019F 027D 2C64 0280 01A6 0282 A7C5 0283 01A9 0287 A7B1 0288 01AE 0289 0244 028A 01B1 028B 01B2 028C 0245 0292 01B7 029D A7B2 029E A7B0 0345 0399 0371 0370 0373 0372 0377 0376 037B 03FD 037C 03FE 037D 03FF 03AC 0386 03AD 0388 03AE 0389 03AF 038A 03B1 0391 03B2 0392 03B3 0393 03B4 0394 03B5 0395 03B6 0396 03B7 0397 03B8 0398 03B9 0399 03BA 039A 03BB 039B 03BC 039C 03BD 039D 03BE 039E 03BF 039F 03C0 03A0 03C1 03A1 03C2 03A3 03C3 03A3 03C4 03A4 03C5 03A5 03C6 03A6 03C7 03A7 03C8 03A8 03C9 03A9 03CA 03AA 03CB 03AB 03CC 038C 03CD 038E 03CE 038F 03D0 0392 03D1 0398 03D5 03A6 03D6 03A0 03D7 03CF 03D9 03D8 03DB 03DA 03DD 03DC 03DF 03DE 03E1 03E0 03E3 03E2 03E5 03E4 03E7 03E6 03E9 03E8 03EB 03EA 03ED 03EC 03EF 03EE 03F0 039A 03F1 03A1 03F2 03F9 03F3 037F 03F5 0395 03F8 03F7 03FB 03FA 0430 0410 0431 0411 0432 0412 0433 0413 0434 0414 0435 0415 0436 0416 0437 0417 0438 0418 0439 0419 043A 041A 043B 041B 043C 041C 043D 041D 043E 041E 043F 041F 0440 0420 0441 0421 0442 0422 0443 0423 0444 0424 0445 0425 0446 0426 0447 0427 0448 0428 0449 0429 044A 042A 044B 042B 044C 042C 044D 042D 044E 042E 044F 042F 0450 0400 0451 0401 0452 0402 0453 0403 0454 0404 0455 0405 0456 0406 0457 0407 0458 0408 0459 0409 045A 040A 045B 040B 045C 040C 045D 040D 045E 040E 045F 040F 0461 0460 0463 0462 0465 0464 0467 0466 0469 0468 046B 046A 046D 046C 046F 046E 0471 0470 0473 0472 0475 0474 0477 0476 0479 0478 047B 047A 047D 047C 047F 047E 0481 0480 048B 048A 048D 048C 048F 048E 0491 0490 0493 0492 0495 0494 0497 0496 0499 0498 049B 049A 049D 049C 049F 049E 04A1 04A0 04A3 04A2 04A5 04A4 04A7 04A6 04A9 04A8 04AB 04AA 04AD 04AC 04AF 04AE 04B1 04B0 04B3 04B2 04B5 04B4 04B7 04B6 04B9 04B8 04BB 04BA 04BD 04BC 04BF 04BE 04C2 04C1 04C4 04C3 04C6 04C5 04C8 04C7 04CA 04C9 04CC 04CB 04CE 04CD 04CF 04C0 04D1 04D0 04D3 04D2 04D5 04D4 04D7 04D6 04D9 04D8 04DB 04DA 04DD 04DC 04DF 04DE 04E1 04E0 04E3 04E2 04E5 04E4 04E7 04E6 04E9 04E8 04EB 04EA 04ED 04EC 04EF 04EE 04F1 04F0 04F3 04F2 04F5 04F4 04F7 04F6 04F9 04F8 04FB 04FA 04FD 04FC 04FF 04FE 0501 0500 0503 0502 0505 0504 0507 0506 0509 0508 050B 050A 050D 050C 050F 050E 0511 0510 0513 0512 0515 0514 0517 0516 0519 0518 051B 051A 051D 051C 051F 051E 0521 0520 0523 0522 0525 0524 0527 0526 0529 0528 052B 052A 052D 052C 052F 052E 0561 0531 0562 0532 0563 0533 0564 0534 0565 0535 0566 0536 0567 0537 0568 0538 0569 0539 056A 053A 056B 053B 056C 053C 056D 053D 056E 053E 056F 053F 0570 0540 0571 0541 0572 0542 0573 0543 0574 0544 0575 0545 0576 0546 0577 0547 0578 0548 0579 0549 057A 054A 057B 054B 057C 054C 057D 054D 057E 054E 057F 054F 0580 0550 0581 0551 0582 0552 0583 0553 0584 0554 0585 0555 0586 0556 13F8 13F0 13F9 13F1 13FA 13F2 13FB 13F3 13FC 13F4 13FD 13F5 1C80 0412 1C81 0414 1C82 041E 1C83 0421 1C84 0422 1C85 0422 1C86 042A 1C87 0462 1C88 A64A 1D79 A77D 1D7D 2C63 1D8E A7C6 1E01 1E00 1E03 1E02 1E05 1E04 1E07 1E06 1E09 1E08 1E0B 1E0A 1E0D 1E0C 1E0F 1E0E 1E11 1E10 1E13 1E12 1E15 1E14 1E17 1E16 1E19 1E18 1E1B 1E1A 1E1D 1E1C 1E1F 1E1E 1E21 1E20 1E23 1E22 1E25 1E24 1E27 1E26 1E29 1E28 1E2B 1E2A 1E2D 1E2C 1E2F 1E2E 1E31 1E30 1E33 1E32 1E35 1E34 1E37 1E36 1E39 1E38 1E3B 1E3A 1E3D 1E3C 1E3F 1E3E 1E41 1E40 1E43 1E42 1E45 1E44 1E47 1E46 1E49 1E48 1E4B 1E4A 1E4D 1E4C 1E4F 1E4E 1E51 1E50 1E53 1E52 1E55 1E54 1E57 1E56 1E59 1E58 1E5B 1E5A 1E5D 1E5C 1E5F 1E5E 1E61 1E60 1E63 1E62 1E65 1E64 1E67 1E66 1E69 1E68 1E6B 1E6A 1E6D 1E6C 1E6F 1E6E 1E71 1E70 1E73 1E72 1E75 1E74 1E77 1E76 1E79 1E78 1E7B 1E7A 1E7D 1E7C 1E7F 1E7E 1E81 1E80 1E83 1E82 1E85 1E84 1E87 1E86 1E89 1E88 1E8B 1E8A 1E8D 1E8C 1E8F 1E8E 1E91 1E90 1E93 1E92 1E95 1E94 1E9B 1E60 1EA1 1EA0 1EA3 1EA2 1EA5 1EA4 1EA7 1EA6 1EA9 1EA8 1EAB 1EAA 1EAD 1EAC 1EAF 1EAE 1EB1 1EB0 1EB3 1EB2 1EB5 1EB4 1EB7 1EB6 1EB9 1EB8 1EBB 1EBA 1EBD 1EBC 1EBF 1EBE 1EC1 1EC0 1EC3 1EC2 1EC5 1EC4 1EC7 1EC6 1EC9 1EC8 1ECB 1ECA 1ECD 1ECC 1ECF 1ECE 1ED1 1ED0 1ED3 1ED2 1ED5 1ED4 1ED7 1ED6 1ED9 1ED8 1EDB 1EDA 1EDD 1EDC 1EDF 1EDE 1EE1 1EE0 1EE3 1EE2 1EE5 1EE4 1EE7 1EE6 1EE9 1EE8 1EEB 1EEA 1EED 1EEC 1EEF 1EEE 1EF1 1EF0 1EF3 1EF2 1EF5 1EF4 1EF7 1EF6 1EF9 1EF8 1EFB 1EFA 1EFD 1EFC 1EFF 1EFE 1F00 1F08 1F01 1F09 1F02 1F0A 1F03 1F0B 1F04 1F0C 1F05 1F0D 1F06 1F0E 1F07 1F0F 1F10 1F18 1F11 1F19 1F12 1F1A 1F13 1F1B 1F14 1F1C 1F15 1F1D 1F20 1F28 1F21 1F29 1F22 1F2A 1F23 1F2B 1F24 1F2C 1F25 1F2D 1F26 1F2E 1F27 1F2F 1F30 1F38 1F31 1F39 1F32 1F3A 1F33 1F3B 1F34 1F3C 1F35 1F3D 1F36 1F3E 1F37 1F3F 1F40 1F48 1F41 1F49 1F42 1F4A 1F43 1F4B 1F44 1F4C 1F45 1F4D 1F51 1F59 1F53 1F5B 1F55 1F5D 1F57 1F5F 1F60 1F68 1F61 1F69 1F62 1F6A 1F63 1F6B 1F64 1F6C 1F65 1F6D 1F66 1F6E 1F67 1F6F 1F70 1FBA 1F71 1FBB 1F72 1FC8 1F73 1FC9 1F74 1FCA 1F75 1FCB 1F76 1FDA 1F77 1FDB 1F78 1FF8 1F79 1FF9 1F7A 1FEA 1F7B 1FEB 1F7C 1FFA 1F7D 1FFB 1F80 1F88 1F81 1F89 1F82 1F8A 1F83 1F8B 1F84 1F8C 1F85 1F8D 1F86 1F8E 1F87 1F8F 1F90 1F98 1F91 1F99 1F92 1F9A 1F93 1F9B 1F94 1F9C 1F95 1F9D 1F96 1F9E 1F97 1F9F 1FA0 1FA8 1FA1 1FA9 1FA2 1FAA 1FA3 1FAB 1FA4 1FAC 1FA5 1FAD 1FA6 1FAE 1FA7 1FAF 1FB0 1FB8 1FB1 1FB9 1FB3 1FBC 1FBE 0399 1FC3 1FCC 1FD0 1FD8 1FD1 1FD9 1FE0 1FE8 1FE1 1FE9 1FE5 1FEC 1FF3 1FFC 214E 2132 2170 2160 2171 2161 2172 2162 2173 2163 2174 2164 2175 2165 2176 2166 2177 2167 2178 2168 2179 2169 217A 216A 217B 216B 217C 216C 217D 216D 217E 216E 217F 216F 2184 2183 24D0 24B6 24D1 24B7 24D2 24B8 24D3 24B9 24D4 24BA 24D5 24BB 24D6 24BC 24D7 24BD 24D8 24BE 24D9 24BF 24DA 24C0 24DB 24C1 24DC 24C2 24DD 24C3 24DE 24C4 24DF 24C5 24E0 24C6 24E1 24C7 24E2 24C8 24E3 24C9 24E4 24CA 24E5 24CB 24E6 24CC 24E7 24CD 24E8 24CE 24E9 24CF 2C30 2C00 2C31 2C01 2C32 2C02 2C33 2C03 2C34 2C04 2C35 2C05 2C36 2C06 2C37 2C07 2C38 2C08 2C39 2C09 2C3A 2C0A 2C3B 2C0B 2C3C 2C0C 2C3D 2C0D 2C3E 2C0E 2C3F 2C0F 2C40 2C10 2C41 2C11 2C42 2C12 2C43 2C13 2C44 2C14 2C45 2C15 2C46 2C16 2C47 2C17 2C48 2C18 2C49 2C19 2C4A 2C1A 2C4B 2C1B 2C4C 2C1C 2C4D 2C1D 2C4E 2C1E 2C4F 2C1F 2C50 2C20 2C51 2C21 2C52 2C22 2C53 2C23 2C54 2C24 2C55 2C25 2C56 2C26 2C57 2C27 2C58 2C28 2C59 2C29 2C5A 2C2A 2C5B 2C2B 2C5C 2C2C 2C5D 2C2D 2C5E 2C2E 2C61 2C60 2C65 023A 2C66 023E 2C68 2C67 2C6A 2C69 2C6C 2C6B 2C73 2C72 2C76 2C75 2C81 2C80 2C83 2C82 2C85 2C84 2C87 2C86 2C89 2C88 2C8B 2C8A 2C8D 2C8C 2C8F 2C8E 2C91 2C90 2C93 2C92 2C95 2C94 2C97 2C96 2C99 2C98 2C9B 2C9A 2C9D 2C9C 2C9F 2C9E 2CA1 2CA0 2CA3 2CA2 2CA5 2CA4 2CA7 2CA6 2CA9 2CA8 2CAB 2CAA 2CAD 2CAC 2CAF 2CAE 2CB1 2CB0 2CB3 2CB2 2CB5 2CB4 2CB7 2CB6 2CB9 2CB8 2CBB 2CBA 2CBD 2CBC 2CBF 2CBE 2CC1 2CC0 2CC3 2CC2 2CC5 2CC4 2CC7 2CC6 2CC9 2CC8 2CCB 2CCA 2CCD 2CCC 2CCF 2CCE 2CD1 2CD0 2CD3 2CD2 2CD5 2CD4 2CD7 2CD6 2CD9 2CD8 2CDB 2CDA 2CDD 2CDC 2CDF 2CDE 2CE1 2CE0 2CE3 2CE2 2CEC 2CEB 2CEE 2CED 2CF3 2CF2 2D00 10A0 2D01 10A1 2D02 10A2 2D03 10A3 2D04 10A4 2D05 10A5 2D06 10A6 2D07 10A7 2D08 10A8 2D09 10A9 2D0A 10AA 2D0B 10AB 2D0C 10AC 2D0D 10AD 2D0E 10AE 2D0F 10AF 2D10 10B0 2D11 10B1 2D12 10B2 2D13 10B3 2D14 10B4 2D15 10B5 2D16 10B6 2D17 10B7 2D18 10B8 2D19 10B9 2D1A 10BA 2D1B 10BB 2D1C 10BC 2D1D 10BD 2D1E 10BE 2D1F 10BF 2D20 10C0 2D21 10C1 2D22 10C2 2D23 10C3 2D24 10C4 2D25 10C5 2D27 10C7 2D2D 10CD A641 A640 A643 A642 A645 A644 A647 A646 A649 A648 A64B A64A A64D A64C A64F A64E A651 A650 A653 A652 A655 A654 A657 A656 A659 A658 A65B A65A A65D A65C A65F A65E A661 A660 A663 A662 A665 A664 A667 A666 A669 A668 A66B A66A A66D A66C A681 A680 A683 A682 A685 A684 A687 A686 A689 A688 A68B A68A A68D A68C A68F A68E A691 A690 A693 A692 A695 A694 A697 A696 A699 A698 A69B A69A A723 A722 A725 A724 A727 A726 A729 A728 A72B A72A A72D A72C A72F A72E A733 A732 A735 A734 A737 A736 A739 A738 A73B A73A A73D A73C A73F A73E A741 A740 A743 A742 A745 A744 A747 A746 A749 A748 A74B A74A A74D A74C A74F A74E A751 A750 A753 A752 A755 A754 A757 A756 A759 A758 A75B A75A A75D A75C A75F A75E A761 A760 A763 A762 A765 A764 A767 A766 A769 A768 A76B A76A A76D A76C A76F A76E A77A A779 A77C A77B A77F A77E A781 A780 A783 A782 A785 A784 A787 A786 A78C A78B A791 A790 A793 A792 A794 A7C4 A797 A796 A799 A798 A79B A79A A79D A79C A79F A79E A7A1 A7A0 A7A3 A7A2 A7A5 A7A4 A7A7 A7A6 A7A9 A7A8 A7B5 A7B4 A7B7 A7B6 A7B9 A7B8 A7BB A7BA A7BD A7BC A7BF A7BE A7C3 A7C2 A7C8 A7C7 A7CA A7C9 A7F6 A7F5 AB53 A7B3 AB70 13A0 AB71 13A1 AB72 13A2 AB73 13A3 AB74 13A4 AB75 13A5 AB76 13A6 AB77 13A7 AB78 13A8 AB79 13A9 AB7A 13AA AB7B 13AB AB7C 13AC AB7D 13AD AB7E 13AE AB7F 13AF AB80 13B0 AB81 13B1 AB82 13B2 AB83 13B3 AB84 13B4 AB85 13B5 AB86 13B6 AB87 13B7 AB88 13B8 AB89 13B9 AB8A 13BA AB8B 13BB AB8C 13BC AB8D 13BD AB8E 13BE AB8F 13BF AB90 13C0 AB91 13C1 AB92 13C2 AB93 13C3 AB94 13C4 AB95 13C5 AB96 13C6 AB97 13C7 AB98 13C8 AB99 13C9 AB9A 13CA AB9B 13CB AB9C 13CC AB9D 13CD AB9E 13CE AB9F 13CF ABA0 13D0 ABA1 13D1 ABA2 13D2 ABA3 13D3 ABA4 13D4 ABA5 13D5 ABA6 13D6 ABA7 13D7 ABA8 13D8 ABA9 13D9 ABAA 13DA ABAB 13DB ABAC 13DC ABAD 13DD ABAE 13DE ABAF 13DF ABB0 13E0 ABB1 13E1 ABB2 13E2 ABB3 13E3 ABB4 13E4 ABB5 13E5 ABB6 13E6 ABB7 13E7 ABB8 13E8 ABB9 13E9 ABBA 13EA ABBB 13EB ABBC 13EC ABBD 13ED ABBE 13EE ABBF 13EF FF41 FF21 FF42 FF22 FF43 FF23 FF44 FF24 FF45 FF25 FF46 FF26 FF47 FF27 FF48 FF28 FF49 FF29 FF4A FF2A FF4B FF2B FF4C FF2C FF4D FF2D FF4E FF2E FF4F FF2F FF50 FF30 FF51 FF31 FF52 FF32 FF53 FF33 FF54 FF34 FF55 FF35 FF56 FF36 FF57 FF37 FF58 FF38 FF59 FF39 FF5A FF3A 10428 10400 10429 10401 1042A 10402 1042B 10403 1042C 10404 1042D 10405 1042E 10406 1042F 10407 10430 10408 10431 10409 10432 1040A 10433 1040B 10434 1040C 10435 1040D 10436 1040E 10437 1040F 10438 10410 10439 10411 1043A 10412 1043B 10413 1043C 10414 1043D 10415 1043E 10416 1043F 10417 10440 10418 10441 10419 10442 1041A 10443 1041B 10444 1041C 10445 1041D 10446 1041E 10447 1041F 10448 10420 10449 10421 1044A 10422 1044B 10423 1044C 10424 1044D 10425 1044E 10426 1044F 10427 104D8 104B0 104D9 104B1 104DA 104B2 104DB 104B3 104DC 104B4 104DD 104B5 104DE 104B6 104DF 104B7 104E0 104B8 104E1 104B9 104E2 104BA 104E3 104BB 104E4 104BC 104E5 104BD 104E6 104BE 104E7 104BF 104E8 104C0 104E9 104C1 104EA 104C2 104EB 104C3 104EC 104C4 104ED 104C5 104EE 104C6 104EF 104C7 104F0 104C8 104F1 104C9 104F2 104CA 104F3 104CB 104F4 104CC 104F5 104CD 104F6 104CE 104F7 104CF 104F8 104D0 104F9 104D1 104FA 104D2 104FB 104D3 10CC0 10C80 10CC1 10C81 10CC2 10C82 10CC3 10C83 10CC4 10C84 10CC5 10C85 10CC6 10C86 10CC7 10C87 10CC8 10C88 10CC9 10C89 10CCA 10C8A 10CCB 10C8B 10CCC 10C8C 10CCD 10C8D 10CCE 10C8E 10CCF 10C8F 10CD0 10C90 10CD1 10C91 10CD2 10C92 10CD3 10C93 10CD4 10C94 10CD5 10C95 10CD6 10C96 10CD7 10C97 10CD8 10C98 10CD9 10C99 10CDA 10C9A 10CDB 10C9B 10CDC 10C9C 10CDD 10C9D 10CDE 10C9E 10CDF 10C9F 10CE0 10CA0 10CE1 10CA1 10CE2 10CA2 10CE3 10CA3 10CE4 10CA4 10CE5 10CA5 10CE6 10CA6 10CE7 10CA7 10CE8 10CA8 10CE9 10CA9 10CEA 10CAA 10CEB 10CAB 10CEC 10CAC 10CED 10CAD 10CEE 10CAE 10CEF 10CAF 10CF0 10CB0 10CF1 10CB1 10CF2 10CB2 118C0 118A0 118C1 118A1 118C2 118A2 118C3 118A3 118C4 118A4 118C5 118A5 118C6 118A6 118C7 118A7 118C8 118A8 118C9 118A9 118CA 118AA 118CB 118AB 118CC 118AC 118CD 118AD 118CE 118AE 118CF 118AF 118D0 118B0 118D1 118B1 118D2 118B2 118D3 118B3 118D4 118B4 118D5 118B5 118D6 118B6 118D7 118B7 118D8 118B8 118D9 118B9 118DA 118BA 118DB 118BB 118DC 118BC 118DD 118BD 118DE 118BE 118DF 118BF 16E60 16E40 16E61 16E41 16E62 16E42 16E63 16E43 16E64 16E44 16E65 16E45 16E66 16E46 16E67 16E47 16E68 16E48 16E69 16E49 16E6A 16E4A 16E6B 16E4B 16E6C 16E4C 16E6D 16E4D 16E6E 16E4E 16E6F 16E4F 16E70 16E50 16E71 16E51 16E72 16E52 16E73 16E53 16E74 16E54 16E75 16E55 16E76 16E56 16E77 16E57 16E78 16E58 16E79 16E59 16E7A 16E5A 16E7B 16E5B 16E7C 16E5C 16E7D 16E5D 16E7E 16E5E 16E7F 16E5F 1E922 1E900 1E923 1E901 1E924 1E902 1E925 1E903 1E926 1E904 1E927 1E905 1E928 1E906 1E929 1E907 1E92A 1E908 1E92B 1E909 1E92C 1E90A 1E92D 1E90B 1E92E 1E90C 1E92F 1E90D 1E930 1E90E 1E931 1E90F 1E932 1E910 1E933 1E911 1E934 1E912 1E935 1E913 1E936 1E914 1E937 1E915 1E938 1E916 1E939 1E917 1E93A 1E918 1E93B 1E919 1E93C 1E91A 1E93D 1E91B 1E93E 1E91C 1E93F 1E91D 1E940 1E91E 1E941 1E91F 1E942 1E920 1E943 1E921 END PK ! ��HGr� r� 5.34.0/unicore/To/Identif2.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToIdentifierType'}{'format'} = 'sw'; # string, but some elements are interpreted as a list; white space occurs only as list item separators $Unicode::UCD::SwashInfo{'ToIdentifierType'}{'missing'} = 'Not_Character'; return <<'END'; 9 D Not_XID 20 26 Not_XID 27 Inclusion 28 2C Not_XID 2D 2E Inclusion 2F Not_XID 30 39 Recommended 3A Inclusion 3B 40 Not_XID 41 5A Recommended 5B 5E Not_XID 5F Recommended 60 Not_XID 61 7A Recommended 7B 7E Not_XID 85 Not_XID A0 Not_NFKC A1 A7 Not_XID A8 Not_NFKC A9 Not_XID AA Not_NFKC AB AC Not_XID AD Default_Ignorable AE Not_XID AF Not_NFKC B0 B1 Not_XID B2 B5 Not_NFKC B6 Not_XID B7 Inclusion B8 BA Not_NFKC BB Not_XID BC BE Not_NFKC BF Not_XID C0 D6 Recommended D7 Not_XID D8 F6 Recommended F7 Not_XID F8 131 Recommended 132 133 Not_NFKC 134 13E Recommended 13F 140 Not_NFKC 141 148 Recommended 149 Deprecated 14A 17E Recommended 17F Not_NFKC 180 Technical 181 18C Uncommon_Use 18D Technical Obsolete 18E Uncommon_Use 18F Recommended 190 19F Uncommon_Use 1A0 1A1 Recommended 1A2 1A9 Uncommon_Use 1AA 1AB Technical Obsolete 1AC 1AE Uncommon_Use 1AF 1B0 Recommended 1B1 1B8 Uncommon_Use 1B9 Obsolete 1BA 1BB Technical Obsolete 1BC 1BD Uncommon_Use 1BE Technical Obsolete 1BF Obsolete 1C0 1C3 Technical 1C4 1CC Not_NFKC 1CD 1DC Recommended 1DD Uncommon_Use 1DE 1E3 Recommended 1E4 1E5 Uncommon_Use 1E6 1F0 Recommended 1F1 1F3 Not_NFKC 1F4 1F5 Recommended 1F6 1F7 Obsolete 1F8 21B Recommended 21C 21D Obsolete 21E 21F Recommended 220 225 Uncommon_Use 226 233 Recommended 234 236 Technical 237 24F Uncommon_Use 250 252 Technical 253 254 Uncommon_Use Technical 255 Technical 256 257 Uncommon_Use Technical 258 Technical 259 Recommended 25A Technical 25B Uncommon_Use Technical 25C 262 Technical 263 Uncommon_Use Technical 264 267 Technical 268 269 Uncommon_Use Technical 26A 271 Technical 272 Uncommon_Use Technical 273 276 Technical 277 Technical Obsolete 278 27B Technical 27C Technical Obsolete 27D 288 Technical 289 Uncommon_Use Technical 28A 291 Technical 292 Uncommon_Use Technical 293 29D Technical 29E Technical Obsolete 29F 2AF Technical 2B0 2B8 Not_NFKC 2B9 2BA Technical 2BB 2BC Recommended 2BD 2C1 Technical 2C2 2C5 Not_XID 2C6 2D1 Technical 2D2 2D7 Not_XID 2D8 2DD Not_NFKC 2DE 2DF Not_XID 2E0 2E4 Not_NFKC 2E5 2EB Not_XID 2EC Recommended 2ED Not_XID 2EE Technical 2EF 2FF Not_XID 300 304 Recommended 305 Uncommon_Use 306 30C Recommended 30D Uncommon_Use 30E Technical 30F 311 Recommended 312 Technical 313 314 Recommended 315 Technical 316 Uncommon_Use 317 31A Technical 31B Recommended 31C 320 Technical 321 322 Uncommon_Use 323 328 Recommended 329 32C Technical 32D 32E Recommended 32F Technical 330 331 Recommended 332 Uncommon_Use 333 Technical 334 Uncommon_Use 335 Recommended 336 Uncommon_Use 337 Technical 338 339 Recommended 33A 33F Technical 340 341 Not_NFKC 342 Recommended 343 344 Not_NFKC 345 Recommended 346 34E Technical 34F Default_Ignorable 350 357 Technical 358 Uncommon_Use 359 362 Technical 363 373 Obsolete 374 Not_NFKC 375 Inclusion 376 377 Obsolete 37A Not_NFKC 37B 37D Recommended 37E Not_NFKC 37F Obsolete 384 385 Not_NFKC 386 Recommended 387 Not_NFKC 388 38A Recommended 38C Recommended 38E 3A1 Recommended 3A3 3CE Recommended 3CF Technical 3D0 3D6 Not_NFKC 3D7 Technical 3D8 3E1 Obsolete 3E2 3EF Exclusion 3F0 3F2 Not_NFKC 3F3 Technical Obsolete 3F4 3F5 Not_NFKC 3F6 Not_XID 3F7 3F8 Obsolete 3F9 Not_NFKC 3FA 3FB Obsolete 3FC 45F Recommended 460 481 Obsolete 482 Obsolete Not_XID 483 Obsolete 484 487 Technical Obsolete 488 489 Obsolete Not_XID 48A 4FF Recommended 500 50F Obsolete 510 529 Recommended 52A 52D Obsolete 52E 52F Recommended 531 556 Recommended 559 Recommended 55A 55F Not_XID 560 Technical 561 586 Recommended 587 Not_NFKC 588 Technical 589 Not_XID 58A Inclusion 58D 58F Not_XID 591 5A1 Uncommon_Use 5A2 Uncommon_Use Obsolete 5A3 5B3 Uncommon_Use 5B4 Recommended 5B5 5BD Uncommon_Use 5BE Not_XID 5BF Uncommon_Use 5C0 Not_XID 5C1 5C2 Uncommon_Use 5C3 Not_XID 5C4 Uncommon_Use 5C5 Uncommon_Use Obsolete 5C6 Obsolete Not_XID 5C7 Uncommon_Use Technical 5D0 5EA Recommended 5EF 5F2 Recommended 5F3 5F4 Inclusion 600 60F Not_XID 610 61A Uncommon_Use 61B Not_XID 61C Default_Ignorable 61E 61F Not_XID 620 63F Recommended 640 Obsolete 641 655 Recommended 656 65F Uncommon_Use 660 669 Recommended 66A 66D Not_XID 66E 66F Obsolete 670 672 Recommended 673 Deprecated 674 Recommended 675 678 Not_NFKC 679 68D Recommended 68E Obsolete 68F 6A0 Recommended 6A1 Obsolete 6A2 6D3 Recommended 6D4 Not_XID 6D5 Recommended 6D6 6DC Uncommon_Use 6DD 6DE Not_XID 6DF 6E4 Uncommon_Use 6E5 6E6 Recommended 6E7 6E8 Uncommon_Use 6E9 Not_XID 6EA 6ED Uncommon_Use 6EE 6FC Recommended 6FD 6FE Inclusion 6FF Recommended 700 70D Limited_Use Not_XID 70F Limited_Use Not_XID 710 73F Limited_Use 740 74A Limited_Use Technical 74D 74F Limited_Use 750 7B1 Recommended 7C0 7E7 Limited_Use 7E8 7EA Limited_Use Obsolete 7EB 7F5 Limited_Use 7F6 7F9 Limited_Use Not_XID 7FA Limited_Use Obsolete 7FD Limited_Use 7FE 7FF Limited_Use Not_XID 800 82D Exclusion 830 83E Exclusion Not_XID 840 85B Limited_Use 85E Limited_Use Not_XID 860 86A Limited_Use 8A0 8AC Recommended 8AD 8B1 Obsolete 8B2 Recommended 8B3 8B4 Uncommon_Use 8B6 8C7 Recommended 8D3 8E1 Uncommon_Use 8E2 Not_XID 8E3 900 Uncommon_Use 901 94D Recommended 94E Obsolete 94F 950 Recommended 951 952 Obsolete 953 954 Technical 955 Uncommon_Use 956 957 Recommended 958 95F Not_NFKC 960 963 Recommended 964 965 Not_XID 966 96F Recommended 970 Not_XID 971 977 Recommended 978 Obsolete 979 97F Recommended 980 Obsolete 981 983 Recommended 985 98C Recommended 98F 990 Recommended 993 9A8 Recommended 9AA 9B0 Recommended 9B2 Recommended 9B6 9B9 Recommended 9BC 9C4 Recommended 9C7 9C8 Recommended 9CB 9CE Recommended 9D7 Recommended 9DC 9DD Not_NFKC 9DF Not_NFKC 9E0 9E3 Recommended 9E6 9F1 Recommended 9F2 9FB Not_XID 9FC Obsolete 9FD Not_XID 9FE Recommended A01 A03 Recommended A05 A0A Recommended A0F A10 Recommended A13 A28 Recommended A2A A30 Recommended A32 Recommended A33 Not_NFKC A35 Recommended A36 Not_NFKC A38 A39 Recommended A3C Recommended A3E A42 Recommended A47 A48 Recommended A4B A4D Recommended A51 Uncommon_Use A59 A5B Not_NFKC A5C Recommended A5E Not_NFKC A66 A74 Recommended A75 Uncommon_Use A76 Not_XID A81 A83 Recommended A85 A8D Recommended A8F A91 Recommended A93 AA8 Recommended AAA AB0 Recommended AB2 AB3 Recommended AB5 AB9 Recommended ABC AC5 Recommended AC7 AC9 Recommended ACB ACD Recommended AD0 Recommended AE0 AE3 Recommended AE6 AEF Recommended AF0 AF1 Not_XID AF9 Uncommon_Use AFA AFF Recommended B01 B03 Recommended B05 B0C Recommended B0F B10 Recommended B13 B28 Recommended B2A B30 Recommended B32 B33 Recommended B35 B39 Recommended B3C B43 Recommended B44 Uncommon_Use B47 B48 Recommended B4B B4D Recommended B55 B57 Recommended B5C B5D Not_NFKC B5F B61 Recommended B62 B63 Uncommon_Use B66 B6F Recommended B70 Not_XID B71 Recommended B72 B77 Not_XID B82 B83 Recommended B85 B8A Recommended B8E B90 Recommended B92 B95 Recommended B99 B9A Recommended B9C Recommended B9E B9F Recommended BA3 BA4 Recommended BA8 BAA Recommended BAE BB9 Recommended BBE BC2 Recommended BC6 BC8 Recommended BCA BCD Recommended BD0 Recommended BD7 Recommended BE6 BEF Recommended BF0 BFA Not_XID C00 Obsolete C01 C0C Recommended C0E C10 Recommended C12 C28 Recommended C2A C33 Recommended C34 Obsolete C35 C39 Recommended C3D C44 Recommended C46 C48 Recommended C4A C4D Recommended C55 C56 Recommended C58 C59 Obsolete C5A Uncommon_Use C60 C61 Recommended C62 C63 Uncommon_Use C66 C6F Recommended C77 C7F Not_XID C80 Recommended C81 Obsolete C82 C83 Recommended C84 Not_XID C85 C8C Recommended C8E C90 Recommended C92 CA8 Recommended CAA CB3 Recommended CB5 CB9 Recommended CBC CC4 Recommended CC6 CC8 Recommended CCA CCD Recommended CD5 CD6 Recommended CDE Obsolete CE0 CE3 Recommended CE6 CEF Recommended CF1 CF2 Recommended D00 Recommended D01 Obsolete D02 D03 Recommended D04 Technical Obsolete D05 D0C Recommended D0E D10 Recommended D12 D3A Recommended D3B D3C Obsolete D3D D43 Recommended D44 Uncommon_Use D46 D48 Recommended D4A D4E Recommended D4F Not_XID D54 D57 Recommended D58 D5E Not_XID D5F Obsolete D60 D61 Recommended D62 D63 Uncommon_Use D66 D6F Recommended D70 D79 Not_XID D7A D7F Recommended D81 Technical D82 D83 Recommended D85 D8E Recommended D8F D90 Uncommon_Use Technical D91 D96 Recommended D9A DA5 Recommended DA6 Uncommon_Use Technical DA7 DB1 Recommended DB3 DBB Recommended DBD Recommended DC0 DC6 Recommended DCA Recommended DCF DD4 Recommended DD6 Recommended DD8 DDE Recommended DDF Uncommon_Use Technical DE6 DEF Obsolete DF2 Recommended DF3 Uncommon_Use Technical DF4 Not_XID E01 E32 Recommended E33 Not_NFKC E34 E3A Recommended E3F Not_XID E40 E4E Recommended E4F Not_XID E50 E59 Recommended E5A E5B Not_XID E81 E82 Recommended E84 Recommended E86 E8A Recommended E8C EA3 Recommended EA5 Recommended EA7 EB2 Recommended EB3 Not_NFKC EB4 EBD Recommended EC0 EC4 Recommended EC6 Recommended EC8 ECD Recommended ED0 ED9 Recommended EDC EDD Not_NFKC EDE EDF Recommended F00 Recommended F01 F0A Not_XID F0B Inclusion F0C Not_NFKC F0D F17 Not_XID F18 F19 Technical F1A F1F Not_XID F20 F29 Recommended F2A F34 Not_XID F35 Recommended F36 Not_XID F37 Recommended F38 Not_XID F39 Uncommon_Use F3A F3D Not_XID F3E F42 Recommended F43 Not_NFKC F44 F47 Recommended F49 F4C Recommended F4D Not_NFKC F4E F51 Recommended F52 Not_NFKC F53 F56 Recommended F57 Not_NFKC F58 F5B Recommended F5C Not_NFKC F5D F68 Recommended F69 Not_NFKC F6A F6C Recommended F71 F72 Recommended F73 Not_NFKC F74 Recommended F75 F76 Not_NFKC F77 Deprecated F78 Not_NFKC F79 Deprecated F7A F80 Recommended F81 Not_NFKC F82 F84 Recommended F85 Not_XID F86 F92 Recommended F93 Not_NFKC F94 F97 Recommended F99 F9C Recommended F9D Not_NFKC F9E FA1 Recommended FA2 Not_NFKC FA3 FA6 Recommended FA7 Not_NFKC FA8 FAB Recommended FAC Not_NFKC FAD FB8 Recommended FB9 Not_NFKC FBA FBC Recommended FBE FC5 Not_XID FC6 Recommended FC7 FCC Not_XID FCE FDA Not_XID 1000 1049 Recommended 104A 104F Not_XID 1050 109D Recommended 109E 109F Not_XID 10A0 10C5 Obsolete 10C7 Recommended 10CD Recommended 10D0 10F0 Recommended 10F1 10F6 Obsolete 10F7 10FA Recommended 10FB Not_XID 10FC Not_NFKC 10FD 10FF Recommended 1100 115E Obsolete 115F 1160 Default_Ignorable 1161 11FF Obsolete 1200 1248 Recommended 124A 124D Recommended 1250 1256 Recommended 1258 Recommended 125A 125D Recommended 1260 1288 Recommended 128A 128D Recommended 1290 12B0 Recommended 12B2 12B5 Recommended 12B8 12BE Recommended 12C0 Recommended 12C2 12C5 Recommended 12C8 12D6 Recommended 12D8 1310 Recommended 1312 1315 Recommended 1318 135A Recommended 135D 135F Recommended 1360 1368 Not_XID 1369 1371 Obsolete 1372 137C Not_XID 1380 138F Recommended 1390 1399 Not_XID 13A0 13F5 Limited_Use 13F8 13FD Limited_Use 1400 Limited_Use Not_XID 1401 166C Limited_Use 166D 166E Limited_Use Not_XID 166F 167F Limited_Use 1680 Exclusion Not_XID 1681 169A Exclusion 169B 169C Exclusion Not_XID 16A0 16EA Exclusion 16EB 16ED Not_XID 16EE 16F8 Exclusion 1700 170C Exclusion 170E 1714 Exclusion 1720 1734 Exclusion 1735 1736 Exclusion Not_XID 1740 1753 Exclusion 1760 176C Exclusion 176E 1770 Exclusion 1772 1773 Exclusion 1780 17A2 Recommended 17A3 17A4 Deprecated 17A5 17A7 Recommended 17A8 Obsolete 17A9 17B3 Recommended 17B4 17B5 Default_Ignorable 17B6 17CA Recommended 17CB 17D0 Technical 17D1 Technical Obsolete 17D2 Recommended 17D3 Obsolete 17D4 17D6 Not_XID 17D7 Recommended 17D8 Obsolete Not_XID 17D9 17DB Not_XID 17DC Recommended 17DD Technical Obsolete 17E0 17E9 Recommended 17F0 17F9 Not_XID 1800 180A Exclusion Not_XID 180B 180E Default_Ignorable 1810 1819 Exclusion 1820 1878 Exclusion 1880 18A8 Exclusion 18A9 Uncommon_Use Exclusion 18AA Exclusion 18B0 18F5 Limited_Use 1900 191E Limited_Use 1920 192B Limited_Use 1930 193B Limited_Use 1940 Limited_Use Not_XID 1944 1945 Limited_Use Not_XID 1946 196D Limited_Use 1970 1974 Limited_Use 1980 19AB Limited_Use 19B0 19C9 Limited_Use 19D0 19DA Limited_Use 19DE 19DF Limited_Use Not_XID 19E0 19FF Not_XID 1A00 1A1B Exclusion 1A1E 1A1F Exclusion Not_XID 1A20 1A5E Limited_Use 1A60 1A7C Limited_Use 1A7F 1A89 Limited_Use 1A90 1A99 Limited_Use 1AA0 1AA6 Limited_Use Not_XID 1AA7 Limited_Use 1AA8 1AAD Limited_Use Not_XID 1AB0 1ABD Obsolete 1ABE Not_XID 1ABF 1AC0 Technical 1B00 1B4B Limited_Use 1B50 1B59 Limited_Use 1B5A 1B6A Limited_Use Not_XID 1B6B 1B73 Limited_Use 1B74 1B7C Limited_Use Not_XID 1B80 1BF3 Limited_Use 1BFC 1BFF Limited_Use Not_XID 1C00 1C37 Limited_Use 1C3B 1C3F Limited_Use Not_XID 1C40 1C49 Limited_Use 1C4D 1C7D Limited_Use 1C7E 1C7F Limited_Use Not_XID 1C80 1C88 Obsolete 1C90 1CBA Recommended 1CBD 1CBF Recommended 1CC0 1CC7 Limited_Use Not_XID 1CD0 1CD2 Obsolete 1CD3 Obsolete Not_XID 1CD4 1CF9 Obsolete 1CFA Exclusion 1D00 1D2B Technical 1D2C 1D2E Not_NFKC 1D2F Technical 1D30 1D3A Not_NFKC 1D3B Technical 1D3C 1D4D Not_NFKC 1D4E Technical 1D4F 1D6A Not_NFKC 1D6B 1D77 Technical 1D78 Not_NFKC 1D79 1D9A Technical 1D9B 1DBF Not_NFKC 1DC0 1DC3 Technical Obsolete 1DC4 1DCD Technical 1DCE Technical Obsolete 1DCF 1DD0 Technical 1DD1 1DE6 Technical Obsolete 1DE7 1DF9 Technical 1DFB 1DFF Technical 1E00 1E99 Recommended 1E9A 1E9B Not_NFKC 1E9C 1E9D Technical 1E9E Recommended 1E9F Technical 1EA0 1EF9 Recommended 1EFA 1EFF Technical 1F00 1F15 Recommended 1F18 1F1D Recommended 1F20 1F45 Recommended 1F48 1F4D Recommended 1F50 1F57 Recommended 1F59 Recommended 1F5B Recommended 1F5D Recommended 1F5F 1F70 Recommended 1F71 Not_NFKC 1F72 Recommended 1F73 Not_NFKC 1F74 Recommended 1F75 Not_NFKC 1F76 Recommended 1F77 Not_NFKC 1F78 Recommended 1F79 Not_NFKC 1F7A Recommended 1F7B Not_NFKC 1F7C Recommended 1F7D Not_NFKC 1F80 1FB4 Recommended 1FB6 1FBA Recommended 1FBB Not_NFKC 1FBC Recommended 1FBD 1FC1 Not_NFKC 1FC2 1FC4 Recommended 1FC6 1FC8 Recommended 1FC9 Not_NFKC 1FCA Recommended 1FCB Not_NFKC 1FCC Recommended 1FCD 1FCF Not_NFKC 1FD0 1FD2 Recommended 1FD3 Not_NFKC 1FD6 1FDA Recommended 1FDB Not_NFKC 1FDD 1FDF Not_NFKC 1FE0 1FE2 Recommended 1FE3 Not_NFKC 1FE4 1FEA Recommended 1FEB Not_NFKC 1FEC Recommended 1FED 1FEF Not_NFKC 1FF2 1FF4 Recommended 1FF6 1FF8 Recommended 1FF9 Not_NFKC 1FFA Recommended 1FFB Not_NFKC 1FFC Recommended 1FFD 1FFE Not_NFKC 2000 200A Not_NFKC 200B Default_Ignorable 200C 200D Inclusion 200E 200F Default_Ignorable 2010 Inclusion 2011 Not_NFKC 2012 2016 Not_XID 2017 Not_NFKC 2018 Not_XID 2019 Inclusion 201A 2023 Not_XID 2024 2026 Not_NFKC 2027 Inclusion 2028 2029 Not_XID 202A 202E Default_Ignorable 202F Not_NFKC 2030 2032 Not_XID 2033 2034 Not_NFKC 2035 Not_XID 2036 2037 Not_NFKC 2038 203B Not_XID 203C Not_NFKC 203D Not_XID 203E Not_NFKC 203F 2040 Technical 2041 2046 Not_XID 2047 2049 Not_NFKC 204A 2053 Not_XID 2054 Uncommon_Use 2055 Not_XID 2056 Obsolete Not_XID 2057 Not_NFKC 2058 205E Obsolete Not_XID 205F Not_NFKC 2060 2064 Default_Ignorable 2066 2069 Default_Ignorable 206A 206F Deprecated 2070 2071 Not_NFKC 2074 208E Not_NFKC 2090 209C Not_NFKC 20A0 20A7 Not_XID 20A8 Not_NFKC 20A9 20BF Not_XID 20D0 20DC Technical 20DD 20E0 Technical Not_XID 20E1 Technical 20E2 20E4 Technical Not_XID 20E5 20F0 Technical 2100 2103 Not_NFKC 2104 Not_XID 2105 2107 Not_NFKC 2108 Not_XID 2109 2113 Not_NFKC 2114 Not_XID 2115 2116 Not_NFKC 2117 Not_XID 2118 Technical 2119 211D Not_NFKC 211E 211F Not_XID 2120 2122 Not_NFKC 2123 Not_XID 2124 Not_NFKC 2125 Not_XID 2126 Not_NFKC 2127 Obsolete Not_XID 2128 Not_NFKC 2129 Not_XID 212A 212D Not_NFKC 212E Technical 212F 2131 Not_NFKC 2132 Obsolete 2133 2139 Not_NFKC 213A Not_XID 213B 2140 Not_NFKC 2141 2144 Not_XID 2145 2149 Not_NFKC 214A 214D Not_XID 214E Obsolete 214F Obsolete Not_XID 2150 217F Not_NFKC 2180 2183 Technical Obsolete 2184 2188 Obsolete 2189 Not_NFKC 218A 218B Uncommon_Use Not_XID 2190 222B Not_XID 222C 222D Not_NFKC 222E Not_XID 222F 2230 Not_NFKC 2231 2328 Not_XID 2329 232A Deprecated 232B 2426 Not_XID 2440 244A Not_XID 2460 24EA Not_NFKC 24EB 24FF Technical Not_XID 2500 27FF Not_XID 2800 28FF Technical Not_XID 2900 2A0B Not_XID 2A0C Not_NFKC 2A0D 2A73 Not_XID 2A74 2A76 Not_NFKC 2A77 2ADB Not_XID 2ADC Not_NFKC 2ADD 2B73 Not_XID 2B76 2B95 Not_XID 2B97 2BEB Not_XID 2BEC 2BEF Uncommon_Use Not_XID 2BF0 2BFF Not_XID 2C00 2C2E Exclusion 2C30 2C5E Exclusion 2C60 2C67 Technical 2C68 2C6C Uncommon_Use 2C6D 2C76 Obsolete 2C77 2C7B Technical 2C7C 2C7D Not_NFKC 2C7E 2C7F Obsolete 2C80 2CE4 Exclusion 2CE5 2CEA Exclusion Not_XID 2CEB 2CEF Exclusion 2CF0 2CF1 Technical Exclusion 2CF2 2CF3 Exclusion 2CF9 2CFF Exclusion Not_XID 2D00 2D25 Obsolete 2D27 Recommended 2D2D Recommended 2D30 2D67 Limited_Use 2D6F Not_NFKC 2D70 Limited_Use Not_XID 2D7F Limited_Use 2D80 2D96 Recommended 2DA0 2DA6 Recommended 2DA8 2DAE Recommended 2DB0 2DB6 Recommended 2DB8 2DBE Recommended 2DC0 2DC6 Recommended 2DC8 2DCE Recommended 2DD0 2DD6 Recommended 2DD8 2DDE Recommended 2DE0 2DFF Obsolete 2E00 2E0D Technical Obsolete Not_XID 2E0E 2E16 Obsolete Not_XID 2E17 2E29 Not_XID 2E2A 2E32 Obsolete Not_XID 2E33 2E34 Not_XID 2E35 Obsolete Not_XID 2E36 2E38 Not_XID 2E39 Obsolete Not_XID 2E3A 2E52 Not_XID 2E80 2E99 Not_XID 2E9B 2E9E Not_XID 2E9F Not_NFKC 2EA0 2EF2 Not_XID 2EF3 Not_NFKC 2F00 2FD5 Not_NFKC 2FF0 2FFB Not_XID 3000 Not_NFKC 3001 3004 Not_XID 3005 3007 Recommended 3008 301D Not_XID 301E Obsolete Not_XID 301F 3020 Not_XID 3021 302D Technical 302E 302F Technical Obsolete 3030 Not_XID 3031 3035 Technical 3036 Not_NFKC 3037 Not_XID 3038 303A Not_NFKC 303B 303C Technical 303D 303F Not_XID 3041 3096 Recommended 3099 309A Recommended 309B 309C Not_NFKC 309D 309E Recommended 309F Not_NFKC 30A0 Inclusion 30A1 30FA Recommended 30FB Inclusion 30FC 30FE Recommended 30FF Not_NFKC 3105 312D Recommended 312E Obsolete 312F Recommended 3131 3163 Not_NFKC 3164 Default_Ignorable 3165 318E Not_NFKC 3190 3191 Not_XID 3192 319F Not_NFKC 31A0 31BF Recommended 31C0 31E3 Not_XID 31F0 31FF Technical 3200 321E Not_NFKC 3220 3247 Not_NFKC 3248 324F Not_XID 3250 327E Not_NFKC 327F Technical Not_XID 3280 33FF Not_NFKC 3400 4DBF Recommended 4DC0 4DFF Technical Not_XID 4E00 9FFC Recommended A000 A48C Limited_Use A490 A4C6 Limited_Use Not_XID A4D0 A4FD Limited_Use A4FE A4FF Limited_Use Not_XID A500 A60C Limited_Use A60D A60F Limited_Use Not_XID A610 A612 Limited_Use Obsolete A613 A629 Limited_Use A62A A62B Limited_Use Obsolete A640 A66E Obsolete A66F Uncommon_Use A670 A673 Obsolete Not_XID A674 A67B Obsolete A67C A67D Uncommon_Use A67E Not_XID A67F Recommended A680 A69B Obsolete A69C A69D Not_NFKC A69E Uncommon_Use Obsolete A69F Obsolete A6A0 A6F1 Limited_Use A6F2 A6F7 Limited_Use Not_XID A700 A707 Obsolete Not_XID A708 A716 Technical Not_XID A717 A71F Recommended A720 A721 Not_XID A722 A72F Technical Obsolete A730 A76F Obsolete A770 Not_NFKC A771 A787 Obsolete A788 Recommended A789 A78A Not_XID A78B A78C Uncommon_Use A78D Recommended A78E Technical A78F Uncommon_Use A790 A791 Obsolete A792 A793 Recommended A794 A7A9 Obsolete A7AA Recommended A7AB A7AD Obsolete A7AE Recommended A7AF Technical A7B0 A7B1 Obsolete A7B2 A7B7 Uncommon_Use A7B8 A7B9 Recommended A7BA A7BF Technical A7C2 A7CA Recommended A7F5 A7F7 Obsolete A7F8 A7F9 Not_NFKC A7FA Technical A7FB A7FF Obsolete A800 A827 Limited_Use A828 A82B Limited_Use Not_XID A82C Limited_Use A830 A839 Not_XID A840 A873 Exclusion A874 A877 Exclusion Not_XID A880 A8C5 Limited_Use A8CE A8CF Limited_Use Not_XID A8D0 A8D9 Limited_Use A8E0 A8F7 Obsolete A8F8 A8FA Obsolete Not_XID A8FB Obsolete A8FC Uncommon_Use Obsolete Not_XID A8FD Uncommon_Use Obsolete A8FE A8FF Obsolete A900 A92D Limited_Use A92E Not_XID A92F Limited_Use Not_XID A930 A953 Exclusion A95F Exclusion Not_XID A960 A97C Obsolete A980 A9C0 Limited_Use A9C1 A9CD Limited_Use Not_XID A9CF Limited_Use Exclusion A9D0 A9D9 Limited_Use A9DE A9DF Limited_Use Not_XID A9E0 A9E6 Obsolete A9E7 A9FE Recommended AA00 AA36 Limited_Use AA40 AA4D Limited_Use AA50 AA59 Limited_Use AA5C AA5F Limited_Use Not_XID AA60 AA76 Recommended AA77 AA79 Not_XID AA7A AA7F Recommended AA80 AAC2 Limited_Use AADB AADD Limited_Use AADE AADF Limited_Use Not_XID AAE0 AAEF Limited_Use AAF0 AAF1 Limited_Use Not_XID AAF2 AAF6 Limited_Use AB01 AB06 Recommended AB09 AB0E Recommended AB11 AB16 Recommended AB20 AB26 Recommended AB28 AB2E Recommended AB30 AB5A Obsolete AB5B Not_XID AB5C AB5F Not_NFKC AB60 AB63 Uncommon_Use AB64 AB65 Obsolete AB66 AB67 Recommended AB68 Technical AB69 Not_NFKC AB6A AB6B Not_XID AB70 ABEA Limited_Use ABEB Limited_Use Not_XID ABEC ABED Limited_Use ABF0 ABF9 Limited_Use AC00 D7A3 Recommended D7B0 D7C6 Obsolete D7CB D7FB Obsolete F900 FA0D Not_NFKC FA0E FA0F Recommended FA10 Not_NFKC FA11 Recommended FA12 Not_NFKC FA13 FA14 Recommended FA15 FA1E Not_NFKC FA1F Recommended FA20 Not_NFKC FA21 Recommended FA22 Not_NFKC FA23 FA24 Recommended FA25 FA26 Not_NFKC FA27 FA29 Recommended FA2A FA6D Not_NFKC FA70 FAD9 Not_NFKC FB00 FB06 Not_NFKC FB13 FB17 Not_NFKC FB1D Not_NFKC FB1E Uncommon_Use Technical FB1F FB36 Not_NFKC FB38 FB3C Not_NFKC FB3E Not_NFKC FB40 FB41 Not_NFKC FB43 FB44 Not_NFKC FB46 FBB1 Not_NFKC FBB2 FBC1 Technical Not_XID FBD3 FD3D Not_NFKC FD3E FD3F Technical Not_XID FD50 FD8F Not_NFKC FD92 FDC7 Not_NFKC FDF0 FDFC Not_NFKC FDFD Technical Not_XID FE00 FE0F Default_Ignorable FE10 FE19 Not_NFKC FE20 FE2D Technical FE2E FE2F Uncommon_Use Technical FE30 FE44 Not_NFKC FE45 FE46 Technical Not_XID FE47 FE52 Not_NFKC FE54 FE66 Not_NFKC FE68 FE6B Not_NFKC FE70 FE72 Not_NFKC FE73 Technical FE74 Not_NFKC FE76 FEFC Not_NFKC FEFF Default_Ignorable FF01 FF9F Not_NFKC FFA0 Default_Ignorable FFA1 FFBE Not_NFKC FFC2 FFC7 Not_NFKC FFCA FFCF Not_NFKC FFD2 FFD7 Not_NFKC FFDA FFDC Not_NFKC FFE0 FFE6 Not_NFKC FFE8 FFEE Not_NFKC FFF9 FFFD Not_XID 10000 1000B Exclusion 1000D 10026 Exclusion 10028 1003A Exclusion 1003C 1003D Exclusion 1003F 1004D Exclusion 10050 1005D Exclusion 10080 100FA Exclusion 10100 10102 Exclusion Not_XID 10107 10133 Exclusion Not_XID 10137 1013F Exclusion Not_XID 10140 10174 Obsolete 10175 1018E Not_XID 10190 1019C Not_XID 101A0 Not_XID 101D0 101FC Obsolete Not_XID 101FD Obsolete 10280 1029C Exclusion 102A0 102D0 Exclusion 102E0 Obsolete 102E1 102FB Obsolete Not_XID 10300 1031F Exclusion 10320 10323 Exclusion Not_XID 1032D 1034A Exclusion 10350 1037A Exclusion 10380 1039D Exclusion 1039F Exclusion Not_XID 103A0 103C3 Exclusion 103C8 103CF Exclusion 103D0 Exclusion Not_XID 103D1 103D5 Exclusion 10400 1049D Exclusion 104A0 104A9 Exclusion 104B0 104D3 Limited_Use 104D8 104FB Limited_Use 10500 10527 Exclusion 10530 10563 Exclusion 1056F Exclusion Not_XID 10600 10736 Exclusion 10740 10755 Exclusion 10760 10767 Exclusion 10800 10805 Exclusion 10808 Exclusion 1080A 10835 Exclusion 10837 10838 Exclusion 1083C Exclusion 1083F 10855 Exclusion 10857 1085F Exclusion Not_XID 10860 10876 Exclusion 10877 1087F Exclusion Not_XID 10880 1089E Exclusion 108A7 108AF Exclusion Not_XID 108E0 108F2 Exclusion 108F4 108F5 Exclusion 108FB 108FF Exclusion Not_XID 10900 10915 Exclusion 10916 1091B Exclusion Not_XID 1091F Exclusion Not_XID 10920 10939 Exclusion 1093F Exclusion Not_XID 10980 109B7 Exclusion 109BC 109BD Exclusion Not_XID 109BE 109BF Exclusion 109C0 109CF Exclusion Not_XID 109D2 109FF Exclusion Not_XID 10A00 10A03 Exclusion 10A05 10A06 Exclusion 10A0C 10A13 Exclusion 10A15 10A17 Exclusion 10A19 10A35 Exclusion 10A38 10A3A Exclusion 10A3F Exclusion 10A40 10A48 Exclusion Not_XID 10A50 10A58 Exclusion Not_XID 10A60 10A7C Exclusion 10A7D 10A7F Exclusion Not_XID 10A80 10A9C Exclusion 10A9D 10A9F Exclusion Not_XID 10AC0 10AC7 Exclusion 10AC8 Exclusion Not_XID 10AC9 10AE6 Exclusion 10AEB 10AF6 Exclusion Not_XID 10B00 10B35 Exclusion 10B39 10B3F Exclusion Not_XID 10B40 10B55 Exclusion 10B58 10B5F Exclusion Not_XID 10B60 10B72 Exclusion 10B78 10B7F Exclusion Not_XID 10B80 10B91 Exclusion 10B99 10B9C Exclusion Not_XID 10BA9 10BAF Exclusion Not_XID 10C00 10C48 Exclusion 10C80 10CB2 Exclusion 10CC0 10CF2 Exclusion 10CFA 10CFF Exclusion Not_XID 10D00 10D27 Limited_Use 10D30 10D39 Limited_Use 10E60 10E7E Not_XID 10E80 10EA9 Exclusion 10EAB 10EAC Exclusion 10EAD Exclusion Not_XID 10EB0 10EB1 Exclusion 10F00 10F1C Exclusion 10F1D 10F26 Exclusion Not_XID 10F27 Exclusion 10F30 10F50 Exclusion 10F51 10F59 Exclusion Not_XID 10FB0 10FC4 Exclusion 10FC5 10FCB Exclusion Not_XID 10FE0 10FF6 Exclusion 11000 11046 Exclusion 11047 1104D Exclusion Not_XID 11052 11065 Exclusion Not_XID 11066 1106F Exclusion 1107F 110BA Exclusion 110BB 110C1 Exclusion Not_XID 110CD Exclusion Not_XID 110D0 110E8 Exclusion 110F0 110F9 Exclusion 11100 11134 Limited_Use 11136 1113F Limited_Use 11140 11143 Limited_Use Not_XID 11144 11147 Limited_Use 11150 11173 Exclusion 11174 11175 Exclusion Not_XID 11176 Exclusion 11180 111C4 Exclusion 111C5 111C8 Exclusion Not_XID 111C9 111CC Exclusion 111CD Exclusion Not_XID 111CE 111DA Exclusion 111DB Exclusion Not_XID 111DC Exclusion 111DD 111DF Exclusion Not_XID 111E1 111F4 Not_XID 11200 11211 Exclusion 11213 11237 Exclusion 11238 1123D Exclusion Not_XID 1123E Exclusion 11280 11286 Exclusion 11288 Exclusion 1128A 1128D Exclusion 1128F 1129D Exclusion 1129F 112A8 Exclusion 112A9 Exclusion Not_XID 112B0 112EA Exclusion 112F0 112F9 Exclusion 11300 Exclusion 11301 Recommended 11302 Exclusion 11303 Recommended 11305 1130C Exclusion 1130F 11310 Exclusion 11313 11328 Exclusion 1132A 11330 Exclusion 11332 11333 Exclusion 11335 11339 Exclusion 1133B 1133C Recommended 1133D 11344 Exclusion 11347 11348 Exclusion 1134B 1134D Exclusion 11350 Exclusion 11357 Exclusion 1135D 11363 Exclusion 11366 1136C Exclusion 11370 11374 Exclusion 11400 1144A Limited_Use 1144B 1144F Limited_Use Not_XID 11450 11459 Limited_Use 1145A 1145B Limited_Use Not_XID 1145D Limited_Use Not_XID 1145E 11461 Limited_Use 11480 114C5 Exclusion 114C6 Exclusion Not_XID 114C7 Exclusion 114D0 114D9 Exclusion 11580 115B5 Exclusion 115B8 115C0 Exclusion 115C1 115D7 Exclusion Not_XID 115D8 115DD Exclusion 11600 11640 Exclusion 11641 11643 Exclusion Not_XID 11644 Exclusion 11650 11659 Exclusion 11660 1166C Exclusion Not_XID 11680 116B8 Exclusion 116C0 116C9 Exclusion 11700 1171A Exclusion 1171D 1172B Exclusion 11730 11739 Exclusion 1173A 1173F Exclusion Not_XID 11800 1183A Exclusion 1183B Exclusion Not_XID 118A0 118E9 Exclusion 118EA 118F2 Exclusion Not_XID 118FF 11906 Exclusion 11909 Exclusion 1190C 11913 Exclusion 11915 11916 Exclusion 11918 11935 Exclusion 11937 11938 Exclusion 1193B 11943 Exclusion 11944 11946 Exclusion Not_XID 11950 11959 Exclusion 119A0 119A7 Exclusion 119AA 119D7 Exclusion 119DA 119E1 Exclusion 119E2 Exclusion Not_XID 119E3 119E4 Exclusion 11A00 11A3E Exclusion 11A3F 11A46 Exclusion Not_XID 11A47 Exclusion 11A50 11A99 Exclusion 11A9A 11A9C Exclusion Not_XID 11A9D Exclusion 11A9E 11AA2 Exclusion Not_XID 11AC0 11AF8 Exclusion 11C00 11C08 Exclusion 11C0A 11C36 Exclusion 11C38 11C40 Exclusion 11C41 11C45 Exclusion Not_XID 11C50 11C59 Exclusion 11C5A 11C6C Exclusion Not_XID 11C70 11C71 Exclusion Not_XID 11C72 11C8F Exclusion 11C92 11CA7 Exclusion 11CA9 11CB6 Exclusion 11D00 11D06 Exclusion 11D08 11D09 Exclusion 11D0B 11D36 Exclusion 11D3A Exclusion 11D3C 11D3D Exclusion 11D3F 11D47 Exclusion 11D50 11D59 Exclusion 11D60 11D65 Limited_Use 11D67 11D68 Limited_Use 11D6A 11D8E Limited_Use 11D90 11D91 Limited_Use 11D93 11D98 Limited_Use 11DA0 11DA9 Limited_Use 11EE0 11EF6 Exclusion 11EF7 11EF8 Exclusion Not_XID 11FB0 Limited_Use 11FC0 11FF1 Not_XID 11FFF Not_XID 12000 12399 Exclusion 12400 1246E Exclusion 12470 12474 Exclusion Not_XID 12480 12543 Exclusion 13000 1342E Exclusion 13430 13438 Exclusion Not_XID 14400 14646 Exclusion 16800 16A38 Limited_Use 16A40 16A5E Uncommon_Use Exclusion 16A60 16A69 Uncommon_Use Exclusion 16A6E 16A6F Exclusion Not_XID 16AD0 16AED Exclusion 16AF0 16AF4 Exclusion 16AF5 Exclusion Not_XID 16B00 16B36 Exclusion 16B37 16B3F Exclusion Not_XID 16B40 16B43 Exclusion 16B44 16B45 Exclusion Not_XID 16B50 16B59 Exclusion 16B5B 16B61 Exclusion Not_XID 16B63 16B77 Exclusion 16B7D 16B8F Exclusion 16E40 16E7F Exclusion 16E80 16E9A Exclusion Not_XID 16F00 16F4A Limited_Use 16F4F 16F87 Limited_Use 16F8F 16F9F Limited_Use 16FE0 16FE1 Exclusion 16FE2 Not_XID 16FE3 Obsolete 16FE4 Exclusion 16FF0 16FF1 Recommended 17000 187F7 Exclusion 18800 18CD5 Exclusion 18D00 18D08 Exclusion 1B000 1B11E Obsolete 1B150 1B152 Recommended 1B164 1B167 Recommended 1B170 1B2FB Exclusion 1BC00 1BC6A Exclusion 1BC70 1BC7C Exclusion 1BC80 1BC88 Exclusion 1BC90 1BC99 Exclusion 1BC9C Exclusion Not_XID 1BC9D 1BC9E Exclusion 1BC9F Exclusion Not_XID 1BCA0 1BCA3 Default_Ignorable 1D000 1D0F5 Technical Not_XID 1D100 1D126 Technical Not_XID 1D129 1D15D Technical Not_XID 1D15E 1D164 Not_NFKC 1D165 1D169 Technical 1D16A 1D16C Technical Not_XID 1D16D 1D172 Technical 1D173 1D17A Default_Ignorable 1D17B 1D182 Technical 1D183 1D184 Technical Not_XID 1D185 1D18B Technical 1D18C 1D1A9 Technical Not_XID 1D1AA 1D1AD Technical 1D1AE 1D1BA Technical Not_XID 1D1BB 1D1C0 Not_NFKC 1D1C1 1D1DD Technical Not_XID 1D1DE 1D1E8 Uncommon_Use Technical Not_XID 1D200 1D241 Obsolete Not_XID 1D242 1D244 Technical Obsolete 1D245 Obsolete Not_XID 1D2E0 1D2F3 Not_XID 1D300 1D356 Technical Not_XID 1D360 1D378 Not_XID 1D400 1D454 Not_NFKC 1D456 1D49C Not_NFKC 1D49E 1D49F Not_NFKC 1D4A2 Not_NFKC 1D4A5 1D4A6 Not_NFKC 1D4A9 1D4AC Not_NFKC 1D4AE 1D4B9 Not_NFKC 1D4BB Not_NFKC 1D4BD 1D4C3 Not_NFKC 1D4C5 1D505 Not_NFKC 1D507 1D50A Not_NFKC 1D50D 1D514 Not_NFKC 1D516 1D51C Not_NFKC 1D51E 1D539 Not_NFKC 1D53B 1D53E Not_NFKC 1D540 1D544 Not_NFKC 1D546 Not_NFKC 1D54A 1D550 Not_NFKC 1D552 1D6A5 Not_NFKC 1D6A8 1D7CB Not_NFKC 1D7CE 1D7FF Not_NFKC 1D800 1D9FF Exclusion Not_XID 1DA00 1DA36 Exclusion 1DA37 1DA3A Exclusion Not_XID 1DA3B 1DA6C Exclusion 1DA6D 1DA74 Exclusion Not_XID 1DA75 Exclusion 1DA76 1DA83 Exclusion Not_XID 1DA84 Exclusion 1DA85 1DA8B Exclusion Not_XID 1DA9B 1DA9F Exclusion 1DAA1 1DAAF Exclusion 1E000 1E006 Exclusion 1E008 1E018 Exclusion 1E01B 1E021 Exclusion 1E023 1E024 Exclusion 1E026 1E02A Exclusion 1E100 1E12C Limited_Use 1E130 1E13D Limited_Use 1E140 1E149 Limited_Use 1E14E Limited_Use 1E14F Limited_Use Not_XID 1E2C0 1E2F9 Limited_Use 1E2FF Limited_Use Not_XID 1E800 1E8C4 Exclusion 1E8C7 1E8CF Exclusion Not_XID 1E8D0 1E8D6 Exclusion 1E900 1E94B Limited_Use 1E950 1E959 Limited_Use 1E95E 1E95F Limited_Use Not_XID 1EC71 1ECB4 Not_XID 1ED01 1ED3D Not_XID 1EE00 1EE03 Not_NFKC 1EE05 1EE1F Not_NFKC 1EE21 1EE22 Not_NFKC 1EE24 Not_NFKC 1EE27 Not_NFKC 1EE29 1EE32 Not_NFKC 1EE34 1EE37 Not_NFKC 1EE39 Not_NFKC 1EE3B Not_NFKC 1EE42 Not_NFKC 1EE47 Not_NFKC 1EE49 Not_NFKC 1EE4B Not_NFKC 1EE4D 1EE4F Not_NFKC 1EE51 1EE52 Not_NFKC 1EE54 Not_NFKC 1EE57 Not_NFKC 1EE59 Not_NFKC 1EE5B Not_NFKC 1EE5D Not_NFKC 1EE5F Not_NFKC 1EE61 1EE62 Not_NFKC 1EE64 Not_NFKC 1EE67 1EE6A Not_NFKC 1EE6C 1EE72 Not_NFKC 1EE74 1EE77 Not_NFKC 1EE79 1EE7C Not_NFKC 1EE7E Not_NFKC 1EE80 1EE89 Not_NFKC 1EE8B 1EE9B Not_NFKC 1EEA1 1EEA3 Not_NFKC 1EEA5 1EEA9 Not_NFKC 1EEAB 1EEBB Not_NFKC 1EEF0 1EEF1 Not_XID 1F000 1F02B Not_XID 1F030 1F093 Not_XID 1F0A0 1F0AE Not_XID 1F0B1 1F0BF Not_XID 1F0C1 1F0CF Not_XID 1F0D1 1F0F5 Not_XID 1F100 1F10A Not_NFKC 1F10B 1F10F Not_XID 1F110 1F12E Not_NFKC 1F12F Not_XID 1F130 1F14F Not_NFKC 1F150 1F169 Not_XID 1F16A 1F16C Not_NFKC 1F16D 1F18F Not_XID 1F190 Not_NFKC 1F191 1F1AD Not_XID 1F1E6 1F1FF Not_XID 1F200 1F202 Not_NFKC 1F210 1F23B Not_NFKC 1F240 1F248 Not_NFKC 1F250 1F251 Not_NFKC 1F260 1F265 Not_XID 1F300 1F54E Not_XID 1F54F Uncommon_Use Not_XID 1F550 1F6D7 Not_XID 1F6E0 1F6EC Not_XID 1F6F0 1F6FC Not_XID 1F700 1F773 Not_XID 1F780 1F7D8 Not_XID 1F7E0 1F7EB Not_XID 1F800 1F80B Not_XID 1F810 1F847 Not_XID 1F850 1F859 Not_XID 1F860 1F887 Not_XID 1F890 1F8AD Not_XID 1F8B0 1F8B1 Not_XID 1F900 1F978 Not_XID 1F97A 1F9CB Not_XID 1F9CD 1FA53 Not_XID 1FA60 1FA6D Not_XID 1FA70 1FA74 Not_XID 1FA78 1FA7A Not_XID 1FA80 1FA86 Not_XID 1FA90 1FAA8 Not_XID 1FAB0 1FAB6 Not_XID 1FAC0 1FAC2 Not_XID 1FAD0 1FAD6 Not_XID 1FB00 1FB92 Not_XID 1FB94 1FBCA Not_XID 1FBF0 1FBF9 Not_NFKC 20000 2A6DD Recommended 2A700 2B734 Recommended 2B740 2B81D Recommended 2B820 2CEA1 Recommended 2CEB0 2EBE0 Recommended 2F800 2FA1D Not_NFKC 30000 3134A Recommended E0001 Deprecated E0020 E007F Default_Ignorable E0100 E01EF Default_Ignorable END PK ! �ζh h 5.34.0/unicore/To/Identifi.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToIdentifierStatus'}{'format'} = 's'; # string $Unicode::UCD::SwashInfo{'ToIdentifierStatus'}{'missing'} = 'Restricted'; return <<'END'; 27 Allowed 2D 2E Allowed 30 3A Allowed 41 5A Allowed 5F Allowed 61 7A Allowed B7 Allowed C0 D6 Allowed D8 F6 Allowed F8 131 Allowed 134 13E Allowed 141 148 Allowed 14A 17E Allowed 18F Allowed 1A0 1A1 Allowed 1AF 1B0 Allowed 1CD 1DC Allowed 1DE 1E3 Allowed 1E6 1F0 Allowed 1F4 1F5 Allowed 1F8 21B Allowed 21E 21F Allowed 226 233 Allowed 259 Allowed 2BB 2BC Allowed 2EC Allowed 300 304 Allowed 306 30C Allowed 30F 311 Allowed 313 314 Allowed 31B Allowed 323 328 Allowed 32D 32E Allowed 330 331 Allowed 335 Allowed 338 339 Allowed 342 Allowed 345 Allowed 375 Allowed 37B 37D Allowed 386 Allowed 388 38A Allowed 38C Allowed 38E 3A1 Allowed 3A3 3CE Allowed 3FC 45F Allowed 48A 4FF Allowed 510 529 Allowed 52E 52F Allowed 531 556 Allowed 559 Allowed 561 586 Allowed 58A Allowed 5B4 Allowed 5D0 5EA Allowed 5EF 5F4 Allowed 620 63F Allowed 641 655 Allowed 660 669 Allowed 670 672 Allowed 674 Allowed 679 68D Allowed 68F 6A0 Allowed 6A2 6D3 Allowed 6D5 Allowed 6E5 6E6 Allowed 6EE 6FF Allowed 750 7B1 Allowed 8A0 8AC Allowed 8B2 Allowed 8B6 8C7 Allowed 901 94D Allowed 94F 950 Allowed 956 957 Allowed 960 963 Allowed 966 96F Allowed 971 977 Allowed 979 97F Allowed 981 983 Allowed 985 98C Allowed 98F 990 Allowed 993 9A8 Allowed 9AA 9B0 Allowed 9B2 Allowed 9B6 9B9 Allowed 9BC 9C4 Allowed 9C7 9C8 Allowed 9CB 9CE Allowed 9D7 Allowed 9E0 9E3 Allowed 9E6 9F1 Allowed 9FE Allowed A01 A03 Allowed A05 A0A Allowed A0F A10 Allowed A13 A28 Allowed A2A A30 Allowed A32 Allowed A35 Allowed A38 A39 Allowed A3C Allowed A3E A42 Allowed A47 A48 Allowed A4B A4D Allowed A5C Allowed A66 A74 Allowed A81 A83 Allowed A85 A8D Allowed A8F A91 Allowed A93 AA8 Allowed AAA AB0 Allowed AB2 AB3 Allowed AB5 AB9 Allowed ABC AC5 Allowed AC7 AC9 Allowed ACB ACD Allowed AD0 Allowed AE0 AE3 Allowed AE6 AEF Allowed AFA AFF Allowed B01 B03 Allowed B05 B0C Allowed B0F B10 Allowed B13 B28 Allowed B2A B30 Allowed B32 B33 Allowed B35 B39 Allowed B3C B43 Allowed B47 B48 Allowed B4B B4D Allowed B55 B57 Allowed B5F B61 Allowed B66 B6F Allowed B71 Allowed B82 B83 Allowed B85 B8A Allowed B8E B90 Allowed B92 B95 Allowed B99 B9A Allowed B9C Allowed B9E B9F Allowed BA3 BA4 Allowed BA8 BAA Allowed BAE BB9 Allowed BBE BC2 Allowed BC6 BC8 Allowed BCA BCD Allowed BD0 Allowed BD7 Allowed BE6 BEF Allowed C01 C0C Allowed C0E C10 Allowed C12 C28 Allowed C2A C33 Allowed C35 C39 Allowed C3D C44 Allowed C46 C48 Allowed C4A C4D Allowed C55 C56 Allowed C60 C61 Allowed C66 C6F Allowed C80 Allowed C82 C83 Allowed C85 C8C Allowed C8E C90 Allowed C92 CA8 Allowed CAA CB3 Allowed CB5 CB9 Allowed CBC CC4 Allowed CC6 CC8 Allowed CCA CCD Allowed CD5 CD6 Allowed CE0 CE3 Allowed CE6 CEF Allowed CF1 CF2 Allowed D00 Allowed D02 D03 Allowed D05 D0C Allowed D0E D10 Allowed D12 D3A Allowed D3D D43 Allowed D46 D48 Allowed D4A D4E Allowed D54 D57 Allowed D60 D61 Allowed D66 D6F Allowed D7A D7F Allowed D82 D83 Allowed D85 D8E Allowed D91 D96 Allowed D9A DA5 Allowed DA7 DB1 Allowed DB3 DBB Allowed DBD Allowed DC0 DC6 Allowed DCA Allowed DCF DD4 Allowed DD6 Allowed DD8 DDE Allowed DF2 Allowed E01 E32 Allowed E34 E3A Allowed E40 E4E Allowed E50 E59 Allowed E81 E82 Allowed E84 Allowed E86 E8A Allowed E8C EA3 Allowed EA5 Allowed EA7 EB2 Allowed EB4 EBD Allowed EC0 EC4 Allowed EC6 Allowed EC8 ECD Allowed ED0 ED9 Allowed EDE EDF Allowed F00 Allowed F0B Allowed F20 F29 Allowed F35 Allowed F37 Allowed F3E F42 Allowed F44 F47 Allowed F49 F4C Allowed F4E F51 Allowed F53 F56 Allowed F58 F5B Allowed F5D F68 Allowed F6A F6C Allowed F71 F72 Allowed F74 Allowed F7A F80 Allowed F82 F84 Allowed F86 F92 Allowed F94 F97 Allowed F99 F9C Allowed F9E FA1 Allowed FA3 FA6 Allowed FA8 FAB Allowed FAD FB8 Allowed FBA FBC Allowed FC6 Allowed 1000 1049 Allowed 1050 109D Allowed 10C7 Allowed 10CD Allowed 10D0 10F0 Allowed 10F7 10FA Allowed 10FD 10FF Allowed 1200 1248 Allowed 124A 124D Allowed 1250 1256 Allowed 1258 Allowed 125A 125D Allowed 1260 1288 Allowed 128A 128D Allowed 1290 12B0 Allowed 12B2 12B5 Allowed 12B8 12BE Allowed 12C0 Allowed 12C2 12C5 Allowed 12C8 12D6 Allowed 12D8 1310 Allowed 1312 1315 Allowed 1318 135A Allowed 135D 135F Allowed 1380 138F Allowed 1780 17A2 Allowed 17A5 17A7 Allowed 17A9 17B3 Allowed 17B6 17CA Allowed 17D2 Allowed 17D7 Allowed 17DC Allowed 17E0 17E9 Allowed 1C90 1CBA Allowed 1CBD 1CBF Allowed 1E00 1E99 Allowed 1E9E Allowed 1EA0 1EF9 Allowed 1F00 1F15 Allowed 1F18 1F1D Allowed 1F20 1F45 Allowed 1F48 1F4D Allowed 1F50 1F57 Allowed 1F59 Allowed 1F5B Allowed 1F5D Allowed 1F5F 1F70 Allowed 1F72 Allowed 1F74 Allowed 1F76 Allowed 1F78 Allowed 1F7A Allowed 1F7C Allowed 1F80 1FB4 Allowed 1FB6 1FBA Allowed 1FBC Allowed 1FC2 1FC4 Allowed 1FC6 1FC8 Allowed 1FCA Allowed 1FCC Allowed 1FD0 1FD2 Allowed 1FD6 1FDA Allowed 1FE0 1FE2 Allowed 1FE4 1FEA Allowed 1FEC Allowed 1FF2 1FF4 Allowed 1FF6 1FF8 Allowed 1FFA Allowed 1FFC Allowed 200C 200D Allowed 2010 Allowed 2019 Allowed 2027 Allowed 2D27 Allowed 2D2D Allowed 2D80 2D96 Allowed 2DA0 2DA6 Allowed 2DA8 2DAE Allowed 2DB0 2DB6 Allowed 2DB8 2DBE Allowed 2DC0 2DC6 Allowed 2DC8 2DCE Allowed 2DD0 2DD6 Allowed 2DD8 2DDE Allowed 3005 3007 Allowed 3041 3096 Allowed 3099 309A Allowed 309D 309E Allowed 30A0 30FE Allowed 3105 312D Allowed 312F Allowed 31A0 31BF Allowed 3400 4DBF Allowed 4E00 9FFC Allowed A67F Allowed A717 A71F Allowed A788 Allowed A78D Allowed A792 A793 Allowed A7AA Allowed A7AE Allowed A7B8 A7B9 Allowed A7C2 A7CA Allowed A9E7 A9FE Allowed AA60 AA76 Allowed AA7A AA7F Allowed AB01 AB06 Allowed AB09 AB0E Allowed AB11 AB16 Allowed AB20 AB26 Allowed AB28 AB2E Allowed AB66 AB67 Allowed AC00 D7A3 Allowed FA0E FA0F Allowed FA11 Allowed FA13 FA14 Allowed FA1F Allowed FA21 Allowed FA23 FA24 Allowed FA27 FA29 Allowed 11301 Allowed 11303 Allowed 1133B 1133C Allowed 16FF0 16FF1 Allowed 1B150 1B152 Allowed 1B164 1B167 Allowed 20000 2A6DD Allowed 2A700 2B734 Allowed 2B740 2B81D Allowed 2B820 2CEA1 Allowed 2CEB0 2EBE0 Allowed 30000 3134A Allowed END PK ! �lD. D. 5.34.0/unicore/To/Tc.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The mappings in the non-hash portion of this file must be modified to get the # correct values by adding the code point ordinal number to each one that is # numeric. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToTc'}{'format'} = 'ax'; # mapped value in hex; some entries need adjustment $Unicode::UCD::SwashInfo{'ToTc'}{'specials_name'} = 'Unicode::UCD::ToSpecTc'; # Name of hash of special mappings $Unicode::UCD::SwashInfo{'ToTc'}{'missing'} = '0'; # code point maps to itself # Some code points require special handling because their mappings are each to # multiple code points. These do not appear in the main body, but are defined # in the hash below. # Each key is the string of N bytes that together make up the UTF-8 encoding # for the code point. (i.e. the same as looking at the code point's UTF-8 # under "use bytes"). Each value is the UTF-8 of the translation, for speed. %Unicode::UCD::ToSpecTc = ( "\xC3\x9F" => "\x{0053}\x{0073}", # U+00DF => 0053 0073 "\xC5\x89" => "\x{02BC}\x{004E}", # U+0149 => 02BC 004E "\xC7\xB0" => "\x{004A}\x{030C}", # U+01F0 => 004A 030C "\xCE\x90" => "\x{0399}\x{0308}\x{0301}", # U+0390 => 0399 0308 0301 "\xCE\xB0" => "\x{03A5}\x{0308}\x{0301}", # U+03B0 => 03A5 0308 0301 "\xD6\x87" => "\x{0535}\x{0582}", # U+0587 => 0535 0582 "\xE1\xBA\x96" => "\x{0048}\x{0331}", # U+1E96 => 0048 0331 "\xE1\xBA\x97" => "\x{0054}\x{0308}", # U+1E97 => 0054 0308 "\xE1\xBA\x98" => "\x{0057}\x{030A}", # U+1E98 => 0057 030A "\xE1\xBA\x99" => "\x{0059}\x{030A}", # U+1E99 => 0059 030A "\xE1\xBA\x9A" => "\x{0041}\x{02BE}", # U+1E9A => 0041 02BE "\xE1\xBD\x90" => "\x{03A5}\x{0313}", # U+1F50 => 03A5 0313 "\xE1\xBD\x92" => "\x{03A5}\x{0313}\x{0300}", # U+1F52 => 03A5 0313 0300 "\xE1\xBD\x94" => "\x{03A5}\x{0313}\x{0301}", # U+1F54 => 03A5 0313 0301 "\xE1\xBD\x96" => "\x{03A5}\x{0313}\x{0342}", # U+1F56 => 03A5 0313 0342 "\xE1\xBE\xB2" => "\x{1FBA}\x{0345}", # U+1FB2 => 1FBA 0345 "\xE1\xBE\xB4" => "\x{0386}\x{0345}", # U+1FB4 => 0386 0345 "\xE1\xBE\xB6" => "\x{0391}\x{0342}", # U+1FB6 => 0391 0342 "\xE1\xBE\xB7" => "\x{0391}\x{0342}\x{0345}", # U+1FB7 => 0391 0342 0345 "\xE1\xBF\x82" => "\x{1FCA}\x{0345}", # U+1FC2 => 1FCA 0345 "\xE1\xBF\x84" => "\x{0389}\x{0345}", # U+1FC4 => 0389 0345 "\xE1\xBF\x86" => "\x{0397}\x{0342}", # U+1FC6 => 0397 0342 "\xE1\xBF\x87" => "\x{0397}\x{0342}\x{0345}", # U+1FC7 => 0397 0342 0345 "\xE1\xBF\x92" => "\x{0399}\x{0308}\x{0300}", # U+1FD2 => 0399 0308 0300 "\xE1\xBF\x93" => "\x{0399}\x{0308}\x{0301}", # U+1FD3 => 0399 0308 0301 "\xE1\xBF\x96" => "\x{0399}\x{0342}", # U+1FD6 => 0399 0342 "\xE1\xBF\x97" => "\x{0399}\x{0308}\x{0342}", # U+1FD7 => 0399 0308 0342 "\xE1\xBF\xA2" => "\x{03A5}\x{0308}\x{0300}", # U+1FE2 => 03A5 0308 0300 "\xE1\xBF\xA3" => "\x{03A5}\x{0308}\x{0301}", # U+1FE3 => 03A5 0308 0301 "\xE1\xBF\xA4" => "\x{03A1}\x{0313}", # U+1FE4 => 03A1 0313 "\xE1\xBF\xA6" => "\x{03A5}\x{0342}", # U+1FE6 => 03A5 0342 "\xE1\xBF\xA7" => "\x{03A5}\x{0308}\x{0342}", # U+1FE7 => 03A5 0308 0342 "\xE1\xBF\xB2" => "\x{1FFA}\x{0345}", # U+1FF2 => 1FFA 0345 "\xE1\xBF\xB4" => "\x{038F}\x{0345}", # U+1FF4 => 038F 0345 "\xE1\xBF\xB6" => "\x{03A9}\x{0342}", # U+1FF6 => 03A9 0342 "\xE1\xBF\xB7" => "\x{03A9}\x{0342}\x{0345}", # U+1FF7 => 03A9 0342 0345 "\xEF\xAC\x80" => "\x{0046}\x{0066}", # U+FB00 => 0046 0066 "\xEF\xAC\x81" => "\x{0046}\x{0069}", # U+FB01 => 0046 0069 "\xEF\xAC\x82" => "\x{0046}\x{006C}", # U+FB02 => 0046 006C "\xEF\xAC\x83" => "\x{0046}\x{0066}\x{0069}", # U+FB03 => 0046 0066 0069 "\xEF\xAC\x84" => "\x{0046}\x{0066}\x{006C}", # U+FB04 => 0046 0066 006C "\xEF\xAC\x85" => "\x{0053}\x{0074}", # U+FB05 => 0053 0074 "\xEF\xAC\x86" => "\x{0053}\x{0074}", # U+FB06 => 0053 0074 "\xEF\xAC\x93" => "\x{0544}\x{0576}", # U+FB13 => 0544 0576 "\xEF\xAC\x94" => "\x{0544}\x{0565}", # U+FB14 => 0544 0565 "\xEF\xAC\x95" => "\x{0544}\x{056B}", # U+FB15 => 0544 056B "\xEF\xAC\x96" => "\x{054E}\x{0576}", # U+FB16 => 054E 0576 "\xEF\xAC\x97" => "\x{0544}\x{056D}", # U+FB17 => 0544 056D ); return <<'END'; 61 7A 41 B5 39C E0 F6 C0 F8 FE D8 FF 178 101 100 103 102 105 104 107 106 109 108 10B 10A 10D 10C 10F 10E 111 110 113 112 115 114 117 116 119 118 11B 11A 11D 11C 11F 11E 121 120 123 122 125 124 127 126 129 128 12B 12A 12D 12C 12F 12E 131 49 133 132 135 134 137 136 13A 139 13C 13B 13E 13D 140 13F 142 141 144 143 146 145 148 147 14B 14A 14D 14C 14F 14E 151 150 153 152 155 154 157 156 159 158 15B 15A 15D 15C 15F 15E 161 160 163 162 165 164 167 166 169 168 16B 16A 16D 16C 16F 16E 171 170 173 172 175 174 177 176 17A 179 17C 17B 17E 17D 17F 53 180 243 183 182 185 184 188 187 18C 18B 192 191 195 1F6 199 198 19A 23D 19E 220 1A1 1A0 1A3 1A2 1A5 1A4 1A8 1A7 1AD 1AC 1B0 1AF 1B4 1B3 1B6 1B5 1B9 1B8 1BD 1BC 1BF 1F7 1C4 1C5 1C6 1C5 1C7 1C8 1C9 1C8 1CA 1CB 1CC 1CB 1CE 1CD 1D0 1CF 1D2 1D1 1D4 1D3 1D6 1D5 1D8 1D7 1DA 1D9 1DC 1DB 1DD 18E 1DF 1DE 1E1 1E0 1E3 1E2 1E5 1E4 1E7 1E6 1E9 1E8 1EB 1EA 1ED 1EC 1EF 1EE 1F1 1F2 1F3 1F2 1F5 1F4 1F9 1F8 1FB 1FA 1FD 1FC 1FF 1FE 201 200 203 202 205 204 207 206 209 208 20B 20A 20D 20C 20F 20E 211 210 213 212 215 214 217 216 219 218 21B 21A 21D 21C 21F 21E 223 222 225 224 227 226 229 228 22B 22A 22D 22C 22F 22E 231 230 233 232 23C 23B 23F 240 2C7E 242 241 247 246 249 248 24B 24A 24D 24C 24F 24E 250 2C6F 251 2C6D 252 2C70 253 181 254 186 256 257 189 259 18F 25B 190 25C A7AB 260 193 261 A7AC 263 194 265 A78D 266 A7AA 268 197 269 196 26A A7AE 26B 2C62 26C A7AD 26F 19C 271 2C6E 272 19D 275 19F 27D 2C64 280 1A6 282 A7C5 283 1A9 287 A7B1 288 1AE 289 244 28A 28B 1B1 28C 245 292 1B7 29D A7B2 29E A7B0 345 399 371 370 373 372 377 376 37B 37D 3FD 3AC 386 3AD 3AF 388 3B1 3C1 391 3C2 3A3 3C3 3CB 3A3 3CC 38C 3CD 3CE 38E 3D0 392 3D1 398 3D5 3A6 3D6 3A0 3D7 3CF 3D9 3D8 3DB 3DA 3DD 3DC 3DF 3DE 3E1 3E0 3E3 3E2 3E5 3E4 3E7 3E6 3E9 3E8 3EB 3EA 3ED 3EC 3EF 3EE 3F0 39A 3F1 3A1 3F2 3F9 3F3 37F 3F5 395 3F8 3F7 3FB 3FA 430 44F 410 450 45F 400 461 460 463 462 465 464 467 466 469 468 46B 46A 46D 46C 46F 46E 471 470 473 472 475 474 477 476 479 478 47B 47A 47D 47C 47F 47E 481 480 48B 48A 48D 48C 48F 48E 491 490 493 492 495 494 497 496 499 498 49B 49A 49D 49C 49F 49E 4A1 4A0 4A3 4A2 4A5 4A4 4A7 4A6 4A9 4A8 4AB 4AA 4AD 4AC 4AF 4AE 4B1 4B0 4B3 4B2 4B5 4B4 4B7 4B6 4B9 4B8 4BB 4BA 4BD 4BC 4BF 4BE 4C2 4C1 4C4 4C3 4C6 4C5 4C8 4C7 4CA 4C9 4CC 4CB 4CE 4CD 4CF 4C0 4D1 4D0 4D3 4D2 4D5 4D4 4D7 4D6 4D9 4D8 4DB 4DA 4DD 4DC 4DF 4DE 4E1 4E0 4E3 4E2 4E5 4E4 4E7 4E6 4E9 4E8 4EB 4EA 4ED 4EC 4EF 4EE 4F1 4F0 4F3 4F2 4F5 4F4 4F7 4F6 4F9 4F8 4FB 4FA 4FD 4FC 4FF 4FE 501 500 503 502 505 504 507 506 509 508 50B 50A 50D 50C 50F 50E 511 510 513 512 515 514 517 516 519 518 51B 51A 51D 51C 51F 51E 521 520 523 522 525 524 527 526 529 528 52B 52A 52D 52C 52F 52E 561 586 531 13F8 13FD 13F0 1C80 412 1C81 414 1C82 41E 1C83 1C84 421 1C85 422 1C86 42A 1C87 462 1C88 A64A 1D79 A77D 1D7D 2C63 1D8E A7C6 1E01 1E00 1E03 1E02 1E05 1E04 1E07 1E06 1E09 1E08 1E0B 1E0A 1E0D 1E0C 1E0F 1E0E 1E11 1E10 1E13 1E12 1E15 1E14 1E17 1E16 1E19 1E18 1E1B 1E1A 1E1D 1E1C 1E1F 1E1E 1E21 1E20 1E23 1E22 1E25 1E24 1E27 1E26 1E29 1E28 1E2B 1E2A 1E2D 1E2C 1E2F 1E2E 1E31 1E30 1E33 1E32 1E35 1E34 1E37 1E36 1E39 1E38 1E3B 1E3A 1E3D 1E3C 1E3F 1E3E 1E41 1E40 1E43 1E42 1E45 1E44 1E47 1E46 1E49 1E48 1E4B 1E4A 1E4D 1E4C 1E4F 1E4E 1E51 1E50 1E53 1E52 1E55 1E54 1E57 1E56 1E59 1E58 1E5B 1E5A 1E5D 1E5C 1E5F 1E5E 1E61 1E60 1E63 1E62 1E65 1E64 1E67 1E66 1E69 1E68 1E6B 1E6A 1E6D 1E6C 1E6F 1E6E 1E71 1E70 1E73 1E72 1E75 1E74 1E77 1E76 1E79 1E78 1E7B 1E7A 1E7D 1E7C 1E7F 1E7E 1E81 1E80 1E83 1E82 1E85 1E84 1E87 1E86 1E89 1E88 1E8B 1E8A 1E8D 1E8C 1E8F 1E8E 1E91 1E90 1E93 1E92 1E95 1E94 1E9B 1E60 1EA1 1EA0 1EA3 1EA2 1EA5 1EA4 1EA7 1EA6 1EA9 1EA8 1EAB 1EAA 1EAD 1EAC 1EAF 1EAE 1EB1 1EB0 1EB3 1EB2 1EB5 1EB4 1EB7 1EB6 1EB9 1EB8 1EBB 1EBA 1EBD 1EBC 1EBF 1EBE 1EC1 1EC0 1EC3 1EC2 1EC5 1EC4 1EC7 1EC6 1EC9 1EC8 1ECB 1ECA 1ECD 1ECC 1ECF 1ECE 1ED1 1ED0 1ED3 1ED2 1ED5 1ED4 1ED7 1ED6 1ED9 1ED8 1EDB 1EDA 1EDD 1EDC 1EDF 1EDE 1EE1 1EE0 1EE3 1EE2 1EE5 1EE4 1EE7 1EE6 1EE9 1EE8 1EEB 1EEA 1EED 1EEC 1EEF 1EEE 1EF1 1EF0 1EF3 1EF2 1EF5 1EF4 1EF7 1EF6 1EF9 1EF8 1EFB 1EFA 1EFD 1EFC 1EFF 1EFE 1F00 1F07 1F08 1F10 1F15 1F18 1F20 1F27 1F28 1F30 1F37 1F38 1F40 1F45 1F48 1F51 1F59 1F53 1F5B 1F55 1F5D 1F57 1F5F 1F60 1F67 1F68 1F70 1F71 1FBA 1F72 1F75 1FC8 1F76 1F77 1FDA 1F78 1F79 1FF8 1F7A 1F7B 1FEA 1F7C 1F7D 1FFA 1F80 1F87 1F88 1F90 1F97 1F98 1FA0 1FA7 1FA8 1FB0 1FB1 1FB8 1FB3 1FBC 1FBE 399 1FC3 1FCC 1FD0 1FD1 1FD8 1FE0 1FE1 1FE8 1FE5 1FEC 1FF3 1FFC 214E 2132 2170 217F 2160 2184 2183 24D0 24E9 24B6 2C30 2C5E 2C00 2C61 2C60 2C65 23A 2C66 23E 2C68 2C67 2C6A 2C69 2C6C 2C6B 2C73 2C72 2C76 2C75 2C81 2C80 2C83 2C82 2C85 2C84 2C87 2C86 2C89 2C88 2C8B 2C8A 2C8D 2C8C 2C8F 2C8E 2C91 2C90 2C93 2C92 2C95 2C94 2C97 2C96 2C99 2C98 2C9B 2C9A 2C9D 2C9C 2C9F 2C9E 2CA1 2CA0 2CA3 2CA2 2CA5 2CA4 2CA7 2CA6 2CA9 2CA8 2CAB 2CAA 2CAD 2CAC 2CAF 2CAE 2CB1 2CB0 2CB3 2CB2 2CB5 2CB4 2CB7 2CB6 2CB9 2CB8 2CBB 2CBA 2CBD 2CBC 2CBF 2CBE 2CC1 2CC0 2CC3 2CC2 2CC5 2CC4 2CC7 2CC6 2CC9 2CC8 2CCB 2CCA 2CCD 2CCC 2CCF 2CCE 2CD1 2CD0 2CD3 2CD2 2CD5 2CD4 2CD7 2CD6 2CD9 2CD8 2CDB 2CDA 2CDD 2CDC 2CDF 2CDE 2CE1 2CE0 2CE3 2CE2 2CEC 2CEB 2CEE 2CED 2CF3 2CF2 2D00 2D25 10A0 2D27 10C7 2D2D 10CD A641 A640 A643 A642 A645 A644 A647 A646 A649 A648 A64B A64A A64D A64C A64F A64E A651 A650 A653 A652 A655 A654 A657 A656 A659 A658 A65B A65A A65D A65C A65F A65E A661 A660 A663 A662 A665 A664 A667 A666 A669 A668 A66B A66A A66D A66C A681 A680 A683 A682 A685 A684 A687 A686 A689 A688 A68B A68A A68D A68C A68F A68E A691 A690 A693 A692 A695 A694 A697 A696 A699 A698 A69B A69A A723 A722 A725 A724 A727 A726 A729 A728 A72B A72A A72D A72C A72F A72E A733 A732 A735 A734 A737 A736 A739 A738 A73B A73A A73D A73C A73F A73E A741 A740 A743 A742 A745 A744 A747 A746 A749 A748 A74B A74A A74D A74C A74F A74E A751 A750 A753 A752 A755 A754 A757 A756 A759 A758 A75B A75A A75D A75C A75F A75E A761 A760 A763 A762 A765 A764 A767 A766 A769 A768 A76B A76A A76D A76C A76F A76E A77A A779 A77C A77B A77F A77E A781 A780 A783 A782 A785 A784 A787 A786 A78C A78B A791 A790 A793 A792 A794 A7C4 A797 A796 A799 A798 A79B A79A A79D A79C A79F A79E A7A1 A7A0 A7A3 A7A2 A7A5 A7A4 A7A7 A7A6 A7A9 A7A8 A7B5 A7B4 A7B7 A7B6 A7B9 A7B8 A7BB A7BA A7BD A7BC A7BF A7BE A7C3 A7C2 A7C8 A7C7 A7CA A7C9 A7F6 A7F5 AB53 A7B3 AB70 ABBF 13A0 FF41 FF5A FF21 10428 1044F 10400 104D8 104FB 104B0 10CC0 10CF2 10C80 118C0 118DF 118A0 16E60 16E7F 16E40 1E922 1E943 1E900 END PK ! D�b��@ �@ 5.34.0/unicore/To/InSC.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToInSC'}{'format'} = 's'; # string $Unicode::UCD::SwashInfo{'ToInSC'}{'missing'} = 'Other'; return <<'END'; 2D Consonant_Placeholder 30 39 Number A0 Consonant_Placeholder B2 B3 Syllable_Modifier D7 Consonant_Placeholder 900 902 Bindu 903 Visarga 904 914 Vowel_Independent 915 939 Consonant 93A 93B Vowel_Dependent 93C Nukta 93D Avagraha 93E 94C Vowel_Dependent 94D Virama 94E 94F Vowel_Dependent 951 952 Cantillation_Mark 955 957 Vowel_Dependent 958 95F Consonant 960 961 Vowel_Independent 962 963 Vowel_Dependent 966 96F Number 972 977 Vowel_Independent 978 97F Consonant 980 Consonant_Placeholder 981 982 Bindu 983 Visarga 985 98C Vowel_Independent 98F 990 Vowel_Independent 993 994 Vowel_Independent 995 9A8 Consonant 9AA 9B0 Consonant 9B2 Consonant 9B6 9B9 Consonant 9BC Nukta 9BD Avagraha 9BE 9C4 Vowel_Dependent 9C7 9C8 Vowel_Dependent 9CB 9CC Vowel_Dependent 9CD Virama 9CE Consonant_Dead 9D7 Vowel_Dependent 9DC 9DD Consonant 9DF Consonant 9E0 9E1 Vowel_Independent 9E2 9E3 Vowel_Dependent 9E6 9EF Number 9F0 9F1 Consonant 9FC Bindu 9FE Syllable_Modifier A01 A02 Bindu A03 Visarga A05 A0A Vowel_Independent A0F A10 Vowel_Independent A13 A14 Vowel_Independent A15 A28 Consonant A2A A30 Consonant A32 A33 Consonant A35 A36 Consonant A38 A39 Consonant A3C Nukta A3E A42 Vowel_Dependent A47 A48 Vowel_Dependent A4B A4C Vowel_Dependent A4D Virama A51 Cantillation_Mark A59 A5C Consonant A5E Consonant A66 A6F Number A70 Bindu A71 Gemination_Mark A72 A73 Consonant_Placeholder A75 Consonant_Medial A81 A82 Bindu A83 Visarga A85 A8D Vowel_Independent A8F A91 Vowel_Independent A93 A94 Vowel_Independent A95 AA8 Consonant AAA AB0 Consonant AB2 AB3 Consonant AB5 AB9 Consonant ABC Nukta ABD Avagraha ABE AC5 Vowel_Dependent AC7 AC9 Vowel_Dependent ACB ACC Vowel_Dependent ACD Virama AE0 AE1 Vowel_Independent AE2 AE3 Vowel_Dependent AE6 AEF Number AF9 Consonant AFA AFC Cantillation_Mark AFD AFF Nukta B01 B02 Bindu B03 Visarga B05 B0C Vowel_Independent B0F B10 Vowel_Independent B13 B14 Vowel_Independent B15 B28 Consonant B2A B30 Consonant B32 B33 Consonant B35 B39 Consonant B3C Nukta B3D Avagraha B3E B44 Vowel_Dependent B47 B48 Vowel_Dependent B4B B4C Vowel_Dependent B4D Virama B55 B57 Vowel_Dependent B5C B5D Consonant B5F Consonant B60 B61 Vowel_Independent B62 B63 Vowel_Dependent B66 B6F Number B71 Consonant B82 Bindu B83 Modifying_Letter B85 B8A Vowel_Independent B8E B90 Vowel_Independent B92 B94 Vowel_Independent B95 Consonant B99 B9A Consonant B9C Consonant B9E B9F Consonant BA3 BA4 Consonant BA8 BAA Consonant BAE BB9 Consonant BBE BC2 Vowel_Dependent BC6 BC8 Vowel_Dependent BCA BCC Vowel_Dependent BCD Virama BD7 Vowel_Dependent BE6 BEF Number C00 C02 Bindu C03 Visarga C04 Bindu C05 C0C Vowel_Independent C0E C10 Vowel_Independent C12 C14 Vowel_Independent C15 C28 Consonant C2A C39 Consonant C3D Avagraha C3E C44 Vowel_Dependent C46 C48 Vowel_Dependent C4A C4C Vowel_Dependent C4D Virama C55 C56 Vowel_Dependent C58 C5A Consonant C60 C61 Vowel_Independent C62 C63 Vowel_Dependent C66 C6F Number C80 C82 Bindu C83 Visarga C85 C8C Vowel_Independent C8E C90 Vowel_Independent C92 C94 Vowel_Independent C95 CA8 Consonant CAA CB3 Consonant CB5 CB9 Consonant CBC Nukta CBD Avagraha CBE CC4 Vowel_Dependent CC6 CC8 Vowel_Dependent CCA CCC Vowel_Dependent CCD Virama CD5 CD6 Vowel_Dependent CDE Consonant CE0 CE1 Vowel_Independent CE2 CE3 Vowel_Dependent CE6 CEF Number CF1 CF2 Consonant_With_Stacker D00 D02 Bindu D03 Visarga D04 Bindu D05 D0C Vowel_Independent D0E D10 Vowel_Independent D12 D14 Vowel_Independent D15 D3A Consonant D3B D3C Pure_Killer D3D Avagraha D3E D44 Vowel_Dependent D46 D48 Vowel_Dependent D4A D4C Vowel_Dependent D4D Virama D4E Consonant_Preceding_Repha D54 D56 Consonant_Dead D57 Vowel_Dependent D5F D61 Vowel_Independent D62 D63 Vowel_Dependent D66 D6F Number D7A D7F Consonant_Dead D81 D82 Bindu D83 Visarga D85 D96 Vowel_Independent D9A DB1 Consonant DB3 DBB Consonant DBD Consonant DC0 DC6 Consonant DCA Virama DCF DD4 Vowel_Dependent DD6 Vowel_Dependent DD8 DDF Vowel_Dependent DE6 DEF Number DF2 DF3 Vowel_Dependent E01 E2E Consonant E30 E39 Vowel_Dependent E3A Pure_Killer E40 E45 Vowel_Dependent E47 Vowel_Dependent E48 E4B Tone_Mark E4C Consonant_Killer E4D Bindu E4E Pure_Killer E50 E59 Number E81 E82 Consonant E84 Consonant E86 E8A Consonant E8C EA3 Consonant EA5 Consonant EA7 EAE Consonant EB0 EB9 Vowel_Dependent EBA Pure_Killer EBB Vowel_Dependent EBC EBD Consonant_Medial EC0 EC4 Vowel_Dependent EC8 ECB Tone_Mark ECD Bindu ED0 ED9 Number EDC EDF Consonant F20 F33 Number F35 Syllable_Modifier F37 Syllable_Modifier F39 Nukta F40 F47 Consonant F49 F6C Consonant F71 F7D Vowel_Dependent F7E Bindu F7F Visarga F80 F81 Vowel_Dependent F82 F83 Bindu F84 Pure_Killer F85 Avagraha F88 F8C Consonant_Head_Letter F8D F97 Consonant_Subjoined F99 FBC Consonant_Subjoined FC6 Syllable_Modifier 1000 1020 Consonant 1021 102A Vowel_Independent 102B 1035 Vowel_Dependent 1036 Bindu 1037 Tone_Mark 1038 Visarga 1039 Invisible_Stacker 103A Pure_Killer 103B 103E Consonant_Medial 103F Consonant 1040 1049 Number 104B Consonant_Placeholder 104E Consonant_Placeholder 1050 1051 Consonant 1052 1055 Vowel_Independent 1056 1059 Vowel_Dependent 105A 105D Consonant 105E 1060 Consonant_Medial 1061 Consonant 1062 Vowel_Dependent 1063 1064 Tone_Mark 1065 1066 Consonant 1067 1068 Vowel_Dependent 1069 106D Tone_Mark 106E 1070 Consonant 1071 1074 Vowel_Dependent 1075 1081 Consonant 1082 Consonant_Medial 1083 1086 Vowel_Dependent 1087 108D Tone_Mark 108E Consonant 108F Tone_Mark 1090 1099 Number 109A 109B Tone_Mark 109C 109D Vowel_Dependent 1700 1702 Vowel_Independent 1703 170C Consonant 170E 1711 Consonant 1712 1713 Vowel_Dependent 1714 Pure_Killer 1720 1722 Vowel_Independent 1723 1731 Consonant 1732 1733 Vowel_Dependent 1734 Pure_Killer 1740 1742 Vowel_Independent 1743 1751 Consonant 1752 1753 Vowel_Dependent 1760 1762 Vowel_Independent 1763 176C Consonant 176E 1770 Consonant 1772 1773 Vowel_Dependent 1780 17A2 Consonant 17A3 17B3 Vowel_Independent 17B6 17C5 Vowel_Dependent 17C6 Bindu 17C7 Visarga 17C8 Vowel_Dependent 17C9 17CA Register_Shifter 17CB Syllable_Modifier 17CC Consonant_Succeeding_Repha 17CD Consonant_Killer 17CE 17D0 Syllable_Modifier 17D1 Pure_Killer 17D2 Invisible_Stacker 17D3 Syllable_Modifier 17DC Avagraha 17DD Syllable_Modifier 17E0 17E9 Number 1900 Consonant_Placeholder 1901 191E Consonant 1920 1928 Vowel_Dependent 1929 192B Consonant_Subjoined 1930 1931 Consonant_Final 1932 Bindu 1933 1939 Consonant_Final 193A Vowel_Dependent 193B Syllable_Modifier 1946 194F Number 1950 1962 Consonant 1963 196D Vowel 1970 1974 Tone_Letter 1980 19AB Consonant 19B0 19C0 Vowel_Dependent 19C1 19C7 Consonant_Final 19C8 19C9 Tone_Mark 19D0 19DA Number 1A00 1A16 Consonant 1A17 1A1B Vowel_Dependent 1A20 1A4C Consonant 1A4D 1A52 Vowel_Independent 1A53 1A54 Consonant 1A55 1A56 Consonant_Medial 1A57 Consonant_Subjoined 1A58 1A59 Consonant_Final 1A5A Consonant_Initial_Postfixed 1A5B 1A5E Consonant_Subjoined 1A60 Invisible_Stacker 1A61 1A73 Vowel_Dependent 1A74 Bindu 1A75 1A79 Tone_Mark 1A7A Pure_Killer 1A7B 1A7C Syllable_Modifier 1A7F Syllable_Modifier 1A80 1A89 Number 1A90 1A99 Number 1B00 1B02 Bindu 1B03 Consonant_Succeeding_Repha 1B04 Visarga 1B05 1B12 Vowel_Independent 1B13 1B33 Consonant 1B34 Nukta 1B35 1B43 Vowel_Dependent 1B44 Virama 1B45 1B4B Consonant 1B50 1B59 Number 1B80 Bindu 1B81 Consonant_Succeeding_Repha 1B82 Visarga 1B83 1B89 Vowel_Independent 1B8A 1BA0 Consonant 1BA1 1BA3 Consonant_Subjoined 1BA4 1BA9 Vowel_Dependent 1BAA Pure_Killer 1BAB Invisible_Stacker 1BAC 1BAD Consonant_Subjoined 1BAE 1BAF Consonant 1BB0 1BB9 Number 1BBA Avagraha 1BBB 1BBD Consonant 1BBE 1BBF Consonant_Final 1BC0 1BE3 Consonant 1BE4 1BE5 Vowel_Independent 1BE6 Nukta 1BE7 1BEF Vowel_Dependent 1BF0 1BF1 Consonant_Final 1BF2 1BF3 Pure_Killer 1C00 1C23 Consonant 1C24 1C25 Consonant_Subjoined 1C26 1C2C Vowel_Dependent 1C2D 1C33 Consonant_Final 1C34 1C35 Bindu 1C36 Syllable_Modifier 1C37 Nukta 1C40 1C49 Number 1C4D 1C4F Consonant 1CD0 1CD2 Cantillation_Mark 1CD4 1CE1 Cantillation_Mark 1CF2 1CF3 Consonant_Dead 1CF4 Cantillation_Mark 1CF5 1CF6 Consonant_With_Stacker 1CF7 1CF9 Cantillation_Mark 1CFA Consonant_Placeholder 1DFB Syllable_Modifier 200C Non_Joiner 200D Joiner 2010 2014 Consonant_Placeholder 2074 Syllable_Modifier 2082 2084 Syllable_Modifier 20F0 Cantillation_Mark 25CC Consonant_Placeholder A800 A801 Vowel_Independent A802 Vowel_Dependent A803 A805 Vowel_Independent A806 Virama A807 A80A Consonant A80B Bindu A80C A822 Consonant A823 A827 Vowel_Dependent A82C Pure_Killer A840 A85D Consonant A85E A861 Vowel A862 A865 Consonant A866 Vowel A867 A868 Consonant_Subjoined A869 A870 Consonant A871 Consonant_Subjoined A872 Consonant A873 Bindu A880 Bindu A881 Visarga A882 A891 Vowel_Independent A892 A8B3 Consonant A8B4 Consonant_Medial A8B5 A8C3 Vowel_Dependent A8C4 Virama A8C5 Bindu A8D0 A8D9 Number A8E0 A8F1 Cantillation_Mark A8F2 A8F3 Bindu A8FE Vowel_Independent A8FF Vowel_Dependent A900 A909 Number A90A A921 Consonant A922 A92A Vowel A92B A92D Tone_Mark A930 A946 Consonant A947 A94E Vowel_Dependent A94F A952 Consonant_Final A953 Pure_Killer A980 A981 Bindu A982 Consonant_Succeeding_Repha A983 Visarga A984 A988 Vowel_Independent A989 A98B Consonant A98C A98E Vowel_Independent A98F A9B2 Consonant A9B3 Nukta A9B4 A9BC Vowel_Dependent A9BD A9BF Consonant_Medial A9C0 Virama A9D0 A9D9 Number A9E0 A9E4 Consonant A9E5 Vowel_Dependent A9E7 A9EF Consonant A9F0 A9F9 Number A9FA A9FE Consonant AA00 AA05 Vowel_Independent AA06 AA28 Consonant AA29 AA32 Vowel_Dependent AA33 AA36 Consonant_Medial AA40 AA4D Consonant_Final AA50 AA59 Number AA60 AA6F Consonant AA71 AA73 Consonant AA74 AA76 Consonant_Placeholder AA7A Consonant AA7B AA7D Tone_Mark AA7E AAAF Consonant AAB0 AABE Vowel_Dependent AABF Tone_Mark AAC0 Tone_Letter AAC1 Tone_Mark AAC2 Tone_Letter AAE0 AAE1 Vowel_Independent AAE2 AAEA Consonant AAEB AAEF Vowel_Dependent AAF5 Visarga AAF6 Invisible_Stacker ABC0 ABCD Consonant ABCE ABCF Vowel_Independent ABD0 Consonant ABD1 Vowel_Independent ABD2 ABDA Consonant ABDB ABE2 Consonant_Final ABE3 ABEA Vowel_Dependent ABEC Tone_Mark ABED Pure_Killer ABF0 ABF9 Number 10A00 Consonant 10A01 10A03 Vowel_Dependent 10A05 10A06 Vowel_Dependent 10A0C 10A0D Vowel_Dependent 10A0E Bindu 10A0F Visarga 10A10 10A13 Consonant 10A15 10A17 Consonant 10A19 10A35 Consonant 10A38 10A3A Nukta 10A3F Invisible_Stacker 10A40 10A48 Number 11000 11001 Bindu 11002 Visarga 11003 11004 Consonant_With_Stacker 11005 11012 Vowel_Independent 11013 11037 Consonant 11038 11045 Vowel_Dependent 11046 Virama 11052 11065 Brahmi_Joining_Number 11066 1106F Number 1107F Number_Joiner 11080 11081 Bindu 11082 Visarga 11083 1108C Vowel_Independent 1108D 110AF Consonant 110B0 110B8 Vowel_Dependent 110B9 Virama 110BA Nukta 11100 11101 Bindu 11102 Visarga 11103 11106 Vowel_Independent 11107 11126 Consonant 11127 11132 Vowel_Dependent 11133 Invisible_Stacker 11134 Pure_Killer 11136 1113F Number 11144 Consonant 11145 11146 Vowel_Dependent 11147 Consonant 11150 11154 Vowel 11155 11172 Consonant 11173 Nukta 11180 11181 Bindu 11182 Visarga 11183 11190 Vowel_Independent 11191 111B2 Consonant 111B3 111BF Vowel_Dependent 111C0 Virama 111C1 Avagraha 111C2 111C3 Consonant_Prefixed 111C9 Syllable_Modifier 111CA Nukta 111CB 111CC Vowel_Dependent 111CE Vowel_Dependent 111CF Bindu 111D0 111D9 Number 111E1 111F4 Number 11200 11207 Vowel_Independent 11208 11211 Consonant 11213 1122B Consonant 1122C 11233 Vowel_Dependent 11234 Bindu 11235 Virama 11236 Nukta 11237 Gemination_Mark 1123E Cantillation_Mark 11280 11283 Vowel_Independent 11284 11286 Consonant 11288 Consonant 1128A 1128D Consonant 1128F 1129D Consonant 1129F 112A8 Consonant 112B0 112B9 Vowel_Independent 112BA 112DE Consonant 112DF Bindu 112E0 112E8 Vowel_Dependent 112E9 Nukta 112EA Pure_Killer 112F0 112F9 Number 11300 11302 Bindu 11303 Visarga 11305 1130C Vowel_Independent 1130F 11310 Vowel_Independent 11313 11314 Vowel_Independent 11315 11328 Consonant 1132A 11330 Consonant 11332 11333 Consonant 11335 11339 Consonant 1133B 1133C Nukta 1133D Avagraha 1133E 11344 Vowel_Dependent 11347 11348 Vowel_Dependent 1134B 1134C Vowel_Dependent 1134D Virama 11357 Vowel_Dependent 1135E 1135F Bindu 11360 11361 Vowel_Independent 11362 11363 Vowel_Dependent 11366 1136C Cantillation_Mark 11370 11374 Cantillation_Mark 11400 1140D Vowel_Independent 1140E 11434 Consonant 11435 11441 Vowel_Dependent 11442 Virama 11443 11444 Bindu 11445 Visarga 11446 Nukta 11447 Avagraha 11450 11459 Number 1145E Syllable_Modifier 1145F Bindu 11460 11461 Consonant_With_Stacker 11481 1148E Vowel_Independent 1148F 114AF Consonant 114B0 114BE Vowel_Dependent 114BF 114C0 Bindu 114C1 Visarga 114C2 Virama 114C3 Nukta 114C4 Avagraha 114D0 114D9 Number 11580 1158D Vowel_Independent 1158E 115AE Consonant 115AF 115B5 Vowel_Dependent 115B8 115BB Vowel_Dependent 115BC 115BD Bindu 115BE Visarga 115BF Virama 115C0 Nukta 115D8 115DB Vowel_Independent 115DC 115DD Vowel_Dependent 11600 1160D Vowel_Independent 1160E 1162F Consonant 11630 1163C Vowel_Dependent 1163D Bindu 1163E Visarga 1163F Virama 11640 Vowel_Dependent 11650 11659 Number 11680 11689 Vowel_Independent 1168A 116AA Consonant 116AB Bindu 116AC Visarga 116AD 116B5 Vowel_Dependent 116B6 Virama 116B7 Nukta 116B8 Consonant 116C0 116C9 Number 11700 1171A Consonant 1171D 1171F Consonant_Medial 11720 1172A Vowel_Dependent 1172B Pure_Killer 11730 1173B Number 11800 11809 Vowel_Independent 1180A 1182B Consonant 1182C 11836 Vowel_Dependent 11837 Bindu 11838 Visarga 11839 Virama 1183A Nukta 11900 11906 Vowel_Independent 11909 Vowel_Independent 1190C 11913 Consonant 11915 11916 Consonant 11918 1192F Consonant 11930 11935 Vowel_Dependent 11937 11938 Vowel_Dependent 1193B 1193C Bindu 1193D Pure_Killer 1193E Invisible_Stacker 1193F Consonant_Prefixed 11940 Consonant_Medial 11941 Consonant_Preceding_Repha 11942 Consonant_Medial 11943 Nukta 11950 11959 Number 119A0 119A7 Vowel_Independent 119AA 119AD Vowel_Independent 119AE 119D0 Consonant 119D1 119D7 Vowel_Dependent 119DA 119DD Vowel_Dependent 119DE Bindu 119DF Visarga 119E0 Virama 119E1 Avagraha 119E4 Vowel_Dependent 11A00 Vowel_Independent 11A01 11A0A Vowel_Dependent 11A0B 11A32 Consonant 11A33 Syllable_Modifier 11A34 Pure_Killer 11A35 11A38 Bindu 11A39 Visarga 11A3A Consonant_Prefixed 11A3B 11A3E Consonant_Medial 11A3F Consonant_Placeholder 11A45 Consonant_Placeholder 11A47 Invisible_Stacker 11A50 Vowel_Independent 11A51 11A5B Vowel_Dependent 11A5C 11A83 Consonant 11A84 11A89 Consonant_Prefixed 11A8A 11A95 Consonant_Final 11A96 Bindu 11A97 Visarga 11A98 Gemination_Mark 11A99 Invisible_Stacker 11A9D Avagraha 11C00 11C08 Vowel_Independent 11C0A 11C0D Vowel_Independent 11C0E 11C2E Consonant 11C2F 11C36 Vowel_Dependent 11C38 11C3B Vowel_Dependent 11C3C 11C3D Bindu 11C3E Visarga 11C3F Virama 11C40 Avagraha 11C50 11C6C Number 11C72 11C8F Consonant 11C92 11CA7 Consonant_Subjoined 11CA9 11CAF Consonant_Subjoined 11CB0 11CB4 Vowel_Dependent 11CB5 11CB6 Bindu 11D00 11D06 Vowel_Independent 11D08 11D09 Vowel_Independent 11D0B Vowel_Independent 11D0C 11D30 Consonant 11D31 11D36 Vowel_Dependent 11D3A Vowel_Dependent 11D3C 11D3D Vowel_Dependent 11D3F Vowel_Dependent 11D40 Bindu 11D41 Visarga 11D42 Nukta 11D43 Vowel_Dependent 11D44 Pure_Killer 11D45 Invisible_Stacker 11D46 Consonant_Preceding_Repha 11D47 Consonant_Medial 11D50 11D59 Number 11D60 11D65 Vowel_Independent 11D67 11D68 Vowel_Independent 11D6A 11D6B Vowel_Independent 11D6C 11D89 Consonant 11D8A 11D8E Vowel_Dependent 11D90 11D91 Vowel_Dependent 11D93 11D94 Vowel_Dependent 11D95 Bindu 11D96 Visarga 11D97 Invisible_Stacker 11DA0 11DA9 Number 11EE0 11EF1 Consonant 11EF2 Consonant_Placeholder 11EF3 11EF6 Vowel_Dependent END PK ! ׂJ@�$ �$ 5.34.0/unicore/To/Nv.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The mappings must be modified to get the correct values by adding the code # point ordinal number to each one that is numeric. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToNv'}{'format'} = 'a'; # some entries need adjustment $Unicode::UCD::SwashInfo{'ToNv'}{'missing'} = 'NaN'; return <<'END'; 30 39 0 B2 B3 2 B9 1 BC 1/4 BD 1/2 BE 3/4 660 669 0 6F0 6F9 0 7C0 7C9 0 966 96F 0 9E6 9EF 0 9F4 1/16 9F5 1/8 9F6 3/16 9F7 1/4 9F8 3/4 9F9 16 A66 A6F 0 AE6 AEF 0 B66 B6F 0 B72 1/4 B73 1/2 B74 3/4 B75 1/16 B76 1/8 B77 3/16 BE6 BF0 0 BF1 100 BF2 1000 C66 C6F 0 C78 C7B 0 C7C C7E 1 CE6 CEF 0 D58 1/160 D59 1/40 D5A 3/80 D5B 1/20 D5C 1/10 D5D 3/20 D5E 1/5 D66 D70 0 D71 100 D72 1000 D73 1/4 D74 1/2 D75 3/4 D76 1/16 D77 1/8 D78 3/16 DE6 DEF 0 E50 E59 0 ED0 ED9 0 F20 F29 0 F2A 1/2 F2B 3/2 F2C 5/2 F2D 7/2 F2E 9/2 F2F 11/2 F30 13/2 F31 15/2 F32 17/2 F33 -1/2 1040 1049 0 1090 1099 0 1369 1372 1 1373 20 1374 30 1375 40 1376 50 1377 60 1378 70 1379 80 137A 90 137B 100 137C 10000 16EE 16F0 17 17E0 17E9 0 17F0 17F9 0 1810 1819 0 1946 194F 0 19D0 19D9 0 19DA 1 1A80 1A89 0 1A90 1A99 0 1B50 1B59 0 1BB0 1BB9 0 1C40 1C49 0 1C50 1C59 0 2070 0 2074 2079 4 2080 2089 0 2150 1/7 2151 1/9 2152 1/10 2153 1/3 2154 2/3 2155 1/5 2156 2/5 2157 3/5 2158 4/5 2159 1/6 215A 5/6 215B 1/8 215C 3/8 215D 5/8 215E 7/8 215F 1 2160 216B 1 216C 50 216D 100 216E 500 216F 1000 2170 217B 1 217C 50 217D 100 217E 500 217F 1000 2180 1000 2181 5000 2182 10000 2185 6 2186 50 2187 50000 2188 100000 2189 0 2460 2473 1 2474 2487 1 2488 249B 1 24EA 0 24EB 24F4 11 24F5 24FE 1 24FF 0 2776 277F 1 2780 2789 1 278A 2793 1 2CFD 1/2 3007 0 3021 3029 1 3038 10 3039 20 303A 30 3192 3195 1 3220 3229 1 3248 10 3249 20 324A 30 324B 40 324C 50 324D 60 324E 70 324F 80 3251 325F 21 3280 3289 1 32B1 32BF 36 3405 5 3483 2 382A 5 3B4D 7 4E00 1 4E03 7 4E07 10000 4E09 3 4E5D 9 4E8C 2 4E94 5 4E96 4 4EBF 100000000 4EC0 10 4EDF 1000 4EE8 3 4F0D 5 4F70 100 5104 100000000 5146 1000000000000 5169 2 516B 8 516D 6 5341 10 5343 1000 5344 20 5345 30 534C 40 53C1 3 53C2 3 53C3 3 53C4 3 56DB 4 58F1 1 58F9 1 5E7A 1 5EFE 9 5EFF 20 5F0C 5F0E 1 5F10 2 62FE 10 634C 8 67D2 7 6F06 7 7396 9 767E 100 8086 4 842C 10000 8CAE 2 8CB3 2 8D30 2 9621 1000 9646 6 964C 100 9678 6 96F6 0 A620 A629 0 A6E6 A6EE 1 A6EF 0 A830 1/4 A831 1/2 A832 3/4 A833 1/16 A834 1/8 A835 3/16 A8D0 A8D9 0 A900 A909 0 A9D0 A9D9 0 A9F0 A9F9 0 AA50 AA59 0 ABF0 ABF9 0 F96B 3 F973 10 F978 2 F9B2 0 F9D1 6 F9D3 6 F9FD 10 FF10 FF19 0 10107 10110 1 10111 20 10112 30 10113 40 10114 50 10115 60 10116 70 10117 80 10118 90 10119 100 1011A 200 1011B 300 1011C 400 1011D 500 1011E 600 1011F 700 10120 800 10121 900 10122 1000 10123 2000 10124 3000 10125 4000 10126 5000 10127 6000 10128 7000 10129 8000 1012A 9000 1012B 10000 1012C 20000 1012D 30000 1012E 40000 1012F 50000 10130 60000 10131 70000 10132 80000 10133 90000 10140 1/4 10141 1/2 10142 1 10143 5 10144 50 10145 500 10146 5000 10147 50000 10148 5 10149 10 1014A 50 1014B 100 1014C 500 1014D 1000 1014E 5000 1014F 5 10150 10 10151 50 10152 100 10153 500 10154 1000 10155 10000 10156 50000 10157 10 10158 1 10159 1 1015A 1015B 1 1015C 2 1015D 2 1015E 2 1015F 5 10160 10 10161 10 10162 10 10163 10 10164 10 10165 30 10166 50 10167 50 10168 50 10169 50 1016A 100 1016B 300 1016C 500 1016D 500 1016E 500 1016F 500 10170 500 10171 1000 10172 5000 10173 5 10174 50 10175 1/2 10176 1/2 10177 2/3 10178 3/4 1018A 0 1018B 1/4 102E1 102EA 1 102EB 20 102EC 30 102ED 40 102EE 50 102EF 60 102F0 70 102F1 80 102F2 90 102F3 100 102F4 200 102F5 300 102F6 400 102F7 500 102F8 600 102F9 700 102FA 800 102FB 900 10320 1 10321 5 10322 10 10323 50 10341 90 1034A 900 103D1 103D2 1 103D3 10 103D4 20 103D5 100 104A0 104A9 0 10858 1085A 1 1085B 10 1085C 20 1085D 100 1085E 1000 1085F 10000 10879 1087D 1 1087E 10 1087F 20 108A7 108AA 1 108AB 108AC 4 108AD 10 108AE 20 108AF 100 108FB 1 108FC 5 108FD 10 108FE 20 108FF 100 10916 1 10917 10 10918 20 10919 100 1091A 1091B 2 109BC 11/12 109BD 1/2 109C0 109C9 1 109CA 20 109CB 30 109CC 40 109CD 50 109CE 60 109CF 70 109D2 100 109D3 200 109D4 300 109D5 400 109D6 500 109D7 600 109D8 700 109D9 800 109DA 900 109DB 1000 109DC 2000 109DD 3000 109DE 4000 109DF 5000 109E0 6000 109E1 7000 109E2 8000 109E3 9000 109E4 10000 109E5 20000 109E6 30000 109E7 40000 109E8 50000 109E9 60000 109EA 70000 109EB 80000 109EC 90000 109ED 100000 109EE 200000 109EF 300000 109F0 400000 109F1 500000 109F2 600000 109F3 700000 109F4 800000 109F5 900000 109F6 1/12 109F7 1/6 109F8 1/4 109F9 1/3 109FA 5/12 109FB 1/2 109FC 7/12 109FD 2/3 109FE 3/4 109FF 5/6 10A40 10A43 1 10A44 10 10A45 20 10A46 100 10A47 1000 10A48 1/2 10A7D 1 10A7E 50 10A9D 1 10A9E 10 10A9F 20 10AEB 1 10AEC 5 10AED 10 10AEE 20 10AEF 100 10B58 10B5B 1 10B5C 10 10B5D 20 10B5E 100 10B5F 1000 10B78 10B7B 1 10B7C 10 10B7D 20 10B7E 100 10B7F 1000 10BA9 10BAC 1 10BAD 10 10BAE 20 10BAF 100 10CFA 1 10CFB 5 10CFC 10 10CFD 50 10CFE 100 10CFF 1000 10D30 10D39 0 10E60 10E69 1 10E6A 20 10E6B 30 10E6C 40 10E6D 50 10E6E 60 10E6F 70 10E70 80 10E71 90 10E72 100 10E73 200 10E74 300 10E75 400 10E76 500 10E77 600 10E78 700 10E79 800 10E7A 900 10E7B 1/2 10E7C 1/4 10E7D 1/3 10E7E 2/3 10F1D 10F21 1 10F22 10 10F23 20 10F24 30 10F25 100 10F26 1/2 10F51 1 10F52 10 10F53 20 10F54 100 10FC5 10FC8 1 10FC9 10 10FCA 20 10FCB 100 11052 1105B 1 1105C 20 1105D 30 1105E 40 1105F 50 11060 60 11061 70 11062 80 11063 90 11064 100 11065 1000 11066 1106F 0 110F0 110F9 0 11136 1113F 0 111D0 111D9 0 111E1 111EA 1 111EB 20 111EC 30 111ED 40 111EE 50 111EF 60 111F0 70 111F1 80 111F2 90 111F3 100 111F4 1000 112F0 112F9 0 11450 11459 0 114D0 114D9 0 11650 11659 0 116C0 116C9 0 11730 1173A 0 1173B 20 118E0 118EA 0 118EB 20 118EC 30 118ED 40 118EE 50 118EF 60 118F0 70 118F1 80 118F2 90 11950 11959 0 11C50 11C59 0 11C5A 11C63 1 11C64 20 11C65 30 11C66 40 11C67 50 11C68 60 11C69 70 11C6A 80 11C6B 90 11C6C 100 11D50 11D59 0 11DA0 11DA9 0 11FC0 1/320 11FC1 1/160 11FC2 1/80 11FC3 1/64 11FC4 1/40 11FC5 1/32 11FC6 3/80 11FC7 3/64 11FC8 1/20 11FC9 1/16 11FCA 1/16 11FCB 1/10 11FCC 1/8 11FCD 3/20 11FCE 3/16 11FCF 1/5 11FD0 1/4 11FD1 1/2 11FD2 1/2 11FD3 3/4 11FD4 1/320 12400 12407 2 12408 1240E 3 1240F 12414 4 12415 1241D 1 1241E 12422 1 12423 12424 2 12425 1242B 3 1242C 1242E 1 1242F 12431 3 12432 216000 12433 432000 12434 12436 1 12437 12439 3 1243A 3 1243B 1243C 3 1243D 4 1243E 4 1243F 4 12440 12441 6 12442 7 12443 12444 7 12445 12446 8 12447 9 12448 9 12449 9 1244A 1244E 2 1244F 12452 1 12453 12454 4 12455 5 12456 12457 2 12458 12459 1 1245A 1/3 1245B 2/3 1245C 5/6 1245D 1/3 1245E 2/3 1245F 1/8 12460 1/4 12461 1/6 12462 1/4 12463 1/4 12464 1/2 12465 1/3 12466 2/3 12467 40 12468 50 12469 1246E 4 16A60 16A69 0 16B50 16B59 0 16B5B 10 16B5C 100 16B5D 10000 16B5E 1000000 16B5F 100000000 16B60 10000000000 16B61 1000000000000 16E80 16E93 0 16E94 16E96 1 1D2E0 1D2F3 0 1D360 1D369 1 1D36A 20 1D36B 30 1D36C 40 1D36D 50 1D36E 60 1D36F 70 1D370 80 1D371 90 1D372 1D376 1 1D377 1 1D378 5 1D7CE 1D7D7 0 1D7D8 1D7E1 0 1D7E2 1D7EB 0 1D7EC 1D7F5 0 1D7F6 1D7FF 0 1E140 1E149 0 1E2F0 1E2F9 0 1E8C7 1E8CF 1 1E950 1E959 0 1EC71 1EC7A 1 1EC7B 20 1EC7C 30 1EC7D 40 1EC7E 50 1EC7F 60 1EC80 70 1EC81 80 1EC82 90 1EC83 100 1EC84 200 1EC85 300 1EC86 400 1EC87 500 1EC88 600 1EC89 700 1EC8A 800 1EC8B 900 1EC8C 1000 1EC8D 2000 1EC8E 3000 1EC8F 4000 1EC90 5000 1EC91 6000 1EC92 7000 1EC93 8000 1EC94 9000 1EC95 10000 1EC96 20000 1EC97 30000 1EC98 40000 1EC99 50000 1EC9A 60000 1EC9B 70000 1EC9C 80000 1EC9D 90000 1EC9E 100000 1EC9F 200000 1ECA0 100000 1ECA1 10000000 1ECA2 20000000 1ECA3 1ECAB 1 1ECAD 1/4 1ECAE 1/2 1ECAF 3/4 1ECB1 1ECB2 1 1ECB3 10000 1ECB4 100000 1ED01 1ED0A 1 1ED0B 20 1ED0C 30 1ED0D 40 1ED0E 50 1ED0F 60 1ED10 70 1ED11 80 1ED12 90 1ED13 100 1ED14 200 1ED15 300 1ED16 400 1ED17 500 1ED18 600 1ED19 700 1ED1A 800 1ED1B 900 1ED1C 1000 1ED1D 2000 1ED1E 3000 1ED1F 4000 1ED20 5000 1ED21 6000 1ED22 7000 1ED23 8000 1ED24 9000 1ED25 10000 1ED26 20000 1ED27 30000 1ED28 40000 1ED29 50000 1ED2A 60000 1ED2B 70000 1ED2C 80000 1ED2D 90000 1ED2F 1ED37 2 1ED38 400 1ED39 600 1ED3A 2000 1ED3B 10000 1ED3C 1/2 1ED3D 1/6 1F100 0 1F101 1F10A 0 1F10B 0 1F10C 0 1FBF0 1FBF9 0 20001 7 20064 4 200E2 4 20121 5 2092A 1 20983 30 2098C 40 2099C 40 20AEA 6 20AFD 3 20B19 3 22390 2 22998 3 23B1B 3 2626D 4 2F890 9 END PK ! �s� 5.34.0/unicore/To/EqUIdeo.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToEqUIdeo'}{'format'} = 'x'; # non-negative hex whole number; a code point $Unicode::UCD::SwashInfo{'ToEqUIdeo'}{'missing'} = ''; # code point maps to the null string return <<'END'; 2E81 5382 2E82 4E5B 2E83 4E5A 2E84 4E59 2E85 4EBB 2E86 5182 2E87 20628 2E88 5200 2E89 5202 2E8A 535C 2E8B 353E 2E8C 2E8D 5C0F 2E8E 5140 2E8F 5C23 2E90 5C22 2E91 21BC2 2E92 5DF3 2E93 5E7A 2E94 5F51 2E95 5F50 2E96 5FC4 2E97 5FC3 2E98 624C 2E99 6535 2E9B 65E1 2E9C 65E5 2E9D 6708 2E9E 6B7A 2E9F 6BCD 2EA0 6C11 2EA1 6C35 2EA2 6C3A 2EA3 706C 2EA4 2EA5 722B 2EA6 4E2C 2EA7 725B 2EA8 72AD 2EA9 738B 2EAA 24D14 2EAB 76EE 2EAC 793A 2EAD 793B 2EAE 25AD7 2EAF 7CF9 2EB0 7E9F 2EB1 7F53 2EB2 7F52 2EB3 34C1 2EB4 5197 2EB5 2626B 2EB6 7F8A 2EB7 2634C 2EB8 2634B 2EB9 8002 2EBA 8080 2EBB 807F 2EBC 8089 2EBD 26951 2EBE 2EC0 8279 2EC1 864E 2EC2 8864 2EC3 8980 2EC4 897F 2EC5 89C1 2EC6 89D2 2EC7 278B2 2EC8 8BA0 2EC9 8D1D 2ECA 27FB7 2ECB 8F66 2ECC 2ECE 8FB6 2ECF 9091 2ED0 9485 2ED1 9577 2ED2 9578 2ED3 957F 2ED4 95E8 2ED5 28E0F 2ED6 961D 2ED7 96E8 2ED8 9752 2ED9 97E6 2EDA 9875 2EDB 98CE 2EDC 98DE 2EDD 98DF 2EDE 2967F 2EDF 98E0 2EE0 9963 2EE1 29810 2EE2 9A6C 2EE3 9AA8 2EE4 9B3C 2EE5 9C7C 2EE6 9E1F 2EE7 5364 2EE8 9EA6 2EE9 9EC4 2EEA 9EFE 2EEB 6589 2EEC 9F50 2EED 6B6F 2EEE 9F7F 2EEF 7ADC 2EF0 9F99 2EF1 9F9C 2EF2 4E80 2EF3 9F9F 2F00 4E00 2F01 4E28 2F02 4E36 2F03 4E3F 2F04 4E59 2F05 4E85 2F06 4E8C 2F07 4EA0 2F08 4EBA 2F09 513F 2F0A 5165 2F0B 516B 2F0C 5182 2F0D 5196 2F0E 51AB 2F0F 51E0 2F10 51F5 2F11 5200 2F12 529B 2F13 52F9 2F14 5315 2F15 531A 2F16 5338 2F17 5341 2F18 535C 2F19 5369 2F1A 5382 2F1B 53B6 2F1C 53C8 2F1D 53E3 2F1E 56D7 2F1F 571F 2F20 58EB 2F21 5902 2F22 590A 2F23 5915 2F24 5927 2F25 5973 2F26 5B50 2F27 5B80 2F28 5BF8 2F29 5C0F 2F2A 5C22 2F2B 5C38 2F2C 5C6E 2F2D 5C71 2F2E 5DDB 2F2F 5DE5 2F30 5DF1 2F31 5DFE 2F32 5E72 2F33 5E7A 2F34 5E7F 2F35 5EF4 2F36 5EFE 2F37 5F0B 2F38 5F13 2F39 5F50 2F3A 5F61 2F3B 5F73 2F3C 5FC3 2F3D 6208 2F3E 6236 2F3F 624B 2F40 652F 2F41 6534 2F42 6587 2F43 6597 2F44 65A4 2F45 65B9 2F46 65E0 2F47 65E5 2F48 66F0 2F49 6708 2F4A 6728 2F4B 6B20 2F4C 6B62 2F4D 6B79 2F4E 6BB3 2F4F 6BCB 2F50 6BD4 2F51 6BDB 2F52 6C0F 2F53 6C14 2F54 6C34 2F55 706B 2F56 722A 2F57 7236 2F58 723B 2F59 723F 2F5A 7247 2F5B 7259 2F5C 725B 2F5D 72AC 2F5E 7384 2F5F 7389 2F60 74DC 2F61 74E6 2F62 7518 2F63 751F 2F64 7528 2F65 7530 2F66 758B 2F67 7592 2F68 7676 2F69 767D 2F6A 76AE 2F6B 76BF 2F6C 76EE 2F6D 77DB 2F6E 77E2 2F6F 77F3 2F70 793A 2F71 79B8 2F72 79BE 2F73 7A74 2F74 7ACB 2F75 7AF9 2F76 7C73 2F77 7CF8 2F78 7F36 2F79 7F51 2F7A 7F8A 2F7B 7FBD 2F7C 8001 2F7D 800C 2F7E 8012 2F7F 8033 2F80 807F 2F81 8089 2F82 81E3 2F83 81EA 2F84 81F3 2F85 81FC 2F86 820C 2F87 821B 2F88 821F 2F89 826E 2F8A 8272 2F8B 8278 2F8C 864D 2F8D 866B 2F8E 8840 2F8F 884C 2F90 8863 2F91 897E 2F92 898B 2F93 89D2 2F94 8A00 2F95 8C37 2F96 8C46 2F97 8C55 2F98 8C78 2F99 8C9D 2F9A 8D64 2F9B 8D70 2F9C 8DB3 2F9D 8EAB 2F9E 8ECA 2F9F 8F9B 2FA0 8FB0 2FA1 8FB5 2FA2 9091 2FA3 9149 2FA4 91C6 2FA5 91CC 2FA6 91D1 2FA7 9577 2FA8 9580 2FA9 961C 2FAA 96B6 2FAB 96B9 2FAC 96E8 2FAD 9751 2FAE 975E 2FAF 9762 2FB0 9769 2FB1 97CB 2FB2 97ED 2FB3 97F3 2FB4 9801 2FB5 98A8 2FB6 98DB 2FB7 98DF 2FB8 9996 2FB9 9999 2FBA 99AC 2FBB 9AA8 2FBC 9AD8 2FBD 9ADF 2FBE 9B25 2FBF 9B2F 2FC0 9B32 2FC1 9B3C 2FC2 9B5A 2FC3 9CE5 2FC4 9E75 2FC5 9E7F 2FC6 9EA5 2FC7 9EBB 2FC8 9EC3 2FC9 9ECD 2FCA 9ED1 2FCB 9EF9 2FCC 9EFD 2FCD 9F0E 2FCE 9F13 2FCF 9F20 2FD0 9F3B 2FD1 9F4A 2FD2 9F52 2FD3 9F8D 2FD4 9F9C 2FD5 9FA0 31C6 200CC 31CF 4E40 31D0 4E00 31D1 4E28 31D2 31D3 4E3F 31D4 4E36 31D5 200CD 31D6 4E5B 31D7 200CA 31D8 200CE 31D9 2010C 31DA 4E85 31DB 21FE8 31DC 200CB 31DD 4E40 31DE 200D1 31DF 4E5A 31E0 4E59 31E1 2010E END PK ! t�߄ ߄ 5.34.0/unicore/To/SB.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToSB'}{'format'} = 's'; # string $Unicode::UCD::SwashInfo{'ToSB'}{'missing'} = 'Other'; return <<'END'; 9 Sp A LF B C Sp D CR 20 Sp 21 STerm 22 Close 27 29 Close 2C 2D SContinue 2E ATerm 30 39 Numeric 3A SContinue 3F STerm 41 5A Upper 5B Close 5D Close 61 7A Lower 7B Close 7D Close 85 Sep A0 Sp AA Lower AB Close AD Format B5 Lower BA Lower BB Close C0 D6 Upper D8 DE Upper DF F6 Lower F8 FF Lower 100 Upper 101 Lower 102 Upper 103 Lower 104 Upper 105 Lower 106 Upper 107 Lower 108 Upper 109 Lower 10A Upper 10B Lower 10C Upper 10D Lower 10E Upper 10F Lower 110 Upper 111 Lower 112 Upper 113 Lower 114 Upper 115 Lower 116 Upper 117 Lower 118 Upper 119 Lower 11A Upper 11B Lower 11C Upper 11D Lower 11E Upper 11F Lower 120 Upper 121 Lower 122 Upper 123 Lower 124 Upper 125 Lower 126 Upper 127 Lower 128 Upper 129 Lower 12A Upper 12B Lower 12C Upper 12D Lower 12E Upper 12F Lower 130 Upper 131 Lower 132 Upper 133 Lower 134 Upper 135 Lower 136 Upper 137 138 Lower 139 Upper 13A Lower 13B Upper 13C Lower 13D Upper 13E Lower 13F Upper 140 Lower 141 Upper 142 Lower 143 Upper 144 Lower 145 Upper 146 Lower 147 Upper 148 149 Lower 14A Upper 14B Lower 14C Upper 14D Lower 14E Upper 14F Lower 150 Upper 151 Lower 152 Upper 153 Lower 154 Upper 155 Lower 156 Upper 157 Lower 158 Upper 159 Lower 15A Upper 15B Lower 15C Upper 15D Lower 15E Upper 15F Lower 160 Upper 161 Lower 162 Upper 163 Lower 164 Upper 165 Lower 166 Upper 167 Lower 168 Upper 169 Lower 16A Upper 16B Lower 16C Upper 16D Lower 16E Upper 16F Lower 170 Upper 171 Lower 172 Upper 173 Lower 174 Upper 175 Lower 176 Upper 177 Lower 178 179 Upper 17A Lower 17B Upper 17C Lower 17D Upper 17E 180 Lower 181 182 Upper 183 Lower 184 Upper 185 Lower 186 187 Upper 188 Lower 189 18B Upper 18C 18D Lower 18E 191 Upper 192 Lower 193 194 Upper 195 Lower 196 198 Upper 199 19B Lower 19C 19D Upper 19E Lower 19F 1A0 Upper 1A1 Lower 1A2 Upper 1A3 Lower 1A4 Upper 1A5 Lower 1A6 1A7 Upper 1A8 Lower 1A9 Upper 1AA 1AB Lower 1AC Upper 1AD Lower 1AE 1AF Upper 1B0 Lower 1B1 1B3 Upper 1B4 Lower 1B5 Upper 1B6 Lower 1B7 1B8 Upper 1B9 1BA Lower 1BB OLetter 1BC Upper 1BD 1BF Lower 1C0 1C3 OLetter 1C4 1C5 Upper 1C6 Lower 1C7 1C8 Upper 1C9 Lower 1CA 1CB Upper 1CC Lower 1CD Upper 1CE Lower 1CF Upper 1D0 Lower 1D1 Upper 1D2 Lower 1D3 Upper 1D4 Lower 1D5 Upper 1D6 Lower 1D7 Upper 1D8 Lower 1D9 Upper 1DA Lower 1DB Upper 1DC 1DD Lower 1DE Upper 1DF Lower 1E0 Upper 1E1 Lower 1E2 Upper 1E3 Lower 1E4 Upper 1E5 Lower 1E6 Upper 1E7 Lower 1E8 Upper 1E9 Lower 1EA Upper 1EB Lower 1EC Upper 1ED Lower 1EE Upper 1EF 1F0 Lower 1F1 1F2 Upper 1F3 Lower 1F4 Upper 1F5 Lower 1F6 1F8 Upper 1F9 Lower 1FA Upper 1FB Lower 1FC Upper 1FD Lower 1FE Upper 1FF Lower 200 Upper 201 Lower 202 Upper 203 Lower 204 Upper 205 Lower 206 Upper 207 Lower 208 Upper 209 Lower 20A Upper 20B Lower 20C Upper 20D Lower 20E Upper 20F Lower 210 Upper 211 Lower 212 Upper 213 Lower 214 Upper 215 Lower 216 Upper 217 Lower 218 Upper 219 Lower 21A Upper 21B Lower 21C Upper 21D Lower 21E Upper 21F Lower 220 Upper 221 Lower 222 Upper 223 Lower 224 Upper 225 Lower 226 Upper 227 Lower 228 Upper 229 Lower 22A Upper 22B Lower 22C Upper 22D Lower 22E Upper 22F Lower 230 Upper 231 Lower 232 Upper 233 239 Lower 23A 23B Upper 23C Lower 23D 23E Upper 23F 240 Lower 241 Upper 242 Lower 243 246 Upper 247 Lower 248 Upper 249 Lower 24A Upper 24B Lower 24C Upper 24D Lower 24E Upper 24F 293 Lower 294 OLetter 295 2B8 Lower 2B9 2BF OLetter 2C0 2C1 Lower 2C6 2D1 OLetter 2E0 2E4 Lower 2EC OLetter 2EE OLetter 300 36F Extend 370 Upper 371 Lower 372 Upper 373 Lower 374 OLetter 376 Upper 377 Lower 37A 37D Lower 37F Upper 386 Upper 388 38A Upper 38C Upper 38E 38F Upper 390 Lower 391 3A1 Upper 3A3 3AB Upper 3AC 3CE Lower 3CF Upper 3D0 3D1 Lower 3D2 3D4 Upper 3D5 3D7 Lower 3D8 Upper 3D9 Lower 3DA Upper 3DB Lower 3DC Upper 3DD Lower 3DE Upper 3DF Lower 3E0 Upper 3E1 Lower 3E2 Upper 3E3 Lower 3E4 Upper 3E5 Lower 3E6 Upper 3E7 Lower 3E8 Upper 3E9 Lower 3EA Upper 3EB Lower 3EC Upper 3ED Lower 3EE Upper 3EF 3F3 Lower 3F4 Upper 3F5 Lower 3F7 Upper 3F8 Lower 3F9 3FA Upper 3FB 3FC Lower 3FD 42F Upper 430 45F Lower 460 Upper 461 Lower 462 Upper 463 Lower 464 Upper 465 Lower 466 Upper 467 Lower 468 Upper 469 Lower 46A Upper 46B Lower 46C Upper 46D Lower 46E Upper 46F Lower 470 Upper 471 Lower 472 Upper 473 Lower 474 Upper 475 Lower 476 Upper 477 Lower 478 Upper 479 Lower 47A Upper 47B Lower 47C Upper 47D Lower 47E Upper 47F Lower 480 Upper 481 Lower 483 489 Extend 48A Upper 48B Lower 48C Upper 48D Lower 48E Upper 48F Lower 490 Upper 491 Lower 492 Upper 493 Lower 494 Upper 495 Lower 496 Upper 497 Lower 498 Upper 499 Lower 49A Upper 49B Lower 49C Upper 49D Lower 49E Upper 49F Lower 4A0 Upper 4A1 Lower 4A2 Upper 4A3 Lower 4A4 Upper 4A5 Lower 4A6 Upper 4A7 Lower 4A8 Upper 4A9 Lower 4AA Upper 4AB Lower 4AC Upper 4AD Lower 4AE Upper 4AF Lower 4B0 Upper 4B1 Lower 4B2 Upper 4B3 Lower 4B4 Upper 4B5 Lower 4B6 Upper 4B7 Lower 4B8 Upper 4B9 Lower 4BA Upper 4BB Lower 4BC Upper 4BD Lower 4BE Upper 4BF Lower 4C0 4C1 Upper 4C2 Lower 4C3 Upper 4C4 Lower 4C5 Upper 4C6 Lower 4C7 Upper 4C8 Lower 4C9 Upper 4CA Lower 4CB Upper 4CC Lower 4CD Upper 4CE 4CF Lower 4D0 Upper 4D1 Lower 4D2 Upper 4D3 Lower 4D4 Upper 4D5 Lower 4D6 Upper 4D7 Lower 4D8 Upper 4D9 Lower 4DA Upper 4DB Lower 4DC Upper 4DD Lower 4DE Upper 4DF Lower 4E0 Upper 4E1 Lower 4E2 Upper 4E3 Lower 4E4 Upper 4E5 Lower 4E6 Upper 4E7 Lower 4E8 Upper 4E9 Lower 4EA Upper 4EB Lower 4EC Upper 4ED Lower 4EE Upper 4EF Lower 4F0 Upper 4F1 Lower 4F2 Upper 4F3 Lower 4F4 Upper 4F5 Lower 4F6 Upper 4F7 Lower 4F8 Upper 4F9 Lower 4FA Upper 4FB Lower 4FC Upper 4FD Lower 4FE Upper 4FF Lower 500 Upper 501 Lower 502 Upper 503 Lower 504 Upper 505 Lower 506 Upper 507 Lower 508 Upper 509 Lower 50A Upper 50B Lower 50C Upper 50D Lower 50E Upper 50F Lower 510 Upper 511 Lower 512 Upper 513 Lower 514 Upper 515 Lower 516 Upper 517 Lower 518 Upper 519 Lower 51A Upper 51B Lower 51C Upper 51D Lower 51E Upper 51F Lower 520 Upper 521 Lower 522 Upper 523 Lower 524 Upper 525 Lower 526 Upper 527 Lower 528 Upper 529 Lower 52A Upper 52B Lower 52C Upper 52D Lower 52E Upper 52F Lower 531 556 Upper 559 OLetter 55D SContinue 560 588 Lower 589 STerm 591 5BD Extend 5BF Extend 5C1 5C2 Extend 5C4 5C5 Extend 5C7 Extend 5D0 5EA OLetter 5EF 5F3 OLetter 600 605 Format 60C 60D SContinue 610 61A Extend 61C Format 61E 61F STerm 620 64A OLetter 64B 65F Extend 660 669 Numeric 66B 66C Numeric 66E 66F OLetter 670 Extend 671 6D3 OLetter 6D4 STerm 6D5 OLetter 6D6 6DC Extend 6DD Format 6DF 6E4 Extend 6E5 6E6 OLetter 6E7 6E8 Extend 6EA 6ED Extend 6EE 6EF OLetter 6F0 6F9 Numeric 6FA 6FC OLetter 6FF OLetter 700 702 STerm 70F Format 710 OLetter 711 Extend 712 72F OLetter 730 74A Extend 74D 7A5 OLetter 7A6 7B0 Extend 7B1 OLetter 7C0 7C9 Numeric 7CA 7EA OLetter 7EB 7F3 Extend 7F4 7F5 OLetter 7F8 SContinue 7F9 STerm 7FA OLetter 7FD Extend 800 815 OLetter 816 819 Extend 81A OLetter 81B 823 Extend 824 OLetter 825 827 Extend 828 OLetter 829 82D Extend 837 STerm 839 STerm 83D 83E STerm 840 858 OLetter 859 85B Extend 860 86A OLetter 8A0 8B4 OLetter 8B6 8C7 OLetter 8D3 8E1 Extend 8E2 Format 8E3 903 Extend 904 939 OLetter 93A 93C Extend 93D OLetter 93E 94F Extend 950 OLetter 951 957 Extend 958 961 OLetter 962 963 Extend 964 965 STerm 966 96F Numeric 971 980 OLetter 981 983 Extend 985 98C OLetter 98F 990 OLetter 993 9A8 OLetter 9AA 9B0 OLetter 9B2 OLetter 9B6 9B9 OLetter 9BC Extend 9BD OLetter 9BE 9C4 Extend 9C7 9C8 Extend 9CB 9CD Extend 9CE OLetter 9D7 Extend 9DC 9DD OLetter 9DF 9E1 OLetter 9E2 9E3 Extend 9E6 9EF Numeric 9F0 9F1 OLetter 9FC OLetter 9FE Extend A01 A03 Extend A05 A0A OLetter A0F A10 OLetter A13 A28 OLetter A2A A30 OLetter A32 A33 OLetter A35 A36 OLetter A38 A39 OLetter A3C Extend A3E A42 Extend A47 A48 Extend A4B A4D Extend A51 Extend A59 A5C OLetter A5E OLetter A66 A6F Numeric A70 A71 Extend A72 A74 OLetter A75 Extend A81 A83 Extend A85 A8D OLetter A8F A91 OLetter A93 AA8 OLetter AAA AB0 OLetter AB2 AB3 OLetter AB5 AB9 OLetter ABC Extend ABD OLetter ABE AC5 Extend AC7 AC9 Extend ACB ACD Extend AD0 OLetter AE0 AE1 OLetter AE2 AE3 Extend AE6 AEF Numeric AF9 OLetter AFA AFF Extend B01 B03 Extend B05 B0C OLetter B0F B10 OLetter B13 B28 OLetter B2A B30 OLetter B32 B33 OLetter B35 B39 OLetter B3C Extend B3D OLetter B3E B44 Extend B47 B48 Extend B4B B4D Extend B55 B57 Extend B5C B5D OLetter B5F B61 OLetter B62 B63 Extend B66 B6F Numeric B71 OLetter B82 Extend B83 OLetter B85 B8A OLetter B8E B90 OLetter B92 B95 OLetter B99 B9A OLetter B9C OLetter B9E B9F OLetter BA3 BA4 OLetter BA8 BAA OLetter BAE BB9 OLetter BBE BC2 Extend BC6 BC8 Extend BCA BCD Extend BD0 OLetter BD7 Extend BE6 BEF Numeric C00 C04 Extend C05 C0C OLetter C0E C10 OLetter C12 C28 OLetter C2A C39 OLetter C3D OLetter C3E C44 Extend C46 C48 Extend C4A C4D Extend C55 C56 Extend C58 C5A OLetter C60 C61 OLetter C62 C63 Extend C66 C6F Numeric C80 OLetter C81 C83 Extend C85 C8C OLetter C8E C90 OLetter C92 CA8 OLetter CAA CB3 OLetter CB5 CB9 OLetter CBC Extend CBD OLetter CBE CC4 Extend CC6 CC8 Extend CCA CCD Extend CD5 CD6 Extend CDE OLetter CE0 CE1 OLetter CE2 CE3 Extend CE6 CEF Numeric CF1 CF2 OLetter D00 D03 Extend D04 D0C OLetter D0E D10 OLetter D12 D3A OLetter D3B D3C Extend D3D OLetter D3E D44 Extend D46 D48 Extend D4A D4D Extend D4E OLetter D54 D56 OLetter D57 Extend D5F D61 OLetter D62 D63 Extend D66 D6F Numeric D7A D7F OLetter D81 D83 Extend D85 D96 OLetter D9A DB1 OLetter DB3 DBB OLetter DBD OLetter DC0 DC6 OLetter DCA Extend DCF DD4 Extend DD6 Extend DD8 DDF Extend DE6 DEF Numeric DF2 DF3 Extend E01 E30 OLetter E31 Extend E32 E33 OLetter E34 E3A Extend E40 E46 OLetter E47 E4E Extend E50 E59 Numeric E81 E82 OLetter E84 OLetter E86 E8A OLetter E8C EA3 OLetter EA5 OLetter EA7 EB0 OLetter EB1 Extend EB2 EB3 OLetter EB4 EBC Extend EBD OLetter EC0 EC4 OLetter EC6 OLetter EC8 ECD Extend ED0 ED9 Numeric EDC EDF OLetter F00 OLetter F18 F19 Extend F20 F29 Numeric F35 Extend F37 Extend F39 Extend F3A F3D Close F3E F3F Extend F40 F47 OLetter F49 F6C OLetter F71 F84 Extend F86 F87 Extend F88 F8C OLetter F8D F97 Extend F99 FBC Extend FC6 Extend 1000 102A OLetter 102B 103E Extend 103F OLetter 1040 1049 Numeric 104A 104B STerm 1050 1055 OLetter 1056 1059 Extend 105A 105D OLetter 105E 1060 Extend 1061 OLetter 1062 1064 Extend 1065 1066 OLetter 1067 106D Extend 106E 1070 OLetter 1071 1074 Extend 1075 1081 OLetter 1082 108D Extend 108E OLetter 108F Extend 1090 1099 Numeric 109A 109D Extend 10A0 10C5 Upper 10C7 Upper 10CD Upper 10D0 10FA OLetter 10FC 1248 OLetter 124A 124D OLetter 1250 1256 OLetter 1258 OLetter 125A 125D OLetter 1260 1288 OLetter 128A 128D OLetter 1290 12B0 OLetter 12B2 12B5 OLetter 12B8 12BE OLetter 12C0 OLetter 12C2 12C5 OLetter 12C8 12D6 OLetter 12D8 1310 OLetter 1312 1315 OLetter 1318 135A OLetter 135D 135F Extend 1362 STerm 1367 1368 STerm 1380 138F OLetter 13A0 13F5 Upper 13F8 13FD Lower 1401 166C OLetter 166E STerm 166F 167F OLetter 1680 Sp 1681 169A OLetter 169B 169C Close 16A0 16EA OLetter 16EE 16F8 OLetter 1700 170C OLetter 170E 1711 OLetter 1712 1714 Extend 1720 1731 OLetter 1732 1734 Extend 1735 1736 STerm 1740 1751 OLetter 1752 1753 Extend 1760 176C OLetter 176E 1770 OLetter 1772 1773 Extend 1780 17B3 OLetter 17B4 17D3 Extend 17D7 OLetter 17DC OLetter 17DD Extend 17E0 17E9 Numeric 1802 SContinue 1803 STerm 1808 SContinue 1809 STerm 180B 180D Extend 180E Format 1810 1819 Numeric 1820 1878 OLetter 1880 1884 OLetter 1885 1886 Extend 1887 18A8 OLetter 18A9 Extend 18AA OLetter 18B0 18F5 OLetter 1900 191E OLetter 1920 192B Extend 1930 193B Extend 1944 1945 STerm 1946 194F Numeric 1950 196D OLetter 1970 1974 OLetter 1980 19AB OLetter 19B0 19C9 OLetter 19D0 19D9 Numeric 1A00 1A16 OLetter 1A17 1A1B Extend 1A20 1A54 OLetter 1A55 1A5E Extend 1A60 1A7C Extend 1A7F Extend 1A80 1A89 Numeric 1A90 1A99 Numeric 1AA7 OLetter 1AA8 1AAB STerm 1AB0 1AC0 Extend 1B00 1B04 Extend 1B05 1B33 OLetter 1B34 1B44 Extend 1B45 1B4B OLetter 1B50 1B59 Numeric 1B5A 1B5B STerm 1B5E 1B5F STerm 1B6B 1B73 Extend 1B80 1B82 Extend 1B83 1BA0 OLetter 1BA1 1BAD Extend 1BAE 1BAF OLetter 1BB0 1BB9 Numeric 1BBA 1BE5 OLetter 1BE6 1BF3 Extend 1C00 1C23 OLetter 1C24 1C37 Extend 1C3B 1C3C STerm 1C40 1C49 Numeric 1C4D 1C4F OLetter 1C50 1C59 Numeric 1C5A 1C7D OLetter 1C7E 1C7F STerm 1C80 1C88 Lower 1C90 1CBA OLetter 1CBD 1CBF OLetter 1CD0 1CD2 Extend 1CD4 1CE8 Extend 1CE9 1CEC OLetter 1CED Extend 1CEE 1CF3 OLetter 1CF4 Extend 1CF5 1CF6 OLetter 1CF7 1CF9 Extend 1CFA OLetter 1D00 1DBF Lower 1DC0 1DF9 Extend 1DFB 1DFF Extend 1E00 Upper 1E01 Lower 1E02 Upper 1E03 Lower 1E04 Upper 1E05 Lower 1E06 Upper 1E07 Lower 1E08 Upper 1E09 Lower 1E0A Upper 1E0B Lower 1E0C Upper 1E0D Lower 1E0E Upper 1E0F Lower 1E10 Upper 1E11 Lower 1E12 Upper 1E13 Lower 1E14 Upper 1E15 Lower 1E16 Upper 1E17 Lower 1E18 Upper 1E19 Lower 1E1A Upper 1E1B Lower 1E1C Upper 1E1D Lower 1E1E Upper 1E1F Lower 1E20 Upper 1E21 Lower 1E22 Upper 1E23 Lower 1E24 Upper 1E25 Lower 1E26 Upper 1E27 Lower 1E28 Upper 1E29 Lower 1E2A Upper 1E2B Lower 1E2C Upper 1E2D Lower 1E2E Upper 1E2F Lower 1E30 Upper 1E31 Lower 1E32 Upper 1E33 Lower 1E34 Upper 1E35 Lower 1E36 Upper 1E37 Lower 1E38 Upper 1E39 Lower 1E3A Upper 1E3B Lower 1E3C Upper 1E3D Lower 1E3E Upper 1E3F Lower 1E40 Upper 1E41 Lower 1E42 Upper 1E43 Lower 1E44 Upper 1E45 Lower 1E46 Upper 1E47 Lower 1E48 Upper 1E49 Lower 1E4A Upper 1E4B Lower 1E4C Upper 1E4D Lower 1E4E Upper 1E4F Lower 1E50 Upper 1E51 Lower 1E52 Upper 1E53 Lower 1E54 Upper 1E55 Lower 1E56 Upper 1E57 Lower 1E58 Upper 1E59 Lower 1E5A Upper 1E5B Lower 1E5C Upper 1E5D Lower 1E5E Upper 1E5F Lower 1E60 Upper 1E61 Lower 1E62 Upper 1E63 Lower 1E64 Upper 1E65 Lower 1E66 Upper 1E67 Lower 1E68 Upper 1E69 Lower 1E6A Upper 1E6B Lower 1E6C Upper 1E6D Lower 1E6E Upper 1E6F Lower 1E70 Upper 1E71 Lower 1E72 Upper 1E73 Lower 1E74 Upper 1E75 Lower 1E76 Upper 1E77 Lower 1E78 Upper 1E79 Lower 1E7A Upper 1E7B Lower 1E7C Upper 1E7D Lower 1E7E Upper 1E7F Lower 1E80 Upper 1E81 Lower 1E82 Upper 1E83 Lower 1E84 Upper 1E85 Lower 1E86 Upper 1E87 Lower 1E88 Upper 1E89 Lower 1E8A Upper 1E8B Lower 1E8C Upper 1E8D Lower 1E8E Upper 1E8F Lower 1E90 Upper 1E91 Lower 1E92 Upper 1E93 Lower 1E94 Upper 1E95 1E9D Lower 1E9E Upper 1E9F Lower 1EA0 Upper 1EA1 Lower 1EA2 Upper 1EA3 Lower 1EA4 Upper 1EA5 Lower 1EA6 Upper 1EA7 Lower 1EA8 Upper 1EA9 Lower 1EAA Upper 1EAB Lower 1EAC Upper 1EAD Lower 1EAE Upper 1EAF Lower 1EB0 Upper 1EB1 Lower 1EB2 Upper 1EB3 Lower 1EB4 Upper 1EB5 Lower 1EB6 Upper 1EB7 Lower 1EB8 Upper 1EB9 Lower 1EBA Upper 1EBB Lower 1EBC Upper 1EBD Lower 1EBE Upper 1EBF Lower 1EC0 Upper 1EC1 Lower 1EC2 Upper 1EC3 Lower 1EC4 Upper 1EC5 Lower 1EC6 Upper 1EC7 Lower 1EC8 Upper 1EC9 Lower 1ECA Upper 1ECB Lower 1ECC Upper 1ECD Lower 1ECE Upper 1ECF Lower 1ED0 Upper 1ED1 Lower 1ED2 Upper 1ED3 Lower 1ED4 Upper 1ED5 Lower 1ED6 Upper 1ED7 Lower 1ED8 Upper 1ED9 Lower 1EDA Upper 1EDB Lower 1EDC Upper 1EDD Lower 1EDE Upper 1EDF Lower 1EE0 Upper 1EE1 Lower 1EE2 Upper 1EE3 Lower 1EE4 Upper 1EE5 Lower 1EE6 Upper 1EE7 Lower 1EE8 Upper 1EE9 Lower 1EEA Upper 1EEB Lower 1EEC Upper 1EED Lower 1EEE Upper 1EEF Lower 1EF0 Upper 1EF1 Lower 1EF2 Upper 1EF3 Lower 1EF4 Upper 1EF5 Lower 1EF6 Upper 1EF7 Lower 1EF8 Upper 1EF9 Lower 1EFA Upper 1EFB Lower 1EFC Upper 1EFD Lower 1EFE Upper 1EFF 1F07 Lower 1F08 1F0F Upper 1F10 1F15 Lower 1F18 1F1D Upper 1F20 1F27 Lower 1F28 1F2F Upper 1F30 1F37 Lower 1F38 1F3F Upper 1F40 1F45 Lower 1F48 1F4D Upper 1F50 1F57 Lower 1F59 Upper 1F5B Upper 1F5D Upper 1F5F Upper 1F60 1F67 Lower 1F68 1F6F Upper 1F70 1F7D Lower 1F80 1F87 Lower 1F88 1F8F Upper 1F90 1F97 Lower 1F98 1F9F Upper 1FA0 1FA7 Lower 1FA8 1FAF Upper 1FB0 1FB4 Lower 1FB6 1FB7 Lower 1FB8 1FBC Upper 1FBE Lower 1FC2 1FC4 Lower 1FC6 1FC7 Lower 1FC8 1FCC Upper 1FD0 1FD3 Lower 1FD6 1FD7 Lower 1FD8 1FDB Upper 1FE0 1FE7 Lower 1FE8 1FEC Upper 1FF2 1FF4 Lower 1FF6 1FF7 Lower 1FF8 1FFC Upper 2000 200A Sp 200B Format 200C 200D Extend 200E 200F Format 2013 2014 SContinue 2018 201F Close 2024 ATerm 2028 2029 Sep 202A 202E Format 202F Sp 2039 203A Close 203C 203D STerm 2045 2046 Close 2047 2049 STerm 205F Sp 2060 2064 Format 2066 206F Format 2071 Lower 207D 207E Close 207F Lower 208D 208E Close 2090 209C Lower 20D0 20F0 Extend 2102 Upper 2107 Upper 210A Lower 210B 210D Upper 210E 210F Lower 2110 2112 Upper 2113 Lower 2115 Upper 2119 211D Upper 2124 Upper 2126 Upper 2128 Upper 212A 212D Upper 212F Lower 2130 2133 Upper 2134 Lower 2135 2138 OLetter 2139 Lower 213C 213D Lower 213E 213F Upper 2145 Upper 2146 2149 Lower 214E Lower 2160 216F Upper 2170 217F Lower 2180 2182 OLetter 2183 Upper 2184 Lower 2185 2188 OLetter 2308 230B Close 2329 232A Close 24B6 24CF Upper 24D0 24E9 Lower 275B 2760 Close 2768 2775 Close 27C5 27C6 Close 27E6 27EF Close 2983 2998 Close 29D8 29DB Close 29FC 29FD Close 2C00 2C2E Upper 2C30 2C5E Lower 2C60 Upper 2C61 Lower 2C62 2C64 Upper 2C65 2C66 Lower 2C67 Upper 2C68 Lower 2C69 Upper 2C6A Lower 2C6B Upper 2C6C Lower 2C6D 2C70 Upper 2C71 Lower 2C72 Upper 2C73 2C74 Lower 2C75 Upper 2C76 2C7D Lower 2C7E 2C80 Upper 2C81 Lower 2C82 Upper 2C83 Lower 2C84 Upper 2C85 Lower 2C86 Upper 2C87 Lower 2C88 Upper 2C89 Lower 2C8A Upper 2C8B Lower 2C8C Upper 2C8D Lower 2C8E Upper 2C8F Lower 2C90 Upper 2C91 Lower 2C92 Upper 2C93 Lower 2C94 Upper 2C95 Lower 2C96 Upper 2C97 Lower 2C98 Upper 2C99 Lower 2C9A Upper 2C9B Lower 2C9C Upper 2C9D Lower 2C9E Upper 2C9F Lower 2CA0 Upper 2CA1 Lower 2CA2 Upper 2CA3 Lower 2CA4 Upper 2CA5 Lower 2CA6 Upper 2CA7 Lower 2CA8 Upper 2CA9 Lower 2CAA Upper 2CAB Lower 2CAC Upper 2CAD Lower 2CAE Upper 2CAF Lower 2CB0 Upper 2CB1 Lower 2CB2 Upper 2CB3 Lower 2CB4 Upper 2CB5 Lower 2CB6 Upper 2CB7 Lower 2CB8 Upper 2CB9 Lower 2CBA Upper 2CBB Lower 2CBC Upper 2CBD Lower 2CBE Upper 2CBF Lower 2CC0 Upper 2CC1 Lower 2CC2 Upper 2CC3 Lower 2CC4 Upper 2CC5 Lower 2CC6 Upper 2CC7 Lower 2CC8 Upper 2CC9 Lower 2CCA Upper 2CCB Lower 2CCC Upper 2CCD Lower 2CCE Upper 2CCF Lower 2CD0 Upper 2CD1 Lower 2CD2 Upper 2CD3 Lower 2CD4 Upper 2CD5 Lower 2CD6 Upper 2CD7 Lower 2CD8 Upper 2CD9 Lower 2CDA Upper 2CDB Lower 2CDC Upper 2CDD Lower 2CDE Upper 2CDF Lower 2CE0 Upper 2CE1 Lower 2CE2 Upper 2CE3 2CE4 Lower 2CEB Upper 2CEC Lower 2CED Upper 2CEE Lower 2CEF 2CF1 Extend 2CF2 Upper 2CF3 Lower 2D00 2D25 Lower 2D27 Lower 2D2D Lower 2D30 2D67 OLetter 2D6F OLetter 2D7F Extend 2D80 2D96 OLetter 2DA0 2DA6 OLetter 2DA8 2DAE OLetter 2DB0 2DB6 OLetter 2DB8 2DBE OLetter 2DC0 2DC6 OLetter 2DC8 2DCE OLetter 2DD0 2DD6 OLetter 2DD8 2DDE OLetter 2DE0 2DFF Extend 2E00 2E0D Close 2E1C 2E1D Close 2E20 2E29 Close 2E2E STerm 2E2F OLetter 2E3C STerm 2E42 Close 3000 Sp 3001 SContinue 3002 STerm 3005 3007 OLetter 3008 3011 Close 3014 301B Close 301D 301F Close 3021 3029 OLetter 302A 302F Extend 3031 3035 OLetter 3038 303C OLetter 3041 3096 OLetter 3099 309A Extend 309D 309F OLetter 30A1 30FA OLetter 30FC 30FF OLetter 3105 312F OLetter 3131 318E OLetter 31A0 31BF OLetter 31F0 31FF OLetter 3400 4DBF OLetter 4E00 9FFC OLetter A000 A48C OLetter A4D0 A4FD OLetter A4FF STerm A500 A60C OLetter A60E A60F STerm A610 A61F OLetter A620 A629 Numeric A62A A62B OLetter A640 Upper A641 Lower A642 Upper A643 Lower A644 Upper A645 Lower A646 Upper A647 Lower A648 Upper A649 Lower A64A Upper A64B Lower A64C Upper A64D Lower A64E Upper A64F Lower A650 Upper A651 Lower A652 Upper A653 Lower A654 Upper A655 Lower A656 Upper A657 Lower A658 Upper A659 Lower A65A Upper A65B Lower A65C Upper A65D Lower A65E Upper A65F Lower A660 Upper A661 Lower A662 Upper A663 Lower A664 Upper A665 Lower A666 Upper A667 Lower A668 Upper A669 Lower A66A Upper A66B Lower A66C Upper A66D Lower A66E OLetter A66F A672 Extend A674 A67D Extend A67F OLetter A680 Upper A681 Lower A682 Upper A683 Lower A684 Upper A685 Lower A686 Upper A687 Lower A688 Upper A689 Lower A68A Upper A68B Lower A68C Upper A68D Lower A68E Upper A68F Lower A690 Upper A691 Lower A692 Upper A693 Lower A694 Upper A695 Lower A696 Upper A697 Lower A698 Upper A699 Lower A69A Upper A69B A69D Lower A69E A69F Extend A6A0 A6EF OLetter A6F0 A6F1 Extend A6F3 STerm A6F7 STerm A717 A71F OLetter A722 Upper A723 Lower A724 Upper A725 Lower A726 Upper A727 Lower A728 Upper A729 Lower A72A Upper A72B Lower A72C Upper A72D Lower A72E Upper A72F A731 Lower A732 Upper A733 Lower A734 Upper A735 Lower A736 Upper A737 Lower A738 Upper A739 Lower A73A Upper A73B Lower A73C Upper A73D Lower A73E Upper A73F Lower A740 Upper A741 Lower A742 Upper A743 Lower A744 Upper A745 Lower A746 Upper A747 Lower A748 Upper A749 Lower A74A Upper A74B Lower A74C Upper A74D Lower A74E Upper A74F Lower A750 Upper A751 Lower A752 Upper A753 Lower A754 Upper A755 Lower A756 Upper A757 Lower A758 Upper A759 Lower A75A Upper A75B Lower A75C Upper A75D Lower A75E Upper A75F Lower A760 Upper A761 Lower A762 Upper A763 Lower A764 Upper A765 Lower A766 Upper A767 Lower A768 Upper A769 Lower A76A Upper A76B Lower A76C Upper A76D Lower A76E Upper A76F A778 Lower A779 Upper A77A Lower A77B Upper A77C Lower A77D A77E Upper A77F Lower A780 Upper A781 Lower A782 Upper A783 Lower A784 Upper A785 Lower A786 Upper A787 Lower A788 OLetter A78B Upper A78C Lower A78D Upper A78E Lower A78F OLetter A790 Upper A791 Lower A792 Upper A793 A795 Lower A796 Upper A797 Lower A798 Upper A799 Lower A79A Upper A79B Lower A79C Upper A79D Lower A79E Upper A79F Lower A7A0 Upper A7A1 Lower A7A2 Upper A7A3 Lower A7A4 Upper A7A5 Lower A7A6 Upper A7A7 Lower A7A8 Upper A7A9 Lower A7AA A7AE Upper A7AF Lower A7B0 A7B4 Upper A7B5 Lower A7B6 Upper A7B7 Lower A7B8 Upper A7B9 Lower A7BA Upper A7BB Lower A7BC Upper A7BD Lower A7BE Upper A7BF Lower A7C2 Upper A7C3 Lower A7C4 A7C7 Upper A7C8 Lower A7C9 Upper A7CA Lower A7F5 Upper A7F6 Lower A7F7 OLetter A7F8 A7FA Lower A7FB A801 OLetter A802 Extend A803 A805 OLetter A806 Extend A807 A80A OLetter A80B Extend A80C A822 OLetter A823 A827 Extend A82C Extend A840 A873 OLetter A876 A877 STerm A880 A881 Extend A882 A8B3 OLetter A8B4 A8C5 Extend A8CE A8CF STerm A8D0 A8D9 Numeric A8E0 A8F1 Extend A8F2 A8F7 OLetter A8FB OLetter A8FD A8FE OLetter A8FF Extend A900 A909 Numeric A90A A925 OLetter A926 A92D Extend A92F STerm A930 A946 OLetter A947 A953 Extend A960 A97C OLetter A980 A983 Extend A984 A9B2 OLetter A9B3 A9C0 Extend A9C8 A9C9 STerm A9CF OLetter A9D0 A9D9 Numeric A9E0 A9E4 OLetter A9E5 Extend A9E6 A9EF OLetter A9F0 A9F9 Numeric A9FA A9FE OLetter AA00 AA28 OLetter AA29 AA36 Extend AA40 AA42 OLetter AA43 Extend AA44 AA4B OLetter AA4C AA4D Extend AA50 AA59 Numeric AA5D AA5F STerm AA60 AA76 OLetter AA7A OLetter AA7B AA7D Extend AA7E AAAF OLetter AAB0 Extend AAB1 OLetter AAB2 AAB4 Extend AAB5 AAB6 OLetter AAB7 AAB8 Extend AAB9 AABD OLetter AABE AABF Extend AAC0 OLetter AAC1 Extend AAC2 OLetter AADB AADD OLetter AAE0 AAEA OLetter AAEB AAEF Extend AAF0 AAF1 STerm AAF2 AAF4 OLetter AAF5 AAF6 Extend AB01 AB06 OLetter AB09 AB0E OLetter AB11 AB16 OLetter AB20 AB26 OLetter AB28 AB2E OLetter AB30 AB5A Lower AB5C AB68 Lower AB69 OLetter AB70 ABBF Lower ABC0 ABE2 OLetter ABE3 ABEA Extend ABEB STerm ABEC ABED Extend ABF0 ABF9 Numeric AC00 D7A3 OLetter D7B0 D7C6 OLetter D7CB D7FB OLetter F900 FA6D OLetter FA70 FAD9 OLetter FB00 FB06 Lower FB13 FB17 Lower FB1D OLetter FB1E Extend FB1F FB28 OLetter FB2A FB36 OLetter FB38 FB3C OLetter FB3E OLetter FB40 FB41 OLetter FB43 FB44 OLetter FB46 FBB1 OLetter FBD3 FD3D OLetter FD3E FD3F Close FD50 FD8F OLetter FD92 FDC7 OLetter FDF0 FDFB OLetter FE00 FE0F Extend FE10 FE11 SContinue FE13 SContinue FE17 FE18 Close FE20 FE2F Extend FE31 FE32 SContinue FE35 FE44 Close FE47 FE48 Close FE50 FE51 SContinue FE52 ATerm FE55 SContinue FE56 FE57 STerm FE58 SContinue FE59 FE5E Close FE63 SContinue FE70 FE74 OLetter FE76 FEFC OLetter FEFF Format FF01 STerm FF08 FF09 Close FF0C FF0D SContinue FF0E ATerm FF10 FF19 Numeric FF1A SContinue FF1F STerm FF21 FF3A Upper FF3B Close FF3D Close FF41 FF5A Lower FF5B Close FF5D Close FF5F FF60 Close FF61 STerm FF62 FF63 Close FF64 SContinue FF66 FF9D OLetter FF9E FF9F Extend FFA0 FFBE OLetter FFC2 FFC7 OLetter FFCA FFCF OLetter FFD2 FFD7 OLetter FFDA FFDC OLetter FFF9 FFFB Format 10000 1000B OLetter 1000D 10026 OLetter 10028 1003A OLetter 1003C 1003D OLetter 1003F 1004D OLetter 10050 1005D OLetter 10080 100FA OLetter 10140 10174 OLetter 101FD Extend 10280 1029C OLetter 102A0 102D0 OLetter 102E0 Extend 10300 1031F OLetter 1032D 1034A OLetter 10350 10375 OLetter 10376 1037A Extend 10380 1039D OLetter 103A0 103C3 OLetter 103C8 103CF OLetter 103D1 103D5 OLetter 10400 10427 Upper 10428 1044F Lower 10450 1049D OLetter 104A0 104A9 Numeric 104B0 104D3 Upper 104D8 104FB Lower 10500 10527 OLetter 10530 10563 OLetter 10600 10736 OLetter 10740 10755 OLetter 10760 10767 OLetter 10800 10805 OLetter 10808 OLetter 1080A 10835 OLetter 10837 10838 OLetter 1083C OLetter 1083F 10855 OLetter 10860 10876 OLetter 10880 1089E OLetter 108E0 108F2 OLetter 108F4 108F5 OLetter 10900 10915 OLetter 10920 10939 OLetter 10980 109B7 OLetter 109BE 109BF OLetter 10A00 OLetter 10A01 10A03 Extend 10A05 10A06 Extend 10A0C 10A0F Extend 10A10 10A13 OLetter 10A15 10A17 OLetter 10A19 10A35 OLetter 10A38 10A3A Extend 10A3F Extend 10A56 10A57 STerm 10A60 10A7C OLetter 10A80 10A9C OLetter 10AC0 10AC7 OLetter 10AC9 10AE4 OLetter 10AE5 10AE6 Extend 10B00 10B35 OLetter 10B40 10B55 OLetter 10B60 10B72 OLetter 10B80 10B91 OLetter 10C00 10C48 OLetter 10C80 10CB2 Upper 10CC0 10CF2 Lower 10D00 10D23 OLetter 10D24 10D27 Extend 10D30 10D39 Numeric 10E80 10EA9 OLetter 10EAB 10EAC Extend 10EB0 10EB1 OLetter 10F00 10F1C OLetter 10F27 OLetter 10F30 10F45 OLetter 10F46 10F50 Extend 10F55 10F59 STerm 10FB0 10FC4 OLetter 10FE0 10FF6 OLetter 11000 11002 Extend 11003 11037 OLetter 11038 11046 Extend 11047 11048 STerm 11066 1106F Numeric 1107F 11082 Extend 11083 110AF OLetter 110B0 110BA Extend 110BD Format 110BE 110C1 STerm 110CD Format 110D0 110E8 OLetter 110F0 110F9 Numeric 11100 11102 Extend 11103 11126 OLetter 11127 11134 Extend 11136 1113F Numeric 11141 11143 STerm 11144 OLetter 11145 11146 Extend 11147 OLetter 11150 11172 OLetter 11173 Extend 11176 OLetter 11180 11182 Extend 11183 111B2 OLetter 111B3 111C0 Extend 111C1 111C4 OLetter 111C5 111C6 STerm 111C9 111CC Extend 111CD STerm 111CE 111CF Extend 111D0 111D9 Numeric 111DA OLetter 111DC OLetter 111DE 111DF STerm 11200 11211 OLetter 11213 1122B OLetter 1122C 11237 Extend 11238 11239 STerm 1123B 1123C STerm 1123E Extend 11280 11286 OLetter 11288 OLetter 1128A 1128D OLetter 1128F 1129D OLetter 1129F 112A8 OLetter 112A9 STerm 112B0 112DE OLetter 112DF 112EA Extend 112F0 112F9 Numeric 11300 11303 Extend 11305 1130C OLetter 1130F 11310 OLetter 11313 11328 OLetter 1132A 11330 OLetter 11332 11333 OLetter 11335 11339 OLetter 1133B 1133C Extend 1133D OLetter 1133E 11344 Extend 11347 11348 Extend 1134B 1134D Extend 11350 OLetter 11357 Extend 1135D 11361 OLetter 11362 11363 Extend 11366 1136C Extend 11370 11374 Extend 11400 11434 OLetter 11435 11446 Extend 11447 1144A OLetter 1144B 1144C STerm 11450 11459 Numeric 1145E Extend 1145F 11461 OLetter 11480 114AF OLetter 114B0 114C3 Extend 114C4 114C5 OLetter 114C7 OLetter 114D0 114D9 Numeric 11580 115AE OLetter 115AF 115B5 Extend 115B8 115C0 Extend 115C2 115C3 STerm 115C9 115D7 STerm 115D8 115DB OLetter 115DC 115DD Extend 11600 1162F OLetter 11630 11640 Extend 11641 11642 STerm 11644 OLetter 11650 11659 Numeric 11680 116AA OLetter 116AB 116B7 Extend 116B8 OLetter 116C0 116C9 Numeric 11700 1171A OLetter 1171D 1172B Extend 11730 11739 Numeric 1173C 1173E STerm 11800 1182B OLetter 1182C 1183A Extend 118A0 118BF Upper 118C0 118DF Lower 118E0 118E9 Numeric 118FF 11906 OLetter 11909 OLetter 1190C 11913 OLetter 11915 11916 OLetter 11918 1192F OLetter 11930 11935 Extend 11937 11938 Extend 1193B 1193E Extend 1193F OLetter 11940 Extend 11941 OLetter 11942 11943 Extend 11944 STerm 11946 STerm 11950 11959 Numeric 119A0 119A7 OLetter 119AA 119D0 OLetter 119D1 119D7 Extend 119DA 119E0 Extend 119E1 OLetter 119E3 OLetter 119E4 Extend 11A00 OLetter 11A01 11A0A Extend 11A0B 11A32 OLetter 11A33 11A39 Extend 11A3A OLetter 11A3B 11A3E Extend 11A42 11A43 STerm 11A47 Extend 11A50 OLetter 11A51 11A5B Extend 11A5C 11A89 OLetter 11A8A 11A99 Extend 11A9B 11A9C STerm 11A9D OLetter 11AC0 11AF8 OLetter 11C00 11C08 OLetter 11C0A 11C2E OLetter 11C2F 11C36 Extend 11C38 11C3F Extend 11C40 OLetter 11C41 11C42 STerm 11C50 11C59 Numeric 11C72 11C8F OLetter 11C92 11CA7 Extend 11CA9 11CB6 Extend 11D00 11D06 OLetter 11D08 11D09 OLetter 11D0B 11D30 OLetter 11D31 11D36 Extend 11D3A Extend 11D3C 11D3D Extend 11D3F 11D45 Extend 11D46 OLetter 11D47 Extend 11D50 11D59 Numeric 11D60 11D65 OLetter 11D67 11D68 OLetter 11D6A 11D89 OLetter 11D8A 11D8E Extend 11D90 11D91 Extend 11D93 11D97 Extend 11D98 OLetter 11DA0 11DA9 Numeric 11EE0 11EF2 OLetter 11EF3 11EF6 Extend 11EF7 11EF8 STerm 11FB0 OLetter 12000 12399 OLetter 12400 1246E OLetter 12480 12543 OLetter 13000 1342E OLetter 13430 13438 Format 14400 14646 OLetter 16800 16A38 OLetter 16A40 16A5E OLetter 16A60 16A69 Numeric 16A6E 16A6F STerm 16AD0 16AED OLetter 16AF0 16AF4 Extend 16AF5 STerm 16B00 16B2F OLetter 16B30 16B36 Extend 16B37 16B38 STerm 16B40 16B43 OLetter 16B44 STerm 16B50 16B59 Numeric 16B63 16B77 OLetter 16B7D 16B8F OLetter 16E40 16E5F Upper 16E60 16E7F Lower 16E98 STerm 16F00 16F4A OLetter 16F4F Extend 16F50 OLetter 16F51 16F87 Extend 16F8F 16F92 Extend 16F93 16F9F OLetter 16FE0 16FE1 OLetter 16FE3 OLetter 16FE4 Extend 16FF0 16FF1 Extend 17000 187F7 OLetter 18800 18CD5 OLetter 18D00 18D08 OLetter 1B000 1B11E OLetter 1B150 1B152 OLetter 1B164 1B167 OLetter 1B170 1B2FB OLetter 1BC00 1BC6A OLetter 1BC70 1BC7C OLetter 1BC80 1BC88 OLetter 1BC90 1BC99 OLetter 1BC9D 1BC9E Extend 1BC9F STerm 1BCA0 1BCA3 Format 1D165 1D169 Extend 1D16D 1D172 Extend 1D173 1D17A Format 1D17B 1D182 Extend 1D185 1D18B Extend 1D1AA 1D1AD Extend 1D242 1D244 Extend 1D400 1D419 Upper 1D41A 1D433 Lower 1D434 1D44D Upper 1D44E 1D454 Lower 1D456 1D467 Lower 1D468 1D481 Upper 1D482 1D49B Lower 1D49C Upper 1D49E 1D49F Upper 1D4A2 Upper 1D4A5 1D4A6 Upper 1D4A9 1D4AC Upper 1D4AE 1D4B5 Upper 1D4B6 1D4B9 Lower 1D4BB Lower 1D4BD 1D4C3 Lower 1D4C5 1D4CF Lower 1D4D0 1D4E9 Upper 1D4EA 1D503 Lower 1D504 1D505 Upper 1D507 1D50A Upper 1D50D 1D514 Upper 1D516 1D51C Upper 1D51E 1D537 Lower 1D538 1D539 Upper 1D53B 1D53E Upper 1D540 1D544 Upper 1D546 Upper 1D54A 1D550 Upper 1D552 1D56B Lower 1D56C 1D585 Upper 1D586 1D59F Lower 1D5A0 1D5B9 Upper 1D5BA 1D5D3 Lower 1D5D4 1D5ED Upper 1D5EE 1D607 Lower 1D608 1D621 Upper 1D622 1D63B Lower 1D63C 1D655 Upper 1D656 1D66F Lower 1D670 1D689 Upper 1D68A 1D6A5 Lower 1D6A8 1D6C0 Upper 1D6C2 1D6DA Lower 1D6DC 1D6E1 Lower 1D6E2 1D6FA Upper 1D6FC 1D714 Lower 1D716 1D71B Lower 1D71C 1D734 Upper 1D736 1D74E Lower 1D750 1D755 Lower 1D756 1D76E Upper 1D770 1D788 Lower 1D78A 1D78F Lower 1D790 1D7A8 Upper 1D7AA 1D7C2 Lower 1D7C4 1D7C9 Lower 1D7CA Upper 1D7CB Lower 1D7CE 1D7FF Numeric 1DA00 1DA36 Extend 1DA3B 1DA6C Extend 1DA75 Extend 1DA84 Extend 1DA88 STerm 1DA9B 1DA9F Extend 1DAA1 1DAAF Extend 1E000 1E006 Extend 1E008 1E018 Extend 1E01B 1E021 Extend 1E023 1E024 Extend 1E026 1E02A Extend 1E100 1E12C OLetter 1E130 1E136 Extend 1E137 1E13D OLetter 1E140 1E149 Numeric 1E14E OLetter 1E2C0 1E2EB OLetter 1E2EC 1E2EF Extend 1E2F0 1E2F9 Numeric 1E800 1E8C4 OLetter 1E8D0 1E8D6 Extend 1E900 1E921 Upper 1E922 1E943 Lower 1E944 1E94A Extend 1E94B OLetter 1E950 1E959 Numeric 1EE00 1EE03 OLetter 1EE05 1EE1F OLetter 1EE21 1EE22 OLetter 1EE24 OLetter 1EE27 OLetter 1EE29 1EE32 OLetter 1EE34 1EE37 OLetter 1EE39 OLetter 1EE3B OLetter 1EE42 OLetter 1EE47 OLetter 1EE49 OLetter 1EE4B OLetter 1EE4D 1EE4F OLetter 1EE51 1EE52 OLetter 1EE54 OLetter 1EE57 OLetter 1EE59 OLetter 1EE5B OLetter 1EE5D OLetter 1EE5F OLetter 1EE61 1EE62 OLetter 1EE64 OLetter 1EE67 1EE6A OLetter 1EE6C 1EE72 OLetter 1EE74 1EE77 OLetter 1EE79 1EE7C OLetter 1EE7E OLetter 1EE80 1EE89 OLetter 1EE8B 1EE9B OLetter 1EEA1 1EEA3 OLetter 1EEA5 1EEA9 OLetter 1EEAB 1EEBB OLetter 1F130 1F149 Upper 1F150 1F169 Upper 1F170 1F189 Upper 1F676 1F678 Close 1FBF0 1FBF9 Numeric 20000 2A6DD OLetter 2A700 2B734 OLetter 2B740 2B81D OLetter 2B820 2CEA1 OLetter 2CEB0 2EBE0 OLetter 2F800 2FA1D OLetter 30000 3134A OLetter E0001 Format E0020 E007F Extend E0100 E01EF Extend END PK ! �+��� � 5.34.0/unicore/To/Lc.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The mappings in the non-hash portion of this file must be modified to get the # correct values by adding the code point ordinal number to each one that is # numeric. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToLc'}{'format'} = 'ax'; # mapped value in hex; some entries need adjustment $Unicode::UCD::SwashInfo{'ToLc'}{'specials_name'} = 'Unicode::UCD::ToSpecLc'; # Name of hash of special mappings $Unicode::UCD::SwashInfo{'ToLc'}{'missing'} = '0'; # code point maps to itself # Some code points require special handling because their mappings are each to # multiple code points. These do not appear in the main body, but are defined # in the hash below. # Each key is the string of N bytes that together make up the UTF-8 encoding # for the code point. (i.e. the same as looking at the code point's UTF-8 # under "use bytes"). Each value is the UTF-8 of the translation, for speed. %Unicode::UCD::ToSpecLc = ( "\xC4\xB0" => "\x{0069}\x{0307}", # U+0130 => 0069 0307 ); return <<'END'; 41 5A 61 C0 D6 E0 D8 DE F8 100 101 102 103 104 105 106 107 108 109 10A 10B 10C 10D 10E 10F 110 111 112 113 114 115 116 117 118 119 11A 11B 11C 11D 11E 11F 120 121 122 123 124 125 126 127 128 129 12A 12B 12C 12D 12E 12F 130 69 132 133 134 135 136 137 139 13A 13B 13C 13D 13E 13F 140 141 142 143 144 145 146 147 148 14A 14B 14C 14D 14E 14F 150 151 152 153 154 155 156 157 158 159 15A 15B 15C 15D 15E 15F 160 161 162 163 164 165 166 167 168 169 16A 16B 16C 16D 16E 16F 170 171 172 173 174 175 176 177 178 FF 179 17A 17B 17C 17D 17E 181 253 182 183 184 185 186 254 187 188 189 18A 256 18B 18C 18E 1DD 18F 259 190 25B 191 192 193 260 194 263 196 269 197 268 198 199 19C 26F 19D 272 19F 275 1A0 1A1 1A2 1A3 1A4 1A5 1A6 280 1A7 1A8 1A9 283 1AC 1AD 1AE 288 1AF 1B0 1B1 1B2 28A 1B3 1B4 1B5 1B6 1B7 292 1B8 1B9 1BC 1BD 1C4 1C6 1C5 1C6 1C7 1C9 1C8 1C9 1CA 1CC 1CB 1CC 1CD 1CE 1CF 1D0 1D1 1D2 1D3 1D4 1D5 1D6 1D7 1D8 1D9 1DA 1DB 1DC 1DE 1DF 1E0 1E1 1E2 1E3 1E4 1E5 1E6 1E7 1E8 1E9 1EA 1EB 1EC 1ED 1EE 1EF 1F1 1F3 1F2 1F3 1F4 1F5 1F6 195 1F7 1BF 1F8 1F9 1FA 1FB 1FC 1FD 1FE 1FF 200 201 202 203 204 205 206 207 208 209 20A 20B 20C 20D 20E 20F 210 211 212 213 214 215 216 217 218 219 21A 21B 21C 21D 21E 21F 220 19E 222 223 224 225 226 227 228 229 22A 22B 22C 22D 22E 22F 230 231 232 233 23A 2C65 23B 23C 23D 19A 23E 2C66 241 242 243 180 244 289 245 28C 246 247 248 249 24A 24B 24C 24D 24E 24F 370 371 372 373 376 377 37F 3F3 386 3AC 388 38A 3AD 38C 3CC 38E 38F 3CD 391 3A1 3B1 3A3 3AB 3C3 3CF 3D7 3D8 3D9 3DA 3DB 3DC 3DD 3DE 3DF 3E0 3E1 3E2 3E3 3E4 3E5 3E6 3E7 3E8 3E9 3EA 3EB 3EC 3ED 3EE 3EF 3F4 3B8 3F7 3F8 3F9 3F2 3FA 3FB 3FD 3FF 37B 400 40F 450 410 42F 430 460 461 462 463 464 465 466 467 468 469 46A 46B 46C 46D 46E 46F 470 471 472 473 474 475 476 477 478 479 47A 47B 47C 47D 47E 47F 480 481 48A 48B 48C 48D 48E 48F 490 491 492 493 494 495 496 497 498 499 49A 49B 49C 49D 49E 49F 4A0 4A1 4A2 4A3 4A4 4A5 4A6 4A7 4A8 4A9 4AA 4AB 4AC 4AD 4AE 4AF 4B0 4B1 4B2 4B3 4B4 4B5 4B6 4B7 4B8 4B9 4BA 4BB 4BC 4BD 4BE 4BF 4C0 4CF 4C1 4C2 4C3 4C4 4C5 4C6 4C7 4C8 4C9 4CA 4CB 4CC 4CD 4CE 4D0 4D1 4D2 4D3 4D4 4D5 4D6 4D7 4D8 4D9 4DA 4DB 4DC 4DD 4DE 4DF 4E0 4E1 4E2 4E3 4E4 4E5 4E6 4E7 4E8 4E9 4EA 4EB 4EC 4ED 4EE 4EF 4F0 4F1 4F2 4F3 4F4 4F5 4F6 4F7 4F8 4F9 4FA 4FB 4FC 4FD 4FE 4FF 500 501 502 503 504 505 506 507 508 509 50A 50B 50C 50D 50E 50F 510 511 512 513 514 515 516 517 518 519 51A 51B 51C 51D 51E 51F 520 521 522 523 524 525 526 527 528 529 52A 52B 52C 52D 52E 52F 531 556 561 10A0 10C5 2D00 10C7 2D27 10CD 2D2D 13A0 13EF AB70 13F0 13F5 13F8 1C90 1CBA 10D0 1CBD 1CBF 10FD 1E00 1E01 1E02 1E03 1E04 1E05 1E06 1E07 1E08 1E09 1E0A 1E0B 1E0C 1E0D 1E0E 1E0F 1E10 1E11 1E12 1E13 1E14 1E15 1E16 1E17 1E18 1E19 1E1A 1E1B 1E1C 1E1D 1E1E 1E1F 1E20 1E21 1E22 1E23 1E24 1E25 1E26 1E27 1E28 1E29 1E2A 1E2B 1E2C 1E2D 1E2E 1E2F 1E30 1E31 1E32 1E33 1E34 1E35 1E36 1E37 1E38 1E39 1E3A 1E3B 1E3C 1E3D 1E3E 1E3F 1E40 1E41 1E42 1E43 1E44 1E45 1E46 1E47 1E48 1E49 1E4A 1E4B 1E4C 1E4D 1E4E 1E4F 1E50 1E51 1E52 1E53 1E54 1E55 1E56 1E57 1E58 1E59 1E5A 1E5B 1E5C 1E5D 1E5E 1E5F 1E60 1E61 1E62 1E63 1E64 1E65 1E66 1E67 1E68 1E69 1E6A 1E6B 1E6C 1E6D 1E6E 1E6F 1E70 1E71 1E72 1E73 1E74 1E75 1E76 1E77 1E78 1E79 1E7A 1E7B 1E7C 1E7D 1E7E 1E7F 1E80 1E81 1E82 1E83 1E84 1E85 1E86 1E87 1E88 1E89 1E8A 1E8B 1E8C 1E8D 1E8E 1E8F 1E90 1E91 1E92 1E93 1E94 1E95 1E9E DF 1EA0 1EA1 1EA2 1EA3 1EA4 1EA5 1EA6 1EA7 1EA8 1EA9 1EAA 1EAB 1EAC 1EAD 1EAE 1EAF 1EB0 1EB1 1EB2 1EB3 1EB4 1EB5 1EB6 1EB7 1EB8 1EB9 1EBA 1EBB 1EBC 1EBD 1EBE 1EBF 1EC0 1EC1 1EC2 1EC3 1EC4 1EC5 1EC6 1EC7 1EC8 1EC9 1ECA 1ECB 1ECC 1ECD 1ECE 1ECF 1ED0 1ED1 1ED2 1ED3 1ED4 1ED5 1ED6 1ED7 1ED8 1ED9 1EDA 1EDB 1EDC 1EDD 1EDE 1EDF 1EE0 1EE1 1EE2 1EE3 1EE4 1EE5 1EE6 1EE7 1EE8 1EE9 1EEA 1EEB 1EEC 1EED 1EEE 1EEF 1EF0 1EF1 1EF2 1EF3 1EF4 1EF5 1EF6 1EF7 1EF8 1EF9 1EFA 1EFB 1EFC 1EFD 1EFE 1EFF 1F08 1F0F 1F00 1F18 1F1D 1F10 1F28 1F2F 1F20 1F38 1F3F 1F30 1F48 1F4D 1F40 1F59 1F51 1F5B 1F53 1F5D 1F55 1F5F 1F57 1F68 1F6F 1F60 1F88 1F8F 1F80 1F98 1F9F 1F90 1FA8 1FAF 1FA0 1FB8 1FB9 1FB0 1FBA 1FBB 1F70 1FBC 1FB3 1FC8 1FCB 1F72 1FCC 1FC3 1FD8 1FD9 1FD0 1FDA 1FDB 1F76 1FE8 1FE9 1FE0 1FEA 1FEB 1F7A 1FEC 1FE5 1FF8 1FF9 1F78 1FFA 1FFB 1F7C 1FFC 1FF3 2126 3C9 212A 6B 212B E5 2132 214E 2160 216F 2170 2183 2184 24B6 24CF 24D0 2C00 2C2E 2C30 2C60 2C61 2C62 26B 2C63 1D7D 2C64 27D 2C67 2C68 2C69 2C6A 2C6B 2C6C 2C6D 251 2C6E 271 2C6F 250 2C70 252 2C72 2C73 2C75 2C76 2C7E 2C7F 23F 2C80 2C81 2C82 2C83 2C84 2C85 2C86 2C87 2C88 2C89 2C8A 2C8B 2C8C 2C8D 2C8E 2C8F 2C90 2C91 2C92 2C93 2C94 2C95 2C96 2C97 2C98 2C99 2C9A 2C9B 2C9C 2C9D 2C9E 2C9F 2CA0 2CA1 2CA2 2CA3 2CA4 2CA5 2CA6 2CA7 2CA8 2CA9 2CAA 2CAB 2CAC 2CAD 2CAE 2CAF 2CB0 2CB1 2CB2 2CB3 2CB4 2CB5 2CB6 2CB7 2CB8 2CB9 2CBA 2CBB 2CBC 2CBD 2CBE 2CBF 2CC0 2CC1 2CC2 2CC3 2CC4 2CC5 2CC6 2CC7 2CC8 2CC9 2CCA 2CCB 2CCC 2CCD 2CCE 2CCF 2CD0 2CD1 2CD2 2CD3 2CD4 2CD5 2CD6 2CD7 2CD8 2CD9 2CDA 2CDB 2CDC 2CDD 2CDE 2CDF 2CE0 2CE1 2CE2 2CE3 2CEB 2CEC 2CED 2CEE 2CF2 2CF3 A640 A641 A642 A643 A644 A645 A646 A647 A648 A649 A64A A64B A64C A64D A64E A64F A650 A651 A652 A653 A654 A655 A656 A657 A658 A659 A65A A65B A65C A65D A65E A65F A660 A661 A662 A663 A664 A665 A666 A667 A668 A669 A66A A66B A66C A66D A680 A681 A682 A683 A684 A685 A686 A687 A688 A689 A68A A68B A68C A68D A68E A68F A690 A691 A692 A693 A694 A695 A696 A697 A698 A699 A69A A69B A722 A723 A724 A725 A726 A727 A728 A729 A72A A72B A72C A72D A72E A72F A732 A733 A734 A735 A736 A737 A738 A739 A73A A73B A73C A73D A73E A73F A740 A741 A742 A743 A744 A745 A746 A747 A748 A749 A74A A74B A74C A74D A74E A74F A750 A751 A752 A753 A754 A755 A756 A757 A758 A759 A75A A75B A75C A75D A75E A75F A760 A761 A762 A763 A764 A765 A766 A767 A768 A769 A76A A76B A76C A76D A76E A76F A779 A77A A77B A77C A77D 1D79 A77E A77F A780 A781 A782 A783 A784 A785 A786 A787 A78B A78C A78D 265 A790 A791 A792 A793 A796 A797 A798 A799 A79A A79B A79C A79D A79E A79F A7A0 A7A1 A7A2 A7A3 A7A4 A7A5 A7A6 A7A7 A7A8 A7A9 A7AA 266 A7AB 25C A7AC 261 A7AD 26C A7AE 26A A7B0 29E A7B1 287 A7B2 29D A7B3 AB53 A7B4 A7B5 A7B6 A7B7 A7B8 A7B9 A7BA A7BB A7BC A7BD A7BE A7BF A7C2 A7C3 A7C4 A794 A7C5 282 A7C6 1D8E A7C7 A7C8 A7C9 A7CA A7F5 A7F6 FF21 FF3A FF41 10400 10427 10428 104B0 104D3 104D8 10C80 10CB2 10CC0 118A0 118BF 118C0 16E40 16E5F 16E60 1E900 1E921 1E922 END PK ! ,�V�B �B 5.34.0/unicore/To/Sc.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToSc'}{'format'} = 's'; # string $Unicode::UCD::SwashInfo{'ToSc'}{'missing'} = 'Unknown'; return <<'END'; 0 40 Common 41 5A Latin 5B 60 Common 61 7A Latin 7B A9 Common AA Latin AB B9 Common BA Latin BB BF Common C0 D6 Latin D7 Common D8 F6 Latin F7 Common F8 2B8 Latin 2B9 2DF Common 2E0 2E4 Latin 2E5 2E9 Common 2EA 2EB Bopomofo 2EC 2FF Common 300 36F Inherited 370 373 Greek 374 Common 375 377 Greek 37A 37D Greek 37E Common 37F Greek 384 Greek 385 Common 386 Greek 387 Common 388 38A Greek 38C Greek 38E 3A1 Greek 3A3 3E1 Greek 3E2 3EF Coptic 3F0 3FF Greek 400 484 Cyrillic 485 486 Inherited 487 52F Cyrillic 531 556 Armenian 559 58A Armenian 58D 58F Armenian 591 5C7 Hebrew 5D0 5EA Hebrew 5EF 5F4 Hebrew 600 604 Arabic 605 Common 606 60B Arabic 60C Common 60D 61A Arabic 61B Common 61C Arabic 61E Arabic 61F Common 620 63F Arabic 640 Common 641 64A Arabic 64B 655 Inherited 656 66F Arabic 670 Inherited 671 6DC Arabic 6DD Common 6DE 6FF Arabic 700 70D Syriac 70F 74A Syriac 74D 74F Syriac 750 77F Arabic 780 7B1 Thaana 7C0 7FA Nko 7FD 7FF Nko 800 82D Samaritan 830 83E Samaritan 840 85B Mandaic 85E Mandaic 860 86A Syriac 8A0 8B4 Arabic 8B6 8C7 Arabic 8D3 8E1 Arabic 8E2 Common 8E3 8FF Arabic 900 950 Devanagari 951 954 Inherited 955 963 Devanagari 964 965 Common 966 97F Devanagari 980 983 Bengali 985 98C Bengali 98F 990 Bengali 993 9A8 Bengali 9AA 9B0 Bengali 9B2 Bengali 9B6 9B9 Bengali 9BC 9C4 Bengali 9C7 9C8 Bengali 9CB 9CE Bengali 9D7 Bengali 9DC 9DD Bengali 9DF 9E3 Bengali 9E6 9FE Bengali A01 A03 Gurmukhi A05 A0A Gurmukhi A0F A10 Gurmukhi A13 A28 Gurmukhi A2A A30 Gurmukhi A32 A33 Gurmukhi A35 A36 Gurmukhi A38 A39 Gurmukhi A3C Gurmukhi A3E A42 Gurmukhi A47 A48 Gurmukhi A4B A4D Gurmukhi A51 Gurmukhi A59 A5C Gurmukhi A5E Gurmukhi A66 A76 Gurmukhi A81 A83 Gujarati A85 A8D Gujarati A8F A91 Gujarati A93 AA8 Gujarati AAA AB0 Gujarati AB2 AB3 Gujarati AB5 AB9 Gujarati ABC AC5 Gujarati AC7 AC9 Gujarati ACB ACD Gujarati AD0 Gujarati AE0 AE3 Gujarati AE6 AF1 Gujarati AF9 AFF Gujarati B01 B03 Oriya B05 B0C Oriya B0F B10 Oriya B13 B28 Oriya B2A B30 Oriya B32 B33 Oriya B35 B39 Oriya B3C B44 Oriya B47 B48 Oriya B4B B4D Oriya B55 B57 Oriya B5C B5D Oriya B5F B63 Oriya B66 B77 Oriya B82 B83 Tamil B85 B8A Tamil B8E B90 Tamil B92 B95 Tamil B99 B9A Tamil B9C Tamil B9E B9F Tamil BA3 BA4 Tamil BA8 BAA Tamil BAE BB9 Tamil BBE BC2 Tamil BC6 BC8 Tamil BCA BCD Tamil BD0 Tamil BD7 Tamil BE6 BFA Tamil C00 C0C Telugu C0E C10 Telugu C12 C28 Telugu C2A C39 Telugu C3D C44 Telugu C46 C48 Telugu C4A C4D Telugu C55 C56 Telugu C58 C5A Telugu C60 C63 Telugu C66 C6F Telugu C77 C7F Telugu C80 C8C Kannada C8E C90 Kannada C92 CA8 Kannada CAA CB3 Kannada CB5 CB9 Kannada CBC CC4 Kannada CC6 CC8 Kannada CCA CCD Kannada CD5 CD6 Kannada CDE Kannada CE0 CE3 Kannada CE6 CEF Kannada CF1 CF2 Kannada D00 D0C Malayalam D0E D10 Malayalam D12 D44 Malayalam D46 D48 Malayalam D4A D4F Malayalam D54 D63 Malayalam D66 D7F Malayalam D81 D83 Sinhala D85 D96 Sinhala D9A DB1 Sinhala DB3 DBB Sinhala DBD Sinhala DC0 DC6 Sinhala DCA Sinhala DCF DD4 Sinhala DD6 Sinhala DD8 DDF Sinhala DE6 DEF Sinhala DF2 DF4 Sinhala E01 E3A Thai E3F Common E40 E5B Thai E81 E82 Lao E84 Lao E86 E8A Lao E8C EA3 Lao EA5 Lao EA7 EBD Lao EC0 EC4 Lao EC6 Lao EC8 ECD Lao ED0 ED9 Lao EDC EDF Lao F00 F47 Tibetan F49 F6C Tibetan F71 F97 Tibetan F99 FBC Tibetan FBE FCC Tibetan FCE FD4 Tibetan FD5 FD8 Common FD9 FDA Tibetan 1000 109F Myanmar 10A0 10C5 Georgian 10C7 Georgian 10CD Georgian 10D0 10FA Georgian 10FB Common 10FC 10FF Georgian 1100 11FF Hangul 1200 1248 Ethiopic 124A 124D Ethiopic 1250 1256 Ethiopic 1258 Ethiopic 125A 125D Ethiopic 1260 1288 Ethiopic 128A 128D Ethiopic 1290 12B0 Ethiopic 12B2 12B5 Ethiopic 12B8 12BE Ethiopic 12C0 Ethiopic 12C2 12C5 Ethiopic 12C8 12D6 Ethiopic 12D8 1310 Ethiopic 1312 1315 Ethiopic 1318 135A Ethiopic 135D 137C Ethiopic 1380 1399 Ethiopic 13A0 13F5 Cherokee 13F8 13FD Cherokee 1400 167F Canadian_Aboriginal 1680 169C Ogham 16A0 16EA Runic 16EB 16ED Common 16EE 16F8 Runic 1700 170C Tagalog 170E 1714 Tagalog 1720 1734 Hanunoo 1735 1736 Common 1740 1753 Buhid 1760 176C Tagbanwa 176E 1770 Tagbanwa 1772 1773 Tagbanwa 1780 17DD Khmer 17E0 17E9 Khmer 17F0 17F9 Khmer 1800 1801 Mongolian 1802 1803 Common 1804 Mongolian 1805 Common 1806 180E Mongolian 1810 1819 Mongolian 1820 1878 Mongolian 1880 18AA Mongolian 18B0 18F5 Canadian_Aboriginal 1900 191E Limbu 1920 192B Limbu 1930 193B Limbu 1940 Limbu 1944 194F Limbu 1950 196D Tai_Le 1970 1974 Tai_Le 1980 19AB New_Tai_Lue 19B0 19C9 New_Tai_Lue 19D0 19DA New_Tai_Lue 19DE 19DF New_Tai_Lue 19E0 19FF Khmer 1A00 1A1B Buginese 1A1E 1A1F Buginese 1A20 1A5E Tai_Tham 1A60 1A7C Tai_Tham 1A7F 1A89 Tai_Tham 1A90 1A99 Tai_Tham 1AA0 1AAD Tai_Tham 1AB0 1AC0 Inherited 1B00 1B4B Balinese 1B50 1B7C Balinese 1B80 1BBF Sundanese 1BC0 1BF3 Batak 1BFC 1BFF Batak 1C00 1C37 Lepcha 1C3B 1C49 Lepcha 1C4D 1C4F Lepcha 1C50 1C7F Ol_Chiki 1C80 1C88 Cyrillic 1C90 1CBA Georgian 1CBD 1CBF Georgian 1CC0 1CC7 Sundanese 1CD0 1CD2 Inherited 1CD3 Common 1CD4 1CE0 Inherited 1CE1 Common 1CE2 1CE8 Inherited 1CE9 1CEC Common 1CED Inherited 1CEE 1CF3 Common 1CF4 Inherited 1CF5 1CF7 Common 1CF8 1CF9 Inherited 1CFA Common 1D00 1D25 Latin 1D26 1D2A Greek 1D2B Cyrillic 1D2C 1D5C Latin 1D5D 1D61 Greek 1D62 1D65 Latin 1D66 1D6A Greek 1D6B 1D77 Latin 1D78 Cyrillic 1D79 1DBE Latin 1DBF Greek 1DC0 1DF9 Inherited 1DFB 1DFF Inherited 1E00 1EFF Latin 1F00 1F15 Greek 1F18 1F1D Greek 1F20 1F45 Greek 1F48 1F4D Greek 1F50 1F57 Greek 1F59 Greek 1F5B Greek 1F5D Greek 1F5F 1F7D Greek 1F80 1FB4 Greek 1FB6 1FC4 Greek 1FC6 1FD3 Greek 1FD6 1FDB Greek 1FDD 1FEF Greek 1FF2 1FF4 Greek 1FF6 1FFE Greek 2000 200B Common 200C 200D Inherited 200E 2064 Common 2066 2070 Common 2071 Latin 2074 207E Common 207F Latin 2080 208E Common 2090 209C Latin 20A0 20BF Common 20D0 20F0 Inherited 2100 2125 Common 2126 Greek 2127 2129 Common 212A 212B Latin 212C 2131 Common 2132 Latin 2133 214D Common 214E Latin 214F 215F Common 2160 2188 Latin 2189 218B Common 2190 2426 Common 2440 244A Common 2460 27FF Common 2800 28FF Braille 2900 2B73 Common 2B76 2B95 Common 2B97 2BFF Common 2C00 2C2E Glagolitic 2C30 2C5E Glagolitic 2C60 2C7F Latin 2C80 2CF3 Coptic 2CF9 2CFF Coptic 2D00 2D25 Georgian 2D27 Georgian 2D2D Georgian 2D30 2D67 Tifinagh 2D6F 2D70 Tifinagh 2D7F Tifinagh 2D80 2D96 Ethiopic 2DA0 2DA6 Ethiopic 2DA8 2DAE Ethiopic 2DB0 2DB6 Ethiopic 2DB8 2DBE Ethiopic 2DC0 2DC6 Ethiopic 2DC8 2DCE Ethiopic 2DD0 2DD6 Ethiopic 2DD8 2DDE Ethiopic 2DE0 2DFF Cyrillic 2E00 2E52 Common 2E80 2E99 Han 2E9B 2EF3 Han 2F00 2FD5 Han 2FF0 2FFB Common 3000 3004 Common 3005 Han 3006 Common 3007 Han 3008 3020 Common 3021 3029 Han 302A 302D Inherited 302E 302F Hangul 3030 3037 Common 3038 303B Han 303C 303F Common 3041 3096 Hiragana 3099 309A Inherited 309B 309C Common 309D 309F Hiragana 30A0 Common 30A1 30FA Katakana 30FB 30FC Common 30FD 30FF Katakana 3105 312F Bopomofo 3131 318E Hangul 3190 319F Common 31A0 31BF Bopomofo 31C0 31E3 Common 31F0 31FF Katakana 3200 321E Hangul 3220 325F Common 3260 327E Hangul 327F 32CF Common 32D0 32FE Katakana 32FF Common 3300 3357 Katakana 3358 33FF Common 3400 4DBF Han 4DC0 4DFF Common 4E00 9FFC Han A000 A48C Yi A490 A4C6 Yi A4D0 A4FF Lisu A500 A62B Vai A640 A69F Cyrillic A6A0 A6F7 Bamum A700 A721 Common A722 A787 Latin A788 A78A Common A78B A7BF Latin A7C2 A7CA Latin A7F5 A7FF Latin A800 A82C Syloti_Nagri A830 A839 Common A840 A877 Phags_Pa A880 A8C5 Saurashtra A8CE A8D9 Saurashtra A8E0 A8FF Devanagari A900 A92D Kayah_Li A92E Common A92F Kayah_Li A930 A953 Rejang A95F Rejang A960 A97C Hangul A980 A9CD Javanese A9CF Common A9D0 A9D9 Javanese A9DE A9DF Javanese A9E0 A9FE Myanmar AA00 AA36 Cham AA40 AA4D Cham AA50 AA59 Cham AA5C AA5F Cham AA60 AA7F Myanmar AA80 AAC2 Tai_Viet AADB AADF Tai_Viet AAE0 AAF6 Meetei_Mayek AB01 AB06 Ethiopic AB09 AB0E Ethiopic AB11 AB16 Ethiopic AB20 AB26 Ethiopic AB28 AB2E Ethiopic AB30 AB5A Latin AB5B Common AB5C AB64 Latin AB65 Greek AB66 AB69 Latin AB6A AB6B Common AB70 ABBF Cherokee ABC0 ABED Meetei_Mayek ABF0 ABF9 Meetei_Mayek AC00 D7A3 Hangul D7B0 D7C6 Hangul D7CB D7FB Hangul F900 FA6D Han FA70 FAD9 Han FB00 FB06 Latin FB13 FB17 Armenian FB1D FB36 Hebrew FB38 FB3C Hebrew FB3E Hebrew FB40 FB41 Hebrew FB43 FB44 Hebrew FB46 FB4F Hebrew FB50 FBC1 Arabic FBD3 FD3D Arabic FD3E FD3F Common FD50 FD8F Arabic FD92 FDC7 Arabic FDF0 FDFD Arabic FE00 FE0F Inherited FE10 FE19 Common FE20 FE2D Inherited FE2E FE2F Cyrillic FE30 FE52 Common FE54 FE66 Common FE68 FE6B Common FE70 FE74 Arabic FE76 FEFC Arabic FEFF Common FF01 FF20 Common FF21 FF3A Latin FF3B FF40 Common FF41 FF5A Latin FF5B FF65 Common FF66 FF6F Katakana FF70 Common FF71 FF9D Katakana FF9E FF9F Common FFA0 FFBE Hangul FFC2 FFC7 Hangul FFCA FFCF Hangul FFD2 FFD7 Hangul FFDA FFDC Hangul FFE0 FFE6 Common FFE8 FFEE Common FFF9 FFFD Common 10000 1000B Linear_B 1000D 10026 Linear_B 10028 1003A Linear_B 1003C 1003D Linear_B 1003F 1004D Linear_B 10050 1005D Linear_B 10080 100FA Linear_B 10100 10102 Common 10107 10133 Common 10137 1013F Common 10140 1018E Greek 10190 1019C Common 101A0 Greek 101D0 101FC Common 101FD Inherited 10280 1029C Lycian 102A0 102D0 Carian 102E0 Inherited 102E1 102FB Common 10300 10323 Old_Italic 1032D 1032F Old_Italic 10330 1034A Gothic 10350 1037A Old_Permic 10380 1039D Ugaritic 1039F Ugaritic 103A0 103C3 Old_Persian 103C8 103D5 Old_Persian 10400 1044F Deseret 10450 1047F Shavian 10480 1049D Osmanya 104A0 104A9 Osmanya 104B0 104D3 Osage 104D8 104FB Osage 10500 10527 Elbasan 10530 10563 Caucasian_Albanian 1056F Caucasian_Albanian 10600 10736 Linear_A 10740 10755 Linear_A 10760 10767 Linear_A 10800 10805 Cypriot 10808 Cypriot 1080A 10835 Cypriot 10837 10838 Cypriot 1083C Cypriot 1083F Cypriot 10840 10855 Imperial_Aramaic 10857 1085F Imperial_Aramaic 10860 1087F Palmyrene 10880 1089E Nabataean 108A7 108AF Nabataean 108E0 108F2 Hatran 108F4 108F5 Hatran 108FB 108FF Hatran 10900 1091B Phoenician 1091F Phoenician 10920 10939 Lydian 1093F Lydian 10980 1099F Meroitic_Hieroglyphs 109A0 109B7 Meroitic_Cursive 109BC 109CF Meroitic_Cursive 109D2 109FF Meroitic_Cursive 10A00 10A03 Kharoshthi 10A05 10A06 Kharoshthi 10A0C 10A13 Kharoshthi 10A15 10A17 Kharoshthi 10A19 10A35 Kharoshthi 10A38 10A3A Kharoshthi 10A3F 10A48 Kharoshthi 10A50 10A58 Kharoshthi 10A60 10A7F Old_South_Arabian 10A80 10A9F Old_North_Arabian 10AC0 10AE6 Manichaean 10AEB 10AF6 Manichaean 10B00 10B35 Avestan 10B39 10B3F Avestan 10B40 10B55 Inscriptional_Parthian 10B58 10B5F Inscriptional_Parthian 10B60 10B72 Inscriptional_Pahlavi 10B78 10B7F Inscriptional_Pahlavi 10B80 10B91 Psalter_Pahlavi 10B99 10B9C Psalter_Pahlavi 10BA9 10BAF Psalter_Pahlavi 10C00 10C48 Old_Turkic 10C80 10CB2 Old_Hungarian 10CC0 10CF2 Old_Hungarian 10CFA 10CFF Old_Hungarian 10D00 10D27 Hanifi_Rohingya 10D30 10D39 Hanifi_Rohingya 10E60 10E7E Arabic 10E80 10EA9 Yezidi 10EAB 10EAD Yezidi 10EB0 10EB1 Yezidi 10F00 10F27 Old_Sogdian 10F30 10F59 Sogdian 10FB0 10FCB Chorasmian 10FE0 10FF6 Elymaic 11000 1104D Brahmi 11052 1106F Brahmi 1107F Brahmi 11080 110C1 Kaithi 110CD Kaithi 110D0 110E8 Sora_Sompeng 110F0 110F9 Sora_Sompeng 11100 11134 Chakma 11136 11147 Chakma 11150 11176 Mahajani 11180 111DF Sharada 111E1 111F4 Sinhala 11200 11211 Khojki 11213 1123E Khojki 11280 11286 Multani 11288 Multani 1128A 1128D Multani 1128F 1129D Multani 1129F 112A9 Multani 112B0 112EA Khudawadi 112F0 112F9 Khudawadi 11300 11303 Grantha 11305 1130C Grantha 1130F 11310 Grantha 11313 11328 Grantha 1132A 11330 Grantha 11332 11333 Grantha 11335 11339 Grantha 1133B Inherited 1133C 11344 Grantha 11347 11348 Grantha 1134B 1134D Grantha 11350 Grantha 11357 Grantha 1135D 11363 Grantha 11366 1136C Grantha 11370 11374 Grantha 11400 1145B Newa 1145D 11461 Newa 11480 114C7 Tirhuta 114D0 114D9 Tirhuta 11580 115B5 Siddham 115B8 115DD Siddham 11600 11644 Modi 11650 11659 Modi 11660 1166C Mongolian 11680 116B8 Takri 116C0 116C9 Takri 11700 1171A Ahom 1171D 1172B Ahom 11730 1173F Ahom 11800 1183B Dogra 118A0 118F2 Warang_Citi 118FF Warang_Citi 11900 11906 Dives_Akuru 11909 Dives_Akuru 1190C 11913 Dives_Akuru 11915 11916 Dives_Akuru 11918 11935 Dives_Akuru 11937 11938 Dives_Akuru 1193B 11946 Dives_Akuru 11950 11959 Dives_Akuru 119A0 119A7 Nandinagari 119AA 119D7 Nandinagari 119DA 119E4 Nandinagari 11A00 11A47 Zanabazar_Square 11A50 11AA2 Soyombo 11AC0 11AF8 Pau_Cin_Hau 11C00 11C08 Bhaiksuki 11C0A 11C36 Bhaiksuki 11C38 11C45 Bhaiksuki 11C50 11C6C Bhaiksuki 11C70 11C8F Marchen 11C92 11CA7 Marchen 11CA9 11CB6 Marchen 11D00 11D06 Masaram_Gondi 11D08 11D09 Masaram_Gondi 11D0B 11D36 Masaram_Gondi 11D3A Masaram_Gondi 11D3C 11D3D Masaram_Gondi 11D3F 11D47 Masaram_Gondi 11D50 11D59 Masaram_Gondi 11D60 11D65 Gunjala_Gondi 11D67 11D68 Gunjala_Gondi 11D6A 11D8E Gunjala_Gondi 11D90 11D91 Gunjala_Gondi 11D93 11D98 Gunjala_Gondi 11DA0 11DA9 Gunjala_Gondi 11EE0 11EF8 Makasar 11FB0 Lisu 11FC0 11FF1 Tamil 11FFF Tamil 12000 12399 Cuneiform 12400 1246E Cuneiform 12470 12474 Cuneiform 12480 12543 Cuneiform 13000 1342E Egyptian_Hieroglyphs 13430 13438 Egyptian_Hieroglyphs 14400 14646 Anatolian_Hieroglyphs 16800 16A38 Bamum 16A40 16A5E Mro 16A60 16A69 Mro 16A6E 16A6F Mro 16AD0 16AED Bassa_Vah 16AF0 16AF5 Bassa_Vah 16B00 16B45 Pahawh_Hmong 16B50 16B59 Pahawh_Hmong 16B5B 16B61 Pahawh_Hmong 16B63 16B77 Pahawh_Hmong 16B7D 16B8F Pahawh_Hmong 16E40 16E9A Medefaidrin 16F00 16F4A Miao 16F4F 16F87 Miao 16F8F 16F9F Miao 16FE0 Tangut 16FE1 Nushu 16FE2 16FE3 Common 16FE4 Khitan_Small_Script 16FF0 16FF1 Han 17000 187F7 Tangut 18800 18AFF Tangut 18B00 18CD5 Khitan_Small_Script 18D00 18D08 Tangut 1B000 Katakana 1B001 1B11E Hiragana 1B150 1B152 Hiragana 1B164 1B167 Katakana 1B170 1B2FB Nushu 1BC00 1BC6A Duployan 1BC70 1BC7C Duployan 1BC80 1BC88 Duployan 1BC90 1BC99 Duployan 1BC9C 1BC9F Duployan 1BCA0 1BCA3 Common 1D000 1D0F5 Common 1D100 1D126 Common 1D129 1D166 Common 1D167 1D169 Inherited 1D16A 1D17A Common 1D17B 1D182 Inherited 1D183 1D184 Common 1D185 1D18B Inherited 1D18C 1D1A9 Common 1D1AA 1D1AD Inherited 1D1AE 1D1E8 Common 1D200 1D245 Greek 1D2E0 1D2F3 Common 1D300 1D356 Common 1D360 1D378 Common 1D400 1D454 Common 1D456 1D49C Common 1D49E 1D49F Common 1D4A2 Common 1D4A5 1D4A6 Common 1D4A9 1D4AC Common 1D4AE 1D4B9 Common 1D4BB Common 1D4BD 1D4C3 Common 1D4C5 1D505 Common 1D507 1D50A Common 1D50D 1D514 Common 1D516 1D51C Common 1D51E 1D539 Common 1D53B 1D53E Common 1D540 1D544 Common 1D546 Common 1D54A 1D550 Common 1D552 1D6A5 Common 1D6A8 1D7CB Common 1D7CE 1D7FF Common 1D800 1DA8B SignWriting 1DA9B 1DA9F SignWriting 1DAA1 1DAAF SignWriting 1E000 1E006 Glagolitic 1E008 1E018 Glagolitic 1E01B 1E021 Glagolitic 1E023 1E024 Glagolitic 1E026 1E02A Glagolitic 1E100 1E12C Nyiakeng_Puachue_Hmong 1E130 1E13D Nyiakeng_Puachue_Hmong 1E140 1E149 Nyiakeng_Puachue_Hmong 1E14E 1E14F Nyiakeng_Puachue_Hmong 1E2C0 1E2F9 Wancho 1E2FF Wancho 1E800 1E8C4 Mende_Kikakui 1E8C7 1E8D6 Mende_Kikakui 1E900 1E94B Adlam 1E950 1E959 Adlam 1E95E 1E95F Adlam 1EC71 1ECB4 Common 1ED01 1ED3D Common 1EE00 1EE03 Arabic 1EE05 1EE1F Arabic 1EE21 1EE22 Arabic 1EE24 Arabic 1EE27 Arabic 1EE29 1EE32 Arabic 1EE34 1EE37 Arabic 1EE39 Arabic 1EE3B Arabic 1EE42 Arabic 1EE47 Arabic 1EE49 Arabic 1EE4B Arabic 1EE4D 1EE4F Arabic 1EE51 1EE52 Arabic 1EE54 Arabic 1EE57 Arabic 1EE59 Arabic 1EE5B Arabic 1EE5D Arabic 1EE5F Arabic 1EE61 1EE62 Arabic 1EE64 Arabic 1EE67 1EE6A Arabic 1EE6C 1EE72 Arabic 1EE74 1EE77 Arabic 1EE79 1EE7C Arabic 1EE7E Arabic 1EE80 1EE89 Arabic 1EE8B 1EE9B Arabic 1EEA1 1EEA3 Arabic 1EEA5 1EEA9 Arabic 1EEAB 1EEBB Arabic 1EEF0 1EEF1 Arabic 1F000 1F02B Common 1F030 1F093 Common 1F0A0 1F0AE Common 1F0B1 1F0BF Common 1F0C1 1F0CF Common 1F0D1 1F0F5 Common 1F100 1F1AD Common 1F1E6 1F1FF Common 1F200 Hiragana 1F201 1F202 Common 1F210 1F23B Common 1F240 1F248 Common 1F250 1F251 Common 1F260 1F265 Common 1F300 1F6D7 Common 1F6E0 1F6EC Common 1F6F0 1F6FC Common 1F700 1F773 Common 1F780 1F7D8 Common 1F7E0 1F7EB Common 1F800 1F80B Common 1F810 1F847 Common 1F850 1F859 Common 1F860 1F887 Common 1F890 1F8AD Common 1F8B0 1F8B1 Common 1F900 1F978 Common 1F97A 1F9CB Common 1F9CD 1FA53 Common 1FA60 1FA6D Common 1FA70 1FA74 Common 1FA78 1FA7A Common 1FA80 1FA86 Common 1FA90 1FAA8 Common 1FAB0 1FAB6 Common 1FAC0 1FAC2 Common 1FAD0 1FAD6 Common 1FB00 1FB92 Common 1FB94 1FBCA Common 1FBF0 1FBF9 Common 20000 2A6DD Han 2A700 2B734 Han 2B740 2B81D Han 2B820 2CEA1 Han 2CEB0 2EBE0 Han 2F800 2FA1D Han 30000 3134A Han E0001 Common E0020 E007F Common E0100 E01EF Inherited END PK ! �>9J$ J$ 5.34.0/unicore/To/Bc.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToBc'}{'format'} = 's'; # string $Unicode::UCD::SwashInfo{'ToBc'}{'missing'} = 'L'; return <<'END'; 0 8 BN 9 S A B B S C WS D B E 1B BN 1C 1E B 1F S 20 WS 21 22 ON 23 25 ET 26 2A ON 2B ES 2C CS 2D ES 2E 2F CS 30 39 EN 3A CS 3B 40 ON 5B 60 ON 7B 7E ON 7F 84 BN 85 B 86 9F BN A0 CS A1 ON A2 A5 ET A6 A9 ON AB AC ON AD BN AE AF ON B0 B1 ET B2 B3 EN B4 ON B6 B8 ON B9 EN BB BF ON D7 ON F7 ON 2B9 2BA ON 2C2 2CF ON 2D2 2DF ON 2E5 2ED ON 2EF 2FF ON 300 36F NSM 374 375 ON 37E ON 384 385 ON 387 ON 3F6 ON 483 489 NSM 58A ON 58D 58E ON 58F ET 590 R 591 5BD NSM 5BE R 5BF NSM 5C0 R 5C1 5C2 NSM 5C3 R 5C4 5C5 NSM 5C6 R 5C7 NSM 5C8 5FF R 600 605 AN 606 607 ON 608 AL 609 60A ET 60B AL 60C CS 60D AL 60E 60F ON 610 61A NSM 61B 64A AL 64B 65F NSM 660 669 AN 66A ET 66B 66C AN 66D 66F AL 670 NSM 671 6D5 AL 6D6 6DC NSM 6DD AN 6DE ON 6DF 6E4 NSM 6E5 6E6 AL 6E7 6E8 NSM 6E9 ON 6EA 6ED NSM 6EE 6EF AL 6F0 6F9 EN 6FA 710 AL 711 NSM 712 72F AL 730 74A NSM 74B 7A5 AL 7A6 7B0 NSM 7B1 7BF AL 7C0 7EA R 7EB 7F3 NSM 7F4 7F5 R 7F6 7F9 ON 7FA 7FC R 7FD NSM 7FE 815 R 816 819 NSM 81A R 81B 823 NSM 824 R 825 827 NSM 828 R 829 82D NSM 82E 858 R 859 85B NSM 85C 85F R 860 86F AL 870 89F R 8A0 8D2 AL 8D3 8E1 NSM 8E2 AN 8E3 902 NSM 93A NSM 93C NSM 941 948 NSM 94D NSM 951 957 NSM 962 963 NSM 981 NSM 9BC NSM 9C1 9C4 NSM 9CD NSM 9E2 9E3 NSM 9F2 9F3 ET 9FB ET 9FE NSM A01 A02 NSM A3C NSM A41 A42 NSM A47 A48 NSM A4B A4D NSM A51 NSM A70 A71 NSM A75 NSM A81 A82 NSM ABC NSM AC1 AC5 NSM AC7 AC8 NSM ACD NSM AE2 AE3 NSM AF1 ET AFA AFF NSM B01 NSM B3C NSM B3F NSM B41 B44 NSM B4D NSM B55 B56 NSM B62 B63 NSM B82 NSM BC0 NSM BCD NSM BF3 BF8 ON BF9 ET BFA ON C00 NSM C04 NSM C3E C40 NSM C46 C48 NSM C4A C4D NSM C55 C56 NSM C62 C63 NSM C78 C7E ON C81 NSM CBC NSM CCC CCD NSM CE2 CE3 NSM D00 D01 NSM D3B D3C NSM D41 D44 NSM D4D NSM D62 D63 NSM D81 NSM DCA NSM DD2 DD4 NSM DD6 NSM E31 NSM E34 E3A NSM E3F ET E47 E4E NSM EB1 NSM EB4 EBC NSM EC8 ECD NSM F18 F19 NSM F35 NSM F37 NSM F39 NSM F3A F3D ON F71 F7E NSM F80 F84 NSM F86 F87 NSM F8D F97 NSM F99 FBC NSM FC6 NSM 102D 1030 NSM 1032 1037 NSM 1039 103A NSM 103D 103E NSM 1058 1059 NSM 105E 1060 NSM 1071 1074 NSM 1082 NSM 1085 1086 NSM 108D NSM 109D NSM 135D 135F NSM 1390 1399 ON 1400 ON 1680 WS 169B 169C ON 1712 1714 NSM 1732 1734 NSM 1752 1753 NSM 1772 1773 NSM 17B4 17B5 NSM 17B7 17BD NSM 17C6 NSM 17C9 17D3 NSM 17DB ET 17DD NSM 17F0 17F9 ON 1800 180A ON 180B 180D NSM 180E BN 1885 1886 NSM 18A9 NSM 1920 1922 NSM 1927 1928 NSM 1932 NSM 1939 193B NSM 1940 ON 1944 1945 ON 19DE 19FF ON 1A17 1A18 NSM 1A1B NSM 1A56 NSM 1A58 1A5E NSM 1A60 NSM 1A62 NSM 1A65 1A6C NSM 1A73 1A7C NSM 1A7F NSM 1AB0 1AC0 NSM 1B00 1B03 NSM 1B34 NSM 1B36 1B3A NSM 1B3C NSM 1B42 NSM 1B6B 1B73 NSM 1B80 1B81 NSM 1BA2 1BA5 NSM 1BA8 1BA9 NSM 1BAB 1BAD NSM 1BE6 NSM 1BE8 1BE9 NSM 1BED NSM 1BEF 1BF1 NSM 1C2C 1C33 NSM 1C36 1C37 NSM 1CD0 1CD2 NSM 1CD4 1CE0 NSM 1CE2 1CE8 NSM 1CED NSM 1CF4 NSM 1CF8 1CF9 NSM 1DC0 1DF9 NSM 1DFB 1DFF NSM 1FBD ON 1FBF 1FC1 ON 1FCD 1FCF ON 1FDD 1FDF ON 1FED 1FEF ON 1FFD 1FFE ON 2000 200A WS 200B 200D BN 200F R 2010 2027 ON 2028 WS 2029 B 202A LRE 202B RLE 202C PDF 202D LRO 202E RLO 202F CS 2030 2034 ET 2035 2043 ON 2044 CS 2045 205E ON 205F WS 2060 2065 BN 2066 LRI 2067 RLI 2068 FSI 2069 PDI 206A 206F BN 2070 EN 2074 2079 EN 207A 207B ES 207C 207E ON 2080 2089 EN 208A 208B ES 208C 208E ON 20A0 20CF ET 20D0 20F0 NSM 2100 2101 ON 2103 2106 ON 2108 2109 ON 2114 ON 2116 2118 ON 211E 2123 ON 2125 ON 2127 ON 2129 ON 212E ET 213A 213B ON 2140 2144 ON 214A 214D ON 2150 215F ON 2189 218B ON 2190 2211 ON 2212 ES 2213 ET 2214 2335 ON 237B 2394 ON 2396 2426 ON 2440 244A ON 2460 2487 ON 2488 249B EN 24EA 26AB ON 26AD 27FF ON 2900 2B73 ON 2B76 2B95 ON 2B97 2BFF ON 2CE5 2CEA ON 2CEF 2CF1 NSM 2CF9 2CFF ON 2D7F NSM 2DE0 2DFF NSM 2E00 2E52 ON 2E80 2E99 ON 2E9B 2EF3 ON 2F00 2FD5 ON 2FF0 2FFB ON 3000 WS 3001 3004 ON 3008 3020 ON 302A 302D NSM 3030 ON 3036 3037 ON 303D 303F ON 3099 309A NSM 309B 309C ON 30A0 ON 30FB ON 31C0 31E3 ON 321D 321E ON 3250 325F ON 327C 327E ON 32B1 32BF ON 32CC 32CF ON 3377 337A ON 33DE 33DF ON 33FF ON 4DC0 4DFF ON A490 A4C6 ON A60D A60F ON A66F A672 NSM A673 ON A674 A67D NSM A67E A67F ON A69E A69F NSM A6F0 A6F1 NSM A700 A721 ON A788 ON A802 NSM A806 NSM A80B NSM A825 A826 NSM A828 A82B ON A82C NSM A838 A839 ET A874 A877 ON A8C4 A8C5 NSM A8E0 A8F1 NSM A8FF NSM A926 A92D NSM A947 A951 NSM A980 A982 NSM A9B3 NSM A9B6 A9B9 NSM A9BC A9BD NSM A9E5 NSM AA29 AA2E NSM AA31 AA32 NSM AA35 AA36 NSM AA43 NSM AA4C NSM AA7C NSM AAB0 NSM AAB2 AAB4 NSM AAB7 AAB8 NSM AABE AABF NSM AAC1 NSM AAEC AAED NSM AAF6 NSM AB6A AB6B ON ABE5 NSM ABE8 NSM ABED NSM FB1D R FB1E NSM FB1F FB28 R FB29 ES FB2A FB4F R FB50 FD3D AL FD3E FD3F ON FD40 FDCF AL FDD0 FDEF BN FDF0 FDFC AL FDFD ON FDFE FDFF AL FE00 FE0F NSM FE10 FE19 ON FE20 FE2F NSM FE30 FE4F ON FE50 CS FE51 ON FE52 CS FE54 ON FE55 CS FE56 FE5E ON FE5F ET FE60 FE61 ON FE62 FE63 ES FE64 FE66 ON FE68 ON FE69 FE6A ET FE6B ON FE70 FEFE AL FEFF BN FF01 FF02 ON FF03 FF05 ET FF06 FF0A ON FF0B ES FF0C CS FF0D ES FF0E FF0F CS FF10 FF19 EN FF1A CS FF1B FF20 ON FF3B FF40 ON FF5B FF65 ON FFE0 FFE1 ET FFE2 FFE4 ON FFE5 FFE6 ET FFE8 FFEE ON FFF0 FFF8 BN FFF9 FFFD ON FFFE FFFF BN 10101 ON 10140 1018C ON 10190 1019C ON 101A0 ON 101FD NSM 102E0 NSM 102E1 102FB EN 10376 1037A NSM 10800 1091E R 1091F ON 10920 10A00 R 10A01 10A03 NSM 10A04 R 10A05 10A06 NSM 10A07 10A0B R 10A0C 10A0F NSM 10A10 10A37 R 10A38 10A3A NSM 10A3B 10A3E R 10A3F NSM 10A40 10AE4 R 10AE5 10AE6 NSM 10AE7 10B38 R 10B39 10B3F ON 10B40 10CFF R 10D00 10D23 AL 10D24 10D27 NSM 10D28 10D2F AL 10D30 10D39 AN 10D3A 10D3F AL 10D40 10E5F R 10E60 10E7E AN 10E7F 10EAA R 10EAB 10EAC NSM 10EAD 10F2F R 10F30 10F45 AL 10F46 10F50 NSM 10F51 10F6F AL 10F70 10FFF R 11001 NSM 11038 11046 NSM 11052 11065 ON 1107F 11081 NSM 110B3 110B6 NSM 110B9 110BA NSM 11100 11102 NSM 11127 1112B NSM 1112D 11134 NSM 11173 NSM 11180 11181 NSM 111B6 111BE NSM 111C9 111CC NSM 111CF NSM 1122F 11231 NSM 11234 NSM 11236 11237 NSM 1123E NSM 112DF NSM 112E3 112EA NSM 11300 11301 NSM 1133B 1133C NSM 11340 NSM 11366 1136C NSM 11370 11374 NSM 11438 1143F NSM 11442 11444 NSM 11446 NSM 1145E NSM 114B3 114B8 NSM 114BA NSM 114BF 114C0 NSM 114C2 114C3 NSM 115B2 115B5 NSM 115BC 115BD NSM 115BF 115C0 NSM 115DC 115DD NSM 11633 1163A NSM 1163D NSM 1163F 11640 NSM 11660 1166C ON 116AB NSM 116AD NSM 116B0 116B5 NSM 116B7 NSM 1171D 1171F NSM 11722 11725 NSM 11727 1172B NSM 1182F 11837 NSM 11839 1183A NSM 1193B 1193C NSM 1193E NSM 11943 NSM 119D4 119D7 NSM 119DA 119DB NSM 119E0 NSM 11A01 11A06 NSM 11A09 11A0A NSM 11A33 11A38 NSM 11A3B 11A3E NSM 11A47 NSM 11A51 11A56 NSM 11A59 11A5B NSM 11A8A 11A96 NSM 11A98 11A99 NSM 11C30 11C36 NSM 11C38 11C3D NSM 11C92 11CA7 NSM 11CAA 11CB0 NSM 11CB2 11CB3 NSM 11CB5 11CB6 NSM 11D31 11D36 NSM 11D3A NSM 11D3C 11D3D NSM 11D3F 11D45 NSM 11D47 NSM 11D90 11D91 NSM 11D95 NSM 11D97 NSM 11EF3 11EF4 NSM 11FD5 11FDC ON 11FDD 11FE0 ET 11FE1 11FF1 ON 16AF0 16AF4 NSM 16B30 16B36 NSM 16F4F NSM 16F8F 16F92 NSM 16FE2 ON 16FE4 NSM 1BC9D 1BC9E NSM 1BCA0 1BCA3 BN 1D167 1D169 NSM 1D173 1D17A BN 1D17B 1D182 NSM 1D185 1D18B NSM 1D1AA 1D1AD NSM 1D200 1D241 ON 1D242 1D244 NSM 1D245 ON 1D300 1D356 ON 1D6DB ON 1D715 ON 1D74F ON 1D789 ON 1D7C3 ON 1D7CE 1D7FF EN 1DA00 1DA36 NSM 1DA3B 1DA6C NSM 1DA75 NSM 1DA84 NSM 1DA9B 1DA9F NSM 1DAA1 1DAAF NSM 1E000 1E006 NSM 1E008 1E018 NSM 1E01B 1E021 NSM 1E023 1E024 NSM 1E026 1E02A NSM 1E130 1E136 NSM 1E2EC 1E2EF NSM 1E2FF ET 1E800 1E8CF R 1E8D0 1E8D6 NSM 1E8D7 1E943 R 1E944 1E94A NSM 1E94B 1EC6F R 1EC70 1ECBF AL 1ECC0 1ECFF R 1ED00 1ED4F AL 1ED50 1EDFF R 1EE00 1EEEF AL 1EEF0 1EEF1 ON 1EEF2 1EEFF AL 1EF00 1EFFF R 1F000 1F02B ON 1F030 1F093 ON 1F0A0 1F0AE ON 1F0B1 1F0BF ON 1F0C1 1F0CF ON 1F0D1 1F0F5 ON 1F100 1F10A EN 1F10B 1F10F ON 1F12F ON 1F16A 1F16F ON 1F1AD ON 1F260 1F265 ON 1F300 1F6D7 ON 1F6E0 1F6EC ON 1F6F0 1F6FC ON 1F700 1F773 ON 1F780 1F7D8 ON 1F7E0 1F7EB ON 1F800 1F80B ON 1F810 1F847 ON 1F850 1F859 ON 1F860 1F887 ON 1F890 1F8AD ON 1F8B0 1F8B1 ON 1F900 1F978 ON 1F97A 1F9CB ON 1F9CD 1FA53 ON 1FA60 1FA6D ON 1FA70 1FA74 ON 1FA78 1FA7A ON 1FA80 1FA86 ON 1FA90 1FAA8 ON 1FAB0 1FAB6 ON 1FAC0 1FAC2 ON 1FAD0 1FAD6 ON 1FB00 1FB92 ON 1FB94 1FBCA ON 1FBF0 1FBF9 EN 1FFFE 1FFFF BN 2FFFE 2FFFF BN 3FFFE 3FFFF BN 4FFFE 4FFFF BN 5FFFE 5FFFF BN 6FFFE 6FFFF BN 7FFFE 7FFFF BN 8FFFE 8FFFF BN 9FFFE 9FFFF BN AFFFE AFFFF BN BFFFE BFFFF BN CFFFE CFFFF BN DFFFE E00FF BN E0100 E01EF NSM E01F0 E0FFF BN EFFFE EFFFF BN FFFFE FFFFF BN 10FFFE 10FFFF BN END PK ! Q�"9yD yD 5.34.0/unicore/To/Lower.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! IT IS DEPRECATED TO USE THIS FILE !!!!!!! # This file is for internal use by core Perl only. It is retained for # backwards compatibility with applications that may have come to rely on it, # but its format and even its name or existence are subject to change without # notice in a future Perl version. Don't use it directly. Instead, its # contents are now retrievable through a stable API in the Unicode::UCD # module: Unicode::UCD::prop_invmap('Lowercase_Mapping') (Values for individual # code points can be retrieved via Unicode::UCD::charprop()); # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToLower'}{'format'} = 'x'; # non-negative hex whole number; a code point $Unicode::UCD::SwashInfo{'ToLower'}{'specials_name'} = 'Unicode::UCD::ToSpecLower'; # Name of hash of special mappings $Unicode::UCD::SwashInfo{'ToLower'}{'missing'} = '<code point>'; # code point maps to itself # Some code points require special handling because their mappings are each to # multiple code points. These do not appear in the main body, but are defined # in the hash below. # Each key is the string of N bytes that together make up the UTF-8 encoding # for the code point. (i.e. the same as looking at the code point's UTF-8 # under "use bytes"). Each value is the UTF-8 of the translation, for speed. %Unicode::UCD::ToSpecLower = ( "\xC4\xB0" => "\x{0069}\x{0307}", # U+0130 => 0069 0307 ); return <<'END'; 0041 0061 0042 0062 0043 0063 0044 0064 0045 0065 0046 0066 0047 0067 0048 0068 0049 0069 004A 006A 004B 006B 004C 006C 004D 006D 004E 006E 004F 006F 0050 0070 0051 0071 0052 0072 0053 0073 0054 0074 0055 0075 0056 0076 0057 0077 0058 0078 0059 0079 005A 007A 00C0 00E0 00C1 00E1 00C2 00E2 00C3 00E3 00C4 00E4 00C5 00E5 00C6 00E6 00C7 00E7 00C8 00E8 00C9 00E9 00CA 00EA 00CB 00EB 00CC 00EC 00CD 00ED 00CE 00EE 00CF 00EF 00D0 00F0 00D1 00F1 00D2 00F2 00D3 00F3 00D4 00F4 00D5 00F5 00D6 00F6 00D8 00F8 00D9 00F9 00DA 00FA 00DB 00FB 00DC 00FC 00DD 00FD 00DE 00FE 0100 0101 0102 0103 0104 0105 0106 0107 0108 0109 010A 010B 010C 010D 010E 010F 0110 0111 0112 0113 0114 0115 0116 0117 0118 0119 011A 011B 011C 011D 011E 011F 0120 0121 0122 0123 0124 0125 0126 0127 0128 0129 012A 012B 012C 012D 012E 012F 0132 0133 0134 0135 0136 0137 0139 013A 013B 013C 013D 013E 013F 0140 0141 0142 0143 0144 0145 0146 0147 0148 014A 014B 014C 014D 014E 014F 0150 0151 0152 0153 0154 0155 0156 0157 0158 0159 015A 015B 015C 015D 015E 015F 0160 0161 0162 0163 0164 0165 0166 0167 0168 0169 016A 016B 016C 016D 016E 016F 0170 0171 0172 0173 0174 0175 0176 0177 0178 00FF 0179 017A 017B 017C 017D 017E 0181 0253 0182 0183 0184 0185 0186 0254 0187 0188 0189 0256 018A 0257 018B 018C 018E 01DD 018F 0259 0190 025B 0191 0192 0193 0260 0194 0263 0196 0269 0197 0268 0198 0199 019C 026F 019D 0272 019F 0275 01A0 01A1 01A2 01A3 01A4 01A5 01A6 0280 01A7 01A8 01A9 0283 01AC 01AD 01AE 0288 01AF 01B0 01B1 028A 01B2 028B 01B3 01B4 01B5 01B6 01B7 0292 01B8 01B9 01BC 01BD 01C4 01C6 01C5 01C6 01C7 01C9 01C8 01C9 01CA 01CC 01CB 01CC 01CD 01CE 01CF 01D0 01D1 01D2 01D3 01D4 01D5 01D6 01D7 01D8 01D9 01DA 01DB 01DC 01DE 01DF 01E0 01E1 01E2 01E3 01E4 01E5 01E6 01E7 01E8 01E9 01EA 01EB 01EC 01ED 01EE 01EF 01F1 01F3 01F2 01F3 01F4 01F5 01F6 0195 01F7 01BF 01F8 01F9 01FA 01FB 01FC 01FD 01FE 01FF 0200 0201 0202 0203 0204 0205 0206 0207 0208 0209 020A 020B 020C 020D 020E 020F 0210 0211 0212 0213 0214 0215 0216 0217 0218 0219 021A 021B 021C 021D 021E 021F 0220 019E 0222 0223 0224 0225 0226 0227 0228 0229 022A 022B 022C 022D 022E 022F 0230 0231 0232 0233 023A 2C65 023B 023C 023D 019A 023E 2C66 0241 0242 0243 0180 0244 0289 0245 028C 0246 0247 0248 0249 024A 024B 024C 024D 024E 024F 0370 0371 0372 0373 0376 0377 037F 03F3 0386 03AC 0388 03AD 0389 03AE 038A 03AF 038C 03CC 038E 03CD 038F 03CE 0391 03B1 0392 03B2 0393 03B3 0394 03B4 0395 03B5 0396 03B6 0397 03B7 0398 03B8 0399 03B9 039A 03BA 039B 03BB 039C 03BC 039D 03BD 039E 03BE 039F 03BF 03A0 03C0 03A1 03C1 03A3 03C3 03A4 03C4 03A5 03C5 03A6 03C6 03A7 03C7 03A8 03C8 03A9 03C9 03AA 03CA 03AB 03CB 03CF 03D7 03D8 03D9 03DA 03DB 03DC 03DD 03DE 03DF 03E0 03E1 03E2 03E3 03E4 03E5 03E6 03E7 03E8 03E9 03EA 03EB 03EC 03ED 03EE 03EF 03F4 03B8 03F7 03F8 03F9 03F2 03FA 03FB 03FD 037B 03FE 037C 03FF 037D 0400 0450 0401 0451 0402 0452 0403 0453 0404 0454 0405 0455 0406 0456 0407 0457 0408 0458 0409 0459 040A 045A 040B 045B 040C 045C 040D 045D 040E 045E 040F 045F 0410 0430 0411 0431 0412 0432 0413 0433 0414 0434 0415 0435 0416 0436 0417 0437 0418 0438 0419 0439 041A 043A 041B 043B 041C 043C 041D 043D 041E 043E 041F 043F 0420 0440 0421 0441 0422 0442 0423 0443 0424 0444 0425 0445 0426 0446 0427 0447 0428 0448 0429 0449 042A 044A 042B 044B 042C 044C 042D 044D 042E 044E 042F 044F 0460 0461 0462 0463 0464 0465 0466 0467 0468 0469 046A 046B 046C 046D 046E 046F 0470 0471 0472 0473 0474 0475 0476 0477 0478 0479 047A 047B 047C 047D 047E 047F 0480 0481 048A 048B 048C 048D 048E 048F 0490 0491 0492 0493 0494 0495 0496 0497 0498 0499 049A 049B 049C 049D 049E 049F 04A0 04A1 04A2 04A3 04A4 04A5 04A6 04A7 04A8 04A9 04AA 04AB 04AC 04AD 04AE 04AF 04B0 04B1 04B2 04B3 04B4 04B5 04B6 04B7 04B8 04B9 04BA 04BB 04BC 04BD 04BE 04BF 04C0 04CF 04C1 04C2 04C3 04C4 04C5 04C6 04C7 04C8 04C9 04CA 04CB 04CC 04CD 04CE 04D0 04D1 04D2 04D3 04D4 04D5 04D6 04D7 04D8 04D9 04DA 04DB 04DC 04DD 04DE 04DF 04E0 04E1 04E2 04E3 04E4 04E5 04E6 04E7 04E8 04E9 04EA 04EB 04EC 04ED 04EE 04EF 04F0 04F1 04F2 04F3 04F4 04F5 04F6 04F7 04F8 04F9 04FA 04FB 04FC 04FD 04FE 04FF 0500 0501 0502 0503 0504 0505 0506 0507 0508 0509 050A 050B 050C 050D 050E 050F 0510 0511 0512 0513 0514 0515 0516 0517 0518 0519 051A 051B 051C 051D 051E 051F 0520 0521 0522 0523 0524 0525 0526 0527 0528 0529 052A 052B 052C 052D 052E 052F 0531 0561 0532 0562 0533 0563 0534 0564 0535 0565 0536 0566 0537 0567 0538 0568 0539 0569 053A 056A 053B 056B 053C 056C 053D 056D 053E 056E 053F 056F 0540 0570 0541 0571 0542 0572 0543 0573 0544 0574 0545 0575 0546 0576 0547 0577 0548 0578 0549 0579 054A 057A 054B 057B 054C 057C 054D 057D 054E 057E 054F 057F 0550 0580 0551 0581 0552 0582 0553 0583 0554 0584 0555 0585 0556 0586 10A0 2D00 10A1 2D01 10A2 2D02 10A3 2D03 10A4 2D04 10A5 2D05 10A6 2D06 10A7 2D07 10A8 2D08 10A9 2D09 10AA 2D0A 10AB 2D0B 10AC 2D0C 10AD 2D0D 10AE 2D0E 10AF 2D0F 10B0 2D10 10B1 2D11 10B2 2D12 10B3 2D13 10B4 2D14 10B5 2D15 10B6 2D16 10B7 2D17 10B8 2D18 10B9 2D19 10BA 2D1A 10BB 2D1B 10BC 2D1C 10BD 2D1D 10BE 2D1E 10BF 2D1F 10C0 2D20 10C1 2D21 10C2 2D22 10C3 2D23 10C4 2D24 10C5 2D25 10C7 2D27 10CD 2D2D 13A0 AB70 13A1 AB71 13A2 AB72 13A3 AB73 13A4 AB74 13A5 AB75 13A6 AB76 13A7 AB77 13A8 AB78 13A9 AB79 13AA AB7A 13AB AB7B 13AC AB7C 13AD AB7D 13AE AB7E 13AF AB7F 13B0 AB80 13B1 AB81 13B2 AB82 13B3 AB83 13B4 AB84 13B5 AB85 13B6 AB86 13B7 AB87 13B8 AB88 13B9 AB89 13BA AB8A 13BB AB8B 13BC AB8C 13BD AB8D 13BE AB8E 13BF AB8F 13C0 AB90 13C1 AB91 13C2 AB92 13C3 AB93 13C4 AB94 13C5 AB95 13C6 AB96 13C7 AB97 13C8 AB98 13C9 AB99 13CA AB9A 13CB AB9B 13CC AB9C 13CD AB9D 13CE AB9E 13CF AB9F 13D0 ABA0 13D1 ABA1 13D2 ABA2 13D3 ABA3 13D4 ABA4 13D5 ABA5 13D6 ABA6 13D7 ABA7 13D8 ABA8 13D9 ABA9 13DA ABAA 13DB ABAB 13DC ABAC 13DD ABAD 13DE ABAE 13DF ABAF 13E0 ABB0 13E1 ABB1 13E2 ABB2 13E3 ABB3 13E4 ABB4 13E5 ABB5 13E6 ABB6 13E7 ABB7 13E8 ABB8 13E9 ABB9 13EA ABBA 13EB ABBB 13EC ABBC 13ED ABBD 13EE ABBE 13EF ABBF 13F0 13F8 13F1 13F9 13F2 13FA 13F3 13FB 13F4 13FC 13F5 13FD 1C90 10D0 1C91 10D1 1C92 10D2 1C93 10D3 1C94 10D4 1C95 10D5 1C96 10D6 1C97 10D7 1C98 10D8 1C99 10D9 1C9A 10DA 1C9B 10DB 1C9C 10DC 1C9D 10DD 1C9E 10DE 1C9F 10DF 1CA0 10E0 1CA1 10E1 1CA2 10E2 1CA3 10E3 1CA4 10E4 1CA5 10E5 1CA6 10E6 1CA7 10E7 1CA8 10E8 1CA9 10E9 1CAA 10EA 1CAB 10EB 1CAC 10EC 1CAD 10ED 1CAE 10EE 1CAF 10EF 1CB0 10F0 1CB1 10F1 1CB2 10F2 1CB3 10F3 1CB4 10F4 1CB5 10F5 1CB6 10F6 1CB7 10F7 1CB8 10F8 1CB9 10F9 1CBA 10FA 1CBD 10FD 1CBE 10FE 1CBF 10FF 1E00 1E01 1E02 1E03 1E04 1E05 1E06 1E07 1E08 1E09 1E0A 1E0B 1E0C 1E0D 1E0E 1E0F 1E10 1E11 1E12 1E13 1E14 1E15 1E16 1E17 1E18 1E19 1E1A 1E1B 1E1C 1E1D 1E1E 1E1F 1E20 1E21 1E22 1E23 1E24 1E25 1E26 1E27 1E28 1E29 1E2A 1E2B 1E2C 1E2D 1E2E 1E2F 1E30 1E31 1E32 1E33 1E34 1E35 1E36 1E37 1E38 1E39 1E3A 1E3B 1E3C 1E3D 1E3E 1E3F 1E40 1E41 1E42 1E43 1E44 1E45 1E46 1E47 1E48 1E49 1E4A 1E4B 1E4C 1E4D 1E4E 1E4F 1E50 1E51 1E52 1E53 1E54 1E55 1E56 1E57 1E58 1E59 1E5A 1E5B 1E5C 1E5D 1E5E 1E5F 1E60 1E61 1E62 1E63 1E64 1E65 1E66 1E67 1E68 1E69 1E6A 1E6B 1E6C 1E6D 1E6E 1E6F 1E70 1E71 1E72 1E73 1E74 1E75 1E76 1E77 1E78 1E79 1E7A 1E7B 1E7C 1E7D 1E7E 1E7F 1E80 1E81 1E82 1E83 1E84 1E85 1E86 1E87 1E88 1E89 1E8A 1E8B 1E8C 1E8D 1E8E 1E8F 1E90 1E91 1E92 1E93 1E94 1E95 1E9E 00DF 1EA0 1EA1 1EA2 1EA3 1EA4 1EA5 1EA6 1EA7 1EA8 1EA9 1EAA 1EAB 1EAC 1EAD 1EAE 1EAF 1EB0 1EB1 1EB2 1EB3 1EB4 1EB5 1EB6 1EB7 1EB8 1EB9 1EBA 1EBB 1EBC 1EBD 1EBE 1EBF 1EC0 1EC1 1EC2 1EC3 1EC4 1EC5 1EC6 1EC7 1EC8 1EC9 1ECA 1ECB 1ECC 1ECD 1ECE 1ECF 1ED0 1ED1 1ED2 1ED3 1ED4 1ED5 1ED6 1ED7 1ED8 1ED9 1EDA 1EDB 1EDC 1EDD 1EDE 1EDF 1EE0 1EE1 1EE2 1EE3 1EE4 1EE5 1EE6 1EE7 1EE8 1EE9 1EEA 1EEB 1EEC 1EED 1EEE 1EEF 1EF0 1EF1 1EF2 1EF3 1EF4 1EF5 1EF6 1EF7 1EF8 1EF9 1EFA 1EFB 1EFC 1EFD 1EFE 1EFF 1F08 1F00 1F09 1F01 1F0A 1F02 1F0B 1F03 1F0C 1F04 1F0D 1F05 1F0E 1F06 1F0F 1F07 1F18 1F10 1F19 1F11 1F1A 1F12 1F1B 1F13 1F1C 1F14 1F1D 1F15 1F28 1F20 1F29 1F21 1F2A 1F22 1F2B 1F23 1F2C 1F24 1F2D 1F25 1F2E 1F26 1F2F 1F27 1F38 1F30 1F39 1F31 1F3A 1F32 1F3B 1F33 1F3C 1F34 1F3D 1F35 1F3E 1F36 1F3F 1F37 1F48 1F40 1F49 1F41 1F4A 1F42 1F4B 1F43 1F4C 1F44 1F4D 1F45 1F59 1F51 1F5B 1F53 1F5D 1F55 1F5F 1F57 1F68 1F60 1F69 1F61 1F6A 1F62 1F6B 1F63 1F6C 1F64 1F6D 1F65 1F6E 1F66 1F6F 1F67 1F88 1F80 1F89 1F81 1F8A 1F82 1F8B 1F83 1F8C 1F84 1F8D 1F85 1F8E 1F86 1F8F 1F87 1F98 1F90 1F99 1F91 1F9A 1F92 1F9B 1F93 1F9C 1F94 1F9D 1F95 1F9E 1F96 1F9F 1F97 1FA8 1FA0 1FA9 1FA1 1FAA 1FA2 1FAB 1FA3 1FAC 1FA4 1FAD 1FA5 1FAE 1FA6 1FAF 1FA7 1FB8 1FB0 1FB9 1FB1 1FBA 1F70 1FBB 1F71 1FBC 1FB3 1FC8 1F72 1FC9 1F73 1FCA 1F74 1FCB 1F75 1FCC 1FC3 1FD8 1FD0 1FD9 1FD1 1FDA 1F76 1FDB 1F77 1FE8 1FE0 1FE9 1FE1 1FEA 1F7A 1FEB 1F7B 1FEC 1FE5 1FF8 1F78 1FF9 1F79 1FFA 1F7C 1FFB 1F7D 1FFC 1FF3 2126 03C9 212A 006B 212B 00E5 2132 214E 2160 2170 2161 2171 2162 2172 2163 2173 2164 2174 2165 2175 2166 2176 2167 2177 2168 2178 2169 2179 216A 217A 216B 217B 216C 217C 216D 217D 216E 217E 216F 217F 2183 2184 24B6 24D0 24B7 24D1 24B8 24D2 24B9 24D3 24BA 24D4 24BB 24D5 24BC 24D6 24BD 24D7 24BE 24D8 24BF 24D9 24C0 24DA 24C1 24DB 24C2 24DC 24C3 24DD 24C4 24DE 24C5 24DF 24C6 24E0 24C7 24E1 24C8 24E2 24C9 24E3 24CA 24E4 24CB 24E5 24CC 24E6 24CD 24E7 24CE 24E8 24CF 24E9 2C00 2C30 2C01 2C31 2C02 2C32 2C03 2C33 2C04 2C34 2C05 2C35 2C06 2C36 2C07 2C37 2C08 2C38 2C09 2C39 2C0A 2C3A 2C0B 2C3B 2C0C 2C3C 2C0D 2C3D 2C0E 2C3E 2C0F 2C3F 2C10 2C40 2C11 2C41 2C12 2C42 2C13 2C43 2C14 2C44 2C15 2C45 2C16 2C46 2C17 2C47 2C18 2C48 2C19 2C49 2C1A 2C4A 2C1B 2C4B 2C1C 2C4C 2C1D 2C4D 2C1E 2C4E 2C1F 2C4F 2C20 2C50 2C21 2C51 2C22 2C52 2C23 2C53 2C24 2C54 2C25 2C55 2C26 2C56 2C27 2C57 2C28 2C58 2C29 2C59 2C2A 2C5A 2C2B 2C5B 2C2C 2C5C 2C2D 2C5D 2C2E 2C5E 2C60 2C61 2C62 026B 2C63 1D7D 2C64 027D 2C67 2C68 2C69 2C6A 2C6B 2C6C 2C6D 0251 2C6E 0271 2C6F 0250 2C70 0252 2C72 2C73 2C75 2C76 2C7E 023F 2C7F 0240 2C80 2C81 2C82 2C83 2C84 2C85 2C86 2C87 2C88 2C89 2C8A 2C8B 2C8C 2C8D 2C8E 2C8F 2C90 2C91 2C92 2C93 2C94 2C95 2C96 2C97 2C98 2C99 2C9A 2C9B 2C9C 2C9D 2C9E 2C9F 2CA0 2CA1 2CA2 2CA3 2CA4 2CA5 2CA6 2CA7 2CA8 2CA9 2CAA 2CAB 2CAC 2CAD 2CAE 2CAF 2CB0 2CB1 2CB2 2CB3 2CB4 2CB5 2CB6 2CB7 2CB8 2CB9 2CBA 2CBB 2CBC 2CBD 2CBE 2CBF 2CC0 2CC1 2CC2 2CC3 2CC4 2CC5 2CC6 2CC7 2CC8 2CC9 2CCA 2CCB 2CCC 2CCD 2CCE 2CCF 2CD0 2CD1 2CD2 2CD3 2CD4 2CD5 2CD6 2CD7 2CD8 2CD9 2CDA 2CDB 2CDC 2CDD 2CDE 2CDF 2CE0 2CE1 2CE2 2CE3 2CEB 2CEC 2CED 2CEE 2CF2 2CF3 A640 A641 A642 A643 A644 A645 A646 A647 A648 A649 A64A A64B A64C A64D A64E A64F A650 A651 A652 A653 A654 A655 A656 A657 A658 A659 A65A A65B A65C A65D A65E A65F A660 A661 A662 A663 A664 A665 A666 A667 A668 A669 A66A A66B A66C A66D A680 A681 A682 A683 A684 A685 A686 A687 A688 A689 A68A A68B A68C A68D A68E A68F A690 A691 A692 A693 A694 A695 A696 A697 A698 A699 A69A A69B A722 A723 A724 A725 A726 A727 A728 A729 A72A A72B A72C A72D A72E A72F A732 A733 A734 A735 A736 A737 A738 A739 A73A A73B A73C A73D A73E A73F A740 A741 A742 A743 A744 A745 A746 A747 A748 A749 A74A A74B A74C A74D A74E A74F A750 A751 A752 A753 A754 A755 A756 A757 A758 A759 A75A A75B A75C A75D A75E A75F A760 A761 A762 A763 A764 A765 A766 A767 A768 A769 A76A A76B A76C A76D A76E A76F A779 A77A A77B A77C A77D 1D79 A77E A77F A780 A781 A782 A783 A784 A785 A786 A787 A78B A78C A78D 0265 A790 A791 A792 A793 A796 A797 A798 A799 A79A A79B A79C A79D A79E A79F A7A0 A7A1 A7A2 A7A3 A7A4 A7A5 A7A6 A7A7 A7A8 A7A9 A7AA 0266 A7AB 025C A7AC 0261 A7AD 026C A7AE 026A A7B0 029E A7B1 0287 A7B2 029D A7B3 AB53 A7B4 A7B5 A7B6 A7B7 A7B8 A7B9 A7BA A7BB A7BC A7BD A7BE A7BF A7C2 A7C3 A7C4 A794 A7C5 0282 A7C6 1D8E A7C7 A7C8 A7C9 A7CA A7F5 A7F6 FF21 FF41 FF22 FF42 FF23 FF43 FF24 FF44 FF25 FF45 FF26 FF46 FF27 FF47 FF28 FF48 FF29 FF49 FF2A FF4A FF2B FF4B FF2C FF4C FF2D FF4D FF2E FF4E FF2F FF4F FF30 FF50 FF31 FF51 FF32 FF52 FF33 FF53 FF34 FF54 FF35 FF55 FF36 FF56 FF37 FF57 FF38 FF58 FF39 FF59 FF3A FF5A 10400 10428 10401 10429 10402 1042A 10403 1042B 10404 1042C 10405 1042D 10406 1042E 10407 1042F 10408 10430 10409 10431 1040A 10432 1040B 10433 1040C 10434 1040D 10435 1040E 10436 1040F 10437 10410 10438 10411 10439 10412 1043A 10413 1043B 10414 1043C 10415 1043D 10416 1043E 10417 1043F 10418 10440 10419 10441 1041A 10442 1041B 10443 1041C 10444 1041D 10445 1041E 10446 1041F 10447 10420 10448 10421 10449 10422 1044A 10423 1044B 10424 1044C 10425 1044D 10426 1044E 10427 1044F 104B0 104D8 104B1 104D9 104B2 104DA 104B3 104DB 104B4 104DC 104B5 104DD 104B6 104DE 104B7 104DF 104B8 104E0 104B9 104E1 104BA 104E2 104BB 104E3 104BC 104E4 104BD 104E5 104BE 104E6 104BF 104E7 104C0 104E8 104C1 104E9 104C2 104EA 104C3 104EB 104C4 104EC 104C5 104ED 104C6 104EE 104C7 104EF 104C8 104F0 104C9 104F1 104CA 104F2 104CB 104F3 104CC 104F4 104CD 104F5 104CE 104F6 104CF 104F7 104D0 104F8 104D1 104F9 104D2 104FA 104D3 104FB 10C80 10CC0 10C81 10CC1 10C82 10CC2 10C83 10CC3 10C84 10CC4 10C85 10CC5 10C86 10CC6 10C87 10CC7 10C88 10CC8 10C89 10CC9 10C8A 10CCA 10C8B 10CCB 10C8C 10CCC 10C8D 10CCD 10C8E 10CCE 10C8F 10CCF 10C90 10CD0 10C91 10CD1 10C92 10CD2 10C93 10CD3 10C94 10CD4 10C95 10CD5 10C96 10CD6 10C97 10CD7 10C98 10CD8 10C99 10CD9 10C9A 10CDA 10C9B 10CDB 10C9C 10CDC 10C9D 10CDD 10C9E 10CDE 10C9F 10CDF 10CA0 10CE0 10CA1 10CE1 10CA2 10CE2 10CA3 10CE3 10CA4 10CE4 10CA5 10CE5 10CA6 10CE6 10CA7 10CE7 10CA8 10CE8 10CA9 10CE9 10CAA 10CEA 10CAB 10CEB 10CAC 10CEC 10CAD 10CED 10CAE 10CEE 10CAF 10CEF 10CB0 10CF0 10CB1 10CF1 10CB2 10CF2 118A0 118C0 118A1 118C1 118A2 118C2 118A3 118C3 118A4 118C4 118A5 118C5 118A6 118C6 118A7 118C7 118A8 118C8 118A9 118C9 118AA 118CA 118AB 118CB 118AC 118CC 118AD 118CD 118AE 118CE 118AF 118CF 118B0 118D0 118B1 118D1 118B2 118D2 118B3 118D3 118B4 118D4 118B5 118D5 118B6 118D6 118B7 118D7 118B8 118D8 118B9 118D9 118BA 118DA 118BB 118DB 118BC 118DC 118BD 118DD 118BE 118DE 118BF 118DF 16E40 16E60 16E41 16E61 16E42 16E62 16E43 16E63 16E44 16E64 16E45 16E65 16E46 16E66 16E47 16E67 16E48 16E68 16E49 16E69 16E4A 16E6A 16E4B 16E6B 16E4C 16E6C 16E4D 16E6D 16E4E 16E6E 16E4F 16E6F 16E50 16E70 16E51 16E71 16E52 16E72 16E53 16E73 16E54 16E74 16E55 16E75 16E56 16E76 16E57 16E77 16E58 16E78 16E59 16E79 16E5A 16E7A 16E5B 16E7B 16E5C 16E7C 16E5D 16E7D 16E5E 16E7E 16E5F 16E7F 1E900 1E922 1E901 1E923 1E902 1E924 1E903 1E925 1E904 1E926 1E905 1E927 1E906 1E928 1E907 1E929 1E908 1E92A 1E909 1E92B 1E90A 1E92C 1E90B 1E92D 1E90C 1E92E 1E90D 1E92F 1E90E 1E930 1E90F 1E931 1E910 1E932 1E911 1E933 1E912 1E934 1E913 1E935 1E914 1E936 1E915 1E937 1E916 1E938 1E917 1E939 1E918 1E93A 1E919 1E93B 1E91A 1E93C 1E91B 1E93D 1E91C 1E93E 1E91D 1E93F 1E91E 1E940 1E91F 1E941 1E920 1E942 1E921 1E943 END PK ! |��T�K �K 5.34.0/unicore/To/WB.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToWB'}{'format'} = 's'; # string $Unicode::UCD::SwashInfo{'ToWB'}{'missing'} = 'Other'; return <<'END'; 9 Perl_Tailored_HSpace A LF B C Newline D CR 20 Perl_Tailored_HSpace 22 Double_Quote 27 Single_Quote 2C MidNum 2E MidNumLet 30 39 Numeric 3A MidLetter 3B MidNum 41 5A ALetter 5F ExtendNumLet 61 7A ALetter 85 Newline A0 Perl_Tailored_HSpace A9 ExtPict_XX AA ALetter AD Format AE ExtPict_XX B5 ALetter B7 MidLetter BA ALetter C0 D6 ALetter D8 F6 ALetter F8 2D7 ALetter 2DE 2FF ALetter 300 36F Extend 370 374 ALetter 376 377 ALetter 37A 37D ALetter 37E MidNum 37F ALetter 386 ALetter 387 MidLetter 388 38A ALetter 38C ALetter 38E 3A1 ALetter 3A3 3F5 ALetter 3F7 481 ALetter 483 489 Extend 48A 52F ALetter 531 556 ALetter 559 55C ALetter 55E ALetter 55F MidLetter 560 588 ALetter 589 MidNum 58A ALetter 591 5BD Extend 5BF Extend 5C1 5C2 Extend 5C4 5C5 Extend 5C7 Extend 5D0 5EA Hebrew_Letter 5EF 5F2 Hebrew_Letter 5F3 ALetter 5F4 MidLetter 600 605 Format 60C 60D MidNum 610 61A Extend 61C Format 620 64A ALetter 64B 65F Extend 660 669 Numeric 66B Numeric 66C MidNum 66E 66F ALetter 670 Extend 671 6D3 ALetter 6D5 ALetter 6D6 6DC Extend 6DD Format 6DF 6E4 Extend 6E5 6E6 ALetter 6E7 6E8 Extend 6EA 6ED Extend 6EE 6EF ALetter 6F0 6F9 Numeric 6FA 6FC ALetter 6FF ALetter 70F Format 710 ALetter 711 Extend 712 72F ALetter 730 74A Extend 74D 7A5 ALetter 7A6 7B0 Extend 7B1 ALetter 7C0 7C9 Numeric 7CA 7EA ALetter 7EB 7F3 Extend 7F4 7F5 ALetter 7F8 MidNum 7FA ALetter 7FD Extend 800 815 ALetter 816 819 Extend 81A ALetter 81B 823 Extend 824 ALetter 825 827 Extend 828 ALetter 829 82D Extend 840 858 ALetter 859 85B Extend 860 86A ALetter 8A0 8B4 ALetter 8B6 8C7 ALetter 8D3 8E1 Extend 8E2 Format 8E3 903 Extend 904 939 ALetter 93A 93C Extend 93D ALetter 93E 94F Extend 950 ALetter 951 957 Extend 958 961 ALetter 962 963 Extend 966 96F Numeric 971 980 ALetter 981 983 Extend 985 98C ALetter 98F 990 ALetter 993 9A8 ALetter 9AA 9B0 ALetter 9B2 ALetter 9B6 9B9 ALetter 9BC Extend 9BD ALetter 9BE 9C4 Extend 9C7 9C8 Extend 9CB 9CD Extend 9CE ALetter 9D7 Extend 9DC 9DD ALetter 9DF 9E1 ALetter 9E2 9E3 Extend 9E6 9EF Numeric 9F0 9F1 ALetter 9FC ALetter 9FE Extend A01 A03 Extend A05 A0A ALetter A0F A10 ALetter A13 A28 ALetter A2A A30 ALetter A32 A33 ALetter A35 A36 ALetter A38 A39 ALetter A3C Extend A3E A42 Extend A47 A48 Extend A4B A4D Extend A51 Extend A59 A5C ALetter A5E ALetter A66 A6F Numeric A70 A71 Extend A72 A74 ALetter A75 Extend A81 A83 Extend A85 A8D ALetter A8F A91 ALetter A93 AA8 ALetter AAA AB0 ALetter AB2 AB3 ALetter AB5 AB9 ALetter ABC Extend ABD ALetter ABE AC5 Extend AC7 AC9 Extend ACB ACD Extend AD0 ALetter AE0 AE1 ALetter AE2 AE3 Extend AE6 AEF Numeric AF9 ALetter AFA AFF Extend B01 B03 Extend B05 B0C ALetter B0F B10 ALetter B13 B28 ALetter B2A B30 ALetter B32 B33 ALetter B35 B39 ALetter B3C Extend B3D ALetter B3E B44 Extend B47 B48 Extend B4B B4D Extend B55 B57 Extend B5C B5D ALetter B5F B61 ALetter B62 B63 Extend B66 B6F Numeric B71 ALetter B82 Extend B83 ALetter B85 B8A ALetter B8E B90 ALetter B92 B95 ALetter B99 B9A ALetter B9C ALetter B9E B9F ALetter BA3 BA4 ALetter BA8 BAA ALetter BAE BB9 ALetter BBE BC2 Extend BC6 BC8 Extend BCA BCD Extend BD0 ALetter BD7 Extend BE6 BEF Numeric C00 C04 Extend C05 C0C ALetter C0E C10 ALetter C12 C28 ALetter C2A C39 ALetter C3D ALetter C3E C44 Extend C46 C48 Extend C4A C4D Extend C55 C56 Extend C58 C5A ALetter C60 C61 ALetter C62 C63 Extend C66 C6F Numeric C80 ALetter C81 C83 Extend C85 C8C ALetter C8E C90 ALetter C92 CA8 ALetter CAA CB3 ALetter CB5 CB9 ALetter CBC Extend CBD ALetter CBE CC4 Extend CC6 CC8 Extend CCA CCD Extend CD5 CD6 Extend CDE ALetter CE0 CE1 ALetter CE2 CE3 Extend CE6 CEF Numeric CF1 CF2 ALetter D00 D03 Extend D04 D0C ALetter D0E D10 ALetter D12 D3A ALetter D3B D3C Extend D3D ALetter D3E D44 Extend D46 D48 Extend D4A D4D Extend D4E ALetter D54 D56 ALetter D57 Extend D5F D61 ALetter D62 D63 Extend D66 D6F Numeric D7A D7F ALetter D81 D83 Extend D85 D96 ALetter D9A DB1 ALetter DB3 DBB ALetter DBD ALetter DC0 DC6 ALetter DCA Extend DCF DD4 Extend DD6 Extend DD8 DDF Extend DE6 DEF Numeric DF2 DF3 Extend E31 Extend E34 E3A Extend E47 E4E Extend E50 E59 Numeric EB1 Extend EB4 EBC Extend EC8 ECD Extend ED0 ED9 Numeric F00 ALetter F18 F19 Extend F20 F29 Numeric F35 Extend F37 Extend F39 Extend F3E F3F Extend F40 F47 ALetter F49 F6C ALetter F71 F84 Extend F86 F87 Extend F88 F8C ALetter F8D F97 Extend F99 FBC Extend FC6 Extend 102B 103E Extend 1040 1049 Numeric 1056 1059 Extend 105E 1060 Extend 1062 1064 Extend 1067 106D Extend 1071 1074 Extend 1082 108D Extend 108F Extend 1090 1099 Numeric 109A 109D Extend 10A0 10C5 ALetter 10C7 ALetter 10CD ALetter 10D0 10FA ALetter 10FC 1248 ALetter 124A 124D ALetter 1250 1256 ALetter 1258 ALetter 125A 125D ALetter 1260 1288 ALetter 128A 128D ALetter 1290 12B0 ALetter 12B2 12B5 ALetter 12B8 12BE ALetter 12C0 ALetter 12C2 12C5 ALetter 12C8 12D6 ALetter 12D8 1310 ALetter 1312 1315 ALetter 1318 135A ALetter 135D 135F Extend 1380 138F ALetter 13A0 13F5 ALetter 13F8 13FD ALetter 1401 166C ALetter 166F 167F ALetter 1680 Perl_Tailored_HSpace 1681 169A ALetter 16A0 16EA ALetter 16EE 16F8 ALetter 1700 170C ALetter 170E 1711 ALetter 1712 1714 Extend 1720 1731 ALetter 1732 1734 Extend 1740 1751 ALetter 1752 1753 Extend 1760 176C ALetter 176E 1770 ALetter 1772 1773 Extend 17B4 17D3 Extend 17DD Extend 17E0 17E9 Numeric 180B 180D Extend 180E Format 1810 1819 Numeric 1820 1878 ALetter 1880 1884 ALetter 1885 1886 Extend 1887 18A8 ALetter 18A9 Extend 18AA ALetter 18B0 18F5 ALetter 1900 191E ALetter 1920 192B Extend 1930 193B Extend 1946 194F Numeric 19D0 19D9 Numeric 1A00 1A16 ALetter 1A17 1A1B Extend 1A55 1A5E Extend 1A60 1A7C Extend 1A7F Extend 1A80 1A89 Numeric 1A90 1A99 Numeric 1AB0 1AC0 Extend 1B00 1B04 Extend 1B05 1B33 ALetter 1B34 1B44 Extend 1B45 1B4B ALetter 1B50 1B59 Numeric 1B6B 1B73 Extend 1B80 1B82 Extend 1B83 1BA0 ALetter 1BA1 1BAD Extend 1BAE 1BAF ALetter 1BB0 1BB9 Numeric 1BBA 1BE5 ALetter 1BE6 1BF3 Extend 1C00 1C23 ALetter 1C24 1C37 Extend 1C40 1C49 Numeric 1C4D 1C4F ALetter 1C50 1C59 Numeric 1C5A 1C7D ALetter 1C80 1C88 ALetter 1C90 1CBA ALetter 1CBD 1CBF ALetter 1CD0 1CD2 Extend 1CD4 1CE8 Extend 1CE9 1CEC ALetter 1CED Extend 1CEE 1CF3 ALetter 1CF4 Extend 1CF5 1CF6 ALetter 1CF7 1CF9 Extend 1CFA ALetter 1D00 1DBF ALetter 1DC0 1DF9 Extend 1DFB 1DFF Extend 1E00 1F15 ALetter 1F18 1F1D ALetter 1F20 1F45 ALetter 1F48 1F4D ALetter 1F50 1F57 ALetter 1F59 ALetter 1F5B ALetter 1F5D ALetter 1F5F 1F7D ALetter 1F80 1FB4 ALetter 1FB6 1FBC ALetter 1FBE ALetter 1FC2 1FC4 ALetter 1FC6 1FCC ALetter 1FD0 1FD3 ALetter 1FD6 1FDB ALetter 1FE0 1FEC ALetter 1FF2 1FF4 ALetter 1FF6 1FFC ALetter 2000 200A Perl_Tailored_HSpace 200C Extend 200D ZWJ 200E 200F Format 2018 2019 MidNumLet 2024 MidNumLet 2027 MidLetter 2028 2029 Newline 202A 202E Format 202F ExtendNumLet 203C ExtPict_XX 203F 2040 ExtendNumLet 2044 MidNum 2049 ExtPict_XX 2054 ExtendNumLet 205F Perl_Tailored_HSpace 2060 2064 Format 2066 206F Format 2071 ALetter 207F ALetter 2090 209C ALetter 20D0 20F0 Extend 2102 ALetter 2107 ALetter 210A 2113 ALetter 2115 ALetter 2119 211D ALetter 2122 ExtPict_XX 2124 ALetter 2126 ALetter 2128 ALetter 212A 212D ALetter 212F 2138 ALetter 2139 ExtPict_LE 213C 213F ALetter 2145 2149 ALetter 214E ALetter 2160 2188 ALetter 2194 2199 ExtPict_XX 21A9 21AA ExtPict_XX 231A 231B ExtPict_XX 2328 ExtPict_XX 2388 ExtPict_XX 23CF ExtPict_XX 23E9 23F3 ExtPict_XX 23F8 23FA ExtPict_XX 24B6 24C1 ALetter 24C2 ExtPict_LE 24C3 24E9 ALetter 25AA 25AB ExtPict_XX 25B6 ExtPict_XX 25C0 ExtPict_XX 25FB 25FE ExtPict_XX 2600 2605 ExtPict_XX 2607 2612 ExtPict_XX 2614 2685 ExtPict_XX 2690 2705 ExtPict_XX 2708 2712 ExtPict_XX 2714 ExtPict_XX 2716 ExtPict_XX 271D ExtPict_XX 2721 ExtPict_XX 2728 ExtPict_XX 2733 2734 ExtPict_XX 2744 ExtPict_XX 2747 ExtPict_XX 274C ExtPict_XX 274E ExtPict_XX 2753 2755 ExtPict_XX 2757 ExtPict_XX 2763 2767 ExtPict_XX 2795 2797 ExtPict_XX 27A1 ExtPict_XX 27B0 ExtPict_XX 27BF ExtPict_XX 2934 2935 ExtPict_XX 2B05 2B07 ExtPict_XX 2B1B 2B1C ExtPict_XX 2B50 ExtPict_XX 2B55 ExtPict_XX 2C00 2C2E ALetter 2C30 2C5E ALetter 2C60 2CE4 ALetter 2CEB 2CEE ALetter 2CEF 2CF1 Extend 2CF2 2CF3 ALetter 2D00 2D25 ALetter 2D27 ALetter 2D2D ALetter 2D30 2D67 ALetter 2D6F ALetter 2D7F Extend 2D80 2D96 ALetter 2DA0 2DA6 ALetter 2DA8 2DAE ALetter 2DB0 2DB6 ALetter 2DB8 2DBE ALetter 2DC0 2DC6 ALetter 2DC8 2DCE ALetter 2DD0 2DD6 ALetter 2DD8 2DDE ALetter 2DE0 2DFF Extend 2E2F ALetter 3000 Perl_Tailored_HSpace 3005 ALetter 302A 302F Extend 3030 ExtPict_XX 3031 3035 Katakana 303B 303C ALetter 303D ExtPict_XX 3099 309A Extend 309B 309C Katakana 30A0 30FA Katakana 30FC 30FF Katakana 3105 312F ALetter 3131 318E ALetter 31A0 31BF ALetter 31F0 31FF Katakana 3297 ExtPict_XX 3299 ExtPict_XX 32D0 32FE Katakana 3300 3357 Katakana A000 A48C ALetter A4D0 A4FD ALetter A500 A60C ALetter A610 A61F ALetter A620 A629 Numeric A62A A62B ALetter A640 A66E ALetter A66F A672 Extend A674 A67D Extend A67F A69D ALetter A69E A69F Extend A6A0 A6EF ALetter A6F0 A6F1 Extend A708 A7BF ALetter A7C2 A7CA ALetter A7F5 A801 ALetter A802 Extend A803 A805 ALetter A806 Extend A807 A80A ALetter A80B Extend A80C A822 ALetter A823 A827 Extend A82C Extend A840 A873 ALetter A880 A881 Extend A882 A8B3 ALetter A8B4 A8C5 Extend A8D0 A8D9 Numeric A8E0 A8F1 Extend A8F2 A8F7 ALetter A8FB ALetter A8FD A8FE ALetter A8FF Extend A900 A909 Numeric A90A A925 ALetter A926 A92D Extend A930 A946 ALetter A947 A953 Extend A960 A97C ALetter A980 A983 Extend A984 A9B2 ALetter A9B3 A9C0 Extend A9CF ALetter A9D0 A9D9 Numeric A9E5 Extend A9F0 A9F9 Numeric AA00 AA28 ALetter AA29 AA36 Extend AA40 AA42 ALetter AA43 Extend AA44 AA4B ALetter AA4C AA4D Extend AA50 AA59 Numeric AA7B AA7D Extend AAB0 Extend AAB2 AAB4 Extend AAB7 AAB8 Extend AABE AABF Extend AAC1 Extend AAE0 AAEA ALetter AAEB AAEF Extend AAF2 AAF4 ALetter AAF5 AAF6 Extend AB01 AB06 ALetter AB09 AB0E ALetter AB11 AB16 ALetter AB20 AB26 ALetter AB28 AB2E ALetter AB30 AB69 ALetter AB70 ABE2 ALetter ABE3 ABEA Extend ABEC ABED Extend ABF0 ABF9 Numeric AC00 D7A3 ALetter D7B0 D7C6 ALetter D7CB D7FB ALetter FB00 FB06 ALetter FB13 FB17 ALetter FB1D Hebrew_Letter FB1E Extend FB1F FB28 Hebrew_Letter FB2A FB36 Hebrew_Letter FB38 FB3C Hebrew_Letter FB3E Hebrew_Letter FB40 FB41 Hebrew_Letter FB43 FB44 Hebrew_Letter FB46 FB4F Hebrew_Letter FB50 FBB1 ALetter FBD3 FD3D ALetter FD50 FD8F ALetter FD92 FDC7 ALetter FDF0 FDFB ALetter FE00 FE0F Extend FE10 MidNum FE13 MidLetter FE14 MidNum FE20 FE2F Extend FE33 FE34 ExtendNumLet FE4D FE4F ExtendNumLet FE50 MidNum FE52 MidNumLet FE54 MidNum FE55 MidLetter FE70 FE74 ALetter FE76 FEFC ALetter FEFF Format FF07 MidNumLet FF0C MidNum FF0E MidNumLet FF10 FF19 Numeric FF1A MidLetter FF1B MidNum FF21 FF3A ALetter FF3F ExtendNumLet FF41 FF5A ALetter FF66 FF9D Katakana FF9E FF9F Extend FFA0 FFBE ALetter FFC2 FFC7 ALetter FFCA FFCF ALetter FFD2 FFD7 ALetter FFDA FFDC ALetter FFF9 FFFB Format 10000 1000B ALetter 1000D 10026 ALetter 10028 1003A ALetter 1003C 1003D ALetter 1003F 1004D ALetter 10050 1005D ALetter 10080 100FA ALetter 10140 10174 ALetter 101FD Extend 10280 1029C ALetter 102A0 102D0 ALetter 102E0 Extend 10300 1031F ALetter 1032D 1034A ALetter 10350 10375 ALetter 10376 1037A Extend 10380 1039D ALetter 103A0 103C3 ALetter 103C8 103CF ALetter 103D1 103D5 ALetter 10400 1049D ALetter 104A0 104A9 Numeric 104B0 104D3 ALetter 104D8 104FB ALetter 10500 10527 ALetter 10530 10563 ALetter 10600 10736 ALetter 10740 10755 ALetter 10760 10767 ALetter 10800 10805 ALetter 10808 ALetter 1080A 10835 ALetter 10837 10838 ALetter 1083C ALetter 1083F 10855 ALetter 10860 10876 ALetter 10880 1089E ALetter 108E0 108F2 ALetter 108F4 108F5 ALetter 10900 10915 ALetter 10920 10939 ALetter 10980 109B7 ALetter 109BE 109BF ALetter 10A00 ALetter 10A01 10A03 Extend 10A05 10A06 Extend 10A0C 10A0F Extend 10A10 10A13 ALetter 10A15 10A17 ALetter 10A19 10A35 ALetter 10A38 10A3A Extend 10A3F Extend 10A60 10A7C ALetter 10A80 10A9C ALetter 10AC0 10AC7 ALetter 10AC9 10AE4 ALetter 10AE5 10AE6 Extend 10B00 10B35 ALetter 10B40 10B55 ALetter 10B60 10B72 ALetter 10B80 10B91 ALetter 10C00 10C48 ALetter 10C80 10CB2 ALetter 10CC0 10CF2 ALetter 10D00 10D23 ALetter 10D24 10D27 Extend 10D30 10D39 Numeric 10E80 10EA9 ALetter 10EAB 10EAC Extend 10EB0 10EB1 ALetter 10F00 10F1C ALetter 10F27 ALetter 10F30 10F45 ALetter 10F46 10F50 Extend 10FB0 10FC4 ALetter 10FE0 10FF6 ALetter 11000 11002 Extend 11003 11037 ALetter 11038 11046 Extend 11066 1106F Numeric 1107F 11082 Extend 11083 110AF ALetter 110B0 110BA Extend 110BD Format 110CD Format 110D0 110E8 ALetter 110F0 110F9 Numeric 11100 11102 Extend 11103 11126 ALetter 11127 11134 Extend 11136 1113F Numeric 11144 ALetter 11145 11146 Extend 11147 ALetter 11150 11172 ALetter 11173 Extend 11176 ALetter 11180 11182 Extend 11183 111B2 ALetter 111B3 111C0 Extend 111C1 111C4 ALetter 111C9 111CC Extend 111CE 111CF Extend 111D0 111D9 Numeric 111DA ALetter 111DC ALetter 11200 11211 ALetter 11213 1122B ALetter 1122C 11237 Extend 1123E Extend 11280 11286 ALetter 11288 ALetter 1128A 1128D ALetter 1128F 1129D ALetter 1129F 112A8 ALetter 112B0 112DE ALetter 112DF 112EA Extend 112F0 112F9 Numeric 11300 11303 Extend 11305 1130C ALetter 1130F 11310 ALetter 11313 11328 ALetter 1132A 11330 ALetter 11332 11333 ALetter 11335 11339 ALetter 1133B 1133C Extend 1133D ALetter 1133E 11344 Extend 11347 11348 Extend 1134B 1134D Extend 11350 ALetter 11357 Extend 1135D 11361 ALetter 11362 11363 Extend 11366 1136C Extend 11370 11374 Extend 11400 11434 ALetter 11435 11446 Extend 11447 1144A ALetter 11450 11459 Numeric 1145E Extend 1145F 11461 ALetter 11480 114AF ALetter 114B0 114C3 Extend 114C4 114C5 ALetter 114C7 ALetter 114D0 114D9 Numeric 11580 115AE ALetter 115AF 115B5 Extend 115B8 115C0 Extend 115D8 115DB ALetter 115DC 115DD Extend 11600 1162F ALetter 11630 11640 Extend 11644 ALetter 11650 11659 Numeric 11680 116AA ALetter 116AB 116B7 Extend 116B8 ALetter 116C0 116C9 Numeric 1171D 1172B Extend 11730 11739 Numeric 11800 1182B ALetter 1182C 1183A Extend 118A0 118DF ALetter 118E0 118E9 Numeric 118FF 11906 ALetter 11909 ALetter 1190C 11913 ALetter 11915 11916 ALetter 11918 1192F ALetter 11930 11935 Extend 11937 11938 Extend 1193B 1193E Extend 1193F ALetter 11940 Extend 11941 ALetter 11942 11943 Extend 11950 11959 Numeric 119A0 119A7 ALetter 119AA 119D0 ALetter 119D1 119D7 Extend 119DA 119E0 Extend 119E1 ALetter 119E3 ALetter 119E4 Extend 11A00 ALetter 11A01 11A0A Extend 11A0B 11A32 ALetter 11A33 11A39 Extend 11A3A ALetter 11A3B 11A3E Extend 11A47 Extend 11A50 ALetter 11A51 11A5B Extend 11A5C 11A89 ALetter 11A8A 11A99 Extend 11A9D ALetter 11AC0 11AF8 ALetter 11C00 11C08 ALetter 11C0A 11C2E ALetter 11C2F 11C36 Extend 11C38 11C3F Extend 11C40 ALetter 11C50 11C59 Numeric 11C72 11C8F ALetter 11C92 11CA7 Extend 11CA9 11CB6 Extend 11D00 11D06 ALetter 11D08 11D09 ALetter 11D0B 11D30 ALetter 11D31 11D36 Extend 11D3A Extend 11D3C 11D3D Extend 11D3F 11D45 Extend 11D46 ALetter 11D47 Extend 11D50 11D59 Numeric 11D60 11D65 ALetter 11D67 11D68 ALetter 11D6A 11D89 ALetter 11D8A 11D8E Extend 11D90 11D91 Extend 11D93 11D97 Extend 11D98 ALetter 11DA0 11DA9 Numeric 11EE0 11EF2 ALetter 11EF3 11EF6 Extend 11FB0 ALetter 12000 12399 ALetter 12400 1246E ALetter 12480 12543 ALetter 13000 1342E ALetter 13430 13438 Format 14400 14646 ALetter 16800 16A38 ALetter 16A40 16A5E ALetter 16A60 16A69 Numeric 16AD0 16AED ALetter 16AF0 16AF4 Extend 16B00 16B2F ALetter 16B30 16B36 Extend 16B40 16B43 ALetter 16B50 16B59 Numeric 16B63 16B77 ALetter 16B7D 16B8F ALetter 16E40 16E7F ALetter 16F00 16F4A ALetter 16F4F Extend 16F50 ALetter 16F51 16F87 Extend 16F8F 16F92 Extend 16F93 16F9F ALetter 16FE0 16FE1 ALetter 16FE3 ALetter 16FE4 Extend 16FF0 16FF1 Extend 1B000 Katakana 1B164 1B167 Katakana 1BC00 1BC6A ALetter 1BC70 1BC7C ALetter 1BC80 1BC88 ALetter 1BC90 1BC99 ALetter 1BC9D 1BC9E Extend 1BCA0 1BCA3 Format 1D165 1D169 Extend 1D16D 1D172 Extend 1D173 1D17A Format 1D17B 1D182 Extend 1D185 1D18B Extend 1D1AA 1D1AD Extend 1D242 1D244 Extend 1D400 1D454 ALetter 1D456 1D49C ALetter 1D49E 1D49F ALetter 1D4A2 ALetter 1D4A5 1D4A6 ALetter 1D4A9 1D4AC ALetter 1D4AE 1D4B9 ALetter 1D4BB ALetter 1D4BD 1D4C3 ALetter 1D4C5 1D505 ALetter 1D507 1D50A ALetter 1D50D 1D514 ALetter 1D516 1D51C ALetter 1D51E 1D539 ALetter 1D53B 1D53E ALetter 1D540 1D544 ALetter 1D546 ALetter 1D54A 1D550 ALetter 1D552 1D6A5 ALetter 1D6A8 1D6C0 ALetter 1D6C2 1D6DA ALetter 1D6DC 1D6FA ALetter 1D6FC 1D714 ALetter 1D716 1D734 ALetter 1D736 1D74E ALetter 1D750 1D76E ALetter 1D770 1D788 ALetter 1D78A 1D7A8 ALetter 1D7AA 1D7C2 ALetter 1D7C4 1D7CB ALetter 1D7CE 1D7FF Numeric 1DA00 1DA36 Extend 1DA3B 1DA6C Extend 1DA75 Extend 1DA84 Extend 1DA9B 1DA9F Extend 1DAA1 1DAAF Extend 1E000 1E006 Extend 1E008 1E018 Extend 1E01B 1E021 Extend 1E023 1E024 Extend 1E026 1E02A Extend 1E100 1E12C ALetter 1E130 1E136 Extend 1E137 1E13D ALetter 1E140 1E149 Numeric 1E14E ALetter 1E2C0 1E2EB ALetter 1E2EC 1E2EF Extend 1E2F0 1E2F9 Numeric 1E800 1E8C4 ALetter 1E8D0 1E8D6 Extend 1E900 1E943 ALetter 1E944 1E94A Extend 1E94B ALetter 1E950 1E959 Numeric 1EE00 1EE03 ALetter 1EE05 1EE1F ALetter 1EE21 1EE22 ALetter 1EE24 ALetter 1EE27 ALetter 1EE29 1EE32 ALetter 1EE34 1EE37 ALetter 1EE39 ALetter 1EE3B ALetter 1EE42 ALetter 1EE47 ALetter 1EE49 ALetter 1EE4B ALetter 1EE4D 1EE4F ALetter 1EE51 1EE52 ALetter 1EE54 ALetter 1EE57 ALetter 1EE59 ALetter 1EE5B ALetter 1EE5D ALetter 1EE5F ALetter 1EE61 1EE62 ALetter 1EE64 ALetter 1EE67 1EE6A ALetter 1EE6C 1EE72 ALetter 1EE74 1EE77 ALetter 1EE79 1EE7C ALetter 1EE7E ALetter 1EE80 1EE89 ALetter 1EE8B 1EE9B ALetter 1EEA1 1EEA3 ALetter 1EEA5 1EEA9 ALetter 1EEAB 1EEBB ALetter 1F000 1F0FF ExtPict_XX 1F10D 1F10F ExtPict_XX 1F12F ExtPict_XX 1F130 1F149 ALetter 1F150 1F169 ALetter 1F16C 1F16F ExtPict_XX 1F170 1F171 ExtPict_LE 1F172 1F17D ALetter 1F17E 1F17F ExtPict_LE 1F180 1F189 ALetter 1F18E ExtPict_XX 1F191 1F19A ExtPict_XX 1F1AD 1F1E5 ExtPict_XX 1F1E6 1F1FF Regional_Indicator 1F201 1F20F ExtPict_XX 1F21A ExtPict_XX 1F22F ExtPict_XX 1F232 1F23A ExtPict_XX 1F23C 1F23F ExtPict_XX 1F249 1F3FA ExtPict_XX 1F3FB 1F3FF Extend 1F400 1F53D ExtPict_XX 1F546 1F64F ExtPict_XX 1F680 1F6FF ExtPict_XX 1F774 1F77F ExtPict_XX 1F7D5 1F7FF ExtPict_XX 1F80C 1F80F ExtPict_XX 1F848 1F84F ExtPict_XX 1F85A 1F85F ExtPict_XX 1F888 1F88F ExtPict_XX 1F8AE 1F8FF ExtPict_XX 1F90C 1F93A ExtPict_XX 1F93C 1F945 ExtPict_XX 1F947 1FAFF ExtPict_XX 1FBF0 1FBF9 Numeric 1FC00 1FFFD ExtPict_XX E0001 Format E0020 E007F Extend E0100 E01EF Extend END PK ! � �uw w 5.34.0/unicore/To/Jg.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToJg'}{'format'} = 's'; # string $Unicode::UCD::SwashInfo{'ToJg'}{'missing'} = 'No_Joining_Group'; return <<'END'; 620 Yeh 622 623 Alef 624 Waw 625 Alef 626 Yeh 627 Alef 628 Beh 629 Teh_Marbuta 62A 62B Beh 62C 62E Hah 62F 630 Dal 631 632 Reh 633 634 Seen 635 636 Sad 637 638 Tah 639 63A Ain 63B 63C Gaf 63D 63F Farsi_Yeh 641 Feh 642 Qaf 643 Kaf 644 Lam 645 Meem 646 Noon 647 Heh 648 Waw 649 64A Yeh 66E Beh 66F Qaf 671 673 Alef 675 Alef 676 677 Waw 678 Yeh 679 680 Beh 681 687 Hah 688 690 Dal 691 699 Reh 69A 69C Seen 69D 69E Sad 69F Tah 6A0 Ain 6A1 6A6 Feh 6A7 6A8 Qaf 6A9 Gaf 6AA Swash_Kaf 6AB Gaf 6AC 6AE Kaf 6AF 6B4 Gaf 6B5 6B8 Lam 6B9 6BC Noon 6BD Nya 6BE Knotted_Heh 6BF Hah 6C0 Teh_Marbuta 6C1 6C2 Heh_Goal 6C3 Teh_Marbuta_Goal 6C4 6CB Waw 6CC Farsi_Yeh 6CD Yeh_With_Tail 6CE Farsi_Yeh 6CF Waw 6D0 6D1 Yeh 6D2 6D3 Yeh_Barree 6D5 Teh_Marbuta 6EE Dal 6EF Reh 6FA Seen 6FB Sad 6FC Ain 6FF Knotted_Heh 710 Alaph 712 Beth 713 714 Gamal 715 716 Dalath_Rish 717 He 718 Syriac_Waw 719 Zain 71A Heth 71B 71C Teth 71D Yudh 71E Yudh_He 71F Kaph 720 Lamadh 721 Mim 722 Nun 723 Semkath 724 Final_Semkath 725 E 726 Pe 727 Reversed_Pe 728 Sadhe 729 Qaph 72A Dalath_Rish 72B Shin 72C Taw 72D Beth 72E Gamal 72F Dalath_Rish 74D Zhain 74E Khaph 74F Fe 750 756 Beh 757 758 Hah 759 75A Dal 75B Reh 75C Seen 75D 75F Ain 760 761 Feh 762 764 Gaf 765 766 Meem 767 769 Noon 76A Lam 76B 76C Reh 76D Seen 76E 76F Hah 770 Seen 771 Reh 772 Hah 773 774 Alef 775 776 Farsi_Yeh 777 Yeh 778 779 Waw 77A 77B Burushaski_Yeh_Barree 77C Hah 77D 77E Seen 77F Kaf 860 Malayalam_Nga 861 Malayalam_Ja 862 Malayalam_Nya 863 Malayalam_Tta 864 Malayalam_Nna 865 Malayalam_Nnna 866 Malayalam_Bha 867 Malayalam_Ra 868 Malayalam_Lla 869 Malayalam_Llla 86A Malayalam_Ssa 8A0 8A1 Beh 8A2 Hah 8A3 Tah 8A4 Feh 8A5 Qaf 8A6 Lam 8A7 Meem 8A8 8A9 Yeh 8AA Reh 8AB Waw 8AC Rohingya_Yeh 8AE Dal 8AF Sad 8B0 Gaf 8B1 Straight_Waw 8B2 Reh 8B3 Ain 8B4 Kaf 8B6 8B8 Beh 8B9 Reh 8BA Yeh 8BB African_Feh 8BC African_Qaf 8BD African_Noon 8BE 8C0 Beh 8C1 Hah 8C2 Gaf 8C3 Ain 8C4 African_Qaf 8C5 8C6 Hah 8C7 Lam 10AC0 Manichaean_Aleph 10AC1 10AC2 Manichaean_Beth 10AC3 10AC4 Manichaean_Gimel 10AC5 Manichaean_Daleth 10AC7 Manichaean_Waw 10AC9 10ACA Manichaean_Zayin 10ACD Manichaean_Heth 10ACE Manichaean_Teth 10ACF Manichaean_Yodh 10AD0 10AD2 Manichaean_Kaph 10AD3 Manichaean_Lamedh 10AD4 Manichaean_Dhamedh 10AD5 Manichaean_Thamedh 10AD6 Manichaean_Mem 10AD7 Manichaean_Nun 10AD8 Manichaean_Samekh 10AD9 10ADA Manichaean_Ayin 10ADB 10ADC Manichaean_Pe 10ADD Manichaean_Sadhe 10ADE 10AE0 Manichaean_Qoph 10AE1 Manichaean_Resh 10AE4 Manichaean_Taw 10AEB Manichaean_One 10AEC Manichaean_Five 10AED Manichaean_Ten 10AEE Manichaean_Twenty 10AEF Manichaean_Hundred 10D02 Hanifi_Rohingya_Pa 10D09 Hanifi_Rohingya_Pa 10D19 Hanifi_Rohingya_Kinna_Ya 10D1C Hanifi_Rohingya_Pa 10D1E Hanifi_Rohingya_Kinna_Ya 10D20 Hanifi_Rohingya_Kinna_Ya 10D23 Hanifi_Rohingya_Kinna_Ya END PK ! ���� ' ' 5.34.0/unicore/To/Hst.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToHst'}{'format'} = 's'; # string $Unicode::UCD::SwashInfo{'ToHst'}{'missing'} = 'NA'; return <<'END'; 1100 115F L 1160 11A7 V 11A8 11FF T A960 A97C L AC00 LV AC01 AC1B LVT AC1C LV AC1D AC37 LVT AC38 LV AC39 AC53 LVT AC54 LV AC55 AC6F LVT AC70 LV AC71 AC8B LVT AC8C LV AC8D ACA7 LVT ACA8 LV ACA9 ACC3 LVT ACC4 LV ACC5 ACDF LVT ACE0 LV ACE1 ACFB LVT ACFC LV ACFD AD17 LVT AD18 LV AD19 AD33 LVT AD34 LV AD35 AD4F LVT AD50 LV AD51 AD6B LVT AD6C LV AD6D AD87 LVT AD88 LV AD89 ADA3 LVT ADA4 LV ADA5 ADBF LVT ADC0 LV ADC1 ADDB LVT ADDC LV ADDD ADF7 LVT ADF8 LV ADF9 AE13 LVT AE14 LV AE15 AE2F LVT AE30 LV AE31 AE4B LVT AE4C LV AE4D AE67 LVT AE68 LV AE69 AE83 LVT AE84 LV AE85 AE9F LVT AEA0 LV AEA1 AEBB LVT AEBC LV AEBD AED7 LVT AED8 LV AED9 AEF3 LVT AEF4 LV AEF5 AF0F LVT AF10 LV AF11 AF2B LVT AF2C LV AF2D AF47 LVT AF48 LV AF49 AF63 LVT AF64 LV AF65 AF7F LVT AF80 LV AF81 AF9B LVT AF9C LV AF9D AFB7 LVT AFB8 LV AFB9 AFD3 LVT AFD4 LV AFD5 AFEF LVT AFF0 LV AFF1 B00B LVT B00C LV B00D B027 LVT B028 LV B029 B043 LVT B044 LV B045 B05F LVT B060 LV B061 B07B LVT B07C LV B07D B097 LVT B098 LV B099 B0B3 LVT B0B4 LV B0B5 B0CF LVT B0D0 LV B0D1 B0EB LVT B0EC LV B0ED B107 LVT B108 LV B109 B123 LVT B124 LV B125 B13F LVT B140 LV B141 B15B LVT B15C LV B15D B177 LVT B178 LV B179 B193 LVT B194 LV B195 B1AF LVT B1B0 LV B1B1 B1CB LVT B1CC LV B1CD B1E7 LVT B1E8 LV B1E9 B203 LVT B204 LV B205 B21F LVT B220 LV B221 B23B LVT B23C LV B23D B257 LVT B258 LV B259 B273 LVT B274 LV B275 B28F LVT B290 LV B291 B2AB LVT B2AC LV B2AD B2C7 LVT B2C8 LV B2C9 B2E3 LVT B2E4 LV B2E5 B2FF LVT B300 LV B301 B31B LVT B31C LV B31D B337 LVT B338 LV B339 B353 LVT B354 LV B355 B36F LVT B370 LV B371 B38B LVT B38C LV B38D B3A7 LVT B3A8 LV B3A9 B3C3 LVT B3C4 LV B3C5 B3DF LVT B3E0 LV B3E1 B3FB LVT B3FC LV B3FD B417 LVT B418 LV B419 B433 LVT B434 LV B435 B44F LVT B450 LV B451 B46B LVT B46C LV B46D B487 LVT B488 LV B489 B4A3 LVT B4A4 LV B4A5 B4BF LVT B4C0 LV B4C1 B4DB LVT B4DC LV B4DD B4F7 LVT B4F8 LV B4F9 B513 LVT B514 LV B515 B52F LVT B530 LV B531 B54B LVT B54C LV B54D B567 LVT B568 LV B569 B583 LVT B584 LV B585 B59F LVT B5A0 LV B5A1 B5BB LVT B5BC LV B5BD B5D7 LVT B5D8 LV B5D9 B5F3 LVT B5F4 LV B5F5 B60F LVT B610 LV B611 B62B LVT B62C LV B62D B647 LVT B648 LV B649 B663 LVT B664 LV B665 B67F LVT B680 LV B681 B69B LVT B69C LV B69D B6B7 LVT B6B8 LV B6B9 B6D3 LVT B6D4 LV B6D5 B6EF LVT B6F0 LV B6F1 B70B LVT B70C LV B70D B727 LVT B728 LV B729 B743 LVT B744 LV B745 B75F LVT B760 LV B761 B77B LVT B77C LV B77D B797 LVT B798 LV B799 B7B3 LVT B7B4 LV B7B5 B7CF LVT B7D0 LV B7D1 B7EB LVT B7EC LV B7ED B807 LVT B808 LV B809 B823 LVT B824 LV B825 B83F LVT B840 LV B841 B85B LVT B85C LV B85D B877 LVT B878 LV B879 B893 LVT B894 LV B895 B8AF LVT B8B0 LV B8B1 B8CB LVT B8CC LV B8CD B8E7 LVT B8E8 LV B8E9 B903 LVT B904 LV B905 B91F LVT B920 LV B921 B93B LVT B93C LV B93D B957 LVT B958 LV B959 B973 LVT B974 LV B975 B98F LVT B990 LV B991 B9AB LVT B9AC LV B9AD B9C7 LVT B9C8 LV B9C9 B9E3 LVT B9E4 LV B9E5 B9FF LVT BA00 LV BA01 BA1B LVT BA1C LV BA1D BA37 LVT BA38 LV BA39 BA53 LVT BA54 LV BA55 BA6F LVT BA70 LV BA71 BA8B LVT BA8C LV BA8D BAA7 LVT BAA8 LV BAA9 BAC3 LVT BAC4 LV BAC5 BADF LVT BAE0 LV BAE1 BAFB LVT BAFC LV BAFD BB17 LVT BB18 LV BB19 BB33 LVT BB34 LV BB35 BB4F LVT BB50 LV BB51 BB6B LVT BB6C LV BB6D BB87 LVT BB88 LV BB89 BBA3 LVT BBA4 LV BBA5 BBBF LVT BBC0 LV BBC1 BBDB LVT BBDC LV BBDD BBF7 LVT BBF8 LV BBF9 BC13 LVT BC14 LV BC15 BC2F LVT BC30 LV BC31 BC4B LVT BC4C LV BC4D BC67 LVT BC68 LV BC69 BC83 LVT BC84 LV BC85 BC9F LVT BCA0 LV BCA1 BCBB LVT BCBC LV BCBD BCD7 LVT BCD8 LV BCD9 BCF3 LVT BCF4 LV BCF5 BD0F LVT BD10 LV BD11 BD2B LVT BD2C LV BD2D BD47 LVT BD48 LV BD49 BD63 LVT BD64 LV BD65 BD7F LVT BD80 LV BD81 BD9B LVT BD9C LV BD9D BDB7 LVT BDB8 LV BDB9 BDD3 LVT BDD4 LV BDD5 BDEF LVT BDF0 LV BDF1 BE0B LVT BE0C LV BE0D BE27 LVT BE28 LV BE29 BE43 LVT BE44 LV BE45 BE5F LVT BE60 LV BE61 BE7B LVT BE7C LV BE7D BE97 LVT BE98 LV BE99 BEB3 LVT BEB4 LV BEB5 BECF LVT BED0 LV BED1 BEEB LVT BEEC LV BEED BF07 LVT BF08 LV BF09 BF23 LVT BF24 LV BF25 BF3F LVT BF40 LV BF41 BF5B LVT BF5C LV BF5D BF77 LVT BF78 LV BF79 BF93 LVT BF94 LV BF95 BFAF LVT BFB0 LV BFB1 BFCB LVT BFCC LV BFCD BFE7 LVT BFE8 LV BFE9 C003 LVT C004 LV C005 C01F LVT C020 LV C021 C03B LVT C03C LV C03D C057 LVT C058 LV C059 C073 LVT C074 LV C075 C08F LVT C090 LV C091 C0AB LVT C0AC LV C0AD C0C7 LVT C0C8 LV C0C9 C0E3 LVT C0E4 LV C0E5 C0FF LVT C100 LV C101 C11B LVT C11C LV C11D C137 LVT C138 LV C139 C153 LVT C154 LV C155 C16F LVT C170 LV C171 C18B LVT C18C LV C18D C1A7 LVT C1A8 LV C1A9 C1C3 LVT C1C4 LV C1C5 C1DF LVT C1E0 LV C1E1 C1FB LVT C1FC LV C1FD C217 LVT C218 LV C219 C233 LVT C234 LV C235 C24F LVT C250 LV C251 C26B LVT C26C LV C26D C287 LVT C288 LV C289 C2A3 LVT C2A4 LV C2A5 C2BF LVT C2C0 LV C2C1 C2DB LVT C2DC LV C2DD C2F7 LVT C2F8 LV C2F9 C313 LVT C314 LV C315 C32F LVT C330 LV C331 C34B LVT C34C LV C34D C367 LVT C368 LV C369 C383 LVT C384 LV C385 C39F LVT C3A0 LV C3A1 C3BB LVT C3BC LV C3BD C3D7 LVT C3D8 LV C3D9 C3F3 LVT C3F4 LV C3F5 C40F LVT C410 LV C411 C42B LVT C42C LV C42D C447 LVT C448 LV C449 C463 LVT C464 LV C465 C47F LVT C480 LV C481 C49B LVT C49C LV C49D C4B7 LVT C4B8 LV C4B9 C4D3 LVT C4D4 LV C4D5 C4EF LVT C4F0 LV C4F1 C50B LVT C50C LV C50D C527 LVT C528 LV C529 C543 LVT C544 LV C545 C55F LVT C560 LV C561 C57B LVT C57C LV C57D C597 LVT C598 LV C599 C5B3 LVT C5B4 LV C5B5 C5CF LVT C5D0 LV C5D1 C5EB LVT C5EC LV C5ED C607 LVT C608 LV C609 C623 LVT C624 LV C625 C63F LVT C640 LV C641 C65B LVT C65C LV C65D C677 LVT C678 LV C679 C693 LVT C694 LV C695 C6AF LVT C6B0 LV C6B1 C6CB LVT C6CC LV C6CD C6E7 LVT C6E8 LV C6E9 C703 LVT C704 LV C705 C71F LVT C720 LV C721 C73B LVT C73C LV C73D C757 LVT C758 LV C759 C773 LVT C774 LV C775 C78F LVT C790 LV C791 C7AB LVT C7AC LV C7AD C7C7 LVT C7C8 LV C7C9 C7E3 LVT C7E4 LV C7E5 C7FF LVT C800 LV C801 C81B LVT C81C LV C81D C837 LVT C838 LV C839 C853 LVT C854 LV C855 C86F LVT C870 LV C871 C88B LVT C88C LV C88D C8A7 LVT C8A8 LV C8A9 C8C3 LVT C8C4 LV C8C5 C8DF LVT C8E0 LV C8E1 C8FB LVT C8FC LV C8FD C917 LVT C918 LV C919 C933 LVT C934 LV C935 C94F LVT C950 LV C951 C96B LVT C96C LV C96D C987 LVT C988 LV C989 C9A3 LVT C9A4 LV C9A5 C9BF LVT C9C0 LV C9C1 C9DB LVT C9DC LV C9DD C9F7 LVT C9F8 LV C9F9 CA13 LVT CA14 LV CA15 CA2F LVT CA30 LV CA31 CA4B LVT CA4C LV CA4D CA67 LVT CA68 LV CA69 CA83 LVT CA84 LV CA85 CA9F LVT CAA0 LV CAA1 CABB LVT CABC LV CABD CAD7 LVT CAD8 LV CAD9 CAF3 LVT CAF4 LV CAF5 CB0F LVT CB10 LV CB11 CB2B LVT CB2C LV CB2D CB47 LVT CB48 LV CB49 CB63 LVT CB64 LV CB65 CB7F LVT CB80 LV CB81 CB9B LVT CB9C LV CB9D CBB7 LVT CBB8 LV CBB9 CBD3 LVT CBD4 LV CBD5 CBEF LVT CBF0 LV CBF1 CC0B LVT CC0C LV CC0D CC27 LVT CC28 LV CC29 CC43 LVT CC44 LV CC45 CC5F LVT CC60 LV CC61 CC7B LVT CC7C LV CC7D CC97 LVT CC98 LV CC99 CCB3 LVT CCB4 LV CCB5 CCCF LVT CCD0 LV CCD1 CCEB LVT CCEC LV CCED CD07 LVT CD08 LV CD09 CD23 LVT CD24 LV CD25 CD3F LVT CD40 LV CD41 CD5B LVT CD5C LV CD5D CD77 LVT CD78 LV CD79 CD93 LVT CD94 LV CD95 CDAF LVT CDB0 LV CDB1 CDCB LVT CDCC LV CDCD CDE7 LVT CDE8 LV CDE9 CE03 LVT CE04 LV CE05 CE1F LVT CE20 LV CE21 CE3B LVT CE3C LV CE3D CE57 LVT CE58 LV CE59 CE73 LVT CE74 LV CE75 CE8F LVT CE90 LV CE91 CEAB LVT CEAC LV CEAD CEC7 LVT CEC8 LV CEC9 CEE3 LVT CEE4 LV CEE5 CEFF LVT CF00 LV CF01 CF1B LVT CF1C LV CF1D CF37 LVT CF38 LV CF39 CF53 LVT CF54 LV CF55 CF6F LVT CF70 LV CF71 CF8B LVT CF8C LV CF8D CFA7 LVT CFA8 LV CFA9 CFC3 LVT CFC4 LV CFC5 CFDF LVT CFE0 LV CFE1 CFFB LVT CFFC LV CFFD D017 LVT D018 LV D019 D033 LVT D034 LV D035 D04F LVT D050 LV D051 D06B LVT D06C LV D06D D087 LVT D088 LV D089 D0A3 LVT D0A4 LV D0A5 D0BF LVT D0C0 LV D0C1 D0DB LVT D0DC LV D0DD D0F7 LVT D0F8 LV D0F9 D113 LVT D114 LV D115 D12F LVT D130 LV D131 D14B LVT D14C LV D14D D167 LVT D168 LV D169 D183 LVT D184 LV D185 D19F LVT D1A0 LV D1A1 D1BB LVT D1BC LV D1BD D1D7 LVT D1D8 LV D1D9 D1F3 LVT D1F4 LV D1F5 D20F LVT D210 LV D211 D22B LVT D22C LV D22D D247 LVT D248 LV D249 D263 LVT D264 LV D265 D27F LVT D280 LV D281 D29B LVT D29C LV D29D D2B7 LVT D2B8 LV D2B9 D2D3 LVT D2D4 LV D2D5 D2EF LVT D2F0 LV D2F1 D30B LVT D30C LV D30D D327 LVT D328 LV D329 D343 LVT D344 LV D345 D35F LVT D360 LV D361 D37B LVT D37C LV D37D D397 LVT D398 LV D399 D3B3 LVT D3B4 LV D3B5 D3CF LVT D3D0 LV D3D1 D3EB LVT D3EC LV D3ED D407 LVT D408 LV D409 D423 LVT D424 LV D425 D43F LVT D440 LV D441 D45B LVT D45C LV D45D D477 LVT D478 LV D479 D493 LVT D494 LV D495 D4AF LVT D4B0 LV D4B1 D4CB LVT D4CC LV D4CD D4E7 LVT D4E8 LV D4E9 D503 LVT D504 LV D505 D51F LVT D520 LV D521 D53B LVT D53C LV D53D D557 LVT D558 LV D559 D573 LVT D574 LV D575 D58F LVT D590 LV D591 D5AB LVT D5AC LV D5AD D5C7 LVT D5C8 LV D5C9 D5E3 LVT D5E4 LV D5E5 D5FF LVT D600 LV D601 D61B LVT D61C LV D61D D637 LVT D638 LV D639 D653 LVT D654 LV D655 D66F LVT D670 LV D671 D68B LVT D68C LV D68D D6A7 LVT D6A8 LV D6A9 D6C3 LVT D6C4 LV D6C5 D6DF LVT D6E0 LV D6E1 D6FB LVT D6FC LV D6FD D717 LVT D718 LV D719 D733 LVT D734 LV D735 D74F LVT D750 LV D751 D76B LVT D76C LV D76D D787 LVT D788 LV D789 D7A3 LVT D7B0 D7C6 V D7CB D7FB T END PK ! U6�PQ PQ 5.34.0/unicore/To/GCB.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToGCB'}{'format'} = 's'; # string $Unicode::UCD::SwashInfo{'ToGCB'}{'missing'} = 'Other'; return <<'END'; 0 9 Control A LF B C Control D CR E 1F Control 7F 9F Control A9 ExtPict_XX AD Control AE ExtPict_XX 300 36F Extend 483 489 Extend 591 5BD Extend 5BF Extend 5C1 5C2 Extend 5C4 5C5 Extend 5C7 Extend 600 605 Prepend 610 61A Extend 61C Control 64B 65F Extend 670 Extend 6D6 6DC Extend 6DD Prepend 6DF 6E4 Extend 6E7 6E8 Extend 6EA 6ED Extend 70F Prepend 711 Extend 730 74A Extend 7A6 7B0 Extend 7EB 7F3 Extend 7FD Extend 816 819 Extend 81B 823 Extend 825 827 Extend 829 82D Extend 859 85B Extend 8D3 8E1 Extend 8E2 Prepend 8E3 902 Extend 903 SpacingMark 93A Extend 93B SpacingMark 93C Extend 93E 940 SpacingMark 941 948 Extend 949 94C SpacingMark 94D Extend 94E 94F SpacingMark 951 957 Extend 962 963 Extend 981 Extend 982 983 SpacingMark 9BC Extend 9BE Extend 9BF 9C0 SpacingMark 9C1 9C4 Extend 9C7 9C8 SpacingMark 9CB 9CC SpacingMark 9CD Extend 9D7 Extend 9E2 9E3 Extend 9FE Extend A01 A02 Extend A03 SpacingMark A3C Extend A3E A40 SpacingMark A41 A42 Extend A47 A48 Extend A4B A4D Extend A51 Extend A70 A71 Extend A75 Extend A81 A82 Extend A83 SpacingMark ABC Extend ABE AC0 SpacingMark AC1 AC5 Extend AC7 AC8 Extend AC9 SpacingMark ACB ACC SpacingMark ACD Extend AE2 AE3 Extend AFA AFF Extend B01 Extend B02 B03 SpacingMark B3C Extend B3E B3F Extend B40 SpacingMark B41 B44 Extend B47 B48 SpacingMark B4B B4C SpacingMark B4D Extend B55 B57 Extend B62 B63 Extend B82 Extend BBE Extend BBF SpacingMark BC0 Extend BC1 BC2 SpacingMark BC6 BC8 SpacingMark BCA BCC SpacingMark BCD Extend BD7 Extend C00 Extend C01 C03 SpacingMark C04 Extend C3E C40 Extend C41 C44 SpacingMark C46 C48 Extend C4A C4D Extend C55 C56 Extend C62 C63 Extend C81 Extend C82 C83 SpacingMark CBC Extend CBE SpacingMark CBF Extend CC0 CC1 SpacingMark CC2 Extend CC3 CC4 SpacingMark CC6 Extend CC7 CC8 SpacingMark CCA CCB SpacingMark CCC CCD Extend CD5 CD6 Extend CE2 CE3 Extend D00 D01 Extend D02 D03 SpacingMark D3B D3C Extend D3E Extend D3F D40 SpacingMark D41 D44 Extend D46 D48 SpacingMark D4A D4C SpacingMark D4D Extend D4E Prepend D57 Extend D62 D63 Extend D81 Extend D82 D83 SpacingMark DCA Extend DCF Extend DD0 DD1 SpacingMark DD2 DD4 Extend DD6 Extend DD8 DDE SpacingMark DDF Extend DF2 DF3 SpacingMark E31 Extend E33 SpacingMark E34 E3A Extend E47 E4E Extend EB1 Extend EB3 SpacingMark EB4 EBC Extend EC8 ECD Extend F18 F19 Extend F35 Extend F37 Extend F39 Extend F3E F3F SpacingMark F71 F7E Extend F7F SpacingMark F80 F84 Extend F86 F87 Extend F8D F97 Extend F99 FBC Extend FC6 Extend 102D 1030 Extend 1031 SpacingMark 1032 1037 Extend 1039 103A Extend 103B 103C SpacingMark 103D 103E Extend 1056 1057 SpacingMark 1058 1059 Extend 105E 1060 Extend 1071 1074 Extend 1082 Extend 1084 SpacingMark 1085 1086 Extend 108D Extend 109D Extend 1100 115F L 1160 11A7 V 11A8 11FF T 135D 135F Extend 1712 1714 Extend 1732 1734 Extend 1752 1753 Extend 1772 1773 Extend 17B4 17B5 Extend 17B6 SpacingMark 17B7 17BD Extend 17BE 17C5 SpacingMark 17C6 Extend 17C7 17C8 SpacingMark 17C9 17D3 Extend 17DD Extend 180B 180D Extend 180E Control 1885 1886 Extend 18A9 Extend 1920 1922 Extend 1923 1926 SpacingMark 1927 1928 Extend 1929 192B SpacingMark 1930 1931 SpacingMark 1932 Extend 1933 1938 SpacingMark 1939 193B Extend 1A17 1A18 Extend 1A19 1A1A SpacingMark 1A1B Extend 1A55 SpacingMark 1A56 Extend 1A57 SpacingMark 1A58 1A5E Extend 1A60 Extend 1A62 Extend 1A65 1A6C Extend 1A6D 1A72 SpacingMark 1A73 1A7C Extend 1A7F Extend 1AB0 1AC0 Extend 1B00 1B03 Extend 1B04 SpacingMark 1B34 1B3A Extend 1B3B SpacingMark 1B3C Extend 1B3D 1B41 SpacingMark 1B42 Extend 1B43 1B44 SpacingMark 1B6B 1B73 Extend 1B80 1B81 Extend 1B82 SpacingMark 1BA1 SpacingMark 1BA2 1BA5 Extend 1BA6 1BA7 SpacingMark 1BA8 1BA9 Extend 1BAA SpacingMark 1BAB 1BAD Extend 1BE6 Extend 1BE7 SpacingMark 1BE8 1BE9 Extend 1BEA 1BEC SpacingMark 1BED Extend 1BEE SpacingMark 1BEF 1BF1 Extend 1BF2 1BF3 SpacingMark 1C24 1C2B SpacingMark 1C2C 1C33 Extend 1C34 1C35 SpacingMark 1C36 1C37 Extend 1CD0 1CD2 Extend 1CD4 1CE0 Extend 1CE1 SpacingMark 1CE2 1CE8 Extend 1CED Extend 1CF4 Extend 1CF7 SpacingMark 1CF8 1CF9 Extend 1DC0 1DF9 Extend 1DFB 1DFF Extend 200B Control 200C Extend 200D ZWJ 200E 200F Control 2028 202E Control 203C ExtPict_XX 2049 ExtPict_XX 2060 206F Control 20D0 20F0 Extend 2122 ExtPict_XX 2139 ExtPict_XX 2194 2199 ExtPict_XX 21A9 21AA ExtPict_XX 231A 231B ExtPict_XX 2328 ExtPict_XX 2388 ExtPict_XX 23CF ExtPict_XX 23E9 23F3 ExtPict_XX 23F8 23FA ExtPict_XX 24C2 ExtPict_XX 25AA 25AB ExtPict_XX 25B6 ExtPict_XX 25C0 ExtPict_XX 25FB 25FE ExtPict_XX 2600 2605 ExtPict_XX 2607 2612 ExtPict_XX 2614 2685 ExtPict_XX 2690 2705 ExtPict_XX 2708 2712 ExtPict_XX 2714 ExtPict_XX 2716 ExtPict_XX 271D ExtPict_XX 2721 ExtPict_XX 2728 ExtPict_XX 2733 2734 ExtPict_XX 2744 ExtPict_XX 2747 ExtPict_XX 274C ExtPict_XX 274E ExtPict_XX 2753 2755 ExtPict_XX 2757 ExtPict_XX 2763 2767 ExtPict_XX 2795 2797 ExtPict_XX 27A1 ExtPict_XX 27B0 ExtPict_XX 27BF ExtPict_XX 2934 2935 ExtPict_XX 2B05 2B07 ExtPict_XX 2B1B 2B1C ExtPict_XX 2B50 ExtPict_XX 2B55 ExtPict_XX 2CEF 2CF1 Extend 2D7F Extend 2DE0 2DFF Extend 302A 302F Extend 3030 ExtPict_XX 303D ExtPict_XX 3099 309A Extend 3297 ExtPict_XX 3299 ExtPict_XX A66F A672 Extend A674 A67D Extend A69E A69F Extend A6F0 A6F1 Extend A802 Extend A806 Extend A80B Extend A823 A824 SpacingMark A825 A826 Extend A827 SpacingMark A82C Extend A880 A881 SpacingMark A8B4 A8C3 SpacingMark A8C4 A8C5 Extend A8E0 A8F1 Extend A8FF Extend A926 A92D Extend A947 A951 Extend A952 A953 SpacingMark A960 A97C L A980 A982 Extend A983 SpacingMark A9B3 Extend A9B4 A9B5 SpacingMark A9B6 A9B9 Extend A9BA A9BB SpacingMark A9BC A9BD Extend A9BE A9C0 SpacingMark A9E5 Extend AA29 AA2E Extend AA2F AA30 SpacingMark AA31 AA32 Extend AA33 AA34 SpacingMark AA35 AA36 Extend AA43 Extend AA4C Extend AA4D SpacingMark AA7C Extend AAB0 Extend AAB2 AAB4 Extend AAB7 AAB8 Extend AABE AABF Extend AAC1 Extend AAEB SpacingMark AAEC AAED Extend AAEE AAEF SpacingMark AAF5 SpacingMark AAF6 Extend ABE3 ABE4 SpacingMark ABE5 Extend ABE6 ABE7 SpacingMark ABE8 Extend ABE9 ABEA SpacingMark ABEC SpacingMark ABED Extend AC00 LV AC01 AC1B LVT AC1C LV AC1D AC37 LVT AC38 LV AC39 AC53 LVT AC54 LV AC55 AC6F LVT AC70 LV AC71 AC8B LVT AC8C LV AC8D ACA7 LVT ACA8 LV ACA9 ACC3 LVT ACC4 LV ACC5 ACDF LVT ACE0 LV ACE1 ACFB LVT ACFC LV ACFD AD17 LVT AD18 LV AD19 AD33 LVT AD34 LV AD35 AD4F LVT AD50 LV AD51 AD6B LVT AD6C LV AD6D AD87 LVT AD88 LV AD89 ADA3 LVT ADA4 LV ADA5 ADBF LVT ADC0 LV ADC1 ADDB LVT ADDC LV ADDD ADF7 LVT ADF8 LV ADF9 AE13 LVT AE14 LV AE15 AE2F LVT AE30 LV AE31 AE4B LVT AE4C LV AE4D AE67 LVT AE68 LV AE69 AE83 LVT AE84 LV AE85 AE9F LVT AEA0 LV AEA1 AEBB LVT AEBC LV AEBD AED7 LVT AED8 LV AED9 AEF3 LVT AEF4 LV AEF5 AF0F LVT AF10 LV AF11 AF2B LVT AF2C LV AF2D AF47 LVT AF48 LV AF49 AF63 LVT AF64 LV AF65 AF7F LVT AF80 LV AF81 AF9B LVT AF9C LV AF9D AFB7 LVT AFB8 LV AFB9 AFD3 LVT AFD4 LV AFD5 AFEF LVT AFF0 LV AFF1 B00B LVT B00C LV B00D B027 LVT B028 LV B029 B043 LVT B044 LV B045 B05F LVT B060 LV B061 B07B LVT B07C LV B07D B097 LVT B098 LV B099 B0B3 LVT B0B4 LV B0B5 B0CF LVT B0D0 LV B0D1 B0EB LVT B0EC LV B0ED B107 LVT B108 LV B109 B123 LVT B124 LV B125 B13F LVT B140 LV B141 B15B LVT B15C LV B15D B177 LVT B178 LV B179 B193 LVT B194 LV B195 B1AF LVT B1B0 LV B1B1 B1CB LVT B1CC LV B1CD B1E7 LVT B1E8 LV B1E9 B203 LVT B204 LV B205 B21F LVT B220 LV B221 B23B LVT B23C LV B23D B257 LVT B258 LV B259 B273 LVT B274 LV B275 B28F LVT B290 LV B291 B2AB LVT B2AC LV B2AD B2C7 LVT B2C8 LV B2C9 B2E3 LVT B2E4 LV B2E5 B2FF LVT B300 LV B301 B31B LVT B31C LV B31D B337 LVT B338 LV B339 B353 LVT B354 LV B355 B36F LVT B370 LV B371 B38B LVT B38C LV B38D B3A7 LVT B3A8 LV B3A9 B3C3 LVT B3C4 LV B3C5 B3DF LVT B3E0 LV B3E1 B3FB LVT B3FC LV B3FD B417 LVT B418 LV B419 B433 LVT B434 LV B435 B44F LVT B450 LV B451 B46B LVT B46C LV B46D B487 LVT B488 LV B489 B4A3 LVT B4A4 LV B4A5 B4BF LVT B4C0 LV B4C1 B4DB LVT B4DC LV B4DD B4F7 LVT B4F8 LV B4F9 B513 LVT B514 LV B515 B52F LVT B530 LV B531 B54B LVT B54C LV B54D B567 LVT B568 LV B569 B583 LVT B584 LV B585 B59F LVT B5A0 LV B5A1 B5BB LVT B5BC LV B5BD B5D7 LVT B5D8 LV B5D9 B5F3 LVT B5F4 LV B5F5 B60F LVT B610 LV B611 B62B LVT B62C LV B62D B647 LVT B648 LV B649 B663 LVT B664 LV B665 B67F LVT B680 LV B681 B69B LVT B69C LV B69D B6B7 LVT B6B8 LV B6B9 B6D3 LVT B6D4 LV B6D5 B6EF LVT B6F0 LV B6F1 B70B LVT B70C LV B70D B727 LVT B728 LV B729 B743 LVT B744 LV B745 B75F LVT B760 LV B761 B77B LVT B77C LV B77D B797 LVT B798 LV B799 B7B3 LVT B7B4 LV B7B5 B7CF LVT B7D0 LV B7D1 B7EB LVT B7EC LV B7ED B807 LVT B808 LV B809 B823 LVT B824 LV B825 B83F LVT B840 LV B841 B85B LVT B85C LV B85D B877 LVT B878 LV B879 B893 LVT B894 LV B895 B8AF LVT B8B0 LV B8B1 B8CB LVT B8CC LV B8CD B8E7 LVT B8E8 LV B8E9 B903 LVT B904 LV B905 B91F LVT B920 LV B921 B93B LVT B93C LV B93D B957 LVT B958 LV B959 B973 LVT B974 LV B975 B98F LVT B990 LV B991 B9AB LVT B9AC LV B9AD B9C7 LVT B9C8 LV B9C9 B9E3 LVT B9E4 LV B9E5 B9FF LVT BA00 LV BA01 BA1B LVT BA1C LV BA1D BA37 LVT BA38 LV BA39 BA53 LVT BA54 LV BA55 BA6F LVT BA70 LV BA71 BA8B LVT BA8C LV BA8D BAA7 LVT BAA8 LV BAA9 BAC3 LVT BAC4 LV BAC5 BADF LVT BAE0 LV BAE1 BAFB LVT BAFC LV BAFD BB17 LVT BB18 LV BB19 BB33 LVT BB34 LV BB35 BB4F LVT BB50 LV BB51 BB6B LVT BB6C LV BB6D BB87 LVT BB88 LV BB89 BBA3 LVT BBA4 LV BBA5 BBBF LVT BBC0 LV BBC1 BBDB LVT BBDC LV BBDD BBF7 LVT BBF8 LV BBF9 BC13 LVT BC14 LV BC15 BC2F LVT BC30 LV BC31 BC4B LVT BC4C LV BC4D BC67 LVT BC68 LV BC69 BC83 LVT BC84 LV BC85 BC9F LVT BCA0 LV BCA1 BCBB LVT BCBC LV BCBD BCD7 LVT BCD8 LV BCD9 BCF3 LVT BCF4 LV BCF5 BD0F LVT BD10 LV BD11 BD2B LVT BD2C LV BD2D BD47 LVT BD48 LV BD49 BD63 LVT BD64 LV BD65 BD7F LVT BD80 LV BD81 BD9B LVT BD9C LV BD9D BDB7 LVT BDB8 LV BDB9 BDD3 LVT BDD4 LV BDD5 BDEF LVT BDF0 LV BDF1 BE0B LVT BE0C LV BE0D BE27 LVT BE28 LV BE29 BE43 LVT BE44 LV BE45 BE5F LVT BE60 LV BE61 BE7B LVT BE7C LV BE7D BE97 LVT BE98 LV BE99 BEB3 LVT BEB4 LV BEB5 BECF LVT BED0 LV BED1 BEEB LVT BEEC LV BEED BF07 LVT BF08 LV BF09 BF23 LVT BF24 LV BF25 BF3F LVT BF40 LV BF41 BF5B LVT BF5C LV BF5D BF77 LVT BF78 LV BF79 BF93 LVT BF94 LV BF95 BFAF LVT BFB0 LV BFB1 BFCB LVT BFCC LV BFCD BFE7 LVT BFE8 LV BFE9 C003 LVT C004 LV C005 C01F LVT C020 LV C021 C03B LVT C03C LV C03D C057 LVT C058 LV C059 C073 LVT C074 LV C075 C08F LVT C090 LV C091 C0AB LVT C0AC LV C0AD C0C7 LVT C0C8 LV C0C9 C0E3 LVT C0E4 LV C0E5 C0FF LVT C100 LV C101 C11B LVT C11C LV C11D C137 LVT C138 LV C139 C153 LVT C154 LV C155 C16F LVT C170 LV C171 C18B LVT C18C LV C18D C1A7 LVT C1A8 LV C1A9 C1C3 LVT C1C4 LV C1C5 C1DF LVT C1E0 LV C1E1 C1FB LVT C1FC LV C1FD C217 LVT C218 LV C219 C233 LVT C234 LV C235 C24F LVT C250 LV C251 C26B LVT C26C LV C26D C287 LVT C288 LV C289 C2A3 LVT C2A4 LV C2A5 C2BF LVT C2C0 LV C2C1 C2DB LVT C2DC LV C2DD C2F7 LVT C2F8 LV C2F9 C313 LVT C314 LV C315 C32F LVT C330 LV C331 C34B LVT C34C LV C34D C367 LVT C368 LV C369 C383 LVT C384 LV C385 C39F LVT C3A0 LV C3A1 C3BB LVT C3BC LV C3BD C3D7 LVT C3D8 LV C3D9 C3F3 LVT C3F4 LV C3F5 C40F LVT C410 LV C411 C42B LVT C42C LV C42D C447 LVT C448 LV C449 C463 LVT C464 LV C465 C47F LVT C480 LV C481 C49B LVT C49C LV C49D C4B7 LVT C4B8 LV C4B9 C4D3 LVT C4D4 LV C4D5 C4EF LVT C4F0 LV C4F1 C50B LVT C50C LV C50D C527 LVT C528 LV C529 C543 LVT C544 LV C545 C55F LVT C560 LV C561 C57B LVT C57C LV C57D C597 LVT C598 LV C599 C5B3 LVT C5B4 LV C5B5 C5CF LVT C5D0 LV C5D1 C5EB LVT C5EC LV C5ED C607 LVT C608 LV C609 C623 LVT C624 LV C625 C63F LVT C640 LV C641 C65B LVT C65C LV C65D C677 LVT C678 LV C679 C693 LVT C694 LV C695 C6AF LVT C6B0 LV C6B1 C6CB LVT C6CC LV C6CD C6E7 LVT C6E8 LV C6E9 C703 LVT C704 LV C705 C71F LVT C720 LV C721 C73B LVT C73C LV C73D C757 LVT C758 LV C759 C773 LVT C774 LV C775 C78F LVT C790 LV C791 C7AB LVT C7AC LV C7AD C7C7 LVT C7C8 LV C7C9 C7E3 LVT C7E4 LV C7E5 C7FF LVT C800 LV C801 C81B LVT C81C LV C81D C837 LVT C838 LV C839 C853 LVT C854 LV C855 C86F LVT C870 LV C871 C88B LVT C88C LV C88D C8A7 LVT C8A8 LV C8A9 C8C3 LVT C8C4 LV C8C5 C8DF LVT C8E0 LV C8E1 C8FB LVT C8FC LV C8FD C917 LVT C918 LV C919 C933 LVT C934 LV C935 C94F LVT C950 LV C951 C96B LVT C96C LV C96D C987 LVT C988 LV C989 C9A3 LVT C9A4 LV C9A5 C9BF LVT C9C0 LV C9C1 C9DB LVT C9DC LV C9DD C9F7 LVT C9F8 LV C9F9 CA13 LVT CA14 LV CA15 CA2F LVT CA30 LV CA31 CA4B LVT CA4C LV CA4D CA67 LVT CA68 LV CA69 CA83 LVT CA84 LV CA85 CA9F LVT CAA0 LV CAA1 CABB LVT CABC LV CABD CAD7 LVT CAD8 LV CAD9 CAF3 LVT CAF4 LV CAF5 CB0F LVT CB10 LV CB11 CB2B LVT CB2C LV CB2D CB47 LVT CB48 LV CB49 CB63 LVT CB64 LV CB65 CB7F LVT CB80 LV CB81 CB9B LVT CB9C LV CB9D CBB7 LVT CBB8 LV CBB9 CBD3 LVT CBD4 LV CBD5 CBEF LVT CBF0 LV CBF1 CC0B LVT CC0C LV CC0D CC27 LVT CC28 LV CC29 CC43 LVT CC44 LV CC45 CC5F LVT CC60 LV CC61 CC7B LVT CC7C LV CC7D CC97 LVT CC98 LV CC99 CCB3 LVT CCB4 LV CCB5 CCCF LVT CCD0 LV CCD1 CCEB LVT CCEC LV CCED CD07 LVT CD08 LV CD09 CD23 LVT CD24 LV CD25 CD3F LVT CD40 LV CD41 CD5B LVT CD5C LV CD5D CD77 LVT CD78 LV CD79 CD93 LVT CD94 LV CD95 CDAF LVT CDB0 LV CDB1 CDCB LVT CDCC LV CDCD CDE7 LVT CDE8 LV CDE9 CE03 LVT CE04 LV CE05 CE1F LVT CE20 LV CE21 CE3B LVT CE3C LV CE3D CE57 LVT CE58 LV CE59 CE73 LVT CE74 LV CE75 CE8F LVT CE90 LV CE91 CEAB LVT CEAC LV CEAD CEC7 LVT CEC8 LV CEC9 CEE3 LVT CEE4 LV CEE5 CEFF LVT CF00 LV CF01 CF1B LVT CF1C LV CF1D CF37 LVT CF38 LV CF39 CF53 LVT CF54 LV CF55 CF6F LVT CF70 LV CF71 CF8B LVT CF8C LV CF8D CFA7 LVT CFA8 LV CFA9 CFC3 LVT CFC4 LV CFC5 CFDF LVT CFE0 LV CFE1 CFFB LVT CFFC LV CFFD D017 LVT D018 LV D019 D033 LVT D034 LV D035 D04F LVT D050 LV D051 D06B LVT D06C LV D06D D087 LVT D088 LV D089 D0A3 LVT D0A4 LV D0A5 D0BF LVT D0C0 LV D0C1 D0DB LVT D0DC LV D0DD D0F7 LVT D0F8 LV D0F9 D113 LVT D114 LV D115 D12F LVT D130 LV D131 D14B LVT D14C LV D14D D167 LVT D168 LV D169 D183 LVT D184 LV D185 D19F LVT D1A0 LV D1A1 D1BB LVT D1BC LV D1BD D1D7 LVT D1D8 LV D1D9 D1F3 LVT D1F4 LV D1F5 D20F LVT D210 LV D211 D22B LVT D22C LV D22D D247 LVT D248 LV D249 D263 LVT D264 LV D265 D27F LVT D280 LV D281 D29B LVT D29C LV D29D D2B7 LVT D2B8 LV D2B9 D2D3 LVT D2D4 LV D2D5 D2EF LVT D2F0 LV D2F1 D30B LVT D30C LV D30D D327 LVT D328 LV D329 D343 LVT D344 LV D345 D35F LVT D360 LV D361 D37B LVT D37C LV D37D D397 LVT D398 LV D399 D3B3 LVT D3B4 LV D3B5 D3CF LVT D3D0 LV D3D1 D3EB LVT D3EC LV D3ED D407 LVT D408 LV D409 D423 LVT D424 LV D425 D43F LVT D440 LV D441 D45B LVT D45C LV D45D D477 LVT D478 LV D479 D493 LVT D494 LV D495 D4AF LVT D4B0 LV D4B1 D4CB LVT D4CC LV D4CD D4E7 LVT D4E8 LV D4E9 D503 LVT D504 LV D505 D51F LVT D520 LV D521 D53B LVT D53C LV D53D D557 LVT D558 LV D559 D573 LVT D574 LV D575 D58F LVT D590 LV D591 D5AB LVT D5AC LV D5AD D5C7 LVT D5C8 LV D5C9 D5E3 LVT D5E4 LV D5E5 D5FF LVT D600 LV D601 D61B LVT D61C LV D61D D637 LVT D638 LV D639 D653 LVT D654 LV D655 D66F LVT D670 LV D671 D68B LVT D68C LV D68D D6A7 LVT D6A8 LV D6A9 D6C3 LVT D6C4 LV D6C5 D6DF LVT D6E0 LV D6E1 D6FB LVT D6FC LV D6FD D717 LVT D718 LV D719 D733 LVT D734 LV D735 D74F LVT D750 LV D751 D76B LVT D76C LV D76D D787 LVT D788 LV D789 D7A3 LVT D7B0 D7C6 V D7CB D7FB T FB1E Extend FE00 FE0F Extend FE20 FE2F Extend FEFF Control FF9E FF9F Extend FFF0 FFFB Control 101FD Extend 102E0 Extend 10376 1037A Extend 10A01 10A03 Extend 10A05 10A06 Extend 10A0C 10A0F Extend 10A38 10A3A Extend 10A3F Extend 10AE5 10AE6 Extend 10D24 10D27 Extend 10EAB 10EAC Extend 10F46 10F50 Extend 11000 SpacingMark 11001 Extend 11002 SpacingMark 11038 11046 Extend 1107F 11081 Extend 11082 SpacingMark 110B0 110B2 SpacingMark 110B3 110B6 Extend 110B7 110B8 SpacingMark 110B9 110BA Extend 110BD Prepend 110CD Prepend 11100 11102 Extend 11127 1112B Extend 1112C SpacingMark 1112D 11134 Extend 11145 11146 SpacingMark 11173 Extend 11180 11181 Extend 11182 SpacingMark 111B3 111B5 SpacingMark 111B6 111BE Extend 111BF 111C0 SpacingMark 111C2 111C3 Prepend 111C9 111CC Extend 111CE SpacingMark 111CF Extend 1122C 1122E SpacingMark 1122F 11231 Extend 11232 11233 SpacingMark 11234 Extend 11235 SpacingMark 11236 11237 Extend 1123E Extend 112DF Extend 112E0 112E2 SpacingMark 112E3 112EA Extend 11300 11301 Extend 11302 11303 SpacingMark 1133B 1133C Extend 1133E Extend 1133F SpacingMark 11340 Extend 11341 11344 SpacingMark 11347 11348 SpacingMark 1134B 1134D SpacingMark 11357 Extend 11362 11363 SpacingMark 11366 1136C Extend 11370 11374 Extend 11435 11437 SpacingMark 11438 1143F Extend 11440 11441 SpacingMark 11442 11444 Extend 11445 SpacingMark 11446 Extend 1145E Extend 114B0 Extend 114B1 114B2 SpacingMark 114B3 114B8 Extend 114B9 SpacingMark 114BA Extend 114BB 114BC SpacingMark 114BD Extend 114BE SpacingMark 114BF 114C0 Extend 114C1 SpacingMark 114C2 114C3 Extend 115AF Extend 115B0 115B1 SpacingMark 115B2 115B5 Extend 115B8 115BB SpacingMark 115BC 115BD Extend 115BE SpacingMark 115BF 115C0 Extend 115DC 115DD Extend 11630 11632 SpacingMark 11633 1163A Extend 1163B 1163C SpacingMark 1163D Extend 1163E SpacingMark 1163F 11640 Extend 116AB Extend 116AC SpacingMark 116AD Extend 116AE 116AF SpacingMark 116B0 116B5 Extend 116B6 SpacingMark 116B7 Extend 1171D 1171F Extend 11720 11721 SpacingMark 11722 11725 Extend 11726 SpacingMark 11727 1172B Extend 1182C 1182E SpacingMark 1182F 11837 Extend 11838 SpacingMark 11839 1183A Extend 11930 Extend 11931 11935 SpacingMark 11937 11938 SpacingMark 1193B 1193C Extend 1193D SpacingMark 1193E Extend 1193F Prepend 11940 SpacingMark 11941 Prepend 11942 SpacingMark 11943 Extend 119D1 119D3 SpacingMark 119D4 119D7 Extend 119DA 119DB Extend 119DC 119DF SpacingMark 119E0 Extend 119E4 SpacingMark 11A01 11A0A Extend 11A33 11A38 Extend 11A39 SpacingMark 11A3A Prepend 11A3B 11A3E Extend 11A47 Extend 11A51 11A56 Extend 11A57 11A58 SpacingMark 11A59 11A5B Extend 11A84 11A89 Prepend 11A8A 11A96 Extend 11A97 SpacingMark 11A98 11A99 Extend 11C2F SpacingMark 11C30 11C36 Extend 11C38 11C3D Extend 11C3E SpacingMark 11C3F Extend 11C92 11CA7 Extend 11CA9 SpacingMark 11CAA 11CB0 Extend 11CB1 SpacingMark 11CB2 11CB3 Extend 11CB4 SpacingMark 11CB5 11CB6 Extend 11D31 11D36 Extend 11D3A Extend 11D3C 11D3D Extend 11D3F 11D45 Extend 11D46 Prepend 11D47 Extend 11D8A 11D8E SpacingMark 11D90 11D91 Extend 11D93 11D94 SpacingMark 11D95 Extend 11D96 SpacingMark 11D97 Extend 11EF3 11EF4 Extend 11EF5 11EF6 SpacingMark 13430 13438 Control 16AF0 16AF4 Extend 16B30 16B36 Extend 16F4F Extend 16F51 16F87 SpacingMark 16F8F 16F92 Extend 16FE4 Extend 16FF0 16FF1 SpacingMark 1BC9D 1BC9E Extend 1BCA0 1BCA3 Control 1D165 Extend 1D166 SpacingMark 1D167 1D169 Extend 1D16D SpacingMark 1D16E 1D172 Extend 1D173 1D17A Control 1D17B 1D182 Extend 1D185 1D18B Extend 1D1AA 1D1AD Extend 1D242 1D244 Extend 1DA00 1DA36 Extend 1DA3B 1DA6C Extend 1DA75 Extend 1DA84 Extend 1DA9B 1DA9F Extend 1DAA1 1DAAF Extend 1E000 1E006 Extend 1E008 1E018 Extend 1E01B 1E021 Extend 1E023 1E024 Extend 1E026 1E02A Extend 1E130 1E136 Extend 1E2EC 1E2EF Extend 1E8D0 1E8D6 Extend 1E944 1E94A Extend 1F000 1F0FF ExtPict_XX 1F10D 1F10F ExtPict_XX 1F12F ExtPict_XX 1F16C 1F171 ExtPict_XX 1F17E 1F17F ExtPict_XX 1F18E ExtPict_XX 1F191 1F19A ExtPict_XX 1F1AD 1F1E5 ExtPict_XX 1F1E6 1F1FF Regional_Indicator 1F201 1F20F ExtPict_XX 1F21A ExtPict_XX 1F22F ExtPict_XX 1F232 1F23A ExtPict_XX 1F23C 1F23F ExtPict_XX 1F249 1F3FA ExtPict_XX 1F3FB 1F3FF Extend 1F400 1F53D ExtPict_XX 1F546 1F64F ExtPict_XX 1F680 1F6FF ExtPict_XX 1F774 1F77F ExtPict_XX 1F7D5 1F7FF ExtPict_XX 1F80C 1F80F ExtPict_XX 1F848 1F84F ExtPict_XX 1F85A 1F85F ExtPict_XX 1F888 1F88F ExtPict_XX 1F8AE 1F8FF ExtPict_XX 1F90C 1F93A ExtPict_XX 1F93C 1F945 ExtPict_XX 1F947 1FAFF ExtPict_XX 1FC00 1FFFD ExtPict_XX E0000 E001F Control E0020 E007F Extend E0080 E00FF Control E0100 E01EF Extend E01F0 E0FFF Control END PK ! w�w� a a 5.34.0/unicore/To/Fold.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! IT IS DEPRECATED TO USE THIS FILE !!!!!!! # This file is for internal use by core Perl only. It is retained for # backwards compatibility with applications that may have come to rely on it, # but its format and even its name or existence are subject to change without # notice in a future Perl version. Don't use it directly. Instead, its # contents are now retrievable through a stable API in the Unicode::UCD # module: Unicode::UCD::prop_invmap('Case_Folding') (Values for individual # code points can be retrieved via Unicode::UCD::charprop()); # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToFold'}{'format'} = 'x'; # non-negative hex whole number; a code point $Unicode::UCD::SwashInfo{'ToFold'}{'specials_name'} = 'Unicode::UCD::ToSpecFold'; # Name of hash of special mappings $Unicode::UCD::SwashInfo{'ToFold'}{'missing'} = '<code point>'; # code point maps to itself # Some code points require special handling because their mappings are each to # multiple code points. These do not appear in the main body, but are defined # in the hash below. # Each key is the string of N bytes that together make up the UTF-8 encoding # for the code point. (i.e. the same as looking at the code point's UTF-8 # under "use bytes"). Each value is the UTF-8 of the translation, for speed. %Unicode::UCD::ToSpecFold = ( "\xC3\x9F" => "\x{0073}\x{0073}", # U+00DF => 0073 0073 "\xC4\xB0" => "\x{0069}\x{0307}", # U+0130 => 0069 0307 "\xC5\x89" => "\x{02BC}\x{006E}", # U+0149 => 02BC 006E "\xC7\xB0" => "\x{006A}\x{030C}", # U+01F0 => 006A 030C "\xCE\x90" => "\x{03B9}\x{0308}\x{0301}", # U+0390 => 03B9 0308 0301 "\xCE\xB0" => "\x{03C5}\x{0308}\x{0301}", # U+03B0 => 03C5 0308 0301 "\xD6\x87" => "\x{0565}\x{0582}", # U+0587 => 0565 0582 "\xE1\xBA\x96" => "\x{0068}\x{0331}", # U+1E96 => 0068 0331 "\xE1\xBA\x97" => "\x{0074}\x{0308}", # U+1E97 => 0074 0308 "\xE1\xBA\x98" => "\x{0077}\x{030A}", # U+1E98 => 0077 030A "\xE1\xBA\x99" => "\x{0079}\x{030A}", # U+1E99 => 0079 030A "\xE1\xBA\x9A" => "\x{0061}\x{02BE}", # U+1E9A => 0061 02BE "\xE1\xBA\x9E" => "\x{0073}\x{0073}", # U+1E9E => 0073 0073 "\xE1\xBD\x90" => "\x{03C5}\x{0313}", # U+1F50 => 03C5 0313 "\xE1\xBD\x92" => "\x{03C5}\x{0313}\x{0300}", # U+1F52 => 03C5 0313 0300 "\xE1\xBD\x94" => "\x{03C5}\x{0313}\x{0301}", # U+1F54 => 03C5 0313 0301 "\xE1\xBD\x96" => "\x{03C5}\x{0313}\x{0342}", # U+1F56 => 03C5 0313 0342 "\xE1\xBE\x80" => "\x{1F00}\x{03B9}", # U+1F80 => 1F00 03B9 "\xE1\xBE\x81" => "\x{1F01}\x{03B9}", # U+1F81 => 1F01 03B9 "\xE1\xBE\x82" => "\x{1F02}\x{03B9}", # U+1F82 => 1F02 03B9 "\xE1\xBE\x83" => "\x{1F03}\x{03B9}", # U+1F83 => 1F03 03B9 "\xE1\xBE\x84" => "\x{1F04}\x{03B9}", # U+1F84 => 1F04 03B9 "\xE1\xBE\x85" => "\x{1F05}\x{03B9}", # U+1F85 => 1F05 03B9 "\xE1\xBE\x86" => "\x{1F06}\x{03B9}", # U+1F86 => 1F06 03B9 "\xE1\xBE\x87" => "\x{1F07}\x{03B9}", # U+1F87 => 1F07 03B9 "\xE1\xBE\x88" => "\x{1F00}\x{03B9}", # U+1F88 => 1F00 03B9 "\xE1\xBE\x89" => "\x{1F01}\x{03B9}", # U+1F89 => 1F01 03B9 "\xE1\xBE\x8A" => "\x{1F02}\x{03B9}", # U+1F8A => 1F02 03B9 "\xE1\xBE\x8B" => "\x{1F03}\x{03B9}", # U+1F8B => 1F03 03B9 "\xE1\xBE\x8C" => "\x{1F04}\x{03B9}", # U+1F8C => 1F04 03B9 "\xE1\xBE\x8D" => "\x{1F05}\x{03B9}", # U+1F8D => 1F05 03B9 "\xE1\xBE\x8E" => "\x{1F06}\x{03B9}", # U+1F8E => 1F06 03B9 "\xE1\xBE\x8F" => "\x{1F07}\x{03B9}", # U+1F8F => 1F07 03B9 "\xE1\xBE\x90" => "\x{1F20}\x{03B9}", # U+1F90 => 1F20 03B9 "\xE1\xBE\x91" => "\x{1F21}\x{03B9}", # U+1F91 => 1F21 03B9 "\xE1\xBE\x92" => "\x{1F22}\x{03B9}", # U+1F92 => 1F22 03B9 "\xE1\xBE\x93" => "\x{1F23}\x{03B9}", # U+1F93 => 1F23 03B9 "\xE1\xBE\x94" => "\x{1F24}\x{03B9}", # U+1F94 => 1F24 03B9 "\xE1\xBE\x95" => "\x{1F25}\x{03B9}", # U+1F95 => 1F25 03B9 "\xE1\xBE\x96" => "\x{1F26}\x{03B9}", # U+1F96 => 1F26 03B9 "\xE1\xBE\x97" => "\x{1F27}\x{03B9}", # U+1F97 => 1F27 03B9 "\xE1\xBE\x98" => "\x{1F20}\x{03B9}", # U+1F98 => 1F20 03B9 "\xE1\xBE\x99" => "\x{1F21}\x{03B9}", # U+1F99 => 1F21 03B9 "\xE1\xBE\x9A" => "\x{1F22}\x{03B9}", # U+1F9A => 1F22 03B9 "\xE1\xBE\x9B" => "\x{1F23}\x{03B9}", # U+1F9B => 1F23 03B9 "\xE1\xBE\x9C" => "\x{1F24}\x{03B9}", # U+1F9C => 1F24 03B9 "\xE1\xBE\x9D" => "\x{1F25}\x{03B9}", # U+1F9D => 1F25 03B9 "\xE1\xBE\x9E" => "\x{1F26}\x{03B9}", # U+1F9E => 1F26 03B9 "\xE1\xBE\x9F" => "\x{1F27}\x{03B9}", # U+1F9F => 1F27 03B9 "\xE1\xBE\xA0" => "\x{1F60}\x{03B9}", # U+1FA0 => 1F60 03B9 "\xE1\xBE\xA1" => "\x{1F61}\x{03B9}", # U+1FA1 => 1F61 03B9 "\xE1\xBE\xA2" => "\x{1F62}\x{03B9}", # U+1FA2 => 1F62 03B9 "\xE1\xBE\xA3" => "\x{1F63}\x{03B9}", # U+1FA3 => 1F63 03B9 "\xE1\xBE\xA4" => "\x{1F64}\x{03B9}", # U+1FA4 => 1F64 03B9 "\xE1\xBE\xA5" => "\x{1F65}\x{03B9}", # U+1FA5 => 1F65 03B9 "\xE1\xBE\xA6" => "\x{1F66}\x{03B9}", # U+1FA6 => 1F66 03B9 "\xE1\xBE\xA7" => "\x{1F67}\x{03B9}", # U+1FA7 => 1F67 03B9 "\xE1\xBE\xA8" => "\x{1F60}\x{03B9}", # U+1FA8 => 1F60 03B9 "\xE1\xBE\xA9" => "\x{1F61}\x{03B9}", # U+1FA9 => 1F61 03B9 "\xE1\xBE\xAA" => "\x{1F62}\x{03B9}", # U+1FAA => 1F62 03B9 "\xE1\xBE\xAB" => "\x{1F63}\x{03B9}", # U+1FAB => 1F63 03B9 "\xE1\xBE\xAC" => "\x{1F64}\x{03B9}", # U+1FAC => 1F64 03B9 "\xE1\xBE\xAD" => "\x{1F65}\x{03B9}", # U+1FAD => 1F65 03B9 "\xE1\xBE\xAE" => "\x{1F66}\x{03B9}", # U+1FAE => 1F66 03B9 "\xE1\xBE\xAF" => "\x{1F67}\x{03B9}", # U+1FAF => 1F67 03B9 "\xE1\xBE\xB2" => "\x{1F70}\x{03B9}", # U+1FB2 => 1F70 03B9 "\xE1\xBE\xB3" => "\x{03B1}\x{03B9}", # U+1FB3 => 03B1 03B9 "\xE1\xBE\xB4" => "\x{03AC}\x{03B9}", # U+1FB4 => 03AC 03B9 "\xE1\xBE\xB6" => "\x{03B1}\x{0342}", # U+1FB6 => 03B1 0342 "\xE1\xBE\xB7" => "\x{03B1}\x{0342}\x{03B9}", # U+1FB7 => 03B1 0342 03B9 "\xE1\xBE\xBC" => "\x{03B1}\x{03B9}", # U+1FBC => 03B1 03B9 "\xE1\xBF\x82" => "\x{1F74}\x{03B9}", # U+1FC2 => 1F74 03B9 "\xE1\xBF\x83" => "\x{03B7}\x{03B9}", # U+1FC3 => 03B7 03B9 "\xE1\xBF\x84" => "\x{03AE}\x{03B9}", # U+1FC4 => 03AE 03B9 "\xE1\xBF\x86" => "\x{03B7}\x{0342}", # U+1FC6 => 03B7 0342 "\xE1\xBF\x87" => "\x{03B7}\x{0342}\x{03B9}", # U+1FC7 => 03B7 0342 03B9 "\xE1\xBF\x8C" => "\x{03B7}\x{03B9}", # U+1FCC => 03B7 03B9 "\xE1\xBF\x92" => "\x{03B9}\x{0308}\x{0300}", # U+1FD2 => 03B9 0308 0300 "\xE1\xBF\x93" => "\x{03B9}\x{0308}\x{0301}", # U+1FD3 => 03B9 0308 0301 "\xE1\xBF\x96" => "\x{03B9}\x{0342}", # U+1FD6 => 03B9 0342 "\xE1\xBF\x97" => "\x{03B9}\x{0308}\x{0342}", # U+1FD7 => 03B9 0308 0342 "\xE1\xBF\xA2" => "\x{03C5}\x{0308}\x{0300}", # U+1FE2 => 03C5 0308 0300 "\xE1\xBF\xA3" => "\x{03C5}\x{0308}\x{0301}", # U+1FE3 => 03C5 0308 0301 "\xE1\xBF\xA4" => "\x{03C1}\x{0313}", # U+1FE4 => 03C1 0313 "\xE1\xBF\xA6" => "\x{03C5}\x{0342}", # U+1FE6 => 03C5 0342 "\xE1\xBF\xA7" => "\x{03C5}\x{0308}\x{0342}", # U+1FE7 => 03C5 0308 0342 "\xE1\xBF\xB2" => "\x{1F7C}\x{03B9}", # U+1FF2 => 1F7C 03B9 "\xE1\xBF\xB3" => "\x{03C9}\x{03B9}", # U+1FF3 => 03C9 03B9 "\xE1\xBF\xB4" => "\x{03CE}\x{03B9}", # U+1FF4 => 03CE 03B9 "\xE1\xBF\xB6" => "\x{03C9}\x{0342}", # U+1FF6 => 03C9 0342 "\xE1\xBF\xB7" => "\x{03C9}\x{0342}\x{03B9}", # U+1FF7 => 03C9 0342 03B9 "\xE1\xBF\xBC" => "\x{03C9}\x{03B9}", # U+1FFC => 03C9 03B9 "\xEF\xAC\x80" => "\x{0066}\x{0066}", # U+FB00 => 0066 0066 "\xEF\xAC\x81" => "\x{0066}\x{0069}", # U+FB01 => 0066 0069 "\xEF\xAC\x82" => "\x{0066}\x{006C}", # U+FB02 => 0066 006C "\xEF\xAC\x83" => "\x{0066}\x{0066}\x{0069}", # U+FB03 => 0066 0066 0069 "\xEF\xAC\x84" => "\x{0066}\x{0066}\x{006C}", # U+FB04 => 0066 0066 006C "\xEF\xAC\x85" => "\x{0073}\x{0074}", # U+FB05 => 0073 0074 "\xEF\xAC\x86" => "\x{0073}\x{0074}", # U+FB06 => 0073 0074 "\xEF\xAC\x93" => "\x{0574}\x{0576}", # U+FB13 => 0574 0576 "\xEF\xAC\x94" => "\x{0574}\x{0565}", # U+FB14 => 0574 0565 "\xEF\xAC\x95" => "\x{0574}\x{056B}", # U+FB15 => 0574 056B "\xEF\xAC\x96" => "\x{057E}\x{0576}", # U+FB16 => 057E 0576 "\xEF\xAC\x97" => "\x{0574}\x{056D}", # U+FB17 => 0574 056D ); return <<'END'; 0041 0061 0042 0062 0043 0063 0044 0064 0045 0065 0046 0066 0047 0067 0048 0068 0049 0069 004A 006A 004B 006B 004C 006C 004D 006D 004E 006E 004F 006F 0050 0070 0051 0071 0052 0072 0053 0073 0054 0074 0055 0075 0056 0076 0057 0077 0058 0078 0059 0079 005A 007A 00B5 03BC 00C0 00E0 00C1 00E1 00C2 00E2 00C3 00E3 00C4 00E4 00C5 00E5 00C6 00E6 00C7 00E7 00C8 00E8 00C9 00E9 00CA 00EA 00CB 00EB 00CC 00EC 00CD 00ED 00CE 00EE 00CF 00EF 00D0 00F0 00D1 00F1 00D2 00F2 00D3 00F3 00D4 00F4 00D5 00F5 00D6 00F6 00D8 00F8 00D9 00F9 00DA 00FA 00DB 00FB 00DC 00FC 00DD 00FD 00DE 00FE 0100 0101 0102 0103 0104 0105 0106 0107 0108 0109 010A 010B 010C 010D 010E 010F 0110 0111 0112 0113 0114 0115 0116 0117 0118 0119 011A 011B 011C 011D 011E 011F 0120 0121 0122 0123 0124 0125 0126 0127 0128 0129 012A 012B 012C 012D 012E 012F 0132 0133 0134 0135 0136 0137 0139 013A 013B 013C 013D 013E 013F 0140 0141 0142 0143 0144 0145 0146 0147 0148 014A 014B 014C 014D 014E 014F 0150 0151 0152 0153 0154 0155 0156 0157 0158 0159 015A 015B 015C 015D 015E 015F 0160 0161 0162 0163 0164 0165 0166 0167 0168 0169 016A 016B 016C 016D 016E 016F 0170 0171 0172 0173 0174 0175 0176 0177 0178 00FF 0179 017A 017B 017C 017D 017E 017F 0073 0181 0253 0182 0183 0184 0185 0186 0254 0187 0188 0189 0256 018A 0257 018B 018C 018E 01DD 018F 0259 0190 025B 0191 0192 0193 0260 0194 0263 0196 0269 0197 0268 0198 0199 019C 026F 019D 0272 019F 0275 01A0 01A1 01A2 01A3 01A4 01A5 01A6 0280 01A7 01A8 01A9 0283 01AC 01AD 01AE 0288 01AF 01B0 01B1 028A 01B2 028B 01B3 01B4 01B5 01B6 01B7 0292 01B8 01B9 01BC 01BD 01C4 01C6 01C5 01C6 01C7 01C9 01C8 01C9 01CA 01CC 01CB 01CC 01CD 01CE 01CF 01D0 01D1 01D2 01D3 01D4 01D5 01D6 01D7 01D8 01D9 01DA 01DB 01DC 01DE 01DF 01E0 01E1 01E2 01E3 01E4 01E5 01E6 01E7 01E8 01E9 01EA 01EB 01EC 01ED 01EE 01EF 01F1 01F3 01F2 01F3 01F4 01F5 01F6 0195 01F7 01BF 01F8 01F9 01FA 01FB 01FC 01FD 01FE 01FF 0200 0201 0202 0203 0204 0205 0206 0207 0208 0209 020A 020B 020C 020D 020E 020F 0210 0211 0212 0213 0214 0215 0216 0217 0218 0219 021A 021B 021C 021D 021E 021F 0220 019E 0222 0223 0224 0225 0226 0227 0228 0229 022A 022B 022C 022D 022E 022F 0230 0231 0232 0233 023A 2C65 023B 023C 023D 019A 023E 2C66 0241 0242 0243 0180 0244 0289 0245 028C 0246 0247 0248 0249 024A 024B 024C 024D 024E 024F 0345 03B9 0370 0371 0372 0373 0376 0377 037F 03F3 0386 03AC 0388 03AD 0389 03AE 038A 03AF 038C 03CC 038E 03CD 038F 03CE 0391 03B1 0392 03B2 0393 03B3 0394 03B4 0395 03B5 0396 03B6 0397 03B7 0398 03B8 0399 03B9 039A 03BA 039B 03BB 039C 03BC 039D 03BD 039E 03BE 039F 03BF 03A0 03C0 03A1 03C1 03A3 03C3 03A4 03C4 03A5 03C5 03A6 03C6 03A7 03C7 03A8 03C8 03A9 03C9 03AA 03CA 03AB 03CB 03C2 03C3 03CF 03D7 03D0 03B2 03D1 03B8 03D5 03C6 03D6 03C0 03D8 03D9 03DA 03DB 03DC 03DD 03DE 03DF 03E0 03E1 03E2 03E3 03E4 03E5 03E6 03E7 03E8 03E9 03EA 03EB 03EC 03ED 03EE 03EF 03F0 03BA 03F1 03C1 03F4 03B8 03F5 03B5 03F7 03F8 03F9 03F2 03FA 03FB 03FD 037B 03FE 037C 03FF 037D 0400 0450 0401 0451 0402 0452 0403 0453 0404 0454 0405 0455 0406 0456 0407 0457 0408 0458 0409 0459 040A 045A 040B 045B 040C 045C 040D 045D 040E 045E 040F 045F 0410 0430 0411 0431 0412 0432 0413 0433 0414 0434 0415 0435 0416 0436 0417 0437 0418 0438 0419 0439 041A 043A 041B 043B 041C 043C 041D 043D 041E 043E 041F 043F 0420 0440 0421 0441 0422 0442 0423 0443 0424 0444 0425 0445 0426 0446 0427 0447 0428 0448 0429 0449 042A 044A 042B 044B 042C 044C 042D 044D 042E 044E 042F 044F 0460 0461 0462 0463 0464 0465 0466 0467 0468 0469 046A 046B 046C 046D 046E 046F 0470 0471 0472 0473 0474 0475 0476 0477 0478 0479 047A 047B 047C 047D 047E 047F 0480 0481 048A 048B 048C 048D 048E 048F 0490 0491 0492 0493 0494 0495 0496 0497 0498 0499 049A 049B 049C 049D 049E 049F 04A0 04A1 04A2 04A3 04A4 04A5 04A6 04A7 04A8 04A9 04AA 04AB 04AC 04AD 04AE 04AF 04B0 04B1 04B2 04B3 04B4 04B5 04B6 04B7 04B8 04B9 04BA 04BB 04BC 04BD 04BE 04BF 04C0 04CF 04C1 04C2 04C3 04C4 04C5 04C6 04C7 04C8 04C9 04CA 04CB 04CC 04CD 04CE 04D0 04D1 04D2 04D3 04D4 04D5 04D6 04D7 04D8 04D9 04DA 04DB 04DC 04DD 04DE 04DF 04E0 04E1 04E2 04E3 04E4 04E5 04E6 04E7 04E8 04E9 04EA 04EB 04EC 04ED 04EE 04EF 04F0 04F1 04F2 04F3 04F4 04F5 04F6 04F7 04F8 04F9 04FA 04FB 04FC 04FD 04FE 04FF 0500 0501 0502 0503 0504 0505 0506 0507 0508 0509 050A 050B 050C 050D 050E 050F 0510 0511 0512 0513 0514 0515 0516 0517 0518 0519 051A 051B 051C 051D 051E 051F 0520 0521 0522 0523 0524 0525 0526 0527 0528 0529 052A 052B 052C 052D 052E 052F 0531 0561 0532 0562 0533 0563 0534 0564 0535 0565 0536 0566 0537 0567 0538 0568 0539 0569 053A 056A 053B 056B 053C 056C 053D 056D 053E 056E 053F 056F 0540 0570 0541 0571 0542 0572 0543 0573 0544 0574 0545 0575 0546 0576 0547 0577 0548 0578 0549 0579 054A 057A 054B 057B 054C 057C 054D 057D 054E 057E 054F 057F 0550 0580 0551 0581 0552 0582 0553 0583 0554 0584 0555 0585 0556 0586 10A0 2D00 10A1 2D01 10A2 2D02 10A3 2D03 10A4 2D04 10A5 2D05 10A6 2D06 10A7 2D07 10A8 2D08 10A9 2D09 10AA 2D0A 10AB 2D0B 10AC 2D0C 10AD 2D0D 10AE 2D0E 10AF 2D0F 10B0 2D10 10B1 2D11 10B2 2D12 10B3 2D13 10B4 2D14 10B5 2D15 10B6 2D16 10B7 2D17 10B8 2D18 10B9 2D19 10BA 2D1A 10BB 2D1B 10BC 2D1C 10BD 2D1D 10BE 2D1E 10BF 2D1F 10C0 2D20 10C1 2D21 10C2 2D22 10C3 2D23 10C4 2D24 10C5 2D25 10C7 2D27 10CD 2D2D 13F8 13F0 13F9 13F1 13FA 13F2 13FB 13F3 13FC 13F4 13FD 13F5 1C80 0432 1C81 0434 1C82 043E 1C83 0441 1C84 0442 1C85 0442 1C86 044A 1C87 0463 1C88 A64B 1C90 10D0 1C91 10D1 1C92 10D2 1C93 10D3 1C94 10D4 1C95 10D5 1C96 10D6 1C97 10D7 1C98 10D8 1C99 10D9 1C9A 10DA 1C9B 10DB 1C9C 10DC 1C9D 10DD 1C9E 10DE 1C9F 10DF 1CA0 10E0 1CA1 10E1 1CA2 10E2 1CA3 10E3 1CA4 10E4 1CA5 10E5 1CA6 10E6 1CA7 10E7 1CA8 10E8 1CA9 10E9 1CAA 10EA 1CAB 10EB 1CAC 10EC 1CAD 10ED 1CAE 10EE 1CAF 10EF 1CB0 10F0 1CB1 10F1 1CB2 10F2 1CB3 10F3 1CB4 10F4 1CB5 10F5 1CB6 10F6 1CB7 10F7 1CB8 10F8 1CB9 10F9 1CBA 10FA 1CBD 10FD 1CBE 10FE 1CBF 10FF 1E00 1E01 1E02 1E03 1E04 1E05 1E06 1E07 1E08 1E09 1E0A 1E0B 1E0C 1E0D 1E0E 1E0F 1E10 1E11 1E12 1E13 1E14 1E15 1E16 1E17 1E18 1E19 1E1A 1E1B 1E1C 1E1D 1E1E 1E1F 1E20 1E21 1E22 1E23 1E24 1E25 1E26 1E27 1E28 1E29 1E2A 1E2B 1E2C 1E2D 1E2E 1E2F 1E30 1E31 1E32 1E33 1E34 1E35 1E36 1E37 1E38 1E39 1E3A 1E3B 1E3C 1E3D 1E3E 1E3F 1E40 1E41 1E42 1E43 1E44 1E45 1E46 1E47 1E48 1E49 1E4A 1E4B 1E4C 1E4D 1E4E 1E4F 1E50 1E51 1E52 1E53 1E54 1E55 1E56 1E57 1E58 1E59 1E5A 1E5B 1E5C 1E5D 1E5E 1E5F 1E60 1E61 1E62 1E63 1E64 1E65 1E66 1E67 1E68 1E69 1E6A 1E6B 1E6C 1E6D 1E6E 1E6F 1E70 1E71 1E72 1E73 1E74 1E75 1E76 1E77 1E78 1E79 1E7A 1E7B 1E7C 1E7D 1E7E 1E7F 1E80 1E81 1E82 1E83 1E84 1E85 1E86 1E87 1E88 1E89 1E8A 1E8B 1E8C 1E8D 1E8E 1E8F 1E90 1E91 1E92 1E93 1E94 1E95 1E9B 1E61 1E9E 00DF 1EA0 1EA1 1EA2 1EA3 1EA4 1EA5 1EA6 1EA7 1EA8 1EA9 1EAA 1EAB 1EAC 1EAD 1EAE 1EAF 1EB0 1EB1 1EB2 1EB3 1EB4 1EB5 1EB6 1EB7 1EB8 1EB9 1EBA 1EBB 1EBC 1EBD 1EBE 1EBF 1EC0 1EC1 1EC2 1EC3 1EC4 1EC5 1EC6 1EC7 1EC8 1EC9 1ECA 1ECB 1ECC 1ECD 1ECE 1ECF 1ED0 1ED1 1ED2 1ED3 1ED4 1ED5 1ED6 1ED7 1ED8 1ED9 1EDA 1EDB 1EDC 1EDD 1EDE 1EDF 1EE0 1EE1 1EE2 1EE3 1EE4 1EE5 1EE6 1EE7 1EE8 1EE9 1EEA 1EEB 1EEC 1EED 1EEE 1EEF 1EF0 1EF1 1EF2 1EF3 1EF4 1EF5 1EF6 1EF7 1EF8 1EF9 1EFA 1EFB 1EFC 1EFD 1EFE 1EFF 1F08 1F00 1F09 1F01 1F0A 1F02 1F0B 1F03 1F0C 1F04 1F0D 1F05 1F0E 1F06 1F0F 1F07 1F18 1F10 1F19 1F11 1F1A 1F12 1F1B 1F13 1F1C 1F14 1F1D 1F15 1F28 1F20 1F29 1F21 1F2A 1F22 1F2B 1F23 1F2C 1F24 1F2D 1F25 1F2E 1F26 1F2F 1F27 1F38 1F30 1F39 1F31 1F3A 1F32 1F3B 1F33 1F3C 1F34 1F3D 1F35 1F3E 1F36 1F3F 1F37 1F48 1F40 1F49 1F41 1F4A 1F42 1F4B 1F43 1F4C 1F44 1F4D 1F45 1F59 1F51 1F5B 1F53 1F5D 1F55 1F5F 1F57 1F68 1F60 1F69 1F61 1F6A 1F62 1F6B 1F63 1F6C 1F64 1F6D 1F65 1F6E 1F66 1F6F 1F67 1F88 1F80 1F89 1F81 1F8A 1F82 1F8B 1F83 1F8C 1F84 1F8D 1F85 1F8E 1F86 1F8F 1F87 1F98 1F90 1F99 1F91 1F9A 1F92 1F9B 1F93 1F9C 1F94 1F9D 1F95 1F9E 1F96 1F9F 1F97 1FA8 1FA0 1FA9 1FA1 1FAA 1FA2 1FAB 1FA3 1FAC 1FA4 1FAD 1FA5 1FAE 1FA6 1FAF 1FA7 1FB8 1FB0 1FB9 1FB1 1FBA 1F70 1FBB 1F71 1FBC 1FB3 1FBE 03B9 1FC8 1F72 1FC9 1F73 1FCA 1F74 1FCB 1F75 1FCC 1FC3 1FD8 1FD0 1FD9 1FD1 1FDA 1F76 1FDB 1F77 1FE8 1FE0 1FE9 1FE1 1FEA 1F7A 1FEB 1F7B 1FEC 1FE5 1FF8 1F78 1FF9 1F79 1FFA 1F7C 1FFB 1F7D 1FFC 1FF3 2126 03C9 212A 006B 212B 00E5 2132 214E 2160 2170 2161 2171 2162 2172 2163 2173 2164 2174 2165 2175 2166 2176 2167 2177 2168 2178 2169 2179 216A 217A 216B 217B 216C 217C 216D 217D 216E 217E 216F 217F 2183 2184 24B6 24D0 24B7 24D1 24B8 24D2 24B9 24D3 24BA 24D4 24BB 24D5 24BC 24D6 24BD 24D7 24BE 24D8 24BF 24D9 24C0 24DA 24C1 24DB 24C2 24DC 24C3 24DD 24C4 24DE 24C5 24DF 24C6 24E0 24C7 24E1 24C8 24E2 24C9 24E3 24CA 24E4 24CB 24E5 24CC 24E6 24CD 24E7 24CE 24E8 24CF 24E9 2C00 2C30 2C01 2C31 2C02 2C32 2C03 2C33 2C04 2C34 2C05 2C35 2C06 2C36 2C07 2C37 2C08 2C38 2C09 2C39 2C0A 2C3A 2C0B 2C3B 2C0C 2C3C 2C0D 2C3D 2C0E 2C3E 2C0F 2C3F 2C10 2C40 2C11 2C41 2C12 2C42 2C13 2C43 2C14 2C44 2C15 2C45 2C16 2C46 2C17 2C47 2C18 2C48 2C19 2C49 2C1A 2C4A 2C1B 2C4B 2C1C 2C4C 2C1D 2C4D 2C1E 2C4E 2C1F 2C4F 2C20 2C50 2C21 2C51 2C22 2C52 2C23 2C53 2C24 2C54 2C25 2C55 2C26 2C56 2C27 2C57 2C28 2C58 2C29 2C59 2C2A 2C5A 2C2B 2C5B 2C2C 2C5C 2C2D 2C5D 2C2E 2C5E 2C60 2C61 2C62 026B 2C63 1D7D 2C64 027D 2C67 2C68 2C69 2C6A 2C6B 2C6C 2C6D 0251 2C6E 0271 2C6F 0250 2C70 0252 2C72 2C73 2C75 2C76 2C7E 023F 2C7F 0240 2C80 2C81 2C82 2C83 2C84 2C85 2C86 2C87 2C88 2C89 2C8A 2C8B 2C8C 2C8D 2C8E 2C8F 2C90 2C91 2C92 2C93 2C94 2C95 2C96 2C97 2C98 2C99 2C9A 2C9B 2C9C 2C9D 2C9E 2C9F 2CA0 2CA1 2CA2 2CA3 2CA4 2CA5 2CA6 2CA7 2CA8 2CA9 2CAA 2CAB 2CAC 2CAD 2CAE 2CAF 2CB0 2CB1 2CB2 2CB3 2CB4 2CB5 2CB6 2CB7 2CB8 2CB9 2CBA 2CBB 2CBC 2CBD 2CBE 2CBF 2CC0 2CC1 2CC2 2CC3 2CC4 2CC5 2CC6 2CC7 2CC8 2CC9 2CCA 2CCB 2CCC 2CCD 2CCE 2CCF 2CD0 2CD1 2CD2 2CD3 2CD4 2CD5 2CD6 2CD7 2CD8 2CD9 2CDA 2CDB 2CDC 2CDD 2CDE 2CDF 2CE0 2CE1 2CE2 2CE3 2CEB 2CEC 2CED 2CEE 2CF2 2CF3 A640 A641 A642 A643 A644 A645 A646 A647 A648 A649 A64A A64B A64C A64D A64E A64F A650 A651 A652 A653 A654 A655 A656 A657 A658 A659 A65A A65B A65C A65D A65E A65F A660 A661 A662 A663 A664 A665 A666 A667 A668 A669 A66A A66B A66C A66D A680 A681 A682 A683 A684 A685 A686 A687 A688 A689 A68A A68B A68C A68D A68E A68F A690 A691 A692 A693 A694 A695 A696 A697 A698 A699 A69A A69B A722 A723 A724 A725 A726 A727 A728 A729 A72A A72B A72C A72D A72E A72F A732 A733 A734 A735 A736 A737 A738 A739 A73A A73B A73C A73D A73E A73F A740 A741 A742 A743 A744 A745 A746 A747 A748 A749 A74A A74B A74C A74D A74E A74F A750 A751 A752 A753 A754 A755 A756 A757 A758 A759 A75A A75B A75C A75D A75E A75F A760 A761 A762 A763 A764 A765 A766 A767 A768 A769 A76A A76B A76C A76D A76E A76F A779 A77A A77B A77C A77D 1D79 A77E A77F A780 A781 A782 A783 A784 A785 A786 A787 A78B A78C A78D 0265 A790 A791 A792 A793 A796 A797 A798 A799 A79A A79B A79C A79D A79E A79F A7A0 A7A1 A7A2 A7A3 A7A4 A7A5 A7A6 A7A7 A7A8 A7A9 A7AA 0266 A7AB 025C A7AC 0261 A7AD 026C A7AE 026A A7B0 029E A7B1 0287 A7B2 029D A7B3 AB53 A7B4 A7B5 A7B6 A7B7 A7B8 A7B9 A7BA A7BB A7BC A7BD A7BE A7BF A7C2 A7C3 A7C4 A794 A7C5 0282 A7C6 1D8E A7C7 A7C8 A7C9 A7CA A7F5 A7F6 AB70 13A0 AB71 13A1 AB72 13A2 AB73 13A3 AB74 13A4 AB75 13A5 AB76 13A6 AB77 13A7 AB78 13A8 AB79 13A9 AB7A 13AA AB7B 13AB AB7C 13AC AB7D 13AD AB7E 13AE AB7F 13AF AB80 13B0 AB81 13B1 AB82 13B2 AB83 13B3 AB84 13B4 AB85 13B5 AB86 13B6 AB87 13B7 AB88 13B8 AB89 13B9 AB8A 13BA AB8B 13BB AB8C 13BC AB8D 13BD AB8E 13BE AB8F 13BF AB90 13C0 AB91 13C1 AB92 13C2 AB93 13C3 AB94 13C4 AB95 13C5 AB96 13C6 AB97 13C7 AB98 13C8 AB99 13C9 AB9A 13CA AB9B 13CB AB9C 13CC AB9D 13CD AB9E 13CE AB9F 13CF ABA0 13D0 ABA1 13D1 ABA2 13D2 ABA3 13D3 ABA4 13D4 ABA5 13D5 ABA6 13D6 ABA7 13D7 ABA8 13D8 ABA9 13D9 ABAA 13DA ABAB 13DB ABAC 13DC ABAD 13DD ABAE 13DE ABAF 13DF ABB0 13E0 ABB1 13E1 ABB2 13E2 ABB3 13E3 ABB4 13E4 ABB5 13E5 ABB6 13E6 ABB7 13E7 ABB8 13E8 ABB9 13E9 ABBA 13EA ABBB 13EB ABBC 13EC ABBD 13ED ABBE 13EE ABBF 13EF FF21 FF41 FF22 FF42 FF23 FF43 FF24 FF44 FF25 FF45 FF26 FF46 FF27 FF47 FF28 FF48 FF29 FF49 FF2A FF4A FF2B FF4B FF2C FF4C FF2D FF4D FF2E FF4E FF2F FF4F FF30 FF50 FF31 FF51 FF32 FF52 FF33 FF53 FF34 FF54 FF35 FF55 FF36 FF56 FF37 FF57 FF38 FF58 FF39 FF59 FF3A FF5A 10400 10428 10401 10429 10402 1042A 10403 1042B 10404 1042C 10405 1042D 10406 1042E 10407 1042F 10408 10430 10409 10431 1040A 10432 1040B 10433 1040C 10434 1040D 10435 1040E 10436 1040F 10437 10410 10438 10411 10439 10412 1043A 10413 1043B 10414 1043C 10415 1043D 10416 1043E 10417 1043F 10418 10440 10419 10441 1041A 10442 1041B 10443 1041C 10444 1041D 10445 1041E 10446 1041F 10447 10420 10448 10421 10449 10422 1044A 10423 1044B 10424 1044C 10425 1044D 10426 1044E 10427 1044F 104B0 104D8 104B1 104D9 104B2 104DA 104B3 104DB 104B4 104DC 104B5 104DD 104B6 104DE 104B7 104DF 104B8 104E0 104B9 104E1 104BA 104E2 104BB 104E3 104BC 104E4 104BD 104E5 104BE 104E6 104BF 104E7 104C0 104E8 104C1 104E9 104C2 104EA 104C3 104EB 104C4 104EC 104C5 104ED 104C6 104EE 104C7 104EF 104C8 104F0 104C9 104F1 104CA 104F2 104CB 104F3 104CC 104F4 104CD 104F5 104CE 104F6 104CF 104F7 104D0 104F8 104D1 104F9 104D2 104FA 104D3 104FB 10C80 10CC0 10C81 10CC1 10C82 10CC2 10C83 10CC3 10C84 10CC4 10C85 10CC5 10C86 10CC6 10C87 10CC7 10C88 10CC8 10C89 10CC9 10C8A 10CCA 10C8B 10CCB 10C8C 10CCC 10C8D 10CCD 10C8E 10CCE 10C8F 10CCF 10C90 10CD0 10C91 10CD1 10C92 10CD2 10C93 10CD3 10C94 10CD4 10C95 10CD5 10C96 10CD6 10C97 10CD7 10C98 10CD8 10C99 10CD9 10C9A 10CDA 10C9B 10CDB 10C9C 10CDC 10C9D 10CDD 10C9E 10CDE 10C9F 10CDF 10CA0 10CE0 10CA1 10CE1 10CA2 10CE2 10CA3 10CE3 10CA4 10CE4 10CA5 10CE5 10CA6 10CE6 10CA7 10CE7 10CA8 10CE8 10CA9 10CE9 10CAA 10CEA 10CAB 10CEB 10CAC 10CEC 10CAD 10CED 10CAE 10CEE 10CAF 10CEF 10CB0 10CF0 10CB1 10CF1 10CB2 10CF2 118A0 118C0 118A1 118C1 118A2 118C2 118A3 118C3 118A4 118C4 118A5 118C5 118A6 118C6 118A7 118C7 118A8 118C8 118A9 118C9 118AA 118CA 118AB 118CB 118AC 118CC 118AD 118CD 118AE 118CE 118AF 118CF 118B0 118D0 118B1 118D1 118B2 118D2 118B3 118D3 118B4 118D4 118B5 118D5 118B6 118D6 118B7 118D7 118B8 118D8 118B9 118D9 118BA 118DA 118BB 118DB 118BC 118DC 118BD 118DD 118BE 118DE 118BF 118DF 16E40 16E60 16E41 16E61 16E42 16E62 16E43 16E63 16E44 16E64 16E45 16E65 16E46 16E66 16E47 16E67 16E48 16E68 16E49 16E69 16E4A 16E6A 16E4B 16E6B 16E4C 16E6C 16E4D 16E6D 16E4E 16E6E 16E4F 16E6F 16E50 16E70 16E51 16E71 16E52 16E72 16E53 16E73 16E54 16E74 16E55 16E75 16E56 16E76 16E57 16E77 16E58 16E78 16E59 16E79 16E5A 16E7A 16E5B 16E7B 16E5C 16E7C 16E5D 16E7D 16E5E 16E7E 16E5F 16E7F 1E900 1E922 1E901 1E923 1E902 1E924 1E903 1E925 1E904 1E926 1E905 1E927 1E906 1E928 1E907 1E929 1E908 1E92A 1E909 1E92B 1E90A 1E92C 1E90B 1E92D 1E90C 1E92E 1E90D 1E92F 1E90E 1E930 1E90F 1E931 1E910 1E932 1E911 1E933 1E912 1E934 1E913 1E935 1E914 1E936 1E915 1E937 1E916 1E938 1E917 1E939 1E918 1E93A 1E919 1E93B 1E91A 1E93C 1E91B 1E93D 1E91C 1E93E 1E91D 1E93F 1E91E 1E940 1E91F 1E941 1E920 1E942 1E921 1E943 END PK ! }��� � 5.34.0/unicore/To/Bpt.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToBpt'}{'format'} = 's'; # string $Unicode::UCD::SwashInfo{'ToBpt'}{'missing'} = 'n'; return <<'END'; 28 o 29 c 5B o 5D c 7B o 7D c F3A o F3B c F3C o F3D c 169B o 169C c 2045 o 2046 c 207D o 207E c 208D o 208E c 2308 o 2309 c 230A o 230B c 2329 o 232A c 2768 o 2769 c 276A o 276B c 276C o 276D c 276E o 276F c 2770 o 2771 c 2772 o 2773 c 2774 o 2775 c 27C5 o 27C6 c 27E6 o 27E7 c 27E8 o 27E9 c 27EA o 27EB c 27EC o 27ED c 27EE o 27EF c 2983 o 2984 c 2985 o 2986 c 2987 o 2988 c 2989 o 298A c 298B o 298C c 298D o 298E c 298F o 2990 c 2991 o 2992 c 2993 o 2994 c 2995 o 2996 c 2997 o 2998 c 29D8 o 29D9 c 29DA o 29DB c 29FC o 29FD c 2E22 o 2E23 c 2E24 o 2E25 c 2E26 o 2E27 c 2E28 o 2E29 c 3008 o 3009 c 300A o 300B c 300C o 300D c 300E o 300F c 3010 o 3011 c 3014 o 3015 c 3016 o 3017 c 3018 o 3019 c 301A o 301B c FE59 o FE5A c FE5B o FE5C c FE5D o FE5E c FF08 o FF09 c FF3B o FF3D c FF5B o FF5D c FF5F o FF60 c FF62 o FF63 c END PK ! ���$� � 5.34.0/unicore/To/PerlDeci.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The mappings must be modified to get the correct values by adding the code # point ordinal number to each one that is numeric. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToPerlDecimalDigit'}{'format'} = 'a'; # some entries need adjustment $Unicode::UCD::SwashInfo{'ToPerlDecimalDigit'}{'missing'} = ''; # code point maps to the null string return <<'END'; 30 39 0 660 669 0 6F0 6F9 0 7C0 7C9 0 966 96F 0 9E6 9EF 0 A66 A6F 0 AE6 AEF 0 B66 B6F 0 BE6 BEF 0 C66 C6F 0 CE6 CEF 0 D66 D6F 0 DE6 DEF 0 E50 E59 0 ED0 ED9 0 F20 F29 0 1040 1049 0 1090 1099 0 17E0 17E9 0 1810 1819 0 1946 194F 0 19D0 19D9 0 1A80 1A89 0 1A90 1A99 0 1B50 1B59 0 1BB0 1BB9 0 1C40 1C49 0 1C50 1C59 0 A620 A629 0 A8D0 A8D9 0 A900 A909 0 A9D0 A9D9 0 A9F0 A9F9 0 AA50 AA59 0 ABF0 ABF9 0 FF10 FF19 0 104A0 104A9 0 10D30 10D39 0 11066 1106F 0 110F0 110F9 0 11136 1113F 0 111D0 111D9 0 112F0 112F9 0 11450 11459 0 114D0 114D9 0 11650 11659 0 116C0 116C9 0 11730 11739 0 118E0 118E9 0 11950 11959 0 11C50 11C59 0 11D50 11D59 0 11DA0 11DA9 0 16A60 16A69 0 16B50 16B59 0 1D7CE 1D7D7 0 1D7D8 1D7E1 0 1D7E2 1D7EB 0 1D7EC 1D7F5 0 1D7F6 1D7FF 0 1E140 1E149 0 1E2F0 1E2F9 0 1E950 1E959 0 1FBF0 1FBF9 0 END PK ! �L,j~ j~ 5.34.0/unicore/To/Lb.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToLb'}{'format'} = 's'; # string $Unicode::UCD::SwashInfo{'ToLb'}{'missing'} = 'Unknown'; return <<'END'; 0 8 CM 9 BA A LF B C BK D CR E 1F CM 20 SP 21 EX 22 QU 23 AL 24 PR 25 PO 26 AL 27 QU 28 OP 29 CP 2A AL 2B PR 2C IS 2D HY 2E IS 2F SY 30 39 NU 3A 3B IS 3C 3E AL 3F EX 40 5A AL 5B OP 5C PR 5D CP 5E 7A AL 7B OP 7C BA 7D CL 7E AL 7F 84 CM 85 NL 86 9F CM A0 GL A1 OP A2 PO A3 A5 PR A6 AL A7 A8 AI A9 AL AA AI AB QU AC AL AD BA AE AF AL B0 PO B1 PR B2 B3 AI B4 BB B5 AL B6 BA AI BB QU BC BE AI BF OP C0 D6 AL D7 AI D8 F6 AL F7 AI F8 2C6 AL 2C7 AI 2C8 BB 2C9 2CB AI 2CC BB 2CD AI 2CE 2CF AL 2D0 AI 2D1 2D7 AL 2D8 2DB AI 2DC AL 2DD AI 2DE AL 2DF BB 2E0 2FF AL 300 34E CM 34F GL 350 35B CM 35C 362 GL 363 36F CM 370 377 AL 37A 37D AL 37E IS 37F AL 384 38A AL 38C AL 38E 3A1 AL 3A3 482 AL 483 489 CM 48A 52F AL 531 556 AL 559 588 AL 589 IS 58A BA 58D 58E AL 58F PR 591 5BD CM 5BE BA 5BF CM 5C0 AL 5C1 5C2 CM 5C3 AL 5C4 5C5 CM 5C6 EX 5C7 CM 5D0 5EA HL 5EF 5F2 HL 5F3 5F4 AL 600 608 AL 609 60B PO 60C 60D IS 60E 60F AL 610 61A CM 61B EX 61C CM 61E 61F EX 620 64A AL 64B 65F CM 660 669 NU 66A PO 66B 66C NU 66D 66F AL 670 CM 671 6D3 AL 6D4 EX 6D5 AL 6D6 6DC CM 6DD 6DE AL 6DF 6E4 CM 6E5 6E6 AL 6E7 6E8 CM 6E9 AL 6EA 6ED CM 6EE 6EF AL 6F0 6F9 NU 6FA 70D AL 70F 710 AL 711 CM 712 72F AL 730 74A CM 74D 7A5 AL 7A6 7B0 CM 7B1 AL 7C0 7C9 NU 7CA 7EA AL 7EB 7F3 CM 7F4 7F7 AL 7F8 IS 7F9 EX 7FA AL 7FD CM 7FE 7FF PR 800 815 AL 816 819 CM 81A AL 81B 823 CM 824 AL 825 827 CM 828 AL 829 82D CM 830 83E AL 840 858 AL 859 85B CM 85E AL 860 86A AL 8A0 8B4 AL 8B6 8C7 AL 8D3 8E1 CM 8E2 AL 8E3 903 CM 904 939 AL 93A 93C CM 93D AL 93E 94F CM 950 AL 951 957 CM 958 961 AL 962 963 CM 964 965 BA 966 96F NU 970 980 AL 981 983 CM 985 98C AL 98F 990 AL 993 9A8 AL 9AA 9B0 AL 9B2 AL 9B6 9B9 AL 9BC CM 9BD AL 9BE 9C4 CM 9C7 9C8 CM 9CB 9CD CM 9CE AL 9D7 CM 9DC 9DD AL 9DF 9E1 AL 9E2 9E3 CM 9E6 9EF NU 9F0 9F1 AL 9F2 9F3 PO 9F4 9F8 AL 9F9 PO 9FA AL 9FB PR 9FC 9FD AL 9FE CM A01 A03 CM A05 A0A AL A0F A10 AL A13 A28 AL A2A A30 AL A32 A33 AL A35 A36 AL A38 A39 AL A3C CM A3E A42 CM A47 A48 CM A4B A4D CM A51 CM A59 A5C AL A5E AL A66 A6F NU A70 A71 CM A72 A74 AL A75 CM A76 AL A81 A83 CM A85 A8D AL A8F A91 AL A93 AA8 AL AAA AB0 AL AB2 AB3 AL AB5 AB9 AL ABC CM ABD AL ABE AC5 CM AC7 AC9 CM ACB ACD CM AD0 AL AE0 AE1 AL AE2 AE3 CM AE6 AEF NU AF0 AL AF1 PR AF9 AL AFA AFF CM B01 B03 CM B05 B0C AL B0F B10 AL B13 B28 AL B2A B30 AL B32 B33 AL B35 B39 AL B3C CM B3D AL B3E B44 CM B47 B48 CM B4B B4D CM B55 B57 CM B5C B5D AL B5F B61 AL B62 B63 CM B66 B6F NU B70 B77 AL B82 CM B83 AL B85 B8A AL B8E B90 AL B92 B95 AL B99 B9A AL B9C AL B9E B9F AL BA3 BA4 AL BA8 BAA AL BAE BB9 AL BBE BC2 CM BC6 BC8 CM BCA BCD CM BD0 AL BD7 CM BE6 BEF NU BF0 BF8 AL BF9 PR BFA AL C00 C04 CM C05 C0C AL C0E C10 AL C12 C28 AL C2A C39 AL C3D AL C3E C44 CM C46 C48 CM C4A C4D CM C55 C56 CM C58 C5A AL C60 C61 AL C62 C63 CM C66 C6F NU C77 BB C78 C80 AL C81 C83 CM C84 BB C85 C8C AL C8E C90 AL C92 CA8 AL CAA CB3 AL CB5 CB9 AL CBC CM CBD AL CBE CC4 CM CC6 CC8 CM CCA CCD CM CD5 CD6 CM CDE AL CE0 CE1 AL CE2 CE3 CM CE6 CEF NU CF1 CF2 AL D00 D03 CM D04 D0C AL D0E D10 AL D12 D3A AL D3B D3C CM D3D AL D3E D44 CM D46 D48 CM D4A D4D CM D4E D4F AL D54 D56 AL D57 CM D58 D61 AL D62 D63 CM D66 D6F NU D70 D78 AL D79 PO D7A D7F AL D81 D83 CM D85 D96 AL D9A DB1 AL DB3 DBB AL DBD AL DC0 DC6 AL DCA CM DCF DD4 CM DD6 CM DD8 DDF CM DE6 DEF NU DF2 DF3 CM DF4 AL E01 E3A SA E3F PR E40 E4E SA E4F AL E50 E59 NU E5A E5B BA E81 E82 SA E84 SA E86 E8A SA E8C EA3 SA EA5 SA EA7 EBD SA EC0 EC4 SA EC6 SA EC8 ECD SA ED0 ED9 NU EDC EDF SA F00 AL F01 F04 BB F05 AL F06 F07 BB F08 GL F09 F0A BB F0B BA F0C GL F0D F11 EX F12 GL F13 AL F14 EX F15 F17 AL F18 F19 CM F1A F1F AL F20 F29 NU F2A F33 AL F34 BA F35 CM F36 AL F37 CM F38 AL F39 CM F3A OP F3B CL F3C OP F3D CL F3E F3F CM F40 F47 AL F49 F6C AL F71 F7E CM F7F BA F80 F84 CM F85 BA F86 F87 CM F88 F8C AL F8D F97 CM F99 FBC CM FBE FBF BA FC0 FC5 AL FC6 CM FC7 FCC AL FCE FCF AL FD0 FD1 BB FD2 BA FD3 BB FD4 FD8 AL FD9 FDA GL 1000 103F SA 1040 1049 NU 104A 104B BA 104C 104F AL 1050 108F SA 1090 1099 NU 109A 109F SA 10A0 10C5 AL 10C7 AL 10CD AL 10D0 10FF AL 1100 115F JL 1160 11A7 JV 11A8 11FF JT 1200 1248 AL 124A 124D AL 1250 1256 AL 1258 AL 125A 125D AL 1260 1288 AL 128A 128D AL 1290 12B0 AL 12B2 12B5 AL 12B8 12BE AL 12C0 AL 12C2 12C5 AL 12C8 12D6 AL 12D8 1310 AL 1312 1315 AL 1318 135A AL 135D 135F CM 1360 AL 1361 BA 1362 137C AL 1380 1399 AL 13A0 13F5 AL 13F8 13FD AL 1400 BA 1401 167F AL 1680 BA 1681 169A AL 169B OP 169C CL 16A0 16EA AL 16EB 16ED BA 16EE 16F8 AL 1700 170C AL 170E 1711 AL 1712 1714 CM 1720 1731 AL 1732 1734 CM 1735 1736 BA 1740 1751 AL 1752 1753 CM 1760 176C AL 176E 1770 AL 1772 1773 CM 1780 17D3 SA 17D4 17D5 BA 17D6 NS 17D7 SA 17D8 BA 17D9 AL 17DA BA 17DB PR 17DC 17DD SA 17E0 17E9 NU 17F0 17F9 AL 1800 1801 AL 1802 1803 EX 1804 1805 BA 1806 BB 1807 AL 1808 1809 EX 180A AL 180B 180D CM 180E GL 1810 1819 NU 1820 1878 AL 1880 1884 AL 1885 1886 CM 1887 18A8 AL 18A9 CM 18AA AL 18B0 18F5 AL 1900 191E AL 1920 192B CM 1930 193B CM 1940 AL 1944 1945 EX 1946 194F NU 1950 196D SA 1970 1974 SA 1980 19AB SA 19B0 19C9 SA 19D0 19D9 NU 19DA SA 19DE 19DF SA 19E0 1A16 AL 1A17 1A1B CM 1A1E 1A1F AL 1A20 1A5E SA 1A60 1A7C SA 1A7F CM 1A80 1A89 NU 1A90 1A99 NU 1AA0 1AAD SA 1AB0 1AC0 CM 1B00 1B04 CM 1B05 1B33 AL 1B34 1B44 CM 1B45 1B4B AL 1B50 1B59 NU 1B5A 1B5B BA 1B5C AL 1B5D 1B60 BA 1B61 1B6A AL 1B6B 1B73 CM 1B74 1B7C AL 1B80 1B82 CM 1B83 1BA0 AL 1BA1 1BAD CM 1BAE 1BAF AL 1BB0 1BB9 NU 1BBA 1BE5 AL 1BE6 1BF3 CM 1BFC 1C23 AL 1C24 1C37 CM 1C3B 1C3F BA 1C40 1C49 NU 1C4D 1C4F AL 1C50 1C59 NU 1C5A 1C7D AL 1C7E 1C7F BA 1C80 1C88 AL 1C90 1CBA AL 1CBD 1CC7 AL 1CD0 1CD2 CM 1CD3 AL 1CD4 1CE8 CM 1CE9 1CEC AL 1CED CM 1CEE 1CF3 AL 1CF4 CM 1CF5 1CF6 AL 1CF7 1CF9 CM 1CFA AL 1D00 1DBF AL 1DC0 1DF9 CM 1DFB 1DFF CM 1E00 1F15 AL 1F18 1F1D AL 1F20 1F45 AL 1F48 1F4D AL 1F50 1F57 AL 1F59 AL 1F5B AL 1F5D AL 1F5F 1F7D AL 1F80 1FB4 AL 1FB6 1FC4 AL 1FC6 1FD3 AL 1FD6 1FDB AL 1FDD 1FEF AL 1FF2 1FF4 AL 1FF6 1FFC AL 1FFD BB 1FFE AL 2000 2006 BA 2007 GL 2008 200A BA 200B ZW 200C CM 200D ZWJ 200E 200F CM 2010 BA 2011 GL 2012 2013 BA 2014 B2 2015 2016 AI 2017 AL 2018 2019 QU 201A OP 201B 201D QU 201E OP 201F QU 2020 2021 AI 2022 2023 AL 2024 2026 IN 2027 BA 2028 2029 BK 202A 202E CM 202F GL 2030 2037 PO 2038 AL 2039 203A QU 203B AI 203C 203D NS 203E 2043 AL 2044 IS 2045 OP 2046 CL 2047 2049 NS 204A 2055 AL 2056 BA 2057 AL 2058 205B BA 205C AL 205D 205F BA 2060 WJ 2061 2064 AL 2066 206F CM 2070 2071 AL 2074 AI 2075 207C AL 207D OP 207E CL 207F AI 2080 AL 2081 2084 AI 2085 208C AL 208D OP 208E CL 2090 209C AL 20A0 20A6 PR 20A7 PO 20A8 20B5 PR 20B6 PO 20B7 20BA PR 20BB PO 20BC 20BD PR 20BE PO 20BF 20CF PR 20D0 20F0 CM 2100 2102 AL 2103 PO 2104 AL 2105 AI 2106 2108 AL 2109 PO 210A 2112 AL 2113 AI 2114 2115 AL 2116 PR 2117 2120 AL 2121 2122 AI 2123 212A AL 212B AI 212C 2153 AL 2154 2155 AI 2156 215A AL 215B AI 215C 215D AL 215E AI 215F AL 2160 216B AI 216C 216F AL 2170 2179 AI 217A 2188 AL 2189 AI 218A 218B AL 2190 2199 AI 219A 21D1 AL 21D2 AI 21D3 AL 21D4 AI 21D5 21FF AL 2200 AI 2201 AL 2202 2203 AI 2204 2206 AL 2207 2208 AI 2209 220A AL 220B AI 220C 220E AL 220F AI 2210 AL 2211 AI 2212 2213 PR 2214 AL 2215 AI 2216 2219 AL 221A AI 221B 221C AL 221D 2220 AI 2221 2222 AL 2223 AI 2224 AL 2225 AI 2226 AL 2227 222C AI 222D AL 222E AI 222F 2233 AL 2234 2237 AI 2238 223B AL 223C 223D AI 223E 2247 AL 2248 AI 2249 224B AL 224C AI 224D 2251 AL 2252 AI 2253 225F AL 2260 2261 AI 2262 2263 AL 2264 2267 AI 2268 2269 AL 226A 226B AI 226C 226D AL 226E 226F AI 2270 2281 AL 2282 2283 AI 2284 2285 AL 2286 2287 AI 2288 2294 AL 2295 AI 2296 2298 AL 2299 AI 229A 22A4 AL 22A5 AI 22A6 22BE AL 22BF AI 22C0 22EE AL 22EF IN 22F0 2307 AL 2308 OP 2309 CL 230A OP 230B CL 230C 2311 AL 2312 AI 2313 2319 AL 231A 231B ID 231C 2328 AL 2329 OP 232A CL 232B 23EF AL 23F0 23F3 ID 23F4 2426 AL 2440 244A AL 2460 24FE AI 24FF AL 2500 254B AI 254C 254F AL 2550 2574 AI 2575 257F AL 2580 258F AI 2590 2591 AL 2592 2595 AI 2596 259F AL 25A0 25A1 AI 25A2 AL 25A3 25A9 AI 25AA 25B1 AL 25B2 25B3 AI 25B4 25B5 AL 25B6 25B7 AI 25B8 25BB AL 25BC 25BD AI 25BE 25BF AL 25C0 25C1 AI 25C2 25C5 AL 25C6 25C8 AI 25C9 25CA AL 25CB AI 25CC 25CD AL 25CE 25D1 AI 25D2 25E1 AL 25E2 25E5 AI 25E6 25EE AL 25EF AI 25F0 25FF AL 2600 2603 ID 2604 AL 2605 2606 AI 2607 2608 AL 2609 AI 260A 260D AL 260E 260F AI 2610 2613 AL 2614 2615 ID 2616 2617 AI 2618 ID 2619 AL 261A 261C ID 261D EB 261E 261F ID 2620 2638 AL 2639 263B ID 263C 263F AL 2640 AI 2641 AL 2642 AI 2643 265F AL 2660 2661 AI 2662 AL 2663 2665 AI 2666 AL 2667 AI 2668 ID 2669 266A AI 266B AL 266C 266D AI 266E AL 266F AI 2670 267E AL 267F ID 2680 269D AL 269E 269F AI 26A0 26BC AL 26BD 26C8 ID 26C9 26CC AI 26CD ID 26CE AL 26CF 26D1 ID 26D2 AI 26D3 26D4 ID 26D5 26D7 AI 26D8 26D9 ID 26DA 26DB AI 26DC ID 26DD 26DE AI 26DF 26E1 ID 26E2 AL 26E3 AI 26E4 26E7 AL 26E8 26E9 AI 26EA ID 26EB 26F0 AI 26F1 26F5 ID 26F6 AI 26F7 26F8 ID 26F9 EB 26FA ID 26FB 26FC AI 26FD 2704 ID 2705 2707 AL 2708 2709 ID 270A 270D EB 270E 2756 AL 2757 AI 2758 275A AL 275B 2760 QU 2761 AL 2762 2763 EX 2764 ID 2765 2767 AL 2768 OP 2769 CL 276A OP 276B CL 276C OP 276D CL 276E OP 276F CL 2770 OP 2771 CL 2772 OP 2773 CL 2774 OP 2775 CL 2776 2793 AI 2794 27C4 AL 27C5 OP 27C6 CL 27C7 27E5 AL 27E6 OP 27E7 CL 27E8 OP 27E9 CL 27EA OP 27EB CL 27EC OP 27ED CL 27EE OP 27EF CL 27F0 2982 AL 2983 OP 2984 CL 2985 OP 2986 CL 2987 OP 2988 CL 2989 OP 298A CL 298B OP 298C CL 298D OP 298E CL 298F OP 2990 CL 2991 OP 2992 CL 2993 OP 2994 CL 2995 OP 2996 CL 2997 OP 2998 CL 2999 29D7 AL 29D8 OP 29D9 CL 29DA OP 29DB CL 29DC 29FB AL 29FC OP 29FD CL 29FE 2B54 AL 2B55 2B59 AI 2B5A 2B73 AL 2B76 2B95 AL 2B97 2C2E AL 2C30 2C5E AL 2C60 2CEE AL 2CEF 2CF1 CM 2CF2 2CF3 AL 2CF9 EX 2CFA 2CFC BA 2CFD AL 2CFE EX 2CFF BA 2D00 2D25 AL 2D27 AL 2D2D AL 2D30 2D67 AL 2D6F AL 2D70 BA 2D7F CM 2D80 2D96 AL 2DA0 2DA6 AL 2DA8 2DAE AL 2DB0 2DB6 AL 2DB8 2DBE AL 2DC0 2DC6 AL 2DC8 2DCE AL 2DD0 2DD6 AL 2DD8 2DDE AL 2DE0 2DFF CM 2E00 2E0D QU 2E0E 2E15 BA 2E16 AL 2E17 BA 2E18 OP 2E19 BA 2E1A 2E1B AL 2E1C 2E1D QU 2E1E 2E1F AL 2E20 2E21 QU 2E22 OP 2E23 CL 2E24 OP 2E25 CL 2E26 OP 2E27 CL 2E28 OP 2E29 CL 2E2A 2E2D BA 2E2E EX 2E2F AL 2E30 2E31 BA 2E32 AL 2E33 2E34 BA 2E35 2E39 AL 2E3A 2E3B B2 2E3C 2E3E BA 2E3F AL 2E40 2E41 BA 2E42 OP 2E43 2E4A BA 2E4B AL 2E4C BA 2E4D AL 2E4E 2E4F BA 2E50 2E52 AL 2E80 2E99 ID 2E9B 2EF3 ID 2F00 2FD5 ID 2FF0 2FFB ID 3000 BA 3001 3002 CL 3003 3004 ID 3005 NS 3006 3007 ID 3008 OP 3009 CL 300A OP 300B CL 300C OP 300D CL 300E OP 300F CL 3010 OP 3011 CL 3012 3013 ID 3014 OP 3015 CL 3016 OP 3017 CL 3018 OP 3019 CL 301A OP 301B CL 301C NS 301D OP 301E 301F CL 3020 3029 ID 302A 302F CM 3030 3034 ID 3035 CM 3036 303A ID 303B 303C NS 303D 303F ID 3041 CJ 3042 ID 3043 CJ 3044 ID 3045 CJ 3046 ID 3047 CJ 3048 ID 3049 CJ 304A 3062 ID 3063 CJ 3064 3082 ID 3083 CJ 3084 ID 3085 CJ 3086 ID 3087 CJ 3088 308D ID 308E CJ 308F 3094 ID 3095 3096 CJ 3099 309A CM 309B 309E NS 309F ID 30A0 NS 30A1 CJ 30A2 ID 30A3 CJ 30A4 ID 30A5 CJ 30A6 ID 30A7 CJ 30A8 ID 30A9 CJ 30AA 30C2 ID 30C3 CJ 30C4 30E2 ID 30E3 CJ 30E4 ID 30E5 CJ 30E6 ID 30E7 CJ 30E8 30ED ID 30EE CJ 30EF 30F4 ID 30F5 30F6 CJ 30F7 30FA ID 30FB NS 30FC CJ 30FD 30FE NS 30FF ID 3105 312F ID 3131 318E ID 3190 31E3 ID 31F0 31FF CJ 3200 321E ID 3220 3247 ID 3248 324F AI 3250 4DBF ID 4DC0 4DFF AL 4E00 A014 ID A015 NS A016 A48C ID A490 A4C6 ID A4D0 A4FD AL A4FE A4FF BA A500 A60C AL A60D BA A60E EX A60F BA A610 A61F AL A620 A629 NU A62A A62B AL A640 A66E AL A66F A672 CM A673 AL A674 A67D CM A67E A69D AL A69E A69F CM A6A0 A6EF AL A6F0 A6F1 CM A6F2 AL A6F3 A6F7 BA A700 A7BF AL A7C2 A7CA AL A7F5 A801 AL A802 CM A803 A805 AL A806 CM A807 A80A AL A80B CM A80C A822 AL A823 A827 CM A828 A82B AL A82C CM A830 A837 AL A838 PO A839 AL A840 A873 AL A874 A875 BB A876 A877 EX A880 A881 CM A882 A8B3 AL A8B4 A8C5 CM A8CE A8CF BA A8D0 A8D9 NU A8E0 A8F1 CM A8F2 A8FB AL A8FC BB A8FD A8FE AL A8FF CM A900 A909 NU A90A A925 AL A926 A92D CM A92E A92F BA A930 A946 AL A947 A953 CM A95F AL A960 A97C JL A980 A983 CM A984 A9B2 AL A9B3 A9C0 CM A9C1 A9C6 AL A9C7 A9C9 BA A9CA A9CD AL A9CF AL A9D0 A9D9 NU A9DE A9DF AL A9E0 A9EF SA A9F0 A9F9 NU A9FA A9FE SA AA00 AA28 AL AA29 AA36 CM AA40 AA42 AL AA43 CM AA44 AA4B AL AA4C AA4D CM AA50 AA59 NU AA5C AL AA5D AA5F BA AA60 AAC2 SA AADB AADF SA AAE0 AAEA AL AAEB AAEF CM AAF0 AAF1 BA AAF2 AAF4 AL AAF5 AAF6 CM AB01 AB06 AL AB09 AB0E AL AB11 AB16 AL AB20 AB26 AL AB28 AB2E AL AB30 AB6B AL AB70 ABE2 AL ABE3 ABEA CM ABEB BA ABEC ABED CM ABF0 ABF9 NU AC00 H2 AC01 AC1B H3 AC1C H2 AC1D AC37 H3 AC38 H2 AC39 AC53 H3 AC54 H2 AC55 AC6F H3 AC70 H2 AC71 AC8B H3 AC8C H2 AC8D ACA7 H3 ACA8 H2 ACA9 ACC3 H3 ACC4 H2 ACC5 ACDF H3 ACE0 H2 ACE1 ACFB H3 ACFC H2 ACFD AD17 H3 AD18 H2 AD19 AD33 H3 AD34 H2 AD35 AD4F H3 AD50 H2 AD51 AD6B H3 AD6C H2 AD6D AD87 H3 AD88 H2 AD89 ADA3 H3 ADA4 H2 ADA5 ADBF H3 ADC0 H2 ADC1 ADDB H3 ADDC H2 ADDD ADF7 H3 ADF8 H2 ADF9 AE13 H3 AE14 H2 AE15 AE2F H3 AE30 H2 AE31 AE4B H3 AE4C H2 AE4D AE67 H3 AE68 H2 AE69 AE83 H3 AE84 H2 AE85 AE9F H3 AEA0 H2 AEA1 AEBB H3 AEBC H2 AEBD AED7 H3 AED8 H2 AED9 AEF3 H3 AEF4 H2 AEF5 AF0F H3 AF10 H2 AF11 AF2B H3 AF2C H2 AF2D AF47 H3 AF48 H2 AF49 AF63 H3 AF64 H2 AF65 AF7F H3 AF80 H2 AF81 AF9B H3 AF9C H2 AF9D AFB7 H3 AFB8 H2 AFB9 AFD3 H3 AFD4 H2 AFD5 AFEF H3 AFF0 H2 AFF1 B00B H3 B00C H2 B00D B027 H3 B028 H2 B029 B043 H3 B044 H2 B045 B05F H3 B060 H2 B061 B07B H3 B07C H2 B07D B097 H3 B098 H2 B099 B0B3 H3 B0B4 H2 B0B5 B0CF H3 B0D0 H2 B0D1 B0EB H3 B0EC H2 B0ED B107 H3 B108 H2 B109 B123 H3 B124 H2 B125 B13F H3 B140 H2 B141 B15B H3 B15C H2 B15D B177 H3 B178 H2 B179 B193 H3 B194 H2 B195 B1AF H3 B1B0 H2 B1B1 B1CB H3 B1CC H2 B1CD B1E7 H3 B1E8 H2 B1E9 B203 H3 B204 H2 B205 B21F H3 B220 H2 B221 B23B H3 B23C H2 B23D B257 H3 B258 H2 B259 B273 H3 B274 H2 B275 B28F H3 B290 H2 B291 B2AB H3 B2AC H2 B2AD B2C7 H3 B2C8 H2 B2C9 B2E3 H3 B2E4 H2 B2E5 B2FF H3 B300 H2 B301 B31B H3 B31C H2 B31D B337 H3 B338 H2 B339 B353 H3 B354 H2 B355 B36F H3 B370 H2 B371 B38B H3 B38C H2 B38D B3A7 H3 B3A8 H2 B3A9 B3C3 H3 B3C4 H2 B3C5 B3DF H3 B3E0 H2 B3E1 B3FB H3 B3FC H2 B3FD B417 H3 B418 H2 B419 B433 H3 B434 H2 B435 B44F H3 B450 H2 B451 B46B H3 B46C H2 B46D B487 H3 B488 H2 B489 B4A3 H3 B4A4 H2 B4A5 B4BF H3 B4C0 H2 B4C1 B4DB H3 B4DC H2 B4DD B4F7 H3 B4F8 H2 B4F9 B513 H3 B514 H2 B515 B52F H3 B530 H2 B531 B54B H3 B54C H2 B54D B567 H3 B568 H2 B569 B583 H3 B584 H2 B585 B59F H3 B5A0 H2 B5A1 B5BB H3 B5BC H2 B5BD B5D7 H3 B5D8 H2 B5D9 B5F3 H3 B5F4 H2 B5F5 B60F H3 B610 H2 B611 B62B H3 B62C H2 B62D B647 H3 B648 H2 B649 B663 H3 B664 H2 B665 B67F H3 B680 H2 B681 B69B H3 B69C H2 B69D B6B7 H3 B6B8 H2 B6B9 B6D3 H3 B6D4 H2 B6D5 B6EF H3 B6F0 H2 B6F1 B70B H3 B70C H2 B70D B727 H3 B728 H2 B729 B743 H3 B744 H2 B745 B75F H3 B760 H2 B761 B77B H3 B77C H2 B77D B797 H3 B798 H2 B799 B7B3 H3 B7B4 H2 B7B5 B7CF H3 B7D0 H2 B7D1 B7EB H3 B7EC H2 B7ED B807 H3 B808 H2 B809 B823 H3 B824 H2 B825 B83F H3 B840 H2 B841 B85B H3 B85C H2 B85D B877 H3 B878 H2 B879 B893 H3 B894 H2 B895 B8AF H3 B8B0 H2 B8B1 B8CB H3 B8CC H2 B8CD B8E7 H3 B8E8 H2 B8E9 B903 H3 B904 H2 B905 B91F H3 B920 H2 B921 B93B H3 B93C H2 B93D B957 H3 B958 H2 B959 B973 H3 B974 H2 B975 B98F H3 B990 H2 B991 B9AB H3 B9AC H2 B9AD B9C7 H3 B9C8 H2 B9C9 B9E3 H3 B9E4 H2 B9E5 B9FF H3 BA00 H2 BA01 BA1B H3 BA1C H2 BA1D BA37 H3 BA38 H2 BA39 BA53 H3 BA54 H2 BA55 BA6F H3 BA70 H2 BA71 BA8B H3 BA8C H2 BA8D BAA7 H3 BAA8 H2 BAA9 BAC3 H3 BAC4 H2 BAC5 BADF H3 BAE0 H2 BAE1 BAFB H3 BAFC H2 BAFD BB17 H3 BB18 H2 BB19 BB33 H3 BB34 H2 BB35 BB4F H3 BB50 H2 BB51 BB6B H3 BB6C H2 BB6D BB87 H3 BB88 H2 BB89 BBA3 H3 BBA4 H2 BBA5 BBBF H3 BBC0 H2 BBC1 BBDB H3 BBDC H2 BBDD BBF7 H3 BBF8 H2 BBF9 BC13 H3 BC14 H2 BC15 BC2F H3 BC30 H2 BC31 BC4B H3 BC4C H2 BC4D BC67 H3 BC68 H2 BC69 BC83 H3 BC84 H2 BC85 BC9F H3 BCA0 H2 BCA1 BCBB H3 BCBC H2 BCBD BCD7 H3 BCD8 H2 BCD9 BCF3 H3 BCF4 H2 BCF5 BD0F H3 BD10 H2 BD11 BD2B H3 BD2C H2 BD2D BD47 H3 BD48 H2 BD49 BD63 H3 BD64 H2 BD65 BD7F H3 BD80 H2 BD81 BD9B H3 BD9C H2 BD9D BDB7 H3 BDB8 H2 BDB9 BDD3 H3 BDD4 H2 BDD5 BDEF H3 BDF0 H2 BDF1 BE0B H3 BE0C H2 BE0D BE27 H3 BE28 H2 BE29 BE43 H3 BE44 H2 BE45 BE5F H3 BE60 H2 BE61 BE7B H3 BE7C H2 BE7D BE97 H3 BE98 H2 BE99 BEB3 H3 BEB4 H2 BEB5 BECF H3 BED0 H2 BED1 BEEB H3 BEEC H2 BEED BF07 H3 BF08 H2 BF09 BF23 H3 BF24 H2 BF25 BF3F H3 BF40 H2 BF41 BF5B H3 BF5C H2 BF5D BF77 H3 BF78 H2 BF79 BF93 H3 BF94 H2 BF95 BFAF H3 BFB0 H2 BFB1 BFCB H3 BFCC H2 BFCD BFE7 H3 BFE8 H2 BFE9 C003 H3 C004 H2 C005 C01F H3 C020 H2 C021 C03B H3 C03C H2 C03D C057 H3 C058 H2 C059 C073 H3 C074 H2 C075 C08F H3 C090 H2 C091 C0AB H3 C0AC H2 C0AD C0C7 H3 C0C8 H2 C0C9 C0E3 H3 C0E4 H2 C0E5 C0FF H3 C100 H2 C101 C11B H3 C11C H2 C11D C137 H3 C138 H2 C139 C153 H3 C154 H2 C155 C16F H3 C170 H2 C171 C18B H3 C18C H2 C18D C1A7 H3 C1A8 H2 C1A9 C1C3 H3 C1C4 H2 C1C5 C1DF H3 C1E0 H2 C1E1 C1FB H3 C1FC H2 C1FD C217 H3 C218 H2 C219 C233 H3 C234 H2 C235 C24F H3 C250 H2 C251 C26B H3 C26C H2 C26D C287 H3 C288 H2 C289 C2A3 H3 C2A4 H2 C2A5 C2BF H3 C2C0 H2 C2C1 C2DB H3 C2DC H2 C2DD C2F7 H3 C2F8 H2 C2F9 C313 H3 C314 H2 C315 C32F H3 C330 H2 C331 C34B H3 C34C H2 C34D C367 H3 C368 H2 C369 C383 H3 C384 H2 C385 C39F H3 C3A0 H2 C3A1 C3BB H3 C3BC H2 C3BD C3D7 H3 C3D8 H2 C3D9 C3F3 H3 C3F4 H2 C3F5 C40F H3 C410 H2 C411 C42B H3 C42C H2 C42D C447 H3 C448 H2 C449 C463 H3 C464 H2 C465 C47F H3 C480 H2 C481 C49B H3 C49C H2 C49D C4B7 H3 C4B8 H2 C4B9 C4D3 H3 C4D4 H2 C4D5 C4EF H3 C4F0 H2 C4F1 C50B H3 C50C H2 C50D C527 H3 C528 H2 C529 C543 H3 C544 H2 C545 C55F H3 C560 H2 C561 C57B H3 C57C H2 C57D C597 H3 C598 H2 C599 C5B3 H3 C5B4 H2 C5B5 C5CF H3 C5D0 H2 C5D1 C5EB H3 C5EC H2 C5ED C607 H3 C608 H2 C609 C623 H3 C624 H2 C625 C63F H3 C640 H2 C641 C65B H3 C65C H2 C65D C677 H3 C678 H2 C679 C693 H3 C694 H2 C695 C6AF H3 C6B0 H2 C6B1 C6CB H3 C6CC H2 C6CD C6E7 H3 C6E8 H2 C6E9 C703 H3 C704 H2 C705 C71F H3 C720 H2 C721 C73B H3 C73C H2 C73D C757 H3 C758 H2 C759 C773 H3 C774 H2 C775 C78F H3 C790 H2 C791 C7AB H3 C7AC H2 C7AD C7C7 H3 C7C8 H2 C7C9 C7E3 H3 C7E4 H2 C7E5 C7FF H3 C800 H2 C801 C81B H3 C81C H2 C81D C837 H3 C838 H2 C839 C853 H3 C854 H2 C855 C86F H3 C870 H2 C871 C88B H3 C88C H2 C88D C8A7 H3 C8A8 H2 C8A9 C8C3 H3 C8C4 H2 C8C5 C8DF H3 C8E0 H2 C8E1 C8FB H3 C8FC H2 C8FD C917 H3 C918 H2 C919 C933 H3 C934 H2 C935 C94F H3 C950 H2 C951 C96B H3 C96C H2 C96D C987 H3 C988 H2 C989 C9A3 H3 C9A4 H2 C9A5 C9BF H3 C9C0 H2 C9C1 C9DB H3 C9DC H2 C9DD C9F7 H3 C9F8 H2 C9F9 CA13 H3 CA14 H2 CA15 CA2F H3 CA30 H2 CA31 CA4B H3 CA4C H2 CA4D CA67 H3 CA68 H2 CA69 CA83 H3 CA84 H2 CA85 CA9F H3 CAA0 H2 CAA1 CABB H3 CABC H2 CABD CAD7 H3 CAD8 H2 CAD9 CAF3 H3 CAF4 H2 CAF5 CB0F H3 CB10 H2 CB11 CB2B H3 CB2C H2 CB2D CB47 H3 CB48 H2 CB49 CB63 H3 CB64 H2 CB65 CB7F H3 CB80 H2 CB81 CB9B H3 CB9C H2 CB9D CBB7 H3 CBB8 H2 CBB9 CBD3 H3 CBD4 H2 CBD5 CBEF H3 CBF0 H2 CBF1 CC0B H3 CC0C H2 CC0D CC27 H3 CC28 H2 CC29 CC43 H3 CC44 H2 CC45 CC5F H3 CC60 H2 CC61 CC7B H3 CC7C H2 CC7D CC97 H3 CC98 H2 CC99 CCB3 H3 CCB4 H2 CCB5 CCCF H3 CCD0 H2 CCD1 CCEB H3 CCEC H2 CCED CD07 H3 CD08 H2 CD09 CD23 H3 CD24 H2 CD25 CD3F H3 CD40 H2 CD41 CD5B H3 CD5C H2 CD5D CD77 H3 CD78 H2 CD79 CD93 H3 CD94 H2 CD95 CDAF H3 CDB0 H2 CDB1 CDCB H3 CDCC H2 CDCD CDE7 H3 CDE8 H2 CDE9 CE03 H3 CE04 H2 CE05 CE1F H3 CE20 H2 CE21 CE3B H3 CE3C H2 CE3D CE57 H3 CE58 H2 CE59 CE73 H3 CE74 H2 CE75 CE8F H3 CE90 H2 CE91 CEAB H3 CEAC H2 CEAD CEC7 H3 CEC8 H2 CEC9 CEE3 H3 CEE4 H2 CEE5 CEFF H3 CF00 H2 CF01 CF1B H3 CF1C H2 CF1D CF37 H3 CF38 H2 CF39 CF53 H3 CF54 H2 CF55 CF6F H3 CF70 H2 CF71 CF8B H3 CF8C H2 CF8D CFA7 H3 CFA8 H2 CFA9 CFC3 H3 CFC4 H2 CFC5 CFDF H3 CFE0 H2 CFE1 CFFB H3 CFFC H2 CFFD D017 H3 D018 H2 D019 D033 H3 D034 H2 D035 D04F H3 D050 H2 D051 D06B H3 D06C H2 D06D D087 H3 D088 H2 D089 D0A3 H3 D0A4 H2 D0A5 D0BF H3 D0C0 H2 D0C1 D0DB H3 D0DC H2 D0DD D0F7 H3 D0F8 H2 D0F9 D113 H3 D114 H2 D115 D12F H3 D130 H2 D131 D14B H3 D14C H2 D14D D167 H3 D168 H2 D169 D183 H3 D184 H2 D185 D19F H3 D1A0 H2 D1A1 D1BB H3 D1BC H2 D1BD D1D7 H3 D1D8 H2 D1D9 D1F3 H3 D1F4 H2 D1F5 D20F H3 D210 H2 D211 D22B H3 D22C H2 D22D D247 H3 D248 H2 D249 D263 H3 D264 H2 D265 D27F H3 D280 H2 D281 D29B H3 D29C H2 D29D D2B7 H3 D2B8 H2 D2B9 D2D3 H3 D2D4 H2 D2D5 D2EF H3 D2F0 H2 D2F1 D30B H3 D30C H2 D30D D327 H3 D328 H2 D329 D343 H3 D344 H2 D345 D35F H3 D360 H2 D361 D37B H3 D37C H2 D37D D397 H3 D398 H2 D399 D3B3 H3 D3B4 H2 D3B5 D3CF H3 D3D0 H2 D3D1 D3EB H3 D3EC H2 D3ED D407 H3 D408 H2 D409 D423 H3 D424 H2 D425 D43F H3 D440 H2 D441 D45B H3 D45C H2 D45D D477 H3 D478 H2 D479 D493 H3 D494 H2 D495 D4AF H3 D4B0 H2 D4B1 D4CB H3 D4CC H2 D4CD D4E7 H3 D4E8 H2 D4E9 D503 H3 D504 H2 D505 D51F H3 D520 H2 D521 D53B H3 D53C H2 D53D D557 H3 D558 H2 D559 D573 H3 D574 H2 D575 D58F H3 D590 H2 D591 D5AB H3 D5AC H2 D5AD D5C7 H3 D5C8 H2 D5C9 D5E3 H3 D5E4 H2 D5E5 D5FF H3 D600 H2 D601 D61B H3 D61C H2 D61D D637 H3 D638 H2 D639 D653 H3 D654 H2 D655 D66F H3 D670 H2 D671 D68B H3 D68C H2 D68D D6A7 H3 D6A8 H2 D6A9 D6C3 H3 D6C4 H2 D6C5 D6DF H3 D6E0 H2 D6E1 D6FB H3 D6FC H2 D6FD D717 H3 D718 H2 D719 D733 H3 D734 H2 D735 D74F H3 D750 H2 D751 D76B H3 D76C H2 D76D D787 H3 D788 H2 D789 D7A3 H3 D7B0 D7C6 JV D7CB D7FB JT D800 DFFF SG F900 FAFF ID FB00 FB06 AL FB13 FB17 AL FB1D HL FB1E CM FB1F FB28 HL FB29 AL FB2A FB36 HL FB38 FB3C HL FB3E HL FB40 FB41 HL FB43 FB44 HL FB46 FB4F HL FB50 FBC1 AL FBD3 FD3D AL FD3E CL FD3F OP FD50 FD8F AL FD92 FDC7 AL FDF0 FDFB AL FDFC PO FDFD AL FE00 FE0F CM FE10 IS FE11 FE12 CL FE13 FE14 IS FE15 FE16 EX FE17 OP FE18 CL FE19 IN FE20 FE2F CM FE30 FE34 ID FE35 OP FE36 CL FE37 OP FE38 CL FE39 OP FE3A CL FE3B OP FE3C CL FE3D OP FE3E CL FE3F OP FE40 CL FE41 OP FE42 CL FE43 OP FE44 CL FE45 FE46 ID FE47 OP FE48 CL FE49 FE4F ID FE50 CL FE51 ID FE52 CL FE54 FE55 NS FE56 FE57 EX FE58 ID FE59 OP FE5A CL FE5B OP FE5C CL FE5D OP FE5E CL FE5F FE66 ID FE68 ID FE69 PR FE6A PO FE6B ID FE70 FE74 AL FE76 FEFC AL FEFF WJ FF01 EX FF02 FF03 ID FF04 PR FF05 PO FF06 FF07 ID FF08 OP FF09 CL FF0A FF0B ID FF0C CL FF0D ID FF0E CL FF0F FF19 ID FF1A FF1B NS FF1C FF1E ID FF1F EX FF20 FF3A ID FF3B OP FF3C ID FF3D CL FF3E FF5A ID FF5B OP FF5C ID FF5D CL FF5E ID FF5F OP FF60 FF61 CL FF62 OP FF63 FF64 CL FF65 NS FF66 ID FF67 FF70 CJ FF71 FF9D ID FF9E FF9F NS FFA0 FFBE ID FFC2 FFC7 ID FFCA FFCF ID FFD2 FFD7 ID FFDA FFDC ID FFE0 PO FFE1 PR FFE2 FFE4 ID FFE5 FFE6 PR FFE8 FFEE AL FFF9 FFFB CM FFFC CB FFFD AI 10000 1000B AL 1000D 10026 AL 10028 1003A AL 1003C 1003D AL 1003F 1004D AL 10050 1005D AL 10080 100FA AL 10100 10102 BA 10107 10133 AL 10137 1018E AL 10190 1019C AL 101A0 AL 101D0 101FC AL 101FD CM 10280 1029C AL 102A0 102D0 AL 102E0 CM 102E1 102FB AL 10300 10323 AL 1032D 1034A AL 10350 10375 AL 10376 1037A CM 10380 1039D AL 1039F BA 103A0 103C3 AL 103C8 103CF AL 103D0 BA 103D1 103D5 AL 10400 1049D AL 104A0 104A9 NU 104B0 104D3 AL 104D8 104FB AL 10500 10527 AL 10530 10563 AL 1056F AL 10600 10736 AL 10740 10755 AL 10760 10767 AL 10800 10805 AL 10808 AL 1080A 10835 AL 10837 10838 AL 1083C AL 1083F 10855 AL 10857 BA 10858 1089E AL 108A7 108AF AL 108E0 108F2 AL 108F4 108F5 AL 108FB 1091B AL 1091F BA 10920 10939 AL 1093F AL 10980 109B7 AL 109BC 109CF AL 109D2 10A00 AL 10A01 10A03 CM 10A05 10A06 CM 10A0C 10A0F CM 10A10 10A13 AL 10A15 10A17 AL 10A19 10A35 AL 10A38 10A3A CM 10A3F CM 10A40 10A48 AL 10A50 10A57 BA 10A58 AL 10A60 10A9F AL 10AC0 10AE4 AL 10AE5 10AE6 CM 10AEB 10AEF AL 10AF0 10AF5 BA 10AF6 IN 10B00 10B35 AL 10B39 10B3F BA 10B40 10B55 AL 10B58 10B72 AL 10B78 10B91 AL 10B99 10B9C AL 10BA9 10BAF AL 10C00 10C48 AL 10C80 10CB2 AL 10CC0 10CF2 AL 10CFA 10D23 AL 10D24 10D27 CM 10D30 10D39 NU 10E60 10E7E AL 10E80 10EA9 AL 10EAB 10EAC CM 10EAD BA 10EB0 10EB1 AL 10F00 10F27 AL 10F30 10F45 AL 10F46 10F50 CM 10F51 10F59 AL 10FB0 10FCB AL 10FE0 10FF6 AL 11000 11002 CM 11003 11037 AL 11038 11046 CM 11047 11048 BA 11049 1104D AL 11052 11065 AL 11066 1106F NU 1107F 11082 CM 11083 110AF AL 110B0 110BA CM 110BB 110BD AL 110BE 110C1 BA 110CD AL 110D0 110E8 AL 110F0 110F9 NU 11100 11102 CM 11103 11126 AL 11127 11134 CM 11136 1113F NU 11140 11143 BA 11144 AL 11145 11146 CM 11147 AL 11150 11172 AL 11173 CM 11174 AL 11175 BB 11176 AL 11180 11182 CM 11183 111B2 AL 111B3 111C0 CM 111C1 111C4 AL 111C5 111C6 BA 111C7 AL 111C8 BA 111C9 111CC CM 111CD AL 111CE 111CF CM 111D0 111D9 NU 111DA AL 111DB BB 111DC AL 111DD 111DF BA 111E1 111F4 AL 11200 11211 AL 11213 1122B AL 1122C 11237 CM 11238 11239 BA 1123A AL 1123B 1123C BA 1123D AL 1123E CM 11280 11286 AL 11288 AL 1128A 1128D AL 1128F 1129D AL 1129F 112A8 AL 112A9 BA 112B0 112DE AL 112DF 112EA CM 112F0 112F9 NU 11300 11303 CM 11305 1130C AL 1130F 11310 AL 11313 11328 AL 1132A 11330 AL 11332 11333 AL 11335 11339 AL 1133B 1133C CM 1133D AL 1133E 11344 CM 11347 11348 CM 1134B 1134D CM 11350 AL 11357 CM 1135D 11361 AL 11362 11363 CM 11366 1136C CM 11370 11374 CM 11400 11434 AL 11435 11446 CM 11447 1144A AL 1144B 1144E BA 1144F AL 11450 11459 NU 1145A 1145B BA 1145D AL 1145E CM 1145F 11461 AL 11480 114AF AL 114B0 114C3 CM 114C4 114C7 AL 114D0 114D9 NU 11580 115AE AL 115AF 115B5 CM 115B8 115C0 CM 115C1 BB 115C2 115C3 BA 115C4 115C5 EX 115C6 115C8 AL 115C9 115D7 BA 115D8 115DB AL 115DC 115DD CM 11600 1162F AL 11630 11640 CM 11641 11642 BA 11643 11644 AL 11650 11659 NU 11660 1166C BB 11680 116AA AL 116AB 116B7 CM 116B8 AL 116C0 116C9 NU 11700 1171A SA 1171D 1172B SA 11730 11739 NU 1173A 1173B SA 1173C 1173E BA 1173F SA 11800 1182B AL 1182C 1183A CM 1183B AL 118A0 118DF AL 118E0 118E9 NU 118EA 118F2 AL 118FF 11906 AL 11909 AL 1190C 11913 AL 11915 11916 AL 11918 1192F AL 11930 11935 CM 11937 11938 CM 1193B 1193E CM 1193F AL 11940 CM 11941 AL 11942 11943 CM 11944 11946 BA 11950 11959 NU 119A0 119A7 AL 119AA 119D0 AL 119D1 119D7 CM 119DA 119E0 CM 119E1 AL 119E2 BB 119E3 AL 119E4 CM 11A00 AL 11A01 11A0A CM 11A0B 11A32 AL 11A33 11A39 CM 11A3A AL 11A3B 11A3E CM 11A3F BB 11A40 AL 11A41 11A44 BA 11A45 BB 11A46 AL 11A47 CM 11A50 AL 11A51 11A5B CM 11A5C 11A89 AL 11A8A 11A99 CM 11A9A 11A9C BA 11A9D AL 11A9E 11AA0 BB 11AA1 11AA2 BA 11AC0 11AF8 AL 11C00 11C08 AL 11C0A 11C2E AL 11C2F 11C36 CM 11C38 11C3F CM 11C40 AL 11C41 11C45 BA 11C50 11C59 NU 11C5A 11C6C AL 11C70 BB 11C71 EX 11C72 11C8F AL 11C92 11CA7 CM 11CA9 11CB6 CM 11D00 11D06 AL 11D08 11D09 AL 11D0B 11D30 AL 11D31 11D36 CM 11D3A CM 11D3C 11D3D CM 11D3F 11D45 CM 11D46 AL 11D47 CM 11D50 11D59 NU 11D60 11D65 AL 11D67 11D68 AL 11D6A 11D89 AL 11D8A 11D8E CM 11D90 11D91 CM 11D93 11D97 CM 11D98 AL 11DA0 11DA9 NU 11EE0 11EF2 AL 11EF3 11EF6 CM 11EF7 11EF8 AL 11FB0 AL 11FC0 11FDC AL 11FDD 11FE0 PO 11FE1 11FF1 AL 11FFF BA 12000 12399 AL 12400 1246E AL 12470 12474 BA 12480 12543 AL 13000 13257 AL 13258 1325A OP 1325B 1325D CL 1325E 13281 AL 13282 CL 13283 13285 AL 13286 OP 13287 CL 13288 OP 13289 CL 1328A 13378 AL 13379 OP 1337A 1337B CL 1337C 1342E AL 13430 13436 GL 13437 OP 13438 CL 14400 145CD AL 145CE OP 145CF CL 145D0 14646 AL 16800 16A38 AL 16A40 16A5E AL 16A60 16A69 NU 16A6E 16A6F BA 16AD0 16AED AL 16AF0 16AF4 CM 16AF5 BA 16B00 16B2F AL 16B30 16B36 CM 16B37 16B39 BA 16B3A 16B43 AL 16B44 BA 16B45 AL 16B50 16B59 NU 16B5B 16B61 AL 16B63 16B77 AL 16B7D 16B8F AL 16E40 16E96 AL 16E97 16E98 BA 16E99 16E9A AL 16F00 16F4A AL 16F4F CM 16F50 AL 16F51 16F87 CM 16F8F 16F92 CM 16F93 16F9F AL 16FE0 16FE3 NS 16FE4 GL 16FF0 16FF1 CM 17000 187F7 ID 18800 18AFF ID 18B00 18CD5 AL 18D00 18D08 ID 1B000 1B11E ID 1B150 1B152 CJ 1B164 1B167 CJ 1B170 1B2FB ID 1BC00 1BC6A AL 1BC70 1BC7C AL 1BC80 1BC88 AL 1BC90 1BC99 AL 1BC9C AL 1BC9D 1BC9E CM 1BC9F BA 1BCA0 1BCA3 CM 1D000 1D0F5 AL 1D100 1D126 AL 1D129 1D164 AL 1D165 1D169 CM 1D16A 1D16C AL 1D16D 1D182 CM 1D183 1D184 AL 1D185 1D18B CM 1D18C 1D1A9 AL 1D1AA 1D1AD CM 1D1AE 1D1E8 AL 1D200 1D241 AL 1D242 1D244 CM 1D245 AL 1D2E0 1D2F3 AL 1D300 1D356 AL 1D360 1D378 AL 1D400 1D454 AL 1D456 1D49C AL 1D49E 1D49F AL 1D4A2 AL 1D4A5 1D4A6 AL 1D4A9 1D4AC AL 1D4AE 1D4B9 AL 1D4BB AL 1D4BD 1D4C3 AL 1D4C5 1D505 AL 1D507 1D50A AL 1D50D 1D514 AL 1D516 1D51C AL 1D51E 1D539 AL 1D53B 1D53E AL 1D540 1D544 AL 1D546 AL 1D54A 1D550 AL 1D552 1D6A5 AL 1D6A8 1D7CB AL 1D7CE 1D7FF NU 1D800 1D9FF AL 1DA00 1DA36 CM 1DA37 1DA3A AL 1DA3B 1DA6C CM 1DA6D 1DA74 AL 1DA75 CM 1DA76 1DA83 AL 1DA84 CM 1DA85 1DA86 AL 1DA87 1DA8A BA 1DA8B AL 1DA9B 1DA9F CM 1DAA1 1DAAF CM 1E000 1E006 CM 1E008 1E018 CM 1E01B 1E021 CM 1E023 1E024 CM 1E026 1E02A CM 1E100 1E12C AL 1E130 1E136 CM 1E137 1E13D AL 1E140 1E149 NU 1E14E 1E14F AL 1E2C0 1E2EB AL 1E2EC 1E2EF CM 1E2F0 1E2F9 NU 1E2FF PR 1E800 1E8C4 AL 1E8C7 1E8CF AL 1E8D0 1E8D6 CM 1E900 1E943 AL 1E944 1E94A CM 1E94B AL 1E950 1E959 NU 1E95E 1E95F OP 1EC71 1ECAB AL 1ECAC PO 1ECAD 1ECAF AL 1ECB0 PO 1ECB1 1ECB4 AL 1ED01 1ED3D AL 1EE00 1EE03 AL 1EE05 1EE1F AL 1EE21 1EE22 AL 1EE24 AL 1EE27 AL 1EE29 1EE32 AL 1EE34 1EE37 AL 1EE39 AL 1EE3B AL 1EE42 AL 1EE47 AL 1EE49 AL 1EE4B AL 1EE4D 1EE4F AL 1EE51 1EE52 AL 1EE54 AL 1EE57 AL 1EE59 AL 1EE5B AL 1EE5D AL 1EE5F AL 1EE61 1EE62 AL 1EE64 AL 1EE67 1EE6A AL 1EE6C 1EE72 AL 1EE74 1EE77 AL 1EE79 1EE7C AL 1EE7E AL 1EE80 1EE89 AL 1EE8B 1EE9B AL 1EEA1 1EEA3 AL 1EEA5 1EEA9 AL 1EEAB 1EEBB AL 1EEF0 1EEF1 AL 1F000 1F0FF ID 1F100 1F10C AI 1F10D 1F10F ID 1F110 1F12D AI 1F12E 1F12F AL 1F130 1F169 AI 1F16A 1F16C AL 1F16D 1F16F ID 1F170 1F1AC AI 1F1AD 1F1E5 ID 1F1E6 1F1FF RI 1F200 1F384 ID 1F385 EB 1F386 1F39B ID 1F39C 1F39D AL 1F39E 1F3B4 ID 1F3B5 1F3B6 AL 1F3B7 1F3BB ID 1F3BC AL 1F3BD 1F3C1 ID 1F3C2 1F3C4 EB 1F3C5 1F3C6 ID 1F3C7 EB 1F3C8 1F3C9 ID 1F3CA 1F3CC EB 1F3CD 1F3FA ID 1F3FB 1F3FF EM 1F400 1F441 ID 1F442 1F443 EB 1F444 1F445 ID 1F446 1F450 EB 1F451 1F465 ID 1F466 1F478 EB 1F479 1F47B ID 1F47C EB 1F47D 1F480 ID 1F481 1F483 EB 1F484 ID 1F485 1F487 EB 1F488 1F48E ID 1F48F EB 1F490 ID 1F491 EB 1F492 1F49F ID 1F4A0 AL 1F4A1 ID 1F4A2 AL 1F4A3 ID 1F4A4 AL 1F4A5 1F4A9 ID 1F4AA EB 1F4AB 1F4AE ID 1F4AF AL 1F4B0 ID 1F4B1 1F4B2 AL 1F4B3 1F4FF ID 1F500 1F506 AL 1F507 1F516 ID 1F517 1F524 AL 1F525 1F531 ID 1F532 1F549 AL 1F54A 1F573 ID 1F574 1F575 EB 1F576 1F579 ID 1F57A EB 1F57B 1F58F ID 1F590 EB 1F591 1F594 ID 1F595 1F596 EB 1F597 1F5D3 ID 1F5D4 1F5DB AL 1F5DC 1F5F3 ID 1F5F4 1F5F9 AL 1F5FA 1F644 ID 1F645 1F647 EB 1F648 1F64A ID 1F64B 1F64F EB 1F650 1F675 AL 1F676 1F678 QU 1F679 1F67B NS 1F67C 1F67F AL 1F680 1F6A2 ID 1F6A3 EB 1F6A4 1F6B3 ID 1F6B4 1F6B6 EB 1F6B7 1F6BF ID 1F6C0 EB 1F6C1 1F6CB ID 1F6CC EB 1F6CD 1F6FF ID 1F700 1F773 AL 1F774 1F77F ID 1F780 1F7D4 AL 1F7D5 1F7FF ID 1F800 1F80B AL 1F80C 1F80F ID 1F810 1F847 AL 1F848 1F84F ID 1F850 1F859 AL 1F85A 1F85F ID 1F860 1F887 AL 1F888 1F88F ID 1F890 1F8AD AL 1F8AE 1F8FF ID 1F900 1F90B AL 1F90C EB 1F90D 1F90E ID 1F90F EB 1F910 1F917 ID 1F918 1F91F EB 1F920 1F925 ID 1F926 EB 1F927 1F92F ID 1F930 1F939 EB 1F93A 1F93B ID 1F93C 1F93E EB 1F93F 1F976 ID 1F977 EB 1F978 1F9B4 ID 1F9B5 1F9B6 EB 1F9B7 ID 1F9B8 1F9B9 EB 1F9BA ID 1F9BB EB 1F9BC 1F9CC ID 1F9CD 1F9CF EB 1F9D0 ID 1F9D1 1F9DD EB 1F9DE 1F9FF ID 1FA00 1FA53 AL 1FA54 1FAFF ID 1FB00 1FB92 AL 1FB94 1FBCA AL 1FBF0 1FBF9 NU 1FC00 1FFFD ID 20000 2FFFD ID 30000 3FFFD ID E0001 CM E0020 E007F CM E0100 E01EF CM END PK ! }�� � 5.34.0/unicore/To/Digit.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! IT IS DEPRECATED TO USE THIS FILE !!!!!!! # This file is for internal use by core Perl only. It is retained for # backwards compatibility with applications that may have come to rely on it, # but its format and even its name or existence are subject to change without # notice in a future Perl version. Don't use it directly. Instead, its # contents are now retrievable through a stable API in the Unicode::UCD # module: Unicode::UCD::prop_invmap('Perl_Decimal_Digit') (Values for individual # code points can be retrieved via Unicode::UCD::charprop()); # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToDigit'}{'format'} = 'd'; # single decimal digit $Unicode::UCD::SwashInfo{'ToDigit'}{'missing'} = ''; # code point maps to the null string return <<'END'; 0030 0 0031 1 0032 2 0033 3 0034 4 0035 5 0036 6 0037 7 0038 8 0039 9 0660 0 0661 1 0662 2 0663 3 0664 4 0665 5 0666 6 0667 7 0668 8 0669 9 06F0 0 06F1 1 06F2 2 06F3 3 06F4 4 06F5 5 06F6 6 06F7 7 06F8 8 06F9 9 07C0 0 07C1 1 07C2 2 07C3 3 07C4 4 07C5 5 07C6 6 07C7 7 07C8 8 07C9 9 0966 0 0967 1 0968 2 0969 3 096A 4 096B 5 096C 6 096D 7 096E 8 096F 9 09E6 0 09E7 1 09E8 2 09E9 3 09EA 4 09EB 5 09EC 6 09ED 7 09EE 8 09EF 9 0A66 0 0A67 1 0A68 2 0A69 3 0A6A 4 0A6B 5 0A6C 6 0A6D 7 0A6E 8 0A6F 9 0AE6 0 0AE7 1 0AE8 2 0AE9 3 0AEA 4 0AEB 5 0AEC 6 0AED 7 0AEE 8 0AEF 9 0B66 0 0B67 1 0B68 2 0B69 3 0B6A 4 0B6B 5 0B6C 6 0B6D 7 0B6E 8 0B6F 9 0BE6 0 0BE7 1 0BE8 2 0BE9 3 0BEA 4 0BEB 5 0BEC 6 0BED 7 0BEE 8 0BEF 9 0C66 0 0C67 1 0C68 2 0C69 3 0C6A 4 0C6B 5 0C6C 6 0C6D 7 0C6E 8 0C6F 9 0CE6 0 0CE7 1 0CE8 2 0CE9 3 0CEA 4 0CEB 5 0CEC 6 0CED 7 0CEE 8 0CEF 9 0D66 0 0D67 1 0D68 2 0D69 3 0D6A 4 0D6B 5 0D6C 6 0D6D 7 0D6E 8 0D6F 9 0DE6 0 0DE7 1 0DE8 2 0DE9 3 0DEA 4 0DEB 5 0DEC 6 0DED 7 0DEE 8 0DEF 9 0E50 0 0E51 1 0E52 2 0E53 3 0E54 4 0E55 5 0E56 6 0E57 7 0E58 8 0E59 9 0ED0 0 0ED1 1 0ED2 2 0ED3 3 0ED4 4 0ED5 5 0ED6 6 0ED7 7 0ED8 8 0ED9 9 0F20 0 0F21 1 0F22 2 0F23 3 0F24 4 0F25 5 0F26 6 0F27 7 0F28 8 0F29 9 1040 0 1041 1 1042 2 1043 3 1044 4 1045 5 1046 6 1047 7 1048 8 1049 9 1090 0 1091 1 1092 2 1093 3 1094 4 1095 5 1096 6 1097 7 1098 8 1099 9 17E0 0 17E1 1 17E2 2 17E3 3 17E4 4 17E5 5 17E6 6 17E7 7 17E8 8 17E9 9 1810 0 1811 1 1812 2 1813 3 1814 4 1815 5 1816 6 1817 7 1818 8 1819 9 1946 0 1947 1 1948 2 1949 3 194A 4 194B 5 194C 6 194D 7 194E 8 194F 9 19D0 0 19D1 1 19D2 2 19D3 3 19D4 4 19D5 5 19D6 6 19D7 7 19D8 8 19D9 9 1A80 0 1A81 1 1A82 2 1A83 3 1A84 4 1A85 5 1A86 6 1A87 7 1A88 8 1A89 9 1A90 0 1A91 1 1A92 2 1A93 3 1A94 4 1A95 5 1A96 6 1A97 7 1A98 8 1A99 9 1B50 0 1B51 1 1B52 2 1B53 3 1B54 4 1B55 5 1B56 6 1B57 7 1B58 8 1B59 9 1BB0 0 1BB1 1 1BB2 2 1BB3 3 1BB4 4 1BB5 5 1BB6 6 1BB7 7 1BB8 8 1BB9 9 1C40 0 1C41 1 1C42 2 1C43 3 1C44 4 1C45 5 1C46 6 1C47 7 1C48 8 1C49 9 1C50 0 1C51 1 1C52 2 1C53 3 1C54 4 1C55 5 1C56 6 1C57 7 1C58 8 1C59 9 A620 0 A621 1 A622 2 A623 3 A624 4 A625 5 A626 6 A627 7 A628 8 A629 9 A8D0 0 A8D1 1 A8D2 2 A8D3 3 A8D4 4 A8D5 5 A8D6 6 A8D7 7 A8D8 8 A8D9 9 A900 0 A901 1 A902 2 A903 3 A904 4 A905 5 A906 6 A907 7 A908 8 A909 9 A9D0 0 A9D1 1 A9D2 2 A9D3 3 A9D4 4 A9D5 5 A9D6 6 A9D7 7 A9D8 8 A9D9 9 A9F0 0 A9F1 1 A9F2 2 A9F3 3 A9F4 4 A9F5 5 A9F6 6 A9F7 7 A9F8 8 A9F9 9 AA50 0 AA51 1 AA52 2 AA53 3 AA54 4 AA55 5 AA56 6 AA57 7 AA58 8 AA59 9 ABF0 0 ABF1 1 ABF2 2 ABF3 3 ABF4 4 ABF5 5 ABF6 6 ABF7 7 ABF8 8 ABF9 9 FF10 0 FF11 1 FF12 2 FF13 3 FF14 4 FF15 5 FF16 6 FF17 7 FF18 8 FF19 9 104A0 0 104A1 1 104A2 2 104A3 3 104A4 4 104A5 5 104A6 6 104A7 7 104A8 8 104A9 9 10D30 0 10D31 1 10D32 2 10D33 3 10D34 4 10D35 5 10D36 6 10D37 7 10D38 8 10D39 9 11066 0 11067 1 11068 2 11069 3 1106A 4 1106B 5 1106C 6 1106D 7 1106E 8 1106F 9 110F0 0 110F1 1 110F2 2 110F3 3 110F4 4 110F5 5 110F6 6 110F7 7 110F8 8 110F9 9 11136 0 11137 1 11138 2 11139 3 1113A 4 1113B 5 1113C 6 1113D 7 1113E 8 1113F 9 111D0 0 111D1 1 111D2 2 111D3 3 111D4 4 111D5 5 111D6 6 111D7 7 111D8 8 111D9 9 112F0 0 112F1 1 112F2 2 112F3 3 112F4 4 112F5 5 112F6 6 112F7 7 112F8 8 112F9 9 11450 0 11451 1 11452 2 11453 3 11454 4 11455 5 11456 6 11457 7 11458 8 11459 9 114D0 0 114D1 1 114D2 2 114D3 3 114D4 4 114D5 5 114D6 6 114D7 7 114D8 8 114D9 9 11650 0 11651 1 11652 2 11653 3 11654 4 11655 5 11656 6 11657 7 11658 8 11659 9 116C0 0 116C1 1 116C2 2 116C3 3 116C4 4 116C5 5 116C6 6 116C7 7 116C8 8 116C9 9 11730 0 11731 1 11732 2 11733 3 11734 4 11735 5 11736 6 11737 7 11738 8 11739 9 118E0 0 118E1 1 118E2 2 118E3 3 118E4 4 118E5 5 118E6 6 118E7 7 118E8 8 118E9 9 11950 0 11951 1 11952 2 11953 3 11954 4 11955 5 11956 6 11957 7 11958 8 11959 9 11C50 0 11C51 1 11C52 2 11C53 3 11C54 4 11C55 5 11C56 6 11C57 7 11C58 8 11C59 9 11D50 0 11D51 1 11D52 2 11D53 3 11D54 4 11D55 5 11D56 6 11D57 7 11D58 8 11D59 9 11DA0 0 11DA1 1 11DA2 2 11DA3 3 11DA4 4 11DA5 5 11DA6 6 11DA7 7 11DA8 8 11DA9 9 16A60 0 16A61 1 16A62 2 16A63 3 16A64 4 16A65 5 16A66 6 16A67 7 16A68 8 16A69 9 16B50 0 16B51 1 16B52 2 16B53 3 16B54 4 16B55 5 16B56 6 16B57 7 16B58 8 16B59 9 1D7CE 0 1D7CF 1 1D7D0 2 1D7D1 3 1D7D2 4 1D7D3 5 1D7D4 6 1D7D5 7 1D7D6 8 1D7D7 9 1D7D8 0 1D7D9 1 1D7DA 2 1D7DB 3 1D7DC 4 1D7DD 5 1D7DE 6 1D7DF 7 1D7E0 8 1D7E1 9 1D7E2 0 1D7E3 1 1D7E4 2 1D7E5 3 1D7E6 4 1D7E7 5 1D7E8 6 1D7E9 7 1D7EA 8 1D7EB 9 1D7EC 0 1D7ED 1 1D7EE 2 1D7EF 3 1D7F0 4 1D7F1 5 1D7F2 6 1D7F3 7 1D7F4 8 1D7F5 9 1D7F6 0 1D7F7 1 1D7F8 2 1D7F9 3 1D7FA 4 1D7FB 5 1D7FC 6 1D7FD 7 1D7FE 8 1D7FF 9 1E140 0 1E141 1 1E142 2 1E143 3 1E144 4 1E145 5 1E146 6 1E147 7 1E148 8 1E149 9 1E2F0 0 1E2F1 1 1E2F2 2 1E2F3 3 1E2F4 4 1E2F5 5 1E2F6 6 1E2F7 7 1E2F8 8 1E2F9 9 1E950 0 1E951 1 1E952 2 1E953 3 1E954 4 1E955 5 1E956 6 1E957 7 1E958 8 1E959 9 1FBF0 0 1FBF1 1 1FBF2 2 1FBF3 3 1FBF4 4 1FBF5 5 1FBF6 6 1FBF7 7 1FBF8 8 1FBF9 9 END PK ! wq�ZT ZT 5.34.0/unicore/To/_PerlSCX.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'To_PerlSCX'}{'format'} = 'sw'; # string, but some elements are interpreted as a list; white space occurs only as list item separators $Unicode::UCD::SwashInfo{'To_PerlSCX'}{'missing'} = 'Unknown'; return <<'END'; 0 40 Common 41 5A Latin 5B 60 Common 61 7A Latin 7B A9 Common AA Latin AB B9 Common BA Latin BB BF Common C0 D6 Latin D7 Common D8 F6 Latin F7 Common F8 2B8 Latin 2B9 2DF Common 2E0 2E4 Latin 2E5 2E9 Common 2EA 2EB Bopomofo Hanb 2EC 2FF Common 300 341 Inherited 342 Greek 343 344 Inherited 345 Greek 346 362 Inherited 363 36F Latin 370 373 Greek 374 Common 375 377 Greek 37A 37D Greek 37E Common 37F Greek 384 Greek 385 Common 386 Greek 387 Common 388 38A Greek 38C Greek 38E 3A1 Greek 3A3 3E1 Greek 3E2 3EF Coptic 3F0 3FF Greek 400 482 Cyrillic 483 Cyrillic Old_Permic 484 Cyrillic Glagolitic 485 486 Cyrillic Latin 487 Cyrillic Glagolitic 488 52F Cyrillic 531 556 Armenian 559 58A Armenian 58D 58F Armenian 591 5C7 Hebrew 5D0 5EA Hebrew 5EF 5F4 Hebrew 600 604 Arabic 605 Common 606 60B Arabic 60C Arabic Hanifi_Rohingya Syriac Thaana Yezidi 60D 61A Arabic 61B Arabic Hanifi_Rohingya Syriac Thaana Yezidi 61C Arabic Syriac Thaana 61E Arabic 61F Arabic Hanifi_Rohingya Syriac Thaana Yezidi 620 63F Arabic 640 Adlam Arabic Mandaic Manichaean Psalter_Pahlavi Hanifi_Rohingya Sogdian Syriac 641 64A Arabic 64B 655 Arabic Syriac 656 65F Arabic 660 669 Arabic Thaana Yezidi 66A 66F Arabic 670 Arabic Syriac 671 6D3 Arabic 6D4 Arabic Hanifi_Rohingya 6D5 6DC Arabic 6DD Common 6DE 6FF Arabic 700 70D Syriac 70F 74A Syriac 74D 74F Syriac 750 77F Arabic 780 7B1 Thaana 7C0 7FA Nko 7FD 7FF Nko 800 82D Samaritan 830 83E Samaritan 840 85B Mandaic 85E Mandaic 860 86A Syriac 8A0 8B4 Arabic 8B6 8C7 Arabic 8D3 8E1 Arabic 8E2 Common 8E3 8FF Arabic 900 950 Devanagari 951 Bengali Devanagari Grantha Gujarati Gurmukhi Kannada Latin Malayalam Oriya Sharada Tamil Telugu Tirhuta 952 Bengali Devanagari Grantha Gujarati Gurmukhi Kannada Latin Malayalam Oriya Tamil Telugu Tirhuta 953 954 Inherited 955 963 Devanagari 964 Bengali Devanagari Dogra Gunjala_Gondi Masaram_Gondi Grantha Gujarati Gurmukhi Kannada Mahajani Malayalam Nandinagari Oriya Khudawadi Sinhala Syloti_Nagri Takri Tamil Telugu Tirhuta 965 Bengali Devanagari Dogra Gunjala_Gondi Masaram_Gondi Grantha Gujarati Gurmukhi Kannada Limbu Mahajani Malayalam Nandinagari Oriya Khudawadi Sinhala Syloti_Nagri Takri Tamil Telugu Tirhuta 966 96F Devanagari Dogra Kaithi Mahajani 970 97F Devanagari 980 983 Bengali 985 98C Bengali 98F 990 Bengali 993 9A8 Bengali 9AA 9B0 Bengali 9B2 Bengali 9B6 9B9 Bengali 9BC 9C4 Bengali 9C7 9C8 Bengali 9CB 9CE Bengali 9D7 Bengali 9DC 9DD Bengali 9DF 9E3 Bengali 9E6 9EF Bengali Chakma Syloti_Nagri 9F0 9FE Bengali A01 A03 Gurmukhi A05 A0A Gurmukhi A0F A10 Gurmukhi A13 A28 Gurmukhi A2A A30 Gurmukhi A32 A33 Gurmukhi A35 A36 Gurmukhi A38 A39 Gurmukhi A3C Gurmukhi A3E A42 Gurmukhi A47 A48 Gurmukhi A4B A4D Gurmukhi A51 Gurmukhi A59 A5C Gurmukhi A5E Gurmukhi A66 A6F Gurmukhi Multani A70 A76 Gurmukhi A81 A83 Gujarati A85 A8D Gujarati A8F A91 Gujarati A93 AA8 Gujarati AAA AB0 Gujarati AB2 AB3 Gujarati AB5 AB9 Gujarati ABC AC5 Gujarati AC7 AC9 Gujarati ACB ACD Gujarati AD0 Gujarati AE0 AE3 Gujarati AE6 AEF Gujarati Khojki AF0 AF1 Gujarati AF9 AFF Gujarati B01 B03 Oriya B05 B0C Oriya B0F B10 Oriya B13 B28 Oriya B2A B30 Oriya B32 B33 Oriya B35 B39 Oriya B3C B44 Oriya B47 B48 Oriya B4B B4D Oriya B55 B57 Oriya B5C B5D Oriya B5F B63 Oriya B66 B77 Oriya B82 B83 Tamil B85 B8A Tamil B8E B90 Tamil B92 B95 Tamil B99 B9A Tamil B9C Tamil B9E B9F Tamil BA3 BA4 Tamil BA8 BAA Tamil BAE BB9 Tamil BBE BC2 Tamil BC6 BC8 Tamil BCA BCD Tamil BD0 Tamil BD7 Tamil BE6 BF3 Grantha Tamil BF4 BFA Tamil C00 C0C Telugu C0E C10 Telugu C12 C28 Telugu C2A C39 Telugu C3D C44 Telugu C46 C48 Telugu C4A C4D Telugu C55 C56 Telugu C58 C5A Telugu C60 C63 Telugu C66 C6F Telugu C77 C7F Telugu C80 C8C Kannada C8E C90 Kannada C92 CA8 Kannada CAA CB3 Kannada CB5 CB9 Kannada CBC CC4 Kannada CC6 CC8 Kannada CCA CCD Kannada CD5 CD6 Kannada CDE Kannada CE0 CE3 Kannada CE6 CEF Kannada Nandinagari CF1 CF2 Kannada D00 D0C Malayalam D0E D10 Malayalam D12 D44 Malayalam D46 D48 Malayalam D4A D4F Malayalam D54 D63 Malayalam D66 D7F Malayalam D81 D83 Sinhala D85 D96 Sinhala D9A DB1 Sinhala DB3 DBB Sinhala DBD Sinhala DC0 DC6 Sinhala DCA Sinhala DCF DD4 Sinhala DD6 Sinhala DD8 DDF Sinhala DE6 DEF Sinhala DF2 DF4 Sinhala E01 E3A Thai E3F Common E40 E5B Thai E81 E82 Lao E84 Lao E86 E8A Lao E8C EA3 Lao EA5 Lao EA7 EBD Lao EC0 EC4 Lao EC6 Lao EC8 ECD Lao ED0 ED9 Lao EDC EDF Lao F00 F47 Tibetan F49 F6C Tibetan F71 F97 Tibetan F99 FBC Tibetan FBE FCC Tibetan FCE FD4 Tibetan FD5 FD8 Common FD9 FDA Tibetan 1000 103F Myanmar 1040 1049 Chakma Myanmar Tai_Le 104A 109F Myanmar 10A0 10C5 Georgian 10C7 Georgian 10CD Georgian 10D0 10FA Georgian 10FB Georgian Latin 10FC 10FF Georgian 1100 11FF Hangul Kore 1200 1248 Ethiopic 124A 124D Ethiopic 1250 1256 Ethiopic 1258 Ethiopic 125A 125D Ethiopic 1260 1288 Ethiopic 128A 128D Ethiopic 1290 12B0 Ethiopic 12B2 12B5 Ethiopic 12B8 12BE Ethiopic 12C0 Ethiopic 12C2 12C5 Ethiopic 12C8 12D6 Ethiopic 12D8 1310 Ethiopic 1312 1315 Ethiopic 1318 135A Ethiopic 135D 137C Ethiopic 1380 1399 Ethiopic 13A0 13F5 Cherokee 13F8 13FD Cherokee 1400 167F Canadian_Aboriginal 1680 169C Ogham 16A0 16EA Runic 16EB 16ED Common 16EE 16F8 Runic 1700 170C Tagalog 170E 1714 Tagalog 1720 1734 Hanunoo 1735 1736 Buhid Hanunoo Tagbanwa Tagalog 1740 1753 Buhid 1760 176C Tagbanwa 176E 1770 Tagbanwa 1772 1773 Tagbanwa 1780 17DD Khmer 17E0 17E9 Khmer 17F0 17F9 Khmer 1800 1801 Mongolian 1802 1803 Mongolian Phags_Pa 1804 Mongolian 1805 Mongolian Phags_Pa 1806 180E Mongolian 1810 1819 Mongolian 1820 1878 Mongolian 1880 18AA Mongolian 18B0 18F5 Canadian_Aboriginal 1900 191E Limbu 1920 192B Limbu 1930 193B Limbu 1940 Limbu 1944 194F Limbu 1950 196D Tai_Le 1970 1974 Tai_Le 1980 19AB New_Tai_Lue 19B0 19C9 New_Tai_Lue 19D0 19DA New_Tai_Lue 19DE 19DF New_Tai_Lue 19E0 19FF Khmer 1A00 1A1B Buginese 1A1E 1A1F Buginese 1A20 1A5E Tai_Tham 1A60 1A7C Tai_Tham 1A7F 1A89 Tai_Tham 1A90 1A99 Tai_Tham 1AA0 1AAD Tai_Tham 1AB0 1AC0 Inherited 1B00 1B4B Balinese 1B50 1B7C Balinese 1B80 1BBF Sundanese 1BC0 1BF3 Batak 1BFC 1BFF Batak 1C00 1C37 Lepcha 1C3B 1C49 Lepcha 1C4D 1C4F Lepcha 1C50 1C7F Ol_Chiki 1C80 1C88 Cyrillic 1C90 1CBA Georgian 1CBD 1CBF Georgian 1CC0 1CC7 Sundanese 1CD0 Bengali Devanagari Grantha Kannada 1CD1 Devanagari 1CD2 Bengali Devanagari Grantha Kannada 1CD3 Devanagari Grantha 1CD4 Devanagari 1CD5 1CD6 Bengali Devanagari 1CD7 Devanagari Sharada 1CD8 Bengali Devanagari 1CD9 Devanagari Sharada 1CDA Devanagari Kannada Malayalam Oriya Tamil Telugu 1CDB Devanagari 1CDC 1CDD Devanagari Sharada 1CDE 1CDF Devanagari 1CE0 Devanagari Sharada 1CE1 Bengali Devanagari 1CE2 1CE8 Devanagari 1CE9 Devanagari Nandinagari 1CEA Bengali Devanagari 1CEB 1CEC Devanagari 1CED Bengali Devanagari 1CEE 1CF1 Devanagari 1CF2 Bengali Devanagari Grantha Kannada Nandinagari Oriya Telugu Tirhuta 1CF3 Devanagari Grantha 1CF4 Devanagari Grantha Kannada 1CF5 1CF6 Bengali Devanagari 1CF7 Bengali 1CF8 1CF9 Devanagari Grantha 1CFA Nandinagari 1D00 1D25 Latin 1D26 1D2A Greek 1D2B Cyrillic 1D2C 1D5C Latin 1D5D 1D61 Greek 1D62 1D65 Latin 1D66 1D6A Greek 1D6B 1D77 Latin 1D78 Cyrillic 1D79 1DBE Latin 1DBF 1DC1 Greek 1DC2 1DF7 Inherited 1DF8 Cyrillic Syriac 1DF9 Inherited 1DFB 1DFF Inherited 1E00 1EFF Latin 1F00 1F15 Greek 1F18 1F1D Greek 1F20 1F45 Greek 1F48 1F4D Greek 1F50 1F57 Greek 1F59 Greek 1F5B Greek 1F5D Greek 1F5F 1F7D Greek 1F80 1FB4 Greek 1FB6 1FC4 Greek 1FC6 1FD3 Greek 1FD6 1FDB Greek 1FDD 1FEF Greek 1FF2 1FF4 Greek 1FF6 1FFE Greek 2000 200B Common 200C 200D Inherited 200E 202E Common 202F Latin Mongolian 2030 2064 Common 2066 2070 Common 2071 Latin 2074 207E Common 207F Latin 2080 208E Common 2090 209C Latin 20A0 20BF Common 20D0 20EF Inherited 20F0 Devanagari Grantha Latin 2100 2125 Common 2126 Greek 2127 2129 Common 212A 212B Latin 212C 2131 Common 2132 Latin 2133 214D Common 214E Latin 214F 215F Common 2160 2188 Latin 2189 218B Common 2190 2426 Common 2440 244A Common 2460 27FF Common 2800 28FF Braille 2900 2B73 Common 2B76 2B95 Common 2B97 2BFF Common 2C00 2C2E Glagolitic 2C30 2C5E Glagolitic 2C60 2C7F Latin 2C80 2CF3 Coptic 2CF9 2CFF Coptic 2D00 2D25 Georgian 2D27 Georgian 2D2D Georgian 2D30 2D67 Tifinagh 2D6F 2D70 Tifinagh 2D7F Tifinagh 2D80 2D96 Ethiopic 2DA0 2DA6 Ethiopic 2DA8 2DAE Ethiopic 2DB0 2DB6 Ethiopic 2DB8 2DBE Ethiopic 2DC0 2DC6 Ethiopic 2DC8 2DCE Ethiopic 2DD0 2DD6 Ethiopic 2DD8 2DDE Ethiopic 2DE0 2DFF Cyrillic 2E00 2E42 Common 2E43 Cyrillic Glagolitic 2E44 2E52 Common 2E80 2E99 Han Hanb Jpan Kore 2E9B 2EF3 Han Hanb Jpan Kore 2F00 2FD5 Han Hanb Jpan Kore 2FF0 2FFB Common 3000 Common 3001 3002 Bopomofo Hanb Hangul Kore Han Jpan Hiragana Katakana Yi 3003 Bopomofo Hanb Hangul Kore Han Jpan Hiragana Katakana 3004 Common 3005 3007 Han Hanb Jpan Kore 3008 3011 Bopomofo Hanb Hangul Kore Han Jpan Hiragana Katakana Yi 3012 Common 3013 Bopomofo Hanb Hangul Kore Han Jpan Hiragana Katakana 3014 301B Bopomofo Hanb Hangul Kore Han Jpan Hiragana Katakana Yi 301C 301F Bopomofo Hanb Hangul Kore Han Jpan Hiragana Katakana 3020 Common 3021 3029 Han Hanb Jpan Kore 302A 302D Bopomofo Hanb Han Jpan Kore 302E 302F Hangul Kore 3030 Bopomofo Hanb Hangul Kore Han Jpan Hiragana Katakana 3031 3035 Hiragana Jpan Katakana 3036 Common 3037 Bopomofo Hanb Hangul Kore Han Jpan Hiragana Katakana 3038 303B Han Hanb Jpan Kore 303C 303D Han Hanb Jpan Kore Hiragana Katakana 303E 303F Han Hanb Jpan Kore 3041 3096 Hiragana Jpan 3099 309C Hiragana Jpan Katakana 309D 309F Hiragana Jpan 30A0 Hiragana Jpan Katakana 30A1 30FA Katakana Jpan 30FB Bopomofo Hanb Hangul Kore Han Jpan Hiragana Katakana Yi 30FC Hiragana Jpan Katakana 30FD 30FF Katakana Jpan 3105 312F Bopomofo Hanb 3131 318E Hangul Kore 3190 319F Han Hanb Jpan Kore 31A0 31BF Bopomofo Hanb 31C0 31E3 Han Hanb Jpan Kore 31F0 31FF Katakana Jpan 3200 321E Hangul Kore 3220 3247 Han Hanb Jpan Kore 3248 325F Common 3260 327E Hangul Kore 327F Common 3280 32B0 Han Hanb Jpan Kore 32B1 32BF Common 32C0 32CB Han Hanb Jpan Kore 32CC 32CF Common 32D0 32FE Katakana Jpan 32FF Han Hanb Jpan Kore 3300 3357 Katakana Jpan 3358 3370 Han Hanb Jpan Kore 3371 337A Common 337B 337F Han Hanb Jpan Kore 3380 33DF Common 33E0 33FE Han Hanb Jpan Kore 33FF Common 3400 4DBF Han Hanb Jpan Kore 4DC0 4DFF Common 4E00 9FFC Han Hanb Jpan Kore A000 A48C Yi A490 A4C6 Yi A4D0 A4FF Lisu A500 A62B Vai A640 A66E Cyrillic A66F Cyrillic Glagolitic A670 A69F Cyrillic A6A0 A6F7 Bamum A700 A707 Han Hanb Jpan Kore Latin A708 A721 Common A722 A787 Latin A788 A78A Common A78B A7BF Latin A7C2 A7CA Latin A7F5 A7FF Latin A800 A82C Syloti_Nagri A830 A832 Devanagari Dogra Gujarati Gurmukhi Khojki Kannada Kaithi Mahajani Malayalam Modi Nandinagari Khudawadi Takri Tirhuta A833 A835 Devanagari Dogra Gujarati Gurmukhi Khojki Kannada Kaithi Mahajani Modi Nandinagari Khudawadi Takri Tirhuta A836 A839 Devanagari Dogra Gujarati Gurmukhi Khojki Kaithi Mahajani Modi Khudawadi Takri Tirhuta A840 A877 Phags_Pa A880 A8C5 Saurashtra A8CE A8D9 Saurashtra A8E0 A8F0 Devanagari A8F1 Bengali Devanagari A8F2 Devanagari A8F3 Devanagari Tamil A8F4 A8FF Devanagari A900 A92D Kayah_Li A92E Kayah_Li Latin Myanmar A92F Kayah_Li A930 A953 Rejang A95F Rejang A960 A97C Hangul Kore A980 A9CD Javanese A9CF Buginese Javanese A9D0 A9D9 Javanese A9DE A9DF Javanese A9E0 A9FE Myanmar AA00 AA36 Cham AA40 AA4D Cham AA50 AA59 Cham AA5C AA5F Cham AA60 AA7F Myanmar AA80 AAC2 Tai_Viet AADB AADF Tai_Viet AAE0 AAF6 Meetei_Mayek AB01 AB06 Ethiopic AB09 AB0E Ethiopic AB11 AB16 Ethiopic AB20 AB26 Ethiopic AB28 AB2E Ethiopic AB30 AB5A Latin AB5B Common AB5C AB64 Latin AB65 Greek AB66 AB69 Latin AB6A AB6B Common AB70 ABBF Cherokee ABC0 ABED Meetei_Mayek ABF0 ABF9 Meetei_Mayek AC00 D7A3 Hangul Kore D7B0 D7C6 Hangul Kore D7CB D7FB Hangul Kore F900 FA6D Han Hanb Jpan Kore FA70 FAD9 Han Hanb Jpan Kore FB00 FB06 Latin FB13 FB17 Armenian FB1D FB36 Hebrew FB38 FB3C Hebrew FB3E Hebrew FB40 FB41 Hebrew FB43 FB44 Hebrew FB46 FB4F Hebrew FB50 FBC1 Arabic FBD3 FD3D Arabic FD3E FD3F Common FD50 FD8F Arabic FD92 FDC7 Arabic FDF0 FDF1 Arabic FDF2 Arabic Thaana FDF3 FDFC Arabic FDFD Arabic Thaana FE00 FE0F Inherited FE10 FE19 Common FE20 FE2D Inherited FE2E FE2F Cyrillic FE30 FE44 Common FE45 FE46 Bopomofo Hanb Hangul Kore Han Jpan Hiragana Katakana FE47 FE52 Common FE54 FE66 Common FE68 FE6B Common FE70 FE74 Arabic FE76 FEFC Arabic FEFF Common FF01 FF20 Common FF21 FF3A Latin FF3B FF40 Common FF41 FF5A Latin FF5B FF60 Common FF61 FF65 Bopomofo Hanb Hangul Kore Han Jpan Hiragana Katakana Yi FF66 FF6F Katakana Jpan FF70 Hiragana Jpan Katakana FF71 FF9D Katakana Jpan FF9E FF9F Hiragana Jpan Katakana FFA0 FFBE Hangul Kore FFC2 FFC7 Hangul Kore FFCA FFCF Hangul Kore FFD2 FFD7 Hangul Kore FFDA FFDC Hangul Kore FFE0 FFE6 Common FFE8 FFEE Common FFF9 FFFD Common 10000 1000B Linear_B 1000D 10026 Linear_B 10028 1003A Linear_B 1003C 1003D Linear_B 1003F 1004D Linear_B 10050 1005D Linear_B 10080 100FA Linear_B 10100 10102 Cypriot Linear_B 10107 10133 Cypriot Linear_A Linear_B 10137 1013F Cypriot Linear_B 10140 1018E Greek 10190 1019C Common 101A0 Greek 101D0 101FC Common 101FD Inherited 10280 1029C Lycian 102A0 102D0 Carian 102E0 102FB Arabic Coptic 10300 10323 Old_Italic 1032D 1032F Old_Italic 10330 1034A Gothic 10350 1037A Old_Permic 10380 1039D Ugaritic 1039F Ugaritic 103A0 103C3 Old_Persian 103C8 103D5 Old_Persian 10400 1044F Deseret 10450 1047F Shavian 10480 1049D Osmanya 104A0 104A9 Osmanya 104B0 104D3 Osage 104D8 104FB Osage 10500 10527 Elbasan 10530 10563 Caucasian_Albanian 1056F Caucasian_Albanian 10600 10736 Linear_A 10740 10755 Linear_A 10760 10767 Linear_A 10800 10805 Cypriot 10808 Cypriot 1080A 10835 Cypriot 10837 10838 Cypriot 1083C Cypriot 1083F Cypriot 10840 10855 Imperial_Aramaic 10857 1085F Imperial_Aramaic 10860 1087F Palmyrene 10880 1089E Nabataean 108A7 108AF Nabataean 108E0 108F2 Hatran 108F4 108F5 Hatran 108FB 108FF Hatran 10900 1091B Phoenician 1091F Phoenician 10920 10939 Lydian 1093F Lydian 10980 1099F Meroitic_Hieroglyphs 109A0 109B7 Meroitic_Cursive 109BC 109CF Meroitic_Cursive 109D2 109FF Meroitic_Cursive 10A00 10A03 Kharoshthi 10A05 10A06 Kharoshthi 10A0C 10A13 Kharoshthi 10A15 10A17 Kharoshthi 10A19 10A35 Kharoshthi 10A38 10A3A Kharoshthi 10A3F 10A48 Kharoshthi 10A50 10A58 Kharoshthi 10A60 10A7F Old_South_Arabian 10A80 10A9F Old_North_Arabian 10AC0 10AE6 Manichaean 10AEB 10AF6 Manichaean 10B00 10B35 Avestan 10B39 10B3F Avestan 10B40 10B55 Inscriptional_Parthian 10B58 10B5F Inscriptional_Parthian 10B60 10B72 Inscriptional_Pahlavi 10B78 10B7F Inscriptional_Pahlavi 10B80 10B91 Psalter_Pahlavi 10B99 10B9C Psalter_Pahlavi 10BA9 10BAF Psalter_Pahlavi 10C00 10C48 Old_Turkic 10C80 10CB2 Old_Hungarian 10CC0 10CF2 Old_Hungarian 10CFA 10CFF Old_Hungarian 10D00 10D27 Hanifi_Rohingya 10D30 10D39 Hanifi_Rohingya 10E60 10E7E Arabic 10E80 10EA9 Yezidi 10EAB 10EAD Yezidi 10EB0 10EB1 Yezidi 10F00 10F27 Old_Sogdian 10F30 10F59 Sogdian 10FB0 10FCB Chorasmian 10FE0 10FF6 Elymaic 11000 1104D Brahmi 11052 1106F Brahmi 1107F Brahmi 11080 110C1 Kaithi 110CD Kaithi 110D0 110E8 Sora_Sompeng 110F0 110F9 Sora_Sompeng 11100 11134 Chakma 11136 11147 Chakma 11150 11176 Mahajani 11180 111DF Sharada 111E1 111F4 Sinhala 11200 11211 Khojki 11213 1123E Khojki 11280 11286 Multani 11288 Multani 1128A 1128D Multani 1128F 1129D Multani 1129F 112A9 Multani 112B0 112EA Khudawadi 112F0 112F9 Khudawadi 11300 Grantha 11301 Grantha Tamil 11302 Grantha 11303 Grantha Tamil 11305 1130C Grantha 1130F 11310 Grantha 11313 11328 Grantha 1132A 11330 Grantha 11332 11333 Grantha 11335 11339 Grantha 1133B 1133C Grantha Tamil 1133D 11344 Grantha 11347 11348 Grantha 1134B 1134D Grantha 11350 Grantha 11357 Grantha 1135D 11363 Grantha 11366 1136C Grantha 11370 11374 Grantha 11400 1145B Newa 1145D 11461 Newa 11480 114C7 Tirhuta 114D0 114D9 Tirhuta 11580 115B5 Siddham 115B8 115DD Siddham 11600 11644 Modi 11650 11659 Modi 11660 1166C Mongolian 11680 116B8 Takri 116C0 116C9 Takri 11700 1171A Ahom 1171D 1172B Ahom 11730 1173F Ahom 11800 1183B Dogra 118A0 118F2 Warang_Citi 118FF Warang_Citi 11900 11906 Dives_Akuru 11909 Dives_Akuru 1190C 11913 Dives_Akuru 11915 11916 Dives_Akuru 11918 11935 Dives_Akuru 11937 11938 Dives_Akuru 1193B 11946 Dives_Akuru 11950 11959 Dives_Akuru 119A0 119A7 Nandinagari 119AA 119D7 Nandinagari 119DA 119E4 Nandinagari 11A00 11A47 Zanabazar_Square 11A50 11AA2 Soyombo 11AC0 11AF8 Pau_Cin_Hau 11C00 11C08 Bhaiksuki 11C0A 11C36 Bhaiksuki 11C38 11C45 Bhaiksuki 11C50 11C6C Bhaiksuki 11C70 11C8F Marchen 11C92 11CA7 Marchen 11CA9 11CB6 Marchen 11D00 11D06 Masaram_Gondi 11D08 11D09 Masaram_Gondi 11D0B 11D36 Masaram_Gondi 11D3A Masaram_Gondi 11D3C 11D3D Masaram_Gondi 11D3F 11D47 Masaram_Gondi 11D50 11D59 Masaram_Gondi 11D60 11D65 Gunjala_Gondi 11D67 11D68 Gunjala_Gondi 11D6A 11D8E Gunjala_Gondi 11D90 11D91 Gunjala_Gondi 11D93 11D98 Gunjala_Gondi 11DA0 11DA9 Gunjala_Gondi 11EE0 11EF8 Makasar 11FB0 Lisu 11FC0 11FCF Tamil 11FD0 11FD1 Grantha Tamil 11FD2 Tamil 11FD3 Grantha Tamil 11FD4 11FF1 Tamil 11FFF Tamil 12000 12399 Cuneiform 12400 1246E Cuneiform 12470 12474 Cuneiform 12480 12543 Cuneiform 13000 1342E Egyptian_Hieroglyphs 13430 13438 Egyptian_Hieroglyphs 14400 14646 Anatolian_Hieroglyphs 16800 16A38 Bamum 16A40 16A5E Mro 16A60 16A69 Mro 16A6E 16A6F Mro 16AD0 16AED Bassa_Vah 16AF0 16AF5 Bassa_Vah 16B00 16B45 Pahawh_Hmong 16B50 16B59 Pahawh_Hmong 16B5B 16B61 Pahawh_Hmong 16B63 16B77 Pahawh_Hmong 16B7D 16B8F Pahawh_Hmong 16E40 16E9A Medefaidrin 16F00 16F4A Miao 16F4F 16F87 Miao 16F8F 16F9F Miao 16FE0 Tangut 16FE1 Nushu 16FE2 16FE3 Common 16FE4 Khitan_Small_Script 16FF0 16FF1 Han Hanb Jpan Kore 17000 187F7 Tangut 18800 18AFF Tangut 18B00 18CD5 Khitan_Small_Script 18D00 18D08 Tangut 1B000 Katakana Jpan 1B001 1B11E Hiragana Jpan 1B150 1B152 Hiragana Jpan 1B164 1B167 Katakana Jpan 1B170 1B2FB Nushu 1BC00 1BC6A Duployan 1BC70 1BC7C Duployan 1BC80 1BC88 Duployan 1BC90 1BC99 Duployan 1BC9C 1BCA3 Duployan 1D000 1D0F5 Common 1D100 1D126 Common 1D129 1D166 Common 1D167 1D169 Inherited 1D16A 1D17A Common 1D17B 1D182 Inherited 1D183 1D184 Common 1D185 1D18B Inherited 1D18C 1D1A9 Common 1D1AA 1D1AD Inherited 1D1AE 1D1E8 Common 1D200 1D245 Greek 1D2E0 1D2F3 Common 1D300 1D356 Common 1D360 1D371 Han Hanb Jpan Kore 1D372 1D378 Common 1D400 1D454 Common 1D456 1D49C Common 1D49E 1D49F Common 1D4A2 Common 1D4A5 1D4A6 Common 1D4A9 1D4AC Common 1D4AE 1D4B9 Common 1D4BB Common 1D4BD 1D4C3 Common 1D4C5 1D505 Common 1D507 1D50A Common 1D50D 1D514 Common 1D516 1D51C Common 1D51E 1D539 Common 1D53B 1D53E Common 1D540 1D544 Common 1D546 Common 1D54A 1D550 Common 1D552 1D6A5 Common 1D6A8 1D7CB Common 1D7CE 1D7FF Common 1D800 1DA8B SignWriting 1DA9B 1DA9F SignWriting 1DAA1 1DAAF SignWriting 1E000 1E006 Glagolitic 1E008 1E018 Glagolitic 1E01B 1E021 Glagolitic 1E023 1E024 Glagolitic 1E026 1E02A Glagolitic 1E100 1E12C Nyiakeng_Puachue_Hmong 1E130 1E13D Nyiakeng_Puachue_Hmong 1E140 1E149 Nyiakeng_Puachue_Hmong 1E14E 1E14F Nyiakeng_Puachue_Hmong 1E2C0 1E2F9 Wancho 1E2FF Wancho 1E800 1E8C4 Mende_Kikakui 1E8C7 1E8D6 Mende_Kikakui 1E900 1E94B Adlam 1E950 1E959 Adlam 1E95E 1E95F Adlam 1EC71 1ECB4 Common 1ED01 1ED3D Common 1EE00 1EE03 Arabic 1EE05 1EE1F Arabic 1EE21 1EE22 Arabic 1EE24 Arabic 1EE27 Arabic 1EE29 1EE32 Arabic 1EE34 1EE37 Arabic 1EE39 Arabic 1EE3B Arabic 1EE42 Arabic 1EE47 Arabic 1EE49 Arabic 1EE4B Arabic 1EE4D 1EE4F Arabic 1EE51 1EE52 Arabic 1EE54 Arabic 1EE57 Arabic 1EE59 Arabic 1EE5B Arabic 1EE5D Arabic 1EE5F Arabic 1EE61 1EE62 Arabic 1EE64 Arabic 1EE67 1EE6A Arabic 1EE6C 1EE72 Arabic 1EE74 1EE77 Arabic 1EE79 1EE7C Arabic 1EE7E Arabic 1EE80 1EE89 Arabic 1EE8B 1EE9B Arabic 1EEA1 1EEA3 Arabic 1EEA5 1EEA9 Arabic 1EEAB 1EEBB Arabic 1EEF0 1EEF1 Arabic 1F000 1F02B Common 1F030 1F093 Common 1F0A0 1F0AE Common 1F0B1 1F0BF Common 1F0C1 1F0CF Common 1F0D1 1F0F5 Common 1F100 1F1AD Common 1F1E6 1F1FF Common 1F200 Hiragana Jpan 1F201 1F202 Common 1F210 1F23B Common 1F240 1F248 Common 1F250 1F251 Han Hanb Jpan Kore 1F260 1F265 Common 1F300 1F6D7 Common 1F6E0 1F6EC Common 1F6F0 1F6FC Common 1F700 1F773 Common 1F780 1F7D8 Common 1F7E0 1F7EB Common 1F800 1F80B Common 1F810 1F847 Common 1F850 1F859 Common 1F860 1F887 Common 1F890 1F8AD Common 1F8B0 1F8B1 Common 1F900 1F978 Common 1F97A 1F9CB Common 1F9CD 1FA53 Common 1FA60 1FA6D Common 1FA70 1FA74 Common 1FA78 1FA7A Common 1FA80 1FA86 Common 1FA90 1FAA8 Common 1FAB0 1FAB6 Common 1FAC0 1FAC2 Common 1FAD0 1FAD6 Common 1FB00 1FB92 Common 1FB94 1FBCA Common 1FBF0 1FBF9 Common 20000 2A6DD Han Hanb Jpan Kore 2A700 2B734 Han Hanb Jpan Kore 2B740 2B81D Han Hanb Jpan Kore 2B820 2CEA1 Han Hanb Jpan Kore 2CEB0 2EBE0 Han Hanb Jpan Kore 2F800 2FA1D Han Hanb Jpan Kore 30000 3134A Han Hanb Jpan Kore E0001 Common E0020 E007F Common E0100 E01EF Inherited END PK ! J QZ� � 5.34.0/unicore/To/Ea.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToEa'}{'format'} = 's'; # string $Unicode::UCD::SwashInfo{'ToEa'}{'missing'} = 'Neutral'; return <<'END'; 20 7E Na A1 A A2 A3 Na A4 A A5 A6 Na A7 A8 A AA A AC Na AD AE A AF Na B0 B4 A B6 BA A BC BF A C6 A D0 A D7 D8 A DE E1 A E6 A E8 EA A EC ED A F0 A F2 F3 A F7 FA A FC A FE A 101 A 111 A 113 A 11B A 126 127 A 12B A 131 133 A 138 A 13F 142 A 144 A 148 14B A 14D A 152 153 A 166 167 A 16B A 1CE A 1D0 A 1D2 A 1D4 A 1D6 A 1D8 A 1DA A 1DC A 251 A 261 A 2C4 A 2C7 A 2C9 2CB A 2CD A 2D0 A 2D8 2DB A 2DD A 2DF A 300 36F A 391 3A1 A 3A3 3A9 A 3B1 3C1 A 3C3 3C9 A 401 A 410 44F A 451 A 1100 115F W 2010 A 2013 2016 A 2018 2019 A 201C 201D A 2020 2022 A 2024 2027 A 2030 A 2032 2033 A 2035 A 203B A 203E A 2074 A 207F A 2081 2084 A 20A9 H 20AC A 2103 A 2105 A 2109 A 2113 A 2116 A 2121 2122 A 2126 A 212B A 2153 2154 A 215B 215E A 2160 216B A 2170 2179 A 2189 A 2190 2199 A 21B8 21B9 A 21D2 A 21D4 A 21E7 A 2200 A 2202 2203 A 2207 2208 A 220B A 220F A 2211 A 2215 A 221A A 221D 2220 A 2223 A 2225 A 2227 222C A 222E A 2234 2237 A 223C 223D A 2248 A 224C A 2252 A 2260 2261 A 2264 2267 A 226A 226B A 226E 226F A 2282 2283 A 2286 2287 A 2295 A 2299 A 22A5 A 22BF A 2312 A 231A 231B W 2329 232A W 23E9 23EC W 23F0 W 23F3 W 2460 24E9 A 24EB 254B A 2550 2573 A 2580 258F A 2592 2595 A 25A0 25A1 A 25A3 25A9 A 25B2 25B3 A 25B6 25B7 A 25BC 25BD A 25C0 25C1 A 25C6 25C8 A 25CB A 25CE 25D1 A 25E2 25E5 A 25EF A 25FD 25FE W 2605 2606 A 2609 A 260E 260F A 2614 2615 W 261C A 261E A 2640 A 2642 A 2648 2653 W 2660 2661 A 2663 2665 A 2667 266A A 266C 266D A 266F A 267F W 2693 W 269E 269F A 26A1 W 26AA 26AB W 26BD 26BE W 26BF A 26C4 26C5 W 26C6 26CD A 26CE W 26CF 26D3 A 26D4 W 26D5 26E1 A 26E3 A 26E8 26E9 A 26EA W 26EB 26F1 A 26F2 26F3 W 26F4 A 26F5 W 26F6 26F9 A 26FA W 26FB 26FC A 26FD W 26FE 26FF A 2705 W 270A 270B W 2728 W 273D A 274C W 274E W 2753 2755 W 2757 W 2776 277F A 2795 2797 W 27B0 W 27BF W 27E6 27ED Na 2985 2986 Na 2B1B 2B1C W 2B50 W 2B55 W 2B56 2B59 A 2E80 2E99 W 2E9B 2EF3 W 2F00 2FD5 W 2FF0 2FFB W 3000 F 3001 303E W 3041 3096 W 3099 30FF W 3105 312F W 3131 318E W 3190 31E3 W 31F0 321E W 3220 3247 W 3248 324F A 3250 4DBF W 4E00 A48C W A490 A4C6 W A960 A97C W AC00 D7A3 W E000 F8FF A F900 FAFF W FE00 FE0F A FE10 FE19 W FE30 FE52 W FE54 FE66 W FE68 FE6B W FF01 FF60 F FF61 FFBE H FFC2 FFC7 H FFCA FFCF H FFD2 FFD7 H FFDA FFDC H FFE0 FFE6 F FFE8 FFEE H FFFD A 16FE0 16FE4 W 16FF0 16FF1 W 17000 187F7 W 18800 18CD5 W 18D00 18D08 W 1B000 1B11E W 1B150 1B152 W 1B164 1B167 W 1B170 1B2FB W 1F004 W 1F0CF W 1F100 1F10A A 1F110 1F12D A 1F130 1F169 A 1F170 1F18D A 1F18E W 1F18F 1F190 A 1F191 1F19A W 1F19B 1F1AC A 1F200 1F202 W 1F210 1F23B W 1F240 1F248 W 1F250 1F251 W 1F260 1F265 W 1F300 1F320 W 1F32D 1F335 W 1F337 1F37C W 1F37E 1F393 W 1F3A0 1F3CA W 1F3CF 1F3D3 W 1F3E0 1F3F0 W 1F3F4 W 1F3F8 1F43E W 1F440 W 1F442 1F4FC W 1F4FF 1F53D W 1F54B 1F54E W 1F550 1F567 W 1F57A W 1F595 1F596 W 1F5A4 W 1F5FB 1F64F W 1F680 1F6C5 W 1F6CC W 1F6D0 1F6D2 W 1F6D5 1F6D7 W 1F6EB 1F6EC W 1F6F4 1F6FC W 1F7E0 1F7EB W 1F90C 1F93A W 1F93C 1F945 W 1F947 1F978 W 1F97A 1F9CB W 1F9CD 1F9FF W 1FA70 1FA74 W 1FA78 1FA7A W 1FA80 1FA86 W 1FA90 1FAA8 W 1FAB0 1FAB6 W 1FAC0 1FAC2 W 1FAD0 1FAD6 W 20000 2FFFD W 30000 3FFFD W E0100 E01EF A F0000 FFFFD A 100000 10FFFD A END PK ! �Su��$ �$ 5.34.0/unicore/To/InPC.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToInPC'}{'format'} = 's'; # string $Unicode::UCD::SwashInfo{'ToInPC'}{'missing'} = 'NA'; return <<'END'; 900 902 Top 903 Right 93A Top 93B Right 93C Bottom 93E Right 93F Left 940 Right 941 944 Bottom 945 948 Top 949 94C Right 94D Bottom 94E Left 94F Right 951 Top 952 Bottom 953 955 Top 956 957 Bottom 962 963 Bottom 981 Top 982 983 Right 9BC Bottom 9BE Right 9BF Left 9C0 Right 9C1 9C4 Bottom 9C7 9C8 Left 9CB 9CC Left_And_Right 9CD Bottom 9D7 Right 9E2 9E3 Bottom 9FE Top A01 A02 Top A03 Right A3C Bottom A3E Right A3F Left A40 Right A41 A42 Bottom A47 A48 Top A4B A4C Top A4D Bottom A51 Bottom A70 A71 Top A75 Bottom A81 A82 Top A83 Right ABC Bottom ABE Right ABF Left AC0 Right AC1 AC4 Bottom AC5 Top AC7 AC8 Top AC9 Top_And_Right ACB ACC Right ACD Bottom AE2 AE3 Bottom AFA AFF Top B01 Top B02 B03 Right B3C Bottom B3E Right B3F Top B40 Right B41 B44 Bottom B47 Left B48 Top_And_Left B4B Left_And_Right B4C Top_And_Left_And_Right B4D Bottom B55 B56 Top B57 Top_And_Right B62 B63 Bottom B82 Top BBE BBF Right BC0 Top BC1 BC2 Right BC6 BC8 Left BCA BCC Left_And_Right BCD Top BD7 Right C00 Top C01 C03 Right C04 Top C3E C40 Top C41 C44 Right C46 C47 Top C48 Top_And_Bottom C4A C4D Top C55 Top C56 Bottom C62 C63 Bottom C81 Top C82 C83 Right CBC Bottom CBE Right CBF Top CC0 Top_And_Right CC1 CC4 Right CC6 Top CC7 CC8 Top_And_Right CCA CCB Top_And_Right CCC CCD Top CD5 CD6 Right CE2 CE3 Bottom D00 D01 Top D02 D03 Right D3B D3C Top D3E D42 Right D43 D44 Bottom D46 D48 Left D4A D4C Left_And_Right D4D D4E Top D57 Right D62 D63 Bottom D81 Top D82 D83 Right DCA Top DCF DD1 Right DD2 DD3 Top DD4 Bottom DD6 Bottom DD8 Right DD9 Left DDA Top_And_Left DDB Left DDC Left_And_Right DDD Top_And_Left_And_Right DDE Left_And_Right DDF Right DF2 DF3 Right E30 Right E31 Top E32 E33 Right E34 E37 Top E38 E3A Bottom E40 E44 Visual_Order_Left E45 Right E47 E4E Top EB0 Right EB1 Top EB2 EB3 Right EB4 EB7 Top EB8 EBA Bottom EBB Top EBC Bottom EC0 EC4 Visual_Order_Left EC8 ECD Top F18 F19 Bottom F35 Bottom F37 Bottom F39 Top F3E Right F3F Left F71 Bottom F72 Top F73 Top_And_Bottom F74 F75 Bottom F76 F79 Top_And_Bottom F7A F7E Top F7F Right F80 Top F81 Top_And_Bottom F82 F83 Top F84 Bottom F86 F87 Top F8D F97 Bottom F99 FBC Bottom FC6 Bottom 102B 102C Right 102D 102E Top 102F 1030 Bottom 1031 Left 1032 1036 Top 1037 Bottom 1038 Right 103A Top 103B Right 103C Top_And_Bottom_And_Left 103D 103E Bottom 1056 1057 Right 1058 1059 Bottom 105E 1060 Bottom 1062 1064 Right 1067 106D Right 1071 1074 Top 1082 Bottom 1083 Right 1084 Left 1085 1086 Top 1087 108C Right 108D Bottom 108F Right 109A 109C Right 109D Top 1712 Top 1713 1714 Bottom 1732 Top 1733 1734 Bottom 1752 Top 1753 Bottom 1772 Top 1773 Bottom 17B6 Right 17B7 17BA Top 17BB 17BD Bottom 17BE Top_And_Left 17BF Top_And_Left_And_Right 17C0 Left_And_Right 17C1 17C3 Left 17C4 17C5 Left_And_Right 17C6 Top 17C7 17C8 Right 17C9 17D1 Top 17D3 Top 17DD Top 1920 1921 Top 1922 Bottom 1923 1924 Right 1925 1926 Top_And_Right 1927 1928 Top 1929 192B Right 1930 1931 Right 1932 Bottom 1933 1938 Right 1939 Bottom 193A Top 193B Bottom 19B0 19B4 Right 19B5 19B7 Visual_Order_Left 19B8 19B9 Right 19BA Visual_Order_Left 19BB 19C0 Right 19C8 19C9 Right 1A17 Top 1A18 Bottom 1A19 Left 1A1A Right 1A1B Top 1A55 Left 1A56 Bottom 1A57 Right 1A58 1A5A Top 1A5B 1A5E Bottom 1A61 Right 1A62 Top 1A63 1A64 Right 1A65 1A68 Top 1A69 1A6A Bottom 1A6B Top 1A6C Bottom 1A6D Right 1A6E 1A72 Left 1A73 1A7C Top 1A7F Bottom 1B00 1B03 Top 1B04 Right 1B34 Top 1B35 Right 1B36 1B37 Top 1B38 1B3A Bottom 1B3B Bottom_And_Right 1B3C Top_And_Bottom 1B3D Top_And_Bottom_And_Right 1B3E 1B3F Left 1B40 1B41 Left_And_Right 1B42 Top 1B43 Top_And_Right 1B44 Right 1B6B Top 1B6C Bottom 1B6D 1B73 Top 1B80 1B81 Top 1B82 Right 1BA1 Right 1BA2 1BA3 Bottom 1BA4 Top 1BA5 Bottom 1BA6 Left 1BA7 Right 1BA8 1BA9 Top 1BAA Right 1BAC 1BAD Bottom 1BE6 Top 1BE7 Right 1BE8 1BE9 Top 1BEA 1BEC Right 1BED Top 1BEE Right 1BEF 1BF1 Top 1BF2 1BF3 Right 1C24 1C26 Right 1C27 1C28 Left 1C29 Top_And_Left 1C2A 1C2B Right 1C2C Bottom 1C2D 1C33 Top 1C34 1C35 Left 1C36 Top 1C37 Bottom 1CD0 1CD2 Top 1CD4 Overstruck 1CD5 1CD9 Bottom 1CDA 1CDB Top 1CDC 1CDF Bottom 1CE0 Top 1CE1 Right 1CE2 1CE8 Overstruck 1CED Bottom 1CF4 Top 1CF7 Right 1DFB Top 20F0 Top A802 Top A806 Top A80B Top A823 A824 Right A825 Bottom A826 Top A827 Right A82C Bottom A880 A881 Right A8B4 A8C3 Right A8C4 Bottom A8C5 Top A8E0 A8F1 Top A8FF Top A92B A92D Bottom A947 A949 Bottom A94A Top A94B A94E Bottom A94F A951 Top A952 A953 Right A980 A982 Top A983 Right A9B3 Top A9B4 A9B5 Right A9B6 A9B7 Top A9B8 A9B9 Bottom A9BA A9BB Left A9BC Top A9BD Bottom A9BE Bottom_And_Right A9BF Bottom_And_Left A9C0 Bottom_And_Right A9E5 Top AA29 AA2C Top AA2D Bottom AA2E Top AA2F AA30 Left AA31 Top AA32 Bottom AA33 Right AA34 Left AA35 AA36 Bottom AA43 Top AA4C Top AA4D Right AA7B Right AA7C Top AA7D Right AAB0 Top AAB1 Right AAB2 AAB3 Top AAB4 Bottom AAB5 AAB6 Visual_Order_Left AAB7 AAB8 Top AAB9 Visual_Order_Left AABA Right AABB AABC Visual_Order_Left AABD Right AABE AABF Top AAC1 Top AAEB Left AAEC Bottom AAED Top AAEE Left AAEF Right AAF5 Right ABE3 ABE4 Right ABE5 Top ABE6 ABE7 Right ABE8 Bottom ABE9 ABEA Right ABEC Right ABED Bottom 10A01 Overstruck 10A02 10A03 Bottom 10A05 Top 10A06 Overstruck 10A0C 10A0E Bottom 10A0F Top 10A38 Top 10A39 10A3A Bottom 11000 Right 11001 Top 11002 Right 11038 1103B Top 1103C 11041 Bottom 11042 11046 Top 11080 11081 Top 11082 Right 110B0 Right 110B1 Left 110B2 Right 110B3 110B4 Bottom 110B5 110B6 Top 110B7 110B8 Right 110B9 110BA Bottom 11100 11102 Top 11127 11129 Top 1112A 1112B Bottom 1112C Left 1112D Top 1112E 1112F Top_And_Bottom 11130 Top 11131 11132 Bottom 11134 Top 11145 11146 Right 11173 Bottom 11180 11181 Top 11182 Right 111B3 Right 111B4 Left 111B5 Right 111B6 111BB Bottom 111BC 111BE Top 111BF Top_And_Right 111C0 Right 111C2 111C3 Top 111C9 111CA Bottom 111CB Top 111CC Bottom 111CE Left 111CF Top 1122C 1122E Right 1122F Bottom 11230 11231 Top 11232 11233 Top_And_Right 11234 Top 11235 Right 11236 11237 Top 1123E Top 112DF Top 112E0 Right 112E1 Left 112E2 Right 112E3 112E4 Bottom 112E5 112E8 Top 112E9 112EA Bottom 11300 11301 Top 11302 11303 Right 1133B 1133C Bottom 1133E 1133F Right 11340 Top 11341 11344 Right 11347 11348 Left 1134B 1134C Left_And_Right 1134D Right 11357 Right 11362 11363 Right 11366 1136C Top 11370 11374 Top 11435 Right 11436 Left 11437 Right 11438 1143D Bottom 1143E 1143F Top 11440 11441 Right 11442 Bottom 11443 11444 Top 11445 Right 11446 Bottom 1145E Top 114B0 Right 114B1 Left 114B2 Right 114B3 114B8 Bottom 114B9 Left 114BA Top 114BB Top_And_Left 114BC Left_And_Right 114BD Right 114BE Left_And_Right 114BF 114C0 Top 114C1 Right 114C2 114C3 Bottom 115AF Right 115B0 Left 115B1 Right 115B2 115B5 Bottom 115B8 Left 115B9 Top_And_Left 115BA Left_And_Right 115BB Top_And_Left_And_Right 115BC 115BD Top 115BE Right 115BF 115C0 Bottom 115DC 115DD Bottom 11630 11632 Right 11633 11638 Bottom 11639 1163A Top 1163B 1163C Right 1163D Top 1163E Right 1163F Bottom 11640 Top 116AB Top 116AC Right 116AD Top 116AE Left 116AF Right 116B0 116B1 Bottom 116B2 116B5 Top 116B6 Right 116B7 Bottom 1171D Bottom 1171E Top_And_Bottom_And_Left 1171F Top 11720 11721 Right 11722 11723 Top 11724 11725 Bottom 11726 Left 11727 Top 11728 Bottom 11729 1172B Top 1182C Right 1182D Left 1182E Right 1182F 11832 Bottom 11833 11837 Top 11838 Right 11839 1183A Bottom 11930 11934 Right 11935 Left 11937 Left 11938 Left_And_Right 1193B 1193C Top 1193D Right 1193F Top 11940 Right 11941 Top 11942 Bottom_And_Right 11943 Bottom 119D1 Right 119D2 Left 119D3 Right 119D4 119D7 Bottom 119DA 119DB Top 119DC 119DF Right 119E0 Bottom 119E4 Left 11A01 Top 11A02 11A03 Bottom 11A04 11A09 Top 11A0A Bottom 11A33 11A34 Bottom 11A35 11A38 Top 11A39 Right 11A3A Top 11A3B 11A3E Bottom 11A51 Top 11A52 11A53 Bottom 11A54 11A56 Top 11A57 11A58 Right 11A59 11A5B Bottom 11A84 11A89 Top 11A8A 11A95 Bottom 11A96 Top 11A97 Right 11A98 Top 11C2F Right 11C30 11C31 Top 11C32 11C36 Bottom 11C38 11C3D Top 11C3E Right 11C3F Bottom 11C92 11CA7 Bottom 11CA9 Right 11CAA 11CB0 Bottom 11CB1 Left 11CB2 Bottom 11CB3 Top 11CB4 Right 11CB5 11CB6 Top 11D31 11D35 Top 11D36 Bottom 11D3A Top 11D3C 11D3D Top 11D3F 11D41 Top 11D42 Bottom 11D43 Top 11D44 Bottom 11D46 Right 11D47 Bottom 11D8A 11D8E Right 11D90 11D91 Top 11D93 11D94 Right 11D95 Top 11D96 Right 11EF3 Top 11EF4 Bottom 11EF5 Left 11EF6 Right END PK ! ���< �< 5.34.0/unicore/To/Uc.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The mappings in the non-hash portion of this file must be modified to get the # correct values by adding the code point ordinal number to each one that is # numeric. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToUc'}{'format'} = 'ax'; # mapped value in hex; some entries need adjustment $Unicode::UCD::SwashInfo{'ToUc'}{'specials_name'} = 'Unicode::UCD::ToSpecUc'; # Name of hash of special mappings $Unicode::UCD::SwashInfo{'ToUc'}{'missing'} = '0'; # code point maps to itself # Some code points require special handling because their mappings are each to # multiple code points. These do not appear in the main body, but are defined # in the hash below. # Each key is the string of N bytes that together make up the UTF-8 encoding # for the code point. (i.e. the same as looking at the code point's UTF-8 # under "use bytes"). Each value is the UTF-8 of the translation, for speed. %Unicode::UCD::ToSpecUc = ( "\xC3\x9F" => "\x{0053}\x{0053}", # U+00DF => 0053 0053 "\xC5\x89" => "\x{02BC}\x{004E}", # U+0149 => 02BC 004E "\xC7\xB0" => "\x{004A}\x{030C}", # U+01F0 => 004A 030C "\xCE\x90" => "\x{0399}\x{0308}\x{0301}", # U+0390 => 0399 0308 0301 "\xCE\xB0" => "\x{03A5}\x{0308}\x{0301}", # U+03B0 => 03A5 0308 0301 "\xD6\x87" => "\x{0535}\x{0552}", # U+0587 => 0535 0552 "\xE1\xBA\x96" => "\x{0048}\x{0331}", # U+1E96 => 0048 0331 "\xE1\xBA\x97" => "\x{0054}\x{0308}", # U+1E97 => 0054 0308 "\xE1\xBA\x98" => "\x{0057}\x{030A}", # U+1E98 => 0057 030A "\xE1\xBA\x99" => "\x{0059}\x{030A}", # U+1E99 => 0059 030A "\xE1\xBA\x9A" => "\x{0041}\x{02BE}", # U+1E9A => 0041 02BE "\xE1\xBD\x90" => "\x{03A5}\x{0313}", # U+1F50 => 03A5 0313 "\xE1\xBD\x92" => "\x{03A5}\x{0313}\x{0300}", # U+1F52 => 03A5 0313 0300 "\xE1\xBD\x94" => "\x{03A5}\x{0313}\x{0301}", # U+1F54 => 03A5 0313 0301 "\xE1\xBD\x96" => "\x{03A5}\x{0313}\x{0342}", # U+1F56 => 03A5 0313 0342 "\xE1\xBE\x80" => "\x{1F08}\x{0399}", # U+1F80 => 1F08 0399 "\xE1\xBE\x81" => "\x{1F09}\x{0399}", # U+1F81 => 1F09 0399 "\xE1\xBE\x82" => "\x{1F0A}\x{0399}", # U+1F82 => 1F0A 0399 "\xE1\xBE\x83" => "\x{1F0B}\x{0399}", # U+1F83 => 1F0B 0399 "\xE1\xBE\x84" => "\x{1F0C}\x{0399}", # U+1F84 => 1F0C 0399 "\xE1\xBE\x85" => "\x{1F0D}\x{0399}", # U+1F85 => 1F0D 0399 "\xE1\xBE\x86" => "\x{1F0E}\x{0399}", # U+1F86 => 1F0E 0399 "\xE1\xBE\x87" => "\x{1F0F}\x{0399}", # U+1F87 => 1F0F 0399 "\xE1\xBE\x88" => "\x{1F08}\x{0399}", # U+1F88 => 1F08 0399 "\xE1\xBE\x89" => "\x{1F09}\x{0399}", # U+1F89 => 1F09 0399 "\xE1\xBE\x8A" => "\x{1F0A}\x{0399}", # U+1F8A => 1F0A 0399 "\xE1\xBE\x8B" => "\x{1F0B}\x{0399}", # U+1F8B => 1F0B 0399 "\xE1\xBE\x8C" => "\x{1F0C}\x{0399}", # U+1F8C => 1F0C 0399 "\xE1\xBE\x8D" => "\x{1F0D}\x{0399}", # U+1F8D => 1F0D 0399 "\xE1\xBE\x8E" => "\x{1F0E}\x{0399}", # U+1F8E => 1F0E 0399 "\xE1\xBE\x8F" => "\x{1F0F}\x{0399}", # U+1F8F => 1F0F 0399 "\xE1\xBE\x90" => "\x{1F28}\x{0399}", # U+1F90 => 1F28 0399 "\xE1\xBE\x91" => "\x{1F29}\x{0399}", # U+1F91 => 1F29 0399 "\xE1\xBE\x92" => "\x{1F2A}\x{0399}", # U+1F92 => 1F2A 0399 "\xE1\xBE\x93" => "\x{1F2B}\x{0399}", # U+1F93 => 1F2B 0399 "\xE1\xBE\x94" => "\x{1F2C}\x{0399}", # U+1F94 => 1F2C 0399 "\xE1\xBE\x95" => "\x{1F2D}\x{0399}", # U+1F95 => 1F2D 0399 "\xE1\xBE\x96" => "\x{1F2E}\x{0399}", # U+1F96 => 1F2E 0399 "\xE1\xBE\x97" => "\x{1F2F}\x{0399}", # U+1F97 => 1F2F 0399 "\xE1\xBE\x98" => "\x{1F28}\x{0399}", # U+1F98 => 1F28 0399 "\xE1\xBE\x99" => "\x{1F29}\x{0399}", # U+1F99 => 1F29 0399 "\xE1\xBE\x9A" => "\x{1F2A}\x{0399}", # U+1F9A => 1F2A 0399 "\xE1\xBE\x9B" => "\x{1F2B}\x{0399}", # U+1F9B => 1F2B 0399 "\xE1\xBE\x9C" => "\x{1F2C}\x{0399}", # U+1F9C => 1F2C 0399 "\xE1\xBE\x9D" => "\x{1F2D}\x{0399}", # U+1F9D => 1F2D 0399 "\xE1\xBE\x9E" => "\x{1F2E}\x{0399}", # U+1F9E => 1F2E 0399 "\xE1\xBE\x9F" => "\x{1F2F}\x{0399}", # U+1F9F => 1F2F 0399 "\xE1\xBE\xA0" => "\x{1F68}\x{0399}", # U+1FA0 => 1F68 0399 "\xE1\xBE\xA1" => "\x{1F69}\x{0399}", # U+1FA1 => 1F69 0399 "\xE1\xBE\xA2" => "\x{1F6A}\x{0399}", # U+1FA2 => 1F6A 0399 "\xE1\xBE\xA3" => "\x{1F6B}\x{0399}", # U+1FA3 => 1F6B 0399 "\xE1\xBE\xA4" => "\x{1F6C}\x{0399}", # U+1FA4 => 1F6C 0399 "\xE1\xBE\xA5" => "\x{1F6D}\x{0399}", # U+1FA5 => 1F6D 0399 "\xE1\xBE\xA6" => "\x{1F6E}\x{0399}", # U+1FA6 => 1F6E 0399 "\xE1\xBE\xA7" => "\x{1F6F}\x{0399}", # U+1FA7 => 1F6F 0399 "\xE1\xBE\xA8" => "\x{1F68}\x{0399}", # U+1FA8 => 1F68 0399 "\xE1\xBE\xA9" => "\x{1F69}\x{0399}", # U+1FA9 => 1F69 0399 "\xE1\xBE\xAA" => "\x{1F6A}\x{0399}", # U+1FAA => 1F6A 0399 "\xE1\xBE\xAB" => "\x{1F6B}\x{0399}", # U+1FAB => 1F6B 0399 "\xE1\xBE\xAC" => "\x{1F6C}\x{0399}", # U+1FAC => 1F6C 0399 "\xE1\xBE\xAD" => "\x{1F6D}\x{0399}", # U+1FAD => 1F6D 0399 "\xE1\xBE\xAE" => "\x{1F6E}\x{0399}", # U+1FAE => 1F6E 0399 "\xE1\xBE\xAF" => "\x{1F6F}\x{0399}", # U+1FAF => 1F6F 0399 "\xE1\xBE\xB2" => "\x{1FBA}\x{0399}", # U+1FB2 => 1FBA 0399 "\xE1\xBE\xB3" => "\x{0391}\x{0399}", # U+1FB3 => 0391 0399 "\xE1\xBE\xB4" => "\x{0386}\x{0399}", # U+1FB4 => 0386 0399 "\xE1\xBE\xB6" => "\x{0391}\x{0342}", # U+1FB6 => 0391 0342 "\xE1\xBE\xB7" => "\x{0391}\x{0342}\x{0399}", # U+1FB7 => 0391 0342 0399 "\xE1\xBE\xBC" => "\x{0391}\x{0399}", # U+1FBC => 0391 0399 "\xE1\xBF\x82" => "\x{1FCA}\x{0399}", # U+1FC2 => 1FCA 0399 "\xE1\xBF\x83" => "\x{0397}\x{0399}", # U+1FC3 => 0397 0399 "\xE1\xBF\x84" => "\x{0389}\x{0399}", # U+1FC4 => 0389 0399 "\xE1\xBF\x86" => "\x{0397}\x{0342}", # U+1FC6 => 0397 0342 "\xE1\xBF\x87" => "\x{0397}\x{0342}\x{0399}", # U+1FC7 => 0397 0342 0399 "\xE1\xBF\x8C" => "\x{0397}\x{0399}", # U+1FCC => 0397 0399 "\xE1\xBF\x92" => "\x{0399}\x{0308}\x{0300}", # U+1FD2 => 0399 0308 0300 "\xE1\xBF\x93" => "\x{0399}\x{0308}\x{0301}", # U+1FD3 => 0399 0308 0301 "\xE1\xBF\x96" => "\x{0399}\x{0342}", # U+1FD6 => 0399 0342 "\xE1\xBF\x97" => "\x{0399}\x{0308}\x{0342}", # U+1FD7 => 0399 0308 0342 "\xE1\xBF\xA2" => "\x{03A5}\x{0308}\x{0300}", # U+1FE2 => 03A5 0308 0300 "\xE1\xBF\xA3" => "\x{03A5}\x{0308}\x{0301}", # U+1FE3 => 03A5 0308 0301 "\xE1\xBF\xA4" => "\x{03A1}\x{0313}", # U+1FE4 => 03A1 0313 "\xE1\xBF\xA6" => "\x{03A5}\x{0342}", # U+1FE6 => 03A5 0342 "\xE1\xBF\xA7" => "\x{03A5}\x{0308}\x{0342}", # U+1FE7 => 03A5 0308 0342 "\xE1\xBF\xB2" => "\x{1FFA}\x{0399}", # U+1FF2 => 1FFA 0399 "\xE1\xBF\xB3" => "\x{03A9}\x{0399}", # U+1FF3 => 03A9 0399 "\xE1\xBF\xB4" => "\x{038F}\x{0399}", # U+1FF4 => 038F 0399 "\xE1\xBF\xB6" => "\x{03A9}\x{0342}", # U+1FF6 => 03A9 0342 "\xE1\xBF\xB7" => "\x{03A9}\x{0342}\x{0399}", # U+1FF7 => 03A9 0342 0399 "\xE1\xBF\xBC" => "\x{03A9}\x{0399}", # U+1FFC => 03A9 0399 "\xEF\xAC\x80" => "\x{0046}\x{0046}", # U+FB00 => 0046 0046 "\xEF\xAC\x81" => "\x{0046}\x{0049}", # U+FB01 => 0046 0049 "\xEF\xAC\x82" => "\x{0046}\x{004C}", # U+FB02 => 0046 004C "\xEF\xAC\x83" => "\x{0046}\x{0046}\x{0049}", # U+FB03 => 0046 0046 0049 "\xEF\xAC\x84" => "\x{0046}\x{0046}\x{004C}", # U+FB04 => 0046 0046 004C "\xEF\xAC\x85" => "\x{0053}\x{0054}", # U+FB05 => 0053 0054 "\xEF\xAC\x86" => "\x{0053}\x{0054}", # U+FB06 => 0053 0054 "\xEF\xAC\x93" => "\x{0544}\x{0546}", # U+FB13 => 0544 0546 "\xEF\xAC\x94" => "\x{0544}\x{0535}", # U+FB14 => 0544 0535 "\xEF\xAC\x95" => "\x{0544}\x{053B}", # U+FB15 => 0544 053B "\xEF\xAC\x96" => "\x{054E}\x{0546}", # U+FB16 => 054E 0546 "\xEF\xAC\x97" => "\x{0544}\x{053D}", # U+FB17 => 0544 053D ); return <<'END'; 61 7A 41 B5 39C E0 F6 C0 F8 FE D8 FF 178 101 100 103 102 105 104 107 106 109 108 10B 10A 10D 10C 10F 10E 111 110 113 112 115 114 117 116 119 118 11B 11A 11D 11C 11F 11E 121 120 123 122 125 124 127 126 129 128 12B 12A 12D 12C 12F 12E 131 49 133 132 135 134 137 136 13A 139 13C 13B 13E 13D 140 13F 142 141 144 143 146 145 148 147 14B 14A 14D 14C 14F 14E 151 150 153 152 155 154 157 156 159 158 15B 15A 15D 15C 15F 15E 161 160 163 162 165 164 167 166 169 168 16B 16A 16D 16C 16F 16E 171 170 173 172 175 174 177 176 17A 179 17C 17B 17E 17D 17F 53 180 243 183 182 185 184 188 187 18C 18B 192 191 195 1F6 199 198 19A 23D 19E 220 1A1 1A0 1A3 1A2 1A5 1A4 1A8 1A7 1AD 1AC 1B0 1AF 1B4 1B3 1B6 1B5 1B9 1B8 1BD 1BC 1BF 1F7 1C5 1C4 1C6 1C4 1C8 1C7 1C9 1C7 1CB 1CA 1CC 1CA 1CE 1CD 1D0 1CF 1D2 1D1 1D4 1D3 1D6 1D5 1D8 1D7 1DA 1D9 1DC 1DB 1DD 18E 1DF 1DE 1E1 1E0 1E3 1E2 1E5 1E4 1E7 1E6 1E9 1E8 1EB 1EA 1ED 1EC 1EF 1EE 1F2 1F1 1F3 1F1 1F5 1F4 1F9 1F8 1FB 1FA 1FD 1FC 1FF 1FE 201 200 203 202 205 204 207 206 209 208 20B 20A 20D 20C 20F 20E 211 210 213 212 215 214 217 216 219 218 21B 21A 21D 21C 21F 21E 223 222 225 224 227 226 229 228 22B 22A 22D 22C 22F 22E 231 230 233 232 23C 23B 23F 240 2C7E 242 241 247 246 249 248 24B 24A 24D 24C 24F 24E 250 2C6F 251 2C6D 252 2C70 253 181 254 186 256 257 189 259 18F 25B 190 25C A7AB 260 193 261 A7AC 263 194 265 A78D 266 A7AA 268 197 269 196 26A A7AE 26B 2C62 26C A7AD 26F 19C 271 2C6E 272 19D 275 19F 27D 2C64 280 1A6 282 A7C5 283 1A9 287 A7B1 288 1AE 289 244 28A 28B 1B1 28C 245 292 1B7 29D A7B2 29E A7B0 345 399 371 370 373 372 377 376 37B 37D 3FD 3AC 386 3AD 3AF 388 3B1 3C1 391 3C2 3A3 3C3 3CB 3A3 3CC 38C 3CD 3CE 38E 3D0 392 3D1 398 3D5 3A6 3D6 3A0 3D7 3CF 3D9 3D8 3DB 3DA 3DD 3DC 3DF 3DE 3E1 3E0 3E3 3E2 3E5 3E4 3E7 3E6 3E9 3E8 3EB 3EA 3ED 3EC 3EF 3EE 3F0 39A 3F1 3A1 3F2 3F9 3F3 37F 3F5 395 3F8 3F7 3FB 3FA 430 44F 410 450 45F 400 461 460 463 462 465 464 467 466 469 468 46B 46A 46D 46C 46F 46E 471 470 473 472 475 474 477 476 479 478 47B 47A 47D 47C 47F 47E 481 480 48B 48A 48D 48C 48F 48E 491 490 493 492 495 494 497 496 499 498 49B 49A 49D 49C 49F 49E 4A1 4A0 4A3 4A2 4A5 4A4 4A7 4A6 4A9 4A8 4AB 4AA 4AD 4AC 4AF 4AE 4B1 4B0 4B3 4B2 4B5 4B4 4B7 4B6 4B9 4B8 4BB 4BA 4BD 4BC 4BF 4BE 4C2 4C1 4C4 4C3 4C6 4C5 4C8 4C7 4CA 4C9 4CC 4CB 4CE 4CD 4CF 4C0 4D1 4D0 4D3 4D2 4D5 4D4 4D7 4D6 4D9 4D8 4DB 4DA 4DD 4DC 4DF 4DE 4E1 4E0 4E3 4E2 4E5 4E4 4E7 4E6 4E9 4E8 4EB 4EA 4ED 4EC 4EF 4EE 4F1 4F0 4F3 4F2 4F5 4F4 4F7 4F6 4F9 4F8 4FB 4FA 4FD 4FC 4FF 4FE 501 500 503 502 505 504 507 506 509 508 50B 50A 50D 50C 50F 50E 511 510 513 512 515 514 517 516 519 518 51B 51A 51D 51C 51F 51E 521 520 523 522 525 524 527 526 529 528 52B 52A 52D 52C 52F 52E 561 586 531 10D0 10FA 1C90 10FD 10FF 1CBD 13F8 13FD 13F0 1C80 412 1C81 414 1C82 41E 1C83 1C84 421 1C85 422 1C86 42A 1C87 462 1C88 A64A 1D79 A77D 1D7D 2C63 1D8E A7C6 1E01 1E00 1E03 1E02 1E05 1E04 1E07 1E06 1E09 1E08 1E0B 1E0A 1E0D 1E0C 1E0F 1E0E 1E11 1E10 1E13 1E12 1E15 1E14 1E17 1E16 1E19 1E18 1E1B 1E1A 1E1D 1E1C 1E1F 1E1E 1E21 1E20 1E23 1E22 1E25 1E24 1E27 1E26 1E29 1E28 1E2B 1E2A 1E2D 1E2C 1E2F 1E2E 1E31 1E30 1E33 1E32 1E35 1E34 1E37 1E36 1E39 1E38 1E3B 1E3A 1E3D 1E3C 1E3F 1E3E 1E41 1E40 1E43 1E42 1E45 1E44 1E47 1E46 1E49 1E48 1E4B 1E4A 1E4D 1E4C 1E4F 1E4E 1E51 1E50 1E53 1E52 1E55 1E54 1E57 1E56 1E59 1E58 1E5B 1E5A 1E5D 1E5C 1E5F 1E5E 1E61 1E60 1E63 1E62 1E65 1E64 1E67 1E66 1E69 1E68 1E6B 1E6A 1E6D 1E6C 1E6F 1E6E 1E71 1E70 1E73 1E72 1E75 1E74 1E77 1E76 1E79 1E78 1E7B 1E7A 1E7D 1E7C 1E7F 1E7E 1E81 1E80 1E83 1E82 1E85 1E84 1E87 1E86 1E89 1E88 1E8B 1E8A 1E8D 1E8C 1E8F 1E8E 1E91 1E90 1E93 1E92 1E95 1E94 1E9B 1E60 1EA1 1EA0 1EA3 1EA2 1EA5 1EA4 1EA7 1EA6 1EA9 1EA8 1EAB 1EAA 1EAD 1EAC 1EAF 1EAE 1EB1 1EB0 1EB3 1EB2 1EB5 1EB4 1EB7 1EB6 1EB9 1EB8 1EBB 1EBA 1EBD 1EBC 1EBF 1EBE 1EC1 1EC0 1EC3 1EC2 1EC5 1EC4 1EC7 1EC6 1EC9 1EC8 1ECB 1ECA 1ECD 1ECC 1ECF 1ECE 1ED1 1ED0 1ED3 1ED2 1ED5 1ED4 1ED7 1ED6 1ED9 1ED8 1EDB 1EDA 1EDD 1EDC 1EDF 1EDE 1EE1 1EE0 1EE3 1EE2 1EE5 1EE4 1EE7 1EE6 1EE9 1EE8 1EEB 1EEA 1EED 1EEC 1EEF 1EEE 1EF1 1EF0 1EF3 1EF2 1EF5 1EF4 1EF7 1EF6 1EF9 1EF8 1EFB 1EFA 1EFD 1EFC 1EFF 1EFE 1F00 1F07 1F08 1F10 1F15 1F18 1F20 1F27 1F28 1F30 1F37 1F38 1F40 1F45 1F48 1F51 1F59 1F53 1F5B 1F55 1F5D 1F57 1F5F 1F60 1F67 1F68 1F70 1F71 1FBA 1F72 1F75 1FC8 1F76 1F77 1FDA 1F78 1F79 1FF8 1F7A 1F7B 1FEA 1F7C 1F7D 1FFA 1F80 1F87 1F88 1F90 1F97 1F98 1FA0 1FA7 1FA8 1FB0 1FB1 1FB8 1FB3 1FBC 1FBE 399 1FC3 1FCC 1FD0 1FD1 1FD8 1FE0 1FE1 1FE8 1FE5 1FEC 1FF3 1FFC 214E 2132 2170 217F 2160 2184 2183 24D0 24E9 24B6 2C30 2C5E 2C00 2C61 2C60 2C65 23A 2C66 23E 2C68 2C67 2C6A 2C69 2C6C 2C6B 2C73 2C72 2C76 2C75 2C81 2C80 2C83 2C82 2C85 2C84 2C87 2C86 2C89 2C88 2C8B 2C8A 2C8D 2C8C 2C8F 2C8E 2C91 2C90 2C93 2C92 2C95 2C94 2C97 2C96 2C99 2C98 2C9B 2C9A 2C9D 2C9C 2C9F 2C9E 2CA1 2CA0 2CA3 2CA2 2CA5 2CA4 2CA7 2CA6 2CA9 2CA8 2CAB 2CAA 2CAD 2CAC 2CAF 2CAE 2CB1 2CB0 2CB3 2CB2 2CB5 2CB4 2CB7 2CB6 2CB9 2CB8 2CBB 2CBA 2CBD 2CBC 2CBF 2CBE 2CC1 2CC0 2CC3 2CC2 2CC5 2CC4 2CC7 2CC6 2CC9 2CC8 2CCB 2CCA 2CCD 2CCC 2CCF 2CCE 2CD1 2CD0 2CD3 2CD2 2CD5 2CD4 2CD7 2CD6 2CD9 2CD8 2CDB 2CDA 2CDD 2CDC 2CDF 2CDE 2CE1 2CE0 2CE3 2CE2 2CEC 2CEB 2CEE 2CED 2CF3 2CF2 2D00 2D25 10A0 2D27 10C7 2D2D 10CD A641 A640 A643 A642 A645 A644 A647 A646 A649 A648 A64B A64A A64D A64C A64F A64E A651 A650 A653 A652 A655 A654 A657 A656 A659 A658 A65B A65A A65D A65C A65F A65E A661 A660 A663 A662 A665 A664 A667 A666 A669 A668 A66B A66A A66D A66C A681 A680 A683 A682 A685 A684 A687 A686 A689 A688 A68B A68A A68D A68C A68F A68E A691 A690 A693 A692 A695 A694 A697 A696 A699 A698 A69B A69A A723 A722 A725 A724 A727 A726 A729 A728 A72B A72A A72D A72C A72F A72E A733 A732 A735 A734 A737 A736 A739 A738 A73B A73A A73D A73C A73F A73E A741 A740 A743 A742 A745 A744 A747 A746 A749 A748 A74B A74A A74D A74C A74F A74E A751 A750 A753 A752 A755 A754 A757 A756 A759 A758 A75B A75A A75D A75C A75F A75E A761 A760 A763 A762 A765 A764 A767 A766 A769 A768 A76B A76A A76D A76C A76F A76E A77A A779 A77C A77B A77F A77E A781 A780 A783 A782 A785 A784 A787 A786 A78C A78B A791 A790 A793 A792 A794 A7C4 A797 A796 A799 A798 A79B A79A A79D A79C A79F A79E A7A1 A7A0 A7A3 A7A2 A7A5 A7A4 A7A7 A7A6 A7A9 A7A8 A7B5 A7B4 A7B7 A7B6 A7B9 A7B8 A7BB A7BA A7BD A7BC A7BF A7BE A7C3 A7C2 A7C8 A7C7 A7CA A7C9 A7F6 A7F5 AB53 A7B3 AB70 ABBF 13A0 FF41 FF5A FF21 10428 1044F 10400 104D8 104FB 104B0 10CC0 10CF2 10C80 118C0 118DF 118A0 16E60 16E7F 16E40 1E922 1E943 1E900 END PK ! "+BJ� � 5.34.0/unicore/To/Jt.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToJt'}{'format'} = 's'; # string $Unicode::UCD::SwashInfo{'ToJt'}{'missing'} = 'Non_Joining'; return <<'END'; AD T 300 36F T 483 489 T 591 5BD T 5BF T 5C1 5C2 T 5C4 5C5 T 5C7 T 610 61A T 61C T 620 D 622 625 R 626 D 627 R 628 D 629 R 62A 62E D 62F 632 R 633 63F D 640 C 641 647 D 648 R 649 64A D 64B 65F T 66E 66F D 670 T 671 673 R 675 677 R 678 687 D 688 699 R 69A 6BF D 6C0 R 6C1 6C2 D 6C3 6CB R 6CC D 6CD R 6CE D 6CF R 6D0 6D1 D 6D2 6D3 R 6D5 R 6D6 6DC T 6DF 6E4 T 6E7 6E8 T 6EA 6ED T 6EE 6EF R 6FA 6FC D 6FF D 70F T 710 R 711 T 712 714 D 715 719 R 71A 71D D 71E R 71F 727 D 728 R 729 D 72A R 72B D 72C R 72D 72E D 72F R 730 74A T 74D R 74E 758 D 759 75B R 75C 76A D 76B 76C R 76D 770 D 771 R 772 D 773 774 R 775 777 D 778 779 R 77A 77F D 7A6 7B0 T 7CA 7EA D 7EB 7F3 T 7FA C 7FD T 816 819 T 81B 823 T 825 827 T 829 82D T 840 R 841 845 D 846 847 R 848 D 849 R 84A 853 D 854 R 855 D 856 858 R 859 85B T 860 D 862 865 D 867 R 868 D 869 86A R 8A0 8A9 D 8AA 8AC R 8AE R 8AF 8B0 D 8B1 8B2 R 8B3 8B4 D 8B6 8B8 D 8B9 R 8BA 8C7 D 8D3 8E1 T 8E3 902 T 93A T 93C T 941 948 T 94D T 951 957 T 962 963 T 981 T 9BC T 9C1 9C4 T 9CD T 9E2 9E3 T 9FE T A01 A02 T A3C T A41 A42 T A47 A48 T A4B A4D T A51 T A70 A71 T A75 T A81 A82 T ABC T AC1 AC5 T AC7 AC8 T ACD T AE2 AE3 T AFA AFF T B01 T B3C T B3F T B41 B44 T B4D T B55 B56 T B62 B63 T B82 T BC0 T BCD T C00 T C04 T C3E C40 T C46 C48 T C4A C4D T C55 C56 T C62 C63 T C81 T CBC T CBF T CC6 T CCC CCD T CE2 CE3 T D00 D01 T D3B D3C T D41 D44 T D4D T D62 D63 T D81 T DCA T DD2 DD4 T DD6 T E31 T E34 E3A T E47 E4E T EB1 T EB4 EBC T EC8 ECD T F18 F19 T F35 T F37 T F39 T F71 F7E T F80 F84 T F86 F87 T F8D F97 T F99 FBC T FC6 T 102D 1030 T 1032 1037 T 1039 103A T 103D 103E T 1058 1059 T 105E 1060 T 1071 1074 T 1082 T 1085 1086 T 108D T 109D T 135D 135F T 1712 1714 T 1732 1734 T 1752 1753 T 1772 1773 T 17B4 17B5 T 17B7 17BD T 17C6 T 17C9 17D3 T 17DD T 1807 D 180A C 180B 180D T 1820 1878 D 1885 1886 T 1887 18A8 D 18A9 T 18AA D 1920 1922 T 1927 1928 T 1932 T 1939 193B T 1A17 1A18 T 1A1B T 1A56 T 1A58 1A5E T 1A60 T 1A62 T 1A65 1A6C T 1A73 1A7C T 1A7F T 1AB0 1AC0 T 1B00 1B03 T 1B34 T 1B36 1B3A T 1B3C T 1B42 T 1B6B 1B73 T 1B80 1B81 T 1BA2 1BA5 T 1BA8 1BA9 T 1BAB 1BAD T 1BE6 T 1BE8 1BE9 T 1BED T 1BEF 1BF1 T 1C2C 1C33 T 1C36 1C37 T 1CD0 1CD2 T 1CD4 1CE0 T 1CE2 1CE8 T 1CED T 1CF4 T 1CF8 1CF9 T 1DC0 1DF9 T 1DFB 1DFF T 200B T 200D C 200E 200F T 202A 202E T 2060 2064 T 206A 206F T 20D0 20F0 T 2CEF 2CF1 T 2D7F T 2DE0 2DFF T 302A 302D T 3099 309A T A66F A672 T A674 A67D T A69E A69F T A6F0 A6F1 T A802 T A806 T A80B T A825 A826 T A82C T A840 A871 D A872 L A8C4 A8C5 T A8E0 A8F1 T A8FF T A926 A92D T A947 A951 T A980 A982 T A9B3 T A9B6 A9B9 T A9BC A9BD T A9E5 T AA29 AA2E T AA31 AA32 T AA35 AA36 T AA43 T AA4C T AA7C T AAB0 T AAB2 AAB4 T AAB7 AAB8 T AABE AABF T AAC1 T AAEC AAED T AAF6 T ABE5 T ABE8 T ABED T FB1E T FE00 FE0F T FE20 FE2F T FEFF T FFF9 FFFB T 101FD T 102E0 T 10376 1037A T 10A01 10A03 T 10A05 10A06 T 10A0C 10A0F T 10A38 10A3A T 10A3F T 10AC0 10AC4 D 10AC5 R 10AC7 R 10AC9 10ACA R 10ACD L 10ACE 10AD2 R 10AD3 10AD6 D 10AD7 L 10AD8 10ADC D 10ADD R 10ADE 10AE0 D 10AE1 R 10AE4 R 10AE5 10AE6 T 10AEB 10AEE D 10AEF R 10B80 D 10B81 R 10B82 D 10B83 10B85 R 10B86 10B88 D 10B89 R 10B8A 10B8B D 10B8C R 10B8D D 10B8E 10B8F R 10B90 D 10B91 R 10BA9 10BAC R 10BAD 10BAE D 10D00 L 10D01 10D21 D 10D22 R 10D23 D 10D24 10D27 T 10EAB 10EAC T 10F30 10F32 D 10F33 R 10F34 10F44 D 10F46 10F50 T 10F51 10F53 D 10F54 R 10FB0 D 10FB2 10FB3 D 10FB4 10FB6 R 10FB8 D 10FB9 10FBA R 10FBB 10FBC D 10FBD R 10FBE 10FBF D 10FC1 D 10FC2 10FC3 R 10FC4 D 10FC9 R 10FCA D 10FCB L 11001 T 11038 11046 T 1107F 11081 T 110B3 110B6 T 110B9 110BA T 11100 11102 T 11127 1112B T 1112D 11134 T 11173 T 11180 11181 T 111B6 111BE T 111C9 111CC T 111CF T 1122F 11231 T 11234 T 11236 11237 T 1123E T 112DF T 112E3 112EA T 11300 11301 T 1133B 1133C T 11340 T 11366 1136C T 11370 11374 T 11438 1143F T 11442 11444 T 11446 T 1145E T 114B3 114B8 T 114BA T 114BF 114C0 T 114C2 114C3 T 115B2 115B5 T 115BC 115BD T 115BF 115C0 T 115DC 115DD T 11633 1163A T 1163D T 1163F 11640 T 116AB T 116AD T 116B0 116B5 T 116B7 T 1171D 1171F T 11722 11725 T 11727 1172B T 1182F 11837 T 11839 1183A T 1193B 1193C T 1193E T 11943 T 119D4 119D7 T 119DA 119DB T 119E0 T 11A01 11A0A T 11A33 11A38 T 11A3B 11A3E T 11A47 T 11A51 11A56 T 11A59 11A5B T 11A8A 11A96 T 11A98 11A99 T 11C30 11C36 T 11C38 11C3D T 11C3F T 11C92 11CA7 T 11CAA 11CB0 T 11CB2 11CB3 T 11CB5 11CB6 T 11D31 11D36 T 11D3A T 11D3C 11D3D T 11D3F 11D45 T 11D47 T 11D90 11D91 T 11D95 T 11D97 T 11EF3 11EF4 T 13430 13438 T 16AF0 16AF4 T 16B30 16B36 T 16F4F T 16F8F 16F92 T 16FE4 T 1BC9D 1BC9E T 1BCA0 1BCA3 T 1D167 1D169 T 1D173 1D182 T 1D185 1D18B T 1D1AA 1D1AD T 1D242 1D244 T 1DA00 1DA36 T 1DA3B 1DA6C T 1DA75 T 1DA84 T 1DA9B 1DA9F T 1DAA1 1DAAF T 1E000 1E006 T 1E008 1E018 T 1E01B 1E021 T 1E023 1E024 T 1E026 1E02A T 1E130 1E136 T 1E2EC 1E2EF T 1E8D0 1E8D6 T 1E900 1E943 D 1E944 1E94B T E0001 T E0020 E007F T E0100 E01EF T END PK ! ��eT\� \� 5.34.0/unicore/To/Na1.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToNa1'}{'format'} = 's'; # string $Unicode::UCD::SwashInfo{'ToNa1'}{'missing'} = ''; # code point maps to the null string return <<'END'; 0 NULL 1 START OF HEADING 2 START OF TEXT 3 END OF TEXT 4 END OF TRANSMISSION 5 ENQUIRY 6 ACKNOWLEDGE 7 BELL 8 BACKSPACE 9 CHARACTER TABULATION A LINE FEED (LF) B LINE TABULATION C FORM FEED (FF) D CARRIAGE RETURN (CR) E SHIFT OUT F SHIFT IN 10 DATA LINK ESCAPE 11 DEVICE CONTROL ONE 12 DEVICE CONTROL TWO 13 DEVICE CONTROL THREE 14 DEVICE CONTROL FOUR 15 NEGATIVE ACKNOWLEDGE 16 SYNCHRONOUS IDLE 17 END OF TRANSMISSION BLOCK 18 CANCEL 19 END OF MEDIUM 1A SUBSTITUTE 1B ESCAPE 1C INFORMATION SEPARATOR FOUR 1D INFORMATION SEPARATOR THREE 1E INFORMATION SEPARATOR TWO 1F INFORMATION SEPARATOR ONE 27 APOSTROPHE-QUOTE 28 OPENING PARENTHESIS 29 CLOSING PARENTHESIS 2E PERIOD 2F SLASH 5B OPENING SQUARE BRACKET 5C BACKSLASH 5D CLOSING SQUARE BRACKET 5E SPACING CIRCUMFLEX 5F SPACING UNDERSCORE 60 SPACING GRAVE 7B OPENING CURLY BRACKET 7C VERTICAL BAR 7D CLOSING CURLY BRACKET 7F DELETE 82 BREAK PERMITTED HERE 83 NO BREAK HERE 85 NEXT LINE (NEL) 86 START OF SELECTED AREA 87 END OF SELECTED AREA 88 CHARACTER TABULATION SET 89 CHARACTER TABULATION WITH JUSTIFICATION 8A LINE TABULATION SET 8B PARTIAL LINE FORWARD 8C PARTIAL LINE BACKWARD 8D REVERSE LINE FEED 8E SINGLE SHIFT TWO 8F SINGLE SHIFT THREE 90 DEVICE CONTROL STRING 91 PRIVATE USE ONE 92 PRIVATE USE TWO 93 SET TRANSMIT STATE 94 CANCEL CHARACTER 95 MESSAGE WAITING 96 START OF GUARDED AREA 97 END OF GUARDED AREA 98 START OF STRING 9A SINGLE CHARACTER INTRODUCER 9B CONTROL SEQUENCE INTRODUCER 9C STRING TERMINATOR 9D OPERATING SYSTEM COMMAND 9E PRIVACY MESSAGE 9F APPLICATION PROGRAM COMMAND A0 NON-BREAKING SPACE A6 BROKEN VERTICAL BAR A8 SPACING DIAERESIS AB LEFT POINTING GUILLEMET AE REGISTERED TRADE MARK SIGN AF SPACING MACRON B1 PLUS-OR-MINUS SIGN B2 SUPERSCRIPT DIGIT TWO B3 SUPERSCRIPT DIGIT THREE B4 SPACING ACUTE B6 PARAGRAPH SIGN B8 SPACING CEDILLA B9 SUPERSCRIPT DIGIT ONE BB RIGHT POINTING GUILLEMET BC FRACTION ONE QUARTER BD FRACTION ONE HALF BE FRACTION THREE QUARTERS C0 LATIN CAPITAL LETTER A GRAVE C1 LATIN CAPITAL LETTER A ACUTE C2 LATIN CAPITAL LETTER A CIRCUMFLEX C3 LATIN CAPITAL LETTER A TILDE C4 LATIN CAPITAL LETTER A DIAERESIS C5 LATIN CAPITAL LETTER A RING C6 LATIN CAPITAL LETTER A E C7 LATIN CAPITAL LETTER C CEDILLA C8 LATIN CAPITAL LETTER E GRAVE C9 LATIN CAPITAL LETTER E ACUTE CA LATIN CAPITAL LETTER E CIRCUMFLEX CB LATIN CAPITAL LETTER E DIAERESIS CC LATIN CAPITAL LETTER I GRAVE CD LATIN CAPITAL LETTER I ACUTE CE LATIN CAPITAL LETTER I CIRCUMFLEX CF LATIN CAPITAL LETTER I DIAERESIS D1 LATIN CAPITAL LETTER N TILDE D2 LATIN CAPITAL LETTER O GRAVE D3 LATIN CAPITAL LETTER O ACUTE D4 LATIN CAPITAL LETTER O CIRCUMFLEX D5 LATIN CAPITAL LETTER O TILDE D6 LATIN CAPITAL LETTER O DIAERESIS D8 LATIN CAPITAL LETTER O SLASH D9 LATIN CAPITAL LETTER U GRAVE DA LATIN CAPITAL LETTER U ACUTE DB LATIN CAPITAL LETTER U CIRCUMFLEX DC LATIN CAPITAL LETTER U DIAERESIS DD LATIN CAPITAL LETTER Y ACUTE E0 LATIN SMALL LETTER A GRAVE E1 LATIN SMALL LETTER A ACUTE E2 LATIN SMALL LETTER A CIRCUMFLEX E3 LATIN SMALL LETTER A TILDE E4 LATIN SMALL LETTER A DIAERESIS E5 LATIN SMALL LETTER A RING E6 LATIN SMALL LETTER A E E7 LATIN SMALL LETTER C CEDILLA E8 LATIN SMALL LETTER E GRAVE E9 LATIN SMALL LETTER E ACUTE EA LATIN SMALL LETTER E CIRCUMFLEX EB LATIN SMALL LETTER E DIAERESIS EC LATIN SMALL LETTER I GRAVE ED LATIN SMALL LETTER I ACUTE EE LATIN SMALL LETTER I CIRCUMFLEX EF LATIN SMALL LETTER I DIAERESIS F1 LATIN SMALL LETTER N TILDE F2 LATIN SMALL LETTER O GRAVE F3 LATIN SMALL LETTER O ACUTE F4 LATIN SMALL LETTER O CIRCUMFLEX F5 LATIN SMALL LETTER O TILDE F6 LATIN SMALL LETTER O DIAERESIS F8 LATIN SMALL LETTER O SLASH F9 LATIN SMALL LETTER U GRAVE FA LATIN SMALL LETTER U ACUTE FB LATIN SMALL LETTER U CIRCUMFLEX FC LATIN SMALL LETTER U DIAERESIS FD LATIN SMALL LETTER Y ACUTE FF LATIN SMALL LETTER Y DIAERESIS 100 LATIN CAPITAL LETTER A MACRON 101 LATIN SMALL LETTER A MACRON 102 LATIN CAPITAL LETTER A BREVE 103 LATIN SMALL LETTER A BREVE 104 LATIN CAPITAL LETTER A OGONEK 105 LATIN SMALL LETTER A OGONEK 106 LATIN CAPITAL LETTER C ACUTE 107 LATIN SMALL LETTER C ACUTE 108 LATIN CAPITAL LETTER C CIRCUMFLEX 109 LATIN SMALL LETTER C CIRCUMFLEX 10A LATIN CAPITAL LETTER C DOT 10B LATIN SMALL LETTER C DOT 10C LATIN CAPITAL LETTER C HACEK 10D LATIN SMALL LETTER C HACEK 10E LATIN CAPITAL LETTER D HACEK 10F LATIN SMALL LETTER D HACEK 110 LATIN CAPITAL LETTER D BAR 111 LATIN SMALL LETTER D BAR 112 LATIN CAPITAL LETTER E MACRON 113 LATIN SMALL LETTER E MACRON 114 LATIN CAPITAL LETTER E BREVE 115 LATIN SMALL LETTER E BREVE 116 LATIN CAPITAL LETTER E DOT 117 LATIN SMALL LETTER E DOT 118 LATIN CAPITAL LETTER E OGONEK 119 LATIN SMALL LETTER E OGONEK 11A LATIN CAPITAL LETTER E HACEK 11B LATIN SMALL LETTER E HACEK 11C LATIN CAPITAL LETTER G CIRCUMFLEX 11D LATIN SMALL LETTER G CIRCUMFLEX 11E LATIN CAPITAL LETTER G BREVE 11F LATIN SMALL LETTER G BREVE 120 LATIN CAPITAL LETTER G DOT 121 LATIN SMALL LETTER G DOT 122 LATIN CAPITAL LETTER G CEDILLA 123 LATIN SMALL LETTER G CEDILLA 124 LATIN CAPITAL LETTER H CIRCUMFLEX 125 LATIN SMALL LETTER H CIRCUMFLEX 126 LATIN CAPITAL LETTER H BAR 127 LATIN SMALL LETTER H BAR 128 LATIN CAPITAL LETTER I TILDE 129 LATIN SMALL LETTER I TILDE 12A LATIN CAPITAL LETTER I MACRON 12B LATIN SMALL LETTER I MACRON 12C LATIN CAPITAL LETTER I BREVE 12D LATIN SMALL LETTER I BREVE 12E LATIN CAPITAL LETTER I OGONEK 12F LATIN SMALL LETTER I OGONEK 130 LATIN CAPITAL LETTER I DOT 132 LATIN CAPITAL LETTER I J 133 LATIN SMALL LETTER I J 134 LATIN CAPITAL LETTER J CIRCUMFLEX 135 LATIN SMALL LETTER J CIRCUMFLEX 136 LATIN CAPITAL LETTER K CEDILLA 137 LATIN SMALL LETTER K CEDILLA 139 LATIN CAPITAL LETTER L ACUTE 13A LATIN SMALL LETTER L ACUTE 13B LATIN CAPITAL LETTER L CEDILLA 13C LATIN SMALL LETTER L CEDILLA 13D LATIN CAPITAL LETTER L HACEK 13E LATIN SMALL LETTER L HACEK 141 LATIN CAPITAL LETTER L SLASH 142 LATIN SMALL LETTER L SLASH 143 LATIN CAPITAL LETTER N ACUTE 144 LATIN SMALL LETTER N ACUTE 145 LATIN CAPITAL LETTER N CEDILLA 146 LATIN SMALL LETTER N CEDILLA 147 LATIN CAPITAL LETTER N HACEK 148 LATIN SMALL LETTER N HACEK 149 LATIN SMALL LETTER APOSTROPHE N 14C LATIN CAPITAL LETTER O MACRON 14D LATIN SMALL LETTER O MACRON 14E LATIN CAPITAL LETTER O BREVE 14F LATIN SMALL LETTER O BREVE 150 LATIN CAPITAL LETTER O DOUBLE ACUTE 151 LATIN SMALL LETTER O DOUBLE ACUTE 152 LATIN CAPITAL LETTER O E 153 LATIN SMALL LETTER O E 154 LATIN CAPITAL LETTER R ACUTE 155 LATIN SMALL LETTER R ACUTE 156 LATIN CAPITAL LETTER R CEDILLA 157 LATIN SMALL LETTER R CEDILLA 158 LATIN CAPITAL LETTER R HACEK 159 LATIN SMALL LETTER R HACEK 15A LATIN CAPITAL LETTER S ACUTE 15B LATIN SMALL LETTER S ACUTE 15C LATIN CAPITAL LETTER S CIRCUMFLEX 15D LATIN SMALL LETTER S CIRCUMFLEX 15E LATIN CAPITAL LETTER S CEDILLA 15F LATIN SMALL LETTER S CEDILLA 160 LATIN CAPITAL LETTER S HACEK 161 LATIN SMALL LETTER S HACEK 162 LATIN CAPITAL LETTER T CEDILLA 163 LATIN SMALL LETTER T CEDILLA 164 LATIN CAPITAL LETTER T HACEK 165 LATIN SMALL LETTER T HACEK 166 LATIN CAPITAL LETTER T BAR 167 LATIN SMALL LETTER T BAR 168 LATIN CAPITAL LETTER U TILDE 169 LATIN SMALL LETTER U TILDE 16A LATIN CAPITAL LETTER U MACRON 16B LATIN SMALL LETTER U MACRON 16C LATIN CAPITAL LETTER U BREVE 16D LATIN SMALL LETTER U BREVE 16E LATIN CAPITAL LETTER U RING 16F LATIN SMALL LETTER U RING 170 LATIN CAPITAL LETTER U DOUBLE ACUTE 171 LATIN SMALL LETTER U DOUBLE ACUTE 172 LATIN CAPITAL LETTER U OGONEK 173 LATIN SMALL LETTER U OGONEK 174 LATIN CAPITAL LETTER W CIRCUMFLEX 175 LATIN SMALL LETTER W CIRCUMFLEX 176 LATIN CAPITAL LETTER Y CIRCUMFLEX 177 LATIN SMALL LETTER Y CIRCUMFLEX 178 LATIN CAPITAL LETTER Y DIAERESIS 179 LATIN CAPITAL LETTER Z ACUTE 17A LATIN SMALL LETTER Z ACUTE 17B LATIN CAPITAL LETTER Z DOT 17C LATIN SMALL LETTER Z DOT 17D LATIN CAPITAL LETTER Z HACEK 17E LATIN SMALL LETTER Z HACEK 180 LATIN SMALL LETTER B BAR 181 LATIN CAPITAL LETTER B HOOK 182 LATIN CAPITAL LETTER B TOPBAR 183 LATIN SMALL LETTER B TOPBAR 187 LATIN CAPITAL LETTER C HOOK 188 LATIN SMALL LETTER C HOOK 18A LATIN CAPITAL LETTER D HOOK 18B LATIN CAPITAL LETTER D TOPBAR 18C LATIN SMALL LETTER D TOPBAR 18E LATIN CAPITAL LETTER TURNED E 190 LATIN CAPITAL LETTER EPSILON 191 LATIN CAPITAL LETTER F HOOK 192 LATIN SMALL LETTER SCRIPT F 193 LATIN CAPITAL LETTER G HOOK 195 LATIN SMALL LETTER H V 197 LATIN CAPITAL LETTER BARRED I 198 LATIN CAPITAL LETTER K HOOK 199 LATIN SMALL LETTER K HOOK 19A LATIN SMALL LETTER BARRED L 19B LATIN SMALL LETTER BARRED LAMBDA 19D LATIN CAPITAL LETTER N HOOK 19F LATIN CAPITAL LETTER BARRED O 1A0 LATIN CAPITAL LETTER O HORN 1A1 LATIN SMALL LETTER O HORN 1A2 LATIN CAPITAL LETTER O I 1A3 LATIN SMALL LETTER O I 1A4 LATIN CAPITAL LETTER P HOOK 1A5 LATIN SMALL LETTER P HOOK 1A6 LATIN LETTER Y R 1AB LATIN SMALL LETTER T PALATAL HOOK 1AC LATIN CAPITAL LETTER T HOOK 1AD LATIN SMALL LETTER T HOOK 1AE LATIN CAPITAL LETTER T RETROFLEX HOOK 1AF LATIN CAPITAL LETTER U HORN 1B0 LATIN SMALL LETTER U HORN 1B2 LATIN CAPITAL LETTER SCRIPT V 1B3 LATIN CAPITAL LETTER Y HOOK 1B4 LATIN SMALL LETTER Y HOOK 1B5 LATIN CAPITAL LETTER Z BAR 1B6 LATIN SMALL LETTER Z BAR 1B7 LATIN CAPITAL LETTER YOGH 1B8 LATIN CAPITAL LETTER REVERSED YOGH 1B9 LATIN SMALL LETTER REVERSED YOGH 1BA LATIN SMALL LETTER YOGH WITH TAIL 1BB LATIN LETTER TWO BAR 1BE LATIN LETTER INVERTED GLOTTAL STOP BAR 1C0 LATIN LETTER PIPE 1C1 LATIN LETTER DOUBLE PIPE 1C2 LATIN LETTER PIPE DOUBLE BAR 1C3 LATIN LETTER EXCLAMATION MARK 1C4 LATIN CAPITAL LETTER D Z HACEK 1C5 LATIN LETTER CAPITAL D SMALL Z HACEK 1C6 LATIN SMALL LETTER D Z HACEK 1C7 LATIN CAPITAL LETTER L J 1C8 LATIN LETTER CAPITAL L SMALL J 1C9 LATIN SMALL LETTER L J 1CA LATIN CAPITAL LETTER N J 1CB LATIN LETTER CAPITAL N SMALL J 1CC LATIN SMALL LETTER N J 1CD LATIN CAPITAL LETTER A HACEK 1CE LATIN SMALL LETTER A HACEK 1CF LATIN CAPITAL LETTER I HACEK 1D0 LATIN SMALL LETTER I HACEK 1D1 LATIN CAPITAL LETTER O HACEK 1D2 LATIN SMALL LETTER O HACEK 1D3 LATIN CAPITAL LETTER U HACEK 1D4 LATIN SMALL LETTER U HACEK 1D5 LATIN CAPITAL LETTER U DIAERESIS MACRON 1D6 LATIN SMALL LETTER U DIAERESIS MACRON 1D7 LATIN CAPITAL LETTER U DIAERESIS ACUTE 1D8 LATIN SMALL LETTER U DIAERESIS ACUTE 1D9 LATIN CAPITAL LETTER U DIAERESIS HACEK 1DA LATIN SMALL LETTER U DIAERESIS HACEK 1DB LATIN CAPITAL LETTER U DIAERESIS GRAVE 1DC LATIN SMALL LETTER U DIAERESIS GRAVE 1DE LATIN CAPITAL LETTER A DIAERESIS MACRON 1DF LATIN SMALL LETTER A DIAERESIS MACRON 1E0 LATIN CAPITAL LETTER A DOT MACRON 1E1 LATIN SMALL LETTER A DOT MACRON 1E2 LATIN CAPITAL LETTER A E MACRON 1E3 LATIN SMALL LETTER A E MACRON 1E4 LATIN CAPITAL LETTER G BAR 1E5 LATIN SMALL LETTER G BAR 1E6 LATIN CAPITAL LETTER G HACEK 1E7 LATIN SMALL LETTER G HACEK 1E8 LATIN CAPITAL LETTER K HACEK 1E9 LATIN SMALL LETTER K HACEK 1EA LATIN CAPITAL LETTER O OGONEK 1EB LATIN SMALL LETTER O OGONEK 1EC LATIN CAPITAL LETTER O OGONEK MACRON 1ED LATIN SMALL LETTER O OGONEK MACRON 1EE LATIN CAPITAL LETTER YOGH HACEK 1EF LATIN SMALL LETTER YOGH HACEK 1F0 LATIN SMALL LETTER J HACEK 251 LATIN SMALL LETTER SCRIPT A 252 LATIN SMALL LETTER TURNED SCRIPT A 253 LATIN SMALL LETTER B HOOK 255 LATIN SMALL LETTER C CURL 256 LATIN SMALL LETTER D RETROFLEX HOOK 257 LATIN SMALL LETTER D HOOK 25A LATIN SMALL LETTER SCHWA HOOK 25B LATIN SMALL LETTER EPSILON 25C LATIN SMALL LETTER REVERSED EPSILON 25D LATIN SMALL LETTER REVERSED EPSILON HOOK 25E LATIN SMALL LETTER CLOSED REVERSED EPSILON 25F LATIN SMALL LETTER DOTLESS J BAR 260 LATIN SMALL LETTER G HOOK 264 LATIN SMALL LETTER BABY GAMMA 266 LATIN SMALL LETTER H HOOK 267 LATIN SMALL LETTER HENG HOOK 268 LATIN SMALL LETTER BARRED I 26C LATIN SMALL LETTER L BELT 26D LATIN SMALL LETTER L RETROFLEX HOOK 26E LATIN SMALL LETTER L YOGH 271 LATIN SMALL LETTER M HOOK 272 LATIN SMALL LETTER N HOOK 273 LATIN SMALL LETTER N RETROFLEX HOOK 276 LATIN LETTER SMALL CAPITAL O E 27B LATIN SMALL LETTER TURNED R HOOK 27D LATIN SMALL LETTER R HOOK 27E LATIN SMALL LETTER FISHHOOK R 27F LATIN SMALL LETTER REVERSED FISHHOOK R 282 LATIN SMALL LETTER S HOOK 284 LATIN SMALL LETTER DOTLESS J BAR HOOK 286 LATIN SMALL LETTER ESH CURL 288 LATIN SMALL LETTER T RETROFLEX HOOK 28B LATIN SMALL LETTER SCRIPT V 290 LATIN SMALL LETTER Z RETROFLEX HOOK 291 LATIN SMALL LETTER Z CURL 292 LATIN SMALL LETTER YOGH 293 LATIN SMALL LETTER YOGH CURL 295 LATIN LETTER REVERSED GLOTTAL STOP 298 LATIN LETTER BULLSEYE 29A LATIN SMALL LETTER CLOSED EPSILON 29B LATIN LETTER SMALL CAPITAL G HOOK 29D LATIN SMALL LETTER CROSSED-TAIL J 2A0 LATIN SMALL LETTER Q HOOK 2A1 LATIN LETTER GLOTTAL STOP BAR 2A2 LATIN LETTER REVERSED GLOTTAL STOP BAR 2A3 LATIN SMALL LETTER D Z 2A4 LATIN SMALL LETTER D YOGH 2A5 LATIN SMALL LETTER D Z CURL 2A6 LATIN SMALL LETTER T S 2A7 LATIN SMALL LETTER T ESH 2A8 LATIN SMALL LETTER T C CURL 2B1 MODIFIER LETTER SMALL H HOOK 2B5 MODIFIER LETTER SMALL TURNED R HOOK 2C6 MODIFIER LETTER CIRCUMFLEX 2C7 MODIFIER LETTER HACEK 2CA MODIFIER LETTER ACUTE 2CB MODIFIER LETTER GRAVE 2CE MODIFIER LETTER LOW GRAVE 2CF MODIFIER LETTER LOW ACUTE 2D2 MODIFIER LETTER CENTERED RIGHT HALF RING 2D3 MODIFIER LETTER CENTERED LEFT HALF RING 2D8 SPACING BREVE 2D9 SPACING DOT ABOVE 2DA SPACING RING ABOVE 2DB SPACING OGONEK 2DC SPACING TILDE 2DD SPACING DOUBLE ACUTE 300 NON-SPACING GRAVE 301 NON-SPACING ACUTE 302 NON-SPACING CIRCUMFLEX 303 NON-SPACING TILDE 304 NON-SPACING MACRON 305 NON-SPACING OVERSCORE 306 NON-SPACING BREVE 307 NON-SPACING DOT ABOVE 308 NON-SPACING DIAERESIS 309 NON-SPACING HOOK ABOVE 30A NON-SPACING RING ABOVE 30B NON-SPACING DOUBLE ACUTE 30C NON-SPACING HACEK 30D NON-SPACING VERTICAL LINE ABOVE 30E NON-SPACING DOUBLE VERTICAL LINE ABOVE 30F NON-SPACING DOUBLE GRAVE 310 NON-SPACING CANDRABINDU 311 NON-SPACING INVERTED BREVE 312 NON-SPACING TURNED COMMA ABOVE 313 NON-SPACING COMMA ABOVE 314 NON-SPACING REVERSED COMMA ABOVE 315 NON-SPACING COMMA ABOVE RIGHT 316 NON-SPACING GRAVE BELOW 317 NON-SPACING ACUTE BELOW 318 NON-SPACING LEFT TACK BELOW 319 NON-SPACING RIGHT TACK BELOW 31A NON-SPACING LEFT ANGLE ABOVE 31B NON-SPACING HORN 31C NON-SPACING LEFT HALF RING BELOW 31D NON-SPACING UP TACK BELOW 31E NON-SPACING DOWN TACK BELOW 31F NON-SPACING PLUS SIGN BELOW 320 NON-SPACING MINUS SIGN BELOW 321 NON-SPACING PALATALIZED HOOK BELOW 322 NON-SPACING RETROFLEX HOOK BELOW 323 NON-SPACING DOT BELOW 324 NON-SPACING DOUBLE DOT BELOW 325 NON-SPACING RING BELOW 326 NON-SPACING COMMA BELOW 327 NON-SPACING CEDILLA 328 NON-SPACING OGONEK 329 NON-SPACING VERTICAL LINE BELOW 32A NON-SPACING BRIDGE BELOW 32B NON-SPACING INVERTED DOUBLE ARCH BELOW 32C NON-SPACING HACEK BELOW 32D NON-SPACING CIRCUMFLEX BELOW 32E NON-SPACING BREVE BELOW 32F NON-SPACING INVERTED BREVE BELOW 330 NON-SPACING TILDE BELOW 331 NON-SPACING MACRON BELOW 332 NON-SPACING UNDERSCORE 333 NON-SPACING DOUBLE UNDERSCORE 334 NON-SPACING TILDE OVERLAY 335 NON-SPACING SHORT BAR OVERLAY 336 NON-SPACING LONG BAR OVERLAY 337 NON-SPACING SHORT SLASH OVERLAY 338 NON-SPACING LONG SLASH OVERLAY 339 NON-SPACING RIGHT HALF RING BELOW 33A NON-SPACING INVERTED BRIDGE BELOW 33B NON-SPACING SQUARE BELOW 33C NON-SPACING SEAGULL BELOW 33D NON-SPACING X ABOVE 33E NON-SPACING VERTICAL TILDE 33F NON-SPACING DOUBLE OVERSCORE 340 NON-SPACING GRAVE TONE MARK 341 NON-SPACING ACUTE TONE MARK 344 GREEK NON-SPACING DIAERESIS TONOS 345 GREEK NON-SPACING IOTA BELOW 374 GREEK UPPER NUMERAL SIGN 37A GREEK SPACING IOTA BELOW 384 GREEK SPACING TONOS 385 GREEK SPACING DIAERESIS TONOS 386 GREEK CAPITAL LETTER ALPHA TONOS 388 GREEK CAPITAL LETTER EPSILON TONOS 389 GREEK CAPITAL LETTER ETA TONOS 38A GREEK CAPITAL LETTER IOTA TONOS 38C GREEK CAPITAL LETTER OMICRON TONOS 38E GREEK CAPITAL LETTER UPSILON TONOS 38F GREEK CAPITAL LETTER OMEGA TONOS 390 GREEK SMALL LETTER IOTA DIAERESIS TONOS 39B GREEK CAPITAL LETTER LAMBDA 3AA GREEK CAPITAL LETTER IOTA DIAERESIS 3AB GREEK CAPITAL LETTER UPSILON DIAERESIS 3AC GREEK SMALL LETTER ALPHA TONOS 3AD GREEK SMALL LETTER EPSILON TONOS 3AE GREEK SMALL LETTER ETA TONOS 3AF GREEK SMALL LETTER IOTA TONOS 3B0 GREEK SMALL LETTER UPSILON DIAERESIS TONOS 3BB GREEK SMALL LETTER LAMBDA 3CA GREEK SMALL LETTER IOTA DIAERESIS 3CB GREEK SMALL LETTER UPSILON DIAERESIS 3CC GREEK SMALL LETTER OMICRON TONOS 3CD GREEK SMALL LETTER UPSILON TONOS 3CE GREEK SMALL LETTER OMEGA TONOS 3D0 GREEK SMALL LETTER CURLED BETA 3D1 GREEK SMALL LETTER SCRIPT THETA 3D2 GREEK CAPITAL LETTER UPSILON HOOK 3D3 GREEK CAPITAL LETTER UPSILON HOOK TONOS 3D4 GREEK CAPITAL LETTER UPSILON HOOK DIAERESIS 3D5 GREEK SMALL LETTER SCRIPT PHI 3D6 GREEK SMALL LETTER OMEGA PI 3DA GREEK CAPITAL LETTER STIGMA 3DC GREEK CAPITAL LETTER DIGAMMA 3DE GREEK CAPITAL LETTER KOPPA 3E0 GREEK CAPITAL LETTER SAMPI 3E2 GREEK CAPITAL LETTER SHEI 3E3 GREEK SMALL LETTER SHEI 3E4 GREEK CAPITAL LETTER FEI 3E5 GREEK SMALL LETTER FEI 3E6 GREEK CAPITAL LETTER KHEI 3E7 GREEK SMALL LETTER KHEI 3E8 GREEK CAPITAL LETTER HORI 3E9 GREEK SMALL LETTER HORI 3EA GREEK CAPITAL LETTER GANGIA 3EB GREEK SMALL LETTER GANGIA 3EC GREEK CAPITAL LETTER SHIMA 3ED GREEK SMALL LETTER SHIMA 3EE GREEK CAPITAL LETTER DEI 3EF GREEK SMALL LETTER DEI 3F0 GREEK SMALL LETTER SCRIPT KAPPA 3F1 GREEK SMALL LETTER TAILED RHO 3F2 GREEK SMALL LETTER LUNATE SIGMA 404 CYRILLIC CAPITAL LETTER E 406 CYRILLIC CAPITAL LETTER I 413 CYRILLIC CAPITAL LETTER GE 418 CYRILLIC CAPITAL LETTER II 419 CYRILLIC CAPITAL LETTER SHORT II 425 CYRILLIC CAPITAL LETTER KHA 42B CYRILLIC CAPITAL LETTER YERI 42D CYRILLIC CAPITAL LETTER REVERSED E 42E CYRILLIC CAPITAL LETTER IU 42F CYRILLIC CAPITAL LETTER IA 433 CYRILLIC SMALL LETTER GE 438 CYRILLIC SMALL LETTER II 439 CYRILLIC SMALL LETTER SHORT II 445 CYRILLIC SMALL LETTER KHA 44B CYRILLIC SMALL LETTER YERI 44D CYRILLIC SMALL LETTER REVERSED E 44E CYRILLIC SMALL LETTER IU 44F CYRILLIC SMALL LETTER IA 454 CYRILLIC SMALL LETTER E 456 CYRILLIC SMALL LETTER I 476 CYRILLIC CAPITAL LETTER IZHITSA DOUBLE GRAVE 477 CYRILLIC SMALL LETTER IZHITSA DOUBLE GRAVE 478 CYRILLIC CAPITAL LETTER UK DIGRAPH 479 CYRILLIC SMALL LETTER UK DIGRAPH 47C CYRILLIC CAPITAL LETTER OMEGA TITLO 47D CYRILLIC SMALL LETTER OMEGA TITLO 483 CYRILLIC NON-SPACING TITLO 484 CYRILLIC NON-SPACING PALATALIZATION 485 CYRILLIC NON-SPACING DASIA PNEUMATA 486 CYRILLIC NON-SPACING PSILI PNEUMATA 490 CYRILLIC CAPITAL LETTER GE WITH UPTURN 491 CYRILLIC SMALL LETTER GE WITH UPTURN 492 CYRILLIC CAPITAL LETTER GE BAR 493 CYRILLIC SMALL LETTER GE BAR 494 CYRILLIC CAPITAL LETTER GE HOOK 495 CYRILLIC SMALL LETTER GE HOOK 496 CYRILLIC CAPITAL LETTER ZHE WITH RIGHT DESCENDER 497 CYRILLIC SMALL LETTER ZHE WITH RIGHT DESCENDER 498 CYRILLIC CAPITAL LETTER ZE CEDILLA 499 CYRILLIC SMALL LETTER ZE CEDILLA 49A CYRILLIC CAPITAL LETTER KA WITH RIGHT DESCENDER 49B CYRILLIC SMALL LETTER KA WITH RIGHT DESCENDER 49C CYRILLIC CAPITAL LETTER KA VERTICAL BAR 49D CYRILLIC SMALL LETTER KA VERTICAL BAR 49E CYRILLIC CAPITAL LETTER KA BAR 49F CYRILLIC SMALL LETTER KA BAR 4A0 CYRILLIC CAPITAL LETTER REVERSED GE KA 4A1 CYRILLIC SMALL LETTER REVERSED GE KA 4A2 CYRILLIC CAPITAL LETTER EN WITH RIGHT DESCENDER 4A3 CYRILLIC SMALL LETTER EN WITH RIGHT DESCENDER 4A4 CYRILLIC CAPITAL LETTER EN GE 4A5 CYRILLIC SMALL LETTER EN GE 4A6 CYRILLIC CAPITAL LETTER PE HOOK 4A7 CYRILLIC SMALL LETTER PE HOOK 4A8 CYRILLIC CAPITAL LETTER O HOOK 4A9 CYRILLIC SMALL LETTER O HOOK 4AA CYRILLIC CAPITAL LETTER ES CEDILLA 4AB CYRILLIC SMALL LETTER ES CEDILLA 4AC CYRILLIC CAPITAL LETTER TE WITH RIGHT DESCENDER 4AD CYRILLIC SMALL LETTER TE WITH RIGHT DESCENDER 4B0 CYRILLIC CAPITAL LETTER STRAIGHT U BAR 4B1 CYRILLIC SMALL LETTER STRAIGHT U BAR 4B2 CYRILLIC CAPITAL LETTER KHA WITH RIGHT DESCENDER 4B3 CYRILLIC SMALL LETTER KHA WITH RIGHT DESCENDER 4B4 CYRILLIC CAPITAL LETTER TE TSE 4B5 CYRILLIC SMALL LETTER TE TSE 4B6 CYRILLIC CAPITAL LETTER CHE WITH RIGHT DESCENDER 4B7 CYRILLIC SMALL LETTER CHE WITH RIGHT DESCENDER 4B8 CYRILLIC CAPITAL LETTER CHE VERTICAL BAR 4B9 CYRILLIC SMALL LETTER CHE VERTICAL BAR 4BA CYRILLIC CAPITAL LETTER H 4BB CYRILLIC SMALL LETTER H 4BC CYRILLIC CAPITAL LETTER IE HOOK 4BD CYRILLIC SMALL LETTER IE HOOK 4BE CYRILLIC CAPITAL LETTER IE HOOK OGONEK 4BF CYRILLIC SMALL LETTER IE HOOK OGONEK 4C0 CYRILLIC LETTER I 4C1 CYRILLIC CAPITAL LETTER SHORT ZHE 4C2 CYRILLIC SMALL LETTER SHORT ZHE 4C3 CYRILLIC CAPITAL LETTER KA HOOK 4C4 CYRILLIC SMALL LETTER KA HOOK 4C7 CYRILLIC CAPITAL LETTER EN HOOK 4C8 CYRILLIC SMALL LETTER EN HOOK 4CB CYRILLIC CAPITAL LETTER CHE WITH LEFT DESCENDER 4CC CYRILLIC SMALL LETTER CHE WITH LEFT DESCENDER 542 ARMENIAN CAPITAL LETTER LAD 55A ARMENIAN MODIFIER LETTER RIGHT HALF RING 572 ARMENIAN SMALL LETTER LAD 589 ARMENIAN PERIOD 5BC HEBREW POINT DAGESH 5C0 HEBREW POINT PASEQ 5F0 HEBREW LETTER DOUBLE VAV 5F1 HEBREW LETTER VAV YOD 5F2 HEBREW LETTER DOUBLE YOD 621 ARABIC LETTER HAMZAH 622 ARABIC LETTER MADDAH ON ALEF 623 ARABIC LETTER HAMZAH ON ALEF 624 ARABIC LETTER HAMZAH ON WAW 625 ARABIC LETTER HAMZAH UNDER ALEF 626 ARABIC LETTER HAMZAH ON YA 628 ARABIC LETTER BAA 629 ARABIC LETTER TAA MARBUTAH 62A ARABIC LETTER TAA 62B ARABIC LETTER THAA 62D ARABIC LETTER HAA 62E ARABIC LETTER KHAA 631 ARABIC LETTER RA 638 ARABIC LETTER DHAH 641 ARABIC LETTER FA 643 ARABIC LETTER CAF 647 ARABIC LETTER HA 649 ARABIC LETTER ALEF MAQSURAH 64A ARABIC LETTER YA 64E ARABIC FATHAH 64F ARABIC DAMMAH 650 ARABIC KASRAH 651 ARABIC SHADDAH 670 ARABIC ALEF ABOVE 671 ARABIC LETTER HAMZAT WASL ON ALEF 672 ARABIC LETTER WAVY HAMZAH ON ALEF 673 ARABIC LETTER WAVY HAMZAH UNDER ALEF 674 ARABIC LETTER HIGH HAMZAH 675 ARABIC LETTER HIGH HAMZAH ALEF 676 ARABIC LETTER HIGH HAMZAH WAW 677 ARABIC LETTER HIGH HAMZAH WAW WITH DAMMAH 678 ARABIC LETTER HIGH HAMZAH YA 679 ARABIC LETTER TAA WITH SMALL TAH 67A ARABIC LETTER TAA WITH TWO DOTS VERTICAL ABOVE 67B ARABIC LETTER BAA WITH TWO DOTS VERTICAL BELOW 67C ARABIC LETTER TAA WITH RING 67D ARABIC LETTER TAA WITH THREE DOTS ABOVE DOWNWARD 67E ARABIC LETTER TAA WITH THREE DOTS BELOW 67F ARABIC LETTER TAA WITH FOUR DOTS ABOVE 680 ARABIC LETTER BAA WITH FOUR DOTS BELOW 681 ARABIC LETTER HAMZAH ON HAA 682 ARABIC LETTER HAA WITH TWO DOTS VERTICAL ABOVE 683 ARABIC LETTER HAA WITH MIDDLE TWO DOTS 684 ARABIC LETTER HAA WITH MIDDLE TWO DOTS VERTICAL 685 ARABIC LETTER HAA WITH THREE DOTS ABOVE 686 ARABIC LETTER HAA WITH MIDDLE THREE DOTS DOWNWARD 687 ARABIC LETTER HAA WITH MIDDLE FOUR DOTS 688 ARABIC LETTER DAL WITH SMALL TAH 68C ARABIC LETTER DAL WITH TWO DOTS ABOVE 68D ARABIC LETTER DAL WITH TWO DOTS BELOW 68E ARABIC LETTER DAL WITH THREE DOTS ABOVE 68F ARABIC LETTER DAL WITH THREE DOTS ABOVE DOWNWARD 691 ARABIC LETTER RA WITH SMALL TAH 692 ARABIC LETTER RA WITH SMALL V 693 ARABIC LETTER RA WITH RING 694 ARABIC LETTER RA WITH DOT BELOW 695 ARABIC LETTER RA WITH SMALL V BELOW 696 ARABIC LETTER RA WITH DOT BELOW AND DOT ABOVE 697 ARABIC LETTER RA WITH TWO DOTS ABOVE 698 ARABIC LETTER RA WITH THREE DOTS ABOVE 699 ARABIC LETTER RA WITH FOUR DOTS ABOVE 6A1 ARABIC LETTER DOTLESS FA 6A2 ARABIC LETTER FA WITH DOT MOVED BELOW 6A3 ARABIC LETTER FA WITH DOT BELOW 6A4 ARABIC LETTER FA WITH THREE DOTS ABOVE 6A5 ARABIC LETTER FA WITH THREE DOTS BELOW 6A6 ARABIC LETTER FA WITH FOUR DOTS ABOVE 6A9 ARABIC LETTER OPEN CAF 6AA ARABIC LETTER SWASH CAF 6AB ARABIC LETTER CAF WITH RING 6AC ARABIC LETTER CAF WITH DOT ABOVE 6AD ARABIC LETTER CAF WITH THREE DOTS ABOVE 6AE ARABIC LETTER CAF WITH THREE DOTS BELOW 6B1 ARABIC LETTER GAF WITH TWO DOTS ABOVE 6B3 ARABIC LETTER GAF WITH TWO DOTS VERTICAL BELOW 6BA ARABIC LETTER DOTLESS NOON 6BB ARABIC LETTER DOTLESS NOON WITH SMALL TAH 6BE ARABIC LETTER KNOTTED HA 6C0 ARABIC LETTER HAMZAH ON HA 6C1 ARABIC LETTER HA GOAL 6C2 ARABIC LETTER HAMZAH ON HA GOAL 6C3 ARABIC LETTER TAA MARBUTAH GOAL 6C5 ARABIC LETTER WAW WITH BAR 6C6 ARABIC LETTER WAW WITH SMALL V 6C7 ARABIC LETTER WAW WITH DAMMAH 6C8 ARABIC LETTER WAW WITH ALEF ABOVE 6C9 ARABIC LETTER WAW WITH INVERTED SMALL V 6CB ARABIC LETTER WAW WITH THREE DOTS ABOVE 6CC ARABIC LETTER DOTLESS YA 6CD ARABIC LETTER YA WITH TAIL 6CE ARABIC LETTER YA WITH SMALL V 6D0 ARABIC LETTER YA WITH TWO DOTS VERTICAL BELOW 6D1 ARABIC LETTER YA WITH THREE DOTS BELOW 6D2 ARABIC LETTER YA BARREE 6D3 ARABIC LETTER HAMZAH ON YA BARREE 6D4 ARABIC PERIOD 6F0 EASTERN ARABIC-INDIC DIGIT ZERO 6F1 EASTERN ARABIC-INDIC DIGIT ONE 6F2 EASTERN ARABIC-INDIC DIGIT TWO 6F3 EASTERN ARABIC-INDIC DIGIT THREE 6F4 EASTERN ARABIC-INDIC DIGIT FOUR 6F5 EASTERN ARABIC-INDIC DIGIT FIVE 6F6 EASTERN ARABIC-INDIC DIGIT SIX 6F7 EASTERN ARABIC-INDIC DIGIT SEVEN 6F8 EASTERN ARABIC-INDIC DIGIT EIGHT 6F9 EASTERN ARABIC-INDIC DIGIT NINE 9F1 BENGALI LETTER VA WITH LOWER DIAGONAL E01 THAI LETTER KO KAI E02 THAI LETTER KHO KHAI E03 THAI LETTER KHO KHUAT E04 THAI LETTER KHO KHWAI E05 THAI LETTER KHO KHON E06 THAI LETTER KHO RAKHANG E07 THAI LETTER NGO NGU E08 THAI LETTER CHO CHAN E09 THAI LETTER CHO CHING E0A THAI LETTER CHO CHANG E0B THAI LETTER SO SO E0C THAI LETTER CHO CHOE E0D THAI LETTER YO YING E0E THAI LETTER DO CHADA E0F THAI LETTER TO PATAK E10 THAI LETTER THO THAN E11 THAI LETTER THO NANGMONTHO E12 THAI LETTER THO PHUTHAO E13 THAI LETTER NO NEN E14 THAI LETTER DO DEK E15 THAI LETTER TO TAO E16 THAI LETTER THO THUNG E17 THAI LETTER THO THAHAN E18 THAI LETTER THO THONG E19 THAI LETTER NO NU E1A THAI LETTER BO BAIMAI E1B THAI LETTER PO PLA E1C THAI LETTER PHO PHUNG E1D THAI LETTER FO FA E1E THAI LETTER PHO PHAN E1F THAI LETTER FO FAN E20 THAI LETTER PHO SAMPHAO E21 THAI LETTER MO MA E22 THAI LETTER YO YAK E23 THAI LETTER RO RUA E24 THAI LETTER RU E25 THAI LETTER LO LING E26 THAI LETTER LU E27 THAI LETTER WO WAEN E28 THAI LETTER SO SALA E29 THAI LETTER SO RUSI E2A THAI LETTER SO SUA E2B THAI LETTER HO HIP E2C THAI LETTER LO CHULA E2D THAI LETTER O ANG E2E THAI LETTER HO NOK HUK E2F THAI PAI YAN NOI E30 THAI VOWEL SIGN SARA A E31 THAI VOWEL SIGN MAI HAN-AKAT E32 THAI VOWEL SIGN SARA AA E33 THAI VOWEL SIGN SARA AM E34 THAI VOWEL SIGN SARA I E35 THAI VOWEL SIGN SARA II E36 THAI VOWEL SIGN SARA UE E37 THAI VOWEL SIGN SARA UEE E38 THAI VOWEL SIGN SARA U E39 THAI VOWEL SIGN SARA UU E3A THAI VOWEL SIGN PHINTHU E3F THAI BAHT SIGN E40 THAI VOWEL SIGN SARA E E41 THAI VOWEL SIGN SARA AE E42 THAI VOWEL SIGN SARA O E43 THAI VOWEL SIGN SARA MAI MUAN E44 THAI VOWEL SIGN SARA MAI MALAI E45 THAI LAK KHANG YAO E46 THAI MAI YAMOK E47 THAI VOWEL SIGN MAI TAI KHU E48 THAI TONE MAI EK E49 THAI TONE MAI THO E4A THAI TONE MAI TRI E4B THAI TONE MAI CHATTAWA E4C THAI THANTHAKHAT E4D THAI NIKKHAHIT E4E THAI YAMAKKAN E4F THAI FONGMAN E5A THAI ANGKHANKHU E5B THAI KHOMUT F04 TIBETAN SINGLE ORNAMENT F08 TIBETAN RGYANSHAD F0B TIBETAN TSEG F0D TIBETAN SHAD F0E TIBETAN DOUBLE SHAD F11 TIBETAN RINCHANPHUNGSHAD F14 TIBETAN COMMA F35 TIBETAN HONORIFIC UNDER RING F37 TIBETAN UNDER RING F39 TIBETAN LENITION MARK F3C TIBETAN LEFT BRACE F3D TIBETAN RIGHT BRACE F4A TIBETAN LETTER REVERSED TA F4B TIBETAN LETTER REVERSED THA F4C TIBETAN LETTER REVERSED DA F4E TIBETAN LETTER REVERSED NA F60 TIBETAN LETTER AA F65 TIBETAN LETTER REVERSED SHA F7B TIBETAN VOWEL SIGN AI F7D TIBETAN VOWEL SIGN AU F7E TIBETAN ANUSVARA F7F TIBETAN VISARGA F80 TIBETAN VOWEL SIGN SHORT I F82 TIBETAN CANDRABINDU WITH ORNAMENT F83 TIBETAN CANDRABINDU F84 TIBETAN VIRAMA F85 TIBETAN CHUCHENYIGE 10D0 GEORGIAN SMALL LETTER AN 10D1 GEORGIAN SMALL LETTER BAN 10D2 GEORGIAN SMALL LETTER GAN 10D3 GEORGIAN SMALL LETTER DON 10D4 GEORGIAN SMALL LETTER EN 10D5 GEORGIAN SMALL LETTER VIN 10D6 GEORGIAN SMALL LETTER ZEN 10D7 GEORGIAN SMALL LETTER TAN 10D8 GEORGIAN SMALL LETTER IN 10D9 GEORGIAN SMALL LETTER KAN 10DA GEORGIAN SMALL LETTER LAS 10DB GEORGIAN SMALL LETTER MAN 10DC GEORGIAN SMALL LETTER NAR 10DD GEORGIAN SMALL LETTER ON 10DE GEORGIAN SMALL LETTER PAR 10DF GEORGIAN SMALL LETTER ZHAR 10E0 GEORGIAN SMALL LETTER RAE 10E1 GEORGIAN SMALL LETTER SAN 10E2 GEORGIAN SMALL LETTER TAR 10E3 GEORGIAN SMALL LETTER UN 10E4 GEORGIAN SMALL LETTER PHAR 10E5 GEORGIAN SMALL LETTER KHAR 10E6 GEORGIAN SMALL LETTER GHAN 10E7 GEORGIAN SMALL LETTER QAR 10E8 GEORGIAN SMALL LETTER SHIN 10E9 GEORGIAN SMALL LETTER CHIN 10EA GEORGIAN SMALL LETTER CAN 10EB GEORGIAN SMALL LETTER JIL 10EC GEORGIAN SMALL LETTER CIL 10ED GEORGIAN SMALL LETTER CHAR 10EE GEORGIAN SMALL LETTER XAN 10EF GEORGIAN SMALL LETTER JHAN 10F0 GEORGIAN SMALL LETTER HAE 10F1 GEORGIAN SMALL LETTER HE 10F2 GEORGIAN SMALL LETTER HIE 10F3 GEORGIAN SMALL LETTER WE 10F4 GEORGIAN SMALL LETTER HAR 10F5 GEORGIAN SMALL LETTER HOE 10F6 GEORGIAN SMALL LETTER FI 2015 QUOTATION DASH 2016 DOUBLE VERTICAL BAR 2017 SPACING DOUBLE UNDERSCORE 2018 SINGLE TURNED COMMA QUOTATION MARK 2019 SINGLE COMMA QUOTATION MARK 201A LOW SINGLE COMMA QUOTATION MARK 201B SINGLE REVERSED COMMA QUOTATION MARK 201C DOUBLE TURNED COMMA QUOTATION MARK 201D DOUBLE COMMA QUOTATION MARK 201E LOW DOUBLE COMMA QUOTATION MARK 201F DOUBLE REVERSED COMMA QUOTATION MARK 2039 LEFT POINTING SINGLE GUILLEMET 203A RIGHT POINTING SINGLE GUILLEMET 203E SPACING OVERSCORE 2070 SUPERSCRIPT DIGIT ZERO 2074 SUPERSCRIPT DIGIT FOUR 2075 SUPERSCRIPT DIGIT FIVE 2076 SUPERSCRIPT DIGIT SIX 2077 SUPERSCRIPT DIGIT SEVEN 2078 SUPERSCRIPT DIGIT EIGHT 2079 SUPERSCRIPT DIGIT NINE 207B SUPERSCRIPT HYPHEN-MINUS 207D SUPERSCRIPT OPENING PARENTHESIS 207E SUPERSCRIPT CLOSING PARENTHESIS 2080 SUBSCRIPT DIGIT ZERO 2081 SUBSCRIPT DIGIT ONE 2082 SUBSCRIPT DIGIT TWO 2083 SUBSCRIPT DIGIT THREE 2084 SUBSCRIPT DIGIT FOUR 2085 SUBSCRIPT DIGIT FIVE 2086 SUBSCRIPT DIGIT SIX 2087 SUBSCRIPT DIGIT SEVEN 2088 SUBSCRIPT DIGIT EIGHT 2089 SUBSCRIPT DIGIT NINE 208B SUBSCRIPT HYPHEN-MINUS 208D SUBSCRIPT OPENING PARENTHESIS 208E SUBSCRIPT CLOSING PARENTHESIS 20D0 NON-SPACING LEFT HARPOON ABOVE 20D1 NON-SPACING RIGHT HARPOON ABOVE 20D2 NON-SPACING LONG VERTICAL BAR OVERLAY 20D3 NON-SPACING SHORT VERTICAL BAR OVERLAY 20D4 NON-SPACING ANTICLOCKWISE ARROW ABOVE 20D5 NON-SPACING CLOCKWISE ARROW ABOVE 20D6 NON-SPACING LEFT ARROW ABOVE 20D7 NON-SPACING RIGHT ARROW ABOVE 20D8 NON-SPACING RING OVERLAY 20D9 NON-SPACING CLOCKWISE RING OVERLAY 20DA NON-SPACING ANTICLOCKWISE RING OVERLAY 20DB NON-SPACING THREE DOTS ABOVE 20DC NON-SPACING FOUR DOTS ABOVE 20DD ENCLOSING CIRCLE 20DE ENCLOSING SQUARE 20DF ENCLOSING DIAMOND 20E0 ENCLOSING CIRCLE SLASH 20E1 NON-SPACING LEFT RIGHT ARROW ABOVE 2102 DOUBLE-STRUCK C 2103 DEGREES CENTIGRADE 2104 C L SYMBOL 2107 EULERS 2109 DEGREES FAHRENHEIT 210B SCRIPT H 210C BLACK-LETTER H 210D DOUBLE-STRUCK H 210F PLANCK CONSTANT OVER 2 PI 2110 SCRIPT I 2111 BLACK-LETTER I 2112 SCRIPT L 2115 DOUBLE-STRUCK N 2116 NUMERO 2118 SCRIPT P 2119 DOUBLE-STRUCK P 211A DOUBLE-STRUCK Q 211B SCRIPT R 211C BLACK-LETTER R 211D DOUBLE-STRUCK R 2121 T E L SYMBOL 2122 TRADEMARK 2124 DOUBLE-STRUCK Z 2125 OUNCE 2126 OHM 2127 MHO 2128 BLACK-LETTER Z 212A DEGREES KELVIN 212B ANGSTROM UNIT 212C SCRIPT B 212D BLACK-LETTER C 2130 SCRIPT E 2131 SCRIPT F 2132 TURNED F 2133 SCRIPT M 2135 FIRST TRANSFINITE CARDINAL 2136 SECOND TRANSFINITE CARDINAL 2137 THIRD TRANSFINITE CARDINAL 2138 FOURTH TRANSFINITE CARDINAL 2153 FRACTION ONE THIRD 2154 FRACTION TWO THIRDS 2155 FRACTION ONE FIFTH 2156 FRACTION TWO FIFTHS 2157 FRACTION THREE FIFTHS 2158 FRACTION FOUR FIFTHS 2159 FRACTION ONE SIXTH 215A FRACTION FIVE SIXTHS 215B FRACTION ONE EIGHTH 215C FRACTION THREE EIGHTHS 215D FRACTION FIVE EIGHTHS 215E FRACTION SEVEN EIGHTHS 2190 LEFT ARROW 2191 UP ARROW 2192 RIGHT ARROW 2193 DOWN ARROW 2196 UPPER LEFT ARROW 2197 UPPER RIGHT ARROW 2198 LOWER RIGHT ARROW 2199 LOWER LEFT ARROW 219A LEFT ARROW WITH STROKE 219B RIGHT ARROW WITH STROKE 219C LEFT WAVE ARROW 219D RIGHT WAVE ARROW 219E LEFT TWO HEADED ARROW 219F UP TWO HEADED ARROW 21A0 RIGHT TWO HEADED ARROW 21A1 DOWN TWO HEADED ARROW 21A2 LEFT ARROW WITH TAIL 21A3 RIGHT ARROW WITH TAIL 21A4 LEFT ARROW FROM BAR 21A5 UP ARROW FROM BAR 21A6 RIGHT ARROW FROM BAR 21A7 DOWN ARROW FROM BAR 21A9 LEFT ARROW WITH HOOK 21AA RIGHT ARROW WITH HOOK 21AB LEFT ARROW WITH LOOP 21AC RIGHT ARROW WITH LOOP 21AF DOWN ZIGZAG ARROW 21B0 UP ARROW WITH TIP LEFT 21B1 UP ARROW WITH TIP RIGHT 21B2 DOWN ARROW WITH TIP LEFT 21B3 DOWN ARROW WITH TIP RIGHT 21B4 RIGHT ARROW WITH CORNER DOWN 21B5 DOWN ARROW WITH CORNER LEFT 21B8 UPPER LEFT ARROW TO LONG BAR 21B9 LEFT ARROW TO BAR OVER RIGHT ARROW TO BAR 21BC LEFT HARPOON WITH BARB UP 21BD LEFT HARPOON WITH BARB DOWN 21BE UP HARPOON WITH BARB RIGHT 21BF UP HARPOON WITH BARB LEFT 21C0 RIGHT HARPOON WITH BARB UP 21C1 RIGHT HARPOON WITH BARB DOWN 21C2 DOWN HARPOON WITH BARB RIGHT 21C3 DOWN HARPOON WITH BARB LEFT 21C4 RIGHT ARROW OVER LEFT ARROW 21C5 UP ARROW LEFT OF DOWN ARROW 21C6 LEFT ARROW OVER RIGHT ARROW 21C7 LEFT PAIRED ARROWS 21C8 UP PAIRED ARROWS 21C9 RIGHT PAIRED ARROWS 21CA DOWN PAIRED ARROWS 21CB LEFT HARPOON OVER RIGHT HARPOON 21CC RIGHT HARPOON OVER LEFT HARPOON 21CD LEFT DOUBLE ARROW WITH STROKE 21CF RIGHT DOUBLE ARROW WITH STROKE 21D0 LEFT DOUBLE ARROW 21D1 UP DOUBLE ARROW 21D2 RIGHT DOUBLE ARROW 21D3 DOWN DOUBLE ARROW 21D6 UPPER LEFT DOUBLE ARROW 21D7 UPPER RIGHT DOUBLE ARROW 21D8 LOWER RIGHT DOUBLE ARROW 21D9 LOWER LEFT DOUBLE ARROW 21DA LEFT TRIPLE ARROW 21DB RIGHT TRIPLE ARROW 21DC LEFT SQUIGGLE ARROW 21DD RIGHT SQUIGGLE ARROW 21DE UP ARROW WITH DOUBLE STROKE 21DF DOWN ARROW WITH DOUBLE STROKE 21E0 LEFT DASHED ARROW 21E1 UP DASHED ARROW 21E2 RIGHT DASHED ARROW 21E3 DOWN DASHED ARROW 21E4 LEFT ARROW TO BAR 21E5 RIGHT ARROW TO BAR 21E6 WHITE LEFT ARROW 21E7 WHITE UP ARROW 21E8 WHITE RIGHT ARROW 21E9 WHITE DOWN ARROW 21EA WHITE UP ARROW FROM BAR 2254 COLON EQUAL 2255 EQUAL COLON 2264 LESS THAN OR EQUAL TO 2265 GREATER THAN OR EQUAL TO 2266 LESS THAN OVER EQUAL TO 2267 GREATER THAN OVER EQUAL TO 2268 LESS THAN BUT NOT EQUAL TO 2269 GREATER THAN BUT NOT EQUAL TO 226A MUCH LESS THAN 226B MUCH GREATER THAN 226E NOT LESS THAN 226F NOT GREATER THAN 2270 NEITHER LESS THAN NOR EQUAL TO 2271 NEITHER GREATER THAN NOR EQUAL TO 2272 LESS THAN OR EQUIVALENT TO 2273 GREATER THAN OR EQUIVALENT TO 2274 NEITHER LESS THAN NOR EQUIVALENT TO 2275 NEITHER GREATER THAN NOR EQUIVALENT TO 2276 LESS THAN OR GREATER THAN 2277 GREATER THAN OR LESS THAN 2278 NEITHER LESS THAN NOR GREATER THAN 2279 NEITHER GREATER THAN NOR LESS THAN 228A SUBSET OF OR NOT EQUAL TO 228B SUPERSET OF OR NOT EQUAL TO 22D6 LESS THAN WITH DOT 22D7 GREATER THAN WITH DOT 22D8 VERY MUCH LESS THAN 22D9 VERY MUCH GREATER THAN 22DA LESS THAN EQUAL TO OR GREATER THAN 22DB GREATER THAN EQUAL TO OR LESS THAN 22DC EQUAL TO OR LESS THAN 22DD EQUAL TO OR GREATER THAN 22E6 LESS THAN BUT NOT EQUIVALENT TO 22E7 GREATER THAN BUT NOT EQUIVALENT TO 2318 COMMAND KEY 2324 ENTER KEY 2326 DELETE TO THE RIGHT KEY 2327 CLEAR KEY 2329 BRA 232A KET 232B DELETE TO THE LEFT KEY 2400 GRAPHIC FOR NULL 2401 GRAPHIC FOR START OF HEADING 2402 GRAPHIC FOR START OF TEXT 2403 GRAPHIC FOR END OF TEXT 2404 GRAPHIC FOR END OF TRANSMISSION 2405 GRAPHIC FOR ENQUIRY 2406 GRAPHIC FOR ACKNOWLEDGE 2407 GRAPHIC FOR BELL 2408 GRAPHIC FOR BACKSPACE 2409 GRAPHIC FOR HORIZONTAL TABULATION 240A GRAPHIC FOR LINE FEED 240B GRAPHIC FOR VERTICAL TABULATION 240C GRAPHIC FOR FORM FEED 240D GRAPHIC FOR CARRIAGE RETURN 240E GRAPHIC FOR SHIFT OUT 240F GRAPHIC FOR SHIFT IN 2410 GRAPHIC FOR DATA LINK ESCAPE 2411 GRAPHIC FOR DEVICE CONTROL ONE 2412 GRAPHIC FOR DEVICE CONTROL TWO 2413 GRAPHIC FOR DEVICE CONTROL THREE 2414 GRAPHIC FOR DEVICE CONTROL FOUR 2415 GRAPHIC FOR NEGATIVE ACKNOWLEDGE 2416 GRAPHIC FOR SYNCHRONOUS IDLE 2417 GRAPHIC FOR END OF TRANSMISSION BLOCK 2418 GRAPHIC FOR CANCEL 2419 GRAPHIC FOR END OF MEDIUM 241A GRAPHIC FOR SUBSTITUTE 241B GRAPHIC FOR ESCAPE 241C GRAPHIC FOR FILE SEPARATOR 241D GRAPHIC FOR GROUP SEPARATOR 241E GRAPHIC FOR RECORD SEPARATOR 241F GRAPHIC FOR UNIT SEPARATOR 2420 GRAPHIC FOR SPACE 2421 GRAPHIC FOR DELETE 2422 BLANK 2424 GRAPHIC FOR NEWLINE 2488 DIGIT ONE PERIOD 2489 DIGIT TWO PERIOD 248A DIGIT THREE PERIOD 248B DIGIT FOUR PERIOD 248C DIGIT FIVE PERIOD 248D DIGIT SIX PERIOD 248E DIGIT SEVEN PERIOD 248F DIGIT EIGHT PERIOD 2490 DIGIT NINE PERIOD 2491 NUMBER TEN PERIOD 2492 NUMBER ELEVEN PERIOD 2493 NUMBER TWELVE PERIOD 2494 NUMBER THIRTEEN PERIOD 2495 NUMBER FOURTEEN PERIOD 2496 NUMBER FIFTEEN PERIOD 2497 NUMBER SIXTEEN PERIOD 2498 NUMBER SEVENTEEN PERIOD 2499 NUMBER EIGHTEEN PERIOD 249A NUMBER NINETEEN PERIOD 249B NUMBER TWENTY PERIOD 2500 FORMS LIGHT HORIZONTAL 2501 FORMS HEAVY HORIZONTAL 2502 FORMS LIGHT VERTICAL 2503 FORMS HEAVY VERTICAL 2504 FORMS LIGHT TRIPLE DASH HORIZONTAL 2505 FORMS HEAVY TRIPLE DASH HORIZONTAL 2506 FORMS LIGHT TRIPLE DASH VERTICAL 2507 FORMS HEAVY TRIPLE DASH VERTICAL 2508 FORMS LIGHT QUADRUPLE DASH HORIZONTAL 2509 FORMS HEAVY QUADRUPLE DASH HORIZONTAL 250A FORMS LIGHT QUADRUPLE DASH VERTICAL 250B FORMS HEAVY QUADRUPLE DASH VERTICAL 250C FORMS LIGHT DOWN AND RIGHT 250D FORMS DOWN LIGHT AND RIGHT HEAVY 250E FORMS DOWN HEAVY AND RIGHT LIGHT 250F FORMS HEAVY DOWN AND RIGHT 2510 FORMS LIGHT DOWN AND LEFT 2511 FORMS DOWN LIGHT AND LEFT HEAVY 2512 FORMS DOWN HEAVY AND LEFT LIGHT 2513 FORMS HEAVY DOWN AND LEFT 2514 FORMS LIGHT UP AND RIGHT 2515 FORMS UP LIGHT AND RIGHT HEAVY 2516 FORMS UP HEAVY AND RIGHT LIGHT 2517 FORMS HEAVY UP AND RIGHT 2518 FORMS LIGHT UP AND LEFT 2519 FORMS UP LIGHT AND LEFT HEAVY 251A FORMS UP HEAVY AND LEFT LIGHT 251B FORMS HEAVY UP AND LEFT 251C FORMS LIGHT VERTICAL AND RIGHT 251D FORMS VERTICAL LIGHT AND RIGHT HEAVY 251E FORMS UP HEAVY AND RIGHT DOWN LIGHT 251F FORMS DOWN HEAVY AND RIGHT UP LIGHT 2520 FORMS VERTICAL HEAVY AND RIGHT LIGHT 2521 FORMS DOWN LIGHT AND RIGHT UP HEAVY 2522 FORMS UP LIGHT AND RIGHT DOWN HEAVY 2523 FORMS HEAVY VERTICAL AND RIGHT 2524 FORMS LIGHT VERTICAL AND LEFT 2525 FORMS VERTICAL LIGHT AND LEFT HEAVY 2526 FORMS UP HEAVY AND LEFT DOWN LIGHT 2527 FORMS DOWN HEAVY AND LEFT UP LIGHT 2528 FORMS VERTICAL HEAVY AND LEFT LIGHT 2529 FORMS DOWN LIGHT AND LEFT UP HEAVY 252A FORMS UP LIGHT AND LEFT DOWN HEAVY 252B FORMS HEAVY VERTICAL AND LEFT 252C FORMS LIGHT DOWN AND HORIZONTAL 252D FORMS LEFT HEAVY AND RIGHT DOWN LIGHT 252E FORMS RIGHT HEAVY AND LEFT DOWN LIGHT 252F FORMS DOWN LIGHT AND HORIZONTAL HEAVY 2530 FORMS DOWN HEAVY AND HORIZONTAL LIGHT 2531 FORMS RIGHT LIGHT AND LEFT DOWN HEAVY 2532 FORMS LEFT LIGHT AND RIGHT DOWN HEAVY 2533 FORMS HEAVY DOWN AND HORIZONTAL 2534 FORMS LIGHT UP AND HORIZONTAL 2535 FORMS LEFT HEAVY AND RIGHT UP LIGHT 2536 FORMS RIGHT HEAVY AND LEFT UP LIGHT 2537 FORMS UP LIGHT AND HORIZONTAL HEAVY 2538 FORMS UP HEAVY AND HORIZONTAL LIGHT 2539 FORMS RIGHT LIGHT AND LEFT UP HEAVY 253A FORMS LEFT LIGHT AND RIGHT UP HEAVY 253B FORMS HEAVY UP AND HORIZONTAL 253C FORMS LIGHT VERTICAL AND HORIZONTAL 253D FORMS LEFT HEAVY AND RIGHT VERTICAL LIGHT 253E FORMS RIGHT HEAVY AND LEFT VERTICAL LIGHT 253F FORMS VERTICAL LIGHT AND HORIZONTAL HEAVY 2540 FORMS UP HEAVY AND DOWN HORIZONTAL LIGHT 2541 FORMS DOWN HEAVY AND UP HORIZONTAL LIGHT 2542 FORMS VERTICAL HEAVY AND HORIZONTAL LIGHT 2543 FORMS LEFT UP HEAVY AND RIGHT DOWN LIGHT 2544 FORMS RIGHT UP HEAVY AND LEFT DOWN LIGHT 2545 FORMS LEFT DOWN HEAVY AND RIGHT UP LIGHT 2546 FORMS RIGHT DOWN HEAVY AND LEFT UP LIGHT 2547 FORMS DOWN LIGHT AND UP HORIZONTAL HEAVY 2548 FORMS UP LIGHT AND DOWN HORIZONTAL HEAVY 2549 FORMS RIGHT LIGHT AND LEFT VERTICAL HEAVY 254A FORMS LEFT LIGHT AND RIGHT VERTICAL HEAVY 254B FORMS HEAVY VERTICAL AND HORIZONTAL 254C FORMS LIGHT DOUBLE DASH HORIZONTAL 254D FORMS HEAVY DOUBLE DASH HORIZONTAL 254E FORMS LIGHT DOUBLE DASH VERTICAL 254F FORMS HEAVY DOUBLE DASH VERTICAL 2550 FORMS DOUBLE HORIZONTAL 2551 FORMS DOUBLE VERTICAL 2552 FORMS DOWN SINGLE AND RIGHT DOUBLE 2553 FORMS DOWN DOUBLE AND RIGHT SINGLE 2554 FORMS DOUBLE DOWN AND RIGHT 2555 FORMS DOWN SINGLE AND LEFT DOUBLE 2556 FORMS DOWN DOUBLE AND LEFT SINGLE 2557 FORMS DOUBLE DOWN AND LEFT 2558 FORMS UP SINGLE AND RIGHT DOUBLE 2559 FORMS UP DOUBLE AND RIGHT SINGLE 255A FORMS DOUBLE UP AND RIGHT 255B FORMS UP SINGLE AND LEFT DOUBLE 255C FORMS UP DOUBLE AND LEFT SINGLE 255D FORMS DOUBLE UP AND LEFT 255E FORMS VERTICAL SINGLE AND RIGHT DOUBLE 255F FORMS VERTICAL DOUBLE AND RIGHT SINGLE 2560 FORMS DOUBLE VERTICAL AND RIGHT 2561 FORMS VERTICAL SINGLE AND LEFT DOUBLE 2562 FORMS VERTICAL DOUBLE AND LEFT SINGLE 2563 FORMS DOUBLE VERTICAL AND LEFT 2564 FORMS DOWN SINGLE AND HORIZONTAL DOUBLE 2565 FORMS DOWN DOUBLE AND HORIZONTAL SINGLE 2566 FORMS DOUBLE DOWN AND HORIZONTAL 2567 FORMS UP SINGLE AND HORIZONTAL DOUBLE 2568 FORMS UP DOUBLE AND HORIZONTAL SINGLE 2569 FORMS DOUBLE UP AND HORIZONTAL 256A FORMS VERTICAL SINGLE AND HORIZONTAL DOUBLE 256B FORMS VERTICAL DOUBLE AND HORIZONTAL SINGLE 256C FORMS DOUBLE VERTICAL AND HORIZONTAL 256D FORMS LIGHT ARC DOWN AND RIGHT 256E FORMS LIGHT ARC DOWN AND LEFT 256F FORMS LIGHT ARC UP AND LEFT 2570 FORMS LIGHT ARC UP AND RIGHT 2571 FORMS LIGHT DIAGONAL UPPER RIGHT TO LOWER LEFT 2572 FORMS LIGHT DIAGONAL UPPER LEFT TO LOWER RIGHT 2573 FORMS LIGHT DIAGONAL CROSS 2574 FORMS LIGHT LEFT 2575 FORMS LIGHT UP 2576 FORMS LIGHT RIGHT 2577 FORMS LIGHT DOWN 2578 FORMS HEAVY LEFT 2579 FORMS HEAVY UP 257A FORMS HEAVY RIGHT 257B FORMS HEAVY DOWN 257C FORMS LIGHT LEFT AND HEAVY RIGHT 257D FORMS LIGHT UP AND HEAVY DOWN 257E FORMS HEAVY LEFT AND LIGHT RIGHT 257F FORMS HEAVY UP AND LIGHT DOWN 2586 LOWER THREE QUARTER BLOCK 258A LEFT THREE QUARTER BLOCK 25B2 BLACK UP POINTING TRIANGLE 25B3 WHITE UP POINTING TRIANGLE 25B4 BLACK UP POINTING SMALL TRIANGLE 25B5 WHITE UP POINTING SMALL TRIANGLE 25B6 BLACK RIGHT POINTING TRIANGLE 25B7 WHITE RIGHT POINTING TRIANGLE 25B8 BLACK RIGHT POINTING SMALL TRIANGLE 25B9 WHITE RIGHT POINTING SMALL TRIANGLE 25BA BLACK RIGHT POINTING POINTER 25BB WHITE RIGHT POINTING POINTER 25BC BLACK DOWN POINTING TRIANGLE 25BD WHITE DOWN POINTING TRIANGLE 25BE BLACK DOWN POINTING SMALL TRIANGLE 25BF WHITE DOWN POINTING SMALL TRIANGLE 25C0 BLACK LEFT POINTING TRIANGLE 25C1 WHITE LEFT POINTING TRIANGLE 25C2 BLACK LEFT POINTING SMALL TRIANGLE 25C3 WHITE LEFT POINTING SMALL TRIANGLE 25C4 BLACK LEFT POINTING POINTER 25C5 WHITE LEFT POINTING POINTER 25EC WHITE UP POINTING TRIANGLE WITH DOT 25ED UP POINTING TRIANGLE WITH LEFT HALF BLACK 25EE UP POINTING TRIANGLE WITH RIGHT HALF BLACK 262B SYMBOL OF IRAN 266B BARRED EIGHTH NOTES 266C BARRED SIXTEENTH NOTES 266D FLAT 266E NATURAL 266F SHARP 271B OPEN CENTER CROSS 271C HEAVY OPEN CENTER CROSS 272B OPEN CENTER BLACK STAR 272C BLACK CENTER WHITE STAR 2732 OPEN CENTER ASTERISK 273C OPEN CENTER TEARDROP-SPOKED ASTERISK 2742 CIRCLED OPEN CENTER EIGHT POINTED STAR 2776 INVERSE CIRCLED DIGIT ONE 2777 INVERSE CIRCLED DIGIT TWO 2778 INVERSE CIRCLED DIGIT THREE 2779 INVERSE CIRCLED DIGIT FOUR 277A INVERSE CIRCLED DIGIT FIVE 277B INVERSE CIRCLED DIGIT SIX 277C INVERSE CIRCLED DIGIT SEVEN 277D INVERSE CIRCLED DIGIT EIGHT 277E INVERSE CIRCLED DIGIT NINE 277F INVERSE CIRCLED NUMBER TEN 2780 CIRCLED SANS-SERIF DIGIT ONE 2781 CIRCLED SANS-SERIF DIGIT TWO 2782 CIRCLED SANS-SERIF DIGIT THREE 2783 CIRCLED SANS-SERIF DIGIT FOUR 2784 CIRCLED SANS-SERIF DIGIT FIVE 2785 CIRCLED SANS-SERIF DIGIT SIX 2786 CIRCLED SANS-SERIF DIGIT SEVEN 2787 CIRCLED SANS-SERIF DIGIT EIGHT 2788 CIRCLED SANS-SERIF DIGIT NINE 2789 CIRCLED SANS-SERIF NUMBER TEN 278A INVERSE CIRCLED SANS-SERIF DIGIT ONE 278B INVERSE CIRCLED SANS-SERIF DIGIT TWO 278C INVERSE CIRCLED SANS-SERIF DIGIT THREE 278D INVERSE CIRCLED SANS-SERIF DIGIT FOUR 278E INVERSE CIRCLED SANS-SERIF DIGIT FIVE 278F INVERSE CIRCLED SANS-SERIF DIGIT SIX 2790 INVERSE CIRCLED SANS-SERIF DIGIT SEVEN 2791 INVERSE CIRCLED SANS-SERIF DIGIT EIGHT 2792 INVERSE CIRCLED SANS-SERIF DIGIT NINE 2793 INVERSE CIRCLED SANS-SERIF NUMBER TEN 2794 HEAVY WIDE-HEADED RIGHT ARROW 2798 HEAVY LOWER RIGHT ARROW 2799 HEAVY RIGHT ARROW 279A HEAVY UPPER RIGHT ARROW 279B DRAFTING POINT RIGHT ARROW 279C HEAVY ROUND-TIPPED RIGHT ARROW 279D TRIANGLE-HEADED RIGHT ARROW 279E HEAVY TRIANGLE-HEADED RIGHT ARROW 279F DASHED TRIANGLE-HEADED RIGHT ARROW 27A0 HEAVY DASHED TRIANGLE-HEADED RIGHT ARROW 27A1 BLACK RIGHT ARROW 27A2 THREE-D TOP-LIGHTED RIGHT ARROWHEAD 27A3 THREE-D BOTTOM-LIGHTED RIGHT ARROWHEAD 27A4 BLACK RIGHT ARROWHEAD 27A5 HEAVY BLACK CURVED DOWN AND RIGHT ARROW 27A6 HEAVY BLACK CURVED UP AND RIGHT ARROW 27A7 SQUAT BLACK RIGHT ARROW 27A8 HEAVY CONCAVE-POINTED BLACK RIGHT ARROW 27A9 RIGHT-SHADED WHITE RIGHT ARROW 27AA LEFT-SHADED WHITE RIGHT ARROW 27AB BACK-TILTED SHADOWED WHITE RIGHT ARROW 27AC FRONT-TILTED SHADOWED WHITE RIGHT ARROW 27AD HEAVY LOWER RIGHT-SHADOWED WHITE RIGHT ARROW 27AE HEAVY UPPER RIGHT-SHADOWED WHITE RIGHT ARROW 27AF NOTCHED LOWER RIGHT-SHADOWED WHITE RIGHT ARROW 27B1 NOTCHED UPPER RIGHT-SHADOWED WHITE RIGHT ARROW 27B2 CIRCLED HEAVY WHITE RIGHT ARROW 27B3 WHITE-FEATHERED RIGHT ARROW 27B4 BLACK-FEATHERED LOWER RIGHT ARROW 27B5 BLACK-FEATHERED RIGHT ARROW 27B6 BLACK-FEATHERED UPPER RIGHT ARROW 27B7 HEAVY BLACK-FEATHERED LOWER RIGHT ARROW 27B8 HEAVY BLACK-FEATHERED RIGHT ARROW 27B9 HEAVY BLACK-FEATHERED UPPER RIGHT ARROW 27BA TEARDROP-BARBED RIGHT ARROW 27BB HEAVY TEARDROP-SHANKED RIGHT ARROW 27BC WEDGE-TAILED RIGHT ARROW 27BD HEAVY WEDGE-TAILED RIGHT ARROW 27BE OPEN-OUTLINED RIGHT ARROW 3002 IDEOGRAPHIC PERIOD 3008 OPENING ANGLE BRACKET 3009 CLOSING ANGLE BRACKET 300A OPENING DOUBLE ANGLE BRACKET 300B CLOSING DOUBLE ANGLE BRACKET 300C OPENING CORNER BRACKET 300D CLOSING CORNER BRACKET 300E OPENING WHITE CORNER BRACKET 300F CLOSING WHITE CORNER BRACKET 3010 OPENING BLACK LENTICULAR BRACKET 3011 CLOSING BLACK LENTICULAR BRACKET 3014 OPENING TORTOISE SHELL BRACKET 3015 CLOSING TORTOISE SHELL BRACKET 3016 OPENING WHITE LENTICULAR BRACKET 3017 CLOSING WHITE LENTICULAR BRACKET 3018 OPENING WHITE TORTOISE SHELL BRACKET 3019 CLOSING WHITE TORTOISE SHELL BRACKET 301A OPENING WHITE SQUARE BRACKET 301B CLOSING WHITE SQUARE BRACKET 3099 NON-SPACING KATAKANA-HIRAGANA VOICED SOUND MARK 309A NON-SPACING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK 3131 HANGUL LETTER GIYEOG 3132 HANGUL LETTER SSANG GIYEOG 3133 HANGUL LETTER GIYEOG SIOS 3135 HANGUL LETTER NIEUN JIEUJ 3136 HANGUL LETTER NIEUN HIEUH 3137 HANGUL LETTER DIGEUD 3138 HANGUL LETTER SSANG DIGEUD 3139 HANGUL LETTER LIEUL 313A HANGUL LETTER LIEUL GIYEOG 313B HANGUL LETTER LIEUL MIEUM 313C HANGUL LETTER LIEUL BIEUB 313D HANGUL LETTER LIEUL SIOS 313E HANGUL LETTER LIEUL TIEUT 313F HANGUL LETTER LIEUL PIEUP 3140 HANGUL LETTER LIEUL HIEUH 3142 HANGUL LETTER BIEUB 3143 HANGUL LETTER SSANG BIEUB 3144 HANGUL LETTER BIEUB SIOS 3146 HANGUL LETTER SSANG SIOS 3148 HANGUL LETTER JIEUJ 3149 HANGUL LETTER SSANG JIEUJ 314A HANGUL LETTER CIEUC 314B HANGUL LETTER KIYEOK 314C HANGUL LETTER TIEUT 314D HANGUL LETTER PIEUP 3164 HANGUL CAE OM 3165 HANGUL LETTER SSANG NIEUN 3166 HANGUL LETTER NIEUN DIGEUD 3167 HANGUL LETTER NIEUN SIOS 3168 HANGUL LETTER NIEUN BAN CHI EUM 3169 HANGUL LETTER LIEUL GIYEOG SIOS 316A HANGUL LETTER LIEUL DIGEUD 316B HANGUL LETTER LIEUL BIEUB SIOS 316C HANGUL LETTER LIEUL BAN CHI EUM 316D HANGUL LETTER LIEUL YEOLIN HIEUH 316E HANGUL LETTER MIEUM BIEUB 316F HANGUL LETTER MIEUM SIOS 3170 HANGUL LETTER BIEUB BAN CHI EUM 3171 HANGUL LETTER MIEUM SUN GYEONG EUM 3172 HANGUL LETTER BIEUB GIYEOG 3173 HANGUL LETTER BIEUB DIGEUD 3174 HANGUL LETTER BIEUB SIOS GIYEOG 3175 HANGUL LETTER BIEUB SIOS DIGEUD 3176 HANGUL LETTER BIEUB JIEUJ 3177 HANGUL LETTER BIEUB TIEUT 3178 HANGUL LETTER BIEUB SUN GYEONG EUM 3179 HANGUL LETTER SSANG BIEUB SUN GYEONG EUM 317A HANGUL LETTER SIOS GIYEOG 317B HANGUL LETTER SIOS NIEUN 317C HANGUL LETTER SIOS DIGEUD 317D HANGUL LETTER SIOS BIEUB 317E HANGUL LETTER SIOS JIEUJ 317F HANGUL LETTER BAN CHI EUM 3180 HANGUL LETTER SSANG IEUNG 3181 HANGUL LETTER NGIEUNG 3182 HANGUL LETTER NGIEUNG SIOS 3183 HANGUL LETTER NGIEUNG BAN CHI EUM 3184 HANGUL LETTER PIEUP SUN GYEONG EUM 3185 HANGUL LETTER SSANG HIEUH 3186 HANGUL LETTER YEOLIN HIEUH 3187 HANGUL LETTER YOYA 3188 HANGUL LETTER YOYAE 3189 HANGUL LETTER YOI 318A HANGUL LETTER YUYEO 318B HANGUL LETTER YUYE 318C HANGUL LETTER YUI 318D HANGUL LETTER ALAE A 318E HANGUL LETTER ALAE AE 3190 KANBUN TATETEN 3191 KAERITEN RE 3192 KAERITEN ITI 3193 KAERITEN NI 3194 KAERITEN SAN 3195 KAERITEN SI 3196 KAERITEN ZYOU 3197 KAERITEN TYUU 3198 KAERITEN GE 3199 KAERITEN KOU 319A KAERITEN OTU 319B KAERITEN HEI 319C KAERITEN TEI 319D KAERITEN TEN 319E KAERITEN TI 319F KAERITEN ZIN 3200 PARENTHESIZED HANGUL GIYEOG 3202 PARENTHESIZED HANGUL DIGEUD 3203 PARENTHESIZED HANGUL LIEUL 3205 PARENTHESIZED HANGUL BIEUB 3208 PARENTHESIZED HANGUL JIEUJ 3209 PARENTHESIZED HANGUL CIEUC 320A PARENTHESIZED HANGUL KIYEOK 320B PARENTHESIZED HANGUL TIEUT 320C PARENTHESIZED HANGUL PIEUP 320E PARENTHESIZED HANGUL GA 320F PARENTHESIZED HANGUL NA 3210 PARENTHESIZED HANGUL DA 3211 PARENTHESIZED HANGUL LA 3212 PARENTHESIZED HANGUL MA 3213 PARENTHESIZED HANGUL BA 3214 PARENTHESIZED HANGUL SA 3215 PARENTHESIZED HANGUL A 3216 PARENTHESIZED HANGUL JA 3217 PARENTHESIZED HANGUL CA 3218 PARENTHESIZED HANGUL KA 3219 PARENTHESIZED HANGUL TA 321A PARENTHESIZED HANGUL PA 321B PARENTHESIZED HANGUL HA 321C PARENTHESIZED HANGUL JU 3260 CIRCLED HANGUL GIYEOG 3262 CIRCLED HANGUL DIGEUD 3263 CIRCLED HANGUL LIEUL 3265 CIRCLED HANGUL BIEUB 3268 CIRCLED HANGUL JIEUJ 3269 CIRCLED HANGUL CIEUC 326A CIRCLED HANGUL KIYEOK 326B CIRCLED HANGUL TIEUT 326C CIRCLED HANGUL PIEUP 326E CIRCLED HANGUL GA 326F CIRCLED HANGUL NA 3270 CIRCLED HANGUL DA 3271 CIRCLED HANGUL LA 3272 CIRCLED HANGUL MA 3273 CIRCLED HANGUL BA 3274 CIRCLED HANGUL SA 3275 CIRCLED HANGUL A 3276 CIRCLED HANGUL JA 3277 CIRCLED HANGUL CA 3278 CIRCLED HANGUL KA 3279 CIRCLED HANGUL TA 327A CIRCLED HANGUL PA 327B CIRCLED HANGUL HA 32A5 CIRCLED IDEOGRAPH CENTER 3300 SQUARED APAATO 3301 SQUARED ARUHUA 3302 SQUARED ANPEA 3303 SQUARED AARU 3304 SQUARED ININGU 3305 SQUARED INTI 3306 SQUARED UON 3307 SQUARED ESUKUUDO 3308 SQUARED EEKAA 3309 SQUARED ONSU 330A SQUARED OOMU 330B SQUARED KAIRI 330C SQUARED KARATTO 330D SQUARED KARORII 330E SQUARED GARON 330F SQUARED GANMA 3310 SQUARED GIGA 3311 SQUARED GINII 3312 SQUARED KYURII 3313 SQUARED GIRUDAA 3314 SQUARED KIRO 3315 SQUARED KIROGURAMU 3316 SQUARED KIROMEETORU 3317 SQUARED KIROWATTO 3318 SQUARED GURAMU 3319 SQUARED GURAMUTON 331A SQUARED KURUZEIRO 331B SQUARED KUROONE 331C SQUARED KEESU 331D SQUARED KORUNA 331E SQUARED KOOPO 331F SQUARED SAIKURU 3320 SQUARED SANTIIMU 3321 SQUARED SIRINGU 3322 SQUARED SENTI 3323 SQUARED SENTO 3324 SQUARED DAASU 3325 SQUARED DESI 3326 SQUARED DORU 3327 SQUARED TON 3328 SQUARED NANO 3329 SQUARED NOTTO 332A SQUARED HAITU 332B SQUARED PAASENTO 332C SQUARED PAATU 332D SQUARED BAARERU 332E SQUARED PIASUTORU 332F SQUARED PIKURU 3330 SQUARED PIKO 3331 SQUARED BIRU 3332 SQUARED HUARADDO 3333 SQUARED HUIITO 3334 SQUARED BUSSYERU 3335 SQUARED HURAN 3336 SQUARED HEKUTAARU 3337 SQUARED PESO 3338 SQUARED PENIHI 3339 SQUARED HERUTU 333A SQUARED PENSU 333B SQUARED PEEZI 333C SQUARED BEETA 333D SQUARED POINTO 333E SQUARED BORUTO 333F SQUARED HON 3340 SQUARED PONDO 3341 SQUARED HOORU 3342 SQUARED HOON 3343 SQUARED MAIKURO 3344 SQUARED MAIRU 3345 SQUARED MAHHA 3346 SQUARED MARUKU 3347 SQUARED MANSYON 3348 SQUARED MIKURON 3349 SQUARED MIRI 334A SQUARED MIRIBAARU 334B SQUARED MEGA 334C SQUARED MEGATON 334D SQUARED MEETORU 334E SQUARED YAADO 334F SQUARED YAARU 3350 SQUARED YUAN 3351 SQUARED RITTORU 3352 SQUARED RIRA 3353 SQUARED RUPII 3354 SQUARED RUUBURU 3355 SQUARED REMU 3356 SQUARED RENTOGEN 3357 SQUARED WATTO 337B SQUARED TWO IDEOGRAPHS ERA NAME HEISEI 337C SQUARED TWO IDEOGRAPHS ERA NAME SYOUWA 337D SQUARED TWO IDEOGRAPHS ERA NAME TAISYOU 337E SQUARED TWO IDEOGRAPHS ERA NAME MEIZI 337F SQUARED FOUR IDEOGRAPHS CORPORATION 3380 SQUARED PA AMPS 3381 SQUARED NA 3382 SQUARED MU A 3383 SQUARED MA 3384 SQUARED KA 3385 SQUARED KB 3386 SQUARED MB 3387 SQUARED GB 3388 SQUARED CAL 3389 SQUARED KCAL 338A SQUARED PF 338B SQUARED NF 338C SQUARED MU F 338D SQUARED MU G 338E SQUARED MG 338F SQUARED KG 3390 SQUARED HZ 3391 SQUARED KHZ 3392 SQUARED MHZ 3393 SQUARED GHZ 3394 SQUARED THZ 3395 SQUARED MU L 3396 SQUARED ML 3397 SQUARED DL 3398 SQUARED KL 3399 SQUARED FM 339A SQUARED NM 339B SQUARED MU M 339C SQUARED MM 339D SQUARED CM 339E SQUARED KM 339F SQUARED MM SQUARED 33A0 SQUARED CM SQUARED 33A1 SQUARED M SQUARED 33A2 SQUARED KM SQUARED 33A3 SQUARED MM CUBED 33A4 SQUARED CM CUBED 33A5 SQUARED M CUBED 33A6 SQUARED KM CUBED 33A7 SQUARED M OVER S 33A8 SQUARED M OVER S SQUARED 33A9 SQUARED PA 33AA SQUARED KPA 33AB SQUARED MPA 33AC SQUARED GPA 33AD SQUARED RAD 33AE SQUARED RAD OVER S 33AF SQUARED RAD OVER S SQUARED 33B0 SQUARED PS 33B1 SQUARED NS 33B2 SQUARED MU S 33B3 SQUARED MS 33B4 SQUARED PV 33B5 SQUARED NV 33B6 SQUARED MU V 33B7 SQUARED MV 33B8 SQUARED KV 33B9 SQUARED MV MEGA 33BA SQUARED PW 33BB SQUARED NW 33BC SQUARED MU W 33BD SQUARED MW 33BE SQUARED KW 33BF SQUARED MW MEGA 33C0 SQUARED K OHM 33C1 SQUARED M OHM 33C2 SQUARED AM 33C3 SQUARED BQ 33C4 SQUARED CC 33C5 SQUARED CD 33C6 SQUARED C OVER KG 33C7 SQUARED CO 33C8 SQUARED DB 33C9 SQUARED GY 33CA SQUARED HA 33CB SQUARED HP 33CC SQUARED IN 33CD SQUARED KK 33CE SQUARED KM CAPITAL 33CF SQUARED KT 33D0 SQUARED LM 33D1 SQUARED LN 33D2 SQUARED LOG 33D3 SQUARED LX 33D4 SQUARED MB SMALL 33D5 SQUARED MIL 33D6 SQUARED MOL 33D7 SQUARED PH 33D8 SQUARED PM 33D9 SQUARED PPM 33DA SQUARED PR 33DB SQUARED SR 33DC SQUARED SV 33DD SQUARED WB FB1E HEBREW POINT VARIKA FDFA ARABIC LETTER SALLALLAHOU ALAYHE WASALLAM FDFB ARABIC LETTER JALLAJALALOUHOU FE30 GLYPH FOR VERTICAL TWO DOT LEADER FE31 GLYPH FOR VERTICAL EM DASH FE32 GLYPH FOR VERTICAL EN DASH FE33 GLYPH FOR VERTICAL SPACING UNDERSCORE FE34 GLYPH FOR VERTICAL SPACING WAVY UNDERSCORE FE35 GLYPH FOR VERTICAL OPENING PARENTHESIS FE36 GLYPH FOR VERTICAL CLOSING PARENTHESIS FE37 GLYPH FOR VERTICAL OPENING CURLY BRACKET FE38 GLYPH FOR VERTICAL CLOSING CURLY BRACKET FE39 GLYPH FOR VERTICAL OPENING TORTOISE SHELL BRACKET FE3A GLYPH FOR VERTICAL CLOSING TORTOISE SHELL BRACKET FE3B GLYPH FOR VERTICAL OPENING BLACK LENTICULAR BRACKET FE3C GLYPH FOR VERTICAL CLOSING BLACK LENTICULAR BRACKET FE3D GLYPH FOR VERTICAL OPENING DOUBLE ANGLE BRACKET FE3E GLYPH FOR VERTICAL CLOSING DOUBLE ANGLE BRACKET FE3F GLYPH FOR VERTICAL OPENING ANGLE BRACKET FE40 GLYPH FOR VERTICAL CLOSING ANGLE BRACKET FE41 GLYPH FOR VERTICAL OPENING CORNER BRACKET FE42 GLYPH FOR VERTICAL CLOSING CORNER BRACKET FE43 GLYPH FOR VERTICAL OPENING WHITE CORNER BRACKET FE44 GLYPH FOR VERTICAL CLOSING WHITE CORNER BRACKET FE49 SPACING DASHED OVERSCORE FE4A SPACING CENTERLINE OVERSCORE FE4B SPACING WAVY OVERSCORE FE4C SPACING DOUBLE WAVY OVERSCORE FE4D SPACING DASHED UNDERSCORE FE4E SPACING CENTERLINE UNDERSCORE FE4F SPACING WAVY UNDERSCORE FE52 SMALL PERIOD FE59 SMALL OPENING PARENTHESIS FE5A SMALL CLOSING PARENTHESIS FE5B SMALL OPENING CURLY BRACKET FE5C SMALL CLOSING CURLY BRACKET FE5D SMALL OPENING TORTOISE SHELL BRACKET FE5E SMALL CLOSING TORTOISE SHELL BRACKET FE68 SMALL BACKSLASH FE70 ARABIC SPACING FATHATAN FE71 ARABIC FATHATAN ON TATWEEL FE72 ARABIC SPACING DAMMATAN FE74 ARABIC SPACING KASRATAN FE76 ARABIC SPACING FATHAH FE77 ARABIC FATHAH ON TATWEEL FE78 ARABIC SPACING DAMMAH FE79 ARABIC DAMMAH ON TATWEEL FE7A ARABIC SPACING KASRAH FE7B ARABIC KASRAH ON TATWEEL FE7C ARABIC SPACING SHADDAH FE7D ARABIC SHADDAH ON TATWEEL FE7E ARABIC SPACING SUKUN FE7F ARABIC SUKUN ON TATWEEL FE80 GLYPH FOR ISOLATE ARABIC HAMZAH FE81 GLYPH FOR ISOLATE ARABIC MADDAH ON ALEF FE82 GLYPH FOR FINAL ARABIC MADDAH ON ALEF FE83 GLYPH FOR ISOLATE ARABIC HAMZAH ON ALEF FE84 GLYPH FOR FINAL ARABIC HAMZAH ON ALEF FE85 GLYPH FOR ISOLATE ARABIC HAMZAH ON WAW FE86 GLYPH FOR FINAL ARABIC HAMZAH ON WAW FE87 GLYPH FOR ISOLATE ARABIC HAMZAH UNDER ALEF FE88 GLYPH FOR FINAL ARABIC HAMZAH UNDER ALEF FE89 GLYPH FOR ISOLATE ARABIC HAMZAH ON YA FE8A GLYPH FOR FINAL ARABIC HAMZAH ON YA FE8B GLYPH FOR INITIAL ARABIC HAMZAH ON YA FE8C GLYPH FOR MEDIAL ARABIC HAMZAH ON YA FE8D GLYPH FOR ISOLATE ARABIC ALEF FE8E GLYPH FOR FINAL ARABIC ALEF FE8F GLYPH FOR ISOLATE ARABIC BAA FE90 GLYPH FOR FINAL ARABIC BAA FE91 GLYPH FOR INITIAL ARABIC BAA FE92 GLYPH FOR MEDIAL ARABIC BAA FE93 GLYPH FOR ISOLATE ARABIC TAA MARBUTAH FE94 GLYPH FOR FINAL ARABIC TAA MARBUTAH FE95 GLYPH FOR ISOLATE ARABIC TAA FE96 GLYPH FOR FINAL ARABIC TAA FE97 GLYPH FOR INITIAL ARABIC TAA FE98 GLYPH FOR MEDIAL ARABIC TAA FE99 GLYPH FOR ISOLATE ARABIC THAA FE9A GLYPH FOR FINAL ARABIC THAA FE9B GLYPH FOR INITIAL ARABIC THAA FE9C GLYPH FOR MEDIAL ARABIC THAA FE9D GLYPH FOR ISOLATE ARABIC JEEM FE9E GLYPH FOR FINAL ARABIC JEEM FE9F GLYPH FOR INITIAL ARABIC JEEM FEA0 GLYPH FOR MEDIAL ARABIC JEEM FEA1 GLYPH FOR ISOLATE ARABIC HAA FEA2 GLYPH FOR FINAL ARABIC HAA FEA3 GLYPH FOR INITIAL ARABIC HAA FEA4 GLYPH FOR MEDIAL ARABIC HAA FEA5 GLYPH FOR ISOLATE ARABIC KHAA FEA6 GLYPH FOR FINAL ARABIC KHAA FEA7 GLYPH FOR INITIAL ARABIC KHAA FEA8 GLYPH FOR MEDIAL ARABIC KHAA FEA9 GLYPH FOR ISOLATE ARABIC DAL FEAA GLYPH FOR FINAL ARABIC DAL FEAB GLYPH FOR ISOLATE ARABIC THAL FEAC GLYPH FOR FINAL ARABIC THAL FEAD GLYPH FOR ISOLATE ARABIC RA FEAE GLYPH FOR FINAL ARABIC RA FEAF GLYPH FOR ISOLATE ARABIC ZAIN FEB0 GLYPH FOR FINAL ARABIC ZAIN FEB1 GLYPH FOR ISOLATE ARABIC SEEN FEB2 GLYPH FOR FINAL ARABIC SEEN FEB3 GLYPH FOR INITIAL ARABIC SEEN FEB4 GLYPH FOR MEDIAL ARABIC SEEN FEB5 GLYPH FOR ISOLATE ARABIC SHEEN FEB6 GLYPH FOR FINAL ARABIC SHEEN FEB7 GLYPH FOR INITIAL ARABIC SHEEN FEB8 GLYPH FOR MEDIAL ARABIC SHEEN FEB9 GLYPH FOR ISOLATE ARABIC SAD FEBA GLYPH FOR FINAL ARABIC SAD FEBB GLYPH FOR INITIAL ARABIC SAD FEBC GLYPH FOR MEDIAL ARABIC SAD FEBD GLYPH FOR ISOLATE ARABIC DAD FEBE GLYPH FOR FINAL ARABIC DAD FEBF GLYPH FOR INITIAL ARABIC DAD FEC0 GLYPH FOR MEDIAL ARABIC DAD FEC1 GLYPH FOR ISOLATE ARABIC TAH FEC2 GLYPH FOR FINAL ARABIC TAH FEC3 GLYPH FOR INITIAL ARABIC TAH FEC4 GLYPH FOR MEDIAL ARABIC TAH FEC5 GLYPH FOR ISOLATE ARABIC DHAH FEC6 GLYPH FOR FINAL ARABIC DHAH FEC7 GLYPH FOR INITIAL ARABIC DHAH FEC8 GLYPH FOR MEDIAL ARABIC DHAH FEC9 GLYPH FOR ISOLATE ARABIC AIN FECA GLYPH FOR FINAL ARABIC AIN FECB GLYPH FOR INITIAL ARABIC AIN FECC GLYPH FOR MEDIAL ARABIC AIN FECD GLYPH FOR ISOLATE ARABIC GHAIN FECE GLYPH FOR FINAL ARABIC GHAIN FECF GLYPH FOR INITIAL ARABIC GHAIN FED0 GLYPH FOR MEDIAL ARABIC GHAIN FED1 GLYPH FOR ISOLATE ARABIC FA FED2 GLYPH FOR FINAL ARABIC FA FED3 GLYPH FOR INITIAL ARABIC FA FED4 GLYPH FOR MEDIAL ARABIC FA FED5 GLYPH FOR ISOLATE ARABIC QAF FED6 GLYPH FOR FINAL ARABIC QAF FED7 GLYPH FOR INITIAL ARABIC QAF FED8 GLYPH FOR MEDIAL ARABIC QAF FED9 GLYPH FOR ISOLATE ARABIC CAF FEDA GLYPH FOR FINAL ARABIC CAF FEDB GLYPH FOR INITIAL ARABIC CAF FEDC GLYPH FOR MEDIAL ARABIC CAF FEDD GLYPH FOR ISOLATE ARABIC LAM FEDE GLYPH FOR FINAL ARABIC LAM FEDF GLYPH FOR INITIAL ARABIC LAM FEE0 GLYPH FOR MEDIAL ARABIC LAM FEE1 GLYPH FOR ISOLATE ARABIC MEEM FEE2 GLYPH FOR FINAL ARABIC MEEM FEE3 GLYPH FOR INITIAL ARABIC MEEM FEE4 GLYPH FOR MEDIAL ARABIC MEEM FEE5 GLYPH FOR ISOLATE ARABIC NOON FEE6 GLYPH FOR FINAL ARABIC NOON FEE7 GLYPH FOR INITIAL ARABIC NOON FEE8 GLYPH FOR MEDIAL ARABIC NOON FEE9 GLYPH FOR ISOLATE ARABIC HA FEEA GLYPH FOR FINAL ARABIC HA FEEB GLYPH FOR INITIAL ARABIC HA FEEC GLYPH FOR MEDIAL ARABIC HA FEED GLYPH FOR ISOLATE ARABIC WAW FEEE GLYPH FOR FINAL ARABIC WAW FEEF GLYPH FOR ISOLATE ARABIC ALEF MAQSURAH FEF0 GLYPH FOR FINAL ARABIC ALEF MAQSURAH FEF1 GLYPH FOR ISOLATE ARABIC YA FEF2 GLYPH FOR FINAL ARABIC YA FEF3 GLYPH FOR INITIAL ARABIC YA FEF4 GLYPH FOR MEDIAL ARABIC YA FEF5 GLYPH FOR ISOLATE ARABIC MADDAH ON LIGATURE LAM ALEF FEF6 GLYPH FOR FINAL ARABIC MADDAH ON LIGATURE LAM ALEF FEF7 GLYPH FOR ISOLATE ARABIC HAMZAH ON LIGATURE LAM ALEF FEF8 GLYPH FOR FINAL ARABIC HAMZAH ON LIGATURE LAM ALEF FEF9 GLYPH FOR ISOLATE ARABIC HAMZAH UNDER LIGATURE LAM ALEF FEFA GLYPH FOR FINAL ARABIC HAMZAH UNDER LIGATURE LAM ALEF FEFB GLYPH FOR ISOLATE ARABIC LIGATURE LAM ALEF FEFC GLYPH FOR FINAL ARABIC LIGATURE LAM ALEF FEFF BYTE ORDER MARK FF08 FULLWIDTH OPENING PARENTHESIS FF09 FULLWIDTH CLOSING PARENTHESIS FF0E FULLWIDTH PERIOD FF0F FULLWIDTH SLASH FF3B FULLWIDTH OPENING SQUARE BRACKET FF3C FULLWIDTH BACKSLASH FF3D FULLWIDTH CLOSING SQUARE BRACKET FF3E FULLWIDTH SPACING CIRCUMFLEX FF3F FULLWIDTH SPACING UNDERSCORE FF40 FULLWIDTH SPACING GRAVE FF5B FULLWIDTH OPENING CURLY BRACKET FF5C FULLWIDTH VERTICAL BAR FF5D FULLWIDTH CLOSING CURLY BRACKET FF5E FULLWIDTH SPACING TILDE FF61 HALFWIDTH IDEOGRAPHIC PERIOD FF62 HALFWIDTH OPENING CORNER BRACKET FF63 HALFWIDTH CLOSING CORNER BRACKET FFA0 HALFWIDTH HANGUL CAE OM FFA1 HALFWIDTH HANGUL LETTER GIYEOG FFA2 HALFWIDTH HANGUL LETTER SSANG GIYEOG FFA3 HALFWIDTH HANGUL LETTER GIYEOG SIOS FFA5 HALFWIDTH HANGUL LETTER NIEUN JIEUJ FFA6 HALFWIDTH HANGUL LETTER NIEUN HIEUH FFA7 HALFWIDTH HANGUL LETTER DIGEUD FFA8 HALFWIDTH HANGUL LETTER SSANG DIGEUD FFA9 HALFWIDTH HANGUL LETTER LIEUL FFAA HALFWIDTH HANGUL LETTER LIEUL GIYEOG FFAB HALFWIDTH HANGUL LETTER LIEUL MIEUM FFAC HALFWIDTH HANGUL LETTER LIEUL BIEUB FFAD HALFWIDTH HANGUL LETTER LIEUL SIOS FFAE HALFWIDTH HANGUL LETTER LIEUL TIEUT FFAF HALFWIDTH HANGUL LETTER LIEUL PIEUP FFB0 HALFWIDTH HANGUL LETTER LIEUL HIEUH FFB2 HALFWIDTH HANGUL LETTER BIEUB FFB3 HALFWIDTH HANGUL LETTER SSANG BIEUB FFB4 HALFWIDTH HANGUL LETTER BIEUB SIOS FFB6 HALFWIDTH HANGUL LETTER SSANG SIOS FFB8 HALFWIDTH HANGUL LETTER JIEUJ FFB9 HALFWIDTH HANGUL LETTER SSANG JIEUJ FFBA HALFWIDTH HANGUL LETTER CIEUC FFBB HALFWIDTH HANGUL LETTER KIYEOK FFBC HALFWIDTH HANGUL LETTER TIEUT FFBD HALFWIDTH HANGUL LETTER PIEUP FFE3 FULLWIDTH SPACING MACRON FFE4 FULLWIDTH BROKEN VERTICAL BAR END PK ! 5�� �� 5.34.0/unicore/To/Gc.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToGc'}{'format'} = 's'; # string $Unicode::UCD::SwashInfo{'ToGc'}{'missing'} = 'Cn'; return <<'END'; 0 1F Cc 20 Zs 21 23 Po 24 Sc 25 27 Po 28 Ps 29 Pe 2A Po 2B Sm 2C Po 2D Pd 2E 2F Po 30 39 Nd 3A 3B Po 3C 3E Sm 3F 40 Po 41 5A Lu 5B Ps 5C Po 5D Pe 5E Sk 5F Pc 60 Sk 61 7A Ll 7B Ps 7C Sm 7D Pe 7E Sm 7F 9F Cc A0 Zs A1 Po A2 A5 Sc A6 So A7 Po A8 Sk A9 So AA Lo AB Pi AC Sm AD Cf AE So AF Sk B0 So B1 Sm B2 B3 No B4 Sk B5 Ll B6 B7 Po B8 Sk B9 No BA Lo BB Pf BC BE No BF Po C0 D6 Lu D7 Sm D8 DE Lu DF F6 Ll F7 Sm F8 FF Ll 100 Lu 101 Ll 102 Lu 103 Ll 104 Lu 105 Ll 106 Lu 107 Ll 108 Lu 109 Ll 10A Lu 10B Ll 10C Lu 10D Ll 10E Lu 10F Ll 110 Lu 111 Ll 112 Lu 113 Ll 114 Lu 115 Ll 116 Lu 117 Ll 118 Lu 119 Ll 11A Lu 11B Ll 11C Lu 11D Ll 11E Lu 11F Ll 120 Lu 121 Ll 122 Lu 123 Ll 124 Lu 125 Ll 126 Lu 127 Ll 128 Lu 129 Ll 12A Lu 12B Ll 12C Lu 12D Ll 12E Lu 12F Ll 130 Lu 131 Ll 132 Lu 133 Ll 134 Lu 135 Ll 136 Lu 137 138 Ll 139 Lu 13A Ll 13B Lu 13C Ll 13D Lu 13E Ll 13F Lu 140 Ll 141 Lu 142 Ll 143 Lu 144 Ll 145 Lu 146 Ll 147 Lu 148 149 Ll 14A Lu 14B Ll 14C Lu 14D Ll 14E Lu 14F Ll 150 Lu 151 Ll 152 Lu 153 Ll 154 Lu 155 Ll 156 Lu 157 Ll 158 Lu 159 Ll 15A Lu 15B Ll 15C Lu 15D Ll 15E Lu 15F Ll 160 Lu 161 Ll 162 Lu 163 Ll 164 Lu 165 Ll 166 Lu 167 Ll 168 Lu 169 Ll 16A Lu 16B Ll 16C Lu 16D Ll 16E Lu 16F Ll 170 Lu 171 Ll 172 Lu 173 Ll 174 Lu 175 Ll 176 Lu 177 Ll 178 179 Lu 17A Ll 17B Lu 17C Ll 17D Lu 17E 180 Ll 181 182 Lu 183 Ll 184 Lu 185 Ll 186 187 Lu 188 Ll 189 18B Lu 18C 18D Ll 18E 191 Lu 192 Ll 193 194 Lu 195 Ll 196 198 Lu 199 19B Ll 19C 19D Lu 19E Ll 19F 1A0 Lu 1A1 Ll 1A2 Lu 1A3 Ll 1A4 Lu 1A5 Ll 1A6 1A7 Lu 1A8 Ll 1A9 Lu 1AA 1AB Ll 1AC Lu 1AD Ll 1AE 1AF Lu 1B0 Ll 1B1 1B3 Lu 1B4 Ll 1B5 Lu 1B6 Ll 1B7 1B8 Lu 1B9 1BA Ll 1BB Lo 1BC Lu 1BD 1BF Ll 1C0 1C3 Lo 1C4 Lu 1C5 Lt 1C6 Ll 1C7 Lu 1C8 Lt 1C9 Ll 1CA Lu 1CB Lt 1CC Ll 1CD Lu 1CE Ll 1CF Lu 1D0 Ll 1D1 Lu 1D2 Ll 1D3 Lu 1D4 Ll 1D5 Lu 1D6 Ll 1D7 Lu 1D8 Ll 1D9 Lu 1DA Ll 1DB Lu 1DC 1DD Ll 1DE Lu 1DF Ll 1E0 Lu 1E1 Ll 1E2 Lu 1E3 Ll 1E4 Lu 1E5 Ll 1E6 Lu 1E7 Ll 1E8 Lu 1E9 Ll 1EA Lu 1EB Ll 1EC Lu 1ED Ll 1EE Lu 1EF 1F0 Ll 1F1 Lu 1F2 Lt 1F3 Ll 1F4 Lu 1F5 Ll 1F6 1F8 Lu 1F9 Ll 1FA Lu 1FB Ll 1FC Lu 1FD Ll 1FE Lu 1FF Ll 200 Lu 201 Ll 202 Lu 203 Ll 204 Lu 205 Ll 206 Lu 207 Ll 208 Lu 209 Ll 20A Lu 20B Ll 20C Lu 20D Ll 20E Lu 20F Ll 210 Lu 211 Ll 212 Lu 213 Ll 214 Lu 215 Ll 216 Lu 217 Ll 218 Lu 219 Ll 21A Lu 21B Ll 21C Lu 21D Ll 21E Lu 21F Ll 220 Lu 221 Ll 222 Lu 223 Ll 224 Lu 225 Ll 226 Lu 227 Ll 228 Lu 229 Ll 22A Lu 22B Ll 22C Lu 22D Ll 22E Lu 22F Ll 230 Lu 231 Ll 232 Lu 233 239 Ll 23A 23B Lu 23C Ll 23D 23E Lu 23F 240 Ll 241 Lu 242 Ll 243 246 Lu 247 Ll 248 Lu 249 Ll 24A Lu 24B Ll 24C Lu 24D Ll 24E Lu 24F 293 Ll 294 Lo 295 2AF Ll 2B0 2C1 Lm 2C2 2C5 Sk 2C6 2D1 Lm 2D2 2DF Sk 2E0 2E4 Lm 2E5 2EB Sk 2EC Lm 2ED Sk 2EE Lm 2EF 2FF Sk 300 36F Mn 370 Lu 371 Ll 372 Lu 373 Ll 374 Lm 375 Sk 376 Lu 377 Ll 37A Lm 37B 37D Ll 37E Po 37F Lu 384 385 Sk 386 Lu 387 Po 388 38A Lu 38C Lu 38E 38F Lu 390 Ll 391 3A1 Lu 3A3 3AB Lu 3AC 3CE Ll 3CF Lu 3D0 3D1 Ll 3D2 3D4 Lu 3D5 3D7 Ll 3D8 Lu 3D9 Ll 3DA Lu 3DB Ll 3DC Lu 3DD Ll 3DE Lu 3DF Ll 3E0 Lu 3E1 Ll 3E2 Lu 3E3 Ll 3E4 Lu 3E5 Ll 3E6 Lu 3E7 Ll 3E8 Lu 3E9 Ll 3EA Lu 3EB Ll 3EC Lu 3ED Ll 3EE Lu 3EF 3F3 Ll 3F4 Lu 3F5 Ll 3F6 Sm 3F7 Lu 3F8 Ll 3F9 3FA Lu 3FB 3FC Ll 3FD 42F Lu 430 45F Ll 460 Lu 461 Ll 462 Lu 463 Ll 464 Lu 465 Ll 466 Lu 467 Ll 468 Lu 469 Ll 46A Lu 46B Ll 46C Lu 46D Ll 46E Lu 46F Ll 470 Lu 471 Ll 472 Lu 473 Ll 474 Lu 475 Ll 476 Lu 477 Ll 478 Lu 479 Ll 47A Lu 47B Ll 47C Lu 47D Ll 47E Lu 47F Ll 480 Lu 481 Ll 482 So 483 487 Mn 488 489 Me 48A Lu 48B Ll 48C Lu 48D Ll 48E Lu 48F Ll 490 Lu 491 Ll 492 Lu 493 Ll 494 Lu 495 Ll 496 Lu 497 Ll 498 Lu 499 Ll 49A Lu 49B Ll 49C Lu 49D Ll 49E Lu 49F Ll 4A0 Lu 4A1 Ll 4A2 Lu 4A3 Ll 4A4 Lu 4A5 Ll 4A6 Lu 4A7 Ll 4A8 Lu 4A9 Ll 4AA Lu 4AB Ll 4AC Lu 4AD Ll 4AE Lu 4AF Ll 4B0 Lu 4B1 Ll 4B2 Lu 4B3 Ll 4B4 Lu 4B5 Ll 4B6 Lu 4B7 Ll 4B8 Lu 4B9 Ll 4BA Lu 4BB Ll 4BC Lu 4BD Ll 4BE Lu 4BF Ll 4C0 4C1 Lu 4C2 Ll 4C3 Lu 4C4 Ll 4C5 Lu 4C6 Ll 4C7 Lu 4C8 Ll 4C9 Lu 4CA Ll 4CB Lu 4CC Ll 4CD Lu 4CE 4CF Ll 4D0 Lu 4D1 Ll 4D2 Lu 4D3 Ll 4D4 Lu 4D5 Ll 4D6 Lu 4D7 Ll 4D8 Lu 4D9 Ll 4DA Lu 4DB Ll 4DC Lu 4DD Ll 4DE Lu 4DF Ll 4E0 Lu 4E1 Ll 4E2 Lu 4E3 Ll 4E4 Lu 4E5 Ll 4E6 Lu 4E7 Ll 4E8 Lu 4E9 Ll 4EA Lu 4EB Ll 4EC Lu 4ED Ll 4EE Lu 4EF Ll 4F0 Lu 4F1 Ll 4F2 Lu 4F3 Ll 4F4 Lu 4F5 Ll 4F6 Lu 4F7 Ll 4F8 Lu 4F9 Ll 4FA Lu 4FB Ll 4FC Lu 4FD Ll 4FE Lu 4FF Ll 500 Lu 501 Ll 502 Lu 503 Ll 504 Lu 505 Ll 506 Lu 507 Ll 508 Lu 509 Ll 50A Lu 50B Ll 50C Lu 50D Ll 50E Lu 50F Ll 510 Lu 511 Ll 512 Lu 513 Ll 514 Lu 515 Ll 516 Lu 517 Ll 518 Lu 519 Ll 51A Lu 51B Ll 51C Lu 51D Ll 51E Lu 51F Ll 520 Lu 521 Ll 522 Lu 523 Ll 524 Lu 525 Ll 526 Lu 527 Ll 528 Lu 529 Ll 52A Lu 52B Ll 52C Lu 52D Ll 52E Lu 52F Ll 531 556 Lu 559 Lm 55A 55F Po 560 588 Ll 589 Po 58A Pd 58D 58E So 58F Sc 591 5BD Mn 5BE Pd 5BF Mn 5C0 Po 5C1 5C2 Mn 5C3 Po 5C4 5C5 Mn 5C6 Po 5C7 Mn 5D0 5EA Lo 5EF 5F2 Lo 5F3 5F4 Po 600 605 Cf 606 608 Sm 609 60A Po 60B Sc 60C 60D Po 60E 60F So 610 61A Mn 61B Po 61C Cf 61E 61F Po 620 63F Lo 640 Lm 641 64A Lo 64B 65F Mn 660 669 Nd 66A 66D Po 66E 66F Lo 670 Mn 671 6D3 Lo 6D4 Po 6D5 Lo 6D6 6DC Mn 6DD Cf 6DE So 6DF 6E4 Mn 6E5 6E6 Lm 6E7 6E8 Mn 6E9 So 6EA 6ED Mn 6EE 6EF Lo 6F0 6F9 Nd 6FA 6FC Lo 6FD 6FE So 6FF Lo 700 70D Po 70F Cf 710 Lo 711 Mn 712 72F Lo 730 74A Mn 74D 7A5 Lo 7A6 7B0 Mn 7B1 Lo 7C0 7C9 Nd 7CA 7EA Lo 7EB 7F3 Mn 7F4 7F5 Lm 7F6 So 7F7 7F9 Po 7FA Lm 7FD Mn 7FE 7FF Sc 800 815 Lo 816 819 Mn 81A Lm 81B 823 Mn 824 Lm 825 827 Mn 828 Lm 829 82D Mn 830 83E Po 840 858 Lo 859 85B Mn 85E Po 860 86A Lo 8A0 8B4 Lo 8B6 8C7 Lo 8D3 8E1 Mn 8E2 Cf 8E3 902 Mn 903 Mc 904 939 Lo 93A Mn 93B Mc 93C Mn 93D Lo 93E 940 Mc 941 948 Mn 949 94C Mc 94D Mn 94E 94F Mc 950 Lo 951 957 Mn 958 961 Lo 962 963 Mn 964 965 Po 966 96F Nd 970 Po 971 Lm 972 980 Lo 981 Mn 982 983 Mc 985 98C Lo 98F 990 Lo 993 9A8 Lo 9AA 9B0 Lo 9B2 Lo 9B6 9B9 Lo 9BC Mn 9BD Lo 9BE 9C0 Mc 9C1 9C4 Mn 9C7 9C8 Mc 9CB 9CC Mc 9CD Mn 9CE Lo 9D7 Mc 9DC 9DD Lo 9DF 9E1 Lo 9E2 9E3 Mn 9E6 9EF Nd 9F0 9F1 Lo 9F2 9F3 Sc 9F4 9F9 No 9FA So 9FB Sc 9FC Lo 9FD Po 9FE Mn A01 A02 Mn A03 Mc A05 A0A Lo A0F A10 Lo A13 A28 Lo A2A A30 Lo A32 A33 Lo A35 A36 Lo A38 A39 Lo A3C Mn A3E A40 Mc A41 A42 Mn A47 A48 Mn A4B A4D Mn A51 Mn A59 A5C Lo A5E Lo A66 A6F Nd A70 A71 Mn A72 A74 Lo A75 Mn A76 Po A81 A82 Mn A83 Mc A85 A8D Lo A8F A91 Lo A93 AA8 Lo AAA AB0 Lo AB2 AB3 Lo AB5 AB9 Lo ABC Mn ABD Lo ABE AC0 Mc AC1 AC5 Mn AC7 AC8 Mn AC9 Mc ACB ACC Mc ACD Mn AD0 Lo AE0 AE1 Lo AE2 AE3 Mn AE6 AEF Nd AF0 Po AF1 Sc AF9 Lo AFA AFF Mn B01 Mn B02 B03 Mc B05 B0C Lo B0F B10 Lo B13 B28 Lo B2A B30 Lo B32 B33 Lo B35 B39 Lo B3C Mn B3D Lo B3E Mc B3F Mn B40 Mc B41 B44 Mn B47 B48 Mc B4B B4C Mc B4D Mn B55 B56 Mn B57 Mc B5C B5D Lo B5F B61 Lo B62 B63 Mn B66 B6F Nd B70 So B71 Lo B72 B77 No B82 Mn B83 Lo B85 B8A Lo B8E B90 Lo B92 B95 Lo B99 B9A Lo B9C Lo B9E B9F Lo BA3 BA4 Lo BA8 BAA Lo BAE BB9 Lo BBE BBF Mc BC0 Mn BC1 BC2 Mc BC6 BC8 Mc BCA BCC Mc BCD Mn BD0 Lo BD7 Mc BE6 BEF Nd BF0 BF2 No BF3 BF8 So BF9 Sc BFA So C00 Mn C01 C03 Mc C04 Mn C05 C0C Lo C0E C10 Lo C12 C28 Lo C2A C39 Lo C3D Lo C3E C40 Mn C41 C44 Mc C46 C48 Mn C4A C4D Mn C55 C56 Mn C58 C5A Lo C60 C61 Lo C62 C63 Mn C66 C6F Nd C77 Po C78 C7E No C7F So C80 Lo C81 Mn C82 C83 Mc C84 Po C85 C8C Lo C8E C90 Lo C92 CA8 Lo CAA CB3 Lo CB5 CB9 Lo CBC Mn CBD Lo CBE Mc CBF Mn CC0 CC4 Mc CC6 Mn CC7 CC8 Mc CCA CCB Mc CCC CCD Mn CD5 CD6 Mc CDE Lo CE0 CE1 Lo CE2 CE3 Mn CE6 CEF Nd CF1 CF2 Lo D00 D01 Mn D02 D03 Mc D04 D0C Lo D0E D10 Lo D12 D3A Lo D3B D3C Mn D3D Lo D3E D40 Mc D41 D44 Mn D46 D48 Mc D4A D4C Mc D4D Mn D4E Lo D4F So D54 D56 Lo D57 Mc D58 D5E No D5F D61 Lo D62 D63 Mn D66 D6F Nd D70 D78 No D79 So D7A D7F Lo D81 Mn D82 D83 Mc D85 D96 Lo D9A DB1 Lo DB3 DBB Lo DBD Lo DC0 DC6 Lo DCA Mn DCF DD1 Mc DD2 DD4 Mn DD6 Mn DD8 DDF Mc DE6 DEF Nd DF2 DF3 Mc DF4 Po E01 E30 Lo E31 Mn E32 E33 Lo E34 E3A Mn E3F Sc E40 E45 Lo E46 Lm E47 E4E Mn E4F Po E50 E59 Nd E5A E5B Po E81 E82 Lo E84 Lo E86 E8A Lo E8C EA3 Lo EA5 Lo EA7 EB0 Lo EB1 Mn EB2 EB3 Lo EB4 EBC Mn EBD Lo EC0 EC4 Lo EC6 Lm EC8 ECD Mn ED0 ED9 Nd EDC EDF Lo F00 Lo F01 F03 So F04 F12 Po F13 So F14 Po F15 F17 So F18 F19 Mn F1A F1F So F20 F29 Nd F2A F33 No F34 So F35 Mn F36 So F37 Mn F38 So F39 Mn F3A Ps F3B Pe F3C Ps F3D Pe F3E F3F Mc F40 F47 Lo F49 F6C Lo F71 F7E Mn F7F Mc F80 F84 Mn F85 Po F86 F87 Mn F88 F8C Lo F8D F97 Mn F99 FBC Mn FBE FC5 So FC6 Mn FC7 FCC So FCE FCF So FD0 FD4 Po FD5 FD8 So FD9 FDA Po 1000 102A Lo 102B 102C Mc 102D 1030 Mn 1031 Mc 1032 1037 Mn 1038 Mc 1039 103A Mn 103B 103C Mc 103D 103E Mn 103F Lo 1040 1049 Nd 104A 104F Po 1050 1055 Lo 1056 1057 Mc 1058 1059 Mn 105A 105D Lo 105E 1060 Mn 1061 Lo 1062 1064 Mc 1065 1066 Lo 1067 106D Mc 106E 1070 Lo 1071 1074 Mn 1075 1081 Lo 1082 Mn 1083 1084 Mc 1085 1086 Mn 1087 108C Mc 108D Mn 108E Lo 108F Mc 1090 1099 Nd 109A 109C Mc 109D Mn 109E 109F So 10A0 10C5 Lu 10C7 Lu 10CD Lu 10D0 10FA Ll 10FB Po 10FC Lm 10FD 10FF Ll 1100 1248 Lo 124A 124D Lo 1250 1256 Lo 1258 Lo 125A 125D Lo 1260 1288 Lo 128A 128D Lo 1290 12B0 Lo 12B2 12B5 Lo 12B8 12BE Lo 12C0 Lo 12C2 12C5 Lo 12C8 12D6 Lo 12D8 1310 Lo 1312 1315 Lo 1318 135A Lo 135D 135F Mn 1360 1368 Po 1369 137C No 1380 138F Lo 1390 1399 So 13A0 13F5 Lu 13F8 13FD Ll 1400 Pd 1401 166C Lo 166D So 166E Po 166F 167F Lo 1680 Zs 1681 169A Lo 169B Ps 169C Pe 16A0 16EA Lo 16EB 16ED Po 16EE 16F0 Nl 16F1 16F8 Lo 1700 170C Lo 170E 1711 Lo 1712 1714 Mn 1720 1731 Lo 1732 1734 Mn 1735 1736 Po 1740 1751 Lo 1752 1753 Mn 1760 176C Lo 176E 1770 Lo 1772 1773 Mn 1780 17B3 Lo 17B4 17B5 Mn 17B6 Mc 17B7 17BD Mn 17BE 17C5 Mc 17C6 Mn 17C7 17C8 Mc 17C9 17D3 Mn 17D4 17D6 Po 17D7 Lm 17D8 17DA Po 17DB Sc 17DC Lo 17DD Mn 17E0 17E9 Nd 17F0 17F9 No 1800 1805 Po 1806 Pd 1807 180A Po 180B 180D Mn 180E Cf 1810 1819 Nd 1820 1842 Lo 1843 Lm 1844 1878 Lo 1880 1884 Lo 1885 1886 Mn 1887 18A8 Lo 18A9 Mn 18AA Lo 18B0 18F5 Lo 1900 191E Lo 1920 1922 Mn 1923 1926 Mc 1927 1928 Mn 1929 192B Mc 1930 1931 Mc 1932 Mn 1933 1938 Mc 1939 193B Mn 1940 So 1944 1945 Po 1946 194F Nd 1950 196D Lo 1970 1974 Lo 1980 19AB Lo 19B0 19C9 Lo 19D0 19D9 Nd 19DA No 19DE 19FF So 1A00 1A16 Lo 1A17 1A18 Mn 1A19 1A1A Mc 1A1B Mn 1A1E 1A1F Po 1A20 1A54 Lo 1A55 Mc 1A56 Mn 1A57 Mc 1A58 1A5E Mn 1A60 Mn 1A61 Mc 1A62 Mn 1A63 1A64 Mc 1A65 1A6C Mn 1A6D 1A72 Mc 1A73 1A7C Mn 1A7F Mn 1A80 1A89 Nd 1A90 1A99 Nd 1AA0 1AA6 Po 1AA7 Lm 1AA8 1AAD Po 1AB0 1ABD Mn 1ABE Me 1ABF 1AC0 Mn 1B00 1B03 Mn 1B04 Mc 1B05 1B33 Lo 1B34 Mn 1B35 Mc 1B36 1B3A Mn 1B3B Mc 1B3C Mn 1B3D 1B41 Mc 1B42 Mn 1B43 1B44 Mc 1B45 1B4B Lo 1B50 1B59 Nd 1B5A 1B60 Po 1B61 1B6A So 1B6B 1B73 Mn 1B74 1B7C So 1B80 1B81 Mn 1B82 Mc 1B83 1BA0 Lo 1BA1 Mc 1BA2 1BA5 Mn 1BA6 1BA7 Mc 1BA8 1BA9 Mn 1BAA Mc 1BAB 1BAD Mn 1BAE 1BAF Lo 1BB0 1BB9 Nd 1BBA 1BE5 Lo 1BE6 Mn 1BE7 Mc 1BE8 1BE9 Mn 1BEA 1BEC Mc 1BED Mn 1BEE Mc 1BEF 1BF1 Mn 1BF2 1BF3 Mc 1BFC 1BFF Po 1C00 1C23 Lo 1C24 1C2B Mc 1C2C 1C33 Mn 1C34 1C35 Mc 1C36 1C37 Mn 1C3B 1C3F Po 1C40 1C49 Nd 1C4D 1C4F Lo 1C50 1C59 Nd 1C5A 1C77 Lo 1C78 1C7D Lm 1C7E 1C7F Po 1C80 1C88 Ll 1C90 1CBA Lu 1CBD 1CBF Lu 1CC0 1CC7 Po 1CD0 1CD2 Mn 1CD3 Po 1CD4 1CE0 Mn 1CE1 Mc 1CE2 1CE8 Mn 1CE9 1CEC Lo 1CED Mn 1CEE 1CF3 Lo 1CF4 Mn 1CF5 1CF6 Lo 1CF7 Mc 1CF8 1CF9 Mn 1CFA Lo 1D00 1D2B Ll 1D2C 1D6A Lm 1D6B 1D77 Ll 1D78 Lm 1D79 1D9A Ll 1D9B 1DBF Lm 1DC0 1DF9 Mn 1DFB 1DFF Mn 1E00 Lu 1E01 Ll 1E02 Lu 1E03 Ll 1E04 Lu 1E05 Ll 1E06 Lu 1E07 Ll 1E08 Lu 1E09 Ll 1E0A Lu 1E0B Ll 1E0C Lu 1E0D Ll 1E0E Lu 1E0F Ll 1E10 Lu 1E11 Ll 1E12 Lu 1E13 Ll 1E14 Lu 1E15 Ll 1E16 Lu 1E17 Ll 1E18 Lu 1E19 Ll 1E1A Lu 1E1B Ll 1E1C Lu 1E1D Ll 1E1E Lu 1E1F Ll 1E20 Lu 1E21 Ll 1E22 Lu 1E23 Ll 1E24 Lu 1E25 Ll 1E26 Lu 1E27 Ll 1E28 Lu 1E29 Ll 1E2A Lu 1E2B Ll 1E2C Lu 1E2D Ll 1E2E Lu 1E2F Ll 1E30 Lu 1E31 Ll 1E32 Lu 1E33 Ll 1E34 Lu 1E35 Ll 1E36 Lu 1E37 Ll 1E38 Lu 1E39 Ll 1E3A Lu 1E3B Ll 1E3C Lu 1E3D Ll 1E3E Lu 1E3F Ll 1E40 Lu 1E41 Ll 1E42 Lu 1E43 Ll 1E44 Lu 1E45 Ll 1E46 Lu 1E47 Ll 1E48 Lu 1E49 Ll 1E4A Lu 1E4B Ll 1E4C Lu 1E4D Ll 1E4E Lu 1E4F Ll 1E50 Lu 1E51 Ll 1E52 Lu 1E53 Ll 1E54 Lu 1E55 Ll 1E56 Lu 1E57 Ll 1E58 Lu 1E59 Ll 1E5A Lu 1E5B Ll 1E5C Lu 1E5D Ll 1E5E Lu 1E5F Ll 1E60 Lu 1E61 Ll 1E62 Lu 1E63 Ll 1E64 Lu 1E65 Ll 1E66 Lu 1E67 Ll 1E68 Lu 1E69 Ll 1E6A Lu 1E6B Ll 1E6C Lu 1E6D Ll 1E6E Lu 1E6F Ll 1E70 Lu 1E71 Ll 1E72 Lu 1E73 Ll 1E74 Lu 1E75 Ll 1E76 Lu 1E77 Ll 1E78 Lu 1E79 Ll 1E7A Lu 1E7B Ll 1E7C Lu 1E7D Ll 1E7E Lu 1E7F Ll 1E80 Lu 1E81 Ll 1E82 Lu 1E83 Ll 1E84 Lu 1E85 Ll 1E86 Lu 1E87 Ll 1E88 Lu 1E89 Ll 1E8A Lu 1E8B Ll 1E8C Lu 1E8D Ll 1E8E Lu 1E8F Ll 1E90 Lu 1E91 Ll 1E92 Lu 1E93 Ll 1E94 Lu 1E95 1E9D Ll 1E9E Lu 1E9F Ll 1EA0 Lu 1EA1 Ll 1EA2 Lu 1EA3 Ll 1EA4 Lu 1EA5 Ll 1EA6 Lu 1EA7 Ll 1EA8 Lu 1EA9 Ll 1EAA Lu 1EAB Ll 1EAC Lu 1EAD Ll 1EAE Lu 1EAF Ll 1EB0 Lu 1EB1 Ll 1EB2 Lu 1EB3 Ll 1EB4 Lu 1EB5 Ll 1EB6 Lu 1EB7 Ll 1EB8 Lu 1EB9 Ll 1EBA Lu 1EBB Ll 1EBC Lu 1EBD Ll 1EBE Lu 1EBF Ll 1EC0 Lu 1EC1 Ll 1EC2 Lu 1EC3 Ll 1EC4 Lu 1EC5 Ll 1EC6 Lu 1EC7 Ll 1EC8 Lu 1EC9 Ll 1ECA Lu 1ECB Ll 1ECC Lu 1ECD Ll 1ECE Lu 1ECF Ll 1ED0 Lu 1ED1 Ll 1ED2 Lu 1ED3 Ll 1ED4 Lu 1ED5 Ll 1ED6 Lu 1ED7 Ll 1ED8 Lu 1ED9 Ll 1EDA Lu 1EDB Ll 1EDC Lu 1EDD Ll 1EDE Lu 1EDF Ll 1EE0 Lu 1EE1 Ll 1EE2 Lu 1EE3 Ll 1EE4 Lu 1EE5 Ll 1EE6 Lu 1EE7 Ll 1EE8 Lu 1EE9 Ll 1EEA Lu 1EEB Ll 1EEC Lu 1EED Ll 1EEE Lu 1EEF Ll 1EF0 Lu 1EF1 Ll 1EF2 Lu 1EF3 Ll 1EF4 Lu 1EF5 Ll 1EF6 Lu 1EF7 Ll 1EF8 Lu 1EF9 Ll 1EFA Lu 1EFB Ll 1EFC Lu 1EFD Ll 1EFE Lu 1EFF 1F07 Ll 1F08 1F0F Lu 1F10 1F15 Ll 1F18 1F1D Lu 1F20 1F27 Ll 1F28 1F2F Lu 1F30 1F37 Ll 1F38 1F3F Lu 1F40 1F45 Ll 1F48 1F4D Lu 1F50 1F57 Ll 1F59 Lu 1F5B Lu 1F5D Lu 1F5F Lu 1F60 1F67 Ll 1F68 1F6F Lu 1F70 1F7D Ll 1F80 1F87 Ll 1F88 1F8F Lt 1F90 1F97 Ll 1F98 1F9F Lt 1FA0 1FA7 Ll 1FA8 1FAF Lt 1FB0 1FB4 Ll 1FB6 1FB7 Ll 1FB8 1FBB Lu 1FBC Lt 1FBD Sk 1FBE Ll 1FBF 1FC1 Sk 1FC2 1FC4 Ll 1FC6 1FC7 Ll 1FC8 1FCB Lu 1FCC Lt 1FCD 1FCF Sk 1FD0 1FD3 Ll 1FD6 1FD7 Ll 1FD8 1FDB Lu 1FDD 1FDF Sk 1FE0 1FE7 Ll 1FE8 1FEC Lu 1FED 1FEF Sk 1FF2 1FF4 Ll 1FF6 1FF7 Ll 1FF8 1FFB Lu 1FFC Lt 1FFD 1FFE Sk 2000 200A Zs 200B 200F Cf 2010 2015 Pd 2016 2017 Po 2018 Pi 2019 Pf 201A Ps 201B 201C Pi 201D Pf 201E Ps 201F Pi 2020 2027 Po 2028 Zl 2029 Zp 202A 202E Cf 202F Zs 2030 2038 Po 2039 Pi 203A Pf 203B 203E Po 203F 2040 Pc 2041 2043 Po 2044 Sm 2045 Ps 2046 Pe 2047 2051 Po 2052 Sm 2053 Po 2054 Pc 2055 205E Po 205F Zs 2060 2064 Cf 2066 206F Cf 2070 No 2071 Lm 2074 2079 No 207A 207C Sm 207D Ps 207E Pe 207F Lm 2080 2089 No 208A 208C Sm 208D Ps 208E Pe 2090 209C Lm 20A0 20BF Sc 20D0 20DC Mn 20DD 20E0 Me 20E1 Mn 20E2 20E4 Me 20E5 20F0 Mn 2100 2101 So 2102 Lu 2103 2106 So 2107 Lu 2108 2109 So 210A Ll 210B 210D Lu 210E 210F Ll 2110 2112 Lu 2113 Ll 2114 So 2115 Lu 2116 2117 So 2118 Sm 2119 211D Lu 211E 2123 So 2124 Lu 2125 So 2126 Lu 2127 So 2128 Lu 2129 So 212A 212D Lu 212E So 212F Ll 2130 2133 Lu 2134 Ll 2135 2138 Lo 2139 Ll 213A 213B So 213C 213D Ll 213E 213F Lu 2140 2144 Sm 2145 Lu 2146 2149 Ll 214A So 214B Sm 214C 214D So 214E Ll 214F So 2150 215F No 2160 2182 Nl 2183 Lu 2184 Ll 2185 2188 Nl 2189 No 218A 218B So 2190 2194 Sm 2195 2199 So 219A 219B Sm 219C 219F So 21A0 Sm 21A1 21A2 So 21A3 Sm 21A4 21A5 So 21A6 Sm 21A7 21AD So 21AE Sm 21AF 21CD So 21CE 21CF Sm 21D0 21D1 So 21D2 Sm 21D3 So 21D4 Sm 21D5 21F3 So 21F4 22FF Sm 2300 2307 So 2308 Ps 2309 Pe 230A Ps 230B Pe 230C 231F So 2320 2321 Sm 2322 2328 So 2329 Ps 232A Pe 232B 237B So 237C Sm 237D 239A So 239B 23B3 Sm 23B4 23DB So 23DC 23E1 Sm 23E2 2426 So 2440 244A So 2460 249B No 249C 24E9 So 24EA 24FF No 2500 25B6 So 25B7 Sm 25B8 25C0 So 25C1 Sm 25C2 25F7 So 25F8 25FF Sm 2600 266E So 266F Sm 2670 2767 So 2768 Ps 2769 Pe 276A Ps 276B Pe 276C Ps 276D Pe 276E Ps 276F Pe 2770 Ps 2771 Pe 2772 Ps 2773 Pe 2774 Ps 2775 Pe 2776 2793 No 2794 27BF So 27C0 27C4 Sm 27C5 Ps 27C6 Pe 27C7 27E5 Sm 27E6 Ps 27E7 Pe 27E8 Ps 27E9 Pe 27EA Ps 27EB Pe 27EC Ps 27ED Pe 27EE Ps 27EF Pe 27F0 27FF Sm 2800 28FF So 2900 2982 Sm 2983 Ps 2984 Pe 2985 Ps 2986 Pe 2987 Ps 2988 Pe 2989 Ps 298A Pe 298B Ps 298C Pe 298D Ps 298E Pe 298F Ps 2990 Pe 2991 Ps 2992 Pe 2993 Ps 2994 Pe 2995 Ps 2996 Pe 2997 Ps 2998 Pe 2999 29D7 Sm 29D8 Ps 29D9 Pe 29DA Ps 29DB Pe 29DC 29FB Sm 29FC Ps 29FD Pe 29FE 2AFF Sm 2B00 2B2F So 2B30 2B44 Sm 2B45 2B46 So 2B47 2B4C Sm 2B4D 2B73 So 2B76 2B95 So 2B97 2BFF So 2C00 2C2E Lu 2C30 2C5E Ll 2C60 Lu 2C61 Ll 2C62 2C64 Lu 2C65 2C66 Ll 2C67 Lu 2C68 Ll 2C69 Lu 2C6A Ll 2C6B Lu 2C6C Ll 2C6D 2C70 Lu 2C71 Ll 2C72 Lu 2C73 2C74 Ll 2C75 Lu 2C76 2C7B Ll 2C7C 2C7D Lm 2C7E 2C80 Lu 2C81 Ll 2C82 Lu 2C83 Ll 2C84 Lu 2C85 Ll 2C86 Lu 2C87 Ll 2C88 Lu 2C89 Ll 2C8A Lu 2C8B Ll 2C8C Lu 2C8D Ll 2C8E Lu 2C8F Ll 2C90 Lu 2C91 Ll 2C92 Lu 2C93 Ll 2C94 Lu 2C95 Ll 2C96 Lu 2C97 Ll 2C98 Lu 2C99 Ll 2C9A Lu 2C9B Ll 2C9C Lu 2C9D Ll 2C9E Lu 2C9F Ll 2CA0 Lu 2CA1 Ll 2CA2 Lu 2CA3 Ll 2CA4 Lu 2CA5 Ll 2CA6 Lu 2CA7 Ll 2CA8 Lu 2CA9 Ll 2CAA Lu 2CAB Ll 2CAC Lu 2CAD Ll 2CAE Lu 2CAF Ll 2CB0 Lu 2CB1 Ll 2CB2 Lu 2CB3 Ll 2CB4 Lu 2CB5 Ll 2CB6 Lu 2CB7 Ll 2CB8 Lu 2CB9 Ll 2CBA Lu 2CBB Ll 2CBC Lu 2CBD Ll 2CBE Lu 2CBF Ll 2CC0 Lu 2CC1 Ll 2CC2 Lu 2CC3 Ll 2CC4 Lu 2CC5 Ll 2CC6 Lu 2CC7 Ll 2CC8 Lu 2CC9 Ll 2CCA Lu 2CCB Ll 2CCC Lu 2CCD Ll 2CCE Lu 2CCF Ll 2CD0 Lu 2CD1 Ll 2CD2 Lu 2CD3 Ll 2CD4 Lu 2CD5 Ll 2CD6 Lu 2CD7 Ll 2CD8 Lu 2CD9 Ll 2CDA Lu 2CDB Ll 2CDC Lu 2CDD Ll 2CDE Lu 2CDF Ll 2CE0 Lu 2CE1 Ll 2CE2 Lu 2CE3 2CE4 Ll 2CE5 2CEA So 2CEB Lu 2CEC Ll 2CED Lu 2CEE Ll 2CEF 2CF1 Mn 2CF2 Lu 2CF3 Ll 2CF9 2CFC Po 2CFD No 2CFE 2CFF Po 2D00 2D25 Ll 2D27 Ll 2D2D Ll 2D30 2D67 Lo 2D6F Lm 2D70 Po 2D7F Mn 2D80 2D96 Lo 2DA0 2DA6 Lo 2DA8 2DAE Lo 2DB0 2DB6 Lo 2DB8 2DBE Lo 2DC0 2DC6 Lo 2DC8 2DCE Lo 2DD0 2DD6 Lo 2DD8 2DDE Lo 2DE0 2DFF Mn 2E00 2E01 Po 2E02 Pi 2E03 Pf 2E04 Pi 2E05 Pf 2E06 2E08 Po 2E09 Pi 2E0A Pf 2E0B Po 2E0C Pi 2E0D Pf 2E0E 2E16 Po 2E17 Pd 2E18 2E19 Po 2E1A Pd 2E1B Po 2E1C Pi 2E1D Pf 2E1E 2E1F Po 2E20 Pi 2E21 Pf 2E22 Ps 2E23 Pe 2E24 Ps 2E25 Pe 2E26 Ps 2E27 Pe 2E28 Ps 2E29 Pe 2E2A 2E2E Po 2E2F Lm 2E30 2E39 Po 2E3A 2E3B Pd 2E3C 2E3F Po 2E40 Pd 2E41 Po 2E42 Ps 2E43 2E4F Po 2E50 2E51 So 2E52 Po 2E80 2E99 So 2E9B 2EF3 So 2F00 2FD5 So 2FF0 2FFB So 3000 Zs 3001 3003 Po 3004 So 3005 Lm 3006 Lo 3007 Nl 3008 Ps 3009 Pe 300A Ps 300B Pe 300C Ps 300D Pe 300E Ps 300F Pe 3010 Ps 3011 Pe 3012 3013 So 3014 Ps 3015 Pe 3016 Ps 3017 Pe 3018 Ps 3019 Pe 301A Ps 301B Pe 301C Pd 301D Ps 301E 301F Pe 3020 So 3021 3029 Nl 302A 302D Mn 302E 302F Mc 3030 Pd 3031 3035 Lm 3036 3037 So 3038 303A Nl 303B Lm 303C Lo 303D Po 303E 303F So 3041 3096 Lo 3099 309A Mn 309B 309C Sk 309D 309E Lm 309F Lo 30A0 Pd 30A1 30FA Lo 30FB Po 30FC 30FE Lm 30FF Lo 3105 312F Lo 3131 318E Lo 3190 3191 So 3192 3195 No 3196 319F So 31A0 31BF Lo 31C0 31E3 So 31F0 31FF Lo 3200 321E So 3220 3229 No 322A 3247 So 3248 324F No 3250 So 3251 325F No 3260 327F So 3280 3289 No 328A 32B0 So 32B1 32BF No 32C0 33FF So 3400 4DBF Lo 4DC0 4DFF So 4E00 9FFC Lo A000 A014 Lo A015 Lm A016 A48C Lo A490 A4C6 So A4D0 A4F7 Lo A4F8 A4FD Lm A4FE A4FF Po A500 A60B Lo A60C Lm A60D A60F Po A610 A61F Lo A620 A629 Nd A62A A62B Lo A640 Lu A641 Ll A642 Lu A643 Ll A644 Lu A645 Ll A646 Lu A647 Ll A648 Lu A649 Ll A64A Lu A64B Ll A64C Lu A64D Ll A64E Lu A64F Ll A650 Lu A651 Ll A652 Lu A653 Ll A654 Lu A655 Ll A656 Lu A657 Ll A658 Lu A659 Ll A65A Lu A65B Ll A65C Lu A65D Ll A65E Lu A65F Ll A660 Lu A661 Ll A662 Lu A663 Ll A664 Lu A665 Ll A666 Lu A667 Ll A668 Lu A669 Ll A66A Lu A66B Ll A66C Lu A66D Ll A66E Lo A66F Mn A670 A672 Me A673 Po A674 A67D Mn A67E Po A67F Lm A680 Lu A681 Ll A682 Lu A683 Ll A684 Lu A685 Ll A686 Lu A687 Ll A688 Lu A689 Ll A68A Lu A68B Ll A68C Lu A68D Ll A68E Lu A68F Ll A690 Lu A691 Ll A692 Lu A693 Ll A694 Lu A695 Ll A696 Lu A697 Ll A698 Lu A699 Ll A69A Lu A69B Ll A69C A69D Lm A69E A69F Mn A6A0 A6E5 Lo A6E6 A6EF Nl A6F0 A6F1 Mn A6F2 A6F7 Po A700 A716 Sk A717 A71F Lm A720 A721 Sk A722 Lu A723 Ll A724 Lu A725 Ll A726 Lu A727 Ll A728 Lu A729 Ll A72A Lu A72B Ll A72C Lu A72D Ll A72E Lu A72F A731 Ll A732 Lu A733 Ll A734 Lu A735 Ll A736 Lu A737 Ll A738 Lu A739 Ll A73A Lu A73B Ll A73C Lu A73D Ll A73E Lu A73F Ll A740 Lu A741 Ll A742 Lu A743 Ll A744 Lu A745 Ll A746 Lu A747 Ll A748 Lu A749 Ll A74A Lu A74B Ll A74C Lu A74D Ll A74E Lu A74F Ll A750 Lu A751 Ll A752 Lu A753 Ll A754 Lu A755 Ll A756 Lu A757 Ll A758 Lu A759 Ll A75A Lu A75B Ll A75C Lu A75D Ll A75E Lu A75F Ll A760 Lu A761 Ll A762 Lu A763 Ll A764 Lu A765 Ll A766 Lu A767 Ll A768 Lu A769 Ll A76A Lu A76B Ll A76C Lu A76D Ll A76E Lu A76F Ll A770 Lm A771 A778 Ll A779 Lu A77A Ll A77B Lu A77C Ll A77D A77E Lu A77F Ll A780 Lu A781 Ll A782 Lu A783 Ll A784 Lu A785 Ll A786 Lu A787 Ll A788 Lm A789 A78A Sk A78B Lu A78C Ll A78D Lu A78E Ll A78F Lo A790 Lu A791 Ll A792 Lu A793 A795 Ll A796 Lu A797 Ll A798 Lu A799 Ll A79A Lu A79B Ll A79C Lu A79D Ll A79E Lu A79F Ll A7A0 Lu A7A1 Ll A7A2 Lu A7A3 Ll A7A4 Lu A7A5 Ll A7A6 Lu A7A7 Ll A7A8 Lu A7A9 Ll A7AA A7AE Lu A7AF Ll A7B0 A7B4 Lu A7B5 Ll A7B6 Lu A7B7 Ll A7B8 Lu A7B9 Ll A7BA Lu A7BB Ll A7BC Lu A7BD Ll A7BE Lu A7BF Ll A7C2 Lu A7C3 Ll A7C4 A7C7 Lu A7C8 Ll A7C9 Lu A7CA Ll A7F5 Lu A7F6 Ll A7F7 Lo A7F8 A7F9 Lm A7FA Ll A7FB A801 Lo A802 Mn A803 A805 Lo A806 Mn A807 A80A Lo A80B Mn A80C A822 Lo A823 A824 Mc A825 A826 Mn A827 Mc A828 A82B So A82C Mn A830 A835 No A836 A837 So A838 Sc A839 So A840 A873 Lo A874 A877 Po A880 A881 Mc A882 A8B3 Lo A8B4 A8C3 Mc A8C4 A8C5 Mn A8CE A8CF Po A8D0 A8D9 Nd A8E0 A8F1 Mn A8F2 A8F7 Lo A8F8 A8FA Po A8FB Lo A8FC Po A8FD A8FE Lo A8FF Mn A900 A909 Nd A90A A925 Lo A926 A92D Mn A92E A92F Po A930 A946 Lo A947 A951 Mn A952 A953 Mc A95F Po A960 A97C Lo A980 A982 Mn A983 Mc A984 A9B2 Lo A9B3 Mn A9B4 A9B5 Mc A9B6 A9B9 Mn A9BA A9BB Mc A9BC A9BD Mn A9BE A9C0 Mc A9C1 A9CD Po A9CF Lm A9D0 A9D9 Nd A9DE A9DF Po A9E0 A9E4 Lo A9E5 Mn A9E6 Lm A9E7 A9EF Lo A9F0 A9F9 Nd A9FA A9FE Lo AA00 AA28 Lo AA29 AA2E Mn AA2F AA30 Mc AA31 AA32 Mn AA33 AA34 Mc AA35 AA36 Mn AA40 AA42 Lo AA43 Mn AA44 AA4B Lo AA4C Mn AA4D Mc AA50 AA59 Nd AA5C AA5F Po AA60 AA6F Lo AA70 Lm AA71 AA76 Lo AA77 AA79 So AA7A Lo AA7B Mc AA7C Mn AA7D Mc AA7E AAAF Lo AAB0 Mn AAB1 Lo AAB2 AAB4 Mn AAB5 AAB6 Lo AAB7 AAB8 Mn AAB9 AABD Lo AABE AABF Mn AAC0 Lo AAC1 Mn AAC2 Lo AADB AADC Lo AADD Lm AADE AADF Po AAE0 AAEA Lo AAEB Mc AAEC AAED Mn AAEE AAEF Mc AAF0 AAF1 Po AAF2 Lo AAF3 AAF4 Lm AAF5 Mc AAF6 Mn AB01 AB06 Lo AB09 AB0E Lo AB11 AB16 Lo AB20 AB26 Lo AB28 AB2E Lo AB30 AB5A Ll AB5B Sk AB5C AB5F Lm AB60 AB68 Ll AB69 Lm AB6A AB6B Sk AB70 ABBF Ll ABC0 ABE2 Lo ABE3 ABE4 Mc ABE5 Mn ABE6 ABE7 Mc ABE8 Mn ABE9 ABEA Mc ABEB Po ABEC Mc ABED Mn ABF0 ABF9 Nd AC00 D7A3 Lo D7B0 D7C6 Lo D7CB D7FB Lo D800 DFFF Cs E000 F8FF Co F900 FA6D Lo FA70 FAD9 Lo FB00 FB06 Ll FB13 FB17 Ll FB1D Lo FB1E Mn FB1F FB28 Lo FB29 Sm FB2A FB36 Lo FB38 FB3C Lo FB3E Lo FB40 FB41 Lo FB43 FB44 Lo FB46 FBB1 Lo FBB2 FBC1 Sk FBD3 FD3D Lo FD3E Pe FD3F Ps FD50 FD8F Lo FD92 FDC7 Lo FDF0 FDFB Lo FDFC Sc FDFD So FE00 FE0F Mn FE10 FE16 Po FE17 Ps FE18 Pe FE19 Po FE20 FE2F Mn FE30 Po FE31 FE32 Pd FE33 FE34 Pc FE35 Ps FE36 Pe FE37 Ps FE38 Pe FE39 Ps FE3A Pe FE3B Ps FE3C Pe FE3D Ps FE3E Pe FE3F Ps FE40 Pe FE41 Ps FE42 Pe FE43 Ps FE44 Pe FE45 FE46 Po FE47 Ps FE48 Pe FE49 FE4C Po FE4D FE4F Pc FE50 FE52 Po FE54 FE57 Po FE58 Pd FE59 Ps FE5A Pe FE5B Ps FE5C Pe FE5D Ps FE5E Pe FE5F FE61 Po FE62 Sm FE63 Pd FE64 FE66 Sm FE68 Po FE69 Sc FE6A FE6B Po FE70 FE74 Lo FE76 FEFC Lo FEFF Cf FF01 FF03 Po FF04 Sc FF05 FF07 Po FF08 Ps FF09 Pe FF0A Po FF0B Sm FF0C Po FF0D Pd FF0E FF0F Po FF10 FF19 Nd FF1A FF1B Po FF1C FF1E Sm FF1F FF20 Po FF21 FF3A Lu FF3B Ps FF3C Po FF3D Pe FF3E Sk FF3F Pc FF40 Sk FF41 FF5A Ll FF5B Ps FF5C Sm FF5D Pe FF5E Sm FF5F Ps FF60 Pe FF61 Po FF62 Ps FF63 Pe FF64 FF65 Po FF66 FF6F Lo FF70 Lm FF71 FF9D Lo FF9E FF9F Lm FFA0 FFBE Lo FFC2 FFC7 Lo FFCA FFCF Lo FFD2 FFD7 Lo FFDA FFDC Lo FFE0 FFE1 Sc FFE2 Sm FFE3 Sk FFE4 So FFE5 FFE6 Sc FFE8 So FFE9 FFEC Sm FFED FFEE So FFF9 FFFB Cf FFFC FFFD So 10000 1000B Lo 1000D 10026 Lo 10028 1003A Lo 1003C 1003D Lo 1003F 1004D Lo 10050 1005D Lo 10080 100FA Lo 10100 10102 Po 10107 10133 No 10137 1013F So 10140 10174 Nl 10175 10178 No 10179 10189 So 1018A 1018B No 1018C 1018E So 10190 1019C So 101A0 So 101D0 101FC So 101FD Mn 10280 1029C Lo 102A0 102D0 Lo 102E0 Mn 102E1 102FB No 10300 1031F Lo 10320 10323 No 1032D 10340 Lo 10341 Nl 10342 10349 Lo 1034A Nl 10350 10375 Lo 10376 1037A Mn 10380 1039D Lo 1039F Po 103A0 103C3 Lo 103C8 103CF Lo 103D0 Po 103D1 103D5 Nl 10400 10427 Lu 10428 1044F Ll 10450 1049D Lo 104A0 104A9 Nd 104B0 104D3 Lu 104D8 104FB Ll 10500 10527 Lo 10530 10563 Lo 1056F Po 10600 10736 Lo 10740 10755 Lo 10760 10767 Lo 10800 10805 Lo 10808 Lo 1080A 10835 Lo 10837 10838 Lo 1083C Lo 1083F 10855 Lo 10857 Po 10858 1085F No 10860 10876 Lo 10877 10878 So 10879 1087F No 10880 1089E Lo 108A7 108AF No 108E0 108F2 Lo 108F4 108F5 Lo 108FB 108FF No 10900 10915 Lo 10916 1091B No 1091F Po 10920 10939 Lo 1093F Po 10980 109B7 Lo 109BC 109BD No 109BE 109BF Lo 109C0 109CF No 109D2 109FF No 10A00 Lo 10A01 10A03 Mn 10A05 10A06 Mn 10A0C 10A0F Mn 10A10 10A13 Lo 10A15 10A17 Lo 10A19 10A35 Lo 10A38 10A3A Mn 10A3F Mn 10A40 10A48 No 10A50 10A58 Po 10A60 10A7C Lo 10A7D 10A7E No 10A7F Po 10A80 10A9C Lo 10A9D 10A9F No 10AC0 10AC7 Lo 10AC8 So 10AC9 10AE4 Lo 10AE5 10AE6 Mn 10AEB 10AEF No 10AF0 10AF6 Po 10B00 10B35 Lo 10B39 10B3F Po 10B40 10B55 Lo 10B58 10B5F No 10B60 10B72 Lo 10B78 10B7F No 10B80 10B91 Lo 10B99 10B9C Po 10BA9 10BAF No 10C00 10C48 Lo 10C80 10CB2 Lu 10CC0 10CF2 Ll 10CFA 10CFF No 10D00 10D23 Lo 10D24 10D27 Mn 10D30 10D39 Nd 10E60 10E7E No 10E80 10EA9 Lo 10EAB 10EAC Mn 10EAD Pd 10EB0 10EB1 Lo 10F00 10F1C Lo 10F1D 10F26 No 10F27 Lo 10F30 10F45 Lo 10F46 10F50 Mn 10F51 10F54 No 10F55 10F59 Po 10FB0 10FC4 Lo 10FC5 10FCB No 10FE0 10FF6 Lo 11000 Mc 11001 Mn 11002 Mc 11003 11037 Lo 11038 11046 Mn 11047 1104D Po 11052 11065 No 11066 1106F Nd 1107F 11081 Mn 11082 Mc 11083 110AF Lo 110B0 110B2 Mc 110B3 110B6 Mn 110B7 110B8 Mc 110B9 110BA Mn 110BB 110BC Po 110BD Cf 110BE 110C1 Po 110CD Cf 110D0 110E8 Lo 110F0 110F9 Nd 11100 11102 Mn 11103 11126 Lo 11127 1112B Mn 1112C Mc 1112D 11134 Mn 11136 1113F Nd 11140 11143 Po 11144 Lo 11145 11146 Mc 11147 Lo 11150 11172 Lo 11173 Mn 11174 11175 Po 11176 Lo 11180 11181 Mn 11182 Mc 11183 111B2 Lo 111B3 111B5 Mc 111B6 111BE Mn 111BF 111C0 Mc 111C1 111C4 Lo 111C5 111C8 Po 111C9 111CC Mn 111CD Po 111CE Mc 111CF Mn 111D0 111D9 Nd 111DA Lo 111DB Po 111DC Lo 111DD 111DF Po 111E1 111F4 No 11200 11211 Lo 11213 1122B Lo 1122C 1122E Mc 1122F 11231 Mn 11232 11233 Mc 11234 Mn 11235 Mc 11236 11237 Mn 11238 1123D Po 1123E Mn 11280 11286 Lo 11288 Lo 1128A 1128D Lo 1128F 1129D Lo 1129F 112A8 Lo 112A9 Po 112B0 112DE Lo 112DF Mn 112E0 112E2 Mc 112E3 112EA Mn 112F0 112F9 Nd 11300 11301 Mn 11302 11303 Mc 11305 1130C Lo 1130F 11310 Lo 11313 11328 Lo 1132A 11330 Lo 11332 11333 Lo 11335 11339 Lo 1133B 1133C Mn 1133D Lo 1133E 1133F Mc 11340 Mn 11341 11344 Mc 11347 11348 Mc 1134B 1134D Mc 11350 Lo 11357 Mc 1135D 11361 Lo 11362 11363 Mc 11366 1136C Mn 11370 11374 Mn 11400 11434 Lo 11435 11437 Mc 11438 1143F Mn 11440 11441 Mc 11442 11444 Mn 11445 Mc 11446 Mn 11447 1144A Lo 1144B 1144F Po 11450 11459 Nd 1145A 1145B Po 1145D Po 1145E Mn 1145F 11461 Lo 11480 114AF Lo 114B0 114B2 Mc 114B3 114B8 Mn 114B9 Mc 114BA Mn 114BB 114BE Mc 114BF 114C0 Mn 114C1 Mc 114C2 114C3 Mn 114C4 114C5 Lo 114C6 Po 114C7 Lo 114D0 114D9 Nd 11580 115AE Lo 115AF 115B1 Mc 115B2 115B5 Mn 115B8 115BB Mc 115BC 115BD Mn 115BE Mc 115BF 115C0 Mn 115C1 115D7 Po 115D8 115DB Lo 115DC 115DD Mn 11600 1162F Lo 11630 11632 Mc 11633 1163A Mn 1163B 1163C Mc 1163D Mn 1163E Mc 1163F 11640 Mn 11641 11643 Po 11644 Lo 11650 11659 Nd 11660 1166C Po 11680 116AA Lo 116AB Mn 116AC Mc 116AD Mn 116AE 116AF Mc 116B0 116B5 Mn 116B6 Mc 116B7 Mn 116B8 Lo 116C0 116C9 Nd 11700 1171A Lo 1171D 1171F Mn 11720 11721 Mc 11722 11725 Mn 11726 Mc 11727 1172B Mn 11730 11739 Nd 1173A 1173B No 1173C 1173E Po 1173F So 11800 1182B Lo 1182C 1182E Mc 1182F 11837 Mn 11838 Mc 11839 1183A Mn 1183B Po 118A0 118BF Lu 118C0 118DF Ll 118E0 118E9 Nd 118EA 118F2 No 118FF 11906 Lo 11909 Lo 1190C 11913 Lo 11915 11916 Lo 11918 1192F Lo 11930 11935 Mc 11937 11938 Mc 1193B 1193C Mn 1193D Mc 1193E Mn 1193F Lo 11940 Mc 11941 Lo 11942 Mc 11943 Mn 11944 11946 Po 11950 11959 Nd 119A0 119A7 Lo 119AA 119D0 Lo 119D1 119D3 Mc 119D4 119D7 Mn 119DA 119DB Mn 119DC 119DF Mc 119E0 Mn 119E1 Lo 119E2 Po 119E3 Lo 119E4 Mc 11A00 Lo 11A01 11A0A Mn 11A0B 11A32 Lo 11A33 11A38 Mn 11A39 Mc 11A3A Lo 11A3B 11A3E Mn 11A3F 11A46 Po 11A47 Mn 11A50 Lo 11A51 11A56 Mn 11A57 11A58 Mc 11A59 11A5B Mn 11A5C 11A89 Lo 11A8A 11A96 Mn 11A97 Mc 11A98 11A99 Mn 11A9A 11A9C Po 11A9D Lo 11A9E 11AA2 Po 11AC0 11AF8 Lo 11C00 11C08 Lo 11C0A 11C2E Lo 11C2F Mc 11C30 11C36 Mn 11C38 11C3D Mn 11C3E Mc 11C3F Mn 11C40 Lo 11C41 11C45 Po 11C50 11C59 Nd 11C5A 11C6C No 11C70 11C71 Po 11C72 11C8F Lo 11C92 11CA7 Mn 11CA9 Mc 11CAA 11CB0 Mn 11CB1 Mc 11CB2 11CB3 Mn 11CB4 Mc 11CB5 11CB6 Mn 11D00 11D06 Lo 11D08 11D09 Lo 11D0B 11D30 Lo 11D31 11D36 Mn 11D3A Mn 11D3C 11D3D Mn 11D3F 11D45 Mn 11D46 Lo 11D47 Mn 11D50 11D59 Nd 11D60 11D65 Lo 11D67 11D68 Lo 11D6A 11D89 Lo 11D8A 11D8E Mc 11D90 11D91 Mn 11D93 11D94 Mc 11D95 Mn 11D96 Mc 11D97 Mn 11D98 Lo 11DA0 11DA9 Nd 11EE0 11EF2 Lo 11EF3 11EF4 Mn 11EF5 11EF6 Mc 11EF7 11EF8 Po 11FB0 Lo 11FC0 11FD4 No 11FD5 11FDC So 11FDD 11FE0 Sc 11FE1 11FF1 So 11FFF Po 12000 12399 Lo 12400 1246E Nl 12470 12474 Po 12480 12543 Lo 13000 1342E Lo 13430 13438 Cf 14400 14646 Lo 16800 16A38 Lo 16A40 16A5E Lo 16A60 16A69 Nd 16A6E 16A6F Po 16AD0 16AED Lo 16AF0 16AF4 Mn 16AF5 Po 16B00 16B2F Lo 16B30 16B36 Mn 16B37 16B3B Po 16B3C 16B3F So 16B40 16B43 Lm 16B44 Po 16B45 So 16B50 16B59 Nd 16B5B 16B61 No 16B63 16B77 Lo 16B7D 16B8F Lo 16E40 16E5F Lu 16E60 16E7F Ll 16E80 16E96 No 16E97 16E9A Po 16F00 16F4A Lo 16F4F Mn 16F50 Lo 16F51 16F87 Mc 16F8F 16F92 Mn 16F93 16F9F Lm 16FE0 16FE1 Lm 16FE2 Po 16FE3 Lm 16FE4 Mn 16FF0 16FF1 Mc 17000 187F7 Lo 18800 18CD5 Lo 18D00 18D08 Lo 1B000 1B11E Lo 1B150 1B152 Lo 1B164 1B167 Lo 1B170 1B2FB Lo 1BC00 1BC6A Lo 1BC70 1BC7C Lo 1BC80 1BC88 Lo 1BC90 1BC99 Lo 1BC9C So 1BC9D 1BC9E Mn 1BC9F Po 1BCA0 1BCA3 Cf 1D000 1D0F5 So 1D100 1D126 So 1D129 1D164 So 1D165 1D166 Mc 1D167 1D169 Mn 1D16A 1D16C So 1D16D 1D172 Mc 1D173 1D17A Cf 1D17B 1D182 Mn 1D183 1D184 So 1D185 1D18B Mn 1D18C 1D1A9 So 1D1AA 1D1AD Mn 1D1AE 1D1E8 So 1D200 1D241 So 1D242 1D244 Mn 1D245 So 1D2E0 1D2F3 No 1D300 1D356 So 1D360 1D378 No 1D400 1D419 Lu 1D41A 1D433 Ll 1D434 1D44D Lu 1D44E 1D454 Ll 1D456 1D467 Ll 1D468 1D481 Lu 1D482 1D49B Ll 1D49C Lu 1D49E 1D49F Lu 1D4A2 Lu 1D4A5 1D4A6 Lu 1D4A9 1D4AC Lu 1D4AE 1D4B5 Lu 1D4B6 1D4B9 Ll 1D4BB Ll 1D4BD 1D4C3 Ll 1D4C5 1D4CF Ll 1D4D0 1D4E9 Lu 1D4EA 1D503 Ll 1D504 1D505 Lu 1D507 1D50A Lu 1D50D 1D514 Lu 1D516 1D51C Lu 1D51E 1D537 Ll 1D538 1D539 Lu 1D53B 1D53E Lu 1D540 1D544 Lu 1D546 Lu 1D54A 1D550 Lu 1D552 1D56B Ll 1D56C 1D585 Lu 1D586 1D59F Ll 1D5A0 1D5B9 Lu 1D5BA 1D5D3 Ll 1D5D4 1D5ED Lu 1D5EE 1D607 Ll 1D608 1D621 Lu 1D622 1D63B Ll 1D63C 1D655 Lu 1D656 1D66F Ll 1D670 1D689 Lu 1D68A 1D6A5 Ll 1D6A8 1D6C0 Lu 1D6C1 Sm 1D6C2 1D6DA Ll 1D6DB Sm 1D6DC 1D6E1 Ll 1D6E2 1D6FA Lu 1D6FB Sm 1D6FC 1D714 Ll 1D715 Sm 1D716 1D71B Ll 1D71C 1D734 Lu 1D735 Sm 1D736 1D74E Ll 1D74F Sm 1D750 1D755 Ll 1D756 1D76E Lu 1D76F Sm 1D770 1D788 Ll 1D789 Sm 1D78A 1D78F Ll 1D790 1D7A8 Lu 1D7A9 Sm 1D7AA 1D7C2 Ll 1D7C3 Sm 1D7C4 1D7C9 Ll 1D7CA Lu 1D7CB Ll 1D7CE 1D7FF Nd 1D800 1D9FF So 1DA00 1DA36 Mn 1DA37 1DA3A So 1DA3B 1DA6C Mn 1DA6D 1DA74 So 1DA75 Mn 1DA76 1DA83 So 1DA84 Mn 1DA85 1DA86 So 1DA87 1DA8B Po 1DA9B 1DA9F Mn 1DAA1 1DAAF Mn 1E000 1E006 Mn 1E008 1E018 Mn 1E01B 1E021 Mn 1E023 1E024 Mn 1E026 1E02A Mn 1E100 1E12C Lo 1E130 1E136 Mn 1E137 1E13D Lm 1E140 1E149 Nd 1E14E Lo 1E14F So 1E2C0 1E2EB Lo 1E2EC 1E2EF Mn 1E2F0 1E2F9 Nd 1E2FF Sc 1E800 1E8C4 Lo 1E8C7 1E8CF No 1E8D0 1E8D6 Mn 1E900 1E921 Lu 1E922 1E943 Ll 1E944 1E94A Mn 1E94B Lm 1E950 1E959 Nd 1E95E 1E95F Po 1EC71 1ECAB No 1ECAC So 1ECAD 1ECAF No 1ECB0 Sc 1ECB1 1ECB4 No 1ED01 1ED2D No 1ED2E So 1ED2F 1ED3D No 1EE00 1EE03 Lo 1EE05 1EE1F Lo 1EE21 1EE22 Lo 1EE24 Lo 1EE27 Lo 1EE29 1EE32 Lo 1EE34 1EE37 Lo 1EE39 Lo 1EE3B Lo 1EE42 Lo 1EE47 Lo 1EE49 Lo 1EE4B Lo 1EE4D 1EE4F Lo 1EE51 1EE52 Lo 1EE54 Lo 1EE57 Lo 1EE59 Lo 1EE5B Lo 1EE5D Lo 1EE5F Lo 1EE61 1EE62 Lo 1EE64 Lo 1EE67 1EE6A Lo 1EE6C 1EE72 Lo 1EE74 1EE77 Lo 1EE79 1EE7C Lo 1EE7E Lo 1EE80 1EE89 Lo 1EE8B 1EE9B Lo 1EEA1 1EEA3 Lo 1EEA5 1EEA9 Lo 1EEAB 1EEBB Lo 1EEF0 1EEF1 Sm 1F000 1F02B So 1F030 1F093 So 1F0A0 1F0AE So 1F0B1 1F0BF So 1F0C1 1F0CF So 1F0D1 1F0F5 So 1F100 1F10C No 1F10D 1F1AD So 1F1E6 1F202 So 1F210 1F23B So 1F240 1F248 So 1F250 1F251 So 1F260 1F265 So 1F300 1F3FA So 1F3FB 1F3FF Sk 1F400 1F6D7 So 1F6E0 1F6EC So 1F6F0 1F6FC So 1F700 1F773 So 1F780 1F7D8 So 1F7E0 1F7EB So 1F800 1F80B So 1F810 1F847 So 1F850 1F859 So 1F860 1F887 So 1F890 1F8AD So 1F8B0 1F8B1 So 1F900 1F978 So 1F97A 1F9CB So 1F9CD 1FA53 So 1FA60 1FA6D So 1FA70 1FA74 So 1FA78 1FA7A So 1FA80 1FA86 So 1FA90 1FAA8 So 1FAB0 1FAB6 So 1FAC0 1FAC2 So 1FAD0 1FAD6 So 1FB00 1FB92 So 1FB94 1FBCA So 1FBF0 1FBF9 Nd 20000 2A6DD Lo 2A700 2B734 Lo 2B740 2B81D Lo 2B820 2CEA1 Lo 2CEB0 2EBE0 Lo 2F800 2FA1D Lo 30000 3134A Lo E0001 Cf E0020 E007F Cf E0100 E01EF Mn F0000 FFFFD Co 100000 10FFFD Co END PK ! ߵ�ڦ � 5.34.0/unicore/To/NFKCQC.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToNFKCQC'}{'format'} = 's'; # string $Unicode::UCD::SwashInfo{'ToNFKCQC'}{'missing'} = 'Yes'; return <<'END'; A0 N A8 N AA N AF N B2 B5 N B8 BA N BC BE N 132 133 N 13F 140 N 149 N 17F N 1C4 1CC N 1F1 1F3 N 2B0 2B8 N 2D8 2DD N 2E0 2E4 N 300 304 M 306 30C M 30F M 311 M 313 314 M 31B M 323 328 M 32D 32E M 330 331 M 338 M 340 341 N 342 M 343 344 N 345 M 374 N 37A N 37E N 384 385 N 387 N 3D0 3D6 N 3F0 3F2 N 3F4 3F5 N 3F9 N 587 N 653 655 M 675 678 N 93C M 958 95F N 9BE M 9D7 M 9DC 9DD N 9DF N A33 N A36 N A59 A5B N A5E N B3E M B56 B57 M B5C B5D N BBE M BD7 M C56 M CC2 M CD5 CD6 M D3E M D57 M DCA M DCF M DDF M E33 N EB3 N EDC EDD N F0C N F43 N F4D N F52 N F57 N F5C N F69 N F73 N F75 F79 N F81 N F93 N F9D N FA2 N FA7 N FAC N FB9 N 102E M 10FC N 1161 1175 M 11A8 11C2 M 1B35 M 1D2C 1D2E N 1D30 1D3A N 1D3C 1D4D N 1D4F 1D6A N 1D78 N 1D9B 1DBF N 1E9A 1E9B N 1F71 N 1F73 N 1F75 N 1F77 N 1F79 N 1F7B N 1F7D N 1FBB N 1FBD 1FC1 N 1FC9 N 1FCB N 1FCD 1FCF N 1FD3 N 1FDB N 1FDD 1FDF N 1FE3 N 1FEB N 1FED 1FEF N 1FF9 N 1FFB N 1FFD 1FFE N 2000 200A N 2011 N 2017 N 2024 2026 N 202F N 2033 2034 N 2036 2037 N 203C N 203E N 2047 2049 N 2057 N 205F N 2070 2071 N 2074 208E N 2090 209C N 20A8 N 2100 2103 N 2105 2107 N 2109 2113 N 2115 2116 N 2119 211D N 2120 2122 N 2124 N 2126 N 2128 N 212A 212D N 212F 2131 N 2133 2139 N 213B 2140 N 2145 2149 N 2150 217F N 2189 N 222C 222D N 222F 2230 N 2329 232A N 2460 24EA N 2A0C N 2A74 2A76 N 2ADC N 2C7C 2C7D N 2D6F N 2E9F N 2EF3 N 2F00 2FD5 N 3000 N 3036 N 3038 303A N 3099 309A M 309B 309C N 309F N 30FF N 3131 318E N 3192 319F N 3200 321E N 3220 3247 N 3250 327E N 3280 33FF N A69C A69D N A770 N A7F8 A7F9 N AB5C AB5F N AB69 N F900 FA0D N FA10 N FA12 N FA15 FA1E N FA20 N FA22 N FA25 FA26 N FA2A FA6D N FA70 FAD9 N FB00 FB06 N FB13 FB17 N FB1D N FB1F FB36 N FB38 FB3C N FB3E N FB40 FB41 N FB43 FB44 N FB46 FBB1 N FBD3 FD3D N FD50 FD8F N FD92 FDC7 N FDF0 FDFC N FE10 FE19 N FE30 FE44 N FE47 FE52 N FE54 FE66 N FE68 FE6B N FE70 FE72 N FE74 N FE76 FEFC N FF01 FFBE N FFC2 FFC7 N FFCA FFCF N FFD2 FFD7 N FFDA FFDC N FFE0 FFE6 N FFE8 FFEE N 110BA M 11127 M 1133E M 11357 M 114B0 M 114BA M 114BD M 115AF M 11930 M 1D15E 1D164 N 1D1BB 1D1C0 N 1D400 1D454 N 1D456 1D49C N 1D49E 1D49F N 1D4A2 N 1D4A5 1D4A6 N 1D4A9 1D4AC N 1D4AE 1D4B9 N 1D4BB N 1D4BD 1D4C3 N 1D4C5 1D505 N 1D507 1D50A N 1D50D 1D514 N 1D516 1D51C N 1D51E 1D539 N 1D53B 1D53E N 1D540 1D544 N 1D546 N 1D54A 1D550 N 1D552 1D6A5 N 1D6A8 1D7CB N 1D7CE 1D7FF N 1EE00 1EE03 N 1EE05 1EE1F N 1EE21 1EE22 N 1EE24 N 1EE27 N 1EE29 1EE32 N 1EE34 1EE37 N 1EE39 N 1EE3B N 1EE42 N 1EE47 N 1EE49 N 1EE4B N 1EE4D 1EE4F N 1EE51 1EE52 N 1EE54 N 1EE57 N 1EE59 N 1EE5B N 1EE5D N 1EE5F N 1EE61 1EE62 N 1EE64 N 1EE67 1EE6A N 1EE6C 1EE72 N 1EE74 1EE77 N 1EE79 1EE7C N 1EE7E N 1EE80 1EE89 N 1EE8B 1EE9B N 1EEA1 1EEA3 N 1EEA5 1EEA9 N 1EEAB 1EEBB N 1F100 1F10A N 1F110 1F12E N 1F130 1F14F N 1F16A 1F16C N 1F190 N 1F200 1F202 N 1F210 1F23B N 1F240 1F248 N 1F250 1F251 N 1FBF0 1FBF9 N 2F800 2FA1D N END PK ! %��:~ ~ 5.34.0/unicore/To/_PerlLB.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'To_PerlLB'}{'format'} = 's'; # string $Unicode::UCD::SwashInfo{'To_PerlLB'}{'missing'} = 'Alphabetic'; return <<'END'; 0 8 Combining_Mark 9 Break_After A Line_Feed B C Mandatory_Break D Carriage_Return E 1F Combining_Mark 20 Space 21 Exclamation 22 Quotation 24 Prefix_Numeric 25 Postfix_Numeric 27 Quotation 28 Open_Punctuation 29 Close_Parenthesis 2B Prefix_Numeric 2C Infix_Numeric 2D Hyphen 2E Infix_Numeric 2F Break_Symbols 30 39 Numeric 3A 3B Infix_Numeric 3F Exclamation 5B Open_Punctuation 5C Prefix_Numeric 5D Close_Parenthesis 7B Open_Punctuation 7C Break_After 7D Close_Punctuation 7F 84 Combining_Mark 85 Next_Line 86 9F Combining_Mark A0 Glue A1 Open_Punctuation A2 Postfix_Numeric A3 A5 Prefix_Numeric AB Quotation AD Break_After B0 Postfix_Numeric B1 Prefix_Numeric B4 Break_Before BB Quotation BF Open_Punctuation 2C8 Break_Before 2CC Break_Before 2DF Break_Before 300 34E Combining_Mark 34F Glue 350 35B Combining_Mark 35C 362 Glue 363 36F Combining_Mark 37E Infix_Numeric 483 489 Combining_Mark 589 Infix_Numeric 58A Break_After 58F Prefix_Numeric 591 5BD Combining_Mark 5BE Break_After 5BF Combining_Mark 5C1 5C2 Combining_Mark 5C4 5C5 Combining_Mark 5C6 Exclamation 5C7 Combining_Mark 5D0 5EA Hebrew_Letter 5EF 5F2 Hebrew_Letter 609 60B Postfix_Numeric 60C 60D Infix_Numeric 610 61A Combining_Mark 61B Exclamation 61C Combining_Mark 61E 61F Exclamation 64B 65F Combining_Mark 660 669 Numeric 66A Postfix_Numeric 66B 66C Numeric 670 Combining_Mark 6D4 Exclamation 6D6 6DC Combining_Mark 6DF 6E4 Combining_Mark 6E7 6E8 Combining_Mark 6EA 6ED Combining_Mark 6F0 6F9 Numeric 711 Combining_Mark 730 74A Combining_Mark 7A6 7B0 Combining_Mark 7C0 7C9 Numeric 7EB 7F3 Combining_Mark 7F8 Infix_Numeric 7F9 Exclamation 7FD Combining_Mark 7FE 7FF Prefix_Numeric 816 819 Combining_Mark 81B 823 Combining_Mark 825 827 Combining_Mark 829 82D Combining_Mark 859 85B Combining_Mark 8D3 8E1 Combining_Mark 8E3 903 Combining_Mark 93A 93C Combining_Mark 93E 94F Combining_Mark 951 957 Combining_Mark 962 963 Combining_Mark 964 965 Break_After 966 96F Numeric 981 983 Combining_Mark 9BC Combining_Mark 9BE 9C4 Combining_Mark 9C7 9C8 Combining_Mark 9CB 9CD Combining_Mark 9D7 Combining_Mark 9E2 9E3 Combining_Mark 9E6 9EF Numeric 9F2 9F3 Postfix_Numeric 9F9 Postfix_Numeric 9FB Prefix_Numeric 9FE Combining_Mark A01 A03 Combining_Mark A3C Combining_Mark A3E A42 Combining_Mark A47 A48 Combining_Mark A4B A4D Combining_Mark A51 Combining_Mark A66 A6F Numeric A70 A71 Combining_Mark A75 Combining_Mark A81 A83 Combining_Mark ABC Combining_Mark ABE AC5 Combining_Mark AC7 AC9 Combining_Mark ACB ACD Combining_Mark AE2 AE3 Combining_Mark AE6 AEF Numeric AF1 Prefix_Numeric AFA AFF Combining_Mark B01 B03 Combining_Mark B3C Combining_Mark B3E B44 Combining_Mark B47 B48 Combining_Mark B4B B4D Combining_Mark B55 B57 Combining_Mark B62 B63 Combining_Mark B66 B6F Numeric B82 Combining_Mark BBE BC2 Combining_Mark BC6 BC8 Combining_Mark BCA BCD Combining_Mark BD7 Combining_Mark BE6 BEF Numeric BF9 Prefix_Numeric C00 C04 Combining_Mark C3E C44 Combining_Mark C46 C48 Combining_Mark C4A C4D Combining_Mark C55 C56 Combining_Mark C62 C63 Combining_Mark C66 C6F Numeric C77 Break_Before C81 C83 Combining_Mark C84 Break_Before CBC Combining_Mark CBE CC4 Combining_Mark CC6 CC8 Combining_Mark CCA CCD Combining_Mark CD5 CD6 Combining_Mark CE2 CE3 Combining_Mark CE6 CEF Numeric D00 D03 Combining_Mark D3B D3C Combining_Mark D3E D44 Combining_Mark D46 D48 Combining_Mark D4A D4D Combining_Mark D57 Combining_Mark D62 D63 Combining_Mark D66 D6F Numeric D79 Postfix_Numeric D81 D83 Combining_Mark DCA Combining_Mark DCF DD4 Combining_Mark DD6 Combining_Mark DD8 DDF Combining_Mark DE6 DEF Numeric DF2 DF3 Combining_Mark E31 Combining_Mark E34 E3A Combining_Mark E3F Prefix_Numeric E47 E4E Combining_Mark E50 E59 Numeric E5A E5B Break_After EB1 Combining_Mark EB4 EBC Combining_Mark EC8 ECD Combining_Mark ED0 ED9 Numeric F01 F04 Break_Before F06 F07 Break_Before F08 Glue F09 F0A Break_Before F0B Break_After F0C Glue F0D F11 Exclamation F12 Glue F14 Exclamation F18 F19 Combining_Mark F20 F29 Numeric F34 Break_After F35 Combining_Mark F37 Combining_Mark F39 Combining_Mark F3A Open_Punctuation F3B Close_Punctuation F3C Open_Punctuation F3D Close_Punctuation F3E F3F Combining_Mark F71 F7E Combining_Mark F7F Break_After F80 F84 Combining_Mark F85 Break_After F86 F87 Combining_Mark F8D F97 Combining_Mark F99 FBC Combining_Mark FBE FBF Break_After FC6 Combining_Mark FD0 FD1 Break_Before FD2 Break_After FD3 Break_Before FD9 FDA Glue 102B 103E Combining_Mark 1040 1049 Numeric 104A 104B Break_After 1056 1059 Combining_Mark 105E 1060 Combining_Mark 1062 1064 Combining_Mark 1067 106D Combining_Mark 1071 1074 Combining_Mark 1082 108D Combining_Mark 108F Combining_Mark 1090 1099 Numeric 109A 109D Combining_Mark 1100 115F JL 1160 11A7 JV 11A8 11FF JT 135D 135F Combining_Mark 1361 Break_After 1400 Break_After 1680 Break_After 169B Open_Punctuation 169C Close_Punctuation 16EB 16ED Break_After 1712 1714 Combining_Mark 1732 1734 Combining_Mark 1735 1736 Break_After 1752 1753 Combining_Mark 1772 1773 Combining_Mark 17B4 17D3 Combining_Mark 17D4 17D5 Break_After 17D6 Nonstarter 17D8 Break_After 17DA Break_After 17DB Prefix_Numeric 17DD Combining_Mark 17E0 17E9 Numeric 1802 1803 Exclamation 1804 1805 Break_After 1806 Break_Before 1808 1809 Exclamation 180B 180D Combining_Mark 180E Glue 1810 1819 Numeric 1885 1886 Combining_Mark 18A9 Combining_Mark 1920 192B Combining_Mark 1930 193B Combining_Mark 1944 1945 Exclamation 1946 194F Numeric 19D0 19D9 Numeric 1A17 1A1B Combining_Mark 1A55 1A5E Combining_Mark 1A60 1A7C Combining_Mark 1A7F Combining_Mark 1A80 1A89 Numeric 1A90 1A99 Numeric 1AB0 1AC0 Combining_Mark 1B00 1B04 Combining_Mark 1B34 1B44 Combining_Mark 1B50 1B59 Numeric 1B5A 1B5B Break_After 1B5D 1B60 Break_After 1B6B 1B73 Combining_Mark 1B80 1B82 Combining_Mark 1BA1 1BAD Combining_Mark 1BB0 1BB9 Numeric 1BE6 1BF3 Combining_Mark 1C24 1C37 Combining_Mark 1C3B 1C3F Break_After 1C40 1C49 Numeric 1C50 1C59 Numeric 1C7E 1C7F Break_After 1CD0 1CD2 Combining_Mark 1CD4 1CE8 Combining_Mark 1CED Combining_Mark 1CF4 Combining_Mark 1CF7 1CF9 Combining_Mark 1DC0 1DF9 Combining_Mark 1DFB 1DFF Combining_Mark 1FFD Break_Before 2000 2006 Break_After 2007 Glue 2008 200A Break_After 200B ZWSpace 200C Combining_Mark 200D ZWJ 200E 200F Combining_Mark 2010 Break_After 2011 Glue 2012 2013 Break_After 2014 Break_Both 2018 2019 Quotation 201A Open_Punctuation 201B 201D Quotation 201E Open_Punctuation 201F Quotation 2024 2026 Inseparable 2027 Break_After 2028 2029 Mandatory_Break 202A 202E Combining_Mark 202F Glue 2030 2037 Postfix_Numeric 2039 203A Quotation 203C 203D Nonstarter 2044 Infix_Numeric 2045 Open_Punctuation 2046 Close_Punctuation 2047 2049 Nonstarter 2056 Break_After 2058 205B Break_After 205D 205F Break_After 2060 Word_Joiner 2066 206F Combining_Mark 207D Open_Punctuation 207E Close_Punctuation 208D Open_Punctuation 208E Close_Punctuation 20A0 20A6 Prefix_Numeric 20A7 Postfix_Numeric 20A8 20B5 Prefix_Numeric 20B6 Postfix_Numeric 20B7 20BA Prefix_Numeric 20BB Postfix_Numeric 20BC 20BD Prefix_Numeric 20BE Postfix_Numeric 20BF 20CF Prefix_Numeric 20D0 20F0 Combining_Mark 2103 Postfix_Numeric 2109 Postfix_Numeric 2116 Prefix_Numeric 2212 2213 Prefix_Numeric 22EF Inseparable 2308 Open_Punctuation 2309 Close_Punctuation 230A Open_Punctuation 230B Close_Punctuation 231A 231B Ideographic 2329 East_Asian_OP 232A Close_Punctuation 23F0 23F3 Ideographic 2600 2603 Ideographic 2614 2615 Ideographic 2618 Ideographic 261A 261C Ideographic 261D E_Base 261E 261F Ideographic 2639 263B Ideographic 2668 Ideographic 267F Ideographic 26BD 26C8 Ideographic 26CD Ideographic 26CF 26D1 Ideographic 26D3 26D4 Ideographic 26D8 26D9 Ideographic 26DC Ideographic 26DF 26E1 Ideographic 26EA Ideographic 26F1 26F5 Ideographic 26F7 26F8 Ideographic 26F9 E_Base 26FA Ideographic 26FD 2704 Ideographic 2708 2709 Ideographic 270A 270D E_Base 275B 2760 Quotation 2762 2763 Exclamation 2764 Ideographic 2768 Open_Punctuation 2769 Close_Punctuation 276A Open_Punctuation 276B Close_Punctuation 276C Open_Punctuation 276D Close_Punctuation 276E Open_Punctuation 276F Close_Punctuation 2770 Open_Punctuation 2771 Close_Punctuation 2772 Open_Punctuation 2773 Close_Punctuation 2774 Open_Punctuation 2775 Close_Punctuation 27C5 Open_Punctuation 27C6 Close_Punctuation 27E6 Open_Punctuation 27E7 Close_Punctuation 27E8 Open_Punctuation 27E9 Close_Punctuation 27EA Open_Punctuation 27EB Close_Punctuation 27EC Open_Punctuation 27ED Close_Punctuation 27EE Open_Punctuation 27EF Close_Punctuation 2983 Open_Punctuation 2984 Close_Punctuation 2985 Open_Punctuation 2986 Close_Punctuation 2987 Open_Punctuation 2988 Close_Punctuation 2989 Open_Punctuation 298A Close_Punctuation 298B Open_Punctuation 298C Close_Punctuation 298D Open_Punctuation 298E Close_Punctuation 298F Open_Punctuation 2990 Close_Punctuation 2991 Open_Punctuation 2992 Close_Punctuation 2993 Open_Punctuation 2994 Close_Punctuation 2995 Open_Punctuation 2996 Close_Punctuation 2997 Open_Punctuation 2998 Close_Punctuation 29D8 Open_Punctuation 29D9 Close_Punctuation 29DA Open_Punctuation 29DB Close_Punctuation 29FC Open_Punctuation 29FD Close_Punctuation 2CEF 2CF1 Combining_Mark 2CF9 Exclamation 2CFA 2CFC Break_After 2CFE Exclamation 2CFF Break_After 2D70 Break_After 2D7F Combining_Mark 2DE0 2DFF Combining_Mark 2E00 2E0D Quotation 2E0E 2E15 Break_After 2E17 Break_After 2E18 Open_Punctuation 2E19 Break_After 2E1C 2E1D Quotation 2E20 2E21 Quotation 2E22 Open_Punctuation 2E23 Close_Punctuation 2E24 Open_Punctuation 2E25 Close_Punctuation 2E26 Open_Punctuation 2E27 Close_Punctuation 2E28 Open_Punctuation 2E29 Close_Punctuation 2E2A 2E2D Break_After 2E2E Exclamation 2E30 2E31 Break_After 2E33 2E34 Break_After 2E3A 2E3B Break_Both 2E3C 2E3E Break_After 2E40 2E41 Break_After 2E42 Open_Punctuation 2E43 2E4A Break_After 2E4C Break_After 2E4E 2E4F Break_After 2E80 2E99 Ideographic 2E9B 2EF3 Ideographic 2F00 2FD5 Ideographic 2FF0 2FFB Ideographic 3000 Break_After 3001 3002 Close_Punctuation 3003 3004 Ideographic 3005 Nonstarter 3006 3007 Ideographic 3008 East_Asian_OP 3009 Close_Punctuation 300A East_Asian_OP 300B Close_Punctuation 300C East_Asian_OP 300D Close_Punctuation 300E East_Asian_OP 300F Close_Punctuation 3010 East_Asian_OP 3011 Close_Punctuation 3012 3013 Ideographic 3014 East_Asian_OP 3015 Close_Punctuation 3016 East_Asian_OP 3017 Close_Punctuation 3018 East_Asian_OP 3019 Close_Punctuation 301A East_Asian_OP 301B Close_Punctuation 301C Nonstarter 301D East_Asian_OP 301E 301F Close_Punctuation 3020 3029 Ideographic 302A 302F Combining_Mark 3030 3034 Ideographic 3035 Combining_Mark 3036 303A Ideographic 303B 303C Nonstarter 303D 303F Ideographic 3041 Nonstarter 3042 Ideographic 3043 Nonstarter 3044 Ideographic 3045 Nonstarter 3046 Ideographic 3047 Nonstarter 3048 Ideographic 3049 Nonstarter 304A 3062 Ideographic 3063 Nonstarter 3064 3082 Ideographic 3083 Nonstarter 3084 Ideographic 3085 Nonstarter 3086 Ideographic 3087 Nonstarter 3088 308D Ideographic 308E Nonstarter 308F 3094 Ideographic 3095 3096 Nonstarter 3099 309A Combining_Mark 309B 309E Nonstarter 309F Ideographic 30A0 30A1 Nonstarter 30A2 Ideographic 30A3 Nonstarter 30A4 Ideographic 30A5 Nonstarter 30A6 Ideographic 30A7 Nonstarter 30A8 Ideographic 30A9 Nonstarter 30AA 30C2 Ideographic 30C3 Nonstarter 30C4 30E2 Ideographic 30E3 Nonstarter 30E4 Ideographic 30E5 Nonstarter 30E6 Ideographic 30E7 Nonstarter 30E8 30ED Ideographic 30EE Nonstarter 30EF 30F4 Ideographic 30F5 30F6 Nonstarter 30F7 30FA Ideographic 30FB 30FE Nonstarter 30FF Ideographic 3105 312F Ideographic 3131 318E Ideographic 3190 31E3 Ideographic 31F0 31FF Nonstarter 3200 321E Ideographic 3220 3247 Ideographic 3250 4DBF Ideographic 4E00 A014 Ideographic A015 Nonstarter A016 A48C Ideographic A490 A4C6 Ideographic A4FE A4FF Break_After A60D Break_After A60E Exclamation A60F Break_After A620 A629 Numeric A66F A672 Combining_Mark A674 A67D Combining_Mark A69E A69F Combining_Mark A6F0 A6F1 Combining_Mark A6F3 A6F7 Break_After A802 Combining_Mark A806 Combining_Mark A80B Combining_Mark A823 A827 Combining_Mark A82C Combining_Mark A838 Postfix_Numeric A874 A875 Break_Before A876 A877 Exclamation A880 A881 Combining_Mark A8B4 A8C5 Combining_Mark A8CE A8CF Break_After A8D0 A8D9 Numeric A8E0 A8F1 Combining_Mark A8FC Break_Before A8FF Combining_Mark A900 A909 Numeric A926 A92D Combining_Mark A92E A92F Break_After A947 A953 Combining_Mark A960 A97C JL A980 A983 Combining_Mark A9B3 A9C0 Combining_Mark A9C7 A9C9 Break_After A9D0 A9D9 Numeric A9E5 Combining_Mark A9F0 A9F9 Numeric AA29 AA36 Combining_Mark AA43 Combining_Mark AA4C AA4D Combining_Mark AA50 AA59 Numeric AA5D AA5F Break_After AA7B AA7D Combining_Mark AAB0 Combining_Mark AAB2 AAB4 Combining_Mark AAB7 AAB8 Combining_Mark AABE AABF Combining_Mark AAC1 Combining_Mark AAEB AAEF Combining_Mark AAF0 AAF1 Break_After AAF5 AAF6 Combining_Mark ABE3 ABEA Combining_Mark ABEB Break_After ABEC ABED Combining_Mark ABF0 ABF9 Numeric AC00 H2 AC01 AC1B H3 AC1C H2 AC1D AC37 H3 AC38 H2 AC39 AC53 H3 AC54 H2 AC55 AC6F H3 AC70 H2 AC71 AC8B H3 AC8C H2 AC8D ACA7 H3 ACA8 H2 ACA9 ACC3 H3 ACC4 H2 ACC5 ACDF H3 ACE0 H2 ACE1 ACFB H3 ACFC H2 ACFD AD17 H3 AD18 H2 AD19 AD33 H3 AD34 H2 AD35 AD4F H3 AD50 H2 AD51 AD6B H3 AD6C H2 AD6D AD87 H3 AD88 H2 AD89 ADA3 H3 ADA4 H2 ADA5 ADBF H3 ADC0 H2 ADC1 ADDB H3 ADDC H2 ADDD ADF7 H3 ADF8 H2 ADF9 AE13 H3 AE14 H2 AE15 AE2F H3 AE30 H2 AE31 AE4B H3 AE4C H2 AE4D AE67 H3 AE68 H2 AE69 AE83 H3 AE84 H2 AE85 AE9F H3 AEA0 H2 AEA1 AEBB H3 AEBC H2 AEBD AED7 H3 AED8 H2 AED9 AEF3 H3 AEF4 H2 AEF5 AF0F H3 AF10 H2 AF11 AF2B H3 AF2C H2 AF2D AF47 H3 AF48 H2 AF49 AF63 H3 AF64 H2 AF65 AF7F H3 AF80 H2 AF81 AF9B H3 AF9C H2 AF9D AFB7 H3 AFB8 H2 AFB9 AFD3 H3 AFD4 H2 AFD5 AFEF H3 AFF0 H2 AFF1 B00B H3 B00C H2 B00D B027 H3 B028 H2 B029 B043 H3 B044 H2 B045 B05F H3 B060 H2 B061 B07B H3 B07C H2 B07D B097 H3 B098 H2 B099 B0B3 H3 B0B4 H2 B0B5 B0CF H3 B0D0 H2 B0D1 B0EB H3 B0EC H2 B0ED B107 H3 B108 H2 B109 B123 H3 B124 H2 B125 B13F H3 B140 H2 B141 B15B H3 B15C H2 B15D B177 H3 B178 H2 B179 B193 H3 B194 H2 B195 B1AF H3 B1B0 H2 B1B1 B1CB H3 B1CC H2 B1CD B1E7 H3 B1E8 H2 B1E9 B203 H3 B204 H2 B205 B21F H3 B220 H2 B221 B23B H3 B23C H2 B23D B257 H3 B258 H2 B259 B273 H3 B274 H2 B275 B28F H3 B290 H2 B291 B2AB H3 B2AC H2 B2AD B2C7 H3 B2C8 H2 B2C9 B2E3 H3 B2E4 H2 B2E5 B2FF H3 B300 H2 B301 B31B H3 B31C H2 B31D B337 H3 B338 H2 B339 B353 H3 B354 H2 B355 B36F H3 B370 H2 B371 B38B H3 B38C H2 B38D B3A7 H3 B3A8 H2 B3A9 B3C3 H3 B3C4 H2 B3C5 B3DF H3 B3E0 H2 B3E1 B3FB H3 B3FC H2 B3FD B417 H3 B418 H2 B419 B433 H3 B434 H2 B435 B44F H3 B450 H2 B451 B46B H3 B46C H2 B46D B487 H3 B488 H2 B489 B4A3 H3 B4A4 H2 B4A5 B4BF H3 B4C0 H2 B4C1 B4DB H3 B4DC H2 B4DD B4F7 H3 B4F8 H2 B4F9 B513 H3 B514 H2 B515 B52F H3 B530 H2 B531 B54B H3 B54C H2 B54D B567 H3 B568 H2 B569 B583 H3 B584 H2 B585 B59F H3 B5A0 H2 B5A1 B5BB H3 B5BC H2 B5BD B5D7 H3 B5D8 H2 B5D9 B5F3 H3 B5F4 H2 B5F5 B60F H3 B610 H2 B611 B62B H3 B62C H2 B62D B647 H3 B648 H2 B649 B663 H3 B664 H2 B665 B67F H3 B680 H2 B681 B69B H3 B69C H2 B69D B6B7 H3 B6B8 H2 B6B9 B6D3 H3 B6D4 H2 B6D5 B6EF H3 B6F0 H2 B6F1 B70B H3 B70C H2 B70D B727 H3 B728 H2 B729 B743 H3 B744 H2 B745 B75F H3 B760 H2 B761 B77B H3 B77C H2 B77D B797 H3 B798 H2 B799 B7B3 H3 B7B4 H2 B7B5 B7CF H3 B7D0 H2 B7D1 B7EB H3 B7EC H2 B7ED B807 H3 B808 H2 B809 B823 H3 B824 H2 B825 B83F H3 B840 H2 B841 B85B H3 B85C H2 B85D B877 H3 B878 H2 B879 B893 H3 B894 H2 B895 B8AF H3 B8B0 H2 B8B1 B8CB H3 B8CC H2 B8CD B8E7 H3 B8E8 H2 B8E9 B903 H3 B904 H2 B905 B91F H3 B920 H2 B921 B93B H3 B93C H2 B93D B957 H3 B958 H2 B959 B973 H3 B974 H2 B975 B98F H3 B990 H2 B991 B9AB H3 B9AC H2 B9AD B9C7 H3 B9C8 H2 B9C9 B9E3 H3 B9E4 H2 B9E5 B9FF H3 BA00 H2 BA01 BA1B H3 BA1C H2 BA1D BA37 H3 BA38 H2 BA39 BA53 H3 BA54 H2 BA55 BA6F H3 BA70 H2 BA71 BA8B H3 BA8C H2 BA8D BAA7 H3 BAA8 H2 BAA9 BAC3 H3 BAC4 H2 BAC5 BADF H3 BAE0 H2 BAE1 BAFB H3 BAFC H2 BAFD BB17 H3 BB18 H2 BB19 BB33 H3 BB34 H2 BB35 BB4F H3 BB50 H2 BB51 BB6B H3 BB6C H2 BB6D BB87 H3 BB88 H2 BB89 BBA3 H3 BBA4 H2 BBA5 BBBF H3 BBC0 H2 BBC1 BBDB H3 BBDC H2 BBDD BBF7 H3 BBF8 H2 BBF9 BC13 H3 BC14 H2 BC15 BC2F H3 BC30 H2 BC31 BC4B H3 BC4C H2 BC4D BC67 H3 BC68 H2 BC69 BC83 H3 BC84 H2 BC85 BC9F H3 BCA0 H2 BCA1 BCBB H3 BCBC H2 BCBD BCD7 H3 BCD8 H2 BCD9 BCF3 H3 BCF4 H2 BCF5 BD0F H3 BD10 H2 BD11 BD2B H3 BD2C H2 BD2D BD47 H3 BD48 H2 BD49 BD63 H3 BD64 H2 BD65 BD7F H3 BD80 H2 BD81 BD9B H3 BD9C H2 BD9D BDB7 H3 BDB8 H2 BDB9 BDD3 H3 BDD4 H2 BDD5 BDEF H3 BDF0 H2 BDF1 BE0B H3 BE0C H2 BE0D BE27 H3 BE28 H2 BE29 BE43 H3 BE44 H2 BE45 BE5F H3 BE60 H2 BE61 BE7B H3 BE7C H2 BE7D BE97 H3 BE98 H2 BE99 BEB3 H3 BEB4 H2 BEB5 BECF H3 BED0 H2 BED1 BEEB H3 BEEC H2 BEED BF07 H3 BF08 H2 BF09 BF23 H3 BF24 H2 BF25 BF3F H3 BF40 H2 BF41 BF5B H3 BF5C H2 BF5D BF77 H3 BF78 H2 BF79 BF93 H3 BF94 H2 BF95 BFAF H3 BFB0 H2 BFB1 BFCB H3 BFCC H2 BFCD BFE7 H3 BFE8 H2 BFE9 C003 H3 C004 H2 C005 C01F H3 C020 H2 C021 C03B H3 C03C H2 C03D C057 H3 C058 H2 C059 C073 H3 C074 H2 C075 C08F H3 C090 H2 C091 C0AB H3 C0AC H2 C0AD C0C7 H3 C0C8 H2 C0C9 C0E3 H3 C0E4 H2 C0E5 C0FF H3 C100 H2 C101 C11B H3 C11C H2 C11D C137 H3 C138 H2 C139 C153 H3 C154 H2 C155 C16F H3 C170 H2 C171 C18B H3 C18C H2 C18D C1A7 H3 C1A8 H2 C1A9 C1C3 H3 C1C4 H2 C1C5 C1DF H3 C1E0 H2 C1E1 C1FB H3 C1FC H2 C1FD C217 H3 C218 H2 C219 C233 H3 C234 H2 C235 C24F H3 C250 H2 C251 C26B H3 C26C H2 C26D C287 H3 C288 H2 C289 C2A3 H3 C2A4 H2 C2A5 C2BF H3 C2C0 H2 C2C1 C2DB H3 C2DC H2 C2DD C2F7 H3 C2F8 H2 C2F9 C313 H3 C314 H2 C315 C32F H3 C330 H2 C331 C34B H3 C34C H2 C34D C367 H3 C368 H2 C369 C383 H3 C384 H2 C385 C39F H3 C3A0 H2 C3A1 C3BB H3 C3BC H2 C3BD C3D7 H3 C3D8 H2 C3D9 C3F3 H3 C3F4 H2 C3F5 C40F H3 C410 H2 C411 C42B H3 C42C H2 C42D C447 H3 C448 H2 C449 C463 H3 C464 H2 C465 C47F H3 C480 H2 C481 C49B H3 C49C H2 C49D C4B7 H3 C4B8 H2 C4B9 C4D3 H3 C4D4 H2 C4D5 C4EF H3 C4F0 H2 C4F1 C50B H3 C50C H2 C50D C527 H3 C528 H2 C529 C543 H3 C544 H2 C545 C55F H3 C560 H2 C561 C57B H3 C57C H2 C57D C597 H3 C598 H2 C599 C5B3 H3 C5B4 H2 C5B5 C5CF H3 C5D0 H2 C5D1 C5EB H3 C5EC H2 C5ED C607 H3 C608 H2 C609 C623 H3 C624 H2 C625 C63F H3 C640 H2 C641 C65B H3 C65C H2 C65D C677 H3 C678 H2 C679 C693 H3 C694 H2 C695 C6AF H3 C6B0 H2 C6B1 C6CB H3 C6CC H2 C6CD C6E7 H3 C6E8 H2 C6E9 C703 H3 C704 H2 C705 C71F H3 C720 H2 C721 C73B H3 C73C H2 C73D C757 H3 C758 H2 C759 C773 H3 C774 H2 C775 C78F H3 C790 H2 C791 C7AB H3 C7AC H2 C7AD C7C7 H3 C7C8 H2 C7C9 C7E3 H3 C7E4 H2 C7E5 C7FF H3 C800 H2 C801 C81B H3 C81C H2 C81D C837 H3 C838 H2 C839 C853 H3 C854 H2 C855 C86F H3 C870 H2 C871 C88B H3 C88C H2 C88D C8A7 H3 C8A8 H2 C8A9 C8C3 H3 C8C4 H2 C8C5 C8DF H3 C8E0 H2 C8E1 C8FB H3 C8FC H2 C8FD C917 H3 C918 H2 C919 C933 H3 C934 H2 C935 C94F H3 C950 H2 C951 C96B H3 C96C H2 C96D C987 H3 C988 H2 C989 C9A3 H3 C9A4 H2 C9A5 C9BF H3 C9C0 H2 C9C1 C9DB H3 C9DC H2 C9DD C9F7 H3 C9F8 H2 C9F9 CA13 H3 CA14 H2 CA15 CA2F H3 CA30 H2 CA31 CA4B H3 CA4C H2 CA4D CA67 H3 CA68 H2 CA69 CA83 H3 CA84 H2 CA85 CA9F H3 CAA0 H2 CAA1 CABB H3 CABC H2 CABD CAD7 H3 CAD8 H2 CAD9 CAF3 H3 CAF4 H2 CAF5 CB0F H3 CB10 H2 CB11 CB2B H3 CB2C H2 CB2D CB47 H3 CB48 H2 CB49 CB63 H3 CB64 H2 CB65 CB7F H3 CB80 H2 CB81 CB9B H3 CB9C H2 CB9D CBB7 H3 CBB8 H2 CBB9 CBD3 H3 CBD4 H2 CBD5 CBEF H3 CBF0 H2 CBF1 CC0B H3 CC0C H2 CC0D CC27 H3 CC28 H2 CC29 CC43 H3 CC44 H2 CC45 CC5F H3 CC60 H2 CC61 CC7B H3 CC7C H2 CC7D CC97 H3 CC98 H2 CC99 CCB3 H3 CCB4 H2 CCB5 CCCF H3 CCD0 H2 CCD1 CCEB H3 CCEC H2 CCED CD07 H3 CD08 H2 CD09 CD23 H3 CD24 H2 CD25 CD3F H3 CD40 H2 CD41 CD5B H3 CD5C H2 CD5D CD77 H3 CD78 H2 CD79 CD93 H3 CD94 H2 CD95 CDAF H3 CDB0 H2 CDB1 CDCB H3 CDCC H2 CDCD CDE7 H3 CDE8 H2 CDE9 CE03 H3 CE04 H2 CE05 CE1F H3 CE20 H2 CE21 CE3B H3 CE3C H2 CE3D CE57 H3 CE58 H2 CE59 CE73 H3 CE74 H2 CE75 CE8F H3 CE90 H2 CE91 CEAB H3 CEAC H2 CEAD CEC7 H3 CEC8 H2 CEC9 CEE3 H3 CEE4 H2 CEE5 CEFF H3 CF00 H2 CF01 CF1B H3 CF1C H2 CF1D CF37 H3 CF38 H2 CF39 CF53 H3 CF54 H2 CF55 CF6F H3 CF70 H2 CF71 CF8B H3 CF8C H2 CF8D CFA7 H3 CFA8 H2 CFA9 CFC3 H3 CFC4 H2 CFC5 CFDF H3 CFE0 H2 CFE1 CFFB H3 CFFC H2 CFFD D017 H3 D018 H2 D019 D033 H3 D034 H2 D035 D04F H3 D050 H2 D051 D06B H3 D06C H2 D06D D087 H3 D088 H2 D089 D0A3 H3 D0A4 H2 D0A5 D0BF H3 D0C0 H2 D0C1 D0DB H3 D0DC H2 D0DD D0F7 H3 D0F8 H2 D0F9 D113 H3 D114 H2 D115 D12F H3 D130 H2 D131 D14B H3 D14C H2 D14D D167 H3 D168 H2 D169 D183 H3 D184 H2 D185 D19F H3 D1A0 H2 D1A1 D1BB H3 D1BC H2 D1BD D1D7 H3 D1D8 H2 D1D9 D1F3 H3 D1F4 H2 D1F5 D20F H3 D210 H2 D211 D22B H3 D22C H2 D22D D247 H3 D248 H2 D249 D263 H3 D264 H2 D265 D27F H3 D280 H2 D281 D29B H3 D29C H2 D29D D2B7 H3 D2B8 H2 D2B9 D2D3 H3 D2D4 H2 D2D5 D2EF H3 D2F0 H2 D2F1 D30B H3 D30C H2 D30D D327 H3 D328 H2 D329 D343 H3 D344 H2 D345 D35F H3 D360 H2 D361 D37B H3 D37C H2 D37D D397 H3 D398 H2 D399 D3B3 H3 D3B4 H2 D3B5 D3CF H3 D3D0 H2 D3D1 D3EB H3 D3EC H2 D3ED D407 H3 D408 H2 D409 D423 H3 D424 H2 D425 D43F H3 D440 H2 D441 D45B H3 D45C H2 D45D D477 H3 D478 H2 D479 D493 H3 D494 H2 D495 D4AF H3 D4B0 H2 D4B1 D4CB H3 D4CC H2 D4CD D4E7 H3 D4E8 H2 D4E9 D503 H3 D504 H2 D505 D51F H3 D520 H2 D521 D53B H3 D53C H2 D53D D557 H3 D558 H2 D559 D573 H3 D574 H2 D575 D58F H3 D590 H2 D591 D5AB H3 D5AC H2 D5AD D5C7 H3 D5C8 H2 D5C9 D5E3 H3 D5E4 H2 D5E5 D5FF H3 D600 H2 D601 D61B H3 D61C H2 D61D D637 H3 D638 H2 D639 D653 H3 D654 H2 D655 D66F H3 D670 H2 D671 D68B H3 D68C H2 D68D D6A7 H3 D6A8 H2 D6A9 D6C3 H3 D6C4 H2 D6C5 D6DF H3 D6E0 H2 D6E1 D6FB H3 D6FC H2 D6FD D717 H3 D718 H2 D719 D733 H3 D734 H2 D735 D74F H3 D750 H2 D751 D76B H3 D76C H2 D76D D787 H3 D788 H2 D789 D7A3 H3 D7B0 D7C6 JV D7CB D7FB JT F900 FAFF Ideographic FB1D Hebrew_Letter FB1E Combining_Mark FB1F FB28 Hebrew_Letter FB2A FB36 Hebrew_Letter FB38 FB3C Hebrew_Letter FB3E Hebrew_Letter FB40 FB41 Hebrew_Letter FB43 FB44 Hebrew_Letter FB46 FB4F Hebrew_Letter FD3E Close_Punctuation FD3F Open_Punctuation FDFC Postfix_Numeric FE00 FE0F Combining_Mark FE10 Infix_Numeric FE11 FE12 Close_Punctuation FE13 FE14 Infix_Numeric FE15 FE16 Exclamation FE17 East_Asian_OP FE18 Close_Punctuation FE19 Inseparable FE20 FE2F Combining_Mark FE30 FE34 Ideographic FE35 East_Asian_OP FE36 Close_Punctuation FE37 East_Asian_OP FE38 Close_Punctuation FE39 East_Asian_OP FE3A Close_Punctuation FE3B East_Asian_OP FE3C Close_Punctuation FE3D East_Asian_OP FE3E Close_Punctuation FE3F East_Asian_OP FE40 Close_Punctuation FE41 East_Asian_OP FE42 Close_Punctuation FE43 East_Asian_OP FE44 Close_Punctuation FE45 FE46 Ideographic FE47 East_Asian_OP FE48 Close_Punctuation FE49 FE4F Ideographic FE50 Close_Punctuation FE51 Ideographic FE52 Close_Punctuation FE54 FE55 Nonstarter FE56 FE57 Exclamation FE58 Ideographic FE59 East_Asian_OP FE5A Close_Punctuation FE5B East_Asian_OP FE5C Close_Punctuation FE5D East_Asian_OP FE5E Close_Punctuation FE5F FE66 Ideographic FE68 Ideographic FE69 Prefix_Numeric FE6A Postfix_Numeric FE6B Ideographic FEFF Word_Joiner FF01 Exclamation FF02 FF03 Ideographic FF04 Prefix_Numeric FF05 Postfix_Numeric FF06 FF07 Ideographic FF08 East_Asian_OP FF09 Close_Punctuation FF0A FF0B Ideographic FF0C Close_Punctuation FF0D Ideographic FF0E Close_Punctuation FF0F FF19 Ideographic FF1A FF1B Nonstarter FF1C FF1E Ideographic FF1F Exclamation FF20 FF3A Ideographic FF3B East_Asian_OP FF3C Ideographic FF3D Close_Punctuation FF3E FF5A Ideographic FF5B East_Asian_OP FF5C Ideographic FF5D Close_Punctuation FF5E Ideographic FF5F East_Asian_OP FF60 FF61 Close_Punctuation FF62 East_Asian_OP FF63 FF64 Close_Punctuation FF65 Nonstarter FF66 Ideographic FF67 FF70 Nonstarter FF71 FF9D Ideographic FF9E FF9F Nonstarter FFA0 FFBE Ideographic FFC2 FFC7 Ideographic FFCA FFCF Ideographic FFD2 FFD7 Ideographic FFDA FFDC Ideographic FFE0 Postfix_Numeric FFE1 Prefix_Numeric FFE2 FFE4 Ideographic FFE5 FFE6 Prefix_Numeric FFF9 FFFB Combining_Mark FFFC Contingent_Break 10100 10102 Break_After 101FD Combining_Mark 102E0 Combining_Mark 10376 1037A Combining_Mark 1039F Break_After 103D0 Break_After 104A0 104A9 Numeric 10857 Break_After 1091F Break_After 10A01 10A03 Combining_Mark 10A05 10A06 Combining_Mark 10A0C 10A0F Combining_Mark 10A38 10A3A Combining_Mark 10A3F Combining_Mark 10A50 10A57 Break_After 10AE5 10AE6 Combining_Mark 10AF0 10AF5 Break_After 10AF6 Inseparable 10B39 10B3F Break_After 10D24 10D27 Combining_Mark 10D30 10D39 Numeric 10EAB 10EAC Combining_Mark 10EAD Break_After 10F46 10F50 Combining_Mark 11000 11002 Combining_Mark 11038 11046 Combining_Mark 11047 11048 Break_After 11066 1106F Numeric 1107F 11082 Combining_Mark 110B0 110BA Combining_Mark 110BE 110C1 Break_After 110F0 110F9 Numeric 11100 11102 Combining_Mark 11127 11134 Combining_Mark 11136 1113F Numeric 11140 11143 Break_After 11145 11146 Combining_Mark 11173 Combining_Mark 11175 Break_Before 11180 11182 Combining_Mark 111B3 111C0 Combining_Mark 111C5 111C6 Break_After 111C8 Break_After 111C9 111CC Combining_Mark 111CE 111CF Combining_Mark 111D0 111D9 Numeric 111DB Break_Before 111DD 111DF Break_After 1122C 11237 Combining_Mark 11238 11239 Break_After 1123B 1123C Break_After 1123E Combining_Mark 112A9 Break_After 112DF 112EA Combining_Mark 112F0 112F9 Numeric 11300 11303 Combining_Mark 1133B 1133C Combining_Mark 1133E 11344 Combining_Mark 11347 11348 Combining_Mark 1134B 1134D Combining_Mark 11357 Combining_Mark 11362 11363 Combining_Mark 11366 1136C Combining_Mark 11370 11374 Combining_Mark 11435 11446 Combining_Mark 1144B 1144E Break_After 11450 11459 Numeric 1145A 1145B Break_After 1145E Combining_Mark 114B0 114C3 Combining_Mark 114D0 114D9 Numeric 115AF 115B5 Combining_Mark 115B8 115C0 Combining_Mark 115C1 Break_Before 115C2 115C3 Break_After 115C4 115C5 Exclamation 115C9 115D7 Break_After 115DC 115DD Combining_Mark 11630 11640 Combining_Mark 11641 11642 Break_After 11650 11659 Numeric 11660 1166C Break_Before 116AB 116B7 Combining_Mark 116C0 116C9 Numeric 1171D 1172B Combining_Mark 11730 11739 Numeric 1173C 1173E Break_After 1182C 1183A Combining_Mark 118E0 118E9 Numeric 11930 11935 Combining_Mark 11937 11938 Combining_Mark 1193B 1193E Combining_Mark 11940 Combining_Mark 11942 11943 Combining_Mark 11944 11946 Break_After 11950 11959 Numeric 119D1 119D7 Combining_Mark 119DA 119E0 Combining_Mark 119E2 Break_Before 119E4 Combining_Mark 11A01 11A0A Combining_Mark 11A33 11A39 Combining_Mark 11A3B 11A3E Combining_Mark 11A3F Break_Before 11A41 11A44 Break_After 11A45 Break_Before 11A47 Combining_Mark 11A51 11A5B Combining_Mark 11A8A 11A99 Combining_Mark 11A9A 11A9C Break_After 11A9E 11AA0 Break_Before 11AA1 11AA2 Break_After 11C2F 11C36 Combining_Mark 11C38 11C3F Combining_Mark 11C41 11C45 Break_After 11C50 11C59 Numeric 11C70 Break_Before 11C71 Exclamation 11C92 11CA7 Combining_Mark 11CA9 11CB6 Combining_Mark 11D31 11D36 Combining_Mark 11D3A Combining_Mark 11D3C 11D3D Combining_Mark 11D3F 11D45 Combining_Mark 11D47 Combining_Mark 11D50 11D59 Numeric 11D8A 11D8E Combining_Mark 11D90 11D91 Combining_Mark 11D93 11D97 Combining_Mark 11DA0 11DA9 Numeric 11EF3 11EF6 Combining_Mark 11FDD 11FE0 Postfix_Numeric 11FFF Break_After 12470 12474 Break_After 13258 1325A Open_Punctuation 1325B 1325D Close_Punctuation 13282 Close_Punctuation 13286 Open_Punctuation 13287 Close_Punctuation 13288 Open_Punctuation 13289 Close_Punctuation 13379 Open_Punctuation 1337A 1337B Close_Punctuation 13430 13436 Glue 13437 Open_Punctuation 13438 Close_Punctuation 145CE Open_Punctuation 145CF Close_Punctuation 16A60 16A69 Numeric 16A6E 16A6F Break_After 16AF0 16AF4 Combining_Mark 16AF5 Break_After 16B30 16B36 Combining_Mark 16B37 16B39 Break_After 16B44 Break_After 16B50 16B59 Numeric 16E97 16E98 Break_After 16F4F Combining_Mark 16F51 16F87 Combining_Mark 16F8F 16F92 Combining_Mark 16FE0 16FE3 Nonstarter 16FE4 Glue 16FF0 16FF1 Combining_Mark 17000 187F7 Ideographic 18800 18AFF Ideographic 18D00 18D08 Ideographic 1B000 1B11E Ideographic 1B150 1B152 Nonstarter 1B164 1B167 Nonstarter 1B170 1B2FB Ideographic 1BC9D 1BC9E Combining_Mark 1BC9F Break_After 1BCA0 1BCA3 Combining_Mark 1D165 1D169 Combining_Mark 1D16D 1D182 Combining_Mark 1D185 1D18B Combining_Mark 1D1AA 1D1AD Combining_Mark 1D242 1D244 Combining_Mark 1D7CE 1D7FF Numeric 1DA00 1DA36 Combining_Mark 1DA3B 1DA6C Combining_Mark 1DA75 Combining_Mark 1DA84 Combining_Mark 1DA87 1DA8A Break_After 1DA9B 1DA9F Combining_Mark 1DAA1 1DAAF Combining_Mark 1E000 1E006 Combining_Mark 1E008 1E018 Combining_Mark 1E01B 1E021 Combining_Mark 1E023 1E024 Combining_Mark 1E026 1E02A Combining_Mark 1E130 1E136 Combining_Mark 1E140 1E149 Numeric 1E2EC 1E2EF Combining_Mark 1E2F0 1E2F9 Numeric 1E2FF Prefix_Numeric 1E8D0 1E8D6 Combining_Mark 1E944 1E94A Combining_Mark 1E950 1E959 Numeric 1E95E 1E95F Open_Punctuation 1ECAC Postfix_Numeric 1ECB0 Postfix_Numeric 1F000 1F0FF Ideographic 1F10D 1F10F Ideographic 1F16D 1F16F Ideographic 1F1AD 1F1E5 Ideographic 1F1E6 1F1FF Regional_Indicator 1F200 1F384 Ideographic 1F385 E_Base 1F386 1F39B Ideographic 1F39E 1F3B4 Ideographic 1F3B7 1F3BB Ideographic 1F3BD 1F3C1 Ideographic 1F3C2 1F3C4 E_Base 1F3C5 1F3C6 Ideographic 1F3C7 E_Base 1F3C8 1F3C9 Ideographic 1F3CA 1F3CC E_Base 1F3CD 1F3FA Ideographic 1F3FB 1F3FF E_Modifier 1F400 1F441 Ideographic 1F442 1F443 E_Base 1F444 1F445 Ideographic 1F446 1F450 E_Base 1F451 1F465 Ideographic 1F466 1F478 E_Base 1F479 1F47B Ideographic 1F47C E_Base 1F47D 1F480 Ideographic 1F481 1F483 E_Base 1F484 Ideographic 1F485 1F487 E_Base 1F488 1F48E Ideographic 1F48F E_Base 1F490 Ideographic 1F491 E_Base 1F492 1F49F Ideographic 1F4A1 Ideographic 1F4A3 Ideographic 1F4A5 1F4A9 Ideographic 1F4AA E_Base 1F4AB 1F4AE Ideographic 1F4B0 Ideographic 1F4B3 1F4FF Ideographic 1F507 1F516 Ideographic 1F525 1F531 Ideographic 1F54A 1F573 Ideographic 1F574 1F575 E_Base 1F576 1F579 Ideographic 1F57A E_Base 1F57B 1F58F Ideographic 1F590 E_Base 1F591 1F594 Ideographic 1F595 1F596 E_Base 1F597 1F5D3 Ideographic 1F5DC 1F5F3 Ideographic 1F5FA 1F644 Ideographic 1F645 1F647 E_Base 1F648 1F64A Ideographic 1F64B 1F64F E_Base 1F676 1F678 Quotation 1F679 1F67B Nonstarter 1F680 1F6A2 Ideographic 1F6A3 E_Base 1F6A4 1F6B3 Ideographic 1F6B4 1F6B6 E_Base 1F6B7 1F6BF Ideographic 1F6C0 E_Base 1F6C1 1F6CB Ideographic 1F6CC E_Base 1F6CD 1F6FF Ideographic 1F774 1F77F Ideographic 1F7D5 1F7FF Ideographic 1F80C 1F80F Ideographic 1F848 1F84F Ideographic 1F85A 1F85F Ideographic 1F888 1F88F Ideographic 1F8AE 1F8FF Ideographic 1F90C E_Base 1F90D 1F90E Ideographic 1F90F E_Base 1F910 1F917 Ideographic 1F918 1F91F E_Base 1F920 1F925 Ideographic 1F926 E_Base 1F927 1F92F Ideographic 1F930 1F939 E_Base 1F93A 1F93B Ideographic 1F93C 1F93E E_Base 1F93F 1F976 Ideographic 1F977 E_Base 1F978 1F9B4 Ideographic 1F9B5 1F9B6 E_Base 1F9B7 Ideographic 1F9B8 1F9B9 E_Base 1F9BA Ideographic 1F9BB E_Base 1F9BC 1F9CC Ideographic 1F9CD 1F9CF E_Base 1F9D0 Ideographic 1F9D1 1F9DD E_Base 1F9DE 1F9FF Ideographic 1FA54 1FAFF Ideographic 1FBF0 1FBF9 Numeric 1FC00 1FFFD Ideographic 20000 2FFFD Ideographic 30000 3FFFD Ideographic E0001 Combining_Mark E0020 E007F Combining_Mark E0100 E01EF Combining_Mark END PK ! � ^� � 5.34.0/unicore/To/NFDQC.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToNFDQC'}{'format'} = 's'; # string $Unicode::UCD::SwashInfo{'ToNFDQC'}{'missing'} = 'Yes'; return <<'END'; C0 C5 N C7 CF N D1 D6 N D9 DD N E0 E5 N E7 EF N F1 F6 N F9 FD N FF 10F N 112 125 N 128 130 N 134 137 N 139 13E N 143 148 N 14C 151 N 154 165 N 168 17E N 1A0 1A1 N 1AF 1B0 N 1CD 1DC N 1DE 1E3 N 1E6 1F0 N 1F4 1F5 N 1F8 21B N 21E 21F N 226 233 N 340 341 N 343 344 N 374 N 37E N 385 38A N 38C N 38E 390 N 3AA 3B0 N 3CA 3CE N 3D3 3D4 N 400 401 N 403 N 407 N 40C 40E N 419 N 439 N 450 451 N 453 N 457 N 45C 45E N 476 477 N 4C1 4C2 N 4D0 4D3 N 4D6 4D7 N 4DA 4DF N 4E2 4E7 N 4EA 4F5 N 4F8 4F9 N 622 626 N 6C0 N 6C2 N 6D3 N 929 N 931 N 934 N 958 95F N 9CB 9CC N 9DC 9DD N 9DF N A33 N A36 N A59 A5B N A5E N B48 N B4B B4C N B5C B5D N B94 N BCA BCC N C48 N CC0 N CC7 CC8 N CCA CCB N D4A D4C N DDA N DDC DDE N F43 N F4D N F52 N F57 N F5C N F69 N F73 N F75 F76 N F78 N F81 N F93 N F9D N FA2 N FA7 N FAC N FB9 N 1026 N 1B06 N 1B08 N 1B0A N 1B0C N 1B0E N 1B12 N 1B3B N 1B3D N 1B40 1B41 N 1B43 N 1E00 1E99 N 1E9B N 1EA0 1EF9 N 1F00 1F15 N 1F18 1F1D N 1F20 1F45 N 1F48 1F4D N 1F50 1F57 N 1F59 N 1F5B N 1F5D N 1F5F 1F7D N 1F80 1FB4 N 1FB6 1FBC N 1FBE N 1FC1 1FC4 N 1FC6 1FD3 N 1FD6 1FDB N 1FDD 1FEF N 1FF2 1FF4 N 1FF6 1FFD N 2000 2001 N 2126 N 212A 212B N 219A 219B N 21AE N 21CD 21CF N 2204 N 2209 N 220C N 2224 N 2226 N 2241 N 2244 N 2247 N 2249 N 2260 N 2262 N 226D 2271 N 2274 2275 N 2278 2279 N 2280 2281 N 2284 2285 N 2288 2289 N 22AC 22AF N 22E0 22E3 N 22EA 22ED N 2329 232A N 2ADC N 304C N 304E N 3050 N 3052 N 3054 N 3056 N 3058 N 305A N 305C N 305E N 3060 N 3062 N 3065 N 3067 N 3069 N 3070 3071 N 3073 3074 N 3076 3077 N 3079 307A N 307C 307D N 3094 N 309E N 30AC N 30AE N 30B0 N 30B2 N 30B4 N 30B6 N 30B8 N 30BA N 30BC N 30BE N 30C0 N 30C2 N 30C5 N 30C7 N 30C9 N 30D0 30D1 N 30D3 30D4 N 30D6 30D7 N 30D9 30DA N 30DC 30DD N 30F4 N 30F7 30FA N 30FE N AC00 D7A3 N F900 FA0D N FA10 N FA12 N FA15 FA1E N FA20 N FA22 N FA25 FA26 N FA2A FA6D N FA70 FAD9 N FB1D N FB1F N FB2A FB36 N FB38 FB3C N FB3E N FB40 FB41 N FB43 FB44 N FB46 FB4E N 1109A N 1109C N 110AB N 1112E 1112F N 1134B 1134C N 114BB 114BC N 114BE N 115BA 115BB N 11938 N 1D15E 1D164 N 1D1BB 1D1C0 N 2F800 2FA1D N END PK ! ��H�L L 5.34.0/unicore/To/Nt.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToNt'}{'format'} = 's'; # string $Unicode::UCD::SwashInfo{'ToNt'}{'missing'} = 'None'; return <<'END'; 30 39 Decimal B2 B3 Digit B9 Digit BC BE Numeric 660 669 Decimal 6F0 6F9 Decimal 7C0 7C9 Decimal 966 96F Decimal 9E6 9EF Decimal 9F4 9F9 Numeric A66 A6F Decimal AE6 AEF Decimal B66 B6F Decimal B72 B77 Numeric BE6 BEF Decimal BF0 BF2 Numeric C66 C6F Decimal C78 C7E Numeric CE6 CEF Decimal D58 D5E Numeric D66 D6F Decimal D70 D78 Numeric DE6 DEF Decimal E50 E59 Decimal ED0 ED9 Decimal F20 F29 Decimal F2A F33 Numeric 1040 1049 Decimal 1090 1099 Decimal 1369 1371 Digit 1372 137C Numeric 16EE 16F0 Numeric 17E0 17E9 Decimal 17F0 17F9 Numeric 1810 1819 Decimal 1946 194F Decimal 19D0 19D9 Decimal 19DA Digit 1A80 1A89 Decimal 1A90 1A99 Decimal 1B50 1B59 Decimal 1BB0 1BB9 Decimal 1C40 1C49 Decimal 1C50 1C59 Decimal 2070 Digit 2074 2079 Digit 2080 2089 Digit 2150 2182 Numeric 2185 2189 Numeric 2460 2468 Digit 2469 2473 Numeric 2474 247C Digit 247D 2487 Numeric 2488 2490 Digit 2491 249B Numeric 24EA Digit 24EB 24F4 Numeric 24F5 24FD Digit 24FE Numeric 24FF Digit 2776 277E Digit 277F Numeric 2780 2788 Digit 2789 Numeric 278A 2792 Digit 2793 Numeric 2CFD Numeric 3007 Numeric 3021 3029 Numeric 3038 303A Numeric 3192 3195 Numeric 3220 3229 Numeric 3248 324F Numeric 3251 325F Numeric 3280 3289 Numeric 32B1 32BF Numeric 3405 Numeric 3483 Numeric 382A Numeric 3B4D Numeric 4E00 Numeric 4E03 Numeric 4E07 Numeric 4E09 Numeric 4E5D Numeric 4E8C Numeric 4E94 Numeric 4E96 Numeric 4EBF 4EC0 Numeric 4EDF Numeric 4EE8 Numeric 4F0D Numeric 4F70 Numeric 5104 Numeric 5146 Numeric 5169 Numeric 516B Numeric 516D Numeric 5341 Numeric 5343 5345 Numeric 534C Numeric 53C1 53C4 Numeric 56DB Numeric 58F1 Numeric 58F9 Numeric 5E7A Numeric 5EFE 5EFF Numeric 5F0C 5F0E Numeric 5F10 Numeric 62FE Numeric 634C Numeric 67D2 Numeric 6F06 Numeric 7396 Numeric 767E Numeric 8086 Numeric 842C Numeric 8CAE Numeric 8CB3 Numeric 8D30 Numeric 9621 Numeric 9646 Numeric 964C Numeric 9678 Numeric 96F6 Numeric A620 A629 Decimal A6E6 A6EF Numeric A830 A835 Numeric A8D0 A8D9 Decimal A900 A909 Decimal A9D0 A9D9 Decimal A9F0 A9F9 Decimal AA50 AA59 Decimal ABF0 ABF9 Decimal F96B Numeric F973 Numeric F978 Numeric F9B2 Numeric F9D1 Numeric F9D3 Numeric F9FD Numeric FF10 FF19 Decimal 10107 10133 Numeric 10140 10178 Numeric 1018A 1018B Numeric 102E1 102FB Numeric 10320 10323 Numeric 10341 Numeric 1034A Numeric 103D1 103D5 Numeric 104A0 104A9 Decimal 10858 1085F Numeric 10879 1087F Numeric 108A7 108AF Numeric 108FB 108FF Numeric 10916 1091B Numeric 109BC 109BD Numeric 109C0 109CF Numeric 109D2 109FF Numeric 10A40 10A43 Digit 10A44 10A48 Numeric 10A7D 10A7E Numeric 10A9D 10A9F Numeric 10AEB 10AEF Numeric 10B58 10B5F Numeric 10B78 10B7F Numeric 10BA9 10BAF Numeric 10CFA 10CFF Numeric 10D30 10D39 Decimal 10E60 10E68 Digit 10E69 10E7E Numeric 10F1D 10F26 Numeric 10F51 10F54 Numeric 10FC5 10FCB Numeric 11052 1105A Digit 1105B 11065 Numeric 11066 1106F Decimal 110F0 110F9 Decimal 11136 1113F Decimal 111D0 111D9 Decimal 111E1 111F4 Numeric 112F0 112F9 Decimal 11450 11459 Decimal 114D0 114D9 Decimal 11650 11659 Decimal 116C0 116C9 Decimal 11730 11739 Decimal 1173A 1173B Numeric 118E0 118E9 Decimal 118EA 118F2 Numeric 11950 11959 Decimal 11C50 11C59 Decimal 11C5A 11C6C Numeric 11D50 11D59 Decimal 11DA0 11DA9 Decimal 11FC0 11FD4 Numeric 12400 1246E Numeric 16A60 16A69 Decimal 16B50 16B59 Decimal 16B5B 16B61 Numeric 16E80 16E96 Numeric 1D2E0 1D2F3 Numeric 1D360 1D378 Numeric 1D7CE 1D7FF Decimal 1E140 1E149 Decimal 1E2F0 1E2F9 Decimal 1E8C7 1E8CF Numeric 1E950 1E959 Decimal 1EC71 1ECAB Numeric 1ECAD 1ECAF Numeric 1ECB1 1ECB4 Numeric 1ED01 1ED2D Numeric 1ED2F 1ED3D Numeric 1F100 1F10A Digit 1F10B 1F10C Numeric 1FBF0 1FBF9 Decimal 20001 Numeric 20064 Numeric 200E2 Numeric 20121 Numeric 2092A Numeric 20983 Numeric 2098C Numeric 2099C Numeric 20AEA Numeric 20AFD Numeric 20B19 Numeric 22390 Numeric 22998 Numeric 23B1B Numeric 2626D Numeric 2F890 Numeric END PK ! w mƗU �U 5.34.0/unicore/To/Age.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToAge'}{'format'} = 'f'; # floating point number $Unicode::UCD::SwashInfo{'ToAge'}{'missing'} = 'Unassigned'; return <<'END'; 0 1F5 1.1 1F6 1F9 3.0 1FA 217 1.1 218 21F 3.0 220 3.2 221 4.0 222 233 3.0 234 236 4.0 237 241 4.1 242 24F 5.0 250 2A8 1.1 2A9 2AD 3.0 2AE 2AF 4.0 2B0 2DE 1.1 2DF 3.0 2E0 2E9 1.1 2EA 2EE 3.0 2EF 2FF 4.0 300 345 1.1 346 34E 3.0 34F 3.2 350 357 4.0 358 35C 4.1 35D 35F 4.0 360 361 1.1 362 3.0 363 36F 3.2 370 373 5.1 374 375 1.1 376 377 5.1 37A 1.1 37B 37D 5.0 37E 1.1 37F 7.0 384 38A 1.1 38C 1.1 38E 3A1 1.1 3A3 3CE 1.1 3CF 5.1 3D0 3D6 1.1 3D7 3.0 3D8 3D9 3.2 3DA 1.1 3DB 3.0 3DC 1.1 3DD 3.0 3DE 1.1 3DF 3.0 3E0 1.1 3E1 3.0 3E2 3F3 1.1 3F4 3F5 3.1 3F6 3.2 3F7 3FB 4.0 3FC 3FF 4.1 400 3.0 401 40C 1.1 40D 3.0 40E 44F 1.1 450 3.0 451 45C 1.1 45D 3.0 45E 486 1.1 487 5.1 488 489 3.0 48A 48B 3.2 48C 48F 3.0 490 4C4 1.1 4C5 4C6 3.2 4C7 4C8 1.1 4C9 4CA 3.2 4CB 4CC 1.1 4CD 4CE 3.2 4CF 5.0 4D0 4EB 1.1 4EC 4ED 3.0 4EE 4F5 1.1 4F6 4F7 4.1 4F8 4F9 1.1 4FA 4FF 5.0 500 50F 3.2 510 513 5.0 514 523 5.1 524 525 5.2 526 527 6.0 528 52F 7.0 531 556 1.1 559 55F 1.1 560 11.0 561 587 1.1 588 11.0 589 1.1 58A 3.0 58D 58E 7.0 58F 6.1 591 5A1 2.0 5A2 4.1 5A3 5AF 2.0 5B0 5B9 1.1 5BA 5.0 5BB 5C3 1.1 5C4 2.0 5C5 5C7 4.1 5D0 5EA 1.1 5EF 11.0 5F0 5F4 1.1 600 603 4.0 604 6.1 605 7.0 606 60A 5.1 60B 4.1 60C 1.1 60D 615 4.0 616 61A 5.1 61B 1.1 61C 6.3 61E 4.1 61F 1.1 620 6.0 621 63A 1.1 63B 63F 5.1 640 652 1.1 653 655 3.0 656 658 4.0 659 65E 4.1 65F 6.0 660 66D 1.1 66E 66F 3.2 670 6B7 1.1 6B8 6B9 3.0 6BA 6BE 1.1 6BF 3.0 6C0 6CE 1.1 6CF 3.0 6D0 6ED 1.1 6EE 6EF 4.0 6F0 6F9 1.1 6FA 6FE 3.0 6FF 4.0 700 70D 3.0 70F 72C 3.0 72D 72F 4.0 730 74A 3.0 74D 74F 4.0 750 76D 4.1 76E 77F 5.1 780 7B0 3.0 7B1 3.2 7C0 7FA 5.0 7FD 7FF 11.0 800 82D 5.2 830 83E 5.2 840 85B 6.0 85E 6.0 860 86A 10.0 8A0 6.1 8A1 7.0 8A2 8AC 6.1 8AD 8B2 7.0 8B3 8B4 8.0 8B6 8BD 9.0 8BE 8C7 13.0 8D3 11.0 8D4 8E2 9.0 8E3 8.0 8E4 8FE 6.1 8FF 7.0 900 5.2 901 903 1.1 904 4.0 905 939 1.1 93A 93B 6.0 93C 94D 1.1 94E 5.2 94F 6.0 950 954 1.1 955 5.2 956 957 6.0 958 970 1.1 971 972 5.1 973 977 6.0 978 7.0 979 97A 5.2 97B 97C 5.0 97D 4.1 97E 97F 5.0 980 7.0 981 983 1.1 985 98C 1.1 98F 990 1.1 993 9A8 1.1 9AA 9B0 1.1 9B2 1.1 9B6 9B9 1.1 9BC 1.1 9BD 4.0 9BE 9C4 1.1 9C7 9C8 1.1 9CB 9CD 1.1 9CE 4.1 9D7 1.1 9DC 9DD 1.1 9DF 9E3 1.1 9E6 9FA 1.1 9FB 5.2 9FC 9FD 10.0 9FE 11.0 A01 4.0 A02 1.1 A03 4.0 A05 A0A 1.1 A0F A10 1.1 A13 A28 1.1 A2A A30 1.1 A32 A33 1.1 A35 A36 1.1 A38 A39 1.1 A3C 1.1 A3E A42 1.1 A47 A48 1.1 A4B A4D 1.1 A51 5.1 A59 A5C 1.1 A5E 1.1 A66 A74 1.1 A75 5.1 A76 11.0 A81 A83 1.1 A85 A8B 1.1 A8C 4.0 A8D 1.1 A8F A91 1.1 A93 AA8 1.1 AAA AB0 1.1 AB2 AB3 1.1 AB5 AB9 1.1 ABC AC5 1.1 AC7 AC9 1.1 ACB ACD 1.1 AD0 1.1 AE0 1.1 AE1 AE3 4.0 AE6 AEF 1.1 AF0 6.1 AF1 4.0 AF9 8.0 AFA AFF 10.0 B01 B03 1.1 B05 B0C 1.1 B0F B10 1.1 B13 B28 1.1 B2A B30 1.1 B32 B33 1.1 B35 4.0 B36 B39 1.1 B3C B43 1.1 B44 5.1 B47 B48 1.1 B4B B4D 1.1 B55 13.0 B56 B57 1.1 B5C B5D 1.1 B5F B61 1.1 B62 B63 5.1 B66 B70 1.1 B71 4.0 B72 B77 6.0 B82 B83 1.1 B85 B8A 1.1 B8E B90 1.1 B92 B95 1.1 B99 B9A 1.1 B9C 1.1 B9E B9F 1.1 BA3 BA4 1.1 BA8 BAA 1.1 BAE BB5 1.1 BB6 4.1 BB7 BB9 1.1 BBE BC2 1.1 BC6 BC8 1.1 BCA BCD 1.1 BD0 5.1 BD7 1.1 BE6 4.1 BE7 BF2 1.1 BF3 BFA 4.0 C00 7.0 C01 C03 1.1 C04 11.0 C05 C0C 1.1 C0E C10 1.1 C12 C28 1.1 C2A C33 1.1 C34 7.0 C35 C39 1.1 C3D 5.1 C3E C44 1.1 C46 C48 1.1 C4A C4D 1.1 C55 C56 1.1 C58 C59 5.1 C5A 8.0 C60 C61 1.1 C62 C63 5.1 C66 C6F 1.1 C77 12.0 C78 C7F 5.1 C80 9.0 C81 7.0 C82 C83 1.1 C84 11.0 C85 C8C 1.1 C8E C90 1.1 C92 CA8 1.1 CAA CB3 1.1 CB5 CB9 1.1 CBC CBD 4.0 CBE CC4 1.1 CC6 CC8 1.1 CCA CCD 1.1 CD5 CD6 1.1 CDE 1.1 CE0 CE1 1.1 CE2 CE3 5.0 CE6 CEF 1.1 CF1 CF2 5.0 D00 10.0 D01 7.0 D02 D03 1.1 D04 13.0 D05 D0C 1.1 D0E D10 1.1 D12 D28 1.1 D29 6.0 D2A D39 1.1 D3A 6.0 D3B D3C 10.0 D3D 5.1 D3E D43 1.1 D44 5.1 D46 D48 1.1 D4A D4D 1.1 D4E 6.0 D4F 9.0 D54 D56 9.0 D57 1.1 D58 D5E 9.0 D5F 8.0 D60 D61 1.1 D62 D63 5.1 D66 D6F 1.1 D70 D75 5.1 D76 D78 9.0 D79 D7F 5.1 D81 13.0 D82 D83 3.0 D85 D96 3.0 D9A DB1 3.0 DB3 DBB 3.0 DBD 3.0 DC0 DC6 3.0 DCA 3.0 DCF DD4 3.0 DD6 3.0 DD8 DDF 3.0 DE6 DEF 7.0 DF2 DF4 3.0 E01 E3A 1.1 E3F E5B 1.1 E81 E82 1.1 E84 1.1 E86 12.0 E87 E88 1.1 E89 12.0 E8A 1.1 E8C 12.0 E8D 1.1 E8E E93 12.0 E94 E97 1.1 E98 12.0 E99 E9F 1.1 EA0 12.0 EA1 EA3 1.1 EA5 1.1 EA7 1.1 EA8 EA9 12.0 EAA EAB 1.1 EAC 12.0 EAD EB9 1.1 EBA 12.0 EBB EBD 1.1 EC0 EC4 1.1 EC6 1.1 EC8 ECD 1.1 ED0 ED9 1.1 EDC EDD 1.1 EDE EDF 6.1 F00 F47 2.0 F49 F69 2.0 F6A 3.0 F6B F6C 5.1 F71 F8B 2.0 F8C F8F 6.0 F90 F95 2.0 F96 3.0 F97 2.0 F99 FAD 2.0 FAE FB0 3.0 FB1 FB7 2.0 FB8 3.0 FB9 2.0 FBA FBC 3.0 FBE FCC 3.0 FCE 5.1 FCF 3.0 FD0 FD1 4.1 FD2 FD4 5.1 FD5 FD8 5.2 FD9 FDA 6.0 1000 1021 3.0 1022 5.1 1023 1027 3.0 1028 5.1 1029 102A 3.0 102B 5.1 102C 1032 3.0 1033 1035 5.1 1036 1039 3.0 103A 103F 5.1 1040 1059 3.0 105A 1099 5.1 109A 109D 5.2 109E 109F 5.1 10A0 10C5 1.1 10C7 6.1 10CD 6.1 10D0 10F6 1.1 10F7 10F8 3.2 10F9 10FA 4.1 10FB 1.1 10FC 4.1 10FD 10FF 6.1 1100 1159 1.1 115A 115E 5.2 115F 11A2 1.1 11A3 11A7 5.2 11A8 11F9 1.1 11FA 11FF 5.2 1200 1206 3.0 1207 4.1 1208 1246 3.0 1247 4.1 1248 3.0 124A 124D 3.0 1250 1256 3.0 1258 3.0 125A 125D 3.0 1260 1286 3.0 1287 4.1 1288 3.0 128A 128D 3.0 1290 12AE 3.0 12AF 4.1 12B0 3.0 12B2 12B5 3.0 12B8 12BE 3.0 12C0 3.0 12C2 12C5 3.0 12C8 12CE 3.0 12CF 4.1 12D0 12D6 3.0 12D8 12EE 3.0 12EF 4.1 12F0 130E 3.0 130F 4.1 1310 3.0 1312 1315 3.0 1318 131E 3.0 131F 4.1 1320 1346 3.0 1347 4.1 1348 135A 3.0 135D 135E 6.0 135F 1360 4.1 1361 137C 3.0 1380 1399 4.1 13A0 13F4 3.0 13F5 8.0 13F8 13FD 8.0 1400 5.2 1401 1676 3.0 1677 167F 5.2 1680 169C 3.0 16A0 16F0 3.0 16F1 16F8 7.0 1700 170C 3.2 170E 1714 3.2 1720 1736 3.2 1740 1753 3.2 1760 176C 3.2 176E 1770 3.2 1772 1773 3.2 1780 17DC 3.0 17DD 4.0 17E0 17E9 3.0 17F0 17F9 4.0 1800 180E 3.0 1810 1819 3.0 1820 1877 3.0 1878 11.0 1880 18A9 3.0 18AA 5.1 18B0 18F5 5.2 1900 191C 4.0 191D 191E 7.0 1920 192B 4.0 1930 193B 4.0 1940 4.0 1944 196D 4.0 1970 1974 4.0 1980 19A9 4.1 19AA 19AB 5.2 19B0 19C9 4.1 19D0 19D9 4.1 19DA 5.2 19DE 19DF 4.1 19E0 19FF 4.0 1A00 1A1B 4.1 1A1E 1A1F 4.1 1A20 1A5E 5.2 1A60 1A7C 5.2 1A7F 1A89 5.2 1A90 1A99 5.2 1AA0 1AAD 5.2 1AB0 1ABE 7.0 1ABF 1AC0 13.0 1B00 1B4B 5.0 1B50 1B7C 5.0 1B80 1BAA 5.1 1BAB 1BAD 6.1 1BAE 1BB9 5.1 1BBA 1BBF 6.1 1BC0 1BF3 6.0 1BFC 1BFF 6.0 1C00 1C37 5.1 1C3B 1C49 5.1 1C4D 1C7F 5.1 1C80 1C88 9.0 1C90 1CBA 11.0 1CBD 1CBF 11.0 1CC0 1CC7 6.1 1CD0 1CF2 5.2 1CF3 1CF6 6.1 1CF7 10.0 1CF8 1CF9 7.0 1CFA 12.0 1D00 1D6B 4.0 1D6C 1DC3 4.1 1DC4 1DCA 5.0 1DCB 1DE6 5.1 1DE7 1DF5 7.0 1DF6 1DF9 10.0 1DFB 9.0 1DFC 6.0 1DFD 5.2 1DFE 1DFF 5.0 1E00 1E9A 1.1 1E9B 2.0 1E9C 1E9F 5.1 1EA0 1EF9 1.1 1EFA 1EFF 5.1 1F00 1F15 1.1 1F18 1F1D 1.1 1F20 1F45 1.1 1F48 1F4D 1.1 1F50 1F57 1.1 1F59 1.1 1F5B 1.1 1F5D 1.1 1F5F 1F7D 1.1 1F80 1FB4 1.1 1FB6 1FC4 1.1 1FC6 1FD3 1.1 1FD6 1FDB 1.1 1FDD 1FEF 1.1 1FF2 1FF4 1.1 1FF6 1FFE 1.1 2000 202E 1.1 202F 3.0 2030 2046 1.1 2047 3.2 2048 204D 3.0 204E 2052 3.2 2053 2054 4.0 2055 2056 4.1 2057 3.2 2058 205E 4.1 205F 2063 3.2 2064 5.1 2066 2069 6.3 206A 2070 1.1 2071 3.2 2074 208E 1.1 2090 2094 4.1 2095 209C 6.0 20A0 20AA 1.1 20AB 2.0 20AC 2.1 20AD 20AF 3.0 20B0 20B1 3.2 20B2 20B5 4.1 20B6 20B8 5.2 20B9 6.0 20BA 6.2 20BB 20BD 7.0 20BE 8.0 20BF 10.0 20D0 20E1 1.1 20E2 20E3 3.0 20E4 20EA 3.2 20EB 4.1 20EC 20EF 5.0 20F0 5.1 2100 2138 1.1 2139 213A 3.0 213B 4.0 213C 4.1 213D 214B 3.2 214C 4.1 214D 214E 5.0 214F 5.1 2150 2152 5.2 2153 2182 1.1 2183 3.0 2184 5.0 2185 2188 5.1 2189 5.2 218A 218B 8.0 2190 21EA 1.1 21EB 21F3 3.0 21F4 21FF 3.2 2200 22F1 1.1 22F2 22FF 3.2 2300 1.1 2301 3.0 2302 237A 1.1 237B 3.0 237C 3.2 237D 239A 3.0 239B 23CE 3.2 23CF 23D0 4.0 23D1 23DB 4.1 23DC 23E7 5.0 23E8 5.2 23E9 23F3 6.0 23F4 23FA 7.0 23FB 23FE 9.0 23FF 10.0 2400 2424 1.1 2425 2426 3.0 2440 244A 1.1 2460 24EA 1.1 24EB 24FE 3.2 24FF 4.0 2500 2595 1.1 2596 259F 3.2 25A0 25EF 1.1 25F0 25F7 3.0 25F8 25FF 3.2 2600 2613 1.1 2614 2615 4.0 2616 2617 3.2 2618 4.1 2619 3.0 261A 266F 1.1 2670 2671 3.0 2672 267D 3.2 267E 267F 4.1 2680 2689 3.2 268A 2691 4.0 2692 269C 4.1 269D 5.1 269E 269F 5.2 26A0 26A1 4.0 26A2 26B1 4.1 26B2 5.0 26B3 26BC 5.1 26BD 26BF 5.2 26C0 26C3 5.1 26C4 26CD 5.2 26CE 6.0 26CF 26E1 5.2 26E2 6.0 26E3 5.2 26E4 26E7 6.0 26E8 26FF 5.2 2700 7.0 2701 2704 1.1 2705 6.0 2706 2709 1.1 270A 270B 6.0 270C 2727 1.1 2728 6.0 2729 274B 1.1 274C 6.0 274D 1.1 274E 6.0 274F 2752 1.1 2753 2755 6.0 2756 1.1 2757 5.2 2758 275E 1.1 275F 2760 6.0 2761 2767 1.1 2768 2775 3.2 2776 2794 1.1 2795 2797 6.0 2798 27AF 1.1 27B0 6.0 27B1 27BE 1.1 27BF 6.0 27C0 27C6 4.1 27C7 27CA 5.0 27CB 6.1 27CC 5.1 27CD 6.1 27CE 27CF 6.0 27D0 27EB 3.2 27EC 27EF 5.1 27F0 27FF 3.2 2800 28FF 3.0 2900 2AFF 3.2 2B00 2B0D 4.0 2B0E 2B13 4.1 2B14 2B1A 5.0 2B1B 2B1F 5.1 2B20 2B23 5.0 2B24 2B4C 5.1 2B4D 2B4F 7.0 2B50 2B54 5.1 2B55 2B59 5.2 2B5A 2B73 7.0 2B76 2B95 7.0 2B97 13.0 2B98 2BB9 7.0 2BBA 2BBC 11.0 2BBD 2BC8 7.0 2BC9 12.0 2BCA 2BD1 7.0 2BD2 10.0 2BD3 2BEB 11.0 2BEC 2BEF 8.0 2BF0 2BFE 11.0 2BFF 12.0 2C00 2C2E 4.1 2C30 2C5E 4.1 2C60 2C6C 5.0 2C6D 2C6F 5.1 2C70 5.2 2C71 2C73 5.1 2C74 2C77 5.0 2C78 2C7D 5.1 2C7E 2C7F 5.2 2C80 2CEA 4.1 2CEB 2CF1 5.2 2CF2 2CF3 6.1 2CF9 2D25 4.1 2D27 6.1 2D2D 6.1 2D30 2D65 4.1 2D66 2D67 6.1 2D6F 4.1 2D70 6.0 2D7F 6.0 2D80 2D96 4.1 2DA0 2DA6 4.1 2DA8 2DAE 4.1 2DB0 2DB6 4.1 2DB8 2DBE 4.1 2DC0 2DC6 4.1 2DC8 2DCE 4.1 2DD0 2DD6 4.1 2DD8 2DDE 4.1 2DE0 2DFF 5.1 2E00 2E17 4.1 2E18 2E1B 5.1 2E1C 2E1D 4.1 2E1E 2E30 5.1 2E31 5.2 2E32 2E3B 6.1 2E3C 2E42 7.0 2E43 2E44 9.0 2E45 2E49 10.0 2E4A 2E4E 11.0 2E4F 12.0 2E50 2E52 13.0 2E80 2E99 3.0 2E9B 2EF3 3.0 2F00 2FD5 3.0 2FF0 2FFB 3.0 3000 3037 1.1 3038 303A 3.0 303B 303D 3.2 303E 3.0 303F 1.1 3041 3094 1.1 3095 3096 3.2 3099 309E 1.1 309F 30A0 3.2 30A1 30FE 1.1 30FF 3.2 3105 312C 1.1 312D 5.1 312E 10.0 312F 11.0 3131 318E 1.1 3190 319F 1.1 31A0 31B7 3.0 31B8 31BA 6.0 31BB 31BF 13.0 31C0 31CF 4.1 31D0 31E3 5.1 31F0 31FF 3.2 3200 321C 1.1 321D 321E 4.0 3220 3243 1.1 3244 324F 5.2 3250 4.0 3251 325F 3.2 3260 327B 1.1 327C 327D 4.0 327E 4.1 327F 32B0 1.1 32B1 32BF 3.2 32C0 32CB 1.1 32CC 32CF 4.0 32D0 32FE 1.1 32FF 12.1 3300 3376 1.1 3377 337A 4.0 337B 33DD 1.1 33DE 33DF 4.0 33E0 33FE 1.1 33FF 4.0 3400 4DB5 3.0 4DB6 4DBF 13.0 4DC0 4DFF 4.0 4E00 9FA5 1.1 9FA6 9FBB 4.1 9FBC 9FC3 5.1 9FC4 9FCB 5.2 9FCC 6.1 9FCD 9FD5 8.0 9FD6 9FEA 10.0 9FEB 9FEF 11.0 9FF0 9FFC 13.0 A000 A48C 3.0 A490 A4A1 3.0 A4A2 A4A3 3.2 A4A4 A4B3 3.0 A4B4 3.2 A4B5 A4C0 3.0 A4C1 3.2 A4C2 A4C4 3.0 A4C5 3.2 A4C6 3.0 A4D0 A4FF 5.2 A500 A62B 5.1 A640 A65F 5.1 A660 A661 6.0 A662 A673 5.1 A674 A67B 6.1 A67C A697 5.1 A698 A69D 7.0 A69E 8.0 A69F 6.1 A6A0 A6F7 5.2 A700 A716 4.1 A717 A71A 5.0 A71B A71F 5.1 A720 A721 5.0 A722 A78C 5.1 A78D A78E 6.0 A78F 8.0 A790 A791 6.0 A792 A793 6.1 A794 A79F 7.0 A7A0 A7A9 6.0 A7AA 6.1 A7AB A7AD 7.0 A7AE 9.0 A7AF 11.0 A7B0 A7B1 7.0 A7B2 A7B7 8.0 A7B8 A7B9 11.0 A7BA A7BF 12.0 A7C2 A7C6 12.0 A7C7 A7CA 13.0 A7F5 A7F6 13.0 A7F7 7.0 A7F8 A7F9 6.1 A7FA 6.0 A7FB A7FF 5.1 A800 A82B 4.1 A82C 13.0 A830 A839 5.2 A840 A877 5.0 A880 A8C4 5.1 A8C5 9.0 A8CE A8D9 5.1 A8E0 A8FB 5.2 A8FC A8FD 8.0 A8FE A8FF 11.0 A900 A953 5.1 A95F 5.1 A960 A97C 5.2 A980 A9CD 5.2 A9CF A9D9 5.2 A9DE A9DF 5.2 A9E0 A9FE 7.0 AA00 AA36 5.1 AA40 AA4D 5.1 AA50 AA59 5.1 AA5C AA5F 5.1 AA60 AA7B 5.2 AA7C AA7F 7.0 AA80 AAC2 5.2 AADB AADF 5.2 AAE0 AAF6 6.1 AB01 AB06 6.0 AB09 AB0E 6.0 AB11 AB16 6.0 AB20 AB26 6.0 AB28 AB2E 6.0 AB30 AB5F 7.0 AB60 AB63 8.0 AB64 AB65 7.0 AB66 AB67 12.0 AB68 AB6B 13.0 AB70 ABBF 8.0 ABC0 ABED 5.2 ABF0 ABF9 5.2 AC00 D7A3 2.0 D7B0 D7C6 5.2 D7CB D7FB 5.2 D800 DFFF 2.0 E000 FA2D 1.1 FA2E FA2F 6.1 FA30 FA6A 3.2 FA6B FA6D 5.2 FA70 FAD9 4.1 FB00 FB06 1.1 FB13 FB17 1.1 FB1D 3.0 FB1E FB36 1.1 FB38 FB3C 1.1 FB3E 1.1 FB40 FB41 1.1 FB43 FB44 1.1 FB46 FBB1 1.1 FBB2 FBC1 6.0 FBD3 FD3F 1.1 FD50 FD8F 1.1 FD92 FDC7 1.1 FDD0 FDEF 3.1 FDF0 FDFB 1.1 FDFC 3.2 FDFD 4.0 FE00 FE0F 3.2 FE10 FE19 4.1 FE20 FE23 1.1 FE24 FE26 5.1 FE27 FE2D 7.0 FE2E FE2F 8.0 FE30 FE44 1.1 FE45 FE46 3.2 FE47 FE48 4.0 FE49 FE52 1.1 FE54 FE66 1.1 FE68 FE6B 1.1 FE70 FE72 1.1 FE73 3.2 FE74 1.1 FE76 FEFC 1.1 FEFF 1.1 FF01 FF5E 1.1 FF5F FF60 3.2 FF61 FFBE 1.1 FFC2 FFC7 1.1 FFCA FFCF 1.1 FFD2 FFD7 1.1 FFDA FFDC 1.1 FFE0 FFE6 1.1 FFE8 FFEE 1.1 FFF9 FFFB 3.0 FFFC 2.1 FFFD FFFF 1.1 10000 1000B 4.0 1000D 10026 4.0 10028 1003A 4.0 1003C 1003D 4.0 1003F 1004D 4.0 10050 1005D 4.0 10080 100FA 4.0 10100 10102 4.0 10107 10133 4.0 10137 1013F 4.0 10140 1018A 4.1 1018B 1018C 7.0 1018D 1018E 9.0 10190 1019B 5.1 1019C 13.0 101A0 7.0 101D0 101FD 5.1 10280 1029C 5.1 102A0 102D0 5.1 102E0 102FB 7.0 10300 1031E 3.1 1031F 7.0 10320 10323 3.1 1032D 1032F 10.0 10330 1034A 3.1 10350 1037A 7.0 10380 1039D 4.0 1039F 4.0 103A0 103C3 4.1 103C8 103D5 4.1 10400 10425 3.1 10426 10427 4.0 10428 1044D 3.1 1044E 1049D 4.0 104A0 104A9 4.0 104B0 104D3 9.0 104D8 104FB 9.0 10500 10527 7.0 10530 10563 7.0 1056F 7.0 10600 10736 7.0 10740 10755 7.0 10760 10767 7.0 10800 10805 4.0 10808 4.0 1080A 10835 4.0 10837 10838 4.0 1083C 4.0 1083F 4.0 10840 10855 5.2 10857 1085F 5.2 10860 1089E 7.0 108A7 108AF 7.0 108E0 108F2 8.0 108F4 108F5 8.0 108FB 108FF 8.0 10900 10919 5.0 1091A 1091B 5.2 1091F 5.0 10920 10939 5.1 1093F 5.1 10980 109B7 6.1 109BC 109BD 8.0 109BE 109BF 6.1 109C0 109CF 8.0 109D2 109FF 8.0 10A00 10A03 4.1 10A05 10A06 4.1 10A0C 10A13 4.1 10A15 10A17 4.1 10A19 10A33 4.1 10A34 10A35 11.0 10A38 10A3A 4.1 10A3F 10A47 4.1 10A48 11.0 10A50 10A58 4.1 10A60 10A7F 5.2 10A80 10A9F 7.0 10AC0 10AE6 7.0 10AEB 10AF6 7.0 10B00 10B35 5.2 10B39 10B55 5.2 10B58 10B72 5.2 10B78 10B7F 5.2 10B80 10B91 7.0 10B99 10B9C 7.0 10BA9 10BAF 7.0 10C00 10C48 5.2 10C80 10CB2 8.0 10CC0 10CF2 8.0 10CFA 10CFF 8.0 10D00 10D27 11.0 10D30 10D39 11.0 10E60 10E7E 5.2 10E80 10EA9 13.0 10EAB 10EAD 13.0 10EB0 10EB1 13.0 10F00 10F27 11.0 10F30 10F59 11.0 10FB0 10FCB 13.0 10FE0 10FF6 12.0 11000 1104D 6.0 11052 1106F 6.0 1107F 7.0 11080 110C1 5.2 110CD 11.0 110D0 110E8 6.1 110F0 110F9 6.1 11100 11134 6.1 11136 11143 6.1 11144 11146 11.0 11147 13.0 11150 11176 7.0 11180 111C8 6.1 111C9 111CC 8.0 111CD 7.0 111CE 111CF 13.0 111D0 111D9 6.1 111DA 7.0 111DB 111DF 8.0 111E1 111F4 7.0 11200 11211 7.0 11213 1123D 7.0 1123E 9.0 11280 11286 8.0 11288 8.0 1128A 1128D 8.0 1128F 1129D 8.0 1129F 112A9 8.0 112B0 112EA 7.0 112F0 112F9 7.0 11300 8.0 11301 11303 7.0 11305 1130C 7.0 1130F 11310 7.0 11313 11328 7.0 1132A 11330 7.0 11332 11333 7.0 11335 11339 7.0 1133B 11.0 1133C 11344 7.0 11347 11348 7.0 1134B 1134D 7.0 11350 8.0 11357 7.0 1135D 11363 7.0 11366 1136C 7.0 11370 11374 7.0 11400 11459 9.0 1145A 13.0 1145B 9.0 1145D 9.0 1145E 11.0 1145F 12.0 11460 11461 13.0 11480 114C7 7.0 114D0 114D9 7.0 11580 115B5 7.0 115B8 115C9 7.0 115CA 115DD 8.0 11600 11644 7.0 11650 11659 7.0 11660 1166C 9.0 11680 116B7 6.1 116B8 12.0 116C0 116C9 6.1 11700 11719 8.0 1171A 11.0 1171D 1172B 8.0 11730 1173F 8.0 11800 1183B 11.0 118A0 118F2 7.0 118FF 7.0 11900 11906 13.0 11909 13.0 1190C 11913 13.0 11915 11916 13.0 11918 11935 13.0 11937 11938 13.0 1193B 11946 13.0 11950 11959 13.0 119A0 119A7 12.0 119AA 119D7 12.0 119DA 119E4 12.0 11A00 11A47 10.0 11A50 11A83 10.0 11A84 11A85 12.0 11A86 11A9C 10.0 11A9D 11.0 11A9E 11AA2 10.0 11AC0 11AF8 7.0 11C00 11C08 9.0 11C0A 11C36 9.0 11C38 11C45 9.0 11C50 11C6C 9.0 11C70 11C8F 9.0 11C92 11CA7 9.0 11CA9 11CB6 9.0 11D00 11D06 10.0 11D08 11D09 10.0 11D0B 11D36 10.0 11D3A 10.0 11D3C 11D3D 10.0 11D3F 11D47 10.0 11D50 11D59 10.0 11D60 11D65 11.0 11D67 11D68 11.0 11D6A 11D8E 11.0 11D90 11D91 11.0 11D93 11D98 11.0 11DA0 11DA9 11.0 11EE0 11EF8 11.0 11FB0 13.0 11FC0 11FF1 12.0 11FFF 12.0 12000 1236E 5.0 1236F 12398 7.0 12399 8.0 12400 12462 5.0 12463 1246E 7.0 12470 12473 5.0 12474 7.0 12480 12543 8.0 13000 1342E 5.2 13430 13438 12.0 14400 14646 8.0 16800 16A38 6.0 16A40 16A5E 7.0 16A60 16A69 7.0 16A6E 16A6F 7.0 16AD0 16AED 7.0 16AF0 16AF5 7.0 16B00 16B45 7.0 16B50 16B59 7.0 16B5B 16B61 7.0 16B63 16B77 7.0 16B7D 16B8F 7.0 16E40 16E9A 11.0 16F00 16F44 6.1 16F45 16F4A 12.0 16F4F 12.0 16F50 16F7E 6.1 16F7F 16F87 12.0 16F8F 16F9F 6.1 16FE0 9.0 16FE1 10.0 16FE2 16FE3 12.0 16FE4 13.0 16FF0 16FF1 13.0 17000 187EC 9.0 187ED 187F1 11.0 187F2 187F7 12.0 18800 18AF2 9.0 18AF3 18CD5 13.0 18D00 18D08 13.0 1B000 1B001 6.0 1B002 1B11E 10.0 1B150 1B152 12.0 1B164 1B167 12.0 1B170 1B2FB 10.0 1BC00 1BC6A 7.0 1BC70 1BC7C 7.0 1BC80 1BC88 7.0 1BC90 1BC99 7.0 1BC9C 1BCA3 7.0 1D000 1D0F5 3.1 1D100 1D126 3.1 1D129 5.1 1D12A 1D1DD 3.1 1D1DE 1D1E8 8.0 1D200 1D245 4.1 1D2E0 1D2F3 11.0 1D300 1D356 4.0 1D360 1D371 5.0 1D372 1D378 11.0 1D400 1D454 3.1 1D456 1D49C 3.1 1D49E 1D49F 3.1 1D4A2 3.1 1D4A5 1D4A6 3.1 1D4A9 1D4AC 3.1 1D4AE 1D4B9 3.1 1D4BB 3.1 1D4BD 1D4C0 3.1 1D4C1 4.0 1D4C2 1D4C3 3.1 1D4C5 1D505 3.1 1D507 1D50A 3.1 1D50D 1D514 3.1 1D516 1D51C 3.1 1D51E 1D539 3.1 1D53B 1D53E 3.1 1D540 1D544 3.1 1D546 3.1 1D54A 1D550 3.1 1D552 1D6A3 3.1 1D6A4 1D6A5 4.1 1D6A8 1D7C9 3.1 1D7CA 1D7CB 5.0 1D7CE 1D7FF 3.1 1D800 1DA8B 8.0 1DA9B 1DA9F 8.0 1DAA1 1DAAF 8.0 1E000 1E006 9.0 1E008 1E018 9.0 1E01B 1E021 9.0 1E023 1E024 9.0 1E026 1E02A 9.0 1E100 1E12C 12.0 1E130 1E13D 12.0 1E140 1E149 12.0 1E14E 1E14F 12.0 1E2C0 1E2F9 12.0 1E2FF 12.0 1E800 1E8C4 7.0 1E8C7 1E8D6 7.0 1E900 1E94A 9.0 1E94B 12.0 1E950 1E959 9.0 1E95E 1E95F 9.0 1EC71 1ECB4 11.0 1ED01 1ED3D 12.0 1EE00 1EE03 6.1 1EE05 1EE1F 6.1 1EE21 1EE22 6.1 1EE24 6.1 1EE27 6.1 1EE29 1EE32 6.1 1EE34 1EE37 6.1 1EE39 6.1 1EE3B 6.1 1EE42 6.1 1EE47 6.1 1EE49 6.1 1EE4B 6.1 1EE4D 1EE4F 6.1 1EE51 1EE52 6.1 1EE54 6.1 1EE57 6.1 1EE59 6.1 1EE5B 6.1 1EE5D 6.1 1EE5F 6.1 1EE61 1EE62 6.1 1EE64 6.1 1EE67 1EE6A 6.1 1EE6C 1EE72 6.1 1EE74 1EE77 6.1 1EE79 1EE7C 6.1 1EE7E 6.1 1EE80 1EE89 6.1 1EE8B 1EE9B 6.1 1EEA1 1EEA3 6.1 1EEA5 1EEA9 6.1 1EEAB 1EEBB 6.1 1EEF0 1EEF1 6.1 1F000 1F02B 5.1 1F030 1F093 5.1 1F0A0 1F0AE 6.0 1F0B1 1F0BE 6.0 1F0BF 7.0 1F0C1 1F0CF 6.0 1F0D1 1F0DF 6.0 1F0E0 1F0F5 7.0 1F100 1F10A 5.2 1F10B 1F10C 7.0 1F10D 1F10F 13.0 1F110 1F12E 5.2 1F12F 11.0 1F130 6.0 1F131 5.2 1F132 1F13C 6.0 1F13D 5.2 1F13E 6.0 1F13F 5.2 1F140 1F141 6.0 1F142 5.2 1F143 1F145 6.0 1F146 5.2 1F147 1F149 6.0 1F14A 1F14E 5.2 1F14F 1F156 6.0 1F157 5.2 1F158 1F15E 6.0 1F15F 5.2 1F160 1F169 6.0 1F16A 1F16B 6.1 1F16C 12.0 1F16D 1F16F 13.0 1F170 1F178 6.0 1F179 5.2 1F17A 6.0 1F17B 1F17C 5.2 1F17D 1F17E 6.0 1F17F 5.2 1F180 1F189 6.0 1F18A 1F18D 5.2 1F18E 1F18F 6.0 1F190 5.2 1F191 1F19A 6.0 1F19B 1F1AC 9.0 1F1AD 13.0 1F1E6 1F1FF 6.0 1F200 5.2 1F201 1F202 6.0 1F210 1F231 5.2 1F232 1F23A 6.0 1F23B 9.0 1F240 1F248 5.2 1F250 1F251 6.0 1F260 1F265 10.0 1F300 1F320 6.0 1F321 1F32C 7.0 1F32D 1F32F 8.0 1F330 1F335 6.0 1F336 7.0 1F337 1F37C 6.0 1F37D 7.0 1F37E 1F37F 8.0 1F380 1F393 6.0 1F394 1F39F 7.0 1F3A0 1F3C4 6.0 1F3C5 7.0 1F3C6 1F3CA 6.0 1F3CB 1F3CE 7.0 1F3CF 1F3D3 8.0 1F3D4 1F3DF 7.0 1F3E0 1F3F0 6.0 1F3F1 1F3F7 7.0 1F3F8 1F3FF 8.0 1F400 1F43E 6.0 1F43F 7.0 1F440 6.0 1F441 7.0 1F442 1F4F7 6.0 1F4F8 7.0 1F4F9 1F4FC 6.0 1F4FD 1F4FE 7.0 1F4FF 8.0 1F500 1F53D 6.0 1F53E 1F53F 7.0 1F540 1F543 6.1 1F544 1F54A 7.0 1F54B 1F54F 8.0 1F550 1F567 6.0 1F568 1F579 7.0 1F57A 9.0 1F57B 1F5A3 7.0 1F5A4 9.0 1F5A5 1F5FA 7.0 1F5FB 1F5FF 6.0 1F600 6.1 1F601 1F610 6.0 1F611 6.1 1F612 1F614 6.0 1F615 6.1 1F616 6.0 1F617 6.1 1F618 6.0 1F619 6.1 1F61A 6.0 1F61B 6.1 1F61C 1F61E 6.0 1F61F 6.1 1F620 1F625 6.0 1F626 1F627 6.1 1F628 1F62B 6.0 1F62C 6.1 1F62D 6.0 1F62E 1F62F 6.1 1F630 1F633 6.0 1F634 6.1 1F635 1F640 6.0 1F641 1F642 7.0 1F643 1F644 8.0 1F645 1F64F 6.0 1F650 1F67F 7.0 1F680 1F6C5 6.0 1F6C6 1F6CF 7.0 1F6D0 8.0 1F6D1 1F6D2 9.0 1F6D3 1F6D4 10.0 1F6D5 12.0 1F6D6 1F6D7 13.0 1F6E0 1F6EC 7.0 1F6F0 1F6F3 7.0 1F6F4 1F6F6 9.0 1F6F7 1F6F8 10.0 1F6F9 11.0 1F6FA 12.0 1F6FB 1F6FC 13.0 1F700 1F773 6.0 1F780 1F7D4 7.0 1F7D5 1F7D8 11.0 1F7E0 1F7EB 12.0 1F800 1F80B 7.0 1F810 1F847 7.0 1F850 1F859 7.0 1F860 1F887 7.0 1F890 1F8AD 7.0 1F8B0 1F8B1 13.0 1F900 1F90B 10.0 1F90C 13.0 1F90D 1F90F 12.0 1F910 1F918 8.0 1F919 1F91E 9.0 1F91F 10.0 1F920 1F927 9.0 1F928 1F92F 10.0 1F930 9.0 1F931 1F932 10.0 1F933 1F93E 9.0 1F93F 12.0 1F940 1F94B 9.0 1F94C 10.0 1F94D 1F94F 11.0 1F950 1F95E 9.0 1F95F 1F96B 10.0 1F96C 1F970 11.0 1F971 12.0 1F972 13.0 1F973 1F976 11.0 1F977 1F978 13.0 1F97A 11.0 1F97B 12.0 1F97C 1F97F 11.0 1F980 1F984 8.0 1F985 1F991 9.0 1F992 1F997 10.0 1F998 1F9A2 11.0 1F9A3 1F9A4 13.0 1F9A5 1F9AA 12.0 1F9AB 1F9AD 13.0 1F9AE 1F9AF 12.0 1F9B0 1F9B9 11.0 1F9BA 1F9BF 12.0 1F9C0 8.0 1F9C1 1F9C2 11.0 1F9C3 1F9CA 12.0 1F9CB 13.0 1F9CD 1F9CF 12.0 1F9D0 1F9E6 10.0 1F9E7 1F9FF 11.0 1FA00 1FA53 12.0 1FA60 1FA6D 11.0 1FA70 1FA73 12.0 1FA74 13.0 1FA78 1FA7A 12.0 1FA80 1FA82 12.0 1FA83 1FA86 13.0 1FA90 1FA95 12.0 1FA96 1FAA8 13.0 1FAB0 1FAB6 13.0 1FAC0 1FAC2 13.0 1FAD0 1FAD6 13.0 1FB00 1FB92 13.0 1FB94 1FBCA 13.0 1FBF0 1FBF9 13.0 1FFFE 1FFFF 2.0 20000 2A6D6 3.1 2A6D7 2A6DD 13.0 2A700 2B734 5.2 2B740 2B81D 6.0 2B820 2CEA1 8.0 2CEB0 2EBE0 10.0 2F800 2FA1D 3.1 2FFFE 2FFFF 2.0 30000 3134A 13.0 3FFFE 3FFFF 2.0 4FFFE 4FFFF 2.0 5FFFE 5FFFF 2.0 6FFFE 6FFFF 2.0 7FFFE 7FFFF 2.0 8FFFE 8FFFF 2.0 9FFFE 9FFFF 2.0 AFFFE AFFFF 2.0 BFFFE BFFFF 2.0 CFFFE CFFFF 2.0 DFFFE DFFFF 2.0 E0001 3.1 E0020 E007F 3.1 E0100 E01EF 4.0 EFFFE 10FFFF 2.0 END PK ! ��ӻw w 5.34.0/unicore/To/Bmg.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! IT IS DEPRECATED TO USE THIS FILE !!!!!!! # This file is for internal use by core Perl only. It is retained for # backwards compatibility with applications that may have come to rely on it, # but its format and even its name or existence are subject to change without # notice in a future Perl version. Don't use it directly. Instead, its # contents are now retrievable through a stable API in the Unicode::UCD # module: Unicode::UCD::prop_invmap('Bidi_Mirroring_Glyph') (Values for individual # code points can be retrieved via Unicode::UCD::charprop()); # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToBmg'}{'format'} = 'x'; # non-negative hex whole number; a code point $Unicode::UCD::SwashInfo{'ToBmg'}{'missing'} = ''; # code point maps to the null string return <<'END'; 0028 0029 0029 0028 003C 003E 003E 003C 005B 005D 005D 005B 007B 007D 007D 007B 00AB 00BB 00BB 00AB 0F3A 0F3B 0F3B 0F3A 0F3C 0F3D 0F3D 0F3C 169B 169C 169C 169B 2039 203A 203A 2039 2045 2046 2046 2045 207D 207E 207E 207D 208D 208E 208E 208D 2208 220B 2209 220C 220A 220D 220B 2208 220C 2209 220D 220A 2215 29F5 221F 2BFE 2220 29A3 2221 299B 2222 29A0 2224 2AEE 223C 223D 223D 223C 2243 22CD 2245 224C 224C 2245 2252 2253 2253 2252 2254 2255 2255 2254 2264 2265 2265 2264 2266 2267 2267 2266 2268 2269 2269 2268 226A 226B 226B 226A 226E 226F 226F 226E 2270 2271 2271 2270 2272 2273 2273 2272 2274 2275 2275 2274 2276 2277 2277 2276 2278 2279 2279 2278 227A 227B 227B 227A 227C 227D 227D 227C 227E 227F 227F 227E 2280 2281 2281 2280 2282 2283 2283 2282 2284 2285 2285 2284 2286 2287 2287 2286 2288 2289 2289 2288 228A 228B 228B 228A 228F 2290 2290 228F 2291 2292 2292 2291 2298 29B8 22A2 22A3 22A3 22A2 22A6 2ADE 22A8 2AE4 22A9 2AE3 22AB 2AE5 22B0 22B1 22B1 22B0 22B2 22B3 22B3 22B2 22B4 22B5 22B5 22B4 22B6 22B7 22B7 22B6 22B8 27DC 22C9 22CA 22CA 22C9 22CB 22CC 22CC 22CB 22CD 2243 22D0 22D1 22D1 22D0 22D6 22D7 22D7 22D6 22D8 22D9 22D9 22D8 22DA 22DB 22DB 22DA 22DC 22DD 22DD 22DC 22DE 22DF 22DF 22DE 22E0 22E1 22E1 22E0 22E2 22E3 22E3 22E2 22E4 22E5 22E5 22E4 22E6 22E7 22E7 22E6 22E8 22E9 22E9 22E8 22EA 22EB 22EB 22EA 22EC 22ED 22ED 22EC 22F0 22F1 22F1 22F0 22F2 22FA 22F3 22FB 22F4 22FC 22F6 22FD 22F7 22FE 22FA 22F2 22FB 22F3 22FC 22F4 22FD 22F6 22FE 22F7 2308 2309 2309 2308 230A 230B 230B 230A 2329 232A 232A 2329 2768 2769 2769 2768 276A 276B 276B 276A 276C 276D 276D 276C 276E 276F 276F 276E 2770 2771 2771 2770 2772 2773 2773 2772 2774 2775 2775 2774 27C3 27C4 27C4 27C3 27C5 27C6 27C6 27C5 27C8 27C9 27C9 27C8 27CB 27CD 27CD 27CB 27D5 27D6 27D6 27D5 27DC 22B8 27DD 27DE 27DE 27DD 27E2 27E3 27E3 27E2 27E4 27E5 27E5 27E4 27E6 27E7 27E7 27E6 27E8 27E9 27E9 27E8 27EA 27EB 27EB 27EA 27EC 27ED 27ED 27EC 27EE 27EF 27EF 27EE 2983 2984 2984 2983 2985 2986 2986 2985 2987 2988 2988 2987 2989 298A 298A 2989 298B 298C 298C 298B 298D 2990 298E 298F 298F 298E 2990 298D 2991 2992 2992 2991 2993 2994 2994 2993 2995 2996 2996 2995 2997 2998 2998 2997 299B 2221 29A0 2222 29A3 2220 29A4 29A5 29A5 29A4 29A8 29A9 29A9 29A8 29AA 29AB 29AB 29AA 29AC 29AD 29AD 29AC 29AE 29AF 29AF 29AE 29B8 2298 29C0 29C1 29C1 29C0 29C4 29C5 29C5 29C4 29CF 29D0 29D0 29CF 29D1 29D2 29D2 29D1 29D4 29D5 29D5 29D4 29D8 29D9 29D9 29D8 29DA 29DB 29DB 29DA 29E8 29E9 29E9 29E8 29F5 2215 29F8 29F9 29F9 29F8 29FC 29FD 29FD 29FC 2A2B 2A2C 2A2C 2A2B 2A2D 2A2E 2A2E 2A2D 2A34 2A35 2A35 2A34 2A3C 2A3D 2A3D 2A3C 2A64 2A65 2A65 2A64 2A79 2A7A 2A7A 2A79 2A7B 2A7C 2A7C 2A7B 2A7D 2A7E 2A7E 2A7D 2A7F 2A80 2A80 2A7F 2A81 2A82 2A82 2A81 2A83 2A84 2A84 2A83 2A85 2A86 2A86 2A85 2A87 2A88 2A88 2A87 2A89 2A8A 2A8A 2A89 2A8B 2A8C 2A8C 2A8B 2A8D 2A8E 2A8E 2A8D 2A8F 2A90 2A90 2A8F 2A91 2A92 2A92 2A91 2A93 2A94 2A94 2A93 2A95 2A96 2A96 2A95 2A97 2A98 2A98 2A97 2A99 2A9A 2A9A 2A99 2A9B 2A9C 2A9C 2A9B 2A9D 2A9E 2A9E 2A9D 2A9F 2AA0 2AA0 2A9F 2AA1 2AA2 2AA2 2AA1 2AA6 2AA7 2AA7 2AA6 2AA8 2AA9 2AA9 2AA8 2AAA 2AAB 2AAB 2AAA 2AAC 2AAD 2AAD 2AAC 2AAF 2AB0 2AB0 2AAF 2AB1 2AB2 2AB2 2AB1 2AB3 2AB4 2AB4 2AB3 2AB5 2AB6 2AB6 2AB5 2AB7 2AB8 2AB8 2AB7 2AB9 2ABA 2ABA 2AB9 2ABB 2ABC 2ABC 2ABB 2ABD 2ABE 2ABE 2ABD 2ABF 2AC0 2AC0 2ABF 2AC1 2AC2 2AC2 2AC1 2AC3 2AC4 2AC4 2AC3 2AC5 2AC6 2AC6 2AC5 2AC7 2AC8 2AC8 2AC7 2AC9 2ACA 2ACA 2AC9 2ACB 2ACC 2ACC 2ACB 2ACD 2ACE 2ACE 2ACD 2ACF 2AD0 2AD0 2ACF 2AD1 2AD2 2AD2 2AD1 2AD3 2AD4 2AD4 2AD3 2AD5 2AD6 2AD6 2AD5 2ADE 22A6 2AE3 22A9 2AE4 22A8 2AE5 22AB 2AEC 2AED 2AED 2AEC 2AEE 2224 2AF7 2AF8 2AF8 2AF7 2AF9 2AFA 2AFA 2AF9 2BFE 221F 2E02 2E03 2E03 2E02 2E04 2E05 2E05 2E04 2E09 2E0A 2E0A 2E09 2E0C 2E0D 2E0D 2E0C 2E1C 2E1D 2E1D 2E1C 2E20 2E21 2E21 2E20 2E22 2E23 2E23 2E22 2E24 2E25 2E25 2E24 2E26 2E27 2E27 2E26 2E28 2E29 2E29 2E28 3008 3009 3009 3008 300A 300B 300B 300A 300C 300D 300D 300C 300E 300F 300F 300E 3010 3011 3011 3010 3014 3015 3015 3014 3016 3017 3017 3016 3018 3019 3019 3018 301A 301B 301B 301A FE59 FE5A FE5A FE59 FE5B FE5C FE5C FE5B FE5D FE5E FE5E FE5D FE64 FE65 FE65 FE64 FF08 FF09 FF09 FF08 FF1C FF1E FF1E FF1C FF3B FF3D FF3D FF3B FF5B FF5D FF5D FF5B FF5F FF60 FF60 FF5F FF62 FF63 FF63 FF62 END PK ! FLvji= i= 5.34.0/unicore/To/Cf.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The mappings in the non-hash portion of this file must be modified to get the # correct values by adding the code point ordinal number to each one that is # numeric. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToCf'}{'format'} = 'ax'; # mapped value in hex; some entries need adjustment $Unicode::UCD::SwashInfo{'ToCf'}{'specials_name'} = 'Unicode::UCD::ToSpecCf'; # Name of hash of special mappings $Unicode::UCD::SwashInfo{'ToCf'}{'missing'} = '0'; # code point maps to itself # Some code points require special handling because their mappings are each to # multiple code points. These do not appear in the main body, but are defined # in the hash below. # Each key is the string of N bytes that together make up the UTF-8 encoding # for the code point. (i.e. the same as looking at the code point's UTF-8 # under "use bytes"). Each value is the UTF-8 of the translation, for speed. %Unicode::UCD::ToSpecCf = ( "\xC3\x9F" => "\x{0073}\x{0073}", # U+00DF => 0073 0073 "\xC4\xB0" => "\x{0069}\x{0307}", # U+0130 => 0069 0307 "\xC5\x89" => "\x{02BC}\x{006E}", # U+0149 => 02BC 006E "\xC7\xB0" => "\x{006A}\x{030C}", # U+01F0 => 006A 030C "\xCE\x90" => "\x{03B9}\x{0308}\x{0301}", # U+0390 => 03B9 0308 0301 "\xCE\xB0" => "\x{03C5}\x{0308}\x{0301}", # U+03B0 => 03C5 0308 0301 "\xD6\x87" => "\x{0565}\x{0582}", # U+0587 => 0565 0582 "\xE1\xBA\x96" => "\x{0068}\x{0331}", # U+1E96 => 0068 0331 "\xE1\xBA\x97" => "\x{0074}\x{0308}", # U+1E97 => 0074 0308 "\xE1\xBA\x98" => "\x{0077}\x{030A}", # U+1E98 => 0077 030A "\xE1\xBA\x99" => "\x{0079}\x{030A}", # U+1E99 => 0079 030A "\xE1\xBA\x9A" => "\x{0061}\x{02BE}", # U+1E9A => 0061 02BE "\xE1\xBA\x9E" => "\x{0073}\x{0073}", # U+1E9E => 0073 0073 "\xE1\xBD\x90" => "\x{03C5}\x{0313}", # U+1F50 => 03C5 0313 "\xE1\xBD\x92" => "\x{03C5}\x{0313}\x{0300}", # U+1F52 => 03C5 0313 0300 "\xE1\xBD\x94" => "\x{03C5}\x{0313}\x{0301}", # U+1F54 => 03C5 0313 0301 "\xE1\xBD\x96" => "\x{03C5}\x{0313}\x{0342}", # U+1F56 => 03C5 0313 0342 "\xE1\xBE\x80" => "\x{1F00}\x{03B9}", # U+1F80 => 1F00 03B9 "\xE1\xBE\x81" => "\x{1F01}\x{03B9}", # U+1F81 => 1F01 03B9 "\xE1\xBE\x82" => "\x{1F02}\x{03B9}", # U+1F82 => 1F02 03B9 "\xE1\xBE\x83" => "\x{1F03}\x{03B9}", # U+1F83 => 1F03 03B9 "\xE1\xBE\x84" => "\x{1F04}\x{03B9}", # U+1F84 => 1F04 03B9 "\xE1\xBE\x85" => "\x{1F05}\x{03B9}", # U+1F85 => 1F05 03B9 "\xE1\xBE\x86" => "\x{1F06}\x{03B9}", # U+1F86 => 1F06 03B9 "\xE1\xBE\x87" => "\x{1F07}\x{03B9}", # U+1F87 => 1F07 03B9 "\xE1\xBE\x88" => "\x{1F00}\x{03B9}", # U+1F88 => 1F00 03B9 "\xE1\xBE\x89" => "\x{1F01}\x{03B9}", # U+1F89 => 1F01 03B9 "\xE1\xBE\x8A" => "\x{1F02}\x{03B9}", # U+1F8A => 1F02 03B9 "\xE1\xBE\x8B" => "\x{1F03}\x{03B9}", # U+1F8B => 1F03 03B9 "\xE1\xBE\x8C" => "\x{1F04}\x{03B9}", # U+1F8C => 1F04 03B9 "\xE1\xBE\x8D" => "\x{1F05}\x{03B9}", # U+1F8D => 1F05 03B9 "\xE1\xBE\x8E" => "\x{1F06}\x{03B9}", # U+1F8E => 1F06 03B9 "\xE1\xBE\x8F" => "\x{1F07}\x{03B9}", # U+1F8F => 1F07 03B9 "\xE1\xBE\x90" => "\x{1F20}\x{03B9}", # U+1F90 => 1F20 03B9 "\xE1\xBE\x91" => "\x{1F21}\x{03B9}", # U+1F91 => 1F21 03B9 "\xE1\xBE\x92" => "\x{1F22}\x{03B9}", # U+1F92 => 1F22 03B9 "\xE1\xBE\x93" => "\x{1F23}\x{03B9}", # U+1F93 => 1F23 03B9 "\xE1\xBE\x94" => "\x{1F24}\x{03B9}", # U+1F94 => 1F24 03B9 "\xE1\xBE\x95" => "\x{1F25}\x{03B9}", # U+1F95 => 1F25 03B9 "\xE1\xBE\x96" => "\x{1F26}\x{03B9}", # U+1F96 => 1F26 03B9 "\xE1\xBE\x97" => "\x{1F27}\x{03B9}", # U+1F97 => 1F27 03B9 "\xE1\xBE\x98" => "\x{1F20}\x{03B9}", # U+1F98 => 1F20 03B9 "\xE1\xBE\x99" => "\x{1F21}\x{03B9}", # U+1F99 => 1F21 03B9 "\xE1\xBE\x9A" => "\x{1F22}\x{03B9}", # U+1F9A => 1F22 03B9 "\xE1\xBE\x9B" => "\x{1F23}\x{03B9}", # U+1F9B => 1F23 03B9 "\xE1\xBE\x9C" => "\x{1F24}\x{03B9}", # U+1F9C => 1F24 03B9 "\xE1\xBE\x9D" => "\x{1F25}\x{03B9}", # U+1F9D => 1F25 03B9 "\xE1\xBE\x9E" => "\x{1F26}\x{03B9}", # U+1F9E => 1F26 03B9 "\xE1\xBE\x9F" => "\x{1F27}\x{03B9}", # U+1F9F => 1F27 03B9 "\xE1\xBE\xA0" => "\x{1F60}\x{03B9}", # U+1FA0 => 1F60 03B9 "\xE1\xBE\xA1" => "\x{1F61}\x{03B9}", # U+1FA1 => 1F61 03B9 "\xE1\xBE\xA2" => "\x{1F62}\x{03B9}", # U+1FA2 => 1F62 03B9 "\xE1\xBE\xA3" => "\x{1F63}\x{03B9}", # U+1FA3 => 1F63 03B9 "\xE1\xBE\xA4" => "\x{1F64}\x{03B9}", # U+1FA4 => 1F64 03B9 "\xE1\xBE\xA5" => "\x{1F65}\x{03B9}", # U+1FA5 => 1F65 03B9 "\xE1\xBE\xA6" => "\x{1F66}\x{03B9}", # U+1FA6 => 1F66 03B9 "\xE1\xBE\xA7" => "\x{1F67}\x{03B9}", # U+1FA7 => 1F67 03B9 "\xE1\xBE\xA8" => "\x{1F60}\x{03B9}", # U+1FA8 => 1F60 03B9 "\xE1\xBE\xA9" => "\x{1F61}\x{03B9}", # U+1FA9 => 1F61 03B9 "\xE1\xBE\xAA" => "\x{1F62}\x{03B9}", # U+1FAA => 1F62 03B9 "\xE1\xBE\xAB" => "\x{1F63}\x{03B9}", # U+1FAB => 1F63 03B9 "\xE1\xBE\xAC" => "\x{1F64}\x{03B9}", # U+1FAC => 1F64 03B9 "\xE1\xBE\xAD" => "\x{1F65}\x{03B9}", # U+1FAD => 1F65 03B9 "\xE1\xBE\xAE" => "\x{1F66}\x{03B9}", # U+1FAE => 1F66 03B9 "\xE1\xBE\xAF" => "\x{1F67}\x{03B9}", # U+1FAF => 1F67 03B9 "\xE1\xBE\xB2" => "\x{1F70}\x{03B9}", # U+1FB2 => 1F70 03B9 "\xE1\xBE\xB3" => "\x{03B1}\x{03B9}", # U+1FB3 => 03B1 03B9 "\xE1\xBE\xB4" => "\x{03AC}\x{03B9}", # U+1FB4 => 03AC 03B9 "\xE1\xBE\xB6" => "\x{03B1}\x{0342}", # U+1FB6 => 03B1 0342 "\xE1\xBE\xB7" => "\x{03B1}\x{0342}\x{03B9}", # U+1FB7 => 03B1 0342 03B9 "\xE1\xBE\xBC" => "\x{03B1}\x{03B9}", # U+1FBC => 03B1 03B9 "\xE1\xBF\x82" => "\x{1F74}\x{03B9}", # U+1FC2 => 1F74 03B9 "\xE1\xBF\x83" => "\x{03B7}\x{03B9}", # U+1FC3 => 03B7 03B9 "\xE1\xBF\x84" => "\x{03AE}\x{03B9}", # U+1FC4 => 03AE 03B9 "\xE1\xBF\x86" => "\x{03B7}\x{0342}", # U+1FC6 => 03B7 0342 "\xE1\xBF\x87" => "\x{03B7}\x{0342}\x{03B9}", # U+1FC7 => 03B7 0342 03B9 "\xE1\xBF\x8C" => "\x{03B7}\x{03B9}", # U+1FCC => 03B7 03B9 "\xE1\xBF\x92" => "\x{03B9}\x{0308}\x{0300}", # U+1FD2 => 03B9 0308 0300 "\xE1\xBF\x93" => "\x{03B9}\x{0308}\x{0301}", # U+1FD3 => 03B9 0308 0301 "\xE1\xBF\x96" => "\x{03B9}\x{0342}", # U+1FD6 => 03B9 0342 "\xE1\xBF\x97" => "\x{03B9}\x{0308}\x{0342}", # U+1FD7 => 03B9 0308 0342 "\xE1\xBF\xA2" => "\x{03C5}\x{0308}\x{0300}", # U+1FE2 => 03C5 0308 0300 "\xE1\xBF\xA3" => "\x{03C5}\x{0308}\x{0301}", # U+1FE3 => 03C5 0308 0301 "\xE1\xBF\xA4" => "\x{03C1}\x{0313}", # U+1FE4 => 03C1 0313 "\xE1\xBF\xA6" => "\x{03C5}\x{0342}", # U+1FE6 => 03C5 0342 "\xE1\xBF\xA7" => "\x{03C5}\x{0308}\x{0342}", # U+1FE7 => 03C5 0308 0342 "\xE1\xBF\xB2" => "\x{1F7C}\x{03B9}", # U+1FF2 => 1F7C 03B9 "\xE1\xBF\xB3" => "\x{03C9}\x{03B9}", # U+1FF3 => 03C9 03B9 "\xE1\xBF\xB4" => "\x{03CE}\x{03B9}", # U+1FF4 => 03CE 03B9 "\xE1\xBF\xB6" => "\x{03C9}\x{0342}", # U+1FF6 => 03C9 0342 "\xE1\xBF\xB7" => "\x{03C9}\x{0342}\x{03B9}", # U+1FF7 => 03C9 0342 03B9 "\xE1\xBF\xBC" => "\x{03C9}\x{03B9}", # U+1FFC => 03C9 03B9 "\xEF\xAC\x80" => "\x{0066}\x{0066}", # U+FB00 => 0066 0066 "\xEF\xAC\x81" => "\x{0066}\x{0069}", # U+FB01 => 0066 0069 "\xEF\xAC\x82" => "\x{0066}\x{006C}", # U+FB02 => 0066 006C "\xEF\xAC\x83" => "\x{0066}\x{0066}\x{0069}", # U+FB03 => 0066 0066 0069 "\xEF\xAC\x84" => "\x{0066}\x{0066}\x{006C}", # U+FB04 => 0066 0066 006C "\xEF\xAC\x85" => "\x{0073}\x{0074}", # U+FB05 => 0073 0074 "\xEF\xAC\x86" => "\x{0073}\x{0074}", # U+FB06 => 0073 0074 "\xEF\xAC\x93" => "\x{0574}\x{0576}", # U+FB13 => 0574 0576 "\xEF\xAC\x94" => "\x{0574}\x{0565}", # U+FB14 => 0574 0565 "\xEF\xAC\x95" => "\x{0574}\x{056B}", # U+FB15 => 0574 056B "\xEF\xAC\x96" => "\x{057E}\x{0576}", # U+FB16 => 057E 0576 "\xEF\xAC\x97" => "\x{0574}\x{056D}", # U+FB17 => 0574 056D ); return <<'END'; 41 5A 61 B5 3BC C0 D6 E0 D8 DE F8 100 101 102 103 104 105 106 107 108 109 10A 10B 10C 10D 10E 10F 110 111 112 113 114 115 116 117 118 119 11A 11B 11C 11D 11E 11F 120 121 122 123 124 125 126 127 128 129 12A 12B 12C 12D 12E 12F 132 133 134 135 136 137 139 13A 13B 13C 13D 13E 13F 140 141 142 143 144 145 146 147 148 14A 14B 14C 14D 14E 14F 150 151 152 153 154 155 156 157 158 159 15A 15B 15C 15D 15E 15F 160 161 162 163 164 165 166 167 168 169 16A 16B 16C 16D 16E 16F 170 171 172 173 174 175 176 177 178 FF 179 17A 17B 17C 17D 17E 17F 73 181 253 182 183 184 185 186 254 187 188 189 18A 256 18B 18C 18E 1DD 18F 259 190 25B 191 192 193 260 194 263 196 269 197 268 198 199 19C 26F 19D 272 19F 275 1A0 1A1 1A2 1A3 1A4 1A5 1A6 280 1A7 1A8 1A9 283 1AC 1AD 1AE 288 1AF 1B0 1B1 1B2 28A 1B3 1B4 1B5 1B6 1B7 292 1B8 1B9 1BC 1BD 1C4 1C6 1C5 1C6 1C7 1C9 1C8 1C9 1CA 1CC 1CB 1CC 1CD 1CE 1CF 1D0 1D1 1D2 1D3 1D4 1D5 1D6 1D7 1D8 1D9 1DA 1DB 1DC 1DE 1DF 1E0 1E1 1E2 1E3 1E4 1E5 1E6 1E7 1E8 1E9 1EA 1EB 1EC 1ED 1EE 1EF 1F1 1F3 1F2 1F3 1F4 1F5 1F6 195 1F7 1BF 1F8 1F9 1FA 1FB 1FC 1FD 1FE 1FF 200 201 202 203 204 205 206 207 208 209 20A 20B 20C 20D 20E 20F 210 211 212 213 214 215 216 217 218 219 21A 21B 21C 21D 21E 21F 220 19E 222 223 224 225 226 227 228 229 22A 22B 22C 22D 22E 22F 230 231 232 233 23A 2C65 23B 23C 23D 19A 23E 2C66 241 242 243 180 244 289 245 28C 246 247 248 249 24A 24B 24C 24D 24E 24F 345 3B9 370 371 372 373 376 377 37F 3F3 386 3AC 388 38A 3AD 38C 3CC 38E 38F 3CD 391 3A1 3B1 3A3 3AB 3C3 3C2 3C3 3CF 3D7 3D0 3B2 3D1 3B8 3D5 3C6 3D6 3C0 3D8 3D9 3DA 3DB 3DC 3DD 3DE 3DF 3E0 3E1 3E2 3E3 3E4 3E5 3E6 3E7 3E8 3E9 3EA 3EB 3EC 3ED 3EE 3EF 3F0 3BA 3F1 3C1 3F4 3B8 3F5 3B5 3F7 3F8 3F9 3F2 3FA 3FB 3FD 3FF 37B 400 40F 450 410 42F 430 460 461 462 463 464 465 466 467 468 469 46A 46B 46C 46D 46E 46F 470 471 472 473 474 475 476 477 478 479 47A 47B 47C 47D 47E 47F 480 481 48A 48B 48C 48D 48E 48F 490 491 492 493 494 495 496 497 498 499 49A 49B 49C 49D 49E 49F 4A0 4A1 4A2 4A3 4A4 4A5 4A6 4A7 4A8 4A9 4AA 4AB 4AC 4AD 4AE 4AF 4B0 4B1 4B2 4B3 4B4 4B5 4B6 4B7 4B8 4B9 4BA 4BB 4BC 4BD 4BE 4BF 4C0 4CF 4C1 4C2 4C3 4C4 4C5 4C6 4C7 4C8 4C9 4CA 4CB 4CC 4CD 4CE 4D0 4D1 4D2 4D3 4D4 4D5 4D6 4D7 4D8 4D9 4DA 4DB 4DC 4DD 4DE 4DF 4E0 4E1 4E2 4E3 4E4 4E5 4E6 4E7 4E8 4E9 4EA 4EB 4EC 4ED 4EE 4EF 4F0 4F1 4F2 4F3 4F4 4F5 4F6 4F7 4F8 4F9 4FA 4FB 4FC 4FD 4FE 4FF 500 501 502 503 504 505 506 507 508 509 50A 50B 50C 50D 50E 50F 510 511 512 513 514 515 516 517 518 519 51A 51B 51C 51D 51E 51F 520 521 522 523 524 525 526 527 528 529 52A 52B 52C 52D 52E 52F 531 556 561 10A0 10C5 2D00 10C7 2D27 10CD 2D2D 13F8 13FD 13F0 1C80 432 1C81 434 1C82 43E 1C83 1C84 441 1C85 442 1C86 44A 1C87 463 1C88 A64B 1C90 1CBA 10D0 1CBD 1CBF 10FD 1E00 1E01 1E02 1E03 1E04 1E05 1E06 1E07 1E08 1E09 1E0A 1E0B 1E0C 1E0D 1E0E 1E0F 1E10 1E11 1E12 1E13 1E14 1E15 1E16 1E17 1E18 1E19 1E1A 1E1B 1E1C 1E1D 1E1E 1E1F 1E20 1E21 1E22 1E23 1E24 1E25 1E26 1E27 1E28 1E29 1E2A 1E2B 1E2C 1E2D 1E2E 1E2F 1E30 1E31 1E32 1E33 1E34 1E35 1E36 1E37 1E38 1E39 1E3A 1E3B 1E3C 1E3D 1E3E 1E3F 1E40 1E41 1E42 1E43 1E44 1E45 1E46 1E47 1E48 1E49 1E4A 1E4B 1E4C 1E4D 1E4E 1E4F 1E50 1E51 1E52 1E53 1E54 1E55 1E56 1E57 1E58 1E59 1E5A 1E5B 1E5C 1E5D 1E5E 1E5F 1E60 1E61 1E62 1E63 1E64 1E65 1E66 1E67 1E68 1E69 1E6A 1E6B 1E6C 1E6D 1E6E 1E6F 1E70 1E71 1E72 1E73 1E74 1E75 1E76 1E77 1E78 1E79 1E7A 1E7B 1E7C 1E7D 1E7E 1E7F 1E80 1E81 1E82 1E83 1E84 1E85 1E86 1E87 1E88 1E89 1E8A 1E8B 1E8C 1E8D 1E8E 1E8F 1E90 1E91 1E92 1E93 1E94 1E95 1E9B 1E61 1E9E DF 1EA0 1EA1 1EA2 1EA3 1EA4 1EA5 1EA6 1EA7 1EA8 1EA9 1EAA 1EAB 1EAC 1EAD 1EAE 1EAF 1EB0 1EB1 1EB2 1EB3 1EB4 1EB5 1EB6 1EB7 1EB8 1EB9 1EBA 1EBB 1EBC 1EBD 1EBE 1EBF 1EC0 1EC1 1EC2 1EC3 1EC4 1EC5 1EC6 1EC7 1EC8 1EC9 1ECA 1ECB 1ECC 1ECD 1ECE 1ECF 1ED0 1ED1 1ED2 1ED3 1ED4 1ED5 1ED6 1ED7 1ED8 1ED9 1EDA 1EDB 1EDC 1EDD 1EDE 1EDF 1EE0 1EE1 1EE2 1EE3 1EE4 1EE5 1EE6 1EE7 1EE8 1EE9 1EEA 1EEB 1EEC 1EED 1EEE 1EEF 1EF0 1EF1 1EF2 1EF3 1EF4 1EF5 1EF6 1EF7 1EF8 1EF9 1EFA 1EFB 1EFC 1EFD 1EFE 1EFF 1F08 1F0F 1F00 1F18 1F1D 1F10 1F28 1F2F 1F20 1F38 1F3F 1F30 1F48 1F4D 1F40 1F59 1F51 1F5B 1F53 1F5D 1F55 1F5F 1F57 1F68 1F6F 1F60 1F88 1F8F 1F80 1F98 1F9F 1F90 1FA8 1FAF 1FA0 1FB8 1FB9 1FB0 1FBA 1FBB 1F70 1FBC 1FB3 1FBE 3B9 1FC8 1FCB 1F72 1FCC 1FC3 1FD8 1FD9 1FD0 1FDA 1FDB 1F76 1FE8 1FE9 1FE0 1FEA 1FEB 1F7A 1FEC 1FE5 1FF8 1FF9 1F78 1FFA 1FFB 1F7C 1FFC 1FF3 2126 3C9 212A 6B 212B E5 2132 214E 2160 216F 2170 2183 2184 24B6 24CF 24D0 2C00 2C2E 2C30 2C60 2C61 2C62 26B 2C63 1D7D 2C64 27D 2C67 2C68 2C69 2C6A 2C6B 2C6C 2C6D 251 2C6E 271 2C6F 250 2C70 252 2C72 2C73 2C75 2C76 2C7E 2C7F 23F 2C80 2C81 2C82 2C83 2C84 2C85 2C86 2C87 2C88 2C89 2C8A 2C8B 2C8C 2C8D 2C8E 2C8F 2C90 2C91 2C92 2C93 2C94 2C95 2C96 2C97 2C98 2C99 2C9A 2C9B 2C9C 2C9D 2C9E 2C9F 2CA0 2CA1 2CA2 2CA3 2CA4 2CA5 2CA6 2CA7 2CA8 2CA9 2CAA 2CAB 2CAC 2CAD 2CAE 2CAF 2CB0 2CB1 2CB2 2CB3 2CB4 2CB5 2CB6 2CB7 2CB8 2CB9 2CBA 2CBB 2CBC 2CBD 2CBE 2CBF 2CC0 2CC1 2CC2 2CC3 2CC4 2CC5 2CC6 2CC7 2CC8 2CC9 2CCA 2CCB 2CCC 2CCD 2CCE 2CCF 2CD0 2CD1 2CD2 2CD3 2CD4 2CD5 2CD6 2CD7 2CD8 2CD9 2CDA 2CDB 2CDC 2CDD 2CDE 2CDF 2CE0 2CE1 2CE2 2CE3 2CEB 2CEC 2CED 2CEE 2CF2 2CF3 A640 A641 A642 A643 A644 A645 A646 A647 A648 A649 A64A A64B A64C A64D A64E A64F A650 A651 A652 A653 A654 A655 A656 A657 A658 A659 A65A A65B A65C A65D A65E A65F A660 A661 A662 A663 A664 A665 A666 A667 A668 A669 A66A A66B A66C A66D A680 A681 A682 A683 A684 A685 A686 A687 A688 A689 A68A A68B A68C A68D A68E A68F A690 A691 A692 A693 A694 A695 A696 A697 A698 A699 A69A A69B A722 A723 A724 A725 A726 A727 A728 A729 A72A A72B A72C A72D A72E A72F A732 A733 A734 A735 A736 A737 A738 A739 A73A A73B A73C A73D A73E A73F A740 A741 A742 A743 A744 A745 A746 A747 A748 A749 A74A A74B A74C A74D A74E A74F A750 A751 A752 A753 A754 A755 A756 A757 A758 A759 A75A A75B A75C A75D A75E A75F A760 A761 A762 A763 A764 A765 A766 A767 A768 A769 A76A A76B A76C A76D A76E A76F A779 A77A A77B A77C A77D 1D79 A77E A77F A780 A781 A782 A783 A784 A785 A786 A787 A78B A78C A78D 265 A790 A791 A792 A793 A796 A797 A798 A799 A79A A79B A79C A79D A79E A79F A7A0 A7A1 A7A2 A7A3 A7A4 A7A5 A7A6 A7A7 A7A8 A7A9 A7AA 266 A7AB 25C A7AC 261 A7AD 26C A7AE 26A A7B0 29E A7B1 287 A7B2 29D A7B3 AB53 A7B4 A7B5 A7B6 A7B7 A7B8 A7B9 A7BA A7BB A7BC A7BD A7BE A7BF A7C2 A7C3 A7C4 A794 A7C5 282 A7C6 1D8E A7C7 A7C8 A7C9 A7CA A7F5 A7F6 AB70 ABBF 13A0 FF21 FF3A FF41 10400 10427 10428 104B0 104D3 104D8 10C80 10CB2 10CC0 118A0 118BF 118C0 16E40 16E5F 16E60 1E900 1E921 1E922 END PK ! &{��6 6 5.34.0/unicore/CombiningClass.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. $Unicode::UCD::SwashInfo{'ToCombiningClass'}{'format'} = 'i'; # integer $Unicode::UCD::SwashInfo{'ToCombiningClass'}{'missing'} = '0'; return <<'END'; 300 314 230 315 232 316 319 220 31A 232 31B 216 31C 320 220 321 322 202 323 326 220 327 328 202 329 333 220 334 338 1 339 33C 220 33D 344 230 345 240 346 230 347 349 220 34A 34C 230 34D 34E 220 350 352 230 353 356 220 357 230 358 232 359 35A 220 35B 230 35C 233 35D 35E 234 35F 233 360 361 234 362 233 363 36F 230 483 487 230 591 220 592 595 230 596 220 597 599 230 59A 222 59B 220 59C 5A1 230 5A2 5A7 220 5A8 5A9 230 5AA 220 5AB 5AC 230 5AD 222 5AE 228 5AF 230 5B0 10 5B1 11 5B2 12 5B3 13 5B4 14 5B5 15 5B6 16 5B7 17 5B8 18 5B9 5BA 19 5BB 20 5BC 21 5BD 22 5BF 23 5C1 24 5C2 25 5C4 230 5C5 220 5C7 18 610 617 230 618 30 619 31 61A 32 64B 27 64C 28 64D 29 64E 30 64F 31 650 32 651 33 652 34 653 654 230 655 656 220 657 65B 230 65C 220 65D 65E 230 65F 220 670 35 6D6 6DC 230 6DF 6E2 230 6E3 220 6E4 230 6E7 6E8 230 6EA 220 6EB 6EC 230 6ED 220 711 36 730 230 731 220 732 733 230 734 220 735 736 230 737 739 220 73A 230 73B 73C 220 73D 230 73E 220 73F 741 230 742 220 743 230 744 220 745 230 746 220 747 230 748 220 749 74A 230 7EB 7F1 230 7F2 220 7F3 230 7FD 220 816 819 230 81B 823 230 825 827 230 829 82D 230 859 85B 220 8D3 220 8D4 8E1 230 8E3 220 8E4 8E5 230 8E6 220 8E7 8E8 230 8E9 220 8EA 8EC 230 8ED 8EF 220 8F0 27 8F1 28 8F2 29 8F3 8F5 230 8F6 220 8F7 8F8 230 8F9 8FA 220 8FB 8FF 230 93C 7 94D 9 951 230 952 220 953 954 230 9BC 7 9CD 9 9FE 230 A3C 7 A4D 9 ABC 7 ACD 9 B3C 7 B4D 9 BCD 9 C4D 9 C55 84 C56 91 CBC 7 CCD 9 D3B D3C 9 D4D 9 DCA 9 E38 E39 103 E3A 9 E48 E4B 107 EB8 EB9 118 EBA 9 EC8 ECB 122 F18 F19 220 F35 220 F37 220 F39 216 F71 129 F72 130 F74 132 F7A F7D 130 F80 130 F82 F83 230 F84 9 F86 F87 230 FC6 220 1037 7 1039 103A 9 108D 220 135D 135F 230 1714 9 1734 9 17D2 9 17DD 230 18A9 228 1939 222 193A 230 193B 220 1A17 230 1A18 220 1A60 9 1A75 1A7C 230 1A7F 220 1AB0 1AB4 230 1AB5 1ABA 220 1ABB 1ABC 230 1ABD 220 1ABF 1AC0 220 1B34 7 1B44 9 1B6B 230 1B6C 220 1B6D 1B73 230 1BAA 1BAB 9 1BE6 7 1BF2 1BF3 9 1C37 7 1CD0 1CD2 230 1CD4 1 1CD5 1CD9 220 1CDA 1CDB 230 1CDC 1CDF 220 1CE0 230 1CE2 1CE8 1 1CED 220 1CF4 230 1CF8 1CF9 230 1DC0 1DC1 230 1DC2 220 1DC3 1DC9 230 1DCA 220 1DCB 1DCC 230 1DCD 234 1DCE 214 1DCF 220 1DD0 202 1DD1 1DF5 230 1DF6 232 1DF7 1DF8 228 1DF9 220 1DFB 230 1DFC 233 1DFD 220 1DFE 230 1DFF 220 20D0 20D1 230 20D2 20D3 1 20D4 20D7 230 20D8 20DA 1 20DB 20DC 230 20E1 230 20E5 20E6 1 20E7 230 20E8 220 20E9 230 20EA 20EB 1 20EC 20EF 220 20F0 230 2CEF 2CF1 230 2D7F 9 2DE0 2DFF 230 302A 218 302B 228 302C 232 302D 222 302E 302F 224 3099 309A 8 A66F 230 A674 A67D 230 A69E A69F 230 A6F0 A6F1 230 A806 9 A82C 9 A8C4 9 A8E0 A8F1 230 A92B A92D 220 A953 9 A9B3 7 A9C0 9 AAB0 230 AAB2 AAB3 230 AAB4 220 AAB7 AAB8 230 AABE AABF 230 AAC1 230 AAF6 9 ABED 9 FB1E 26 FE20 FE26 230 FE27 FE2D 220 FE2E FE2F 230 101FD 220 102E0 220 10376 1037A 230 10A0D 220 10A0F 230 10A38 230 10A39 1 10A3A 220 10A3F 9 10AE5 230 10AE6 220 10D24 10D27 230 10EAB 10EAC 230 10F46 10F47 220 10F48 10F4A 230 10F4B 220 10F4C 230 10F4D 10F50 220 11046 9 1107F 9 110B9 9 110BA 7 11100 11102 230 11133 11134 9 11173 7 111C0 9 111CA 7 11235 9 11236 7 112E9 7 112EA 9 1133B 1133C 7 1134D 9 11366 1136C 230 11370 11374 230 11442 9 11446 7 1145E 230 114C2 9 114C3 7 115BF 9 115C0 7 1163F 9 116B6 9 116B7 7 1172B 9 11839 9 1183A 7 1193D 1193E 9 11943 7 119E0 9 11A34 9 11A47 9 11A99 9 11C3F 9 11D42 7 11D44 11D45 9 11D97 9 16AF0 16AF4 1 16B30 16B36 230 16FF0 16FF1 6 1BC9E 1 1D165 1D166 216 1D167 1D169 1 1D16D 226 1D16E 1D172 216 1D17B 1D182 220 1D185 1D189 230 1D18A 1D18B 220 1D1AA 1D1AD 230 1D242 1D244 230 1E000 1E006 230 1E008 1E018 230 1E01B 1E021 230 1E023 1E024 230 1E026 1E02A 230 1E130 1E136 230 1E2EC 1E2EF 230 1E8D0 1E8D6 220 1E944 1E949 230 1E94A 7 END PK ! ��-�� �� 5.34.0/unicore/Name.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. return <<'END'; 00000 NULL 00000 NUL 00001 START OF HEADING 00001 SOH 00002 START OF TEXT 00002 STX 00003 END OF TEXT 00003 ETX 00004 END OF TRANSMISSION 00004 EOT 00005 ENQUIRY 00005 ENQ 00006 ACKNOWLEDGE 00006 ACK 00007 ALERT 00007 BEL 00008 BACKSPACE 00008 BS 00009 CHARACTER TABULATION 00009 HORIZONTAL TABULATION 00009 HT 00009 TAB 0000A LINE FEED 0000A NEW LINE 0000A END OF LINE 0000A LINE FEED (LF) 0000A EOL 0000A LF 0000A NL 0000B LINE TABULATION 0000B VERTICAL TABULATION 0000B VT 0000C FORM FEED 0000C FORM FEED (FF) 0000C FF 0000D CARRIAGE RETURN 0000D CARRIAGE RETURN (CR) 0000D CR 0000E SHIFT OUT 0000E LOCKING-SHIFT ONE 0000E SO 0000F SHIFT IN 0000F LOCKING-SHIFT ZERO 0000F SI 00010 DATA LINK ESCAPE 00010 DLE 00011 DEVICE CONTROL ONE 00011 DC1 00012 DEVICE CONTROL TWO 00012 DC2 00013 DEVICE CONTROL THREE 00013 DC3 00014 DEVICE CONTROL FOUR 00014 DC4 00015 NEGATIVE ACKNOWLEDGE 00015 NAK 00016 SYNCHRONOUS IDLE 00016 SYN 00017 END OF TRANSMISSION BLOCK 00017 ETB 00018 CANCEL 00018 CAN 00019 END OF MEDIUM 00019 EOM 0001A SUBSTITUTE 0001A SUB 0001B ESCAPE 0001B ESC 0001C INFORMATION SEPARATOR FOUR 0001C FILE SEPARATOR 0001C FS 0001D INFORMATION SEPARATOR THREE 0001D GROUP SEPARATOR 0001D GS 0001E INFORMATION SEPARATOR TWO 0001E RECORD SEPARATOR 0001E RS 0001F INFORMATION SEPARATOR ONE 0001F UNIT SEPARATOR 0001F US 00020 SPACE 00020 SP 00021 EXCLAMATION MARK 00022 QUOTATION MARK 00023 NUMBER SIGN 00024 DOLLAR SIGN 00025 PERCENT SIGN 00026 AMPERSAND 00027 APOSTROPHE 00028 LEFT PARENTHESIS 00029 RIGHT PARENTHESIS 0002A ASTERISK 0002B PLUS SIGN 0002C COMMA 0002D HYPHEN-MINUS 0002E FULL STOP 0002F SOLIDUS 00030 DIGIT ZERO 00031 DIGIT ONE 00032 DIGIT TWO 00033 DIGIT THREE 00034 DIGIT FOUR 00035 DIGIT FIVE 00036 DIGIT SIX 00037 DIGIT SEVEN 00038 DIGIT EIGHT 00039 DIGIT NINE 0003A COLON 0003B SEMICOLON 0003C LESS-THAN SIGN 0003D EQUALS SIGN 0003E GREATER-THAN SIGN 0003F QUESTION MARK 00040 COMMERCIAL AT 00041 LATIN CAPITAL LETTER A 00042 LATIN CAPITAL LETTER B 00043 LATIN CAPITAL LETTER C 00044 LATIN CAPITAL LETTER D 00045 LATIN CAPITAL LETTER E 00046 LATIN CAPITAL LETTER F 00047 LATIN CAPITAL LETTER G 00048 LATIN CAPITAL LETTER H 00049 LATIN CAPITAL LETTER I 0004A LATIN CAPITAL LETTER J 0004B LATIN CAPITAL LETTER K 0004C LATIN CAPITAL LETTER L 0004D LATIN CAPITAL LETTER M 0004E LATIN CAPITAL LETTER N 0004F LATIN CAPITAL LETTER O 00050 LATIN CAPITAL LETTER P 00051 LATIN CAPITAL LETTER Q 00052 LATIN CAPITAL LETTER R 00053 LATIN CAPITAL LETTER S 00054 LATIN CAPITAL LETTER T 00055 LATIN CAPITAL LETTER U 00056 LATIN CAPITAL LETTER V 00057 LATIN CAPITAL LETTER W 00058 LATIN CAPITAL LETTER X 00059 LATIN CAPITAL LETTER Y 0005A LATIN CAPITAL LETTER Z 0005B LEFT SQUARE BRACKET 0005C REVERSE SOLIDUS 0005D RIGHT SQUARE BRACKET 0005E CIRCUMFLEX ACCENT 0005F LOW LINE 00060 GRAVE ACCENT 00061 LATIN SMALL LETTER A 00062 LATIN SMALL LETTER B 00063 LATIN SMALL LETTER C 00064 LATIN SMALL LETTER D 00065 LATIN SMALL LETTER E 00066 LATIN SMALL LETTER F 00067 LATIN SMALL LETTER G 00068 LATIN SMALL LETTER H 00069 LATIN SMALL LETTER I 0006A LATIN SMALL LETTER J 0006B LATIN SMALL LETTER K 0006C LATIN SMALL LETTER L 0006D LATIN SMALL LETTER M 0006E LATIN SMALL LETTER N 0006F LATIN SMALL LETTER O 00070 LATIN SMALL LETTER P 00071 LATIN SMALL LETTER Q 00072 LATIN SMALL LETTER R 00073 LATIN SMALL LETTER S 00074 LATIN SMALL LETTER T 00075 LATIN SMALL LETTER U 00076 LATIN SMALL LETTER V 00077 LATIN SMALL LETTER W 00078 LATIN SMALL LETTER X 00079 LATIN SMALL LETTER Y 0007A LATIN SMALL LETTER Z 0007B LEFT CURLY BRACKET 0007C VERTICAL LINE 0007D RIGHT CURLY BRACKET 0007E TILDE 0007F DELETE 0007F DEL 00080 PADDING CHARACTER 00080 PAD 00081 HIGH OCTET PRESET 00081 HOP 00082 BREAK PERMITTED HERE 00082 BPH 00083 NO BREAK HERE 00083 NBH 00084 INDEX 00084 IND 00085 NEXT LINE 00085 NEXT LINE (NEL) 00085 NEL 00086 START OF SELECTED AREA 00086 SSA 00087 END OF SELECTED AREA 00087 ESA 00088 CHARACTER TABULATION SET 00088 HORIZONTAL TABULATION SET 00088 HTS 00089 CHARACTER TABULATION WITH JUSTIFICATION 00089 HORIZONTAL TABULATION WITH JUSTIFICATION 00089 HTJ 0008A LINE TABULATION SET 0008A VERTICAL TABULATION SET 0008A VTS 0008B PARTIAL LINE FORWARD 0008B PARTIAL LINE DOWN 0008B PLD 0008C PARTIAL LINE BACKWARD 0008C PARTIAL LINE UP 0008C PLU 0008D REVERSE LINE FEED 0008D REVERSE INDEX 0008D RI 0008E SINGLE SHIFT TWO 0008E SINGLE-SHIFT-2 0008E SS2 0008F SINGLE SHIFT THREE 0008F SINGLE-SHIFT-3 0008F SS3 00090 DEVICE CONTROL STRING 00090 DCS 00091 PRIVATE USE ONE 00091 PRIVATE USE-1 00091 PU1 00092 PRIVATE USE TWO 00092 PRIVATE USE-2 00092 PU2 00093 SET TRANSMIT STATE 00093 STS 00094 CANCEL CHARACTER 00094 CCH 00095 MESSAGE WAITING 00095 MW 00096 START OF GUARDED AREA 00096 START OF PROTECTED AREA 00096 SPA 00097 END OF GUARDED AREA 00097 END OF PROTECTED AREA 00097 EPA 00098 START OF STRING 00098 SOS 00099 SINGLE GRAPHIC CHARACTER INTRODUCER 00099 SGC 0009A SINGLE CHARACTER INTRODUCER 0009A SCI 0009B CONTROL SEQUENCE INTRODUCER 0009B CSI 0009C STRING TERMINATOR 0009C ST 0009D OPERATING SYSTEM COMMAND 0009D OSC 0009E PRIVACY MESSAGE 0009E PM 0009F APPLICATION PROGRAM COMMAND 0009F APC 000A0 NO-BREAK SPACE 000A0 NBSP 000A1 INVERTED EXCLAMATION MARK 000A2 CENT SIGN 000A3 POUND SIGN 000A4 CURRENCY SIGN 000A5 YEN SIGN 000A6 BROKEN BAR 000A7 SECTION SIGN 000A8 DIAERESIS 000A9 COPYRIGHT SIGN 000AA FEMININE ORDINAL INDICATOR 000AB LEFT-POINTING DOUBLE ANGLE QUOTATION MARK 000AC NOT SIGN 000AD SOFT HYPHEN 000AD SHY 000AE REGISTERED SIGN 000AF MACRON 000B0 DEGREE SIGN 000B1 PLUS-MINUS SIGN 000B2 SUPERSCRIPT TWO 000B3 SUPERSCRIPT THREE 000B4 ACUTE ACCENT 000B5 MICRO SIGN 000B6 PILCROW SIGN 000B7 MIDDLE DOT 000B8 CEDILLA 000B9 SUPERSCRIPT ONE 000BA MASCULINE ORDINAL INDICATOR 000BB RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK 000BC VULGAR FRACTION ONE QUARTER 000BD VULGAR FRACTION ONE HALF 000BE VULGAR FRACTION THREE QUARTERS 000BF INVERTED QUESTION MARK 000C0 LATIN CAPITAL LETTER A WITH GRAVE 000C1 LATIN CAPITAL LETTER A WITH ACUTE 000C2 LATIN CAPITAL LETTER A WITH CIRCUMFLEX 000C3 LATIN CAPITAL LETTER A WITH TILDE 000C4 LATIN CAPITAL LETTER A WITH DIAERESIS 000C5 LATIN CAPITAL LETTER A WITH RING ABOVE 000C6 LATIN CAPITAL LETTER AE 000C7 LATIN CAPITAL LETTER C WITH CEDILLA 000C8 LATIN CAPITAL LETTER E WITH GRAVE 000C9 LATIN CAPITAL LETTER E WITH ACUTE 000CA LATIN CAPITAL LETTER E WITH CIRCUMFLEX 000CB LATIN CAPITAL LETTER E WITH DIAERESIS 000CC LATIN CAPITAL LETTER I WITH GRAVE 000CD LATIN CAPITAL LETTER I WITH ACUTE 000CE LATIN CAPITAL LETTER I WITH CIRCUMFLEX 000CF LATIN CAPITAL LETTER I WITH DIAERESIS 000D0 LATIN CAPITAL LETTER ETH 000D1 LATIN CAPITAL LETTER N WITH TILDE 000D2 LATIN CAPITAL LETTER O WITH GRAVE 000D3 LATIN CAPITAL LETTER O WITH ACUTE 000D4 LATIN CAPITAL LETTER O WITH CIRCUMFLEX 000D5 LATIN CAPITAL LETTER O WITH TILDE 000D6 LATIN CAPITAL LETTER O WITH DIAERESIS 000D7 MULTIPLICATION SIGN 000D8 LATIN CAPITAL LETTER O WITH STROKE 000D9 LATIN CAPITAL LETTER U WITH GRAVE 000DA LATIN CAPITAL LETTER U WITH ACUTE 000DB LATIN CAPITAL LETTER U WITH CIRCUMFLEX 000DC LATIN CAPITAL LETTER U WITH DIAERESIS 000DD LATIN CAPITAL LETTER Y WITH ACUTE 000DE LATIN CAPITAL LETTER THORN 000DF LATIN SMALL LETTER SHARP S 000E0 LATIN SMALL LETTER A WITH GRAVE 000E1 LATIN SMALL LETTER A WITH ACUTE 000E2 LATIN SMALL LETTER A WITH CIRCUMFLEX 000E3 LATIN SMALL LETTER A WITH TILDE 000E4 LATIN SMALL LETTER A WITH DIAERESIS 000E5 LATIN SMALL LETTER A WITH RING ABOVE 000E6 LATIN SMALL LETTER AE 000E7 LATIN SMALL LETTER C WITH CEDILLA 000E8 LATIN SMALL LETTER E WITH GRAVE 000E9 LATIN SMALL LETTER E WITH ACUTE 000EA LATIN SMALL LETTER E WITH CIRCUMFLEX 000EB LATIN SMALL LETTER E WITH DIAERESIS 000EC LATIN SMALL LETTER I WITH GRAVE 000ED LATIN SMALL LETTER I WITH ACUTE 000EE LATIN SMALL LETTER I WITH CIRCUMFLEX 000EF LATIN SMALL LETTER I WITH DIAERESIS 000F0 LATIN SMALL LETTER ETH 000F1 LATIN SMALL LETTER N WITH TILDE 000F2 LATIN SMALL LETTER O WITH GRAVE 000F3 LATIN SMALL LETTER O WITH ACUTE 000F4 LATIN SMALL LETTER O WITH CIRCUMFLEX 000F5 LATIN SMALL LETTER O WITH TILDE 000F6 LATIN SMALL LETTER O WITH DIAERESIS 000F7 DIVISION SIGN 000F8 LATIN SMALL LETTER O WITH STROKE 000F9 LATIN SMALL LETTER U WITH GRAVE 000FA LATIN SMALL LETTER U WITH ACUTE 000FB LATIN SMALL LETTER U WITH CIRCUMFLEX 000FC LATIN SMALL LETTER U WITH DIAERESIS 000FD LATIN SMALL LETTER Y WITH ACUTE 000FE LATIN SMALL LETTER THORN 000FF LATIN SMALL LETTER Y WITH DIAERESIS 00100 LATIN CAPITAL LETTER A WITH MACRON 00101 LATIN SMALL LETTER A WITH MACRON 00102 LATIN CAPITAL LETTER A WITH BREVE 00103 LATIN SMALL LETTER A WITH BREVE 00104 LATIN CAPITAL LETTER A WITH OGONEK 00105 LATIN SMALL LETTER A WITH OGONEK 00106 LATIN CAPITAL LETTER C WITH ACUTE 00107 LATIN SMALL LETTER C WITH ACUTE 00108 LATIN CAPITAL LETTER C WITH CIRCUMFLEX 00109 LATIN SMALL LETTER C WITH CIRCUMFLEX 0010A LATIN CAPITAL LETTER C WITH DOT ABOVE 0010B LATIN SMALL LETTER C WITH DOT ABOVE 0010C LATIN CAPITAL LETTER C WITH CARON 0010D LATIN SMALL LETTER C WITH CARON 0010E LATIN CAPITAL LETTER D WITH CARON 0010F LATIN SMALL LETTER D WITH CARON 00110 LATIN CAPITAL LETTER D WITH STROKE 00111 LATIN SMALL LETTER D WITH STROKE 00112 LATIN CAPITAL LETTER E WITH MACRON 00113 LATIN SMALL LETTER E WITH MACRON 00114 LATIN CAPITAL LETTER E WITH BREVE 00115 LATIN SMALL LETTER E WITH BREVE 00116 LATIN CAPITAL LETTER E WITH DOT ABOVE 00117 LATIN SMALL LETTER E WITH DOT ABOVE 00118 LATIN CAPITAL LETTER E WITH OGONEK 00119 LATIN SMALL LETTER E WITH OGONEK 0011A LATIN CAPITAL LETTER E WITH CARON 0011B LATIN SMALL LETTER E WITH CARON 0011C LATIN CAPITAL LETTER G WITH CIRCUMFLEX 0011D LATIN SMALL LETTER G WITH CIRCUMFLEX 0011E LATIN CAPITAL LETTER G WITH BREVE 0011F LATIN SMALL LETTER G WITH BREVE 00120 LATIN CAPITAL LETTER G WITH DOT ABOVE 00121 LATIN SMALL LETTER G WITH DOT ABOVE 00122 LATIN CAPITAL LETTER G WITH CEDILLA 00123 LATIN SMALL LETTER G WITH CEDILLA 00124 LATIN CAPITAL LETTER H WITH CIRCUMFLEX 00125 LATIN SMALL LETTER H WITH CIRCUMFLEX 00126 LATIN CAPITAL LETTER H WITH STROKE 00127 LATIN SMALL LETTER H WITH STROKE 00128 LATIN CAPITAL LETTER I WITH TILDE 00129 LATIN SMALL LETTER I WITH TILDE 0012A LATIN CAPITAL LETTER I WITH MACRON 0012B LATIN SMALL LETTER I WITH MACRON 0012C LATIN CAPITAL LETTER I WITH BREVE 0012D LATIN SMALL LETTER I WITH BREVE 0012E LATIN CAPITAL LETTER I WITH OGONEK 0012F LATIN SMALL LETTER I WITH OGONEK 00130 LATIN CAPITAL LETTER I WITH DOT ABOVE 00131 LATIN SMALL LETTER DOTLESS I 00132 LATIN CAPITAL LIGATURE IJ 00133 LATIN SMALL LIGATURE IJ 00134 LATIN CAPITAL LETTER J WITH CIRCUMFLEX 00135 LATIN SMALL LETTER J WITH CIRCUMFLEX 00136 LATIN CAPITAL LETTER K WITH CEDILLA 00137 LATIN SMALL LETTER K WITH CEDILLA 00138 LATIN SMALL LETTER KRA 00139 LATIN CAPITAL LETTER L WITH ACUTE 0013A LATIN SMALL LETTER L WITH ACUTE 0013B LATIN CAPITAL LETTER L WITH CEDILLA 0013C LATIN SMALL LETTER L WITH CEDILLA 0013D LATIN CAPITAL LETTER L WITH CARON 0013E LATIN SMALL LETTER L WITH CARON 0013F LATIN CAPITAL LETTER L WITH MIDDLE DOT 00140 LATIN SMALL LETTER L WITH MIDDLE DOT 00141 LATIN CAPITAL LETTER L WITH STROKE 00142 LATIN SMALL LETTER L WITH STROKE 00143 LATIN CAPITAL LETTER N WITH ACUTE 00144 LATIN SMALL LETTER N WITH ACUTE 00145 LATIN CAPITAL LETTER N WITH CEDILLA 00146 LATIN SMALL LETTER N WITH CEDILLA 00147 LATIN CAPITAL LETTER N WITH CARON 00148 LATIN SMALL LETTER N WITH CARON 00149 LATIN SMALL LETTER N PRECEDED BY APOSTROPHE 0014A LATIN CAPITAL LETTER ENG 0014B LATIN SMALL LETTER ENG 0014C LATIN CAPITAL LETTER O WITH MACRON 0014D LATIN SMALL LETTER O WITH MACRON 0014E LATIN CAPITAL LETTER O WITH BREVE 0014F LATIN SMALL LETTER O WITH BREVE 00150 LATIN CAPITAL LETTER O WITH DOUBLE ACUTE 00151 LATIN SMALL LETTER O WITH DOUBLE ACUTE 00152 LATIN CAPITAL LIGATURE OE 00153 LATIN SMALL LIGATURE OE 00154 LATIN CAPITAL LETTER R WITH ACUTE 00155 LATIN SMALL LETTER R WITH ACUTE 00156 LATIN CAPITAL LETTER R WITH CEDILLA 00157 LATIN SMALL LETTER R WITH CEDILLA 00158 LATIN CAPITAL LETTER R WITH CARON 00159 LATIN SMALL LETTER R WITH CARON 0015A LATIN CAPITAL LETTER S WITH ACUTE 0015B LATIN SMALL LETTER S WITH ACUTE 0015C LATIN CAPITAL LETTER S WITH CIRCUMFLEX 0015D LATIN SMALL LETTER S WITH CIRCUMFLEX 0015E LATIN CAPITAL LETTER S WITH CEDILLA 0015F LATIN SMALL LETTER S WITH CEDILLA 00160 LATIN CAPITAL LETTER S WITH CARON 00161 LATIN SMALL LETTER S WITH CARON 00162 LATIN CAPITAL LETTER T WITH CEDILLA 00163 LATIN SMALL LETTER T WITH CEDILLA 00164 LATIN CAPITAL LETTER T WITH CARON 00165 LATIN SMALL LETTER T WITH CARON 00166 LATIN CAPITAL LETTER T WITH STROKE 00167 LATIN SMALL LETTER T WITH STROKE 00168 LATIN CAPITAL LETTER U WITH TILDE 00169 LATIN SMALL LETTER U WITH TILDE 0016A LATIN CAPITAL LETTER U WITH MACRON 0016B LATIN SMALL LETTER U WITH MACRON 0016C LATIN CAPITAL LETTER U WITH BREVE 0016D LATIN SMALL LETTER U WITH BREVE 0016E LATIN CAPITAL LETTER U WITH RING ABOVE 0016F LATIN SMALL LETTER U WITH RING ABOVE 00170 LATIN CAPITAL LETTER U WITH DOUBLE ACUTE 00171 LATIN SMALL LETTER U WITH DOUBLE ACUTE 00172 LATIN CAPITAL LETTER U WITH OGONEK 00173 LATIN SMALL LETTER U WITH OGONEK 00174 LATIN CAPITAL LETTER W WITH CIRCUMFLEX 00175 LATIN SMALL LETTER W WITH CIRCUMFLEX 00176 LATIN CAPITAL LETTER Y WITH CIRCUMFLEX 00177 LATIN SMALL LETTER Y WITH CIRCUMFLEX 00178 LATIN CAPITAL LETTER Y WITH DIAERESIS 00179 LATIN CAPITAL LETTER Z WITH ACUTE 0017A LATIN SMALL LETTER Z WITH ACUTE 0017B LATIN CAPITAL LETTER Z WITH DOT ABOVE 0017C LATIN SMALL LETTER Z WITH DOT ABOVE 0017D LATIN CAPITAL LETTER Z WITH CARON 0017E LATIN SMALL LETTER Z WITH CARON 0017F LATIN SMALL LETTER LONG S 00180 LATIN SMALL LETTER B WITH STROKE 00181 LATIN CAPITAL LETTER B WITH HOOK 00182 LATIN CAPITAL LETTER B WITH TOPBAR 00183 LATIN SMALL LETTER B WITH TOPBAR 00184 LATIN CAPITAL LETTER TONE SIX 00185 LATIN SMALL LETTER TONE SIX 00186 LATIN CAPITAL LETTER OPEN O 00187 LATIN CAPITAL LETTER C WITH HOOK 00188 LATIN SMALL LETTER C WITH HOOK 00189 LATIN CAPITAL LETTER AFRICAN D 0018A LATIN CAPITAL LETTER D WITH HOOK 0018B LATIN CAPITAL LETTER D WITH TOPBAR 0018C LATIN SMALL LETTER D WITH TOPBAR 0018D LATIN SMALL LETTER TURNED DELTA 0018E LATIN CAPITAL LETTER REVERSED E 0018F LATIN CAPITAL LETTER SCHWA 00190 LATIN CAPITAL LETTER OPEN E 00191 LATIN CAPITAL LETTER F WITH HOOK 00192 LATIN SMALL LETTER F WITH HOOK 00193 LATIN CAPITAL LETTER G WITH HOOK 00194 LATIN CAPITAL LETTER GAMMA 00195 LATIN SMALL LETTER HV 00196 LATIN CAPITAL LETTER IOTA 00197 LATIN CAPITAL LETTER I WITH STROKE 00198 LATIN CAPITAL LETTER K WITH HOOK 00199 LATIN SMALL LETTER K WITH HOOK 0019A LATIN SMALL LETTER L WITH BAR 0019B LATIN SMALL LETTER LAMBDA WITH STROKE 0019C LATIN CAPITAL LETTER TURNED M 0019D LATIN CAPITAL LETTER N WITH LEFT HOOK 0019E LATIN SMALL LETTER N WITH LONG RIGHT LEG 0019F LATIN CAPITAL LETTER O WITH MIDDLE TILDE 001A0 LATIN CAPITAL LETTER O WITH HORN 001A1 LATIN SMALL LETTER O WITH HORN 001A2 LATIN CAPITAL LETTER GHA 001A2 LATIN CAPITAL LETTER OI 001A3 LATIN SMALL LETTER GHA 001A3 LATIN SMALL LETTER OI 001A4 LATIN CAPITAL LETTER P WITH HOOK 001A5 LATIN SMALL LETTER P WITH HOOK 001A6 LATIN LETTER YR 001A7 LATIN CAPITAL LETTER TONE TWO 001A8 LATIN SMALL LETTER TONE TWO 001A9 LATIN CAPITAL LETTER ESH 001AA LATIN LETTER REVERSED ESH LOOP 001AB LATIN SMALL LETTER T WITH PALATAL HOOK 001AC LATIN CAPITAL LETTER T WITH HOOK 001AD LATIN SMALL LETTER T WITH HOOK 001AE LATIN CAPITAL LETTER T WITH RETROFLEX HOOK 001AF LATIN CAPITAL LETTER U WITH HORN 001B0 LATIN SMALL LETTER U WITH HORN 001B1 LATIN CAPITAL LETTER UPSILON 001B2 LATIN CAPITAL LETTER V WITH HOOK 001B3 LATIN CAPITAL LETTER Y WITH HOOK 001B4 LATIN SMALL LETTER Y WITH HOOK 001B5 LATIN CAPITAL LETTER Z WITH STROKE 001B6 LATIN SMALL LETTER Z WITH STROKE 001B7 LATIN CAPITAL LETTER EZH 001B8 LATIN CAPITAL LETTER EZH REVERSED 001B9 LATIN SMALL LETTER EZH REVERSED 001BA LATIN SMALL LETTER EZH WITH TAIL 001BB LATIN LETTER TWO WITH STROKE 001BC LATIN CAPITAL LETTER TONE FIVE 001BD LATIN SMALL LETTER TONE FIVE 001BE LATIN LETTER INVERTED GLOTTAL STOP WITH STROKE 001BF LATIN LETTER WYNN 001C0 LATIN LETTER DENTAL CLICK 001C1 LATIN LETTER LATERAL CLICK 001C2 LATIN LETTER ALVEOLAR CLICK 001C3 LATIN LETTER RETROFLEX CLICK 001C4 LATIN CAPITAL LETTER DZ WITH CARON 001C5 LATIN CAPITAL LETTER D WITH SMALL LETTER Z WITH CARON 001C6 LATIN SMALL LETTER DZ WITH CARON 001C7 LATIN CAPITAL LETTER LJ 001C8 LATIN CAPITAL LETTER L WITH SMALL LETTER J 001C9 LATIN SMALL LETTER LJ 001CA LATIN CAPITAL LETTER NJ 001CB LATIN CAPITAL LETTER N WITH SMALL LETTER J 001CC LATIN SMALL LETTER NJ 001CD LATIN CAPITAL LETTER A WITH CARON 001CE LATIN SMALL LETTER A WITH CARON 001CF LATIN CAPITAL LETTER I WITH CARON 001D0 LATIN SMALL LETTER I WITH CARON 001D1 LATIN CAPITAL LETTER O WITH CARON 001D2 LATIN SMALL LETTER O WITH CARON 001D3 LATIN CAPITAL LETTER U WITH CARON 001D4 LATIN SMALL LETTER U WITH CARON 001D5 LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON 001D6 LATIN SMALL LETTER U WITH DIAERESIS AND MACRON 001D7 LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE 001D8 LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE 001D9 LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON 001DA LATIN SMALL LETTER U WITH DIAERESIS AND CARON 001DB LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE 001DC LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE 001DD LATIN SMALL LETTER TURNED E 001DE LATIN CAPITAL LETTER A WITH DIAERESIS AND MACRON 001DF LATIN SMALL LETTER A WITH DIAERESIS AND MACRON 001E0 LATIN CAPITAL LETTER A WITH DOT ABOVE AND MACRON 001E1 LATIN SMALL LETTER A WITH DOT ABOVE AND MACRON 001E2 LATIN CAPITAL LETTER AE WITH MACRON 001E3 LATIN SMALL LETTER AE WITH MACRON 001E4 LATIN CAPITAL LETTER G WITH STROKE 001E5 LATIN SMALL LETTER G WITH STROKE 001E6 LATIN CAPITAL LETTER G WITH CARON 001E7 LATIN SMALL LETTER G WITH CARON 001E8 LATIN CAPITAL LETTER K WITH CARON 001E9 LATIN SMALL LETTER K WITH CARON 001EA LATIN CAPITAL LETTER O WITH OGONEK 001EB LATIN SMALL LETTER O WITH OGONEK 001EC LATIN CAPITAL LETTER O WITH OGONEK AND MACRON 001ED LATIN SMALL LETTER O WITH OGONEK AND MACRON 001EE LATIN CAPITAL LETTER EZH WITH CARON 001EF LATIN SMALL LETTER EZH WITH CARON 001F0 LATIN SMALL LETTER J WITH CARON 001F1 LATIN CAPITAL LETTER DZ 001F2 LATIN CAPITAL LETTER D WITH SMALL LETTER Z 001F3 LATIN SMALL LETTER DZ 001F4 LATIN CAPITAL LETTER G WITH ACUTE 001F5 LATIN SMALL LETTER G WITH ACUTE 001F6 LATIN CAPITAL LETTER HWAIR 001F7 LATIN CAPITAL LETTER WYNN 001F8 LATIN CAPITAL LETTER N WITH GRAVE 001F9 LATIN SMALL LETTER N WITH GRAVE 001FA LATIN CAPITAL LETTER A WITH RING ABOVE AND ACUTE 001FB LATIN SMALL LETTER A WITH RING ABOVE AND ACUTE 001FC LATIN CAPITAL LETTER AE WITH ACUTE 001FD LATIN SMALL LETTER AE WITH ACUTE 001FE LATIN CAPITAL LETTER O WITH STROKE AND ACUTE 001FF LATIN SMALL LETTER O WITH STROKE AND ACUTE 00200 LATIN CAPITAL LETTER A WITH DOUBLE GRAVE 00201 LATIN SMALL LETTER A WITH DOUBLE GRAVE 00202 LATIN CAPITAL LETTER A WITH INVERTED BREVE 00203 LATIN SMALL LETTER A WITH INVERTED BREVE 00204 LATIN CAPITAL LETTER E WITH DOUBLE GRAVE 00205 LATIN SMALL LETTER E WITH DOUBLE GRAVE 00206 LATIN CAPITAL LETTER E WITH INVERTED BREVE 00207 LATIN SMALL LETTER E WITH INVERTED BREVE 00208 LATIN CAPITAL LETTER I WITH DOUBLE GRAVE 00209 LATIN SMALL LETTER I WITH DOUBLE GRAVE 0020A LATIN CAPITAL LETTER I WITH INVERTED BREVE 0020B LATIN SMALL LETTER I WITH INVERTED BREVE 0020C LATIN CAPITAL LETTER O WITH DOUBLE GRAVE 0020D LATIN SMALL LETTER O WITH DOUBLE GRAVE 0020E LATIN CAPITAL LETTER O WITH INVERTED BREVE 0020F LATIN SMALL LETTER O WITH INVERTED BREVE 00210 LATIN CAPITAL LETTER R WITH DOUBLE GRAVE 00211 LATIN SMALL LETTER R WITH DOUBLE GRAVE 00212 LATIN CAPITAL LETTER R WITH INVERTED BREVE 00213 LATIN SMALL LETTER R WITH INVERTED BREVE 00214 LATIN CAPITAL LETTER U WITH DOUBLE GRAVE 00215 LATIN SMALL LETTER U WITH DOUBLE GRAVE 00216 LATIN CAPITAL LETTER U WITH INVERTED BREVE 00217 LATIN SMALL LETTER U WITH INVERTED BREVE 00218 LATIN CAPITAL LETTER S WITH COMMA BELOW 00219 LATIN SMALL LETTER S WITH COMMA BELOW 0021A LATIN CAPITAL LETTER T WITH COMMA BELOW 0021B LATIN SMALL LETTER T WITH COMMA BELOW 0021C LATIN CAPITAL LETTER YOGH 0021D LATIN SMALL LETTER YOGH 0021E LATIN CAPITAL LETTER H WITH CARON 0021F LATIN SMALL LETTER H WITH CARON 00220 LATIN CAPITAL LETTER N WITH LONG RIGHT LEG 00221 LATIN SMALL LETTER D WITH CURL 00222 LATIN CAPITAL LETTER OU 00223 LATIN SMALL LETTER OU 00224 LATIN CAPITAL LETTER Z WITH HOOK 00225 LATIN SMALL LETTER Z WITH HOOK 00226 LATIN CAPITAL LETTER A WITH DOT ABOVE 00227 LATIN SMALL LETTER A WITH DOT ABOVE 00228 LATIN CAPITAL LETTER E WITH CEDILLA 00229 LATIN SMALL LETTER E WITH CEDILLA 0022A LATIN CAPITAL LETTER O WITH DIAERESIS AND MACRON 0022B LATIN SMALL LETTER O WITH DIAERESIS AND MACRON 0022C LATIN CAPITAL LETTER O WITH TILDE AND MACRON 0022D LATIN SMALL LETTER O WITH TILDE AND MACRON 0022E LATIN CAPITAL LETTER O WITH DOT ABOVE 0022F LATIN SMALL LETTER O WITH DOT ABOVE 00230 LATIN CAPITAL LETTER O WITH DOT ABOVE AND MACRON 00231 LATIN SMALL LETTER O WITH DOT ABOVE AND MACRON 00232 LATIN CAPITAL LETTER Y WITH MACRON 00233 LATIN SMALL LETTER Y WITH MACRON 00234 LATIN SMALL LETTER L WITH CURL 00235 LATIN SMALL LETTER N WITH CURL 00236 LATIN SMALL LETTER T WITH CURL 00237 LATIN SMALL LETTER DOTLESS J 00238 LATIN SMALL LETTER DB DIGRAPH 00239 LATIN SMALL LETTER QP DIGRAPH 0023A LATIN CAPITAL LETTER A WITH STROKE 0023B LATIN CAPITAL LETTER C WITH STROKE 0023C LATIN SMALL LETTER C WITH STROKE 0023D LATIN CAPITAL LETTER L WITH BAR 0023E LATIN CAPITAL LETTER T WITH DIAGONAL STROKE 0023F LATIN SMALL LETTER S WITH SWASH TAIL 00240 LATIN SMALL LETTER Z WITH SWASH TAIL 00241 LATIN CAPITAL LETTER GLOTTAL STOP 00242 LATIN SMALL LETTER GLOTTAL STOP 00243 LATIN CAPITAL LETTER B WITH STROKE 00244 LATIN CAPITAL LETTER U BAR 00245 LATIN CAPITAL LETTER TURNED V 00246 LATIN CAPITAL LETTER E WITH STROKE 00247 LATIN SMALL LETTER E WITH STROKE 00248 LATIN CAPITAL LETTER J WITH STROKE 00249 LATIN SMALL LETTER J WITH STROKE 0024A LATIN CAPITAL LETTER SMALL Q WITH HOOK TAIL 0024B LATIN SMALL LETTER Q WITH HOOK TAIL 0024C LATIN CAPITAL LETTER R WITH STROKE 0024D LATIN SMALL LETTER R WITH STROKE 0024E LATIN CAPITAL LETTER Y WITH STROKE 0024F LATIN SMALL LETTER Y WITH STROKE 00250 LATIN SMALL LETTER TURNED A 00251 LATIN SMALL LETTER ALPHA 00252 LATIN SMALL LETTER TURNED ALPHA 00253 LATIN SMALL LETTER B WITH HOOK 00254 LATIN SMALL LETTER OPEN O 00255 LATIN SMALL LETTER C WITH CURL 00256 LATIN SMALL LETTER D WITH TAIL 00257 LATIN SMALL LETTER D WITH HOOK 00258 LATIN SMALL LETTER REVERSED E 00259 LATIN SMALL LETTER SCHWA 0025A LATIN SMALL LETTER SCHWA WITH HOOK 0025B LATIN SMALL LETTER OPEN E 0025C LATIN SMALL LETTER REVERSED OPEN E 0025D LATIN SMALL LETTER REVERSED OPEN E WITH HOOK 0025E LATIN SMALL LETTER CLOSED REVERSED OPEN E 0025F LATIN SMALL LETTER DOTLESS J WITH STROKE 00260 LATIN SMALL LETTER G WITH HOOK 00261 LATIN SMALL LETTER SCRIPT G 00262 LATIN LETTER SMALL CAPITAL G 00263 LATIN SMALL LETTER GAMMA 00264 LATIN SMALL LETTER RAMS HORN 00265 LATIN SMALL LETTER TURNED H 00266 LATIN SMALL LETTER H WITH HOOK 00267 LATIN SMALL LETTER HENG WITH HOOK 00268 LATIN SMALL LETTER I WITH STROKE 00269 LATIN SMALL LETTER IOTA 0026A LATIN LETTER SMALL CAPITAL I 0026B LATIN SMALL LETTER L WITH MIDDLE TILDE 0026C LATIN SMALL LETTER L WITH BELT 0026D LATIN SMALL LETTER L WITH RETROFLEX HOOK 0026E LATIN SMALL LETTER LEZH 0026F LATIN SMALL LETTER TURNED M 00270 LATIN SMALL LETTER TURNED M WITH LONG LEG 00271 LATIN SMALL LETTER M WITH HOOK 00272 LATIN SMALL LETTER N WITH LEFT HOOK 00273 LATIN SMALL LETTER N WITH RETROFLEX HOOK 00274 LATIN LETTER SMALL CAPITAL N 00275 LATIN SMALL LETTER BARRED O 00276 LATIN LETTER SMALL CAPITAL OE 00277 LATIN SMALL LETTER CLOSED OMEGA 00278 LATIN SMALL LETTER PHI 00279 LATIN SMALL LETTER TURNED R 0027A LATIN SMALL LETTER TURNED R WITH LONG LEG 0027B LATIN SMALL LETTER TURNED R WITH HOOK 0027C LATIN SMALL LETTER R WITH LONG LEG 0027D LATIN SMALL LETTER R WITH TAIL 0027E LATIN SMALL LETTER R WITH FISHHOOK 0027F LATIN SMALL LETTER REVERSED R WITH FISHHOOK 00280 LATIN LETTER SMALL CAPITAL R 00281 LATIN LETTER SMALL CAPITAL INVERTED R 00282 LATIN SMALL LETTER S WITH HOOK 00283 LATIN SMALL LETTER ESH 00284 LATIN SMALL LETTER DOTLESS J WITH STROKE AND HOOK 00285 LATIN SMALL LETTER SQUAT REVERSED ESH 00286 LATIN SMALL LETTER ESH WITH CURL 00287 LATIN SMALL LETTER TURNED T 00288 LATIN SMALL LETTER T WITH RETROFLEX HOOK 00289 LATIN SMALL LETTER U BAR 0028A LATIN SMALL LETTER UPSILON 0028B LATIN SMALL LETTER V WITH HOOK 0028C LATIN SMALL LETTER TURNED V 0028D LATIN SMALL LETTER TURNED W 0028E LATIN SMALL LETTER TURNED Y 0028F LATIN LETTER SMALL CAPITAL Y 00290 LATIN SMALL LETTER Z WITH RETROFLEX HOOK 00291 LATIN SMALL LETTER Z WITH CURL 00292 LATIN SMALL LETTER EZH 00293 LATIN SMALL LETTER EZH WITH CURL 00294 LATIN LETTER GLOTTAL STOP 00295 LATIN LETTER PHARYNGEAL VOICED FRICATIVE 00296 LATIN LETTER INVERTED GLOTTAL STOP 00297 LATIN LETTER STRETCHED C 00298 LATIN LETTER BILABIAL CLICK 00299 LATIN LETTER SMALL CAPITAL B 0029A LATIN SMALL LETTER CLOSED OPEN E 0029B LATIN LETTER SMALL CAPITAL G WITH HOOK 0029C LATIN LETTER SMALL CAPITAL H 0029D LATIN SMALL LETTER J WITH CROSSED-TAIL 0029E LATIN SMALL LETTER TURNED K 0029F LATIN LETTER SMALL CAPITAL L 002A0 LATIN SMALL LETTER Q WITH HOOK 002A1 LATIN LETTER GLOTTAL STOP WITH STROKE 002A2 LATIN LETTER REVERSED GLOTTAL STOP WITH STROKE 002A3 LATIN SMALL LETTER DZ DIGRAPH 002A4 LATIN SMALL LETTER DEZH DIGRAPH 002A5 LATIN SMALL LETTER DZ DIGRAPH WITH CURL 002A6 LATIN SMALL LETTER TS DIGRAPH 002A7 LATIN SMALL LETTER TESH DIGRAPH 002A8 LATIN SMALL LETTER TC DIGRAPH WITH CURL 002A9 LATIN SMALL LETTER FENG DIGRAPH 002AA LATIN SMALL LETTER LS DIGRAPH 002AB LATIN SMALL LETTER LZ DIGRAPH 002AC LATIN LETTER BILABIAL PERCUSSIVE 002AD LATIN LETTER BIDENTAL PERCUSSIVE 002AE LATIN SMALL LETTER TURNED H WITH FISHHOOK 002AF LATIN SMALL LETTER TURNED H WITH FISHHOOK AND TAIL 002B0 MODIFIER LETTER SMALL H 002B1 MODIFIER LETTER SMALL H WITH HOOK 002B2 MODIFIER LETTER SMALL J 002B3 MODIFIER LETTER SMALL R 002B4 MODIFIER LETTER SMALL TURNED R 002B5 MODIFIER LETTER SMALL TURNED R WITH HOOK 002B6 MODIFIER LETTER SMALL CAPITAL INVERTED R 002B7 MODIFIER LETTER SMALL W 002B8 MODIFIER LETTER SMALL Y 002B9 MODIFIER LETTER PRIME 002BA MODIFIER LETTER DOUBLE PRIME 002BB MODIFIER LETTER TURNED COMMA 002BC MODIFIER LETTER APOSTROPHE 002BD MODIFIER LETTER REVERSED COMMA 002BE MODIFIER LETTER RIGHT HALF RING 002BF MODIFIER LETTER LEFT HALF RING 002C0 MODIFIER LETTER GLOTTAL STOP 002C1 MODIFIER LETTER REVERSED GLOTTAL STOP 002C2 MODIFIER LETTER LEFT ARROWHEAD 002C3 MODIFIER LETTER RIGHT ARROWHEAD 002C4 MODIFIER LETTER UP ARROWHEAD 002C5 MODIFIER LETTER DOWN ARROWHEAD 002C6 MODIFIER LETTER CIRCUMFLEX ACCENT 002C7 CARON 002C8 MODIFIER LETTER VERTICAL LINE 002C9 MODIFIER LETTER MACRON 002CA MODIFIER LETTER ACUTE ACCENT 002CB MODIFIER LETTER GRAVE ACCENT 002CC MODIFIER LETTER LOW VERTICAL LINE 002CD MODIFIER LETTER LOW MACRON 002CE MODIFIER LETTER LOW GRAVE ACCENT 002CF MODIFIER LETTER LOW ACUTE ACCENT 002D0 MODIFIER LETTER TRIANGULAR COLON 002D1 MODIFIER LETTER HALF TRIANGULAR COLON 002D2 MODIFIER LETTER CENTRED RIGHT HALF RING 002D3 MODIFIER LETTER CENTRED LEFT HALF RING 002D4 MODIFIER LETTER UP TACK 002D5 MODIFIER LETTER DOWN TACK 002D6 MODIFIER LETTER PLUS SIGN 002D7 MODIFIER LETTER MINUS SIGN 002D8 BREVE 002D9 DOT ABOVE 002DA RING ABOVE 002DB OGONEK 002DC SMALL TILDE 002DD DOUBLE ACUTE ACCENT 002DE MODIFIER LETTER RHOTIC HOOK 002DF MODIFIER LETTER CROSS ACCENT 002E0 MODIFIER LETTER SMALL GAMMA 002E1 MODIFIER LETTER SMALL L 002E2 MODIFIER LETTER SMALL S 002E3 MODIFIER LETTER SMALL X 002E4 MODIFIER LETTER SMALL REVERSED GLOTTAL STOP 002E5 MODIFIER LETTER EXTRA-HIGH TONE BAR 002E6 MODIFIER LETTER HIGH TONE BAR 002E7 MODIFIER LETTER MID TONE BAR 002E8 MODIFIER LETTER LOW TONE BAR 002E9 MODIFIER LETTER EXTRA-LOW TONE BAR 002EA MODIFIER LETTER YIN DEPARTING TONE MARK 002EB MODIFIER LETTER YANG DEPARTING TONE MARK 002EC MODIFIER LETTER VOICING 002ED MODIFIER LETTER UNASPIRATED 002EE MODIFIER LETTER DOUBLE APOSTROPHE 002EF MODIFIER LETTER LOW DOWN ARROWHEAD 002F0 MODIFIER LETTER LOW UP ARROWHEAD 002F1 MODIFIER LETTER LOW LEFT ARROWHEAD 002F2 MODIFIER LETTER LOW RIGHT ARROWHEAD 002F3 MODIFIER LETTER LOW RING 002F4 MODIFIER LETTER MIDDLE GRAVE ACCENT 002F5 MODIFIER LETTER MIDDLE DOUBLE GRAVE ACCENT 002F6 MODIFIER LETTER MIDDLE DOUBLE ACUTE ACCENT 002F7 MODIFIER LETTER LOW TILDE 002F8 MODIFIER LETTER RAISED COLON 002F9 MODIFIER LETTER BEGIN HIGH TONE 002FA MODIFIER LETTER END HIGH TONE 002FB MODIFIER LETTER BEGIN LOW TONE 002FC MODIFIER LETTER END LOW TONE 002FD MODIFIER LETTER SHELF 002FE MODIFIER LETTER OPEN SHELF 002FF MODIFIER LETTER LOW LEFT ARROW 00300 COMBINING GRAVE ACCENT 00301 COMBINING ACUTE ACCENT 00302 COMBINING CIRCUMFLEX ACCENT 00303 COMBINING TILDE 00304 COMBINING MACRON 00305 COMBINING OVERLINE 00306 COMBINING BREVE 00307 COMBINING DOT ABOVE 00308 COMBINING DIAERESIS 00309 COMBINING HOOK ABOVE 0030A COMBINING RING ABOVE 0030B COMBINING DOUBLE ACUTE ACCENT 0030C COMBINING CARON 0030D COMBINING VERTICAL LINE ABOVE 0030E COMBINING DOUBLE VERTICAL LINE ABOVE 0030F COMBINING DOUBLE GRAVE ACCENT 00310 COMBINING CANDRABINDU 00311 COMBINING INVERTED BREVE 00312 COMBINING TURNED COMMA ABOVE 00313 COMBINING COMMA ABOVE 00314 COMBINING REVERSED COMMA ABOVE 00315 COMBINING COMMA ABOVE RIGHT 00316 COMBINING GRAVE ACCENT BELOW 00317 COMBINING ACUTE ACCENT BELOW 00318 COMBINING LEFT TACK BELOW 00319 COMBINING RIGHT TACK BELOW 0031A COMBINING LEFT ANGLE ABOVE 0031B COMBINING HORN 0031C COMBINING LEFT HALF RING BELOW 0031D COMBINING UP TACK BELOW 0031E COMBINING DOWN TACK BELOW 0031F COMBINING PLUS SIGN BELOW 00320 COMBINING MINUS SIGN BELOW 00321 COMBINING PALATALIZED HOOK BELOW 00322 COMBINING RETROFLEX HOOK BELOW 00323 COMBINING DOT BELOW 00324 COMBINING DIAERESIS BELOW 00325 COMBINING RING BELOW 00326 COMBINING COMMA BELOW 00327 COMBINING CEDILLA 00328 COMBINING OGONEK 00329 COMBINING VERTICAL LINE BELOW 0032A COMBINING BRIDGE BELOW 0032B COMBINING INVERTED DOUBLE ARCH BELOW 0032C COMBINING CARON BELOW 0032D COMBINING CIRCUMFLEX ACCENT BELOW 0032E COMBINING BREVE BELOW 0032F COMBINING INVERTED BREVE BELOW 00330 COMBINING TILDE BELOW 00331 COMBINING MACRON BELOW 00332 COMBINING LOW LINE 00333 COMBINING DOUBLE LOW LINE 00334 COMBINING TILDE OVERLAY 00335 COMBINING SHORT STROKE OVERLAY 00336 COMBINING LONG STROKE OVERLAY 00337 COMBINING SHORT SOLIDUS OVERLAY 00338 COMBINING LONG SOLIDUS OVERLAY 00339 COMBINING RIGHT HALF RING BELOW 0033A COMBINING INVERTED BRIDGE BELOW 0033B COMBINING SQUARE BELOW 0033C COMBINING SEAGULL BELOW 0033D COMBINING X ABOVE 0033E COMBINING VERTICAL TILDE 0033F COMBINING DOUBLE OVERLINE 00340 COMBINING GRAVE TONE MARK 00341 COMBINING ACUTE TONE MARK 00342 COMBINING GREEK PERISPOMENI 00343 COMBINING GREEK KORONIS 00344 COMBINING GREEK DIALYTIKA TONOS 00345 COMBINING GREEK YPOGEGRAMMENI 00346 COMBINING BRIDGE ABOVE 00347 COMBINING EQUALS SIGN BELOW 00348 COMBINING DOUBLE VERTICAL LINE BELOW 00349 COMBINING LEFT ANGLE BELOW 0034A COMBINING NOT TILDE ABOVE 0034B COMBINING HOMOTHETIC ABOVE 0034C COMBINING ALMOST EQUAL TO ABOVE 0034D COMBINING LEFT RIGHT ARROW BELOW 0034E COMBINING UPWARDS ARROW BELOW 0034F COMBINING GRAPHEME JOINER 0034F CGJ 00350 COMBINING RIGHT ARROWHEAD ABOVE 00351 COMBINING LEFT HALF RING ABOVE 00352 COMBINING FERMATA 00353 COMBINING X BELOW 00354 COMBINING LEFT ARROWHEAD BELOW 00355 COMBINING RIGHT ARROWHEAD BELOW 00356 COMBINING RIGHT ARROWHEAD AND UP ARROWHEAD BELOW 00357 COMBINING RIGHT HALF RING ABOVE 00358 COMBINING DOT ABOVE RIGHT 00359 COMBINING ASTERISK BELOW 0035A COMBINING DOUBLE RING BELOW 0035B COMBINING ZIGZAG ABOVE 0035C COMBINING DOUBLE BREVE BELOW 0035D COMBINING DOUBLE BREVE 0035E COMBINING DOUBLE MACRON 0035F COMBINING DOUBLE MACRON BELOW 00360 COMBINING DOUBLE TILDE 00361 COMBINING DOUBLE INVERTED BREVE 00362 COMBINING DOUBLE RIGHTWARDS ARROW BELOW 00363 COMBINING LATIN SMALL LETTER A 00364 COMBINING LATIN SMALL LETTER E 00365 COMBINING LATIN SMALL LETTER I 00366 COMBINING LATIN SMALL LETTER O 00367 COMBINING LATIN SMALL LETTER U 00368 COMBINING LATIN SMALL LETTER C 00369 COMBINING LATIN SMALL LETTER D 0036A COMBINING LATIN SMALL LETTER H 0036B COMBINING LATIN SMALL LETTER M 0036C COMBINING LATIN SMALL LETTER R 0036D COMBINING LATIN SMALL LETTER T 0036E COMBINING LATIN SMALL LETTER V 0036F COMBINING LATIN SMALL LETTER X 00370 GREEK CAPITAL LETTER HETA 00371 GREEK SMALL LETTER HETA 00372 GREEK CAPITAL LETTER ARCHAIC SAMPI 00373 GREEK SMALL LETTER ARCHAIC SAMPI 00374 GREEK NUMERAL SIGN 00375 GREEK LOWER NUMERAL SIGN 00376 GREEK CAPITAL LETTER PAMPHYLIAN DIGAMMA 00377 GREEK SMALL LETTER PAMPHYLIAN DIGAMMA 0037A GREEK YPOGEGRAMMENI 0037B GREEK SMALL REVERSED LUNATE SIGMA SYMBOL 0037C GREEK SMALL DOTTED LUNATE SIGMA SYMBOL 0037D GREEK SMALL REVERSED DOTTED LUNATE SIGMA SYMBOL 0037E GREEK QUESTION MARK 0037F GREEK CAPITAL LETTER YOT 00384 GREEK TONOS 00385 GREEK DIALYTIKA TONOS 00386 GREEK CAPITAL LETTER ALPHA WITH TONOS 00387 GREEK ANO TELEIA 00388 GREEK CAPITAL LETTER EPSILON WITH TONOS 00389 GREEK CAPITAL LETTER ETA WITH TONOS 0038A GREEK CAPITAL LETTER IOTA WITH TONOS 0038C GREEK CAPITAL LETTER OMICRON WITH TONOS 0038E GREEK CAPITAL LETTER UPSILON WITH TONOS 0038F GREEK CAPITAL LETTER OMEGA WITH TONOS 00390 GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS 00391 GREEK CAPITAL LETTER ALPHA 00392 GREEK CAPITAL LETTER BETA 00393 GREEK CAPITAL LETTER GAMMA 00394 GREEK CAPITAL LETTER DELTA 00395 GREEK CAPITAL LETTER EPSILON 00396 GREEK CAPITAL LETTER ZETA 00397 GREEK CAPITAL LETTER ETA 00398 GREEK CAPITAL LETTER THETA 00399 GREEK CAPITAL LETTER IOTA 0039A GREEK CAPITAL LETTER KAPPA 0039B GREEK CAPITAL LETTER LAMDA 0039C GREEK CAPITAL LETTER MU 0039D GREEK CAPITAL LETTER NU 0039E GREEK CAPITAL LETTER XI 0039F GREEK CAPITAL LETTER OMICRON 003A0 GREEK CAPITAL LETTER PI 003A1 GREEK CAPITAL LETTER RHO 003A3 GREEK CAPITAL LETTER SIGMA 003A4 GREEK CAPITAL LETTER TAU 003A5 GREEK CAPITAL LETTER UPSILON 003A6 GREEK CAPITAL LETTER PHI 003A7 GREEK CAPITAL LETTER CHI 003A8 GREEK CAPITAL LETTER PSI 003A9 GREEK CAPITAL LETTER OMEGA 003AA GREEK CAPITAL LETTER IOTA WITH DIALYTIKA 003AB GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA 003AC GREEK SMALL LETTER ALPHA WITH TONOS 003AD GREEK SMALL LETTER EPSILON WITH TONOS 003AE GREEK SMALL LETTER ETA WITH TONOS 003AF GREEK SMALL LETTER IOTA WITH TONOS 003B0 GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS 003B1 GREEK SMALL LETTER ALPHA 003B2 GREEK SMALL LETTER BETA 003B3 GREEK SMALL LETTER GAMMA 003B4 GREEK SMALL LETTER DELTA 003B5 GREEK SMALL LETTER EPSILON 003B6 GREEK SMALL LETTER ZETA 003B7 GREEK SMALL LETTER ETA 003B8 GREEK SMALL LETTER THETA 003B9 GREEK SMALL LETTER IOTA 003BA GREEK SMALL LETTER KAPPA 003BB GREEK SMALL LETTER LAMDA 003BC GREEK SMALL LETTER MU 003BD GREEK SMALL LETTER NU 003BE GREEK SMALL LETTER XI 003BF GREEK SMALL LETTER OMICRON 003C0 GREEK SMALL LETTER PI 003C1 GREEK SMALL LETTER RHO 003C2 GREEK SMALL LETTER FINAL SIGMA 003C3 GREEK SMALL LETTER SIGMA 003C4 GREEK SMALL LETTER TAU 003C5 GREEK SMALL LETTER UPSILON 003C6 GREEK SMALL LETTER PHI 003C7 GREEK SMALL LETTER CHI 003C8 GREEK SMALL LETTER PSI 003C9 GREEK SMALL LETTER OMEGA 003CA GREEK SMALL LETTER IOTA WITH DIALYTIKA 003CB GREEK SMALL LETTER UPSILON WITH DIALYTIKA 003CC GREEK SMALL LETTER OMICRON WITH TONOS 003CD GREEK SMALL LETTER UPSILON WITH TONOS 003CE GREEK SMALL LETTER OMEGA WITH TONOS 003CF GREEK CAPITAL KAI SYMBOL 003D0 GREEK BETA SYMBOL 003D1 GREEK THETA SYMBOL 003D2 GREEK UPSILON WITH HOOK SYMBOL 003D3 GREEK UPSILON WITH ACUTE AND HOOK SYMBOL 003D4 GREEK UPSILON WITH DIAERESIS AND HOOK SYMBOL 003D5 GREEK PHI SYMBOL 003D6 GREEK PI SYMBOL 003D7 GREEK KAI SYMBOL 003D8 GREEK LETTER ARCHAIC KOPPA 003D9 GREEK SMALL LETTER ARCHAIC KOPPA 003DA GREEK LETTER STIGMA 003DB GREEK SMALL LETTER STIGMA 003DC GREEK LETTER DIGAMMA 003DD GREEK SMALL LETTER DIGAMMA 003DE GREEK LETTER KOPPA 003DF GREEK SMALL LETTER KOPPA 003E0 GREEK LETTER SAMPI 003E1 GREEK SMALL LETTER SAMPI 003E2 COPTIC CAPITAL LETTER SHEI 003E3 COPTIC SMALL LETTER SHEI 003E4 COPTIC CAPITAL LETTER FEI 003E5 COPTIC SMALL LETTER FEI 003E6 COPTIC CAPITAL LETTER KHEI 003E7 COPTIC SMALL LETTER KHEI 003E8 COPTIC CAPITAL LETTER HORI 003E9 COPTIC SMALL LETTER HORI 003EA COPTIC CAPITAL LETTER GANGIA 003EB COPTIC SMALL LETTER GANGIA 003EC COPTIC CAPITAL LETTER SHIMA 003ED COPTIC SMALL LETTER SHIMA 003EE COPTIC CAPITAL LETTER DEI 003EF COPTIC SMALL LETTER DEI 003F0 GREEK KAPPA SYMBOL 003F1 GREEK RHO SYMBOL 003F2 GREEK LUNATE SIGMA SYMBOL 003F3 GREEK LETTER YOT 003F4 GREEK CAPITAL THETA SYMBOL 003F5 GREEK LUNATE EPSILON SYMBOL 003F6 GREEK REVERSED LUNATE EPSILON SYMBOL 003F7 GREEK CAPITAL LETTER SHO 003F8 GREEK SMALL LETTER SHO 003F9 GREEK CAPITAL LUNATE SIGMA SYMBOL 003FA GREEK CAPITAL LETTER SAN 003FB GREEK SMALL LETTER SAN 003FC GREEK RHO WITH STROKE SYMBOL 003FD GREEK CAPITAL REVERSED LUNATE SIGMA SYMBOL 003FE GREEK CAPITAL DOTTED LUNATE SIGMA SYMBOL 003FF GREEK CAPITAL REVERSED DOTTED LUNATE SIGMA SYMBOL 00400 CYRILLIC CAPITAL LETTER IE WITH GRAVE 00401 CYRILLIC CAPITAL LETTER IO 00402 CYRILLIC CAPITAL LETTER DJE 00403 CYRILLIC CAPITAL LETTER GJE 00404 CYRILLIC CAPITAL LETTER UKRAINIAN IE 00405 CYRILLIC CAPITAL LETTER DZE 00406 CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I 00407 CYRILLIC CAPITAL LETTER YI 00408 CYRILLIC CAPITAL LETTER JE 00409 CYRILLIC CAPITAL LETTER LJE 0040A CYRILLIC CAPITAL LETTER NJE 0040B CYRILLIC CAPITAL LETTER TSHE 0040C CYRILLIC CAPITAL LETTER KJE 0040D CYRILLIC CAPITAL LETTER I WITH GRAVE 0040E CYRILLIC CAPITAL LETTER SHORT U 0040F CYRILLIC CAPITAL LETTER DZHE 00410 CYRILLIC CAPITAL LETTER A 00411 CYRILLIC CAPITAL LETTER BE 00412 CYRILLIC CAPITAL LETTER VE 00413 CYRILLIC CAPITAL LETTER GHE 00414 CYRILLIC CAPITAL LETTER DE 00415 CYRILLIC CAPITAL LETTER IE 00416 CYRILLIC CAPITAL LETTER ZHE 00417 CYRILLIC CAPITAL LETTER ZE 00418 CYRILLIC CAPITAL LETTER I 00419 CYRILLIC CAPITAL LETTER SHORT I 0041A CYRILLIC CAPITAL LETTER KA 0041B CYRILLIC CAPITAL LETTER EL 0041C CYRILLIC CAPITAL LETTER EM 0041D CYRILLIC CAPITAL LETTER EN 0041E CYRILLIC CAPITAL LETTER O 0041F CYRILLIC CAPITAL LETTER PE 00420 CYRILLIC CAPITAL LETTER ER 00421 CYRILLIC CAPITAL LETTER ES 00422 CYRILLIC CAPITAL LETTER TE 00423 CYRILLIC CAPITAL LETTER U 00424 CYRILLIC CAPITAL LETTER EF 00425 CYRILLIC CAPITAL LETTER HA 00426 CYRILLIC CAPITAL LETTER TSE 00427 CYRILLIC CAPITAL LETTER CHE 00428 CYRILLIC CAPITAL LETTER SHA 00429 CYRILLIC CAPITAL LETTER SHCHA 0042A CYRILLIC CAPITAL LETTER HARD SIGN 0042B CYRILLIC CAPITAL LETTER YERU 0042C CYRILLIC CAPITAL LETTER SOFT SIGN 0042D CYRILLIC CAPITAL LETTER E 0042E CYRILLIC CAPITAL LETTER YU 0042F CYRILLIC CAPITAL LETTER YA 00430 CYRILLIC SMALL LETTER A 00431 CYRILLIC SMALL LETTER BE 00432 CYRILLIC SMALL LETTER VE 00433 CYRILLIC SMALL LETTER GHE 00434 CYRILLIC SMALL LETTER DE 00435 CYRILLIC SMALL LETTER IE 00436 CYRILLIC SMALL LETTER ZHE 00437 CYRILLIC SMALL LETTER ZE 00438 CYRILLIC SMALL LETTER I 00439 CYRILLIC SMALL LETTER SHORT I 0043A CYRILLIC SMALL LETTER KA 0043B CYRILLIC SMALL LETTER EL 0043C CYRILLIC SMALL LETTER EM 0043D CYRILLIC SMALL LETTER EN 0043E CYRILLIC SMALL LETTER O 0043F CYRILLIC SMALL LETTER PE 00440 CYRILLIC SMALL LETTER ER 00441 CYRILLIC SMALL LETTER ES 00442 CYRILLIC SMALL LETTER TE 00443 CYRILLIC SMALL LETTER U 00444 CYRILLIC SMALL LETTER EF 00445 CYRILLIC SMALL LETTER HA 00446 CYRILLIC SMALL LETTER TSE 00447 CYRILLIC SMALL LETTER CHE 00448 CYRILLIC SMALL LETTER SHA 00449 CYRILLIC SMALL LETTER SHCHA 0044A CYRILLIC SMALL LETTER HARD SIGN 0044B CYRILLIC SMALL LETTER YERU 0044C CYRILLIC SMALL LETTER SOFT SIGN 0044D CYRILLIC SMALL LETTER E 0044E CYRILLIC SMALL LETTER YU 0044F CYRILLIC SMALL LETTER YA 00450 CYRILLIC SMALL LETTER IE WITH GRAVE 00451 CYRILLIC SMALL LETTER IO 00452 CYRILLIC SMALL LETTER DJE 00453 CYRILLIC SMALL LETTER GJE 00454 CYRILLIC SMALL LETTER UKRAINIAN IE 00455 CYRILLIC SMALL LETTER DZE 00456 CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I 00457 CYRILLIC SMALL LETTER YI 00458 CYRILLIC SMALL LETTER JE 00459 CYRILLIC SMALL LETTER LJE 0045A CYRILLIC SMALL LETTER NJE 0045B CYRILLIC SMALL LETTER TSHE 0045C CYRILLIC SMALL LETTER KJE 0045D CYRILLIC SMALL LETTER I WITH GRAVE 0045E CYRILLIC SMALL LETTER SHORT U 0045F CYRILLIC SMALL LETTER DZHE 00460 CYRILLIC CAPITAL LETTER OMEGA 00461 CYRILLIC SMALL LETTER OMEGA 00462 CYRILLIC CAPITAL LETTER YAT 00463 CYRILLIC SMALL LETTER YAT 00464 CYRILLIC CAPITAL LETTER IOTIFIED E 00465 CYRILLIC SMALL LETTER IOTIFIED E 00466 CYRILLIC CAPITAL LETTER LITTLE YUS 00467 CYRILLIC SMALL LETTER LITTLE YUS 00468 CYRILLIC CAPITAL LETTER IOTIFIED LITTLE YUS 00469 CYRILLIC SMALL LETTER IOTIFIED LITTLE YUS 0046A CYRILLIC CAPITAL LETTER BIG YUS 0046B CYRILLIC SMALL LETTER BIG YUS 0046C CYRILLIC CAPITAL LETTER IOTIFIED BIG YUS 0046D CYRILLIC SMALL LETTER IOTIFIED BIG YUS 0046E CYRILLIC CAPITAL LETTER KSI 0046F CYRILLIC SMALL LETTER KSI 00470 CYRILLIC CAPITAL LETTER PSI 00471 CYRILLIC SMALL LETTER PSI 00472 CYRILLIC CAPITAL LETTER FITA 00473 CYRILLIC SMALL LETTER FITA 00474 CYRILLIC CAPITAL LETTER IZHITSA 00475 CYRILLIC SMALL LETTER IZHITSA 00476 CYRILLIC CAPITAL LETTER IZHITSA WITH DOUBLE GRAVE ACCENT 00477 CYRILLIC SMALL LETTER IZHITSA WITH DOUBLE GRAVE ACCENT 00478 CYRILLIC CAPITAL LETTER UK 00479 CYRILLIC SMALL LETTER UK 0047A CYRILLIC CAPITAL LETTER ROUND OMEGA 0047B CYRILLIC SMALL LETTER ROUND OMEGA 0047C CYRILLIC CAPITAL LETTER OMEGA WITH TITLO 0047D CYRILLIC SMALL LETTER OMEGA WITH TITLO 0047E CYRILLIC CAPITAL LETTER OT 0047F CYRILLIC SMALL LETTER OT 00480 CYRILLIC CAPITAL LETTER KOPPA 00481 CYRILLIC SMALL LETTER KOPPA 00482 CYRILLIC THOUSANDS SIGN 00483 COMBINING CYRILLIC TITLO 00484 COMBINING CYRILLIC PALATALIZATION 00485 COMBINING CYRILLIC DASIA PNEUMATA 00486 COMBINING CYRILLIC PSILI PNEUMATA 00487 COMBINING CYRILLIC POKRYTIE 00488 COMBINING CYRILLIC HUNDRED THOUSANDS SIGN 00489 COMBINING CYRILLIC MILLIONS SIGN 0048A CYRILLIC CAPITAL LETTER SHORT I WITH TAIL 0048B CYRILLIC SMALL LETTER SHORT I WITH TAIL 0048C CYRILLIC CAPITAL LETTER SEMISOFT SIGN 0048D CYRILLIC SMALL LETTER SEMISOFT SIGN 0048E CYRILLIC CAPITAL LETTER ER WITH TICK 0048F CYRILLIC SMALL LETTER ER WITH TICK 00490 CYRILLIC CAPITAL LETTER GHE WITH UPTURN 00491 CYRILLIC SMALL LETTER GHE WITH UPTURN 00492 CYRILLIC CAPITAL LETTER GHE WITH STROKE 00493 CYRILLIC SMALL LETTER GHE WITH STROKE 00494 CYRILLIC CAPITAL LETTER GHE WITH MIDDLE HOOK 00495 CYRILLIC SMALL LETTER GHE WITH MIDDLE HOOK 00496 CYRILLIC CAPITAL LETTER ZHE WITH DESCENDER 00497 CYRILLIC SMALL LETTER ZHE WITH DESCENDER 00498 CYRILLIC CAPITAL LETTER ZE WITH DESCENDER 00499 CYRILLIC SMALL LETTER ZE WITH DESCENDER 0049A CYRILLIC CAPITAL LETTER KA WITH DESCENDER 0049B CYRILLIC SMALL LETTER KA WITH DESCENDER 0049C CYRILLIC CAPITAL LETTER KA WITH VERTICAL STROKE 0049D CYRILLIC SMALL LETTER KA WITH VERTICAL STROKE 0049E CYRILLIC CAPITAL LETTER KA WITH STROKE 0049F CYRILLIC SMALL LETTER KA WITH STROKE 004A0 CYRILLIC CAPITAL LETTER BASHKIR KA 004A1 CYRILLIC SMALL LETTER BASHKIR KA 004A2 CYRILLIC CAPITAL LETTER EN WITH DESCENDER 004A3 CYRILLIC SMALL LETTER EN WITH DESCENDER 004A4 CYRILLIC CAPITAL LIGATURE EN GHE 004A5 CYRILLIC SMALL LIGATURE EN GHE 004A6 CYRILLIC CAPITAL LETTER PE WITH MIDDLE HOOK 004A7 CYRILLIC SMALL LETTER PE WITH MIDDLE HOOK 004A8 CYRILLIC CAPITAL LETTER ABKHASIAN HA 004A9 CYRILLIC SMALL LETTER ABKHASIAN HA 004AA CYRILLIC CAPITAL LETTER ES WITH DESCENDER 004AB CYRILLIC SMALL LETTER ES WITH DESCENDER 004AC CYRILLIC CAPITAL LETTER TE WITH DESCENDER 004AD CYRILLIC SMALL LETTER TE WITH DESCENDER 004AE CYRILLIC CAPITAL LETTER STRAIGHT U 004AF CYRILLIC SMALL LETTER STRAIGHT U 004B0 CYRILLIC CAPITAL LETTER STRAIGHT U WITH STROKE 004B1 CYRILLIC SMALL LETTER STRAIGHT U WITH STROKE 004B2 CYRILLIC CAPITAL LETTER HA WITH DESCENDER 004B3 CYRILLIC SMALL LETTER HA WITH DESCENDER 004B4 CYRILLIC CAPITAL LIGATURE TE TSE 004B5 CYRILLIC SMALL LIGATURE TE TSE 004B6 CYRILLIC CAPITAL LETTER CHE WITH DESCENDER 004B7 CYRILLIC SMALL LETTER CHE WITH DESCENDER 004B8 CYRILLIC CAPITAL LETTER CHE WITH VERTICAL STROKE 004B9 CYRILLIC SMALL LETTER CHE WITH VERTICAL STROKE 004BA CYRILLIC CAPITAL LETTER SHHA 004BB CYRILLIC SMALL LETTER SHHA 004BC CYRILLIC CAPITAL LETTER ABKHASIAN CHE 004BD CYRILLIC SMALL LETTER ABKHASIAN CHE 004BE CYRILLIC CAPITAL LETTER ABKHASIAN CHE WITH DESCENDER 004BF CYRILLIC SMALL LETTER ABKHASIAN CHE WITH DESCENDER 004C0 CYRILLIC LETTER PALOCHKA 004C1 CYRILLIC CAPITAL LETTER ZHE WITH BREVE 004C2 CYRILLIC SMALL LETTER ZHE WITH BREVE 004C3 CYRILLIC CAPITAL LETTER KA WITH HOOK 004C4 CYRILLIC SMALL LETTER KA WITH HOOK 004C5 CYRILLIC CAPITAL LETTER EL WITH TAIL 004C6 CYRILLIC SMALL LETTER EL WITH TAIL 004C7 CYRILLIC CAPITAL LETTER EN WITH HOOK 004C8 CYRILLIC SMALL LETTER EN WITH HOOK 004C9 CYRILLIC CAPITAL LETTER EN WITH TAIL 004CA CYRILLIC SMALL LETTER EN WITH TAIL 004CB CYRILLIC CAPITAL LETTER KHAKASSIAN CHE 004CC CYRILLIC SMALL LETTER KHAKASSIAN CHE 004CD CYRILLIC CAPITAL LETTER EM WITH TAIL 004CE CYRILLIC SMALL LETTER EM WITH TAIL 004CF CYRILLIC SMALL LETTER PALOCHKA 004D0 CYRILLIC CAPITAL LETTER A WITH BREVE 004D1 CYRILLIC SMALL LETTER A WITH BREVE 004D2 CYRILLIC CAPITAL LETTER A WITH DIAERESIS 004D3 CYRILLIC SMALL LETTER A WITH DIAERESIS 004D4 CYRILLIC CAPITAL LIGATURE A IE 004D5 CYRILLIC SMALL LIGATURE A IE 004D6 CYRILLIC CAPITAL LETTER IE WITH BREVE 004D7 CYRILLIC SMALL LETTER IE WITH BREVE 004D8 CYRILLIC CAPITAL LETTER SCHWA 004D9 CYRILLIC SMALL LETTER SCHWA 004DA CYRILLIC CAPITAL LETTER SCHWA WITH DIAERESIS 004DB CYRILLIC SMALL LETTER SCHWA WITH DIAERESIS 004DC CYRILLIC CAPITAL LETTER ZHE WITH DIAERESIS 004DD CYRILLIC SMALL LETTER ZHE WITH DIAERESIS 004DE CYRILLIC CAPITAL LETTER ZE WITH DIAERESIS 004DF CYRILLIC SMALL LETTER ZE WITH DIAERESIS 004E0 CYRILLIC CAPITAL LETTER ABKHASIAN DZE 004E1 CYRILLIC SMALL LETTER ABKHASIAN DZE 004E2 CYRILLIC CAPITAL LETTER I WITH MACRON 004E3 CYRILLIC SMALL LETTER I WITH MACRON 004E4 CYRILLIC CAPITAL LETTER I WITH DIAERESIS 004E5 CYRILLIC SMALL LETTER I WITH DIAERESIS 004E6 CYRILLIC CAPITAL LETTER O WITH DIAERESIS 004E7 CYRILLIC SMALL LETTER O WITH DIAERESIS 004E8 CYRILLIC CAPITAL LETTER BARRED O 004E9 CYRILLIC SMALL LETTER BARRED O 004EA CYRILLIC CAPITAL LETTER BARRED O WITH DIAERESIS 004EB CYRILLIC SMALL LETTER BARRED O WITH DIAERESIS 004EC CYRILLIC CAPITAL LETTER E WITH DIAERESIS 004ED CYRILLIC SMALL LETTER E WITH DIAERESIS 004EE CYRILLIC CAPITAL LETTER U WITH MACRON 004EF CYRILLIC SMALL LETTER U WITH MACRON 004F0 CYRILLIC CAPITAL LETTER U WITH DIAERESIS 004F1 CYRILLIC SMALL LETTER U WITH DIAERESIS 004F2 CYRILLIC CAPITAL LETTER U WITH DOUBLE ACUTE 004F3 CYRILLIC SMALL LETTER U WITH DOUBLE ACUTE 004F4 CYRILLIC CAPITAL LETTER CHE WITH DIAERESIS 004F5 CYRILLIC SMALL LETTER CHE WITH DIAERESIS 004F6 CYRILLIC CAPITAL LETTER GHE WITH DESCENDER 004F7 CYRILLIC SMALL LETTER GHE WITH DESCENDER 004F8 CYRILLIC CAPITAL LETTER YERU WITH DIAERESIS 004F9 CYRILLIC SMALL LETTER YERU WITH DIAERESIS 004FA CYRILLIC CAPITAL LETTER GHE WITH STROKE AND HOOK 004FB CYRILLIC SMALL LETTER GHE WITH STROKE AND HOOK 004FC CYRILLIC CAPITAL LETTER HA WITH HOOK 004FD CYRILLIC SMALL LETTER HA WITH HOOK 004FE CYRILLIC CAPITAL LETTER HA WITH STROKE 004FF CYRILLIC SMALL LETTER HA WITH STROKE 00500 CYRILLIC CAPITAL LETTER KOMI DE 00501 CYRILLIC SMALL LETTER KOMI DE 00502 CYRILLIC CAPITAL LETTER KOMI DJE 00503 CYRILLIC SMALL LETTER KOMI DJE 00504 CYRILLIC CAPITAL LETTER KOMI ZJE 00505 CYRILLIC SMALL LETTER KOMI ZJE 00506 CYRILLIC CAPITAL LETTER KOMI DZJE 00507 CYRILLIC SMALL LETTER KOMI DZJE 00508 CYRILLIC CAPITAL LETTER KOMI LJE 00509 CYRILLIC SMALL LETTER KOMI LJE 0050A CYRILLIC CAPITAL LETTER KOMI NJE 0050B CYRILLIC SMALL LETTER KOMI NJE 0050C CYRILLIC CAPITAL LETTER KOMI SJE 0050D CYRILLIC SMALL LETTER KOMI SJE 0050E CYRILLIC CAPITAL LETTER KOMI TJE 0050F CYRILLIC SMALL LETTER KOMI TJE 00510 CYRILLIC CAPITAL LETTER REVERSED ZE 00511 CYRILLIC SMALL LETTER REVERSED ZE 00512 CYRILLIC CAPITAL LETTER EL WITH HOOK 00513 CYRILLIC SMALL LETTER EL WITH HOOK 00514 CYRILLIC CAPITAL LETTER LHA 00515 CYRILLIC SMALL LETTER LHA 00516 CYRILLIC CAPITAL LETTER RHA 00517 CYRILLIC SMALL LETTER RHA 00518 CYRILLIC CAPITAL LETTER YAE 00519 CYRILLIC SMALL LETTER YAE 0051A CYRILLIC CAPITAL LETTER QA 0051B CYRILLIC SMALL LETTER QA 0051C CYRILLIC CAPITAL LETTER WE 0051D CYRILLIC SMALL LETTER WE 0051E CYRILLIC CAPITAL LETTER ALEUT KA 0051F CYRILLIC SMALL LETTER ALEUT KA 00520 CYRILLIC CAPITAL LETTER EL WITH MIDDLE HOOK 00521 CYRILLIC SMALL LETTER EL WITH MIDDLE HOOK 00522 CYRILLIC CAPITAL LETTER EN WITH MIDDLE HOOK 00523 CYRILLIC SMALL LETTER EN WITH MIDDLE HOOK 00524 CYRILLIC CAPITAL LETTER PE WITH DESCENDER 00525 CYRILLIC SMALL LETTER PE WITH DESCENDER 00526 CYRILLIC CAPITAL LETTER SHHA WITH DESCENDER 00527 CYRILLIC SMALL LETTER SHHA WITH DESCENDER 00528 CYRILLIC CAPITAL LETTER EN WITH LEFT HOOK 00529 CYRILLIC SMALL LETTER EN WITH LEFT HOOK 0052A CYRILLIC CAPITAL LETTER DZZHE 0052B CYRILLIC SMALL LETTER DZZHE 0052C CYRILLIC CAPITAL LETTER DCHE 0052D CYRILLIC SMALL LETTER DCHE 0052E CYRILLIC CAPITAL LETTER EL WITH DESCENDER 0052F CYRILLIC SMALL LETTER EL WITH DESCENDER 00531 ARMENIAN CAPITAL LETTER AYB 00532 ARMENIAN CAPITAL LETTER BEN 00533 ARMENIAN CAPITAL LETTER GIM 00534 ARMENIAN CAPITAL LETTER DA 00535 ARMENIAN CAPITAL LETTER ECH 00536 ARMENIAN CAPITAL LETTER ZA 00537 ARMENIAN CAPITAL LETTER EH 00538 ARMENIAN CAPITAL LETTER ET 00539 ARMENIAN CAPITAL LETTER TO 0053A ARMENIAN CAPITAL LETTER ZHE 0053B ARMENIAN CAPITAL LETTER INI 0053C ARMENIAN CAPITAL LETTER LIWN 0053D ARMENIAN CAPITAL LETTER XEH 0053E ARMENIAN CAPITAL LETTER CA 0053F ARMENIAN CAPITAL LETTER KEN 00540 ARMENIAN CAPITAL LETTER HO 00541 ARMENIAN CAPITAL LETTER JA 00542 ARMENIAN CAPITAL LETTER GHAD 00543 ARMENIAN CAPITAL LETTER CHEH 00544 ARMENIAN CAPITAL LETTER MEN 00545 ARMENIAN CAPITAL LETTER YI 00546 ARMENIAN CAPITAL LETTER NOW 00547 ARMENIAN CAPITAL LETTER SHA 00548 ARMENIAN CAPITAL LETTER VO 00549 ARMENIAN CAPITAL LETTER CHA 0054A ARMENIAN CAPITAL LETTER PEH 0054B ARMENIAN CAPITAL LETTER JHEH 0054C ARMENIAN CAPITAL LETTER RA 0054D ARMENIAN CAPITAL LETTER SEH 0054E ARMENIAN CAPITAL LETTER VEW 0054F ARMENIAN CAPITAL LETTER TIWN 00550 ARMENIAN CAPITAL LETTER REH 00551 ARMENIAN CAPITAL LETTER CO 00552 ARMENIAN CAPITAL LETTER YIWN 00553 ARMENIAN CAPITAL LETTER PIWR 00554 ARMENIAN CAPITAL LETTER KEH 00555 ARMENIAN CAPITAL LETTER OH 00556 ARMENIAN CAPITAL LETTER FEH 00559 ARMENIAN MODIFIER LETTER LEFT HALF RING 0055A ARMENIAN APOSTROPHE 0055B ARMENIAN EMPHASIS MARK 0055C ARMENIAN EXCLAMATION MARK 0055D ARMENIAN COMMA 0055E ARMENIAN QUESTION MARK 0055F ARMENIAN ABBREVIATION MARK 00560 ARMENIAN SMALL LETTER TURNED AYB 00561 ARMENIAN SMALL LETTER AYB 00562 ARMENIAN SMALL LETTER BEN 00563 ARMENIAN SMALL LETTER GIM 00564 ARMENIAN SMALL LETTER DA 00565 ARMENIAN SMALL LETTER ECH 00566 ARMENIAN SMALL LETTER ZA 00567 ARMENIAN SMALL LETTER EH 00568 ARMENIAN SMALL LETTER ET 00569 ARMENIAN SMALL LETTER TO 0056A ARMENIAN SMALL LETTER ZHE 0056B ARMENIAN SMALL LETTER INI 0056C ARMENIAN SMALL LETTER LIWN 0056D ARMENIAN SMALL LETTER XEH 0056E ARMENIAN SMALL LETTER CA 0056F ARMENIAN SMALL LETTER KEN 00570 ARMENIAN SMALL LETTER HO 00571 ARMENIAN SMALL LETTER JA 00572 ARMENIAN SMALL LETTER GHAD 00573 ARMENIAN SMALL LETTER CHEH 00574 ARMENIAN SMALL LETTER MEN 00575 ARMENIAN SMALL LETTER YI 00576 ARMENIAN SMALL LETTER NOW 00577 ARMENIAN SMALL LETTER SHA 00578 ARMENIAN SMALL LETTER VO 00579 ARMENIAN SMALL LETTER CHA 0057A ARMENIAN SMALL LETTER PEH 0057B ARMENIAN SMALL LETTER JHEH 0057C ARMENIAN SMALL LETTER RA 0057D ARMENIAN SMALL LETTER SEH 0057E ARMENIAN SMALL LETTER VEW 0057F ARMENIAN SMALL LETTER TIWN 00580 ARMENIAN SMALL LETTER REH 00581 ARMENIAN SMALL LETTER CO 00582 ARMENIAN SMALL LETTER YIWN 00583 ARMENIAN SMALL LETTER PIWR 00584 ARMENIAN SMALL LETTER KEH 00585 ARMENIAN SMALL LETTER OH 00586 ARMENIAN SMALL LETTER FEH 00587 ARMENIAN SMALL LIGATURE ECH YIWN 00588 ARMENIAN SMALL LETTER YI WITH STROKE 00589 ARMENIAN FULL STOP 0058A ARMENIAN HYPHEN 0058D RIGHT-FACING ARMENIAN ETERNITY SIGN 0058E LEFT-FACING ARMENIAN ETERNITY SIGN 0058F ARMENIAN DRAM SIGN 00591 HEBREW ACCENT ETNAHTA 00592 HEBREW ACCENT SEGOL 00593 HEBREW ACCENT SHALSHELET 00594 HEBREW ACCENT ZAQEF QATAN 00595 HEBREW ACCENT ZAQEF GADOL 00596 HEBREW ACCENT TIPEHA 00597 HEBREW ACCENT REVIA 00598 HEBREW ACCENT ZARQA 00599 HEBREW ACCENT PASHTA 0059A HEBREW ACCENT YETIV 0059B HEBREW ACCENT TEVIR 0059C HEBREW ACCENT GERESH 0059D HEBREW ACCENT GERESH MUQDAM 0059E HEBREW ACCENT GERSHAYIM 0059F HEBREW ACCENT QARNEY PARA 005A0 HEBREW ACCENT TELISHA GEDOLA 005A1 HEBREW ACCENT PAZER 005A2 HEBREW ACCENT ATNAH HAFUKH 005A3 HEBREW ACCENT MUNAH 005A4 HEBREW ACCENT MAHAPAKH 005A5 HEBREW ACCENT MERKHA 005A6 HEBREW ACCENT MERKHA KEFULA 005A7 HEBREW ACCENT DARGA 005A8 HEBREW ACCENT QADMA 005A9 HEBREW ACCENT TELISHA QETANA 005AA HEBREW ACCENT YERAH BEN YOMO 005AB HEBREW ACCENT OLE 005AC HEBREW ACCENT ILUY 005AD HEBREW ACCENT DEHI 005AE HEBREW ACCENT ZINOR 005AF HEBREW MARK MASORA CIRCLE 005B0 HEBREW POINT SHEVA 005B1 HEBREW POINT HATAF SEGOL 005B2 HEBREW POINT HATAF PATAH 005B3 HEBREW POINT HATAF QAMATS 005B4 HEBREW POINT HIRIQ 005B5 HEBREW POINT TSERE 005B6 HEBREW POINT SEGOL 005B7 HEBREW POINT PATAH 005B8 HEBREW POINT QAMATS 005B9 HEBREW POINT HOLAM 005BA HEBREW POINT HOLAM HASER FOR VAV 005BB HEBREW POINT QUBUTS 005BC HEBREW POINT DAGESH OR MAPIQ 005BD HEBREW POINT METEG 005BE HEBREW PUNCTUATION MAQAF 005BF HEBREW POINT RAFE 005C0 HEBREW PUNCTUATION PASEQ 005C1 HEBREW POINT SHIN DOT 005C2 HEBREW POINT SIN DOT 005C3 HEBREW PUNCTUATION SOF PASUQ 005C4 HEBREW MARK UPPER DOT 005C5 HEBREW MARK LOWER DOT 005C6 HEBREW PUNCTUATION NUN HAFUKHA 005C7 HEBREW POINT QAMATS QATAN 005D0 HEBREW LETTER ALEF 005D1 HEBREW LETTER BET 005D2 HEBREW LETTER GIMEL 005D3 HEBREW LETTER DALET 005D4 HEBREW LETTER HE 005D5 HEBREW LETTER VAV 005D6 HEBREW LETTER ZAYIN 005D7 HEBREW LETTER HET 005D8 HEBREW LETTER TET 005D9 HEBREW LETTER YOD 005DA HEBREW LETTER FINAL KAF 005DB HEBREW LETTER KAF 005DC HEBREW LETTER LAMED 005DD HEBREW LETTER FINAL MEM 005DE HEBREW LETTER MEM 005DF HEBREW LETTER FINAL NUN 005E0 HEBREW LETTER NUN 005E1 HEBREW LETTER SAMEKH 005E2 HEBREW LETTER AYIN 005E3 HEBREW LETTER FINAL PE 005E4 HEBREW LETTER PE 005E5 HEBREW LETTER FINAL TSADI 005E6 HEBREW LETTER TSADI 005E7 HEBREW LETTER QOF 005E8 HEBREW LETTER RESH 005E9 HEBREW LETTER SHIN 005EA HEBREW LETTER TAV 005EF HEBREW YOD TRIANGLE 005F0 HEBREW LIGATURE YIDDISH DOUBLE VAV 005F1 HEBREW LIGATURE YIDDISH VAV YOD 005F2 HEBREW LIGATURE YIDDISH DOUBLE YOD 005F3 HEBREW PUNCTUATION GERESH 005F4 HEBREW PUNCTUATION GERSHAYIM 00600 ARABIC NUMBER SIGN 00601 ARABIC SIGN SANAH 00602 ARABIC FOOTNOTE MARKER 00603 ARABIC SIGN SAFHA 00604 ARABIC SIGN SAMVAT 00605 ARABIC NUMBER MARK ABOVE 00606 ARABIC-INDIC CUBE ROOT 00607 ARABIC-INDIC FOURTH ROOT 00608 ARABIC RAY 00609 ARABIC-INDIC PER MILLE SIGN 0060A ARABIC-INDIC PER TEN THOUSAND SIGN 0060B AFGHANI SIGN 0060C ARABIC COMMA 0060D ARABIC DATE SEPARATOR 0060E ARABIC POETIC VERSE SIGN 0060F ARABIC SIGN MISRA 00610 ARABIC SIGN SALLALLAHOU ALAYHE WASSALLAM 00611 ARABIC SIGN ALAYHE ASSALLAM 00612 ARABIC SIGN RAHMATULLAH ALAYHE 00613 ARABIC SIGN RADI ALLAHOU ANHU 00614 ARABIC SIGN TAKHALLUS 00615 ARABIC SMALL HIGH TAH 00616 ARABIC SMALL HIGH LIGATURE ALEF WITH LAM WITH YEH 00617 ARABIC SMALL HIGH ZAIN 00618 ARABIC SMALL FATHA 00619 ARABIC SMALL DAMMA 0061A ARABIC SMALL KASRA 0061B ARABIC SEMICOLON 0061C ARABIC LETTER MARK 0061C ALM 0061E ARABIC TRIPLE DOT PUNCTUATION MARK 0061F ARABIC QUESTION MARK 00620 ARABIC LETTER KASHMIRI YEH 00621 ARABIC LETTER HAMZA 00622 ARABIC LETTER ALEF WITH MADDA ABOVE 00623 ARABIC LETTER ALEF WITH HAMZA ABOVE 00624 ARABIC LETTER WAW WITH HAMZA ABOVE 00625 ARABIC LETTER ALEF WITH HAMZA BELOW 00626 ARABIC LETTER YEH WITH HAMZA ABOVE 00627 ARABIC LETTER ALEF 00628 ARABIC LETTER BEH 00629 ARABIC LETTER TEH MARBUTA 0062A ARABIC LETTER TEH 0062B ARABIC LETTER THEH 0062C ARABIC LETTER JEEM 0062D ARABIC LETTER HAH 0062E ARABIC LETTER KHAH 0062F ARABIC LETTER DAL 00630 ARABIC LETTER THAL 00631 ARABIC LETTER REH 00632 ARABIC LETTER ZAIN 00633 ARABIC LETTER SEEN 00634 ARABIC LETTER SHEEN 00635 ARABIC LETTER SAD 00636 ARABIC LETTER DAD 00637 ARABIC LETTER TAH 00638 ARABIC LETTER ZAH 00639 ARABIC LETTER AIN 0063A ARABIC LETTER GHAIN 0063B ARABIC LETTER KEHEH WITH TWO DOTS ABOVE 0063C ARABIC LETTER KEHEH WITH THREE DOTS BELOW 0063D ARABIC LETTER FARSI YEH WITH INVERTED V 0063E ARABIC LETTER FARSI YEH WITH TWO DOTS ABOVE 0063F ARABIC LETTER FARSI YEH WITH THREE DOTS ABOVE 00640 ARABIC TATWEEL 00641 ARABIC LETTER FEH 00642 ARABIC LETTER QAF 00643 ARABIC LETTER KAF 00644 ARABIC LETTER LAM 00645 ARABIC LETTER MEEM 00646 ARABIC LETTER NOON 00647 ARABIC LETTER HEH 00648 ARABIC LETTER WAW 00649 ARABIC LETTER ALEF MAKSURA 0064A ARABIC LETTER YEH 0064B ARABIC FATHATAN 0064C ARABIC DAMMATAN 0064D ARABIC KASRATAN 0064E ARABIC FATHA 0064F ARABIC DAMMA 00650 ARABIC KASRA 00651 ARABIC SHADDA 00652 ARABIC SUKUN 00653 ARABIC MADDAH ABOVE 00654 ARABIC HAMZA ABOVE 00655 ARABIC HAMZA BELOW 00656 ARABIC SUBSCRIPT ALEF 00657 ARABIC INVERTED DAMMA 00658 ARABIC MARK NOON GHUNNA 00659 ARABIC ZWARAKAY 0065A ARABIC VOWEL SIGN SMALL V ABOVE 0065B ARABIC VOWEL SIGN INVERTED SMALL V ABOVE 0065C ARABIC VOWEL SIGN DOT BELOW 0065D ARABIC REVERSED DAMMA 0065E ARABIC FATHA WITH TWO DOTS 0065F ARABIC WAVY HAMZA BELOW 00660 ARABIC-INDIC DIGIT ZERO 00661 ARABIC-INDIC DIGIT ONE 00662 ARABIC-INDIC DIGIT TWO 00663 ARABIC-INDIC DIGIT THREE 00664 ARABIC-INDIC DIGIT FOUR 00665 ARABIC-INDIC DIGIT FIVE 00666 ARABIC-INDIC DIGIT SIX 00667 ARABIC-INDIC DIGIT SEVEN 00668 ARABIC-INDIC DIGIT EIGHT 00669 ARABIC-INDIC DIGIT NINE 0066A ARABIC PERCENT SIGN 0066B ARABIC DECIMAL SEPARATOR 0066C ARABIC THOUSANDS SEPARATOR 0066D ARABIC FIVE POINTED STAR 0066E ARABIC LETTER DOTLESS BEH 0066F ARABIC LETTER DOTLESS QAF 00670 ARABIC LETTER SUPERSCRIPT ALEF 00671 ARABIC LETTER ALEF WASLA 00672 ARABIC LETTER ALEF WITH WAVY HAMZA ABOVE 00673 ARABIC LETTER ALEF WITH WAVY HAMZA BELOW 00674 ARABIC LETTER HIGH HAMZA 00675 ARABIC LETTER HIGH HAMZA ALEF 00676 ARABIC LETTER HIGH HAMZA WAW 00677 ARABIC LETTER U WITH HAMZA ABOVE 00678 ARABIC LETTER HIGH HAMZA YEH 00679 ARABIC LETTER TTEH 0067A ARABIC LETTER TTEHEH 0067B ARABIC LETTER BEEH 0067C ARABIC LETTER TEH WITH RING 0067D ARABIC LETTER TEH WITH THREE DOTS ABOVE DOWNWARDS 0067E ARABIC LETTER PEH 0067F ARABIC LETTER TEHEH 00680 ARABIC LETTER BEHEH 00681 ARABIC LETTER HAH WITH HAMZA ABOVE 00682 ARABIC LETTER HAH WITH TWO DOTS VERTICAL ABOVE 00683 ARABIC LETTER NYEH 00684 ARABIC LETTER DYEH 00685 ARABIC LETTER HAH WITH THREE DOTS ABOVE 00686 ARABIC LETTER TCHEH 00687 ARABIC LETTER TCHEHEH 00688 ARABIC LETTER DDAL 00689 ARABIC LETTER DAL WITH RING 0068A ARABIC LETTER DAL WITH DOT BELOW 0068B ARABIC LETTER DAL WITH DOT BELOW AND SMALL TAH 0068C ARABIC LETTER DAHAL 0068D ARABIC LETTER DDAHAL 0068E ARABIC LETTER DUL 0068F ARABIC LETTER DAL WITH THREE DOTS ABOVE DOWNWARDS 00690 ARABIC LETTER DAL WITH FOUR DOTS ABOVE 00691 ARABIC LETTER RREH 00692 ARABIC LETTER REH WITH SMALL V 00693 ARABIC LETTER REH WITH RING 00694 ARABIC LETTER REH WITH DOT BELOW 00695 ARABIC LETTER REH WITH SMALL V BELOW 00696 ARABIC LETTER REH WITH DOT BELOW AND DOT ABOVE 00697 ARABIC LETTER REH WITH TWO DOTS ABOVE 00698 ARABIC LETTER JEH 00699 ARABIC LETTER REH WITH FOUR DOTS ABOVE 0069A ARABIC LETTER SEEN WITH DOT BELOW AND DOT ABOVE 0069B ARABIC LETTER SEEN WITH THREE DOTS BELOW 0069C ARABIC LETTER SEEN WITH THREE DOTS BELOW AND THREE DOTS ABOVE 0069D ARABIC LETTER SAD WITH TWO DOTS BELOW 0069E ARABIC LETTER SAD WITH THREE DOTS ABOVE 0069F ARABIC LETTER TAH WITH THREE DOTS ABOVE 006A0 ARABIC LETTER AIN WITH THREE DOTS ABOVE 006A1 ARABIC LETTER DOTLESS FEH 006A2 ARABIC LETTER FEH WITH DOT MOVED BELOW 006A3 ARABIC LETTER FEH WITH DOT BELOW 006A4 ARABIC LETTER VEH 006A5 ARABIC LETTER FEH WITH THREE DOTS BELOW 006A6 ARABIC LETTER PEHEH 006A7 ARABIC LETTER QAF WITH DOT ABOVE 006A8 ARABIC LETTER QAF WITH THREE DOTS ABOVE 006A9 ARABIC LETTER KEHEH 006AA ARABIC LETTER SWASH KAF 006AB ARABIC LETTER KAF WITH RING 006AC ARABIC LETTER KAF WITH DOT ABOVE 006AD ARABIC LETTER NG 006AE ARABIC LETTER KAF WITH THREE DOTS BELOW 006AF ARABIC LETTER GAF 006B0 ARABIC LETTER GAF WITH RING 006B1 ARABIC LETTER NGOEH 006B2 ARABIC LETTER GAF WITH TWO DOTS BELOW 006B3 ARABIC LETTER GUEH 006B4 ARABIC LETTER GAF WITH THREE DOTS ABOVE 006B5 ARABIC LETTER LAM WITH SMALL V 006B6 ARABIC LETTER LAM WITH DOT ABOVE 006B7 ARABIC LETTER LAM WITH THREE DOTS ABOVE 006B8 ARABIC LETTER LAM WITH THREE DOTS BELOW 006B9 ARABIC LETTER NOON WITH DOT BELOW 006BA ARABIC LETTER NOON GHUNNA 006BB ARABIC LETTER RNOON 006BC ARABIC LETTER NOON WITH RING 006BD ARABIC LETTER NOON WITH THREE DOTS ABOVE 006BE ARABIC LETTER HEH DOACHASHMEE 006BF ARABIC LETTER TCHEH WITH DOT ABOVE 006C0 ARABIC LETTER HEH WITH YEH ABOVE 006C1 ARABIC LETTER HEH GOAL 006C2 ARABIC LETTER HEH GOAL WITH HAMZA ABOVE 006C3 ARABIC LETTER TEH MARBUTA GOAL 006C4 ARABIC LETTER WAW WITH RING 006C5 ARABIC LETTER KIRGHIZ OE 006C6 ARABIC LETTER OE 006C7 ARABIC LETTER U 006C8 ARABIC LETTER YU 006C9 ARABIC LETTER KIRGHIZ YU 006CA ARABIC LETTER WAW WITH TWO DOTS ABOVE 006CB ARABIC LETTER VE 006CC ARABIC LETTER FARSI YEH 006CD ARABIC LETTER YEH WITH TAIL 006CE ARABIC LETTER YEH WITH SMALL V 006CF ARABIC LETTER WAW WITH DOT ABOVE 006D0 ARABIC LETTER E 006D1 ARABIC LETTER YEH WITH THREE DOTS BELOW 006D2 ARABIC LETTER YEH BARREE 006D3 ARABIC LETTER YEH BARREE WITH HAMZA ABOVE 006D4 ARABIC FULL STOP 006D5 ARABIC LETTER AE 006D6 ARABIC SMALL HIGH LIGATURE SAD WITH LAM WITH ALEF MAKSURA 006D7 ARABIC SMALL HIGH LIGATURE QAF WITH LAM WITH ALEF MAKSURA 006D8 ARABIC SMALL HIGH MEEM INITIAL FORM 006D9 ARABIC SMALL HIGH LAM ALEF 006DA ARABIC SMALL HIGH JEEM 006DB ARABIC SMALL HIGH THREE DOTS 006DC ARABIC SMALL HIGH SEEN 006DD ARABIC END OF AYAH 006DE ARABIC START OF RUB EL HIZB 006DF ARABIC SMALL HIGH ROUNDED ZERO 006E0 ARABIC SMALL HIGH UPRIGHT RECTANGULAR ZERO 006E1 ARABIC SMALL HIGH DOTLESS HEAD OF KHAH 006E2 ARABIC SMALL HIGH MEEM ISOLATED FORM 006E3 ARABIC SMALL LOW SEEN 006E4 ARABIC SMALL HIGH MADDA 006E5 ARABIC SMALL WAW 006E6 ARABIC SMALL YEH 006E7 ARABIC SMALL HIGH YEH 006E8 ARABIC SMALL HIGH NOON 006E9 ARABIC PLACE OF SAJDAH 006EA ARABIC EMPTY CENTRE LOW STOP 006EB ARABIC EMPTY CENTRE HIGH STOP 006EC ARABIC ROUNDED HIGH STOP WITH FILLED CENTRE 006ED ARABIC SMALL LOW MEEM 006EE ARABIC LETTER DAL WITH INVERTED V 006EF ARABIC LETTER REH WITH INVERTED V 006F0 EXTENDED ARABIC-INDIC DIGIT ZERO 006F1 EXTENDED ARABIC-INDIC DIGIT ONE 006F2 EXTENDED ARABIC-INDIC DIGIT TWO 006F3 EXTENDED ARABIC-INDIC DIGIT THREE 006F4 EXTENDED ARABIC-INDIC DIGIT FOUR 006F5 EXTENDED ARABIC-INDIC DIGIT FIVE 006F6 EXTENDED ARABIC-INDIC DIGIT SIX 006F7 EXTENDED ARABIC-INDIC DIGIT SEVEN 006F8 EXTENDED ARABIC-INDIC DIGIT EIGHT 006F9 EXTENDED ARABIC-INDIC DIGIT NINE 006FA ARABIC LETTER SHEEN WITH DOT BELOW 006FB ARABIC LETTER DAD WITH DOT BELOW 006FC ARABIC LETTER GHAIN WITH DOT BELOW 006FD ARABIC SIGN SINDHI AMPERSAND 006FE ARABIC SIGN SINDHI POSTPOSITION MEN 006FF ARABIC LETTER HEH WITH INVERTED V 00700 SYRIAC END OF PARAGRAPH 00701 SYRIAC SUPRALINEAR FULL STOP 00702 SYRIAC SUBLINEAR FULL STOP 00703 SYRIAC SUPRALINEAR COLON 00704 SYRIAC SUBLINEAR COLON 00705 SYRIAC HORIZONTAL COLON 00706 SYRIAC COLON SKEWED LEFT 00707 SYRIAC COLON SKEWED RIGHT 00708 SYRIAC SUPRALINEAR COLON SKEWED LEFT 00709 SYRIAC SUBLINEAR COLON SKEWED LEFT 00709 SYRIAC SUBLINEAR COLON SKEWED RIGHT 0070A SYRIAC CONTRACTION 0070B SYRIAC HARKLEAN OBELUS 0070C SYRIAC HARKLEAN METOBELUS 0070D SYRIAC HARKLEAN ASTERISCUS 0070F SYRIAC ABBREVIATION MARK 00710 SYRIAC LETTER ALAPH 00711 SYRIAC LETTER SUPERSCRIPT ALAPH 00712 SYRIAC LETTER BETH 00713 SYRIAC LETTER GAMAL 00714 SYRIAC LETTER GAMAL GARSHUNI 00715 SYRIAC LETTER DALATH 00716 SYRIAC LETTER DOTLESS DALATH RISH 00717 SYRIAC LETTER HE 00718 SYRIAC LETTER WAW 00719 SYRIAC LETTER ZAIN 0071A SYRIAC LETTER HETH 0071B SYRIAC LETTER TETH 0071C SYRIAC LETTER TETH GARSHUNI 0071D SYRIAC LETTER YUDH 0071E SYRIAC LETTER YUDH HE 0071F SYRIAC LETTER KAPH 00720 SYRIAC LETTER LAMADH 00721 SYRIAC LETTER MIM 00722 SYRIAC LETTER NUN 00723 SYRIAC LETTER SEMKATH 00724 SYRIAC LETTER FINAL SEMKATH 00725 SYRIAC LETTER E 00726 SYRIAC LETTER PE 00727 SYRIAC LETTER REVERSED PE 00728 SYRIAC LETTER SADHE 00729 SYRIAC LETTER QAPH 0072A SYRIAC LETTER RISH 0072B SYRIAC LETTER SHIN 0072C SYRIAC LETTER TAW 0072D SYRIAC LETTER PERSIAN BHETH 0072E SYRIAC LETTER PERSIAN GHAMAL 0072F SYRIAC LETTER PERSIAN DHALATH 00730 SYRIAC PTHAHA ABOVE 00731 SYRIAC PTHAHA BELOW 00732 SYRIAC PTHAHA DOTTED 00733 SYRIAC ZQAPHA ABOVE 00734 SYRIAC ZQAPHA BELOW 00735 SYRIAC ZQAPHA DOTTED 00736 SYRIAC RBASA ABOVE 00737 SYRIAC RBASA BELOW 00738 SYRIAC DOTTED ZLAMA HORIZONTAL 00739 SYRIAC DOTTED ZLAMA ANGULAR 0073A SYRIAC HBASA ABOVE 0073B SYRIAC HBASA BELOW 0073C SYRIAC HBASA-ESASA DOTTED 0073D SYRIAC ESASA ABOVE 0073E SYRIAC ESASA BELOW 0073F SYRIAC RWAHA 00740 SYRIAC FEMININE DOT 00741 SYRIAC QUSHSHAYA 00742 SYRIAC RUKKAKHA 00743 SYRIAC TWO VERTICAL DOTS ABOVE 00744 SYRIAC TWO VERTICAL DOTS BELOW 00745 SYRIAC THREE DOTS ABOVE 00746 SYRIAC THREE DOTS BELOW 00747 SYRIAC OBLIQUE LINE ABOVE 00748 SYRIAC OBLIQUE LINE BELOW 00749 SYRIAC MUSIC 0074A SYRIAC BARREKH 0074D SYRIAC LETTER SOGDIAN ZHAIN 0074E SYRIAC LETTER SOGDIAN KHAPH 0074F SYRIAC LETTER SOGDIAN FE 00750 ARABIC LETTER BEH WITH THREE DOTS HORIZONTALLY BELOW 00751 ARABIC LETTER BEH WITH DOT BELOW AND THREE DOTS ABOVE 00752 ARABIC LETTER BEH WITH THREE DOTS POINTING UPWARDS BELOW 00753 ARABIC LETTER BEH WITH THREE DOTS POINTING UPWARDS BELOW AND TWO DOTS ABOVE 00754 ARABIC LETTER BEH WITH TWO DOTS BELOW AND DOT ABOVE 00755 ARABIC LETTER BEH WITH INVERTED SMALL V BELOW 00756 ARABIC LETTER BEH WITH SMALL V 00757 ARABIC LETTER HAH WITH TWO DOTS ABOVE 00758 ARABIC LETTER HAH WITH THREE DOTS POINTING UPWARDS BELOW 00759 ARABIC LETTER DAL WITH TWO DOTS VERTICALLY BELOW AND SMALL TAH 0075A ARABIC LETTER DAL WITH INVERTED SMALL V BELOW 0075B ARABIC LETTER REH WITH STROKE 0075C ARABIC LETTER SEEN WITH FOUR DOTS ABOVE 0075D ARABIC LETTER AIN WITH TWO DOTS ABOVE 0075E ARABIC LETTER AIN WITH THREE DOTS POINTING DOWNWARDS ABOVE 0075F ARABIC LETTER AIN WITH TWO DOTS VERTICALLY ABOVE 00760 ARABIC LETTER FEH WITH TWO DOTS BELOW 00761 ARABIC LETTER FEH WITH THREE DOTS POINTING UPWARDS BELOW 00762 ARABIC LETTER KEHEH WITH DOT ABOVE 00763 ARABIC LETTER KEHEH WITH THREE DOTS ABOVE 00764 ARABIC LETTER KEHEH WITH THREE DOTS POINTING UPWARDS BELOW 00765 ARABIC LETTER MEEM WITH DOT ABOVE 00766 ARABIC LETTER MEEM WITH DOT BELOW 00767 ARABIC LETTER NOON WITH TWO DOTS BELOW 00768 ARABIC LETTER NOON WITH SMALL TAH 00769 ARABIC LETTER NOON WITH SMALL V 0076A ARABIC LETTER LAM WITH BAR 0076B ARABIC LETTER REH WITH TWO DOTS VERTICALLY ABOVE 0076C ARABIC LETTER REH WITH HAMZA ABOVE 0076D ARABIC LETTER SEEN WITH TWO DOTS VERTICALLY ABOVE 0076E ARABIC LETTER HAH WITH SMALL ARABIC LETTER TAH BELOW 0076F ARABIC LETTER HAH WITH SMALL ARABIC LETTER TAH AND TWO DOTS 00770 ARABIC LETTER SEEN WITH SMALL ARABIC LETTER TAH AND TWO DOTS 00771 ARABIC LETTER REH WITH SMALL ARABIC LETTER TAH AND TWO DOTS 00772 ARABIC LETTER HAH WITH SMALL ARABIC LETTER TAH ABOVE 00773 ARABIC LETTER ALEF WITH EXTENDED ARABIC-INDIC DIGIT TWO ABOVE 00774 ARABIC LETTER ALEF WITH EXTENDED ARABIC-INDIC DIGIT THREE ABOVE 00775 ARABIC LETTER FARSI YEH WITH EXTENDED ARABIC-INDIC DIGIT TWO ABOVE 00776 ARABIC LETTER FARSI YEH WITH EXTENDED ARABIC-INDIC DIGIT THREE ABOVE 00777 ARABIC LETTER FARSI YEH WITH EXTENDED ARABIC-INDIC DIGIT FOUR BELOW 00778 ARABIC LETTER WAW WITH EXTENDED ARABIC-INDIC DIGIT TWO ABOVE 00779 ARABIC LETTER WAW WITH EXTENDED ARABIC-INDIC DIGIT THREE ABOVE 0077A ARABIC LETTER YEH BARREE WITH EXTENDED ARABIC-INDIC DIGIT TWO ABOVE 0077B ARABIC LETTER YEH BARREE WITH EXTENDED ARABIC-INDIC DIGIT THREE ABOVE 0077C ARABIC LETTER HAH WITH EXTENDED ARABIC-INDIC DIGIT FOUR BELOW 0077D ARABIC LETTER SEEN WITH EXTENDED ARABIC-INDIC DIGIT FOUR ABOVE 0077E ARABIC LETTER SEEN WITH INVERTED V 0077F ARABIC LETTER KAF WITH TWO DOTS ABOVE 00780 THAANA LETTER HAA 00781 THAANA LETTER SHAVIYANI 00782 THAANA LETTER NOONU 00783 THAANA LETTER RAA 00784 THAANA LETTER BAA 00785 THAANA LETTER LHAVIYANI 00786 THAANA LETTER KAAFU 00787 THAANA LETTER ALIFU 00788 THAANA LETTER VAAVU 00789 THAANA LETTER MEEMU 0078A THAANA LETTER FAAFU 0078B THAANA LETTER DHAALU 0078C THAANA LETTER THAA 0078D THAANA LETTER LAAMU 0078E THAANA LETTER GAAFU 0078F THAANA LETTER GNAVIYANI 00790 THAANA LETTER SEENU 00791 THAANA LETTER DAVIYANI 00792 THAANA LETTER ZAVIYANI 00793 THAANA LETTER TAVIYANI 00794 THAANA LETTER YAA 00795 THAANA LETTER PAVIYANI 00796 THAANA LETTER JAVIYANI 00797 THAANA LETTER CHAVIYANI 00798 THAANA LETTER TTAA 00799 THAANA LETTER HHAA 0079A THAANA LETTER KHAA 0079B THAANA LETTER THAALU 0079C THAANA LETTER ZAA 0079D THAANA LETTER SHEENU 0079E THAANA LETTER SAADHU 0079F THAANA LETTER DAADHU 007A0 THAANA LETTER TO 007A1 THAANA LETTER ZO 007A2 THAANA LETTER AINU 007A3 THAANA LETTER GHAINU 007A4 THAANA LETTER QAAFU 007A5 THAANA LETTER WAAVU 007A6 THAANA ABAFILI 007A7 THAANA AABAAFILI 007A8 THAANA IBIFILI 007A9 THAANA EEBEEFILI 007AA THAANA UBUFILI 007AB THAANA OOBOOFILI 007AC THAANA EBEFILI 007AD THAANA EYBEYFILI 007AE THAANA OBOFILI 007AF THAANA OABOAFILI 007B0 THAANA SUKUN 007B1 THAANA LETTER NAA 007C0 NKO DIGIT ZERO 007C1 NKO DIGIT ONE 007C2 NKO DIGIT TWO 007C3 NKO DIGIT THREE 007C4 NKO DIGIT FOUR 007C5 NKO DIGIT FIVE 007C6 NKO DIGIT SIX 007C7 NKO DIGIT SEVEN 007C8 NKO DIGIT EIGHT 007C9 NKO DIGIT NINE 007CA NKO LETTER A 007CB NKO LETTER EE 007CC NKO LETTER I 007CD NKO LETTER E 007CE NKO LETTER U 007CF NKO LETTER OO 007D0 NKO LETTER O 007D1 NKO LETTER DAGBASINNA 007D2 NKO LETTER N 007D3 NKO LETTER BA 007D4 NKO LETTER PA 007D5 NKO LETTER TA 007D6 NKO LETTER JA 007D7 NKO LETTER CHA 007D8 NKO LETTER DA 007D9 NKO LETTER RA 007DA NKO LETTER RRA 007DB NKO LETTER SA 007DC NKO LETTER GBA 007DD NKO LETTER FA 007DE NKO LETTER KA 007DF NKO LETTER LA 007E0 NKO LETTER NA WOLOSO 007E1 NKO LETTER MA 007E2 NKO LETTER NYA 007E3 NKO LETTER NA 007E4 NKO LETTER HA 007E5 NKO LETTER WA 007E6 NKO LETTER YA 007E7 NKO LETTER NYA WOLOSO 007E8 NKO LETTER JONA JA 007E9 NKO LETTER JONA CHA 007EA NKO LETTER JONA RA 007EB NKO COMBINING SHORT HIGH TONE 007EC NKO COMBINING SHORT LOW TONE 007ED NKO COMBINING SHORT RISING TONE 007EE NKO COMBINING LONG DESCENDING TONE 007EF NKO COMBINING LONG HIGH TONE 007F0 NKO COMBINING LONG LOW TONE 007F1 NKO COMBINING LONG RISING TONE 007F2 NKO COMBINING NASALIZATION MARK 007F3 NKO COMBINING DOUBLE DOT ABOVE 007F4 NKO HIGH TONE APOSTROPHE 007F5 NKO LOW TONE APOSTROPHE 007F6 NKO SYMBOL OO DENNEN 007F7 NKO SYMBOL GBAKURUNEN 007F8 NKO COMMA 007F9 NKO EXCLAMATION MARK 007FA NKO LAJANYALAN 007FD NKO DANTAYALAN 007FE NKO DOROME SIGN 007FF NKO TAMAN SIGN 00800 SAMARITAN LETTER ALAF 00801 SAMARITAN LETTER BIT 00802 SAMARITAN LETTER GAMAN 00803 SAMARITAN LETTER DALAT 00804 SAMARITAN LETTER IY 00805 SAMARITAN LETTER BAA 00806 SAMARITAN LETTER ZEN 00807 SAMARITAN LETTER IT 00808 SAMARITAN LETTER TIT 00809 SAMARITAN LETTER YUT 0080A SAMARITAN LETTER KAAF 0080B SAMARITAN LETTER LABAT 0080C SAMARITAN LETTER MIM 0080D SAMARITAN LETTER NUN 0080E SAMARITAN LETTER SINGAAT 0080F SAMARITAN LETTER IN 00810 SAMARITAN LETTER FI 00811 SAMARITAN LETTER TSAADIY 00812 SAMARITAN LETTER QUF 00813 SAMARITAN LETTER RISH 00814 SAMARITAN LETTER SHAN 00815 SAMARITAN LETTER TAAF 00816 SAMARITAN MARK IN 00817 SAMARITAN MARK IN-ALAF 00818 SAMARITAN MARK OCCLUSION 00819 SAMARITAN MARK DAGESH 0081A SAMARITAN MODIFIER LETTER EPENTHETIC YUT 0081B SAMARITAN MARK EPENTHETIC YUT 0081C SAMARITAN VOWEL SIGN LONG E 0081D SAMARITAN VOWEL SIGN E 0081E SAMARITAN VOWEL SIGN OVERLONG AA 0081F SAMARITAN VOWEL SIGN LONG AA 00820 SAMARITAN VOWEL SIGN AA 00821 SAMARITAN VOWEL SIGN OVERLONG A 00822 SAMARITAN VOWEL SIGN LONG A 00823 SAMARITAN VOWEL SIGN A 00824 SAMARITAN MODIFIER LETTER SHORT A 00825 SAMARITAN VOWEL SIGN SHORT A 00826 SAMARITAN VOWEL SIGN LONG U 00827 SAMARITAN VOWEL SIGN U 00828 SAMARITAN MODIFIER LETTER I 00829 SAMARITAN VOWEL SIGN LONG I 0082A SAMARITAN VOWEL SIGN I 0082B SAMARITAN VOWEL SIGN O 0082C SAMARITAN VOWEL SIGN SUKUN 0082D SAMARITAN MARK NEQUDAA 00830 SAMARITAN PUNCTUATION NEQUDAA 00831 SAMARITAN PUNCTUATION AFSAAQ 00832 SAMARITAN PUNCTUATION ANGED 00833 SAMARITAN PUNCTUATION BAU 00834 SAMARITAN PUNCTUATION ATMAAU 00835 SAMARITAN PUNCTUATION SHIYYAALAA 00836 SAMARITAN ABBREVIATION MARK 00837 SAMARITAN PUNCTUATION MELODIC QITSA 00838 SAMARITAN PUNCTUATION ZIQAA 00839 SAMARITAN PUNCTUATION QITSA 0083A SAMARITAN PUNCTUATION ZAEF 0083B SAMARITAN PUNCTUATION TURU 0083C SAMARITAN PUNCTUATION ARKAANU 0083D SAMARITAN PUNCTUATION SOF MASHFAAT 0083E SAMARITAN PUNCTUATION ANNAAU 00840 MANDAIC LETTER HALQA 00841 MANDAIC LETTER AB 00842 MANDAIC LETTER AG 00843 MANDAIC LETTER AD 00844 MANDAIC LETTER AH 00845 MANDAIC LETTER USHENNA 00846 MANDAIC LETTER AZ 00847 MANDAIC LETTER IT 00848 MANDAIC LETTER ATT 00849 MANDAIC LETTER AKSA 0084A MANDAIC LETTER AK 0084B MANDAIC LETTER AL 0084C MANDAIC LETTER AM 0084D MANDAIC LETTER AN 0084E MANDAIC LETTER AS 0084F MANDAIC LETTER IN 00850 MANDAIC LETTER AP 00851 MANDAIC LETTER ASZ 00852 MANDAIC LETTER AQ 00853 MANDAIC LETTER AR 00854 MANDAIC LETTER ASH 00855 MANDAIC LETTER AT 00856 MANDAIC LETTER DUSHENNA 00857 MANDAIC LETTER KAD 00858 MANDAIC LETTER AIN 00859 MANDAIC AFFRICATION MARK 0085A MANDAIC VOCALIZATION MARK 0085B MANDAIC GEMINATION MARK 0085E MANDAIC PUNCTUATION 00860 SYRIAC LETTER MALAYALAM NGA 00861 SYRIAC LETTER MALAYALAM JA 00862 SYRIAC LETTER MALAYALAM NYA 00863 SYRIAC LETTER MALAYALAM TTA 00864 SYRIAC LETTER MALAYALAM NNA 00865 SYRIAC LETTER MALAYALAM NNNA 00866 SYRIAC LETTER MALAYALAM BHA 00867 SYRIAC LETTER MALAYALAM RA 00868 SYRIAC LETTER MALAYALAM LLA 00869 SYRIAC LETTER MALAYALAM LLLA 0086A SYRIAC LETTER MALAYALAM SSA 008A0 ARABIC LETTER BEH WITH SMALL V BELOW 008A1 ARABIC LETTER BEH WITH HAMZA ABOVE 008A2 ARABIC LETTER JEEM WITH TWO DOTS ABOVE 008A3 ARABIC LETTER TAH WITH TWO DOTS ABOVE 008A4 ARABIC LETTER FEH WITH DOT BELOW AND THREE DOTS ABOVE 008A5 ARABIC LETTER QAF WITH DOT BELOW 008A6 ARABIC LETTER LAM WITH DOUBLE BAR 008A7 ARABIC LETTER MEEM WITH THREE DOTS ABOVE 008A8 ARABIC LETTER YEH WITH TWO DOTS BELOW AND HAMZA ABOVE 008A9 ARABIC LETTER YEH WITH TWO DOTS BELOW AND DOT ABOVE 008AA ARABIC LETTER REH WITH LOOP 008AB ARABIC LETTER WAW WITH DOT WITHIN 008AC ARABIC LETTER ROHINGYA YEH 008AD ARABIC LETTER LOW ALEF 008AE ARABIC LETTER DAL WITH THREE DOTS BELOW 008AF ARABIC LETTER SAD WITH THREE DOTS BELOW 008B0 ARABIC LETTER GAF WITH INVERTED STROKE 008B1 ARABIC LETTER STRAIGHT WAW 008B2 ARABIC LETTER ZAIN WITH INVERTED V ABOVE 008B3 ARABIC LETTER AIN WITH THREE DOTS BELOW 008B4 ARABIC LETTER KAF WITH DOT BELOW 008B6 ARABIC LETTER BEH WITH SMALL MEEM ABOVE 008B7 ARABIC LETTER PEH WITH SMALL MEEM ABOVE 008B8 ARABIC LETTER TEH WITH SMALL TEH ABOVE 008B9 ARABIC LETTER REH WITH SMALL NOON ABOVE 008BA ARABIC LETTER YEH WITH TWO DOTS BELOW AND SMALL NOON ABOVE 008BB ARABIC LETTER AFRICAN FEH 008BC ARABIC LETTER AFRICAN QAF 008BD ARABIC LETTER AFRICAN NOON 008BE ARABIC LETTER PEH WITH SMALL V 008BF ARABIC LETTER TEH WITH SMALL V 008C0 ARABIC LETTER TTEH WITH SMALL V 008C1 ARABIC LETTER TCHEH WITH SMALL V 008C2 ARABIC LETTER KEHEH WITH SMALL V 008C3 ARABIC LETTER GHAIN WITH THREE DOTS ABOVE 008C4 ARABIC LETTER AFRICAN QAF WITH THREE DOTS ABOVE 008C5 ARABIC LETTER JEEM WITH THREE DOTS ABOVE 008C6 ARABIC LETTER JEEM WITH THREE DOTS BELOW 008C7 ARABIC LETTER LAM WITH SMALL ARABIC LETTER TAH ABOVE 008D3 ARABIC SMALL LOW WAW 008D4 ARABIC SMALL HIGH WORD AR-RUB 008D5 ARABIC SMALL HIGH SAD 008D6 ARABIC SMALL HIGH AIN 008D7 ARABIC SMALL HIGH QAF 008D8 ARABIC SMALL HIGH NOON WITH KASRA 008D9 ARABIC SMALL LOW NOON WITH KASRA 008DA ARABIC SMALL HIGH WORD ATH-THALATHA 008DB ARABIC SMALL HIGH WORD AS-SAJDA 008DC ARABIC SMALL HIGH WORD AN-NISF 008DD ARABIC SMALL HIGH WORD SAKTA 008DE ARABIC SMALL HIGH WORD QIF 008DF ARABIC SMALL HIGH WORD WAQFA 008E0 ARABIC SMALL HIGH FOOTNOTE MARKER 008E1 ARABIC SMALL HIGH SIGN SAFHA 008E2 ARABIC DISPUTED END OF AYAH 008E3 ARABIC TURNED DAMMA BELOW 008E4 ARABIC CURLY FATHA 008E5 ARABIC CURLY DAMMA 008E6 ARABIC CURLY KASRA 008E7 ARABIC CURLY FATHATAN 008E8 ARABIC CURLY DAMMATAN 008E9 ARABIC CURLY KASRATAN 008EA ARABIC TONE ONE DOT ABOVE 008EB ARABIC TONE TWO DOTS ABOVE 008EC ARABIC TONE LOOP ABOVE 008ED ARABIC TONE ONE DOT BELOW 008EE ARABIC TONE TWO DOTS BELOW 008EF ARABIC TONE LOOP BELOW 008F0 ARABIC OPEN FATHATAN 008F1 ARABIC OPEN DAMMATAN 008F2 ARABIC OPEN KASRATAN 008F3 ARABIC SMALL HIGH WAW 008F4 ARABIC FATHA WITH RING 008F5 ARABIC FATHA WITH DOT ABOVE 008F6 ARABIC KASRA WITH DOT BELOW 008F7 ARABIC LEFT ARROWHEAD ABOVE 008F8 ARABIC RIGHT ARROWHEAD ABOVE 008F9 ARABIC LEFT ARROWHEAD BELOW 008FA ARABIC RIGHT ARROWHEAD BELOW 008FB ARABIC DOUBLE RIGHT ARROWHEAD ABOVE 008FC ARABIC DOUBLE RIGHT ARROWHEAD ABOVE WITH DOT 008FD ARABIC RIGHT ARROWHEAD ABOVE WITH DOT 008FE ARABIC DAMMA WITH DOT 008FF ARABIC MARK SIDEWAYS NOON GHUNNA 00900 DEVANAGARI SIGN INVERTED CANDRABINDU 00901 DEVANAGARI SIGN CANDRABINDU 00902 DEVANAGARI SIGN ANUSVARA 00903 DEVANAGARI SIGN VISARGA 00904 DEVANAGARI LETTER SHORT A 00905 DEVANAGARI LETTER A 00906 DEVANAGARI LETTER AA 00907 DEVANAGARI LETTER I 00908 DEVANAGARI LETTER II 00909 DEVANAGARI LETTER U 0090A DEVANAGARI LETTER UU 0090B DEVANAGARI LETTER VOCALIC R 0090C DEVANAGARI LETTER VOCALIC L 0090D DEVANAGARI LETTER CANDRA E 0090E DEVANAGARI LETTER SHORT E 0090F DEVANAGARI LETTER E 00910 DEVANAGARI LETTER AI 00911 DEVANAGARI LETTER CANDRA O 00912 DEVANAGARI LETTER SHORT O 00913 DEVANAGARI LETTER O 00914 DEVANAGARI LETTER AU 00915 DEVANAGARI LETTER KA 00916 DEVANAGARI LETTER KHA 00917 DEVANAGARI LETTER GA 00918 DEVANAGARI LETTER GHA 00919 DEVANAGARI LETTER NGA 0091A DEVANAGARI LETTER CA 0091B DEVANAGARI LETTER CHA 0091C DEVANAGARI LETTER JA 0091D DEVANAGARI LETTER JHA 0091E DEVANAGARI LETTER NYA 0091F DEVANAGARI LETTER TTA 00920 DEVANAGARI LETTER TTHA 00921 DEVANAGARI LETTER DDA 00922 DEVANAGARI LETTER DDHA 00923 DEVANAGARI LETTER NNA 00924 DEVANAGARI LETTER TA 00925 DEVANAGARI LETTER THA 00926 DEVANAGARI LETTER DA 00927 DEVANAGARI LETTER DHA 00928 DEVANAGARI LETTER NA 00929 DEVANAGARI LETTER NNNA 0092A DEVANAGARI LETTER PA 0092B DEVANAGARI LETTER PHA 0092C DEVANAGARI LETTER BA 0092D DEVANAGARI LETTER BHA 0092E DEVANAGARI LETTER MA 0092F DEVANAGARI LETTER YA 00930 DEVANAGARI LETTER RA 00931 DEVANAGARI LETTER RRA 00932 DEVANAGARI LETTER LA 00933 DEVANAGARI LETTER LLA 00934 DEVANAGARI LETTER LLLA 00935 DEVANAGARI LETTER VA 00936 DEVANAGARI LETTER SHA 00937 DEVANAGARI LETTER SSA 00938 DEVANAGARI LETTER SA 00939 DEVANAGARI LETTER HA 0093A DEVANAGARI VOWEL SIGN OE 0093B DEVANAGARI VOWEL SIGN OOE 0093C DEVANAGARI SIGN NUKTA 0093D DEVANAGARI SIGN AVAGRAHA 0093E DEVANAGARI VOWEL SIGN AA 0093F DEVANAGARI VOWEL SIGN I 00940 DEVANAGARI VOWEL SIGN II 00941 DEVANAGARI VOWEL SIGN U 00942 DEVANAGARI VOWEL SIGN UU 00943 DEVANAGARI VOWEL SIGN VOCALIC R 00944 DEVANAGARI VOWEL SIGN VOCALIC RR 00945 DEVANAGARI VOWEL SIGN CANDRA E 00946 DEVANAGARI VOWEL SIGN SHORT E 00947 DEVANAGARI VOWEL SIGN E 00948 DEVANAGARI VOWEL SIGN AI 00949 DEVANAGARI VOWEL SIGN CANDRA O 0094A DEVANAGARI VOWEL SIGN SHORT O 0094B DEVANAGARI VOWEL SIGN O 0094C DEVANAGARI VOWEL SIGN AU 0094D DEVANAGARI SIGN VIRAMA 0094E DEVANAGARI VOWEL SIGN PRISHTHAMATRA E 0094F DEVANAGARI VOWEL SIGN AW 00950 DEVANAGARI OM 00951 DEVANAGARI STRESS SIGN UDATTA 00952 DEVANAGARI STRESS SIGN ANUDATTA 00953 DEVANAGARI GRAVE ACCENT 00954 DEVANAGARI ACUTE ACCENT 00955 DEVANAGARI VOWEL SIGN CANDRA LONG E 00956 DEVANAGARI VOWEL SIGN UE 00957 DEVANAGARI VOWEL SIGN UUE 00958 DEVANAGARI LETTER QA 00959 DEVANAGARI LETTER KHHA 0095A DEVANAGARI LETTER GHHA 0095B DEVANAGARI LETTER ZA 0095C DEVANAGARI LETTER DDDHA 0095D DEVANAGARI LETTER RHA 0095E DEVANAGARI LETTER FA 0095F DEVANAGARI LETTER YYA 00960 DEVANAGARI LETTER VOCALIC RR 00961 DEVANAGARI LETTER VOCALIC LL 00962 DEVANAGARI VOWEL SIGN VOCALIC L 00963 DEVANAGARI VOWEL SIGN VOCALIC LL 00964 DEVANAGARI DANDA 00965 DEVANAGARI DOUBLE DANDA 00966 DEVANAGARI DIGIT ZERO 00967 DEVANAGARI DIGIT ONE 00968 DEVANAGARI DIGIT TWO 00969 DEVANAGARI DIGIT THREE 0096A DEVANAGARI DIGIT FOUR 0096B DEVANAGARI DIGIT FIVE 0096C DEVANAGARI DIGIT SIX 0096D DEVANAGARI DIGIT SEVEN 0096E DEVANAGARI DIGIT EIGHT 0096F DEVANAGARI DIGIT NINE 00970 DEVANAGARI ABBREVIATION SIGN 00971 DEVANAGARI SIGN HIGH SPACING DOT 00972 DEVANAGARI LETTER CANDRA A 00973 DEVANAGARI LETTER OE 00974 DEVANAGARI LETTER OOE 00975 DEVANAGARI LETTER AW 00976 DEVANAGARI LETTER UE 00977 DEVANAGARI LETTER UUE 00978 DEVANAGARI LETTER MARWARI DDA 00979 DEVANAGARI LETTER ZHA 0097A DEVANAGARI LETTER HEAVY YA 0097B DEVANAGARI LETTER GGA 0097C DEVANAGARI LETTER JJA 0097D DEVANAGARI LETTER GLOTTAL STOP 0097E DEVANAGARI LETTER DDDA 0097F DEVANAGARI LETTER BBA 00980 BENGALI ANJI 00981 BENGALI SIGN CANDRABINDU 00982 BENGALI SIGN ANUSVARA 00983 BENGALI SIGN VISARGA 00985 BENGALI LETTER A 00986 BENGALI LETTER AA 00987 BENGALI LETTER I 00988 BENGALI LETTER II 00989 BENGALI LETTER U 0098A BENGALI LETTER UU 0098B BENGALI LETTER VOCALIC R 0098C BENGALI LETTER VOCALIC L 0098F BENGALI LETTER E 00990 BENGALI LETTER AI 00993 BENGALI LETTER O 00994 BENGALI LETTER AU 00995 BENGALI LETTER KA 00996 BENGALI LETTER KHA 00997 BENGALI LETTER GA 00998 BENGALI LETTER GHA 00999 BENGALI LETTER NGA 0099A BENGALI LETTER CA 0099B BENGALI LETTER CHA 0099C BENGALI LETTER JA 0099D BENGALI LETTER JHA 0099E BENGALI LETTER NYA 0099F BENGALI LETTER TTA 009A0 BENGALI LETTER TTHA 009A1 BENGALI LETTER DDA 009A2 BENGALI LETTER DDHA 009A3 BENGALI LETTER NNA 009A4 BENGALI LETTER TA 009A5 BENGALI LETTER THA 009A6 BENGALI LETTER DA 009A7 BENGALI LETTER DHA 009A8 BENGALI LETTER NA 009AA BENGALI LETTER PA 009AB BENGALI LETTER PHA 009AC BENGALI LETTER BA 009AD BENGALI LETTER BHA 009AE BENGALI LETTER MA 009AF BENGALI LETTER YA 009B0 BENGALI LETTER RA 009B2 BENGALI LETTER LA 009B6 BENGALI LETTER SHA 009B7 BENGALI LETTER SSA 009B8 BENGALI LETTER SA 009B9 BENGALI LETTER HA 009BC BENGALI SIGN NUKTA 009BD BENGALI SIGN AVAGRAHA 009BE BENGALI VOWEL SIGN AA 009BF BENGALI VOWEL SIGN I 009C0 BENGALI VOWEL SIGN II 009C1 BENGALI VOWEL SIGN U 009C2 BENGALI VOWEL SIGN UU 009C3 BENGALI VOWEL SIGN VOCALIC R 009C4 BENGALI VOWEL SIGN VOCALIC RR 009C7 BENGALI VOWEL SIGN E 009C8 BENGALI VOWEL SIGN AI 009CB BENGALI VOWEL SIGN O 009CC BENGALI VOWEL SIGN AU 009CD BENGALI SIGN VIRAMA 009CE BENGALI LETTER KHANDA TA 009D7 BENGALI AU LENGTH MARK 009DC BENGALI LETTER RRA 009DD BENGALI LETTER RHA 009DF BENGALI LETTER YYA 009E0 BENGALI LETTER VOCALIC RR 009E1 BENGALI LETTER VOCALIC LL 009E2 BENGALI VOWEL SIGN VOCALIC L 009E3 BENGALI VOWEL SIGN VOCALIC LL 009E6 BENGALI DIGIT ZERO 009E7 BENGALI DIGIT ONE 009E8 BENGALI DIGIT TWO 009E9 BENGALI DIGIT THREE 009EA BENGALI DIGIT FOUR 009EB BENGALI DIGIT FIVE 009EC BENGALI DIGIT SIX 009ED BENGALI DIGIT SEVEN 009EE BENGALI DIGIT EIGHT 009EF BENGALI DIGIT NINE 009F0 BENGALI LETTER RA WITH MIDDLE DIAGONAL 009F1 BENGALI LETTER RA WITH LOWER DIAGONAL 009F2 BENGALI RUPEE MARK 009F3 BENGALI RUPEE SIGN 009F4 BENGALI CURRENCY NUMERATOR ONE 009F5 BENGALI CURRENCY NUMERATOR TWO 009F6 BENGALI CURRENCY NUMERATOR THREE 009F7 BENGALI CURRENCY NUMERATOR FOUR 009F8 BENGALI CURRENCY NUMERATOR ONE LESS THAN THE DENOMINATOR 009F9 BENGALI CURRENCY DENOMINATOR SIXTEEN 009FA BENGALI ISSHAR 009FB BENGALI GANDA MARK 009FC BENGALI LETTER VEDIC ANUSVARA 009FD BENGALI ABBREVIATION SIGN 009FE BENGALI SANDHI MARK 00A01 GURMUKHI SIGN ADAK BINDI 00A02 GURMUKHI SIGN BINDI 00A03 GURMUKHI SIGN VISARGA 00A05 GURMUKHI LETTER A 00A06 GURMUKHI LETTER AA 00A07 GURMUKHI LETTER I 00A08 GURMUKHI LETTER II 00A09 GURMUKHI LETTER U 00A0A GURMUKHI LETTER UU 00A0F GURMUKHI LETTER EE 00A10 GURMUKHI LETTER AI 00A13 GURMUKHI LETTER OO 00A14 GURMUKHI LETTER AU 00A15 GURMUKHI LETTER KA 00A16 GURMUKHI LETTER KHA 00A17 GURMUKHI LETTER GA 00A18 GURMUKHI LETTER GHA 00A19 GURMUKHI LETTER NGA 00A1A GURMUKHI LETTER CA 00A1B GURMUKHI LETTER CHA 00A1C GURMUKHI LETTER JA 00A1D GURMUKHI LETTER JHA 00A1E GURMUKHI LETTER NYA 00A1F GURMUKHI LETTER TTA 00A20 GURMUKHI LETTER TTHA 00A21 GURMUKHI LETTER DDA 00A22 GURMUKHI LETTER DDHA 00A23 GURMUKHI LETTER NNA 00A24 GURMUKHI LETTER TA 00A25 GURMUKHI LETTER THA 00A26 GURMUKHI LETTER DA 00A27 GURMUKHI LETTER DHA 00A28 GURMUKHI LETTER NA 00A2A GURMUKHI LETTER PA 00A2B GURMUKHI LETTER PHA 00A2C GURMUKHI LETTER BA 00A2D GURMUKHI LETTER BHA 00A2E GURMUKHI LETTER MA 00A2F GURMUKHI LETTER YA 00A30 GURMUKHI LETTER RA 00A32 GURMUKHI LETTER LA 00A33 GURMUKHI LETTER LLA 00A35 GURMUKHI LETTER VA 00A36 GURMUKHI LETTER SHA 00A38 GURMUKHI LETTER SA 00A39 GURMUKHI LETTER HA 00A3C GURMUKHI SIGN NUKTA 00A3E GURMUKHI VOWEL SIGN AA 00A3F GURMUKHI VOWEL SIGN I 00A40 GURMUKHI VOWEL SIGN II 00A41 GURMUKHI VOWEL SIGN U 00A42 GURMUKHI VOWEL SIGN UU 00A47 GURMUKHI VOWEL SIGN EE 00A48 GURMUKHI VOWEL SIGN AI 00A4B GURMUKHI VOWEL SIGN OO 00A4C GURMUKHI VOWEL SIGN AU 00A4D GURMUKHI SIGN VIRAMA 00A51 GURMUKHI SIGN UDAAT 00A59 GURMUKHI LETTER KHHA 00A5A GURMUKHI LETTER GHHA 00A5B GURMUKHI LETTER ZA 00A5C GURMUKHI LETTER RRA 00A5E GURMUKHI LETTER FA 00A66 GURMUKHI DIGIT ZERO 00A67 GURMUKHI DIGIT ONE 00A68 GURMUKHI DIGIT TWO 00A69 GURMUKHI DIGIT THREE 00A6A GURMUKHI DIGIT FOUR 00A6B GURMUKHI DIGIT FIVE 00A6C GURMUKHI DIGIT SIX 00A6D GURMUKHI DIGIT SEVEN 00A6E GURMUKHI DIGIT EIGHT 00A6F GURMUKHI DIGIT NINE 00A70 GURMUKHI TIPPI 00A71 GURMUKHI ADDAK 00A72 GURMUKHI IRI 00A73 GURMUKHI URA 00A74 GURMUKHI EK ONKAR 00A75 GURMUKHI SIGN YAKASH 00A76 GURMUKHI ABBREVIATION SIGN 00A81 GUJARATI SIGN CANDRABINDU 00A82 GUJARATI SIGN ANUSVARA 00A83 GUJARATI SIGN VISARGA 00A85 GUJARATI LETTER A 00A86 GUJARATI LETTER AA 00A87 GUJARATI LETTER I 00A88 GUJARATI LETTER II 00A89 GUJARATI LETTER U 00A8A GUJARATI LETTER UU 00A8B GUJARATI LETTER VOCALIC R 00A8C GUJARATI LETTER VOCALIC L 00A8D GUJARATI VOWEL CANDRA E 00A8F GUJARATI LETTER E 00A90 GUJARATI LETTER AI 00A91 GUJARATI VOWEL CANDRA O 00A93 GUJARATI LETTER O 00A94 GUJARATI LETTER AU 00A95 GUJARATI LETTER KA 00A96 GUJARATI LETTER KHA 00A97 GUJARATI LETTER GA 00A98 GUJARATI LETTER GHA 00A99 GUJARATI LETTER NGA 00A9A GUJARATI LETTER CA 00A9B GUJARATI LETTER CHA 00A9C GUJARATI LETTER JA 00A9D GUJARATI LETTER JHA 00A9E GUJARATI LETTER NYA 00A9F GUJARATI LETTER TTA 00AA0 GUJARATI LETTER TTHA 00AA1 GUJARATI LETTER DDA 00AA2 GUJARATI LETTER DDHA 00AA3 GUJARATI LETTER NNA 00AA4 GUJARATI LETTER TA 00AA5 GUJARATI LETTER THA 00AA6 GUJARATI LETTER DA 00AA7 GUJARATI LETTER DHA 00AA8 GUJARATI LETTER NA 00AAA GUJARATI LETTER PA 00AAB GUJARATI LETTER PHA 00AAC GUJARATI LETTER BA 00AAD GUJARATI LETTER BHA 00AAE GUJARATI LETTER MA 00AAF GUJARATI LETTER YA 00AB0 GUJARATI LETTER RA 00AB2 GUJARATI LETTER LA 00AB3 GUJARATI LETTER LLA 00AB5 GUJARATI LETTER VA 00AB6 GUJARATI LETTER SHA 00AB7 GUJARATI LETTER SSA 00AB8 GUJARATI LETTER SA 00AB9 GUJARATI LETTER HA 00ABC GUJARATI SIGN NUKTA 00ABD GUJARATI SIGN AVAGRAHA 00ABE GUJARATI VOWEL SIGN AA 00ABF GUJARATI VOWEL SIGN I 00AC0 GUJARATI VOWEL SIGN II 00AC1 GUJARATI VOWEL SIGN U 00AC2 GUJARATI VOWEL SIGN UU 00AC3 GUJARATI VOWEL SIGN VOCALIC R 00AC4 GUJARATI VOWEL SIGN VOCALIC RR 00AC5 GUJARATI VOWEL SIGN CANDRA E 00AC7 GUJARATI VOWEL SIGN E 00AC8 GUJARATI VOWEL SIGN AI 00AC9 GUJARATI VOWEL SIGN CANDRA O 00ACB GUJARATI VOWEL SIGN O 00ACC GUJARATI VOWEL SIGN AU 00ACD GUJARATI SIGN VIRAMA 00AD0 GUJARATI OM 00AE0 GUJARATI LETTER VOCALIC RR 00AE1 GUJARATI LETTER VOCALIC LL 00AE2 GUJARATI VOWEL SIGN VOCALIC L 00AE3 GUJARATI VOWEL SIGN VOCALIC LL 00AE6 GUJARATI DIGIT ZERO 00AE7 GUJARATI DIGIT ONE 00AE8 GUJARATI DIGIT TWO 00AE9 GUJARATI DIGIT THREE 00AEA GUJARATI DIGIT FOUR 00AEB GUJARATI DIGIT FIVE 00AEC GUJARATI DIGIT SIX 00AED GUJARATI DIGIT SEVEN 00AEE GUJARATI DIGIT EIGHT 00AEF GUJARATI DIGIT NINE 00AF0 GUJARATI ABBREVIATION SIGN 00AF1 GUJARATI RUPEE SIGN 00AF9 GUJARATI LETTER ZHA 00AFA GUJARATI SIGN SUKUN 00AFB GUJARATI SIGN SHADDA 00AFC GUJARATI SIGN MADDAH 00AFD GUJARATI SIGN THREE-DOT NUKTA ABOVE 00AFE GUJARATI SIGN CIRCLE NUKTA ABOVE 00AFF GUJARATI SIGN TWO-CIRCLE NUKTA ABOVE 00B01 ORIYA SIGN CANDRABINDU 00B02 ORIYA SIGN ANUSVARA 00B03 ORIYA SIGN VISARGA 00B05 ORIYA LETTER A 00B06 ORIYA LETTER AA 00B07 ORIYA LETTER I 00B08 ORIYA LETTER II 00B09 ORIYA LETTER U 00B0A ORIYA LETTER UU 00B0B ORIYA LETTER VOCALIC R 00B0C ORIYA LETTER VOCALIC L 00B0F ORIYA LETTER E 00B10 ORIYA LETTER AI 00B13 ORIYA LETTER O 00B14 ORIYA LETTER AU 00B15 ORIYA LETTER KA 00B16 ORIYA LETTER KHA 00B17 ORIYA LETTER GA 00B18 ORIYA LETTER GHA 00B19 ORIYA LETTER NGA 00B1A ORIYA LETTER CA 00B1B ORIYA LETTER CHA 00B1C ORIYA LETTER JA 00B1D ORIYA LETTER JHA 00B1E ORIYA LETTER NYA 00B1F ORIYA LETTER TTA 00B20 ORIYA LETTER TTHA 00B21 ORIYA LETTER DDA 00B22 ORIYA LETTER DDHA 00B23 ORIYA LETTER NNA 00B24 ORIYA LETTER TA 00B25 ORIYA LETTER THA 00B26 ORIYA LETTER DA 00B27 ORIYA LETTER DHA 00B28 ORIYA LETTER NA 00B2A ORIYA LETTER PA 00B2B ORIYA LETTER PHA 00B2C ORIYA LETTER BA 00B2D ORIYA LETTER BHA 00B2E ORIYA LETTER MA 00B2F ORIYA LETTER YA 00B30 ORIYA LETTER RA 00B32 ORIYA LETTER LA 00B33 ORIYA LETTER LLA 00B35 ORIYA LETTER VA 00B36 ORIYA LETTER SHA 00B37 ORIYA LETTER SSA 00B38 ORIYA LETTER SA 00B39 ORIYA LETTER HA 00B3C ORIYA SIGN NUKTA 00B3D ORIYA SIGN AVAGRAHA 00B3E ORIYA VOWEL SIGN AA 00B3F ORIYA VOWEL SIGN I 00B40 ORIYA VOWEL SIGN II 00B41 ORIYA VOWEL SIGN U 00B42 ORIYA VOWEL SIGN UU 00B43 ORIYA VOWEL SIGN VOCALIC R 00B44 ORIYA VOWEL SIGN VOCALIC RR 00B47 ORIYA VOWEL SIGN E 00B48 ORIYA VOWEL SIGN AI 00B4B ORIYA VOWEL SIGN O 00B4C ORIYA VOWEL SIGN AU 00B4D ORIYA SIGN VIRAMA 00B55 ORIYA SIGN OVERLINE 00B56 ORIYA AI LENGTH MARK 00B57 ORIYA AU LENGTH MARK 00B5C ORIYA LETTER RRA 00B5D ORIYA LETTER RHA 00B5F ORIYA LETTER YYA 00B60 ORIYA LETTER VOCALIC RR 00B61 ORIYA LETTER VOCALIC LL 00B62 ORIYA VOWEL SIGN VOCALIC L 00B63 ORIYA VOWEL SIGN VOCALIC LL 00B66 ORIYA DIGIT ZERO 00B67 ORIYA DIGIT ONE 00B68 ORIYA DIGIT TWO 00B69 ORIYA DIGIT THREE 00B6A ORIYA DIGIT FOUR 00B6B ORIYA DIGIT FIVE 00B6C ORIYA DIGIT SIX 00B6D ORIYA DIGIT SEVEN 00B6E ORIYA DIGIT EIGHT 00B6F ORIYA DIGIT NINE 00B70 ORIYA ISSHAR 00B71 ORIYA LETTER WA 00B72 ORIYA FRACTION ONE QUARTER 00B73 ORIYA FRACTION ONE HALF 00B74 ORIYA FRACTION THREE QUARTERS 00B75 ORIYA FRACTION ONE SIXTEENTH 00B76 ORIYA FRACTION ONE EIGHTH 00B77 ORIYA FRACTION THREE SIXTEENTHS 00B82 TAMIL SIGN ANUSVARA 00B83 TAMIL SIGN VISARGA 00B85 TAMIL LETTER A 00B86 TAMIL LETTER AA 00B87 TAMIL LETTER I 00B88 TAMIL LETTER II 00B89 TAMIL LETTER U 00B8A TAMIL LETTER UU 00B8E TAMIL LETTER E 00B8F TAMIL LETTER EE 00B90 TAMIL LETTER AI 00B92 TAMIL LETTER O 00B93 TAMIL LETTER OO 00B94 TAMIL LETTER AU 00B95 TAMIL LETTER KA 00B99 TAMIL LETTER NGA 00B9A TAMIL LETTER CA 00B9C TAMIL LETTER JA 00B9E TAMIL LETTER NYA 00B9F TAMIL LETTER TTA 00BA3 TAMIL LETTER NNA 00BA4 TAMIL LETTER TA 00BA8 TAMIL LETTER NA 00BA9 TAMIL LETTER NNNA 00BAA TAMIL LETTER PA 00BAE TAMIL LETTER MA 00BAF TAMIL LETTER YA 00BB0 TAMIL LETTER RA 00BB1 TAMIL LETTER RRA 00BB2 TAMIL LETTER LA 00BB3 TAMIL LETTER LLA 00BB4 TAMIL LETTER LLLA 00BB5 TAMIL LETTER VA 00BB6 TAMIL LETTER SHA 00BB7 TAMIL LETTER SSA 00BB8 TAMIL LETTER SA 00BB9 TAMIL LETTER HA 00BBE TAMIL VOWEL SIGN AA 00BBF TAMIL VOWEL SIGN I 00BC0 TAMIL VOWEL SIGN II 00BC1 TAMIL VOWEL SIGN U 00BC2 TAMIL VOWEL SIGN UU 00BC6 TAMIL VOWEL SIGN E 00BC7 TAMIL VOWEL SIGN EE 00BC8 TAMIL VOWEL SIGN AI 00BCA TAMIL VOWEL SIGN O 00BCB TAMIL VOWEL SIGN OO 00BCC TAMIL VOWEL SIGN AU 00BCD TAMIL SIGN VIRAMA 00BD0 TAMIL OM 00BD7 TAMIL AU LENGTH MARK 00BE6 TAMIL DIGIT ZERO 00BE7 TAMIL DIGIT ONE 00BE8 TAMIL DIGIT TWO 00BE9 TAMIL DIGIT THREE 00BEA TAMIL DIGIT FOUR 00BEB TAMIL DIGIT FIVE 00BEC TAMIL DIGIT SIX 00BED TAMIL DIGIT SEVEN 00BEE TAMIL DIGIT EIGHT 00BEF TAMIL DIGIT NINE 00BF0 TAMIL NUMBER TEN 00BF1 TAMIL NUMBER ONE HUNDRED 00BF2 TAMIL NUMBER ONE THOUSAND 00BF3 TAMIL DAY SIGN 00BF4 TAMIL MONTH SIGN 00BF5 TAMIL YEAR SIGN 00BF6 TAMIL DEBIT SIGN 00BF7 TAMIL CREDIT SIGN 00BF8 TAMIL AS ABOVE SIGN 00BF9 TAMIL RUPEE SIGN 00BFA TAMIL NUMBER SIGN 00C00 TELUGU SIGN COMBINING CANDRABINDU ABOVE 00C01 TELUGU SIGN CANDRABINDU 00C02 TELUGU SIGN ANUSVARA 00C03 TELUGU SIGN VISARGA 00C04 TELUGU SIGN COMBINING ANUSVARA ABOVE 00C05 TELUGU LETTER A 00C06 TELUGU LETTER AA 00C07 TELUGU LETTER I 00C08 TELUGU LETTER II 00C09 TELUGU LETTER U 00C0A TELUGU LETTER UU 00C0B TELUGU LETTER VOCALIC R 00C0C TELUGU LETTER VOCALIC L 00C0E TELUGU LETTER E 00C0F TELUGU LETTER EE 00C10 TELUGU LETTER AI 00C12 TELUGU LETTER O 00C13 TELUGU LETTER OO 00C14 TELUGU LETTER AU 00C15 TELUGU LETTER KA 00C16 TELUGU LETTER KHA 00C17 TELUGU LETTER GA 00C18 TELUGU LETTER GHA 00C19 TELUGU LETTER NGA 00C1A TELUGU LETTER CA 00C1B TELUGU LETTER CHA 00C1C TELUGU LETTER JA 00C1D TELUGU LETTER JHA 00C1E TELUGU LETTER NYA 00C1F TELUGU LETTER TTA 00C20 TELUGU LETTER TTHA 00C21 TELUGU LETTER DDA 00C22 TELUGU LETTER DDHA 00C23 TELUGU LETTER NNA 00C24 TELUGU LETTER TA 00C25 TELUGU LETTER THA 00C26 TELUGU LETTER DA 00C27 TELUGU LETTER DHA 00C28 TELUGU LETTER NA 00C2A TELUGU LETTER PA 00C2B TELUGU LETTER PHA 00C2C TELUGU LETTER BA 00C2D TELUGU LETTER BHA 00C2E TELUGU LETTER MA 00C2F TELUGU LETTER YA 00C30 TELUGU LETTER RA 00C31 TELUGU LETTER RRA 00C32 TELUGU LETTER LA 00C33 TELUGU LETTER LLA 00C34 TELUGU LETTER LLLA 00C35 TELUGU LETTER VA 00C36 TELUGU LETTER SHA 00C37 TELUGU LETTER SSA 00C38 TELUGU LETTER SA 00C39 TELUGU LETTER HA 00C3D TELUGU SIGN AVAGRAHA 00C3E TELUGU VOWEL SIGN AA 00C3F TELUGU VOWEL SIGN I 00C40 TELUGU VOWEL SIGN II 00C41 TELUGU VOWEL SIGN U 00C42 TELUGU VOWEL SIGN UU 00C43 TELUGU VOWEL SIGN VOCALIC R 00C44 TELUGU VOWEL SIGN VOCALIC RR 00C46 TELUGU VOWEL SIGN E 00C47 TELUGU VOWEL SIGN EE 00C48 TELUGU VOWEL SIGN AI 00C4A TELUGU VOWEL SIGN O 00C4B TELUGU VOWEL SIGN OO 00C4C TELUGU VOWEL SIGN AU 00C4D TELUGU SIGN VIRAMA 00C55 TELUGU LENGTH MARK 00C56 TELUGU AI LENGTH MARK 00C58 TELUGU LETTER TSA 00C59 TELUGU LETTER DZA 00C5A TELUGU LETTER RRRA 00C60 TELUGU LETTER VOCALIC RR 00C61 TELUGU LETTER VOCALIC LL 00C62 TELUGU VOWEL SIGN VOCALIC L 00C63 TELUGU VOWEL SIGN VOCALIC LL 00C66 TELUGU DIGIT ZERO 00C67 TELUGU DIGIT ONE 00C68 TELUGU DIGIT TWO 00C69 TELUGU DIGIT THREE 00C6A TELUGU DIGIT FOUR 00C6B TELUGU DIGIT FIVE 00C6C TELUGU DIGIT SIX 00C6D TELUGU DIGIT SEVEN 00C6E TELUGU DIGIT EIGHT 00C6F TELUGU DIGIT NINE 00C77 TELUGU SIGN SIDDHAM 00C78 TELUGU FRACTION DIGIT ZERO FOR ODD POWERS OF FOUR 00C79 TELUGU FRACTION DIGIT ONE FOR ODD POWERS OF FOUR 00C7A TELUGU FRACTION DIGIT TWO FOR ODD POWERS OF FOUR 00C7B TELUGU FRACTION DIGIT THREE FOR ODD POWERS OF FOUR 00C7C TELUGU FRACTION DIGIT ONE FOR EVEN POWERS OF FOUR 00C7D TELUGU FRACTION DIGIT TWO FOR EVEN POWERS OF FOUR 00C7E TELUGU FRACTION DIGIT THREE FOR EVEN POWERS OF FOUR 00C7F TELUGU SIGN TUUMU 00C80 KANNADA SIGN SPACING CANDRABINDU 00C81 KANNADA SIGN CANDRABINDU 00C82 KANNADA SIGN ANUSVARA 00C83 KANNADA SIGN VISARGA 00C84 KANNADA SIGN SIDDHAM 00C85 KANNADA LETTER A 00C86 KANNADA LETTER AA 00C87 KANNADA LETTER I 00C88 KANNADA LETTER II 00C89 KANNADA LETTER U 00C8A KANNADA LETTER UU 00C8B KANNADA LETTER VOCALIC R 00C8C KANNADA LETTER VOCALIC L 00C8E KANNADA LETTER E 00C8F KANNADA LETTER EE 00C90 KANNADA LETTER AI 00C92 KANNADA LETTER O 00C93 KANNADA LETTER OO 00C94 KANNADA LETTER AU 00C95 KANNADA LETTER KA 00C96 KANNADA LETTER KHA 00C97 KANNADA LETTER GA 00C98 KANNADA LETTER GHA 00C99 KANNADA LETTER NGA 00C9A KANNADA LETTER CA 00C9B KANNADA LETTER CHA 00C9C KANNADA LETTER JA 00C9D KANNADA LETTER JHA 00C9E KANNADA LETTER NYA 00C9F KANNADA LETTER TTA 00CA0 KANNADA LETTER TTHA 00CA1 KANNADA LETTER DDA 00CA2 KANNADA LETTER DDHA 00CA3 KANNADA LETTER NNA 00CA4 KANNADA LETTER TA 00CA5 KANNADA LETTER THA 00CA6 KANNADA LETTER DA 00CA7 KANNADA LETTER DHA 00CA8 KANNADA LETTER NA 00CAA KANNADA LETTER PA 00CAB KANNADA LETTER PHA 00CAC KANNADA LETTER BA 00CAD KANNADA LETTER BHA 00CAE KANNADA LETTER MA 00CAF KANNADA LETTER YA 00CB0 KANNADA LETTER RA 00CB1 KANNADA LETTER RRA 00CB2 KANNADA LETTER LA 00CB3 KANNADA LETTER LLA 00CB5 KANNADA LETTER VA 00CB6 KANNADA LETTER SHA 00CB7 KANNADA LETTER SSA 00CB8 KANNADA LETTER SA 00CB9 KANNADA LETTER HA 00CBC KANNADA SIGN NUKTA 00CBD KANNADA SIGN AVAGRAHA 00CBE KANNADA VOWEL SIGN AA 00CBF KANNADA VOWEL SIGN I 00CC0 KANNADA VOWEL SIGN II 00CC1 KANNADA VOWEL SIGN U 00CC2 KANNADA VOWEL SIGN UU 00CC3 KANNADA VOWEL SIGN VOCALIC R 00CC4 KANNADA VOWEL SIGN VOCALIC RR 00CC6 KANNADA VOWEL SIGN E 00CC7 KANNADA VOWEL SIGN EE 00CC8 KANNADA VOWEL SIGN AI 00CCA KANNADA VOWEL SIGN O 00CCB KANNADA VOWEL SIGN OO 00CCC KANNADA VOWEL SIGN AU 00CCD KANNADA SIGN VIRAMA 00CD5 KANNADA LENGTH MARK 00CD6 KANNADA AI LENGTH MARK 00CDE KANNADA LETTER LLLA 00CDE KANNADA LETTER FA 00CE0 KANNADA LETTER VOCALIC RR 00CE1 KANNADA LETTER VOCALIC LL 00CE2 KANNADA VOWEL SIGN VOCALIC L 00CE3 KANNADA VOWEL SIGN VOCALIC LL 00CE6 KANNADA DIGIT ZERO 00CE7 KANNADA DIGIT ONE 00CE8 KANNADA DIGIT TWO 00CE9 KANNADA DIGIT THREE 00CEA KANNADA DIGIT FOUR 00CEB KANNADA DIGIT FIVE 00CEC KANNADA DIGIT SIX 00CED KANNADA DIGIT SEVEN 00CEE KANNADA DIGIT EIGHT 00CEF KANNADA DIGIT NINE 00CF1 KANNADA SIGN JIHVAMULIYA 00CF2 KANNADA SIGN UPADHMANIYA 00D00 MALAYALAM SIGN COMBINING ANUSVARA ABOVE 00D01 MALAYALAM SIGN CANDRABINDU 00D02 MALAYALAM SIGN ANUSVARA 00D03 MALAYALAM SIGN VISARGA 00D04 MALAYALAM LETTER VEDIC ANUSVARA 00D05 MALAYALAM LETTER A 00D06 MALAYALAM LETTER AA 00D07 MALAYALAM LETTER I 00D08 MALAYALAM LETTER II 00D09 MALAYALAM LETTER U 00D0A MALAYALAM LETTER UU 00D0B MALAYALAM LETTER VOCALIC R 00D0C MALAYALAM LETTER VOCALIC L 00D0E MALAYALAM LETTER E 00D0F MALAYALAM LETTER EE 00D10 MALAYALAM LETTER AI 00D12 MALAYALAM LETTER O 00D13 MALAYALAM LETTER OO 00D14 MALAYALAM LETTER AU 00D15 MALAYALAM LETTER KA 00D16 MALAYALAM LETTER KHA 00D17 MALAYALAM LETTER GA 00D18 MALAYALAM LETTER GHA 00D19 MALAYALAM LETTER NGA 00D1A MALAYALAM LETTER CA 00D1B MALAYALAM LETTER CHA 00D1C MALAYALAM LETTER JA 00D1D MALAYALAM LETTER JHA 00D1E MALAYALAM LETTER NYA 00D1F MALAYALAM LETTER TTA 00D20 MALAYALAM LETTER TTHA 00D21 MALAYALAM LETTER DDA 00D22 MALAYALAM LETTER DDHA 00D23 MALAYALAM LETTER NNA 00D24 MALAYALAM LETTER TA 00D25 MALAYALAM LETTER THA 00D26 MALAYALAM LETTER DA 00D27 MALAYALAM LETTER DHA 00D28 MALAYALAM LETTER NA 00D29 MALAYALAM LETTER NNNA 00D2A MALAYALAM LETTER PA 00D2B MALAYALAM LETTER PHA 00D2C MALAYALAM LETTER BA 00D2D MALAYALAM LETTER BHA 00D2E MALAYALAM LETTER MA 00D2F MALAYALAM LETTER YA 00D30 MALAYALAM LETTER RA 00D31 MALAYALAM LETTER RRA 00D32 MALAYALAM LETTER LA 00D33 MALAYALAM LETTER LLA 00D34 MALAYALAM LETTER LLLA 00D35 MALAYALAM LETTER VA 00D36 MALAYALAM LETTER SHA 00D37 MALAYALAM LETTER SSA 00D38 MALAYALAM LETTER SA 00D39 MALAYALAM LETTER HA 00D3A MALAYALAM LETTER TTTA 00D3B MALAYALAM SIGN VERTICAL BAR VIRAMA 00D3C MALAYALAM SIGN CIRCULAR VIRAMA 00D3D MALAYALAM SIGN AVAGRAHA 00D3E MALAYALAM VOWEL SIGN AA 00D3F MALAYALAM VOWEL SIGN I 00D40 MALAYALAM VOWEL SIGN II 00D41 MALAYALAM VOWEL SIGN U 00D42 MALAYALAM VOWEL SIGN UU 00D43 MALAYALAM VOWEL SIGN VOCALIC R 00D44 MALAYALAM VOWEL SIGN VOCALIC RR 00D46 MALAYALAM VOWEL SIGN E 00D47 MALAYALAM VOWEL SIGN EE 00D48 MALAYALAM VOWEL SIGN AI 00D4A MALAYALAM VOWEL SIGN O 00D4B MALAYALAM VOWEL SIGN OO 00D4C MALAYALAM VOWEL SIGN AU 00D4D MALAYALAM SIGN VIRAMA 00D4E MALAYALAM LETTER DOT REPH 00D4F MALAYALAM SIGN PARA 00D54 MALAYALAM LETTER CHILLU M 00D55 MALAYALAM LETTER CHILLU Y 00D56 MALAYALAM LETTER CHILLU LLL 00D57 MALAYALAM AU LENGTH MARK 00D58 MALAYALAM FRACTION ONE ONE-HUNDRED-AND-SIXTIETH 00D59 MALAYALAM FRACTION ONE FORTIETH 00D5A MALAYALAM FRACTION THREE EIGHTIETHS 00D5B MALAYALAM FRACTION ONE TWENTIETH 00D5C MALAYALAM FRACTION ONE TENTH 00D5D MALAYALAM FRACTION THREE TWENTIETHS 00D5E MALAYALAM FRACTION ONE FIFTH 00D5F MALAYALAM LETTER ARCHAIC II 00D60 MALAYALAM LETTER VOCALIC RR 00D61 MALAYALAM LETTER VOCALIC LL 00D62 MALAYALAM VOWEL SIGN VOCALIC L 00D63 MALAYALAM VOWEL SIGN VOCALIC LL 00D66 MALAYALAM DIGIT ZERO 00D67 MALAYALAM DIGIT ONE 00D68 MALAYALAM DIGIT TWO 00D69 MALAYALAM DIGIT THREE 00D6A MALAYALAM DIGIT FOUR 00D6B MALAYALAM DIGIT FIVE 00D6C MALAYALAM DIGIT SIX 00D6D MALAYALAM DIGIT SEVEN 00D6E MALAYALAM DIGIT EIGHT 00D6F MALAYALAM DIGIT NINE 00D70 MALAYALAM NUMBER TEN 00D71 MALAYALAM NUMBER ONE HUNDRED 00D72 MALAYALAM NUMBER ONE THOUSAND 00D73 MALAYALAM FRACTION ONE QUARTER 00D74 MALAYALAM FRACTION ONE HALF 00D75 MALAYALAM FRACTION THREE QUARTERS 00D76 MALAYALAM FRACTION ONE SIXTEENTH 00D77 MALAYALAM FRACTION ONE EIGHTH 00D78 MALAYALAM FRACTION THREE SIXTEENTHS 00D79 MALAYALAM DATE MARK 00D7A MALAYALAM LETTER CHILLU NN 00D7B MALAYALAM LETTER CHILLU N 00D7C MALAYALAM LETTER CHILLU RR 00D7D MALAYALAM LETTER CHILLU L 00D7E MALAYALAM LETTER CHILLU LL 00D7F MALAYALAM LETTER CHILLU K 00D81 SINHALA SIGN CANDRABINDU 00D82 SINHALA SIGN ANUSVARAYA 00D83 SINHALA SIGN VISARGAYA 00D85 SINHALA LETTER AYANNA 00D86 SINHALA LETTER AAYANNA 00D87 SINHALA LETTER AEYANNA 00D88 SINHALA LETTER AEEYANNA 00D89 SINHALA LETTER IYANNA 00D8A SINHALA LETTER IIYANNA 00D8B SINHALA LETTER UYANNA 00D8C SINHALA LETTER UUYANNA 00D8D SINHALA LETTER IRUYANNA 00D8E SINHALA LETTER IRUUYANNA 00D8F SINHALA LETTER ILUYANNA 00D90 SINHALA LETTER ILUUYANNA 00D91 SINHALA LETTER EYANNA 00D92 SINHALA LETTER EEYANNA 00D93 SINHALA LETTER AIYANNA 00D94 SINHALA LETTER OYANNA 00D95 SINHALA LETTER OOYANNA 00D96 SINHALA LETTER AUYANNA 00D9A SINHALA LETTER ALPAPRAANA KAYANNA 00D9B SINHALA LETTER MAHAAPRAANA KAYANNA 00D9C SINHALA LETTER ALPAPRAANA GAYANNA 00D9D SINHALA LETTER MAHAAPRAANA GAYANNA 00D9E SINHALA LETTER KANTAJA NAASIKYAYA 00D9F SINHALA LETTER SANYAKA GAYANNA 00DA0 SINHALA LETTER ALPAPRAANA CAYANNA 00DA1 SINHALA LETTER MAHAAPRAANA CAYANNA 00DA2 SINHALA LETTER ALPAPRAANA JAYANNA 00DA3 SINHALA LETTER MAHAAPRAANA JAYANNA 00DA4 SINHALA LETTER TAALUJA NAASIKYAYA 00DA5 SINHALA LETTER TAALUJA SANYOOGA NAAKSIKYAYA 00DA6 SINHALA LETTER SANYAKA JAYANNA 00DA7 SINHALA LETTER ALPAPRAANA TTAYANNA 00DA8 SINHALA LETTER MAHAAPRAANA TTAYANNA 00DA9 SINHALA LETTER ALPAPRAANA DDAYANNA 00DAA SINHALA LETTER MAHAAPRAANA DDAYANNA 00DAB SINHALA LETTER MUURDHAJA NAYANNA 00DAC SINHALA LETTER SANYAKA DDAYANNA 00DAD SINHALA LETTER ALPAPRAANA TAYANNA 00DAE SINHALA LETTER MAHAAPRAANA TAYANNA 00DAF SINHALA LETTER ALPAPRAANA DAYANNA 00DB0 SINHALA LETTER MAHAAPRAANA DAYANNA 00DB1 SINHALA LETTER DANTAJA NAYANNA 00DB3 SINHALA LETTER SANYAKA DAYANNA 00DB4 SINHALA LETTER ALPAPRAANA PAYANNA 00DB5 SINHALA LETTER MAHAAPRAANA PAYANNA 00DB6 SINHALA LETTER ALPAPRAANA BAYANNA 00DB7 SINHALA LETTER MAHAAPRAANA BAYANNA 00DB8 SINHALA LETTER MAYANNA 00DB9 SINHALA LETTER AMBA BAYANNA 00DBA SINHALA LETTER YAYANNA 00DBB SINHALA LETTER RAYANNA 00DBD SINHALA LETTER DANTAJA LAYANNA 00DC0 SINHALA LETTER VAYANNA 00DC1 SINHALA LETTER TAALUJA SAYANNA 00DC2 SINHALA LETTER MUURDHAJA SAYANNA 00DC3 SINHALA LETTER DANTAJA SAYANNA 00DC4 SINHALA LETTER HAYANNA 00DC5 SINHALA LETTER MUURDHAJA LAYANNA 00DC6 SINHALA LETTER FAYANNA 00DCA SINHALA SIGN AL-LAKUNA 00DCF SINHALA VOWEL SIGN AELA-PILLA 00DD0 SINHALA VOWEL SIGN KETTI AEDA-PILLA 00DD1 SINHALA VOWEL SIGN DIGA AEDA-PILLA 00DD2 SINHALA VOWEL SIGN KETTI IS-PILLA 00DD3 SINHALA VOWEL SIGN DIGA IS-PILLA 00DD4 SINHALA VOWEL SIGN KETTI PAA-PILLA 00DD6 SINHALA VOWEL SIGN DIGA PAA-PILLA 00DD8 SINHALA VOWEL SIGN GAETTA-PILLA 00DD9 SINHALA VOWEL SIGN KOMBUVA 00DDA SINHALA VOWEL SIGN DIGA KOMBUVA 00DDB SINHALA VOWEL SIGN KOMBU DEKA 00DDC SINHALA VOWEL SIGN KOMBUVA HAA AELA-PILLA 00DDD SINHALA VOWEL SIGN KOMBUVA HAA DIGA AELA-PILLA 00DDE SINHALA VOWEL SIGN KOMBUVA HAA GAYANUKITTA 00DDF SINHALA VOWEL SIGN GAYANUKITTA 00DE6 SINHALA LITH DIGIT ZERO 00DE7 SINHALA LITH DIGIT ONE 00DE8 SINHALA LITH DIGIT TWO 00DE9 SINHALA LITH DIGIT THREE 00DEA SINHALA LITH DIGIT FOUR 00DEB SINHALA LITH DIGIT FIVE 00DEC SINHALA LITH DIGIT SIX 00DED SINHALA LITH DIGIT SEVEN 00DEE SINHALA LITH DIGIT EIGHT 00DEF SINHALA LITH DIGIT NINE 00DF2 SINHALA VOWEL SIGN DIGA GAETTA-PILLA 00DF3 SINHALA VOWEL SIGN DIGA GAYANUKITTA 00DF4 SINHALA PUNCTUATION KUNDDALIYA 00E01 THAI CHARACTER KO KAI 00E02 THAI CHARACTER KHO KHAI 00E03 THAI CHARACTER KHO KHUAT 00E04 THAI CHARACTER KHO KHWAI 00E05 THAI CHARACTER KHO KHON 00E06 THAI CHARACTER KHO RAKHANG 00E07 THAI CHARACTER NGO NGU 00E08 THAI CHARACTER CHO CHAN 00E09 THAI CHARACTER CHO CHING 00E0A THAI CHARACTER CHO CHANG 00E0B THAI CHARACTER SO SO 00E0C THAI CHARACTER CHO CHOE 00E0D THAI CHARACTER YO YING 00E0E THAI CHARACTER DO CHADA 00E0F THAI CHARACTER TO PATAK 00E10 THAI CHARACTER THO THAN 00E11 THAI CHARACTER THO NANGMONTHO 00E12 THAI CHARACTER THO PHUTHAO 00E13 THAI CHARACTER NO NEN 00E14 THAI CHARACTER DO DEK 00E15 THAI CHARACTER TO TAO 00E16 THAI CHARACTER THO THUNG 00E17 THAI CHARACTER THO THAHAN 00E18 THAI CHARACTER THO THONG 00E19 THAI CHARACTER NO NU 00E1A THAI CHARACTER BO BAIMAI 00E1B THAI CHARACTER PO PLA 00E1C THAI CHARACTER PHO PHUNG 00E1D THAI CHARACTER FO FA 00E1E THAI CHARACTER PHO PHAN 00E1F THAI CHARACTER FO FAN 00E20 THAI CHARACTER PHO SAMPHAO 00E21 THAI CHARACTER MO MA 00E22 THAI CHARACTER YO YAK 00E23 THAI CHARACTER RO RUA 00E24 THAI CHARACTER RU 00E25 THAI CHARACTER LO LING 00E26 THAI CHARACTER LU 00E27 THAI CHARACTER WO WAEN 00E28 THAI CHARACTER SO SALA 00E29 THAI CHARACTER SO RUSI 00E2A THAI CHARACTER SO SUA 00E2B THAI CHARACTER HO HIP 00E2C THAI CHARACTER LO CHULA 00E2D THAI CHARACTER O ANG 00E2E THAI CHARACTER HO NOKHUK 00E2F THAI CHARACTER PAIYANNOI 00E30 THAI CHARACTER SARA A 00E31 THAI CHARACTER MAI HAN-AKAT 00E32 THAI CHARACTER SARA AA 00E33 THAI CHARACTER SARA AM 00E34 THAI CHARACTER SARA I 00E35 THAI CHARACTER SARA II 00E36 THAI CHARACTER SARA UE 00E37 THAI CHARACTER SARA UEE 00E38 THAI CHARACTER SARA U 00E39 THAI CHARACTER SARA UU 00E3A THAI CHARACTER PHINTHU 00E3F THAI CURRENCY SYMBOL BAHT 00E40 THAI CHARACTER SARA E 00E41 THAI CHARACTER SARA AE 00E42 THAI CHARACTER SARA O 00E43 THAI CHARACTER SARA AI MAIMUAN 00E44 THAI CHARACTER SARA AI MAIMALAI 00E45 THAI CHARACTER LAKKHANGYAO 00E46 THAI CHARACTER MAIYAMOK 00E47 THAI CHARACTER MAITAIKHU 00E48 THAI CHARACTER MAI EK 00E49 THAI CHARACTER MAI THO 00E4A THAI CHARACTER MAI TRI 00E4B THAI CHARACTER MAI CHATTAWA 00E4C THAI CHARACTER THANTHAKHAT 00E4D THAI CHARACTER NIKHAHIT 00E4E THAI CHARACTER YAMAKKAN 00E4F THAI CHARACTER FONGMAN 00E50 THAI DIGIT ZERO 00E51 THAI DIGIT ONE 00E52 THAI DIGIT TWO 00E53 THAI DIGIT THREE 00E54 THAI DIGIT FOUR 00E55 THAI DIGIT FIVE 00E56 THAI DIGIT SIX 00E57 THAI DIGIT SEVEN 00E58 THAI DIGIT EIGHT 00E59 THAI DIGIT NINE 00E5A THAI CHARACTER ANGKHANKHU 00E5B THAI CHARACTER KHOMUT 00E81 LAO LETTER KO 00E82 LAO LETTER KHO SUNG 00E84 LAO LETTER KHO TAM 00E86 LAO LETTER PALI GHA 00E87 LAO LETTER NGO 00E88 LAO LETTER CO 00E89 LAO LETTER PALI CHA 00E8A LAO LETTER SO TAM 00E8C LAO LETTER PALI JHA 00E8D LAO LETTER NYO 00E8E LAO LETTER PALI NYA 00E8F LAO LETTER PALI TTA 00E90 LAO LETTER PALI TTHA 00E91 LAO LETTER PALI DDA 00E92 LAO LETTER PALI DDHA 00E93 LAO LETTER PALI NNA 00E94 LAO LETTER DO 00E95 LAO LETTER TO 00E96 LAO LETTER THO SUNG 00E97 LAO LETTER THO TAM 00E98 LAO LETTER PALI DHA 00E99 LAO LETTER NO 00E9A LAO LETTER BO 00E9B LAO LETTER PO 00E9C LAO LETTER PHO SUNG 00E9D LAO LETTER FO FON 00E9D LAO LETTER FO TAM 00E9E LAO LETTER PHO TAM 00E9F LAO LETTER FO FAY 00E9F LAO LETTER FO SUNG 00EA0 LAO LETTER PALI BHA 00EA1 LAO LETTER MO 00EA2 LAO LETTER YO 00EA3 LAO LETTER RO 00EA3 LAO LETTER LO LING 00EA5 LAO LETTER LO 00EA5 LAO LETTER LO LOOT 00EA7 LAO LETTER WO 00EA8 LAO LETTER SANSKRIT SHA 00EA9 LAO LETTER SANSKRIT SSA 00EAA LAO LETTER SO SUNG 00EAB LAO LETTER HO SUNG 00EAC LAO LETTER PALI LLA 00EAD LAO LETTER O 00EAE LAO LETTER HO TAM 00EAF LAO ELLIPSIS 00EB0 LAO VOWEL SIGN A 00EB1 LAO VOWEL SIGN MAI KAN 00EB2 LAO VOWEL SIGN AA 00EB3 LAO VOWEL SIGN AM 00EB4 LAO VOWEL SIGN I 00EB5 LAO VOWEL SIGN II 00EB6 LAO VOWEL SIGN Y 00EB7 LAO VOWEL SIGN YY 00EB8 LAO VOWEL SIGN U 00EB9 LAO VOWEL SIGN UU 00EBA LAO SIGN PALI VIRAMA 00EBB LAO VOWEL SIGN MAI KON 00EBC LAO SEMIVOWEL SIGN LO 00EBD LAO SEMIVOWEL SIGN NYO 00EC0 LAO VOWEL SIGN E 00EC1 LAO VOWEL SIGN EI 00EC2 LAO VOWEL SIGN O 00EC3 LAO VOWEL SIGN AY 00EC4 LAO VOWEL SIGN AI 00EC6 LAO KO LA 00EC8 LAO TONE MAI EK 00EC9 LAO TONE MAI THO 00ECA LAO TONE MAI TI 00ECB LAO TONE MAI CATAWA 00ECC LAO CANCELLATION MARK 00ECD LAO NIGGAHITA 00ED0 LAO DIGIT ZERO 00ED1 LAO DIGIT ONE 00ED2 LAO DIGIT TWO 00ED3 LAO DIGIT THREE 00ED4 LAO DIGIT FOUR 00ED5 LAO DIGIT FIVE 00ED6 LAO DIGIT SIX 00ED7 LAO DIGIT SEVEN 00ED8 LAO DIGIT EIGHT 00ED9 LAO DIGIT NINE 00EDC LAO HO NO 00EDD LAO HO MO 00EDE LAO LETTER KHMU GO 00EDF LAO LETTER KHMU NYO 00F00 TIBETAN SYLLABLE OM 00F01 TIBETAN MARK GTER YIG MGO TRUNCATED A 00F02 TIBETAN MARK GTER YIG MGO -UM RNAM BCAD MA 00F03 TIBETAN MARK GTER YIG MGO -UM GTER TSHEG MA 00F04 TIBETAN MARK INITIAL YIG MGO MDUN MA 00F05 TIBETAN MARK CLOSING YIG MGO SGAB MA 00F06 TIBETAN MARK CARET YIG MGO PHUR SHAD MA 00F07 TIBETAN MARK YIG MGO TSHEG SHAD MA 00F08 TIBETAN MARK SBRUL SHAD 00F09 TIBETAN MARK BSKUR YIG MGO 00F0A TIBETAN MARK BKA- SHOG YIG MGO 00F0B TIBETAN MARK INTERSYLLABIC TSHEG 00F0C TIBETAN MARK DELIMITER TSHEG BSTAR 00F0D TIBETAN MARK SHAD 00F0E TIBETAN MARK NYIS SHAD 00F0F TIBETAN MARK TSHEG SHAD 00F10 TIBETAN MARK NYIS TSHEG SHAD 00F11 TIBETAN MARK RIN CHEN SPUNGS SHAD 00F12 TIBETAN MARK RGYA GRAM SHAD 00F13 TIBETAN MARK CARET -DZUD RTAGS ME LONG CAN 00F14 TIBETAN MARK GTER TSHEG 00F15 TIBETAN LOGOTYPE SIGN CHAD RTAGS 00F16 TIBETAN LOGOTYPE SIGN LHAG RTAGS 00F17 TIBETAN ASTROLOGICAL SIGN SGRA GCAN -CHAR RTAGS 00F18 TIBETAN ASTROLOGICAL SIGN -KHYUD PA 00F19 TIBETAN ASTROLOGICAL SIGN SDONG TSHUGS 00F1A TIBETAN SIGN RDEL DKAR GCIG 00F1B TIBETAN SIGN RDEL DKAR GNYIS 00F1C TIBETAN SIGN RDEL DKAR GSUM 00F1D TIBETAN SIGN RDEL NAG GCIG 00F1E TIBETAN SIGN RDEL NAG GNYIS 00F1F TIBETAN SIGN RDEL DKAR RDEL NAG 00F20 TIBETAN DIGIT ZERO 00F21 TIBETAN DIGIT ONE 00F22 TIBETAN DIGIT TWO 00F23 TIBETAN DIGIT THREE 00F24 TIBETAN DIGIT FOUR 00F25 TIBETAN DIGIT FIVE 00F26 TIBETAN DIGIT SIX 00F27 TIBETAN DIGIT SEVEN 00F28 TIBETAN DIGIT EIGHT 00F29 TIBETAN DIGIT NINE 00F2A TIBETAN DIGIT HALF ONE 00F2B TIBETAN DIGIT HALF TWO 00F2C TIBETAN DIGIT HALF THREE 00F2D TIBETAN DIGIT HALF FOUR 00F2E TIBETAN DIGIT HALF FIVE 00F2F TIBETAN DIGIT HALF SIX 00F30 TIBETAN DIGIT HALF SEVEN 00F31 TIBETAN DIGIT HALF EIGHT 00F32 TIBETAN DIGIT HALF NINE 00F33 TIBETAN DIGIT HALF ZERO 00F34 TIBETAN MARK BSDUS RTAGS 00F35 TIBETAN MARK NGAS BZUNG NYI ZLA 00F36 TIBETAN MARK CARET -DZUD RTAGS BZHI MIG CAN 00F37 TIBETAN MARK NGAS BZUNG SGOR RTAGS 00F38 TIBETAN MARK CHE MGO 00F39 TIBETAN MARK TSA -PHRU 00F3A TIBETAN MARK GUG RTAGS GYON 00F3B TIBETAN MARK GUG RTAGS GYAS 00F3C TIBETAN MARK ANG KHANG GYON 00F3D TIBETAN MARK ANG KHANG GYAS 00F3E TIBETAN SIGN YAR TSHES 00F3F TIBETAN SIGN MAR TSHES 00F40 TIBETAN LETTER KA 00F41 TIBETAN LETTER KHA 00F42 TIBETAN LETTER GA 00F43 TIBETAN LETTER GHA 00F44 TIBETAN LETTER NGA 00F45 TIBETAN LETTER CA 00F46 TIBETAN LETTER CHA 00F47 TIBETAN LETTER JA 00F49 TIBETAN LETTER NYA 00F4A TIBETAN LETTER TTA 00F4B TIBETAN LETTER TTHA 00F4C TIBETAN LETTER DDA 00F4D TIBETAN LETTER DDHA 00F4E TIBETAN LETTER NNA 00F4F TIBETAN LETTER TA 00F50 TIBETAN LETTER THA 00F51 TIBETAN LETTER DA 00F52 TIBETAN LETTER DHA 00F53 TIBETAN LETTER NA 00F54 TIBETAN LETTER PA 00F55 TIBETAN LETTER PHA 00F56 TIBETAN LETTER BA 00F57 TIBETAN LETTER BHA 00F58 TIBETAN LETTER MA 00F59 TIBETAN LETTER TSA 00F5A TIBETAN LETTER TSHA 00F5B TIBETAN LETTER DZA 00F5C TIBETAN LETTER DZHA 00F5D TIBETAN LETTER WA 00F5E TIBETAN LETTER ZHA 00F5F TIBETAN LETTER ZA 00F60 TIBETAN LETTER -A 00F61 TIBETAN LETTER YA 00F62 TIBETAN LETTER RA 00F63 TIBETAN LETTER LA 00F64 TIBETAN LETTER SHA 00F65 TIBETAN LETTER SSA 00F66 TIBETAN LETTER SA 00F67 TIBETAN LETTER HA 00F68 TIBETAN LETTER A 00F69 TIBETAN LETTER KSSA 00F6A TIBETAN LETTER FIXED-FORM RA 00F6B TIBETAN LETTER KKA 00F6C TIBETAN LETTER RRA 00F71 TIBETAN VOWEL SIGN AA 00F72 TIBETAN VOWEL SIGN I 00F73 TIBETAN VOWEL SIGN II 00F74 TIBETAN VOWEL SIGN U 00F75 TIBETAN VOWEL SIGN UU 00F76 TIBETAN VOWEL SIGN VOCALIC R 00F77 TIBETAN VOWEL SIGN VOCALIC RR 00F78 TIBETAN VOWEL SIGN VOCALIC L 00F79 TIBETAN VOWEL SIGN VOCALIC LL 00F7A TIBETAN VOWEL SIGN E 00F7B TIBETAN VOWEL SIGN EE 00F7C TIBETAN VOWEL SIGN O 00F7D TIBETAN VOWEL SIGN OO 00F7E TIBETAN SIGN RJES SU NGA RO 00F7F TIBETAN SIGN RNAM BCAD 00F80 TIBETAN VOWEL SIGN REVERSED I 00F81 TIBETAN VOWEL SIGN REVERSED II 00F82 TIBETAN SIGN NYI ZLA NAA DA 00F83 TIBETAN SIGN SNA LDAN 00F84 TIBETAN MARK HALANTA 00F85 TIBETAN MARK PALUTA 00F86 TIBETAN SIGN LCI RTAGS 00F87 TIBETAN SIGN YANG RTAGS 00F88 TIBETAN SIGN LCE TSA CAN 00F89 TIBETAN SIGN MCHU CAN 00F8A TIBETAN SIGN GRU CAN RGYINGS 00F8B TIBETAN SIGN GRU MED RGYINGS 00F8C TIBETAN SIGN INVERTED MCHU CAN 00F8D TIBETAN SUBJOINED SIGN LCE TSA CAN 00F8E TIBETAN SUBJOINED SIGN MCHU CAN 00F8F TIBETAN SUBJOINED SIGN INVERTED MCHU CAN 00F90 TIBETAN SUBJOINED LETTER KA 00F91 TIBETAN SUBJOINED LETTER KHA 00F92 TIBETAN SUBJOINED LETTER GA 00F93 TIBETAN SUBJOINED LETTER GHA 00F94 TIBETAN SUBJOINED LETTER NGA 00F95 TIBETAN SUBJOINED LETTER CA 00F96 TIBETAN SUBJOINED LETTER CHA 00F97 TIBETAN SUBJOINED LETTER JA 00F99 TIBETAN SUBJOINED LETTER NYA 00F9A TIBETAN SUBJOINED LETTER TTA 00F9B TIBETAN SUBJOINED LETTER TTHA 00F9C TIBETAN SUBJOINED LETTER DDA 00F9D TIBETAN SUBJOINED LETTER DDHA 00F9E TIBETAN SUBJOINED LETTER NNA 00F9F TIBETAN SUBJOINED LETTER TA 00FA0 TIBETAN SUBJOINED LETTER THA 00FA1 TIBETAN SUBJOINED LETTER DA 00FA2 TIBETAN SUBJOINED LETTER DHA 00FA3 TIBETAN SUBJOINED LETTER NA 00FA4 TIBETAN SUBJOINED LETTER PA 00FA5 TIBETAN SUBJOINED LETTER PHA 00FA6 TIBETAN SUBJOINED LETTER BA 00FA7 TIBETAN SUBJOINED LETTER BHA 00FA8 TIBETAN SUBJOINED LETTER MA 00FA9 TIBETAN SUBJOINED LETTER TSA 00FAA TIBETAN SUBJOINED LETTER TSHA 00FAB TIBETAN SUBJOINED LETTER DZA 00FAC TIBETAN SUBJOINED LETTER DZHA 00FAD TIBETAN SUBJOINED LETTER WA 00FAE TIBETAN SUBJOINED LETTER ZHA 00FAF TIBETAN SUBJOINED LETTER ZA 00FB0 TIBETAN SUBJOINED LETTER -A 00FB1 TIBETAN SUBJOINED LETTER YA 00FB2 TIBETAN SUBJOINED LETTER RA 00FB3 TIBETAN SUBJOINED LETTER LA 00FB4 TIBETAN SUBJOINED LETTER SHA 00FB5 TIBETAN SUBJOINED LETTER SSA 00FB6 TIBETAN SUBJOINED LETTER SA 00FB7 TIBETAN SUBJOINED LETTER HA 00FB8 TIBETAN SUBJOINED LETTER A 00FB9 TIBETAN SUBJOINED LETTER KSSA 00FBA TIBETAN SUBJOINED LETTER FIXED-FORM WA 00FBB TIBETAN SUBJOINED LETTER FIXED-FORM YA 00FBC TIBETAN SUBJOINED LETTER FIXED-FORM RA 00FBE TIBETAN KU RU KHA 00FBF TIBETAN KU RU KHA BZHI MIG CAN 00FC0 TIBETAN CANTILLATION SIGN HEAVY BEAT 00FC1 TIBETAN CANTILLATION SIGN LIGHT BEAT 00FC2 TIBETAN CANTILLATION SIGN CANG TE-U 00FC3 TIBETAN CANTILLATION SIGN SBUB -CHAL 00FC4 TIBETAN SYMBOL DRIL BU 00FC5 TIBETAN SYMBOL RDO RJE 00FC6 TIBETAN SYMBOL PADMA GDAN 00FC7 TIBETAN SYMBOL RDO RJE RGYA GRAM 00FC8 TIBETAN SYMBOL PHUR PA 00FC9 TIBETAN SYMBOL NOR BU 00FCA TIBETAN SYMBOL NOR BU NYIS -KHYIL 00FCB TIBETAN SYMBOL NOR BU GSUM -KHYIL 00FCC TIBETAN SYMBOL NOR BU BZHI -KHYIL 00FCE TIBETAN SIGN RDEL NAG RDEL DKAR 00FCF TIBETAN SIGN RDEL NAG GSUM 00FD0 TIBETAN MARK BKA- SHOG GI MGO RGYAN 00FD0 TIBETAN MARK BSKA- SHOG GI MGO RGYAN 00FD1 TIBETAN MARK MNYAM YIG GI MGO RGYAN 00FD2 TIBETAN MARK NYIS TSHEG 00FD3 TIBETAN MARK INITIAL BRDA RNYING YIG MGO MDUN MA 00FD4 TIBETAN MARK CLOSING BRDA RNYING YIG MGO SGAB MA 00FD5 RIGHT-FACING SVASTI SIGN 00FD6 LEFT-FACING SVASTI SIGN 00FD7 RIGHT-FACING SVASTI SIGN WITH DOTS 00FD8 LEFT-FACING SVASTI SIGN WITH DOTS 00FD9 TIBETAN MARK LEADING MCHAN RTAGS 00FDA TIBETAN MARK TRAILING MCHAN RTAGS 01000 MYANMAR LETTER KA 01001 MYANMAR LETTER KHA 01002 MYANMAR LETTER GA 01003 MYANMAR LETTER GHA 01004 MYANMAR LETTER NGA 01005 MYANMAR LETTER CA 01006 MYANMAR LETTER CHA 01007 MYANMAR LETTER JA 01008 MYANMAR LETTER JHA 01009 MYANMAR LETTER NYA 0100A MYANMAR LETTER NNYA 0100B MYANMAR LETTER TTA 0100C MYANMAR LETTER TTHA 0100D MYANMAR LETTER DDA 0100E MYANMAR LETTER DDHA 0100F MYANMAR LETTER NNA 01010 MYANMAR LETTER TA 01011 MYANMAR LETTER THA 01012 MYANMAR LETTER DA 01013 MYANMAR LETTER DHA 01014 MYANMAR LETTER NA 01015 MYANMAR LETTER PA 01016 MYANMAR LETTER PHA 01017 MYANMAR LETTER BA 01018 MYANMAR LETTER BHA 01019 MYANMAR LETTER MA 0101A MYANMAR LETTER YA 0101B MYANMAR LETTER RA 0101C MYANMAR LETTER LA 0101D MYANMAR LETTER WA 0101E MYANMAR LETTER SA 0101F MYANMAR LETTER HA 01020 MYANMAR LETTER LLA 01021 MYANMAR LETTER A 01022 MYANMAR LETTER SHAN A 01023 MYANMAR LETTER I 01024 MYANMAR LETTER II 01025 MYANMAR LETTER U 01026 MYANMAR LETTER UU 01027 MYANMAR LETTER E 01028 MYANMAR LETTER MON E 01029 MYANMAR LETTER O 0102A MYANMAR LETTER AU 0102B MYANMAR VOWEL SIGN TALL AA 0102C MYANMAR VOWEL SIGN AA 0102D MYANMAR VOWEL SIGN I 0102E MYANMAR VOWEL SIGN II 0102F MYANMAR VOWEL SIGN U 01030 MYANMAR VOWEL SIGN UU 01031 MYANMAR VOWEL SIGN E 01032 MYANMAR VOWEL SIGN AI 01033 MYANMAR VOWEL SIGN MON II 01034 MYANMAR VOWEL SIGN MON O 01035 MYANMAR VOWEL SIGN E ABOVE 01036 MYANMAR SIGN ANUSVARA 01037 MYANMAR SIGN DOT BELOW 01038 MYANMAR SIGN VISARGA 01039 MYANMAR SIGN VIRAMA 0103A MYANMAR SIGN ASAT 0103B MYANMAR CONSONANT SIGN MEDIAL YA 0103C MYANMAR CONSONANT SIGN MEDIAL RA 0103D MYANMAR CONSONANT SIGN MEDIAL WA 0103E MYANMAR CONSONANT SIGN MEDIAL HA 0103F MYANMAR LETTER GREAT SA 01040 MYANMAR DIGIT ZERO 01041 MYANMAR DIGIT ONE 01042 MYANMAR DIGIT TWO 01043 MYANMAR DIGIT THREE 01044 MYANMAR DIGIT FOUR 01045 MYANMAR DIGIT FIVE 01046 MYANMAR DIGIT SIX 01047 MYANMAR DIGIT SEVEN 01048 MYANMAR DIGIT EIGHT 01049 MYANMAR DIGIT NINE 0104A MYANMAR SIGN LITTLE SECTION 0104B MYANMAR SIGN SECTION 0104C MYANMAR SYMBOL LOCATIVE 0104D MYANMAR SYMBOL COMPLETED 0104E MYANMAR SYMBOL AFOREMENTIONED 0104F MYANMAR SYMBOL GENITIVE 01050 MYANMAR LETTER SHA 01051 MYANMAR LETTER SSA 01052 MYANMAR LETTER VOCALIC R 01053 MYANMAR LETTER VOCALIC RR 01054 MYANMAR LETTER VOCALIC L 01055 MYANMAR LETTER VOCALIC LL 01056 MYANMAR VOWEL SIGN VOCALIC R 01057 MYANMAR VOWEL SIGN VOCALIC RR 01058 MYANMAR VOWEL SIGN VOCALIC L 01059 MYANMAR VOWEL SIGN VOCALIC LL 0105A MYANMAR LETTER MON NGA 0105B MYANMAR LETTER MON JHA 0105C MYANMAR LETTER MON BBA 0105D MYANMAR LETTER MON BBE 0105E MYANMAR CONSONANT SIGN MON MEDIAL NA 0105F MYANMAR CONSONANT SIGN MON MEDIAL MA 01060 MYANMAR CONSONANT SIGN MON MEDIAL LA 01061 MYANMAR LETTER SGAW KAREN SHA 01062 MYANMAR VOWEL SIGN SGAW KAREN EU 01063 MYANMAR TONE MARK SGAW KAREN HATHI 01064 MYANMAR TONE MARK SGAW KAREN KE PHO 01065 MYANMAR LETTER WESTERN PWO KAREN THA 01066 MYANMAR LETTER WESTERN PWO KAREN PWA 01067 MYANMAR VOWEL SIGN WESTERN PWO KAREN EU 01068 MYANMAR VOWEL SIGN WESTERN PWO KAREN UE 01069 MYANMAR SIGN WESTERN PWO KAREN TONE-1 0106A MYANMAR SIGN WESTERN PWO KAREN TONE-2 0106B MYANMAR SIGN WESTERN PWO KAREN TONE-3 0106C MYANMAR SIGN WESTERN PWO KAREN TONE-4 0106D MYANMAR SIGN WESTERN PWO KAREN TONE-5 0106E MYANMAR LETTER EASTERN PWO KAREN NNA 0106F MYANMAR LETTER EASTERN PWO KAREN YWA 01070 MYANMAR LETTER EASTERN PWO KAREN GHWA 01071 MYANMAR VOWEL SIGN GEBA KAREN I 01072 MYANMAR VOWEL SIGN KAYAH OE 01073 MYANMAR VOWEL SIGN KAYAH U 01074 MYANMAR VOWEL SIGN KAYAH EE 01075 MYANMAR LETTER SHAN KA 01076 MYANMAR LETTER SHAN KHA 01077 MYANMAR LETTER SHAN GA 01078 MYANMAR LETTER SHAN CA 01079 MYANMAR LETTER SHAN ZA 0107A MYANMAR LETTER SHAN NYA 0107B MYANMAR LETTER SHAN DA 0107C MYANMAR LETTER SHAN NA 0107D MYANMAR LETTER SHAN PHA 0107E MYANMAR LETTER SHAN FA 0107F MYANMAR LETTER SHAN BA 01080 MYANMAR LETTER SHAN THA 01081 MYANMAR LETTER SHAN HA 01082 MYANMAR CONSONANT SIGN SHAN MEDIAL WA 01083 MYANMAR VOWEL SIGN SHAN AA 01084 MYANMAR VOWEL SIGN SHAN E 01085 MYANMAR VOWEL SIGN SHAN E ABOVE 01086 MYANMAR VOWEL SIGN SHAN FINAL Y 01087 MYANMAR SIGN SHAN TONE-2 01088 MYANMAR SIGN SHAN TONE-3 01089 MYANMAR SIGN SHAN TONE-5 0108A MYANMAR SIGN SHAN TONE-6 0108B MYANMAR SIGN SHAN COUNCIL TONE-2 0108C MYANMAR SIGN SHAN COUNCIL TONE-3 0108D MYANMAR SIGN SHAN COUNCIL EMPHATIC TONE 0108E MYANMAR LETTER RUMAI PALAUNG FA 0108F MYANMAR SIGN RUMAI PALAUNG TONE-5 01090 MYANMAR SHAN DIGIT ZERO 01091 MYANMAR SHAN DIGIT ONE 01092 MYANMAR SHAN DIGIT TWO 01093 MYANMAR SHAN DIGIT THREE 01094 MYANMAR SHAN DIGIT FOUR 01095 MYANMAR SHAN DIGIT FIVE 01096 MYANMAR SHAN DIGIT SIX 01097 MYANMAR SHAN DIGIT SEVEN 01098 MYANMAR SHAN DIGIT EIGHT 01099 MYANMAR SHAN DIGIT NINE 0109A MYANMAR SIGN KHAMTI TONE-1 0109B MYANMAR SIGN KHAMTI TONE-3 0109C MYANMAR VOWEL SIGN AITON A 0109D MYANMAR VOWEL SIGN AITON AI 0109E MYANMAR SYMBOL SHAN ONE 0109F MYANMAR SYMBOL SHAN EXCLAMATION 010A0 GEORGIAN CAPITAL LETTER AN 010A1 GEORGIAN CAPITAL LETTER BAN 010A2 GEORGIAN CAPITAL LETTER GAN 010A3 GEORGIAN CAPITAL LETTER DON 010A4 GEORGIAN CAPITAL LETTER EN 010A5 GEORGIAN CAPITAL LETTER VIN 010A6 GEORGIAN CAPITAL LETTER ZEN 010A7 GEORGIAN CAPITAL LETTER TAN 010A8 GEORGIAN CAPITAL LETTER IN 010A9 GEORGIAN CAPITAL LETTER KAN 010AA GEORGIAN CAPITAL LETTER LAS 010AB GEORGIAN CAPITAL LETTER MAN 010AC GEORGIAN CAPITAL LETTER NAR 010AD GEORGIAN CAPITAL LETTER ON 010AE GEORGIAN CAPITAL LETTER PAR 010AF GEORGIAN CAPITAL LETTER ZHAR 010B0 GEORGIAN CAPITAL LETTER RAE 010B1 GEORGIAN CAPITAL LETTER SAN 010B2 GEORGIAN CAPITAL LETTER TAR 010B3 GEORGIAN CAPITAL LETTER UN 010B4 GEORGIAN CAPITAL LETTER PHAR 010B5 GEORGIAN CAPITAL LETTER KHAR 010B6 GEORGIAN CAPITAL LETTER GHAN 010B7 GEORGIAN CAPITAL LETTER QAR 010B8 GEORGIAN CAPITAL LETTER SHIN 010B9 GEORGIAN CAPITAL LETTER CHIN 010BA GEORGIAN CAPITAL LETTER CAN 010BB GEORGIAN CAPITAL LETTER JIL 010BC GEORGIAN CAPITAL LETTER CIL 010BD GEORGIAN CAPITAL LETTER CHAR 010BE GEORGIAN CAPITAL LETTER XAN 010BF GEORGIAN CAPITAL LETTER JHAN 010C0 GEORGIAN CAPITAL LETTER HAE 010C1 GEORGIAN CAPITAL LETTER HE 010C2 GEORGIAN CAPITAL LETTER HIE 010C3 GEORGIAN CAPITAL LETTER WE 010C4 GEORGIAN CAPITAL LETTER HAR 010C5 GEORGIAN CAPITAL LETTER HOE 010C7 GEORGIAN CAPITAL LETTER YN 010CD GEORGIAN CAPITAL LETTER AEN 010D0 GEORGIAN LETTER AN 010D1 GEORGIAN LETTER BAN 010D2 GEORGIAN LETTER GAN 010D3 GEORGIAN LETTER DON 010D4 GEORGIAN LETTER EN 010D5 GEORGIAN LETTER VIN 010D6 GEORGIAN LETTER ZEN 010D7 GEORGIAN LETTER TAN 010D8 GEORGIAN LETTER IN 010D9 GEORGIAN LETTER KAN 010DA GEORGIAN LETTER LAS 010DB GEORGIAN LETTER MAN 010DC GEORGIAN LETTER NAR 010DD GEORGIAN LETTER ON 010DE GEORGIAN LETTER PAR 010DF GEORGIAN LETTER ZHAR 010E0 GEORGIAN LETTER RAE 010E1 GEORGIAN LETTER SAN 010E2 GEORGIAN LETTER TAR 010E3 GEORGIAN LETTER UN 010E4 GEORGIAN LETTER PHAR 010E5 GEORGIAN LETTER KHAR 010E6 GEORGIAN LETTER GHAN 010E7 GEORGIAN LETTER QAR 010E8 GEORGIAN LETTER SHIN 010E9 GEORGIAN LETTER CHIN 010EA GEORGIAN LETTER CAN 010EB GEORGIAN LETTER JIL 010EC GEORGIAN LETTER CIL 010ED GEORGIAN LETTER CHAR 010EE GEORGIAN LETTER XAN 010EF GEORGIAN LETTER JHAN 010F0 GEORGIAN LETTER HAE 010F1 GEORGIAN LETTER HE 010F2 GEORGIAN LETTER HIE 010F3 GEORGIAN LETTER WE 010F4 GEORGIAN LETTER HAR 010F5 GEORGIAN LETTER HOE 010F6 GEORGIAN LETTER FI 010F7 GEORGIAN LETTER YN 010F8 GEORGIAN LETTER ELIFI 010F9 GEORGIAN LETTER TURNED GAN 010FA GEORGIAN LETTER AIN 010FB GEORGIAN PARAGRAPH SEPARATOR 010FC MODIFIER LETTER GEORGIAN NAR 010FD GEORGIAN LETTER AEN 010FE GEORGIAN LETTER HARD SIGN 010FF GEORGIAN LETTER LABIAL SIGN 01100 HANGUL CHOSEONG KIYEOK 01101 HANGUL CHOSEONG SSANGKIYEOK 01102 HANGUL CHOSEONG NIEUN 01103 HANGUL CHOSEONG TIKEUT 01104 HANGUL CHOSEONG SSANGTIKEUT 01105 HANGUL CHOSEONG RIEUL 01106 HANGUL CHOSEONG MIEUM 01107 HANGUL CHOSEONG PIEUP 01108 HANGUL CHOSEONG SSANGPIEUP 01109 HANGUL CHOSEONG SIOS 0110A HANGUL CHOSEONG SSANGSIOS 0110B HANGUL CHOSEONG IEUNG 0110C HANGUL CHOSEONG CIEUC 0110D HANGUL CHOSEONG SSANGCIEUC 0110E HANGUL CHOSEONG CHIEUCH 0110F HANGUL CHOSEONG KHIEUKH 01110 HANGUL CHOSEONG THIEUTH 01111 HANGUL CHOSEONG PHIEUPH 01112 HANGUL CHOSEONG HIEUH 01113 HANGUL CHOSEONG NIEUN-KIYEOK 01114 HANGUL CHOSEONG SSANGNIEUN 01115 HANGUL CHOSEONG NIEUN-TIKEUT 01116 HANGUL CHOSEONG NIEUN-PIEUP 01117 HANGUL CHOSEONG TIKEUT-KIYEOK 01118 HANGUL CHOSEONG RIEUL-NIEUN 01119 HANGUL CHOSEONG SSANGRIEUL 0111A HANGUL CHOSEONG RIEUL-HIEUH 0111B HANGUL CHOSEONG KAPYEOUNRIEUL 0111C HANGUL CHOSEONG MIEUM-PIEUP 0111D HANGUL CHOSEONG KAPYEOUNMIEUM 0111E HANGUL CHOSEONG PIEUP-KIYEOK 0111F HANGUL CHOSEONG PIEUP-NIEUN 01120 HANGUL CHOSEONG PIEUP-TIKEUT 01121 HANGUL CHOSEONG PIEUP-SIOS 01122 HANGUL CHOSEONG PIEUP-SIOS-KIYEOK 01123 HANGUL CHOSEONG PIEUP-SIOS-TIKEUT 01124 HANGUL CHOSEONG PIEUP-SIOS-PIEUP 01125 HANGUL CHOSEONG PIEUP-SSANGSIOS 01126 HANGUL CHOSEONG PIEUP-SIOS-CIEUC 01127 HANGUL CHOSEONG PIEUP-CIEUC 01128 HANGUL CHOSEONG PIEUP-CHIEUCH 01129 HANGUL CHOSEONG PIEUP-THIEUTH 0112A HANGUL CHOSEONG PIEUP-PHIEUPH 0112B HANGUL CHOSEONG KAPYEOUNPIEUP 0112C HANGUL CHOSEONG KAPYEOUNSSANGPIEUP 0112D HANGUL CHOSEONG SIOS-KIYEOK 0112E HANGUL CHOSEONG SIOS-NIEUN 0112F HANGUL CHOSEONG SIOS-TIKEUT 01130 HANGUL CHOSEONG SIOS-RIEUL 01131 HANGUL CHOSEONG SIOS-MIEUM 01132 HANGUL CHOSEONG SIOS-PIEUP 01133 HANGUL CHOSEONG SIOS-PIEUP-KIYEOK 01134 HANGUL CHOSEONG SIOS-SSANGSIOS 01135 HANGUL CHOSEONG SIOS-IEUNG 01136 HANGUL CHOSEONG SIOS-CIEUC 01137 HANGUL CHOSEONG SIOS-CHIEUCH 01138 HANGUL CHOSEONG SIOS-KHIEUKH 01139 HANGUL CHOSEONG SIOS-THIEUTH 0113A HANGUL CHOSEONG SIOS-PHIEUPH 0113B HANGUL CHOSEONG SIOS-HIEUH 0113C HANGUL CHOSEONG CHITUEUMSIOS 0113D HANGUL CHOSEONG CHITUEUMSSANGSIOS 0113E HANGUL CHOSEONG CEONGCHIEUMSIOS 0113F HANGUL CHOSEONG CEONGCHIEUMSSANGSIOS 01140 HANGUL CHOSEONG PANSIOS 01141 HANGUL CHOSEONG IEUNG-KIYEOK 01142 HANGUL CHOSEONG IEUNG-TIKEUT 01143 HANGUL CHOSEONG IEUNG-MIEUM 01144 HANGUL CHOSEONG IEUNG-PIEUP 01145 HANGUL CHOSEONG IEUNG-SIOS 01146 HANGUL CHOSEONG IEUNG-PANSIOS 01147 HANGUL CHOSEONG SSANGIEUNG 01148 HANGUL CHOSEONG IEUNG-CIEUC 01149 HANGUL CHOSEONG IEUNG-CHIEUCH 0114A HANGUL CHOSEONG IEUNG-THIEUTH 0114B HANGUL CHOSEONG IEUNG-PHIEUPH 0114C HANGUL CHOSEONG YESIEUNG 0114D HANGUL CHOSEONG CIEUC-IEUNG 0114E HANGUL CHOSEONG CHITUEUMCIEUC 0114F HANGUL CHOSEONG CHITUEUMSSANGCIEUC 01150 HANGUL CHOSEONG CEONGCHIEUMCIEUC 01151 HANGUL CHOSEONG CEONGCHIEUMSSANGCIEUC 01152 HANGUL CHOSEONG CHIEUCH-KHIEUKH 01153 HANGUL CHOSEONG CHIEUCH-HIEUH 01154 HANGUL CHOSEONG CHITUEUMCHIEUCH 01155 HANGUL CHOSEONG CEONGCHIEUMCHIEUCH 01156 HANGUL CHOSEONG PHIEUPH-PIEUP 01157 HANGUL CHOSEONG KAPYEOUNPHIEUPH 01158 HANGUL CHOSEONG SSANGHIEUH 01159 HANGUL CHOSEONG YEORINHIEUH 0115A HANGUL CHOSEONG KIYEOK-TIKEUT 0115B HANGUL CHOSEONG NIEUN-SIOS 0115C HANGUL CHOSEONG NIEUN-CIEUC 0115D HANGUL CHOSEONG NIEUN-HIEUH 0115E HANGUL CHOSEONG TIKEUT-RIEUL 0115F HANGUL CHOSEONG FILLER 01160 HANGUL JUNGSEONG FILLER 01161 HANGUL JUNGSEONG A 01162 HANGUL JUNGSEONG AE 01163 HANGUL JUNGSEONG YA 01164 HANGUL JUNGSEONG YAE 01165 HANGUL JUNGSEONG EO 01166 HANGUL JUNGSEONG E 01167 HANGUL JUNGSEONG YEO 01168 HANGUL JUNGSEONG YE 01169 HANGUL JUNGSEONG O 0116A HANGUL JUNGSEONG WA 0116B HANGUL JUNGSEONG WAE 0116C HANGUL JUNGSEONG OE 0116D HANGUL JUNGSEONG YO 0116E HANGUL JUNGSEONG U 0116F HANGUL JUNGSEONG WEO 01170 HANGUL JUNGSEONG WE 01171 HANGUL JUNGSEONG WI 01172 HANGUL JUNGSEONG YU 01173 HANGUL JUNGSEONG EU 01174 HANGUL JUNGSEONG YI 01175 HANGUL JUNGSEONG I 01176 HANGUL JUNGSEONG A-O 01177 HANGUL JUNGSEONG A-U 01178 HANGUL JUNGSEONG YA-O 01179 HANGUL JUNGSEONG YA-YO 0117A HANGUL JUNGSEONG EO-O 0117B HANGUL JUNGSEONG EO-U 0117C HANGUL JUNGSEONG EO-EU 0117D HANGUL JUNGSEONG YEO-O 0117E HANGUL JUNGSEONG YEO-U 0117F HANGUL JUNGSEONG O-EO 01180 HANGUL JUNGSEONG O-E 01181 HANGUL JUNGSEONG O-YE 01182 HANGUL JUNGSEONG O-O 01183 HANGUL JUNGSEONG O-U 01184 HANGUL JUNGSEONG YO-YA 01185 HANGUL JUNGSEONG YO-YAE 01186 HANGUL JUNGSEONG YO-YEO 01187 HANGUL JUNGSEONG YO-O 01188 HANGUL JUNGSEONG YO-I 01189 HANGUL JUNGSEONG U-A 0118A HANGUL JUNGSEONG U-AE 0118B HANGUL JUNGSEONG U-EO-EU 0118C HANGUL JUNGSEONG U-YE 0118D HANGUL JUNGSEONG U-U 0118E HANGUL JUNGSEONG YU-A 0118F HANGUL JUNGSEONG YU-EO 01190 HANGUL JUNGSEONG YU-E 01191 HANGUL JUNGSEONG YU-YEO 01192 HANGUL JUNGSEONG YU-YE 01193 HANGUL JUNGSEONG YU-U 01194 HANGUL JUNGSEONG YU-I 01195 HANGUL JUNGSEONG EU-U 01196 HANGUL JUNGSEONG EU-EU 01197 HANGUL JUNGSEONG YI-U 01198 HANGUL JUNGSEONG I-A 01199 HANGUL JUNGSEONG I-YA 0119A HANGUL JUNGSEONG I-O 0119B HANGUL JUNGSEONG I-U 0119C HANGUL JUNGSEONG I-EU 0119D HANGUL JUNGSEONG I-ARAEA 0119E HANGUL JUNGSEONG ARAEA 0119F HANGUL JUNGSEONG ARAEA-EO 011A0 HANGUL JUNGSEONG ARAEA-U 011A1 HANGUL JUNGSEONG ARAEA-I 011A2 HANGUL JUNGSEONG SSANGARAEA 011A3 HANGUL JUNGSEONG A-EU 011A4 HANGUL JUNGSEONG YA-U 011A5 HANGUL JUNGSEONG YEO-YA 011A6 HANGUL JUNGSEONG O-YA 011A7 HANGUL JUNGSEONG O-YAE 011A8 HANGUL JONGSEONG KIYEOK 011A9 HANGUL JONGSEONG SSANGKIYEOK 011AA HANGUL JONGSEONG KIYEOK-SIOS 011AB HANGUL JONGSEONG NIEUN 011AC HANGUL JONGSEONG NIEUN-CIEUC 011AD HANGUL JONGSEONG NIEUN-HIEUH 011AE HANGUL JONGSEONG TIKEUT 011AF HANGUL JONGSEONG RIEUL 011B0 HANGUL JONGSEONG RIEUL-KIYEOK 011B1 HANGUL JONGSEONG RIEUL-MIEUM 011B2 HANGUL JONGSEONG RIEUL-PIEUP 011B3 HANGUL JONGSEONG RIEUL-SIOS 011B4 HANGUL JONGSEONG RIEUL-THIEUTH 011B5 HANGUL JONGSEONG RIEUL-PHIEUPH 011B6 HANGUL JONGSEONG RIEUL-HIEUH 011B7 HANGUL JONGSEONG MIEUM 011B8 HANGUL JONGSEONG PIEUP 011B9 HANGUL JONGSEONG PIEUP-SIOS 011BA HANGUL JONGSEONG SIOS 011BB HANGUL JONGSEONG SSANGSIOS 011BC HANGUL JONGSEONG IEUNG 011BD HANGUL JONGSEONG CIEUC 011BE HANGUL JONGSEONG CHIEUCH 011BF HANGUL JONGSEONG KHIEUKH 011C0 HANGUL JONGSEONG THIEUTH 011C1 HANGUL JONGSEONG PHIEUPH 011C2 HANGUL JONGSEONG HIEUH 011C3 HANGUL JONGSEONG KIYEOK-RIEUL 011C4 HANGUL JONGSEONG KIYEOK-SIOS-KIYEOK 011C5 HANGUL JONGSEONG NIEUN-KIYEOK 011C6 HANGUL JONGSEONG NIEUN-TIKEUT 011C7 HANGUL JONGSEONG NIEUN-SIOS 011C8 HANGUL JONGSEONG NIEUN-PANSIOS 011C9 HANGUL JONGSEONG NIEUN-THIEUTH 011CA HANGUL JONGSEONG TIKEUT-KIYEOK 011CB HANGUL JONGSEONG TIKEUT-RIEUL 011CC HANGUL JONGSEONG RIEUL-KIYEOK-SIOS 011CD HANGUL JONGSEONG RIEUL-NIEUN 011CE HANGUL JONGSEONG RIEUL-TIKEUT 011CF HANGUL JONGSEONG RIEUL-TIKEUT-HIEUH 011D0 HANGUL JONGSEONG SSANGRIEUL 011D1 HANGUL JONGSEONG RIEUL-MIEUM-KIYEOK 011D2 HANGUL JONGSEONG RIEUL-MIEUM-SIOS 011D3 HANGUL JONGSEONG RIEUL-PIEUP-SIOS 011D4 HANGUL JONGSEONG RIEUL-PIEUP-HIEUH 011D5 HANGUL JONGSEONG RIEUL-KAPYEOUNPIEUP 011D6 HANGUL JONGSEONG RIEUL-SSANGSIOS 011D7 HANGUL JONGSEONG RIEUL-PANSIOS 011D8 HANGUL JONGSEONG RIEUL-KHIEUKH 011D9 HANGUL JONGSEONG RIEUL-YEORINHIEUH 011DA HANGUL JONGSEONG MIEUM-KIYEOK 011DB HANGUL JONGSEONG MIEUM-RIEUL 011DC HANGUL JONGSEONG MIEUM-PIEUP 011DD HANGUL JONGSEONG MIEUM-SIOS 011DE HANGUL JONGSEONG MIEUM-SSANGSIOS 011DF HANGUL JONGSEONG MIEUM-PANSIOS 011E0 HANGUL JONGSEONG MIEUM-CHIEUCH 011E1 HANGUL JONGSEONG MIEUM-HIEUH 011E2 HANGUL JONGSEONG KAPYEOUNMIEUM 011E3 HANGUL JONGSEONG PIEUP-RIEUL 011E4 HANGUL JONGSEONG PIEUP-PHIEUPH 011E5 HANGUL JONGSEONG PIEUP-HIEUH 011E6 HANGUL JONGSEONG KAPYEOUNPIEUP 011E7 HANGUL JONGSEONG SIOS-KIYEOK 011E8 HANGUL JONGSEONG SIOS-TIKEUT 011E9 HANGUL JONGSEONG SIOS-RIEUL 011EA HANGUL JONGSEONG SIOS-PIEUP 011EB HANGUL JONGSEONG PANSIOS 011EC HANGUL JONGSEONG YESIEUNG-KIYEOK 011EC HANGUL JONGSEONG IEUNG-KIYEOK 011ED HANGUL JONGSEONG YESIEUNG-SSANGKIYEOK 011ED HANGUL JONGSEONG IEUNG-SSANGKIYEOK 011EE HANGUL JONGSEONG SSANGYESIEUNG 011EE HANGUL JONGSEONG SSANGIEUNG 011EF HANGUL JONGSEONG YESIEUNG-KHIEUKH 011EF HANGUL JONGSEONG IEUNG-KHIEUKH 011F0 HANGUL JONGSEONG YESIEUNG 011F1 HANGUL JONGSEONG YESIEUNG-SIOS 011F2 HANGUL JONGSEONG YESIEUNG-PANSIOS 011F3 HANGUL JONGSEONG PHIEUPH-PIEUP 011F4 HANGUL JONGSEONG KAPYEOUNPHIEUPH 011F5 HANGUL JONGSEONG HIEUH-NIEUN 011F6 HANGUL JONGSEONG HIEUH-RIEUL 011F7 HANGUL JONGSEONG HIEUH-MIEUM 011F8 HANGUL JONGSEONG HIEUH-PIEUP 011F9 HANGUL JONGSEONG YEORINHIEUH 011FA HANGUL JONGSEONG KIYEOK-NIEUN 011FB HANGUL JONGSEONG KIYEOK-PIEUP 011FC HANGUL JONGSEONG KIYEOK-CHIEUCH 011FD HANGUL JONGSEONG KIYEOK-KHIEUKH 011FE HANGUL JONGSEONG KIYEOK-HIEUH 011FF HANGUL JONGSEONG SSANGNIEUN 01200 ETHIOPIC SYLLABLE HA 01201 ETHIOPIC SYLLABLE HU 01202 ETHIOPIC SYLLABLE HI 01203 ETHIOPIC SYLLABLE HAA 01204 ETHIOPIC SYLLABLE HEE 01205 ETHIOPIC SYLLABLE HE 01206 ETHIOPIC SYLLABLE HO 01207 ETHIOPIC SYLLABLE HOA 01208 ETHIOPIC SYLLABLE LA 01209 ETHIOPIC SYLLABLE LU 0120A ETHIOPIC SYLLABLE LI 0120B ETHIOPIC SYLLABLE LAA 0120C ETHIOPIC SYLLABLE LEE 0120D ETHIOPIC SYLLABLE LE 0120E ETHIOPIC SYLLABLE LO 0120F ETHIOPIC SYLLABLE LWA 01210 ETHIOPIC SYLLABLE HHA 01211 ETHIOPIC SYLLABLE HHU 01212 ETHIOPIC SYLLABLE HHI 01213 ETHIOPIC SYLLABLE HHAA 01214 ETHIOPIC SYLLABLE HHEE 01215 ETHIOPIC SYLLABLE HHE 01216 ETHIOPIC SYLLABLE HHO 01217 ETHIOPIC SYLLABLE HHWA 01218 ETHIOPIC SYLLABLE MA 01219 ETHIOPIC SYLLABLE MU 0121A ETHIOPIC SYLLABLE MI 0121B ETHIOPIC SYLLABLE MAA 0121C ETHIOPIC SYLLABLE MEE 0121D ETHIOPIC SYLLABLE ME 0121E ETHIOPIC SYLLABLE MO 0121F ETHIOPIC SYLLABLE MWA 01220 ETHIOPIC SYLLABLE SZA 01221 ETHIOPIC SYLLABLE SZU 01222 ETHIOPIC SYLLABLE SZI 01223 ETHIOPIC SYLLABLE SZAA 01224 ETHIOPIC SYLLABLE SZEE 01225 ETHIOPIC SYLLABLE SZE 01226 ETHIOPIC SYLLABLE SZO 01227 ETHIOPIC SYLLABLE SZWA 01228 ETHIOPIC SYLLABLE RA 01229 ETHIOPIC SYLLABLE RU 0122A ETHIOPIC SYLLABLE RI 0122B ETHIOPIC SYLLABLE RAA 0122C ETHIOPIC SYLLABLE REE 0122D ETHIOPIC SYLLABLE RE 0122E ETHIOPIC SYLLABLE RO 0122F ETHIOPIC SYLLABLE RWA 01230 ETHIOPIC SYLLABLE SA 01231 ETHIOPIC SYLLABLE SU 01232 ETHIOPIC SYLLABLE SI 01233 ETHIOPIC SYLLABLE SAA 01234 ETHIOPIC SYLLABLE SEE 01235 ETHIOPIC SYLLABLE SE 01236 ETHIOPIC SYLLABLE SO 01237 ETHIOPIC SYLLABLE SWA 01238 ETHIOPIC SYLLABLE SHA 01239 ETHIOPIC SYLLABLE SHU 0123A ETHIOPIC SYLLABLE SHI 0123B ETHIOPIC SYLLABLE SHAA 0123C ETHIOPIC SYLLABLE SHEE 0123D ETHIOPIC SYLLABLE SHE 0123E ETHIOPIC SYLLABLE SHO 0123F ETHIOPIC SYLLABLE SHWA 01240 ETHIOPIC SYLLABLE QA 01241 ETHIOPIC SYLLABLE QU 01242 ETHIOPIC SYLLABLE QI 01243 ETHIOPIC SYLLABLE QAA 01244 ETHIOPIC SYLLABLE QEE 01245 ETHIOPIC SYLLABLE QE 01246 ETHIOPIC SYLLABLE QO 01247 ETHIOPIC SYLLABLE QOA 01248 ETHIOPIC SYLLABLE QWA 0124A ETHIOPIC SYLLABLE QWI 0124B ETHIOPIC SYLLABLE QWAA 0124C ETHIOPIC SYLLABLE QWEE 0124D ETHIOPIC SYLLABLE QWE 01250 ETHIOPIC SYLLABLE QHA 01251 ETHIOPIC SYLLABLE QHU 01252 ETHIOPIC SYLLABLE QHI 01253 ETHIOPIC SYLLABLE QHAA 01254 ETHIOPIC SYLLABLE QHEE 01255 ETHIOPIC SYLLABLE QHE 01256 ETHIOPIC SYLLABLE QHO 01258 ETHIOPIC SYLLABLE QHWA 0125A ETHIOPIC SYLLABLE QHWI 0125B ETHIOPIC SYLLABLE QHWAA 0125C ETHIOPIC SYLLABLE QHWEE 0125D ETHIOPIC SYLLABLE QHWE 01260 ETHIOPIC SYLLABLE BA 01261 ETHIOPIC SYLLABLE BU 01262 ETHIOPIC SYLLABLE BI 01263 ETHIOPIC SYLLABLE BAA 01264 ETHIOPIC SYLLABLE BEE 01265 ETHIOPIC SYLLABLE BE 01266 ETHIOPIC SYLLABLE BO 01267 ETHIOPIC SYLLABLE BWA 01268 ETHIOPIC SYLLABLE VA 01269 ETHIOPIC SYLLABLE VU 0126A ETHIOPIC SYLLABLE VI 0126B ETHIOPIC SYLLABLE VAA 0126C ETHIOPIC SYLLABLE VEE 0126D ETHIOPIC SYLLABLE VE 0126E ETHIOPIC SYLLABLE VO 0126F ETHIOPIC SYLLABLE VWA 01270 ETHIOPIC SYLLABLE TA 01271 ETHIOPIC SYLLABLE TU 01272 ETHIOPIC SYLLABLE TI 01273 ETHIOPIC SYLLABLE TAA 01274 ETHIOPIC SYLLABLE TEE 01275 ETHIOPIC SYLLABLE TE 01276 ETHIOPIC SYLLABLE TO 01277 ETHIOPIC SYLLABLE TWA 01278 ETHIOPIC SYLLABLE CA 01279 ETHIOPIC SYLLABLE CU 0127A ETHIOPIC SYLLABLE CI 0127B ETHIOPIC SYLLABLE CAA 0127C ETHIOPIC SYLLABLE CEE 0127D ETHIOPIC SYLLABLE CE 0127E ETHIOPIC SYLLABLE CO 0127F ETHIOPIC SYLLABLE CWA 01280 ETHIOPIC SYLLABLE XA 01281 ETHIOPIC SYLLABLE XU 01282 ETHIOPIC SYLLABLE XI 01283 ETHIOPIC SYLLABLE XAA 01284 ETHIOPIC SYLLABLE XEE 01285 ETHIOPIC SYLLABLE XE 01286 ETHIOPIC SYLLABLE XO 01287 ETHIOPIC SYLLABLE XOA 01288 ETHIOPIC SYLLABLE XWA 0128A ETHIOPIC SYLLABLE XWI 0128B ETHIOPIC SYLLABLE XWAA 0128C ETHIOPIC SYLLABLE XWEE 0128D ETHIOPIC SYLLABLE XWE 01290 ETHIOPIC SYLLABLE NA 01291 ETHIOPIC SYLLABLE NU 01292 ETHIOPIC SYLLABLE NI 01293 ETHIOPIC SYLLABLE NAA 01294 ETHIOPIC SYLLABLE NEE 01295 ETHIOPIC SYLLABLE NE 01296 ETHIOPIC SYLLABLE NO 01297 ETHIOPIC SYLLABLE NWA 01298 ETHIOPIC SYLLABLE NYA 01299 ETHIOPIC SYLLABLE NYU 0129A ETHIOPIC SYLLABLE NYI 0129B ETHIOPIC SYLLABLE NYAA 0129C ETHIOPIC SYLLABLE NYEE 0129D ETHIOPIC SYLLABLE NYE 0129E ETHIOPIC SYLLABLE NYO 0129F ETHIOPIC SYLLABLE NYWA 012A0 ETHIOPIC SYLLABLE GLOTTAL A 012A1 ETHIOPIC SYLLABLE GLOTTAL U 012A2 ETHIOPIC SYLLABLE GLOTTAL I 012A3 ETHIOPIC SYLLABLE GLOTTAL AA 012A4 ETHIOPIC SYLLABLE GLOTTAL EE 012A5 ETHIOPIC SYLLABLE GLOTTAL E 012A6 ETHIOPIC SYLLABLE GLOTTAL O 012A7 ETHIOPIC SYLLABLE GLOTTAL WA 012A8 ETHIOPIC SYLLABLE KA 012A9 ETHIOPIC SYLLABLE KU 012AA ETHIOPIC SYLLABLE KI 012AB ETHIOPIC SYLLABLE KAA 012AC ETHIOPIC SYLLABLE KEE 012AD ETHIOPIC SYLLABLE KE 012AE ETHIOPIC SYLLABLE KO 012AF ETHIOPIC SYLLABLE KOA 012B0 ETHIOPIC SYLLABLE KWA 012B2 ETHIOPIC SYLLABLE KWI 012B3 ETHIOPIC SYLLABLE KWAA 012B4 ETHIOPIC SYLLABLE KWEE 012B5 ETHIOPIC SYLLABLE KWE 012B8 ETHIOPIC SYLLABLE KXA 012B9 ETHIOPIC SYLLABLE KXU 012BA ETHIOPIC SYLLABLE KXI 012BB ETHIOPIC SYLLABLE KXAA 012BC ETHIOPIC SYLLABLE KXEE 012BD ETHIOPIC SYLLABLE KXE 012BE ETHIOPIC SYLLABLE KXO 012C0 ETHIOPIC SYLLABLE KXWA 012C2 ETHIOPIC SYLLABLE KXWI 012C3 ETHIOPIC SYLLABLE KXWAA 012C4 ETHIOPIC SYLLABLE KXWEE 012C5 ETHIOPIC SYLLABLE KXWE 012C8 ETHIOPIC SYLLABLE WA 012C9 ETHIOPIC SYLLABLE WU 012CA ETHIOPIC SYLLABLE WI 012CB ETHIOPIC SYLLABLE WAA 012CC ETHIOPIC SYLLABLE WEE 012CD ETHIOPIC SYLLABLE WE 012CE ETHIOPIC SYLLABLE WO 012CF ETHIOPIC SYLLABLE WOA 012D0 ETHIOPIC SYLLABLE PHARYNGEAL A 012D1 ETHIOPIC SYLLABLE PHARYNGEAL U 012D2 ETHIOPIC SYLLABLE PHARYNGEAL I 012D3 ETHIOPIC SYLLABLE PHARYNGEAL AA 012D4 ETHIOPIC SYLLABLE PHARYNGEAL EE 012D5 ETHIOPIC SYLLABLE PHARYNGEAL E 012D6 ETHIOPIC SYLLABLE PHARYNGEAL O 012D8 ETHIOPIC SYLLABLE ZA 012D9 ETHIOPIC SYLLABLE ZU 012DA ETHIOPIC SYLLABLE ZI 012DB ETHIOPIC SYLLABLE ZAA 012DC ETHIOPIC SYLLABLE ZEE 012DD ETHIOPIC SYLLABLE ZE 012DE ETHIOPIC SYLLABLE ZO 012DF ETHIOPIC SYLLABLE ZWA 012E0 ETHIOPIC SYLLABLE ZHA 012E1 ETHIOPIC SYLLABLE ZHU 012E2 ETHIOPIC SYLLABLE ZHI 012E3 ETHIOPIC SYLLABLE ZHAA 012E4 ETHIOPIC SYLLABLE ZHEE 012E5 ETHIOPIC SYLLABLE ZHE 012E6 ETHIOPIC SYLLABLE ZHO 012E7 ETHIOPIC SYLLABLE ZHWA 012E8 ETHIOPIC SYLLABLE YA 012E9 ETHIOPIC SYLLABLE YU 012EA ETHIOPIC SYLLABLE YI 012EB ETHIOPIC SYLLABLE YAA 012EC ETHIOPIC SYLLABLE YEE 012ED ETHIOPIC SYLLABLE YE 012EE ETHIOPIC SYLLABLE YO 012EF ETHIOPIC SYLLABLE YOA 012F0 ETHIOPIC SYLLABLE DA 012F1 ETHIOPIC SYLLABLE DU 012F2 ETHIOPIC SYLLABLE DI 012F3 ETHIOPIC SYLLABLE DAA 012F4 ETHIOPIC SYLLABLE DEE 012F5 ETHIOPIC SYLLABLE DE 012F6 ETHIOPIC SYLLABLE DO 012F7 ETHIOPIC SYLLABLE DWA 012F8 ETHIOPIC SYLLABLE DDA 012F9 ETHIOPIC SYLLABLE DDU 012FA ETHIOPIC SYLLABLE DDI 012FB ETHIOPIC SYLLABLE DDAA 012FC ETHIOPIC SYLLABLE DDEE 012FD ETHIOPIC SYLLABLE DDE 012FE ETHIOPIC SYLLABLE DDO 012FF ETHIOPIC SYLLABLE DDWA 01300 ETHIOPIC SYLLABLE JA 01301 ETHIOPIC SYLLABLE JU 01302 ETHIOPIC SYLLABLE JI 01303 ETHIOPIC SYLLABLE JAA 01304 ETHIOPIC SYLLABLE JEE 01305 ETHIOPIC SYLLABLE JE 01306 ETHIOPIC SYLLABLE JO 01307 ETHIOPIC SYLLABLE JWA 01308 ETHIOPIC SYLLABLE GA 01309 ETHIOPIC SYLLABLE GU 0130A ETHIOPIC SYLLABLE GI 0130B ETHIOPIC SYLLABLE GAA 0130C ETHIOPIC SYLLABLE GEE 0130D ETHIOPIC SYLLABLE GE 0130E ETHIOPIC SYLLABLE GO 0130F ETHIOPIC SYLLABLE GOA 01310 ETHIOPIC SYLLABLE GWA 01312 ETHIOPIC SYLLABLE GWI 01313 ETHIOPIC SYLLABLE GWAA 01314 ETHIOPIC SYLLABLE GWEE 01315 ETHIOPIC SYLLABLE GWE 01318 ETHIOPIC SYLLABLE GGA 01319 ETHIOPIC SYLLABLE GGU 0131A ETHIOPIC SYLLABLE GGI 0131B ETHIOPIC SYLLABLE GGAA 0131C ETHIOPIC SYLLABLE GGEE 0131D ETHIOPIC SYLLABLE GGE 0131E ETHIOPIC SYLLABLE GGO 0131F ETHIOPIC SYLLABLE GGWAA 01320 ETHIOPIC SYLLABLE THA 01321 ETHIOPIC SYLLABLE THU 01322 ETHIOPIC SYLLABLE THI 01323 ETHIOPIC SYLLABLE THAA 01324 ETHIOPIC SYLLABLE THEE 01325 ETHIOPIC SYLLABLE THE 01326 ETHIOPIC SYLLABLE THO 01327 ETHIOPIC SYLLABLE THWA 01328 ETHIOPIC SYLLABLE CHA 01329 ETHIOPIC SYLLABLE CHU 0132A ETHIOPIC SYLLABLE CHI 0132B ETHIOPIC SYLLABLE CHAA 0132C ETHIOPIC SYLLABLE CHEE 0132D ETHIOPIC SYLLABLE CHE 0132E ETHIOPIC SYLLABLE CHO 0132F ETHIOPIC SYLLABLE CHWA 01330 ETHIOPIC SYLLABLE PHA 01331 ETHIOPIC SYLLABLE PHU 01332 ETHIOPIC SYLLABLE PHI 01333 ETHIOPIC SYLLABLE PHAA 01334 ETHIOPIC SYLLABLE PHEE 01335 ETHIOPIC SYLLABLE PHE 01336 ETHIOPIC SYLLABLE PHO 01337 ETHIOPIC SYLLABLE PHWA 01338 ETHIOPIC SYLLABLE TSA 01339 ETHIOPIC SYLLABLE TSU 0133A ETHIOPIC SYLLABLE TSI 0133B ETHIOPIC SYLLABLE TSAA 0133C ETHIOPIC SYLLABLE TSEE 0133D ETHIOPIC SYLLABLE TSE 0133E ETHIOPIC SYLLABLE TSO 0133F ETHIOPIC SYLLABLE TSWA 01340 ETHIOPIC SYLLABLE TZA 01341 ETHIOPIC SYLLABLE TZU 01342 ETHIOPIC SYLLABLE TZI 01343 ETHIOPIC SYLLABLE TZAA 01344 ETHIOPIC SYLLABLE TZEE 01345 ETHIOPIC SYLLABLE TZE 01346 ETHIOPIC SYLLABLE TZO 01347 ETHIOPIC SYLLABLE TZOA 01348 ETHIOPIC SYLLABLE FA 01349 ETHIOPIC SYLLABLE FU 0134A ETHIOPIC SYLLABLE FI 0134B ETHIOPIC SYLLABLE FAA 0134C ETHIOPIC SYLLABLE FEE 0134D ETHIOPIC SYLLABLE FE 0134E ETHIOPIC SYLLABLE FO 0134F ETHIOPIC SYLLABLE FWA 01350 ETHIOPIC SYLLABLE PA 01351 ETHIOPIC SYLLABLE PU 01352 ETHIOPIC SYLLABLE PI 01353 ETHIOPIC SYLLABLE PAA 01354 ETHIOPIC SYLLABLE PEE 01355 ETHIOPIC SYLLABLE PE 01356 ETHIOPIC SYLLABLE PO 01357 ETHIOPIC SYLLABLE PWA 01358 ETHIOPIC SYLLABLE RYA 01359 ETHIOPIC SYLLABLE MYA 0135A ETHIOPIC SYLLABLE FYA 0135D ETHIOPIC COMBINING GEMINATION AND VOWEL LENGTH MARK 0135E ETHIOPIC COMBINING VOWEL LENGTH MARK 0135F ETHIOPIC COMBINING GEMINATION MARK 01360 ETHIOPIC SECTION MARK 01361 ETHIOPIC WORDSPACE 01362 ETHIOPIC FULL STOP 01363 ETHIOPIC COMMA 01364 ETHIOPIC SEMICOLON 01365 ETHIOPIC COLON 01366 ETHIOPIC PREFACE COLON 01367 ETHIOPIC QUESTION MARK 01368 ETHIOPIC PARAGRAPH SEPARATOR 01369 ETHIOPIC DIGIT ONE 0136A ETHIOPIC DIGIT TWO 0136B ETHIOPIC DIGIT THREE 0136C ETHIOPIC DIGIT FOUR 0136D ETHIOPIC DIGIT FIVE 0136E ETHIOPIC DIGIT SIX 0136F ETHIOPIC DIGIT SEVEN 01370 ETHIOPIC DIGIT EIGHT 01371 ETHIOPIC DIGIT NINE 01372 ETHIOPIC NUMBER TEN 01373 ETHIOPIC NUMBER TWENTY 01374 ETHIOPIC NUMBER THIRTY 01375 ETHIOPIC NUMBER FORTY 01376 ETHIOPIC NUMBER FIFTY 01377 ETHIOPIC NUMBER SIXTY 01378 ETHIOPIC NUMBER SEVENTY 01379 ETHIOPIC NUMBER EIGHTY 0137A ETHIOPIC NUMBER NINETY 0137B ETHIOPIC NUMBER HUNDRED 0137C ETHIOPIC NUMBER TEN THOUSAND 01380 ETHIOPIC SYLLABLE SEBATBEIT MWA 01381 ETHIOPIC SYLLABLE MWI 01382 ETHIOPIC SYLLABLE MWEE 01383 ETHIOPIC SYLLABLE MWE 01384 ETHIOPIC SYLLABLE SEBATBEIT BWA 01385 ETHIOPIC SYLLABLE BWI 01386 ETHIOPIC SYLLABLE BWEE 01387 ETHIOPIC SYLLABLE BWE 01388 ETHIOPIC SYLLABLE SEBATBEIT FWA 01389 ETHIOPIC SYLLABLE FWI 0138A ETHIOPIC SYLLABLE FWEE 0138B ETHIOPIC SYLLABLE FWE 0138C ETHIOPIC SYLLABLE SEBATBEIT PWA 0138D ETHIOPIC SYLLABLE PWI 0138E ETHIOPIC SYLLABLE PWEE 0138F ETHIOPIC SYLLABLE PWE 01390 ETHIOPIC TONAL MARK YIZET 01391 ETHIOPIC TONAL MARK DERET 01392 ETHIOPIC TONAL MARK RIKRIK 01393 ETHIOPIC TONAL MARK SHORT RIKRIK 01394 ETHIOPIC TONAL MARK DIFAT 01395 ETHIOPIC TONAL MARK KENAT 01396 ETHIOPIC TONAL MARK CHIRET 01397 ETHIOPIC TONAL MARK HIDET 01398 ETHIOPIC TONAL MARK DERET-HIDET 01399 ETHIOPIC TONAL MARK KURT 013A0 CHEROKEE LETTER A 013A1 CHEROKEE LETTER E 013A2 CHEROKEE LETTER I 013A3 CHEROKEE LETTER O 013A4 CHEROKEE LETTER U 013A5 CHEROKEE LETTER V 013A6 CHEROKEE LETTER GA 013A7 CHEROKEE LETTER KA 013A8 CHEROKEE LETTER GE 013A9 CHEROKEE LETTER GI 013AA CHEROKEE LETTER GO 013AB CHEROKEE LETTER GU 013AC CHEROKEE LETTER GV 013AD CHEROKEE LETTER HA 013AE CHEROKEE LETTER HE 013AF CHEROKEE LETTER HI 013B0 CHEROKEE LETTER HO 013B1 CHEROKEE LETTER HU 013B2 CHEROKEE LETTER HV 013B3 CHEROKEE LETTER LA 013B4 CHEROKEE LETTER LE 013B5 CHEROKEE LETTER LI 013B6 CHEROKEE LETTER LO 013B7 CHEROKEE LETTER LU 013B8 CHEROKEE LETTER LV 013B9 CHEROKEE LETTER MA 013BA CHEROKEE LETTER ME 013BB CHEROKEE LETTER MI 013BC CHEROKEE LETTER MO 013BD CHEROKEE LETTER MU 013BE CHEROKEE LETTER NA 013BF CHEROKEE LETTER HNA 013C0 CHEROKEE LETTER NAH 013C1 CHEROKEE LETTER NE 013C2 CHEROKEE LETTER NI 013C3 CHEROKEE LETTER NO 013C4 CHEROKEE LETTER NU 013C5 CHEROKEE LETTER NV 013C6 CHEROKEE LETTER QUA 013C7 CHEROKEE LETTER QUE 013C8 CHEROKEE LETTER QUI 013C9 CHEROKEE LETTER QUO 013CA CHEROKEE LETTER QUU 013CB CHEROKEE LETTER QUV 013CC CHEROKEE LETTER SA 013CD CHEROKEE LETTER S 013CE CHEROKEE LETTER SE 013CF CHEROKEE LETTER SI 013D0 CHEROKEE LETTER SO 013D1 CHEROKEE LETTER SU 013D2 CHEROKEE LETTER SV 013D3 CHEROKEE LETTER DA 013D4 CHEROKEE LETTER TA 013D5 CHEROKEE LETTER DE 013D6 CHEROKEE LETTER TE 013D7 CHEROKEE LETTER DI 013D8 CHEROKEE LETTER TI 013D9 CHEROKEE LETTER DO 013DA CHEROKEE LETTER DU 013DB CHEROKEE LETTER DV 013DC CHEROKEE LETTER DLA 013DD CHEROKEE LETTER TLA 013DE CHEROKEE LETTER TLE 013DF CHEROKEE LETTER TLI 013E0 CHEROKEE LETTER TLO 013E1 CHEROKEE LETTER TLU 013E2 CHEROKEE LETTER TLV 013E3 CHEROKEE LETTER TSA 013E4 CHEROKEE LETTER TSE 013E5 CHEROKEE LETTER TSI 013E6 CHEROKEE LETTER TSO 013E7 CHEROKEE LETTER TSU 013E8 CHEROKEE LETTER TSV 013E9 CHEROKEE LETTER WA 013EA CHEROKEE LETTER WE 013EB CHEROKEE LETTER WI 013EC CHEROKEE LETTER WO 013ED CHEROKEE LETTER WU 013EE CHEROKEE LETTER WV 013EF CHEROKEE LETTER YA 013F0 CHEROKEE LETTER YE 013F1 CHEROKEE LETTER YI 013F2 CHEROKEE LETTER YO 013F3 CHEROKEE LETTER YU 013F4 CHEROKEE LETTER YV 013F5 CHEROKEE LETTER MV 013F8 CHEROKEE SMALL LETTER YE 013F9 CHEROKEE SMALL LETTER YI 013FA CHEROKEE SMALL LETTER YO 013FB CHEROKEE SMALL LETTER YU 013FC CHEROKEE SMALL LETTER YV 013FD CHEROKEE SMALL LETTER MV 01400 CANADIAN SYLLABICS HYPHEN 01401 CANADIAN SYLLABICS E 01402 CANADIAN SYLLABICS AAI 01403 CANADIAN SYLLABICS I 01404 CANADIAN SYLLABICS II 01405 CANADIAN SYLLABICS O 01406 CANADIAN SYLLABICS OO 01407 CANADIAN SYLLABICS Y-CREE OO 01408 CANADIAN SYLLABICS CARRIER EE 01409 CANADIAN SYLLABICS CARRIER I 0140A CANADIAN SYLLABICS A 0140B CANADIAN SYLLABICS AA 0140C CANADIAN SYLLABICS WE 0140D CANADIAN SYLLABICS WEST-CREE WE 0140E CANADIAN SYLLABICS WI 0140F CANADIAN SYLLABICS WEST-CREE WI 01410 CANADIAN SYLLABICS WII 01411 CANADIAN SYLLABICS WEST-CREE WII 01412 CANADIAN SYLLABICS WO 01413 CANADIAN SYLLABICS WEST-CREE WO 01414 CANADIAN SYLLABICS WOO 01415 CANADIAN SYLLABICS WEST-CREE WOO 01416 CANADIAN SYLLABICS NASKAPI WOO 01417 CANADIAN SYLLABICS WA 01418 CANADIAN SYLLABICS WEST-CREE WA 01419 CANADIAN SYLLABICS WAA 0141A CANADIAN SYLLABICS WEST-CREE WAA 0141B CANADIAN SYLLABICS NASKAPI WAA 0141C CANADIAN SYLLABICS AI 0141D CANADIAN SYLLABICS Y-CREE W 0141E CANADIAN SYLLABICS GLOTTAL STOP 0141F CANADIAN SYLLABICS FINAL ACUTE 01420 CANADIAN SYLLABICS FINAL GRAVE 01421 CANADIAN SYLLABICS FINAL BOTTOM HALF RING 01422 CANADIAN SYLLABICS FINAL TOP HALF RING 01423 CANADIAN SYLLABICS FINAL RIGHT HALF RING 01424 CANADIAN SYLLABICS FINAL RING 01425 CANADIAN SYLLABICS FINAL DOUBLE ACUTE 01426 CANADIAN SYLLABICS FINAL DOUBLE SHORT VERTICAL STROKES 01427 CANADIAN SYLLABICS FINAL MIDDLE DOT 01428 CANADIAN SYLLABICS FINAL SHORT HORIZONTAL STROKE 01429 CANADIAN SYLLABICS FINAL PLUS 0142A CANADIAN SYLLABICS FINAL DOWN TACK 0142B CANADIAN SYLLABICS EN 0142C CANADIAN SYLLABICS IN 0142D CANADIAN SYLLABICS ON 0142E CANADIAN SYLLABICS AN 0142F CANADIAN SYLLABICS PE 01430 CANADIAN SYLLABICS PAAI 01431 CANADIAN SYLLABICS PI 01432 CANADIAN SYLLABICS PII 01433 CANADIAN SYLLABICS PO 01434 CANADIAN SYLLABICS POO 01435 CANADIAN SYLLABICS Y-CREE POO 01436 CANADIAN SYLLABICS CARRIER HEE 01437 CANADIAN SYLLABICS CARRIER HI 01438 CANADIAN SYLLABICS PA 01439 CANADIAN SYLLABICS PAA 0143A CANADIAN SYLLABICS PWE 0143B CANADIAN SYLLABICS WEST-CREE PWE 0143C CANADIAN SYLLABICS PWI 0143D CANADIAN SYLLABICS WEST-CREE PWI 0143E CANADIAN SYLLABICS PWII 0143F CANADIAN SYLLABICS WEST-CREE PWII 01440 CANADIAN SYLLABICS PWO 01441 CANADIAN SYLLABICS WEST-CREE PWO 01442 CANADIAN SYLLABICS PWOO 01443 CANADIAN SYLLABICS WEST-CREE PWOO 01444 CANADIAN SYLLABICS PWA 01445 CANADIAN SYLLABICS WEST-CREE PWA 01446 CANADIAN SYLLABICS PWAA 01447 CANADIAN SYLLABICS WEST-CREE PWAA 01448 CANADIAN SYLLABICS Y-CREE PWAA 01449 CANADIAN SYLLABICS P 0144A CANADIAN SYLLABICS WEST-CREE P 0144B CANADIAN SYLLABICS CARRIER H 0144C CANADIAN SYLLABICS TE 0144D CANADIAN SYLLABICS TAAI 0144E CANADIAN SYLLABICS TI 0144F CANADIAN SYLLABICS TII 01450 CANADIAN SYLLABICS TO 01451 CANADIAN SYLLABICS TOO 01452 CANADIAN SYLLABICS Y-CREE TOO 01453 CANADIAN SYLLABICS CARRIER DEE 01454 CANADIAN SYLLABICS CARRIER DI 01455 CANADIAN SYLLABICS TA 01456 CANADIAN SYLLABICS TAA 01457 CANADIAN SYLLABICS TWE 01458 CANADIAN SYLLABICS WEST-CREE TWE 01459 CANADIAN SYLLABICS TWI 0145A CANADIAN SYLLABICS WEST-CREE TWI 0145B CANADIAN SYLLABICS TWII 0145C CANADIAN SYLLABICS WEST-CREE TWII 0145D CANADIAN SYLLABICS TWO 0145E CANADIAN SYLLABICS WEST-CREE TWO 0145F CANADIAN SYLLABICS TWOO 01460 CANADIAN SYLLABICS WEST-CREE TWOO 01461 CANADIAN SYLLABICS TWA 01462 CANADIAN SYLLABICS WEST-CREE TWA 01463 CANADIAN SYLLABICS TWAA 01464 CANADIAN SYLLABICS WEST-CREE TWAA 01465 CANADIAN SYLLABICS NASKAPI TWAA 01466 CANADIAN SYLLABICS T 01467 CANADIAN SYLLABICS TTE 01468 CANADIAN SYLLABICS TTI 01469 CANADIAN SYLLABICS TTO 0146A CANADIAN SYLLABICS TTA 0146B CANADIAN SYLLABICS KE 0146C CANADIAN SYLLABICS KAAI 0146D CANADIAN SYLLABICS KI 0146E CANADIAN SYLLABICS KII 0146F CANADIAN SYLLABICS KO 01470 CANADIAN SYLLABICS KOO 01471 CANADIAN SYLLABICS Y-CREE KOO 01472 CANADIAN SYLLABICS KA 01473 CANADIAN SYLLABICS KAA 01474 CANADIAN SYLLABICS KWE 01475 CANADIAN SYLLABICS WEST-CREE KWE 01476 CANADIAN SYLLABICS KWI 01477 CANADIAN SYLLABICS WEST-CREE KWI 01478 CANADIAN SYLLABICS KWII 01479 CANADIAN SYLLABICS WEST-CREE KWII 0147A CANADIAN SYLLABICS KWO 0147B CANADIAN SYLLABICS WEST-CREE KWO 0147C CANADIAN SYLLABICS KWOO 0147D CANADIAN SYLLABICS WEST-CREE KWOO 0147E CANADIAN SYLLABICS KWA 0147F CANADIAN SYLLABICS WEST-CREE KWA 01480 CANADIAN SYLLABICS KWAA 01481 CANADIAN SYLLABICS WEST-CREE KWAA 01482 CANADIAN SYLLABICS NASKAPI KWAA 01483 CANADIAN SYLLABICS K 01484 CANADIAN SYLLABICS KW 01485 CANADIAN SYLLABICS SOUTH-SLAVEY KEH 01486 CANADIAN SYLLABICS SOUTH-SLAVEY KIH 01487 CANADIAN SYLLABICS SOUTH-SLAVEY KOH 01488 CANADIAN SYLLABICS SOUTH-SLAVEY KAH 01489 CANADIAN SYLLABICS CE 0148A CANADIAN SYLLABICS CAAI 0148B CANADIAN SYLLABICS CI 0148C CANADIAN SYLLABICS CII 0148D CANADIAN SYLLABICS CO 0148E CANADIAN SYLLABICS COO 0148F CANADIAN SYLLABICS Y-CREE COO 01490 CANADIAN SYLLABICS CA 01491 CANADIAN SYLLABICS CAA 01492 CANADIAN SYLLABICS CWE 01493 CANADIAN SYLLABICS WEST-CREE CWE 01494 CANADIAN SYLLABICS CWI 01495 CANADIAN SYLLABICS WEST-CREE CWI 01496 CANADIAN SYLLABICS CWII 01497 CANADIAN SYLLABICS WEST-CREE CWII 01498 CANADIAN SYLLABICS CWO 01499 CANADIAN SYLLABICS WEST-CREE CWO 0149A CANADIAN SYLLABICS CWOO 0149B CANADIAN SYLLABICS WEST-CREE CWOO 0149C CANADIAN SYLLABICS CWA 0149D CANADIAN SYLLABICS WEST-CREE CWA 0149E CANADIAN SYLLABICS CWAA 0149F CANADIAN SYLLABICS WEST-CREE CWAA 014A0 CANADIAN SYLLABICS NASKAPI CWAA 014A1 CANADIAN SYLLABICS C 014A2 CANADIAN SYLLABICS SAYISI TH 014A3 CANADIAN SYLLABICS ME 014A4 CANADIAN SYLLABICS MAAI 014A5 CANADIAN SYLLABICS MI 014A6 CANADIAN SYLLABICS MII 014A7 CANADIAN SYLLABICS MO 014A8 CANADIAN SYLLABICS MOO 014A9 CANADIAN SYLLABICS Y-CREE MOO 014AA CANADIAN SYLLABICS MA 014AB CANADIAN SYLLABICS MAA 014AC CANADIAN SYLLABICS MWE 014AD CANADIAN SYLLABICS WEST-CREE MWE 014AE CANADIAN SYLLABICS MWI 014AF CANADIAN SYLLABICS WEST-CREE MWI 014B0 CANADIAN SYLLABICS MWII 014B1 CANADIAN SYLLABICS WEST-CREE MWII 014B2 CANADIAN SYLLABICS MWO 014B3 CANADIAN SYLLABICS WEST-CREE MWO 014B4 CANADIAN SYLLABICS MWOO 014B5 CANADIAN SYLLABICS WEST-CREE MWOO 014B6 CANADIAN SYLLABICS MWA 014B7 CANADIAN SYLLABICS WEST-CREE MWA 014B8 CANADIAN SYLLABICS MWAA 014B9 CANADIAN SYLLABICS WEST-CREE MWAA 014BA CANADIAN SYLLABICS NASKAPI MWAA 014BB CANADIAN SYLLABICS M 014BC CANADIAN SYLLABICS WEST-CREE M 014BD CANADIAN SYLLABICS MH 014BE CANADIAN SYLLABICS ATHAPASCAN M 014BF CANADIAN SYLLABICS SAYISI M 014C0 CANADIAN SYLLABICS NE 014C1 CANADIAN SYLLABICS NAAI 014C2 CANADIAN SYLLABICS NI 014C3 CANADIAN SYLLABICS NII 014C4 CANADIAN SYLLABICS NO 014C5 CANADIAN SYLLABICS NOO 014C6 CANADIAN SYLLABICS Y-CREE NOO 014C7 CANADIAN SYLLABICS NA 014C8 CANADIAN SYLLABICS NAA 014C9 CANADIAN SYLLABICS NWE 014CA CANADIAN SYLLABICS WEST-CREE NWE 014CB CANADIAN SYLLABICS NWA 014CC CANADIAN SYLLABICS WEST-CREE NWA 014CD CANADIAN SYLLABICS NWAA 014CE CANADIAN SYLLABICS WEST-CREE NWAA 014CF CANADIAN SYLLABICS NASKAPI NWAA 014D0 CANADIAN SYLLABICS N 014D1 CANADIAN SYLLABICS CARRIER NG 014D2 CANADIAN SYLLABICS NH 014D3 CANADIAN SYLLABICS LE 014D4 CANADIAN SYLLABICS LAAI 014D5 CANADIAN SYLLABICS LI 014D6 CANADIAN SYLLABICS LII 014D7 CANADIAN SYLLABICS LO 014D8 CANADIAN SYLLABICS LOO 014D9 CANADIAN SYLLABICS Y-CREE LOO 014DA CANADIAN SYLLABICS LA 014DB CANADIAN SYLLABICS LAA 014DC CANADIAN SYLLABICS LWE 014DD CANADIAN SYLLABICS WEST-CREE LWE 014DE CANADIAN SYLLABICS LWI 014DF CANADIAN SYLLABICS WEST-CREE LWI 014E0 CANADIAN SYLLABICS LWII 014E1 CANADIAN SYLLABICS WEST-CREE LWII 014E2 CANADIAN SYLLABICS LWO 014E3 CANADIAN SYLLABICS WEST-CREE LWO 014E4 CANADIAN SYLLABICS LWOO 014E5 CANADIAN SYLLABICS WEST-CREE LWOO 014E6 CANADIAN SYLLABICS LWA 014E7 CANADIAN SYLLABICS WEST-CREE LWA 014E8 CANADIAN SYLLABICS LWAA 014E9 CANADIAN SYLLABICS WEST-CREE LWAA 014EA CANADIAN SYLLABICS L 014EB CANADIAN SYLLABICS WEST-CREE L 014EC CANADIAN SYLLABICS MEDIAL L 014ED CANADIAN SYLLABICS SE 014EE CANADIAN SYLLABICS SAAI 014EF CANADIAN SYLLABICS SI 014F0 CANADIAN SYLLABICS SII 014F1 CANADIAN SYLLABICS SO 014F2 CANADIAN SYLLABICS SOO 014F3 CANADIAN SYLLABICS Y-CREE SOO 014F4 CANADIAN SYLLABICS SA 014F5 CANADIAN SYLLABICS SAA 014F6 CANADIAN SYLLABICS SWE 014F7 CANADIAN SYLLABICS WEST-CREE SWE 014F8 CANADIAN SYLLABICS SWI 014F9 CANADIAN SYLLABICS WEST-CREE SWI 014FA CANADIAN SYLLABICS SWII 014FB CANADIAN SYLLABICS WEST-CREE SWII 014FC CANADIAN SYLLABICS SWO 014FD CANADIAN SYLLABICS WEST-CREE SWO 014FE CANADIAN SYLLABICS SWOO 014FF CANADIAN SYLLABICS WEST-CREE SWOO 01500 CANADIAN SYLLABICS SWA 01501 CANADIAN SYLLABICS WEST-CREE SWA 01502 CANADIAN SYLLABICS SWAA 01503 CANADIAN SYLLABICS WEST-CREE SWAA 01504 CANADIAN SYLLABICS NASKAPI SWAA 01505 CANADIAN SYLLABICS S 01506 CANADIAN SYLLABICS ATHAPASCAN S 01507 CANADIAN SYLLABICS SW 01508 CANADIAN SYLLABICS BLACKFOOT S 01509 CANADIAN SYLLABICS MOOSE-CREE SK 0150A CANADIAN SYLLABICS NASKAPI SKW 0150B CANADIAN SYLLABICS NASKAPI S-W 0150C CANADIAN SYLLABICS NASKAPI SPWA 0150D CANADIAN SYLLABICS NASKAPI STWA 0150E CANADIAN SYLLABICS NASKAPI SKWA 0150F CANADIAN SYLLABICS NASKAPI SCWA 01510 CANADIAN SYLLABICS SHE 01511 CANADIAN SYLLABICS SHI 01512 CANADIAN SYLLABICS SHII 01513 CANADIAN SYLLABICS SHO 01514 CANADIAN SYLLABICS SHOO 01515 CANADIAN SYLLABICS SHA 01516 CANADIAN SYLLABICS SHAA 01517 CANADIAN SYLLABICS SHWE 01518 CANADIAN SYLLABICS WEST-CREE SHWE 01519 CANADIAN SYLLABICS SHWI 0151A CANADIAN SYLLABICS WEST-CREE SHWI 0151B CANADIAN SYLLABICS SHWII 0151C CANADIAN SYLLABICS WEST-CREE SHWII 0151D CANADIAN SYLLABICS SHWO 0151E CANADIAN SYLLABICS WEST-CREE SHWO 0151F CANADIAN SYLLABICS SHWOO 01520 CANADIAN SYLLABICS WEST-CREE SHWOO 01521 CANADIAN SYLLABICS SHWA 01522 CANADIAN SYLLABICS WEST-CREE SHWA 01523 CANADIAN SYLLABICS SHWAA 01524 CANADIAN SYLLABICS WEST-CREE SHWAA 01525 CANADIAN SYLLABICS SH 01526 CANADIAN SYLLABICS YE 01527 CANADIAN SYLLABICS YAAI 01528 CANADIAN SYLLABICS YI 01529 CANADIAN SYLLABICS YII 0152A CANADIAN SYLLABICS YO 0152B CANADIAN SYLLABICS YOO 0152C CANADIAN SYLLABICS Y-CREE YOO 0152D CANADIAN SYLLABICS YA 0152E CANADIAN SYLLABICS YAA 0152F CANADIAN SYLLABICS YWE 01530 CANADIAN SYLLABICS WEST-CREE YWE 01531 CANADIAN SYLLABICS YWI 01532 CANADIAN SYLLABICS WEST-CREE YWI 01533 CANADIAN SYLLABICS YWII 01534 CANADIAN SYLLABICS WEST-CREE YWII 01535 CANADIAN SYLLABICS YWO 01536 CANADIAN SYLLABICS WEST-CREE YWO 01537 CANADIAN SYLLABICS YWOO 01538 CANADIAN SYLLABICS WEST-CREE YWOO 01539 CANADIAN SYLLABICS YWA 0153A CANADIAN SYLLABICS WEST-CREE YWA 0153B CANADIAN SYLLABICS YWAA 0153C CANADIAN SYLLABICS WEST-CREE YWAA 0153D CANADIAN SYLLABICS NASKAPI YWAA 0153E CANADIAN SYLLABICS Y 0153F CANADIAN SYLLABICS BIBLE-CREE Y 01540 CANADIAN SYLLABICS WEST-CREE Y 01541 CANADIAN SYLLABICS SAYISI YI 01542 CANADIAN SYLLABICS RE 01543 CANADIAN SYLLABICS R-CREE RE 01544 CANADIAN SYLLABICS WEST-CREE LE 01545 CANADIAN SYLLABICS RAAI 01546 CANADIAN SYLLABICS RI 01547 CANADIAN SYLLABICS RII 01548 CANADIAN SYLLABICS RO 01549 CANADIAN SYLLABICS ROO 0154A CANADIAN SYLLABICS WEST-CREE LO 0154B CANADIAN SYLLABICS RA 0154C CANADIAN SYLLABICS RAA 0154D CANADIAN SYLLABICS WEST-CREE LA 0154E CANADIAN SYLLABICS RWAA 0154F CANADIAN SYLLABICS WEST-CREE RWAA 01550 CANADIAN SYLLABICS R 01551 CANADIAN SYLLABICS WEST-CREE R 01552 CANADIAN SYLLABICS MEDIAL R 01553 CANADIAN SYLLABICS FE 01554 CANADIAN SYLLABICS FAAI 01555 CANADIAN SYLLABICS FI 01556 CANADIAN SYLLABICS FII 01557 CANADIAN SYLLABICS FO 01558 CANADIAN SYLLABICS FOO 01559 CANADIAN SYLLABICS FA 0155A CANADIAN SYLLABICS FAA 0155B CANADIAN SYLLABICS FWAA 0155C CANADIAN SYLLABICS WEST-CREE FWAA 0155D CANADIAN SYLLABICS F 0155E CANADIAN SYLLABICS THE 0155F CANADIAN SYLLABICS N-CREE THE 01560 CANADIAN SYLLABICS THI 01561 CANADIAN SYLLABICS N-CREE THI 01562 CANADIAN SYLLABICS THII 01563 CANADIAN SYLLABICS N-CREE THII 01564 CANADIAN SYLLABICS THO 01565 CANADIAN SYLLABICS THOO 01566 CANADIAN SYLLABICS THA 01567 CANADIAN SYLLABICS THAA 01568 CANADIAN SYLLABICS THWAA 01569 CANADIAN SYLLABICS WEST-CREE THWAA 0156A CANADIAN SYLLABICS TH 0156B CANADIAN SYLLABICS TTHE 0156C CANADIAN SYLLABICS TTHI 0156D CANADIAN SYLLABICS TTHO 0156E CANADIAN SYLLABICS TTHA 0156F CANADIAN SYLLABICS TTH 01570 CANADIAN SYLLABICS TYE 01571 CANADIAN SYLLABICS TYI 01572 CANADIAN SYLLABICS TYO 01573 CANADIAN SYLLABICS TYA 01574 CANADIAN SYLLABICS NUNAVIK HE 01575 CANADIAN SYLLABICS NUNAVIK HI 01576 CANADIAN SYLLABICS NUNAVIK HII 01577 CANADIAN SYLLABICS NUNAVIK HO 01578 CANADIAN SYLLABICS NUNAVIK HOO 01579 CANADIAN SYLLABICS NUNAVIK HA 0157A CANADIAN SYLLABICS NUNAVIK HAA 0157B CANADIAN SYLLABICS NUNAVIK H 0157C CANADIAN SYLLABICS NUNAVUT H 0157D CANADIAN SYLLABICS HK 0157E CANADIAN SYLLABICS QAAI 0157F CANADIAN SYLLABICS QI 01580 CANADIAN SYLLABICS QII 01581 CANADIAN SYLLABICS QO 01582 CANADIAN SYLLABICS QOO 01583 CANADIAN SYLLABICS QA 01584 CANADIAN SYLLABICS QAA 01585 CANADIAN SYLLABICS Q 01586 CANADIAN SYLLABICS TLHE 01587 CANADIAN SYLLABICS TLHI 01588 CANADIAN SYLLABICS TLHO 01589 CANADIAN SYLLABICS TLHA 0158A CANADIAN SYLLABICS WEST-CREE RE 0158B CANADIAN SYLLABICS WEST-CREE RI 0158C CANADIAN SYLLABICS WEST-CREE RO 0158D CANADIAN SYLLABICS WEST-CREE RA 0158E CANADIAN SYLLABICS NGAAI 0158F CANADIAN SYLLABICS NGI 01590 CANADIAN SYLLABICS NGII 01591 CANADIAN SYLLABICS NGO 01592 CANADIAN SYLLABICS NGOO 01593 CANADIAN SYLLABICS NGA 01594 CANADIAN SYLLABICS NGAA 01595 CANADIAN SYLLABICS NG 01596 CANADIAN SYLLABICS NNG 01597 CANADIAN SYLLABICS SAYISI SHE 01598 CANADIAN SYLLABICS SAYISI SHI 01599 CANADIAN SYLLABICS SAYISI SHO 0159A CANADIAN SYLLABICS SAYISI SHA 0159B CANADIAN SYLLABICS WOODS-CREE THE 0159C CANADIAN SYLLABICS WOODS-CREE THI 0159D CANADIAN SYLLABICS WOODS-CREE THO 0159E CANADIAN SYLLABICS WOODS-CREE THA 0159F CANADIAN SYLLABICS WOODS-CREE TH 015A0 CANADIAN SYLLABICS LHI 015A1 CANADIAN SYLLABICS LHII 015A2 CANADIAN SYLLABICS LHO 015A3 CANADIAN SYLLABICS LHOO 015A4 CANADIAN SYLLABICS LHA 015A5 CANADIAN SYLLABICS LHAA 015A6 CANADIAN SYLLABICS LH 015A7 CANADIAN SYLLABICS TH-CREE THE 015A8 CANADIAN SYLLABICS TH-CREE THI 015A9 CANADIAN SYLLABICS TH-CREE THII 015AA CANADIAN SYLLABICS TH-CREE THO 015AB CANADIAN SYLLABICS TH-CREE THOO 015AC CANADIAN SYLLABICS TH-CREE THA 015AD CANADIAN SYLLABICS TH-CREE THAA 015AE CANADIAN SYLLABICS TH-CREE TH 015AF CANADIAN SYLLABICS AIVILIK B 015B0 CANADIAN SYLLABICS BLACKFOOT E 015B1 CANADIAN SYLLABICS BLACKFOOT I 015B2 CANADIAN SYLLABICS BLACKFOOT O 015B3 CANADIAN SYLLABICS BLACKFOOT A 015B4 CANADIAN SYLLABICS BLACKFOOT WE 015B5 CANADIAN SYLLABICS BLACKFOOT WI 015B6 CANADIAN SYLLABICS BLACKFOOT WO 015B7 CANADIAN SYLLABICS BLACKFOOT WA 015B8 CANADIAN SYLLABICS BLACKFOOT NE 015B9 CANADIAN SYLLABICS BLACKFOOT NI 015BA CANADIAN SYLLABICS BLACKFOOT NO 015BB CANADIAN SYLLABICS BLACKFOOT NA 015BC CANADIAN SYLLABICS BLACKFOOT KE 015BD CANADIAN SYLLABICS BLACKFOOT KI 015BE CANADIAN SYLLABICS BLACKFOOT KO 015BF CANADIAN SYLLABICS BLACKFOOT KA 015C0 CANADIAN SYLLABICS SAYISI HE 015C1 CANADIAN SYLLABICS SAYISI HI 015C2 CANADIAN SYLLABICS SAYISI HO 015C3 CANADIAN SYLLABICS SAYISI HA 015C4 CANADIAN SYLLABICS CARRIER GHU 015C5 CANADIAN SYLLABICS CARRIER GHO 015C6 CANADIAN SYLLABICS CARRIER GHE 015C7 CANADIAN SYLLABICS CARRIER GHEE 015C8 CANADIAN SYLLABICS CARRIER GHI 015C9 CANADIAN SYLLABICS CARRIER GHA 015CA CANADIAN SYLLABICS CARRIER RU 015CB CANADIAN SYLLABICS CARRIER RO 015CC CANADIAN SYLLABICS CARRIER RE 015CD CANADIAN SYLLABICS CARRIER REE 015CE CANADIAN SYLLABICS CARRIER RI 015CF CANADIAN SYLLABICS CARRIER RA 015D0 CANADIAN SYLLABICS CARRIER WU 015D1 CANADIAN SYLLABICS CARRIER WO 015D2 CANADIAN SYLLABICS CARRIER WE 015D3 CANADIAN SYLLABICS CARRIER WEE 015D4 CANADIAN SYLLABICS CARRIER WI 015D5 CANADIAN SYLLABICS CARRIER WA 015D6 CANADIAN SYLLABICS CARRIER HWU 015D7 CANADIAN SYLLABICS CARRIER HWO 015D8 CANADIAN SYLLABICS CARRIER HWE 015D9 CANADIAN SYLLABICS CARRIER HWEE 015DA CANADIAN SYLLABICS CARRIER HWI 015DB CANADIAN SYLLABICS CARRIER HWA 015DC CANADIAN SYLLABICS CARRIER THU 015DD CANADIAN SYLLABICS CARRIER THO 015DE CANADIAN SYLLABICS CARRIER THE 015DF CANADIAN SYLLABICS CARRIER THEE 015E0 CANADIAN SYLLABICS CARRIER THI 015E1 CANADIAN SYLLABICS CARRIER THA 015E2 CANADIAN SYLLABICS CARRIER TTU 015E3 CANADIAN SYLLABICS CARRIER TTO 015E4 CANADIAN SYLLABICS CARRIER TTE 015E5 CANADIAN SYLLABICS CARRIER TTEE 015E6 CANADIAN SYLLABICS CARRIER TTI 015E7 CANADIAN SYLLABICS CARRIER TTA 015E8 CANADIAN SYLLABICS CARRIER PU 015E9 CANADIAN SYLLABICS CARRIER PO 015EA CANADIAN SYLLABICS CARRIER PE 015EB CANADIAN SYLLABICS CARRIER PEE 015EC CANADIAN SYLLABICS CARRIER PI 015ED CANADIAN SYLLABICS CARRIER PA 015EE CANADIAN SYLLABICS CARRIER P 015EF CANADIAN SYLLABICS CARRIER GU 015F0 CANADIAN SYLLABICS CARRIER GO 015F1 CANADIAN SYLLABICS CARRIER GE 015F2 CANADIAN SYLLABICS CARRIER GEE 015F3 CANADIAN SYLLABICS CARRIER GI 015F4 CANADIAN SYLLABICS CARRIER GA 015F5 CANADIAN SYLLABICS CARRIER KHU 015F6 CANADIAN SYLLABICS CARRIER KHO 015F7 CANADIAN SYLLABICS CARRIER KHE 015F8 CANADIAN SYLLABICS CARRIER KHEE 015F9 CANADIAN SYLLABICS CARRIER KHI 015FA CANADIAN SYLLABICS CARRIER KHA 015FB CANADIAN SYLLABICS CARRIER KKU 015FC CANADIAN SYLLABICS CARRIER KKO 015FD CANADIAN SYLLABICS CARRIER KKE 015FE CANADIAN SYLLABICS CARRIER KKEE 015FF CANADIAN SYLLABICS CARRIER KKI 01600 CANADIAN SYLLABICS CARRIER KKA 01601 CANADIAN SYLLABICS CARRIER KK 01602 CANADIAN SYLLABICS CARRIER NU 01603 CANADIAN SYLLABICS CARRIER NO 01604 CANADIAN SYLLABICS CARRIER NE 01605 CANADIAN SYLLABICS CARRIER NEE 01606 CANADIAN SYLLABICS CARRIER NI 01607 CANADIAN SYLLABICS CARRIER NA 01608 CANADIAN SYLLABICS CARRIER MU 01609 CANADIAN SYLLABICS CARRIER MO 0160A CANADIAN SYLLABICS CARRIER ME 0160B CANADIAN SYLLABICS CARRIER MEE 0160C CANADIAN SYLLABICS CARRIER MI 0160D CANADIAN SYLLABICS CARRIER MA 0160E CANADIAN SYLLABICS CARRIER YU 0160F CANADIAN SYLLABICS CARRIER YO 01610 CANADIAN SYLLABICS CARRIER YE 01611 CANADIAN SYLLABICS CARRIER YEE 01612 CANADIAN SYLLABICS CARRIER YI 01613 CANADIAN SYLLABICS CARRIER YA 01614 CANADIAN SYLLABICS CARRIER JU 01615 CANADIAN SYLLABICS SAYISI JU 01616 CANADIAN SYLLABICS CARRIER JO 01617 CANADIAN SYLLABICS CARRIER JE 01618 CANADIAN SYLLABICS CARRIER JEE 01619 CANADIAN SYLLABICS CARRIER JI 0161A CANADIAN SYLLABICS SAYISI JI 0161B CANADIAN SYLLABICS CARRIER JA 0161C CANADIAN SYLLABICS CARRIER JJU 0161D CANADIAN SYLLABICS CARRIER JJO 0161E CANADIAN SYLLABICS CARRIER JJE 0161F CANADIAN SYLLABICS CARRIER JJEE 01620 CANADIAN SYLLABICS CARRIER JJI 01621 CANADIAN SYLLABICS CARRIER JJA 01622 CANADIAN SYLLABICS CARRIER LU 01623 CANADIAN SYLLABICS CARRIER LO 01624 CANADIAN SYLLABICS CARRIER LE 01625 CANADIAN SYLLABICS CARRIER LEE 01626 CANADIAN SYLLABICS CARRIER LI 01627 CANADIAN SYLLABICS CARRIER LA 01628 CANADIAN SYLLABICS CARRIER DLU 01629 CANADIAN SYLLABICS CARRIER DLO 0162A CANADIAN SYLLABICS CARRIER DLE 0162B CANADIAN SYLLABICS CARRIER DLEE 0162C CANADIAN SYLLABICS CARRIER DLI 0162D CANADIAN SYLLABICS CARRIER DLA 0162E CANADIAN SYLLABICS CARRIER LHU 0162F CANADIAN SYLLABICS CARRIER LHO 01630 CANADIAN SYLLABICS CARRIER LHE 01631 CANADIAN SYLLABICS CARRIER LHEE 01632 CANADIAN SYLLABICS CARRIER LHI 01633 CANADIAN SYLLABICS CARRIER LHA 01634 CANADIAN SYLLABICS CARRIER TLHU 01635 CANADIAN SYLLABICS CARRIER TLHO 01636 CANADIAN SYLLABICS CARRIER TLHE 01637 CANADIAN SYLLABICS CARRIER TLHEE 01638 CANADIAN SYLLABICS CARRIER TLHI 01639 CANADIAN SYLLABICS CARRIER TLHA 0163A CANADIAN SYLLABICS CARRIER TLU 0163B CANADIAN SYLLABICS CARRIER TLO 0163C CANADIAN SYLLABICS CARRIER TLE 0163D CANADIAN SYLLABICS CARRIER TLEE 0163E CANADIAN SYLLABICS CARRIER TLI 0163F CANADIAN SYLLABICS CARRIER TLA 01640 CANADIAN SYLLABICS CARRIER ZU 01641 CANADIAN SYLLABICS CARRIER ZO 01642 CANADIAN SYLLABICS CARRIER ZE 01643 CANADIAN SYLLABICS CARRIER ZEE 01644 CANADIAN SYLLABICS CARRIER ZI 01645 CANADIAN SYLLABICS CARRIER ZA 01646 CANADIAN SYLLABICS CARRIER Z 01647 CANADIAN SYLLABICS CARRIER INITIAL Z 01648 CANADIAN SYLLABICS CARRIER DZU 01649 CANADIAN SYLLABICS CARRIER DZO 0164A CANADIAN SYLLABICS CARRIER DZE 0164B CANADIAN SYLLABICS CARRIER DZEE 0164C CANADIAN SYLLABICS CARRIER DZI 0164D CANADIAN SYLLABICS CARRIER DZA 0164E CANADIAN SYLLABICS CARRIER SU 0164F CANADIAN SYLLABICS CARRIER SO 01650 CANADIAN SYLLABICS CARRIER SE 01651 CANADIAN SYLLABICS CARRIER SEE 01652 CANADIAN SYLLABICS CARRIER SI 01653 CANADIAN SYLLABICS CARRIER SA 01654 CANADIAN SYLLABICS CARRIER SHU 01655 CANADIAN SYLLABICS CARRIER SHO 01656 CANADIAN SYLLABICS CARRIER SHE 01657 CANADIAN SYLLABICS CARRIER SHEE 01658 CANADIAN SYLLABICS CARRIER SHI 01659 CANADIAN SYLLABICS CARRIER SHA 0165A CANADIAN SYLLABICS CARRIER SH 0165B CANADIAN SYLLABICS CARRIER TSU 0165C CANADIAN SYLLABICS CARRIER TSO 0165D CANADIAN SYLLABICS CARRIER TSE 0165E CANADIAN SYLLABICS CARRIER TSEE 0165F CANADIAN SYLLABICS CARRIER TSI 01660 CANADIAN SYLLABICS CARRIER TSA 01661 CANADIAN SYLLABICS CARRIER CHU 01662 CANADIAN SYLLABICS CARRIER CHO 01663 CANADIAN SYLLABICS CARRIER CHE 01664 CANADIAN SYLLABICS CARRIER CHEE 01665 CANADIAN SYLLABICS CARRIER CHI 01666 CANADIAN SYLLABICS CARRIER CHA 01667 CANADIAN SYLLABICS CARRIER TTSU 01668 CANADIAN SYLLABICS CARRIER TTSO 01669 CANADIAN SYLLABICS CARRIER TTSE 0166A CANADIAN SYLLABICS CARRIER TTSEE 0166B CANADIAN SYLLABICS CARRIER TTSI 0166C CANADIAN SYLLABICS CARRIER TTSA 0166D CANADIAN SYLLABICS CHI SIGN 0166E CANADIAN SYLLABICS FULL STOP 0166F CANADIAN SYLLABICS QAI 01670 CANADIAN SYLLABICS NGAI 01671 CANADIAN SYLLABICS NNGI 01672 CANADIAN SYLLABICS NNGII 01673 CANADIAN SYLLABICS NNGO 01674 CANADIAN SYLLABICS NNGOO 01675 CANADIAN SYLLABICS NNGA 01676 CANADIAN SYLLABICS NNGAA 01677 CANADIAN SYLLABICS WOODS-CREE THWEE 01678 CANADIAN SYLLABICS WOODS-CREE THWI 01679 CANADIAN SYLLABICS WOODS-CREE THWII 0167A CANADIAN SYLLABICS WOODS-CREE THWO 0167B CANADIAN SYLLABICS WOODS-CREE THWOO 0167C CANADIAN SYLLABICS WOODS-CREE THWA 0167D CANADIAN SYLLABICS WOODS-CREE THWAA 0167E CANADIAN SYLLABICS WOODS-CREE FINAL TH 0167F CANADIAN SYLLABICS BLACKFOOT W 01680 OGHAM SPACE MARK 01681 OGHAM LETTER BEITH 01682 OGHAM LETTER LUIS 01683 OGHAM LETTER FEARN 01684 OGHAM LETTER SAIL 01685 OGHAM LETTER NION 01686 OGHAM LETTER UATH 01687 OGHAM LETTER DAIR 01688 OGHAM LETTER TINNE 01689 OGHAM LETTER COLL 0168A OGHAM LETTER CEIRT 0168B OGHAM LETTER MUIN 0168C OGHAM LETTER GORT 0168D OGHAM LETTER NGEADAL 0168E OGHAM LETTER STRAIF 0168F OGHAM LETTER RUIS 01690 OGHAM LETTER AILM 01691 OGHAM LETTER ONN 01692 OGHAM LETTER UR 01693 OGHAM LETTER EADHADH 01694 OGHAM LETTER IODHADH 01695 OGHAM LETTER EABHADH 01696 OGHAM LETTER OR 01697 OGHAM LETTER UILLEANN 01698 OGHAM LETTER IFIN 01699 OGHAM LETTER EAMHANCHOLL 0169A OGHAM LETTER PEITH 0169B OGHAM FEATHER MARK 0169C OGHAM REVERSED FEATHER MARK 016A0 RUNIC LETTER FEHU FEOH FE F 016A1 RUNIC LETTER V 016A2 RUNIC LETTER URUZ UR U 016A3 RUNIC LETTER YR 016A4 RUNIC LETTER Y 016A5 RUNIC LETTER W 016A6 RUNIC LETTER THURISAZ THURS THORN 016A7 RUNIC LETTER ETH 016A8 RUNIC LETTER ANSUZ A 016A9 RUNIC LETTER OS O 016AA RUNIC LETTER AC A 016AB RUNIC LETTER AESC 016AC RUNIC LETTER LONG-BRANCH-OSS O 016AD RUNIC LETTER SHORT-TWIG-OSS O 016AE RUNIC LETTER O 016AF RUNIC LETTER OE 016B0 RUNIC LETTER ON 016B1 RUNIC LETTER RAIDO RAD REID R 016B2 RUNIC LETTER KAUNA 016B3 RUNIC LETTER CEN 016B4 RUNIC LETTER KAUN K 016B5 RUNIC LETTER G 016B6 RUNIC LETTER ENG 016B7 RUNIC LETTER GEBO GYFU G 016B8 RUNIC LETTER GAR 016B9 RUNIC LETTER WUNJO WYNN W 016BA RUNIC LETTER HAGLAZ H 016BB RUNIC LETTER HAEGL H 016BC RUNIC LETTER LONG-BRANCH-HAGALL H 016BD RUNIC LETTER SHORT-TWIG-HAGALL H 016BE RUNIC LETTER NAUDIZ NYD NAUD N 016BF RUNIC LETTER SHORT-TWIG-NAUD N 016C0 RUNIC LETTER DOTTED-N 016C1 RUNIC LETTER ISAZ IS ISS I 016C2 RUNIC LETTER E 016C3 RUNIC LETTER JERAN J 016C4 RUNIC LETTER GER 016C5 RUNIC LETTER LONG-BRANCH-AR AE 016C6 RUNIC LETTER SHORT-TWIG-AR A 016C7 RUNIC LETTER IWAZ EOH 016C8 RUNIC LETTER PERTHO PEORTH P 016C9 RUNIC LETTER ALGIZ EOLHX 016CA RUNIC LETTER SOWILO S 016CB RUNIC LETTER SIGEL LONG-BRANCH-SOL S 016CC RUNIC LETTER SHORT-TWIG-SOL S 016CD RUNIC LETTER C 016CE RUNIC LETTER Z 016CF RUNIC LETTER TIWAZ TIR TYR T 016D0 RUNIC LETTER SHORT-TWIG-TYR T 016D1 RUNIC LETTER D 016D2 RUNIC LETTER BERKANAN BEORC BJARKAN B 016D3 RUNIC LETTER SHORT-TWIG-BJARKAN B 016D4 RUNIC LETTER DOTTED-P 016D5 RUNIC LETTER OPEN-P 016D6 RUNIC LETTER EHWAZ EH E 016D7 RUNIC LETTER MANNAZ MAN M 016D8 RUNIC LETTER LONG-BRANCH-MADR M 016D9 RUNIC LETTER SHORT-TWIG-MADR M 016DA RUNIC LETTER LAUKAZ LAGU LOGR L 016DB RUNIC LETTER DOTTED-L 016DC RUNIC LETTER INGWAZ 016DD RUNIC LETTER ING 016DE RUNIC LETTER DAGAZ DAEG D 016DF RUNIC LETTER OTHALAN ETHEL O 016E0 RUNIC LETTER EAR 016E1 RUNIC LETTER IOR 016E2 RUNIC LETTER CWEORTH 016E3 RUNIC LETTER CALC 016E4 RUNIC LETTER CEALC 016E5 RUNIC LETTER STAN 016E6 RUNIC LETTER LONG-BRANCH-YR 016E7 RUNIC LETTER SHORT-TWIG-YR 016E8 RUNIC LETTER ICELANDIC-YR 016E9 RUNIC LETTER Q 016EA RUNIC LETTER X 016EB RUNIC SINGLE PUNCTUATION 016EC RUNIC MULTIPLE PUNCTUATION 016ED RUNIC CROSS PUNCTUATION 016EE RUNIC ARLAUG SYMBOL 016EF RUNIC TVIMADUR SYMBOL 016F0 RUNIC BELGTHOR SYMBOL 016F1 RUNIC LETTER K 016F2 RUNIC LETTER SH 016F3 RUNIC LETTER OO 016F4 RUNIC LETTER FRANKS CASKET OS 016F5 RUNIC LETTER FRANKS CASKET IS 016F6 RUNIC LETTER FRANKS CASKET EH 016F7 RUNIC LETTER FRANKS CASKET AC 016F8 RUNIC LETTER FRANKS CASKET AESC 01700 TAGALOG LETTER A 01701 TAGALOG LETTER I 01702 TAGALOG LETTER U 01703 TAGALOG LETTER KA 01704 TAGALOG LETTER GA 01705 TAGALOG LETTER NGA 01706 TAGALOG LETTER TA 01707 TAGALOG LETTER DA 01708 TAGALOG LETTER NA 01709 TAGALOG LETTER PA 0170A TAGALOG LETTER BA 0170B TAGALOG LETTER MA 0170C TAGALOG LETTER YA 0170E TAGALOG LETTER LA 0170F TAGALOG LETTER WA 01710 TAGALOG LETTER SA 01711 TAGALOG LETTER HA 01712 TAGALOG VOWEL SIGN I 01713 TAGALOG VOWEL SIGN U 01714 TAGALOG SIGN VIRAMA 01720 HANUNOO LETTER A 01721 HANUNOO LETTER I 01722 HANUNOO LETTER U 01723 HANUNOO LETTER KA 01724 HANUNOO LETTER GA 01725 HANUNOO LETTER NGA 01726 HANUNOO LETTER TA 01727 HANUNOO LETTER DA 01728 HANUNOO LETTER NA 01729 HANUNOO LETTER PA 0172A HANUNOO LETTER BA 0172B HANUNOO LETTER MA 0172C HANUNOO LETTER YA 0172D HANUNOO LETTER RA 0172E HANUNOO LETTER LA 0172F HANUNOO LETTER WA 01730 HANUNOO LETTER SA 01731 HANUNOO LETTER HA 01732 HANUNOO VOWEL SIGN I 01733 HANUNOO VOWEL SIGN U 01734 HANUNOO SIGN PAMUDPOD 01735 PHILIPPINE SINGLE PUNCTUATION 01736 PHILIPPINE DOUBLE PUNCTUATION 01740 BUHID LETTER A 01741 BUHID LETTER I 01742 BUHID LETTER U 01743 BUHID LETTER KA 01744 BUHID LETTER GA 01745 BUHID LETTER NGA 01746 BUHID LETTER TA 01747 BUHID LETTER DA 01748 BUHID LETTER NA 01749 BUHID LETTER PA 0174A BUHID LETTER BA 0174B BUHID LETTER MA 0174C BUHID LETTER YA 0174D BUHID LETTER RA 0174E BUHID LETTER LA 0174F BUHID LETTER WA 01750 BUHID LETTER SA 01751 BUHID LETTER HA 01752 BUHID VOWEL SIGN I 01753 BUHID VOWEL SIGN U 01760 TAGBANWA LETTER A 01761 TAGBANWA LETTER I 01762 TAGBANWA LETTER U 01763 TAGBANWA LETTER KA 01764 TAGBANWA LETTER GA 01765 TAGBANWA LETTER NGA 01766 TAGBANWA LETTER TA 01767 TAGBANWA LETTER DA 01768 TAGBANWA LETTER NA 01769 TAGBANWA LETTER PA 0176A TAGBANWA LETTER BA 0176B TAGBANWA LETTER MA 0176C TAGBANWA LETTER YA 0176E TAGBANWA LETTER LA 0176F TAGBANWA LETTER WA 01770 TAGBANWA LETTER SA 01772 TAGBANWA VOWEL SIGN I 01773 TAGBANWA VOWEL SIGN U 01780 KHMER LETTER KA 01781 KHMER LETTER KHA 01782 KHMER LETTER KO 01783 KHMER LETTER KHO 01784 KHMER LETTER NGO 01785 KHMER LETTER CA 01786 KHMER LETTER CHA 01787 KHMER LETTER CO 01788 KHMER LETTER CHO 01789 KHMER LETTER NYO 0178A KHMER LETTER DA 0178B KHMER LETTER TTHA 0178C KHMER LETTER DO 0178D KHMER LETTER TTHO 0178E KHMER LETTER NNO 0178F KHMER LETTER TA 01790 KHMER LETTER THA 01791 KHMER LETTER TO 01792 KHMER LETTER THO 01793 KHMER LETTER NO 01794 KHMER LETTER BA 01795 KHMER LETTER PHA 01796 KHMER LETTER PO 01797 KHMER LETTER PHO 01798 KHMER LETTER MO 01799 KHMER LETTER YO 0179A KHMER LETTER RO 0179B KHMER LETTER LO 0179C KHMER LETTER VO 0179D KHMER LETTER SHA 0179E KHMER LETTER SSO 0179F KHMER LETTER SA 017A0 KHMER LETTER HA 017A1 KHMER LETTER LA 017A2 KHMER LETTER QA 017A3 KHMER INDEPENDENT VOWEL QAQ 017A4 KHMER INDEPENDENT VOWEL QAA 017A5 KHMER INDEPENDENT VOWEL QI 017A6 KHMER INDEPENDENT VOWEL QII 017A7 KHMER INDEPENDENT VOWEL QU 017A8 KHMER INDEPENDENT VOWEL QUK 017A9 KHMER INDEPENDENT VOWEL QUU 017AA KHMER INDEPENDENT VOWEL QUUV 017AB KHMER INDEPENDENT VOWEL RY 017AC KHMER INDEPENDENT VOWEL RYY 017AD KHMER INDEPENDENT VOWEL LY 017AE KHMER INDEPENDENT VOWEL LYY 017AF KHMER INDEPENDENT VOWEL QE 017B0 KHMER INDEPENDENT VOWEL QAI 017B1 KHMER INDEPENDENT VOWEL QOO TYPE ONE 017B2 KHMER INDEPENDENT VOWEL QOO TYPE TWO 017B3 KHMER INDEPENDENT VOWEL QAU 017B4 KHMER VOWEL INHERENT AQ 017B5 KHMER VOWEL INHERENT AA 017B6 KHMER VOWEL SIGN AA 017B7 KHMER VOWEL SIGN I 017B8 KHMER VOWEL SIGN II 017B9 KHMER VOWEL SIGN Y 017BA KHMER VOWEL SIGN YY 017BB KHMER VOWEL SIGN U 017BC KHMER VOWEL SIGN UU 017BD KHMER VOWEL SIGN UA 017BE KHMER VOWEL SIGN OE 017BF KHMER VOWEL SIGN YA 017C0 KHMER VOWEL SIGN IE 017C1 KHMER VOWEL SIGN E 017C2 KHMER VOWEL SIGN AE 017C3 KHMER VOWEL SIGN AI 017C4 KHMER VOWEL SIGN OO 017C5 KHMER VOWEL SIGN AU 017C6 KHMER SIGN NIKAHIT 017C7 KHMER SIGN REAHMUK 017C8 KHMER SIGN YUUKALEAPINTU 017C9 KHMER SIGN MUUSIKATOAN 017CA KHMER SIGN TRIISAP 017CB KHMER SIGN BANTOC 017CC KHMER SIGN ROBAT 017CD KHMER SIGN TOANDAKHIAT 017CE KHMER SIGN KAKABAT 017CF KHMER SIGN AHSDA 017D0 KHMER SIGN SAMYOK SANNYA 017D1 KHMER SIGN VIRIAM 017D2 KHMER SIGN COENG 017D3 KHMER SIGN BATHAMASAT 017D4 KHMER SIGN KHAN 017D5 KHMER SIGN BARIYOOSAN 017D6 KHMER SIGN CAMNUC PII KUUH 017D7 KHMER SIGN LEK TOO 017D8 KHMER SIGN BEYYAL 017D9 KHMER SIGN PHNAEK MUAN 017DA KHMER SIGN KOOMUUT 017DB KHMER CURRENCY SYMBOL RIEL 017DC KHMER SIGN AVAKRAHASANYA 017DD KHMER SIGN ATTHACAN 017E0 KHMER DIGIT ZERO 017E1 KHMER DIGIT ONE 017E2 KHMER DIGIT TWO 017E3 KHMER DIGIT THREE 017E4 KHMER DIGIT FOUR 017E5 KHMER DIGIT FIVE 017E6 KHMER DIGIT SIX 017E7 KHMER DIGIT SEVEN 017E8 KHMER DIGIT EIGHT 017E9 KHMER DIGIT NINE 017F0 KHMER SYMBOL LEK ATTAK SON 017F1 KHMER SYMBOL LEK ATTAK MUOY 017F2 KHMER SYMBOL LEK ATTAK PII 017F3 KHMER SYMBOL LEK ATTAK BEI 017F4 KHMER SYMBOL LEK ATTAK BUON 017F5 KHMER SYMBOL LEK ATTAK PRAM 017F6 KHMER SYMBOL LEK ATTAK PRAM-MUOY 017F7 KHMER SYMBOL LEK ATTAK PRAM-PII 017F8 KHMER SYMBOL LEK ATTAK PRAM-BEI 017F9 KHMER SYMBOL LEK ATTAK PRAM-BUON 01800 MONGOLIAN BIRGA 01801 MONGOLIAN ELLIPSIS 01802 MONGOLIAN COMMA 01803 MONGOLIAN FULL STOP 01804 MONGOLIAN COLON 01805 MONGOLIAN FOUR DOTS 01806 MONGOLIAN TODO SOFT HYPHEN 01807 MONGOLIAN SIBE SYLLABLE BOUNDARY MARKER 01808 MONGOLIAN MANCHU COMMA 01809 MONGOLIAN MANCHU FULL STOP 0180A MONGOLIAN NIRUGU 0180B MONGOLIAN FREE VARIATION SELECTOR ONE 0180B FVS1 0180C MONGOLIAN FREE VARIATION SELECTOR TWO 0180C FVS2 0180D MONGOLIAN FREE VARIATION SELECTOR THREE 0180D FVS3 0180E MONGOLIAN VOWEL SEPARATOR 0180E MVS 01810 MONGOLIAN DIGIT ZERO 01811 MONGOLIAN DIGIT ONE 01812 MONGOLIAN DIGIT TWO 01813 MONGOLIAN DIGIT THREE 01814 MONGOLIAN DIGIT FOUR 01815 MONGOLIAN DIGIT FIVE 01816 MONGOLIAN DIGIT SIX 01817 MONGOLIAN DIGIT SEVEN 01818 MONGOLIAN DIGIT EIGHT 01819 MONGOLIAN DIGIT NINE 01820 MONGOLIAN LETTER A 01821 MONGOLIAN LETTER E 01822 MONGOLIAN LETTER I 01823 MONGOLIAN LETTER O 01824 MONGOLIAN LETTER U 01825 MONGOLIAN LETTER OE 01826 MONGOLIAN LETTER UE 01827 MONGOLIAN LETTER EE 01828 MONGOLIAN LETTER NA 01829 MONGOLIAN LETTER ANG 0182A MONGOLIAN LETTER BA 0182B MONGOLIAN LETTER PA 0182C MONGOLIAN LETTER QA 0182D MONGOLIAN LETTER GA 0182E MONGOLIAN LETTER MA 0182F MONGOLIAN LETTER LA 01830 MONGOLIAN LETTER SA 01831 MONGOLIAN LETTER SHA 01832 MONGOLIAN LETTER TA 01833 MONGOLIAN LETTER DA 01834 MONGOLIAN LETTER CHA 01835 MONGOLIAN LETTER JA 01836 MONGOLIAN LETTER YA 01837 MONGOLIAN LETTER RA 01838 MONGOLIAN LETTER WA 01839 MONGOLIAN LETTER FA 0183A MONGOLIAN LETTER KA 0183B MONGOLIAN LETTER KHA 0183C MONGOLIAN LETTER TSA 0183D MONGOLIAN LETTER ZA 0183E MONGOLIAN LETTER HAA 0183F MONGOLIAN LETTER ZRA 01840 MONGOLIAN LETTER LHA 01841 MONGOLIAN LETTER ZHI 01842 MONGOLIAN LETTER CHI 01843 MONGOLIAN LETTER TODO LONG VOWEL SIGN 01844 MONGOLIAN LETTER TODO E 01845 MONGOLIAN LETTER TODO I 01846 MONGOLIAN LETTER TODO O 01847 MONGOLIAN LETTER TODO U 01848 MONGOLIAN LETTER TODO OE 01849 MONGOLIAN LETTER TODO UE 0184A MONGOLIAN LETTER TODO ANG 0184B MONGOLIAN LETTER TODO BA 0184C MONGOLIAN LETTER TODO PA 0184D MONGOLIAN LETTER TODO QA 0184E MONGOLIAN LETTER TODO GA 0184F MONGOLIAN LETTER TODO MA 01850 MONGOLIAN LETTER TODO TA 01851 MONGOLIAN LETTER TODO DA 01852 MONGOLIAN LETTER TODO CHA 01853 MONGOLIAN LETTER TODO JA 01854 MONGOLIAN LETTER TODO TSA 01855 MONGOLIAN LETTER TODO YA 01856 MONGOLIAN LETTER TODO WA 01857 MONGOLIAN LETTER TODO KA 01858 MONGOLIAN LETTER TODO GAA 01859 MONGOLIAN LETTER TODO HAA 0185A MONGOLIAN LETTER TODO JIA 0185B MONGOLIAN LETTER TODO NIA 0185C MONGOLIAN LETTER TODO DZA 0185D MONGOLIAN LETTER SIBE E 0185E MONGOLIAN LETTER SIBE I 0185F MONGOLIAN LETTER SIBE IY 01860 MONGOLIAN LETTER SIBE UE 01861 MONGOLIAN LETTER SIBE U 01862 MONGOLIAN LETTER SIBE ANG 01863 MONGOLIAN LETTER SIBE KA 01864 MONGOLIAN LETTER SIBE GA 01865 MONGOLIAN LETTER SIBE HA 01866 MONGOLIAN LETTER SIBE PA 01867 MONGOLIAN LETTER SIBE SHA 01868 MONGOLIAN LETTER SIBE TA 01869 MONGOLIAN LETTER SIBE DA 0186A MONGOLIAN LETTER SIBE JA 0186B MONGOLIAN LETTER SIBE FA 0186C MONGOLIAN LETTER SIBE GAA 0186D MONGOLIAN LETTER SIBE HAA 0186E MONGOLIAN LETTER SIBE TSA 0186F MONGOLIAN LETTER SIBE ZA 01870 MONGOLIAN LETTER SIBE RAA 01871 MONGOLIAN LETTER SIBE CHA 01872 MONGOLIAN LETTER SIBE ZHA 01873 MONGOLIAN LETTER MANCHU I 01874 MONGOLIAN LETTER MANCHU KA 01875 MONGOLIAN LETTER MANCHU RA 01876 MONGOLIAN LETTER MANCHU FA 01877 MONGOLIAN LETTER MANCHU ZHA 01878 MONGOLIAN LETTER CHA WITH TWO DOTS 01880 MONGOLIAN LETTER ALI GALI ANUSVARA ONE 01881 MONGOLIAN LETTER ALI GALI VISARGA ONE 01882 MONGOLIAN LETTER ALI GALI DAMARU 01883 MONGOLIAN LETTER ALI GALI UBADAMA 01884 MONGOLIAN LETTER ALI GALI INVERTED UBADAMA 01885 MONGOLIAN LETTER ALI GALI BALUDA 01886 MONGOLIAN LETTER ALI GALI THREE BALUDA 01887 MONGOLIAN LETTER ALI GALI A 01888 MONGOLIAN LETTER ALI GALI I 01889 MONGOLIAN LETTER ALI GALI KA 0188A MONGOLIAN LETTER ALI GALI NGA 0188B MONGOLIAN LETTER ALI GALI CA 0188C MONGOLIAN LETTER ALI GALI TTA 0188D MONGOLIAN LETTER ALI GALI TTHA 0188E MONGOLIAN LETTER ALI GALI DDA 0188F MONGOLIAN LETTER ALI GALI NNA 01890 MONGOLIAN LETTER ALI GALI TA 01891 MONGOLIAN LETTER ALI GALI DA 01892 MONGOLIAN LETTER ALI GALI PA 01893 MONGOLIAN LETTER ALI GALI PHA 01894 MONGOLIAN LETTER ALI GALI SSA 01895 MONGOLIAN LETTER ALI GALI ZHA 01896 MONGOLIAN LETTER ALI GALI ZA 01897 MONGOLIAN LETTER ALI GALI AH 01898 MONGOLIAN LETTER TODO ALI GALI TA 01899 MONGOLIAN LETTER TODO ALI GALI ZHA 0189A MONGOLIAN LETTER MANCHU ALI GALI GHA 0189B MONGOLIAN LETTER MANCHU ALI GALI NGA 0189C MONGOLIAN LETTER MANCHU ALI GALI CA 0189D MONGOLIAN LETTER MANCHU ALI GALI JHA 0189E MONGOLIAN LETTER MANCHU ALI GALI TTA 0189F MONGOLIAN LETTER MANCHU ALI GALI DDHA 018A0 MONGOLIAN LETTER MANCHU ALI GALI TA 018A1 MONGOLIAN LETTER MANCHU ALI GALI DHA 018A2 MONGOLIAN LETTER MANCHU ALI GALI SSA 018A3 MONGOLIAN LETTER MANCHU ALI GALI CYA 018A4 MONGOLIAN LETTER MANCHU ALI GALI ZHA 018A5 MONGOLIAN LETTER MANCHU ALI GALI ZA 018A6 MONGOLIAN LETTER ALI GALI HALF U 018A7 MONGOLIAN LETTER ALI GALI HALF YA 018A8 MONGOLIAN LETTER MANCHU ALI GALI BHA 018A9 MONGOLIAN LETTER ALI GALI DAGALGA 018AA MONGOLIAN LETTER MANCHU ALI GALI LHA 018B0 CANADIAN SYLLABICS OY 018B1 CANADIAN SYLLABICS AY 018B2 CANADIAN SYLLABICS AAY 018B3 CANADIAN SYLLABICS WAY 018B4 CANADIAN SYLLABICS POY 018B5 CANADIAN SYLLABICS PAY 018B6 CANADIAN SYLLABICS PWOY 018B7 CANADIAN SYLLABICS TAY 018B8 CANADIAN SYLLABICS KAY 018B9 CANADIAN SYLLABICS KWAY 018BA CANADIAN SYLLABICS MAY 018BB CANADIAN SYLLABICS NOY 018BC CANADIAN SYLLABICS NAY 018BD CANADIAN SYLLABICS LAY 018BE CANADIAN SYLLABICS SOY 018BF CANADIAN SYLLABICS SAY 018C0 CANADIAN SYLLABICS SHOY 018C1 CANADIAN SYLLABICS SHAY 018C2 CANADIAN SYLLABICS SHWOY 018C3 CANADIAN SYLLABICS YOY 018C4 CANADIAN SYLLABICS YAY 018C5 CANADIAN SYLLABICS RAY 018C6 CANADIAN SYLLABICS NWI 018C7 CANADIAN SYLLABICS OJIBWAY NWI 018C8 CANADIAN SYLLABICS NWII 018C9 CANADIAN SYLLABICS OJIBWAY NWII 018CA CANADIAN SYLLABICS NWO 018CB CANADIAN SYLLABICS OJIBWAY NWO 018CC CANADIAN SYLLABICS NWOO 018CD CANADIAN SYLLABICS OJIBWAY NWOO 018CE CANADIAN SYLLABICS RWEE 018CF CANADIAN SYLLABICS RWI 018D0 CANADIAN SYLLABICS RWII 018D1 CANADIAN SYLLABICS RWO 018D2 CANADIAN SYLLABICS RWOO 018D3 CANADIAN SYLLABICS RWA 018D4 CANADIAN SYLLABICS OJIBWAY P 018D5 CANADIAN SYLLABICS OJIBWAY T 018D6 CANADIAN SYLLABICS OJIBWAY K 018D7 CANADIAN SYLLABICS OJIBWAY C 018D8 CANADIAN SYLLABICS OJIBWAY M 018D9 CANADIAN SYLLABICS OJIBWAY N 018DA CANADIAN SYLLABICS OJIBWAY S 018DB CANADIAN SYLLABICS OJIBWAY SH 018DC CANADIAN SYLLABICS EASTERN W 018DD CANADIAN SYLLABICS WESTERN W 018DE CANADIAN SYLLABICS FINAL SMALL RING 018DF CANADIAN SYLLABICS FINAL RAISED DOT 018E0 CANADIAN SYLLABICS R-CREE RWE 018E1 CANADIAN SYLLABICS WEST-CREE LOO 018E2 CANADIAN SYLLABICS WEST-CREE LAA 018E3 CANADIAN SYLLABICS THWE 018E4 CANADIAN SYLLABICS THWA 018E5 CANADIAN SYLLABICS TTHWE 018E6 CANADIAN SYLLABICS TTHOO 018E7 CANADIAN SYLLABICS TTHAA 018E8 CANADIAN SYLLABICS TLHWE 018E9 CANADIAN SYLLABICS TLHOO 018EA CANADIAN SYLLABICS SAYISI SHWE 018EB CANADIAN SYLLABICS SAYISI SHOO 018EC CANADIAN SYLLABICS SAYISI HOO 018ED CANADIAN SYLLABICS CARRIER GWU 018EE CANADIAN SYLLABICS CARRIER DENE GEE 018EF CANADIAN SYLLABICS CARRIER GAA 018F0 CANADIAN SYLLABICS CARRIER GWA 018F1 CANADIAN SYLLABICS SAYISI JUU 018F2 CANADIAN SYLLABICS CARRIER JWA 018F3 CANADIAN SYLLABICS BEAVER DENE L 018F4 CANADIAN SYLLABICS BEAVER DENE R 018F5 CANADIAN SYLLABICS CARRIER DENTAL S 01900 LIMBU VOWEL-CARRIER LETTER 01901 LIMBU LETTER KA 01902 LIMBU LETTER KHA 01903 LIMBU LETTER GA 01904 LIMBU LETTER GHA 01905 LIMBU LETTER NGA 01906 LIMBU LETTER CA 01907 LIMBU LETTER CHA 01908 LIMBU LETTER JA 01909 LIMBU LETTER JHA 0190A LIMBU LETTER YAN 0190B LIMBU LETTER TA 0190C LIMBU LETTER THA 0190D LIMBU LETTER DA 0190E LIMBU LETTER DHA 0190F LIMBU LETTER NA 01910 LIMBU LETTER PA 01911 LIMBU LETTER PHA 01912 LIMBU LETTER BA 01913 LIMBU LETTER BHA 01914 LIMBU LETTER MA 01915 LIMBU LETTER YA 01916 LIMBU LETTER RA 01917 LIMBU LETTER LA 01918 LIMBU LETTER WA 01919 LIMBU LETTER SHA 0191A LIMBU LETTER SSA 0191B LIMBU LETTER SA 0191C LIMBU LETTER HA 0191D LIMBU LETTER GYAN 0191E LIMBU LETTER TRA 01920 LIMBU VOWEL SIGN A 01921 LIMBU VOWEL SIGN I 01922 LIMBU VOWEL SIGN U 01923 LIMBU VOWEL SIGN EE 01924 LIMBU VOWEL SIGN AI 01925 LIMBU VOWEL SIGN OO 01926 LIMBU VOWEL SIGN AU 01927 LIMBU VOWEL SIGN E 01928 LIMBU VOWEL SIGN O 01929 LIMBU SUBJOINED LETTER YA 0192A LIMBU SUBJOINED LETTER RA 0192B LIMBU SUBJOINED LETTER WA 01930 LIMBU SMALL LETTER KA 01931 LIMBU SMALL LETTER NGA 01932 LIMBU SMALL LETTER ANUSVARA 01933 LIMBU SMALL LETTER TA 01934 LIMBU SMALL LETTER NA 01935 LIMBU SMALL LETTER PA 01936 LIMBU SMALL LETTER MA 01937 LIMBU SMALL LETTER RA 01938 LIMBU SMALL LETTER LA 01939 LIMBU SIGN MUKPHRENG 0193A LIMBU SIGN KEMPHRENG 0193B LIMBU SIGN SA-I 01940 LIMBU SIGN LOO 01944 LIMBU EXCLAMATION MARK 01945 LIMBU QUESTION MARK 01946 LIMBU DIGIT ZERO 01947 LIMBU DIGIT ONE 01948 LIMBU DIGIT TWO 01949 LIMBU DIGIT THREE 0194A LIMBU DIGIT FOUR 0194B LIMBU DIGIT FIVE 0194C LIMBU DIGIT SIX 0194D LIMBU DIGIT SEVEN 0194E LIMBU DIGIT EIGHT 0194F LIMBU DIGIT NINE 01950 TAI LE LETTER KA 01951 TAI LE LETTER XA 01952 TAI LE LETTER NGA 01953 TAI LE LETTER TSA 01954 TAI LE LETTER SA 01955 TAI LE LETTER YA 01956 TAI LE LETTER TA 01957 TAI LE LETTER THA 01958 TAI LE LETTER LA 01959 TAI LE LETTER PA 0195A TAI LE LETTER PHA 0195B TAI LE LETTER MA 0195C TAI LE LETTER FA 0195D TAI LE LETTER VA 0195E TAI LE LETTER HA 0195F TAI LE LETTER QA 01960 TAI LE LETTER KHA 01961 TAI LE LETTER TSHA 01962 TAI LE LETTER NA 01963 TAI LE LETTER A 01964 TAI LE LETTER I 01965 TAI LE LETTER EE 01966 TAI LE LETTER EH 01967 TAI LE LETTER U 01968 TAI LE LETTER OO 01969 TAI LE LETTER O 0196A TAI LE LETTER UE 0196B TAI LE LETTER E 0196C TAI LE LETTER AUE 0196D TAI LE LETTER AI 01970 TAI LE LETTER TONE-2 01971 TAI LE LETTER TONE-3 01972 TAI LE LETTER TONE-4 01973 TAI LE LETTER TONE-5 01974 TAI LE LETTER TONE-6 01980 NEW TAI LUE LETTER HIGH QA 01981 NEW TAI LUE LETTER LOW QA 01982 NEW TAI LUE LETTER HIGH KA 01983 NEW TAI LUE LETTER HIGH XA 01984 NEW TAI LUE LETTER HIGH NGA 01985 NEW TAI LUE LETTER LOW KA 01986 NEW TAI LUE LETTER LOW XA 01987 NEW TAI LUE LETTER LOW NGA 01988 NEW TAI LUE LETTER HIGH TSA 01989 NEW TAI LUE LETTER HIGH SA 0198A NEW TAI LUE LETTER HIGH YA 0198B NEW TAI LUE LETTER LOW TSA 0198C NEW TAI LUE LETTER LOW SA 0198D NEW TAI LUE LETTER LOW YA 0198E NEW TAI LUE LETTER HIGH TA 0198F NEW TAI LUE LETTER HIGH THA 01990 NEW TAI LUE LETTER HIGH NA 01991 NEW TAI LUE LETTER LOW TA 01992 NEW TAI LUE LETTER LOW THA 01993 NEW TAI LUE LETTER LOW NA 01994 NEW TAI LUE LETTER HIGH PA 01995 NEW TAI LUE LETTER HIGH PHA 01996 NEW TAI LUE LETTER HIGH MA 01997 NEW TAI LUE LETTER LOW PA 01998 NEW TAI LUE LETTER LOW PHA 01999 NEW TAI LUE LETTER LOW MA 0199A NEW TAI LUE LETTER HIGH FA 0199B NEW TAI LUE LETTER HIGH VA 0199C NEW TAI LUE LETTER HIGH LA 0199D NEW TAI LUE LETTER LOW FA 0199E NEW TAI LUE LETTER LOW VA 0199F NEW TAI LUE LETTER LOW LA 019A0 NEW TAI LUE LETTER HIGH HA 019A1 NEW TAI LUE LETTER HIGH DA 019A2 NEW TAI LUE LETTER HIGH BA 019A3 NEW TAI LUE LETTER LOW HA 019A4 NEW TAI LUE LETTER LOW DA 019A5 NEW TAI LUE LETTER LOW BA 019A6 NEW TAI LUE LETTER HIGH KVA 019A7 NEW TAI LUE LETTER HIGH XVA 019A8 NEW TAI LUE LETTER LOW KVA 019A9 NEW TAI LUE LETTER LOW XVA 019AA NEW TAI LUE LETTER HIGH SUA 019AB NEW TAI LUE LETTER LOW SUA 019B0 NEW TAI LUE VOWEL SIGN VOWEL SHORTENER 019B1 NEW TAI LUE VOWEL SIGN AA 019B2 NEW TAI LUE VOWEL SIGN II 019B3 NEW TAI LUE VOWEL SIGN U 019B4 NEW TAI LUE VOWEL SIGN UU 019B5 NEW TAI LUE VOWEL SIGN E 019B6 NEW TAI LUE VOWEL SIGN AE 019B7 NEW TAI LUE VOWEL SIGN O 019B8 NEW TAI LUE VOWEL SIGN OA 019B9 NEW TAI LUE VOWEL SIGN UE 019BA NEW TAI LUE VOWEL SIGN AY 019BB NEW TAI LUE VOWEL SIGN AAY 019BC NEW TAI LUE VOWEL SIGN UY 019BD NEW TAI LUE VOWEL SIGN OY 019BE NEW TAI LUE VOWEL SIGN OAY 019BF NEW TAI LUE VOWEL SIGN UEY 019C0 NEW TAI LUE VOWEL SIGN IY 019C1 NEW TAI LUE LETTER FINAL V 019C2 NEW TAI LUE LETTER FINAL NG 019C3 NEW TAI LUE LETTER FINAL N 019C4 NEW TAI LUE LETTER FINAL M 019C5 NEW TAI LUE LETTER FINAL K 019C6 NEW TAI LUE LETTER FINAL D 019C7 NEW TAI LUE LETTER FINAL B 019C8 NEW TAI LUE TONE MARK-1 019C9 NEW TAI LUE TONE MARK-2 019D0 NEW TAI LUE DIGIT ZERO 019D1 NEW TAI LUE DIGIT ONE 019D2 NEW TAI LUE DIGIT TWO 019D3 NEW TAI LUE DIGIT THREE 019D4 NEW TAI LUE DIGIT FOUR 019D5 NEW TAI LUE DIGIT FIVE 019D6 NEW TAI LUE DIGIT SIX 019D7 NEW TAI LUE DIGIT SEVEN 019D8 NEW TAI LUE DIGIT EIGHT 019D9 NEW TAI LUE DIGIT NINE 019DA NEW TAI LUE THAM DIGIT ONE 019DE NEW TAI LUE SIGN LAE 019DF NEW TAI LUE SIGN LAEV 019E0 KHMER SYMBOL PATHAMASAT 019E1 KHMER SYMBOL MUOY KOET 019E2 KHMER SYMBOL PII KOET 019E3 KHMER SYMBOL BEI KOET 019E4 KHMER SYMBOL BUON KOET 019E5 KHMER SYMBOL PRAM KOET 019E6 KHMER SYMBOL PRAM-MUOY KOET 019E7 KHMER SYMBOL PRAM-PII KOET 019E8 KHMER SYMBOL PRAM-BEI KOET 019E9 KHMER SYMBOL PRAM-BUON KOET 019EA KHMER SYMBOL DAP KOET 019EB KHMER SYMBOL DAP-MUOY KOET 019EC KHMER SYMBOL DAP-PII KOET 019ED KHMER SYMBOL DAP-BEI KOET 019EE KHMER SYMBOL DAP-BUON KOET 019EF KHMER SYMBOL DAP-PRAM KOET 019F0 KHMER SYMBOL TUTEYASAT 019F1 KHMER SYMBOL MUOY ROC 019F2 KHMER SYMBOL PII ROC 019F3 KHMER SYMBOL BEI ROC 019F4 KHMER SYMBOL BUON ROC 019F5 KHMER SYMBOL PRAM ROC 019F6 KHMER SYMBOL PRAM-MUOY ROC 019F7 KHMER SYMBOL PRAM-PII ROC 019F8 KHMER SYMBOL PRAM-BEI ROC 019F9 KHMER SYMBOL PRAM-BUON ROC 019FA KHMER SYMBOL DAP ROC 019FB KHMER SYMBOL DAP-MUOY ROC 019FC KHMER SYMBOL DAP-PII ROC 019FD KHMER SYMBOL DAP-BEI ROC 019FE KHMER SYMBOL DAP-BUON ROC 019FF KHMER SYMBOL DAP-PRAM ROC 01A00 BUGINESE LETTER KA 01A01 BUGINESE LETTER GA 01A02 BUGINESE LETTER NGA 01A03 BUGINESE LETTER NGKA 01A04 BUGINESE LETTER PA 01A05 BUGINESE LETTER BA 01A06 BUGINESE LETTER MA 01A07 BUGINESE LETTER MPA 01A08 BUGINESE LETTER TA 01A09 BUGINESE LETTER DA 01A0A BUGINESE LETTER NA 01A0B BUGINESE LETTER NRA 01A0C BUGINESE LETTER CA 01A0D BUGINESE LETTER JA 01A0E BUGINESE LETTER NYA 01A0F BUGINESE LETTER NYCA 01A10 BUGINESE LETTER YA 01A11 BUGINESE LETTER RA 01A12 BUGINESE LETTER LA 01A13 BUGINESE LETTER VA 01A14 BUGINESE LETTER SA 01A15 BUGINESE LETTER A 01A16 BUGINESE LETTER HA 01A17 BUGINESE VOWEL SIGN I 01A18 BUGINESE VOWEL SIGN U 01A19 BUGINESE VOWEL SIGN E 01A1A BUGINESE VOWEL SIGN O 01A1B BUGINESE VOWEL SIGN AE 01A1E BUGINESE PALLAWA 01A1F BUGINESE END OF SECTION 01A20 TAI THAM LETTER HIGH KA 01A21 TAI THAM LETTER HIGH KHA 01A22 TAI THAM LETTER HIGH KXA 01A23 TAI THAM LETTER LOW KA 01A24 TAI THAM LETTER LOW KXA 01A25 TAI THAM LETTER LOW KHA 01A26 TAI THAM LETTER NGA 01A27 TAI THAM LETTER HIGH CA 01A28 TAI THAM LETTER HIGH CHA 01A29 TAI THAM LETTER LOW CA 01A2A TAI THAM LETTER LOW SA 01A2B TAI THAM LETTER LOW CHA 01A2C TAI THAM LETTER NYA 01A2D TAI THAM LETTER RATA 01A2E TAI THAM LETTER HIGH RATHA 01A2F TAI THAM LETTER DA 01A30 TAI THAM LETTER LOW RATHA 01A31 TAI THAM LETTER RANA 01A32 TAI THAM LETTER HIGH TA 01A33 TAI THAM LETTER HIGH THA 01A34 TAI THAM LETTER LOW TA 01A35 TAI THAM LETTER LOW THA 01A36 TAI THAM LETTER NA 01A37 TAI THAM LETTER BA 01A38 TAI THAM LETTER HIGH PA 01A39 TAI THAM LETTER HIGH PHA 01A3A TAI THAM LETTER HIGH FA 01A3B TAI THAM LETTER LOW PA 01A3C TAI THAM LETTER LOW FA 01A3D TAI THAM LETTER LOW PHA 01A3E TAI THAM LETTER MA 01A3F TAI THAM LETTER LOW YA 01A40 TAI THAM LETTER HIGH YA 01A41 TAI THAM LETTER RA 01A42 TAI THAM LETTER RUE 01A43 TAI THAM LETTER LA 01A44 TAI THAM LETTER LUE 01A45 TAI THAM LETTER WA 01A46 TAI THAM LETTER HIGH SHA 01A47 TAI THAM LETTER HIGH SSA 01A48 TAI THAM LETTER HIGH SA 01A49 TAI THAM LETTER HIGH HA 01A4A TAI THAM LETTER LLA 01A4B TAI THAM LETTER A 01A4C TAI THAM LETTER LOW HA 01A4D TAI THAM LETTER I 01A4E TAI THAM LETTER II 01A4F TAI THAM LETTER U 01A50 TAI THAM LETTER UU 01A51 TAI THAM LETTER EE 01A52 TAI THAM LETTER OO 01A53 TAI THAM LETTER LAE 01A54 TAI THAM LETTER GREAT SA 01A55 TAI THAM CONSONANT SIGN MEDIAL RA 01A56 TAI THAM CONSONANT SIGN MEDIAL LA 01A57 TAI THAM CONSONANT SIGN LA TANG LAI 01A58 TAI THAM SIGN MAI KANG LAI 01A59 TAI THAM CONSONANT SIGN FINAL NGA 01A5A TAI THAM CONSONANT SIGN LOW PA 01A5B TAI THAM CONSONANT SIGN HIGH RATHA OR LOW PA 01A5C TAI THAM CONSONANT SIGN MA 01A5D TAI THAM CONSONANT SIGN BA 01A5E TAI THAM CONSONANT SIGN SA 01A60 TAI THAM SIGN SAKOT 01A61 TAI THAM VOWEL SIGN A 01A62 TAI THAM VOWEL SIGN MAI SAT 01A63 TAI THAM VOWEL SIGN AA 01A64 TAI THAM VOWEL SIGN TALL AA 01A65 TAI THAM VOWEL SIGN I 01A66 TAI THAM VOWEL SIGN II 01A67 TAI THAM VOWEL SIGN UE 01A68 TAI THAM VOWEL SIGN UUE 01A69 TAI THAM VOWEL SIGN U 01A6A TAI THAM VOWEL SIGN UU 01A6B TAI THAM VOWEL SIGN O 01A6C TAI THAM VOWEL SIGN OA BELOW 01A6D TAI THAM VOWEL SIGN OY 01A6E TAI THAM VOWEL SIGN E 01A6F TAI THAM VOWEL SIGN AE 01A70 TAI THAM VOWEL SIGN OO 01A71 TAI THAM VOWEL SIGN AI 01A72 TAI THAM VOWEL SIGN THAM AI 01A73 TAI THAM VOWEL SIGN OA ABOVE 01A74 TAI THAM SIGN MAI KANG 01A75 TAI THAM SIGN TONE-1 01A76 TAI THAM SIGN TONE-2 01A77 TAI THAM SIGN KHUEN TONE-3 01A78 TAI THAM SIGN KHUEN TONE-4 01A79 TAI THAM SIGN KHUEN TONE-5 01A7A TAI THAM SIGN RA HAAM 01A7B TAI THAM SIGN MAI SAM 01A7C TAI THAM SIGN KHUEN-LUE KARAN 01A7F TAI THAM COMBINING CRYPTOGRAMMIC DOT 01A80 TAI THAM HORA DIGIT ZERO 01A81 TAI THAM HORA DIGIT ONE 01A82 TAI THAM HORA DIGIT TWO 01A83 TAI THAM HORA DIGIT THREE 01A84 TAI THAM HORA DIGIT FOUR 01A85 TAI THAM HORA DIGIT FIVE 01A86 TAI THAM HORA DIGIT SIX 01A87 TAI THAM HORA DIGIT SEVEN 01A88 TAI THAM HORA DIGIT EIGHT 01A89 TAI THAM HORA DIGIT NINE 01A90 TAI THAM THAM DIGIT ZERO 01A91 TAI THAM THAM DIGIT ONE 01A92 TAI THAM THAM DIGIT TWO 01A93 TAI THAM THAM DIGIT THREE 01A94 TAI THAM THAM DIGIT FOUR 01A95 TAI THAM THAM DIGIT FIVE 01A96 TAI THAM THAM DIGIT SIX 01A97 TAI THAM THAM DIGIT SEVEN 01A98 TAI THAM THAM DIGIT EIGHT 01A99 TAI THAM THAM DIGIT NINE 01AA0 TAI THAM SIGN WIANG 01AA1 TAI THAM SIGN WIANGWAAK 01AA2 TAI THAM SIGN SAWAN 01AA3 TAI THAM SIGN KEOW 01AA4 TAI THAM SIGN HOY 01AA5 TAI THAM SIGN DOKMAI 01AA6 TAI THAM SIGN REVERSED ROTATED RANA 01AA7 TAI THAM SIGN MAI YAMOK 01AA8 TAI THAM SIGN KAAN 01AA9 TAI THAM SIGN KAANKUU 01AAA TAI THAM SIGN SATKAAN 01AAB TAI THAM SIGN SATKAANKUU 01AAC TAI THAM SIGN HANG 01AAD TAI THAM SIGN CAANG 01AB0 COMBINING DOUBLED CIRCUMFLEX ACCENT 01AB1 COMBINING DIAERESIS-RING 01AB2 COMBINING INFINITY 01AB3 COMBINING DOWNWARDS ARROW 01AB4 COMBINING TRIPLE DOT 01AB5 COMBINING X-X BELOW 01AB6 COMBINING WIGGLY LINE BELOW 01AB7 COMBINING OPEN MARK BELOW 01AB8 COMBINING DOUBLE OPEN MARK BELOW 01AB9 COMBINING LIGHT CENTRALIZATION STROKE BELOW 01ABA COMBINING STRONG CENTRALIZATION STROKE BELOW 01ABB COMBINING PARENTHESES ABOVE 01ABC COMBINING DOUBLE PARENTHESES ABOVE 01ABD COMBINING PARENTHESES BELOW 01ABE COMBINING PARENTHESES OVERLAY 01ABF COMBINING LATIN SMALL LETTER W BELOW 01AC0 COMBINING LATIN SMALL LETTER TURNED W BELOW 01B00 BALINESE SIGN ULU RICEM 01B01 BALINESE SIGN ULU CANDRA 01B02 BALINESE SIGN CECEK 01B03 BALINESE SIGN SURANG 01B04 BALINESE SIGN BISAH 01B05 BALINESE LETTER AKARA 01B06 BALINESE LETTER AKARA TEDUNG 01B07 BALINESE LETTER IKARA 01B08 BALINESE LETTER IKARA TEDUNG 01B09 BALINESE LETTER UKARA 01B0A BALINESE LETTER UKARA TEDUNG 01B0B BALINESE LETTER RA REPA 01B0C BALINESE LETTER RA REPA TEDUNG 01B0D BALINESE LETTER LA LENGA 01B0E BALINESE LETTER LA LENGA TEDUNG 01B0F BALINESE LETTER EKARA 01B10 BALINESE LETTER AIKARA 01B11 BALINESE LETTER OKARA 01B12 BALINESE LETTER OKARA TEDUNG 01B13 BALINESE LETTER KA 01B14 BALINESE LETTER KA MAHAPRANA 01B15 BALINESE LETTER GA 01B16 BALINESE LETTER GA GORA 01B17 BALINESE LETTER NGA 01B18 BALINESE LETTER CA 01B19 BALINESE LETTER CA LACA 01B1A BALINESE LETTER JA 01B1B BALINESE LETTER JA JERA 01B1C BALINESE LETTER NYA 01B1D BALINESE LETTER TA LATIK 01B1E BALINESE LETTER TA MURDA MAHAPRANA 01B1F BALINESE LETTER DA MURDA ALPAPRANA 01B20 BALINESE LETTER DA MURDA MAHAPRANA 01B21 BALINESE LETTER NA RAMBAT 01B22 BALINESE LETTER TA 01B23 BALINESE LETTER TA TAWA 01B24 BALINESE LETTER DA 01B25 BALINESE LETTER DA MADU 01B26 BALINESE LETTER NA 01B27 BALINESE LETTER PA 01B28 BALINESE LETTER PA KAPAL 01B29 BALINESE LETTER BA 01B2A BALINESE LETTER BA KEMBANG 01B2B BALINESE LETTER MA 01B2C BALINESE LETTER YA 01B2D BALINESE LETTER RA 01B2E BALINESE LETTER LA 01B2F BALINESE LETTER WA 01B30 BALINESE LETTER SA SAGA 01B31 BALINESE LETTER SA SAPA 01B32 BALINESE LETTER SA 01B33 BALINESE LETTER HA 01B34 BALINESE SIGN REREKAN 01B35 BALINESE VOWEL SIGN TEDUNG 01B36 BALINESE VOWEL SIGN ULU 01B37 BALINESE VOWEL SIGN ULU SARI 01B38 BALINESE VOWEL SIGN SUKU 01B39 BALINESE VOWEL SIGN SUKU ILUT 01B3A BALINESE VOWEL SIGN RA REPA 01B3B BALINESE VOWEL SIGN RA REPA TEDUNG 01B3C BALINESE VOWEL SIGN LA LENGA 01B3D BALINESE VOWEL SIGN LA LENGA TEDUNG 01B3E BALINESE VOWEL SIGN TALING 01B3F BALINESE VOWEL SIGN TALING REPA 01B40 BALINESE VOWEL SIGN TALING TEDUNG 01B41 BALINESE VOWEL SIGN TALING REPA TEDUNG 01B42 BALINESE VOWEL SIGN PEPET 01B43 BALINESE VOWEL SIGN PEPET TEDUNG 01B44 BALINESE ADEG ADEG 01B45 BALINESE LETTER KAF SASAK 01B46 BALINESE LETTER KHOT SASAK 01B47 BALINESE LETTER TZIR SASAK 01B48 BALINESE LETTER EF SASAK 01B49 BALINESE LETTER VE SASAK 01B4A BALINESE LETTER ZAL SASAK 01B4B BALINESE LETTER ASYURA SASAK 01B50 BALINESE DIGIT ZERO 01B51 BALINESE DIGIT ONE 01B52 BALINESE DIGIT TWO 01B53 BALINESE DIGIT THREE 01B54 BALINESE DIGIT FOUR 01B55 BALINESE DIGIT FIVE 01B56 BALINESE DIGIT SIX 01B57 BALINESE DIGIT SEVEN 01B58 BALINESE DIGIT EIGHT 01B59 BALINESE DIGIT NINE 01B5A BALINESE PANTI 01B5B BALINESE PAMADA 01B5C BALINESE WINDU 01B5D BALINESE CARIK PAMUNGKAH 01B5E BALINESE CARIK SIKI 01B5F BALINESE CARIK PAREREN 01B60 BALINESE PAMENENG 01B61 BALINESE MUSICAL SYMBOL DONG 01B62 BALINESE MUSICAL SYMBOL DENG 01B63 BALINESE MUSICAL SYMBOL DUNG 01B64 BALINESE MUSICAL SYMBOL DANG 01B65 BALINESE MUSICAL SYMBOL DANG SURANG 01B66 BALINESE MUSICAL SYMBOL DING 01B67 BALINESE MUSICAL SYMBOL DAENG 01B68 BALINESE MUSICAL SYMBOL DEUNG 01B69 BALINESE MUSICAL SYMBOL DAING 01B6A BALINESE MUSICAL SYMBOL DANG GEDE 01B6B BALINESE MUSICAL SYMBOL COMBINING TEGEH 01B6C BALINESE MUSICAL SYMBOL COMBINING ENDEP 01B6D BALINESE MUSICAL SYMBOL COMBINING KEMPUL 01B6E BALINESE MUSICAL SYMBOL COMBINING KEMPLI 01B6F BALINESE MUSICAL SYMBOL COMBINING JEGOGAN 01B70 BALINESE MUSICAL SYMBOL COMBINING KEMPUL WITH JEGOGAN 01B71 BALINESE MUSICAL SYMBOL COMBINING KEMPLI WITH JEGOGAN 01B72 BALINESE MUSICAL SYMBOL COMBINING BENDE 01B73 BALINESE MUSICAL SYMBOL COMBINING GONG 01B74 BALINESE MUSICAL SYMBOL RIGHT-HAND OPEN DUG 01B75 BALINESE MUSICAL SYMBOL RIGHT-HAND OPEN DAG 01B76 BALINESE MUSICAL SYMBOL RIGHT-HAND CLOSED TUK 01B77 BALINESE MUSICAL SYMBOL RIGHT-HAND CLOSED TAK 01B78 BALINESE MUSICAL SYMBOL LEFT-HAND OPEN PANG 01B79 BALINESE MUSICAL SYMBOL LEFT-HAND OPEN PUNG 01B7A BALINESE MUSICAL SYMBOL LEFT-HAND CLOSED PLAK 01B7B BALINESE MUSICAL SYMBOL LEFT-HAND CLOSED PLUK 01B7C BALINESE MUSICAL SYMBOL LEFT-HAND OPEN PING 01B80 SUNDANESE SIGN PANYECEK 01B81 SUNDANESE SIGN PANGLAYAR 01B82 SUNDANESE SIGN PANGWISAD 01B83 SUNDANESE LETTER A 01B84 SUNDANESE LETTER I 01B85 SUNDANESE LETTER U 01B86 SUNDANESE LETTER AE 01B87 SUNDANESE LETTER O 01B88 SUNDANESE LETTER E 01B89 SUNDANESE LETTER EU 01B8A SUNDANESE LETTER KA 01B8B SUNDANESE LETTER QA 01B8C SUNDANESE LETTER GA 01B8D SUNDANESE LETTER NGA 01B8E SUNDANESE LETTER CA 01B8F SUNDANESE LETTER JA 01B90 SUNDANESE LETTER ZA 01B91 SUNDANESE LETTER NYA 01B92 SUNDANESE LETTER TA 01B93 SUNDANESE LETTER DA 01B94 SUNDANESE LETTER NA 01B95 SUNDANESE LETTER PA 01B96 SUNDANESE LETTER FA 01B97 SUNDANESE LETTER VA 01B98 SUNDANESE LETTER BA 01B99 SUNDANESE LETTER MA 01B9A SUNDANESE LETTER YA 01B9B SUNDANESE LETTER RA 01B9C SUNDANESE LETTER LA 01B9D SUNDANESE LETTER WA 01B9E SUNDANESE LETTER SA 01B9F SUNDANESE LETTER XA 01BA0 SUNDANESE LETTER HA 01BA1 SUNDANESE CONSONANT SIGN PAMINGKAL 01BA2 SUNDANESE CONSONANT SIGN PANYAKRA 01BA3 SUNDANESE CONSONANT SIGN PANYIKU 01BA4 SUNDANESE VOWEL SIGN PANGHULU 01BA5 SUNDANESE VOWEL SIGN PANYUKU 01BA6 SUNDANESE VOWEL SIGN PANAELAENG 01BA7 SUNDANESE VOWEL SIGN PANOLONG 01BA8 SUNDANESE VOWEL SIGN PAMEPET 01BA9 SUNDANESE VOWEL SIGN PANEULEUNG 01BAA SUNDANESE SIGN PAMAAEH 01BAB SUNDANESE SIGN VIRAMA 01BAC SUNDANESE CONSONANT SIGN PASANGAN MA 01BAD SUNDANESE CONSONANT SIGN PASANGAN WA 01BAE SUNDANESE LETTER KHA 01BAF SUNDANESE LETTER SYA 01BB0 SUNDANESE DIGIT ZERO 01BB1 SUNDANESE DIGIT ONE 01BB2 SUNDANESE DIGIT TWO 01BB3 SUNDANESE DIGIT THREE 01BB4 SUNDANESE DIGIT FOUR 01BB5 SUNDANESE DIGIT FIVE 01BB6 SUNDANESE DIGIT SIX 01BB7 SUNDANESE DIGIT SEVEN 01BB8 SUNDANESE DIGIT EIGHT 01BB9 SUNDANESE DIGIT NINE 01BBA SUNDANESE AVAGRAHA 01BBB SUNDANESE LETTER REU 01BBC SUNDANESE LETTER LEU 01BBD SUNDANESE LETTER BHA 01BBE SUNDANESE LETTER FINAL K 01BBF SUNDANESE LETTER FINAL M 01BC0 BATAK LETTER A 01BC1 BATAK LETTER SIMALUNGUN A 01BC2 BATAK LETTER HA 01BC3 BATAK LETTER SIMALUNGUN HA 01BC4 BATAK LETTER MANDAILING HA 01BC5 BATAK LETTER BA 01BC6 BATAK LETTER KARO BA 01BC7 BATAK LETTER PA 01BC8 BATAK LETTER SIMALUNGUN PA 01BC9 BATAK LETTER NA 01BCA BATAK LETTER MANDAILING NA 01BCB BATAK LETTER WA 01BCC BATAK LETTER SIMALUNGUN WA 01BCD BATAK LETTER PAKPAK WA 01BCE BATAK LETTER GA 01BCF BATAK LETTER SIMALUNGUN GA 01BD0 BATAK LETTER JA 01BD1 BATAK LETTER DA 01BD2 BATAK LETTER RA 01BD3 BATAK LETTER SIMALUNGUN RA 01BD4 BATAK LETTER MA 01BD5 BATAK LETTER SIMALUNGUN MA 01BD6 BATAK LETTER SOUTHERN TA 01BD7 BATAK LETTER NORTHERN TA 01BD8 BATAK LETTER SA 01BD9 BATAK LETTER SIMALUNGUN SA 01BDA BATAK LETTER MANDAILING SA 01BDB BATAK LETTER YA 01BDC BATAK LETTER SIMALUNGUN YA 01BDD BATAK LETTER NGA 01BDE BATAK LETTER LA 01BDF BATAK LETTER SIMALUNGUN LA 01BE0 BATAK LETTER NYA 01BE1 BATAK LETTER CA 01BE2 BATAK LETTER NDA 01BE3 BATAK LETTER MBA 01BE4 BATAK LETTER I 01BE5 BATAK LETTER U 01BE6 BATAK SIGN TOMPI 01BE7 BATAK VOWEL SIGN E 01BE8 BATAK VOWEL SIGN PAKPAK E 01BE9 BATAK VOWEL SIGN EE 01BEA BATAK VOWEL SIGN I 01BEB BATAK VOWEL SIGN KARO I 01BEC BATAK VOWEL SIGN O 01BED BATAK VOWEL SIGN KARO O 01BEE BATAK VOWEL SIGN U 01BEF BATAK VOWEL SIGN U FOR SIMALUNGUN SA 01BF0 BATAK CONSONANT SIGN NG 01BF1 BATAK CONSONANT SIGN H 01BF2 BATAK PANGOLAT 01BF3 BATAK PANONGONAN 01BFC BATAK SYMBOL BINDU NA METEK 01BFD BATAK SYMBOL BINDU PINARBORAS 01BFE BATAK SYMBOL BINDU JUDUL 01BFF BATAK SYMBOL BINDU PANGOLAT 01C00 LEPCHA LETTER KA 01C01 LEPCHA LETTER KLA 01C02 LEPCHA LETTER KHA 01C03 LEPCHA LETTER GA 01C04 LEPCHA LETTER GLA 01C05 LEPCHA LETTER NGA 01C06 LEPCHA LETTER CA 01C07 LEPCHA LETTER CHA 01C08 LEPCHA LETTER JA 01C09 LEPCHA LETTER NYA 01C0A LEPCHA LETTER TA 01C0B LEPCHA LETTER THA 01C0C LEPCHA LETTER DA 01C0D LEPCHA LETTER NA 01C0E LEPCHA LETTER PA 01C0F LEPCHA LETTER PLA 01C10 LEPCHA LETTER PHA 01C11 LEPCHA LETTER FA 01C12 LEPCHA LETTER FLA 01C13 LEPCHA LETTER BA 01C14 LEPCHA LETTER BLA 01C15 LEPCHA LETTER MA 01C16 LEPCHA LETTER MLA 01C17 LEPCHA LETTER TSA 01C18 LEPCHA LETTER TSHA 01C19 LEPCHA LETTER DZA 01C1A LEPCHA LETTER YA 01C1B LEPCHA LETTER RA 01C1C LEPCHA LETTER LA 01C1D LEPCHA LETTER HA 01C1E LEPCHA LETTER HLA 01C1F LEPCHA LETTER VA 01C20 LEPCHA LETTER SA 01C21 LEPCHA LETTER SHA 01C22 LEPCHA LETTER WA 01C23 LEPCHA LETTER A 01C24 LEPCHA SUBJOINED LETTER YA 01C25 LEPCHA SUBJOINED LETTER RA 01C26 LEPCHA VOWEL SIGN AA 01C27 LEPCHA VOWEL SIGN I 01C28 LEPCHA VOWEL SIGN O 01C29 LEPCHA VOWEL SIGN OO 01C2A LEPCHA VOWEL SIGN U 01C2B LEPCHA VOWEL SIGN UU 01C2C LEPCHA VOWEL SIGN E 01C2D LEPCHA CONSONANT SIGN K 01C2E LEPCHA CONSONANT SIGN M 01C2F LEPCHA CONSONANT SIGN L 01C30 LEPCHA CONSONANT SIGN N 01C31 LEPCHA CONSONANT SIGN P 01C32 LEPCHA CONSONANT SIGN R 01C33 LEPCHA CONSONANT SIGN T 01C34 LEPCHA CONSONANT SIGN NYIN-DO 01C35 LEPCHA CONSONANT SIGN KANG 01C36 LEPCHA SIGN RAN 01C37 LEPCHA SIGN NUKTA 01C3B LEPCHA PUNCTUATION TA-ROL 01C3C LEPCHA PUNCTUATION NYET THYOOM TA-ROL 01C3D LEPCHA PUNCTUATION CER-WA 01C3E LEPCHA PUNCTUATION TSHOOK CER-WA 01C3F LEPCHA PUNCTUATION TSHOOK 01C40 LEPCHA DIGIT ZERO 01C41 LEPCHA DIGIT ONE 01C42 LEPCHA DIGIT TWO 01C43 LEPCHA DIGIT THREE 01C44 LEPCHA DIGIT FOUR 01C45 LEPCHA DIGIT FIVE 01C46 LEPCHA DIGIT SIX 01C47 LEPCHA DIGIT SEVEN 01C48 LEPCHA DIGIT EIGHT 01C49 LEPCHA DIGIT NINE 01C4D LEPCHA LETTER TTA 01C4E LEPCHA LETTER TTHA 01C4F LEPCHA LETTER DDA 01C50 OL CHIKI DIGIT ZERO 01C51 OL CHIKI DIGIT ONE 01C52 OL CHIKI DIGIT TWO 01C53 OL CHIKI DIGIT THREE 01C54 OL CHIKI DIGIT FOUR 01C55 OL CHIKI DIGIT FIVE 01C56 OL CHIKI DIGIT SIX 01C57 OL CHIKI DIGIT SEVEN 01C58 OL CHIKI DIGIT EIGHT 01C59 OL CHIKI DIGIT NINE 01C5A OL CHIKI LETTER LA 01C5B OL CHIKI LETTER AT 01C5C OL CHIKI LETTER AG 01C5D OL CHIKI LETTER ANG 01C5E OL CHIKI LETTER AL 01C5F OL CHIKI LETTER LAA 01C60 OL CHIKI LETTER AAK 01C61 OL CHIKI LETTER AAJ 01C62 OL CHIKI LETTER AAM 01C63 OL CHIKI LETTER AAW 01C64 OL CHIKI LETTER LI 01C65 OL CHIKI LETTER IS 01C66 OL CHIKI LETTER IH 01C67 OL CHIKI LETTER INY 01C68 OL CHIKI LETTER IR 01C69 OL CHIKI LETTER LU 01C6A OL CHIKI LETTER UC 01C6B OL CHIKI LETTER UD 01C6C OL CHIKI LETTER UNN 01C6D OL CHIKI LETTER UY 01C6E OL CHIKI LETTER LE 01C6F OL CHIKI LETTER EP 01C70 OL CHIKI LETTER EDD 01C71 OL CHIKI LETTER EN 01C72 OL CHIKI LETTER ERR 01C73 OL CHIKI LETTER LO 01C74 OL CHIKI LETTER OTT 01C75 OL CHIKI LETTER OB 01C76 OL CHIKI LETTER OV 01C77 OL CHIKI LETTER OH 01C78 OL CHIKI MU TTUDDAG 01C79 OL CHIKI GAAHLAA TTUDDAAG 01C7A OL CHIKI MU-GAAHLAA TTUDDAAG 01C7B OL CHIKI RELAA 01C7C OL CHIKI PHAARKAA 01C7D OL CHIKI AHAD 01C7E OL CHIKI PUNCTUATION MUCAAD 01C7F OL CHIKI PUNCTUATION DOUBLE MUCAAD 01C80 CYRILLIC SMALL LETTER ROUNDED VE 01C81 CYRILLIC SMALL LETTER LONG-LEGGED DE 01C82 CYRILLIC SMALL LETTER NARROW O 01C83 CYRILLIC SMALL LETTER WIDE ES 01C84 CYRILLIC SMALL LETTER TALL TE 01C85 CYRILLIC SMALL LETTER THREE-LEGGED TE 01C86 CYRILLIC SMALL LETTER TALL HARD SIGN 01C87 CYRILLIC SMALL LETTER TALL YAT 01C88 CYRILLIC SMALL LETTER UNBLENDED UK 01C90 GEORGIAN MTAVRULI CAPITAL LETTER AN 01C91 GEORGIAN MTAVRULI CAPITAL LETTER BAN 01C92 GEORGIAN MTAVRULI CAPITAL LETTER GAN 01C93 GEORGIAN MTAVRULI CAPITAL LETTER DON 01C94 GEORGIAN MTAVRULI CAPITAL LETTER EN 01C95 GEORGIAN MTAVRULI CAPITAL LETTER VIN 01C96 GEORGIAN MTAVRULI CAPITAL LETTER ZEN 01C97 GEORGIAN MTAVRULI CAPITAL LETTER TAN 01C98 GEORGIAN MTAVRULI CAPITAL LETTER IN 01C99 GEORGIAN MTAVRULI CAPITAL LETTER KAN 01C9A GEORGIAN MTAVRULI CAPITAL LETTER LAS 01C9B GEORGIAN MTAVRULI CAPITAL LETTER MAN 01C9C GEORGIAN MTAVRULI CAPITAL LETTER NAR 01C9D GEORGIAN MTAVRULI CAPITAL LETTER ON 01C9E GEORGIAN MTAVRULI CAPITAL LETTER PAR 01C9F GEORGIAN MTAVRULI CAPITAL LETTER ZHAR 01CA0 GEORGIAN MTAVRULI CAPITAL LETTER RAE 01CA1 GEORGIAN MTAVRULI CAPITAL LETTER SAN 01CA2 GEORGIAN MTAVRULI CAPITAL LETTER TAR 01CA3 GEORGIAN MTAVRULI CAPITAL LETTER UN 01CA4 GEORGIAN MTAVRULI CAPITAL LETTER PHAR 01CA5 GEORGIAN MTAVRULI CAPITAL LETTER KHAR 01CA6 GEORGIAN MTAVRULI CAPITAL LETTER GHAN 01CA7 GEORGIAN MTAVRULI CAPITAL LETTER QAR 01CA8 GEORGIAN MTAVRULI CAPITAL LETTER SHIN 01CA9 GEORGIAN MTAVRULI CAPITAL LETTER CHIN 01CAA GEORGIAN MTAVRULI CAPITAL LETTER CAN 01CAB GEORGIAN MTAVRULI CAPITAL LETTER JIL 01CAC GEORGIAN MTAVRULI CAPITAL LETTER CIL 01CAD GEORGIAN MTAVRULI CAPITAL LETTER CHAR 01CAE GEORGIAN MTAVRULI CAPITAL LETTER XAN 01CAF GEORGIAN MTAVRULI CAPITAL LETTER JHAN 01CB0 GEORGIAN MTAVRULI CAPITAL LETTER HAE 01CB1 GEORGIAN MTAVRULI CAPITAL LETTER HE 01CB2 GEORGIAN MTAVRULI CAPITAL LETTER HIE 01CB3 GEORGIAN MTAVRULI CAPITAL LETTER WE 01CB4 GEORGIAN MTAVRULI CAPITAL LETTER HAR 01CB5 GEORGIAN MTAVRULI CAPITAL LETTER HOE 01CB6 GEORGIAN MTAVRULI CAPITAL LETTER FI 01CB7 GEORGIAN MTAVRULI CAPITAL LETTER YN 01CB8 GEORGIAN MTAVRULI CAPITAL LETTER ELIFI 01CB9 GEORGIAN MTAVRULI CAPITAL LETTER TURNED GAN 01CBA GEORGIAN MTAVRULI CAPITAL LETTER AIN 01CBD GEORGIAN MTAVRULI CAPITAL LETTER AEN 01CBE GEORGIAN MTAVRULI CAPITAL LETTER HARD SIGN 01CBF GEORGIAN MTAVRULI CAPITAL LETTER LABIAL SIGN 01CC0 SUNDANESE PUNCTUATION BINDU SURYA 01CC1 SUNDANESE PUNCTUATION BINDU PANGLONG 01CC2 SUNDANESE PUNCTUATION BINDU PURNAMA 01CC3 SUNDANESE PUNCTUATION BINDU CAKRA 01CC4 SUNDANESE PUNCTUATION BINDU LEU SATANGA 01CC5 SUNDANESE PUNCTUATION BINDU KA SATANGA 01CC6 SUNDANESE PUNCTUATION BINDU DA SATANGA 01CC7 SUNDANESE PUNCTUATION BINDU BA SATANGA 01CD0 VEDIC TONE KARSHANA 01CD1 VEDIC TONE SHARA 01CD2 VEDIC TONE PRENKHA 01CD3 VEDIC SIGN NIHSHVASA 01CD4 VEDIC SIGN YAJURVEDIC MIDLINE SVARITA 01CD5 VEDIC TONE YAJURVEDIC AGGRAVATED INDEPENDENT SVARITA 01CD6 VEDIC TONE YAJURVEDIC INDEPENDENT SVARITA 01CD7 VEDIC TONE YAJURVEDIC KATHAKA INDEPENDENT SVARITA 01CD8 VEDIC TONE CANDRA BELOW 01CD9 VEDIC TONE YAJURVEDIC KATHAKA INDEPENDENT SVARITA SCHROEDER 01CDA VEDIC TONE DOUBLE SVARITA 01CDB VEDIC TONE TRIPLE SVARITA 01CDC VEDIC TONE KATHAKA ANUDATTA 01CDD VEDIC TONE DOT BELOW 01CDE VEDIC TONE TWO DOTS BELOW 01CDF VEDIC TONE THREE DOTS BELOW 01CE0 VEDIC TONE RIGVEDIC KASHMIRI INDEPENDENT SVARITA 01CE1 VEDIC TONE ATHARVAVEDIC INDEPENDENT SVARITA 01CE2 VEDIC SIGN VISARGA SVARITA 01CE3 VEDIC SIGN VISARGA UDATTA 01CE4 VEDIC SIGN REVERSED VISARGA UDATTA 01CE5 VEDIC SIGN VISARGA ANUDATTA 01CE6 VEDIC SIGN REVERSED VISARGA ANUDATTA 01CE7 VEDIC SIGN VISARGA UDATTA WITH TAIL 01CE8 VEDIC SIGN VISARGA ANUDATTA WITH TAIL 01CE9 VEDIC SIGN ANUSVARA ANTARGOMUKHA 01CEA VEDIC SIGN ANUSVARA BAHIRGOMUKHA 01CEB VEDIC SIGN ANUSVARA VAMAGOMUKHA 01CEC VEDIC SIGN ANUSVARA VAMAGOMUKHA WITH TAIL 01CED VEDIC SIGN TIRYAK 01CEE VEDIC SIGN HEXIFORM LONG ANUSVARA 01CEF VEDIC SIGN LONG ANUSVARA 01CF0 VEDIC SIGN RTHANG LONG ANUSVARA 01CF1 VEDIC SIGN ANUSVARA UBHAYATO MUKHA 01CF2 VEDIC SIGN ARDHAVISARGA 01CF3 VEDIC SIGN ROTATED ARDHAVISARGA 01CF4 VEDIC TONE CANDRA ABOVE 01CF5 VEDIC SIGN JIHVAMULIYA 01CF6 VEDIC SIGN UPADHMANIYA 01CF7 VEDIC SIGN ATIKRAMA 01CF8 VEDIC TONE RING ABOVE 01CF9 VEDIC TONE DOUBLE RING ABOVE 01CFA VEDIC SIGN DOUBLE ANUSVARA ANTARGOMUKHA 01D00 LATIN LETTER SMALL CAPITAL A 01D01 LATIN LETTER SMALL CAPITAL AE 01D02 LATIN SMALL LETTER TURNED AE 01D03 LATIN LETTER SMALL CAPITAL BARRED B 01D04 LATIN LETTER SMALL CAPITAL C 01D05 LATIN LETTER SMALL CAPITAL D 01D06 LATIN LETTER SMALL CAPITAL ETH 01D07 LATIN LETTER SMALL CAPITAL E 01D08 LATIN SMALL LETTER TURNED OPEN E 01D09 LATIN SMALL LETTER TURNED I 01D0A LATIN LETTER SMALL CAPITAL J 01D0B LATIN LETTER SMALL CAPITAL K 01D0C LATIN LETTER SMALL CAPITAL L WITH STROKE 01D0D LATIN LETTER SMALL CAPITAL M 01D0E LATIN LETTER SMALL CAPITAL REVERSED N 01D0F LATIN LETTER SMALL CAPITAL O 01D10 LATIN LETTER SMALL CAPITAL OPEN O 01D11 LATIN SMALL LETTER SIDEWAYS O 01D12 LATIN SMALL LETTER SIDEWAYS OPEN O 01D13 LATIN SMALL LETTER SIDEWAYS O WITH STROKE 01D14 LATIN SMALL LETTER TURNED OE 01D15 LATIN LETTER SMALL CAPITAL OU 01D16 LATIN SMALL LETTER TOP HALF O 01D17 LATIN SMALL LETTER BOTTOM HALF O 01D18 LATIN LETTER SMALL CAPITAL P 01D19 LATIN LETTER SMALL CAPITAL REVERSED R 01D1A LATIN LETTER SMALL CAPITAL TURNED R 01D1B LATIN LETTER SMALL CAPITAL T 01D1C LATIN LETTER SMALL CAPITAL U 01D1D LATIN SMALL LETTER SIDEWAYS U 01D1E LATIN SMALL LETTER SIDEWAYS DIAERESIZED U 01D1F LATIN SMALL LETTER SIDEWAYS TURNED M 01D20 LATIN LETTER SMALL CAPITAL V 01D21 LATIN LETTER SMALL CAPITAL W 01D22 LATIN LETTER SMALL CAPITAL Z 01D23 LATIN LETTER SMALL CAPITAL EZH 01D24 LATIN LETTER VOICED LARYNGEAL SPIRANT 01D25 LATIN LETTER AIN 01D26 GREEK LETTER SMALL CAPITAL GAMMA 01D27 GREEK LETTER SMALL CAPITAL LAMDA 01D28 GREEK LETTER SMALL CAPITAL PI 01D29 GREEK LETTER SMALL CAPITAL RHO 01D2A GREEK LETTER SMALL CAPITAL PSI 01D2B CYRILLIC LETTER SMALL CAPITAL EL 01D2C MODIFIER LETTER CAPITAL A 01D2D MODIFIER LETTER CAPITAL AE 01D2E MODIFIER LETTER CAPITAL B 01D2F MODIFIER LETTER CAPITAL BARRED B 01D30 MODIFIER LETTER CAPITAL D 01D31 MODIFIER LETTER CAPITAL E 01D32 MODIFIER LETTER CAPITAL REVERSED E 01D33 MODIFIER LETTER CAPITAL G 01D34 MODIFIER LETTER CAPITAL H 01D35 MODIFIER LETTER CAPITAL I 01D36 MODIFIER LETTER CAPITAL J 01D37 MODIFIER LETTER CAPITAL K 01D38 MODIFIER LETTER CAPITAL L 01D39 MODIFIER LETTER CAPITAL M 01D3A MODIFIER LETTER CAPITAL N 01D3B MODIFIER LETTER CAPITAL REVERSED N 01D3C MODIFIER LETTER CAPITAL O 01D3D MODIFIER LETTER CAPITAL OU 01D3E MODIFIER LETTER CAPITAL P 01D3F MODIFIER LETTER CAPITAL R 01D40 MODIFIER LETTER CAPITAL T 01D41 MODIFIER LETTER CAPITAL U 01D42 MODIFIER LETTER CAPITAL W 01D43 MODIFIER LETTER SMALL A 01D44 MODIFIER LETTER SMALL TURNED A 01D45 MODIFIER LETTER SMALL ALPHA 01D46 MODIFIER LETTER SMALL TURNED AE 01D47 MODIFIER LETTER SMALL B 01D48 MODIFIER LETTER SMALL D 01D49 MODIFIER LETTER SMALL E 01D4A MODIFIER LETTER SMALL SCHWA 01D4B MODIFIER LETTER SMALL OPEN E 01D4C MODIFIER LETTER SMALL TURNED OPEN E 01D4D MODIFIER LETTER SMALL G 01D4E MODIFIER LETTER SMALL TURNED I 01D4F MODIFIER LETTER SMALL K 01D50 MODIFIER LETTER SMALL M 01D51 MODIFIER LETTER SMALL ENG 01D52 MODIFIER LETTER SMALL O 01D53 MODIFIER LETTER SMALL OPEN O 01D54 MODIFIER LETTER SMALL TOP HALF O 01D55 MODIFIER LETTER SMALL BOTTOM HALF O 01D56 MODIFIER LETTER SMALL P 01D57 MODIFIER LETTER SMALL T 01D58 MODIFIER LETTER SMALL U 01D59 MODIFIER LETTER SMALL SIDEWAYS U 01D5A MODIFIER LETTER SMALL TURNED M 01D5B MODIFIER LETTER SMALL V 01D5C MODIFIER LETTER SMALL AIN 01D5D MODIFIER LETTER SMALL BETA 01D5E MODIFIER LETTER SMALL GREEK GAMMA 01D5F MODIFIER LETTER SMALL DELTA 01D60 MODIFIER LETTER SMALL GREEK PHI 01D61 MODIFIER LETTER SMALL CHI 01D62 LATIN SUBSCRIPT SMALL LETTER I 01D63 LATIN SUBSCRIPT SMALL LETTER R 01D64 LATIN SUBSCRIPT SMALL LETTER U 01D65 LATIN SUBSCRIPT SMALL LETTER V 01D66 GREEK SUBSCRIPT SMALL LETTER BETA 01D67 GREEK SUBSCRIPT SMALL LETTER GAMMA 01D68 GREEK SUBSCRIPT SMALL LETTER RHO 01D69 GREEK SUBSCRIPT SMALL LETTER PHI 01D6A GREEK SUBSCRIPT SMALL LETTER CHI 01D6B LATIN SMALL LETTER UE 01D6C LATIN SMALL LETTER B WITH MIDDLE TILDE 01D6D LATIN SMALL LETTER D WITH MIDDLE TILDE 01D6E LATIN SMALL LETTER F WITH MIDDLE TILDE 01D6F LATIN SMALL LETTER M WITH MIDDLE TILDE 01D70 LATIN SMALL LETTER N WITH MIDDLE TILDE 01D71 LATIN SMALL LETTER P WITH MIDDLE TILDE 01D72 LATIN SMALL LETTER R WITH MIDDLE TILDE 01D73 LATIN SMALL LETTER R WITH FISHHOOK AND MIDDLE TILDE 01D74 LATIN SMALL LETTER S WITH MIDDLE TILDE 01D75 LATIN SMALL LETTER T WITH MIDDLE TILDE 01D76 LATIN SMALL LETTER Z WITH MIDDLE TILDE 01D77 LATIN SMALL LETTER TURNED G 01D78 MODIFIER LETTER CYRILLIC EN 01D79 LATIN SMALL LETTER INSULAR G 01D7A LATIN SMALL LETTER TH WITH STRIKETHROUGH 01D7B LATIN SMALL CAPITAL LETTER I WITH STROKE 01D7C LATIN SMALL LETTER IOTA WITH STROKE 01D7D LATIN SMALL LETTER P WITH STROKE 01D7E LATIN SMALL CAPITAL LETTER U WITH STROKE 01D7F LATIN SMALL LETTER UPSILON WITH STROKE 01D80 LATIN SMALL LETTER B WITH PALATAL HOOK 01D81 LATIN SMALL LETTER D WITH PALATAL HOOK 01D82 LATIN SMALL LETTER F WITH PALATAL HOOK 01D83 LATIN SMALL LETTER G WITH PALATAL HOOK 01D84 LATIN SMALL LETTER K WITH PALATAL HOOK 01D85 LATIN SMALL LETTER L WITH PALATAL HOOK 01D86 LATIN SMALL LETTER M WITH PALATAL HOOK 01D87 LATIN SMALL LETTER N WITH PALATAL HOOK 01D88 LATIN SMALL LETTER P WITH PALATAL HOOK 01D89 LATIN SMALL LETTER R WITH PALATAL HOOK 01D8A LATIN SMALL LETTER S WITH PALATAL HOOK 01D8B LATIN SMALL LETTER ESH WITH PALATAL HOOK 01D8C LATIN SMALL LETTER V WITH PALATAL HOOK 01D8D LATIN SMALL LETTER X WITH PALATAL HOOK 01D8E LATIN SMALL LETTER Z WITH PALATAL HOOK 01D8F LATIN SMALL LETTER A WITH RETROFLEX HOOK 01D90 LATIN SMALL LETTER ALPHA WITH RETROFLEX HOOK 01D91 LATIN SMALL LETTER D WITH HOOK AND TAIL 01D92 LATIN SMALL LETTER E WITH RETROFLEX HOOK 01D93 LATIN SMALL LETTER OPEN E WITH RETROFLEX HOOK 01D94 LATIN SMALL LETTER REVERSED OPEN E WITH RETROFLEX HOOK 01D95 LATIN SMALL LETTER SCHWA WITH RETROFLEX HOOK 01D96 LATIN SMALL LETTER I WITH RETROFLEX HOOK 01D97 LATIN SMALL LETTER OPEN O WITH RETROFLEX HOOK 01D98 LATIN SMALL LETTER ESH WITH RETROFLEX HOOK 01D99 LATIN SMALL LETTER U WITH RETROFLEX HOOK 01D9A LATIN SMALL LETTER EZH WITH RETROFLEX HOOK 01D9B MODIFIER LETTER SMALL TURNED ALPHA 01D9C MODIFIER LETTER SMALL C 01D9D MODIFIER LETTER SMALL C WITH CURL 01D9E MODIFIER LETTER SMALL ETH 01D9F MODIFIER LETTER SMALL REVERSED OPEN E 01DA0 MODIFIER LETTER SMALL F 01DA1 MODIFIER LETTER SMALL DOTLESS J WITH STROKE 01DA2 MODIFIER LETTER SMALL SCRIPT G 01DA3 MODIFIER LETTER SMALL TURNED H 01DA4 MODIFIER LETTER SMALL I WITH STROKE 01DA5 MODIFIER LETTER SMALL IOTA 01DA6 MODIFIER LETTER SMALL CAPITAL I 01DA7 MODIFIER LETTER SMALL CAPITAL I WITH STROKE 01DA8 MODIFIER LETTER SMALL J WITH CROSSED-TAIL 01DA9 MODIFIER LETTER SMALL L WITH RETROFLEX HOOK 01DAA MODIFIER LETTER SMALL L WITH PALATAL HOOK 01DAB MODIFIER LETTER SMALL CAPITAL L 01DAC MODIFIER LETTER SMALL M WITH HOOK 01DAD MODIFIER LETTER SMALL TURNED M WITH LONG LEG 01DAE MODIFIER LETTER SMALL N WITH LEFT HOOK 01DAF MODIFIER LETTER SMALL N WITH RETROFLEX HOOK 01DB0 MODIFIER LETTER SMALL CAPITAL N 01DB1 MODIFIER LETTER SMALL BARRED O 01DB2 MODIFIER LETTER SMALL PHI 01DB3 MODIFIER LETTER SMALL S WITH HOOK 01DB4 MODIFIER LETTER SMALL ESH 01DB5 MODIFIER LETTER SMALL T WITH PALATAL HOOK 01DB6 MODIFIER LETTER SMALL U BAR 01DB7 MODIFIER LETTER SMALL UPSILON 01DB8 MODIFIER LETTER SMALL CAPITAL U 01DB9 MODIFIER LETTER SMALL V WITH HOOK 01DBA MODIFIER LETTER SMALL TURNED V 01DBB MODIFIER LETTER SMALL Z 01DBC MODIFIER LETTER SMALL Z WITH RETROFLEX HOOK 01DBD MODIFIER LETTER SMALL Z WITH CURL 01DBE MODIFIER LETTER SMALL EZH 01DBF MODIFIER LETTER SMALL THETA 01DC0 COMBINING DOTTED GRAVE ACCENT 01DC1 COMBINING DOTTED ACUTE ACCENT 01DC2 COMBINING SNAKE BELOW 01DC3 COMBINING SUSPENSION MARK 01DC4 COMBINING MACRON-ACUTE 01DC5 COMBINING GRAVE-MACRON 01DC6 COMBINING MACRON-GRAVE 01DC7 COMBINING ACUTE-MACRON 01DC8 COMBINING GRAVE-ACUTE-GRAVE 01DC9 COMBINING ACUTE-GRAVE-ACUTE 01DCA COMBINING LATIN SMALL LETTER R BELOW 01DCB COMBINING BREVE-MACRON 01DCC COMBINING MACRON-BREVE 01DCD COMBINING DOUBLE CIRCUMFLEX ABOVE 01DCE COMBINING OGONEK ABOVE 01DCF COMBINING ZIGZAG BELOW 01DD0 COMBINING IS BELOW 01DD1 COMBINING UR ABOVE 01DD2 COMBINING US ABOVE 01DD3 COMBINING LATIN SMALL LETTER FLATTENED OPEN A ABOVE 01DD4 COMBINING LATIN SMALL LETTER AE 01DD5 COMBINING LATIN SMALL LETTER AO 01DD6 COMBINING LATIN SMALL LETTER AV 01DD7 COMBINING LATIN SMALL LETTER C CEDILLA 01DD8 COMBINING LATIN SMALL LETTER INSULAR D 01DD9 COMBINING LATIN SMALL LETTER ETH 01DDA COMBINING LATIN SMALL LETTER G 01DDB COMBINING LATIN LETTER SMALL CAPITAL G 01DDC COMBINING LATIN SMALL LETTER K 01DDD COMBINING LATIN SMALL LETTER L 01DDE COMBINING LATIN LETTER SMALL CAPITAL L 01DDF COMBINING LATIN LETTER SMALL CAPITAL M 01DE0 COMBINING LATIN SMALL LETTER N 01DE1 COMBINING LATIN LETTER SMALL CAPITAL N 01DE2 COMBINING LATIN LETTER SMALL CAPITAL R 01DE3 COMBINING LATIN SMALL LETTER R ROTUNDA 01DE4 COMBINING LATIN SMALL LETTER S 01DE5 COMBINING LATIN SMALL LETTER LONG S 01DE6 COMBINING LATIN SMALL LETTER Z 01DE7 COMBINING LATIN SMALL LETTER ALPHA 01DE8 COMBINING LATIN SMALL LETTER B 01DE9 COMBINING LATIN SMALL LETTER BETA 01DEA COMBINING LATIN SMALL LETTER SCHWA 01DEB COMBINING LATIN SMALL LETTER F 01DEC COMBINING LATIN SMALL LETTER L WITH DOUBLE MIDDLE TILDE 01DED COMBINING LATIN SMALL LETTER O WITH LIGHT CENTRALIZATION STROKE 01DEE COMBINING LATIN SMALL LETTER P 01DEF COMBINING LATIN SMALL LETTER ESH 01DF0 COMBINING LATIN SMALL LETTER U WITH LIGHT CENTRALIZATION STROKE 01DF1 COMBINING LATIN SMALL LETTER W 01DF2 COMBINING LATIN SMALL LETTER A WITH DIAERESIS 01DF3 COMBINING LATIN SMALL LETTER O WITH DIAERESIS 01DF4 COMBINING LATIN SMALL LETTER U WITH DIAERESIS 01DF5 COMBINING UP TACK ABOVE 01DF6 COMBINING KAVYKA ABOVE RIGHT 01DF7 COMBINING KAVYKA ABOVE LEFT 01DF8 COMBINING DOT ABOVE LEFT 01DF9 COMBINING WIDE INVERTED BRIDGE BELOW 01DFB COMBINING DELETION MARK 01DFC COMBINING DOUBLE INVERTED BREVE BELOW 01DFD COMBINING ALMOST EQUAL TO BELOW 01DFE COMBINING LEFT ARROWHEAD ABOVE 01DFF COMBINING RIGHT ARROWHEAD AND DOWN ARROWHEAD BELOW 01E00 LATIN CAPITAL LETTER A WITH RING BELOW 01E01 LATIN SMALL LETTER A WITH RING BELOW 01E02 LATIN CAPITAL LETTER B WITH DOT ABOVE 01E03 LATIN SMALL LETTER B WITH DOT ABOVE 01E04 LATIN CAPITAL LETTER B WITH DOT BELOW 01E05 LATIN SMALL LETTER B WITH DOT BELOW 01E06 LATIN CAPITAL LETTER B WITH LINE BELOW 01E07 LATIN SMALL LETTER B WITH LINE BELOW 01E08 LATIN CAPITAL LETTER C WITH CEDILLA AND ACUTE 01E09 LATIN SMALL LETTER C WITH CEDILLA AND ACUTE 01E0A LATIN CAPITAL LETTER D WITH DOT ABOVE 01E0B LATIN SMALL LETTER D WITH DOT ABOVE 01E0C LATIN CAPITAL LETTER D WITH DOT BELOW 01E0D LATIN SMALL LETTER D WITH DOT BELOW 01E0E LATIN CAPITAL LETTER D WITH LINE BELOW 01E0F LATIN SMALL LETTER D WITH LINE BELOW 01E10 LATIN CAPITAL LETTER D WITH CEDILLA 01E11 LATIN SMALL LETTER D WITH CEDILLA 01E12 LATIN CAPITAL LETTER D WITH CIRCUMFLEX BELOW 01E13 LATIN SMALL LETTER D WITH CIRCUMFLEX BELOW 01E14 LATIN CAPITAL LETTER E WITH MACRON AND GRAVE 01E15 LATIN SMALL LETTER E WITH MACRON AND GRAVE 01E16 LATIN CAPITAL LETTER E WITH MACRON AND ACUTE 01E17 LATIN SMALL LETTER E WITH MACRON AND ACUTE 01E18 LATIN CAPITAL LETTER E WITH CIRCUMFLEX BELOW 01E19 LATIN SMALL LETTER E WITH CIRCUMFLEX BELOW 01E1A LATIN CAPITAL LETTER E WITH TILDE BELOW 01E1B LATIN SMALL LETTER E WITH TILDE BELOW 01E1C LATIN CAPITAL LETTER E WITH CEDILLA AND BREVE 01E1D LATIN SMALL LETTER E WITH CEDILLA AND BREVE 01E1E LATIN CAPITAL LETTER F WITH DOT ABOVE 01E1F LATIN SMALL LETTER F WITH DOT ABOVE 01E20 LATIN CAPITAL LETTER G WITH MACRON 01E21 LATIN SMALL LETTER G WITH MACRON 01E22 LATIN CAPITAL LETTER H WITH DOT ABOVE 01E23 LATIN SMALL LETTER H WITH DOT ABOVE 01E24 LATIN CAPITAL LETTER H WITH DOT BELOW 01E25 LATIN SMALL LETTER H WITH DOT BELOW 01E26 LATIN CAPITAL LETTER H WITH DIAERESIS 01E27 LATIN SMALL LETTER H WITH DIAERESIS 01E28 LATIN CAPITAL LETTER H WITH CEDILLA 01E29 LATIN SMALL LETTER H WITH CEDILLA 01E2A LATIN CAPITAL LETTER H WITH BREVE BELOW 01E2B LATIN SMALL LETTER H WITH BREVE BELOW 01E2C LATIN CAPITAL LETTER I WITH TILDE BELOW 01E2D LATIN SMALL LETTER I WITH TILDE BELOW 01E2E LATIN CAPITAL LETTER I WITH DIAERESIS AND ACUTE 01E2F LATIN SMALL LETTER I WITH DIAERESIS AND ACUTE 01E30 LATIN CAPITAL LETTER K WITH ACUTE 01E31 LATIN SMALL LETTER K WITH ACUTE 01E32 LATIN CAPITAL LETTER K WITH DOT BELOW 01E33 LATIN SMALL LETTER K WITH DOT BELOW 01E34 LATIN CAPITAL LETTER K WITH LINE BELOW 01E35 LATIN SMALL LETTER K WITH LINE BELOW 01E36 LATIN CAPITAL LETTER L WITH DOT BELOW 01E37 LATIN SMALL LETTER L WITH DOT BELOW 01E38 LATIN CAPITAL LETTER L WITH DOT BELOW AND MACRON 01E39 LATIN SMALL LETTER L WITH DOT BELOW AND MACRON 01E3A LATIN CAPITAL LETTER L WITH LINE BELOW 01E3B LATIN SMALL LETTER L WITH LINE BELOW 01E3C LATIN CAPITAL LETTER L WITH CIRCUMFLEX BELOW 01E3D LATIN SMALL LETTER L WITH CIRCUMFLEX BELOW 01E3E LATIN CAPITAL LETTER M WITH ACUTE 01E3F LATIN SMALL LETTER M WITH ACUTE 01E40 LATIN CAPITAL LETTER M WITH DOT ABOVE 01E41 LATIN SMALL LETTER M WITH DOT ABOVE 01E42 LATIN CAPITAL LETTER M WITH DOT BELOW 01E43 LATIN SMALL LETTER M WITH DOT BELOW 01E44 LATIN CAPITAL LETTER N WITH DOT ABOVE 01E45 LATIN SMALL LETTER N WITH DOT ABOVE 01E46 LATIN CAPITAL LETTER N WITH DOT BELOW 01E47 LATIN SMALL LETTER N WITH DOT BELOW 01E48 LATIN CAPITAL LETTER N WITH LINE BELOW 01E49 LATIN SMALL LETTER N WITH LINE BELOW 01E4A LATIN CAPITAL LETTER N WITH CIRCUMFLEX BELOW 01E4B LATIN SMALL LETTER N WITH CIRCUMFLEX BELOW 01E4C LATIN CAPITAL LETTER O WITH TILDE AND ACUTE 01E4D LATIN SMALL LETTER O WITH TILDE AND ACUTE 01E4E LATIN CAPITAL LETTER O WITH TILDE AND DIAERESIS 01E4F LATIN SMALL LETTER O WITH TILDE AND DIAERESIS 01E50 LATIN CAPITAL LETTER O WITH MACRON AND GRAVE 01E51 LATIN SMALL LETTER O WITH MACRON AND GRAVE 01E52 LATIN CAPITAL LETTER O WITH MACRON AND ACUTE 01E53 LATIN SMALL LETTER O WITH MACRON AND ACUTE 01E54 LATIN CAPITAL LETTER P WITH ACUTE 01E55 LATIN SMALL LETTER P WITH ACUTE 01E56 LATIN CAPITAL LETTER P WITH DOT ABOVE 01E57 LATIN SMALL LETTER P WITH DOT ABOVE 01E58 LATIN CAPITAL LETTER R WITH DOT ABOVE 01E59 LATIN SMALL LETTER R WITH DOT ABOVE 01E5A LATIN CAPITAL LETTER R WITH DOT BELOW 01E5B LATIN SMALL LETTER R WITH DOT BELOW 01E5C LATIN CAPITAL LETTER R WITH DOT BELOW AND MACRON 01E5D LATIN SMALL LETTER R WITH DOT BELOW AND MACRON 01E5E LATIN CAPITAL LETTER R WITH LINE BELOW 01E5F LATIN SMALL LETTER R WITH LINE BELOW 01E60 LATIN CAPITAL LETTER S WITH DOT ABOVE 01E61 LATIN SMALL LETTER S WITH DOT ABOVE 01E62 LATIN CAPITAL LETTER S WITH DOT BELOW 01E63 LATIN SMALL LETTER S WITH DOT BELOW 01E64 LATIN CAPITAL LETTER S WITH ACUTE AND DOT ABOVE 01E65 LATIN SMALL LETTER S WITH ACUTE AND DOT ABOVE 01E66 LATIN CAPITAL LETTER S WITH CARON AND DOT ABOVE 01E67 LATIN SMALL LETTER S WITH CARON AND DOT ABOVE 01E68 LATIN CAPITAL LETTER S WITH DOT BELOW AND DOT ABOVE 01E69 LATIN SMALL LETTER S WITH DOT BELOW AND DOT ABOVE 01E6A LATIN CAPITAL LETTER T WITH DOT ABOVE 01E6B LATIN SMALL LETTER T WITH DOT ABOVE 01E6C LATIN CAPITAL LETTER T WITH DOT BELOW 01E6D LATIN SMALL LETTER T WITH DOT BELOW 01E6E LATIN CAPITAL LETTER T WITH LINE BELOW 01E6F LATIN SMALL LETTER T WITH LINE BELOW 01E70 LATIN CAPITAL LETTER T WITH CIRCUMFLEX BELOW 01E71 LATIN SMALL LETTER T WITH CIRCUMFLEX BELOW 01E72 LATIN CAPITAL LETTER U WITH DIAERESIS BELOW 01E73 LATIN SMALL LETTER U WITH DIAERESIS BELOW 01E74 LATIN CAPITAL LETTER U WITH TILDE BELOW 01E75 LATIN SMALL LETTER U WITH TILDE BELOW 01E76 LATIN CAPITAL LETTER U WITH CIRCUMFLEX BELOW 01E77 LATIN SMALL LETTER U WITH CIRCUMFLEX BELOW 01E78 LATIN CAPITAL LETTER U WITH TILDE AND ACUTE 01E79 LATIN SMALL LETTER U WITH TILDE AND ACUTE 01E7A LATIN CAPITAL LETTER U WITH MACRON AND DIAERESIS 01E7B LATIN SMALL LETTER U WITH MACRON AND DIAERESIS 01E7C LATIN CAPITAL LETTER V WITH TILDE 01E7D LATIN SMALL LETTER V WITH TILDE 01E7E LATIN CAPITAL LETTER V WITH DOT BELOW 01E7F LATIN SMALL LETTER V WITH DOT BELOW 01E80 LATIN CAPITAL LETTER W WITH GRAVE 01E81 LATIN SMALL LETTER W WITH GRAVE 01E82 LATIN CAPITAL LETTER W WITH ACUTE 01E83 LATIN SMALL LETTER W WITH ACUTE 01E84 LATIN CAPITAL LETTER W WITH DIAERESIS 01E85 LATIN SMALL LETTER W WITH DIAERESIS 01E86 LATIN CAPITAL LETTER W WITH DOT ABOVE 01E87 LATIN SMALL LETTER W WITH DOT ABOVE 01E88 LATIN CAPITAL LETTER W WITH DOT BELOW 01E89 LATIN SMALL LETTER W WITH DOT BELOW 01E8A LATIN CAPITAL LETTER X WITH DOT ABOVE 01E8B LATIN SMALL LETTER X WITH DOT ABOVE 01E8C LATIN CAPITAL LETTER X WITH DIAERESIS 01E8D LATIN SMALL LETTER X WITH DIAERESIS 01E8E LATIN CAPITAL LETTER Y WITH DOT ABOVE 01E8F LATIN SMALL LETTER Y WITH DOT ABOVE 01E90 LATIN CAPITAL LETTER Z WITH CIRCUMFLEX 01E91 LATIN SMALL LETTER Z WITH CIRCUMFLEX 01E92 LATIN CAPITAL LETTER Z WITH DOT BELOW 01E93 LATIN SMALL LETTER Z WITH DOT BELOW 01E94 LATIN CAPITAL LETTER Z WITH LINE BELOW 01E95 LATIN SMALL LETTER Z WITH LINE BELOW 01E96 LATIN SMALL LETTER H WITH LINE BELOW 01E97 LATIN SMALL LETTER T WITH DIAERESIS 01E98 LATIN SMALL LETTER W WITH RING ABOVE 01E99 LATIN SMALL LETTER Y WITH RING ABOVE 01E9A LATIN SMALL LETTER A WITH RIGHT HALF RING 01E9B LATIN SMALL LETTER LONG S WITH DOT ABOVE 01E9C LATIN SMALL LETTER LONG S WITH DIAGONAL STROKE 01E9D LATIN SMALL LETTER LONG S WITH HIGH STROKE 01E9E LATIN CAPITAL LETTER SHARP S 01E9F LATIN SMALL LETTER DELTA 01EA0 LATIN CAPITAL LETTER A WITH DOT BELOW 01EA1 LATIN SMALL LETTER A WITH DOT BELOW 01EA2 LATIN CAPITAL LETTER A WITH HOOK ABOVE 01EA3 LATIN SMALL LETTER A WITH HOOK ABOVE 01EA4 LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND ACUTE 01EA5 LATIN SMALL LETTER A WITH CIRCUMFLEX AND ACUTE 01EA6 LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND GRAVE 01EA7 LATIN SMALL LETTER A WITH CIRCUMFLEX AND GRAVE 01EA8 LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE 01EA9 LATIN SMALL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE 01EAA LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND TILDE 01EAB LATIN SMALL LETTER A WITH CIRCUMFLEX AND TILDE 01EAC LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND DOT BELOW 01EAD LATIN SMALL LETTER A WITH CIRCUMFLEX AND DOT BELOW 01EAE LATIN CAPITAL LETTER A WITH BREVE AND ACUTE 01EAF LATIN SMALL LETTER A WITH BREVE AND ACUTE 01EB0 LATIN CAPITAL LETTER A WITH BREVE AND GRAVE 01EB1 LATIN SMALL LETTER A WITH BREVE AND GRAVE 01EB2 LATIN CAPITAL LETTER A WITH BREVE AND HOOK ABOVE 01EB3 LATIN SMALL LETTER A WITH BREVE AND HOOK ABOVE 01EB4 LATIN CAPITAL LETTER A WITH BREVE AND TILDE 01EB5 LATIN SMALL LETTER A WITH BREVE AND TILDE 01EB6 LATIN CAPITAL LETTER A WITH BREVE AND DOT BELOW 01EB7 LATIN SMALL LETTER A WITH BREVE AND DOT BELOW 01EB8 LATIN CAPITAL LETTER E WITH DOT BELOW 01EB9 LATIN SMALL LETTER E WITH DOT BELOW 01EBA LATIN CAPITAL LETTER E WITH HOOK ABOVE 01EBB LATIN SMALL LETTER E WITH HOOK ABOVE 01EBC LATIN CAPITAL LETTER E WITH TILDE 01EBD LATIN SMALL LETTER E WITH TILDE 01EBE LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE 01EBF LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE 01EC0 LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE 01EC1 LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE 01EC2 LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE 01EC3 LATIN SMALL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE 01EC4 LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND TILDE 01EC5 LATIN SMALL LETTER E WITH CIRCUMFLEX AND TILDE 01EC6 LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND DOT BELOW 01EC7 LATIN SMALL LETTER E WITH CIRCUMFLEX AND DOT BELOW 01EC8 LATIN CAPITAL LETTER I WITH HOOK ABOVE 01EC9 LATIN SMALL LETTER I WITH HOOK ABOVE 01ECA LATIN CAPITAL LETTER I WITH DOT BELOW 01ECB LATIN SMALL LETTER I WITH DOT BELOW 01ECC LATIN CAPITAL LETTER O WITH DOT BELOW 01ECD LATIN SMALL LETTER O WITH DOT BELOW 01ECE LATIN CAPITAL LETTER O WITH HOOK ABOVE 01ECF LATIN SMALL LETTER O WITH HOOK ABOVE 01ED0 LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND ACUTE 01ED1 LATIN SMALL LETTER O WITH CIRCUMFLEX AND ACUTE 01ED2 LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND GRAVE 01ED3 LATIN SMALL LETTER O WITH CIRCUMFLEX AND GRAVE 01ED4 LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE 01ED5 LATIN SMALL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE 01ED6 LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND TILDE 01ED7 LATIN SMALL LETTER O WITH CIRCUMFLEX AND TILDE 01ED8 LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND DOT BELOW 01ED9 LATIN SMALL LETTER O WITH CIRCUMFLEX AND DOT BELOW 01EDA LATIN CAPITAL LETTER O WITH HORN AND ACUTE 01EDB LATIN SMALL LETTER O WITH HORN AND ACUTE 01EDC LATIN CAPITAL LETTER O WITH HORN AND GRAVE 01EDD LATIN SMALL LETTER O WITH HORN AND GRAVE 01EDE LATIN CAPITAL LETTER O WITH HORN AND HOOK ABOVE 01EDF LATIN SMALL LETTER O WITH HORN AND HOOK ABOVE 01EE0 LATIN CAPITAL LETTER O WITH HORN AND TILDE 01EE1 LATIN SMALL LETTER O WITH HORN AND TILDE 01EE2 LATIN CAPITAL LETTER O WITH HORN AND DOT BELOW 01EE3 LATIN SMALL LETTER O WITH HORN AND DOT BELOW 01EE4 LATIN CAPITAL LETTER U WITH DOT BELOW 01EE5 LATIN SMALL LETTER U WITH DOT BELOW 01EE6 LATIN CAPITAL LETTER U WITH HOOK ABOVE 01EE7 LATIN SMALL LETTER U WITH HOOK ABOVE 01EE8 LATIN CAPITAL LETTER U WITH HORN AND ACUTE 01EE9 LATIN SMALL LETTER U WITH HORN AND ACUTE 01EEA LATIN CAPITAL LETTER U WITH HORN AND GRAVE 01EEB LATIN SMALL LETTER U WITH HORN AND GRAVE 01EEC LATIN CAPITAL LETTER U WITH HORN AND HOOK ABOVE 01EED LATIN SMALL LETTER U WITH HORN AND HOOK ABOVE 01EEE LATIN CAPITAL LETTER U WITH HORN AND TILDE 01EEF LATIN SMALL LETTER U WITH HORN AND TILDE 01EF0 LATIN CAPITAL LETTER U WITH HORN AND DOT BELOW 01EF1 LATIN SMALL LETTER U WITH HORN AND DOT BELOW 01EF2 LATIN CAPITAL LETTER Y WITH GRAVE 01EF3 LATIN SMALL LETTER Y WITH GRAVE 01EF4 LATIN CAPITAL LETTER Y WITH DOT BELOW 01EF5 LATIN SMALL LETTER Y WITH DOT BELOW 01EF6 LATIN CAPITAL LETTER Y WITH HOOK ABOVE 01EF7 LATIN SMALL LETTER Y WITH HOOK ABOVE 01EF8 LATIN CAPITAL LETTER Y WITH TILDE 01EF9 LATIN SMALL LETTER Y WITH TILDE 01EFA LATIN CAPITAL LETTER MIDDLE-WELSH LL 01EFB LATIN SMALL LETTER MIDDLE-WELSH LL 01EFC LATIN CAPITAL LETTER MIDDLE-WELSH V 01EFD LATIN SMALL LETTER MIDDLE-WELSH V 01EFE LATIN CAPITAL LETTER Y WITH LOOP 01EFF LATIN SMALL LETTER Y WITH LOOP 01F00 GREEK SMALL LETTER ALPHA WITH PSILI 01F01 GREEK SMALL LETTER ALPHA WITH DASIA 01F02 GREEK SMALL LETTER ALPHA WITH PSILI AND VARIA 01F03 GREEK SMALL LETTER ALPHA WITH DASIA AND VARIA 01F04 GREEK SMALL LETTER ALPHA WITH PSILI AND OXIA 01F05 GREEK SMALL LETTER ALPHA WITH DASIA AND OXIA 01F06 GREEK SMALL LETTER ALPHA WITH PSILI AND PERISPOMENI 01F07 GREEK SMALL LETTER ALPHA WITH DASIA AND PERISPOMENI 01F08 GREEK CAPITAL LETTER ALPHA WITH PSILI 01F09 GREEK CAPITAL LETTER ALPHA WITH DASIA 01F0A GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA 01F0B GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA 01F0C GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA 01F0D GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA 01F0E GREEK CAPITAL LETTER ALPHA WITH PSILI AND PERISPOMENI 01F0F GREEK CAPITAL LETTER ALPHA WITH DASIA AND PERISPOMENI 01F10 GREEK SMALL LETTER EPSILON WITH PSILI 01F11 GREEK SMALL LETTER EPSILON WITH DASIA 01F12 GREEK SMALL LETTER EPSILON WITH PSILI AND VARIA 01F13 GREEK SMALL LETTER EPSILON WITH DASIA AND VARIA 01F14 GREEK SMALL LETTER EPSILON WITH PSILI AND OXIA 01F15 GREEK SMALL LETTER EPSILON WITH DASIA AND OXIA 01F18 GREEK CAPITAL LETTER EPSILON WITH PSILI 01F19 GREEK CAPITAL LETTER EPSILON WITH DASIA 01F1A GREEK CAPITAL LETTER EPSILON WITH PSILI AND VARIA 01F1B GREEK CAPITAL LETTER EPSILON WITH DASIA AND VARIA 01F1C GREEK CAPITAL LETTER EPSILON WITH PSILI AND OXIA 01F1D GREEK CAPITAL LETTER EPSILON WITH DASIA AND OXIA 01F20 GREEK SMALL LETTER ETA WITH PSILI 01F21 GREEK SMALL LETTER ETA WITH DASIA 01F22 GREEK SMALL LETTER ETA WITH PSILI AND VARIA 01F23 GREEK SMALL LETTER ETA WITH DASIA AND VARIA 01F24 GREEK SMALL LETTER ETA WITH PSILI AND OXIA 01F25 GREEK SMALL LETTER ETA WITH DASIA AND OXIA 01F26 GREEK SMALL LETTER ETA WITH PSILI AND PERISPOMENI 01F27 GREEK SMALL LETTER ETA WITH DASIA AND PERISPOMENI 01F28 GREEK CAPITAL LETTER ETA WITH PSILI 01F29 GREEK CAPITAL LETTER ETA WITH DASIA 01F2A GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA 01F2B GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA 01F2C GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA 01F2D GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA 01F2E GREEK CAPITAL LETTER ETA WITH PSILI AND PERISPOMENI 01F2F GREEK CAPITAL LETTER ETA WITH DASIA AND PERISPOMENI 01F30 GREEK SMALL LETTER IOTA WITH PSILI 01F31 GREEK SMALL LETTER IOTA WITH DASIA 01F32 GREEK SMALL LETTER IOTA WITH PSILI AND VARIA 01F33 GREEK SMALL LETTER IOTA WITH DASIA AND VARIA 01F34 GREEK SMALL LETTER IOTA WITH PSILI AND OXIA 01F35 GREEK SMALL LETTER IOTA WITH DASIA AND OXIA 01F36 GREEK SMALL LETTER IOTA WITH PSILI AND PERISPOMENI 01F37 GREEK SMALL LETTER IOTA WITH DASIA AND PERISPOMENI 01F38 GREEK CAPITAL LETTER IOTA WITH PSILI 01F39 GREEK CAPITAL LETTER IOTA WITH DASIA 01F3A GREEK CAPITAL LETTER IOTA WITH PSILI AND VARIA 01F3B GREEK CAPITAL LETTER IOTA WITH DASIA AND VARIA 01F3C GREEK CAPITAL LETTER IOTA WITH PSILI AND OXIA 01F3D GREEK CAPITAL LETTER IOTA WITH DASIA AND OXIA 01F3E GREEK CAPITAL LETTER IOTA WITH PSILI AND PERISPOMENI 01F3F GREEK CAPITAL LETTER IOTA WITH DASIA AND PERISPOMENI 01F40 GREEK SMALL LETTER OMICRON WITH PSILI 01F41 GREEK SMALL LETTER OMICRON WITH DASIA 01F42 GREEK SMALL LETTER OMICRON WITH PSILI AND VARIA 01F43 GREEK SMALL LETTER OMICRON WITH DASIA AND VARIA 01F44 GREEK SMALL LETTER OMICRON WITH PSILI AND OXIA 01F45 GREEK SMALL LETTER OMICRON WITH DASIA AND OXIA 01F48 GREEK CAPITAL LETTER OMICRON WITH PSILI 01F49 GREEK CAPITAL LETTER OMICRON WITH DASIA 01F4A GREEK CAPITAL LETTER OMICRON WITH PSILI AND VARIA 01F4B GREEK CAPITAL LETTER OMICRON WITH DASIA AND VARIA 01F4C GREEK CAPITAL LETTER OMICRON WITH PSILI AND OXIA 01F4D GREEK CAPITAL LETTER OMICRON WITH DASIA AND OXIA 01F50 GREEK SMALL LETTER UPSILON WITH PSILI 01F51 GREEK SMALL LETTER UPSILON WITH DASIA 01F52 GREEK SMALL LETTER UPSILON WITH PSILI AND VARIA 01F53 GREEK SMALL LETTER UPSILON WITH DASIA AND VARIA 01F54 GREEK SMALL LETTER UPSILON WITH PSILI AND OXIA 01F55 GREEK SMALL LETTER UPSILON WITH DASIA AND OXIA 01F56 GREEK SMALL LETTER UPSILON WITH PSILI AND PERISPOMENI 01F57 GREEK SMALL LETTER UPSILON WITH DASIA AND PERISPOMENI 01F59 GREEK CAPITAL LETTER UPSILON WITH DASIA 01F5B GREEK CAPITAL LETTER UPSILON WITH DASIA AND VARIA 01F5D GREEK CAPITAL LETTER UPSILON WITH DASIA AND OXIA 01F5F GREEK CAPITAL LETTER UPSILON WITH DASIA AND PERISPOMENI 01F60 GREEK SMALL LETTER OMEGA WITH PSILI 01F61 GREEK SMALL LETTER OMEGA WITH DASIA 01F62 GREEK SMALL LETTER OMEGA WITH PSILI AND VARIA 01F63 GREEK SMALL LETTER OMEGA WITH DASIA AND VARIA 01F64 GREEK SMALL LETTER OMEGA WITH PSILI AND OXIA 01F65 GREEK SMALL LETTER OMEGA WITH DASIA AND OXIA 01F66 GREEK SMALL LETTER OMEGA WITH PSILI AND PERISPOMENI 01F67 GREEK SMALL LETTER OMEGA WITH DASIA AND PERISPOMENI 01F68 GREEK CAPITAL LETTER OMEGA WITH PSILI 01F69 GREEK CAPITAL LETTER OMEGA WITH DASIA 01F6A GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA 01F6B GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA 01F6C GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA 01F6D GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA 01F6E GREEK CAPITAL LETTER OMEGA WITH PSILI AND PERISPOMENI 01F6F GREEK CAPITAL LETTER OMEGA WITH DASIA AND PERISPOMENI 01F70 GREEK SMALL LETTER ALPHA WITH VARIA 01F71 GREEK SMALL LETTER ALPHA WITH OXIA 01F72 GREEK SMALL LETTER EPSILON WITH VARIA 01F73 GREEK SMALL LETTER EPSILON WITH OXIA 01F74 GREEK SMALL LETTER ETA WITH VARIA 01F75 GREEK SMALL LETTER ETA WITH OXIA 01F76 GREEK SMALL LETTER IOTA WITH VARIA 01F77 GREEK SMALL LETTER IOTA WITH OXIA 01F78 GREEK SMALL LETTER OMICRON WITH VARIA 01F79 GREEK SMALL LETTER OMICRON WITH OXIA 01F7A GREEK SMALL LETTER UPSILON WITH VARIA 01F7B GREEK SMALL LETTER UPSILON WITH OXIA 01F7C GREEK SMALL LETTER OMEGA WITH VARIA 01F7D GREEK SMALL LETTER OMEGA WITH OXIA 01F80 GREEK SMALL LETTER ALPHA WITH PSILI AND YPOGEGRAMMENI 01F81 GREEK SMALL LETTER ALPHA WITH DASIA AND YPOGEGRAMMENI 01F82 GREEK SMALL LETTER ALPHA WITH PSILI AND VARIA AND YPOGEGRAMMENI 01F83 GREEK SMALL LETTER ALPHA WITH DASIA AND VARIA AND YPOGEGRAMMENI 01F84 GREEK SMALL LETTER ALPHA WITH PSILI AND OXIA AND YPOGEGRAMMENI 01F85 GREEK SMALL LETTER ALPHA WITH DASIA AND OXIA AND YPOGEGRAMMENI 01F86 GREEK SMALL LETTER ALPHA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI 01F87 GREEK SMALL LETTER ALPHA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI 01F88 GREEK CAPITAL LETTER ALPHA WITH PSILI AND PROSGEGRAMMENI 01F89 GREEK CAPITAL LETTER ALPHA WITH DASIA AND PROSGEGRAMMENI 01F8A GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA AND PROSGEGRAMMENI 01F8B GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA AND PROSGEGRAMMENI 01F8C GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA AND PROSGEGRAMMENI 01F8D GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA AND PROSGEGRAMMENI 01F8E GREEK CAPITAL LETTER ALPHA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI 01F8F GREEK CAPITAL LETTER ALPHA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI 01F90 GREEK SMALL LETTER ETA WITH PSILI AND YPOGEGRAMMENI 01F91 GREEK SMALL LETTER ETA WITH DASIA AND YPOGEGRAMMENI 01F92 GREEK SMALL LETTER ETA WITH PSILI AND VARIA AND YPOGEGRAMMENI 01F93 GREEK SMALL LETTER ETA WITH DASIA AND VARIA AND YPOGEGRAMMENI 01F94 GREEK SMALL LETTER ETA WITH PSILI AND OXIA AND YPOGEGRAMMENI 01F95 GREEK SMALL LETTER ETA WITH DASIA AND OXIA AND YPOGEGRAMMENI 01F96 GREEK SMALL LETTER ETA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI 01F97 GREEK SMALL LETTER ETA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI 01F98 GREEK CAPITAL LETTER ETA WITH PSILI AND PROSGEGRAMMENI 01F99 GREEK CAPITAL LETTER ETA WITH DASIA AND PROSGEGRAMMENI 01F9A GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA AND PROSGEGRAMMENI 01F9B GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA AND PROSGEGRAMMENI 01F9C GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA AND PROSGEGRAMMENI 01F9D GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA AND PROSGEGRAMMENI 01F9E GREEK CAPITAL LETTER ETA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI 01F9F GREEK CAPITAL LETTER ETA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI 01FA0 GREEK SMALL LETTER OMEGA WITH PSILI AND YPOGEGRAMMENI 01FA1 GREEK SMALL LETTER OMEGA WITH DASIA AND YPOGEGRAMMENI 01FA2 GREEK SMALL LETTER OMEGA WITH PSILI AND VARIA AND YPOGEGRAMMENI 01FA3 GREEK SMALL LETTER OMEGA WITH DASIA AND VARIA AND YPOGEGRAMMENI 01FA4 GREEK SMALL LETTER OMEGA WITH PSILI AND OXIA AND YPOGEGRAMMENI 01FA5 GREEK SMALL LETTER OMEGA WITH DASIA AND OXIA AND YPOGEGRAMMENI 01FA6 GREEK SMALL LETTER OMEGA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI 01FA7 GREEK SMALL LETTER OMEGA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI 01FA8 GREEK CAPITAL LETTER OMEGA WITH PSILI AND PROSGEGRAMMENI 01FA9 GREEK CAPITAL LETTER OMEGA WITH DASIA AND PROSGEGRAMMENI 01FAA GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA AND PROSGEGRAMMENI 01FAB GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA AND PROSGEGRAMMENI 01FAC GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA AND PROSGEGRAMMENI 01FAD GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA AND PROSGEGRAMMENI 01FAE GREEK CAPITAL LETTER OMEGA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI 01FAF GREEK CAPITAL LETTER OMEGA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI 01FB0 GREEK SMALL LETTER ALPHA WITH VRACHY 01FB1 GREEK SMALL LETTER ALPHA WITH MACRON 01FB2 GREEK SMALL LETTER ALPHA WITH VARIA AND YPOGEGRAMMENI 01FB3 GREEK SMALL LETTER ALPHA WITH YPOGEGRAMMENI 01FB4 GREEK SMALL LETTER ALPHA WITH OXIA AND YPOGEGRAMMENI 01FB6 GREEK SMALL LETTER ALPHA WITH PERISPOMENI 01FB7 GREEK SMALL LETTER ALPHA WITH PERISPOMENI AND YPOGEGRAMMENI 01FB8 GREEK CAPITAL LETTER ALPHA WITH VRACHY 01FB9 GREEK CAPITAL LETTER ALPHA WITH MACRON 01FBA GREEK CAPITAL LETTER ALPHA WITH VARIA 01FBB GREEK CAPITAL LETTER ALPHA WITH OXIA 01FBC GREEK CAPITAL LETTER ALPHA WITH PROSGEGRAMMENI 01FBD GREEK KORONIS 01FBE GREEK PROSGEGRAMMENI 01FBF GREEK PSILI 01FC0 GREEK PERISPOMENI 01FC1 GREEK DIALYTIKA AND PERISPOMENI 01FC2 GREEK SMALL LETTER ETA WITH VARIA AND YPOGEGRAMMENI 01FC3 GREEK SMALL LETTER ETA WITH YPOGEGRAMMENI 01FC4 GREEK SMALL LETTER ETA WITH OXIA AND YPOGEGRAMMENI 01FC6 GREEK SMALL LETTER ETA WITH PERISPOMENI 01FC7 GREEK SMALL LETTER ETA WITH PERISPOMENI AND YPOGEGRAMMENI 01FC8 GREEK CAPITAL LETTER EPSILON WITH VARIA 01FC9 GREEK CAPITAL LETTER EPSILON WITH OXIA 01FCA GREEK CAPITAL LETTER ETA WITH VARIA 01FCB GREEK CAPITAL LETTER ETA WITH OXIA 01FCC GREEK CAPITAL LETTER ETA WITH PROSGEGRAMMENI 01FCD GREEK PSILI AND VARIA 01FCE GREEK PSILI AND OXIA 01FCF GREEK PSILI AND PERISPOMENI 01FD0 GREEK SMALL LETTER IOTA WITH VRACHY 01FD1 GREEK SMALL LETTER IOTA WITH MACRON 01FD2 GREEK SMALL LETTER IOTA WITH DIALYTIKA AND VARIA 01FD3 GREEK SMALL LETTER IOTA WITH DIALYTIKA AND OXIA 01FD6 GREEK SMALL LETTER IOTA WITH PERISPOMENI 01FD7 GREEK SMALL LETTER IOTA WITH DIALYTIKA AND PERISPOMENI 01FD8 GREEK CAPITAL LETTER IOTA WITH VRACHY 01FD9 GREEK CAPITAL LETTER IOTA WITH MACRON 01FDA GREEK CAPITAL LETTER IOTA WITH VARIA 01FDB GREEK CAPITAL LETTER IOTA WITH OXIA 01FDD GREEK DASIA AND VARIA 01FDE GREEK DASIA AND OXIA 01FDF GREEK DASIA AND PERISPOMENI 01FE0 GREEK SMALL LETTER UPSILON WITH VRACHY 01FE1 GREEK SMALL LETTER UPSILON WITH MACRON 01FE2 GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND VARIA 01FE3 GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND OXIA 01FE4 GREEK SMALL LETTER RHO WITH PSILI 01FE5 GREEK SMALL LETTER RHO WITH DASIA 01FE6 GREEK SMALL LETTER UPSILON WITH PERISPOMENI 01FE7 GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND PERISPOMENI 01FE8 GREEK CAPITAL LETTER UPSILON WITH VRACHY 01FE9 GREEK CAPITAL LETTER UPSILON WITH MACRON 01FEA GREEK CAPITAL LETTER UPSILON WITH VARIA 01FEB GREEK CAPITAL LETTER UPSILON WITH OXIA 01FEC GREEK CAPITAL LETTER RHO WITH DASIA 01FED GREEK DIALYTIKA AND VARIA 01FEE GREEK DIALYTIKA AND OXIA 01FEF GREEK VARIA 01FF2 GREEK SMALL LETTER OMEGA WITH VARIA AND YPOGEGRAMMENI 01FF3 GREEK SMALL LETTER OMEGA WITH YPOGEGRAMMENI 01FF4 GREEK SMALL LETTER OMEGA WITH OXIA AND YPOGEGRAMMENI 01FF6 GREEK SMALL LETTER OMEGA WITH PERISPOMENI 01FF7 GREEK SMALL LETTER OMEGA WITH PERISPOMENI AND YPOGEGRAMMENI 01FF8 GREEK CAPITAL LETTER OMICRON WITH VARIA 01FF9 GREEK CAPITAL LETTER OMICRON WITH OXIA 01FFA GREEK CAPITAL LETTER OMEGA WITH VARIA 01FFB GREEK CAPITAL LETTER OMEGA WITH OXIA 01FFC GREEK CAPITAL LETTER OMEGA WITH PROSGEGRAMMENI 01FFD GREEK OXIA 01FFE GREEK DASIA 02000 EN QUAD 02001 EM QUAD 02002 EN SPACE 02003 EM SPACE 02004 THREE-PER-EM SPACE 02005 FOUR-PER-EM SPACE 02006 SIX-PER-EM SPACE 02007 FIGURE SPACE 02008 PUNCTUATION SPACE 02009 THIN SPACE 0200A HAIR SPACE 0200B ZERO WIDTH SPACE 0200B ZWSP 0200C ZERO WIDTH NON-JOINER 0200C ZWNJ 0200D ZERO WIDTH JOINER 0200D ZWJ 0200E LEFT-TO-RIGHT MARK 0200E LRM 0200F RIGHT-TO-LEFT MARK 0200F RLM 02010 HYPHEN 02011 NON-BREAKING HYPHEN 02012 FIGURE DASH 02013 EN DASH 02014 EM DASH 02015 HORIZONTAL BAR 02016 DOUBLE VERTICAL LINE 02017 DOUBLE LOW LINE 02018 LEFT SINGLE QUOTATION MARK 02019 RIGHT SINGLE QUOTATION MARK 0201A SINGLE LOW-9 QUOTATION MARK 0201B SINGLE HIGH-REVERSED-9 QUOTATION MARK 0201C LEFT DOUBLE QUOTATION MARK 0201D RIGHT DOUBLE QUOTATION MARK 0201E DOUBLE LOW-9 QUOTATION MARK 0201F DOUBLE HIGH-REVERSED-9 QUOTATION MARK 02020 DAGGER 02021 DOUBLE DAGGER 02022 BULLET 02023 TRIANGULAR BULLET 02024 ONE DOT LEADER 02025 TWO DOT LEADER 02026 HORIZONTAL ELLIPSIS 02027 HYPHENATION POINT 02028 LINE SEPARATOR 02029 PARAGRAPH SEPARATOR 0202A LEFT-TO-RIGHT EMBEDDING 0202A LRE 0202B RIGHT-TO-LEFT EMBEDDING 0202B RLE 0202C POP DIRECTIONAL FORMATTING 0202C PDF 0202D LEFT-TO-RIGHT OVERRIDE 0202D LRO 0202E RIGHT-TO-LEFT OVERRIDE 0202E RLO 0202F NARROW NO-BREAK SPACE 0202F NNBSP 02030 PER MILLE SIGN 02031 PER TEN THOUSAND SIGN 02032 PRIME 02033 DOUBLE PRIME 02034 TRIPLE PRIME 02035 REVERSED PRIME 02036 REVERSED DOUBLE PRIME 02037 REVERSED TRIPLE PRIME 02038 CARET 02039 SINGLE LEFT-POINTING ANGLE QUOTATION MARK 0203A SINGLE RIGHT-POINTING ANGLE QUOTATION MARK 0203B REFERENCE MARK 0203C DOUBLE EXCLAMATION MARK 0203D INTERROBANG 0203E OVERLINE 0203F UNDERTIE 02040 CHARACTER TIE 02041 CARET INSERTION POINT 02042 ASTERISM 02043 HYPHEN BULLET 02044 FRACTION SLASH 02045 LEFT SQUARE BRACKET WITH QUILL 02046 RIGHT SQUARE BRACKET WITH QUILL 02047 DOUBLE QUESTION MARK 02048 QUESTION EXCLAMATION MARK 02049 EXCLAMATION QUESTION MARK 0204A TIRONIAN SIGN ET 0204B REVERSED PILCROW SIGN 0204C BLACK LEFTWARDS BULLET 0204D BLACK RIGHTWARDS BULLET 0204E LOW ASTERISK 0204F REVERSED SEMICOLON 02050 CLOSE UP 02051 TWO ASTERISKS ALIGNED VERTICALLY 02052 COMMERCIAL MINUS SIGN 02053 SWUNG DASH 02054 INVERTED UNDERTIE 02055 FLOWER PUNCTUATION MARK 02056 THREE DOT PUNCTUATION 02057 QUADRUPLE PRIME 02058 FOUR DOT PUNCTUATION 02059 FIVE DOT PUNCTUATION 0205A TWO DOT PUNCTUATION 0205B FOUR DOT MARK 0205C DOTTED CROSS 0205D TRICOLON 0205E VERTICAL FOUR DOTS 0205F MEDIUM MATHEMATICAL SPACE 0205F MMSP 02060 WORD JOINER 02060 WJ 02061 FUNCTION APPLICATION 02062 INVISIBLE TIMES 02063 INVISIBLE SEPARATOR 02064 INVISIBLE PLUS 02066 LEFT-TO-RIGHT ISOLATE 02066 LRI 02067 RIGHT-TO-LEFT ISOLATE 02067 RLI 02068 FIRST STRONG ISOLATE 02068 FSI 02069 POP DIRECTIONAL ISOLATE 02069 PDI 0206A INHIBIT SYMMETRIC SWAPPING 0206B ACTIVATE SYMMETRIC SWAPPING 0206C INHIBIT ARABIC FORM SHAPING 0206D ACTIVATE ARABIC FORM SHAPING 0206E NATIONAL DIGIT SHAPES 0206F NOMINAL DIGIT SHAPES 02070 SUPERSCRIPT ZERO 02071 SUPERSCRIPT LATIN SMALL LETTER I 02074 SUPERSCRIPT FOUR 02075 SUPERSCRIPT FIVE 02076 SUPERSCRIPT SIX 02077 SUPERSCRIPT SEVEN 02078 SUPERSCRIPT EIGHT 02079 SUPERSCRIPT NINE 0207A SUPERSCRIPT PLUS SIGN 0207B SUPERSCRIPT MINUS 0207C SUPERSCRIPT EQUALS SIGN 0207D SUPERSCRIPT LEFT PARENTHESIS 0207E SUPERSCRIPT RIGHT PARENTHESIS 0207F SUPERSCRIPT LATIN SMALL LETTER N 02080 SUBSCRIPT ZERO 02081 SUBSCRIPT ONE 02082 SUBSCRIPT TWO 02083 SUBSCRIPT THREE 02084 SUBSCRIPT FOUR 02085 SUBSCRIPT FIVE 02086 SUBSCRIPT SIX 02087 SUBSCRIPT SEVEN 02088 SUBSCRIPT EIGHT 02089 SUBSCRIPT NINE 0208A SUBSCRIPT PLUS SIGN 0208B SUBSCRIPT MINUS 0208C SUBSCRIPT EQUALS SIGN 0208D SUBSCRIPT LEFT PARENTHESIS 0208E SUBSCRIPT RIGHT PARENTHESIS 02090 LATIN SUBSCRIPT SMALL LETTER A 02091 LATIN SUBSCRIPT SMALL LETTER E 02092 LATIN SUBSCRIPT SMALL LETTER O 02093 LATIN SUBSCRIPT SMALL LETTER X 02094 LATIN SUBSCRIPT SMALL LETTER SCHWA 02095 LATIN SUBSCRIPT SMALL LETTER H 02096 LATIN SUBSCRIPT SMALL LETTER K 02097 LATIN SUBSCRIPT SMALL LETTER L 02098 LATIN SUBSCRIPT SMALL LETTER M 02099 LATIN SUBSCRIPT SMALL LETTER N 0209A LATIN SUBSCRIPT SMALL LETTER P 0209B LATIN SUBSCRIPT SMALL LETTER S 0209C LATIN SUBSCRIPT SMALL LETTER T 020A0 EURO-CURRENCY SIGN 020A1 COLON SIGN 020A2 CRUZEIRO SIGN 020A3 FRENCH FRANC SIGN 020A4 LIRA SIGN 020A5 MILL SIGN 020A6 NAIRA SIGN 020A7 PESETA SIGN 020A8 RUPEE SIGN 020A9 WON SIGN 020AA NEW SHEQEL SIGN 020AB DONG SIGN 020AC EURO SIGN 020AD KIP SIGN 020AE TUGRIK SIGN 020AF DRACHMA SIGN 020B0 GERMAN PENNY SIGN 020B1 PESO SIGN 020B2 GUARANI SIGN 020B3 AUSTRAL SIGN 020B4 HRYVNIA SIGN 020B5 CEDI SIGN 020B6 LIVRE TOURNOIS SIGN 020B7 SPESMILO SIGN 020B8 TENGE SIGN 020B9 INDIAN RUPEE SIGN 020BA TURKISH LIRA SIGN 020BB NORDIC MARK SIGN 020BC MANAT SIGN 020BD RUBLE SIGN 020BE LARI SIGN 020BF BITCOIN SIGN 020D0 COMBINING LEFT HARPOON ABOVE 020D1 COMBINING RIGHT HARPOON ABOVE 020D2 COMBINING LONG VERTICAL LINE OVERLAY 020D3 COMBINING SHORT VERTICAL LINE OVERLAY 020D4 COMBINING ANTICLOCKWISE ARROW ABOVE 020D5 COMBINING CLOCKWISE ARROW ABOVE 020D6 COMBINING LEFT ARROW ABOVE 020D7 COMBINING RIGHT ARROW ABOVE 020D8 COMBINING RING OVERLAY 020D9 COMBINING CLOCKWISE RING OVERLAY 020DA COMBINING ANTICLOCKWISE RING OVERLAY 020DB COMBINING THREE DOTS ABOVE 020DC COMBINING FOUR DOTS ABOVE 020DD COMBINING ENCLOSING CIRCLE 020DE COMBINING ENCLOSING SQUARE 020DF COMBINING ENCLOSING DIAMOND 020E0 COMBINING ENCLOSING CIRCLE BACKSLASH 020E1 COMBINING LEFT RIGHT ARROW ABOVE 020E2 COMBINING ENCLOSING SCREEN 020E3 COMBINING ENCLOSING KEYCAP 020E4 COMBINING ENCLOSING UPWARD POINTING TRIANGLE 020E5 COMBINING REVERSE SOLIDUS OVERLAY 020E6 COMBINING DOUBLE VERTICAL STROKE OVERLAY 020E7 COMBINING ANNUITY SYMBOL 020E8 COMBINING TRIPLE UNDERDOT 020E9 COMBINING WIDE BRIDGE ABOVE 020EA COMBINING LEFTWARDS ARROW OVERLAY 020EB COMBINING LONG DOUBLE SOLIDUS OVERLAY 020EC COMBINING RIGHTWARDS HARPOON WITH BARB DOWNWARDS 020ED COMBINING LEFTWARDS HARPOON WITH BARB DOWNWARDS 020EE COMBINING LEFT ARROW BELOW 020EF COMBINING RIGHT ARROW BELOW 020F0 COMBINING ASTERISK ABOVE 02100 ACCOUNT OF 02101 ADDRESSED TO THE SUBJECT 02102 DOUBLE-STRUCK CAPITAL C 02103 DEGREE CELSIUS 02104 CENTRE LINE SYMBOL 02105 CARE OF 02106 CADA UNA 02107 EULER CONSTANT 02108 SCRUPLE 02109 DEGREE FAHRENHEIT 0210A SCRIPT SMALL G 0210B SCRIPT CAPITAL H 0210C BLACK-LETTER CAPITAL H 0210D DOUBLE-STRUCK CAPITAL H 0210E PLANCK CONSTANT 0210F PLANCK CONSTANT OVER TWO PI 02110 SCRIPT CAPITAL I 02111 BLACK-LETTER CAPITAL I 02112 SCRIPT CAPITAL L 02113 SCRIPT SMALL L 02114 L B BAR SYMBOL 02115 DOUBLE-STRUCK CAPITAL N 02116 NUMERO SIGN 02117 SOUND RECORDING COPYRIGHT 02118 WEIERSTRASS ELLIPTIC FUNCTION 02118 SCRIPT CAPITAL P 02119 DOUBLE-STRUCK CAPITAL P 0211A DOUBLE-STRUCK CAPITAL Q 0211B SCRIPT CAPITAL R 0211C BLACK-LETTER CAPITAL R 0211D DOUBLE-STRUCK CAPITAL R 0211E PRESCRIPTION TAKE 0211F RESPONSE 02120 SERVICE MARK 02121 TELEPHONE SIGN 02122 TRADE MARK SIGN 02123 VERSICLE 02124 DOUBLE-STRUCK CAPITAL Z 02125 OUNCE SIGN 02126 OHM SIGN 02127 INVERTED OHM SIGN 02128 BLACK-LETTER CAPITAL Z 02129 TURNED GREEK SMALL LETTER IOTA 0212A KELVIN SIGN 0212B ANGSTROM SIGN 0212C SCRIPT CAPITAL B 0212D BLACK-LETTER CAPITAL C 0212E ESTIMATED SYMBOL 0212F SCRIPT SMALL E 02130 SCRIPT CAPITAL E 02131 SCRIPT CAPITAL F 02132 TURNED CAPITAL F 02133 SCRIPT CAPITAL M 02134 SCRIPT SMALL O 02135 ALEF SYMBOL 02136 BET SYMBOL 02137 GIMEL SYMBOL 02138 DALET SYMBOL 02139 INFORMATION SOURCE 0213A ROTATED CAPITAL Q 0213B FACSIMILE SIGN 0213C DOUBLE-STRUCK SMALL PI 0213D DOUBLE-STRUCK SMALL GAMMA 0213E DOUBLE-STRUCK CAPITAL GAMMA 0213F DOUBLE-STRUCK CAPITAL PI 02140 DOUBLE-STRUCK N-ARY SUMMATION 02141 TURNED SANS-SERIF CAPITAL G 02142 TURNED SANS-SERIF CAPITAL L 02143 REVERSED SANS-SERIF CAPITAL L 02144 TURNED SANS-SERIF CAPITAL Y 02145 DOUBLE-STRUCK ITALIC CAPITAL D 02146 DOUBLE-STRUCK ITALIC SMALL D 02147 DOUBLE-STRUCK ITALIC SMALL E 02148 DOUBLE-STRUCK ITALIC SMALL I 02149 DOUBLE-STRUCK ITALIC SMALL J 0214A PROPERTY LINE 0214B TURNED AMPERSAND 0214C PER SIGN 0214D AKTIESELSKAB 0214E TURNED SMALL F 0214F SYMBOL FOR SAMARITAN SOURCE 02150 VULGAR FRACTION ONE SEVENTH 02151 VULGAR FRACTION ONE NINTH 02152 VULGAR FRACTION ONE TENTH 02153 VULGAR FRACTION ONE THIRD 02154 VULGAR FRACTION TWO THIRDS 02155 VULGAR FRACTION ONE FIFTH 02156 VULGAR FRACTION TWO FIFTHS 02157 VULGAR FRACTION THREE FIFTHS 02158 VULGAR FRACTION FOUR FIFTHS 02159 VULGAR FRACTION ONE SIXTH 0215A VULGAR FRACTION FIVE SIXTHS 0215B VULGAR FRACTION ONE EIGHTH 0215C VULGAR FRACTION THREE EIGHTHS 0215D VULGAR FRACTION FIVE EIGHTHS 0215E VULGAR FRACTION SEVEN EIGHTHS 0215F FRACTION NUMERATOR ONE 02160 ROMAN NUMERAL ONE 02161 ROMAN NUMERAL TWO 02162 ROMAN NUMERAL THREE 02163 ROMAN NUMERAL FOUR 02164 ROMAN NUMERAL FIVE 02165 ROMAN NUMERAL SIX 02166 ROMAN NUMERAL SEVEN 02167 ROMAN NUMERAL EIGHT 02168 ROMAN NUMERAL NINE 02169 ROMAN NUMERAL TEN 0216A ROMAN NUMERAL ELEVEN 0216B ROMAN NUMERAL TWELVE 0216C ROMAN NUMERAL FIFTY 0216D ROMAN NUMERAL ONE HUNDRED 0216E ROMAN NUMERAL FIVE HUNDRED 0216F ROMAN NUMERAL ONE THOUSAND 02170 SMALL ROMAN NUMERAL ONE 02171 SMALL ROMAN NUMERAL TWO 02172 SMALL ROMAN NUMERAL THREE 02173 SMALL ROMAN NUMERAL FOUR 02174 SMALL ROMAN NUMERAL FIVE 02175 SMALL ROMAN NUMERAL SIX 02176 SMALL ROMAN NUMERAL SEVEN 02177 SMALL ROMAN NUMERAL EIGHT 02178 SMALL ROMAN NUMERAL NINE 02179 SMALL ROMAN NUMERAL TEN 0217A SMALL ROMAN NUMERAL ELEVEN 0217B SMALL ROMAN NUMERAL TWELVE 0217C SMALL ROMAN NUMERAL FIFTY 0217D SMALL ROMAN NUMERAL ONE HUNDRED 0217E SMALL ROMAN NUMERAL FIVE HUNDRED 0217F SMALL ROMAN NUMERAL ONE THOUSAND 02180 ROMAN NUMERAL ONE THOUSAND C D 02181 ROMAN NUMERAL FIVE THOUSAND 02182 ROMAN NUMERAL TEN THOUSAND 02183 ROMAN NUMERAL REVERSED ONE HUNDRED 02184 LATIN SMALL LETTER REVERSED C 02185 ROMAN NUMERAL SIX LATE FORM 02186 ROMAN NUMERAL FIFTY EARLY FORM 02187 ROMAN NUMERAL FIFTY THOUSAND 02188 ROMAN NUMERAL ONE HUNDRED THOUSAND 02189 VULGAR FRACTION ZERO THIRDS 0218A TURNED DIGIT TWO 0218B TURNED DIGIT THREE 02190 LEFTWARDS ARROW 02191 UPWARDS ARROW 02192 RIGHTWARDS ARROW 02193 DOWNWARDS ARROW 02194 LEFT RIGHT ARROW 02195 UP DOWN ARROW 02196 NORTH WEST ARROW 02197 NORTH EAST ARROW 02198 SOUTH EAST ARROW 02199 SOUTH WEST ARROW 0219A LEFTWARDS ARROW WITH STROKE 0219B RIGHTWARDS ARROW WITH STROKE 0219C LEFTWARDS WAVE ARROW 0219D RIGHTWARDS WAVE ARROW 0219E LEFTWARDS TWO HEADED ARROW 0219F UPWARDS TWO HEADED ARROW 021A0 RIGHTWARDS TWO HEADED ARROW 021A1 DOWNWARDS TWO HEADED ARROW 021A2 LEFTWARDS ARROW WITH TAIL 021A3 RIGHTWARDS ARROW WITH TAIL 021A4 LEFTWARDS ARROW FROM BAR 021A5 UPWARDS ARROW FROM BAR 021A6 RIGHTWARDS ARROW FROM BAR 021A7 DOWNWARDS ARROW FROM BAR 021A8 UP DOWN ARROW WITH BASE 021A9 LEFTWARDS ARROW WITH HOOK 021AA RIGHTWARDS ARROW WITH HOOK 021AB LEFTWARDS ARROW WITH LOOP 021AC RIGHTWARDS ARROW WITH LOOP 021AD LEFT RIGHT WAVE ARROW 021AE LEFT RIGHT ARROW WITH STROKE 021AF DOWNWARDS ZIGZAG ARROW 021B0 UPWARDS ARROW WITH TIP LEFTWARDS 021B1 UPWARDS ARROW WITH TIP RIGHTWARDS 021B2 DOWNWARDS ARROW WITH TIP LEFTWARDS 021B3 DOWNWARDS ARROW WITH TIP RIGHTWARDS 021B4 RIGHTWARDS ARROW WITH CORNER DOWNWARDS 021B5 DOWNWARDS ARROW WITH CORNER LEFTWARDS 021B6 ANTICLOCKWISE TOP SEMICIRCLE ARROW 021B7 CLOCKWISE TOP SEMICIRCLE ARROW 021B8 NORTH WEST ARROW TO LONG BAR 021B9 LEFTWARDS ARROW TO BAR OVER RIGHTWARDS ARROW TO BAR 021BA ANTICLOCKWISE OPEN CIRCLE ARROW 021BB CLOCKWISE OPEN CIRCLE ARROW 021BC LEFTWARDS HARPOON WITH BARB UPWARDS 021BD LEFTWARDS HARPOON WITH BARB DOWNWARDS 021BE UPWARDS HARPOON WITH BARB RIGHTWARDS 021BF UPWARDS HARPOON WITH BARB LEFTWARDS 021C0 RIGHTWARDS HARPOON WITH BARB UPWARDS 021C1 RIGHTWARDS HARPOON WITH BARB DOWNWARDS 021C2 DOWNWARDS HARPOON WITH BARB RIGHTWARDS 021C3 DOWNWARDS HARPOON WITH BARB LEFTWARDS 021C4 RIGHTWARDS ARROW OVER LEFTWARDS ARROW 021C5 UPWARDS ARROW LEFTWARDS OF DOWNWARDS ARROW 021C6 LEFTWARDS ARROW OVER RIGHTWARDS ARROW 021C7 LEFTWARDS PAIRED ARROWS 021C8 UPWARDS PAIRED ARROWS 021C9 RIGHTWARDS PAIRED ARROWS 021CA DOWNWARDS PAIRED ARROWS 021CB LEFTWARDS HARPOON OVER RIGHTWARDS HARPOON 021CC RIGHTWARDS HARPOON OVER LEFTWARDS HARPOON 021CD LEFTWARDS DOUBLE ARROW WITH STROKE 021CE LEFT RIGHT DOUBLE ARROW WITH STROKE 021CF RIGHTWARDS DOUBLE ARROW WITH STROKE 021D0 LEFTWARDS DOUBLE ARROW 021D1 UPWARDS DOUBLE ARROW 021D2 RIGHTWARDS DOUBLE ARROW 021D3 DOWNWARDS DOUBLE ARROW 021D4 LEFT RIGHT DOUBLE ARROW 021D5 UP DOWN DOUBLE ARROW 021D6 NORTH WEST DOUBLE ARROW 021D7 NORTH EAST DOUBLE ARROW 021D8 SOUTH EAST DOUBLE ARROW 021D9 SOUTH WEST DOUBLE ARROW 021DA LEFTWARDS TRIPLE ARROW 021DB RIGHTWARDS TRIPLE ARROW 021DC LEFTWARDS SQUIGGLE ARROW 021DD RIGHTWARDS SQUIGGLE ARROW 021DE UPWARDS ARROW WITH DOUBLE STROKE 021DF DOWNWARDS ARROW WITH DOUBLE STROKE 021E0 LEFTWARDS DASHED ARROW 021E1 UPWARDS DASHED ARROW 021E2 RIGHTWARDS DASHED ARROW 021E3 DOWNWARDS DASHED ARROW 021E4 LEFTWARDS ARROW TO BAR 021E5 RIGHTWARDS ARROW TO BAR 021E6 LEFTWARDS WHITE ARROW 021E7 UPWARDS WHITE ARROW 021E8 RIGHTWARDS WHITE ARROW 021E9 DOWNWARDS WHITE ARROW 021EA UPWARDS WHITE ARROW FROM BAR 021EB UPWARDS WHITE ARROW ON PEDESTAL 021EC UPWARDS WHITE ARROW ON PEDESTAL WITH HORIZONTAL BAR 021ED UPWARDS WHITE ARROW ON PEDESTAL WITH VERTICAL BAR 021EE UPWARDS WHITE DOUBLE ARROW 021EF UPWARDS WHITE DOUBLE ARROW ON PEDESTAL 021F0 RIGHTWARDS WHITE ARROW FROM WALL 021F1 NORTH WEST ARROW TO CORNER 021F2 SOUTH EAST ARROW TO CORNER 021F3 UP DOWN WHITE ARROW 021F4 RIGHT ARROW WITH SMALL CIRCLE 021F5 DOWNWARDS ARROW LEFTWARDS OF UPWARDS ARROW 021F6 THREE RIGHTWARDS ARROWS 021F7 LEFTWARDS ARROW WITH VERTICAL STROKE 021F8 RIGHTWARDS ARROW WITH VERTICAL STROKE 021F9 LEFT RIGHT ARROW WITH VERTICAL STROKE 021FA LEFTWARDS ARROW WITH DOUBLE VERTICAL STROKE 021FB RIGHTWARDS ARROW WITH DOUBLE VERTICAL STROKE 021FC LEFT RIGHT ARROW WITH DOUBLE VERTICAL STROKE 021FD LEFTWARDS OPEN-HEADED ARROW 021FE RIGHTWARDS OPEN-HEADED ARROW 021FF LEFT RIGHT OPEN-HEADED ARROW 02200 FOR ALL 02201 COMPLEMENT 02202 PARTIAL DIFFERENTIAL 02203 THERE EXISTS 02204 THERE DOES NOT EXIST 02205 EMPTY SET 02206 INCREMENT 02207 NABLA 02208 ELEMENT OF 02209 NOT AN ELEMENT OF 0220A SMALL ELEMENT OF 0220B CONTAINS AS MEMBER 0220C DOES NOT CONTAIN AS MEMBER 0220D SMALL CONTAINS AS MEMBER 0220E END OF PROOF 0220F N-ARY PRODUCT 02210 N-ARY COPRODUCT 02211 N-ARY SUMMATION 02212 MINUS SIGN 02213 MINUS-OR-PLUS SIGN 02214 DOT PLUS 02215 DIVISION SLASH 02216 SET MINUS 02217 ASTERISK OPERATOR 02218 RING OPERATOR 02219 BULLET OPERATOR 0221A SQUARE ROOT 0221B CUBE ROOT 0221C FOURTH ROOT 0221D PROPORTIONAL TO 0221E INFINITY 0221F RIGHT ANGLE 02220 ANGLE 02221 MEASURED ANGLE 02222 SPHERICAL ANGLE 02223 DIVIDES 02224 DOES NOT DIVIDE 02225 PARALLEL TO 02226 NOT PARALLEL TO 02227 LOGICAL AND 02228 LOGICAL OR 02229 INTERSECTION 0222A UNION 0222B INTEGRAL 0222C DOUBLE INTEGRAL 0222D TRIPLE INTEGRAL 0222E CONTOUR INTEGRAL 0222F SURFACE INTEGRAL 02230 VOLUME INTEGRAL 02231 CLOCKWISE INTEGRAL 02232 CLOCKWISE CONTOUR INTEGRAL 02233 ANTICLOCKWISE CONTOUR INTEGRAL 02234 THEREFORE 02235 BECAUSE 02236 RATIO 02237 PROPORTION 02238 DOT MINUS 02239 EXCESS 0223A GEOMETRIC PROPORTION 0223B HOMOTHETIC 0223C TILDE OPERATOR 0223D REVERSED TILDE 0223E INVERTED LAZY S 0223F SINE WAVE 02240 WREATH PRODUCT 02241 NOT TILDE 02242 MINUS TILDE 02243 ASYMPTOTICALLY EQUAL TO 02244 NOT ASYMPTOTICALLY EQUAL TO 02245 APPROXIMATELY EQUAL TO 02246 APPROXIMATELY BUT NOT ACTUALLY EQUAL TO 02247 NEITHER APPROXIMATELY NOR ACTUALLY EQUAL TO 02248 ALMOST EQUAL TO 02249 NOT ALMOST EQUAL TO 0224A ALMOST EQUAL OR EQUAL TO 0224B TRIPLE TILDE 0224C ALL EQUAL TO 0224D EQUIVALENT TO 0224E GEOMETRICALLY EQUIVALENT TO 0224F DIFFERENCE BETWEEN 02250 APPROACHES THE LIMIT 02251 GEOMETRICALLY EQUAL TO 02252 APPROXIMATELY EQUAL TO OR THE IMAGE OF 02253 IMAGE OF OR APPROXIMATELY EQUAL TO 02254 COLON EQUALS 02255 EQUALS COLON 02256 RING IN EQUAL TO 02257 RING EQUAL TO 02258 CORRESPONDS TO 02259 ESTIMATES 0225A EQUIANGULAR TO 0225B STAR EQUALS 0225C DELTA EQUAL TO 0225D EQUAL TO BY DEFINITION 0225E MEASURED BY 0225F QUESTIONED EQUAL TO 02260 NOT EQUAL TO 02261 IDENTICAL TO 02262 NOT IDENTICAL TO 02263 STRICTLY EQUIVALENT TO 02264 LESS-THAN OR EQUAL TO 02265 GREATER-THAN OR EQUAL TO 02266 LESS-THAN OVER EQUAL TO 02267 GREATER-THAN OVER EQUAL TO 02268 LESS-THAN BUT NOT EQUAL TO 02269 GREATER-THAN BUT NOT EQUAL TO 0226A MUCH LESS-THAN 0226B MUCH GREATER-THAN 0226C BETWEEN 0226D NOT EQUIVALENT TO 0226E NOT LESS-THAN 0226F NOT GREATER-THAN 02270 NEITHER LESS-THAN NOR EQUAL TO 02271 NEITHER GREATER-THAN NOR EQUAL TO 02272 LESS-THAN OR EQUIVALENT TO 02273 GREATER-THAN OR EQUIVALENT TO 02274 NEITHER LESS-THAN NOR EQUIVALENT TO 02275 NEITHER GREATER-THAN NOR EQUIVALENT TO 02276 LESS-THAN OR GREATER-THAN 02277 GREATER-THAN OR LESS-THAN 02278 NEITHER LESS-THAN NOR GREATER-THAN 02279 NEITHER GREATER-THAN NOR LESS-THAN 0227A PRECEDES 0227B SUCCEEDS 0227C PRECEDES OR EQUAL TO 0227D SUCCEEDS OR EQUAL TO 0227E PRECEDES OR EQUIVALENT TO 0227F SUCCEEDS OR EQUIVALENT TO 02280 DOES NOT PRECEDE 02281 DOES NOT SUCCEED 02282 SUBSET OF 02283 SUPERSET OF 02284 NOT A SUBSET OF 02285 NOT A SUPERSET OF 02286 SUBSET OF OR EQUAL TO 02287 SUPERSET OF OR EQUAL TO 02288 NEITHER A SUBSET OF NOR EQUAL TO 02289 NEITHER A SUPERSET OF NOR EQUAL TO 0228A SUBSET OF WITH NOT EQUAL TO 0228B SUPERSET OF WITH NOT EQUAL TO 0228C MULTISET 0228D MULTISET MULTIPLICATION 0228E MULTISET UNION 0228F SQUARE IMAGE OF 02290 SQUARE ORIGINAL OF 02291 SQUARE IMAGE OF OR EQUAL TO 02292 SQUARE ORIGINAL OF OR EQUAL TO 02293 SQUARE CAP 02294 SQUARE CUP 02295 CIRCLED PLUS 02296 CIRCLED MINUS 02297 CIRCLED TIMES 02298 CIRCLED DIVISION SLASH 02299 CIRCLED DOT OPERATOR 0229A CIRCLED RING OPERATOR 0229B CIRCLED ASTERISK OPERATOR 0229C CIRCLED EQUALS 0229D CIRCLED DASH 0229E SQUARED PLUS 0229F SQUARED MINUS 022A0 SQUARED TIMES 022A1 SQUARED DOT OPERATOR 022A2 RIGHT TACK 022A3 LEFT TACK 022A4 DOWN TACK 022A5 UP TACK 022A6 ASSERTION 022A7 MODELS 022A8 TRUE 022A9 FORCES 022AA TRIPLE VERTICAL BAR RIGHT TURNSTILE 022AB DOUBLE VERTICAL BAR DOUBLE RIGHT TURNSTILE 022AC DOES NOT PROVE 022AD NOT TRUE 022AE DOES NOT FORCE 022AF NEGATED DOUBLE VERTICAL BAR DOUBLE RIGHT TURNSTILE 022B0 PRECEDES UNDER RELATION 022B1 SUCCEEDS UNDER RELATION 022B2 NORMAL SUBGROUP OF 022B3 CONTAINS AS NORMAL SUBGROUP 022B4 NORMAL SUBGROUP OF OR EQUAL TO 022B5 CONTAINS AS NORMAL SUBGROUP OR EQUAL TO 022B6 ORIGINAL OF 022B7 IMAGE OF 022B8 MULTIMAP 022B9 HERMITIAN CONJUGATE MATRIX 022BA INTERCALATE 022BB XOR 022BC NAND 022BD NOR 022BE RIGHT ANGLE WITH ARC 022BF RIGHT TRIANGLE 022C0 N-ARY LOGICAL AND 022C1 N-ARY LOGICAL OR 022C2 N-ARY INTERSECTION 022C3 N-ARY UNION 022C4 DIAMOND OPERATOR 022C5 DOT OPERATOR 022C6 STAR OPERATOR 022C7 DIVISION TIMES 022C8 BOWTIE 022C9 LEFT NORMAL FACTOR SEMIDIRECT PRODUCT 022CA RIGHT NORMAL FACTOR SEMIDIRECT PRODUCT 022CB LEFT SEMIDIRECT PRODUCT 022CC RIGHT SEMIDIRECT PRODUCT 022CD REVERSED TILDE EQUALS 022CE CURLY LOGICAL OR 022CF CURLY LOGICAL AND 022D0 DOUBLE SUBSET 022D1 DOUBLE SUPERSET 022D2 DOUBLE INTERSECTION 022D3 DOUBLE UNION 022D4 PITCHFORK 022D5 EQUAL AND PARALLEL TO 022D6 LESS-THAN WITH DOT 022D7 GREATER-THAN WITH DOT 022D8 VERY MUCH LESS-THAN 022D9 VERY MUCH GREATER-THAN 022DA LESS-THAN EQUAL TO OR GREATER-THAN 022DB GREATER-THAN EQUAL TO OR LESS-THAN 022DC EQUAL TO OR LESS-THAN 022DD EQUAL TO OR GREATER-THAN 022DE EQUAL TO OR PRECEDES 022DF EQUAL TO OR SUCCEEDS 022E0 DOES NOT PRECEDE OR EQUAL 022E1 DOES NOT SUCCEED OR EQUAL 022E2 NOT SQUARE IMAGE OF OR EQUAL TO 022E3 NOT SQUARE ORIGINAL OF OR EQUAL TO 022E4 SQUARE IMAGE OF OR NOT EQUAL TO 022E5 SQUARE ORIGINAL OF OR NOT EQUAL TO 022E6 LESS-THAN BUT NOT EQUIVALENT TO 022E7 GREATER-THAN BUT NOT EQUIVALENT TO 022E8 PRECEDES BUT NOT EQUIVALENT TO 022E9 SUCCEEDS BUT NOT EQUIVALENT TO 022EA NOT NORMAL SUBGROUP OF 022EB DOES NOT CONTAIN AS NORMAL SUBGROUP 022EC NOT NORMAL SUBGROUP OF OR EQUAL TO 022ED DOES NOT CONTAIN AS NORMAL SUBGROUP OR EQUAL 022EE VERTICAL ELLIPSIS 022EF MIDLINE HORIZONTAL ELLIPSIS 022F0 UP RIGHT DIAGONAL ELLIPSIS 022F1 DOWN RIGHT DIAGONAL ELLIPSIS 022F2 ELEMENT OF WITH LONG HORIZONTAL STROKE 022F3 ELEMENT OF WITH VERTICAL BAR AT END OF HORIZONTAL STROKE 022F4 SMALL ELEMENT OF WITH VERTICAL BAR AT END OF HORIZONTAL STROKE 022F5 ELEMENT OF WITH DOT ABOVE 022F6 ELEMENT OF WITH OVERBAR 022F7 SMALL ELEMENT OF WITH OVERBAR 022F8 ELEMENT OF WITH UNDERBAR 022F9 ELEMENT OF WITH TWO HORIZONTAL STROKES 022FA CONTAINS WITH LONG HORIZONTAL STROKE 022FB CONTAINS WITH VERTICAL BAR AT END OF HORIZONTAL STROKE 022FC SMALL CONTAINS WITH VERTICAL BAR AT END OF HORIZONTAL STROKE 022FD CONTAINS WITH OVERBAR 022FE SMALL CONTAINS WITH OVERBAR 022FF Z NOTATION BAG MEMBERSHIP 02300 DIAMETER SIGN 02301 ELECTRIC ARROW 02302 HOUSE 02303 UP ARROWHEAD 02304 DOWN ARROWHEAD 02305 PROJECTIVE 02306 PERSPECTIVE 02307 WAVY LINE 02308 LEFT CEILING 02309 RIGHT CEILING 0230A LEFT FLOOR 0230B RIGHT FLOOR 0230C BOTTOM RIGHT CROP 0230D BOTTOM LEFT CROP 0230E TOP RIGHT CROP 0230F TOP LEFT CROP 02310 REVERSED NOT SIGN 02311 SQUARE LOZENGE 02312 ARC 02313 SEGMENT 02314 SECTOR 02315 TELEPHONE RECORDER 02316 POSITION INDICATOR 02317 VIEWDATA SQUARE 02318 PLACE OF INTEREST SIGN 02319 TURNED NOT SIGN 0231A WATCH 0231B HOURGLASS 0231C TOP LEFT CORNER 0231D TOP RIGHT CORNER 0231E BOTTOM LEFT CORNER 0231F BOTTOM RIGHT CORNER 02320 TOP HALF INTEGRAL 02321 BOTTOM HALF INTEGRAL 02322 FROWN 02323 SMILE 02324 UP ARROWHEAD BETWEEN TWO HORIZONTAL BARS 02325 OPTION KEY 02326 ERASE TO THE RIGHT 02327 X IN A RECTANGLE BOX 02328 KEYBOARD 02329 LEFT-POINTING ANGLE BRACKET 0232A RIGHT-POINTING ANGLE BRACKET 0232B ERASE TO THE LEFT 0232C BENZENE RING 0232D CYLINDRICITY 0232E ALL AROUND-PROFILE 0232F SYMMETRY 02330 TOTAL RUNOUT 02331 DIMENSION ORIGIN 02332 CONICAL TAPER 02333 SLOPE 02334 COUNTERBORE 02335 COUNTERSINK 02336 APL FUNCTIONAL SYMBOL I-BEAM 02337 APL FUNCTIONAL SYMBOL SQUISH QUAD 02338 APL FUNCTIONAL SYMBOL QUAD EQUAL 02339 APL FUNCTIONAL SYMBOL QUAD DIVIDE 0233A APL FUNCTIONAL SYMBOL QUAD DIAMOND 0233B APL FUNCTIONAL SYMBOL QUAD JOT 0233C APL FUNCTIONAL SYMBOL QUAD CIRCLE 0233D APL FUNCTIONAL SYMBOL CIRCLE STILE 0233E APL FUNCTIONAL SYMBOL CIRCLE JOT 0233F APL FUNCTIONAL SYMBOL SLASH BAR 02340 APL FUNCTIONAL SYMBOL BACKSLASH BAR 02341 APL FUNCTIONAL SYMBOL QUAD SLASH 02342 APL FUNCTIONAL SYMBOL QUAD BACKSLASH 02343 APL FUNCTIONAL SYMBOL QUAD LESS-THAN 02344 APL FUNCTIONAL SYMBOL QUAD GREATER-THAN 02345 APL FUNCTIONAL SYMBOL LEFTWARDS VANE 02346 APL FUNCTIONAL SYMBOL RIGHTWARDS VANE 02347 APL FUNCTIONAL SYMBOL QUAD LEFTWARDS ARROW 02348 APL FUNCTIONAL SYMBOL QUAD RIGHTWARDS ARROW 02349 APL FUNCTIONAL SYMBOL CIRCLE BACKSLASH 0234A APL FUNCTIONAL SYMBOL DOWN TACK UNDERBAR 0234B APL FUNCTIONAL SYMBOL DELTA STILE 0234C APL FUNCTIONAL SYMBOL QUAD DOWN CARET 0234D APL FUNCTIONAL SYMBOL QUAD DELTA 0234E APL FUNCTIONAL SYMBOL DOWN TACK JOT 0234F APL FUNCTIONAL SYMBOL UPWARDS VANE 02350 APL FUNCTIONAL SYMBOL QUAD UPWARDS ARROW 02351 APL FUNCTIONAL SYMBOL UP TACK OVERBAR 02352 APL FUNCTIONAL SYMBOL DEL STILE 02353 APL FUNCTIONAL SYMBOL QUAD UP CARET 02354 APL FUNCTIONAL SYMBOL QUAD DEL 02355 APL FUNCTIONAL SYMBOL UP TACK JOT 02356 APL FUNCTIONAL SYMBOL DOWNWARDS VANE 02357 APL FUNCTIONAL SYMBOL QUAD DOWNWARDS ARROW 02358 APL FUNCTIONAL SYMBOL QUOTE UNDERBAR 02359 APL FUNCTIONAL SYMBOL DELTA UNDERBAR 0235A APL FUNCTIONAL SYMBOL DIAMOND UNDERBAR 0235B APL FUNCTIONAL SYMBOL JOT UNDERBAR 0235C APL FUNCTIONAL SYMBOL CIRCLE UNDERBAR 0235D APL FUNCTIONAL SYMBOL UP SHOE JOT 0235E APL FUNCTIONAL SYMBOL QUOTE QUAD 0235F APL FUNCTIONAL SYMBOL CIRCLE STAR 02360 APL FUNCTIONAL SYMBOL QUAD COLON 02361 APL FUNCTIONAL SYMBOL UP TACK DIAERESIS 02362 APL FUNCTIONAL SYMBOL DEL DIAERESIS 02363 APL FUNCTIONAL SYMBOL STAR DIAERESIS 02364 APL FUNCTIONAL SYMBOL JOT DIAERESIS 02365 APL FUNCTIONAL SYMBOL CIRCLE DIAERESIS 02366 APL FUNCTIONAL SYMBOL DOWN SHOE STILE 02367 APL FUNCTIONAL SYMBOL LEFT SHOE STILE 02368 APL FUNCTIONAL SYMBOL TILDE DIAERESIS 02369 APL FUNCTIONAL SYMBOL GREATER-THAN DIAERESIS 0236A APL FUNCTIONAL SYMBOL COMMA BAR 0236B APL FUNCTIONAL SYMBOL DEL TILDE 0236C APL FUNCTIONAL SYMBOL ZILDE 0236D APL FUNCTIONAL SYMBOL STILE TILDE 0236E APL FUNCTIONAL SYMBOL SEMICOLON UNDERBAR 0236F APL FUNCTIONAL SYMBOL QUAD NOT EQUAL 02370 APL FUNCTIONAL SYMBOL QUAD QUESTION 02371 APL FUNCTIONAL SYMBOL DOWN CARET TILDE 02372 APL FUNCTIONAL SYMBOL UP CARET TILDE 02373 APL FUNCTIONAL SYMBOL IOTA 02374 APL FUNCTIONAL SYMBOL RHO 02375 APL FUNCTIONAL SYMBOL OMEGA 02376 APL FUNCTIONAL SYMBOL ALPHA UNDERBAR 02377 APL FUNCTIONAL SYMBOL EPSILON UNDERBAR 02378 APL FUNCTIONAL SYMBOL IOTA UNDERBAR 02379 APL FUNCTIONAL SYMBOL OMEGA UNDERBAR 0237A APL FUNCTIONAL SYMBOL ALPHA 0237B NOT CHECK MARK 0237C RIGHT ANGLE WITH DOWNWARDS ZIGZAG ARROW 0237D SHOULDERED OPEN BOX 0237E BELL SYMBOL 0237F VERTICAL LINE WITH MIDDLE DOT 02380 INSERTION SYMBOL 02381 CONTINUOUS UNDERLINE SYMBOL 02382 DISCONTINUOUS UNDERLINE SYMBOL 02383 EMPHASIS SYMBOL 02384 COMPOSITION SYMBOL 02385 WHITE SQUARE WITH CENTRE VERTICAL LINE 02386 ENTER SYMBOL 02387 ALTERNATIVE KEY SYMBOL 02388 HELM SYMBOL 02389 CIRCLED HORIZONTAL BAR WITH NOTCH 0238A CIRCLED TRIANGLE DOWN 0238B BROKEN CIRCLE WITH NORTHWEST ARROW 0238C UNDO SYMBOL 0238D MONOSTABLE SYMBOL 0238E HYSTERESIS SYMBOL 0238F OPEN-CIRCUIT-OUTPUT H-TYPE SYMBOL 02390 OPEN-CIRCUIT-OUTPUT L-TYPE SYMBOL 02391 PASSIVE-PULL-DOWN-OUTPUT SYMBOL 02392 PASSIVE-PULL-UP-OUTPUT SYMBOL 02393 DIRECT CURRENT SYMBOL FORM TWO 02394 SOFTWARE-FUNCTION SYMBOL 02395 APL FUNCTIONAL SYMBOL QUAD 02396 DECIMAL SEPARATOR KEY SYMBOL 02397 PREVIOUS PAGE 02398 NEXT PAGE 02399 PRINT SCREEN SYMBOL 0239A CLEAR SCREEN SYMBOL 0239B LEFT PARENTHESIS UPPER HOOK 0239C LEFT PARENTHESIS EXTENSION 0239D LEFT PARENTHESIS LOWER HOOK 0239E RIGHT PARENTHESIS UPPER HOOK 0239F RIGHT PARENTHESIS EXTENSION 023A0 RIGHT PARENTHESIS LOWER HOOK 023A1 LEFT SQUARE BRACKET UPPER CORNER 023A2 LEFT SQUARE BRACKET EXTENSION 023A3 LEFT SQUARE BRACKET LOWER CORNER 023A4 RIGHT SQUARE BRACKET UPPER CORNER 023A5 RIGHT SQUARE BRACKET EXTENSION 023A6 RIGHT SQUARE BRACKET LOWER CORNER 023A7 LEFT CURLY BRACKET UPPER HOOK 023A8 LEFT CURLY BRACKET MIDDLE PIECE 023A9 LEFT CURLY BRACKET LOWER HOOK 023AA CURLY BRACKET EXTENSION 023AB RIGHT CURLY BRACKET UPPER HOOK 023AC RIGHT CURLY BRACKET MIDDLE PIECE 023AD RIGHT CURLY BRACKET LOWER HOOK 023AE INTEGRAL EXTENSION 023AF HORIZONTAL LINE EXTENSION 023B0 UPPER LEFT OR LOWER RIGHT CURLY BRACKET SECTION 023B1 UPPER RIGHT OR LOWER LEFT CURLY BRACKET SECTION 023B2 SUMMATION TOP 023B3 SUMMATION BOTTOM 023B4 TOP SQUARE BRACKET 023B5 BOTTOM SQUARE BRACKET 023B6 BOTTOM SQUARE BRACKET OVER TOP SQUARE BRACKET 023B7 RADICAL SYMBOL BOTTOM 023B8 LEFT VERTICAL BOX LINE 023B9 RIGHT VERTICAL BOX LINE 023BA HORIZONTAL SCAN LINE-1 023BB HORIZONTAL SCAN LINE-3 023BC HORIZONTAL SCAN LINE-7 023BD HORIZONTAL SCAN LINE-9 023BE DENTISTRY SYMBOL LIGHT VERTICAL AND TOP RIGHT 023BF DENTISTRY SYMBOL LIGHT VERTICAL AND BOTTOM RIGHT 023C0 DENTISTRY SYMBOL LIGHT VERTICAL WITH CIRCLE 023C1 DENTISTRY SYMBOL LIGHT DOWN AND HORIZONTAL WITH CIRCLE 023C2 DENTISTRY SYMBOL LIGHT UP AND HORIZONTAL WITH CIRCLE 023C3 DENTISTRY SYMBOL LIGHT VERTICAL WITH TRIANGLE 023C4 DENTISTRY SYMBOL LIGHT DOWN AND HORIZONTAL WITH TRIANGLE 023C5 DENTISTRY SYMBOL LIGHT UP AND HORIZONTAL WITH TRIANGLE 023C6 DENTISTRY SYMBOL LIGHT VERTICAL AND WAVE 023C7 DENTISTRY SYMBOL LIGHT DOWN AND HORIZONTAL WITH WAVE 023C8 DENTISTRY SYMBOL LIGHT UP AND HORIZONTAL WITH WAVE 023C9 DENTISTRY SYMBOL LIGHT DOWN AND HORIZONTAL 023CA DENTISTRY SYMBOL LIGHT UP AND HORIZONTAL 023CB DENTISTRY SYMBOL LIGHT VERTICAL AND TOP LEFT 023CC DENTISTRY SYMBOL LIGHT VERTICAL AND BOTTOM LEFT 023CD SQUARE FOOT 023CE RETURN SYMBOL 023CF EJECT SYMBOL 023D0 VERTICAL LINE EXTENSION 023D1 METRICAL BREVE 023D2 METRICAL LONG OVER SHORT 023D3 METRICAL SHORT OVER LONG 023D4 METRICAL LONG OVER TWO SHORTS 023D5 METRICAL TWO SHORTS OVER LONG 023D6 METRICAL TWO SHORTS JOINED 023D7 METRICAL TRISEME 023D8 METRICAL TETRASEME 023D9 METRICAL PENTASEME 023DA EARTH GROUND 023DB FUSE 023DC TOP PARENTHESIS 023DD BOTTOM PARENTHESIS 023DE TOP CURLY BRACKET 023DF BOTTOM CURLY BRACKET 023E0 TOP TORTOISE SHELL BRACKET 023E1 BOTTOM TORTOISE SHELL BRACKET 023E2 WHITE TRAPEZIUM 023E3 BENZENE RING WITH CIRCLE 023E4 STRAIGHTNESS 023E5 FLATNESS 023E6 AC CURRENT 023E7 ELECTRICAL INTERSECTION 023E8 DECIMAL EXPONENT SYMBOL 023E9 BLACK RIGHT-POINTING DOUBLE TRIANGLE 023EA BLACK LEFT-POINTING DOUBLE TRIANGLE 023EB BLACK UP-POINTING DOUBLE TRIANGLE 023EC BLACK DOWN-POINTING DOUBLE TRIANGLE 023ED BLACK RIGHT-POINTING DOUBLE TRIANGLE WITH VERTICAL BAR 023EE BLACK LEFT-POINTING DOUBLE TRIANGLE WITH VERTICAL BAR 023EF BLACK RIGHT-POINTING TRIANGLE WITH DOUBLE VERTICAL BAR 023F0 ALARM CLOCK 023F1 STOPWATCH 023F2 TIMER CLOCK 023F3 HOURGLASS WITH FLOWING SAND 023F4 BLACK MEDIUM LEFT-POINTING TRIANGLE 023F5 BLACK MEDIUM RIGHT-POINTING TRIANGLE 023F6 BLACK MEDIUM UP-POINTING TRIANGLE 023F7 BLACK MEDIUM DOWN-POINTING TRIANGLE 023F8 DOUBLE VERTICAL BAR 023F9 BLACK SQUARE FOR STOP 023FA BLACK CIRCLE FOR RECORD 023FB POWER SYMBOL 023FC POWER ON-OFF SYMBOL 023FD POWER ON SYMBOL 023FE POWER SLEEP SYMBOL 023FF OBSERVER EYE SYMBOL 02400 SYMBOL FOR NULL 02401 SYMBOL FOR START OF HEADING 02402 SYMBOL FOR START OF TEXT 02403 SYMBOL FOR END OF TEXT 02404 SYMBOL FOR END OF TRANSMISSION 02405 SYMBOL FOR ENQUIRY 02406 SYMBOL FOR ACKNOWLEDGE 02407 SYMBOL FOR BELL 02408 SYMBOL FOR BACKSPACE 02409 SYMBOL FOR HORIZONTAL TABULATION 0240A SYMBOL FOR LINE FEED 0240B SYMBOL FOR VERTICAL TABULATION 0240C SYMBOL FOR FORM FEED 0240D SYMBOL FOR CARRIAGE RETURN 0240E SYMBOL FOR SHIFT OUT 0240F SYMBOL FOR SHIFT IN 02410 SYMBOL FOR DATA LINK ESCAPE 02411 SYMBOL FOR DEVICE CONTROL ONE 02412 SYMBOL FOR DEVICE CONTROL TWO 02413 SYMBOL FOR DEVICE CONTROL THREE 02414 SYMBOL FOR DEVICE CONTROL FOUR 02415 SYMBOL FOR NEGATIVE ACKNOWLEDGE 02416 SYMBOL FOR SYNCHRONOUS IDLE 02417 SYMBOL FOR END OF TRANSMISSION BLOCK 02418 SYMBOL FOR CANCEL 02419 SYMBOL FOR END OF MEDIUM 0241A SYMBOL FOR SUBSTITUTE 0241B SYMBOL FOR ESCAPE 0241C SYMBOL FOR FILE SEPARATOR 0241D SYMBOL FOR GROUP SEPARATOR 0241E SYMBOL FOR RECORD SEPARATOR 0241F SYMBOL FOR UNIT SEPARATOR 02420 SYMBOL FOR SPACE 02421 SYMBOL FOR DELETE 02422 BLANK SYMBOL 02423 OPEN BOX 02424 SYMBOL FOR NEWLINE 02425 SYMBOL FOR DELETE FORM TWO 02426 SYMBOL FOR SUBSTITUTE FORM TWO 02440 OCR HOOK 02441 OCR CHAIR 02442 OCR FORK 02443 OCR INVERTED FORK 02444 OCR BELT BUCKLE 02445 OCR BOW TIE 02446 OCR BRANCH BANK IDENTIFICATION 02447 OCR AMOUNT OF CHECK 02448 MICR ON US SYMBOL 02448 OCR DASH 02449 MICR DASH SYMBOL 02449 OCR CUSTOMER ACCOUNT NUMBER 0244A OCR DOUBLE BACKSLASH 02460 CIRCLED DIGIT ONE 02461 CIRCLED DIGIT TWO 02462 CIRCLED DIGIT THREE 02463 CIRCLED DIGIT FOUR 02464 CIRCLED DIGIT FIVE 02465 CIRCLED DIGIT SIX 02466 CIRCLED DIGIT SEVEN 02467 CIRCLED DIGIT EIGHT 02468 CIRCLED DIGIT NINE 02469 CIRCLED NUMBER TEN 0246A CIRCLED NUMBER ELEVEN 0246B CIRCLED NUMBER TWELVE 0246C CIRCLED NUMBER THIRTEEN 0246D CIRCLED NUMBER FOURTEEN 0246E CIRCLED NUMBER FIFTEEN 0246F CIRCLED NUMBER SIXTEEN 02470 CIRCLED NUMBER SEVENTEEN 02471 CIRCLED NUMBER EIGHTEEN 02472 CIRCLED NUMBER NINETEEN 02473 CIRCLED NUMBER TWENTY 02474 PARENTHESIZED DIGIT ONE 02475 PARENTHESIZED DIGIT TWO 02476 PARENTHESIZED DIGIT THREE 02477 PARENTHESIZED DIGIT FOUR 02478 PARENTHESIZED DIGIT FIVE 02479 PARENTHESIZED DIGIT SIX 0247A PARENTHESIZED DIGIT SEVEN 0247B PARENTHESIZED DIGIT EIGHT 0247C PARENTHESIZED DIGIT NINE 0247D PARENTHESIZED NUMBER TEN 0247E PARENTHESIZED NUMBER ELEVEN 0247F PARENTHESIZED NUMBER TWELVE 02480 PARENTHESIZED NUMBER THIRTEEN 02481 PARENTHESIZED NUMBER FOURTEEN 02482 PARENTHESIZED NUMBER FIFTEEN 02483 PARENTHESIZED NUMBER SIXTEEN 02484 PARENTHESIZED NUMBER SEVENTEEN 02485 PARENTHESIZED NUMBER EIGHTEEN 02486 PARENTHESIZED NUMBER NINETEEN 02487 PARENTHESIZED NUMBER TWENTY 02488 DIGIT ONE FULL STOP 02489 DIGIT TWO FULL STOP 0248A DIGIT THREE FULL STOP 0248B DIGIT FOUR FULL STOP 0248C DIGIT FIVE FULL STOP 0248D DIGIT SIX FULL STOP 0248E DIGIT SEVEN FULL STOP 0248F DIGIT EIGHT FULL STOP 02490 DIGIT NINE FULL STOP 02491 NUMBER TEN FULL STOP 02492 NUMBER ELEVEN FULL STOP 02493 NUMBER TWELVE FULL STOP 02494 NUMBER THIRTEEN FULL STOP 02495 NUMBER FOURTEEN FULL STOP 02496 NUMBER FIFTEEN FULL STOP 02497 NUMBER SIXTEEN FULL STOP 02498 NUMBER SEVENTEEN FULL STOP 02499 NUMBER EIGHTEEN FULL STOP 0249A NUMBER NINETEEN FULL STOP 0249B NUMBER TWENTY FULL STOP 0249C PARENTHESIZED LATIN SMALL LETTER A 0249D PARENTHESIZED LATIN SMALL LETTER B 0249E PARENTHESIZED LATIN SMALL LETTER C 0249F PARENTHESIZED LATIN SMALL LETTER D 024A0 PARENTHESIZED LATIN SMALL LETTER E 024A1 PARENTHESIZED LATIN SMALL LETTER F 024A2 PARENTHESIZED LATIN SMALL LETTER G 024A3 PARENTHESIZED LATIN SMALL LETTER H 024A4 PARENTHESIZED LATIN SMALL LETTER I 024A5 PARENTHESIZED LATIN SMALL LETTER J 024A6 PARENTHESIZED LATIN SMALL LETTER K 024A7 PARENTHESIZED LATIN SMALL LETTER L 024A8 PARENTHESIZED LATIN SMALL LETTER M 024A9 PARENTHESIZED LATIN SMALL LETTER N 024AA PARENTHESIZED LATIN SMALL LETTER O 024AB PARENTHESIZED LATIN SMALL LETTER P 024AC PARENTHESIZED LATIN SMALL LETTER Q 024AD PARENTHESIZED LATIN SMALL LETTER R 024AE PARENTHESIZED LATIN SMALL LETTER S 024AF PARENTHESIZED LATIN SMALL LETTER T 024B0 PARENTHESIZED LATIN SMALL LETTER U 024B1 PARENTHESIZED LATIN SMALL LETTER V 024B2 PARENTHESIZED LATIN SMALL LETTER W 024B3 PARENTHESIZED LATIN SMALL LETTER X 024B4 PARENTHESIZED LATIN SMALL LETTER Y 024B5 PARENTHESIZED LATIN SMALL LETTER Z 024B6 CIRCLED LATIN CAPITAL LETTER A 024B7 CIRCLED LATIN CAPITAL LETTER B 024B8 CIRCLED LATIN CAPITAL LETTER C 024B9 CIRCLED LATIN CAPITAL LETTER D 024BA CIRCLED LATIN CAPITAL LETTER E 024BB CIRCLED LATIN CAPITAL LETTER F 024BC CIRCLED LATIN CAPITAL LETTER G 024BD CIRCLED LATIN CAPITAL LETTER H 024BE CIRCLED LATIN CAPITAL LETTER I 024BF CIRCLED LATIN CAPITAL LETTER J 024C0 CIRCLED LATIN CAPITAL LETTER K 024C1 CIRCLED LATIN CAPITAL LETTER L 024C2 CIRCLED LATIN CAPITAL LETTER M 024C3 CIRCLED LATIN CAPITAL LETTER N 024C4 CIRCLED LATIN CAPITAL LETTER O 024C5 CIRCLED LATIN CAPITAL LETTER P 024C6 CIRCLED LATIN CAPITAL LETTER Q 024C7 CIRCLED LATIN CAPITAL LETTER R 024C8 CIRCLED LATIN CAPITAL LETTER S 024C9 CIRCLED LATIN CAPITAL LETTER T 024CA CIRCLED LATIN CAPITAL LETTER U 024CB CIRCLED LATIN CAPITAL LETTER V 024CC CIRCLED LATIN CAPITAL LETTER W 024CD CIRCLED LATIN CAPITAL LETTER X 024CE CIRCLED LATIN CAPITAL LETTER Y 024CF CIRCLED LATIN CAPITAL LETTER Z 024D0 CIRCLED LATIN SMALL LETTER A 024D1 CIRCLED LATIN SMALL LETTER B 024D2 CIRCLED LATIN SMALL LETTER C 024D3 CIRCLED LATIN SMALL LETTER D 024D4 CIRCLED LATIN SMALL LETTER E 024D5 CIRCLED LATIN SMALL LETTER F 024D6 CIRCLED LATIN SMALL LETTER G 024D7 CIRCLED LATIN SMALL LETTER H 024D8 CIRCLED LATIN SMALL LETTER I 024D9 CIRCLED LATIN SMALL LETTER J 024DA CIRCLED LATIN SMALL LETTER K 024DB CIRCLED LATIN SMALL LETTER L 024DC CIRCLED LATIN SMALL LETTER M 024DD CIRCLED LATIN SMALL LETTER N 024DE CIRCLED LATIN SMALL LETTER O 024DF CIRCLED LATIN SMALL LETTER P 024E0 CIRCLED LATIN SMALL LETTER Q 024E1 CIRCLED LATIN SMALL LETTER R 024E2 CIRCLED LATIN SMALL LETTER S 024E3 CIRCLED LATIN SMALL LETTER T 024E4 CIRCLED LATIN SMALL LETTER U 024E5 CIRCLED LATIN SMALL LETTER V 024E6 CIRCLED LATIN SMALL LETTER W 024E7 CIRCLED LATIN SMALL LETTER X 024E8 CIRCLED LATIN SMALL LETTER Y 024E9 CIRCLED LATIN SMALL LETTER Z 024EA CIRCLED DIGIT ZERO 024EB NEGATIVE CIRCLED NUMBER ELEVEN 024EC NEGATIVE CIRCLED NUMBER TWELVE 024ED NEGATIVE CIRCLED NUMBER THIRTEEN 024EE NEGATIVE CIRCLED NUMBER FOURTEEN 024EF NEGATIVE CIRCLED NUMBER FIFTEEN 024F0 NEGATIVE CIRCLED NUMBER SIXTEEN 024F1 NEGATIVE CIRCLED NUMBER SEVENTEEN 024F2 NEGATIVE CIRCLED NUMBER EIGHTEEN 024F3 NEGATIVE CIRCLED NUMBER NINETEEN 024F4 NEGATIVE CIRCLED NUMBER TWENTY 024F5 DOUBLE CIRCLED DIGIT ONE 024F6 DOUBLE CIRCLED DIGIT TWO 024F7 DOUBLE CIRCLED DIGIT THREE 024F8 DOUBLE CIRCLED DIGIT FOUR 024F9 DOUBLE CIRCLED DIGIT FIVE 024FA DOUBLE CIRCLED DIGIT SIX 024FB DOUBLE CIRCLED DIGIT SEVEN 024FC DOUBLE CIRCLED DIGIT EIGHT 024FD DOUBLE CIRCLED DIGIT NINE 024FE DOUBLE CIRCLED NUMBER TEN 024FF NEGATIVE CIRCLED DIGIT ZERO 02500 BOX DRAWINGS LIGHT HORIZONTAL 02501 BOX DRAWINGS HEAVY HORIZONTAL 02502 BOX DRAWINGS LIGHT VERTICAL 02503 BOX DRAWINGS HEAVY VERTICAL 02504 BOX DRAWINGS LIGHT TRIPLE DASH HORIZONTAL 02505 BOX DRAWINGS HEAVY TRIPLE DASH HORIZONTAL 02506 BOX DRAWINGS LIGHT TRIPLE DASH VERTICAL 02507 BOX DRAWINGS HEAVY TRIPLE DASH VERTICAL 02508 BOX DRAWINGS LIGHT QUADRUPLE DASH HORIZONTAL 02509 BOX DRAWINGS HEAVY QUADRUPLE DASH HORIZONTAL 0250A BOX DRAWINGS LIGHT QUADRUPLE DASH VERTICAL 0250B BOX DRAWINGS HEAVY QUADRUPLE DASH VERTICAL 0250C BOX DRAWINGS LIGHT DOWN AND RIGHT 0250D BOX DRAWINGS DOWN LIGHT AND RIGHT HEAVY 0250E BOX DRAWINGS DOWN HEAVY AND RIGHT LIGHT 0250F BOX DRAWINGS HEAVY DOWN AND RIGHT 02510 BOX DRAWINGS LIGHT DOWN AND LEFT 02511 BOX DRAWINGS DOWN LIGHT AND LEFT HEAVY 02512 BOX DRAWINGS DOWN HEAVY AND LEFT LIGHT 02513 BOX DRAWINGS HEAVY DOWN AND LEFT 02514 BOX DRAWINGS LIGHT UP AND RIGHT 02515 BOX DRAWINGS UP LIGHT AND RIGHT HEAVY 02516 BOX DRAWINGS UP HEAVY AND RIGHT LIGHT 02517 BOX DRAWINGS HEAVY UP AND RIGHT 02518 BOX DRAWINGS LIGHT UP AND LEFT 02519 BOX DRAWINGS UP LIGHT AND LEFT HEAVY 0251A BOX DRAWINGS UP HEAVY AND LEFT LIGHT 0251B BOX DRAWINGS HEAVY UP AND LEFT 0251C BOX DRAWINGS LIGHT VERTICAL AND RIGHT 0251D BOX DRAWINGS VERTICAL LIGHT AND RIGHT HEAVY 0251E BOX DRAWINGS UP HEAVY AND RIGHT DOWN LIGHT 0251F BOX DRAWINGS DOWN HEAVY AND RIGHT UP LIGHT 02520 BOX DRAWINGS VERTICAL HEAVY AND RIGHT LIGHT 02521 BOX DRAWINGS DOWN LIGHT AND RIGHT UP HEAVY 02522 BOX DRAWINGS UP LIGHT AND RIGHT DOWN HEAVY 02523 BOX DRAWINGS HEAVY VERTICAL AND RIGHT 02524 BOX DRAWINGS LIGHT VERTICAL AND LEFT 02525 BOX DRAWINGS VERTICAL LIGHT AND LEFT HEAVY 02526 BOX DRAWINGS UP HEAVY AND LEFT DOWN LIGHT 02527 BOX DRAWINGS DOWN HEAVY AND LEFT UP LIGHT 02528 BOX DRAWINGS VERTICAL HEAVY AND LEFT LIGHT 02529 BOX DRAWINGS DOWN LIGHT AND LEFT UP HEAVY 0252A BOX DRAWINGS UP LIGHT AND LEFT DOWN HEAVY 0252B BOX DRAWINGS HEAVY VERTICAL AND LEFT 0252C BOX DRAWINGS LIGHT DOWN AND HORIZONTAL 0252D BOX DRAWINGS LEFT HEAVY AND RIGHT DOWN LIGHT 0252E BOX DRAWINGS RIGHT HEAVY AND LEFT DOWN LIGHT 0252F BOX DRAWINGS DOWN LIGHT AND HORIZONTAL HEAVY 02530 BOX DRAWINGS DOWN HEAVY AND HORIZONTAL LIGHT 02531 BOX DRAWINGS RIGHT LIGHT AND LEFT DOWN HEAVY 02532 BOX DRAWINGS LEFT LIGHT AND RIGHT DOWN HEAVY 02533 BOX DRAWINGS HEAVY DOWN AND HORIZONTAL 02534 BOX DRAWINGS LIGHT UP AND HORIZONTAL 02535 BOX DRAWINGS LEFT HEAVY AND RIGHT UP LIGHT 02536 BOX DRAWINGS RIGHT HEAVY AND LEFT UP LIGHT 02537 BOX DRAWINGS UP LIGHT AND HORIZONTAL HEAVY 02538 BOX DRAWINGS UP HEAVY AND HORIZONTAL LIGHT 02539 BOX DRAWINGS RIGHT LIGHT AND LEFT UP HEAVY 0253A BOX DRAWINGS LEFT LIGHT AND RIGHT UP HEAVY 0253B BOX DRAWINGS HEAVY UP AND HORIZONTAL 0253C BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL 0253D BOX DRAWINGS LEFT HEAVY AND RIGHT VERTICAL LIGHT 0253E BOX DRAWINGS RIGHT HEAVY AND LEFT VERTICAL LIGHT 0253F BOX DRAWINGS VERTICAL LIGHT AND HORIZONTAL HEAVY 02540 BOX DRAWINGS UP HEAVY AND DOWN HORIZONTAL LIGHT 02541 BOX DRAWINGS DOWN HEAVY AND UP HORIZONTAL LIGHT 02542 BOX DRAWINGS VERTICAL HEAVY AND HORIZONTAL LIGHT 02543 BOX DRAWINGS LEFT UP HEAVY AND RIGHT DOWN LIGHT 02544 BOX DRAWINGS RIGHT UP HEAVY AND LEFT DOWN LIGHT 02545 BOX DRAWINGS LEFT DOWN HEAVY AND RIGHT UP LIGHT 02546 BOX DRAWINGS RIGHT DOWN HEAVY AND LEFT UP LIGHT 02547 BOX DRAWINGS DOWN LIGHT AND UP HORIZONTAL HEAVY 02548 BOX DRAWINGS UP LIGHT AND DOWN HORIZONTAL HEAVY 02549 BOX DRAWINGS RIGHT LIGHT AND LEFT VERTICAL HEAVY 0254A BOX DRAWINGS LEFT LIGHT AND RIGHT VERTICAL HEAVY 0254B BOX DRAWINGS HEAVY VERTICAL AND HORIZONTAL 0254C BOX DRAWINGS LIGHT DOUBLE DASH HORIZONTAL 0254D BOX DRAWINGS HEAVY DOUBLE DASH HORIZONTAL 0254E BOX DRAWINGS LIGHT DOUBLE DASH VERTICAL 0254F BOX DRAWINGS HEAVY DOUBLE DASH VERTICAL 02550 BOX DRAWINGS DOUBLE HORIZONTAL 02551 BOX DRAWINGS DOUBLE VERTICAL 02552 BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE 02553 BOX DRAWINGS DOWN DOUBLE AND RIGHT SINGLE 02554 BOX DRAWINGS DOUBLE DOWN AND RIGHT 02555 BOX DRAWINGS DOWN SINGLE AND LEFT DOUBLE 02556 BOX DRAWINGS DOWN DOUBLE AND LEFT SINGLE 02557 BOX DRAWINGS DOUBLE DOWN AND LEFT 02558 BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE 02559 BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE 0255A BOX DRAWINGS DOUBLE UP AND RIGHT 0255B BOX DRAWINGS UP SINGLE AND LEFT DOUBLE 0255C BOX DRAWINGS UP DOUBLE AND LEFT SINGLE 0255D BOX DRAWINGS DOUBLE UP AND LEFT 0255E BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE 0255F BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE 02560 BOX DRAWINGS DOUBLE VERTICAL AND RIGHT 02561 BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE 02562 BOX DRAWINGS VERTICAL DOUBLE AND LEFT SINGLE 02563 BOX DRAWINGS DOUBLE VERTICAL AND LEFT 02564 BOX DRAWINGS DOWN SINGLE AND HORIZONTAL DOUBLE 02565 BOX DRAWINGS DOWN DOUBLE AND HORIZONTAL SINGLE 02566 BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL 02567 BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE 02568 BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE 02569 BOX DRAWINGS DOUBLE UP AND HORIZONTAL 0256A BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE 0256B BOX DRAWINGS VERTICAL DOUBLE AND HORIZONTAL SINGLE 0256C BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL 0256D BOX DRAWINGS LIGHT ARC DOWN AND RIGHT 0256E BOX DRAWINGS LIGHT ARC DOWN AND LEFT 0256F BOX DRAWINGS LIGHT ARC UP AND LEFT 02570 BOX DRAWINGS LIGHT ARC UP AND RIGHT 02571 BOX DRAWINGS LIGHT DIAGONAL UPPER RIGHT TO LOWER LEFT 02572 BOX DRAWINGS LIGHT DIAGONAL UPPER LEFT TO LOWER RIGHT 02573 BOX DRAWINGS LIGHT DIAGONAL CROSS 02574 BOX DRAWINGS LIGHT LEFT 02575 BOX DRAWINGS LIGHT UP 02576 BOX DRAWINGS LIGHT RIGHT 02577 BOX DRAWINGS LIGHT DOWN 02578 BOX DRAWINGS HEAVY LEFT 02579 BOX DRAWINGS HEAVY UP 0257A BOX DRAWINGS HEAVY RIGHT 0257B BOX DRAWINGS HEAVY DOWN 0257C BOX DRAWINGS LIGHT LEFT AND HEAVY RIGHT 0257D BOX DRAWINGS LIGHT UP AND HEAVY DOWN 0257E BOX DRAWINGS HEAVY LEFT AND LIGHT RIGHT 0257F BOX DRAWINGS HEAVY UP AND LIGHT DOWN 02580 UPPER HALF BLOCK 02581 LOWER ONE EIGHTH BLOCK 02582 LOWER ONE QUARTER BLOCK 02583 LOWER THREE EIGHTHS BLOCK 02584 LOWER HALF BLOCK 02585 LOWER FIVE EIGHTHS BLOCK 02586 LOWER THREE QUARTERS BLOCK 02587 LOWER SEVEN EIGHTHS BLOCK 02588 FULL BLOCK 02589 LEFT SEVEN EIGHTHS BLOCK 0258A LEFT THREE QUARTERS BLOCK 0258B LEFT FIVE EIGHTHS BLOCK 0258C LEFT HALF BLOCK 0258D LEFT THREE EIGHTHS BLOCK 0258E LEFT ONE QUARTER BLOCK 0258F LEFT ONE EIGHTH BLOCK 02590 RIGHT HALF BLOCK 02591 LIGHT SHADE 02592 MEDIUM SHADE 02593 DARK SHADE 02594 UPPER ONE EIGHTH BLOCK 02595 RIGHT ONE EIGHTH BLOCK 02596 QUADRANT LOWER LEFT 02597 QUADRANT LOWER RIGHT 02598 QUADRANT UPPER LEFT 02599 QUADRANT UPPER LEFT AND LOWER LEFT AND LOWER RIGHT 0259A QUADRANT UPPER LEFT AND LOWER RIGHT 0259B QUADRANT UPPER LEFT AND UPPER RIGHT AND LOWER LEFT 0259C QUADRANT UPPER LEFT AND UPPER RIGHT AND LOWER RIGHT 0259D QUADRANT UPPER RIGHT 0259E QUADRANT UPPER RIGHT AND LOWER LEFT 0259F QUADRANT UPPER RIGHT AND LOWER LEFT AND LOWER RIGHT 025A0 BLACK SQUARE 025A1 WHITE SQUARE 025A2 WHITE SQUARE WITH ROUNDED CORNERS 025A3 WHITE SQUARE CONTAINING BLACK SMALL SQUARE 025A4 SQUARE WITH HORIZONTAL FILL 025A5 SQUARE WITH VERTICAL FILL 025A6 SQUARE WITH ORTHOGONAL CROSSHATCH FILL 025A7 SQUARE WITH UPPER LEFT TO LOWER RIGHT FILL 025A8 SQUARE WITH UPPER RIGHT TO LOWER LEFT FILL 025A9 SQUARE WITH DIAGONAL CROSSHATCH FILL 025AA BLACK SMALL SQUARE 025AB WHITE SMALL SQUARE 025AC BLACK RECTANGLE 025AD WHITE RECTANGLE 025AE BLACK VERTICAL RECTANGLE 025AF WHITE VERTICAL RECTANGLE 025B0 BLACK PARALLELOGRAM 025B1 WHITE PARALLELOGRAM 025B2 BLACK UP-POINTING TRIANGLE 025B3 WHITE UP-POINTING TRIANGLE 025B4 BLACK UP-POINTING SMALL TRIANGLE 025B5 WHITE UP-POINTING SMALL TRIANGLE 025B6 BLACK RIGHT-POINTING TRIANGLE 025B7 WHITE RIGHT-POINTING TRIANGLE 025B8 BLACK RIGHT-POINTING SMALL TRIANGLE 025B9 WHITE RIGHT-POINTING SMALL TRIANGLE 025BA BLACK RIGHT-POINTING POINTER 025BB WHITE RIGHT-POINTING POINTER 025BC BLACK DOWN-POINTING TRIANGLE 025BD WHITE DOWN-POINTING TRIANGLE 025BE BLACK DOWN-POINTING SMALL TRIANGLE 025BF WHITE DOWN-POINTING SMALL TRIANGLE 025C0 BLACK LEFT-POINTING TRIANGLE 025C1 WHITE LEFT-POINTING TRIANGLE 025C2 BLACK LEFT-POINTING SMALL TRIANGLE 025C3 WHITE LEFT-POINTING SMALL TRIANGLE 025C4 BLACK LEFT-POINTING POINTER 025C5 WHITE LEFT-POINTING POINTER 025C6 BLACK DIAMOND 025C7 WHITE DIAMOND 025C8 WHITE DIAMOND CONTAINING BLACK SMALL DIAMOND 025C9 FISHEYE 025CA LOZENGE 025CB WHITE CIRCLE 025CC DOTTED CIRCLE 025CD CIRCLE WITH VERTICAL FILL 025CE BULLSEYE 025CF BLACK CIRCLE 025D0 CIRCLE WITH LEFT HALF BLACK 025D1 CIRCLE WITH RIGHT HALF BLACK 025D2 CIRCLE WITH LOWER HALF BLACK 025D3 CIRCLE WITH UPPER HALF BLACK 025D4 CIRCLE WITH UPPER RIGHT QUADRANT BLACK 025D5 CIRCLE WITH ALL BUT UPPER LEFT QUADRANT BLACK 025D6 LEFT HALF BLACK CIRCLE 025D7 RIGHT HALF BLACK CIRCLE 025D8 INVERSE BULLET 025D9 INVERSE WHITE CIRCLE 025DA UPPER HALF INVERSE WHITE CIRCLE 025DB LOWER HALF INVERSE WHITE CIRCLE 025DC UPPER LEFT QUADRANT CIRCULAR ARC 025DD UPPER RIGHT QUADRANT CIRCULAR ARC 025DE LOWER RIGHT QUADRANT CIRCULAR ARC 025DF LOWER LEFT QUADRANT CIRCULAR ARC 025E0 UPPER HALF CIRCLE 025E1 LOWER HALF CIRCLE 025E2 BLACK LOWER RIGHT TRIANGLE 025E3 BLACK LOWER LEFT TRIANGLE 025E4 BLACK UPPER LEFT TRIANGLE 025E5 BLACK UPPER RIGHT TRIANGLE 025E6 WHITE BULLET 025E7 SQUARE WITH LEFT HALF BLACK 025E8 SQUARE WITH RIGHT HALF BLACK 025E9 SQUARE WITH UPPER LEFT DIAGONAL HALF BLACK 025EA SQUARE WITH LOWER RIGHT DIAGONAL HALF BLACK 025EB WHITE SQUARE WITH VERTICAL BISECTING LINE 025EC WHITE UP-POINTING TRIANGLE WITH DOT 025ED UP-POINTING TRIANGLE WITH LEFT HALF BLACK 025EE UP-POINTING TRIANGLE WITH RIGHT HALF BLACK 025EF LARGE CIRCLE 025F0 WHITE SQUARE WITH UPPER LEFT QUADRANT 025F1 WHITE SQUARE WITH LOWER LEFT QUADRANT 025F2 WHITE SQUARE WITH LOWER RIGHT QUADRANT 025F3 WHITE SQUARE WITH UPPER RIGHT QUADRANT 025F4 WHITE CIRCLE WITH UPPER LEFT QUADRANT 025F5 WHITE CIRCLE WITH LOWER LEFT QUADRANT 025F6 WHITE CIRCLE WITH LOWER RIGHT QUADRANT 025F7 WHITE CIRCLE WITH UPPER RIGHT QUADRANT 025F8 UPPER LEFT TRIANGLE 025F9 UPPER RIGHT TRIANGLE 025FA LOWER LEFT TRIANGLE 025FB WHITE MEDIUM SQUARE 025FC BLACK MEDIUM SQUARE 025FD WHITE MEDIUM SMALL SQUARE 025FE BLACK MEDIUM SMALL SQUARE 025FF LOWER RIGHT TRIANGLE 02600 BLACK SUN WITH RAYS 02601 CLOUD 02602 UMBRELLA 02603 SNOWMAN 02604 COMET 02605 BLACK STAR 02606 WHITE STAR 02607 LIGHTNING 02608 THUNDERSTORM 02609 SUN 0260A ASCENDING NODE 0260B DESCENDING NODE 0260C CONJUNCTION 0260D OPPOSITION 0260E BLACK TELEPHONE 0260F WHITE TELEPHONE 02610 BALLOT BOX 02611 BALLOT BOX WITH CHECK 02612 BALLOT BOX WITH X 02613 SALTIRE 02614 UMBRELLA WITH RAIN DROPS 02615 HOT BEVERAGE 02616 WHITE SHOGI PIECE 02617 BLACK SHOGI PIECE 02618 SHAMROCK 02619 REVERSED ROTATED FLORAL HEART BULLET 0261A BLACK LEFT POINTING INDEX 0261B BLACK RIGHT POINTING INDEX 0261C WHITE LEFT POINTING INDEX 0261D WHITE UP POINTING INDEX 0261E WHITE RIGHT POINTING INDEX 0261F WHITE DOWN POINTING INDEX 02620 SKULL AND CROSSBONES 02621 CAUTION SIGN 02622 RADIOACTIVE SIGN 02623 BIOHAZARD SIGN 02624 CADUCEUS 02625 ANKH 02626 ORTHODOX CROSS 02627 CHI RHO 02628 CROSS OF LORRAINE 02629 CROSS OF JERUSALEM 0262A STAR AND CRESCENT 0262B FARSI SYMBOL 0262C ADI SHAKTI 0262D HAMMER AND SICKLE 0262E PEACE SYMBOL 0262F YIN YANG 02630 TRIGRAM FOR HEAVEN 02631 TRIGRAM FOR LAKE 02632 TRIGRAM FOR FIRE 02633 TRIGRAM FOR THUNDER 02634 TRIGRAM FOR WIND 02635 TRIGRAM FOR WATER 02636 TRIGRAM FOR MOUNTAIN 02637 TRIGRAM FOR EARTH 02638 WHEEL OF DHARMA 02639 WHITE FROWNING FACE 0263A WHITE SMILING FACE 0263B BLACK SMILING FACE 0263C WHITE SUN WITH RAYS 0263D FIRST QUARTER MOON 0263E LAST QUARTER MOON 0263F MERCURY 02640 FEMALE SIGN 02641 EARTH 02642 MALE SIGN 02643 JUPITER 02644 SATURN 02645 URANUS 02646 NEPTUNE 02647 PLUTO 02648 ARIES 02649 TAURUS 0264A GEMINI 0264B CANCER 0264C LEO 0264D VIRGO 0264E LIBRA 0264F SCORPIUS 02650 SAGITTARIUS 02651 CAPRICORN 02652 AQUARIUS 02653 PISCES 02654 WHITE CHESS KING 02655 WHITE CHESS QUEEN 02656 WHITE CHESS ROOK 02657 WHITE CHESS BISHOP 02658 WHITE CHESS KNIGHT 02659 WHITE CHESS PAWN 0265A BLACK CHESS KING 0265B BLACK CHESS QUEEN 0265C BLACK CHESS ROOK 0265D BLACK CHESS BISHOP 0265E BLACK CHESS KNIGHT 0265F BLACK CHESS PAWN 02660 BLACK SPADE SUIT 02661 WHITE HEART SUIT 02662 WHITE DIAMOND SUIT 02663 BLACK CLUB SUIT 02664 WHITE SPADE SUIT 02665 BLACK HEART SUIT 02666 BLACK DIAMOND SUIT 02667 WHITE CLUB SUIT 02668 HOT SPRINGS 02669 QUARTER NOTE 0266A EIGHTH NOTE 0266B BEAMED EIGHTH NOTES 0266C BEAMED SIXTEENTH NOTES 0266D MUSIC FLAT SIGN 0266E MUSIC NATURAL SIGN 0266F MUSIC SHARP SIGN 02670 WEST SYRIAC CROSS 02671 EAST SYRIAC CROSS 02672 UNIVERSAL RECYCLING SYMBOL 02673 RECYCLING SYMBOL FOR TYPE-1 PLASTICS 02674 RECYCLING SYMBOL FOR TYPE-2 PLASTICS 02675 RECYCLING SYMBOL FOR TYPE-3 PLASTICS 02676 RECYCLING SYMBOL FOR TYPE-4 PLASTICS 02677 RECYCLING SYMBOL FOR TYPE-5 PLASTICS 02678 RECYCLING SYMBOL FOR TYPE-6 PLASTICS 02679 RECYCLING SYMBOL FOR TYPE-7 PLASTICS 0267A RECYCLING SYMBOL FOR GENERIC MATERIALS 0267B BLACK UNIVERSAL RECYCLING SYMBOL 0267C RECYCLED PAPER SYMBOL 0267D PARTIALLY-RECYCLED PAPER SYMBOL 0267E PERMANENT PAPER SIGN 0267F WHEELCHAIR SYMBOL 02680 DIE FACE-1 02681 DIE FACE-2 02682 DIE FACE-3 02683 DIE FACE-4 02684 DIE FACE-5 02685 DIE FACE-6 02686 WHITE CIRCLE WITH DOT RIGHT 02687 WHITE CIRCLE WITH TWO DOTS 02688 BLACK CIRCLE WITH WHITE DOT RIGHT 02689 BLACK CIRCLE WITH TWO WHITE DOTS 0268A MONOGRAM FOR YANG 0268B MONOGRAM FOR YIN 0268C DIGRAM FOR GREATER YANG 0268D DIGRAM FOR LESSER YIN 0268E DIGRAM FOR LESSER YANG 0268F DIGRAM FOR GREATER YIN 02690 WHITE FLAG 02691 BLACK FLAG 02692 HAMMER AND PICK 02693 ANCHOR 02694 CROSSED SWORDS 02695 STAFF OF AESCULAPIUS 02696 SCALES 02697 ALEMBIC 02698 FLOWER 02699 GEAR 0269A STAFF OF HERMES 0269B ATOM SYMBOL 0269C FLEUR-DE-LIS 0269D OUTLINED WHITE STAR 0269E THREE LINES CONVERGING RIGHT 0269F THREE LINES CONVERGING LEFT 026A0 WARNING SIGN 026A1 HIGH VOLTAGE SIGN 026A2 DOUBLED FEMALE SIGN 026A3 DOUBLED MALE SIGN 026A4 INTERLOCKED FEMALE AND MALE SIGN 026A5 MALE AND FEMALE SIGN 026A6 MALE WITH STROKE SIGN 026A7 MALE WITH STROKE AND MALE AND FEMALE SIGN 026A8 VERTICAL MALE WITH STROKE SIGN 026A9 HORIZONTAL MALE WITH STROKE SIGN 026AA MEDIUM WHITE CIRCLE 026AB MEDIUM BLACK CIRCLE 026AC MEDIUM SMALL WHITE CIRCLE 026AD MARRIAGE SYMBOL 026AE DIVORCE SYMBOL 026AF UNMARRIED PARTNERSHIP SYMBOL 026B0 COFFIN 026B1 FUNERAL URN 026B2 NEUTER 026B3 CERES 026B4 PALLAS 026B5 JUNO 026B6 VESTA 026B7 CHIRON 026B8 BLACK MOON LILITH 026B9 SEXTILE 026BA SEMISEXTILE 026BB QUINCUNX 026BC SESQUIQUADRATE 026BD SOCCER BALL 026BE BASEBALL 026BF SQUARED KEY 026C0 WHITE DRAUGHTS MAN 026C1 WHITE DRAUGHTS KING 026C2 BLACK DRAUGHTS MAN 026C3 BLACK DRAUGHTS KING 026C4 SNOWMAN WITHOUT SNOW 026C5 SUN BEHIND CLOUD 026C6 RAIN 026C7 BLACK SNOWMAN 026C8 THUNDER CLOUD AND RAIN 026C9 TURNED WHITE SHOGI PIECE 026CA TURNED BLACK SHOGI PIECE 026CB WHITE DIAMOND IN SQUARE 026CC CROSSING LANES 026CD DISABLED CAR 026CE OPHIUCHUS 026CF PICK 026D0 CAR SLIDING 026D1 HELMET WITH WHITE CROSS 026D2 CIRCLED CROSSING LANES 026D3 CHAINS 026D4 NO ENTRY 026D5 ALTERNATE ONE-WAY LEFT WAY TRAFFIC 026D6 BLACK TWO-WAY LEFT WAY TRAFFIC 026D7 WHITE TWO-WAY LEFT WAY TRAFFIC 026D8 BLACK LEFT LANE MERGE 026D9 WHITE LEFT LANE MERGE 026DA DRIVE SLOW SIGN 026DB HEAVY WHITE DOWN-POINTING TRIANGLE 026DC LEFT CLOSED ENTRY 026DD SQUARED SALTIRE 026DE FALLING DIAGONAL IN WHITE CIRCLE IN BLACK SQUARE 026DF BLACK TRUCK 026E0 RESTRICTED LEFT ENTRY-1 026E1 RESTRICTED LEFT ENTRY-2 026E2 ASTRONOMICAL SYMBOL FOR URANUS 026E3 HEAVY CIRCLE WITH STROKE AND TWO DOTS ABOVE 026E4 PENTAGRAM 026E5 RIGHT-HANDED INTERLACED PENTAGRAM 026E6 LEFT-HANDED INTERLACED PENTAGRAM 026E7 INVERTED PENTAGRAM 026E8 BLACK CROSS ON SHIELD 026E9 SHINTO SHRINE 026EA CHURCH 026EB CASTLE 026EC HISTORIC SITE 026ED GEAR WITHOUT HUB 026EE GEAR WITH HANDLES 026EF MAP SYMBOL FOR LIGHTHOUSE 026F0 MOUNTAIN 026F1 UMBRELLA ON GROUND 026F2 FOUNTAIN 026F3 FLAG IN HOLE 026F4 FERRY 026F5 SAILBOAT 026F6 SQUARE FOUR CORNERS 026F7 SKIER 026F8 ICE SKATE 026F9 PERSON WITH BALL 026FA TENT 026FB JAPANESE BANK SYMBOL 026FC HEADSTONE GRAVEYARD SYMBOL 026FD FUEL PUMP 026FE CUP ON BLACK SQUARE 026FF WHITE FLAG WITH HORIZONTAL MIDDLE BLACK STRIPE 02700 BLACK SAFETY SCISSORS 02701 UPPER BLADE SCISSORS 02702 BLACK SCISSORS 02703 LOWER BLADE SCISSORS 02704 WHITE SCISSORS 02705 WHITE HEAVY CHECK MARK 02706 TELEPHONE LOCATION SIGN 02707 TAPE DRIVE 02708 AIRPLANE 02709 ENVELOPE 0270A RAISED FIST 0270B RAISED HAND 0270C VICTORY HAND 0270D WRITING HAND 0270E LOWER RIGHT PENCIL 0270F PENCIL 02710 UPPER RIGHT PENCIL 02711 WHITE NIB 02712 BLACK NIB 02713 CHECK MARK 02714 HEAVY CHECK MARK 02715 MULTIPLICATION X 02716 HEAVY MULTIPLICATION X 02717 BALLOT X 02718 HEAVY BALLOT X 02719 OUTLINED GREEK CROSS 0271A HEAVY GREEK CROSS 0271B OPEN CENTRE CROSS 0271C HEAVY OPEN CENTRE CROSS 0271D LATIN CROSS 0271E SHADOWED WHITE LATIN CROSS 0271F OUTLINED LATIN CROSS 02720 MALTESE CROSS 02721 STAR OF DAVID 02722 FOUR TEARDROP-SPOKED ASTERISK 02723 FOUR BALLOON-SPOKED ASTERISK 02724 HEAVY FOUR BALLOON-SPOKED ASTERISK 02725 FOUR CLUB-SPOKED ASTERISK 02726 BLACK FOUR POINTED STAR 02727 WHITE FOUR POINTED STAR 02728 SPARKLES 02729 STRESS OUTLINED WHITE STAR 0272A CIRCLED WHITE STAR 0272B OPEN CENTRE BLACK STAR 0272C BLACK CENTRE WHITE STAR 0272D OUTLINED BLACK STAR 0272E HEAVY OUTLINED BLACK STAR 0272F PINWHEEL STAR 02730 SHADOWED WHITE STAR 02731 HEAVY ASTERISK 02732 OPEN CENTRE ASTERISK 02733 EIGHT SPOKED ASTERISK 02734 EIGHT POINTED BLACK STAR 02735 EIGHT POINTED PINWHEEL STAR 02736 SIX POINTED BLACK STAR 02737 EIGHT POINTED RECTILINEAR BLACK STAR 02738 HEAVY EIGHT POINTED RECTILINEAR BLACK STAR 02739 TWELVE POINTED BLACK STAR 0273A SIXTEEN POINTED ASTERISK 0273B TEARDROP-SPOKED ASTERISK 0273C OPEN CENTRE TEARDROP-SPOKED ASTERISK 0273D HEAVY TEARDROP-SPOKED ASTERISK 0273E SIX PETALLED BLACK AND WHITE FLORETTE 0273F BLACK FLORETTE 02740 WHITE FLORETTE 02741 EIGHT PETALLED OUTLINED BLACK FLORETTE 02742 CIRCLED OPEN CENTRE EIGHT POINTED STAR 02743 HEAVY TEARDROP-SPOKED PINWHEEL ASTERISK 02744 SNOWFLAKE 02745 TIGHT TRIFOLIATE SNOWFLAKE 02746 HEAVY CHEVRON SNOWFLAKE 02747 SPARKLE 02748 HEAVY SPARKLE 02749 BALLOON-SPOKED ASTERISK 0274A EIGHT TEARDROP-SPOKED PROPELLER ASTERISK 0274B HEAVY EIGHT TEARDROP-SPOKED PROPELLER ASTERISK 0274C CROSS MARK 0274D SHADOWED WHITE CIRCLE 0274E NEGATIVE SQUARED CROSS MARK 0274F LOWER RIGHT DROP-SHADOWED WHITE SQUARE 02750 UPPER RIGHT DROP-SHADOWED WHITE SQUARE 02751 LOWER RIGHT SHADOWED WHITE SQUARE 02752 UPPER RIGHT SHADOWED WHITE SQUARE 02753 BLACK QUESTION MARK ORNAMENT 02754 WHITE QUESTION MARK ORNAMENT 02755 WHITE EXCLAMATION MARK ORNAMENT 02756 BLACK DIAMOND MINUS WHITE X 02757 HEAVY EXCLAMATION MARK SYMBOL 02758 LIGHT VERTICAL BAR 02759 MEDIUM VERTICAL BAR 0275A HEAVY VERTICAL BAR 0275B HEAVY SINGLE TURNED COMMA QUOTATION MARK ORNAMENT 0275C HEAVY SINGLE COMMA QUOTATION MARK ORNAMENT 0275D HEAVY DOUBLE TURNED COMMA QUOTATION MARK ORNAMENT 0275E HEAVY DOUBLE COMMA QUOTATION MARK ORNAMENT 0275F HEAVY LOW SINGLE COMMA QUOTATION MARK ORNAMENT 02760 HEAVY LOW DOUBLE COMMA QUOTATION MARK ORNAMENT 02761 CURVED STEM PARAGRAPH SIGN ORNAMENT 02762 HEAVY EXCLAMATION MARK ORNAMENT 02763 HEAVY HEART EXCLAMATION MARK ORNAMENT 02764 HEAVY BLACK HEART 02765 ROTATED HEAVY BLACK HEART BULLET 02766 FLORAL HEART 02767 ROTATED FLORAL HEART BULLET 02768 MEDIUM LEFT PARENTHESIS ORNAMENT 02769 MEDIUM RIGHT PARENTHESIS ORNAMENT 0276A MEDIUM FLATTENED LEFT PARENTHESIS ORNAMENT 0276B MEDIUM FLATTENED RIGHT PARENTHESIS ORNAMENT 0276C MEDIUM LEFT-POINTING ANGLE BRACKET ORNAMENT 0276D MEDIUM RIGHT-POINTING ANGLE BRACKET ORNAMENT 0276E HEAVY LEFT-POINTING ANGLE QUOTATION MARK ORNAMENT 0276F HEAVY RIGHT-POINTING ANGLE QUOTATION MARK ORNAMENT 02770 HEAVY LEFT-POINTING ANGLE BRACKET ORNAMENT 02771 HEAVY RIGHT-POINTING ANGLE BRACKET ORNAMENT 02772 LIGHT LEFT TORTOISE SHELL BRACKET ORNAMENT 02773 LIGHT RIGHT TORTOISE SHELL BRACKET ORNAMENT 02774 MEDIUM LEFT CURLY BRACKET ORNAMENT 02775 MEDIUM RIGHT CURLY BRACKET ORNAMENT 02776 DINGBAT NEGATIVE CIRCLED DIGIT ONE 02777 DINGBAT NEGATIVE CIRCLED DIGIT TWO 02778 DINGBAT NEGATIVE CIRCLED DIGIT THREE 02779 DINGBAT NEGATIVE CIRCLED DIGIT FOUR 0277A DINGBAT NEGATIVE CIRCLED DIGIT FIVE 0277B DINGBAT NEGATIVE CIRCLED DIGIT SIX 0277C DINGBAT NEGATIVE CIRCLED DIGIT SEVEN 0277D DINGBAT NEGATIVE CIRCLED DIGIT EIGHT 0277E DINGBAT NEGATIVE CIRCLED DIGIT NINE 0277F DINGBAT NEGATIVE CIRCLED NUMBER TEN 02780 DINGBAT CIRCLED SANS-SERIF DIGIT ONE 02781 DINGBAT CIRCLED SANS-SERIF DIGIT TWO 02782 DINGBAT CIRCLED SANS-SERIF DIGIT THREE 02783 DINGBAT CIRCLED SANS-SERIF DIGIT FOUR 02784 DINGBAT CIRCLED SANS-SERIF DIGIT FIVE 02785 DINGBAT CIRCLED SANS-SERIF DIGIT SIX 02786 DINGBAT CIRCLED SANS-SERIF DIGIT SEVEN 02787 DINGBAT CIRCLED SANS-SERIF DIGIT EIGHT 02788 DINGBAT CIRCLED SANS-SERIF DIGIT NINE 02789 DINGBAT CIRCLED SANS-SERIF NUMBER TEN 0278A DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT ONE 0278B DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT TWO 0278C DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT THREE 0278D DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT FOUR 0278E DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT FIVE 0278F DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT SIX 02790 DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT SEVEN 02791 DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT EIGHT 02792 DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT NINE 02793 DINGBAT NEGATIVE CIRCLED SANS-SERIF NUMBER TEN 02794 HEAVY WIDE-HEADED RIGHTWARDS ARROW 02795 HEAVY PLUS SIGN 02796 HEAVY MINUS SIGN 02797 HEAVY DIVISION SIGN 02798 HEAVY SOUTH EAST ARROW 02799 HEAVY RIGHTWARDS ARROW 0279A HEAVY NORTH EAST ARROW 0279B DRAFTING POINT RIGHTWARDS ARROW 0279C HEAVY ROUND-TIPPED RIGHTWARDS ARROW 0279D TRIANGLE-HEADED RIGHTWARDS ARROW 0279E HEAVY TRIANGLE-HEADED RIGHTWARDS ARROW 0279F DASHED TRIANGLE-HEADED RIGHTWARDS ARROW 027A0 HEAVY DASHED TRIANGLE-HEADED RIGHTWARDS ARROW 027A1 BLACK RIGHTWARDS ARROW 027A2 THREE-D TOP-LIGHTED RIGHTWARDS ARROWHEAD 027A3 THREE-D BOTTOM-LIGHTED RIGHTWARDS ARROWHEAD 027A4 BLACK RIGHTWARDS ARROWHEAD 027A5 HEAVY BLACK CURVED DOWNWARDS AND RIGHTWARDS ARROW 027A6 HEAVY BLACK CURVED UPWARDS AND RIGHTWARDS ARROW 027A7 SQUAT BLACK RIGHTWARDS ARROW 027A8 HEAVY CONCAVE-POINTED BLACK RIGHTWARDS ARROW 027A9 RIGHT-SHADED WHITE RIGHTWARDS ARROW 027AA LEFT-SHADED WHITE RIGHTWARDS ARROW 027AB BACK-TILTED SHADOWED WHITE RIGHTWARDS ARROW 027AC FRONT-TILTED SHADOWED WHITE RIGHTWARDS ARROW 027AD HEAVY LOWER RIGHT-SHADOWED WHITE RIGHTWARDS ARROW 027AE HEAVY UPPER RIGHT-SHADOWED WHITE RIGHTWARDS ARROW 027AF NOTCHED LOWER RIGHT-SHADOWED WHITE RIGHTWARDS ARROW 027B0 CURLY LOOP 027B1 NOTCHED UPPER RIGHT-SHADOWED WHITE RIGHTWARDS ARROW 027B2 CIRCLED HEAVY WHITE RIGHTWARDS ARROW 027B3 WHITE-FEATHERED RIGHTWARDS ARROW 027B4 BLACK-FEATHERED SOUTH EAST ARROW 027B5 BLACK-FEATHERED RIGHTWARDS ARROW 027B6 BLACK-FEATHERED NORTH EAST ARROW 027B7 HEAVY BLACK-FEATHERED SOUTH EAST ARROW 027B8 HEAVY BLACK-FEATHERED RIGHTWARDS ARROW 027B9 HEAVY BLACK-FEATHERED NORTH EAST ARROW 027BA TEARDROP-BARBED RIGHTWARDS ARROW 027BB HEAVY TEARDROP-SHANKED RIGHTWARDS ARROW 027BC WEDGE-TAILED RIGHTWARDS ARROW 027BD HEAVY WEDGE-TAILED RIGHTWARDS ARROW 027BE OPEN-OUTLINED RIGHTWARDS ARROW 027BF DOUBLE CURLY LOOP 027C0 THREE DIMENSIONAL ANGLE 027C1 WHITE TRIANGLE CONTAINING SMALL WHITE TRIANGLE 027C2 PERPENDICULAR 027C3 OPEN SUBSET 027C4 OPEN SUPERSET 027C5 LEFT S-SHAPED BAG DELIMITER 027C6 RIGHT S-SHAPED BAG DELIMITER 027C7 OR WITH DOT INSIDE 027C8 REVERSE SOLIDUS PRECEDING SUBSET 027C9 SUPERSET PRECEDING SOLIDUS 027CA VERTICAL BAR WITH HORIZONTAL STROKE 027CB MATHEMATICAL RISING DIAGONAL 027CC LONG DIVISION 027CD MATHEMATICAL FALLING DIAGONAL 027CE SQUARED LOGICAL AND 027CF SQUARED LOGICAL OR 027D0 WHITE DIAMOND WITH CENTRED DOT 027D1 AND WITH DOT 027D2 ELEMENT OF OPENING UPWARDS 027D3 LOWER RIGHT CORNER WITH DOT 027D4 UPPER LEFT CORNER WITH DOT 027D5 LEFT OUTER JOIN 027D6 RIGHT OUTER JOIN 027D7 FULL OUTER JOIN 027D8 LARGE UP TACK 027D9 LARGE DOWN TACK 027DA LEFT AND RIGHT DOUBLE TURNSTILE 027DB LEFT AND RIGHT TACK 027DC LEFT MULTIMAP 027DD LONG RIGHT TACK 027DE LONG LEFT TACK 027DF UP TACK WITH CIRCLE ABOVE 027E0 LOZENGE DIVIDED BY HORIZONTAL RULE 027E1 WHITE CONCAVE-SIDED DIAMOND 027E2 WHITE CONCAVE-SIDED DIAMOND WITH LEFTWARDS TICK 027E3 WHITE CONCAVE-SIDED DIAMOND WITH RIGHTWARDS TICK 027E4 WHITE SQUARE WITH LEFTWARDS TICK 027E5 WHITE SQUARE WITH RIGHTWARDS TICK 027E6 MATHEMATICAL LEFT WHITE SQUARE BRACKET 027E7 MATHEMATICAL RIGHT WHITE SQUARE BRACKET 027E8 MATHEMATICAL LEFT ANGLE BRACKET 027E9 MATHEMATICAL RIGHT ANGLE BRACKET 027EA MATHEMATICAL LEFT DOUBLE ANGLE BRACKET 027EB MATHEMATICAL RIGHT DOUBLE ANGLE BRACKET 027EC MATHEMATICAL LEFT WHITE TORTOISE SHELL BRACKET 027ED MATHEMATICAL RIGHT WHITE TORTOISE SHELL BRACKET 027EE MATHEMATICAL LEFT FLATTENED PARENTHESIS 027EF MATHEMATICAL RIGHT FLATTENED PARENTHESIS 027F0 UPWARDS QUADRUPLE ARROW 027F1 DOWNWARDS QUADRUPLE ARROW 027F2 ANTICLOCKWISE GAPPED CIRCLE ARROW 027F3 CLOCKWISE GAPPED CIRCLE ARROW 027F4 RIGHT ARROW WITH CIRCLED PLUS 027F5 LONG LEFTWARDS ARROW 027F6 LONG RIGHTWARDS ARROW 027F7 LONG LEFT RIGHT ARROW 027F8 LONG LEFTWARDS DOUBLE ARROW 027F9 LONG RIGHTWARDS DOUBLE ARROW 027FA LONG LEFT RIGHT DOUBLE ARROW 027FB LONG LEFTWARDS ARROW FROM BAR 027FC LONG RIGHTWARDS ARROW FROM BAR 027FD LONG LEFTWARDS DOUBLE ARROW FROM BAR 027FE LONG RIGHTWARDS DOUBLE ARROW FROM BAR 027FF LONG RIGHTWARDS SQUIGGLE ARROW 02800 BRAILLE PATTERN BLANK 02801 BRAILLE PATTERN DOTS-1 02802 BRAILLE PATTERN DOTS-2 02803 BRAILLE PATTERN DOTS-12 02804 BRAILLE PATTERN DOTS-3 02805 BRAILLE PATTERN DOTS-13 02806 BRAILLE PATTERN DOTS-23 02807 BRAILLE PATTERN DOTS-123 02808 BRAILLE PATTERN DOTS-4 02809 BRAILLE PATTERN DOTS-14 0280A BRAILLE PATTERN DOTS-24 0280B BRAILLE PATTERN DOTS-124 0280C BRAILLE PATTERN DOTS-34 0280D BRAILLE PATTERN DOTS-134 0280E BRAILLE PATTERN DOTS-234 0280F BRAILLE PATTERN DOTS-1234 02810 BRAILLE PATTERN DOTS-5 02811 BRAILLE PATTERN DOTS-15 02812 BRAILLE PATTERN DOTS-25 02813 BRAILLE PATTERN DOTS-125 02814 BRAILLE PATTERN DOTS-35 02815 BRAILLE PATTERN DOTS-135 02816 BRAILLE PATTERN DOTS-235 02817 BRAILLE PATTERN DOTS-1235 02818 BRAILLE PATTERN DOTS-45 02819 BRAILLE PATTERN DOTS-145 0281A BRAILLE PATTERN DOTS-245 0281B BRAILLE PATTERN DOTS-1245 0281C BRAILLE PATTERN DOTS-345 0281D BRAILLE PATTERN DOTS-1345 0281E BRAILLE PATTERN DOTS-2345 0281F BRAILLE PATTERN DOTS-12345 02820 BRAILLE PATTERN DOTS-6 02821 BRAILLE PATTERN DOTS-16 02822 BRAILLE PATTERN DOTS-26 02823 BRAILLE PATTERN DOTS-126 02824 BRAILLE PATTERN DOTS-36 02825 BRAILLE PATTERN DOTS-136 02826 BRAILLE PATTERN DOTS-236 02827 BRAILLE PATTERN DOTS-1236 02828 BRAILLE PATTERN DOTS-46 02829 BRAILLE PATTERN DOTS-146 0282A BRAILLE PATTERN DOTS-246 0282B BRAILLE PATTERN DOTS-1246 0282C BRAILLE PATTERN DOTS-346 0282D BRAILLE PATTERN DOTS-1346 0282E BRAILLE PATTERN DOTS-2346 0282F BRAILLE PATTERN DOTS-12346 02830 BRAILLE PATTERN DOTS-56 02831 BRAILLE PATTERN DOTS-156 02832 BRAILLE PATTERN DOTS-256 02833 BRAILLE PATTERN DOTS-1256 02834 BRAILLE PATTERN DOTS-356 02835 BRAILLE PATTERN DOTS-1356 02836 BRAILLE PATTERN DOTS-2356 02837 BRAILLE PATTERN DOTS-12356 02838 BRAILLE PATTERN DOTS-456 02839 BRAILLE PATTERN DOTS-1456 0283A BRAILLE PATTERN DOTS-2456 0283B BRAILLE PATTERN DOTS-12456 0283C BRAILLE PATTERN DOTS-3456 0283D BRAILLE PATTERN DOTS-13456 0283E BRAILLE PATTERN DOTS-23456 0283F BRAILLE PATTERN DOTS-123456 02840 BRAILLE PATTERN DOTS-7 02841 BRAILLE PATTERN DOTS-17 02842 BRAILLE PATTERN DOTS-27 02843 BRAILLE PATTERN DOTS-127 02844 BRAILLE PATTERN DOTS-37 02845 BRAILLE PATTERN DOTS-137 02846 BRAILLE PATTERN DOTS-237 02847 BRAILLE PATTERN DOTS-1237 02848 BRAILLE PATTERN DOTS-47 02849 BRAILLE PATTERN DOTS-147 0284A BRAILLE PATTERN DOTS-247 0284B BRAILLE PATTERN DOTS-1247 0284C BRAILLE PATTERN DOTS-347 0284D BRAILLE PATTERN DOTS-1347 0284E BRAILLE PATTERN DOTS-2347 0284F BRAILLE PATTERN DOTS-12347 02850 BRAILLE PATTERN DOTS-57 02851 BRAILLE PATTERN DOTS-157 02852 BRAILLE PATTERN DOTS-257 02853 BRAILLE PATTERN DOTS-1257 02854 BRAILLE PATTERN DOTS-357 02855 BRAILLE PATTERN DOTS-1357 02856 BRAILLE PATTERN DOTS-2357 02857 BRAILLE PATTERN DOTS-12357 02858 BRAILLE PATTERN DOTS-457 02859 BRAILLE PATTERN DOTS-1457 0285A BRAILLE PATTERN DOTS-2457 0285B BRAILLE PATTERN DOTS-12457 0285C BRAILLE PATTERN DOTS-3457 0285D BRAILLE PATTERN DOTS-13457 0285E BRAILLE PATTERN DOTS-23457 0285F BRAILLE PATTERN DOTS-123457 02860 BRAILLE PATTERN DOTS-67 02861 BRAILLE PATTERN DOTS-167 02862 BRAILLE PATTERN DOTS-267 02863 BRAILLE PATTERN DOTS-1267 02864 BRAILLE PATTERN DOTS-367 02865 BRAILLE PATTERN DOTS-1367 02866 BRAILLE PATTERN DOTS-2367 02867 BRAILLE PATTERN DOTS-12367 02868 BRAILLE PATTERN DOTS-467 02869 BRAILLE PATTERN DOTS-1467 0286A BRAILLE PATTERN DOTS-2467 0286B BRAILLE PATTERN DOTS-12467 0286C BRAILLE PATTERN DOTS-3467 0286D BRAILLE PATTERN DOTS-13467 0286E BRAILLE PATTERN DOTS-23467 0286F BRAILLE PATTERN DOTS-123467 02870 BRAILLE PATTERN DOTS-567 02871 BRAILLE PATTERN DOTS-1567 02872 BRAILLE PATTERN DOTS-2567 02873 BRAILLE PATTERN DOTS-12567 02874 BRAILLE PATTERN DOTS-3567 02875 BRAILLE PATTERN DOTS-13567 02876 BRAILLE PATTERN DOTS-23567 02877 BRAILLE PATTERN DOTS-123567 02878 BRAILLE PATTERN DOTS-4567 02879 BRAILLE PATTERN DOTS-14567 0287A BRAILLE PATTERN DOTS-24567 0287B BRAILLE PATTERN DOTS-124567 0287C BRAILLE PATTERN DOTS-34567 0287D BRAILLE PATTERN DOTS-134567 0287E BRAILLE PATTERN DOTS-234567 0287F BRAILLE PATTERN DOTS-1234567 02880 BRAILLE PATTERN DOTS-8 02881 BRAILLE PATTERN DOTS-18 02882 BRAILLE PATTERN DOTS-28 02883 BRAILLE PATTERN DOTS-128 02884 BRAILLE PATTERN DOTS-38 02885 BRAILLE PATTERN DOTS-138 02886 BRAILLE PATTERN DOTS-238 02887 BRAILLE PATTERN DOTS-1238 02888 BRAILLE PATTERN DOTS-48 02889 BRAILLE PATTERN DOTS-148 0288A BRAILLE PATTERN DOTS-248 0288B BRAILLE PATTERN DOTS-1248 0288C BRAILLE PATTERN DOTS-348 0288D BRAILLE PATTERN DOTS-1348 0288E BRAILLE PATTERN DOTS-2348 0288F BRAILLE PATTERN DOTS-12348 02890 BRAILLE PATTERN DOTS-58 02891 BRAILLE PATTERN DOTS-158 02892 BRAILLE PATTERN DOTS-258 02893 BRAILLE PATTERN DOTS-1258 02894 BRAILLE PATTERN DOTS-358 02895 BRAILLE PATTERN DOTS-1358 02896 BRAILLE PATTERN DOTS-2358 02897 BRAILLE PATTERN DOTS-12358 02898 BRAILLE PATTERN DOTS-458 02899 BRAILLE PATTERN DOTS-1458 0289A BRAILLE PATTERN DOTS-2458 0289B BRAILLE PATTERN DOTS-12458 0289C BRAILLE PATTERN DOTS-3458 0289D BRAILLE PATTERN DOTS-13458 0289E BRAILLE PATTERN DOTS-23458 0289F BRAILLE PATTERN DOTS-123458 028A0 BRAILLE PATTERN DOTS-68 028A1 BRAILLE PATTERN DOTS-168 028A2 BRAILLE PATTERN DOTS-268 028A3 BRAILLE PATTERN DOTS-1268 028A4 BRAILLE PATTERN DOTS-368 028A5 BRAILLE PATTERN DOTS-1368 028A6 BRAILLE PATTERN DOTS-2368 028A7 BRAILLE PATTERN DOTS-12368 028A8 BRAILLE PATTERN DOTS-468 028A9 BRAILLE PATTERN DOTS-1468 028AA BRAILLE PATTERN DOTS-2468 028AB BRAILLE PATTERN DOTS-12468 028AC BRAILLE PATTERN DOTS-3468 028AD BRAILLE PATTERN DOTS-13468 028AE BRAILLE PATTERN DOTS-23468 028AF BRAILLE PATTERN DOTS-123468 028B0 BRAILLE PATTERN DOTS-568 028B1 BRAILLE PATTERN DOTS-1568 028B2 BRAILLE PATTERN DOTS-2568 028B3 BRAILLE PATTERN DOTS-12568 028B4 BRAILLE PATTERN DOTS-3568 028B5 BRAILLE PATTERN DOTS-13568 028B6 BRAILLE PATTERN DOTS-23568 028B7 BRAILLE PATTERN DOTS-123568 028B8 BRAILLE PATTERN DOTS-4568 028B9 BRAILLE PATTERN DOTS-14568 028BA BRAILLE PATTERN DOTS-24568 028BB BRAILLE PATTERN DOTS-124568 028BC BRAILLE PATTERN DOTS-34568 028BD BRAILLE PATTERN DOTS-134568 028BE BRAILLE PATTERN DOTS-234568 028BF BRAILLE PATTERN DOTS-1234568 028C0 BRAILLE PATTERN DOTS-78 028C1 BRAILLE PATTERN DOTS-178 028C2 BRAILLE PATTERN DOTS-278 028C3 BRAILLE PATTERN DOTS-1278 028C4 BRAILLE PATTERN DOTS-378 028C5 BRAILLE PATTERN DOTS-1378 028C6 BRAILLE PATTERN DOTS-2378 028C7 BRAILLE PATTERN DOTS-12378 028C8 BRAILLE PATTERN DOTS-478 028C9 BRAILLE PATTERN DOTS-1478 028CA BRAILLE PATTERN DOTS-2478 028CB BRAILLE PATTERN DOTS-12478 028CC BRAILLE PATTERN DOTS-3478 028CD BRAILLE PATTERN DOTS-13478 028CE BRAILLE PATTERN DOTS-23478 028CF BRAILLE PATTERN DOTS-123478 028D0 BRAILLE PATTERN DOTS-578 028D1 BRAILLE PATTERN DOTS-1578 028D2 BRAILLE PATTERN DOTS-2578 028D3 BRAILLE PATTERN DOTS-12578 028D4 BRAILLE PATTERN DOTS-3578 028D5 BRAILLE PATTERN DOTS-13578 028D6 BRAILLE PATTERN DOTS-23578 028D7 BRAILLE PATTERN DOTS-123578 028D8 BRAILLE PATTERN DOTS-4578 028D9 BRAILLE PATTERN DOTS-14578 028DA BRAILLE PATTERN DOTS-24578 028DB BRAILLE PATTERN DOTS-124578 028DC BRAILLE PATTERN DOTS-34578 028DD BRAILLE PATTERN DOTS-134578 028DE BRAILLE PATTERN DOTS-234578 028DF BRAILLE PATTERN DOTS-1234578 028E0 BRAILLE PATTERN DOTS-678 028E1 BRAILLE PATTERN DOTS-1678 028E2 BRAILLE PATTERN DOTS-2678 028E3 BRAILLE PATTERN DOTS-12678 028E4 BRAILLE PATTERN DOTS-3678 028E5 BRAILLE PATTERN DOTS-13678 028E6 BRAILLE PATTERN DOTS-23678 028E7 BRAILLE PATTERN DOTS-123678 028E8 BRAILLE PATTERN DOTS-4678 028E9 BRAILLE PATTERN DOTS-14678 028EA BRAILLE PATTERN DOTS-24678 028EB BRAILLE PATTERN DOTS-124678 028EC BRAILLE PATTERN DOTS-34678 028ED BRAILLE PATTERN DOTS-134678 028EE BRAILLE PATTERN DOTS-234678 028EF BRAILLE PATTERN DOTS-1234678 028F0 BRAILLE PATTERN DOTS-5678 028F1 BRAILLE PATTERN DOTS-15678 028F2 BRAILLE PATTERN DOTS-25678 028F3 BRAILLE PATTERN DOTS-125678 028F4 BRAILLE PATTERN DOTS-35678 028F5 BRAILLE PATTERN DOTS-135678 028F6 BRAILLE PATTERN DOTS-235678 028F7 BRAILLE PATTERN DOTS-1235678 028F8 BRAILLE PATTERN DOTS-45678 028F9 BRAILLE PATTERN DOTS-145678 028FA BRAILLE PATTERN DOTS-245678 028FB BRAILLE PATTERN DOTS-1245678 028FC BRAILLE PATTERN DOTS-345678 028FD BRAILLE PATTERN DOTS-1345678 028FE BRAILLE PATTERN DOTS-2345678 028FF BRAILLE PATTERN DOTS-12345678 02900 RIGHTWARDS TWO-HEADED ARROW WITH VERTICAL STROKE 02901 RIGHTWARDS TWO-HEADED ARROW WITH DOUBLE VERTICAL STROKE 02902 LEFTWARDS DOUBLE ARROW WITH VERTICAL STROKE 02903 RIGHTWARDS DOUBLE ARROW WITH VERTICAL STROKE 02904 LEFT RIGHT DOUBLE ARROW WITH VERTICAL STROKE 02905 RIGHTWARDS TWO-HEADED ARROW FROM BAR 02906 LEFTWARDS DOUBLE ARROW FROM BAR 02907 RIGHTWARDS DOUBLE ARROW FROM BAR 02908 DOWNWARDS ARROW WITH HORIZONTAL STROKE 02909 UPWARDS ARROW WITH HORIZONTAL STROKE 0290A UPWARDS TRIPLE ARROW 0290B DOWNWARDS TRIPLE ARROW 0290C LEFTWARDS DOUBLE DASH ARROW 0290D RIGHTWARDS DOUBLE DASH ARROW 0290E LEFTWARDS TRIPLE DASH ARROW 0290F RIGHTWARDS TRIPLE DASH ARROW 02910 RIGHTWARDS TWO-HEADED TRIPLE DASH ARROW 02911 RIGHTWARDS ARROW WITH DOTTED STEM 02912 UPWARDS ARROW TO BAR 02913 DOWNWARDS ARROW TO BAR 02914 RIGHTWARDS ARROW WITH TAIL WITH VERTICAL STROKE 02915 RIGHTWARDS ARROW WITH TAIL WITH DOUBLE VERTICAL STROKE 02916 RIGHTWARDS TWO-HEADED ARROW WITH TAIL 02917 RIGHTWARDS TWO-HEADED ARROW WITH TAIL WITH VERTICAL STROKE 02918 RIGHTWARDS TWO-HEADED ARROW WITH TAIL WITH DOUBLE VERTICAL STROKE 02919 LEFTWARDS ARROW-TAIL 0291A RIGHTWARDS ARROW-TAIL 0291B LEFTWARDS DOUBLE ARROW-TAIL 0291C RIGHTWARDS DOUBLE ARROW-TAIL 0291D LEFTWARDS ARROW TO BLACK DIAMOND 0291E RIGHTWARDS ARROW TO BLACK DIAMOND 0291F LEFTWARDS ARROW FROM BAR TO BLACK DIAMOND 02920 RIGHTWARDS ARROW FROM BAR TO BLACK DIAMOND 02921 NORTH WEST AND SOUTH EAST ARROW 02922 NORTH EAST AND SOUTH WEST ARROW 02923 NORTH WEST ARROW WITH HOOK 02924 NORTH EAST ARROW WITH HOOK 02925 SOUTH EAST ARROW WITH HOOK 02926 SOUTH WEST ARROW WITH HOOK 02927 NORTH WEST ARROW AND NORTH EAST ARROW 02928 NORTH EAST ARROW AND SOUTH EAST ARROW 02929 SOUTH EAST ARROW AND SOUTH WEST ARROW 0292A SOUTH WEST ARROW AND NORTH WEST ARROW 0292B RISING DIAGONAL CROSSING FALLING DIAGONAL 0292C FALLING DIAGONAL CROSSING RISING DIAGONAL 0292D SOUTH EAST ARROW CROSSING NORTH EAST ARROW 0292E NORTH EAST ARROW CROSSING SOUTH EAST ARROW 0292F FALLING DIAGONAL CROSSING NORTH EAST ARROW 02930 RISING DIAGONAL CROSSING SOUTH EAST ARROW 02931 NORTH EAST ARROW CROSSING NORTH WEST ARROW 02932 NORTH WEST ARROW CROSSING NORTH EAST ARROW 02933 WAVE ARROW POINTING DIRECTLY RIGHT 02934 ARROW POINTING RIGHTWARDS THEN CURVING UPWARDS 02935 ARROW POINTING RIGHTWARDS THEN CURVING DOWNWARDS 02936 ARROW POINTING DOWNWARDS THEN CURVING LEFTWARDS 02937 ARROW POINTING DOWNWARDS THEN CURVING RIGHTWARDS 02938 RIGHT-SIDE ARC CLOCKWISE ARROW 02939 LEFT-SIDE ARC ANTICLOCKWISE ARROW 0293A TOP ARC ANTICLOCKWISE ARROW 0293B BOTTOM ARC ANTICLOCKWISE ARROW 0293C TOP ARC CLOCKWISE ARROW WITH MINUS 0293D TOP ARC ANTICLOCKWISE ARROW WITH PLUS 0293E LOWER RIGHT SEMICIRCULAR CLOCKWISE ARROW 0293F LOWER LEFT SEMICIRCULAR ANTICLOCKWISE ARROW 02940 ANTICLOCKWISE CLOSED CIRCLE ARROW 02941 CLOCKWISE CLOSED CIRCLE ARROW 02942 RIGHTWARDS ARROW ABOVE SHORT LEFTWARDS ARROW 02943 LEFTWARDS ARROW ABOVE SHORT RIGHTWARDS ARROW 02944 SHORT RIGHTWARDS ARROW ABOVE LEFTWARDS ARROW 02945 RIGHTWARDS ARROW WITH PLUS BELOW 02946 LEFTWARDS ARROW WITH PLUS BELOW 02947 RIGHTWARDS ARROW THROUGH X 02948 LEFT RIGHT ARROW THROUGH SMALL CIRCLE 02949 UPWARDS TWO-HEADED ARROW FROM SMALL CIRCLE 0294A LEFT BARB UP RIGHT BARB DOWN HARPOON 0294B LEFT BARB DOWN RIGHT BARB UP HARPOON 0294C UP BARB RIGHT DOWN BARB LEFT HARPOON 0294D UP BARB LEFT DOWN BARB RIGHT HARPOON 0294E LEFT BARB UP RIGHT BARB UP HARPOON 0294F UP BARB RIGHT DOWN BARB RIGHT HARPOON 02950 LEFT BARB DOWN RIGHT BARB DOWN HARPOON 02951 UP BARB LEFT DOWN BARB LEFT HARPOON 02952 LEFTWARDS HARPOON WITH BARB UP TO BAR 02953 RIGHTWARDS HARPOON WITH BARB UP TO BAR 02954 UPWARDS HARPOON WITH BARB RIGHT TO BAR 02955 DOWNWARDS HARPOON WITH BARB RIGHT TO BAR 02956 LEFTWARDS HARPOON WITH BARB DOWN TO BAR 02957 RIGHTWARDS HARPOON WITH BARB DOWN TO BAR 02958 UPWARDS HARPOON WITH BARB LEFT TO BAR 02959 DOWNWARDS HARPOON WITH BARB LEFT TO BAR 0295A LEFTWARDS HARPOON WITH BARB UP FROM BAR 0295B RIGHTWARDS HARPOON WITH BARB UP FROM BAR 0295C UPWARDS HARPOON WITH BARB RIGHT FROM BAR 0295D DOWNWARDS HARPOON WITH BARB RIGHT FROM BAR 0295E LEFTWARDS HARPOON WITH BARB DOWN FROM BAR 0295F RIGHTWARDS HARPOON WITH BARB DOWN FROM BAR 02960 UPWARDS HARPOON WITH BARB LEFT FROM BAR 02961 DOWNWARDS HARPOON WITH BARB LEFT FROM BAR 02962 LEFTWARDS HARPOON WITH BARB UP ABOVE LEFTWARDS HARPOON WITH BARB DOWN 02963 UPWARDS HARPOON WITH BARB LEFT BESIDE UPWARDS HARPOON WITH BARB RIGHT 02964 RIGHTWARDS HARPOON WITH BARB UP ABOVE RIGHTWARDS HARPOON WITH BARB DOWN 02965 DOWNWARDS HARPOON WITH BARB LEFT BESIDE DOWNWARDS HARPOON WITH BARB RIGHT 02966 LEFTWARDS HARPOON WITH BARB UP ABOVE RIGHTWARDS HARPOON WITH BARB UP 02967 LEFTWARDS HARPOON WITH BARB DOWN ABOVE RIGHTWARDS HARPOON WITH BARB DOWN 02968 RIGHTWARDS HARPOON WITH BARB UP ABOVE LEFTWARDS HARPOON WITH BARB UP 02969 RIGHTWARDS HARPOON WITH BARB DOWN ABOVE LEFTWARDS HARPOON WITH BARB DOWN 0296A LEFTWARDS HARPOON WITH BARB UP ABOVE LONG DASH 0296B LEFTWARDS HARPOON WITH BARB DOWN BELOW LONG DASH 0296C RIGHTWARDS HARPOON WITH BARB UP ABOVE LONG DASH 0296D RIGHTWARDS HARPOON WITH BARB DOWN BELOW LONG DASH 0296E UPWARDS HARPOON WITH BARB LEFT BESIDE DOWNWARDS HARPOON WITH BARB RIGHT 0296F DOWNWARDS HARPOON WITH BARB LEFT BESIDE UPWARDS HARPOON WITH BARB RIGHT 02970 RIGHT DOUBLE ARROW WITH ROUNDED HEAD 02971 EQUALS SIGN ABOVE RIGHTWARDS ARROW 02972 TILDE OPERATOR ABOVE RIGHTWARDS ARROW 02973 LEFTWARDS ARROW ABOVE TILDE OPERATOR 02974 RIGHTWARDS ARROW ABOVE TILDE OPERATOR 02975 RIGHTWARDS ARROW ABOVE ALMOST EQUAL TO 02976 LESS-THAN ABOVE LEFTWARDS ARROW 02977 LEFTWARDS ARROW THROUGH LESS-THAN 02978 GREATER-THAN ABOVE RIGHTWARDS ARROW 02979 SUBSET ABOVE RIGHTWARDS ARROW 0297A LEFTWARDS ARROW THROUGH SUBSET 0297B SUPERSET ABOVE LEFTWARDS ARROW 0297C LEFT FISH TAIL 0297D RIGHT FISH TAIL 0297E UP FISH TAIL 0297F DOWN FISH TAIL 02980 TRIPLE VERTICAL BAR DELIMITER 02981 Z NOTATION SPOT 02982 Z NOTATION TYPE COLON 02983 LEFT WHITE CURLY BRACKET 02984 RIGHT WHITE CURLY BRACKET 02985 LEFT WHITE PARENTHESIS 02986 RIGHT WHITE PARENTHESIS 02987 Z NOTATION LEFT IMAGE BRACKET 02988 Z NOTATION RIGHT IMAGE BRACKET 02989 Z NOTATION LEFT BINDING BRACKET 0298A Z NOTATION RIGHT BINDING BRACKET 0298B LEFT SQUARE BRACKET WITH UNDERBAR 0298C RIGHT SQUARE BRACKET WITH UNDERBAR 0298D LEFT SQUARE BRACKET WITH TICK IN TOP CORNER 0298E RIGHT SQUARE BRACKET WITH TICK IN BOTTOM CORNER 0298F LEFT SQUARE BRACKET WITH TICK IN BOTTOM CORNER 02990 RIGHT SQUARE BRACKET WITH TICK IN TOP CORNER 02991 LEFT ANGLE BRACKET WITH DOT 02992 RIGHT ANGLE BRACKET WITH DOT 02993 LEFT ARC LESS-THAN BRACKET 02994 RIGHT ARC GREATER-THAN BRACKET 02995 DOUBLE LEFT ARC GREATER-THAN BRACKET 02996 DOUBLE RIGHT ARC LESS-THAN BRACKET 02997 LEFT BLACK TORTOISE SHELL BRACKET 02998 RIGHT BLACK TORTOISE SHELL BRACKET 02999 DOTTED FENCE 0299A VERTICAL ZIGZAG LINE 0299B MEASURED ANGLE OPENING LEFT 0299C RIGHT ANGLE VARIANT WITH SQUARE 0299D MEASURED RIGHT ANGLE WITH DOT 0299E ANGLE WITH S INSIDE 0299F ACUTE ANGLE 029A0 SPHERICAL ANGLE OPENING LEFT 029A1 SPHERICAL ANGLE OPENING UP 029A2 TURNED ANGLE 029A3 REVERSED ANGLE 029A4 ANGLE WITH UNDERBAR 029A5 REVERSED ANGLE WITH UNDERBAR 029A6 OBLIQUE ANGLE OPENING UP 029A7 OBLIQUE ANGLE OPENING DOWN 029A8 MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING UP AND RIGHT 029A9 MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING UP AND LEFT 029AA MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING DOWN AND RIGHT 029AB MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING DOWN AND LEFT 029AC MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING RIGHT AND UP 029AD MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING LEFT AND UP 029AE MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING RIGHT AND DOWN 029AF MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING LEFT AND DOWN 029B0 REVERSED EMPTY SET 029B1 EMPTY SET WITH OVERBAR 029B2 EMPTY SET WITH SMALL CIRCLE ABOVE 029B3 EMPTY SET WITH RIGHT ARROW ABOVE 029B4 EMPTY SET WITH LEFT ARROW ABOVE 029B5 CIRCLE WITH HORIZONTAL BAR 029B6 CIRCLED VERTICAL BAR 029B7 CIRCLED PARALLEL 029B8 CIRCLED REVERSE SOLIDUS 029B9 CIRCLED PERPENDICULAR 029BA CIRCLE DIVIDED BY HORIZONTAL BAR AND TOP HALF DIVIDED BY VERTICAL BAR 029BB CIRCLE WITH SUPERIMPOSED X 029BC CIRCLED ANTICLOCKWISE-ROTATED DIVISION SIGN 029BD UP ARROW THROUGH CIRCLE 029BE CIRCLED WHITE BULLET 029BF CIRCLED BULLET 029C0 CIRCLED LESS-THAN 029C1 CIRCLED GREATER-THAN 029C2 CIRCLE WITH SMALL CIRCLE TO THE RIGHT 029C3 CIRCLE WITH TWO HORIZONTAL STROKES TO THE RIGHT 029C4 SQUARED RISING DIAGONAL SLASH 029C5 SQUARED FALLING DIAGONAL SLASH 029C6 SQUARED ASTERISK 029C7 SQUARED SMALL CIRCLE 029C8 SQUARED SQUARE 029C9 TWO JOINED SQUARES 029CA TRIANGLE WITH DOT ABOVE 029CB TRIANGLE WITH UNDERBAR 029CC S IN TRIANGLE 029CD TRIANGLE WITH SERIFS AT BOTTOM 029CE RIGHT TRIANGLE ABOVE LEFT TRIANGLE 029CF LEFT TRIANGLE BESIDE VERTICAL BAR 029D0 VERTICAL BAR BESIDE RIGHT TRIANGLE 029D1 BOWTIE WITH LEFT HALF BLACK 029D2 BOWTIE WITH RIGHT HALF BLACK 029D3 BLACK BOWTIE 029D4 TIMES WITH LEFT HALF BLACK 029D5 TIMES WITH RIGHT HALF BLACK 029D6 WHITE HOURGLASS 029D7 BLACK HOURGLASS 029D8 LEFT WIGGLY FENCE 029D9 RIGHT WIGGLY FENCE 029DA LEFT DOUBLE WIGGLY FENCE 029DB RIGHT DOUBLE WIGGLY FENCE 029DC INCOMPLETE INFINITY 029DD TIE OVER INFINITY 029DE INFINITY NEGATED WITH VERTICAL BAR 029DF DOUBLE-ENDED MULTIMAP 029E0 SQUARE WITH CONTOURED OUTLINE 029E1 INCREASES AS 029E2 SHUFFLE PRODUCT 029E3 EQUALS SIGN AND SLANTED PARALLEL 029E4 EQUALS SIGN AND SLANTED PARALLEL WITH TILDE ABOVE 029E5 IDENTICAL TO AND SLANTED PARALLEL 029E6 GLEICH STARK 029E7 THERMODYNAMIC 029E8 DOWN-POINTING TRIANGLE WITH LEFT HALF BLACK 029E9 DOWN-POINTING TRIANGLE WITH RIGHT HALF BLACK 029EA BLACK DIAMOND WITH DOWN ARROW 029EB BLACK LOZENGE 029EC WHITE CIRCLE WITH DOWN ARROW 029ED BLACK CIRCLE WITH DOWN ARROW 029EE ERROR-BARRED WHITE SQUARE 029EF ERROR-BARRED BLACK SQUARE 029F0 ERROR-BARRED WHITE DIAMOND 029F1 ERROR-BARRED BLACK DIAMOND 029F2 ERROR-BARRED WHITE CIRCLE 029F3 ERROR-BARRED BLACK CIRCLE 029F4 RULE-DELAYED 029F5 REVERSE SOLIDUS OPERATOR 029F6 SOLIDUS WITH OVERBAR 029F7 REVERSE SOLIDUS WITH HORIZONTAL STROKE 029F8 BIG SOLIDUS 029F9 BIG REVERSE SOLIDUS 029FA DOUBLE PLUS 029FB TRIPLE PLUS 029FC LEFT-POINTING CURVED ANGLE BRACKET 029FD RIGHT-POINTING CURVED ANGLE BRACKET 029FE TINY 029FF MINY 02A00 N-ARY CIRCLED DOT OPERATOR 02A01 N-ARY CIRCLED PLUS OPERATOR 02A02 N-ARY CIRCLED TIMES OPERATOR 02A03 N-ARY UNION OPERATOR WITH DOT 02A04 N-ARY UNION OPERATOR WITH PLUS 02A05 N-ARY SQUARE INTERSECTION OPERATOR 02A06 N-ARY SQUARE UNION OPERATOR 02A07 TWO LOGICAL AND OPERATOR 02A08 TWO LOGICAL OR OPERATOR 02A09 N-ARY TIMES OPERATOR 02A0A MODULO TWO SUM 02A0B SUMMATION WITH INTEGRAL 02A0C QUADRUPLE INTEGRAL OPERATOR 02A0D FINITE PART INTEGRAL 02A0E INTEGRAL WITH DOUBLE STROKE 02A0F INTEGRAL AVERAGE WITH SLASH 02A10 CIRCULATION FUNCTION 02A11 ANTICLOCKWISE INTEGRATION 02A12 LINE INTEGRATION WITH RECTANGULAR PATH AROUND POLE 02A13 LINE INTEGRATION WITH SEMICIRCULAR PATH AROUND POLE 02A14 LINE INTEGRATION NOT INCLUDING THE POLE 02A15 INTEGRAL AROUND A POINT OPERATOR 02A16 QUATERNION INTEGRAL OPERATOR 02A17 INTEGRAL WITH LEFTWARDS ARROW WITH HOOK 02A18 INTEGRAL WITH TIMES SIGN 02A19 INTEGRAL WITH INTERSECTION 02A1A INTEGRAL WITH UNION 02A1B INTEGRAL WITH OVERBAR 02A1C INTEGRAL WITH UNDERBAR 02A1D JOIN 02A1E LARGE LEFT TRIANGLE OPERATOR 02A1F Z NOTATION SCHEMA COMPOSITION 02A20 Z NOTATION SCHEMA PIPING 02A21 Z NOTATION SCHEMA PROJECTION 02A22 PLUS SIGN WITH SMALL CIRCLE ABOVE 02A23 PLUS SIGN WITH CIRCUMFLEX ACCENT ABOVE 02A24 PLUS SIGN WITH TILDE ABOVE 02A25 PLUS SIGN WITH DOT BELOW 02A26 PLUS SIGN WITH TILDE BELOW 02A27 PLUS SIGN WITH SUBSCRIPT TWO 02A28 PLUS SIGN WITH BLACK TRIANGLE 02A29 MINUS SIGN WITH COMMA ABOVE 02A2A MINUS SIGN WITH DOT BELOW 02A2B MINUS SIGN WITH FALLING DOTS 02A2C MINUS SIGN WITH RISING DOTS 02A2D PLUS SIGN IN LEFT HALF CIRCLE 02A2E PLUS SIGN IN RIGHT HALF CIRCLE 02A2F VECTOR OR CROSS PRODUCT 02A30 MULTIPLICATION SIGN WITH DOT ABOVE 02A31 MULTIPLICATION SIGN WITH UNDERBAR 02A32 SEMIDIRECT PRODUCT WITH BOTTOM CLOSED 02A33 SMASH PRODUCT 02A34 MULTIPLICATION SIGN IN LEFT HALF CIRCLE 02A35 MULTIPLICATION SIGN IN RIGHT HALF CIRCLE 02A36 CIRCLED MULTIPLICATION SIGN WITH CIRCUMFLEX ACCENT 02A37 MULTIPLICATION SIGN IN DOUBLE CIRCLE 02A38 CIRCLED DIVISION SIGN 02A39 PLUS SIGN IN TRIANGLE 02A3A MINUS SIGN IN TRIANGLE 02A3B MULTIPLICATION SIGN IN TRIANGLE 02A3C INTERIOR PRODUCT 02A3D RIGHTHAND INTERIOR PRODUCT 02A3E Z NOTATION RELATIONAL COMPOSITION 02A3F AMALGAMATION OR COPRODUCT 02A40 INTERSECTION WITH DOT 02A41 UNION WITH MINUS SIGN 02A42 UNION WITH OVERBAR 02A43 INTERSECTION WITH OVERBAR 02A44 INTERSECTION WITH LOGICAL AND 02A45 UNION WITH LOGICAL OR 02A46 UNION ABOVE INTERSECTION 02A47 INTERSECTION ABOVE UNION 02A48 UNION ABOVE BAR ABOVE INTERSECTION 02A49 INTERSECTION ABOVE BAR ABOVE UNION 02A4A UNION BESIDE AND JOINED WITH UNION 02A4B INTERSECTION BESIDE AND JOINED WITH INTERSECTION 02A4C CLOSED UNION WITH SERIFS 02A4D CLOSED INTERSECTION WITH SERIFS 02A4E DOUBLE SQUARE INTERSECTION 02A4F DOUBLE SQUARE UNION 02A50 CLOSED UNION WITH SERIFS AND SMASH PRODUCT 02A51 LOGICAL AND WITH DOT ABOVE 02A52 LOGICAL OR WITH DOT ABOVE 02A53 DOUBLE LOGICAL AND 02A54 DOUBLE LOGICAL OR 02A55 TWO INTERSECTING LOGICAL AND 02A56 TWO INTERSECTING LOGICAL OR 02A57 SLOPING LARGE OR 02A58 SLOPING LARGE AND 02A59 LOGICAL OR OVERLAPPING LOGICAL AND 02A5A LOGICAL AND WITH MIDDLE STEM 02A5B LOGICAL OR WITH MIDDLE STEM 02A5C LOGICAL AND WITH HORIZONTAL DASH 02A5D LOGICAL OR WITH HORIZONTAL DASH 02A5E LOGICAL AND WITH DOUBLE OVERBAR 02A5F LOGICAL AND WITH UNDERBAR 02A60 LOGICAL AND WITH DOUBLE UNDERBAR 02A61 SMALL VEE WITH UNDERBAR 02A62 LOGICAL OR WITH DOUBLE OVERBAR 02A63 LOGICAL OR WITH DOUBLE UNDERBAR 02A64 Z NOTATION DOMAIN ANTIRESTRICTION 02A65 Z NOTATION RANGE ANTIRESTRICTION 02A66 EQUALS SIGN WITH DOT BELOW 02A67 IDENTICAL WITH DOT ABOVE 02A68 TRIPLE HORIZONTAL BAR WITH DOUBLE VERTICAL STROKE 02A69 TRIPLE HORIZONTAL BAR WITH TRIPLE VERTICAL STROKE 02A6A TILDE OPERATOR WITH DOT ABOVE 02A6B TILDE OPERATOR WITH RISING DOTS 02A6C SIMILAR MINUS SIMILAR 02A6D CONGRUENT WITH DOT ABOVE 02A6E EQUALS WITH ASTERISK 02A6F ALMOST EQUAL TO WITH CIRCUMFLEX ACCENT 02A70 APPROXIMATELY EQUAL OR EQUAL TO 02A71 EQUALS SIGN ABOVE PLUS SIGN 02A72 PLUS SIGN ABOVE EQUALS SIGN 02A73 EQUALS SIGN ABOVE TILDE OPERATOR 02A74 DOUBLE COLON EQUAL 02A75 TWO CONSECUTIVE EQUALS SIGNS 02A76 THREE CONSECUTIVE EQUALS SIGNS 02A77 EQUALS SIGN WITH TWO DOTS ABOVE AND TWO DOTS BELOW 02A78 EQUIVALENT WITH FOUR DOTS ABOVE 02A79 LESS-THAN WITH CIRCLE INSIDE 02A7A GREATER-THAN WITH CIRCLE INSIDE 02A7B LESS-THAN WITH QUESTION MARK ABOVE 02A7C GREATER-THAN WITH QUESTION MARK ABOVE 02A7D LESS-THAN OR SLANTED EQUAL TO 02A7E GREATER-THAN OR SLANTED EQUAL TO 02A7F LESS-THAN OR SLANTED EQUAL TO WITH DOT INSIDE 02A80 GREATER-THAN OR SLANTED EQUAL TO WITH DOT INSIDE 02A81 LESS-THAN OR SLANTED EQUAL TO WITH DOT ABOVE 02A82 GREATER-THAN OR SLANTED EQUAL TO WITH DOT ABOVE 02A83 LESS-THAN OR SLANTED EQUAL TO WITH DOT ABOVE RIGHT 02A84 GREATER-THAN OR SLANTED EQUAL TO WITH DOT ABOVE LEFT 02A85 LESS-THAN OR APPROXIMATE 02A86 GREATER-THAN OR APPROXIMATE 02A87 LESS-THAN AND SINGLE-LINE NOT EQUAL TO 02A88 GREATER-THAN AND SINGLE-LINE NOT EQUAL TO 02A89 LESS-THAN AND NOT APPROXIMATE 02A8A GREATER-THAN AND NOT APPROXIMATE 02A8B LESS-THAN ABOVE DOUBLE-LINE EQUAL ABOVE GREATER-THAN 02A8C GREATER-THAN ABOVE DOUBLE-LINE EQUAL ABOVE LESS-THAN 02A8D LESS-THAN ABOVE SIMILAR OR EQUAL 02A8E GREATER-THAN ABOVE SIMILAR OR EQUAL 02A8F LESS-THAN ABOVE SIMILAR ABOVE GREATER-THAN 02A90 GREATER-THAN ABOVE SIMILAR ABOVE LESS-THAN 02A91 LESS-THAN ABOVE GREATER-THAN ABOVE DOUBLE-LINE EQUAL 02A92 GREATER-THAN ABOVE LESS-THAN ABOVE DOUBLE-LINE EQUAL 02A93 LESS-THAN ABOVE SLANTED EQUAL ABOVE GREATER-THAN ABOVE SLANTED EQUAL 02A94 GREATER-THAN ABOVE SLANTED EQUAL ABOVE LESS-THAN ABOVE SLANTED EQUAL 02A95 SLANTED EQUAL TO OR LESS-THAN 02A96 SLANTED EQUAL TO OR GREATER-THAN 02A97 SLANTED EQUAL TO OR LESS-THAN WITH DOT INSIDE 02A98 SLANTED EQUAL TO OR GREATER-THAN WITH DOT INSIDE 02A99 DOUBLE-LINE EQUAL TO OR LESS-THAN 02A9A DOUBLE-LINE EQUAL TO OR GREATER-THAN 02A9B DOUBLE-LINE SLANTED EQUAL TO OR LESS-THAN 02A9C DOUBLE-LINE SLANTED EQUAL TO OR GREATER-THAN 02A9D SIMILAR OR LESS-THAN 02A9E SIMILAR OR GREATER-THAN 02A9F SIMILAR ABOVE LESS-THAN ABOVE EQUALS SIGN 02AA0 SIMILAR ABOVE GREATER-THAN ABOVE EQUALS SIGN 02AA1 DOUBLE NESTED LESS-THAN 02AA2 DOUBLE NESTED GREATER-THAN 02AA3 DOUBLE NESTED LESS-THAN WITH UNDERBAR 02AA4 GREATER-THAN OVERLAPPING LESS-THAN 02AA5 GREATER-THAN BESIDE LESS-THAN 02AA6 LESS-THAN CLOSED BY CURVE 02AA7 GREATER-THAN CLOSED BY CURVE 02AA8 LESS-THAN CLOSED BY CURVE ABOVE SLANTED EQUAL 02AA9 GREATER-THAN CLOSED BY CURVE ABOVE SLANTED EQUAL 02AAA SMALLER THAN 02AAB LARGER THAN 02AAC SMALLER THAN OR EQUAL TO 02AAD LARGER THAN OR EQUAL TO 02AAE EQUALS SIGN WITH BUMPY ABOVE 02AAF PRECEDES ABOVE SINGLE-LINE EQUALS SIGN 02AB0 SUCCEEDS ABOVE SINGLE-LINE EQUALS SIGN 02AB1 PRECEDES ABOVE SINGLE-LINE NOT EQUAL TO 02AB2 SUCCEEDS ABOVE SINGLE-LINE NOT EQUAL TO 02AB3 PRECEDES ABOVE EQUALS SIGN 02AB4 SUCCEEDS ABOVE EQUALS SIGN 02AB5 PRECEDES ABOVE NOT EQUAL TO 02AB6 SUCCEEDS ABOVE NOT EQUAL TO 02AB7 PRECEDES ABOVE ALMOST EQUAL TO 02AB8 SUCCEEDS ABOVE ALMOST EQUAL TO 02AB9 PRECEDES ABOVE NOT ALMOST EQUAL TO 02ABA SUCCEEDS ABOVE NOT ALMOST EQUAL TO 02ABB DOUBLE PRECEDES 02ABC DOUBLE SUCCEEDS 02ABD SUBSET WITH DOT 02ABE SUPERSET WITH DOT 02ABF SUBSET WITH PLUS SIGN BELOW 02AC0 SUPERSET WITH PLUS SIGN BELOW 02AC1 SUBSET WITH MULTIPLICATION SIGN BELOW 02AC2 SUPERSET WITH MULTIPLICATION SIGN BELOW 02AC3 SUBSET OF OR EQUAL TO WITH DOT ABOVE 02AC4 SUPERSET OF OR EQUAL TO WITH DOT ABOVE 02AC5 SUBSET OF ABOVE EQUALS SIGN 02AC6 SUPERSET OF ABOVE EQUALS SIGN 02AC7 SUBSET OF ABOVE TILDE OPERATOR 02AC8 SUPERSET OF ABOVE TILDE OPERATOR 02AC9 SUBSET OF ABOVE ALMOST EQUAL TO 02ACA SUPERSET OF ABOVE ALMOST EQUAL TO 02ACB SUBSET OF ABOVE NOT EQUAL TO 02ACC SUPERSET OF ABOVE NOT EQUAL TO 02ACD SQUARE LEFT OPEN BOX OPERATOR 02ACE SQUARE RIGHT OPEN BOX OPERATOR 02ACF CLOSED SUBSET 02AD0 CLOSED SUPERSET 02AD1 CLOSED SUBSET OR EQUAL TO 02AD2 CLOSED SUPERSET OR EQUAL TO 02AD3 SUBSET ABOVE SUPERSET 02AD4 SUPERSET ABOVE SUBSET 02AD5 SUBSET ABOVE SUBSET 02AD6 SUPERSET ABOVE SUPERSET 02AD7 SUPERSET BESIDE SUBSET 02AD8 SUPERSET BESIDE AND JOINED BY DASH WITH SUBSET 02AD9 ELEMENT OF OPENING DOWNWARDS 02ADA PITCHFORK WITH TEE TOP 02ADB TRANSVERSAL INTERSECTION 02ADC FORKING 02ADD NONFORKING 02ADE SHORT LEFT TACK 02ADF SHORT DOWN TACK 02AE0 SHORT UP TACK 02AE1 PERPENDICULAR WITH S 02AE2 VERTICAL BAR TRIPLE RIGHT TURNSTILE 02AE3 DOUBLE VERTICAL BAR LEFT TURNSTILE 02AE4 VERTICAL BAR DOUBLE LEFT TURNSTILE 02AE5 DOUBLE VERTICAL BAR DOUBLE LEFT TURNSTILE 02AE6 LONG DASH FROM LEFT MEMBER OF DOUBLE VERTICAL 02AE7 SHORT DOWN TACK WITH OVERBAR 02AE8 SHORT UP TACK WITH UNDERBAR 02AE9 SHORT UP TACK ABOVE SHORT DOWN TACK 02AEA DOUBLE DOWN TACK 02AEB DOUBLE UP TACK 02AEC DOUBLE STROKE NOT SIGN 02AED REVERSED DOUBLE STROKE NOT SIGN 02AEE DOES NOT DIVIDE WITH REVERSED NEGATION SLASH 02AEF VERTICAL LINE WITH CIRCLE ABOVE 02AF0 VERTICAL LINE WITH CIRCLE BELOW 02AF1 DOWN TACK WITH CIRCLE BELOW 02AF2 PARALLEL WITH HORIZONTAL STROKE 02AF3 PARALLEL WITH TILDE OPERATOR 02AF4 TRIPLE VERTICAL BAR BINARY RELATION 02AF5 TRIPLE VERTICAL BAR WITH HORIZONTAL STROKE 02AF6 TRIPLE COLON OPERATOR 02AF7 TRIPLE NESTED LESS-THAN 02AF8 TRIPLE NESTED GREATER-THAN 02AF9 DOUBLE-LINE SLANTED LESS-THAN OR EQUAL TO 02AFA DOUBLE-LINE SLANTED GREATER-THAN OR EQUAL TO 02AFB TRIPLE SOLIDUS BINARY RELATION 02AFC LARGE TRIPLE VERTICAL BAR OPERATOR 02AFD DOUBLE SOLIDUS OPERATOR 02AFE WHITE VERTICAL BAR 02AFF N-ARY WHITE VERTICAL BAR 02B00 NORTH EAST WHITE ARROW 02B01 NORTH WEST WHITE ARROW 02B02 SOUTH EAST WHITE ARROW 02B03 SOUTH WEST WHITE ARROW 02B04 LEFT RIGHT WHITE ARROW 02B05 LEFTWARDS BLACK ARROW 02B06 UPWARDS BLACK ARROW 02B07 DOWNWARDS BLACK ARROW 02B08 NORTH EAST BLACK ARROW 02B09 NORTH WEST BLACK ARROW 02B0A SOUTH EAST BLACK ARROW 02B0B SOUTH WEST BLACK ARROW 02B0C LEFT RIGHT BLACK ARROW 02B0D UP DOWN BLACK ARROW 02B0E RIGHTWARDS ARROW WITH TIP DOWNWARDS 02B0F RIGHTWARDS ARROW WITH TIP UPWARDS 02B10 LEFTWARDS ARROW WITH TIP DOWNWARDS 02B11 LEFTWARDS ARROW WITH TIP UPWARDS 02B12 SQUARE WITH TOP HALF BLACK 02B13 SQUARE WITH BOTTOM HALF BLACK 02B14 SQUARE WITH UPPER RIGHT DIAGONAL HALF BLACK 02B15 SQUARE WITH LOWER LEFT DIAGONAL HALF BLACK 02B16 DIAMOND WITH LEFT HALF BLACK 02B17 DIAMOND WITH RIGHT HALF BLACK 02B18 DIAMOND WITH TOP HALF BLACK 02B19 DIAMOND WITH BOTTOM HALF BLACK 02B1A DOTTED SQUARE 02B1B BLACK LARGE SQUARE 02B1C WHITE LARGE SQUARE 02B1D BLACK VERY SMALL SQUARE 02B1E WHITE VERY SMALL SQUARE 02B1F BLACK PENTAGON 02B20 WHITE PENTAGON 02B21 WHITE HEXAGON 02B22 BLACK HEXAGON 02B23 HORIZONTAL BLACK HEXAGON 02B24 BLACK LARGE CIRCLE 02B25 BLACK MEDIUM DIAMOND 02B26 WHITE MEDIUM DIAMOND 02B27 BLACK MEDIUM LOZENGE 02B28 WHITE MEDIUM LOZENGE 02B29 BLACK SMALL DIAMOND 02B2A BLACK SMALL LOZENGE 02B2B WHITE SMALL LOZENGE 02B2C BLACK HORIZONTAL ELLIPSE 02B2D WHITE HORIZONTAL ELLIPSE 02B2E BLACK VERTICAL ELLIPSE 02B2F WHITE VERTICAL ELLIPSE 02B30 LEFT ARROW WITH SMALL CIRCLE 02B31 THREE LEFTWARDS ARROWS 02B32 LEFT ARROW WITH CIRCLED PLUS 02B33 LONG LEFTWARDS SQUIGGLE ARROW 02B34 LEFTWARDS TWO-HEADED ARROW WITH VERTICAL STROKE 02B35 LEFTWARDS TWO-HEADED ARROW WITH DOUBLE VERTICAL STROKE 02B36 LEFTWARDS TWO-HEADED ARROW FROM BAR 02B37 LEFTWARDS TWO-HEADED TRIPLE DASH ARROW 02B38 LEFTWARDS ARROW WITH DOTTED STEM 02B39 LEFTWARDS ARROW WITH TAIL WITH VERTICAL STROKE 02B3A LEFTWARDS ARROW WITH TAIL WITH DOUBLE VERTICAL STROKE 02B3B LEFTWARDS TWO-HEADED ARROW WITH TAIL 02B3C LEFTWARDS TWO-HEADED ARROW WITH TAIL WITH VERTICAL STROKE 02B3D LEFTWARDS TWO-HEADED ARROW WITH TAIL WITH DOUBLE VERTICAL STROKE 02B3E LEFTWARDS ARROW THROUGH X 02B3F WAVE ARROW POINTING DIRECTLY LEFT 02B40 EQUALS SIGN ABOVE LEFTWARDS ARROW 02B41 REVERSE TILDE OPERATOR ABOVE LEFTWARDS ARROW 02B42 LEFTWARDS ARROW ABOVE REVERSE ALMOST EQUAL TO 02B43 RIGHTWARDS ARROW THROUGH GREATER-THAN 02B44 RIGHTWARDS ARROW THROUGH SUPERSET 02B45 LEFTWARDS QUADRUPLE ARROW 02B46 RIGHTWARDS QUADRUPLE ARROW 02B47 REVERSE TILDE OPERATOR ABOVE RIGHTWARDS ARROW 02B48 RIGHTWARDS ARROW ABOVE REVERSE ALMOST EQUAL TO 02B49 TILDE OPERATOR ABOVE LEFTWARDS ARROW 02B4A LEFTWARDS ARROW ABOVE ALMOST EQUAL TO 02B4B LEFTWARDS ARROW ABOVE REVERSE TILDE OPERATOR 02B4C RIGHTWARDS ARROW ABOVE REVERSE TILDE OPERATOR 02B4D DOWNWARDS TRIANGLE-HEADED ZIGZAG ARROW 02B4E SHORT SLANTED NORTH ARROW 02B4F SHORT BACKSLANTED SOUTH ARROW 02B50 WHITE MEDIUM STAR 02B51 BLACK SMALL STAR 02B52 WHITE SMALL STAR 02B53 BLACK RIGHT-POINTING PENTAGON 02B54 WHITE RIGHT-POINTING PENTAGON 02B55 HEAVY LARGE CIRCLE 02B56 HEAVY OVAL WITH OVAL INSIDE 02B57 HEAVY CIRCLE WITH CIRCLE INSIDE 02B58 HEAVY CIRCLE 02B59 HEAVY CIRCLED SALTIRE 02B5A SLANTED NORTH ARROW WITH HOOKED HEAD 02B5B BACKSLANTED SOUTH ARROW WITH HOOKED TAIL 02B5C SLANTED NORTH ARROW WITH HORIZONTAL TAIL 02B5D BACKSLANTED SOUTH ARROW WITH HORIZONTAL TAIL 02B5E BENT ARROW POINTING DOWNWARDS THEN NORTH EAST 02B5F SHORT BENT ARROW POINTING DOWNWARDS THEN NORTH EAST 02B60 LEFTWARDS TRIANGLE-HEADED ARROW 02B61 UPWARDS TRIANGLE-HEADED ARROW 02B62 RIGHTWARDS TRIANGLE-HEADED ARROW 02B63 DOWNWARDS TRIANGLE-HEADED ARROW 02B64 LEFT RIGHT TRIANGLE-HEADED ARROW 02B65 UP DOWN TRIANGLE-HEADED ARROW 02B66 NORTH WEST TRIANGLE-HEADED ARROW 02B67 NORTH EAST TRIANGLE-HEADED ARROW 02B68 SOUTH EAST TRIANGLE-HEADED ARROW 02B69 SOUTH WEST TRIANGLE-HEADED ARROW 02B6A LEFTWARDS TRIANGLE-HEADED DASHED ARROW 02B6B UPWARDS TRIANGLE-HEADED DASHED ARROW 02B6C RIGHTWARDS TRIANGLE-HEADED DASHED ARROW 02B6D DOWNWARDS TRIANGLE-HEADED DASHED ARROW 02B6E CLOCKWISE TRIANGLE-HEADED OPEN CIRCLE ARROW 02B6F ANTICLOCKWISE TRIANGLE-HEADED OPEN CIRCLE ARROW 02B70 LEFTWARDS TRIANGLE-HEADED ARROW TO BAR 02B71 UPWARDS TRIANGLE-HEADED ARROW TO BAR 02B72 RIGHTWARDS TRIANGLE-HEADED ARROW TO BAR 02B73 DOWNWARDS TRIANGLE-HEADED ARROW TO BAR 02B76 NORTH WEST TRIANGLE-HEADED ARROW TO BAR 02B77 NORTH EAST TRIANGLE-HEADED ARROW TO BAR 02B78 SOUTH EAST TRIANGLE-HEADED ARROW TO BAR 02B79 SOUTH WEST TRIANGLE-HEADED ARROW TO BAR 02B7A LEFTWARDS TRIANGLE-HEADED ARROW WITH DOUBLE VERTICAL STROKE 02B7A LEFTWARDS TRIANGLE-HEADED ARROW WITH DOUBLE HORIZONTAL STROKE 02B7B UPWARDS TRIANGLE-HEADED ARROW WITH DOUBLE HORIZONTAL STROKE 02B7C RIGHTWARDS TRIANGLE-HEADED ARROW WITH DOUBLE VERTICAL STROKE 02B7C RIGHTWARDS TRIANGLE-HEADED ARROW WITH DOUBLE HORIZONTAL STROKE 02B7D DOWNWARDS TRIANGLE-HEADED ARROW WITH DOUBLE HORIZONTAL STROKE 02B7E HORIZONTAL TAB KEY 02B7F VERTICAL TAB KEY 02B80 LEFTWARDS TRIANGLE-HEADED ARROW OVER RIGHTWARDS TRIANGLE-HEADED ARROW 02B81 UPWARDS TRIANGLE-HEADED ARROW LEFTWARDS OF DOWNWARDS TRIANGLE-HEADED ARROW 02B82 RIGHTWARDS TRIANGLE-HEADED ARROW OVER LEFTWARDS TRIANGLE-HEADED ARROW 02B83 DOWNWARDS TRIANGLE-HEADED ARROW LEFTWARDS OF UPWARDS TRIANGLE-HEADED ARROW 02B84 LEFTWARDS TRIANGLE-HEADED PAIRED ARROWS 02B85 UPWARDS TRIANGLE-HEADED PAIRED ARROWS 02B86 RIGHTWARDS TRIANGLE-HEADED PAIRED ARROWS 02B87 DOWNWARDS TRIANGLE-HEADED PAIRED ARROWS 02B88 LEFTWARDS BLACK CIRCLED WHITE ARROW 02B89 UPWARDS BLACK CIRCLED WHITE ARROW 02B8A RIGHTWARDS BLACK CIRCLED WHITE ARROW 02B8B DOWNWARDS BLACK CIRCLED WHITE ARROW 02B8C ANTICLOCKWISE TRIANGLE-HEADED RIGHT U-SHAPED ARROW 02B8D ANTICLOCKWISE TRIANGLE-HEADED BOTTOM U-SHAPED ARROW 02B8E ANTICLOCKWISE TRIANGLE-HEADED LEFT U-SHAPED ARROW 02B8F ANTICLOCKWISE TRIANGLE-HEADED TOP U-SHAPED ARROW 02B90 RETURN LEFT 02B91 RETURN RIGHT 02B92 NEWLINE LEFT 02B93 NEWLINE RIGHT 02B94 FOUR CORNER ARROWS CIRCLING ANTICLOCKWISE 02B95 RIGHTWARDS BLACK ARROW 02B97 SYMBOL FOR TYPE A ELECTRONICS 02B98 THREE-D TOP-LIGHTED LEFTWARDS EQUILATERAL ARROWHEAD 02B99 THREE-D RIGHT-LIGHTED UPWARDS EQUILATERAL ARROWHEAD 02B9A THREE-D TOP-LIGHTED RIGHTWARDS EQUILATERAL ARROWHEAD 02B9B THREE-D LEFT-LIGHTED DOWNWARDS EQUILATERAL ARROWHEAD 02B9C BLACK LEFTWARDS EQUILATERAL ARROWHEAD 02B9D BLACK UPWARDS EQUILATERAL ARROWHEAD 02B9E BLACK RIGHTWARDS EQUILATERAL ARROWHEAD 02B9F BLACK DOWNWARDS EQUILATERAL ARROWHEAD 02BA0 DOWNWARDS TRIANGLE-HEADED ARROW WITH LONG TIP LEFTWARDS 02BA1 DOWNWARDS TRIANGLE-HEADED ARROW WITH LONG TIP RIGHTWARDS 02BA2 UPWARDS TRIANGLE-HEADED ARROW WITH LONG TIP LEFTWARDS 02BA3 UPWARDS TRIANGLE-HEADED ARROW WITH LONG TIP RIGHTWARDS 02BA4 LEFTWARDS TRIANGLE-HEADED ARROW WITH LONG TIP UPWARDS 02BA5 RIGHTWARDS TRIANGLE-HEADED ARROW WITH LONG TIP UPWARDS 02BA6 LEFTWARDS TRIANGLE-HEADED ARROW WITH LONG TIP DOWNWARDS 02BA7 RIGHTWARDS TRIANGLE-HEADED ARROW WITH LONG TIP DOWNWARDS 02BA8 BLACK CURVED DOWNWARDS AND LEFTWARDS ARROW 02BA9 BLACK CURVED DOWNWARDS AND RIGHTWARDS ARROW 02BAA BLACK CURVED UPWARDS AND LEFTWARDS ARROW 02BAB BLACK CURVED UPWARDS AND RIGHTWARDS ARROW 02BAC BLACK CURVED LEFTWARDS AND UPWARDS ARROW 02BAD BLACK CURVED RIGHTWARDS AND UPWARDS ARROW 02BAE BLACK CURVED LEFTWARDS AND DOWNWARDS ARROW 02BAF BLACK CURVED RIGHTWARDS AND DOWNWARDS ARROW 02BB0 RIBBON ARROW DOWN LEFT 02BB1 RIBBON ARROW DOWN RIGHT 02BB2 RIBBON ARROW UP LEFT 02BB3 RIBBON ARROW UP RIGHT 02BB4 RIBBON ARROW LEFT UP 02BB5 RIBBON ARROW RIGHT UP 02BB6 RIBBON ARROW LEFT DOWN 02BB7 RIBBON ARROW RIGHT DOWN 02BB8 UPWARDS WHITE ARROW FROM BAR WITH HORIZONTAL BAR 02BB9 UP ARROWHEAD IN A RECTANGLE BOX 02BBA OVERLAPPING WHITE SQUARES 02BBB OVERLAPPING WHITE AND BLACK SQUARES 02BBC OVERLAPPING BLACK SQUARES 02BBD BALLOT BOX WITH LIGHT X 02BBE CIRCLED X 02BBF CIRCLED BOLD X 02BC0 BLACK SQUARE CENTRED 02BC1 BLACK DIAMOND CENTRED 02BC2 TURNED BLACK PENTAGON 02BC3 HORIZONTAL BLACK OCTAGON 02BC4 BLACK OCTAGON 02BC5 BLACK MEDIUM UP-POINTING TRIANGLE CENTRED 02BC6 BLACK MEDIUM DOWN-POINTING TRIANGLE CENTRED 02BC7 BLACK MEDIUM LEFT-POINTING TRIANGLE CENTRED 02BC8 BLACK MEDIUM RIGHT-POINTING TRIANGLE CENTRED 02BC9 NEPTUNE FORM TWO 02BCA TOP HALF BLACK CIRCLE 02BCB BOTTOM HALF BLACK CIRCLE 02BCC LIGHT FOUR POINTED BLACK CUSP 02BCD ROTATED LIGHT FOUR POINTED BLACK CUSP 02BCE WHITE FOUR POINTED CUSP 02BCF ROTATED WHITE FOUR POINTED CUSP 02BD0 SQUARE POSITION INDICATOR 02BD1 UNCERTAINTY SIGN 02BD2 GROUP MARK 02BD3 PLUTO FORM TWO 02BD4 PLUTO FORM THREE 02BD5 PLUTO FORM FOUR 02BD6 PLUTO FORM FIVE 02BD7 TRANSPLUTO 02BD8 PROSERPINA 02BD9 ASTRAEA 02BDA HYGIEA 02BDB PHOLUS 02BDC NESSUS 02BDD WHITE MOON SELENA 02BDE BLACK DIAMOND ON CROSS 02BDF TRUE LIGHT MOON ARTA 02BE0 CUPIDO 02BE1 HADES 02BE2 ZEUS 02BE3 KRONOS 02BE4 APOLLON 02BE5 ADMETOS 02BE6 VULCANUS 02BE7 POSEIDON 02BE8 LEFT HALF BLACK STAR 02BE9 RIGHT HALF BLACK STAR 02BEA STAR WITH LEFT HALF BLACK 02BEB STAR WITH RIGHT HALF BLACK 02BEC LEFTWARDS TWO-HEADED ARROW WITH TRIANGLE ARROWHEADS 02BED UPWARDS TWO-HEADED ARROW WITH TRIANGLE ARROWHEADS 02BEE RIGHTWARDS TWO-HEADED ARROW WITH TRIANGLE ARROWHEADS 02BEF DOWNWARDS TWO-HEADED ARROW WITH TRIANGLE ARROWHEADS 02BF0 ERIS FORM ONE 02BF1 ERIS FORM TWO 02BF2 SEDNA 02BF3 RUSSIAN ASTROLOGICAL SYMBOL VIGINTILE 02BF4 RUSSIAN ASTROLOGICAL SYMBOL NOVILE 02BF5 RUSSIAN ASTROLOGICAL SYMBOL QUINTILE 02BF6 RUSSIAN ASTROLOGICAL SYMBOL BINOVILE 02BF7 RUSSIAN ASTROLOGICAL SYMBOL SENTAGON 02BF8 RUSSIAN ASTROLOGICAL SYMBOL TREDECILE 02BF9 EQUALS SIGN WITH INFINITY BELOW 02BFA UNITED SYMBOL 02BFB SEPARATED SYMBOL 02BFC DOUBLED SYMBOL 02BFD PASSED SYMBOL 02BFE REVERSED RIGHT ANGLE 02BFF HELLSCHREIBER PAUSE SYMBOL 02C00 GLAGOLITIC CAPITAL LETTER AZU 02C01 GLAGOLITIC CAPITAL LETTER BUKY 02C02 GLAGOLITIC CAPITAL LETTER VEDE 02C03 GLAGOLITIC CAPITAL LETTER GLAGOLI 02C04 GLAGOLITIC CAPITAL LETTER DOBRO 02C05 GLAGOLITIC CAPITAL LETTER YESTU 02C06 GLAGOLITIC CAPITAL LETTER ZHIVETE 02C07 GLAGOLITIC CAPITAL LETTER DZELO 02C08 GLAGOLITIC CAPITAL LETTER ZEMLJA 02C09 GLAGOLITIC CAPITAL LETTER IZHE 02C0A GLAGOLITIC CAPITAL LETTER INITIAL IZHE 02C0B GLAGOLITIC CAPITAL LETTER I 02C0C GLAGOLITIC CAPITAL LETTER DJERVI 02C0D GLAGOLITIC CAPITAL LETTER KAKO 02C0E GLAGOLITIC CAPITAL LETTER LJUDIJE 02C0F GLAGOLITIC CAPITAL LETTER MYSLITE 02C10 GLAGOLITIC CAPITAL LETTER NASHI 02C11 GLAGOLITIC CAPITAL LETTER ONU 02C12 GLAGOLITIC CAPITAL LETTER POKOJI 02C13 GLAGOLITIC CAPITAL LETTER RITSI 02C14 GLAGOLITIC CAPITAL LETTER SLOVO 02C15 GLAGOLITIC CAPITAL LETTER TVRIDO 02C16 GLAGOLITIC CAPITAL LETTER UKU 02C17 GLAGOLITIC CAPITAL LETTER FRITU 02C18 GLAGOLITIC CAPITAL LETTER HERU 02C19 GLAGOLITIC CAPITAL LETTER OTU 02C1A GLAGOLITIC CAPITAL LETTER PE 02C1B GLAGOLITIC CAPITAL LETTER SHTA 02C1C GLAGOLITIC CAPITAL LETTER TSI 02C1D GLAGOLITIC CAPITAL LETTER CHRIVI 02C1E GLAGOLITIC CAPITAL LETTER SHA 02C1F GLAGOLITIC CAPITAL LETTER YERU 02C20 GLAGOLITIC CAPITAL LETTER YERI 02C21 GLAGOLITIC CAPITAL LETTER YATI 02C22 GLAGOLITIC CAPITAL LETTER SPIDERY HA 02C23 GLAGOLITIC CAPITAL LETTER YU 02C24 GLAGOLITIC CAPITAL LETTER SMALL YUS 02C25 GLAGOLITIC CAPITAL LETTER SMALL YUS WITH TAIL 02C26 GLAGOLITIC CAPITAL LETTER YO 02C27 GLAGOLITIC CAPITAL LETTER IOTATED SMALL YUS 02C28 GLAGOLITIC CAPITAL LETTER BIG YUS 02C29 GLAGOLITIC CAPITAL LETTER IOTATED BIG YUS 02C2A GLAGOLITIC CAPITAL LETTER FITA 02C2B GLAGOLITIC CAPITAL LETTER IZHITSA 02C2C GLAGOLITIC CAPITAL LETTER SHTAPIC 02C2D GLAGOLITIC CAPITAL LETTER TROKUTASTI A 02C2E GLAGOLITIC CAPITAL LETTER LATINATE MYSLITE 02C30 GLAGOLITIC SMALL LETTER AZU 02C31 GLAGOLITIC SMALL LETTER BUKY 02C32 GLAGOLITIC SMALL LETTER VEDE 02C33 GLAGOLITIC SMALL LETTER GLAGOLI 02C34 GLAGOLITIC SMALL LETTER DOBRO 02C35 GLAGOLITIC SMALL LETTER YESTU 02C36 GLAGOLITIC SMALL LETTER ZHIVETE 02C37 GLAGOLITIC SMALL LETTER DZELO 02C38 GLAGOLITIC SMALL LETTER ZEMLJA 02C39 GLAGOLITIC SMALL LETTER IZHE 02C3A GLAGOLITIC SMALL LETTER INITIAL IZHE 02C3B GLAGOLITIC SMALL LETTER I 02C3C GLAGOLITIC SMALL LETTER DJERVI 02C3D GLAGOLITIC SMALL LETTER KAKO 02C3E GLAGOLITIC SMALL LETTER LJUDIJE 02C3F GLAGOLITIC SMALL LETTER MYSLITE 02C40 GLAGOLITIC SMALL LETTER NASHI 02C41 GLAGOLITIC SMALL LETTER ONU 02C42 GLAGOLITIC SMALL LETTER POKOJI 02C43 GLAGOLITIC SMALL LETTER RITSI 02C44 GLAGOLITIC SMALL LETTER SLOVO 02C45 GLAGOLITIC SMALL LETTER TVRIDO 02C46 GLAGOLITIC SMALL LETTER UKU 02C47 GLAGOLITIC SMALL LETTER FRITU 02C48 GLAGOLITIC SMALL LETTER HERU 02C49 GLAGOLITIC SMALL LETTER OTU 02C4A GLAGOLITIC SMALL LETTER PE 02C4B GLAGOLITIC SMALL LETTER SHTA 02C4C GLAGOLITIC SMALL LETTER TSI 02C4D GLAGOLITIC SMALL LETTER CHRIVI 02C4E GLAGOLITIC SMALL LETTER SHA 02C4F GLAGOLITIC SMALL LETTER YERU 02C50 GLAGOLITIC SMALL LETTER YERI 02C51 GLAGOLITIC SMALL LETTER YATI 02C52 GLAGOLITIC SMALL LETTER SPIDERY HA 02C53 GLAGOLITIC SMALL LETTER YU 02C54 GLAGOLITIC SMALL LETTER SMALL YUS 02C55 GLAGOLITIC SMALL LETTER SMALL YUS WITH TAIL 02C56 GLAGOLITIC SMALL LETTER YO 02C57 GLAGOLITIC SMALL LETTER IOTATED SMALL YUS 02C58 GLAGOLITIC SMALL LETTER BIG YUS 02C59 GLAGOLITIC SMALL LETTER IOTATED BIG YUS 02C5A GLAGOLITIC SMALL LETTER FITA 02C5B GLAGOLITIC SMALL LETTER IZHITSA 02C5C GLAGOLITIC SMALL LETTER SHTAPIC 02C5D GLAGOLITIC SMALL LETTER TROKUTASTI A 02C5E GLAGOLITIC SMALL LETTER LATINATE MYSLITE 02C60 LATIN CAPITAL LETTER L WITH DOUBLE BAR 02C61 LATIN SMALL LETTER L WITH DOUBLE BAR 02C62 LATIN CAPITAL LETTER L WITH MIDDLE TILDE 02C63 LATIN CAPITAL LETTER P WITH STROKE 02C64 LATIN CAPITAL LETTER R WITH TAIL 02C65 LATIN SMALL LETTER A WITH STROKE 02C66 LATIN SMALL LETTER T WITH DIAGONAL STROKE 02C67 LATIN CAPITAL LETTER H WITH DESCENDER 02C68 LATIN SMALL LETTER H WITH DESCENDER 02C69 LATIN CAPITAL LETTER K WITH DESCENDER 02C6A LATIN SMALL LETTER K WITH DESCENDER 02C6B LATIN CAPITAL LETTER Z WITH DESCENDER 02C6C LATIN SMALL LETTER Z WITH DESCENDER 02C6D LATIN CAPITAL LETTER ALPHA 02C6E LATIN CAPITAL LETTER M WITH HOOK 02C6F LATIN CAPITAL LETTER TURNED A 02C70 LATIN CAPITAL LETTER TURNED ALPHA 02C71 LATIN SMALL LETTER V WITH RIGHT HOOK 02C72 LATIN CAPITAL LETTER W WITH HOOK 02C73 LATIN SMALL LETTER W WITH HOOK 02C74 LATIN SMALL LETTER V WITH CURL 02C75 LATIN CAPITAL LETTER HALF H 02C76 LATIN SMALL LETTER HALF H 02C77 LATIN SMALL LETTER TAILLESS PHI 02C78 LATIN SMALL LETTER E WITH NOTCH 02C79 LATIN SMALL LETTER TURNED R WITH TAIL 02C7A LATIN SMALL LETTER O WITH LOW RING INSIDE 02C7B LATIN LETTER SMALL CAPITAL TURNED E 02C7C LATIN SUBSCRIPT SMALL LETTER J 02C7D MODIFIER LETTER CAPITAL V 02C7E LATIN CAPITAL LETTER S WITH SWASH TAIL 02C7F LATIN CAPITAL LETTER Z WITH SWASH TAIL 02C80 COPTIC CAPITAL LETTER ALFA 02C81 COPTIC SMALL LETTER ALFA 02C82 COPTIC CAPITAL LETTER VIDA 02C83 COPTIC SMALL LETTER VIDA 02C84 COPTIC CAPITAL LETTER GAMMA 02C85 COPTIC SMALL LETTER GAMMA 02C86 COPTIC CAPITAL LETTER DALDA 02C87 COPTIC SMALL LETTER DALDA 02C88 COPTIC CAPITAL LETTER EIE 02C89 COPTIC SMALL LETTER EIE 02C8A COPTIC CAPITAL LETTER SOU 02C8B COPTIC SMALL LETTER SOU 02C8C COPTIC CAPITAL LETTER ZATA 02C8D COPTIC SMALL LETTER ZATA 02C8E COPTIC CAPITAL LETTER HATE 02C8F COPTIC SMALL LETTER HATE 02C90 COPTIC CAPITAL LETTER THETHE 02C91 COPTIC SMALL LETTER THETHE 02C92 COPTIC CAPITAL LETTER IAUDA 02C93 COPTIC SMALL LETTER IAUDA 02C94 COPTIC CAPITAL LETTER KAPA 02C95 COPTIC SMALL LETTER KAPA 02C96 COPTIC CAPITAL LETTER LAULA 02C97 COPTIC SMALL LETTER LAULA 02C98 COPTIC CAPITAL LETTER MI 02C99 COPTIC SMALL LETTER MI 02C9A COPTIC CAPITAL LETTER NI 02C9B COPTIC SMALL LETTER NI 02C9C COPTIC CAPITAL LETTER KSI 02C9D COPTIC SMALL LETTER KSI 02C9E COPTIC CAPITAL LETTER O 02C9F COPTIC SMALL LETTER O 02CA0 COPTIC CAPITAL LETTER PI 02CA1 COPTIC SMALL LETTER PI 02CA2 COPTIC CAPITAL LETTER RO 02CA3 COPTIC SMALL LETTER RO 02CA4 COPTIC CAPITAL LETTER SIMA 02CA5 COPTIC SMALL LETTER SIMA 02CA6 COPTIC CAPITAL LETTER TAU 02CA7 COPTIC SMALL LETTER TAU 02CA8 COPTIC CAPITAL LETTER UA 02CA9 COPTIC SMALL LETTER UA 02CAA COPTIC CAPITAL LETTER FI 02CAB COPTIC SMALL LETTER FI 02CAC COPTIC CAPITAL LETTER KHI 02CAD COPTIC SMALL LETTER KHI 02CAE COPTIC CAPITAL LETTER PSI 02CAF COPTIC SMALL LETTER PSI 02CB0 COPTIC CAPITAL LETTER OOU 02CB1 COPTIC SMALL LETTER OOU 02CB2 COPTIC CAPITAL LETTER DIALECT-P ALEF 02CB3 COPTIC SMALL LETTER DIALECT-P ALEF 02CB4 COPTIC CAPITAL LETTER OLD COPTIC AIN 02CB5 COPTIC SMALL LETTER OLD COPTIC AIN 02CB6 COPTIC CAPITAL LETTER CRYPTOGRAMMIC EIE 02CB7 COPTIC SMALL LETTER CRYPTOGRAMMIC EIE 02CB8 COPTIC CAPITAL LETTER DIALECT-P KAPA 02CB9 COPTIC SMALL LETTER DIALECT-P KAPA 02CBA COPTIC CAPITAL LETTER DIALECT-P NI 02CBB COPTIC SMALL LETTER DIALECT-P NI 02CBC COPTIC CAPITAL LETTER CRYPTOGRAMMIC NI 02CBD COPTIC SMALL LETTER CRYPTOGRAMMIC NI 02CBE COPTIC CAPITAL LETTER OLD COPTIC OOU 02CBF COPTIC SMALL LETTER OLD COPTIC OOU 02CC0 COPTIC CAPITAL LETTER SAMPI 02CC1 COPTIC SMALL LETTER SAMPI 02CC2 COPTIC CAPITAL LETTER CROSSED SHEI 02CC3 COPTIC SMALL LETTER CROSSED SHEI 02CC4 COPTIC CAPITAL LETTER OLD COPTIC SHEI 02CC5 COPTIC SMALL LETTER OLD COPTIC SHEI 02CC6 COPTIC CAPITAL LETTER OLD COPTIC ESH 02CC7 COPTIC SMALL LETTER OLD COPTIC ESH 02CC8 COPTIC CAPITAL LETTER AKHMIMIC KHEI 02CC9 COPTIC SMALL LETTER AKHMIMIC KHEI 02CCA COPTIC CAPITAL LETTER DIALECT-P HORI 02CCB COPTIC SMALL LETTER DIALECT-P HORI 02CCC COPTIC CAPITAL LETTER OLD COPTIC HORI 02CCD COPTIC SMALL LETTER OLD COPTIC HORI 02CCE COPTIC CAPITAL LETTER OLD COPTIC HA 02CCF COPTIC SMALL LETTER OLD COPTIC HA 02CD0 COPTIC CAPITAL LETTER L-SHAPED HA 02CD1 COPTIC SMALL LETTER L-SHAPED HA 02CD2 COPTIC CAPITAL LETTER OLD COPTIC HEI 02CD3 COPTIC SMALL LETTER OLD COPTIC HEI 02CD4 COPTIC CAPITAL LETTER OLD COPTIC HAT 02CD5 COPTIC SMALL LETTER OLD COPTIC HAT 02CD6 COPTIC CAPITAL LETTER OLD COPTIC GANGIA 02CD7 COPTIC SMALL LETTER OLD COPTIC GANGIA 02CD8 COPTIC CAPITAL LETTER OLD COPTIC DJA 02CD9 COPTIC SMALL LETTER OLD COPTIC DJA 02CDA COPTIC CAPITAL LETTER OLD COPTIC SHIMA 02CDB COPTIC SMALL LETTER OLD COPTIC SHIMA 02CDC COPTIC CAPITAL LETTER OLD NUBIAN SHIMA 02CDD COPTIC SMALL LETTER OLD NUBIAN SHIMA 02CDE COPTIC CAPITAL LETTER OLD NUBIAN NGI 02CDF COPTIC SMALL LETTER OLD NUBIAN NGI 02CE0 COPTIC CAPITAL LETTER OLD NUBIAN NYI 02CE1 COPTIC SMALL LETTER OLD NUBIAN NYI 02CE2 COPTIC CAPITAL LETTER OLD NUBIAN WAU 02CE3 COPTIC SMALL LETTER OLD NUBIAN WAU 02CE4 COPTIC SYMBOL KAI 02CE5 COPTIC SYMBOL MI RO 02CE6 COPTIC SYMBOL PI RO 02CE7 COPTIC SYMBOL STAUROS 02CE8 COPTIC SYMBOL TAU RO 02CE9 COPTIC SYMBOL KHI RO 02CEA COPTIC SYMBOL SHIMA SIMA 02CEB COPTIC CAPITAL LETTER CRYPTOGRAMMIC SHEI 02CEC COPTIC SMALL LETTER CRYPTOGRAMMIC SHEI 02CED COPTIC CAPITAL LETTER CRYPTOGRAMMIC GANGIA 02CEE COPTIC SMALL LETTER CRYPTOGRAMMIC GANGIA 02CEF COPTIC COMBINING NI ABOVE 02CF0 COPTIC COMBINING SPIRITUS ASPER 02CF1 COPTIC COMBINING SPIRITUS LENIS 02CF2 COPTIC CAPITAL LETTER BOHAIRIC KHEI 02CF3 COPTIC SMALL LETTER BOHAIRIC KHEI 02CF9 COPTIC OLD NUBIAN FULL STOP 02CFA COPTIC OLD NUBIAN DIRECT QUESTION MARK 02CFB COPTIC OLD NUBIAN INDIRECT QUESTION MARK 02CFC COPTIC OLD NUBIAN VERSE DIVIDER 02CFD COPTIC FRACTION ONE HALF 02CFE COPTIC FULL STOP 02CFF COPTIC MORPHOLOGICAL DIVIDER 02D00 GEORGIAN SMALL LETTER AN 02D01 GEORGIAN SMALL LETTER BAN 02D02 GEORGIAN SMALL LETTER GAN 02D03 GEORGIAN SMALL LETTER DON 02D04 GEORGIAN SMALL LETTER EN 02D05 GEORGIAN SMALL LETTER VIN 02D06 GEORGIAN SMALL LETTER ZEN 02D07 GEORGIAN SMALL LETTER TAN 02D08 GEORGIAN SMALL LETTER IN 02D09 GEORGIAN SMALL LETTER KAN 02D0A GEORGIAN SMALL LETTER LAS 02D0B GEORGIAN SMALL LETTER MAN 02D0C GEORGIAN SMALL LETTER NAR 02D0D GEORGIAN SMALL LETTER ON 02D0E GEORGIAN SMALL LETTER PAR 02D0F GEORGIAN SMALL LETTER ZHAR 02D10 GEORGIAN SMALL LETTER RAE 02D11 GEORGIAN SMALL LETTER SAN 02D12 GEORGIAN SMALL LETTER TAR 02D13 GEORGIAN SMALL LETTER UN 02D14 GEORGIAN SMALL LETTER PHAR 02D15 GEORGIAN SMALL LETTER KHAR 02D16 GEORGIAN SMALL LETTER GHAN 02D17 GEORGIAN SMALL LETTER QAR 02D18 GEORGIAN SMALL LETTER SHIN 02D19 GEORGIAN SMALL LETTER CHIN 02D1A GEORGIAN SMALL LETTER CAN 02D1B GEORGIAN SMALL LETTER JIL 02D1C GEORGIAN SMALL LETTER CIL 02D1D GEORGIAN SMALL LETTER CHAR 02D1E GEORGIAN SMALL LETTER XAN 02D1F GEORGIAN SMALL LETTER JHAN 02D20 GEORGIAN SMALL LETTER HAE 02D21 GEORGIAN SMALL LETTER HE 02D22 GEORGIAN SMALL LETTER HIE 02D23 GEORGIAN SMALL LETTER WE 02D24 GEORGIAN SMALL LETTER HAR 02D25 GEORGIAN SMALL LETTER HOE 02D27 GEORGIAN SMALL LETTER YN 02D2D GEORGIAN SMALL LETTER AEN 02D30 TIFINAGH LETTER YA 02D31 TIFINAGH LETTER YAB 02D32 TIFINAGH LETTER YABH 02D33 TIFINAGH LETTER YAG 02D34 TIFINAGH LETTER YAGHH 02D35 TIFINAGH LETTER BERBER ACADEMY YAJ 02D36 TIFINAGH LETTER YAJ 02D37 TIFINAGH LETTER YAD 02D38 TIFINAGH LETTER YADH 02D39 TIFINAGH LETTER YADD 02D3A TIFINAGH LETTER YADDH 02D3B TIFINAGH LETTER YEY 02D3C TIFINAGH LETTER YAF 02D3D TIFINAGH LETTER YAK 02D3E TIFINAGH LETTER TUAREG YAK 02D3F TIFINAGH LETTER YAKHH 02D40 TIFINAGH LETTER YAH 02D41 TIFINAGH LETTER BERBER ACADEMY YAH 02D42 TIFINAGH LETTER TUAREG YAH 02D43 TIFINAGH LETTER YAHH 02D44 TIFINAGH LETTER YAA 02D45 TIFINAGH LETTER YAKH 02D46 TIFINAGH LETTER TUAREG YAKH 02D47 TIFINAGH LETTER YAQ 02D48 TIFINAGH LETTER TUAREG YAQ 02D49 TIFINAGH LETTER YI 02D4A TIFINAGH LETTER YAZH 02D4B TIFINAGH LETTER AHAGGAR YAZH 02D4C TIFINAGH LETTER TUAREG YAZH 02D4D TIFINAGH LETTER YAL 02D4E TIFINAGH LETTER YAM 02D4F TIFINAGH LETTER YAN 02D50 TIFINAGH LETTER TUAREG YAGN 02D51 TIFINAGH LETTER TUAREG YANG 02D52 TIFINAGH LETTER YAP 02D53 TIFINAGH LETTER YU 02D54 TIFINAGH LETTER YAR 02D55 TIFINAGH LETTER YARR 02D56 TIFINAGH LETTER YAGH 02D57 TIFINAGH LETTER TUAREG YAGH 02D58 TIFINAGH LETTER AYER YAGH 02D59 TIFINAGH LETTER YAS 02D5A TIFINAGH LETTER YASS 02D5B TIFINAGH LETTER YASH 02D5C TIFINAGH LETTER YAT 02D5D TIFINAGH LETTER YATH 02D5E TIFINAGH LETTER YACH 02D5F TIFINAGH LETTER YATT 02D60 TIFINAGH LETTER YAV 02D61 TIFINAGH LETTER YAW 02D62 TIFINAGH LETTER YAY 02D63 TIFINAGH LETTER YAZ 02D64 TIFINAGH LETTER TAWELLEMET YAZ 02D65 TIFINAGH LETTER YAZZ 02D66 TIFINAGH LETTER YE 02D67 TIFINAGH LETTER YO 02D6F TIFINAGH MODIFIER LETTER LABIALIZATION MARK 02D70 TIFINAGH SEPARATOR MARK 02D7F TIFINAGH CONSONANT JOINER 02D80 ETHIOPIC SYLLABLE LOA 02D81 ETHIOPIC SYLLABLE MOA 02D82 ETHIOPIC SYLLABLE ROA 02D83 ETHIOPIC SYLLABLE SOA 02D84 ETHIOPIC SYLLABLE SHOA 02D85 ETHIOPIC SYLLABLE BOA 02D86 ETHIOPIC SYLLABLE TOA 02D87 ETHIOPIC SYLLABLE COA 02D88 ETHIOPIC SYLLABLE NOA 02D89 ETHIOPIC SYLLABLE NYOA 02D8A ETHIOPIC SYLLABLE GLOTTAL OA 02D8B ETHIOPIC SYLLABLE ZOA 02D8C ETHIOPIC SYLLABLE DOA 02D8D ETHIOPIC SYLLABLE DDOA 02D8E ETHIOPIC SYLLABLE JOA 02D8F ETHIOPIC SYLLABLE THOA 02D90 ETHIOPIC SYLLABLE CHOA 02D91 ETHIOPIC SYLLABLE PHOA 02D92 ETHIOPIC SYLLABLE POA 02D93 ETHIOPIC SYLLABLE GGWA 02D94 ETHIOPIC SYLLABLE GGWI 02D95 ETHIOPIC SYLLABLE GGWEE 02D96 ETHIOPIC SYLLABLE GGWE 02DA0 ETHIOPIC SYLLABLE SSA 02DA1 ETHIOPIC SYLLABLE SSU 02DA2 ETHIOPIC SYLLABLE SSI 02DA3 ETHIOPIC SYLLABLE SSAA 02DA4 ETHIOPIC SYLLABLE SSEE 02DA5 ETHIOPIC SYLLABLE SSE 02DA6 ETHIOPIC SYLLABLE SSO 02DA8 ETHIOPIC SYLLABLE CCA 02DA9 ETHIOPIC SYLLABLE CCU 02DAA ETHIOPIC SYLLABLE CCI 02DAB ETHIOPIC SYLLABLE CCAA 02DAC ETHIOPIC SYLLABLE CCEE 02DAD ETHIOPIC SYLLABLE CCE 02DAE ETHIOPIC SYLLABLE CCO 02DB0 ETHIOPIC SYLLABLE ZZA 02DB1 ETHIOPIC SYLLABLE ZZU 02DB2 ETHIOPIC SYLLABLE ZZI 02DB3 ETHIOPIC SYLLABLE ZZAA 02DB4 ETHIOPIC SYLLABLE ZZEE 02DB5 ETHIOPIC SYLLABLE ZZE 02DB6 ETHIOPIC SYLLABLE ZZO 02DB8 ETHIOPIC SYLLABLE CCHA 02DB9 ETHIOPIC SYLLABLE CCHU 02DBA ETHIOPIC SYLLABLE CCHI 02DBB ETHIOPIC SYLLABLE CCHAA 02DBC ETHIOPIC SYLLABLE CCHEE 02DBD ETHIOPIC SYLLABLE CCHE 02DBE ETHIOPIC SYLLABLE CCHO 02DC0 ETHIOPIC SYLLABLE QYA 02DC1 ETHIOPIC SYLLABLE QYU 02DC2 ETHIOPIC SYLLABLE QYI 02DC3 ETHIOPIC SYLLABLE QYAA 02DC4 ETHIOPIC SYLLABLE QYEE 02DC5 ETHIOPIC SYLLABLE QYE 02DC6 ETHIOPIC SYLLABLE QYO 02DC8 ETHIOPIC SYLLABLE KYA 02DC9 ETHIOPIC SYLLABLE KYU 02DCA ETHIOPIC SYLLABLE KYI 02DCB ETHIOPIC SYLLABLE KYAA 02DCC ETHIOPIC SYLLABLE KYEE 02DCD ETHIOPIC SYLLABLE KYE 02DCE ETHIOPIC SYLLABLE KYO 02DD0 ETHIOPIC SYLLABLE XYA 02DD1 ETHIOPIC SYLLABLE XYU 02DD2 ETHIOPIC SYLLABLE XYI 02DD3 ETHIOPIC SYLLABLE XYAA 02DD4 ETHIOPIC SYLLABLE XYEE 02DD5 ETHIOPIC SYLLABLE XYE 02DD6 ETHIOPIC SYLLABLE XYO 02DD8 ETHIOPIC SYLLABLE GYA 02DD9 ETHIOPIC SYLLABLE GYU 02DDA ETHIOPIC SYLLABLE GYI 02DDB ETHIOPIC SYLLABLE GYAA 02DDC ETHIOPIC SYLLABLE GYEE 02DDD ETHIOPIC SYLLABLE GYE 02DDE ETHIOPIC SYLLABLE GYO 02DE0 COMBINING CYRILLIC LETTER BE 02DE1 COMBINING CYRILLIC LETTER VE 02DE2 COMBINING CYRILLIC LETTER GHE 02DE3 COMBINING CYRILLIC LETTER DE 02DE4 COMBINING CYRILLIC LETTER ZHE 02DE5 COMBINING CYRILLIC LETTER ZE 02DE6 COMBINING CYRILLIC LETTER KA 02DE7 COMBINING CYRILLIC LETTER EL 02DE8 COMBINING CYRILLIC LETTER EM 02DE9 COMBINING CYRILLIC LETTER EN 02DEA COMBINING CYRILLIC LETTER O 02DEB COMBINING CYRILLIC LETTER PE 02DEC COMBINING CYRILLIC LETTER ER 02DED COMBINING CYRILLIC LETTER ES 02DEE COMBINING CYRILLIC LETTER TE 02DEF COMBINING CYRILLIC LETTER HA 02DF0 COMBINING CYRILLIC LETTER TSE 02DF1 COMBINING CYRILLIC LETTER CHE 02DF2 COMBINING CYRILLIC LETTER SHA 02DF3 COMBINING CYRILLIC LETTER SHCHA 02DF4 COMBINING CYRILLIC LETTER FITA 02DF5 COMBINING CYRILLIC LETTER ES-TE 02DF6 COMBINING CYRILLIC LETTER A 02DF7 COMBINING CYRILLIC LETTER IE 02DF8 COMBINING CYRILLIC LETTER DJERV 02DF9 COMBINING CYRILLIC LETTER MONOGRAPH UK 02DFA COMBINING CYRILLIC LETTER YAT 02DFB COMBINING CYRILLIC LETTER YU 02DFC COMBINING CYRILLIC LETTER IOTIFIED A 02DFD COMBINING CYRILLIC LETTER LITTLE YUS 02DFE COMBINING CYRILLIC LETTER BIG YUS 02DFF COMBINING CYRILLIC LETTER IOTIFIED BIG YUS 02E00 RIGHT ANGLE SUBSTITUTION MARKER 02E01 RIGHT ANGLE DOTTED SUBSTITUTION MARKER 02E02 LEFT SUBSTITUTION BRACKET 02E03 RIGHT SUBSTITUTION BRACKET 02E04 LEFT DOTTED SUBSTITUTION BRACKET 02E05 RIGHT DOTTED SUBSTITUTION BRACKET 02E06 RAISED INTERPOLATION MARKER 02E07 RAISED DOTTED INTERPOLATION MARKER 02E08 DOTTED TRANSPOSITION MARKER 02E09 LEFT TRANSPOSITION BRACKET 02E0A RIGHT TRANSPOSITION BRACKET 02E0B RAISED SQUARE 02E0C LEFT RAISED OMISSION BRACKET 02E0D RIGHT RAISED OMISSION BRACKET 02E0E EDITORIAL CORONIS 02E0F PARAGRAPHOS 02E10 FORKED PARAGRAPHOS 02E11 REVERSED FORKED PARAGRAPHOS 02E12 HYPODIASTOLE 02E13 DOTTED OBELOS 02E14 DOWNWARDS ANCORA 02E15 UPWARDS ANCORA 02E16 DOTTED RIGHT-POINTING ANGLE 02E17 DOUBLE OBLIQUE HYPHEN 02E18 INVERTED INTERROBANG 02E19 PALM BRANCH 02E1A HYPHEN WITH DIAERESIS 02E1B TILDE WITH RING ABOVE 02E1C LEFT LOW PARAPHRASE BRACKET 02E1D RIGHT LOW PARAPHRASE BRACKET 02E1E TILDE WITH DOT ABOVE 02E1F TILDE WITH DOT BELOW 02E20 LEFT VERTICAL BAR WITH QUILL 02E21 RIGHT VERTICAL BAR WITH QUILL 02E22 TOP LEFT HALF BRACKET 02E23 TOP RIGHT HALF BRACKET 02E24 BOTTOM LEFT HALF BRACKET 02E25 BOTTOM RIGHT HALF BRACKET 02E26 LEFT SIDEWAYS U BRACKET 02E27 RIGHT SIDEWAYS U BRACKET 02E28 LEFT DOUBLE PARENTHESIS 02E29 RIGHT DOUBLE PARENTHESIS 02E2A TWO DOTS OVER ONE DOT PUNCTUATION 02E2B ONE DOT OVER TWO DOTS PUNCTUATION 02E2C SQUARED FOUR DOT PUNCTUATION 02E2D FIVE DOT MARK 02E2E REVERSED QUESTION MARK 02E2F VERTICAL TILDE 02E30 RING POINT 02E31 WORD SEPARATOR MIDDLE DOT 02E32 TURNED COMMA 02E33 RAISED DOT 02E34 RAISED COMMA 02E35 TURNED SEMICOLON 02E36 DAGGER WITH LEFT GUARD 02E37 DAGGER WITH RIGHT GUARD 02E38 TURNED DAGGER 02E39 TOP HALF SECTION SIGN 02E3A TWO-EM DASH 02E3B THREE-EM DASH 02E3C STENOGRAPHIC FULL STOP 02E3D VERTICAL SIX DOTS 02E3E WIGGLY VERTICAL LINE 02E3F CAPITULUM 02E40 DOUBLE HYPHEN 02E41 REVERSED COMMA 02E42 DOUBLE LOW-REVERSED-9 QUOTATION MARK 02E43 DASH WITH LEFT UPTURN 02E44 DOUBLE SUSPENSION MARK 02E45 INVERTED LOW KAVYKA 02E46 INVERTED LOW KAVYKA WITH KAVYKA ABOVE 02E47 LOW KAVYKA 02E48 LOW KAVYKA WITH DOT 02E49 DOUBLE STACKED COMMA 02E4A DOTTED SOLIDUS 02E4B TRIPLE DAGGER 02E4C MEDIEVAL COMMA 02E4D PARAGRAPHUS MARK 02E4E PUNCTUS ELEVATUS MARK 02E4F CORNISH VERSE DIVIDER 02E50 CROSS PATTY WITH RIGHT CROSSBAR 02E51 CROSS PATTY WITH LEFT CROSSBAR 02E52 TIRONIAN SIGN CAPITAL ET 02E80 CJK RADICAL REPEAT 02E81 CJK RADICAL CLIFF 02E82 CJK RADICAL SECOND ONE 02E83 CJK RADICAL SECOND TWO 02E84 CJK RADICAL SECOND THREE 02E85 CJK RADICAL PERSON 02E86 CJK RADICAL BOX 02E87 CJK RADICAL TABLE 02E88 CJK RADICAL KNIFE ONE 02E89 CJK RADICAL KNIFE TWO 02E8A CJK RADICAL DIVINATION 02E8B CJK RADICAL SEAL 02E8C CJK RADICAL SMALL ONE 02E8D CJK RADICAL SMALL TWO 02E8E CJK RADICAL LAME ONE 02E8F CJK RADICAL LAME TWO 02E90 CJK RADICAL LAME THREE 02E91 CJK RADICAL LAME FOUR 02E92 CJK RADICAL SNAKE 02E93 CJK RADICAL THREAD 02E94 CJK RADICAL SNOUT ONE 02E95 CJK RADICAL SNOUT TWO 02E96 CJK RADICAL HEART ONE 02E97 CJK RADICAL HEART TWO 02E98 CJK RADICAL HAND 02E99 CJK RADICAL RAP 02E9B CJK RADICAL CHOKE 02E9C CJK RADICAL SUN 02E9D CJK RADICAL MOON 02E9E CJK RADICAL DEATH 02E9F CJK RADICAL MOTHER 02EA0 CJK RADICAL CIVILIAN 02EA1 CJK RADICAL WATER ONE 02EA2 CJK RADICAL WATER TWO 02EA3 CJK RADICAL FIRE 02EA4 CJK RADICAL PAW ONE 02EA5 CJK RADICAL PAW TWO 02EA6 CJK RADICAL SIMPLIFIED HALF TREE TRUNK 02EA7 CJK RADICAL COW 02EA8 CJK RADICAL DOG 02EA9 CJK RADICAL JADE 02EAA CJK RADICAL BOLT OF CLOTH 02EAB CJK RADICAL EYE 02EAC CJK RADICAL SPIRIT ONE 02EAD CJK RADICAL SPIRIT TWO 02EAE CJK RADICAL BAMBOO 02EAF CJK RADICAL SILK 02EB0 CJK RADICAL C-SIMPLIFIED SILK 02EB1 CJK RADICAL NET ONE 02EB2 CJK RADICAL NET TWO 02EB3 CJK RADICAL NET THREE 02EB4 CJK RADICAL NET FOUR 02EB5 CJK RADICAL MESH 02EB6 CJK RADICAL SHEEP 02EB7 CJK RADICAL RAM 02EB8 CJK RADICAL EWE 02EB9 CJK RADICAL OLD 02EBA CJK RADICAL BRUSH ONE 02EBB CJK RADICAL BRUSH TWO 02EBC CJK RADICAL MEAT 02EBD CJK RADICAL MORTAR 02EBE CJK RADICAL GRASS ONE 02EBF CJK RADICAL GRASS TWO 02EC0 CJK RADICAL GRASS THREE 02EC1 CJK RADICAL TIGER 02EC2 CJK RADICAL CLOTHES 02EC3 CJK RADICAL WEST ONE 02EC4 CJK RADICAL WEST TWO 02EC5 CJK RADICAL C-SIMPLIFIED SEE 02EC6 CJK RADICAL SIMPLIFIED HORN 02EC7 CJK RADICAL HORN 02EC8 CJK RADICAL C-SIMPLIFIED SPEECH 02EC9 CJK RADICAL C-SIMPLIFIED SHELL 02ECA CJK RADICAL FOOT 02ECB CJK RADICAL C-SIMPLIFIED CART 02ECC CJK RADICAL SIMPLIFIED WALK 02ECD CJK RADICAL WALK ONE 02ECE CJK RADICAL WALK TWO 02ECF CJK RADICAL CITY 02ED0 CJK RADICAL C-SIMPLIFIED GOLD 02ED1 CJK RADICAL LONG ONE 02ED2 CJK RADICAL LONG TWO 02ED3 CJK RADICAL C-SIMPLIFIED LONG 02ED4 CJK RADICAL C-SIMPLIFIED GATE 02ED5 CJK RADICAL MOUND ONE 02ED6 CJK RADICAL MOUND TWO 02ED7 CJK RADICAL RAIN 02ED8 CJK RADICAL BLUE 02ED9 CJK RADICAL C-SIMPLIFIED TANNED LEATHER 02EDA CJK RADICAL C-SIMPLIFIED LEAF 02EDB CJK RADICAL C-SIMPLIFIED WIND 02EDC CJK RADICAL C-SIMPLIFIED FLY 02EDD CJK RADICAL EAT ONE 02EDE CJK RADICAL EAT TWO 02EDF CJK RADICAL EAT THREE 02EE0 CJK RADICAL C-SIMPLIFIED EAT 02EE1 CJK RADICAL HEAD 02EE2 CJK RADICAL C-SIMPLIFIED HORSE 02EE3 CJK RADICAL BONE 02EE4 CJK RADICAL GHOST 02EE5 CJK RADICAL C-SIMPLIFIED FISH 02EE6 CJK RADICAL C-SIMPLIFIED BIRD 02EE7 CJK RADICAL C-SIMPLIFIED SALT 02EE8 CJK RADICAL SIMPLIFIED WHEAT 02EE9 CJK RADICAL SIMPLIFIED YELLOW 02EEA CJK RADICAL C-SIMPLIFIED FROG 02EEB CJK RADICAL J-SIMPLIFIED EVEN 02EEC CJK RADICAL C-SIMPLIFIED EVEN 02EED CJK RADICAL J-SIMPLIFIED TOOTH 02EEE CJK RADICAL C-SIMPLIFIED TOOTH 02EEF CJK RADICAL J-SIMPLIFIED DRAGON 02EF0 CJK RADICAL C-SIMPLIFIED DRAGON 02EF1 CJK RADICAL TURTLE 02EF2 CJK RADICAL J-SIMPLIFIED TURTLE 02EF3 CJK RADICAL C-SIMPLIFIED TURTLE 02F00 KANGXI RADICAL ONE 02F01 KANGXI RADICAL LINE 02F02 KANGXI RADICAL DOT 02F03 KANGXI RADICAL SLASH 02F04 KANGXI RADICAL SECOND 02F05 KANGXI RADICAL HOOK 02F06 KANGXI RADICAL TWO 02F07 KANGXI RADICAL LID 02F08 KANGXI RADICAL MAN 02F09 KANGXI RADICAL LEGS 02F0A KANGXI RADICAL ENTER 02F0B KANGXI RADICAL EIGHT 02F0C KANGXI RADICAL DOWN BOX 02F0D KANGXI RADICAL COVER 02F0E KANGXI RADICAL ICE 02F0F KANGXI RADICAL TABLE 02F10 KANGXI RADICAL OPEN BOX 02F11 KANGXI RADICAL KNIFE 02F12 KANGXI RADICAL POWER 02F13 KANGXI RADICAL WRAP 02F14 KANGXI RADICAL SPOON 02F15 KANGXI RADICAL RIGHT OPEN BOX 02F16 KANGXI RADICAL HIDING ENCLOSURE 02F17 KANGXI RADICAL TEN 02F18 KANGXI RADICAL DIVINATION 02F19 KANGXI RADICAL SEAL 02F1A KANGXI RADICAL CLIFF 02F1B KANGXI RADICAL PRIVATE 02F1C KANGXI RADICAL AGAIN 02F1D KANGXI RADICAL MOUTH 02F1E KANGXI RADICAL ENCLOSURE 02F1F KANGXI RADICAL EARTH 02F20 KANGXI RADICAL SCHOLAR 02F21 KANGXI RADICAL GO 02F22 KANGXI RADICAL GO SLOWLY 02F23 KANGXI RADICAL EVENING 02F24 KANGXI RADICAL BIG 02F25 KANGXI RADICAL WOMAN 02F26 KANGXI RADICAL CHILD 02F27 KANGXI RADICAL ROOF 02F28 KANGXI RADICAL INCH 02F29 KANGXI RADICAL SMALL 02F2A KANGXI RADICAL LAME 02F2B KANGXI RADICAL CORPSE 02F2C KANGXI RADICAL SPROUT 02F2D KANGXI RADICAL MOUNTAIN 02F2E KANGXI RADICAL RIVER 02F2F KANGXI RADICAL WORK 02F30 KANGXI RADICAL ONESELF 02F31 KANGXI RADICAL TURBAN 02F32 KANGXI RADICAL DRY 02F33 KANGXI RADICAL SHORT THREAD 02F34 KANGXI RADICAL DOTTED CLIFF 02F35 KANGXI RADICAL LONG STRIDE 02F36 KANGXI RADICAL TWO HANDS 02F37 KANGXI RADICAL SHOOT 02F38 KANGXI RADICAL BOW 02F39 KANGXI RADICAL SNOUT 02F3A KANGXI RADICAL BRISTLE 02F3B KANGXI RADICAL STEP 02F3C KANGXI RADICAL HEART 02F3D KANGXI RADICAL HALBERD 02F3E KANGXI RADICAL DOOR 02F3F KANGXI RADICAL HAND 02F40 KANGXI RADICAL BRANCH 02F41 KANGXI RADICAL RAP 02F42 KANGXI RADICAL SCRIPT 02F43 KANGXI RADICAL DIPPER 02F44 KANGXI RADICAL AXE 02F45 KANGXI RADICAL SQUARE 02F46 KANGXI RADICAL NOT 02F47 KANGXI RADICAL SUN 02F48 KANGXI RADICAL SAY 02F49 KANGXI RADICAL MOON 02F4A KANGXI RADICAL TREE 02F4B KANGXI RADICAL LACK 02F4C KANGXI RADICAL STOP 02F4D KANGXI RADICAL DEATH 02F4E KANGXI RADICAL WEAPON 02F4F KANGXI RADICAL DO NOT 02F50 KANGXI RADICAL COMPARE 02F51 KANGXI RADICAL FUR 02F52 KANGXI RADICAL CLAN 02F53 KANGXI RADICAL STEAM 02F54 KANGXI RADICAL WATER 02F55 KANGXI RADICAL FIRE 02F56 KANGXI RADICAL CLAW 02F57 KANGXI RADICAL FATHER 02F58 KANGXI RADICAL DOUBLE X 02F59 KANGXI RADICAL HALF TREE TRUNK 02F5A KANGXI RADICAL SLICE 02F5B KANGXI RADICAL FANG 02F5C KANGXI RADICAL COW 02F5D KANGXI RADICAL DOG 02F5E KANGXI RADICAL PROFOUND 02F5F KANGXI RADICAL JADE 02F60 KANGXI RADICAL MELON 02F61 KANGXI RADICAL TILE 02F62 KANGXI RADICAL SWEET 02F63 KANGXI RADICAL LIFE 02F64 KANGXI RADICAL USE 02F65 KANGXI RADICAL FIELD 02F66 KANGXI RADICAL BOLT OF CLOTH 02F67 KANGXI RADICAL SICKNESS 02F68 KANGXI RADICAL DOTTED TENT 02F69 KANGXI RADICAL WHITE 02F6A KANGXI RADICAL SKIN 02F6B KANGXI RADICAL DISH 02F6C KANGXI RADICAL EYE 02F6D KANGXI RADICAL SPEAR 02F6E KANGXI RADICAL ARROW 02F6F KANGXI RADICAL STONE 02F70 KANGXI RADICAL SPIRIT 02F71 KANGXI RADICAL TRACK 02F72 KANGXI RADICAL GRAIN 02F73 KANGXI RADICAL CAVE 02F74 KANGXI RADICAL STAND 02F75 KANGXI RADICAL BAMBOO 02F76 KANGXI RADICAL RICE 02F77 KANGXI RADICAL SILK 02F78 KANGXI RADICAL JAR 02F79 KANGXI RADICAL NET 02F7A KANGXI RADICAL SHEEP 02F7B KANGXI RADICAL FEATHER 02F7C KANGXI RADICAL OLD 02F7D KANGXI RADICAL AND 02F7E KANGXI RADICAL PLOW 02F7F KANGXI RADICAL EAR 02F80 KANGXI RADICAL BRUSH 02F81 KANGXI RADICAL MEAT 02F82 KANGXI RADICAL MINISTER 02F83 KANGXI RADICAL SELF 02F84 KANGXI RADICAL ARRIVE 02F85 KANGXI RADICAL MORTAR 02F86 KANGXI RADICAL TONGUE 02F87 KANGXI RADICAL OPPOSE 02F88 KANGXI RADICAL BOAT 02F89 KANGXI RADICAL STOPPING 02F8A KANGXI RADICAL COLOR 02F8B KANGXI RADICAL GRASS 02F8C KANGXI RADICAL TIGER 02F8D KANGXI RADICAL INSECT 02F8E KANGXI RADICAL BLOOD 02F8F KANGXI RADICAL WALK ENCLOSURE 02F90 KANGXI RADICAL CLOTHES 02F91 KANGXI RADICAL WEST 02F92 KANGXI RADICAL SEE 02F93 KANGXI RADICAL HORN 02F94 KANGXI RADICAL SPEECH 02F95 KANGXI RADICAL VALLEY 02F96 KANGXI RADICAL BEAN 02F97 KANGXI RADICAL PIG 02F98 KANGXI RADICAL BADGER 02F99 KANGXI RADICAL SHELL 02F9A KANGXI RADICAL RED 02F9B KANGXI RADICAL RUN 02F9C KANGXI RADICAL FOOT 02F9D KANGXI RADICAL BODY 02F9E KANGXI RADICAL CART 02F9F KANGXI RADICAL BITTER 02FA0 KANGXI RADICAL MORNING 02FA1 KANGXI RADICAL WALK 02FA2 KANGXI RADICAL CITY 02FA3 KANGXI RADICAL WINE 02FA4 KANGXI RADICAL DISTINGUISH 02FA5 KANGXI RADICAL VILLAGE 02FA6 KANGXI RADICAL GOLD 02FA7 KANGXI RADICAL LONG 02FA8 KANGXI RADICAL GATE 02FA9 KANGXI RADICAL MOUND 02FAA KANGXI RADICAL SLAVE 02FAB KANGXI RADICAL SHORT TAILED BIRD 02FAC KANGXI RADICAL RAIN 02FAD KANGXI RADICAL BLUE 02FAE KANGXI RADICAL WRONG 02FAF KANGXI RADICAL FACE 02FB0 KANGXI RADICAL LEATHER 02FB1 KANGXI RADICAL TANNED LEATHER 02FB2 KANGXI RADICAL LEEK 02FB3 KANGXI RADICAL SOUND 02FB4 KANGXI RADICAL LEAF 02FB5 KANGXI RADICAL WIND 02FB6 KANGXI RADICAL FLY 02FB7 KANGXI RADICAL EAT 02FB8 KANGXI RADICAL HEAD 02FB9 KANGXI RADICAL FRAGRANT 02FBA KANGXI RADICAL HORSE 02FBB KANGXI RADICAL BONE 02FBC KANGXI RADICAL TALL 02FBD KANGXI RADICAL HAIR 02FBE KANGXI RADICAL FIGHT 02FBF KANGXI RADICAL SACRIFICIAL WINE 02FC0 KANGXI RADICAL CAULDRON 02FC1 KANGXI RADICAL GHOST 02FC2 KANGXI RADICAL FISH 02FC3 KANGXI RADICAL BIRD 02FC4 KANGXI RADICAL SALT 02FC5 KANGXI RADICAL DEER 02FC6 KANGXI RADICAL WHEAT 02FC7 KANGXI RADICAL HEMP 02FC8 KANGXI RADICAL YELLOW 02FC9 KANGXI RADICAL MILLET 02FCA KANGXI RADICAL BLACK 02FCB KANGXI RADICAL EMBROIDERY 02FCC KANGXI RADICAL FROG 02FCD KANGXI RADICAL TRIPOD 02FCE KANGXI RADICAL DRUM 02FCF KANGXI RADICAL RAT 02FD0 KANGXI RADICAL NOSE 02FD1 KANGXI RADICAL EVEN 02FD2 KANGXI RADICAL TOOTH 02FD3 KANGXI RADICAL DRAGON 02FD4 KANGXI RADICAL TURTLE 02FD5 KANGXI RADICAL FLUTE 02FF0 IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT 02FF1 IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW 02FF2 IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO MIDDLE AND RIGHT 02FF3 IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO MIDDLE AND BELOW 02FF4 IDEOGRAPHIC DESCRIPTION CHARACTER FULL SURROUND 02FF5 IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM ABOVE 02FF6 IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM BELOW 02FF7 IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LEFT 02FF8 IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT 02FF9 IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER RIGHT 02FFA IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LOWER LEFT 02FFB IDEOGRAPHIC DESCRIPTION CHARACTER OVERLAID 03000 IDEOGRAPHIC SPACE 03001 IDEOGRAPHIC COMMA 03002 IDEOGRAPHIC FULL STOP 03003 DITTO MARK 03004 JAPANESE INDUSTRIAL STANDARD SYMBOL 03005 IDEOGRAPHIC ITERATION MARK 03006 IDEOGRAPHIC CLOSING MARK 03007 IDEOGRAPHIC NUMBER ZERO 03008 LEFT ANGLE BRACKET 03009 RIGHT ANGLE BRACKET 0300A LEFT DOUBLE ANGLE BRACKET 0300B RIGHT DOUBLE ANGLE BRACKET 0300C LEFT CORNER BRACKET 0300D RIGHT CORNER BRACKET 0300E LEFT WHITE CORNER BRACKET 0300F RIGHT WHITE CORNER BRACKET 03010 LEFT BLACK LENTICULAR BRACKET 03011 RIGHT BLACK LENTICULAR BRACKET 03012 POSTAL MARK 03013 GETA MARK 03014 LEFT TORTOISE SHELL BRACKET 03015 RIGHT TORTOISE SHELL BRACKET 03016 LEFT WHITE LENTICULAR BRACKET 03017 RIGHT WHITE LENTICULAR BRACKET 03018 LEFT WHITE TORTOISE SHELL BRACKET 03019 RIGHT WHITE TORTOISE SHELL BRACKET 0301A LEFT WHITE SQUARE BRACKET 0301B RIGHT WHITE SQUARE BRACKET 0301C WAVE DASH 0301D REVERSED DOUBLE PRIME QUOTATION MARK 0301E DOUBLE PRIME QUOTATION MARK 0301F LOW DOUBLE PRIME QUOTATION MARK 03020 POSTAL MARK FACE 03021 HANGZHOU NUMERAL ONE 03022 HANGZHOU NUMERAL TWO 03023 HANGZHOU NUMERAL THREE 03024 HANGZHOU NUMERAL FOUR 03025 HANGZHOU NUMERAL FIVE 03026 HANGZHOU NUMERAL SIX 03027 HANGZHOU NUMERAL SEVEN 03028 HANGZHOU NUMERAL EIGHT 03029 HANGZHOU NUMERAL NINE 0302A IDEOGRAPHIC LEVEL TONE MARK 0302B IDEOGRAPHIC RISING TONE MARK 0302C IDEOGRAPHIC DEPARTING TONE MARK 0302D IDEOGRAPHIC ENTERING TONE MARK 0302E HANGUL SINGLE DOT TONE MARK 0302F HANGUL DOUBLE DOT TONE MARK 03030 WAVY DASH 03031 VERTICAL KANA REPEAT MARK 03032 VERTICAL KANA REPEAT WITH VOICED SOUND MARK 03033 VERTICAL KANA REPEAT MARK UPPER HALF 03034 VERTICAL KANA REPEAT WITH VOICED SOUND MARK UPPER HALF 03035 VERTICAL KANA REPEAT MARK LOWER HALF 03036 CIRCLED POSTAL MARK 03037 IDEOGRAPHIC TELEGRAPH LINE FEED SEPARATOR SYMBOL 03038 HANGZHOU NUMERAL TEN 03039 HANGZHOU NUMERAL TWENTY 0303A HANGZHOU NUMERAL THIRTY 0303B VERTICAL IDEOGRAPHIC ITERATION MARK 0303C MASU MARK 0303D PART ALTERNATION MARK 0303E IDEOGRAPHIC VARIATION INDICATOR 0303F IDEOGRAPHIC HALF FILL SPACE 03041 HIRAGANA LETTER SMALL A 03042 HIRAGANA LETTER A 03043 HIRAGANA LETTER SMALL I 03044 HIRAGANA LETTER I 03045 HIRAGANA LETTER SMALL U 03046 HIRAGANA LETTER U 03047 HIRAGANA LETTER SMALL E 03048 HIRAGANA LETTER E 03049 HIRAGANA LETTER SMALL O 0304A HIRAGANA LETTER O 0304B HIRAGANA LETTER KA 0304C HIRAGANA LETTER GA 0304D HIRAGANA LETTER KI 0304E HIRAGANA LETTER GI 0304F HIRAGANA LETTER KU 03050 HIRAGANA LETTER GU 03051 HIRAGANA LETTER KE 03052 HIRAGANA LETTER GE 03053 HIRAGANA LETTER KO 03054 HIRAGANA LETTER GO 03055 HIRAGANA LETTER SA 03056 HIRAGANA LETTER ZA 03057 HIRAGANA LETTER SI 03058 HIRAGANA LETTER ZI 03059 HIRAGANA LETTER SU 0305A HIRAGANA LETTER ZU 0305B HIRAGANA LETTER SE 0305C HIRAGANA LETTER ZE 0305D HIRAGANA LETTER SO 0305E HIRAGANA LETTER ZO 0305F HIRAGANA LETTER TA 03060 HIRAGANA LETTER DA 03061 HIRAGANA LETTER TI 03062 HIRAGANA LETTER DI 03063 HIRAGANA LETTER SMALL TU 03064 HIRAGANA LETTER TU 03065 HIRAGANA LETTER DU 03066 HIRAGANA LETTER TE 03067 HIRAGANA LETTER DE 03068 HIRAGANA LETTER TO 03069 HIRAGANA LETTER DO 0306A HIRAGANA LETTER NA 0306B HIRAGANA LETTER NI 0306C HIRAGANA LETTER NU 0306D HIRAGANA LETTER NE 0306E HIRAGANA LETTER NO 0306F HIRAGANA LETTER HA 03070 HIRAGANA LETTER BA 03071 HIRAGANA LETTER PA 03072 HIRAGANA LETTER HI 03073 HIRAGANA LETTER BI 03074 HIRAGANA LETTER PI 03075 HIRAGANA LETTER HU 03076 HIRAGANA LETTER BU 03077 HIRAGANA LETTER PU 03078 HIRAGANA LETTER HE 03079 HIRAGANA LETTER BE 0307A HIRAGANA LETTER PE 0307B HIRAGANA LETTER HO 0307C HIRAGANA LETTER BO 0307D HIRAGANA LETTER PO 0307E HIRAGANA LETTER MA 0307F HIRAGANA LETTER MI 03080 HIRAGANA LETTER MU 03081 HIRAGANA LETTER ME 03082 HIRAGANA LETTER MO 03083 HIRAGANA LETTER SMALL YA 03084 HIRAGANA LETTER YA 03085 HIRAGANA LETTER SMALL YU 03086 HIRAGANA LETTER YU 03087 HIRAGANA LETTER SMALL YO 03088 HIRAGANA LETTER YO 03089 HIRAGANA LETTER RA 0308A HIRAGANA LETTER RI 0308B HIRAGANA LETTER RU 0308C HIRAGANA LETTER RE 0308D HIRAGANA LETTER RO 0308E HIRAGANA LETTER SMALL WA 0308F HIRAGANA LETTER WA 03090 HIRAGANA LETTER WI 03091 HIRAGANA LETTER WE 03092 HIRAGANA LETTER WO 03093 HIRAGANA LETTER N 03094 HIRAGANA LETTER VU 03095 HIRAGANA LETTER SMALL KA 03096 HIRAGANA LETTER SMALL KE 03099 COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK 0309A COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK 0309B KATAKANA-HIRAGANA VOICED SOUND MARK 0309C KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK 0309D HIRAGANA ITERATION MARK 0309E HIRAGANA VOICED ITERATION MARK 0309F HIRAGANA DIGRAPH YORI 030A0 KATAKANA-HIRAGANA DOUBLE HYPHEN 030A1 KATAKANA LETTER SMALL A 030A2 KATAKANA LETTER A 030A3 KATAKANA LETTER SMALL I 030A4 KATAKANA LETTER I 030A5 KATAKANA LETTER SMALL U 030A6 KATAKANA LETTER U 030A7 KATAKANA LETTER SMALL E 030A8 KATAKANA LETTER E 030A9 KATAKANA LETTER SMALL O 030AA KATAKANA LETTER O 030AB KATAKANA LETTER KA 030AC KATAKANA LETTER GA 030AD KATAKANA LETTER KI 030AE KATAKANA LETTER GI 030AF KATAKANA LETTER KU 030B0 KATAKANA LETTER GU 030B1 KATAKANA LETTER KE 030B2 KATAKANA LETTER GE 030B3 KATAKANA LETTER KO 030B4 KATAKANA LETTER GO 030B5 KATAKANA LETTER SA 030B6 KATAKANA LETTER ZA 030B7 KATAKANA LETTER SI 030B8 KATAKANA LETTER ZI 030B9 KATAKANA LETTER SU 030BA KATAKANA LETTER ZU 030BB KATAKANA LETTER SE 030BC KATAKANA LETTER ZE 030BD KATAKANA LETTER SO 030BE KATAKANA LETTER ZO 030BF KATAKANA LETTER TA 030C0 KATAKANA LETTER DA 030C1 KATAKANA LETTER TI 030C2 KATAKANA LETTER DI 030C3 KATAKANA LETTER SMALL TU 030C4 KATAKANA LETTER TU 030C5 KATAKANA LETTER DU 030C6 KATAKANA LETTER TE 030C7 KATAKANA LETTER DE 030C8 KATAKANA LETTER TO 030C9 KATAKANA LETTER DO 030CA KATAKANA LETTER NA 030CB KATAKANA LETTER NI 030CC KATAKANA LETTER NU 030CD KATAKANA LETTER NE 030CE KATAKANA LETTER NO 030CF KATAKANA LETTER HA 030D0 KATAKANA LETTER BA 030D1 KATAKANA LETTER PA 030D2 KATAKANA LETTER HI 030D3 KATAKANA LETTER BI 030D4 KATAKANA LETTER PI 030D5 KATAKANA LETTER HU 030D6 KATAKANA LETTER BU 030D7 KATAKANA LETTER PU 030D8 KATAKANA LETTER HE 030D9 KATAKANA LETTER BE 030DA KATAKANA LETTER PE 030DB KATAKANA LETTER HO 030DC KATAKANA LETTER BO 030DD KATAKANA LETTER PO 030DE KATAKANA LETTER MA 030DF KATAKANA LETTER MI 030E0 KATAKANA LETTER MU 030E1 KATAKANA LETTER ME 030E2 KATAKANA LETTER MO 030E3 KATAKANA LETTER SMALL YA 030E4 KATAKANA LETTER YA 030E5 KATAKANA LETTER SMALL YU 030E6 KATAKANA LETTER YU 030E7 KATAKANA LETTER SMALL YO 030E8 KATAKANA LETTER YO 030E9 KATAKANA LETTER RA 030EA KATAKANA LETTER RI 030EB KATAKANA LETTER RU 030EC KATAKANA LETTER RE 030ED KATAKANA LETTER RO 030EE KATAKANA LETTER SMALL WA 030EF KATAKANA LETTER WA 030F0 KATAKANA LETTER WI 030F1 KATAKANA LETTER WE 030F2 KATAKANA LETTER WO 030F3 KATAKANA LETTER N 030F4 KATAKANA LETTER VU 030F5 KATAKANA LETTER SMALL KA 030F6 KATAKANA LETTER SMALL KE 030F7 KATAKANA LETTER VA 030F8 KATAKANA LETTER VI 030F9 KATAKANA LETTER VE 030FA KATAKANA LETTER VO 030FB KATAKANA MIDDLE DOT 030FC KATAKANA-HIRAGANA PROLONGED SOUND MARK 030FD KATAKANA ITERATION MARK 030FE KATAKANA VOICED ITERATION MARK 030FF KATAKANA DIGRAPH KOTO 03105 BOPOMOFO LETTER B 03106 BOPOMOFO LETTER P 03107 BOPOMOFO LETTER M 03108 BOPOMOFO LETTER F 03109 BOPOMOFO LETTER D 0310A BOPOMOFO LETTER T 0310B BOPOMOFO LETTER N 0310C BOPOMOFO LETTER L 0310D BOPOMOFO LETTER G 0310E BOPOMOFO LETTER K 0310F BOPOMOFO LETTER H 03110 BOPOMOFO LETTER J 03111 BOPOMOFO LETTER Q 03112 BOPOMOFO LETTER X 03113 BOPOMOFO LETTER ZH 03114 BOPOMOFO LETTER CH 03115 BOPOMOFO LETTER SH 03116 BOPOMOFO LETTER R 03117 BOPOMOFO LETTER Z 03118 BOPOMOFO LETTER C 03119 BOPOMOFO LETTER S 0311A BOPOMOFO LETTER A 0311B BOPOMOFO LETTER O 0311C BOPOMOFO LETTER E 0311D BOPOMOFO LETTER EH 0311E BOPOMOFO LETTER AI 0311F BOPOMOFO LETTER EI 03120 BOPOMOFO LETTER AU 03121 BOPOMOFO LETTER OU 03122 BOPOMOFO LETTER AN 03123 BOPOMOFO LETTER EN 03124 BOPOMOFO LETTER ANG 03125 BOPOMOFO LETTER ENG 03126 BOPOMOFO LETTER ER 03127 BOPOMOFO LETTER I 03128 BOPOMOFO LETTER U 03129 BOPOMOFO LETTER IU 0312A BOPOMOFO LETTER V 0312B BOPOMOFO LETTER NG 0312C BOPOMOFO LETTER GN 0312D BOPOMOFO LETTER IH 0312E BOPOMOFO LETTER O WITH DOT ABOVE 0312F BOPOMOFO LETTER NN 03131 HANGUL LETTER KIYEOK 03132 HANGUL LETTER SSANGKIYEOK 03133 HANGUL LETTER KIYEOK-SIOS 03134 HANGUL LETTER NIEUN 03135 HANGUL LETTER NIEUN-CIEUC 03136 HANGUL LETTER NIEUN-HIEUH 03137 HANGUL LETTER TIKEUT 03138 HANGUL LETTER SSANGTIKEUT 03139 HANGUL LETTER RIEUL 0313A HANGUL LETTER RIEUL-KIYEOK 0313B HANGUL LETTER RIEUL-MIEUM 0313C HANGUL LETTER RIEUL-PIEUP 0313D HANGUL LETTER RIEUL-SIOS 0313E HANGUL LETTER RIEUL-THIEUTH 0313F HANGUL LETTER RIEUL-PHIEUPH 03140 HANGUL LETTER RIEUL-HIEUH 03141 HANGUL LETTER MIEUM 03142 HANGUL LETTER PIEUP 03143 HANGUL LETTER SSANGPIEUP 03144 HANGUL LETTER PIEUP-SIOS 03145 HANGUL LETTER SIOS 03146 HANGUL LETTER SSANGSIOS 03147 HANGUL LETTER IEUNG 03148 HANGUL LETTER CIEUC 03149 HANGUL LETTER SSANGCIEUC 0314A HANGUL LETTER CHIEUCH 0314B HANGUL LETTER KHIEUKH 0314C HANGUL LETTER THIEUTH 0314D HANGUL LETTER PHIEUPH 0314E HANGUL LETTER HIEUH 0314F HANGUL LETTER A 03150 HANGUL LETTER AE 03151 HANGUL LETTER YA 03152 HANGUL LETTER YAE 03153 HANGUL LETTER EO 03154 HANGUL LETTER E 03155 HANGUL LETTER YEO 03156 HANGUL LETTER YE 03157 HANGUL LETTER O 03158 HANGUL LETTER WA 03159 HANGUL LETTER WAE 0315A HANGUL LETTER OE 0315B HANGUL LETTER YO 0315C HANGUL LETTER U 0315D HANGUL LETTER WEO 0315E HANGUL LETTER WE 0315F HANGUL LETTER WI 03160 HANGUL LETTER YU 03161 HANGUL LETTER EU 03162 HANGUL LETTER YI 03163 HANGUL LETTER I 03164 HANGUL FILLER 03165 HANGUL LETTER SSANGNIEUN 03166 HANGUL LETTER NIEUN-TIKEUT 03167 HANGUL LETTER NIEUN-SIOS 03168 HANGUL LETTER NIEUN-PANSIOS 03169 HANGUL LETTER RIEUL-KIYEOK-SIOS 0316A HANGUL LETTER RIEUL-TIKEUT 0316B HANGUL LETTER RIEUL-PIEUP-SIOS 0316C HANGUL LETTER RIEUL-PANSIOS 0316D HANGUL LETTER RIEUL-YEORINHIEUH 0316E HANGUL LETTER MIEUM-PIEUP 0316F HANGUL LETTER MIEUM-SIOS 03170 HANGUL LETTER MIEUM-PANSIOS 03171 HANGUL LETTER KAPYEOUNMIEUM 03172 HANGUL LETTER PIEUP-KIYEOK 03173 HANGUL LETTER PIEUP-TIKEUT 03174 HANGUL LETTER PIEUP-SIOS-KIYEOK 03175 HANGUL LETTER PIEUP-SIOS-TIKEUT 03176 HANGUL LETTER PIEUP-CIEUC 03177 HANGUL LETTER PIEUP-THIEUTH 03178 HANGUL LETTER KAPYEOUNPIEUP 03179 HANGUL LETTER KAPYEOUNSSANGPIEUP 0317A HANGUL LETTER SIOS-KIYEOK 0317B HANGUL LETTER SIOS-NIEUN 0317C HANGUL LETTER SIOS-TIKEUT 0317D HANGUL LETTER SIOS-PIEUP 0317E HANGUL LETTER SIOS-CIEUC 0317F HANGUL LETTER PANSIOS 03180 HANGUL LETTER SSANGIEUNG 03181 HANGUL LETTER YESIEUNG 03182 HANGUL LETTER YESIEUNG-SIOS 03183 HANGUL LETTER YESIEUNG-PANSIOS 03184 HANGUL LETTER KAPYEOUNPHIEUPH 03185 HANGUL LETTER SSANGHIEUH 03186 HANGUL LETTER YEORINHIEUH 03187 HANGUL LETTER YO-YA 03188 HANGUL LETTER YO-YAE 03189 HANGUL LETTER YO-I 0318A HANGUL LETTER YU-YEO 0318B HANGUL LETTER YU-YE 0318C HANGUL LETTER YU-I 0318D HANGUL LETTER ARAEA 0318E HANGUL LETTER ARAEAE 03190 IDEOGRAPHIC ANNOTATION LINKING MARK 03191 IDEOGRAPHIC ANNOTATION REVERSE MARK 03192 IDEOGRAPHIC ANNOTATION ONE MARK 03193 IDEOGRAPHIC ANNOTATION TWO MARK 03194 IDEOGRAPHIC ANNOTATION THREE MARK 03195 IDEOGRAPHIC ANNOTATION FOUR MARK 03196 IDEOGRAPHIC ANNOTATION TOP MARK 03197 IDEOGRAPHIC ANNOTATION MIDDLE MARK 03198 IDEOGRAPHIC ANNOTATION BOTTOM MARK 03199 IDEOGRAPHIC ANNOTATION FIRST MARK 0319A IDEOGRAPHIC ANNOTATION SECOND MARK 0319B IDEOGRAPHIC ANNOTATION THIRD MARK 0319C IDEOGRAPHIC ANNOTATION FOURTH MARK 0319D IDEOGRAPHIC ANNOTATION HEAVEN MARK 0319E IDEOGRAPHIC ANNOTATION EARTH MARK 0319F IDEOGRAPHIC ANNOTATION MAN MARK 031A0 BOPOMOFO LETTER BU 031A1 BOPOMOFO LETTER ZI 031A2 BOPOMOFO LETTER JI 031A3 BOPOMOFO LETTER GU 031A4 BOPOMOFO LETTER EE 031A5 BOPOMOFO LETTER ENN 031A6 BOPOMOFO LETTER OO 031A7 BOPOMOFO LETTER ONN 031A8 BOPOMOFO LETTER IR 031A9 BOPOMOFO LETTER ANN 031AA BOPOMOFO LETTER INN 031AB BOPOMOFO LETTER UNN 031AC BOPOMOFO LETTER IM 031AD BOPOMOFO LETTER NGG 031AE BOPOMOFO LETTER AINN 031AF BOPOMOFO LETTER AUNN 031B0 BOPOMOFO LETTER AM 031B1 BOPOMOFO LETTER OM 031B2 BOPOMOFO LETTER ONG 031B3 BOPOMOFO LETTER INNN 031B4 BOPOMOFO FINAL LETTER P 031B5 BOPOMOFO FINAL LETTER T 031B6 BOPOMOFO FINAL LETTER K 031B7 BOPOMOFO FINAL LETTER H 031B8 BOPOMOFO LETTER GH 031B9 BOPOMOFO LETTER LH 031BA BOPOMOFO LETTER ZY 031BB BOPOMOFO FINAL LETTER G 031BC BOPOMOFO LETTER GW 031BD BOPOMOFO LETTER KW 031BE BOPOMOFO LETTER OE 031BF BOPOMOFO LETTER AH 031C0 CJK STROKE T 031C1 CJK STROKE WG 031C2 CJK STROKE XG 031C3 CJK STROKE BXG 031C4 CJK STROKE SW 031C5 CJK STROKE HZZ 031C6 CJK STROKE HZG 031C7 CJK STROKE HP 031C8 CJK STROKE HZWG 031C9 CJK STROKE SZWG 031CA CJK STROKE HZT 031CB CJK STROKE HZZP 031CC CJK STROKE HPWG 031CD CJK STROKE HZW 031CE CJK STROKE HZZZ 031CF CJK STROKE N 031D0 CJK STROKE H 031D1 CJK STROKE S 031D2 CJK STROKE P 031D3 CJK STROKE SP 031D4 CJK STROKE D 031D5 CJK STROKE HZ 031D6 CJK STROKE HG 031D7 CJK STROKE SZ 031D8 CJK STROKE SWZ 031D9 CJK STROKE ST 031DA CJK STROKE SG 031DB CJK STROKE PD 031DC CJK STROKE PZ 031DD CJK STROKE TN 031DE CJK STROKE SZZ 031DF CJK STROKE SWG 031E0 CJK STROKE HXWG 031E1 CJK STROKE HZZZG 031E2 CJK STROKE PG 031E3 CJK STROKE Q 031F0 KATAKANA LETTER SMALL KU 031F1 KATAKANA LETTER SMALL SI 031F2 KATAKANA LETTER SMALL SU 031F3 KATAKANA LETTER SMALL TO 031F4 KATAKANA LETTER SMALL NU 031F5 KATAKANA LETTER SMALL HA 031F6 KATAKANA LETTER SMALL HI 031F7 KATAKANA LETTER SMALL HU 031F8 KATAKANA LETTER SMALL HE 031F9 KATAKANA LETTER SMALL HO 031FA KATAKANA LETTER SMALL MU 031FB KATAKANA LETTER SMALL RA 031FC KATAKANA LETTER SMALL RI 031FD KATAKANA LETTER SMALL RU 031FE KATAKANA LETTER SMALL RE 031FF KATAKANA LETTER SMALL RO 03200 PARENTHESIZED HANGUL KIYEOK 03201 PARENTHESIZED HANGUL NIEUN 03202 PARENTHESIZED HANGUL TIKEUT 03203 PARENTHESIZED HANGUL RIEUL 03204 PARENTHESIZED HANGUL MIEUM 03205 PARENTHESIZED HANGUL PIEUP 03206 PARENTHESIZED HANGUL SIOS 03207 PARENTHESIZED HANGUL IEUNG 03208 PARENTHESIZED HANGUL CIEUC 03209 PARENTHESIZED HANGUL CHIEUCH 0320A PARENTHESIZED HANGUL KHIEUKH 0320B PARENTHESIZED HANGUL THIEUTH 0320C PARENTHESIZED HANGUL PHIEUPH 0320D PARENTHESIZED HANGUL HIEUH 0320E PARENTHESIZED HANGUL KIYEOK A 0320F PARENTHESIZED HANGUL NIEUN A 03210 PARENTHESIZED HANGUL TIKEUT A 03211 PARENTHESIZED HANGUL RIEUL A 03212 PARENTHESIZED HANGUL MIEUM A 03213 PARENTHESIZED HANGUL PIEUP A 03214 PARENTHESIZED HANGUL SIOS A 03215 PARENTHESIZED HANGUL IEUNG A 03216 PARENTHESIZED HANGUL CIEUC A 03217 PARENTHESIZED HANGUL CHIEUCH A 03218 PARENTHESIZED HANGUL KHIEUKH A 03219 PARENTHESIZED HANGUL THIEUTH A 0321A PARENTHESIZED HANGUL PHIEUPH A 0321B PARENTHESIZED HANGUL HIEUH A 0321C PARENTHESIZED HANGUL CIEUC U 0321D PARENTHESIZED KOREAN CHARACTER OJEON 0321E PARENTHESIZED KOREAN CHARACTER O HU 03220 PARENTHESIZED IDEOGRAPH ONE 03221 PARENTHESIZED IDEOGRAPH TWO 03222 PARENTHESIZED IDEOGRAPH THREE 03223 PARENTHESIZED IDEOGRAPH FOUR 03224 PARENTHESIZED IDEOGRAPH FIVE 03225 PARENTHESIZED IDEOGRAPH SIX 03226 PARENTHESIZED IDEOGRAPH SEVEN 03227 PARENTHESIZED IDEOGRAPH EIGHT 03228 PARENTHESIZED IDEOGRAPH NINE 03229 PARENTHESIZED IDEOGRAPH TEN 0322A PARENTHESIZED IDEOGRAPH MOON 0322B PARENTHESIZED IDEOGRAPH FIRE 0322C PARENTHESIZED IDEOGRAPH WATER 0322D PARENTHESIZED IDEOGRAPH WOOD 0322E PARENTHESIZED IDEOGRAPH METAL 0322F PARENTHESIZED IDEOGRAPH EARTH 03230 PARENTHESIZED IDEOGRAPH SUN 03231 PARENTHESIZED IDEOGRAPH STOCK 03232 PARENTHESIZED IDEOGRAPH HAVE 03233 PARENTHESIZED IDEOGRAPH SOCIETY 03234 PARENTHESIZED IDEOGRAPH NAME 03235 PARENTHESIZED IDEOGRAPH SPECIAL 03236 PARENTHESIZED IDEOGRAPH FINANCIAL 03237 PARENTHESIZED IDEOGRAPH CONGRATULATION 03238 PARENTHESIZED IDEOGRAPH LABOR 03239 PARENTHESIZED IDEOGRAPH REPRESENT 0323A PARENTHESIZED IDEOGRAPH CALL 0323B PARENTHESIZED IDEOGRAPH STUDY 0323C PARENTHESIZED IDEOGRAPH SUPERVISE 0323D PARENTHESIZED IDEOGRAPH ENTERPRISE 0323E PARENTHESIZED IDEOGRAPH RESOURCE 0323F PARENTHESIZED IDEOGRAPH ALLIANCE 03240 PARENTHESIZED IDEOGRAPH FESTIVAL 03241 PARENTHESIZED IDEOGRAPH REST 03242 PARENTHESIZED IDEOGRAPH SELF 03243 PARENTHESIZED IDEOGRAPH REACH 03244 CIRCLED IDEOGRAPH QUESTION 03245 CIRCLED IDEOGRAPH KINDERGARTEN 03246 CIRCLED IDEOGRAPH SCHOOL 03247 CIRCLED IDEOGRAPH KOTO 03248 CIRCLED NUMBER TEN ON BLACK SQUARE 03249 CIRCLED NUMBER TWENTY ON BLACK SQUARE 0324A CIRCLED NUMBER THIRTY ON BLACK SQUARE 0324B CIRCLED NUMBER FORTY ON BLACK SQUARE 0324C CIRCLED NUMBER FIFTY ON BLACK SQUARE 0324D CIRCLED NUMBER SIXTY ON BLACK SQUARE 0324E CIRCLED NUMBER SEVENTY ON BLACK SQUARE 0324F CIRCLED NUMBER EIGHTY ON BLACK SQUARE 03250 PARTNERSHIP SIGN 03251 CIRCLED NUMBER TWENTY ONE 03252 CIRCLED NUMBER TWENTY TWO 03253 CIRCLED NUMBER TWENTY THREE 03254 CIRCLED NUMBER TWENTY FOUR 03255 CIRCLED NUMBER TWENTY FIVE 03256 CIRCLED NUMBER TWENTY SIX 03257 CIRCLED NUMBER TWENTY SEVEN 03258 CIRCLED NUMBER TWENTY EIGHT 03259 CIRCLED NUMBER TWENTY NINE 0325A CIRCLED NUMBER THIRTY 0325B CIRCLED NUMBER THIRTY ONE 0325C CIRCLED NUMBER THIRTY TWO 0325D CIRCLED NUMBER THIRTY THREE 0325E CIRCLED NUMBER THIRTY FOUR 0325F CIRCLED NUMBER THIRTY FIVE 03260 CIRCLED HANGUL KIYEOK 03261 CIRCLED HANGUL NIEUN 03262 CIRCLED HANGUL TIKEUT 03263 CIRCLED HANGUL RIEUL 03264 CIRCLED HANGUL MIEUM 03265 CIRCLED HANGUL PIEUP 03266 CIRCLED HANGUL SIOS 03267 CIRCLED HANGUL IEUNG 03268 CIRCLED HANGUL CIEUC 03269 CIRCLED HANGUL CHIEUCH 0326A CIRCLED HANGUL KHIEUKH 0326B CIRCLED HANGUL THIEUTH 0326C CIRCLED HANGUL PHIEUPH 0326D CIRCLED HANGUL HIEUH 0326E CIRCLED HANGUL KIYEOK A 0326F CIRCLED HANGUL NIEUN A 03270 CIRCLED HANGUL TIKEUT A 03271 CIRCLED HANGUL RIEUL A 03272 CIRCLED HANGUL MIEUM A 03273 CIRCLED HANGUL PIEUP A 03274 CIRCLED HANGUL SIOS A 03275 CIRCLED HANGUL IEUNG A 03276 CIRCLED HANGUL CIEUC A 03277 CIRCLED HANGUL CHIEUCH A 03278 CIRCLED HANGUL KHIEUKH A 03279 CIRCLED HANGUL THIEUTH A 0327A CIRCLED HANGUL PHIEUPH A 0327B CIRCLED HANGUL HIEUH A 0327C CIRCLED KOREAN CHARACTER CHAMKO 0327D CIRCLED KOREAN CHARACTER JUEUI 0327E CIRCLED HANGUL IEUNG U 0327F KOREAN STANDARD SYMBOL 03280 CIRCLED IDEOGRAPH ONE 03281 CIRCLED IDEOGRAPH TWO 03282 CIRCLED IDEOGRAPH THREE 03283 CIRCLED IDEOGRAPH FOUR 03284 CIRCLED IDEOGRAPH FIVE 03285 CIRCLED IDEOGRAPH SIX 03286 CIRCLED IDEOGRAPH SEVEN 03287 CIRCLED IDEOGRAPH EIGHT 03288 CIRCLED IDEOGRAPH NINE 03289 CIRCLED IDEOGRAPH TEN 0328A CIRCLED IDEOGRAPH MOON 0328B CIRCLED IDEOGRAPH FIRE 0328C CIRCLED IDEOGRAPH WATER 0328D CIRCLED IDEOGRAPH WOOD 0328E CIRCLED IDEOGRAPH METAL 0328F CIRCLED IDEOGRAPH EARTH 03290 CIRCLED IDEOGRAPH SUN 03291 CIRCLED IDEOGRAPH STOCK 03292 CIRCLED IDEOGRAPH HAVE 03293 CIRCLED IDEOGRAPH SOCIETY 03294 CIRCLED IDEOGRAPH NAME 03295 CIRCLED IDEOGRAPH SPECIAL 03296 CIRCLED IDEOGRAPH FINANCIAL 03297 CIRCLED IDEOGRAPH CONGRATULATION 03298 CIRCLED IDEOGRAPH LABOR 03299 CIRCLED IDEOGRAPH SECRET 0329A CIRCLED IDEOGRAPH MALE 0329B CIRCLED IDEOGRAPH FEMALE 0329C CIRCLED IDEOGRAPH SUITABLE 0329D CIRCLED IDEOGRAPH EXCELLENT 0329E CIRCLED IDEOGRAPH PRINT 0329F CIRCLED IDEOGRAPH ATTENTION 032A0 CIRCLED IDEOGRAPH ITEM 032A1 CIRCLED IDEOGRAPH REST 032A2 CIRCLED IDEOGRAPH COPY 032A3 CIRCLED IDEOGRAPH CORRECT 032A4 CIRCLED IDEOGRAPH HIGH 032A5 CIRCLED IDEOGRAPH CENTRE 032A6 CIRCLED IDEOGRAPH LOW 032A7 CIRCLED IDEOGRAPH LEFT 032A8 CIRCLED IDEOGRAPH RIGHT 032A9 CIRCLED IDEOGRAPH MEDICINE 032AA CIRCLED IDEOGRAPH RELIGION 032AB CIRCLED IDEOGRAPH STUDY 032AC CIRCLED IDEOGRAPH SUPERVISE 032AD CIRCLED IDEOGRAPH ENTERPRISE 032AE CIRCLED IDEOGRAPH RESOURCE 032AF CIRCLED IDEOGRAPH ALLIANCE 032B0 CIRCLED IDEOGRAPH NIGHT 032B1 CIRCLED NUMBER THIRTY SIX 032B2 CIRCLED NUMBER THIRTY SEVEN 032B3 CIRCLED NUMBER THIRTY EIGHT 032B4 CIRCLED NUMBER THIRTY NINE 032B5 CIRCLED NUMBER FORTY 032B6 CIRCLED NUMBER FORTY ONE 032B7 CIRCLED NUMBER FORTY TWO 032B8 CIRCLED NUMBER FORTY THREE 032B9 CIRCLED NUMBER FORTY FOUR 032BA CIRCLED NUMBER FORTY FIVE 032BB CIRCLED NUMBER FORTY SIX 032BC CIRCLED NUMBER FORTY SEVEN 032BD CIRCLED NUMBER FORTY EIGHT 032BE CIRCLED NUMBER FORTY NINE 032BF CIRCLED NUMBER FIFTY 032C0 IDEOGRAPHIC TELEGRAPH SYMBOL FOR JANUARY 032C1 IDEOGRAPHIC TELEGRAPH SYMBOL FOR FEBRUARY 032C2 IDEOGRAPHIC TELEGRAPH SYMBOL FOR MARCH 032C3 IDEOGRAPHIC TELEGRAPH SYMBOL FOR APRIL 032C4 IDEOGRAPHIC TELEGRAPH SYMBOL FOR MAY 032C5 IDEOGRAPHIC TELEGRAPH SYMBOL FOR JUNE 032C6 IDEOGRAPHIC TELEGRAPH SYMBOL FOR JULY 032C7 IDEOGRAPHIC TELEGRAPH SYMBOL FOR AUGUST 032C8 IDEOGRAPHIC TELEGRAPH SYMBOL FOR SEPTEMBER 032C9 IDEOGRAPHIC TELEGRAPH SYMBOL FOR OCTOBER 032CA IDEOGRAPHIC TELEGRAPH SYMBOL FOR NOVEMBER 032CB IDEOGRAPHIC TELEGRAPH SYMBOL FOR DECEMBER 032CC SQUARE HG 032CD SQUARE ERG 032CE SQUARE EV 032CF LIMITED LIABILITY SIGN 032D0 CIRCLED KATAKANA A 032D1 CIRCLED KATAKANA I 032D2 CIRCLED KATAKANA U 032D3 CIRCLED KATAKANA E 032D4 CIRCLED KATAKANA O 032D5 CIRCLED KATAKANA KA 032D6 CIRCLED KATAKANA KI 032D7 CIRCLED KATAKANA KU 032D8 CIRCLED KATAKANA KE 032D9 CIRCLED KATAKANA KO 032DA CIRCLED KATAKANA SA 032DB CIRCLED KATAKANA SI 032DC CIRCLED KATAKANA SU 032DD CIRCLED KATAKANA SE 032DE CIRCLED KATAKANA SO 032DF CIRCLED KATAKANA TA 032E0 CIRCLED KATAKANA TI 032E1 CIRCLED KATAKANA TU 032E2 CIRCLED KATAKANA TE 032E3 CIRCLED KATAKANA TO 032E4 CIRCLED KATAKANA NA 032E5 CIRCLED KATAKANA NI 032E6 CIRCLED KATAKANA NU 032E7 CIRCLED KATAKANA NE 032E8 CIRCLED KATAKANA NO 032E9 CIRCLED KATAKANA HA 032EA CIRCLED KATAKANA HI 032EB CIRCLED KATAKANA HU 032EC CIRCLED KATAKANA HE 032ED CIRCLED KATAKANA HO 032EE CIRCLED KATAKANA MA 032EF CIRCLED KATAKANA MI 032F0 CIRCLED KATAKANA MU 032F1 CIRCLED KATAKANA ME 032F2 CIRCLED KATAKANA MO 032F3 CIRCLED KATAKANA YA 032F4 CIRCLED KATAKANA YU 032F5 CIRCLED KATAKANA YO 032F6 CIRCLED KATAKANA RA 032F7 CIRCLED KATAKANA RI 032F8 CIRCLED KATAKANA RU 032F9 CIRCLED KATAKANA RE 032FA CIRCLED KATAKANA RO 032FB CIRCLED KATAKANA WA 032FC CIRCLED KATAKANA WI 032FD CIRCLED KATAKANA WE 032FE CIRCLED KATAKANA WO 032FF SQUARE ERA NAME REIWA 03300 SQUARE APAATO 03301 SQUARE ARUHUA 03302 SQUARE ANPEA 03303 SQUARE AARU 03304 SQUARE ININGU 03305 SQUARE INTI 03306 SQUARE UON 03307 SQUARE ESUKUUDO 03308 SQUARE EEKAA 03309 SQUARE ONSU 0330A SQUARE OOMU 0330B SQUARE KAIRI 0330C SQUARE KARATTO 0330D SQUARE KARORII 0330E SQUARE GARON 0330F SQUARE GANMA 03310 SQUARE GIGA 03311 SQUARE GINII 03312 SQUARE KYURII 03313 SQUARE GIRUDAA 03314 SQUARE KIRO 03315 SQUARE KIROGURAMU 03316 SQUARE KIROMEETORU 03317 SQUARE KIROWATTO 03318 SQUARE GURAMU 03319 SQUARE GURAMUTON 0331A SQUARE KURUZEIRO 0331B SQUARE KUROONE 0331C SQUARE KEESU 0331D SQUARE KORUNA 0331E SQUARE KOOPO 0331F SQUARE SAIKURU 03320 SQUARE SANTIIMU 03321 SQUARE SIRINGU 03322 SQUARE SENTI 03323 SQUARE SENTO 03324 SQUARE DAASU 03325 SQUARE DESI 03326 SQUARE DORU 03327 SQUARE TON 03328 SQUARE NANO 03329 SQUARE NOTTO 0332A SQUARE HAITU 0332B SQUARE PAASENTO 0332C SQUARE PAATU 0332D SQUARE BAARERU 0332E SQUARE PIASUTORU 0332F SQUARE PIKURU 03330 SQUARE PIKO 03331 SQUARE BIRU 03332 SQUARE HUARADDO 03333 SQUARE HUIITO 03334 SQUARE BUSSYERU 03335 SQUARE HURAN 03336 SQUARE HEKUTAARU 03337 SQUARE PESO 03338 SQUARE PENIHI 03339 SQUARE HERUTU 0333A SQUARE PENSU 0333B SQUARE PEEZI 0333C SQUARE BEETA 0333D SQUARE POINTO 0333E SQUARE BORUTO 0333F SQUARE HON 03340 SQUARE PONDO 03341 SQUARE HOORU 03342 SQUARE HOON 03343 SQUARE MAIKURO 03344 SQUARE MAIRU 03345 SQUARE MAHHA 03346 SQUARE MARUKU 03347 SQUARE MANSYON 03348 SQUARE MIKURON 03349 SQUARE MIRI 0334A SQUARE MIRIBAARU 0334B SQUARE MEGA 0334C SQUARE MEGATON 0334D SQUARE MEETORU 0334E SQUARE YAADO 0334F SQUARE YAARU 03350 SQUARE YUAN 03351 SQUARE RITTORU 03352 SQUARE RIRA 03353 SQUARE RUPII 03354 SQUARE RUUBURU 03355 SQUARE REMU 03356 SQUARE RENTOGEN 03357 SQUARE WATTO 03358 IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR ZERO 03359 IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR ONE 0335A IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWO 0335B IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR THREE 0335C IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR FOUR 0335D IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR FIVE 0335E IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR SIX 0335F IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR SEVEN 03360 IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR EIGHT 03361 IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR NINE 03362 IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TEN 03363 IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR ELEVEN 03364 IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWELVE 03365 IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR THIRTEEN 03366 IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR FOURTEEN 03367 IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR FIFTEEN 03368 IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR SIXTEEN 03369 IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR SEVENTEEN 0336A IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR EIGHTEEN 0336B IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR NINETEEN 0336C IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY 0336D IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY-ONE 0336E IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY-TWO 0336F IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY-THREE 03370 IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY-FOUR 03371 SQUARE HPA 03372 SQUARE DA 03373 SQUARE AU 03374 SQUARE BAR 03375 SQUARE OV 03376 SQUARE PC 03377 SQUARE DM 03378 SQUARE DM SQUARED 03379 SQUARE DM CUBED 0337A SQUARE IU 0337B SQUARE ERA NAME HEISEI 0337C SQUARE ERA NAME SYOUWA 0337D SQUARE ERA NAME TAISYOU 0337E SQUARE ERA NAME MEIZI 0337F SQUARE CORPORATION 03380 SQUARE PA AMPS 03381 SQUARE NA 03382 SQUARE MU A 03383 SQUARE MA 03384 SQUARE KA 03385 SQUARE KB 03386 SQUARE MB 03387 SQUARE GB 03388 SQUARE CAL 03389 SQUARE KCAL 0338A SQUARE PF 0338B SQUARE NF 0338C SQUARE MU F 0338D SQUARE MU G 0338E SQUARE MG 0338F SQUARE KG 03390 SQUARE HZ 03391 SQUARE KHZ 03392 SQUARE MHZ 03393 SQUARE GHZ 03394 SQUARE THZ 03395 SQUARE MU L 03396 SQUARE ML 03397 SQUARE DL 03398 SQUARE KL 03399 SQUARE FM 0339A SQUARE NM 0339B SQUARE MU M 0339C SQUARE MM 0339D SQUARE CM 0339E SQUARE KM 0339F SQUARE MM SQUARED 033A0 SQUARE CM SQUARED 033A1 SQUARE M SQUARED 033A2 SQUARE KM SQUARED 033A3 SQUARE MM CUBED 033A4 SQUARE CM CUBED 033A5 SQUARE M CUBED 033A6 SQUARE KM CUBED 033A7 SQUARE M OVER S 033A8 SQUARE M OVER S SQUARED 033A9 SQUARE PA 033AA SQUARE KPA 033AB SQUARE MPA 033AC SQUARE GPA 033AD SQUARE RAD 033AE SQUARE RAD OVER S 033AF SQUARE RAD OVER S SQUARED 033B0 SQUARE PS 033B1 SQUARE NS 033B2 SQUARE MU S 033B3 SQUARE MS 033B4 SQUARE PV 033B5 SQUARE NV 033B6 SQUARE MU V 033B7 SQUARE MV 033B8 SQUARE KV 033B9 SQUARE MV MEGA 033BA SQUARE PW 033BB SQUARE NW 033BC SQUARE MU W 033BD SQUARE MW 033BE SQUARE KW 033BF SQUARE MW MEGA 033C0 SQUARE K OHM 033C1 SQUARE M OHM 033C2 SQUARE AM 033C3 SQUARE BQ 033C4 SQUARE CC 033C5 SQUARE CD 033C6 SQUARE C OVER KG 033C7 SQUARE CO 033C8 SQUARE DB 033C9 SQUARE GY 033CA SQUARE HA 033CB SQUARE HP 033CC SQUARE IN 033CD SQUARE KK 033CE SQUARE KM CAPITAL 033CF SQUARE KT 033D0 SQUARE LM 033D1 SQUARE LN 033D2 SQUARE LOG 033D3 SQUARE LX 033D4 SQUARE MB SMALL 033D5 SQUARE MIL 033D6 SQUARE MOL 033D7 SQUARE PH 033D8 SQUARE PM 033D9 SQUARE PPM 033DA SQUARE PR 033DB SQUARE SR 033DC SQUARE SV 033DD SQUARE WB 033DE SQUARE V OVER M 033DF SQUARE A OVER M 033E0 IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY ONE 033E1 IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWO 033E2 IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY THREE 033E3 IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY FOUR 033E4 IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY FIVE 033E5 IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY SIX 033E6 IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY SEVEN 033E7 IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY EIGHT 033E8 IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY NINE 033E9 IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TEN 033EA IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY ELEVEN 033EB IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWELVE 033EC IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY THIRTEEN 033ED IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY FOURTEEN 033EE IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY FIFTEEN 033EF IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY SIXTEEN 033F0 IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY SEVENTEEN 033F1 IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY EIGHTEEN 033F2 IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY NINETEEN 033F3 IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY 033F4 IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-ONE 033F5 IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-TWO 033F6 IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-THREE 033F7 IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-FOUR 033F8 IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-FIVE 033F9 IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-SIX 033FA IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-SEVEN 033FB IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-EIGHT 033FC IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-NINE 033FD IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY THIRTY 033FE IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY THIRTY-ONE 033FF SQUARE GAL 04DC0 HEXAGRAM FOR THE CREATIVE HEAVEN 04DC1 HEXAGRAM FOR THE RECEPTIVE EARTH 04DC2 HEXAGRAM FOR DIFFICULTY AT THE BEGINNING 04DC3 HEXAGRAM FOR YOUTHFUL FOLLY 04DC4 HEXAGRAM FOR WAITING 04DC5 HEXAGRAM FOR CONFLICT 04DC6 HEXAGRAM FOR THE ARMY 04DC7 HEXAGRAM FOR HOLDING TOGETHER 04DC8 HEXAGRAM FOR SMALL TAMING 04DC9 HEXAGRAM FOR TREADING 04DCA HEXAGRAM FOR PEACE 04DCB HEXAGRAM FOR STANDSTILL 04DCC HEXAGRAM FOR FELLOWSHIP 04DCD HEXAGRAM FOR GREAT POSSESSION 04DCE HEXAGRAM FOR MODESTY 04DCF HEXAGRAM FOR ENTHUSIASM 04DD0 HEXAGRAM FOR FOLLOWING 04DD1 HEXAGRAM FOR WORK ON THE DECAYED 04DD2 HEXAGRAM FOR APPROACH 04DD3 HEXAGRAM FOR CONTEMPLATION 04DD4 HEXAGRAM FOR BITING THROUGH 04DD5 HEXAGRAM FOR GRACE 04DD6 HEXAGRAM FOR SPLITTING APART 04DD7 HEXAGRAM FOR RETURN 04DD8 HEXAGRAM FOR INNOCENCE 04DD9 HEXAGRAM FOR GREAT TAMING 04DDA HEXAGRAM FOR MOUTH CORNERS 04DDB HEXAGRAM FOR GREAT PREPONDERANCE 04DDC HEXAGRAM FOR THE ABYSMAL WATER 04DDD HEXAGRAM FOR THE CLINGING FIRE 04DDE HEXAGRAM FOR INFLUENCE 04DDF HEXAGRAM FOR DURATION 04DE0 HEXAGRAM FOR RETREAT 04DE1 HEXAGRAM FOR GREAT POWER 04DE2 HEXAGRAM FOR PROGRESS 04DE3 HEXAGRAM FOR DARKENING OF THE LIGHT 04DE4 HEXAGRAM FOR THE FAMILY 04DE5 HEXAGRAM FOR OPPOSITION 04DE6 HEXAGRAM FOR OBSTRUCTION 04DE7 HEXAGRAM FOR DELIVERANCE 04DE8 HEXAGRAM FOR DECREASE 04DE9 HEXAGRAM FOR INCREASE 04DEA HEXAGRAM FOR BREAKTHROUGH 04DEB HEXAGRAM FOR COMING TO MEET 04DEC HEXAGRAM FOR GATHERING TOGETHER 04DED HEXAGRAM FOR PUSHING UPWARD 04DEE HEXAGRAM FOR OPPRESSION 04DEF HEXAGRAM FOR THE WELL 04DF0 HEXAGRAM FOR REVOLUTION 04DF1 HEXAGRAM FOR THE CAULDRON 04DF2 HEXAGRAM FOR THE AROUSING THUNDER 04DF3 HEXAGRAM FOR THE KEEPING STILL MOUNTAIN 04DF4 HEXAGRAM FOR DEVELOPMENT 04DF5 HEXAGRAM FOR THE MARRYING MAIDEN 04DF6 HEXAGRAM FOR ABUNDANCE 04DF7 HEXAGRAM FOR THE WANDERER 04DF8 HEXAGRAM FOR THE GENTLE WIND 04DF9 HEXAGRAM FOR THE JOYOUS LAKE 04DFA HEXAGRAM FOR DISPERSION 04DFB HEXAGRAM FOR LIMITATION 04DFC HEXAGRAM FOR INNER TRUTH 04DFD HEXAGRAM FOR SMALL PREPONDERANCE 04DFE HEXAGRAM FOR AFTER COMPLETION 04DFF HEXAGRAM FOR BEFORE COMPLETION 0A000 YI SYLLABLE IT 0A001 YI SYLLABLE IX 0A002 YI SYLLABLE I 0A003 YI SYLLABLE IP 0A004 YI SYLLABLE IET 0A005 YI SYLLABLE IEX 0A006 YI SYLLABLE IE 0A007 YI SYLLABLE IEP 0A008 YI SYLLABLE AT 0A009 YI SYLLABLE AX 0A00A YI SYLLABLE A 0A00B YI SYLLABLE AP 0A00C YI SYLLABLE UOX 0A00D YI SYLLABLE UO 0A00E YI SYLLABLE UOP 0A00F YI SYLLABLE OT 0A010 YI SYLLABLE OX 0A011 YI SYLLABLE O 0A012 YI SYLLABLE OP 0A013 YI SYLLABLE EX 0A014 YI SYLLABLE E 0A015 YI SYLLABLE ITERATION MARK 0A015 YI SYLLABLE WU 0A016 YI SYLLABLE BIT 0A017 YI SYLLABLE BIX 0A018 YI SYLLABLE BI 0A019 YI SYLLABLE BIP 0A01A YI SYLLABLE BIET 0A01B YI SYLLABLE BIEX 0A01C YI SYLLABLE BIE 0A01D YI SYLLABLE BIEP 0A01E YI SYLLABLE BAT 0A01F YI SYLLABLE BAX 0A020 YI SYLLABLE BA 0A021 YI SYLLABLE BAP 0A022 YI SYLLABLE BUOX 0A023 YI SYLLABLE BUO 0A024 YI SYLLABLE BUOP 0A025 YI SYLLABLE BOT 0A026 YI SYLLABLE BOX 0A027 YI SYLLABLE BO 0A028 YI SYLLABLE BOP 0A029 YI SYLLABLE BEX 0A02A YI SYLLABLE BE 0A02B YI SYLLABLE BEP 0A02C YI SYLLABLE BUT 0A02D YI SYLLABLE BUX 0A02E YI SYLLABLE BU 0A02F YI SYLLABLE BUP 0A030 YI SYLLABLE BURX 0A031 YI SYLLABLE BUR 0A032 YI SYLLABLE BYT 0A033 YI SYLLABLE BYX 0A034 YI SYLLABLE BY 0A035 YI SYLLABLE BYP 0A036 YI SYLLABLE BYRX 0A037 YI SYLLABLE BYR 0A038 YI SYLLABLE PIT 0A039 YI SYLLABLE PIX 0A03A YI SYLLABLE PI 0A03B YI SYLLABLE PIP 0A03C YI SYLLABLE PIEX 0A03D YI SYLLABLE PIE 0A03E YI SYLLABLE PIEP 0A03F YI SYLLABLE PAT 0A040 YI SYLLABLE PAX 0A041 YI SYLLABLE PA 0A042 YI SYLLABLE PAP 0A043 YI SYLLABLE PUOX 0A044 YI SYLLABLE PUO 0A045 YI SYLLABLE PUOP 0A046 YI SYLLABLE POT 0A047 YI SYLLABLE POX 0A048 YI SYLLABLE PO 0A049 YI SYLLABLE POP 0A04A YI SYLLABLE PUT 0A04B YI SYLLABLE PUX 0A04C YI SYLLABLE PU 0A04D YI SYLLABLE PUP 0A04E YI SYLLABLE PURX 0A04F YI SYLLABLE PUR 0A050 YI SYLLABLE PYT 0A051 YI SYLLABLE PYX 0A052 YI SYLLABLE PY 0A053 YI SYLLABLE PYP 0A054 YI SYLLABLE PYRX 0A055 YI SYLLABLE PYR 0A056 YI SYLLABLE BBIT 0A057 YI SYLLABLE BBIX 0A058 YI SYLLABLE BBI 0A059 YI SYLLABLE BBIP 0A05A YI SYLLABLE BBIET 0A05B YI SYLLABLE BBIEX 0A05C YI SYLLABLE BBIE 0A05D YI SYLLABLE BBIEP 0A05E YI SYLLABLE BBAT 0A05F YI SYLLABLE BBAX 0A060 YI SYLLABLE BBA 0A061 YI SYLLABLE BBAP 0A062 YI SYLLABLE BBUOX 0A063 YI SYLLABLE BBUO 0A064 YI SYLLABLE BBUOP 0A065 YI SYLLABLE BBOT 0A066 YI SYLLABLE BBOX 0A067 YI SYLLABLE BBO 0A068 YI SYLLABLE BBOP 0A069 YI SYLLABLE BBEX 0A06A YI SYLLABLE BBE 0A06B YI SYLLABLE BBEP 0A06C YI SYLLABLE BBUT 0A06D YI SYLLABLE BBUX 0A06E YI SYLLABLE BBU 0A06F YI SYLLABLE BBUP 0A070 YI SYLLABLE BBURX 0A071 YI SYLLABLE BBUR 0A072 YI SYLLABLE BBYT 0A073 YI SYLLABLE BBYX 0A074 YI SYLLABLE BBY 0A075 YI SYLLABLE BBYP 0A076 YI SYLLABLE NBIT 0A077 YI SYLLABLE NBIX 0A078 YI SYLLABLE NBI 0A079 YI SYLLABLE NBIP 0A07A YI SYLLABLE NBIEX 0A07B YI SYLLABLE NBIE 0A07C YI SYLLABLE NBIEP 0A07D YI SYLLABLE NBAT 0A07E YI SYLLABLE NBAX 0A07F YI SYLLABLE NBA 0A080 YI SYLLABLE NBAP 0A081 YI SYLLABLE NBOT 0A082 YI SYLLABLE NBOX 0A083 YI SYLLABLE NBO 0A084 YI SYLLABLE NBOP 0A085 YI SYLLABLE NBUT 0A086 YI SYLLABLE NBUX 0A087 YI SYLLABLE NBU 0A088 YI SYLLABLE NBUP 0A089 YI SYLLABLE NBURX 0A08A YI SYLLABLE NBUR 0A08B YI SYLLABLE NBYT 0A08C YI SYLLABLE NBYX 0A08D YI SYLLABLE NBY 0A08E YI SYLLABLE NBYP 0A08F YI SYLLABLE NBYRX 0A090 YI SYLLABLE NBYR 0A091 YI SYLLABLE HMIT 0A092 YI SYLLABLE HMIX 0A093 YI SYLLABLE HMI 0A094 YI SYLLABLE HMIP 0A095 YI SYLLABLE HMIEX 0A096 YI SYLLABLE HMIE 0A097 YI SYLLABLE HMIEP 0A098 YI SYLLABLE HMAT 0A099 YI SYLLABLE HMAX 0A09A YI SYLLABLE HMA 0A09B YI SYLLABLE HMAP 0A09C YI SYLLABLE HMUOX 0A09D YI SYLLABLE HMUO 0A09E YI SYLLABLE HMUOP 0A09F YI SYLLABLE HMOT 0A0A0 YI SYLLABLE HMOX 0A0A1 YI SYLLABLE HMO 0A0A2 YI SYLLABLE HMOP 0A0A3 YI SYLLABLE HMUT 0A0A4 YI SYLLABLE HMUX 0A0A5 YI SYLLABLE HMU 0A0A6 YI SYLLABLE HMUP 0A0A7 YI SYLLABLE HMURX 0A0A8 YI SYLLABLE HMUR 0A0A9 YI SYLLABLE HMYX 0A0AA YI SYLLABLE HMY 0A0AB YI SYLLABLE HMYP 0A0AC YI SYLLABLE HMYRX 0A0AD YI SYLLABLE HMYR 0A0AE YI SYLLABLE MIT 0A0AF YI SYLLABLE MIX 0A0B0 YI SYLLABLE MI 0A0B1 YI SYLLABLE MIP 0A0B2 YI SYLLABLE MIEX 0A0B3 YI SYLLABLE MIE 0A0B4 YI SYLLABLE MIEP 0A0B5 YI SYLLABLE MAT 0A0B6 YI SYLLABLE MAX 0A0B7 YI SYLLABLE MA 0A0B8 YI SYLLABLE MAP 0A0B9 YI SYLLABLE MUOT 0A0BA YI SYLLABLE MUOX 0A0BB YI SYLLABLE MUO 0A0BC YI SYLLABLE MUOP 0A0BD YI SYLLABLE MOT 0A0BE YI SYLLABLE MOX 0A0BF YI SYLLABLE MO 0A0C0 YI SYLLABLE MOP 0A0C1 YI SYLLABLE MEX 0A0C2 YI SYLLABLE ME 0A0C3 YI SYLLABLE MUT 0A0C4 YI SYLLABLE MUX 0A0C5 YI SYLLABLE MU 0A0C6 YI SYLLABLE MUP 0A0C7 YI SYLLABLE MURX 0A0C8 YI SYLLABLE MUR 0A0C9 YI SYLLABLE MYT 0A0CA YI SYLLABLE MYX 0A0CB YI SYLLABLE MY 0A0CC YI SYLLABLE MYP 0A0CD YI SYLLABLE FIT 0A0CE YI SYLLABLE FIX 0A0CF YI SYLLABLE FI 0A0D0 YI SYLLABLE FIP 0A0D1 YI SYLLABLE FAT 0A0D2 YI SYLLABLE FAX 0A0D3 YI SYLLABLE FA 0A0D4 YI SYLLABLE FAP 0A0D5 YI SYLLABLE FOX 0A0D6 YI SYLLABLE FO 0A0D7 YI SYLLABLE FOP 0A0D8 YI SYLLABLE FUT 0A0D9 YI SYLLABLE FUX 0A0DA YI SYLLABLE FU 0A0DB YI SYLLABLE FUP 0A0DC YI SYLLABLE FURX 0A0DD YI SYLLABLE FUR 0A0DE YI SYLLABLE FYT 0A0DF YI SYLLABLE FYX 0A0E0 YI SYLLABLE FY 0A0E1 YI SYLLABLE FYP 0A0E2 YI SYLLABLE VIT 0A0E3 YI SYLLABLE VIX 0A0E4 YI SYLLABLE VI 0A0E5 YI SYLLABLE VIP 0A0E6 YI SYLLABLE VIET 0A0E7 YI SYLLABLE VIEX 0A0E8 YI SYLLABLE VIE 0A0E9 YI SYLLABLE VIEP 0A0EA YI SYLLABLE VAT 0A0EB YI SYLLABLE VAX 0A0EC YI SYLLABLE VA 0A0ED YI SYLLABLE VAP 0A0EE YI SYLLABLE VOT 0A0EF YI SYLLABLE VOX 0A0F0 YI SYLLABLE VO 0A0F1 YI SYLLABLE VOP 0A0F2 YI SYLLABLE VEX 0A0F3 YI SYLLABLE VEP 0A0F4 YI SYLLABLE VUT 0A0F5 YI SYLLABLE VUX 0A0F6 YI SYLLABLE VU 0A0F7 YI SYLLABLE VUP 0A0F8 YI SYLLABLE VURX 0A0F9 YI SYLLABLE VUR 0A0FA YI SYLLABLE VYT 0A0FB YI SYLLABLE VYX 0A0FC YI SYLLABLE VY 0A0FD YI SYLLABLE VYP 0A0FE YI SYLLABLE VYRX 0A0FF YI SYLLABLE VYR 0A100 YI SYLLABLE DIT 0A101 YI SYLLABLE DIX 0A102 YI SYLLABLE DI 0A103 YI SYLLABLE DIP 0A104 YI SYLLABLE DIEX 0A105 YI SYLLABLE DIE 0A106 YI SYLLABLE DIEP 0A107 YI SYLLABLE DAT 0A108 YI SYLLABLE DAX 0A109 YI SYLLABLE DA 0A10A YI SYLLABLE DAP 0A10B YI SYLLABLE DUOX 0A10C YI SYLLABLE DUO 0A10D YI SYLLABLE DOT 0A10E YI SYLLABLE DOX 0A10F YI SYLLABLE DO 0A110 YI SYLLABLE DOP 0A111 YI SYLLABLE DEX 0A112 YI SYLLABLE DE 0A113 YI SYLLABLE DEP 0A114 YI SYLLABLE DUT 0A115 YI SYLLABLE DUX 0A116 YI SYLLABLE DU 0A117 YI SYLLABLE DUP 0A118 YI SYLLABLE DURX 0A119 YI SYLLABLE DUR 0A11A YI SYLLABLE TIT 0A11B YI SYLLABLE TIX 0A11C YI SYLLABLE TI 0A11D YI SYLLABLE TIP 0A11E YI SYLLABLE TIEX 0A11F YI SYLLABLE TIE 0A120 YI SYLLABLE TIEP 0A121 YI SYLLABLE TAT 0A122 YI SYLLABLE TAX 0A123 YI SYLLABLE TA 0A124 YI SYLLABLE TAP 0A125 YI SYLLABLE TUOT 0A126 YI SYLLABLE TUOX 0A127 YI SYLLABLE TUO 0A128 YI SYLLABLE TUOP 0A129 YI SYLLABLE TOT 0A12A YI SYLLABLE TOX 0A12B YI SYLLABLE TO 0A12C YI SYLLABLE TOP 0A12D YI SYLLABLE TEX 0A12E YI SYLLABLE TE 0A12F YI SYLLABLE TEP 0A130 YI SYLLABLE TUT 0A131 YI SYLLABLE TUX 0A132 YI SYLLABLE TU 0A133 YI SYLLABLE TUP 0A134 YI SYLLABLE TURX 0A135 YI SYLLABLE TUR 0A136 YI SYLLABLE DDIT 0A137 YI SYLLABLE DDIX 0A138 YI SYLLABLE DDI 0A139 YI SYLLABLE DDIP 0A13A YI SYLLABLE DDIEX 0A13B YI SYLLABLE DDIE 0A13C YI SYLLABLE DDIEP 0A13D YI SYLLABLE DDAT 0A13E YI SYLLABLE DDAX 0A13F YI SYLLABLE DDA 0A140 YI SYLLABLE DDAP 0A141 YI SYLLABLE DDUOX 0A142 YI SYLLABLE DDUO 0A143 YI SYLLABLE DDUOP 0A144 YI SYLLABLE DDOT 0A145 YI SYLLABLE DDOX 0A146 YI SYLLABLE DDO 0A147 YI SYLLABLE DDOP 0A148 YI SYLLABLE DDEX 0A149 YI SYLLABLE DDE 0A14A YI SYLLABLE DDEP 0A14B YI SYLLABLE DDUT 0A14C YI SYLLABLE DDUX 0A14D YI SYLLABLE DDU 0A14E YI SYLLABLE DDUP 0A14F YI SYLLABLE DDURX 0A150 YI SYLLABLE DDUR 0A151 YI SYLLABLE NDIT 0A152 YI SYLLABLE NDIX 0A153 YI SYLLABLE NDI 0A154 YI SYLLABLE NDIP 0A155 YI SYLLABLE NDIEX 0A156 YI SYLLABLE NDIE 0A157 YI SYLLABLE NDAT 0A158 YI SYLLABLE NDAX 0A159 YI SYLLABLE NDA 0A15A YI SYLLABLE NDAP 0A15B YI SYLLABLE NDOT 0A15C YI SYLLABLE NDOX 0A15D YI SYLLABLE NDO 0A15E YI SYLLABLE NDOP 0A15F YI SYLLABLE NDEX 0A160 YI SYLLABLE NDE 0A161 YI SYLLABLE NDEP 0A162 YI SYLLABLE NDUT 0A163 YI SYLLABLE NDUX 0A164 YI SYLLABLE NDU 0A165 YI SYLLABLE NDUP 0A166 YI SYLLABLE NDURX 0A167 YI SYLLABLE NDUR 0A168 YI SYLLABLE HNIT 0A169 YI SYLLABLE HNIX 0A16A YI SYLLABLE HNI 0A16B YI SYLLABLE HNIP 0A16C YI SYLLABLE HNIET 0A16D YI SYLLABLE HNIEX 0A16E YI SYLLABLE HNIE 0A16F YI SYLLABLE HNIEP 0A170 YI SYLLABLE HNAT 0A171 YI SYLLABLE HNAX 0A172 YI SYLLABLE HNA 0A173 YI SYLLABLE HNAP 0A174 YI SYLLABLE HNUOX 0A175 YI SYLLABLE HNUO 0A176 YI SYLLABLE HNOT 0A177 YI SYLLABLE HNOX 0A178 YI SYLLABLE HNOP 0A179 YI SYLLABLE HNEX 0A17A YI SYLLABLE HNE 0A17B YI SYLLABLE HNEP 0A17C YI SYLLABLE HNUT 0A17D YI SYLLABLE NIT 0A17E YI SYLLABLE NIX 0A17F YI SYLLABLE NI 0A180 YI SYLLABLE NIP 0A181 YI SYLLABLE NIEX 0A182 YI SYLLABLE NIE 0A183 YI SYLLABLE NIEP 0A184 YI SYLLABLE NAX 0A185 YI SYLLABLE NA 0A186 YI SYLLABLE NAP 0A187 YI SYLLABLE NUOX 0A188 YI SYLLABLE NUO 0A189 YI SYLLABLE NUOP 0A18A YI SYLLABLE NOT 0A18B YI SYLLABLE NOX 0A18C YI SYLLABLE NO 0A18D YI SYLLABLE NOP 0A18E YI SYLLABLE NEX 0A18F YI SYLLABLE NE 0A190 YI SYLLABLE NEP 0A191 YI SYLLABLE NUT 0A192 YI SYLLABLE NUX 0A193 YI SYLLABLE NU 0A194 YI SYLLABLE NUP 0A195 YI SYLLABLE NURX 0A196 YI SYLLABLE NUR 0A197 YI SYLLABLE HLIT 0A198 YI SYLLABLE HLIX 0A199 YI SYLLABLE HLI 0A19A YI SYLLABLE HLIP 0A19B YI SYLLABLE HLIEX 0A19C YI SYLLABLE HLIE 0A19D YI SYLLABLE HLIEP 0A19E YI SYLLABLE HLAT 0A19F YI SYLLABLE HLAX 0A1A0 YI SYLLABLE HLA 0A1A1 YI SYLLABLE HLAP 0A1A2 YI SYLLABLE HLUOX 0A1A3 YI SYLLABLE HLUO 0A1A4 YI SYLLABLE HLUOP 0A1A5 YI SYLLABLE HLOX 0A1A6 YI SYLLABLE HLO 0A1A7 YI SYLLABLE HLOP 0A1A8 YI SYLLABLE HLEX 0A1A9 YI SYLLABLE HLE 0A1AA YI SYLLABLE HLEP 0A1AB YI SYLLABLE HLUT 0A1AC YI SYLLABLE HLUX 0A1AD YI SYLLABLE HLU 0A1AE YI SYLLABLE HLUP 0A1AF YI SYLLABLE HLURX 0A1B0 YI SYLLABLE HLUR 0A1B1 YI SYLLABLE HLYT 0A1B2 YI SYLLABLE HLYX 0A1B3 YI SYLLABLE HLY 0A1B4 YI SYLLABLE HLYP 0A1B5 YI SYLLABLE HLYRX 0A1B6 YI SYLLABLE HLYR 0A1B7 YI SYLLABLE LIT 0A1B8 YI SYLLABLE LIX 0A1B9 YI SYLLABLE LI 0A1BA YI SYLLABLE LIP 0A1BB YI SYLLABLE LIET 0A1BC YI SYLLABLE LIEX 0A1BD YI SYLLABLE LIE 0A1BE YI SYLLABLE LIEP 0A1BF YI SYLLABLE LAT 0A1C0 YI SYLLABLE LAX 0A1C1 YI SYLLABLE LA 0A1C2 YI SYLLABLE LAP 0A1C3 YI SYLLABLE LUOT 0A1C4 YI SYLLABLE LUOX 0A1C5 YI SYLLABLE LUO 0A1C6 YI SYLLABLE LUOP 0A1C7 YI SYLLABLE LOT 0A1C8 YI SYLLABLE LOX 0A1C9 YI SYLLABLE LO 0A1CA YI SYLLABLE LOP 0A1CB YI SYLLABLE LEX 0A1CC YI SYLLABLE LE 0A1CD YI SYLLABLE LEP 0A1CE YI SYLLABLE LUT 0A1CF YI SYLLABLE LUX 0A1D0 YI SYLLABLE LU 0A1D1 YI SYLLABLE LUP 0A1D2 YI SYLLABLE LURX 0A1D3 YI SYLLABLE LUR 0A1D4 YI SYLLABLE LYT 0A1D5 YI SYLLABLE LYX 0A1D6 YI SYLLABLE LY 0A1D7 YI SYLLABLE LYP 0A1D8 YI SYLLABLE LYRX 0A1D9 YI SYLLABLE LYR 0A1DA YI SYLLABLE GIT 0A1DB YI SYLLABLE GIX 0A1DC YI SYLLABLE GI 0A1DD YI SYLLABLE GIP 0A1DE YI SYLLABLE GIET 0A1DF YI SYLLABLE GIEX 0A1E0 YI SYLLABLE GIE 0A1E1 YI SYLLABLE GIEP 0A1E2 YI SYLLABLE GAT 0A1E3 YI SYLLABLE GAX 0A1E4 YI SYLLABLE GA 0A1E5 YI SYLLABLE GAP 0A1E6 YI SYLLABLE GUOT 0A1E7 YI SYLLABLE GUOX 0A1E8 YI SYLLABLE GUO 0A1E9 YI SYLLABLE GUOP 0A1EA YI SYLLABLE GOT 0A1EB YI SYLLABLE GOX 0A1EC YI SYLLABLE GO 0A1ED YI SYLLABLE GOP 0A1EE YI SYLLABLE GET 0A1EF YI SYLLABLE GEX 0A1F0 YI SYLLABLE GE 0A1F1 YI SYLLABLE GEP 0A1F2 YI SYLLABLE GUT 0A1F3 YI SYLLABLE GUX 0A1F4 YI SYLLABLE GU 0A1F5 YI SYLLABLE GUP 0A1F6 YI SYLLABLE GURX 0A1F7 YI SYLLABLE GUR 0A1F8 YI SYLLABLE KIT 0A1F9 YI SYLLABLE KIX 0A1FA YI SYLLABLE KI 0A1FB YI SYLLABLE KIP 0A1FC YI SYLLABLE KIEX 0A1FD YI SYLLABLE KIE 0A1FE YI SYLLABLE KIEP 0A1FF YI SYLLABLE KAT 0A200 YI SYLLABLE KAX 0A201 YI SYLLABLE KA 0A202 YI SYLLABLE KAP 0A203 YI SYLLABLE KUOX 0A204 YI SYLLABLE KUO 0A205 YI SYLLABLE KUOP 0A206 YI SYLLABLE KOT 0A207 YI SYLLABLE KOX 0A208 YI SYLLABLE KO 0A209 YI SYLLABLE KOP 0A20A YI SYLLABLE KET 0A20B YI SYLLABLE KEX 0A20C YI SYLLABLE KE 0A20D YI SYLLABLE KEP 0A20E YI SYLLABLE KUT 0A20F YI SYLLABLE KUX 0A210 YI SYLLABLE KU 0A211 YI SYLLABLE KUP 0A212 YI SYLLABLE KURX 0A213 YI SYLLABLE KUR 0A214 YI SYLLABLE GGIT 0A215 YI SYLLABLE GGIX 0A216 YI SYLLABLE GGI 0A217 YI SYLLABLE GGIEX 0A218 YI SYLLABLE GGIE 0A219 YI SYLLABLE GGIEP 0A21A YI SYLLABLE GGAT 0A21B YI SYLLABLE GGAX 0A21C YI SYLLABLE GGA 0A21D YI SYLLABLE GGAP 0A21E YI SYLLABLE GGUOT 0A21F YI SYLLABLE GGUOX 0A220 YI SYLLABLE GGUO 0A221 YI SYLLABLE GGUOP 0A222 YI SYLLABLE GGOT 0A223 YI SYLLABLE GGOX 0A224 YI SYLLABLE GGO 0A225 YI SYLLABLE GGOP 0A226 YI SYLLABLE GGET 0A227 YI SYLLABLE GGEX 0A228 YI SYLLABLE GGE 0A229 YI SYLLABLE GGEP 0A22A YI SYLLABLE GGUT 0A22B YI SYLLABLE GGUX 0A22C YI SYLLABLE GGU 0A22D YI SYLLABLE GGUP 0A22E YI SYLLABLE GGURX 0A22F YI SYLLABLE GGUR 0A230 YI SYLLABLE MGIEX 0A231 YI SYLLABLE MGIE 0A232 YI SYLLABLE MGAT 0A233 YI SYLLABLE MGAX 0A234 YI SYLLABLE MGA 0A235 YI SYLLABLE MGAP 0A236 YI SYLLABLE MGUOX 0A237 YI SYLLABLE MGUO 0A238 YI SYLLABLE MGUOP 0A239 YI SYLLABLE MGOT 0A23A YI SYLLABLE MGOX 0A23B YI SYLLABLE MGO 0A23C YI SYLLABLE MGOP 0A23D YI SYLLABLE MGEX 0A23E YI SYLLABLE MGE 0A23F YI SYLLABLE MGEP 0A240 YI SYLLABLE MGUT 0A241 YI SYLLABLE MGUX 0A242 YI SYLLABLE MGU 0A243 YI SYLLABLE MGUP 0A244 YI SYLLABLE MGURX 0A245 YI SYLLABLE MGUR 0A246 YI SYLLABLE HXIT 0A247 YI SYLLABLE HXIX 0A248 YI SYLLABLE HXI 0A249 YI SYLLABLE HXIP 0A24A YI SYLLABLE HXIET 0A24B YI SYLLABLE HXIEX 0A24C YI SYLLABLE HXIE 0A24D YI SYLLABLE HXIEP 0A24E YI SYLLABLE HXAT 0A24F YI SYLLABLE HXAX 0A250 YI SYLLABLE HXA 0A251 YI SYLLABLE HXAP 0A252 YI SYLLABLE HXUOT 0A253 YI SYLLABLE HXUOX 0A254 YI SYLLABLE HXUO 0A255 YI SYLLABLE HXUOP 0A256 YI SYLLABLE HXOT 0A257 YI SYLLABLE HXOX 0A258 YI SYLLABLE HXO 0A259 YI SYLLABLE HXOP 0A25A YI SYLLABLE HXEX 0A25B YI SYLLABLE HXE 0A25C YI SYLLABLE HXEP 0A25D YI SYLLABLE NGIEX 0A25E YI SYLLABLE NGIE 0A25F YI SYLLABLE NGIEP 0A260 YI SYLLABLE NGAT 0A261 YI SYLLABLE NGAX 0A262 YI SYLLABLE NGA 0A263 YI SYLLABLE NGAP 0A264 YI SYLLABLE NGUOT 0A265 YI SYLLABLE NGUOX 0A266 YI SYLLABLE NGUO 0A267 YI SYLLABLE NGOT 0A268 YI SYLLABLE NGOX 0A269 YI SYLLABLE NGO 0A26A YI SYLLABLE NGOP 0A26B YI SYLLABLE NGEX 0A26C YI SYLLABLE NGE 0A26D YI SYLLABLE NGEP 0A26E YI SYLLABLE HIT 0A26F YI SYLLABLE HIEX 0A270 YI SYLLABLE HIE 0A271 YI SYLLABLE HAT 0A272 YI SYLLABLE HAX 0A273 YI SYLLABLE HA 0A274 YI SYLLABLE HAP 0A275 YI SYLLABLE HUOT 0A276 YI SYLLABLE HUOX 0A277 YI SYLLABLE HUO 0A278 YI SYLLABLE HUOP 0A279 YI SYLLABLE HOT 0A27A YI SYLLABLE HOX 0A27B YI SYLLABLE HO 0A27C YI SYLLABLE HOP 0A27D YI SYLLABLE HEX 0A27E YI SYLLABLE HE 0A27F YI SYLLABLE HEP 0A280 YI SYLLABLE WAT 0A281 YI SYLLABLE WAX 0A282 YI SYLLABLE WA 0A283 YI SYLLABLE WAP 0A284 YI SYLLABLE WUOX 0A285 YI SYLLABLE WUO 0A286 YI SYLLABLE WUOP 0A287 YI SYLLABLE WOX 0A288 YI SYLLABLE WO 0A289 YI SYLLABLE WOP 0A28A YI SYLLABLE WEX 0A28B YI SYLLABLE WE 0A28C YI SYLLABLE WEP 0A28D YI SYLLABLE ZIT 0A28E YI SYLLABLE ZIX 0A28F YI SYLLABLE ZI 0A290 YI SYLLABLE ZIP 0A291 YI SYLLABLE ZIEX 0A292 YI SYLLABLE ZIE 0A293 YI SYLLABLE ZIEP 0A294 YI SYLLABLE ZAT 0A295 YI SYLLABLE ZAX 0A296 YI SYLLABLE ZA 0A297 YI SYLLABLE ZAP 0A298 YI SYLLABLE ZUOX 0A299 YI SYLLABLE ZUO 0A29A YI SYLLABLE ZUOP 0A29B YI SYLLABLE ZOT 0A29C YI SYLLABLE ZOX 0A29D YI SYLLABLE ZO 0A29E YI SYLLABLE ZOP 0A29F YI SYLLABLE ZEX 0A2A0 YI SYLLABLE ZE 0A2A1 YI SYLLABLE ZEP 0A2A2 YI SYLLABLE ZUT 0A2A3 YI SYLLABLE ZUX 0A2A4 YI SYLLABLE ZU 0A2A5 YI SYLLABLE ZUP 0A2A6 YI SYLLABLE ZURX 0A2A7 YI SYLLABLE ZUR 0A2A8 YI SYLLABLE ZYT 0A2A9 YI SYLLABLE ZYX 0A2AA YI SYLLABLE ZY 0A2AB YI SYLLABLE ZYP 0A2AC YI SYLLABLE ZYRX 0A2AD YI SYLLABLE ZYR 0A2AE YI SYLLABLE CIT 0A2AF YI SYLLABLE CIX 0A2B0 YI SYLLABLE CI 0A2B1 YI SYLLABLE CIP 0A2B2 YI SYLLABLE CIET 0A2B3 YI SYLLABLE CIEX 0A2B4 YI SYLLABLE CIE 0A2B5 YI SYLLABLE CIEP 0A2B6 YI SYLLABLE CAT 0A2B7 YI SYLLABLE CAX 0A2B8 YI SYLLABLE CA 0A2B9 YI SYLLABLE CAP 0A2BA YI SYLLABLE CUOX 0A2BB YI SYLLABLE CUO 0A2BC YI SYLLABLE CUOP 0A2BD YI SYLLABLE COT 0A2BE YI SYLLABLE COX 0A2BF YI SYLLABLE CO 0A2C0 YI SYLLABLE COP 0A2C1 YI SYLLABLE CEX 0A2C2 YI SYLLABLE CE 0A2C3 YI SYLLABLE CEP 0A2C4 YI SYLLABLE CUT 0A2C5 YI SYLLABLE CUX 0A2C6 YI SYLLABLE CU 0A2C7 YI SYLLABLE CUP 0A2C8 YI SYLLABLE CURX 0A2C9 YI SYLLABLE CUR 0A2CA YI SYLLABLE CYT 0A2CB YI SYLLABLE CYX 0A2CC YI SYLLABLE CY 0A2CD YI SYLLABLE CYP 0A2CE YI SYLLABLE CYRX 0A2CF YI SYLLABLE CYR 0A2D0 YI SYLLABLE ZZIT 0A2D1 YI SYLLABLE ZZIX 0A2D2 YI SYLLABLE ZZI 0A2D3 YI SYLLABLE ZZIP 0A2D4 YI SYLLABLE ZZIET 0A2D5 YI SYLLABLE ZZIEX 0A2D6 YI SYLLABLE ZZIE 0A2D7 YI SYLLABLE ZZIEP 0A2D8 YI SYLLABLE ZZAT 0A2D9 YI SYLLABLE ZZAX 0A2DA YI SYLLABLE ZZA 0A2DB YI SYLLABLE ZZAP 0A2DC YI SYLLABLE ZZOX 0A2DD YI SYLLABLE ZZO 0A2DE YI SYLLABLE ZZOP 0A2DF YI SYLLABLE ZZEX 0A2E0 YI SYLLABLE ZZE 0A2E1 YI SYLLABLE ZZEP 0A2E2 YI SYLLABLE ZZUX 0A2E3 YI SYLLABLE ZZU 0A2E4 YI SYLLABLE ZZUP 0A2E5 YI SYLLABLE ZZURX 0A2E6 YI SYLLABLE ZZUR 0A2E7 YI SYLLABLE ZZYT 0A2E8 YI SYLLABLE ZZYX 0A2E9 YI SYLLABLE ZZY 0A2EA YI SYLLABLE ZZYP 0A2EB YI SYLLABLE ZZYRX 0A2EC YI SYLLABLE ZZYR 0A2ED YI SYLLABLE NZIT 0A2EE YI SYLLABLE NZIX 0A2EF YI SYLLABLE NZI 0A2F0 YI SYLLABLE NZIP 0A2F1 YI SYLLABLE NZIEX 0A2F2 YI SYLLABLE NZIE 0A2F3 YI SYLLABLE NZIEP 0A2F4 YI SYLLABLE NZAT 0A2F5 YI SYLLABLE NZAX 0A2F6 YI SYLLABLE NZA 0A2F7 YI SYLLABLE NZAP 0A2F8 YI SYLLABLE NZUOX 0A2F9 YI SYLLABLE NZUO 0A2FA YI SYLLABLE NZOX 0A2FB YI SYLLABLE NZOP 0A2FC YI SYLLABLE NZEX 0A2FD YI SYLLABLE NZE 0A2FE YI SYLLABLE NZUX 0A2FF YI SYLLABLE NZU 0A300 YI SYLLABLE NZUP 0A301 YI SYLLABLE NZURX 0A302 YI SYLLABLE NZUR 0A303 YI SYLLABLE NZYT 0A304 YI SYLLABLE NZYX 0A305 YI SYLLABLE NZY 0A306 YI SYLLABLE NZYP 0A307 YI SYLLABLE NZYRX 0A308 YI SYLLABLE NZYR 0A309 YI SYLLABLE SIT 0A30A YI SYLLABLE SIX 0A30B YI SYLLABLE SI 0A30C YI SYLLABLE SIP 0A30D YI SYLLABLE SIEX 0A30E YI SYLLABLE SIE 0A30F YI SYLLABLE SIEP 0A310 YI SYLLABLE SAT 0A311 YI SYLLABLE SAX 0A312 YI SYLLABLE SA 0A313 YI SYLLABLE SAP 0A314 YI SYLLABLE SUOX 0A315 YI SYLLABLE SUO 0A316 YI SYLLABLE SUOP 0A317 YI SYLLABLE SOT 0A318 YI SYLLABLE SOX 0A319 YI SYLLABLE SO 0A31A YI SYLLABLE SOP 0A31B YI SYLLABLE SEX 0A31C YI SYLLABLE SE 0A31D YI SYLLABLE SEP 0A31E YI SYLLABLE SUT 0A31F YI SYLLABLE SUX 0A320 YI SYLLABLE SU 0A321 YI SYLLABLE SUP 0A322 YI SYLLABLE SURX 0A323 YI SYLLABLE SUR 0A324 YI SYLLABLE SYT 0A325 YI SYLLABLE SYX 0A326 YI SYLLABLE SY 0A327 YI SYLLABLE SYP 0A328 YI SYLLABLE SYRX 0A329 YI SYLLABLE SYR 0A32A YI SYLLABLE SSIT 0A32B YI SYLLABLE SSIX 0A32C YI SYLLABLE SSI 0A32D YI SYLLABLE SSIP 0A32E YI SYLLABLE SSIEX 0A32F YI SYLLABLE SSIE 0A330 YI SYLLABLE SSIEP 0A331 YI SYLLABLE SSAT 0A332 YI SYLLABLE SSAX 0A333 YI SYLLABLE SSA 0A334 YI SYLLABLE SSAP 0A335 YI SYLLABLE SSOT 0A336 YI SYLLABLE SSOX 0A337 YI SYLLABLE SSO 0A338 YI SYLLABLE SSOP 0A339 YI SYLLABLE SSEX 0A33A YI SYLLABLE SSE 0A33B YI SYLLABLE SSEP 0A33C YI SYLLABLE SSUT 0A33D YI SYLLABLE SSUX 0A33E YI SYLLABLE SSU 0A33F YI SYLLABLE SSUP 0A340 YI SYLLABLE SSYT 0A341 YI SYLLABLE SSYX 0A342 YI SYLLABLE SSY 0A343 YI SYLLABLE SSYP 0A344 YI SYLLABLE SSYRX 0A345 YI SYLLABLE SSYR 0A346 YI SYLLABLE ZHAT 0A347 YI SYLLABLE ZHAX 0A348 YI SYLLABLE ZHA 0A349 YI SYLLABLE ZHAP 0A34A YI SYLLABLE ZHUOX 0A34B YI SYLLABLE ZHUO 0A34C YI SYLLABLE ZHUOP 0A34D YI SYLLABLE ZHOT 0A34E YI SYLLABLE ZHOX 0A34F YI SYLLABLE ZHO 0A350 YI SYLLABLE ZHOP 0A351 YI SYLLABLE ZHET 0A352 YI SYLLABLE ZHEX 0A353 YI SYLLABLE ZHE 0A354 YI SYLLABLE ZHEP 0A355 YI SYLLABLE ZHUT 0A356 YI SYLLABLE ZHUX 0A357 YI SYLLABLE ZHU 0A358 YI SYLLABLE ZHUP 0A359 YI SYLLABLE ZHURX 0A35A YI SYLLABLE ZHUR 0A35B YI SYLLABLE ZHYT 0A35C YI SYLLABLE ZHYX 0A35D YI SYLLABLE ZHY 0A35E YI SYLLABLE ZHYP 0A35F YI SYLLABLE ZHYRX 0A360 YI SYLLABLE ZHYR 0A361 YI SYLLABLE CHAT 0A362 YI SYLLABLE CHAX 0A363 YI SYLLABLE CHA 0A364 YI SYLLABLE CHAP 0A365 YI SYLLABLE CHUOT 0A366 YI SYLLABLE CHUOX 0A367 YI SYLLABLE CHUO 0A368 YI SYLLABLE CHUOP 0A369 YI SYLLABLE CHOT 0A36A YI SYLLABLE CHOX 0A36B YI SYLLABLE CHO 0A36C YI SYLLABLE CHOP 0A36D YI SYLLABLE CHET 0A36E YI SYLLABLE CHEX 0A36F YI SYLLABLE CHE 0A370 YI SYLLABLE CHEP 0A371 YI SYLLABLE CHUX 0A372 YI SYLLABLE CHU 0A373 YI SYLLABLE CHUP 0A374 YI SYLLABLE CHURX 0A375 YI SYLLABLE CHUR 0A376 YI SYLLABLE CHYT 0A377 YI SYLLABLE CHYX 0A378 YI SYLLABLE CHY 0A379 YI SYLLABLE CHYP 0A37A YI SYLLABLE CHYRX 0A37B YI SYLLABLE CHYR 0A37C YI SYLLABLE RRAX 0A37D YI SYLLABLE RRA 0A37E YI SYLLABLE RRUOX 0A37F YI SYLLABLE RRUO 0A380 YI SYLLABLE RROT 0A381 YI SYLLABLE RROX 0A382 YI SYLLABLE RRO 0A383 YI SYLLABLE RROP 0A384 YI SYLLABLE RRET 0A385 YI SYLLABLE RREX 0A386 YI SYLLABLE RRE 0A387 YI SYLLABLE RREP 0A388 YI SYLLABLE RRUT 0A389 YI SYLLABLE RRUX 0A38A YI SYLLABLE RRU 0A38B YI SYLLABLE RRUP 0A38C YI SYLLABLE RRURX 0A38D YI SYLLABLE RRUR 0A38E YI SYLLABLE RRYT 0A38F YI SYLLABLE RRYX 0A390 YI SYLLABLE RRY 0A391 YI SYLLABLE RRYP 0A392 YI SYLLABLE RRYRX 0A393 YI SYLLABLE RRYR 0A394 YI SYLLABLE NRAT 0A395 YI SYLLABLE NRAX 0A396 YI SYLLABLE NRA 0A397 YI SYLLABLE NRAP 0A398 YI SYLLABLE NROX 0A399 YI SYLLABLE NRO 0A39A YI SYLLABLE NROP 0A39B YI SYLLABLE NRET 0A39C YI SYLLABLE NREX 0A39D YI SYLLABLE NRE 0A39E YI SYLLABLE NREP 0A39F YI SYLLABLE NRUT 0A3A0 YI SYLLABLE NRUX 0A3A1 YI SYLLABLE NRU 0A3A2 YI SYLLABLE NRUP 0A3A3 YI SYLLABLE NRURX 0A3A4 YI SYLLABLE NRUR 0A3A5 YI SYLLABLE NRYT 0A3A6 YI SYLLABLE NRYX 0A3A7 YI SYLLABLE NRY 0A3A8 YI SYLLABLE NRYP 0A3A9 YI SYLLABLE NRYRX 0A3AA YI SYLLABLE NRYR 0A3AB YI SYLLABLE SHAT 0A3AC YI SYLLABLE SHAX 0A3AD YI SYLLABLE SHA 0A3AE YI SYLLABLE SHAP 0A3AF YI SYLLABLE SHUOX 0A3B0 YI SYLLABLE SHUO 0A3B1 YI SYLLABLE SHUOP 0A3B2 YI SYLLABLE SHOT 0A3B3 YI SYLLABLE SHOX 0A3B4 YI SYLLABLE SHO 0A3B5 YI SYLLABLE SHOP 0A3B6 YI SYLLABLE SHET 0A3B7 YI SYLLABLE SHEX 0A3B8 YI SYLLABLE SHE 0A3B9 YI SYLLABLE SHEP 0A3BA YI SYLLABLE SHUT 0A3BB YI SYLLABLE SHUX 0A3BC YI SYLLABLE SHU 0A3BD YI SYLLABLE SHUP 0A3BE YI SYLLABLE SHURX 0A3BF YI SYLLABLE SHUR 0A3C0 YI SYLLABLE SHYT 0A3C1 YI SYLLABLE SHYX 0A3C2 YI SYLLABLE SHY 0A3C3 YI SYLLABLE SHYP 0A3C4 YI SYLLABLE SHYRX 0A3C5 YI SYLLABLE SHYR 0A3C6 YI SYLLABLE RAT 0A3C7 YI SYLLABLE RAX 0A3C8 YI SYLLABLE RA 0A3C9 YI SYLLABLE RAP 0A3CA YI SYLLABLE RUOX 0A3CB YI SYLLABLE RUO 0A3CC YI SYLLABLE RUOP 0A3CD YI SYLLABLE ROT 0A3CE YI SYLLABLE ROX 0A3CF YI SYLLABLE RO 0A3D0 YI SYLLABLE ROP 0A3D1 YI SYLLABLE REX 0A3D2 YI SYLLABLE RE 0A3D3 YI SYLLABLE REP 0A3D4 YI SYLLABLE RUT 0A3D5 YI SYLLABLE RUX 0A3D6 YI SYLLABLE RU 0A3D7 YI SYLLABLE RUP 0A3D8 YI SYLLABLE RURX 0A3D9 YI SYLLABLE RUR 0A3DA YI SYLLABLE RYT 0A3DB YI SYLLABLE RYX 0A3DC YI SYLLABLE RY 0A3DD YI SYLLABLE RYP 0A3DE YI SYLLABLE RYRX 0A3DF YI SYLLABLE RYR 0A3E0 YI SYLLABLE JIT 0A3E1 YI SYLLABLE JIX 0A3E2 YI SYLLABLE JI 0A3E3 YI SYLLABLE JIP 0A3E4 YI SYLLABLE JIET 0A3E5 YI SYLLABLE JIEX 0A3E6 YI SYLLABLE JIE 0A3E7 YI SYLLABLE JIEP 0A3E8 YI SYLLABLE JUOT 0A3E9 YI SYLLABLE JUOX 0A3EA YI SYLLABLE JUO 0A3EB YI SYLLABLE JUOP 0A3EC YI SYLLABLE JOT 0A3ED YI SYLLABLE JOX 0A3EE YI SYLLABLE JO 0A3EF YI SYLLABLE JOP 0A3F0 YI SYLLABLE JUT 0A3F1 YI SYLLABLE JUX 0A3F2 YI SYLLABLE JU 0A3F3 YI SYLLABLE JUP 0A3F4 YI SYLLABLE JURX 0A3F5 YI SYLLABLE JUR 0A3F6 YI SYLLABLE JYT 0A3F7 YI SYLLABLE JYX 0A3F8 YI SYLLABLE JY 0A3F9 YI SYLLABLE JYP 0A3FA YI SYLLABLE JYRX 0A3FB YI SYLLABLE JYR 0A3FC YI SYLLABLE QIT 0A3FD YI SYLLABLE QIX 0A3FE YI SYLLABLE QI 0A3FF YI SYLLABLE QIP 0A400 YI SYLLABLE QIET 0A401 YI SYLLABLE QIEX 0A402 YI SYLLABLE QIE 0A403 YI SYLLABLE QIEP 0A404 YI SYLLABLE QUOT 0A405 YI SYLLABLE QUOX 0A406 YI SYLLABLE QUO 0A407 YI SYLLABLE QUOP 0A408 YI SYLLABLE QOT 0A409 YI SYLLABLE QOX 0A40A YI SYLLABLE QO 0A40B YI SYLLABLE QOP 0A40C YI SYLLABLE QUT 0A40D YI SYLLABLE QUX 0A40E YI SYLLABLE QU 0A40F YI SYLLABLE QUP 0A410 YI SYLLABLE QURX 0A411 YI SYLLABLE QUR 0A412 YI SYLLABLE QYT 0A413 YI SYLLABLE QYX 0A414 YI SYLLABLE QY 0A415 YI SYLLABLE QYP 0A416 YI SYLLABLE QYRX 0A417 YI SYLLABLE QYR 0A418 YI SYLLABLE JJIT 0A419 YI SYLLABLE JJIX 0A41A YI SYLLABLE JJI 0A41B YI SYLLABLE JJIP 0A41C YI SYLLABLE JJIET 0A41D YI SYLLABLE JJIEX 0A41E YI SYLLABLE JJIE 0A41F YI SYLLABLE JJIEP 0A420 YI SYLLABLE JJUOX 0A421 YI SYLLABLE JJUO 0A422 YI SYLLABLE JJUOP 0A423 YI SYLLABLE JJOT 0A424 YI SYLLABLE JJOX 0A425 YI SYLLABLE JJO 0A426 YI SYLLABLE JJOP 0A427 YI SYLLABLE JJUT 0A428 YI SYLLABLE JJUX 0A429 YI SYLLABLE JJU 0A42A YI SYLLABLE JJUP 0A42B YI SYLLABLE JJURX 0A42C YI SYLLABLE JJUR 0A42D YI SYLLABLE JJYT 0A42E YI SYLLABLE JJYX 0A42F YI SYLLABLE JJY 0A430 YI SYLLABLE JJYP 0A431 YI SYLLABLE NJIT 0A432 YI SYLLABLE NJIX 0A433 YI SYLLABLE NJI 0A434 YI SYLLABLE NJIP 0A435 YI SYLLABLE NJIET 0A436 YI SYLLABLE NJIEX 0A437 YI SYLLABLE NJIE 0A438 YI SYLLABLE NJIEP 0A439 YI SYLLABLE NJUOX 0A43A YI SYLLABLE NJUO 0A43B YI SYLLABLE NJOT 0A43C YI SYLLABLE NJOX 0A43D YI SYLLABLE NJO 0A43E YI SYLLABLE NJOP 0A43F YI SYLLABLE NJUX 0A440 YI SYLLABLE NJU 0A441 YI SYLLABLE NJUP 0A442 YI SYLLABLE NJURX 0A443 YI SYLLABLE NJUR 0A444 YI SYLLABLE NJYT 0A445 YI SYLLABLE NJYX 0A446 YI SYLLABLE NJY 0A447 YI SYLLABLE NJYP 0A448 YI SYLLABLE NJYRX 0A449 YI SYLLABLE NJYR 0A44A YI SYLLABLE NYIT 0A44B YI SYLLABLE NYIX 0A44C YI SYLLABLE NYI 0A44D YI SYLLABLE NYIP 0A44E YI SYLLABLE NYIET 0A44F YI SYLLABLE NYIEX 0A450 YI SYLLABLE NYIE 0A451 YI SYLLABLE NYIEP 0A452 YI SYLLABLE NYUOX 0A453 YI SYLLABLE NYUO 0A454 YI SYLLABLE NYUOP 0A455 YI SYLLABLE NYOT 0A456 YI SYLLABLE NYOX 0A457 YI SYLLABLE NYO 0A458 YI SYLLABLE NYOP 0A459 YI SYLLABLE NYUT 0A45A YI SYLLABLE NYUX 0A45B YI SYLLABLE NYU 0A45C YI SYLLABLE NYUP 0A45D YI SYLLABLE XIT 0A45E YI SYLLABLE XIX 0A45F YI SYLLABLE XI 0A460 YI SYLLABLE XIP 0A461 YI SYLLABLE XIET 0A462 YI SYLLABLE XIEX 0A463 YI SYLLABLE XIE 0A464 YI SYLLABLE XIEP 0A465 YI SYLLABLE XUOX 0A466 YI SYLLABLE XUO 0A467 YI SYLLABLE XOT 0A468 YI SYLLABLE XOX 0A469 YI SYLLABLE XO 0A46A YI SYLLABLE XOP 0A46B YI SYLLABLE XYT 0A46C YI SYLLABLE XYX 0A46D YI SYLLABLE XY 0A46E YI SYLLABLE XYP 0A46F YI SYLLABLE XYRX 0A470 YI SYLLABLE XYR 0A471 YI SYLLABLE YIT 0A472 YI SYLLABLE YIX 0A473 YI SYLLABLE YI 0A474 YI SYLLABLE YIP 0A475 YI SYLLABLE YIET 0A476 YI SYLLABLE YIEX 0A477 YI SYLLABLE YIE 0A478 YI SYLLABLE YIEP 0A479 YI SYLLABLE YUOT 0A47A YI SYLLABLE YUOX 0A47B YI SYLLABLE YUO 0A47C YI SYLLABLE YUOP 0A47D YI SYLLABLE YOT 0A47E YI SYLLABLE YOX 0A47F YI SYLLABLE YO 0A480 YI SYLLABLE YOP 0A481 YI SYLLABLE YUT 0A482 YI SYLLABLE YUX 0A483 YI SYLLABLE YU 0A484 YI SYLLABLE YUP 0A485 YI SYLLABLE YURX 0A486 YI SYLLABLE YUR 0A487 YI SYLLABLE YYT 0A488 YI SYLLABLE YYX 0A489 YI SYLLABLE YY 0A48A YI SYLLABLE YYP 0A48B YI SYLLABLE YYRX 0A48C YI SYLLABLE YYR 0A490 YI RADICAL QOT 0A491 YI RADICAL LI 0A492 YI RADICAL KIT 0A493 YI RADICAL NYIP 0A494 YI RADICAL CYP 0A495 YI RADICAL SSI 0A496 YI RADICAL GGOP 0A497 YI RADICAL GEP 0A498 YI RADICAL MI 0A499 YI RADICAL HXIT 0A49A YI RADICAL LYR 0A49B YI RADICAL BBUT 0A49C YI RADICAL MOP 0A49D YI RADICAL YO 0A49E YI RADICAL PUT 0A49F YI RADICAL HXUO 0A4A0 YI RADICAL TAT 0A4A1 YI RADICAL GA 0A4A2 YI RADICAL ZUP 0A4A3 YI RADICAL CYT 0A4A4 YI RADICAL DDUR 0A4A5 YI RADICAL BUR 0A4A6 YI RADICAL GGUO 0A4A7 YI RADICAL NYOP 0A4A8 YI RADICAL TU 0A4A9 YI RADICAL OP 0A4AA YI RADICAL JJUT 0A4AB YI RADICAL ZOT 0A4AC YI RADICAL PYT 0A4AD YI RADICAL HMO 0A4AE YI RADICAL YIT 0A4AF YI RADICAL VUR 0A4B0 YI RADICAL SHY 0A4B1 YI RADICAL VEP 0A4B2 YI RADICAL ZA 0A4B3 YI RADICAL JO 0A4B4 YI RADICAL NZUP 0A4B5 YI RADICAL JJY 0A4B6 YI RADICAL GOT 0A4B7 YI RADICAL JJIE 0A4B8 YI RADICAL WO 0A4B9 YI RADICAL DU 0A4BA YI RADICAL SHUR 0A4BB YI RADICAL LIE 0A4BC YI RADICAL CY 0A4BD YI RADICAL CUOP 0A4BE YI RADICAL CIP 0A4BF YI RADICAL HXOP 0A4C0 YI RADICAL SHAT 0A4C1 YI RADICAL ZUR 0A4C2 YI RADICAL SHOP 0A4C3 YI RADICAL CHE 0A4C4 YI RADICAL ZZIET 0A4C5 YI RADICAL NBIE 0A4C6 YI RADICAL KE 0A4D0 LISU LETTER BA 0A4D1 LISU LETTER PA 0A4D2 LISU LETTER PHA 0A4D3 LISU LETTER DA 0A4D4 LISU LETTER TA 0A4D5 LISU LETTER THA 0A4D6 LISU LETTER GA 0A4D7 LISU LETTER KA 0A4D8 LISU LETTER KHA 0A4D9 LISU LETTER JA 0A4DA LISU LETTER CA 0A4DB LISU LETTER CHA 0A4DC LISU LETTER DZA 0A4DD LISU LETTER TSA 0A4DE LISU LETTER TSHA 0A4DF LISU LETTER MA 0A4E0 LISU LETTER NA 0A4E1 LISU LETTER LA 0A4E2 LISU LETTER SA 0A4E3 LISU LETTER ZHA 0A4E4 LISU LETTER ZA 0A4E5 LISU LETTER NGA 0A4E6 LISU LETTER HA 0A4E7 LISU LETTER XA 0A4E8 LISU LETTER HHA 0A4E9 LISU LETTER FA 0A4EA LISU LETTER WA 0A4EB LISU LETTER SHA 0A4EC LISU LETTER YA 0A4ED LISU LETTER GHA 0A4EE LISU LETTER A 0A4EF LISU LETTER AE 0A4F0 LISU LETTER E 0A4F1 LISU LETTER EU 0A4F2 LISU LETTER I 0A4F3 LISU LETTER O 0A4F4 LISU LETTER U 0A4F5 LISU LETTER UE 0A4F6 LISU LETTER UH 0A4F7 LISU LETTER OE 0A4F8 LISU LETTER TONE MYA TI 0A4F9 LISU LETTER TONE NA PO 0A4FA LISU LETTER TONE MYA CYA 0A4FB LISU LETTER TONE MYA BO 0A4FC LISU LETTER TONE MYA NA 0A4FD LISU LETTER TONE MYA JEU 0A4FE LISU PUNCTUATION COMMA 0A4FF LISU PUNCTUATION FULL STOP 0A500 VAI SYLLABLE EE 0A501 VAI SYLLABLE EEN 0A502 VAI SYLLABLE HEE 0A503 VAI SYLLABLE WEE 0A504 VAI SYLLABLE WEEN 0A505 VAI SYLLABLE PEE 0A506 VAI SYLLABLE BHEE 0A507 VAI SYLLABLE BEE 0A508 VAI SYLLABLE MBEE 0A509 VAI SYLLABLE KPEE 0A50A VAI SYLLABLE MGBEE 0A50B VAI SYLLABLE GBEE 0A50C VAI SYLLABLE FEE 0A50D VAI SYLLABLE VEE 0A50E VAI SYLLABLE TEE 0A50F VAI SYLLABLE THEE 0A510 VAI SYLLABLE DHEE 0A511 VAI SYLLABLE DHHEE 0A512 VAI SYLLABLE LEE 0A513 VAI SYLLABLE REE 0A514 VAI SYLLABLE DEE 0A515 VAI SYLLABLE NDEE 0A516 VAI SYLLABLE SEE 0A517 VAI SYLLABLE SHEE 0A518 VAI SYLLABLE ZEE 0A519 VAI SYLLABLE ZHEE 0A51A VAI SYLLABLE CEE 0A51B VAI SYLLABLE JEE 0A51C VAI SYLLABLE NJEE 0A51D VAI SYLLABLE YEE 0A51E VAI SYLLABLE KEE 0A51F VAI SYLLABLE NGGEE 0A520 VAI SYLLABLE GEE 0A521 VAI SYLLABLE MEE 0A522 VAI SYLLABLE NEE 0A523 VAI SYLLABLE NYEE 0A524 VAI SYLLABLE I 0A525 VAI SYLLABLE IN 0A526 VAI SYLLABLE HI 0A527 VAI SYLLABLE HIN 0A528 VAI SYLLABLE WI 0A529 VAI SYLLABLE WIN 0A52A VAI SYLLABLE PI 0A52B VAI SYLLABLE BHI 0A52C VAI SYLLABLE BI 0A52D VAI SYLLABLE MBI 0A52E VAI SYLLABLE KPI 0A52F VAI SYLLABLE MGBI 0A530 VAI SYLLABLE GBI 0A531 VAI SYLLABLE FI 0A532 VAI SYLLABLE VI 0A533 VAI SYLLABLE TI 0A534 VAI SYLLABLE THI 0A535 VAI SYLLABLE DHI 0A536 VAI SYLLABLE DHHI 0A537 VAI SYLLABLE LI 0A538 VAI SYLLABLE RI 0A539 VAI SYLLABLE DI 0A53A VAI SYLLABLE NDI 0A53B VAI SYLLABLE SI 0A53C VAI SYLLABLE SHI 0A53D VAI SYLLABLE ZI 0A53E VAI SYLLABLE ZHI 0A53F VAI SYLLABLE CI 0A540 VAI SYLLABLE JI 0A541 VAI SYLLABLE NJI 0A542 VAI SYLLABLE YI 0A543 VAI SYLLABLE KI 0A544 VAI SYLLABLE NGGI 0A545 VAI SYLLABLE GI 0A546 VAI SYLLABLE MI 0A547 VAI SYLLABLE NI 0A548 VAI SYLLABLE NYI 0A549 VAI SYLLABLE A 0A54A VAI SYLLABLE AN 0A54B VAI SYLLABLE NGAN 0A54C VAI SYLLABLE HA 0A54D VAI SYLLABLE HAN 0A54E VAI SYLLABLE WA 0A54F VAI SYLLABLE WAN 0A550 VAI SYLLABLE PA 0A551 VAI SYLLABLE BHA 0A552 VAI SYLLABLE BA 0A553 VAI SYLLABLE MBA 0A554 VAI SYLLABLE KPA 0A555 VAI SYLLABLE KPAN 0A556 VAI SYLLABLE MGBA 0A557 VAI SYLLABLE GBA 0A558 VAI SYLLABLE FA 0A559 VAI SYLLABLE VA 0A55A VAI SYLLABLE TA 0A55B VAI SYLLABLE THA 0A55C VAI SYLLABLE DHA 0A55D VAI SYLLABLE DHHA 0A55E VAI SYLLABLE LA 0A55F VAI SYLLABLE RA 0A560 VAI SYLLABLE DA 0A561 VAI SYLLABLE NDA 0A562 VAI SYLLABLE SA 0A563 VAI SYLLABLE SHA 0A564 VAI SYLLABLE ZA 0A565 VAI SYLLABLE ZHA 0A566 VAI SYLLABLE CA 0A567 VAI SYLLABLE JA 0A568 VAI SYLLABLE NJA 0A569 VAI SYLLABLE YA 0A56A VAI SYLLABLE KA 0A56B VAI SYLLABLE KAN 0A56C VAI SYLLABLE NGGA 0A56D VAI SYLLABLE GA 0A56E VAI SYLLABLE MA 0A56F VAI SYLLABLE NA 0A570 VAI SYLLABLE NYA 0A571 VAI SYLLABLE OO 0A572 VAI SYLLABLE OON 0A573 VAI SYLLABLE HOO 0A574 VAI SYLLABLE WOO 0A575 VAI SYLLABLE WOON 0A576 VAI SYLLABLE POO 0A577 VAI SYLLABLE BHOO 0A578 VAI SYLLABLE BOO 0A579 VAI SYLLABLE MBOO 0A57A VAI SYLLABLE KPOO 0A57B VAI SYLLABLE MGBOO 0A57C VAI SYLLABLE GBOO 0A57D VAI SYLLABLE FOO 0A57E VAI SYLLABLE VOO 0A57F VAI SYLLABLE TOO 0A580 VAI SYLLABLE THOO 0A581 VAI SYLLABLE DHOO 0A582 VAI SYLLABLE DHHOO 0A583 VAI SYLLABLE LOO 0A584 VAI SYLLABLE ROO 0A585 VAI SYLLABLE DOO 0A586 VAI SYLLABLE NDOO 0A587 VAI SYLLABLE SOO 0A588 VAI SYLLABLE SHOO 0A589 VAI SYLLABLE ZOO 0A58A VAI SYLLABLE ZHOO 0A58B VAI SYLLABLE COO 0A58C VAI SYLLABLE JOO 0A58D VAI SYLLABLE NJOO 0A58E VAI SYLLABLE YOO 0A58F VAI SYLLABLE KOO 0A590 VAI SYLLABLE NGGOO 0A591 VAI SYLLABLE GOO 0A592 VAI SYLLABLE MOO 0A593 VAI SYLLABLE NOO 0A594 VAI SYLLABLE NYOO 0A595 VAI SYLLABLE U 0A596 VAI SYLLABLE UN 0A597 VAI SYLLABLE HU 0A598 VAI SYLLABLE HUN 0A599 VAI SYLLABLE WU 0A59A VAI SYLLABLE WUN 0A59B VAI SYLLABLE PU 0A59C VAI SYLLABLE BHU 0A59D VAI SYLLABLE BU 0A59E VAI SYLLABLE MBU 0A59F VAI SYLLABLE KPU 0A5A0 VAI SYLLABLE MGBU 0A5A1 VAI SYLLABLE GBU 0A5A2 VAI SYLLABLE FU 0A5A3 VAI SYLLABLE VU 0A5A4 VAI SYLLABLE TU 0A5A5 VAI SYLLABLE THU 0A5A6 VAI SYLLABLE DHU 0A5A7 VAI SYLLABLE DHHU 0A5A8 VAI SYLLABLE LU 0A5A9 VAI SYLLABLE RU 0A5AA VAI SYLLABLE DU 0A5AB VAI SYLLABLE NDU 0A5AC VAI SYLLABLE SU 0A5AD VAI SYLLABLE SHU 0A5AE VAI SYLLABLE ZU 0A5AF VAI SYLLABLE ZHU 0A5B0 VAI SYLLABLE CU 0A5B1 VAI SYLLABLE JU 0A5B2 VAI SYLLABLE NJU 0A5B3 VAI SYLLABLE YU 0A5B4 VAI SYLLABLE KU 0A5B5 VAI SYLLABLE NGGU 0A5B6 VAI SYLLABLE GU 0A5B7 VAI SYLLABLE MU 0A5B8 VAI SYLLABLE NU 0A5B9 VAI SYLLABLE NYU 0A5BA VAI SYLLABLE O 0A5BB VAI SYLLABLE ON 0A5BC VAI SYLLABLE NGON 0A5BD VAI SYLLABLE HO 0A5BE VAI SYLLABLE HON 0A5BF VAI SYLLABLE WO 0A5C0 VAI SYLLABLE WON 0A5C1 VAI SYLLABLE PO 0A5C2 VAI SYLLABLE BHO 0A5C3 VAI SYLLABLE BO 0A5C4 VAI SYLLABLE MBO 0A5C5 VAI SYLLABLE KPO 0A5C6 VAI SYLLABLE MGBO 0A5C7 VAI SYLLABLE GBO 0A5C8 VAI SYLLABLE GBON 0A5C9 VAI SYLLABLE FO 0A5CA VAI SYLLABLE VO 0A5CB VAI SYLLABLE TO 0A5CC VAI SYLLABLE THO 0A5CD VAI SYLLABLE DHO 0A5CE VAI SYLLABLE DHHO 0A5CF VAI SYLLABLE LO 0A5D0 VAI SYLLABLE RO 0A5D1 VAI SYLLABLE DO 0A5D2 VAI SYLLABLE NDO 0A5D3 VAI SYLLABLE SO 0A5D4 VAI SYLLABLE SHO 0A5D5 VAI SYLLABLE ZO 0A5D6 VAI SYLLABLE ZHO 0A5D7 VAI SYLLABLE CO 0A5D8 VAI SYLLABLE JO 0A5D9 VAI SYLLABLE NJO 0A5DA VAI SYLLABLE YO 0A5DB VAI SYLLABLE KO 0A5DC VAI SYLLABLE NGGO 0A5DD VAI SYLLABLE GO 0A5DE VAI SYLLABLE MO 0A5DF VAI SYLLABLE NO 0A5E0 VAI SYLLABLE NYO 0A5E1 VAI SYLLABLE E 0A5E2 VAI SYLLABLE EN 0A5E3 VAI SYLLABLE NGEN 0A5E4 VAI SYLLABLE HE 0A5E5 VAI SYLLABLE HEN 0A5E6 VAI SYLLABLE WE 0A5E7 VAI SYLLABLE WEN 0A5E8 VAI SYLLABLE PE 0A5E9 VAI SYLLABLE BHE 0A5EA VAI SYLLABLE BE 0A5EB VAI SYLLABLE MBE 0A5EC VAI SYLLABLE KPE 0A5ED VAI SYLLABLE KPEN 0A5EE VAI SYLLABLE MGBE 0A5EF VAI SYLLABLE GBE 0A5F0 VAI SYLLABLE GBEN 0A5F1 VAI SYLLABLE FE 0A5F2 VAI SYLLABLE VE 0A5F3 VAI SYLLABLE TE 0A5F4 VAI SYLLABLE THE 0A5F5 VAI SYLLABLE DHE 0A5F6 VAI SYLLABLE DHHE 0A5F7 VAI SYLLABLE LE 0A5F8 VAI SYLLABLE RE 0A5F9 VAI SYLLABLE DE 0A5FA VAI SYLLABLE NDE 0A5FB VAI SYLLABLE SE 0A5FC VAI SYLLABLE SHE 0A5FD VAI SYLLABLE ZE 0A5FE VAI SYLLABLE ZHE 0A5FF VAI SYLLABLE CE 0A600 VAI SYLLABLE JE 0A601 VAI SYLLABLE NJE 0A602 VAI SYLLABLE YE 0A603 VAI SYLLABLE KE 0A604 VAI SYLLABLE NGGE 0A605 VAI SYLLABLE NGGEN 0A606 VAI SYLLABLE GE 0A607 VAI SYLLABLE GEN 0A608 VAI SYLLABLE ME 0A609 VAI SYLLABLE NE 0A60A VAI SYLLABLE NYE 0A60B VAI SYLLABLE NG 0A60C VAI SYLLABLE LENGTHENER 0A60D VAI COMMA 0A60E VAI FULL STOP 0A60F VAI QUESTION MARK 0A610 VAI SYLLABLE NDOLE FA 0A611 VAI SYLLABLE NDOLE KA 0A612 VAI SYLLABLE NDOLE SOO 0A613 VAI SYMBOL FEENG 0A614 VAI SYMBOL KEENG 0A615 VAI SYMBOL TING 0A616 VAI SYMBOL NII 0A617 VAI SYMBOL BANG 0A618 VAI SYMBOL FAA 0A619 VAI SYMBOL TAA 0A61A VAI SYMBOL DANG 0A61B VAI SYMBOL DOONG 0A61C VAI SYMBOL KUNG 0A61D VAI SYMBOL TONG 0A61E VAI SYMBOL DO-O 0A61F VAI SYMBOL JONG 0A620 VAI DIGIT ZERO 0A621 VAI DIGIT ONE 0A622 VAI DIGIT TWO 0A623 VAI DIGIT THREE 0A624 VAI DIGIT FOUR 0A625 VAI DIGIT FIVE 0A626 VAI DIGIT SIX 0A627 VAI DIGIT SEVEN 0A628 VAI DIGIT EIGHT 0A629 VAI DIGIT NINE 0A62A VAI SYLLABLE NDOLE MA 0A62B VAI SYLLABLE NDOLE DO 0A640 CYRILLIC CAPITAL LETTER ZEMLYA 0A641 CYRILLIC SMALL LETTER ZEMLYA 0A642 CYRILLIC CAPITAL LETTER DZELO 0A643 CYRILLIC SMALL LETTER DZELO 0A644 CYRILLIC CAPITAL LETTER REVERSED DZE 0A645 CYRILLIC SMALL LETTER REVERSED DZE 0A646 CYRILLIC CAPITAL LETTER IOTA 0A647 CYRILLIC SMALL LETTER IOTA 0A648 CYRILLIC CAPITAL LETTER DJERV 0A649 CYRILLIC SMALL LETTER DJERV 0A64A CYRILLIC CAPITAL LETTER MONOGRAPH UK 0A64B CYRILLIC SMALL LETTER MONOGRAPH UK 0A64C CYRILLIC CAPITAL LETTER BROAD OMEGA 0A64D CYRILLIC SMALL LETTER BROAD OMEGA 0A64E CYRILLIC CAPITAL LETTER NEUTRAL YER 0A64F CYRILLIC SMALL LETTER NEUTRAL YER 0A650 CYRILLIC CAPITAL LETTER YERU WITH BACK YER 0A651 CYRILLIC SMALL LETTER YERU WITH BACK YER 0A652 CYRILLIC CAPITAL LETTER IOTIFIED YAT 0A653 CYRILLIC SMALL LETTER IOTIFIED YAT 0A654 CYRILLIC CAPITAL LETTER REVERSED YU 0A655 CYRILLIC SMALL LETTER REVERSED YU 0A656 CYRILLIC CAPITAL LETTER IOTIFIED A 0A657 CYRILLIC SMALL LETTER IOTIFIED A 0A658 CYRILLIC CAPITAL LETTER CLOSED LITTLE YUS 0A659 CYRILLIC SMALL LETTER CLOSED LITTLE YUS 0A65A CYRILLIC CAPITAL LETTER BLENDED YUS 0A65B CYRILLIC SMALL LETTER BLENDED YUS 0A65C CYRILLIC CAPITAL LETTER IOTIFIED CLOSED LITTLE YUS 0A65D CYRILLIC SMALL LETTER IOTIFIED CLOSED LITTLE YUS 0A65E CYRILLIC CAPITAL LETTER YN 0A65F CYRILLIC SMALL LETTER YN 0A660 CYRILLIC CAPITAL LETTER REVERSED TSE 0A661 CYRILLIC SMALL LETTER REVERSED TSE 0A662 CYRILLIC CAPITAL LETTER SOFT DE 0A663 CYRILLIC SMALL LETTER SOFT DE 0A664 CYRILLIC CAPITAL LETTER SOFT EL 0A665 CYRILLIC SMALL LETTER SOFT EL 0A666 CYRILLIC CAPITAL LETTER SOFT EM 0A667 CYRILLIC SMALL LETTER SOFT EM 0A668 CYRILLIC CAPITAL LETTER MONOCULAR O 0A669 CYRILLIC SMALL LETTER MONOCULAR O 0A66A CYRILLIC CAPITAL LETTER BINOCULAR O 0A66B CYRILLIC SMALL LETTER BINOCULAR O 0A66C CYRILLIC CAPITAL LETTER DOUBLE MONOCULAR O 0A66D CYRILLIC SMALL LETTER DOUBLE MONOCULAR O 0A66E CYRILLIC LETTER MULTIOCULAR O 0A66F COMBINING CYRILLIC VZMET 0A670 COMBINING CYRILLIC TEN MILLIONS SIGN 0A671 COMBINING CYRILLIC HUNDRED MILLIONS SIGN 0A672 COMBINING CYRILLIC THOUSAND MILLIONS SIGN 0A673 SLAVONIC ASTERISK 0A674 COMBINING CYRILLIC LETTER UKRAINIAN IE 0A675 COMBINING CYRILLIC LETTER I 0A676 COMBINING CYRILLIC LETTER YI 0A677 COMBINING CYRILLIC LETTER U 0A678 COMBINING CYRILLIC LETTER HARD SIGN 0A679 COMBINING CYRILLIC LETTER YERU 0A67A COMBINING CYRILLIC LETTER SOFT SIGN 0A67B COMBINING CYRILLIC LETTER OMEGA 0A67C COMBINING CYRILLIC KAVYKA 0A67D COMBINING CYRILLIC PAYEROK 0A67E CYRILLIC KAVYKA 0A67F CYRILLIC PAYEROK 0A680 CYRILLIC CAPITAL LETTER DWE 0A681 CYRILLIC SMALL LETTER DWE 0A682 CYRILLIC CAPITAL LETTER DZWE 0A683 CYRILLIC SMALL LETTER DZWE 0A684 CYRILLIC CAPITAL LETTER ZHWE 0A685 CYRILLIC SMALL LETTER ZHWE 0A686 CYRILLIC CAPITAL LETTER CCHE 0A687 CYRILLIC SMALL LETTER CCHE 0A688 CYRILLIC CAPITAL LETTER DZZE 0A689 CYRILLIC SMALL LETTER DZZE 0A68A CYRILLIC CAPITAL LETTER TE WITH MIDDLE HOOK 0A68B CYRILLIC SMALL LETTER TE WITH MIDDLE HOOK 0A68C CYRILLIC CAPITAL LETTER TWE 0A68D CYRILLIC SMALL LETTER TWE 0A68E CYRILLIC CAPITAL LETTER TSWE 0A68F CYRILLIC SMALL LETTER TSWE 0A690 CYRILLIC CAPITAL LETTER TSSE 0A691 CYRILLIC SMALL LETTER TSSE 0A692 CYRILLIC CAPITAL LETTER TCHE 0A693 CYRILLIC SMALL LETTER TCHE 0A694 CYRILLIC CAPITAL LETTER HWE 0A695 CYRILLIC SMALL LETTER HWE 0A696 CYRILLIC CAPITAL LETTER SHWE 0A697 CYRILLIC SMALL LETTER SHWE 0A698 CYRILLIC CAPITAL LETTER DOUBLE O 0A699 CYRILLIC SMALL LETTER DOUBLE O 0A69A CYRILLIC CAPITAL LETTER CROSSED O 0A69B CYRILLIC SMALL LETTER CROSSED O 0A69C MODIFIER LETTER CYRILLIC HARD SIGN 0A69D MODIFIER LETTER CYRILLIC SOFT SIGN 0A69E COMBINING CYRILLIC LETTER EF 0A69F COMBINING CYRILLIC LETTER IOTIFIED E 0A6A0 BAMUM LETTER A 0A6A1 BAMUM LETTER KA 0A6A2 BAMUM LETTER U 0A6A3 BAMUM LETTER KU 0A6A4 BAMUM LETTER EE 0A6A5 BAMUM LETTER REE 0A6A6 BAMUM LETTER TAE 0A6A7 BAMUM LETTER O 0A6A8 BAMUM LETTER NYI 0A6A9 BAMUM LETTER I 0A6AA BAMUM LETTER LA 0A6AB BAMUM LETTER PA 0A6AC BAMUM LETTER RII 0A6AD BAMUM LETTER RIEE 0A6AE BAMUM LETTER LEEEE 0A6AF BAMUM LETTER MEEEE 0A6B0 BAMUM LETTER TAA 0A6B1 BAMUM LETTER NDAA 0A6B2 BAMUM LETTER NJAEM 0A6B3 BAMUM LETTER M 0A6B4 BAMUM LETTER SUU 0A6B5 BAMUM LETTER MU 0A6B6 BAMUM LETTER SHII 0A6B7 BAMUM LETTER SI 0A6B8 BAMUM LETTER SHEUX 0A6B9 BAMUM LETTER SEUX 0A6BA BAMUM LETTER KYEE 0A6BB BAMUM LETTER KET 0A6BC BAMUM LETTER NUAE 0A6BD BAMUM LETTER NU 0A6BE BAMUM LETTER NJUAE 0A6BF BAMUM LETTER YOQ 0A6C0 BAMUM LETTER SHU 0A6C1 BAMUM LETTER YUQ 0A6C2 BAMUM LETTER YA 0A6C3 BAMUM LETTER NSHA 0A6C4 BAMUM LETTER KEUX 0A6C5 BAMUM LETTER PEUX 0A6C6 BAMUM LETTER NJEE 0A6C7 BAMUM LETTER NTEE 0A6C8 BAMUM LETTER PUE 0A6C9 BAMUM LETTER WUE 0A6CA BAMUM LETTER PEE 0A6CB BAMUM LETTER FEE 0A6CC BAMUM LETTER RU 0A6CD BAMUM LETTER LU 0A6CE BAMUM LETTER MI 0A6CF BAMUM LETTER NI 0A6D0 BAMUM LETTER REUX 0A6D1 BAMUM LETTER RAE 0A6D2 BAMUM LETTER KEN 0A6D3 BAMUM LETTER NGKWAEN 0A6D4 BAMUM LETTER NGGA 0A6D5 BAMUM LETTER NGA 0A6D6 BAMUM LETTER SHO 0A6D7 BAMUM LETTER PUAE 0A6D8 BAMUM LETTER FU 0A6D9 BAMUM LETTER FOM 0A6DA BAMUM LETTER WA 0A6DB BAMUM LETTER NA 0A6DC BAMUM LETTER LI 0A6DD BAMUM LETTER PI 0A6DE BAMUM LETTER LOQ 0A6DF BAMUM LETTER KO 0A6E0 BAMUM LETTER MBEN 0A6E1 BAMUM LETTER REN 0A6E2 BAMUM LETTER MEN 0A6E3 BAMUM LETTER MA 0A6E4 BAMUM LETTER TI 0A6E5 BAMUM LETTER KI 0A6E6 BAMUM LETTER MO 0A6E7 BAMUM LETTER MBAA 0A6E8 BAMUM LETTER TET 0A6E9 BAMUM LETTER KPA 0A6EA BAMUM LETTER TEN 0A6EB BAMUM LETTER NTUU 0A6EC BAMUM LETTER SAMBA 0A6ED BAMUM LETTER FAAMAE 0A6EE BAMUM LETTER KOVUU 0A6EF BAMUM LETTER KOGHOM 0A6F0 BAMUM COMBINING MARK KOQNDON 0A6F1 BAMUM COMBINING MARK TUKWENTIS 0A6F2 BAMUM NJAEMLI 0A6F3 BAMUM FULL STOP 0A6F4 BAMUM COLON 0A6F5 BAMUM COMMA 0A6F6 BAMUM SEMICOLON 0A6F7 BAMUM QUESTION MARK 0A700 MODIFIER LETTER CHINESE TONE YIN PING 0A701 MODIFIER LETTER CHINESE TONE YANG PING 0A702 MODIFIER LETTER CHINESE TONE YIN SHANG 0A703 MODIFIER LETTER CHINESE TONE YANG SHANG 0A704 MODIFIER LETTER CHINESE TONE YIN QU 0A705 MODIFIER LETTER CHINESE TONE YANG QU 0A706 MODIFIER LETTER CHINESE TONE YIN RU 0A707 MODIFIER LETTER CHINESE TONE YANG RU 0A708 MODIFIER LETTER EXTRA-HIGH DOTTED TONE BAR 0A709 MODIFIER LETTER HIGH DOTTED TONE BAR 0A70A MODIFIER LETTER MID DOTTED TONE BAR 0A70B MODIFIER LETTER LOW DOTTED TONE BAR 0A70C MODIFIER LETTER EXTRA-LOW DOTTED TONE BAR 0A70D MODIFIER LETTER EXTRA-HIGH DOTTED LEFT-STEM TONE BAR 0A70E MODIFIER LETTER HIGH DOTTED LEFT-STEM TONE BAR 0A70F MODIFIER LETTER MID DOTTED LEFT-STEM TONE BAR 0A710 MODIFIER LETTER LOW DOTTED LEFT-STEM TONE BAR 0A711 MODIFIER LETTER EXTRA-LOW DOTTED LEFT-STEM TONE BAR 0A712 MODIFIER LETTER EXTRA-HIGH LEFT-STEM TONE BAR 0A713 MODIFIER LETTER HIGH LEFT-STEM TONE BAR 0A714 MODIFIER LETTER MID LEFT-STEM TONE BAR 0A715 MODIFIER LETTER LOW LEFT-STEM TONE BAR 0A716 MODIFIER LETTER EXTRA-LOW LEFT-STEM TONE BAR 0A717 MODIFIER LETTER DOT VERTICAL BAR 0A718 MODIFIER LETTER DOT SLASH 0A719 MODIFIER LETTER DOT HORIZONTAL BAR 0A71A MODIFIER LETTER LOWER RIGHT CORNER ANGLE 0A71B MODIFIER LETTER RAISED UP ARROW 0A71C MODIFIER LETTER RAISED DOWN ARROW 0A71D MODIFIER LETTER RAISED EXCLAMATION MARK 0A71E MODIFIER LETTER RAISED INVERTED EXCLAMATION MARK 0A71F MODIFIER LETTER LOW INVERTED EXCLAMATION MARK 0A720 MODIFIER LETTER STRESS AND HIGH TONE 0A721 MODIFIER LETTER STRESS AND LOW TONE 0A722 LATIN CAPITAL LETTER EGYPTOLOGICAL ALEF 0A723 LATIN SMALL LETTER EGYPTOLOGICAL ALEF 0A724 LATIN CAPITAL LETTER EGYPTOLOGICAL AIN 0A725 LATIN SMALL LETTER EGYPTOLOGICAL AIN 0A726 LATIN CAPITAL LETTER HENG 0A727 LATIN SMALL LETTER HENG 0A728 LATIN CAPITAL LETTER TZ 0A729 LATIN SMALL LETTER TZ 0A72A LATIN CAPITAL LETTER TRESILLO 0A72B LATIN SMALL LETTER TRESILLO 0A72C LATIN CAPITAL LETTER CUATRILLO 0A72D LATIN SMALL LETTER CUATRILLO 0A72E LATIN CAPITAL LETTER CUATRILLO WITH COMMA 0A72F LATIN SMALL LETTER CUATRILLO WITH COMMA 0A730 LATIN LETTER SMALL CAPITAL F 0A731 LATIN LETTER SMALL CAPITAL S 0A732 LATIN CAPITAL LETTER AA 0A733 LATIN SMALL LETTER AA 0A734 LATIN CAPITAL LETTER AO 0A735 LATIN SMALL LETTER AO 0A736 LATIN CAPITAL LETTER AU 0A737 LATIN SMALL LETTER AU 0A738 LATIN CAPITAL LETTER AV 0A739 LATIN SMALL LETTER AV 0A73A LATIN CAPITAL LETTER AV WITH HORIZONTAL BAR 0A73B LATIN SMALL LETTER AV WITH HORIZONTAL BAR 0A73C LATIN CAPITAL LETTER AY 0A73D LATIN SMALL LETTER AY 0A73E LATIN CAPITAL LETTER REVERSED C WITH DOT 0A73F LATIN SMALL LETTER REVERSED C WITH DOT 0A740 LATIN CAPITAL LETTER K WITH STROKE 0A741 LATIN SMALL LETTER K WITH STROKE 0A742 LATIN CAPITAL LETTER K WITH DIAGONAL STROKE 0A743 LATIN SMALL LETTER K WITH DIAGONAL STROKE 0A744 LATIN CAPITAL LETTER K WITH STROKE AND DIAGONAL STROKE 0A745 LATIN SMALL LETTER K WITH STROKE AND DIAGONAL STROKE 0A746 LATIN CAPITAL LETTER BROKEN L 0A747 LATIN SMALL LETTER BROKEN L 0A748 LATIN CAPITAL LETTER L WITH HIGH STROKE 0A749 LATIN SMALL LETTER L WITH HIGH STROKE 0A74A LATIN CAPITAL LETTER O WITH LONG STROKE OVERLAY 0A74B LATIN SMALL LETTER O WITH LONG STROKE OVERLAY 0A74C LATIN CAPITAL LETTER O WITH LOOP 0A74D LATIN SMALL LETTER O WITH LOOP 0A74E LATIN CAPITAL LETTER OO 0A74F LATIN SMALL LETTER OO 0A750 LATIN CAPITAL LETTER P WITH STROKE THROUGH DESCENDER 0A751 LATIN SMALL LETTER P WITH STROKE THROUGH DESCENDER 0A752 LATIN CAPITAL LETTER P WITH FLOURISH 0A753 LATIN SMALL LETTER P WITH FLOURISH 0A754 LATIN CAPITAL LETTER P WITH SQUIRREL TAIL 0A755 LATIN SMALL LETTER P WITH SQUIRREL TAIL 0A756 LATIN CAPITAL LETTER Q WITH STROKE THROUGH DESCENDER 0A757 LATIN SMALL LETTER Q WITH STROKE THROUGH DESCENDER 0A758 LATIN CAPITAL LETTER Q WITH DIAGONAL STROKE 0A759 LATIN SMALL LETTER Q WITH DIAGONAL STROKE 0A75A LATIN CAPITAL LETTER R ROTUNDA 0A75B LATIN SMALL LETTER R ROTUNDA 0A75C LATIN CAPITAL LETTER RUM ROTUNDA 0A75D LATIN SMALL LETTER RUM ROTUNDA 0A75E LATIN CAPITAL LETTER V WITH DIAGONAL STROKE 0A75F LATIN SMALL LETTER V WITH DIAGONAL STROKE 0A760 LATIN CAPITAL LETTER VY 0A761 LATIN SMALL LETTER VY 0A762 LATIN CAPITAL LETTER VISIGOTHIC Z 0A763 LATIN SMALL LETTER VISIGOTHIC Z 0A764 LATIN CAPITAL LETTER THORN WITH STROKE 0A765 LATIN SMALL LETTER THORN WITH STROKE 0A766 LATIN CAPITAL LETTER THORN WITH STROKE THROUGH DESCENDER 0A767 LATIN SMALL LETTER THORN WITH STROKE THROUGH DESCENDER 0A768 LATIN CAPITAL LETTER VEND 0A769 LATIN SMALL LETTER VEND 0A76A LATIN CAPITAL LETTER ET 0A76B LATIN SMALL LETTER ET 0A76C LATIN CAPITAL LETTER IS 0A76D LATIN SMALL LETTER IS 0A76E LATIN CAPITAL LETTER CON 0A76F LATIN SMALL LETTER CON 0A770 MODIFIER LETTER US 0A771 LATIN SMALL LETTER DUM 0A772 LATIN SMALL LETTER LUM 0A773 LATIN SMALL LETTER MUM 0A774 LATIN SMALL LETTER NUM 0A775 LATIN SMALL LETTER RUM 0A776 LATIN LETTER SMALL CAPITAL RUM 0A777 LATIN SMALL LETTER TUM 0A778 LATIN SMALL LETTER UM 0A779 LATIN CAPITAL LETTER INSULAR D 0A77A LATIN SMALL LETTER INSULAR D 0A77B LATIN CAPITAL LETTER INSULAR F 0A77C LATIN SMALL LETTER INSULAR F 0A77D LATIN CAPITAL LETTER INSULAR G 0A77E LATIN CAPITAL LETTER TURNED INSULAR G 0A77F LATIN SMALL LETTER TURNED INSULAR G 0A780 LATIN CAPITAL LETTER TURNED L 0A781 LATIN SMALL LETTER TURNED L 0A782 LATIN CAPITAL LETTER INSULAR R 0A783 LATIN SMALL LETTER INSULAR R 0A784 LATIN CAPITAL LETTER INSULAR S 0A785 LATIN SMALL LETTER INSULAR S 0A786 LATIN CAPITAL LETTER INSULAR T 0A787 LATIN SMALL LETTER INSULAR T 0A788 MODIFIER LETTER LOW CIRCUMFLEX ACCENT 0A789 MODIFIER LETTER COLON 0A78A MODIFIER LETTER SHORT EQUALS SIGN 0A78B LATIN CAPITAL LETTER SALTILLO 0A78C LATIN SMALL LETTER SALTILLO 0A78D LATIN CAPITAL LETTER TURNED H 0A78E LATIN SMALL LETTER L WITH RETROFLEX HOOK AND BELT 0A78F LATIN LETTER SINOLOGICAL DOT 0A790 LATIN CAPITAL LETTER N WITH DESCENDER 0A791 LATIN SMALL LETTER N WITH DESCENDER 0A792 LATIN CAPITAL LETTER C WITH BAR 0A793 LATIN SMALL LETTER C WITH BAR 0A794 LATIN SMALL LETTER C WITH PALATAL HOOK 0A795 LATIN SMALL LETTER H WITH PALATAL HOOK 0A796 LATIN CAPITAL LETTER B WITH FLOURISH 0A797 LATIN SMALL LETTER B WITH FLOURISH 0A798 LATIN CAPITAL LETTER F WITH STROKE 0A799 LATIN SMALL LETTER F WITH STROKE 0A79A LATIN CAPITAL LETTER VOLAPUK AE 0A79B LATIN SMALL LETTER VOLAPUK AE 0A79C LATIN CAPITAL LETTER VOLAPUK OE 0A79D LATIN SMALL LETTER VOLAPUK OE 0A79E LATIN CAPITAL LETTER VOLAPUK UE 0A79F LATIN SMALL LETTER VOLAPUK UE 0A7A0 LATIN CAPITAL LETTER G WITH OBLIQUE STROKE 0A7A1 LATIN SMALL LETTER G WITH OBLIQUE STROKE 0A7A2 LATIN CAPITAL LETTER K WITH OBLIQUE STROKE 0A7A3 LATIN SMALL LETTER K WITH OBLIQUE STROKE 0A7A4 LATIN CAPITAL LETTER N WITH OBLIQUE STROKE 0A7A5 LATIN SMALL LETTER N WITH OBLIQUE STROKE 0A7A6 LATIN CAPITAL LETTER R WITH OBLIQUE STROKE 0A7A7 LATIN SMALL LETTER R WITH OBLIQUE STROKE 0A7A8 LATIN CAPITAL LETTER S WITH OBLIQUE STROKE 0A7A9 LATIN SMALL LETTER S WITH OBLIQUE STROKE 0A7AA LATIN CAPITAL LETTER H WITH HOOK 0A7AB LATIN CAPITAL LETTER REVERSED OPEN E 0A7AC LATIN CAPITAL LETTER SCRIPT G 0A7AD LATIN CAPITAL LETTER L WITH BELT 0A7AE LATIN CAPITAL LETTER SMALL CAPITAL I 0A7AF LATIN LETTER SMALL CAPITAL Q 0A7B0 LATIN CAPITAL LETTER TURNED K 0A7B1 LATIN CAPITAL LETTER TURNED T 0A7B2 LATIN CAPITAL LETTER J WITH CROSSED-TAIL 0A7B3 LATIN CAPITAL LETTER CHI 0A7B4 LATIN CAPITAL LETTER BETA 0A7B5 LATIN SMALL LETTER BETA 0A7B6 LATIN CAPITAL LETTER OMEGA 0A7B7 LATIN SMALL LETTER OMEGA 0A7B8 LATIN CAPITAL LETTER U WITH STROKE 0A7B9 LATIN SMALL LETTER U WITH STROKE 0A7BA LATIN CAPITAL LETTER GLOTTAL A 0A7BB LATIN SMALL LETTER GLOTTAL A 0A7BC LATIN CAPITAL LETTER GLOTTAL I 0A7BD LATIN SMALL LETTER GLOTTAL I 0A7BE LATIN CAPITAL LETTER GLOTTAL U 0A7BF LATIN SMALL LETTER GLOTTAL U 0A7C2 LATIN CAPITAL LETTER ANGLICANA W 0A7C3 LATIN SMALL LETTER ANGLICANA W 0A7C4 LATIN CAPITAL LETTER C WITH PALATAL HOOK 0A7C5 LATIN CAPITAL LETTER S WITH HOOK 0A7C6 LATIN CAPITAL LETTER Z WITH PALATAL HOOK 0A7C7 LATIN CAPITAL LETTER D WITH SHORT STROKE OVERLAY 0A7C8 LATIN SMALL LETTER D WITH SHORT STROKE OVERLAY 0A7C9 LATIN CAPITAL LETTER S WITH SHORT STROKE OVERLAY 0A7CA LATIN SMALL LETTER S WITH SHORT STROKE OVERLAY 0A7F5 LATIN CAPITAL LETTER REVERSED HALF H 0A7F6 LATIN SMALL LETTER REVERSED HALF H 0A7F7 LATIN EPIGRAPHIC LETTER SIDEWAYS I 0A7F8 MODIFIER LETTER CAPITAL H WITH STROKE 0A7F9 MODIFIER LETTER SMALL LIGATURE OE 0A7FA LATIN LETTER SMALL CAPITAL TURNED M 0A7FB LATIN EPIGRAPHIC LETTER REVERSED F 0A7FC LATIN EPIGRAPHIC LETTER REVERSED P 0A7FD LATIN EPIGRAPHIC LETTER INVERTED M 0A7FE LATIN EPIGRAPHIC LETTER I LONGA 0A7FF LATIN EPIGRAPHIC LETTER ARCHAIC M 0A800 SYLOTI NAGRI LETTER A 0A801 SYLOTI NAGRI LETTER I 0A802 SYLOTI NAGRI SIGN DVISVARA 0A803 SYLOTI NAGRI LETTER U 0A804 SYLOTI NAGRI LETTER E 0A805 SYLOTI NAGRI LETTER O 0A806 SYLOTI NAGRI SIGN HASANTA 0A807 SYLOTI NAGRI LETTER KO 0A808 SYLOTI NAGRI LETTER KHO 0A809 SYLOTI NAGRI LETTER GO 0A80A SYLOTI NAGRI LETTER GHO 0A80B SYLOTI NAGRI SIGN ANUSVARA 0A80C SYLOTI NAGRI LETTER CO 0A80D SYLOTI NAGRI LETTER CHO 0A80E SYLOTI NAGRI LETTER JO 0A80F SYLOTI NAGRI LETTER JHO 0A810 SYLOTI NAGRI LETTER TTO 0A811 SYLOTI NAGRI LETTER TTHO 0A812 SYLOTI NAGRI LETTER DDO 0A813 SYLOTI NAGRI LETTER DDHO 0A814 SYLOTI NAGRI LETTER TO 0A815 SYLOTI NAGRI LETTER THO 0A816 SYLOTI NAGRI LETTER DO 0A817 SYLOTI NAGRI LETTER DHO 0A818 SYLOTI NAGRI LETTER NO 0A819 SYLOTI NAGRI LETTER PO 0A81A SYLOTI NAGRI LETTER PHO 0A81B SYLOTI NAGRI LETTER BO 0A81C SYLOTI NAGRI LETTER BHO 0A81D SYLOTI NAGRI LETTER MO 0A81E SYLOTI NAGRI LETTER RO 0A81F SYLOTI NAGRI LETTER LO 0A820 SYLOTI NAGRI LETTER RRO 0A821 SYLOTI NAGRI LETTER SO 0A822 SYLOTI NAGRI LETTER HO 0A823 SYLOTI NAGRI VOWEL SIGN A 0A824 SYLOTI NAGRI VOWEL SIGN I 0A825 SYLOTI NAGRI VOWEL SIGN U 0A826 SYLOTI NAGRI VOWEL SIGN E 0A827 SYLOTI NAGRI VOWEL SIGN OO 0A828 SYLOTI NAGRI POETRY MARK-1 0A829 SYLOTI NAGRI POETRY MARK-2 0A82A SYLOTI NAGRI POETRY MARK-3 0A82B SYLOTI NAGRI POETRY MARK-4 0A82C SYLOTI NAGRI SIGN ALTERNATE HASANTA 0A830 NORTH INDIC FRACTION ONE QUARTER 0A831 NORTH INDIC FRACTION ONE HALF 0A832 NORTH INDIC FRACTION THREE QUARTERS 0A833 NORTH INDIC FRACTION ONE SIXTEENTH 0A834 NORTH INDIC FRACTION ONE EIGHTH 0A835 NORTH INDIC FRACTION THREE SIXTEENTHS 0A836 NORTH INDIC QUARTER MARK 0A837 NORTH INDIC PLACEHOLDER MARK 0A838 NORTH INDIC RUPEE MARK 0A839 NORTH INDIC QUANTITY MARK 0A840 PHAGS-PA LETTER KA 0A841 PHAGS-PA LETTER KHA 0A842 PHAGS-PA LETTER GA 0A843 PHAGS-PA LETTER NGA 0A844 PHAGS-PA LETTER CA 0A845 PHAGS-PA LETTER CHA 0A846 PHAGS-PA LETTER JA 0A847 PHAGS-PA LETTER NYA 0A848 PHAGS-PA LETTER TA 0A849 PHAGS-PA LETTER THA 0A84A PHAGS-PA LETTER DA 0A84B PHAGS-PA LETTER NA 0A84C PHAGS-PA LETTER PA 0A84D PHAGS-PA LETTER PHA 0A84E PHAGS-PA LETTER BA 0A84F PHAGS-PA LETTER MA 0A850 PHAGS-PA LETTER TSA 0A851 PHAGS-PA LETTER TSHA 0A852 PHAGS-PA LETTER DZA 0A853 PHAGS-PA LETTER WA 0A854 PHAGS-PA LETTER ZHA 0A855 PHAGS-PA LETTER ZA 0A856 PHAGS-PA LETTER SMALL A 0A857 PHAGS-PA LETTER YA 0A858 PHAGS-PA LETTER RA 0A859 PHAGS-PA LETTER LA 0A85A PHAGS-PA LETTER SHA 0A85B PHAGS-PA LETTER SA 0A85C PHAGS-PA LETTER HA 0A85D PHAGS-PA LETTER A 0A85E PHAGS-PA LETTER I 0A85F PHAGS-PA LETTER U 0A860 PHAGS-PA LETTER E 0A861 PHAGS-PA LETTER O 0A862 PHAGS-PA LETTER QA 0A863 PHAGS-PA LETTER XA 0A864 PHAGS-PA LETTER FA 0A865 PHAGS-PA LETTER GGA 0A866 PHAGS-PA LETTER EE 0A867 PHAGS-PA SUBJOINED LETTER WA 0A868 PHAGS-PA SUBJOINED LETTER YA 0A869 PHAGS-PA LETTER TTA 0A86A PHAGS-PA LETTER TTHA 0A86B PHAGS-PA LETTER DDA 0A86C PHAGS-PA LETTER NNA 0A86D PHAGS-PA LETTER ALTERNATE YA 0A86E PHAGS-PA LETTER VOICELESS SHA 0A86F PHAGS-PA LETTER VOICED HA 0A870 PHAGS-PA LETTER ASPIRATED FA 0A871 PHAGS-PA SUBJOINED LETTER RA 0A872 PHAGS-PA SUPERFIXED LETTER RA 0A873 PHAGS-PA LETTER CANDRABINDU 0A874 PHAGS-PA SINGLE HEAD MARK 0A875 PHAGS-PA DOUBLE HEAD MARK 0A876 PHAGS-PA MARK SHAD 0A877 PHAGS-PA MARK DOUBLE SHAD 0A880 SAURASHTRA SIGN ANUSVARA 0A881 SAURASHTRA SIGN VISARGA 0A882 SAURASHTRA LETTER A 0A883 SAURASHTRA LETTER AA 0A884 SAURASHTRA LETTER I 0A885 SAURASHTRA LETTER II 0A886 SAURASHTRA LETTER U 0A887 SAURASHTRA LETTER UU 0A888 SAURASHTRA LETTER VOCALIC R 0A889 SAURASHTRA LETTER VOCALIC RR 0A88A SAURASHTRA LETTER VOCALIC L 0A88B SAURASHTRA LETTER VOCALIC LL 0A88C SAURASHTRA LETTER E 0A88D SAURASHTRA LETTER EE 0A88E SAURASHTRA LETTER AI 0A88F SAURASHTRA LETTER O 0A890 SAURASHTRA LETTER OO 0A891 SAURASHTRA LETTER AU 0A892 SAURASHTRA LETTER KA 0A893 SAURASHTRA LETTER KHA 0A894 SAURASHTRA LETTER GA 0A895 SAURASHTRA LETTER GHA 0A896 SAURASHTRA LETTER NGA 0A897 SAURASHTRA LETTER CA 0A898 SAURASHTRA LETTER CHA 0A899 SAURASHTRA LETTER JA 0A89A SAURASHTRA LETTER JHA 0A89B SAURASHTRA LETTER NYA 0A89C SAURASHTRA LETTER TTA 0A89D SAURASHTRA LETTER TTHA 0A89E SAURASHTRA LETTER DDA 0A89F SAURASHTRA LETTER DDHA 0A8A0 SAURASHTRA LETTER NNA 0A8A1 SAURASHTRA LETTER TA 0A8A2 SAURASHTRA LETTER THA 0A8A3 SAURASHTRA LETTER DA 0A8A4 SAURASHTRA LETTER DHA 0A8A5 SAURASHTRA LETTER NA 0A8A6 SAURASHTRA LETTER PA 0A8A7 SAURASHTRA LETTER PHA 0A8A8 SAURASHTRA LETTER BA 0A8A9 SAURASHTRA LETTER BHA 0A8AA SAURASHTRA LETTER MA 0A8AB SAURASHTRA LETTER YA 0A8AC SAURASHTRA LETTER RA 0A8AD SAURASHTRA LETTER LA 0A8AE SAURASHTRA LETTER VA 0A8AF SAURASHTRA LETTER SHA 0A8B0 SAURASHTRA LETTER SSA 0A8B1 SAURASHTRA LETTER SA 0A8B2 SAURASHTRA LETTER HA 0A8B3 SAURASHTRA LETTER LLA 0A8B4 SAURASHTRA CONSONANT SIGN HAARU 0A8B5 SAURASHTRA VOWEL SIGN AA 0A8B6 SAURASHTRA VOWEL SIGN I 0A8B7 SAURASHTRA VOWEL SIGN II 0A8B8 SAURASHTRA VOWEL SIGN U 0A8B9 SAURASHTRA VOWEL SIGN UU 0A8BA SAURASHTRA VOWEL SIGN VOCALIC R 0A8BB SAURASHTRA VOWEL SIGN VOCALIC RR 0A8BC SAURASHTRA VOWEL SIGN VOCALIC L 0A8BD SAURASHTRA VOWEL SIGN VOCALIC LL 0A8BE SAURASHTRA VOWEL SIGN E 0A8BF SAURASHTRA VOWEL SIGN EE 0A8C0 SAURASHTRA VOWEL SIGN AI 0A8C1 SAURASHTRA VOWEL SIGN O 0A8C2 SAURASHTRA VOWEL SIGN OO 0A8C3 SAURASHTRA VOWEL SIGN AU 0A8C4 SAURASHTRA SIGN VIRAMA 0A8C5 SAURASHTRA SIGN CANDRABINDU 0A8CE SAURASHTRA DANDA 0A8CF SAURASHTRA DOUBLE DANDA 0A8D0 SAURASHTRA DIGIT ZERO 0A8D1 SAURASHTRA DIGIT ONE 0A8D2 SAURASHTRA DIGIT TWO 0A8D3 SAURASHTRA DIGIT THREE 0A8D4 SAURASHTRA DIGIT FOUR 0A8D5 SAURASHTRA DIGIT FIVE 0A8D6 SAURASHTRA DIGIT SIX 0A8D7 SAURASHTRA DIGIT SEVEN 0A8D8 SAURASHTRA DIGIT EIGHT 0A8D9 SAURASHTRA DIGIT NINE 0A8E0 COMBINING DEVANAGARI DIGIT ZERO 0A8E1 COMBINING DEVANAGARI DIGIT ONE 0A8E2 COMBINING DEVANAGARI DIGIT TWO 0A8E3 COMBINING DEVANAGARI DIGIT THREE 0A8E4 COMBINING DEVANAGARI DIGIT FOUR 0A8E5 COMBINING DEVANAGARI DIGIT FIVE 0A8E6 COMBINING DEVANAGARI DIGIT SIX 0A8E7 COMBINING DEVANAGARI DIGIT SEVEN 0A8E8 COMBINING DEVANAGARI DIGIT EIGHT 0A8E9 COMBINING DEVANAGARI DIGIT NINE 0A8EA COMBINING DEVANAGARI LETTER A 0A8EB COMBINING DEVANAGARI LETTER U 0A8EC COMBINING DEVANAGARI LETTER KA 0A8ED COMBINING DEVANAGARI LETTER NA 0A8EE COMBINING DEVANAGARI LETTER PA 0A8EF COMBINING DEVANAGARI LETTER RA 0A8F0 COMBINING DEVANAGARI LETTER VI 0A8F1 COMBINING DEVANAGARI SIGN AVAGRAHA 0A8F2 DEVANAGARI SIGN SPACING CANDRABINDU 0A8F3 DEVANAGARI SIGN CANDRABINDU VIRAMA 0A8F4 DEVANAGARI SIGN DOUBLE CANDRABINDU VIRAMA 0A8F5 DEVANAGARI SIGN CANDRABINDU TWO 0A8F6 DEVANAGARI SIGN CANDRABINDU THREE 0A8F7 DEVANAGARI SIGN CANDRABINDU AVAGRAHA 0A8F8 DEVANAGARI SIGN PUSHPIKA 0A8F9 DEVANAGARI GAP FILLER 0A8FA DEVANAGARI CARET 0A8FB DEVANAGARI HEADSTROKE 0A8FC DEVANAGARI SIGN SIDDHAM 0A8FD DEVANAGARI JAIN OM 0A8FE DEVANAGARI LETTER AY 0A8FF DEVANAGARI VOWEL SIGN AY 0A900 KAYAH LI DIGIT ZERO 0A901 KAYAH LI DIGIT ONE 0A902 KAYAH LI DIGIT TWO 0A903 KAYAH LI DIGIT THREE 0A904 KAYAH LI DIGIT FOUR 0A905 KAYAH LI DIGIT FIVE 0A906 KAYAH LI DIGIT SIX 0A907 KAYAH LI DIGIT SEVEN 0A908 KAYAH LI DIGIT EIGHT 0A909 KAYAH LI DIGIT NINE 0A90A KAYAH LI LETTER KA 0A90B KAYAH LI LETTER KHA 0A90C KAYAH LI LETTER GA 0A90D KAYAH LI LETTER NGA 0A90E KAYAH LI LETTER SA 0A90F KAYAH LI LETTER SHA 0A910 KAYAH LI LETTER ZA 0A911 KAYAH LI LETTER NYA 0A912 KAYAH LI LETTER TA 0A913 KAYAH LI LETTER HTA 0A914 KAYAH LI LETTER NA 0A915 KAYAH LI LETTER PA 0A916 KAYAH LI LETTER PHA 0A917 KAYAH LI LETTER MA 0A918 KAYAH LI LETTER DA 0A919 KAYAH LI LETTER BA 0A91A KAYAH LI LETTER RA 0A91B KAYAH LI LETTER YA 0A91C KAYAH LI LETTER LA 0A91D KAYAH LI LETTER WA 0A91E KAYAH LI LETTER THA 0A91F KAYAH LI LETTER HA 0A920 KAYAH LI LETTER VA 0A921 KAYAH LI LETTER CA 0A922 KAYAH LI LETTER A 0A923 KAYAH LI LETTER OE 0A924 KAYAH LI LETTER I 0A925 KAYAH LI LETTER OO 0A926 KAYAH LI VOWEL UE 0A927 KAYAH LI VOWEL E 0A928 KAYAH LI VOWEL U 0A929 KAYAH LI VOWEL EE 0A92A KAYAH LI VOWEL O 0A92B KAYAH LI TONE PLOPHU 0A92C KAYAH LI TONE CALYA 0A92D KAYAH LI TONE CALYA PLOPHU 0A92E KAYAH LI SIGN CWI 0A92F KAYAH LI SIGN SHYA 0A930 REJANG LETTER KA 0A931 REJANG LETTER GA 0A932 REJANG LETTER NGA 0A933 REJANG LETTER TA 0A934 REJANG LETTER DA 0A935 REJANG LETTER NA 0A936 REJANG LETTER PA 0A937 REJANG LETTER BA 0A938 REJANG LETTER MA 0A939 REJANG LETTER CA 0A93A REJANG LETTER JA 0A93B REJANG LETTER NYA 0A93C REJANG LETTER SA 0A93D REJANG LETTER RA 0A93E REJANG LETTER LA 0A93F REJANG LETTER YA 0A940 REJANG LETTER WA 0A941 REJANG LETTER HA 0A942 REJANG LETTER MBA 0A943 REJANG LETTER NGGA 0A944 REJANG LETTER NDA 0A945 REJANG LETTER NYJA 0A946 REJANG LETTER A 0A947 REJANG VOWEL SIGN I 0A948 REJANG VOWEL SIGN U 0A949 REJANG VOWEL SIGN E 0A94A REJANG VOWEL SIGN AI 0A94B REJANG VOWEL SIGN O 0A94C REJANG VOWEL SIGN AU 0A94D REJANG VOWEL SIGN EU 0A94E REJANG VOWEL SIGN EA 0A94F REJANG CONSONANT SIGN NG 0A950 REJANG CONSONANT SIGN N 0A951 REJANG CONSONANT SIGN R 0A952 REJANG CONSONANT SIGN H 0A953 REJANG VIRAMA 0A95F REJANG SECTION MARK 0A960 HANGUL CHOSEONG TIKEUT-MIEUM 0A961 HANGUL CHOSEONG TIKEUT-PIEUP 0A962 HANGUL CHOSEONG TIKEUT-SIOS 0A963 HANGUL CHOSEONG TIKEUT-CIEUC 0A964 HANGUL CHOSEONG RIEUL-KIYEOK 0A965 HANGUL CHOSEONG RIEUL-SSANGKIYEOK 0A966 HANGUL CHOSEONG RIEUL-TIKEUT 0A967 HANGUL CHOSEONG RIEUL-SSANGTIKEUT 0A968 HANGUL CHOSEONG RIEUL-MIEUM 0A969 HANGUL CHOSEONG RIEUL-PIEUP 0A96A HANGUL CHOSEONG RIEUL-SSANGPIEUP 0A96B HANGUL CHOSEONG RIEUL-KAPYEOUNPIEUP 0A96C HANGUL CHOSEONG RIEUL-SIOS 0A96D HANGUL CHOSEONG RIEUL-CIEUC 0A96E HANGUL CHOSEONG RIEUL-KHIEUKH 0A96F HANGUL CHOSEONG MIEUM-KIYEOK 0A970 HANGUL CHOSEONG MIEUM-TIKEUT 0A971 HANGUL CHOSEONG MIEUM-SIOS 0A972 HANGUL CHOSEONG PIEUP-SIOS-THIEUTH 0A973 HANGUL CHOSEONG PIEUP-KHIEUKH 0A974 HANGUL CHOSEONG PIEUP-HIEUH 0A975 HANGUL CHOSEONG SSANGSIOS-PIEUP 0A976 HANGUL CHOSEONG IEUNG-RIEUL 0A977 HANGUL CHOSEONG IEUNG-HIEUH 0A978 HANGUL CHOSEONG SSANGCIEUC-HIEUH 0A979 HANGUL CHOSEONG SSANGTHIEUTH 0A97A HANGUL CHOSEONG PHIEUPH-HIEUH 0A97B HANGUL CHOSEONG HIEUH-SIOS 0A97C HANGUL CHOSEONG SSANGYEORINHIEUH 0A980 JAVANESE SIGN PANYANGGA 0A981 JAVANESE SIGN CECAK 0A982 JAVANESE SIGN LAYAR 0A983 JAVANESE SIGN WIGNYAN 0A984 JAVANESE LETTER A 0A985 JAVANESE LETTER I KAWI 0A986 JAVANESE LETTER I 0A987 JAVANESE LETTER II 0A988 JAVANESE LETTER U 0A989 JAVANESE LETTER PA CEREK 0A98A JAVANESE LETTER NGA LELET 0A98B JAVANESE LETTER NGA LELET RASWADI 0A98C JAVANESE LETTER E 0A98D JAVANESE LETTER AI 0A98E JAVANESE LETTER O 0A98F JAVANESE LETTER KA 0A990 JAVANESE LETTER KA SASAK 0A991 JAVANESE LETTER KA MURDA 0A992 JAVANESE LETTER GA 0A993 JAVANESE LETTER GA MURDA 0A994 JAVANESE LETTER NGA 0A995 JAVANESE LETTER CA 0A996 JAVANESE LETTER CA MURDA 0A997 JAVANESE LETTER JA 0A998 JAVANESE LETTER NYA MURDA 0A999 JAVANESE LETTER JA MAHAPRANA 0A99A JAVANESE LETTER NYA 0A99B JAVANESE LETTER TTA 0A99C JAVANESE LETTER TTA MAHAPRANA 0A99D JAVANESE LETTER DDA 0A99E JAVANESE LETTER DDA MAHAPRANA 0A99F JAVANESE LETTER NA MURDA 0A9A0 JAVANESE LETTER TA 0A9A1 JAVANESE LETTER TA MURDA 0A9A2 JAVANESE LETTER DA 0A9A3 JAVANESE LETTER DA MAHAPRANA 0A9A4 JAVANESE LETTER NA 0A9A5 JAVANESE LETTER PA 0A9A6 JAVANESE LETTER PA MURDA 0A9A7 JAVANESE LETTER BA 0A9A8 JAVANESE LETTER BA MURDA 0A9A9 JAVANESE LETTER MA 0A9AA JAVANESE LETTER YA 0A9AB JAVANESE LETTER RA 0A9AC JAVANESE LETTER RA AGUNG 0A9AD JAVANESE LETTER LA 0A9AE JAVANESE LETTER WA 0A9AF JAVANESE LETTER SA MURDA 0A9B0 JAVANESE LETTER SA MAHAPRANA 0A9B1 JAVANESE LETTER SA 0A9B2 JAVANESE LETTER HA 0A9B3 JAVANESE SIGN CECAK TELU 0A9B4 JAVANESE VOWEL SIGN TARUNG 0A9B5 JAVANESE VOWEL SIGN TOLONG 0A9B6 JAVANESE VOWEL SIGN WULU 0A9B7 JAVANESE VOWEL SIGN WULU MELIK 0A9B8 JAVANESE VOWEL SIGN SUKU 0A9B9 JAVANESE VOWEL SIGN SUKU MENDUT 0A9BA JAVANESE VOWEL SIGN TALING 0A9BB JAVANESE VOWEL SIGN DIRGA MURE 0A9BC JAVANESE VOWEL SIGN PEPET 0A9BD JAVANESE CONSONANT SIGN KERET 0A9BE JAVANESE CONSONANT SIGN PENGKAL 0A9BF JAVANESE CONSONANT SIGN CAKRA 0A9C0 JAVANESE PANGKON 0A9C1 JAVANESE LEFT RERENGGAN 0A9C2 JAVANESE RIGHT RERENGGAN 0A9C3 JAVANESE PADA ANDAP 0A9C4 JAVANESE PADA MADYA 0A9C5 JAVANESE PADA LUHUR 0A9C6 JAVANESE PADA WINDU 0A9C7 JAVANESE PADA PANGKAT 0A9C8 JAVANESE PADA LINGSA 0A9C9 JAVANESE PADA LUNGSI 0A9CA JAVANESE PADA ADEG 0A9CB JAVANESE PADA ADEG ADEG 0A9CC JAVANESE PADA PISELEH 0A9CD JAVANESE TURNED PADA PISELEH 0A9CF JAVANESE PANGRANGKEP 0A9D0 JAVANESE DIGIT ZERO 0A9D1 JAVANESE DIGIT ONE 0A9D2 JAVANESE DIGIT TWO 0A9D3 JAVANESE DIGIT THREE 0A9D4 JAVANESE DIGIT FOUR 0A9D5 JAVANESE DIGIT FIVE 0A9D6 JAVANESE DIGIT SIX 0A9D7 JAVANESE DIGIT SEVEN 0A9D8 JAVANESE DIGIT EIGHT 0A9D9 JAVANESE DIGIT NINE 0A9DE JAVANESE PADA TIRTA TUMETES 0A9DF JAVANESE PADA ISEN-ISEN 0A9E0 MYANMAR LETTER SHAN GHA 0A9E1 MYANMAR LETTER SHAN CHA 0A9E2 MYANMAR LETTER SHAN JHA 0A9E3 MYANMAR LETTER SHAN NNA 0A9E4 MYANMAR LETTER SHAN BHA 0A9E5 MYANMAR SIGN SHAN SAW 0A9E6 MYANMAR MODIFIER LETTER SHAN REDUPLICATION 0A9E7 MYANMAR LETTER TAI LAING NYA 0A9E8 MYANMAR LETTER TAI LAING FA 0A9E9 MYANMAR LETTER TAI LAING GA 0A9EA MYANMAR LETTER TAI LAING GHA 0A9EB MYANMAR LETTER TAI LAING JA 0A9EC MYANMAR LETTER TAI LAING JHA 0A9ED MYANMAR LETTER TAI LAING DDA 0A9EE MYANMAR LETTER TAI LAING DDHA 0A9EF MYANMAR LETTER TAI LAING NNA 0A9F0 MYANMAR TAI LAING DIGIT ZERO 0A9F1 MYANMAR TAI LAING DIGIT ONE 0A9F2 MYANMAR TAI LAING DIGIT TWO 0A9F3 MYANMAR TAI LAING DIGIT THREE 0A9F4 MYANMAR TAI LAING DIGIT FOUR 0A9F5 MYANMAR TAI LAING DIGIT FIVE 0A9F6 MYANMAR TAI LAING DIGIT SIX 0A9F7 MYANMAR TAI LAING DIGIT SEVEN 0A9F8 MYANMAR TAI LAING DIGIT EIGHT 0A9F9 MYANMAR TAI LAING DIGIT NINE 0A9FA MYANMAR LETTER TAI LAING LLA 0A9FB MYANMAR LETTER TAI LAING DA 0A9FC MYANMAR LETTER TAI LAING DHA 0A9FD MYANMAR LETTER TAI LAING BA 0A9FE MYANMAR LETTER TAI LAING BHA 0AA00 CHAM LETTER A 0AA01 CHAM LETTER I 0AA02 CHAM LETTER U 0AA03 CHAM LETTER E 0AA04 CHAM LETTER AI 0AA05 CHAM LETTER O 0AA06 CHAM LETTER KA 0AA07 CHAM LETTER KHA 0AA08 CHAM LETTER GA 0AA09 CHAM LETTER GHA 0AA0A CHAM LETTER NGUE 0AA0B CHAM LETTER NGA 0AA0C CHAM LETTER CHA 0AA0D CHAM LETTER CHHA 0AA0E CHAM LETTER JA 0AA0F CHAM LETTER JHA 0AA10 CHAM LETTER NHUE 0AA11 CHAM LETTER NHA 0AA12 CHAM LETTER NHJA 0AA13 CHAM LETTER TA 0AA14 CHAM LETTER THA 0AA15 CHAM LETTER DA 0AA16 CHAM LETTER DHA 0AA17 CHAM LETTER NUE 0AA18 CHAM LETTER NA 0AA19 CHAM LETTER DDA 0AA1A CHAM LETTER PA 0AA1B CHAM LETTER PPA 0AA1C CHAM LETTER PHA 0AA1D CHAM LETTER BA 0AA1E CHAM LETTER BHA 0AA1F CHAM LETTER MUE 0AA20 CHAM LETTER MA 0AA21 CHAM LETTER BBA 0AA22 CHAM LETTER YA 0AA23 CHAM LETTER RA 0AA24 CHAM LETTER LA 0AA25 CHAM LETTER VA 0AA26 CHAM LETTER SSA 0AA27 CHAM LETTER SA 0AA28 CHAM LETTER HA 0AA29 CHAM VOWEL SIGN AA 0AA2A CHAM VOWEL SIGN I 0AA2B CHAM VOWEL SIGN II 0AA2C CHAM VOWEL SIGN EI 0AA2D CHAM VOWEL SIGN U 0AA2E CHAM VOWEL SIGN OE 0AA2F CHAM VOWEL SIGN O 0AA30 CHAM VOWEL SIGN AI 0AA31 CHAM VOWEL SIGN AU 0AA32 CHAM VOWEL SIGN UE 0AA33 CHAM CONSONANT SIGN YA 0AA34 CHAM CONSONANT SIGN RA 0AA35 CHAM CONSONANT SIGN LA 0AA36 CHAM CONSONANT SIGN WA 0AA40 CHAM LETTER FINAL K 0AA41 CHAM LETTER FINAL G 0AA42 CHAM LETTER FINAL NG 0AA43 CHAM CONSONANT SIGN FINAL NG 0AA44 CHAM LETTER FINAL CH 0AA45 CHAM LETTER FINAL T 0AA46 CHAM LETTER FINAL N 0AA47 CHAM LETTER FINAL P 0AA48 CHAM LETTER FINAL Y 0AA49 CHAM LETTER FINAL R 0AA4A CHAM LETTER FINAL L 0AA4B CHAM LETTER FINAL SS 0AA4C CHAM CONSONANT SIGN FINAL M 0AA4D CHAM CONSONANT SIGN FINAL H 0AA50 CHAM DIGIT ZERO 0AA51 CHAM DIGIT ONE 0AA52 CHAM DIGIT TWO 0AA53 CHAM DIGIT THREE 0AA54 CHAM DIGIT FOUR 0AA55 CHAM DIGIT FIVE 0AA56 CHAM DIGIT SIX 0AA57 CHAM DIGIT SEVEN 0AA58 CHAM DIGIT EIGHT 0AA59 CHAM DIGIT NINE 0AA5C CHAM PUNCTUATION SPIRAL 0AA5D CHAM PUNCTUATION DANDA 0AA5E CHAM PUNCTUATION DOUBLE DANDA 0AA5F CHAM PUNCTUATION TRIPLE DANDA 0AA60 MYANMAR LETTER KHAMTI GA 0AA61 MYANMAR LETTER KHAMTI CA 0AA62 MYANMAR LETTER KHAMTI CHA 0AA63 MYANMAR LETTER KHAMTI JA 0AA64 MYANMAR LETTER KHAMTI JHA 0AA65 MYANMAR LETTER KHAMTI NYA 0AA66 MYANMAR LETTER KHAMTI TTA 0AA67 MYANMAR LETTER KHAMTI TTHA 0AA68 MYANMAR LETTER KHAMTI DDA 0AA69 MYANMAR LETTER KHAMTI DDHA 0AA6A MYANMAR LETTER KHAMTI DHA 0AA6B MYANMAR LETTER KHAMTI NA 0AA6C MYANMAR LETTER KHAMTI SA 0AA6D MYANMAR LETTER KHAMTI HA 0AA6E MYANMAR LETTER KHAMTI HHA 0AA6F MYANMAR LETTER KHAMTI FA 0AA70 MYANMAR MODIFIER LETTER KHAMTI REDUPLICATION 0AA71 MYANMAR LETTER KHAMTI XA 0AA72 MYANMAR LETTER KHAMTI ZA 0AA73 MYANMAR LETTER KHAMTI RA 0AA74 MYANMAR LOGOGRAM KHAMTI OAY 0AA75 MYANMAR LOGOGRAM KHAMTI QN 0AA76 MYANMAR LOGOGRAM KHAMTI HM 0AA77 MYANMAR SYMBOL AITON EXCLAMATION 0AA78 MYANMAR SYMBOL AITON ONE 0AA79 MYANMAR SYMBOL AITON TWO 0AA7A MYANMAR LETTER AITON RA 0AA7B MYANMAR SIGN PAO KAREN TONE 0AA7C MYANMAR SIGN TAI LAING TONE-2 0AA7D MYANMAR SIGN TAI LAING TONE-5 0AA7E MYANMAR LETTER SHWE PALAUNG CHA 0AA7F MYANMAR LETTER SHWE PALAUNG SHA 0AA80 TAI VIET LETTER LOW KO 0AA81 TAI VIET LETTER HIGH KO 0AA82 TAI VIET LETTER LOW KHO 0AA83 TAI VIET LETTER HIGH KHO 0AA84 TAI VIET LETTER LOW KHHO 0AA85 TAI VIET LETTER HIGH KHHO 0AA86 TAI VIET LETTER LOW GO 0AA87 TAI VIET LETTER HIGH GO 0AA88 TAI VIET LETTER LOW NGO 0AA89 TAI VIET LETTER HIGH NGO 0AA8A TAI VIET LETTER LOW CO 0AA8B TAI VIET LETTER HIGH CO 0AA8C TAI VIET LETTER LOW CHO 0AA8D TAI VIET LETTER HIGH CHO 0AA8E TAI VIET LETTER LOW SO 0AA8F TAI VIET LETTER HIGH SO 0AA90 TAI VIET LETTER LOW NYO 0AA91 TAI VIET LETTER HIGH NYO 0AA92 TAI VIET LETTER LOW DO 0AA93 TAI VIET LETTER HIGH DO 0AA94 TAI VIET LETTER LOW TO 0AA95 TAI VIET LETTER HIGH TO 0AA96 TAI VIET LETTER LOW THO 0AA97 TAI VIET LETTER HIGH THO 0AA98 TAI VIET LETTER LOW NO 0AA99 TAI VIET LETTER HIGH NO 0AA9A TAI VIET LETTER LOW BO 0AA9B TAI VIET LETTER HIGH BO 0AA9C TAI VIET LETTER LOW PO 0AA9D TAI VIET LETTER HIGH PO 0AA9E TAI VIET LETTER LOW PHO 0AA9F TAI VIET LETTER HIGH PHO 0AAA0 TAI VIET LETTER LOW FO 0AAA1 TAI VIET LETTER HIGH FO 0AAA2 TAI VIET LETTER LOW MO 0AAA3 TAI VIET LETTER HIGH MO 0AAA4 TAI VIET LETTER LOW YO 0AAA5 TAI VIET LETTER HIGH YO 0AAA6 TAI VIET LETTER LOW RO 0AAA7 TAI VIET LETTER HIGH RO 0AAA8 TAI VIET LETTER LOW LO 0AAA9 TAI VIET LETTER HIGH LO 0AAAA TAI VIET LETTER LOW VO 0AAAB TAI VIET LETTER HIGH VO 0AAAC TAI VIET LETTER LOW HO 0AAAD TAI VIET LETTER HIGH HO 0AAAE TAI VIET LETTER LOW O 0AAAF TAI VIET LETTER HIGH O 0AAB0 TAI VIET MAI KANG 0AAB1 TAI VIET VOWEL AA 0AAB2 TAI VIET VOWEL I 0AAB3 TAI VIET VOWEL UE 0AAB4 TAI VIET VOWEL U 0AAB5 TAI VIET VOWEL E 0AAB6 TAI VIET VOWEL O 0AAB7 TAI VIET MAI KHIT 0AAB8 TAI VIET VOWEL IA 0AAB9 TAI VIET VOWEL UEA 0AABA TAI VIET VOWEL UA 0AABB TAI VIET VOWEL AUE 0AABC TAI VIET VOWEL AY 0AABD TAI VIET VOWEL AN 0AABE TAI VIET VOWEL AM 0AABF TAI VIET TONE MAI EK 0AAC0 TAI VIET TONE MAI NUENG 0AAC1 TAI VIET TONE MAI THO 0AAC2 TAI VIET TONE MAI SONG 0AADB TAI VIET SYMBOL KON 0AADC TAI VIET SYMBOL NUENG 0AADD TAI VIET SYMBOL SAM 0AADE TAI VIET SYMBOL HO HOI 0AADF TAI VIET SYMBOL KOI KOI 0AAE0 MEETEI MAYEK LETTER E 0AAE1 MEETEI MAYEK LETTER O 0AAE2 MEETEI MAYEK LETTER CHA 0AAE3 MEETEI MAYEK LETTER NYA 0AAE4 MEETEI MAYEK LETTER TTA 0AAE5 MEETEI MAYEK LETTER TTHA 0AAE6 MEETEI MAYEK LETTER DDA 0AAE7 MEETEI MAYEK LETTER DDHA 0AAE8 MEETEI MAYEK LETTER NNA 0AAE9 MEETEI MAYEK LETTER SHA 0AAEA MEETEI MAYEK LETTER SSA 0AAEB MEETEI MAYEK VOWEL SIGN II 0AAEC MEETEI MAYEK VOWEL SIGN UU 0AAED MEETEI MAYEK VOWEL SIGN AAI 0AAEE MEETEI MAYEK VOWEL SIGN AU 0AAEF MEETEI MAYEK VOWEL SIGN AAU 0AAF0 MEETEI MAYEK CHEIKHAN 0AAF1 MEETEI MAYEK AHANG KHUDAM 0AAF2 MEETEI MAYEK ANJI 0AAF3 MEETEI MAYEK SYLLABLE REPETITION MARK 0AAF4 MEETEI MAYEK WORD REPETITION MARK 0AAF5 MEETEI MAYEK VOWEL SIGN VISARGA 0AAF6 MEETEI MAYEK VIRAMA 0AB01 ETHIOPIC SYLLABLE TTHU 0AB02 ETHIOPIC SYLLABLE TTHI 0AB03 ETHIOPIC SYLLABLE TTHAA 0AB04 ETHIOPIC SYLLABLE TTHEE 0AB05 ETHIOPIC SYLLABLE TTHE 0AB06 ETHIOPIC SYLLABLE TTHO 0AB09 ETHIOPIC SYLLABLE DDHU 0AB0A ETHIOPIC SYLLABLE DDHI 0AB0B ETHIOPIC SYLLABLE DDHAA 0AB0C ETHIOPIC SYLLABLE DDHEE 0AB0D ETHIOPIC SYLLABLE DDHE 0AB0E ETHIOPIC SYLLABLE DDHO 0AB11 ETHIOPIC SYLLABLE DZU 0AB12 ETHIOPIC SYLLABLE DZI 0AB13 ETHIOPIC SYLLABLE DZAA 0AB14 ETHIOPIC SYLLABLE DZEE 0AB15 ETHIOPIC SYLLABLE DZE 0AB16 ETHIOPIC SYLLABLE DZO 0AB20 ETHIOPIC SYLLABLE CCHHA 0AB21 ETHIOPIC SYLLABLE CCHHU 0AB22 ETHIOPIC SYLLABLE CCHHI 0AB23 ETHIOPIC SYLLABLE CCHHAA 0AB24 ETHIOPIC SYLLABLE CCHHEE 0AB25 ETHIOPIC SYLLABLE CCHHE 0AB26 ETHIOPIC SYLLABLE CCHHO 0AB28 ETHIOPIC SYLLABLE BBA 0AB29 ETHIOPIC SYLLABLE BBU 0AB2A ETHIOPIC SYLLABLE BBI 0AB2B ETHIOPIC SYLLABLE BBAA 0AB2C ETHIOPIC SYLLABLE BBEE 0AB2D ETHIOPIC SYLLABLE BBE 0AB2E ETHIOPIC SYLLABLE BBO 0AB30 LATIN SMALL LETTER BARRED ALPHA 0AB31 LATIN SMALL LETTER A REVERSED-SCHWA 0AB32 LATIN SMALL LETTER BLACKLETTER E 0AB33 LATIN SMALL LETTER BARRED E 0AB34 LATIN SMALL LETTER E WITH FLOURISH 0AB35 LATIN SMALL LETTER LENIS F 0AB36 LATIN SMALL LETTER SCRIPT G WITH CROSSED-TAIL 0AB37 LATIN SMALL LETTER L WITH INVERTED LAZY S 0AB38 LATIN SMALL LETTER L WITH DOUBLE MIDDLE TILDE 0AB39 LATIN SMALL LETTER L WITH MIDDLE RING 0AB3A LATIN SMALL LETTER M WITH CROSSED-TAIL 0AB3B LATIN SMALL LETTER N WITH CROSSED-TAIL 0AB3C LATIN SMALL LETTER ENG WITH CROSSED-TAIL 0AB3D LATIN SMALL LETTER BLACKLETTER O 0AB3E LATIN SMALL LETTER BLACKLETTER O WITH STROKE 0AB3F LATIN SMALL LETTER OPEN O WITH STROKE 0AB40 LATIN SMALL LETTER INVERTED OE 0AB41 LATIN SMALL LETTER TURNED OE WITH STROKE 0AB42 LATIN SMALL LETTER TURNED OE WITH HORIZONTAL STROKE 0AB43 LATIN SMALL LETTER TURNED O OPEN-O 0AB44 LATIN SMALL LETTER TURNED O OPEN-O WITH STROKE 0AB45 LATIN SMALL LETTER STIRRUP R 0AB46 LATIN LETTER SMALL CAPITAL R WITH RIGHT LEG 0AB47 LATIN SMALL LETTER R WITHOUT HANDLE 0AB48 LATIN SMALL LETTER DOUBLE R 0AB49 LATIN SMALL LETTER R WITH CROSSED-TAIL 0AB4A LATIN SMALL LETTER DOUBLE R WITH CROSSED-TAIL 0AB4B LATIN SMALL LETTER SCRIPT R 0AB4C LATIN SMALL LETTER SCRIPT R WITH RING 0AB4D LATIN SMALL LETTER BASELINE ESH 0AB4E LATIN SMALL LETTER U WITH SHORT RIGHT LEG 0AB4F LATIN SMALL LETTER U BAR WITH SHORT RIGHT LEG 0AB50 LATIN SMALL LETTER UI 0AB51 LATIN SMALL LETTER TURNED UI 0AB52 LATIN SMALL LETTER U WITH LEFT HOOK 0AB53 LATIN SMALL LETTER CHI 0AB54 LATIN SMALL LETTER CHI WITH LOW RIGHT RING 0AB55 LATIN SMALL LETTER CHI WITH LOW LEFT SERIF 0AB56 LATIN SMALL LETTER X WITH LOW RIGHT RING 0AB57 LATIN SMALL LETTER X WITH LONG LEFT LEG 0AB58 LATIN SMALL LETTER X WITH LONG LEFT LEG AND LOW RIGHT RING 0AB59 LATIN SMALL LETTER X WITH LONG LEFT LEG WITH SERIF 0AB5A LATIN SMALL LETTER Y WITH SHORT RIGHT LEG 0AB5B MODIFIER BREVE WITH INVERTED BREVE 0AB5C MODIFIER LETTER SMALL HENG 0AB5D MODIFIER LETTER SMALL L WITH INVERTED LAZY S 0AB5E MODIFIER LETTER SMALL L WITH MIDDLE TILDE 0AB5F MODIFIER LETTER SMALL U WITH LEFT HOOK 0AB60 LATIN SMALL LETTER SAKHA YAT 0AB61 LATIN SMALL LETTER IOTIFIED E 0AB62 LATIN SMALL LETTER OPEN OE 0AB63 LATIN SMALL LETTER UO 0AB64 LATIN SMALL LETTER INVERTED ALPHA 0AB65 GREEK LETTER SMALL CAPITAL OMEGA 0AB66 LATIN SMALL LETTER DZ DIGRAPH WITH RETROFLEX HOOK 0AB67 LATIN SMALL LETTER TS DIGRAPH WITH RETROFLEX HOOK 0AB68 LATIN SMALL LETTER TURNED R WITH MIDDLE TILDE 0AB69 MODIFIER LETTER SMALL TURNED W 0AB6A MODIFIER LETTER LEFT TACK 0AB6B MODIFIER LETTER RIGHT TACK 0AB70 CHEROKEE SMALL LETTER A 0AB71 CHEROKEE SMALL LETTER E 0AB72 CHEROKEE SMALL LETTER I 0AB73 CHEROKEE SMALL LETTER O 0AB74 CHEROKEE SMALL LETTER U 0AB75 CHEROKEE SMALL LETTER V 0AB76 CHEROKEE SMALL LETTER GA 0AB77 CHEROKEE SMALL LETTER KA 0AB78 CHEROKEE SMALL LETTER GE 0AB79 CHEROKEE SMALL LETTER GI 0AB7A CHEROKEE SMALL LETTER GO 0AB7B CHEROKEE SMALL LETTER GU 0AB7C CHEROKEE SMALL LETTER GV 0AB7D CHEROKEE SMALL LETTER HA 0AB7E CHEROKEE SMALL LETTER HE 0AB7F CHEROKEE SMALL LETTER HI 0AB80 CHEROKEE SMALL LETTER HO 0AB81 CHEROKEE SMALL LETTER HU 0AB82 CHEROKEE SMALL LETTER HV 0AB83 CHEROKEE SMALL LETTER LA 0AB84 CHEROKEE SMALL LETTER LE 0AB85 CHEROKEE SMALL LETTER LI 0AB86 CHEROKEE SMALL LETTER LO 0AB87 CHEROKEE SMALL LETTER LU 0AB88 CHEROKEE SMALL LETTER LV 0AB89 CHEROKEE SMALL LETTER MA 0AB8A CHEROKEE SMALL LETTER ME 0AB8B CHEROKEE SMALL LETTER MI 0AB8C CHEROKEE SMALL LETTER MO 0AB8D CHEROKEE SMALL LETTER MU 0AB8E CHEROKEE SMALL LETTER NA 0AB8F CHEROKEE SMALL LETTER HNA 0AB90 CHEROKEE SMALL LETTER NAH 0AB91 CHEROKEE SMALL LETTER NE 0AB92 CHEROKEE SMALL LETTER NI 0AB93 CHEROKEE SMALL LETTER NO 0AB94 CHEROKEE SMALL LETTER NU 0AB95 CHEROKEE SMALL LETTER NV 0AB96 CHEROKEE SMALL LETTER QUA 0AB97 CHEROKEE SMALL LETTER QUE 0AB98 CHEROKEE SMALL LETTER QUI 0AB99 CHEROKEE SMALL LETTER QUO 0AB9A CHEROKEE SMALL LETTER QUU 0AB9B CHEROKEE SMALL LETTER QUV 0AB9C CHEROKEE SMALL LETTER SA 0AB9D CHEROKEE SMALL LETTER S 0AB9E CHEROKEE SMALL LETTER SE 0AB9F CHEROKEE SMALL LETTER SI 0ABA0 CHEROKEE SMALL LETTER SO 0ABA1 CHEROKEE SMALL LETTER SU 0ABA2 CHEROKEE SMALL LETTER SV 0ABA3 CHEROKEE SMALL LETTER DA 0ABA4 CHEROKEE SMALL LETTER TA 0ABA5 CHEROKEE SMALL LETTER DE 0ABA6 CHEROKEE SMALL LETTER TE 0ABA7 CHEROKEE SMALL LETTER DI 0ABA8 CHEROKEE SMALL LETTER TI 0ABA9 CHEROKEE SMALL LETTER DO 0ABAA CHEROKEE SMALL LETTER DU 0ABAB CHEROKEE SMALL LETTER DV 0ABAC CHEROKEE SMALL LETTER DLA 0ABAD CHEROKEE SMALL LETTER TLA 0ABAE CHEROKEE SMALL LETTER TLE 0ABAF CHEROKEE SMALL LETTER TLI 0ABB0 CHEROKEE SMALL LETTER TLO 0ABB1 CHEROKEE SMALL LETTER TLU 0ABB2 CHEROKEE SMALL LETTER TLV 0ABB3 CHEROKEE SMALL LETTER TSA 0ABB4 CHEROKEE SMALL LETTER TSE 0ABB5 CHEROKEE SMALL LETTER TSI 0ABB6 CHEROKEE SMALL LETTER TSO 0ABB7 CHEROKEE SMALL LETTER TSU 0ABB8 CHEROKEE SMALL LETTER TSV 0ABB9 CHEROKEE SMALL LETTER WA 0ABBA CHEROKEE SMALL LETTER WE 0ABBB CHEROKEE SMALL LETTER WI 0ABBC CHEROKEE SMALL LETTER WO 0ABBD CHEROKEE SMALL LETTER WU 0ABBE CHEROKEE SMALL LETTER WV 0ABBF CHEROKEE SMALL LETTER YA 0ABC0 MEETEI MAYEK LETTER KOK 0ABC1 MEETEI MAYEK LETTER SAM 0ABC2 MEETEI MAYEK LETTER LAI 0ABC3 MEETEI MAYEK LETTER MIT 0ABC4 MEETEI MAYEK LETTER PA 0ABC5 MEETEI MAYEK LETTER NA 0ABC6 MEETEI MAYEK LETTER CHIL 0ABC7 MEETEI MAYEK LETTER TIL 0ABC8 MEETEI MAYEK LETTER KHOU 0ABC9 MEETEI MAYEK LETTER NGOU 0ABCA MEETEI MAYEK LETTER THOU 0ABCB MEETEI MAYEK LETTER WAI 0ABCC MEETEI MAYEK LETTER YANG 0ABCD MEETEI MAYEK LETTER HUK 0ABCE MEETEI MAYEK LETTER UN 0ABCF MEETEI MAYEK LETTER I 0ABD0 MEETEI MAYEK LETTER PHAM 0ABD1 MEETEI MAYEK LETTER ATIYA 0ABD2 MEETEI MAYEK LETTER GOK 0ABD3 MEETEI MAYEK LETTER JHAM 0ABD4 MEETEI MAYEK LETTER RAI 0ABD5 MEETEI MAYEK LETTER BA 0ABD6 MEETEI MAYEK LETTER JIL 0ABD7 MEETEI MAYEK LETTER DIL 0ABD8 MEETEI MAYEK LETTER GHOU 0ABD9 MEETEI MAYEK LETTER DHOU 0ABDA MEETEI MAYEK LETTER BHAM 0ABDB MEETEI MAYEK LETTER KOK LONSUM 0ABDC MEETEI MAYEK LETTER LAI LONSUM 0ABDD MEETEI MAYEK LETTER MIT LONSUM 0ABDE MEETEI MAYEK LETTER PA LONSUM 0ABDF MEETEI MAYEK LETTER NA LONSUM 0ABE0 MEETEI MAYEK LETTER TIL LONSUM 0ABE1 MEETEI MAYEK LETTER NGOU LONSUM 0ABE2 MEETEI MAYEK LETTER I LONSUM 0ABE3 MEETEI MAYEK VOWEL SIGN ONAP 0ABE4 MEETEI MAYEK VOWEL SIGN INAP 0ABE5 MEETEI MAYEK VOWEL SIGN ANAP 0ABE6 MEETEI MAYEK VOWEL SIGN YENAP 0ABE7 MEETEI MAYEK VOWEL SIGN SOUNAP 0ABE8 MEETEI MAYEK VOWEL SIGN UNAP 0ABE9 MEETEI MAYEK VOWEL SIGN CHEINAP 0ABEA MEETEI MAYEK VOWEL SIGN NUNG 0ABEB MEETEI MAYEK CHEIKHEI 0ABEC MEETEI MAYEK LUM IYEK 0ABED MEETEI MAYEK APUN IYEK 0ABF0 MEETEI MAYEK DIGIT ZERO 0ABF1 MEETEI MAYEK DIGIT ONE 0ABF2 MEETEI MAYEK DIGIT TWO 0ABF3 MEETEI MAYEK DIGIT THREE 0ABF4 MEETEI MAYEK DIGIT FOUR 0ABF5 MEETEI MAYEK DIGIT FIVE 0ABF6 MEETEI MAYEK DIGIT SIX 0ABF7 MEETEI MAYEK DIGIT SEVEN 0ABF8 MEETEI MAYEK DIGIT EIGHT 0ABF9 MEETEI MAYEK DIGIT NINE 0D7B0 HANGUL JUNGSEONG O-YEO 0D7B1 HANGUL JUNGSEONG O-O-I 0D7B2 HANGUL JUNGSEONG YO-A 0D7B3 HANGUL JUNGSEONG YO-AE 0D7B4 HANGUL JUNGSEONG YO-EO 0D7B5 HANGUL JUNGSEONG U-YEO 0D7B6 HANGUL JUNGSEONG U-I-I 0D7B7 HANGUL JUNGSEONG YU-AE 0D7B8 HANGUL JUNGSEONG YU-O 0D7B9 HANGUL JUNGSEONG EU-A 0D7BA HANGUL JUNGSEONG EU-EO 0D7BB HANGUL JUNGSEONG EU-E 0D7BC HANGUL JUNGSEONG EU-O 0D7BD HANGUL JUNGSEONG I-YA-O 0D7BE HANGUL JUNGSEONG I-YAE 0D7BF HANGUL JUNGSEONG I-YEO 0D7C0 HANGUL JUNGSEONG I-YE 0D7C1 HANGUL JUNGSEONG I-O-I 0D7C2 HANGUL JUNGSEONG I-YO 0D7C3 HANGUL JUNGSEONG I-YU 0D7C4 HANGUL JUNGSEONG I-I 0D7C5 HANGUL JUNGSEONG ARAEA-A 0D7C6 HANGUL JUNGSEONG ARAEA-E 0D7CB HANGUL JONGSEONG NIEUN-RIEUL 0D7CC HANGUL JONGSEONG NIEUN-CHIEUCH 0D7CD HANGUL JONGSEONG SSANGTIKEUT 0D7CE HANGUL JONGSEONG SSANGTIKEUT-PIEUP 0D7CF HANGUL JONGSEONG TIKEUT-PIEUP 0D7D0 HANGUL JONGSEONG TIKEUT-SIOS 0D7D1 HANGUL JONGSEONG TIKEUT-SIOS-KIYEOK 0D7D2 HANGUL JONGSEONG TIKEUT-CIEUC 0D7D3 HANGUL JONGSEONG TIKEUT-CHIEUCH 0D7D4 HANGUL JONGSEONG TIKEUT-THIEUTH 0D7D5 HANGUL JONGSEONG RIEUL-SSANGKIYEOK 0D7D6 HANGUL JONGSEONG RIEUL-KIYEOK-HIEUH 0D7D7 HANGUL JONGSEONG SSANGRIEUL-KHIEUKH 0D7D8 HANGUL JONGSEONG RIEUL-MIEUM-HIEUH 0D7D9 HANGUL JONGSEONG RIEUL-PIEUP-TIKEUT 0D7DA HANGUL JONGSEONG RIEUL-PIEUP-PHIEUPH 0D7DB HANGUL JONGSEONG RIEUL-YESIEUNG 0D7DC HANGUL JONGSEONG RIEUL-YEORINHIEUH-HIEUH 0D7DD HANGUL JONGSEONG KAPYEOUNRIEUL 0D7DE HANGUL JONGSEONG MIEUM-NIEUN 0D7DF HANGUL JONGSEONG MIEUM-SSANGNIEUN 0D7E0 HANGUL JONGSEONG SSANGMIEUM 0D7E1 HANGUL JONGSEONG MIEUM-PIEUP-SIOS 0D7E2 HANGUL JONGSEONG MIEUM-CIEUC 0D7E3 HANGUL JONGSEONG PIEUP-TIKEUT 0D7E4 HANGUL JONGSEONG PIEUP-RIEUL-PHIEUPH 0D7E5 HANGUL JONGSEONG PIEUP-MIEUM 0D7E6 HANGUL JONGSEONG SSANGPIEUP 0D7E7 HANGUL JONGSEONG PIEUP-SIOS-TIKEUT 0D7E8 HANGUL JONGSEONG PIEUP-CIEUC 0D7E9 HANGUL JONGSEONG PIEUP-CHIEUCH 0D7EA HANGUL JONGSEONG SIOS-MIEUM 0D7EB HANGUL JONGSEONG SIOS-KAPYEOUNPIEUP 0D7EC HANGUL JONGSEONG SSANGSIOS-KIYEOK 0D7ED HANGUL JONGSEONG SSANGSIOS-TIKEUT 0D7EE HANGUL JONGSEONG SIOS-PANSIOS 0D7EF HANGUL JONGSEONG SIOS-CIEUC 0D7F0 HANGUL JONGSEONG SIOS-CHIEUCH 0D7F1 HANGUL JONGSEONG SIOS-THIEUTH 0D7F2 HANGUL JONGSEONG SIOS-HIEUH 0D7F3 HANGUL JONGSEONG PANSIOS-PIEUP 0D7F4 HANGUL JONGSEONG PANSIOS-KAPYEOUNPIEUP 0D7F5 HANGUL JONGSEONG YESIEUNG-MIEUM 0D7F6 HANGUL JONGSEONG YESIEUNG-HIEUH 0D7F7 HANGUL JONGSEONG CIEUC-PIEUP 0D7F8 HANGUL JONGSEONG CIEUC-SSANGPIEUP 0D7F9 HANGUL JONGSEONG SSANGCIEUC 0D7FA HANGUL JONGSEONG PHIEUPH-SIOS 0D7FB HANGUL JONGSEONG PHIEUPH-THIEUTH 0FB00 LATIN SMALL LIGATURE FF 0FB01 LATIN SMALL LIGATURE FI 0FB02 LATIN SMALL LIGATURE FL 0FB03 LATIN SMALL LIGATURE FFI 0FB04 LATIN SMALL LIGATURE FFL 0FB05 LATIN SMALL LIGATURE LONG S T 0FB06 LATIN SMALL LIGATURE ST 0FB13 ARMENIAN SMALL LIGATURE MEN NOW 0FB14 ARMENIAN SMALL LIGATURE MEN ECH 0FB15 ARMENIAN SMALL LIGATURE MEN INI 0FB16 ARMENIAN SMALL LIGATURE VEW NOW 0FB17 ARMENIAN SMALL LIGATURE MEN XEH 0FB1D HEBREW LETTER YOD WITH HIRIQ 0FB1E HEBREW POINT JUDEO-SPANISH VARIKA 0FB1F HEBREW LIGATURE YIDDISH YOD YOD PATAH 0FB20 HEBREW LETTER ALTERNATIVE AYIN 0FB21 HEBREW LETTER WIDE ALEF 0FB22 HEBREW LETTER WIDE DALET 0FB23 HEBREW LETTER WIDE HE 0FB24 HEBREW LETTER WIDE KAF 0FB25 HEBREW LETTER WIDE LAMED 0FB26 HEBREW LETTER WIDE FINAL MEM 0FB27 HEBREW LETTER WIDE RESH 0FB28 HEBREW LETTER WIDE TAV 0FB29 HEBREW LETTER ALTERNATIVE PLUS SIGN 0FB2A HEBREW LETTER SHIN WITH SHIN DOT 0FB2B HEBREW LETTER SHIN WITH SIN DOT 0FB2C HEBREW LETTER SHIN WITH DAGESH AND SHIN DOT 0FB2D HEBREW LETTER SHIN WITH DAGESH AND SIN DOT 0FB2E HEBREW LETTER ALEF WITH PATAH 0FB2F HEBREW LETTER ALEF WITH QAMATS 0FB30 HEBREW LETTER ALEF WITH MAPIQ 0FB31 HEBREW LETTER BET WITH DAGESH 0FB32 HEBREW LETTER GIMEL WITH DAGESH 0FB33 HEBREW LETTER DALET WITH DAGESH 0FB34 HEBREW LETTER HE WITH MAPIQ 0FB35 HEBREW LETTER VAV WITH DAGESH 0FB36 HEBREW LETTER ZAYIN WITH DAGESH 0FB38 HEBREW LETTER TET WITH DAGESH 0FB39 HEBREW LETTER YOD WITH DAGESH 0FB3A HEBREW LETTER FINAL KAF WITH DAGESH 0FB3B HEBREW LETTER KAF WITH DAGESH 0FB3C HEBREW LETTER LAMED WITH DAGESH 0FB3E HEBREW LETTER MEM WITH DAGESH 0FB40 HEBREW LETTER NUN WITH DAGESH 0FB41 HEBREW LETTER SAMEKH WITH DAGESH 0FB43 HEBREW LETTER FINAL PE WITH DAGESH 0FB44 HEBREW LETTER PE WITH DAGESH 0FB46 HEBREW LETTER TSADI WITH DAGESH 0FB47 HEBREW LETTER QOF WITH DAGESH 0FB48 HEBREW LETTER RESH WITH DAGESH 0FB49 HEBREW LETTER SHIN WITH DAGESH 0FB4A HEBREW LETTER TAV WITH DAGESH 0FB4B HEBREW LETTER VAV WITH HOLAM 0FB4C HEBREW LETTER BET WITH RAFE 0FB4D HEBREW LETTER KAF WITH RAFE 0FB4E HEBREW LETTER PE WITH RAFE 0FB4F HEBREW LIGATURE ALEF LAMED 0FB50 ARABIC LETTER ALEF WASLA ISOLATED FORM 0FB51 ARABIC LETTER ALEF WASLA FINAL FORM 0FB52 ARABIC LETTER BEEH ISOLATED FORM 0FB53 ARABIC LETTER BEEH FINAL FORM 0FB54 ARABIC LETTER BEEH INITIAL FORM 0FB55 ARABIC LETTER BEEH MEDIAL FORM 0FB56 ARABIC LETTER PEH ISOLATED FORM 0FB57 ARABIC LETTER PEH FINAL FORM 0FB58 ARABIC LETTER PEH INITIAL FORM 0FB59 ARABIC LETTER PEH MEDIAL FORM 0FB5A ARABIC LETTER BEHEH ISOLATED FORM 0FB5B ARABIC LETTER BEHEH FINAL FORM 0FB5C ARABIC LETTER BEHEH INITIAL FORM 0FB5D ARABIC LETTER BEHEH MEDIAL FORM 0FB5E ARABIC LETTER TTEHEH ISOLATED FORM 0FB5F ARABIC LETTER TTEHEH FINAL FORM 0FB60 ARABIC LETTER TTEHEH INITIAL FORM 0FB61 ARABIC LETTER TTEHEH MEDIAL FORM 0FB62 ARABIC LETTER TEHEH ISOLATED FORM 0FB63 ARABIC LETTER TEHEH FINAL FORM 0FB64 ARABIC LETTER TEHEH INITIAL FORM 0FB65 ARABIC LETTER TEHEH MEDIAL FORM 0FB66 ARABIC LETTER TTEH ISOLATED FORM 0FB67 ARABIC LETTER TTEH FINAL FORM 0FB68 ARABIC LETTER TTEH INITIAL FORM 0FB69 ARABIC LETTER TTEH MEDIAL FORM 0FB6A ARABIC LETTER VEH ISOLATED FORM 0FB6B ARABIC LETTER VEH FINAL FORM 0FB6C ARABIC LETTER VEH INITIAL FORM 0FB6D ARABIC LETTER VEH MEDIAL FORM 0FB6E ARABIC LETTER PEHEH ISOLATED FORM 0FB6F ARABIC LETTER PEHEH FINAL FORM 0FB70 ARABIC LETTER PEHEH INITIAL FORM 0FB71 ARABIC LETTER PEHEH MEDIAL FORM 0FB72 ARABIC LETTER DYEH ISOLATED FORM 0FB73 ARABIC LETTER DYEH FINAL FORM 0FB74 ARABIC LETTER DYEH INITIAL FORM 0FB75 ARABIC LETTER DYEH MEDIAL FORM 0FB76 ARABIC LETTER NYEH ISOLATED FORM 0FB77 ARABIC LETTER NYEH FINAL FORM 0FB78 ARABIC LETTER NYEH INITIAL FORM 0FB79 ARABIC LETTER NYEH MEDIAL FORM 0FB7A ARABIC LETTER TCHEH ISOLATED FORM 0FB7B ARABIC LETTER TCHEH FINAL FORM 0FB7C ARABIC LETTER TCHEH INITIAL FORM 0FB7D ARABIC LETTER TCHEH MEDIAL FORM 0FB7E ARABIC LETTER TCHEHEH ISOLATED FORM 0FB7F ARABIC LETTER TCHEHEH FINAL FORM 0FB80 ARABIC LETTER TCHEHEH INITIAL FORM 0FB81 ARABIC LETTER TCHEHEH MEDIAL FORM 0FB82 ARABIC LETTER DDAHAL ISOLATED FORM 0FB83 ARABIC LETTER DDAHAL FINAL FORM 0FB84 ARABIC LETTER DAHAL ISOLATED FORM 0FB85 ARABIC LETTER DAHAL FINAL FORM 0FB86 ARABIC LETTER DUL ISOLATED FORM 0FB87 ARABIC LETTER DUL FINAL FORM 0FB88 ARABIC LETTER DDAL ISOLATED FORM 0FB89 ARABIC LETTER DDAL FINAL FORM 0FB8A ARABIC LETTER JEH ISOLATED FORM 0FB8B ARABIC LETTER JEH FINAL FORM 0FB8C ARABIC LETTER RREH ISOLATED FORM 0FB8D ARABIC LETTER RREH FINAL FORM 0FB8E ARABIC LETTER KEHEH ISOLATED FORM 0FB8F ARABIC LETTER KEHEH FINAL FORM 0FB90 ARABIC LETTER KEHEH INITIAL FORM 0FB91 ARABIC LETTER KEHEH MEDIAL FORM 0FB92 ARABIC LETTER GAF ISOLATED FORM 0FB93 ARABIC LETTER GAF FINAL FORM 0FB94 ARABIC LETTER GAF INITIAL FORM 0FB95 ARABIC LETTER GAF MEDIAL FORM 0FB96 ARABIC LETTER GUEH ISOLATED FORM 0FB97 ARABIC LETTER GUEH FINAL FORM 0FB98 ARABIC LETTER GUEH INITIAL FORM 0FB99 ARABIC LETTER GUEH MEDIAL FORM 0FB9A ARABIC LETTER NGOEH ISOLATED FORM 0FB9B ARABIC LETTER NGOEH FINAL FORM 0FB9C ARABIC LETTER NGOEH INITIAL FORM 0FB9D ARABIC LETTER NGOEH MEDIAL FORM 0FB9E ARABIC LETTER NOON GHUNNA ISOLATED FORM 0FB9F ARABIC LETTER NOON GHUNNA FINAL FORM 0FBA0 ARABIC LETTER RNOON ISOLATED FORM 0FBA1 ARABIC LETTER RNOON FINAL FORM 0FBA2 ARABIC LETTER RNOON INITIAL FORM 0FBA3 ARABIC LETTER RNOON MEDIAL FORM 0FBA4 ARABIC LETTER HEH WITH YEH ABOVE ISOLATED FORM 0FBA5 ARABIC LETTER HEH WITH YEH ABOVE FINAL FORM 0FBA6 ARABIC LETTER HEH GOAL ISOLATED FORM 0FBA7 ARABIC LETTER HEH GOAL FINAL FORM 0FBA8 ARABIC LETTER HEH GOAL INITIAL FORM 0FBA9 ARABIC LETTER HEH GOAL MEDIAL FORM 0FBAA ARABIC LETTER HEH DOACHASHMEE ISOLATED FORM 0FBAB ARABIC LETTER HEH DOACHASHMEE FINAL FORM 0FBAC ARABIC LETTER HEH DOACHASHMEE INITIAL FORM 0FBAD ARABIC LETTER HEH DOACHASHMEE MEDIAL FORM 0FBAE ARABIC LETTER YEH BARREE ISOLATED FORM 0FBAF ARABIC LETTER YEH BARREE FINAL FORM 0FBB0 ARABIC LETTER YEH BARREE WITH HAMZA ABOVE ISOLATED FORM 0FBB1 ARABIC LETTER YEH BARREE WITH HAMZA ABOVE FINAL FORM 0FBB2 ARABIC SYMBOL DOT ABOVE 0FBB3 ARABIC SYMBOL DOT BELOW 0FBB4 ARABIC SYMBOL TWO DOTS ABOVE 0FBB5 ARABIC SYMBOL TWO DOTS BELOW 0FBB6 ARABIC SYMBOL THREE DOTS ABOVE 0FBB7 ARABIC SYMBOL THREE DOTS BELOW 0FBB8 ARABIC SYMBOL THREE DOTS POINTING DOWNWARDS ABOVE 0FBB9 ARABIC SYMBOL THREE DOTS POINTING DOWNWARDS BELOW 0FBBA ARABIC SYMBOL FOUR DOTS ABOVE 0FBBB ARABIC SYMBOL FOUR DOTS BELOW 0FBBC ARABIC SYMBOL DOUBLE VERTICAL BAR BELOW 0FBBD ARABIC SYMBOL TWO DOTS VERTICALLY ABOVE 0FBBE ARABIC SYMBOL TWO DOTS VERTICALLY BELOW 0FBBF ARABIC SYMBOL RING 0FBC0 ARABIC SYMBOL SMALL TAH ABOVE 0FBC1 ARABIC SYMBOL SMALL TAH BELOW 0FBD3 ARABIC LETTER NG ISOLATED FORM 0FBD4 ARABIC LETTER NG FINAL FORM 0FBD5 ARABIC LETTER NG INITIAL FORM 0FBD6 ARABIC LETTER NG MEDIAL FORM 0FBD7 ARABIC LETTER U ISOLATED FORM 0FBD8 ARABIC LETTER U FINAL FORM 0FBD9 ARABIC LETTER OE ISOLATED FORM 0FBDA ARABIC LETTER OE FINAL FORM 0FBDB ARABIC LETTER YU ISOLATED FORM 0FBDC ARABIC LETTER YU FINAL FORM 0FBDD ARABIC LETTER U WITH HAMZA ABOVE ISOLATED FORM 0FBDE ARABIC LETTER VE ISOLATED FORM 0FBDF ARABIC LETTER VE FINAL FORM 0FBE0 ARABIC LETTER KIRGHIZ OE ISOLATED FORM 0FBE1 ARABIC LETTER KIRGHIZ OE FINAL FORM 0FBE2 ARABIC LETTER KIRGHIZ YU ISOLATED FORM 0FBE3 ARABIC LETTER KIRGHIZ YU FINAL FORM 0FBE4 ARABIC LETTER E ISOLATED FORM 0FBE5 ARABIC LETTER E FINAL FORM 0FBE6 ARABIC LETTER E INITIAL FORM 0FBE7 ARABIC LETTER E MEDIAL FORM 0FBE8 ARABIC LETTER UIGHUR KAZAKH KIRGHIZ ALEF MAKSURA INITIAL FORM 0FBE9 ARABIC LETTER UIGHUR KAZAKH KIRGHIZ ALEF MAKSURA MEDIAL FORM 0FBEA ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH ALEF ISOLATED FORM 0FBEB ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH ALEF FINAL FORM 0FBEC ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH AE ISOLATED FORM 0FBED ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH AE FINAL FORM 0FBEE ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH WAW ISOLATED FORM 0FBEF ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH WAW FINAL FORM 0FBF0 ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH U ISOLATED FORM 0FBF1 ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH U FINAL FORM 0FBF2 ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH OE ISOLATED FORM 0FBF3 ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH OE FINAL FORM 0FBF4 ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH YU ISOLATED FORM 0FBF5 ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH YU FINAL FORM 0FBF6 ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH E ISOLATED FORM 0FBF7 ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH E FINAL FORM 0FBF8 ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH E INITIAL FORM 0FBF9 ARABIC LIGATURE UIGHUR KIRGHIZ YEH WITH HAMZA ABOVE WITH ALEF MAKSURA ISOLATED FORM 0FBFA ARABIC LIGATURE UIGHUR KIRGHIZ YEH WITH HAMZA ABOVE WITH ALEF MAKSURA FINAL FORM 0FBFB ARABIC LIGATURE UIGHUR KIRGHIZ YEH WITH HAMZA ABOVE WITH ALEF MAKSURA INITIAL FORM 0FBFC ARABIC LETTER FARSI YEH ISOLATED FORM 0FBFD ARABIC LETTER FARSI YEH FINAL FORM 0FBFE ARABIC LETTER FARSI YEH INITIAL FORM 0FBFF ARABIC LETTER FARSI YEH MEDIAL FORM 0FC00 ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH JEEM ISOLATED FORM 0FC01 ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH HAH ISOLATED FORM 0FC02 ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH MEEM ISOLATED FORM 0FC03 ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH ALEF MAKSURA ISOLATED FORM 0FC04 ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH YEH ISOLATED FORM 0FC05 ARABIC LIGATURE BEH WITH JEEM ISOLATED FORM 0FC06 ARABIC LIGATURE BEH WITH HAH ISOLATED FORM 0FC07 ARABIC LIGATURE BEH WITH KHAH ISOLATED FORM 0FC08 ARABIC LIGATURE BEH WITH MEEM ISOLATED FORM 0FC09 ARABIC LIGATURE BEH WITH ALEF MAKSURA ISOLATED FORM 0FC0A ARABIC LIGATURE BEH WITH YEH ISOLATED FORM 0FC0B ARABIC LIGATURE TEH WITH JEEM ISOLATED FORM 0FC0C ARABIC LIGATURE TEH WITH HAH ISOLATED FORM 0FC0D ARABIC LIGATURE TEH WITH KHAH ISOLATED FORM 0FC0E ARABIC LIGATURE TEH WITH MEEM ISOLATED FORM 0FC0F ARABIC LIGATURE TEH WITH ALEF MAKSURA ISOLATED FORM 0FC10 ARABIC LIGATURE TEH WITH YEH ISOLATED FORM 0FC11 ARABIC LIGATURE THEH WITH JEEM ISOLATED FORM 0FC12 ARABIC LIGATURE THEH WITH MEEM ISOLATED FORM 0FC13 ARABIC LIGATURE THEH WITH ALEF MAKSURA ISOLATED FORM 0FC14 ARABIC LIGATURE THEH WITH YEH ISOLATED FORM 0FC15 ARABIC LIGATURE JEEM WITH HAH ISOLATED FORM 0FC16 ARABIC LIGATURE JEEM WITH MEEM ISOLATED FORM 0FC17 ARABIC LIGATURE HAH WITH JEEM ISOLATED FORM 0FC18 ARABIC LIGATURE HAH WITH MEEM ISOLATED FORM 0FC19 ARABIC LIGATURE KHAH WITH JEEM ISOLATED FORM 0FC1A ARABIC LIGATURE KHAH WITH HAH ISOLATED FORM 0FC1B ARABIC LIGATURE KHAH WITH MEEM ISOLATED FORM 0FC1C ARABIC LIGATURE SEEN WITH JEEM ISOLATED FORM 0FC1D ARABIC LIGATURE SEEN WITH HAH ISOLATED FORM 0FC1E ARABIC LIGATURE SEEN WITH KHAH ISOLATED FORM 0FC1F ARABIC LIGATURE SEEN WITH MEEM ISOLATED FORM 0FC20 ARABIC LIGATURE SAD WITH HAH ISOLATED FORM 0FC21 ARABIC LIGATURE SAD WITH MEEM ISOLATED FORM 0FC22 ARABIC LIGATURE DAD WITH JEEM ISOLATED FORM 0FC23 ARABIC LIGATURE DAD WITH HAH ISOLATED FORM 0FC24 ARABIC LIGATURE DAD WITH KHAH ISOLATED FORM 0FC25 ARABIC LIGATURE DAD WITH MEEM ISOLATED FORM 0FC26 ARABIC LIGATURE TAH WITH HAH ISOLATED FORM 0FC27 ARABIC LIGATURE TAH WITH MEEM ISOLATED FORM 0FC28 ARABIC LIGATURE ZAH WITH MEEM ISOLATED FORM 0FC29 ARABIC LIGATURE AIN WITH JEEM ISOLATED FORM 0FC2A ARABIC LIGATURE AIN WITH MEEM ISOLATED FORM 0FC2B ARABIC LIGATURE GHAIN WITH JEEM ISOLATED FORM 0FC2C ARABIC LIGATURE GHAIN WITH MEEM ISOLATED FORM 0FC2D ARABIC LIGATURE FEH WITH JEEM ISOLATED FORM 0FC2E ARABIC LIGATURE FEH WITH HAH ISOLATED FORM 0FC2F ARABIC LIGATURE FEH WITH KHAH ISOLATED FORM 0FC30 ARABIC LIGATURE FEH WITH MEEM ISOLATED FORM 0FC31 ARABIC LIGATURE FEH WITH ALEF MAKSURA ISOLATED FORM 0FC32 ARABIC LIGATURE FEH WITH YEH ISOLATED FORM 0FC33 ARABIC LIGATURE QAF WITH HAH ISOLATED FORM 0FC34 ARABIC LIGATURE QAF WITH MEEM ISOLATED FORM 0FC35 ARABIC LIGATURE QAF WITH ALEF MAKSURA ISOLATED FORM 0FC36 ARABIC LIGATURE QAF WITH YEH ISOLATED FORM 0FC37 ARABIC LIGATURE KAF WITH ALEF ISOLATED FORM 0FC38 ARABIC LIGATURE KAF WITH JEEM ISOLATED FORM 0FC39 ARABIC LIGATURE KAF WITH HAH ISOLATED FORM 0FC3A ARABIC LIGATURE KAF WITH KHAH ISOLATED FORM 0FC3B ARABIC LIGATURE KAF WITH LAM ISOLATED FORM 0FC3C ARABIC LIGATURE KAF WITH MEEM ISOLATED FORM 0FC3D ARABIC LIGATURE KAF WITH ALEF MAKSURA ISOLATED FORM 0FC3E ARABIC LIGATURE KAF WITH YEH ISOLATED FORM 0FC3F ARABIC LIGATURE LAM WITH JEEM ISOLATED FORM 0FC40 ARABIC LIGATURE LAM WITH HAH ISOLATED FORM 0FC41 ARABIC LIGATURE LAM WITH KHAH ISOLATED FORM 0FC42 ARABIC LIGATURE LAM WITH MEEM ISOLATED FORM 0FC43 ARABIC LIGATURE LAM WITH ALEF MAKSURA ISOLATED FORM 0FC44 ARABIC LIGATURE LAM WITH YEH ISOLATED FORM 0FC45 ARABIC LIGATURE MEEM WITH JEEM ISOLATED FORM 0FC46 ARABIC LIGATURE MEEM WITH HAH ISOLATED FORM 0FC47 ARABIC LIGATURE MEEM WITH KHAH ISOLATED FORM 0FC48 ARABIC LIGATURE MEEM WITH MEEM ISOLATED FORM 0FC49 ARABIC LIGATURE MEEM WITH ALEF MAKSURA ISOLATED FORM 0FC4A ARABIC LIGATURE MEEM WITH YEH ISOLATED FORM 0FC4B ARABIC LIGATURE NOON WITH JEEM ISOLATED FORM 0FC4C ARABIC LIGATURE NOON WITH HAH ISOLATED FORM 0FC4D ARABIC LIGATURE NOON WITH KHAH ISOLATED FORM 0FC4E ARABIC LIGATURE NOON WITH MEEM ISOLATED FORM 0FC4F ARABIC LIGATURE NOON WITH ALEF MAKSURA ISOLATED FORM 0FC50 ARABIC LIGATURE NOON WITH YEH ISOLATED FORM 0FC51 ARABIC LIGATURE HEH WITH JEEM ISOLATED FORM 0FC52 ARABIC LIGATURE HEH WITH MEEM ISOLATED FORM 0FC53 ARABIC LIGATURE HEH WITH ALEF MAKSURA ISOLATED FORM 0FC54 ARABIC LIGATURE HEH WITH YEH ISOLATED FORM 0FC55 ARABIC LIGATURE YEH WITH JEEM ISOLATED FORM 0FC56 ARABIC LIGATURE YEH WITH HAH ISOLATED FORM 0FC57 ARABIC LIGATURE YEH WITH KHAH ISOLATED FORM 0FC58 ARABIC LIGATURE YEH WITH MEEM ISOLATED FORM 0FC59 ARABIC LIGATURE YEH WITH ALEF MAKSURA ISOLATED FORM 0FC5A ARABIC LIGATURE YEH WITH YEH ISOLATED FORM 0FC5B ARABIC LIGATURE THAL WITH SUPERSCRIPT ALEF ISOLATED FORM 0FC5C ARABIC LIGATURE REH WITH SUPERSCRIPT ALEF ISOLATED FORM 0FC5D ARABIC LIGATURE ALEF MAKSURA WITH SUPERSCRIPT ALEF ISOLATED FORM 0FC5E ARABIC LIGATURE SHADDA WITH DAMMATAN ISOLATED FORM 0FC5F ARABIC LIGATURE SHADDA WITH KASRATAN ISOLATED FORM 0FC60 ARABIC LIGATURE SHADDA WITH FATHA ISOLATED FORM 0FC61 ARABIC LIGATURE SHADDA WITH DAMMA ISOLATED FORM 0FC62 ARABIC LIGATURE SHADDA WITH KASRA ISOLATED FORM 0FC63 ARABIC LIGATURE SHADDA WITH SUPERSCRIPT ALEF ISOLATED FORM 0FC64 ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH REH FINAL FORM 0FC65 ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH ZAIN FINAL FORM 0FC66 ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH MEEM FINAL FORM 0FC67 ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH NOON FINAL FORM 0FC68 ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH ALEF MAKSURA FINAL FORM 0FC69 ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH YEH FINAL FORM 0FC6A ARABIC LIGATURE BEH WITH REH FINAL FORM 0FC6B ARABIC LIGATURE BEH WITH ZAIN FINAL FORM 0FC6C ARABIC LIGATURE BEH WITH MEEM FINAL FORM 0FC6D ARABIC LIGATURE BEH WITH NOON FINAL FORM 0FC6E ARABIC LIGATURE BEH WITH ALEF MAKSURA FINAL FORM 0FC6F ARABIC LIGATURE BEH WITH YEH FINAL FORM 0FC70 ARABIC LIGATURE TEH WITH REH FINAL FORM 0FC71 ARABIC LIGATURE TEH WITH ZAIN FINAL FORM 0FC72 ARABIC LIGATURE TEH WITH MEEM FINAL FORM 0FC73 ARABIC LIGATURE TEH WITH NOON FINAL FORM 0FC74 ARABIC LIGATURE TEH WITH ALEF MAKSURA FINAL FORM 0FC75 ARABIC LIGATURE TEH WITH YEH FINAL FORM 0FC76 ARABIC LIGATURE THEH WITH REH FINAL FORM 0FC77 ARABIC LIGATURE THEH WITH ZAIN FINAL FORM 0FC78 ARABIC LIGATURE THEH WITH MEEM FINAL FORM 0FC79 ARABIC LIGATURE THEH WITH NOON FINAL FORM 0FC7A ARABIC LIGATURE THEH WITH ALEF MAKSURA FINAL FORM 0FC7B ARABIC LIGATURE THEH WITH YEH FINAL FORM 0FC7C ARABIC LIGATURE FEH WITH ALEF MAKSURA FINAL FORM 0FC7D ARABIC LIGATURE FEH WITH YEH FINAL FORM 0FC7E ARABIC LIGATURE QAF WITH ALEF MAKSURA FINAL FORM 0FC7F ARABIC LIGATURE QAF WITH YEH FINAL FORM 0FC80 ARABIC LIGATURE KAF WITH ALEF FINAL FORM 0FC81 ARABIC LIGATURE KAF WITH LAM FINAL FORM 0FC82 ARABIC LIGATURE KAF WITH MEEM FINAL FORM 0FC83 ARABIC LIGATURE KAF WITH ALEF MAKSURA FINAL FORM 0FC84 ARABIC LIGATURE KAF WITH YEH FINAL FORM 0FC85 ARABIC LIGATURE LAM WITH MEEM FINAL FORM 0FC86 ARABIC LIGATURE LAM WITH ALEF MAKSURA FINAL FORM 0FC87 ARABIC LIGATURE LAM WITH YEH FINAL FORM 0FC88 ARABIC LIGATURE MEEM WITH ALEF FINAL FORM 0FC89 ARABIC LIGATURE MEEM WITH MEEM FINAL FORM 0FC8A ARABIC LIGATURE NOON WITH REH FINAL FORM 0FC8B ARABIC LIGATURE NOON WITH ZAIN FINAL FORM 0FC8C ARABIC LIGATURE NOON WITH MEEM FINAL FORM 0FC8D ARABIC LIGATURE NOON WITH NOON FINAL FORM 0FC8E ARABIC LIGATURE NOON WITH ALEF MAKSURA FINAL FORM 0FC8F ARABIC LIGATURE NOON WITH YEH FINAL FORM 0FC90 ARABIC LIGATURE ALEF MAKSURA WITH SUPERSCRIPT ALEF FINAL FORM 0FC91 ARABIC LIGATURE YEH WITH REH FINAL FORM 0FC92 ARABIC LIGATURE YEH WITH ZAIN FINAL FORM 0FC93 ARABIC LIGATURE YEH WITH MEEM FINAL FORM 0FC94 ARABIC LIGATURE YEH WITH NOON FINAL FORM 0FC95 ARABIC LIGATURE YEH WITH ALEF MAKSURA FINAL FORM 0FC96 ARABIC LIGATURE YEH WITH YEH FINAL FORM 0FC97 ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH JEEM INITIAL FORM 0FC98 ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH HAH INITIAL FORM 0FC99 ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH KHAH INITIAL FORM 0FC9A ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH MEEM INITIAL FORM 0FC9B ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH HEH INITIAL FORM 0FC9C ARABIC LIGATURE BEH WITH JEEM INITIAL FORM 0FC9D ARABIC LIGATURE BEH WITH HAH INITIAL FORM 0FC9E ARABIC LIGATURE BEH WITH KHAH INITIAL FORM 0FC9F ARABIC LIGATURE BEH WITH MEEM INITIAL FORM 0FCA0 ARABIC LIGATURE BEH WITH HEH INITIAL FORM 0FCA1 ARABIC LIGATURE TEH WITH JEEM INITIAL FORM 0FCA2 ARABIC LIGATURE TEH WITH HAH INITIAL FORM 0FCA3 ARABIC LIGATURE TEH WITH KHAH INITIAL FORM 0FCA4 ARABIC LIGATURE TEH WITH MEEM INITIAL FORM 0FCA5 ARABIC LIGATURE TEH WITH HEH INITIAL FORM 0FCA6 ARABIC LIGATURE THEH WITH MEEM INITIAL FORM 0FCA7 ARABIC LIGATURE JEEM WITH HAH INITIAL FORM 0FCA8 ARABIC LIGATURE JEEM WITH MEEM INITIAL FORM 0FCA9 ARABIC LIGATURE HAH WITH JEEM INITIAL FORM 0FCAA ARABIC LIGATURE HAH WITH MEEM INITIAL FORM 0FCAB ARABIC LIGATURE KHAH WITH JEEM INITIAL FORM 0FCAC ARABIC LIGATURE KHAH WITH MEEM INITIAL FORM 0FCAD ARABIC LIGATURE SEEN WITH JEEM INITIAL FORM 0FCAE ARABIC LIGATURE SEEN WITH HAH INITIAL FORM 0FCAF ARABIC LIGATURE SEEN WITH KHAH INITIAL FORM 0FCB0 ARABIC LIGATURE SEEN WITH MEEM INITIAL FORM 0FCB1 ARABIC LIGATURE SAD WITH HAH INITIAL FORM 0FCB2 ARABIC LIGATURE SAD WITH KHAH INITIAL FORM 0FCB3 ARABIC LIGATURE SAD WITH MEEM INITIAL FORM 0FCB4 ARABIC LIGATURE DAD WITH JEEM INITIAL FORM 0FCB5 ARABIC LIGATURE DAD WITH HAH INITIAL FORM 0FCB6 ARABIC LIGATURE DAD WITH KHAH INITIAL FORM 0FCB7 ARABIC LIGATURE DAD WITH MEEM INITIAL FORM 0FCB8 ARABIC LIGATURE TAH WITH HAH INITIAL FORM 0FCB9 ARABIC LIGATURE ZAH WITH MEEM INITIAL FORM 0FCBA ARABIC LIGATURE AIN WITH JEEM INITIAL FORM 0FCBB ARABIC LIGATURE AIN WITH MEEM INITIAL FORM 0FCBC ARABIC LIGATURE GHAIN WITH JEEM INITIAL FORM 0FCBD ARABIC LIGATURE GHAIN WITH MEEM INITIAL FORM 0FCBE ARABIC LIGATURE FEH WITH JEEM INITIAL FORM 0FCBF ARABIC LIGATURE FEH WITH HAH INITIAL FORM 0FCC0 ARABIC LIGATURE FEH WITH KHAH INITIAL FORM 0FCC1 ARABIC LIGATURE FEH WITH MEEM INITIAL FORM 0FCC2 ARABIC LIGATURE QAF WITH HAH INITIAL FORM 0FCC3 ARABIC LIGATURE QAF WITH MEEM INITIAL FORM 0FCC4 ARABIC LIGATURE KAF WITH JEEM INITIAL FORM 0FCC5 ARABIC LIGATURE KAF WITH HAH INITIAL FORM 0FCC6 ARABIC LIGATURE KAF WITH KHAH INITIAL FORM 0FCC7 ARABIC LIGATURE KAF WITH LAM INITIAL FORM 0FCC8 ARABIC LIGATURE KAF WITH MEEM INITIAL FORM 0FCC9 ARABIC LIGATURE LAM WITH JEEM INITIAL FORM 0FCCA ARABIC LIGATURE LAM WITH HAH INITIAL FORM 0FCCB ARABIC LIGATURE LAM WITH KHAH INITIAL FORM 0FCCC ARABIC LIGATURE LAM WITH MEEM INITIAL FORM 0FCCD ARABIC LIGATURE LAM WITH HEH INITIAL FORM 0FCCE ARABIC LIGATURE MEEM WITH JEEM INITIAL FORM 0FCCF ARABIC LIGATURE MEEM WITH HAH INITIAL FORM 0FCD0 ARABIC LIGATURE MEEM WITH KHAH INITIAL FORM 0FCD1 ARABIC LIGATURE MEEM WITH MEEM INITIAL FORM 0FCD2 ARABIC LIGATURE NOON WITH JEEM INITIAL FORM 0FCD3 ARABIC LIGATURE NOON WITH HAH INITIAL FORM 0FCD4 ARABIC LIGATURE NOON WITH KHAH INITIAL FORM 0FCD5 ARABIC LIGATURE NOON WITH MEEM INITIAL FORM 0FCD6 ARABIC LIGATURE NOON WITH HEH INITIAL FORM 0FCD7 ARABIC LIGATURE HEH WITH JEEM INITIAL FORM 0FCD8 ARABIC LIGATURE HEH WITH MEEM INITIAL FORM 0FCD9 ARABIC LIGATURE HEH WITH SUPERSCRIPT ALEF INITIAL FORM 0FCDA ARABIC LIGATURE YEH WITH JEEM INITIAL FORM 0FCDB ARABIC LIGATURE YEH WITH HAH INITIAL FORM 0FCDC ARABIC LIGATURE YEH WITH KHAH INITIAL FORM 0FCDD ARABIC LIGATURE YEH WITH MEEM INITIAL FORM 0FCDE ARABIC LIGATURE YEH WITH HEH INITIAL FORM 0FCDF ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH MEEM MEDIAL FORM 0FCE0 ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH HEH MEDIAL FORM 0FCE1 ARABIC LIGATURE BEH WITH MEEM MEDIAL FORM 0FCE2 ARABIC LIGATURE BEH WITH HEH MEDIAL FORM 0FCE3 ARABIC LIGATURE TEH WITH MEEM MEDIAL FORM 0FCE4 ARABIC LIGATURE TEH WITH HEH MEDIAL FORM 0FCE5 ARABIC LIGATURE THEH WITH MEEM MEDIAL FORM 0FCE6 ARABIC LIGATURE THEH WITH HEH MEDIAL FORM 0FCE7 ARABIC LIGATURE SEEN WITH MEEM MEDIAL FORM 0FCE8 ARABIC LIGATURE SEEN WITH HEH MEDIAL FORM 0FCE9 ARABIC LIGATURE SHEEN WITH MEEM MEDIAL FORM 0FCEA ARABIC LIGATURE SHEEN WITH HEH MEDIAL FORM 0FCEB ARABIC LIGATURE KAF WITH LAM MEDIAL FORM 0FCEC ARABIC LIGATURE KAF WITH MEEM MEDIAL FORM 0FCED ARABIC LIGATURE LAM WITH MEEM MEDIAL FORM 0FCEE ARABIC LIGATURE NOON WITH MEEM MEDIAL FORM 0FCEF ARABIC LIGATURE NOON WITH HEH MEDIAL FORM 0FCF0 ARABIC LIGATURE YEH WITH MEEM MEDIAL FORM 0FCF1 ARABIC LIGATURE YEH WITH HEH MEDIAL FORM 0FCF2 ARABIC LIGATURE SHADDA WITH FATHA MEDIAL FORM 0FCF3 ARABIC LIGATURE SHADDA WITH DAMMA MEDIAL FORM 0FCF4 ARABIC LIGATURE SHADDA WITH KASRA MEDIAL FORM 0FCF5 ARABIC LIGATURE TAH WITH ALEF MAKSURA ISOLATED FORM 0FCF6 ARABIC LIGATURE TAH WITH YEH ISOLATED FORM 0FCF7 ARABIC LIGATURE AIN WITH ALEF MAKSURA ISOLATED FORM 0FCF8 ARABIC LIGATURE AIN WITH YEH ISOLATED FORM 0FCF9 ARABIC LIGATURE GHAIN WITH ALEF MAKSURA ISOLATED FORM 0FCFA ARABIC LIGATURE GHAIN WITH YEH ISOLATED FORM 0FCFB ARABIC LIGATURE SEEN WITH ALEF MAKSURA ISOLATED FORM 0FCFC ARABIC LIGATURE SEEN WITH YEH ISOLATED FORM 0FCFD ARABIC LIGATURE SHEEN WITH ALEF MAKSURA ISOLATED FORM 0FCFE ARABIC LIGATURE SHEEN WITH YEH ISOLATED FORM 0FCFF ARABIC LIGATURE HAH WITH ALEF MAKSURA ISOLATED FORM 0FD00 ARABIC LIGATURE HAH WITH YEH ISOLATED FORM 0FD01 ARABIC LIGATURE JEEM WITH ALEF MAKSURA ISOLATED FORM 0FD02 ARABIC LIGATURE JEEM WITH YEH ISOLATED FORM 0FD03 ARABIC LIGATURE KHAH WITH ALEF MAKSURA ISOLATED FORM 0FD04 ARABIC LIGATURE KHAH WITH YEH ISOLATED FORM 0FD05 ARABIC LIGATURE SAD WITH ALEF MAKSURA ISOLATED FORM 0FD06 ARABIC LIGATURE SAD WITH YEH ISOLATED FORM 0FD07 ARABIC LIGATURE DAD WITH ALEF MAKSURA ISOLATED FORM 0FD08 ARABIC LIGATURE DAD WITH YEH ISOLATED FORM 0FD09 ARABIC LIGATURE SHEEN WITH JEEM ISOLATED FORM 0FD0A ARABIC LIGATURE SHEEN WITH HAH ISOLATED FORM 0FD0B ARABIC LIGATURE SHEEN WITH KHAH ISOLATED FORM 0FD0C ARABIC LIGATURE SHEEN WITH MEEM ISOLATED FORM 0FD0D ARABIC LIGATURE SHEEN WITH REH ISOLATED FORM 0FD0E ARABIC LIGATURE SEEN WITH REH ISOLATED FORM 0FD0F ARABIC LIGATURE SAD WITH REH ISOLATED FORM 0FD10 ARABIC LIGATURE DAD WITH REH ISOLATED FORM 0FD11 ARABIC LIGATURE TAH WITH ALEF MAKSURA FINAL FORM 0FD12 ARABIC LIGATURE TAH WITH YEH FINAL FORM 0FD13 ARABIC LIGATURE AIN WITH ALEF MAKSURA FINAL FORM 0FD14 ARABIC LIGATURE AIN WITH YEH FINAL FORM 0FD15 ARABIC LIGATURE GHAIN WITH ALEF MAKSURA FINAL FORM 0FD16 ARABIC LIGATURE GHAIN WITH YEH FINAL FORM 0FD17 ARABIC LIGATURE SEEN WITH ALEF MAKSURA FINAL FORM 0FD18 ARABIC LIGATURE SEEN WITH YEH FINAL FORM 0FD19 ARABIC LIGATURE SHEEN WITH ALEF MAKSURA FINAL FORM 0FD1A ARABIC LIGATURE SHEEN WITH YEH FINAL FORM 0FD1B ARABIC LIGATURE HAH WITH ALEF MAKSURA FINAL FORM 0FD1C ARABIC LIGATURE HAH WITH YEH FINAL FORM 0FD1D ARABIC LIGATURE JEEM WITH ALEF MAKSURA FINAL FORM 0FD1E ARABIC LIGATURE JEEM WITH YEH FINAL FORM 0FD1F ARABIC LIGATURE KHAH WITH ALEF MAKSURA FINAL FORM 0FD20 ARABIC LIGATURE KHAH WITH YEH FINAL FORM 0FD21 ARABIC LIGATURE SAD WITH ALEF MAKSURA FINAL FORM 0FD22 ARABIC LIGATURE SAD WITH YEH FINAL FORM 0FD23 ARABIC LIGATURE DAD WITH ALEF MAKSURA FINAL FORM 0FD24 ARABIC LIGATURE DAD WITH YEH FINAL FORM 0FD25 ARABIC LIGATURE SHEEN WITH JEEM FINAL FORM 0FD26 ARABIC LIGATURE SHEEN WITH HAH FINAL FORM 0FD27 ARABIC LIGATURE SHEEN WITH KHAH FINAL FORM 0FD28 ARABIC LIGATURE SHEEN WITH MEEM FINAL FORM 0FD29 ARABIC LIGATURE SHEEN WITH REH FINAL FORM 0FD2A ARABIC LIGATURE SEEN WITH REH FINAL FORM 0FD2B ARABIC LIGATURE SAD WITH REH FINAL FORM 0FD2C ARABIC LIGATURE DAD WITH REH FINAL FORM 0FD2D ARABIC LIGATURE SHEEN WITH JEEM INITIAL FORM 0FD2E ARABIC LIGATURE SHEEN WITH HAH INITIAL FORM 0FD2F ARABIC LIGATURE SHEEN WITH KHAH INITIAL FORM 0FD30 ARABIC LIGATURE SHEEN WITH MEEM INITIAL FORM 0FD31 ARABIC LIGATURE SEEN WITH HEH INITIAL FORM 0FD32 ARABIC LIGATURE SHEEN WITH HEH INITIAL FORM 0FD33 ARABIC LIGATURE TAH WITH MEEM INITIAL FORM 0FD34 ARABIC LIGATURE SEEN WITH JEEM MEDIAL FORM 0FD35 ARABIC LIGATURE SEEN WITH HAH MEDIAL FORM 0FD36 ARABIC LIGATURE SEEN WITH KHAH MEDIAL FORM 0FD37 ARABIC LIGATURE SHEEN WITH JEEM MEDIAL FORM 0FD38 ARABIC LIGATURE SHEEN WITH HAH MEDIAL FORM 0FD39 ARABIC LIGATURE SHEEN WITH KHAH MEDIAL FORM 0FD3A ARABIC LIGATURE TAH WITH MEEM MEDIAL FORM 0FD3B ARABIC LIGATURE ZAH WITH MEEM MEDIAL FORM 0FD3C ARABIC LIGATURE ALEF WITH FATHATAN FINAL FORM 0FD3D ARABIC LIGATURE ALEF WITH FATHATAN ISOLATED FORM 0FD3E ORNATE LEFT PARENTHESIS 0FD3F ORNATE RIGHT PARENTHESIS 0FD50 ARABIC LIGATURE TEH WITH JEEM WITH MEEM INITIAL FORM 0FD51 ARABIC LIGATURE TEH WITH HAH WITH JEEM FINAL FORM 0FD52 ARABIC LIGATURE TEH WITH HAH WITH JEEM INITIAL FORM 0FD53 ARABIC LIGATURE TEH WITH HAH WITH MEEM INITIAL FORM 0FD54 ARABIC LIGATURE TEH WITH KHAH WITH MEEM INITIAL FORM 0FD55 ARABIC LIGATURE TEH WITH MEEM WITH JEEM INITIAL FORM 0FD56 ARABIC LIGATURE TEH WITH MEEM WITH HAH INITIAL FORM 0FD57 ARABIC LIGATURE TEH WITH MEEM WITH KHAH INITIAL FORM 0FD58 ARABIC LIGATURE JEEM WITH MEEM WITH HAH FINAL FORM 0FD59 ARABIC LIGATURE JEEM WITH MEEM WITH HAH INITIAL FORM 0FD5A ARABIC LIGATURE HAH WITH MEEM WITH YEH FINAL FORM 0FD5B ARABIC LIGATURE HAH WITH MEEM WITH ALEF MAKSURA FINAL FORM 0FD5C ARABIC LIGATURE SEEN WITH HAH WITH JEEM INITIAL FORM 0FD5D ARABIC LIGATURE SEEN WITH JEEM WITH HAH INITIAL FORM 0FD5E ARABIC LIGATURE SEEN WITH JEEM WITH ALEF MAKSURA FINAL FORM 0FD5F ARABIC LIGATURE SEEN WITH MEEM WITH HAH FINAL FORM 0FD60 ARABIC LIGATURE SEEN WITH MEEM WITH HAH INITIAL FORM 0FD61 ARABIC LIGATURE SEEN WITH MEEM WITH JEEM INITIAL FORM 0FD62 ARABIC LIGATURE SEEN WITH MEEM WITH MEEM FINAL FORM 0FD63 ARABIC LIGATURE SEEN WITH MEEM WITH MEEM INITIAL FORM 0FD64 ARABIC LIGATURE SAD WITH HAH WITH HAH FINAL FORM 0FD65 ARABIC LIGATURE SAD WITH HAH WITH HAH INITIAL FORM 0FD66 ARABIC LIGATURE SAD WITH MEEM WITH MEEM FINAL FORM 0FD67 ARABIC LIGATURE SHEEN WITH HAH WITH MEEM FINAL FORM 0FD68 ARABIC LIGATURE SHEEN WITH HAH WITH MEEM INITIAL FORM 0FD69 ARABIC LIGATURE SHEEN WITH JEEM WITH YEH FINAL FORM 0FD6A ARABIC LIGATURE SHEEN WITH MEEM WITH KHAH FINAL FORM 0FD6B ARABIC LIGATURE SHEEN WITH MEEM WITH KHAH INITIAL FORM 0FD6C ARABIC LIGATURE SHEEN WITH MEEM WITH MEEM FINAL FORM 0FD6D ARABIC LIGATURE SHEEN WITH MEEM WITH MEEM INITIAL FORM 0FD6E ARABIC LIGATURE DAD WITH HAH WITH ALEF MAKSURA FINAL FORM 0FD6F ARABIC LIGATURE DAD WITH KHAH WITH MEEM FINAL FORM 0FD70 ARABIC LIGATURE DAD WITH KHAH WITH MEEM INITIAL FORM 0FD71 ARABIC LIGATURE TAH WITH MEEM WITH HAH FINAL FORM 0FD72 ARABIC LIGATURE TAH WITH MEEM WITH HAH INITIAL FORM 0FD73 ARABIC LIGATURE TAH WITH MEEM WITH MEEM INITIAL FORM 0FD74 ARABIC LIGATURE TAH WITH MEEM WITH YEH FINAL FORM 0FD75 ARABIC LIGATURE AIN WITH JEEM WITH MEEM FINAL FORM 0FD76 ARABIC LIGATURE AIN WITH MEEM WITH MEEM FINAL FORM 0FD77 ARABIC LIGATURE AIN WITH MEEM WITH MEEM INITIAL FORM 0FD78 ARABIC LIGATURE AIN WITH MEEM WITH ALEF MAKSURA FINAL FORM 0FD79 ARABIC LIGATURE GHAIN WITH MEEM WITH MEEM FINAL FORM 0FD7A ARABIC LIGATURE GHAIN WITH MEEM WITH YEH FINAL FORM 0FD7B ARABIC LIGATURE GHAIN WITH MEEM WITH ALEF MAKSURA FINAL FORM 0FD7C ARABIC LIGATURE FEH WITH KHAH WITH MEEM FINAL FORM 0FD7D ARABIC LIGATURE FEH WITH KHAH WITH MEEM INITIAL FORM 0FD7E ARABIC LIGATURE QAF WITH MEEM WITH HAH FINAL FORM 0FD7F ARABIC LIGATURE QAF WITH MEEM WITH MEEM FINAL FORM 0FD80 ARABIC LIGATURE LAM WITH HAH WITH MEEM FINAL FORM 0FD81 ARABIC LIGATURE LAM WITH HAH WITH YEH FINAL FORM 0FD82 ARABIC LIGATURE LAM WITH HAH WITH ALEF MAKSURA FINAL FORM 0FD83 ARABIC LIGATURE LAM WITH JEEM WITH JEEM INITIAL FORM 0FD84 ARABIC LIGATURE LAM WITH JEEM WITH JEEM FINAL FORM 0FD85 ARABIC LIGATURE LAM WITH KHAH WITH MEEM FINAL FORM 0FD86 ARABIC LIGATURE LAM WITH KHAH WITH MEEM INITIAL FORM 0FD87 ARABIC LIGATURE LAM WITH MEEM WITH HAH FINAL FORM 0FD88 ARABIC LIGATURE LAM WITH MEEM WITH HAH INITIAL FORM 0FD89 ARABIC LIGATURE MEEM WITH HAH WITH JEEM INITIAL FORM 0FD8A ARABIC LIGATURE MEEM WITH HAH WITH MEEM INITIAL FORM 0FD8B ARABIC LIGATURE MEEM WITH HAH WITH YEH FINAL FORM 0FD8C ARABIC LIGATURE MEEM WITH JEEM WITH HAH INITIAL FORM 0FD8D ARABIC LIGATURE MEEM WITH JEEM WITH MEEM INITIAL FORM 0FD8E ARABIC LIGATURE MEEM WITH KHAH WITH JEEM INITIAL FORM 0FD8F ARABIC LIGATURE MEEM WITH KHAH WITH MEEM INITIAL FORM 0FD92 ARABIC LIGATURE MEEM WITH JEEM WITH KHAH INITIAL FORM 0FD93 ARABIC LIGATURE HEH WITH MEEM WITH JEEM INITIAL FORM 0FD94 ARABIC LIGATURE HEH WITH MEEM WITH MEEM INITIAL FORM 0FD95 ARABIC LIGATURE NOON WITH HAH WITH MEEM INITIAL FORM 0FD96 ARABIC LIGATURE NOON WITH HAH WITH ALEF MAKSURA FINAL FORM 0FD97 ARABIC LIGATURE NOON WITH JEEM WITH MEEM FINAL FORM 0FD98 ARABIC LIGATURE NOON WITH JEEM WITH MEEM INITIAL FORM 0FD99 ARABIC LIGATURE NOON WITH JEEM WITH ALEF MAKSURA FINAL FORM 0FD9A ARABIC LIGATURE NOON WITH MEEM WITH YEH FINAL FORM 0FD9B ARABIC LIGATURE NOON WITH MEEM WITH ALEF MAKSURA FINAL FORM 0FD9C ARABIC LIGATURE YEH WITH MEEM WITH MEEM FINAL FORM 0FD9D ARABIC LIGATURE YEH WITH MEEM WITH MEEM INITIAL FORM 0FD9E ARABIC LIGATURE BEH WITH KHAH WITH YEH FINAL FORM 0FD9F ARABIC LIGATURE TEH WITH JEEM WITH YEH FINAL FORM 0FDA0 ARABIC LIGATURE TEH WITH JEEM WITH ALEF MAKSURA FINAL FORM 0FDA1 ARABIC LIGATURE TEH WITH KHAH WITH YEH FINAL FORM 0FDA2 ARABIC LIGATURE TEH WITH KHAH WITH ALEF MAKSURA FINAL FORM 0FDA3 ARABIC LIGATURE TEH WITH MEEM WITH YEH FINAL FORM 0FDA4 ARABIC LIGATURE TEH WITH MEEM WITH ALEF MAKSURA FINAL FORM 0FDA5 ARABIC LIGATURE JEEM WITH MEEM WITH YEH FINAL FORM 0FDA6 ARABIC LIGATURE JEEM WITH HAH WITH ALEF MAKSURA FINAL FORM 0FDA7 ARABIC LIGATURE JEEM WITH MEEM WITH ALEF MAKSURA FINAL FORM 0FDA8 ARABIC LIGATURE SEEN WITH KHAH WITH ALEF MAKSURA FINAL FORM 0FDA9 ARABIC LIGATURE SAD WITH HAH WITH YEH FINAL FORM 0FDAA ARABIC LIGATURE SHEEN WITH HAH WITH YEH FINAL FORM 0FDAB ARABIC LIGATURE DAD WITH HAH WITH YEH FINAL FORM 0FDAC ARABIC LIGATURE LAM WITH JEEM WITH YEH FINAL FORM 0FDAD ARABIC LIGATURE LAM WITH MEEM WITH YEH FINAL FORM 0FDAE ARABIC LIGATURE YEH WITH HAH WITH YEH FINAL FORM 0FDAF ARABIC LIGATURE YEH WITH JEEM WITH YEH FINAL FORM 0FDB0 ARABIC LIGATURE YEH WITH MEEM WITH YEH FINAL FORM 0FDB1 ARABIC LIGATURE MEEM WITH MEEM WITH YEH FINAL FORM 0FDB2 ARABIC LIGATURE QAF WITH MEEM WITH YEH FINAL FORM 0FDB3 ARABIC LIGATURE NOON WITH HAH WITH YEH FINAL FORM 0FDB4 ARABIC LIGATURE QAF WITH MEEM WITH HAH INITIAL FORM 0FDB5 ARABIC LIGATURE LAM WITH HAH WITH MEEM INITIAL FORM 0FDB6 ARABIC LIGATURE AIN WITH MEEM WITH YEH FINAL FORM 0FDB7 ARABIC LIGATURE KAF WITH MEEM WITH YEH FINAL FORM 0FDB8 ARABIC LIGATURE NOON WITH JEEM WITH HAH INITIAL FORM 0FDB9 ARABIC LIGATURE MEEM WITH KHAH WITH YEH FINAL FORM 0FDBA ARABIC LIGATURE LAM WITH JEEM WITH MEEM INITIAL FORM 0FDBB ARABIC LIGATURE KAF WITH MEEM WITH MEEM FINAL FORM 0FDBC ARABIC LIGATURE LAM WITH JEEM WITH MEEM FINAL FORM 0FDBD ARABIC LIGATURE NOON WITH JEEM WITH HAH FINAL FORM 0FDBE ARABIC LIGATURE JEEM WITH HAH WITH YEH FINAL FORM 0FDBF ARABIC LIGATURE HAH WITH JEEM WITH YEH FINAL FORM 0FDC0 ARABIC LIGATURE MEEM WITH JEEM WITH YEH FINAL FORM 0FDC1 ARABIC LIGATURE FEH WITH MEEM WITH YEH FINAL FORM 0FDC2 ARABIC LIGATURE BEH WITH HAH WITH YEH FINAL FORM 0FDC3 ARABIC LIGATURE KAF WITH MEEM WITH MEEM INITIAL FORM 0FDC4 ARABIC LIGATURE AIN WITH JEEM WITH MEEM INITIAL FORM 0FDC5 ARABIC LIGATURE SAD WITH MEEM WITH MEEM INITIAL FORM 0FDC6 ARABIC LIGATURE SEEN WITH KHAH WITH YEH FINAL FORM 0FDC7 ARABIC LIGATURE NOON WITH JEEM WITH YEH FINAL FORM 0FDF0 ARABIC LIGATURE SALLA USED AS KORANIC STOP SIGN ISOLATED FORM 0FDF1 ARABIC LIGATURE QALA USED AS KORANIC STOP SIGN ISOLATED FORM 0FDF2 ARABIC LIGATURE ALLAH ISOLATED FORM 0FDF3 ARABIC LIGATURE AKBAR ISOLATED FORM 0FDF4 ARABIC LIGATURE MOHAMMAD ISOLATED FORM 0FDF5 ARABIC LIGATURE SALAM ISOLATED FORM 0FDF6 ARABIC LIGATURE RASOUL ISOLATED FORM 0FDF7 ARABIC LIGATURE ALAYHE ISOLATED FORM 0FDF8 ARABIC LIGATURE WASALLAM ISOLATED FORM 0FDF9 ARABIC LIGATURE SALLA ISOLATED FORM 0FDFA ARABIC LIGATURE SALLALLAHOU ALAYHE WASALLAM 0FDFB ARABIC LIGATURE JALLAJALALOUHOU 0FDFC RIAL SIGN 0FDFD ARABIC LIGATURE BISMILLAH AR-RAHMAN AR-RAHEEM 0FE00 VARIATION SELECTOR-1 0FE00 VS1 0FE01 VARIATION SELECTOR-2 0FE01 VS2 0FE02 VARIATION SELECTOR-3 0FE02 VS3 0FE03 VARIATION SELECTOR-4 0FE03 VS4 0FE04 VARIATION SELECTOR-5 0FE04 VS5 0FE05 VARIATION SELECTOR-6 0FE05 VS6 0FE06 VARIATION SELECTOR-7 0FE06 VS7 0FE07 VARIATION SELECTOR-8 0FE07 VS8 0FE08 VARIATION SELECTOR-9 0FE08 VS9 0FE09 VARIATION SELECTOR-10 0FE09 VS10 0FE0A VARIATION SELECTOR-11 0FE0A VS11 0FE0B VARIATION SELECTOR-12 0FE0B VS12 0FE0C VARIATION SELECTOR-13 0FE0C VS13 0FE0D VARIATION SELECTOR-14 0FE0D VS14 0FE0E VARIATION SELECTOR-15 0FE0E VS15 0FE0F VARIATION SELECTOR-16 0FE0F VS16 0FE10 PRESENTATION FORM FOR VERTICAL COMMA 0FE11 PRESENTATION FORM FOR VERTICAL IDEOGRAPHIC COMMA 0FE12 PRESENTATION FORM FOR VERTICAL IDEOGRAPHIC FULL STOP 0FE13 PRESENTATION FORM FOR VERTICAL COLON 0FE14 PRESENTATION FORM FOR VERTICAL SEMICOLON 0FE15 PRESENTATION FORM FOR VERTICAL EXCLAMATION MARK 0FE16 PRESENTATION FORM FOR VERTICAL QUESTION MARK 0FE17 PRESENTATION FORM FOR VERTICAL LEFT WHITE LENTICULAR BRACKET 0FE18 PRESENTATION FORM FOR VERTICAL RIGHT WHITE LENTICULAR BRACKET 0FE18 PRESENTATION FORM FOR VERTICAL RIGHT WHITE LENTICULAR BRAKCET 0FE19 PRESENTATION FORM FOR VERTICAL HORIZONTAL ELLIPSIS 0FE20 COMBINING LIGATURE LEFT HALF 0FE21 COMBINING LIGATURE RIGHT HALF 0FE22 COMBINING DOUBLE TILDE LEFT HALF 0FE23 COMBINING DOUBLE TILDE RIGHT HALF 0FE24 COMBINING MACRON LEFT HALF 0FE25 COMBINING MACRON RIGHT HALF 0FE26 COMBINING CONJOINING MACRON 0FE27 COMBINING LIGATURE LEFT HALF BELOW 0FE28 COMBINING LIGATURE RIGHT HALF BELOW 0FE29 COMBINING TILDE LEFT HALF BELOW 0FE2A COMBINING TILDE RIGHT HALF BELOW 0FE2B COMBINING MACRON LEFT HALF BELOW 0FE2C COMBINING MACRON RIGHT HALF BELOW 0FE2D COMBINING CONJOINING MACRON BELOW 0FE2E COMBINING CYRILLIC TITLO LEFT HALF 0FE2F COMBINING CYRILLIC TITLO RIGHT HALF 0FE30 PRESENTATION FORM FOR VERTICAL TWO DOT LEADER 0FE31 PRESENTATION FORM FOR VERTICAL EM DASH 0FE32 PRESENTATION FORM FOR VERTICAL EN DASH 0FE33 PRESENTATION FORM FOR VERTICAL LOW LINE 0FE34 PRESENTATION FORM FOR VERTICAL WAVY LOW LINE 0FE35 PRESENTATION FORM FOR VERTICAL LEFT PARENTHESIS 0FE36 PRESENTATION FORM FOR VERTICAL RIGHT PARENTHESIS 0FE37 PRESENTATION FORM FOR VERTICAL LEFT CURLY BRACKET 0FE38 PRESENTATION FORM FOR VERTICAL RIGHT CURLY BRACKET 0FE39 PRESENTATION FORM FOR VERTICAL LEFT TORTOISE SHELL BRACKET 0FE3A PRESENTATION FORM FOR VERTICAL RIGHT TORTOISE SHELL BRACKET 0FE3B PRESENTATION FORM FOR VERTICAL LEFT BLACK LENTICULAR BRACKET 0FE3C PRESENTATION FORM FOR VERTICAL RIGHT BLACK LENTICULAR BRACKET 0FE3D PRESENTATION FORM FOR VERTICAL LEFT DOUBLE ANGLE BRACKET 0FE3E PRESENTATION FORM FOR VERTICAL RIGHT DOUBLE ANGLE BRACKET 0FE3F PRESENTATION FORM FOR VERTICAL LEFT ANGLE BRACKET 0FE40 PRESENTATION FORM FOR VERTICAL RIGHT ANGLE BRACKET 0FE41 PRESENTATION FORM FOR VERTICAL LEFT CORNER BRACKET 0FE42 PRESENTATION FORM FOR VERTICAL RIGHT CORNER BRACKET 0FE43 PRESENTATION FORM FOR VERTICAL LEFT WHITE CORNER BRACKET 0FE44 PRESENTATION FORM FOR VERTICAL RIGHT WHITE CORNER BRACKET 0FE45 SESAME DOT 0FE46 WHITE SESAME DOT 0FE47 PRESENTATION FORM FOR VERTICAL LEFT SQUARE BRACKET 0FE48 PRESENTATION FORM FOR VERTICAL RIGHT SQUARE BRACKET 0FE49 DASHED OVERLINE 0FE4A CENTRELINE OVERLINE 0FE4B WAVY OVERLINE 0FE4C DOUBLE WAVY OVERLINE 0FE4D DASHED LOW LINE 0FE4E CENTRELINE LOW LINE 0FE4F WAVY LOW LINE 0FE50 SMALL COMMA 0FE51 SMALL IDEOGRAPHIC COMMA 0FE52 SMALL FULL STOP 0FE54 SMALL SEMICOLON 0FE55 SMALL COLON 0FE56 SMALL QUESTION MARK 0FE57 SMALL EXCLAMATION MARK 0FE58 SMALL EM DASH 0FE59 SMALL LEFT PARENTHESIS 0FE5A SMALL RIGHT PARENTHESIS 0FE5B SMALL LEFT CURLY BRACKET 0FE5C SMALL RIGHT CURLY BRACKET 0FE5D SMALL LEFT TORTOISE SHELL BRACKET 0FE5E SMALL RIGHT TORTOISE SHELL BRACKET 0FE5F SMALL NUMBER SIGN 0FE60 SMALL AMPERSAND 0FE61 SMALL ASTERISK 0FE62 SMALL PLUS SIGN 0FE63 SMALL HYPHEN-MINUS 0FE64 SMALL LESS-THAN SIGN 0FE65 SMALL GREATER-THAN SIGN 0FE66 SMALL EQUALS SIGN 0FE68 SMALL REVERSE SOLIDUS 0FE69 SMALL DOLLAR SIGN 0FE6A SMALL PERCENT SIGN 0FE6B SMALL COMMERCIAL AT 0FE70 ARABIC FATHATAN ISOLATED FORM 0FE71 ARABIC TATWEEL WITH FATHATAN ABOVE 0FE72 ARABIC DAMMATAN ISOLATED FORM 0FE73 ARABIC TAIL FRAGMENT 0FE74 ARABIC KASRATAN ISOLATED FORM 0FE76 ARABIC FATHA ISOLATED FORM 0FE77 ARABIC FATHA MEDIAL FORM 0FE78 ARABIC DAMMA ISOLATED FORM 0FE79 ARABIC DAMMA MEDIAL FORM 0FE7A ARABIC KASRA ISOLATED FORM 0FE7B ARABIC KASRA MEDIAL FORM 0FE7C ARABIC SHADDA ISOLATED FORM 0FE7D ARABIC SHADDA MEDIAL FORM 0FE7E ARABIC SUKUN ISOLATED FORM 0FE7F ARABIC SUKUN MEDIAL FORM 0FE80 ARABIC LETTER HAMZA ISOLATED FORM 0FE81 ARABIC LETTER ALEF WITH MADDA ABOVE ISOLATED FORM 0FE82 ARABIC LETTER ALEF WITH MADDA ABOVE FINAL FORM 0FE83 ARABIC LETTER ALEF WITH HAMZA ABOVE ISOLATED FORM 0FE84 ARABIC LETTER ALEF WITH HAMZA ABOVE FINAL FORM 0FE85 ARABIC LETTER WAW WITH HAMZA ABOVE ISOLATED FORM 0FE86 ARABIC LETTER WAW WITH HAMZA ABOVE FINAL FORM 0FE87 ARABIC LETTER ALEF WITH HAMZA BELOW ISOLATED FORM 0FE88 ARABIC LETTER ALEF WITH HAMZA BELOW FINAL FORM 0FE89 ARABIC LETTER YEH WITH HAMZA ABOVE ISOLATED FORM 0FE8A ARABIC LETTER YEH WITH HAMZA ABOVE FINAL FORM 0FE8B ARABIC LETTER YEH WITH HAMZA ABOVE INITIAL FORM 0FE8C ARABIC LETTER YEH WITH HAMZA ABOVE MEDIAL FORM 0FE8D ARABIC LETTER ALEF ISOLATED FORM 0FE8E ARABIC LETTER ALEF FINAL FORM 0FE8F ARABIC LETTER BEH ISOLATED FORM 0FE90 ARABIC LETTER BEH FINAL FORM 0FE91 ARABIC LETTER BEH INITIAL FORM 0FE92 ARABIC LETTER BEH MEDIAL FORM 0FE93 ARABIC LETTER TEH MARBUTA ISOLATED FORM 0FE94 ARABIC LETTER TEH MARBUTA FINAL FORM 0FE95 ARABIC LETTER TEH ISOLATED FORM 0FE96 ARABIC LETTER TEH FINAL FORM 0FE97 ARABIC LETTER TEH INITIAL FORM 0FE98 ARABIC LETTER TEH MEDIAL FORM 0FE99 ARABIC LETTER THEH ISOLATED FORM 0FE9A ARABIC LETTER THEH FINAL FORM 0FE9B ARABIC LETTER THEH INITIAL FORM 0FE9C ARABIC LETTER THEH MEDIAL FORM 0FE9D ARABIC LETTER JEEM ISOLATED FORM 0FE9E ARABIC LETTER JEEM FINAL FORM 0FE9F ARABIC LETTER JEEM INITIAL FORM 0FEA0 ARABIC LETTER JEEM MEDIAL FORM 0FEA1 ARABIC LETTER HAH ISOLATED FORM 0FEA2 ARABIC LETTER HAH FINAL FORM 0FEA3 ARABIC LETTER HAH INITIAL FORM 0FEA4 ARABIC LETTER HAH MEDIAL FORM 0FEA5 ARABIC LETTER KHAH ISOLATED FORM 0FEA6 ARABIC LETTER KHAH FINAL FORM 0FEA7 ARABIC LETTER KHAH INITIAL FORM 0FEA8 ARABIC LETTER KHAH MEDIAL FORM 0FEA9 ARABIC LETTER DAL ISOLATED FORM 0FEAA ARABIC LETTER DAL FINAL FORM 0FEAB ARABIC LETTER THAL ISOLATED FORM 0FEAC ARABIC LETTER THAL FINAL FORM 0FEAD ARABIC LETTER REH ISOLATED FORM 0FEAE ARABIC LETTER REH FINAL FORM 0FEAF ARABIC LETTER ZAIN ISOLATED FORM 0FEB0 ARABIC LETTER ZAIN FINAL FORM 0FEB1 ARABIC LETTER SEEN ISOLATED FORM 0FEB2 ARABIC LETTER SEEN FINAL FORM 0FEB3 ARABIC LETTER SEEN INITIAL FORM 0FEB4 ARABIC LETTER SEEN MEDIAL FORM 0FEB5 ARABIC LETTER SHEEN ISOLATED FORM 0FEB6 ARABIC LETTER SHEEN FINAL FORM 0FEB7 ARABIC LETTER SHEEN INITIAL FORM 0FEB8 ARABIC LETTER SHEEN MEDIAL FORM 0FEB9 ARABIC LETTER SAD ISOLATED FORM 0FEBA ARABIC LETTER SAD FINAL FORM 0FEBB ARABIC LETTER SAD INITIAL FORM 0FEBC ARABIC LETTER SAD MEDIAL FORM 0FEBD ARABIC LETTER DAD ISOLATED FORM 0FEBE ARABIC LETTER DAD FINAL FORM 0FEBF ARABIC LETTER DAD INITIAL FORM 0FEC0 ARABIC LETTER DAD MEDIAL FORM 0FEC1 ARABIC LETTER TAH ISOLATED FORM 0FEC2 ARABIC LETTER TAH FINAL FORM 0FEC3 ARABIC LETTER TAH INITIAL FORM 0FEC4 ARABIC LETTER TAH MEDIAL FORM 0FEC5 ARABIC LETTER ZAH ISOLATED FORM 0FEC6 ARABIC LETTER ZAH FINAL FORM 0FEC7 ARABIC LETTER ZAH INITIAL FORM 0FEC8 ARABIC LETTER ZAH MEDIAL FORM 0FEC9 ARABIC LETTER AIN ISOLATED FORM 0FECA ARABIC LETTER AIN FINAL FORM 0FECB ARABIC LETTER AIN INITIAL FORM 0FECC ARABIC LETTER AIN MEDIAL FORM 0FECD ARABIC LETTER GHAIN ISOLATED FORM 0FECE ARABIC LETTER GHAIN FINAL FORM 0FECF ARABIC LETTER GHAIN INITIAL FORM 0FED0 ARABIC LETTER GHAIN MEDIAL FORM 0FED1 ARABIC LETTER FEH ISOLATED FORM 0FED2 ARABIC LETTER FEH FINAL FORM 0FED3 ARABIC LETTER FEH INITIAL FORM 0FED4 ARABIC LETTER FEH MEDIAL FORM 0FED5 ARABIC LETTER QAF ISOLATED FORM 0FED6 ARABIC LETTER QAF FINAL FORM 0FED7 ARABIC LETTER QAF INITIAL FORM 0FED8 ARABIC LETTER QAF MEDIAL FORM 0FED9 ARABIC LETTER KAF ISOLATED FORM 0FEDA ARABIC LETTER KAF FINAL FORM 0FEDB ARABIC LETTER KAF INITIAL FORM 0FEDC ARABIC LETTER KAF MEDIAL FORM 0FEDD ARABIC LETTER LAM ISOLATED FORM 0FEDE ARABIC LETTER LAM FINAL FORM 0FEDF ARABIC LETTER LAM INITIAL FORM 0FEE0 ARABIC LETTER LAM MEDIAL FORM 0FEE1 ARABIC LETTER MEEM ISOLATED FORM 0FEE2 ARABIC LETTER MEEM FINAL FORM 0FEE3 ARABIC LETTER MEEM INITIAL FORM 0FEE4 ARABIC LETTER MEEM MEDIAL FORM 0FEE5 ARABIC LETTER NOON ISOLATED FORM 0FEE6 ARABIC LETTER NOON FINAL FORM 0FEE7 ARABIC LETTER NOON INITIAL FORM 0FEE8 ARABIC LETTER NOON MEDIAL FORM 0FEE9 ARABIC LETTER HEH ISOLATED FORM 0FEEA ARABIC LETTER HEH FINAL FORM 0FEEB ARABIC LETTER HEH INITIAL FORM 0FEEC ARABIC LETTER HEH MEDIAL FORM 0FEED ARABIC LETTER WAW ISOLATED FORM 0FEEE ARABIC LETTER WAW FINAL FORM 0FEEF ARABIC LETTER ALEF MAKSURA ISOLATED FORM 0FEF0 ARABIC LETTER ALEF MAKSURA FINAL FORM 0FEF1 ARABIC LETTER YEH ISOLATED FORM 0FEF2 ARABIC LETTER YEH FINAL FORM 0FEF3 ARABIC LETTER YEH INITIAL FORM 0FEF4 ARABIC LETTER YEH MEDIAL FORM 0FEF5 ARABIC LIGATURE LAM WITH ALEF WITH MADDA ABOVE ISOLATED FORM 0FEF6 ARABIC LIGATURE LAM WITH ALEF WITH MADDA ABOVE FINAL FORM 0FEF7 ARABIC LIGATURE LAM WITH ALEF WITH HAMZA ABOVE ISOLATED FORM 0FEF8 ARABIC LIGATURE LAM WITH ALEF WITH HAMZA ABOVE FINAL FORM 0FEF9 ARABIC LIGATURE LAM WITH ALEF WITH HAMZA BELOW ISOLATED FORM 0FEFA ARABIC LIGATURE LAM WITH ALEF WITH HAMZA BELOW FINAL FORM 0FEFB ARABIC LIGATURE LAM WITH ALEF ISOLATED FORM 0FEFC ARABIC LIGATURE LAM WITH ALEF FINAL FORM 0FEFF ZERO WIDTH NO-BREAK SPACE 0FEFF BYTE ORDER MARK 0FEFF BOM 0FEFF ZWNBSP 0FF01 FULLWIDTH EXCLAMATION MARK 0FF02 FULLWIDTH QUOTATION MARK 0FF03 FULLWIDTH NUMBER SIGN 0FF04 FULLWIDTH DOLLAR SIGN 0FF05 FULLWIDTH PERCENT SIGN 0FF06 FULLWIDTH AMPERSAND 0FF07 FULLWIDTH APOSTROPHE 0FF08 FULLWIDTH LEFT PARENTHESIS 0FF09 FULLWIDTH RIGHT PARENTHESIS 0FF0A FULLWIDTH ASTERISK 0FF0B FULLWIDTH PLUS SIGN 0FF0C FULLWIDTH COMMA 0FF0D FULLWIDTH HYPHEN-MINUS 0FF0E FULLWIDTH FULL STOP 0FF0F FULLWIDTH SOLIDUS 0FF10 FULLWIDTH DIGIT ZERO 0FF11 FULLWIDTH DIGIT ONE 0FF12 FULLWIDTH DIGIT TWO 0FF13 FULLWIDTH DIGIT THREE 0FF14 FULLWIDTH DIGIT FOUR 0FF15 FULLWIDTH DIGIT FIVE 0FF16 FULLWIDTH DIGIT SIX 0FF17 FULLWIDTH DIGIT SEVEN 0FF18 FULLWIDTH DIGIT EIGHT 0FF19 FULLWIDTH DIGIT NINE 0FF1A FULLWIDTH COLON 0FF1B FULLWIDTH SEMICOLON 0FF1C FULLWIDTH LESS-THAN SIGN 0FF1D FULLWIDTH EQUALS SIGN 0FF1E FULLWIDTH GREATER-THAN SIGN 0FF1F FULLWIDTH QUESTION MARK 0FF20 FULLWIDTH COMMERCIAL AT 0FF21 FULLWIDTH LATIN CAPITAL LETTER A 0FF22 FULLWIDTH LATIN CAPITAL LETTER B 0FF23 FULLWIDTH LATIN CAPITAL LETTER C 0FF24 FULLWIDTH LATIN CAPITAL LETTER D 0FF25 FULLWIDTH LATIN CAPITAL LETTER E 0FF26 FULLWIDTH LATIN CAPITAL LETTER F 0FF27 FULLWIDTH LATIN CAPITAL LETTER G 0FF28 FULLWIDTH LATIN CAPITAL LETTER H 0FF29 FULLWIDTH LATIN CAPITAL LETTER I 0FF2A FULLWIDTH LATIN CAPITAL LETTER J 0FF2B FULLWIDTH LATIN CAPITAL LETTER K 0FF2C FULLWIDTH LATIN CAPITAL LETTER L 0FF2D FULLWIDTH LATIN CAPITAL LETTER M 0FF2E FULLWIDTH LATIN CAPITAL LETTER N 0FF2F FULLWIDTH LATIN CAPITAL LETTER O 0FF30 FULLWIDTH LATIN CAPITAL LETTER P 0FF31 FULLWIDTH LATIN CAPITAL LETTER Q 0FF32 FULLWIDTH LATIN CAPITAL LETTER R 0FF33 FULLWIDTH LATIN CAPITAL LETTER S 0FF34 FULLWIDTH LATIN CAPITAL LETTER T 0FF35 FULLWIDTH LATIN CAPITAL LETTER U 0FF36 FULLWIDTH LATIN CAPITAL LETTER V 0FF37 FULLWIDTH LATIN CAPITAL LETTER W 0FF38 FULLWIDTH LATIN CAPITAL LETTER X 0FF39 FULLWIDTH LATIN CAPITAL LETTER Y 0FF3A FULLWIDTH LATIN CAPITAL LETTER Z 0FF3B FULLWIDTH LEFT SQUARE BRACKET 0FF3C FULLWIDTH REVERSE SOLIDUS 0FF3D FULLWIDTH RIGHT SQUARE BRACKET 0FF3E FULLWIDTH CIRCUMFLEX ACCENT 0FF3F FULLWIDTH LOW LINE 0FF40 FULLWIDTH GRAVE ACCENT 0FF41 FULLWIDTH LATIN SMALL LETTER A 0FF42 FULLWIDTH LATIN SMALL LETTER B 0FF43 FULLWIDTH LATIN SMALL LETTER C 0FF44 FULLWIDTH LATIN SMALL LETTER D 0FF45 FULLWIDTH LATIN SMALL LETTER E 0FF46 FULLWIDTH LATIN SMALL LETTER F 0FF47 FULLWIDTH LATIN SMALL LETTER G 0FF48 FULLWIDTH LATIN SMALL LETTER H 0FF49 FULLWIDTH LATIN SMALL LETTER I 0FF4A FULLWIDTH LATIN SMALL LETTER J 0FF4B FULLWIDTH LATIN SMALL LETTER K 0FF4C FULLWIDTH LATIN SMALL LETTER L 0FF4D FULLWIDTH LATIN SMALL LETTER M 0FF4E FULLWIDTH LATIN SMALL LETTER N 0FF4F FULLWIDTH LATIN SMALL LETTER O 0FF50 FULLWIDTH LATIN SMALL LETTER P 0FF51 FULLWIDTH LATIN SMALL LETTER Q 0FF52 FULLWIDTH LATIN SMALL LETTER R 0FF53 FULLWIDTH LATIN SMALL LETTER S 0FF54 FULLWIDTH LATIN SMALL LETTER T 0FF55 FULLWIDTH LATIN SMALL LETTER U 0FF56 FULLWIDTH LATIN SMALL LETTER V 0FF57 FULLWIDTH LATIN SMALL LETTER W 0FF58 FULLWIDTH LATIN SMALL LETTER X 0FF59 FULLWIDTH LATIN SMALL LETTER Y 0FF5A FULLWIDTH LATIN SMALL LETTER Z 0FF5B FULLWIDTH LEFT CURLY BRACKET 0FF5C FULLWIDTH VERTICAL LINE 0FF5D FULLWIDTH RIGHT CURLY BRACKET 0FF5E FULLWIDTH TILDE 0FF5F FULLWIDTH LEFT WHITE PARENTHESIS 0FF60 FULLWIDTH RIGHT WHITE PARENTHESIS 0FF61 HALFWIDTH IDEOGRAPHIC FULL STOP 0FF62 HALFWIDTH LEFT CORNER BRACKET 0FF63 HALFWIDTH RIGHT CORNER BRACKET 0FF64 HALFWIDTH IDEOGRAPHIC COMMA 0FF65 HALFWIDTH KATAKANA MIDDLE DOT 0FF66 HALFWIDTH KATAKANA LETTER WO 0FF67 HALFWIDTH KATAKANA LETTER SMALL A 0FF68 HALFWIDTH KATAKANA LETTER SMALL I 0FF69 HALFWIDTH KATAKANA LETTER SMALL U 0FF6A HALFWIDTH KATAKANA LETTER SMALL E 0FF6B HALFWIDTH KATAKANA LETTER SMALL O 0FF6C HALFWIDTH KATAKANA LETTER SMALL YA 0FF6D HALFWIDTH KATAKANA LETTER SMALL YU 0FF6E HALFWIDTH KATAKANA LETTER SMALL YO 0FF6F HALFWIDTH KATAKANA LETTER SMALL TU 0FF70 HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK 0FF71 HALFWIDTH KATAKANA LETTER A 0FF72 HALFWIDTH KATAKANA LETTER I 0FF73 HALFWIDTH KATAKANA LETTER U 0FF74 HALFWIDTH KATAKANA LETTER E 0FF75 HALFWIDTH KATAKANA LETTER O 0FF76 HALFWIDTH KATAKANA LETTER KA 0FF77 HALFWIDTH KATAKANA LETTER KI 0FF78 HALFWIDTH KATAKANA LETTER KU 0FF79 HALFWIDTH KATAKANA LETTER KE 0FF7A HALFWIDTH KATAKANA LETTER KO 0FF7B HALFWIDTH KATAKANA LETTER SA 0FF7C HALFWIDTH KATAKANA LETTER SI 0FF7D HALFWIDTH KATAKANA LETTER SU 0FF7E HALFWIDTH KATAKANA LETTER SE 0FF7F HALFWIDTH KATAKANA LETTER SO 0FF80 HALFWIDTH KATAKANA LETTER TA 0FF81 HALFWIDTH KATAKANA LETTER TI 0FF82 HALFWIDTH KATAKANA LETTER TU 0FF83 HALFWIDTH KATAKANA LETTER TE 0FF84 HALFWIDTH KATAKANA LETTER TO 0FF85 HALFWIDTH KATAKANA LETTER NA 0FF86 HALFWIDTH KATAKANA LETTER NI 0FF87 HALFWIDTH KATAKANA LETTER NU 0FF88 HALFWIDTH KATAKANA LETTER NE 0FF89 HALFWIDTH KATAKANA LETTER NO 0FF8A HALFWIDTH KATAKANA LETTER HA 0FF8B HALFWIDTH KATAKANA LETTER HI 0FF8C HALFWIDTH KATAKANA LETTER HU 0FF8D HALFWIDTH KATAKANA LETTER HE 0FF8E HALFWIDTH KATAKANA LETTER HO 0FF8F HALFWIDTH KATAKANA LETTER MA 0FF90 HALFWIDTH KATAKANA LETTER MI 0FF91 HALFWIDTH KATAKANA LETTER MU 0FF92 HALFWIDTH KATAKANA LETTER ME 0FF93 HALFWIDTH KATAKANA LETTER MO 0FF94 HALFWIDTH KATAKANA LETTER YA 0FF95 HALFWIDTH KATAKANA LETTER YU 0FF96 HALFWIDTH KATAKANA LETTER YO 0FF97 HALFWIDTH KATAKANA LETTER RA 0FF98 HALFWIDTH KATAKANA LETTER RI 0FF99 HALFWIDTH KATAKANA LETTER RU 0FF9A HALFWIDTH KATAKANA LETTER RE 0FF9B HALFWIDTH KATAKANA LETTER RO 0FF9C HALFWIDTH KATAKANA LETTER WA 0FF9D HALFWIDTH KATAKANA LETTER N 0FF9E HALFWIDTH KATAKANA VOICED SOUND MARK 0FF9F HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK 0FFA0 HALFWIDTH HANGUL FILLER 0FFA1 HALFWIDTH HANGUL LETTER KIYEOK 0FFA2 HALFWIDTH HANGUL LETTER SSANGKIYEOK 0FFA3 HALFWIDTH HANGUL LETTER KIYEOK-SIOS 0FFA4 HALFWIDTH HANGUL LETTER NIEUN 0FFA5 HALFWIDTH HANGUL LETTER NIEUN-CIEUC 0FFA6 HALFWIDTH HANGUL LETTER NIEUN-HIEUH 0FFA7 HALFWIDTH HANGUL LETTER TIKEUT 0FFA8 HALFWIDTH HANGUL LETTER SSANGTIKEUT 0FFA9 HALFWIDTH HANGUL LETTER RIEUL 0FFAA HALFWIDTH HANGUL LETTER RIEUL-KIYEOK 0FFAB HALFWIDTH HANGUL LETTER RIEUL-MIEUM 0FFAC HALFWIDTH HANGUL LETTER RIEUL-PIEUP 0FFAD HALFWIDTH HANGUL LETTER RIEUL-SIOS 0FFAE HALFWIDTH HANGUL LETTER RIEUL-THIEUTH 0FFAF HALFWIDTH HANGUL LETTER RIEUL-PHIEUPH 0FFB0 HALFWIDTH HANGUL LETTER RIEUL-HIEUH 0FFB1 HALFWIDTH HANGUL LETTER MIEUM 0FFB2 HALFWIDTH HANGUL LETTER PIEUP 0FFB3 HALFWIDTH HANGUL LETTER SSANGPIEUP 0FFB4 HALFWIDTH HANGUL LETTER PIEUP-SIOS 0FFB5 HALFWIDTH HANGUL LETTER SIOS 0FFB6 HALFWIDTH HANGUL LETTER SSANGSIOS 0FFB7 HALFWIDTH HANGUL LETTER IEUNG 0FFB8 HALFWIDTH HANGUL LETTER CIEUC 0FFB9 HALFWIDTH HANGUL LETTER SSANGCIEUC 0FFBA HALFWIDTH HANGUL LETTER CHIEUCH 0FFBB HALFWIDTH HANGUL LETTER KHIEUKH 0FFBC HALFWIDTH HANGUL LETTER THIEUTH 0FFBD HALFWIDTH HANGUL LETTER PHIEUPH 0FFBE HALFWIDTH HANGUL LETTER HIEUH 0FFC2 HALFWIDTH HANGUL LETTER A 0FFC3 HALFWIDTH HANGUL LETTER AE 0FFC4 HALFWIDTH HANGUL LETTER YA 0FFC5 HALFWIDTH HANGUL LETTER YAE 0FFC6 HALFWIDTH HANGUL LETTER EO 0FFC7 HALFWIDTH HANGUL LETTER E 0FFCA HALFWIDTH HANGUL LETTER YEO 0FFCB HALFWIDTH HANGUL LETTER YE 0FFCC HALFWIDTH HANGUL LETTER O 0FFCD HALFWIDTH HANGUL LETTER WA 0FFCE HALFWIDTH HANGUL LETTER WAE 0FFCF HALFWIDTH HANGUL LETTER OE 0FFD2 HALFWIDTH HANGUL LETTER YO 0FFD3 HALFWIDTH HANGUL LETTER U 0FFD4 HALFWIDTH HANGUL LETTER WEO 0FFD5 HALFWIDTH HANGUL LETTER WE 0FFD6 HALFWIDTH HANGUL LETTER WI 0FFD7 HALFWIDTH HANGUL LETTER YU 0FFDA HALFWIDTH HANGUL LETTER EU 0FFDB HALFWIDTH HANGUL LETTER YI 0FFDC HALFWIDTH HANGUL LETTER I 0FFE0 FULLWIDTH CENT SIGN 0FFE1 FULLWIDTH POUND SIGN 0FFE2 FULLWIDTH NOT SIGN 0FFE3 FULLWIDTH MACRON 0FFE4 FULLWIDTH BROKEN BAR 0FFE5 FULLWIDTH YEN SIGN 0FFE6 FULLWIDTH WON SIGN 0FFE8 HALFWIDTH FORMS LIGHT VERTICAL 0FFE9 HALFWIDTH LEFTWARDS ARROW 0FFEA HALFWIDTH UPWARDS ARROW 0FFEB HALFWIDTH RIGHTWARDS ARROW 0FFEC HALFWIDTH DOWNWARDS ARROW 0FFED HALFWIDTH BLACK SQUARE 0FFEE HALFWIDTH WHITE CIRCLE 0FFF9 INTERLINEAR ANNOTATION ANCHOR 0FFFA INTERLINEAR ANNOTATION SEPARATOR 0FFFB INTERLINEAR ANNOTATION TERMINATOR 0FFFC OBJECT REPLACEMENT CHARACTER 0FFFD REPLACEMENT CHARACTER 10000 LINEAR B SYLLABLE B008 A 10001 LINEAR B SYLLABLE B038 E 10002 LINEAR B SYLLABLE B028 I 10003 LINEAR B SYLLABLE B061 O 10004 LINEAR B SYLLABLE B010 U 10005 LINEAR B SYLLABLE B001 DA 10006 LINEAR B SYLLABLE B045 DE 10007 LINEAR B SYLLABLE B007 DI 10008 LINEAR B SYLLABLE B014 DO 10009 LINEAR B SYLLABLE B051 DU 1000A LINEAR B SYLLABLE B057 JA 1000B LINEAR B SYLLABLE B046 JE 1000D LINEAR B SYLLABLE B036 JO 1000E LINEAR B SYLLABLE B065 JU 1000F LINEAR B SYLLABLE B077 KA 10010 LINEAR B SYLLABLE B044 KE 10011 LINEAR B SYLLABLE B067 KI 10012 LINEAR B SYLLABLE B070 KO 10013 LINEAR B SYLLABLE B081 KU 10014 LINEAR B SYLLABLE B080 MA 10015 LINEAR B SYLLABLE B013 ME 10016 LINEAR B SYLLABLE B073 MI 10017 LINEAR B SYLLABLE B015 MO 10018 LINEAR B SYLLABLE B023 MU 10019 LINEAR B SYLLABLE B006 NA 1001A LINEAR B SYLLABLE B024 NE 1001B LINEAR B SYLLABLE B030 NI 1001C LINEAR B SYLLABLE B052 NO 1001D LINEAR B SYLLABLE B055 NU 1001E LINEAR B SYLLABLE B003 PA 1001F LINEAR B SYLLABLE B072 PE 10020 LINEAR B SYLLABLE B039 PI 10021 LINEAR B SYLLABLE B011 PO 10022 LINEAR B SYLLABLE B050 PU 10023 LINEAR B SYLLABLE B016 QA 10024 LINEAR B SYLLABLE B078 QE 10025 LINEAR B SYLLABLE B021 QI 10026 LINEAR B SYLLABLE B032 QO 10028 LINEAR B SYLLABLE B060 RA 10029 LINEAR B SYLLABLE B027 RE 1002A LINEAR B SYLLABLE B053 RI 1002B LINEAR B SYLLABLE B002 RO 1002C LINEAR B SYLLABLE B026 RU 1002D LINEAR B SYLLABLE B031 SA 1002E LINEAR B SYLLABLE B009 SE 1002F LINEAR B SYLLABLE B041 SI 10030 LINEAR B SYLLABLE B012 SO 10031 LINEAR B SYLLABLE B058 SU 10032 LINEAR B SYLLABLE B059 TA 10033 LINEAR B SYLLABLE B004 TE 10034 LINEAR B SYLLABLE B037 TI 10035 LINEAR B SYLLABLE B005 TO 10036 LINEAR B SYLLABLE B069 TU 10037 LINEAR B SYLLABLE B054 WA 10038 LINEAR B SYLLABLE B075 WE 10039 LINEAR B SYLLABLE B040 WI 1003A LINEAR B SYLLABLE B042 WO 1003C LINEAR B SYLLABLE B017 ZA 1003D LINEAR B SYLLABLE B074 ZE 1003F LINEAR B SYLLABLE B020 ZO 10040 LINEAR B SYLLABLE B025 A2 10041 LINEAR B SYLLABLE B043 A3 10042 LINEAR B SYLLABLE B085 AU 10043 LINEAR B SYLLABLE B071 DWE 10044 LINEAR B SYLLABLE B090 DWO 10045 LINEAR B SYLLABLE B048 NWA 10046 LINEAR B SYLLABLE B029 PU2 10047 LINEAR B SYLLABLE B062 PTE 10048 LINEAR B SYLLABLE B076 RA2 10049 LINEAR B SYLLABLE B033 RA3 1004A LINEAR B SYLLABLE B068 RO2 1004B LINEAR B SYLLABLE B066 TA2 1004C LINEAR B SYLLABLE B087 TWE 1004D LINEAR B SYLLABLE B091 TWO 10050 LINEAR B SYMBOL B018 10051 LINEAR B SYMBOL B019 10052 LINEAR B SYMBOL B022 10053 LINEAR B SYMBOL B034 10054 LINEAR B SYMBOL B047 10055 LINEAR B SYMBOL B049 10056 LINEAR B SYMBOL B056 10057 LINEAR B SYMBOL B063 10058 LINEAR B SYMBOL B064 10059 LINEAR B SYMBOL B079 1005A LINEAR B SYMBOL B082 1005B LINEAR B SYMBOL B083 1005C LINEAR B SYMBOL B086 1005D LINEAR B SYMBOL B089 10080 LINEAR B IDEOGRAM B100 MAN 10081 LINEAR B IDEOGRAM B102 WOMAN 10082 LINEAR B IDEOGRAM B104 DEER 10083 LINEAR B IDEOGRAM B105 EQUID 10084 LINEAR B IDEOGRAM B105F MARE 10085 LINEAR B IDEOGRAM B105M STALLION 10086 LINEAR B IDEOGRAM B106F EWE 10087 LINEAR B IDEOGRAM B106M RAM 10088 LINEAR B IDEOGRAM B107F SHE-GOAT 10089 LINEAR B IDEOGRAM B107M HE-GOAT 1008A LINEAR B IDEOGRAM B108F SOW 1008B LINEAR B IDEOGRAM B108M BOAR 1008C LINEAR B IDEOGRAM B109F COW 1008D LINEAR B IDEOGRAM B109M BULL 1008E LINEAR B IDEOGRAM B120 WHEAT 1008F LINEAR B IDEOGRAM B121 BARLEY 10090 LINEAR B IDEOGRAM B122 OLIVE 10091 LINEAR B IDEOGRAM B123 SPICE 10092 LINEAR B IDEOGRAM B125 CYPERUS 10093 LINEAR B MONOGRAM B127 KAPO 10094 LINEAR B MONOGRAM B128 KANAKO 10095 LINEAR B IDEOGRAM B130 OIL 10096 LINEAR B IDEOGRAM B131 WINE 10097 LINEAR B IDEOGRAM B132 10098 LINEAR B MONOGRAM B133 AREPA 10099 LINEAR B MONOGRAM B135 MERI 1009A LINEAR B IDEOGRAM B140 BRONZE 1009B LINEAR B IDEOGRAM B141 GOLD 1009C LINEAR B IDEOGRAM B142 1009D LINEAR B IDEOGRAM B145 WOOL 1009E LINEAR B IDEOGRAM B146 1009F LINEAR B IDEOGRAM B150 100A0 LINEAR B IDEOGRAM B151 HORN 100A1 LINEAR B IDEOGRAM B152 100A2 LINEAR B IDEOGRAM B153 100A3 LINEAR B IDEOGRAM B154 100A4 LINEAR B MONOGRAM B156 TURO2 100A5 LINEAR B IDEOGRAM B157 100A6 LINEAR B IDEOGRAM B158 100A7 LINEAR B IDEOGRAM B159 CLOTH 100A8 LINEAR B IDEOGRAM B160 100A9 LINEAR B IDEOGRAM B161 100AA LINEAR B IDEOGRAM B162 GARMENT 100AB LINEAR B IDEOGRAM B163 ARMOUR 100AC LINEAR B IDEOGRAM B164 100AD LINEAR B IDEOGRAM B165 100AE LINEAR B IDEOGRAM B166 100AF LINEAR B IDEOGRAM B167 100B0 LINEAR B IDEOGRAM B168 100B1 LINEAR B IDEOGRAM B169 100B2 LINEAR B IDEOGRAM B170 100B3 LINEAR B IDEOGRAM B171 100B4 LINEAR B IDEOGRAM B172 100B5 LINEAR B IDEOGRAM B173 MONTH 100B6 LINEAR B IDEOGRAM B174 100B7 LINEAR B IDEOGRAM B176 TREE 100B8 LINEAR B IDEOGRAM B177 100B9 LINEAR B IDEOGRAM B178 100BA LINEAR B IDEOGRAM B179 100BB LINEAR B IDEOGRAM B180 100BC LINEAR B IDEOGRAM B181 100BD LINEAR B IDEOGRAM B182 100BE LINEAR B IDEOGRAM B183 100BF LINEAR B IDEOGRAM B184 100C0 LINEAR B IDEOGRAM B185 100C1 LINEAR B IDEOGRAM B189 100C2 LINEAR B IDEOGRAM B190 100C3 LINEAR B IDEOGRAM B191 HELMET 100C4 LINEAR B IDEOGRAM B220 FOOTSTOOL 100C5 LINEAR B IDEOGRAM B225 BATHTUB 100C6 LINEAR B IDEOGRAM B230 SPEAR 100C7 LINEAR B IDEOGRAM B231 ARROW 100C8 LINEAR B IDEOGRAM B232 100C9 LINEAR B IDEOGRAM B233 SWORD 100CA LINEAR B IDEOGRAM B234 100CB LINEAR B IDEOGRAM B236 100CC LINEAR B IDEOGRAM B240 WHEELED CHARIOT 100CD LINEAR B IDEOGRAM B241 CHARIOT 100CE LINEAR B IDEOGRAM B242 CHARIOT FRAME 100CF LINEAR B IDEOGRAM B243 WHEEL 100D0 LINEAR B IDEOGRAM B245 100D1 LINEAR B IDEOGRAM B246 100D2 LINEAR B MONOGRAM B247 DIPTE 100D3 LINEAR B IDEOGRAM B248 100D4 LINEAR B IDEOGRAM B249 100D5 LINEAR B IDEOGRAM B251 100D6 LINEAR B IDEOGRAM B252 100D7 LINEAR B IDEOGRAM B253 100D8 LINEAR B IDEOGRAM B254 DART 100D9 LINEAR B IDEOGRAM B255 100DA LINEAR B IDEOGRAM B256 100DB LINEAR B IDEOGRAM B257 100DC LINEAR B IDEOGRAM B258 100DD LINEAR B IDEOGRAM B259 100DE LINEAR B IDEOGRAM VESSEL B155 100DF LINEAR B IDEOGRAM VESSEL B200 100E0 LINEAR B IDEOGRAM VESSEL B201 100E1 LINEAR B IDEOGRAM VESSEL B202 100E2 LINEAR B IDEOGRAM VESSEL B203 100E3 LINEAR B IDEOGRAM VESSEL B204 100E4 LINEAR B IDEOGRAM VESSEL B205 100E5 LINEAR B IDEOGRAM VESSEL B206 100E6 LINEAR B IDEOGRAM VESSEL B207 100E7 LINEAR B IDEOGRAM VESSEL B208 100E8 LINEAR B IDEOGRAM VESSEL B209 100E9 LINEAR B IDEOGRAM VESSEL B210 100EA LINEAR B IDEOGRAM VESSEL B211 100EB LINEAR B IDEOGRAM VESSEL B212 100EC LINEAR B IDEOGRAM VESSEL B213 100ED LINEAR B IDEOGRAM VESSEL B214 100EE LINEAR B IDEOGRAM VESSEL B215 100EF LINEAR B IDEOGRAM VESSEL B216 100F0 LINEAR B IDEOGRAM VESSEL B217 100F1 LINEAR B IDEOGRAM VESSEL B218 100F2 LINEAR B IDEOGRAM VESSEL B219 100F3 LINEAR B IDEOGRAM VESSEL B221 100F4 LINEAR B IDEOGRAM VESSEL B222 100F5 LINEAR B IDEOGRAM VESSEL B226 100F6 LINEAR B IDEOGRAM VESSEL B227 100F7 LINEAR B IDEOGRAM VESSEL B228 100F8 LINEAR B IDEOGRAM VESSEL B229 100F9 LINEAR B IDEOGRAM VESSEL B250 100FA LINEAR B IDEOGRAM VESSEL B305 10100 AEGEAN WORD SEPARATOR LINE 10101 AEGEAN WORD SEPARATOR DOT 10102 AEGEAN CHECK MARK 10107 AEGEAN NUMBER ONE 10108 AEGEAN NUMBER TWO 10109 AEGEAN NUMBER THREE 1010A AEGEAN NUMBER FOUR 1010B AEGEAN NUMBER FIVE 1010C AEGEAN NUMBER SIX 1010D AEGEAN NUMBER SEVEN 1010E AEGEAN NUMBER EIGHT 1010F AEGEAN NUMBER NINE 10110 AEGEAN NUMBER TEN 10111 AEGEAN NUMBER TWENTY 10112 AEGEAN NUMBER THIRTY 10113 AEGEAN NUMBER FORTY 10114 AEGEAN NUMBER FIFTY 10115 AEGEAN NUMBER SIXTY 10116 AEGEAN NUMBER SEVENTY 10117 AEGEAN NUMBER EIGHTY 10118 AEGEAN NUMBER NINETY 10119 AEGEAN NUMBER ONE HUNDRED 1011A AEGEAN NUMBER TWO HUNDRED 1011B AEGEAN NUMBER THREE HUNDRED 1011C AEGEAN NUMBER FOUR HUNDRED 1011D AEGEAN NUMBER FIVE HUNDRED 1011E AEGEAN NUMBER SIX HUNDRED 1011F AEGEAN NUMBER SEVEN HUNDRED 10120 AEGEAN NUMBER EIGHT HUNDRED 10121 AEGEAN NUMBER NINE HUNDRED 10122 AEGEAN NUMBER ONE THOUSAND 10123 AEGEAN NUMBER TWO THOUSAND 10124 AEGEAN NUMBER THREE THOUSAND 10125 AEGEAN NUMBER FOUR THOUSAND 10126 AEGEAN NUMBER FIVE THOUSAND 10127 AEGEAN NUMBER SIX THOUSAND 10128 AEGEAN NUMBER SEVEN THOUSAND 10129 AEGEAN NUMBER EIGHT THOUSAND 1012A AEGEAN NUMBER NINE THOUSAND 1012B AEGEAN NUMBER TEN THOUSAND 1012C AEGEAN NUMBER TWENTY THOUSAND 1012D AEGEAN NUMBER THIRTY THOUSAND 1012E AEGEAN NUMBER FORTY THOUSAND 1012F AEGEAN NUMBER FIFTY THOUSAND 10130 AEGEAN NUMBER SIXTY THOUSAND 10131 AEGEAN NUMBER SEVENTY THOUSAND 10132 AEGEAN NUMBER EIGHTY THOUSAND 10133 AEGEAN NUMBER NINETY THOUSAND 10137 AEGEAN WEIGHT BASE UNIT 10138 AEGEAN WEIGHT FIRST SUBUNIT 10139 AEGEAN WEIGHT SECOND SUBUNIT 1013A AEGEAN WEIGHT THIRD SUBUNIT 1013B AEGEAN WEIGHT FOURTH SUBUNIT 1013C AEGEAN DRY MEASURE FIRST SUBUNIT 1013D AEGEAN LIQUID MEASURE FIRST SUBUNIT 1013E AEGEAN MEASURE SECOND SUBUNIT 1013F AEGEAN MEASURE THIRD SUBUNIT 10140 GREEK ACROPHONIC ATTIC ONE QUARTER 10141 GREEK ACROPHONIC ATTIC ONE HALF 10142 GREEK ACROPHONIC ATTIC ONE DRACHMA 10143 GREEK ACROPHONIC ATTIC FIVE 10144 GREEK ACROPHONIC ATTIC FIFTY 10145 GREEK ACROPHONIC ATTIC FIVE HUNDRED 10146 GREEK ACROPHONIC ATTIC FIVE THOUSAND 10147 GREEK ACROPHONIC ATTIC FIFTY THOUSAND 10148 GREEK ACROPHONIC ATTIC FIVE TALENTS 10149 GREEK ACROPHONIC ATTIC TEN TALENTS 1014A GREEK ACROPHONIC ATTIC FIFTY TALENTS 1014B GREEK ACROPHONIC ATTIC ONE HUNDRED TALENTS 1014C GREEK ACROPHONIC ATTIC FIVE HUNDRED TALENTS 1014D GREEK ACROPHONIC ATTIC ONE THOUSAND TALENTS 1014E GREEK ACROPHONIC ATTIC FIVE THOUSAND TALENTS 1014F GREEK ACROPHONIC ATTIC FIVE STATERS 10150 GREEK ACROPHONIC ATTIC TEN STATERS 10151 GREEK ACROPHONIC ATTIC FIFTY STATERS 10152 GREEK ACROPHONIC ATTIC ONE HUNDRED STATERS 10153 GREEK ACROPHONIC ATTIC FIVE HUNDRED STATERS 10154 GREEK ACROPHONIC ATTIC ONE THOUSAND STATERS 10155 GREEK ACROPHONIC ATTIC TEN THOUSAND STATERS 10156 GREEK ACROPHONIC ATTIC FIFTY THOUSAND STATERS 10157 GREEK ACROPHONIC ATTIC TEN MNAS 10158 GREEK ACROPHONIC HERAEUM ONE PLETHRON 10159 GREEK ACROPHONIC THESPIAN ONE 1015A GREEK ACROPHONIC HERMIONIAN ONE 1015B GREEK ACROPHONIC EPIDAUREAN TWO 1015C GREEK ACROPHONIC THESPIAN TWO 1015D GREEK ACROPHONIC CYRENAIC TWO DRACHMAS 1015E GREEK ACROPHONIC EPIDAUREAN TWO DRACHMAS 1015F GREEK ACROPHONIC TROEZENIAN FIVE 10160 GREEK ACROPHONIC TROEZENIAN TEN 10161 GREEK ACROPHONIC TROEZENIAN TEN ALTERNATE FORM 10162 GREEK ACROPHONIC HERMIONIAN TEN 10163 GREEK ACROPHONIC MESSENIAN TEN 10164 GREEK ACROPHONIC THESPIAN TEN 10165 GREEK ACROPHONIC THESPIAN THIRTY 10166 GREEK ACROPHONIC TROEZENIAN FIFTY 10167 GREEK ACROPHONIC TROEZENIAN FIFTY ALTERNATE FORM 10168 GREEK ACROPHONIC HERMIONIAN FIFTY 10169 GREEK ACROPHONIC THESPIAN FIFTY 1016A GREEK ACROPHONIC THESPIAN ONE HUNDRED 1016B GREEK ACROPHONIC THESPIAN THREE HUNDRED 1016C GREEK ACROPHONIC EPIDAUREAN FIVE HUNDRED 1016D GREEK ACROPHONIC TROEZENIAN FIVE HUNDRED 1016E GREEK ACROPHONIC THESPIAN FIVE HUNDRED 1016F GREEK ACROPHONIC CARYSTIAN FIVE HUNDRED 10170 GREEK ACROPHONIC NAXIAN FIVE HUNDRED 10171 GREEK ACROPHONIC THESPIAN ONE THOUSAND 10172 GREEK ACROPHONIC THESPIAN FIVE THOUSAND 10173 GREEK ACROPHONIC DELPHIC FIVE MNAS 10174 GREEK ACROPHONIC STRATIAN FIFTY MNAS 10175 GREEK ONE HALF SIGN 10176 GREEK ONE HALF SIGN ALTERNATE FORM 10177 GREEK TWO THIRDS SIGN 10178 GREEK THREE QUARTERS SIGN 10179 GREEK YEAR SIGN 1017A GREEK TALENT SIGN 1017B GREEK DRACHMA SIGN 1017C GREEK OBOL SIGN 1017D GREEK TWO OBOLS SIGN 1017E GREEK THREE OBOLS SIGN 1017F GREEK FOUR OBOLS SIGN 10180 GREEK FIVE OBOLS SIGN 10181 GREEK METRETES SIGN 10182 GREEK KYATHOS BASE SIGN 10183 GREEK LITRA SIGN 10184 GREEK OUNKIA SIGN 10185 GREEK XESTES SIGN 10186 GREEK ARTABE SIGN 10187 GREEK AROURA SIGN 10188 GREEK GRAMMA SIGN 10189 GREEK TRYBLION BASE SIGN 1018A GREEK ZERO SIGN 1018B GREEK ONE QUARTER SIGN 1018C GREEK SINUSOID SIGN 1018D GREEK INDICTION SIGN 1018E NOMISMA SIGN 10190 ROMAN SEXTANS SIGN 10191 ROMAN UNCIA SIGN 10192 ROMAN SEMUNCIA SIGN 10193 ROMAN SEXTULA SIGN 10194 ROMAN DIMIDIA SEXTULA SIGN 10195 ROMAN SILIQUA SIGN 10196 ROMAN DENARIUS SIGN 10197 ROMAN QUINARIUS SIGN 10198 ROMAN SESTERTIUS SIGN 10199 ROMAN DUPONDIUS SIGN 1019A ROMAN AS SIGN 1019B ROMAN CENTURIAL SIGN 1019C ASCIA SYMBOL 101A0 GREEK SYMBOL TAU RHO 101D0 PHAISTOS DISC SIGN PEDESTRIAN 101D1 PHAISTOS DISC SIGN PLUMED HEAD 101D2 PHAISTOS DISC SIGN TATTOOED HEAD 101D3 PHAISTOS DISC SIGN CAPTIVE 101D4 PHAISTOS DISC SIGN CHILD 101D5 PHAISTOS DISC SIGN WOMAN 101D6 PHAISTOS DISC SIGN HELMET 101D7 PHAISTOS DISC SIGN GAUNTLET 101D8 PHAISTOS DISC SIGN TIARA 101D9 PHAISTOS DISC SIGN ARROW 101DA PHAISTOS DISC SIGN BOW 101DB PHAISTOS DISC SIGN SHIELD 101DC PHAISTOS DISC SIGN CLUB 101DD PHAISTOS DISC SIGN MANACLES 101DE PHAISTOS DISC SIGN MATTOCK 101DF PHAISTOS DISC SIGN SAW 101E0 PHAISTOS DISC SIGN LID 101E1 PHAISTOS DISC SIGN BOOMERANG 101E2 PHAISTOS DISC SIGN CARPENTRY PLANE 101E3 PHAISTOS DISC SIGN DOLIUM 101E4 PHAISTOS DISC SIGN COMB 101E5 PHAISTOS DISC SIGN SLING 101E6 PHAISTOS DISC SIGN COLUMN 101E7 PHAISTOS DISC SIGN BEEHIVE 101E8 PHAISTOS DISC SIGN SHIP 101E9 PHAISTOS DISC SIGN HORN 101EA PHAISTOS DISC SIGN HIDE 101EB PHAISTOS DISC SIGN BULLS LEG 101EC PHAISTOS DISC SIGN CAT 101ED PHAISTOS DISC SIGN RAM 101EE PHAISTOS DISC SIGN EAGLE 101EF PHAISTOS DISC SIGN DOVE 101F0 PHAISTOS DISC SIGN TUNNY 101F1 PHAISTOS DISC SIGN BEE 101F2 PHAISTOS DISC SIGN PLANE TREE 101F3 PHAISTOS DISC SIGN VINE 101F4 PHAISTOS DISC SIGN PAPYRUS 101F5 PHAISTOS DISC SIGN ROSETTE 101F6 PHAISTOS DISC SIGN LILY 101F7 PHAISTOS DISC SIGN OX BACK 101F8 PHAISTOS DISC SIGN FLUTE 101F9 PHAISTOS DISC SIGN GRATER 101FA PHAISTOS DISC SIGN STRAINER 101FB PHAISTOS DISC SIGN SMALL AXE 101FC PHAISTOS DISC SIGN WAVY BAND 101FD PHAISTOS DISC SIGN COMBINING OBLIQUE STROKE 10280 LYCIAN LETTER A 10281 LYCIAN LETTER E 10282 LYCIAN LETTER B 10283 LYCIAN LETTER BH 10284 LYCIAN LETTER G 10285 LYCIAN LETTER D 10286 LYCIAN LETTER I 10287 LYCIAN LETTER W 10288 LYCIAN LETTER Z 10289 LYCIAN LETTER TH 1028A LYCIAN LETTER J 1028B LYCIAN LETTER K 1028C LYCIAN LETTER Q 1028D LYCIAN LETTER L 1028E LYCIAN LETTER M 1028F LYCIAN LETTER N 10290 LYCIAN LETTER MM 10291 LYCIAN LETTER NN 10292 LYCIAN LETTER U 10293 LYCIAN LETTER P 10294 LYCIAN LETTER KK 10295 LYCIAN LETTER R 10296 LYCIAN LETTER S 10297 LYCIAN LETTER T 10298 LYCIAN LETTER TT 10299 LYCIAN LETTER AN 1029A LYCIAN LETTER EN 1029B LYCIAN LETTER H 1029C LYCIAN LETTER X 102A0 CARIAN LETTER A 102A1 CARIAN LETTER P2 102A2 CARIAN LETTER D 102A3 CARIAN LETTER L 102A4 CARIAN LETTER UUU 102A5 CARIAN LETTER R 102A6 CARIAN LETTER LD 102A7 CARIAN LETTER A2 102A8 CARIAN LETTER Q 102A9 CARIAN LETTER B 102AA CARIAN LETTER M 102AB CARIAN LETTER O 102AC CARIAN LETTER D2 102AD CARIAN LETTER T 102AE CARIAN LETTER SH 102AF CARIAN LETTER SH2 102B0 CARIAN LETTER S 102B1 CARIAN LETTER C-18 102B2 CARIAN LETTER U 102B3 CARIAN LETTER NN 102B4 CARIAN LETTER X 102B5 CARIAN LETTER N 102B6 CARIAN LETTER TT2 102B7 CARIAN LETTER P 102B8 CARIAN LETTER SS 102B9 CARIAN LETTER I 102BA CARIAN LETTER E 102BB CARIAN LETTER UUUU 102BC CARIAN LETTER K 102BD CARIAN LETTER K2 102BE CARIAN LETTER ND 102BF CARIAN LETTER UU 102C0 CARIAN LETTER G 102C1 CARIAN LETTER G2 102C2 CARIAN LETTER ST 102C3 CARIAN LETTER ST2 102C4 CARIAN LETTER NG 102C5 CARIAN LETTER II 102C6 CARIAN LETTER C-39 102C7 CARIAN LETTER TT 102C8 CARIAN LETTER UUU2 102C9 CARIAN LETTER RR 102CA CARIAN LETTER MB 102CB CARIAN LETTER MB2 102CC CARIAN LETTER MB3 102CD CARIAN LETTER MB4 102CE CARIAN LETTER LD2 102CF CARIAN LETTER E2 102D0 CARIAN LETTER UUU3 102E0 COPTIC EPACT THOUSANDS MARK 102E1 COPTIC EPACT DIGIT ONE 102E2 COPTIC EPACT DIGIT TWO 102E3 COPTIC EPACT DIGIT THREE 102E4 COPTIC EPACT DIGIT FOUR 102E5 COPTIC EPACT DIGIT FIVE 102E6 COPTIC EPACT DIGIT SIX 102E7 COPTIC EPACT DIGIT SEVEN 102E8 COPTIC EPACT DIGIT EIGHT 102E9 COPTIC EPACT DIGIT NINE 102EA COPTIC EPACT NUMBER TEN 102EB COPTIC EPACT NUMBER TWENTY 102EC COPTIC EPACT NUMBER THIRTY 102ED COPTIC EPACT NUMBER FORTY 102EE COPTIC EPACT NUMBER FIFTY 102EF COPTIC EPACT NUMBER SIXTY 102F0 COPTIC EPACT NUMBER SEVENTY 102F1 COPTIC EPACT NUMBER EIGHTY 102F2 COPTIC EPACT NUMBER NINETY 102F3 COPTIC EPACT NUMBER ONE HUNDRED 102F4 COPTIC EPACT NUMBER TWO HUNDRED 102F5 COPTIC EPACT NUMBER THREE HUNDRED 102F6 COPTIC EPACT NUMBER FOUR HUNDRED 102F7 COPTIC EPACT NUMBER FIVE HUNDRED 102F8 COPTIC EPACT NUMBER SIX HUNDRED 102F9 COPTIC EPACT NUMBER SEVEN HUNDRED 102FA COPTIC EPACT NUMBER EIGHT HUNDRED 102FB COPTIC EPACT NUMBER NINE HUNDRED 10300 OLD ITALIC LETTER A 10301 OLD ITALIC LETTER BE 10302 OLD ITALIC LETTER KE 10303 OLD ITALIC LETTER DE 10304 OLD ITALIC LETTER E 10305 OLD ITALIC LETTER VE 10306 OLD ITALIC LETTER ZE 10307 OLD ITALIC LETTER HE 10308 OLD ITALIC LETTER THE 10309 OLD ITALIC LETTER I 1030A OLD ITALIC LETTER KA 1030B OLD ITALIC LETTER EL 1030C OLD ITALIC LETTER EM 1030D OLD ITALIC LETTER EN 1030E OLD ITALIC LETTER ESH 1030F OLD ITALIC LETTER O 10310 OLD ITALIC LETTER PE 10311 OLD ITALIC LETTER SHE 10312 OLD ITALIC LETTER KU 10313 OLD ITALIC LETTER ER 10314 OLD ITALIC LETTER ES 10315 OLD ITALIC LETTER TE 10316 OLD ITALIC LETTER U 10317 OLD ITALIC LETTER EKS 10318 OLD ITALIC LETTER PHE 10319 OLD ITALIC LETTER KHE 1031A OLD ITALIC LETTER EF 1031B OLD ITALIC LETTER ERS 1031C OLD ITALIC LETTER CHE 1031D OLD ITALIC LETTER II 1031E OLD ITALIC LETTER UU 1031F OLD ITALIC LETTER ESS 10320 OLD ITALIC NUMERAL ONE 10321 OLD ITALIC NUMERAL FIVE 10322 OLD ITALIC NUMERAL TEN 10323 OLD ITALIC NUMERAL FIFTY 1032D OLD ITALIC LETTER YE 1032E OLD ITALIC LETTER NORTHERN TSE 1032F OLD ITALIC LETTER SOUTHERN TSE 10330 GOTHIC LETTER AHSA 10331 GOTHIC LETTER BAIRKAN 10332 GOTHIC LETTER GIBA 10333 GOTHIC LETTER DAGS 10334 GOTHIC LETTER AIHVUS 10335 GOTHIC LETTER QAIRTHRA 10336 GOTHIC LETTER IUJA 10337 GOTHIC LETTER HAGL 10338 GOTHIC LETTER THIUTH 10339 GOTHIC LETTER EIS 1033A GOTHIC LETTER KUSMA 1033B GOTHIC LETTER LAGUS 1033C GOTHIC LETTER MANNA 1033D GOTHIC LETTER NAUTHS 1033E GOTHIC LETTER JER 1033F GOTHIC LETTER URUS 10340 GOTHIC LETTER PAIRTHRA 10341 GOTHIC LETTER NINETY 10342 GOTHIC LETTER RAIDA 10343 GOTHIC LETTER SAUIL 10344 GOTHIC LETTER TEIWS 10345 GOTHIC LETTER WINJA 10346 GOTHIC LETTER FAIHU 10347 GOTHIC LETTER IGGWS 10348 GOTHIC LETTER HWAIR 10349 GOTHIC LETTER OTHAL 1034A GOTHIC LETTER NINE HUNDRED 10350 OLD PERMIC LETTER AN 10351 OLD PERMIC LETTER BUR 10352 OLD PERMIC LETTER GAI 10353 OLD PERMIC LETTER DOI 10354 OLD PERMIC LETTER E 10355 OLD PERMIC LETTER ZHOI 10356 OLD PERMIC LETTER DZHOI 10357 OLD PERMIC LETTER ZATA 10358 OLD PERMIC LETTER DZITA 10359 OLD PERMIC LETTER I 1035A OLD PERMIC LETTER KOKE 1035B OLD PERMIC LETTER LEI 1035C OLD PERMIC LETTER MENOE 1035D OLD PERMIC LETTER NENOE 1035E OLD PERMIC LETTER VOOI 1035F OLD PERMIC LETTER PEEI 10360 OLD PERMIC LETTER REI 10361 OLD PERMIC LETTER SII 10362 OLD PERMIC LETTER TAI 10363 OLD PERMIC LETTER U 10364 OLD PERMIC LETTER CHERY 10365 OLD PERMIC LETTER SHOOI 10366 OLD PERMIC LETTER SHCHOOI 10367 OLD PERMIC LETTER YRY 10368 OLD PERMIC LETTER YERU 10369 OLD PERMIC LETTER O 1036A OLD PERMIC LETTER OO 1036B OLD PERMIC LETTER EF 1036C OLD PERMIC LETTER HA 1036D OLD PERMIC LETTER TSIU 1036E OLD PERMIC LETTER VER 1036F OLD PERMIC LETTER YER 10370 OLD PERMIC LETTER YERI 10371 OLD PERMIC LETTER YAT 10372 OLD PERMIC LETTER IE 10373 OLD PERMIC LETTER YU 10374 OLD PERMIC LETTER YA 10375 OLD PERMIC LETTER IA 10376 COMBINING OLD PERMIC LETTER AN 10377 COMBINING OLD PERMIC LETTER DOI 10378 COMBINING OLD PERMIC LETTER ZATA 10379 COMBINING OLD PERMIC LETTER NENOE 1037A COMBINING OLD PERMIC LETTER SII 10380 UGARITIC LETTER ALPA 10381 UGARITIC LETTER BETA 10382 UGARITIC LETTER GAMLA 10383 UGARITIC LETTER KHA 10384 UGARITIC LETTER DELTA 10385 UGARITIC LETTER HO 10386 UGARITIC LETTER WO 10387 UGARITIC LETTER ZETA 10388 UGARITIC LETTER HOTA 10389 UGARITIC LETTER TET 1038A UGARITIC LETTER YOD 1038B UGARITIC LETTER KAF 1038C UGARITIC LETTER SHIN 1038D UGARITIC LETTER LAMDA 1038E UGARITIC LETTER MEM 1038F UGARITIC LETTER DHAL 10390 UGARITIC LETTER NUN 10391 UGARITIC LETTER ZU 10392 UGARITIC LETTER SAMKA 10393 UGARITIC LETTER AIN 10394 UGARITIC LETTER PU 10395 UGARITIC LETTER SADE 10396 UGARITIC LETTER QOPA 10397 UGARITIC LETTER RASHA 10398 UGARITIC LETTER THANNA 10399 UGARITIC LETTER GHAIN 1039A UGARITIC LETTER TO 1039B UGARITIC LETTER I 1039C UGARITIC LETTER U 1039D UGARITIC LETTER SSU 1039F UGARITIC WORD DIVIDER 103A0 OLD PERSIAN SIGN A 103A1 OLD PERSIAN SIGN I 103A2 OLD PERSIAN SIGN U 103A3 OLD PERSIAN SIGN KA 103A4 OLD PERSIAN SIGN KU 103A5 OLD PERSIAN SIGN GA 103A6 OLD PERSIAN SIGN GU 103A7 OLD PERSIAN SIGN XA 103A8 OLD PERSIAN SIGN CA 103A9 OLD PERSIAN SIGN JA 103AA OLD PERSIAN SIGN JI 103AB OLD PERSIAN SIGN TA 103AC OLD PERSIAN SIGN TU 103AD OLD PERSIAN SIGN DA 103AE OLD PERSIAN SIGN DI 103AF OLD PERSIAN SIGN DU 103B0 OLD PERSIAN SIGN THA 103B1 OLD PERSIAN SIGN PA 103B2 OLD PERSIAN SIGN BA 103B3 OLD PERSIAN SIGN FA 103B4 OLD PERSIAN SIGN NA 103B5 OLD PERSIAN SIGN NU 103B6 OLD PERSIAN SIGN MA 103B7 OLD PERSIAN SIGN MI 103B8 OLD PERSIAN SIGN MU 103B9 OLD PERSIAN SIGN YA 103BA OLD PERSIAN SIGN VA 103BB OLD PERSIAN SIGN VI 103BC OLD PERSIAN SIGN RA 103BD OLD PERSIAN SIGN RU 103BE OLD PERSIAN SIGN LA 103BF OLD PERSIAN SIGN SA 103C0 OLD PERSIAN SIGN ZA 103C1 OLD PERSIAN SIGN SHA 103C2 OLD PERSIAN SIGN SSA 103C3 OLD PERSIAN SIGN HA 103C8 OLD PERSIAN SIGN AURAMAZDAA 103C9 OLD PERSIAN SIGN AURAMAZDAA-2 103CA OLD PERSIAN SIGN AURAMAZDAAHA 103CB OLD PERSIAN SIGN XSHAAYATHIYA 103CC OLD PERSIAN SIGN DAHYAAUSH 103CD OLD PERSIAN SIGN DAHYAAUSH-2 103CE OLD PERSIAN SIGN BAGA 103CF OLD PERSIAN SIGN BUUMISH 103D0 OLD PERSIAN WORD DIVIDER 103D1 OLD PERSIAN NUMBER ONE 103D2 OLD PERSIAN NUMBER TWO 103D3 OLD PERSIAN NUMBER TEN 103D4 OLD PERSIAN NUMBER TWENTY 103D5 OLD PERSIAN NUMBER HUNDRED 10400 DESERET CAPITAL LETTER LONG I 10401 DESERET CAPITAL LETTER LONG E 10402 DESERET CAPITAL LETTER LONG A 10403 DESERET CAPITAL LETTER LONG AH 10404 DESERET CAPITAL LETTER LONG O 10405 DESERET CAPITAL LETTER LONG OO 10406 DESERET CAPITAL LETTER SHORT I 10407 DESERET CAPITAL LETTER SHORT E 10408 DESERET CAPITAL LETTER SHORT A 10409 DESERET CAPITAL LETTER SHORT AH 1040A DESERET CAPITAL LETTER SHORT O 1040B DESERET CAPITAL LETTER SHORT OO 1040C DESERET CAPITAL LETTER AY 1040D DESERET CAPITAL LETTER OW 1040E DESERET CAPITAL LETTER WU 1040F DESERET CAPITAL LETTER YEE 10410 DESERET CAPITAL LETTER H 10411 DESERET CAPITAL LETTER PEE 10412 DESERET CAPITAL LETTER BEE 10413 DESERET CAPITAL LETTER TEE 10414 DESERET CAPITAL LETTER DEE 10415 DESERET CAPITAL LETTER CHEE 10416 DESERET CAPITAL LETTER JEE 10417 DESERET CAPITAL LETTER KAY 10418 DESERET CAPITAL LETTER GAY 10419 DESERET CAPITAL LETTER EF 1041A DESERET CAPITAL LETTER VEE 1041B DESERET CAPITAL LETTER ETH 1041C DESERET CAPITAL LETTER THEE 1041D DESERET CAPITAL LETTER ES 1041E DESERET CAPITAL LETTER ZEE 1041F DESERET CAPITAL LETTER ESH 10420 DESERET CAPITAL LETTER ZHEE 10421 DESERET CAPITAL LETTER ER 10422 DESERET CAPITAL LETTER EL 10423 DESERET CAPITAL LETTER EM 10424 DESERET CAPITAL LETTER EN 10425 DESERET CAPITAL LETTER ENG 10426 DESERET CAPITAL LETTER OI 10427 DESERET CAPITAL LETTER EW 10428 DESERET SMALL LETTER LONG I 10429 DESERET SMALL LETTER LONG E 1042A DESERET SMALL LETTER LONG A 1042B DESERET SMALL LETTER LONG AH 1042C DESERET SMALL LETTER LONG O 1042D DESERET SMALL LETTER LONG OO 1042E DESERET SMALL LETTER SHORT I 1042F DESERET SMALL LETTER SHORT E 10430 DESERET SMALL LETTER SHORT A 10431 DESERET SMALL LETTER SHORT AH 10432 DESERET SMALL LETTER SHORT O 10433 DESERET SMALL LETTER SHORT OO 10434 DESERET SMALL LETTER AY 10435 DESERET SMALL LETTER OW 10436 DESERET SMALL LETTER WU 10437 DESERET SMALL LETTER YEE 10438 DESERET SMALL LETTER H 10439 DESERET SMALL LETTER PEE 1043A DESERET SMALL LETTER BEE 1043B DESERET SMALL LETTER TEE 1043C DESERET SMALL LETTER DEE 1043D DESERET SMALL LETTER CHEE 1043E DESERET SMALL LETTER JEE 1043F DESERET SMALL LETTER KAY 10440 DESERET SMALL LETTER GAY 10441 DESERET SMALL LETTER EF 10442 DESERET SMALL LETTER VEE 10443 DESERET SMALL LETTER ETH 10444 DESERET SMALL LETTER THEE 10445 DESERET SMALL LETTER ES 10446 DESERET SMALL LETTER ZEE 10447 DESERET SMALL LETTER ESH 10448 DESERET SMALL LETTER ZHEE 10449 DESERET SMALL LETTER ER 1044A DESERET SMALL LETTER EL 1044B DESERET SMALL LETTER EM 1044C DESERET SMALL LETTER EN 1044D DESERET SMALL LETTER ENG 1044E DESERET SMALL LETTER OI 1044F DESERET SMALL LETTER EW 10450 SHAVIAN LETTER PEEP 10451 SHAVIAN LETTER TOT 10452 SHAVIAN LETTER KICK 10453 SHAVIAN LETTER FEE 10454 SHAVIAN LETTER THIGH 10455 SHAVIAN LETTER SO 10456 SHAVIAN LETTER SURE 10457 SHAVIAN LETTER CHURCH 10458 SHAVIAN LETTER YEA 10459 SHAVIAN LETTER HUNG 1045A SHAVIAN LETTER BIB 1045B SHAVIAN LETTER DEAD 1045C SHAVIAN LETTER GAG 1045D SHAVIAN LETTER VOW 1045E SHAVIAN LETTER THEY 1045F SHAVIAN LETTER ZOO 10460 SHAVIAN LETTER MEASURE 10461 SHAVIAN LETTER JUDGE 10462 SHAVIAN LETTER WOE 10463 SHAVIAN LETTER HA-HA 10464 SHAVIAN LETTER LOLL 10465 SHAVIAN LETTER MIME 10466 SHAVIAN LETTER IF 10467 SHAVIAN LETTER EGG 10468 SHAVIAN LETTER ASH 10469 SHAVIAN LETTER ADO 1046A SHAVIAN LETTER ON 1046B SHAVIAN LETTER WOOL 1046C SHAVIAN LETTER OUT 1046D SHAVIAN LETTER AH 1046E SHAVIAN LETTER ROAR 1046F SHAVIAN LETTER NUN 10470 SHAVIAN LETTER EAT 10471 SHAVIAN LETTER AGE 10472 SHAVIAN LETTER ICE 10473 SHAVIAN LETTER UP 10474 SHAVIAN LETTER OAK 10475 SHAVIAN LETTER OOZE 10476 SHAVIAN LETTER OIL 10477 SHAVIAN LETTER AWE 10478 SHAVIAN LETTER ARE 10479 SHAVIAN LETTER OR 1047A SHAVIAN LETTER AIR 1047B SHAVIAN LETTER ERR 1047C SHAVIAN LETTER ARRAY 1047D SHAVIAN LETTER EAR 1047E SHAVIAN LETTER IAN 1047F SHAVIAN LETTER YEW 10480 OSMANYA LETTER ALEF 10481 OSMANYA LETTER BA 10482 OSMANYA LETTER TA 10483 OSMANYA LETTER JA 10484 OSMANYA LETTER XA 10485 OSMANYA LETTER KHA 10486 OSMANYA LETTER DEEL 10487 OSMANYA LETTER RA 10488 OSMANYA LETTER SA 10489 OSMANYA LETTER SHIIN 1048A OSMANYA LETTER DHA 1048B OSMANYA LETTER CAYN 1048C OSMANYA LETTER GA 1048D OSMANYA LETTER FA 1048E OSMANYA LETTER QAAF 1048F OSMANYA LETTER KAAF 10490 OSMANYA LETTER LAAN 10491 OSMANYA LETTER MIIN 10492 OSMANYA LETTER NUUN 10493 OSMANYA LETTER WAW 10494 OSMANYA LETTER HA 10495 OSMANYA LETTER YA 10496 OSMANYA LETTER A 10497 OSMANYA LETTER E 10498 OSMANYA LETTER I 10499 OSMANYA LETTER O 1049A OSMANYA LETTER U 1049B OSMANYA LETTER AA 1049C OSMANYA LETTER EE 1049D OSMANYA LETTER OO 104A0 OSMANYA DIGIT ZERO 104A1 OSMANYA DIGIT ONE 104A2 OSMANYA DIGIT TWO 104A3 OSMANYA DIGIT THREE 104A4 OSMANYA DIGIT FOUR 104A5 OSMANYA DIGIT FIVE 104A6 OSMANYA DIGIT SIX 104A7 OSMANYA DIGIT SEVEN 104A8 OSMANYA DIGIT EIGHT 104A9 OSMANYA DIGIT NINE 104B0 OSAGE CAPITAL LETTER A 104B1 OSAGE CAPITAL LETTER AI 104B2 OSAGE CAPITAL LETTER AIN 104B3 OSAGE CAPITAL LETTER AH 104B4 OSAGE CAPITAL LETTER BRA 104B5 OSAGE CAPITAL LETTER CHA 104B6 OSAGE CAPITAL LETTER EHCHA 104B7 OSAGE CAPITAL LETTER E 104B8 OSAGE CAPITAL LETTER EIN 104B9 OSAGE CAPITAL LETTER HA 104BA OSAGE CAPITAL LETTER HYA 104BB OSAGE CAPITAL LETTER I 104BC OSAGE CAPITAL LETTER KA 104BD OSAGE CAPITAL LETTER EHKA 104BE OSAGE CAPITAL LETTER KYA 104BF OSAGE CAPITAL LETTER LA 104C0 OSAGE CAPITAL LETTER MA 104C1 OSAGE CAPITAL LETTER NA 104C2 OSAGE CAPITAL LETTER O 104C3 OSAGE CAPITAL LETTER OIN 104C4 OSAGE CAPITAL LETTER PA 104C5 OSAGE CAPITAL LETTER EHPA 104C6 OSAGE CAPITAL LETTER SA 104C7 OSAGE CAPITAL LETTER SHA 104C8 OSAGE CAPITAL LETTER TA 104C9 OSAGE CAPITAL LETTER EHTA 104CA OSAGE CAPITAL LETTER TSA 104CB OSAGE CAPITAL LETTER EHTSA 104CC OSAGE CAPITAL LETTER TSHA 104CD OSAGE CAPITAL LETTER DHA 104CE OSAGE CAPITAL LETTER U 104CF OSAGE CAPITAL LETTER WA 104D0 OSAGE CAPITAL LETTER KHA 104D1 OSAGE CAPITAL LETTER GHA 104D2 OSAGE CAPITAL LETTER ZA 104D3 OSAGE CAPITAL LETTER ZHA 104D8 OSAGE SMALL LETTER A 104D9 OSAGE SMALL LETTER AI 104DA OSAGE SMALL LETTER AIN 104DB OSAGE SMALL LETTER AH 104DC OSAGE SMALL LETTER BRA 104DD OSAGE SMALL LETTER CHA 104DE OSAGE SMALL LETTER EHCHA 104DF OSAGE SMALL LETTER E 104E0 OSAGE SMALL LETTER EIN 104E1 OSAGE SMALL LETTER HA 104E2 OSAGE SMALL LETTER HYA 104E3 OSAGE SMALL LETTER I 104E4 OSAGE SMALL LETTER KA 104E5 OSAGE SMALL LETTER EHKA 104E6 OSAGE SMALL LETTER KYA 104E7 OSAGE SMALL LETTER LA 104E8 OSAGE SMALL LETTER MA 104E9 OSAGE SMALL LETTER NA 104EA OSAGE SMALL LETTER O 104EB OSAGE SMALL LETTER OIN 104EC OSAGE SMALL LETTER PA 104ED OSAGE SMALL LETTER EHPA 104EE OSAGE SMALL LETTER SA 104EF OSAGE SMALL LETTER SHA 104F0 OSAGE SMALL LETTER TA 104F1 OSAGE SMALL LETTER EHTA 104F2 OSAGE SMALL LETTER TSA 104F3 OSAGE SMALL LETTER EHTSA 104F4 OSAGE SMALL LETTER TSHA 104F5 OSAGE SMALL LETTER DHA 104F6 OSAGE SMALL LETTER U 104F7 OSAGE SMALL LETTER WA 104F8 OSAGE SMALL LETTER KHA 104F9 OSAGE SMALL LETTER GHA 104FA OSAGE SMALL LETTER ZA 104FB OSAGE SMALL LETTER ZHA 10500 ELBASAN LETTER A 10501 ELBASAN LETTER BE 10502 ELBASAN LETTER CE 10503 ELBASAN LETTER CHE 10504 ELBASAN LETTER DE 10505 ELBASAN LETTER NDE 10506 ELBASAN LETTER DHE 10507 ELBASAN LETTER EI 10508 ELBASAN LETTER E 10509 ELBASAN LETTER FE 1050A ELBASAN LETTER GE 1050B ELBASAN LETTER GJE 1050C ELBASAN LETTER HE 1050D ELBASAN LETTER I 1050E ELBASAN LETTER JE 1050F ELBASAN LETTER KE 10510 ELBASAN LETTER LE 10511 ELBASAN LETTER LLE 10512 ELBASAN LETTER ME 10513 ELBASAN LETTER NE 10514 ELBASAN LETTER NA 10515 ELBASAN LETTER NJE 10516 ELBASAN LETTER O 10517 ELBASAN LETTER PE 10518 ELBASAN LETTER QE 10519 ELBASAN LETTER RE 1051A ELBASAN LETTER RRE 1051B ELBASAN LETTER SE 1051C ELBASAN LETTER SHE 1051D ELBASAN LETTER TE 1051E ELBASAN LETTER THE 1051F ELBASAN LETTER U 10520 ELBASAN LETTER VE 10521 ELBASAN LETTER XE 10522 ELBASAN LETTER Y 10523 ELBASAN LETTER ZE 10524 ELBASAN LETTER ZHE 10525 ELBASAN LETTER GHE 10526 ELBASAN LETTER GHAMMA 10527 ELBASAN LETTER KHE 10530 CAUCASIAN ALBANIAN LETTER ALT 10531 CAUCASIAN ALBANIAN LETTER BET 10532 CAUCASIAN ALBANIAN LETTER GIM 10533 CAUCASIAN ALBANIAN LETTER DAT 10534 CAUCASIAN ALBANIAN LETTER EB 10535 CAUCASIAN ALBANIAN LETTER ZARL 10536 CAUCASIAN ALBANIAN LETTER EYN 10537 CAUCASIAN ALBANIAN LETTER ZHIL 10538 CAUCASIAN ALBANIAN LETTER TAS 10539 CAUCASIAN ALBANIAN LETTER CHA 1053A CAUCASIAN ALBANIAN LETTER YOWD 1053B CAUCASIAN ALBANIAN LETTER ZHA 1053C CAUCASIAN ALBANIAN LETTER IRB 1053D CAUCASIAN ALBANIAN LETTER SHA 1053E CAUCASIAN ALBANIAN LETTER LAN 1053F CAUCASIAN ALBANIAN LETTER INYA 10540 CAUCASIAN ALBANIAN LETTER XEYN 10541 CAUCASIAN ALBANIAN LETTER DYAN 10542 CAUCASIAN ALBANIAN LETTER CAR 10543 CAUCASIAN ALBANIAN LETTER JHOX 10544 CAUCASIAN ALBANIAN LETTER KAR 10545 CAUCASIAN ALBANIAN LETTER LYIT 10546 CAUCASIAN ALBANIAN LETTER HEYT 10547 CAUCASIAN ALBANIAN LETTER QAY 10548 CAUCASIAN ALBANIAN LETTER AOR 10549 CAUCASIAN ALBANIAN LETTER CHOY 1054A CAUCASIAN ALBANIAN LETTER CHI 1054B CAUCASIAN ALBANIAN LETTER CYAY 1054C CAUCASIAN ALBANIAN LETTER MAQ 1054D CAUCASIAN ALBANIAN LETTER QAR 1054E CAUCASIAN ALBANIAN LETTER NOWC 1054F CAUCASIAN ALBANIAN LETTER DZYAY 10550 CAUCASIAN ALBANIAN LETTER SHAK 10551 CAUCASIAN ALBANIAN LETTER JAYN 10552 CAUCASIAN ALBANIAN LETTER ON 10553 CAUCASIAN ALBANIAN LETTER TYAY 10554 CAUCASIAN ALBANIAN LETTER FAM 10555 CAUCASIAN ALBANIAN LETTER DZAY 10556 CAUCASIAN ALBANIAN LETTER CHAT 10557 CAUCASIAN ALBANIAN LETTER PEN 10558 CAUCASIAN ALBANIAN LETTER GHEYS 10559 CAUCASIAN ALBANIAN LETTER RAT 1055A CAUCASIAN ALBANIAN LETTER SEYK 1055B CAUCASIAN ALBANIAN LETTER VEYZ 1055C CAUCASIAN ALBANIAN LETTER TIWR 1055D CAUCASIAN ALBANIAN LETTER SHOY 1055E CAUCASIAN ALBANIAN LETTER IWN 1055F CAUCASIAN ALBANIAN LETTER CYAW 10560 CAUCASIAN ALBANIAN LETTER CAYN 10561 CAUCASIAN ALBANIAN LETTER YAYD 10562 CAUCASIAN ALBANIAN LETTER PIWR 10563 CAUCASIAN ALBANIAN LETTER KIW 1056F CAUCASIAN ALBANIAN CITATION MARK 10600 LINEAR A SIGN AB001 10601 LINEAR A SIGN AB002 10602 LINEAR A SIGN AB003 10603 LINEAR A SIGN AB004 10604 LINEAR A SIGN AB005 10605 LINEAR A SIGN AB006 10606 LINEAR A SIGN AB007 10607 LINEAR A SIGN AB008 10608 LINEAR A SIGN AB009 10609 LINEAR A SIGN AB010 1060A LINEAR A SIGN AB011 1060B LINEAR A SIGN AB013 1060C LINEAR A SIGN AB016 1060D LINEAR A SIGN AB017 1060E LINEAR A SIGN AB020 1060F LINEAR A SIGN AB021 10610 LINEAR A SIGN AB021F 10611 LINEAR A SIGN AB021M 10612 LINEAR A SIGN AB022 10613 LINEAR A SIGN AB022F 10614 LINEAR A SIGN AB022M 10615 LINEAR A SIGN AB023 10616 LINEAR A SIGN AB023M 10617 LINEAR A SIGN AB024 10618 LINEAR A SIGN AB026 10619 LINEAR A SIGN AB027 1061A LINEAR A SIGN AB028 1061B LINEAR A SIGN A028B 1061C LINEAR A SIGN AB029 1061D LINEAR A SIGN AB030 1061E LINEAR A SIGN AB031 1061F LINEAR A SIGN AB034 10620 LINEAR A SIGN AB037 10621 LINEAR A SIGN AB038 10622 LINEAR A SIGN AB039 10623 LINEAR A SIGN AB040 10624 LINEAR A SIGN AB041 10625 LINEAR A SIGN AB044 10626 LINEAR A SIGN AB045 10627 LINEAR A SIGN AB046 10628 LINEAR A SIGN AB047 10629 LINEAR A SIGN AB048 1062A LINEAR A SIGN AB049 1062B LINEAR A SIGN AB050 1062C LINEAR A SIGN AB051 1062D LINEAR A SIGN AB053 1062E LINEAR A SIGN AB054 1062F LINEAR A SIGN AB055 10630 LINEAR A SIGN AB056 10631 LINEAR A SIGN AB057 10632 LINEAR A SIGN AB058 10633 LINEAR A SIGN AB059 10634 LINEAR A SIGN AB060 10635 LINEAR A SIGN AB061 10636 LINEAR A SIGN AB065 10637 LINEAR A SIGN AB066 10638 LINEAR A SIGN AB067 10639 LINEAR A SIGN AB069 1063A LINEAR A SIGN AB070 1063B LINEAR A SIGN AB073 1063C LINEAR A SIGN AB074 1063D LINEAR A SIGN AB076 1063E LINEAR A SIGN AB077 1063F LINEAR A SIGN AB078 10640 LINEAR A SIGN AB079 10641 LINEAR A SIGN AB080 10642 LINEAR A SIGN AB081 10643 LINEAR A SIGN AB082 10644 LINEAR A SIGN AB085 10645 LINEAR A SIGN AB086 10646 LINEAR A SIGN AB087 10647 LINEAR A SIGN A100-102 10648 LINEAR A SIGN AB118 10649 LINEAR A SIGN AB120 1064A LINEAR A SIGN A120B 1064B LINEAR A SIGN AB122 1064C LINEAR A SIGN AB123 1064D LINEAR A SIGN AB131A 1064E LINEAR A SIGN AB131B 1064F LINEAR A SIGN A131C 10650 LINEAR A SIGN AB164 10651 LINEAR A SIGN AB171 10652 LINEAR A SIGN AB180 10653 LINEAR A SIGN AB188 10654 LINEAR A SIGN AB191 10655 LINEAR A SIGN A301 10656 LINEAR A SIGN A302 10657 LINEAR A SIGN A303 10658 LINEAR A SIGN A304 10659 LINEAR A SIGN A305 1065A LINEAR A SIGN A306 1065B LINEAR A SIGN A307 1065C LINEAR A SIGN A308 1065D LINEAR A SIGN A309A 1065E LINEAR A SIGN A309B 1065F LINEAR A SIGN A309C 10660 LINEAR A SIGN A310 10661 LINEAR A SIGN A311 10662 LINEAR A SIGN A312 10663 LINEAR A SIGN A313A 10664 LINEAR A SIGN A313B 10665 LINEAR A SIGN A313C 10666 LINEAR A SIGN A314 10667 LINEAR A SIGN A315 10668 LINEAR A SIGN A316 10669 LINEAR A SIGN A317 1066A LINEAR A SIGN A318 1066B LINEAR A SIGN A319 1066C LINEAR A SIGN A320 1066D LINEAR A SIGN A321 1066E LINEAR A SIGN A322 1066F LINEAR A SIGN A323 10670 LINEAR A SIGN A324 10671 LINEAR A SIGN A325 10672 LINEAR A SIGN A326 10673 LINEAR A SIGN A327 10674 LINEAR A SIGN A328 10675 LINEAR A SIGN A329 10676 LINEAR A SIGN A330 10677 LINEAR A SIGN A331 10678 LINEAR A SIGN A332 10679 LINEAR A SIGN A333 1067A LINEAR A SIGN A334 1067B LINEAR A SIGN A335 1067C LINEAR A SIGN A336 1067D LINEAR A SIGN A337 1067E LINEAR A SIGN A338 1067F LINEAR A SIGN A339 10680 LINEAR A SIGN A340 10681 LINEAR A SIGN A341 10682 LINEAR A SIGN A342 10683 LINEAR A SIGN A343 10684 LINEAR A SIGN A344 10685 LINEAR A SIGN A345 10686 LINEAR A SIGN A346 10687 LINEAR A SIGN A347 10688 LINEAR A SIGN A348 10689 LINEAR A SIGN A349 1068A LINEAR A SIGN A350 1068B LINEAR A SIGN A351 1068C LINEAR A SIGN A352 1068D LINEAR A SIGN A353 1068E LINEAR A SIGN A354 1068F LINEAR A SIGN A355 10690 LINEAR A SIGN A356 10691 LINEAR A SIGN A357 10692 LINEAR A SIGN A358 10693 LINEAR A SIGN A359 10694 LINEAR A SIGN A360 10695 LINEAR A SIGN A361 10696 LINEAR A SIGN A362 10697 LINEAR A SIGN A363 10698 LINEAR A SIGN A364 10699 LINEAR A SIGN A365 1069A LINEAR A SIGN A366 1069B LINEAR A SIGN A367 1069C LINEAR A SIGN A368 1069D LINEAR A SIGN A369 1069E LINEAR A SIGN A370 1069F LINEAR A SIGN A371 106A0 LINEAR A SIGN A400-VAS 106A1 LINEAR A SIGN A401-VAS 106A2 LINEAR A SIGN A402-VAS 106A3 LINEAR A SIGN A403-VAS 106A4 LINEAR A SIGN A404-VAS 106A5 LINEAR A SIGN A405-VAS 106A6 LINEAR A SIGN A406-VAS 106A7 LINEAR A SIGN A407-VAS 106A8 LINEAR A SIGN A408-VAS 106A9 LINEAR A SIGN A409-VAS 106AA LINEAR A SIGN A410-VAS 106AB LINEAR A SIGN A411-VAS 106AC LINEAR A SIGN A412-VAS 106AD LINEAR A SIGN A413-VAS 106AE LINEAR A SIGN A414-VAS 106AF LINEAR A SIGN A415-VAS 106B0 LINEAR A SIGN A416-VAS 106B1 LINEAR A SIGN A417-VAS 106B2 LINEAR A SIGN A418-VAS 106B3 LINEAR A SIGN A501 106B4 LINEAR A SIGN A502 106B5 LINEAR A SIGN A503 106B6 LINEAR A SIGN A504 106B7 LINEAR A SIGN A505 106B8 LINEAR A SIGN A506 106B9 LINEAR A SIGN A508 106BA LINEAR A SIGN A509 106BB LINEAR A SIGN A510 106BC LINEAR A SIGN A511 106BD LINEAR A SIGN A512 106BE LINEAR A SIGN A513 106BF LINEAR A SIGN A515 106C0 LINEAR A SIGN A516 106C1 LINEAR A SIGN A520 106C2 LINEAR A SIGN A521 106C3 LINEAR A SIGN A523 106C4 LINEAR A SIGN A524 106C5 LINEAR A SIGN A525 106C6 LINEAR A SIGN A526 106C7 LINEAR A SIGN A527 106C8 LINEAR A SIGN A528 106C9 LINEAR A SIGN A529 106CA LINEAR A SIGN A530 106CB LINEAR A SIGN A531 106CC LINEAR A SIGN A532 106CD LINEAR A SIGN A534 106CE LINEAR A SIGN A535 106CF LINEAR A SIGN A536 106D0 LINEAR A SIGN A537 106D1 LINEAR A SIGN A538 106D2 LINEAR A SIGN A539 106D3 LINEAR A SIGN A540 106D4 LINEAR A SIGN A541 106D5 LINEAR A SIGN A542 106D6 LINEAR A SIGN A545 106D7 LINEAR A SIGN A547 106D8 LINEAR A SIGN A548 106D9 LINEAR A SIGN A549 106DA LINEAR A SIGN A550 106DB LINEAR A SIGN A551 106DC LINEAR A SIGN A552 106DD LINEAR A SIGN A553 106DE LINEAR A SIGN A554 106DF LINEAR A SIGN A555 106E0 LINEAR A SIGN A556 106E1 LINEAR A SIGN A557 106E2 LINEAR A SIGN A559 106E3 LINEAR A SIGN A563 106E4 LINEAR A SIGN A564 106E5 LINEAR A SIGN A565 106E6 LINEAR A SIGN A566 106E7 LINEAR A SIGN A568 106E8 LINEAR A SIGN A569 106E9 LINEAR A SIGN A570 106EA LINEAR A SIGN A571 106EB LINEAR A SIGN A572 106EC LINEAR A SIGN A573 106ED LINEAR A SIGN A574 106EE LINEAR A SIGN A575 106EF LINEAR A SIGN A576 106F0 LINEAR A SIGN A577 106F1 LINEAR A SIGN A578 106F2 LINEAR A SIGN A579 106F3 LINEAR A SIGN A580 106F4 LINEAR A SIGN A581 106F5 LINEAR A SIGN A582 106F6 LINEAR A SIGN A583 106F7 LINEAR A SIGN A584 106F8 LINEAR A SIGN A585 106F9 LINEAR A SIGN A586 106FA LINEAR A SIGN A587 106FB LINEAR A SIGN A588 106FC LINEAR A SIGN A589 106FD LINEAR A SIGN A591 106FE LINEAR A SIGN A592 106FF LINEAR A SIGN A594 10700 LINEAR A SIGN A595 10701 LINEAR A SIGN A596 10702 LINEAR A SIGN A598 10703 LINEAR A SIGN A600 10704 LINEAR A SIGN A601 10705 LINEAR A SIGN A602 10706 LINEAR A SIGN A603 10707 LINEAR A SIGN A604 10708 LINEAR A SIGN A606 10709 LINEAR A SIGN A608 1070A LINEAR A SIGN A609 1070B LINEAR A SIGN A610 1070C LINEAR A SIGN A611 1070D LINEAR A SIGN A612 1070E LINEAR A SIGN A613 1070F LINEAR A SIGN A614 10710 LINEAR A SIGN A615 10711 LINEAR A SIGN A616 10712 LINEAR A SIGN A617 10713 LINEAR A SIGN A618 10714 LINEAR A SIGN A619 10715 LINEAR A SIGN A620 10716 LINEAR A SIGN A621 10717 LINEAR A SIGN A622 10718 LINEAR A SIGN A623 10719 LINEAR A SIGN A624 1071A LINEAR A SIGN A626 1071B LINEAR A SIGN A627 1071C LINEAR A SIGN A628 1071D LINEAR A SIGN A629 1071E LINEAR A SIGN A634 1071F LINEAR A SIGN A637 10720 LINEAR A SIGN A638 10721 LINEAR A SIGN A640 10722 LINEAR A SIGN A642 10723 LINEAR A SIGN A643 10724 LINEAR A SIGN A644 10725 LINEAR A SIGN A645 10726 LINEAR A SIGN A646 10727 LINEAR A SIGN A648 10728 LINEAR A SIGN A649 10729 LINEAR A SIGN A651 1072A LINEAR A SIGN A652 1072B LINEAR A SIGN A653 1072C LINEAR A SIGN A654 1072D LINEAR A SIGN A655 1072E LINEAR A SIGN A656 1072F LINEAR A SIGN A657 10730 LINEAR A SIGN A658 10731 LINEAR A SIGN A659 10732 LINEAR A SIGN A660 10733 LINEAR A SIGN A661 10734 LINEAR A SIGN A662 10735 LINEAR A SIGN A663 10736 LINEAR A SIGN A664 10740 LINEAR A SIGN A701 A 10741 LINEAR A SIGN A702 B 10742 LINEAR A SIGN A703 D 10743 LINEAR A SIGN A704 E 10744 LINEAR A SIGN A705 F 10745 LINEAR A SIGN A706 H 10746 LINEAR A SIGN A707 J 10747 LINEAR A SIGN A708 K 10748 LINEAR A SIGN A709 L 10749 LINEAR A SIGN A709-2 L2 1074A LINEAR A SIGN A709-3 L3 1074B LINEAR A SIGN A709-4 L4 1074C LINEAR A SIGN A709-6 L6 1074D LINEAR A SIGN A710 W 1074E LINEAR A SIGN A711 X 1074F LINEAR A SIGN A712 Y 10750 LINEAR A SIGN A713 OMEGA 10751 LINEAR A SIGN A714 ABB 10752 LINEAR A SIGN A715 BB 10753 LINEAR A SIGN A717 DD 10754 LINEAR A SIGN A726 EYYY 10755 LINEAR A SIGN A732 JE 10760 LINEAR A SIGN A800 10761 LINEAR A SIGN A801 10762 LINEAR A SIGN A802 10763 LINEAR A SIGN A803 10764 LINEAR A SIGN A804 10765 LINEAR A SIGN A805 10766 LINEAR A SIGN A806 10767 LINEAR A SIGN A807 10800 CYPRIOT SYLLABLE A 10801 CYPRIOT SYLLABLE E 10802 CYPRIOT SYLLABLE I 10803 CYPRIOT SYLLABLE O 10804 CYPRIOT SYLLABLE U 10805 CYPRIOT SYLLABLE JA 10808 CYPRIOT SYLLABLE JO 1080A CYPRIOT SYLLABLE KA 1080B CYPRIOT SYLLABLE KE 1080C CYPRIOT SYLLABLE KI 1080D CYPRIOT SYLLABLE KO 1080E CYPRIOT SYLLABLE KU 1080F CYPRIOT SYLLABLE LA 10810 CYPRIOT SYLLABLE LE 10811 CYPRIOT SYLLABLE LI 10812 CYPRIOT SYLLABLE LO 10813 CYPRIOT SYLLABLE LU 10814 CYPRIOT SYLLABLE MA 10815 CYPRIOT SYLLABLE ME 10816 CYPRIOT SYLLABLE MI 10817 CYPRIOT SYLLABLE MO 10818 CYPRIOT SYLLABLE MU 10819 CYPRIOT SYLLABLE NA 1081A CYPRIOT SYLLABLE NE 1081B CYPRIOT SYLLABLE NI 1081C CYPRIOT SYLLABLE NO 1081D CYPRIOT SYLLABLE NU 1081E CYPRIOT SYLLABLE PA 1081F CYPRIOT SYLLABLE PE 10820 CYPRIOT SYLLABLE PI 10821 CYPRIOT SYLLABLE PO 10822 CYPRIOT SYLLABLE PU 10823 CYPRIOT SYLLABLE RA 10824 CYPRIOT SYLLABLE RE 10825 CYPRIOT SYLLABLE RI 10826 CYPRIOT SYLLABLE RO 10827 CYPRIOT SYLLABLE RU 10828 CYPRIOT SYLLABLE SA 10829 CYPRIOT SYLLABLE SE 1082A CYPRIOT SYLLABLE SI 1082B CYPRIOT SYLLABLE SO 1082C CYPRIOT SYLLABLE SU 1082D CYPRIOT SYLLABLE TA 1082E CYPRIOT SYLLABLE TE 1082F CYPRIOT SYLLABLE TI 10830 CYPRIOT SYLLABLE TO 10831 CYPRIOT SYLLABLE TU 10832 CYPRIOT SYLLABLE WA 10833 CYPRIOT SYLLABLE WE 10834 CYPRIOT SYLLABLE WI 10835 CYPRIOT SYLLABLE WO 10837 CYPRIOT SYLLABLE XA 10838 CYPRIOT SYLLABLE XE 1083C CYPRIOT SYLLABLE ZA 1083F CYPRIOT SYLLABLE ZO 10840 IMPERIAL ARAMAIC LETTER ALEPH 10841 IMPERIAL ARAMAIC LETTER BETH 10842 IMPERIAL ARAMAIC LETTER GIMEL 10843 IMPERIAL ARAMAIC LETTER DALETH 10844 IMPERIAL ARAMAIC LETTER HE 10845 IMPERIAL ARAMAIC LETTER WAW 10846 IMPERIAL ARAMAIC LETTER ZAYIN 10847 IMPERIAL ARAMAIC LETTER HETH 10848 IMPERIAL ARAMAIC LETTER TETH 10849 IMPERIAL ARAMAIC LETTER YODH 1084A IMPERIAL ARAMAIC LETTER KAPH 1084B IMPERIAL ARAMAIC LETTER LAMEDH 1084C IMPERIAL ARAMAIC LETTER MEM 1084D IMPERIAL ARAMAIC LETTER NUN 1084E IMPERIAL ARAMAIC LETTER SAMEKH 1084F IMPERIAL ARAMAIC LETTER AYIN 10850 IMPERIAL ARAMAIC LETTER PE 10851 IMPERIAL ARAMAIC LETTER SADHE 10852 IMPERIAL ARAMAIC LETTER QOPH 10853 IMPERIAL ARAMAIC LETTER RESH 10854 IMPERIAL ARAMAIC LETTER SHIN 10855 IMPERIAL ARAMAIC LETTER TAW 10857 IMPERIAL ARAMAIC SECTION SIGN 10858 IMPERIAL ARAMAIC NUMBER ONE 10859 IMPERIAL ARAMAIC NUMBER TWO 1085A IMPERIAL ARAMAIC NUMBER THREE 1085B IMPERIAL ARAMAIC NUMBER TEN 1085C IMPERIAL ARAMAIC NUMBER TWENTY 1085D IMPERIAL ARAMAIC NUMBER ONE HUNDRED 1085E IMPERIAL ARAMAIC NUMBER ONE THOUSAND 1085F IMPERIAL ARAMAIC NUMBER TEN THOUSAND 10860 PALMYRENE LETTER ALEPH 10861 PALMYRENE LETTER BETH 10862 PALMYRENE LETTER GIMEL 10863 PALMYRENE LETTER DALETH 10864 PALMYRENE LETTER HE 10865 PALMYRENE LETTER WAW 10866 PALMYRENE LETTER ZAYIN 10867 PALMYRENE LETTER HETH 10868 PALMYRENE LETTER TETH 10869 PALMYRENE LETTER YODH 1086A PALMYRENE LETTER KAPH 1086B PALMYRENE LETTER LAMEDH 1086C PALMYRENE LETTER MEM 1086D PALMYRENE LETTER FINAL NUN 1086E PALMYRENE LETTER NUN 1086F PALMYRENE LETTER SAMEKH 10870 PALMYRENE LETTER AYIN 10871 PALMYRENE LETTER PE 10872 PALMYRENE LETTER SADHE 10873 PALMYRENE LETTER QOPH 10874 PALMYRENE LETTER RESH 10875 PALMYRENE LETTER SHIN 10876 PALMYRENE LETTER TAW 10877 PALMYRENE LEFT-POINTING FLEURON 10878 PALMYRENE RIGHT-POINTING FLEURON 10879 PALMYRENE NUMBER ONE 1087A PALMYRENE NUMBER TWO 1087B PALMYRENE NUMBER THREE 1087C PALMYRENE NUMBER FOUR 1087D PALMYRENE NUMBER FIVE 1087E PALMYRENE NUMBER TEN 1087F PALMYRENE NUMBER TWENTY 10880 NABATAEAN LETTER FINAL ALEPH 10881 NABATAEAN LETTER ALEPH 10882 NABATAEAN LETTER FINAL BETH 10883 NABATAEAN LETTER BETH 10884 NABATAEAN LETTER GIMEL 10885 NABATAEAN LETTER DALETH 10886 NABATAEAN LETTER FINAL HE 10887 NABATAEAN LETTER HE 10888 NABATAEAN LETTER WAW 10889 NABATAEAN LETTER ZAYIN 1088A NABATAEAN LETTER HETH 1088B NABATAEAN LETTER TETH 1088C NABATAEAN LETTER FINAL YODH 1088D NABATAEAN LETTER YODH 1088E NABATAEAN LETTER FINAL KAPH 1088F NABATAEAN LETTER KAPH 10890 NABATAEAN LETTER FINAL LAMEDH 10891 NABATAEAN LETTER LAMEDH 10892 NABATAEAN LETTER FINAL MEM 10893 NABATAEAN LETTER MEM 10894 NABATAEAN LETTER FINAL NUN 10895 NABATAEAN LETTER NUN 10896 NABATAEAN LETTER SAMEKH 10897 NABATAEAN LETTER AYIN 10898 NABATAEAN LETTER PE 10899 NABATAEAN LETTER SADHE 1089A NABATAEAN LETTER QOPH 1089B NABATAEAN LETTER RESH 1089C NABATAEAN LETTER FINAL SHIN 1089D NABATAEAN LETTER SHIN 1089E NABATAEAN LETTER TAW 108A7 NABATAEAN NUMBER ONE 108A8 NABATAEAN NUMBER TWO 108A9 NABATAEAN NUMBER THREE 108AA NABATAEAN NUMBER FOUR 108AB NABATAEAN CRUCIFORM NUMBER FOUR 108AC NABATAEAN NUMBER FIVE 108AD NABATAEAN NUMBER TEN 108AE NABATAEAN NUMBER TWENTY 108AF NABATAEAN NUMBER ONE HUNDRED 108E0 HATRAN LETTER ALEPH 108E1 HATRAN LETTER BETH 108E2 HATRAN LETTER GIMEL 108E3 HATRAN LETTER DALETH-RESH 108E4 HATRAN LETTER HE 108E5 HATRAN LETTER WAW 108E6 HATRAN LETTER ZAYN 108E7 HATRAN LETTER HETH 108E8 HATRAN LETTER TETH 108E9 HATRAN LETTER YODH 108EA HATRAN LETTER KAPH 108EB HATRAN LETTER LAMEDH 108EC HATRAN LETTER MEM 108ED HATRAN LETTER NUN 108EE HATRAN LETTER SAMEKH 108EF HATRAN LETTER AYN 108F0 HATRAN LETTER PE 108F1 HATRAN LETTER SADHE 108F2 HATRAN LETTER QOPH 108F4 HATRAN LETTER SHIN 108F5 HATRAN LETTER TAW 108FB HATRAN NUMBER ONE 108FC HATRAN NUMBER FIVE 108FD HATRAN NUMBER TEN 108FE HATRAN NUMBER TWENTY 108FF HATRAN NUMBER ONE HUNDRED 10900 PHOENICIAN LETTER ALF 10901 PHOENICIAN LETTER BET 10902 PHOENICIAN LETTER GAML 10903 PHOENICIAN LETTER DELT 10904 PHOENICIAN LETTER HE 10905 PHOENICIAN LETTER WAU 10906 PHOENICIAN LETTER ZAI 10907 PHOENICIAN LETTER HET 10908 PHOENICIAN LETTER TET 10909 PHOENICIAN LETTER YOD 1090A PHOENICIAN LETTER KAF 1090B PHOENICIAN LETTER LAMD 1090C PHOENICIAN LETTER MEM 1090D PHOENICIAN LETTER NUN 1090E PHOENICIAN LETTER SEMK 1090F PHOENICIAN LETTER AIN 10910 PHOENICIAN LETTER PE 10911 PHOENICIAN LETTER SADE 10912 PHOENICIAN LETTER QOF 10913 PHOENICIAN LETTER ROSH 10914 PHOENICIAN LETTER SHIN 10915 PHOENICIAN LETTER TAU 10916 PHOENICIAN NUMBER ONE 10917 PHOENICIAN NUMBER TEN 10918 PHOENICIAN NUMBER TWENTY 10919 PHOENICIAN NUMBER ONE HUNDRED 1091A PHOENICIAN NUMBER TWO 1091B PHOENICIAN NUMBER THREE 1091F PHOENICIAN WORD SEPARATOR 10920 LYDIAN LETTER A 10921 LYDIAN LETTER B 10922 LYDIAN LETTER G 10923 LYDIAN LETTER D 10924 LYDIAN LETTER E 10925 LYDIAN LETTER V 10926 LYDIAN LETTER I 10927 LYDIAN LETTER Y 10928 LYDIAN LETTER K 10929 LYDIAN LETTER L 1092A LYDIAN LETTER M 1092B LYDIAN LETTER N 1092C LYDIAN LETTER O 1092D LYDIAN LETTER R 1092E LYDIAN LETTER SS 1092F LYDIAN LETTER T 10930 LYDIAN LETTER U 10931 LYDIAN LETTER F 10932 LYDIAN LETTER Q 10933 LYDIAN LETTER S 10934 LYDIAN LETTER TT 10935 LYDIAN LETTER AN 10936 LYDIAN LETTER EN 10937 LYDIAN LETTER LY 10938 LYDIAN LETTER NN 10939 LYDIAN LETTER C 1093F LYDIAN TRIANGULAR MARK 10980 MEROITIC HIEROGLYPHIC LETTER A 10981 MEROITIC HIEROGLYPHIC LETTER E 10982 MEROITIC HIEROGLYPHIC LETTER I 10983 MEROITIC HIEROGLYPHIC LETTER O 10984 MEROITIC HIEROGLYPHIC LETTER YA 10985 MEROITIC HIEROGLYPHIC LETTER WA 10986 MEROITIC HIEROGLYPHIC LETTER BA 10987 MEROITIC HIEROGLYPHIC LETTER BA-2 10988 MEROITIC HIEROGLYPHIC LETTER PA 10989 MEROITIC HIEROGLYPHIC LETTER MA 1098A MEROITIC HIEROGLYPHIC LETTER NA 1098B MEROITIC HIEROGLYPHIC LETTER NA-2 1098C MEROITIC HIEROGLYPHIC LETTER NE 1098D MEROITIC HIEROGLYPHIC LETTER NE-2 1098E MEROITIC HIEROGLYPHIC LETTER RA 1098F MEROITIC HIEROGLYPHIC LETTER RA-2 10990 MEROITIC HIEROGLYPHIC LETTER LA 10991 MEROITIC HIEROGLYPHIC LETTER KHA 10992 MEROITIC HIEROGLYPHIC LETTER HHA 10993 MEROITIC HIEROGLYPHIC LETTER SA 10994 MEROITIC HIEROGLYPHIC LETTER SA-2 10995 MEROITIC HIEROGLYPHIC LETTER SE 10996 MEROITIC HIEROGLYPHIC LETTER KA 10997 MEROITIC HIEROGLYPHIC LETTER QA 10998 MEROITIC HIEROGLYPHIC LETTER TA 10999 MEROITIC HIEROGLYPHIC LETTER TA-2 1099A MEROITIC HIEROGLYPHIC LETTER TE 1099B MEROITIC HIEROGLYPHIC LETTER TE-2 1099C MEROITIC HIEROGLYPHIC LETTER TO 1099D MEROITIC HIEROGLYPHIC LETTER DA 1099E MEROITIC HIEROGLYPHIC SYMBOL VIDJ 1099F MEROITIC HIEROGLYPHIC SYMBOL VIDJ-2 109A0 MEROITIC CURSIVE LETTER A 109A1 MEROITIC CURSIVE LETTER E 109A2 MEROITIC CURSIVE LETTER I 109A3 MEROITIC CURSIVE LETTER O 109A4 MEROITIC CURSIVE LETTER YA 109A5 MEROITIC CURSIVE LETTER WA 109A6 MEROITIC CURSIVE LETTER BA 109A7 MEROITIC CURSIVE LETTER PA 109A8 MEROITIC CURSIVE LETTER MA 109A9 MEROITIC CURSIVE LETTER NA 109AA MEROITIC CURSIVE LETTER NE 109AB MEROITIC CURSIVE LETTER RA 109AC MEROITIC CURSIVE LETTER LA 109AD MEROITIC CURSIVE LETTER KHA 109AE MEROITIC CURSIVE LETTER HHA 109AF MEROITIC CURSIVE LETTER SA 109B0 MEROITIC CURSIVE LETTER ARCHAIC SA 109B1 MEROITIC CURSIVE LETTER SE 109B2 MEROITIC CURSIVE LETTER KA 109B3 MEROITIC CURSIVE LETTER QA 109B4 MEROITIC CURSIVE LETTER TA 109B5 MEROITIC CURSIVE LETTER TE 109B6 MEROITIC CURSIVE LETTER TO 109B7 MEROITIC CURSIVE LETTER DA 109BC MEROITIC CURSIVE FRACTION ELEVEN TWELFTHS 109BD MEROITIC CURSIVE FRACTION ONE HALF 109BE MEROITIC CURSIVE LOGOGRAM RMT 109BF MEROITIC CURSIVE LOGOGRAM IMN 109C0 MEROITIC CURSIVE NUMBER ONE 109C1 MEROITIC CURSIVE NUMBER TWO 109C2 MEROITIC CURSIVE NUMBER THREE 109C3 MEROITIC CURSIVE NUMBER FOUR 109C4 MEROITIC CURSIVE NUMBER FIVE 109C5 MEROITIC CURSIVE NUMBER SIX 109C6 MEROITIC CURSIVE NUMBER SEVEN 109C7 MEROITIC CURSIVE NUMBER EIGHT 109C8 MEROITIC CURSIVE NUMBER NINE 109C9 MEROITIC CURSIVE NUMBER TEN 109CA MEROITIC CURSIVE NUMBER TWENTY 109CB MEROITIC CURSIVE NUMBER THIRTY 109CC MEROITIC CURSIVE NUMBER FORTY 109CD MEROITIC CURSIVE NUMBER FIFTY 109CE MEROITIC CURSIVE NUMBER SIXTY 109CF MEROITIC CURSIVE NUMBER SEVENTY 109D2 MEROITIC CURSIVE NUMBER ONE HUNDRED 109D3 MEROITIC CURSIVE NUMBER TWO HUNDRED 109D4 MEROITIC CURSIVE NUMBER THREE HUNDRED 109D5 MEROITIC CURSIVE NUMBER FOUR HUNDRED 109D6 MEROITIC CURSIVE NUMBER FIVE HUNDRED 109D7 MEROITIC CURSIVE NUMBER SIX HUNDRED 109D8 MEROITIC CURSIVE NUMBER SEVEN HUNDRED 109D9 MEROITIC CURSIVE NUMBER EIGHT HUNDRED 109DA MEROITIC CURSIVE NUMBER NINE HUNDRED 109DB MEROITIC CURSIVE NUMBER ONE THOUSAND 109DC MEROITIC CURSIVE NUMBER TWO THOUSAND 109DD MEROITIC CURSIVE NUMBER THREE THOUSAND 109DE MEROITIC CURSIVE NUMBER FOUR THOUSAND 109DF MEROITIC CURSIVE NUMBER FIVE THOUSAND 109E0 MEROITIC CURSIVE NUMBER SIX THOUSAND 109E1 MEROITIC CURSIVE NUMBER SEVEN THOUSAND 109E2 MEROITIC CURSIVE NUMBER EIGHT THOUSAND 109E3 MEROITIC CURSIVE NUMBER NINE THOUSAND 109E4 MEROITIC CURSIVE NUMBER TEN THOUSAND 109E5 MEROITIC CURSIVE NUMBER TWENTY THOUSAND 109E6 MEROITIC CURSIVE NUMBER THIRTY THOUSAND 109E7 MEROITIC CURSIVE NUMBER FORTY THOUSAND 109E8 MEROITIC CURSIVE NUMBER FIFTY THOUSAND 109E9 MEROITIC CURSIVE NUMBER SIXTY THOUSAND 109EA MEROITIC CURSIVE NUMBER SEVENTY THOUSAND 109EB MEROITIC CURSIVE NUMBER EIGHTY THOUSAND 109EC MEROITIC CURSIVE NUMBER NINETY THOUSAND 109ED MEROITIC CURSIVE NUMBER ONE HUNDRED THOUSAND 109EE MEROITIC CURSIVE NUMBER TWO HUNDRED THOUSAND 109EF MEROITIC CURSIVE NUMBER THREE HUNDRED THOUSAND 109F0 MEROITIC CURSIVE NUMBER FOUR HUNDRED THOUSAND 109F1 MEROITIC CURSIVE NUMBER FIVE HUNDRED THOUSAND 109F2 MEROITIC CURSIVE NUMBER SIX HUNDRED THOUSAND 109F3 MEROITIC CURSIVE NUMBER SEVEN HUNDRED THOUSAND 109F4 MEROITIC CURSIVE NUMBER EIGHT HUNDRED THOUSAND 109F5 MEROITIC CURSIVE NUMBER NINE HUNDRED THOUSAND 109F6 MEROITIC CURSIVE FRACTION ONE TWELFTH 109F7 MEROITIC CURSIVE FRACTION TWO TWELFTHS 109F8 MEROITIC CURSIVE FRACTION THREE TWELFTHS 109F9 MEROITIC CURSIVE FRACTION FOUR TWELFTHS 109FA MEROITIC CURSIVE FRACTION FIVE TWELFTHS 109FB MEROITIC CURSIVE FRACTION SIX TWELFTHS 109FC MEROITIC CURSIVE FRACTION SEVEN TWELFTHS 109FD MEROITIC CURSIVE FRACTION EIGHT TWELFTHS 109FE MEROITIC CURSIVE FRACTION NINE TWELFTHS 109FF MEROITIC CURSIVE FRACTION TEN TWELFTHS 10A00 KHAROSHTHI LETTER A 10A01 KHAROSHTHI VOWEL SIGN I 10A02 KHAROSHTHI VOWEL SIGN U 10A03 KHAROSHTHI VOWEL SIGN VOCALIC R 10A05 KHAROSHTHI VOWEL SIGN E 10A06 KHAROSHTHI VOWEL SIGN O 10A0C KHAROSHTHI VOWEL LENGTH MARK 10A0D KHAROSHTHI SIGN DOUBLE RING BELOW 10A0E KHAROSHTHI SIGN ANUSVARA 10A0F KHAROSHTHI SIGN VISARGA 10A10 KHAROSHTHI LETTER KA 10A11 KHAROSHTHI LETTER KHA 10A12 KHAROSHTHI LETTER GA 10A13 KHAROSHTHI LETTER GHA 10A15 KHAROSHTHI LETTER CA 10A16 KHAROSHTHI LETTER CHA 10A17 KHAROSHTHI LETTER JA 10A19 KHAROSHTHI LETTER NYA 10A1A KHAROSHTHI LETTER TTA 10A1B KHAROSHTHI LETTER TTHA 10A1C KHAROSHTHI LETTER DDA 10A1D KHAROSHTHI LETTER DDHA 10A1E KHAROSHTHI LETTER NNA 10A1F KHAROSHTHI LETTER TA 10A20 KHAROSHTHI LETTER THA 10A21 KHAROSHTHI LETTER DA 10A22 KHAROSHTHI LETTER DHA 10A23 KHAROSHTHI LETTER NA 10A24 KHAROSHTHI LETTER PA 10A25 KHAROSHTHI LETTER PHA 10A26 KHAROSHTHI LETTER BA 10A27 KHAROSHTHI LETTER BHA 10A28 KHAROSHTHI LETTER MA 10A29 KHAROSHTHI LETTER YA 10A2A KHAROSHTHI LETTER RA 10A2B KHAROSHTHI LETTER LA 10A2C KHAROSHTHI LETTER VA 10A2D KHAROSHTHI LETTER SHA 10A2E KHAROSHTHI LETTER SSA 10A2F KHAROSHTHI LETTER SA 10A30 KHAROSHTHI LETTER ZA 10A31 KHAROSHTHI LETTER HA 10A32 KHAROSHTHI LETTER KKA 10A33 KHAROSHTHI LETTER TTTHA 10A34 KHAROSHTHI LETTER TTTA 10A35 KHAROSHTHI LETTER VHA 10A38 KHAROSHTHI SIGN BAR ABOVE 10A39 KHAROSHTHI SIGN CAUDA 10A3A KHAROSHTHI SIGN DOT BELOW 10A3F KHAROSHTHI VIRAMA 10A40 KHAROSHTHI DIGIT ONE 10A41 KHAROSHTHI DIGIT TWO 10A42 KHAROSHTHI DIGIT THREE 10A43 KHAROSHTHI DIGIT FOUR 10A44 KHAROSHTHI NUMBER TEN 10A45 KHAROSHTHI NUMBER TWENTY 10A46 KHAROSHTHI NUMBER ONE HUNDRED 10A47 KHAROSHTHI NUMBER ONE THOUSAND 10A48 KHAROSHTHI FRACTION ONE HALF 10A50 KHAROSHTHI PUNCTUATION DOT 10A51 KHAROSHTHI PUNCTUATION SMALL CIRCLE 10A52 KHAROSHTHI PUNCTUATION CIRCLE 10A53 KHAROSHTHI PUNCTUATION CRESCENT BAR 10A54 KHAROSHTHI PUNCTUATION MANGALAM 10A55 KHAROSHTHI PUNCTUATION LOTUS 10A56 KHAROSHTHI PUNCTUATION DANDA 10A57 KHAROSHTHI PUNCTUATION DOUBLE DANDA 10A58 KHAROSHTHI PUNCTUATION LINES 10A60 OLD SOUTH ARABIAN LETTER HE 10A61 OLD SOUTH ARABIAN LETTER LAMEDH 10A62 OLD SOUTH ARABIAN LETTER HETH 10A63 OLD SOUTH ARABIAN LETTER MEM 10A64 OLD SOUTH ARABIAN LETTER QOPH 10A65 OLD SOUTH ARABIAN LETTER WAW 10A66 OLD SOUTH ARABIAN LETTER SHIN 10A67 OLD SOUTH ARABIAN LETTER RESH 10A68 OLD SOUTH ARABIAN LETTER BETH 10A69 OLD SOUTH ARABIAN LETTER TAW 10A6A OLD SOUTH ARABIAN LETTER SAT 10A6B OLD SOUTH ARABIAN LETTER KAPH 10A6C OLD SOUTH ARABIAN LETTER NUN 10A6D OLD SOUTH ARABIAN LETTER KHETH 10A6E OLD SOUTH ARABIAN LETTER SADHE 10A6F OLD SOUTH ARABIAN LETTER SAMEKH 10A70 OLD SOUTH ARABIAN LETTER FE 10A71 OLD SOUTH ARABIAN LETTER ALEF 10A72 OLD SOUTH ARABIAN LETTER AYN 10A73 OLD SOUTH ARABIAN LETTER DHADHE 10A74 OLD SOUTH ARABIAN LETTER GIMEL 10A75 OLD SOUTH ARABIAN LETTER DALETH 10A76 OLD SOUTH ARABIAN LETTER GHAYN 10A77 OLD SOUTH ARABIAN LETTER TETH 10A78 OLD SOUTH ARABIAN LETTER ZAYN 10A79 OLD SOUTH ARABIAN LETTER DHALETH 10A7A OLD SOUTH ARABIAN LETTER YODH 10A7B OLD SOUTH ARABIAN LETTER THAW 10A7C OLD SOUTH ARABIAN LETTER THETH 10A7D OLD SOUTH ARABIAN NUMBER ONE 10A7E OLD SOUTH ARABIAN NUMBER FIFTY 10A7F OLD SOUTH ARABIAN NUMERIC INDICATOR 10A80 OLD NORTH ARABIAN LETTER HEH 10A81 OLD NORTH ARABIAN LETTER LAM 10A82 OLD NORTH ARABIAN LETTER HAH 10A83 OLD NORTH ARABIAN LETTER MEEM 10A84 OLD NORTH ARABIAN LETTER QAF 10A85 OLD NORTH ARABIAN LETTER WAW 10A86 OLD NORTH ARABIAN LETTER ES-2 10A87 OLD NORTH ARABIAN LETTER REH 10A88 OLD NORTH ARABIAN LETTER BEH 10A89 OLD NORTH ARABIAN LETTER TEH 10A8A OLD NORTH ARABIAN LETTER ES-1 10A8B OLD NORTH ARABIAN LETTER KAF 10A8C OLD NORTH ARABIAN LETTER NOON 10A8D OLD NORTH ARABIAN LETTER KHAH 10A8E OLD NORTH ARABIAN LETTER SAD 10A8F OLD NORTH ARABIAN LETTER ES-3 10A90 OLD NORTH ARABIAN LETTER FEH 10A91 OLD NORTH ARABIAN LETTER ALEF 10A92 OLD NORTH ARABIAN LETTER AIN 10A93 OLD NORTH ARABIAN LETTER DAD 10A94 OLD NORTH ARABIAN LETTER GEEM 10A95 OLD NORTH ARABIAN LETTER DAL 10A96 OLD NORTH ARABIAN LETTER GHAIN 10A97 OLD NORTH ARABIAN LETTER TAH 10A98 OLD NORTH ARABIAN LETTER ZAIN 10A99 OLD NORTH ARABIAN LETTER THAL 10A9A OLD NORTH ARABIAN LETTER YEH 10A9B OLD NORTH ARABIAN LETTER THEH 10A9C OLD NORTH ARABIAN LETTER ZAH 10A9D OLD NORTH ARABIAN NUMBER ONE 10A9E OLD NORTH ARABIAN NUMBER TEN 10A9F OLD NORTH ARABIAN NUMBER TWENTY 10AC0 MANICHAEAN LETTER ALEPH 10AC1 MANICHAEAN LETTER BETH 10AC2 MANICHAEAN LETTER BHETH 10AC3 MANICHAEAN LETTER GIMEL 10AC4 MANICHAEAN LETTER GHIMEL 10AC5 MANICHAEAN LETTER DALETH 10AC6 MANICHAEAN LETTER HE 10AC7 MANICHAEAN LETTER WAW 10AC8 MANICHAEAN SIGN UD 10AC9 MANICHAEAN LETTER ZAYIN 10ACA MANICHAEAN LETTER ZHAYIN 10ACB MANICHAEAN LETTER JAYIN 10ACC MANICHAEAN LETTER JHAYIN 10ACD MANICHAEAN LETTER HETH 10ACE MANICHAEAN LETTER TETH 10ACF MANICHAEAN LETTER YODH 10AD0 MANICHAEAN LETTER KAPH 10AD1 MANICHAEAN LETTER XAPH 10AD2 MANICHAEAN LETTER KHAPH 10AD3 MANICHAEAN LETTER LAMEDH 10AD4 MANICHAEAN LETTER DHAMEDH 10AD5 MANICHAEAN LETTER THAMEDH 10AD6 MANICHAEAN LETTER MEM 10AD7 MANICHAEAN LETTER NUN 10AD8 MANICHAEAN LETTER SAMEKH 10AD9 MANICHAEAN LETTER AYIN 10ADA MANICHAEAN LETTER AAYIN 10ADB MANICHAEAN LETTER PE 10ADC MANICHAEAN LETTER FE 10ADD MANICHAEAN LETTER SADHE 10ADE MANICHAEAN LETTER QOPH 10ADF MANICHAEAN LETTER XOPH 10AE0 MANICHAEAN LETTER QHOPH 10AE1 MANICHAEAN LETTER RESH 10AE2 MANICHAEAN LETTER SHIN 10AE3 MANICHAEAN LETTER SSHIN 10AE4 MANICHAEAN LETTER TAW 10AE5 MANICHAEAN ABBREVIATION MARK ABOVE 10AE6 MANICHAEAN ABBREVIATION MARK BELOW 10AEB MANICHAEAN NUMBER ONE 10AEC MANICHAEAN NUMBER FIVE 10AED MANICHAEAN NUMBER TEN 10AEE MANICHAEAN NUMBER TWENTY 10AEF MANICHAEAN NUMBER ONE HUNDRED 10AF0 MANICHAEAN PUNCTUATION STAR 10AF1 MANICHAEAN PUNCTUATION FLEURON 10AF2 MANICHAEAN PUNCTUATION DOUBLE DOT WITHIN DOT 10AF3 MANICHAEAN PUNCTUATION DOT WITHIN DOT 10AF4 MANICHAEAN PUNCTUATION DOT 10AF5 MANICHAEAN PUNCTUATION TWO DOTS 10AF6 MANICHAEAN PUNCTUATION LINE FILLER 10B00 AVESTAN LETTER A 10B01 AVESTAN LETTER AA 10B02 AVESTAN LETTER AO 10B03 AVESTAN LETTER AAO 10B04 AVESTAN LETTER AN 10B05 AVESTAN LETTER AAN 10B06 AVESTAN LETTER AE 10B07 AVESTAN LETTER AEE 10B08 AVESTAN LETTER E 10B09 AVESTAN LETTER EE 10B0A AVESTAN LETTER O 10B0B AVESTAN LETTER OO 10B0C AVESTAN LETTER I 10B0D AVESTAN LETTER II 10B0E AVESTAN LETTER U 10B0F AVESTAN LETTER UU 10B10 AVESTAN LETTER KE 10B11 AVESTAN LETTER XE 10B12 AVESTAN LETTER XYE 10B13 AVESTAN LETTER XVE 10B14 AVESTAN LETTER GE 10B15 AVESTAN LETTER GGE 10B16 AVESTAN LETTER GHE 10B17 AVESTAN LETTER CE 10B18 AVESTAN LETTER JE 10B19 AVESTAN LETTER TE 10B1A AVESTAN LETTER THE 10B1B AVESTAN LETTER DE 10B1C AVESTAN LETTER DHE 10B1D AVESTAN LETTER TTE 10B1E AVESTAN LETTER PE 10B1F AVESTAN LETTER FE 10B20 AVESTAN LETTER BE 10B21 AVESTAN LETTER BHE 10B22 AVESTAN LETTER NGE 10B23 AVESTAN LETTER NGYE 10B24 AVESTAN LETTER NGVE 10B25 AVESTAN LETTER NE 10B26 AVESTAN LETTER NYE 10B27 AVESTAN LETTER NNE 10B28 AVESTAN LETTER ME 10B29 AVESTAN LETTER HME 10B2A AVESTAN LETTER YYE 10B2B AVESTAN LETTER YE 10B2C AVESTAN LETTER VE 10B2D AVESTAN LETTER RE 10B2E AVESTAN LETTER LE 10B2F AVESTAN LETTER SE 10B30 AVESTAN LETTER ZE 10B31 AVESTAN LETTER SHE 10B32 AVESTAN LETTER ZHE 10B33 AVESTAN LETTER SHYE 10B34 AVESTAN LETTER SSHE 10B35 AVESTAN LETTER HE 10B39 AVESTAN ABBREVIATION MARK 10B3A TINY TWO DOTS OVER ONE DOT PUNCTUATION 10B3B SMALL TWO DOTS OVER ONE DOT PUNCTUATION 10B3C LARGE TWO DOTS OVER ONE DOT PUNCTUATION 10B3D LARGE ONE DOT OVER TWO DOTS PUNCTUATION 10B3E LARGE TWO RINGS OVER ONE RING PUNCTUATION 10B3F LARGE ONE RING OVER TWO RINGS PUNCTUATION 10B40 INSCRIPTIONAL PARTHIAN LETTER ALEPH 10B41 INSCRIPTIONAL PARTHIAN LETTER BETH 10B42 INSCRIPTIONAL PARTHIAN LETTER GIMEL 10B43 INSCRIPTIONAL PARTHIAN LETTER DALETH 10B44 INSCRIPTIONAL PARTHIAN LETTER HE 10B45 INSCRIPTIONAL PARTHIAN LETTER WAW 10B46 INSCRIPTIONAL PARTHIAN LETTER ZAYIN 10B47 INSCRIPTIONAL PARTHIAN LETTER HETH 10B48 INSCRIPTIONAL PARTHIAN LETTER TETH 10B49 INSCRIPTIONAL PARTHIAN LETTER YODH 10B4A INSCRIPTIONAL PARTHIAN LETTER KAPH 10B4B INSCRIPTIONAL PARTHIAN LETTER LAMEDH 10B4C INSCRIPTIONAL PARTHIAN LETTER MEM 10B4D INSCRIPTIONAL PARTHIAN LETTER NUN 10B4E INSCRIPTIONAL PARTHIAN LETTER SAMEKH 10B4F INSCRIPTIONAL PARTHIAN LETTER AYIN 10B50 INSCRIPTIONAL PARTHIAN LETTER PE 10B51 INSCRIPTIONAL PARTHIAN LETTER SADHE 10B52 INSCRIPTIONAL PARTHIAN LETTER QOPH 10B53 INSCRIPTIONAL PARTHIAN LETTER RESH 10B54 INSCRIPTIONAL PARTHIAN LETTER SHIN 10B55 INSCRIPTIONAL PARTHIAN LETTER TAW 10B58 INSCRIPTIONAL PARTHIAN NUMBER ONE 10B59 INSCRIPTIONAL PARTHIAN NUMBER TWO 10B5A INSCRIPTIONAL PARTHIAN NUMBER THREE 10B5B INSCRIPTIONAL PARTHIAN NUMBER FOUR 10B5C INSCRIPTIONAL PARTHIAN NUMBER TEN 10B5D INSCRIPTIONAL PARTHIAN NUMBER TWENTY 10B5E INSCRIPTIONAL PARTHIAN NUMBER ONE HUNDRED 10B5F INSCRIPTIONAL PARTHIAN NUMBER ONE THOUSAND 10B60 INSCRIPTIONAL PAHLAVI LETTER ALEPH 10B61 INSCRIPTIONAL PAHLAVI LETTER BETH 10B62 INSCRIPTIONAL PAHLAVI LETTER GIMEL 10B63 INSCRIPTIONAL PAHLAVI LETTER DALETH 10B64 INSCRIPTIONAL PAHLAVI LETTER HE 10B65 INSCRIPTIONAL PAHLAVI LETTER WAW-AYIN-RESH 10B66 INSCRIPTIONAL PAHLAVI LETTER ZAYIN 10B67 INSCRIPTIONAL PAHLAVI LETTER HETH 10B68 INSCRIPTIONAL PAHLAVI LETTER TETH 10B69 INSCRIPTIONAL PAHLAVI LETTER YODH 10B6A INSCRIPTIONAL PAHLAVI LETTER KAPH 10B6B INSCRIPTIONAL PAHLAVI LETTER LAMEDH 10B6C INSCRIPTIONAL PAHLAVI LETTER MEM-QOPH 10B6D INSCRIPTIONAL PAHLAVI LETTER NUN 10B6E INSCRIPTIONAL PAHLAVI LETTER SAMEKH 10B6F INSCRIPTIONAL PAHLAVI LETTER PE 10B70 INSCRIPTIONAL PAHLAVI LETTER SADHE 10B71 INSCRIPTIONAL PAHLAVI LETTER SHIN 10B72 INSCRIPTIONAL PAHLAVI LETTER TAW 10B78 INSCRIPTIONAL PAHLAVI NUMBER ONE 10B79 INSCRIPTIONAL PAHLAVI NUMBER TWO 10B7A INSCRIPTIONAL PAHLAVI NUMBER THREE 10B7B INSCRIPTIONAL PAHLAVI NUMBER FOUR 10B7C INSCRIPTIONAL PAHLAVI NUMBER TEN 10B7D INSCRIPTIONAL PAHLAVI NUMBER TWENTY 10B7E INSCRIPTIONAL PAHLAVI NUMBER ONE HUNDRED 10B7F INSCRIPTIONAL PAHLAVI NUMBER ONE THOUSAND 10B80 PSALTER PAHLAVI LETTER ALEPH 10B81 PSALTER PAHLAVI LETTER BETH 10B82 PSALTER PAHLAVI LETTER GIMEL 10B83 PSALTER PAHLAVI LETTER DALETH 10B84 PSALTER PAHLAVI LETTER HE 10B85 PSALTER PAHLAVI LETTER WAW-AYIN-RESH 10B86 PSALTER PAHLAVI LETTER ZAYIN 10B87 PSALTER PAHLAVI LETTER HETH 10B88 PSALTER PAHLAVI LETTER YODH 10B89 PSALTER PAHLAVI LETTER KAPH 10B8A PSALTER PAHLAVI LETTER LAMEDH 10B8B PSALTER PAHLAVI LETTER MEM-QOPH 10B8C PSALTER PAHLAVI LETTER NUN 10B8D PSALTER PAHLAVI LETTER SAMEKH 10B8E PSALTER PAHLAVI LETTER PE 10B8F PSALTER PAHLAVI LETTER SADHE 10B90 PSALTER PAHLAVI LETTER SHIN 10B91 PSALTER PAHLAVI LETTER TAW 10B99 PSALTER PAHLAVI SECTION MARK 10B9A PSALTER PAHLAVI TURNED SECTION MARK 10B9B PSALTER PAHLAVI FOUR DOTS WITH CROSS 10B9C PSALTER PAHLAVI FOUR DOTS WITH DOT 10BA9 PSALTER PAHLAVI NUMBER ONE 10BAA PSALTER PAHLAVI NUMBER TWO 10BAB PSALTER PAHLAVI NUMBER THREE 10BAC PSALTER PAHLAVI NUMBER FOUR 10BAD PSALTER PAHLAVI NUMBER TEN 10BAE PSALTER PAHLAVI NUMBER TWENTY 10BAF PSALTER PAHLAVI NUMBER ONE HUNDRED 10C00 OLD TURKIC LETTER ORKHON A 10C01 OLD TURKIC LETTER YENISEI A 10C02 OLD TURKIC LETTER YENISEI AE 10C03 OLD TURKIC LETTER ORKHON I 10C04 OLD TURKIC LETTER YENISEI I 10C05 OLD TURKIC LETTER YENISEI E 10C06 OLD TURKIC LETTER ORKHON O 10C07 OLD TURKIC LETTER ORKHON OE 10C08 OLD TURKIC LETTER YENISEI OE 10C09 OLD TURKIC LETTER ORKHON AB 10C0A OLD TURKIC LETTER YENISEI AB 10C0B OLD TURKIC LETTER ORKHON AEB 10C0C OLD TURKIC LETTER YENISEI AEB 10C0D OLD TURKIC LETTER ORKHON AG 10C0E OLD TURKIC LETTER YENISEI AG 10C0F OLD TURKIC LETTER ORKHON AEG 10C10 OLD TURKIC LETTER YENISEI AEG 10C11 OLD TURKIC LETTER ORKHON AD 10C12 OLD TURKIC LETTER YENISEI AD 10C13 OLD TURKIC LETTER ORKHON AED 10C14 OLD TURKIC LETTER ORKHON EZ 10C15 OLD TURKIC LETTER YENISEI EZ 10C16 OLD TURKIC LETTER ORKHON AY 10C17 OLD TURKIC LETTER YENISEI AY 10C18 OLD TURKIC LETTER ORKHON AEY 10C19 OLD TURKIC LETTER YENISEI AEY 10C1A OLD TURKIC LETTER ORKHON AEK 10C1B OLD TURKIC LETTER YENISEI AEK 10C1C OLD TURKIC LETTER ORKHON OEK 10C1D OLD TURKIC LETTER YENISEI OEK 10C1E OLD TURKIC LETTER ORKHON AL 10C1F OLD TURKIC LETTER YENISEI AL 10C20 OLD TURKIC LETTER ORKHON AEL 10C21 OLD TURKIC LETTER ORKHON ELT 10C22 OLD TURKIC LETTER ORKHON EM 10C23 OLD TURKIC LETTER ORKHON AN 10C24 OLD TURKIC LETTER ORKHON AEN 10C25 OLD TURKIC LETTER YENISEI AEN 10C26 OLD TURKIC LETTER ORKHON ENT 10C27 OLD TURKIC LETTER YENISEI ENT 10C28 OLD TURKIC LETTER ORKHON ENC 10C29 OLD TURKIC LETTER YENISEI ENC 10C2A OLD TURKIC LETTER ORKHON ENY 10C2B OLD TURKIC LETTER YENISEI ENY 10C2C OLD TURKIC LETTER YENISEI ANG 10C2D OLD TURKIC LETTER ORKHON ENG 10C2E OLD TURKIC LETTER YENISEI AENG 10C2F OLD TURKIC LETTER ORKHON EP 10C30 OLD TURKIC LETTER ORKHON OP 10C31 OLD TURKIC LETTER ORKHON IC 10C32 OLD TURKIC LETTER ORKHON EC 10C33 OLD TURKIC LETTER YENISEI EC 10C34 OLD TURKIC LETTER ORKHON AQ 10C35 OLD TURKIC LETTER YENISEI AQ 10C36 OLD TURKIC LETTER ORKHON IQ 10C37 OLD TURKIC LETTER YENISEI IQ 10C38 OLD TURKIC LETTER ORKHON OQ 10C39 OLD TURKIC LETTER YENISEI OQ 10C3A OLD TURKIC LETTER ORKHON AR 10C3B OLD TURKIC LETTER YENISEI AR 10C3C OLD TURKIC LETTER ORKHON AER 10C3D OLD TURKIC LETTER ORKHON AS 10C3E OLD TURKIC LETTER ORKHON AES 10C3F OLD TURKIC LETTER ORKHON ASH 10C40 OLD TURKIC LETTER YENISEI ASH 10C41 OLD TURKIC LETTER ORKHON ESH 10C42 OLD TURKIC LETTER YENISEI ESH 10C43 OLD TURKIC LETTER ORKHON AT 10C44 OLD TURKIC LETTER YENISEI AT 10C45 OLD TURKIC LETTER ORKHON AET 10C46 OLD TURKIC LETTER YENISEI AET 10C47 OLD TURKIC LETTER ORKHON OT 10C48 OLD TURKIC LETTER ORKHON BASH 10C80 OLD HUNGARIAN CAPITAL LETTER A 10C81 OLD HUNGARIAN CAPITAL LETTER AA 10C82 OLD HUNGARIAN CAPITAL LETTER EB 10C83 OLD HUNGARIAN CAPITAL LETTER AMB 10C84 OLD HUNGARIAN CAPITAL LETTER EC 10C85 OLD HUNGARIAN CAPITAL LETTER ENC 10C86 OLD HUNGARIAN CAPITAL LETTER ECS 10C87 OLD HUNGARIAN CAPITAL LETTER ED 10C88 OLD HUNGARIAN CAPITAL LETTER AND 10C89 OLD HUNGARIAN CAPITAL LETTER E 10C8A OLD HUNGARIAN CAPITAL LETTER CLOSE E 10C8B OLD HUNGARIAN CAPITAL LETTER EE 10C8C OLD HUNGARIAN CAPITAL LETTER EF 10C8D OLD HUNGARIAN CAPITAL LETTER EG 10C8E OLD HUNGARIAN CAPITAL LETTER EGY 10C8F OLD HUNGARIAN CAPITAL LETTER EH 10C90 OLD HUNGARIAN CAPITAL LETTER I 10C91 OLD HUNGARIAN CAPITAL LETTER II 10C92 OLD HUNGARIAN CAPITAL LETTER EJ 10C93 OLD HUNGARIAN CAPITAL LETTER EK 10C94 OLD HUNGARIAN CAPITAL LETTER AK 10C95 OLD HUNGARIAN CAPITAL LETTER UNK 10C96 OLD HUNGARIAN CAPITAL LETTER EL 10C97 OLD HUNGARIAN CAPITAL LETTER ELY 10C98 OLD HUNGARIAN CAPITAL LETTER EM 10C99 OLD HUNGARIAN CAPITAL LETTER EN 10C9A OLD HUNGARIAN CAPITAL LETTER ENY 10C9B OLD HUNGARIAN CAPITAL LETTER O 10C9C OLD HUNGARIAN CAPITAL LETTER OO 10C9D OLD HUNGARIAN CAPITAL LETTER NIKOLSBURG OE 10C9E OLD HUNGARIAN CAPITAL LETTER RUDIMENTA OE 10C9F OLD HUNGARIAN CAPITAL LETTER OEE 10CA0 OLD HUNGARIAN CAPITAL LETTER EP 10CA1 OLD HUNGARIAN CAPITAL LETTER EMP 10CA2 OLD HUNGARIAN CAPITAL LETTER ER 10CA3 OLD HUNGARIAN CAPITAL LETTER SHORT ER 10CA4 OLD HUNGARIAN CAPITAL LETTER ES 10CA5 OLD HUNGARIAN CAPITAL LETTER ESZ 10CA6 OLD HUNGARIAN CAPITAL LETTER ET 10CA7 OLD HUNGARIAN CAPITAL LETTER ENT 10CA8 OLD HUNGARIAN CAPITAL LETTER ETY 10CA9 OLD HUNGARIAN CAPITAL LETTER ECH 10CAA OLD HUNGARIAN CAPITAL LETTER U 10CAB OLD HUNGARIAN CAPITAL LETTER UU 10CAC OLD HUNGARIAN CAPITAL LETTER NIKOLSBURG UE 10CAD OLD HUNGARIAN CAPITAL LETTER RUDIMENTA UE 10CAE OLD HUNGARIAN CAPITAL LETTER EV 10CAF OLD HUNGARIAN CAPITAL LETTER EZ 10CB0 OLD HUNGARIAN CAPITAL LETTER EZS 10CB1 OLD HUNGARIAN CAPITAL LETTER ENT-SHAPED SIGN 10CB2 OLD HUNGARIAN CAPITAL LETTER US 10CC0 OLD HUNGARIAN SMALL LETTER A 10CC1 OLD HUNGARIAN SMALL LETTER AA 10CC2 OLD HUNGARIAN SMALL LETTER EB 10CC3 OLD HUNGARIAN SMALL LETTER AMB 10CC4 OLD HUNGARIAN SMALL LETTER EC 10CC5 OLD HUNGARIAN SMALL LETTER ENC 10CC6 OLD HUNGARIAN SMALL LETTER ECS 10CC7 OLD HUNGARIAN SMALL LETTER ED 10CC8 OLD HUNGARIAN SMALL LETTER AND 10CC9 OLD HUNGARIAN SMALL LETTER E 10CCA OLD HUNGARIAN SMALL LETTER CLOSE E 10CCB OLD HUNGARIAN SMALL LETTER EE 10CCC OLD HUNGARIAN SMALL LETTER EF 10CCD OLD HUNGARIAN SMALL LETTER EG 10CCE OLD HUNGARIAN SMALL LETTER EGY 10CCF OLD HUNGARIAN SMALL LETTER EH 10CD0 OLD HUNGARIAN SMALL LETTER I 10CD1 OLD HUNGARIAN SMALL LETTER II 10CD2 OLD HUNGARIAN SMALL LETTER EJ 10CD3 OLD HUNGARIAN SMALL LETTER EK 10CD4 OLD HUNGARIAN SMALL LETTER AK 10CD5 OLD HUNGARIAN SMALL LETTER UNK 10CD6 OLD HUNGARIAN SMALL LETTER EL 10CD7 OLD HUNGARIAN SMALL LETTER ELY 10CD8 OLD HUNGARIAN SMALL LETTER EM 10CD9 OLD HUNGARIAN SMALL LETTER EN 10CDA OLD HUNGARIAN SMALL LETTER ENY 10CDB OLD HUNGARIAN SMALL LETTER O 10CDC OLD HUNGARIAN SMALL LETTER OO 10CDD OLD HUNGARIAN SMALL LETTER NIKOLSBURG OE 10CDE OLD HUNGARIAN SMALL LETTER RUDIMENTA OE 10CDF OLD HUNGARIAN SMALL LETTER OEE 10CE0 OLD HUNGARIAN SMALL LETTER EP 10CE1 OLD HUNGARIAN SMALL LETTER EMP 10CE2 OLD HUNGARIAN SMALL LETTER ER 10CE3 OLD HUNGARIAN SMALL LETTER SHORT ER 10CE4 OLD HUNGARIAN SMALL LETTER ES 10CE5 OLD HUNGARIAN SMALL LETTER ESZ 10CE6 OLD HUNGARIAN SMALL LETTER ET 10CE7 OLD HUNGARIAN SMALL LETTER ENT 10CE8 OLD HUNGARIAN SMALL LETTER ETY 10CE9 OLD HUNGARIAN SMALL LETTER ECH 10CEA OLD HUNGARIAN SMALL LETTER U 10CEB OLD HUNGARIAN SMALL LETTER UU 10CEC OLD HUNGARIAN SMALL LETTER NIKOLSBURG UE 10CED OLD HUNGARIAN SMALL LETTER RUDIMENTA UE 10CEE OLD HUNGARIAN SMALL LETTER EV 10CEF OLD HUNGARIAN SMALL LETTER EZ 10CF0 OLD HUNGARIAN SMALL LETTER EZS 10CF1 OLD HUNGARIAN SMALL LETTER ENT-SHAPED SIGN 10CF2 OLD HUNGARIAN SMALL LETTER US 10CFA OLD HUNGARIAN NUMBER ONE 10CFB OLD HUNGARIAN NUMBER FIVE 10CFC OLD HUNGARIAN NUMBER TEN 10CFD OLD HUNGARIAN NUMBER FIFTY 10CFE OLD HUNGARIAN NUMBER ONE HUNDRED 10CFF OLD HUNGARIAN NUMBER ONE THOUSAND 10D00 HANIFI ROHINGYA LETTER A 10D01 HANIFI ROHINGYA LETTER BA 10D02 HANIFI ROHINGYA LETTER PA 10D03 HANIFI ROHINGYA LETTER TA 10D04 HANIFI ROHINGYA LETTER TTA 10D05 HANIFI ROHINGYA LETTER JA 10D06 HANIFI ROHINGYA LETTER CA 10D07 HANIFI ROHINGYA LETTER HA 10D08 HANIFI ROHINGYA LETTER KHA 10D09 HANIFI ROHINGYA LETTER FA 10D0A HANIFI ROHINGYA LETTER DA 10D0B HANIFI ROHINGYA LETTER DDA 10D0C HANIFI ROHINGYA LETTER RA 10D0D HANIFI ROHINGYA LETTER RRA 10D0E HANIFI ROHINGYA LETTER ZA 10D0F HANIFI ROHINGYA LETTER SA 10D10 HANIFI ROHINGYA LETTER SHA 10D11 HANIFI ROHINGYA LETTER KA 10D12 HANIFI ROHINGYA LETTER GA 10D13 HANIFI ROHINGYA LETTER LA 10D14 HANIFI ROHINGYA LETTER MA 10D15 HANIFI ROHINGYA LETTER NA 10D16 HANIFI ROHINGYA LETTER WA 10D17 HANIFI ROHINGYA LETTER KINNA WA 10D18 HANIFI ROHINGYA LETTER YA 10D19 HANIFI ROHINGYA LETTER KINNA YA 10D1A HANIFI ROHINGYA LETTER NGA 10D1B HANIFI ROHINGYA LETTER NYA 10D1C HANIFI ROHINGYA LETTER VA 10D1D HANIFI ROHINGYA VOWEL A 10D1E HANIFI ROHINGYA VOWEL I 10D1F HANIFI ROHINGYA VOWEL U 10D20 HANIFI ROHINGYA VOWEL E 10D21 HANIFI ROHINGYA VOWEL O 10D22 HANIFI ROHINGYA MARK SAKIN 10D23 HANIFI ROHINGYA MARK NA KHONNA 10D24 HANIFI ROHINGYA SIGN HARBAHAY 10D25 HANIFI ROHINGYA SIGN TAHALA 10D26 HANIFI ROHINGYA SIGN TANA 10D27 HANIFI ROHINGYA SIGN TASSI 10D30 HANIFI ROHINGYA DIGIT ZERO 10D31 HANIFI ROHINGYA DIGIT ONE 10D32 HANIFI ROHINGYA DIGIT TWO 10D33 HANIFI ROHINGYA DIGIT THREE 10D34 HANIFI ROHINGYA DIGIT FOUR 10D35 HANIFI ROHINGYA DIGIT FIVE 10D36 HANIFI ROHINGYA DIGIT SIX 10D37 HANIFI ROHINGYA DIGIT SEVEN 10D38 HANIFI ROHINGYA DIGIT EIGHT 10D39 HANIFI ROHINGYA DIGIT NINE 10E60 RUMI DIGIT ONE 10E61 RUMI DIGIT TWO 10E62 RUMI DIGIT THREE 10E63 RUMI DIGIT FOUR 10E64 RUMI DIGIT FIVE 10E65 RUMI DIGIT SIX 10E66 RUMI DIGIT SEVEN 10E67 RUMI DIGIT EIGHT 10E68 RUMI DIGIT NINE 10E69 RUMI NUMBER TEN 10E6A RUMI NUMBER TWENTY 10E6B RUMI NUMBER THIRTY 10E6C RUMI NUMBER FORTY 10E6D RUMI NUMBER FIFTY 10E6E RUMI NUMBER SIXTY 10E6F RUMI NUMBER SEVENTY 10E70 RUMI NUMBER EIGHTY 10E71 RUMI NUMBER NINETY 10E72 RUMI NUMBER ONE HUNDRED 10E73 RUMI NUMBER TWO HUNDRED 10E74 RUMI NUMBER THREE HUNDRED 10E75 RUMI NUMBER FOUR HUNDRED 10E76 RUMI NUMBER FIVE HUNDRED 10E77 RUMI NUMBER SIX HUNDRED 10E78 RUMI NUMBER SEVEN HUNDRED 10E79 RUMI NUMBER EIGHT HUNDRED 10E7A RUMI NUMBER NINE HUNDRED 10E7B RUMI FRACTION ONE HALF 10E7C RUMI FRACTION ONE QUARTER 10E7D RUMI FRACTION ONE THIRD 10E7E RUMI FRACTION TWO THIRDS 10E80 YEZIDI LETTER ELIF 10E81 YEZIDI LETTER BE 10E82 YEZIDI LETTER PE 10E83 YEZIDI LETTER PHE 10E84 YEZIDI LETTER THE 10E85 YEZIDI LETTER SE 10E86 YEZIDI LETTER CIM 10E87 YEZIDI LETTER CHIM 10E88 YEZIDI LETTER CHHIM 10E89 YEZIDI LETTER HHA 10E8A YEZIDI LETTER XA 10E8B YEZIDI LETTER DAL 10E8C YEZIDI LETTER ZAL 10E8D YEZIDI LETTER RA 10E8E YEZIDI LETTER RHA 10E8F YEZIDI LETTER ZA 10E90 YEZIDI LETTER JA 10E91 YEZIDI LETTER SIN 10E92 YEZIDI LETTER SHIN 10E93 YEZIDI LETTER SAD 10E94 YEZIDI LETTER DAD 10E95 YEZIDI LETTER TA 10E96 YEZIDI LETTER ZE 10E97 YEZIDI LETTER EYN 10E98 YEZIDI LETTER XHEYN 10E99 YEZIDI LETTER FA 10E9A YEZIDI LETTER VA 10E9B YEZIDI LETTER VA ALTERNATE FORM 10E9C YEZIDI LETTER QAF 10E9D YEZIDI LETTER KAF 10E9E YEZIDI LETTER KHAF 10E9F YEZIDI LETTER GAF 10EA0 YEZIDI LETTER LAM 10EA1 YEZIDI LETTER MIM 10EA2 YEZIDI LETTER NUN 10EA3 YEZIDI LETTER UM 10EA4 YEZIDI LETTER WAW 10EA5 YEZIDI LETTER OW 10EA6 YEZIDI LETTER EW 10EA7 YEZIDI LETTER HAY 10EA8 YEZIDI LETTER YOT 10EA9 YEZIDI LETTER ET 10EAB YEZIDI COMBINING HAMZA MARK 10EAC YEZIDI COMBINING MADDA MARK 10EAD YEZIDI HYPHENATION MARK 10EB0 YEZIDI LETTER LAM WITH DOT ABOVE 10EB1 YEZIDI LETTER YOT WITH CIRCUMFLEX ABOVE 10F00 OLD SOGDIAN LETTER ALEPH 10F01 OLD SOGDIAN LETTER FINAL ALEPH 10F02 OLD SOGDIAN LETTER BETH 10F03 OLD SOGDIAN LETTER FINAL BETH 10F04 OLD SOGDIAN LETTER GIMEL 10F05 OLD SOGDIAN LETTER HE 10F06 OLD SOGDIAN LETTER FINAL HE 10F07 OLD SOGDIAN LETTER WAW 10F08 OLD SOGDIAN LETTER ZAYIN 10F09 OLD SOGDIAN LETTER HETH 10F0A OLD SOGDIAN LETTER YODH 10F0B OLD SOGDIAN LETTER KAPH 10F0C OLD SOGDIAN LETTER LAMEDH 10F0D OLD SOGDIAN LETTER MEM 10F0E OLD SOGDIAN LETTER NUN 10F0F OLD SOGDIAN LETTER FINAL NUN 10F10 OLD SOGDIAN LETTER FINAL NUN WITH VERTICAL TAIL 10F11 OLD SOGDIAN LETTER SAMEKH 10F12 OLD SOGDIAN LETTER AYIN 10F13 OLD SOGDIAN LETTER ALTERNATE AYIN 10F14 OLD SOGDIAN LETTER PE 10F15 OLD SOGDIAN LETTER SADHE 10F16 OLD SOGDIAN LETTER FINAL SADHE 10F17 OLD SOGDIAN LETTER FINAL SADHE WITH VERTICAL TAIL 10F18 OLD SOGDIAN LETTER RESH-AYIN-DALETH 10F19 OLD SOGDIAN LETTER SHIN 10F1A OLD SOGDIAN LETTER TAW 10F1B OLD SOGDIAN LETTER FINAL TAW 10F1C OLD SOGDIAN LETTER FINAL TAW WITH VERTICAL TAIL 10F1D OLD SOGDIAN NUMBER ONE 10F1E OLD SOGDIAN NUMBER TWO 10F1F OLD SOGDIAN NUMBER THREE 10F20 OLD SOGDIAN NUMBER FOUR 10F21 OLD SOGDIAN NUMBER FIVE 10F22 OLD SOGDIAN NUMBER TEN 10F23 OLD SOGDIAN NUMBER TWENTY 10F24 OLD SOGDIAN NUMBER THIRTY 10F25 OLD SOGDIAN NUMBER ONE HUNDRED 10F26 OLD SOGDIAN FRACTION ONE HALF 10F27 OLD SOGDIAN LIGATURE AYIN-DALETH 10F30 SOGDIAN LETTER ALEPH 10F31 SOGDIAN LETTER BETH 10F32 SOGDIAN LETTER GIMEL 10F33 SOGDIAN LETTER HE 10F34 SOGDIAN LETTER WAW 10F35 SOGDIAN LETTER ZAYIN 10F36 SOGDIAN LETTER HETH 10F37 SOGDIAN LETTER YODH 10F38 SOGDIAN LETTER KAPH 10F39 SOGDIAN LETTER LAMEDH 10F3A SOGDIAN LETTER MEM 10F3B SOGDIAN LETTER NUN 10F3C SOGDIAN LETTER SAMEKH 10F3D SOGDIAN LETTER AYIN 10F3E SOGDIAN LETTER PE 10F3F SOGDIAN LETTER SADHE 10F40 SOGDIAN LETTER RESH-AYIN 10F41 SOGDIAN LETTER SHIN 10F42 SOGDIAN LETTER TAW 10F43 SOGDIAN LETTER FETH 10F44 SOGDIAN LETTER LESH 10F45 SOGDIAN INDEPENDENT SHIN 10F46 SOGDIAN COMBINING DOT BELOW 10F47 SOGDIAN COMBINING TWO DOTS BELOW 10F48 SOGDIAN COMBINING DOT ABOVE 10F49 SOGDIAN COMBINING TWO DOTS ABOVE 10F4A SOGDIAN COMBINING CURVE ABOVE 10F4B SOGDIAN COMBINING CURVE BELOW 10F4C SOGDIAN COMBINING HOOK ABOVE 10F4D SOGDIAN COMBINING HOOK BELOW 10F4E SOGDIAN COMBINING LONG HOOK BELOW 10F4F SOGDIAN COMBINING RESH BELOW 10F50 SOGDIAN COMBINING STROKE BELOW 10F51 SOGDIAN NUMBER ONE 10F52 SOGDIAN NUMBER TEN 10F53 SOGDIAN NUMBER TWENTY 10F54 SOGDIAN NUMBER ONE HUNDRED 10F55 SOGDIAN PUNCTUATION TWO VERTICAL BARS 10F56 SOGDIAN PUNCTUATION TWO VERTICAL BARS WITH DOTS 10F57 SOGDIAN PUNCTUATION CIRCLE WITH DOT 10F58 SOGDIAN PUNCTUATION TWO CIRCLES WITH DOTS 10F59 SOGDIAN PUNCTUATION HALF CIRCLE WITH DOT 10FB0 CHORASMIAN LETTER ALEPH 10FB1 CHORASMIAN LETTER SMALL ALEPH 10FB2 CHORASMIAN LETTER BETH 10FB3 CHORASMIAN LETTER GIMEL 10FB4 CHORASMIAN LETTER DALETH 10FB5 CHORASMIAN LETTER HE 10FB6 CHORASMIAN LETTER WAW 10FB7 CHORASMIAN LETTER CURLED WAW 10FB8 CHORASMIAN LETTER ZAYIN 10FB9 CHORASMIAN LETTER HETH 10FBA CHORASMIAN LETTER YODH 10FBB CHORASMIAN LETTER KAPH 10FBC CHORASMIAN LETTER LAMEDH 10FBD CHORASMIAN LETTER MEM 10FBE CHORASMIAN LETTER NUN 10FBF CHORASMIAN LETTER SAMEKH 10FC0 CHORASMIAN LETTER AYIN 10FC1 CHORASMIAN LETTER PE 10FC2 CHORASMIAN LETTER RESH 10FC3 CHORASMIAN LETTER SHIN 10FC4 CHORASMIAN LETTER TAW 10FC5 CHORASMIAN NUMBER ONE 10FC6 CHORASMIAN NUMBER TWO 10FC7 CHORASMIAN NUMBER THREE 10FC8 CHORASMIAN NUMBER FOUR 10FC9 CHORASMIAN NUMBER TEN 10FCA CHORASMIAN NUMBER TWENTY 10FCB CHORASMIAN NUMBER ONE HUNDRED 10FE0 ELYMAIC LETTER ALEPH 10FE1 ELYMAIC LETTER BETH 10FE2 ELYMAIC LETTER GIMEL 10FE3 ELYMAIC LETTER DALETH 10FE4 ELYMAIC LETTER HE 10FE5 ELYMAIC LETTER WAW 10FE6 ELYMAIC LETTER ZAYIN 10FE7 ELYMAIC LETTER HETH 10FE8 ELYMAIC LETTER TETH 10FE9 ELYMAIC LETTER YODH 10FEA ELYMAIC LETTER KAPH 10FEB ELYMAIC LETTER LAMEDH 10FEC ELYMAIC LETTER MEM 10FED ELYMAIC LETTER NUN 10FEE ELYMAIC LETTER SAMEKH 10FEF ELYMAIC LETTER AYIN 10FF0 ELYMAIC LETTER PE 10FF1 ELYMAIC LETTER SADHE 10FF2 ELYMAIC LETTER QOPH 10FF3 ELYMAIC LETTER RESH 10FF4 ELYMAIC LETTER SHIN 10FF5 ELYMAIC LETTER TAW 10FF6 ELYMAIC LIGATURE ZAYIN-YODH 11000 BRAHMI SIGN CANDRABINDU 11001 BRAHMI SIGN ANUSVARA 11002 BRAHMI SIGN VISARGA 11003 BRAHMI SIGN JIHVAMULIYA 11004 BRAHMI SIGN UPADHMANIYA 11005 BRAHMI LETTER A 11006 BRAHMI LETTER AA 11007 BRAHMI LETTER I 11008 BRAHMI LETTER II 11009 BRAHMI LETTER U 1100A BRAHMI LETTER UU 1100B BRAHMI LETTER VOCALIC R 1100C BRAHMI LETTER VOCALIC RR 1100D BRAHMI LETTER VOCALIC L 1100E BRAHMI LETTER VOCALIC LL 1100F BRAHMI LETTER E 11010 BRAHMI LETTER AI 11011 BRAHMI LETTER O 11012 BRAHMI LETTER AU 11013 BRAHMI LETTER KA 11014 BRAHMI LETTER KHA 11015 BRAHMI LETTER GA 11016 BRAHMI LETTER GHA 11017 BRAHMI LETTER NGA 11018 BRAHMI LETTER CA 11019 BRAHMI LETTER CHA 1101A BRAHMI LETTER JA 1101B BRAHMI LETTER JHA 1101C BRAHMI LETTER NYA 1101D BRAHMI LETTER TTA 1101E BRAHMI LETTER TTHA 1101F BRAHMI LETTER DDA 11020 BRAHMI LETTER DDHA 11021 BRAHMI LETTER NNA 11022 BRAHMI LETTER TA 11023 BRAHMI LETTER THA 11024 BRAHMI LETTER DA 11025 BRAHMI LETTER DHA 11026 BRAHMI LETTER NA 11027 BRAHMI LETTER PA 11028 BRAHMI LETTER PHA 11029 BRAHMI LETTER BA 1102A BRAHMI LETTER BHA 1102B BRAHMI LETTER MA 1102C BRAHMI LETTER YA 1102D BRAHMI LETTER RA 1102E BRAHMI LETTER LA 1102F BRAHMI LETTER VA 11030 BRAHMI LETTER SHA 11031 BRAHMI LETTER SSA 11032 BRAHMI LETTER SA 11033 BRAHMI LETTER HA 11034 BRAHMI LETTER LLA 11035 BRAHMI LETTER OLD TAMIL LLLA 11036 BRAHMI LETTER OLD TAMIL RRA 11037 BRAHMI LETTER OLD TAMIL NNNA 11038 BRAHMI VOWEL SIGN AA 11039 BRAHMI VOWEL SIGN BHATTIPROLU AA 1103A BRAHMI VOWEL SIGN I 1103B BRAHMI VOWEL SIGN II 1103C BRAHMI VOWEL SIGN U 1103D BRAHMI VOWEL SIGN UU 1103E BRAHMI VOWEL SIGN VOCALIC R 1103F BRAHMI VOWEL SIGN VOCALIC RR 11040 BRAHMI VOWEL SIGN VOCALIC L 11041 BRAHMI VOWEL SIGN VOCALIC LL 11042 BRAHMI VOWEL SIGN E 11043 BRAHMI VOWEL SIGN AI 11044 BRAHMI VOWEL SIGN O 11045 BRAHMI VOWEL SIGN AU 11046 BRAHMI VIRAMA 11047 BRAHMI DANDA 11048 BRAHMI DOUBLE DANDA 11049 BRAHMI PUNCTUATION DOT 1104A BRAHMI PUNCTUATION DOUBLE DOT 1104B BRAHMI PUNCTUATION LINE 1104C BRAHMI PUNCTUATION CRESCENT BAR 1104D BRAHMI PUNCTUATION LOTUS 11052 BRAHMI NUMBER ONE 11053 BRAHMI NUMBER TWO 11054 BRAHMI NUMBER THREE 11055 BRAHMI NUMBER FOUR 11056 BRAHMI NUMBER FIVE 11057 BRAHMI NUMBER SIX 11058 BRAHMI NUMBER SEVEN 11059 BRAHMI NUMBER EIGHT 1105A BRAHMI NUMBER NINE 1105B BRAHMI NUMBER TEN 1105C BRAHMI NUMBER TWENTY 1105D BRAHMI NUMBER THIRTY 1105E BRAHMI NUMBER FORTY 1105F BRAHMI NUMBER FIFTY 11060 BRAHMI NUMBER SIXTY 11061 BRAHMI NUMBER SEVENTY 11062 BRAHMI NUMBER EIGHTY 11063 BRAHMI NUMBER NINETY 11064 BRAHMI NUMBER ONE HUNDRED 11065 BRAHMI NUMBER ONE THOUSAND 11066 BRAHMI DIGIT ZERO 11067 BRAHMI DIGIT ONE 11068 BRAHMI DIGIT TWO 11069 BRAHMI DIGIT THREE 1106A BRAHMI DIGIT FOUR 1106B BRAHMI DIGIT FIVE 1106C BRAHMI DIGIT SIX 1106D BRAHMI DIGIT SEVEN 1106E BRAHMI DIGIT EIGHT 1106F BRAHMI DIGIT NINE 1107F BRAHMI NUMBER JOINER 11080 KAITHI SIGN CANDRABINDU 11081 KAITHI SIGN ANUSVARA 11082 KAITHI SIGN VISARGA 11083 KAITHI LETTER A 11084 KAITHI LETTER AA 11085 KAITHI LETTER I 11086 KAITHI LETTER II 11087 KAITHI LETTER U 11088 KAITHI LETTER UU 11089 KAITHI LETTER E 1108A KAITHI LETTER AI 1108B KAITHI LETTER O 1108C KAITHI LETTER AU 1108D KAITHI LETTER KA 1108E KAITHI LETTER KHA 1108F KAITHI LETTER GA 11090 KAITHI LETTER GHA 11091 KAITHI LETTER NGA 11092 KAITHI LETTER CA 11093 KAITHI LETTER CHA 11094 KAITHI LETTER JA 11095 KAITHI LETTER JHA 11096 KAITHI LETTER NYA 11097 KAITHI LETTER TTA 11098 KAITHI LETTER TTHA 11099 KAITHI LETTER DDA 1109A KAITHI LETTER DDDHA 1109B KAITHI LETTER DDHA 1109C KAITHI LETTER RHA 1109D KAITHI LETTER NNA 1109E KAITHI LETTER TA 1109F KAITHI LETTER THA 110A0 KAITHI LETTER DA 110A1 KAITHI LETTER DHA 110A2 KAITHI LETTER NA 110A3 KAITHI LETTER PA 110A4 KAITHI LETTER PHA 110A5 KAITHI LETTER BA 110A6 KAITHI LETTER BHA 110A7 KAITHI LETTER MA 110A8 KAITHI LETTER YA 110A9 KAITHI LETTER RA 110AA KAITHI LETTER LA 110AB KAITHI LETTER VA 110AC KAITHI LETTER SHA 110AD KAITHI LETTER SSA 110AE KAITHI LETTER SA 110AF KAITHI LETTER HA 110B0 KAITHI VOWEL SIGN AA 110B1 KAITHI VOWEL SIGN I 110B2 KAITHI VOWEL SIGN II 110B3 KAITHI VOWEL SIGN U 110B4 KAITHI VOWEL SIGN UU 110B5 KAITHI VOWEL SIGN E 110B6 KAITHI VOWEL SIGN AI 110B7 KAITHI VOWEL SIGN O 110B8 KAITHI VOWEL SIGN AU 110B9 KAITHI SIGN VIRAMA 110BA KAITHI SIGN NUKTA 110BB KAITHI ABBREVIATION SIGN 110BC KAITHI ENUMERATION SIGN 110BD KAITHI NUMBER SIGN 110BE KAITHI SECTION MARK 110BF KAITHI DOUBLE SECTION MARK 110C0 KAITHI DANDA 110C1 KAITHI DOUBLE DANDA 110CD KAITHI NUMBER SIGN ABOVE 110D0 SORA SOMPENG LETTER SAH 110D1 SORA SOMPENG LETTER TAH 110D2 SORA SOMPENG LETTER BAH 110D3 SORA SOMPENG LETTER CAH 110D4 SORA SOMPENG LETTER DAH 110D5 SORA SOMPENG LETTER GAH 110D6 SORA SOMPENG LETTER MAH 110D7 SORA SOMPENG LETTER NGAH 110D8 SORA SOMPENG LETTER LAH 110D9 SORA SOMPENG LETTER NAH 110DA SORA SOMPENG LETTER VAH 110DB SORA SOMPENG LETTER PAH 110DC SORA SOMPENG LETTER YAH 110DD SORA SOMPENG LETTER RAH 110DE SORA SOMPENG LETTER HAH 110DF SORA SOMPENG LETTER KAH 110E0 SORA SOMPENG LETTER JAH 110E1 SORA SOMPENG LETTER NYAH 110E2 SORA SOMPENG LETTER AH 110E3 SORA SOMPENG LETTER EEH 110E4 SORA SOMPENG LETTER IH 110E5 SORA SOMPENG LETTER UH 110E6 SORA SOMPENG LETTER OH 110E7 SORA SOMPENG LETTER EH 110E8 SORA SOMPENG LETTER MAE 110F0 SORA SOMPENG DIGIT ZERO 110F1 SORA SOMPENG DIGIT ONE 110F2 SORA SOMPENG DIGIT TWO 110F3 SORA SOMPENG DIGIT THREE 110F4 SORA SOMPENG DIGIT FOUR 110F5 SORA SOMPENG DIGIT FIVE 110F6 SORA SOMPENG DIGIT SIX 110F7 SORA SOMPENG DIGIT SEVEN 110F8 SORA SOMPENG DIGIT EIGHT 110F9 SORA SOMPENG DIGIT NINE 11100 CHAKMA SIGN CANDRABINDU 11101 CHAKMA SIGN ANUSVARA 11102 CHAKMA SIGN VISARGA 11103 CHAKMA LETTER AA 11104 CHAKMA LETTER I 11105 CHAKMA LETTER U 11106 CHAKMA LETTER E 11107 CHAKMA LETTER KAA 11108 CHAKMA LETTER KHAA 11109 CHAKMA LETTER GAA 1110A CHAKMA LETTER GHAA 1110B CHAKMA LETTER NGAA 1110C CHAKMA LETTER CAA 1110D CHAKMA LETTER CHAA 1110E CHAKMA LETTER JAA 1110F CHAKMA LETTER JHAA 11110 CHAKMA LETTER NYAA 11111 CHAKMA LETTER TTAA 11112 CHAKMA LETTER TTHAA 11113 CHAKMA LETTER DDAA 11114 CHAKMA LETTER DDHAA 11115 CHAKMA LETTER NNAA 11116 CHAKMA LETTER TAA 11117 CHAKMA LETTER THAA 11118 CHAKMA LETTER DAA 11119 CHAKMA LETTER DHAA 1111A CHAKMA LETTER NAA 1111B CHAKMA LETTER PAA 1111C CHAKMA LETTER PHAA 1111D CHAKMA LETTER BAA 1111E CHAKMA LETTER BHAA 1111F CHAKMA LETTER MAA 11120 CHAKMA LETTER YYAA 11121 CHAKMA LETTER YAA 11122 CHAKMA LETTER RAA 11123 CHAKMA LETTER LAA 11124 CHAKMA LETTER WAA 11125 CHAKMA LETTER SAA 11126 CHAKMA LETTER HAA 11127 CHAKMA VOWEL SIGN A 11128 CHAKMA VOWEL SIGN I 11129 CHAKMA VOWEL SIGN II 1112A CHAKMA VOWEL SIGN U 1112B CHAKMA VOWEL SIGN UU 1112C CHAKMA VOWEL SIGN E 1112D CHAKMA VOWEL SIGN AI 1112E CHAKMA VOWEL SIGN O 1112F CHAKMA VOWEL SIGN AU 11130 CHAKMA VOWEL SIGN OI 11131 CHAKMA O MARK 11132 CHAKMA AU MARK 11133 CHAKMA VIRAMA 11134 CHAKMA MAAYYAA 11136 CHAKMA DIGIT ZERO 11137 CHAKMA DIGIT ONE 11138 CHAKMA DIGIT TWO 11139 CHAKMA DIGIT THREE 1113A CHAKMA DIGIT FOUR 1113B CHAKMA DIGIT FIVE 1113C CHAKMA DIGIT SIX 1113D CHAKMA DIGIT SEVEN 1113E CHAKMA DIGIT EIGHT 1113F CHAKMA DIGIT NINE 11140 CHAKMA SECTION MARK 11141 CHAKMA DANDA 11142 CHAKMA DOUBLE DANDA 11143 CHAKMA QUESTION MARK 11144 CHAKMA LETTER LHAA 11145 CHAKMA VOWEL SIGN AA 11146 CHAKMA VOWEL SIGN EI 11147 CHAKMA LETTER VAA 11150 MAHAJANI LETTER A 11151 MAHAJANI LETTER I 11152 MAHAJANI LETTER U 11153 MAHAJANI LETTER E 11154 MAHAJANI LETTER O 11155 MAHAJANI LETTER KA 11156 MAHAJANI LETTER KHA 11157 MAHAJANI LETTER GA 11158 MAHAJANI LETTER GHA 11159 MAHAJANI LETTER CA 1115A MAHAJANI LETTER CHA 1115B MAHAJANI LETTER JA 1115C MAHAJANI LETTER JHA 1115D MAHAJANI LETTER NYA 1115E MAHAJANI LETTER TTA 1115F MAHAJANI LETTER TTHA 11160 MAHAJANI LETTER DDA 11161 MAHAJANI LETTER DDHA 11162 MAHAJANI LETTER NNA 11163 MAHAJANI LETTER TA 11164 MAHAJANI LETTER THA 11165 MAHAJANI LETTER DA 11166 MAHAJANI LETTER DHA 11167 MAHAJANI LETTER NA 11168 MAHAJANI LETTER PA 11169 MAHAJANI LETTER PHA 1116A MAHAJANI LETTER BA 1116B MAHAJANI LETTER BHA 1116C MAHAJANI LETTER MA 1116D MAHAJANI LETTER RA 1116E MAHAJANI LETTER LA 1116F MAHAJANI LETTER VA 11170 MAHAJANI LETTER SA 11171 MAHAJANI LETTER HA 11172 MAHAJANI LETTER RRA 11173 MAHAJANI SIGN NUKTA 11174 MAHAJANI ABBREVIATION SIGN 11175 MAHAJANI SECTION MARK 11176 MAHAJANI LIGATURE SHRI 11180 SHARADA SIGN CANDRABINDU 11181 SHARADA SIGN ANUSVARA 11182 SHARADA SIGN VISARGA 11183 SHARADA LETTER A 11184 SHARADA LETTER AA 11185 SHARADA LETTER I 11186 SHARADA LETTER II 11187 SHARADA LETTER U 11188 SHARADA LETTER UU 11189 SHARADA LETTER VOCALIC R 1118A SHARADA LETTER VOCALIC RR 1118B SHARADA LETTER VOCALIC L 1118C SHARADA LETTER VOCALIC LL 1118D SHARADA LETTER E 1118E SHARADA LETTER AI 1118F SHARADA LETTER O 11190 SHARADA LETTER AU 11191 SHARADA LETTER KA 11192 SHARADA LETTER KHA 11193 SHARADA LETTER GA 11194 SHARADA LETTER GHA 11195 SHARADA LETTER NGA 11196 SHARADA LETTER CA 11197 SHARADA LETTER CHA 11198 SHARADA LETTER JA 11199 SHARADA LETTER JHA 1119A SHARADA LETTER NYA 1119B SHARADA LETTER TTA 1119C SHARADA LETTER TTHA 1119D SHARADA LETTER DDA 1119E SHARADA LETTER DDHA 1119F SHARADA LETTER NNA 111A0 SHARADA LETTER TA 111A1 SHARADA LETTER THA 111A2 SHARADA LETTER DA 111A3 SHARADA LETTER DHA 111A4 SHARADA LETTER NA 111A5 SHARADA LETTER PA 111A6 SHARADA LETTER PHA 111A7 SHARADA LETTER BA 111A8 SHARADA LETTER BHA 111A9 SHARADA LETTER MA 111AA SHARADA LETTER YA 111AB SHARADA LETTER RA 111AC SHARADA LETTER LA 111AD SHARADA LETTER LLA 111AE SHARADA LETTER VA 111AF SHARADA LETTER SHA 111B0 SHARADA LETTER SSA 111B1 SHARADA LETTER SA 111B2 SHARADA LETTER HA 111B3 SHARADA VOWEL SIGN AA 111B4 SHARADA VOWEL SIGN I 111B5 SHARADA VOWEL SIGN II 111B6 SHARADA VOWEL SIGN U 111B7 SHARADA VOWEL SIGN UU 111B8 SHARADA VOWEL SIGN VOCALIC R 111B9 SHARADA VOWEL SIGN VOCALIC RR 111BA SHARADA VOWEL SIGN VOCALIC L 111BB SHARADA VOWEL SIGN VOCALIC LL 111BC SHARADA VOWEL SIGN E 111BD SHARADA VOWEL SIGN AI 111BE SHARADA VOWEL SIGN O 111BF SHARADA VOWEL SIGN AU 111C0 SHARADA SIGN VIRAMA 111C1 SHARADA SIGN AVAGRAHA 111C2 SHARADA SIGN JIHVAMULIYA 111C3 SHARADA SIGN UPADHMANIYA 111C4 SHARADA OM 111C5 SHARADA DANDA 111C6 SHARADA DOUBLE DANDA 111C7 SHARADA ABBREVIATION SIGN 111C8 SHARADA SEPARATOR 111C9 SHARADA SANDHI MARK 111CA SHARADA SIGN NUKTA 111CB SHARADA VOWEL MODIFIER MARK 111CC SHARADA EXTRA SHORT VOWEL MARK 111CD SHARADA SUTRA MARK 111CE SHARADA VOWEL SIGN PRISHTHAMATRA E 111CF SHARADA SIGN INVERTED CANDRABINDU 111D0 SHARADA DIGIT ZERO 111D1 SHARADA DIGIT ONE 111D2 SHARADA DIGIT TWO 111D3 SHARADA DIGIT THREE 111D4 SHARADA DIGIT FOUR 111D5 SHARADA DIGIT FIVE 111D6 SHARADA DIGIT SIX 111D7 SHARADA DIGIT SEVEN 111D8 SHARADA DIGIT EIGHT 111D9 SHARADA DIGIT NINE 111DA SHARADA EKAM 111DB SHARADA SIGN SIDDHAM 111DC SHARADA HEADSTROKE 111DD SHARADA CONTINUATION SIGN 111DE SHARADA SECTION MARK-1 111DF SHARADA SECTION MARK-2 111E1 SINHALA ARCHAIC DIGIT ONE 111E2 SINHALA ARCHAIC DIGIT TWO 111E3 SINHALA ARCHAIC DIGIT THREE 111E4 SINHALA ARCHAIC DIGIT FOUR 111E5 SINHALA ARCHAIC DIGIT FIVE 111E6 SINHALA ARCHAIC DIGIT SIX 111E7 SINHALA ARCHAIC DIGIT SEVEN 111E8 SINHALA ARCHAIC DIGIT EIGHT 111E9 SINHALA ARCHAIC DIGIT NINE 111EA SINHALA ARCHAIC NUMBER TEN 111EB SINHALA ARCHAIC NUMBER TWENTY 111EC SINHALA ARCHAIC NUMBER THIRTY 111ED SINHALA ARCHAIC NUMBER FORTY 111EE SINHALA ARCHAIC NUMBER FIFTY 111EF SINHALA ARCHAIC NUMBER SIXTY 111F0 SINHALA ARCHAIC NUMBER SEVENTY 111F1 SINHALA ARCHAIC NUMBER EIGHTY 111F2 SINHALA ARCHAIC NUMBER NINETY 111F3 SINHALA ARCHAIC NUMBER ONE HUNDRED 111F4 SINHALA ARCHAIC NUMBER ONE THOUSAND 11200 KHOJKI LETTER A 11201 KHOJKI LETTER AA 11202 KHOJKI LETTER I 11203 KHOJKI LETTER U 11204 KHOJKI LETTER E 11205 KHOJKI LETTER AI 11206 KHOJKI LETTER O 11207 KHOJKI LETTER AU 11208 KHOJKI LETTER KA 11209 KHOJKI LETTER KHA 1120A KHOJKI LETTER GA 1120B KHOJKI LETTER GGA 1120C KHOJKI LETTER GHA 1120D KHOJKI LETTER NGA 1120E KHOJKI LETTER CA 1120F KHOJKI LETTER CHA 11210 KHOJKI LETTER JA 11211 KHOJKI LETTER JJA 11213 KHOJKI LETTER NYA 11214 KHOJKI LETTER TTA 11215 KHOJKI LETTER TTHA 11216 KHOJKI LETTER DDA 11217 KHOJKI LETTER DDHA 11218 KHOJKI LETTER NNA 11219 KHOJKI LETTER TA 1121A KHOJKI LETTER THA 1121B KHOJKI LETTER DA 1121C KHOJKI LETTER DDDA 1121D KHOJKI LETTER DHA 1121E KHOJKI LETTER NA 1121F KHOJKI LETTER PA 11220 KHOJKI LETTER PHA 11221 KHOJKI LETTER BA 11222 KHOJKI LETTER BBA 11223 KHOJKI LETTER BHA 11224 KHOJKI LETTER MA 11225 KHOJKI LETTER YA 11226 KHOJKI LETTER RA 11227 KHOJKI LETTER LA 11228 KHOJKI LETTER VA 11229 KHOJKI LETTER SA 1122A KHOJKI LETTER HA 1122B KHOJKI LETTER LLA 1122C KHOJKI VOWEL SIGN AA 1122D KHOJKI VOWEL SIGN I 1122E KHOJKI VOWEL SIGN II 1122F KHOJKI VOWEL SIGN U 11230 KHOJKI VOWEL SIGN E 11231 KHOJKI VOWEL SIGN AI 11232 KHOJKI VOWEL SIGN O 11233 KHOJKI VOWEL SIGN AU 11234 KHOJKI SIGN ANUSVARA 11235 KHOJKI SIGN VIRAMA 11236 KHOJKI SIGN NUKTA 11237 KHOJKI SIGN SHADDA 11238 KHOJKI DANDA 11239 KHOJKI DOUBLE DANDA 1123A KHOJKI WORD SEPARATOR 1123B KHOJKI SECTION MARK 1123C KHOJKI DOUBLE SECTION MARK 1123D KHOJKI ABBREVIATION SIGN 1123E KHOJKI SIGN SUKUN 11280 MULTANI LETTER A 11281 MULTANI LETTER I 11282 MULTANI LETTER U 11283 MULTANI LETTER E 11284 MULTANI LETTER KA 11285 MULTANI LETTER KHA 11286 MULTANI LETTER GA 11288 MULTANI LETTER GHA 1128A MULTANI LETTER CA 1128B MULTANI LETTER CHA 1128C MULTANI LETTER JA 1128D MULTANI LETTER JJA 1128F MULTANI LETTER NYA 11290 MULTANI LETTER TTA 11291 MULTANI LETTER TTHA 11292 MULTANI LETTER DDA 11293 MULTANI LETTER DDDA 11294 MULTANI LETTER DDHA 11295 MULTANI LETTER NNA 11296 MULTANI LETTER TA 11297 MULTANI LETTER THA 11298 MULTANI LETTER DA 11299 MULTANI LETTER DHA 1129A MULTANI LETTER NA 1129B MULTANI LETTER PA 1129C MULTANI LETTER PHA 1129D MULTANI LETTER BA 1129F MULTANI LETTER BHA 112A0 MULTANI LETTER MA 112A1 MULTANI LETTER YA 112A2 MULTANI LETTER RA 112A3 MULTANI LETTER LA 112A4 MULTANI LETTER VA 112A5 MULTANI LETTER SA 112A6 MULTANI LETTER HA 112A7 MULTANI LETTER RRA 112A8 MULTANI LETTER RHA 112A9 MULTANI SECTION MARK 112B0 KHUDAWADI LETTER A 112B1 KHUDAWADI LETTER AA 112B2 KHUDAWADI LETTER I 112B3 KHUDAWADI LETTER II 112B4 KHUDAWADI LETTER U 112B5 KHUDAWADI LETTER UU 112B6 KHUDAWADI LETTER E 112B7 KHUDAWADI LETTER AI 112B8 KHUDAWADI LETTER O 112B9 KHUDAWADI LETTER AU 112BA KHUDAWADI LETTER KA 112BB KHUDAWADI LETTER KHA 112BC KHUDAWADI LETTER GA 112BD KHUDAWADI LETTER GGA 112BE KHUDAWADI LETTER GHA 112BF KHUDAWADI LETTER NGA 112C0 KHUDAWADI LETTER CA 112C1 KHUDAWADI LETTER CHA 112C2 KHUDAWADI LETTER JA 112C3 KHUDAWADI LETTER JJA 112C4 KHUDAWADI LETTER JHA 112C5 KHUDAWADI LETTER NYA 112C6 KHUDAWADI LETTER TTA 112C7 KHUDAWADI LETTER TTHA 112C8 KHUDAWADI LETTER DDA 112C9 KHUDAWADI LETTER DDDA 112CA KHUDAWADI LETTER RRA 112CB KHUDAWADI LETTER DDHA 112CC KHUDAWADI LETTER NNA 112CD KHUDAWADI LETTER TA 112CE KHUDAWADI LETTER THA 112CF KHUDAWADI LETTER DA 112D0 KHUDAWADI LETTER DHA 112D1 KHUDAWADI LETTER NA 112D2 KHUDAWADI LETTER PA 112D3 KHUDAWADI LETTER PHA 112D4 KHUDAWADI LETTER BA 112D5 KHUDAWADI LETTER BBA 112D6 KHUDAWADI LETTER BHA 112D7 KHUDAWADI LETTER MA 112D8 KHUDAWADI LETTER YA 112D9 KHUDAWADI LETTER RA 112DA KHUDAWADI LETTER LA 112DB KHUDAWADI LETTER VA 112DC KHUDAWADI LETTER SHA 112DD KHUDAWADI LETTER SA 112DE KHUDAWADI LETTER HA 112DF KHUDAWADI SIGN ANUSVARA 112E0 KHUDAWADI VOWEL SIGN AA 112E1 KHUDAWADI VOWEL SIGN I 112E2 KHUDAWADI VOWEL SIGN II 112E3 KHUDAWADI VOWEL SIGN U 112E4 KHUDAWADI VOWEL SIGN UU 112E5 KHUDAWADI VOWEL SIGN E 112E6 KHUDAWADI VOWEL SIGN AI 112E7 KHUDAWADI VOWEL SIGN O 112E8 KHUDAWADI VOWEL SIGN AU 112E9 KHUDAWADI SIGN NUKTA 112EA KHUDAWADI SIGN VIRAMA 112F0 KHUDAWADI DIGIT ZERO 112F1 KHUDAWADI DIGIT ONE 112F2 KHUDAWADI DIGIT TWO 112F3 KHUDAWADI DIGIT THREE 112F4 KHUDAWADI DIGIT FOUR 112F5 KHUDAWADI DIGIT FIVE 112F6 KHUDAWADI DIGIT SIX 112F7 KHUDAWADI DIGIT SEVEN 112F8 KHUDAWADI DIGIT EIGHT 112F9 KHUDAWADI DIGIT NINE 11300 GRANTHA SIGN COMBINING ANUSVARA ABOVE 11301 GRANTHA SIGN CANDRABINDU 11302 GRANTHA SIGN ANUSVARA 11303 GRANTHA SIGN VISARGA 11305 GRANTHA LETTER A 11306 GRANTHA LETTER AA 11307 GRANTHA LETTER I 11308 GRANTHA LETTER II 11309 GRANTHA LETTER U 1130A GRANTHA LETTER UU 1130B GRANTHA LETTER VOCALIC R 1130C GRANTHA LETTER VOCALIC L 1130F GRANTHA LETTER EE 11310 GRANTHA LETTER AI 11313 GRANTHA LETTER OO 11314 GRANTHA LETTER AU 11315 GRANTHA LETTER KA 11316 GRANTHA LETTER KHA 11317 GRANTHA LETTER GA 11318 GRANTHA LETTER GHA 11319 GRANTHA LETTER NGA 1131A GRANTHA LETTER CA 1131B GRANTHA LETTER CHA 1131C GRANTHA LETTER JA 1131D GRANTHA LETTER JHA 1131E GRANTHA LETTER NYA 1131F GRANTHA LETTER TTA 11320 GRANTHA LETTER TTHA 11321 GRANTHA LETTER DDA 11322 GRANTHA LETTER DDHA 11323 GRANTHA LETTER NNA 11324 GRANTHA LETTER TA 11325 GRANTHA LETTER THA 11326 GRANTHA LETTER DA 11327 GRANTHA LETTER DHA 11328 GRANTHA LETTER NA 1132A GRANTHA LETTER PA 1132B GRANTHA LETTER PHA 1132C GRANTHA LETTER BA 1132D GRANTHA LETTER BHA 1132E GRANTHA LETTER MA 1132F GRANTHA LETTER YA 11330 GRANTHA LETTER RA 11332 GRANTHA LETTER LA 11333 GRANTHA LETTER LLA 11335 GRANTHA LETTER VA 11336 GRANTHA LETTER SHA 11337 GRANTHA LETTER SSA 11338 GRANTHA LETTER SA 11339 GRANTHA LETTER HA 1133B COMBINING BINDU BELOW 1133C GRANTHA SIGN NUKTA 1133D GRANTHA SIGN AVAGRAHA 1133E GRANTHA VOWEL SIGN AA 1133F GRANTHA VOWEL SIGN I 11340 GRANTHA VOWEL SIGN II 11341 GRANTHA VOWEL SIGN U 11342 GRANTHA VOWEL SIGN UU 11343 GRANTHA VOWEL SIGN VOCALIC R 11344 GRANTHA VOWEL SIGN VOCALIC RR 11347 GRANTHA VOWEL SIGN EE 11348 GRANTHA VOWEL SIGN AI 1134B GRANTHA VOWEL SIGN OO 1134C GRANTHA VOWEL SIGN AU 1134D GRANTHA SIGN VIRAMA 11350 GRANTHA OM 11357 GRANTHA AU LENGTH MARK 1135D GRANTHA SIGN PLUTA 1135E GRANTHA LETTER VEDIC ANUSVARA 1135F GRANTHA LETTER VEDIC DOUBLE ANUSVARA 11360 GRANTHA LETTER VOCALIC RR 11361 GRANTHA LETTER VOCALIC LL 11362 GRANTHA VOWEL SIGN VOCALIC L 11363 GRANTHA VOWEL SIGN VOCALIC LL 11366 COMBINING GRANTHA DIGIT ZERO 11367 COMBINING GRANTHA DIGIT ONE 11368 COMBINING GRANTHA DIGIT TWO 11369 COMBINING GRANTHA DIGIT THREE 1136A COMBINING GRANTHA DIGIT FOUR 1136B COMBINING GRANTHA DIGIT FIVE 1136C COMBINING GRANTHA DIGIT SIX 11370 COMBINING GRANTHA LETTER A 11371 COMBINING GRANTHA LETTER KA 11372 COMBINING GRANTHA LETTER NA 11373 COMBINING GRANTHA LETTER VI 11374 COMBINING GRANTHA LETTER PA 11400 NEWA LETTER A 11401 NEWA LETTER AA 11402 NEWA LETTER I 11403 NEWA LETTER II 11404 NEWA LETTER U 11405 NEWA LETTER UU 11406 NEWA LETTER VOCALIC R 11407 NEWA LETTER VOCALIC RR 11408 NEWA LETTER VOCALIC L 11409 NEWA LETTER VOCALIC LL 1140A NEWA LETTER E 1140B NEWA LETTER AI 1140C NEWA LETTER O 1140D NEWA LETTER AU 1140E NEWA LETTER KA 1140F NEWA LETTER KHA 11410 NEWA LETTER GA 11411 NEWA LETTER GHA 11412 NEWA LETTER NGA 11413 NEWA LETTER NGHA 11414 NEWA LETTER CA 11415 NEWA LETTER CHA 11416 NEWA LETTER JA 11417 NEWA LETTER JHA 11418 NEWA LETTER NYA 11419 NEWA LETTER NYHA 1141A NEWA LETTER TTA 1141B NEWA LETTER TTHA 1141C NEWA LETTER DDA 1141D NEWA LETTER DDHA 1141E NEWA LETTER NNA 1141F NEWA LETTER TA 11420 NEWA LETTER THA 11421 NEWA LETTER DA 11422 NEWA LETTER DHA 11423 NEWA LETTER NA 11424 NEWA LETTER NHA 11425 NEWA LETTER PA 11426 NEWA LETTER PHA 11427 NEWA LETTER BA 11428 NEWA LETTER BHA 11429 NEWA LETTER MA 1142A NEWA LETTER MHA 1142B NEWA LETTER YA 1142C NEWA LETTER RA 1142D NEWA LETTER RHA 1142E NEWA LETTER LA 1142F NEWA LETTER LHA 11430 NEWA LETTER WA 11431 NEWA LETTER SHA 11432 NEWA LETTER SSA 11433 NEWA LETTER SA 11434 NEWA LETTER HA 11435 NEWA VOWEL SIGN AA 11436 NEWA VOWEL SIGN I 11437 NEWA VOWEL SIGN II 11438 NEWA VOWEL SIGN U 11439 NEWA VOWEL SIGN UU 1143A NEWA VOWEL SIGN VOCALIC R 1143B NEWA VOWEL SIGN VOCALIC RR 1143C NEWA VOWEL SIGN VOCALIC L 1143D NEWA VOWEL SIGN VOCALIC LL 1143E NEWA VOWEL SIGN E 1143F NEWA VOWEL SIGN AI 11440 NEWA VOWEL SIGN O 11441 NEWA VOWEL SIGN AU 11442 NEWA SIGN VIRAMA 11443 NEWA SIGN CANDRABINDU 11444 NEWA SIGN ANUSVARA 11445 NEWA SIGN VISARGA 11446 NEWA SIGN NUKTA 11447 NEWA SIGN AVAGRAHA 11448 NEWA SIGN FINAL ANUSVARA 11449 NEWA OM 1144A NEWA SIDDHI 1144B NEWA DANDA 1144C NEWA DOUBLE DANDA 1144D NEWA COMMA 1144E NEWA GAP FILLER 1144F NEWA ABBREVIATION SIGN 11450 NEWA DIGIT ZERO 11451 NEWA DIGIT ONE 11452 NEWA DIGIT TWO 11453 NEWA DIGIT THREE 11454 NEWA DIGIT FOUR 11455 NEWA DIGIT FIVE 11456 NEWA DIGIT SIX 11457 NEWA DIGIT SEVEN 11458 NEWA DIGIT EIGHT 11459 NEWA DIGIT NINE 1145A NEWA DOUBLE COMMA 1145B NEWA PLACEHOLDER MARK 1145D NEWA INSERTION SIGN 1145E NEWA SANDHI MARK 1145F NEWA LETTER VEDIC ANUSVARA 11460 NEWA SIGN JIHVAMULIYA 11461 NEWA SIGN UPADHMANIYA 11480 TIRHUTA ANJI 11481 TIRHUTA LETTER A 11482 TIRHUTA LETTER AA 11483 TIRHUTA LETTER I 11484 TIRHUTA LETTER II 11485 TIRHUTA LETTER U 11486 TIRHUTA LETTER UU 11487 TIRHUTA LETTER VOCALIC R 11488 TIRHUTA LETTER VOCALIC RR 11489 TIRHUTA LETTER VOCALIC L 1148A TIRHUTA LETTER VOCALIC LL 1148B TIRHUTA LETTER E 1148C TIRHUTA LETTER AI 1148D TIRHUTA LETTER O 1148E TIRHUTA LETTER AU 1148F TIRHUTA LETTER KA 11490 TIRHUTA LETTER KHA 11491 TIRHUTA LETTER GA 11492 TIRHUTA LETTER GHA 11493 TIRHUTA LETTER NGA 11494 TIRHUTA LETTER CA 11495 TIRHUTA LETTER CHA 11496 TIRHUTA LETTER JA 11497 TIRHUTA LETTER JHA 11498 TIRHUTA LETTER NYA 11499 TIRHUTA LETTER TTA 1149A TIRHUTA LETTER TTHA 1149B TIRHUTA LETTER DDA 1149C TIRHUTA LETTER DDHA 1149D TIRHUTA LETTER NNA 1149E TIRHUTA LETTER TA 1149F TIRHUTA LETTER THA 114A0 TIRHUTA LETTER DA 114A1 TIRHUTA LETTER DHA 114A2 TIRHUTA LETTER NA 114A3 TIRHUTA LETTER PA 114A4 TIRHUTA LETTER PHA 114A5 TIRHUTA LETTER BA 114A6 TIRHUTA LETTER BHA 114A7 TIRHUTA LETTER MA 114A8 TIRHUTA LETTER YA 114A9 TIRHUTA LETTER RA 114AA TIRHUTA LETTER LA 114AB TIRHUTA LETTER VA 114AC TIRHUTA LETTER SHA 114AD TIRHUTA LETTER SSA 114AE TIRHUTA LETTER SA 114AF TIRHUTA LETTER HA 114B0 TIRHUTA VOWEL SIGN AA 114B1 TIRHUTA VOWEL SIGN I 114B2 TIRHUTA VOWEL SIGN II 114B3 TIRHUTA VOWEL SIGN U 114B4 TIRHUTA VOWEL SIGN UU 114B5 TIRHUTA VOWEL SIGN VOCALIC R 114B6 TIRHUTA VOWEL SIGN VOCALIC RR 114B7 TIRHUTA VOWEL SIGN VOCALIC L 114B8 TIRHUTA VOWEL SIGN VOCALIC LL 114B9 TIRHUTA VOWEL SIGN E 114BA TIRHUTA VOWEL SIGN SHORT E 114BB TIRHUTA VOWEL SIGN AI 114BC TIRHUTA VOWEL SIGN O 114BD TIRHUTA VOWEL SIGN SHORT O 114BE TIRHUTA VOWEL SIGN AU 114BF TIRHUTA SIGN CANDRABINDU 114C0 TIRHUTA SIGN ANUSVARA 114C1 TIRHUTA SIGN VISARGA 114C2 TIRHUTA SIGN VIRAMA 114C3 TIRHUTA SIGN NUKTA 114C4 TIRHUTA SIGN AVAGRAHA 114C5 TIRHUTA GVANG 114C6 TIRHUTA ABBREVIATION SIGN 114C7 TIRHUTA OM 114D0 TIRHUTA DIGIT ZERO 114D1 TIRHUTA DIGIT ONE 114D2 TIRHUTA DIGIT TWO 114D3 TIRHUTA DIGIT THREE 114D4 TIRHUTA DIGIT FOUR 114D5 TIRHUTA DIGIT FIVE 114D6 TIRHUTA DIGIT SIX 114D7 TIRHUTA DIGIT SEVEN 114D8 TIRHUTA DIGIT EIGHT 114D9 TIRHUTA DIGIT NINE 11580 SIDDHAM LETTER A 11581 SIDDHAM LETTER AA 11582 SIDDHAM LETTER I 11583 SIDDHAM LETTER II 11584 SIDDHAM LETTER U 11585 SIDDHAM LETTER UU 11586 SIDDHAM LETTER VOCALIC R 11587 SIDDHAM LETTER VOCALIC RR 11588 SIDDHAM LETTER VOCALIC L 11589 SIDDHAM LETTER VOCALIC LL 1158A SIDDHAM LETTER E 1158B SIDDHAM LETTER AI 1158C SIDDHAM LETTER O 1158D SIDDHAM LETTER AU 1158E SIDDHAM LETTER KA 1158F SIDDHAM LETTER KHA 11590 SIDDHAM LETTER GA 11591 SIDDHAM LETTER GHA 11592 SIDDHAM LETTER NGA 11593 SIDDHAM LETTER CA 11594 SIDDHAM LETTER CHA 11595 SIDDHAM LETTER JA 11596 SIDDHAM LETTER JHA 11597 SIDDHAM LETTER NYA 11598 SIDDHAM LETTER TTA 11599 SIDDHAM LETTER TTHA 1159A SIDDHAM LETTER DDA 1159B SIDDHAM LETTER DDHA 1159C SIDDHAM LETTER NNA 1159D SIDDHAM LETTER TA 1159E SIDDHAM LETTER THA 1159F SIDDHAM LETTER DA 115A0 SIDDHAM LETTER DHA 115A1 SIDDHAM LETTER NA 115A2 SIDDHAM LETTER PA 115A3 SIDDHAM LETTER PHA 115A4 SIDDHAM LETTER BA 115A5 SIDDHAM LETTER BHA 115A6 SIDDHAM LETTER MA 115A7 SIDDHAM LETTER YA 115A8 SIDDHAM LETTER RA 115A9 SIDDHAM LETTER LA 115AA SIDDHAM LETTER VA 115AB SIDDHAM LETTER SHA 115AC SIDDHAM LETTER SSA 115AD SIDDHAM LETTER SA 115AE SIDDHAM LETTER HA 115AF SIDDHAM VOWEL SIGN AA 115B0 SIDDHAM VOWEL SIGN I 115B1 SIDDHAM VOWEL SIGN II 115B2 SIDDHAM VOWEL SIGN U 115B3 SIDDHAM VOWEL SIGN UU 115B4 SIDDHAM VOWEL SIGN VOCALIC R 115B5 SIDDHAM VOWEL SIGN VOCALIC RR 115B8 SIDDHAM VOWEL SIGN E 115B9 SIDDHAM VOWEL SIGN AI 115BA SIDDHAM VOWEL SIGN O 115BB SIDDHAM VOWEL SIGN AU 115BC SIDDHAM SIGN CANDRABINDU 115BD SIDDHAM SIGN ANUSVARA 115BE SIDDHAM SIGN VISARGA 115BF SIDDHAM SIGN VIRAMA 115C0 SIDDHAM SIGN NUKTA 115C1 SIDDHAM SIGN SIDDHAM 115C2 SIDDHAM DANDA 115C3 SIDDHAM DOUBLE DANDA 115C4 SIDDHAM SEPARATOR DOT 115C5 SIDDHAM SEPARATOR BAR 115C6 SIDDHAM REPETITION MARK-1 115C7 SIDDHAM REPETITION MARK-2 115C8 SIDDHAM REPETITION MARK-3 115C9 SIDDHAM END OF TEXT MARK 115CA SIDDHAM SECTION MARK WITH TRIDENT AND U-SHAPED ORNAMENTS 115CB SIDDHAM SECTION MARK WITH TRIDENT AND DOTTED CRESCENTS 115CC SIDDHAM SECTION MARK WITH RAYS AND DOTTED CRESCENTS 115CD SIDDHAM SECTION MARK WITH RAYS AND DOTTED DOUBLE CRESCENTS 115CE SIDDHAM SECTION MARK WITH RAYS AND DOTTED TRIPLE CRESCENTS 115CF SIDDHAM SECTION MARK DOUBLE RING 115D0 SIDDHAM SECTION MARK DOUBLE RING WITH RAYS 115D1 SIDDHAM SECTION MARK WITH DOUBLE CRESCENTS 115D2 SIDDHAM SECTION MARK WITH TRIPLE CRESCENTS 115D3 SIDDHAM SECTION MARK WITH QUADRUPLE CRESCENTS 115D4 SIDDHAM SECTION MARK WITH SEPTUPLE CRESCENTS 115D5 SIDDHAM SECTION MARK WITH CIRCLES AND RAYS 115D6 SIDDHAM SECTION MARK WITH CIRCLES AND TWO ENCLOSURES 115D7 SIDDHAM SECTION MARK WITH CIRCLES AND FOUR ENCLOSURES 115D8 SIDDHAM LETTER THREE-CIRCLE ALTERNATE I 115D9 SIDDHAM LETTER TWO-CIRCLE ALTERNATE I 115DA SIDDHAM LETTER TWO-CIRCLE ALTERNATE II 115DB SIDDHAM LETTER ALTERNATE U 115DC SIDDHAM VOWEL SIGN ALTERNATE U 115DD SIDDHAM VOWEL SIGN ALTERNATE UU 11600 MODI LETTER A 11601 MODI LETTER AA 11602 MODI LETTER I 11603 MODI LETTER II 11604 MODI LETTER U 11605 MODI LETTER UU 11606 MODI LETTER VOCALIC R 11607 MODI LETTER VOCALIC RR 11608 MODI LETTER VOCALIC L 11609 MODI LETTER VOCALIC LL 1160A MODI LETTER E 1160B MODI LETTER AI 1160C MODI LETTER O 1160D MODI LETTER AU 1160E MODI LETTER KA 1160F MODI LETTER KHA 11610 MODI LETTER GA 11611 MODI LETTER GHA 11612 MODI LETTER NGA 11613 MODI LETTER CA 11614 MODI LETTER CHA 11615 MODI LETTER JA 11616 MODI LETTER JHA 11617 MODI LETTER NYA 11618 MODI LETTER TTA 11619 MODI LETTER TTHA 1161A MODI LETTER DDA 1161B MODI LETTER DDHA 1161C MODI LETTER NNA 1161D MODI LETTER TA 1161E MODI LETTER THA 1161F MODI LETTER DA 11620 MODI LETTER DHA 11621 MODI LETTER NA 11622 MODI LETTER PA 11623 MODI LETTER PHA 11624 MODI LETTER BA 11625 MODI LETTER BHA 11626 MODI LETTER MA 11627 MODI LETTER YA 11628 MODI LETTER RA 11629 MODI LETTER LA 1162A MODI LETTER VA 1162B MODI LETTER SHA 1162C MODI LETTER SSA 1162D MODI LETTER SA 1162E MODI LETTER HA 1162F MODI LETTER LLA 11630 MODI VOWEL SIGN AA 11631 MODI VOWEL SIGN I 11632 MODI VOWEL SIGN II 11633 MODI VOWEL SIGN U 11634 MODI VOWEL SIGN UU 11635 MODI VOWEL SIGN VOCALIC R 11636 MODI VOWEL SIGN VOCALIC RR 11637 MODI VOWEL SIGN VOCALIC L 11638 MODI VOWEL SIGN VOCALIC LL 11639 MODI VOWEL SIGN E 1163A MODI VOWEL SIGN AI 1163B MODI VOWEL SIGN O 1163C MODI VOWEL SIGN AU 1163D MODI SIGN ANUSVARA 1163E MODI SIGN VISARGA 1163F MODI SIGN VIRAMA 11640 MODI SIGN ARDHACANDRA 11641 MODI DANDA 11642 MODI DOUBLE DANDA 11643 MODI ABBREVIATION SIGN 11644 MODI SIGN HUVA 11650 MODI DIGIT ZERO 11651 MODI DIGIT ONE 11652 MODI DIGIT TWO 11653 MODI DIGIT THREE 11654 MODI DIGIT FOUR 11655 MODI DIGIT FIVE 11656 MODI DIGIT SIX 11657 MODI DIGIT SEVEN 11658 MODI DIGIT EIGHT 11659 MODI DIGIT NINE 11660 MONGOLIAN BIRGA WITH ORNAMENT 11661 MONGOLIAN ROTATED BIRGA 11662 MONGOLIAN DOUBLE BIRGA WITH ORNAMENT 11663 MONGOLIAN TRIPLE BIRGA WITH ORNAMENT 11664 MONGOLIAN BIRGA WITH DOUBLE ORNAMENT 11665 MONGOLIAN ROTATED BIRGA WITH ORNAMENT 11666 MONGOLIAN ROTATED BIRGA WITH DOUBLE ORNAMENT 11667 MONGOLIAN INVERTED BIRGA 11668 MONGOLIAN INVERTED BIRGA WITH DOUBLE ORNAMENT 11669 MONGOLIAN SWIRL BIRGA 1166A MONGOLIAN SWIRL BIRGA WITH ORNAMENT 1166B MONGOLIAN SWIRL BIRGA WITH DOUBLE ORNAMENT 1166C MONGOLIAN TURNED SWIRL BIRGA WITH DOUBLE ORNAMENT 11680 TAKRI LETTER A 11681 TAKRI LETTER AA 11682 TAKRI LETTER I 11683 TAKRI LETTER II 11684 TAKRI LETTER U 11685 TAKRI LETTER UU 11686 TAKRI LETTER E 11687 TAKRI LETTER AI 11688 TAKRI LETTER O 11689 TAKRI LETTER AU 1168A TAKRI LETTER KA 1168B TAKRI LETTER KHA 1168C TAKRI LETTER GA 1168D TAKRI LETTER GHA 1168E TAKRI LETTER NGA 1168F TAKRI LETTER CA 11690 TAKRI LETTER CHA 11691 TAKRI LETTER JA 11692 TAKRI LETTER JHA 11693 TAKRI LETTER NYA 11694 TAKRI LETTER TTA 11695 TAKRI LETTER TTHA 11696 TAKRI LETTER DDA 11697 TAKRI LETTER DDHA 11698 TAKRI LETTER NNA 11699 TAKRI LETTER TA 1169A TAKRI LETTER THA 1169B TAKRI LETTER DA 1169C TAKRI LETTER DHA 1169D TAKRI LETTER NA 1169E TAKRI LETTER PA 1169F TAKRI LETTER PHA 116A0 TAKRI LETTER BA 116A1 TAKRI LETTER BHA 116A2 TAKRI LETTER MA 116A3 TAKRI LETTER YA 116A4 TAKRI LETTER RA 116A5 TAKRI LETTER LA 116A6 TAKRI LETTER VA 116A7 TAKRI LETTER SHA 116A8 TAKRI LETTER SA 116A9 TAKRI LETTER HA 116AA TAKRI LETTER RRA 116AB TAKRI SIGN ANUSVARA 116AC TAKRI SIGN VISARGA 116AD TAKRI VOWEL SIGN AA 116AE TAKRI VOWEL SIGN I 116AF TAKRI VOWEL SIGN II 116B0 TAKRI VOWEL SIGN U 116B1 TAKRI VOWEL SIGN UU 116B2 TAKRI VOWEL SIGN E 116B3 TAKRI VOWEL SIGN AI 116B4 TAKRI VOWEL SIGN O 116B5 TAKRI VOWEL SIGN AU 116B6 TAKRI SIGN VIRAMA 116B7 TAKRI SIGN NUKTA 116B8 TAKRI LETTER ARCHAIC KHA 116C0 TAKRI DIGIT ZERO 116C1 TAKRI DIGIT ONE 116C2 TAKRI DIGIT TWO 116C3 TAKRI DIGIT THREE 116C4 TAKRI DIGIT FOUR 116C5 TAKRI DIGIT FIVE 116C6 TAKRI DIGIT SIX 116C7 TAKRI DIGIT SEVEN 116C8 TAKRI DIGIT EIGHT 116C9 TAKRI DIGIT NINE 11700 AHOM LETTER KA 11701 AHOM LETTER KHA 11702 AHOM LETTER NGA 11703 AHOM LETTER NA 11704 AHOM LETTER TA 11705 AHOM LETTER ALTERNATE TA 11706 AHOM LETTER PA 11707 AHOM LETTER PHA 11708 AHOM LETTER BA 11709 AHOM LETTER MA 1170A AHOM LETTER JA 1170B AHOM LETTER CHA 1170C AHOM LETTER THA 1170D AHOM LETTER RA 1170E AHOM LETTER LA 1170F AHOM LETTER SA 11710 AHOM LETTER NYA 11711 AHOM LETTER HA 11712 AHOM LETTER A 11713 AHOM LETTER DA 11714 AHOM LETTER DHA 11715 AHOM LETTER GA 11716 AHOM LETTER ALTERNATE GA 11717 AHOM LETTER GHA 11718 AHOM LETTER BHA 11719 AHOM LETTER JHA 1171A AHOM LETTER ALTERNATE BA 1171D AHOM CONSONANT SIGN MEDIAL LA 1171E AHOM CONSONANT SIGN MEDIAL RA 1171F AHOM CONSONANT SIGN MEDIAL LIGATING RA 11720 AHOM VOWEL SIGN A 11721 AHOM VOWEL SIGN AA 11722 AHOM VOWEL SIGN I 11723 AHOM VOWEL SIGN II 11724 AHOM VOWEL SIGN U 11725 AHOM VOWEL SIGN UU 11726 AHOM VOWEL SIGN E 11727 AHOM VOWEL SIGN AW 11728 AHOM VOWEL SIGN O 11729 AHOM VOWEL SIGN AI 1172A AHOM VOWEL SIGN AM 1172B AHOM SIGN KILLER 11730 AHOM DIGIT ZERO 11731 AHOM DIGIT ONE 11732 AHOM DIGIT TWO 11733 AHOM DIGIT THREE 11734 AHOM DIGIT FOUR 11735 AHOM DIGIT FIVE 11736 AHOM DIGIT SIX 11737 AHOM DIGIT SEVEN 11738 AHOM DIGIT EIGHT 11739 AHOM DIGIT NINE 1173A AHOM NUMBER TEN 1173B AHOM NUMBER TWENTY 1173C AHOM SIGN SMALL SECTION 1173D AHOM SIGN SECTION 1173E AHOM SIGN RULAI 1173F AHOM SYMBOL VI 11800 DOGRA LETTER A 11801 DOGRA LETTER AA 11802 DOGRA LETTER I 11803 DOGRA LETTER II 11804 DOGRA LETTER U 11805 DOGRA LETTER UU 11806 DOGRA LETTER E 11807 DOGRA LETTER AI 11808 DOGRA LETTER O 11809 DOGRA LETTER AU 1180A DOGRA LETTER KA 1180B DOGRA LETTER KHA 1180C DOGRA LETTER GA 1180D DOGRA LETTER GHA 1180E DOGRA LETTER NGA 1180F DOGRA LETTER CA 11810 DOGRA LETTER CHA 11811 DOGRA LETTER JA 11812 DOGRA LETTER JHA 11813 DOGRA LETTER NYA 11814 DOGRA LETTER TTA 11815 DOGRA LETTER TTHA 11816 DOGRA LETTER DDA 11817 DOGRA LETTER DDHA 11818 DOGRA LETTER NNA 11819 DOGRA LETTER TA 1181A DOGRA LETTER THA 1181B DOGRA LETTER DA 1181C DOGRA LETTER DHA 1181D DOGRA LETTER NA 1181E DOGRA LETTER PA 1181F DOGRA LETTER PHA 11820 DOGRA LETTER BA 11821 DOGRA LETTER BHA 11822 DOGRA LETTER MA 11823 DOGRA LETTER YA 11824 DOGRA LETTER RA 11825 DOGRA LETTER LA 11826 DOGRA LETTER VA 11827 DOGRA LETTER SHA 11828 DOGRA LETTER SSA 11829 DOGRA LETTER SA 1182A DOGRA LETTER HA 1182B DOGRA LETTER RRA 1182C DOGRA VOWEL SIGN AA 1182D DOGRA VOWEL SIGN I 1182E DOGRA VOWEL SIGN II 1182F DOGRA VOWEL SIGN U 11830 DOGRA VOWEL SIGN UU 11831 DOGRA VOWEL SIGN VOCALIC R 11832 DOGRA VOWEL SIGN VOCALIC RR 11833 DOGRA VOWEL SIGN E 11834 DOGRA VOWEL SIGN AI 11835 DOGRA VOWEL SIGN O 11836 DOGRA VOWEL SIGN AU 11837 DOGRA SIGN ANUSVARA 11838 DOGRA SIGN VISARGA 11839 DOGRA SIGN VIRAMA 1183A DOGRA SIGN NUKTA 1183B DOGRA ABBREVIATION SIGN 118A0 WARANG CITI CAPITAL LETTER NGAA 118A1 WARANG CITI CAPITAL LETTER A 118A2 WARANG CITI CAPITAL LETTER WI 118A3 WARANG CITI CAPITAL LETTER YU 118A4 WARANG CITI CAPITAL LETTER YA 118A5 WARANG CITI CAPITAL LETTER YO 118A6 WARANG CITI CAPITAL LETTER II 118A7 WARANG CITI CAPITAL LETTER UU 118A8 WARANG CITI CAPITAL LETTER E 118A9 WARANG CITI CAPITAL LETTER O 118AA WARANG CITI CAPITAL LETTER ANG 118AB WARANG CITI CAPITAL LETTER GA 118AC WARANG CITI CAPITAL LETTER KO 118AD WARANG CITI CAPITAL LETTER ENY 118AE WARANG CITI CAPITAL LETTER YUJ 118AF WARANG CITI CAPITAL LETTER UC 118B0 WARANG CITI CAPITAL LETTER ENN 118B1 WARANG CITI CAPITAL LETTER ODD 118B2 WARANG CITI CAPITAL LETTER TTE 118B3 WARANG CITI CAPITAL LETTER NUNG 118B4 WARANG CITI CAPITAL LETTER DA 118B5 WARANG CITI CAPITAL LETTER AT 118B6 WARANG CITI CAPITAL LETTER AM 118B7 WARANG CITI CAPITAL LETTER BU 118B8 WARANG CITI CAPITAL LETTER PU 118B9 WARANG CITI CAPITAL LETTER HIYO 118BA WARANG CITI CAPITAL LETTER HOLO 118BB WARANG CITI CAPITAL LETTER HORR 118BC WARANG CITI CAPITAL LETTER HAR 118BD WARANG CITI CAPITAL LETTER SSUU 118BE WARANG CITI CAPITAL LETTER SII 118BF WARANG CITI CAPITAL LETTER VIYO 118C0 WARANG CITI SMALL LETTER NGAA 118C1 WARANG CITI SMALL LETTER A 118C2 WARANG CITI SMALL LETTER WI 118C3 WARANG CITI SMALL LETTER YU 118C4 WARANG CITI SMALL LETTER YA 118C5 WARANG CITI SMALL LETTER YO 118C6 WARANG CITI SMALL LETTER II 118C7 WARANG CITI SMALL LETTER UU 118C8 WARANG CITI SMALL LETTER E 118C9 WARANG CITI SMALL LETTER O 118CA WARANG CITI SMALL LETTER ANG 118CB WARANG CITI SMALL LETTER GA 118CC WARANG CITI SMALL LETTER KO 118CD WARANG CITI SMALL LETTER ENY 118CE WARANG CITI SMALL LETTER YUJ 118CF WARANG CITI SMALL LETTER UC 118D0 WARANG CITI SMALL LETTER ENN 118D1 WARANG CITI SMALL LETTER ODD 118D2 WARANG CITI SMALL LETTER TTE 118D3 WARANG CITI SMALL LETTER NUNG 118D4 WARANG CITI SMALL LETTER DA 118D5 WARANG CITI SMALL LETTER AT 118D6 WARANG CITI SMALL LETTER AM 118D7 WARANG CITI SMALL LETTER BU 118D8 WARANG CITI SMALL LETTER PU 118D9 WARANG CITI SMALL LETTER HIYO 118DA WARANG CITI SMALL LETTER HOLO 118DB WARANG CITI SMALL LETTER HORR 118DC WARANG CITI SMALL LETTER HAR 118DD WARANG CITI SMALL LETTER SSUU 118DE WARANG CITI SMALL LETTER SII 118DF WARANG CITI SMALL LETTER VIYO 118E0 WARANG CITI DIGIT ZERO 118E1 WARANG CITI DIGIT ONE 118E2 WARANG CITI DIGIT TWO 118E3 WARANG CITI DIGIT THREE 118E4 WARANG CITI DIGIT FOUR 118E5 WARANG CITI DIGIT FIVE 118E6 WARANG CITI DIGIT SIX 118E7 WARANG CITI DIGIT SEVEN 118E8 WARANG CITI DIGIT EIGHT 118E9 WARANG CITI DIGIT NINE 118EA WARANG CITI NUMBER TEN 118EB WARANG CITI NUMBER TWENTY 118EC WARANG CITI NUMBER THIRTY 118ED WARANG CITI NUMBER FORTY 118EE WARANG CITI NUMBER FIFTY 118EF WARANG CITI NUMBER SIXTY 118F0 WARANG CITI NUMBER SEVENTY 118F1 WARANG CITI NUMBER EIGHTY 118F2 WARANG CITI NUMBER NINETY 118FF WARANG CITI OM 11900 DIVES AKURU LETTER A 11901 DIVES AKURU LETTER AA 11902 DIVES AKURU LETTER I 11903 DIVES AKURU LETTER II 11904 DIVES AKURU LETTER U 11905 DIVES AKURU LETTER UU 11906 DIVES AKURU LETTER E 11909 DIVES AKURU LETTER O 1190C DIVES AKURU LETTER KA 1190D DIVES AKURU LETTER KHA 1190E DIVES AKURU LETTER GA 1190F DIVES AKURU LETTER GHA 11910 DIVES AKURU LETTER NGA 11911 DIVES AKURU LETTER CA 11912 DIVES AKURU LETTER CHA 11913 DIVES AKURU LETTER JA 11915 DIVES AKURU LETTER NYA 11916 DIVES AKURU LETTER TTA 11918 DIVES AKURU LETTER DDA 11919 DIVES AKURU LETTER DDHA 1191A DIVES AKURU LETTER NNA 1191B DIVES AKURU LETTER TA 1191C DIVES AKURU LETTER THA 1191D DIVES AKURU LETTER DA 1191E DIVES AKURU LETTER DHA 1191F DIVES AKURU LETTER NA 11920 DIVES AKURU LETTER PA 11921 DIVES AKURU LETTER PHA 11922 DIVES AKURU LETTER BA 11923 DIVES AKURU LETTER BHA 11924 DIVES AKURU LETTER MA 11925 DIVES AKURU LETTER YA 11926 DIVES AKURU LETTER YYA 11927 DIVES AKURU LETTER RA 11928 DIVES AKURU LETTER LA 11929 DIVES AKURU LETTER VA 1192A DIVES AKURU LETTER SHA 1192B DIVES AKURU LETTER SSA 1192C DIVES AKURU LETTER SA 1192D DIVES AKURU LETTER HA 1192E DIVES AKURU LETTER LLA 1192F DIVES AKURU LETTER ZA 11930 DIVES AKURU VOWEL SIGN AA 11931 DIVES AKURU VOWEL SIGN I 11932 DIVES AKURU VOWEL SIGN II 11933 DIVES AKURU VOWEL SIGN U 11934 DIVES AKURU VOWEL SIGN UU 11935 DIVES AKURU VOWEL SIGN E 11937 DIVES AKURU VOWEL SIGN AI 11938 DIVES AKURU VOWEL SIGN O 1193B DIVES AKURU SIGN ANUSVARA 1193C DIVES AKURU SIGN CANDRABINDU 1193D DIVES AKURU SIGN HALANTA 1193E DIVES AKURU VIRAMA 1193F DIVES AKURU PREFIXED NASAL SIGN 11940 DIVES AKURU MEDIAL YA 11941 DIVES AKURU INITIAL RA 11942 DIVES AKURU MEDIAL RA 11943 DIVES AKURU SIGN NUKTA 11944 DIVES AKURU DOUBLE DANDA 11945 DIVES AKURU GAP FILLER 11946 DIVES AKURU END OF TEXT MARK 11950 DIVES AKURU DIGIT ZERO 11951 DIVES AKURU DIGIT ONE 11952 DIVES AKURU DIGIT TWO 11953 DIVES AKURU DIGIT THREE 11954 DIVES AKURU DIGIT FOUR 11955 DIVES AKURU DIGIT FIVE 11956 DIVES AKURU DIGIT SIX 11957 DIVES AKURU DIGIT SEVEN 11958 DIVES AKURU DIGIT EIGHT 11959 DIVES AKURU DIGIT NINE 119A0 NANDINAGARI LETTER A 119A1 NANDINAGARI LETTER AA 119A2 NANDINAGARI LETTER I 119A3 NANDINAGARI LETTER II 119A4 NANDINAGARI LETTER U 119A5 NANDINAGARI LETTER UU 119A6 NANDINAGARI LETTER VOCALIC R 119A7 NANDINAGARI LETTER VOCALIC RR 119AA NANDINAGARI LETTER E 119AB NANDINAGARI LETTER AI 119AC NANDINAGARI LETTER O 119AD NANDINAGARI LETTER AU 119AE NANDINAGARI LETTER KA 119AF NANDINAGARI LETTER KHA 119B0 NANDINAGARI LETTER GA 119B1 NANDINAGARI LETTER GHA 119B2 NANDINAGARI LETTER NGA 119B3 NANDINAGARI LETTER CA 119B4 NANDINAGARI LETTER CHA 119B5 NANDINAGARI LETTER JA 119B6 NANDINAGARI LETTER JHA 119B7 NANDINAGARI LETTER NYA 119B8 NANDINAGARI LETTER TTA 119B9 NANDINAGARI LETTER TTHA 119BA NANDINAGARI LETTER DDA 119BB NANDINAGARI LETTER DDHA 119BC NANDINAGARI LETTER NNA 119BD NANDINAGARI LETTER TA 119BE NANDINAGARI LETTER THA 119BF NANDINAGARI LETTER DA 119C0 NANDINAGARI LETTER DHA 119C1 NANDINAGARI LETTER NA 119C2 NANDINAGARI LETTER PA 119C3 NANDINAGARI LETTER PHA 119C4 NANDINAGARI LETTER BA 119C5 NANDINAGARI LETTER BHA 119C6 NANDINAGARI LETTER MA 119C7 NANDINAGARI LETTER YA 119C8 NANDINAGARI LETTER RA 119C9 NANDINAGARI LETTER LA 119CA NANDINAGARI LETTER VA 119CB NANDINAGARI LETTER SHA 119CC NANDINAGARI LETTER SSA 119CD NANDINAGARI LETTER SA 119CE NANDINAGARI LETTER HA 119CF NANDINAGARI LETTER LLA 119D0 NANDINAGARI LETTER RRA 119D1 NANDINAGARI VOWEL SIGN AA 119D2 NANDINAGARI VOWEL SIGN I 119D3 NANDINAGARI VOWEL SIGN II 119D4 NANDINAGARI VOWEL SIGN U 119D5 NANDINAGARI VOWEL SIGN UU 119D6 NANDINAGARI VOWEL SIGN VOCALIC R 119D7 NANDINAGARI VOWEL SIGN VOCALIC RR 119DA NANDINAGARI VOWEL SIGN E 119DB NANDINAGARI VOWEL SIGN AI 119DC NANDINAGARI VOWEL SIGN O 119DD NANDINAGARI VOWEL SIGN AU 119DE NANDINAGARI SIGN ANUSVARA 119DF NANDINAGARI SIGN VISARGA 119E0 NANDINAGARI SIGN VIRAMA 119E1 NANDINAGARI SIGN AVAGRAHA 119E2 NANDINAGARI SIGN SIDDHAM 119E3 NANDINAGARI HEADSTROKE 119E4 NANDINAGARI VOWEL SIGN PRISHTHAMATRA E 11A00 ZANABAZAR SQUARE LETTER A 11A01 ZANABAZAR SQUARE VOWEL SIGN I 11A02 ZANABAZAR SQUARE VOWEL SIGN UE 11A03 ZANABAZAR SQUARE VOWEL SIGN U 11A04 ZANABAZAR SQUARE VOWEL SIGN E 11A05 ZANABAZAR SQUARE VOWEL SIGN OE 11A06 ZANABAZAR SQUARE VOWEL SIGN O 11A07 ZANABAZAR SQUARE VOWEL SIGN AI 11A08 ZANABAZAR SQUARE VOWEL SIGN AU 11A09 ZANABAZAR SQUARE VOWEL SIGN REVERSED I 11A0A ZANABAZAR SQUARE VOWEL LENGTH MARK 11A0B ZANABAZAR SQUARE LETTER KA 11A0C ZANABAZAR SQUARE LETTER KHA 11A0D ZANABAZAR SQUARE LETTER GA 11A0E ZANABAZAR SQUARE LETTER GHA 11A0F ZANABAZAR SQUARE LETTER NGA 11A10 ZANABAZAR SQUARE LETTER CA 11A11 ZANABAZAR SQUARE LETTER CHA 11A12 ZANABAZAR SQUARE LETTER JA 11A13 ZANABAZAR SQUARE LETTER NYA 11A14 ZANABAZAR SQUARE LETTER TTA 11A15 ZANABAZAR SQUARE LETTER TTHA 11A16 ZANABAZAR SQUARE LETTER DDA 11A17 ZANABAZAR SQUARE LETTER DDHA 11A18 ZANABAZAR SQUARE LETTER NNA 11A19 ZANABAZAR SQUARE LETTER TA 11A1A ZANABAZAR SQUARE LETTER THA 11A1B ZANABAZAR SQUARE LETTER DA 11A1C ZANABAZAR SQUARE LETTER DHA 11A1D ZANABAZAR SQUARE LETTER NA 11A1E ZANABAZAR SQUARE LETTER PA 11A1F ZANABAZAR SQUARE LETTER PHA 11A20 ZANABAZAR SQUARE LETTER BA 11A21 ZANABAZAR SQUARE LETTER BHA 11A22 ZANABAZAR SQUARE LETTER MA 11A23 ZANABAZAR SQUARE LETTER TSA 11A24 ZANABAZAR SQUARE LETTER TSHA 11A25 ZANABAZAR SQUARE LETTER DZA 11A26 ZANABAZAR SQUARE LETTER DZHA 11A27 ZANABAZAR SQUARE LETTER ZHA 11A28 ZANABAZAR SQUARE LETTER ZA 11A29 ZANABAZAR SQUARE LETTER -A 11A2A ZANABAZAR SQUARE LETTER YA 11A2B ZANABAZAR SQUARE LETTER RA 11A2C ZANABAZAR SQUARE LETTER LA 11A2D ZANABAZAR SQUARE LETTER VA 11A2E ZANABAZAR SQUARE LETTER SHA 11A2F ZANABAZAR SQUARE LETTER SSA 11A30 ZANABAZAR SQUARE LETTER SA 11A31 ZANABAZAR SQUARE LETTER HA 11A32 ZANABAZAR SQUARE LETTER KSSA 11A33 ZANABAZAR SQUARE FINAL CONSONANT MARK 11A34 ZANABAZAR SQUARE SIGN VIRAMA 11A35 ZANABAZAR SQUARE SIGN CANDRABINDU 11A36 ZANABAZAR SQUARE SIGN CANDRABINDU WITH ORNAMENT 11A37 ZANABAZAR SQUARE SIGN CANDRA WITH ORNAMENT 11A38 ZANABAZAR SQUARE SIGN ANUSVARA 11A39 ZANABAZAR SQUARE SIGN VISARGA 11A3A ZANABAZAR SQUARE CLUSTER-INITIAL LETTER RA 11A3B ZANABAZAR SQUARE CLUSTER-FINAL LETTER YA 11A3C ZANABAZAR SQUARE CLUSTER-FINAL LETTER RA 11A3D ZANABAZAR SQUARE CLUSTER-FINAL LETTER LA 11A3E ZANABAZAR SQUARE CLUSTER-FINAL LETTER VA 11A3F ZANABAZAR SQUARE INITIAL HEAD MARK 11A40 ZANABAZAR SQUARE CLOSING HEAD MARK 11A41 ZANABAZAR SQUARE MARK TSHEG 11A42 ZANABAZAR SQUARE MARK SHAD 11A43 ZANABAZAR SQUARE MARK DOUBLE SHAD 11A44 ZANABAZAR SQUARE MARK LONG TSHEG 11A45 ZANABAZAR SQUARE INITIAL DOUBLE-LINED HEAD MARK 11A46 ZANABAZAR SQUARE CLOSING DOUBLE-LINED HEAD MARK 11A47 ZANABAZAR SQUARE SUBJOINER 11A50 SOYOMBO LETTER A 11A51 SOYOMBO VOWEL SIGN I 11A52 SOYOMBO VOWEL SIGN UE 11A53 SOYOMBO VOWEL SIGN U 11A54 SOYOMBO VOWEL SIGN E 11A55 SOYOMBO VOWEL SIGN O 11A56 SOYOMBO VOWEL SIGN OE 11A57 SOYOMBO VOWEL SIGN AI 11A58 SOYOMBO VOWEL SIGN AU 11A59 SOYOMBO VOWEL SIGN VOCALIC R 11A5A SOYOMBO VOWEL SIGN VOCALIC L 11A5B SOYOMBO VOWEL LENGTH MARK 11A5C SOYOMBO LETTER KA 11A5D SOYOMBO LETTER KHA 11A5E SOYOMBO LETTER GA 11A5F SOYOMBO LETTER GHA 11A60 SOYOMBO LETTER NGA 11A61 SOYOMBO LETTER CA 11A62 SOYOMBO LETTER CHA 11A63 SOYOMBO LETTER JA 11A64 SOYOMBO LETTER JHA 11A65 SOYOMBO LETTER NYA 11A66 SOYOMBO LETTER TTA 11A67 SOYOMBO LETTER TTHA 11A68 SOYOMBO LETTER DDA 11A69 SOYOMBO LETTER DDHA 11A6A SOYOMBO LETTER NNA 11A6B SOYOMBO LETTER TA 11A6C SOYOMBO LETTER THA 11A6D SOYOMBO LETTER DA 11A6E SOYOMBO LETTER DHA 11A6F SOYOMBO LETTER NA 11A70 SOYOMBO LETTER PA 11A71 SOYOMBO LETTER PHA 11A72 SOYOMBO LETTER BA 11A73 SOYOMBO LETTER BHA 11A74 SOYOMBO LETTER MA 11A75 SOYOMBO LETTER TSA 11A76 SOYOMBO LETTER TSHA 11A77 SOYOMBO LETTER DZA 11A78 SOYOMBO LETTER ZHA 11A79 SOYOMBO LETTER ZA 11A7A SOYOMBO LETTER -A 11A7B SOYOMBO LETTER YA 11A7C SOYOMBO LETTER RA 11A7D SOYOMBO LETTER LA 11A7E SOYOMBO LETTER VA 11A7F SOYOMBO LETTER SHA 11A80 SOYOMBO LETTER SSA 11A81 SOYOMBO LETTER SA 11A82 SOYOMBO LETTER HA 11A83 SOYOMBO LETTER KSSA 11A84 SOYOMBO SIGN JIHVAMULIYA 11A85 SOYOMBO SIGN UPADHMANIYA 11A86 SOYOMBO CLUSTER-INITIAL LETTER RA 11A87 SOYOMBO CLUSTER-INITIAL LETTER LA 11A88 SOYOMBO CLUSTER-INITIAL LETTER SHA 11A89 SOYOMBO CLUSTER-INITIAL LETTER SA 11A8A SOYOMBO FINAL CONSONANT SIGN G 11A8B SOYOMBO FINAL CONSONANT SIGN K 11A8C SOYOMBO FINAL CONSONANT SIGN NG 11A8D SOYOMBO FINAL CONSONANT SIGN D 11A8E SOYOMBO FINAL CONSONANT SIGN N 11A8F SOYOMBO FINAL CONSONANT SIGN B 11A90 SOYOMBO FINAL CONSONANT SIGN M 11A91 SOYOMBO FINAL CONSONANT SIGN R 11A92 SOYOMBO FINAL CONSONANT SIGN L 11A93 SOYOMBO FINAL CONSONANT SIGN SH 11A94 SOYOMBO FINAL CONSONANT SIGN S 11A95 SOYOMBO FINAL CONSONANT SIGN -A 11A96 SOYOMBO SIGN ANUSVARA 11A97 SOYOMBO SIGN VISARGA 11A98 SOYOMBO GEMINATION MARK 11A99 SOYOMBO SUBJOINER 11A9A SOYOMBO MARK TSHEG 11A9B SOYOMBO MARK SHAD 11A9C SOYOMBO MARK DOUBLE SHAD 11A9D SOYOMBO MARK PLUTA 11A9E SOYOMBO HEAD MARK WITH MOON AND SUN AND TRIPLE FLAME 11A9F SOYOMBO HEAD MARK WITH MOON AND SUN AND FLAME 11AA0 SOYOMBO HEAD MARK WITH MOON AND SUN 11AA1 SOYOMBO TERMINAL MARK-1 11AA2 SOYOMBO TERMINAL MARK-2 11AC0 PAU CIN HAU LETTER PA 11AC1 PAU CIN HAU LETTER KA 11AC2 PAU CIN HAU LETTER LA 11AC3 PAU CIN HAU LETTER MA 11AC4 PAU CIN HAU LETTER DA 11AC5 PAU CIN HAU LETTER ZA 11AC6 PAU CIN HAU LETTER VA 11AC7 PAU CIN HAU LETTER NGA 11AC8 PAU CIN HAU LETTER HA 11AC9 PAU CIN HAU LETTER GA 11ACA PAU CIN HAU LETTER KHA 11ACB PAU CIN HAU LETTER SA 11ACC PAU CIN HAU LETTER BA 11ACD PAU CIN HAU LETTER CA 11ACE PAU CIN HAU LETTER TA 11ACF PAU CIN HAU LETTER THA 11AD0 PAU CIN HAU LETTER NA 11AD1 PAU CIN HAU LETTER PHA 11AD2 PAU CIN HAU LETTER RA 11AD3 PAU CIN HAU LETTER FA 11AD4 PAU CIN HAU LETTER CHA 11AD5 PAU CIN HAU LETTER A 11AD6 PAU CIN HAU LETTER E 11AD7 PAU CIN HAU LETTER I 11AD8 PAU CIN HAU LETTER O 11AD9 PAU CIN HAU LETTER U 11ADA PAU CIN HAU LETTER UA 11ADB PAU CIN HAU LETTER IA 11ADC PAU CIN HAU LETTER FINAL P 11ADD PAU CIN HAU LETTER FINAL K 11ADE PAU CIN HAU LETTER FINAL T 11ADF PAU CIN HAU LETTER FINAL M 11AE0 PAU CIN HAU LETTER FINAL N 11AE1 PAU CIN HAU LETTER FINAL L 11AE2 PAU CIN HAU LETTER FINAL W 11AE3 PAU CIN HAU LETTER FINAL NG 11AE4 PAU CIN HAU LETTER FINAL Y 11AE5 PAU CIN HAU RISING TONE LONG 11AE6 PAU CIN HAU RISING TONE 11AE7 PAU CIN HAU SANDHI GLOTTAL STOP 11AE8 PAU CIN HAU RISING TONE LONG FINAL 11AE9 PAU CIN HAU RISING TONE FINAL 11AEA PAU CIN HAU SANDHI GLOTTAL STOP FINAL 11AEB PAU CIN HAU SANDHI TONE LONG 11AEC PAU CIN HAU SANDHI TONE 11AED PAU CIN HAU SANDHI TONE LONG FINAL 11AEE PAU CIN HAU SANDHI TONE FINAL 11AEF PAU CIN HAU MID-LEVEL TONE 11AF0 PAU CIN HAU GLOTTAL STOP VARIANT 11AF1 PAU CIN HAU MID-LEVEL TONE LONG FINAL 11AF2 PAU CIN HAU MID-LEVEL TONE FINAL 11AF3 PAU CIN HAU LOW-FALLING TONE LONG 11AF4 PAU CIN HAU LOW-FALLING TONE 11AF5 PAU CIN HAU GLOTTAL STOP 11AF6 PAU CIN HAU LOW-FALLING TONE LONG FINAL 11AF7 PAU CIN HAU LOW-FALLING TONE FINAL 11AF8 PAU CIN HAU GLOTTAL STOP FINAL 11C00 BHAIKSUKI LETTER A 11C01 BHAIKSUKI LETTER AA 11C02 BHAIKSUKI LETTER I 11C03 BHAIKSUKI LETTER II 11C04 BHAIKSUKI LETTER U 11C05 BHAIKSUKI LETTER UU 11C06 BHAIKSUKI LETTER VOCALIC R 11C07 BHAIKSUKI LETTER VOCALIC RR 11C08 BHAIKSUKI LETTER VOCALIC L 11C0A BHAIKSUKI LETTER E 11C0B BHAIKSUKI LETTER AI 11C0C BHAIKSUKI LETTER O 11C0D BHAIKSUKI LETTER AU 11C0E BHAIKSUKI LETTER KA 11C0F BHAIKSUKI LETTER KHA 11C10 BHAIKSUKI LETTER GA 11C11 BHAIKSUKI LETTER GHA 11C12 BHAIKSUKI LETTER NGA 11C13 BHAIKSUKI LETTER CA 11C14 BHAIKSUKI LETTER CHA 11C15 BHAIKSUKI LETTER JA 11C16 BHAIKSUKI LETTER JHA 11C17 BHAIKSUKI LETTER NYA 11C18 BHAIKSUKI LETTER TTA 11C19 BHAIKSUKI LETTER TTHA 11C1A BHAIKSUKI LETTER DDA 11C1B BHAIKSUKI LETTER DDHA 11C1C BHAIKSUKI LETTER NNA 11C1D BHAIKSUKI LETTER TA 11C1E BHAIKSUKI LETTER THA 11C1F BHAIKSUKI LETTER DA 11C20 BHAIKSUKI LETTER DHA 11C21 BHAIKSUKI LETTER NA 11C22 BHAIKSUKI LETTER PA 11C23 BHAIKSUKI LETTER PHA 11C24 BHAIKSUKI LETTER BA 11C25 BHAIKSUKI LETTER BHA 11C26 BHAIKSUKI LETTER MA 11C27 BHAIKSUKI LETTER YA 11C28 BHAIKSUKI LETTER RA 11C29 BHAIKSUKI LETTER LA 11C2A BHAIKSUKI LETTER VA 11C2B BHAIKSUKI LETTER SHA 11C2C BHAIKSUKI LETTER SSA 11C2D BHAIKSUKI LETTER SA 11C2E BHAIKSUKI LETTER HA 11C2F BHAIKSUKI VOWEL SIGN AA 11C30 BHAIKSUKI VOWEL SIGN I 11C31 BHAIKSUKI VOWEL SIGN II 11C32 BHAIKSUKI VOWEL SIGN U 11C33 BHAIKSUKI VOWEL SIGN UU 11C34 BHAIKSUKI VOWEL SIGN VOCALIC R 11C35 BHAIKSUKI VOWEL SIGN VOCALIC RR 11C36 BHAIKSUKI VOWEL SIGN VOCALIC L 11C38 BHAIKSUKI VOWEL SIGN E 11C39 BHAIKSUKI VOWEL SIGN AI 11C3A BHAIKSUKI VOWEL SIGN O 11C3B BHAIKSUKI VOWEL SIGN AU 11C3C BHAIKSUKI SIGN CANDRABINDU 11C3D BHAIKSUKI SIGN ANUSVARA 11C3E BHAIKSUKI SIGN VISARGA 11C3F BHAIKSUKI SIGN VIRAMA 11C40 BHAIKSUKI SIGN AVAGRAHA 11C41 BHAIKSUKI DANDA 11C42 BHAIKSUKI DOUBLE DANDA 11C43 BHAIKSUKI WORD SEPARATOR 11C44 BHAIKSUKI GAP FILLER-1 11C45 BHAIKSUKI GAP FILLER-2 11C50 BHAIKSUKI DIGIT ZERO 11C51 BHAIKSUKI DIGIT ONE 11C52 BHAIKSUKI DIGIT TWO 11C53 BHAIKSUKI DIGIT THREE 11C54 BHAIKSUKI DIGIT FOUR 11C55 BHAIKSUKI DIGIT FIVE 11C56 BHAIKSUKI DIGIT SIX 11C57 BHAIKSUKI DIGIT SEVEN 11C58 BHAIKSUKI DIGIT EIGHT 11C59 BHAIKSUKI DIGIT NINE 11C5A BHAIKSUKI NUMBER ONE 11C5B BHAIKSUKI NUMBER TWO 11C5C BHAIKSUKI NUMBER THREE 11C5D BHAIKSUKI NUMBER FOUR 11C5E BHAIKSUKI NUMBER FIVE 11C5F BHAIKSUKI NUMBER SIX 11C60 BHAIKSUKI NUMBER SEVEN 11C61 BHAIKSUKI NUMBER EIGHT 11C62 BHAIKSUKI NUMBER NINE 11C63 BHAIKSUKI NUMBER TEN 11C64 BHAIKSUKI NUMBER TWENTY 11C65 BHAIKSUKI NUMBER THIRTY 11C66 BHAIKSUKI NUMBER FORTY 11C67 BHAIKSUKI NUMBER FIFTY 11C68 BHAIKSUKI NUMBER SIXTY 11C69 BHAIKSUKI NUMBER SEVENTY 11C6A BHAIKSUKI NUMBER EIGHTY 11C6B BHAIKSUKI NUMBER NINETY 11C6C BHAIKSUKI HUNDREDS UNIT MARK 11C70 MARCHEN HEAD MARK 11C71 MARCHEN MARK SHAD 11C72 MARCHEN LETTER KA 11C73 MARCHEN LETTER KHA 11C74 MARCHEN LETTER GA 11C75 MARCHEN LETTER NGA 11C76 MARCHEN LETTER CA 11C77 MARCHEN LETTER CHA 11C78 MARCHEN LETTER JA 11C79 MARCHEN LETTER NYA 11C7A MARCHEN LETTER TA 11C7B MARCHEN LETTER THA 11C7C MARCHEN LETTER DA 11C7D MARCHEN LETTER NA 11C7E MARCHEN LETTER PA 11C7F MARCHEN LETTER PHA 11C80 MARCHEN LETTER BA 11C81 MARCHEN LETTER MA 11C82 MARCHEN LETTER TSA 11C83 MARCHEN LETTER TSHA 11C84 MARCHEN LETTER DZA 11C85 MARCHEN LETTER WA 11C86 MARCHEN LETTER ZHA 11C87 MARCHEN LETTER ZA 11C88 MARCHEN LETTER -A 11C89 MARCHEN LETTER YA 11C8A MARCHEN LETTER RA 11C8B MARCHEN LETTER LA 11C8C MARCHEN LETTER SHA 11C8D MARCHEN LETTER SA 11C8E MARCHEN LETTER HA 11C8F MARCHEN LETTER A 11C92 MARCHEN SUBJOINED LETTER KA 11C93 MARCHEN SUBJOINED LETTER KHA 11C94 MARCHEN SUBJOINED LETTER GA 11C95 MARCHEN SUBJOINED LETTER NGA 11C96 MARCHEN SUBJOINED LETTER CA 11C97 MARCHEN SUBJOINED LETTER CHA 11C98 MARCHEN SUBJOINED LETTER JA 11C99 MARCHEN SUBJOINED LETTER NYA 11C9A MARCHEN SUBJOINED LETTER TA 11C9B MARCHEN SUBJOINED LETTER THA 11C9C MARCHEN SUBJOINED LETTER DA 11C9D MARCHEN SUBJOINED LETTER NA 11C9E MARCHEN SUBJOINED LETTER PA 11C9F MARCHEN SUBJOINED LETTER PHA 11CA0 MARCHEN SUBJOINED LETTER BA 11CA1 MARCHEN SUBJOINED LETTER MA 11CA2 MARCHEN SUBJOINED LETTER TSA 11CA3 MARCHEN SUBJOINED LETTER TSHA 11CA4 MARCHEN SUBJOINED LETTER DZA 11CA5 MARCHEN SUBJOINED LETTER WA 11CA6 MARCHEN SUBJOINED LETTER ZHA 11CA7 MARCHEN SUBJOINED LETTER ZA 11CA9 MARCHEN SUBJOINED LETTER YA 11CAA MARCHEN SUBJOINED LETTER RA 11CAB MARCHEN SUBJOINED LETTER LA 11CAC MARCHEN SUBJOINED LETTER SHA 11CAD MARCHEN SUBJOINED LETTER SA 11CAE MARCHEN SUBJOINED LETTER HA 11CAF MARCHEN SUBJOINED LETTER A 11CB0 MARCHEN VOWEL SIGN AA 11CB1 MARCHEN VOWEL SIGN I 11CB2 MARCHEN VOWEL SIGN U 11CB3 MARCHEN VOWEL SIGN E 11CB4 MARCHEN VOWEL SIGN O 11CB5 MARCHEN SIGN ANUSVARA 11CB6 MARCHEN SIGN CANDRABINDU 11D00 MASARAM GONDI LETTER A 11D01 MASARAM GONDI LETTER AA 11D02 MASARAM GONDI LETTER I 11D03 MASARAM GONDI LETTER II 11D04 MASARAM GONDI LETTER U 11D05 MASARAM GONDI LETTER UU 11D06 MASARAM GONDI LETTER E 11D08 MASARAM GONDI LETTER AI 11D09 MASARAM GONDI LETTER O 11D0B MASARAM GONDI LETTER AU 11D0C MASARAM GONDI LETTER KA 11D0D MASARAM GONDI LETTER KHA 11D0E MASARAM GONDI LETTER GA 11D0F MASARAM GONDI LETTER GHA 11D10 MASARAM GONDI LETTER NGA 11D11 MASARAM GONDI LETTER CA 11D12 MASARAM GONDI LETTER CHA 11D13 MASARAM GONDI LETTER JA 11D14 MASARAM GONDI LETTER JHA 11D15 MASARAM GONDI LETTER NYA 11D16 MASARAM GONDI LETTER TTA 11D17 MASARAM GONDI LETTER TTHA 11D18 MASARAM GONDI LETTER DDA 11D19 MASARAM GONDI LETTER DDHA 11D1A MASARAM GONDI LETTER NNA 11D1B MASARAM GONDI LETTER TA 11D1C MASARAM GONDI LETTER THA 11D1D MASARAM GONDI LETTER DA 11D1E MASARAM GONDI LETTER DHA 11D1F MASARAM GONDI LETTER NA 11D20 MASARAM GONDI LETTER PA 11D21 MASARAM GONDI LETTER PHA 11D22 MASARAM GONDI LETTER BA 11D23 MASARAM GONDI LETTER BHA 11D24 MASARAM GONDI LETTER MA 11D25 MASARAM GONDI LETTER YA 11D26 MASARAM GONDI LETTER RA 11D27 MASARAM GONDI LETTER LA 11D28 MASARAM GONDI LETTER VA 11D29 MASARAM GONDI LETTER SHA 11D2A MASARAM GONDI LETTER SSA 11D2B MASARAM GONDI LETTER SA 11D2C MASARAM GONDI LETTER HA 11D2D MASARAM GONDI LETTER LLA 11D2E MASARAM GONDI LETTER KSSA 11D2F MASARAM GONDI LETTER JNYA 11D30 MASARAM GONDI LETTER TRA 11D31 MASARAM GONDI VOWEL SIGN AA 11D32 MASARAM GONDI VOWEL SIGN I 11D33 MASARAM GONDI VOWEL SIGN II 11D34 MASARAM GONDI VOWEL SIGN U 11D35 MASARAM GONDI VOWEL SIGN UU 11D36 MASARAM GONDI VOWEL SIGN VOCALIC R 11D3A MASARAM GONDI VOWEL SIGN E 11D3C MASARAM GONDI VOWEL SIGN AI 11D3D MASARAM GONDI VOWEL SIGN O 11D3F MASARAM GONDI VOWEL SIGN AU 11D40 MASARAM GONDI SIGN ANUSVARA 11D41 MASARAM GONDI SIGN VISARGA 11D42 MASARAM GONDI SIGN NUKTA 11D43 MASARAM GONDI SIGN CANDRA 11D44 MASARAM GONDI SIGN HALANTA 11D45 MASARAM GONDI VIRAMA 11D46 MASARAM GONDI REPHA 11D47 MASARAM GONDI RA-KARA 11D50 MASARAM GONDI DIGIT ZERO 11D51 MASARAM GONDI DIGIT ONE 11D52 MASARAM GONDI DIGIT TWO 11D53 MASARAM GONDI DIGIT THREE 11D54 MASARAM GONDI DIGIT FOUR 11D55 MASARAM GONDI DIGIT FIVE 11D56 MASARAM GONDI DIGIT SIX 11D57 MASARAM GONDI DIGIT SEVEN 11D58 MASARAM GONDI DIGIT EIGHT 11D59 MASARAM GONDI DIGIT NINE 11D60 GUNJALA GONDI LETTER A 11D61 GUNJALA GONDI LETTER AA 11D62 GUNJALA GONDI LETTER I 11D63 GUNJALA GONDI LETTER II 11D64 GUNJALA GONDI LETTER U 11D65 GUNJALA GONDI LETTER UU 11D67 GUNJALA GONDI LETTER EE 11D68 GUNJALA GONDI LETTER AI 11D6A GUNJALA GONDI LETTER OO 11D6B GUNJALA GONDI LETTER AU 11D6C GUNJALA GONDI LETTER YA 11D6D GUNJALA GONDI LETTER VA 11D6E GUNJALA GONDI LETTER BA 11D6F GUNJALA GONDI LETTER BHA 11D70 GUNJALA GONDI LETTER MA 11D71 GUNJALA GONDI LETTER KA 11D72 GUNJALA GONDI LETTER KHA 11D73 GUNJALA GONDI LETTER TA 11D74 GUNJALA GONDI LETTER THA 11D75 GUNJALA GONDI LETTER LA 11D76 GUNJALA GONDI LETTER GA 11D77 GUNJALA GONDI LETTER GHA 11D78 GUNJALA GONDI LETTER DA 11D79 GUNJALA GONDI LETTER DHA 11D7A GUNJALA GONDI LETTER NA 11D7B GUNJALA GONDI LETTER CA 11D7C GUNJALA GONDI LETTER CHA 11D7D GUNJALA GONDI LETTER TTA 11D7E GUNJALA GONDI LETTER TTHA 11D7F GUNJALA GONDI LETTER LLA 11D80 GUNJALA GONDI LETTER JA 11D81 GUNJALA GONDI LETTER JHA 11D82 GUNJALA GONDI LETTER DDA 11D83 GUNJALA GONDI LETTER DDHA 11D84 GUNJALA GONDI LETTER NGA 11D85 GUNJALA GONDI LETTER PA 11D86 GUNJALA GONDI LETTER PHA 11D87 GUNJALA GONDI LETTER HA 11D88 GUNJALA GONDI LETTER RA 11D89 GUNJALA GONDI LETTER SA 11D8A GUNJALA GONDI VOWEL SIGN AA 11D8B GUNJALA GONDI VOWEL SIGN I 11D8C GUNJALA GONDI VOWEL SIGN II 11D8D GUNJALA GONDI VOWEL SIGN U 11D8E GUNJALA GONDI VOWEL SIGN UU 11D90 GUNJALA GONDI VOWEL SIGN EE 11D91 GUNJALA GONDI VOWEL SIGN AI 11D93 GUNJALA GONDI VOWEL SIGN OO 11D94 GUNJALA GONDI VOWEL SIGN AU 11D95 GUNJALA GONDI SIGN ANUSVARA 11D96 GUNJALA GONDI SIGN VISARGA 11D97 GUNJALA GONDI VIRAMA 11D98 GUNJALA GONDI OM 11DA0 GUNJALA GONDI DIGIT ZERO 11DA1 GUNJALA GONDI DIGIT ONE 11DA2 GUNJALA GONDI DIGIT TWO 11DA3 GUNJALA GONDI DIGIT THREE 11DA4 GUNJALA GONDI DIGIT FOUR 11DA5 GUNJALA GONDI DIGIT FIVE 11DA6 GUNJALA GONDI DIGIT SIX 11DA7 GUNJALA GONDI DIGIT SEVEN 11DA8 GUNJALA GONDI DIGIT EIGHT 11DA9 GUNJALA GONDI DIGIT NINE 11EE0 MAKASAR LETTER KA 11EE1 MAKASAR LETTER GA 11EE2 MAKASAR LETTER NGA 11EE3 MAKASAR LETTER PA 11EE4 MAKASAR LETTER BA 11EE5 MAKASAR LETTER MA 11EE6 MAKASAR LETTER TA 11EE7 MAKASAR LETTER DA 11EE8 MAKASAR LETTER NA 11EE9 MAKASAR LETTER CA 11EEA MAKASAR LETTER JA 11EEB MAKASAR LETTER NYA 11EEC MAKASAR LETTER YA 11EED MAKASAR LETTER RA 11EEE MAKASAR LETTER LA 11EEF MAKASAR LETTER VA 11EF0 MAKASAR LETTER SA 11EF1 MAKASAR LETTER A 11EF2 MAKASAR ANGKA 11EF3 MAKASAR VOWEL SIGN I 11EF4 MAKASAR VOWEL SIGN U 11EF5 MAKASAR VOWEL SIGN E 11EF6 MAKASAR VOWEL SIGN O 11EF7 MAKASAR PASSIMBANG 11EF8 MAKASAR END OF SECTION 11FB0 LISU LETTER YHA 11FC0 TAMIL FRACTION ONE THREE-HUNDRED-AND-TWENTIETH 11FC1 TAMIL FRACTION ONE ONE-HUNDRED-AND-SIXTIETH 11FC2 TAMIL FRACTION ONE EIGHTIETH 11FC3 TAMIL FRACTION ONE SIXTY-FOURTH 11FC4 TAMIL FRACTION ONE FORTIETH 11FC5 TAMIL FRACTION ONE THIRTY-SECOND 11FC6 TAMIL FRACTION THREE EIGHTIETHS 11FC7 TAMIL FRACTION THREE SIXTY-FOURTHS 11FC8 TAMIL FRACTION ONE TWENTIETH 11FC9 TAMIL FRACTION ONE SIXTEENTH-1 11FCA TAMIL FRACTION ONE SIXTEENTH-2 11FCB TAMIL FRACTION ONE TENTH 11FCC TAMIL FRACTION ONE EIGHTH 11FCD TAMIL FRACTION THREE TWENTIETHS 11FCE TAMIL FRACTION THREE SIXTEENTHS 11FCF TAMIL FRACTION ONE FIFTH 11FD0 TAMIL FRACTION ONE QUARTER 11FD1 TAMIL FRACTION ONE HALF-1 11FD2 TAMIL FRACTION ONE HALF-2 11FD3 TAMIL FRACTION THREE QUARTERS 11FD4 TAMIL FRACTION DOWNSCALING FACTOR KIIZH 11FD5 TAMIL SIGN NEL 11FD6 TAMIL SIGN CEVITU 11FD7 TAMIL SIGN AAZHAAKKU 11FD8 TAMIL SIGN UZHAKKU 11FD9 TAMIL SIGN MUUVUZHAKKU 11FDA TAMIL SIGN KURUNI 11FDB TAMIL SIGN PATHAKKU 11FDC TAMIL SIGN MUKKURUNI 11FDD TAMIL SIGN KAACU 11FDE TAMIL SIGN PANAM 11FDF TAMIL SIGN PON 11FE0 TAMIL SIGN VARAAKAN 11FE1 TAMIL SIGN PAARAM 11FE2 TAMIL SIGN KUZHI 11FE3 TAMIL SIGN VELI 11FE4 TAMIL WET CULTIVATION SIGN 11FE5 TAMIL DRY CULTIVATION SIGN 11FE6 TAMIL LAND SIGN 11FE7 TAMIL SALT PAN SIGN 11FE8 TAMIL TRADITIONAL CREDIT SIGN 11FE9 TAMIL TRADITIONAL NUMBER SIGN 11FEA TAMIL CURRENT SIGN 11FEB TAMIL AND ODD SIGN 11FEC TAMIL SPENT SIGN 11FED TAMIL TOTAL SIGN 11FEE TAMIL IN POSSESSION SIGN 11FEF TAMIL STARTING FROM SIGN 11FF0 TAMIL SIGN MUTHALIYA 11FF1 TAMIL SIGN VAKAIYARAA 11FFF TAMIL PUNCTUATION END OF TEXT 12000 CUNEIFORM SIGN A 12001 CUNEIFORM SIGN A TIMES A 12002 CUNEIFORM SIGN A TIMES BAD 12003 CUNEIFORM SIGN A TIMES GAN2 TENU 12004 CUNEIFORM SIGN A TIMES HA 12005 CUNEIFORM SIGN A TIMES IGI 12006 CUNEIFORM SIGN A TIMES LAGAR GUNU 12007 CUNEIFORM SIGN A TIMES MUSH 12008 CUNEIFORM SIGN A TIMES SAG 12009 CUNEIFORM SIGN A2 1200A CUNEIFORM SIGN AB 1200B CUNEIFORM SIGN AB TIMES ASH2 1200C CUNEIFORM SIGN AB TIMES DUN3 GUNU 1200D CUNEIFORM SIGN AB TIMES GAL 1200E CUNEIFORM SIGN AB TIMES GAN2 TENU 1200F CUNEIFORM SIGN AB TIMES HA 12010 CUNEIFORM SIGN AB TIMES IGI GUNU 12011 CUNEIFORM SIGN AB TIMES IMIN 12012 CUNEIFORM SIGN AB TIMES LAGAB 12013 CUNEIFORM SIGN AB TIMES SHESH 12014 CUNEIFORM SIGN AB TIMES U PLUS U PLUS U 12015 CUNEIFORM SIGN AB GUNU 12016 CUNEIFORM SIGN AB2 12017 CUNEIFORM SIGN AB2 TIMES BALAG 12018 CUNEIFORM SIGN AB2 TIMES GAN2 TENU 12019 CUNEIFORM SIGN AB2 TIMES ME PLUS EN 1201A CUNEIFORM SIGN AB2 TIMES SHA3 1201B CUNEIFORM SIGN AB2 TIMES TAK4 1201C CUNEIFORM SIGN AD 1201D CUNEIFORM SIGN AK 1201E CUNEIFORM SIGN AK TIMES ERIN2 1201F CUNEIFORM SIGN AK TIMES SHITA PLUS GISH 12020 CUNEIFORM SIGN AL 12021 CUNEIFORM SIGN AL TIMES AL 12022 CUNEIFORM SIGN AL TIMES DIM2 12023 CUNEIFORM SIGN AL TIMES GISH 12024 CUNEIFORM SIGN AL TIMES HA 12025 CUNEIFORM SIGN AL TIMES KAD3 12026 CUNEIFORM SIGN AL TIMES KI 12027 CUNEIFORM SIGN AL TIMES SHE 12028 CUNEIFORM SIGN AL TIMES USH 12029 CUNEIFORM SIGN ALAN 1202A CUNEIFORM SIGN ALEPH 1202B CUNEIFORM SIGN AMAR 1202C CUNEIFORM SIGN AMAR TIMES SHE 1202D CUNEIFORM SIGN AN 1202E CUNEIFORM SIGN AN OVER AN 1202F CUNEIFORM SIGN AN THREE TIMES 12030 CUNEIFORM SIGN AN PLUS NAGA OPPOSING AN PLUS NAGA 12031 CUNEIFORM SIGN AN PLUS NAGA SQUARED 12032 CUNEIFORM SIGN ANSHE 12033 CUNEIFORM SIGN APIN 12034 CUNEIFORM SIGN ARAD 12035 CUNEIFORM SIGN ARAD TIMES KUR 12036 CUNEIFORM SIGN ARKAB 12037 CUNEIFORM SIGN ASAL2 12038 CUNEIFORM SIGN ASH 12039 CUNEIFORM SIGN ASH ZIDA TENU 1203A CUNEIFORM SIGN ASH KABA TENU 1203B CUNEIFORM SIGN ASH OVER ASH TUG2 OVER TUG2 TUG2 OVER TUG2 PAP 1203C CUNEIFORM SIGN ASH OVER ASH OVER ASH 1203D CUNEIFORM SIGN ASH OVER ASH OVER ASH CROSSING ASH OVER ASH OVER ASH 1203E CUNEIFORM SIGN ASH2 1203F CUNEIFORM SIGN ASHGAB 12040 CUNEIFORM SIGN BA 12041 CUNEIFORM SIGN BAD 12042 CUNEIFORM SIGN BAG3 12043 CUNEIFORM SIGN BAHAR2 12044 CUNEIFORM SIGN BAL 12045 CUNEIFORM SIGN BAL OVER BAL 12046 CUNEIFORM SIGN BALAG 12047 CUNEIFORM SIGN BAR 12048 CUNEIFORM SIGN BARA2 12049 CUNEIFORM SIGN BI 1204A CUNEIFORM SIGN BI TIMES A 1204B CUNEIFORM SIGN BI TIMES GAR 1204C CUNEIFORM SIGN BI TIMES IGI GUNU 1204D CUNEIFORM SIGN BU 1204E CUNEIFORM SIGN BU OVER BU AB 1204F CUNEIFORM SIGN BU OVER BU UN 12050 CUNEIFORM SIGN BU CROSSING BU 12051 CUNEIFORM SIGN BULUG 12052 CUNEIFORM SIGN BULUG OVER BULUG 12053 CUNEIFORM SIGN BUR 12054 CUNEIFORM SIGN BUR2 12055 CUNEIFORM SIGN DA 12056 CUNEIFORM SIGN DAG 12057 CUNEIFORM SIGN DAG KISIM5 TIMES A PLUS MASH 12058 CUNEIFORM SIGN DAG KISIM5 TIMES AMAR 12059 CUNEIFORM SIGN DAG KISIM5 TIMES BALAG 1205A CUNEIFORM SIGN DAG KISIM5 TIMES BI 1205B CUNEIFORM SIGN DAG KISIM5 TIMES GA 1205C CUNEIFORM SIGN DAG KISIM5 TIMES GA PLUS MASH 1205D CUNEIFORM SIGN DAG KISIM5 TIMES GI 1205E CUNEIFORM SIGN DAG KISIM5 TIMES GIR2 1205F CUNEIFORM SIGN DAG KISIM5 TIMES GUD 12060 CUNEIFORM SIGN DAG KISIM5 TIMES HA 12061 CUNEIFORM SIGN DAG KISIM5 TIMES IR 12062 CUNEIFORM SIGN DAG KISIM5 TIMES IR PLUS LU 12063 CUNEIFORM SIGN DAG KISIM5 TIMES KAK 12064 CUNEIFORM SIGN DAG KISIM5 TIMES LA 12065 CUNEIFORM SIGN DAG KISIM5 TIMES LU 12066 CUNEIFORM SIGN DAG KISIM5 TIMES LU PLUS MASH2 12067 CUNEIFORM SIGN DAG KISIM5 TIMES LUM 12068 CUNEIFORM SIGN DAG KISIM5 TIMES NE 12069 CUNEIFORM SIGN DAG KISIM5 TIMES PAP PLUS PAP 1206A CUNEIFORM SIGN DAG KISIM5 TIMES SI 1206B CUNEIFORM SIGN DAG KISIM5 TIMES TAK4 1206C CUNEIFORM SIGN DAG KISIM5 TIMES U2 PLUS GIR2 1206D CUNEIFORM SIGN DAG KISIM5 TIMES USH 1206E CUNEIFORM SIGN DAM 1206F CUNEIFORM SIGN DAR 12070 CUNEIFORM SIGN DARA3 12071 CUNEIFORM SIGN DARA4 12072 CUNEIFORM SIGN DI 12073 CUNEIFORM SIGN DIB 12074 CUNEIFORM SIGN DIM 12075 CUNEIFORM SIGN DIM TIMES SHE 12076 CUNEIFORM SIGN DIM2 12077 CUNEIFORM SIGN DIN 12078 CUNEIFORM SIGN DIN KASKAL U GUNU DISH 12079 CUNEIFORM SIGN DISH 1207A CUNEIFORM SIGN DU 1207B CUNEIFORM SIGN DU OVER DU 1207C CUNEIFORM SIGN DU GUNU 1207D CUNEIFORM SIGN DU SHESHIG 1207E CUNEIFORM SIGN DUB 1207F CUNEIFORM SIGN DUB TIMES ESH2 12080 CUNEIFORM SIGN DUB2 12081 CUNEIFORM SIGN DUG 12082 CUNEIFORM SIGN DUGUD 12083 CUNEIFORM SIGN DUH 12084 CUNEIFORM SIGN DUN 12085 CUNEIFORM SIGN DUN3 12086 CUNEIFORM SIGN DUN3 GUNU 12087 CUNEIFORM SIGN DUN3 GUNU GUNU 12088 CUNEIFORM SIGN DUN4 12089 CUNEIFORM SIGN DUR2 1208A CUNEIFORM SIGN E 1208B CUNEIFORM SIGN E TIMES PAP 1208C CUNEIFORM SIGN E OVER E NUN OVER NUN 1208D CUNEIFORM SIGN E2 1208E CUNEIFORM SIGN E2 TIMES A PLUS HA PLUS DA 1208F CUNEIFORM SIGN E2 TIMES GAR 12090 CUNEIFORM SIGN E2 TIMES MI 12091 CUNEIFORM SIGN E2 TIMES SAL 12092 CUNEIFORM SIGN E2 TIMES SHE 12093 CUNEIFORM SIGN E2 TIMES U 12094 CUNEIFORM SIGN EDIN 12095 CUNEIFORM SIGN EGIR 12096 CUNEIFORM SIGN EL 12097 CUNEIFORM SIGN EN 12098 CUNEIFORM SIGN EN TIMES GAN2 12099 CUNEIFORM SIGN EN TIMES GAN2 TENU 1209A CUNEIFORM SIGN EN TIMES ME 1209B CUNEIFORM SIGN EN CROSSING EN 1209C CUNEIFORM SIGN EN OPPOSING EN 1209D CUNEIFORM SIGN EN SQUARED 1209E CUNEIFORM SIGN EREN 1209F CUNEIFORM SIGN ERIN2 120A0 CUNEIFORM SIGN ESH2 120A1 CUNEIFORM SIGN EZEN 120A2 CUNEIFORM SIGN EZEN TIMES A 120A3 CUNEIFORM SIGN EZEN TIMES A PLUS LAL 120A4 CUNEIFORM SIGN EZEN TIMES A PLUS LAL TIMES LAL 120A5 CUNEIFORM SIGN EZEN TIMES AN 120A6 CUNEIFORM SIGN EZEN TIMES BAD 120A7 CUNEIFORM SIGN EZEN TIMES DUN3 GUNU 120A8 CUNEIFORM SIGN EZEN TIMES DUN3 GUNU GUNU 120A9 CUNEIFORM SIGN EZEN TIMES HA 120AA CUNEIFORM SIGN EZEN TIMES HA GUNU 120AB CUNEIFORM SIGN EZEN TIMES IGI GUNU 120AC CUNEIFORM SIGN EZEN TIMES KASKAL 120AD CUNEIFORM SIGN EZEN TIMES KASKAL SQUARED 120AE CUNEIFORM SIGN EZEN TIMES KU3 120AF CUNEIFORM SIGN EZEN TIMES LA 120B0 CUNEIFORM SIGN EZEN TIMES LAL TIMES LAL 120B1 CUNEIFORM SIGN EZEN TIMES LI 120B2 CUNEIFORM SIGN EZEN TIMES LU 120B3 CUNEIFORM SIGN EZEN TIMES U2 120B4 CUNEIFORM SIGN EZEN TIMES UD 120B5 CUNEIFORM SIGN GA 120B6 CUNEIFORM SIGN GA GUNU 120B7 CUNEIFORM SIGN GA2 120B8 CUNEIFORM SIGN GA2 TIMES A PLUS DA PLUS HA 120B9 CUNEIFORM SIGN GA2 TIMES A PLUS HA 120BA CUNEIFORM SIGN GA2 TIMES A PLUS IGI 120BB CUNEIFORM SIGN GA2 TIMES AB2 TENU PLUS TAB 120BC CUNEIFORM SIGN GA2 TIMES AN 120BD CUNEIFORM SIGN GA2 TIMES ASH 120BE CUNEIFORM SIGN GA2 TIMES ASH2 PLUS GAL 120BF CUNEIFORM SIGN GA2 TIMES BAD 120C0 CUNEIFORM SIGN GA2 TIMES BAR PLUS RA 120C1 CUNEIFORM SIGN GA2 TIMES BUR 120C2 CUNEIFORM SIGN GA2 TIMES BUR PLUS RA 120C3 CUNEIFORM SIGN GA2 TIMES DA 120C4 CUNEIFORM SIGN GA2 TIMES DI 120C5 CUNEIFORM SIGN GA2 TIMES DIM TIMES SHE 120C6 CUNEIFORM SIGN GA2 TIMES DUB 120C7 CUNEIFORM SIGN GA2 TIMES EL 120C8 CUNEIFORM SIGN GA2 TIMES EL PLUS LA 120C9 CUNEIFORM SIGN GA2 TIMES EN 120CA CUNEIFORM SIGN GA2 TIMES EN TIMES GAN2 TENU 120CB CUNEIFORM SIGN GA2 TIMES GAN2 TENU 120CC CUNEIFORM SIGN GA2 TIMES GAR 120CD CUNEIFORM SIGN GA2 TIMES GI 120CE CUNEIFORM SIGN GA2 TIMES GI4 120CF CUNEIFORM SIGN GA2 TIMES GI4 PLUS A 120D0 CUNEIFORM SIGN GA2 TIMES GIR2 PLUS SU 120D1 CUNEIFORM SIGN GA2 TIMES HA PLUS LU PLUS ESH2 120D2 CUNEIFORM SIGN GA2 TIMES HAL 120D3 CUNEIFORM SIGN GA2 TIMES HAL PLUS LA 120D4 CUNEIFORM SIGN GA2 TIMES HI PLUS LI 120D5 CUNEIFORM SIGN GA2 TIMES HUB2 120D6 CUNEIFORM SIGN GA2 TIMES IGI GUNU 120D7 CUNEIFORM SIGN GA2 TIMES ISH PLUS HU PLUS ASH 120D8 CUNEIFORM SIGN GA2 TIMES KAK 120D9 CUNEIFORM SIGN GA2 TIMES KASKAL 120DA CUNEIFORM SIGN GA2 TIMES KID 120DB CUNEIFORM SIGN GA2 TIMES KID PLUS LAL 120DC CUNEIFORM SIGN GA2 TIMES KU3 PLUS AN 120DD CUNEIFORM SIGN GA2 TIMES LA 120DE CUNEIFORM SIGN GA2 TIMES ME PLUS EN 120DF CUNEIFORM SIGN GA2 TIMES MI 120E0 CUNEIFORM SIGN GA2 TIMES NUN 120E1 CUNEIFORM SIGN GA2 TIMES NUN OVER NUN 120E2 CUNEIFORM SIGN GA2 TIMES PA 120E3 CUNEIFORM SIGN GA2 TIMES SAL 120E4 CUNEIFORM SIGN GA2 TIMES SAR 120E5 CUNEIFORM SIGN GA2 TIMES SHE 120E6 CUNEIFORM SIGN GA2 TIMES SHE PLUS TUR 120E7 CUNEIFORM SIGN GA2 TIMES SHID 120E8 CUNEIFORM SIGN GA2 TIMES SUM 120E9 CUNEIFORM SIGN GA2 TIMES TAK4 120EA CUNEIFORM SIGN GA2 TIMES U 120EB CUNEIFORM SIGN GA2 TIMES UD 120EC CUNEIFORM SIGN GA2 TIMES UD PLUS DU 120ED CUNEIFORM SIGN GA2 OVER GA2 120EE CUNEIFORM SIGN GABA 120EF CUNEIFORM SIGN GABA CROSSING GABA 120F0 CUNEIFORM SIGN GAD 120F1 CUNEIFORM SIGN GAD OVER GAD GAR OVER GAR 120F2 CUNEIFORM SIGN GAL 120F3 CUNEIFORM SIGN GAL GAD OVER GAD GAR OVER GAR 120F4 CUNEIFORM SIGN GALAM 120F5 CUNEIFORM SIGN GAM 120F6 CUNEIFORM SIGN GAN 120F7 CUNEIFORM SIGN GAN2 120F8 CUNEIFORM SIGN GAN2 TENU 120F9 CUNEIFORM SIGN GAN2 OVER GAN2 120FA CUNEIFORM SIGN GAN2 CROSSING GAN2 120FB CUNEIFORM SIGN GAR 120FC CUNEIFORM SIGN GAR3 120FD CUNEIFORM SIGN GASHAN 120FE CUNEIFORM SIGN GESHTIN 120FF CUNEIFORM SIGN GESHTIN TIMES KUR 12100 CUNEIFORM SIGN GI 12101 CUNEIFORM SIGN GI TIMES E 12102 CUNEIFORM SIGN GI TIMES U 12103 CUNEIFORM SIGN GI CROSSING GI 12104 CUNEIFORM SIGN GI4 12105 CUNEIFORM SIGN GI4 OVER GI4 12106 CUNEIFORM SIGN GI4 CROSSING GI4 12107 CUNEIFORM SIGN GIDIM 12108 CUNEIFORM SIGN GIR2 12109 CUNEIFORM SIGN GIR2 GUNU 1210A CUNEIFORM SIGN GIR3 1210B CUNEIFORM SIGN GIR3 TIMES A PLUS IGI 1210C CUNEIFORM SIGN GIR3 TIMES GAN2 TENU 1210D CUNEIFORM SIGN GIR3 TIMES IGI 1210E CUNEIFORM SIGN GIR3 TIMES LU PLUS IGI 1210F CUNEIFORM SIGN GIR3 TIMES PA 12110 CUNEIFORM SIGN GISAL 12111 CUNEIFORM SIGN GISH 12112 CUNEIFORM SIGN GISH CROSSING GISH 12113 CUNEIFORM SIGN GISH TIMES BAD 12114 CUNEIFORM SIGN GISH TIMES TAK4 12115 CUNEIFORM SIGN GISH TENU 12116 CUNEIFORM SIGN GU 12117 CUNEIFORM SIGN GU CROSSING GU 12118 CUNEIFORM SIGN GU2 12119 CUNEIFORM SIGN GU2 TIMES KAK 1211A CUNEIFORM SIGN GU2 TIMES KAK TIMES IGI GUNU 1211B CUNEIFORM SIGN GU2 TIMES NUN 1211C CUNEIFORM SIGN GU2 TIMES SAL PLUS TUG2 1211D CUNEIFORM SIGN GU2 GUNU 1211E CUNEIFORM SIGN GUD 1211F CUNEIFORM SIGN GUD TIMES A PLUS KUR 12120 CUNEIFORM SIGN GUD TIMES KUR 12121 CUNEIFORM SIGN GUD OVER GUD LUGAL 12122 CUNEIFORM SIGN GUL 12123 CUNEIFORM SIGN GUM 12124 CUNEIFORM SIGN GUM TIMES SHE 12125 CUNEIFORM SIGN GUR 12126 CUNEIFORM SIGN GUR7 12127 CUNEIFORM SIGN GURUN 12128 CUNEIFORM SIGN GURUSH 12129 CUNEIFORM SIGN HA 1212A CUNEIFORM SIGN HA TENU 1212B CUNEIFORM SIGN HA GUNU 1212C CUNEIFORM SIGN HAL 1212D CUNEIFORM SIGN HI 1212E CUNEIFORM SIGN HI TIMES ASH 1212F CUNEIFORM SIGN HI TIMES ASH2 12130 CUNEIFORM SIGN HI TIMES BAD 12131 CUNEIFORM SIGN HI TIMES DISH 12132 CUNEIFORM SIGN HI TIMES GAD 12133 CUNEIFORM SIGN HI TIMES KIN 12134 CUNEIFORM SIGN HI TIMES NUN 12135 CUNEIFORM SIGN HI TIMES SHE 12136 CUNEIFORM SIGN HI TIMES U 12137 CUNEIFORM SIGN HU 12138 CUNEIFORM SIGN HUB2 12139 CUNEIFORM SIGN HUB2 TIMES AN 1213A CUNEIFORM SIGN HUB2 TIMES HAL 1213B CUNEIFORM SIGN HUB2 TIMES KASKAL 1213C CUNEIFORM SIGN HUB2 TIMES LISH 1213D CUNEIFORM SIGN HUB2 TIMES UD 1213E CUNEIFORM SIGN HUL2 1213F CUNEIFORM SIGN I 12140 CUNEIFORM SIGN I A 12141 CUNEIFORM SIGN IB 12142 CUNEIFORM SIGN IDIM 12143 CUNEIFORM SIGN IDIM OVER IDIM BUR 12144 CUNEIFORM SIGN IDIM OVER IDIM SQUARED 12145 CUNEIFORM SIGN IG 12146 CUNEIFORM SIGN IGI 12147 CUNEIFORM SIGN IGI DIB 12148 CUNEIFORM SIGN IGI RI 12149 CUNEIFORM SIGN IGI OVER IGI SHIR OVER SHIR UD OVER UD 1214A CUNEIFORM SIGN IGI GUNU 1214B CUNEIFORM SIGN IL 1214C CUNEIFORM SIGN IL TIMES GAN2 TENU 1214D CUNEIFORM SIGN IL2 1214E CUNEIFORM SIGN IM 1214F CUNEIFORM SIGN IM TIMES TAK4 12150 CUNEIFORM SIGN IM CROSSING IM 12151 CUNEIFORM SIGN IM OPPOSING IM 12152 CUNEIFORM SIGN IM SQUARED 12153 CUNEIFORM SIGN IMIN 12154 CUNEIFORM SIGN IN 12155 CUNEIFORM SIGN IR 12156 CUNEIFORM SIGN ISH 12157 CUNEIFORM SIGN KA 12158 CUNEIFORM SIGN KA TIMES A 12159 CUNEIFORM SIGN KA TIMES AD 1215A CUNEIFORM SIGN KA TIMES AD PLUS KU3 1215B CUNEIFORM SIGN KA TIMES ASH2 1215C CUNEIFORM SIGN KA TIMES BAD 1215D CUNEIFORM SIGN KA TIMES BALAG 1215E CUNEIFORM SIGN KA TIMES BAR 1215F CUNEIFORM SIGN KA TIMES BI 12160 CUNEIFORM SIGN KA TIMES ERIN2 12161 CUNEIFORM SIGN KA TIMES ESH2 12162 CUNEIFORM SIGN KA TIMES GA 12163 CUNEIFORM SIGN KA TIMES GAL 12164 CUNEIFORM SIGN KA TIMES GAN2 TENU 12165 CUNEIFORM SIGN KA TIMES GAR 12166 CUNEIFORM SIGN KA TIMES GAR PLUS SHA3 PLUS A 12167 CUNEIFORM SIGN KA TIMES GI 12168 CUNEIFORM SIGN KA TIMES GIR2 12169 CUNEIFORM SIGN KA TIMES GISH PLUS SAR 1216A CUNEIFORM SIGN KA TIMES GISH CROSSING GISH 1216B CUNEIFORM SIGN KA TIMES GU 1216C CUNEIFORM SIGN KA TIMES GUR7 1216D CUNEIFORM SIGN KA TIMES IGI 1216E CUNEIFORM SIGN KA TIMES IM 1216F CUNEIFORM SIGN KA TIMES KAK 12170 CUNEIFORM SIGN KA TIMES KI 12171 CUNEIFORM SIGN KA TIMES KID 12172 CUNEIFORM SIGN KA TIMES LI 12173 CUNEIFORM SIGN KA TIMES LU 12174 CUNEIFORM SIGN KA TIMES ME 12175 CUNEIFORM SIGN KA TIMES ME PLUS DU 12176 CUNEIFORM SIGN KA TIMES ME PLUS GI 12177 CUNEIFORM SIGN KA TIMES ME PLUS TE 12178 CUNEIFORM SIGN KA TIMES MI 12179 CUNEIFORM SIGN KA TIMES MI PLUS NUNUZ 1217A CUNEIFORM SIGN KA TIMES NE 1217B CUNEIFORM SIGN KA TIMES NUN 1217C CUNEIFORM SIGN KA TIMES PI 1217D CUNEIFORM SIGN KA TIMES RU 1217E CUNEIFORM SIGN KA TIMES SA 1217F CUNEIFORM SIGN KA TIMES SAR 12180 CUNEIFORM SIGN KA TIMES SHA 12181 CUNEIFORM SIGN KA TIMES SHE 12182 CUNEIFORM SIGN KA TIMES SHID 12183 CUNEIFORM SIGN KA TIMES SHU 12184 CUNEIFORM SIGN KA TIMES SIG 12185 CUNEIFORM SIGN KA TIMES SUHUR 12186 CUNEIFORM SIGN KA TIMES TAR 12187 CUNEIFORM SIGN KA TIMES U 12188 CUNEIFORM SIGN KA TIMES U2 12189 CUNEIFORM SIGN KA TIMES UD 1218A CUNEIFORM SIGN KA TIMES UMUM TIMES PA 1218B CUNEIFORM SIGN KA TIMES USH 1218C CUNEIFORM SIGN KA TIMES ZI 1218D CUNEIFORM SIGN KA2 1218E CUNEIFORM SIGN KA2 CROSSING KA2 1218F CUNEIFORM SIGN KAB 12190 CUNEIFORM SIGN KAD2 12191 CUNEIFORM SIGN KAD3 12192 CUNEIFORM SIGN KAD4 12193 CUNEIFORM SIGN KAD5 12194 CUNEIFORM SIGN KAD5 OVER KAD5 12195 CUNEIFORM SIGN KAK 12196 CUNEIFORM SIGN KAK TIMES IGI GUNU 12197 CUNEIFORM SIGN KAL 12198 CUNEIFORM SIGN KAL TIMES BAD 12199 CUNEIFORM SIGN KAL CROSSING KAL 1219A CUNEIFORM SIGN KAM2 1219B CUNEIFORM SIGN KAM4 1219C CUNEIFORM SIGN KASKAL 1219D CUNEIFORM SIGN KASKAL LAGAB TIMES U OVER LAGAB TIMES U 1219E CUNEIFORM SIGN KASKAL OVER KASKAL LAGAB TIMES U OVER LAGAB TIMES U 1219F CUNEIFORM SIGN KESH2 121A0 CUNEIFORM SIGN KI 121A1 CUNEIFORM SIGN KI TIMES BAD 121A2 CUNEIFORM SIGN KI TIMES U 121A3 CUNEIFORM SIGN KI TIMES UD 121A4 CUNEIFORM SIGN KID 121A5 CUNEIFORM SIGN KIN 121A6 CUNEIFORM SIGN KISAL 121A7 CUNEIFORM SIGN KISH 121A8 CUNEIFORM SIGN KISIM5 121A9 CUNEIFORM SIGN KISIM5 OVER KISIM5 121AA CUNEIFORM SIGN KU 121AB CUNEIFORM SIGN KU OVER HI TIMES ASH2 KU OVER HI TIMES ASH2 121AC CUNEIFORM SIGN KU3 121AD CUNEIFORM SIGN KU4 121AE CUNEIFORM SIGN KU4 VARIANT FORM 121AF CUNEIFORM SIGN KU7 121B0 CUNEIFORM SIGN KUL 121B1 CUNEIFORM SIGN KUL GUNU 121B2 CUNEIFORM SIGN KUN 121B3 CUNEIFORM SIGN KUR 121B4 CUNEIFORM SIGN KUR OPPOSING KUR 121B5 CUNEIFORM SIGN KUSHU2 121B6 CUNEIFORM SIGN KWU318 121B7 CUNEIFORM SIGN LA 121B8 CUNEIFORM SIGN LAGAB 121B9 CUNEIFORM SIGN LAGAB TIMES A 121BA CUNEIFORM SIGN LAGAB TIMES A PLUS DA PLUS HA 121BB CUNEIFORM SIGN LAGAB TIMES A PLUS GAR 121BC CUNEIFORM SIGN LAGAB TIMES A PLUS LAL 121BD CUNEIFORM SIGN LAGAB TIMES AL 121BE CUNEIFORM SIGN LAGAB TIMES AN 121BF CUNEIFORM SIGN LAGAB TIMES ASH ZIDA TENU 121C0 CUNEIFORM SIGN LAGAB TIMES BAD 121C1 CUNEIFORM SIGN LAGAB TIMES BI 121C2 CUNEIFORM SIGN LAGAB TIMES DAR 121C3 CUNEIFORM SIGN LAGAB TIMES EN 121C4 CUNEIFORM SIGN LAGAB TIMES GA 121C5 CUNEIFORM SIGN LAGAB TIMES GAR 121C6 CUNEIFORM SIGN LAGAB TIMES GUD 121C7 CUNEIFORM SIGN LAGAB TIMES GUD PLUS GUD 121C8 CUNEIFORM SIGN LAGAB TIMES HA 121C9 CUNEIFORM SIGN LAGAB TIMES HAL 121CA CUNEIFORM SIGN LAGAB TIMES HI TIMES NUN 121CB CUNEIFORM SIGN LAGAB TIMES IGI GUNU 121CC CUNEIFORM SIGN LAGAB TIMES IM 121CD CUNEIFORM SIGN LAGAB TIMES IM PLUS HA 121CE CUNEIFORM SIGN LAGAB TIMES IM PLUS LU 121CF CUNEIFORM SIGN LAGAB TIMES KI 121D0 CUNEIFORM SIGN LAGAB TIMES KIN 121D1 CUNEIFORM SIGN LAGAB TIMES KU3 121D2 CUNEIFORM SIGN LAGAB TIMES KUL 121D3 CUNEIFORM SIGN LAGAB TIMES KUL PLUS HI PLUS A 121D4 CUNEIFORM SIGN LAGAB TIMES LAGAB 121D5 CUNEIFORM SIGN LAGAB TIMES LISH 121D6 CUNEIFORM SIGN LAGAB TIMES LU 121D7 CUNEIFORM SIGN LAGAB TIMES LUL 121D8 CUNEIFORM SIGN LAGAB TIMES ME 121D9 CUNEIFORM SIGN LAGAB TIMES ME PLUS EN 121DA CUNEIFORM SIGN LAGAB TIMES MUSH 121DB CUNEIFORM SIGN LAGAB TIMES NE 121DC CUNEIFORM SIGN LAGAB TIMES SHE PLUS SUM 121DD CUNEIFORM SIGN LAGAB TIMES SHITA PLUS GISH PLUS ERIN2 121DE CUNEIFORM SIGN LAGAB TIMES SHITA PLUS GISH TENU 121DF CUNEIFORM SIGN LAGAB TIMES SHU2 121E0 CUNEIFORM SIGN LAGAB TIMES SHU2 PLUS SHU2 121E1 CUNEIFORM SIGN LAGAB TIMES SUM 121E2 CUNEIFORM SIGN LAGAB TIMES TAG 121E3 CUNEIFORM SIGN LAGAB TIMES TAK4 121E4 CUNEIFORM SIGN LAGAB TIMES TE PLUS A PLUS SU PLUS NA 121E5 CUNEIFORM SIGN LAGAB TIMES U 121E6 CUNEIFORM SIGN LAGAB TIMES U PLUS A 121E7 CUNEIFORM SIGN LAGAB TIMES U PLUS U PLUS U 121E8 CUNEIFORM SIGN LAGAB TIMES U2 PLUS ASH 121E9 CUNEIFORM SIGN LAGAB TIMES UD 121EA CUNEIFORM SIGN LAGAB TIMES USH 121EB CUNEIFORM SIGN LAGAB SQUARED 121EC CUNEIFORM SIGN LAGAR 121ED CUNEIFORM SIGN LAGAR TIMES SHE 121EE CUNEIFORM SIGN LAGAR TIMES SHE PLUS SUM 121EF CUNEIFORM SIGN LAGAR GUNU 121F0 CUNEIFORM SIGN LAGAR GUNU OVER LAGAR GUNU SHE 121F1 CUNEIFORM SIGN LAHSHU 121F2 CUNEIFORM SIGN LAL 121F3 CUNEIFORM SIGN LAL TIMES LAL 121F4 CUNEIFORM SIGN LAM 121F5 CUNEIFORM SIGN LAM TIMES KUR 121F6 CUNEIFORM SIGN LAM TIMES KUR PLUS RU 121F7 CUNEIFORM SIGN LI 121F8 CUNEIFORM SIGN LIL 121F9 CUNEIFORM SIGN LIMMU2 121FA CUNEIFORM SIGN LISH 121FB CUNEIFORM SIGN LU 121FC CUNEIFORM SIGN LU TIMES BAD 121FD CUNEIFORM SIGN LU2 121FE CUNEIFORM SIGN LU2 TIMES AL 121FF CUNEIFORM SIGN LU2 TIMES BAD 12200 CUNEIFORM SIGN LU2 TIMES ESH2 12201 CUNEIFORM SIGN LU2 TIMES ESH2 TENU 12202 CUNEIFORM SIGN LU2 TIMES GAN2 TENU 12203 CUNEIFORM SIGN LU2 TIMES HI TIMES BAD 12204 CUNEIFORM SIGN LU2 TIMES IM 12205 CUNEIFORM SIGN LU2 TIMES KAD2 12206 CUNEIFORM SIGN LU2 TIMES KAD3 12207 CUNEIFORM SIGN LU2 TIMES KAD3 PLUS ASH 12208 CUNEIFORM SIGN LU2 TIMES KI 12209 CUNEIFORM SIGN LU2 TIMES LA PLUS ASH 1220A CUNEIFORM SIGN LU2 TIMES LAGAB 1220B CUNEIFORM SIGN LU2 TIMES ME PLUS EN 1220C CUNEIFORM SIGN LU2 TIMES NE 1220D CUNEIFORM SIGN LU2 TIMES NU 1220E CUNEIFORM SIGN LU2 TIMES SI PLUS ASH 1220F CUNEIFORM SIGN LU2 TIMES SIK2 PLUS BU 12210 CUNEIFORM SIGN LU2 TIMES TUG2 12211 CUNEIFORM SIGN LU2 TENU 12212 CUNEIFORM SIGN LU2 CROSSING LU2 12213 CUNEIFORM SIGN LU2 OPPOSING LU2 12214 CUNEIFORM SIGN LU2 SQUARED 12215 CUNEIFORM SIGN LU2 SHESHIG 12216 CUNEIFORM SIGN LU3 12217 CUNEIFORM SIGN LUGAL 12218 CUNEIFORM SIGN LUGAL OVER LUGAL 12219 CUNEIFORM SIGN LUGAL OPPOSING LUGAL 1221A CUNEIFORM SIGN LUGAL SHESHIG 1221B CUNEIFORM SIGN LUH 1221C CUNEIFORM SIGN LUL 1221D CUNEIFORM SIGN LUM 1221E CUNEIFORM SIGN LUM OVER LUM 1221F CUNEIFORM SIGN LUM OVER LUM GAR OVER GAR 12220 CUNEIFORM SIGN MA 12221 CUNEIFORM SIGN MA TIMES TAK4 12222 CUNEIFORM SIGN MA GUNU 12223 CUNEIFORM SIGN MA2 12224 CUNEIFORM SIGN MAH 12225 CUNEIFORM SIGN MAR 12226 CUNEIFORM SIGN MASH 12227 CUNEIFORM SIGN MASH2 12228 CUNEIFORM SIGN ME 12229 CUNEIFORM SIGN MES 1222A CUNEIFORM SIGN MI 1222B CUNEIFORM SIGN MIN 1222C CUNEIFORM SIGN MU 1222D CUNEIFORM SIGN MU OVER MU 1222E CUNEIFORM SIGN MUG 1222F CUNEIFORM SIGN MUG GUNU 12230 CUNEIFORM SIGN MUNSUB 12231 CUNEIFORM SIGN MURGU2 12232 CUNEIFORM SIGN MUSH 12233 CUNEIFORM SIGN MUSH TIMES A 12234 CUNEIFORM SIGN MUSH TIMES KUR 12235 CUNEIFORM SIGN MUSH TIMES ZA 12236 CUNEIFORM SIGN MUSH OVER MUSH 12237 CUNEIFORM SIGN MUSH OVER MUSH TIMES A PLUS NA 12238 CUNEIFORM SIGN MUSH CROSSING MUSH 12239 CUNEIFORM SIGN MUSH3 1223A CUNEIFORM SIGN MUSH3 TIMES A 1223B CUNEIFORM SIGN MUSH3 TIMES A PLUS DI 1223C CUNEIFORM SIGN MUSH3 TIMES DI 1223D CUNEIFORM SIGN MUSH3 GUNU 1223E CUNEIFORM SIGN NA 1223F CUNEIFORM SIGN NA2 12240 CUNEIFORM SIGN NAGA 12241 CUNEIFORM SIGN NAGA INVERTED 12242 CUNEIFORM SIGN NAGA TIMES SHU TENU 12243 CUNEIFORM SIGN NAGA OPPOSING NAGA 12244 CUNEIFORM SIGN NAGAR 12245 CUNEIFORM SIGN NAM NUTILLU 12246 CUNEIFORM SIGN NAM 12247 CUNEIFORM SIGN NAM2 12248 CUNEIFORM SIGN NE 12249 CUNEIFORM SIGN NE TIMES A 1224A CUNEIFORM SIGN NE TIMES UD 1224B CUNEIFORM SIGN NE SHESHIG 1224C CUNEIFORM SIGN NI 1224D CUNEIFORM SIGN NI TIMES E 1224E CUNEIFORM SIGN NI2 1224F CUNEIFORM SIGN NIM 12250 CUNEIFORM SIGN NIM TIMES GAN2 TENU 12251 CUNEIFORM SIGN NIM TIMES GAR PLUS GAN2 TENU 12252 CUNEIFORM SIGN NINDA2 12253 CUNEIFORM SIGN NINDA2 TIMES AN 12254 CUNEIFORM SIGN NINDA2 TIMES ASH 12255 CUNEIFORM SIGN NINDA2 TIMES ASH PLUS ASH 12256 CUNEIFORM SIGN NINDA2 TIMES GUD 12257 CUNEIFORM SIGN NINDA2 TIMES ME PLUS GAN2 TENU 12258 CUNEIFORM SIGN NINDA2 TIMES NE 12259 CUNEIFORM SIGN NINDA2 TIMES NUN 1225A CUNEIFORM SIGN NINDA2 TIMES SHE 1225B CUNEIFORM SIGN NINDA2 TIMES SHE PLUS A AN 1225C CUNEIFORM SIGN NINDA2 TIMES SHE PLUS ASH 1225D CUNEIFORM SIGN NINDA2 TIMES SHE PLUS ASH PLUS ASH 1225E CUNEIFORM SIGN NINDA2 TIMES U2 PLUS ASH 1225F CUNEIFORM SIGN NINDA2 TIMES USH 12260 CUNEIFORM SIGN NISAG 12261 CUNEIFORM SIGN NU 12262 CUNEIFORM SIGN NU11 12263 CUNEIFORM SIGN NUN 12264 CUNEIFORM SIGN NUN LAGAR TIMES GAR 12265 CUNEIFORM SIGN NUN LAGAR TIMES MASH 12266 CUNEIFORM SIGN NUN LAGAR TIMES SAL 12267 CUNEIFORM SIGN NUN LAGAR TIMES SAL OVER NUN LAGAR TIMES SAL 12268 CUNEIFORM SIGN NUN LAGAR TIMES USH 12269 CUNEIFORM SIGN NUN TENU 1226A CUNEIFORM SIGN NUN OVER NUN 1226B CUNEIFORM SIGN NUN CROSSING NUN 1226C CUNEIFORM SIGN NUN CROSSING NUN LAGAR OVER LAGAR 1226D CUNEIFORM SIGN NUNUZ 1226E CUNEIFORM SIGN NUNUZ AB2 TIMES ASHGAB 1226F CUNEIFORM SIGN NUNUZ AB2 TIMES BI 12270 CUNEIFORM SIGN NUNUZ AB2 TIMES DUG 12271 CUNEIFORM SIGN NUNUZ AB2 TIMES GUD 12272 CUNEIFORM SIGN NUNUZ AB2 TIMES IGI GUNU 12273 CUNEIFORM SIGN NUNUZ AB2 TIMES KAD3 12274 CUNEIFORM SIGN NUNUZ AB2 TIMES LA 12275 CUNEIFORM SIGN NUNUZ AB2 TIMES NE 12276 CUNEIFORM SIGN NUNUZ AB2 TIMES SILA3 12277 CUNEIFORM SIGN NUNUZ AB2 TIMES U2 12278 CUNEIFORM SIGN NUNUZ KISIM5 TIMES BI 12279 CUNEIFORM SIGN NUNUZ KISIM5 TIMES BI U 1227A CUNEIFORM SIGN PA 1227B CUNEIFORM SIGN PAD 1227C CUNEIFORM SIGN PAN 1227D CUNEIFORM SIGN PAP 1227E CUNEIFORM SIGN PESH2 1227F CUNEIFORM SIGN PI 12280 CUNEIFORM SIGN PI TIMES A 12281 CUNEIFORM SIGN PI TIMES AB 12282 CUNEIFORM SIGN PI TIMES BI 12283 CUNEIFORM SIGN PI TIMES BU 12284 CUNEIFORM SIGN PI TIMES E 12285 CUNEIFORM SIGN PI TIMES I 12286 CUNEIFORM SIGN PI TIMES IB 12287 CUNEIFORM SIGN PI TIMES U 12288 CUNEIFORM SIGN PI TIMES U2 12289 CUNEIFORM SIGN PI CROSSING PI 1228A CUNEIFORM SIGN PIRIG 1228B CUNEIFORM SIGN PIRIG TIMES KAL 1228C CUNEIFORM SIGN PIRIG TIMES UD 1228D CUNEIFORM SIGN PIRIG TIMES ZA 1228E CUNEIFORM SIGN PIRIG OPPOSING PIRIG 1228F CUNEIFORM SIGN RA 12290 CUNEIFORM SIGN RAB 12291 CUNEIFORM SIGN RI 12292 CUNEIFORM SIGN RU 12293 CUNEIFORM SIGN SA 12294 CUNEIFORM SIGN SAG NUTILLU 12295 CUNEIFORM SIGN SAG 12296 CUNEIFORM SIGN SAG TIMES A 12297 CUNEIFORM SIGN SAG TIMES DU 12298 CUNEIFORM SIGN SAG TIMES DUB 12299 CUNEIFORM SIGN SAG TIMES HA 1229A CUNEIFORM SIGN SAG TIMES KAK 1229B CUNEIFORM SIGN SAG TIMES KUR 1229C CUNEIFORM SIGN SAG TIMES LUM 1229D CUNEIFORM SIGN SAG TIMES MI 1229E CUNEIFORM SIGN SAG TIMES NUN 1229F CUNEIFORM SIGN SAG TIMES SAL 122A0 CUNEIFORM SIGN SAG TIMES SHID 122A1 CUNEIFORM SIGN SAG TIMES TAB 122A2 CUNEIFORM SIGN SAG TIMES U2 122A3 CUNEIFORM SIGN SAG TIMES UB 122A4 CUNEIFORM SIGN SAG TIMES UM 122A5 CUNEIFORM SIGN SAG TIMES UR 122A6 CUNEIFORM SIGN SAG TIMES USH 122A7 CUNEIFORM SIGN SAG OVER SAG 122A8 CUNEIFORM SIGN SAG GUNU 122A9 CUNEIFORM SIGN SAL 122AA CUNEIFORM SIGN SAL LAGAB TIMES ASH2 122AB CUNEIFORM SIGN SANGA2 122AC CUNEIFORM SIGN SAR 122AD CUNEIFORM SIGN SHA 122AE CUNEIFORM SIGN SHA3 122AF CUNEIFORM SIGN SHA3 TIMES A 122B0 CUNEIFORM SIGN SHA3 TIMES BAD 122B1 CUNEIFORM SIGN SHA3 TIMES GISH 122B2 CUNEIFORM SIGN SHA3 TIMES NE 122B3 CUNEIFORM SIGN SHA3 TIMES SHU2 122B4 CUNEIFORM SIGN SHA3 TIMES TUR 122B5 CUNEIFORM SIGN SHA3 TIMES U 122B6 CUNEIFORM SIGN SHA3 TIMES U PLUS A 122B7 CUNEIFORM SIGN SHA6 122B8 CUNEIFORM SIGN SHAB6 122B9 CUNEIFORM SIGN SHAR2 122BA CUNEIFORM SIGN SHE 122BB CUNEIFORM SIGN SHE HU 122BC CUNEIFORM SIGN SHE OVER SHE GAD OVER GAD GAR OVER GAR 122BD CUNEIFORM SIGN SHE OVER SHE TAB OVER TAB GAR OVER GAR 122BE CUNEIFORM SIGN SHEG9 122BF CUNEIFORM SIGN SHEN 122C0 CUNEIFORM SIGN SHESH 122C1 CUNEIFORM SIGN SHESH2 122C2 CUNEIFORM SIGN SHESHLAM 122C3 CUNEIFORM SIGN SHID 122C4 CUNEIFORM SIGN SHID TIMES A 122C5 CUNEIFORM SIGN SHID TIMES IM 122C6 CUNEIFORM SIGN SHIM 122C7 CUNEIFORM SIGN SHIM TIMES A 122C8 CUNEIFORM SIGN SHIM TIMES BAL 122C9 CUNEIFORM SIGN SHIM TIMES BULUG 122CA CUNEIFORM SIGN SHIM TIMES DIN 122CB CUNEIFORM SIGN SHIM TIMES GAR 122CC CUNEIFORM SIGN SHIM TIMES IGI 122CD CUNEIFORM SIGN SHIM TIMES IGI GUNU 122CE CUNEIFORM SIGN SHIM TIMES KUSHU2 122CF CUNEIFORM SIGN SHIM TIMES LUL 122D0 CUNEIFORM SIGN SHIM TIMES MUG 122D1 CUNEIFORM SIGN SHIM TIMES SAL 122D2 CUNEIFORM SIGN SHINIG 122D3 CUNEIFORM SIGN SHIR 122D4 CUNEIFORM SIGN NU11 TENU 122D4 CUNEIFORM SIGN SHIR TENU 122D5 CUNEIFORM SIGN NU11 OVER NU11 BUR OVER BUR 122D5 CUNEIFORM SIGN SHIR OVER SHIR BUR OVER BUR 122D6 CUNEIFORM SIGN SHITA 122D7 CUNEIFORM SIGN SHU 122D8 CUNEIFORM SIGN SHU OVER INVERTED SHU 122D9 CUNEIFORM SIGN SHU2 122DA CUNEIFORM SIGN SHUBUR 122DB CUNEIFORM SIGN SI 122DC CUNEIFORM SIGN SI GUNU 122DD CUNEIFORM SIGN SIG 122DE CUNEIFORM SIGN SIG4 122DF CUNEIFORM SIGN SIG4 OVER SIG4 SHU2 122E0 CUNEIFORM SIGN SIK2 122E1 CUNEIFORM SIGN SILA3 122E2 CUNEIFORM SIGN SU 122E3 CUNEIFORM SIGN SU OVER SU 122E4 CUNEIFORM SIGN SUD 122E5 CUNEIFORM SIGN SUD2 122E6 CUNEIFORM SIGN SUHUR 122E7 CUNEIFORM SIGN SUM 122E8 CUNEIFORM SIGN SUMASH 122E9 CUNEIFORM SIGN SUR 122EA CUNEIFORM SIGN SUR9 122EB CUNEIFORM SIGN TA 122EC CUNEIFORM SIGN TA ASTERISK 122ED CUNEIFORM SIGN TA TIMES HI 122EE CUNEIFORM SIGN TA TIMES MI 122EF CUNEIFORM SIGN TA GUNU 122F0 CUNEIFORM SIGN TAB 122F1 CUNEIFORM SIGN TAB OVER TAB NI OVER NI DISH OVER DISH 122F2 CUNEIFORM SIGN TAB SQUARED 122F3 CUNEIFORM SIGN TAG 122F4 CUNEIFORM SIGN TAG TIMES BI 122F5 CUNEIFORM SIGN TAG TIMES GUD 122F6 CUNEIFORM SIGN TAG TIMES SHE 122F7 CUNEIFORM SIGN TAG TIMES SHU 122F8 CUNEIFORM SIGN TAG TIMES TUG2 122F9 CUNEIFORM SIGN TAG TIMES UD 122FA CUNEIFORM SIGN TAK4 122FB CUNEIFORM SIGN TAR 122FC CUNEIFORM SIGN TE 122FD CUNEIFORM SIGN TE GUNU 122FE CUNEIFORM SIGN TI 122FF CUNEIFORM SIGN TI TENU 12300 CUNEIFORM SIGN TIL 12301 CUNEIFORM SIGN TIR 12302 CUNEIFORM SIGN TIR TIMES TAK4 12303 CUNEIFORM SIGN TIR OVER TIR 12304 CUNEIFORM SIGN TIR OVER TIR GAD OVER GAD GAR OVER GAR 12305 CUNEIFORM SIGN TU 12306 CUNEIFORM SIGN TUG2 12307 CUNEIFORM SIGN TUK 12308 CUNEIFORM SIGN TUM 12309 CUNEIFORM SIGN TUR 1230A CUNEIFORM SIGN TUR OVER TUR ZA OVER ZA 1230B CUNEIFORM SIGN U 1230C CUNEIFORM SIGN U GUD 1230D CUNEIFORM SIGN U U U 1230E CUNEIFORM SIGN U OVER U PA OVER PA GAR OVER GAR 1230F CUNEIFORM SIGN U OVER U SUR OVER SUR 12310 CUNEIFORM SIGN U OVER U U REVERSED OVER U REVERSED 12311 CUNEIFORM SIGN U2 12312 CUNEIFORM SIGN UB 12313 CUNEIFORM SIGN UD 12314 CUNEIFORM SIGN UD KUSHU2 12315 CUNEIFORM SIGN UD TIMES BAD 12316 CUNEIFORM SIGN UD TIMES MI 12317 CUNEIFORM SIGN UD TIMES U PLUS U PLUS U 12318 CUNEIFORM SIGN UD TIMES U PLUS U PLUS U GUNU 12319 CUNEIFORM SIGN UD GUNU 1231A CUNEIFORM SIGN UD SHESHIG 1231B CUNEIFORM SIGN UD SHESHIG TIMES BAD 1231C CUNEIFORM SIGN UDUG 1231D CUNEIFORM SIGN UM 1231E CUNEIFORM SIGN UM TIMES LAGAB 1231F CUNEIFORM SIGN UM TIMES ME PLUS DA 12320 CUNEIFORM SIGN UM TIMES SHA3 12321 CUNEIFORM SIGN UM TIMES U 12322 CUNEIFORM SIGN UMBIN 12323 CUNEIFORM SIGN UMUM 12324 CUNEIFORM SIGN UMUM TIMES KASKAL 12325 CUNEIFORM SIGN UMUM TIMES PA 12326 CUNEIFORM SIGN UN 12327 CUNEIFORM SIGN UN GUNU 12328 CUNEIFORM SIGN UR 12329 CUNEIFORM SIGN UR CROSSING UR 1232A CUNEIFORM SIGN UR SHESHIG 1232B CUNEIFORM SIGN UR2 1232C CUNEIFORM SIGN UR2 TIMES A PLUS HA 1232D CUNEIFORM SIGN UR2 TIMES A PLUS NA 1232E CUNEIFORM SIGN UR2 TIMES AL 1232F CUNEIFORM SIGN UR2 TIMES HA 12330 CUNEIFORM SIGN UR2 TIMES NUN 12331 CUNEIFORM SIGN UR2 TIMES U2 12332 CUNEIFORM SIGN UR2 TIMES U2 PLUS ASH 12333 CUNEIFORM SIGN UR2 TIMES U2 PLUS BI 12334 CUNEIFORM SIGN UR4 12335 CUNEIFORM SIGN URI 12336 CUNEIFORM SIGN URI3 12337 CUNEIFORM SIGN URU 12338 CUNEIFORM SIGN URU TIMES A 12339 CUNEIFORM SIGN URU TIMES ASHGAB 1233A CUNEIFORM SIGN URU TIMES BAR 1233B CUNEIFORM SIGN URU TIMES DUN 1233C CUNEIFORM SIGN URU TIMES GA 1233D CUNEIFORM SIGN URU TIMES GAL 1233E CUNEIFORM SIGN URU TIMES GAN2 TENU 1233F CUNEIFORM SIGN URU TIMES GAR 12340 CUNEIFORM SIGN URU TIMES GU 12341 CUNEIFORM SIGN URU TIMES HA 12342 CUNEIFORM SIGN URU TIMES IGI 12343 CUNEIFORM SIGN URU TIMES IM 12344 CUNEIFORM SIGN URU TIMES ISH 12345 CUNEIFORM SIGN URU TIMES KI 12346 CUNEIFORM SIGN URU TIMES LUM 12347 CUNEIFORM SIGN URU TIMES MIN 12348 CUNEIFORM SIGN URU TIMES PA 12349 CUNEIFORM SIGN URU TIMES SHE 1234A CUNEIFORM SIGN URU TIMES SIG4 1234B CUNEIFORM SIGN URU TIMES TU 1234C CUNEIFORM SIGN URU TIMES U PLUS GUD 1234D CUNEIFORM SIGN URU TIMES UD 1234E CUNEIFORM SIGN URU TIMES URUDA 1234F CUNEIFORM SIGN URUDA 12350 CUNEIFORM SIGN URUDA TIMES U 12351 CUNEIFORM SIGN USH 12352 CUNEIFORM SIGN USH TIMES A 12353 CUNEIFORM SIGN USH TIMES KU 12354 CUNEIFORM SIGN USH TIMES KUR 12355 CUNEIFORM SIGN USH TIMES TAK4 12356 CUNEIFORM SIGN USHX 12357 CUNEIFORM SIGN USH2 12358 CUNEIFORM SIGN USHUMX 12359 CUNEIFORM SIGN UTUKI 1235A CUNEIFORM SIGN UZ3 1235B CUNEIFORM SIGN UZ3 TIMES KASKAL 1235C CUNEIFORM SIGN UZU 1235D CUNEIFORM SIGN ZA 1235E CUNEIFORM SIGN ZA TENU 1235F CUNEIFORM SIGN ZA SQUARED TIMES KUR 12360 CUNEIFORM SIGN ZAG 12361 CUNEIFORM SIGN ZAMX 12362 CUNEIFORM SIGN ZE2 12363 CUNEIFORM SIGN ZI 12364 CUNEIFORM SIGN ZI OVER ZI 12365 CUNEIFORM SIGN ZI3 12366 CUNEIFORM SIGN ZIB 12367 CUNEIFORM SIGN ZIB KABA TENU 12368 CUNEIFORM SIGN ZIG 12369 CUNEIFORM SIGN ZIZ2 1236A CUNEIFORM SIGN ZU 1236B CUNEIFORM SIGN ZU5 1236C CUNEIFORM SIGN ZU5 TIMES A 1236D CUNEIFORM SIGN ZUBUR 1236E CUNEIFORM SIGN ZUM 1236F CUNEIFORM SIGN KAP ELAMITE 12370 CUNEIFORM SIGN AB TIMES NUN 12371 CUNEIFORM SIGN AB2 TIMES A 12372 CUNEIFORM SIGN AMAR TIMES KUG 12373 CUNEIFORM SIGN DAG KISIM5 TIMES U2 PLUS MASH 12374 CUNEIFORM SIGN DAG3 12375 CUNEIFORM SIGN DISH PLUS SHU 12376 CUNEIFORM SIGN DUB TIMES SHE 12377 CUNEIFORM SIGN EZEN TIMES GUD 12378 CUNEIFORM SIGN EZEN TIMES SHE 12379 CUNEIFORM SIGN GA2 TIMES AN PLUS KAK PLUS A 1237A CUNEIFORM SIGN GA2 TIMES ASH2 1237B CUNEIFORM SIGN GE22 1237C CUNEIFORM SIGN GIG 1237D CUNEIFORM SIGN HUSH 1237E CUNEIFORM SIGN KA TIMES ANSHE 1237F CUNEIFORM SIGN KA TIMES ASH3 12380 CUNEIFORM SIGN KA TIMES GISH 12381 CUNEIFORM SIGN KA TIMES GUD 12382 CUNEIFORM SIGN KA TIMES HI TIMES ASH2 12383 CUNEIFORM SIGN KA TIMES LUM 12384 CUNEIFORM SIGN KA TIMES PA 12385 CUNEIFORM SIGN KA TIMES SHUL 12386 CUNEIFORM SIGN KA TIMES TU 12387 CUNEIFORM SIGN KA TIMES UR2 12388 CUNEIFORM SIGN LAGAB TIMES GI 12389 CUNEIFORM SIGN LU2 SHESHIG TIMES BAD 1238A CUNEIFORM SIGN LU2 TIMES ESH2 PLUS LAL 1238B CUNEIFORM SIGN LU2 TIMES SHU 1238C CUNEIFORM SIGN MESH 1238D CUNEIFORM SIGN MUSH3 TIMES ZA 1238E CUNEIFORM SIGN NA4 1238F CUNEIFORM SIGN NIN 12390 CUNEIFORM SIGN NIN9 12391 CUNEIFORM SIGN NINDA2 TIMES BAL 12392 CUNEIFORM SIGN NINDA2 TIMES GI 12393 CUNEIFORM SIGN NU11 ROTATED NINETY DEGREES 12394 CUNEIFORM SIGN PESH2 ASTERISK 12395 CUNEIFORM SIGN PIR2 12396 CUNEIFORM SIGN SAG TIMES IGI GUNU 12397 CUNEIFORM SIGN TI2 12398 CUNEIFORM SIGN UM TIMES ME 12399 CUNEIFORM SIGN U U 12400 CUNEIFORM NUMERIC SIGN TWO ASH 12401 CUNEIFORM NUMERIC SIGN THREE ASH 12402 CUNEIFORM NUMERIC SIGN FOUR ASH 12403 CUNEIFORM NUMERIC SIGN FIVE ASH 12404 CUNEIFORM NUMERIC SIGN SIX ASH 12405 CUNEIFORM NUMERIC SIGN SEVEN ASH 12406 CUNEIFORM NUMERIC SIGN EIGHT ASH 12407 CUNEIFORM NUMERIC SIGN NINE ASH 12408 CUNEIFORM NUMERIC SIGN THREE DISH 12409 CUNEIFORM NUMERIC SIGN FOUR DISH 1240A CUNEIFORM NUMERIC SIGN FIVE DISH 1240B CUNEIFORM NUMERIC SIGN SIX DISH 1240C CUNEIFORM NUMERIC SIGN SEVEN DISH 1240D CUNEIFORM NUMERIC SIGN EIGHT DISH 1240E CUNEIFORM NUMERIC SIGN NINE DISH 1240F CUNEIFORM NUMERIC SIGN FOUR U 12410 CUNEIFORM NUMERIC SIGN FIVE U 12411 CUNEIFORM NUMERIC SIGN SIX U 12412 CUNEIFORM NUMERIC SIGN SEVEN U 12413 CUNEIFORM NUMERIC SIGN EIGHT U 12414 CUNEIFORM NUMERIC SIGN NINE U 12415 CUNEIFORM NUMERIC SIGN ONE GESH2 12416 CUNEIFORM NUMERIC SIGN TWO GESH2 12417 CUNEIFORM NUMERIC SIGN THREE GESH2 12418 CUNEIFORM NUMERIC SIGN FOUR GESH2 12419 CUNEIFORM NUMERIC SIGN FIVE GESH2 1241A CUNEIFORM NUMERIC SIGN SIX GESH2 1241B CUNEIFORM NUMERIC SIGN SEVEN GESH2 1241C CUNEIFORM NUMERIC SIGN EIGHT GESH2 1241D CUNEIFORM NUMERIC SIGN NINE GESH2 1241E CUNEIFORM NUMERIC SIGN ONE GESHU 1241F CUNEIFORM NUMERIC SIGN TWO GESHU 12420 CUNEIFORM NUMERIC SIGN THREE GESHU 12421 CUNEIFORM NUMERIC SIGN FOUR GESHU 12422 CUNEIFORM NUMERIC SIGN FIVE GESHU 12423 CUNEIFORM NUMERIC SIGN TWO SHAR2 12424 CUNEIFORM NUMERIC SIGN THREE SHAR2 12425 CUNEIFORM NUMERIC SIGN THREE SHAR2 VARIANT FORM 12426 CUNEIFORM NUMERIC SIGN FOUR SHAR2 12427 CUNEIFORM NUMERIC SIGN FIVE SHAR2 12428 CUNEIFORM NUMERIC SIGN SIX SHAR2 12429 CUNEIFORM NUMERIC SIGN SEVEN SHAR2 1242A CUNEIFORM NUMERIC SIGN EIGHT SHAR2 1242B CUNEIFORM NUMERIC SIGN NINE SHAR2 1242C CUNEIFORM NUMERIC SIGN ONE SHARU 1242D CUNEIFORM NUMERIC SIGN TWO SHARU 1242E CUNEIFORM NUMERIC SIGN THREE SHARU 1242F CUNEIFORM NUMERIC SIGN THREE SHARU VARIANT FORM 12430 CUNEIFORM NUMERIC SIGN FOUR SHARU 12431 CUNEIFORM NUMERIC SIGN FIVE SHARU 12432 CUNEIFORM NUMERIC SIGN SHAR2 TIMES GAL PLUS DISH 12433 CUNEIFORM NUMERIC SIGN SHAR2 TIMES GAL PLUS MIN 12434 CUNEIFORM NUMERIC SIGN ONE BURU 12435 CUNEIFORM NUMERIC SIGN TWO BURU 12436 CUNEIFORM NUMERIC SIGN THREE BURU 12437 CUNEIFORM NUMERIC SIGN THREE BURU VARIANT FORM 12438 CUNEIFORM NUMERIC SIGN FOUR BURU 12439 CUNEIFORM NUMERIC SIGN FIVE BURU 1243A CUNEIFORM NUMERIC SIGN THREE VARIANT FORM ESH16 1243B CUNEIFORM NUMERIC SIGN THREE VARIANT FORM ESH21 1243C CUNEIFORM NUMERIC SIGN FOUR VARIANT FORM LIMMU 1243D CUNEIFORM NUMERIC SIGN FOUR VARIANT FORM LIMMU4 1243E CUNEIFORM NUMERIC SIGN FOUR VARIANT FORM LIMMU A 1243F CUNEIFORM NUMERIC SIGN FOUR VARIANT FORM LIMMU B 12440 CUNEIFORM NUMERIC SIGN SIX VARIANT FORM ASH9 12441 CUNEIFORM NUMERIC SIGN SEVEN VARIANT FORM IMIN3 12442 CUNEIFORM NUMERIC SIGN SEVEN VARIANT FORM IMIN A 12443 CUNEIFORM NUMERIC SIGN SEVEN VARIANT FORM IMIN B 12444 CUNEIFORM NUMERIC SIGN EIGHT VARIANT FORM USSU 12445 CUNEIFORM NUMERIC SIGN EIGHT VARIANT FORM USSU3 12446 CUNEIFORM NUMERIC SIGN NINE VARIANT FORM ILIMMU 12447 CUNEIFORM NUMERIC SIGN NINE VARIANT FORM ILIMMU3 12448 CUNEIFORM NUMERIC SIGN NINE VARIANT FORM ILIMMU4 12449 CUNEIFORM NUMERIC SIGN NINE VARIANT FORM ILIMMU A 1244A CUNEIFORM NUMERIC SIGN TWO ASH TENU 1244B CUNEIFORM NUMERIC SIGN THREE ASH TENU 1244C CUNEIFORM NUMERIC SIGN FOUR ASH TENU 1244D CUNEIFORM NUMERIC SIGN FIVE ASH TENU 1244E CUNEIFORM NUMERIC SIGN SIX ASH TENU 1244F CUNEIFORM NUMERIC SIGN ONE BAN2 12450 CUNEIFORM NUMERIC SIGN TWO BAN2 12451 CUNEIFORM NUMERIC SIGN THREE BAN2 12452 CUNEIFORM NUMERIC SIGN FOUR BAN2 12453 CUNEIFORM NUMERIC SIGN FOUR BAN2 VARIANT FORM 12454 CUNEIFORM NUMERIC SIGN FIVE BAN2 12455 CUNEIFORM NUMERIC SIGN FIVE BAN2 VARIANT FORM 12456 CUNEIFORM NUMERIC SIGN NIGIDAMIN 12457 CUNEIFORM NUMERIC SIGN NIGIDAESH 12458 CUNEIFORM NUMERIC SIGN ONE ESHE3 12459 CUNEIFORM NUMERIC SIGN TWO ESHE3 1245A CUNEIFORM NUMERIC SIGN ONE THIRD DISH 1245B CUNEIFORM NUMERIC SIGN TWO THIRDS DISH 1245C CUNEIFORM NUMERIC SIGN FIVE SIXTHS DISH 1245D CUNEIFORM NUMERIC SIGN ONE THIRD VARIANT FORM A 1245E CUNEIFORM NUMERIC SIGN TWO THIRDS VARIANT FORM A 1245F CUNEIFORM NUMERIC SIGN ONE EIGHTH ASH 12460 CUNEIFORM NUMERIC SIGN ONE QUARTER ASH 12461 CUNEIFORM NUMERIC SIGN OLD ASSYRIAN ONE SIXTH 12462 CUNEIFORM NUMERIC SIGN OLD ASSYRIAN ONE QUARTER 12463 CUNEIFORM NUMERIC SIGN ONE QUARTER GUR 12464 CUNEIFORM NUMERIC SIGN ONE HALF GUR 12465 CUNEIFORM NUMERIC SIGN ELAMITE ONE THIRD 12466 CUNEIFORM NUMERIC SIGN ELAMITE TWO THIRDS 12467 CUNEIFORM NUMERIC SIGN ELAMITE FORTY 12468 CUNEIFORM NUMERIC SIGN ELAMITE FIFTY 12469 CUNEIFORM NUMERIC SIGN FOUR U VARIANT FORM 1246A CUNEIFORM NUMERIC SIGN FIVE U VARIANT FORM 1246B CUNEIFORM NUMERIC SIGN SIX U VARIANT FORM 1246C CUNEIFORM NUMERIC SIGN SEVEN U VARIANT FORM 1246D CUNEIFORM NUMERIC SIGN EIGHT U VARIANT FORM 1246E CUNEIFORM NUMERIC SIGN NINE U VARIANT FORM 12470 CUNEIFORM PUNCTUATION SIGN OLD ASSYRIAN WORD DIVIDER 12471 CUNEIFORM PUNCTUATION SIGN VERTICAL COLON 12472 CUNEIFORM PUNCTUATION SIGN DIAGONAL COLON 12473 CUNEIFORM PUNCTUATION SIGN DIAGONAL TRICOLON 12474 CUNEIFORM PUNCTUATION SIGN DIAGONAL QUADCOLON 12480 CUNEIFORM SIGN AB TIMES NUN TENU 12481 CUNEIFORM SIGN AB TIMES SHU2 12482 CUNEIFORM SIGN AD TIMES ESH2 12483 CUNEIFORM SIGN BAD TIMES DISH TENU 12484 CUNEIFORM SIGN BAHAR2 TIMES AB2 12485 CUNEIFORM SIGN BAHAR2 TIMES NI 12486 CUNEIFORM SIGN BAHAR2 TIMES ZA 12487 CUNEIFORM SIGN BU OVER BU TIMES NA2 12488 CUNEIFORM SIGN DA TIMES TAK4 12489 CUNEIFORM SIGN DAG TIMES KUR 1248A CUNEIFORM SIGN DIM TIMES IGI 1248B CUNEIFORM SIGN DIM TIMES U U U 1248C CUNEIFORM SIGN DIM2 TIMES UD 1248D CUNEIFORM SIGN DUG TIMES ANSHE 1248E CUNEIFORM SIGN DUG TIMES ASH 1248F CUNEIFORM SIGN DUG TIMES ASH AT LEFT 12490 CUNEIFORM SIGN DUG TIMES DIN 12491 CUNEIFORM SIGN DUG TIMES DUN 12492 CUNEIFORM SIGN DUG TIMES ERIN2 12493 CUNEIFORM SIGN DUG TIMES GA 12494 CUNEIFORM SIGN DUG TIMES GI 12495 CUNEIFORM SIGN DUG TIMES GIR2 GUNU 12496 CUNEIFORM SIGN DUG TIMES GISH 12497 CUNEIFORM SIGN DUG TIMES HA 12498 CUNEIFORM SIGN DUG TIMES HI 12499 CUNEIFORM SIGN DUG TIMES IGI GUNU 1249A CUNEIFORM SIGN DUG TIMES KASKAL 1249B CUNEIFORM SIGN DUG TIMES KUR 1249C CUNEIFORM SIGN DUG TIMES KUSHU2 1249D CUNEIFORM SIGN DUG TIMES KUSHU2 PLUS KASKAL 1249E CUNEIFORM SIGN DUG TIMES LAK-020 1249F CUNEIFORM SIGN DUG TIMES LAM 124A0 CUNEIFORM SIGN DUG TIMES LAM TIMES KUR 124A1 CUNEIFORM SIGN DUG TIMES LUH PLUS GISH 124A2 CUNEIFORM SIGN DUG TIMES MASH 124A3 CUNEIFORM SIGN DUG TIMES MES 124A4 CUNEIFORM SIGN DUG TIMES MI 124A5 CUNEIFORM SIGN DUG TIMES NI 124A6 CUNEIFORM SIGN DUG TIMES PI 124A7 CUNEIFORM SIGN DUG TIMES SHE 124A8 CUNEIFORM SIGN DUG TIMES SI GUNU 124A9 CUNEIFORM SIGN E2 TIMES KUR 124AA CUNEIFORM SIGN E2 TIMES PAP 124AB CUNEIFORM SIGN ERIN2 X 124AC CUNEIFORM SIGN ESH2 CROSSING ESH2 124AD CUNEIFORM SIGN EZEN SHESHIG TIMES ASH 124AE CUNEIFORM SIGN EZEN SHESHIG TIMES HI 124AF CUNEIFORM SIGN EZEN SHESHIG TIMES IGI GUNU 124B0 CUNEIFORM SIGN EZEN SHESHIG TIMES LA 124B1 CUNEIFORM SIGN EZEN SHESHIG TIMES LAL 124B2 CUNEIFORM SIGN EZEN SHESHIG TIMES ME 124B3 CUNEIFORM SIGN EZEN SHESHIG TIMES MES 124B4 CUNEIFORM SIGN EZEN SHESHIG TIMES SU 124B5 CUNEIFORM SIGN EZEN TIMES SU 124B6 CUNEIFORM SIGN GA2 TIMES BAHAR2 124B7 CUNEIFORM SIGN GA2 TIMES DIM GUNU 124B8 CUNEIFORM SIGN GA2 TIMES DUG TIMES IGI GUNU 124B9 CUNEIFORM SIGN GA2 TIMES DUG TIMES KASKAL 124BA CUNEIFORM SIGN GA2 TIMES EREN 124BB CUNEIFORM SIGN GA2 TIMES GA 124BC CUNEIFORM SIGN GA2 TIMES GAR PLUS DI 124BD CUNEIFORM SIGN GA2 TIMES GAR PLUS NE 124BE CUNEIFORM SIGN GA2 TIMES HA PLUS A 124BF CUNEIFORM SIGN GA2 TIMES KUSHU2 PLUS KASKAL 124C0 CUNEIFORM SIGN GA2 TIMES LAM 124C1 CUNEIFORM SIGN GA2 TIMES LAM TIMES KUR 124C2 CUNEIFORM SIGN GA2 TIMES LUH 124C3 CUNEIFORM SIGN GA2 TIMES MUSH 124C4 CUNEIFORM SIGN GA2 TIMES NE 124C5 CUNEIFORM SIGN GA2 TIMES NE PLUS E2 124C6 CUNEIFORM SIGN GA2 TIMES NE PLUS GI 124C7 CUNEIFORM SIGN GA2 TIMES SHIM 124C8 CUNEIFORM SIGN GA2 TIMES ZIZ2 124C9 CUNEIFORM SIGN GABA ROTATED NINETY DEGREES 124CA CUNEIFORM SIGN GESHTIN TIMES U 124CB CUNEIFORM SIGN GISH TIMES GISH CROSSING GISH 124CC CUNEIFORM SIGN GU2 TIMES IGI GUNU 124CD CUNEIFORM SIGN GUD PLUS GISH TIMES TAK4 124CE CUNEIFORM SIGN HA TENU GUNU 124CF CUNEIFORM SIGN HI TIMES ASH OVER HI TIMES ASH 124D0 CUNEIFORM SIGN KA TIMES BU 124D1 CUNEIFORM SIGN KA TIMES KA 124D2 CUNEIFORM SIGN KA TIMES U U U 124D3 CUNEIFORM SIGN KA TIMES UR 124D4 CUNEIFORM SIGN LAGAB TIMES ZU OVER ZU 124D5 CUNEIFORM SIGN LAK-003 124D6 CUNEIFORM SIGN LAK-021 124D7 CUNEIFORM SIGN LAK-025 124D8 CUNEIFORM SIGN LAK-030 124D9 CUNEIFORM SIGN LAK-050 124DA CUNEIFORM SIGN LAK-051 124DB CUNEIFORM SIGN LAK-062 124DC CUNEIFORM SIGN LAK-079 OVER LAK-079 GUNU 124DD CUNEIFORM SIGN LAK-080 124DE CUNEIFORM SIGN LAK-081 OVER LAK-081 124DF CUNEIFORM SIGN LAK-092 124E0 CUNEIFORM SIGN LAK-130 124E1 CUNEIFORM SIGN LAK-142 124E2 CUNEIFORM SIGN LAK-210 124E3 CUNEIFORM SIGN LAK-219 124E4 CUNEIFORM SIGN LAK-220 124E5 CUNEIFORM SIGN LAK-225 124E6 CUNEIFORM SIGN LAK-228 124E7 CUNEIFORM SIGN LAK-238 124E8 CUNEIFORM SIGN LAK-265 124E9 CUNEIFORM SIGN LAK-266 124EA CUNEIFORM SIGN LAK-343 124EB CUNEIFORM SIGN LAK-347 124EC CUNEIFORM SIGN LAK-348 124ED CUNEIFORM SIGN LAK-383 124EE CUNEIFORM SIGN LAK-384 124EF CUNEIFORM SIGN LAK-390 124F0 CUNEIFORM SIGN LAK-441 124F1 CUNEIFORM SIGN LAK-449 124F2 CUNEIFORM SIGN LAK-449 TIMES GU 124F3 CUNEIFORM SIGN LAK-449 TIMES IGI 124F4 CUNEIFORM SIGN LAK-449 TIMES PAP PLUS LU3 124F5 CUNEIFORM SIGN LAK-449 TIMES PAP PLUS PAP PLUS LU3 124F6 CUNEIFORM SIGN LAK-449 TIMES U2 PLUS BA 124F7 CUNEIFORM SIGN LAK-450 124F8 CUNEIFORM SIGN LAK-457 124F9 CUNEIFORM SIGN LAK-470 124FA CUNEIFORM SIGN LAK-483 124FB CUNEIFORM SIGN LAK-490 124FC CUNEIFORM SIGN LAK-492 124FD CUNEIFORM SIGN LAK-493 124FE CUNEIFORM SIGN LAK-495 124FF CUNEIFORM SIGN LAK-550 12500 CUNEIFORM SIGN LAK-608 12501 CUNEIFORM SIGN LAK-617 12502 CUNEIFORM SIGN LAK-617 TIMES ASH 12503 CUNEIFORM SIGN LAK-617 TIMES BAD 12504 CUNEIFORM SIGN LAK-617 TIMES DUN3 GUNU GUNU 12505 CUNEIFORM SIGN LAK-617 TIMES KU3 12506 CUNEIFORM SIGN LAK-617 TIMES LA 12507 CUNEIFORM SIGN LAK-617 TIMES TAR 12508 CUNEIFORM SIGN LAK-617 TIMES TE 12509 CUNEIFORM SIGN LAK-617 TIMES U2 1250A CUNEIFORM SIGN LAK-617 TIMES UD 1250B CUNEIFORM SIGN LAK-617 TIMES URUDA 1250C CUNEIFORM SIGN LAK-636 1250D CUNEIFORM SIGN LAK-648 1250E CUNEIFORM SIGN LAK-648 TIMES DUB 1250F CUNEIFORM SIGN LAK-648 TIMES GA 12510 CUNEIFORM SIGN LAK-648 TIMES IGI 12511 CUNEIFORM SIGN LAK-648 TIMES IGI GUNU 12512 CUNEIFORM SIGN LAK-648 TIMES NI 12513 CUNEIFORM SIGN LAK-648 TIMES PAP PLUS PAP PLUS LU3 12514 CUNEIFORM SIGN LAK-648 TIMES SHESH PLUS KI 12515 CUNEIFORM SIGN LAK-648 TIMES UD 12516 CUNEIFORM SIGN LAK-648 TIMES URUDA 12517 CUNEIFORM SIGN LAK-724 12518 CUNEIFORM SIGN LAK-749 12519 CUNEIFORM SIGN LU2 GUNU TIMES ASH 1251A CUNEIFORM SIGN LU2 TIMES DISH 1251B CUNEIFORM SIGN LU2 TIMES HAL 1251C CUNEIFORM SIGN LU2 TIMES PAP 1251D CUNEIFORM SIGN LU2 TIMES PAP PLUS PAP PLUS LU3 1251E CUNEIFORM SIGN LU2 TIMES TAK4 1251F CUNEIFORM SIGN MI PLUS ZA7 12520 CUNEIFORM SIGN MUSH OVER MUSH TIMES GA 12521 CUNEIFORM SIGN MUSH OVER MUSH TIMES KAK 12522 CUNEIFORM SIGN NINDA2 TIMES DIM GUNU 12523 CUNEIFORM SIGN NINDA2 TIMES GISH 12524 CUNEIFORM SIGN NINDA2 TIMES GUL 12525 CUNEIFORM SIGN NINDA2 TIMES HI 12526 CUNEIFORM SIGN NINDA2 TIMES KESH2 12527 CUNEIFORM SIGN NINDA2 TIMES LAK-050 12528 CUNEIFORM SIGN NINDA2 TIMES MASH 12529 CUNEIFORM SIGN NINDA2 TIMES PAP PLUS PAP 1252A CUNEIFORM SIGN NINDA2 TIMES U 1252B CUNEIFORM SIGN NINDA2 TIMES U PLUS U 1252C CUNEIFORM SIGN NINDA2 TIMES URUDA 1252D CUNEIFORM SIGN SAG GUNU TIMES HA 1252E CUNEIFORM SIGN SAG TIMES EN 1252F CUNEIFORM SIGN SAG TIMES SHE AT LEFT 12530 CUNEIFORM SIGN SAG TIMES TAK4 12531 CUNEIFORM SIGN SHA6 TENU 12532 CUNEIFORM SIGN SHE OVER SHE 12533 CUNEIFORM SIGN SHE PLUS HUB2 12534 CUNEIFORM SIGN SHE PLUS NAM2 12535 CUNEIFORM SIGN SHE PLUS SAR 12536 CUNEIFORM SIGN SHU2 PLUS DUG TIMES NI 12537 CUNEIFORM SIGN SHU2 PLUS E2 TIMES AN 12538 CUNEIFORM SIGN SI TIMES TAK4 12539 CUNEIFORM SIGN TAK4 PLUS SAG 1253A CUNEIFORM SIGN TUM TIMES GAN2 TENU 1253B CUNEIFORM SIGN TUM TIMES THREE DISH 1253C CUNEIFORM SIGN UR2 INVERTED 1253D CUNEIFORM SIGN UR2 TIMES UD 1253E CUNEIFORM SIGN URU TIMES DARA3 1253F CUNEIFORM SIGN URU TIMES LAK-668 12540 CUNEIFORM SIGN URU TIMES LU3 12541 CUNEIFORM SIGN ZA7 12542 CUNEIFORM SIGN ZU OVER ZU PLUS SAR 12543 CUNEIFORM SIGN ZU5 TIMES THREE DISH TENU 13000 EGYPTIAN HIEROGLYPH A001 13001 EGYPTIAN HIEROGLYPH A002 13002 EGYPTIAN HIEROGLYPH A003 13003 EGYPTIAN HIEROGLYPH A004 13004 EGYPTIAN HIEROGLYPH A005 13005 EGYPTIAN HIEROGLYPH A005A 13006 EGYPTIAN HIEROGLYPH A006 13007 EGYPTIAN HIEROGLYPH A006A 13008 EGYPTIAN HIEROGLYPH A006B 13009 EGYPTIAN HIEROGLYPH A007 1300A EGYPTIAN HIEROGLYPH A008 1300B EGYPTIAN HIEROGLYPH A009 1300C EGYPTIAN HIEROGLYPH A010 1300D EGYPTIAN HIEROGLYPH A011 1300E EGYPTIAN HIEROGLYPH A012 1300F EGYPTIAN HIEROGLYPH A013 13010 EGYPTIAN HIEROGLYPH A014 13011 EGYPTIAN HIEROGLYPH A014A 13012 EGYPTIAN HIEROGLYPH A015 13013 EGYPTIAN HIEROGLYPH A016 13014 EGYPTIAN HIEROGLYPH A017 13015 EGYPTIAN HIEROGLYPH A017A 13016 EGYPTIAN HIEROGLYPH A018 13017 EGYPTIAN HIEROGLYPH A019 13018 EGYPTIAN HIEROGLYPH A020 13019 EGYPTIAN HIEROGLYPH A021 1301A EGYPTIAN HIEROGLYPH A022 1301B EGYPTIAN HIEROGLYPH A023 1301C EGYPTIAN HIEROGLYPH A024 1301D EGYPTIAN HIEROGLYPH A025 1301E EGYPTIAN HIEROGLYPH A026 1301F EGYPTIAN HIEROGLYPH A027 13020 EGYPTIAN HIEROGLYPH A028 13021 EGYPTIAN HIEROGLYPH A029 13022 EGYPTIAN HIEROGLYPH A030 13023 EGYPTIAN HIEROGLYPH A031 13024 EGYPTIAN HIEROGLYPH A032 13025 EGYPTIAN HIEROGLYPH A032A 13026 EGYPTIAN HIEROGLYPH A033 13027 EGYPTIAN HIEROGLYPH A034 13028 EGYPTIAN HIEROGLYPH A035 13029 EGYPTIAN HIEROGLYPH A036 1302A EGYPTIAN HIEROGLYPH A037 1302B EGYPTIAN HIEROGLYPH A038 1302C EGYPTIAN HIEROGLYPH A039 1302D EGYPTIAN HIEROGLYPH A040 1302E EGYPTIAN HIEROGLYPH A040A 1302F EGYPTIAN HIEROGLYPH A041 13030 EGYPTIAN HIEROGLYPH A042 13031 EGYPTIAN HIEROGLYPH A042A 13032 EGYPTIAN HIEROGLYPH A043 13033 EGYPTIAN HIEROGLYPH A043A 13034 EGYPTIAN HIEROGLYPH A044 13035 EGYPTIAN HIEROGLYPH A045 13036 EGYPTIAN HIEROGLYPH A045A 13037 EGYPTIAN HIEROGLYPH A046 13038 EGYPTIAN HIEROGLYPH A047 13039 EGYPTIAN HIEROGLYPH A048 1303A EGYPTIAN HIEROGLYPH A049 1303B EGYPTIAN HIEROGLYPH A050 1303C EGYPTIAN HIEROGLYPH A051 1303D EGYPTIAN HIEROGLYPH A052 1303E EGYPTIAN HIEROGLYPH A053 1303F EGYPTIAN HIEROGLYPH A054 13040 EGYPTIAN HIEROGLYPH A055 13041 EGYPTIAN HIEROGLYPH A056 13042 EGYPTIAN HIEROGLYPH A057 13043 EGYPTIAN HIEROGLYPH A058 13044 EGYPTIAN HIEROGLYPH A059 13045 EGYPTIAN HIEROGLYPH A060 13046 EGYPTIAN HIEROGLYPH A061 13047 EGYPTIAN HIEROGLYPH A062 13048 EGYPTIAN HIEROGLYPH A063 13049 EGYPTIAN HIEROGLYPH A064 1304A EGYPTIAN HIEROGLYPH A065 1304B EGYPTIAN HIEROGLYPH A066 1304C EGYPTIAN HIEROGLYPH A067 1304D EGYPTIAN HIEROGLYPH A068 1304E EGYPTIAN HIEROGLYPH A069 1304F EGYPTIAN HIEROGLYPH A070 13050 EGYPTIAN HIEROGLYPH B001 13051 EGYPTIAN HIEROGLYPH B002 13052 EGYPTIAN HIEROGLYPH B003 13053 EGYPTIAN HIEROGLYPH B004 13054 EGYPTIAN HIEROGLYPH B005 13055 EGYPTIAN HIEROGLYPH B005A 13056 EGYPTIAN HIEROGLYPH B006 13057 EGYPTIAN HIEROGLYPH B007 13058 EGYPTIAN HIEROGLYPH B008 13059 EGYPTIAN HIEROGLYPH B009 1305A EGYPTIAN HIEROGLYPH C001 1305B EGYPTIAN HIEROGLYPH C002 1305C EGYPTIAN HIEROGLYPH C002A 1305D EGYPTIAN HIEROGLYPH C002B 1305E EGYPTIAN HIEROGLYPH C002C 1305F EGYPTIAN HIEROGLYPH C003 13060 EGYPTIAN HIEROGLYPH C004 13061 EGYPTIAN HIEROGLYPH C005 13062 EGYPTIAN HIEROGLYPH C006 13063 EGYPTIAN HIEROGLYPH C007 13064 EGYPTIAN HIEROGLYPH C008 13065 EGYPTIAN HIEROGLYPH C009 13066 EGYPTIAN HIEROGLYPH C010 13067 EGYPTIAN HIEROGLYPH C010A 13068 EGYPTIAN HIEROGLYPH C011 13069 EGYPTIAN HIEROGLYPH C012 1306A EGYPTIAN HIEROGLYPH C013 1306B EGYPTIAN HIEROGLYPH C014 1306C EGYPTIAN HIEROGLYPH C015 1306D EGYPTIAN HIEROGLYPH C016 1306E EGYPTIAN HIEROGLYPH C017 1306F EGYPTIAN HIEROGLYPH C018 13070 EGYPTIAN HIEROGLYPH C019 13071 EGYPTIAN HIEROGLYPH C020 13072 EGYPTIAN HIEROGLYPH C021 13073 EGYPTIAN HIEROGLYPH C022 13074 EGYPTIAN HIEROGLYPH C023 13075 EGYPTIAN HIEROGLYPH C024 13076 EGYPTIAN HIEROGLYPH D001 13077 EGYPTIAN HIEROGLYPH D002 13078 EGYPTIAN HIEROGLYPH D003 13079 EGYPTIAN HIEROGLYPH D004 1307A EGYPTIAN HIEROGLYPH D005 1307B EGYPTIAN HIEROGLYPH D006 1307C EGYPTIAN HIEROGLYPH D007 1307D EGYPTIAN HIEROGLYPH D008 1307E EGYPTIAN HIEROGLYPH D008A 1307F EGYPTIAN HIEROGLYPH D009 13080 EGYPTIAN HIEROGLYPH D010 13081 EGYPTIAN HIEROGLYPH D011 13082 EGYPTIAN HIEROGLYPH D012 13083 EGYPTIAN HIEROGLYPH D013 13084 EGYPTIAN HIEROGLYPH D014 13085 EGYPTIAN HIEROGLYPH D015 13086 EGYPTIAN HIEROGLYPH D016 13087 EGYPTIAN HIEROGLYPH D017 13088 EGYPTIAN HIEROGLYPH D018 13089 EGYPTIAN HIEROGLYPH D019 1308A EGYPTIAN HIEROGLYPH D020 1308B EGYPTIAN HIEROGLYPH D021 1308C EGYPTIAN HIEROGLYPH D022 1308D EGYPTIAN HIEROGLYPH D023 1308E EGYPTIAN HIEROGLYPH D024 1308F EGYPTIAN HIEROGLYPH D025 13090 EGYPTIAN HIEROGLYPH D026 13091 EGYPTIAN HIEROGLYPH D027 13092 EGYPTIAN HIEROGLYPH D027A 13093 EGYPTIAN HIEROGLYPH D028 13094 EGYPTIAN HIEROGLYPH D029 13095 EGYPTIAN HIEROGLYPH D030 13096 EGYPTIAN HIEROGLYPH D031 13097 EGYPTIAN HIEROGLYPH D031A 13098 EGYPTIAN HIEROGLYPH D032 13099 EGYPTIAN HIEROGLYPH D033 1309A EGYPTIAN HIEROGLYPH D034 1309B EGYPTIAN HIEROGLYPH D034A 1309C EGYPTIAN HIEROGLYPH D035 1309D EGYPTIAN HIEROGLYPH D036 1309E EGYPTIAN HIEROGLYPH D037 1309F EGYPTIAN HIEROGLYPH D038 130A0 EGYPTIAN HIEROGLYPH D039 130A1 EGYPTIAN HIEROGLYPH D040 130A2 EGYPTIAN HIEROGLYPH D041 130A3 EGYPTIAN HIEROGLYPH D042 130A4 EGYPTIAN HIEROGLYPH D043 130A5 EGYPTIAN HIEROGLYPH D044 130A6 EGYPTIAN HIEROGLYPH D045 130A7 EGYPTIAN HIEROGLYPH D046 130A8 EGYPTIAN HIEROGLYPH D046A 130A9 EGYPTIAN HIEROGLYPH D047 130AA EGYPTIAN HIEROGLYPH D048 130AB EGYPTIAN HIEROGLYPH D048A 130AC EGYPTIAN HIEROGLYPH D049 130AD EGYPTIAN HIEROGLYPH D050 130AE EGYPTIAN HIEROGLYPH D050A 130AF EGYPTIAN HIEROGLYPH D050B 130B0 EGYPTIAN HIEROGLYPH D050C 130B1 EGYPTIAN HIEROGLYPH D050D 130B2 EGYPTIAN HIEROGLYPH D050E 130B3 EGYPTIAN HIEROGLYPH D050F 130B4 EGYPTIAN HIEROGLYPH D050G 130B5 EGYPTIAN HIEROGLYPH D050H 130B6 EGYPTIAN HIEROGLYPH D050I 130B7 EGYPTIAN HIEROGLYPH D051 130B8 EGYPTIAN HIEROGLYPH D052 130B9 EGYPTIAN HIEROGLYPH D052A 130BA EGYPTIAN HIEROGLYPH D053 130BB EGYPTIAN HIEROGLYPH D054 130BC EGYPTIAN HIEROGLYPH D054A 130BD EGYPTIAN HIEROGLYPH D055 130BE EGYPTIAN HIEROGLYPH D056 130BF EGYPTIAN HIEROGLYPH D057 130C0 EGYPTIAN HIEROGLYPH D058 130C1 EGYPTIAN HIEROGLYPH D059 130C2 EGYPTIAN HIEROGLYPH D060 130C3 EGYPTIAN HIEROGLYPH D061 130C4 EGYPTIAN HIEROGLYPH D062 130C5 EGYPTIAN HIEROGLYPH D063 130C6 EGYPTIAN HIEROGLYPH D064 130C7 EGYPTIAN HIEROGLYPH D065 130C8 EGYPTIAN HIEROGLYPH D066 130C9 EGYPTIAN HIEROGLYPH D067 130CA EGYPTIAN HIEROGLYPH D067A 130CB EGYPTIAN HIEROGLYPH D067B 130CC EGYPTIAN HIEROGLYPH D067C 130CD EGYPTIAN HIEROGLYPH D067D 130CE EGYPTIAN HIEROGLYPH D067E 130CF EGYPTIAN HIEROGLYPH D067F 130D0 EGYPTIAN HIEROGLYPH D067G 130D1 EGYPTIAN HIEROGLYPH D067H 130D2 EGYPTIAN HIEROGLYPH E001 130D3 EGYPTIAN HIEROGLYPH E002 130D4 EGYPTIAN HIEROGLYPH E003 130D5 EGYPTIAN HIEROGLYPH E004 130D6 EGYPTIAN HIEROGLYPH E005 130D7 EGYPTIAN HIEROGLYPH E006 130D8 EGYPTIAN HIEROGLYPH E007 130D9 EGYPTIAN HIEROGLYPH E008 130DA EGYPTIAN HIEROGLYPH E008A 130DB EGYPTIAN HIEROGLYPH E009 130DC EGYPTIAN HIEROGLYPH E009A 130DD EGYPTIAN HIEROGLYPH E010 130DE EGYPTIAN HIEROGLYPH E011 130DF EGYPTIAN HIEROGLYPH E012 130E0 EGYPTIAN HIEROGLYPH E013 130E1 EGYPTIAN HIEROGLYPH E014 130E2 EGYPTIAN HIEROGLYPH E015 130E3 EGYPTIAN HIEROGLYPH E016 130E4 EGYPTIAN HIEROGLYPH E016A 130E5 EGYPTIAN HIEROGLYPH E017 130E6 EGYPTIAN HIEROGLYPH E017A 130E7 EGYPTIAN HIEROGLYPH E018 130E8 EGYPTIAN HIEROGLYPH E019 130E9 EGYPTIAN HIEROGLYPH E020 130EA EGYPTIAN HIEROGLYPH E020A 130EB EGYPTIAN HIEROGLYPH E021 130EC EGYPTIAN HIEROGLYPH E022 130ED EGYPTIAN HIEROGLYPH E023 130EE EGYPTIAN HIEROGLYPH E024 130EF EGYPTIAN HIEROGLYPH E025 130F0 EGYPTIAN HIEROGLYPH E026 130F1 EGYPTIAN HIEROGLYPH E027 130F2 EGYPTIAN HIEROGLYPH E028 130F3 EGYPTIAN HIEROGLYPH E028A 130F4 EGYPTIAN HIEROGLYPH E029 130F5 EGYPTIAN HIEROGLYPH E030 130F6 EGYPTIAN HIEROGLYPH E031 130F7 EGYPTIAN HIEROGLYPH E032 130F8 EGYPTIAN HIEROGLYPH E033 130F9 EGYPTIAN HIEROGLYPH E034 130FA EGYPTIAN HIEROGLYPH E034A 130FB EGYPTIAN HIEROGLYPH E036 130FC EGYPTIAN HIEROGLYPH E037 130FD EGYPTIAN HIEROGLYPH E038 130FE EGYPTIAN HIEROGLYPH F001 130FF EGYPTIAN HIEROGLYPH F001A 13100 EGYPTIAN HIEROGLYPH F002 13101 EGYPTIAN HIEROGLYPH F003 13102 EGYPTIAN HIEROGLYPH F004 13103 EGYPTIAN HIEROGLYPH F005 13104 EGYPTIAN HIEROGLYPH F006 13105 EGYPTIAN HIEROGLYPH F007 13106 EGYPTIAN HIEROGLYPH F008 13107 EGYPTIAN HIEROGLYPH F009 13108 EGYPTIAN HIEROGLYPH F010 13109 EGYPTIAN HIEROGLYPH F011 1310A EGYPTIAN HIEROGLYPH F012 1310B EGYPTIAN HIEROGLYPH F013 1310C EGYPTIAN HIEROGLYPH F013A 1310D EGYPTIAN HIEROGLYPH F014 1310E EGYPTIAN HIEROGLYPH F015 1310F EGYPTIAN HIEROGLYPH F016 13110 EGYPTIAN HIEROGLYPH F017 13111 EGYPTIAN HIEROGLYPH F018 13112 EGYPTIAN HIEROGLYPH F019 13113 EGYPTIAN HIEROGLYPH F020 13114 EGYPTIAN HIEROGLYPH F021 13115 EGYPTIAN HIEROGLYPH F021A 13116 EGYPTIAN HIEROGLYPH F022 13117 EGYPTIAN HIEROGLYPH F023 13118 EGYPTIAN HIEROGLYPH F024 13119 EGYPTIAN HIEROGLYPH F025 1311A EGYPTIAN HIEROGLYPH F026 1311B EGYPTIAN HIEROGLYPH F027 1311C EGYPTIAN HIEROGLYPH F028 1311D EGYPTIAN HIEROGLYPH F029 1311E EGYPTIAN HIEROGLYPH F030 1311F EGYPTIAN HIEROGLYPH F031 13120 EGYPTIAN HIEROGLYPH F031A 13121 EGYPTIAN HIEROGLYPH F032 13122 EGYPTIAN HIEROGLYPH F033 13123 EGYPTIAN HIEROGLYPH F034 13124 EGYPTIAN HIEROGLYPH F035 13125 EGYPTIAN HIEROGLYPH F036 13126 EGYPTIAN HIEROGLYPH F037 13127 EGYPTIAN HIEROGLYPH F037A 13128 EGYPTIAN HIEROGLYPH F038 13129 EGYPTIAN HIEROGLYPH F038A 1312A EGYPTIAN HIEROGLYPH F039 1312B EGYPTIAN HIEROGLYPH F040 1312C EGYPTIAN HIEROGLYPH F041 1312D EGYPTIAN HIEROGLYPH F042 1312E EGYPTIAN HIEROGLYPH F043 1312F EGYPTIAN HIEROGLYPH F044 13130 EGYPTIAN HIEROGLYPH F045 13131 EGYPTIAN HIEROGLYPH F045A 13132 EGYPTIAN HIEROGLYPH F046 13133 EGYPTIAN HIEROGLYPH F046A 13134 EGYPTIAN HIEROGLYPH F047 13135 EGYPTIAN HIEROGLYPH F047A 13136 EGYPTIAN HIEROGLYPH F048 13137 EGYPTIAN HIEROGLYPH F049 13138 EGYPTIAN HIEROGLYPH F050 13139 EGYPTIAN HIEROGLYPH F051 1313A EGYPTIAN HIEROGLYPH F051A 1313B EGYPTIAN HIEROGLYPH F051B 1313C EGYPTIAN HIEROGLYPH F051C 1313D EGYPTIAN HIEROGLYPH F052 1313E EGYPTIAN HIEROGLYPH F053 1313F EGYPTIAN HIEROGLYPH G001 13140 EGYPTIAN HIEROGLYPH G002 13141 EGYPTIAN HIEROGLYPH G003 13142 EGYPTIAN HIEROGLYPH G004 13143 EGYPTIAN HIEROGLYPH G005 13144 EGYPTIAN HIEROGLYPH G006 13145 EGYPTIAN HIEROGLYPH G006A 13146 EGYPTIAN HIEROGLYPH G007 13147 EGYPTIAN HIEROGLYPH G007A 13148 EGYPTIAN HIEROGLYPH G007B 13149 EGYPTIAN HIEROGLYPH G008 1314A EGYPTIAN HIEROGLYPH G009 1314B EGYPTIAN HIEROGLYPH G010 1314C EGYPTIAN HIEROGLYPH G011 1314D EGYPTIAN HIEROGLYPH G011A 1314E EGYPTIAN HIEROGLYPH G012 1314F EGYPTIAN HIEROGLYPH G013 13150 EGYPTIAN HIEROGLYPH G014 13151 EGYPTIAN HIEROGLYPH G015 13152 EGYPTIAN HIEROGLYPH G016 13153 EGYPTIAN HIEROGLYPH G017 13154 EGYPTIAN HIEROGLYPH G018 13155 EGYPTIAN HIEROGLYPH G019 13156 EGYPTIAN HIEROGLYPH G020 13157 EGYPTIAN HIEROGLYPH G020A 13158 EGYPTIAN HIEROGLYPH G021 13159 EGYPTIAN HIEROGLYPH G022 1315A EGYPTIAN HIEROGLYPH G023 1315B EGYPTIAN HIEROGLYPH G024 1315C EGYPTIAN HIEROGLYPH G025 1315D EGYPTIAN HIEROGLYPH G026 1315E EGYPTIAN HIEROGLYPH G026A 1315F EGYPTIAN HIEROGLYPH G027 13160 EGYPTIAN HIEROGLYPH G028 13161 EGYPTIAN HIEROGLYPH G029 13162 EGYPTIAN HIEROGLYPH G030 13163 EGYPTIAN HIEROGLYPH G031 13164 EGYPTIAN HIEROGLYPH G032 13165 EGYPTIAN HIEROGLYPH G033 13166 EGYPTIAN HIEROGLYPH G034 13167 EGYPTIAN HIEROGLYPH G035 13168 EGYPTIAN HIEROGLYPH G036 13169 EGYPTIAN HIEROGLYPH G036A 1316A EGYPTIAN HIEROGLYPH G037 1316B EGYPTIAN HIEROGLYPH G037A 1316C EGYPTIAN HIEROGLYPH G038 1316D EGYPTIAN HIEROGLYPH G039 1316E EGYPTIAN HIEROGLYPH G040 1316F EGYPTIAN HIEROGLYPH G041 13170 EGYPTIAN HIEROGLYPH G042 13171 EGYPTIAN HIEROGLYPH G043 13172 EGYPTIAN HIEROGLYPH G043A 13173 EGYPTIAN HIEROGLYPH G044 13174 EGYPTIAN HIEROGLYPH G045 13175 EGYPTIAN HIEROGLYPH G045A 13176 EGYPTIAN HIEROGLYPH G046 13177 EGYPTIAN HIEROGLYPH G047 13178 EGYPTIAN HIEROGLYPH G048 13179 EGYPTIAN HIEROGLYPH G049 1317A EGYPTIAN HIEROGLYPH G050 1317B EGYPTIAN HIEROGLYPH G051 1317C EGYPTIAN HIEROGLYPH G052 1317D EGYPTIAN HIEROGLYPH G053 1317E EGYPTIAN HIEROGLYPH G054 1317F EGYPTIAN HIEROGLYPH H001 13180 EGYPTIAN HIEROGLYPH H002 13181 EGYPTIAN HIEROGLYPH H003 13182 EGYPTIAN HIEROGLYPH H004 13183 EGYPTIAN HIEROGLYPH H005 13184 EGYPTIAN HIEROGLYPH H006 13185 EGYPTIAN HIEROGLYPH H006A 13186 EGYPTIAN HIEROGLYPH H007 13187 EGYPTIAN HIEROGLYPH H008 13188 EGYPTIAN HIEROGLYPH I001 13189 EGYPTIAN HIEROGLYPH I002 1318A EGYPTIAN HIEROGLYPH I003 1318B EGYPTIAN HIEROGLYPH I004 1318C EGYPTIAN HIEROGLYPH I005 1318D EGYPTIAN HIEROGLYPH I005A 1318E EGYPTIAN HIEROGLYPH I006 1318F EGYPTIAN HIEROGLYPH I007 13190 EGYPTIAN HIEROGLYPH I008 13191 EGYPTIAN HIEROGLYPH I009 13192 EGYPTIAN HIEROGLYPH I009A 13193 EGYPTIAN HIEROGLYPH I010 13194 EGYPTIAN HIEROGLYPH I010A 13195 EGYPTIAN HIEROGLYPH I011 13196 EGYPTIAN HIEROGLYPH I011A 13197 EGYPTIAN HIEROGLYPH I012 13198 EGYPTIAN HIEROGLYPH I013 13199 EGYPTIAN HIEROGLYPH I014 1319A EGYPTIAN HIEROGLYPH I015 1319B EGYPTIAN HIEROGLYPH K001 1319C EGYPTIAN HIEROGLYPH K002 1319D EGYPTIAN HIEROGLYPH K003 1319E EGYPTIAN HIEROGLYPH K004 1319F EGYPTIAN HIEROGLYPH K005 131A0 EGYPTIAN HIEROGLYPH K006 131A1 EGYPTIAN HIEROGLYPH K007 131A2 EGYPTIAN HIEROGLYPH K008 131A3 EGYPTIAN HIEROGLYPH L001 131A4 EGYPTIAN HIEROGLYPH L002 131A5 EGYPTIAN HIEROGLYPH L002A 131A6 EGYPTIAN HIEROGLYPH L003 131A7 EGYPTIAN HIEROGLYPH L004 131A8 EGYPTIAN HIEROGLYPH L005 131A9 EGYPTIAN HIEROGLYPH L006 131AA EGYPTIAN HIEROGLYPH L006A 131AB EGYPTIAN HIEROGLYPH L007 131AC EGYPTIAN HIEROGLYPH L008 131AD EGYPTIAN HIEROGLYPH M001 131AE EGYPTIAN HIEROGLYPH M001A 131AF EGYPTIAN HIEROGLYPH M001B 131B0 EGYPTIAN HIEROGLYPH M002 131B1 EGYPTIAN HIEROGLYPH M003 131B2 EGYPTIAN HIEROGLYPH M003A 131B3 EGYPTIAN HIEROGLYPH M004 131B4 EGYPTIAN HIEROGLYPH M005 131B5 EGYPTIAN HIEROGLYPH M006 131B6 EGYPTIAN HIEROGLYPH M007 131B7 EGYPTIAN HIEROGLYPH M008 131B8 EGYPTIAN HIEROGLYPH M009 131B9 EGYPTIAN HIEROGLYPH M010 131BA EGYPTIAN HIEROGLYPH M010A 131BB EGYPTIAN HIEROGLYPH M011 131BC EGYPTIAN HIEROGLYPH M012 131BD EGYPTIAN HIEROGLYPH M012A 131BE EGYPTIAN HIEROGLYPH M012B 131BF EGYPTIAN HIEROGLYPH M012C 131C0 EGYPTIAN HIEROGLYPH M012D 131C1 EGYPTIAN HIEROGLYPH M012E 131C2 EGYPTIAN HIEROGLYPH M012F 131C3 EGYPTIAN HIEROGLYPH M012G 131C4 EGYPTIAN HIEROGLYPH M012H 131C5 EGYPTIAN HIEROGLYPH M013 131C6 EGYPTIAN HIEROGLYPH M014 131C7 EGYPTIAN HIEROGLYPH M015 131C8 EGYPTIAN HIEROGLYPH M015A 131C9 EGYPTIAN HIEROGLYPH M016 131CA EGYPTIAN HIEROGLYPH M016A 131CB EGYPTIAN HIEROGLYPH M017 131CC EGYPTIAN HIEROGLYPH M017A 131CD EGYPTIAN HIEROGLYPH M018 131CE EGYPTIAN HIEROGLYPH M019 131CF EGYPTIAN HIEROGLYPH M020 131D0 EGYPTIAN HIEROGLYPH M021 131D1 EGYPTIAN HIEROGLYPH M022 131D2 EGYPTIAN HIEROGLYPH M022A 131D3 EGYPTIAN HIEROGLYPH M023 131D4 EGYPTIAN HIEROGLYPH M024 131D5 EGYPTIAN HIEROGLYPH M024A 131D6 EGYPTIAN HIEROGLYPH M025 131D7 EGYPTIAN HIEROGLYPH M026 131D8 EGYPTIAN HIEROGLYPH M027 131D9 EGYPTIAN HIEROGLYPH M028 131DA EGYPTIAN HIEROGLYPH M028A 131DB EGYPTIAN HIEROGLYPH M029 131DC EGYPTIAN HIEROGLYPH M030 131DD EGYPTIAN HIEROGLYPH M031 131DE EGYPTIAN HIEROGLYPH M031A 131DF EGYPTIAN HIEROGLYPH M032 131E0 EGYPTIAN HIEROGLYPH M033 131E1 EGYPTIAN HIEROGLYPH M033A 131E2 EGYPTIAN HIEROGLYPH M033B 131E3 EGYPTIAN HIEROGLYPH M034 131E4 EGYPTIAN HIEROGLYPH M035 131E5 EGYPTIAN HIEROGLYPH M036 131E6 EGYPTIAN HIEROGLYPH M037 131E7 EGYPTIAN HIEROGLYPH M038 131E8 EGYPTIAN HIEROGLYPH M039 131E9 EGYPTIAN HIEROGLYPH M040 131EA EGYPTIAN HIEROGLYPH M040A 131EB EGYPTIAN HIEROGLYPH M041 131EC EGYPTIAN HIEROGLYPH M042 131ED EGYPTIAN HIEROGLYPH M043 131EE EGYPTIAN HIEROGLYPH M044 131EF EGYPTIAN HIEROGLYPH N001 131F0 EGYPTIAN HIEROGLYPH N002 131F1 EGYPTIAN HIEROGLYPH N003 131F2 EGYPTIAN HIEROGLYPH N004 131F3 EGYPTIAN HIEROGLYPH N005 131F4 EGYPTIAN HIEROGLYPH N006 131F5 EGYPTIAN HIEROGLYPH N007 131F6 EGYPTIAN HIEROGLYPH N008 131F7 EGYPTIAN HIEROGLYPH N009 131F8 EGYPTIAN HIEROGLYPH N010 131F9 EGYPTIAN HIEROGLYPH N011 131FA EGYPTIAN HIEROGLYPH N012 131FB EGYPTIAN HIEROGLYPH N013 131FC EGYPTIAN HIEROGLYPH N014 131FD EGYPTIAN HIEROGLYPH N015 131FE EGYPTIAN HIEROGLYPH N016 131FF EGYPTIAN HIEROGLYPH N017 13200 EGYPTIAN HIEROGLYPH N018 13201 EGYPTIAN HIEROGLYPH N018A 13202 EGYPTIAN HIEROGLYPH N018B 13203 EGYPTIAN HIEROGLYPH N019 13204 EGYPTIAN HIEROGLYPH N020 13205 EGYPTIAN HIEROGLYPH N021 13206 EGYPTIAN HIEROGLYPH N022 13207 EGYPTIAN HIEROGLYPH N023 13208 EGYPTIAN HIEROGLYPH N024 13209 EGYPTIAN HIEROGLYPH N025 1320A EGYPTIAN HIEROGLYPH N025A 1320B EGYPTIAN HIEROGLYPH N026 1320C EGYPTIAN HIEROGLYPH N027 1320D EGYPTIAN HIEROGLYPH N028 1320E EGYPTIAN HIEROGLYPH N029 1320F EGYPTIAN HIEROGLYPH N030 13210 EGYPTIAN HIEROGLYPH N031 13211 EGYPTIAN HIEROGLYPH N032 13212 EGYPTIAN HIEROGLYPH N033 13213 EGYPTIAN HIEROGLYPH N033A 13214 EGYPTIAN HIEROGLYPH N034 13215 EGYPTIAN HIEROGLYPH N034A 13216 EGYPTIAN HIEROGLYPH N035 13217 EGYPTIAN HIEROGLYPH N035A 13218 EGYPTIAN HIEROGLYPH N036 13219 EGYPTIAN HIEROGLYPH N037 1321A EGYPTIAN HIEROGLYPH N037A 1321B EGYPTIAN HIEROGLYPH N038 1321C EGYPTIAN HIEROGLYPH N039 1321D EGYPTIAN HIEROGLYPH N040 1321E EGYPTIAN HIEROGLYPH N041 1321F EGYPTIAN HIEROGLYPH N042 13220 EGYPTIAN HIEROGLYPH NL001 13221 EGYPTIAN HIEROGLYPH NL002 13222 EGYPTIAN HIEROGLYPH NL003 13223 EGYPTIAN HIEROGLYPH NL004 13224 EGYPTIAN HIEROGLYPH NL005 13225 EGYPTIAN HIEROGLYPH NL005A 13226 EGYPTIAN HIEROGLYPH NL006 13227 EGYPTIAN HIEROGLYPH NL007 13228 EGYPTIAN HIEROGLYPH NL008 13229 EGYPTIAN HIEROGLYPH NL009 1322A EGYPTIAN HIEROGLYPH NL010 1322B EGYPTIAN HIEROGLYPH NL011 1322C EGYPTIAN HIEROGLYPH NL012 1322D EGYPTIAN HIEROGLYPH NL013 1322E EGYPTIAN HIEROGLYPH NL014 1322F EGYPTIAN HIEROGLYPH NL015 13230 EGYPTIAN HIEROGLYPH NL016 13231 EGYPTIAN HIEROGLYPH NL017 13232 EGYPTIAN HIEROGLYPH NL017A 13233 EGYPTIAN HIEROGLYPH NL018 13234 EGYPTIAN HIEROGLYPH NL019 13235 EGYPTIAN HIEROGLYPH NL020 13236 EGYPTIAN HIEROGLYPH NU001 13237 EGYPTIAN HIEROGLYPH NU002 13238 EGYPTIAN HIEROGLYPH NU003 13239 EGYPTIAN HIEROGLYPH NU004 1323A EGYPTIAN HIEROGLYPH NU005 1323B EGYPTIAN HIEROGLYPH NU006 1323C EGYPTIAN HIEROGLYPH NU007 1323D EGYPTIAN HIEROGLYPH NU008 1323E EGYPTIAN HIEROGLYPH NU009 1323F EGYPTIAN HIEROGLYPH NU010 13240 EGYPTIAN HIEROGLYPH NU010A 13241 EGYPTIAN HIEROGLYPH NU011 13242 EGYPTIAN HIEROGLYPH NU011A 13243 EGYPTIAN HIEROGLYPH NU012 13244 EGYPTIAN HIEROGLYPH NU013 13245 EGYPTIAN HIEROGLYPH NU014 13246 EGYPTIAN HIEROGLYPH NU015 13247 EGYPTIAN HIEROGLYPH NU016 13248 EGYPTIAN HIEROGLYPH NU017 13249 EGYPTIAN HIEROGLYPH NU018 1324A EGYPTIAN HIEROGLYPH NU018A 1324B EGYPTIAN HIEROGLYPH NU019 1324C EGYPTIAN HIEROGLYPH NU020 1324D EGYPTIAN HIEROGLYPH NU021 1324E EGYPTIAN HIEROGLYPH NU022 1324F EGYPTIAN HIEROGLYPH NU022A 13250 EGYPTIAN HIEROGLYPH O001 13251 EGYPTIAN HIEROGLYPH O001A 13252 EGYPTIAN HIEROGLYPH O002 13253 EGYPTIAN HIEROGLYPH O003 13254 EGYPTIAN HIEROGLYPH O004 13255 EGYPTIAN HIEROGLYPH O005 13256 EGYPTIAN HIEROGLYPH O005A 13257 EGYPTIAN HIEROGLYPH O006 13258 EGYPTIAN HIEROGLYPH O006A 13259 EGYPTIAN HIEROGLYPH O006B 1325A EGYPTIAN HIEROGLYPH O006C 1325B EGYPTIAN HIEROGLYPH O006D 1325C EGYPTIAN HIEROGLYPH O006E 1325D EGYPTIAN HIEROGLYPH O006F 1325E EGYPTIAN HIEROGLYPH O007 1325F EGYPTIAN HIEROGLYPH O008 13260 EGYPTIAN HIEROGLYPH O009 13261 EGYPTIAN HIEROGLYPH O010 13262 EGYPTIAN HIEROGLYPH O010A 13263 EGYPTIAN HIEROGLYPH O010B 13264 EGYPTIAN HIEROGLYPH O010C 13265 EGYPTIAN HIEROGLYPH O011 13266 EGYPTIAN HIEROGLYPH O012 13267 EGYPTIAN HIEROGLYPH O013 13268 EGYPTIAN HIEROGLYPH O014 13269 EGYPTIAN HIEROGLYPH O015 1326A EGYPTIAN HIEROGLYPH O016 1326B EGYPTIAN HIEROGLYPH O017 1326C EGYPTIAN HIEROGLYPH O018 1326D EGYPTIAN HIEROGLYPH O019 1326E EGYPTIAN HIEROGLYPH O019A 1326F EGYPTIAN HIEROGLYPH O020 13270 EGYPTIAN HIEROGLYPH O020A 13271 EGYPTIAN HIEROGLYPH O021 13272 EGYPTIAN HIEROGLYPH O022 13273 EGYPTIAN HIEROGLYPH O023 13274 EGYPTIAN HIEROGLYPH O024 13275 EGYPTIAN HIEROGLYPH O024A 13276 EGYPTIAN HIEROGLYPH O025 13277 EGYPTIAN HIEROGLYPH O025A 13278 EGYPTIAN HIEROGLYPH O026 13279 EGYPTIAN HIEROGLYPH O027 1327A EGYPTIAN HIEROGLYPH O028 1327B EGYPTIAN HIEROGLYPH O029 1327C EGYPTIAN HIEROGLYPH O029A 1327D EGYPTIAN HIEROGLYPH O030 1327E EGYPTIAN HIEROGLYPH O030A 1327F EGYPTIAN HIEROGLYPH O031 13280 EGYPTIAN HIEROGLYPH O032 13281 EGYPTIAN HIEROGLYPH O033 13282 EGYPTIAN HIEROGLYPH O033A 13283 EGYPTIAN HIEROGLYPH O034 13284 EGYPTIAN HIEROGLYPH O035 13285 EGYPTIAN HIEROGLYPH O036 13286 EGYPTIAN HIEROGLYPH O036A 13287 EGYPTIAN HIEROGLYPH O036B 13288 EGYPTIAN HIEROGLYPH O036C 13289 EGYPTIAN HIEROGLYPH O036D 1328A EGYPTIAN HIEROGLYPH O037 1328B EGYPTIAN HIEROGLYPH O038 1328C EGYPTIAN HIEROGLYPH O039 1328D EGYPTIAN HIEROGLYPH O040 1328E EGYPTIAN HIEROGLYPH O041 1328F EGYPTIAN HIEROGLYPH O042 13290 EGYPTIAN HIEROGLYPH O043 13291 EGYPTIAN HIEROGLYPH O044 13292 EGYPTIAN HIEROGLYPH O045 13293 EGYPTIAN HIEROGLYPH O046 13294 EGYPTIAN HIEROGLYPH O047 13295 EGYPTIAN HIEROGLYPH O048 13296 EGYPTIAN HIEROGLYPH O049 13297 EGYPTIAN HIEROGLYPH O050 13298 EGYPTIAN HIEROGLYPH O050A 13299 EGYPTIAN HIEROGLYPH O050B 1329A EGYPTIAN HIEROGLYPH O051 1329B EGYPTIAN HIEROGLYPH P001 1329C EGYPTIAN HIEROGLYPH P001A 1329D EGYPTIAN HIEROGLYPH P002 1329E EGYPTIAN HIEROGLYPH P003 1329F EGYPTIAN HIEROGLYPH P003A 132A0 EGYPTIAN HIEROGLYPH P004 132A1 EGYPTIAN HIEROGLYPH P005 132A2 EGYPTIAN HIEROGLYPH P006 132A3 EGYPTIAN HIEROGLYPH P007 132A4 EGYPTIAN HIEROGLYPH P008 132A5 EGYPTIAN HIEROGLYPH P009 132A6 EGYPTIAN HIEROGLYPH P010 132A7 EGYPTIAN HIEROGLYPH P011 132A8 EGYPTIAN HIEROGLYPH Q001 132A9 EGYPTIAN HIEROGLYPH Q002 132AA EGYPTIAN HIEROGLYPH Q003 132AB EGYPTIAN HIEROGLYPH Q004 132AC EGYPTIAN HIEROGLYPH Q005 132AD EGYPTIAN HIEROGLYPH Q006 132AE EGYPTIAN HIEROGLYPH Q007 132AF EGYPTIAN HIEROGLYPH R001 132B0 EGYPTIAN HIEROGLYPH R002 132B1 EGYPTIAN HIEROGLYPH R002A 132B2 EGYPTIAN HIEROGLYPH R003 132B3 EGYPTIAN HIEROGLYPH R003A 132B4 EGYPTIAN HIEROGLYPH R003B 132B5 EGYPTIAN HIEROGLYPH R004 132B6 EGYPTIAN HIEROGLYPH R005 132B7 EGYPTIAN HIEROGLYPH R006 132B8 EGYPTIAN HIEROGLYPH R007 132B9 EGYPTIAN HIEROGLYPH R008 132BA EGYPTIAN HIEROGLYPH R009 132BB EGYPTIAN HIEROGLYPH R010 132BC EGYPTIAN HIEROGLYPH R010A 132BD EGYPTIAN HIEROGLYPH R011 132BE EGYPTIAN HIEROGLYPH R012 132BF EGYPTIAN HIEROGLYPH R013 132C0 EGYPTIAN HIEROGLYPH R014 132C1 EGYPTIAN HIEROGLYPH R015 132C2 EGYPTIAN HIEROGLYPH R016 132C3 EGYPTIAN HIEROGLYPH R016A 132C4 EGYPTIAN HIEROGLYPH R017 132C5 EGYPTIAN HIEROGLYPH R018 132C6 EGYPTIAN HIEROGLYPH R019 132C7 EGYPTIAN HIEROGLYPH R020 132C8 EGYPTIAN HIEROGLYPH R021 132C9 EGYPTIAN HIEROGLYPH R022 132CA EGYPTIAN HIEROGLYPH R023 132CB EGYPTIAN HIEROGLYPH R024 132CC EGYPTIAN HIEROGLYPH R025 132CD EGYPTIAN HIEROGLYPH R026 132CE EGYPTIAN HIEROGLYPH R027 132CF EGYPTIAN HIEROGLYPH R028 132D0 EGYPTIAN HIEROGLYPH R029 132D1 EGYPTIAN HIEROGLYPH S001 132D2 EGYPTIAN HIEROGLYPH S002 132D3 EGYPTIAN HIEROGLYPH S002A 132D4 EGYPTIAN HIEROGLYPH S003 132D5 EGYPTIAN HIEROGLYPH S004 132D6 EGYPTIAN HIEROGLYPH S005 132D7 EGYPTIAN HIEROGLYPH S006 132D8 EGYPTIAN HIEROGLYPH S006A 132D9 EGYPTIAN HIEROGLYPH S007 132DA EGYPTIAN HIEROGLYPH S008 132DB EGYPTIAN HIEROGLYPH S009 132DC EGYPTIAN HIEROGLYPH S010 132DD EGYPTIAN HIEROGLYPH S011 132DE EGYPTIAN HIEROGLYPH S012 132DF EGYPTIAN HIEROGLYPH S013 132E0 EGYPTIAN HIEROGLYPH S014 132E1 EGYPTIAN HIEROGLYPH S014A 132E2 EGYPTIAN HIEROGLYPH S014B 132E3 EGYPTIAN HIEROGLYPH S015 132E4 EGYPTIAN HIEROGLYPH S016 132E5 EGYPTIAN HIEROGLYPH S017 132E6 EGYPTIAN HIEROGLYPH S017A 132E7 EGYPTIAN HIEROGLYPH S018 132E8 EGYPTIAN HIEROGLYPH S019 132E9 EGYPTIAN HIEROGLYPH S020 132EA EGYPTIAN HIEROGLYPH S021 132EB EGYPTIAN HIEROGLYPH S022 132EC EGYPTIAN HIEROGLYPH S023 132ED EGYPTIAN HIEROGLYPH S024 132EE EGYPTIAN HIEROGLYPH S025 132EF EGYPTIAN HIEROGLYPH S026 132F0 EGYPTIAN HIEROGLYPH S026A 132F1 EGYPTIAN HIEROGLYPH S026B 132F2 EGYPTIAN HIEROGLYPH S027 132F3 EGYPTIAN HIEROGLYPH S028 132F4 EGYPTIAN HIEROGLYPH S029 132F5 EGYPTIAN HIEROGLYPH S030 132F6 EGYPTIAN HIEROGLYPH S031 132F7 EGYPTIAN HIEROGLYPH S032 132F8 EGYPTIAN HIEROGLYPH S033 132F9 EGYPTIAN HIEROGLYPH S034 132FA EGYPTIAN HIEROGLYPH S035 132FB EGYPTIAN HIEROGLYPH S035A 132FC EGYPTIAN HIEROGLYPH S036 132FD EGYPTIAN HIEROGLYPH S037 132FE EGYPTIAN HIEROGLYPH S038 132FF EGYPTIAN HIEROGLYPH S039 13300 EGYPTIAN HIEROGLYPH S040 13301 EGYPTIAN HIEROGLYPH S041 13302 EGYPTIAN HIEROGLYPH S042 13303 EGYPTIAN HIEROGLYPH S043 13304 EGYPTIAN HIEROGLYPH S044 13305 EGYPTIAN HIEROGLYPH S045 13306 EGYPTIAN HIEROGLYPH S046 13307 EGYPTIAN HIEROGLYPH T001 13308 EGYPTIAN HIEROGLYPH T002 13309 EGYPTIAN HIEROGLYPH T003 1330A EGYPTIAN HIEROGLYPH T003A 1330B EGYPTIAN HIEROGLYPH T004 1330C EGYPTIAN HIEROGLYPH T005 1330D EGYPTIAN HIEROGLYPH T006 1330E EGYPTIAN HIEROGLYPH T007 1330F EGYPTIAN HIEROGLYPH T007A 13310 EGYPTIAN HIEROGLYPH T008 13311 EGYPTIAN HIEROGLYPH T008A 13312 EGYPTIAN HIEROGLYPH T009 13313 EGYPTIAN HIEROGLYPH T009A 13314 EGYPTIAN HIEROGLYPH T010 13315 EGYPTIAN HIEROGLYPH T011 13316 EGYPTIAN HIEROGLYPH T011A 13317 EGYPTIAN HIEROGLYPH T012 13318 EGYPTIAN HIEROGLYPH T013 13319 EGYPTIAN HIEROGLYPH T014 1331A EGYPTIAN HIEROGLYPH T015 1331B EGYPTIAN HIEROGLYPH T016 1331C EGYPTIAN HIEROGLYPH T016A 1331D EGYPTIAN HIEROGLYPH T017 1331E EGYPTIAN HIEROGLYPH T018 1331F EGYPTIAN HIEROGLYPH T019 13320 EGYPTIAN HIEROGLYPH T020 13321 EGYPTIAN HIEROGLYPH T021 13322 EGYPTIAN HIEROGLYPH T022 13323 EGYPTIAN HIEROGLYPH T023 13324 EGYPTIAN HIEROGLYPH T024 13325 EGYPTIAN HIEROGLYPH T025 13326 EGYPTIAN HIEROGLYPH T026 13327 EGYPTIAN HIEROGLYPH T027 13328 EGYPTIAN HIEROGLYPH T028 13329 EGYPTIAN HIEROGLYPH T029 1332A EGYPTIAN HIEROGLYPH T030 1332B EGYPTIAN HIEROGLYPH T031 1332C EGYPTIAN HIEROGLYPH T032 1332D EGYPTIAN HIEROGLYPH T032A 1332E EGYPTIAN HIEROGLYPH T033 1332F EGYPTIAN HIEROGLYPH T033A 13330 EGYPTIAN HIEROGLYPH T034 13331 EGYPTIAN HIEROGLYPH T035 13332 EGYPTIAN HIEROGLYPH T036 13333 EGYPTIAN HIEROGLYPH U001 13334 EGYPTIAN HIEROGLYPH U002 13335 EGYPTIAN HIEROGLYPH U003 13336 EGYPTIAN HIEROGLYPH U004 13337 EGYPTIAN HIEROGLYPH U005 13338 EGYPTIAN HIEROGLYPH U006 13339 EGYPTIAN HIEROGLYPH U006A 1333A EGYPTIAN HIEROGLYPH U006B 1333B EGYPTIAN HIEROGLYPH U007 1333C EGYPTIAN HIEROGLYPH U008 1333D EGYPTIAN HIEROGLYPH U009 1333E EGYPTIAN HIEROGLYPH U010 1333F EGYPTIAN HIEROGLYPH U011 13340 EGYPTIAN HIEROGLYPH U012 13341 EGYPTIAN HIEROGLYPH U013 13342 EGYPTIAN HIEROGLYPH U014 13343 EGYPTIAN HIEROGLYPH U015 13344 EGYPTIAN HIEROGLYPH U016 13345 EGYPTIAN HIEROGLYPH U017 13346 EGYPTIAN HIEROGLYPH U018 13347 EGYPTIAN HIEROGLYPH U019 13348 EGYPTIAN HIEROGLYPH U020 13349 EGYPTIAN HIEROGLYPH U021 1334A EGYPTIAN HIEROGLYPH U022 1334B EGYPTIAN HIEROGLYPH U023 1334C EGYPTIAN HIEROGLYPH U023A 1334D EGYPTIAN HIEROGLYPH U024 1334E EGYPTIAN HIEROGLYPH U025 1334F EGYPTIAN HIEROGLYPH U026 13350 EGYPTIAN HIEROGLYPH U027 13351 EGYPTIAN HIEROGLYPH U028 13352 EGYPTIAN HIEROGLYPH U029 13353 EGYPTIAN HIEROGLYPH U029A 13354 EGYPTIAN HIEROGLYPH U030 13355 EGYPTIAN HIEROGLYPH U031 13356 EGYPTIAN HIEROGLYPH U032 13357 EGYPTIAN HIEROGLYPH U032A 13358 EGYPTIAN HIEROGLYPH U033 13359 EGYPTIAN HIEROGLYPH U034 1335A EGYPTIAN HIEROGLYPH U035 1335B EGYPTIAN HIEROGLYPH U036 1335C EGYPTIAN HIEROGLYPH U037 1335D EGYPTIAN HIEROGLYPH U038 1335E EGYPTIAN HIEROGLYPH U039 1335F EGYPTIAN HIEROGLYPH U040 13360 EGYPTIAN HIEROGLYPH U041 13361 EGYPTIAN HIEROGLYPH U042 13362 EGYPTIAN HIEROGLYPH V001 13363 EGYPTIAN HIEROGLYPH V001A 13364 EGYPTIAN HIEROGLYPH V001B 13365 EGYPTIAN HIEROGLYPH V001C 13366 EGYPTIAN HIEROGLYPH V001D 13367 EGYPTIAN HIEROGLYPH V001E 13368 EGYPTIAN HIEROGLYPH V001F 13369 EGYPTIAN HIEROGLYPH V001G 1336A EGYPTIAN HIEROGLYPH V001H 1336B EGYPTIAN HIEROGLYPH V001I 1336C EGYPTIAN HIEROGLYPH V002 1336D EGYPTIAN HIEROGLYPH V002A 1336E EGYPTIAN HIEROGLYPH V003 1336F EGYPTIAN HIEROGLYPH V004 13370 EGYPTIAN HIEROGLYPH V005 13371 EGYPTIAN HIEROGLYPH V006 13372 EGYPTIAN HIEROGLYPH V007 13373 EGYPTIAN HIEROGLYPH V007A 13374 EGYPTIAN HIEROGLYPH V007B 13375 EGYPTIAN HIEROGLYPH V008 13376 EGYPTIAN HIEROGLYPH V009 13377 EGYPTIAN HIEROGLYPH V010 13378 EGYPTIAN HIEROGLYPH V011 13379 EGYPTIAN HIEROGLYPH V011A 1337A EGYPTIAN HIEROGLYPH V011B 1337B EGYPTIAN HIEROGLYPH V011C 1337C EGYPTIAN HIEROGLYPH V012 1337D EGYPTIAN HIEROGLYPH V012A 1337E EGYPTIAN HIEROGLYPH V012B 1337F EGYPTIAN HIEROGLYPH V013 13380 EGYPTIAN HIEROGLYPH V014 13381 EGYPTIAN HIEROGLYPH V015 13382 EGYPTIAN HIEROGLYPH V016 13383 EGYPTIAN HIEROGLYPH V017 13384 EGYPTIAN HIEROGLYPH V018 13385 EGYPTIAN HIEROGLYPH V019 13386 EGYPTIAN HIEROGLYPH V020 13387 EGYPTIAN HIEROGLYPH V020A 13388 EGYPTIAN HIEROGLYPH V020B 13389 EGYPTIAN HIEROGLYPH V020C 1338A EGYPTIAN HIEROGLYPH V020D 1338B EGYPTIAN HIEROGLYPH V020E 1338C EGYPTIAN HIEROGLYPH V020F 1338D EGYPTIAN HIEROGLYPH V020G 1338E EGYPTIAN HIEROGLYPH V020H 1338F EGYPTIAN HIEROGLYPH V020I 13390 EGYPTIAN HIEROGLYPH V020J 13391 EGYPTIAN HIEROGLYPH V020K 13392 EGYPTIAN HIEROGLYPH V020L 13393 EGYPTIAN HIEROGLYPH V021 13394 EGYPTIAN HIEROGLYPH V022 13395 EGYPTIAN HIEROGLYPH V023 13396 EGYPTIAN HIEROGLYPH V023A 13397 EGYPTIAN HIEROGLYPH V024 13398 EGYPTIAN HIEROGLYPH V025 13399 EGYPTIAN HIEROGLYPH V026 1339A EGYPTIAN HIEROGLYPH V027 1339B EGYPTIAN HIEROGLYPH V028 1339C EGYPTIAN HIEROGLYPH V028A 1339D EGYPTIAN HIEROGLYPH V029 1339E EGYPTIAN HIEROGLYPH V029A 1339F EGYPTIAN HIEROGLYPH V030 133A0 EGYPTIAN HIEROGLYPH V030A 133A1 EGYPTIAN HIEROGLYPH V031 133A2 EGYPTIAN HIEROGLYPH V031A 133A3 EGYPTIAN HIEROGLYPH V032 133A4 EGYPTIAN HIEROGLYPH V033 133A5 EGYPTIAN HIEROGLYPH V033A 133A6 EGYPTIAN HIEROGLYPH V034 133A7 EGYPTIAN HIEROGLYPH V035 133A8 EGYPTIAN HIEROGLYPH V036 133A9 EGYPTIAN HIEROGLYPH V037 133AA EGYPTIAN HIEROGLYPH V037A 133AB EGYPTIAN HIEROGLYPH V038 133AC EGYPTIAN HIEROGLYPH V039 133AD EGYPTIAN HIEROGLYPH V040 133AE EGYPTIAN HIEROGLYPH V040A 133AF EGYPTIAN HIEROGLYPH W001 133B0 EGYPTIAN HIEROGLYPH W002 133B1 EGYPTIAN HIEROGLYPH W003 133B2 EGYPTIAN HIEROGLYPH W003A 133B3 EGYPTIAN HIEROGLYPH W004 133B4 EGYPTIAN HIEROGLYPH W005 133B5 EGYPTIAN HIEROGLYPH W006 133B6 EGYPTIAN HIEROGLYPH W007 133B7 EGYPTIAN HIEROGLYPH W008 133B8 EGYPTIAN HIEROGLYPH W009 133B9 EGYPTIAN HIEROGLYPH W009A 133BA EGYPTIAN HIEROGLYPH W010 133BB EGYPTIAN HIEROGLYPH W010A 133BC EGYPTIAN HIEROGLYPH W011 133BD EGYPTIAN HIEROGLYPH W012 133BE EGYPTIAN HIEROGLYPH W013 133BF EGYPTIAN HIEROGLYPH W014 133C0 EGYPTIAN HIEROGLYPH W014A 133C1 EGYPTIAN HIEROGLYPH W015 133C2 EGYPTIAN HIEROGLYPH W016 133C3 EGYPTIAN HIEROGLYPH W017 133C4 EGYPTIAN HIEROGLYPH W017A 133C5 EGYPTIAN HIEROGLYPH W018 133C6 EGYPTIAN HIEROGLYPH W018A 133C7 EGYPTIAN HIEROGLYPH W019 133C8 EGYPTIAN HIEROGLYPH W020 133C9 EGYPTIAN HIEROGLYPH W021 133CA EGYPTIAN HIEROGLYPH W022 133CB EGYPTIAN HIEROGLYPH W023 133CC EGYPTIAN HIEROGLYPH W024 133CD EGYPTIAN HIEROGLYPH W024A 133CE EGYPTIAN HIEROGLYPH W025 133CF EGYPTIAN HIEROGLYPH X001 133D0 EGYPTIAN HIEROGLYPH X002 133D1 EGYPTIAN HIEROGLYPH X003 133D2 EGYPTIAN HIEROGLYPH X004 133D3 EGYPTIAN HIEROGLYPH X004A 133D4 EGYPTIAN HIEROGLYPH X004B 133D5 EGYPTIAN HIEROGLYPH X005 133D6 EGYPTIAN HIEROGLYPH X006 133D7 EGYPTIAN HIEROGLYPH X006A 133D8 EGYPTIAN HIEROGLYPH X007 133D9 EGYPTIAN HIEROGLYPH X008 133DA EGYPTIAN HIEROGLYPH X008A 133DB EGYPTIAN HIEROGLYPH Y001 133DC EGYPTIAN HIEROGLYPH Y001A 133DD EGYPTIAN HIEROGLYPH Y002 133DE EGYPTIAN HIEROGLYPH Y003 133DF EGYPTIAN HIEROGLYPH Y004 133E0 EGYPTIAN HIEROGLYPH Y005 133E1 EGYPTIAN HIEROGLYPH Y006 133E2 EGYPTIAN HIEROGLYPH Y007 133E3 EGYPTIAN HIEROGLYPH Y008 133E4 EGYPTIAN HIEROGLYPH Z001 133E5 EGYPTIAN HIEROGLYPH Z002 133E6 EGYPTIAN HIEROGLYPH Z002A 133E7 EGYPTIAN HIEROGLYPH Z002B 133E8 EGYPTIAN HIEROGLYPH Z002C 133E9 EGYPTIAN HIEROGLYPH Z002D 133EA EGYPTIAN HIEROGLYPH Z003 133EB EGYPTIAN HIEROGLYPH Z003A 133EC EGYPTIAN HIEROGLYPH Z003B 133ED EGYPTIAN HIEROGLYPH Z004 133EE EGYPTIAN HIEROGLYPH Z004A 133EF EGYPTIAN HIEROGLYPH Z005 133F0 EGYPTIAN HIEROGLYPH Z005A 133F1 EGYPTIAN HIEROGLYPH Z006 133F2 EGYPTIAN HIEROGLYPH Z007 133F3 EGYPTIAN HIEROGLYPH Z008 133F4 EGYPTIAN HIEROGLYPH Z009 133F5 EGYPTIAN HIEROGLYPH Z010 133F6 EGYPTIAN HIEROGLYPH Z011 133F7 EGYPTIAN HIEROGLYPH Z012 133F8 EGYPTIAN HIEROGLYPH Z013 133F9 EGYPTIAN HIEROGLYPH Z014 133FA EGYPTIAN HIEROGLYPH Z015 133FB EGYPTIAN HIEROGLYPH Z015A 133FC EGYPTIAN HIEROGLYPH Z015B 133FD EGYPTIAN HIEROGLYPH Z015C 133FE EGYPTIAN HIEROGLYPH Z015D 133FF EGYPTIAN HIEROGLYPH Z015E 13400 EGYPTIAN HIEROGLYPH Z015F 13401 EGYPTIAN HIEROGLYPH Z015G 13402 EGYPTIAN HIEROGLYPH Z015H 13403 EGYPTIAN HIEROGLYPH Z015I 13404 EGYPTIAN HIEROGLYPH Z016 13405 EGYPTIAN HIEROGLYPH Z016A 13406 EGYPTIAN HIEROGLYPH Z016B 13407 EGYPTIAN HIEROGLYPH Z016C 13408 EGYPTIAN HIEROGLYPH Z016D 13409 EGYPTIAN HIEROGLYPH Z016E 1340A EGYPTIAN HIEROGLYPH Z016F 1340B EGYPTIAN HIEROGLYPH Z016G 1340C EGYPTIAN HIEROGLYPH Z016H 1340D EGYPTIAN HIEROGLYPH AA001 1340E EGYPTIAN HIEROGLYPH AA002 1340F EGYPTIAN HIEROGLYPH AA003 13410 EGYPTIAN HIEROGLYPH AA004 13411 EGYPTIAN HIEROGLYPH AA005 13412 EGYPTIAN HIEROGLYPH AA006 13413 EGYPTIAN HIEROGLYPH AA007 13414 EGYPTIAN HIEROGLYPH AA007A 13415 EGYPTIAN HIEROGLYPH AA007B 13416 EGYPTIAN HIEROGLYPH AA008 13417 EGYPTIAN HIEROGLYPH AA009 13418 EGYPTIAN HIEROGLYPH AA010 13419 EGYPTIAN HIEROGLYPH AA011 1341A EGYPTIAN HIEROGLYPH AA012 1341B EGYPTIAN HIEROGLYPH AA013 1341C EGYPTIAN HIEROGLYPH AA014 1341D EGYPTIAN HIEROGLYPH AA015 1341E EGYPTIAN HIEROGLYPH AA016 1341F EGYPTIAN HIEROGLYPH AA017 13420 EGYPTIAN HIEROGLYPH AA018 13421 EGYPTIAN HIEROGLYPH AA019 13422 EGYPTIAN HIEROGLYPH AA020 13423 EGYPTIAN HIEROGLYPH AA021 13424 EGYPTIAN HIEROGLYPH AA022 13425 EGYPTIAN HIEROGLYPH AA023 13426 EGYPTIAN HIEROGLYPH AA024 13427 EGYPTIAN HIEROGLYPH AA025 13428 EGYPTIAN HIEROGLYPH AA026 13429 EGYPTIAN HIEROGLYPH AA027 1342A EGYPTIAN HIEROGLYPH AA028 1342B EGYPTIAN HIEROGLYPH AA029 1342C EGYPTIAN HIEROGLYPH AA030 1342D EGYPTIAN HIEROGLYPH AA031 1342E EGYPTIAN HIEROGLYPH AA032 13430 EGYPTIAN HIEROGLYPH VERTICAL JOINER 13431 EGYPTIAN HIEROGLYPH HORIZONTAL JOINER 13432 EGYPTIAN HIEROGLYPH INSERT AT TOP START 13433 EGYPTIAN HIEROGLYPH INSERT AT BOTTOM START 13434 EGYPTIAN HIEROGLYPH INSERT AT TOP END 13435 EGYPTIAN HIEROGLYPH INSERT AT BOTTOM END 13436 EGYPTIAN HIEROGLYPH OVERLAY MIDDLE 13437 EGYPTIAN HIEROGLYPH BEGIN SEGMENT 13438 EGYPTIAN HIEROGLYPH END SEGMENT 14400 ANATOLIAN HIEROGLYPH A001 14401 ANATOLIAN HIEROGLYPH A002 14402 ANATOLIAN HIEROGLYPH A003 14403 ANATOLIAN HIEROGLYPH A004 14404 ANATOLIAN HIEROGLYPH A005 14405 ANATOLIAN HIEROGLYPH A006 14406 ANATOLIAN HIEROGLYPH A007 14407 ANATOLIAN HIEROGLYPH A008 14408 ANATOLIAN HIEROGLYPH A009 14409 ANATOLIAN HIEROGLYPH A010 1440A ANATOLIAN HIEROGLYPH A010A 1440B ANATOLIAN HIEROGLYPH A011 1440C ANATOLIAN HIEROGLYPH A012 1440D ANATOLIAN HIEROGLYPH A013 1440E ANATOLIAN HIEROGLYPH A014 1440F ANATOLIAN HIEROGLYPH A015 14410 ANATOLIAN HIEROGLYPH A016 14411 ANATOLIAN HIEROGLYPH A017 14412 ANATOLIAN HIEROGLYPH A018 14413 ANATOLIAN HIEROGLYPH A019 14414 ANATOLIAN HIEROGLYPH A020 14415 ANATOLIAN HIEROGLYPH A021 14416 ANATOLIAN HIEROGLYPH A022 14417 ANATOLIAN HIEROGLYPH A023 14418 ANATOLIAN HIEROGLYPH A024 14419 ANATOLIAN HIEROGLYPH A025 1441A ANATOLIAN HIEROGLYPH A026 1441B ANATOLIAN HIEROGLYPH A026A 1441C ANATOLIAN HIEROGLYPH A027 1441D ANATOLIAN HIEROGLYPH A028 1441E ANATOLIAN HIEROGLYPH A029 1441F ANATOLIAN HIEROGLYPH A030 14420 ANATOLIAN HIEROGLYPH A031 14421 ANATOLIAN HIEROGLYPH A032 14422 ANATOLIAN HIEROGLYPH A033 14423 ANATOLIAN HIEROGLYPH A034 14424 ANATOLIAN HIEROGLYPH A035 14425 ANATOLIAN HIEROGLYPH A036 14426 ANATOLIAN HIEROGLYPH A037 14427 ANATOLIAN HIEROGLYPH A038 14428 ANATOLIAN HIEROGLYPH A039 14429 ANATOLIAN HIEROGLYPH A039A 1442A ANATOLIAN HIEROGLYPH A040 1442B ANATOLIAN HIEROGLYPH A041 1442C ANATOLIAN HIEROGLYPH A041A 1442D ANATOLIAN HIEROGLYPH A042 1442E ANATOLIAN HIEROGLYPH A043 1442F ANATOLIAN HIEROGLYPH A044 14430 ANATOLIAN HIEROGLYPH A045 14431 ANATOLIAN HIEROGLYPH A045A 14432 ANATOLIAN HIEROGLYPH A046 14433 ANATOLIAN HIEROGLYPH A046A 14434 ANATOLIAN HIEROGLYPH A046B 14435 ANATOLIAN HIEROGLYPH A047 14436 ANATOLIAN HIEROGLYPH A048 14437 ANATOLIAN HIEROGLYPH A049 14438 ANATOLIAN HIEROGLYPH A050 14439 ANATOLIAN HIEROGLYPH A051 1443A ANATOLIAN HIEROGLYPH A052 1443B ANATOLIAN HIEROGLYPH A053 1443C ANATOLIAN HIEROGLYPH A054 1443D ANATOLIAN HIEROGLYPH A055 1443E ANATOLIAN HIEROGLYPH A056 1443F ANATOLIAN HIEROGLYPH A057 14440 ANATOLIAN HIEROGLYPH A058 14441 ANATOLIAN HIEROGLYPH A059 14442 ANATOLIAN HIEROGLYPH A060 14443 ANATOLIAN HIEROGLYPH A061 14444 ANATOLIAN HIEROGLYPH A062 14445 ANATOLIAN HIEROGLYPH A063 14446 ANATOLIAN HIEROGLYPH A064 14447 ANATOLIAN HIEROGLYPH A065 14448 ANATOLIAN HIEROGLYPH A066 14449 ANATOLIAN HIEROGLYPH A066A 1444A ANATOLIAN HIEROGLYPH A066B 1444B ANATOLIAN HIEROGLYPH A066C 1444C ANATOLIAN HIEROGLYPH A067 1444D ANATOLIAN HIEROGLYPH A068 1444E ANATOLIAN HIEROGLYPH A069 1444F ANATOLIAN HIEROGLYPH A070 14450 ANATOLIAN HIEROGLYPH A071 14451 ANATOLIAN HIEROGLYPH A072 14452 ANATOLIAN HIEROGLYPH A073 14453 ANATOLIAN HIEROGLYPH A074 14454 ANATOLIAN HIEROGLYPH A075 14455 ANATOLIAN HIEROGLYPH A076 14456 ANATOLIAN HIEROGLYPH A077 14457 ANATOLIAN HIEROGLYPH A078 14458 ANATOLIAN HIEROGLYPH A079 14459 ANATOLIAN HIEROGLYPH A080 1445A ANATOLIAN HIEROGLYPH A081 1445B ANATOLIAN HIEROGLYPH A082 1445C ANATOLIAN HIEROGLYPH A083 1445D ANATOLIAN HIEROGLYPH A084 1445E ANATOLIAN HIEROGLYPH A085 1445F ANATOLIAN HIEROGLYPH A086 14460 ANATOLIAN HIEROGLYPH A087 14461 ANATOLIAN HIEROGLYPH A088 14462 ANATOLIAN HIEROGLYPH A089 14463 ANATOLIAN HIEROGLYPH A090 14464 ANATOLIAN HIEROGLYPH A091 14465 ANATOLIAN HIEROGLYPH A092 14466 ANATOLIAN HIEROGLYPH A093 14467 ANATOLIAN HIEROGLYPH A094 14468 ANATOLIAN HIEROGLYPH A095 14469 ANATOLIAN HIEROGLYPH A096 1446A ANATOLIAN HIEROGLYPH A097 1446B ANATOLIAN HIEROGLYPH A097A 1446C ANATOLIAN HIEROGLYPH A098 1446D ANATOLIAN HIEROGLYPH A098A 1446E ANATOLIAN HIEROGLYPH A099 1446F ANATOLIAN HIEROGLYPH A100 14470 ANATOLIAN HIEROGLYPH A100A 14471 ANATOLIAN HIEROGLYPH A101 14472 ANATOLIAN HIEROGLYPH A101A 14473 ANATOLIAN HIEROGLYPH A102 14474 ANATOLIAN HIEROGLYPH A102A 14475 ANATOLIAN HIEROGLYPH A103 14476 ANATOLIAN HIEROGLYPH A104 14477 ANATOLIAN HIEROGLYPH A104A 14478 ANATOLIAN HIEROGLYPH A104B 14479 ANATOLIAN HIEROGLYPH A104C 1447A ANATOLIAN HIEROGLYPH A105 1447B ANATOLIAN HIEROGLYPH A105A 1447C ANATOLIAN HIEROGLYPH A105B 1447D ANATOLIAN HIEROGLYPH A106 1447E ANATOLIAN HIEROGLYPH A107 1447F ANATOLIAN HIEROGLYPH A107A 14480 ANATOLIAN HIEROGLYPH A107B 14481 ANATOLIAN HIEROGLYPH A107C 14482 ANATOLIAN HIEROGLYPH A108 14483 ANATOLIAN HIEROGLYPH A109 14484 ANATOLIAN HIEROGLYPH A110 14485 ANATOLIAN HIEROGLYPH A110A 14486 ANATOLIAN HIEROGLYPH A110B 14487 ANATOLIAN HIEROGLYPH A111 14488 ANATOLIAN HIEROGLYPH A112 14489 ANATOLIAN HIEROGLYPH A113 1448A ANATOLIAN HIEROGLYPH A114 1448B ANATOLIAN HIEROGLYPH A115 1448C ANATOLIAN HIEROGLYPH A115A 1448D ANATOLIAN HIEROGLYPH A116 1448E ANATOLIAN HIEROGLYPH A117 1448F ANATOLIAN HIEROGLYPH A118 14490 ANATOLIAN HIEROGLYPH A119 14491 ANATOLIAN HIEROGLYPH A120 14492 ANATOLIAN HIEROGLYPH A121 14493 ANATOLIAN HIEROGLYPH A122 14494 ANATOLIAN HIEROGLYPH A123 14495 ANATOLIAN HIEROGLYPH A124 14496 ANATOLIAN HIEROGLYPH A125 14497 ANATOLIAN HIEROGLYPH A125A 14498 ANATOLIAN HIEROGLYPH A126 14499 ANATOLIAN HIEROGLYPH A127 1449A ANATOLIAN HIEROGLYPH A128 1449B ANATOLIAN HIEROGLYPH A129 1449C ANATOLIAN HIEROGLYPH A130 1449D ANATOLIAN HIEROGLYPH A131 1449E ANATOLIAN HIEROGLYPH A132 1449F ANATOLIAN HIEROGLYPH A133 144A0 ANATOLIAN HIEROGLYPH A134 144A1 ANATOLIAN HIEROGLYPH A135 144A2 ANATOLIAN HIEROGLYPH A135A 144A3 ANATOLIAN HIEROGLYPH A136 144A4 ANATOLIAN HIEROGLYPH A137 144A5 ANATOLIAN HIEROGLYPH A138 144A6 ANATOLIAN HIEROGLYPH A139 144A7 ANATOLIAN HIEROGLYPH A140 144A8 ANATOLIAN HIEROGLYPH A141 144A9 ANATOLIAN HIEROGLYPH A142 144AA ANATOLIAN HIEROGLYPH A143 144AB ANATOLIAN HIEROGLYPH A144 144AC ANATOLIAN HIEROGLYPH A145 144AD ANATOLIAN HIEROGLYPH A146 144AE ANATOLIAN HIEROGLYPH A147 144AF ANATOLIAN HIEROGLYPH A148 144B0 ANATOLIAN HIEROGLYPH A149 144B1 ANATOLIAN HIEROGLYPH A150 144B2 ANATOLIAN HIEROGLYPH A151 144B3 ANATOLIAN HIEROGLYPH A152 144B4 ANATOLIAN HIEROGLYPH A153 144B5 ANATOLIAN HIEROGLYPH A154 144B6 ANATOLIAN HIEROGLYPH A155 144B7 ANATOLIAN HIEROGLYPH A156 144B8 ANATOLIAN HIEROGLYPH A157 144B9 ANATOLIAN HIEROGLYPH A158 144BA ANATOLIAN HIEROGLYPH A159 144BB ANATOLIAN HIEROGLYPH A160 144BC ANATOLIAN HIEROGLYPH A161 144BD ANATOLIAN HIEROGLYPH A162 144BE ANATOLIAN HIEROGLYPH A163 144BF ANATOLIAN HIEROGLYPH A164 144C0 ANATOLIAN HIEROGLYPH A165 144C1 ANATOLIAN HIEROGLYPH A166 144C2 ANATOLIAN HIEROGLYPH A167 144C3 ANATOLIAN HIEROGLYPH A168 144C4 ANATOLIAN HIEROGLYPH A169 144C5 ANATOLIAN HIEROGLYPH A170 144C6 ANATOLIAN HIEROGLYPH A171 144C7 ANATOLIAN HIEROGLYPH A172 144C8 ANATOLIAN HIEROGLYPH A173 144C9 ANATOLIAN HIEROGLYPH A174 144CA ANATOLIAN HIEROGLYPH A175 144CB ANATOLIAN HIEROGLYPH A176 144CC ANATOLIAN HIEROGLYPH A177 144CD ANATOLIAN HIEROGLYPH A178 144CE ANATOLIAN HIEROGLYPH A179 144CF ANATOLIAN HIEROGLYPH A180 144D0 ANATOLIAN HIEROGLYPH A181 144D1 ANATOLIAN HIEROGLYPH A182 144D2 ANATOLIAN HIEROGLYPH A183 144D3 ANATOLIAN HIEROGLYPH A184 144D4 ANATOLIAN HIEROGLYPH A185 144D5 ANATOLIAN HIEROGLYPH A186 144D6 ANATOLIAN HIEROGLYPH A187 144D7 ANATOLIAN HIEROGLYPH A188 144D8 ANATOLIAN HIEROGLYPH A189 144D9 ANATOLIAN HIEROGLYPH A190 144DA ANATOLIAN HIEROGLYPH A191 144DB ANATOLIAN HIEROGLYPH A192 144DC ANATOLIAN HIEROGLYPH A193 144DD ANATOLIAN HIEROGLYPH A194 144DE ANATOLIAN HIEROGLYPH A195 144DF ANATOLIAN HIEROGLYPH A196 144E0 ANATOLIAN HIEROGLYPH A197 144E1 ANATOLIAN HIEROGLYPH A198 144E2 ANATOLIAN HIEROGLYPH A199 144E3 ANATOLIAN HIEROGLYPH A200 144E4 ANATOLIAN HIEROGLYPH A201 144E5 ANATOLIAN HIEROGLYPH A202 144E6 ANATOLIAN HIEROGLYPH A202A 144E7 ANATOLIAN HIEROGLYPH A202B 144E8 ANATOLIAN HIEROGLYPH A203 144E9 ANATOLIAN HIEROGLYPH A204 144EA ANATOLIAN HIEROGLYPH A205 144EB ANATOLIAN HIEROGLYPH A206 144EC ANATOLIAN HIEROGLYPH A207 144ED ANATOLIAN HIEROGLYPH A207A 144EE ANATOLIAN HIEROGLYPH A208 144EF ANATOLIAN HIEROGLYPH A209 144F0 ANATOLIAN HIEROGLYPH A209A 144F1 ANATOLIAN HIEROGLYPH A210 144F2 ANATOLIAN HIEROGLYPH A211 144F3 ANATOLIAN HIEROGLYPH A212 144F4 ANATOLIAN HIEROGLYPH A213 144F5 ANATOLIAN HIEROGLYPH A214 144F6 ANATOLIAN HIEROGLYPH A215 144F7 ANATOLIAN HIEROGLYPH A215A 144F8 ANATOLIAN HIEROGLYPH A216 144F9 ANATOLIAN HIEROGLYPH A216A 144FA ANATOLIAN HIEROGLYPH A217 144FB ANATOLIAN HIEROGLYPH A218 144FC ANATOLIAN HIEROGLYPH A219 144FD ANATOLIAN HIEROGLYPH A220 144FE ANATOLIAN HIEROGLYPH A221 144FF ANATOLIAN HIEROGLYPH A222 14500 ANATOLIAN HIEROGLYPH A223 14501 ANATOLIAN HIEROGLYPH A224 14502 ANATOLIAN HIEROGLYPH A225 14503 ANATOLIAN HIEROGLYPH A226 14504 ANATOLIAN HIEROGLYPH A227 14505 ANATOLIAN HIEROGLYPH A227A 14506 ANATOLIAN HIEROGLYPH A228 14507 ANATOLIAN HIEROGLYPH A229 14508 ANATOLIAN HIEROGLYPH A230 14509 ANATOLIAN HIEROGLYPH A231 1450A ANATOLIAN HIEROGLYPH A232 1450B ANATOLIAN HIEROGLYPH A233 1450C ANATOLIAN HIEROGLYPH A234 1450D ANATOLIAN HIEROGLYPH A235 1450E ANATOLIAN HIEROGLYPH A236 1450F ANATOLIAN HIEROGLYPH A237 14510 ANATOLIAN HIEROGLYPH A238 14511 ANATOLIAN HIEROGLYPH A239 14512 ANATOLIAN HIEROGLYPH A240 14513 ANATOLIAN HIEROGLYPH A241 14514 ANATOLIAN HIEROGLYPH A242 14515 ANATOLIAN HIEROGLYPH A243 14516 ANATOLIAN HIEROGLYPH A244 14517 ANATOLIAN HIEROGLYPH A245 14518 ANATOLIAN HIEROGLYPH A246 14519 ANATOLIAN HIEROGLYPH A247 1451A ANATOLIAN HIEROGLYPH A248 1451B ANATOLIAN HIEROGLYPH A249 1451C ANATOLIAN HIEROGLYPH A250 1451D ANATOLIAN HIEROGLYPH A251 1451E ANATOLIAN HIEROGLYPH A252 1451F ANATOLIAN HIEROGLYPH A253 14520 ANATOLIAN HIEROGLYPH A254 14521 ANATOLIAN HIEROGLYPH A255 14522 ANATOLIAN HIEROGLYPH A256 14523 ANATOLIAN HIEROGLYPH A257 14524 ANATOLIAN HIEROGLYPH A258 14525 ANATOLIAN HIEROGLYPH A259 14526 ANATOLIAN HIEROGLYPH A260 14527 ANATOLIAN HIEROGLYPH A261 14528 ANATOLIAN HIEROGLYPH A262 14529 ANATOLIAN HIEROGLYPH A263 1452A ANATOLIAN HIEROGLYPH A264 1452B ANATOLIAN HIEROGLYPH A265 1452C ANATOLIAN HIEROGLYPH A266 1452D ANATOLIAN HIEROGLYPH A267 1452E ANATOLIAN HIEROGLYPH A267A 1452F ANATOLIAN HIEROGLYPH A268 14530 ANATOLIAN HIEROGLYPH A269 14531 ANATOLIAN HIEROGLYPH A270 14532 ANATOLIAN HIEROGLYPH A271 14533 ANATOLIAN HIEROGLYPH A272 14534 ANATOLIAN HIEROGLYPH A273 14535 ANATOLIAN HIEROGLYPH A274 14536 ANATOLIAN HIEROGLYPH A275 14537 ANATOLIAN HIEROGLYPH A276 14538 ANATOLIAN HIEROGLYPH A277 14539 ANATOLIAN HIEROGLYPH A278 1453A ANATOLIAN HIEROGLYPH A279 1453B ANATOLIAN HIEROGLYPH A280 1453C ANATOLIAN HIEROGLYPH A281 1453D ANATOLIAN HIEROGLYPH A282 1453E ANATOLIAN HIEROGLYPH A283 1453F ANATOLIAN HIEROGLYPH A284 14540 ANATOLIAN HIEROGLYPH A285 14541 ANATOLIAN HIEROGLYPH A286 14542 ANATOLIAN HIEROGLYPH A287 14543 ANATOLIAN HIEROGLYPH A288 14544 ANATOLIAN HIEROGLYPH A289 14545 ANATOLIAN HIEROGLYPH A289A 14546 ANATOLIAN HIEROGLYPH A290 14547 ANATOLIAN HIEROGLYPH A291 14548 ANATOLIAN HIEROGLYPH A292 14549 ANATOLIAN HIEROGLYPH A293 1454A ANATOLIAN HIEROGLYPH A294 1454B ANATOLIAN HIEROGLYPH A294A 1454C ANATOLIAN HIEROGLYPH A295 1454D ANATOLIAN HIEROGLYPH A296 1454E ANATOLIAN HIEROGLYPH A297 1454F ANATOLIAN HIEROGLYPH A298 14550 ANATOLIAN HIEROGLYPH A299 14551 ANATOLIAN HIEROGLYPH A299A 14552 ANATOLIAN HIEROGLYPH A300 14553 ANATOLIAN HIEROGLYPH A301 14554 ANATOLIAN HIEROGLYPH A302 14555 ANATOLIAN HIEROGLYPH A303 14556 ANATOLIAN HIEROGLYPH A304 14557 ANATOLIAN HIEROGLYPH A305 14558 ANATOLIAN HIEROGLYPH A306 14559 ANATOLIAN HIEROGLYPH A307 1455A ANATOLIAN HIEROGLYPH A308 1455B ANATOLIAN HIEROGLYPH A309 1455C ANATOLIAN HIEROGLYPH A309A 1455D ANATOLIAN HIEROGLYPH A310 1455E ANATOLIAN HIEROGLYPH A311 1455F ANATOLIAN HIEROGLYPH A312 14560 ANATOLIAN HIEROGLYPH A313 14561 ANATOLIAN HIEROGLYPH A314 14562 ANATOLIAN HIEROGLYPH A315 14563 ANATOLIAN HIEROGLYPH A316 14564 ANATOLIAN HIEROGLYPH A317 14565 ANATOLIAN HIEROGLYPH A318 14566 ANATOLIAN HIEROGLYPH A319 14567 ANATOLIAN HIEROGLYPH A320 14568 ANATOLIAN HIEROGLYPH A321 14569 ANATOLIAN HIEROGLYPH A322 1456A ANATOLIAN HIEROGLYPH A323 1456B ANATOLIAN HIEROGLYPH A324 1456C ANATOLIAN HIEROGLYPH A325 1456D ANATOLIAN HIEROGLYPH A326 1456E ANATOLIAN HIEROGLYPH A327 1456F ANATOLIAN HIEROGLYPH A328 14570 ANATOLIAN HIEROGLYPH A329 14571 ANATOLIAN HIEROGLYPH A329A 14572 ANATOLIAN HIEROGLYPH A330 14573 ANATOLIAN HIEROGLYPH A331 14574 ANATOLIAN HIEROGLYPH A332A 14575 ANATOLIAN HIEROGLYPH A332B 14576 ANATOLIAN HIEROGLYPH A332C 14577 ANATOLIAN HIEROGLYPH A333 14578 ANATOLIAN HIEROGLYPH A334 14579 ANATOLIAN HIEROGLYPH A335 1457A ANATOLIAN HIEROGLYPH A336 1457B ANATOLIAN HIEROGLYPH A336A 1457C ANATOLIAN HIEROGLYPH A336B 1457D ANATOLIAN HIEROGLYPH A336C 1457E ANATOLIAN HIEROGLYPH A337 1457F ANATOLIAN HIEROGLYPH A338 14580 ANATOLIAN HIEROGLYPH A339 14581 ANATOLIAN HIEROGLYPH A340 14582 ANATOLIAN HIEROGLYPH A341 14583 ANATOLIAN HIEROGLYPH A342 14584 ANATOLIAN HIEROGLYPH A343 14585 ANATOLIAN HIEROGLYPH A344 14586 ANATOLIAN HIEROGLYPH A345 14587 ANATOLIAN HIEROGLYPH A346 14588 ANATOLIAN HIEROGLYPH A347 14589 ANATOLIAN HIEROGLYPH A348 1458A ANATOLIAN HIEROGLYPH A349 1458B ANATOLIAN HIEROGLYPH A350 1458C ANATOLIAN HIEROGLYPH A351 1458D ANATOLIAN HIEROGLYPH A352 1458E ANATOLIAN HIEROGLYPH A353 1458F ANATOLIAN HIEROGLYPH A354 14590 ANATOLIAN HIEROGLYPH A355 14591 ANATOLIAN HIEROGLYPH A356 14592 ANATOLIAN HIEROGLYPH A357 14593 ANATOLIAN HIEROGLYPH A358 14594 ANATOLIAN HIEROGLYPH A359 14595 ANATOLIAN HIEROGLYPH A359A 14596 ANATOLIAN HIEROGLYPH A360 14597 ANATOLIAN HIEROGLYPH A361 14598 ANATOLIAN HIEROGLYPH A362 14599 ANATOLIAN HIEROGLYPH A363 1459A ANATOLIAN HIEROGLYPH A364 1459B ANATOLIAN HIEROGLYPH A364A 1459C ANATOLIAN HIEROGLYPH A365 1459D ANATOLIAN HIEROGLYPH A366 1459E ANATOLIAN HIEROGLYPH A367 1459F ANATOLIAN HIEROGLYPH A368 145A0 ANATOLIAN HIEROGLYPH A368A 145A1 ANATOLIAN HIEROGLYPH A369 145A2 ANATOLIAN HIEROGLYPH A370 145A3 ANATOLIAN HIEROGLYPH A371 145A4 ANATOLIAN HIEROGLYPH A371A 145A5 ANATOLIAN HIEROGLYPH A372 145A6 ANATOLIAN HIEROGLYPH A373 145A7 ANATOLIAN HIEROGLYPH A374 145A8 ANATOLIAN HIEROGLYPH A375 145A9 ANATOLIAN HIEROGLYPH A376 145AA ANATOLIAN HIEROGLYPH A377 145AB ANATOLIAN HIEROGLYPH A378 145AC ANATOLIAN HIEROGLYPH A379 145AD ANATOLIAN HIEROGLYPH A380 145AE ANATOLIAN HIEROGLYPH A381 145AF ANATOLIAN HIEROGLYPH A381A 145B0 ANATOLIAN HIEROGLYPH A382 145B1 ANATOLIAN HIEROGLYPH A383 RA OR RI 145B2 ANATOLIAN HIEROGLYPH A383A 145B3 ANATOLIAN HIEROGLYPH A384 145B4 ANATOLIAN HIEROGLYPH A385 145B5 ANATOLIAN HIEROGLYPH A386 145B6 ANATOLIAN HIEROGLYPH A386A 145B7 ANATOLIAN HIEROGLYPH A387 145B8 ANATOLIAN HIEROGLYPH A388 145B9 ANATOLIAN HIEROGLYPH A389 145BA ANATOLIAN HIEROGLYPH A390 145BB ANATOLIAN HIEROGLYPH A391 145BC ANATOLIAN HIEROGLYPH A392 145BD ANATOLIAN HIEROGLYPH A393 EIGHT 145BE ANATOLIAN HIEROGLYPH A394 145BF ANATOLIAN HIEROGLYPH A395 145C0 ANATOLIAN HIEROGLYPH A396 145C1 ANATOLIAN HIEROGLYPH A397 145C2 ANATOLIAN HIEROGLYPH A398 145C3 ANATOLIAN HIEROGLYPH A399 145C4 ANATOLIAN HIEROGLYPH A400 145C5 ANATOLIAN HIEROGLYPH A401 145C6 ANATOLIAN HIEROGLYPH A402 145C7 ANATOLIAN HIEROGLYPH A403 145C8 ANATOLIAN HIEROGLYPH A404 145C9 ANATOLIAN HIEROGLYPH A405 145CA ANATOLIAN HIEROGLYPH A406 145CB ANATOLIAN HIEROGLYPH A407 145CC ANATOLIAN HIEROGLYPH A408 145CD ANATOLIAN HIEROGLYPH A409 145CE ANATOLIAN HIEROGLYPH A410 BEGIN LOGOGRAM MARK 145CF ANATOLIAN HIEROGLYPH A410A END LOGOGRAM MARK 145D0 ANATOLIAN HIEROGLYPH A411 145D1 ANATOLIAN HIEROGLYPH A412 145D2 ANATOLIAN HIEROGLYPH A413 145D3 ANATOLIAN HIEROGLYPH A414 145D4 ANATOLIAN HIEROGLYPH A415 145D5 ANATOLIAN HIEROGLYPH A416 145D6 ANATOLIAN HIEROGLYPH A417 145D7 ANATOLIAN HIEROGLYPH A418 145D8 ANATOLIAN HIEROGLYPH A419 145D9 ANATOLIAN HIEROGLYPH A420 145DA ANATOLIAN HIEROGLYPH A421 145DB ANATOLIAN HIEROGLYPH A422 145DC ANATOLIAN HIEROGLYPH A423 145DD ANATOLIAN HIEROGLYPH A424 145DE ANATOLIAN HIEROGLYPH A425 145DF ANATOLIAN HIEROGLYPH A426 145E0 ANATOLIAN HIEROGLYPH A427 145E1 ANATOLIAN HIEROGLYPH A428 145E2 ANATOLIAN HIEROGLYPH A429 145E3 ANATOLIAN HIEROGLYPH A430 145E4 ANATOLIAN HIEROGLYPH A431 145E5 ANATOLIAN HIEROGLYPH A432 145E6 ANATOLIAN HIEROGLYPH A433 145E7 ANATOLIAN HIEROGLYPH A434 145E8 ANATOLIAN HIEROGLYPH A435 145E9 ANATOLIAN HIEROGLYPH A436 145EA ANATOLIAN HIEROGLYPH A437 145EB ANATOLIAN HIEROGLYPH A438 145EC ANATOLIAN HIEROGLYPH A439 145ED ANATOLIAN HIEROGLYPH A440 145EE ANATOLIAN HIEROGLYPH A441 145EF ANATOLIAN HIEROGLYPH A442 145F0 ANATOLIAN HIEROGLYPH A443 145F1 ANATOLIAN HIEROGLYPH A444 145F2 ANATOLIAN HIEROGLYPH A445 145F3 ANATOLIAN HIEROGLYPH A446 145F4 ANATOLIAN HIEROGLYPH A447 145F5 ANATOLIAN HIEROGLYPH A448 145F6 ANATOLIAN HIEROGLYPH A449 145F7 ANATOLIAN HIEROGLYPH A450 145F8 ANATOLIAN HIEROGLYPH A450A 145F9 ANATOLIAN HIEROGLYPH A451 145FA ANATOLIAN HIEROGLYPH A452 145FB ANATOLIAN HIEROGLYPH A453 145FC ANATOLIAN HIEROGLYPH A454 145FD ANATOLIAN HIEROGLYPH A455 145FE ANATOLIAN HIEROGLYPH A456 145FF ANATOLIAN HIEROGLYPH A457 14600 ANATOLIAN HIEROGLYPH A457A 14601 ANATOLIAN HIEROGLYPH A458 14602 ANATOLIAN HIEROGLYPH A459 14603 ANATOLIAN HIEROGLYPH A460 14604 ANATOLIAN HIEROGLYPH A461 14605 ANATOLIAN HIEROGLYPH A462 14606 ANATOLIAN HIEROGLYPH A463 14607 ANATOLIAN HIEROGLYPH A464 14608 ANATOLIAN HIEROGLYPH A465 14609 ANATOLIAN HIEROGLYPH A466 1460A ANATOLIAN HIEROGLYPH A467 1460B ANATOLIAN HIEROGLYPH A468 1460C ANATOLIAN HIEROGLYPH A469 1460D ANATOLIAN HIEROGLYPH A470 1460E ANATOLIAN HIEROGLYPH A471 1460F ANATOLIAN HIEROGLYPH A472 14610 ANATOLIAN HIEROGLYPH A473 14611 ANATOLIAN HIEROGLYPH A474 14612 ANATOLIAN HIEROGLYPH A475 14613 ANATOLIAN HIEROGLYPH A476 14614 ANATOLIAN HIEROGLYPH A477 14615 ANATOLIAN HIEROGLYPH A478 14616 ANATOLIAN HIEROGLYPH A479 14617 ANATOLIAN HIEROGLYPH A480 14618 ANATOLIAN HIEROGLYPH A481 14619 ANATOLIAN HIEROGLYPH A482 1461A ANATOLIAN HIEROGLYPH A483 1461B ANATOLIAN HIEROGLYPH A484 1461C ANATOLIAN HIEROGLYPH A485 1461D ANATOLIAN HIEROGLYPH A486 1461E ANATOLIAN HIEROGLYPH A487 1461F ANATOLIAN HIEROGLYPH A488 14620 ANATOLIAN HIEROGLYPH A489 14621 ANATOLIAN HIEROGLYPH A490 14622 ANATOLIAN HIEROGLYPH A491 14623 ANATOLIAN HIEROGLYPH A492 14624 ANATOLIAN HIEROGLYPH A493 14625 ANATOLIAN HIEROGLYPH A494 14626 ANATOLIAN HIEROGLYPH A495 14627 ANATOLIAN HIEROGLYPH A496 14628 ANATOLIAN HIEROGLYPH A497 14629 ANATOLIAN HIEROGLYPH A501 1462A ANATOLIAN HIEROGLYPH A502 1462B ANATOLIAN HIEROGLYPH A503 1462C ANATOLIAN HIEROGLYPH A504 1462D ANATOLIAN HIEROGLYPH A505 1462E ANATOLIAN HIEROGLYPH A506 1462F ANATOLIAN HIEROGLYPH A507 14630 ANATOLIAN HIEROGLYPH A508 14631 ANATOLIAN HIEROGLYPH A509 14632 ANATOLIAN HIEROGLYPH A510 14633 ANATOLIAN HIEROGLYPH A511 14634 ANATOLIAN HIEROGLYPH A512 14635 ANATOLIAN HIEROGLYPH A513 14636 ANATOLIAN HIEROGLYPH A514 14637 ANATOLIAN HIEROGLYPH A515 14638 ANATOLIAN HIEROGLYPH A516 14639 ANATOLIAN HIEROGLYPH A517 1463A ANATOLIAN HIEROGLYPH A518 1463B ANATOLIAN HIEROGLYPH A519 1463C ANATOLIAN HIEROGLYPH A520 1463D ANATOLIAN HIEROGLYPH A521 1463E ANATOLIAN HIEROGLYPH A522 1463F ANATOLIAN HIEROGLYPH A523 14640 ANATOLIAN HIEROGLYPH A524 14641 ANATOLIAN HIEROGLYPH A525 14642 ANATOLIAN HIEROGLYPH A526 14643 ANATOLIAN HIEROGLYPH A527 14644 ANATOLIAN HIEROGLYPH A528 14645 ANATOLIAN HIEROGLYPH A529 14646 ANATOLIAN HIEROGLYPH A530 16800 BAMUM LETTER PHASE-A NGKUE MFON 16801 BAMUM LETTER PHASE-A GBIEE FON 16802 BAMUM LETTER PHASE-A PON MFON PIPAEMGBIEE 16803 BAMUM LETTER PHASE-A PON MFON PIPAEMBA 16804 BAMUM LETTER PHASE-A NAA MFON 16805 BAMUM LETTER PHASE-A SHUENSHUET 16806 BAMUM LETTER PHASE-A TITA MFON 16807 BAMUM LETTER PHASE-A NZA MFON 16808 BAMUM LETTER PHASE-A SHINDA PA NJI 16809 BAMUM LETTER PHASE-A PON PA NJI PIPAEMGBIEE 1680A BAMUM LETTER PHASE-A PON PA NJI PIPAEMBA 1680B BAMUM LETTER PHASE-A MAEMBGBIEE 1680C BAMUM LETTER PHASE-A TU MAEMBA 1680D BAMUM LETTER PHASE-A NGANGU 1680E BAMUM LETTER PHASE-A MAEMVEUX 1680F BAMUM LETTER PHASE-A MANSUAE 16810 BAMUM LETTER PHASE-A MVEUAENGAM 16811 BAMUM LETTER PHASE-A SEUNYAM 16812 BAMUM LETTER PHASE-A NTOQPEN 16813 BAMUM LETTER PHASE-A KEUKEUTNDA 16814 BAMUM LETTER PHASE-A NKINDI 16815 BAMUM LETTER PHASE-A SUU 16816 BAMUM LETTER PHASE-A NGKUENZEUM 16817 BAMUM LETTER PHASE-A LAPAQ 16818 BAMUM LETTER PHASE-A LET KUT 16819 BAMUM LETTER PHASE-A NTAP MFAA 1681A BAMUM LETTER PHASE-A MAEKEUP 1681B BAMUM LETTER PHASE-A PASHAE 1681C BAMUM LETTER PHASE-A GHEUAERAE 1681D BAMUM LETTER PHASE-A PAMSHAE 1681E BAMUM LETTER PHASE-A MON NGGEUAET 1681F BAMUM LETTER PHASE-A NZUN MEUT 16820 BAMUM LETTER PHASE-A U YUQ NAE 16821 BAMUM LETTER PHASE-A GHEUAEGHEUAE 16822 BAMUM LETTER PHASE-A NTAP NTAA 16823 BAMUM LETTER PHASE-A SISA 16824 BAMUM LETTER PHASE-A MGBASA 16825 BAMUM LETTER PHASE-A MEUNJOMNDEUQ 16826 BAMUM LETTER PHASE-A MOOMPUQ 16827 BAMUM LETTER PHASE-A KAFA 16828 BAMUM LETTER PHASE-A PA LEERAEWA 16829 BAMUM LETTER PHASE-A NDA LEERAEWA 1682A BAMUM LETTER PHASE-A PET 1682B BAMUM LETTER PHASE-A MAEMKPEN 1682C BAMUM LETTER PHASE-A NIKA 1682D BAMUM LETTER PHASE-A PUP 1682E BAMUM LETTER PHASE-A TUAEP 1682F BAMUM LETTER PHASE-A LUAEP 16830 BAMUM LETTER PHASE-A SONJAM 16831 BAMUM LETTER PHASE-A TEUTEUWEN 16832 BAMUM LETTER PHASE-A MAENYI 16833 BAMUM LETTER PHASE-A KET 16834 BAMUM LETTER PHASE-A NDAANGGEUAET 16835 BAMUM LETTER PHASE-A KUOQ 16836 BAMUM LETTER PHASE-A MOOMEUT 16837 BAMUM LETTER PHASE-A SHUM 16838 BAMUM LETTER PHASE-A LOMMAE 16839 BAMUM LETTER PHASE-A FIRI 1683A BAMUM LETTER PHASE-A ROM 1683B BAMUM LETTER PHASE-A KPOQ 1683C BAMUM LETTER PHASE-A SOQ 1683D BAMUM LETTER PHASE-A MAP PIEET 1683E BAMUM LETTER PHASE-A SHIRAE 1683F BAMUM LETTER PHASE-A NTAP 16840 BAMUM LETTER PHASE-A SHOQ NSHUT YUM 16841 BAMUM LETTER PHASE-A NYIT MONGKEUAEQ 16842 BAMUM LETTER PHASE-A PAARAE 16843 BAMUM LETTER PHASE-A NKAARAE 16844 BAMUM LETTER PHASE-A UNKNOWN 16845 BAMUM LETTER PHASE-A NGGEN 16846 BAMUM LETTER PHASE-A MAESI 16847 BAMUM LETTER PHASE-A NJAM 16848 BAMUM LETTER PHASE-A MBANYI 16849 BAMUM LETTER PHASE-A NYET 1684A BAMUM LETTER PHASE-A TEUAEN 1684B BAMUM LETTER PHASE-A SOT 1684C BAMUM LETTER PHASE-A PAAM 1684D BAMUM LETTER PHASE-A NSHIEE 1684E BAMUM LETTER PHASE-A MAEM 1684F BAMUM LETTER PHASE-A NYI 16850 BAMUM LETTER PHASE-A KAQ 16851 BAMUM LETTER PHASE-A NSHA 16852 BAMUM LETTER PHASE-A VEE 16853 BAMUM LETTER PHASE-A LU 16854 BAMUM LETTER PHASE-A NEN 16855 BAMUM LETTER PHASE-A NAQ 16856 BAMUM LETTER PHASE-A MBAQ 16857 BAMUM LETTER PHASE-B NSHUET 16858 BAMUM LETTER PHASE-B TU MAEMGBIEE 16859 BAMUM LETTER PHASE-B SIEE 1685A BAMUM LETTER PHASE-B SET TU 1685B BAMUM LETTER PHASE-B LOM NTEUM 1685C BAMUM LETTER PHASE-B MBA MAELEE 1685D BAMUM LETTER PHASE-B KIEEM 1685E BAMUM LETTER PHASE-B YEURAE 1685F BAMUM LETTER PHASE-B MBAARAE 16860 BAMUM LETTER PHASE-B KAM 16861 BAMUM LETTER PHASE-B PEESHI 16862 BAMUM LETTER PHASE-B YAFU LEERAEWA 16863 BAMUM LETTER PHASE-B LAM NSHUT NYAM 16864 BAMUM LETTER PHASE-B NTIEE SHEUOQ 16865 BAMUM LETTER PHASE-B NDU NJAA 16866 BAMUM LETTER PHASE-B GHEUGHEUAEM 16867 BAMUM LETTER PHASE-B PIT 16868 BAMUM LETTER PHASE-B TU NSIEE 16869 BAMUM LETTER PHASE-B SHET NJAQ 1686A BAMUM LETTER PHASE-B SHEUAEQTU 1686B BAMUM LETTER PHASE-B MFON TEUAEQ 1686C BAMUM LETTER PHASE-B MBIT MBAAKET 1686D BAMUM LETTER PHASE-B NYI NTEUM 1686E BAMUM LETTER PHASE-B KEUPUQ 1686F BAMUM LETTER PHASE-B GHEUGHEN 16870 BAMUM LETTER PHASE-B KEUYEUX 16871 BAMUM LETTER PHASE-B LAANAE 16872 BAMUM LETTER PHASE-B PARUM 16873 BAMUM LETTER PHASE-B VEUM 16874 BAMUM LETTER PHASE-B NGKINDI MVOP 16875 BAMUM LETTER PHASE-B NGGEU MBU 16876 BAMUM LETTER PHASE-B WUAET 16877 BAMUM LETTER PHASE-B SAKEUAE 16878 BAMUM LETTER PHASE-B TAAM 16879 BAMUM LETTER PHASE-B MEUQ 1687A BAMUM LETTER PHASE-B NGGUOQ 1687B BAMUM LETTER PHASE-B NGGUOQ LARGE 1687C BAMUM LETTER PHASE-B MFIYAQ 1687D BAMUM LETTER PHASE-B SUE 1687E BAMUM LETTER PHASE-B MBEURI 1687F BAMUM LETTER PHASE-B MONTIEEN 16880 BAMUM LETTER PHASE-B NYAEMAE 16881 BAMUM LETTER PHASE-B PUNGAAM 16882 BAMUM LETTER PHASE-B MEUT NGGEET 16883 BAMUM LETTER PHASE-B FEUX 16884 BAMUM LETTER PHASE-B MBUOQ 16885 BAMUM LETTER PHASE-B FEE 16886 BAMUM LETTER PHASE-B KEUAEM 16887 BAMUM LETTER PHASE-B MA NJEUAENA 16888 BAMUM LETTER PHASE-B MA NJUQA 16889 BAMUM LETTER PHASE-B LET 1688A BAMUM LETTER PHASE-B NGGAAM 1688B BAMUM LETTER PHASE-B NSEN 1688C BAMUM LETTER PHASE-B MA 1688D BAMUM LETTER PHASE-B KIQ 1688E BAMUM LETTER PHASE-B NGOM 1688F BAMUM LETTER PHASE-C NGKUE MAEMBA 16890 BAMUM LETTER PHASE-C NZA 16891 BAMUM LETTER PHASE-C YUM 16892 BAMUM LETTER PHASE-C WANGKUOQ 16893 BAMUM LETTER PHASE-C NGGEN 16894 BAMUM LETTER PHASE-C NDEUAEREE 16895 BAMUM LETTER PHASE-C NGKAQ 16896 BAMUM LETTER PHASE-C GHARAE 16897 BAMUM LETTER PHASE-C MBEEKEET 16898 BAMUM LETTER PHASE-C GBAYI 16899 BAMUM LETTER PHASE-C NYIR MKPARAQ MEUN 1689A BAMUM LETTER PHASE-C NTU MBIT 1689B BAMUM LETTER PHASE-C MBEUM 1689C BAMUM LETTER PHASE-C PIRIEEN 1689D BAMUM LETTER PHASE-C NDOMBU 1689E BAMUM LETTER PHASE-C MBAA CABBAGE-TREE 1689F BAMUM LETTER PHASE-C KEUSHEUAEP 168A0 BAMUM LETTER PHASE-C GHAP 168A1 BAMUM LETTER PHASE-C KEUKAQ 168A2 BAMUM LETTER PHASE-C YU MUOMAE 168A3 BAMUM LETTER PHASE-C NZEUM 168A4 BAMUM LETTER PHASE-C MBUE 168A5 BAMUM LETTER PHASE-C NSEUAEN 168A6 BAMUM LETTER PHASE-C MBIT 168A7 BAMUM LETTER PHASE-C YEUQ 168A8 BAMUM LETTER PHASE-C KPARAQ 168A9 BAMUM LETTER PHASE-C KAA 168AA BAMUM LETTER PHASE-C SEUX 168AB BAMUM LETTER PHASE-C NDIDA 168AC BAMUM LETTER PHASE-C TAASHAE 168AD BAMUM LETTER PHASE-C NJUEQ 168AE BAMUM LETTER PHASE-C TITA YUE 168AF BAMUM LETTER PHASE-C SUAET 168B0 BAMUM LETTER PHASE-C NGGUAEN NYAM 168B1 BAMUM LETTER PHASE-C VEUX 168B2 BAMUM LETTER PHASE-C NANSANAQ 168B3 BAMUM LETTER PHASE-C MA KEUAERI 168B4 BAMUM LETTER PHASE-C NTAA 168B5 BAMUM LETTER PHASE-C NGGUON 168B6 BAMUM LETTER PHASE-C LAP 168B7 BAMUM LETTER PHASE-C MBIRIEEN 168B8 BAMUM LETTER PHASE-C MGBASAQ 168B9 BAMUM LETTER PHASE-C NTEUNGBA 168BA BAMUM LETTER PHASE-C TEUTEUX 168BB BAMUM LETTER PHASE-C NGGUM 168BC BAMUM LETTER PHASE-C FUE 168BD BAMUM LETTER PHASE-C NDEUT 168BE BAMUM LETTER PHASE-C NSA 168BF BAMUM LETTER PHASE-C NSHAQ 168C0 BAMUM LETTER PHASE-C BUNG 168C1 BAMUM LETTER PHASE-C VEUAEPEN 168C2 BAMUM LETTER PHASE-C MBERAE 168C3 BAMUM LETTER PHASE-C RU 168C4 BAMUM LETTER PHASE-C NJAEM 168C5 BAMUM LETTER PHASE-C LAM 168C6 BAMUM LETTER PHASE-C TITUAEP 168C7 BAMUM LETTER PHASE-C NSUOT NGOM 168C8 BAMUM LETTER PHASE-C NJEEEE 168C9 BAMUM LETTER PHASE-C KET 168CA BAMUM LETTER PHASE-C NGGU 168CB BAMUM LETTER PHASE-C MAESI 168CC BAMUM LETTER PHASE-C MBUAEM 168CD BAMUM LETTER PHASE-C LU 168CE BAMUM LETTER PHASE-C KUT 168CF BAMUM LETTER PHASE-C NJAM 168D0 BAMUM LETTER PHASE-C NGOM 168D1 BAMUM LETTER PHASE-C WUP 168D2 BAMUM LETTER PHASE-C NGGUEET 168D3 BAMUM LETTER PHASE-C NSOM 168D4 BAMUM LETTER PHASE-C NTEN 168D5 BAMUM LETTER PHASE-C KUOP NKAARAE 168D6 BAMUM LETTER PHASE-C NSUN 168D7 BAMUM LETTER PHASE-C NDAM 168D8 BAMUM LETTER PHASE-C MA NSIEE 168D9 BAMUM LETTER PHASE-C YAA 168DA BAMUM LETTER PHASE-C NDAP 168DB BAMUM LETTER PHASE-C SHUEQ 168DC BAMUM LETTER PHASE-C SETFON 168DD BAMUM LETTER PHASE-C MBI 168DE BAMUM LETTER PHASE-C MAEMBA 168DF BAMUM LETTER PHASE-C MBANYI 168E0 BAMUM LETTER PHASE-C KEUSEUX 168E1 BAMUM LETTER PHASE-C MBEUX 168E2 BAMUM LETTER PHASE-C KEUM 168E3 BAMUM LETTER PHASE-C MBAA PICKET 168E4 BAMUM LETTER PHASE-C YUWOQ 168E5 BAMUM LETTER PHASE-C NJEUX 168E6 BAMUM LETTER PHASE-C MIEE 168E7 BAMUM LETTER PHASE-C MUAE 168E8 BAMUM LETTER PHASE-C SHIQ 168E9 BAMUM LETTER PHASE-C KEN LAW 168EA BAMUM LETTER PHASE-C KEN FATIGUE 168EB BAMUM LETTER PHASE-C NGAQ 168EC BAMUM LETTER PHASE-C NAQ 168ED BAMUM LETTER PHASE-C LIQ 168EE BAMUM LETTER PHASE-C PIN 168EF BAMUM LETTER PHASE-C PEN 168F0 BAMUM LETTER PHASE-C TET 168F1 BAMUM LETTER PHASE-D MBUO 168F2 BAMUM LETTER PHASE-D WAP 168F3 BAMUM LETTER PHASE-D NJI 168F4 BAMUM LETTER PHASE-D MFON 168F5 BAMUM LETTER PHASE-D NJIEE 168F6 BAMUM LETTER PHASE-D LIEE 168F7 BAMUM LETTER PHASE-D NJEUT 168F8 BAMUM LETTER PHASE-D NSHEE 168F9 BAMUM LETTER PHASE-D NGGAAMAE 168FA BAMUM LETTER PHASE-D NYAM 168FB BAMUM LETTER PHASE-D WUAEN 168FC BAMUM LETTER PHASE-D NGKUN 168FD BAMUM LETTER PHASE-D SHEE 168FE BAMUM LETTER PHASE-D NGKAP 168FF BAMUM LETTER PHASE-D KEUAETMEUN 16900 BAMUM LETTER PHASE-D TEUT 16901 BAMUM LETTER PHASE-D SHEUAE 16902 BAMUM LETTER PHASE-D NJAP 16903 BAMUM LETTER PHASE-D SUE 16904 BAMUM LETTER PHASE-D KET 16905 BAMUM LETTER PHASE-D YAEMMAE 16906 BAMUM LETTER PHASE-D KUOM 16907 BAMUM LETTER PHASE-D SAP 16908 BAMUM LETTER PHASE-D MFEUT 16909 BAMUM LETTER PHASE-D NDEUX 1690A BAMUM LETTER PHASE-D MALEERI 1690B BAMUM LETTER PHASE-D MEUT 1690C BAMUM LETTER PHASE-D SEUAEQ 1690D BAMUM LETTER PHASE-D YEN 1690E BAMUM LETTER PHASE-D NJEUAEM 1690F BAMUM LETTER PHASE-D KEUOT MBUAE 16910 BAMUM LETTER PHASE-D NGKEURI 16911 BAMUM LETTER PHASE-D TU 16912 BAMUM LETTER PHASE-D GHAA 16913 BAMUM LETTER PHASE-D NGKYEE 16914 BAMUM LETTER PHASE-D FEUFEUAET 16915 BAMUM LETTER PHASE-D NDEE 16916 BAMUM LETTER PHASE-D MGBOFUM 16917 BAMUM LETTER PHASE-D LEUAEP 16918 BAMUM LETTER PHASE-D NDON 16919 BAMUM LETTER PHASE-D MONI 1691A BAMUM LETTER PHASE-D MGBEUN 1691B BAMUM LETTER PHASE-D PUUT 1691C BAMUM LETTER PHASE-D MGBIEE 1691D BAMUM LETTER PHASE-D MFO 1691E BAMUM LETTER PHASE-D LUM 1691F BAMUM LETTER PHASE-D NSIEEP 16920 BAMUM LETTER PHASE-D MBAA 16921 BAMUM LETTER PHASE-D KWAET 16922 BAMUM LETTER PHASE-D NYET 16923 BAMUM LETTER PHASE-D TEUAEN 16924 BAMUM LETTER PHASE-D SOT 16925 BAMUM LETTER PHASE-D YUWOQ 16926 BAMUM LETTER PHASE-D KEUM 16927 BAMUM LETTER PHASE-D RAEM 16928 BAMUM LETTER PHASE-D TEEEE 16929 BAMUM LETTER PHASE-D NGKEUAEQ 1692A BAMUM LETTER PHASE-D MFEUAE 1692B BAMUM LETTER PHASE-D NSIEET 1692C BAMUM LETTER PHASE-D KEUP 1692D BAMUM LETTER PHASE-D PIP 1692E BAMUM LETTER PHASE-D PEUTAE 1692F BAMUM LETTER PHASE-D NYUE 16930 BAMUM LETTER PHASE-D LET 16931 BAMUM LETTER PHASE-D NGGAAM 16932 BAMUM LETTER PHASE-D MFIEE 16933 BAMUM LETTER PHASE-D NGGWAEN 16934 BAMUM LETTER PHASE-D YUOM 16935 BAMUM LETTER PHASE-D PAP 16936 BAMUM LETTER PHASE-D YUOP 16937 BAMUM LETTER PHASE-D NDAM 16938 BAMUM LETTER PHASE-D NTEUM 16939 BAMUM LETTER PHASE-D SUAE 1693A BAMUM LETTER PHASE-D KUN 1693B BAMUM LETTER PHASE-D NGGEUX 1693C BAMUM LETTER PHASE-D NGKIEE 1693D BAMUM LETTER PHASE-D TUOT 1693E BAMUM LETTER PHASE-D MEUN 1693F BAMUM LETTER PHASE-D KUQ 16940 BAMUM LETTER PHASE-D NSUM 16941 BAMUM LETTER PHASE-D TEUN 16942 BAMUM LETTER PHASE-D MAENJET 16943 BAMUM LETTER PHASE-D NGGAP 16944 BAMUM LETTER PHASE-D LEUM 16945 BAMUM LETTER PHASE-D NGGUOM 16946 BAMUM LETTER PHASE-D NSHUT 16947 BAMUM LETTER PHASE-D NJUEQ 16948 BAMUM LETTER PHASE-D GHEUAE 16949 BAMUM LETTER PHASE-D KU 1694A BAMUM LETTER PHASE-D REN OLD 1694B BAMUM LETTER PHASE-D TAE 1694C BAMUM LETTER PHASE-D TOQ 1694D BAMUM LETTER PHASE-D NYI 1694E BAMUM LETTER PHASE-D RII 1694F BAMUM LETTER PHASE-D LEEEE 16950 BAMUM LETTER PHASE-D MEEEE 16951 BAMUM LETTER PHASE-D M 16952 BAMUM LETTER PHASE-D SUU 16953 BAMUM LETTER PHASE-D MU 16954 BAMUM LETTER PHASE-D SHII 16955 BAMUM LETTER PHASE-D SHEUX 16956 BAMUM LETTER PHASE-D KYEE 16957 BAMUM LETTER PHASE-D NU 16958 BAMUM LETTER PHASE-D SHU 16959 BAMUM LETTER PHASE-D NTEE 1695A BAMUM LETTER PHASE-D PEE 1695B BAMUM LETTER PHASE-D NI 1695C BAMUM LETTER PHASE-D SHOQ 1695D BAMUM LETTER PHASE-D PUQ 1695E BAMUM LETTER PHASE-D MVOP 1695F BAMUM LETTER PHASE-D LOQ 16960 BAMUM LETTER PHASE-D REN MUCH 16961 BAMUM LETTER PHASE-D TI 16962 BAMUM LETTER PHASE-D NTUU 16963 BAMUM LETTER PHASE-D MBAA SEVEN 16964 BAMUM LETTER PHASE-D SAQ 16965 BAMUM LETTER PHASE-D FAA 16966 BAMUM LETTER PHASE-E NDAP 16967 BAMUM LETTER PHASE-E TOON 16968 BAMUM LETTER PHASE-E MBEUM 16969 BAMUM LETTER PHASE-E LAP 1696A BAMUM LETTER PHASE-E VOM 1696B BAMUM LETTER PHASE-E LOON 1696C BAMUM LETTER PHASE-E PAA 1696D BAMUM LETTER PHASE-E SOM 1696E BAMUM LETTER PHASE-E RAQ 1696F BAMUM LETTER PHASE-E NSHUOP 16970 BAMUM LETTER PHASE-E NDUN 16971 BAMUM LETTER PHASE-E PUAE 16972 BAMUM LETTER PHASE-E TAM 16973 BAMUM LETTER PHASE-E NGKA 16974 BAMUM LETTER PHASE-E KPEUX 16975 BAMUM LETTER PHASE-E WUO 16976 BAMUM LETTER PHASE-E SEE 16977 BAMUM LETTER PHASE-E NGGEUAET 16978 BAMUM LETTER PHASE-E PAAM 16979 BAMUM LETTER PHASE-E TOO 1697A BAMUM LETTER PHASE-E KUOP 1697B BAMUM LETTER PHASE-E LOM 1697C BAMUM LETTER PHASE-E NSHIEE 1697D BAMUM LETTER PHASE-E NGOP 1697E BAMUM LETTER PHASE-E MAEM 1697F BAMUM LETTER PHASE-E NGKEUX 16980 BAMUM LETTER PHASE-E NGOQ 16981 BAMUM LETTER PHASE-E NSHUE 16982 BAMUM LETTER PHASE-E RIMGBA 16983 BAMUM LETTER PHASE-E NJEUX 16984 BAMUM LETTER PHASE-E PEEM 16985 BAMUM LETTER PHASE-E SAA 16986 BAMUM LETTER PHASE-E NGGURAE 16987 BAMUM LETTER PHASE-E MGBA 16988 BAMUM LETTER PHASE-E GHEUX 16989 BAMUM LETTER PHASE-E NGKEUAEM 1698A BAMUM LETTER PHASE-E NJAEMLI 1698B BAMUM LETTER PHASE-E MAP 1698C BAMUM LETTER PHASE-E LOOT 1698D BAMUM LETTER PHASE-E NGGEEEE 1698E BAMUM LETTER PHASE-E NDIQ 1698F BAMUM LETTER PHASE-E TAEN NTEUM 16990 BAMUM LETTER PHASE-E SET 16991 BAMUM LETTER PHASE-E PUM 16992 BAMUM LETTER PHASE-E NDAA SOFTNESS 16993 BAMUM LETTER PHASE-E NGGUAESHAE NYAM 16994 BAMUM LETTER PHASE-E YIEE 16995 BAMUM LETTER PHASE-E GHEUN 16996 BAMUM LETTER PHASE-E TUAE 16997 BAMUM LETTER PHASE-E YEUAE 16998 BAMUM LETTER PHASE-E PO 16999 BAMUM LETTER PHASE-E TUMAE 1699A BAMUM LETTER PHASE-E KEUAE 1699B BAMUM LETTER PHASE-E SUAEN 1699C BAMUM LETTER PHASE-E TEUAEQ 1699D BAMUM LETTER PHASE-E VEUAE 1699E BAMUM LETTER PHASE-E WEUX 1699F BAMUM LETTER PHASE-E LAAM 169A0 BAMUM LETTER PHASE-E PU 169A1 BAMUM LETTER PHASE-E TAAQ 169A2 BAMUM LETTER PHASE-E GHAAMAE 169A3 BAMUM LETTER PHASE-E NGEUREUT 169A4 BAMUM LETTER PHASE-E SHEUAEQ 169A5 BAMUM LETTER PHASE-E MGBEN 169A6 BAMUM LETTER PHASE-E MBEE 169A7 BAMUM LETTER PHASE-E NZAQ 169A8 BAMUM LETTER PHASE-E NKOM 169A9 BAMUM LETTER PHASE-E GBET 169AA BAMUM LETTER PHASE-E TUM 169AB BAMUM LETTER PHASE-E KUET 169AC BAMUM LETTER PHASE-E YAP 169AD BAMUM LETTER PHASE-E NYI CLEAVER 169AE BAMUM LETTER PHASE-E YIT 169AF BAMUM LETTER PHASE-E MFEUQ 169B0 BAMUM LETTER PHASE-E NDIAQ 169B1 BAMUM LETTER PHASE-E PIEEQ 169B2 BAMUM LETTER PHASE-E YUEQ 169B3 BAMUM LETTER PHASE-E LEUAEM 169B4 BAMUM LETTER PHASE-E FUE 169B5 BAMUM LETTER PHASE-E GBEUX 169B6 BAMUM LETTER PHASE-E NGKUP 169B7 BAMUM LETTER PHASE-E KET 169B8 BAMUM LETTER PHASE-E MAE 169B9 BAMUM LETTER PHASE-E NGKAAMI 169BA BAMUM LETTER PHASE-E GHET 169BB BAMUM LETTER PHASE-E FA 169BC BAMUM LETTER PHASE-E NTUM 169BD BAMUM LETTER PHASE-E PEUT 169BE BAMUM LETTER PHASE-E YEUM 169BF BAMUM LETTER PHASE-E NGGEUAE 169C0 BAMUM LETTER PHASE-E NYI BETWEEN 169C1 BAMUM LETTER PHASE-E NZUQ 169C2 BAMUM LETTER PHASE-E POON 169C3 BAMUM LETTER PHASE-E MIEE 169C4 BAMUM LETTER PHASE-E FUET 169C5 BAMUM LETTER PHASE-E NAE 169C6 BAMUM LETTER PHASE-E MUAE 169C7 BAMUM LETTER PHASE-E GHEUAE 169C8 BAMUM LETTER PHASE-E FU I 169C9 BAMUM LETTER PHASE-E MVI 169CA BAMUM LETTER PHASE-E PUAQ 169CB BAMUM LETTER PHASE-E NGKUM 169CC BAMUM LETTER PHASE-E KUT 169CD BAMUM LETTER PHASE-E PIET 169CE BAMUM LETTER PHASE-E NTAP 169CF BAMUM LETTER PHASE-E YEUAET 169D0 BAMUM LETTER PHASE-E NGGUP 169D1 BAMUM LETTER PHASE-E PA PEOPLE 169D2 BAMUM LETTER PHASE-E FU CALL 169D3 BAMUM LETTER PHASE-E FOM 169D4 BAMUM LETTER PHASE-E NJEE 169D5 BAMUM LETTER PHASE-E A 169D6 BAMUM LETTER PHASE-E TOQ 169D7 BAMUM LETTER PHASE-E O 169D8 BAMUM LETTER PHASE-E I 169D9 BAMUM LETTER PHASE-E LAQ 169DA BAMUM LETTER PHASE-E PA PLURAL 169DB BAMUM LETTER PHASE-E TAA 169DC BAMUM LETTER PHASE-E TAQ 169DD BAMUM LETTER PHASE-E NDAA MY HOUSE 169DE BAMUM LETTER PHASE-E SHIQ 169DF BAMUM LETTER PHASE-E YEUX 169E0 BAMUM LETTER PHASE-E NGUAE 169E1 BAMUM LETTER PHASE-E YUAEN 169E2 BAMUM LETTER PHASE-E YOQ SWIMMING 169E3 BAMUM LETTER PHASE-E YOQ COVER 169E4 BAMUM LETTER PHASE-E YUQ 169E5 BAMUM LETTER PHASE-E YUN 169E6 BAMUM LETTER PHASE-E KEUX 169E7 BAMUM LETTER PHASE-E PEUX 169E8 BAMUM LETTER PHASE-E NJEE EPOCH 169E9 BAMUM LETTER PHASE-E PUE 169EA BAMUM LETTER PHASE-E WUE 169EB BAMUM LETTER PHASE-E FEE 169EC BAMUM LETTER PHASE-E VEE 169ED BAMUM LETTER PHASE-E LU 169EE BAMUM LETTER PHASE-E MI 169EF BAMUM LETTER PHASE-E REUX 169F0 BAMUM LETTER PHASE-E RAE 169F1 BAMUM LETTER PHASE-E NGUAET 169F2 BAMUM LETTER PHASE-E NGA 169F3 BAMUM LETTER PHASE-E SHO 169F4 BAMUM LETTER PHASE-E SHOQ 169F5 BAMUM LETTER PHASE-E FU REMEDY 169F6 BAMUM LETTER PHASE-E NA 169F7 BAMUM LETTER PHASE-E PI 169F8 BAMUM LETTER PHASE-E LOQ 169F9 BAMUM LETTER PHASE-E KO 169FA BAMUM LETTER PHASE-E MEN 169FB BAMUM LETTER PHASE-E MA 169FC BAMUM LETTER PHASE-E MAQ 169FD BAMUM LETTER PHASE-E TEU 169FE BAMUM LETTER PHASE-E KI 169FF BAMUM LETTER PHASE-E MON 16A00 BAMUM LETTER PHASE-E TEN 16A01 BAMUM LETTER PHASE-E FAQ 16A02 BAMUM LETTER PHASE-E GHOM 16A03 BAMUM LETTER PHASE-F KA 16A04 BAMUM LETTER PHASE-F U 16A05 BAMUM LETTER PHASE-F KU 16A06 BAMUM LETTER PHASE-F EE 16A07 BAMUM LETTER PHASE-F REE 16A08 BAMUM LETTER PHASE-F TAE 16A09 BAMUM LETTER PHASE-F NYI 16A0A BAMUM LETTER PHASE-F LA 16A0B BAMUM LETTER PHASE-F RII 16A0C BAMUM LETTER PHASE-F RIEE 16A0D BAMUM LETTER PHASE-F MEEEE 16A0E BAMUM LETTER PHASE-F TAA 16A0F BAMUM LETTER PHASE-F NDAA 16A10 BAMUM LETTER PHASE-F NJAEM 16A11 BAMUM LETTER PHASE-F M 16A12 BAMUM LETTER PHASE-F SUU 16A13 BAMUM LETTER PHASE-F SHII 16A14 BAMUM LETTER PHASE-F SI 16A15 BAMUM LETTER PHASE-F SEUX 16A16 BAMUM LETTER PHASE-F KYEE 16A17 BAMUM LETTER PHASE-F KET 16A18 BAMUM LETTER PHASE-F NUAE 16A19 BAMUM LETTER PHASE-F NU 16A1A BAMUM LETTER PHASE-F NJUAE 16A1B BAMUM LETTER PHASE-F YOQ 16A1C BAMUM LETTER PHASE-F SHU 16A1D BAMUM LETTER PHASE-F YA 16A1E BAMUM LETTER PHASE-F NSHA 16A1F BAMUM LETTER PHASE-F PEUX 16A20 BAMUM LETTER PHASE-F NTEE 16A21 BAMUM LETTER PHASE-F WUE 16A22 BAMUM LETTER PHASE-F PEE 16A23 BAMUM LETTER PHASE-F RU 16A24 BAMUM LETTER PHASE-F NI 16A25 BAMUM LETTER PHASE-F REUX 16A26 BAMUM LETTER PHASE-F KEN 16A27 BAMUM LETTER PHASE-F NGKWAEN 16A28 BAMUM LETTER PHASE-F NGGA 16A29 BAMUM LETTER PHASE-F SHO 16A2A BAMUM LETTER PHASE-F PUAE 16A2B BAMUM LETTER PHASE-F FOM 16A2C BAMUM LETTER PHASE-F WA 16A2D BAMUM LETTER PHASE-F LI 16A2E BAMUM LETTER PHASE-F LOQ 16A2F BAMUM LETTER PHASE-F KO 16A30 BAMUM LETTER PHASE-F MBEN 16A31 BAMUM LETTER PHASE-F REN 16A32 BAMUM LETTER PHASE-F MA 16A33 BAMUM LETTER PHASE-F MO 16A34 BAMUM LETTER PHASE-F MBAA 16A35 BAMUM LETTER PHASE-F TET 16A36 BAMUM LETTER PHASE-F KPA 16A37 BAMUM LETTER PHASE-F SAMBA 16A38 BAMUM LETTER PHASE-F VUEQ 16A40 MRO LETTER TA 16A41 MRO LETTER NGI 16A42 MRO LETTER YO 16A43 MRO LETTER MIM 16A44 MRO LETTER BA 16A45 MRO LETTER DA 16A46 MRO LETTER A 16A47 MRO LETTER PHI 16A48 MRO LETTER KHAI 16A49 MRO LETTER HAO 16A4A MRO LETTER DAI 16A4B MRO LETTER CHU 16A4C MRO LETTER KEAAE 16A4D MRO LETTER OL 16A4E MRO LETTER MAEM 16A4F MRO LETTER NIN 16A50 MRO LETTER PA 16A51 MRO LETTER OO 16A52 MRO LETTER O 16A53 MRO LETTER RO 16A54 MRO LETTER SHI 16A55 MRO LETTER THEA 16A56 MRO LETTER EA 16A57 MRO LETTER WA 16A58 MRO LETTER E 16A59 MRO LETTER KO 16A5A MRO LETTER LAN 16A5B MRO LETTER LA 16A5C MRO LETTER HAI 16A5D MRO LETTER RI 16A5E MRO LETTER TEK 16A60 MRO DIGIT ZERO 16A61 MRO DIGIT ONE 16A62 MRO DIGIT TWO 16A63 MRO DIGIT THREE 16A64 MRO DIGIT FOUR 16A65 MRO DIGIT FIVE 16A66 MRO DIGIT SIX 16A67 MRO DIGIT SEVEN 16A68 MRO DIGIT EIGHT 16A69 MRO DIGIT NINE 16A6E MRO DANDA 16A6F MRO DOUBLE DANDA 16AD0 BASSA VAH LETTER ENNI 16AD1 BASSA VAH LETTER KA 16AD2 BASSA VAH LETTER SE 16AD3 BASSA VAH LETTER FA 16AD4 BASSA VAH LETTER MBE 16AD5 BASSA VAH LETTER YIE 16AD6 BASSA VAH LETTER GAH 16AD7 BASSA VAH LETTER DHII 16AD8 BASSA VAH LETTER KPAH 16AD9 BASSA VAH LETTER JO 16ADA BASSA VAH LETTER HWAH 16ADB BASSA VAH LETTER WA 16ADC BASSA VAH LETTER ZO 16ADD BASSA VAH LETTER GBU 16ADE BASSA VAH LETTER DO 16ADF BASSA VAH LETTER CE 16AE0 BASSA VAH LETTER UWU 16AE1 BASSA VAH LETTER TO 16AE2 BASSA VAH LETTER BA 16AE3 BASSA VAH LETTER VU 16AE4 BASSA VAH LETTER YEIN 16AE5 BASSA VAH LETTER PA 16AE6 BASSA VAH LETTER WADDA 16AE7 BASSA VAH LETTER A 16AE8 BASSA VAH LETTER O 16AE9 BASSA VAH LETTER OO 16AEA BASSA VAH LETTER U 16AEB BASSA VAH LETTER EE 16AEC BASSA VAH LETTER E 16AED BASSA VAH LETTER I 16AF0 BASSA VAH COMBINING HIGH TONE 16AF1 BASSA VAH COMBINING LOW TONE 16AF2 BASSA VAH COMBINING MID TONE 16AF3 BASSA VAH COMBINING LOW-MID TONE 16AF4 BASSA VAH COMBINING HIGH-LOW TONE 16AF5 BASSA VAH FULL STOP 16B00 PAHAWH HMONG VOWEL KEEB 16B01 PAHAWH HMONG VOWEL KEEV 16B02 PAHAWH HMONG VOWEL KIB 16B03 PAHAWH HMONG VOWEL KIV 16B04 PAHAWH HMONG VOWEL KAUB 16B05 PAHAWH HMONG VOWEL KAUV 16B06 PAHAWH HMONG VOWEL KUB 16B07 PAHAWH HMONG VOWEL KUV 16B08 PAHAWH HMONG VOWEL KEB 16B09 PAHAWH HMONG VOWEL KEV 16B0A PAHAWH HMONG VOWEL KAIB 16B0B PAHAWH HMONG VOWEL KAIV 16B0C PAHAWH HMONG VOWEL KOOB 16B0D PAHAWH HMONG VOWEL KOOV 16B0E PAHAWH HMONG VOWEL KAWB 16B0F PAHAWH HMONG VOWEL KAWV 16B10 PAHAWH HMONG VOWEL KUAB 16B11 PAHAWH HMONG VOWEL KUAV 16B12 PAHAWH HMONG VOWEL KOB 16B13 PAHAWH HMONG VOWEL KOV 16B14 PAHAWH HMONG VOWEL KIAB 16B15 PAHAWH HMONG VOWEL KIAV 16B16 PAHAWH HMONG VOWEL KAB 16B17 PAHAWH HMONG VOWEL KAV 16B18 PAHAWH HMONG VOWEL KWB 16B19 PAHAWH HMONG VOWEL KWV 16B1A PAHAWH HMONG VOWEL KAAB 16B1B PAHAWH HMONG VOWEL KAAV 16B1C PAHAWH HMONG CONSONANT VAU 16B1D PAHAWH HMONG CONSONANT NTSAU 16B1E PAHAWH HMONG CONSONANT LAU 16B1F PAHAWH HMONG CONSONANT HAU 16B20 PAHAWH HMONG CONSONANT NLAU 16B21 PAHAWH HMONG CONSONANT RAU 16B22 PAHAWH HMONG CONSONANT NKAU 16B23 PAHAWH HMONG CONSONANT QHAU 16B24 PAHAWH HMONG CONSONANT YAU 16B25 PAHAWH HMONG CONSONANT HLAU 16B26 PAHAWH HMONG CONSONANT MAU 16B27 PAHAWH HMONG CONSONANT CHAU 16B28 PAHAWH HMONG CONSONANT NCHAU 16B29 PAHAWH HMONG CONSONANT HNAU 16B2A PAHAWH HMONG CONSONANT PLHAU 16B2B PAHAWH HMONG CONSONANT NTHAU 16B2C PAHAWH HMONG CONSONANT NAU 16B2D PAHAWH HMONG CONSONANT AU 16B2E PAHAWH HMONG CONSONANT XAU 16B2F PAHAWH HMONG CONSONANT CAU 16B30 PAHAWH HMONG MARK CIM TUB 16B31 PAHAWH HMONG MARK CIM SO 16B32 PAHAWH HMONG MARK CIM KES 16B33 PAHAWH HMONG MARK CIM KHAV 16B34 PAHAWH HMONG MARK CIM SUAM 16B35 PAHAWH HMONG MARK CIM HOM 16B36 PAHAWH HMONG MARK CIM TAUM 16B37 PAHAWH HMONG SIGN VOS THOM 16B38 PAHAWH HMONG SIGN VOS TSHAB CEEB 16B39 PAHAWH HMONG SIGN CIM CHEEM 16B3A PAHAWH HMONG SIGN VOS THIAB 16B3B PAHAWH HMONG SIGN VOS FEEM 16B3C PAHAWH HMONG SIGN XYEEM NTXIV 16B3D PAHAWH HMONG SIGN XYEEM RHO 16B3E PAHAWH HMONG SIGN XYEEM TOV 16B3F PAHAWH HMONG SIGN XYEEM FAIB 16B40 PAHAWH HMONG SIGN VOS SEEV 16B41 PAHAWH HMONG SIGN MEEJ SUAB 16B42 PAHAWH HMONG SIGN VOS NRUA 16B43 PAHAWH HMONG SIGN IB YAM 16B44 PAHAWH HMONG SIGN XAUS 16B45 PAHAWH HMONG SIGN CIM TSOV ROG 16B50 PAHAWH HMONG DIGIT ZERO 16B51 PAHAWH HMONG DIGIT ONE 16B52 PAHAWH HMONG DIGIT TWO 16B53 PAHAWH HMONG DIGIT THREE 16B54 PAHAWH HMONG DIGIT FOUR 16B55 PAHAWH HMONG DIGIT FIVE 16B56 PAHAWH HMONG DIGIT SIX 16B57 PAHAWH HMONG DIGIT SEVEN 16B58 PAHAWH HMONG DIGIT EIGHT 16B59 PAHAWH HMONG DIGIT NINE 16B5B PAHAWH HMONG NUMBER TENS 16B5C PAHAWH HMONG NUMBER HUNDREDS 16B5D PAHAWH HMONG NUMBER TEN THOUSANDS 16B5E PAHAWH HMONG NUMBER MILLIONS 16B5F PAHAWH HMONG NUMBER HUNDRED MILLIONS 16B60 PAHAWH HMONG NUMBER TEN BILLIONS 16B61 PAHAWH HMONG NUMBER TRILLIONS 16B63 PAHAWH HMONG SIGN VOS LUB 16B64 PAHAWH HMONG SIGN XYOO 16B65 PAHAWH HMONG SIGN HLI 16B66 PAHAWH HMONG SIGN THIRD-STAGE HLI 16B67 PAHAWH HMONG SIGN ZWJ THAJ 16B68 PAHAWH HMONG SIGN HNUB 16B69 PAHAWH HMONG SIGN NQIG 16B6A PAHAWH HMONG SIGN XIAB 16B6B PAHAWH HMONG SIGN NTUJ 16B6C PAHAWH HMONG SIGN AV 16B6D PAHAWH HMONG SIGN TXHEEJ CEEV 16B6E PAHAWH HMONG SIGN MEEJ TSEEB 16B6F PAHAWH HMONG SIGN TAU 16B70 PAHAWH HMONG SIGN LOS 16B71 PAHAWH HMONG SIGN MUS 16B72 PAHAWH HMONG SIGN CIM HAIS LUS NTOG NTOG 16B73 PAHAWH HMONG SIGN CIM CUAM TSHOOJ 16B74 PAHAWH HMONG SIGN CIM TXWV 16B75 PAHAWH HMONG SIGN CIM TXWV CHWV 16B76 PAHAWH HMONG SIGN CIM PUB DAWB 16B77 PAHAWH HMONG SIGN CIM NRES TOS 16B7D PAHAWH HMONG CLAN SIGN TSHEEJ 16B7E PAHAWH HMONG CLAN SIGN YEEG 16B7F PAHAWH HMONG CLAN SIGN LIS 16B80 PAHAWH HMONG CLAN SIGN LAUJ 16B81 PAHAWH HMONG CLAN SIGN XYOOJ 16B82 PAHAWH HMONG CLAN SIGN KOO 16B83 PAHAWH HMONG CLAN SIGN HAWJ 16B84 PAHAWH HMONG CLAN SIGN MUAS 16B85 PAHAWH HMONG CLAN SIGN THOJ 16B86 PAHAWH HMONG CLAN SIGN TSAB 16B87 PAHAWH HMONG CLAN SIGN PHAB 16B88 PAHAWH HMONG CLAN SIGN KHAB 16B89 PAHAWH HMONG CLAN SIGN HAM 16B8A PAHAWH HMONG CLAN SIGN VAJ 16B8B PAHAWH HMONG CLAN SIGN FAJ 16B8C PAHAWH HMONG CLAN SIGN YAJ 16B8D PAHAWH HMONG CLAN SIGN TSWB 16B8E PAHAWH HMONG CLAN SIGN KWM 16B8F PAHAWH HMONG CLAN SIGN VWJ 16E40 MEDEFAIDRIN CAPITAL LETTER M 16E41 MEDEFAIDRIN CAPITAL LETTER S 16E42 MEDEFAIDRIN CAPITAL LETTER V 16E43 MEDEFAIDRIN CAPITAL LETTER W 16E44 MEDEFAIDRIN CAPITAL LETTER ATIU 16E45 MEDEFAIDRIN CAPITAL LETTER Z 16E46 MEDEFAIDRIN CAPITAL LETTER KP 16E47 MEDEFAIDRIN CAPITAL LETTER P 16E48 MEDEFAIDRIN CAPITAL LETTER T 16E49 MEDEFAIDRIN CAPITAL LETTER G 16E4A MEDEFAIDRIN CAPITAL LETTER F 16E4B MEDEFAIDRIN CAPITAL LETTER I 16E4C MEDEFAIDRIN CAPITAL LETTER K 16E4D MEDEFAIDRIN CAPITAL LETTER A 16E4E MEDEFAIDRIN CAPITAL LETTER J 16E4F MEDEFAIDRIN CAPITAL LETTER E 16E50 MEDEFAIDRIN CAPITAL LETTER B 16E51 MEDEFAIDRIN CAPITAL LETTER C 16E52 MEDEFAIDRIN CAPITAL LETTER U 16E53 MEDEFAIDRIN CAPITAL LETTER YU 16E54 MEDEFAIDRIN CAPITAL LETTER L 16E55 MEDEFAIDRIN CAPITAL LETTER Q 16E56 MEDEFAIDRIN CAPITAL LETTER H 16E56 MEDEFAIDRIN CAPITAL LETTER HP 16E57 MEDEFAIDRIN CAPITAL LETTER NG 16E57 MEDEFAIDRIN CAPITAL LETTER NY 16E58 MEDEFAIDRIN CAPITAL LETTER X 16E59 MEDEFAIDRIN CAPITAL LETTER D 16E5A MEDEFAIDRIN CAPITAL LETTER OE 16E5B MEDEFAIDRIN CAPITAL LETTER N 16E5C MEDEFAIDRIN CAPITAL LETTER R 16E5D MEDEFAIDRIN CAPITAL LETTER O 16E5E MEDEFAIDRIN CAPITAL LETTER AI 16E5F MEDEFAIDRIN CAPITAL LETTER Y 16E60 MEDEFAIDRIN SMALL LETTER M 16E61 MEDEFAIDRIN SMALL LETTER S 16E62 MEDEFAIDRIN SMALL LETTER V 16E63 MEDEFAIDRIN SMALL LETTER W 16E64 MEDEFAIDRIN SMALL LETTER ATIU 16E65 MEDEFAIDRIN SMALL LETTER Z 16E66 MEDEFAIDRIN SMALL LETTER KP 16E67 MEDEFAIDRIN SMALL LETTER P 16E68 MEDEFAIDRIN SMALL LETTER T 16E69 MEDEFAIDRIN SMALL LETTER G 16E6A MEDEFAIDRIN SMALL LETTER F 16E6B MEDEFAIDRIN SMALL LETTER I 16E6C MEDEFAIDRIN SMALL LETTER K 16E6D MEDEFAIDRIN SMALL LETTER A 16E6E MEDEFAIDRIN SMALL LETTER J 16E6F MEDEFAIDRIN SMALL LETTER E 16E70 MEDEFAIDRIN SMALL LETTER B 16E71 MEDEFAIDRIN SMALL LETTER C 16E72 MEDEFAIDRIN SMALL LETTER U 16E73 MEDEFAIDRIN SMALL LETTER YU 16E74 MEDEFAIDRIN SMALL LETTER L 16E75 MEDEFAIDRIN SMALL LETTER Q 16E76 MEDEFAIDRIN SMALL LETTER H 16E76 MEDEFAIDRIN SMALL LETTER HP 16E77 MEDEFAIDRIN SMALL LETTER NG 16E77 MEDEFAIDRIN SMALL LETTER NY 16E78 MEDEFAIDRIN SMALL LETTER X 16E79 MEDEFAIDRIN SMALL LETTER D 16E7A MEDEFAIDRIN SMALL LETTER OE 16E7B MEDEFAIDRIN SMALL LETTER N 16E7C MEDEFAIDRIN SMALL LETTER R 16E7D MEDEFAIDRIN SMALL LETTER O 16E7E MEDEFAIDRIN SMALL LETTER AI 16E7F MEDEFAIDRIN SMALL LETTER Y 16E80 MEDEFAIDRIN DIGIT ZERO 16E81 MEDEFAIDRIN DIGIT ONE 16E82 MEDEFAIDRIN DIGIT TWO 16E83 MEDEFAIDRIN DIGIT THREE 16E84 MEDEFAIDRIN DIGIT FOUR 16E85 MEDEFAIDRIN DIGIT FIVE 16E86 MEDEFAIDRIN DIGIT SIX 16E87 MEDEFAIDRIN DIGIT SEVEN 16E88 MEDEFAIDRIN DIGIT EIGHT 16E89 MEDEFAIDRIN DIGIT NINE 16E8A MEDEFAIDRIN NUMBER TEN 16E8B MEDEFAIDRIN NUMBER ELEVEN 16E8C MEDEFAIDRIN NUMBER TWELVE 16E8D MEDEFAIDRIN NUMBER THIRTEEN 16E8E MEDEFAIDRIN NUMBER FOURTEEN 16E8F MEDEFAIDRIN NUMBER FIFTEEN 16E90 MEDEFAIDRIN NUMBER SIXTEEN 16E91 MEDEFAIDRIN NUMBER SEVENTEEN 16E92 MEDEFAIDRIN NUMBER EIGHTEEN 16E93 MEDEFAIDRIN NUMBER NINETEEN 16E94 MEDEFAIDRIN DIGIT ONE ALTERNATE FORM 16E95 MEDEFAIDRIN DIGIT TWO ALTERNATE FORM 16E96 MEDEFAIDRIN DIGIT THREE ALTERNATE FORM 16E97 MEDEFAIDRIN COMMA 16E98 MEDEFAIDRIN FULL STOP 16E99 MEDEFAIDRIN SYMBOL AIVA 16E9A MEDEFAIDRIN EXCLAMATION OH 16F00 MIAO LETTER PA 16F01 MIAO LETTER BA 16F02 MIAO LETTER YI PA 16F03 MIAO LETTER PLA 16F04 MIAO LETTER MA 16F05 MIAO LETTER MHA 16F06 MIAO LETTER ARCHAIC MA 16F07 MIAO LETTER FA 16F08 MIAO LETTER VA 16F09 MIAO LETTER VFA 16F0A MIAO LETTER TA 16F0B MIAO LETTER DA 16F0C MIAO LETTER YI TTA 16F0D MIAO LETTER YI TA 16F0E MIAO LETTER TTA 16F0F MIAO LETTER DDA 16F10 MIAO LETTER NA 16F11 MIAO LETTER NHA 16F12 MIAO LETTER YI NNA 16F13 MIAO LETTER ARCHAIC NA 16F14 MIAO LETTER NNA 16F15 MIAO LETTER NNHA 16F16 MIAO LETTER LA 16F17 MIAO LETTER LYA 16F18 MIAO LETTER LHA 16F19 MIAO LETTER LHYA 16F1A MIAO LETTER TLHA 16F1B MIAO LETTER DLHA 16F1C MIAO LETTER TLHYA 16F1D MIAO LETTER DLHYA 16F1E MIAO LETTER KA 16F1F MIAO LETTER GA 16F20 MIAO LETTER YI KA 16F21 MIAO LETTER QA 16F22 MIAO LETTER QGA 16F23 MIAO LETTER NGA 16F24 MIAO LETTER NGHA 16F25 MIAO LETTER ARCHAIC NGA 16F26 MIAO LETTER HA 16F27 MIAO LETTER XA 16F28 MIAO LETTER GHA 16F29 MIAO LETTER GHHA 16F2A MIAO LETTER TSSA 16F2B MIAO LETTER DZZA 16F2C MIAO LETTER NYA 16F2D MIAO LETTER NYHA 16F2E MIAO LETTER TSHA 16F2F MIAO LETTER DZHA 16F30 MIAO LETTER YI TSHA 16F31 MIAO LETTER YI DZHA 16F32 MIAO LETTER REFORMED TSHA 16F33 MIAO LETTER SHA 16F34 MIAO LETTER SSA 16F35 MIAO LETTER ZHA 16F36 MIAO LETTER ZSHA 16F37 MIAO LETTER TSA 16F38 MIAO LETTER DZA 16F39 MIAO LETTER YI TSA 16F3A MIAO LETTER SA 16F3B MIAO LETTER ZA 16F3C MIAO LETTER ZSA 16F3D MIAO LETTER ZZA 16F3E MIAO LETTER ZZSA 16F3F MIAO LETTER ARCHAIC ZZA 16F40 MIAO LETTER ZZYA 16F41 MIAO LETTER ZZSYA 16F42 MIAO LETTER WA 16F43 MIAO LETTER AH 16F44 MIAO LETTER HHA 16F45 MIAO LETTER BRI 16F46 MIAO LETTER SYI 16F47 MIAO LETTER DZYI 16F48 MIAO LETTER TE 16F49 MIAO LETTER TSE 16F4A MIAO LETTER RTE 16F4F MIAO SIGN CONSONANT MODIFIER BAR 16F50 MIAO LETTER NASALIZATION 16F51 MIAO SIGN ASPIRATION 16F52 MIAO SIGN REFORMED VOICING 16F53 MIAO SIGN REFORMED ASPIRATION 16F54 MIAO VOWEL SIGN A 16F55 MIAO VOWEL SIGN AA 16F56 MIAO VOWEL SIGN AHH 16F57 MIAO VOWEL SIGN AN 16F58 MIAO VOWEL SIGN ANG 16F59 MIAO VOWEL SIGN O 16F5A MIAO VOWEL SIGN OO 16F5B MIAO VOWEL SIGN WO 16F5C MIAO VOWEL SIGN W 16F5D MIAO VOWEL SIGN E 16F5E MIAO VOWEL SIGN EN 16F5F MIAO VOWEL SIGN ENG 16F60 MIAO VOWEL SIGN OEY 16F61 MIAO VOWEL SIGN I 16F62 MIAO VOWEL SIGN IA 16F63 MIAO VOWEL SIGN IAN 16F64 MIAO VOWEL SIGN IANG 16F65 MIAO VOWEL SIGN IO 16F66 MIAO VOWEL SIGN IE 16F67 MIAO VOWEL SIGN II 16F68 MIAO VOWEL SIGN IU 16F69 MIAO VOWEL SIGN ING 16F6A MIAO VOWEL SIGN U 16F6B MIAO VOWEL SIGN UA 16F6C MIAO VOWEL SIGN UAN 16F6D MIAO VOWEL SIGN UANG 16F6E MIAO VOWEL SIGN UU 16F6F MIAO VOWEL SIGN UEI 16F70 MIAO VOWEL SIGN UNG 16F71 MIAO VOWEL SIGN Y 16F72 MIAO VOWEL SIGN YI 16F73 MIAO VOWEL SIGN AE 16F74 MIAO VOWEL SIGN AEE 16F75 MIAO VOWEL SIGN ERR 16F76 MIAO VOWEL SIGN ROUNDED ERR 16F77 MIAO VOWEL SIGN ER 16F78 MIAO VOWEL SIGN ROUNDED ER 16F79 MIAO VOWEL SIGN AI 16F7A MIAO VOWEL SIGN EI 16F7B MIAO VOWEL SIGN AU 16F7C MIAO VOWEL SIGN OU 16F7D MIAO VOWEL SIGN N 16F7E MIAO VOWEL SIGN NG 16F7F MIAO VOWEL SIGN UOG 16F80 MIAO VOWEL SIGN YUI 16F81 MIAO VOWEL SIGN OG 16F82 MIAO VOWEL SIGN OER 16F83 MIAO VOWEL SIGN VW 16F84 MIAO VOWEL SIGN IG 16F85 MIAO VOWEL SIGN EA 16F86 MIAO VOWEL SIGN IONG 16F87 MIAO VOWEL SIGN UI 16F8F MIAO TONE RIGHT 16F90 MIAO TONE TOP RIGHT 16F91 MIAO TONE ABOVE 16F92 MIAO TONE BELOW 16F93 MIAO LETTER TONE-2 16F94 MIAO LETTER TONE-3 16F95 MIAO LETTER TONE-4 16F96 MIAO LETTER TONE-5 16F97 MIAO LETTER TONE-6 16F98 MIAO LETTER TONE-7 16F99 MIAO LETTER TONE-8 16F9A MIAO LETTER REFORMED TONE-1 16F9B MIAO LETTER REFORMED TONE-2 16F9C MIAO LETTER REFORMED TONE-4 16F9D MIAO LETTER REFORMED TONE-5 16F9E MIAO LETTER REFORMED TONE-6 16F9F MIAO LETTER REFORMED TONE-8 16FE0 TANGUT ITERATION MARK 16FE1 NUSHU ITERATION MARK 16FE2 OLD CHINESE HOOK MARK 16FE3 OLD CHINESE ITERATION MARK 16FE4 KHITAN SMALL SCRIPT FILLER 16FF0 VIETNAMESE ALTERNATE READING MARK CA 16FF1 VIETNAMESE ALTERNATE READING MARK NHAY 18800 TANGUT COMPONENT-001 18801 TANGUT COMPONENT-002 18802 TANGUT COMPONENT-003 18803 TANGUT COMPONENT-004 18804 TANGUT COMPONENT-005 18805 TANGUT COMPONENT-006 18806 TANGUT COMPONENT-007 18807 TANGUT COMPONENT-008 18808 TANGUT COMPONENT-009 18809 TANGUT COMPONENT-010 1880A TANGUT COMPONENT-011 1880B TANGUT COMPONENT-012 1880C TANGUT COMPONENT-013 1880D TANGUT COMPONENT-014 1880E TANGUT COMPONENT-015 1880F TANGUT COMPONENT-016 18810 TANGUT COMPONENT-017 18811 TANGUT COMPONENT-018 18812 TANGUT COMPONENT-019 18813 TANGUT COMPONENT-020 18814 TANGUT COMPONENT-021 18815 TANGUT COMPONENT-022 18816 TANGUT COMPONENT-023 18817 TANGUT COMPONENT-024 18818 TANGUT COMPONENT-025 18819 TANGUT COMPONENT-026 1881A TANGUT COMPONENT-027 1881B TANGUT COMPONENT-028 1881C TANGUT COMPONENT-029 1881D TANGUT COMPONENT-030 1881E TANGUT COMPONENT-031 1881F TANGUT COMPONENT-032 18820 TANGUT COMPONENT-033 18821 TANGUT COMPONENT-034 18822 TANGUT COMPONENT-035 18823 TANGUT COMPONENT-036 18824 TANGUT COMPONENT-037 18825 TANGUT COMPONENT-038 18826 TANGUT COMPONENT-039 18827 TANGUT COMPONENT-040 18828 TANGUT COMPONENT-041 18829 TANGUT COMPONENT-042 1882A TANGUT COMPONENT-043 1882B TANGUT COMPONENT-044 1882C TANGUT COMPONENT-045 1882D TANGUT COMPONENT-046 1882E TANGUT COMPONENT-047 1882F TANGUT COMPONENT-048 18830 TANGUT COMPONENT-049 18831 TANGUT COMPONENT-050 18832 TANGUT COMPONENT-051 18833 TANGUT COMPONENT-052 18834 TANGUT COMPONENT-053 18835 TANGUT COMPONENT-054 18836 TANGUT COMPONENT-055 18837 TANGUT COMPONENT-056 18838 TANGUT COMPONENT-057 18839 TANGUT COMPONENT-058 1883A TANGUT COMPONENT-059 1883B TANGUT COMPONENT-060 1883C TANGUT COMPONENT-061 1883D TANGUT COMPONENT-062 1883E TANGUT COMPONENT-063 1883F TANGUT COMPONENT-064 18840 TANGUT COMPONENT-065 18841 TANGUT COMPONENT-066 18842 TANGUT COMPONENT-067 18843 TANGUT COMPONENT-068 18844 TANGUT COMPONENT-069 18845 TANGUT COMPONENT-070 18846 TANGUT COMPONENT-071 18847 TANGUT COMPONENT-072 18848 TANGUT COMPONENT-073 18849 TANGUT COMPONENT-074 1884A TANGUT COMPONENT-075 1884B TANGUT COMPONENT-076 1884C TANGUT COMPONENT-077 1884D TANGUT COMPONENT-078 1884E TANGUT COMPONENT-079 1884F TANGUT COMPONENT-080 18850 TANGUT COMPONENT-081 18851 TANGUT COMPONENT-082 18852 TANGUT COMPONENT-083 18853 TANGUT COMPONENT-084 18854 TANGUT COMPONENT-085 18855 TANGUT COMPONENT-086 18856 TANGUT COMPONENT-087 18857 TANGUT COMPONENT-088 18858 TANGUT COMPONENT-089 18859 TANGUT COMPONENT-090 1885A TANGUT COMPONENT-091 1885B TANGUT COMPONENT-092 1885C TANGUT COMPONENT-093 1885D TANGUT COMPONENT-094 1885E TANGUT COMPONENT-095 1885F TANGUT COMPONENT-096 18860 TANGUT COMPONENT-097 18861 TANGUT COMPONENT-098 18862 TANGUT COMPONENT-099 18863 TANGUT COMPONENT-100 18864 TANGUT COMPONENT-101 18865 TANGUT COMPONENT-102 18866 TANGUT COMPONENT-103 18867 TANGUT COMPONENT-104 18868 TANGUT COMPONENT-105 18869 TANGUT COMPONENT-106 1886A TANGUT COMPONENT-107 1886B TANGUT COMPONENT-108 1886C TANGUT COMPONENT-109 1886D TANGUT COMPONENT-110 1886E TANGUT COMPONENT-111 1886F TANGUT COMPONENT-112 18870 TANGUT COMPONENT-113 18871 TANGUT COMPONENT-114 18872 TANGUT COMPONENT-115 18873 TANGUT COMPONENT-116 18874 TANGUT COMPONENT-117 18875 TANGUT COMPONENT-118 18876 TANGUT COMPONENT-119 18877 TANGUT COMPONENT-120 18878 TANGUT COMPONENT-121 18879 TANGUT COMPONENT-122 1887A TANGUT COMPONENT-123 1887B TANGUT COMPONENT-124 1887C TANGUT COMPONENT-125 1887D TANGUT COMPONENT-126 1887E TANGUT COMPONENT-127 1887F TANGUT COMPONENT-128 18880 TANGUT COMPONENT-129 18881 TANGUT COMPONENT-130 18882 TANGUT COMPONENT-131 18883 TANGUT COMPONENT-132 18884 TANGUT COMPONENT-133 18885 TANGUT COMPONENT-134 18886 TANGUT COMPONENT-135 18887 TANGUT COMPONENT-136 18888 TANGUT COMPONENT-137 18889 TANGUT COMPONENT-138 1888A TANGUT COMPONENT-139 1888B TANGUT COMPONENT-140 1888C TANGUT COMPONENT-141 1888D TANGUT COMPONENT-142 1888E TANGUT COMPONENT-143 1888F TANGUT COMPONENT-144 18890 TANGUT COMPONENT-145 18891 TANGUT COMPONENT-146 18892 TANGUT COMPONENT-147 18893 TANGUT COMPONENT-148 18894 TANGUT COMPONENT-149 18895 TANGUT COMPONENT-150 18896 TANGUT COMPONENT-151 18897 TANGUT COMPONENT-152 18898 TANGUT COMPONENT-153 18899 TANGUT COMPONENT-154 1889A TANGUT COMPONENT-155 1889B TANGUT COMPONENT-156 1889C TANGUT COMPONENT-157 1889D TANGUT COMPONENT-158 1889E TANGUT COMPONENT-159 1889F TANGUT COMPONENT-160 188A0 TANGUT COMPONENT-161 188A1 TANGUT COMPONENT-162 188A2 TANGUT COMPONENT-163 188A3 TANGUT COMPONENT-164 188A4 TANGUT COMPONENT-165 188A5 TANGUT COMPONENT-166 188A6 TANGUT COMPONENT-167 188A7 TANGUT COMPONENT-168 188A8 TANGUT COMPONENT-169 188A9 TANGUT COMPONENT-170 188AA TANGUT COMPONENT-171 188AB TANGUT COMPONENT-172 188AC TANGUT COMPONENT-173 188AD TANGUT COMPONENT-174 188AE TANGUT COMPONENT-175 188AF TANGUT COMPONENT-176 188B0 TANGUT COMPONENT-177 188B1 TANGUT COMPONENT-178 188B2 TANGUT COMPONENT-179 188B3 TANGUT COMPONENT-180 188B4 TANGUT COMPONENT-181 188B5 TANGUT COMPONENT-182 188B6 TANGUT COMPONENT-183 188B7 TANGUT COMPONENT-184 188B8 TANGUT COMPONENT-185 188B9 TANGUT COMPONENT-186 188BA TANGUT COMPONENT-187 188BB TANGUT COMPONENT-188 188BC TANGUT COMPONENT-189 188BD TANGUT COMPONENT-190 188BE TANGUT COMPONENT-191 188BF TANGUT COMPONENT-192 188C0 TANGUT COMPONENT-193 188C1 TANGUT COMPONENT-194 188C2 TANGUT COMPONENT-195 188C3 TANGUT COMPONENT-196 188C4 TANGUT COMPONENT-197 188C5 TANGUT COMPONENT-198 188C6 TANGUT COMPONENT-199 188C7 TANGUT COMPONENT-200 188C8 TANGUT COMPONENT-201 188C9 TANGUT COMPONENT-202 188CA TANGUT COMPONENT-203 188CB TANGUT COMPONENT-204 188CC TANGUT COMPONENT-205 188CD TANGUT COMPONENT-206 188CE TANGUT COMPONENT-207 188CF TANGUT COMPONENT-208 188D0 TANGUT COMPONENT-209 188D1 TANGUT COMPONENT-210 188D2 TANGUT COMPONENT-211 188D3 TANGUT COMPONENT-212 188D4 TANGUT COMPONENT-213 188D5 TANGUT COMPONENT-214 188D6 TANGUT COMPONENT-215 188D7 TANGUT COMPONENT-216 188D8 TANGUT COMPONENT-217 188D9 TANGUT COMPONENT-218 188DA TANGUT COMPONENT-219 188DB TANGUT COMPONENT-220 188DC TANGUT COMPONENT-221 188DD TANGUT COMPONENT-222 188DE TANGUT COMPONENT-223 188DF TANGUT COMPONENT-224 188E0 TANGUT COMPONENT-225 188E1 TANGUT COMPONENT-226 188E2 TANGUT COMPONENT-227 188E3 TANGUT COMPONENT-228 188E4 TANGUT COMPONENT-229 188E5 TANGUT COMPONENT-230 188E6 TANGUT COMPONENT-231 188E7 TANGUT COMPONENT-232 188E8 TANGUT COMPONENT-233 188E9 TANGUT COMPONENT-234 188EA TANGUT COMPONENT-235 188EB TANGUT COMPONENT-236 188EC TANGUT COMPONENT-237 188ED TANGUT COMPONENT-238 188EE TANGUT COMPONENT-239 188EF TANGUT COMPONENT-240 188F0 TANGUT COMPONENT-241 188F1 TANGUT COMPONENT-242 188F2 TANGUT COMPONENT-243 188F3 TANGUT COMPONENT-244 188F4 TANGUT COMPONENT-245 188F5 TANGUT COMPONENT-246 188F6 TANGUT COMPONENT-247 188F7 TANGUT COMPONENT-248 188F8 TANGUT COMPONENT-249 188F9 TANGUT COMPONENT-250 188FA TANGUT COMPONENT-251 188FB TANGUT COMPONENT-252 188FC TANGUT COMPONENT-253 188FD TANGUT COMPONENT-254 188FE TANGUT COMPONENT-255 188FF TANGUT COMPONENT-256 18900 TANGUT COMPONENT-257 18901 TANGUT COMPONENT-258 18902 TANGUT COMPONENT-259 18903 TANGUT COMPONENT-260 18904 TANGUT COMPONENT-261 18905 TANGUT COMPONENT-262 18906 TANGUT COMPONENT-263 18907 TANGUT COMPONENT-264 18908 TANGUT COMPONENT-265 18909 TANGUT COMPONENT-266 1890A TANGUT COMPONENT-267 1890B TANGUT COMPONENT-268 1890C TANGUT COMPONENT-269 1890D TANGUT COMPONENT-270 1890E TANGUT COMPONENT-271 1890F TANGUT COMPONENT-272 18910 TANGUT COMPONENT-273 18911 TANGUT COMPONENT-274 18912 TANGUT COMPONENT-275 18913 TANGUT COMPONENT-276 18914 TANGUT COMPONENT-277 18915 TANGUT COMPONENT-278 18916 TANGUT COMPONENT-279 18917 TANGUT COMPONENT-280 18918 TANGUT COMPONENT-281 18919 TANGUT COMPONENT-282 1891A TANGUT COMPONENT-283 1891B TANGUT COMPONENT-284 1891C TANGUT COMPONENT-285 1891D TANGUT COMPONENT-286 1891E TANGUT COMPONENT-287 1891F TANGUT COMPONENT-288 18920 TANGUT COMPONENT-289 18921 TANGUT COMPONENT-290 18922 TANGUT COMPONENT-291 18923 TANGUT COMPONENT-292 18924 TANGUT COMPONENT-293 18925 TANGUT COMPONENT-294 18926 TANGUT COMPONENT-295 18927 TANGUT COMPONENT-296 18928 TANGUT COMPONENT-297 18929 TANGUT COMPONENT-298 1892A TANGUT COMPONENT-299 1892B TANGUT COMPONENT-300 1892C TANGUT COMPONENT-301 1892D TANGUT COMPONENT-302 1892E TANGUT COMPONENT-303 1892F TANGUT COMPONENT-304 18930 TANGUT COMPONENT-305 18931 TANGUT COMPONENT-306 18932 TANGUT COMPONENT-307 18933 TANGUT COMPONENT-308 18934 TANGUT COMPONENT-309 18935 TANGUT COMPONENT-310 18936 TANGUT COMPONENT-311 18937 TANGUT COMPONENT-312 18938 TANGUT COMPONENT-313 18939 TANGUT COMPONENT-314 1893A TANGUT COMPONENT-315 1893B TANGUT COMPONENT-316 1893C TANGUT COMPONENT-317 1893D TANGUT COMPONENT-318 1893E TANGUT COMPONENT-319 1893F TANGUT COMPONENT-320 18940 TANGUT COMPONENT-321 18941 TANGUT COMPONENT-322 18942 TANGUT COMPONENT-323 18943 TANGUT COMPONENT-324 18944 TANGUT COMPONENT-325 18945 TANGUT COMPONENT-326 18946 TANGUT COMPONENT-327 18947 TANGUT COMPONENT-328 18948 TANGUT COMPONENT-329 18949 TANGUT COMPONENT-330 1894A TANGUT COMPONENT-331 1894B TANGUT COMPONENT-332 1894C TANGUT COMPONENT-333 1894D TANGUT COMPONENT-334 1894E TANGUT COMPONENT-335 1894F TANGUT COMPONENT-336 18950 TANGUT COMPONENT-337 18951 TANGUT COMPONENT-338 18952 TANGUT COMPONENT-339 18953 TANGUT COMPONENT-340 18954 TANGUT COMPONENT-341 18955 TANGUT COMPONENT-342 18956 TANGUT COMPONENT-343 18957 TANGUT COMPONENT-344 18958 TANGUT COMPONENT-345 18959 TANGUT COMPONENT-346 1895A TANGUT COMPONENT-347 1895B TANGUT COMPONENT-348 1895C TANGUT COMPONENT-349 1895D TANGUT COMPONENT-350 1895E TANGUT COMPONENT-351 1895F TANGUT COMPONENT-352 18960 TANGUT COMPONENT-353 18961 TANGUT COMPONENT-354 18962 TANGUT COMPONENT-355 18963 TANGUT COMPONENT-356 18964 TANGUT COMPONENT-357 18965 TANGUT COMPONENT-358 18966 TANGUT COMPONENT-359 18967 TANGUT COMPONENT-360 18968 TANGUT COMPONENT-361 18969 TANGUT COMPONENT-362 1896A TANGUT COMPONENT-363 1896B TANGUT COMPONENT-364 1896C TANGUT COMPONENT-365 1896D TANGUT COMPONENT-366 1896E TANGUT COMPONENT-367 1896F TANGUT COMPONENT-368 18970 TANGUT COMPONENT-369 18971 TANGUT COMPONENT-370 18972 TANGUT COMPONENT-371 18973 TANGUT COMPONENT-372 18974 TANGUT COMPONENT-373 18975 TANGUT COMPONENT-374 18976 TANGUT COMPONENT-375 18977 TANGUT COMPONENT-376 18978 TANGUT COMPONENT-377 18979 TANGUT COMPONENT-378 1897A TANGUT COMPONENT-379 1897B TANGUT COMPONENT-380 1897C TANGUT COMPONENT-381 1897D TANGUT COMPONENT-382 1897E TANGUT COMPONENT-383 1897F TANGUT COMPONENT-384 18980 TANGUT COMPONENT-385 18981 TANGUT COMPONENT-386 18982 TANGUT COMPONENT-387 18983 TANGUT COMPONENT-388 18984 TANGUT COMPONENT-389 18985 TANGUT COMPONENT-390 18986 TANGUT COMPONENT-391 18987 TANGUT COMPONENT-392 18988 TANGUT COMPONENT-393 18989 TANGUT COMPONENT-394 1898A TANGUT COMPONENT-395 1898B TANGUT COMPONENT-396 1898C TANGUT COMPONENT-397 1898D TANGUT COMPONENT-398 1898E TANGUT COMPONENT-399 1898F TANGUT COMPONENT-400 18990 TANGUT COMPONENT-401 18991 TANGUT COMPONENT-402 18992 TANGUT COMPONENT-403 18993 TANGUT COMPONENT-404 18994 TANGUT COMPONENT-405 18995 TANGUT COMPONENT-406 18996 TANGUT COMPONENT-407 18997 TANGUT COMPONENT-408 18998 TANGUT COMPONENT-409 18999 TANGUT COMPONENT-410 1899A TANGUT COMPONENT-411 1899B TANGUT COMPONENT-412 1899C TANGUT COMPONENT-413 1899D TANGUT COMPONENT-414 1899E TANGUT COMPONENT-415 1899F TANGUT COMPONENT-416 189A0 TANGUT COMPONENT-417 189A1 TANGUT COMPONENT-418 189A2 TANGUT COMPONENT-419 189A3 TANGUT COMPONENT-420 189A4 TANGUT COMPONENT-421 189A5 TANGUT COMPONENT-422 189A6 TANGUT COMPONENT-423 189A7 TANGUT COMPONENT-424 189A8 TANGUT COMPONENT-425 189A9 TANGUT COMPONENT-426 189AA TANGUT COMPONENT-427 189AB TANGUT COMPONENT-428 189AC TANGUT COMPONENT-429 189AD TANGUT COMPONENT-430 189AE TANGUT COMPONENT-431 189AF TANGUT COMPONENT-432 189B0 TANGUT COMPONENT-433 189B1 TANGUT COMPONENT-434 189B2 TANGUT COMPONENT-435 189B3 TANGUT COMPONENT-436 189B4 TANGUT COMPONENT-437 189B5 TANGUT COMPONENT-438 189B6 TANGUT COMPONENT-439 189B7 TANGUT COMPONENT-440 189B8 TANGUT COMPONENT-441 189B9 TANGUT COMPONENT-442 189BA TANGUT COMPONENT-443 189BB TANGUT COMPONENT-444 189BC TANGUT COMPONENT-445 189BD TANGUT COMPONENT-446 189BE TANGUT COMPONENT-447 189BF TANGUT COMPONENT-448 189C0 TANGUT COMPONENT-449 189C1 TANGUT COMPONENT-450 189C2 TANGUT COMPONENT-451 189C3 TANGUT COMPONENT-452 189C4 TANGUT COMPONENT-453 189C5 TANGUT COMPONENT-454 189C6 TANGUT COMPONENT-455 189C7 TANGUT COMPONENT-456 189C8 TANGUT COMPONENT-457 189C9 TANGUT COMPONENT-458 189CA TANGUT COMPONENT-459 189CB TANGUT COMPONENT-460 189CC TANGUT COMPONENT-461 189CD TANGUT COMPONENT-462 189CE TANGUT COMPONENT-463 189CF TANGUT COMPONENT-464 189D0 TANGUT COMPONENT-465 189D1 TANGUT COMPONENT-466 189D2 TANGUT COMPONENT-467 189D3 TANGUT COMPONENT-468 189D4 TANGUT COMPONENT-469 189D5 TANGUT COMPONENT-470 189D6 TANGUT COMPONENT-471 189D7 TANGUT COMPONENT-472 189D8 TANGUT COMPONENT-473 189D9 TANGUT COMPONENT-474 189DA TANGUT COMPONENT-475 189DB TANGUT COMPONENT-476 189DC TANGUT COMPONENT-477 189DD TANGUT COMPONENT-478 189DE TANGUT COMPONENT-479 189DF TANGUT COMPONENT-480 189E0 TANGUT COMPONENT-481 189E1 TANGUT COMPONENT-482 189E2 TANGUT COMPONENT-483 189E3 TANGUT COMPONENT-484 189E4 TANGUT COMPONENT-485 189E5 TANGUT COMPONENT-486 189E6 TANGUT COMPONENT-487 189E7 TANGUT COMPONENT-488 189E8 TANGUT COMPONENT-489 189E9 TANGUT COMPONENT-490 189EA TANGUT COMPONENT-491 189EB TANGUT COMPONENT-492 189EC TANGUT COMPONENT-493 189ED TANGUT COMPONENT-494 189EE TANGUT COMPONENT-495 189EF TANGUT COMPONENT-496 189F0 TANGUT COMPONENT-497 189F1 TANGUT COMPONENT-498 189F2 TANGUT COMPONENT-499 189F3 TANGUT COMPONENT-500 189F4 TANGUT COMPONENT-501 189F5 TANGUT COMPONENT-502 189F6 TANGUT COMPONENT-503 189F7 TANGUT COMPONENT-504 189F8 TANGUT COMPONENT-505 189F9 TANGUT COMPONENT-506 189FA TANGUT COMPONENT-507 189FB TANGUT COMPONENT-508 189FC TANGUT COMPONENT-509 189FD TANGUT COMPONENT-510 189FE TANGUT COMPONENT-511 189FF TANGUT COMPONENT-512 18A00 TANGUT COMPONENT-513 18A01 TANGUT COMPONENT-514 18A02 TANGUT COMPONENT-515 18A03 TANGUT COMPONENT-516 18A04 TANGUT COMPONENT-517 18A05 TANGUT COMPONENT-518 18A06 TANGUT COMPONENT-519 18A07 TANGUT COMPONENT-520 18A08 TANGUT COMPONENT-521 18A09 TANGUT COMPONENT-522 18A0A TANGUT COMPONENT-523 18A0B TANGUT COMPONENT-524 18A0C TANGUT COMPONENT-525 18A0D TANGUT COMPONENT-526 18A0E TANGUT COMPONENT-527 18A0F TANGUT COMPONENT-528 18A10 TANGUT COMPONENT-529 18A11 TANGUT COMPONENT-530 18A12 TANGUT COMPONENT-531 18A13 TANGUT COMPONENT-532 18A14 TANGUT COMPONENT-533 18A15 TANGUT COMPONENT-534 18A16 TANGUT COMPONENT-535 18A17 TANGUT COMPONENT-536 18A18 TANGUT COMPONENT-537 18A19 TANGUT COMPONENT-538 18A1A TANGUT COMPONENT-539 18A1B TANGUT COMPONENT-540 18A1C TANGUT COMPONENT-541 18A1D TANGUT COMPONENT-542 18A1E TANGUT COMPONENT-543 18A1F TANGUT COMPONENT-544 18A20 TANGUT COMPONENT-545 18A21 TANGUT COMPONENT-546 18A22 TANGUT COMPONENT-547 18A23 TANGUT COMPONENT-548 18A24 TANGUT COMPONENT-549 18A25 TANGUT COMPONENT-550 18A26 TANGUT COMPONENT-551 18A27 TANGUT COMPONENT-552 18A28 TANGUT COMPONENT-553 18A29 TANGUT COMPONENT-554 18A2A TANGUT COMPONENT-555 18A2B TANGUT COMPONENT-556 18A2C TANGUT COMPONENT-557 18A2D TANGUT COMPONENT-558 18A2E TANGUT COMPONENT-559 18A2F TANGUT COMPONENT-560 18A30 TANGUT COMPONENT-561 18A31 TANGUT COMPONENT-562 18A32 TANGUT COMPONENT-563 18A33 TANGUT COMPONENT-564 18A34 TANGUT COMPONENT-565 18A35 TANGUT COMPONENT-566 18A36 TANGUT COMPONENT-567 18A37 TANGUT COMPONENT-568 18A38 TANGUT COMPONENT-569 18A39 TANGUT COMPONENT-570 18A3A TANGUT COMPONENT-571 18A3B TANGUT COMPONENT-572 18A3C TANGUT COMPONENT-573 18A3D TANGUT COMPONENT-574 18A3E TANGUT COMPONENT-575 18A3F TANGUT COMPONENT-576 18A40 TANGUT COMPONENT-577 18A41 TANGUT COMPONENT-578 18A42 TANGUT COMPONENT-579 18A43 TANGUT COMPONENT-580 18A44 TANGUT COMPONENT-581 18A45 TANGUT COMPONENT-582 18A46 TANGUT COMPONENT-583 18A47 TANGUT COMPONENT-584 18A48 TANGUT COMPONENT-585 18A49 TANGUT COMPONENT-586 18A4A TANGUT COMPONENT-587 18A4B TANGUT COMPONENT-588 18A4C TANGUT COMPONENT-589 18A4D TANGUT COMPONENT-590 18A4E TANGUT COMPONENT-591 18A4F TANGUT COMPONENT-592 18A50 TANGUT COMPONENT-593 18A51 TANGUT COMPONENT-594 18A52 TANGUT COMPONENT-595 18A53 TANGUT COMPONENT-596 18A54 TANGUT COMPONENT-597 18A55 TANGUT COMPONENT-598 18A56 TANGUT COMPONENT-599 18A57 TANGUT COMPONENT-600 18A58 TANGUT COMPONENT-601 18A59 TANGUT COMPONENT-602 18A5A TANGUT COMPONENT-603 18A5B TANGUT COMPONENT-604 18A5C TANGUT COMPONENT-605 18A5D TANGUT COMPONENT-606 18A5E TANGUT COMPONENT-607 18A5F TANGUT COMPONENT-608 18A60 TANGUT COMPONENT-609 18A61 TANGUT COMPONENT-610 18A62 TANGUT COMPONENT-611 18A63 TANGUT COMPONENT-612 18A64 TANGUT COMPONENT-613 18A65 TANGUT COMPONENT-614 18A66 TANGUT COMPONENT-615 18A67 TANGUT COMPONENT-616 18A68 TANGUT COMPONENT-617 18A69 TANGUT COMPONENT-618 18A6A TANGUT COMPONENT-619 18A6B TANGUT COMPONENT-620 18A6C TANGUT COMPONENT-621 18A6D TANGUT COMPONENT-622 18A6E TANGUT COMPONENT-623 18A6F TANGUT COMPONENT-624 18A70 TANGUT COMPONENT-625 18A71 TANGUT COMPONENT-626 18A72 TANGUT COMPONENT-627 18A73 TANGUT COMPONENT-628 18A74 TANGUT COMPONENT-629 18A75 TANGUT COMPONENT-630 18A76 TANGUT COMPONENT-631 18A77 TANGUT COMPONENT-632 18A78 TANGUT COMPONENT-633 18A79 TANGUT COMPONENT-634 18A7A TANGUT COMPONENT-635 18A7B TANGUT COMPONENT-636 18A7C TANGUT COMPONENT-637 18A7D TANGUT COMPONENT-638 18A7E TANGUT COMPONENT-639 18A7F TANGUT COMPONENT-640 18A80 TANGUT COMPONENT-641 18A81 TANGUT COMPONENT-642 18A82 TANGUT COMPONENT-643 18A83 TANGUT COMPONENT-644 18A84 TANGUT COMPONENT-645 18A85 TANGUT COMPONENT-646 18A86 TANGUT COMPONENT-647 18A87 TANGUT COMPONENT-648 18A88 TANGUT COMPONENT-649 18A89 TANGUT COMPONENT-650 18A8A TANGUT COMPONENT-651 18A8B TANGUT COMPONENT-652 18A8C TANGUT COMPONENT-653 18A8D TANGUT COMPONENT-654 18A8E TANGUT COMPONENT-655 18A8F TANGUT COMPONENT-656 18A90 TANGUT COMPONENT-657 18A91 TANGUT COMPONENT-658 18A92 TANGUT COMPONENT-659 18A93 TANGUT COMPONENT-660 18A94 TANGUT COMPONENT-661 18A95 TANGUT COMPONENT-662 18A96 TANGUT COMPONENT-663 18A97 TANGUT COMPONENT-664 18A98 TANGUT COMPONENT-665 18A99 TANGUT COMPONENT-666 18A9A TANGUT COMPONENT-667 18A9B TANGUT COMPONENT-668 18A9C TANGUT COMPONENT-669 18A9D TANGUT COMPONENT-670 18A9E TANGUT COMPONENT-671 18A9F TANGUT COMPONENT-672 18AA0 TANGUT COMPONENT-673 18AA1 TANGUT COMPONENT-674 18AA2 TANGUT COMPONENT-675 18AA3 TANGUT COMPONENT-676 18AA4 TANGUT COMPONENT-677 18AA5 TANGUT COMPONENT-678 18AA6 TANGUT COMPONENT-679 18AA7 TANGUT COMPONENT-680 18AA8 TANGUT COMPONENT-681 18AA9 TANGUT COMPONENT-682 18AAA TANGUT COMPONENT-683 18AAB TANGUT COMPONENT-684 18AAC TANGUT COMPONENT-685 18AAD TANGUT COMPONENT-686 18AAE TANGUT COMPONENT-687 18AAF TANGUT COMPONENT-688 18AB0 TANGUT COMPONENT-689 18AB1 TANGUT COMPONENT-690 18AB2 TANGUT COMPONENT-691 18AB3 TANGUT COMPONENT-692 18AB4 TANGUT COMPONENT-693 18AB5 TANGUT COMPONENT-694 18AB6 TANGUT COMPONENT-695 18AB7 TANGUT COMPONENT-696 18AB8 TANGUT COMPONENT-697 18AB9 TANGUT COMPONENT-698 18ABA TANGUT COMPONENT-699 18ABB TANGUT COMPONENT-700 18ABC TANGUT COMPONENT-701 18ABD TANGUT COMPONENT-702 18ABE TANGUT COMPONENT-703 18ABF TANGUT COMPONENT-704 18AC0 TANGUT COMPONENT-705 18AC1 TANGUT COMPONENT-706 18AC2 TANGUT COMPONENT-707 18AC3 TANGUT COMPONENT-708 18AC4 TANGUT COMPONENT-709 18AC5 TANGUT COMPONENT-710 18AC6 TANGUT COMPONENT-711 18AC7 TANGUT COMPONENT-712 18AC8 TANGUT COMPONENT-713 18AC9 TANGUT COMPONENT-714 18ACA TANGUT COMPONENT-715 18ACB TANGUT COMPONENT-716 18ACC TANGUT COMPONENT-717 18ACD TANGUT COMPONENT-718 18ACE TANGUT COMPONENT-719 18ACF TANGUT COMPONENT-720 18AD0 TANGUT COMPONENT-721 18AD1 TANGUT COMPONENT-722 18AD2 TANGUT COMPONENT-723 18AD3 TANGUT COMPONENT-724 18AD4 TANGUT COMPONENT-725 18AD5 TANGUT COMPONENT-726 18AD6 TANGUT COMPONENT-727 18AD7 TANGUT COMPONENT-728 18AD8 TANGUT COMPONENT-729 18AD9 TANGUT COMPONENT-730 18ADA TANGUT COMPONENT-731 18ADB TANGUT COMPONENT-732 18ADC TANGUT COMPONENT-733 18ADD TANGUT COMPONENT-734 18ADE TANGUT COMPONENT-735 18ADF TANGUT COMPONENT-736 18AE0 TANGUT COMPONENT-737 18AE1 TANGUT COMPONENT-738 18AE2 TANGUT COMPONENT-739 18AE3 TANGUT COMPONENT-740 18AE4 TANGUT COMPONENT-741 18AE5 TANGUT COMPONENT-742 18AE6 TANGUT COMPONENT-743 18AE7 TANGUT COMPONENT-744 18AE8 TANGUT COMPONENT-745 18AE9 TANGUT COMPONENT-746 18AEA TANGUT COMPONENT-747 18AEB TANGUT COMPONENT-748 18AEC TANGUT COMPONENT-749 18AED TANGUT COMPONENT-750 18AEE TANGUT COMPONENT-751 18AEF TANGUT COMPONENT-752 18AF0 TANGUT COMPONENT-753 18AF1 TANGUT COMPONENT-754 18AF2 TANGUT COMPONENT-755 18AF3 TANGUT COMPONENT-756 18AF4 TANGUT COMPONENT-757 18AF5 TANGUT COMPONENT-758 18AF6 TANGUT COMPONENT-759 18AF7 TANGUT COMPONENT-760 18AF8 TANGUT COMPONENT-761 18AF9 TANGUT COMPONENT-762 18AFA TANGUT COMPONENT-763 18AFB TANGUT COMPONENT-764 18AFC TANGUT COMPONENT-765 18AFD TANGUT COMPONENT-766 18AFE TANGUT COMPONENT-767 18AFF TANGUT COMPONENT-768 1B000 KATAKANA LETTER ARCHAIC E 1B001 HENTAIGANA LETTER E-1 1B001 HIRAGANA LETTER ARCHAIC YE 1B002 HENTAIGANA LETTER A-1 1B003 HENTAIGANA LETTER A-2 1B004 HENTAIGANA LETTER A-3 1B005 HENTAIGANA LETTER A-WO 1B006 HENTAIGANA LETTER I-1 1B007 HENTAIGANA LETTER I-2 1B008 HENTAIGANA LETTER I-3 1B009 HENTAIGANA LETTER I-4 1B00A HENTAIGANA LETTER U-1 1B00B HENTAIGANA LETTER U-2 1B00C HENTAIGANA LETTER U-3 1B00D HENTAIGANA LETTER U-4 1B00E HENTAIGANA LETTER U-5 1B00F HENTAIGANA LETTER E-2 1B010 HENTAIGANA LETTER E-3 1B011 HENTAIGANA LETTER E-4 1B012 HENTAIGANA LETTER E-5 1B013 HENTAIGANA LETTER E-6 1B014 HENTAIGANA LETTER O-1 1B015 HENTAIGANA LETTER O-2 1B016 HENTAIGANA LETTER O-3 1B017 HENTAIGANA LETTER KA-1 1B018 HENTAIGANA LETTER KA-2 1B019 HENTAIGANA LETTER KA-3 1B01A HENTAIGANA LETTER KA-4 1B01B HENTAIGANA LETTER KA-5 1B01C HENTAIGANA LETTER KA-6 1B01D HENTAIGANA LETTER KA-7 1B01E HENTAIGANA LETTER KA-8 1B01F HENTAIGANA LETTER KA-9 1B020 HENTAIGANA LETTER KA-10 1B021 HENTAIGANA LETTER KA-11 1B022 HENTAIGANA LETTER KA-KE 1B023 HENTAIGANA LETTER KI-1 1B024 HENTAIGANA LETTER KI-2 1B025 HENTAIGANA LETTER KI-3 1B026 HENTAIGANA LETTER KI-4 1B027 HENTAIGANA LETTER KI-5 1B028 HENTAIGANA LETTER KI-6 1B029 HENTAIGANA LETTER KI-7 1B02A HENTAIGANA LETTER KI-8 1B02B HENTAIGANA LETTER KU-1 1B02C HENTAIGANA LETTER KU-2 1B02D HENTAIGANA LETTER KU-3 1B02E HENTAIGANA LETTER KU-4 1B02F HENTAIGANA LETTER KU-5 1B030 HENTAIGANA LETTER KU-6 1B031 HENTAIGANA LETTER KU-7 1B032 HENTAIGANA LETTER KE-1 1B033 HENTAIGANA LETTER KE-2 1B034 HENTAIGANA LETTER KE-3 1B035 HENTAIGANA LETTER KE-4 1B036 HENTAIGANA LETTER KE-5 1B037 HENTAIGANA LETTER KE-6 1B038 HENTAIGANA LETTER KO-1 1B039 HENTAIGANA LETTER KO-2 1B03A HENTAIGANA LETTER KO-3 1B03B HENTAIGANA LETTER KO-KI 1B03C HENTAIGANA LETTER SA-1 1B03D HENTAIGANA LETTER SA-2 1B03E HENTAIGANA LETTER SA-3 1B03F HENTAIGANA LETTER SA-4 1B040 HENTAIGANA LETTER SA-5 1B041 HENTAIGANA LETTER SA-6 1B042 HENTAIGANA LETTER SA-7 1B043 HENTAIGANA LETTER SA-8 1B044 HENTAIGANA LETTER SI-1 1B045 HENTAIGANA LETTER SI-2 1B046 HENTAIGANA LETTER SI-3 1B047 HENTAIGANA LETTER SI-4 1B048 HENTAIGANA LETTER SI-5 1B049 HENTAIGANA LETTER SI-6 1B04A HENTAIGANA LETTER SU-1 1B04B HENTAIGANA LETTER SU-2 1B04C HENTAIGANA LETTER SU-3 1B04D HENTAIGANA LETTER SU-4 1B04E HENTAIGANA LETTER SU-5 1B04F HENTAIGANA LETTER SU-6 1B050 HENTAIGANA LETTER SU-7 1B051 HENTAIGANA LETTER SU-8 1B052 HENTAIGANA LETTER SE-1 1B053 HENTAIGANA LETTER SE-2 1B054 HENTAIGANA LETTER SE-3 1B055 HENTAIGANA LETTER SE-4 1B056 HENTAIGANA LETTER SE-5 1B057 HENTAIGANA LETTER SO-1 1B058 HENTAIGANA LETTER SO-2 1B059 HENTAIGANA LETTER SO-3 1B05A HENTAIGANA LETTER SO-4 1B05B HENTAIGANA LETTER SO-5 1B05C HENTAIGANA LETTER SO-6 1B05D HENTAIGANA LETTER SO-7 1B05E HENTAIGANA LETTER TA-1 1B05F HENTAIGANA LETTER TA-2 1B060 HENTAIGANA LETTER TA-3 1B061 HENTAIGANA LETTER TA-4 1B062 HENTAIGANA LETTER TI-1 1B063 HENTAIGANA LETTER TI-2 1B064 HENTAIGANA LETTER TI-3 1B065 HENTAIGANA LETTER TI-4 1B066 HENTAIGANA LETTER TI-5 1B067 HENTAIGANA LETTER TI-6 1B068 HENTAIGANA LETTER TI-7 1B069 HENTAIGANA LETTER TU-1 1B06A HENTAIGANA LETTER TU-2 1B06B HENTAIGANA LETTER TU-3 1B06C HENTAIGANA LETTER TU-4 1B06D HENTAIGANA LETTER TU-TO 1B06E HENTAIGANA LETTER TE-1 1B06F HENTAIGANA LETTER TE-2 1B070 HENTAIGANA LETTER TE-3 1B071 HENTAIGANA LETTER TE-4 1B072 HENTAIGANA LETTER TE-5 1B073 HENTAIGANA LETTER TE-6 1B074 HENTAIGANA LETTER TE-7 1B075 HENTAIGANA LETTER TE-8 1B076 HENTAIGANA LETTER TE-9 1B077 HENTAIGANA LETTER TO-1 1B078 HENTAIGANA LETTER TO-2 1B079 HENTAIGANA LETTER TO-3 1B07A HENTAIGANA LETTER TO-4 1B07B HENTAIGANA LETTER TO-5 1B07C HENTAIGANA LETTER TO-6 1B07D HENTAIGANA LETTER TO-RA 1B07E HENTAIGANA LETTER NA-1 1B07F HENTAIGANA LETTER NA-2 1B080 HENTAIGANA LETTER NA-3 1B081 HENTAIGANA LETTER NA-4 1B082 HENTAIGANA LETTER NA-5 1B083 HENTAIGANA LETTER NA-6 1B084 HENTAIGANA LETTER NA-7 1B085 HENTAIGANA LETTER NA-8 1B086 HENTAIGANA LETTER NA-9 1B087 HENTAIGANA LETTER NI-1 1B088 HENTAIGANA LETTER NI-2 1B089 HENTAIGANA LETTER NI-3 1B08A HENTAIGANA LETTER NI-4 1B08B HENTAIGANA LETTER NI-5 1B08C HENTAIGANA LETTER NI-6 1B08D HENTAIGANA LETTER NI-7 1B08E HENTAIGANA LETTER NI-TE 1B08F HENTAIGANA LETTER NU-1 1B090 HENTAIGANA LETTER NU-2 1B091 HENTAIGANA LETTER NU-3 1B092 HENTAIGANA LETTER NE-1 1B093 HENTAIGANA LETTER NE-2 1B094 HENTAIGANA LETTER NE-3 1B095 HENTAIGANA LETTER NE-4 1B096 HENTAIGANA LETTER NE-5 1B097 HENTAIGANA LETTER NE-6 1B098 HENTAIGANA LETTER NE-KO 1B099 HENTAIGANA LETTER NO-1 1B09A HENTAIGANA LETTER NO-2 1B09B HENTAIGANA LETTER NO-3 1B09C HENTAIGANA LETTER NO-4 1B09D HENTAIGANA LETTER NO-5 1B09E HENTAIGANA LETTER HA-1 1B09F HENTAIGANA LETTER HA-2 1B0A0 HENTAIGANA LETTER HA-3 1B0A1 HENTAIGANA LETTER HA-4 1B0A2 HENTAIGANA LETTER HA-5 1B0A3 HENTAIGANA LETTER HA-6 1B0A4 HENTAIGANA LETTER HA-7 1B0A5 HENTAIGANA LETTER HA-8 1B0A6 HENTAIGANA LETTER HA-9 1B0A7 HENTAIGANA LETTER HA-10 1B0A8 HENTAIGANA LETTER HA-11 1B0A9 HENTAIGANA LETTER HI-1 1B0AA HENTAIGANA LETTER HI-2 1B0AB HENTAIGANA LETTER HI-3 1B0AC HENTAIGANA LETTER HI-4 1B0AD HENTAIGANA LETTER HI-5 1B0AE HENTAIGANA LETTER HI-6 1B0AF HENTAIGANA LETTER HI-7 1B0B0 HENTAIGANA LETTER HU-1 1B0B1 HENTAIGANA LETTER HU-2 1B0B2 HENTAIGANA LETTER HU-3 1B0B3 HENTAIGANA LETTER HE-1 1B0B4 HENTAIGANA LETTER HE-2 1B0B5 HENTAIGANA LETTER HE-3 1B0B6 HENTAIGANA LETTER HE-4 1B0B7 HENTAIGANA LETTER HE-5 1B0B8 HENTAIGANA LETTER HE-6 1B0B9 HENTAIGANA LETTER HE-7 1B0BA HENTAIGANA LETTER HO-1 1B0BB HENTAIGANA LETTER HO-2 1B0BC HENTAIGANA LETTER HO-3 1B0BD HENTAIGANA LETTER HO-4 1B0BE HENTAIGANA LETTER HO-5 1B0BF HENTAIGANA LETTER HO-6 1B0C0 HENTAIGANA LETTER HO-7 1B0C1 HENTAIGANA LETTER HO-8 1B0C2 HENTAIGANA LETTER MA-1 1B0C3 HENTAIGANA LETTER MA-2 1B0C4 HENTAIGANA LETTER MA-3 1B0C5 HENTAIGANA LETTER MA-4 1B0C6 HENTAIGANA LETTER MA-5 1B0C7 HENTAIGANA LETTER MA-6 1B0C8 HENTAIGANA LETTER MA-7 1B0C9 HENTAIGANA LETTER MI-1 1B0CA HENTAIGANA LETTER MI-2 1B0CB HENTAIGANA LETTER MI-3 1B0CC HENTAIGANA LETTER MI-4 1B0CD HENTAIGANA LETTER MI-5 1B0CE HENTAIGANA LETTER MI-6 1B0CF HENTAIGANA LETTER MI-7 1B0D0 HENTAIGANA LETTER MU-1 1B0D1 HENTAIGANA LETTER MU-2 1B0D2 HENTAIGANA LETTER MU-3 1B0D3 HENTAIGANA LETTER MU-4 1B0D4 HENTAIGANA LETTER ME-1 1B0D5 HENTAIGANA LETTER ME-2 1B0D6 HENTAIGANA LETTER ME-MA 1B0D7 HENTAIGANA LETTER MO-1 1B0D8 HENTAIGANA LETTER MO-2 1B0D9 HENTAIGANA LETTER MO-3 1B0DA HENTAIGANA LETTER MO-4 1B0DB HENTAIGANA LETTER MO-5 1B0DC HENTAIGANA LETTER MO-6 1B0DD HENTAIGANA LETTER YA-1 1B0DE HENTAIGANA LETTER YA-2 1B0DF HENTAIGANA LETTER YA-3 1B0E0 HENTAIGANA LETTER YA-4 1B0E1 HENTAIGANA LETTER YA-5 1B0E2 HENTAIGANA LETTER YA-YO 1B0E3 HENTAIGANA LETTER YU-1 1B0E4 HENTAIGANA LETTER YU-2 1B0E5 HENTAIGANA LETTER YU-3 1B0E6 HENTAIGANA LETTER YU-4 1B0E7 HENTAIGANA LETTER YO-1 1B0E8 HENTAIGANA LETTER YO-2 1B0E9 HENTAIGANA LETTER YO-3 1B0EA HENTAIGANA LETTER YO-4 1B0EB HENTAIGANA LETTER YO-5 1B0EC HENTAIGANA LETTER YO-6 1B0ED HENTAIGANA LETTER RA-1 1B0EE HENTAIGANA LETTER RA-2 1B0EF HENTAIGANA LETTER RA-3 1B0F0 HENTAIGANA LETTER RA-4 1B0F1 HENTAIGANA LETTER RI-1 1B0F2 HENTAIGANA LETTER RI-2 1B0F3 HENTAIGANA LETTER RI-3 1B0F4 HENTAIGANA LETTER RI-4 1B0F5 HENTAIGANA LETTER RI-5 1B0F6 HENTAIGANA LETTER RI-6 1B0F7 HENTAIGANA LETTER RI-7 1B0F8 HENTAIGANA LETTER RU-1 1B0F9 HENTAIGANA LETTER RU-2 1B0FA HENTAIGANA LETTER RU-3 1B0FB HENTAIGANA LETTER RU-4 1B0FC HENTAIGANA LETTER RU-5 1B0FD HENTAIGANA LETTER RU-6 1B0FE HENTAIGANA LETTER RE-1 1B0FF HENTAIGANA LETTER RE-2 1B100 HENTAIGANA LETTER RE-3 1B101 HENTAIGANA LETTER RE-4 1B102 HENTAIGANA LETTER RO-1 1B103 HENTAIGANA LETTER RO-2 1B104 HENTAIGANA LETTER RO-3 1B105 HENTAIGANA LETTER RO-4 1B106 HENTAIGANA LETTER RO-5 1B107 HENTAIGANA LETTER RO-6 1B108 HENTAIGANA LETTER WA-1 1B109 HENTAIGANA LETTER WA-2 1B10A HENTAIGANA LETTER WA-3 1B10B HENTAIGANA LETTER WA-4 1B10C HENTAIGANA LETTER WA-5 1B10D HENTAIGANA LETTER WI-1 1B10E HENTAIGANA LETTER WI-2 1B10F HENTAIGANA LETTER WI-3 1B110 HENTAIGANA LETTER WI-4 1B111 HENTAIGANA LETTER WI-5 1B112 HENTAIGANA LETTER WE-1 1B113 HENTAIGANA LETTER WE-2 1B114 HENTAIGANA LETTER WE-3 1B115 HENTAIGANA LETTER WE-4 1B116 HENTAIGANA LETTER WO-1 1B117 HENTAIGANA LETTER WO-2 1B118 HENTAIGANA LETTER WO-3 1B119 HENTAIGANA LETTER WO-4 1B11A HENTAIGANA LETTER WO-5 1B11B HENTAIGANA LETTER WO-6 1B11C HENTAIGANA LETTER WO-7 1B11D HENTAIGANA LETTER N-MU-MO-1 1B11E HENTAIGANA LETTER N-MU-MO-2 1B150 HIRAGANA LETTER SMALL WI 1B151 HIRAGANA LETTER SMALL WE 1B152 HIRAGANA LETTER SMALL WO 1B164 KATAKANA LETTER SMALL WI 1B165 KATAKANA LETTER SMALL WE 1B166 KATAKANA LETTER SMALL WO 1B167 KATAKANA LETTER SMALL N 1BC00 DUPLOYAN LETTER H 1BC01 DUPLOYAN LETTER X 1BC02 DUPLOYAN LETTER P 1BC03 DUPLOYAN LETTER T 1BC04 DUPLOYAN LETTER F 1BC05 DUPLOYAN LETTER K 1BC06 DUPLOYAN LETTER L 1BC07 DUPLOYAN LETTER B 1BC08 DUPLOYAN LETTER D 1BC09 DUPLOYAN LETTER V 1BC0A DUPLOYAN LETTER G 1BC0B DUPLOYAN LETTER R 1BC0C DUPLOYAN LETTER P N 1BC0D DUPLOYAN LETTER D S 1BC0E DUPLOYAN LETTER F N 1BC0F DUPLOYAN LETTER K M 1BC10 DUPLOYAN LETTER R S 1BC11 DUPLOYAN LETTER TH 1BC12 DUPLOYAN LETTER SLOAN DH 1BC13 DUPLOYAN LETTER DH 1BC14 DUPLOYAN LETTER KK 1BC15 DUPLOYAN LETTER SLOAN J 1BC16 DUPLOYAN LETTER HL 1BC17 DUPLOYAN LETTER LH 1BC18 DUPLOYAN LETTER RH 1BC19 DUPLOYAN LETTER M 1BC1A DUPLOYAN LETTER N 1BC1B DUPLOYAN LETTER J 1BC1C DUPLOYAN LETTER S 1BC1D DUPLOYAN LETTER M N 1BC1E DUPLOYAN LETTER N M 1BC1F DUPLOYAN LETTER J M 1BC20 DUPLOYAN LETTER S J 1BC21 DUPLOYAN LETTER M WITH DOT 1BC22 DUPLOYAN LETTER N WITH DOT 1BC23 DUPLOYAN LETTER J WITH DOT 1BC24 DUPLOYAN LETTER J WITH DOTS INSIDE AND ABOVE 1BC25 DUPLOYAN LETTER S WITH DOT 1BC26 DUPLOYAN LETTER S WITH DOT BELOW 1BC27 DUPLOYAN LETTER M S 1BC28 DUPLOYAN LETTER N S 1BC29 DUPLOYAN LETTER J S 1BC2A DUPLOYAN LETTER S S 1BC2B DUPLOYAN LETTER M N S 1BC2C DUPLOYAN LETTER N M S 1BC2D DUPLOYAN LETTER J M S 1BC2E DUPLOYAN LETTER S J S 1BC2F DUPLOYAN LETTER J S WITH DOT 1BC30 DUPLOYAN LETTER J N 1BC31 DUPLOYAN LETTER J N S 1BC32 DUPLOYAN LETTER S T 1BC33 DUPLOYAN LETTER S T R 1BC34 DUPLOYAN LETTER S P 1BC35 DUPLOYAN LETTER S P R 1BC36 DUPLOYAN LETTER T S 1BC37 DUPLOYAN LETTER T R S 1BC38 DUPLOYAN LETTER W 1BC39 DUPLOYAN LETTER WH 1BC3A DUPLOYAN LETTER W R 1BC3B DUPLOYAN LETTER S N 1BC3C DUPLOYAN LETTER S M 1BC3D DUPLOYAN LETTER K R S 1BC3E DUPLOYAN LETTER G R S 1BC3F DUPLOYAN LETTER S K 1BC40 DUPLOYAN LETTER S K R 1BC41 DUPLOYAN LETTER A 1BC42 DUPLOYAN LETTER SLOAN OW 1BC43 DUPLOYAN LETTER OA 1BC44 DUPLOYAN LETTER O 1BC45 DUPLOYAN LETTER AOU 1BC46 DUPLOYAN LETTER I 1BC47 DUPLOYAN LETTER E 1BC48 DUPLOYAN LETTER IE 1BC49 DUPLOYAN LETTER SHORT I 1BC4A DUPLOYAN LETTER UI 1BC4B DUPLOYAN LETTER EE 1BC4C DUPLOYAN LETTER SLOAN EH 1BC4D DUPLOYAN LETTER ROMANIAN I 1BC4E DUPLOYAN LETTER SLOAN EE 1BC4F DUPLOYAN LETTER LONG I 1BC50 DUPLOYAN LETTER YE 1BC51 DUPLOYAN LETTER U 1BC52 DUPLOYAN LETTER EU 1BC53 DUPLOYAN LETTER XW 1BC54 DUPLOYAN LETTER U N 1BC55 DUPLOYAN LETTER LONG U 1BC56 DUPLOYAN LETTER ROMANIAN U 1BC57 DUPLOYAN LETTER UH 1BC58 DUPLOYAN LETTER SLOAN U 1BC59 DUPLOYAN LETTER OOH 1BC5A DUPLOYAN LETTER OW 1BC5B DUPLOYAN LETTER OU 1BC5C DUPLOYAN LETTER WA 1BC5D DUPLOYAN LETTER WO 1BC5E DUPLOYAN LETTER WI 1BC5F DUPLOYAN LETTER WEI 1BC60 DUPLOYAN LETTER WOW 1BC61 DUPLOYAN LETTER NASAL U 1BC62 DUPLOYAN LETTER NASAL O 1BC63 DUPLOYAN LETTER NASAL I 1BC64 DUPLOYAN LETTER NASAL A 1BC65 DUPLOYAN LETTER PERNIN AN 1BC66 DUPLOYAN LETTER PERNIN AM 1BC67 DUPLOYAN LETTER SLOAN EN 1BC68 DUPLOYAN LETTER SLOAN AN 1BC69 DUPLOYAN LETTER SLOAN ON 1BC6A DUPLOYAN LETTER VOCALIC M 1BC70 DUPLOYAN AFFIX LEFT HORIZONTAL SECANT 1BC71 DUPLOYAN AFFIX MID HORIZONTAL SECANT 1BC72 DUPLOYAN AFFIX RIGHT HORIZONTAL SECANT 1BC73 DUPLOYAN AFFIX LOW VERTICAL SECANT 1BC74 DUPLOYAN AFFIX MID VERTICAL SECANT 1BC75 DUPLOYAN AFFIX HIGH VERTICAL SECANT 1BC76 DUPLOYAN AFFIX ATTACHED SECANT 1BC77 DUPLOYAN AFFIX ATTACHED LEFT-TO-RIGHT SECANT 1BC78 DUPLOYAN AFFIX ATTACHED TANGENT 1BC79 DUPLOYAN AFFIX ATTACHED TAIL 1BC7A DUPLOYAN AFFIX ATTACHED E HOOK 1BC7B DUPLOYAN AFFIX ATTACHED I HOOK 1BC7C DUPLOYAN AFFIX ATTACHED TANGENT HOOK 1BC80 DUPLOYAN AFFIX HIGH ACUTE 1BC81 DUPLOYAN AFFIX HIGH TIGHT ACUTE 1BC82 DUPLOYAN AFFIX HIGH GRAVE 1BC83 DUPLOYAN AFFIX HIGH LONG GRAVE 1BC84 DUPLOYAN AFFIX HIGH DOT 1BC85 DUPLOYAN AFFIX HIGH CIRCLE 1BC86 DUPLOYAN AFFIX HIGH LINE 1BC87 DUPLOYAN AFFIX HIGH WAVE 1BC88 DUPLOYAN AFFIX HIGH VERTICAL 1BC90 DUPLOYAN AFFIX LOW ACUTE 1BC91 DUPLOYAN AFFIX LOW TIGHT ACUTE 1BC92 DUPLOYAN AFFIX LOW GRAVE 1BC93 DUPLOYAN AFFIX LOW LONG GRAVE 1BC94 DUPLOYAN AFFIX LOW DOT 1BC95 DUPLOYAN AFFIX LOW CIRCLE 1BC96 DUPLOYAN AFFIX LOW LINE 1BC97 DUPLOYAN AFFIX LOW WAVE 1BC98 DUPLOYAN AFFIX LOW VERTICAL 1BC99 DUPLOYAN AFFIX LOW ARROW 1BC9C DUPLOYAN SIGN O WITH CROSS 1BC9D DUPLOYAN THICK LETTER SELECTOR 1BC9E DUPLOYAN DOUBLE MARK 1BC9F DUPLOYAN PUNCTUATION CHINOOK FULL STOP 1BCA0 SHORTHAND FORMAT LETTER OVERLAP 1BCA1 SHORTHAND FORMAT CONTINUING OVERLAP 1BCA2 SHORTHAND FORMAT DOWN STEP 1BCA3 SHORTHAND FORMAT UP STEP 1D000 BYZANTINE MUSICAL SYMBOL PSILI 1D001 BYZANTINE MUSICAL SYMBOL DASEIA 1D002 BYZANTINE MUSICAL SYMBOL PERISPOMENI 1D003 BYZANTINE MUSICAL SYMBOL OXEIA EKFONITIKON 1D004 BYZANTINE MUSICAL SYMBOL OXEIA DIPLI 1D005 BYZANTINE MUSICAL SYMBOL VAREIA EKFONITIKON 1D006 BYZANTINE MUSICAL SYMBOL VAREIA DIPLI 1D007 BYZANTINE MUSICAL SYMBOL KATHISTI 1D008 BYZANTINE MUSICAL SYMBOL SYRMATIKI 1D009 BYZANTINE MUSICAL SYMBOL PARAKLITIKI 1D00A BYZANTINE MUSICAL SYMBOL YPOKRISIS 1D00B BYZANTINE MUSICAL SYMBOL YPOKRISIS DIPLI 1D00C BYZANTINE MUSICAL SYMBOL KREMASTI 1D00D BYZANTINE MUSICAL SYMBOL APESO EKFONITIKON 1D00E BYZANTINE MUSICAL SYMBOL EXO EKFONITIKON 1D00F BYZANTINE MUSICAL SYMBOL TELEIA 1D010 BYZANTINE MUSICAL SYMBOL KENTIMATA 1D011 BYZANTINE MUSICAL SYMBOL APOSTROFOS 1D012 BYZANTINE MUSICAL SYMBOL APOSTROFOS DIPLI 1D013 BYZANTINE MUSICAL SYMBOL SYNEVMA 1D014 BYZANTINE MUSICAL SYMBOL THITA 1D015 BYZANTINE MUSICAL SYMBOL OLIGON ARCHAION 1D016 BYZANTINE MUSICAL SYMBOL GORGON ARCHAION 1D017 BYZANTINE MUSICAL SYMBOL PSILON 1D018 BYZANTINE MUSICAL SYMBOL CHAMILON 1D019 BYZANTINE MUSICAL SYMBOL VATHY 1D01A BYZANTINE MUSICAL SYMBOL ISON ARCHAION 1D01B BYZANTINE MUSICAL SYMBOL KENTIMA ARCHAION 1D01C BYZANTINE MUSICAL SYMBOL KENTIMATA ARCHAION 1D01D BYZANTINE MUSICAL SYMBOL SAXIMATA 1D01E BYZANTINE MUSICAL SYMBOL PARICHON 1D01F BYZANTINE MUSICAL SYMBOL STAVROS APODEXIA 1D020 BYZANTINE MUSICAL SYMBOL OXEIAI ARCHAION 1D021 BYZANTINE MUSICAL SYMBOL VAREIAI ARCHAION 1D022 BYZANTINE MUSICAL SYMBOL APODERMA ARCHAION 1D023 BYZANTINE MUSICAL SYMBOL APOTHEMA 1D024 BYZANTINE MUSICAL SYMBOL KLASMA 1D025 BYZANTINE MUSICAL SYMBOL REVMA 1D026 BYZANTINE MUSICAL SYMBOL PIASMA ARCHAION 1D027 BYZANTINE MUSICAL SYMBOL TINAGMA 1D028 BYZANTINE MUSICAL SYMBOL ANATRICHISMA 1D029 BYZANTINE MUSICAL SYMBOL SEISMA 1D02A BYZANTINE MUSICAL SYMBOL SYNAGMA ARCHAION 1D02B BYZANTINE MUSICAL SYMBOL SYNAGMA META STAVROU 1D02C BYZANTINE MUSICAL SYMBOL OYRANISMA ARCHAION 1D02D BYZANTINE MUSICAL SYMBOL THEMA 1D02E BYZANTINE MUSICAL SYMBOL LEMOI 1D02F BYZANTINE MUSICAL SYMBOL DYO 1D030 BYZANTINE MUSICAL SYMBOL TRIA 1D031 BYZANTINE MUSICAL SYMBOL TESSERA 1D032 BYZANTINE MUSICAL SYMBOL KRATIMATA 1D033 BYZANTINE MUSICAL SYMBOL APESO EXO NEO 1D034 BYZANTINE MUSICAL SYMBOL FTHORA ARCHAION 1D035 BYZANTINE MUSICAL SYMBOL IMIFTHORA 1D036 BYZANTINE MUSICAL SYMBOL TROMIKON ARCHAION 1D037 BYZANTINE MUSICAL SYMBOL KATAVA TROMIKON 1D038 BYZANTINE MUSICAL SYMBOL PELASTON 1D039 BYZANTINE MUSICAL SYMBOL PSIFISTON 1D03A BYZANTINE MUSICAL SYMBOL KONTEVMA 1D03B BYZANTINE MUSICAL SYMBOL CHOREVMA ARCHAION 1D03C BYZANTINE MUSICAL SYMBOL RAPISMA 1D03D BYZANTINE MUSICAL SYMBOL PARAKALESMA ARCHAION 1D03E BYZANTINE MUSICAL SYMBOL PARAKLITIKI ARCHAION 1D03F BYZANTINE MUSICAL SYMBOL ICHADIN 1D040 BYZANTINE MUSICAL SYMBOL NANA 1D041 BYZANTINE MUSICAL SYMBOL PETASMA 1D042 BYZANTINE MUSICAL SYMBOL KONTEVMA ALLO 1D043 BYZANTINE MUSICAL SYMBOL TROMIKON ALLO 1D044 BYZANTINE MUSICAL SYMBOL STRAGGISMATA 1D045 BYZANTINE MUSICAL SYMBOL GRONTHISMATA 1D046 BYZANTINE MUSICAL SYMBOL ISON NEO 1D047 BYZANTINE MUSICAL SYMBOL OLIGON NEO 1D048 BYZANTINE MUSICAL SYMBOL OXEIA NEO 1D049 BYZANTINE MUSICAL SYMBOL PETASTI 1D04A BYZANTINE MUSICAL SYMBOL KOUFISMA 1D04B BYZANTINE MUSICAL SYMBOL PETASTOKOUFISMA 1D04C BYZANTINE MUSICAL SYMBOL KRATIMOKOUFISMA 1D04D BYZANTINE MUSICAL SYMBOL PELASTON NEO 1D04E BYZANTINE MUSICAL SYMBOL KENTIMATA NEO ANO 1D04F BYZANTINE MUSICAL SYMBOL KENTIMA NEO ANO 1D050 BYZANTINE MUSICAL SYMBOL YPSILI 1D051 BYZANTINE MUSICAL SYMBOL APOSTROFOS NEO 1D052 BYZANTINE MUSICAL SYMBOL APOSTROFOI SYNDESMOS NEO 1D053 BYZANTINE MUSICAL SYMBOL YPORROI 1D054 BYZANTINE MUSICAL SYMBOL KRATIMOYPORROON 1D055 BYZANTINE MUSICAL SYMBOL ELAFRON 1D056 BYZANTINE MUSICAL SYMBOL CHAMILI 1D057 BYZANTINE MUSICAL SYMBOL MIKRON ISON 1D058 BYZANTINE MUSICAL SYMBOL VAREIA NEO 1D059 BYZANTINE MUSICAL SYMBOL PIASMA NEO 1D05A BYZANTINE MUSICAL SYMBOL PSIFISTON NEO 1D05B BYZANTINE MUSICAL SYMBOL OMALON 1D05C BYZANTINE MUSICAL SYMBOL ANTIKENOMA 1D05D BYZANTINE MUSICAL SYMBOL LYGISMA 1D05E BYZANTINE MUSICAL SYMBOL PARAKLITIKI NEO 1D05F BYZANTINE MUSICAL SYMBOL PARAKALESMA NEO 1D060 BYZANTINE MUSICAL SYMBOL ETERON PARAKALESMA 1D061 BYZANTINE MUSICAL SYMBOL KYLISMA 1D062 BYZANTINE MUSICAL SYMBOL ANTIKENOKYLISMA 1D063 BYZANTINE MUSICAL SYMBOL TROMIKON NEO 1D064 BYZANTINE MUSICAL SYMBOL EKSTREPTON 1D065 BYZANTINE MUSICAL SYMBOL SYNAGMA NEO 1D066 BYZANTINE MUSICAL SYMBOL SYRMA 1D067 BYZANTINE MUSICAL SYMBOL CHOREVMA NEO 1D068 BYZANTINE MUSICAL SYMBOL EPEGERMA 1D069 BYZANTINE MUSICAL SYMBOL SEISMA NEO 1D06A BYZANTINE MUSICAL SYMBOL XIRON KLASMA 1D06B BYZANTINE MUSICAL SYMBOL TROMIKOPSIFISTON 1D06C BYZANTINE MUSICAL SYMBOL PSIFISTOLYGISMA 1D06D BYZANTINE MUSICAL SYMBOL TROMIKOLYGISMA 1D06E BYZANTINE MUSICAL SYMBOL TROMIKOPARAKALESMA 1D06F BYZANTINE MUSICAL SYMBOL PSIFISTOPARAKALESMA 1D070 BYZANTINE MUSICAL SYMBOL TROMIKOSYNAGMA 1D071 BYZANTINE MUSICAL SYMBOL PSIFISTOSYNAGMA 1D072 BYZANTINE MUSICAL SYMBOL GORGOSYNTHETON 1D073 BYZANTINE MUSICAL SYMBOL ARGOSYNTHETON 1D074 BYZANTINE MUSICAL SYMBOL ETERON ARGOSYNTHETON 1D075 BYZANTINE MUSICAL SYMBOL OYRANISMA NEO 1D076 BYZANTINE MUSICAL SYMBOL THEMATISMOS ESO 1D077 BYZANTINE MUSICAL SYMBOL THEMATISMOS EXO 1D078 BYZANTINE MUSICAL SYMBOL THEMA APLOUN 1D079 BYZANTINE MUSICAL SYMBOL THES KAI APOTHES 1D07A BYZANTINE MUSICAL SYMBOL KATAVASMA 1D07B BYZANTINE MUSICAL SYMBOL ENDOFONON 1D07C BYZANTINE MUSICAL SYMBOL YFEN KATO 1D07D BYZANTINE MUSICAL SYMBOL YFEN ANO 1D07E BYZANTINE MUSICAL SYMBOL STAVROS 1D07F BYZANTINE MUSICAL SYMBOL KLASMA ANO 1D080 BYZANTINE MUSICAL SYMBOL DIPLI ARCHAION 1D081 BYZANTINE MUSICAL SYMBOL KRATIMA ARCHAION 1D082 BYZANTINE MUSICAL SYMBOL KRATIMA ALLO 1D083 BYZANTINE MUSICAL SYMBOL KRATIMA NEO 1D084 BYZANTINE MUSICAL SYMBOL APODERMA NEO 1D085 BYZANTINE MUSICAL SYMBOL APLI 1D086 BYZANTINE MUSICAL SYMBOL DIPLI 1D087 BYZANTINE MUSICAL SYMBOL TRIPLI 1D088 BYZANTINE MUSICAL SYMBOL TETRAPLI 1D089 BYZANTINE MUSICAL SYMBOL KORONIS 1D08A BYZANTINE MUSICAL SYMBOL LEIMMA ENOS CHRONOU 1D08B BYZANTINE MUSICAL SYMBOL LEIMMA DYO CHRONON 1D08C BYZANTINE MUSICAL SYMBOL LEIMMA TRION CHRONON 1D08D BYZANTINE MUSICAL SYMBOL LEIMMA TESSARON CHRONON 1D08E BYZANTINE MUSICAL SYMBOL LEIMMA IMISEOS CHRONOU 1D08F BYZANTINE MUSICAL SYMBOL GORGON NEO ANO 1D090 BYZANTINE MUSICAL SYMBOL GORGON PARESTIGMENON ARISTERA 1D091 BYZANTINE MUSICAL SYMBOL GORGON PARESTIGMENON DEXIA 1D092 BYZANTINE MUSICAL SYMBOL DIGORGON 1D093 BYZANTINE MUSICAL SYMBOL DIGORGON PARESTIGMENON ARISTERA KATO 1D094 BYZANTINE MUSICAL SYMBOL DIGORGON PARESTIGMENON ARISTERA ANO 1D095 BYZANTINE MUSICAL SYMBOL DIGORGON PARESTIGMENON DEXIA 1D096 BYZANTINE MUSICAL SYMBOL TRIGORGON 1D097 BYZANTINE MUSICAL SYMBOL ARGON 1D098 BYZANTINE MUSICAL SYMBOL IMIDIARGON 1D099 BYZANTINE MUSICAL SYMBOL DIARGON 1D09A BYZANTINE MUSICAL SYMBOL AGOGI POLI ARGI 1D09B BYZANTINE MUSICAL SYMBOL AGOGI ARGOTERI 1D09C BYZANTINE MUSICAL SYMBOL AGOGI ARGI 1D09D BYZANTINE MUSICAL SYMBOL AGOGI METRIA 1D09E BYZANTINE MUSICAL SYMBOL AGOGI MESI 1D09F BYZANTINE MUSICAL SYMBOL AGOGI GORGI 1D0A0 BYZANTINE MUSICAL SYMBOL AGOGI GORGOTERI 1D0A1 BYZANTINE MUSICAL SYMBOL AGOGI POLI GORGI 1D0A2 BYZANTINE MUSICAL SYMBOL MARTYRIA PROTOS ICHOS 1D0A3 BYZANTINE MUSICAL SYMBOL MARTYRIA ALLI PROTOS ICHOS 1D0A4 BYZANTINE MUSICAL SYMBOL MARTYRIA DEYTEROS ICHOS 1D0A5 BYZANTINE MUSICAL SYMBOL MARTYRIA ALLI DEYTEROS ICHOS 1D0A6 BYZANTINE MUSICAL SYMBOL MARTYRIA TRITOS ICHOS 1D0A7 BYZANTINE MUSICAL SYMBOL MARTYRIA TRIFONIAS 1D0A8 BYZANTINE MUSICAL SYMBOL MARTYRIA TETARTOS ICHOS 1D0A9 BYZANTINE MUSICAL SYMBOL MARTYRIA TETARTOS LEGETOS ICHOS 1D0AA BYZANTINE MUSICAL SYMBOL MARTYRIA LEGETOS ICHOS 1D0AB BYZANTINE MUSICAL SYMBOL MARTYRIA PLAGIOS ICHOS 1D0AC BYZANTINE MUSICAL SYMBOL ISAKIA TELOUS ICHIMATOS 1D0AD BYZANTINE MUSICAL SYMBOL APOSTROFOI TELOUS ICHIMATOS 1D0AE BYZANTINE MUSICAL SYMBOL FANEROSIS TETRAFONIAS 1D0AF BYZANTINE MUSICAL SYMBOL FANEROSIS MONOFONIAS 1D0B0 BYZANTINE MUSICAL SYMBOL FANEROSIS DIFONIAS 1D0B1 BYZANTINE MUSICAL SYMBOL MARTYRIA VARYS ICHOS 1D0B2 BYZANTINE MUSICAL SYMBOL MARTYRIA PROTOVARYS ICHOS 1D0B3 BYZANTINE MUSICAL SYMBOL MARTYRIA PLAGIOS TETARTOS ICHOS 1D0B4 BYZANTINE MUSICAL SYMBOL GORTHMIKON N APLOUN 1D0B5 BYZANTINE MUSICAL SYMBOL GORTHMIKON N DIPLOUN 1D0B6 BYZANTINE MUSICAL SYMBOL ENARXIS KAI FTHORA VOU 1D0B7 BYZANTINE MUSICAL SYMBOL IMIFONON 1D0B8 BYZANTINE MUSICAL SYMBOL IMIFTHORON 1D0B9 BYZANTINE MUSICAL SYMBOL FTHORA ARCHAION DEYTEROU ICHOU 1D0BA BYZANTINE MUSICAL SYMBOL FTHORA DIATONIKI PA 1D0BB BYZANTINE MUSICAL SYMBOL FTHORA DIATONIKI NANA 1D0BC BYZANTINE MUSICAL SYMBOL FTHORA NAOS ICHOS 1D0BD BYZANTINE MUSICAL SYMBOL FTHORA DIATONIKI DI 1D0BE BYZANTINE MUSICAL SYMBOL FTHORA SKLIRON DIATONON DI 1D0BF BYZANTINE MUSICAL SYMBOL FTHORA DIATONIKI KE 1D0C0 BYZANTINE MUSICAL SYMBOL FTHORA DIATONIKI ZO 1D0C1 BYZANTINE MUSICAL SYMBOL FTHORA DIATONIKI NI KATO 1D0C2 BYZANTINE MUSICAL SYMBOL FTHORA DIATONIKI NI ANO 1D0C3 BYZANTINE MUSICAL SYMBOL FTHORA MALAKON CHROMA DIFONIAS 1D0C4 BYZANTINE MUSICAL SYMBOL FTHORA MALAKON CHROMA MONOFONIAS 1D0C5 BYZANTINE MUSICAL SYMBOL FTHORA SKLIRON CHROMA VASIS 1D0C5 BYZANTINE MUSICAL SYMBOL FHTORA SKLIRON CHROMA VASIS 1D0C6 BYZANTINE MUSICAL SYMBOL FTHORA SKLIRON CHROMA SYNAFI 1D0C7 BYZANTINE MUSICAL SYMBOL FTHORA NENANO 1D0C8 BYZANTINE MUSICAL SYMBOL CHROA ZYGOS 1D0C9 BYZANTINE MUSICAL SYMBOL CHROA KLITON 1D0CA BYZANTINE MUSICAL SYMBOL CHROA SPATHI 1D0CB BYZANTINE MUSICAL SYMBOL FTHORA I YFESIS TETARTIMORION 1D0CC BYZANTINE MUSICAL SYMBOL FTHORA ENARMONIOS ANTIFONIA 1D0CD BYZANTINE MUSICAL SYMBOL YFESIS TRITIMORION 1D0CE BYZANTINE MUSICAL SYMBOL DIESIS TRITIMORION 1D0CF BYZANTINE MUSICAL SYMBOL DIESIS TETARTIMORION 1D0D0 BYZANTINE MUSICAL SYMBOL DIESIS APLI DYO DODEKATA 1D0D1 BYZANTINE MUSICAL SYMBOL DIESIS MONOGRAMMOS TESSERA DODEKATA 1D0D2 BYZANTINE MUSICAL SYMBOL DIESIS DIGRAMMOS EX DODEKATA 1D0D3 BYZANTINE MUSICAL SYMBOL DIESIS TRIGRAMMOS OKTO DODEKATA 1D0D4 BYZANTINE MUSICAL SYMBOL YFESIS APLI DYO DODEKATA 1D0D5 BYZANTINE MUSICAL SYMBOL YFESIS MONOGRAMMOS TESSERA DODEKATA 1D0D6 BYZANTINE MUSICAL SYMBOL YFESIS DIGRAMMOS EX DODEKATA 1D0D7 BYZANTINE MUSICAL SYMBOL YFESIS TRIGRAMMOS OKTO DODEKATA 1D0D8 BYZANTINE MUSICAL SYMBOL GENIKI DIESIS 1D0D9 BYZANTINE MUSICAL SYMBOL GENIKI YFESIS 1D0DA BYZANTINE MUSICAL SYMBOL DIASTOLI APLI MIKRI 1D0DB BYZANTINE MUSICAL SYMBOL DIASTOLI APLI MEGALI 1D0DC BYZANTINE MUSICAL SYMBOL DIASTOLI DIPLI 1D0DD BYZANTINE MUSICAL SYMBOL DIASTOLI THESEOS 1D0DE BYZANTINE MUSICAL SYMBOL SIMANSIS THESEOS 1D0DF BYZANTINE MUSICAL SYMBOL SIMANSIS THESEOS DISIMOU 1D0E0 BYZANTINE MUSICAL SYMBOL SIMANSIS THESEOS TRISIMOU 1D0E1 BYZANTINE MUSICAL SYMBOL SIMANSIS THESEOS TETRASIMOU 1D0E2 BYZANTINE MUSICAL SYMBOL SIMANSIS ARSEOS 1D0E3 BYZANTINE MUSICAL SYMBOL SIMANSIS ARSEOS DISIMOU 1D0E4 BYZANTINE MUSICAL SYMBOL SIMANSIS ARSEOS TRISIMOU 1D0E5 BYZANTINE MUSICAL SYMBOL SIMANSIS ARSEOS TETRASIMOU 1D0E6 BYZANTINE MUSICAL SYMBOL DIGRAMMA GG 1D0E7 BYZANTINE MUSICAL SYMBOL DIFTOGGOS OU 1D0E8 BYZANTINE MUSICAL SYMBOL STIGMA 1D0E9 BYZANTINE MUSICAL SYMBOL ARKTIKO PA 1D0EA BYZANTINE MUSICAL SYMBOL ARKTIKO VOU 1D0EB BYZANTINE MUSICAL SYMBOL ARKTIKO GA 1D0EC BYZANTINE MUSICAL SYMBOL ARKTIKO DI 1D0ED BYZANTINE MUSICAL SYMBOL ARKTIKO KE 1D0EE BYZANTINE MUSICAL SYMBOL ARKTIKO ZO 1D0EF BYZANTINE MUSICAL SYMBOL ARKTIKO NI 1D0F0 BYZANTINE MUSICAL SYMBOL KENTIMATA NEO MESO 1D0F1 BYZANTINE MUSICAL SYMBOL KENTIMA NEO MESO 1D0F2 BYZANTINE MUSICAL SYMBOL KENTIMATA NEO KATO 1D0F3 BYZANTINE MUSICAL SYMBOL KENTIMA NEO KATO 1D0F4 BYZANTINE MUSICAL SYMBOL KLASMA KATO 1D0F5 BYZANTINE MUSICAL SYMBOL GORGON NEO KATO 1D100 MUSICAL SYMBOL SINGLE BARLINE 1D101 MUSICAL SYMBOL DOUBLE BARLINE 1D102 MUSICAL SYMBOL FINAL BARLINE 1D103 MUSICAL SYMBOL REVERSE FINAL BARLINE 1D104 MUSICAL SYMBOL DASHED BARLINE 1D105 MUSICAL SYMBOL SHORT BARLINE 1D106 MUSICAL SYMBOL LEFT REPEAT SIGN 1D107 MUSICAL SYMBOL RIGHT REPEAT SIGN 1D108 MUSICAL SYMBOL REPEAT DOTS 1D109 MUSICAL SYMBOL DAL SEGNO 1D10A MUSICAL SYMBOL DA CAPO 1D10B MUSICAL SYMBOL SEGNO 1D10C MUSICAL SYMBOL CODA 1D10D MUSICAL SYMBOL REPEATED FIGURE-1 1D10E MUSICAL SYMBOL REPEATED FIGURE-2 1D10F MUSICAL SYMBOL REPEATED FIGURE-3 1D110 MUSICAL SYMBOL FERMATA 1D111 MUSICAL SYMBOL FERMATA BELOW 1D112 MUSICAL SYMBOL BREATH MARK 1D113 MUSICAL SYMBOL CAESURA 1D114 MUSICAL SYMBOL BRACE 1D115 MUSICAL SYMBOL BRACKET 1D116 MUSICAL SYMBOL ONE-LINE STAFF 1D117 MUSICAL SYMBOL TWO-LINE STAFF 1D118 MUSICAL SYMBOL THREE-LINE STAFF 1D119 MUSICAL SYMBOL FOUR-LINE STAFF 1D11A MUSICAL SYMBOL FIVE-LINE STAFF 1D11B MUSICAL SYMBOL SIX-LINE STAFF 1D11C MUSICAL SYMBOL SIX-STRING FRETBOARD 1D11D MUSICAL SYMBOL FOUR-STRING FRETBOARD 1D11E MUSICAL SYMBOL G CLEF 1D11F MUSICAL SYMBOL G CLEF OTTAVA ALTA 1D120 MUSICAL SYMBOL G CLEF OTTAVA BASSA 1D121 MUSICAL SYMBOL C CLEF 1D122 MUSICAL SYMBOL F CLEF 1D123 MUSICAL SYMBOL F CLEF OTTAVA ALTA 1D124 MUSICAL SYMBOL F CLEF OTTAVA BASSA 1D125 MUSICAL SYMBOL DRUM CLEF-1 1D126 MUSICAL SYMBOL DRUM CLEF-2 1D129 MUSICAL SYMBOL MULTIPLE MEASURE REST 1D12A MUSICAL SYMBOL DOUBLE SHARP 1D12B MUSICAL SYMBOL DOUBLE FLAT 1D12C MUSICAL SYMBOL FLAT UP 1D12D MUSICAL SYMBOL FLAT DOWN 1D12E MUSICAL SYMBOL NATURAL UP 1D12F MUSICAL SYMBOL NATURAL DOWN 1D130 MUSICAL SYMBOL SHARP UP 1D131 MUSICAL SYMBOL SHARP DOWN 1D132 MUSICAL SYMBOL QUARTER TONE SHARP 1D133 MUSICAL SYMBOL QUARTER TONE FLAT 1D134 MUSICAL SYMBOL COMMON TIME 1D135 MUSICAL SYMBOL CUT TIME 1D136 MUSICAL SYMBOL OTTAVA ALTA 1D137 MUSICAL SYMBOL OTTAVA BASSA 1D138 MUSICAL SYMBOL QUINDICESIMA ALTA 1D139 MUSICAL SYMBOL QUINDICESIMA BASSA 1D13A MUSICAL SYMBOL MULTI REST 1D13B MUSICAL SYMBOL WHOLE REST 1D13C MUSICAL SYMBOL HALF REST 1D13D MUSICAL SYMBOL QUARTER REST 1D13E MUSICAL SYMBOL EIGHTH REST 1D13F MUSICAL SYMBOL SIXTEENTH REST 1D140 MUSICAL SYMBOL THIRTY-SECOND REST 1D141 MUSICAL SYMBOL SIXTY-FOURTH REST 1D142 MUSICAL SYMBOL ONE HUNDRED TWENTY-EIGHTH REST 1D143 MUSICAL SYMBOL X NOTEHEAD 1D144 MUSICAL SYMBOL PLUS NOTEHEAD 1D145 MUSICAL SYMBOL CIRCLE X NOTEHEAD 1D146 MUSICAL SYMBOL SQUARE NOTEHEAD WHITE 1D147 MUSICAL SYMBOL SQUARE NOTEHEAD BLACK 1D148 MUSICAL SYMBOL TRIANGLE NOTEHEAD UP WHITE 1D149 MUSICAL SYMBOL TRIANGLE NOTEHEAD UP BLACK 1D14A MUSICAL SYMBOL TRIANGLE NOTEHEAD LEFT WHITE 1D14B MUSICAL SYMBOL TRIANGLE NOTEHEAD LEFT BLACK 1D14C MUSICAL SYMBOL TRIANGLE NOTEHEAD RIGHT WHITE 1D14D MUSICAL SYMBOL TRIANGLE NOTEHEAD RIGHT BLACK 1D14E MUSICAL SYMBOL TRIANGLE NOTEHEAD DOWN WHITE 1D14F MUSICAL SYMBOL TRIANGLE NOTEHEAD DOWN BLACK 1D150 MUSICAL SYMBOL TRIANGLE NOTEHEAD UP RIGHT WHITE 1D151 MUSICAL SYMBOL TRIANGLE NOTEHEAD UP RIGHT BLACK 1D152 MUSICAL SYMBOL MOON NOTEHEAD WHITE 1D153 MUSICAL SYMBOL MOON NOTEHEAD BLACK 1D154 MUSICAL SYMBOL TRIANGLE-ROUND NOTEHEAD DOWN WHITE 1D155 MUSICAL SYMBOL TRIANGLE-ROUND NOTEHEAD DOWN BLACK 1D156 MUSICAL SYMBOL PARENTHESIS NOTEHEAD 1D157 MUSICAL SYMBOL VOID NOTEHEAD 1D158 MUSICAL SYMBOL NOTEHEAD BLACK 1D159 MUSICAL SYMBOL NULL NOTEHEAD 1D15A MUSICAL SYMBOL CLUSTER NOTEHEAD WHITE 1D15B MUSICAL SYMBOL CLUSTER NOTEHEAD BLACK 1D15C MUSICAL SYMBOL BREVE 1D15D MUSICAL SYMBOL WHOLE NOTE 1D15E MUSICAL SYMBOL HALF NOTE 1D15F MUSICAL SYMBOL QUARTER NOTE 1D160 MUSICAL SYMBOL EIGHTH NOTE 1D161 MUSICAL SYMBOL SIXTEENTH NOTE 1D162 MUSICAL SYMBOL THIRTY-SECOND NOTE 1D163 MUSICAL SYMBOL SIXTY-FOURTH NOTE 1D164 MUSICAL SYMBOL ONE HUNDRED TWENTY-EIGHTH NOTE 1D165 MUSICAL SYMBOL COMBINING STEM 1D166 MUSICAL SYMBOL COMBINING SPRECHGESANG STEM 1D167 MUSICAL SYMBOL COMBINING TREMOLO-1 1D168 MUSICAL SYMBOL COMBINING TREMOLO-2 1D169 MUSICAL SYMBOL COMBINING TREMOLO-3 1D16A MUSICAL SYMBOL FINGERED TREMOLO-1 1D16B MUSICAL SYMBOL FINGERED TREMOLO-2 1D16C MUSICAL SYMBOL FINGERED TREMOLO-3 1D16D MUSICAL SYMBOL COMBINING AUGMENTATION DOT 1D16E MUSICAL SYMBOL COMBINING FLAG-1 1D16F MUSICAL SYMBOL COMBINING FLAG-2 1D170 MUSICAL SYMBOL COMBINING FLAG-3 1D171 MUSICAL SYMBOL COMBINING FLAG-4 1D172 MUSICAL SYMBOL COMBINING FLAG-5 1D173 MUSICAL SYMBOL BEGIN BEAM 1D174 MUSICAL SYMBOL END BEAM 1D175 MUSICAL SYMBOL BEGIN TIE 1D176 MUSICAL SYMBOL END TIE 1D177 MUSICAL SYMBOL BEGIN SLUR 1D178 MUSICAL SYMBOL END SLUR 1D179 MUSICAL SYMBOL BEGIN PHRASE 1D17A MUSICAL SYMBOL END PHRASE 1D17B MUSICAL SYMBOL COMBINING ACCENT 1D17C MUSICAL SYMBOL COMBINING STACCATO 1D17D MUSICAL SYMBOL COMBINING TENUTO 1D17E MUSICAL SYMBOL COMBINING STACCATISSIMO 1D17F MUSICAL SYMBOL COMBINING MARCATO 1D180 MUSICAL SYMBOL COMBINING MARCATO-STACCATO 1D181 MUSICAL SYMBOL COMBINING ACCENT-STACCATO 1D182 MUSICAL SYMBOL COMBINING LOURE 1D183 MUSICAL SYMBOL ARPEGGIATO UP 1D184 MUSICAL SYMBOL ARPEGGIATO DOWN 1D185 MUSICAL SYMBOL COMBINING DOIT 1D186 MUSICAL SYMBOL COMBINING RIP 1D187 MUSICAL SYMBOL COMBINING FLIP 1D188 MUSICAL SYMBOL COMBINING SMEAR 1D189 MUSICAL SYMBOL COMBINING BEND 1D18A MUSICAL SYMBOL COMBINING DOUBLE TONGUE 1D18B MUSICAL SYMBOL COMBINING TRIPLE TONGUE 1D18C MUSICAL SYMBOL RINFORZANDO 1D18D MUSICAL SYMBOL SUBITO 1D18E MUSICAL SYMBOL Z 1D18F MUSICAL SYMBOL PIANO 1D190 MUSICAL SYMBOL MEZZO 1D191 MUSICAL SYMBOL FORTE 1D192 MUSICAL SYMBOL CRESCENDO 1D193 MUSICAL SYMBOL DECRESCENDO 1D194 MUSICAL SYMBOL GRACE NOTE SLASH 1D195 MUSICAL SYMBOL GRACE NOTE NO SLASH 1D196 MUSICAL SYMBOL TR 1D197 MUSICAL SYMBOL TURN 1D198 MUSICAL SYMBOL INVERTED TURN 1D199 MUSICAL SYMBOL TURN SLASH 1D19A MUSICAL SYMBOL TURN UP 1D19B MUSICAL SYMBOL ORNAMENT STROKE-1 1D19C MUSICAL SYMBOL ORNAMENT STROKE-2 1D19D MUSICAL SYMBOL ORNAMENT STROKE-3 1D19E MUSICAL SYMBOL ORNAMENT STROKE-4 1D19F MUSICAL SYMBOL ORNAMENT STROKE-5 1D1A0 MUSICAL SYMBOL ORNAMENT STROKE-6 1D1A1 MUSICAL SYMBOL ORNAMENT STROKE-7 1D1A2 MUSICAL SYMBOL ORNAMENT STROKE-8 1D1A3 MUSICAL SYMBOL ORNAMENT STROKE-9 1D1A4 MUSICAL SYMBOL ORNAMENT STROKE-10 1D1A5 MUSICAL SYMBOL ORNAMENT STROKE-11 1D1A6 MUSICAL SYMBOL HAUPTSTIMME 1D1A7 MUSICAL SYMBOL NEBENSTIMME 1D1A8 MUSICAL SYMBOL END OF STIMME 1D1A9 MUSICAL SYMBOL DEGREE SLASH 1D1AA MUSICAL SYMBOL COMBINING DOWN BOW 1D1AB MUSICAL SYMBOL COMBINING UP BOW 1D1AC MUSICAL SYMBOL COMBINING HARMONIC 1D1AD MUSICAL SYMBOL COMBINING SNAP PIZZICATO 1D1AE MUSICAL SYMBOL PEDAL MARK 1D1AF MUSICAL SYMBOL PEDAL UP MARK 1D1B0 MUSICAL SYMBOL HALF PEDAL MARK 1D1B1 MUSICAL SYMBOL GLISSANDO UP 1D1B2 MUSICAL SYMBOL GLISSANDO DOWN 1D1B3 MUSICAL SYMBOL WITH FINGERNAILS 1D1B4 MUSICAL SYMBOL DAMP 1D1B5 MUSICAL SYMBOL DAMP ALL 1D1B6 MUSICAL SYMBOL MAXIMA 1D1B7 MUSICAL SYMBOL LONGA 1D1B8 MUSICAL SYMBOL BREVIS 1D1B9 MUSICAL SYMBOL SEMIBREVIS WHITE 1D1BA MUSICAL SYMBOL SEMIBREVIS BLACK 1D1BB MUSICAL SYMBOL MINIMA 1D1BC MUSICAL SYMBOL MINIMA BLACK 1D1BD MUSICAL SYMBOL SEMIMINIMA WHITE 1D1BE MUSICAL SYMBOL SEMIMINIMA BLACK 1D1BF MUSICAL SYMBOL FUSA WHITE 1D1C0 MUSICAL SYMBOL FUSA BLACK 1D1C1 MUSICAL SYMBOL LONGA PERFECTA REST 1D1C2 MUSICAL SYMBOL LONGA IMPERFECTA REST 1D1C3 MUSICAL SYMBOL BREVIS REST 1D1C4 MUSICAL SYMBOL SEMIBREVIS REST 1D1C5 MUSICAL SYMBOL MINIMA REST 1D1C6 MUSICAL SYMBOL SEMIMINIMA REST 1D1C7 MUSICAL SYMBOL TEMPUS PERFECTUM CUM PROLATIONE PERFECTA 1D1C8 MUSICAL SYMBOL TEMPUS PERFECTUM CUM PROLATIONE IMPERFECTA 1D1C9 MUSICAL SYMBOL TEMPUS PERFECTUM CUM PROLATIONE PERFECTA DIMINUTION-1 1D1CA MUSICAL SYMBOL TEMPUS IMPERFECTUM CUM PROLATIONE PERFECTA 1D1CB MUSICAL SYMBOL TEMPUS IMPERFECTUM CUM PROLATIONE IMPERFECTA 1D1CC MUSICAL SYMBOL TEMPUS IMPERFECTUM CUM PROLATIONE IMPERFECTA DIMINUTION-1 1D1CD MUSICAL SYMBOL TEMPUS IMPERFECTUM CUM PROLATIONE IMPERFECTA DIMINUTION-2 1D1CE MUSICAL SYMBOL TEMPUS IMPERFECTUM CUM PROLATIONE IMPERFECTA DIMINUTION-3 1D1CF MUSICAL SYMBOL CROIX 1D1D0 MUSICAL SYMBOL GREGORIAN C CLEF 1D1D1 MUSICAL SYMBOL GREGORIAN F CLEF 1D1D2 MUSICAL SYMBOL SQUARE B 1D1D3 MUSICAL SYMBOL VIRGA 1D1D4 MUSICAL SYMBOL PODATUS 1D1D5 MUSICAL SYMBOL CLIVIS 1D1D6 MUSICAL SYMBOL SCANDICUS 1D1D7 MUSICAL SYMBOL CLIMACUS 1D1D8 MUSICAL SYMBOL TORCULUS 1D1D9 MUSICAL SYMBOL PORRECTUS 1D1DA MUSICAL SYMBOL PORRECTUS FLEXUS 1D1DB MUSICAL SYMBOL SCANDICUS FLEXUS 1D1DC MUSICAL SYMBOL TORCULUS RESUPINUS 1D1DD MUSICAL SYMBOL PES SUBPUNCTIS 1D1DE MUSICAL SYMBOL KIEVAN C CLEF 1D1DF MUSICAL SYMBOL KIEVAN END OF PIECE 1D1E0 MUSICAL SYMBOL KIEVAN FINAL NOTE 1D1E1 MUSICAL SYMBOL KIEVAN RECITATIVE MARK 1D1E2 MUSICAL SYMBOL KIEVAN WHOLE NOTE 1D1E3 MUSICAL SYMBOL KIEVAN HALF NOTE 1D1E4 MUSICAL SYMBOL KIEVAN QUARTER NOTE STEM DOWN 1D1E5 MUSICAL SYMBOL KIEVAN QUARTER NOTE STEM UP 1D1E6 MUSICAL SYMBOL KIEVAN EIGHTH NOTE STEM DOWN 1D1E7 MUSICAL SYMBOL KIEVAN EIGHTH NOTE STEM UP 1D1E8 MUSICAL SYMBOL KIEVAN FLAT SIGN 1D200 GREEK VOCAL NOTATION SYMBOL-1 1D201 GREEK VOCAL NOTATION SYMBOL-2 1D202 GREEK VOCAL NOTATION SYMBOL-3 1D203 GREEK VOCAL NOTATION SYMBOL-4 1D204 GREEK VOCAL NOTATION SYMBOL-5 1D205 GREEK VOCAL NOTATION SYMBOL-6 1D206 GREEK VOCAL NOTATION SYMBOL-7 1D207 GREEK VOCAL NOTATION SYMBOL-8 1D208 GREEK VOCAL NOTATION SYMBOL-9 1D209 GREEK VOCAL NOTATION SYMBOL-10 1D20A GREEK VOCAL NOTATION SYMBOL-11 1D20B GREEK VOCAL NOTATION SYMBOL-12 1D20C GREEK VOCAL NOTATION SYMBOL-13 1D20D GREEK VOCAL NOTATION SYMBOL-14 1D20E GREEK VOCAL NOTATION SYMBOL-15 1D20F GREEK VOCAL NOTATION SYMBOL-16 1D210 GREEK VOCAL NOTATION SYMBOL-17 1D211 GREEK VOCAL NOTATION SYMBOL-18 1D212 GREEK VOCAL NOTATION SYMBOL-19 1D213 GREEK VOCAL NOTATION SYMBOL-20 1D214 GREEK VOCAL NOTATION SYMBOL-21 1D215 GREEK VOCAL NOTATION SYMBOL-22 1D216 GREEK VOCAL NOTATION SYMBOL-23 1D217 GREEK VOCAL NOTATION SYMBOL-24 1D218 GREEK VOCAL NOTATION SYMBOL-50 1D219 GREEK VOCAL NOTATION SYMBOL-51 1D21A GREEK VOCAL NOTATION SYMBOL-52 1D21B GREEK VOCAL NOTATION SYMBOL-53 1D21C GREEK VOCAL NOTATION SYMBOL-54 1D21D GREEK INSTRUMENTAL NOTATION SYMBOL-1 1D21E GREEK INSTRUMENTAL NOTATION SYMBOL-2 1D21F GREEK INSTRUMENTAL NOTATION SYMBOL-4 1D220 GREEK INSTRUMENTAL NOTATION SYMBOL-5 1D221 GREEK INSTRUMENTAL NOTATION SYMBOL-7 1D222 GREEK INSTRUMENTAL NOTATION SYMBOL-8 1D223 GREEK INSTRUMENTAL NOTATION SYMBOL-11 1D224 GREEK INSTRUMENTAL NOTATION SYMBOL-12 1D225 GREEK INSTRUMENTAL NOTATION SYMBOL-13 1D226 GREEK INSTRUMENTAL NOTATION SYMBOL-14 1D227 GREEK INSTRUMENTAL NOTATION SYMBOL-17 1D228 GREEK INSTRUMENTAL NOTATION SYMBOL-18 1D229 GREEK INSTRUMENTAL NOTATION SYMBOL-19 1D22A GREEK INSTRUMENTAL NOTATION SYMBOL-23 1D22B GREEK INSTRUMENTAL NOTATION SYMBOL-24 1D22C GREEK INSTRUMENTAL NOTATION SYMBOL-25 1D22D GREEK INSTRUMENTAL NOTATION SYMBOL-26 1D22E GREEK INSTRUMENTAL NOTATION SYMBOL-27 1D22F GREEK INSTRUMENTAL NOTATION SYMBOL-29 1D230 GREEK INSTRUMENTAL NOTATION SYMBOL-30 1D231 GREEK INSTRUMENTAL NOTATION SYMBOL-32 1D232 GREEK INSTRUMENTAL NOTATION SYMBOL-36 1D233 GREEK INSTRUMENTAL NOTATION SYMBOL-37 1D234 GREEK INSTRUMENTAL NOTATION SYMBOL-38 1D235 GREEK INSTRUMENTAL NOTATION SYMBOL-39 1D236 GREEK INSTRUMENTAL NOTATION SYMBOL-40 1D237 GREEK INSTRUMENTAL NOTATION SYMBOL-42 1D238 GREEK INSTRUMENTAL NOTATION SYMBOL-43 1D239 GREEK INSTRUMENTAL NOTATION SYMBOL-45 1D23A GREEK INSTRUMENTAL NOTATION SYMBOL-47 1D23B GREEK INSTRUMENTAL NOTATION SYMBOL-48 1D23C GREEK INSTRUMENTAL NOTATION SYMBOL-49 1D23D GREEK INSTRUMENTAL NOTATION SYMBOL-50 1D23E GREEK INSTRUMENTAL NOTATION SYMBOL-51 1D23F GREEK INSTRUMENTAL NOTATION SYMBOL-52 1D240 GREEK INSTRUMENTAL NOTATION SYMBOL-53 1D241 GREEK INSTRUMENTAL NOTATION SYMBOL-54 1D242 COMBINING GREEK MUSICAL TRISEME 1D243 COMBINING GREEK MUSICAL TETRASEME 1D244 COMBINING GREEK MUSICAL PENTASEME 1D245 GREEK MUSICAL LEIMMA 1D2E0 MAYAN NUMERAL ZERO 1D2E1 MAYAN NUMERAL ONE 1D2E2 MAYAN NUMERAL TWO 1D2E3 MAYAN NUMERAL THREE 1D2E4 MAYAN NUMERAL FOUR 1D2E5 MAYAN NUMERAL FIVE 1D2E6 MAYAN NUMERAL SIX 1D2E7 MAYAN NUMERAL SEVEN 1D2E8 MAYAN NUMERAL EIGHT 1D2E9 MAYAN NUMERAL NINE 1D2EA MAYAN NUMERAL TEN 1D2EB MAYAN NUMERAL ELEVEN 1D2EC MAYAN NUMERAL TWELVE 1D2ED MAYAN NUMERAL THIRTEEN 1D2EE MAYAN NUMERAL FOURTEEN 1D2EF MAYAN NUMERAL FIFTEEN 1D2F0 MAYAN NUMERAL SIXTEEN 1D2F1 MAYAN NUMERAL SEVENTEEN 1D2F2 MAYAN NUMERAL EIGHTEEN 1D2F3 MAYAN NUMERAL NINETEEN 1D300 MONOGRAM FOR EARTH 1D301 DIGRAM FOR HEAVENLY EARTH 1D302 DIGRAM FOR HUMAN EARTH 1D303 DIGRAM FOR EARTHLY HEAVEN 1D304 DIGRAM FOR EARTHLY HUMAN 1D305 DIGRAM FOR EARTH 1D306 TETRAGRAM FOR CENTRE 1D307 TETRAGRAM FOR FULL CIRCLE 1D308 TETRAGRAM FOR MIRED 1D309 TETRAGRAM FOR BARRIER 1D30A TETRAGRAM FOR KEEPING SMALL 1D30B TETRAGRAM FOR CONTRARIETY 1D30C TETRAGRAM FOR ASCENT 1D30D TETRAGRAM FOR OPPOSITION 1D30E TETRAGRAM FOR BRANCHING OUT 1D30F TETRAGRAM FOR DEFECTIVENESS OR DISTORTION 1D310 TETRAGRAM FOR DIVERGENCE 1D311 TETRAGRAM FOR YOUTHFULNESS 1D312 TETRAGRAM FOR INCREASE 1D313 TETRAGRAM FOR PENETRATION 1D314 TETRAGRAM FOR REACH 1D315 TETRAGRAM FOR CONTACT 1D316 TETRAGRAM FOR HOLDING BACK 1D317 TETRAGRAM FOR WAITING 1D318 TETRAGRAM FOR FOLLOWING 1D319 TETRAGRAM FOR ADVANCE 1D31A TETRAGRAM FOR RELEASE 1D31B TETRAGRAM FOR RESISTANCE 1D31C TETRAGRAM FOR EASE 1D31D TETRAGRAM FOR JOY 1D31E TETRAGRAM FOR CONTENTION 1D31F TETRAGRAM FOR ENDEAVOUR 1D320 TETRAGRAM FOR DUTIES 1D321 TETRAGRAM FOR CHANGE 1D322 TETRAGRAM FOR DECISIVENESS 1D323 TETRAGRAM FOR BOLD RESOLUTION 1D324 TETRAGRAM FOR PACKING 1D325 TETRAGRAM FOR LEGION 1D326 TETRAGRAM FOR CLOSENESS 1D327 TETRAGRAM FOR KINSHIP 1D328 TETRAGRAM FOR GATHERING 1D329 TETRAGRAM FOR STRENGTH 1D32A TETRAGRAM FOR PURITY 1D32B TETRAGRAM FOR FULLNESS 1D32C TETRAGRAM FOR RESIDENCE 1D32D TETRAGRAM FOR LAW OR MODEL 1D32E TETRAGRAM FOR RESPONSE 1D32F TETRAGRAM FOR GOING TO MEET 1D330 TETRAGRAM FOR ENCOUNTERS 1D331 TETRAGRAM FOR STOVE 1D332 TETRAGRAM FOR GREATNESS 1D333 TETRAGRAM FOR ENLARGEMENT 1D334 TETRAGRAM FOR PATTERN 1D335 TETRAGRAM FOR RITUAL 1D336 TETRAGRAM FOR FLIGHT 1D337 TETRAGRAM FOR VASTNESS OR WASTING 1D338 TETRAGRAM FOR CONSTANCY 1D339 TETRAGRAM FOR MEASURE 1D33A TETRAGRAM FOR ETERNITY 1D33B TETRAGRAM FOR UNITY 1D33C TETRAGRAM FOR DIMINISHMENT 1D33D TETRAGRAM FOR CLOSED MOUTH 1D33E TETRAGRAM FOR GUARDEDNESS 1D33F TETRAGRAM FOR GATHERING IN 1D340 TETRAGRAM FOR MASSING 1D341 TETRAGRAM FOR ACCUMULATION 1D342 TETRAGRAM FOR EMBELLISHMENT 1D343 TETRAGRAM FOR DOUBT 1D344 TETRAGRAM FOR WATCH 1D345 TETRAGRAM FOR SINKING 1D346 TETRAGRAM FOR INNER 1D347 TETRAGRAM FOR DEPARTURE 1D348 TETRAGRAM FOR DARKENING 1D349 TETRAGRAM FOR DIMMING 1D34A TETRAGRAM FOR EXHAUSTION 1D34B TETRAGRAM FOR SEVERANCE 1D34C TETRAGRAM FOR STOPPAGE 1D34D TETRAGRAM FOR HARDNESS 1D34E TETRAGRAM FOR COMPLETION 1D34F TETRAGRAM FOR CLOSURE 1D350 TETRAGRAM FOR FAILURE 1D351 TETRAGRAM FOR AGGRAVATION 1D352 TETRAGRAM FOR COMPLIANCE 1D353 TETRAGRAM FOR ON THE VERGE 1D354 TETRAGRAM FOR DIFFICULTIES 1D355 TETRAGRAM FOR LABOURING 1D356 TETRAGRAM FOR FOSTERING 1D360 COUNTING ROD UNIT DIGIT ONE 1D361 COUNTING ROD UNIT DIGIT TWO 1D362 COUNTING ROD UNIT DIGIT THREE 1D363 COUNTING ROD UNIT DIGIT FOUR 1D364 COUNTING ROD UNIT DIGIT FIVE 1D365 COUNTING ROD UNIT DIGIT SIX 1D366 COUNTING ROD UNIT DIGIT SEVEN 1D367 COUNTING ROD UNIT DIGIT EIGHT 1D368 COUNTING ROD UNIT DIGIT NINE 1D369 COUNTING ROD TENS DIGIT ONE 1D36A COUNTING ROD TENS DIGIT TWO 1D36B COUNTING ROD TENS DIGIT THREE 1D36C COUNTING ROD TENS DIGIT FOUR 1D36D COUNTING ROD TENS DIGIT FIVE 1D36E COUNTING ROD TENS DIGIT SIX 1D36F COUNTING ROD TENS DIGIT SEVEN 1D370 COUNTING ROD TENS DIGIT EIGHT 1D371 COUNTING ROD TENS DIGIT NINE 1D372 IDEOGRAPHIC TALLY MARK ONE 1D373 IDEOGRAPHIC TALLY MARK TWO 1D374 IDEOGRAPHIC TALLY MARK THREE 1D375 IDEOGRAPHIC TALLY MARK FOUR 1D376 IDEOGRAPHIC TALLY MARK FIVE 1D377 TALLY MARK ONE 1D378 TALLY MARK FIVE 1D400 MATHEMATICAL BOLD CAPITAL A 1D401 MATHEMATICAL BOLD CAPITAL B 1D402 MATHEMATICAL BOLD CAPITAL C 1D403 MATHEMATICAL BOLD CAPITAL D 1D404 MATHEMATICAL BOLD CAPITAL E 1D405 MATHEMATICAL BOLD CAPITAL F 1D406 MATHEMATICAL BOLD CAPITAL G 1D407 MATHEMATICAL BOLD CAPITAL H 1D408 MATHEMATICAL BOLD CAPITAL I 1D409 MATHEMATICAL BOLD CAPITAL J 1D40A MATHEMATICAL BOLD CAPITAL K 1D40B MATHEMATICAL BOLD CAPITAL L 1D40C MATHEMATICAL BOLD CAPITAL M 1D40D MATHEMATICAL BOLD CAPITAL N 1D40E MATHEMATICAL BOLD CAPITAL O 1D40F MATHEMATICAL BOLD CAPITAL P 1D410 MATHEMATICAL BOLD CAPITAL Q 1D411 MATHEMATICAL BOLD CAPITAL R 1D412 MATHEMATICAL BOLD CAPITAL S 1D413 MATHEMATICAL BOLD CAPITAL T 1D414 MATHEMATICAL BOLD CAPITAL U 1D415 MATHEMATICAL BOLD CAPITAL V 1D416 MATHEMATICAL BOLD CAPITAL W 1D417 MATHEMATICAL BOLD CAPITAL X 1D418 MATHEMATICAL BOLD CAPITAL Y 1D419 MATHEMATICAL BOLD CAPITAL Z 1D41A MATHEMATICAL BOLD SMALL A 1D41B MATHEMATICAL BOLD SMALL B 1D41C MATHEMATICAL BOLD SMALL C 1D41D MATHEMATICAL BOLD SMALL D 1D41E MATHEMATICAL BOLD SMALL E 1D41F MATHEMATICAL BOLD SMALL F 1D420 MATHEMATICAL BOLD SMALL G 1D421 MATHEMATICAL BOLD SMALL H 1D422 MATHEMATICAL BOLD SMALL I 1D423 MATHEMATICAL BOLD SMALL J 1D424 MATHEMATICAL BOLD SMALL K 1D425 MATHEMATICAL BOLD SMALL L 1D426 MATHEMATICAL BOLD SMALL M 1D427 MATHEMATICAL BOLD SMALL N 1D428 MATHEMATICAL BOLD SMALL O 1D429 MATHEMATICAL BOLD SMALL P 1D42A MATHEMATICAL BOLD SMALL Q 1D42B MATHEMATICAL BOLD SMALL R 1D42C MATHEMATICAL BOLD SMALL S 1D42D MATHEMATICAL BOLD SMALL T 1D42E MATHEMATICAL BOLD SMALL U 1D42F MATHEMATICAL BOLD SMALL V 1D430 MATHEMATICAL BOLD SMALL W 1D431 MATHEMATICAL BOLD SMALL X 1D432 MATHEMATICAL BOLD SMALL Y 1D433 MATHEMATICAL BOLD SMALL Z 1D434 MATHEMATICAL ITALIC CAPITAL A 1D435 MATHEMATICAL ITALIC CAPITAL B 1D436 MATHEMATICAL ITALIC CAPITAL C 1D437 MATHEMATICAL ITALIC CAPITAL D 1D438 MATHEMATICAL ITALIC CAPITAL E 1D439 MATHEMATICAL ITALIC CAPITAL F 1D43A MATHEMATICAL ITALIC CAPITAL G 1D43B MATHEMATICAL ITALIC CAPITAL H 1D43C MATHEMATICAL ITALIC CAPITAL I 1D43D MATHEMATICAL ITALIC CAPITAL J 1D43E MATHEMATICAL ITALIC CAPITAL K 1D43F MATHEMATICAL ITALIC CAPITAL L 1D440 MATHEMATICAL ITALIC CAPITAL M 1D441 MATHEMATICAL ITALIC CAPITAL N 1D442 MATHEMATICAL ITALIC CAPITAL O 1D443 MATHEMATICAL ITALIC CAPITAL P 1D444 MATHEMATICAL ITALIC CAPITAL Q 1D445 MATHEMATICAL ITALIC CAPITAL R 1D446 MATHEMATICAL ITALIC CAPITAL S 1D447 MATHEMATICAL ITALIC CAPITAL T 1D448 MATHEMATICAL ITALIC CAPITAL U 1D449 MATHEMATICAL ITALIC CAPITAL V 1D44A MATHEMATICAL ITALIC CAPITAL W 1D44B MATHEMATICAL ITALIC CAPITAL X 1D44C MATHEMATICAL ITALIC CAPITAL Y 1D44D MATHEMATICAL ITALIC CAPITAL Z 1D44E MATHEMATICAL ITALIC SMALL A 1D44F MATHEMATICAL ITALIC SMALL B 1D450 MATHEMATICAL ITALIC SMALL C 1D451 MATHEMATICAL ITALIC SMALL D 1D452 MATHEMATICAL ITALIC SMALL E 1D453 MATHEMATICAL ITALIC SMALL F 1D454 MATHEMATICAL ITALIC SMALL G 1D456 MATHEMATICAL ITALIC SMALL I 1D457 MATHEMATICAL ITALIC SMALL J 1D458 MATHEMATICAL ITALIC SMALL K 1D459 MATHEMATICAL ITALIC SMALL L 1D45A MATHEMATICAL ITALIC SMALL M 1D45B MATHEMATICAL ITALIC SMALL N 1D45C MATHEMATICAL ITALIC SMALL O 1D45D MATHEMATICAL ITALIC SMALL P 1D45E MATHEMATICAL ITALIC SMALL Q 1D45F MATHEMATICAL ITALIC SMALL R 1D460 MATHEMATICAL ITALIC SMALL S 1D461 MATHEMATICAL ITALIC SMALL T 1D462 MATHEMATICAL ITALIC SMALL U 1D463 MATHEMATICAL ITALIC SMALL V 1D464 MATHEMATICAL ITALIC SMALL W 1D465 MATHEMATICAL ITALIC SMALL X 1D466 MATHEMATICAL ITALIC SMALL Y 1D467 MATHEMATICAL ITALIC SMALL Z 1D468 MATHEMATICAL BOLD ITALIC CAPITAL A 1D469 MATHEMATICAL BOLD ITALIC CAPITAL B 1D46A MATHEMATICAL BOLD ITALIC CAPITAL C 1D46B MATHEMATICAL BOLD ITALIC CAPITAL D 1D46C MATHEMATICAL BOLD ITALIC CAPITAL E 1D46D MATHEMATICAL BOLD ITALIC CAPITAL F 1D46E MATHEMATICAL BOLD ITALIC CAPITAL G 1D46F MATHEMATICAL BOLD ITALIC CAPITAL H 1D470 MATHEMATICAL BOLD ITALIC CAPITAL I 1D471 MATHEMATICAL BOLD ITALIC CAPITAL J 1D472 MATHEMATICAL BOLD ITALIC CAPITAL K 1D473 MATHEMATICAL BOLD ITALIC CAPITAL L 1D474 MATHEMATICAL BOLD ITALIC CAPITAL M 1D475 MATHEMATICAL BOLD ITALIC CAPITAL N 1D476 MATHEMATICAL BOLD ITALIC CAPITAL O 1D477 MATHEMATICAL BOLD ITALIC CAPITAL P 1D478 MATHEMATICAL BOLD ITALIC CAPITAL Q 1D479 MATHEMATICAL BOLD ITALIC CAPITAL R 1D47A MATHEMATICAL BOLD ITALIC CAPITAL S 1D47B MATHEMATICAL BOLD ITALIC CAPITAL T 1D47C MATHEMATICAL BOLD ITALIC CAPITAL U 1D47D MATHEMATICAL BOLD ITALIC CAPITAL V 1D47E MATHEMATICAL BOLD ITALIC CAPITAL W 1D47F MATHEMATICAL BOLD ITALIC CAPITAL X 1D480 MATHEMATICAL BOLD ITALIC CAPITAL Y 1D481 MATHEMATICAL BOLD ITALIC CAPITAL Z 1D482 MATHEMATICAL BOLD ITALIC SMALL A 1D483 MATHEMATICAL BOLD ITALIC SMALL B 1D484 MATHEMATICAL BOLD ITALIC SMALL C 1D485 MATHEMATICAL BOLD ITALIC SMALL D 1D486 MATHEMATICAL BOLD ITALIC SMALL E 1D487 MATHEMATICAL BOLD ITALIC SMALL F 1D488 MATHEMATICAL BOLD ITALIC SMALL G 1D489 MATHEMATICAL BOLD ITALIC SMALL H 1D48A MATHEMATICAL BOLD ITALIC SMALL I 1D48B MATHEMATICAL BOLD ITALIC SMALL J 1D48C MATHEMATICAL BOLD ITALIC SMALL K 1D48D MATHEMATICAL BOLD ITALIC SMALL L 1D48E MATHEMATICAL BOLD ITALIC SMALL M 1D48F MATHEMATICAL BOLD ITALIC SMALL N 1D490 MATHEMATICAL BOLD ITALIC SMALL O 1D491 MATHEMATICAL BOLD ITALIC SMALL P 1D492 MATHEMATICAL BOLD ITALIC SMALL Q 1D493 MATHEMATICAL BOLD ITALIC SMALL R 1D494 MATHEMATICAL BOLD ITALIC SMALL S 1D495 MATHEMATICAL BOLD ITALIC SMALL T 1D496 MATHEMATICAL BOLD ITALIC SMALL U 1D497 MATHEMATICAL BOLD ITALIC SMALL V 1D498 MATHEMATICAL BOLD ITALIC SMALL W 1D499 MATHEMATICAL BOLD ITALIC SMALL X 1D49A MATHEMATICAL BOLD ITALIC SMALL Y 1D49B MATHEMATICAL BOLD ITALIC SMALL Z 1D49C MATHEMATICAL SCRIPT CAPITAL A 1D49E MATHEMATICAL SCRIPT CAPITAL C 1D49F MATHEMATICAL SCRIPT CAPITAL D 1D4A2 MATHEMATICAL SCRIPT CAPITAL G 1D4A5 MATHEMATICAL SCRIPT CAPITAL J 1D4A6 MATHEMATICAL SCRIPT CAPITAL K 1D4A9 MATHEMATICAL SCRIPT CAPITAL N 1D4AA MATHEMATICAL SCRIPT CAPITAL O 1D4AB MATHEMATICAL SCRIPT CAPITAL P 1D4AC MATHEMATICAL SCRIPT CAPITAL Q 1D4AE MATHEMATICAL SCRIPT CAPITAL S 1D4AF MATHEMATICAL SCRIPT CAPITAL T 1D4B0 MATHEMATICAL SCRIPT CAPITAL U 1D4B1 MATHEMATICAL SCRIPT CAPITAL V 1D4B2 MATHEMATICAL SCRIPT CAPITAL W 1D4B3 MATHEMATICAL SCRIPT CAPITAL X 1D4B4 MATHEMATICAL SCRIPT CAPITAL Y 1D4B5 MATHEMATICAL SCRIPT CAPITAL Z 1D4B6 MATHEMATICAL SCRIPT SMALL A 1D4B7 MATHEMATICAL SCRIPT SMALL B 1D4B8 MATHEMATICAL SCRIPT SMALL C 1D4B9 MATHEMATICAL SCRIPT SMALL D 1D4BB MATHEMATICAL SCRIPT SMALL F 1D4BD MATHEMATICAL SCRIPT SMALL H 1D4BE MATHEMATICAL SCRIPT SMALL I 1D4BF MATHEMATICAL SCRIPT SMALL J 1D4C0 MATHEMATICAL SCRIPT SMALL K 1D4C1 MATHEMATICAL SCRIPT SMALL L 1D4C2 MATHEMATICAL SCRIPT SMALL M 1D4C3 MATHEMATICAL SCRIPT SMALL N 1D4C5 MATHEMATICAL SCRIPT SMALL P 1D4C6 MATHEMATICAL SCRIPT SMALL Q 1D4C7 MATHEMATICAL SCRIPT SMALL R 1D4C8 MATHEMATICAL SCRIPT SMALL S 1D4C9 MATHEMATICAL SCRIPT SMALL T 1D4CA MATHEMATICAL SCRIPT SMALL U 1D4CB MATHEMATICAL SCRIPT SMALL V 1D4CC MATHEMATICAL SCRIPT SMALL W 1D4CD MATHEMATICAL SCRIPT SMALL X 1D4CE MATHEMATICAL SCRIPT SMALL Y 1D4CF MATHEMATICAL SCRIPT SMALL Z 1D4D0 MATHEMATICAL BOLD SCRIPT CAPITAL A 1D4D1 MATHEMATICAL BOLD SCRIPT CAPITAL B 1D4D2 MATHEMATICAL BOLD SCRIPT CAPITAL C 1D4D3 MATHEMATICAL BOLD SCRIPT CAPITAL D 1D4D4 MATHEMATICAL BOLD SCRIPT CAPITAL E 1D4D5 MATHEMATICAL BOLD SCRIPT CAPITAL F 1D4D6 MATHEMATICAL BOLD SCRIPT CAPITAL G 1D4D7 MATHEMATICAL BOLD SCRIPT CAPITAL H 1D4D8 MATHEMATICAL BOLD SCRIPT CAPITAL I 1D4D9 MATHEMATICAL BOLD SCRIPT CAPITAL J 1D4DA MATHEMATICAL BOLD SCRIPT CAPITAL K 1D4DB MATHEMATICAL BOLD SCRIPT CAPITAL L 1D4DC MATHEMATICAL BOLD SCRIPT CAPITAL M 1D4DD MATHEMATICAL BOLD SCRIPT CAPITAL N 1D4DE MATHEMATICAL BOLD SCRIPT CAPITAL O 1D4DF MATHEMATICAL BOLD SCRIPT CAPITAL P 1D4E0 MATHEMATICAL BOLD SCRIPT CAPITAL Q 1D4E1 MATHEMATICAL BOLD SCRIPT CAPITAL R 1D4E2 MATHEMATICAL BOLD SCRIPT CAPITAL S 1D4E3 MATHEMATICAL BOLD SCRIPT CAPITAL T 1D4E4 MATHEMATICAL BOLD SCRIPT CAPITAL U 1D4E5 MATHEMATICAL BOLD SCRIPT CAPITAL V 1D4E6 MATHEMATICAL BOLD SCRIPT CAPITAL W 1D4E7 MATHEMATICAL BOLD SCRIPT CAPITAL X 1D4E8 MATHEMATICAL BOLD SCRIPT CAPITAL Y 1D4E9 MATHEMATICAL BOLD SCRIPT CAPITAL Z 1D4EA MATHEMATICAL BOLD SCRIPT SMALL A 1D4EB MATHEMATICAL BOLD SCRIPT SMALL B 1D4EC MATHEMATICAL BOLD SCRIPT SMALL C 1D4ED MATHEMATICAL BOLD SCRIPT SMALL D 1D4EE MATHEMATICAL BOLD SCRIPT SMALL E 1D4EF MATHEMATICAL BOLD SCRIPT SMALL F 1D4F0 MATHEMATICAL BOLD SCRIPT SMALL G 1D4F1 MATHEMATICAL BOLD SCRIPT SMALL H 1D4F2 MATHEMATICAL BOLD SCRIPT SMALL I 1D4F3 MATHEMATICAL BOLD SCRIPT SMALL J 1D4F4 MATHEMATICAL BOLD SCRIPT SMALL K 1D4F5 MATHEMATICAL BOLD SCRIPT SMALL L 1D4F6 MATHEMATICAL BOLD SCRIPT SMALL M 1D4F7 MATHEMATICAL BOLD SCRIPT SMALL N 1D4F8 MATHEMATICAL BOLD SCRIPT SMALL O 1D4F9 MATHEMATICAL BOLD SCRIPT SMALL P 1D4FA MATHEMATICAL BOLD SCRIPT SMALL Q 1D4FB MATHEMATICAL BOLD SCRIPT SMALL R 1D4FC MATHEMATICAL BOLD SCRIPT SMALL S 1D4FD MATHEMATICAL BOLD SCRIPT SMALL T 1D4FE MATHEMATICAL BOLD SCRIPT SMALL U 1D4FF MATHEMATICAL BOLD SCRIPT SMALL V 1D500 MATHEMATICAL BOLD SCRIPT SMALL W 1D501 MATHEMATICAL BOLD SCRIPT SMALL X 1D502 MATHEMATICAL BOLD SCRIPT SMALL Y 1D503 MATHEMATICAL BOLD SCRIPT SMALL Z 1D504 MATHEMATICAL FRAKTUR CAPITAL A 1D505 MATHEMATICAL FRAKTUR CAPITAL B 1D507 MATHEMATICAL FRAKTUR CAPITAL D 1D508 MATHEMATICAL FRAKTUR CAPITAL E 1D509 MATHEMATICAL FRAKTUR CAPITAL F 1D50A MATHEMATICAL FRAKTUR CAPITAL G 1D50D MATHEMATICAL FRAKTUR CAPITAL J 1D50E MATHEMATICAL FRAKTUR CAPITAL K 1D50F MATHEMATICAL FRAKTUR CAPITAL L 1D510 MATHEMATICAL FRAKTUR CAPITAL M 1D511 MATHEMATICAL FRAKTUR CAPITAL N 1D512 MATHEMATICAL FRAKTUR CAPITAL O 1D513 MATHEMATICAL FRAKTUR CAPITAL P 1D514 MATHEMATICAL FRAKTUR CAPITAL Q 1D516 MATHEMATICAL FRAKTUR CAPITAL S 1D517 MATHEMATICAL FRAKTUR CAPITAL T 1D518 MATHEMATICAL FRAKTUR CAPITAL U 1D519 MATHEMATICAL FRAKTUR CAPITAL V 1D51A MATHEMATICAL FRAKTUR CAPITAL W 1D51B MATHEMATICAL FRAKTUR CAPITAL X 1D51C MATHEMATICAL FRAKTUR CAPITAL Y 1D51E MATHEMATICAL FRAKTUR SMALL A 1D51F MATHEMATICAL FRAKTUR SMALL B 1D520 MATHEMATICAL FRAKTUR SMALL C 1D521 MATHEMATICAL FRAKTUR SMALL D 1D522 MATHEMATICAL FRAKTUR SMALL E 1D523 MATHEMATICAL FRAKTUR SMALL F 1D524 MATHEMATICAL FRAKTUR SMALL G 1D525 MATHEMATICAL FRAKTUR SMALL H 1D526 MATHEMATICAL FRAKTUR SMALL I 1D527 MATHEMATICAL FRAKTUR SMALL J 1D528 MATHEMATICAL FRAKTUR SMALL K 1D529 MATHEMATICAL FRAKTUR SMALL L 1D52A MATHEMATICAL FRAKTUR SMALL M 1D52B MATHEMATICAL FRAKTUR SMALL N 1D52C MATHEMATICAL FRAKTUR SMALL O 1D52D MATHEMATICAL FRAKTUR SMALL P 1D52E MATHEMATICAL FRAKTUR SMALL Q 1D52F MATHEMATICAL FRAKTUR SMALL R 1D530 MATHEMATICAL FRAKTUR SMALL S 1D531 MATHEMATICAL FRAKTUR SMALL T 1D532 MATHEMATICAL FRAKTUR SMALL U 1D533 MATHEMATICAL FRAKTUR SMALL V 1D534 MATHEMATICAL FRAKTUR SMALL W 1D535 MATHEMATICAL FRAKTUR SMALL X 1D536 MATHEMATICAL FRAKTUR SMALL Y 1D537 MATHEMATICAL FRAKTUR SMALL Z 1D538 MATHEMATICAL DOUBLE-STRUCK CAPITAL A 1D539 MATHEMATICAL DOUBLE-STRUCK CAPITAL B 1D53B MATHEMATICAL DOUBLE-STRUCK CAPITAL D 1D53C MATHEMATICAL DOUBLE-STRUCK CAPITAL E 1D53D MATHEMATICAL DOUBLE-STRUCK CAPITAL F 1D53E MATHEMATICAL DOUBLE-STRUCK CAPITAL G 1D540 MATHEMATICAL DOUBLE-STRUCK CAPITAL I 1D541 MATHEMATICAL DOUBLE-STRUCK CAPITAL J 1D542 MATHEMATICAL DOUBLE-STRUCK CAPITAL K 1D543 MATHEMATICAL DOUBLE-STRUCK CAPITAL L 1D544 MATHEMATICAL DOUBLE-STRUCK CAPITAL M 1D546 MATHEMATICAL DOUBLE-STRUCK CAPITAL O 1D54A MATHEMATICAL DOUBLE-STRUCK CAPITAL S 1D54B MATHEMATICAL DOUBLE-STRUCK CAPITAL T 1D54C MATHEMATICAL DOUBLE-STRUCK CAPITAL U 1D54D MATHEMATICAL DOUBLE-STRUCK CAPITAL V 1D54E MATHEMATICAL DOUBLE-STRUCK CAPITAL W 1D54F MATHEMATICAL DOUBLE-STRUCK CAPITAL X 1D550 MATHEMATICAL DOUBLE-STRUCK CAPITAL Y 1D552 MATHEMATICAL DOUBLE-STRUCK SMALL A 1D553 MATHEMATICAL DOUBLE-STRUCK SMALL B 1D554 MATHEMATICAL DOUBLE-STRUCK SMALL C 1D555 MATHEMATICAL DOUBLE-STRUCK SMALL D 1D556 MATHEMATICAL DOUBLE-STRUCK SMALL E 1D557 MATHEMATICAL DOUBLE-STRUCK SMALL F 1D558 MATHEMATICAL DOUBLE-STRUCK SMALL G 1D559 MATHEMATICAL DOUBLE-STRUCK SMALL H 1D55A MATHEMATICAL DOUBLE-STRUCK SMALL I 1D55B MATHEMATICAL DOUBLE-STRUCK SMALL J 1D55C MATHEMATICAL DOUBLE-STRUCK SMALL K 1D55D MATHEMATICAL DOUBLE-STRUCK SMALL L 1D55E MATHEMATICAL DOUBLE-STRUCK SMALL M 1D55F MATHEMATICAL DOUBLE-STRUCK SMALL N 1D560 MATHEMATICAL DOUBLE-STRUCK SMALL O 1D561 MATHEMATICAL DOUBLE-STRUCK SMALL P 1D562 MATHEMATICAL DOUBLE-STRUCK SMALL Q 1D563 MATHEMATICAL DOUBLE-STRUCK SMALL R 1D564 MATHEMATICAL DOUBLE-STRUCK SMALL S 1D565 MATHEMATICAL DOUBLE-STRUCK SMALL T 1D566 MATHEMATICAL DOUBLE-STRUCK SMALL U 1D567 MATHEMATICAL DOUBLE-STRUCK SMALL V 1D568 MATHEMATICAL DOUBLE-STRUCK SMALL W 1D569 MATHEMATICAL DOUBLE-STRUCK SMALL X 1D56A MATHEMATICAL DOUBLE-STRUCK SMALL Y 1D56B MATHEMATICAL DOUBLE-STRUCK SMALL Z 1D56C MATHEMATICAL BOLD FRAKTUR CAPITAL A 1D56D MATHEMATICAL BOLD FRAKTUR CAPITAL B 1D56E MATHEMATICAL BOLD FRAKTUR CAPITAL C 1D56F MATHEMATICAL BOLD FRAKTUR CAPITAL D 1D570 MATHEMATICAL BOLD FRAKTUR CAPITAL E 1D571 MATHEMATICAL BOLD FRAKTUR CAPITAL F 1D572 MATHEMATICAL BOLD FRAKTUR CAPITAL G 1D573 MATHEMATICAL BOLD FRAKTUR CAPITAL H 1D574 MATHEMATICAL BOLD FRAKTUR CAPITAL I 1D575 MATHEMATICAL BOLD FRAKTUR CAPITAL J 1D576 MATHEMATICAL BOLD FRAKTUR CAPITAL K 1D577 MATHEMATICAL BOLD FRAKTUR CAPITAL L 1D578 MATHEMATICAL BOLD FRAKTUR CAPITAL M 1D579 MATHEMATICAL BOLD FRAKTUR CAPITAL N 1D57A MATHEMATICAL BOLD FRAKTUR CAPITAL O 1D57B MATHEMATICAL BOLD FRAKTUR CAPITAL P 1D57C MATHEMATICAL BOLD FRAKTUR CAPITAL Q 1D57D MATHEMATICAL BOLD FRAKTUR CAPITAL R 1D57E MATHEMATICAL BOLD FRAKTUR CAPITAL S 1D57F MATHEMATICAL BOLD FRAKTUR CAPITAL T 1D580 MATHEMATICAL BOLD FRAKTUR CAPITAL U 1D581 MATHEMATICAL BOLD FRAKTUR CAPITAL V 1D582 MATHEMATICAL BOLD FRAKTUR CAPITAL W 1D583 MATHEMATICAL BOLD FRAKTUR CAPITAL X 1D584 MATHEMATICAL BOLD FRAKTUR CAPITAL Y 1D585 MATHEMATICAL BOLD FRAKTUR CAPITAL Z 1D586 MATHEMATICAL BOLD FRAKTUR SMALL A 1D587 MATHEMATICAL BOLD FRAKTUR SMALL B 1D588 MATHEMATICAL BOLD FRAKTUR SMALL C 1D589 MATHEMATICAL BOLD FRAKTUR SMALL D 1D58A MATHEMATICAL BOLD FRAKTUR SMALL E 1D58B MATHEMATICAL BOLD FRAKTUR SMALL F 1D58C MATHEMATICAL BOLD FRAKTUR SMALL G 1D58D MATHEMATICAL BOLD FRAKTUR SMALL H 1D58E MATHEMATICAL BOLD FRAKTUR SMALL I 1D58F MATHEMATICAL BOLD FRAKTUR SMALL J 1D590 MATHEMATICAL BOLD FRAKTUR SMALL K 1D591 MATHEMATICAL BOLD FRAKTUR SMALL L 1D592 MATHEMATICAL BOLD FRAKTUR SMALL M 1D593 MATHEMATICAL BOLD FRAKTUR SMALL N 1D594 MATHEMATICAL BOLD FRAKTUR SMALL O 1D595 MATHEMATICAL BOLD FRAKTUR SMALL P 1D596 MATHEMATICAL BOLD FRAKTUR SMALL Q 1D597 MATHEMATICAL BOLD FRAKTUR SMALL R 1D598 MATHEMATICAL BOLD FRAKTUR SMALL S 1D599 MATHEMATICAL BOLD FRAKTUR SMALL T 1D59A MATHEMATICAL BOLD FRAKTUR SMALL U 1D59B MATHEMATICAL BOLD FRAKTUR SMALL V 1D59C MATHEMATICAL BOLD FRAKTUR SMALL W 1D59D MATHEMATICAL BOLD FRAKTUR SMALL X 1D59E MATHEMATICAL BOLD FRAKTUR SMALL Y 1D59F MATHEMATICAL BOLD FRAKTUR SMALL Z 1D5A0 MATHEMATICAL SANS-SERIF CAPITAL A 1D5A1 MATHEMATICAL SANS-SERIF CAPITAL B 1D5A2 MATHEMATICAL SANS-SERIF CAPITAL C 1D5A3 MATHEMATICAL SANS-SERIF CAPITAL D 1D5A4 MATHEMATICAL SANS-SERIF CAPITAL E 1D5A5 MATHEMATICAL SANS-SERIF CAPITAL F 1D5A6 MATHEMATICAL SANS-SERIF CAPITAL G 1D5A7 MATHEMATICAL SANS-SERIF CAPITAL H 1D5A8 MATHEMATICAL SANS-SERIF CAPITAL I 1D5A9 MATHEMATICAL SANS-SERIF CAPITAL J 1D5AA MATHEMATICAL SANS-SERIF CAPITAL K 1D5AB MATHEMATICAL SANS-SERIF CAPITAL L 1D5AC MATHEMATICAL SANS-SERIF CAPITAL M 1D5AD MATHEMATICAL SANS-SERIF CAPITAL N 1D5AE MATHEMATICAL SANS-SERIF CAPITAL O 1D5AF MATHEMATICAL SANS-SERIF CAPITAL P 1D5B0 MATHEMATICAL SANS-SERIF CAPITAL Q 1D5B1 MATHEMATICAL SANS-SERIF CAPITAL R 1D5B2 MATHEMATICAL SANS-SERIF CAPITAL S 1D5B3 MATHEMATICAL SANS-SERIF CAPITAL T 1D5B4 MATHEMATICAL SANS-SERIF CAPITAL U 1D5B5 MATHEMATICAL SANS-SERIF CAPITAL V 1D5B6 MATHEMATICAL SANS-SERIF CAPITAL W 1D5B7 MATHEMATICAL SANS-SERIF CAPITAL X 1D5B8 MATHEMATICAL SANS-SERIF CAPITAL Y 1D5B9 MATHEMATICAL SANS-SERIF CAPITAL Z 1D5BA MATHEMATICAL SANS-SERIF SMALL A 1D5BB MATHEMATICAL SANS-SERIF SMALL B 1D5BC MATHEMATICAL SANS-SERIF SMALL C 1D5BD MATHEMATICAL SANS-SERIF SMALL D 1D5BE MATHEMATICAL SANS-SERIF SMALL E 1D5BF MATHEMATICAL SANS-SERIF SMALL F 1D5C0 MATHEMATICAL SANS-SERIF SMALL G 1D5C1 MATHEMATICAL SANS-SERIF SMALL H 1D5C2 MATHEMATICAL SANS-SERIF SMALL I 1D5C3 MATHEMATICAL SANS-SERIF SMALL J 1D5C4 MATHEMATICAL SANS-SERIF SMALL K 1D5C5 MATHEMATICAL SANS-SERIF SMALL L 1D5C6 MATHEMATICAL SANS-SERIF SMALL M 1D5C7 MATHEMATICAL SANS-SERIF SMALL N 1D5C8 MATHEMATICAL SANS-SERIF SMALL O 1D5C9 MATHEMATICAL SANS-SERIF SMALL P 1D5CA MATHEMATICAL SANS-SERIF SMALL Q 1D5CB MATHEMATICAL SANS-SERIF SMALL R 1D5CC MATHEMATICAL SANS-SERIF SMALL S 1D5CD MATHEMATICAL SANS-SERIF SMALL T 1D5CE MATHEMATICAL SANS-SERIF SMALL U 1D5CF MATHEMATICAL SANS-SERIF SMALL V 1D5D0 MATHEMATICAL SANS-SERIF SMALL W 1D5D1 MATHEMATICAL SANS-SERIF SMALL X 1D5D2 MATHEMATICAL SANS-SERIF SMALL Y 1D5D3 MATHEMATICAL SANS-SERIF SMALL Z 1D5D4 MATHEMATICAL SANS-SERIF BOLD CAPITAL A 1D5D5 MATHEMATICAL SANS-SERIF BOLD CAPITAL B 1D5D6 MATHEMATICAL SANS-SERIF BOLD CAPITAL C 1D5D7 MATHEMATICAL SANS-SERIF BOLD CAPITAL D 1D5D8 MATHEMATICAL SANS-SERIF BOLD CAPITAL E 1D5D9 MATHEMATICAL SANS-SERIF BOLD CAPITAL F 1D5DA MATHEMATICAL SANS-SERIF BOLD CAPITAL G 1D5DB MATHEMATICAL SANS-SERIF BOLD CAPITAL H 1D5DC MATHEMATICAL SANS-SERIF BOLD CAPITAL I 1D5DD MATHEMATICAL SANS-SERIF BOLD CAPITAL J 1D5DE MATHEMATICAL SANS-SERIF BOLD CAPITAL K 1D5DF MATHEMATICAL SANS-SERIF BOLD CAPITAL L 1D5E0 MATHEMATICAL SANS-SERIF BOLD CAPITAL M 1D5E1 MATHEMATICAL SANS-SERIF BOLD CAPITAL N 1D5E2 MATHEMATICAL SANS-SERIF BOLD CAPITAL O 1D5E3 MATHEMATICAL SANS-SERIF BOLD CAPITAL P 1D5E4 MATHEMATICAL SANS-SERIF BOLD CAPITAL Q 1D5E5 MATHEMATICAL SANS-SERIF BOLD CAPITAL R 1D5E6 MATHEMATICAL SANS-SERIF BOLD CAPITAL S 1D5E7 MATHEMATICAL SANS-SERIF BOLD CAPITAL T 1D5E8 MATHEMATICAL SANS-SERIF BOLD CAPITAL U 1D5E9 MATHEMATICAL SANS-SERIF BOLD CAPITAL V 1D5EA MATHEMATICAL SANS-SERIF BOLD CAPITAL W 1D5EB MATHEMATICAL SANS-SERIF BOLD CAPITAL X 1D5EC MATHEMATICAL SANS-SERIF BOLD CAPITAL Y 1D5ED MATHEMATICAL SANS-SERIF BOLD CAPITAL Z 1D5EE MATHEMATICAL SANS-SERIF BOLD SMALL A 1D5EF MATHEMATICAL SANS-SERIF BOLD SMALL B 1D5F0 MATHEMATICAL SANS-SERIF BOLD SMALL C 1D5F1 MATHEMATICAL SANS-SERIF BOLD SMALL D 1D5F2 MATHEMATICAL SANS-SERIF BOLD SMALL E 1D5F3 MATHEMATICAL SANS-SERIF BOLD SMALL F 1D5F4 MATHEMATICAL SANS-SERIF BOLD SMALL G 1D5F5 MATHEMATICAL SANS-SERIF BOLD SMALL H 1D5F6 MATHEMATICAL SANS-SERIF BOLD SMALL I 1D5F7 MATHEMATICAL SANS-SERIF BOLD SMALL J 1D5F8 MATHEMATICAL SANS-SERIF BOLD SMALL K 1D5F9 MATHEMATICAL SANS-SERIF BOLD SMALL L 1D5FA MATHEMATICAL SANS-SERIF BOLD SMALL M 1D5FB MATHEMATICAL SANS-SERIF BOLD SMALL N 1D5FC MATHEMATICAL SANS-SERIF BOLD SMALL O 1D5FD MATHEMATICAL SANS-SERIF BOLD SMALL P 1D5FE MATHEMATICAL SANS-SERIF BOLD SMALL Q 1D5FF MATHEMATICAL SANS-SERIF BOLD SMALL R 1D600 MATHEMATICAL SANS-SERIF BOLD SMALL S 1D601 MATHEMATICAL SANS-SERIF BOLD SMALL T 1D602 MATHEMATICAL SANS-SERIF BOLD SMALL U 1D603 MATHEMATICAL SANS-SERIF BOLD SMALL V 1D604 MATHEMATICAL SANS-SERIF BOLD SMALL W 1D605 MATHEMATICAL SANS-SERIF BOLD SMALL X 1D606 MATHEMATICAL SANS-SERIF BOLD SMALL Y 1D607 MATHEMATICAL SANS-SERIF BOLD SMALL Z 1D608 MATHEMATICAL SANS-SERIF ITALIC CAPITAL A 1D609 MATHEMATICAL SANS-SERIF ITALIC CAPITAL B 1D60A MATHEMATICAL SANS-SERIF ITALIC CAPITAL C 1D60B MATHEMATICAL SANS-SERIF ITALIC CAPITAL D 1D60C MATHEMATICAL SANS-SERIF ITALIC CAPITAL E 1D60D MATHEMATICAL SANS-SERIF ITALIC CAPITAL F 1D60E MATHEMATICAL SANS-SERIF ITALIC CAPITAL G 1D60F MATHEMATICAL SANS-SERIF ITALIC CAPITAL H 1D610 MATHEMATICAL SANS-SERIF ITALIC CAPITAL I 1D611 MATHEMATICAL SANS-SERIF ITALIC CAPITAL J 1D612 MATHEMATICAL SANS-SERIF ITALIC CAPITAL K 1D613 MATHEMATICAL SANS-SERIF ITALIC CAPITAL L 1D614 MATHEMATICAL SANS-SERIF ITALIC CAPITAL M 1D615 MATHEMATICAL SANS-SERIF ITALIC CAPITAL N 1D616 MATHEMATICAL SANS-SERIF ITALIC CAPITAL O 1D617 MATHEMATICAL SANS-SERIF ITALIC CAPITAL P 1D618 MATHEMATICAL SANS-SERIF ITALIC CAPITAL Q 1D619 MATHEMATICAL SANS-SERIF ITALIC CAPITAL R 1D61A MATHEMATICAL SANS-SERIF ITALIC CAPITAL S 1D61B MATHEMATICAL SANS-SERIF ITALIC CAPITAL T 1D61C MATHEMATICAL SANS-SERIF ITALIC CAPITAL U 1D61D MATHEMATICAL SANS-SERIF ITALIC CAPITAL V 1D61E MATHEMATICAL SANS-SERIF ITALIC CAPITAL W 1D61F MATHEMATICAL SANS-SERIF ITALIC CAPITAL X 1D620 MATHEMATICAL SANS-SERIF ITALIC CAPITAL Y 1D621 MATHEMATICAL SANS-SERIF ITALIC CAPITAL Z 1D622 MATHEMATICAL SANS-SERIF ITALIC SMALL A 1D623 MATHEMATICAL SANS-SERIF ITALIC SMALL B 1D624 MATHEMATICAL SANS-SERIF ITALIC SMALL C 1D625 MATHEMATICAL SANS-SERIF ITALIC SMALL D 1D626 MATHEMATICAL SANS-SERIF ITALIC SMALL E 1D627 MATHEMATICAL SANS-SERIF ITALIC SMALL F 1D628 MATHEMATICAL SANS-SERIF ITALIC SMALL G 1D629 MATHEMATICAL SANS-SERIF ITALIC SMALL H 1D62A MATHEMATICAL SANS-SERIF ITALIC SMALL I 1D62B MATHEMATICAL SANS-SERIF ITALIC SMALL J 1D62C MATHEMATICAL SANS-SERIF ITALIC SMALL K 1D62D MATHEMATICAL SANS-SERIF ITALIC SMALL L 1D62E MATHEMATICAL SANS-SERIF ITALIC SMALL M 1D62F MATHEMATICAL SANS-SERIF ITALIC SMALL N 1D630 MATHEMATICAL SANS-SERIF ITALIC SMALL O 1D631 MATHEMATICAL SANS-SERIF ITALIC SMALL P 1D632 MATHEMATICAL SANS-SERIF ITALIC SMALL Q 1D633 MATHEMATICAL SANS-SERIF ITALIC SMALL R 1D634 MATHEMATICAL SANS-SERIF ITALIC SMALL S 1D635 MATHEMATICAL SANS-SERIF ITALIC SMALL T 1D636 MATHEMATICAL SANS-SERIF ITALIC SMALL U 1D637 MATHEMATICAL SANS-SERIF ITALIC SMALL V 1D638 MATHEMATICAL SANS-SERIF ITALIC SMALL W 1D639 MATHEMATICAL SANS-SERIF ITALIC SMALL X 1D63A MATHEMATICAL SANS-SERIF ITALIC SMALL Y 1D63B MATHEMATICAL SANS-SERIF ITALIC SMALL Z 1D63C MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL A 1D63D MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL B 1D63E MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL C 1D63F MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL D 1D640 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL E 1D641 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL F 1D642 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL G 1D643 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL H 1D644 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL I 1D645 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL J 1D646 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL K 1D647 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL L 1D648 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL M 1D649 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL N 1D64A MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL O 1D64B MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL P 1D64C MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL Q 1D64D MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL R 1D64E MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL S 1D64F MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL T 1D650 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL U 1D651 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL V 1D652 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL W 1D653 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL X 1D654 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL Y 1D655 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL Z 1D656 MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL A 1D657 MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL B 1D658 MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL C 1D659 MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL D 1D65A MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL E 1D65B MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL F 1D65C MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL G 1D65D MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL H 1D65E MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL I 1D65F MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL J 1D660 MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL K 1D661 MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL L 1D662 MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL M 1D663 MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL N 1D664 MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL O 1D665 MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL P 1D666 MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL Q 1D667 MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL R 1D668 MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL S 1D669 MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL T 1D66A MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL U 1D66B MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL V 1D66C MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL W 1D66D MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL X 1D66E MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL Y 1D66F MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL Z 1D670 MATHEMATICAL MONOSPACE CAPITAL A 1D671 MATHEMATICAL MONOSPACE CAPITAL B 1D672 MATHEMATICAL MONOSPACE CAPITAL C 1D673 MATHEMATICAL MONOSPACE CAPITAL D 1D674 MATHEMATICAL MONOSPACE CAPITAL E 1D675 MATHEMATICAL MONOSPACE CAPITAL F 1D676 MATHEMATICAL MONOSPACE CAPITAL G 1D677 MATHEMATICAL MONOSPACE CAPITAL H 1D678 MATHEMATICAL MONOSPACE CAPITAL I 1D679 MATHEMATICAL MONOSPACE CAPITAL J 1D67A MATHEMATICAL MONOSPACE CAPITAL K 1D67B MATHEMATICAL MONOSPACE CAPITAL L 1D67C MATHEMATICAL MONOSPACE CAPITAL M 1D67D MATHEMATICAL MONOSPACE CAPITAL N 1D67E MATHEMATICAL MONOSPACE CAPITAL O 1D67F MATHEMATICAL MONOSPACE CAPITAL P 1D680 MATHEMATICAL MONOSPACE CAPITAL Q 1D681 MATHEMATICAL MONOSPACE CAPITAL R 1D682 MATHEMATICAL MONOSPACE CAPITAL S 1D683 MATHEMATICAL MONOSPACE CAPITAL T 1D684 MATHEMATICAL MONOSPACE CAPITAL U 1D685 MATHEMATICAL MONOSPACE CAPITAL V 1D686 MATHEMATICAL MONOSPACE CAPITAL W 1D687 MATHEMATICAL MONOSPACE CAPITAL X 1D688 MATHEMATICAL MONOSPACE CAPITAL Y 1D689 MATHEMATICAL MONOSPACE CAPITAL Z 1D68A MATHEMATICAL MONOSPACE SMALL A 1D68B MATHEMATICAL MONOSPACE SMALL B 1D68C MATHEMATICAL MONOSPACE SMALL C 1D68D MATHEMATICAL MONOSPACE SMALL D 1D68E MATHEMATICAL MONOSPACE SMALL E 1D68F MATHEMATICAL MONOSPACE SMALL F 1D690 MATHEMATICAL MONOSPACE SMALL G 1D691 MATHEMATICAL MONOSPACE SMALL H 1D692 MATHEMATICAL MONOSPACE SMALL I 1D693 MATHEMATICAL MONOSPACE SMALL J 1D694 MATHEMATICAL MONOSPACE SMALL K 1D695 MATHEMATICAL MONOSPACE SMALL L 1D696 MATHEMATICAL MONOSPACE SMALL M 1D697 MATHEMATICAL MONOSPACE SMALL N 1D698 MATHEMATICAL MONOSPACE SMALL O 1D699 MATHEMATICAL MONOSPACE SMALL P 1D69A MATHEMATICAL MONOSPACE SMALL Q 1D69B MATHEMATICAL MONOSPACE SMALL R 1D69C MATHEMATICAL MONOSPACE SMALL S 1D69D MATHEMATICAL MONOSPACE SMALL T 1D69E MATHEMATICAL MONOSPACE SMALL U 1D69F MATHEMATICAL MONOSPACE SMALL V 1D6A0 MATHEMATICAL MONOSPACE SMALL W 1D6A1 MATHEMATICAL MONOSPACE SMALL X 1D6A2 MATHEMATICAL MONOSPACE SMALL Y 1D6A3 MATHEMATICAL MONOSPACE SMALL Z 1D6A4 MATHEMATICAL ITALIC SMALL DOTLESS I 1D6A5 MATHEMATICAL ITALIC SMALL DOTLESS J 1D6A8 MATHEMATICAL BOLD CAPITAL ALPHA 1D6A9 MATHEMATICAL BOLD CAPITAL BETA 1D6AA MATHEMATICAL BOLD CAPITAL GAMMA 1D6AB MATHEMATICAL BOLD CAPITAL DELTA 1D6AC MATHEMATICAL BOLD CAPITAL EPSILON 1D6AD MATHEMATICAL BOLD CAPITAL ZETA 1D6AE MATHEMATICAL BOLD CAPITAL ETA 1D6AF MATHEMATICAL BOLD CAPITAL THETA 1D6B0 MATHEMATICAL BOLD CAPITAL IOTA 1D6B1 MATHEMATICAL BOLD CAPITAL KAPPA 1D6B2 MATHEMATICAL BOLD CAPITAL LAMDA 1D6B3 MATHEMATICAL BOLD CAPITAL MU 1D6B4 MATHEMATICAL BOLD CAPITAL NU 1D6B5 MATHEMATICAL BOLD CAPITAL XI 1D6B6 MATHEMATICAL BOLD CAPITAL OMICRON 1D6B7 MATHEMATICAL BOLD CAPITAL PI 1D6B8 MATHEMATICAL BOLD CAPITAL RHO 1D6B9 MATHEMATICAL BOLD CAPITAL THETA SYMBOL 1D6BA MATHEMATICAL BOLD CAPITAL SIGMA 1D6BB MATHEMATICAL BOLD CAPITAL TAU 1D6BC MATHEMATICAL BOLD CAPITAL UPSILON 1D6BD MATHEMATICAL BOLD CAPITAL PHI 1D6BE MATHEMATICAL BOLD CAPITAL CHI 1D6BF MATHEMATICAL BOLD CAPITAL PSI 1D6C0 MATHEMATICAL BOLD CAPITAL OMEGA 1D6C1 MATHEMATICAL BOLD NABLA 1D6C2 MATHEMATICAL BOLD SMALL ALPHA 1D6C3 MATHEMATICAL BOLD SMALL BETA 1D6C4 MATHEMATICAL BOLD SMALL GAMMA 1D6C5 MATHEMATICAL BOLD SMALL DELTA 1D6C6 MATHEMATICAL BOLD SMALL EPSILON 1D6C7 MATHEMATICAL BOLD SMALL ZETA 1D6C8 MATHEMATICAL BOLD SMALL ETA 1D6C9 MATHEMATICAL BOLD SMALL THETA 1D6CA MATHEMATICAL BOLD SMALL IOTA 1D6CB MATHEMATICAL BOLD SMALL KAPPA 1D6CC MATHEMATICAL BOLD SMALL LAMDA 1D6CD MATHEMATICAL BOLD SMALL MU 1D6CE MATHEMATICAL BOLD SMALL NU 1D6CF MATHEMATICAL BOLD SMALL XI 1D6D0 MATHEMATICAL BOLD SMALL OMICRON 1D6D1 MATHEMATICAL BOLD SMALL PI 1D6D2 MATHEMATICAL BOLD SMALL RHO 1D6D3 MATHEMATICAL BOLD SMALL FINAL SIGMA 1D6D4 MATHEMATICAL BOLD SMALL SIGMA 1D6D5 MATHEMATICAL BOLD SMALL TAU 1D6D6 MATHEMATICAL BOLD SMALL UPSILON 1D6D7 MATHEMATICAL BOLD SMALL PHI 1D6D8 MATHEMATICAL BOLD SMALL CHI 1D6D9 MATHEMATICAL BOLD SMALL PSI 1D6DA MATHEMATICAL BOLD SMALL OMEGA 1D6DB MATHEMATICAL BOLD PARTIAL DIFFERENTIAL 1D6DC MATHEMATICAL BOLD EPSILON SYMBOL 1D6DD MATHEMATICAL BOLD THETA SYMBOL 1D6DE MATHEMATICAL BOLD KAPPA SYMBOL 1D6DF MATHEMATICAL BOLD PHI SYMBOL 1D6E0 MATHEMATICAL BOLD RHO SYMBOL 1D6E1 MATHEMATICAL BOLD PI SYMBOL 1D6E2 MATHEMATICAL ITALIC CAPITAL ALPHA 1D6E3 MATHEMATICAL ITALIC CAPITAL BETA 1D6E4 MATHEMATICAL ITALIC CAPITAL GAMMA 1D6E5 MATHEMATICAL ITALIC CAPITAL DELTA 1D6E6 MATHEMATICAL ITALIC CAPITAL EPSILON 1D6E7 MATHEMATICAL ITALIC CAPITAL ZETA 1D6E8 MATHEMATICAL ITALIC CAPITAL ETA 1D6E9 MATHEMATICAL ITALIC CAPITAL THETA 1D6EA MATHEMATICAL ITALIC CAPITAL IOTA 1D6EB MATHEMATICAL ITALIC CAPITAL KAPPA 1D6EC MATHEMATICAL ITALIC CAPITAL LAMDA 1D6ED MATHEMATICAL ITALIC CAPITAL MU 1D6EE MATHEMATICAL ITALIC CAPITAL NU 1D6EF MATHEMATICAL ITALIC CAPITAL XI 1D6F0 MATHEMATICAL ITALIC CAPITAL OMICRON 1D6F1 MATHEMATICAL ITALIC CAPITAL PI 1D6F2 MATHEMATICAL ITALIC CAPITAL RHO 1D6F3 MATHEMATICAL ITALIC CAPITAL THETA SYMBOL 1D6F4 MATHEMATICAL ITALIC CAPITAL SIGMA 1D6F5 MATHEMATICAL ITALIC CAPITAL TAU 1D6F6 MATHEMATICAL ITALIC CAPITAL UPSILON 1D6F7 MATHEMATICAL ITALIC CAPITAL PHI 1D6F8 MATHEMATICAL ITALIC CAPITAL CHI 1D6F9 MATHEMATICAL ITALIC CAPITAL PSI 1D6FA MATHEMATICAL ITALIC CAPITAL OMEGA 1D6FB MATHEMATICAL ITALIC NABLA 1D6FC MATHEMATICAL ITALIC SMALL ALPHA 1D6FD MATHEMATICAL ITALIC SMALL BETA 1D6FE MATHEMATICAL ITALIC SMALL GAMMA 1D6FF MATHEMATICAL ITALIC SMALL DELTA 1D700 MATHEMATICAL ITALIC SMALL EPSILON 1D701 MATHEMATICAL ITALIC SMALL ZETA 1D702 MATHEMATICAL ITALIC SMALL ETA 1D703 MATHEMATICAL ITALIC SMALL THETA 1D704 MATHEMATICAL ITALIC SMALL IOTA 1D705 MATHEMATICAL ITALIC SMALL KAPPA 1D706 MATHEMATICAL ITALIC SMALL LAMDA 1D707 MATHEMATICAL ITALIC SMALL MU 1D708 MATHEMATICAL ITALIC SMALL NU 1D709 MATHEMATICAL ITALIC SMALL XI 1D70A MATHEMATICAL ITALIC SMALL OMICRON 1D70B MATHEMATICAL ITALIC SMALL PI 1D70C MATHEMATICAL ITALIC SMALL RHO 1D70D MATHEMATICAL ITALIC SMALL FINAL SIGMA 1D70E MATHEMATICAL ITALIC SMALL SIGMA 1D70F MATHEMATICAL ITALIC SMALL TAU 1D710 MATHEMATICAL ITALIC SMALL UPSILON 1D711 MATHEMATICAL ITALIC SMALL PHI 1D712 MATHEMATICAL ITALIC SMALL CHI 1D713 MATHEMATICAL ITALIC SMALL PSI 1D714 MATHEMATICAL ITALIC SMALL OMEGA 1D715 MATHEMATICAL ITALIC PARTIAL DIFFERENTIAL 1D716 MATHEMATICAL ITALIC EPSILON SYMBOL 1D717 MATHEMATICAL ITALIC THETA SYMBOL 1D718 MATHEMATICAL ITALIC KAPPA SYMBOL 1D719 MATHEMATICAL ITALIC PHI SYMBOL 1D71A MATHEMATICAL ITALIC RHO SYMBOL 1D71B MATHEMATICAL ITALIC PI SYMBOL 1D71C MATHEMATICAL BOLD ITALIC CAPITAL ALPHA 1D71D MATHEMATICAL BOLD ITALIC CAPITAL BETA 1D71E MATHEMATICAL BOLD ITALIC CAPITAL GAMMA 1D71F MATHEMATICAL BOLD ITALIC CAPITAL DELTA 1D720 MATHEMATICAL BOLD ITALIC CAPITAL EPSILON 1D721 MATHEMATICAL BOLD ITALIC CAPITAL ZETA 1D722 MATHEMATICAL BOLD ITALIC CAPITAL ETA 1D723 MATHEMATICAL BOLD ITALIC CAPITAL THETA 1D724 MATHEMATICAL BOLD ITALIC CAPITAL IOTA 1D725 MATHEMATICAL BOLD ITALIC CAPITAL KAPPA 1D726 MATHEMATICAL BOLD ITALIC CAPITAL LAMDA 1D727 MATHEMATICAL BOLD ITALIC CAPITAL MU 1D728 MATHEMATICAL BOLD ITALIC CAPITAL NU 1D729 MATHEMATICAL BOLD ITALIC CAPITAL XI 1D72A MATHEMATICAL BOLD ITALIC CAPITAL OMICRON 1D72B MATHEMATICAL BOLD ITALIC CAPITAL PI 1D72C MATHEMATICAL BOLD ITALIC CAPITAL RHO 1D72D MATHEMATICAL BOLD ITALIC CAPITAL THETA SYMBOL 1D72E MATHEMATICAL BOLD ITALIC CAPITAL SIGMA 1D72F MATHEMATICAL BOLD ITALIC CAPITAL TAU 1D730 MATHEMATICAL BOLD ITALIC CAPITAL UPSILON 1D731 MATHEMATICAL BOLD ITALIC CAPITAL PHI 1D732 MATHEMATICAL BOLD ITALIC CAPITAL CHI 1D733 MATHEMATICAL BOLD ITALIC CAPITAL PSI 1D734 MATHEMATICAL BOLD ITALIC CAPITAL OMEGA 1D735 MATHEMATICAL BOLD ITALIC NABLA 1D736 MATHEMATICAL BOLD ITALIC SMALL ALPHA 1D737 MATHEMATICAL BOLD ITALIC SMALL BETA 1D738 MATHEMATICAL BOLD ITALIC SMALL GAMMA 1D739 MATHEMATICAL BOLD ITALIC SMALL DELTA 1D73A MATHEMATICAL BOLD ITALIC SMALL EPSILON 1D73B MATHEMATICAL BOLD ITALIC SMALL ZETA 1D73C MATHEMATICAL BOLD ITALIC SMALL ETA 1D73D MATHEMATICAL BOLD ITALIC SMALL THETA 1D73E MATHEMATICAL BOLD ITALIC SMALL IOTA 1D73F MATHEMATICAL BOLD ITALIC SMALL KAPPA 1D740 MATHEMATICAL BOLD ITALIC SMALL LAMDA 1D741 MATHEMATICAL BOLD ITALIC SMALL MU 1D742 MATHEMATICAL BOLD ITALIC SMALL NU 1D743 MATHEMATICAL BOLD ITALIC SMALL XI 1D744 MATHEMATICAL BOLD ITALIC SMALL OMICRON 1D745 MATHEMATICAL BOLD ITALIC SMALL PI 1D746 MATHEMATICAL BOLD ITALIC SMALL RHO 1D747 MATHEMATICAL BOLD ITALIC SMALL FINAL SIGMA 1D748 MATHEMATICAL BOLD ITALIC SMALL SIGMA 1D749 MATHEMATICAL BOLD ITALIC SMALL TAU 1D74A MATHEMATICAL BOLD ITALIC SMALL UPSILON 1D74B MATHEMATICAL BOLD ITALIC SMALL PHI 1D74C MATHEMATICAL BOLD ITALIC SMALL CHI 1D74D MATHEMATICAL BOLD ITALIC SMALL PSI 1D74E MATHEMATICAL BOLD ITALIC SMALL OMEGA 1D74F MATHEMATICAL BOLD ITALIC PARTIAL DIFFERENTIAL 1D750 MATHEMATICAL BOLD ITALIC EPSILON SYMBOL 1D751 MATHEMATICAL BOLD ITALIC THETA SYMBOL 1D752 MATHEMATICAL BOLD ITALIC KAPPA SYMBOL 1D753 MATHEMATICAL BOLD ITALIC PHI SYMBOL 1D754 MATHEMATICAL BOLD ITALIC RHO SYMBOL 1D755 MATHEMATICAL BOLD ITALIC PI SYMBOL 1D756 MATHEMATICAL SANS-SERIF BOLD CAPITAL ALPHA 1D757 MATHEMATICAL SANS-SERIF BOLD CAPITAL BETA 1D758 MATHEMATICAL SANS-SERIF BOLD CAPITAL GAMMA 1D759 MATHEMATICAL SANS-SERIF BOLD CAPITAL DELTA 1D75A MATHEMATICAL SANS-SERIF BOLD CAPITAL EPSILON 1D75B MATHEMATICAL SANS-SERIF BOLD CAPITAL ZETA 1D75C MATHEMATICAL SANS-SERIF BOLD CAPITAL ETA 1D75D MATHEMATICAL SANS-SERIF BOLD CAPITAL THETA 1D75E MATHEMATICAL SANS-SERIF BOLD CAPITAL IOTA 1D75F MATHEMATICAL SANS-SERIF BOLD CAPITAL KAPPA 1D760 MATHEMATICAL SANS-SERIF BOLD CAPITAL LAMDA 1D761 MATHEMATICAL SANS-SERIF BOLD CAPITAL MU 1D762 MATHEMATICAL SANS-SERIF BOLD CAPITAL NU 1D763 MATHEMATICAL SANS-SERIF BOLD CAPITAL XI 1D764 MATHEMATICAL SANS-SERIF BOLD CAPITAL OMICRON 1D765 MATHEMATICAL SANS-SERIF BOLD CAPITAL PI 1D766 MATHEMATICAL SANS-SERIF BOLD CAPITAL RHO 1D767 MATHEMATICAL SANS-SERIF BOLD CAPITAL THETA SYMBOL 1D768 MATHEMATICAL SANS-SERIF BOLD CAPITAL SIGMA 1D769 MATHEMATICAL SANS-SERIF BOLD CAPITAL TAU 1D76A MATHEMATICAL SANS-SERIF BOLD CAPITAL UPSILON 1D76B MATHEMATICAL SANS-SERIF BOLD CAPITAL PHI 1D76C MATHEMATICAL SANS-SERIF BOLD CAPITAL CHI 1D76D MATHEMATICAL SANS-SERIF BOLD CAPITAL PSI 1D76E MATHEMATICAL SANS-SERIF BOLD CAPITAL OMEGA 1D76F MATHEMATICAL SANS-SERIF BOLD NABLA 1D770 MATHEMATICAL SANS-SERIF BOLD SMALL ALPHA 1D771 MATHEMATICAL SANS-SERIF BOLD SMALL BETA 1D772 MATHEMATICAL SANS-SERIF BOLD SMALL GAMMA 1D773 MATHEMATICAL SANS-SERIF BOLD SMALL DELTA 1D774 MATHEMATICAL SANS-SERIF BOLD SMALL EPSILON 1D775 MATHEMATICAL SANS-SERIF BOLD SMALL ZETA 1D776 MATHEMATICAL SANS-SERIF BOLD SMALL ETA 1D777 MATHEMATICAL SANS-SERIF BOLD SMALL THETA 1D778 MATHEMATICAL SANS-SERIF BOLD SMALL IOTA 1D779 MATHEMATICAL SANS-SERIF BOLD SMALL KAPPA 1D77A MATHEMATICAL SANS-SERIF BOLD SMALL LAMDA 1D77B MATHEMATICAL SANS-SERIF BOLD SMALL MU 1D77C MATHEMATICAL SANS-SERIF BOLD SMALL NU 1D77D MATHEMATICAL SANS-SERIF BOLD SMALL XI 1D77E MATHEMATICAL SANS-SERIF BOLD SMALL OMICRON 1D77F MATHEMATICAL SANS-SERIF BOLD SMALL PI 1D780 MATHEMATICAL SANS-SERIF BOLD SMALL RHO 1D781 MATHEMATICAL SANS-SERIF BOLD SMALL FINAL SIGMA 1D782 MATHEMATICAL SANS-SERIF BOLD SMALL SIGMA 1D783 MATHEMATICAL SANS-SERIF BOLD SMALL TAU 1D784 MATHEMATICAL SANS-SERIF BOLD SMALL UPSILON 1D785 MATHEMATICAL SANS-SERIF BOLD SMALL PHI 1D786 MATHEMATICAL SANS-SERIF BOLD SMALL CHI 1D787 MATHEMATICAL SANS-SERIF BOLD SMALL PSI 1D788 MATHEMATICAL SANS-SERIF BOLD SMALL OMEGA 1D789 MATHEMATICAL SANS-SERIF BOLD PARTIAL DIFFERENTIAL 1D78A MATHEMATICAL SANS-SERIF BOLD EPSILON SYMBOL 1D78B MATHEMATICAL SANS-SERIF BOLD THETA SYMBOL 1D78C MATHEMATICAL SANS-SERIF BOLD KAPPA SYMBOL 1D78D MATHEMATICAL SANS-SERIF BOLD PHI SYMBOL 1D78E MATHEMATICAL SANS-SERIF BOLD RHO SYMBOL 1D78F MATHEMATICAL SANS-SERIF BOLD PI SYMBOL 1D790 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL ALPHA 1D791 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL BETA 1D792 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL GAMMA 1D793 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL DELTA 1D794 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL EPSILON 1D795 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL ZETA 1D796 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL ETA 1D797 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL THETA 1D798 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL IOTA 1D799 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL KAPPA 1D79A MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL LAMDA 1D79B MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL MU 1D79C MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL NU 1D79D MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL XI 1D79E MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL OMICRON 1D79F MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL PI 1D7A0 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL RHO 1D7A1 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL THETA SYMBOL 1D7A2 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL SIGMA 1D7A3 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL TAU 1D7A4 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL UPSILON 1D7A5 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL PHI 1D7A6 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL CHI 1D7A7 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL PSI 1D7A8 MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL OMEGA 1D7A9 MATHEMATICAL SANS-SERIF BOLD ITALIC NABLA 1D7AA MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL ALPHA 1D7AB MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL BETA 1D7AC MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL GAMMA 1D7AD MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL DELTA 1D7AE MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL EPSILON 1D7AF MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL ZETA 1D7B0 MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL ETA 1D7B1 MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL THETA 1D7B2 MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL IOTA 1D7B3 MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL KAPPA 1D7B4 MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL LAMDA 1D7B5 MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL MU 1D7B6 MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL NU 1D7B7 MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL XI 1D7B8 MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL OMICRON 1D7B9 MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL PI 1D7BA MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL RHO 1D7BB MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL FINAL SIGMA 1D7BC MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL SIGMA 1D7BD MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL TAU 1D7BE MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL UPSILON 1D7BF MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL PHI 1D7C0 MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL CHI 1D7C1 MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL PSI 1D7C2 MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL OMEGA 1D7C3 MATHEMATICAL SANS-SERIF BOLD ITALIC PARTIAL DIFFERENTIAL 1D7C4 MATHEMATICAL SANS-SERIF BOLD ITALIC EPSILON SYMBOL 1D7C5 MATHEMATICAL SANS-SERIF BOLD ITALIC THETA SYMBOL 1D7C6 MATHEMATICAL SANS-SERIF BOLD ITALIC KAPPA SYMBOL 1D7C7 MATHEMATICAL SANS-SERIF BOLD ITALIC PHI SYMBOL 1D7C8 MATHEMATICAL SANS-SERIF BOLD ITALIC RHO SYMBOL 1D7C9 MATHEMATICAL SANS-SERIF BOLD ITALIC PI SYMBOL 1D7CA MATHEMATICAL BOLD CAPITAL DIGAMMA 1D7CB MATHEMATICAL BOLD SMALL DIGAMMA 1D7CE MATHEMATICAL BOLD DIGIT ZERO 1D7CF MATHEMATICAL BOLD DIGIT ONE 1D7D0 MATHEMATICAL BOLD DIGIT TWO 1D7D1 MATHEMATICAL BOLD DIGIT THREE 1D7D2 MATHEMATICAL BOLD DIGIT FOUR 1D7D3 MATHEMATICAL BOLD DIGIT FIVE 1D7D4 MATHEMATICAL BOLD DIGIT SIX 1D7D5 MATHEMATICAL BOLD DIGIT SEVEN 1D7D6 MATHEMATICAL BOLD DIGIT EIGHT 1D7D7 MATHEMATICAL BOLD DIGIT NINE 1D7D8 MATHEMATICAL DOUBLE-STRUCK DIGIT ZERO 1D7D9 MATHEMATICAL DOUBLE-STRUCK DIGIT ONE 1D7DA MATHEMATICAL DOUBLE-STRUCK DIGIT TWO 1D7DB MATHEMATICAL DOUBLE-STRUCK DIGIT THREE 1D7DC MATHEMATICAL DOUBLE-STRUCK DIGIT FOUR 1D7DD MATHEMATICAL DOUBLE-STRUCK DIGIT FIVE 1D7DE MATHEMATICAL DOUBLE-STRUCK DIGIT SIX 1D7DF MATHEMATICAL DOUBLE-STRUCK DIGIT SEVEN 1D7E0 MATHEMATICAL DOUBLE-STRUCK DIGIT EIGHT 1D7E1 MATHEMATICAL DOUBLE-STRUCK DIGIT NINE 1D7E2 MATHEMATICAL SANS-SERIF DIGIT ZERO 1D7E3 MATHEMATICAL SANS-SERIF DIGIT ONE 1D7E4 MATHEMATICAL SANS-SERIF DIGIT TWO 1D7E5 MATHEMATICAL SANS-SERIF DIGIT THREE 1D7E6 MATHEMATICAL SANS-SERIF DIGIT FOUR 1D7E7 MATHEMATICAL SANS-SERIF DIGIT FIVE 1D7E8 MATHEMATICAL SANS-SERIF DIGIT SIX 1D7E9 MATHEMATICAL SANS-SERIF DIGIT SEVEN 1D7EA MATHEMATICAL SANS-SERIF DIGIT EIGHT 1D7EB MATHEMATICAL SANS-SERIF DIGIT NINE 1D7EC MATHEMATICAL SANS-SERIF BOLD DIGIT ZERO 1D7ED MATHEMATICAL SANS-SERIF BOLD DIGIT ONE 1D7EE MATHEMATICAL SANS-SERIF BOLD DIGIT TWO 1D7EF MATHEMATICAL SANS-SERIF BOLD DIGIT THREE 1D7F0 MATHEMATICAL SANS-SERIF BOLD DIGIT FOUR 1D7F1 MATHEMATICAL SANS-SERIF BOLD DIGIT FIVE 1D7F2 MATHEMATICAL SANS-SERIF BOLD DIGIT SIX 1D7F3 MATHEMATICAL SANS-SERIF BOLD DIGIT SEVEN 1D7F4 MATHEMATICAL SANS-SERIF BOLD DIGIT EIGHT 1D7F5 MATHEMATICAL SANS-SERIF BOLD DIGIT NINE 1D7F6 MATHEMATICAL MONOSPACE DIGIT ZERO 1D7F7 MATHEMATICAL MONOSPACE DIGIT ONE 1D7F8 MATHEMATICAL MONOSPACE DIGIT TWO 1D7F9 MATHEMATICAL MONOSPACE DIGIT THREE 1D7FA MATHEMATICAL MONOSPACE DIGIT FOUR 1D7FB MATHEMATICAL MONOSPACE DIGIT FIVE 1D7FC MATHEMATICAL MONOSPACE DIGIT SIX 1D7FD MATHEMATICAL MONOSPACE DIGIT SEVEN 1D7FE MATHEMATICAL MONOSPACE DIGIT EIGHT 1D7FF MATHEMATICAL MONOSPACE DIGIT NINE 1D800 SIGNWRITING HAND-FIST INDEX 1D801 SIGNWRITING HAND-CIRCLE INDEX 1D802 SIGNWRITING HAND-CUP INDEX 1D803 SIGNWRITING HAND-OVAL INDEX 1D804 SIGNWRITING HAND-HINGE INDEX 1D805 SIGNWRITING HAND-ANGLE INDEX 1D806 SIGNWRITING HAND-FIST INDEX BENT 1D807 SIGNWRITING HAND-CIRCLE INDEX BENT 1D808 SIGNWRITING HAND-FIST THUMB UNDER INDEX BENT 1D809 SIGNWRITING HAND-FIST INDEX RAISED KNUCKLE 1D80A SIGNWRITING HAND-FIST INDEX CUPPED 1D80B SIGNWRITING HAND-FIST INDEX HINGED 1D80C SIGNWRITING HAND-FIST INDEX HINGED LOW 1D80D SIGNWRITING HAND-CIRCLE INDEX HINGE 1D80E SIGNWRITING HAND-FIST INDEX MIDDLE 1D80F SIGNWRITING HAND-CIRCLE INDEX MIDDLE 1D810 SIGNWRITING HAND-FIST INDEX MIDDLE BENT 1D811 SIGNWRITING HAND-FIST INDEX MIDDLE RAISED KNUCKLES 1D812 SIGNWRITING HAND-FIST INDEX MIDDLE HINGED 1D813 SIGNWRITING HAND-FIST INDEX UP MIDDLE HINGED 1D814 SIGNWRITING HAND-FIST INDEX HINGED MIDDLE UP 1D815 SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED 1D816 SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED INDEX BENT 1D817 SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED MIDDLE BENT 1D818 SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED CUPPED 1D819 SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED HINGED 1D81A SIGNWRITING HAND-FIST INDEX MIDDLE CROSSED 1D81B SIGNWRITING HAND-CIRCLE INDEX MIDDLE CROSSED 1D81C SIGNWRITING HAND-FIST MIDDLE BENT OVER INDEX 1D81D SIGNWRITING HAND-FIST INDEX BENT OVER MIDDLE 1D81E SIGNWRITING HAND-FIST INDEX MIDDLE THUMB 1D81F SIGNWRITING HAND-CIRCLE INDEX MIDDLE THUMB 1D820 SIGNWRITING HAND-FIST INDEX MIDDLE STRAIGHT THUMB BENT 1D821 SIGNWRITING HAND-FIST INDEX MIDDLE BENT THUMB STRAIGHT 1D822 SIGNWRITING HAND-FIST INDEX MIDDLE THUMB BENT 1D823 SIGNWRITING HAND-FIST INDEX MIDDLE HINGED SPREAD THUMB SIDE 1D824 SIGNWRITING HAND-FIST INDEX UP MIDDLE HINGED THUMB SIDE 1D825 SIGNWRITING HAND-FIST INDEX UP MIDDLE HINGED THUMB CONJOINED 1D826 SIGNWRITING HAND-FIST INDEX HINGED MIDDLE UP THUMB SIDE 1D827 SIGNWRITING HAND-FIST INDEX MIDDLE UP SPREAD THUMB FORWARD 1D828 SIGNWRITING HAND-FIST INDEX MIDDLE THUMB CUPPED 1D829 SIGNWRITING HAND-FIST INDEX MIDDLE THUMB CIRCLED 1D82A SIGNWRITING HAND-FIST INDEX MIDDLE THUMB HOOKED 1D82B SIGNWRITING HAND-FIST INDEX MIDDLE THUMB HINGED 1D82C SIGNWRITING HAND-FIST THUMB BETWEEN INDEX MIDDLE STRAIGHT 1D82D SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED THUMB SIDE 1D82E SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED THUMB SIDE CONJOINED 1D82F SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED THUMB SIDE BENT 1D830 SIGNWRITING HAND-FIST MIDDLE THUMB HOOKED INDEX UP 1D831 SIGNWRITING HAND-FIST INDEX THUMB HOOKED MIDDLE UP 1D832 SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED HINGED THUMB SIDE 1D833 SIGNWRITING HAND-FIST INDEX MIDDLE CROSSED THUMB SIDE 1D834 SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED THUMB FORWARD 1D835 SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED CUPPED THUMB FORWARD 1D836 SIGNWRITING HAND-FIST MIDDLE THUMB CUPPED INDEX UP 1D837 SIGNWRITING HAND-FIST INDEX THUMB CUPPED MIDDLE UP 1D838 SIGNWRITING HAND-FIST MIDDLE THUMB CIRCLED INDEX UP 1D839 SIGNWRITING HAND-FIST MIDDLE THUMB CIRCLED INDEX HINGED 1D83A SIGNWRITING HAND-FIST INDEX THUMB ANGLED OUT MIDDLE UP 1D83B SIGNWRITING HAND-FIST INDEX THUMB ANGLED IN MIDDLE UP 1D83C SIGNWRITING HAND-FIST INDEX THUMB CIRCLED MIDDLE UP 1D83D SIGNWRITING HAND-FIST INDEX MIDDLE THUMB CONJOINED HINGED 1D83E SIGNWRITING HAND-FIST INDEX MIDDLE THUMB ANGLED OUT 1D83F SIGNWRITING HAND-FIST INDEX MIDDLE THUMB ANGLED 1D840 SIGNWRITING HAND-FIST MIDDLE THUMB ANGLED OUT INDEX UP 1D841 SIGNWRITING HAND-FIST MIDDLE THUMB ANGLED OUT INDEX CROSSED 1D842 SIGNWRITING HAND-FIST MIDDLE THUMB ANGLED INDEX UP 1D843 SIGNWRITING HAND-FIST INDEX THUMB HOOKED MIDDLE HINGED 1D844 SIGNWRITING HAND-FLAT FOUR FINGERS 1D845 SIGNWRITING HAND-FLAT FOUR FINGERS BENT 1D846 SIGNWRITING HAND-FLAT FOUR FINGERS HINGED 1D847 SIGNWRITING HAND-FLAT FOUR FINGERS CONJOINED 1D848 SIGNWRITING HAND-FLAT FOUR FINGERS CONJOINED SPLIT 1D849 SIGNWRITING HAND-CLAW FOUR FINGERS CONJOINED 1D84A SIGNWRITING HAND-FIST FOUR FINGERS CONJOINED BENT 1D84B SIGNWRITING HAND-HINGE FOUR FINGERS CONJOINED 1D84C SIGNWRITING HAND-FLAT FIVE FINGERS SPREAD 1D84D SIGNWRITING HAND-FLAT HEEL FIVE FINGERS SPREAD 1D84E SIGNWRITING HAND-FLAT FIVE FINGERS SPREAD FOUR BENT 1D84F SIGNWRITING HAND-FLAT HEEL FIVE FINGERS SPREAD FOUR BENT 1D850 SIGNWRITING HAND-FLAT FIVE FINGERS SPREAD BENT 1D851 SIGNWRITING HAND-FLAT HEEL FIVE FINGERS SPREAD BENT 1D852 SIGNWRITING HAND-FLAT FIVE FINGERS SPREAD THUMB FORWARD 1D853 SIGNWRITING HAND-CUP FIVE FINGERS SPREAD 1D854 SIGNWRITING HAND-CUP FIVE FINGERS SPREAD OPEN 1D855 SIGNWRITING HAND-HINGE FIVE FINGERS SPREAD OPEN 1D856 SIGNWRITING HAND-OVAL FIVE FINGERS SPREAD 1D857 SIGNWRITING HAND-FLAT FIVE FINGERS SPREAD HINGED 1D858 SIGNWRITING HAND-FLAT FIVE FINGERS SPREAD HINGED THUMB SIDE 1D859 SIGNWRITING HAND-FLAT FIVE FINGERS SPREAD HINGED NO THUMB 1D85A SIGNWRITING HAND-FLAT 1D85B SIGNWRITING HAND-FLAT BETWEEN PALM FACINGS 1D85C SIGNWRITING HAND-FLAT HEEL 1D85D SIGNWRITING HAND-FLAT THUMB SIDE 1D85E SIGNWRITING HAND-FLAT HEEL THUMB SIDE 1D85F SIGNWRITING HAND-FLAT THUMB BENT 1D860 SIGNWRITING HAND-FLAT THUMB FORWARD 1D861 SIGNWRITING HAND-FLAT SPLIT INDEX THUMB SIDE 1D862 SIGNWRITING HAND-FLAT SPLIT CENTRE 1D863 SIGNWRITING HAND-FLAT SPLIT CENTRE THUMB SIDE 1D864 SIGNWRITING HAND-FLAT SPLIT CENTRE THUMB SIDE BENT 1D865 SIGNWRITING HAND-FLAT SPLIT LITTLE 1D866 SIGNWRITING HAND-CLAW 1D867 SIGNWRITING HAND-CLAW THUMB SIDE 1D868 SIGNWRITING HAND-CLAW NO THUMB 1D869 SIGNWRITING HAND-CLAW THUMB FORWARD 1D86A SIGNWRITING HAND-HOOK CURLICUE 1D86B SIGNWRITING HAND-HOOK 1D86C SIGNWRITING HAND-CUP OPEN 1D86D SIGNWRITING HAND-CUP 1D86E SIGNWRITING HAND-CUP OPEN THUMB SIDE 1D86F SIGNWRITING HAND-CUP THUMB SIDE 1D870 SIGNWRITING HAND-CUP OPEN NO THUMB 1D871 SIGNWRITING HAND-CUP NO THUMB 1D872 SIGNWRITING HAND-CUP OPEN THUMB FORWARD 1D873 SIGNWRITING HAND-CUP THUMB FORWARD 1D874 SIGNWRITING HAND-CURLICUE OPEN 1D875 SIGNWRITING HAND-CURLICUE 1D876 SIGNWRITING HAND-CIRCLE 1D877 SIGNWRITING HAND-OVAL 1D878 SIGNWRITING HAND-OVAL THUMB SIDE 1D879 SIGNWRITING HAND-OVAL NO THUMB 1D87A SIGNWRITING HAND-OVAL THUMB FORWARD 1D87B SIGNWRITING HAND-HINGE OPEN 1D87C SIGNWRITING HAND-HINGE OPEN THUMB FORWARD 1D87D SIGNWRITING HAND-HINGE 1D87E SIGNWRITING HAND-HINGE SMALL 1D87F SIGNWRITING HAND-HINGE OPEN THUMB SIDE 1D880 SIGNWRITING HAND-HINGE THUMB SIDE 1D881 SIGNWRITING HAND-HINGE OPEN NO THUMB 1D882 SIGNWRITING HAND-HINGE NO THUMB 1D883 SIGNWRITING HAND-HINGE THUMB SIDE TOUCHING INDEX 1D884 SIGNWRITING HAND-HINGE THUMB BETWEEN MIDDLE RING 1D885 SIGNWRITING HAND-ANGLE 1D886 SIGNWRITING HAND-FIST INDEX MIDDLE RING 1D887 SIGNWRITING HAND-CIRCLE INDEX MIDDLE RING 1D888 SIGNWRITING HAND-HINGE INDEX MIDDLE RING 1D889 SIGNWRITING HAND-ANGLE INDEX MIDDLE RING 1D88A SIGNWRITING HAND-HINGE LITTLE 1D88B SIGNWRITING HAND-FIST INDEX MIDDLE RING BENT 1D88C SIGNWRITING HAND-FIST INDEX MIDDLE RING CONJOINED 1D88D SIGNWRITING HAND-HINGE INDEX MIDDLE RING CONJOINED 1D88E SIGNWRITING HAND-FIST LITTLE DOWN 1D88F SIGNWRITING HAND-FIST LITTLE DOWN RIPPLE STRAIGHT 1D890 SIGNWRITING HAND-FIST LITTLE DOWN RIPPLE CURVED 1D891 SIGNWRITING HAND-FIST LITTLE DOWN OTHERS CIRCLED 1D892 SIGNWRITING HAND-FIST LITTLE UP 1D893 SIGNWRITING HAND-FIST THUMB UNDER LITTLE UP 1D894 SIGNWRITING HAND-CIRCLE LITTLE UP 1D895 SIGNWRITING HAND-OVAL LITTLE UP 1D896 SIGNWRITING HAND-ANGLE LITTLE UP 1D897 SIGNWRITING HAND-FIST LITTLE RAISED KNUCKLE 1D898 SIGNWRITING HAND-FIST LITTLE BENT 1D899 SIGNWRITING HAND-FIST LITTLE TOUCHES THUMB 1D89A SIGNWRITING HAND-FIST LITTLE THUMB 1D89B SIGNWRITING HAND-HINGE LITTLE THUMB 1D89C SIGNWRITING HAND-FIST LITTLE INDEX THUMB 1D89D SIGNWRITING HAND-HINGE LITTLE INDEX THUMB 1D89E SIGNWRITING HAND-ANGLE LITTLE INDEX THUMB INDEX THUMB OUT 1D89F SIGNWRITING HAND-ANGLE LITTLE INDEX THUMB INDEX THUMB 1D8A0 SIGNWRITING HAND-FIST LITTLE INDEX 1D8A1 SIGNWRITING HAND-CIRCLE LITTLE INDEX 1D8A2 SIGNWRITING HAND-HINGE LITTLE INDEX 1D8A3 SIGNWRITING HAND-ANGLE LITTLE INDEX 1D8A4 SIGNWRITING HAND-FIST INDEX MIDDLE LITTLE 1D8A5 SIGNWRITING HAND-CIRCLE INDEX MIDDLE LITTLE 1D8A6 SIGNWRITING HAND-HINGE INDEX MIDDLE LITTLE 1D8A7 SIGNWRITING HAND-HINGE RING 1D8A8 SIGNWRITING HAND-ANGLE INDEX MIDDLE LITTLE 1D8A9 SIGNWRITING HAND-FIST INDEX MIDDLE CROSS LITTLE 1D8AA SIGNWRITING HAND-CIRCLE INDEX MIDDLE CROSS LITTLE 1D8AB SIGNWRITING HAND-FIST RING DOWN 1D8AC SIGNWRITING HAND-HINGE RING DOWN INDEX THUMB HOOK MIDDLE 1D8AD SIGNWRITING HAND-ANGLE RING DOWN MIDDLE THUMB INDEX CROSS 1D8AE SIGNWRITING HAND-FIST RING UP 1D8AF SIGNWRITING HAND-FIST RING RAISED KNUCKLE 1D8B0 SIGNWRITING HAND-FIST RING LITTLE 1D8B1 SIGNWRITING HAND-CIRCLE RING LITTLE 1D8B2 SIGNWRITING HAND-OVAL RING LITTLE 1D8B3 SIGNWRITING HAND-ANGLE RING LITTLE 1D8B4 SIGNWRITING HAND-FIST RING MIDDLE 1D8B5 SIGNWRITING HAND-FIST RING MIDDLE CONJOINED 1D8B6 SIGNWRITING HAND-FIST RING MIDDLE RAISED KNUCKLES 1D8B7 SIGNWRITING HAND-FIST RING INDEX 1D8B8 SIGNWRITING HAND-FIST RING THUMB 1D8B9 SIGNWRITING HAND-HOOK RING THUMB 1D8BA SIGNWRITING HAND-FIST INDEX RING LITTLE 1D8BB SIGNWRITING HAND-CIRCLE INDEX RING LITTLE 1D8BC SIGNWRITING HAND-CURLICUE INDEX RING LITTLE ON 1D8BD SIGNWRITING HAND-HOOK INDEX RING LITTLE OUT 1D8BE SIGNWRITING HAND-HOOK INDEX RING LITTLE IN 1D8BF SIGNWRITING HAND-HOOK INDEX RING LITTLE UNDER 1D8C0 SIGNWRITING HAND-CUP INDEX RING LITTLE 1D8C1 SIGNWRITING HAND-HINGE INDEX RING LITTLE 1D8C2 SIGNWRITING HAND-ANGLE INDEX RING LITTLE OUT 1D8C3 SIGNWRITING HAND-ANGLE INDEX RING LITTLE 1D8C4 SIGNWRITING HAND-FIST MIDDLE DOWN 1D8C5 SIGNWRITING HAND-HINGE MIDDLE 1D8C6 SIGNWRITING HAND-FIST MIDDLE UP 1D8C7 SIGNWRITING HAND-CIRCLE MIDDLE UP 1D8C8 SIGNWRITING HAND-FIST MIDDLE RAISED KNUCKLE 1D8C9 SIGNWRITING HAND-FIST MIDDLE UP THUMB SIDE 1D8CA SIGNWRITING HAND-HOOK MIDDLE THUMB 1D8CB SIGNWRITING HAND-FIST MIDDLE THUMB LITTLE 1D8CC SIGNWRITING HAND-FIST MIDDLE LITTLE 1D8CD SIGNWRITING HAND-FIST MIDDLE RING LITTLE 1D8CE SIGNWRITING HAND-CIRCLE MIDDLE RING LITTLE 1D8CF SIGNWRITING HAND-CURLICUE MIDDLE RING LITTLE ON 1D8D0 SIGNWRITING HAND-CUP MIDDLE RING LITTLE 1D8D1 SIGNWRITING HAND-HINGE MIDDLE RING LITTLE 1D8D2 SIGNWRITING HAND-ANGLE MIDDLE RING LITTLE OUT 1D8D3 SIGNWRITING HAND-ANGLE MIDDLE RING LITTLE IN 1D8D4 SIGNWRITING HAND-ANGLE MIDDLE RING LITTLE 1D8D5 SIGNWRITING HAND-CIRCLE MIDDLE RING LITTLE BENT 1D8D6 SIGNWRITING HAND-CLAW MIDDLE RING LITTLE CONJOINED 1D8D7 SIGNWRITING HAND-CLAW MIDDLE RING LITTLE CONJOINED SIDE 1D8D8 SIGNWRITING HAND-HOOK MIDDLE RING LITTLE CONJOINED OUT 1D8D9 SIGNWRITING HAND-HOOK MIDDLE RING LITTLE CONJOINED IN 1D8DA SIGNWRITING HAND-HOOK MIDDLE RING LITTLE CONJOINED 1D8DB SIGNWRITING HAND-HINGE INDEX HINGED 1D8DC SIGNWRITING HAND-FIST INDEX THUMB SIDE 1D8DD SIGNWRITING HAND-HINGE INDEX THUMB SIDE 1D8DE SIGNWRITING HAND-FIST INDEX THUMB SIDE THUMB DIAGONAL 1D8DF SIGNWRITING HAND-FIST INDEX THUMB SIDE THUMB CONJOINED 1D8E0 SIGNWRITING HAND-FIST INDEX THUMB SIDE THUMB BENT 1D8E1 SIGNWRITING HAND-FIST INDEX THUMB SIDE INDEX BENT 1D8E2 SIGNWRITING HAND-FIST INDEX THUMB SIDE BOTH BENT 1D8E3 SIGNWRITING HAND-FIST INDEX THUMB SIDE INDEX HINGE 1D8E4 SIGNWRITING HAND-FIST INDEX THUMB FORWARD INDEX STRAIGHT 1D8E5 SIGNWRITING HAND-FIST INDEX THUMB FORWARD INDEX BENT 1D8E6 SIGNWRITING HAND-FIST INDEX THUMB HOOK 1D8E7 SIGNWRITING HAND-FIST INDEX THUMB CURLICUE 1D8E8 SIGNWRITING HAND-FIST INDEX THUMB CURVE THUMB INSIDE 1D8E9 SIGNWRITING HAND-CLAW INDEX THUMB CURVE THUMB INSIDE 1D8EA SIGNWRITING HAND-FIST INDEX THUMB CURVE THUMB UNDER 1D8EB SIGNWRITING HAND-FIST INDEX THUMB CIRCLE 1D8EC SIGNWRITING HAND-CUP INDEX THUMB 1D8ED SIGNWRITING HAND-CUP INDEX THUMB OPEN 1D8EE SIGNWRITING HAND-HINGE INDEX THUMB OPEN 1D8EF SIGNWRITING HAND-HINGE INDEX THUMB LARGE 1D8F0 SIGNWRITING HAND-HINGE INDEX THUMB 1D8F1 SIGNWRITING HAND-HINGE INDEX THUMB SMALL 1D8F2 SIGNWRITING HAND-ANGLE INDEX THUMB OUT 1D8F3 SIGNWRITING HAND-ANGLE INDEX THUMB IN 1D8F4 SIGNWRITING HAND-ANGLE INDEX THUMB 1D8F5 SIGNWRITING HAND-FIST THUMB 1D8F6 SIGNWRITING HAND-FIST THUMB HEEL 1D8F7 SIGNWRITING HAND-FIST THUMB SIDE DIAGONAL 1D8F8 SIGNWRITING HAND-FIST THUMB SIDE CONJOINED 1D8F9 SIGNWRITING HAND-FIST THUMB SIDE BENT 1D8FA SIGNWRITING HAND-FIST THUMB FORWARD 1D8FB SIGNWRITING HAND-FIST THUMB BETWEEN INDEX MIDDLE 1D8FC SIGNWRITING HAND-FIST THUMB BETWEEN MIDDLE RING 1D8FD SIGNWRITING HAND-FIST THUMB BETWEEN RING LITTLE 1D8FE SIGNWRITING HAND-FIST THUMB UNDER TWO FINGERS 1D8FF SIGNWRITING HAND-FIST THUMB OVER TWO FINGERS 1D900 SIGNWRITING HAND-FIST THUMB UNDER THREE FINGERS 1D901 SIGNWRITING HAND-FIST THUMB UNDER FOUR FINGERS 1D902 SIGNWRITING HAND-FIST THUMB OVER FOUR RAISED KNUCKLES 1D903 SIGNWRITING HAND-FIST 1D904 SIGNWRITING HAND-FIST HEEL 1D905 SIGNWRITING TOUCH SINGLE 1D906 SIGNWRITING TOUCH MULTIPLE 1D907 SIGNWRITING TOUCH BETWEEN 1D908 SIGNWRITING GRASP SINGLE 1D909 SIGNWRITING GRASP MULTIPLE 1D90A SIGNWRITING GRASP BETWEEN 1D90B SIGNWRITING STRIKE SINGLE 1D90C SIGNWRITING STRIKE MULTIPLE 1D90D SIGNWRITING STRIKE BETWEEN 1D90E SIGNWRITING BRUSH SINGLE 1D90F SIGNWRITING BRUSH MULTIPLE 1D910 SIGNWRITING BRUSH BETWEEN 1D911 SIGNWRITING RUB SINGLE 1D912 SIGNWRITING RUB MULTIPLE 1D913 SIGNWRITING RUB BETWEEN 1D914 SIGNWRITING SURFACE SYMBOLS 1D915 SIGNWRITING SURFACE BETWEEN 1D916 SIGNWRITING SQUEEZE LARGE SINGLE 1D917 SIGNWRITING SQUEEZE SMALL SINGLE 1D918 SIGNWRITING SQUEEZE LARGE MULTIPLE 1D919 SIGNWRITING SQUEEZE SMALL MULTIPLE 1D91A SIGNWRITING SQUEEZE SEQUENTIAL 1D91B SIGNWRITING FLICK LARGE SINGLE 1D91C SIGNWRITING FLICK SMALL SINGLE 1D91D SIGNWRITING FLICK LARGE MULTIPLE 1D91E SIGNWRITING FLICK SMALL MULTIPLE 1D91F SIGNWRITING FLICK SEQUENTIAL 1D920 SIGNWRITING SQUEEZE FLICK ALTERNATING 1D921 SIGNWRITING MOVEMENT-HINGE UP DOWN LARGE 1D922 SIGNWRITING MOVEMENT-HINGE UP DOWN SMALL 1D923 SIGNWRITING MOVEMENT-HINGE UP SEQUENTIAL 1D924 SIGNWRITING MOVEMENT-HINGE DOWN SEQUENTIAL 1D925 SIGNWRITING MOVEMENT-HINGE UP DOWN ALTERNATING LARGE 1D926 SIGNWRITING MOVEMENT-HINGE UP DOWN ALTERNATING SMALL 1D927 SIGNWRITING MOVEMENT-HINGE SIDE TO SIDE SCISSORS 1D928 SIGNWRITING MOVEMENT-WALLPLANE FINGER CONTACT 1D929 SIGNWRITING MOVEMENT-FLOORPLANE FINGER CONTACT 1D92A SIGNWRITING MOVEMENT-WALLPLANE SINGLE STRAIGHT SMALL 1D92B SIGNWRITING MOVEMENT-WALLPLANE SINGLE STRAIGHT MEDIUM 1D92C SIGNWRITING MOVEMENT-WALLPLANE SINGLE STRAIGHT LARGE 1D92D SIGNWRITING MOVEMENT-WALLPLANE SINGLE STRAIGHT LARGEST 1D92E SIGNWRITING MOVEMENT-WALLPLANE SINGLE WRIST FLEX 1D92F SIGNWRITING MOVEMENT-WALLPLANE DOUBLE STRAIGHT 1D930 SIGNWRITING MOVEMENT-WALLPLANE DOUBLE WRIST FLEX 1D931 SIGNWRITING MOVEMENT-WALLPLANE DOUBLE ALTERNATING 1D932 SIGNWRITING MOVEMENT-WALLPLANE DOUBLE ALTERNATING WRIST FLEX 1D933 SIGNWRITING MOVEMENT-WALLPLANE CROSS 1D934 SIGNWRITING MOVEMENT-WALLPLANE TRIPLE STRAIGHT MOVEMENT 1D935 SIGNWRITING MOVEMENT-WALLPLANE TRIPLE WRIST FLEX 1D936 SIGNWRITING MOVEMENT-WALLPLANE TRIPLE ALTERNATING 1D937 SIGNWRITING MOVEMENT-WALLPLANE TRIPLE ALTERNATING WRIST FLEX 1D938 SIGNWRITING MOVEMENT-WALLPLANE BEND SMALL 1D939 SIGNWRITING MOVEMENT-WALLPLANE BEND MEDIUM 1D93A SIGNWRITING MOVEMENT-WALLPLANE BEND LARGE 1D93B SIGNWRITING MOVEMENT-WALLPLANE CORNER SMALL 1D93C SIGNWRITING MOVEMENT-WALLPLANE CORNER MEDIUM 1D93D SIGNWRITING MOVEMENT-WALLPLANE CORNER LARGE 1D93E SIGNWRITING MOVEMENT-WALLPLANE CORNER ROTATION 1D93F SIGNWRITING MOVEMENT-WALLPLANE CHECK SMALL 1D940 SIGNWRITING MOVEMENT-WALLPLANE CHECK MEDIUM 1D941 SIGNWRITING MOVEMENT-WALLPLANE CHECK LARGE 1D942 SIGNWRITING MOVEMENT-WALLPLANE BOX SMALL 1D943 SIGNWRITING MOVEMENT-WALLPLANE BOX MEDIUM 1D944 SIGNWRITING MOVEMENT-WALLPLANE BOX LARGE 1D945 SIGNWRITING MOVEMENT-WALLPLANE ZIGZAG SMALL 1D946 SIGNWRITING MOVEMENT-WALLPLANE ZIGZAG MEDIUM 1D947 SIGNWRITING MOVEMENT-WALLPLANE ZIGZAG LARGE 1D948 SIGNWRITING MOVEMENT-WALLPLANE PEAKS SMALL 1D949 SIGNWRITING MOVEMENT-WALLPLANE PEAKS MEDIUM 1D94A SIGNWRITING MOVEMENT-WALLPLANE PEAKS LARGE 1D94B SIGNWRITING TRAVEL-WALLPLANE ROTATION-WALLPLANE SINGLE 1D94C SIGNWRITING TRAVEL-WALLPLANE ROTATION-WALLPLANE DOUBLE 1D94D SIGNWRITING TRAVEL-WALLPLANE ROTATION-WALLPLANE ALTERNATING 1D94E SIGNWRITING TRAVEL-WALLPLANE ROTATION-FLOORPLANE SINGLE 1D94F SIGNWRITING TRAVEL-WALLPLANE ROTATION-FLOORPLANE DOUBLE 1D950 SIGNWRITING TRAVEL-WALLPLANE ROTATION-FLOORPLANE ALTERNATING 1D951 SIGNWRITING TRAVEL-WALLPLANE SHAKING 1D952 SIGNWRITING TRAVEL-WALLPLANE ARM SPIRAL SINGLE 1D953 SIGNWRITING TRAVEL-WALLPLANE ARM SPIRAL DOUBLE 1D954 SIGNWRITING TRAVEL-WALLPLANE ARM SPIRAL TRIPLE 1D955 SIGNWRITING MOVEMENT-DIAGONAL AWAY SMALL 1D956 SIGNWRITING MOVEMENT-DIAGONAL AWAY MEDIUM 1D957 SIGNWRITING MOVEMENT-DIAGONAL AWAY LARGE 1D958 SIGNWRITING MOVEMENT-DIAGONAL AWAY LARGEST 1D959 SIGNWRITING MOVEMENT-DIAGONAL TOWARDS SMALL 1D95A SIGNWRITING MOVEMENT-DIAGONAL TOWARDS MEDIUM 1D95B SIGNWRITING MOVEMENT-DIAGONAL TOWARDS LARGE 1D95C SIGNWRITING MOVEMENT-DIAGONAL TOWARDS LARGEST 1D95D SIGNWRITING MOVEMENT-DIAGONAL BETWEEN AWAY SMALL 1D95E SIGNWRITING MOVEMENT-DIAGONAL BETWEEN AWAY MEDIUM 1D95F SIGNWRITING MOVEMENT-DIAGONAL BETWEEN AWAY LARGE 1D960 SIGNWRITING MOVEMENT-DIAGONAL BETWEEN AWAY LARGEST 1D961 SIGNWRITING MOVEMENT-DIAGONAL BETWEEN TOWARDS SMALL 1D962 SIGNWRITING MOVEMENT-DIAGONAL BETWEEN TOWARDS MEDIUM 1D963 SIGNWRITING MOVEMENT-DIAGONAL BETWEEN TOWARDS LARGE 1D964 SIGNWRITING MOVEMENT-DIAGONAL BETWEEN TOWARDS LARGEST 1D965 SIGNWRITING MOVEMENT-FLOORPLANE SINGLE STRAIGHT SMALL 1D966 SIGNWRITING MOVEMENT-FLOORPLANE SINGLE STRAIGHT MEDIUM 1D967 SIGNWRITING MOVEMENT-FLOORPLANE SINGLE STRAIGHT LARGE 1D968 SIGNWRITING MOVEMENT-FLOORPLANE SINGLE STRAIGHT LARGEST 1D969 SIGNWRITING MOVEMENT-FLOORPLANE SINGLE WRIST FLEX 1D96A SIGNWRITING MOVEMENT-FLOORPLANE DOUBLE STRAIGHT 1D96B SIGNWRITING MOVEMENT-FLOORPLANE DOUBLE WRIST FLEX 1D96C SIGNWRITING MOVEMENT-FLOORPLANE DOUBLE ALTERNATING 1D96D SIGNWRITING MOVEMENT-FLOORPLANE DOUBLE ALTERNATING WRIST FLEX 1D96E SIGNWRITING MOVEMENT-FLOORPLANE CROSS 1D96F SIGNWRITING MOVEMENT-FLOORPLANE TRIPLE STRAIGHT MOVEMENT 1D970 SIGNWRITING MOVEMENT-FLOORPLANE TRIPLE WRIST FLEX 1D971 SIGNWRITING MOVEMENT-FLOORPLANE TRIPLE ALTERNATING MOVEMENT 1D972 SIGNWRITING MOVEMENT-FLOORPLANE TRIPLE ALTERNATING WRIST FLEX 1D973 SIGNWRITING MOVEMENT-FLOORPLANE BEND 1D974 SIGNWRITING MOVEMENT-FLOORPLANE CORNER SMALL 1D975 SIGNWRITING MOVEMENT-FLOORPLANE CORNER MEDIUM 1D976 SIGNWRITING MOVEMENT-FLOORPLANE CORNER LARGE 1D977 SIGNWRITING MOVEMENT-FLOORPLANE CHECK 1D978 SIGNWRITING MOVEMENT-FLOORPLANE BOX SMALL 1D979 SIGNWRITING MOVEMENT-FLOORPLANE BOX MEDIUM 1D97A SIGNWRITING MOVEMENT-FLOORPLANE BOX LARGE 1D97B SIGNWRITING MOVEMENT-FLOORPLANE ZIGZAG SMALL 1D97C SIGNWRITING MOVEMENT-FLOORPLANE ZIGZAG MEDIUM 1D97D SIGNWRITING MOVEMENT-FLOORPLANE ZIGZAG LARGE 1D97E SIGNWRITING MOVEMENT-FLOORPLANE PEAKS SMALL 1D97F SIGNWRITING MOVEMENT-FLOORPLANE PEAKS MEDIUM 1D980 SIGNWRITING MOVEMENT-FLOORPLANE PEAKS LARGE 1D981 SIGNWRITING TRAVEL-FLOORPLANE ROTATION-FLOORPLANE SINGLE 1D982 SIGNWRITING TRAVEL-FLOORPLANE ROTATION-FLOORPLANE DOUBLE 1D983 SIGNWRITING TRAVEL-FLOORPLANE ROTATION-FLOORPLANE ALTERNATING 1D984 SIGNWRITING TRAVEL-FLOORPLANE ROTATION-WALLPLANE SINGLE 1D985 SIGNWRITING TRAVEL-FLOORPLANE ROTATION-WALLPLANE DOUBLE 1D986 SIGNWRITING TRAVEL-FLOORPLANE ROTATION-WALLPLANE ALTERNATING 1D987 SIGNWRITING TRAVEL-FLOORPLANE SHAKING 1D988 SIGNWRITING MOVEMENT-WALLPLANE CURVE QUARTER SMALL 1D989 SIGNWRITING MOVEMENT-WALLPLANE CURVE QUARTER MEDIUM 1D98A SIGNWRITING MOVEMENT-WALLPLANE CURVE QUARTER LARGE 1D98B SIGNWRITING MOVEMENT-WALLPLANE CURVE QUARTER LARGEST 1D98C SIGNWRITING MOVEMENT-WALLPLANE CURVE HALF-CIRCLE SMALL 1D98D SIGNWRITING MOVEMENT-WALLPLANE CURVE HALF-CIRCLE MEDIUM 1D98E SIGNWRITING MOVEMENT-WALLPLANE CURVE HALF-CIRCLE LARGE 1D98F SIGNWRITING MOVEMENT-WALLPLANE CURVE HALF-CIRCLE LARGEST 1D990 SIGNWRITING MOVEMENT-WALLPLANE CURVE THREE-QUARTER CIRCLE SMALL 1D991 SIGNWRITING MOVEMENT-WALLPLANE CURVE THREE-QUARTER CIRCLE MEDIUM 1D992 SIGNWRITING MOVEMENT-WALLPLANE HUMP SMALL 1D993 SIGNWRITING MOVEMENT-WALLPLANE HUMP MEDIUM 1D994 SIGNWRITING MOVEMENT-WALLPLANE HUMP LARGE 1D995 SIGNWRITING MOVEMENT-WALLPLANE LOOP SMALL 1D996 SIGNWRITING MOVEMENT-WALLPLANE LOOP MEDIUM 1D997 SIGNWRITING MOVEMENT-WALLPLANE LOOP LARGE 1D998 SIGNWRITING MOVEMENT-WALLPLANE LOOP SMALL DOUBLE 1D999 SIGNWRITING MOVEMENT-WALLPLANE WAVE CURVE DOUBLE SMALL 1D99A SIGNWRITING MOVEMENT-WALLPLANE WAVE CURVE DOUBLE MEDIUM 1D99B SIGNWRITING MOVEMENT-WALLPLANE WAVE CURVE DOUBLE LARGE 1D99C SIGNWRITING MOVEMENT-WALLPLANE WAVE CURVE TRIPLE SMALL 1D99D SIGNWRITING MOVEMENT-WALLPLANE WAVE CURVE TRIPLE MEDIUM 1D99E SIGNWRITING MOVEMENT-WALLPLANE WAVE CURVE TRIPLE LARGE 1D99F SIGNWRITING MOVEMENT-WALLPLANE CURVE THEN STRAIGHT 1D9A0 SIGNWRITING MOVEMENT-WALLPLANE CURVED CROSS SMALL 1D9A1 SIGNWRITING MOVEMENT-WALLPLANE CURVED CROSS MEDIUM 1D9A2 SIGNWRITING ROTATION-WALLPLANE SINGLE 1D9A3 SIGNWRITING ROTATION-WALLPLANE DOUBLE 1D9A4 SIGNWRITING ROTATION-WALLPLANE ALTERNATE 1D9A5 SIGNWRITING MOVEMENT-WALLPLANE SHAKING 1D9A6 SIGNWRITING MOVEMENT-WALLPLANE CURVE HITTING FRONT WALL 1D9A7 SIGNWRITING MOVEMENT-WALLPLANE HUMP HITTING FRONT WALL 1D9A8 SIGNWRITING MOVEMENT-WALLPLANE LOOP HITTING FRONT WALL 1D9A9 SIGNWRITING MOVEMENT-WALLPLANE WAVE HITTING FRONT WALL 1D9AA SIGNWRITING ROTATION-WALLPLANE SINGLE HITTING FRONT WALL 1D9AB SIGNWRITING ROTATION-WALLPLANE DOUBLE HITTING FRONT WALL 1D9AC SIGNWRITING ROTATION-WALLPLANE ALTERNATING HITTING FRONT WALL 1D9AD SIGNWRITING MOVEMENT-WALLPLANE CURVE HITTING CHEST 1D9AE SIGNWRITING MOVEMENT-WALLPLANE HUMP HITTING CHEST 1D9AF SIGNWRITING MOVEMENT-WALLPLANE LOOP HITTING CHEST 1D9B0 SIGNWRITING MOVEMENT-WALLPLANE WAVE HITTING CHEST 1D9B1 SIGNWRITING ROTATION-WALLPLANE SINGLE HITTING CHEST 1D9B2 SIGNWRITING ROTATION-WALLPLANE DOUBLE HITTING CHEST 1D9B3 SIGNWRITING ROTATION-WALLPLANE ALTERNATING HITTING CHEST 1D9B4 SIGNWRITING MOVEMENT-WALLPLANE WAVE DIAGONAL PATH SMALL 1D9B5 SIGNWRITING MOVEMENT-WALLPLANE WAVE DIAGONAL PATH MEDIUM 1D9B6 SIGNWRITING MOVEMENT-WALLPLANE WAVE DIAGONAL PATH LARGE 1D9B7 SIGNWRITING MOVEMENT-FLOORPLANE CURVE HITTING CEILING SMALL 1D9B8 SIGNWRITING MOVEMENT-FLOORPLANE CURVE HITTING CEILING LARGE 1D9B9 SIGNWRITING MOVEMENT-FLOORPLANE HUMP HITTING CEILING SMALL DOUBLE 1D9BA SIGNWRITING MOVEMENT-FLOORPLANE HUMP HITTING CEILING LARGE DOUBLE 1D9BB SIGNWRITING MOVEMENT-FLOORPLANE HUMP HITTING CEILING SMALL TRIPLE 1D9BC SIGNWRITING MOVEMENT-FLOORPLANE HUMP HITTING CEILING LARGE TRIPLE 1D9BD SIGNWRITING MOVEMENT-FLOORPLANE LOOP HITTING CEILING SMALL SINGLE 1D9BE SIGNWRITING MOVEMENT-FLOORPLANE LOOP HITTING CEILING LARGE SINGLE 1D9BF SIGNWRITING MOVEMENT-FLOORPLANE LOOP HITTING CEILING SMALL DOUBLE 1D9C0 SIGNWRITING MOVEMENT-FLOORPLANE LOOP HITTING CEILING LARGE DOUBLE 1D9C1 SIGNWRITING MOVEMENT-FLOORPLANE WAVE HITTING CEILING SMALL 1D9C2 SIGNWRITING MOVEMENT-FLOORPLANE WAVE HITTING CEILING LARGE 1D9C3 SIGNWRITING ROTATION-FLOORPLANE SINGLE HITTING CEILING 1D9C4 SIGNWRITING ROTATION-FLOORPLANE DOUBLE HITTING CEILING 1D9C5 SIGNWRITING ROTATION-FLOORPLANE ALTERNATING HITTING CEILING 1D9C6 SIGNWRITING MOVEMENT-FLOORPLANE CURVE HITTING FLOOR SMALL 1D9C7 SIGNWRITING MOVEMENT-FLOORPLANE CURVE HITTING FLOOR LARGE 1D9C8 SIGNWRITING MOVEMENT-FLOORPLANE HUMP HITTING FLOOR SMALL DOUBLE 1D9C9 SIGNWRITING MOVEMENT-FLOORPLANE HUMP HITTING FLOOR LARGE DOUBLE 1D9CA SIGNWRITING MOVEMENT-FLOORPLANE HUMP HITTING FLOOR TRIPLE SMALL TRIPLE 1D9CB SIGNWRITING MOVEMENT-FLOORPLANE HUMP HITTING FLOOR TRIPLE LARGE TRIPLE 1D9CC SIGNWRITING MOVEMENT-FLOORPLANE LOOP HITTING FLOOR SMALL SINGLE 1D9CD SIGNWRITING MOVEMENT-FLOORPLANE LOOP HITTING FLOOR LARGE SINGLE 1D9CE SIGNWRITING MOVEMENT-FLOORPLANE LOOP HITTING FLOOR SMALL DOUBLE 1D9CF SIGNWRITING MOVEMENT-FLOORPLANE LOOP HITTING FLOOR LARGE DOUBLE 1D9D0 SIGNWRITING MOVEMENT-FLOORPLANE WAVE HITTING FLOOR SMALL 1D9D1 SIGNWRITING MOVEMENT-FLOORPLANE WAVE HITTING FLOOR LARGE 1D9D2 SIGNWRITING ROTATION-FLOORPLANE SINGLE HITTING FLOOR 1D9D3 SIGNWRITING ROTATION-FLOORPLANE DOUBLE HITTING FLOOR 1D9D4 SIGNWRITING ROTATION-FLOORPLANE ALTERNATING HITTING FLOOR 1D9D5 SIGNWRITING MOVEMENT-FLOORPLANE CURVE SMALL 1D9D6 SIGNWRITING MOVEMENT-FLOORPLANE CURVE MEDIUM 1D9D7 SIGNWRITING MOVEMENT-FLOORPLANE CURVE LARGE 1D9D8 SIGNWRITING MOVEMENT-FLOORPLANE CURVE LARGEST 1D9D9 SIGNWRITING MOVEMENT-FLOORPLANE CURVE COMBINED 1D9DA SIGNWRITING MOVEMENT-FLOORPLANE HUMP SMALL 1D9DB SIGNWRITING MOVEMENT-FLOORPLANE LOOP SMALL 1D9DC SIGNWRITING MOVEMENT-FLOORPLANE WAVE SNAKE 1D9DD SIGNWRITING MOVEMENT-FLOORPLANE WAVE SMALL 1D9DE SIGNWRITING MOVEMENT-FLOORPLANE WAVE LARGE 1D9DF SIGNWRITING ROTATION-FLOORPLANE SINGLE 1D9E0 SIGNWRITING ROTATION-FLOORPLANE DOUBLE 1D9E1 SIGNWRITING ROTATION-FLOORPLANE ALTERNATING 1D9E2 SIGNWRITING MOVEMENT-FLOORPLANE SHAKING PARALLEL 1D9E3 SIGNWRITING MOVEMENT-WALLPLANE ARM CIRCLE SMALL SINGLE 1D9E4 SIGNWRITING MOVEMENT-WALLPLANE ARM CIRCLE MEDIUM SINGLE 1D9E5 SIGNWRITING MOVEMENT-WALLPLANE ARM CIRCLE SMALL DOUBLE 1D9E6 SIGNWRITING MOVEMENT-WALLPLANE ARM CIRCLE MEDIUM DOUBLE 1D9E7 SIGNWRITING MOVEMENT-FLOORPLANE ARM CIRCLE HITTING WALL SMALL SINGLE 1D9E8 SIGNWRITING MOVEMENT-FLOORPLANE ARM CIRCLE HITTING WALL MEDIUM SINGLE 1D9E9 SIGNWRITING MOVEMENT-FLOORPLANE ARM CIRCLE HITTING WALL LARGE SINGLE 1D9EA SIGNWRITING MOVEMENT-FLOORPLANE ARM CIRCLE HITTING WALL SMALL DOUBLE 1D9EB SIGNWRITING MOVEMENT-FLOORPLANE ARM CIRCLE HITTING WALL MEDIUM DOUBLE 1D9EC SIGNWRITING MOVEMENT-FLOORPLANE ARM CIRCLE HITTING WALL LARGE DOUBLE 1D9ED SIGNWRITING MOVEMENT-WALLPLANE WRIST CIRCLE FRONT SINGLE 1D9EE SIGNWRITING MOVEMENT-WALLPLANE WRIST CIRCLE FRONT DOUBLE 1D9EF SIGNWRITING MOVEMENT-FLOORPLANE WRIST CIRCLE HITTING WALL SINGLE 1D9F0 SIGNWRITING MOVEMENT-FLOORPLANE WRIST CIRCLE HITTING WALL DOUBLE 1D9F1 SIGNWRITING MOVEMENT-WALLPLANE FINGER CIRCLES SINGLE 1D9F2 SIGNWRITING MOVEMENT-WALLPLANE FINGER CIRCLES DOUBLE 1D9F3 SIGNWRITING MOVEMENT-FLOORPLANE FINGER CIRCLES HITTING WALL SINGLE 1D9F4 SIGNWRITING MOVEMENT-FLOORPLANE FINGER CIRCLES HITTING WALL DOUBLE 1D9F5 SIGNWRITING DYNAMIC ARROWHEAD SMALL 1D9F6 SIGNWRITING DYNAMIC ARROWHEAD LARGE 1D9F7 SIGNWRITING DYNAMIC FAST 1D9F8 SIGNWRITING DYNAMIC SLOW 1D9F9 SIGNWRITING DYNAMIC TENSE 1D9FA SIGNWRITING DYNAMIC RELAXED 1D9FB SIGNWRITING DYNAMIC SIMULTANEOUS 1D9FC SIGNWRITING DYNAMIC SIMULTANEOUS ALTERNATING 1D9FD SIGNWRITING DYNAMIC EVERY OTHER TIME 1D9FE SIGNWRITING DYNAMIC GRADUAL 1D9FF SIGNWRITING HEAD 1DA00 SIGNWRITING HEAD RIM 1DA01 SIGNWRITING HEAD MOVEMENT-WALLPLANE STRAIGHT 1DA02 SIGNWRITING HEAD MOVEMENT-WALLPLANE TILT 1DA03 SIGNWRITING HEAD MOVEMENT-FLOORPLANE STRAIGHT 1DA04 SIGNWRITING HEAD MOVEMENT-WALLPLANE CURVE 1DA05 SIGNWRITING HEAD MOVEMENT-FLOORPLANE CURVE 1DA06 SIGNWRITING HEAD MOVEMENT CIRCLE 1DA07 SIGNWRITING FACE DIRECTION POSITION NOSE FORWARD TILTING 1DA08 SIGNWRITING FACE DIRECTION POSITION NOSE UP OR DOWN 1DA09 SIGNWRITING FACE DIRECTION POSITION NOSE UP OR DOWN TILTING 1DA0A SIGNWRITING EYEBROWS STRAIGHT UP 1DA0B SIGNWRITING EYEBROWS STRAIGHT NEUTRAL 1DA0C SIGNWRITING EYEBROWS STRAIGHT DOWN 1DA0D SIGNWRITING DREAMY EYEBROWS NEUTRAL DOWN 1DA0E SIGNWRITING DREAMY EYEBROWS DOWN NEUTRAL 1DA0F SIGNWRITING DREAMY EYEBROWS UP NEUTRAL 1DA10 SIGNWRITING DREAMY EYEBROWS NEUTRAL UP 1DA11 SIGNWRITING FOREHEAD NEUTRAL 1DA12 SIGNWRITING FOREHEAD CONTACT 1DA13 SIGNWRITING FOREHEAD WRINKLED 1DA14 SIGNWRITING EYES OPEN 1DA15 SIGNWRITING EYES SQUEEZED 1DA16 SIGNWRITING EYES CLOSED 1DA17 SIGNWRITING EYE BLINK SINGLE 1DA18 SIGNWRITING EYE BLINK MULTIPLE 1DA19 SIGNWRITING EYES HALF OPEN 1DA1A SIGNWRITING EYES WIDE OPEN 1DA1B SIGNWRITING EYES HALF CLOSED 1DA1C SIGNWRITING EYES WIDENING MOVEMENT 1DA1D SIGNWRITING EYE WINK 1DA1E SIGNWRITING EYELASHES UP 1DA1F SIGNWRITING EYELASHES DOWN 1DA20 SIGNWRITING EYELASHES FLUTTERING 1DA21 SIGNWRITING EYEGAZE-WALLPLANE STRAIGHT 1DA22 SIGNWRITING EYEGAZE-WALLPLANE STRAIGHT DOUBLE 1DA23 SIGNWRITING EYEGAZE-WALLPLANE STRAIGHT ALTERNATING 1DA24 SIGNWRITING EYEGAZE-FLOORPLANE STRAIGHT 1DA25 SIGNWRITING EYEGAZE-FLOORPLANE STRAIGHT DOUBLE 1DA26 SIGNWRITING EYEGAZE-FLOORPLANE STRAIGHT ALTERNATING 1DA27 SIGNWRITING EYEGAZE-WALLPLANE CURVED 1DA28 SIGNWRITING EYEGAZE-FLOORPLANE CURVED 1DA29 SIGNWRITING EYEGAZE-WALLPLANE CIRCLING 1DA2A SIGNWRITING CHEEKS PUFFED 1DA2B SIGNWRITING CHEEKS NEUTRAL 1DA2C SIGNWRITING CHEEKS SUCKED 1DA2D SIGNWRITING TENSE CHEEKS HIGH 1DA2E SIGNWRITING TENSE CHEEKS MIDDLE 1DA2F SIGNWRITING TENSE CHEEKS LOW 1DA30 SIGNWRITING EARS 1DA31 SIGNWRITING NOSE NEUTRAL 1DA32 SIGNWRITING NOSE CONTACT 1DA33 SIGNWRITING NOSE WRINKLES 1DA34 SIGNWRITING NOSE WIGGLES 1DA35 SIGNWRITING AIR BLOWING OUT 1DA36 SIGNWRITING AIR SUCKING IN 1DA37 SIGNWRITING AIR BLOW SMALL ROTATIONS 1DA38 SIGNWRITING AIR SUCK SMALL ROTATIONS 1DA39 SIGNWRITING BREATH INHALE 1DA3A SIGNWRITING BREATH EXHALE 1DA3B SIGNWRITING MOUTH CLOSED NEUTRAL 1DA3C SIGNWRITING MOUTH CLOSED FORWARD 1DA3D SIGNWRITING MOUTH CLOSED CONTACT 1DA3E SIGNWRITING MOUTH SMILE 1DA3F SIGNWRITING MOUTH SMILE WRINKLED 1DA40 SIGNWRITING MOUTH SMILE OPEN 1DA41 SIGNWRITING MOUTH FROWN 1DA42 SIGNWRITING MOUTH FROWN WRINKLED 1DA43 SIGNWRITING MOUTH FROWN OPEN 1DA44 SIGNWRITING MOUTH OPEN CIRCLE 1DA45 SIGNWRITING MOUTH OPEN FORWARD 1DA46 SIGNWRITING MOUTH OPEN WRINKLED 1DA47 SIGNWRITING MOUTH OPEN OVAL 1DA48 SIGNWRITING MOUTH OPEN OVAL WRINKLED 1DA49 SIGNWRITING MOUTH OPEN OVAL YAWN 1DA4A SIGNWRITING MOUTH OPEN RECTANGLE 1DA4B SIGNWRITING MOUTH OPEN RECTANGLE WRINKLED 1DA4C SIGNWRITING MOUTH OPEN RECTANGLE YAWN 1DA4D SIGNWRITING MOUTH KISS 1DA4E SIGNWRITING MOUTH KISS FORWARD 1DA4F SIGNWRITING MOUTH KISS WRINKLED 1DA50 SIGNWRITING MOUTH TENSE 1DA51 SIGNWRITING MOUTH TENSE FORWARD 1DA52 SIGNWRITING MOUTH TENSE SUCKED 1DA53 SIGNWRITING LIPS PRESSED TOGETHER 1DA54 SIGNWRITING LIP LOWER OVER UPPER 1DA55 SIGNWRITING LIP UPPER OVER LOWER 1DA56 SIGNWRITING MOUTH CORNERS 1DA57 SIGNWRITING MOUTH WRINKLES SINGLE 1DA58 SIGNWRITING MOUTH WRINKLES DOUBLE 1DA59 SIGNWRITING TONGUE STICKING OUT FAR 1DA5A SIGNWRITING TONGUE LICKING LIPS 1DA5B SIGNWRITING TONGUE TIP BETWEEN LIPS 1DA5C SIGNWRITING TONGUE TIP TOUCHING INSIDE MOUTH 1DA5D SIGNWRITING TONGUE INSIDE MOUTH RELAXED 1DA5E SIGNWRITING TONGUE MOVES AGAINST CHEEK 1DA5F SIGNWRITING TONGUE CENTRE STICKING OUT 1DA60 SIGNWRITING TONGUE CENTRE INSIDE MOUTH 1DA61 SIGNWRITING TEETH 1DA62 SIGNWRITING TEETH MOVEMENT 1DA63 SIGNWRITING TEETH ON TONGUE 1DA64 SIGNWRITING TEETH ON TONGUE MOVEMENT 1DA65 SIGNWRITING TEETH ON LIPS 1DA66 SIGNWRITING TEETH ON LIPS MOVEMENT 1DA67 SIGNWRITING TEETH BITE LIPS 1DA68 SIGNWRITING MOVEMENT-WALLPLANE JAW 1DA69 SIGNWRITING MOVEMENT-FLOORPLANE JAW 1DA6A SIGNWRITING NECK 1DA6B SIGNWRITING HAIR 1DA6C SIGNWRITING EXCITEMENT 1DA6D SIGNWRITING SHOULDER HIP SPINE 1DA6E SIGNWRITING SHOULDER HIP POSITIONS 1DA6F SIGNWRITING WALLPLANE SHOULDER HIP MOVE 1DA70 SIGNWRITING FLOORPLANE SHOULDER HIP MOVE 1DA71 SIGNWRITING SHOULDER TILTING FROM WAIST 1DA72 SIGNWRITING TORSO-WALLPLANE STRAIGHT STRETCH 1DA73 SIGNWRITING TORSO-WALLPLANE CURVED BEND 1DA74 SIGNWRITING TORSO-FLOORPLANE TWISTING 1DA75 SIGNWRITING UPPER BODY TILTING FROM HIP JOINTS 1DA76 SIGNWRITING LIMB COMBINATION 1DA77 SIGNWRITING LIMB LENGTH-1 1DA78 SIGNWRITING LIMB LENGTH-2 1DA79 SIGNWRITING LIMB LENGTH-3 1DA7A SIGNWRITING LIMB LENGTH-4 1DA7B SIGNWRITING LIMB LENGTH-5 1DA7C SIGNWRITING LIMB LENGTH-6 1DA7D SIGNWRITING LIMB LENGTH-7 1DA7E SIGNWRITING FINGER 1DA7F SIGNWRITING LOCATION-WALLPLANE SPACE 1DA80 SIGNWRITING LOCATION-FLOORPLANE SPACE 1DA81 SIGNWRITING LOCATION HEIGHT 1DA82 SIGNWRITING LOCATION WIDTH 1DA83 SIGNWRITING LOCATION DEPTH 1DA84 SIGNWRITING LOCATION HEAD NECK 1DA85 SIGNWRITING LOCATION TORSO 1DA86 SIGNWRITING LOCATION LIMBS DIGITS 1DA87 SIGNWRITING COMMA 1DA88 SIGNWRITING FULL STOP 1DA89 SIGNWRITING SEMICOLON 1DA8A SIGNWRITING COLON 1DA8B SIGNWRITING PARENTHESIS 1DA9B SIGNWRITING FILL MODIFIER-2 1DA9C SIGNWRITING FILL MODIFIER-3 1DA9D SIGNWRITING FILL MODIFIER-4 1DA9E SIGNWRITING FILL MODIFIER-5 1DA9F SIGNWRITING FILL MODIFIER-6 1DAA1 SIGNWRITING ROTATION MODIFIER-2 1DAA2 SIGNWRITING ROTATION MODIFIER-3 1DAA3 SIGNWRITING ROTATION MODIFIER-4 1DAA4 SIGNWRITING ROTATION MODIFIER-5 1DAA5 SIGNWRITING ROTATION MODIFIER-6 1DAA6 SIGNWRITING ROTATION MODIFIER-7 1DAA7 SIGNWRITING ROTATION MODIFIER-8 1DAA8 SIGNWRITING ROTATION MODIFIER-9 1DAA9 SIGNWRITING ROTATION MODIFIER-10 1DAAA SIGNWRITING ROTATION MODIFIER-11 1DAAB SIGNWRITING ROTATION MODIFIER-12 1DAAC SIGNWRITING ROTATION MODIFIER-13 1DAAD SIGNWRITING ROTATION MODIFIER-14 1DAAE SIGNWRITING ROTATION MODIFIER-15 1DAAF SIGNWRITING ROTATION MODIFIER-16 1E000 COMBINING GLAGOLITIC LETTER AZU 1E001 COMBINING GLAGOLITIC LETTER BUKY 1E002 COMBINING GLAGOLITIC LETTER VEDE 1E003 COMBINING GLAGOLITIC LETTER GLAGOLI 1E004 COMBINING GLAGOLITIC LETTER DOBRO 1E005 COMBINING GLAGOLITIC LETTER YESTU 1E006 COMBINING GLAGOLITIC LETTER ZHIVETE 1E008 COMBINING GLAGOLITIC LETTER ZEMLJA 1E009 COMBINING GLAGOLITIC LETTER IZHE 1E00A COMBINING GLAGOLITIC LETTER INITIAL IZHE 1E00B COMBINING GLAGOLITIC LETTER I 1E00C COMBINING GLAGOLITIC LETTER DJERVI 1E00D COMBINING GLAGOLITIC LETTER KAKO 1E00E COMBINING GLAGOLITIC LETTER LJUDIJE 1E00F COMBINING GLAGOLITIC LETTER MYSLITE 1E010 COMBINING GLAGOLITIC LETTER NASHI 1E011 COMBINING GLAGOLITIC LETTER ONU 1E012 COMBINING GLAGOLITIC LETTER POKOJI 1E013 COMBINING GLAGOLITIC LETTER RITSI 1E014 COMBINING GLAGOLITIC LETTER SLOVO 1E015 COMBINING GLAGOLITIC LETTER TVRIDO 1E016 COMBINING GLAGOLITIC LETTER UKU 1E017 COMBINING GLAGOLITIC LETTER FRITU 1E018 COMBINING GLAGOLITIC LETTER HERU 1E01B COMBINING GLAGOLITIC LETTER SHTA 1E01C COMBINING GLAGOLITIC LETTER TSI 1E01D COMBINING GLAGOLITIC LETTER CHRIVI 1E01E COMBINING GLAGOLITIC LETTER SHA 1E01F COMBINING GLAGOLITIC LETTER YERU 1E020 COMBINING GLAGOLITIC LETTER YERI 1E021 COMBINING GLAGOLITIC LETTER YATI 1E023 COMBINING GLAGOLITIC LETTER YU 1E024 COMBINING GLAGOLITIC LETTER SMALL YUS 1E026 COMBINING GLAGOLITIC LETTER YO 1E027 COMBINING GLAGOLITIC LETTER IOTATED SMALL YUS 1E028 COMBINING GLAGOLITIC LETTER BIG YUS 1E029 COMBINING GLAGOLITIC LETTER IOTATED BIG YUS 1E02A COMBINING GLAGOLITIC LETTER FITA 1E100 NYIAKENG PUACHUE HMONG LETTER MA 1E101 NYIAKENG PUACHUE HMONG LETTER TSA 1E102 NYIAKENG PUACHUE HMONG LETTER NTA 1E103 NYIAKENG PUACHUE HMONG LETTER TA 1E104 NYIAKENG PUACHUE HMONG LETTER HA 1E105 NYIAKENG PUACHUE HMONG LETTER NA 1E106 NYIAKENG PUACHUE HMONG LETTER XA 1E107 NYIAKENG PUACHUE HMONG LETTER NKA 1E108 NYIAKENG PUACHUE HMONG LETTER CA 1E109 NYIAKENG PUACHUE HMONG LETTER LA 1E10A NYIAKENG PUACHUE HMONG LETTER SA 1E10B NYIAKENG PUACHUE HMONG LETTER ZA 1E10C NYIAKENG PUACHUE HMONG LETTER NCA 1E10D NYIAKENG PUACHUE HMONG LETTER NTSA 1E10E NYIAKENG PUACHUE HMONG LETTER KA 1E10F NYIAKENG PUACHUE HMONG LETTER DA 1E110 NYIAKENG PUACHUE HMONG LETTER NYA 1E111 NYIAKENG PUACHUE HMONG LETTER NRA 1E112 NYIAKENG PUACHUE HMONG LETTER VA 1E113 NYIAKENG PUACHUE HMONG LETTER NTXA 1E114 NYIAKENG PUACHUE HMONG LETTER TXA 1E115 NYIAKENG PUACHUE HMONG LETTER FA 1E116 NYIAKENG PUACHUE HMONG LETTER RA 1E117 NYIAKENG PUACHUE HMONG LETTER QA 1E118 NYIAKENG PUACHUE HMONG LETTER YA 1E119 NYIAKENG PUACHUE HMONG LETTER NQA 1E11A NYIAKENG PUACHUE HMONG LETTER PA 1E11B NYIAKENG PUACHUE HMONG LETTER XYA 1E11C NYIAKENG PUACHUE HMONG LETTER NPA 1E11D NYIAKENG PUACHUE HMONG LETTER DLA 1E11E NYIAKENG PUACHUE HMONG LETTER NPLA 1E11F NYIAKENG PUACHUE HMONG LETTER HAH 1E120 NYIAKENG PUACHUE HMONG LETTER MLA 1E121 NYIAKENG PUACHUE HMONG LETTER PLA 1E122 NYIAKENG PUACHUE HMONG LETTER GA 1E123 NYIAKENG PUACHUE HMONG LETTER RRA 1E124 NYIAKENG PUACHUE HMONG LETTER A 1E125 NYIAKENG PUACHUE HMONG LETTER AA 1E126 NYIAKENG PUACHUE HMONG LETTER I 1E127 NYIAKENG PUACHUE HMONG LETTER U 1E128 NYIAKENG PUACHUE HMONG LETTER O 1E129 NYIAKENG PUACHUE HMONG LETTER OO 1E12A NYIAKENG PUACHUE HMONG LETTER E 1E12B NYIAKENG PUACHUE HMONG LETTER EE 1E12C NYIAKENG PUACHUE HMONG LETTER W 1E130 NYIAKENG PUACHUE HMONG TONE-B 1E131 NYIAKENG PUACHUE HMONG TONE-M 1E132 NYIAKENG PUACHUE HMONG TONE-J 1E133 NYIAKENG PUACHUE HMONG TONE-V 1E134 NYIAKENG PUACHUE HMONG TONE-S 1E135 NYIAKENG PUACHUE HMONG TONE-G 1E136 NYIAKENG PUACHUE HMONG TONE-D 1E137 NYIAKENG PUACHUE HMONG SIGN FOR PERSON 1E138 NYIAKENG PUACHUE HMONG SIGN FOR THING 1E139 NYIAKENG PUACHUE HMONG SIGN FOR LOCATION 1E13A NYIAKENG PUACHUE HMONG SIGN FOR ANIMAL 1E13B NYIAKENG PUACHUE HMONG SIGN FOR INVERTEBRATE 1E13C NYIAKENG PUACHUE HMONG SIGN XW XW 1E13D NYIAKENG PUACHUE HMONG SYLLABLE LENGTHENER 1E140 NYIAKENG PUACHUE HMONG DIGIT ZERO 1E141 NYIAKENG PUACHUE HMONG DIGIT ONE 1E142 NYIAKENG PUACHUE HMONG DIGIT TWO 1E143 NYIAKENG PUACHUE HMONG DIGIT THREE 1E144 NYIAKENG PUACHUE HMONG DIGIT FOUR 1E145 NYIAKENG PUACHUE HMONG DIGIT FIVE 1E146 NYIAKENG PUACHUE HMONG DIGIT SIX 1E147 NYIAKENG PUACHUE HMONG DIGIT SEVEN 1E148 NYIAKENG PUACHUE HMONG DIGIT EIGHT 1E149 NYIAKENG PUACHUE HMONG DIGIT NINE 1E14E NYIAKENG PUACHUE HMONG LOGOGRAM NYAJ 1E14F NYIAKENG PUACHUE HMONG CIRCLED CA 1E2C0 WANCHO LETTER AA 1E2C1 WANCHO LETTER A 1E2C2 WANCHO LETTER BA 1E2C3 WANCHO LETTER CA 1E2C4 WANCHO LETTER DA 1E2C5 WANCHO LETTER GA 1E2C6 WANCHO LETTER YA 1E2C7 WANCHO LETTER PHA 1E2C8 WANCHO LETTER LA 1E2C9 WANCHO LETTER NA 1E2CA WANCHO LETTER PA 1E2CB WANCHO LETTER TA 1E2CC WANCHO LETTER THA 1E2CD WANCHO LETTER FA 1E2CE WANCHO LETTER SA 1E2CF WANCHO LETTER SHA 1E2D0 WANCHO LETTER JA 1E2D1 WANCHO LETTER ZA 1E2D2 WANCHO LETTER WA 1E2D3 WANCHO LETTER VA 1E2D4 WANCHO LETTER KA 1E2D5 WANCHO LETTER O 1E2D6 WANCHO LETTER AU 1E2D7 WANCHO LETTER RA 1E2D8 WANCHO LETTER MA 1E2D9 WANCHO LETTER KHA 1E2DA WANCHO LETTER HA 1E2DB WANCHO LETTER E 1E2DC WANCHO LETTER I 1E2DD WANCHO LETTER NGA 1E2DE WANCHO LETTER U 1E2DF WANCHO LETTER LLHA 1E2E0 WANCHO LETTER TSA 1E2E1 WANCHO LETTER TRA 1E2E2 WANCHO LETTER ONG 1E2E3 WANCHO LETTER AANG 1E2E4 WANCHO LETTER ANG 1E2E5 WANCHO LETTER ING 1E2E6 WANCHO LETTER ON 1E2E7 WANCHO LETTER EN 1E2E8 WANCHO LETTER AAN 1E2E9 WANCHO LETTER NYA 1E2EA WANCHO LETTER UEN 1E2EB WANCHO LETTER YIH 1E2EC WANCHO TONE TUP 1E2ED WANCHO TONE TUPNI 1E2EE WANCHO TONE KOI 1E2EF WANCHO TONE KOINI 1E2F0 WANCHO DIGIT ZERO 1E2F1 WANCHO DIGIT ONE 1E2F2 WANCHO DIGIT TWO 1E2F3 WANCHO DIGIT THREE 1E2F4 WANCHO DIGIT FOUR 1E2F5 WANCHO DIGIT FIVE 1E2F6 WANCHO DIGIT SIX 1E2F7 WANCHO DIGIT SEVEN 1E2F8 WANCHO DIGIT EIGHT 1E2F9 WANCHO DIGIT NINE 1E2FF WANCHO NGUN SIGN 1E800 MENDE KIKAKUI SYLLABLE M001 KI 1E801 MENDE KIKAKUI SYLLABLE M002 KA 1E802 MENDE KIKAKUI SYLLABLE M003 KU 1E803 MENDE KIKAKUI SYLLABLE M065 KEE 1E804 MENDE KIKAKUI SYLLABLE M095 KE 1E805 MENDE KIKAKUI SYLLABLE M076 KOO 1E806 MENDE KIKAKUI SYLLABLE M048 KO 1E807 MENDE KIKAKUI SYLLABLE M179 KUA 1E808 MENDE KIKAKUI SYLLABLE M004 WI 1E809 MENDE KIKAKUI SYLLABLE M005 WA 1E80A MENDE KIKAKUI SYLLABLE M006 WU 1E80B MENDE KIKAKUI SYLLABLE M126 WEE 1E80C MENDE KIKAKUI SYLLABLE M118 WE 1E80D MENDE KIKAKUI SYLLABLE M114 WOO 1E80E MENDE KIKAKUI SYLLABLE M045 WO 1E80F MENDE KIKAKUI SYLLABLE M194 WUI 1E810 MENDE KIKAKUI SYLLABLE M143 WEI 1E811 MENDE KIKAKUI SYLLABLE M061 WVI 1E812 MENDE KIKAKUI SYLLABLE M049 WVA 1E813 MENDE KIKAKUI SYLLABLE M139 WVE 1E814 MENDE KIKAKUI SYLLABLE M007 MIN 1E815 MENDE KIKAKUI SYLLABLE M008 MAN 1E816 MENDE KIKAKUI SYLLABLE M009 MUN 1E817 MENDE KIKAKUI SYLLABLE M059 MEN 1E818 MENDE KIKAKUI SYLLABLE M094 MON 1E819 MENDE KIKAKUI SYLLABLE M154 MUAN 1E81A MENDE KIKAKUI SYLLABLE M189 MUEN 1E81B MENDE KIKAKUI SYLLABLE M010 BI 1E81C MENDE KIKAKUI SYLLABLE M011 BA 1E81D MENDE KIKAKUI SYLLABLE M012 BU 1E81E MENDE KIKAKUI SYLLABLE M150 BEE 1E81F MENDE KIKAKUI SYLLABLE M097 BE 1E820 MENDE KIKAKUI SYLLABLE M103 BOO 1E821 MENDE KIKAKUI SYLLABLE M138 BO 1E822 MENDE KIKAKUI SYLLABLE M013 I 1E823 MENDE KIKAKUI SYLLABLE M014 A 1E824 MENDE KIKAKUI SYLLABLE M015 U 1E825 MENDE KIKAKUI SYLLABLE M163 EE 1E826 MENDE KIKAKUI SYLLABLE M100 E 1E827 MENDE KIKAKUI SYLLABLE M165 OO 1E828 MENDE KIKAKUI SYLLABLE M147 O 1E829 MENDE KIKAKUI SYLLABLE M137 EI 1E82A MENDE KIKAKUI SYLLABLE M131 IN 1E82B MENDE KIKAKUI SYLLABLE M135 IN 1E82C MENDE KIKAKUI SYLLABLE M195 AN 1E82D MENDE KIKAKUI SYLLABLE M178 EN 1E82E MENDE KIKAKUI SYLLABLE M019 SI 1E82F MENDE KIKAKUI SYLLABLE M020 SA 1E830 MENDE KIKAKUI SYLLABLE M021 SU 1E831 MENDE KIKAKUI SYLLABLE M162 SEE 1E832 MENDE KIKAKUI SYLLABLE M116 SE 1E833 MENDE KIKAKUI SYLLABLE M136 SOO 1E834 MENDE KIKAKUI SYLLABLE M079 SO 1E835 MENDE KIKAKUI SYLLABLE M196 SIA 1E836 MENDE KIKAKUI SYLLABLE M025 LI 1E837 MENDE KIKAKUI SYLLABLE M026 LA 1E838 MENDE KIKAKUI SYLLABLE M027 LU 1E839 MENDE KIKAKUI SYLLABLE M084 LEE 1E83A MENDE KIKAKUI SYLLABLE M073 LE 1E83B MENDE KIKAKUI SYLLABLE M054 LOO 1E83C MENDE KIKAKUI SYLLABLE M153 LO 1E83D MENDE KIKAKUI SYLLABLE M110 LONG LE 1E83E MENDE KIKAKUI SYLLABLE M016 DI 1E83F MENDE KIKAKUI SYLLABLE M017 DA 1E840 MENDE KIKAKUI SYLLABLE M018 DU 1E841 MENDE KIKAKUI SYLLABLE M089 DEE 1E842 MENDE KIKAKUI SYLLABLE M180 DOO 1E843 MENDE KIKAKUI SYLLABLE M181 DO 1E844 MENDE KIKAKUI SYLLABLE M022 TI 1E845 MENDE KIKAKUI SYLLABLE M023 TA 1E846 MENDE KIKAKUI SYLLABLE M024 TU 1E847 MENDE KIKAKUI SYLLABLE M091 TEE 1E848 MENDE KIKAKUI SYLLABLE M055 TE 1E849 MENDE KIKAKUI SYLLABLE M104 TOO 1E84A MENDE KIKAKUI SYLLABLE M069 TO 1E84B MENDE KIKAKUI SYLLABLE M028 JI 1E84C MENDE KIKAKUI SYLLABLE M029 JA 1E84D MENDE KIKAKUI SYLLABLE M030 JU 1E84E MENDE KIKAKUI SYLLABLE M157 JEE 1E84F MENDE KIKAKUI SYLLABLE M113 JE 1E850 MENDE KIKAKUI SYLLABLE M160 JOO 1E851 MENDE KIKAKUI SYLLABLE M063 JO 1E852 MENDE KIKAKUI SYLLABLE M175 LONG JO 1E853 MENDE KIKAKUI SYLLABLE M031 YI 1E854 MENDE KIKAKUI SYLLABLE M032 YA 1E855 MENDE KIKAKUI SYLLABLE M033 YU 1E856 MENDE KIKAKUI SYLLABLE M109 YEE 1E857 MENDE KIKAKUI SYLLABLE M080 YE 1E858 MENDE KIKAKUI SYLLABLE M141 YOO 1E859 MENDE KIKAKUI SYLLABLE M121 YO 1E85A MENDE KIKAKUI SYLLABLE M034 FI 1E85B MENDE KIKAKUI SYLLABLE M035 FA 1E85C MENDE KIKAKUI SYLLABLE M036 FU 1E85D MENDE KIKAKUI SYLLABLE M078 FEE 1E85E MENDE KIKAKUI SYLLABLE M075 FE 1E85F MENDE KIKAKUI SYLLABLE M133 FOO 1E860 MENDE KIKAKUI SYLLABLE M088 FO 1E861 MENDE KIKAKUI SYLLABLE M197 FUA 1E862 MENDE KIKAKUI SYLLABLE M101 FAN 1E863 MENDE KIKAKUI SYLLABLE M037 NIN 1E864 MENDE KIKAKUI SYLLABLE M038 NAN 1E865 MENDE KIKAKUI SYLLABLE M039 NUN 1E866 MENDE KIKAKUI SYLLABLE M117 NEN 1E867 MENDE KIKAKUI SYLLABLE M169 NON 1E868 MENDE KIKAKUI SYLLABLE M176 HI 1E869 MENDE KIKAKUI SYLLABLE M041 HA 1E86A MENDE KIKAKUI SYLLABLE M186 HU 1E86B MENDE KIKAKUI SYLLABLE M040 HEE 1E86C MENDE KIKAKUI SYLLABLE M096 HE 1E86D MENDE KIKAKUI SYLLABLE M042 HOO 1E86E MENDE KIKAKUI SYLLABLE M140 HO 1E86F MENDE KIKAKUI SYLLABLE M083 HEEI 1E870 MENDE KIKAKUI SYLLABLE M128 HOOU 1E871 MENDE KIKAKUI SYLLABLE M053 HIN 1E872 MENDE KIKAKUI SYLLABLE M130 HAN 1E873 MENDE KIKAKUI SYLLABLE M087 HUN 1E874 MENDE KIKAKUI SYLLABLE M052 HEN 1E875 MENDE KIKAKUI SYLLABLE M193 HON 1E876 MENDE KIKAKUI SYLLABLE M046 HUAN 1E877 MENDE KIKAKUI SYLLABLE M090 NGGI 1E878 MENDE KIKAKUI SYLLABLE M043 NGGA 1E879 MENDE KIKAKUI SYLLABLE M082 NGGU 1E87A MENDE KIKAKUI SYLLABLE M115 NGGEE 1E87B MENDE KIKAKUI SYLLABLE M146 NGGE 1E87C MENDE KIKAKUI SYLLABLE M156 NGGOO 1E87D MENDE KIKAKUI SYLLABLE M120 NGGO 1E87E MENDE KIKAKUI SYLLABLE M159 NGGAA 1E87F MENDE KIKAKUI SYLLABLE M127 NGGUA 1E880 MENDE KIKAKUI SYLLABLE M086 LONG NGGE 1E881 MENDE KIKAKUI SYLLABLE M106 LONG NGGOO 1E882 MENDE KIKAKUI SYLLABLE M183 LONG NGGO 1E883 MENDE KIKAKUI SYLLABLE M155 GI 1E884 MENDE KIKAKUI SYLLABLE M111 GA 1E885 MENDE KIKAKUI SYLLABLE M168 GU 1E886 MENDE KIKAKUI SYLLABLE M190 GEE 1E887 MENDE KIKAKUI SYLLABLE M166 GUEI 1E888 MENDE KIKAKUI SYLLABLE M167 GUAN 1E889 MENDE KIKAKUI SYLLABLE M184 NGEN 1E88A MENDE KIKAKUI SYLLABLE M057 NGON 1E88B MENDE KIKAKUI SYLLABLE M177 NGUAN 1E88C MENDE KIKAKUI SYLLABLE M068 PI 1E88D MENDE KIKAKUI SYLLABLE M099 PA 1E88E MENDE KIKAKUI SYLLABLE M050 PU 1E88F MENDE KIKAKUI SYLLABLE M081 PEE 1E890 MENDE KIKAKUI SYLLABLE M051 PE 1E891 MENDE KIKAKUI SYLLABLE M102 POO 1E892 MENDE KIKAKUI SYLLABLE M066 PO 1E893 MENDE KIKAKUI SYLLABLE M145 MBI 1E894 MENDE KIKAKUI SYLLABLE M062 MBA 1E895 MENDE KIKAKUI SYLLABLE M122 MBU 1E896 MENDE KIKAKUI SYLLABLE M047 MBEE 1E897 MENDE KIKAKUI SYLLABLE M188 MBEE 1E898 MENDE KIKAKUI SYLLABLE M072 MBE 1E899 MENDE KIKAKUI SYLLABLE M172 MBOO 1E89A MENDE KIKAKUI SYLLABLE M174 MBO 1E89B MENDE KIKAKUI SYLLABLE M187 MBUU 1E89C MENDE KIKAKUI SYLLABLE M161 LONG MBE 1E89D MENDE KIKAKUI SYLLABLE M105 LONG MBOO 1E89E MENDE KIKAKUI SYLLABLE M142 LONG MBO 1E89F MENDE KIKAKUI SYLLABLE M132 KPI 1E8A0 MENDE KIKAKUI SYLLABLE M092 KPA 1E8A1 MENDE KIKAKUI SYLLABLE M074 KPU 1E8A2 MENDE KIKAKUI SYLLABLE M044 KPEE 1E8A3 MENDE KIKAKUI SYLLABLE M108 KPE 1E8A4 MENDE KIKAKUI SYLLABLE M112 KPOO 1E8A5 MENDE KIKAKUI SYLLABLE M158 KPO 1E8A6 MENDE KIKAKUI SYLLABLE M124 GBI 1E8A7 MENDE KIKAKUI SYLLABLE M056 GBA 1E8A8 MENDE KIKAKUI SYLLABLE M148 GBU 1E8A9 MENDE KIKAKUI SYLLABLE M093 GBEE 1E8AA MENDE KIKAKUI SYLLABLE M107 GBE 1E8AB MENDE KIKAKUI SYLLABLE M071 GBOO 1E8AC MENDE KIKAKUI SYLLABLE M070 GBO 1E8AD MENDE KIKAKUI SYLLABLE M171 RA 1E8AE MENDE KIKAKUI SYLLABLE M123 NDI 1E8AF MENDE KIKAKUI SYLLABLE M129 NDA 1E8B0 MENDE KIKAKUI SYLLABLE M125 NDU 1E8B1 MENDE KIKAKUI SYLLABLE M191 NDEE 1E8B2 MENDE KIKAKUI SYLLABLE M119 NDE 1E8B3 MENDE KIKAKUI SYLLABLE M067 NDOO 1E8B4 MENDE KIKAKUI SYLLABLE M064 NDO 1E8B5 MENDE KIKAKUI SYLLABLE M152 NJA 1E8B6 MENDE KIKAKUI SYLLABLE M192 NJU 1E8B7 MENDE KIKAKUI SYLLABLE M149 NJEE 1E8B8 MENDE KIKAKUI SYLLABLE M134 NJOO 1E8B9 MENDE KIKAKUI SYLLABLE M182 VI 1E8BA MENDE KIKAKUI SYLLABLE M185 VA 1E8BB MENDE KIKAKUI SYLLABLE M151 VU 1E8BC MENDE KIKAKUI SYLLABLE M173 VEE 1E8BD MENDE KIKAKUI SYLLABLE M085 VE 1E8BE MENDE KIKAKUI SYLLABLE M144 VOO 1E8BF MENDE KIKAKUI SYLLABLE M077 VO 1E8C0 MENDE KIKAKUI SYLLABLE M164 NYIN 1E8C1 MENDE KIKAKUI SYLLABLE M058 NYAN 1E8C2 MENDE KIKAKUI SYLLABLE M170 NYUN 1E8C3 MENDE KIKAKUI SYLLABLE M098 NYEN 1E8C4 MENDE KIKAKUI SYLLABLE M060 NYON 1E8C7 MENDE KIKAKUI DIGIT ONE 1E8C8 MENDE KIKAKUI DIGIT TWO 1E8C9 MENDE KIKAKUI DIGIT THREE 1E8CA MENDE KIKAKUI DIGIT FOUR 1E8CB MENDE KIKAKUI DIGIT FIVE 1E8CC MENDE KIKAKUI DIGIT SIX 1E8CD MENDE KIKAKUI DIGIT SEVEN 1E8CE MENDE KIKAKUI DIGIT EIGHT 1E8CF MENDE KIKAKUI DIGIT NINE 1E8D0 MENDE KIKAKUI COMBINING NUMBER TEENS 1E8D1 MENDE KIKAKUI COMBINING NUMBER TENS 1E8D2 MENDE KIKAKUI COMBINING NUMBER HUNDREDS 1E8D3 MENDE KIKAKUI COMBINING NUMBER THOUSANDS 1E8D4 MENDE KIKAKUI COMBINING NUMBER TEN THOUSANDS 1E8D5 MENDE KIKAKUI COMBINING NUMBER HUNDRED THOUSANDS 1E8D6 MENDE KIKAKUI COMBINING NUMBER MILLIONS 1E900 ADLAM CAPITAL LETTER ALIF 1E901 ADLAM CAPITAL LETTER DAALI 1E902 ADLAM CAPITAL LETTER LAAM 1E903 ADLAM CAPITAL LETTER MIIM 1E904 ADLAM CAPITAL LETTER BA 1E905 ADLAM CAPITAL LETTER SINNYIIYHE 1E906 ADLAM CAPITAL LETTER PE 1E907 ADLAM CAPITAL LETTER BHE 1E908 ADLAM CAPITAL LETTER RA 1E909 ADLAM CAPITAL LETTER E 1E90A ADLAM CAPITAL LETTER FA 1E90B ADLAM CAPITAL LETTER I 1E90C ADLAM CAPITAL LETTER O 1E90D ADLAM CAPITAL LETTER DHA 1E90E ADLAM CAPITAL LETTER YHE 1E90F ADLAM CAPITAL LETTER WAW 1E910 ADLAM CAPITAL LETTER NUN 1E911 ADLAM CAPITAL LETTER KAF 1E912 ADLAM CAPITAL LETTER YA 1E913 ADLAM CAPITAL LETTER U 1E914 ADLAM CAPITAL LETTER JIIM 1E915 ADLAM CAPITAL LETTER CHI 1E916 ADLAM CAPITAL LETTER HA 1E917 ADLAM CAPITAL LETTER QAAF 1E918 ADLAM CAPITAL LETTER GA 1E919 ADLAM CAPITAL LETTER NYA 1E91A ADLAM CAPITAL LETTER TU 1E91B ADLAM CAPITAL LETTER NHA 1E91C ADLAM CAPITAL LETTER VA 1E91D ADLAM CAPITAL LETTER KHA 1E91E ADLAM CAPITAL LETTER GBE 1E91F ADLAM CAPITAL LETTER ZAL 1E920 ADLAM CAPITAL LETTER KPO 1E921 ADLAM CAPITAL LETTER SHA 1E922 ADLAM SMALL LETTER ALIF 1E923 ADLAM SMALL LETTER DAALI 1E924 ADLAM SMALL LETTER LAAM 1E925 ADLAM SMALL LETTER MIIM 1E926 ADLAM SMALL LETTER BA 1E927 ADLAM SMALL LETTER SINNYIIYHE 1E928 ADLAM SMALL LETTER PE 1E929 ADLAM SMALL LETTER BHE 1E92A ADLAM SMALL LETTER RA 1E92B ADLAM SMALL LETTER E 1E92C ADLAM SMALL LETTER FA 1E92D ADLAM SMALL LETTER I 1E92E ADLAM SMALL LETTER O 1E92F ADLAM SMALL LETTER DHA 1E930 ADLAM SMALL LETTER YHE 1E931 ADLAM SMALL LETTER WAW 1E932 ADLAM SMALL LETTER NUN 1E933 ADLAM SMALL LETTER KAF 1E934 ADLAM SMALL LETTER YA 1E935 ADLAM SMALL LETTER U 1E936 ADLAM SMALL LETTER JIIM 1E937 ADLAM SMALL LETTER CHI 1E938 ADLAM SMALL LETTER HA 1E939 ADLAM SMALL LETTER QAAF 1E93A ADLAM SMALL LETTER GA 1E93B ADLAM SMALL LETTER NYA 1E93C ADLAM SMALL LETTER TU 1E93D ADLAM SMALL LETTER NHA 1E93E ADLAM SMALL LETTER VA 1E93F ADLAM SMALL LETTER KHA 1E940 ADLAM SMALL LETTER GBE 1E941 ADLAM SMALL LETTER ZAL 1E942 ADLAM SMALL LETTER KPO 1E943 ADLAM SMALL LETTER SHA 1E944 ADLAM ALIF LENGTHENER 1E945 ADLAM VOWEL LENGTHENER 1E946 ADLAM GEMINATION MARK 1E947 ADLAM HAMZA 1E948 ADLAM CONSONANT MODIFIER 1E949 ADLAM GEMINATE CONSONANT MODIFIER 1E94A ADLAM NUKTA 1E94B ADLAM NASALIZATION MARK 1E950 ADLAM DIGIT ZERO 1E951 ADLAM DIGIT ONE 1E952 ADLAM DIGIT TWO 1E953 ADLAM DIGIT THREE 1E954 ADLAM DIGIT FOUR 1E955 ADLAM DIGIT FIVE 1E956 ADLAM DIGIT SIX 1E957 ADLAM DIGIT SEVEN 1E958 ADLAM DIGIT EIGHT 1E959 ADLAM DIGIT NINE 1E95E ADLAM INITIAL EXCLAMATION MARK 1E95F ADLAM INITIAL QUESTION MARK 1EC71 INDIC SIYAQ NUMBER ONE 1EC72 INDIC SIYAQ NUMBER TWO 1EC73 INDIC SIYAQ NUMBER THREE 1EC74 INDIC SIYAQ NUMBER FOUR 1EC75 INDIC SIYAQ NUMBER FIVE 1EC76 INDIC SIYAQ NUMBER SIX 1EC77 INDIC SIYAQ NUMBER SEVEN 1EC78 INDIC SIYAQ NUMBER EIGHT 1EC79 INDIC SIYAQ NUMBER NINE 1EC7A INDIC SIYAQ NUMBER TEN 1EC7B INDIC SIYAQ NUMBER TWENTY 1EC7C INDIC SIYAQ NUMBER THIRTY 1EC7D INDIC SIYAQ NUMBER FORTY 1EC7E INDIC SIYAQ NUMBER FIFTY 1EC7F INDIC SIYAQ NUMBER SIXTY 1EC80 INDIC SIYAQ NUMBER SEVENTY 1EC81 INDIC SIYAQ NUMBER EIGHTY 1EC82 INDIC SIYAQ NUMBER NINETY 1EC83 INDIC SIYAQ NUMBER ONE HUNDRED 1EC84 INDIC SIYAQ NUMBER TWO HUNDRED 1EC85 INDIC SIYAQ NUMBER THREE HUNDRED 1EC86 INDIC SIYAQ NUMBER FOUR HUNDRED 1EC87 INDIC SIYAQ NUMBER FIVE HUNDRED 1EC88 INDIC SIYAQ NUMBER SIX HUNDRED 1EC89 INDIC SIYAQ NUMBER SEVEN HUNDRED 1EC8A INDIC SIYAQ NUMBER EIGHT HUNDRED 1EC8B INDIC SIYAQ NUMBER NINE HUNDRED 1EC8C INDIC SIYAQ NUMBER ONE THOUSAND 1EC8D INDIC SIYAQ NUMBER TWO THOUSAND 1EC8E INDIC SIYAQ NUMBER THREE THOUSAND 1EC8F INDIC SIYAQ NUMBER FOUR THOUSAND 1EC90 INDIC SIYAQ NUMBER FIVE THOUSAND 1EC91 INDIC SIYAQ NUMBER SIX THOUSAND 1EC92 INDIC SIYAQ NUMBER SEVEN THOUSAND 1EC93 INDIC SIYAQ NUMBER EIGHT THOUSAND 1EC94 INDIC SIYAQ NUMBER NINE THOUSAND 1EC95 INDIC SIYAQ NUMBER TEN THOUSAND 1EC96 INDIC SIYAQ NUMBER TWENTY THOUSAND 1EC97 INDIC SIYAQ NUMBER THIRTY THOUSAND 1EC98 INDIC SIYAQ NUMBER FORTY THOUSAND 1EC99 INDIC SIYAQ NUMBER FIFTY THOUSAND 1EC9A INDIC SIYAQ NUMBER SIXTY THOUSAND 1EC9B INDIC SIYAQ NUMBER SEVENTY THOUSAND 1EC9C INDIC SIYAQ NUMBER EIGHTY THOUSAND 1EC9D INDIC SIYAQ NUMBER NINETY THOUSAND 1EC9E INDIC SIYAQ NUMBER LAKH 1EC9F INDIC SIYAQ NUMBER LAKHAN 1ECA0 INDIC SIYAQ LAKH MARK 1ECA1 INDIC SIYAQ NUMBER KAROR 1ECA2 INDIC SIYAQ NUMBER KARORAN 1ECA3 INDIC SIYAQ NUMBER PREFIXED ONE 1ECA4 INDIC SIYAQ NUMBER PREFIXED TWO 1ECA5 INDIC SIYAQ NUMBER PREFIXED THREE 1ECA6 INDIC SIYAQ NUMBER PREFIXED FOUR 1ECA7 INDIC SIYAQ NUMBER PREFIXED FIVE 1ECA8 INDIC SIYAQ NUMBER PREFIXED SIX 1ECA9 INDIC SIYAQ NUMBER PREFIXED SEVEN 1ECAA INDIC SIYAQ NUMBER PREFIXED EIGHT 1ECAB INDIC SIYAQ NUMBER PREFIXED NINE 1ECAC INDIC SIYAQ PLACEHOLDER 1ECAD INDIC SIYAQ FRACTION ONE QUARTER 1ECAE INDIC SIYAQ FRACTION ONE HALF 1ECAF INDIC SIYAQ FRACTION THREE QUARTERS 1ECB0 INDIC SIYAQ RUPEE MARK 1ECB1 INDIC SIYAQ NUMBER ALTERNATE ONE 1ECB2 INDIC SIYAQ NUMBER ALTERNATE TWO 1ECB3 INDIC SIYAQ NUMBER ALTERNATE TEN THOUSAND 1ECB4 INDIC SIYAQ ALTERNATE LAKH MARK 1ED01 OTTOMAN SIYAQ NUMBER ONE 1ED02 OTTOMAN SIYAQ NUMBER TWO 1ED03 OTTOMAN SIYAQ NUMBER THREE 1ED04 OTTOMAN SIYAQ NUMBER FOUR 1ED05 OTTOMAN SIYAQ NUMBER FIVE 1ED06 OTTOMAN SIYAQ NUMBER SIX 1ED07 OTTOMAN SIYAQ NUMBER SEVEN 1ED08 OTTOMAN SIYAQ NUMBER EIGHT 1ED09 OTTOMAN SIYAQ NUMBER NINE 1ED0A OTTOMAN SIYAQ NUMBER TEN 1ED0B OTTOMAN SIYAQ NUMBER TWENTY 1ED0C OTTOMAN SIYAQ NUMBER THIRTY 1ED0D OTTOMAN SIYAQ NUMBER FORTY 1ED0E OTTOMAN SIYAQ NUMBER FIFTY 1ED0F OTTOMAN SIYAQ NUMBER SIXTY 1ED10 OTTOMAN SIYAQ NUMBER SEVENTY 1ED11 OTTOMAN SIYAQ NUMBER EIGHTY 1ED12 OTTOMAN SIYAQ NUMBER NINETY 1ED13 OTTOMAN SIYAQ NUMBER ONE HUNDRED 1ED14 OTTOMAN SIYAQ NUMBER TWO HUNDRED 1ED15 OTTOMAN SIYAQ NUMBER THREE HUNDRED 1ED16 OTTOMAN SIYAQ NUMBER FOUR HUNDRED 1ED17 OTTOMAN SIYAQ NUMBER FIVE HUNDRED 1ED18 OTTOMAN SIYAQ NUMBER SIX HUNDRED 1ED19 OTTOMAN SIYAQ NUMBER SEVEN HUNDRED 1ED1A OTTOMAN SIYAQ NUMBER EIGHT HUNDRED 1ED1B OTTOMAN SIYAQ NUMBER NINE HUNDRED 1ED1C OTTOMAN SIYAQ NUMBER ONE THOUSAND 1ED1D OTTOMAN SIYAQ NUMBER TWO THOUSAND 1ED1E OTTOMAN SIYAQ NUMBER THREE THOUSAND 1ED1F OTTOMAN SIYAQ NUMBER FOUR THOUSAND 1ED20 OTTOMAN SIYAQ NUMBER FIVE THOUSAND 1ED21 OTTOMAN SIYAQ NUMBER SIX THOUSAND 1ED22 OTTOMAN SIYAQ NUMBER SEVEN THOUSAND 1ED23 OTTOMAN SIYAQ NUMBER EIGHT THOUSAND 1ED24 OTTOMAN SIYAQ NUMBER NINE THOUSAND 1ED25 OTTOMAN SIYAQ NUMBER TEN THOUSAND 1ED26 OTTOMAN SIYAQ NUMBER TWENTY THOUSAND 1ED27 OTTOMAN SIYAQ NUMBER THIRTY THOUSAND 1ED28 OTTOMAN SIYAQ NUMBER FORTY THOUSAND 1ED29 OTTOMAN SIYAQ NUMBER FIFTY THOUSAND 1ED2A OTTOMAN SIYAQ NUMBER SIXTY THOUSAND 1ED2B OTTOMAN SIYAQ NUMBER SEVENTY THOUSAND 1ED2C OTTOMAN SIYAQ NUMBER EIGHTY THOUSAND 1ED2D OTTOMAN SIYAQ NUMBER NINETY THOUSAND 1ED2E OTTOMAN SIYAQ MARRATAN 1ED2F OTTOMAN SIYAQ ALTERNATE NUMBER TWO 1ED30 OTTOMAN SIYAQ ALTERNATE NUMBER THREE 1ED31 OTTOMAN SIYAQ ALTERNATE NUMBER FOUR 1ED32 OTTOMAN SIYAQ ALTERNATE NUMBER FIVE 1ED33 OTTOMAN SIYAQ ALTERNATE NUMBER SIX 1ED34 OTTOMAN SIYAQ ALTERNATE NUMBER SEVEN 1ED35 OTTOMAN SIYAQ ALTERNATE NUMBER EIGHT 1ED36 OTTOMAN SIYAQ ALTERNATE NUMBER NINE 1ED37 OTTOMAN SIYAQ ALTERNATE NUMBER TEN 1ED38 OTTOMAN SIYAQ ALTERNATE NUMBER FOUR HUNDRED 1ED39 OTTOMAN SIYAQ ALTERNATE NUMBER SIX HUNDRED 1ED3A OTTOMAN SIYAQ ALTERNATE NUMBER TWO THOUSAND 1ED3B OTTOMAN SIYAQ ALTERNATE NUMBER TEN THOUSAND 1ED3C OTTOMAN SIYAQ FRACTION ONE HALF 1ED3D OTTOMAN SIYAQ FRACTION ONE SIXTH 1EE00 ARABIC MATHEMATICAL ALEF 1EE01 ARABIC MATHEMATICAL BEH 1EE02 ARABIC MATHEMATICAL JEEM 1EE03 ARABIC MATHEMATICAL DAL 1EE05 ARABIC MATHEMATICAL WAW 1EE06 ARABIC MATHEMATICAL ZAIN 1EE07 ARABIC MATHEMATICAL HAH 1EE08 ARABIC MATHEMATICAL TAH 1EE09 ARABIC MATHEMATICAL YEH 1EE0A ARABIC MATHEMATICAL KAF 1EE0B ARABIC MATHEMATICAL LAM 1EE0C ARABIC MATHEMATICAL MEEM 1EE0D ARABIC MATHEMATICAL NOON 1EE0E ARABIC MATHEMATICAL SEEN 1EE0F ARABIC MATHEMATICAL AIN 1EE10 ARABIC MATHEMATICAL FEH 1EE11 ARABIC MATHEMATICAL SAD 1EE12 ARABIC MATHEMATICAL QAF 1EE13 ARABIC MATHEMATICAL REH 1EE14 ARABIC MATHEMATICAL SHEEN 1EE15 ARABIC MATHEMATICAL TEH 1EE16 ARABIC MATHEMATICAL THEH 1EE17 ARABIC MATHEMATICAL KHAH 1EE18 ARABIC MATHEMATICAL THAL 1EE19 ARABIC MATHEMATICAL DAD 1EE1A ARABIC MATHEMATICAL ZAH 1EE1B ARABIC MATHEMATICAL GHAIN 1EE1C ARABIC MATHEMATICAL DOTLESS BEH 1EE1D ARABIC MATHEMATICAL DOTLESS NOON 1EE1E ARABIC MATHEMATICAL DOTLESS FEH 1EE1F ARABIC MATHEMATICAL DOTLESS QAF 1EE21 ARABIC MATHEMATICAL INITIAL BEH 1EE22 ARABIC MATHEMATICAL INITIAL JEEM 1EE24 ARABIC MATHEMATICAL INITIAL HEH 1EE27 ARABIC MATHEMATICAL INITIAL HAH 1EE29 ARABIC MATHEMATICAL INITIAL YEH 1EE2A ARABIC MATHEMATICAL INITIAL KAF 1EE2B ARABIC MATHEMATICAL INITIAL LAM 1EE2C ARABIC MATHEMATICAL INITIAL MEEM 1EE2D ARABIC MATHEMATICAL INITIAL NOON 1EE2E ARABIC MATHEMATICAL INITIAL SEEN 1EE2F ARABIC MATHEMATICAL INITIAL AIN 1EE30 ARABIC MATHEMATICAL INITIAL FEH 1EE31 ARABIC MATHEMATICAL INITIAL SAD 1EE32 ARABIC MATHEMATICAL INITIAL QAF 1EE34 ARABIC MATHEMATICAL INITIAL SHEEN 1EE35 ARABIC MATHEMATICAL INITIAL TEH 1EE36 ARABIC MATHEMATICAL INITIAL THEH 1EE37 ARABIC MATHEMATICAL INITIAL KHAH 1EE39 ARABIC MATHEMATICAL INITIAL DAD 1EE3B ARABIC MATHEMATICAL INITIAL GHAIN 1EE42 ARABIC MATHEMATICAL TAILED JEEM 1EE47 ARABIC MATHEMATICAL TAILED HAH 1EE49 ARABIC MATHEMATICAL TAILED YEH 1EE4B ARABIC MATHEMATICAL TAILED LAM 1EE4D ARABIC MATHEMATICAL TAILED NOON 1EE4E ARABIC MATHEMATICAL TAILED SEEN 1EE4F ARABIC MATHEMATICAL TAILED AIN 1EE51 ARABIC MATHEMATICAL TAILED SAD 1EE52 ARABIC MATHEMATICAL TAILED QAF 1EE54 ARABIC MATHEMATICAL TAILED SHEEN 1EE57 ARABIC MATHEMATICAL TAILED KHAH 1EE59 ARABIC MATHEMATICAL TAILED DAD 1EE5B ARABIC MATHEMATICAL TAILED GHAIN 1EE5D ARABIC MATHEMATICAL TAILED DOTLESS NOON 1EE5F ARABIC MATHEMATICAL TAILED DOTLESS QAF 1EE61 ARABIC MATHEMATICAL STRETCHED BEH 1EE62 ARABIC MATHEMATICAL STRETCHED JEEM 1EE64 ARABIC MATHEMATICAL STRETCHED HEH 1EE67 ARABIC MATHEMATICAL STRETCHED HAH 1EE68 ARABIC MATHEMATICAL STRETCHED TAH 1EE69 ARABIC MATHEMATICAL STRETCHED YEH 1EE6A ARABIC MATHEMATICAL STRETCHED KAF 1EE6C ARABIC MATHEMATICAL STRETCHED MEEM 1EE6D ARABIC MATHEMATICAL STRETCHED NOON 1EE6E ARABIC MATHEMATICAL STRETCHED SEEN 1EE6F ARABIC MATHEMATICAL STRETCHED AIN 1EE70 ARABIC MATHEMATICAL STRETCHED FEH 1EE71 ARABIC MATHEMATICAL STRETCHED SAD 1EE72 ARABIC MATHEMATICAL STRETCHED QAF 1EE74 ARABIC MATHEMATICAL STRETCHED SHEEN 1EE75 ARABIC MATHEMATICAL STRETCHED TEH 1EE76 ARABIC MATHEMATICAL STRETCHED THEH 1EE77 ARABIC MATHEMATICAL STRETCHED KHAH 1EE79 ARABIC MATHEMATICAL STRETCHED DAD 1EE7A ARABIC MATHEMATICAL STRETCHED ZAH 1EE7B ARABIC MATHEMATICAL STRETCHED GHAIN 1EE7C ARABIC MATHEMATICAL STRETCHED DOTLESS BEH 1EE7E ARABIC MATHEMATICAL STRETCHED DOTLESS FEH 1EE80 ARABIC MATHEMATICAL LOOPED ALEF 1EE81 ARABIC MATHEMATICAL LOOPED BEH 1EE82 ARABIC MATHEMATICAL LOOPED JEEM 1EE83 ARABIC MATHEMATICAL LOOPED DAL 1EE84 ARABIC MATHEMATICAL LOOPED HEH 1EE85 ARABIC MATHEMATICAL LOOPED WAW 1EE86 ARABIC MATHEMATICAL LOOPED ZAIN 1EE87 ARABIC MATHEMATICAL LOOPED HAH 1EE88 ARABIC MATHEMATICAL LOOPED TAH 1EE89 ARABIC MATHEMATICAL LOOPED YEH 1EE8B ARABIC MATHEMATICAL LOOPED LAM 1EE8C ARABIC MATHEMATICAL LOOPED MEEM 1EE8D ARABIC MATHEMATICAL LOOPED NOON 1EE8E ARABIC MATHEMATICAL LOOPED SEEN 1EE8F ARABIC MATHEMATICAL LOOPED AIN 1EE90 ARABIC MATHEMATICAL LOOPED FEH 1EE91 ARABIC MATHEMATICAL LOOPED SAD 1EE92 ARABIC MATHEMATICAL LOOPED QAF 1EE93 ARABIC MATHEMATICAL LOOPED REH 1EE94 ARABIC MATHEMATICAL LOOPED SHEEN 1EE95 ARABIC MATHEMATICAL LOOPED TEH 1EE96 ARABIC MATHEMATICAL LOOPED THEH 1EE97 ARABIC MATHEMATICAL LOOPED KHAH 1EE98 ARABIC MATHEMATICAL LOOPED THAL 1EE99 ARABIC MATHEMATICAL LOOPED DAD 1EE9A ARABIC MATHEMATICAL LOOPED ZAH 1EE9B ARABIC MATHEMATICAL LOOPED GHAIN 1EEA1 ARABIC MATHEMATICAL DOUBLE-STRUCK BEH 1EEA2 ARABIC MATHEMATICAL DOUBLE-STRUCK JEEM 1EEA3 ARABIC MATHEMATICAL DOUBLE-STRUCK DAL 1EEA5 ARABIC MATHEMATICAL DOUBLE-STRUCK WAW 1EEA6 ARABIC MATHEMATICAL DOUBLE-STRUCK ZAIN 1EEA7 ARABIC MATHEMATICAL DOUBLE-STRUCK HAH 1EEA8 ARABIC MATHEMATICAL DOUBLE-STRUCK TAH 1EEA9 ARABIC MATHEMATICAL DOUBLE-STRUCK YEH 1EEAB ARABIC MATHEMATICAL DOUBLE-STRUCK LAM 1EEAC ARABIC MATHEMATICAL DOUBLE-STRUCK MEEM 1EEAD ARABIC MATHEMATICAL DOUBLE-STRUCK NOON 1EEAE ARABIC MATHEMATICAL DOUBLE-STRUCK SEEN 1EEAF ARABIC MATHEMATICAL DOUBLE-STRUCK AIN 1EEB0 ARABIC MATHEMATICAL DOUBLE-STRUCK FEH 1EEB1 ARABIC MATHEMATICAL DOUBLE-STRUCK SAD 1EEB2 ARABIC MATHEMATICAL DOUBLE-STRUCK QAF 1EEB3 ARABIC MATHEMATICAL DOUBLE-STRUCK REH 1EEB4 ARABIC MATHEMATICAL DOUBLE-STRUCK SHEEN 1EEB5 ARABIC MATHEMATICAL DOUBLE-STRUCK TEH 1EEB6 ARABIC MATHEMATICAL DOUBLE-STRUCK THEH 1EEB7 ARABIC MATHEMATICAL DOUBLE-STRUCK KHAH 1EEB8 ARABIC MATHEMATICAL DOUBLE-STRUCK THAL 1EEB9 ARABIC MATHEMATICAL DOUBLE-STRUCK DAD 1EEBA ARABIC MATHEMATICAL DOUBLE-STRUCK ZAH 1EEBB ARABIC MATHEMATICAL DOUBLE-STRUCK GHAIN 1EEF0 ARABIC MATHEMATICAL OPERATOR MEEM WITH HAH WITH TATWEEL 1EEF1 ARABIC MATHEMATICAL OPERATOR HAH WITH DAL 1F000 MAHJONG TILE EAST WIND 1F001 MAHJONG TILE SOUTH WIND 1F002 MAHJONG TILE WEST WIND 1F003 MAHJONG TILE NORTH WIND 1F004 MAHJONG TILE RED DRAGON 1F005 MAHJONG TILE GREEN DRAGON 1F006 MAHJONG TILE WHITE DRAGON 1F007 MAHJONG TILE ONE OF CHARACTERS 1F008 MAHJONG TILE TWO OF CHARACTERS 1F009 MAHJONG TILE THREE OF CHARACTERS 1F00A MAHJONG TILE FOUR OF CHARACTERS 1F00B MAHJONG TILE FIVE OF CHARACTERS 1F00C MAHJONG TILE SIX OF CHARACTERS 1F00D MAHJONG TILE SEVEN OF CHARACTERS 1F00E MAHJONG TILE EIGHT OF CHARACTERS 1F00F MAHJONG TILE NINE OF CHARACTERS 1F010 MAHJONG TILE ONE OF BAMBOOS 1F011 MAHJONG TILE TWO OF BAMBOOS 1F012 MAHJONG TILE THREE OF BAMBOOS 1F013 MAHJONG TILE FOUR OF BAMBOOS 1F014 MAHJONG TILE FIVE OF BAMBOOS 1F015 MAHJONG TILE SIX OF BAMBOOS 1F016 MAHJONG TILE SEVEN OF BAMBOOS 1F017 MAHJONG TILE EIGHT OF BAMBOOS 1F018 MAHJONG TILE NINE OF BAMBOOS 1F019 MAHJONG TILE ONE OF CIRCLES 1F01A MAHJONG TILE TWO OF CIRCLES 1F01B MAHJONG TILE THREE OF CIRCLES 1F01C MAHJONG TILE FOUR OF CIRCLES 1F01D MAHJONG TILE FIVE OF CIRCLES 1F01E MAHJONG TILE SIX OF CIRCLES 1F01F MAHJONG TILE SEVEN OF CIRCLES 1F020 MAHJONG TILE EIGHT OF CIRCLES 1F021 MAHJONG TILE NINE OF CIRCLES 1F022 MAHJONG TILE PLUM 1F023 MAHJONG TILE ORCHID 1F024 MAHJONG TILE BAMBOO 1F025 MAHJONG TILE CHRYSANTHEMUM 1F026 MAHJONG TILE SPRING 1F027 MAHJONG TILE SUMMER 1F028 MAHJONG TILE AUTUMN 1F029 MAHJONG TILE WINTER 1F02A MAHJONG TILE JOKER 1F02B MAHJONG TILE BACK 1F030 DOMINO TILE HORIZONTAL BACK 1F031 DOMINO TILE HORIZONTAL-00-00 1F032 DOMINO TILE HORIZONTAL-00-01 1F033 DOMINO TILE HORIZONTAL-00-02 1F034 DOMINO TILE HORIZONTAL-00-03 1F035 DOMINO TILE HORIZONTAL-00-04 1F036 DOMINO TILE HORIZONTAL-00-05 1F037 DOMINO TILE HORIZONTAL-00-06 1F038 DOMINO TILE HORIZONTAL-01-00 1F039 DOMINO TILE HORIZONTAL-01-01 1F03A DOMINO TILE HORIZONTAL-01-02 1F03B DOMINO TILE HORIZONTAL-01-03 1F03C DOMINO TILE HORIZONTAL-01-04 1F03D DOMINO TILE HORIZONTAL-01-05 1F03E DOMINO TILE HORIZONTAL-01-06 1F03F DOMINO TILE HORIZONTAL-02-00 1F040 DOMINO TILE HORIZONTAL-02-01 1F041 DOMINO TILE HORIZONTAL-02-02 1F042 DOMINO TILE HORIZONTAL-02-03 1F043 DOMINO TILE HORIZONTAL-02-04 1F044 DOMINO TILE HORIZONTAL-02-05 1F045 DOMINO TILE HORIZONTAL-02-06 1F046 DOMINO TILE HORIZONTAL-03-00 1F047 DOMINO TILE HORIZONTAL-03-01 1F048 DOMINO TILE HORIZONTAL-03-02 1F049 DOMINO TILE HORIZONTAL-03-03 1F04A DOMINO TILE HORIZONTAL-03-04 1F04B DOMINO TILE HORIZONTAL-03-05 1F04C DOMINO TILE HORIZONTAL-03-06 1F04D DOMINO TILE HORIZONTAL-04-00 1F04E DOMINO TILE HORIZONTAL-04-01 1F04F DOMINO TILE HORIZONTAL-04-02 1F050 DOMINO TILE HORIZONTAL-04-03 1F051 DOMINO TILE HORIZONTAL-04-04 1F052 DOMINO TILE HORIZONTAL-04-05 1F053 DOMINO TILE HORIZONTAL-04-06 1F054 DOMINO TILE HORIZONTAL-05-00 1F055 DOMINO TILE HORIZONTAL-05-01 1F056 DOMINO TILE HORIZONTAL-05-02 1F057 DOMINO TILE HORIZONTAL-05-03 1F058 DOMINO TILE HORIZONTAL-05-04 1F059 DOMINO TILE HORIZONTAL-05-05 1F05A DOMINO TILE HORIZONTAL-05-06 1F05B DOMINO TILE HORIZONTAL-06-00 1F05C DOMINO TILE HORIZONTAL-06-01 1F05D DOMINO TILE HORIZONTAL-06-02 1F05E DOMINO TILE HORIZONTAL-06-03 1F05F DOMINO TILE HORIZONTAL-06-04 1F060 DOMINO TILE HORIZONTAL-06-05 1F061 DOMINO TILE HORIZONTAL-06-06 1F062 DOMINO TILE VERTICAL BACK 1F063 DOMINO TILE VERTICAL-00-00 1F064 DOMINO TILE VERTICAL-00-01 1F065 DOMINO TILE VERTICAL-00-02 1F066 DOMINO TILE VERTICAL-00-03 1F067 DOMINO TILE VERTICAL-00-04 1F068 DOMINO TILE VERTICAL-00-05 1F069 DOMINO TILE VERTICAL-00-06 1F06A DOMINO TILE VERTICAL-01-00 1F06B DOMINO TILE VERTICAL-01-01 1F06C DOMINO TILE VERTICAL-01-02 1F06D DOMINO TILE VERTICAL-01-03 1F06E DOMINO TILE VERTICAL-01-04 1F06F DOMINO TILE VERTICAL-01-05 1F070 DOMINO TILE VERTICAL-01-06 1F071 DOMINO TILE VERTICAL-02-00 1F072 DOMINO TILE VERTICAL-02-01 1F073 DOMINO TILE VERTICAL-02-02 1F074 DOMINO TILE VERTICAL-02-03 1F075 DOMINO TILE VERTICAL-02-04 1F076 DOMINO TILE VERTICAL-02-05 1F077 DOMINO TILE VERTICAL-02-06 1F078 DOMINO TILE VERTICAL-03-00 1F079 DOMINO TILE VERTICAL-03-01 1F07A DOMINO TILE VERTICAL-03-02 1F07B DOMINO TILE VERTICAL-03-03 1F07C DOMINO TILE VERTICAL-03-04 1F07D DOMINO TILE VERTICAL-03-05 1F07E DOMINO TILE VERTICAL-03-06 1F07F DOMINO TILE VERTICAL-04-00 1F080 DOMINO TILE VERTICAL-04-01 1F081 DOMINO TILE VERTICAL-04-02 1F082 DOMINO TILE VERTICAL-04-03 1F083 DOMINO TILE VERTICAL-04-04 1F084 DOMINO TILE VERTICAL-04-05 1F085 DOMINO TILE VERTICAL-04-06 1F086 DOMINO TILE VERTICAL-05-00 1F087 DOMINO TILE VERTICAL-05-01 1F088 DOMINO TILE VERTICAL-05-02 1F089 DOMINO TILE VERTICAL-05-03 1F08A DOMINO TILE VERTICAL-05-04 1F08B DOMINO TILE VERTICAL-05-05 1F08C DOMINO TILE VERTICAL-05-06 1F08D DOMINO TILE VERTICAL-06-00 1F08E DOMINO TILE VERTICAL-06-01 1F08F DOMINO TILE VERTICAL-06-02 1F090 DOMINO TILE VERTICAL-06-03 1F091 DOMINO TILE VERTICAL-06-04 1F092 DOMINO TILE VERTICAL-06-05 1F093 DOMINO TILE VERTICAL-06-06 1F0A0 PLAYING CARD BACK 1F0A1 PLAYING CARD ACE OF SPADES 1F0A2 PLAYING CARD TWO OF SPADES 1F0A3 PLAYING CARD THREE OF SPADES 1F0A4 PLAYING CARD FOUR OF SPADES 1F0A5 PLAYING CARD FIVE OF SPADES 1F0A6 PLAYING CARD SIX OF SPADES 1F0A7 PLAYING CARD SEVEN OF SPADES 1F0A8 PLAYING CARD EIGHT OF SPADES 1F0A9 PLAYING CARD NINE OF SPADES 1F0AA PLAYING CARD TEN OF SPADES 1F0AB PLAYING CARD JACK OF SPADES 1F0AC PLAYING CARD KNIGHT OF SPADES 1F0AD PLAYING CARD QUEEN OF SPADES 1F0AE PLAYING CARD KING OF SPADES 1F0B1 PLAYING CARD ACE OF HEARTS 1F0B2 PLAYING CARD TWO OF HEARTS 1F0B3 PLAYING CARD THREE OF HEARTS 1F0B4 PLAYING CARD FOUR OF HEARTS 1F0B5 PLAYING CARD FIVE OF HEARTS 1F0B6 PLAYING CARD SIX OF HEARTS 1F0B7 PLAYING CARD SEVEN OF HEARTS 1F0B8 PLAYING CARD EIGHT OF HEARTS 1F0B9 PLAYING CARD NINE OF HEARTS 1F0BA PLAYING CARD TEN OF HEARTS 1F0BB PLAYING CARD JACK OF HEARTS 1F0BC PLAYING CARD KNIGHT OF HEARTS 1F0BD PLAYING CARD QUEEN OF HEARTS 1F0BE PLAYING CARD KING OF HEARTS 1F0BF PLAYING CARD RED JOKER 1F0C1 PLAYING CARD ACE OF DIAMONDS 1F0C2 PLAYING CARD TWO OF DIAMONDS 1F0C3 PLAYING CARD THREE OF DIAMONDS 1F0C4 PLAYING CARD FOUR OF DIAMONDS 1F0C5 PLAYING CARD FIVE OF DIAMONDS 1F0C6 PLAYING CARD SIX OF DIAMONDS 1F0C7 PLAYING CARD SEVEN OF DIAMONDS 1F0C8 PLAYING CARD EIGHT OF DIAMONDS 1F0C9 PLAYING CARD NINE OF DIAMONDS 1F0CA PLAYING CARD TEN OF DIAMONDS 1F0CB PLAYING CARD JACK OF DIAMONDS 1F0CC PLAYING CARD KNIGHT OF DIAMONDS 1F0CD PLAYING CARD QUEEN OF DIAMONDS 1F0CE PLAYING CARD KING OF DIAMONDS 1F0CF PLAYING CARD BLACK JOKER 1F0D1 PLAYING CARD ACE OF CLUBS 1F0D2 PLAYING CARD TWO OF CLUBS 1F0D3 PLAYING CARD THREE OF CLUBS 1F0D4 PLAYING CARD FOUR OF CLUBS 1F0D5 PLAYING CARD FIVE OF CLUBS 1F0D6 PLAYING CARD SIX OF CLUBS 1F0D7 PLAYING CARD SEVEN OF CLUBS 1F0D8 PLAYING CARD EIGHT OF CLUBS 1F0D9 PLAYING CARD NINE OF CLUBS 1F0DA PLAYING CARD TEN OF CLUBS 1F0DB PLAYING CARD JACK OF CLUBS 1F0DC PLAYING CARD KNIGHT OF CLUBS 1F0DD PLAYING CARD QUEEN OF CLUBS 1F0DE PLAYING CARD KING OF CLUBS 1F0DF PLAYING CARD WHITE JOKER 1F0E0 PLAYING CARD FOOL 1F0E1 PLAYING CARD TRUMP-1 1F0E2 PLAYING CARD TRUMP-2 1F0E3 PLAYING CARD TRUMP-3 1F0E4 PLAYING CARD TRUMP-4 1F0E5 PLAYING CARD TRUMP-5 1F0E6 PLAYING CARD TRUMP-6 1F0E7 PLAYING CARD TRUMP-7 1F0E8 PLAYING CARD TRUMP-8 1F0E9 PLAYING CARD TRUMP-9 1F0EA PLAYING CARD TRUMP-10 1F0EB PLAYING CARD TRUMP-11 1F0EC PLAYING CARD TRUMP-12 1F0ED PLAYING CARD TRUMP-13 1F0EE PLAYING CARD TRUMP-14 1F0EF PLAYING CARD TRUMP-15 1F0F0 PLAYING CARD TRUMP-16 1F0F1 PLAYING CARD TRUMP-17 1F0F2 PLAYING CARD TRUMP-18 1F0F3 PLAYING CARD TRUMP-19 1F0F4 PLAYING CARD TRUMP-20 1F0F5 PLAYING CARD TRUMP-21 1F100 DIGIT ZERO FULL STOP 1F101 DIGIT ZERO COMMA 1F102 DIGIT ONE COMMA 1F103 DIGIT TWO COMMA 1F104 DIGIT THREE COMMA 1F105 DIGIT FOUR COMMA 1F106 DIGIT FIVE COMMA 1F107 DIGIT SIX COMMA 1F108 DIGIT SEVEN COMMA 1F109 DIGIT EIGHT COMMA 1F10A DIGIT NINE COMMA 1F10B DINGBAT CIRCLED SANS-SERIF DIGIT ZERO 1F10C DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT ZERO 1F10D CIRCLED ZERO WITH SLASH 1F10E CIRCLED ANTICLOCKWISE ARROW 1F10F CIRCLED DOLLAR SIGN WITH OVERLAID BACKSLASH 1F110 PARENTHESIZED LATIN CAPITAL LETTER A 1F111 PARENTHESIZED LATIN CAPITAL LETTER B 1F112 PARENTHESIZED LATIN CAPITAL LETTER C 1F113 PARENTHESIZED LATIN CAPITAL LETTER D 1F114 PARENTHESIZED LATIN CAPITAL LETTER E 1F115 PARENTHESIZED LATIN CAPITAL LETTER F 1F116 PARENTHESIZED LATIN CAPITAL LETTER G 1F117 PARENTHESIZED LATIN CAPITAL LETTER H 1F118 PARENTHESIZED LATIN CAPITAL LETTER I 1F119 PARENTHESIZED LATIN CAPITAL LETTER J 1F11A PARENTHESIZED LATIN CAPITAL LETTER K 1F11B PARENTHESIZED LATIN CAPITAL LETTER L 1F11C PARENTHESIZED LATIN CAPITAL LETTER M 1F11D PARENTHESIZED LATIN CAPITAL LETTER N 1F11E PARENTHESIZED LATIN CAPITAL LETTER O 1F11F PARENTHESIZED LATIN CAPITAL LETTER P 1F120 PARENTHESIZED LATIN CAPITAL LETTER Q 1F121 PARENTHESIZED LATIN CAPITAL LETTER R 1F122 PARENTHESIZED LATIN CAPITAL LETTER S 1F123 PARENTHESIZED LATIN CAPITAL LETTER T 1F124 PARENTHESIZED LATIN CAPITAL LETTER U 1F125 PARENTHESIZED LATIN CAPITAL LETTER V 1F126 PARENTHESIZED LATIN CAPITAL LETTER W 1F127 PARENTHESIZED LATIN CAPITAL LETTER X 1F128 PARENTHESIZED LATIN CAPITAL LETTER Y 1F129 PARENTHESIZED LATIN CAPITAL LETTER Z 1F12A TORTOISE SHELL BRACKETED LATIN CAPITAL LETTER S 1F12B CIRCLED ITALIC LATIN CAPITAL LETTER C 1F12C CIRCLED ITALIC LATIN CAPITAL LETTER R 1F12D CIRCLED CD 1F12E CIRCLED WZ 1F12F COPYLEFT SYMBOL 1F130 SQUARED LATIN CAPITAL LETTER A 1F131 SQUARED LATIN CAPITAL LETTER B 1F132 SQUARED LATIN CAPITAL LETTER C 1F133 SQUARED LATIN CAPITAL LETTER D 1F134 SQUARED LATIN CAPITAL LETTER E 1F135 SQUARED LATIN CAPITAL LETTER F 1F136 SQUARED LATIN CAPITAL LETTER G 1F137 SQUARED LATIN CAPITAL LETTER H 1F138 SQUARED LATIN CAPITAL LETTER I 1F139 SQUARED LATIN CAPITAL LETTER J 1F13A SQUARED LATIN CAPITAL LETTER K 1F13B SQUARED LATIN CAPITAL LETTER L 1F13C SQUARED LATIN CAPITAL LETTER M 1F13D SQUARED LATIN CAPITAL LETTER N 1F13E SQUARED LATIN CAPITAL LETTER O 1F13F SQUARED LATIN CAPITAL LETTER P 1F140 SQUARED LATIN CAPITAL LETTER Q 1F141 SQUARED LATIN CAPITAL LETTER R 1F142 SQUARED LATIN CAPITAL LETTER S 1F143 SQUARED LATIN CAPITAL LETTER T 1F144 SQUARED LATIN CAPITAL LETTER U 1F145 SQUARED LATIN CAPITAL LETTER V 1F146 SQUARED LATIN CAPITAL LETTER W 1F147 SQUARED LATIN CAPITAL LETTER X 1F148 SQUARED LATIN CAPITAL LETTER Y 1F149 SQUARED LATIN CAPITAL LETTER Z 1F14A SQUARED HV 1F14B SQUARED MV 1F14C SQUARED SD 1F14D SQUARED SS 1F14E SQUARED PPV 1F14F SQUARED WC 1F150 NEGATIVE CIRCLED LATIN CAPITAL LETTER A 1F151 NEGATIVE CIRCLED LATIN CAPITAL LETTER B 1F152 NEGATIVE CIRCLED LATIN CAPITAL LETTER C 1F153 NEGATIVE CIRCLED LATIN CAPITAL LETTER D 1F154 NEGATIVE CIRCLED LATIN CAPITAL LETTER E 1F155 NEGATIVE CIRCLED LATIN CAPITAL LETTER F 1F156 NEGATIVE CIRCLED LATIN CAPITAL LETTER G 1F157 NEGATIVE CIRCLED LATIN CAPITAL LETTER H 1F158 NEGATIVE CIRCLED LATIN CAPITAL LETTER I 1F159 NEGATIVE CIRCLED LATIN CAPITAL LETTER J 1F15A NEGATIVE CIRCLED LATIN CAPITAL LETTER K 1F15B NEGATIVE CIRCLED LATIN CAPITAL LETTER L 1F15C NEGATIVE CIRCLED LATIN CAPITAL LETTER M 1F15D NEGATIVE CIRCLED LATIN CAPITAL LETTER N 1F15E NEGATIVE CIRCLED LATIN CAPITAL LETTER O 1F15F NEGATIVE CIRCLED LATIN CAPITAL LETTER P 1F160 NEGATIVE CIRCLED LATIN CAPITAL LETTER Q 1F161 NEGATIVE CIRCLED LATIN CAPITAL LETTER R 1F162 NEGATIVE CIRCLED LATIN CAPITAL LETTER S 1F163 NEGATIVE CIRCLED LATIN CAPITAL LETTER T 1F164 NEGATIVE CIRCLED LATIN CAPITAL LETTER U 1F165 NEGATIVE CIRCLED LATIN CAPITAL LETTER V 1F166 NEGATIVE CIRCLED LATIN CAPITAL LETTER W 1F167 NEGATIVE CIRCLED LATIN CAPITAL LETTER X 1F168 NEGATIVE CIRCLED LATIN CAPITAL LETTER Y 1F169 NEGATIVE CIRCLED LATIN CAPITAL LETTER Z 1F16A RAISED MC SIGN 1F16B RAISED MD SIGN 1F16C RAISED MR SIGN 1F16D CIRCLED CC 1F16E CIRCLED C WITH OVERLAID BACKSLASH 1F16F CIRCLED HUMAN FIGURE 1F170 NEGATIVE SQUARED LATIN CAPITAL LETTER A 1F171 NEGATIVE SQUARED LATIN CAPITAL LETTER B 1F172 NEGATIVE SQUARED LATIN CAPITAL LETTER C 1F173 NEGATIVE SQUARED LATIN CAPITAL LETTER D 1F174 NEGATIVE SQUARED LATIN CAPITAL LETTER E 1F175 NEGATIVE SQUARED LATIN CAPITAL LETTER F 1F176 NEGATIVE SQUARED LATIN CAPITAL LETTER G 1F177 NEGATIVE SQUARED LATIN CAPITAL LETTER H 1F178 NEGATIVE SQUARED LATIN CAPITAL LETTER I 1F179 NEGATIVE SQUARED LATIN CAPITAL LETTER J 1F17A NEGATIVE SQUARED LATIN CAPITAL LETTER K 1F17B NEGATIVE SQUARED LATIN CAPITAL LETTER L 1F17C NEGATIVE SQUARED LATIN CAPITAL LETTER M 1F17D NEGATIVE SQUARED LATIN CAPITAL LETTER N 1F17E NEGATIVE SQUARED LATIN CAPITAL LETTER O 1F17F NEGATIVE SQUARED LATIN CAPITAL LETTER P 1F180 NEGATIVE SQUARED LATIN CAPITAL LETTER Q 1F181 NEGATIVE SQUARED LATIN CAPITAL LETTER R 1F182 NEGATIVE SQUARED LATIN CAPITAL LETTER S 1F183 NEGATIVE SQUARED LATIN CAPITAL LETTER T 1F184 NEGATIVE SQUARED LATIN CAPITAL LETTER U 1F185 NEGATIVE SQUARED LATIN CAPITAL LETTER V 1F186 NEGATIVE SQUARED LATIN CAPITAL LETTER W 1F187 NEGATIVE SQUARED LATIN CAPITAL LETTER X 1F188 NEGATIVE SQUARED LATIN CAPITAL LETTER Y 1F189 NEGATIVE SQUARED LATIN CAPITAL LETTER Z 1F18A CROSSED NEGATIVE SQUARED LATIN CAPITAL LETTER P 1F18B NEGATIVE SQUARED IC 1F18C NEGATIVE SQUARED PA 1F18D NEGATIVE SQUARED SA 1F18E NEGATIVE SQUARED AB 1F18F NEGATIVE SQUARED WC 1F190 SQUARE DJ 1F191 SQUARED CL 1F192 SQUARED COOL 1F193 SQUARED FREE 1F194 SQUARED ID 1F195 SQUARED NEW 1F196 SQUARED NG 1F197 SQUARED OK 1F198 SQUARED SOS 1F199 SQUARED UP WITH EXCLAMATION MARK 1F19A SQUARED VS 1F19B SQUARED THREE D 1F19C SQUARED SECOND SCREEN 1F19D SQUARED TWO K 1F19E SQUARED FOUR K 1F19F SQUARED EIGHT K 1F1A0 SQUARED FIVE POINT ONE 1F1A1 SQUARED SEVEN POINT ONE 1F1A2 SQUARED TWENTY-TWO POINT TWO 1F1A3 SQUARED SIXTY P 1F1A4 SQUARED ONE HUNDRED TWENTY P 1F1A5 SQUARED LATIN SMALL LETTER D 1F1A6 SQUARED HC 1F1A7 SQUARED HDR 1F1A8 SQUARED HI-RES 1F1A9 SQUARED LOSSLESS 1F1AA SQUARED SHV 1F1AB SQUARED UHD 1F1AC SQUARED VOD 1F1AD MASK WORK SYMBOL 1F1E6 REGIONAL INDICATOR SYMBOL LETTER A 1F1E7 REGIONAL INDICATOR SYMBOL LETTER B 1F1E8 REGIONAL INDICATOR SYMBOL LETTER C 1F1E9 REGIONAL INDICATOR SYMBOL LETTER D 1F1EA REGIONAL INDICATOR SYMBOL LETTER E 1F1EB REGIONAL INDICATOR SYMBOL LETTER F 1F1EC REGIONAL INDICATOR SYMBOL LETTER G 1F1ED REGIONAL INDICATOR SYMBOL LETTER H 1F1EE REGIONAL INDICATOR SYMBOL LETTER I 1F1EF REGIONAL INDICATOR SYMBOL LETTER J 1F1F0 REGIONAL INDICATOR SYMBOL LETTER K 1F1F1 REGIONAL INDICATOR SYMBOL LETTER L 1F1F2 REGIONAL INDICATOR SYMBOL LETTER M 1F1F3 REGIONAL INDICATOR SYMBOL LETTER N 1F1F4 REGIONAL INDICATOR SYMBOL LETTER O 1F1F5 REGIONAL INDICATOR SYMBOL LETTER P 1F1F6 REGIONAL INDICATOR SYMBOL LETTER Q 1F1F7 REGIONAL INDICATOR SYMBOL LETTER R 1F1F8 REGIONAL INDICATOR SYMBOL LETTER S 1F1F9 REGIONAL INDICATOR SYMBOL LETTER T 1F1FA REGIONAL INDICATOR SYMBOL LETTER U 1F1FB REGIONAL INDICATOR SYMBOL LETTER V 1F1FC REGIONAL INDICATOR SYMBOL LETTER W 1F1FD REGIONAL INDICATOR SYMBOL LETTER X 1F1FE REGIONAL INDICATOR SYMBOL LETTER Y 1F1FF REGIONAL INDICATOR SYMBOL LETTER Z 1F200 SQUARE HIRAGANA HOKA 1F201 SQUARED KATAKANA KOKO 1F202 SQUARED KATAKANA SA 1F210 SQUARED CJK UNIFIED IDEOGRAPH-624B 1F211 SQUARED CJK UNIFIED IDEOGRAPH-5B57 1F212 SQUARED CJK UNIFIED IDEOGRAPH-53CC 1F213 SQUARED KATAKANA DE 1F214 SQUARED CJK UNIFIED IDEOGRAPH-4E8C 1F215 SQUARED CJK UNIFIED IDEOGRAPH-591A 1F216 SQUARED CJK UNIFIED IDEOGRAPH-89E3 1F217 SQUARED CJK UNIFIED IDEOGRAPH-5929 1F218 SQUARED CJK UNIFIED IDEOGRAPH-4EA4 1F219 SQUARED CJK UNIFIED IDEOGRAPH-6620 1F21A SQUARED CJK UNIFIED IDEOGRAPH-7121 1F21B SQUARED CJK UNIFIED IDEOGRAPH-6599 1F21C SQUARED CJK UNIFIED IDEOGRAPH-524D 1F21D SQUARED CJK UNIFIED IDEOGRAPH-5F8C 1F21E SQUARED CJK UNIFIED IDEOGRAPH-518D 1F21F SQUARED CJK UNIFIED IDEOGRAPH-65B0 1F220 SQUARED CJK UNIFIED IDEOGRAPH-521D 1F221 SQUARED CJK UNIFIED IDEOGRAPH-7D42 1F222 SQUARED CJK UNIFIED IDEOGRAPH-751F 1F223 SQUARED CJK UNIFIED IDEOGRAPH-8CA9 1F224 SQUARED CJK UNIFIED IDEOGRAPH-58F0 1F225 SQUARED CJK UNIFIED IDEOGRAPH-5439 1F226 SQUARED CJK UNIFIED IDEOGRAPH-6F14 1F227 SQUARED CJK UNIFIED IDEOGRAPH-6295 1F228 SQUARED CJK UNIFIED IDEOGRAPH-6355 1F229 SQUARED CJK UNIFIED IDEOGRAPH-4E00 1F22A SQUARED CJK UNIFIED IDEOGRAPH-4E09 1F22B SQUARED CJK UNIFIED IDEOGRAPH-904A 1F22C SQUARED CJK UNIFIED IDEOGRAPH-5DE6 1F22D SQUARED CJK UNIFIED IDEOGRAPH-4E2D 1F22E SQUARED CJK UNIFIED IDEOGRAPH-53F3 1F22F SQUARED CJK UNIFIED IDEOGRAPH-6307 1F230 SQUARED CJK UNIFIED IDEOGRAPH-8D70 1F231 SQUARED CJK UNIFIED IDEOGRAPH-6253 1F232 SQUARED CJK UNIFIED IDEOGRAPH-7981 1F233 SQUARED CJK UNIFIED IDEOGRAPH-7A7A 1F234 SQUARED CJK UNIFIED IDEOGRAPH-5408 1F235 SQUARED CJK UNIFIED IDEOGRAPH-6E80 1F236 SQUARED CJK UNIFIED IDEOGRAPH-6709 1F237 SQUARED CJK UNIFIED IDEOGRAPH-6708 1F238 SQUARED CJK UNIFIED IDEOGRAPH-7533 1F239 SQUARED CJK UNIFIED IDEOGRAPH-5272 1F23A SQUARED CJK UNIFIED IDEOGRAPH-55B6 1F23B SQUARED CJK UNIFIED IDEOGRAPH-914D 1F240 TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-672C 1F241 TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-4E09 1F242 TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-4E8C 1F243 TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-5B89 1F244 TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-70B9 1F245 TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-6253 1F246 TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-76D7 1F247 TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-52DD 1F248 TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-6557 1F250 CIRCLED IDEOGRAPH ADVANTAGE 1F251 CIRCLED IDEOGRAPH ACCEPT 1F260 ROUNDED SYMBOL FOR FU 1F261 ROUNDED SYMBOL FOR LU 1F262 ROUNDED SYMBOL FOR SHOU 1F263 ROUNDED SYMBOL FOR XI 1F264 ROUNDED SYMBOL FOR SHUANGXI 1F265 ROUNDED SYMBOL FOR CAI 1F300 CYCLONE 1F301 FOGGY 1F302 CLOSED UMBRELLA 1F303 NIGHT WITH STARS 1F304 SUNRISE OVER MOUNTAINS 1F305 SUNRISE 1F306 CITYSCAPE AT DUSK 1F307 SUNSET OVER BUILDINGS 1F308 RAINBOW 1F309 BRIDGE AT NIGHT 1F30A WATER WAVE 1F30B VOLCANO 1F30C MILKY WAY 1F30D EARTH GLOBE EUROPE-AFRICA 1F30E EARTH GLOBE AMERICAS 1F30F EARTH GLOBE ASIA-AUSTRALIA 1F310 GLOBE WITH MERIDIANS 1F311 NEW MOON SYMBOL 1F312 WAXING CRESCENT MOON SYMBOL 1F313 FIRST QUARTER MOON SYMBOL 1F314 WAXING GIBBOUS MOON SYMBOL 1F315 FULL MOON SYMBOL 1F316 WANING GIBBOUS MOON SYMBOL 1F317 LAST QUARTER MOON SYMBOL 1F318 WANING CRESCENT MOON SYMBOL 1F319 CRESCENT MOON 1F31A NEW MOON WITH FACE 1F31B FIRST QUARTER MOON WITH FACE 1F31C LAST QUARTER MOON WITH FACE 1F31D FULL MOON WITH FACE 1F31E SUN WITH FACE 1F31F GLOWING STAR 1F320 SHOOTING STAR 1F321 THERMOMETER 1F322 BLACK DROPLET 1F323 WHITE SUN 1F324 WHITE SUN WITH SMALL CLOUD 1F325 WHITE SUN BEHIND CLOUD 1F326 WHITE SUN BEHIND CLOUD WITH RAIN 1F327 CLOUD WITH RAIN 1F328 CLOUD WITH SNOW 1F329 CLOUD WITH LIGHTNING 1F32A CLOUD WITH TORNADO 1F32B FOG 1F32C WIND BLOWING FACE 1F32D HOT DOG 1F32E TACO 1F32F BURRITO 1F330 CHESTNUT 1F331 SEEDLING 1F332 EVERGREEN TREE 1F333 DECIDUOUS TREE 1F334 PALM TREE 1F335 CACTUS 1F336 HOT PEPPER 1F337 TULIP 1F338 CHERRY BLOSSOM 1F339 ROSE 1F33A HIBISCUS 1F33B SUNFLOWER 1F33C BLOSSOM 1F33D EAR OF MAIZE 1F33E EAR OF RICE 1F33F HERB 1F340 FOUR LEAF CLOVER 1F341 MAPLE LEAF 1F342 FALLEN LEAF 1F343 LEAF FLUTTERING IN WIND 1F344 MUSHROOM 1F345 TOMATO 1F346 AUBERGINE 1F347 GRAPES 1F348 MELON 1F349 WATERMELON 1F34A TANGERINE 1F34B LEMON 1F34C BANANA 1F34D PINEAPPLE 1F34E RED APPLE 1F34F GREEN APPLE 1F350 PEAR 1F351 PEACH 1F352 CHERRIES 1F353 STRAWBERRY 1F354 HAMBURGER 1F355 SLICE OF PIZZA 1F356 MEAT ON BONE 1F357 POULTRY LEG 1F358 RICE CRACKER 1F359 RICE BALL 1F35A COOKED RICE 1F35B CURRY AND RICE 1F35C STEAMING BOWL 1F35D SPAGHETTI 1F35E BREAD 1F35F FRENCH FRIES 1F360 ROASTED SWEET POTATO 1F361 DANGO 1F362 ODEN 1F363 SUSHI 1F364 FRIED SHRIMP 1F365 FISH CAKE WITH SWIRL DESIGN 1F366 SOFT ICE CREAM 1F367 SHAVED ICE 1F368 ICE CREAM 1F369 DOUGHNUT 1F36A COOKIE 1F36B CHOCOLATE BAR 1F36C CANDY 1F36D LOLLIPOP 1F36E CUSTARD 1F36F HONEY POT 1F370 SHORTCAKE 1F371 BENTO BOX 1F372 POT OF FOOD 1F373 COOKING 1F374 FORK AND KNIFE 1F375 TEACUP WITHOUT HANDLE 1F376 SAKE BOTTLE AND CUP 1F377 WINE GLASS 1F378 COCKTAIL GLASS 1F379 TROPICAL DRINK 1F37A BEER MUG 1F37B CLINKING BEER MUGS 1F37C BABY BOTTLE 1F37D FORK AND KNIFE WITH PLATE 1F37E BOTTLE WITH POPPING CORK 1F37F POPCORN 1F380 RIBBON 1F381 WRAPPED PRESENT 1F382 BIRTHDAY CAKE 1F383 JACK-O-LANTERN 1F384 CHRISTMAS TREE 1F385 FATHER CHRISTMAS 1F386 FIREWORKS 1F387 FIREWORK SPARKLER 1F388 BALLOON 1F389 PARTY POPPER 1F38A CONFETTI BALL 1F38B TANABATA TREE 1F38C CROSSED FLAGS 1F38D PINE DECORATION 1F38E JAPANESE DOLLS 1F38F CARP STREAMER 1F390 WIND CHIME 1F391 MOON VIEWING CEREMONY 1F392 SCHOOL SATCHEL 1F393 GRADUATION CAP 1F394 HEART WITH TIP ON THE LEFT 1F395 BOUQUET OF FLOWERS 1F396 MILITARY MEDAL 1F397 REMINDER RIBBON 1F398 MUSICAL KEYBOARD WITH JACKS 1F399 STUDIO MICROPHONE 1F39A LEVEL SLIDER 1F39B CONTROL KNOBS 1F39C BEAMED ASCENDING MUSICAL NOTES 1F39D BEAMED DESCENDING MUSICAL NOTES 1F39E FILM FRAMES 1F39F ADMISSION TICKETS 1F3A0 CAROUSEL HORSE 1F3A1 FERRIS WHEEL 1F3A2 ROLLER COASTER 1F3A3 FISHING POLE AND FISH 1F3A4 MICROPHONE 1F3A5 MOVIE CAMERA 1F3A6 CINEMA 1F3A7 HEADPHONE 1F3A8 ARTIST PALETTE 1F3A9 TOP HAT 1F3AA CIRCUS TENT 1F3AB TICKET 1F3AC CLAPPER BOARD 1F3AD PERFORMING ARTS 1F3AE VIDEO GAME 1F3AF DIRECT HIT 1F3B0 SLOT MACHINE 1F3B1 BILLIARDS 1F3B2 GAME DIE 1F3B3 BOWLING 1F3B4 FLOWER PLAYING CARDS 1F3B5 MUSICAL NOTE 1F3B6 MULTIPLE MUSICAL NOTES 1F3B7 SAXOPHONE 1F3B8 GUITAR 1F3B9 MUSICAL KEYBOARD 1F3BA TRUMPET 1F3BB VIOLIN 1F3BC MUSICAL SCORE 1F3BD RUNNING SHIRT WITH SASH 1F3BE TENNIS RACQUET AND BALL 1F3BF SKI AND SKI BOOT 1F3C0 BASKETBALL AND HOOP 1F3C1 CHEQUERED FLAG 1F3C2 SNOWBOARDER 1F3C3 RUNNER 1F3C4 SURFER 1F3C5 SPORTS MEDAL 1F3C6 TROPHY 1F3C7 HORSE RACING 1F3C8 AMERICAN FOOTBALL 1F3C9 RUGBY FOOTBALL 1F3CA SWIMMER 1F3CB WEIGHT LIFTER 1F3CC GOLFER 1F3CD RACING MOTORCYCLE 1F3CE RACING CAR 1F3CF CRICKET BAT AND BALL 1F3D0 VOLLEYBALL 1F3D1 FIELD HOCKEY STICK AND BALL 1F3D2 ICE HOCKEY STICK AND PUCK 1F3D3 TABLE TENNIS PADDLE AND BALL 1F3D4 SNOW CAPPED MOUNTAIN 1F3D5 CAMPING 1F3D6 BEACH WITH UMBRELLA 1F3D7 BUILDING CONSTRUCTION 1F3D8 HOUSE BUILDINGS 1F3D9 CITYSCAPE 1F3DA DERELICT HOUSE BUILDING 1F3DB CLASSICAL BUILDING 1F3DC DESERT 1F3DD DESERT ISLAND 1F3DE NATIONAL PARK 1F3DF STADIUM 1F3E0 HOUSE BUILDING 1F3E1 HOUSE WITH GARDEN 1F3E2 OFFICE BUILDING 1F3E3 JAPANESE POST OFFICE 1F3E4 EUROPEAN POST OFFICE 1F3E5 HOSPITAL 1F3E6 BANK 1F3E7 AUTOMATED TELLER MACHINE 1F3E8 HOTEL 1F3E9 LOVE HOTEL 1F3EA CONVENIENCE STORE 1F3EB SCHOOL 1F3EC DEPARTMENT STORE 1F3ED FACTORY 1F3EE IZAKAYA LANTERN 1F3EF JAPANESE CASTLE 1F3F0 EUROPEAN CASTLE 1F3F1 WHITE PENNANT 1F3F2 BLACK PENNANT 1F3F3 WAVING WHITE FLAG 1F3F4 WAVING BLACK FLAG 1F3F5 ROSETTE 1F3F6 BLACK ROSETTE 1F3F7 LABEL 1F3F8 BADMINTON RACQUET AND SHUTTLECOCK 1F3F9 BOW AND ARROW 1F3FA AMPHORA 1F3FB EMOJI MODIFIER FITZPATRICK TYPE-1-2 1F3FC EMOJI MODIFIER FITZPATRICK TYPE-3 1F3FD EMOJI MODIFIER FITZPATRICK TYPE-4 1F3FE EMOJI MODIFIER FITZPATRICK TYPE-5 1F3FF EMOJI MODIFIER FITZPATRICK TYPE-6 1F400 RAT 1F401 MOUSE 1F402 OX 1F403 WATER BUFFALO 1F404 COW 1F405 TIGER 1F406 LEOPARD 1F407 RABBIT 1F408 CAT 1F409 DRAGON 1F40A CROCODILE 1F40B WHALE 1F40C SNAIL 1F40D SNAKE 1F40E HORSE 1F40F RAM 1F410 GOAT 1F411 SHEEP 1F412 MONKEY 1F413 ROOSTER 1F414 CHICKEN 1F415 DOG 1F416 PIG 1F417 BOAR 1F418 ELEPHANT 1F419 OCTOPUS 1F41A SPIRAL SHELL 1F41B BUG 1F41C ANT 1F41D HONEYBEE 1F41E LADY BEETLE 1F41F FISH 1F420 TROPICAL FISH 1F421 BLOWFISH 1F422 TURTLE 1F423 HATCHING CHICK 1F424 BABY CHICK 1F425 FRONT-FACING BABY CHICK 1F426 BIRD 1F427 PENGUIN 1F428 KOALA 1F429 POODLE 1F42A DROMEDARY CAMEL 1F42B BACTRIAN CAMEL 1F42C DOLPHIN 1F42D MOUSE FACE 1F42E COW FACE 1F42F TIGER FACE 1F430 RABBIT FACE 1F431 CAT FACE 1F432 DRAGON FACE 1F433 SPOUTING WHALE 1F434 HORSE FACE 1F435 MONKEY FACE 1F436 DOG FACE 1F437 PIG FACE 1F438 FROG FACE 1F439 HAMSTER FACE 1F43A WOLF FACE 1F43B BEAR FACE 1F43C PANDA FACE 1F43D PIG NOSE 1F43E PAW PRINTS 1F43F CHIPMUNK 1F440 EYES 1F441 EYE 1F442 EAR 1F443 NOSE 1F444 MOUTH 1F445 TONGUE 1F446 WHITE UP POINTING BACKHAND INDEX 1F447 WHITE DOWN POINTING BACKHAND INDEX 1F448 WHITE LEFT POINTING BACKHAND INDEX 1F449 WHITE RIGHT POINTING BACKHAND INDEX 1F44A FISTED HAND SIGN 1F44B WAVING HAND SIGN 1F44C OK HAND SIGN 1F44D THUMBS UP SIGN 1F44E THUMBS DOWN SIGN 1F44F CLAPPING HANDS SIGN 1F450 OPEN HANDS SIGN 1F451 CROWN 1F452 WOMANS HAT 1F453 EYEGLASSES 1F454 NECKTIE 1F455 T-SHIRT 1F456 JEANS 1F457 DRESS 1F458 KIMONO 1F459 BIKINI 1F45A WOMANS CLOTHES 1F45B PURSE 1F45C HANDBAG 1F45D POUCH 1F45E MANS SHOE 1F45F ATHLETIC SHOE 1F460 HIGH-HEELED SHOE 1F461 WOMANS SANDAL 1F462 WOMANS BOOTS 1F463 FOOTPRINTS 1F464 BUST IN SILHOUETTE 1F465 BUSTS IN SILHOUETTE 1F466 BOY 1F467 GIRL 1F468 MAN 1F469 WOMAN 1F46A FAMILY 1F46B MAN AND WOMAN HOLDING HANDS 1F46C TWO MEN HOLDING HANDS 1F46D TWO WOMEN HOLDING HANDS 1F46E POLICE OFFICER 1F46F WOMAN WITH BUNNY EARS 1F470 BRIDE WITH VEIL 1F471 PERSON WITH BLOND HAIR 1F472 MAN WITH GUA PI MAO 1F473 MAN WITH TURBAN 1F474 OLDER MAN 1F475 OLDER WOMAN 1F476 BABY 1F477 CONSTRUCTION WORKER 1F478 PRINCESS 1F479 JAPANESE OGRE 1F47A JAPANESE GOBLIN 1F47B GHOST 1F47C BABY ANGEL 1F47D EXTRATERRESTRIAL ALIEN 1F47E ALIEN MONSTER 1F47F IMP 1F480 SKULL 1F481 INFORMATION DESK PERSON 1F482 GUARDSMAN 1F483 DANCER 1F484 LIPSTICK 1F485 NAIL POLISH 1F486 FACE MASSAGE 1F487 HAIRCUT 1F488 BARBER POLE 1F489 SYRINGE 1F48A PILL 1F48B KISS MARK 1F48C LOVE LETTER 1F48D RING 1F48E GEM STONE 1F48F KISS 1F490 BOUQUET 1F491 COUPLE WITH HEART 1F492 WEDDING 1F493 BEATING HEART 1F494 BROKEN HEART 1F495 TWO HEARTS 1F496 SPARKLING HEART 1F497 GROWING HEART 1F498 HEART WITH ARROW 1F499 BLUE HEART 1F49A GREEN HEART 1F49B YELLOW HEART 1F49C PURPLE HEART 1F49D HEART WITH RIBBON 1F49E REVOLVING HEARTS 1F49F HEART DECORATION 1F4A0 DIAMOND SHAPE WITH A DOT INSIDE 1F4A1 ELECTRIC LIGHT BULB 1F4A2 ANGER SYMBOL 1F4A3 BOMB 1F4A4 SLEEPING SYMBOL 1F4A5 COLLISION SYMBOL 1F4A6 SPLASHING SWEAT SYMBOL 1F4A7 DROPLET 1F4A8 DASH SYMBOL 1F4A9 PILE OF POO 1F4AA FLEXED BICEPS 1F4AB DIZZY SYMBOL 1F4AC SPEECH BALLOON 1F4AD THOUGHT BALLOON 1F4AE WHITE FLOWER 1F4AF HUNDRED POINTS SYMBOL 1F4B0 MONEY BAG 1F4B1 CURRENCY EXCHANGE 1F4B2 HEAVY DOLLAR SIGN 1F4B3 CREDIT CARD 1F4B4 BANKNOTE WITH YEN SIGN 1F4B5 BANKNOTE WITH DOLLAR SIGN 1F4B6 BANKNOTE WITH EURO SIGN 1F4B7 BANKNOTE WITH POUND SIGN 1F4B8 MONEY WITH WINGS 1F4B9 CHART WITH UPWARDS TREND AND YEN SIGN 1F4BA SEAT 1F4BB PERSONAL COMPUTER 1F4BC BRIEFCASE 1F4BD MINIDISC 1F4BE FLOPPY DISK 1F4BF OPTICAL DISC 1F4C0 DVD 1F4C1 FILE FOLDER 1F4C2 OPEN FILE FOLDER 1F4C3 PAGE WITH CURL 1F4C4 PAGE FACING UP 1F4C5 CALENDAR 1F4C6 TEAR-OFF CALENDAR 1F4C7 CARD INDEX 1F4C8 CHART WITH UPWARDS TREND 1F4C9 CHART WITH DOWNWARDS TREND 1F4CA BAR CHART 1F4CB CLIPBOARD 1F4CC PUSHPIN 1F4CD ROUND PUSHPIN 1F4CE PAPERCLIP 1F4CF STRAIGHT RULER 1F4D0 TRIANGULAR RULER 1F4D1 BOOKMARK TABS 1F4D2 LEDGER 1F4D3 NOTEBOOK 1F4D4 NOTEBOOK WITH DECORATIVE COVER 1F4D5 CLOSED BOOK 1F4D6 OPEN BOOK 1F4D7 GREEN BOOK 1F4D8 BLUE BOOK 1F4D9 ORANGE BOOK 1F4DA BOOKS 1F4DB NAME BADGE 1F4DC SCROLL 1F4DD MEMO 1F4DE TELEPHONE RECEIVER 1F4DF PAGER 1F4E0 FAX MACHINE 1F4E1 SATELLITE ANTENNA 1F4E2 PUBLIC ADDRESS LOUDSPEAKER 1F4E3 CHEERING MEGAPHONE 1F4E4 OUTBOX TRAY 1F4E5 INBOX TRAY 1F4E6 PACKAGE 1F4E7 E-MAIL SYMBOL 1F4E8 INCOMING ENVELOPE 1F4E9 ENVELOPE WITH DOWNWARDS ARROW ABOVE 1F4EA CLOSED MAILBOX WITH LOWERED FLAG 1F4EB CLOSED MAILBOX WITH RAISED FLAG 1F4EC OPEN MAILBOX WITH RAISED FLAG 1F4ED OPEN MAILBOX WITH LOWERED FLAG 1F4EE POSTBOX 1F4EF POSTAL HORN 1F4F0 NEWSPAPER 1F4F1 MOBILE PHONE 1F4F2 MOBILE PHONE WITH RIGHTWARDS ARROW AT LEFT 1F4F3 VIBRATION MODE 1F4F4 MOBILE PHONE OFF 1F4F5 NO MOBILE PHONES 1F4F6 ANTENNA WITH BARS 1F4F7 CAMERA 1F4F8 CAMERA WITH FLASH 1F4F9 VIDEO CAMERA 1F4FA TELEVISION 1F4FB RADIO 1F4FC VIDEOCASSETTE 1F4FD FILM PROJECTOR 1F4FE PORTABLE STEREO 1F4FF PRAYER BEADS 1F500 TWISTED RIGHTWARDS ARROWS 1F501 CLOCKWISE RIGHTWARDS AND LEFTWARDS OPEN CIRCLE ARROWS 1F502 CLOCKWISE RIGHTWARDS AND LEFTWARDS OPEN CIRCLE ARROWS WITH CIRCLED ONE OVERLAY 1F503 CLOCKWISE DOWNWARDS AND UPWARDS OPEN CIRCLE ARROWS 1F504 ANTICLOCKWISE DOWNWARDS AND UPWARDS OPEN CIRCLE ARROWS 1F505 LOW BRIGHTNESS SYMBOL 1F506 HIGH BRIGHTNESS SYMBOL 1F507 SPEAKER WITH CANCELLATION STROKE 1F508 SPEAKER 1F509 SPEAKER WITH ONE SOUND WAVE 1F50A SPEAKER WITH THREE SOUND WAVES 1F50B BATTERY 1F50C ELECTRIC PLUG 1F50D LEFT-POINTING MAGNIFYING GLASS 1F50E RIGHT-POINTING MAGNIFYING GLASS 1F50F LOCK WITH INK PEN 1F510 CLOSED LOCK WITH KEY 1F511 KEY 1F512 LOCK 1F513 OPEN LOCK 1F514 BELL 1F515 BELL WITH CANCELLATION STROKE 1F516 BOOKMARK 1F517 LINK SYMBOL 1F518 RADIO BUTTON 1F519 BACK WITH LEFTWARDS ARROW ABOVE 1F51A END WITH LEFTWARDS ARROW ABOVE 1F51B ON WITH EXCLAMATION MARK WITH LEFT RIGHT ARROW ABOVE 1F51C SOON WITH RIGHTWARDS ARROW ABOVE 1F51D TOP WITH UPWARDS ARROW ABOVE 1F51E NO ONE UNDER EIGHTEEN SYMBOL 1F51F KEYCAP TEN 1F520 INPUT SYMBOL FOR LATIN CAPITAL LETTERS 1F521 INPUT SYMBOL FOR LATIN SMALL LETTERS 1F522 INPUT SYMBOL FOR NUMBERS 1F523 INPUT SYMBOL FOR SYMBOLS 1F524 INPUT SYMBOL FOR LATIN LETTERS 1F525 FIRE 1F526 ELECTRIC TORCH 1F527 WRENCH 1F528 HAMMER 1F529 NUT AND BOLT 1F52A HOCHO 1F52B PISTOL 1F52C MICROSCOPE 1F52D TELESCOPE 1F52E CRYSTAL BALL 1F52F SIX POINTED STAR WITH MIDDLE DOT 1F530 JAPANESE SYMBOL FOR BEGINNER 1F531 TRIDENT EMBLEM 1F532 BLACK SQUARE BUTTON 1F533 WHITE SQUARE BUTTON 1F534 LARGE RED CIRCLE 1F535 LARGE BLUE CIRCLE 1F536 LARGE ORANGE DIAMOND 1F537 LARGE BLUE DIAMOND 1F538 SMALL ORANGE DIAMOND 1F539 SMALL BLUE DIAMOND 1F53A UP-POINTING RED TRIANGLE 1F53B DOWN-POINTING RED TRIANGLE 1F53C UP-POINTING SMALL RED TRIANGLE 1F53D DOWN-POINTING SMALL RED TRIANGLE 1F53E LOWER RIGHT SHADOWED WHITE CIRCLE 1F53F UPPER RIGHT SHADOWED WHITE CIRCLE 1F540 CIRCLED CROSS POMMEE 1F541 CROSS POMMEE WITH HALF-CIRCLE BELOW 1F542 CROSS POMMEE 1F543 NOTCHED LEFT SEMICIRCLE WITH THREE DOTS 1F544 NOTCHED RIGHT SEMICIRCLE WITH THREE DOTS 1F545 SYMBOL FOR MARKS CHAPTER 1F546 WHITE LATIN CROSS 1F547 HEAVY LATIN CROSS 1F548 CELTIC CROSS 1F549 OM SYMBOL 1F54A DOVE OF PEACE 1F54B KAABA 1F54C MOSQUE 1F54D SYNAGOGUE 1F54E MENORAH WITH NINE BRANCHES 1F54F BOWL OF HYGIEIA 1F550 CLOCK FACE ONE OCLOCK 1F551 CLOCK FACE TWO OCLOCK 1F552 CLOCK FACE THREE OCLOCK 1F553 CLOCK FACE FOUR OCLOCK 1F554 CLOCK FACE FIVE OCLOCK 1F555 CLOCK FACE SIX OCLOCK 1F556 CLOCK FACE SEVEN OCLOCK 1F557 CLOCK FACE EIGHT OCLOCK 1F558 CLOCK FACE NINE OCLOCK 1F559 CLOCK FACE TEN OCLOCK 1F55A CLOCK FACE ELEVEN OCLOCK 1F55B CLOCK FACE TWELVE OCLOCK 1F55C CLOCK FACE ONE-THIRTY 1F55D CLOCK FACE TWO-THIRTY 1F55E CLOCK FACE THREE-THIRTY 1F55F CLOCK FACE FOUR-THIRTY 1F560 CLOCK FACE FIVE-THIRTY 1F561 CLOCK FACE SIX-THIRTY 1F562 CLOCK FACE SEVEN-THIRTY 1F563 CLOCK FACE EIGHT-THIRTY 1F564 CLOCK FACE NINE-THIRTY 1F565 CLOCK FACE TEN-THIRTY 1F566 CLOCK FACE ELEVEN-THIRTY 1F567 CLOCK FACE TWELVE-THIRTY 1F568 RIGHT SPEAKER 1F569 RIGHT SPEAKER WITH ONE SOUND WAVE 1F56A RIGHT SPEAKER WITH THREE SOUND WAVES 1F56B BULLHORN 1F56C BULLHORN WITH SOUND WAVES 1F56D RINGING BELL 1F56E BOOK 1F56F CANDLE 1F570 MANTELPIECE CLOCK 1F571 BLACK SKULL AND CROSSBONES 1F572 NO PIRACY 1F573 HOLE 1F574 MAN IN BUSINESS SUIT LEVITATING 1F575 SLEUTH OR SPY 1F576 DARK SUNGLASSES 1F577 SPIDER 1F578 SPIDER WEB 1F579 JOYSTICK 1F57A MAN DANCING 1F57B LEFT HAND TELEPHONE RECEIVER 1F57C TELEPHONE RECEIVER WITH PAGE 1F57D RIGHT HAND TELEPHONE RECEIVER 1F57E WHITE TOUCHTONE TELEPHONE 1F57F BLACK TOUCHTONE TELEPHONE 1F580 TELEPHONE ON TOP OF MODEM 1F581 CLAMSHELL MOBILE PHONE 1F582 BACK OF ENVELOPE 1F583 STAMPED ENVELOPE 1F584 ENVELOPE WITH LIGHTNING 1F585 FLYING ENVELOPE 1F586 PEN OVER STAMPED ENVELOPE 1F587 LINKED PAPERCLIPS 1F588 BLACK PUSHPIN 1F589 LOWER LEFT PENCIL 1F58A LOWER LEFT BALLPOINT PEN 1F58B LOWER LEFT FOUNTAIN PEN 1F58C LOWER LEFT PAINTBRUSH 1F58D LOWER LEFT CRAYON 1F58E LEFT WRITING HAND 1F58F TURNED OK HAND SIGN 1F590 RAISED HAND WITH FINGERS SPLAYED 1F591 REVERSED RAISED HAND WITH FINGERS SPLAYED 1F592 REVERSED THUMBS UP SIGN 1F593 REVERSED THUMBS DOWN SIGN 1F594 REVERSED VICTORY HAND 1F595 REVERSED HAND WITH MIDDLE FINGER EXTENDED 1F596 RAISED HAND WITH PART BETWEEN MIDDLE AND RING FINGERS 1F597 WHITE DOWN POINTING LEFT HAND INDEX 1F598 SIDEWAYS WHITE LEFT POINTING INDEX 1F599 SIDEWAYS WHITE RIGHT POINTING INDEX 1F59A SIDEWAYS BLACK LEFT POINTING INDEX 1F59B SIDEWAYS BLACK RIGHT POINTING INDEX 1F59C BLACK LEFT POINTING BACKHAND INDEX 1F59D BLACK RIGHT POINTING BACKHAND INDEX 1F59E SIDEWAYS WHITE UP POINTING INDEX 1F59F SIDEWAYS WHITE DOWN POINTING INDEX 1F5A0 SIDEWAYS BLACK UP POINTING INDEX 1F5A1 SIDEWAYS BLACK DOWN POINTING INDEX 1F5A2 BLACK UP POINTING BACKHAND INDEX 1F5A3 BLACK DOWN POINTING BACKHAND INDEX 1F5A4 BLACK HEART 1F5A5 DESKTOP COMPUTER 1F5A6 KEYBOARD AND MOUSE 1F5A7 THREE NETWORKED COMPUTERS 1F5A8 PRINTER 1F5A9 POCKET CALCULATOR 1F5AA BLACK HARD SHELL FLOPPY DISK 1F5AB WHITE HARD SHELL FLOPPY DISK 1F5AC SOFT SHELL FLOPPY DISK 1F5AD TAPE CARTRIDGE 1F5AE WIRED KEYBOARD 1F5AF ONE BUTTON MOUSE 1F5B0 TWO BUTTON MOUSE 1F5B1 THREE BUTTON MOUSE 1F5B2 TRACKBALL 1F5B3 OLD PERSONAL COMPUTER 1F5B4 HARD DISK 1F5B5 SCREEN 1F5B6 PRINTER ICON 1F5B7 FAX ICON 1F5B8 OPTICAL DISC ICON 1F5B9 DOCUMENT WITH TEXT 1F5BA DOCUMENT WITH TEXT AND PICTURE 1F5BB DOCUMENT WITH PICTURE 1F5BC FRAME WITH PICTURE 1F5BD FRAME WITH TILES 1F5BE FRAME WITH AN X 1F5BF BLACK FOLDER 1F5C0 FOLDER 1F5C1 OPEN FOLDER 1F5C2 CARD INDEX DIVIDERS 1F5C3 CARD FILE BOX 1F5C4 FILE CABINET 1F5C5 EMPTY NOTE 1F5C6 EMPTY NOTE PAGE 1F5C7 EMPTY NOTE PAD 1F5C8 NOTE 1F5C9 NOTE PAGE 1F5CA NOTE PAD 1F5CB EMPTY DOCUMENT 1F5CC EMPTY PAGE 1F5CD EMPTY PAGES 1F5CE DOCUMENT 1F5CF PAGE 1F5D0 PAGES 1F5D1 WASTEBASKET 1F5D2 SPIRAL NOTE PAD 1F5D3 SPIRAL CALENDAR PAD 1F5D4 DESKTOP WINDOW 1F5D5 MINIMIZE 1F5D6 MAXIMIZE 1F5D7 OVERLAP 1F5D8 CLOCKWISE RIGHT AND LEFT SEMICIRCLE ARROWS 1F5D9 CANCELLATION X 1F5DA INCREASE FONT SIZE SYMBOL 1F5DB DECREASE FONT SIZE SYMBOL 1F5DC COMPRESSION 1F5DD OLD KEY 1F5DE ROLLED-UP NEWSPAPER 1F5DF PAGE WITH CIRCLED TEXT 1F5E0 STOCK CHART 1F5E1 DAGGER KNIFE 1F5E2 LIPS 1F5E3 SPEAKING HEAD IN SILHOUETTE 1F5E4 THREE RAYS ABOVE 1F5E5 THREE RAYS BELOW 1F5E6 THREE RAYS LEFT 1F5E7 THREE RAYS RIGHT 1F5E8 LEFT SPEECH BUBBLE 1F5E9 RIGHT SPEECH BUBBLE 1F5EA TWO SPEECH BUBBLES 1F5EB THREE SPEECH BUBBLES 1F5EC LEFT THOUGHT BUBBLE 1F5ED RIGHT THOUGHT BUBBLE 1F5EE LEFT ANGER BUBBLE 1F5EF RIGHT ANGER BUBBLE 1F5F0 MOOD BUBBLE 1F5F1 LIGHTNING MOOD BUBBLE 1F5F2 LIGHTNING MOOD 1F5F3 BALLOT BOX WITH BALLOT 1F5F4 BALLOT SCRIPT X 1F5F5 BALLOT BOX WITH SCRIPT X 1F5F6 BALLOT BOLD SCRIPT X 1F5F7 BALLOT BOX WITH BOLD SCRIPT X 1F5F8 LIGHT CHECK MARK 1F5F9 BALLOT BOX WITH BOLD CHECK 1F5FA WORLD MAP 1F5FB MOUNT FUJI 1F5FC TOKYO TOWER 1F5FD STATUE OF LIBERTY 1F5FE SILHOUETTE OF JAPAN 1F5FF MOYAI 1F600 GRINNING FACE 1F601 GRINNING FACE WITH SMILING EYES 1F602 FACE WITH TEARS OF JOY 1F603 SMILING FACE WITH OPEN MOUTH 1F604 SMILING FACE WITH OPEN MOUTH AND SMILING EYES 1F605 SMILING FACE WITH OPEN MOUTH AND COLD SWEAT 1F606 SMILING FACE WITH OPEN MOUTH AND TIGHTLY-CLOSED EYES 1F607 SMILING FACE WITH HALO 1F608 SMILING FACE WITH HORNS 1F609 WINKING FACE 1F60A SMILING FACE WITH SMILING EYES 1F60B FACE SAVOURING DELICIOUS FOOD 1F60C RELIEVED FACE 1F60D SMILING FACE WITH HEART-SHAPED EYES 1F60E SMILING FACE WITH SUNGLASSES 1F60F SMIRKING FACE 1F610 NEUTRAL FACE 1F611 EXPRESSIONLESS FACE 1F612 UNAMUSED FACE 1F613 FACE WITH COLD SWEAT 1F614 PENSIVE FACE 1F615 CONFUSED FACE 1F616 CONFOUNDED FACE 1F617 KISSING FACE 1F618 FACE THROWING A KISS 1F619 KISSING FACE WITH SMILING EYES 1F61A KISSING FACE WITH CLOSED EYES 1F61B FACE WITH STUCK-OUT TONGUE 1F61C FACE WITH STUCK-OUT TONGUE AND WINKING EYE 1F61D FACE WITH STUCK-OUT TONGUE AND TIGHTLY-CLOSED EYES 1F61E DISAPPOINTED FACE 1F61F WORRIED FACE 1F620 ANGRY FACE 1F621 POUTING FACE 1F622 CRYING FACE 1F623 PERSEVERING FACE 1F624 FACE WITH LOOK OF TRIUMPH 1F625 DISAPPOINTED BUT RELIEVED FACE 1F626 FROWNING FACE WITH OPEN MOUTH 1F627 ANGUISHED FACE 1F628 FEARFUL FACE 1F629 WEARY FACE 1F62A SLEEPY FACE 1F62B TIRED FACE 1F62C GRIMACING FACE 1F62D LOUDLY CRYING FACE 1F62E FACE WITH OPEN MOUTH 1F62F HUSHED FACE 1F630 FACE WITH OPEN MOUTH AND COLD SWEAT 1F631 FACE SCREAMING IN FEAR 1F632 ASTONISHED FACE 1F633 FLUSHED FACE 1F634 SLEEPING FACE 1F635 DIZZY FACE 1F636 FACE WITHOUT MOUTH 1F637 FACE WITH MEDICAL MASK 1F638 GRINNING CAT FACE WITH SMILING EYES 1F639 CAT FACE WITH TEARS OF JOY 1F63A SMILING CAT FACE WITH OPEN MOUTH 1F63B SMILING CAT FACE WITH HEART-SHAPED EYES 1F63C CAT FACE WITH WRY SMILE 1F63D KISSING CAT FACE WITH CLOSED EYES 1F63E POUTING CAT FACE 1F63F CRYING CAT FACE 1F640 WEARY CAT FACE 1F641 SLIGHTLY FROWNING FACE 1F642 SLIGHTLY SMILING FACE 1F643 UPSIDE-DOWN FACE 1F644 FACE WITH ROLLING EYES 1F645 FACE WITH NO GOOD GESTURE 1F646 FACE WITH OK GESTURE 1F647 PERSON BOWING DEEPLY 1F648 SEE-NO-EVIL MONKEY 1F649 HEAR-NO-EVIL MONKEY 1F64A SPEAK-NO-EVIL MONKEY 1F64B HAPPY PERSON RAISING ONE HAND 1F64C PERSON RAISING BOTH HANDS IN CELEBRATION 1F64D PERSON FROWNING 1F64E PERSON WITH POUTING FACE 1F64F PERSON WITH FOLDED HANDS 1F650 NORTH WEST POINTING LEAF 1F651 SOUTH WEST POINTING LEAF 1F652 NORTH EAST POINTING LEAF 1F653 SOUTH EAST POINTING LEAF 1F654 TURNED NORTH WEST POINTING LEAF 1F655 TURNED SOUTH WEST POINTING LEAF 1F656 TURNED NORTH EAST POINTING LEAF 1F657 TURNED SOUTH EAST POINTING LEAF 1F658 NORTH WEST POINTING VINE LEAF 1F659 SOUTH WEST POINTING VINE LEAF 1F65A NORTH EAST POINTING VINE LEAF 1F65B SOUTH EAST POINTING VINE LEAF 1F65C HEAVY NORTH WEST POINTING VINE LEAF 1F65D HEAVY SOUTH WEST POINTING VINE LEAF 1F65E HEAVY NORTH EAST POINTING VINE LEAF 1F65F HEAVY SOUTH EAST POINTING VINE LEAF 1F660 NORTH WEST POINTING BUD 1F661 SOUTH WEST POINTING BUD 1F662 NORTH EAST POINTING BUD 1F663 SOUTH EAST POINTING BUD 1F664 HEAVY NORTH WEST POINTING BUD 1F665 HEAVY SOUTH WEST POINTING BUD 1F666 HEAVY NORTH EAST POINTING BUD 1F667 HEAVY SOUTH EAST POINTING BUD 1F668 HOLLOW QUILT SQUARE ORNAMENT 1F669 HOLLOW QUILT SQUARE ORNAMENT IN BLACK SQUARE 1F66A SOLID QUILT SQUARE ORNAMENT 1F66B SOLID QUILT SQUARE ORNAMENT IN BLACK SQUARE 1F66C LEFTWARDS ROCKET 1F66D UPWARDS ROCKET 1F66E RIGHTWARDS ROCKET 1F66F DOWNWARDS ROCKET 1F670 SCRIPT LIGATURE ET ORNAMENT 1F671 HEAVY SCRIPT LIGATURE ET ORNAMENT 1F672 LIGATURE OPEN ET ORNAMENT 1F673 HEAVY LIGATURE OPEN ET ORNAMENT 1F674 HEAVY AMPERSAND ORNAMENT 1F675 SWASH AMPERSAND ORNAMENT 1F676 SANS-SERIF HEAVY DOUBLE TURNED COMMA QUOTATION MARK ORNAMENT 1F677 SANS-SERIF HEAVY DOUBLE COMMA QUOTATION MARK ORNAMENT 1F678 SANS-SERIF HEAVY LOW DOUBLE COMMA QUOTATION MARK ORNAMENT 1F679 HEAVY INTERROBANG ORNAMENT 1F67A SANS-SERIF INTERROBANG ORNAMENT 1F67B HEAVY SANS-SERIF INTERROBANG ORNAMENT 1F67C VERY HEAVY SOLIDUS 1F67D VERY HEAVY REVERSE SOLIDUS 1F67E CHECKER BOARD 1F67F REVERSE CHECKER BOARD 1F680 ROCKET 1F681 HELICOPTER 1F682 STEAM LOCOMOTIVE 1F683 RAILWAY CAR 1F684 HIGH-SPEED TRAIN 1F685 HIGH-SPEED TRAIN WITH BULLET NOSE 1F686 TRAIN 1F687 METRO 1F688 LIGHT RAIL 1F689 STATION 1F68A TRAM 1F68B TRAM CAR 1F68C BUS 1F68D ONCOMING BUS 1F68E TROLLEYBUS 1F68F BUS STOP 1F690 MINIBUS 1F691 AMBULANCE 1F692 FIRE ENGINE 1F693 POLICE CAR 1F694 ONCOMING POLICE CAR 1F695 TAXI 1F696 ONCOMING TAXI 1F697 AUTOMOBILE 1F698 ONCOMING AUTOMOBILE 1F699 RECREATIONAL VEHICLE 1F69A DELIVERY TRUCK 1F69B ARTICULATED LORRY 1F69C TRACTOR 1F69D MONORAIL 1F69E MOUNTAIN RAILWAY 1F69F SUSPENSION RAILWAY 1F6A0 MOUNTAIN CABLEWAY 1F6A1 AERIAL TRAMWAY 1F6A2 SHIP 1F6A3 ROWBOAT 1F6A4 SPEEDBOAT 1F6A5 HORIZONTAL TRAFFIC LIGHT 1F6A6 VERTICAL TRAFFIC LIGHT 1F6A7 CONSTRUCTION SIGN 1F6A8 POLICE CARS REVOLVING LIGHT 1F6A9 TRIANGULAR FLAG ON POST 1F6AA DOOR 1F6AB NO ENTRY SIGN 1F6AC SMOKING SYMBOL 1F6AD NO SMOKING SYMBOL 1F6AE PUT LITTER IN ITS PLACE SYMBOL 1F6AF DO NOT LITTER SYMBOL 1F6B0 POTABLE WATER SYMBOL 1F6B1 NON-POTABLE WATER SYMBOL 1F6B2 BICYCLE 1F6B3 NO BICYCLES 1F6B4 BICYCLIST 1F6B5 MOUNTAIN BICYCLIST 1F6B6 PEDESTRIAN 1F6B7 NO PEDESTRIANS 1F6B8 CHILDREN CROSSING 1F6B9 MENS SYMBOL 1F6BA WOMENS SYMBOL 1F6BB RESTROOM 1F6BC BABY SYMBOL 1F6BD TOILET 1F6BE WATER CLOSET 1F6BF SHOWER 1F6C0 BATH 1F6C1 BATHTUB 1F6C2 PASSPORT CONTROL 1F6C3 CUSTOMS 1F6C4 BAGGAGE CLAIM 1F6C5 LEFT LUGGAGE 1F6C6 TRIANGLE WITH ROUNDED CORNERS 1F6C7 PROHIBITED SIGN 1F6C8 CIRCLED INFORMATION SOURCE 1F6C9 BOYS SYMBOL 1F6CA GIRLS SYMBOL 1F6CB COUCH AND LAMP 1F6CC SLEEPING ACCOMMODATION 1F6CD SHOPPING BAGS 1F6CE BELLHOP BELL 1F6CF BED 1F6D0 PLACE OF WORSHIP 1F6D1 OCTAGONAL SIGN 1F6D2 SHOPPING TROLLEY 1F6D3 STUPA 1F6D4 PAGODA 1F6D5 HINDU TEMPLE 1F6D6 HUT 1F6D7 ELEVATOR 1F6E0 HAMMER AND WRENCH 1F6E1 SHIELD 1F6E2 OIL DRUM 1F6E3 MOTORWAY 1F6E4 RAILWAY TRACK 1F6E5 MOTOR BOAT 1F6E6 UP-POINTING MILITARY AIRPLANE 1F6E7 UP-POINTING AIRPLANE 1F6E8 UP-POINTING SMALL AIRPLANE 1F6E9 SMALL AIRPLANE 1F6EA NORTHEAST-POINTING AIRPLANE 1F6EB AIRPLANE DEPARTURE 1F6EC AIRPLANE ARRIVING 1F6F0 SATELLITE 1F6F1 ONCOMING FIRE ENGINE 1F6F2 DIESEL LOCOMOTIVE 1F6F3 PASSENGER SHIP 1F6F4 SCOOTER 1F6F5 MOTOR SCOOTER 1F6F6 CANOE 1F6F7 SLED 1F6F8 FLYING SAUCER 1F6F9 SKATEBOARD 1F6FA AUTO RICKSHAW 1F6FB PICKUP TRUCK 1F6FC ROLLER SKATE 1F700 ALCHEMICAL SYMBOL FOR QUINTESSENCE 1F701 ALCHEMICAL SYMBOL FOR AIR 1F702 ALCHEMICAL SYMBOL FOR FIRE 1F703 ALCHEMICAL SYMBOL FOR EARTH 1F704 ALCHEMICAL SYMBOL FOR WATER 1F705 ALCHEMICAL SYMBOL FOR AQUAFORTIS 1F706 ALCHEMICAL SYMBOL FOR AQUA REGIA 1F707 ALCHEMICAL SYMBOL FOR AQUA REGIA-2 1F708 ALCHEMICAL SYMBOL FOR AQUA VITAE 1F709 ALCHEMICAL SYMBOL FOR AQUA VITAE-2 1F70A ALCHEMICAL SYMBOL FOR VINEGAR 1F70B ALCHEMICAL SYMBOL FOR VINEGAR-2 1F70C ALCHEMICAL SYMBOL FOR VINEGAR-3 1F70D ALCHEMICAL SYMBOL FOR SULFUR 1F70E ALCHEMICAL SYMBOL FOR PHILOSOPHERS SULFUR 1F70F ALCHEMICAL SYMBOL FOR BLACK SULFUR 1F710 ALCHEMICAL SYMBOL FOR MERCURY SUBLIMATE 1F711 ALCHEMICAL SYMBOL FOR MERCURY SUBLIMATE-2 1F712 ALCHEMICAL SYMBOL FOR MERCURY SUBLIMATE-3 1F713 ALCHEMICAL SYMBOL FOR CINNABAR 1F714 ALCHEMICAL SYMBOL FOR SALT 1F715 ALCHEMICAL SYMBOL FOR NITRE 1F716 ALCHEMICAL SYMBOL FOR VITRIOL 1F717 ALCHEMICAL SYMBOL FOR VITRIOL-2 1F718 ALCHEMICAL SYMBOL FOR ROCK SALT 1F719 ALCHEMICAL SYMBOL FOR ROCK SALT-2 1F71A ALCHEMICAL SYMBOL FOR GOLD 1F71B ALCHEMICAL SYMBOL FOR SILVER 1F71C ALCHEMICAL SYMBOL FOR IRON ORE 1F71D ALCHEMICAL SYMBOL FOR IRON ORE-2 1F71E ALCHEMICAL SYMBOL FOR CROCUS OF IRON 1F71F ALCHEMICAL SYMBOL FOR REGULUS OF IRON 1F720 ALCHEMICAL SYMBOL FOR COPPER ORE 1F721 ALCHEMICAL SYMBOL FOR IRON-COPPER ORE 1F722 ALCHEMICAL SYMBOL FOR SUBLIMATE OF COPPER 1F723 ALCHEMICAL SYMBOL FOR CROCUS OF COPPER 1F724 ALCHEMICAL SYMBOL FOR CROCUS OF COPPER-2 1F725 ALCHEMICAL SYMBOL FOR COPPER ANTIMONIATE 1F726 ALCHEMICAL SYMBOL FOR SALT OF COPPER ANTIMONIATE 1F727 ALCHEMICAL SYMBOL FOR SUBLIMATE OF SALT OF COPPER 1F728 ALCHEMICAL SYMBOL FOR VERDIGRIS 1F729 ALCHEMICAL SYMBOL FOR TIN ORE 1F72A ALCHEMICAL SYMBOL FOR LEAD ORE 1F72B ALCHEMICAL SYMBOL FOR ANTIMONY ORE 1F72C ALCHEMICAL SYMBOL FOR SUBLIMATE OF ANTIMONY 1F72D ALCHEMICAL SYMBOL FOR SALT OF ANTIMONY 1F72E ALCHEMICAL SYMBOL FOR SUBLIMATE OF SALT OF ANTIMONY 1F72F ALCHEMICAL SYMBOL FOR VINEGAR OF ANTIMONY 1F730 ALCHEMICAL SYMBOL FOR REGULUS OF ANTIMONY 1F731 ALCHEMICAL SYMBOL FOR REGULUS OF ANTIMONY-2 1F732 ALCHEMICAL SYMBOL FOR REGULUS 1F733 ALCHEMICAL SYMBOL FOR REGULUS-2 1F734 ALCHEMICAL SYMBOL FOR REGULUS-3 1F735 ALCHEMICAL SYMBOL FOR REGULUS-4 1F736 ALCHEMICAL SYMBOL FOR ALKALI 1F737 ALCHEMICAL SYMBOL FOR ALKALI-2 1F738 ALCHEMICAL SYMBOL FOR MARCASITE 1F739 ALCHEMICAL SYMBOL FOR SAL-AMMONIAC 1F73A ALCHEMICAL SYMBOL FOR ARSENIC 1F73B ALCHEMICAL SYMBOL FOR REALGAR 1F73C ALCHEMICAL SYMBOL FOR REALGAR-2 1F73D ALCHEMICAL SYMBOL FOR AURIPIGMENT 1F73E ALCHEMICAL SYMBOL FOR BISMUTH ORE 1F73F ALCHEMICAL SYMBOL FOR TARTAR 1F740 ALCHEMICAL SYMBOL FOR TARTAR-2 1F741 ALCHEMICAL SYMBOL FOR QUICK LIME 1F742 ALCHEMICAL SYMBOL FOR BORAX 1F743 ALCHEMICAL SYMBOL FOR BORAX-2 1F744 ALCHEMICAL SYMBOL FOR BORAX-3 1F745 ALCHEMICAL SYMBOL FOR ALUM 1F746 ALCHEMICAL SYMBOL FOR OIL 1F747 ALCHEMICAL SYMBOL FOR SPIRIT 1F748 ALCHEMICAL SYMBOL FOR TINCTURE 1F749 ALCHEMICAL SYMBOL FOR GUM 1F74A ALCHEMICAL SYMBOL FOR WAX 1F74B ALCHEMICAL SYMBOL FOR POWDER 1F74C ALCHEMICAL SYMBOL FOR CALX 1F74D ALCHEMICAL SYMBOL FOR TUTTY 1F74E ALCHEMICAL SYMBOL FOR CAPUT MORTUUM 1F74F ALCHEMICAL SYMBOL FOR SCEPTER OF JOVE 1F750 ALCHEMICAL SYMBOL FOR CADUCEUS 1F751 ALCHEMICAL SYMBOL FOR TRIDENT 1F752 ALCHEMICAL SYMBOL FOR STARRED TRIDENT 1F753 ALCHEMICAL SYMBOL FOR LODESTONE 1F754 ALCHEMICAL SYMBOL FOR SOAP 1F755 ALCHEMICAL SYMBOL FOR URINE 1F756 ALCHEMICAL SYMBOL FOR HORSE DUNG 1F757 ALCHEMICAL SYMBOL FOR ASHES 1F758 ALCHEMICAL SYMBOL FOR POT ASHES 1F759 ALCHEMICAL SYMBOL FOR BRICK 1F75A ALCHEMICAL SYMBOL FOR POWDERED BRICK 1F75B ALCHEMICAL SYMBOL FOR AMALGAM 1F75C ALCHEMICAL SYMBOL FOR STRATUM SUPER STRATUM 1F75D ALCHEMICAL SYMBOL FOR STRATUM SUPER STRATUM-2 1F75E ALCHEMICAL SYMBOL FOR SUBLIMATION 1F75F ALCHEMICAL SYMBOL FOR PRECIPITATE 1F760 ALCHEMICAL SYMBOL FOR DISTILL 1F761 ALCHEMICAL SYMBOL FOR DISSOLVE 1F762 ALCHEMICAL SYMBOL FOR DISSOLVE-2 1F763 ALCHEMICAL SYMBOL FOR PURIFY 1F764 ALCHEMICAL SYMBOL FOR PUTREFACTION 1F765 ALCHEMICAL SYMBOL FOR CRUCIBLE 1F766 ALCHEMICAL SYMBOL FOR CRUCIBLE-2 1F767 ALCHEMICAL SYMBOL FOR CRUCIBLE-3 1F768 ALCHEMICAL SYMBOL FOR CRUCIBLE-4 1F769 ALCHEMICAL SYMBOL FOR CRUCIBLE-5 1F76A ALCHEMICAL SYMBOL FOR ALEMBIC 1F76B ALCHEMICAL SYMBOL FOR BATH OF MARY 1F76C ALCHEMICAL SYMBOL FOR BATH OF VAPOURS 1F76D ALCHEMICAL SYMBOL FOR RETORT 1F76E ALCHEMICAL SYMBOL FOR HOUR 1F76F ALCHEMICAL SYMBOL FOR NIGHT 1F770 ALCHEMICAL SYMBOL FOR DAY-NIGHT 1F771 ALCHEMICAL SYMBOL FOR MONTH 1F772 ALCHEMICAL SYMBOL FOR HALF DRAM 1F773 ALCHEMICAL SYMBOL FOR HALF OUNCE 1F780 BLACK LEFT-POINTING ISOSCELES RIGHT TRIANGLE 1F781 BLACK UP-POINTING ISOSCELES RIGHT TRIANGLE 1F782 BLACK RIGHT-POINTING ISOSCELES RIGHT TRIANGLE 1F783 BLACK DOWN-POINTING ISOSCELES RIGHT TRIANGLE 1F784 BLACK SLIGHTLY SMALL CIRCLE 1F785 MEDIUM BOLD WHITE CIRCLE 1F786 BOLD WHITE CIRCLE 1F787 HEAVY WHITE CIRCLE 1F788 VERY HEAVY WHITE CIRCLE 1F789 EXTREMELY HEAVY WHITE CIRCLE 1F78A WHITE CIRCLE CONTAINING BLACK SMALL CIRCLE 1F78B ROUND TARGET 1F78C BLACK TINY SQUARE 1F78D BLACK SLIGHTLY SMALL SQUARE 1F78E LIGHT WHITE SQUARE 1F78F MEDIUM WHITE SQUARE 1F790 BOLD WHITE SQUARE 1F791 HEAVY WHITE SQUARE 1F792 VERY HEAVY WHITE SQUARE 1F793 EXTREMELY HEAVY WHITE SQUARE 1F794 WHITE SQUARE CONTAINING BLACK VERY SMALL SQUARE 1F795 WHITE SQUARE CONTAINING BLACK MEDIUM SQUARE 1F796 SQUARE TARGET 1F797 BLACK TINY DIAMOND 1F798 BLACK VERY SMALL DIAMOND 1F799 BLACK MEDIUM SMALL DIAMOND 1F79A WHITE DIAMOND CONTAINING BLACK VERY SMALL DIAMOND 1F79B WHITE DIAMOND CONTAINING BLACK MEDIUM DIAMOND 1F79C DIAMOND TARGET 1F79D BLACK TINY LOZENGE 1F79E BLACK VERY SMALL LOZENGE 1F79F BLACK MEDIUM SMALL LOZENGE 1F7A0 WHITE LOZENGE CONTAINING BLACK SMALL LOZENGE 1F7A1 THIN GREEK CROSS 1F7A2 LIGHT GREEK CROSS 1F7A3 MEDIUM GREEK CROSS 1F7A4 BOLD GREEK CROSS 1F7A5 VERY BOLD GREEK CROSS 1F7A6 VERY HEAVY GREEK CROSS 1F7A7 EXTREMELY HEAVY GREEK CROSS 1F7A8 THIN SALTIRE 1F7A9 LIGHT SALTIRE 1F7AA MEDIUM SALTIRE 1F7AB BOLD SALTIRE 1F7AC HEAVY SALTIRE 1F7AD VERY HEAVY SALTIRE 1F7AE EXTREMELY HEAVY SALTIRE 1F7AF LIGHT FIVE SPOKED ASTERISK 1F7B0 MEDIUM FIVE SPOKED ASTERISK 1F7B1 BOLD FIVE SPOKED ASTERISK 1F7B2 HEAVY FIVE SPOKED ASTERISK 1F7B3 VERY HEAVY FIVE SPOKED ASTERISK 1F7B4 EXTREMELY HEAVY FIVE SPOKED ASTERISK 1F7B5 LIGHT SIX SPOKED ASTERISK 1F7B6 MEDIUM SIX SPOKED ASTERISK 1F7B7 BOLD SIX SPOKED ASTERISK 1F7B8 HEAVY SIX SPOKED ASTERISK 1F7B9 VERY HEAVY SIX SPOKED ASTERISK 1F7BA EXTREMELY HEAVY SIX SPOKED ASTERISK 1F7BB LIGHT EIGHT SPOKED ASTERISK 1F7BC MEDIUM EIGHT SPOKED ASTERISK 1F7BD BOLD EIGHT SPOKED ASTERISK 1F7BE HEAVY EIGHT SPOKED ASTERISK 1F7BF VERY HEAVY EIGHT SPOKED ASTERISK 1F7C0 LIGHT THREE POINTED BLACK STAR 1F7C1 MEDIUM THREE POINTED BLACK STAR 1F7C2 THREE POINTED BLACK STAR 1F7C3 MEDIUM THREE POINTED PINWHEEL STAR 1F7C4 LIGHT FOUR POINTED BLACK STAR 1F7C5 MEDIUM FOUR POINTED BLACK STAR 1F7C6 FOUR POINTED BLACK STAR 1F7C7 MEDIUM FOUR POINTED PINWHEEL STAR 1F7C8 REVERSE LIGHT FOUR POINTED PINWHEEL STAR 1F7C9 LIGHT FIVE POINTED BLACK STAR 1F7CA HEAVY FIVE POINTED BLACK STAR 1F7CB MEDIUM SIX POINTED BLACK STAR 1F7CC HEAVY SIX POINTED BLACK STAR 1F7CD SIX POINTED PINWHEEL STAR 1F7CE MEDIUM EIGHT POINTED BLACK STAR 1F7CF HEAVY EIGHT POINTED BLACK STAR 1F7D0 VERY HEAVY EIGHT POINTED BLACK STAR 1F7D1 HEAVY EIGHT POINTED PINWHEEL STAR 1F7D2 LIGHT TWELVE POINTED BLACK STAR 1F7D3 HEAVY TWELVE POINTED BLACK STAR 1F7D4 HEAVY TWELVE POINTED PINWHEEL STAR 1F7D5 CIRCLED TRIANGLE 1F7D6 NEGATIVE CIRCLED TRIANGLE 1F7D7 CIRCLED SQUARE 1F7D8 NEGATIVE CIRCLED SQUARE 1F7E0 LARGE ORANGE CIRCLE 1F7E1 LARGE YELLOW CIRCLE 1F7E2 LARGE GREEN CIRCLE 1F7E3 LARGE PURPLE CIRCLE 1F7E4 LARGE BROWN CIRCLE 1F7E5 LARGE RED SQUARE 1F7E6 LARGE BLUE SQUARE 1F7E7 LARGE ORANGE SQUARE 1F7E8 LARGE YELLOW SQUARE 1F7E9 LARGE GREEN SQUARE 1F7EA LARGE PURPLE SQUARE 1F7EB LARGE BROWN SQUARE 1F800 LEFTWARDS ARROW WITH SMALL TRIANGLE ARROWHEAD 1F801 UPWARDS ARROW WITH SMALL TRIANGLE ARROWHEAD 1F802 RIGHTWARDS ARROW WITH SMALL TRIANGLE ARROWHEAD 1F803 DOWNWARDS ARROW WITH SMALL TRIANGLE ARROWHEAD 1F804 LEFTWARDS ARROW WITH MEDIUM TRIANGLE ARROWHEAD 1F805 UPWARDS ARROW WITH MEDIUM TRIANGLE ARROWHEAD 1F806 RIGHTWARDS ARROW WITH MEDIUM TRIANGLE ARROWHEAD 1F807 DOWNWARDS ARROW WITH MEDIUM TRIANGLE ARROWHEAD 1F808 LEFTWARDS ARROW WITH LARGE TRIANGLE ARROWHEAD 1F809 UPWARDS ARROW WITH LARGE TRIANGLE ARROWHEAD 1F80A RIGHTWARDS ARROW WITH LARGE TRIANGLE ARROWHEAD 1F80B DOWNWARDS ARROW WITH LARGE TRIANGLE ARROWHEAD 1F810 LEFTWARDS ARROW WITH SMALL EQUILATERAL ARROWHEAD 1F811 UPWARDS ARROW WITH SMALL EQUILATERAL ARROWHEAD 1F812 RIGHTWARDS ARROW WITH SMALL EQUILATERAL ARROWHEAD 1F813 DOWNWARDS ARROW WITH SMALL EQUILATERAL ARROWHEAD 1F814 LEFTWARDS ARROW WITH EQUILATERAL ARROWHEAD 1F815 UPWARDS ARROW WITH EQUILATERAL ARROWHEAD 1F816 RIGHTWARDS ARROW WITH EQUILATERAL ARROWHEAD 1F817 DOWNWARDS ARROW WITH EQUILATERAL ARROWHEAD 1F818 HEAVY LEFTWARDS ARROW WITH EQUILATERAL ARROWHEAD 1F819 HEAVY UPWARDS ARROW WITH EQUILATERAL ARROWHEAD 1F81A HEAVY RIGHTWARDS ARROW WITH EQUILATERAL ARROWHEAD 1F81B HEAVY DOWNWARDS ARROW WITH EQUILATERAL ARROWHEAD 1F81C HEAVY LEFTWARDS ARROW WITH LARGE EQUILATERAL ARROWHEAD 1F81D HEAVY UPWARDS ARROW WITH LARGE EQUILATERAL ARROWHEAD 1F81E HEAVY RIGHTWARDS ARROW WITH LARGE EQUILATERAL ARROWHEAD 1F81F HEAVY DOWNWARDS ARROW WITH LARGE EQUILATERAL ARROWHEAD 1F820 LEFTWARDS TRIANGLE-HEADED ARROW WITH NARROW SHAFT 1F821 UPWARDS TRIANGLE-HEADED ARROW WITH NARROW SHAFT 1F822 RIGHTWARDS TRIANGLE-HEADED ARROW WITH NARROW SHAFT 1F823 DOWNWARDS TRIANGLE-HEADED ARROW WITH NARROW SHAFT 1F824 LEFTWARDS TRIANGLE-HEADED ARROW WITH MEDIUM SHAFT 1F825 UPWARDS TRIANGLE-HEADED ARROW WITH MEDIUM SHAFT 1F826 RIGHTWARDS TRIANGLE-HEADED ARROW WITH MEDIUM SHAFT 1F827 DOWNWARDS TRIANGLE-HEADED ARROW WITH MEDIUM SHAFT 1F828 LEFTWARDS TRIANGLE-HEADED ARROW WITH BOLD SHAFT 1F829 UPWARDS TRIANGLE-HEADED ARROW WITH BOLD SHAFT 1F82A RIGHTWARDS TRIANGLE-HEADED ARROW WITH BOLD SHAFT 1F82B DOWNWARDS TRIANGLE-HEADED ARROW WITH BOLD SHAFT 1F82C LEFTWARDS TRIANGLE-HEADED ARROW WITH HEAVY SHAFT 1F82D UPWARDS TRIANGLE-HEADED ARROW WITH HEAVY SHAFT 1F82E RIGHTWARDS TRIANGLE-HEADED ARROW WITH HEAVY SHAFT 1F82F DOWNWARDS TRIANGLE-HEADED ARROW WITH HEAVY SHAFT 1F830 LEFTWARDS TRIANGLE-HEADED ARROW WITH VERY HEAVY SHAFT 1F831 UPWARDS TRIANGLE-HEADED ARROW WITH VERY HEAVY SHAFT 1F832 RIGHTWARDS TRIANGLE-HEADED ARROW WITH VERY HEAVY SHAFT 1F833 DOWNWARDS TRIANGLE-HEADED ARROW WITH VERY HEAVY SHAFT 1F834 LEFTWARDS FINGER-POST ARROW 1F835 UPWARDS FINGER-POST ARROW 1F836 RIGHTWARDS FINGER-POST ARROW 1F837 DOWNWARDS FINGER-POST ARROW 1F838 LEFTWARDS SQUARED ARROW 1F839 UPWARDS SQUARED ARROW 1F83A RIGHTWARDS SQUARED ARROW 1F83B DOWNWARDS SQUARED ARROW 1F83C LEFTWARDS COMPRESSED ARROW 1F83D UPWARDS COMPRESSED ARROW 1F83E RIGHTWARDS COMPRESSED ARROW 1F83F DOWNWARDS COMPRESSED ARROW 1F840 LEFTWARDS HEAVY COMPRESSED ARROW 1F841 UPWARDS HEAVY COMPRESSED ARROW 1F842 RIGHTWARDS HEAVY COMPRESSED ARROW 1F843 DOWNWARDS HEAVY COMPRESSED ARROW 1F844 LEFTWARDS HEAVY ARROW 1F845 UPWARDS HEAVY ARROW 1F846 RIGHTWARDS HEAVY ARROW 1F847 DOWNWARDS HEAVY ARROW 1F850 LEFTWARDS SANS-SERIF ARROW 1F851 UPWARDS SANS-SERIF ARROW 1F852 RIGHTWARDS SANS-SERIF ARROW 1F853 DOWNWARDS SANS-SERIF ARROW 1F854 NORTH WEST SANS-SERIF ARROW 1F855 NORTH EAST SANS-SERIF ARROW 1F856 SOUTH EAST SANS-SERIF ARROW 1F857 SOUTH WEST SANS-SERIF ARROW 1F858 LEFT RIGHT SANS-SERIF ARROW 1F859 UP DOWN SANS-SERIF ARROW 1F860 WIDE-HEADED LEFTWARDS LIGHT BARB ARROW 1F861 WIDE-HEADED UPWARDS LIGHT BARB ARROW 1F862 WIDE-HEADED RIGHTWARDS LIGHT BARB ARROW 1F863 WIDE-HEADED DOWNWARDS LIGHT BARB ARROW 1F864 WIDE-HEADED NORTH WEST LIGHT BARB ARROW 1F865 WIDE-HEADED NORTH EAST LIGHT BARB ARROW 1F866 WIDE-HEADED SOUTH EAST LIGHT BARB ARROW 1F867 WIDE-HEADED SOUTH WEST LIGHT BARB ARROW 1F868 WIDE-HEADED LEFTWARDS BARB ARROW 1F869 WIDE-HEADED UPWARDS BARB ARROW 1F86A WIDE-HEADED RIGHTWARDS BARB ARROW 1F86B WIDE-HEADED DOWNWARDS BARB ARROW 1F86C WIDE-HEADED NORTH WEST BARB ARROW 1F86D WIDE-HEADED NORTH EAST BARB ARROW 1F86E WIDE-HEADED SOUTH EAST BARB ARROW 1F86F WIDE-HEADED SOUTH WEST BARB ARROW 1F870 WIDE-HEADED LEFTWARDS MEDIUM BARB ARROW 1F871 WIDE-HEADED UPWARDS MEDIUM BARB ARROW 1F872 WIDE-HEADED RIGHTWARDS MEDIUM BARB ARROW 1F873 WIDE-HEADED DOWNWARDS MEDIUM BARB ARROW 1F874 WIDE-HEADED NORTH WEST MEDIUM BARB ARROW 1F875 WIDE-HEADED NORTH EAST MEDIUM BARB ARROW 1F876 WIDE-HEADED SOUTH EAST MEDIUM BARB ARROW 1F877 WIDE-HEADED SOUTH WEST MEDIUM BARB ARROW 1F878 WIDE-HEADED LEFTWARDS HEAVY BARB ARROW 1F879 WIDE-HEADED UPWARDS HEAVY BARB ARROW 1F87A WIDE-HEADED RIGHTWARDS HEAVY BARB ARROW 1F87B WIDE-HEADED DOWNWARDS HEAVY BARB ARROW 1F87C WIDE-HEADED NORTH WEST HEAVY BARB ARROW 1F87D WIDE-HEADED NORTH EAST HEAVY BARB ARROW 1F87E WIDE-HEADED SOUTH EAST HEAVY BARB ARROW 1F87F WIDE-HEADED SOUTH WEST HEAVY BARB ARROW 1F880 WIDE-HEADED LEFTWARDS VERY HEAVY BARB ARROW 1F881 WIDE-HEADED UPWARDS VERY HEAVY BARB ARROW 1F882 WIDE-HEADED RIGHTWARDS VERY HEAVY BARB ARROW 1F883 WIDE-HEADED DOWNWARDS VERY HEAVY BARB ARROW 1F884 WIDE-HEADED NORTH WEST VERY HEAVY BARB ARROW 1F885 WIDE-HEADED NORTH EAST VERY HEAVY BARB ARROW 1F886 WIDE-HEADED SOUTH EAST VERY HEAVY BARB ARROW 1F887 WIDE-HEADED SOUTH WEST VERY HEAVY BARB ARROW 1F890 LEFTWARDS TRIANGLE ARROWHEAD 1F891 UPWARDS TRIANGLE ARROWHEAD 1F892 RIGHTWARDS TRIANGLE ARROWHEAD 1F893 DOWNWARDS TRIANGLE ARROWHEAD 1F894 LEFTWARDS WHITE ARROW WITHIN TRIANGLE ARROWHEAD 1F895 UPWARDS WHITE ARROW WITHIN TRIANGLE ARROWHEAD 1F896 RIGHTWARDS WHITE ARROW WITHIN TRIANGLE ARROWHEAD 1F897 DOWNWARDS WHITE ARROW WITHIN TRIANGLE ARROWHEAD 1F898 LEFTWARDS ARROW WITH NOTCHED TAIL 1F899 UPWARDS ARROW WITH NOTCHED TAIL 1F89A RIGHTWARDS ARROW WITH NOTCHED TAIL 1F89B DOWNWARDS ARROW WITH NOTCHED TAIL 1F89C HEAVY ARROW SHAFT WIDTH ONE 1F89D HEAVY ARROW SHAFT WIDTH TWO THIRDS 1F89E HEAVY ARROW SHAFT WIDTH ONE HALF 1F89F HEAVY ARROW SHAFT WIDTH ONE THIRD 1F8A0 LEFTWARDS BOTTOM-SHADED WHITE ARROW 1F8A1 RIGHTWARDS BOTTOM SHADED WHITE ARROW 1F8A2 LEFTWARDS TOP SHADED WHITE ARROW 1F8A3 RIGHTWARDS TOP SHADED WHITE ARROW 1F8A4 LEFTWARDS LEFT-SHADED WHITE ARROW 1F8A5 RIGHTWARDS RIGHT-SHADED WHITE ARROW 1F8A6 LEFTWARDS RIGHT-SHADED WHITE ARROW 1F8A7 RIGHTWARDS LEFT-SHADED WHITE ARROW 1F8A8 LEFTWARDS BACK-TILTED SHADOWED WHITE ARROW 1F8A9 RIGHTWARDS BACK-TILTED SHADOWED WHITE ARROW 1F8AA LEFTWARDS FRONT-TILTED SHADOWED WHITE ARROW 1F8AB RIGHTWARDS FRONT-TILTED SHADOWED WHITE ARROW 1F8AC WHITE ARROW SHAFT WIDTH ONE 1F8AD WHITE ARROW SHAFT WIDTH TWO THIRDS 1F8B0 ARROW POINTING UPWARDS THEN NORTH WEST 1F8B1 ARROW POINTING RIGHTWARDS THEN CURVING SOUTH WEST 1F900 CIRCLED CROSS FORMEE WITH FOUR DOTS 1F901 CIRCLED CROSS FORMEE WITH TWO DOTS 1F902 CIRCLED CROSS FORMEE 1F903 LEFT HALF CIRCLE WITH FOUR DOTS 1F904 LEFT HALF CIRCLE WITH THREE DOTS 1F905 LEFT HALF CIRCLE WITH TWO DOTS 1F906 LEFT HALF CIRCLE WITH DOT 1F907 LEFT HALF CIRCLE 1F908 DOWNWARD FACING HOOK 1F909 DOWNWARD FACING NOTCHED HOOK 1F90A DOWNWARD FACING HOOK WITH DOT 1F90B DOWNWARD FACING NOTCHED HOOK WITH DOT 1F90C PINCHED FINGERS 1F90D WHITE HEART 1F90E BROWN HEART 1F90F PINCHING HAND 1F910 ZIPPER-MOUTH FACE 1F911 MONEY-MOUTH FACE 1F912 FACE WITH THERMOMETER 1F913 NERD FACE 1F914 THINKING FACE 1F915 FACE WITH HEAD-BANDAGE 1F916 ROBOT FACE 1F917 HUGGING FACE 1F918 SIGN OF THE HORNS 1F919 CALL ME HAND 1F91A RAISED BACK OF HAND 1F91B LEFT-FACING FIST 1F91C RIGHT-FACING FIST 1F91D HANDSHAKE 1F91E HAND WITH INDEX AND MIDDLE FINGERS CROSSED 1F91F I LOVE YOU HAND SIGN 1F920 FACE WITH COWBOY HAT 1F921 CLOWN FACE 1F922 NAUSEATED FACE 1F923 ROLLING ON THE FLOOR LAUGHING 1F924 DROOLING FACE 1F925 LYING FACE 1F926 FACE PALM 1F927 SNEEZING FACE 1F928 FACE WITH ONE EYEBROW RAISED 1F929 GRINNING FACE WITH STAR EYES 1F92A GRINNING FACE WITH ONE LARGE AND ONE SMALL EYE 1F92B FACE WITH FINGER COVERING CLOSED LIPS 1F92C SERIOUS FACE WITH SYMBOLS COVERING MOUTH 1F92D SMILING FACE WITH SMILING EYES AND HAND COVERING MOUTH 1F92E FACE WITH OPEN MOUTH VOMITING 1F92F SHOCKED FACE WITH EXPLODING HEAD 1F930 PREGNANT WOMAN 1F931 BREAST-FEEDING 1F932 PALMS UP TOGETHER 1F933 SELFIE 1F934 PRINCE 1F935 MAN IN TUXEDO 1F936 MOTHER CHRISTMAS 1F937 SHRUG 1F938 PERSON DOING CARTWHEEL 1F939 JUGGLING 1F93A FENCER 1F93B MODERN PENTATHLON 1F93C WRESTLERS 1F93D WATER POLO 1F93E HANDBALL 1F93F DIVING MASK 1F940 WILTED FLOWER 1F941 DRUM WITH DRUMSTICKS 1F942 CLINKING GLASSES 1F943 TUMBLER GLASS 1F944 SPOON 1F945 GOAL NET 1F946 RIFLE 1F947 FIRST PLACE MEDAL 1F948 SECOND PLACE MEDAL 1F949 THIRD PLACE MEDAL 1F94A BOXING GLOVE 1F94B MARTIAL ARTS UNIFORM 1F94C CURLING STONE 1F94D LACROSSE STICK AND BALL 1F94E SOFTBALL 1F94F FLYING DISC 1F950 CROISSANT 1F951 AVOCADO 1F952 CUCUMBER 1F953 BACON 1F954 POTATO 1F955 CARROT 1F956 BAGUETTE BREAD 1F957 GREEN SALAD 1F958 SHALLOW PAN OF FOOD 1F959 STUFFED FLATBREAD 1F95A EGG 1F95B GLASS OF MILK 1F95C PEANUTS 1F95D KIWIFRUIT 1F95E PANCAKES 1F95F DUMPLING 1F960 FORTUNE COOKIE 1F961 TAKEOUT BOX 1F962 CHOPSTICKS 1F963 BOWL WITH SPOON 1F964 CUP WITH STRAW 1F965 COCONUT 1F966 BROCCOLI 1F967 PIE 1F968 PRETZEL 1F969 CUT OF MEAT 1F96A SANDWICH 1F96B CANNED FOOD 1F96C LEAFY GREEN 1F96D MANGO 1F96E MOON CAKE 1F96F BAGEL 1F970 SMILING FACE WITH SMILING EYES AND THREE HEARTS 1F971 YAWNING FACE 1F972 SMILING FACE WITH TEAR 1F973 FACE WITH PARTY HORN AND PARTY HAT 1F974 FACE WITH UNEVEN EYES AND WAVY MOUTH 1F975 OVERHEATED FACE 1F976 FREEZING FACE 1F977 NINJA 1F978 DISGUISED FACE 1F97A FACE WITH PLEADING EYES 1F97B SARI 1F97C LAB COAT 1F97D GOGGLES 1F97E HIKING BOOT 1F97F FLAT SHOE 1F980 CRAB 1F981 LION FACE 1F982 SCORPION 1F983 TURKEY 1F984 UNICORN FACE 1F985 EAGLE 1F986 DUCK 1F987 BAT 1F988 SHARK 1F989 OWL 1F98A FOX FACE 1F98B BUTTERFLY 1F98C DEER 1F98D GORILLA 1F98E LIZARD 1F98F RHINOCEROS 1F990 SHRIMP 1F991 SQUID 1F992 GIRAFFE FACE 1F993 ZEBRA FACE 1F994 HEDGEHOG 1F995 SAUROPOD 1F996 T-REX 1F997 CRICKET 1F998 KANGAROO 1F999 LLAMA 1F99A PEACOCK 1F99B HIPPOPOTAMUS 1F99C PARROT 1F99D RACCOON 1F99E LOBSTER 1F99F MOSQUITO 1F9A0 MICROBE 1F9A1 BADGER 1F9A2 SWAN 1F9A3 MAMMOTH 1F9A4 DODO 1F9A5 SLOTH 1F9A6 OTTER 1F9A7 ORANGUTAN 1F9A8 SKUNK 1F9A9 FLAMINGO 1F9AA OYSTER 1F9AB BEAVER 1F9AC BISON 1F9AD SEAL 1F9AE GUIDE DOG 1F9AF PROBING CANE 1F9B0 EMOJI COMPONENT RED HAIR 1F9B1 EMOJI COMPONENT CURLY HAIR 1F9B2 EMOJI COMPONENT BALD 1F9B3 EMOJI COMPONENT WHITE HAIR 1F9B4 BONE 1F9B5 LEG 1F9B6 FOOT 1F9B7 TOOTH 1F9B8 SUPERHERO 1F9B9 SUPERVILLAIN 1F9BA SAFETY VEST 1F9BB EAR WITH HEARING AID 1F9BC MOTORIZED WHEELCHAIR 1F9BD MANUAL WHEELCHAIR 1F9BE MECHANICAL ARM 1F9BF MECHANICAL LEG 1F9C0 CHEESE WEDGE 1F9C1 CUPCAKE 1F9C2 SALT SHAKER 1F9C3 BEVERAGE BOX 1F9C4 GARLIC 1F9C5 ONION 1F9C6 FALAFEL 1F9C7 WAFFLE 1F9C8 BUTTER 1F9C9 MATE DRINK 1F9CA ICE CUBE 1F9CB BUBBLE TEA 1F9CD STANDING PERSON 1F9CE KNEELING PERSON 1F9CF DEAF PERSON 1F9D0 FACE WITH MONOCLE 1F9D1 ADULT 1F9D2 CHILD 1F9D3 OLDER ADULT 1F9D4 BEARDED PERSON 1F9D5 PERSON WITH HEADSCARF 1F9D6 PERSON IN STEAMY ROOM 1F9D7 PERSON CLIMBING 1F9D8 PERSON IN LOTUS POSITION 1F9D9 MAGE 1F9DA FAIRY 1F9DB VAMPIRE 1F9DC MERPERSON 1F9DD ELF 1F9DE GENIE 1F9DF ZOMBIE 1F9E0 BRAIN 1F9E1 ORANGE HEART 1F9E2 BILLED CAP 1F9E3 SCARF 1F9E4 GLOVES 1F9E5 COAT 1F9E6 SOCKS 1F9E7 RED GIFT ENVELOPE 1F9E8 FIRECRACKER 1F9E9 JIGSAW PUZZLE PIECE 1F9EA TEST TUBE 1F9EB PETRI DISH 1F9EC DNA DOUBLE HELIX 1F9ED COMPASS 1F9EE ABACUS 1F9EF FIRE EXTINGUISHER 1F9F0 TOOLBOX 1F9F1 BRICK 1F9F2 MAGNET 1F9F3 LUGGAGE 1F9F4 LOTION BOTTLE 1F9F5 SPOOL OF THREAD 1F9F6 BALL OF YARN 1F9F7 SAFETY PIN 1F9F8 TEDDY BEAR 1F9F9 BROOM 1F9FA BASKET 1F9FB ROLL OF PAPER 1F9FC BAR OF SOAP 1F9FD SPONGE 1F9FE RECEIPT 1F9FF NAZAR AMULET 1FA00 NEUTRAL CHESS KING 1FA01 NEUTRAL CHESS QUEEN 1FA02 NEUTRAL CHESS ROOK 1FA03 NEUTRAL CHESS BISHOP 1FA04 NEUTRAL CHESS KNIGHT 1FA05 NEUTRAL CHESS PAWN 1FA06 WHITE CHESS KNIGHT ROTATED FORTY-FIVE DEGREES 1FA07 BLACK CHESS KNIGHT ROTATED FORTY-FIVE DEGREES 1FA08 NEUTRAL CHESS KNIGHT ROTATED FORTY-FIVE DEGREES 1FA09 WHITE CHESS KING ROTATED NINETY DEGREES 1FA0A WHITE CHESS QUEEN ROTATED NINETY DEGREES 1FA0B WHITE CHESS ROOK ROTATED NINETY DEGREES 1FA0C WHITE CHESS BISHOP ROTATED NINETY DEGREES 1FA0D WHITE CHESS KNIGHT ROTATED NINETY DEGREES 1FA0E WHITE CHESS PAWN ROTATED NINETY DEGREES 1FA0F BLACK CHESS KING ROTATED NINETY DEGREES 1FA10 BLACK CHESS QUEEN ROTATED NINETY DEGREES 1FA11 BLACK CHESS ROOK ROTATED NINETY DEGREES 1FA12 BLACK CHESS BISHOP ROTATED NINETY DEGREES 1FA13 BLACK CHESS KNIGHT ROTATED NINETY DEGREES 1FA14 BLACK CHESS PAWN ROTATED NINETY DEGREES 1FA15 NEUTRAL CHESS KING ROTATED NINETY DEGREES 1FA16 NEUTRAL CHESS QUEEN ROTATED NINETY DEGREES 1FA17 NEUTRAL CHESS ROOK ROTATED NINETY DEGREES 1FA18 NEUTRAL CHESS BISHOP ROTATED NINETY DEGREES 1FA19 NEUTRAL CHESS KNIGHT ROTATED NINETY DEGREES 1FA1A NEUTRAL CHESS PAWN ROTATED NINETY DEGREES 1FA1B WHITE CHESS KNIGHT ROTATED ONE HUNDRED THIRTY-FIVE DEGREES 1FA1C BLACK CHESS KNIGHT ROTATED ONE HUNDRED THIRTY-FIVE DEGREES 1FA1D NEUTRAL CHESS KNIGHT ROTATED ONE HUNDRED THIRTY-FIVE DEGREES 1FA1E WHITE CHESS TURNED KING 1FA1F WHITE CHESS TURNED QUEEN 1FA20 WHITE CHESS TURNED ROOK 1FA21 WHITE CHESS TURNED BISHOP 1FA22 WHITE CHESS TURNED KNIGHT 1FA23 WHITE CHESS TURNED PAWN 1FA24 BLACK CHESS TURNED KING 1FA25 BLACK CHESS TURNED QUEEN 1FA26 BLACK CHESS TURNED ROOK 1FA27 BLACK CHESS TURNED BISHOP 1FA28 BLACK CHESS TURNED KNIGHT 1FA29 BLACK CHESS TURNED PAWN 1FA2A NEUTRAL CHESS TURNED KING 1FA2B NEUTRAL CHESS TURNED QUEEN 1FA2C NEUTRAL CHESS TURNED ROOK 1FA2D NEUTRAL CHESS TURNED BISHOP 1FA2E NEUTRAL CHESS TURNED KNIGHT 1FA2F NEUTRAL CHESS TURNED PAWN 1FA30 WHITE CHESS KNIGHT ROTATED TWO HUNDRED TWENTY-FIVE DEGREES 1FA31 BLACK CHESS KNIGHT ROTATED TWO HUNDRED TWENTY-FIVE DEGREES 1FA32 NEUTRAL CHESS KNIGHT ROTATED TWO HUNDRED TWENTY-FIVE DEGREES 1FA33 WHITE CHESS KING ROTATED TWO HUNDRED SEVENTY DEGREES 1FA34 WHITE CHESS QUEEN ROTATED TWO HUNDRED SEVENTY DEGREES 1FA35 WHITE CHESS ROOK ROTATED TWO HUNDRED SEVENTY DEGREES 1FA36 WHITE CHESS BISHOP ROTATED TWO HUNDRED SEVENTY DEGREES 1FA37 WHITE CHESS KNIGHT ROTATED TWO HUNDRED SEVENTY DEGREES 1FA38 WHITE CHESS PAWN ROTATED TWO HUNDRED SEVENTY DEGREES 1FA39 BLACK CHESS KING ROTATED TWO HUNDRED SEVENTY DEGREES 1FA3A BLACK CHESS QUEEN ROTATED TWO HUNDRED SEVENTY DEGREES 1FA3B BLACK CHESS ROOK ROTATED TWO HUNDRED SEVENTY DEGREES 1FA3C BLACK CHESS BISHOP ROTATED TWO HUNDRED SEVENTY DEGREES 1FA3D BLACK CHESS KNIGHT ROTATED TWO HUNDRED SEVENTY DEGREES 1FA3E BLACK CHESS PAWN ROTATED TWO HUNDRED SEVENTY DEGREES 1FA3F NEUTRAL CHESS KING ROTATED TWO HUNDRED SEVENTY DEGREES 1FA40 NEUTRAL CHESS QUEEN ROTATED TWO HUNDRED SEVENTY DEGREES 1FA41 NEUTRAL CHESS ROOK ROTATED TWO HUNDRED SEVENTY DEGREES 1FA42 NEUTRAL CHESS BISHOP ROTATED TWO HUNDRED SEVENTY DEGREES 1FA43 NEUTRAL CHESS KNIGHT ROTATED TWO HUNDRED SEVENTY DEGREES 1FA44 NEUTRAL CHESS PAWN ROTATED TWO HUNDRED SEVENTY DEGREES 1FA45 WHITE CHESS KNIGHT ROTATED THREE HUNDRED FIFTEEN DEGREES 1FA46 BLACK CHESS KNIGHT ROTATED THREE HUNDRED FIFTEEN DEGREES 1FA47 NEUTRAL CHESS KNIGHT ROTATED THREE HUNDRED FIFTEEN DEGREES 1FA48 WHITE CHESS EQUIHOPPER 1FA49 BLACK CHESS EQUIHOPPER 1FA4A NEUTRAL CHESS EQUIHOPPER 1FA4B WHITE CHESS EQUIHOPPER ROTATED NINETY DEGREES 1FA4C BLACK CHESS EQUIHOPPER ROTATED NINETY DEGREES 1FA4D NEUTRAL CHESS EQUIHOPPER ROTATED NINETY DEGREES 1FA4E WHITE CHESS KNIGHT-QUEEN 1FA4F WHITE CHESS KNIGHT-ROOK 1FA50 WHITE CHESS KNIGHT-BISHOP 1FA51 BLACK CHESS KNIGHT-QUEEN 1FA52 BLACK CHESS KNIGHT-ROOK 1FA53 BLACK CHESS KNIGHT-BISHOP 1FA60 XIANGQI RED GENERAL 1FA61 XIANGQI RED MANDARIN 1FA62 XIANGQI RED ELEPHANT 1FA63 XIANGQI RED HORSE 1FA64 XIANGQI RED CHARIOT 1FA65 XIANGQI RED CANNON 1FA66 XIANGQI RED SOLDIER 1FA67 XIANGQI BLACK GENERAL 1FA68 XIANGQI BLACK MANDARIN 1FA69 XIANGQI BLACK ELEPHANT 1FA6A XIANGQI BLACK HORSE 1FA6B XIANGQI BLACK CHARIOT 1FA6C XIANGQI BLACK CANNON 1FA6D XIANGQI BLACK SOLDIER 1FA70 BALLET SHOES 1FA71 ONE-PIECE SWIMSUIT 1FA72 BRIEFS 1FA73 SHORTS 1FA74 THONG SANDAL 1FA78 DROP OF BLOOD 1FA79 ADHESIVE BANDAGE 1FA7A STETHOSCOPE 1FA80 YO-YO 1FA81 KITE 1FA82 PARACHUTE 1FA83 BOOMERANG 1FA84 MAGIC WAND 1FA85 PINATA 1FA86 NESTING DOLLS 1FA90 RINGED PLANET 1FA91 CHAIR 1FA92 RAZOR 1FA93 AXE 1FA94 DIYA LAMP 1FA95 BANJO 1FA96 MILITARY HELMET 1FA97 ACCORDION 1FA98 LONG DRUM 1FA99 COIN 1FA9A CARPENTRY SAW 1FA9B SCREWDRIVER 1FA9C LADDER 1FA9D HOOK 1FA9E MIRROR 1FA9F WINDOW 1FAA0 PLUNGER 1FAA1 SEWING NEEDLE 1FAA2 KNOT 1FAA3 BUCKET 1FAA4 MOUSE TRAP 1FAA5 TOOTHBRUSH 1FAA6 HEADSTONE 1FAA7 PLACARD 1FAA8 ROCK 1FAB0 FLY 1FAB1 WORM 1FAB2 BEETLE 1FAB3 COCKROACH 1FAB4 POTTED PLANT 1FAB5 WOOD 1FAB6 FEATHER 1FAC0 ANATOMICAL HEART 1FAC1 LUNGS 1FAC2 PEOPLE HUGGING 1FAD0 BLUEBERRIES 1FAD1 BELL PEPPER 1FAD2 OLIVE 1FAD3 FLATBREAD 1FAD4 TAMALE 1FAD5 FONDUE 1FAD6 TEAPOT 1FB00 BLOCK SEXTANT-1 1FB01 BLOCK SEXTANT-2 1FB02 BLOCK SEXTANT-12 1FB03 BLOCK SEXTANT-3 1FB04 BLOCK SEXTANT-13 1FB05 BLOCK SEXTANT-23 1FB06 BLOCK SEXTANT-123 1FB07 BLOCK SEXTANT-4 1FB08 BLOCK SEXTANT-14 1FB09 BLOCK SEXTANT-24 1FB0A BLOCK SEXTANT-124 1FB0B BLOCK SEXTANT-34 1FB0C BLOCK SEXTANT-134 1FB0D BLOCK SEXTANT-234 1FB0E BLOCK SEXTANT-1234 1FB0F BLOCK SEXTANT-5 1FB10 BLOCK SEXTANT-15 1FB11 BLOCK SEXTANT-25 1FB12 BLOCK SEXTANT-125 1FB13 BLOCK SEXTANT-35 1FB14 BLOCK SEXTANT-235 1FB15 BLOCK SEXTANT-1235 1FB16 BLOCK SEXTANT-45 1FB17 BLOCK SEXTANT-145 1FB18 BLOCK SEXTANT-245 1FB19 BLOCK SEXTANT-1245 1FB1A BLOCK SEXTANT-345 1FB1B BLOCK SEXTANT-1345 1FB1C BLOCK SEXTANT-2345 1FB1D BLOCK SEXTANT-12345 1FB1E BLOCK SEXTANT-6 1FB1F BLOCK SEXTANT-16 1FB20 BLOCK SEXTANT-26 1FB21 BLOCK SEXTANT-126 1FB22 BLOCK SEXTANT-36 1FB23 BLOCK SEXTANT-136 1FB24 BLOCK SEXTANT-236 1FB25 BLOCK SEXTANT-1236 1FB26 BLOCK SEXTANT-46 1FB27 BLOCK SEXTANT-146 1FB28 BLOCK SEXTANT-1246 1FB29 BLOCK SEXTANT-346 1FB2A BLOCK SEXTANT-1346 1FB2B BLOCK SEXTANT-2346 1FB2C BLOCK SEXTANT-12346 1FB2D BLOCK SEXTANT-56 1FB2E BLOCK SEXTANT-156 1FB2F BLOCK SEXTANT-256 1FB30 BLOCK SEXTANT-1256 1FB31 BLOCK SEXTANT-356 1FB32 BLOCK SEXTANT-1356 1FB33 BLOCK SEXTANT-2356 1FB34 BLOCK SEXTANT-12356 1FB35 BLOCK SEXTANT-456 1FB36 BLOCK SEXTANT-1456 1FB37 BLOCK SEXTANT-2456 1FB38 BLOCK SEXTANT-12456 1FB39 BLOCK SEXTANT-3456 1FB3A BLOCK SEXTANT-13456 1FB3B BLOCK SEXTANT-23456 1FB3C LOWER LEFT BLOCK DIAGONAL LOWER MIDDLE LEFT TO LOWER CENTRE 1FB3D LOWER LEFT BLOCK DIAGONAL LOWER MIDDLE LEFT TO LOWER RIGHT 1FB3E LOWER LEFT BLOCK DIAGONAL UPPER MIDDLE LEFT TO LOWER CENTRE 1FB3F LOWER LEFT BLOCK DIAGONAL UPPER MIDDLE LEFT TO LOWER RIGHT 1FB40 LOWER LEFT BLOCK DIAGONAL UPPER LEFT TO LOWER CENTRE 1FB41 LOWER RIGHT BLOCK DIAGONAL UPPER MIDDLE LEFT TO UPPER CENTRE 1FB42 LOWER RIGHT BLOCK DIAGONAL UPPER MIDDLE LEFT TO UPPER RIGHT 1FB43 LOWER RIGHT BLOCK DIAGONAL LOWER MIDDLE LEFT TO UPPER CENTRE 1FB44 LOWER RIGHT BLOCK DIAGONAL LOWER MIDDLE LEFT TO UPPER RIGHT 1FB45 LOWER RIGHT BLOCK DIAGONAL LOWER LEFT TO UPPER CENTRE 1FB46 LOWER RIGHT BLOCK DIAGONAL LOWER MIDDLE LEFT TO UPPER MIDDLE RIGHT 1FB47 LOWER RIGHT BLOCK DIAGONAL LOWER CENTRE TO LOWER MIDDLE RIGHT 1FB48 LOWER RIGHT BLOCK DIAGONAL LOWER LEFT TO LOWER MIDDLE RIGHT 1FB49 LOWER RIGHT BLOCK DIAGONAL LOWER CENTRE TO UPPER MIDDLE RIGHT 1FB4A LOWER RIGHT BLOCK DIAGONAL LOWER LEFT TO UPPER MIDDLE RIGHT 1FB4B LOWER RIGHT BLOCK DIAGONAL LOWER CENTRE TO UPPER RIGHT 1FB4C LOWER LEFT BLOCK DIAGONAL UPPER CENTRE TO UPPER MIDDLE RIGHT 1FB4D LOWER LEFT BLOCK DIAGONAL UPPER LEFT TO UPPER MIDDLE RIGHT 1FB4E LOWER LEFT BLOCK DIAGONAL UPPER CENTRE TO LOWER MIDDLE RIGHT 1FB4F LOWER LEFT BLOCK DIAGONAL UPPER LEFT TO LOWER MIDDLE RIGHT 1FB50 LOWER LEFT BLOCK DIAGONAL UPPER CENTRE TO LOWER RIGHT 1FB51 LOWER LEFT BLOCK DIAGONAL UPPER MIDDLE LEFT TO LOWER MIDDLE RIGHT 1FB52 UPPER RIGHT BLOCK DIAGONAL LOWER MIDDLE LEFT TO LOWER CENTRE 1FB53 UPPER RIGHT BLOCK DIAGONAL LOWER MIDDLE LEFT TO LOWER RIGHT 1FB54 UPPER RIGHT BLOCK DIAGONAL UPPER MIDDLE LEFT TO LOWER CENTRE 1FB55 UPPER RIGHT BLOCK DIAGONAL UPPER MIDDLE LEFT TO LOWER RIGHT 1FB56 UPPER RIGHT BLOCK DIAGONAL UPPER LEFT TO LOWER CENTRE 1FB57 UPPER LEFT BLOCK DIAGONAL UPPER MIDDLE LEFT TO UPPER CENTRE 1FB58 UPPER LEFT BLOCK DIAGONAL UPPER MIDDLE LEFT TO UPPER RIGHT 1FB59 UPPER LEFT BLOCK DIAGONAL LOWER MIDDLE LEFT TO UPPER CENTRE 1FB5A UPPER LEFT BLOCK DIAGONAL LOWER MIDDLE LEFT TO UPPER RIGHT 1FB5B UPPER LEFT BLOCK DIAGONAL LOWER LEFT TO UPPER CENTRE 1FB5C UPPER LEFT BLOCK DIAGONAL LOWER MIDDLE LEFT TO UPPER MIDDLE RIGHT 1FB5D UPPER LEFT BLOCK DIAGONAL LOWER CENTRE TO LOWER MIDDLE RIGHT 1FB5E UPPER LEFT BLOCK DIAGONAL LOWER LEFT TO LOWER MIDDLE RIGHT 1FB5F UPPER LEFT BLOCK DIAGONAL LOWER CENTRE TO UPPER MIDDLE RIGHT 1FB60 UPPER LEFT BLOCK DIAGONAL LOWER LEFT TO UPPER MIDDLE RIGHT 1FB61 UPPER LEFT BLOCK DIAGONAL LOWER CENTRE TO UPPER RIGHT 1FB62 UPPER RIGHT BLOCK DIAGONAL UPPER CENTRE TO UPPER MIDDLE RIGHT 1FB63 UPPER RIGHT BLOCK DIAGONAL UPPER LEFT TO UPPER MIDDLE RIGHT 1FB64 UPPER RIGHT BLOCK DIAGONAL UPPER CENTRE TO LOWER MIDDLE RIGHT 1FB65 UPPER RIGHT BLOCK DIAGONAL UPPER LEFT TO LOWER MIDDLE RIGHT 1FB66 UPPER RIGHT BLOCK DIAGONAL UPPER CENTRE TO LOWER RIGHT 1FB67 UPPER RIGHT BLOCK DIAGONAL UPPER MIDDLE LEFT TO LOWER MIDDLE RIGHT 1FB68 UPPER AND RIGHT AND LOWER TRIANGULAR THREE QUARTERS BLOCK 1FB69 LEFT AND LOWER AND RIGHT TRIANGULAR THREE QUARTERS BLOCK 1FB6A UPPER AND LEFT AND LOWER TRIANGULAR THREE QUARTERS BLOCK 1FB6B LEFT AND UPPER AND RIGHT TRIANGULAR THREE QUARTERS BLOCK 1FB6C LEFT TRIANGULAR ONE QUARTER BLOCK 1FB6D UPPER TRIANGULAR ONE QUARTER BLOCK 1FB6E RIGHT TRIANGULAR ONE QUARTER BLOCK 1FB6F LOWER TRIANGULAR ONE QUARTER BLOCK 1FB70 VERTICAL ONE EIGHTH BLOCK-2 1FB71 VERTICAL ONE EIGHTH BLOCK-3 1FB72 VERTICAL ONE EIGHTH BLOCK-4 1FB73 VERTICAL ONE EIGHTH BLOCK-5 1FB74 VERTICAL ONE EIGHTH BLOCK-6 1FB75 VERTICAL ONE EIGHTH BLOCK-7 1FB76 HORIZONTAL ONE EIGHTH BLOCK-2 1FB77 HORIZONTAL ONE EIGHTH BLOCK-3 1FB78 HORIZONTAL ONE EIGHTH BLOCK-4 1FB79 HORIZONTAL ONE EIGHTH BLOCK-5 1FB7A HORIZONTAL ONE EIGHTH BLOCK-6 1FB7B HORIZONTAL ONE EIGHTH BLOCK-7 1FB7C LEFT AND LOWER ONE EIGHTH BLOCK 1FB7D LEFT AND UPPER ONE EIGHTH BLOCK 1FB7E RIGHT AND UPPER ONE EIGHTH BLOCK 1FB7F RIGHT AND LOWER ONE EIGHTH BLOCK 1FB80 UPPER AND LOWER ONE EIGHTH BLOCK 1FB81 HORIZONTAL ONE EIGHTH BLOCK-1358 1FB82 UPPER ONE QUARTER BLOCK 1FB83 UPPER THREE EIGHTHS BLOCK 1FB84 UPPER FIVE EIGHTHS BLOCK 1FB85 UPPER THREE QUARTERS BLOCK 1FB86 UPPER SEVEN EIGHTHS BLOCK 1FB87 RIGHT ONE QUARTER BLOCK 1FB88 RIGHT THREE EIGHTHS BLOCK 1FB89 RIGHT FIVE EIGHTHS BLOCK 1FB8A RIGHT THREE QUARTERS BLOCK 1FB8B RIGHT SEVEN EIGHTHS BLOCK 1FB8C LEFT HALF MEDIUM SHADE 1FB8D RIGHT HALF MEDIUM SHADE 1FB8E UPPER HALF MEDIUM SHADE 1FB8F LOWER HALF MEDIUM SHADE 1FB90 INVERSE MEDIUM SHADE 1FB91 UPPER HALF BLOCK AND LOWER HALF INVERSE MEDIUM SHADE 1FB92 UPPER HALF INVERSE MEDIUM SHADE AND LOWER HALF BLOCK 1FB94 LEFT HALF INVERSE MEDIUM SHADE AND RIGHT HALF BLOCK 1FB95 CHECKER BOARD FILL 1FB96 INVERSE CHECKER BOARD FILL 1FB97 HEAVY HORIZONTAL FILL 1FB98 UPPER LEFT TO LOWER RIGHT FILL 1FB99 UPPER RIGHT TO LOWER LEFT FILL 1FB9A UPPER AND LOWER TRIANGULAR HALF BLOCK 1FB9B LEFT AND RIGHT TRIANGULAR HALF BLOCK 1FB9C UPPER LEFT TRIANGULAR MEDIUM SHADE 1FB9D UPPER RIGHT TRIANGULAR MEDIUM SHADE 1FB9E LOWER RIGHT TRIANGULAR MEDIUM SHADE 1FB9F LOWER LEFT TRIANGULAR MEDIUM SHADE 1FBA0 BOX DRAWINGS LIGHT DIAGONAL UPPER CENTRE TO MIDDLE LEFT 1FBA1 BOX DRAWINGS LIGHT DIAGONAL UPPER CENTRE TO MIDDLE RIGHT 1FBA2 BOX DRAWINGS LIGHT DIAGONAL MIDDLE LEFT TO LOWER CENTRE 1FBA3 BOX DRAWINGS LIGHT DIAGONAL MIDDLE RIGHT TO LOWER CENTRE 1FBA4 BOX DRAWINGS LIGHT DIAGONAL UPPER CENTRE TO MIDDLE LEFT TO LOWER CENTRE 1FBA5 BOX DRAWINGS LIGHT DIAGONAL UPPER CENTRE TO MIDDLE RIGHT TO LOWER CENTRE 1FBA6 BOX DRAWINGS LIGHT DIAGONAL MIDDLE LEFT TO LOWER CENTRE TO MIDDLE RIGHT 1FBA7 BOX DRAWINGS LIGHT DIAGONAL MIDDLE LEFT TO UPPER CENTRE TO MIDDLE RIGHT 1FBA8 BOX DRAWINGS LIGHT DIAGONAL UPPER CENTRE TO MIDDLE LEFT AND MIDDLE RIGHT TO LOWER CENTRE 1FBA9 BOX DRAWINGS LIGHT DIAGONAL UPPER CENTRE TO MIDDLE RIGHT AND MIDDLE LEFT TO LOWER CENTRE 1FBAA BOX DRAWINGS LIGHT DIAGONAL UPPER CENTRE TO MIDDLE RIGHT TO LOWER CENTRE TO MIDDLE LEFT 1FBAB BOX DRAWINGS LIGHT DIAGONAL UPPER CENTRE TO MIDDLE LEFT TO LOWER CENTRE TO MIDDLE RIGHT 1FBAC BOX DRAWINGS LIGHT DIAGONAL MIDDLE LEFT TO UPPER CENTRE TO MIDDLE RIGHT TO LOWER CENTRE 1FBAD BOX DRAWINGS LIGHT DIAGONAL MIDDLE RIGHT TO UPPER CENTRE TO MIDDLE LEFT TO LOWER CENTRE 1FBAE BOX DRAWINGS LIGHT DIAGONAL DIAMOND 1FBAF BOX DRAWINGS LIGHT HORIZONTAL WITH VERTICAL STROKE 1FBB0 ARROWHEAD-SHAPED POINTER 1FBB1 INVERSE CHECK MARK 1FBB2 LEFT HALF RUNNING MAN 1FBB3 RIGHT HALF RUNNING MAN 1FBB4 INVERSE DOWNWARDS ARROW WITH TIP LEFTWARDS 1FBB5 LEFTWARDS ARROW AND UPPER AND LOWER ONE EIGHTH BLOCK 1FBB6 RIGHTWARDS ARROW AND UPPER AND LOWER ONE EIGHTH BLOCK 1FBB7 DOWNWARDS ARROW AND RIGHT ONE EIGHTH BLOCK 1FBB8 UPWARDS ARROW AND RIGHT ONE EIGHTH BLOCK 1FBB9 LEFT HALF FOLDER 1FBBA RIGHT HALF FOLDER 1FBBB VOIDED GREEK CROSS 1FBBC RIGHT OPEN SQUARED DOT 1FBBD NEGATIVE DIAGONAL CROSS 1FBBE NEGATIVE DIAGONAL MIDDLE RIGHT TO LOWER CENTRE 1FBBF NEGATIVE DIAGONAL DIAMOND 1FBC0 WHITE HEAVY SALTIRE WITH ROUNDED CORNERS 1FBC1 LEFT THIRD WHITE RIGHT POINTING INDEX 1FBC2 MIDDLE THIRD WHITE RIGHT POINTING INDEX 1FBC3 RIGHT THIRD WHITE RIGHT POINTING INDEX 1FBC4 NEGATIVE SQUARED QUESTION MARK 1FBC5 STICK FIGURE 1FBC6 STICK FIGURE WITH ARMS RAISED 1FBC7 STICK FIGURE LEANING LEFT 1FBC8 STICK FIGURE LEANING RIGHT 1FBC9 STICK FIGURE WITH DRESS 1FBCA WHITE UP-POINTING CHEVRON 1FBF0 SEGMENTED DIGIT ZERO 1FBF1 SEGMENTED DIGIT ONE 1FBF2 SEGMENTED DIGIT TWO 1FBF3 SEGMENTED DIGIT THREE 1FBF4 SEGMENTED DIGIT FOUR 1FBF5 SEGMENTED DIGIT FIVE 1FBF6 SEGMENTED DIGIT SIX 1FBF7 SEGMENTED DIGIT SEVEN 1FBF8 SEGMENTED DIGIT EIGHT 1FBF9 SEGMENTED DIGIT NINE E0001 LANGUAGE TAG E0020 TAG SPACE E0021 TAG EXCLAMATION MARK E0022 TAG QUOTATION MARK E0023 TAG NUMBER SIGN E0024 TAG DOLLAR SIGN E0025 TAG PERCENT SIGN E0026 TAG AMPERSAND E0027 TAG APOSTROPHE E0028 TAG LEFT PARENTHESIS E0029 TAG RIGHT PARENTHESIS E002A TAG ASTERISK E002B TAG PLUS SIGN E002C TAG COMMA E002D TAG HYPHEN-MINUS E002E TAG FULL STOP E002F TAG SOLIDUS E0030 TAG DIGIT ZERO E0031 TAG DIGIT ONE E0032 TAG DIGIT TWO E0033 TAG DIGIT THREE E0034 TAG DIGIT FOUR E0035 TAG DIGIT FIVE E0036 TAG DIGIT SIX E0037 TAG DIGIT SEVEN E0038 TAG DIGIT EIGHT E0039 TAG DIGIT NINE E003A TAG COLON E003B TAG SEMICOLON E003C TAG LESS-THAN SIGN E003D TAG EQUALS SIGN E003E TAG GREATER-THAN SIGN E003F TAG QUESTION MARK E0040 TAG COMMERCIAL AT E0041 TAG LATIN CAPITAL LETTER A E0042 TAG LATIN CAPITAL LETTER B E0043 TAG LATIN CAPITAL LETTER C E0044 TAG LATIN CAPITAL LETTER D E0045 TAG LATIN CAPITAL LETTER E E0046 TAG LATIN CAPITAL LETTER F E0047 TAG LATIN CAPITAL LETTER G E0048 TAG LATIN CAPITAL LETTER H E0049 TAG LATIN CAPITAL LETTER I E004A TAG LATIN CAPITAL LETTER J E004B TAG LATIN CAPITAL LETTER K E004C TAG LATIN CAPITAL LETTER L E004D TAG LATIN CAPITAL LETTER M E004E TAG LATIN CAPITAL LETTER N E004F TAG LATIN CAPITAL LETTER O E0050 TAG LATIN CAPITAL LETTER P E0051 TAG LATIN CAPITAL LETTER Q E0052 TAG LATIN CAPITAL LETTER R E0053 TAG LATIN CAPITAL LETTER S E0054 TAG LATIN CAPITAL LETTER T E0055 TAG LATIN CAPITAL LETTER U E0056 TAG LATIN CAPITAL LETTER V E0057 TAG LATIN CAPITAL LETTER W E0058 TAG LATIN CAPITAL LETTER X E0059 TAG LATIN CAPITAL LETTER Y E005A TAG LATIN CAPITAL LETTER Z E005B TAG LEFT SQUARE BRACKET E005C TAG REVERSE SOLIDUS E005D TAG RIGHT SQUARE BRACKET E005E TAG CIRCUMFLEX ACCENT E005F TAG LOW LINE E0060 TAG GRAVE ACCENT E0061 TAG LATIN SMALL LETTER A E0062 TAG LATIN SMALL LETTER B E0063 TAG LATIN SMALL LETTER C E0064 TAG LATIN SMALL LETTER D E0065 TAG LATIN SMALL LETTER E E0066 TAG LATIN SMALL LETTER F E0067 TAG LATIN SMALL LETTER G E0068 TAG LATIN SMALL LETTER H E0069 TAG LATIN SMALL LETTER I E006A TAG LATIN SMALL LETTER J E006B TAG LATIN SMALL LETTER K E006C TAG LATIN SMALL LETTER L E006D TAG LATIN SMALL LETTER M E006E TAG LATIN SMALL LETTER N E006F TAG LATIN SMALL LETTER O E0070 TAG LATIN SMALL LETTER P E0071 TAG LATIN SMALL LETTER Q E0072 TAG LATIN SMALL LETTER R E0073 TAG LATIN SMALL LETTER S E0074 TAG LATIN SMALL LETTER T E0075 TAG LATIN SMALL LETTER U E0076 TAG LATIN SMALL LETTER V E0077 TAG LATIN SMALL LETTER W E0078 TAG LATIN SMALL LETTER X E0079 TAG LATIN SMALL LETTER Y E007A TAG LATIN SMALL LETTER Z E007B TAG LEFT CURLY BRACKET E007C TAG VERTICAL LINE E007D TAG RIGHT CURLY BRACKET E007E TAG TILDE E007F CANCEL TAG E0100 VARIATION SELECTOR-17 E0100 VS17 E0101 VARIATION SELECTOR-18 E0101 VS18 E0102 VARIATION SELECTOR-19 E0102 VS19 E0103 VARIATION SELECTOR-20 E0103 VS20 E0104 VARIATION SELECTOR-21 E0104 VS21 E0105 VARIATION SELECTOR-22 E0105 VS22 E0106 VARIATION SELECTOR-23 E0106 VS23 E0107 VARIATION SELECTOR-24 E0107 VS24 E0108 VARIATION SELECTOR-25 E0108 VS25 E0109 VARIATION SELECTOR-26 E0109 VS26 E010A VARIATION SELECTOR-27 E010A VS27 E010B VARIATION SELECTOR-28 E010B VS28 E010C VARIATION SELECTOR-29 E010C VS29 E010D VARIATION SELECTOR-30 E010D VS30 E010E VARIATION SELECTOR-31 E010E VS31 E010F VARIATION SELECTOR-32 E010F VS32 E0110 VARIATION SELECTOR-33 E0110 VS33 E0111 VARIATION SELECTOR-34 E0111 VS34 E0112 VARIATION SELECTOR-35 E0112 VS35 E0113 VARIATION SELECTOR-36 E0113 VS36 E0114 VARIATION SELECTOR-37 E0114 VS37 E0115 VARIATION SELECTOR-38 E0115 VS38 E0116 VARIATION SELECTOR-39 E0116 VS39 E0117 VARIATION SELECTOR-40 E0117 VS40 E0118 VARIATION SELECTOR-41 E0118 VS41 E0119 VARIATION SELECTOR-42 E0119 VS42 E011A VARIATION SELECTOR-43 E011A VS43 E011B VARIATION SELECTOR-44 E011B VS44 E011C VARIATION SELECTOR-45 E011C VS45 E011D VARIATION SELECTOR-46 E011D VS46 E011E VARIATION SELECTOR-47 E011E VS47 E011F VARIATION SELECTOR-48 E011F VS48 E0120 VARIATION SELECTOR-49 E0120 VS49 E0121 VARIATION SELECTOR-50 E0121 VS50 E0122 VARIATION SELECTOR-51 E0122 VS51 E0123 VARIATION SELECTOR-52 E0123 VS52 E0124 VARIATION SELECTOR-53 E0124 VS53 E0125 VARIATION SELECTOR-54 E0125 VS54 E0126 VARIATION SELECTOR-55 E0126 VS55 E0127 VARIATION SELECTOR-56 E0127 VS56 E0128 VARIATION SELECTOR-57 E0128 VS57 E0129 VARIATION SELECTOR-58 E0129 VS58 E012A VARIATION SELECTOR-59 E012A VS59 E012B VARIATION SELECTOR-60 E012B VS60 E012C VARIATION SELECTOR-61 E012C VS61 E012D VARIATION SELECTOR-62 E012D VS62 E012E VARIATION SELECTOR-63 E012E VS63 E012F VARIATION SELECTOR-64 E012F VS64 E0130 VARIATION SELECTOR-65 E0130 VS65 E0131 VARIATION SELECTOR-66 E0131 VS66 E0132 VARIATION SELECTOR-67 E0132 VS67 E0133 VARIATION SELECTOR-68 E0133 VS68 E0134 VARIATION SELECTOR-69 E0134 VS69 E0135 VARIATION SELECTOR-70 E0135 VS70 E0136 VARIATION SELECTOR-71 E0136 VS71 E0137 VARIATION SELECTOR-72 E0137 VS72 E0138 VARIATION SELECTOR-73 E0138 VS73 E0139 VARIATION SELECTOR-74 E0139 VS74 E013A VARIATION SELECTOR-75 E013A VS75 E013B VARIATION SELECTOR-76 E013B VS76 E013C VARIATION SELECTOR-77 E013C VS77 E013D VARIATION SELECTOR-78 E013D VS78 E013E VARIATION SELECTOR-79 E013E VS79 E013F VARIATION SELECTOR-80 E013F VS80 E0140 VARIATION SELECTOR-81 E0140 VS81 E0141 VARIATION SELECTOR-82 E0141 VS82 E0142 VARIATION SELECTOR-83 E0142 VS83 E0143 VARIATION SELECTOR-84 E0143 VS84 E0144 VARIATION SELECTOR-85 E0144 VS85 E0145 VARIATION SELECTOR-86 E0145 VS86 E0146 VARIATION SELECTOR-87 E0146 VS87 E0147 VARIATION SELECTOR-88 E0147 VS88 E0148 VARIATION SELECTOR-89 E0148 VS89 E0149 VARIATION SELECTOR-90 E0149 VS90 E014A VARIATION SELECTOR-91 E014A VS91 E014B VARIATION SELECTOR-92 E014B VS92 E014C VARIATION SELECTOR-93 E014C VS93 E014D VARIATION SELECTOR-94 E014D VS94 E014E VARIATION SELECTOR-95 E014E VS95 E014F VARIATION SELECTOR-96 E014F VS96 E0150 VARIATION SELECTOR-97 E0150 VS97 E0151 VARIATION SELECTOR-98 E0151 VS98 E0152 VARIATION SELECTOR-99 E0152 VS99 E0153 VARIATION SELECTOR-100 E0153 VS100 E0154 VARIATION SELECTOR-101 E0154 VS101 E0155 VARIATION SELECTOR-102 E0155 VS102 E0156 VARIATION SELECTOR-103 E0156 VS103 E0157 VARIATION SELECTOR-104 E0157 VS104 E0158 VARIATION SELECTOR-105 E0158 VS105 E0159 VARIATION SELECTOR-106 E0159 VS106 E015A VARIATION SELECTOR-107 E015A VS107 E015B VARIATION SELECTOR-108 E015B VS108 E015C VARIATION SELECTOR-109 E015C VS109 E015D VARIATION SELECTOR-110 E015D VS110 E015E VARIATION SELECTOR-111 E015E VS111 E015F VARIATION SELECTOR-112 E015F VS112 E0160 VARIATION SELECTOR-113 E0160 VS113 E0161 VARIATION SELECTOR-114 E0161 VS114 E0162 VARIATION SELECTOR-115 E0162 VS115 E0163 VARIATION SELECTOR-116 E0163 VS116 E0164 VARIATION SELECTOR-117 E0164 VS117 E0165 VARIATION SELECTOR-118 E0165 VS118 E0166 VARIATION SELECTOR-119 E0166 VS119 E0167 VARIATION SELECTOR-120 E0167 VS120 E0168 VARIATION SELECTOR-121 E0168 VS121 E0169 VARIATION SELECTOR-122 E0169 VS122 E016A VARIATION SELECTOR-123 E016A VS123 E016B VARIATION SELECTOR-124 E016B VS124 E016C VARIATION SELECTOR-125 E016C VS125 E016D VARIATION SELECTOR-126 E016D VS126 E016E VARIATION SELECTOR-127 E016E VS127 E016F VARIATION SELECTOR-128 E016F VS128 E0170 VARIATION SELECTOR-129 E0170 VS129 E0171 VARIATION SELECTOR-130 E0171 VS130 E0172 VARIATION SELECTOR-131 E0172 VS131 E0173 VARIATION SELECTOR-132 E0173 VS132 E0174 VARIATION SELECTOR-133 E0174 VS133 E0175 VARIATION SELECTOR-134 E0175 VS134 E0176 VARIATION SELECTOR-135 E0176 VS135 E0177 VARIATION SELECTOR-136 E0177 VS136 E0178 VARIATION SELECTOR-137 E0178 VS137 E0179 VARIATION SELECTOR-138 E0179 VS138 E017A VARIATION SELECTOR-139 E017A VS139 E017B VARIATION SELECTOR-140 E017B VS140 E017C VARIATION SELECTOR-141 E017C VS141 E017D VARIATION SELECTOR-142 E017D VS142 E017E VARIATION SELECTOR-143 E017E VS143 E017F VARIATION SELECTOR-144 E017F VS144 E0180 VARIATION SELECTOR-145 E0180 VS145 E0181 VARIATION SELECTOR-146 E0181 VS146 E0182 VARIATION SELECTOR-147 E0182 VS147 E0183 VARIATION SELECTOR-148 E0183 VS148 E0184 VARIATION SELECTOR-149 E0184 VS149 E0185 VARIATION SELECTOR-150 E0185 VS150 E0186 VARIATION SELECTOR-151 E0186 VS151 E0187 VARIATION SELECTOR-152 E0187 VS152 E0188 VARIATION SELECTOR-153 E0188 VS153 E0189 VARIATION SELECTOR-154 E0189 VS154 E018A VARIATION SELECTOR-155 E018A VS155 E018B VARIATION SELECTOR-156 E018B VS156 E018C VARIATION SELECTOR-157 E018C VS157 E018D VARIATION SELECTOR-158 E018D VS158 E018E VARIATION SELECTOR-159 E018E VS159 E018F VARIATION SELECTOR-160 E018F VS160 E0190 VARIATION SELECTOR-161 E0190 VS161 E0191 VARIATION SELECTOR-162 E0191 VS162 E0192 VARIATION SELECTOR-163 E0192 VS163 E0193 VARIATION SELECTOR-164 E0193 VS164 E0194 VARIATION SELECTOR-165 E0194 VS165 E0195 VARIATION SELECTOR-166 E0195 VS166 E0196 VARIATION SELECTOR-167 E0196 VS167 E0197 VARIATION SELECTOR-168 E0197 VS168 E0198 VARIATION SELECTOR-169 E0198 VS169 E0199 VARIATION SELECTOR-170 E0199 VS170 E019A VARIATION SELECTOR-171 E019A VS171 E019B VARIATION SELECTOR-172 E019B VS172 E019C VARIATION SELECTOR-173 E019C VS173 E019D VARIATION SELECTOR-174 E019D VS174 E019E VARIATION SELECTOR-175 E019E VS175 E019F VARIATION SELECTOR-176 E019F VS176 E01A0 VARIATION SELECTOR-177 E01A0 VS177 E01A1 VARIATION SELECTOR-178 E01A1 VS178 E01A2 VARIATION SELECTOR-179 E01A2 VS179 E01A3 VARIATION SELECTOR-180 E01A3 VS180 E01A4 VARIATION SELECTOR-181 E01A4 VS181 E01A5 VARIATION SELECTOR-182 E01A5 VS182 E01A6 VARIATION SELECTOR-183 E01A6 VS183 E01A7 VARIATION SELECTOR-184 E01A7 VS184 E01A8 VARIATION SELECTOR-185 E01A8 VS185 E01A9 VARIATION SELECTOR-186 E01A9 VS186 E01AA VARIATION SELECTOR-187 E01AA VS187 E01AB VARIATION SELECTOR-188 E01AB VS188 E01AC VARIATION SELECTOR-189 E01AC VS189 E01AD VARIATION SELECTOR-190 E01AD VS190 E01AE VARIATION SELECTOR-191 E01AE VS191 E01AF VARIATION SELECTOR-192 E01AF VS192 E01B0 VARIATION SELECTOR-193 E01B0 VS193 E01B1 VARIATION SELECTOR-194 E01B1 VS194 E01B2 VARIATION SELECTOR-195 E01B2 VS195 E01B3 VARIATION SELECTOR-196 E01B3 VS196 E01B4 VARIATION SELECTOR-197 E01B4 VS197 E01B5 VARIATION SELECTOR-198 E01B5 VS198 E01B6 VARIATION SELECTOR-199 E01B6 VS199 E01B7 VARIATION SELECTOR-200 E01B7 VS200 E01B8 VARIATION SELECTOR-201 E01B8 VS201 E01B9 VARIATION SELECTOR-202 E01B9 VS202 E01BA VARIATION SELECTOR-203 E01BA VS203 E01BB VARIATION SELECTOR-204 E01BB VS204 E01BC VARIATION SELECTOR-205 E01BC VS205 E01BD VARIATION SELECTOR-206 E01BD VS206 E01BE VARIATION SELECTOR-207 E01BE VS207 E01BF VARIATION SELECTOR-208 E01BF VS208 E01C0 VARIATION SELECTOR-209 E01C0 VS209 E01C1 VARIATION SELECTOR-210 E01C1 VS210 E01C2 VARIATION SELECTOR-211 E01C2 VS211 E01C3 VARIATION SELECTOR-212 E01C3 VS212 E01C4 VARIATION SELECTOR-213 E01C4 VS213 E01C5 VARIATION SELECTOR-214 E01C5 VS214 E01C6 VARIATION SELECTOR-215 E01C6 VS215 E01C7 VARIATION SELECTOR-216 E01C7 VS216 E01C8 VARIATION SELECTOR-217 E01C8 VS217 E01C9 VARIATION SELECTOR-218 E01C9 VS218 E01CA VARIATION SELECTOR-219 E01CA VS219 E01CB VARIATION SELECTOR-220 E01CB VS220 E01CC VARIATION SELECTOR-221 E01CC VS221 E01CD VARIATION SELECTOR-222 E01CD VS222 E01CE VARIATION SELECTOR-223 E01CE VS223 E01CF VARIATION SELECTOR-224 E01CF VS224 E01D0 VARIATION SELECTOR-225 E01D0 VS225 E01D1 VARIATION SELECTOR-226 E01D1 VS226 E01D2 VARIATION SELECTOR-227 E01D2 VS227 E01D3 VARIATION SELECTOR-228 E01D3 VS228 E01D4 VARIATION SELECTOR-229 E01D4 VS229 E01D5 VARIATION SELECTOR-230 E01D5 VS230 E01D6 VARIATION SELECTOR-231 E01D6 VS231 E01D7 VARIATION SELECTOR-232 E01D7 VS232 E01D8 VARIATION SELECTOR-233 E01D8 VS233 E01D9 VARIATION SELECTOR-234 E01D9 VS234 E01DA VARIATION SELECTOR-235 E01DA VS235 E01DB VARIATION SELECTOR-236 E01DB VS236 E01DC VARIATION SELECTOR-237 E01DC VS237 E01DD VARIATION SELECTOR-238 E01DD VS238 E01DE VARIATION SELECTOR-239 E01DE VS239 E01DF VARIATION SELECTOR-240 E01DF VS240 E01E0 VARIATION SELECTOR-241 E01E0 VS241 E01E1 VARIATION SELECTOR-242 E01E1 VS242 E01E2 VARIATION SELECTOR-243 E01E2 VS243 E01E3 VARIATION SELECTOR-244 E01E3 VS244 E01E4 VARIATION SELECTOR-245 E01E4 VS245 E01E5 VARIATION SELECTOR-246 E01E5 VS246 E01E6 VARIATION SELECTOR-247 E01E6 VS247 E01E7 VARIATION SELECTOR-248 E01E7 VS248 E01E8 VARIATION SELECTOR-249 E01E8 VS249 E01E9 VARIATION SELECTOR-250 E01E9 VS250 E01EA VARIATION SELECTOR-251 E01EA VS251 E01EB VARIATION SELECTOR-252 E01EB VS252 E01EC VARIATION SELECTOR-253 E01EC VS253 E01ED VARIATION SELECTOR-254 E01ED VS254 E01EE VARIATION SELECTOR-255 E01EE VS255 E01EF VARIATION SELECTOR-256 E01EF VS256 00023 0FE0F 020E3 KEYCAP NUMBER SIGN 0002A 0FE0F 020E3 KEYCAP ASTERISK 00030 0FE0F 020E3 KEYCAP DIGIT ZERO 00031 0FE0F 020E3 KEYCAP DIGIT ONE 00032 0FE0F 020E3 KEYCAP DIGIT TWO 00033 0FE0F 020E3 KEYCAP DIGIT THREE 00034 0FE0F 020E3 KEYCAP DIGIT FOUR 00035 0FE0F 020E3 KEYCAP DIGIT FIVE 00036 0FE0F 020E3 KEYCAP DIGIT SIX 00037 0FE0F 020E3 KEYCAP DIGIT SEVEN 00038 0FE0F 020E3 KEYCAP DIGIT EIGHT 00039 0FE0F 020E3 KEYCAP DIGIT NINE 00100 00300 LATIN CAPITAL LETTER A WITH MACRON AND GRAVE 00101 00300 LATIN SMALL LETTER A WITH MACRON AND GRAVE 0012A 00300 LATIN CAPITAL LETTER I WITH MACRON AND GRAVE 0012B 00300 LATIN SMALL LETTER I WITH MACRON AND GRAVE 0016A 00300 LATIN CAPITAL LETTER U WITH MACRON AND GRAVE 0016B 00300 LATIN SMALL LETTER U WITH MACRON AND GRAVE 00045 00329 LATIN CAPITAL LETTER E WITH VERTICAL LINE BELOW 00065 00329 LATIN SMALL LETTER E WITH VERTICAL LINE BELOW 000C8 00329 LATIN CAPITAL LETTER E WITH VERTICAL LINE BELOW AND GRAVE 000E8 00329 LATIN SMALL LETTER E WITH VERTICAL LINE BELOW AND GRAVE 000C9 00329 LATIN CAPITAL LETTER E WITH VERTICAL LINE BELOW AND ACUTE 000E9 00329 LATIN SMALL LETTER E WITH VERTICAL LINE BELOW AND ACUTE 0004F 00329 LATIN CAPITAL LETTER O WITH VERTICAL LINE BELOW 0006F 00329 LATIN SMALL LETTER O WITH VERTICAL LINE BELOW 000D2 00329 LATIN CAPITAL LETTER O WITH VERTICAL LINE BELOW AND GRAVE 000F2 00329 LATIN SMALL LETTER O WITH VERTICAL LINE BELOW AND GRAVE 000D3 00329 LATIN CAPITAL LETTER O WITH VERTICAL LINE BELOW AND ACUTE 000F3 00329 LATIN SMALL LETTER O WITH VERTICAL LINE BELOW AND ACUTE 00053 00329 LATIN CAPITAL LETTER S WITH VERTICAL LINE BELOW 00073 00329 LATIN SMALL LETTER S WITH VERTICAL LINE BELOW 000CA 00304 LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND MACRON 000EA 00304 LATIN SMALL LETTER E WITH CIRCUMFLEX AND MACRON 000CA 0030C LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND CARON 000EA 0030C LATIN SMALL LETTER E WITH CIRCUMFLEX AND CARON 00069 00307 00301 LATIN SMALL LETTER I WITH DOT ABOVE AND ACUTE 0006E 00360 00067 LATIN SMALL LETTER NG WITH TILDE ABOVE 00104 00301 LATIN CAPITAL LETTER A WITH OGONEK AND ACUTE 00105 00301 LATIN SMALL LETTER A WITH OGONEK AND ACUTE 00104 00303 LATIN CAPITAL LETTER A WITH OGONEK AND TILDE 00105 00303 LATIN SMALL LETTER A WITH OGONEK AND TILDE 00118 00301 LATIN CAPITAL LETTER E WITH OGONEK AND ACUTE 00119 00301 LATIN SMALL LETTER E WITH OGONEK AND ACUTE 00118 00303 LATIN CAPITAL LETTER E WITH OGONEK AND TILDE 00119 00303 LATIN SMALL LETTER E WITH OGONEK AND TILDE 00116 00301 LATIN CAPITAL LETTER E WITH DOT ABOVE AND ACUTE 00117 00301 LATIN SMALL LETTER E WITH DOT ABOVE AND ACUTE 00116 00303 LATIN CAPITAL LETTER E WITH DOT ABOVE AND TILDE 00117 00303 LATIN SMALL LETTER E WITH DOT ABOVE AND TILDE 00069 00307 00300 LATIN SMALL LETTER I WITH DOT ABOVE AND GRAVE 00069 00307 00303 LATIN SMALL LETTER I WITH DOT ABOVE AND TILDE 0012E 00301 LATIN CAPITAL LETTER I WITH OGONEK AND ACUTE 0012F 00307 00301 LATIN SMALL LETTER I WITH OGONEK AND DOT ABOVE AND ACUTE 0012E 00303 LATIN CAPITAL LETTER I WITH OGONEK AND TILDE 0012F 00307 00303 LATIN SMALL LETTER I WITH OGONEK AND DOT ABOVE AND TILDE 0004A 00303 LATIN CAPITAL LETTER J WITH TILDE 0006A 00307 00303 LATIN SMALL LETTER J WITH DOT ABOVE AND TILDE 0004C 00303 LATIN CAPITAL LETTER L WITH TILDE 0006C 00303 LATIN SMALL LETTER L WITH TILDE 0004D 00303 LATIN CAPITAL LETTER M WITH TILDE 0006D 00303 LATIN SMALL LETTER M WITH TILDE 00052 00303 LATIN CAPITAL LETTER R WITH TILDE 00072 00303 LATIN SMALL LETTER R WITH TILDE 00172 00301 LATIN CAPITAL LETTER U WITH OGONEK AND ACUTE 00173 00301 LATIN SMALL LETTER U WITH OGONEK AND ACUTE 00172 00303 LATIN CAPITAL LETTER U WITH OGONEK AND TILDE 00173 00303 LATIN SMALL LETTER U WITH OGONEK AND TILDE 0016A 00301 LATIN CAPITAL LETTER U WITH MACRON AND ACUTE 0016B 00301 LATIN SMALL LETTER U WITH MACRON AND ACUTE 0016A 00303 LATIN CAPITAL LETTER U WITH MACRON AND TILDE 0016B 00303 LATIN SMALL LETTER U WITH MACRON AND TILDE 000E6 00300 LATIN SMALL LETTER AE WITH GRAVE 00254 00300 LATIN SMALL LETTER OPEN O WITH GRAVE 00254 00301 LATIN SMALL LETTER OPEN O WITH ACUTE 0028C 00300 LATIN SMALL LETTER TURNED V WITH GRAVE 0028C 00301 LATIN SMALL LETTER TURNED V WITH ACUTE 00259 00300 LATIN SMALL LETTER SCHWA WITH GRAVE 00259 00301 LATIN SMALL LETTER SCHWA WITH ACUTE 0025A 00300 LATIN SMALL LETTER HOOKED SCHWA WITH GRAVE 0025A 00301 LATIN SMALL LETTER HOOKED SCHWA WITH ACUTE 00626 00627 ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH ALEF 00626 00648 ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH WAW 00626 00649 ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH ALEF MAKSURA 00626 006C6 ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH OE 00626 006C7 ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH U 00626 006C8 ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH YU 00626 006D0 ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH E 00626 006D5 ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH AE 00646 006A9 ARABIC SEQUENCE NOON WITH KEHEH 00995 009CD 009B7 BENGALI LETTER KHINYA 00B95 00BCD TAMIL CONSONANT K 00B99 00BCD TAMIL CONSONANT NG 00B9A 00BCD TAMIL CONSONANT C 00B9E 00BCD TAMIL CONSONANT NY 00B9F 00BCD TAMIL CONSONANT TT 00BA3 00BCD TAMIL CONSONANT NN 00BA4 00BCD TAMIL CONSONANT T 00BA8 00BCD TAMIL CONSONANT N 00BAA 00BCD TAMIL CONSONANT P 00BAE 00BCD TAMIL CONSONANT M 00BAF 00BCD TAMIL CONSONANT Y 00BB0 00BCD TAMIL CONSONANT R 00BB2 00BCD TAMIL CONSONANT L 00BB5 00BCD TAMIL CONSONANT V 00BB4 00BCD TAMIL CONSONANT LLL 00BB3 00BCD TAMIL CONSONANT LL 00BB1 00BCD TAMIL CONSONANT RR 00BA9 00BCD TAMIL CONSONANT NNN 00B9C 00BCD TAMIL CONSONANT J 00BB6 00BCD TAMIL CONSONANT SH 00BB7 00BCD TAMIL CONSONANT SS 00BB8 00BCD TAMIL CONSONANT S 00BB9 00BCD TAMIL CONSONANT H 00B95 00BCD 00BB7 00BCD TAMIL CONSONANT KSS 00B95 00BBE TAMIL SYLLABLE KAA 00B95 00BBF TAMIL SYLLABLE KI 00B95 00BC0 TAMIL SYLLABLE KII 00B95 00BC1 TAMIL SYLLABLE KU 00B95 00BC2 TAMIL SYLLABLE KUU 00B95 00BC6 TAMIL SYLLABLE KE 00B95 00BC7 TAMIL SYLLABLE KEE 00B95 00BC8 TAMIL SYLLABLE KAI 00B95 00BCA TAMIL SYLLABLE KO 00B95 00BCB TAMIL SYLLABLE KOO 00B95 00BCC TAMIL SYLLABLE KAU 00B99 00BBE TAMIL SYLLABLE NGAA 00B99 00BBF TAMIL SYLLABLE NGI 00B99 00BC0 TAMIL SYLLABLE NGII 00B99 00BC1 TAMIL SYLLABLE NGU 00B99 00BC2 TAMIL SYLLABLE NGUU 00B99 00BC6 TAMIL SYLLABLE NGE 00B99 00BC7 TAMIL SYLLABLE NGEE 00B99 00BC8 TAMIL SYLLABLE NGAI 00B99 00BCA TAMIL SYLLABLE NGO 00B99 00BCB TAMIL SYLLABLE NGOO 00B99 00BCC TAMIL SYLLABLE NGAU 00B9A 00BBE TAMIL SYLLABLE CAA 00B9A 00BBF TAMIL SYLLABLE CI 00B9A 00BC0 TAMIL SYLLABLE CII 00B9A 00BC1 TAMIL SYLLABLE CU 00B9A 00BC2 TAMIL SYLLABLE CUU 00B9A 00BC6 TAMIL SYLLABLE CE 00B9A 00BC7 TAMIL SYLLABLE CEE 00B9A 00BC8 TAMIL SYLLABLE CAI 00B9A 00BCA TAMIL SYLLABLE CO 00B9A 00BCB TAMIL SYLLABLE COO 00B9A 00BCC TAMIL SYLLABLE CAU 00B9E 00BBE TAMIL SYLLABLE NYAA 00B9E 00BBF TAMIL SYLLABLE NYI 00B9E 00BC0 TAMIL SYLLABLE NYII 00B9E 00BC1 TAMIL SYLLABLE NYU 00B9E 00BC2 TAMIL SYLLABLE NYUU 00B9E 00BC6 TAMIL SYLLABLE NYE 00B9E 00BC7 TAMIL SYLLABLE NYEE 00B9E 00BC8 TAMIL SYLLABLE NYAI 00B9E 00BCA TAMIL SYLLABLE NYO 00B9E 00BCB TAMIL SYLLABLE NYOO 00B9E 00BCC TAMIL SYLLABLE NYAU 00B9F 00BBE TAMIL SYLLABLE TTAA 00B9F 00BBF TAMIL SYLLABLE TTI 00B9F 00BC0 TAMIL SYLLABLE TTII 00B9F 00BC1 TAMIL SYLLABLE TTU 00B9F 00BC2 TAMIL SYLLABLE TTUU 00B9F 00BC6 TAMIL SYLLABLE TTE 00B9F 00BC7 TAMIL SYLLABLE TTEE 00B9F 00BC8 TAMIL SYLLABLE TTAI 00B9F 00BCA TAMIL SYLLABLE TTO 00B9F 00BCB TAMIL SYLLABLE TTOO 00B9F 00BCC TAMIL SYLLABLE TTAU 00BA3 00BBE TAMIL SYLLABLE NNAA 00BA3 00BBF TAMIL SYLLABLE NNI 00BA3 00BC0 TAMIL SYLLABLE NNII 00BA3 00BC1 TAMIL SYLLABLE NNU 00BA3 00BC2 TAMIL SYLLABLE NNUU 00BA3 00BC6 TAMIL SYLLABLE NNE 00BA3 00BC7 TAMIL SYLLABLE NNEE 00BA3 00BC8 TAMIL SYLLABLE NNAI 00BA3 00BCA TAMIL SYLLABLE NNO 00BA3 00BCB TAMIL SYLLABLE NNOO 00BA3 00BCC TAMIL SYLLABLE NNAU 00BA4 00BBE TAMIL SYLLABLE TAA 00BA4 00BBF TAMIL SYLLABLE TI 00BA4 00BC0 TAMIL SYLLABLE TII 00BA4 00BC1 TAMIL SYLLABLE TU 00BA4 00BC2 TAMIL SYLLABLE TUU 00BA4 00BC6 TAMIL SYLLABLE TE 00BA4 00BC7 TAMIL SYLLABLE TEE 00BA4 00BC8 TAMIL SYLLABLE TAI 00BA4 00BCA TAMIL SYLLABLE TO 00BA4 00BCB TAMIL SYLLABLE TOO 00BA4 00BCC TAMIL SYLLABLE TAU 00BA8 00BBE TAMIL SYLLABLE NAA 00BA8 00BBF TAMIL SYLLABLE NI 00BA8 00BC0 TAMIL SYLLABLE NII 00BA8 00BC1 TAMIL SYLLABLE NU 00BA8 00BC2 TAMIL SYLLABLE NUU 00BA8 00BC6 TAMIL SYLLABLE NE 00BA8 00BC7 TAMIL SYLLABLE NEE 00BA8 00BC8 TAMIL SYLLABLE NAI 00BA8 00BCA TAMIL SYLLABLE NO 00BA8 00BCB TAMIL SYLLABLE NOO 00BA8 00BCC TAMIL SYLLABLE NAU 00BAA 00BBE TAMIL SYLLABLE PAA 00BAA 00BBF TAMIL SYLLABLE PI 00BAA 00BC0 TAMIL SYLLABLE PII 00BAA 00BC1 TAMIL SYLLABLE PU 00BAA 00BC2 TAMIL SYLLABLE PUU 00BAA 00BC6 TAMIL SYLLABLE PE 00BAA 00BC7 TAMIL SYLLABLE PEE 00BAA 00BC8 TAMIL SYLLABLE PAI 00BAA 00BCA TAMIL SYLLABLE PO 00BAA 00BCB TAMIL SYLLABLE POO 00BAA 00BCC TAMIL SYLLABLE PAU 00BAE 00BBE TAMIL SYLLABLE MAA 00BAE 00BBF TAMIL SYLLABLE MI 00BAE 00BC0 TAMIL SYLLABLE MII 00BAE 00BC1 TAMIL SYLLABLE MU 00BAE 00BC2 TAMIL SYLLABLE MUU 00BAE 00BC6 TAMIL SYLLABLE ME 00BAE 00BC7 TAMIL SYLLABLE MEE 00BAE 00BC8 TAMIL SYLLABLE MAI 00BAE 00BCA TAMIL SYLLABLE MO 00BAE 00BCB TAMIL SYLLABLE MOO 00BAE 00BCC TAMIL SYLLABLE MAU 00BAF 00BBE TAMIL SYLLABLE YAA 00BAF 00BBF TAMIL SYLLABLE YI 00BAF 00BC0 TAMIL SYLLABLE YII 00BAF 00BC1 TAMIL SYLLABLE YU 00BAF 00BC2 TAMIL SYLLABLE YUU 00BAF 00BC6 TAMIL SYLLABLE YE 00BAF 00BC7 TAMIL SYLLABLE YEE 00BAF 00BC8 TAMIL SYLLABLE YAI 00BAF 00BCA TAMIL SYLLABLE YO 00BAF 00BCB TAMIL SYLLABLE YOO 00BAF 00BCC TAMIL SYLLABLE YAU 00BB0 00BBE TAMIL SYLLABLE RAA 00BB0 00BBF TAMIL SYLLABLE RI 00BB0 00BC0 TAMIL SYLLABLE RII 00BB0 00BC1 TAMIL SYLLABLE RU 00BB0 00BC2 TAMIL SYLLABLE RUU 00BB0 00BC6 TAMIL SYLLABLE RE 00BB0 00BC7 TAMIL SYLLABLE REE 00BB0 00BC8 TAMIL SYLLABLE RAI 00BB0 00BCA TAMIL SYLLABLE RO 00BB0 00BCB TAMIL SYLLABLE ROO 00BB0 00BCC TAMIL SYLLABLE RAU 00BB2 00BBE TAMIL SYLLABLE LAA 00BB2 00BBF TAMIL SYLLABLE LI 00BB2 00BC0 TAMIL SYLLABLE LII 00BB2 00BC1 TAMIL SYLLABLE LU 00BB2 00BC2 TAMIL SYLLABLE LUU 00BB2 00BC6 TAMIL SYLLABLE LE 00BB2 00BC7 TAMIL SYLLABLE LEE 00BB2 00BC8 TAMIL SYLLABLE LAI 00BB2 00BCA TAMIL SYLLABLE LO 00BB2 00BCB TAMIL SYLLABLE LOO 00BB2 00BCC TAMIL SYLLABLE LAU 00BB5 00BBE TAMIL SYLLABLE VAA 00BB5 00BBF TAMIL SYLLABLE VI 00BB5 00BC0 TAMIL SYLLABLE VII 00BB5 00BC1 TAMIL SYLLABLE VU 00BB5 00BC2 TAMIL SYLLABLE VUU 00BB5 00BC6 TAMIL SYLLABLE VE 00BB5 00BC7 TAMIL SYLLABLE VEE 00BB5 00BC8 TAMIL SYLLABLE VAI 00BB5 00BCA TAMIL SYLLABLE VO 00BB5 00BCB TAMIL SYLLABLE VOO 00BB5 00BCC TAMIL SYLLABLE VAU 00BB4 00BBE TAMIL SYLLABLE LLLAA 00BB4 00BBF TAMIL SYLLABLE LLLI 00BB4 00BC0 TAMIL SYLLABLE LLLII 00BB4 00BC1 TAMIL SYLLABLE LLLU 00BB4 00BC2 TAMIL SYLLABLE LLLUU 00BB4 00BC6 TAMIL SYLLABLE LLLE 00BB4 00BC7 TAMIL SYLLABLE LLLEE 00BB4 00BC8 TAMIL SYLLABLE LLLAI 00BB4 00BCA TAMIL SYLLABLE LLLO 00BB4 00BCB TAMIL SYLLABLE LLLOO 00BB4 00BCC TAMIL SYLLABLE LLLAU 00BB3 00BBE TAMIL SYLLABLE LLAA 00BB3 00BBF TAMIL SYLLABLE LLI 00BB3 00BC0 TAMIL SYLLABLE LLII 00BB3 00BC1 TAMIL SYLLABLE LLU 00BB3 00BC2 TAMIL SYLLABLE LLUU 00BB3 00BC6 TAMIL SYLLABLE LLE 00BB3 00BC7 TAMIL SYLLABLE LLEE 00BB3 00BC8 TAMIL SYLLABLE LLAI 00BB3 00BCA TAMIL SYLLABLE LLO 00BB3 00BCB TAMIL SYLLABLE LLOO 00BB3 00BCC TAMIL SYLLABLE LLAU 00BB1 00BBE TAMIL SYLLABLE RRAA 00BB1 00BBF TAMIL SYLLABLE RRI 00BB1 00BC0 TAMIL SYLLABLE RRII 00BB1 00BC1 TAMIL SYLLABLE RRU 00BB1 00BC2 TAMIL SYLLABLE RRUU 00BB1 00BC6 TAMIL SYLLABLE RRE 00BB1 00BC7 TAMIL SYLLABLE RREE 00BB1 00BC8 TAMIL SYLLABLE RRAI 00BB1 00BCA TAMIL SYLLABLE RRO 00BB1 00BCB TAMIL SYLLABLE RROO 00BB1 00BCC TAMIL SYLLABLE RRAU 00BA9 00BBE TAMIL SYLLABLE NNNAA 00BA9 00BBF TAMIL SYLLABLE NNNI 00BA9 00BC0 TAMIL SYLLABLE NNNII 00BA9 00BC1 TAMIL SYLLABLE NNNU 00BA9 00BC2 TAMIL SYLLABLE NNNUU 00BA9 00BC6 TAMIL SYLLABLE NNNE 00BA9 00BC7 TAMIL SYLLABLE NNNEE 00BA9 00BC8 TAMIL SYLLABLE NNNAI 00BA9 00BCA TAMIL SYLLABLE NNNO 00BA9 00BCB TAMIL SYLLABLE NNNOO 00BA9 00BCC TAMIL SYLLABLE NNNAU 00B9C 00BBE TAMIL SYLLABLE JAA 00B9C 00BBF TAMIL SYLLABLE JI 00B9C 00BC0 TAMIL SYLLABLE JII 00B9C 00BC1 TAMIL SYLLABLE JU 00B9C 00BC2 TAMIL SYLLABLE JUU 00B9C 00BC6 TAMIL SYLLABLE JE 00B9C 00BC7 TAMIL SYLLABLE JEE 00B9C 00BC8 TAMIL SYLLABLE JAI 00B9C 00BCA TAMIL SYLLABLE JO 00B9C 00BCB TAMIL SYLLABLE JOO 00B9C 00BCC TAMIL SYLLABLE JAU 00BB6 00BBE TAMIL SYLLABLE SHAA 00BB6 00BBF TAMIL SYLLABLE SHI 00BB6 00BC0 TAMIL SYLLABLE SHII 00BB6 00BC1 TAMIL SYLLABLE SHU 00BB6 00BC2 TAMIL SYLLABLE SHUU 00BB6 00BC6 TAMIL SYLLABLE SHE 00BB6 00BC7 TAMIL SYLLABLE SHEE 00BB6 00BC8 TAMIL SYLLABLE SHAI 00BB6 00BCA TAMIL SYLLABLE SHO 00BB6 00BCB TAMIL SYLLABLE SHOO 00BB6 00BCC TAMIL SYLLABLE SHAU 00BB7 00BBE TAMIL SYLLABLE SSAA 00BB7 00BBF TAMIL SYLLABLE SSI 00BB7 00BC0 TAMIL SYLLABLE SSII 00BB7 00BC1 TAMIL SYLLABLE SSU 00BB7 00BC2 TAMIL SYLLABLE SSUU 00BB7 00BC6 TAMIL SYLLABLE SSE 00BB7 00BC7 TAMIL SYLLABLE SSEE 00BB7 00BC8 TAMIL SYLLABLE SSAI 00BB7 00BCA TAMIL SYLLABLE SSO 00BB7 00BCB TAMIL SYLLABLE SSOO 00BB7 00BCC TAMIL SYLLABLE SSAU 00BB8 00BBE TAMIL SYLLABLE SAA 00BB8 00BBF TAMIL SYLLABLE SI 00BB8 00BC0 TAMIL SYLLABLE SII 00BB8 00BC1 TAMIL SYLLABLE SU 00BB8 00BC2 TAMIL SYLLABLE SUU 00BB8 00BC6 TAMIL SYLLABLE SE 00BB8 00BC7 TAMIL SYLLABLE SEE 00BB8 00BC8 TAMIL SYLLABLE SAI 00BB8 00BCA TAMIL SYLLABLE SO 00BB8 00BCB TAMIL SYLLABLE SOO 00BB8 00BCC TAMIL SYLLABLE SAU 00BB9 00BBE TAMIL SYLLABLE HAA 00BB9 00BBF TAMIL SYLLABLE HI 00BB9 00BC0 TAMIL SYLLABLE HII 00BB9 00BC1 TAMIL SYLLABLE HU 00BB9 00BC2 TAMIL SYLLABLE HUU 00BB9 00BC6 TAMIL SYLLABLE HE 00BB9 00BC7 TAMIL SYLLABLE HEE 00BB9 00BC8 TAMIL SYLLABLE HAI 00BB9 00BCA TAMIL SYLLABLE HO 00BB9 00BCB TAMIL SYLLABLE HOO 00BB9 00BCC TAMIL SYLLABLE HAU 00B95 00BCD 00BB7 TAMIL SYLLABLE KSSA 00B95 00BCD 00BB7 00BBE TAMIL SYLLABLE KSSAA 00B95 00BCD 00BB7 00BBF TAMIL SYLLABLE KSSI 00B95 00BCD 00BB7 00BC0 TAMIL SYLLABLE KSSII 00B95 00BCD 00BB7 00BC1 TAMIL SYLLABLE KSSU 00B95 00BCD 00BB7 00BC2 TAMIL SYLLABLE KSSUU 00B95 00BCD 00BB7 00BC6 TAMIL SYLLABLE KSSE 00B95 00BCD 00BB7 00BC7 TAMIL SYLLABLE KSSEE 00B95 00BCD 00BB7 00BC8 TAMIL SYLLABLE KSSAI 00B95 00BCD 00BB7 00BCA TAMIL SYLLABLE KSSO 00B95 00BCD 00BB7 00BCB TAMIL SYLLABLE KSSOO 00B95 00BCD 00BB7 00BCC TAMIL SYLLABLE KSSAU 00BB6 00BCD 00BB0 00BC0 TAMIL SYLLABLE SHRII 00DCA 0200D 00DBA SINHALA CONSONANT SIGN YANSAYA 00DCA 0200D 00DBB SINHALA CONSONANT SIGN RAKAARAANSAYA 00DBB 00DCA 0200D SINHALA CONSONANT SIGN REPAYA 010E3 00302 GEORGIAN LETTER U-BRJGU 017D2 01780 KHMER CONSONANT SIGN COENG KA 017D2 01781 KHMER CONSONANT SIGN COENG KHA 017D2 01782 KHMER CONSONANT SIGN COENG KO 017D2 01783 KHMER CONSONANT SIGN COENG KHO 017D2 01784 KHMER CONSONANT SIGN COENG NGO 017D2 01785 KHMER CONSONANT SIGN COENG CA 017D2 01786 KHMER CONSONANT SIGN COENG CHA 017D2 01787 KHMER CONSONANT SIGN COENG CO 017D2 01788 KHMER CONSONANT SIGN COENG CHO 017D2 01789 KHMER CONSONANT SIGN COENG NYO 017D2 0178A KHMER CONSONANT SIGN COENG DA 017D2 0178B KHMER CONSONANT SIGN COENG TTHA 017D2 0178C KHMER CONSONANT SIGN COENG DO 017D2 0178D KHMER CONSONANT SIGN COENG TTHO 017D2 0178E KHMER CONSONANT SIGN COENG NA 017D2 0178F KHMER CONSONANT SIGN COENG TA 017D2 01790 KHMER CONSONANT SIGN COENG THA 017D2 01791 KHMER CONSONANT SIGN COENG TO 017D2 01792 KHMER CONSONANT SIGN COENG THO 017D2 01793 KHMER CONSONANT SIGN COENG NO 017D2 01794 KHMER CONSONANT SIGN COENG BA 017D2 01795 KHMER CONSONANT SIGN COENG PHA 017D2 01796 KHMER CONSONANT SIGN COENG PO 017D2 01797 KHMER CONSONANT SIGN COENG PHO 017D2 01798 KHMER CONSONANT SIGN COENG MO 017D2 01799 KHMER CONSONANT SIGN COENG YO 017D2 0179A KHMER CONSONANT SIGN COENG RO 017D2 0179B KHMER CONSONANT SIGN COENG LO 017D2 0179C KHMER CONSONANT SIGN COENG VO 017D2 0179D KHMER CONSONANT SIGN COENG SHA 017D2 0179E KHMER CONSONANT SIGN COENG SSA 017D2 0179F KHMER CONSONANT SIGN COENG SA 017D2 017A0 KHMER CONSONANT SIGN COENG HA 017D2 017A1 KHMER CONSONANT SIGN COENG LA 017D2 017A2 KHMER VOWEL SIGN COENG QA 017D2 017A7 KHMER INDEPENDENT VOWEL SIGN COENG QU 017D2 017AB KHMER INDEPENDENT VOWEL SIGN COENG RY 017D2 017AC KHMER INDEPENDENT VOWEL SIGN COENG RYY 017D2 017AF KHMER INDEPENDENT VOWEL SIGN COENG QE 017BB 017C6 KHMER VOWEL SIGN OM 017B6 017C6 KHMER VOWEL SIGN AAM 0304B 0309A HIRAGANA LETTER BIDAKUON NGA 0304D 0309A HIRAGANA LETTER BIDAKUON NGI 0304F 0309A HIRAGANA LETTER BIDAKUON NGU 03051 0309A HIRAGANA LETTER BIDAKUON NGE 03053 0309A HIRAGANA LETTER BIDAKUON NGO 030AB 0309A KATAKANA LETTER BIDAKUON NGA 030AD 0309A KATAKANA LETTER BIDAKUON NGI 030AF 0309A KATAKANA LETTER BIDAKUON NGU 030B1 0309A KATAKANA LETTER BIDAKUON NGE 030B3 0309A KATAKANA LETTER BIDAKUON NGO 030BB 0309A KATAKANA LETTER AINU CE 030C4 0309A KATAKANA LETTER AINU TU 030C8 0309A KATAKANA LETTER AINU TO 031F7 0309A KATAKANA LETTER AINU P 002E5 002E9 MODIFIER LETTER EXTRA-HIGH EXTRA-LOW CONTOUR TONE BAR 002E9 002E5 MODIFIER LETTER EXTRA-LOW EXTRA-HIGH CONTOUR TONE BAR END PK ! ݂ �kL kL ! 5.34.0/unicore/NamedSequences.txtnu �[��� # NamedSequences-13.0.0.txt # Date: 2020-01-22, 19:12:00 GMT [KW, LI] # © 2020 Unicode®, Inc. # For terms of use, see http://www.unicode.org/terms_of_use.html # # Unicode Character Database # For documentation, see http://www.unicode.org/reports/tr44/ # # Unicode Named Character Sequences # # This file is a normative contributory data file in the Unicode # Character Database. # # Format: # Name of Sequence; Code Point Sequence for USI # # Code point sequences in the Unicode Character Database # use spaces as delimiters. The corresponding format for a # UCS Sequence Identifier (USI) in ISO/IEC 10646 uses # comma delimitation and angle brackets. Thus, a Unicode # named character sequence of the form: # # EXAMPLE NAME;1000 1001 1002 # # in this data file, would correspond to an ISO/IEC 10646 USI # as follows: # # <1000, 1001, 1002> # # For more information, see UAX #34: Unicode Named Character # Sequences, at http://www.unicode.org/unicode/reports/tr34/ # # Note: The order of entries in this file is not significant. # However, entries are generally in script order corresponding # to block order in the Unicode Standard, to make it easier # to find entries in the list. # ================================================ # Named keycap sequences for telephone keypad (used for emoji) # Provisional, 2015-05-05 # FE0F added to the sequences, 2016-05-11 # Approved 2017-05-12 KEYCAP NUMBER SIGN;0023 FE0F 20E3 KEYCAP ASTERISK;002A FE0F 20E3 KEYCAP DIGIT ZERO;0030 FE0F 20E3 KEYCAP DIGIT ONE;0031 FE0F 20E3 KEYCAP DIGIT TWO;0032 FE0F 20E3 KEYCAP DIGIT THREE;0033 FE0F 20E3 KEYCAP DIGIT FOUR;0034 FE0F 20E3 KEYCAP DIGIT FIVE;0035 FE0F 20E3 KEYCAP DIGIT SIX;0036 FE0F 20E3 KEYCAP DIGIT SEVEN;0037 FE0F 20E3 KEYCAP DIGIT EIGHT;0038 FE0F 20E3 KEYCAP DIGIT NINE;0039 FE0F 20E3 # Latin letter plus accent combinations. # These are part of the original set of approved named sequences # for Unicode 4.1. 2005. # Subgroupings of this original set are identified here by # purpose and source. # Subset 1: Originally requested for a Latin orthography # of Hausa. See WG2 N1143 and UTC/1996-005. (6 total) LATIN CAPITAL LETTER A WITH MACRON AND GRAVE;0100 0300 LATIN SMALL LETTER A WITH MACRON AND GRAVE;0101 0300 LATIN CAPITAL LETTER I WITH MACRON AND GRAVE;012A 0300 LATIN SMALL LETTER I WITH MACRON AND GRAVE;012B 0300 LATIN CAPITAL LETTER U WITH MACRON AND GRAVE;016A 0300 LATIN SMALL LETTER U WITH MACRON AND GRAVE;016B 0300 # Subset 2: Originally requested for a Latin orthography # of Yoruba. See WG2 N1143 and UTC/1996-005. (14 total) LATIN CAPITAL LETTER E WITH VERTICAL LINE BELOW;0045 0329 LATIN SMALL LETTER E WITH VERTICAL LINE BELOW;0065 0329 LATIN CAPITAL LETTER E WITH VERTICAL LINE BELOW AND GRAVE;00C8 0329 LATIN SMALL LETTER E WITH VERTICAL LINE BELOW AND GRAVE;00E8 0329 LATIN CAPITAL LETTER E WITH VERTICAL LINE BELOW AND ACUTE;00C9 0329 LATIN SMALL LETTER E WITH VERTICAL LINE BELOW AND ACUTE;00E9 0329 LATIN CAPITAL LETTER O WITH VERTICAL LINE BELOW;004F 0329 LATIN SMALL LETTER O WITH VERTICAL LINE BELOW;006F 0329 LATIN CAPITAL LETTER O WITH VERTICAL LINE BELOW AND GRAVE;00D2 0329 LATIN SMALL LETTER O WITH VERTICAL LINE BELOW AND GRAVE;00F2 0329 LATIN CAPITAL LETTER O WITH VERTICAL LINE BELOW AND ACUTE;00D3 0329 LATIN SMALL LETTER O WITH VERTICAL LINE BELOW AND ACUTE;00F3 0329 LATIN CAPITAL LETTER S WITH VERTICAL LINE BELOW;0053 0329 LATIN SMALL LETTER S WITH VERTICAL LINE BELOW;0073 0329 # Subset 3: Originally requested for Pinyin forms noted # in HKSCS. See L2/02-423 and WG2 N2513. (4 total) LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND MACRON;00CA 0304 LATIN SMALL LETTER E WITH CIRCUMFLEX AND MACRON;00EA 0304 LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND CARON;00CA 030C LATIN SMALL LETTER E WITH CIRCUMFLEX AND CARON;00EA 030C # Subset 4: Prominent use cases pulled from examples # for Lithuanian and Tagalog in # Unicode 4.0 and early drafts of UAX #34. (2 total) LATIN SMALL LETTER I WITH DOT ABOVE AND ACUTE;0069 0307 0301 LATIN SMALL LETTER NG WITH TILDE ABOVE;006E 0360 0067 # Additions for Lithuanian. # Provisional 2006-05-18, Approved 2007-10-19 LATIN CAPITAL LETTER A WITH OGONEK AND ACUTE;0104 0301 LATIN SMALL LETTER A WITH OGONEK AND ACUTE;0105 0301 LATIN CAPITAL LETTER A WITH OGONEK AND TILDE;0104 0303 LATIN SMALL LETTER A WITH OGONEK AND TILDE;0105 0303 LATIN CAPITAL LETTER E WITH OGONEK AND ACUTE;0118 0301 LATIN SMALL LETTER E WITH OGONEK AND ACUTE;0119 0301 LATIN CAPITAL LETTER E WITH OGONEK AND TILDE;0118 0303 LATIN SMALL LETTER E WITH OGONEK AND TILDE;0119 0303 LATIN CAPITAL LETTER E WITH DOT ABOVE AND ACUTE;0116 0301 LATIN SMALL LETTER E WITH DOT ABOVE AND ACUTE;0117 0301 LATIN CAPITAL LETTER E WITH DOT ABOVE AND TILDE;0116 0303 LATIN SMALL LETTER E WITH DOT ABOVE AND TILDE;0117 0303 LATIN SMALL LETTER I WITH DOT ABOVE AND GRAVE;0069 0307 0300 LATIN SMALL LETTER I WITH DOT ABOVE AND TILDE;0069 0307 0303 LATIN CAPITAL LETTER I WITH OGONEK AND ACUTE;012E 0301 LATIN SMALL LETTER I WITH OGONEK AND DOT ABOVE AND ACUTE;012F 0307 0301 LATIN CAPITAL LETTER I WITH OGONEK AND TILDE;012E 0303 LATIN SMALL LETTER I WITH OGONEK AND DOT ABOVE AND TILDE;012F 0307 0303 LATIN CAPITAL LETTER J WITH TILDE;004A 0303 LATIN SMALL LETTER J WITH DOT ABOVE AND TILDE;006A 0307 0303 LATIN CAPITAL LETTER L WITH TILDE;004C 0303 LATIN SMALL LETTER L WITH TILDE;006C 0303 LATIN CAPITAL LETTER M WITH TILDE;004D 0303 LATIN SMALL LETTER M WITH TILDE;006D 0303 LATIN CAPITAL LETTER R WITH TILDE;0052 0303 LATIN SMALL LETTER R WITH TILDE;0072 0303 LATIN CAPITAL LETTER U WITH OGONEK AND ACUTE;0172 0301 LATIN SMALL LETTER U WITH OGONEK AND ACUTE;0173 0301 LATIN CAPITAL LETTER U WITH OGONEK AND TILDE;0172 0303 LATIN SMALL LETTER U WITH OGONEK AND TILDE;0173 0303 LATIN CAPITAL LETTER U WITH MACRON AND ACUTE;016A 0301 LATIN SMALL LETTER U WITH MACRON AND ACUTE;016B 0301 LATIN CAPITAL LETTER U WITH MACRON AND TILDE;016A 0303 LATIN SMALL LETTER U WITH MACRON AND TILDE;016B 0303 # Entries for JIS X 0213 compatibility mapping. # Provisional 2008-11-07, Approved 2010-05-14 LATIN SMALL LETTER AE WITH GRAVE;00E6 0300 LATIN SMALL LETTER OPEN O WITH GRAVE;0254 0300 LATIN SMALL LETTER OPEN O WITH ACUTE;0254 0301 LATIN SMALL LETTER TURNED V WITH GRAVE;028C 0300 LATIN SMALL LETTER TURNED V WITH ACUTE;028C 0301 LATIN SMALL LETTER SCHWA WITH GRAVE;0259 0300 LATIN SMALL LETTER SCHWA WITH ACUTE;0259 0301 LATIN SMALL LETTER HOOKED SCHWA WITH GRAVE;025A 0300 LATIN SMALL LETTER HOOKED SCHWA WITH ACUTE;025A 0301 # Entries for Uyghur and Chagatai. # Provisional N/A, Approved 2012-11-08 ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH ALEF;0626 0627 ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH WAW;0626 0648 ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH ALEF MAKSURA;0626 0649 ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH OE;0626 06C6 ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH U;0626 06C7 ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH YU;0626 06C8 ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH E;0626 06D0 ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH AE;0626 06D5 ARABIC SEQUENCE NOON WITH KEHEH;0646 06A9 # Entry for a Bangla entity. # Provisional 2009-08-10, Approved 2010-05-14 # # Note that this same sequence is also used for the ASSAMESE LETTER KSSA. BENGALI LETTER KHINYA;0995 09CD 09B7 # Additions for Tamil. # Provisional 2008-02-08, Approved 2009-08-14 # # A visual display of the Tamil named character sequences is available # in the documentation for the Unicode Standard. See Section 12.6, Tamil in # http://www.unicode.org/versions/latest/ TAMIL CONSONANT K; 0B95 0BCD TAMIL CONSONANT NG; 0B99 0BCD TAMIL CONSONANT C; 0B9A 0BCD TAMIL CONSONANT NY; 0B9E 0BCD TAMIL CONSONANT TT; 0B9F 0BCD TAMIL CONSONANT NN; 0BA3 0BCD TAMIL CONSONANT T; 0BA4 0BCD TAMIL CONSONANT N; 0BA8 0BCD TAMIL CONSONANT P; 0BAA 0BCD TAMIL CONSONANT M; 0BAE 0BCD TAMIL CONSONANT Y; 0BAF 0BCD TAMIL CONSONANT R; 0BB0 0BCD TAMIL CONSONANT L; 0BB2 0BCD TAMIL CONSONANT V; 0BB5 0BCD TAMIL CONSONANT LLL;0BB4 0BCD TAMIL CONSONANT LL; 0BB3 0BCD TAMIL CONSONANT RR; 0BB1 0BCD TAMIL CONSONANT NNN;0BA9 0BCD TAMIL CONSONANT J; 0B9C 0BCD TAMIL CONSONANT SH; 0BB6 0BCD TAMIL CONSONANT SS; 0BB7 0BCD TAMIL CONSONANT S; 0BB8 0BCD TAMIL CONSONANT H; 0BB9 0BCD TAMIL CONSONANT KSS;0B95 0BCD 0BB7 0BCD TAMIL SYLLABLE KAA; 0B95 0BBE TAMIL SYLLABLE KI; 0B95 0BBF TAMIL SYLLABLE KII; 0B95 0BC0 TAMIL SYLLABLE KU; 0B95 0BC1 TAMIL SYLLABLE KUU; 0B95 0BC2 TAMIL SYLLABLE KE; 0B95 0BC6 TAMIL SYLLABLE KEE; 0B95 0BC7 TAMIL SYLLABLE KAI; 0B95 0BC8 TAMIL SYLLABLE KO; 0B95 0BCA TAMIL SYLLABLE KOO; 0B95 0BCB TAMIL SYLLABLE KAU; 0B95 0BCC TAMIL SYLLABLE NGAA; 0B99 0BBE TAMIL SYLLABLE NGI; 0B99 0BBF TAMIL SYLLABLE NGII; 0B99 0BC0 TAMIL SYLLABLE NGU; 0B99 0BC1 TAMIL SYLLABLE NGUU; 0B99 0BC2 TAMIL SYLLABLE NGE; 0B99 0BC6 TAMIL SYLLABLE NGEE; 0B99 0BC7 TAMIL SYLLABLE NGAI; 0B99 0BC8 TAMIL SYLLABLE NGO; 0B99 0BCA TAMIL SYLLABLE NGOO; 0B99 0BCB TAMIL SYLLABLE NGAU; 0B99 0BCC TAMIL SYLLABLE CAA; 0B9A 0BBE TAMIL SYLLABLE CI; 0B9A 0BBF TAMIL SYLLABLE CII; 0B9A 0BC0 TAMIL SYLLABLE CU; 0B9A 0BC1 TAMIL SYLLABLE CUU; 0B9A 0BC2 TAMIL SYLLABLE CE; 0B9A 0BC6 TAMIL SYLLABLE CEE; 0B9A 0BC7 TAMIL SYLLABLE CAI; 0B9A 0BC8 TAMIL SYLLABLE CO; 0B9A 0BCA TAMIL SYLLABLE COO; 0B9A 0BCB TAMIL SYLLABLE CAU; 0B9A 0BCC TAMIL SYLLABLE NYAA; 0B9E 0BBE TAMIL SYLLABLE NYI; 0B9E 0BBF TAMIL SYLLABLE NYII; 0B9E 0BC0 TAMIL SYLLABLE NYU; 0B9E 0BC1 TAMIL SYLLABLE NYUU; 0B9E 0BC2 TAMIL SYLLABLE NYE; 0B9E 0BC6 TAMIL SYLLABLE NYEE; 0B9E 0BC7 TAMIL SYLLABLE NYAI; 0B9E 0BC8 TAMIL SYLLABLE NYO; 0B9E 0BCA TAMIL SYLLABLE NYOO; 0B9E 0BCB TAMIL SYLLABLE NYAU; 0B9E 0BCC TAMIL SYLLABLE TTAA; 0B9F 0BBE TAMIL SYLLABLE TTI; 0B9F 0BBF TAMIL SYLLABLE TTII; 0B9F 0BC0 TAMIL SYLLABLE TTU; 0B9F 0BC1 TAMIL SYLLABLE TTUU; 0B9F 0BC2 TAMIL SYLLABLE TTE; 0B9F 0BC6 TAMIL SYLLABLE TTEE; 0B9F 0BC7 TAMIL SYLLABLE TTAI; 0B9F 0BC8 TAMIL SYLLABLE TTO; 0B9F 0BCA TAMIL SYLLABLE TTOO; 0B9F 0BCB TAMIL SYLLABLE TTAU; 0B9F 0BCC TAMIL SYLLABLE NNAA; 0BA3 0BBE TAMIL SYLLABLE NNI; 0BA3 0BBF TAMIL SYLLABLE NNII; 0BA3 0BC0 TAMIL SYLLABLE NNU; 0BA3 0BC1 TAMIL SYLLABLE NNUU; 0BA3 0BC2 TAMIL SYLLABLE NNE; 0BA3 0BC6 TAMIL SYLLABLE NNEE; 0BA3 0BC7 TAMIL SYLLABLE NNAI; 0BA3 0BC8 TAMIL SYLLABLE NNO; 0BA3 0BCA TAMIL SYLLABLE NNOO; 0BA3 0BCB TAMIL SYLLABLE NNAU; 0BA3 0BCC TAMIL SYLLABLE TAA; 0BA4 0BBE TAMIL SYLLABLE TI; 0BA4 0BBF TAMIL SYLLABLE TII; 0BA4 0BC0 TAMIL SYLLABLE TU; 0BA4 0BC1 TAMIL SYLLABLE TUU; 0BA4 0BC2 TAMIL SYLLABLE TE; 0BA4 0BC6 TAMIL SYLLABLE TEE; 0BA4 0BC7 TAMIL SYLLABLE TAI; 0BA4 0BC8 TAMIL SYLLABLE TO; 0BA4 0BCA TAMIL SYLLABLE TOO; 0BA4 0BCB TAMIL SYLLABLE TAU; 0BA4 0BCC TAMIL SYLLABLE NAA; 0BA8 0BBE TAMIL SYLLABLE NI; 0BA8 0BBF TAMIL SYLLABLE NII; 0BA8 0BC0 TAMIL SYLLABLE NU; 0BA8 0BC1 TAMIL SYLLABLE NUU; 0BA8 0BC2 TAMIL SYLLABLE NE; 0BA8 0BC6 TAMIL SYLLABLE NEE; 0BA8 0BC7 TAMIL SYLLABLE NAI; 0BA8 0BC8 TAMIL SYLLABLE NO; 0BA8 0BCA TAMIL SYLLABLE NOO; 0BA8 0BCB TAMIL SYLLABLE NAU; 0BA8 0BCC TAMIL SYLLABLE PAA; 0BAA 0BBE TAMIL SYLLABLE PI; 0BAA 0BBF TAMIL SYLLABLE PII; 0BAA 0BC0 TAMIL SYLLABLE PU; 0BAA 0BC1 TAMIL SYLLABLE PUU; 0BAA 0BC2 TAMIL SYLLABLE PE; 0BAA 0BC6 TAMIL SYLLABLE PEE; 0BAA 0BC7 TAMIL SYLLABLE PAI; 0BAA 0BC8 TAMIL SYLLABLE PO; 0BAA 0BCA TAMIL SYLLABLE POO; 0BAA 0BCB TAMIL SYLLABLE PAU; 0BAA 0BCC TAMIL SYLLABLE MAA; 0BAE 0BBE TAMIL SYLLABLE MI; 0BAE 0BBF TAMIL SYLLABLE MII; 0BAE 0BC0 TAMIL SYLLABLE MU; 0BAE 0BC1 TAMIL SYLLABLE MUU; 0BAE 0BC2 TAMIL SYLLABLE ME; 0BAE 0BC6 TAMIL SYLLABLE MEE; 0BAE 0BC7 TAMIL SYLLABLE MAI; 0BAE 0BC8 TAMIL SYLLABLE MO; 0BAE 0BCA TAMIL SYLLABLE MOO; 0BAE 0BCB TAMIL SYLLABLE MAU; 0BAE 0BCC TAMIL SYLLABLE YAA; 0BAF 0BBE TAMIL SYLLABLE YI; 0BAF 0BBF TAMIL SYLLABLE YII; 0BAF 0BC0 TAMIL SYLLABLE YU; 0BAF 0BC1 TAMIL SYLLABLE YUU; 0BAF 0BC2 TAMIL SYLLABLE YE; 0BAF 0BC6 TAMIL SYLLABLE YEE; 0BAF 0BC7 TAMIL SYLLABLE YAI; 0BAF 0BC8 TAMIL SYLLABLE YO; 0BAF 0BCA TAMIL SYLLABLE YOO; 0BAF 0BCB TAMIL SYLLABLE YAU; 0BAF 0BCC TAMIL SYLLABLE RAA; 0BB0 0BBE TAMIL SYLLABLE RI; 0BB0 0BBF TAMIL SYLLABLE RII; 0BB0 0BC0 TAMIL SYLLABLE RU; 0BB0 0BC1 TAMIL SYLLABLE RUU; 0BB0 0BC2 TAMIL SYLLABLE RE; 0BB0 0BC6 TAMIL SYLLABLE REE; 0BB0 0BC7 TAMIL SYLLABLE RAI; 0BB0 0BC8 TAMIL SYLLABLE RO; 0BB0 0BCA TAMIL SYLLABLE ROO; 0BB0 0BCB TAMIL SYLLABLE RAU; 0BB0 0BCC TAMIL SYLLABLE LAA; 0BB2 0BBE TAMIL SYLLABLE LI; 0BB2 0BBF TAMIL SYLLABLE LII; 0BB2 0BC0 TAMIL SYLLABLE LU; 0BB2 0BC1 TAMIL SYLLABLE LUU; 0BB2 0BC2 TAMIL SYLLABLE LE; 0BB2 0BC6 TAMIL SYLLABLE LEE; 0BB2 0BC7 TAMIL SYLLABLE LAI; 0BB2 0BC8 TAMIL SYLLABLE LO; 0BB2 0BCA TAMIL SYLLABLE LOO; 0BB2 0BCB TAMIL SYLLABLE LAU; 0BB2 0BCC TAMIL SYLLABLE VAA; 0BB5 0BBE TAMIL SYLLABLE VI; 0BB5 0BBF TAMIL SYLLABLE VII; 0BB5 0BC0 TAMIL SYLLABLE VU; 0BB5 0BC1 TAMIL SYLLABLE VUU; 0BB5 0BC2 TAMIL SYLLABLE VE; 0BB5 0BC6 TAMIL SYLLABLE VEE; 0BB5 0BC7 TAMIL SYLLABLE VAI; 0BB5 0BC8 TAMIL SYLLABLE VO; 0BB5 0BCA TAMIL SYLLABLE VOO; 0BB5 0BCB TAMIL SYLLABLE VAU; 0BB5 0BCC TAMIL SYLLABLE LLLAA; 0BB4 0BBE TAMIL SYLLABLE LLLI; 0BB4 0BBF TAMIL SYLLABLE LLLII; 0BB4 0BC0 TAMIL SYLLABLE LLLU; 0BB4 0BC1 TAMIL SYLLABLE LLLUU; 0BB4 0BC2 TAMIL SYLLABLE LLLE; 0BB4 0BC6 TAMIL SYLLABLE LLLEE; 0BB4 0BC7 TAMIL SYLLABLE LLLAI; 0BB4 0BC8 TAMIL SYLLABLE LLLO; 0BB4 0BCA TAMIL SYLLABLE LLLOO; 0BB4 0BCB TAMIL SYLLABLE LLLAU; 0BB4 0BCC TAMIL SYLLABLE LLAA; 0BB3 0BBE TAMIL SYLLABLE LLI; 0BB3 0BBF TAMIL SYLLABLE LLII; 0BB3 0BC0 TAMIL SYLLABLE LLU; 0BB3 0BC1 TAMIL SYLLABLE LLUU; 0BB3 0BC2 TAMIL SYLLABLE LLE; 0BB3 0BC6 TAMIL SYLLABLE LLEE; 0BB3 0BC7 TAMIL SYLLABLE LLAI; 0BB3 0BC8 TAMIL SYLLABLE LLO; 0BB3 0BCA TAMIL SYLLABLE LLOO; 0BB3 0BCB TAMIL SYLLABLE LLAU; 0BB3 0BCC TAMIL SYLLABLE RRAA; 0BB1 0BBE TAMIL SYLLABLE RRI; 0BB1 0BBF TAMIL SYLLABLE RRII; 0BB1 0BC0 TAMIL SYLLABLE RRU; 0BB1 0BC1 TAMIL SYLLABLE RRUU; 0BB1 0BC2 TAMIL SYLLABLE RRE; 0BB1 0BC6 TAMIL SYLLABLE RREE; 0BB1 0BC7 TAMIL SYLLABLE RRAI; 0BB1 0BC8 TAMIL SYLLABLE RRO; 0BB1 0BCA TAMIL SYLLABLE RROO; 0BB1 0BCB TAMIL SYLLABLE RRAU; 0BB1 0BCC TAMIL SYLLABLE NNNAA; 0BA9 0BBE TAMIL SYLLABLE NNNI; 0BA9 0BBF TAMIL SYLLABLE NNNII; 0BA9 0BC0 TAMIL SYLLABLE NNNU; 0BA9 0BC1 TAMIL SYLLABLE NNNUU; 0BA9 0BC2 TAMIL SYLLABLE NNNE; 0BA9 0BC6 TAMIL SYLLABLE NNNEE; 0BA9 0BC7 TAMIL SYLLABLE NNNAI; 0BA9 0BC8 TAMIL SYLLABLE NNNO; 0BA9 0BCA TAMIL SYLLABLE NNNOO; 0BA9 0BCB TAMIL SYLLABLE NNNAU; 0BA9 0BCC TAMIL SYLLABLE JAA; 0B9C 0BBE TAMIL SYLLABLE JI; 0B9C 0BBF TAMIL SYLLABLE JII; 0B9C 0BC0 TAMIL SYLLABLE JU; 0B9C 0BC1 TAMIL SYLLABLE JUU; 0B9C 0BC2 TAMIL SYLLABLE JE; 0B9C 0BC6 TAMIL SYLLABLE JEE; 0B9C 0BC7 TAMIL SYLLABLE JAI; 0B9C 0BC8 TAMIL SYLLABLE JO; 0B9C 0BCA TAMIL SYLLABLE JOO; 0B9C 0BCB TAMIL SYLLABLE JAU; 0B9C 0BCC TAMIL SYLLABLE SHAA; 0BB6 0BBE TAMIL SYLLABLE SHI; 0BB6 0BBF TAMIL SYLLABLE SHII; 0BB6 0BC0 TAMIL SYLLABLE SHU; 0BB6 0BC1 TAMIL SYLLABLE SHUU; 0BB6 0BC2 TAMIL SYLLABLE SHE; 0BB6 0BC6 TAMIL SYLLABLE SHEE; 0BB6 0BC7 TAMIL SYLLABLE SHAI; 0BB6 0BC8 TAMIL SYLLABLE SHO; 0BB6 0BCA TAMIL SYLLABLE SHOO; 0BB6 0BCB TAMIL SYLLABLE SHAU; 0BB6 0BCC TAMIL SYLLABLE SSAA; 0BB7 0BBE TAMIL SYLLABLE SSI; 0BB7 0BBF TAMIL SYLLABLE SSII; 0BB7 0BC0 TAMIL SYLLABLE SSU; 0BB7 0BC1 TAMIL SYLLABLE SSUU; 0BB7 0BC2 TAMIL SYLLABLE SSE; 0BB7 0BC6 TAMIL SYLLABLE SSEE; 0BB7 0BC7 TAMIL SYLLABLE SSAI; 0BB7 0BC8 TAMIL SYLLABLE SSO; 0BB7 0BCA TAMIL SYLLABLE SSOO; 0BB7 0BCB TAMIL SYLLABLE SSAU; 0BB7 0BCC TAMIL SYLLABLE SAA; 0BB8 0BBE TAMIL SYLLABLE SI; 0BB8 0BBF TAMIL SYLLABLE SII; 0BB8 0BC0 TAMIL SYLLABLE SU; 0BB8 0BC1 TAMIL SYLLABLE SUU; 0BB8 0BC2 TAMIL SYLLABLE SE; 0BB8 0BC6 TAMIL SYLLABLE SEE; 0BB8 0BC7 TAMIL SYLLABLE SAI; 0BB8 0BC8 TAMIL SYLLABLE SO; 0BB8 0BCA TAMIL SYLLABLE SOO; 0BB8 0BCB TAMIL SYLLABLE SAU; 0BB8 0BCC TAMIL SYLLABLE HAA; 0BB9 0BBE TAMIL SYLLABLE HI; 0BB9 0BBF TAMIL SYLLABLE HII; 0BB9 0BC0 TAMIL SYLLABLE HU; 0BB9 0BC1 TAMIL SYLLABLE HUU; 0BB9 0BC2 TAMIL SYLLABLE HE; 0BB9 0BC6 TAMIL SYLLABLE HEE; 0BB9 0BC7 TAMIL SYLLABLE HAI; 0BB9 0BC8 TAMIL SYLLABLE HO; 0BB9 0BCA TAMIL SYLLABLE HOO; 0BB9 0BCB TAMIL SYLLABLE HAU; 0BB9 0BCC TAMIL SYLLABLE KSSA; 0B95 0BCD 0BB7 TAMIL SYLLABLE KSSAA; 0B95 0BCD 0BB7 0BBE TAMIL SYLLABLE KSSI; 0B95 0BCD 0BB7 0BBF TAMIL SYLLABLE KSSII; 0B95 0BCD 0BB7 0BC0 TAMIL SYLLABLE KSSU; 0B95 0BCD 0BB7 0BC1 TAMIL SYLLABLE KSSUU; 0B95 0BCD 0BB7 0BC2 TAMIL SYLLABLE KSSE; 0B95 0BCD 0BB7 0BC6 TAMIL SYLLABLE KSSEE; 0B95 0BCD 0BB7 0BC7 TAMIL SYLLABLE KSSAI; 0B95 0BCD 0BB7 0BC8 TAMIL SYLLABLE KSSO; 0B95 0BCD 0BB7 0BCA TAMIL SYLLABLE KSSOO; 0B95 0BCD 0BB7 0BCB TAMIL SYLLABLE KSSAU; 0B95 0BCD 0BB7 0BCC TAMIL SYLLABLE SHRII; 0BB6 0BCD 0BB0 0BC0 # Sinhala medial consonants and "reph" form. # Provisional 2010-05-13, Approved 2011-08-05 SINHALA CONSONANT SIGN YANSAYA;0DCA 200D 0DBA SINHALA CONSONANT SIGN RAKAARAANSAYA;0DCA 200D 0DBB SINHALA CONSONANT SIGN REPAYA;0DBB 0DCA 200D # Georgian letter plus accent sequence. # This is part of the original set of approved named sequences # for Unicode 4.1. 2005. GEORGIAN LETTER U-BRJGU;10E3 0302 # Khmer subjoined forms and other sequences. # These are part of the original set of approved named sequences # for Unicode 4.1. 2005. KHMER CONSONANT SIGN COENG KA;17D2 1780 KHMER CONSONANT SIGN COENG KHA;17D2 1781 KHMER CONSONANT SIGN COENG KO;17D2 1782 KHMER CONSONANT SIGN COENG KHO;17D2 1783 KHMER CONSONANT SIGN COENG NGO;17D2 1784 KHMER CONSONANT SIGN COENG CA;17D2 1785 KHMER CONSONANT SIGN COENG CHA;17D2 1786 KHMER CONSONANT SIGN COENG CO;17D2 1787 KHMER CONSONANT SIGN COENG CHO;17D2 1788 KHMER CONSONANT SIGN COENG NYO;17D2 1789 KHMER CONSONANT SIGN COENG DA;17D2 178A KHMER CONSONANT SIGN COENG TTHA;17D2 178B KHMER CONSONANT SIGN COENG DO;17D2 178C KHMER CONSONANT SIGN COENG TTHO;17D2 178D KHMER CONSONANT SIGN COENG NA;17D2 178E KHMER CONSONANT SIGN COENG TA;17D2 178F KHMER CONSONANT SIGN COENG THA;17D2 1790 KHMER CONSONANT SIGN COENG TO;17D2 1791 KHMER CONSONANT SIGN COENG THO;17D2 1792 KHMER CONSONANT SIGN COENG NO;17D2 1793 KHMER CONSONANT SIGN COENG BA;17D2 1794 KHMER CONSONANT SIGN COENG PHA;17D2 1795 KHMER CONSONANT SIGN COENG PO;17D2 1796 KHMER CONSONANT SIGN COENG PHO;17D2 1797 KHMER CONSONANT SIGN COENG MO;17D2 1798 KHMER CONSONANT SIGN COENG YO;17D2 1799 KHMER CONSONANT SIGN COENG RO;17D2 179A KHMER CONSONANT SIGN COENG LO;17D2 179B KHMER CONSONANT SIGN COENG VO;17D2 179C KHMER CONSONANT SIGN COENG SHA;17D2 179D KHMER CONSONANT SIGN COENG SSA;17D2 179E KHMER CONSONANT SIGN COENG SA;17D2 179F KHMER CONSONANT SIGN COENG HA;17D2 17A0 KHMER CONSONANT SIGN COENG LA;17D2 17A1 KHMER VOWEL SIGN COENG QA;17D2 17A2 KHMER INDEPENDENT VOWEL SIGN COENG QU;17D2 17A7 KHMER INDEPENDENT VOWEL SIGN COENG RY;17D2 17AB KHMER INDEPENDENT VOWEL SIGN COENG RYY;17D2 17AC KHMER INDEPENDENT VOWEL SIGN COENG QE;17D2 17AF KHMER VOWEL SIGN OM;17BB 17C6 KHMER VOWEL SIGN AAM;17B6 17C6 # Entries for JIS X 0213 compatibility mapping. # Provisional 2008-11-07, Approved 2010-05-14 # # Two of these were part of the original set of approved named sequences # for Unicode 4.1. 2005. HIRAGANA LETTER BIDAKUON NGA;304B 309A HIRAGANA LETTER BIDAKUON NGI;304D 309A HIRAGANA LETTER BIDAKUON NGU;304F 309A HIRAGANA LETTER BIDAKUON NGE;3051 309A HIRAGANA LETTER BIDAKUON NGO;3053 309A KATAKANA LETTER BIDAKUON NGA;30AB 309A KATAKANA LETTER BIDAKUON NGI;30AD 309A KATAKANA LETTER BIDAKUON NGU;30AF 309A KATAKANA LETTER BIDAKUON NGE;30B1 309A KATAKANA LETTER BIDAKUON NGO;30B3 309A KATAKANA LETTER AINU CE;30BB 309A KATAKANA LETTER AINU TU;30C4 309A KATAKANA LETTER AINU TO;30C8 309A KATAKANA LETTER AINU P;31F7 309A MODIFIER LETTER EXTRA-HIGH EXTRA-LOW CONTOUR TONE BAR;02E5 02E9 MODIFIER LETTER EXTRA-LOW EXTRA-HIGH CONTOUR TONE BAR;02E9 02E5 # EOF PK ! H��j( j( 5.34.0/unicore/Blocks.txtnu �[��� # Blocks-13.0.0.txt # Date: 2019-07-10, 19:06:00 GMT [KW] # © 2019 Unicode®, Inc. # For terms of use, see http://www.unicode.org/terms_of_use.html # # Unicode Character Database # For documentation, see http://www.unicode.org/reports/tr44/ # # Format: # Start Code..End Code; Block Name # ================================================ # Note: When comparing block names, casing, whitespace, hyphens, # and underbars are ignored. # For example, "Latin Extended-A" and "latin extended a" are equivalent. # For more information on the comparison of property values, # see UAX #44: http://www.unicode.org/reports/tr44/ # # All block ranges start with a value where (cp MOD 16) = 0, # and end with a value where (cp MOD 16) = 15. In other words, # the last hexadecimal digit of the start of range is ...0 # and the last hexadecimal digit of the end of range is ...F. # This constraint on block ranges guarantees that allocations # are done in terms of whole columns, and that code chart display # never involves splitting columns in the charts. # # All code points not explicitly listed for Block # have the value No_Block. # Property: Block # # @missing: 0000..10FFFF; No_Block 0000..007F; Basic Latin 0080..00FF; Latin-1 Supplement 0100..017F; Latin Extended-A 0180..024F; Latin Extended-B 0250..02AF; IPA Extensions 02B0..02FF; Spacing Modifier Letters 0300..036F; Combining Diacritical Marks 0370..03FF; Greek and Coptic 0400..04FF; Cyrillic 0500..052F; Cyrillic Supplement 0530..058F; Armenian 0590..05FF; Hebrew 0600..06FF; Arabic 0700..074F; Syriac 0750..077F; Arabic Supplement 0780..07BF; Thaana 07C0..07FF; NKo 0800..083F; Samaritan 0840..085F; Mandaic 0860..086F; Syriac Supplement 08A0..08FF; Arabic Extended-A 0900..097F; Devanagari 0980..09FF; Bengali 0A00..0A7F; Gurmukhi 0A80..0AFF; Gujarati 0B00..0B7F; Oriya 0B80..0BFF; Tamil 0C00..0C7F; Telugu 0C80..0CFF; Kannada 0D00..0D7F; Malayalam 0D80..0DFF; Sinhala 0E00..0E7F; Thai 0E80..0EFF; Lao 0F00..0FFF; Tibetan 1000..109F; Myanmar 10A0..10FF; Georgian 1100..11FF; Hangul Jamo 1200..137F; Ethiopic 1380..139F; Ethiopic Supplement 13A0..13FF; Cherokee 1400..167F; Unified Canadian Aboriginal Syllabics 1680..169F; Ogham 16A0..16FF; Runic 1700..171F; Tagalog 1720..173F; Hanunoo 1740..175F; Buhid 1760..177F; Tagbanwa 1780..17FF; Khmer 1800..18AF; Mongolian 18B0..18FF; Unified Canadian Aboriginal Syllabics Extended 1900..194F; Limbu 1950..197F; Tai Le 1980..19DF; New Tai Lue 19E0..19FF; Khmer Symbols 1A00..1A1F; Buginese 1A20..1AAF; Tai Tham 1AB0..1AFF; Combining Diacritical Marks Extended 1B00..1B7F; Balinese 1B80..1BBF; Sundanese 1BC0..1BFF; Batak 1C00..1C4F; Lepcha 1C50..1C7F; Ol Chiki 1C80..1C8F; Cyrillic Extended-C 1C90..1CBF; Georgian Extended 1CC0..1CCF; Sundanese Supplement 1CD0..1CFF; Vedic Extensions 1D00..1D7F; Phonetic Extensions 1D80..1DBF; Phonetic Extensions Supplement 1DC0..1DFF; Combining Diacritical Marks Supplement 1E00..1EFF; Latin Extended Additional 1F00..1FFF; Greek Extended 2000..206F; General Punctuation 2070..209F; Superscripts and Subscripts 20A0..20CF; Currency Symbols 20D0..20FF; Combining Diacritical Marks for Symbols 2100..214F; Letterlike Symbols 2150..218F; Number Forms 2190..21FF; Arrows 2200..22FF; Mathematical Operators 2300..23FF; Miscellaneous Technical 2400..243F; Control Pictures 2440..245F; Optical Character Recognition 2460..24FF; Enclosed Alphanumerics 2500..257F; Box Drawing 2580..259F; Block Elements 25A0..25FF; Geometric Shapes 2600..26FF; Miscellaneous Symbols 2700..27BF; Dingbats 27C0..27EF; Miscellaneous Mathematical Symbols-A 27F0..27FF; Supplemental Arrows-A 2800..28FF; Braille Patterns 2900..297F; Supplemental Arrows-B 2980..29FF; Miscellaneous Mathematical Symbols-B 2A00..2AFF; Supplemental Mathematical Operators 2B00..2BFF; Miscellaneous Symbols and Arrows 2C00..2C5F; Glagolitic 2C60..2C7F; Latin Extended-C 2C80..2CFF; Coptic 2D00..2D2F; Georgian Supplement 2D30..2D7F; Tifinagh 2D80..2DDF; Ethiopic Extended 2DE0..2DFF; Cyrillic Extended-A 2E00..2E7F; Supplemental Punctuation 2E80..2EFF; CJK Radicals Supplement 2F00..2FDF; Kangxi Radicals 2FF0..2FFF; Ideographic Description Characters 3000..303F; CJK Symbols and Punctuation 3040..309F; Hiragana 30A0..30FF; Katakana 3100..312F; Bopomofo 3130..318F; Hangul Compatibility Jamo 3190..319F; Kanbun 31A0..31BF; Bopomofo Extended 31C0..31EF; CJK Strokes 31F0..31FF; Katakana Phonetic Extensions 3200..32FF; Enclosed CJK Letters and Months 3300..33FF; CJK Compatibility 3400..4DBF; CJK Unified Ideographs Extension A 4DC0..4DFF; Yijing Hexagram Symbols 4E00..9FFF; CJK Unified Ideographs A000..A48F; Yi Syllables A490..A4CF; Yi Radicals A4D0..A4FF; Lisu A500..A63F; Vai A640..A69F; Cyrillic Extended-B A6A0..A6FF; Bamum A700..A71F; Modifier Tone Letters A720..A7FF; Latin Extended-D A800..A82F; Syloti Nagri A830..A83F; Common Indic Number Forms A840..A87F; Phags-pa A880..A8DF; Saurashtra A8E0..A8FF; Devanagari Extended A900..A92F; Kayah Li A930..A95F; Rejang A960..A97F; Hangul Jamo Extended-A A980..A9DF; Javanese A9E0..A9FF; Myanmar Extended-B AA00..AA5F; Cham AA60..AA7F; Myanmar Extended-A AA80..AADF; Tai Viet AAE0..AAFF; Meetei Mayek Extensions AB00..AB2F; Ethiopic Extended-A AB30..AB6F; Latin Extended-E AB70..ABBF; Cherokee Supplement ABC0..ABFF; Meetei Mayek AC00..D7AF; Hangul Syllables D7B0..D7FF; Hangul Jamo Extended-B D800..DB7F; High Surrogates DB80..DBFF; High Private Use Surrogates DC00..DFFF; Low Surrogates E000..F8FF; Private Use Area F900..FAFF; CJK Compatibility Ideographs FB00..FB4F; Alphabetic Presentation Forms FB50..FDFF; Arabic Presentation Forms-A FE00..FE0F; Variation Selectors FE10..FE1F; Vertical Forms FE20..FE2F; Combining Half Marks FE30..FE4F; CJK Compatibility Forms FE50..FE6F; Small Form Variants FE70..FEFF; Arabic Presentation Forms-B FF00..FFEF; Halfwidth and Fullwidth Forms FFF0..FFFF; Specials 10000..1007F; Linear B Syllabary 10080..100FF; Linear B Ideograms 10100..1013F; Aegean Numbers 10140..1018F; Ancient Greek Numbers 10190..101CF; Ancient Symbols 101D0..101FF; Phaistos Disc 10280..1029F; Lycian 102A0..102DF; Carian 102E0..102FF; Coptic Epact Numbers 10300..1032F; Old Italic 10330..1034F; Gothic 10350..1037F; Old Permic 10380..1039F; Ugaritic 103A0..103DF; Old Persian 10400..1044F; Deseret 10450..1047F; Shavian 10480..104AF; Osmanya 104B0..104FF; Osage 10500..1052F; Elbasan 10530..1056F; Caucasian Albanian 10600..1077F; Linear A 10800..1083F; Cypriot Syllabary 10840..1085F; Imperial Aramaic 10860..1087F; Palmyrene 10880..108AF; Nabataean 108E0..108FF; Hatran 10900..1091F; Phoenician 10920..1093F; Lydian 10980..1099F; Meroitic Hieroglyphs 109A0..109FF; Meroitic Cursive 10A00..10A5F; Kharoshthi 10A60..10A7F; Old South Arabian 10A80..10A9F; Old North Arabian 10AC0..10AFF; Manichaean 10B00..10B3F; Avestan 10B40..10B5F; Inscriptional Parthian 10B60..10B7F; Inscriptional Pahlavi 10B80..10BAF; Psalter Pahlavi 10C00..10C4F; Old Turkic 10C80..10CFF; Old Hungarian 10D00..10D3F; Hanifi Rohingya 10E60..10E7F; Rumi Numeral Symbols 10E80..10EBF; Yezidi 10F00..10F2F; Old Sogdian 10F30..10F6F; Sogdian 10FB0..10FDF; Chorasmian 10FE0..10FFF; Elymaic 11000..1107F; Brahmi 11080..110CF; Kaithi 110D0..110FF; Sora Sompeng 11100..1114F; Chakma 11150..1117F; Mahajani 11180..111DF; Sharada 111E0..111FF; Sinhala Archaic Numbers 11200..1124F; Khojki 11280..112AF; Multani 112B0..112FF; Khudawadi 11300..1137F; Grantha 11400..1147F; Newa 11480..114DF; Tirhuta 11580..115FF; Siddham 11600..1165F; Modi 11660..1167F; Mongolian Supplement 11680..116CF; Takri 11700..1173F; Ahom 11800..1184F; Dogra 118A0..118FF; Warang Citi 11900..1195F; Dives Akuru 119A0..119FF; Nandinagari 11A00..11A4F; Zanabazar Square 11A50..11AAF; Soyombo 11AC0..11AFF; Pau Cin Hau 11C00..11C6F; Bhaiksuki 11C70..11CBF; Marchen 11D00..11D5F; Masaram Gondi 11D60..11DAF; Gunjala Gondi 11EE0..11EFF; Makasar 11FB0..11FBF; Lisu Supplement 11FC0..11FFF; Tamil Supplement 12000..123FF; Cuneiform 12400..1247F; Cuneiform Numbers and Punctuation 12480..1254F; Early Dynastic Cuneiform 13000..1342F; Egyptian Hieroglyphs 13430..1343F; Egyptian Hieroglyph Format Controls 14400..1467F; Anatolian Hieroglyphs 16800..16A3F; Bamum Supplement 16A40..16A6F; Mro 16AD0..16AFF; Bassa Vah 16B00..16B8F; Pahawh Hmong 16E40..16E9F; Medefaidrin 16F00..16F9F; Miao 16FE0..16FFF; Ideographic Symbols and Punctuation 17000..187FF; Tangut 18800..18AFF; Tangut Components 18B00..18CFF; Khitan Small Script 18D00..18D8F; Tangut Supplement 1B000..1B0FF; Kana Supplement 1B100..1B12F; Kana Extended-A 1B130..1B16F; Small Kana Extension 1B170..1B2FF; Nushu 1BC00..1BC9F; Duployan 1BCA0..1BCAF; Shorthand Format Controls 1D000..1D0FF; Byzantine Musical Symbols 1D100..1D1FF; Musical Symbols 1D200..1D24F; Ancient Greek Musical Notation 1D2E0..1D2FF; Mayan Numerals 1D300..1D35F; Tai Xuan Jing Symbols 1D360..1D37F; Counting Rod Numerals 1D400..1D7FF; Mathematical Alphanumeric Symbols 1D800..1DAAF; Sutton SignWriting 1E000..1E02F; Glagolitic Supplement 1E100..1E14F; Nyiakeng Puachue Hmong 1E2C0..1E2FF; Wancho 1E800..1E8DF; Mende Kikakui 1E900..1E95F; Adlam 1EC70..1ECBF; Indic Siyaq Numbers 1ED00..1ED4F; Ottoman Siyaq Numbers 1EE00..1EEFF; Arabic Mathematical Alphabetic Symbols 1F000..1F02F; Mahjong Tiles 1F030..1F09F; Domino Tiles 1F0A0..1F0FF; Playing Cards 1F100..1F1FF; Enclosed Alphanumeric Supplement 1F200..1F2FF; Enclosed Ideographic Supplement 1F300..1F5FF; Miscellaneous Symbols and Pictographs 1F600..1F64F; Emoticons 1F650..1F67F; Ornamental Dingbats 1F680..1F6FF; Transport and Map Symbols 1F700..1F77F; Alchemical Symbols 1F780..1F7FF; Geometric Shapes Extended 1F800..1F8FF; Supplemental Arrows-C 1F900..1F9FF; Supplemental Symbols and Pictographs 1FA00..1FA6F; Chess Symbols 1FA70..1FAFF; Symbols and Pictographs Extended-A 1FB00..1FBFF; Symbols for Legacy Computing 20000..2A6DF; CJK Unified Ideographs Extension B 2A700..2B73F; CJK Unified Ideographs Extension C 2B740..2B81F; CJK Unified Ideographs Extension D 2B820..2CEAF; CJK Unified Ideographs Extension E 2CEB0..2EBEF; CJK Unified Ideographs Extension F 2F800..2FA1F; CJK Compatibility Ideographs Supplement 30000..3134F; CJK Unified Ideographs Extension G E0000..E007F; Tags E0100..E01EF; Variation Selectors Supplement F0000..FFFFF; Supplementary Private Use Area-A 100000..10FFFF; Supplementary Private Use Area-B # EOF PK ! ����6F 6F 5.34.0/unicore/UCD.plnu �[��� # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by lib/unicore/mktables from the Unicode # database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the # name or existence of this file are subject to change without notice. Don't # use it directly. Use Unicode::UCD to access the Unicode character data # base. # This file is for the use of Unicode::UCD # Highest legal Unicode code point $Unicode::UCD::MAX_UNICODE_CODEPOINT = 0x10FFFF; # Hangul syllables $Unicode::UCD::HANGUL_BEGIN = 0xAC00; $Unicode::UCD::HANGUL_COUNT = 11172; # Maps Unicode (not Perl single-form extensions) property names in loose # standard form to their corresponding standard names %Unicode::UCD::loose_property_name_of = ( 'age' => 'age', 'ahex' => 'ahex', 'alpha' => 'alpha', 'alphabetic' => 'alpha', 'asciihexdigit' => 'ahex', 'bc' => 'bc', 'bidic' => 'bidic', 'bidiclass' => 'bc', 'bidicontrol' => 'bidic', 'bidim' => 'bidim', 'bidimirrored' => 'bidim', 'bidipairedbrackettype' => 'bpt', 'blk' => 'blk', 'block' => 'blk', 'bpt' => 'bpt', 'canonicalcombiningclass' => 'ccc', 'cased' => 'cased', 'caseignorable' => 'ci', 'category' => 'gc', 'ccc' => 'ccc', 'ce' => 'ce', 'changeswhencasefolded' => 'cwcf', 'changeswhencasemapped' => 'cwcm', 'changeswhenlowercased' => 'cwl', 'changeswhennfkccasefolded' => 'cwkcf', 'changeswhentitlecased' => 'cwt', 'changeswhenuppercased' => 'cwu', 'ci' => 'ci', 'compex' => 'compex', 'compositionexclusion' => 'ce', 'cwcf' => 'cwcf', 'cwcm' => 'cwcm', 'cwkcf' => 'cwkcf', 'cwl' => 'cwl', 'cwt' => 'cwt', 'cwu' => 'cwu', 'dash' => 'dash', 'decompositiontype' => 'dt', 'defaultignorablecodepoint' => 'di', 'dep' => 'dep', 'deprecated' => 'dep', 'di' => 'di', 'dia' => 'dia', 'diacritic' => 'dia', 'dt' => 'dt', 'ea' => 'ea', 'eastasianwidth' => 'ea', 'ebase' => 'ebase', 'ecomp' => 'ecomp', 'emod' => 'emod', 'emoji' => 'emoji', 'emojicomponent' => 'ecomp', 'emojimodifier' => 'emod', 'emojimodifierbase' => 'ebase', 'emojipresentation' => 'epres', 'epres' => 'epres', 'ext' => 'ext', 'extendedpictographic' => 'extpict', 'extender' => 'ext', 'extpict' => 'extpict', 'fullcompositionexclusion' => 'compex', 'gc' => 'gc', 'gcb' => 'gcb', 'generalcategory' => 'gc', 'graphemebase' => 'grbase', 'graphemeclusterbreak' => 'gcb', 'graphemeextend' => 'grext', 'grbase' => 'grbase', 'grext' => 'grext', 'hangulsyllabletype' => 'hst', 'hex' => 'hex', 'hexdigit' => 'hex', 'hst' => 'hst', 'hyphen' => 'hyphen', 'idc' => 'idc', 'idcontinue' => 'idc', 'identifierstatus' => 'identifierstatus', 'identifiertype' => 'identifiertype', 'ideo' => 'ideo', 'ideographic' => 'ideo', 'ids' => 'ids', 'idsb' => 'idsb', 'idsbinaryoperator' => 'idsb', 'idst' => 'idst', 'idstart' => 'ids', 'idstrinaryoperator' => 'idst', 'in' => 'in', 'indicpositionalcategory' => 'inpc', 'indicsyllabiccategory' => 'insc', 'inpc' => 'inpc', 'insc' => 'insc', 'jg' => 'jg', 'joinc' => 'joinc', 'joincontrol' => 'joinc', 'joininggroup' => 'jg', 'joiningtype' => 'jt', 'jt' => 'jt', 'lb' => 'lb', 'linebreak' => 'lb', 'loe' => 'loe', 'logicalorderexception' => 'loe', 'lower' => 'lower', 'lowercase' => 'lower', 'math' => 'math', 'nchar' => 'nchar', 'nfcqc' => 'nfcqc', 'nfcquickcheck' => 'nfcqc', 'nfdqc' => 'nfdqc', 'nfdquickcheck' => 'nfdqc', 'nfkcqc' => 'nfkcqc', 'nfkcquickcheck' => 'nfkcqc', 'nfkdqc' => 'nfkdqc', 'nfkdquickcheck' => 'nfkdqc', 'noncharactercodepoint' => 'nchar', 'nt' => 'nt', 'numerictype' => 'nt', 'numericvalue' => 'nv', 'nv' => 'nv', 'patsyn' => 'patsyn', 'patternsyntax' => 'patsyn', 'patternwhitespace' => 'patws', 'patws' => 'patws', 'pcm' => 'pcm', 'prependedconcatenationmark' => 'pcm', 'presentin' => 'in', 'qmark' => 'qmark', 'quotationmark' => 'qmark', 'radical' => 'radical', 'regionalindicator' => 'ri', 'ri' => 'ri', 'sb' => 'sb', 'sc' => 'sc', 'script' => 'sc', 'scriptextensions' => 'scx', 'scx' => 'scx', 'sd' => 'sd', 'sentencebreak' => 'sb', 'sentenceterminal' => 'sterm', 'softdotted' => 'sd', 'space' => 'wspace', 'sterm' => 'sterm', 'term' => 'term', 'terminalpunctuation' => 'term', 'uideo' => 'uideo', 'unifiedideograph' => 'uideo', 'upper' => 'upper', 'uppercase' => 'upper', 'variationselector' => 'vs', 'verticalorientation' => 'vo', 'vo' => 'vo', 'vs' => 'vs', 'wb' => 'wb', 'whitespace' => 'wspace', 'wordbreak' => 'wb', 'wspace' => 'wspace', 'xidc' => 'xidc', 'xidcontinue' => 'xidc', 'xids' => 'xids', 'xidstart' => 'xids', ); # Same, but strict names %Unicode::UCD::strict_property_name_of = ( '_perlgcb' => 'gcb', '_perlsb' => 'sb', '_perlscx' => '_perlscx', '_perlwb' => 'wb', ); # Gives the definitions (in the form of inversion lists) for those properties # whose definitions aren't kept in files @Unicode::UCD::inline_definitions = ( 'V0', 'V1 0', 'V2 0 1114112', 'V4 9 14 32 33', 'V6 10 14 133 134 8232 8234', 'V6 48 58 65 91 97 123', 'V4 65 91 97 123', 'V4 9 10 32 33', 'V4 0 32 127 128', 'V2 48 58', 'V2 33 127', 'V2 97 123', 'V2 32 127', 'V2 65 91', 'V2 55296 57344', 'V2 12334 12336', 'V2 119149 119150', 'V2 12330 12331', 'V6 861 863 864 866 7629 7630', 'V2 837 838', 'V2 12441 12443', 'V2 7630 7631', 'V6 801 803 807 809 7632 7633', 'V2 94192 94194', 'V2 1456 1457', 'V2 1457 1458', 'V2 1458 1459', 'V2 1459 1460', 'V2 1460 1461', 'V2 1461 1462', 'V2 1462 1463', 'V2 1463 1464', 'V4 1464 1465 1479 1480', 'V2 1465 1467', 'V2 1467 1468', 'V2 1468 1469', 'V2 1469 1470', 'V2 1471 1472', 'V2 1473 1474', 'V2 1474 1475', 'V2 64286 64287', 'V4 1611 1612 2288 2289', 'V4 1612 1613 2289 2290', 'V4 1613 1614 2290 2291', 'V4 1560 1561 1614 1615', 'V4 1561 1562 1615 1616', 'V4 1562 1563 1616 1617', 'V2 1617 1618', 'V2 1618 1619', 'V2 1648 1649', 'V2 1809 1810', 'V2 3157 3158', 'V2 3158 3159', 'V2 3640 3642', 'V2 3656 3660', 'V2 3768 3770', 'V2 3784 3788', 'V2 3953 3954', 'V6 3954 3955 3962 3966 3968 3969', 'V2 3956 3957', 'V6 48 58 65 71 97 103', 'V2 127995 128000', 'V3 0 127995 128000', 'V4 4352 4448 43360 43389', 'V4 4520 4608 55243 55292', 'V4 4448 4520 55216 55239', 'V2 13 14', 'V2 10 11', 'V2 127462 127488', 'V2 8205 8206', 'V4 12272 12274 12276 12284', 'V5 0 12272 12274 12276 12284', 'V2 12274 12276', 'V3 0 12274 12276', 'V2 43455 43456', 'V4 4156 4157 71454 71455', 'V2 6973 6974', 'V2 8204 8205', 'V6 6512 6517 43712 43713 43714 43715', 'V2 69759 69760', 'V6 2673 2674 70199 70200 72344 72345', 'V4 3660 3661 6093 6094', 'V2 2947 2948', 'V2 6089 6091', 'V2 69714 69734', 'V2 3976 3981', 'V6 3406 3407 72001 72002 73030 73031', 'V2 6746 6747', 'V2 8204 8206', 'V3 0 8204 8206', 'V3 0 127462 127488', 'V6 11904 11930 11931 12020 12032 12246', 'V4 133 134 8232 8234', 'V6 6155 6158 65024 65040 917760 918000', 'V2 34 35', 'V6 11 13 133 134 8232 8234', 'V2 39 40', 'V4 8364 8365 65532 65533', 'V2 8378 8379', 'V4 1564 1565 8294 8298', 'V2 13055 13056', 'V6 9 10 11 12 31 32', 'V2 8296 8297', 'V2 8234 8235', 'V2 8294 8295', 'V2 8237 8238', 'V2 8236 8237', 'V2 8297 8298', 'V2 8235 8236', 'V2 8295 8296', 'V2 8238 8239', 'V2 65024 65040', 'V2 19968 40960', 'V2 12272 12288', 'V2 3712 3840', 'V2 92736 92784', 'V2 1984 2048', 'V2 9280 9312', 'V2 57344 63744', 'V2 42240 42560', 'V2 71424 71488', 'V2 43520 43616', 'V2 4352 4608', 'V2 42192 42240', 'V2 93952 94112', 'V2 71168 71264', 'V2 70656 70784', 'V2 69216 69248', 'V2 917504 917632', 'V2 3584 3712', 'V2 5120 5760', 'V2 0 128', 'V2 125184 125280', 'V2 42656 42752', 'V2 7104 7168', 'V2 5952 5984', 'V2 71680 71760', 'V2 880 1024', 'V2 6016 6144', 'V2 6400 6480', 'V2 119040 119296', 'V2 110960 111360', 'V2 5760 5792', 'V2 2816 2944', 'V2 66736 66816', 'V2 5792 5888', 'V2 6480 6528', 'V2 71296 71376', 'V2 2944 3072', 'V2 917760 918000', 'V2 1536 1792', 'V2 8592 8704', 'V2 69632 69760', 'V2 66208 66272', 'V2 69888 69968', 'V2 11392 11520', 'V2 127024 127136', 'V2 66352 66384', 'V2 44032 55216', 'V2 67808 67840', 'V2 1424 1536', 'V2 592 688', 'V2 69760 69840', 'V2 12688 12704', 'V2 12032 12256', 'V2 70144 70224', 'V2 128 256', 'V2 7168 7248', 'V2 66176 66208', 'V2 67872 67904', 'V2 43312 43360', 'V2 1792 1872', 'V2 94208 100352', 'V2 3072 3200', 'V2 1920 1984', 'V2 123584 123648', 'V2 69248 69312', 'V2 19904 19968', 'V2 68352 68416', 'V2 2432 2560', 'V2 10240 10496', 'V2 13312 19904', 'V2 131072 173792', 'V2 173824 177984', 'V2 177984 178208', 'V2 178208 183984', 'V2 183984 191472', 'V2 196608 201552', 'V2 66560 66640', 'V2 66816 66864', 'V2 69600 69632', 'V2 70400 70528', 'V2 5920 5952', 'V2 110592 110848', 'V2 3200 3328', 'V2 43264 43312', 'V2 67072 67456', 'V2 73648 73664', 'V2 126976 127024', 'V2 73440 73472', 'V2 2112 2144', 'V2 72816 72896', 'V2 70272 70320', 'V2 4096 4256', 'V2 7248 7296', 'V2 66688 66736', 'V2 43072 43136', 'V2 70016 70112', 'V2 66640 66688', 'V2 71040 71168', 'V2 3456 3584', 'V2 69424 69488', 'V2 72272 72368', 'V2 983040 1048576', 'V2 1048576 1114112', 'V2 5888 5920', 'V2 6688 6832', 'V2 43648 43744', 'V2 3840 4096', 'V2 70784 70880', 'V2 6320 6400', 'V2 1328 1424', 'V2 6912 7040', 'V2 92160 92736', 'V2 92880 92928', 'V2 12544 12592', 'V2 6656 6688', 'V2 5024 5120', 'V2 1024 1280', 'V2 9984 10176', 'V2 113664 113824', 'V2 4608 4992', 'V2 4256 4352', 'V2 7936 8192', 'V2 2688 2816', 'V2 2560 2688', 'V2 12352 12448', 'V2 43360 43392', 'V2 55216 55296', 'V2 43392 43488', 'V2 110848 110896', 'V2 12448 12544', 'V2 69968 70016', 'V2 66000 66048', 'V2 65520 65536', 'V2 5984 6016', 'V2 73664 73728', 'V2 11568 11648', 'V2 66432 66464', 'V2 7376 7424', 'V2 64336 65024', 'V2 65136 65280', 'V2 1872 1920', 'V2 72704 72816', 'V2 13056 13312', 'V2 73728 74752', 'V2 128512 128592', 'V2 65056 65072', 'V2 70320 70400', 'V2 256 384', 'V2 384 592', 'V2 11360 11392', 'V2 42784 43008', 'V2 43824 43888', 'V2 3328 3456', 'V2 6144 6320', 'V2 67712 67760', 'V2 6528 6624', 'V2 66304 66352', 'V2 66384 66432', 'V2 68608 68688', 'V2 67680 67712', 'V2 72384 72448', 'V2 2048 2112', 'V2 7040 7104', 'V2 2144 2160', 'V2 101632 101776', 'V2 128768 128896', 'V2 2208 2304', 'V2 126464 126720', 'V2 9472 9600', 'V2 12736 12784', 'V2 12288 12352', 'V2 69552 69600', 'V2 12592 12688', 'V2 2304 2432', 'V2 71936 72032', 'V2 11264 11360', 'V2 68096 68192', 'V2 68288 68352', 'V2 11008 11264', 'V2 66464 66528', 'V2 69376 69424', 'V2 67840 67872', 'V2 43136 43232', 'V2 65104 65136', 'V2 10224 10240', 'V2 10496 10624', 'V2 129024 129280', 'V2 71840 71936', 'V2 42128 42192', 'V2 12704 12736', 'V2 43888 43968', 'V2 119648 119680', 'V2 1280 1328', 'V2 12800 13056', 'V2 11648 11744', 'V2 4992 5024', 'V2 7312 7360', 'V2 11520 11568', 'V2 12784 12800', 'V2 93760 93856', 'V2 43968 44032', 'V2 9728 9984', 'V2 43616 43648', 'V2 43488 43520', 'V2 72096 72192', 'V2 8528 8592', 'V2 92928 93072', 'V2 7424 7552', 'V2 8192 8304', 'V2 69840 69888', 'V2 8304 8352', 'V2 43008 43056', 'V2 119552 119648', 'V2 40960 42128', 'V2 64256 64336', 'V2 129536 129648', 'V2 11744 11776', 'V2 42560 42656', 'V2 7296 7312', 'V2 768 880', 'V2 43776 43824', 'V2 73056 73136', 'V2 6624 6656', 'V2 72960 73056', 'V2 119808 120832', 'V2 124928 125152', 'V2 71264 71296', 'V2 68736 68864', 'V2 127136 127232', 'V2 110896 110960', 'V2 7360 7376', 'V2 65792 65856', 'V2 9600 9632', 'V2 43232 43264', 'V2 122880 122928', 'V2 56320 57344', 'V2 8704 8960', 'V2 119520 119552', 'V2 8960 9216', 'V2 65040 65056', 'V2 65936 66000', 'V2 118784 119040', 'V2 65072 65104', 'V2 11904 12032', 'V2 68864 68928', 'V2 55296 56192', 'V2 43744 43776', 'V2 7552 7616', 'V2 68480 68528', 'V2 11776 11904', 'V2 9216 9280', 'V2 8352 8400', 'V2 6832 6912', 'V2 7616 7680', 'V2 9632 9728', 'V2 67648 67680', 'V2 68000 68096', 'V2 127744 128512', 'V2 688 768', 'V2 68224 68256', 'V2 68192 68224', 'V2 128640 128768', 'V2 72192 72272', 'V2 74752 74880', 'V2 67584 67648', 'V2 9312 9472', 'V2 65280 65520', 'V2 56192 56320', 'V2 43056 43072', 'V2 65664 65792', 'V2 65536 65664', 'V2 10176 10224', 'V2 10624 10752', 'V2 10752 11008', 'V2 100352 101120', 'V2 119296 119376', 'V2 66864 66928', 'V2 126064 126144', 'V2 101120 101632', 'V2 8448 8528', 'V2 120832 121520', 'V2 66272 66304', 'V2 128896 129024', 'V2 94176 94208', 'V2 7680 7936', 'V2 128592 128640', 'V2 65856 65936', 'V2 63744 64256', 'V2 77824 78896', 'V2 127232 127488', 'V2 67968 68000', 'V2 42752 42784', 'V2 126208 126288', 'V2 82944 83584', 'V2 68448 68480', 'V2 123136 123216', 'V2 68416 68448', 'V2 70112 70144', 'V2 194560 195104', 'V2 8400 8448', 'V2 74880 75088', 'V2 127488 127744', 'V2 113824 113840', 'V2 129280 129536', 'V2 129648 129792', 'V2 129792 130048', 'V2 78896 78912', 'V6 188 191 8528 8544 8585 8586', 'V6 65104 65107 65108 65127 65128 65132', 'V6 12288 12289 65281 65377 65504 65511', 'V4 0 32 127 160', 'V6 57344 63744 983040 1048574 1048576 1114110', 'V2 8232 8233', 'V2 8233 8234', 'V2 1829 1830', 'V2 1871 1872', 'V2 1815 1816', 'V2 1830 1831', 'V2 1607 1608', 'V2 1825 1826', 'V2 1826 1827', 'V2 1725 1726', 'V6 1591 1593 1695 1696 2211 2212', 'V2 1836 1837', 'V4 1810 1811 1837 1838', 'V2 1818 1819', 'V2 1823 1824', 'V6 1605 1606 1893 1895 2215 2216', 'V6 1606 1607 1721 1725 1895 1898', 'V2 1833 1834', 'V2 1835 1836', 'V2 1819 1821', 'V2 1821 1822', 'V2 1817 1818', 'V2 1808 1809', 'V4 1811 1813 1838 1839', 'V2 1870 1871', 'V2 1832 1833', 'V2 1869 1870', 'V2 1824 1825', 'V2 1822 1823', 'V2 1729 1731', 'V2 1827 1828', 'V2 1706 1707', 'V2 1816 1817', 'V2 1746 1748', 'V2 2235 2236', 'V4 2236 2237 2244 2245', 'V6 1813 1815 1834 1835 1839 1840', 'V4 1726 1727 1791 1792', 'V2 1831 1832', 'V6 1577 1578 1728 1729 1749 1750', 'V2 2237 2238', 'V2 2145 2146', 'V2 2151 2152', 'V2 2220 2221', 'V2 2225 2226', 'V2 1741 1742', 'V2 1828 1829', 'V2 2150 2151', 'V2 2152 2153', 'V2 2144 2145', 'V2 2148 2149', 'V2 2146 2147', 'V2 2154 2155', 'V2 2147 2148', 'V2 68315 68317', 'V2 2153 2154', 'V2 2149 2150', 'V2 68310 68311', 'V2 68311 68312', 'V2 68331 68332', 'V2 68324 68325', 'V2 68333 68334', 'V2 68295 68296', 'V2 1731 1732', 'V2 68313 68315', 'V2 68289 68291', 'V2 68332 68333', 'V2 68301 68302', 'V2 68304 68307', 'V2 68318 68321', 'V2 68321 68322', 'V2 68302 68303', 'V2 68303 68304', 'V2 68288 68289', 'V2 68291 68293', 'V2 68317 68318', 'V2 68297 68299', 'V6 68866 68867 68873 68874 68892 68893', 'V2 68293 68294', 'V2 68307 68308', 'V2 68312 68313', 'V2 68334 68335', 'V2 68308 68309', 'V2 68335 68336', 'V2 68309 68310', 'V2 1914 1916', 'V4 8212 8213 11834 11836', 'V4 11 13 8232 8234', 'V2 65532 65533', 'V4 41 42 93 94', 'V2 45 46', 'V2 133 134', 'V2 55296 57344', 'V2 32 33', 'V2 47 48', 'V4 8288 8289 65279 65280', 'V2 8203 8204', 'V2 12881 12882', 'V2 12882 12883', 'V2 12883 12884', 'V2 12884 12885', 'V2 12885 12886', 'V2 12886 12887', 'V2 12887 12888', 'V2 12888 12889', 'V2 12889 12890', 'V2 12891 12892', 'V2 12892 12893', 'V2 12893 12894', 'V2 12894 12895', 'V2 12895 12896', 'V2 12977 12978', 'V2 12978 12979', 'V2 12979 12980', 'V2 12980 12981', 'V2 12982 12983', 'V2 12983 12984', 'V2 12984 12985', 'V2 12985 12986', 'V2 12986 12987', 'V2 12987 12988', 'V2 12988 12989', 'V2 12989 12990', 'V2 12990 12991', 'V6 3422 3423 8533 8534 73679 73680', 'V2 8528 8529', 'V2 8529 8530', 'V2 8534 8535', 'V2 3883 3884', 'V2 8535 8536', 'V2 8540 8541', 'V2 8536 8537', 'V2 3884 3885', 'V6 8538 8539 68095 68096 74844 74845', 'V2 8541 8542', 'V2 3885 3886', 'V2 8542 8543', 'V2 3886 3887', 'V2 3891 3892', 'V6 3420 3421 8530 8531 73675 73676', 'V2 68086 68087', 'V4 3419 3420 73672 73673', 'V2 73669 73670', 'V4 3417 3418 73668 73669', 'V2 73667 73668', 'V2 73666 73667', 'V2 3887 3888', 'V2 3888 3889', 'V2 3889 3890', 'V2 3890 3891', 'V4 3421 3422 73677 73678', 'V2 73671 73672', 'V4 3418 3419 73670 73671', 'V2 68090 68091', 'V2 68092 68093', 'V4 3416 3417 73665 73666', 'V4 73664 73665 73684 73685', 'V2 68028 68029', 'V4 68078 68079 126111 126112', 'V2 74802 74803', 'V2 68079 68080', 'V2 68080 68081', 'V2 74803 74804', 'V2 68081 68082', 'V2 68082 68083', 'V2 68083 68084', 'V2 68084 68085', 'V2 68085 68086', 'V2 93022 93023', 'V2 126113 126114', 'V2 126114 126115', 'V6 20159 20160 20740 20741 93023 93024', 'V2 93024 93025', 'V4 20806 20807 93025 93026', 'V4 40960 42125 42128 42183', 'V6 125184 125260 125264 125274 125278 125280', 'V6 746 748 12549 12592 12704 12736', 'V4 6656 6684 6686 6688', 'V2 5952 5972', 'V4 69888 69941 69942 69960', 'V6 994 1008 11392 11508 11513 11520', 'V2 71680 71740', 'V2 5920 5941', 'V6 43392 43470 43472 43482 43486 43488', 'V4 43264 43310 43311 43312', 'V4 70144 70162 70163 70207', 'V4 69760 69826 69837 69838', 'V6 67072 67383 67392 67414 67424 67432', 'V2 69968 70007', 'V4 2112 2140 2142 2143', 'V4 68288 68327 68331 68343', 'V4 71168 71237 71248 71258', 'V6 4096 4256 43488 43519 43616 43648', 'V6 72096 72104 72106 72152 72154 72165', 'V2 66384 66427', 'V2 43072 43128', 'V6 68480 68498 68505 68509 68521 68528', 'V4 68864 68904 68912 68922', 'V4 70320 70379 70384 70394', 'V2 69424 69466', 'V2 43008 43053', 'V6 5984 5997 5998 6001 6002 6004', 'V4 71296 71353 71360 71370', 'V4 6480 6510 6512 6517', 'V4 5888 5901 5902 5909', 'V2 1920 1970', 'V4 70784 70856 70864 70874', 'V6 69248 69290 69291 69294 69296 69298', 'V6 92736 92767 92768 92778 92782 92784', 'V4 1984 2043 2045 2048', 'V2 42240 42540', 'V4 66864 66916 66927 66928', 'V6 71424 71451 71453 71468 71472 71488', 'V4 67648 67670 67671 67680', 'V4 68352 68406 68409 68416', 'V4 6912 6988 6992 7037', 'V4 42656 42744 92160 92729', 'V4 92880 92910 92912 92918', 'V4 7104 7156 7164 7168', 'V6 69632 69710 69714 69744 69759 69760', 'V6 6656 6684 6686 6688 43471 43472', 'V4 5941 5943 5952 5972', 'V4 5120 5760 6320 6390', 'V2 66208 66257', 'V6 5024 5110 5112 5118 43888 43968', 'V2 69552 69580', 'V6 2404 2416 43056 43066 71680 71740', 'V4 77824 78895 78896 78905', 'V2 66816 66856', 'V2 69600 69623', 'V2 66352 66379', 'V2 5920 5943', 'V6 67808 67827 67828 67830 67835 67840', 'V2 82944 83527', 'V6 68736 68787 68800 68851 68858 68864', 'V4 66304 66340 66349 66352', 'V6 43392 43470 43471 43482 43486 43488', 'V4 94180 94181 101120 101590', 'V6 7168 7224 7227 7242 7245 7248', 'V4 42192 42240 73648 73649', 'V2 66176 66205', 'V4 67872 67898 67903 67904', 'V6 2404 2416 43056 43066 69968 70007', 'V2 73440 73465', 'V6 1600 1601 2112 2140 2142 2143', 'V6 1600 1601 68288 68327 68331 68343', 'V6 72816 72848 72850 72872 72873 72887', 'V2 93760 93851', 'V4 124928 125125 125127 125143', 'V6 68000 68024 68028 68048 68050 68096', 'V6 93952 94027 94031 94088 94095 94112', 'V6 43056 43066 71168 71237 71248 71258', 'V6 43744 43767 43968 44014 44016 44026', 'V4 67712 67743 67751 67760', 'V4 70656 70748 70749 70754', 'V4 94177 94178 110960 111356', 'V2 5760 5789', 'V2 68608 68681', 'V4 66736 66772 66776 66812', 'V4 66688 66718 66720 66730', 'V2 72384 72441', 'V4 1155 1156 66384 66427', 'V6 6146 6148 6149 6150 43072 43128', 'V4 68448 68467 68472 68480', 'V4 67840 67868 67871 67872', 'V4 68416 68438 68440 68448', 'V4 43312 43348 43359 43360', 'V4 5792 5867 5870 5881', 'V4 2048 2094 2096 2111', 'V4 43136 43206 43214 43226', 'V6 120832 121484 121499 121504 121505 121520', 'V4 71040 71094 71096 71134', 'V4 1600 1601 69424 69466', 'V2 69376 69416', 'V4 69840 69865 69872 69882', 'V2 72272 72355', 'V4 7040 7104 7360 7368', 'V6 2404 2406 2534 2544 43008 43053', 'V6 4160 4170 6480 6510 6512 6517', 'V4 43648 43715 43739 43744', 'V6 11568 11624 11631 11633 11647 11648', 'V6 5888 5901 5902 5909 5941 5943', 'V4 3585 3643 3648 3676', 'V4 66432 66462 66463 66464', 'V4 71840 71923 71935 71936', 'V4 123584 123642 123647 123648', 'V4 66464 66500 66504 66518', 'V2 72192 72264', , ); # Maps property, table to file for those using stricter matching. For paths # whose directory is '#', the file is in the form of a numeric index into # @inline_definitions %Unicode::UCD::stricter_to_file_of = ( '_perl_any_folds' => 'Perl/_PerlAny', '_perl_charname_begin' => 'Perl/_PerlCha', '_perl_charname_continue' => 'Perl/_PerlCh2', '_perl_folds_to_multi_char' => 'Perl/_PerlFol', '_perl_idcont' => 'Perl/_PerlIDC', '_perl_idstart' => 'Perl/_PerlIDS', '_perl_is_in_multi_char_fold' => 'Perl/_PerlIsI', '_perl_nchar' => 'Perl/_PerlNch', '_perl_patws' => 'Perl/_PerlPat', '_perl_problematic_locale_foldeds_start' => 'Perl/_PerlPr2', '_perl_problematic_locale_folds' => 'Perl/_PerlPro', '_perl_quotemeta' => 'Perl/_PerlQuo', '_perl_surrogate' => '#/14', 'age=1.1' => 'Age/V11', 'age=10' => 'Age/V100', 'age=10.0' => 'Age/V100', 'age=11' => 'Age/V110', 'age=11.0' => 'Age/V110', 'age=12' => 'Age/V120', 'age=12.0' => 'Age/V120', 'age=12.1' => '#/100', 'age=13' => 'Age/V130', 'age=13.0' => 'Age/V130', 'age=2' => 'Age/V20', 'age=2.0' => 'Age/V20', 'age=2.1' => '#/97', 'age=3' => 'Age/V30', 'age=3.0' => 'Age/V30', 'age=3.1' => 'Age/V31', 'age=3.2' => 'Age/V32', 'age=4' => 'Age/V40', 'age=4.0' => 'Age/V40', 'age=4.1' => 'Age/V41', 'age=5' => 'Age/V50', 'age=5.0' => 'Age/V50', 'age=5.1' => 'Age/V51', 'age=5.2' => 'Age/V52', 'age=6' => 'Age/V60', 'age=6.0' => 'Age/V60', 'age=6.1' => 'Age/V61', 'age=6.2' => '#/98', 'age=6.3' => '#/99', 'age=7' => 'Age/V70', 'age=7.0' => 'Age/V70', 'age=8' => 'Age/V80', 'age=8.0' => 'Age/V80', 'age=9' => 'Age/V90', 'age=9.0' => 'Age/V90', 'ccc=0' => 'Ccc/NR', 'ccc=1' => 'Ccc/OV', 'ccc=10' => '#/24', 'ccc=103' => '#/53', 'ccc=107' => '#/54', 'ccc=11' => '#/25', 'ccc=118' => '#/55', 'ccc=12' => '#/26', 'ccc=122' => '#/56', 'ccc=129' => '#/57', 'ccc=13' => '#/27', 'ccc=130' => '#/58', 'ccc=132' => '#/59', 'ccc=133' => '#/0', 'ccc=14' => '#/28', 'ccc=15' => '#/29', 'ccc=16' => '#/30', 'ccc=17' => '#/31', 'ccc=18' => '#/32', 'ccc=19' => '#/33', 'ccc=20' => '#/34', 'ccc=200' => '#/0', 'ccc=202' => '#/22', 'ccc=21' => '#/35', 'ccc=214' => '#/21', 'ccc=216' => 'Ccc/ATAR', 'ccc=218' => '#/17', 'ccc=22' => '#/36', 'ccc=220' => 'Ccc/B', 'ccc=222' => 'Ccc/BR', 'ccc=224' => '#/15', 'ccc=226' => '#/16', 'ccc=228' => 'Ccc/AL', 'ccc=23' => '#/37', 'ccc=230' => 'Ccc/A', 'ccc=232' => 'Ccc/AR', 'ccc=233' => 'Ccc/DB', 'ccc=234' => '#/18', 'ccc=24' => '#/38', 'ccc=240' => '#/19', 'ccc=25' => '#/39', 'ccc=26' => '#/40', 'ccc=27' => '#/41', 'ccc=28' => '#/42', 'ccc=29' => '#/43', 'ccc=30' => '#/44', 'ccc=31' => '#/45', 'ccc=32' => '#/46', 'ccc=33' => '#/47', 'ccc=34' => '#/48', 'ccc=35' => '#/49', 'ccc=36' => '#/50', 'ccc=6' => '#/23', 'ccc=7' => 'Ccc/NK', 'ccc=8' => '#/20', 'ccc=84' => '#/51', 'ccc=9' => 'Ccc/VR', 'ccc=91' => '#/52', 'in=1.1' => 'Age/V11', 'in=10' => 'In/10_0', 'in=10.0' => 'In/10_0', 'in=11' => 'In/11_0', 'in=11.0' => 'In/11_0', 'in=12' => 'In/12_0', 'in=12.0' => 'In/12_0', 'in=12.1' => 'In/12_1', 'in=13' => 'In/13_0', 'in=13.0' => 'In/13_0', 'in=2' => 'In/2_0', 'in=2.0' => 'In/2_0', 'in=2.1' => 'In/2_1', 'in=3' => 'In/3_0', 'in=3.0' => 'In/3_0', 'in=3.1' => 'In/3_1', 'in=3.2' => 'In/3_2', 'in=4' => 'In/4_0', 'in=4.0' => 'In/4_0', 'in=4.1' => 'In/4_1', 'in=5' => 'In/5_0', 'in=5.0' => 'In/5_0', 'in=5.1' => 'In/5_1', 'in=5.2' => 'In/5_2', 'in=6' => 'In/6_0', 'in=6.0' => 'In/6_0', 'in=6.1' => 'In/6_1', 'in=6.2' => 'In/6_2', 'in=6.3' => 'In/6_3', 'in=7' => 'In/7_0', 'in=7.0' => 'In/7_0', 'in=8' => 'In/8_0', 'in=8.0' => 'In/8_0', 'in=9' => 'In/9_0', 'in=9.0' => 'In/9_0', 'nv=-1/2' => '#/562', 'nv=0' => 'Nv/0', 'nv=1' => 'Nv/1', 'nv=1/10' => '#/563', 'nv=1/12' => '#/564', 'nv=1/16' => 'Nv/1_16', 'nv=1/160' => '#/579', 'nv=1/2' => 'Nv/1_2', 'nv=1/20' => '#/565', 'nv=1/3' => 'Nv/1_3', 'nv=1/32' => '#/566', 'nv=1/320' => '#/580', 'nv=1/4' => 'Nv/1_4', 'nv=1/40' => '#/567', 'nv=1/5' => '#/548', 'nv=1/6' => 'Nv/1_6', 'nv=1/64' => '#/568', 'nv=1/7' => '#/549', 'nv=1/8' => 'Nv/1_8', 'nv=1/80' => '#/569', 'nv=1/9' => '#/550', 'nv=10' => 'Nv/10', 'nv=100' => 'Nv/100', 'nv=1000' => 'Nv/1000', 'nv=10000' => 'Nv/10000', 'nv=100000' => 'Nv/100000', 'nv=1000000' => '#/592', 'nv=10000000' => '#/593', 'nv=100000000' => '#/595', 'nv=10000000000' => '#/596', 'nv=1000000000000' => '#/597', 'nv=11' => 'Nv/11', 'nv=11/12' => '#/581', 'nv=11/2' => '#/570', 'nv=12' => 'Nv/12', 'nv=13' => 'Nv/13', 'nv=13/2' => '#/571', 'nv=14' => 'Nv/14', 'nv=15' => 'Nv/15', 'nv=15/2' => '#/572', 'nv=16' => 'Nv/16', 'nv=17' => 'Nv/17', 'nv=17/2' => '#/573', 'nv=18' => 'Nv/18', 'nv=19' => 'Nv/19', 'nv=2' => 'Nv/2', 'nv=2/3' => 'Nv/2_3', 'nv=2/5' => '#/551', 'nv=20' => 'Nv/20', 'nv=200' => 'Nv/200', 'nv=2000' => 'Nv/2000', 'nv=20000' => 'Nv/20000', 'nv=200000' => '#/582', 'nv=20000000' => '#/594', 'nv=21' => '#/521', 'nv=216000' => '#/583', 'nv=22' => '#/522', 'nv=23' => '#/523', 'nv=24' => '#/524', 'nv=25' => '#/525', 'nv=26' => '#/526', 'nv=27' => '#/527', 'nv=28' => '#/528', 'nv=29' => '#/529', 'nv=3' => 'Nv/3', 'nv=3/16' => 'Nv/3_16', 'nv=3/2' => '#/552', 'nv=3/20' => '#/574', 'nv=3/4' => 'Nv/3_4', 'nv=3/5' => '#/553', 'nv=3/64' => '#/575', 'nv=3/8' => '#/554', 'nv=3/80' => '#/576', 'nv=30' => 'Nv/30', 'nv=300' => 'Nv/300', 'nv=3000' => 'Nv/3000', 'nv=30000' => 'Nv/30000', 'nv=300000' => '#/584', 'nv=31' => '#/530', 'nv=32' => '#/531', 'nv=33' => '#/532', 'nv=34' => '#/533', 'nv=35' => '#/534', 'nv=36' => '#/535', 'nv=37' => '#/536', 'nv=38' => '#/537', 'nv=39' => '#/538', 'nv=4' => 'Nv/4', 'nv=4/5' => '#/555', 'nv=40' => 'Nv/40', 'nv=400' => 'Nv/400', 'nv=4000' => 'Nv/4000', 'nv=40000' => 'Nv/40000', 'nv=400000' => '#/585', 'nv=41' => '#/539', 'nv=42' => '#/540', 'nv=43' => '#/541', 'nv=432000' => '#/586', 'nv=44' => '#/542', 'nv=45' => '#/543', 'nv=46' => '#/544', 'nv=47' => '#/545', 'nv=48' => '#/546', 'nv=49' => '#/547', 'nv=5' => 'Nv/5', 'nv=5/12' => '#/577', 'nv=5/2' => '#/556', 'nv=5/6' => '#/557', 'nv=5/8' => '#/558', 'nv=50' => 'Nv/50', 'nv=500' => 'Nv/500', 'nv=5000' => 'Nv/5000', 'nv=50000' => 'Nv/50000', 'nv=500000' => '#/587', 'nv=6' => 'Nv/6', 'nv=60' => 'Nv/60', 'nv=600' => 'Nv/600', 'nv=6000' => 'Nv/6000', 'nv=60000' => 'Nv/60000', 'nv=600000' => '#/588', 'nv=7' => 'Nv/7', 'nv=7/12' => '#/578', 'nv=7/2' => '#/559', 'nv=7/8' => '#/560', 'nv=70' => 'Nv/70', 'nv=700' => 'Nv/700', 'nv=7000' => 'Nv/7000', 'nv=70000' => 'Nv/70000', 'nv=700000' => '#/589', 'nv=8' => 'Nv/8', 'nv=80' => 'Nv/80', 'nv=800' => 'Nv/800', 'nv=8000' => 'Nv/8000', 'nv=80000' => 'Nv/80000', 'nv=800000' => '#/590', 'nv=9' => 'Nv/9', 'nv=9/2' => '#/561', 'nv=90' => 'Nv/90', 'nv=900' => 'Nv/900', 'nv=9000' => 'Nv/9000', 'nv=90000' => 'Nv/90000', 'nv=900000' => '#/591', ); # Maps property, table to file for those using loose matching. For paths # whose directory is '#', the file is in the form of a numeric index into # @inline_definitions %Unicode::UCD::loose_to_file_of = ( 'adlam' => 'Scx/Adlm', 'adlm' => 'Scx/Adlm', 'aegeannumbers' => '#/343', 'age=na' => 'Age/NA', 'age=unassigned' => 'Age/NA', 'age=v100' => 'Age/V100', 'age=v11' => 'Age/V11', 'age=v110' => 'Age/V110', 'age=v120' => 'Age/V120', 'age=v121' => '#/100', 'age=v130' => 'Age/V130', 'age=v20' => 'Age/V20', 'age=v21' => '#/97', 'age=v30' => 'Age/V30', 'age=v31' => 'Age/V31', 'age=v32' => 'Age/V32', 'age=v40' => 'Age/V40', 'age=v41' => 'Age/V41', 'age=v50' => 'Age/V50', 'age=v51' => 'Age/V51', 'age=v52' => 'Age/V52', 'age=v60' => 'Age/V60', 'age=v61' => 'Age/V61', 'age=v62' => '#/98', 'age=v63' => '#/99', 'age=v70' => 'Age/V70', 'age=v80' => 'Age/V80', 'age=v90' => 'Age/V90', 'aghb' => '#/635', 'ahex' => '#/60', 'ahex=f' => '#/!60', 'ahex=false' => '#/!60', 'ahex=n' => '#/!60', 'ahex=no' => '#/!60', 'ahex=t' => '#/60', 'ahex=true' => '#/60', 'ahex=y' => '#/60', 'ahex=yes' => '#/60', 'ahom' => '#/636', 'alchemical' => '#/277', 'alchemicalsymbols' => '#/277', 'all' => '#/1', 'alnum' => 'Perl/Alnum', 'alpha' => 'Alpha/Y', 'alpha=f' => '!Alpha/Y', 'alpha=false' => '!Alpha/Y', 'alpha=n' => '!Alpha/Y', 'alpha=no' => '!Alpha/Y', 'alpha=t' => 'Alpha/Y', 'alpha=true' => 'Alpha/Y', 'alpha=y' => 'Alpha/Y', 'alpha=yes' => 'Alpha/Y', 'alphabetic' => 'Alpha/Y', 'alphabeticpf' => '#/326', 'alphabeticpresentationforms' => '#/326', 'anatolianhieroglyphs' => '#/657', 'ancientgreekmusic' => '#/387', 'ancientgreekmusicalnotation' => '#/387', 'ancientgreeknumbers' => '#/398', 'ancientsymbols' => '#/352', 'any' => '#/2', 'arab' => 'Scx/Arab', 'arabic' => 'Scx/Arab', 'arabicexta' => '#/278', 'arabicextendeda' => '#/278', 'arabicmath' => '#/279', 'arabicmathematicalalphabeticsymbols' => '#/279', 'arabicpfa' => '#/250', 'arabicpfb' => '#/251', 'arabicpresentationformsa' => '#/250', 'arabicpresentationformsb' => '#/251', 'arabicsup' => '#/252', 'arabicsupplement' => '#/252', 'armenian' => 'Scx/Armn', 'armi' => '#/637', 'armn' => 'Scx/Armn', 'arrows' => '#/151', 'ascii' => '#/131', 'asciihexdigit' => '#/60', 'assigned' => 'Perl/Assigned', 'avestan' => '#/638', 'avst' => '#/638', 'bali' => '#/639', 'balinese' => '#/639', 'bamu' => '#/640', 'bamum' => '#/640', 'bamumsup' => '#/223', 'bamumsupplement' => '#/223', 'basiclatin' => '#/131', 'bass' => '#/641', 'bassavah' => '#/641', 'batak' => '#/642', 'batk' => '#/642', 'bc=al' => 'Bc/AL', 'bc=an' => 'Bc/AN', 'bc=arabicletter' => 'Bc/AL', 'bc=arabicnumber' => 'Bc/AN', 'bc=b' => 'Bc/B', 'bc=bn' => 'Bc/BN', 'bc=boundaryneutral' => 'Bc/BN', 'bc=commonseparator' => 'Bc/CS', 'bc=cs' => 'Bc/CS', 'bc=en' => 'Bc/EN', 'bc=es' => 'Bc/ES', 'bc=et' => 'Bc/ET', 'bc=europeannumber' => 'Bc/EN', 'bc=europeanseparator' => 'Bc/ES', 'bc=europeanterminator' => 'Bc/ET', 'bc=firststrongisolate' => '#/102', 'bc=fsi' => '#/102', 'bc=l' => 'Bc/L', 'bc=lefttoright' => 'Bc/L', 'bc=lefttorightembedding' => '#/103', 'bc=lefttorightisolate' => '#/104', 'bc=lefttorightoverride' => '#/105', 'bc=lre' => '#/103', 'bc=lri' => '#/104', 'bc=lro' => '#/105', 'bc=nonspacingmark' => 'Bc/NSM', 'bc=nsm' => 'Bc/NSM', 'bc=on' => 'Bc/ON', 'bc=otherneutral' => 'Bc/ON', 'bc=paragraphseparator' => 'Bc/B', 'bc=pdf' => '#/106', 'bc=pdi' => '#/107', 'bc=popdirectionalformat' => '#/106', 'bc=popdirectionalisolate' => '#/107', 'bc=r' => 'Bc/R', 'bc=righttoleft' => 'Bc/R', 'bc=righttoleftembedding' => '#/108', 'bc=righttoleftisolate' => '#/109', 'bc=righttoleftoverride' => '#/110', 'bc=rle' => '#/108', 'bc=rli' => '#/109', 'bc=rlo' => '#/110', 'bc=s' => '#/101', 'bc=segmentseparator' => '#/101', 'bc=whitespace' => 'Bc/WS', 'bc=ws' => 'Bc/WS', 'beng' => 'Scx/Beng', 'bengali' => 'Scx/Beng', 'bhaiksuki' => 'Scx/Bhks', 'bhks' => 'Scx/Bhks', 'bidic' => 'BidiC/Y', 'bidic=f' => '!BidiC/Y', 'bidic=false' => '!BidiC/Y', 'bidic=n' => '!BidiC/Y', 'bidic=no' => '!BidiC/Y', 'bidic=t' => 'BidiC/Y', 'bidic=true' => 'BidiC/Y', 'bidic=y' => 'BidiC/Y', 'bidic=yes' => 'BidiC/Y', 'bidicontrol' => 'BidiC/Y', 'bidim' => 'BidiM/Y', 'bidim=f' => '!BidiM/Y', 'bidim=false' => '!BidiM/Y', 'bidim=n' => '!BidiM/Y', 'bidim=no' => '!BidiM/Y', 'bidim=t' => 'BidiM/Y', 'bidim=true' => 'BidiM/Y', 'bidim=y' => 'BidiM/Y', 'bidim=yes' => 'BidiM/Y', 'bidimirrored' => 'BidiM/Y', 'blank' => 'Perl/Blank', 'blk=adlam' => '#/132', 'blk=aegeannumbers' => '#/343', 'blk=ahom' => '#/120', 'blk=alchemical' => '#/277', 'blk=alchemicalsymbols' => '#/277', 'blk=alphabeticpf' => '#/326', 'blk=alphabeticpresentationforms' => '#/326', 'blk=anatolianhieroglyphs' => '#/405', 'blk=ancientgreekmusic' => '#/387', 'blk=ancientgreekmusicalnotation' => '#/387', 'blk=ancientgreeknumbers' => '#/398', 'blk=ancientsymbols' => '#/352', 'blk=arabic' => '#/150', 'blk=arabicexta' => '#/278', 'blk=arabicextendeda' => '#/278', 'blk=arabicmath' => '#/279', 'blk=arabicmathematicalalphabeticsymbols' => '#/279', 'blk=arabicpfa' => '#/250', 'blk=arabicpfb' => '#/251', 'blk=arabicpresentationformsa' => '#/250', 'blk=arabicpresentationformsb' => '#/251', 'blk=arabicsup' => '#/252', 'blk=arabicsupplement' => '#/252', 'blk=armenian' => '#/221', 'blk=arrows' => '#/151', 'blk=ascii' => '#/131', 'blk=avestan' => '#/178', 'blk=balinese' => '#/222', 'blk=bamum' => '#/133', 'blk=bamumsup' => '#/223', 'blk=bamumsupplement' => '#/223', 'blk=basiclatin' => '#/131', 'blk=bassavah' => '#/224', 'blk=batak' => '#/134', 'blk=bengali' => '#/179', 'blk=bhaiksuki' => '#/253', 'blk=blockelements' => '#/344', 'blk=bopomofo' => '#/225', 'blk=bopomofoext' => '#/301', 'blk=bopomofoextended' => '#/301', 'blk=boxdrawing' => '#/280', 'blk=brahmi' => '#/152', 'blk=braille' => '#/180', 'blk=braillepatterns' => '#/180', 'blk=buginese' => '#/226', 'blk=buhid' => '#/135', 'blk=byzantinemusic' => '#/353', 'blk=byzantinemusicalsymbols' => '#/353', 'blk=canadiansyllabics' => '#/130', 'blk=carian' => '#/153', 'blk=caucasianalbanian' => '#/388', 'blk=chakma' => '#/154', 'blk=cham' => '#/121', 'blk=cherokee' => '#/227', 'blk=cherokeesup' => '#/302', 'blk=cherokeesupplement' => '#/302', 'blk=chesssymbols' => '#/327', 'blk=chorasmian' => '#/283', 'blk=cjk' => '#/112', 'blk=cjkcompat' => '#/254', 'blk=cjkcompatforms' => '#/354', 'blk=cjkcompatibility' => '#/254', 'blk=cjkcompatibilityforms' => '#/354', 'blk=cjkcompatibilityideographs' => '#/399', 'blk=cjkcompatibilityideographssupplement' => '#/410', 'blk=cjkcompatideographs' => '#/399', 'blk=cjkcompatideographssup' => '#/410', 'blk=cjkexta' => '#/181', 'blk=cjkextb' => '#/182', 'blk=cjkextc' => '#/183', 'blk=cjkextd' => '#/184', 'blk=cjkexte' => '#/185', 'blk=cjkextf' => '#/186', 'blk=cjkextg' => '#/187', 'blk=cjkradicalssup' => '#/355', 'blk=cjkradicalssupplement' => '#/355', 'blk=cjkstrokes' => '#/281', 'blk=cjksymbols' => '#/282', 'blk=cjksymbolsandpunctuation' => '#/282', 'blk=cjkunifiedideographs' => '#/112', 'blk=cjkunifiedideographsextensiona' => '#/181', 'blk=cjkunifiedideographsextensionb' => '#/182', 'blk=cjkunifiedideographsextensionc' => '#/183', 'blk=cjkunifiedideographsextensiond' => '#/184', 'blk=cjkunifiedideographsextensione' => '#/185', 'blk=cjkunifiedideographsextensionf' => '#/186', 'blk=cjkunifiedideographsextensiong' => '#/187', 'blk=combiningdiacriticalmarks' => '#/331', 'blk=combiningdiacriticalmarksextended' => '#/364', 'blk=combiningdiacriticalmarksforsymbols' => '#/411', 'blk=combiningdiacriticalmarkssupplement' => '#/365', 'blk=combininghalfmarks' => '#/257', 'blk=combiningmarksforsymbols' => '#/411', 'blk=commonindicnumberforms' => '#/380', 'blk=compatjamo' => '#/284', 'blk=controlpictures' => '#/362', 'blk=coptic' => '#/155', 'blk=copticepactnumbers' => '#/393', 'blk=countingrod' => '#/303', 'blk=countingrodnumerals' => '#/303', 'blk=cuneiform' => '#/255', 'blk=cuneiformnumbers' => '#/375', 'blk=cuneiformnumbersandpunctuation' => '#/375', 'blk=currencysymbols' => '#/363', 'blk=cypriotsyllabary' => '#/376', 'blk=cyrillic' => '#/228', 'blk=cyrillicexta'